diff --git a/generated/alice/makefile b/generated/alice/makefile
new file mode 100644
index 0000000000..f03dc74db6
--- /dev/null
+++ b/generated/alice/makefile
@@ -0,0 +1,27 @@
+!IF "$(OS)" == "Windows_NT"
+
+# NOTE - If you enter an absolute path to gpre.exe, it MUST use
+# MS-DOS style backslash!
+GPRE_PGM=..\..\bin\gpre
+
+DELETE_COMMAND=del /q
+
+!ELSE
+
+!ERROR Running on unknown operating system.
+
+!ENDIF
+
+REL_SRC_DIR=../../src/alice
+
+
+C_FILES=alice_meta.c
+
+all: $(C_FILES)
+
+clean :
+	-$(DELETE_COMMAND) *.c
+
+alice_meta.c : $(REL_SRC_DIR)/alice_meta.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
diff --git a/generated/alice/placeholder.txt b/generated/alice/placeholder.txt
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/generated/burp/makefile b/generated/burp/makefile
new file mode 100644
index 0000000000..bfe1eba076
--- /dev/null
+++ b/generated/burp/makefile
@@ -0,0 +1,44 @@
+!IF "$(OS)" == "Windows_NT"
+
+# NOTE - If you enter an absolute path to gpre.exe, it MUST use
+# MS-DOS style backslash!
+GPRE_PGM=..\..\bin\gpre
+SED_PGM=sed
+
+COMPILER_CFLAGS=-c -DNOMSG -DWIN32_LEAN_AND_MEAN -nologo
+OBJEXT=obj
+DELETE_COMMAND=del /q
+
+!ELSE
+
+!ERROR Running on unknown operating system.
+
+!ENDIF
+
+REL_SRC_DIR=../../src/burp
+COMMON_CFLAGS=-I../../src -I../../src/include
+CFLAGS=$(COMMON_CFLAGS) $(COMPILER_CFLAGS)
+
+#
+# C_FILES could be useful as build target in case we are only
+# generate the C files into this dir
+#
+
+C_FILES=backup.c restore.c
+
+OBJ_FILES=backup.$(OBJEXT) restore.$(OBJEXT)
+
+all: $(OBJ_FILES)
+
+c_files : $(C_FILES)
+
+clean :
+	-$(DELETE_COMMAND) *.$(OBJEXT)
+	-$(DELETE_COMMAND) *.c
+
+backup.c : $(REL_SRC_DIR)/backup.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
+restore.c : $(REL_SRC_DIR)/restore.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
diff --git a/generated/burp/placeholder.txt b/generated/burp/placeholder.txt
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/generated/dsql/makefile b/generated/dsql/makefile
new file mode 100644
index 0000000000..abff349498
--- /dev/null
+++ b/generated/dsql/makefile
@@ -0,0 +1,33 @@
+!IF "$(OS)" == "Windows_NT"
+
+# NOTE - If you enter an absolute path to gpre.exe, it MUST use
+# MS-DOS style backslash!
+GPRE_PGM=..\..\bin\gpre
+
+DELETE_COMMAND=del /q
+
+!ELSE
+
+!ERROR Running on unknown operating system.
+
+!ENDIF
+
+REL_SRC_DIR=../../src/dsql
+
+
+C_FILES=array.c blob.c metd.c
+
+all: $(C_FILES)
+
+clean :
+	-$(DELETE_COMMAND) *.c
+
+array.c : $(REL_SRC_DIR)/array.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
+blob.c : $(REL_SRC_DIR)/blob.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
+metd.c : $(REL_SRC_DIR)/metd.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
diff --git a/generated/dsql/placeholder.txt b/generated/dsql/placeholder.txt
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/generated/dudley/makefile b/generated/dudley/makefile
new file mode 100644
index 0000000000..aeaefb64f9
--- /dev/null
+++ b/generated/dudley/makefile
@@ -0,0 +1,30 @@
+!IF "$(OS)" == "Windows_NT"
+
+# NOTE - If you enter an absolute path to gpre.exe, it MUST use
+# MS-DOS style backslash!
+GPRE_PGM=..\..\bin\gpre
+
+DELETE_COMMAND=del /q
+
+!ELSE
+
+!ERROR Running on unknown operating system.
+
+!ENDIF
+
+REL_SRC_DIR=../../src/dudley
+
+
+C_FILES=exe.c extract.c
+
+all: $(C_FILES)
+
+clean :
+	-$(DELETE_COMMAND) *.c
+
+exe.c : $(REL_SRC_DIR)/exe.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
+extract.c : $(REL_SRC_DIR)/extract.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
diff --git a/generated/dudley/placeholder.txt b/generated/dudley/placeholder.txt
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/generated/gpre/makefile b/generated/gpre/makefile
new file mode 100644
index 0000000000..e2c4cf3dba
--- /dev/null
+++ b/generated/gpre/makefile
@@ -0,0 +1,27 @@
+!IF "$(OS)" == "Windows_NT"
+
+# NOTE - If you enter an absolute path to gpre.exe, it MUST use
+# MS-DOS style backslash!
+GPRE_PGM=..\..\bin\gpre
+
+DELETE_COMMAND=del /q
+
+!ELSE
+
+!ERROR Running on unknown operating system.
+
+!ENDIF
+
+REL_SRC_DIR=../../src/gpre
+
+
+C_FILES=gpre_meta.c
+
+all: $(C_FILES)
+
+clean :
+	-$(DELETE_COMMAND) *.c
+
+gpre_meta.c : $(REL_SRC_DIR)/gpre_meta.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
diff --git a/generated/gpre/placeholder.txt b/generated/gpre/placeholder.txt
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/generated/isql/makefile b/generated/isql/makefile
new file mode 100644
index 0000000000..81250f596b
--- /dev/null
+++ b/generated/isql/makefile
@@ -0,0 +1,33 @@
+!IF "$(OS)" == "Windows_NT"
+
+# NOTE - If you enter an absolute path to gpre.exe, it MUST use
+# MS-DOS style backslash!
+GPRE_PGM=..\..\bin\gpre
+
+DELETE_COMMAND=del /q
+
+!ELSE
+
+!ERROR Running on unknown operating system.
+
+!ENDIF
+
+REL_SRC_DIR=../../src/isql
+
+
+C_FILES=extract.c isql.c show.c
+
+all: $(C_FILES)
+
+clean :
+	-$(DELETE_COMMAND) *.c
+
+extract.c : $(REL_SRC_DIR)/extract.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
+isql.c : $(REL_SRC_DIR)/isql.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
+show.c : $(REL_SRC_DIR)/show.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
diff --git a/generated/isql/placeholder.txt b/generated/isql/placeholder.txt
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/generated/journal/placeholder.txt b/generated/journal/placeholder.txt
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/generated/jrd/makefile b/generated/jrd/makefile
new file mode 100644
index 0000000000..a1ffaebcf6
--- /dev/null
+++ b/generated/jrd/makefile
@@ -0,0 +1,48 @@
+REL_SRC_DIR=../../src/jrd
+.SUFFIXES : .e
+
+!IF "$(OS)" == "Windows_NT"
+
+# NOTE - This should probably also be the path taken for other
+# Win32 operating systems, like Win9x/Me.
+
+# NOTE - If you enter an absolute path to gpre.exe, it MUST use
+# MS-DOS style backslash!
+GPRE_PGM=..\..\bin\gpre
+SED_PGM=sed
+
+DELETE_COMMAND=del /q
+
+#
+# MS NMAKE specific directory-relative inference rule
+#
+{$(REL_SRC_DIR)}.e{}.c:
+	$(GPRE_PGM) -n -gds -raw -ids $? -o >$@
+
+!ELSE
+
+!ERROR Running on unknown operating system.
+
+!ENDIF
+
+#
+# NOTE: "stats" is temporarily removed since it isn't even used.
+#
+# stats.c
+#
+
+C_FILES=blob_filter.c dfw.c dpm.c dyn.c dyn_def.c dyn_del.c dyn_mod.c \
+        dyn_util.c fun.c grant.c ini.c met.c pcmet.c scl.c stats.c
+
+all: $(C_FILES)
+
+clean :
+	-$(DELETE_COMMAND) *.c
+
+blob_filter.c :
+	$(GPRE_PGM) -n -manual -raw $? -o >$@
+
+dyn_def.c :
+	$(GPRE_PGM) -n -gds -raw -ids $? -o > dyn_def.c.tmp
+	$(SED_PGM) -f $(REL_SRC_DIR)/dyn_def.sed dyn_def.c.tmp > dyn_def.c
+
diff --git a/generated/jrd/placeholder.txt b/generated/jrd/placeholder.txt
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/generated/msgs/makefile b/generated/msgs/makefile
new file mode 100644
index 0000000000..73cebb7bf5
--- /dev/null
+++ b/generated/msgs/makefile
@@ -0,0 +1,39 @@
+REL_SRC_DIR=../../src/msgs
+.SUFFIXES : .e
+
+!IF "$(OS)" == "Windows_NT"
+
+# NOTE - This should probably also be the path taken for other
+# Win32 operating systems, like Win9x/Me.
+
+# NOTE - If you enter an absolute path to gpre.exe, it MUST use
+# MS-DOS style backslash!
+GPRE_PGM=..\..\bin\gpre
+SED_PGM=sed
+
+DELETE_COMMAND=del /q
+
+#
+# MS NMAKE specific directory-relative inference rule
+#
+{$(REL_SRC_DIR)}.e{}.c:
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
+!ELSE
+
+!ERROR Running on unknown operating system.
+
+!ENDIF
+
+#
+# load.c - disabled
+#
+
+C_FILES=build_file.c check_msgs.c enter_msgs.c modify_msgs.c \
+        change_msgs.c
+
+all: $(C_FILES)
+
+clean :
+	-$(DELETE_COMMAND) *.c
+
diff --git a/generated/msgs/placeholder.txt b/generated/msgs/placeholder.txt
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/generated/pyxis/placeholder.txt b/generated/pyxis/placeholder.txt
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/generated/qli/placeholder.txt b/generated/qli/placeholder.txt
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/generated/utilities/makefile b/generated/utilities/makefile
new file mode 100644
index 0000000000..7d4b10a391
--- /dev/null
+++ b/generated/utilities/makefile
@@ -0,0 +1,39 @@
+!IF "$(OS)" == "Windows_NT"
+
+# NOTE - If you enter an absolute path to gpre.exe, it MUST use
+# MS-DOS style backslash!
+GPRE_PGM=..\..\bin\gpre
+
+DELETE_COMMAND=del /q
+
+!ELSE
+
+!ERROR Running on unknown operating system.
+
+!ENDIF
+
+REL_SRC_DIR=../../src/utilities
+
+#
+# rstore.c - disabled
+#
+C_FILES=dba.c security.c rmet.c
+
+all: $(C_FILES)
+
+clean :
+	-$(DELETE_COMMAND) *.c
+
+dba.c : $(REL_SRC_DIR)/dba.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
+security.c : $(REL_SRC_DIR)/security.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
+rmet.c : $(REL_SRC_DIR)/rmet.e
+	$(GPRE_PGM) -r -m -n $? -o >$@
+
+# Disabled - unused
+#rstore.c : $(REL_SRC_DIR)/rstore.e
+#	$(GPRE_PGM) -r -m -n $? -o >$@
+
diff --git a/generated/utilities/placeholder.txt b/generated/utilities/placeholder.txt
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/src/alice/alice.cpp b/src/alice/alice.cpp
new file mode 100644
index 0000000000..9e66149eeb
--- /dev/null
+++ b/src/alice/alice.cpp
@@ -0,0 +1,743 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	Alice (All Else) Utility
+//		MODULE:		alice.cpp
+//		DESCRIPTION:	Neo-Debe (does everything but eat)
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  
+//
+//____________________________________________________________
+//
+//	$Id: alice.cpp,v 1.1.1.1 2001-05-23 13:25:33 tamlin Exp $
+//
+
+#include <stdlib.h>
+#include <string.h>
+#include <stdarg.h>
+
+#define FB_FROM_ALICE_CPP
+
+#include "../jrd/ib_stdio.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/common.h"
+#include "../jrd/license.h"
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/msg_encode.h"
+#include "../alice/alice.h"
+#include "../alice/aliceswi.h"
+#include "../alice/all.h"
+#include "../alice/alice_proto.h"
+#include "../alice/all_proto.h"
+#include "../alice/exe_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/svc.h"
+#include "../jrd/svc_proto.h"
+#include "../jrd/thd_proto.h"
+
+#ifdef SUPERSERVER
+#include "../utilities/cmd_util_proto.h"
+#endif
+
+#ifdef WIN_NT
+#include <windows.h>
+#endif
+
+#if (defined WIN_NT || defined PC_PLATFORM)
+#include <io.h>
+#endif
+
+
+extern "C" {
+
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	1024
+#endif
+
+static USHORT val_err_table[] = {
+	0,
+	55,							/* msg 55: \n\tNumber of record level errors\t: %ld */
+	56,							/* msg 56: \tNumber of Blob page errors\t: %ld */
+	57,							/* msg 57: \tNumber of data page errors\t: %ld */
+	58,							/* msg 58: \tNumber of index page errors\t: %ld */
+	59,							/* msg 59: \tNumber of pointer page errors\t: %ld */
+	60,							/* msg 60: \tNumber of transaction page errors\t: %ld */
+	61							/* msg 61: \tNumber of database page errors\t: %ld */
+};
+
+#ifndef NETWARE_386
+struct tgbl *gdgbl;
+#endif
+
+#define	ALICE_MSG_FAC	3
+
+#if defined (WIN95) && !defined (GUI_TOOLS)
+static BOOL fAnsiCP = FALSE;
+#define	TRANSLATE_CP(a) if (!fAnsiCP) AnsiToOem(a, a)
+#else
+#define TRANSLATE_CP(a)
+#endif
+
+static void expand_filename(TEXT *, TEXT *);
+static int output_thread(SLONG, UCHAR *);
+static int output_main(SLONG, UCHAR *);
+static int output_svc(SLONG, UCHAR *);
+static void alice_output(CONST SCHAR *, ...);
+
+
+
+#ifdef SUPERSERVER
+
+//____________________________________________________________
+//  
+//       Entry point for GFIX in case of service manager.
+//  
+
+int main_gfix(SVC service)
+{
+	int exit_code;
+
+	exit_code = ALICE_gfix(service->svc_argc, service->svc_argv,
+						   output_thread, (SLONG) service);
+
+	service->svc_handle = 0;
+	if (service->svc_service->in_use != NULL)
+		*(service->svc_service->in_use) = FALSE;
+
+//  Mark service thread as finished. 
+//  If service is detached, cleanup memory being used by service. 
+	SVC_finish(service, SVC_finished);
+
+	return exit_code;
+}
+
+
+//____________________________________________________________
+//  
+//		Routine which is passed to GFIX for calling back when there is output.
+//  
+
+static int output_thread(SLONG output_data, UCHAR * output_buf)
+{
+	SVC_fprintf((SVC) output_data, "%s", output_buf);
+
+	return 0;
+}
+
+
+#else
+#ifndef GUI_TOOLS
+
+//____________________________________________________________
+//  
+//      Call the 'real' main.
+//  
+
+int CLIB_ROUTINE main(int argc, char *argv[])
+{
+	int exit_code;
+
+	exit_code = ALICE_gfix(argc, argv, output_main, (SLONG) NULL);
+
+	return exit_code;
+}
+
+
+//____________________________________________________________
+//  
+//		Routine which is passed to GFIX for calling back when there is output.
+//  
+
+static int output_main(SLONG output_data, UCHAR * output_buf)
+{
+	ib_fprintf(ib_stderr, "%s", output_buf);
+	return 0;
+}
+#endif
+#endif
+
+//____________________________________________________________
+//  
+//		Routine which is passed to GFIX for calling back when there is output
+//		if gfix is run as a service
+//  
+
+static int output_svc(SLONG output_data, UCHAR * output_buf)
+{
+	ib_fprintf(ib_stdout, "%s", output_buf);
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Routine called by command line utility, and server manager
+//		Parse switches and do work
+//  
+
+int DLL_EXPORT ALICE_gfix(
+						  int argc,
+						  char *argv[],
+						  OUTPUTPROC output_proc, SLONG output_data)
+{
+	USHORT error, i;
+	IN_SW_TAB table = alice_in_sw_table;
+	TEXT *database, string[512], *p, *q;
+	ULONG switches;
+	SLONG redir_in, redir_out, redir_err;
+	JMP_BUF env;
+	USHORT ret;
+#if defined (WIN95) && !defined (GUI_TOOLS)
+	BOOL fAnsiCP fAnsiCP = (GetConsoleCP() == GetACP());
+#endif
+
+	VOLATILE tgbl *tdgbl = (struct tgbl *) gds__alloc(sizeof(*tdgbl));
+//  NOMEM: return error, FREE: during function exit in the SETJMP 
+	if (tdgbl == NULL)
+		return FINI_ERROR;
+// TMN
+#if 0
+	SET_THREAD_DATA;
+#else
+	tdgbl->tgbl_thd_data.thdd_type = THDD_TYPE_TALICE;
+#endif
+	SVC_PUTSPECIFIC_DATA;
+	memset((void *) tdgbl, 0, sizeof(*tdgbl));
+//  TMN: I can't for my life understand why the jmp_buf is defined 
+//  as a UCHAR* in ' struct tgbl', but it forces this cast.        
+	tdgbl->alice_env = (UCHAR * volatile) env;
+	tdgbl->output_proc = output_proc;
+	tdgbl->output_data = output_data;
+	tdgbl->ALICE_permanent_pool = NULL;
+	tdgbl->ALICE_default_pool = NULL;
+	tdgbl->pools = NULL;
+
+	if (SETJMP(env)) {
+		int exit_code;
+
+		/* All calls to EXIT(), normal and error exits, wind up here */
+
+		SVC_STARTED(tdgbl->service_blk);
+		tdgbl->alice_env = NULL;
+		exit_code = tdgbl->exit_code;
+
+		/* Close the status output file */
+		if (tdgbl->sw_redirect == TRUE && tdgbl->output_file != NULL) {
+			ib_fclose(tdgbl->output_file);
+			tdgbl->output_file = NULL;
+		}
+
+		/* Free all unfreed memory used by Gfix itself */
+		ALLA_fini();
+
+		RESTORE_THREAD_DATA;
+		if (tdgbl != NULL) {
+			gds__free((SLONG *) tdgbl);
+		}
+#if defined(DEBUG_GDS_ALLOC) && !defined(SUPERSERVER)
+		gds_alloc_report(0, __FILE__, __LINE__);
+#endif
+
+		/* All returns occur from this point - even normal returns */
+		return exit_code;
+	}
+
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+//  Perform some special handling when run as an Interbase service.  The
+//  first switch can be "-svc" (lower case!) or it can be "-svc_re" followed
+//  by 3 file descriptors to use in re-directing ib_stdin, ib_stdout, and ib_stderr. 
+
+	tdgbl->sw_service = FALSE;
+	tdgbl->sw_service_thd = FALSE;
+	tdgbl->service_blk = NULL;
+	tdgbl->status =
+		/* TMN: cast away volatile */
+		(long *) tdgbl->status_vector;
+
+	if (argc > 1 && !strcmp(argv[1], "-svc")) {
+		tdgbl->sw_service = TRUE;
+		argv++;
+		argc--;
+	}
+	else if (argc > 1 && !strcmp(argv[1], "-svc_thd")) {
+		tdgbl->sw_service = TRUE;
+		tdgbl->sw_service_thd = TRUE;
+		tdgbl->service_blk = (SVC) output_data;
+		tdgbl->status = tdgbl->service_blk->svc_status;
+		argv++;
+		argc--;
+	}
+#ifndef NETWARE_386
+	else if (argc > 4 && !strcmp(argv[1], "-svc_re")) {
+		tdgbl->sw_service = TRUE;
+		tdgbl->output_proc = output_svc;
+		redir_in = atol(argv[2]);
+		redir_out = atol(argv[3]);
+		redir_err = atol(argv[4]);
+#ifdef WIN_NT
+#if defined (WIN95) && !defined (GUI_TOOLS)
+		fAnsiCP = TRUE;
+#endif
+		redir_in = _open_osfhandle(redir_in, 0);
+		redir_out = _open_osfhandle(redir_out, 0);
+		redir_err = _open_osfhandle(redir_err, 0);
+#endif
+		if (redir_in != 0)
+			if (dup2((int) redir_in, 0))
+				close((int) redir_in);
+		if (redir_out != 1)
+			if (dup2((int) redir_out, 1))
+				close((int) redir_out);
+		if (redir_err != 2)
+			if (dup2((int) redir_err, 2))
+				close((int) redir_err);
+		argv += 4;
+		argc -= 4;
+	}
+#endif
+
+	tdgbl->ALICE_data.ua_user = NULL;
+	tdgbl->ALICE_data.ua_password = NULL;
+
+//  Start by parsing switches 
+
+	error = 0;
+	switches = 0;
+	tdgbl->ALICE_data.ua_shutdown_delay = 0;
+	database = NULL;
+	argv++;
+
+	while (--argc > 0) {
+		if ((*argv)[0] != '-') {
+			if (database)
+				ALICE_error(1, database, 0, 0, 0, 0);	/* msg 1: "data base file name (%s) already given", */
+			database = *argv++;
+
+#if defined (WIN95) && !defined (GUI_TOOLS)
+//  There is a small problem with SuperServer on NT, since it is a
+//  Windows app, it uses the ANSI character set.  All the console
+//  apps use the OEN character set.  We need to pass the database
+//  name in the correct character set.
+// if (GetConsoleCP != GetACP())
+//    OemToAnsi(database, database);
+//  
+#else
+#endif
+			continue;
+		}
+		ALICE_down_case(*argv++, string);
+		if (!string[1])
+			continue;
+		for (table = alice_in_sw_table; TRUE; table++) {
+			if (!(p = (TEXT *) table->in_sw_name)) {
+				ALICE_print(2, *--argv, 0, 0, 0, 0);	/* msg 2: invalid switch %s */
+				error = TRUE;
+				break;
+			}
+			q = &string[1];
+			while (*q && *p++ == *q)
+				q++;
+			if (!*q)
+				break;
+		}
+		if (error)
+			break;
+		if (*table->in_sw_name == 'x')
+			tdgbl->ALICE_data.ua_debug++;
+		if (table->in_sw_value == sw_z)
+			ALICE_print(3, GDS_VERSION, 0, 0, 0, 0);	/* msg 3: gfix version %s */
+		if ((table->in_sw_incompatibilities & switches) ||
+			(table->in_sw_requires && !(table->in_sw_requires & switches))) {
+			ALICE_print(4, 0, 0, 0, 0, 0);	/* msg 4: incompatible switch combination */
+			error = TRUE;
+			break;
+		}
+		switches |= table->in_sw_value;
+
+		if (table->in_sw_value & sw_begin_log) {
+			if (--argc <= 0)
+				ALICE_error(5, 0, 0, 0, 0, 0);	/* msg 5: replay log pathname required */
+			expand_filename(*argv++,	/* TMN: cast away volatile */
+							(TEXT *) tdgbl->ALICE_data.ua_log_file);
+		}
+
+		if (table->in_sw_value & (sw_buffers)) {
+			if (--argc <= 0)
+				ALICE_error(6, 0, 0, 0, 0, 0);	/* msg 6: number of page buffers for cache required */
+			ALICE_down_case(*argv++, string);
+			if ((!(tdgbl->ALICE_data.ua_page_buffers = atoi(string)))
+				&& (strcmp(string, "0")))
+				ALICE_error(7, 0, 0, 0, 0, 0);	/* msg 7: numeric value required */
+			if (tdgbl->ALICE_data.ua_page_buffers < 0)
+				ALICE_error(8, 0, 0, 0, 0, 0);	/* msg 8: positive numeric value required */
+		}
+
+		if (table->in_sw_value & (sw_housekeeping)) {
+			if (--argc <= 0)
+				ALICE_error(9, 0, 0, 0, 0, 0);	/* msg 9: number of transactions per sweep required */
+			ALICE_down_case(*argv++, string);
+			if ((!(tdgbl->ALICE_data.ua_sweep_interval = atoi(string)))
+				&& (strcmp(string, "0")))
+				ALICE_error(7, 0, 0, 0, 0, 0);	/* msg 7: numeric value required */
+			if (tdgbl->ALICE_data.ua_sweep_interval < 0)
+				ALICE_error(8, 0, 0, 0, 0, 0);	/* msg 8: positive numeric value required */
+		}
+
+		if (table->in_sw_value & (sw_set_db_dialect)) {
+			if (--argc <= 0)
+				ALICE_error(9, 0, 0, 0, 0, 0);	/* msg 9: dialect info is required XXX */
+
+			ALICE_down_case(*argv++, string);
+
+			if ((!(tdgbl->ALICE_data.ua_db_SQL_dialect = atoi(string))) &&
+				(strcmp(string, "0")))
+				ALICE_error(7, 0, 0, 0, 0, 0);	/* msg 7: numeric value required */
+
+			if (tdgbl->ALICE_data.ua_db_SQL_dialect < 0)
+				ALICE_error(8, 0, 0, 0, 0, 0);	/* msg 8: positive numeric value 
+												   required */
+		}
+
+		if (table->in_sw_value & (sw_commit | sw_rollback | sw_two_phase)) {
+			if (--argc <= 0)
+				ALICE_error(10, 0, 0, 0, 0, 0);	/* msg 10: transaction number or "all" required */
+			ALICE_down_case(*argv++, string);
+			if (!(tdgbl->ALICE_data.ua_transaction = atoi(string)))
+				if (strcmp(string, "all"))
+					ALICE_error(10, 0, 0, 0, 0, 0);	/* msg 10: transaction number or "all" required */
+				else
+					switches |= sw_list;
+		}
+
+		if (table->in_sw_value & sw_write) {
+			if (--argc <= 0)
+				ALICE_error(11, 0, 0, 0, 0, 0);	/* msg 11: "sync" or "async" required */
+			ALICE_down_case(*argv++, string);
+			if (!strcmp(string, ALICE_SW_SYNC))
+				tdgbl->ALICE_data.ua_force = TRUE;
+			else if (!strcmp(string, ALICE_SW_ASYNC))
+				tdgbl->ALICE_data.ua_force = FALSE;
+			else
+				ALICE_error(11, 0, 0, 0, 0, 0);	/* msg 11: "sync" or "async" required */
+		}
+
+		if (table->in_sw_value & sw_use) {
+			if (--argc <= 0)
+				ALICE_error(12, 0, 0, 0, 0, 0);	/* msg 12: "full" or "reserve" required */
+			ALICE_down_case(*argv++, string);
+			if (!strcmp(string, "full"))
+				tdgbl->ALICE_data.ua_use = TRUE;
+			else if (!strcmp(string, "reserve"))
+				tdgbl->ALICE_data.ua_use = FALSE;
+			else
+				ALICE_error(12, 0, 0, 0, 0, 0);	/* msg 12: "full" or "reserve" required */
+		}
+
+		if (table->in_sw_value & sw_user) {
+			if (--argc <= 0)
+				ALICE_error(13, 0, 0, 0, 0, 0);	/* msg 13: user name required */
+			tdgbl->ALICE_data.ua_user =
+				const_cast < UCHAR * volatile >(reinterpret_cast <
+												UCHAR * >(*argv++));
+		}
+
+		if (table->in_sw_value & sw_password) {
+			if (--argc <= 0)
+				ALICE_error(14, 0, 0, 0, 0, 0);	/* msg 14: password required */
+			tdgbl->ALICE_data.ua_password =
+				const_cast < UCHAR * volatile >(reinterpret_cast <
+												UCHAR * >(*argv++));
+		}
+
+		if (table->in_sw_value & sw_disable) {
+			if (--argc <= 0)
+				ALICE_error(15, 0, 0, 0, 0, 0);	/* msg 15: subsystem name  */
+			ALICE_down_case(*argv++, string);
+			if (strcmp(string, "wal"))
+				ALICE_error(16, 0, 0, 0, 0, 0);	/* msg 16: "wal" required */
+		}
+
+		if (table->in_sw_value & (sw_attach | sw_force | sw_tran | sw_cache)) {
+			if (--argc <= 0)
+				ALICE_error(17, 0, 0, 0, 0, 0);	/* msg 17: number of seconds required */
+			ALICE_down_case(*argv++, string);
+			if ((!(tdgbl->ALICE_data.ua_shutdown_delay = atoi(string)))
+				&& (strcmp(string, "0")))
+				ALICE_error(7, 0, 0, 0, 0, 0);	/* msg 7: numeric value required */
+			if (tdgbl->ALICE_data.ua_shutdown_delay < 0
+				|| tdgbl->ALICE_data.ua_shutdown_delay > 32767)
+				ALICE_error(18, 0, 0, 0, 0, 0);	/* msg 18: numeric value between 0 and 32767 inclusive required */
+		}
+
+#ifdef READONLY_DATABASE
+		if (table->in_sw_value & sw_mode) {
+			if (--argc <= 0)
+				ALICE_error(110, 0, 0, 0, 0, 0);	/* msg 110: "read_only" or "read_write" required */
+			ALICE_down_case(*argv++, string);
+			if (!strcmp(string, ALICE_SW_MODE_RO))
+				tdgbl->ALICE_data.ua_read_only = TRUE;
+			else if (!strcmp(string, ALICE_SW_MODE_RW))
+				tdgbl->ALICE_data.ua_read_only = FALSE;
+			else
+				ALICE_error(110, 0, 0, 0, 0, 0);	/* msg 110: "read_only" or "read_write" required */
+		}
+#endif
+
+	}
+
+//  put this here since to put it above overly complicates the parsing 
+//  can't use tbl_requires since it only looks backwards on command line 
+	if ((switches & sw_shut)
+		&& !(switches & ((sw_attach | sw_force | sw_tran | sw_cache))))
+		ALICE_error(19, 0, 0, 0, 0, 0);	/* msg 19: must specify type of shutdown */
+
+//  catch the case where -z is only command line option 
+//  switches is unset since sw_z == 0 
+	if (!switches && !error && table->in_sw_value == sw_z)
+		EXIT(FINI_OK);
+
+	if (!switches || !(switches & ~(sw_user | sw_password))) {
+#ifndef SUPERSERVER
+		ALICE_print(20, 0, 0, 0, 0, 0);	/* msg 20: please retry, specifying an option */
+#endif
+		error = TRUE;
+	}
+
+	if (error) {
+#ifdef SUPERSERVER
+		CMD_UTIL_put_svc_status(tdgbl->service_blk->svc_status, ALICE_MSG_FAC,
+								20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
+
+		SVC_STARTED(tdgbl->service_blk);
+#else
+		ALICE_print(21, 0, 0, 0, 0, 0);	/* msg 21: plausible options are:\n */
+		for (table = alice_in_sw_table; table->in_sw_msg; table++)
+			ALICE_print(table->in_sw_msg, 0, 0, 0, 0, 0);
+		ALICE_print(22, 0, 0, 0, 0, 0);	/* msg 22: \n    qualifiers show the major option in parenthesis */
+#endif
+		EXIT(FINI_ERROR);
+	}
+
+	if (!database)
+		ALICE_error(23, 0, 0, 0, 0, 0);	/* msg 23: please retry, giving a database name */
+
+//  generate the database parameter block for the attach,
+//  based on the various switches 
+
+	if (switches & (sw_list | sw_commit | sw_rollback | sw_two_phase))
+		ret = EXE_two_phase(database, switches);
+	else {
+		ret = EXE_action(database, switches);
+
+		USHORT count = 0;
+
+		for (i = 0; i < MAX_VAL_ERRORS; i++)
+			if (tdgbl->ALICE_data.ua_val_errors[i])
+				count++;
+
+		if ((count)
+			&& !(tdgbl->ALICE_data.ua_val_errors[VAL_INVALID_DB_VERSION])) {
+			ALICE_print(24, 0, 0, 0, 0, 0);	/* msg 24: Summary of validation errors\n */
+
+			for (i = 0; i < MAX_VAL_ERRORS; i++)
+				if (tdgbl->ALICE_data.ua_val_errors[i])
+					ALICE_print(val_err_table[i],
+								reinterpret_cast <
+								char *>(tdgbl->ALICE_data.ua_val_errors[i]),
+								0, 0, 0, 0);
+		}
+	}
+
+	if (ret == FINI_ERROR)
+		ALICE_print_status(tdgbl->status);
+
+	EXIT(FINI_OK);
+
+	return 0;					// compiler silencer
+}
+
+
+//____________________________________________________________
+//  
+//		Copy a string, down casing as we go.
+//  
+
+void ALICE_down_case(TEXT * in, TEXT * out)
+{
+	TEXT c;
+
+	while (c = *in++)
+		*out++ = (c >= 'A' && c <= 'Z') ? c - 'A' + 'a' : c;
+
+	*out = 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Display a formatted error message
+//  
+
+void ALICE_print(USHORT number,
+				 TEXT * arg1,
+				 TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+	TEXT buffer[256];
+
+	gds__msg_format(0, ALICE_MSG_FAC, number, sizeof(buffer), buffer, arg1,
+					arg2, arg3, arg4, arg5);
+	TRANSLATE_CP(buffer);
+	alice_output("%s\n", buffer);
+}
+
+
+//____________________________________________________________
+//  
+//		Print error message. Use isc_interprete
+//		to allow redirecting output.
+//  
+
+void ALICE_print_status(STATUS * status_vector)
+{
+#ifdef SUPERSERVER
+	TGBL tdgbl;
+	STATUS *status;
+	int i = 0, j;
+#endif
+	STATUS *vector;
+	SCHAR s[1024];
+
+	if (status_vector) {
+		vector = status_vector;
+#ifdef SUPERSERVER
+		tdgbl = GET_THREAD_DATA;
+		status = tdgbl->service_blk->svc_status;
+		if (status != status_vector) {
+			while (*status && (++i < ISC_STATUS_LENGTH))
+				status++;
+			for (j = 0; status_vector[j] && (i < ISC_STATUS_LENGTH); j++, i++)
+				*status++ = status_vector[j];
+		}
+#endif
+		isc_interprete(s, &vector);
+		TRANSLATE_CP(s);
+		alice_output("%s\n", s);
+
+		/* Continuation of error */
+		s[0] = '-';
+		while (isc_interprete(s + 1, &vector)) {
+			TRANSLATE_CP(s);
+			alice_output("%s\n", s);
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Format and print an error message, then punt.
+//  
+
+void ALICE_error(USHORT number,
+				 TEXT * arg1,
+				 TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+	TGBL tdgbl;
+	TEXT buffer[256];
+#ifdef SUPERSERVER
+	STATUS *status;
+#endif
+
+	tdgbl = GET_THREAD_DATA;
+
+#ifdef SUPERSERVER
+	status = tdgbl->service_blk->svc_status;
+
+	CMD_UTIL_put_svc_status(status, ALICE_MSG_FAC, number,
+							isc_arg_string, arg1,
+							isc_arg_string, arg2,
+							isc_arg_string, arg3,
+							isc_arg_string, arg4, isc_arg_string, arg5);
+#endif
+
+	gds__msg_format(0, ALICE_MSG_FAC, number, sizeof(buffer), buffer, arg1,
+					arg2, arg3, arg4, arg5);
+	TRANSLATE_CP(buffer);
+	alice_output("%s\n", buffer);
+	EXIT(FINI_ERROR);
+}
+
+
+//____________________________________________________________
+//  
+//		Platform independent output routine.
+//  
+
+static void alice_output(CONST SCHAR * format, ...)
+{
+	va_list arglist;
+	UCHAR buf[1000];
+	int exit_code;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (tdgbl->sw_redirect == NOOUTPUT || format[0] == '\0') {
+		exit_code =
+			tdgbl->output_proc(tdgbl->output_data,
+							   reinterpret_cast < UCHAR * >(""));
+	}
+	else if (tdgbl->sw_redirect == TRUE && tdgbl->output_file != NULL) {
+		VA_START(arglist, format);
+		ib_vfprintf(tdgbl->output_file, format, arglist);
+		va_end(arglist);
+		exit_code =
+			tdgbl->output_proc(tdgbl->output_data,
+							   reinterpret_cast < UCHAR * >(""));
+	}
+	else {
+		VA_START(arglist, format);
+		vsprintf((char *) buf, format, arglist);
+		va_end(arglist);
+
+		exit_code = tdgbl->output_proc(tdgbl->output_data, buf);
+	}
+
+	if (exit_code != 0)
+		EXIT(exit_code);
+}
+
+
+//____________________________________________________________
+//  
+//		Fully expand a file name.  If the file doesn't exist, do something
+//		intelligent.
+//  
+
+static void expand_filename(TEXT * filename, TEXT * expanded_name)
+{
+	strcpy(expanded_name, filename);
+}
+
+
+} // extern "C"
diff --git a/src/alice/alice.h b/src/alice/alice.h
new file mode 100644
index 0000000000..af0032f513
--- /dev/null
+++ b/src/alice/alice.h
@@ -0,0 +1,228 @@
+/*
+ *	PROGRAM:	Alice
+ *	MODULE:		alice.h
+ *	DESCRIPTION:	Block definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ALICE_ALICE_H_
+#define _ALICE_ALICE_H_
+
+#include "../jrd/ib_stdio.h"
+
+#include "../jrd/ibase.h"
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/thd.h"
+#include "../alice/all.h"
+#include "../alice/alice_proto.h"
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+
+#define BLKDEF(type, root, tail) type,
+enum blk_t {
+	type_MIN = 0,
+#include "../alice/blk.h"
+	type_MAX
+};
+#undef BLKDEF
+
+#define VAL_INVALID_DB_VERSION		0
+#define VAL_RECORD_ERRORS		1
+#define VAL_BLOB_PAGE_ERRORS		2
+#define VAL_DATA_PAGE_ERRORS		3
+#define VAL_INDEX_PAGE_ERRORS		4
+#define VAL_POINTER_PAGE_ERRORS		5
+#define VAL_TIP_PAGE_ERRORS		6
+#define VAL_PAGE_ERRORS			7
+#define MAX_VAL_ERRORS			8
+
+typedef struct user_action
+{
+	ULONG ua_switches;
+	UCHAR *ua_user;
+	UCHAR *ua_password;
+	UCHAR ua_use;
+	UCHAR ua_force;
+	BOOLEAN ua_read_only;
+	SLONG ua_shutdown_delay;
+	SLONG ua_sweep_interval;
+	SLONG ua_transaction;
+	SLONG ua_page_buffers;
+	USHORT ua_debug;
+	SLONG ua_val_errors[MAX_VAL_ERRORS];
+	TEXT ua_log_file[MAXPATHLEN];
+	USHORT ua_db_SQL_dialect;
+} *USER_ACTION;
+
+
+
+
+/*  String block: used to store a string of constant length. */
+
+typedef struct str {
+	struct blk str_header;
+	USHORT str_length;
+	UCHAR str_data[2];
+} *STR;
+
+
+/*  Transaction block: used to store info about a multidatabase transaction. */
+
+typedef struct tdr
+{
+	struct blk tdr_header;
+	struct tdr *tdr_next;		/* next subtransaction */
+	SLONG tdr_id;				/* database-specific transaction id */
+	struct str *tdr_fullpath;	/* full (possibly) remote pathname */
+	TEXT *tdr_filename;			/* filename within full pathname */
+	struct str *tdr_host_site;	/* host for transaction */
+	struct str *tdr_remote_site;	/* site for remote transaction */
+	SLONG *tdr_handle;			/* reconnected transaction handle */
+	SLONG *tdr_db_handle;		/* reattached database handle */
+	USHORT tdr_db_caps;			/* capabilities of database */
+	USHORT tdr_state;			/* see flags below */
+} *TDR;
+
+/* Transaction Description Record */
+
+#define TDR_VERSION		1
+#define TDR_HOST_SITE		1
+#define TDR_DATABASE_PATH	2
+#define TDR_TRANSACTION_ID	3
+#define TDR_REMOTE_SITE		4
+
+/* flags for tdr_db_caps */
+
+#define CAP_none		0
+#define CAP_transactions	1	/* db has a RDB$TRANSACTIONS relation */
+
+/* flags for tdr_state */
+
+#define TRA_none	0			/* transaction description record is missing */
+#define TRA_limbo	1			/* has been prepared */
+#define TRA_commit	2			/* has committed */
+#define TRA_rollback	3		/* has rolled back */
+#define TRA_unknown	4			/* database couldn't be reattached, state is unknown */
+
+
+
+/* a couple of obscure blocks used only in data allocator routines */
+
+typedef struct vec
+{
+	struct blk vec_header;
+	ULONG vec_count;
+	struct blk *vec_object[1];
+} *VEC;
+
+typedef struct vcl
+{
+	struct blk vcl_header;
+	ULONG vcl_count;
+	SLONG vcl_long[1];
+} *VCL;
+
+/* Global switches and data */
+
+#include "../jrd/svc.h"
+
+typedef struct tgbl
+{
+	struct thdd			tgbl_thd_data;
+	struct user_action ALICE_data;
+	PLB				ALICE_permanent_pool;
+	PLB				ALICE_default_pool;
+	STATUS			status_vector[ISC_STATUS_LENGTH];
+	VEC				pools;
+	UCHAR*			alice_env;
+	int				exit_code;
+	OUTPUTPROC		output_proc;
+	SLONG			output_data;
+	IB_FILE*		output_file;
+	SVC				service_blk;
+	isc_db_handle	db_handle;
+	isc_tr_handle	tr_handle;
+	STATUS*			status;
+	USHORT			sw_redirect;
+	USHORT			sw_service;
+	USHORT			sw_service_thd;
+
+
+} *TGBL;
+
+
+#ifdef GET_THREAD_DATA
+#undef GET_THREAD_DATA
+#endif
+
+#ifdef SUPERSERVER
+#define GET_THREAD_DATA		((TGBL) THD_get_specific())
+#ifdef __cplusplus
+#ifdef FB_FROM_ALICE_CPP
+#define SET_THREAD_DATA		THD_put_specific ((THDD) tdgbl);	\
+				tdgbl->tgbl_thd_data.thdd_type =				\
+					reinterpret_cast<volatile ULONG>(THDD_TYPE_TALICE)
+#else /* FB_FROM_ALICE_CPP */
+#define SET_THREAD_DATA		THD_put_specific ((THDD) tdgbl);	\
+				tdgbl->tgbl_thd_data.thdd_type =				\
+					reinterpret_cast<tgbl*>(THDD_TYPE_TALICE)
+#endif /* FB_FROM_ALICE_CPP */
+#else
+#define SET_THREAD_DATA		THD_put_specific ((THDD) tdgbl); \
+				tdgbl->tgbl_thd_data.thdd_type=THDD_TYPE_TALICE
+#endif
+#define RESTORE_THREAD_DATA	THD_restore_specific();
+#else
+extern struct tgbl *gdgbl;
+
+#define GET_THREAD_DATA		(gdgbl)
+#ifdef __cplusplus
+#define SET_THREAD_DATA		gdgbl = tdgbl; \
+				tdgbl->tgbl_thd_data.thdd_type = const_cast<tgbl*>(THDD_TYPE_TGBL)
+#else
+#define SET_THREAD_DATA		gdgbl = tdgbl; \
+				tdgbl->tgbl_thd_data.thdd_type = THDD_TYPE_TGBL
+#endif
+#define RESTORE_THREAD_DATA
+#endif
+
+#if defined(__cplusplus)
+#define EXIT(code)		{  tdgbl->exit_code = (code); \
+					if (tdgbl->alice_env != NULL) \
+					LONGJMP(reinterpret_cast<jmp_buf&>(const_cast<UCHAR*>(tdgbl->alice_env)), 1);  }
+#else
+#define EXIT(code)		{  tdgbl->exit_code = (code); \
+				   if (tdgbl->alice_env != NULL) \
+					LONGJMP(tdgbl->alice_env, 1);  }
+#endif /* __cplusplus */
+
+#define	NOOUTPUT	2
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _ALICE_ALICE_H_ */
diff --git a/src/alice/alice_meta.e b/src/alice/alice_meta.e
new file mode 100644
index 0000000000..ec66daee14
--- /dev/null
+++ b/src/alice/alice_meta.e
@@ -0,0 +1,510 @@
+/*
+ * tab=4
+ *
+ *____________________________________________________________
+ *  
+ *		PROGRAM:	Alice (All Else) Utility
+ *		MODULE:		met.e
+ *		DESCRIPTION:	Metadata lookup routines
+ *  
+ *  The contents of this file are subject to the Interbase Public
+ *  License Version 1.0 (the "License"); you may not use this file
+ *  except in compliance with the License. You may obtain a copy
+ *  of the License at http://www.Inprise.com/IPL.html
+ *  
+ *  Software distributed under the License is distributed on an
+ *  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ *  or implied. See the License for the specific language governing
+ *  rights and limitations under the License.
+ *  
+ *  The Original Code was created by Inprise Corporation
+ *  and its predecessors. Portions created by Inprise Corporation are
+ *  Copyright (C) Inprise Corporation.
+ *  
+ *  All Rights Reserved.
+ *  Contributor(s): ______________________________________.
+ *  
+ *
+ *____________________________________________________________
+ *
+ *	$Id: alice_meta.e,v 1.1.1.1 2001-05-23 13:25:33 tamlin Exp $
+ */
+
+#include <stdio.h>
+#include "../jrd/common.h"
+#include "../jrd/ibsetjmp.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/license.h"
+#include "../alice/alice.h"
+#include "../alice/all.h"
+#include "../alice/alloc.h"
+#include "../alice/all_proto.h"
+#include "../alice/alice_meta.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/thd_proto.h"
+
+/*  Transaction Description Record  */
+
+#define TDR_VERSION		1
+#define TDR_HOST_SITE		1
+#define TDR_DATABASE_PATH	2
+#define TDR_TRANSACTION_ID	3
+#define TDR_REMOTE_SITE		4
+#define TDR_PROTOCOL		5
+
+/*  For service APIs the follow DB handle is #defined to be a value stored    
+ *  in thread data.  This is also done for other statics generated by         
+ *  GPRE.  This is to avoid multiple threading problems with module           
+ *  level statics.
+ */
+DATABASE DB = STATIC FILENAME "yachts.lnk";
+
+#define DB          tdgbl->db_handle
+#define gds__trans  tdgbl->tr_handle
+
+static STR alloc_string(TEXT **);
+static USHORT get_capabilities(STATUS *);
+static TDR get_description(SLONG[2]);
+static void parse_fullpath(TDR);
+static USHORT snarf_blob(SLONG[2], USHORT, TEXT *);
+
+
+/* 
+   table used to determine capabilities, checking for specific 
+   fields in system relations 
+*/
+
+typedef struct rfr_tab_t {
+	TEXT *relation;
+	TEXT *field;
+	int bit_mask;
+} *RFR_TAB;
+
+static struct rfr_tab_t rfr_table[] = {
+	"RDB$TRANSACTIONS", "RDB$TRANSACTION_DESCRIPTION", CAP_transactions,
+	0, 0, 0
+};
+
+#ifdef GUI_TOOLS
+#define RETURN_ERROR(user_status)	\
+	{ memcpy (user_status, gds__status, sizeof (gds__status)); \
+    	 LONGJMP (tdgbl->alice_env, 1); }
+#else
+#define RETURN_ERROR(user_status)	\
+	{ ALICE_print_status (gds__status); \
+    	 LONGJMP (tdgbl->alice_env, 1); }
+#endif
+
+
+/*____________________________________________________________
+ *  
+ *		Disable WAL for the database forcibly.
+ *		Drop all the entries from RDB$LOG_FILES
+ */  
+
+void MET_disable_wal(STATUS * user_status, isc_db_handle handle)
+{
+	SLONG *request = NULL;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (!(DB = handle))
+		return;
+
+	START_TRANSACTION ON_ERROR RETURN_ERROR(user_status) END_ERROR;
+	FOR(REQUEST_HANDLE request)
+	X IN RDB$LOG_FILES ERASE X;
+	END_FOR COMMIT ON_ERROR RETURN_ERROR(user_status) END_ERROR;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Get the state of a transaction,
+ *		assuming that the database has
+ *		already been attached.
+ */  
+
+void MET_get_state(STATUS * user_status, TDR trans)
+{
+	SLONG *request = NULL;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (!(DB = trans->tdr_db_handle) ||
+		!(trans->tdr_db_caps & CAP_transactions)) {
+		trans->tdr_state = TRA_unknown;
+		return;
+	}
+
+	START_TRANSACTION ON_ERROR RETURN_ERROR(user_status) END_ERROR;
+
+	FOR(REQUEST_HANDLE request)
+	TRA IN RDB$TRANSACTIONS WITH
+		TRA.RDB$TRANSACTION_ID = trans->tdr_id
+		trans->tdr_state = TRA.RDB$TRANSACTION_STATE;
+	END_FOR ON_ERROR RETURN_ERROR(user_status) END_ERROR;
+
+	gds__release_request(gds__status, GDS_REF(request));
+	if (gds__status[1]) {
+		RETURN_ERROR(user_status)
+	}
+
+	ROLLBACK ON_ERROR RETURN_ERROR(user_status) END_ERROR;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Get the description of a transaction in
+ *		limbo, including all associated transactions
+ *		in other databases.
+ */  
+
+TDR MET_get_transaction(STATUS * user_status, isc_db_handle handle, SLONG id)
+{
+	SLONG *request = NULL;
+	TDR trans = NULL;
+	USHORT capabilities;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (!(DB = handle))
+		return 0;
+
+	START_TRANSACTION ON_ERROR RETURN_ERROR(user_status) END_ERROR;
+
+	capabilities = get_capabilities(user_status);
+
+	if (capabilities & CAP_transactions) {
+		FOR(REQUEST_HANDLE request)
+		TRA IN RDB$TRANSACTIONS WITH
+			TRA.RDB$TRANSACTION_ID = id AND
+			TRA.RDB$TRANSACTION_DESCRIPTION NOT MISSING
+			trans = get_description(&TRA.RDB$TRANSACTION_DESCRIPTION);
+		END_FOR ON_ERROR RETURN_ERROR(user_status) END_ERROR;
+
+		gds__release_request(gds__status, GDS_REF(request));
+		if (gds__status[1]) {
+			RETURN_ERROR(user_status)
+		}
+	}
+
+	ROLLBACK ON_ERROR RETURN_ERROR(user_status) END_ERROR;
+
+	if (trans)
+		trans->tdr_db_caps = capabilities;
+
+	return trans;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Get the capabilities associated with
+ *		the database for a particular transaction.
+ */  
+
+void MET_set_capabilities(STATUS * user_status, TDR trans)
+{
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (!(DB = trans->tdr_db_handle))
+		return;
+
+	START_TRANSACTION ON_ERROR RETURN_ERROR(user_status) END_ERROR;
+
+	trans->tdr_db_caps = get_capabilities(user_status);
+
+	ROLLBACK ON_ERROR RETURN_ERROR(user_status) END_ERROR;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Eat a string with a byte-encoded length.
+ */  
+
+static STR alloc_string(TEXT ** ptr)
+{
+	TEXT *p, *q;
+	USHORT length;
+	STR string;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	p = *ptr;
+
+	length = (USHORT) * p++;
+	string = (STR) ALLOCDV(type_str, length + 1);
+
+	q = (TEXT *) string->str_data;
+	while (length--)
+		*q++ = *p++;
+	*q = 0;
+
+	*ptr = p;
+
+	return string;
+}
+
+
+
+/*____________________________________________________________
+ *  
+ *		Get the capabilities associated with
+ *		the database for a particular transaction.
+ */  
+
+static USHORT get_capabilities(STATUS * user_status)
+{
+	ULONG *req;
+	RFR_TAB rel_field_table;
+	USHORT capabilities = CAP_none;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	req = NULL;
+
+/*  Look for desired fields in system relations */
+
+	for (rel_field_table = rfr_table; rel_field_table->relation;
+		 rel_field_table++) {
+		FOR(REQUEST_HANDLE req) x IN DB.
+			RDB$RELATION_FIELDS WITH x.RDB$RELATION_NAME =
+			rel_field_table->relation AND x.RDB$FIELD_NAME =
+			rel_field_table->field capabilities |= rel_field_table->bit_mask;
+		END_FOR ON_ERROR RETURN_ERROR(user_status) END_ERROR;
+	}
+
+	gds__release_request(gds__status, GDS_REF(req));
+	if (gds__status[1]) {
+		RETURN_ERROR(user_status)
+	}
+
+	return capabilities;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Get the description of a transaction in
+ *		limbo, including all associated transactions
+ *		in other databases.
+ */  
+
+static TDR get_description(SLONG blob_id[2])
+{
+	SLONG id_length, id;
+	USHORT length;
+	TEXT buffer[1024], *bigger_buffer, *p;
+	TDR trans, ptr;
+	STR host_site, database_path;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	p = buffer;
+	if (length = snarf_blob(blob_id, (USHORT) sizeof(buffer), buffer)) {
+		p = bigger_buffer = (TEXT *) gds__alloc((SLONG) length);
+		snarf_blob(blob_id, length, bigger_buffer);
+	}
+
+	trans = NULL;
+	host_site = database_path = NULL;
+
+/*  skip version number */
+
+	p++;
+
+	while (*p)
+		switch (*p++) {
+		case TDR_HOST_SITE:
+			host_site = alloc_string(&p);
+			break;
+
+		case TDR_DATABASE_PATH:
+			database_path = alloc_string(&p);
+			break;
+
+		case TDR_TRANSACTION_ID:
+			id_length = *p++;
+			id = gds__vax_integer(p, id_length);
+			p += id_length;
+			if (!trans)
+				trans = ptr = (TDR) ALLOCD(type_tdr);
+			else {
+				ptr->tdr_next = (TDR) ALLOCD(type_tdr);
+				ptr = ptr->tdr_next;
+			}
+			ptr->tdr_host_site = host_site;
+			ptr->tdr_fullpath = database_path;
+			parse_fullpath(ptr);
+			ptr->tdr_id = id;
+			database_path = NULL;
+			break;
+
+		default:
+			ALICE_print(108, 0, 0, 0, 0, 0);	/* msg 108: Transaction description item unknown. */
+
+			if (length)
+				gds__free(bigger_buffer);
+			return NULL;
+		}
+
+	if (length)
+		gds__free(bigger_buffer);
+
+	return trans;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Take apart a full remote path specification, 
+ *		finding the filename and the remote site.
+ */  
+
+static void parse_fullpath(TDR trans)
+{
+	TEXT *start, *p, *q, *end;
+	USHORT length;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/*  start at the end of the full pathname */
+
+	start = p = trans->tdr_fullpath->str_data;
+	while (*p)
+		p++;
+	end = p;
+
+/*  Check for a named pipes name - \\node\path\db or //node/path/db */
+	while (p > start &&
+		   !(*p == '/' && *(p - 1) == '/') &&
+		   !(*p == '\\' && *(p - 1) == '\\')) p--;
+
+	if (p > start) {
+		/* Increment p past slash, & search forward for end of node name */
+		p = p + 1;
+		q = p;
+
+		while (*q && *q != '/' && *q != '\\')
+			q++;
+		if (*q) {
+			trans->tdr_filename = q + 1;
+
+			trans->tdr_remote_site = (STR) ALLOCDV(type_str, q - p + 1);
+			strncpy(trans->tdr_remote_site->str_data, p, q - p);
+			trans->tdr_remote_site->str_data[q - p] = '\0';
+		}
+	}
+	else {
+		p = end;
+
+		/* If not named pipes, check the other protocols 
+		 * work backwards until we find a remote protocol specifier
+		 */
+
+		while (p >= start && (*p != '^' && *p != ':' && *p != '@'))
+			p--;
+		trans->tdr_filename = p + 1;
+
+		/* now find the last remote node in the chain */
+
+		while (p > start && (*p == ':' || *p == '^' || *p == '@'))
+			p--;
+		for (length = 0; p >= start && (*p != '^' && *p != ':' && *p != '@');
+			 length++)
+			p--;
+		p++;
+
+		if (length) {
+			trans->tdr_remote_site = (STR) ALLOCDV(type_str, length + 1);
+			q = (TEXT *) trans->tdr_remote_site->str_data;
+			while (length--)
+				*q++ = *p++;
+			*q = 0;
+		}
+	}
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Get a blob into a buffer, returning the
+ *		size of the blob if the passed buffer 
+ *		is not big enough.
+ */  
+
+static USHORT snarf_blob(SLONG blob_id[2],
+						 USHORT buffer_length, TEXT * buffer)
+{
+	USHORT returned_length;
+	TEXT *ptr, *end;
+	STATUS status;
+	int *blob;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (buffer_length)
+		buffer[0] = 0;
+	if (buffer_length > 1)
+		buffer[1] = 0;
+
+	blob = NULL;
+	if (gds__open_blob(gds__status,
+					   GDS_REF(DB),
+					   GDS_REF(gds__trans), GDS_REF(blob), GDS_VAL(blob_id))) {
+		ALICE_print_status(gds__status);
+		return 0;
+	}
+
+/*  get the blob into the buffer, if it fits */
+
+	ptr = buffer;
+	end = buffer + buffer_length;
+	for (;;) {
+		if (ptr >= end)
+			break;
+		if (!(buffer_length = end - ptr))
+			break;
+		status = gds__get_segment(gds__status,
+								  GDS_REF(blob),
+								  GDS_REF(returned_length),
+								  buffer_length, GDS_VAL(ptr));
+		if (status && status != gds__segment)
+			break;
+		ptr += returned_length;
+	}
+
+/*  snarf failed, get length of blob for retry */
+
+	if (!buffer_length)
+		for (;;) {
+			status = gds__get_segment(gds__status,
+									  GDS_REF(blob),
+									  GDS_REF(returned_length),
+									  buffer_length, buffer);
+			if (status && status != gds__segment)
+				break;
+			buffer_length += returned_length;
+		}
+	else
+		buffer_length = 0;
+
+	gds__close_blob(gds__status, GDS_REF(blob));
+
+	*ptr = 0;
+
+	return buffer_length;
+}
diff --git a/src/alice/alice_meta.h b/src/alice/alice_meta.h
new file mode 100644
index 0000000000..afa461e8f2
--- /dev/null
+++ b/src/alice/alice_meta.h
@@ -0,0 +1,39 @@
+/*
+ *	PROGRAM:	Alice (All Else) Utility
+ *	MODULE:		alice_meta.h
+ *	DESCRIPTION:	Prototype header file for alice_meta.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef ALICE_ALICE_META_H
+#define ALICE_ALICE_META_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void	MET_disable_wal(STATUS*, isc_db_handle);
+void	MET_get_state(STATUS*, TDR);
+TDR		MET_get_transaction(STATUS*, isc_db_handle, SLONG);
+void	MET_set_capabilities(STATUS*, TDR);
+
+#ifdef __cplusplus
+}
+#endif
+#endif /* ALICE_ALICE_META_H */
diff --git a/src/alice/alice_proto.h b/src/alice/alice_proto.h
new file mode 100644
index 0000000000..06701d8970
--- /dev/null
+++ b/src/alice/alice_proto.h
@@ -0,0 +1,43 @@
+/*
+ *	PROGRAM:	Alice (All Else) Utility
+ *	MODULE:		alice_proto.h
+ *	DESCRIPTION:	Prototype header file for alice.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ALICE_ALICE_PROTO_H_
+#define _ALICE_ALICE_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+typedef int (DLL_EXPORT * OUTPUTPROC) (SLONG, UCHAR *);
+
+void	ALICE_down_case(TEXT*, TEXT*);
+int		ALICE_gfix(int, char**, OUTPUTPROC, SLONG);
+void	ALICE_print(USHORT, TEXT*, TEXT*, TEXT*, TEXT*, TEXT*);
+void	ALICE_error(USHORT, TEXT*, TEXT*, TEXT*, TEXT*, TEXT*);
+void	ALICE_print_status(STATUS*);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _ALICE_ALICE_PROTO_H_ */
diff --git a/src/alice/aliceswi.h b/src/alice/aliceswi.h
new file mode 100644
index 0000000000..051512557d
--- /dev/null
+++ b/src/alice/aliceswi.h
@@ -0,0 +1,264 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef	ALICE_ALICESWI_H
+#define	ALICE_ALICESWI_H
+
+#include "../jrd/common.h"
+#include "../jrd/ibase.h"
+
+/* switch definitions */
+
+#define sw_list				0x00000001L	/* Byte 0, Bit 0 */
+#define sw_prompt			0x00000002L
+#define sw_commit			0x00000004L
+#define sw_rollback			0x00000008L
+#define sw_sweep			0x00000010L
+#define sw_validate			0x00000020L
+#define sw_no_update		0x00000040L
+#define sw_full				0x00000080L
+#define sw_mend				0x00000100L	/* Byte 1, Bit 0 */
+#define sw_all				0x00000200L
+#define sw_enable			0x00000400L
+#define sw_disable			0x00000800L
+#define sw_ignore			0x00001000L
+#define sw_activate			0x00002000L
+#define sw_two_phase		0x00004000L
+#define sw_housekeeping		0x00008000L
+#define sw_kill				0x00010000L	/* Byte 2, Bit 0 */
+#define sw_begin_log		0x00020000L
+#define sw_quit_log			0x00040000L
+#define sw_write			0x00080000L
+#define sw_use				0x00100000L
+#define sw_user				0x00200000L
+#define sw_password			0x00400000L
+#define sw_shut				0x00800000L
+#define sw_online			0x01000000L	/* Byte 3, Bit 0 */
+#define sw_cache			0x02000000L
+#define sw_attach			0x04000000L
+#define sw_force			0x08000000L
+#define sw_tran				0x10000000L
+#define sw_buffers			0x20000000L
+#define sw_mode				0x40000000L
+#define sw_set_db_dialect	0x80000000L
+#define sw_z				0x0L
+
+#define SW_MEND         sw_mend | sw_validate | sw_full
+
+#define IN_SW_ALICE_0					0	/* not a known switch */
+#define IN_SW_ALICE_LIST				1
+#define IN_SW_ALICE_PROMPT				2
+#define IN_SW_ALICE_COMMIT				3
+#define IN_SW_ALICE_ROLLBACK			4
+#define IN_SW_ALICE_SWEEP				5
+#define IN_SW_ALICE_VALIDATE			6
+#define IN_SW_ALICE_NO_UPDATE			7
+#define IN_SW_ALICE_FULL				8
+#define IN_SW_ALICE_MEND				9
+#define IN_SW_ALICE_ALL					10
+#define IN_SW_ALICE_ENABLE				11
+#define IN_SW_ALICE_DISABLE				12
+#define IN_SW_ALICE_IGNORE				13
+#define IN_SW_ALICE_ACTIVATE			14
+#define IN_SW_ALICE_TWO_PHASE			15
+#define IN_SW_ALICE_HOUSEKEEPING		16
+#define IN_SW_ALICE_KILL				17
+#define IN_SW_ALICE_BEGIN_LOG			18
+#define IN_SW_ALICE_QUIT_LOG			19
+#define IN_SW_ALICE_WRITE				20
+#define IN_SW_ALICE_USE					21
+#define IN_SW_ALICE_USER				22
+#define IN_SW_ALICE_PASSWORD			23
+#define IN_SW_ALICE_SHUT				24
+#define IN_SW_ALICE_ONLINE				25
+#define IN_SW_ALICE_CACHE				26
+#define IN_SW_ALICE_ATTACH				27
+#define IN_SW_ALICE_FORCE				28
+#define IN_SW_ALICE_TRAN				29
+#define IN_SW_ALICE_BUFFERS				30
+#define IN_SW_ALICE_Z					31
+#define IN_SW_ALICE_X					32	/* set debug mode on */
+#define IN_SW_ALICE_HIDDEN_ASYNC		33
+#define IN_SW_ALICE_HIDDEN_SYNC			34
+#define IN_SW_ALICE_HIDDEN_USEALL		35
+#define IN_SW_ALICE_HIDDEN_RESERVE		36
+#define IN_SW_ALICE_HIDDEN_RDONLY		37
+#define IN_SW_ALICE_HIDDEN_RDWRITE		38
+#define IN_SW_ALICE_MODE				39
+#define IN_SW_ALICE_HIDDEN_FORCE		40
+#define IN_SW_ALICE_HIDDEN_TRAN			41
+#define IN_SW_ALICE_HIDDEN_ATTACH		42
+#define IN_SW_ALICE_SET_DB_SQL_DIALECT	43
+
+#define ALICE_SW_ASYNC		"async"
+#define ALICE_SW_SYNC		"sync"
+#define ALICE_SW_MODE_RO	"read_only"
+#define ALICE_SW_MODE_RW	"read_write"
+
+/* Switch table */
+static struct in_sw_tab_t alice_in_sw_table[] =
+{
+	IN_SW_ALICE_ACTIVATE, isc_spb_prp_activate, "activate", sw_activate,
+	0, ~sw_activate, FALSE, 25, 0, NULL,
+	/* msg 25: \t-activate shadow file for database usage */
+	IN_SW_ALICE_ATTACH, 0, "attach", sw_attach,
+	sw_shut, 0, FALSE, 26, 0, NULL,
+	/* msg 26: \t-attach\tshutdown new database attachments */
+#ifdef DEV_BUILD
+	IN_SW_ALICE_BEGIN_LOG, 0, "begin_log", sw_begin_log,
+	0, ~sw_begin_log, FALSE, 27, 0, NULL,
+	/* msg 27: \t-begin_log\tbegin logging for replay utility */
+#endif
+	IN_SW_ALICE_BUFFERS, isc_spb_prp_page_buffers, "buffers", sw_buffers,
+	0, 0, FALSE, 28, 0, NULL,
+	/* msg 28: \t-buffers\tset page buffers <n> */
+	IN_SW_ALICE_COMMIT, isc_spb_rpr_commit_trans, "commit", sw_commit,
+	0, ~sw_commit, FALSE, 29, 0, NULL,
+	/* msg 29: \t-commit\t\tcommit transaction <tr / all> */
+	IN_SW_ALICE_CACHE, 0, "cache", sw_cache,
+	sw_shut, 0, FALSE, 30, 0, NULL,
+	/* msg 30: \t-cache\t\tshutdown cache manager */
+#ifdef DEV_BUILD
+	IN_SW_ALICE_DISABLE, 0, "disable", sw_disable,
+	0, 0, FALSE, 31, 0, NULL,
+	/* msg 31: \t-disable\tdisable WAL */
+#endif
+	IN_SW_ALICE_FULL, isc_spb_rpr_full, "full", sw_full,
+	sw_validate, 0, FALSE, 32, 0, NULL,
+	/* msg 32: \t-full\t\tvalidate record fragments (-v) */
+	IN_SW_ALICE_FORCE, 0, "force", sw_force,
+	sw_shut, 0, FALSE, 33, 0, NULL,
+	/* msg 33: \t-force\t\tforce database shutdown */
+	IN_SW_ALICE_HOUSEKEEPING, isc_spb_prp_sweep_interval, "housekeeping",
+	sw_housekeeping,
+	0, 0, FALSE, 34, 0, NULL,
+	/* msg 34: \t-housekeeping\tset sweep interval <n> */
+	IN_SW_ALICE_IGNORE, isc_spb_rpr_ignore_checksum, "ignore", sw_ignore,
+	0, 0, FALSE, 35, 0, NULL,
+	/* msg 35: \t-ignore\t\tignore checksum errors */
+	IN_SW_ALICE_KILL, isc_spb_rpr_kill_shadows, "kill", sw_kill,
+	0, 0, FALSE, 36, 0, NULL,
+	/* msg 36: \t-kill\t\tkill all unavailable shadow files */
+	IN_SW_ALICE_LIST, isc_spb_rpr_list_limbo_trans, "list", sw_list,
+	0, ~sw_list, FALSE, 37, 0, NULL,
+	/* msg 37: \t-list\t\tshow limbo transactions */
+	IN_SW_ALICE_MEND, isc_spb_rpr_mend_db, "mend", SW_MEND,
+	0, ~sw_no_update, FALSE, 38, 0, NULL,
+	/* msg 38: \t-mend\t\tprepare corrupt database for backup */
+#ifdef READONLY_DATABASE
+	IN_SW_ALICE_MODE, 0, "mode", sw_mode,
+	0, ~sw_mode, FALSE, 109, 0, NULL,
+	/* msg 109: \t-mode\t\tread_only or read_write */
+#endif							/* READONLY_DATABASE */
+	IN_SW_ALICE_NO_UPDATE, isc_spb_rpr_check_db, "no_update", sw_no_update,
+	sw_validate, 0, FALSE, 39, 0, NULL,
+	/* msg 39: \t-no_update\tread-only validation (-v) */
+	IN_SW_ALICE_ONLINE, isc_spb_prp_db_online, "online", sw_online,
+	0, 0, FALSE, 40, 0, NULL,
+	/* msg 40: \t-online\t\tdatabase online */
+	IN_SW_ALICE_PROMPT, 0, "prompt", sw_prompt,
+	sw_list, 0, FALSE, 41, 0, NULL,
+	/* msg 41: \t-prompt\t\tprompt for commit/rollback (-l) */
+	IN_SW_ALICE_PASSWORD, 0, "password", sw_password,
+	0, 0, FALSE, 42, 0, NULL,
+	/* msg 42: \t-password\tdefault password */
+#ifdef DEV_BUILD
+	IN_SW_ALICE_QUIT_LOG, 0, "quit_log", sw_quit_log,
+	0, ~sw_quit_log, FALSE, 43, 0, NULL,
+	/* msg 43: \t-quit_log\tquit logging for replay utility */
+#endif
+	IN_SW_ALICE_ROLLBACK, isc_spb_rpr_rollback_trans, "rollback", sw_rollback,
+	0, ~sw_rollback, FALSE, 44, 0, NULL,
+	/* msg 44: \t-rollback\trollback transaction <tr / all> */
+	IN_SW_ALICE_SET_DB_SQL_DIALECT,
+	isc_spb_prp_set_sql_dialect,
+	"sql_dialect",
+	sw_set_db_dialect,
+	0,
+	0,
+	FALSE,
+	111,
+	0,
+	NULL,
+	/* msg 111: \t-SQL_dialect\t\set dataabse dialect n */
+	IN_SW_ALICE_SWEEP, isc_spb_rpr_sweep_db, "sweep", sw_sweep,
+	0, ~sw_sweep, FALSE, 45, 0, NULL,
+	/* msg 45: \t-sweep\t\tforce garbage collection */
+	IN_SW_ALICE_SHUT, 0, "shut", sw_shut,
+	0, ~(sw_shut |
+		 sw_attach | sw_cache | sw_force | sw_tran), FALSE, 46, 0, NULL,
+	/* msg 46: \t-shut\t\tshutdown */
+	IN_SW_ALICE_TWO_PHASE, isc_spb_rpr_recover_two_phase, "two_phase",
+	sw_two_phase,
+	0, ~sw_two_phase, FALSE, 47, 0, NULL,
+	/* msg 47: \t-two_phase\tperform automated two-phase recovery */
+	IN_SW_ALICE_TRAN, 0, "tran", sw_tran,
+	sw_shut, 0, FALSE, 48, 0, NULL,
+	/* msg 48: \t-tran\t\tshutdown transaction startup */
+	IN_SW_ALICE_USE, 0, "use", sw_use,
+	0, ~sw_use, FALSE, 49, 0, NULL,
+	/* msg 49: \t-use\t\tuse full or reserve space for versions */
+	IN_SW_ALICE_USER, 0, "user", sw_user,
+	0, 0, FALSE, 50, 0, NULL,
+	/* msg 50: \t-user\t\tdefault user name */
+	IN_SW_ALICE_VALIDATE, isc_spb_rpr_validate_db, "validate", sw_validate,
+	0, ~sw_validate, FALSE, 51, 0, NULL,
+	/* msg 51: \t-validate\tvalidate database structure */
+	IN_SW_ALICE_WRITE, 0, "write", sw_write,
+	0, ~sw_write, FALSE, 52, 0, NULL,
+	/* msg 52: \t-write\t\twrite synchronously or asynchronously */
+#ifdef DEV_BUILD
+	IN_SW_ALICE_X, 0, "x", 0,
+	0, 0, FALSE, 53, 0, NULL,
+	/* msg 53: \t-x\t\tset debug on */
+#endif
+	IN_SW_ALICE_Z, 0, "z", sw_z,
+	0, 0, FALSE, 54, 0, NULL,
+	/* msg 54: \t-z\t\tprint software version number */
+/************************************************************************/
+/* WARNING: All new switches should be added right before this comments */
+/************************************************************************/
+/* The next nine 'virtual' switches are hidden from user and are needed
+   for services API
+ ************************************************************************/
+	IN_SW_ALICE_HIDDEN_ASYNC, isc_spb_prp_wm_async, "write async", 0, 0, 0,
+	FALSE, 0, 0, NULL,
+	IN_SW_ALICE_HIDDEN_SYNC, isc_spb_prp_wm_sync, "write sync", 0, 0, 0,
+	FALSE, 0, 0, NULL,
+	IN_SW_ALICE_HIDDEN_USEALL, isc_spb_prp_res_use_full, "use full", 0, 0, 0,
+	FALSE, 0, 0, NULL,
+	IN_SW_ALICE_HIDDEN_RESERVE, isc_spb_prp_res, "use reserve", 0, 0, 0,
+	FALSE, 0, 0, NULL,
+	IN_SW_ALICE_HIDDEN_FORCE, isc_spb_prp_shutdown_db, "shut -force", 0, 0, 0,
+	FALSE, 0, 0, NULL,
+	IN_SW_ALICE_HIDDEN_TRAN, isc_spb_prp_deny_new_transactions, "shut -tran",
+	0, 0, 0, FALSE, 0, 0, NULL,
+	IN_SW_ALICE_HIDDEN_ATTACH, isc_spb_prp_deny_new_attachments,
+	"shut -attach", 0, 0, 0, FALSE, 0, 0, NULL,
+#ifdef READONLY_DATABASE
+	IN_SW_ALICE_HIDDEN_RDONLY, isc_spb_prp_am_readonly, "mode read_only", 0,
+	0, 0, FALSE, 0, 0, NULL,
+	IN_SW_ALICE_HIDDEN_RDWRITE, isc_spb_prp_am_readwrite, "mode read_write",
+	0, 0, 0, FALSE, 0, 0, NULL,
+#endif							/* READONLY_DATABASE */
+/************************************************************************/
+	IN_SW_ALICE_0, 0, NULL, 0,
+	0, 0, FALSE, 0, 0, NULL
+};
+
+#endif /* ALICE_ALICESWI_H */
diff --git a/src/alice/all.cpp b/src/alice/all.cpp
new file mode 100644
index 0000000000..4c65a93b60
--- /dev/null
+++ b/src/alice/all.cpp
@@ -0,0 +1,548 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	Alice (All Else) Utility
+//		MODULE:		all.cpp
+//		DESCRIPTION:	Block allocator
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  
+//
+//____________________________________________________________
+//
+//	$Id: all.cpp,v 1.1.1.1 2001-05-23 13:25:33 tamlin Exp $
+//
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include "../jrd/ibsetjmp.h"
+#include "../alice/alice.h"
+#include "../alice/all.h"
+#include "../alice/alloc.h"
+#include "../alice/lls.h"
+#include "../alice/all_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/thd_proto.h"
+
+#define BLKDEF(type, root, tail) sizeof (struct root), tail,
+static struct {
+	SSHORT typ_root_length;
+	SSHORT typ_tail_length;
+} block_sizes[] = {
+	0, 0,
+#include "../alice/blk.h"
+0};
+
+#undef BLKDEF
+
+static void extend_pool(PLB, SLONG);
+static PLB find_pool(BLK);
+static void release(FRB, PLB);
+
+
+
+//____________________________________________________________
+//  
+//		Allocate a block from a given pool and initialize the block.
+//		This is the primary block allocation routine.
+//  
+
+BLK ALLA_alloc(PLB pool, UCHAR type, int count)
+{
+	register BLK block;
+	FRB free, *best, *ptr;
+	SLONG best_tail, tail;
+	USHORT units;
+	register SLONG size;
+	register USHORT *p;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (type <= (UCHAR) type_MIN || type >= (SCHAR) type_MAX)
+		ALICE_error(62, 0, 0, 0, 0, 0);	/* msg 62: bad block type */
+
+//  Compute block length 
+
+	size = block_sizes[type].typ_root_length;
+
+	if ((tail = block_sizes[type].typ_tail_length) && count >= FUDGE)
+		size += (count - FUDGE) * tail;
+
+	size = (size + MIN_ALLOC - 1) & ~((ULONG) MIN_ALLOC - 1);
+//  TMN: Here we should probably have the following assert 
+//  assert((size >> SHIFT) <= MAX_USHORT); 
+	units = (USHORT) (size >> SHIFT);
+
+	if (size >= MAX_BLOCK)
+		ALICE_error(63, 0, 0, 0, 0, 0);	/* msg 63:internal block exceeds maximum size */
+
+//  Find best fit.  Best fit is defined to be the free block of shortest
+//  tail.  If there isn't a fit, extend the pool and try, try again. 
+
+	while (TRUE) {
+		best = NULL;
+		best_tail = MAX_BLOCK;
+		for (ptr = &pool->plb_free; (free = *ptr); ptr = &free->frb_next) {
+			if (free == free->frb_next)
+				ALICE_error(64, 0, 0, 0, 0, 0);	/* msg 64: corrupt pool */
+			if ((tail = (int) free->frb_header.blk_length - (int) units) >= 0
+				&& tail < best_tail) {
+				best = ptr;
+				best_tail = tail;
+				if (tail == 0)
+					break;
+			}
+		}
+		if (best)
+			break;
+		extend_pool(pool, size);
+	}
+
+//  We've got our free block.  If there's enough left of the free block
+//  after taking out our block, chop out out block.  If not, allocate
+//  the entire free block as our block (a little extra won't hurt). 
+
+	best_tail <<= SHIFT;
+	free = *best;
+
+	if (best_tail > sizeof(struct frb)) {
+		block =
+			(BLK) ((SCHAR *) free + (free->frb_header.blk_length << SHIFT));
+		block = (BLK) ((SCHAR *) block - size);
+		free->frb_header.blk_length -= units;
+	}
+	else {
+		*best = free->frb_next;
+		units = free->frb_header.blk_length;
+		size = units << SHIFT;
+		block = (BLK) free;
+	}
+
+//  zero out the allocated memory 
+
+	size >>= 1;
+	p = (USHORT *) block;
+	do
+		*p++ = 0;
+	while (--size);
+
+	block->blk_type = type;
+//  TMN: Here we should probably have the following assert 
+//  assert(pool->plb_pool_id <= MAX_UCHAR); 
+	block->blk_pool_id = (UCHAR) pool->plb_pool_id;
+	block->blk_length = units;
+
+	return block;
+}
+
+
+//____________________________________________________________
+//  
+//		Extend a repeating block, copying the constant part.
+//  
+
+BLK ALLA_extend(BLK * pointer, int size)
+{
+	BLK block;
+	PLB pool;
+	SLONG old_length, new_length;
+	register SCHAR *from, *to;
+	register SSHORT length;
+
+	block = *pointer;
+	pool = find_pool(block);
+	BLK new_ = ALLA_alloc(pool, block->blk_type, size);
+
+	old_length = block->blk_length << SHIFT;
+	new_length = new_->blk_length << SHIFT;
+
+	from = (SCHAR *) block + sizeof(struct blk);
+	to = (SCHAR *) new_ + sizeof(struct blk);
+	length = MIN(old_length, new_length) - sizeof(struct blk);
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+
+	release(reinterpret_cast < frb * >(block), pool);
+
+	if (new_->blk_type == (UCHAR) type_vec)
+		((VEC) new_)->vec_count = size;
+	else if (new_->blk_type == (UCHAR) type_vcl)
+		((VCL) new_)->vcl_count = size;
+
+	*pointer = new_;
+
+	return new_;
+}
+
+
+//____________________________________________________________
+//  
+//		Get rid of everything.
+//  
+
+void ALLA_fini(void)
+{
+	register PLB pool, *vector, *until;
+	register HNK hunks, hunk;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (tdgbl->pools) {
+		for (vector =
+			 (PLB *) tdgbl->pools->vec_object + tdgbl->pools->vec_count,
+			 until = (PLB *) tdgbl->pools->vec_object; --vector >= until;)
+			if (pool = *vector)
+				for (hunks = pool->plb_hunks; hunk = hunks;) {
+					hunks = hunk->hnk_next;
+					ALLA_free(hunk->hnk_address);
+				}
+	}
+
+	tdgbl->pools = NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Give space back to system.
+//  
+
+void ALLA_free(SCHAR * memory)
+{
+
+	gds__free(memory);
+}
+
+
+//____________________________________________________________
+//  
+//		Initialize the pool system.
+//  
+
+void ALLA_init(void)
+{
+	SLONG temp_vector[20];
+	VEC vector;
+	PLB pool;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	tdgbl->pools = vector = (VEC) temp_vector;
+	vector->vec_count = 1;
+	vector->vec_object[0] = NULL;
+
+	tdgbl->ALICE_default_pool = tdgbl->ALICE_permanent_pool = pool =
+		ALLA_pool();
+	tdgbl->pools = vector = (VEC) ALLA_alloc(pool, type_vec, 10);
+	vector->vec_count = 10;
+	vector->vec_object[0] = (BLK) pool;
+}
+
+
+//____________________________________________________________
+//  
+//		Get memory from system.
+//  
+
+SCHAR *ALLA_malloc(SLONG size)
+{
+	register SCHAR *memory;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (memory = (SCHAR *) gds__alloc(size))
+		return memory;
+
+	ALICE_error(65, 0, 0, 0, 0, 0);	/* msg 65: virtual memory exhausted */
+	return (SCHAR *) 0;			/* Keep compilers happy. ALICE_error() never returns. */
+}
+
+
+//____________________________________________________________
+//  
+//		Allocate a new pool.  This is done by creating a tempory
+//		pool block on the stack, then allocating a real pool block.
+//		In USHORT, by mirrors.
+//  
+
+PLB ALLA_pool(void)
+{
+	struct plb temp_pool;
+	register VEC vector;
+	register PLB pool;
+	register int pool_id;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+
+//  Start by assigning a pool id 
+
+	vector = tdgbl->pools;
+
+	for (pool_id = 0; pool_id < (int) vector->vec_count; pool_id++)
+		if (!(vector->vec_object[pool_id]))
+			break;
+
+	if (pool_id >= (int) vector->vec_count)
+		vector =
+			(VEC) ALLA_extend(reinterpret_cast < blk ** >(&(tdgbl->pools)),
+							  pool_id + 10);
+
+	vector->vec_object[pool_id] = (BLK) & temp_pool;
+	temp_pool.plb_free = NULL;
+	temp_pool.plb_hunks = NULL;
+	temp_pool.plb_pool_id = pool_id;
+	if (pool_id == 0)
+		tdgbl->ALICE_permanent_pool = &temp_pool;
+
+	pool = (PLB) ALLA_alloc(&temp_pool, type_plb, 0);
+	pool->plb_pool_id = pool_id;
+	pool->plb_free = temp_pool.plb_free;
+	pool->plb_hunks = temp_pool.plb_hunks;
+	vector->vec_object[pool_id] = (BLK) pool;
+
+	if (pool_id == 0)
+		tdgbl->ALICE_permanent_pool = pool;
+
+	return pool;
+}
+
+
+//____________________________________________________________
+//  
+//		Push an object on an LLS stack.
+//  
+
+void ALLA_push(BLK object, register LLS * stack)
+{
+	register LLS node;
+	PLB pool;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	pool = tdgbl->ALICE_default_pool;
+
+	if (node = pool->plb_lls)
+		pool->plb_lls = node->lls_next;
+	else
+		node = (LLS) ALLA_alloc(pool, type_lls, 0);
+
+	node->lls_object = object;
+	node->lls_next = *stack;
+	*stack = node;
+}
+
+
+//____________________________________________________________
+//  
+//		Pop an object off a linked list stack.  Save the node for
+//		further use.
+//  
+
+BLK ALLA_pop(register LLS * stack)
+{
+	register LLS node;
+	register PLB pool;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+
+	node = *stack;
+	pool = (PLB) tdgbl->pools->vec_object[node->lls_header.blk_pool_id];
+	*stack = node->lls_next;
+	node->lls_next = pool->plb_lls;
+	pool->plb_lls = node;
+
+	return node->lls_object;
+}
+
+
+//____________________________________________________________
+//  
+//		Release a block to its pool.  If it is contiguous to
+//		another free block, combine them.  Otherwise link it
+//		into the free block linked list (kept in ascending order
+//		of addresses).
+//  
+
+void ALLA_release(register FRB block)
+{
+
+	release(block, find_pool(block ? &block->frb_header : (BLK) 0));
+}
+
+
+//____________________________________________________________
+//  
+//		Release a storage pool.  This involves nothing more than returning
+//		hunks to the free hunk list.
+//  
+
+void ALLA_rlpool(PLB pool)
+{
+	register HNK hunk, hunks;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+
+	tdgbl->pools->vec_object[pool->plb_pool_id] = NULL;
+
+	for (hunks = pool->plb_hunks; hunk = hunks;) {
+		hunks = hunk->hnk_next;
+		ALLA_free(hunk->hnk_address);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Allocate, extend, or no-op a vector making sure it is "long enough".
+//  
+
+VEC ALLA_vector(PLB pool, VEC * ptr, USHORT count)
+{
+	VEC vector;
+
+	++count;
+
+	if (!(vector = *ptr)) {
+		vector = *ptr = (VEC) ALLA_alloc(pool, type_vec, count);
+		vector->vec_count = count;
+		return vector;
+	}
+
+	if (vector->vec_count >= count)
+		return vector;
+
+	return (VEC) ALLA_extend(reinterpret_cast < blk ** >(ptr), count);
+}
+
+
+//____________________________________________________________
+//  
+//		Extend a pool by at least enough to accomodate a block
+//		of given size.
+//  
+
+static void extend_pool(PLB pool, SLONG size)
+{
+	register HNK hunk;
+	register BLK block;
+
+	size =
+		(size + sizeof(struct hnk) + MIN_ALLOCATION -
+		 1) & ~((ULONG) MIN_ALLOCATION - 1);
+	block = (BLK) ALLA_malloc((SLONG) size);
+//  TMN: Here we should probably have the following assert 
+//  assert((size >> SHIFT) <= MAX_USHORT); 
+	block->blk_length = (USHORT) size >> SHIFT;
+	block->blk_type = (UCHAR) type_frb;
+//  TMN: Here we should probably have the following assert 
+//  assert(pool->plb_pool_id <= MAX_UCHAR); 
+	block->blk_pool_id = (UCHAR) pool->plb_pool_id;
+	release(reinterpret_cast < frb * >(block), pool);
+
+	hunk = (HNK) ALLA_alloc(pool, type_hnk, 0);
+	hunk->hnk_address = (SCHAR *) block;
+	hunk->hnk_length = size;
+	hunk->hnk_next = pool->plb_hunks;
+	pool->plb_hunks = hunk;
+}
+
+
+//____________________________________________________________
+//  
+//		Find pool associate with block.
+//  
+
+static PLB find_pool(BLK block)
+{
+	PLB pool;
+	HNK hunk;
+	USHORT pool_id;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+
+	for (pool_id = block->blk_pool_id;
+		 pool_id < tdgbl->pools->vec_count
+		 && (pool = (PLB) tdgbl->pools->vec_object[pool_id]); pool_id += 256)
+		for (hunk = pool->plb_hunks; hunk; hunk = hunk->hnk_next)
+			if ((SCHAR *) block >= hunk->hnk_address
+				&& (SCHAR *) block < hunk->hnk_address + hunk->hnk_length)
+				return pool;
+
+	ALICE_error(66, 0, 0, 0, 0, 0);	/* msg 66: bad pool id */
+	return (PLB) 0;				/* Keep compilers happy. ALICE_error() never returns. */
+}
+
+
+//____________________________________________________________
+//  
+//		Release a block to its pool.  If it is contiguous to
+//		another free block, combine them.  Otherwise link it
+//		into the free block linked list (kept in ascending order
+//		of addresses).
+//  
+
+static void release(FRB block, PLB pool)
+{
+	register FRB prior, free;
+	FRB *ptr;
+	SLONG length;
+
+	block->frb_header.blk_type = (UCHAR) type_frb;
+	prior = NULL;
+
+	for (ptr = &pool->plb_free; free = *ptr;
+		 prior = free, ptr = &free->frb_next) if (block < free)
+			break;
+
+//  Merge block into list first, then try to combine blocks 
+
+	block->frb_next = free;
+	*ptr = block;
+
+//  Try to merge the free block with the next one down. 
+
+	length = block->frb_header.blk_length << SHIFT;
+
+	if (free && (SCHAR *) block + length == (SCHAR *) free) {
+		block->frb_header.blk_length += free->frb_header.blk_length;
+		block->frb_next = free->frb_next;
+	}
+
+//  Try and merge the block with the prior free block 
+
+	if (prior &&
+		(length = prior->frb_header.blk_length << SHIFT) &&
+		(SCHAR *) prior + length == (SCHAR *) block) {
+		prior->frb_header.blk_length += block->frb_header.blk_length;
+		prior->frb_next = block->frb_next;
+	}
+}
diff --git a/src/alice/all.h b/src/alice/all.h
new file mode 100644
index 0000000000..1299de30e2
--- /dev/null
+++ b/src/alice/all.h
@@ -0,0 +1,76 @@
+/*
+ *	PROGRAM:	Alice
+ *	MODULE:		all.h
+ *	DESCRIPTION:	Data allocation declarations
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ALICE_ALL_H_
+#define _ALICE_ALL_H_
+
+#if ALIGNMENT == 8
+#define MIN_ALLOC	8
+#else
+#define MIN_ALLOC	4
+#endif
+
+#define MAX_BLOCK	256000
+#define	FUDGE		1
+#define SHIFT		2
+
+#define MIN_ALLOCATION 1024		/* Minimin allocation from operating system */
+
+/* This is the header to be used by all blocks to
+   specify the type of block, the pool in which it has
+   been allocated, and the length of its tail. */
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+/* Free block */
+
+typedef struct frb
+{
+	struct blk frb_header;
+	struct frb *frb_next;		/* Next free block in pool */
+} *FRB;
+
+/* Pool block */
+
+typedef struct plb
+{
+	struct blk plb_header;
+	USHORT plb_pool_id;			/* pool id */
+	struct frb *plb_free;		/* first free block */
+	struct hnk *plb_hunks;		/* first hunk block */
+	struct lls *plb_lls;		/* avaiable linked list stack nodes */
+} *PLB;
+
+/* Hunk blocks */
+
+typedef struct hnk
+{
+	struct blk hnk_header;
+	SCHAR *hnk_address;			/* start of memory hunk */
+	SLONG hnk_length;			/* length of memory hunk */
+	struct hnk *hnk_next;		/* next memory hunk in structure */
+} *HNK;
+
+#endif /* _ALICE_ALL_H_ */
diff --git a/src/alice/all_proto.h b/src/alice/all_proto.h
new file mode 100644
index 0000000000..f608f0c1ad
--- /dev/null
+++ b/src/alice/all_proto.h
@@ -0,0 +1,50 @@
+/*
+ *	PROGRAM:	Alice (All Else) Utility
+ *	MODULE:		all_proto.h
+ *	DESCRIPTION:	Prototype header file for all.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ALICE_ALL_PROTO_H_
+#define _ALICE_ALL_PROTO_H_
+
+#include "../alice/lls.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+BLK		ALLA_alloc(PLB, UCHAR, int);
+BLK		ALLA_extend(BLK *, int);
+void	ALLA_fini(void);
+void	ALLA_free(SCHAR *);
+void	ALLA_init(void);
+SCHAR*	ALLA_malloc(SLONG);
+PLB		ALLA_pool(void);
+void	ALLA_push(BLK, register LLS *);
+BLK		ALLA_pop(register LLS *);
+void	ALLA_release(register FRB);
+void	ALLA_rlpool(PLB);
+VEC		ALLA_vector(PLB, VEC *, USHORT);
+
+#ifdef __cplusplus
+};
+#endif
+
+#endif /* _ALICE_ALL_PROTO_H_ */
diff --git a/src/alice/alloc.h b/src/alice/alloc.h
new file mode 100644
index 0000000000..ca74671a4c
--- /dev/null
+++ b/src/alice/alloc.h
@@ -0,0 +1,35 @@
+/*
+ *	PROGRAM:	Alice
+ *	MODULE:		alloc.h
+ *	DESCRIPTION:	Data allocation macros
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ALICE_ALLOC_H_
+#define _ALICE_ALLOC_H_
+
+#define ALL_release(blk)	ALLA_release (blk)
+#define ALLOCD(type)		ALLA_alloc (tdgbl->ALICE_default_pool, type, 0)
+#define ALLOCDV(type,repeat)	ALLA_alloc (tdgbl->ALICE_default_pool, type, repeat)
+#define ALLOCP(type)		ALLA_alloc (tdgbl->ALICE_permanent_pool, type, 0)
+#define ALLOCPV(type,repeat)	ALLA_alloc (tdgbl->ALICE_permanent_pool, type, repeat)
+#define ALLOC(type,pool)	ALLA_alloc (pool, type, 0)
+#define ALLOCV(type,pool,repeat) ALLA_alloc (pool, type, repeat)
+
+#endif /* _ALICE_ALLOC_H_ */
diff --git a/src/alice/blk.h b/src/alice/blk.h
new file mode 100644
index 0000000000..5999594c17
--- /dev/null
+++ b/src/alice/blk.h
@@ -0,0 +1,31 @@
+/*
+ *	PROGRAM:	Alice
+ *	MODULE:		blk.h
+ *	DESCRIPTION:	Block type definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+BLKDEF(type_frb, frb, 0)
+BLKDEF(type_hnk, hnk, 0)
+BLKDEF(type_plb, plb, 0)
+BLKDEF(type_vec, vec, sizeof(((VEC) 0)->vec_object[0]))
+BLKDEF(type_vcl, vcl, sizeof(((VCL) 0)->vcl_long[0]))
+BLKDEF(type_tdr, tdr, 0)	/* transaction description */
+BLKDEF(type_str, str, 1)	/* general string block */
+BLKDEF(type_lls, lls, 0)
diff --git a/src/alice/exe.cpp b/src/alice/exe.cpp
new file mode 100644
index 0000000000..88e2084712
--- /dev/null
+++ b/src/alice/exe.cpp
@@ -0,0 +1,447 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	Alice (All Else) Utility
+//		MODULE:		exe.cpp
+//		DESCRIPTION:	Does the database calls
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  
+//
+//____________________________________________________________
+//
+//	$Id: exe.cpp,v 1.1.1.1 2001-05-23 13:25:33 tamlin Exp $
+//
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../jrd/common.h"
+#include "../jrd/ibsetjmp.h"
+#include "../alice/alice.h"
+#include "../alice/aliceswi.h"
+#include "../alice/all.h"
+#include "../alice/all_proto.h"
+#include "../alice/alice_meta.h"
+#include "../alice/tdr_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/thd_proto.h"
+
+#if (defined WIN_NT || defined PC_PLATFORM)
+#include <io.h>
+#endif
+
+
+extern "C" {
+
+
+static USHORT build_dpb(UCHAR *, ULONG);
+static void extract_db_info(UCHAR *);
+
+static TEXT val_errors[] =
+{
+	isc_info_page_errors, isc_info_record_errors, isc_info_bpage_errors,
+	isc_info_dpage_errors, isc_info_ipage_errors, isc_info_ppage_errors,
+	isc_info_tpage_errors, gds_info_end
+};
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	1024
+#endif
+
+#define STUFF_DPB(blr)  {*d++ = (UCHAR)(blr);}
+#define STUFF_DPB_INT(blr)			\
+	{								\
+		STUFF_DPB(blr);				\
+		STUFF_DPB((blr) >> 8);		\
+		STUFF_DPB((blr) >> 16);		\
+		STUFF_DPB((blr) >> 24);		\
+	}
+
+
+
+//____________________________________________________________
+//  
+//  
+
+int EXE_action(TEXT * database, ULONG switches)
+{
+	UCHAR dpb[128];
+	USHORT dpb_length, error;
+	SLONG *handle;
+	UCHAR error_string[128];
+	USHORT i;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	ALLA_init();
+
+	for (i = 0; i < MAX_VAL_ERRORS; i++)
+		tdgbl->ALICE_data.ua_val_errors[i] = 0;
+
+//  generate the database parameter block for the attach,
+//  based on the various switches 
+
+	dpb_length = build_dpb(dpb, switches);
+
+	error = FALSE;
+	handle = NULL;
+	gds__attach_database(tdgbl->status,
+						 0,
+						 GDS_VAL(database),
+						 reinterpret_cast < void **>(GDS_REF(handle)),
+						 dpb_length,
+						 reinterpret_cast < char *>(GDS_VAL(dpb)));
+
+	SVC_STARTED(tdgbl->service_blk);
+
+	if (tdgbl->status[1])
+		error = TRUE;
+
+	if (tdgbl->status[2] == isc_arg_warning)
+		ALICE_print_status(tdgbl->status);
+
+	if (handle != NULL) {
+		if ((switches & sw_validate) && (tdgbl->status[1] != isc_bug_check)) {
+			gds__database_info(tdgbl->status,
+							   reinterpret_cast < void **>(GDS_REF(handle)),
+							   sizeof(val_errors),
+							   val_errors,
+							   sizeof(error_string),
+							   reinterpret_cast < char *>(error_string));
+
+			extract_db_info(error_string);
+		}
+
+		if (switches & sw_disable)
+			MET_disable_wal(tdgbl->status, handle);
+
+		gds__detach_database(tdgbl->status,
+							 reinterpret_cast < void **>(GDS_REF(handle)));
+	}
+
+	ALLA_fini();
+
+	return ((error) ? FINI_ERROR : FINI_OK);
+}
+
+
+#ifndef GUI_TOOLS
+//____________________________________________________________
+//  
+//  
+
+int EXE_two_phase(TEXT * database, ULONG switches)
+{
+	UCHAR dpb[128];
+	USHORT dpb_length, error;
+	SLONG *handle;
+	USHORT i;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	ALLA_init();
+
+	for (i = 0; i < MAX_VAL_ERRORS; i++)
+		tdgbl->ALICE_data.ua_val_errors[i] = 0;
+
+//  generate the database parameter block for the attach,
+//  based on the various switches 
+
+	dpb_length = build_dpb(dpb, switches);
+
+	error = FALSE;
+	handle = NULL;
+	gds__attach_database(tdgbl->status,
+						 0,
+						 GDS_VAL(database),
+						 reinterpret_cast < void **>(GDS_REF(handle)),
+						 dpb_length,
+						 reinterpret_cast < char *>(GDS_VAL(dpb)));
+
+	SVC_STARTED(tdgbl->service_blk);
+
+	if (tdgbl->status[1])
+		error = TRUE;
+	else if (switches & sw_list)
+		TDR_list_limbo(reinterpret_cast < int *>(handle), database, switches);
+	else if (switches & (sw_commit | sw_rollback | sw_two_phase))
+		error =
+			TDR_reconnect_multiple(reinterpret_cast < int *>(handle),
+								   tdgbl->ALICE_data.ua_transaction, database,
+								   switches);
+
+	if (handle)
+		gds__detach_database(tdgbl->status,
+							 reinterpret_cast < void **>(GDS_REF(handle)));
+
+	ALLA_fini();
+
+	return ((error) ? FINI_ERROR : FINI_OK);
+}
+#endif /* GUI_TOOLS */
+
+
+
+//____________________________________________________________
+//  
+//  
+//  generate the database parameter block for the attach, 
+//  based on the various switches 
+//  
+
+static USHORT build_dpb(UCHAR * dpb, ULONG switches)
+{
+	UCHAR *d;
+	USHORT dpb_length;
+	SSHORT i;
+	TEXT *q;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	d = dpb;
+	*d++ = gds_dpb_version1;
+	*d++ = isc_dpb_gfix_attach;
+	*d++ = 0;
+
+	if (switches & sw_sweep) {
+		*d++ = gds_dpb_sweep;
+		*d++ = 1;
+		*d++ = gds_dpb_records;
+	}
+	else if (switches & sw_activate) {
+		*d++ = gds_dpb_activate_shadow;
+		*d++ = 0;
+	}
+	else if (switches & sw_validate) {
+		*d++ = gds_dpb_verify;
+		*d++ = 1;
+		*d = gds_dpb_pages;
+		if (switches & sw_full)
+			*d |= gds_dpb_records;
+		if (switches & sw_no_update)
+			*d |= gds_dpb_no_update;
+		if (switches & sw_mend)
+			*d |= gds_dpb_repair;
+		if (switches & sw_ignore)
+			*d |= gds_dpb_ignore;
+		d++;
+	}
+	else if (switches & sw_housekeeping) {
+		*d++ = gds_dpb_sweep_interval;
+		*d++ = 4;
+		for (i = 0; i < 4;
+			 i++, tdgbl->ALICE_data.ua_sweep_interval =
+			 tdgbl->ALICE_data.ua_sweep_interval >> 8)
+			/* TMN: Here we should really have the following assert */
+			/* assert(tdgbl->ALICE_data.ua_sweep_interval <= MAX_UCHAR); */
+			*d++ = (UCHAR) tdgbl->ALICE_data.ua_sweep_interval;
+	}
+	else if (switches & sw_begin_log) {
+		*d++ = gds_dpb_begin_log;
+		*d++ = strlen(tdgbl->ALICE_data.ua_log_file);
+		for (q = tdgbl->ALICE_data.ua_log_file; *q;)
+			*d++ = *q++;
+	}
+	else if (switches & sw_buffers) {
+		*d++ = isc_dpb_set_page_buffers;
+		*d++ = 4;
+		for (i = 0; i < 4;
+			 i++, tdgbl->ALICE_data.ua_page_buffers =
+			 tdgbl->ALICE_data.ua_page_buffers >> 8)
+			/* TMN: Here we should really have the following assert */
+			/* assert(tdgbl->ALICE_data.ua_page_buffers <= MAX_UCHAR); */
+			*d++ = (UCHAR) tdgbl->ALICE_data.ua_page_buffers;
+	}
+	else if (switches & sw_quit_log) {
+		*d++ = gds_dpb_quit_log;
+		*d++ = 0;
+	}
+	else if (switches & sw_kill) {
+		*d++ = gds_dpb_delete_shadow;
+		*d++ = 0;
+	}
+	else if (switches & sw_write) {
+		*d++ = gds_dpb_force_write;
+		*d++ = 1;
+		*d++ = tdgbl->ALICE_data.ua_force;
+	}
+	else if (switches & sw_use) {
+		*d++ = gds_dpb_no_reserve;
+		*d++ = 1;
+		*d++ = tdgbl->ALICE_data.ua_use;
+	}
+#ifdef READONLY_DATABASE
+	else if (switches & sw_mode) {
+		*d++ = isc_dpb_set_db_readonly;
+		*d++ = 1;
+		*d++ = tdgbl->ALICE_data.ua_read_only;
+	}
+#endif /* READONLY_DATABASE */
+	else if (switches & sw_shut) {
+		*d++ = gds_dpb_shutdown;
+		*d++ = 1;
+		*d = 0;
+		if (switches & sw_attach)
+			*d |= gds_dpb_shut_attachment;
+		else if (switches & sw_cache)
+			*d |= gds_dpb_shut_cache;
+		else if (switches & sw_force)
+			*d |= gds_dpb_shut_force;
+		else if (switches & sw_tran)
+			*d |= gds_dpb_shut_transaction;
+		d++;
+		*d++ = gds_dpb_shutdown_delay;
+		*d++ = 2;				/* Build room for shutdown delay */
+		/* TMN: Here we should really have the following assert */
+		/* assert(tdgbl->ALICE_data.ua_page_buffers <= MAX_USHORT); */
+		/* or maybe even compare with MAX_SSHORT */
+		*d++ = (UCHAR) tdgbl->ALICE_data.ua_shutdown_delay;
+		*d++ = (UCHAR) (tdgbl->ALICE_data.ua_shutdown_delay >> 8);
+	}
+	else if (switches & sw_online) {
+		*d++ = gds_dpb_online;
+		*d++ = 0;
+	}
+	else if (switches & sw_disable) {
+		*d++ = isc_dpb_disable_wal;
+		*d++ = 0;
+	}
+	else if (switches & (sw_list | sw_commit | sw_rollback | sw_two_phase)) {
+		*d++ = gds_dpb_no_garbage_collect;
+		*d++ = 0;
+	}
+	else if (switches & sw_set_db_dialect) {
+		STUFF_DPB(isc_dpb_set_db_sql_dialect);
+		STUFF_DPB(4);
+		STUFF_DPB_INT(tdgbl->ALICE_data.ua_db_SQL_dialect);
+	}
+
+	if (tdgbl->ALICE_data.ua_user) {
+		*d++ = gds_dpb_user_name;
+		*d++ =
+			strlen(reinterpret_cast <
+				   const char *>(tdgbl->ALICE_data.ua_user));
+		for (q = reinterpret_cast < TEXT * >(tdgbl->ALICE_data.ua_user); *q;)
+			*d++ = *q++;
+	}
+
+	if (tdgbl->ALICE_data.ua_password) {
+		if (!tdgbl->sw_service_thd)
+			*d++ = gds_dpb_password;
+		else
+			*d++ = gds_dpb_password_enc;
+		*d++ =
+			strlen(reinterpret_cast <
+				   const char *>(tdgbl->ALICE_data.ua_password));
+		for (q = reinterpret_cast < TEXT * >(tdgbl->ALICE_data.ua_password);
+			 *q;)
+			*d++ = *q++;
+	}
+
+	dpb_length = d - dpb;
+	if (dpb_length == 1)
+		dpb_length = 0;
+
+	return dpb_length;
+}
+
+
+//____________________________________________________________
+//  
+//		Extract database info from string
+//  
+
+static void extract_db_info(UCHAR * db_info_buffer)
+{
+	UCHAR item;
+	UCHAR *p;
+	SLONG length;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	p = db_info_buffer;
+
+	while ((item = *p++) != gds_info_end) {
+		length = gds__vax_integer(p, 2);
+		p += 2;
+
+		/* TMN: Here we should really have the following assert */
+		/* assert(length <= MAX_SSHORT); */
+		/* for all cases that use 'length' as input to 'gds__vax_integer' */
+		switch (item) {
+		case isc_info_page_errors:
+			tdgbl->ALICE_data.ua_val_errors[VAL_PAGE_ERRORS] =
+				gds__vax_integer(p, (SSHORT) length);
+			p += length;
+			break;
+
+		case isc_info_record_errors:
+			tdgbl->ALICE_data.ua_val_errors[VAL_RECORD_ERRORS] =
+				gds__vax_integer(p, (SSHORT) length);
+			p += length;
+			break;
+
+		case isc_info_bpage_errors:
+			tdgbl->ALICE_data.ua_val_errors[VAL_BLOB_PAGE_ERRORS] =
+				gds__vax_integer(p, (SSHORT) length);
+			p += length;
+			break;
+
+		case isc_info_dpage_errors:
+			tdgbl->ALICE_data.ua_val_errors[VAL_DATA_PAGE_ERRORS] =
+				gds__vax_integer(p, (SSHORT) length);
+			p += length;
+			break;
+
+		case isc_info_ipage_errors:
+			tdgbl->ALICE_data.ua_val_errors[VAL_INDEX_PAGE_ERRORS] =
+				gds__vax_integer(p, (SSHORT) length);
+			p += length;
+			break;
+
+		case isc_info_ppage_errors:
+			tdgbl->ALICE_data.ua_val_errors[VAL_POINTER_PAGE_ERRORS] =
+				gds__vax_integer(p, (SSHORT) length);
+			p += length;
+			break;
+
+		case isc_info_tpage_errors:
+			tdgbl->ALICE_data.ua_val_errors[VAL_TIP_PAGE_ERRORS] =
+				gds__vax_integer(p, (SSHORT) length);
+			p += length;
+			break;
+
+		case isc_info_error:
+			/* has to be a < V4 database. */
+
+			tdgbl->ALICE_data.ua_val_errors[VAL_INVALID_DB_VERSION] = 1;
+			return;
+
+		default:
+			;
+		}
+	}
+}
+
+
+} // extern "C"
diff --git a/src/alice/exe_proto.h b/src/alice/exe_proto.h
new file mode 100644
index 0000000000..7750c6e513
--- /dev/null
+++ b/src/alice/exe_proto.h
@@ -0,0 +1,38 @@
+/*
+ *	PROGRAM:	Alice (All Else) Utility
+ *	MODULE:		exe_proto.h
+ *	DESCRIPTION:	Prototype header file for exe.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ALICE_EXE_PROTO_H_
+#define _ALICE_EXE_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int EXE_action(TEXT *, ULONG);
+extern int EXE_two_phase(TEXT *, ULONG);
+
+#ifdef __cplusplus
+};
+#endif
+
+#endif /* _ALICE_ALICE_PROTO_H_ */
diff --git a/src/alice/info.h b/src/alice/info.h
new file mode 100644
index 0000000000..631c7fe9db
--- /dev/null
+++ b/src/alice/info.h
@@ -0,0 +1,107 @@
+/*
+ *	PROGRAM:	Alice
+ *	MODULE:		info.h
+ *	DESCRIPTION:	gds__version definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef ALICE_INFO_H
+#define ALICE_INFO_H
+
+static UCHAR info[] =
+{ 
+    gds_info_version,
+	gds_info_implementation,
+	gds_info_end
+};
+
+
+/* this table describes the implementations that 
+   require a node_name,protocol combination be 
+   generated */
+
+static BOOLEAN generate_protocol[] =
+{
+	0,							/* NULL, 0 */
+	0,							/* access method */
+	0,							/* Y-valve */
+	0,							/* remote interface */
+	1,							/* remote server */
+	0,
+	0,
+	0,							/* pipe interface */
+	1,							/* pipe server */
+	0,							/* central interface */
+	1,							/* central server */
+	1,							/* gateway */
+};
+
+
+
+/* this table describes the protocols that can be
+   used for getting from a node of a given type */
+
+#define	DECNET_PROTOCOL	 1		/* :: */
+#define TCP_PROTOCOL	 2		/* : */
+#define VMS_TCP_PROTOCOL 4		/* ^ */
+#define APOLLO_PROTOCOL	 8		/* // */
+#define MSLAN_PROTOCOL	16		/* \\ */
+
+static USHORT protocols_supported[] =
+{
+	0,
+	DECNET_PROTOCOL | VMS_TCP_PROTOCOL,	/* "Rdb/VMS" */
+	DECNET_PROTOCOL | VMS_TCP_PROTOCOL,	/* "Rdb/ELN target" */
+	DECNET_PROTOCOL | VMS_TCP_PROTOCOL,	/* "Rdb/ELN development" */
+	DECNET_PROTOCOL | VMS_TCP_PROTOCOL,	/* "Rdb/VMS Y" */
+	DECNET_PROTOCOL | VMS_TCP_PROTOCOL,	/* "Rdb/ELN Y" */
+	DECNET_PROTOCOL | VMS_TCP_PROTOCOL,	/* "JRI" */
+	DECNET_PROTOCOL | VMS_TCP_PROTOCOL,	/* "JSV" */
+	0,
+	0,
+	TCP_PROTOCOL | APOLLO_PROTOCOL,		/* "InterBase/apollo" */
+	DECNET_PROTOCOL | TCP_PROTOCOL,		/* "InterBase/ultrix" */
+	DECNET_PROTOCOL | VMS_TCP_PROTOCOL,	/* "InterBase/vms" */
+	TCP_PROTOCOL,						/* "InterBase/sun" */
+	TCP_PROTOCOL,						/* "InterBase/OS2" */
+	0,									/* 15 */
+	0,									/* 16 */
+	0,									/* 17 */
+	0,									/* 18 */
+	0,									/* 19 */
+	0,									/* 20 */
+	0,									/* 21 */
+	0,									/* 22 */
+	0,									/* 23 */
+	0,									/* 24 */
+	TCP_PROTOCOL | APOLLO_PROTOCOL,		/* "InterBase/apollo" */
+	DECNET_PROTOCOL | TCP_PROTOCOL,		/* "InterBase/ultrix" */
+	DECNET_PROTOCOL | VMS_TCP_PROTOCOL,	/* "InterBase/vms" */
+	TCP_PROTOCOL,						/* "InterBase/sun" */
+	TCP_PROTOCOL,						/* "InterBase/OS2" */
+	TCP_PROTOCOL,						/* "InterBase/sun4" */
+	TCP_PROTOCOL,						/* "InterBase/hpux" */
+	TCP_PROTOCOL,						/* "InterBase/sun386" */
+	DECNET_PROTOCOL | VMS_TCP_PROTOCOL,	/* "InterBase:ORACLE/vms" */
+	TCP_PROTOCOL,						/* "InterBase/mac/aux" */
+	TCP_PROTOCOL,						/* "InterBase/ibm/rt" */
+	DECNET_PROTOCOL | TCP_PROTOCOL,		/* "InterBase/mips/ultrix" */
+};
+
+#endif /* ALICE_INFO_H */
diff --git a/src/alice/lls.h b/src/alice/lls.h
new file mode 100644
index 0000000000..bcb6face13
--- /dev/null
+++ b/src/alice/lls.h
@@ -0,0 +1,36 @@
+/*
+ *	PROGRAM:	Alice
+ *	MODULE:		lls.h
+ *	DESCRIPTION:	Linked list stack definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ALICE_LLS_H_
+#define _ALICE_LLS_H_
+
+#define LLS_PUSH(object, stack)		ALL_push (object, stack)
+#define LLS_POP(stack)			ALL_pop (stack)
+
+typedef struct lls {
+	struct blk lls_header;
+	struct blk *lls_object;
+	struct lls *lls_next;
+} *LLS;
+
+#endif /* _ALICE_LLS_H_ */
diff --git a/src/alice/tdr.cpp b/src/alice/tdr.cpp
new file mode 100644
index 0000000000..6842066e79
--- /dev/null
+++ b/src/alice/tdr.cpp
@@ -0,0 +1,995 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	Alice (All Else) Utility
+//		MODULE:		tdr.cpp
+//		DESCRIPTION:	Routines for automated transaction recovery
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  
+//
+//____________________________________________________________
+//
+//	$Id: tdr.cpp,v 1.1.1.1 2001-05-23 13:25:33 tamlin Exp $
+//
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../jrd/common.h"
+#include "../alice/alice.h"
+#include "../alice/aliceswi.h"
+#include "../alice/all.h"
+#include "../alice/alloc.h"
+#include "../alice/info.h"
+#include "../alice/alice_proto.h"
+#include "../alice/all_proto.h"
+#include "../alice/alice_meta.h"
+#include "../alice/tdr_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/svc_proto.h"
+#include "../jrd/thd_proto.h"
+
+static ULONG ask(void);
+static void print_description(TDR);
+static void reattach_database(TDR);
+static void reattach_databases(TDR);
+static BOOLEAN reconnect(int *, SLONG, TEXT *, ULONG);
+
+
+#ifdef GUI_TOOLS
+#define NEWLINE	"\r\n"
+#else
+#define NEWLINE	"\n"
+#endif
+
+static UCHAR limbo_info[] = { gds_info_limbo, gds_info_end };
+
+
+
+
+
+// 
+// The following routines are shared by the command line gfix and
+// the windows server manager.  These routines should not contain
+// any direct screen I/O (i.e. ib_printf/ib_getc statements).
+//
+
+
+//____________________________________________________________
+//  
+//		Determine the proper action to take
+//		based on the state of the various
+//		transactions.
+//  
+
+USHORT TDR_analyze(TDR trans)
+{
+	USHORT state, advice = TRA_none;
+
+	if (trans == NULL)
+		return TRA_none;
+
+//  if the tdr for the first transaction is missing,
+//  we can assume it was committed 
+
+	state = trans->tdr_state;
+	if (state == TRA_none)
+		state = TRA_commit;
+	else if (state == TRA_unknown)
+		advice = TRA_unknown;
+
+	for (trans = trans->tdr_next; trans; trans = trans->tdr_next) {
+		switch (trans->tdr_state) {
+			/* an explicitly committed transaction necessitates a check for the
+			   perverse case of a rollback, otherwise a commit if at all possible */
+
+		case TRA_commit:
+			if (state == TRA_rollback) {
+				ALICE_print(105, 0, 0, 0, 0, 0);	/* msg 105: Warning: Multidatabase transaction is in inconsistent state for recovery. */
+				ALICE_print(106, reinterpret_cast < char *>(trans->tdr_id), 0,
+							0, 0, 0);	/* msg 106: Transaction %ld was committed, but prior ones were rolled back. */
+				return 0;
+			}
+			else
+				advice = TRA_commit;
+			break;
+
+			// a prepared transaction requires a commit if there are missing
+			// records up to now, otherwise only do something if somebody else
+			// already has 
+
+		case TRA_limbo:
+			if (state == TRA_none)
+				advice = TRA_commit;
+			else if (state == TRA_commit)
+				advice = TRA_commit;
+			else if (state == TRA_rollback)
+				advice = TRA_rollback;
+			break;
+
+			// an explicitly rolled back transaction requires a rollback unless a
+			// transaction has committed or is assumed committed 
+
+		case TRA_rollback:
+			if ((state == TRA_commit) || (state == TRA_none)) {
+				ALICE_print(105, 0, 0, 0, 0, 0);	/* msg 105: Warning: Multidatabase transaction is in inconsistent state for recovery. */
+				ALICE_print(107, reinterpret_cast < char *>(trans->tdr_id), 0,
+							0, 0, 0);	/* msg 107: Transaction %ld was rolled back, but prior ones were committed. */
+
+				return 0;
+			}
+			else
+				advice = TRA_rollback;
+			break;
+
+			// a missing TDR indicates a committed transaction if a limbo one hasn't
+			// been found yet, otherwise it implies that the transaction wasn't
+			// prepared 
+
+		case TRA_none:
+			if (state == TRA_commit)
+				advice = TRA_commit;
+			else if (state == TRA_limbo)
+				advice = TRA_rollback;
+			break;
+
+			// specifically advise TRA_unknown to prevent assumption that all are
+			// in limbo
+
+		case TRA_unknown:
+			if (!advice)
+				advice = TRA_unknown;
+			break;
+
+		default:
+			ALICE_print(67, reinterpret_cast < char *>(trans->tdr_state), 0,
+						0, 0, 0);	/* msg 67: Transaction state %d not in valid range. */
+			return 0;
+		}
+	}
+
+	return advice;
+}
+
+
+
+//____________________________________________________________
+//  
+//		Attempt to attach a database with a given pathname.
+//  
+
+BOOLEAN TDR_attach_database(STATUS * status_vector,
+							TDR trans, TEXT * pathname)
+{
+	UCHAR dpb[128], *d, *q;
+	USHORT dpb_length;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+#ifndef GUI_TOOLS
+	if (tdgbl->ALICE_data.ua_debug)
+		ALICE_print(68, pathname, 0, 0, 0, 0);	/* msg 68: ATTACH_DATABASE: attempted attach of %s */
+#endif
+
+	d = dpb;
+
+	*d++ = gds_dpb_version1;
+	*d++ = gds_dpb_no_garbage_collect;
+	*d++ = 0;
+	*d++ = isc_dpb_gfix_attach;
+	*d++ = 0;
+
+	if (tdgbl->ALICE_data.ua_user) {
+		*d++ = gds_dpb_user_name;
+		*d++ =
+			strlen(reinterpret_cast <
+				   const char *>(tdgbl->ALICE_data.ua_user));
+		for (q = tdgbl->ALICE_data.ua_user; *q;)
+			*d++ = *q++;
+	}
+
+	if (tdgbl->ALICE_data.ua_password) {
+		if (!tdgbl->sw_service_thd)
+			*d++ = gds_dpb_password;
+		else
+			*d++ = gds_dpb_password_enc;
+		*d++ =
+			strlen(reinterpret_cast <
+				   const char *>(tdgbl->ALICE_data.ua_password));
+		for (q = tdgbl->ALICE_data.ua_password; *q;)
+			*d++ = *q++;
+	}
+
+	dpb_length = d - dpb;
+	if (dpb_length == 1)
+		dpb_length = 0;
+
+	trans->tdr_db_handle = NULL;
+
+	gds__attach_database(status_vector,
+						 0,
+						 GDS_VAL(pathname),
+						 reinterpret_cast <
+						 void **>(GDS_REF(trans->tdr_db_handle)), dpb_length,
+						 reinterpret_cast < char *>(GDS_VAL(dpb)));
+
+	if (status_vector[1]) {
+#ifndef GUI_TOOLS
+		if (tdgbl->ALICE_data.ua_debug) {
+			ALICE_print(69, 0, 0, 0, 0, 0);	/* msg 69:  failed */
+			ALICE_print_status(status_vector);
+		}
+#endif
+		return FALSE;
+	}
+
+	MET_set_capabilities(status_vector, trans);
+
+#ifndef GUI_TOOLS
+	if (tdgbl->ALICE_data.ua_debug)
+		ALICE_print(70, 0, 0, 0, 0, 0);	/* msg 70:  succeeded */
+#endif
+
+	return TRUE;
+}
+
+
+
+//____________________________________________________________
+//  
+//		Get the state of the various transactions
+//		in a multidatabase transaction.
+//  
+
+void TDR_get_states(TDR trans)
+{
+	STATUS status_vector[20];
+	TDR ptr;
+
+	for (ptr = trans; ptr; ptr = ptr->tdr_next)
+		MET_get_state(status_vector, ptr);
+}
+
+
+
+//____________________________________________________________
+//  
+//		Detach all databases associated with
+//		a multidatabase transaction.
+//  
+
+void TDR_shutdown_databases(TDR trans)
+{
+	TDR ptr;
+	STATUS status_vector[20];
+
+	for (ptr = trans; ptr; ptr = ptr->tdr_next)
+		gds__detach_database(status_vector,
+							 reinterpret_cast <
+							 void **>(GDS_REF(ptr->tdr_db_handle)));
+}
+
+
+
+#ifndef GUI_TOOLS
+//  
+// The following routines are only for the command line utility. 
+// This should really be split into two files...
+//  
+
+
+//____________________________________________________________
+//  
+//		List transaction stuck in limbo.  If the prompt switch is set,
+//		prompt for commit, rollback, or leave well enough alone.
+//  
+
+void TDR_list_limbo(int *handle, TEXT * name, ULONG switches)
+{
+	UCHAR buffer[1024], *ptr;
+	STATUS status_vector[20];
+	SLONG id;
+	USHORT item, flag, length;
+	TDR trans;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (gds__database_info(status_vector,
+						   reinterpret_cast < void **>(GDS_REF(handle)),
+						   sizeof(limbo_info),
+						   reinterpret_cast < char *>(limbo_info),
+						   sizeof(buffer),
+						   reinterpret_cast < char *>(buffer))) {
+		ALICE_print_status(status_vector);
+		return;
+	}
+
+	ptr = buffer;
+	flag = TRUE;
+
+	while (flag) {
+		item = *ptr++;
+		length = (USHORT) gds__vax_integer(ptr, 2);
+		ptr += 2;
+		switch (item) {
+		case gds_info_limbo:
+			id = gds__vax_integer(ptr, length);
+			if (switches &
+				(sw_commit | sw_rollback | sw_two_phase | sw_prompt)) {
+				TDR_reconnect_multiple(handle, id, name, switches);
+				ptr += length;
+				break;
+			}
+			if (!tdgbl->sw_service_thd)
+				ALICE_print(71, reinterpret_cast < char *>(id), 0, 0, 0, 0);	/* msg 71: Transaction %d is in limbo. */
+			if (trans = MET_get_transaction(status_vector, handle, id)) {
+#ifdef SUPERSERVER
+				SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_multi_tra_id);
+				SVC_putc(tdgbl->service_blk, (UCHAR) id);
+				SVC_putc(tdgbl->service_blk, (UCHAR) (id >> 8));
+				SVC_putc(tdgbl->service_blk, (UCHAR) (id >> 16));
+				SVC_putc(tdgbl->service_blk, (UCHAR) (id >> 24));
+#endif
+				reattach_databases(trans);
+				TDR_get_states(trans);
+				TDR_shutdown_databases(trans);
+				print_description(trans);
+			}
+#ifdef SUPERSERVER
+			else {
+				SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_single_tra_id);
+				SVC_putc(tdgbl->service_blk, (UCHAR) id);
+				SVC_putc(tdgbl->service_blk, (UCHAR) (id >> 8));
+				SVC_putc(tdgbl->service_blk, (UCHAR) (id >> 16));
+				SVC_putc(tdgbl->service_blk, (UCHAR) (id >> 24));
+			}
+#endif
+			ptr += length;
+			break;
+
+		case gds_info_truncated:
+			if (!tdgbl->sw_service_thd)
+				ALICE_print(72, 0, 0, 0, 0, 0);	/* msg 72: More limbo transactions than fit.  Try again */
+
+		case gds_info_end:
+			flag = FALSE;
+			break;
+
+		default:
+			if (!tdgbl->sw_service_thd)
+				ALICE_print(73, reinterpret_cast < char *>(item), 0, 0, 0, 0);	/* msg 73: Unrecognized info item %d */
+		}
+	}
+}
+
+
+
+//____________________________________________________________
+//  
+//		Check a transaction's TDR to see if it is
+//		a multi-database transaction.  If so, commit
+//		or rollback according to the user's wishes.
+//		Object strongly if the transaction is in a
+//		state that would seem to preclude committing 
+//		or rolling back, but essentially do what the 
+//		user wants.  Intelligence is assumed for the 
+//		gfix user.
+//  
+
+BOOLEAN TDR_reconnect_multiple(int *handle,
+							   SLONG id, TEXT * name, ULONG switches)
+{
+	TDR trans, ptr;
+	STATUS status_vector[20];
+	USHORT advice;
+	BOOLEAN error = FALSE;
+
+//  get the state of all the associated transactions 
+
+	if (!(trans = MET_get_transaction(status_vector, handle, id)))
+		return reconnect(handle, id, name, switches);
+
+	reattach_databases(trans);
+	TDR_get_states(trans);
+
+//  analyze what to do with them; if the advice contradicts the user's
+//  desire, make them confirm it; otherwise go with the flow. 
+
+	advice = TDR_analyze(trans);
+
+	if (!advice) {
+		print_description(trans);
+		switches = ask();
+	}
+	else {
+		switch (advice) {
+		case TRA_rollback:
+			if (switches & sw_commit) {
+				ALICE_print(74, reinterpret_cast < char *>(trans->tdr_id), 0,
+							0, 0, 0);	/* msg 74: "A commit of transaction %ld will violate two-phase commit. */
+				print_description(trans);
+				switches = ask();
+			}
+			else if (switches & sw_rollback)
+				switches |= sw_rollback;
+			else if (switches & sw_two_phase)
+				switches |= sw_rollback;
+			else if (switches & sw_prompt) {
+				ALICE_print(75, reinterpret_cast < char *>(trans->tdr_id), 0,
+							0, 0, 0);	/* msg 75: A rollback of transaction %ld is needed to preserve two-phase commit. */
+				print_description(trans);
+				switches = ask();
+			}
+			break;
+
+		case TRA_commit:
+			if (switches & sw_rollback) {
+				ALICE_print(76, reinterpret_cast < char *>(trans->tdr_id), 0,
+							0, 0, 0);	/* msg 76: Transaction %ld has already been partially committed. */
+				ALICE_print(77, 0, 0, 0, 0, 0);	/* msg 77: A rollback of this transaction will violate two-phase commit. */
+				print_description(trans);
+				switches = ask();
+			}
+			else if (switches & sw_commit)
+				switches |= sw_commit;
+			else if (switches & sw_two_phase)
+				switches |= sw_commit;
+			else if (switches & sw_prompt) {
+				ALICE_print(78, reinterpret_cast < char *>(trans->tdr_id), 0,
+							0, 0, 0);	/* msg 78: Transaction %ld has been partially committed. */
+				ALICE_print(79, 0, 0, 0, 0, 0);	/* msg 79: A commit is necessary to preserve the two-phase commit. */
+				print_description(trans);
+				switches = ask();
+			}
+			break;
+
+		case TRA_unknown:
+			ALICE_print(80, 0, 0, 0, 0, 0);	/* msg 80: Insufficient information is available to determine */
+			ALICE_print(81, reinterpret_cast < char *>(trans->tdr_id), 0, 0,
+						0, 0);	/* msg 81: a proper action for transaction %ld. */
+			print_description(trans);
+			switches = ask();
+			break;
+
+		default:
+			if (!(switches & (sw_commit | sw_rollback))) {
+				ALICE_print(82, reinterpret_cast < char *>(trans->tdr_id), 0,
+							0, 0, 0);	/* msg 82: Transaction %ld: All subtransactions have been prepared. */
+				ALICE_print(83, 0, 0, 0, 0, 0);	/* msg 83: Either commit or rollback is possible. */
+				print_description(trans);
+				switches = ask();
+			}
+		}
+	}
+
+	if (switches != (ULONG) - 1) {
+		/* now do the required operation with all the subtransactions */
+
+		if (switches & (sw_commit | sw_rollback))
+			for (ptr = trans; ptr; ptr = ptr->tdr_next)
+				if (ptr->tdr_state == TRA_limbo)
+					reconnect(reinterpret_cast < int *>(ptr->tdr_db_handle),
+							  ptr->tdr_id, ptr->tdr_filename, switches);
+	}
+	else {
+		ALICE_print(84, 0, 0, 0, 0, 0);	/* msg 84: unexpected end of input */
+		error = TRUE;
+	}
+
+//  shutdown all the databases for cleanliness' sake 
+
+	TDR_shutdown_databases(trans);
+
+	return error;
+}
+
+
+
+//____________________________________________________________
+//  
+//		format and print description of a transaction in
+//		limbo, including all associated transactions
+//		in other databases.
+//  
+
+static void print_description(TDR trans)
+{
+	TDR ptr;
+	BOOLEAN prepared_seen;
+	TGBL tdgbl;
+	int i;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (!trans)
+		return;
+
+	if (!tdgbl->sw_service_thd)
+		ALICE_print(92, 0, 0, 0, 0, 0);	/* msg 92:   Multidatabase transaction: */
+
+	prepared_seen = FALSE;
+	for (ptr = trans; ptr; ptr = ptr->tdr_next) {
+		if (ptr->tdr_host_site) {
+#ifndef SUPERSERVER
+			ALICE_print(93,
+						reinterpret_cast <
+						char *>(ptr->tdr_host_site->str_data), 0, 0, 0, 0);	/* msg 93: Host Site: %s */
+#else
+			SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_host_site);
+			SVC_putc(tdgbl->service_blk,
+					 (UCHAR) strlen(reinterpret_cast <
+									const char *>(ptr->
+												  tdr_host_site->str_data)));
+			SVC_putc(tdgbl->service_blk,
+					 (UCHAR) (strlen
+							  (reinterpret_cast <
+							   const char *>(ptr->
+											 tdr_host_site->str_data)) >> 8));
+			for (i = 0;
+				 i < (int) strlen(reinterpret_cast <
+								  const char *>(ptr->
+												tdr_host_site->str_data));
+				 i++);
+			SVC_putc(tdgbl->service_blk,
+					 (UCHAR) ptr->tdr_host_site->str_data[i]);
+#endif
+		}
+
+		if (ptr->tdr_id)
+#ifndef SUPERSERVER
+			ALICE_print(94, reinterpret_cast < char *>(ptr->tdr_id), 0, 0, 0, 0);	/* msg 94: Transaction %ld */
+#else
+		{
+			SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_id);
+			SVC_putc(tdgbl->service_blk, (UCHAR) ptr->tdr_id);
+			SVC_putc(tdgbl->service_blk, (UCHAR) (ptr->tdr_id >> 8));
+			SVC_putc(tdgbl->service_blk, (UCHAR) (ptr->tdr_id >> 16));
+			SVC_putc(tdgbl->service_blk, (UCHAR) (ptr->tdr_id >> 24));
+		}
+#endif
+
+		switch (ptr->tdr_state) {
+		case TRA_limbo:
+#ifndef SUPERSERVER
+			ALICE_print(95, 0, 0, 0, 0, 0);	/* msg 95: has been prepared. */
+#else
+			SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_state);
+			SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_state_limbo);
+#endif
+			prepared_seen = TRUE;
+			break;
+
+		case TRA_commit:
+#ifndef SUPERSERVER
+			ALICE_print(96, 0, 0, 0, 0, 0);	/* msg 96: has been committed. */
+#else
+			SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_state);
+			SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_state_commit);
+#endif
+			break;
+
+		case TRA_rollback:
+#ifndef SUPERSERVER
+			ALICE_print(97, 0, 0, 0, 0, 0);	/* msg 97: has been rolled back. */
+#else
+			SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_state);
+			SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_state_rollback);
+#endif
+			break;
+
+		case TRA_unknown:
+#ifndef SUPERSERVER
+			ALICE_print(98, 0, 0, 0, 0, 0);	/* msg 98: is not available. */
+#else
+			SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_state);
+			SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_state_unknown);
+#endif
+			break;
+
+		default:
+#ifndef SUPERSERVER
+			if (prepared_seen)
+				ALICE_print(99, 0, 0, 0, 0, 0);	/* msg 99: is not found, assumed not prepared. */
+			else
+				ALICE_print(100, 0, 0, 0, 0, 0);	/* msg 100: is not found, assumed to be committed. */
+#endif
+			break;
+		}
+
+		if (ptr->tdr_remote_site) {
+#ifndef SUPERSERVER
+			ALICE_print(101,
+						reinterpret_cast <
+						char *>(ptr->tdr_remote_site->str_data), 0, 0, 0, 0);	/*msg 101: Remote Site: %s */
+#else
+			SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_remote_site);
+			SVC_putc(tdgbl->service_blk,
+					 (UCHAR) strlen(reinterpret_cast <
+									const char *>(ptr->
+												  tdr_remote_site->str_data)));
+			SVC_putc(tdgbl->service_blk,
+					 (UCHAR) (strlen
+							  (reinterpret_cast <
+							   const char *>(ptr->
+											 tdr_remote_site->str_data)) >>
+							  8));
+			for (i = 0;
+				 i < (int) strlen(reinterpret_cast <
+								  const char *>(ptr->
+												tdr_remote_site->str_data));
+				 i++) SVC_putc(tdgbl->service_blk,
+							   (UCHAR) ptr->tdr_remote_site->str_data[i]);
+#endif
+		}
+
+		if (ptr->tdr_fullpath) {
+#ifndef SUPERSERVER
+			ALICE_print(102,
+						reinterpret_cast <
+						char *>(ptr->tdr_fullpath->str_data), 0, 0, 0, 0);	/* msg 102: Database Path: %s */
+#else
+			SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_db_path);
+			SVC_putc(tdgbl->service_blk,
+					 (UCHAR) strlen(reinterpret_cast <
+									const char *>(ptr->
+												  tdr_fullpath->str_data)));
+			SVC_putc(tdgbl->service_blk,
+					 (UCHAR) (strlen
+							  (reinterpret_cast <
+							   const char *>(ptr->
+											 tdr_fullpath->str_data)) >> 8));
+			for (i = 0;
+				 i < (int) strlen(reinterpret_cast <
+								  const char *>(ptr->tdr_fullpath->str_data));
+				 i++) SVC_putc(tdgbl->service_blk,
+							   (UCHAR) ptr->tdr_fullpath->str_data[i]);
+#endif
+		}
+
+	}
+
+//  let the user know what the suggested action is 
+
+	switch (TDR_analyze(trans)) {
+	case TRA_commit:
+#ifndef SUPERSERVER
+		ALICE_print(103, 0, 0, 0, 0, 0);	/* msg 103: Automated recovery would commit this transaction. */
+#else
+		SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_advise);
+		SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_advise_commit);
+#endif
+		break;
+
+	case TRA_rollback:
+#ifndef SUPERSERVER
+		ALICE_print(104, 0, 0, 0, 0, 0);	/* msg 104: Automated recovery would rollback this transaction. */
+#else
+		SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_advise);
+		SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_advise_rollback);
+#endif
+		break;
+
+	default:
+#ifdef SUPERSERVER
+		SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_advise);
+		SVC_putc(tdgbl->service_blk, (UCHAR) isc_spb_tra_advise_unknown);
+#endif
+		break;
+	}
+
+}
+
+
+
+//____________________________________________________________
+//  
+//		Ask the user whether to commit or rollback.
+//  
+
+static ULONG ask(void)
+{
+	UCHAR response[32], *p;
+	int c;
+	ULONG switches;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	switches = 0;
+
+	while (TRUE) {
+		ALICE_print(85, 0, 0, 0, 0, 0);	/* msg 85: Commit, rollback, or neither (c, r, or n)? */
+		if (tdgbl->sw_service)
+			ib_putc('\001', ib_stdout);
+		ib_fflush(ib_stdout);
+		for (p = response; (c = ib_getchar()) != '\n' && c != EOF;)
+			*p++ = c;
+		if (c == EOF && p == response)
+			return (ULONG) - 1;
+		*p = 0;
+		ALICE_down_case(reinterpret_cast < char *>(response),
+						reinterpret_cast < char *>(response));
+		if (!strcmp(reinterpret_cast < const char *>(response), "n")
+			|| !strcmp(reinterpret_cast < const char *>(response), "c")
+			|| !strcmp(reinterpret_cast < const char *>(response), "r"))
+			  break;
+	}
+
+	if (response[0] == 'c')
+		switches |= sw_commit;
+	else if (response[0] == 'r')
+		switches |= sw_rollback;
+
+	return switches;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate pathnames for a given database 
+//		until the database is successfully attached.
+//  
+
+static void reattach_database(TDR trans)
+{
+	STATUS status_vector[20];
+	UCHAR buffer[1024], *p, *q, *start;
+	USHORT protocols = 0;
+	STR string;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+//  determine what protocols are allowable for this OS 
+
+#ifdef VMS
+	protocols |= DECNET_PROTOCOL | VMS_TCP_PROTOCOL;
+#else
+	protocols |= TCP_PROTOCOL;
+#endif
+
+#ifdef ultrix
+	protocols |= DECNET_PROTOCOL;
+#endif
+
+	ISC_get_host(reinterpret_cast < char *>(buffer), sizeof(buffer));
+
+//  if this is being run from the same host,
+//  (or if this is apollo land), just
+//  try to reconnect using the same pathname 
+
+	if ((protocols & APOLLO_PROTOCOL) ||
+		!strcmp(reinterpret_cast < const char *>(buffer),
+				reinterpret_cast <
+				const char *>(trans->tdr_host_site->str_data)))
+	{
+		if (TDR_attach_database(status_vector,
+								trans,
+								reinterpret_cast<char*>(trans->tdr_fullpath->str_data)))
+		{
+			return;
+		}
+	}
+
+//  try going through the previous host with all available
+//  protocols, using chaining to try the same method of
+//  attachment originally used from that host 
+
+	else if (trans->tdr_host_site) {
+		for (p = buffer, q = trans->tdr_host_site->str_data; *q;)
+			*p++ = *q++;
+		start = p;
+
+		if (protocols & DECNET_PROTOCOL) {
+			p = start;
+			*p++ = ':';
+			*p++ = ':';
+			for (q = trans->tdr_fullpath->str_data; *q;)
+				*p++ = *q++;
+			*q = 0;
+			if (TDR_attach_database
+				(status_vector, trans,
+				 reinterpret_cast < char *>(buffer))) return;
+		}
+
+		if (protocols & VMS_TCP_PROTOCOL) {
+			p = start;
+			*p++ = '^';
+			for (q = trans->tdr_fullpath->str_data; *q;)
+				*p++ = *q++;
+			*q = 0;
+			if (TDR_attach_database
+				(status_vector, trans,
+				 reinterpret_cast < char *>(buffer))) return;
+		}
+
+		if (protocols & TCP_PROTOCOL) {
+			p = start;
+			*p++ = ':';
+			for (q = trans->tdr_fullpath->str_data; *q;)
+				*p++ = *q++;
+			*q = 0;
+			if (TDR_attach_database
+				(status_vector, trans,
+				 reinterpret_cast < char *>(buffer))) return;
+		}
+	}
+
+//  attaching using the old method didn't work;
+//  try attaching to the remote node directly 
+
+	if (trans->tdr_remote_site) {
+		for (p = buffer, q = trans->tdr_remote_site->str_data; *q;)
+			*p++ = *q++;
+		start = p;
+
+		if (protocols & DECNET_PROTOCOL) {
+			p = start;
+			*p++ = ':';
+			*p++ = ':';
+			for (q = (UCHAR *) trans->tdr_filename; *q;)
+				*p++ = *q++;
+			*q = 0;
+			if (TDR_attach_database
+				(status_vector, trans,
+				 reinterpret_cast < char *>(buffer))) return;
+		}
+
+		if (protocols & VMS_TCP_PROTOCOL) {
+			p = start;
+			*p++ = '^';
+			for (q = (UCHAR *) trans->tdr_filename; *q;)
+				*p++ = *q++;
+			*q = 0;
+			if (TDR_attach_database
+				(status_vector, trans,
+				 reinterpret_cast < char *>(buffer))) return;
+		}
+
+		if (protocols & TCP_PROTOCOL) {
+			p = start;
+			*p++ = ':';
+			for (q = (UCHAR *) trans->tdr_filename; *q;)
+				*p++ = *q++;
+			*q = 0;
+			if (TDR_attach_database
+				(status_vector, trans,
+				 reinterpret_cast < char *>(buffer))) return;
+		}
+
+		if (protocols & MSLAN_PROTOCOL) {
+			p = buffer;
+			*p++ = '\\';
+			*p++ = '\\';
+			for (q = trans->tdr_remote_site->str_data; *q;)
+				*p++ = *q++;
+			for (q = (UCHAR *) trans->tdr_filename; *q;)
+				*p++ = *q++;
+			*q = 0;
+
+			if (TDR_attach_database
+				(status_vector, trans,
+				 reinterpret_cast < char *>(buffer))) return;
+		}
+	}
+
+//  we have failed to reattach; notify the user
+//  and let them try to succeed where we have failed 
+
+	ALICE_print(86, reinterpret_cast < char *>(trans->tdr_id), 0, 0, 0, 0);	/* msg 86: Could not reattach to database for transaction %ld. */
+	ALICE_print(87, reinterpret_cast < char *>(trans->tdr_fullpath->str_data),
+				0, 0, 0, 0);	/* msg 87: Original path: %s */
+
+	for (;;) {
+		ALICE_print(88, 0, 0, 0, 0, 0);	/* msg 88: Enter a valid path:  */
+		for (p = buffer; (*p = ib_getchar()) != '\n'; p++);
+		*p = 0;
+		if (!buffer[0])
+			break;
+		p = buffer;
+		while (*p == ' ')
+			*p++;
+		if (TDR_attach_database
+			(status_vector, trans, reinterpret_cast < char *>(p))) {
+			string =
+				(STR) ALLOCDV(type_str,
+							  strlen(reinterpret_cast <
+									 const char *>(p)) + 1);
+			strcpy(reinterpret_cast < char *>(string->str_data),
+				   reinterpret_cast < const char *>(p));
+			string->str_length = strlen(reinterpret_cast < const char *>(p));
+			trans->tdr_fullpath = string;
+			trans->tdr_filename = (TEXT *) string->str_data;
+			return;
+		}
+		ALICE_print(89, 0, 0, 0, 0, 0);	/* msg 89: Attach unsuccessful. */
+	}
+}
+
+
+
+//____________________________________________________________
+//  
+//		Attempt to locate all databases used in 
+//		a multidatabase transaction.
+//  
+
+static void reattach_databases(TDR trans)
+{
+	TDR ptr;
+
+	for (ptr = trans; ptr; ptr = ptr->tdr_next)
+		reattach_database(ptr);
+}
+
+
+
+//____________________________________________________________
+//  
+//		Commit or rollback a named transaction.
+//  
+
+static BOOLEAN reconnect(int *handle,
+						 SLONG number, TEXT * name, ULONG switches)
+{
+	int *transaction;
+	SLONG id;
+	STATUS status_vector[20];
+
+	id = gds__vax_integer((UCHAR *) & number, 4);
+	transaction = NULL;
+	if (gds__reconnect_transaction(status_vector,
+								   reinterpret_cast <
+								   void **>(GDS_REF(handle)),
+								   reinterpret_cast <void **>(GDS_REF(transaction)), 
+    							   sizeof(id),
+								   reinterpret_cast <char *>(GDS_REF(id)))) {
+		ALICE_print(90, name, 0, 0, 0, 0);	/* msg 90: failed to reconnect to a transaction in database %s */
+		ALICE_print_status(status_vector);
+		return TRUE;
+	}
+
+	if (!(switches & (sw_commit | sw_rollback))) {
+		ALICE_print(91, reinterpret_cast < char *>(number), 0, 0, 0, 0);	/* msg 91: Transaction %ld: */
+		switches = ask();
+		if (switches == (ULONG) - 1) {
+			ALICE_print(84, 0, 0, 0, 0, 0);	/* msg 84: unexpected end of input */
+			return TRUE;
+		}
+	}
+
+	if (switches & sw_commit)
+		gds__commit_transaction(status_vector,
+								reinterpret_cast <void **>(GDS_REF(transaction)));
+	else if (switches & sw_rollback)
+		gds__rollback_transaction(status_vector,
+								  reinterpret_cast <void **>(GDS_REF(transaction)));
+	else
+		return FALSE;
+
+	if (status_vector[1]) {
+		ALICE_print_status(status_vector);
+		return TRUE;
+	}
+
+	return FALSE;
+}
+#endif /* GUI_TOOLS */
diff --git a/src/alice/tdr_proto.h b/src/alice/tdr_proto.h
new file mode 100644
index 0000000000..92c6940439
--- /dev/null
+++ b/src/alice/tdr_proto.h
@@ -0,0 +1,42 @@
+/*
+ *	PROGRAM:	Alice (All Else) Utility
+ *	MODULE:		tdr_proto.h
+ *	DESCRIPTION:	Prototype header file for tdr.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef ALICE_TDR_PROTO_H
+#define ALICE_TDR_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void	TDR_list_limbo(int*, TEXT*, ULONG);
+BOOLEAN	TDR_reconnect_multiple(int*, SLONG, TEXT*, ULONG);
+void	TDR_shutdown_databases(TDR);
+USHORT	TDR_analyze(TDR);
+BOOLEAN	TDR_attach_database(STATUS*, TDR, TEXT*);
+void	TDR_get_states(TDR);
+
+#ifdef __cplusplus
+};
+#endif
+
+#endif /* ALICE_TDR_PROTO_H */
diff --git a/src/burp/backu_proto.h b/src/burp/backu_proto.h
new file mode 100644
index 0000000000..e90dd350d2
--- /dev/null
+++ b/src/burp/backu_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		backu_proto.h
+ *	DESCRIPTION:	Prototype Header file for backup.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _BURP_BACKU_PROTO_H_
+#define _BURP_BACKU_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int	BACKUP_backup (TEXT *, TEXT *);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif	/*  _BURP_BACKU_PROTO_H_  */
diff --git a/src/burp/backup.e b/src/burp/backup.e
new file mode 100644
index 0000000000..f7375dcd2f
--- /dev/null
+++ b/src/burp/backup.e
@@ -0,0 +1,4099 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		backup.e
+ *	DESCRIPTION:	Backup routine
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Toni Martir: Added verbose backup records as BACKUP_VERBOSE_INTERVAL
+ */
+/*
+$Id: backup.e,v 1.1.1.1 2001-05-23 13:26:04 tamlin Exp $
+*/
+
+#include "../jrd/ib_stdio.h"
+#include <memory.h>
+#include <string.h>
+#include "../burp/burp.h"
+#include "../jrd/ods.h"
+#include "../jrd/align.h"
+#include "../jrd/gdsassert.h"
+#include "../burp/backu_proto.h"
+#include "../burp/burp_proto.h"
+#include "../burp/canon_proto.h"
+#include "../burp/mvol_proto.h"
+#include "../remote/protocol.h"
+
+/* For netware the follow DB handle is #defined to be a value stored    */
+/* in thread data.  This is also done for other statics generated by    */
+/* GPRE.  This is to avoid multiple threading problems with module      */
+/* level statics.                                                       */
+DATABASE DB = STATIC FILENAME "yachts.lnk" RUNTIME * dbb_file;
+#define DB          tdgbl->db_handle
+#define isc_trans  tdgbl->tr_handle
+#define isc_status  tdgbl->status
+
+/*
+#define DEBUG	1
+*/
+
+/* VERBOSE INTERVAL WHEN BACKING RECORDS */
+#define BACKUP_VERBOSE_INTERVAL		20000
+
+#define STUFF(byte)		*blr++ = (SCHAR) (byte)
+#define STUFF_WORD(word)	{STUFF (word); STUFF ((word) >> 8);}
+#define STUFF_LONG(l)		{STUFF_WORD (l); STUFF_WORD ((l) >> 16);}
+
+#define PUT(c)				(--(tdgbl->io_cnt) >= 0 ? *(tdgbl->io_ptr)++ = (UCHAR) (c) : MVOL_write ((UCHAR) (c), &(tdgbl->io_cnt), &(tdgbl->io_ptr)))
+#define PUT_BLOCK(p,n)			MVOL_write_block (tdgbl, p, n)
+#define PUT_ASCIZ(attribute, string)	put_asciz ((attribute), (string))
+#define PUT_MESSAGE(attribute, message)	put_message ((attribute), (message), sizeof (message))
+#define PUT_NUMERIC(attribute, value)	put_numeric ((attribute), (value))
+#define PUT_INT64(attribute, value)     put_int64 ((attribute), (value))
+#define PUT_TEXT(attribute, text)	put_text ((attribute), (text), sizeof (text))
+
+
+static void compress(UCHAR *, ULONG);
+static int copy(TEXT *, TEXT *, ULONG);
+static FLD get_fields(REL);
+static SINT64 get_gen_id(TEXT *);
+static void get_ranges(FLD);
+static void put_array(FLD, REL, ISC_QUAD *);
+static void put_asciz(SCHAR, TEXT *);
+static void put_blob(FLD, ISC_QUAD *, ULONG);
+static int put_blr_blob(SCHAR, ISC_QUAD *);
+static void put_data(REL);
+static void put_index(REL);
+static int put_message(SCHAR, TEXT *, ULONG);
+static void put_numeric(SCHAR, SLONG);
+static void put_relation(REL);
+static int put_source_blob(SCHAR, SCHAR, ISC_QUAD *);
+static int put_text(SCHAR, TEXT *, SSHORT);
+static void put_trigger(enum trig_t, GDS__QUAD *, GDS__QUAD *, GDS_NAME);
+static void set_capabilities(void);
+static int symbol_length(TEXT *);
+static void write_character_sets(void);
+static void write_check_constraints(void);
+static void write_collations(void);
+static void write_database(TEXT *);
+static void write_exceptions(void);
+static void write_field_dimensions(void);
+static void write_filters(void);
+static void write_functions(void);
+static void write_function_args(GDS_NAME);
+static void write_generators(void);
+static void write_sql_roles(void);
+static void write_global_fields(void);
+static void write_procedures(void);
+static void write_procedure_prms(GDS_NAME);
+static void write_ref_constraints(void);
+static void write_rel_constraints(void);
+static void write_relations(void);
+static void write_shadow_files(void);
+static void write_triggers(void);
+static void write_trigger_messages(void);
+static void write_types(void);
+static void write_user_privileges(void);
+static void general_on_error(void);
+
+#define	BCK_security		1
+#define BCK_files		2
+#define BCK_external		4
+#define BCK_idx_inactive	8
+#define BCK_triggers		16	/* Obsolete - 1996-Aug-05 */
+#define BCK_context_name	32
+#define BCK_db_description	64
+#define BCK_ffmptt		128		/* rdb$functions, rdb$filters, rdb$trigger_messages, rdb$user_privileges, rdb$triggers, rdb$types */
+#define BCK_attributes_v3	256	/* attributes in various system relations new to v3 */
+#define BCK_rfr_sys_flag	512	/* system flag is missing from Rdb/VMS V3 RFR relation */
+#define BCK_ods6		1024	/* rdb$field_dimensions and shadow files */
+#define BCK_ods8		2048	/* stored procedures & exceptions &
+								   constraints  */
+#define BCK_ods9		4096	/* SQL roles */
+#define BCK_ods10		8192	/* FIELD_PRECISION */
+
+#ifdef DEBUG
+static UCHAR debug_on = 0;		/* able to turn this on in debug mode */
+#endif
+
+
+/*  
+   table used to determine capabilities, checking for specific 
+   fields in system relations 
+*/
+
+typedef struct rfr_tab_t {
+	CONST TEXT *relation;
+	CONST TEXT *field;
+	int bit_mask;
+} *RFR_TAB;
+
+static CONST struct rfr_tab_t rfr_table[] = {
+	"RDB$INDICES", "RDB$INDEX_INACTIVE", BCK_idx_inactive,
+/* Backup of V2 triggers no longer supported 1996-Aug-05 David Schnepper  
+	"RDB$RELATIONS",	"RDB$STORE_TRIGGER",	BCK_triggers, 
+*/
+	"RDB$RELATIONS", "RDB$EXTERNAL_FILE", BCK_external,
+	"RDB$SECURITY_CLASSES", "RDB$SECURITY_CLASS", BCK_security,
+	"RDB$FILES", "RDB$FILE_NAME", BCK_files,
+	"RDB$VIEW_RELATIONS", "RDB$CONTEXT_NAME", BCK_context_name,
+	"RDB$DATABASE", "RDB$DESCRIPTION", BCK_db_description,
+	"RDB$FUNCTIONS", "RDB$FUNCTION_NAME", BCK_ffmptt,
+	"RDB$FIELDS", "RDB$EXTERNAL_LENGTH", BCK_attributes_v3,
+	"RDB$RELATION_FIELDS", "RDB$SYSTEM_FLAG", BCK_rfr_sys_flag,
+	"RDB$FIELD_DIMENSIONS", "RDB$DIMENSION", BCK_ods6,
+	"RDB$PROCEDURES", "RDB$PROCEDURE_NAME", BCK_ods8,
+	"RDB$ROLES", "RDB$ROLE_NAME", BCK_ods9,
+	"RDB$FIELDS", "RDB$FIELD_PRECISION", BCK_ods10,
+	0, 0, 0
+};
+
+static CONST SCHAR blob_items[] =
+{
+	isc_info_blob_max_segment,
+	isc_info_blob_num_segments
+};
+static CONST SCHAR blr_items[] =
+{
+	isc_info_blob_max_segment,
+	isc_info_blob_total_length
+};
+static CONST SCHAR source_items[] =
+{
+	isc_info_blob_max_segment,
+	isc_info_blob_total_length,
+	isc_info_blob_num_segments
+};
+static CONST SCHAR db_info_items[] =
+{
+	isc_info_db_sql_dialect,
+	isc_info_page_size,
+	isc_info_sweep_interval,
+	isc_info_forced_writes,
+	isc_info_no_reserve,
+	isc_info_set_page_buffers,
+	isc_info_db_read_only,
+	isc_info_end
+};
+static CONST SCHAR limbo_tpb[] =
+{
+	isc_tpb_version1,
+	isc_tpb_ignore_limbo
+};
+static CONST SCHAR limbo_nau_tpb[] =
+{
+	isc_tpb_version1,
+	isc_tpb_ignore_limbo,
+	isc_tpb_no_auto_undo
+};
+
+
+
+int BACKUP_backup(TEXT* dbb_file, TEXT* file_name)
+{
+/**************************************
+ *
+ *	B A C K U P _ b a c k u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Backup a database.
+ *
+ **************************************/
+	REL relation;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ULONG l;
+	TEXT temp[32];
+	ULONG cumul_count_kb;
+	isc_req_handle req_handle1 = NULL;
+	long req_status[20];
+	TGBL tdgbl;
+	FIL fil;
+
+	tdgbl = GET_THREAD_DATA;
+
+	tdgbl->gbl_database_file_name = dbb_file;
+
+	tdgbl->io_ptr = (UCHAR *) NULL;
+	tdgbl->io_cnt = 0;
+	tdgbl->relations = (REL) NULL;
+	cumul_count_kb = tdgbl->BCK_capabilities = 0;
+
+	isc_trans = NULL;
+
+	BURP_verbose(130, NULL, NULL, NULL, NULL, NULL);
+	/* msg 130 starting transaction */
+
+	if (tdgbl->gbl_sw_ignore_limbo)
+	{
+		if (isc_start_transaction(status_vector,
+								  GDS_REF(isc_trans),
+								  1,
+								  GDS_REF(tdgbl->db_handle),
+								  sizeof(limbo_nau_tpb),
+								  limbo_nau_tpb))
+		{
+			isc_start_transaction(status_vector,
+								  GDS_REF(isc_trans),
+								  1,
+								  GDS_REF(tdgbl->db_handle),
+								  sizeof(limbo_tpb), limbo_tpb);
+		}
+	}
+	else
+	{
+		EXEC SQL SET TRANSACTION NO_AUTO_UNDO;
+		if (isc_status[1])
+			EXEC SQL SET TRANSACTION;
+	}
+
+	if (!isc_trans)
+	{
+		EXEC SQL SET TRANSACTION NAME isc_trans NO_AUTO_UNDO;
+		if (isc_status[1])
+			EXEC SQL SET TRANSACTION NAME isc_trans;
+	}
+
+
+
+
+/* decide what type of database we've got */
+
+	set_capabilities();
+
+/* Write burp record first with other valuable information */
+/* In case of split operation, write a 'split' header first to all the files */
+
+	if (tdgbl->action->act_action == ACT_backup_split)
+	{
+		for (fil = tdgbl->gbl_sw_files; fil; fil = fil->fil_next)
+		{
+			tdgbl->action->act_file = fil;
+			if (MVOL_split_hdr_write() == FALSE)
+			{
+				BURP_error(269, tdgbl->action->act_file->fil_name, 0, 0, 0,
+						   0);
+				/* msg 269 can't write a header record to file %s */
+			}
+		}
+		tdgbl->action->act_file = tdgbl->gbl_sw_files;
+	}
+
+	MVOL_init_write(dbb_file, file_name, &tdgbl->io_cnt, &tdgbl->io_ptr);
+
+/* Write database record */
+
+	write_database(dbb_file);
+
+/* Write global fields */
+
+	BURP_verbose(150, NULL, NULL, NULL, NULL, NULL);
+	/* msg 150  writing global fields */
+	write_global_fields();
+
+	if (tdgbl->BCK_capabilities & BCK_ods6)
+	{
+		write_field_dimensions();
+
+		BURP_verbose(162, NULL, NULL, NULL, NULL, NULL);
+		/* msg 162  writing shadow files */
+		write_shadow_files();
+	}
+
+/* Write relations */
+
+	BURP_verbose(154, NULL, NULL, NULL, NULL, NULL);
+	/* msg 154 writing relations */
+
+	write_relations();
+
+	if (tdgbl->BCK_capabilities & BCK_ffmptt)
+	{
+		/* Write functions */
+		BURP_verbose(148, NULL, NULL, NULL, NULL, NULL);
+		/* msg 148 writing functions */
+		write_functions();
+
+		/* Write types */
+		BURP_verbose(161, NULL, NULL, NULL, NULL, NULL);
+		/* msg 161  writing types */
+		write_types();
+
+		/* Write filters */
+		BURP_verbose(146, NULL, NULL, NULL, NULL, NULL);
+		/* msg 146 writing filters */
+		write_filters();
+
+		/* Write generators */
+
+		BURP_verbose(164, NULL, NULL, NULL, NULL, NULL);
+		/* msg 164  writing id generators */
+		write_generators();
+	}
+
+	if (tdgbl->BCK_capabilities & BCK_ods8)
+	{
+		/* Write procedures */
+		BURP_verbose(192, NULL, NULL, NULL, NULL, NULL);
+		/* msg 192 writing stored procedures */
+		write_procedures();
+
+		/* Write exceptions */
+		BURP_verbose(197, NULL, NULL, NULL, NULL, NULL);
+		/* msg 197 writing exceptions */
+		write_exceptions();
+
+		/* Write Character Sets */
+		BURP_verbose(msgVerbose_write_charsets, NULL, NULL, NULL, NULL, NULL);
+		write_character_sets();
+
+		/* Write Collations */
+		BURP_verbose(msgVerbose_write_collations, NULL, NULL, NULL, NULL,
+					 NULL);
+		write_collations();
+
+	}
+
+/* Now go back and write all data */
+
+	for (relation = tdgbl->relations; relation; relation = relation->rel_next)
+	{
+		PUT(rec_relation_data);
+		put_text(att_relation_name, relation->rel_name,
+				 sizeof(relation->rel_name));
+		PUT(att_end);
+		if (!(relation->rel_flags & REL_view) &&
+			!(relation->rel_flags & REL_external))
+		{
+			put_index(relation);
+			if (!tdgbl->gbl_sw_meta)
+				put_data(relation);
+		}
+		PUT(rec_relation_end);
+	}
+
+/* now for the new triggers in rdb$triggers */
+	if (tdgbl->BCK_capabilities & BCK_ffmptt)
+	{
+		BURP_verbose(159, NULL, NULL, NULL, NULL, NULL);
+		/* msg 159  writing triggers */
+		write_triggers();
+		BURP_verbose(158, NULL, NULL, NULL, NULL, NULL);
+		/* msg 158 writing trigger messages */
+		write_trigger_messages();
+		write_user_privileges();
+	}
+
+/* Last, but not least, go back and add any access control lists */
+
+	if (tdgbl->BCK_capabilities & BCK_security)
+	    FOR (REQUEST_HANDLE req_handle1)
+	        X IN RDB$SECURITY_CLASSES WITH X.RDB$SECURITY_CLASS NOT STARTING "SQL$"
+	       PUT (rec_security_class);
+	       l = PUT_TEXT (att_class_security_class, X.RDB$SECURITY_CLASS);
+	       MISC_terminate (X.RDB$SECURITY_CLASS, temp, l, sizeof(temp));
+	       BURP_verbose (155, temp, NULL, NULL, NULL, NULL);
+	       /* msg 155 writing security class %s */
+	       put_blr_blob (att_class_acl, (ISC_QUAD *)&X.RDB$ACL);
+	       put_source_blob (att_class_description2, att_class_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+	       PUT (att_end);
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+
+		if (req_handle1)
+			isc_release_request(req_status, &req_handle1);
+
+	if (tdgbl->BCK_capabilities & BCK_ods8)
+	{
+		/* Write relation constraints  */
+		BURP_verbose(206, NULL, NULL, NULL, NULL, NULL);
+		/* msg 206 writing relation constraints */
+		write_rel_constraints();
+
+		/* Write referential constraints  */
+		BURP_verbose(209, NULL, NULL, NULL, NULL, NULL);
+		/* msg 209 writing referential constraints */
+		write_ref_constraints();
+
+		/* Write check constraints  */
+		BURP_verbose(210, NULL, NULL, NULL, NULL, NULL);
+		/* msg 210 writing check constraints */
+		write_check_constraints();
+
+	}
+
+	if (tdgbl->BCK_capabilities & BCK_ods9)
+	{
+		/* Write SQL roles  */
+		BURP_verbose(248, NULL, NULL, NULL, NULL, NULL);
+		/* msg 248 writing SQL roles */
+		write_sql_roles();
+	}
+
+/* Finish up */
+
+	PUT(rec_end);
+	MVOL_fini_write(&tdgbl->io_cnt, &tdgbl->io_ptr, &cumul_count_kb);
+	BURP_verbose(176, (TEXT *) cumul_count_kb, NULL, NULL, NULL, NULL);
+	/* msg 176 closing file, committing, and finishing.  %ld bytes written */
+	COMMIT;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	if (isc_trans)
+		COMMIT isc_trans;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	FINISH;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return FINI_OK;
+}
+
+
+static void compress(UCHAR * data, ULONG length)
+{
+/**************************************
+ *
+ *	c o m p r e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out data in compressed form.
+ *
+ **************************************/
+	UCHAR *p, *q, *end;
+	USHORT l, run;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	p = data;
+	end = p + length;
+
+	while (p < end)
+	{
+		for (q = p + 2; q < end && (q[-2] != q[-1] || q[-1] != q[0]); q++)
+			;
+		if (run = (q < end) ? q - p - 2 : end - p)
+		{
+			for (; run > 127; run -= 127)
+			{
+				l = 127;
+				PUT(l);
+				p = PUT_BLOCK(p, l);
+			}
+			if (run)
+			{
+				PUT(run);
+				p = PUT_BLOCK(p, run);
+			}
+		}
+		for (q = p; q < end && *q == *p; q++)
+			;
+		if (run = q - p)
+		{
+			for (; run > 127; run -= 127)
+			{
+				PUT(-127);
+				PUT(*p);
+			}
+			if (run)
+			{
+				PUT(-run);
+				PUT(*p);
+			}
+			p = q;
+		}
+	}
+}
+
+
+static int copy( TEXT * from, TEXT * to, ULONG length)
+{
+/**************************************
+ *
+ *	c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a blank or null terminated string into a null terminated
+ *	string.
+ *
+ **************************************/
+	TEXT *p;
+	ULONG l = 0;
+
+/* find end of string */
+	p = from;
+	while (*p++ && (l < length))
+		l++;
+
+	length = MIN(l, length);
+
+/* skip trailing spaces */
+	for (p = from + length - 1, l = 0; *p == ' ' && l < length; p--)
+		l++;
+
+	l = length - l;
+
+	MOVE_FAST(from, to, l);
+	*(to + l) = '\0';
+
+	return l;
+}
+
+
+static void general_on_error(void)
+{
+/**************************************
+ *
+ *	g e n e r a l _ o n _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle any general ON_ERROR clause during backup.
+ *
+ **************************************/
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	BURP_print_status(tdgbl->status);
+	BURP_abort();
+}
+
+
+static FLD get_fields( REL relation)
+{
+/**************************************
+ *
+ *	g e t _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get fields for a relation.  Test
+ *	capabilities and get system specific
+ *
+ **************************************/
+	FLD field, fields;
+	ISC_QUAD *blob_id;
+	USHORT count;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	count = 1;
+	fields = NULL;
+
+/* if we have all capabilities, use the first request to get the 
+   most performance out of the latest engine; if we don't 
+   have one of the capabilities we must use the second set of 
+   requests--this requires more code but it is well worth it 
+   for the performance benefits, especially remotely--deej */
+
+	if ((tdgbl->BCK_capabilities & BCK_attributes_v3) &&
+		(tdgbl->BCK_capabilities & BCK_ods8) &&
+		(tdgbl->BCK_capabilities & BCK_rfr_sys_flag) &&
+		(tdgbl->BCK_capabilities & BCK_security))
+	{
+	    FOR (REQUEST_HANDLE tdgbl->handles_get_fields_req_handle1)
+	            X IN RDB$RELATION_FIELDS CROSS 
+	            Y IN RDB$FIELDS WITH 
+	            X.RDB$FIELD_SOURCE = Y.RDB$FIELD_NAME AND 
+	       X.RDB$RELATION_NAME EQ relation->rel_name
+	
+	        field = (FLD) BURP_ALLOC_ZERO (sizeof (struct fld));
+	        field->fld_number = count++;
+	        field->fld_type = Y.RDB$FIELD_TYPE;
+	        field->fld_sub_type = Y.RDB$FIELD_SUB_TYPE;
+	        field->fld_length = Y.RDB$FIELD_LENGTH;
+	        field->fld_scale = Y.RDB$FIELD_SCALE;
+	        field->fld_id = X.RDB$FIELD_ID;
+	
+	        if (!X.RDB$DESCRIPTION.NULL)
+	       {
+	       blob_id = &X.RDB$DESCRIPTION;
+	       if (blob_id->gds_quad_low || blob_id->gds_quad_high)
+	           field->fld_description = X.RDB$DESCRIPTION;
+	       }
+	
+	        if (!X.RDB$QUERY_HEADER.NULL)
+	       {
+	       blob_id = &X.RDB$QUERY_HEADER;
+	       if (blob_id->gds_quad_low || blob_id->gds_quad_high)
+	           field->fld_query_header = X.RDB$QUERY_HEADER;
+	       }
+	
+	        if (X.RDB$FIELD_POSITION.NULL)
+	       field->fld_flags |= FLD_position_missing;
+	        else
+	       field->fld_position = X.RDB$FIELD_POSITION;
+	        field->fld_view_context = X.RDB$VIEW_CONTEXT;
+	        if (X.RDB$UPDATE_FLAG.NULL)
+	       field->fld_flags |= FLD_update_missing;
+	        else
+	       field->fld_update_flag = X.RDB$UPDATE_FLAG;
+	    
+	        copy (X.RDB$FIELD_NAME, field->fld_name, GDS_NAME_LEN - 1);
+	        copy (X.RDB$FIELD_SOURCE, field->fld_source, GDS_NAME_LEN - 1);
+	        copy (X.RDB$BASE_FIELD, field->fld_base, GDS_NAME_LEN - 1);
+	        copy (X.RDB$QUERY_NAME, field->fld_query_name, GDS_NAME_LEN - 1);
+	        copy (X.RDB$EDIT_STRING, field->fld_edit_string,
+	         sizeof (field->fld_edit_string) - 1);
+	        copy (X.RDB$COMPLEX_NAME, field->fld_complex_name, GDS_NAME_LEN - 1);
+	
+	        blob_id = &Y.RDB$COMPUTED_BLR;
+	        if (blob_id->gds_quad_low || blob_id->gds_quad_high)
+	       field->fld_flags |= FLD_computed;
+	        field->fld_system_flag = X.RDB$SYSTEM_FLAG;
+	
+	   copy (X.RDB$SECURITY_CLASS, field->fld_security_class, GDS_NAME_LEN - 1); 
+	
+	        /* use the fld_flags to mark the field as an array and 
+	           to differentiate it from other blobs */
+	        
+	        if (Y.RDB$DIMENSIONS)
+	            {
+	            field->fld_flags |= FLD_array;
+	            field->fld_dimensions = Y.RDB$DIMENSIONS;
+	            if (field->fld_dimensions < 0)
+	                BURP_error_redirect (NULL_PTR, 52, field->fld_name, NULL);
+	         /* msg 52 array dimension for field %s is invalid */
+	       get_ranges (field);
+	            }
+	
+	        if (!X.RDB$NULL_FLAG.NULL)
+	            {
+	       field->fld_null_flag = X.RDB$NULL_FLAG;
+	            field->fld_flags |= FLD_null_flag;
+	            }
+	
+	   if (!X.RDB$DEFAULT_VALUE.NULL)
+	       {
+	       blob_id = &X.RDB$DEFAULT_VALUE;
+	            if (blob_id->gds_quad_low || blob_id->gds_quad_high)
+	           field->fld_default_value = X.RDB$DEFAULT_VALUE;
+	            }
+	   
+	   if (!X.RDB$DEFAULT_SOURCE.NULL)
+	       {
+	       blob_id = &X.RDB$DEFAULT_SOURCE;
+	            if (blob_id->gds_quad_low || blob_id->gds_quad_high)
+	           field->fld_default_source = X.RDB$DEFAULT_SOURCE;
+	            }
+	            
+	        if (!(Y.RDB$CHARACTER_SET_ID.NULL))
+	       {
+	       field->fld_character_set_id = Y.RDB$CHARACTER_SET_ID;
+	            field->fld_flags |= FLD_charset_flag;
+	       }
+	       
+	   if (!X.RDB$COLLATION_ID.NULL)
+	            {
+	       field->fld_collation_id = X.RDB$COLLATION_ID;
+	            field->fld_flags |= FLD_collate_flag;
+	       }
+	
+	        field->fld_next = fields;
+	        fields = field;
+	
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+	}
+	else
+	{
+	    FOR (REQUEST_HANDLE tdgbl->handles_get_fields_req_handle1)
+	        X IN RDB$RELATION_FIELDS CROSS Y IN RDB$FIELDS 
+	        WITH X.RDB$FIELD_SOURCE = Y.RDB$FIELD_NAME AND 
+	        X.RDB$RELATION_NAME EQ relation->rel_name
+	    field = (FLD) BURP_ALLOC_ZERO (sizeof (struct fld));
+	    field->fld_number = count++;
+	    field->fld_type = Y.RDB$FIELD_TYPE;
+	    field->fld_sub_type = Y.RDB$FIELD_SUB_TYPE;
+	    field->fld_length = Y.RDB$FIELD_LENGTH;
+	    field->fld_scale = Y.RDB$FIELD_SCALE;
+	    field->fld_id = X.RDB$FIELD_ID;
+	    if (!X.RDB$DESCRIPTION.NULL)
+	   {
+	   blob_id = &X.RDB$DESCRIPTION;
+	   if (blob_id->gds_quad_low || blob_id->gds_quad_high)
+	       field->fld_description = X.RDB$DESCRIPTION;
+	   }
+	    if (!X.RDB$QUERY_HEADER.NULL)
+	   {
+	   blob_id = &X.RDB$QUERY_HEADER;
+	   if (blob_id->gds_quad_low || blob_id->gds_quad_high)
+	       field->fld_query_header = X.RDB$QUERY_HEADER;
+	   }
+	    if (X.RDB$FIELD_POSITION.NULL)
+	   field->fld_flags |= FLD_position_missing;
+	    else
+	   field->fld_position = X.RDB$FIELD_POSITION;
+	    field->fld_view_context = X.RDB$VIEW_CONTEXT;
+	    if (X.RDB$UPDATE_FLAG.NULL)
+	   field->fld_flags |= FLD_update_missing;
+	    else
+	   field->fld_update_flag = X.RDB$UPDATE_FLAG;
+	    copy (X.RDB$FIELD_NAME, field->fld_name, GDS_NAME_LEN - 1);
+	    copy (X.RDB$FIELD_SOURCE, field->fld_source, GDS_NAME_LEN - 1);
+	    copy (X.RDB$BASE_FIELD, field->fld_base, GDS_NAME_LEN - 1);
+	    copy (X.RDB$QUERY_NAME, field->fld_query_name, GDS_NAME_LEN - 1);
+	    copy (X.RDB$EDIT_STRING, field->fld_edit_string,
+	     sizeof (field->fld_edit_string) - 1);
+	    if (tdgbl->BCK_capabilities & BCK_attributes_v3)
+	        FOR (REQUEST_HANDLE tdgbl->handles_get_fields_req_handle2)
+	            RFR IN RDB$RELATION_FIELDS WITH RFR.RDB$FIELD_NAME = X.RDB$FIELD_NAME AND
+	            RFR.RDB$RELATION_NAME = X.RDB$RELATION_NAME
+	            copy (RFR.RDB$COMPLEX_NAME, field->fld_complex_name, GDS_NAME_LEN - 1);
+	        END_FOR;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	    blob_id = &Y.RDB$COMPUTED_BLR;
+	    if (blob_id->gds_quad_low || blob_id->gds_quad_high)
+	   field->fld_flags |= FLD_computed;
+	    if (tdgbl->BCK_capabilities & BCK_rfr_sys_flag)
+	   FOR (REQUEST_HANDLE tdgbl->handles_get_fields_req_handle3)
+	        RFR IN RDB$RELATION_FIELDS WITH
+	       RFR.RDB$RELATION_NAME = relation->rel_name
+	       AND RFR.RDB$FIELD_NAME = X.RDB$FIELD_NAME
+	       field->fld_system_flag = RFR.RDB$SYSTEM_FLAG;
+	   END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+	    if (tdgbl->BCK_capabilities & BCK_security)
+	   FOR (REQUEST_HANDLE tdgbl->handles_get_fields_req_handle4)
+	        RFR IN RDB$RELATION_FIELDS WITH
+	       RFR.RDB$RELATION_NAME = relation->rel_name
+	       AND RFR.RDB$FIELD_NAME = X.RDB$FIELD_NAME
+	       copy (RFR.RDB$SECURITY_CLASS, field->fld_security_class, GDS_NAME_LEN - 1); 
+	   END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+	    if (tdgbl->BCK_capabilities & BCK_attributes_v3)
+	        FOR (REQUEST_HANDLE tdgbl->handles_get_fields_req_handle5)
+	            RF IN RDB$FIELDS WITH RF.RDB$FIELD_NAME = X.RDB$FIELD_SOURCE
+	            /* use the fld_flags to mark the field as an array and 
+	               to differentiate it from other blobs */
+	            if (RF.RDB$DIMENSIONS)
+	                {
+	                field->fld_flags |= FLD_array;
+	                field->fld_dimensions = RF.RDB$DIMENSIONS;
+	                if (field->fld_dimensions < 0)
+	                    BURP_error_redirect (NULL_PTR, 52, field->fld_name, NULL);
+	           /* msg 52 array dimension for field %s is invalid */
+	           get_ranges (field);
+	                }
+	        END_FOR;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	    if (tdgbl->BCK_capabilities & BCK_ods8)
+	        FOR (REQUEST_HANDLE tdgbl->handles_get_fields_req_handle6)
+	            X2 IN RDB$RELATION_FIELDS CROSS F2 IN RDB$FIELDS
+	            WITH X2.RDB$FIELD_NAME = X.RDB$FIELD_NAME 
+	           AND X2.RDB$RELATION_NAME EQ relation->rel_name
+	           AND X2.RDB$FIELD_SOURCE EQ F2.RDB$FIELD_NAME
+	
+	           if (!X2.RDB$NULL_FLAG.NULL)
+	                        {
+	               field->fld_null_flag = X2.RDB$NULL_FLAG;
+	                        field->fld_flags |= FLD_null_flag;
+	                        }
+	           if (!X2.RDB$DEFAULT_VALUE.NULL)
+	               {
+	                   blob_id = &X2.RDB$DEFAULT_VALUE;
+	               if (blob_id->gds_quad_low || blob_id->gds_quad_high)
+	               field->fld_default_value = X2.RDB$DEFAULT_VALUE;
+	               }
+	           if (!X2.RDB$DEFAULT_SOURCE.NULL)
+	               {
+	                   blob_id = &X2.RDB$DEFAULT_SOURCE;
+	               if (blob_id->gds_quad_low || blob_id->gds_quad_high)
+	               field->fld_default_source = X2.RDB$DEFAULT_SOURCE;
+	               }
+	                   if (!(F2.RDB$CHARACTER_SET_ID.NULL))
+	               {
+	               field->fld_character_set_id = F2.RDB$CHARACTER_SET_ID;
+	                        field->fld_flags |= FLD_charset_flag;
+	               }
+	           if (!X2.RDB$COLLATION_ID.NULL)
+	           {
+	               field->fld_collation_id = X2.RDB$COLLATION_ID;
+	                        field->fld_flags |= FLD_collate_flag;
+	           }
+	       END_FOR;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	
+	    field->fld_next = fields;
+	    fields = field;
+	
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+	}
+
+	return fields;
+}
+
+
+static SINT64 get_gen_id( TEXT * name)
+{
+/**************************************
+ *
+ *	g e t _ g e n _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read id for a generator;
+ *
+ **************************************/
+	UCHAR c, *blr, blr_buffer[100];	/* enough to fit blr */
+	SLONG *gen_id_reqh, read_msg0;
+	SINT64 read_msg1;
+	SSHORT blr_length, name_len;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	gen_id_reqh = NULL;
+	blr = blr_buffer;
+	name_len = symbol_length(name);
+
+/* If this is ODS 10 (IB version 6.0) or greater, build BLR to retrieve
+   the 64-bit value of the generator.  If not, build BLR to retrieve the
+   32-bit value, which we will cast to the expected INT64 format.
+*/
+	if (tdgbl->BCK_capabilities & BCK_ods10)
+	{
+		/* build the blr with the right relation name and 64-bit results. */
+		STUFF(blr_version5);
+		STUFF(blr_begin);
+		STUFF(blr_message);
+		STUFF(0);
+		STUFF_WORD(1);
+		STUFF(blr_int64);
+		STUFF(0);
+		STUFF(blr_send);
+		STUFF(0);
+		STUFF(blr_assignment);
+		STUFF(blr_gen_id);
+		STUFF(name_len);
+		while (name_len--)
+		{
+			c = *name++;
+			STUFF(c);
+		}
+		STUFF(blr_literal);
+		STUFF(blr_long);
+		STUFF(0);
+		STUFF_WORD(0);
+		STUFF_WORD(0);
+		STUFF(blr_parameter);
+		STUFF(0);
+		STUFF_WORD(0);
+		STUFF(blr_end);
+		STUFF(blr_eoc);
+	}
+	else
+	{
+		/* build the blr with the right relation name and 32-bit results */
+		STUFF(blr_version4);
+		STUFF(blr_begin);
+		STUFF(blr_message);
+		STUFF(0);
+		STUFF_WORD(1);
+		STUFF(blr_long);
+		STUFF(0);
+		STUFF(blr_send);
+		STUFF(0);
+		STUFF(blr_assignment);
+		STUFF(blr_gen_id);
+		STUFF(name_len);
+		while (name_len--)
+		{
+			c = *name++;
+			STUFF(c);
+		}
+		STUFF(blr_literal);
+		STUFF(blr_long);
+		STUFF(0);
+		STUFF_WORD(0);
+		STUFF_WORD(0);
+		STUFF(blr_parameter);
+		STUFF(0);
+		STUFF_WORD(0);
+		STUFF(blr_end);
+		STUFF(blr_eoc);
+	}
+
+#ifdef DEBUG
+	if (debug_on)
+		isc_print_blr(blr_buffer, NULL_PTR, NULL_PTR, 0);
+#endif
+
+	blr_length = blr - blr_buffer;
+
+	if (isc_compile_request(status_vector,
+							GDS_REF(tdgbl->db_handle),
+							GDS_REF(gen_id_reqh),
+							blr_length, GDS_VAL(blr_buffer)))
+		/* if there's no gen_id, never mind ... */
+		return 0;
+
+	if (isc_start_request(status_vector, GDS_REF(gen_id_reqh), GDS_REF(isc_trans),	/* use the same one generated by gpre */
+						  0))
+		BURP_error_redirect(status_vector, 25, NULL, NULL);
+	/* msg 25 Failed in put_blr_gen_id */
+
+	if (tdgbl->BCK_capabilities & BCK_ods10)
+	{
+		if (isc_receive(status_vector,
+						GDS_REF(gen_id_reqh),
+						0,
+						sizeof(read_msg1),
+						GDS_REF(read_msg1),
+						0))
+				BURP_error_redirect(status_vector, 25, NULL, NULL);
+		/* msg 25 Failed in put_blr_gen_id */
+	}
+	else
+	{
+		if (isc_receive(status_vector,
+						GDS_REF(gen_id_reqh),
+						0,
+						sizeof(read_msg0),
+						GDS_REF(read_msg0),
+						0))
+				BURP_error_redirect(status_vector, 25, NULL, NULL);
+		/* msg 25 Failed in put_blr_gen_id */
+		read_msg1 = (SINT64) read_msg0;
+	}
+
+	isc_release_request(status_vector, GDS_REF(gen_id_reqh));
+
+	return read_msg1;
+}
+
+
+static void get_ranges( FLD field)
+{
+/**************************************
+ *
+ *	g e t _ r a n g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fill in the range low and high bounds by reading 
+ *      the ranges in rdb$field_dimensions.
+ *
+ **************************************/
+	SLONG *rp;
+	USHORT count;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	rp = field->fld_ranges;
+	count = 0;
+
+/* Get the array dimensions in the rdb$field_dimensions */
+
+	FOR (REQUEST_HANDLE tdgbl->handles_get_ranges_req_handle1)
+	    X IN RDB$FIELD_DIMENSIONS 
+	    WITH X.RDB$FIELD_NAME EQ field->fld_source 
+	    SORTED BY X.RDB$DIMENSION 
+	
+	    if (count != X.RDB$DIMENSION)
+	        BURP_error_redirect (NULL_PTR, 52, field->fld_name, NULL);
+	   /* msg 52 array dimension for field %s is invalid */
+	    *rp++ = X.RDB$LOWER_BOUND;
+	    *rp++ = X.RDB$UPPER_BOUND;
+	    count++;
+	
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	if (count != field->fld_dimensions)
+		BURP_error_redirect(NULL_PTR, 52, field->fld_name, NULL);
+	/* msg 52 array dimension for field %s is invalid */
+}
+
+
+static void put_array( FLD field, REL relation, ISC_QUAD * blob_id)
+{
+/**************************************
+ *
+ *	p u t _ a r r a y 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out an array.  If, however, it's null, don't even bother.
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	SLONG *range, *end_ranges, returned_elements;
+	ULONG return_length, slice_length;
+	SLONG *returned_range, range_buffer[16];	/* enough for 16 dimensions */
+	LSTRING xdr_buffer, xdr_slice;
+	UCHAR blr_buffer[200];		/* enough for a sdl with 16 dimensions */
+	UCHAR *blr, *slice, *p;
+	USHORT blr_length, count, field_length;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* If the array is null, don't store it.  It will be restored as null. */
+
+	if (!blob_id->isc_quad_low && !blob_id->isc_quad_high)
+		return;
+
+	xdr_buffer.lstr_allocated = 0;
+
+	blr = blr_buffer;
+	end_ranges = field->fld_ranges + 2 * field->fld_dimensions;
+
+	field_length = field->fld_length;
+	if (tdgbl->gbl_sw_transportable)
+		xdr_buffer.lstr_length = field_length + 3;
+
+/* build the sdl */
+
+	STUFF(isc_sdl_version1);
+
+	STUFF(isc_sdl_struct);
+	STUFF(1);
+
+	STUFF(field->fld_type);
+
+	if (field->fld_type == blr_short ||
+		field->fld_type == blr_long || field->fld_type == blr_quad)
+		STUFF(field->fld_scale);
+
+	if (field->fld_type == blr_text || field->fld_type == blr_varying)
+		STUFF_WORD(field->fld_length);
+
+	if (field->fld_type == blr_varying)
+		field_length += sizeof(USHORT);
+
+	STUFF(isc_sdl_rid);
+	STUFF_WORD(relation->rel_id);
+	STUFF(isc_sdl_fid);
+	STUFF_WORD(field->fld_id);
+
+	for (range = field->fld_ranges, count = 0; range < end_ranges;
+		 range += 2, count++)
+	{
+		STUFF(isc_sdl_do2);
+		STUFF(count);
+		STUFF(isc_sdl_long_integer);
+		STUFF_LONG(range[0]);
+		STUFF(isc_sdl_long_integer);
+		STUFF_LONG(range[1]);
+	}
+
+	STUFF(isc_sdl_element);
+	STUFF(1);
+	STUFF(isc_sdl_scalar);
+	STUFF(0);
+	STUFF(field->fld_dimensions);
+
+	for (count = 0; count < field->fld_dimensions; count++)
+	{
+		STUFF(isc_sdl_variable);
+		STUFF(count);
+	}
+
+	STUFF(isc_sdl_eoc);
+
+#ifdef DEBUG
+	if (debug_on)
+		PRETTY_print_sdl(blr_buffer, NULL_PTR, NULL_PTR, NULL_PTR);
+#endif
+
+	blr_length = blr - blr_buffer;
+
+/* compute the range size for each dimension = high_range - low_range */
+
+	slice_length = field_length;
+	for (range = field->fld_ranges; range < end_ranges; range += 2)
+	{
+		slice_length *= (range[1] - range[0] + 1);
+		if (tdgbl->gbl_sw_transportable)
+			xdr_buffer.lstr_length *= (range[1] - range[0] + 1);
+	}
+	slice = BURP_ALLOC(slice_length);
+
+/* allocate space for the XDR representation */
+
+	if (tdgbl->gbl_sw_transportable)
+	{
+		xdr_buffer.lstr_address = BURP_ALLOC(xdr_buffer.lstr_length);
+		xdr_buffer.lstr_allocated = xdr_buffer.lstr_length;
+	}
+
+	if (isc_get_slice(status_vector,
+					  GDS_REF(tdgbl->db_handle), GDS_REF(isc_trans), GDS_VAL(blob_id), blr_length, blr_buffer, 0,	/* param length for subset of an array handling */
+					  (ULONG *) 0,	/* param for subset of an array handling */
+					  slice_length, GDS_VAL(slice), GDS_REF(return_length)))
+	{
+		BURP_print(81, field->fld_name, NULL, NULL, NULL, NULL);
+		/* msg 81 error accessing blob field %s -- continuing */
+		BURP_print_status(status_vector);
+#ifdef DEBUG
+		PRETTY_print_sdl(blr_buffer, NULL_PTR, NULL_PTR, NULL_PTR);
+#endif
+		return;
+	}
+
+	if (return_length != slice_length)
+	{
+		int divisor, i1, i2, i3;
+		/* Ugh.  The full array wasn't returned.  We must recompute the top
+		   element to backup. */
+
+		returned_elements = (return_length / field_length) - 1;
+
+		returned_range = range_buffer;
+		for (i1 = 0, i3 = 0, range = end_ranges - 2;
+			 range >= field->fld_ranges; range -= 2, returned_range++, i1++)
+		{
+			divisor = 1;
+			for (i2 = (2 * (i1 + 1) + 1); i2 <= field->fld_dimensions * 2;
+				 i2 += 2)
+				divisor *=
+					(field->fld_ranges[i2] - field->fld_ranges[i2 - 1] + 1);
+			*returned_range =
+				(returned_elements - 1) / divisor + field->fld_ranges[i3];
+			returned_elements -=
+				(*returned_range - field->fld_ranges[i3]) * divisor;
+			i3 += 2;
+		}
+	}
+
+	PUT(rec_array);
+	PUT_NUMERIC(att_blob_field_number, field->fld_number);
+	PUT_NUMERIC(att_array_dimensions, field->fld_dimensions);
+
+	returned_range = range_buffer;
+	for (range = field->fld_ranges; range < end_ranges;
+		 range += 2, returned_range++)
+	{
+		PUT_NUMERIC(att_array_range_low, (int) range[0]);
+		if (return_length == slice_length)
+			PUT_NUMERIC(att_array_range_high, (int) range[1]);
+		else
+			PUT_NUMERIC(att_array_range_high, (int) *returned_range);
+	}
+
+	PUT(att_blob_data);
+	PUT(return_length);
+	PUT(return_length >> 8);
+	PUT(return_length >> 16);
+	PUT(return_length >> 24);
+
+	if (return_length)
+	{
+		if (tdgbl->gbl_sw_transportable)
+		{
+			xdr_slice.lstr_allocated = xdr_slice.lstr_length = return_length;
+			xdr_slice.lstr_address = slice;
+			return_length =
+				CAN_slice(&xdr_buffer, &xdr_slice, TRUE, blr_length,
+						  blr_buffer);
+			PUT(att_xdr_array);
+			PUT(return_length);
+			PUT(return_length >> 8);
+			PUT(return_length >> 16);
+			PUT(return_length >> 24);
+			p = xdr_buffer.lstr_address;
+		}
+		else
+			p = slice;
+		(void) PUT_BLOCK(p, return_length);
+	}
+
+	BURP_FREE(slice);
+	if (xdr_buffer.lstr_allocated)
+		BURP_FREE(xdr_buffer.lstr_address);
+}
+
+
+static void put_asciz( SCHAR attribute, TEXT * string)
+{
+/**************************************
+ *
+ *	p u t _ a s c i z
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write an attribute starting with a null terminated string.
+ *
+ **************************************/
+	ULONG l;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	l = strlen(string);
+
+	PUT(attribute);
+	PUT(l);
+	if (l)
+		(void) PUT_BLOCK(string, l);
+}
+
+
+static void put_blob( FLD field, ISC_QUAD * blob_id, ULONG count)
+{
+/**************************************
+ *
+ *	p u t _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out a blob.  If, however, it's null, don't even bother.
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	void *blob;
+	ULONG segments;
+	UCHAR *p, blob_info[32], item, *buffer, static_buffer[1024];
+	USHORT l, max_segment, n;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* If the blob is null, don't store it.  It will be restored as null. */
+
+	if (!blob_id->isc_quad_high && !blob_id->isc_quad_low)
+		return;
+
+/* Open the blob and get it's vital statistics */
+
+	blob = NULL;
+
+	if (isc_open_blob(status_vector,
+					  GDS_REF(tdgbl->db_handle),
+					  GDS_REF(isc_trans),
+					  GDS_REF(blob),
+					  GDS_VAL(blob_id)))
+	{
+		BURP_print(81, field->fld_name, NULL, NULL, NULL, NULL);
+		/* msg 81 error accessing blob field %s -- continuing */
+		BURP_print_status(status_vector);
+		return;
+	}
+
+	if (isc_blob_info(status_vector,
+					  GDS_REF(blob),
+					  sizeof(blob_items),
+					  (SCHAR *) blob_items,
+					  sizeof(blob_info),
+					  blob_info))
+	{
+		BURP_error_redirect(status_vector, 20, NULL, NULL);
+		/* msg 20 isc_blob_info failed */
+	}
+
+	PUT(rec_blob);
+	PUT_NUMERIC(att_blob_field_number, field->fld_number);
+
+	segments = max_segment = 0;
+	p = blob_info;
+
+	while ((item = *p++) != isc_info_end)
+	{
+		l = (USHORT) isc_vax_integer(p, 2);
+		p += 2;
+		n = (USHORT) isc_vax_integer(p, l);
+		p += l;
+		switch (item)
+		{
+		case isc_info_blob_max_segment:
+			PUT_NUMERIC(att_blob_max_segment, (int) n);
+			max_segment = n;
+			break;
+
+		case isc_info_blob_type:
+			PUT_NUMERIC(att_blob_type, (int) n);
+			break;
+
+		case isc_info_blob_num_segments:
+			PUT_NUMERIC(att_blob_number_segments, (int) n);
+			segments = n;
+			break;
+
+		default:
+			BURP_error_redirect(NULL_PTR, 21, (void *) item, NULL);
+			/* msg 21 don't understand blob info item %ld */
+		}
+	}
+
+/* Allocate a buffer large enough for the largest segment and start grinding. */
+
+	if (!max_segment || max_segment <= sizeof(static_buffer))
+		buffer = static_buffer;
+	else
+		buffer = BURP_ALLOC(max_segment);
+
+	PUT(att_blob_data);
+
+	while (segments > 0)
+	{
+		if (isc_get_segment(status_vector,
+							GDS_REF(blob),
+							GDS_REF(l),
+							max_segment,
+							GDS_VAL(buffer)))
+		{
+			BURP_error_redirect(status_vector, 22, NULL, NULL);
+		}
+		/* msg 22 gds__get_segment failed */
+
+		PUT(l);
+		PUT(l >> 8);
+		if (l)
+		{
+			(void) PUT_BLOCK(buffer, l);
+		}
+		--segments;
+	}
+
+	if (isc_close_blob(status_vector, GDS_REF(blob)))
+		BURP_error_redirect(status_vector, 23, NULL, NULL);
+	/* msg 23 isc_close_blob failed */
+
+	if (buffer != static_buffer)
+		BURP_FREE(buffer);
+}
+
+
+static int put_blr_blob( SCHAR attribute, ISC_QUAD * blob_id)
+{
+/**************************************
+ *
+ *	p u t _ b l r _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out a blr blob, if present.  Otherwise do nothing.
+ *	Return TRUE is there was the blob was present, FALSE otherwise.
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ULONG length, n;
+	void *blob;
+	UCHAR *p, blob_info[32], item, *buffer, static_buffer[1024];
+	ULONG max_segment;
+	USHORT l;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* If the blob is null, don't store it.  It will be restored as null. */
+
+	if (!blob_id->isc_quad_high && !blob_id->isc_quad_low)
+		return FALSE;
+
+/* Open the blob and get it's vital statistics */
+
+	blob = NULL;
+
+	if (isc_open_blob(status_vector,
+					  GDS_REF(tdgbl->db_handle),
+					  GDS_REF(isc_trans),
+					  GDS_REF(blob),
+					  GDS_VAL(blob_id)))
+	{
+		BURP_error_redirect(status_vector, 24, NULL, NULL);
+		/* msg 24 isc_open_blob failed */
+	}
+
+	if (isc_blob_info(status_vector,
+					  GDS_REF(blob),
+					  sizeof(blr_items),
+					  (SCHAR *) blr_items,
+					  sizeof(blob_info),
+					  blob_info))
+	{
+		BURP_error_redirect(status_vector, 20, NULL, NULL);
+		/* msg 20 isc_blob_info failed */
+	}
+
+	length = 0;
+	p = blob_info;
+
+	while ((item = *p++) != isc_info_end)
+	{
+		l = (USHORT) isc_vax_integer(p, 2);
+		p += 2;
+		n = (USHORT) isc_vax_integer(p, l);
+		p += l;
+		switch (item)
+		{
+		case isc_info_blob_max_segment:
+			max_segment = n;
+			break;
+
+		case isc_info_blob_total_length:
+			length = n;
+			break;
+
+		default:
+			BURP_print(79, (void *) item, NULL, NULL, NULL, NULL);
+			/* msg 79 don't understand blob info item %ld  */
+			return FALSE;
+		}
+	}
+
+	if (!length)
+	{
+		if (isc_close_blob(status_vector, GDS_REF(blob)))
+			BURP_error_redirect(status_vector, 23, NULL, NULL);
+		/* msg 23 isc_close_blob failed */
+		return FALSE;
+	}
+
+/* Rdb sometimes gets the length messed up */
+
+	if (length < max_segment)
+		length = max_segment;
+
+	PUT_NUMERIC(attribute, (int) length);
+
+/* Allocate a buffer large enough for the largest segment and start grinding. */
+
+	if (!max_segment || max_segment <= sizeof(static_buffer))
+		buffer = static_buffer;
+	else
+		buffer = BURP_ALLOC(max_segment);
+
+	while (!isc_get_segment(status_vector,
+							GDS_REF(blob),
+							GDS_REF(l),
+							(USHORT) max_segment, GDS_VAL(buffer)))
+	{
+		if (l)
+		{
+			(void) PUT_BLOCK(buffer, l);
+		}
+	}
+
+	if (isc_close_blob(status_vector, GDS_REF(blob)))
+	{
+		BURP_error_redirect(status_vector, 23, NULL, NULL);
+	}
+	/* msg 23 isc_close_blob failed */
+
+	if (buffer != static_buffer)
+		BURP_FREE(buffer);
+
+	return TRUE;
+}
+
+
+static void put_data(REL relation)
+{
+/**************************************
+ *
+ *	p u t _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write relation meta-data and data.
+ *
+ **************************************/
+	FLD field;
+	int *request, records;
+	UCHAR *p, *blr, *blr_buffer, *buffer;
+	LSTRING xdr_buffer;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	RCRD_OFFSET offset, eof_offset, record_length;
+	FLD_LENGTH length;
+	SSHORT alignment, blr_length, count, dtype, *eof, eof_parameter;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	count = 1;
+
+	for (field = relation->rel_fields; field; field = field->fld_next)
+	{
+		if (!(field->fld_flags & FLD_computed))
+		{
+			count += 2;
+		}
+	}
+
+/* Time to generate blr to fetch data.  Make sure we allocate a BLR buffer
+   large enough to handle the per field overhead */
+
+	blr = blr_buffer = BURP_ALLOC(200 + count * 9);
+	STUFF(blr_version4);
+	STUFF(blr_begin);
+	STUFF(blr_message);
+	STUFF(0);					/* Message number */
+	STUFF_WORD(count);			/* Number of fields, counting eof */
+
+	offset = count = 0;
+
+	for (field = relation->rel_fields; field; field = field->fld_next)
+	{
+		if (field->fld_flags & FLD_computed)
+			continue;
+		alignment = 4;
+		length = field->fld_length;
+		dtype = field->fld_type;
+		if (field->fld_flags & FLD_array)
+		{
+			dtype = blr_blob;
+			length = 8;
+		}
+		switch (dtype)
+		{
+		case blr_text:
+			alignment = type_alignments[dtype_text];
+			STUFF(field->fld_type);
+			STUFF_WORD(field->fld_length);
+			break;
+
+		case blr_varying:
+			alignment = type_alignments[dtype_varying];
+			STUFF(field->fld_type);
+			STUFF_WORD(field->fld_length);
+			length += sizeof(USHORT);
+			break;
+
+		case blr_short:
+			alignment = type_alignments[dtype_short];
+			STUFF(field->fld_type);
+			STUFF(field->fld_scale);
+			break;
+
+		case blr_long:
+			alignment = type_alignments[dtype_long];
+			STUFF(field->fld_type);
+			STUFF(field->fld_scale);
+			break;
+
+		case blr_quad:
+			alignment = type_alignments[dtype_quad];
+			STUFF(field->fld_type);
+			STUFF(field->fld_scale);
+			break;
+
+		case blr_int64:
+			alignment = type_alignments[dtype_int64];
+			STUFF(field->fld_type);
+			STUFF(field->fld_scale);
+			break;
+
+		case blr_double:
+			alignment = type_alignments[dtype_double];
+			STUFF(field->fld_type);
+			break;
+
+		case blr_timestamp:
+			alignment = type_alignments[dtype_timestamp];
+			STUFF(field->fld_type);
+			break;
+
+		case blr_sql_time:
+			alignment = type_alignments[dtype_sql_time];
+			STUFF(field->fld_type);
+			break;
+
+		case blr_sql_date:
+			alignment = type_alignments[dtype_sql_date];
+			STUFF(field->fld_type);
+			break;
+
+		case blr_float:
+			alignment = type_alignments[dtype_real];
+			STUFF(field->fld_type);
+			break;
+
+		case blr_blob:
+			alignment = type_alignments[dtype_blob];
+			STUFF(blr_quad);
+			STUFF(0);
+			break;
+
+		default:
+			BURP_error_redirect(NULL_PTR, 26, (void *) field->fld_type, NULL);
+			/* msg 26 datatype %ld not understood */
+			break;
+		}
+		if (alignment)
+			offset = FB_ALIGN(offset, alignment);
+		field->fld_offset = offset;
+		field->fld_parameter = count++;
+		offset += length;
+	}
+
+/* Next, build fields for null flags */
+
+	for (field = relation->rel_fields; field; field = field->fld_next)
+	{
+		if (field->fld_flags & FLD_computed)
+			continue;
+		STUFF(blr_short);
+		STUFF(0);
+		offset = FB_ALIGN(offset, sizeof(SSHORT));
+		field->fld_missing_parameter = count++;
+		offset += sizeof(SSHORT);
+	}
+
+/* Finally, make up an EOF field */
+
+	STUFF(blr_short);			/* eof field */
+	STUFF(0);					/* scale for eof field */
+	record_length = offset;
+	eof_parameter = count++;
+	eof_offset = FB_ALIGN(offset, sizeof(SSHORT));
+	length = (USHORT) (eof_offset + sizeof(SSHORT));
+
+/* Build FOR loop, body, and eof handler */
+
+	STUFF(blr_for);
+	STUFF(blr_rse);
+	STUFF(1);					/* count of relations */
+	STUFF(blr_rid);
+	STUFF_WORD(relation->rel_id);
+	STUFF(0);					/* context variable */
+	STUFF(blr_end);
+
+	STUFF(blr_send);
+	STUFF(0);
+	STUFF(blr_begin);
+	STUFF(blr_assignment);
+	STUFF(blr_literal);
+	STUFF(blr_short);
+	STUFF(0);
+	STUFF_WORD(1);
+	STUFF(blr_parameter);
+	STUFF(0);
+	STUFF_WORD(eof_parameter);
+
+	for (field = relation->rel_fields; field; field = field->fld_next)
+	{
+		if (field->fld_flags & FLD_computed)
+			continue;
+		STUFF(blr_assignment);
+		STUFF(blr_fid);
+		STUFF(0);
+		STUFF_WORD(field->fld_id);
+		STUFF(blr_parameter2);
+		STUFF(0);
+		STUFF_WORD(field->fld_parameter);
+		STUFF_WORD(field->fld_missing_parameter);
+	}
+
+	STUFF(blr_end);
+
+	STUFF(blr_send);
+	STUFF(0);
+	STUFF(blr_assignment);
+	STUFF(blr_literal);
+	STUFF(blr_short);
+	STUFF(0);
+	STUFF_WORD(0);
+	STUFF(blr_parameter);
+	STUFF(0);
+	STUFF_WORD(eof_parameter);
+
+	STUFF(blr_end);
+	STUFF(blr_eoc);
+
+#ifdef DEBUG
+	if (debug_on)
+		isc_print_blr(blr_buffer, NULL_PTR, NULL_PTR, 0);
+#endif
+
+
+/* Compile request */
+
+	request = NULL;
+	blr_length = blr - blr_buffer;
+	if (isc_compile_request(status_vector,
+							GDS_REF(tdgbl->db_handle),
+							GDS_REF(request),
+							blr_length, GDS_VAL(blr_buffer)))
+	{
+		BURP_error_redirect(status_vector, 27, NULL, NULL);
+		/* msg 27 isc_compile_request failed */
+		isc_print_blr(blr_buffer, NULL_PTR, NULL_PTR, 0);
+	}
+
+	BURP_FREE(blr_buffer);
+	records = 0;
+	BURP_verbose(142, relation->rel_name, NULL, NULL, NULL, NULL);
+	/* msg 142  writing data for relation %s */
+
+	if (isc_start_request(status_vector,
+						  GDS_REF(request),
+						  GDS_REF(isc_trans),
+						  0))
+	{
+		BURP_error_redirect(status_vector, 28, NULL, NULL);
+		/* msg 28 isc_start_request failed */
+	}
+
+/* Here is the crux of the problem -- writing data.  All this work
+   for the following small loop. */
+
+	buffer = BURP_ALLOC(length);
+	eof = (SSHORT *) (buffer + eof_offset);
+
+/* the XDR representation may be even fluffier */
+	if (tdgbl->gbl_sw_transportable)
+	{
+		xdr_buffer.lstr_length = xdr_buffer.lstr_allocated =
+			length + count * 3;
+		xdr_buffer.lstr_address = BURP_ALLOC(xdr_buffer.lstr_length);
+	}
+	else
+		xdr_buffer.lstr_address = NULL;
+
+	while (TRUE)
+	{
+		if (isc_receive(status_vector,
+						GDS_REF(request),
+						0,
+						length,
+						GDS_VAL(buffer),
+						0))
+		{
+			BURP_error_redirect(status_vector, 29, NULL, NULL);
+			/* msg 29 isc_receive failed */
+		}
+		if (!*eof)
+			break;
+		records++;
+		/* Verbose records */
+		if ((records % BACKUP_VERBOSE_INTERVAL) == 0)
+			BURP_verbose(108, (void *) records, NULL, NULL, NULL, NULL);
+
+		PUT(rec_data);
+		PUT_NUMERIC(att_data_length, record_length);
+		if (tdgbl->gbl_sw_transportable)
+		{
+			record_length =
+				CAN_encode_decode(relation, &xdr_buffer, buffer, TRUE);
+			PUT_NUMERIC(att_xdr_length, record_length);
+			p = xdr_buffer.lstr_address;
+		}
+		else
+			p = buffer;
+		PUT(att_data_data);
+		if (tdgbl->gbl_sw_compress)
+			compress(p, record_length);
+		else if (record_length)
+			(void) PUT_BLOCK(p, record_length);
+
+		/* Look for any blobs to write */
+
+		for (field = relation->rel_fields; field; field = field->fld_next)
+		{
+			if (field->fld_type == blr_blob &&
+				!(field->fld_flags & FLD_computed) &&
+				!(field->fld_flags & FLD_array))
+			{
+				put_blob(field,
+						 (ISC_QUAD*) (buffer + field-> fld_offset),
+						 records);
+			}
+		}
+
+		/* Look for any array to write */
+		/* we got back the blob_id for the array from isc_receive in the second param. */
+		for (field = relation->rel_fields; field; field = field->fld_next)
+		{
+			if (field->fld_flags & FLD_array)
+			{
+				put_array(field, relation,
+						  (ISC_QUAD *) (buffer + field->fld_offset));
+			}
+		}
+	}
+
+	BURP_FREE(buffer);
+
+	if (xdr_buffer.lstr_address)
+		BURP_FREE(xdr_buffer.lstr_address);
+
+	BURP_verbose(108, (void *) records, NULL, NULL, NULL, NULL);
+/* msg 108 %ld records written */
+
+	if (isc_release_request(status_vector, GDS_REF(request)))
+		BURP_error_redirect(status_vector, 30, NULL, NULL);
+	/* msg 30 isc_release_request failed */
+}
+
+
+static void put_index( REL relation)
+{
+/**************************************
+ *
+ *	p u t _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write information about an index.  First
+ *	check that all the segments of the
+ *	index exist.
+ *
+ **************************************/
+	ULONG l, count, match;
+	TEXT temp[32];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* if we have all capabilities, use the first request to get the 
+   most performance out of the latest engine; if we don't 
+   have one of the capabilities we must use the second set of 
+   requests--this requires more code but it is well worth it 
+   for the performance benefits, especially remotely--deej */
+
+	if ((tdgbl->BCK_capabilities & BCK_idx_inactive) &&
+		(tdgbl->BCK_capabilities & BCK_attributes_v3) &&
+		(tdgbl->BCK_capabilities & BCK_ods8))
+	{
+	    FOR (REQUEST_HANDLE tdgbl->handles_put_index_req_handle1)
+	        X IN RDB$INDICES WITH 
+	        X.RDB$RELATION_NAME EQ relation->rel_name
+	
+	        count = 0;
+	        FOR (REQUEST_HANDLE tdgbl->handles_put_index_req_handle2)
+	            I_S IN RDB$INDEX_SEGMENTS CROSS 
+	            RFR IN RDB$RELATION_FIELDS WITH 
+	       I_S.RDB$FIELD_NAME = RFR.RDB$FIELD_NAME AND 
+	       I_S.RDB$INDEX_NAME = X.RDB$INDEX_NAME AND 
+	            RFR.RDB$RELATION_NAME = relation->rel_name 
+	
+	            count++;
+	
+	        END_FOR;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	
+	        if (count != (ULONG) X.RDB$SEGMENT_COUNT) 
+	       {
+	       BURP_print (180, X.RDB$INDEX_NAME, (void*) count, (void*) X.RDB$SEGMENT_COUNT, NULL, NULL);
+	       continue; 
+	       }
+	
+	        PUT (rec_index);
+	        l = PUT_TEXT (att_index_name, X.RDB$INDEX_NAME);
+	        MISC_terminate (X.RDB$INDEX_NAME, temp, l, sizeof (temp));
+	        BURP_verbose (151, temp, NULL, NULL, NULL, NULL);
+	        /* msg 151 writing index %s */
+	        PUT_NUMERIC (att_segment_count, X.RDB$SEGMENT_COUNT);
+	   PUT_NUMERIC (att_index_inactive, X.RDB$INDEX_INACTIVE); 
+	        PUT_NUMERIC (att_index_unique_flag, X.RDB$UNIQUE_FLAG);
+	
+	        FOR (REQUEST_HANDLE tdgbl->handles_put_index_req_handle5)
+	            Y IN RDB$INDEX_SEGMENTS WITH 
+	            Y.RDB$INDEX_NAME EQ X.RDB$INDEX_NAME
+	           SORTED BY Y.RDB$FIELD_POSITION
+	
+	       PUT_TEXT (att_index_field_name, Y.RDB$FIELD_NAME);
+	
+	        END_FOR;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	
+	        put_source_blob (att_index_description2, att_index_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+	        PUT_NUMERIC (att_index_type, X.RDB$INDEX_TYPE);
+	
+	   if (!X.RDB$EXPRESSION_SOURCE.NULL)
+	       put_source_blob (att_index_expression_source, att_index_expression_source, (ISC_QUAD *)&X.RDB$EXPRESSION_SOURCE);
+	   if (!X.RDB$EXPRESSION_BLR.NULL)
+	       put_blr_blob (att_index_expression_blr, (ISC_QUAD *)&X.RDB$EXPRESSION_BLR);
+	   if (!X.RDB$FOREIGN_KEY.NULL)
+	       PUT_TEXT (att_index_foreign_key, X.RDB$FOREIGN_KEY);
+	        PUT (att_end);
+	
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+	}
+	else
+	{
+	    FOR (REQUEST_HANDLE tdgbl->handles_put_index_req_handle1)
+	        X IN RDB$INDICES WITH 
+	        X.RDB$RELATION_NAME EQ relation->rel_name
+	
+	        count = 0;
+	        FOR (REQUEST_HANDLE tdgbl->handles_put_index_req_handle2)
+	            I_S IN RDB$INDEX_SEGMENTS WITH 
+	       I_S.RDB$INDEX_NAME = X.RDB$INDEX_NAME
+	       match = FALSE;
+	
+	       FOR (REQUEST_HANDLE tdgbl->handles_put_index_req_handle3)
+	            RFR IN RDB$RELATION_FIELDS WITH 
+	           I_S.RDB$FIELD_NAME = RFR.RDB$FIELD_NAME AND
+	           RFR.RDB$RELATION_NAME = relation->rel_name 
+	           match = TRUE;
+	       END_FOR;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+	       if (!match)
+	            BURP_print (179, I_S.RDB$FIELD_NAME, X.RDB$INDEX_NAME, NULL, NULL, NULL); 
+	       else
+	           count++;
+	        END_FOR;
+	        ON_ERROR
+	             general_on_error ();
+	        END_ERROR;
+	
+	        if (count != (ULONG) X.RDB$SEGMENT_COUNT) 
+	       {
+	       BURP_print (180, X.RDB$INDEX_NAME, (void*) count, (void*) X.RDB$SEGMENT_COUNT, NULL, NULL);
+	       continue; 
+	       }
+	
+	        PUT (rec_index);
+	        l = PUT_TEXT (att_index_name, X.RDB$INDEX_NAME);
+	        MISC_terminate (X.RDB$INDEX_NAME, temp, l, sizeof (temp));
+	        BURP_verbose (151, temp, NULL, NULL, NULL, NULL);
+	       /* msg 151 writing index %s */
+	        PUT_NUMERIC (att_segment_count, X.RDB$SEGMENT_COUNT);
+	        if (tdgbl->BCK_capabilities & BCK_idx_inactive)
+	       FOR (REQUEST_HANDLE tdgbl->handles_put_index_req_handle4)
+	                I IN RDB$INDICES WITH I.RDB$INDEX_NAME = X.RDB$INDEX_NAME
+	           PUT_NUMERIC (att_index_inactive, I.RDB$INDEX_INACTIVE); 
+	       END_FOR;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+	        PUT_NUMERIC (att_index_unique_flag, X.RDB$UNIQUE_FLAG);
+	        FOR (REQUEST_HANDLE tdgbl->handles_put_index_req_handle5)
+	            Y IN RDB$INDEX_SEGMENTS WITH Y.RDB$INDEX_NAME EQ X.RDB$INDEX_NAME
+	           SORTED BY Y.RDB$FIELD_POSITION
+	       PUT_TEXT (att_index_field_name, Y.RDB$FIELD_NAME);
+	        END_FOR;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	        put_source_blob (att_index_description2, att_index_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+	        if (tdgbl->BCK_capabilities & BCK_attributes_v3)
+	            FOR (REQUEST_HANDLE tdgbl->handles_put_index_req_handle6)
+	                I IN RDB$INDICES WITH I.RDB$INDEX_NAME = X.RDB$INDEX_NAME
+	                PUT_NUMERIC (att_index_type, I.RDB$INDEX_TYPE);
+	            END_FOR;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+	        if (tdgbl->BCK_capabilities & BCK_ods8)
+	            FOR (REQUEST_HANDLE tdgbl->handles_put_index_req_handle7)
+	                I IN RDB$INDICES WITH I.RDB$INDEX_NAME = X.RDB$INDEX_NAME
+	           if (!I.RDB$EXPRESSION_SOURCE.NULL)
+	           put_source_blob (att_index_expression_source, att_index_expression_source, (ISC_QUAD *)&I.RDB$EXPRESSION_SOURCE);
+	           if (!I.RDB$EXPRESSION_BLR.NULL)
+	           put_blr_blob (att_index_expression_blr, (ISC_QUAD *)&I.RDB$EXPRESSION_BLR);
+	           if (!I.RDB$FOREIGN_KEY.NULL)
+	           PUT_TEXT (att_index_foreign_key, I.RDB$FOREIGN_KEY);
+	            END_FOR;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+	        PUT (att_end);
+	
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+	}
+}
+
+
+static int put_message( SCHAR attribute, TEXT * text, ULONG length)
+{
+/**************************************
+ *
+ *	p u t _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a variable length text string, with embedded
+ *      blanks.  Same as put_text but handles embedded blanks.
+ *
+ **************************************/
+	TEXT *p;
+	ULONG l;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	for (p = text, l = 0; *p && l < length; p++)
+		l++;
+
+	l = length = MIN(l, length);
+	PUT(attribute);
+	PUT(l);
+	if (l)
+		(void) PUT_BLOCK(text, l);
+
+	return length;
+}
+
+
+static void put_numeric( SCHAR attribute, SLONG value)
+{
+/**************************************
+ *
+ *	p u t _ n u m e r i c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a numeric value as an attribute.  The number is represented
+ *	low byte first, high byte last, as in VAX.
+ *
+ **************************************/
+	SLONG vax_value;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	vax_value = (SLONG) isc_vax_integer((UCHAR *) & value, sizeof(value));
+
+	PUT(attribute);
+	PUT(sizeof(value));
+	(void) PUT_BLOCK((UCHAR *) & vax_value, sizeof(vax_value));
+}
+
+
+static void put_int64( SCHAR attribute, SINT64 value)
+{
+/**************************************
+ *
+ *	p u t _ i n t 6 4
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a 64-bit numeric value as an attribute.
+ *      The number is represented low byte first, high byte last, as in VAX.
+ *      This function is just like put_numeric, except that it handles an
+ *      INT64 value, while put_numeric handles a 32-bit value.
+ *
+ **************************************/
+	UINT64 le_value;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	le_value =
+		(UINT64) isc_portable_integer((UCHAR *) (&value), sizeof(value));
+
+	PUT(attribute);
+	PUT(sizeof(value));
+	(void) PUT_BLOCK((UCHAR *) & le_value, sizeof(le_value));
+}
+
+
+static void put_relation( REL relation)
+{
+/**************************************
+ *
+ * 	p u t _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write relation meta-data and data.
+ *
+ **************************************/
+	FLD fields, field, aligned, unaligned, aligned4, aligned8;
+	TEXT temp[32];
+	USHORT l, n;
+	SLONG *rp;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* Write local field information.  This is made slightly more complicated
+   by the requirement that computational fields be aligned. */
+
+	aligned = unaligned = aligned4 = aligned8 = NULL;
+
+	fields = get_fields(relation);
+
+/* sort the list of fields into three lists, depending on alignment */
+
+	for (field = fields; field = fields;)
+	{
+		fields = field->fld_next;
+		l = field->fld_length;
+		if (field->fld_type == blr_varying)
+			l += sizeof(USHORT);
+		if (!(l & 7))
+		{
+			field->fld_next = aligned8;
+			aligned8 = field;
+		}
+		else if (!(l & 3))
+		{
+			field->fld_next = aligned4;
+			aligned4 = field;
+		}
+		else if (l & 1)
+		{
+			field->fld_next = unaligned;
+			unaligned = field;
+		}
+		else
+		{
+			field->fld_next = aligned;
+			aligned = field;
+		}
+	}
+
+/* Next, merge the aligned and unaligned sub-lists.  In the process,
+   re-create (approximately) the original order of the fields.  This is
+   not strictly required, but it certainly is polite. */
+
+	while (field = unaligned)
+	{
+		unaligned = field->fld_next;
+		field->fld_next = relation->rel_fields;
+		relation->rel_fields = field;
+	}
+
+	while (field = aligned)
+	{
+		aligned = field->fld_next;
+		field->fld_next = relation->rel_fields;
+		relation->rel_fields = field;
+	}
+
+	while (field = aligned4)
+	{
+		aligned4 = field->fld_next;
+		field->fld_next = relation->rel_fields;
+		relation->rel_fields = field;
+	}
+
+	while (field = aligned8)
+	{
+		aligned8 = field->fld_next;
+		field->fld_next = relation->rel_fields;
+		relation->rel_fields = field;
+	}
+
+/* Now write the fields in what will become physical backup order */
+
+	for (field = relation->rel_fields; field; field = field->fld_next)
+	{
+		PUT(rec_field);
+		l = PUT_TEXT(att_field_name, field->fld_name);
+		MISC_terminate(field->fld_name, temp, l, sizeof(temp));
+		BURP_verbose(144, temp, NULL, NULL, NULL, NULL);
+		/* msg 144  writing field %s */
+		PUT_TEXT(att_field_source, field->fld_source);
+		if (field->fld_query_name[0])
+			PUT_TEXT(att_field_query_name, field->fld_query_name);
+		if (field->fld_complex_name[0])
+			PUT_TEXT(att_field_complex_name, field->fld_complex_name);
+		if (field->fld_edit_string[0])
+			PUT_TEXT(att_field_edit_string, field->fld_edit_string);
+		put_source_blob(att_field_description2, att_field_description,
+						(ISC_QUAD *) & field->fld_description);
+		put_source_blob(att_field_query_header, att_field_query_header,
+						(ISC_QUAD *) & field->fld_query_header);
+		if (field->fld_security_class[0])
+			PUT_TEXT(att_field_security_class, field->fld_security_class);
+		if (!(field->fld_flags & FLD_position_missing))
+			PUT_NUMERIC(att_field_position, field->fld_position);
+		PUT_NUMERIC(att_field_type, field->fld_type);
+		PUT_NUMERIC(att_field_length, field->fld_length);
+		PUT_NUMERIC(att_field_sub_type, field->fld_sub_type);
+		PUT_NUMERIC(att_field_scale, field->fld_scale);
+		PUT_NUMERIC(att_field_number, field->fld_number);
+		PUT_NUMERIC(att_field_system_flag, field->fld_system_flag);
+		if (!(field->fld_flags & FLD_update_missing))
+			PUT_NUMERIC(att_field_update_flag, field->fld_update_flag);
+		if (field->fld_flags & FLD_null_flag)
+			PUT_NUMERIC(att_field_null_flag, field->fld_null_flag);
+		if (field->fld_flags & FLD_charset_flag)
+			PUT_NUMERIC(att_field_character_set, field->fld_character_set_id);
+		if (field->fld_flags & FLD_collate_flag)
+			PUT_NUMERIC(att_field_collation_id, field->fld_collation_id);
+		put_blr_blob(att_field_default_value,
+					 (ISC_QUAD *) & field->fld_default_value);
+		put_source_blob(att_field_default_source, att_field_default_source,
+						(ISC_QUAD *) & field->fld_default_source);
+		if (relation->rel_flags & REL_view)
+		{
+			PUT_NUMERIC(att_view_context, field->fld_view_context);
+			PUT_TEXT(att_base_field, field->fld_base);
+		}
+		if (field->fld_flags & FLD_computed)
+			PUT_NUMERIC(att_field_computed_flag, TRUE);
+		if (field->fld_flags & FLD_array)
+		{
+			PUT_NUMERIC(att_field_dimensions, field->fld_dimensions);
+			for (rp = field->fld_ranges, n = field->fld_dimensions; n;
+				 rp += 2, n--)
+			{
+				PUT_NUMERIC(att_field_range_low, *rp);
+				PUT_NUMERIC(att_field_range_high, *(rp + 1));
+			}
+		}
+		PUT(att_end);
+	}
+
+/* Write out view relations (if a view, of course) */
+
+	if (relation->rel_flags & REL_view)
+	{
+		if (tdgbl->BCK_capabilities & BCK_context_name)
+		{
+            FOR (REQUEST_HANDLE tdgbl->handles_put_relation_req_handle1)
+                X IN RDB$VIEW_RELATIONS WITH X.RDB$VIEW_NAME EQ relation->rel_name
+                PUT (rec_view);
+                PUT_TEXT (att_view_relation_name, X.RDB$RELATION_NAME);
+                PUT_NUMERIC (att_view_context_id, X.RDB$VIEW_CONTEXT);
+                PUT_TEXT (att_view_context_name, X.RDB$CONTEXT_NAME);
+                PUT (att_end);
+                END_FOR
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+        }
+        else
+		{
+            FOR (REQUEST_HANDLE tdgbl->handles_put_relation_req_handle2)
+               X IN RDB$VIEW_RELATIONS WITH X.RDB$VIEW_NAME EQ relation->rel_name
+               PUT (rec_view);
+               PUT_TEXT (att_view_relation_name, X.RDB$RELATION_NAME);
+               PUT_NUMERIC (att_view_context_id, X.RDB$VIEW_CONTEXT);
+               PUT (att_end);
+            END_FOR;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+        }
+    }
+    PUT(rec_relation_end);
+}
+
+
+static int put_source_blob(SCHAR		attribute,
+						   SCHAR		old_attribute,
+						   ISC_QUAD*	blob_id)
+{
+/**************************************
+ *
+ *	p u t _ s o u r c e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out a source blob or query header if present.
+ *	Return TRUE is there was the blob was present, FALSE otherwise.
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	SLONG length, n;
+	void *blob;
+	UCHAR *p, blob_info[48], item, *buffer, static_buffer[1024];
+	USHORT l, max_segment, num_seg;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* If the blob is null, don't store it.  It will be restored as null. */
+
+	if (!blob_id->isc_quad_high && !blob_id->isc_quad_low)
+		return FALSE;
+
+	if (tdgbl->gbl_sw_old_descriptions && attribute != att_field_query_header)
+		return put_blr_blob(old_attribute, (ISC_QUAD *) blob_id);
+
+/* Open the blob and get it's vital statistics */
+
+	blob = NULL;
+
+	if (isc_open_blob(status_vector,
+					  GDS_REF(tdgbl->db_handle),
+					  GDS_REF(isc_trans),
+					  GDS_REF(blob),
+					  GDS_VAL(blob_id)))
+	{
+		BURP_error_redirect(status_vector, 24, NULL, NULL);
+		/* msg 24 isc_open_blob failed */
+	}
+
+	if (isc_blob_info(status_vector,
+					  GDS_REF(blob),
+					  sizeof(source_items),
+					  (SCHAR *) source_items,
+					  sizeof(blob_info),
+					  blob_info))
+	{
+		BURP_error_redirect(status_vector, 20, NULL, NULL);
+		/* msg 20 isc_blob_info failed */
+	}
+
+	length = 0;
+	p = blob_info;
+
+	while ((item = *p++) != isc_info_end)
+	{
+		l = (USHORT) isc_vax_integer(p, 2);
+		p += 2;
+		n = (USHORT) isc_vax_integer(p, l);
+		p += l;
+		switch (item)
+		{
+		case isc_info_blob_max_segment:
+			max_segment = (USHORT) n;
+			break;
+
+		case isc_info_blob_total_length:
+			length = n;
+			break;
+
+		case isc_info_blob_num_segments:
+			num_seg = (USHORT) n;
+			break;
+
+		default:
+			BURP_print(79, (void *) item, NULL, NULL, NULL, NULL);
+			/* msg 79 don't understand blob info item %ld  */
+			return FALSE;
+		}
+	}
+
+	if (!length)
+	{
+		if (isc_close_blob(status_vector, GDS_REF(blob)))
+		{
+			BURP_error_redirect(status_vector, 23, NULL, NULL);
+			/* msg 23 isc_close_blob failed */
+		}
+		return FALSE;
+	}
+
+/* Rdb sometimes gets the length messed up */
+
+	if (length < max_segment)
+		length = max_segment;
+
+	PUT_NUMERIC(attribute, length + num_seg);
+
+/* Allocate a buffer large enough for the largest segment and start grinding. */
+
+	if (!max_segment || max_segment <= sizeof(static_buffer))
+		buffer = static_buffer;
+	else
+		buffer = BURP_ALLOC(max_segment);
+
+	while (!isc_get_segment(status_vector,
+							GDS_REF(blob),
+							GDS_REF(l),
+							max_segment,
+							GDS_VAL(buffer)))
+	{
+		if (l)
+		{
+			(void) PUT_BLOCK(buffer, l);
+		}
+		PUT(NULL);
+	}
+
+	if (isc_close_blob(status_vector, GDS_REF(blob)))
+		BURP_error_redirect(status_vector, 23, NULL, NULL);
+	/* msg 23 isc_close_blob failed */
+
+	if (buffer != static_buffer)
+		BURP_FREE(buffer);
+
+	return TRUE;
+}
+
+
+static int put_text( SCHAR attribute, TEXT * text, SSHORT length)
+{
+/**************************************
+ *
+ *	p u t _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a variable length text string, with embedded spaces.
+ *	Truncate trailing spaces.
+ *
+ **************************************/
+	TEXT *p;
+	SSHORT l = 0;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* find end of string */
+	p = text;
+	while (*p++ && (l < length))
+		l++;
+
+	length = MIN(l, length);
+
+/* skip trailing spaces */
+	for (p = text + length - 1, l = 0; *p == ' ' && l < length; p--)
+		l++;
+
+	l = length = length - l;
+	PUT(attribute);
+	PUT(l);
+	if (l)
+		(void) PUT_BLOCK(text, l);
+
+	return length;
+}
+
+
+static void put_trigger(enum trig_t type,
+						GDS__QUAD * blob_ident,
+						GDS__QUAD * source_blob, GDS_NAME rel_name)
+{
+/**************************************
+ *
+ *	p u t _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a trigger to the output file.
+ *	NOTE: This is used backup pre-V3 triggers only 
+ *
+ **************************************/
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (!blob_ident->gds_quad_low)
+		return;
+
+	PUT(rec_trigger);
+	PUT_NUMERIC(att_trig_type, type);
+	put_blr_blob(att_trig_blr, (ISC_QUAD *) blob_ident);
+	put_source_blob(att_trig_source2, att_trig_source,
+					(ISC_QUAD *) source_blob);
+	PUT(att_end);
+}
+
+
+static void set_capabilities(void)
+{
+/**************************************
+ *
+ *	s e t _ c a p a b i l i t i e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	
+ *	set the capabilities bits for the
+ *	database being extracted to avoid
+ *	unpleasantness later.
+ *
+ **************************************/
+	ULONG *req;
+	RFR_TAB rel_field_table;
+	TEXT *relation, *field;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	req = NULL;
+
+/* Look for desireable fields in system relations */
+
+	for (rel_field_table = (RFR_TAB) rfr_table; rel_field_table->relation;
+		 rel_field_table++)
+	{
+		field = (TEXT *) rel_field_table->field;
+		relation = (TEXT *) rel_field_table->relation;
+	    FOR (REQUEST_HANDLE req) x IN RDB$RELATION_FIELDS 
+            WITH x.RDB$RELATION_NAME = relation
+            AND x.RDB$FIELD_NAME = field
+            tdgbl->BCK_capabilities |= rel_field_table->bit_mask;
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+	}
+
+	isc_release_request(isc_status, GDS_REF(req));
+}
+
+
+static int symbol_length( TEXT * symbol)
+{
+/**************************************
+ *
+ *	s y m b o l _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute length of blank/null terminated symbol.
+ *
+ **************************************/
+	TEXT *p;
+
+	for (p = symbol; *p && *p != ' '; p++);
+
+	return p - symbol;
+}
+
+
+static void write_character_sets(void)
+{
+/**************************************
+ *
+ *	w r i t e _ c h a r a c t e r _ s e t s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each user defined character set.
+ *
+ **************************************/
+	isc_req_handle req_handle1 = NULL;
+	long req_status[20];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$CHARACTER_SETS WITH X.RDB$SYSTEM_FLAG MISSING OR X.RDB$SYSTEM_FLAG NE 1
+	    PUT (rec_charset);
+        PUT_TEXT (att_charset_name, X.RDB$CHARACTER_SET_NAME);
+	    if (!X.RDB$FORM_OF_USE.NULL)
+	        PUT_TEXT (att_charset_form, X.RDB$FORM_OF_USE);
+	    if (!X.RDB$NUMBER_OF_CHARACTERS.NULL)
+	        PUT_NUMERIC (att_charset_numchar, X.RDB$NUMBER_OF_CHARACTERS);
+	    PUT_TEXT (att_charset_coll, X.RDB$DEFAULT_COLLATE_NAME);
+	    PUT_NUMERIC (att_charset_id, X.RDB$CHARACTER_SET_ID);
+	    if (X.RDB$SYSTEM_FLAG)
+	        PUT_NUMERIC (att_charset_sysflag, X.RDB$SYSTEM_FLAG);
+	    if (!X.RDB$DESCRIPTION.NULL)
+	        put_source_blob (att_charset_description, att_charset_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+	    if (!X.RDB$FUNCTION_NAME.NULL)
+	        PUT_TEXT (att_charset_funct, X.RDB$FUNCTION_NAME);
+	    PUT_NUMERIC (att_charset_bytes_char, X.RDB$BYTES_PER_CHARACTER);
+	
+        PUT (att_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	if (req_handle1)
+		isc_release_request(req_status, &req_handle1);
+}
+
+
+static void write_check_constraints(void)
+{
+/**************************************
+ *
+ *	w r i t e _ c h e c k _ c o n s t r a i n t s 
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each check constraint. 
+ *
+ **************************************/
+	isc_req_handle req_handle1 = NULL;
+	long req_status[20];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$CHECK_CONSTRAINTS
+	    PUT (rec_chk_constraint);
+	
+	    PUT_TEXT (att_chk_constraint_name, X.RDB$CONSTRAINT_NAME);
+	    if (!(X.RDB$TRIGGER_NAME.NULL))
+	        PUT_TEXT (att_chk_trigger_name, X.RDB$TRIGGER_NAME);
+        PUT (att_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	if (req_handle1)
+		isc_release_request(req_status, &req_handle1);
+}
+
+
+static void write_collations(void)
+{
+/**************************************
+ *
+ *	w r i t e _ c o l l a t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each user defined collation
+ *
+ **************************************/
+	isc_req_handle req_handle1 = NULL;
+	long req_status[20];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$COLLATIONS WITH X.RDB$SYSTEM_FLAG MISSING OR X.RDB$SYSTEM_FLAG NE 1
+	    PUT (rec_collation);
+	    PUT_TEXT (att_coll_name, X.RDB$COLLATION_NAME);
+	    PUT_NUMERIC (att_coll_id, X.RDB$COLLATION_ID);
+	    PUT_NUMERIC (att_coll_cs_id, X.RDB$CHARACTER_SET_ID);
+	    PUT_NUMERIC (att_coll_attr, X.RDB$COLLATION_ATTRIBUTES);
+	    if (X.RDB$SYSTEM_FLAG)
+	        PUT_NUMERIC (att_coll_sysflag, X.RDB$SYSTEM_FLAG);
+	    if (!X.RDB$DESCRIPTION.NULL)
+	        put_source_blob (att_coll_description, att_coll_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+	    if (!X.RDB$FUNCTION_NAME.NULL)
+	        PUT_TEXT (att_coll_funct, X.RDB$FUNCTION_NAME);
+	
+        PUT (att_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	if (req_handle1)
+		isc_release_request(req_status, &req_handle1);
+}
+
+static void write_database( TEXT * dbb_file)
+{
+/**************************************
+ *
+ *	w r i t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a physical database record and a
+ *	logical database record in the burp file for
+ *	the database itself.  
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	USHORT page_size, forced_writes, no_reserve,
+		length, SQL_dialect, db_read_only;
+	ULONG sweep_interval, page_buffers;
+	SCHAR buffer[256], *d, item;
+	isc_req_handle req_handle1 = NULL, req_handle2 = NULL, req_handle3 = NULL;
+	long req_status[20];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	PUT(rec_physical_db);
+
+	page_size = 0;
+	if (isc_database_info(status_vector,
+						  GDS_REF(tdgbl->db_handle),
+						  sizeof(db_info_items),
+						  (UCHAR *) db_info_items, sizeof(buffer), buffer))
+	{
+		BURP_error_redirect(status_vector, 31, NULL, NULL);
+		/* msg 31 isc_database_info failed */
+	}
+
+	for (d = buffer; *d != isc_info_end; d += length)
+	{
+		item = *d++;
+		length = (USHORT) isc_vax_integer(d, 2);
+		d += 2;
+		switch (item)
+		{
+		case isc_info_end:
+			break;
+
+		case isc_info_page_size:
+			page_size = (USHORT) isc_vax_integer(d, length);
+			PUT_NUMERIC(att_page_size, page_size);
+			break;
+
+		case isc_info_sweep_interval:
+			sweep_interval = isc_vax_integer(d, length);
+			PUT_NUMERIC(att_sweep_interval, sweep_interval);
+			break;
+
+		case isc_info_forced_writes:
+			forced_writes = (USHORT) isc_vax_integer(d, length);
+			PUT_NUMERIC(att_forced_writes, forced_writes);
+			break;
+
+		case isc_info_no_reserve:
+			if (no_reserve = (USHORT) isc_vax_integer(d, length))
+				PUT_NUMERIC(att_no_reserve, no_reserve);
+			break;
+
+		case isc_info_set_page_buffers:
+			if (page_buffers = isc_vax_integer(d, length))
+				PUT_NUMERIC(att_page_buffers, page_buffers);
+			break;
+
+		case isc_info_error:	/* old server does not understand new isc_info */
+			break;				/* parametere and returns isc_info_error. skip it */
+
+		case isc_info_db_sql_dialect:
+			SQL_dialect = (USHORT) isc_vax_integer(d, length);
+			PUT_NUMERIC(att_SQL_dialect, SQL_dialect);
+			break;
+
+#ifdef READONLY_DATABASE
+		case isc_info_db_read_only:
+			if (db_read_only = (USHORT) isc_vax_integer(d, length))
+				PUT_NUMERIC(att_db_read_only, db_read_only);
+			break;
+#endif /* READONLY_DATABASE */
+
+		default:
+			BURP_error_redirect(status_vector, 31, NULL, NULL);
+			/* msg 31 isc_database_info failed */
+			break;
+		}
+	}
+
+	PUT_ASCIZ(att_file_name, dbb_file);
+
+	BURP_verbose(77, dbb_file, (void *) page_size, NULL, NULL, NULL);
+/* msg 77 database %s has a page size of %ld bytes. */
+
+	PUT(att_end);
+
+	PUT(rec_database);
+
+/* if we have all capabilities, use the first request to get the 
+   most performance out of the latest engine; if we don't 
+   have one of the capabilities we must use the second set of 
+   requests--this requires more code but it is well worth it 
+   for the performance benefits, especially remotely--deej */
+
+	if ((tdgbl->BCK_capabilities & BCK_security) &&
+		(tdgbl->BCK_capabilities & BCK_db_description) &&
+		(tdgbl->BCK_capabilities & BCK_ods8))
+	{
+	    FOR (REQUEST_HANDLE req_handle1)
+	        D IN RDB$DATABASE
+	
+	        if (!D.RDB$SECURITY_CLASS.NULL)
+	            PUT_TEXT (att_database_security_class, D.RDB$SECURITY_CLASS);
+            put_source_blob (att_database_description2, att_database_description, (ISC_QUAD *)&D.RDB$DESCRIPTION);
+            if (!D.RDB$CHARACTER_SET_NAME.NULL)
+                PUT_TEXT (att_database_dfl_charset, D.RDB$CHARACTER_SET_NAME);
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+	}
+	else
+	{
+        if (tdgbl->BCK_capabilities & BCK_security)
+		{
+	        FOR (REQUEST_HANDLE req_handle1)
+	            D IN RDB$DATABASE
+                if (!D.RDB$SECURITY_CLASS.NULL)
+                    PUT_TEXT (att_database_security_class, D.RDB$SECURITY_CLASS);
+            END_FOR;
+            ON_ERROR
+                general_on_error ();
+            END_ERROR;
+        }
+        
+        if (tdgbl->BCK_capabilities & BCK_db_description)
+		{
+	        FOR (REQUEST_HANDLE req_handle2)
+	            D IN RDB$DATABASE
+                put_source_blob (att_database_description2, att_database_description, (ISC_QUAD *)&D.RDB$DESCRIPTION);
+            END_FOR; 
+            ON_ERROR
+                general_on_error ();
+            END_ERROR;
+        }
+
+        if (tdgbl->BCK_capabilities & BCK_ods8)
+		{
+	        FOR (REQUEST_HANDLE req_handle3)
+	            D IN RDB$DATABASE
+                if (!D.RDB$CHARACTER_SET_NAME.NULL)
+                    PUT_TEXT (att_database_dfl_charset, D.RDB$CHARACTER_SET_NAME);
+            END_FOR;
+            ON_ERROR
+                general_on_error ();
+            END_ERROR;
+        }
+    }
+    
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+    if (req_handle2)
+        isc_release_request(req_status, &req_handle2);
+    if (req_handle3)
+        isc_release_request(req_status, &req_handle3);
+    
+    PUT(att_end);
+}
+
+
+static void write_exceptions(void) 
+{
+/**************************************
+ *                                                                   
+ *	w r i t e _ e x c e p t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each exception.
+ *
+ **************************************/
+    SSHORT l;
+    TEXT temp[32];
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$EXCEPTIONS
+	    PUT (rec_exception);
+        l = PUT_TEXT (att_exception_name, X.RDB$EXCEPTION_NAME);
+        MISC_terminate (X.RDB$EXCEPTION_NAME, temp, l, sizeof (temp));
+        BURP_verbose (198, temp, NULL, NULL, NULL, NULL);
+    /* msg 198 writing exception %s */
+        PUT_MESSAGE (att_exception_msg, X.RDB$MESSAGE);
+        put_source_blob (att_exception_description2, att_procedure_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+        PUT (att_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+}
+
+static void write_field_dimensions(void) 
+{
+/**************************************
+ *                                                                   
+ *	w r i t e _ f i e l d _ d i m e n s i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each array field dimension.
+ *
+ **************************************/
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$FIELD_DIMENSIONS
+	    PUT (rec_field_dimensions);
+        PUT_TEXT (att_field_name, X.RDB$FIELD_NAME);
+        PUT_NUMERIC (att_field_dimensions, X.RDB$DIMENSION);
+        PUT_NUMERIC (att_field_range_low, X.RDB$LOWER_BOUND);
+        PUT_NUMERIC (att_field_range_high, X.RDB$UPPER_BOUND);
+        PUT (att_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+} 
+
+
+static void write_filters(void) 
+{
+/**************************************
+ *                                                                   
+ *	w r i t e _ f i l t e r s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each filter.
+ *
+ **************************************/
+    SSHORT l;
+    TEXT temp[32];
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$FILTERS
+	    PUT (rec_filter);
+        l = PUT_TEXT (att_filter_name, X.RDB$FUNCTION_NAME);
+        MISC_terminate (X.RDB$FUNCTION_NAME, temp, l, sizeof (temp));
+        BURP_verbose (145, temp, NULL, NULL, NULL, NULL);
+        /* msg 145 writing filter %s */
+        put_source_blob (att_filter_description2, att_filter_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+        PUT_TEXT (att_filter_module_name, X.RDB$MODULE_NAME);
+        PUT_TEXT (att_filter_entrypoint, X.RDB$ENTRYPOINT);
+        PUT_NUMERIC (att_filter_input_sub_type, X.RDB$INPUT_SUB_TYPE);
+        PUT_NUMERIC (att_filter_output_sub_type, X.RDB$OUTPUT_SUB_TYPE);
+        PUT (att_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+}
+
+static void write_functions(void) 
+{
+/**************************************
+ *                                                                   
+ *	w r i t e _ f u n c t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each function.
+ *
+ **************************************/
+    SSHORT l;
+    GDS_NAME func;
+    TEXT temp[32];
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$FUNCTIONS
+	    PUT (rec_function);
+        l = PUT_TEXT (att_function_name, X.RDB$FUNCTION_NAME);
+        MISC_terminate (X.RDB$FUNCTION_NAME, temp, l, sizeof (temp));
+        BURP_verbose (147, temp, NULL, NULL, NULL, NULL);
+        /* msg 147 writing function %.*s */
+        put_source_blob (att_function_description2, att_function_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+        PUT_TEXT (att_function_module_name, X.RDB$MODULE_NAME);
+        PUT_TEXT (att_function_entrypoint, X.RDB$ENTRYPOINT);
+        PUT_NUMERIC (att_function_return_arg, X.RDB$RETURN_ARGUMENT);
+        PUT_NUMERIC (att_function_type, X.RDB$FUNCTION_TYPE);
+        PUT_TEXT (att_function_query_name, X.RDB$QUERY_NAME);
+        PUT (att_end);
+        copy (X.RDB$FUNCTION_NAME, func, GDS_NAME_LEN - 1);
+        write_function_args (func);
+        PUT (rec_function_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+} 
+
+static void write_function_args( GDS_NAME funcptr) 
+{
+/**************************************
+ *
+ *	w r i t e _ f u n c t i o n _ a r g s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write all arguments for a function.
+ *
+ **************************************/ 
+    SSHORT l;
+    TEXT temp[32];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+    /* if we have all capabilities, use the first request to get the 
+       most performance out of the latest engine; if we don't 
+       have one of the capabilities we must use the second set of 
+       requests--this requires more code but it is well worth it 
+       for the performance benefits, especially remotely--deej */
+
+    if (tdgbl->BCK_capabilities & BCK_ods10)
+	{
+	    FOR (REQUEST_HANDLE tdgbl->handles_write_function_args_req_handle1)
+	        X IN RDB$FUNCTION_ARGUMENTS WITH 
+	        X.RDB$FUNCTION_NAME EQ funcptr
+	
+	        PUT (rec_function_arg);
+            l = PUT_TEXT (att_functionarg_name, X.RDB$FUNCTION_NAME);
+            MISC_terminate (X.RDB$FUNCTION_NAME, temp, l, sizeof (temp));
+            BURP_verbose (141, temp, NULL, NULL, NULL, NULL);
+            /* msg 141 writing argument for function %s */
+            PUT_NUMERIC (att_functionarg_position, X.RDB$ARGUMENT_POSITION);
+            PUT_NUMERIC (att_functionarg_mechanism, X.RDB$MECHANISM);
+            PUT_NUMERIC (att_functionarg_field_type, X.RDB$FIELD_TYPE);
+            PUT_NUMERIC (att_functionarg_field_scale, X.RDB$FIELD_SCALE);
+            PUT_NUMERIC (att_functionarg_field_length, X.RDB$FIELD_LENGTH);
+            PUT_NUMERIC (att_functionarg_field_sub_type, X.RDB$FIELD_SUB_TYPE);
+            if (!(X.RDB$CHARACTER_SET_ID.NULL))
+                PUT_NUMERIC (att_functionarg_character_set, X.RDB$CHARACTER_SET_ID);
+            
+            if (!(X.RDB$FIELD_PRECISION.NULL))
+                PUT_NUMERIC (att_functionarg_field_precision, X.RDB$FIELD_PRECISION);
+            PUT (att_end);
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+    }
+    else
+	{
+	    FOR (REQUEST_HANDLE tdgbl->handles_write_function_args_req_handle1)
+	        X IN RDB$FUNCTION_ARGUMENTS WITH 
+	        X.RDB$FUNCTION_NAME EQ funcptr
+	
+	        PUT (rec_function_arg);
+            l = PUT_TEXT (att_functionarg_name, X.RDB$FUNCTION_NAME);
+            MISC_terminate (X.RDB$FUNCTION_NAME, temp, l, sizeof (temp));
+            BURP_verbose (141, temp, NULL, NULL, NULL, NULL);
+            /* msg 141 writing argument for function %s */
+            PUT_NUMERIC (att_functionarg_position, X.RDB$ARGUMENT_POSITION);
+            PUT_NUMERIC (att_functionarg_mechanism, X.RDB$MECHANISM);
+            PUT_NUMERIC (att_functionarg_field_type, X.RDB$FIELD_TYPE);
+            PUT_NUMERIC (att_functionarg_field_scale, X.RDB$FIELD_SCALE);
+            PUT_NUMERIC (att_functionarg_field_length, X.RDB$FIELD_LENGTH);
+            PUT_NUMERIC (att_functionarg_field_sub_type, X.RDB$FIELD_SUB_TYPE);
+	    
+            if (tdgbl->BCK_capabilities & BCK_ods8)
+			{
+                FOR (REQUEST_HANDLE tdgbl->handles_write_function_args_req_handle2)
+	                X2 IN RDB$FUNCTION_ARGUMENTS WITH 
+                    X2.RDB$FUNCTION_NAME EQ funcptr AND 
+                    X2.RDB$ARGUMENT_POSITION = X.RDB$ARGUMENT_POSITION;
+	
+                    if (!(X2.RDB$CHARACTER_SET_ID.NULL))
+                        PUT_NUMERIC (att_functionarg_character_set, X2.RDB$CHARACTER_SET_ID);
+                /* Note that BCK_ods10 canNOT be set if we're in this
+                   ``else'' branch.  Hence there is no need to test that
+                   bit and store the RDB$FIELD_PRECISION. */
+	       
+                END_FOR;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+            }
+            PUT (att_end);
+	
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+    }
+}
+
+
+static void write_generators(void) 
+{
+/**************************************
+ *
+ *	w r i t e _ g e n e r a t o r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write any defined generators.
+ *
+ **************************************/
+    SINT64 value;
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$GENERATORS WITH X.RDB$SYSTEM_FLAG MISSING OR X.RDB$SYSTEM_FLAG NE 1
+	    PUT (rec_generator);
+        PUT_TEXT (att_gen_generator, X.RDB$GENERATOR_NAME);
+        value = get_gen_id (X.RDB$GENERATOR_NAME);
+        PUT_INT64 (att_gen_value_int64, value);
+        PUT (att_end);
+        BURP_verbose (165, X.RDB$GENERATOR_NAME, (void*) value, NULL, NULL, NULL);
+        /* msg 165 writing generator %s value %ld */
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+} 
+
+
+static void write_global_fields(void) 
+{
+/**************************************
+ *
+ *	w r i t e _ g l o b a l _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each global field. 
+ *
+ **************************************/
+    SSHORT l;
+    TEXT temp[32];
+    isc_req_handle req_handle1 = NULL, req_handle2 = NULL,
+        req_handle3 = NULL, req_handle4 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+    /* if we have all capabilities, use the first request to get the 
+       most performance out of the latest engine; if we don't 
+       have one of the capabilities we must use the second set of 
+       requests--this requires more code but it is well worth it 
+       for the performance benefits, especially remotely--deej */
+
+    if ((tdgbl->BCK_capabilities & BCK_attributes_v3) &&
+        (tdgbl->BCK_capabilities & BCK_ods8) &&
+        (tdgbl->BCK_capabilities & BCK_ods10))
+	{
+	    FOR (REQUEST_HANDLE req_handle1)
+	        X IN RDB$FIELDS WITH 
+	        X.RDB$SYSTEM_FLAG NE 1 OR 
+	        X.RDB$SYSTEM_FLAG MISSING
+	
+	        PUT (rec_global_field);
+            l = PUT_TEXT (att_field_name, X.RDB$FIELD_NAME);
+            MISC_terminate (X.RDB$FIELD_NAME, temp, l, sizeof (temp));
+            BURP_verbose (149, temp, NULL, NULL, NULL, NULL);
+            /* msg 149  writing global field %.*s */
+            if (X.RDB$QUERY_NAME [0] != ' ')
+                PUT_TEXT (att_field_query_name, X.RDB$QUERY_NAME);
+            if (X.RDB$EDIT_STRING [0] != ' ')
+                PUT_TEXT (att_field_edit_string, X.RDB$EDIT_STRING);
+            put_source_blob (att_field_query_header, att_field_query_header, (ISC_QUAD *)&X.RDB$QUERY_HEADER);
+            PUT_NUMERIC (att_field_type, X.RDB$FIELD_TYPE);
+            PUT_NUMERIC (att_field_length, X.RDB$FIELD_LENGTH);
+            PUT_NUMERIC (att_field_sub_type, X.RDB$FIELD_SUB_TYPE);
+            PUT_NUMERIC (att_field_scale, X.RDB$FIELD_SCALE);
+            put_blr_blob (att_field_missing_value, (ISC_QUAD *)&X.RDB$MISSING_VALUE);
+            put_blr_blob (att_field_default_value, (ISC_QUAD *)&X.RDB$DEFAULT_VALUE);
+            put_blr_blob (att_field_validation_blr, (ISC_QUAD *)&X.RDB$VALIDATION_BLR);
+            put_source_blob (att_field_validation_source2, att_field_validation_source, (ISC_QUAD *)&X.RDB$VALIDATION_SOURCE);
+            put_blr_blob (att_field_computed_blr, &X.RDB$COMPUTED_BLR);
+            put_source_blob (att_field_computed_source2, att_field_computed_source, (ISC_QUAD *)&X.RDB$COMPUTED_SOURCE);
+            if (X.RDB$SEGMENT_LENGTH)
+                PUT_NUMERIC (att_field_segment_length, X.RDB$SEGMENT_LENGTH);
+            if (X.RDB$SYSTEM_FLAG)
+                PUT_NUMERIC (att_field_system_flag, X.RDB$SYSTEM_FLAG);
+            put_source_blob (att_field_description2, att_field_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+            
+            if (X.RDB$EXTERNAL_LENGTH)
+                PUT_NUMERIC (att_field_external_length, X.RDB$EXTERNAL_LENGTH);
+            if (X.RDB$EXTERNAL_TYPE) 
+                PUT_NUMERIC (att_field_external_type, X.RDB$EXTERNAL_TYPE);
+            if (X.RDB$EXTERNAL_SCALE)
+                PUT_NUMERIC (att_field_external_scale, X.RDB$EXTERNAL_SCALE);
+            if (X.RDB$DIMENSIONS)
+                PUT_NUMERIC (att_field_dimensions, X.RDB$DIMENSIONS);
+            if (!(X.RDB$NULL_FLAG.NULL))
+                PUT_NUMERIC (att_field_null_flag, X.RDB$NULL_FLAG);
+            if (!(X.RDB$CHARACTER_LENGTH.NULL))
+                PUT_NUMERIC (att_field_character_length, X.RDB$CHARACTER_LENGTH);
+            if (!(X.RDB$DEFAULT_SOURCE.NULL))
+                put_source_blob (att_field_default_source, att_field_default_source, (ISC_QUAD *)&X.RDB$DEFAULT_SOURCE);
+            if (!(X.RDB$MISSING_SOURCE.NULL))
+                put_source_blob (att_field_missing_source, att_field_missing_source, (ISC_QUAD *)&X.RDB$MISSING_SOURCE);
+            if (!(X.RDB$CHARACTER_SET_ID.NULL))
+                PUT_NUMERIC (att_field_character_set, X.RDB$CHARACTER_SET_ID);
+            if (!(X.RDB$COLLATION_ID.NULL))
+                PUT_NUMERIC (att_field_collation_id, X.RDB$COLLATION_ID);
+            
+            if (!(X.RDB$FIELD_PRECISION.NULL))
+                PUT_NUMERIC (att_field_precision, X.RDB$FIELD_PRECISION);
+            
+            PUT (att_end);
+	
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+    }
+    else
+	{
+	    FOR (REQUEST_HANDLE req_handle1)
+	        X IN RDB$FIELDS WITH 
+	        X.RDB$SYSTEM_FLAG NE 1 OR 
+	        X.RDB$SYSTEM_FLAG MISSING
+	
+	        PUT (rec_global_field);
+            l = PUT_TEXT (att_field_name, X.RDB$FIELD_NAME);
+            MISC_terminate (X.RDB$FIELD_NAME, temp, l, sizeof (temp));
+            BURP_verbose (149, temp, NULL, NULL, NULL, NULL);
+            /* msg 149  writing global field %.*s */
+            if (X.RDB$QUERY_NAME [0] != ' ')
+                PUT_TEXT (att_field_query_name, X.RDB$QUERY_NAME);
+            if (X.RDB$EDIT_STRING [0] != ' ')
+                PUT_TEXT (att_field_edit_string, X.RDB$EDIT_STRING);
+            put_source_blob (att_field_query_header, att_field_query_header, (ISC_QUAD *)&X.RDB$QUERY_HEADER);
+            PUT_NUMERIC (att_field_type, X.RDB$FIELD_TYPE);
+            PUT_NUMERIC (att_field_length, X.RDB$FIELD_LENGTH);
+            PUT_NUMERIC (att_field_sub_type, X.RDB$FIELD_SUB_TYPE);
+            PUT_NUMERIC (att_field_scale, X.RDB$FIELD_SCALE);
+            put_blr_blob (att_field_missing_value, (ISC_QUAD *)&X.RDB$MISSING_VALUE);
+            put_blr_blob (att_field_default_value, (ISC_QUAD *)&X.RDB$DEFAULT_VALUE);
+            put_blr_blob (att_field_validation_blr, (ISC_QUAD *)&X.RDB$VALIDATION_BLR);
+            put_source_blob (att_field_validation_source2, att_field_validation_source, (ISC_QUAD *)&X.RDB$VALIDATION_SOURCE);
+            put_blr_blob (att_field_computed_blr, (ISC_QUAD *)&X.RDB$COMPUTED_BLR);
+            put_source_blob (att_field_computed_source2, att_field_computed_source, (ISC_QUAD *)&X.RDB$COMPUTED_SOURCE);
+            if (X.RDB$SEGMENT_LENGTH)
+                PUT_NUMERIC (att_field_segment_length, X.RDB$SEGMENT_LENGTH);
+            if (X.RDB$SYSTEM_FLAG)
+                PUT_NUMERIC (att_field_system_flag, X.RDB$SYSTEM_FLAG);
+            put_source_blob (att_field_description2, att_field_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+            if (tdgbl->BCK_capabilities & BCK_attributes_v3)
+			{
+                FOR (REQUEST_HANDLE req_handle2)
+                    F IN RDB$FIELDS WITH F.RDB$FIELD_NAME = X.RDB$FIELD_NAME
+                    
+                    if (F.RDB$EXTERNAL_LENGTH)
+                        PUT_NUMERIC (att_field_external_length, F.RDB$EXTERNAL_LENGTH);
+                    if (F.RDB$EXTERNAL_TYPE) 
+                        PUT_NUMERIC (att_field_external_type, F.RDB$EXTERNAL_TYPE);
+                    if (F.RDB$EXTERNAL_SCALE)
+                        PUT_NUMERIC (att_field_external_scale, F.RDB$EXTERNAL_SCALE);
+                    if (F.RDB$DIMENSIONS)
+                        PUT_NUMERIC (att_field_dimensions, F.RDB$DIMENSIONS);
+                END_FOR;
+                ON_ERROR
+                    general_on_error ();
+                END_ERROR;
+            }
+            if (tdgbl->BCK_capabilities & BCK_ods8)
+			{
+                FOR (REQUEST_HANDLE req_handle3)
+	                F IN RDB$FIELDS WITH F.RDB$FIELD_NAME = X.RDB$FIELD_NAME
+                    if (!(F.RDB$NULL_FLAG.NULL))
+                        PUT_NUMERIC (att_field_null_flag, F.RDB$NULL_FLAG);
+                    if (!(F.RDB$CHARACTER_LENGTH.NULL))
+                        PUT_NUMERIC (att_field_character_length, F.RDB$CHARACTER_LENGTH);
+                    if (!(F.RDB$DEFAULT_SOURCE.NULL))
+                        put_source_blob (att_field_default_source, att_field_default_source, (ISC_QUAD *)&F.RDB$DEFAULT_SOURCE);
+                    if (!(F.RDB$MISSING_SOURCE.NULL))
+                        put_source_blob (att_field_missing_source, att_field_missing_source, (ISC_QUAD *)&F.RDB$MISSING_SOURCE);
+                    if (!(F.RDB$CHARACTER_SET_ID.NULL))
+                        PUT_NUMERIC (att_field_character_set, F.RDB$CHARACTER_SET_ID);
+                    if (!(F.RDB$COLLATION_ID.NULL))
+                    PUT_NUMERIC (att_field_collation_id, F.RDB$COLLATION_ID);
+	
+                    if (tdgbl->BCK_capabilities & BCK_ods10)
+					{
+                        FOR (REQUEST_HANDLE req_handle4)
+                            K IN RDB$FIELDS WITH K.RDB$FIELD_NAME = X.RDB$FIELD_NAME
+                            if (!(K.RDB$FIELD_PRECISION.NULL))
+                                PUT_NUMERIC (att_field_precision, K.RDB$FIELD_PRECISION);
+                        END_FOR;
+                        ON_ERROR
+                            general_on_error ();
+                        END_ERROR;
+                    }
+	            END_FOR;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+            }
+            PUT (att_end);
+        END_FOR;
+        ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+    }
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+    if (req_handle2)
+        isc_release_request(req_status, &req_handle2);
+    if (req_handle3)
+        isc_release_request(req_status, &req_handle3);
+    if (req_handle4)
+        isc_release_request(req_status, &req_handle4);
+}
+
+
+static void write_procedures(void) 
+{
+/**************************************
+ *                                                                   
+ *	w r i t e _ p r o c e d u r e s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each stored procedure.
+ *
+ **************************************/
+    SSHORT l;
+    GDS_NAME proc;
+    TEXT temp[32];
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$PROCEDURES
+	    PUT (rec_procedure);
+        l = PUT_TEXT (att_procedure_name, X.RDB$PROCEDURE_NAME);
+        MISC_terminate (X.RDB$PROCEDURE_NAME, temp, l, sizeof (temp));
+        BURP_verbose (193, temp, NULL, NULL, NULL, NULL);
+        /* msg 193 writing stored procedure %.*s */
+        PUT_NUMERIC (att_procedure_inputs, X.RDB$PROCEDURE_INPUTS);
+        PUT_NUMERIC (att_procedure_outputs, X.RDB$PROCEDURE_OUTPUTS);
+        put_source_blob (att_procedure_description2, att_procedure_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+        put_source_blob (att_procedure_source2, att_procedure_source, (ISC_QUAD *)&X.RDB$PROCEDURE_SOURCE);
+        put_blr_blob (att_procedure_blr, (ISC_QUAD *)&X.RDB$PROCEDURE_BLR);
+        if (!X.RDB$SECURITY_CLASS.NULL)
+            PUT_TEXT (att_procedure_security_class, X.RDB$SECURITY_CLASS);
+        if (!X.RDB$SECURITY_CLASS.NULL)
+            PUT_TEXT (att_procedure_owner_name, X.RDB$OWNER_NAME);
+        PUT (att_end);
+        copy (X.RDB$PROCEDURE_NAME, proc, GDS_NAME_LEN - 1);
+        write_procedure_prms (proc);
+        PUT (rec_procedure_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+} 
+
+
+static void write_procedure_prms( GDS_NAME procptr) 
+{
+/**************************************
+ *
+ *	w r i t e _ p r o c e d u r e _ p r m s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write all parameters of a stored procedure.
+ *
+ **************************************/ 
+
+    SSHORT l;
+    TEXT temp[32];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE tdgbl->handles_write_procedure_prms_req_handle1)
+	    X IN RDB$PROCEDURE_PARAMETERS WITH X.RDB$PROCEDURE_NAME EQ procptr
+	    PUT (rec_procedure_prm);
+        l = PUT_TEXT (att_procedureprm_name, X.RDB$PARAMETER_NAME);
+        MISC_terminate (X.RDB$PARAMETER_NAME, temp, l, sizeof (temp));
+        BURP_verbose (194, temp, NULL, NULL, NULL, NULL);
+        /* msg 194 writing parameter %s for stored procedure */
+        PUT_NUMERIC (att_procedureprm_number, X.RDB$PARAMETER_NUMBER);
+        PUT_NUMERIC (att_procedureprm_type, X.RDB$PARAMETER_type);
+        PUT_TEXT (att_procedureprm_field_source, X.RDB$FIELD_SOURCE);
+        put_source_blob (att_procedureprm_description2, att_procedureprm_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+        PUT (att_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+} 
+
+
+static void write_ref_constraints(void) 
+{
+/**************************************
+ *
+ *	w r i t e _ r e f _ c o n s t r a i n t s 
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each referential constraint. 
+ *
+ **************************************/
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$REF_CONSTRAINTS
+	    PUT (rec_ref_constraint);
+        PUT_TEXT (att_ref_constraint_name, X.RDB$CONSTRAINT_NAME);
+        PUT_TEXT (att_ref_unique_const_name, X.RDB$CONST_NAME_UQ);
+        PUT_TEXT (att_ref_match_option, X.RDB$MATCH_OPTION);
+        PUT_MESSAGE (att_ref_update_rule, X.RDB$UPDATE_RULE);
+        PUT_MESSAGE (att_ref_delete_rule, X.RDB$DELETE_RULE);
+        PUT (att_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+}
+
+static void write_rel_constraints(void) 
+{
+/**************************************
+ *
+ *	w r i t e _ r e l _ c o n s t r a i n t s 
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each relation constraint. 
+ *
+ **************************************/
+    SSHORT l;
+    TEXT temp[32];
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$RELATION_CONSTRAINTS
+	    PUT (rec_rel_constraint);
+	    l = PUT_TEXT (att_rel_constraint_name, X.RDB$CONSTRAINT_NAME);
+	    MISC_terminate (X.RDB$CONSTRAINT_NAME, temp, l, sizeof (temp));
+	    BURP_verbose (207, temp, NULL, NULL, NULL, NULL);
+	    /* msg 207 writing constraint %s */
+	    PUT_MESSAGE (att_rel_constraint_type, X.RDB$CONSTRAINT_TYPE);
+	    PUT_TEXT (att_rel_constraint_rel_name, X.RDB$RELATION_NAME);
+	    PUT_TEXT (att_rel_constraint_defer, X.RDB$DEFERRABLE);
+	    PUT_TEXT (att_rel_constraint_init, X.RDB$INITIALLY_DEFERRED);
+	    if (!(X.RDB$INDEX_NAME.NULL))
+	        PUT_TEXT (att_rel_constraint_index, X.RDB$INDEX_NAME);
+        PUT (att_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+}
+
+static void write_relations(void) 
+{
+/**************************************
+ *
+ *	w r i t e _ r e l a t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each relation. 
+ *
+ **************************************/
+    SSHORT l, flags;
+    REL relation;
+    TEXT temp[32];
+    isc_req_handle req_handle1 = NULL, req_handle2 = NULL, req_handle3 =
+        NULL, req_handle4 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+    /* if we have all capabilities, use the first request to get the 
+   most performance out of the latest engine; if we don't 
+   have one of the capabilities we must use the second set of 
+   requests--this requires more code but it is well worth it 
+   for the performance benefits, especially remotely--deej */
+
+    if ((tdgbl->BCK_capabilities & BCK_ods8) &&
+        (tdgbl->BCK_capabilities & BCK_security) &&
+        (tdgbl->BCK_capabilities & BCK_attributes_v3))
+	{
+	    FOR (REQUEST_HANDLE req_handle1)
+	        X IN RDB$RELATIONS WITH X.RDB$SYSTEM_FLAG NE 1 OR 
+            X.RDB$SYSTEM_FLAG MISSING
+	
+	        flags = 0;
+            PUT (rec_relation);
+            l = put_text (att_relation_name, X.RDB$RELATION_NAME, 31);
+            MISC_terminate (X.RDB$RELATION_NAME, temp, l, sizeof (temp));
+            BURP_verbose (153, temp, NULL, NULL, NULL, NULL);
+        /* msg 153 writing relation %.*s */
+	
+        /* RDB$VIEW_BLR must be the forst blob field in the backup file.
+	         * RESTORE.E makes this assumption in get_relation().
+	         */
+	
+            if (put_blr_blob (att_relation_view_blr, (ISC_QUAD *)&X.RDB$VIEW_BLR))
+                flags |= REL_view;
+            if (X.RDB$SYSTEM_FLAG)
+                PUT_NUMERIC (att_relation_system_flag, X.RDB$SYSTEM_FLAG);
+            if (!(X.RDB$FLAGS.NULL))
+                PUT_NUMERIC (att_relation_flags, X.RDB$FLAGS);
+            if (!X.RDB$SECURITY_CLASS.NULL)
+                PUT_TEXT (att_relation_security_class, X.RDB$SECURITY_CLASS);
+            
+            put_source_blob (att_relation_description2, att_relation_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+            put_source_blob (att_relation_view_source2, att_relation_view_source, (ISC_QUAD *)&X.RDB$VIEW_SOURCE);
+            
+            put_source_blob (att_relation_ext_description2, att_relation_ext_description, (ISC_QUAD *)&X.RDB$EXTERNAL_DESCRIPTION);
+            put_text (att_relation_owner_name, X.RDB$OWNER_NAME, 31);
+            if (!X.RDB$EXTERNAL_FILE.NULL)
+                if (!tdgbl->gbl_sw_convert_ext_tables)
+				{
+                    put_text (att_relation_ext_file_name, X.RDB$EXTERNAL_FILE, 253); 
+                    flags |= REL_external;
+                }
+	
+            PUT (att_end); 
+            relation = (REL) BURP_ALLOC_ZERO (sizeof (struct rel));
+            relation->rel_next = tdgbl->relations;
+            tdgbl->relations = relation;
+            relation->rel_id = X.RDB$RELATION_ID;
+            relation->rel_name_length = copy (X.RDB$RELATION_NAME, relation->rel_name, GDS_NAME_LEN - 1);
+            relation->rel_flags |= flags;
+            put_relation (relation);
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+    }
+    else
+	{
+	    FOR (REQUEST_HANDLE req_handle1)
+	        X IN RDB$RELATIONS WITH X.RDB$SYSTEM_FLAG NE 1 OR 
+            X.RDB$SYSTEM_FLAG MISSING
+	
+	        flags = 0;
+            PUT (rec_relation);
+            l = put_text (att_relation_name, X.RDB$RELATION_NAME, 31);
+            MISC_terminate (X.RDB$RELATION_NAME, temp, l, sizeof (temp));
+            BURP_verbose (153, temp, NULL, NULL, NULL, NULL);
+            /* msg 153 writing relation %.*s */
+            
+            /* RDB$VIEW_BLR must be the first blob field in the backup file.
+             * RESTORE.E makes this assumption in get_relation().
+             */
+	
+            if (put_blr_blob (att_relation_view_blr, (ISC_QUAD *)&X.RDB$VIEW_BLR))
+                flags |= REL_view;
+            if (X.RDB$SYSTEM_FLAG)
+                PUT_NUMERIC (att_relation_system_flag, X.RDB$SYSTEM_FLAG);
+            if (tdgbl->BCK_capabilities & BCK_ods8)
+			{
+	            FOR (REQUEST_HANDLE req_handle2)
+	                R IN RDB$RELATIONS WITH R.RDB$RELATION_NAME = X.RDB$RELATION_NAME
+	                if (!(R.RDB$FLAGS.NULL))
+	                    PUT_NUMERIC (att_relation_flags, R.RDB$FLAGS);
+	            END_FOR;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+            }
+            if (tdgbl->BCK_capabilities & BCK_security)
+			{
+                FOR (REQUEST_HANDLE req_handle3)
+                    R IN RDB$RELATIONS WITH R.RDB$RELATION_NAME = X.RDB$RELATION_NAME
+                    if (!R.RDB$SECURITY_CLASS.NULL)
+                        PUT_TEXT (att_relation_security_class, R.RDB$SECURITY_CLASS);
+                END_FOR;
+                ON_ERROR
+                    general_on_error ();
+                END_ERROR;
+            }
+            put_source_blob (att_relation_description2, att_relation_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+            put_source_blob (att_relation_view_source2, att_relation_view_source, (ISC_QUAD *)&X.RDB$VIEW_SOURCE);
+            if (tdgbl->BCK_capabilities & BCK_attributes_v3)
+			{
+                FOR (REQUEST_HANDLE req_handle4)
+                    R IN RDB$RELATIONS WITH R.RDB$RELATION_NAME = X.RDB$RELATION_NAME
+                    put_source_blob (att_relation_ext_description2, att_relation_ext_description, (ISC_QUAD *)&R.RDB$EXTERNAL_DESCRIPTION);
+                    put_text (att_relation_owner_name, R.RDB$OWNER_NAME, 31);
+                    if (!R.RDB$EXTERNAL_FILE.NULL)
+					{
+                        if (!tdgbl->gbl_sw_convert_ext_tables)
+						{
+                            put_text (att_relation_ext_file_name, R.RDB$EXTERNAL_FILE, 253); 
+                            flags |= REL_external;
+                        }
+                    }
+                END_FOR;
+                ON_ERROR
+                    general_on_error ();
+                END_ERROR;
+            }
+            PUT (att_end); 
+            relation = (REL) BURP_ALLOC_ZERO (sizeof (struct rel));
+            relation->rel_next = tdgbl->relations;
+            tdgbl->relations = relation;
+            relation->rel_id = X.RDB$RELATION_ID;
+            relation->rel_name_length = copy (X.RDB$RELATION_NAME, relation->rel_name, GDS_NAME_LEN - 1);
+            relation->rel_flags |= flags;
+            put_relation (relation);
+        END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+    }
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+    if (req_handle2)
+        isc_release_request(req_status, &req_handle2);
+    if (req_handle3)
+        isc_release_request(req_status, &req_handle3);
+    if (req_handle4)
+        isc_release_request(req_status, &req_handle4);
+}
+
+
+static void write_shadow_files(void) 
+{
+/**************************************
+ *
+ *	w r i t e _ s h a d o w _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out files to use as shadows.
+ *
+ **************************************/
+    SSHORT l;
+    TEXT temp[32];
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$FILES 
+	    WITH X.RDB$SHADOW_NUMBER NOT MISSING
+	    AND X.RDB$SHADOW_NUMBER NE 0
+	    PUT (rec_files);
+        l = PUT_TEXT (att_file_filename, X.RDB$FILE_NAME);
+        MISC_terminate (X.RDB$FILE_NAME, temp, l, sizeof (temp));
+        BURP_verbose (163, temp, NULL, NULL, NULL, NULL);
+        /* msg 163 writing shadow file %s */
+        PUT_NUMERIC (att_file_sequence, X.RDB$FILE_SEQUENCE);
+        PUT_NUMERIC (att_file_start, X.RDB$FILE_START);
+        PUT_NUMERIC (att_file_length, X.RDB$FILE_LENGTH);
+        PUT_NUMERIC (att_file_flags, X.RDB$FILE_FLAGS);
+        PUT_NUMERIC (att_shadow_number, X.RDB$SHADOW_NUMBER);
+        PUT (att_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+} 
+
+static void write_sql_roles(void) 
+{
+/**************************************
+ *
+ *	w r i t e _ s q l _ r o l e s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each SQL roles. 
+ *
+ **************************************/
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+    TEXT temp[32];
+    SSHORT l;
+
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$ROLES
+	
+	    PUT (rec_sql_roles);
+        l = put_text (att_role_name, X.RDB$ROLE_NAME, 31);
+        PUT_TEXT (att_role_owner_name, X.RDB$OWNER_NAME);
+        PUT (att_end);
+        MISC_terminate (X.RDB$ROLE_NAME, temp, l, sizeof (temp));
+        BURP_verbose (249, temp, NULL, NULL, NULL, NULL);
+    /* msg 249 writing SQL role: %s */
+        
+    END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+} 
+
+static void write_triggers(void)
+{
+/**************************************
+ *
+ *	w r i t e _ t r i g g e r s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write the triggers in rdb$triggers
+ *
+ **************************************/
+    SSHORT l;
+    TEXT temp[32];
+    isc_req_handle req_handle1 = NULL, req_handle2 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+    /* if we have all capabilities, use the first request to get the 
+   most performance out of the latest engine; if we don't 
+   have one of the capabilities we must use the second set of 
+   requests--this requires more code but it is well worth it 
+   for the performance benefits, especially remotely--deej */
+
+    if (tdgbl->BCK_capabilities & BCK_ods8)
+	{
+	    FOR (REQUEST_HANDLE req_handle1)
+	        X IN RDB$TRIGGERS WITH 
+	        X.RDB$SYSTEM_FLAG NE 1 OR 
+	        X.RDB$SYSTEM_FLAG MISSING
+	
+	        PUT (rec_trigger);
+            l = PUT_TEXT (att_trig_name, X.RDB$TRIGGER_NAME);
+            MISC_terminate (X.RDB$TRIGGER_NAME, temp, l, sizeof (temp));
+            BURP_verbose (156, temp, NULL, NULL, NULL, NULL);
+            /* msg 156   writing trigger %s */
+	    
+            PUT_TEXT (att_trig_relation_name, X.RDB$RELATION_NAME);
+            PUT_NUMERIC (att_trig_sequence, X.RDB$TRIGGER_SEQUENCE);
+            PUT_NUMERIC (att_trig_type, X.RDB$TRIGGER_TYPE);
+            put_blr_blob (att_trig_blr, (ISC_QUAD *)&X.RDB$TRIGGER_BLR);
+            put_source_blob (att_trig_source2, att_trig_source, (ISC_QUAD *)&X.RDB$TRIGGER_SOURCE);
+            put_source_blob (att_trig_description2, att_trig_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+            PUT_NUMERIC (att_trig_system_flag, X.RDB$SYSTEM_FLAG);
+            PUT_NUMERIC (att_trig_inactive, X.RDB$TRIGGER_INACTIVE);
+            
+            if (!(X.RDB$FLAGS.NULL))
+                PUT_NUMERIC (att_trig_flags, X.RDB$FLAGS);
+            
+            PUT (att_end);
+	
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+    }
+    else
+	{
+	    FOR (REQUEST_HANDLE req_handle1)
+	        X IN RDB$TRIGGERS WITH 
+	        X.RDB$SYSTEM_FLAG NE 1 OR 
+	        X.RDB$SYSTEM_FLAG MISSING
+	
+	        PUT (rec_trigger);
+            l = PUT_TEXT (att_trig_name, X.RDB$TRIGGER_NAME);
+            MISC_terminate (X.RDB$TRIGGER_NAME, temp, l, sizeof (temp));
+            BURP_verbose (156, temp, NULL, NULL, NULL, NULL);
+            /* msg 156   writing trigger %s */
+            
+            PUT_TEXT (att_trig_relation_name, X.RDB$RELATION_NAME);
+            PUT_NUMERIC (att_trig_sequence, X.RDB$TRIGGER_SEQUENCE);
+            PUT_NUMERIC (att_trig_type, X.RDB$TRIGGER_TYPE);
+            put_blr_blob (att_trig_blr, (ISC_QUAD *)&X.RDB$TRIGGER_BLR);
+            put_source_blob (att_trig_source2, att_trig_source, (ISC_QUAD *)&X.RDB$TRIGGER_SOURCE);
+            put_source_blob (att_trig_description2, att_trig_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+            PUT_NUMERIC (att_trig_system_flag, X.RDB$SYSTEM_FLAG);
+            PUT_NUMERIC (att_trig_inactive, X.RDB$TRIGGER_INACTIVE);
+	
+            if (tdgbl->BCK_capabilities & BCK_ods8)
+			{
+	            FOR (REQUEST_HANDLE req_handle2)
+	                Y IN RDB$TRIGGERS WITH 
+	                X.RDB$TRIGGER_NAME = Y.RDB$TRIGGER_NAME
+	
+	                if (!(Y.RDB$FLAGS.NULL))
+	                    PUT_NUMERIC (att_trig_flags, Y.RDB$FLAGS);
+	
+	            END_FOR;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+            }
+	
+            PUT (att_end);
+	
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+    }
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+    if (req_handle2)
+        isc_release_request(req_status, &req_handle2);
+}
+
+
+static void write_trigger_messages(void) 
+{
+/**************************************
+ *
+ *	w r i t e _ t r i g g e r _ m e s s a g e s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each trigger message.
+ *
+ **************************************/
+    SSHORT l;
+    TEXT temp[32];
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    T IN RDB$TRIGGERS CROSS X IN RDB$TRIGGER_MESSAGES
+	    OVER RDB$TRIGGER_NAME
+	    WITH T.RDB$SYSTEM_FLAG NE 1 OR T.RDB$SYSTEM_FLAG MISSING;
+	
+        PUT (rec_trigger_message);
+        l = PUT_TEXT (att_trigmsg_name, X.RDB$TRIGGER_NAME);
+        MISC_terminate (X.RDB$TRIGGER_NAME, temp, l, sizeof (temp));
+        BURP_verbose (157, temp, NULL, NULL, NULL, NULL);
+        /* msg 157 writing trigger message for *s */
+        PUT_NUMERIC (att_trigmsg_number, X.RDB$MESSAGE_NUMBER);
+        PUT_MESSAGE (att_trigmsg_text, X.RDB$MESSAGE);
+        PUT (att_end);
+    END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+}
+
+static void write_types(void) 
+{
+/**************************************
+ *                                                                   
+ *	w r i t e _ t y p e s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each type.
+ *
+ **************************************/
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+    
+    tdgbl = GET_THREAD_DATA;
+
+	FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$TYPES WITH X.RDB$SYSTEM_FLAG NE 1 OR 
+	   X.RDB$SYSTEM_FLAG MISSING
+	    PUT (rec_type);
+	    PUT_TEXT (att_type_name, X.RDB$TYPE_NAME);
+	    PUT_TEXT (att_type_field_name, X.RDB$FIELD_NAME);
+	    BURP_verbose (160, X.RDB$TYPE_NAME, X.RDB$FIELD_NAME, NULL, NULL, NULL);
+	        /* msg 160 writing type %s for field %s */
+	    PUT_NUMERIC (att_type_type, X.RDB$TYPE);
+	    put_source_blob (att_type_description2, att_type_description, (ISC_QUAD *)&X.RDB$DESCRIPTION);
+	    if (X.RDB$SYSTEM_FLAG)
+	   PUT_NUMERIC (att_type_system_flag, X.RDB$SYSTEM_FLAG);
+	    PUT (att_end);
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+} 
+
+
+static void write_user_privileges(void) 
+{
+/**************************************
+ *
+ *	w r i t e _ u s e r _ p r i v i l e g e s
+ *
+ **************************************
+ *
+ * Functional description
+ * 	write a record in the burp file for
+ *	each user privilege.
+ *
+ **************************************/
+    SSHORT l;
+    TEXT temp[32];
+    isc_req_handle req_handle1 = NULL;
+    long req_status[20];
+    TGBL tdgbl;
+    
+    tdgbl = GET_THREAD_DATA;
+    
+    if (tdgbl->BCK_capabilities & BCK_ods8)
+	{
+	    FOR (REQUEST_HANDLE req_handle1)
+	        X IN RDB$USER_PRIVILEGES
+            PUT (rec_user_privilege);
+            l = PUT_TEXT (att_priv_user, X.RDB$USER);
+            MISC_terminate (X.RDB$USER, temp, l, sizeof(temp));
+            BURP_verbose (152, temp, NULL, NULL, NULL, NULL);
+            /* msg 152 writing privilege for user %s */
+            PUT_TEXT (att_priv_grantor, X.RDB$GRANTOR);
+            PUT_TEXT (att_priv_privilege, X.RDB$PRIVILEGE);
+            PUT_NUMERIC (att_priv_grant_option, X.RDB$GRANT_OPTION);
+            PUT_TEXT (att_priv_object_name, X.RDB$RELATION_NAME);
+            if (!X.RDB$FIELD_NAME.NULL)
+	           PUT_TEXT (att_priv_field_name, X.RDB$FIELD_NAME);
+            PUT_NUMERIC (att_priv_user_type, X.RDB$USER_TYPE);
+            PUT_NUMERIC (att_priv_obj_type, X.RDB$OBJECT_TYPE);
+            PUT (att_end);
+	    END_FOR
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+    }
+    else
+	{
+	    FOR (REQUEST_HANDLE req_handle1)
+	        X IN RDB$USER_PRIVILEGES
+            PUT (rec_user_privilege);
+            l = PUT_TEXT (att_priv_user, X.RDB$USER);
+            MISC_terminate (X.RDB$USER, temp, l, sizeof(temp));
+            BURP_verbose (152, temp, NULL, NULL, NULL, NULL);
+            /* msg 152 writing privilege for user %s */
+            PUT_TEXT (att_priv_grantor, X.RDB$GRANTOR);
+            PUT_TEXT (att_priv_privilege, X.RDB$PRIVILEGE);
+            PUT_NUMERIC (att_priv_grant_option, X.RDB$GRANT_OPTION);
+            PUT_TEXT (att_priv_object_name, X.RDB$RELATION_NAME);
+            if (!X.RDB$FIELD_NAME.NULL)
+                PUT_TEXT (att_priv_field_name, X.RDB$FIELD_NAME);
+            PUT (att_end);
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+    }
+
+    if (req_handle1)
+        isc_release_request(req_status, &req_handle1);
+}
diff --git a/src/burp/burp.cpp b/src/burp/burp.cpp
new file mode 100644
index 0000000000..699d8632de
--- /dev/null
+++ b/src/burp/burp.cpp
@@ -0,0 +1,2258 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		burp.c
+ *	DESCRIPTION:	Command line interpreter for backup/restore
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include <signal.h>
+#include "../jrd/common.h"
+#include "../jrd/ibase.h"
+#include <stdarg.h>
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/msg_encode.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/ods.h"			// to get MAX_PAGE_SIZE
+#include "../burp/burp.h"
+#include "../burp/burpswi.h"
+#ifdef WIN_NT
+#include <windows.h>
+#undef TEXT
+#include <winnt.h>
+#define TEXT char
+#endif
+
+/*
+** Had to do this messy looking stuff to get the correct version string for
+** Local Interbase Beta releases.
+*/
+#if (defined WIN_NT && defined WIN95)
+#define SUPERCLIENT
+#endif
+#include "../jrd/license.h"
+#if (defined WIN_NT && defined WIN95)
+#undef SUPERCLIENT
+#undef WIN95
+#endif
+
+#include "../jrd/time.h"
+#include "../burp/burp_proto.h"
+#include "../burp/backu_proto.h"
+#include "../burp/mvol_proto.h"
+#include "../burp/resto_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/why_proto.h"
+#include "../jrd/gdsassert.h"
+
+#ifdef SUPERSERVER
+#include "../utilities/cmd_util_proto.h"
+#endif
+
+
+#ifdef UNIX
+#include <unistd.h>
+#endif
+
+#ifdef VMS
+#include <descrip.h>
+#include <iodef.h>
+#include <types.h>
+#include <file.h>
+#define SWITCH_CHAR	"/"
+#endif
+
+#ifndef VMS
+#include <fcntl.h>
+#endif
+
+#ifdef PC_PLATFORM
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <io.h>
+#endif
+
+#if (defined WIN_NT)
+#include <io.h>
+#endif
+
+#ifdef EPSON
+#include <sys/fcntl.h>
+#endif
+
+#ifndef O_CREAT
+#include <sys/types.h>
+#include <sys/file.h>
+#endif
+
+#ifdef NETWARE_386
+#define MASK		    0
+#else
+struct tgbl *gdgbl;
+#endif
+
+#ifndef FOPEN_WRITE_TYPE
+#define FOPEN_WRITE_TYPE	"w"
+#endif
+
+#ifndef FOPEN_READ_TYPE
+#define FOPEN_READ_TYPE		"r"
+#endif
+
+#ifndef MASK
+#define MASK		0666
+#endif
+
+#ifndef SWITCH_CHAR
+#define SWITCH_CHAR	"-"
+#endif
+
+
+extern "C" {
+
+
+#define OUTPUT_SUPPRESS	"SUPPRESS"
+#define BURP_MSG_FAC    12
+
+static void close_out_transaction(VOLATILE SSHORT, isc_tr_handle *);
+static void enable_signals(void);
+static void excp_handler(void);
+static SLONG get_number(SCHAR *);
+static ULONG get_size(SCHAR *, FIL);
+static SSHORT open_files(SCHAR *, SCHAR **, USHORT, USHORT, USHORT);
+static int output_netware(SLONG, UCHAR *);
+static int output_main(SLONG, UCHAR *);
+static int output_svc(SLONG, UCHAR *);
+static void burp_output(CONST SCHAR *, ...);
+
+#ifndef	SUPERSERVER
+#ifndef GUI_TOOLS
+static int api_gbak(int, char**, USHORT, TEXT*, TEXT*, TEXT *, BOOLEAN, BOOLEAN);
+#endif
+#endif
+
+#define QUIT		0
+#define BACKUP		1
+#define RESTORE		2
+#define FDESC		3
+
+#define	DB		tdgbl->db_handle
+
+#define GBAK_STDIN_DESC		(int)0
+#define GBAK_STDOUT_DESC	(int)1
+
+#define KBYTE	1024
+#define	MBYTE	KBYTE * KBYTE
+#define GBYTE	MBYTE * KBYTE
+
+#if defined (WIN95) && !defined (GUI_TOOLS)
+static BOOL fAnsiCP = FALSE;
+#define TRANSLATE_CP(a) if (!fAnsiCP) AnsiToOem(a, a)
+#else
+#define TRANSLATE_CP(a)
+#endif
+
+
+#ifdef SUPERSERVER
+int main_gbak(SVC service)
+{
+/**************************************
+ *
+ *	m a i n _ g b a k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Netware entry point for GBAK.
+ *
+ **************************************/
+	int exit_code;
+
+	exit_code = BURP_gbak(service->svc_argc, service->svc_argv,
+						  output_netware, (SLONG) service);
+
+	service->svc_handle = 0;
+	if (service->svc_service->in_use != NULL)
+		*(service->svc_service->in_use) = FALSE;
+
+/* Mark service thread as finished. */
+/* If service is detached, cleanup memory being used by service. */
+	SVC_finish(service, SVC_finished);
+
+	return exit_code;
+}
+
+
+static int output_netware(SLONG output_data, UCHAR* output_buf)
+{
+/**************************************
+ *
+ *	o u t p u t _ n e t w a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Routine which is passed to GBAK for calling back when there is output.
+ *
+ **************************************/
+	SVC_fprintf((SVC) output_data, "%s", output_buf);
+
+	return 0;
+}
+
+
+void BURP_svc_error(USHORT errcode,
+					USHORT arg1_t,
+					void *arg1,
+					USHORT arg2_t,
+					void *arg2,
+					USHORT arg3_t,
+					void *arg3,
+					USHORT arg4_t,
+					void *arg4,
+					USHORT arg5_t,
+					void *arg5)
+{
+/**************************************
+ *
+ *      B U R P _ s v c _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TGBL tdgbl;
+	STATUS *status;
+
+	tdgbl = GET_THREAD_DATA;
+
+	status = tdgbl->service_blk->svc_status;
+
+	CMD_UTIL_put_svc_status(status, BURP_MSG_FAC, errcode,
+							arg1_t, arg1, arg2_t, arg2, arg3_t, arg3,
+							arg4_t, arg4, arg5_t, arg5);
+
+	SVC_STARTED(tdgbl->service_blk);
+	BURP_msg_partial(256, 0, 0, 0, 0, 0);	/* msg 256: gbak: ERROR: */
+	BURP_msg_put(errcode,
+				reinterpret_cast<TEXT*>(arg1),
+				reinterpret_cast<TEXT*>(arg2),
+				reinterpret_cast<TEXT*>(arg3),
+				reinterpret_cast<TEXT*>(arg4),
+				reinterpret_cast<TEXT*>(arg5));
+	BURP_abort();
+}
+
+
+#else	// SUPERSERVER
+
+#if !defined(GUI_TOOLS)
+
+int CLIB_ROUTINE main(int argc, char* argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse and interpret command line, then "do the right thing."
+ *
+ **************************************/
+	int exit_code;
+	USHORT total;
+	TEXT **end, **argvp, *string, *p, *q, c;
+	IN_SW_TAB in_sw_tab;
+	BOOLEAN flag_restore, flag_verbose, err;
+	TEXT *sw_user, *sw_password, *sw_service;
+	TEXT *d_user, *d_password, *d_service;
+
+/* If a "-service" switch is specified then use Admin APIs */
+	argvp = argv;
+	end = argvp + argc;
+	argvp++;
+
+/* Initialize data */
+	total = 0;
+	flag_restore = flag_verbose = err = FALSE;
+	sw_user = sw_password = sw_service = d_user = d_password = d_service = NULL;
+
+/* Parse the command line for the -USER, -PASSWORD, -SERVICE,
+   and -VERBOSE options. Calculate a length for the new command line to be
+   passed to a server using services APIs */
+
+	while (argvp < end && !err)
+	{
+		string = *argvp++;
+		if (*string != '-') {
+			total += strlen(string) + 1;
+			continue;
+		}
+		if (!string[1])
+			string = "-*NONE*";
+		for (in_sw_tab = burp_in_sw_table;
+			q = in_sw_tab->in_sw_name;
+			in_sw_tab++)
+		{
+			for (p = string + 1; c = *p++;)
+				if (UPPER(c) != *q++)
+					break;
+			if (!c)
+				break;
+		}
+		switch (in_sw_tab->in_sw)
+		{
+		case IN_SW_BURP_C:		/* create database */
+		case IN_SW_BURP_R:		/* replace database */
+			total += strlen(string) + 1;
+			flag_restore = TRUE;
+			break;
+		case IN_SW_BURP_USER:	/* default user name */
+			if (argvp >= end)
+				err = TRUE;
+			else {
+				sw_user = string;
+				d_user = *argvp++;
+			}
+			break;
+		case IN_SW_BURP_PASS:	/* default password */
+			if (argvp >= end)
+				err = TRUE;
+			else {
+				sw_password = string;
+				d_password = *argvp++;
+			}
+			break;
+		case IN_SW_BURP_SE:	/* service name */
+			if (argvp >= end) {
+				err = TRUE;
+			} else {
+				sw_service = string;
+				d_service = *argvp++;
+			}
+			break;
+		case IN_SW_BURP_V:		/* verify actions */
+			total += strlen(string) + 1;
+			flag_verbose = TRUE;
+			break;
+		default:
+			total += strlen(string) + 1;
+			break;
+		}
+	}
+
+	if (sw_service && !err)
+	{
+		/* Backup/restore operations will be running as a service thread.
+		 * To make this more efficiently the isc_spb_options is used.
+		 * This allows us to skip a conversion from the gbak command line
+		 * switches to service parameter block in here as well as vice versa
+		 * conversion within svc.c
+		 *
+		 * If -USER and -PASSWORD switches are used by the user within
+		 * the gbak command line then we have to eliminate them from there. The
+		 * password will be encrypted and added along with the user name 
+		 * within SVC_start function later on. We shall also eliminate
+		 * the -SERVER switch because the switch has already been processed.
+		 */
+
+		if (sw_user)
+			*sw_user = '\0';
+		if (sw_password)
+			*sw_password = '\0';
+		if (sw_service)
+			*sw_service = '\0';
+
+		exit_code = api_gbak(argc, argv, total, d_password,
+							 d_user, d_service, flag_restore, flag_verbose);
+	}
+	else
+		exit_code = BURP_gbak(argc, argv, output_main, (SLONG) NULL);
+
+	return exit_code;
+}
+
+
+static int output_main( SLONG output_data, UCHAR * output_buf)
+{
+/**************************************
+ *
+ *	o u t p u t _ m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Routine which is passed to GBAK for calling back when there is output.
+ *
+ **************************************/
+	ib_fprintf(ib_stderr, "%s", output_buf);
+	return 0;
+}
+
+#endif	// !GUI_TOOLS
+
+#endif	// SUPERSERVER
+
+
+static int output_svc( SLONG output_data, UCHAR * output_buf)
+{
+/**************************************
+ *
+ *	o u t p u t _ s v c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Routine which is passed to GBAK for calling back when there is output
+ *      if gbak is run as a service
+ *
+ **************************************/
+	ib_fprintf(ib_stdout, "%s", output_buf);
+	return 0;
+}
+
+int DLL_EXPORT BURP_gbak(int		argc,
+						 char*		argv[],
+						 OUTPUTPROC	output_proc,
+						 SLONG		output_data)
+{
+/**************************************
+ *
+ *	B U R P _ g b a k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Routine called by command line utility, services API, and server manager.
+ *
+ **************************************/
+	TEXT *file1, **end, *string, *p, *q, c, *device, *redirect;
+/* This function runs within thread for services API, so here should not be
+   *any* static variables. I did not change an existing definition
+   for AIX PowerPC because of the problem (see comments below). So 
+   whoever will do a port on AIX, must reconsider a static definition */
+#ifdef AIX_PPC
+	static TEXT *file2;			/* SomeHow, making this VOLATILE does'nt give the
+								   desired value in case of AIX PowerPC */
+#else
+	TEXT *file2;
+#endif
+	UCHAR *dpb;
+
+	IN_SW_TAB in_sw_tab;
+	FIL file, file_list, next_file;
+	int temp, result;
+	SLONG clock;
+	SLONG redir_in, redir_out, redir_err;
+	VOLATILE SSHORT action = QUIT;
+	BOOLEAN					sw_ods7 = FALSE;
+	USHORT					sw_replace;
+	USHORT					sw_tape;
+	VOLATILE struct tgbl*	tdgbl;
+	JMP_BUF					env;
+	IB_FILE*				tmp_outfile;
+
+/* TMN: This variable should probably be removed, but I left it in */
+/* in case some platform should redefine the BURP SET_THREAD_DATA. */
+/*struct tgbl	thd_context;*/
+
+	tdgbl = (struct tgbl *) gds__alloc(sizeof(*tdgbl));
+/* NOMEM: return error, FREE: during function exit in the SETJMP */
+	if (tdgbl == NULL)
+	{
+		SVC service;
+		service = (SVC) output_data;
+		SVC_STARTED(service);
+		return FINI_ERROR;
+	}
+
+	SET_THREAD_DATA;
+	SVC_PUTSPECIFIC_DATA;
+	memset((void *) tdgbl, 0, sizeof(*tdgbl));
+	tdgbl->burp_env = reinterpret_cast<UCHAR*>(env);
+	tdgbl->file_desc = INVALID_HANDLE_VALUE;
+	tdgbl->output_proc = output_proc;
+	tdgbl->output_data = output_data;
+
+/* Initialize static data. */
+	for (in_sw_tab = burp_in_sw_table; in_sw_tab->in_sw_name; in_sw_tab++)
+		in_sw_tab->in_sw_state = FALSE;
+
+	if (SETJMP(env)) {
+		int exit_code;
+		UCHAR *mem;
+
+		/* All calls to EXIT(), normal and error exits, wind up here */
+
+		tdgbl->burp_env = NULL;
+		exit_code = tdgbl->exit_code;
+
+		/* Close the gbak file handles if they still open */
+		for (file = tdgbl->gbl_sw_backup_files; file; file = file->fil_next) {
+			if (file->fil_fd != INVALID_HANDLE_VALUE)
+				CLOSE(file->fil_fd);
+			if (exit_code != 0
+				&& (tdgbl->action->act_action == ACT_backup_split
+					|| tdgbl->action->act_action == ACT_backup))
+				UNLINK(file->fil_name);
+		}
+
+		/* Detach from database to release system resources */
+		if (tdgbl->db_handle != 0) {
+			close_out_transaction(action,
+								  const_cast<isc_tr_handle*>(&tdgbl->tr_handle));
+			close_out_transaction(action,
+								  const_cast<isc_tr_handle*>(&tdgbl->global_trans));
+			if (isc_detach_database(const_cast<ISC_STATUS*>(tdgbl->status_vector),
+									const_cast<isc_db_handle*>(&tdgbl->db_handle)))
+			{
+				BURP_print_status(const_cast<STATUS*>(tdgbl->status_vector));
+			}
+		}
+
+		/* Close the status output file */
+		if (tdgbl->sw_redirect == TRUE && tdgbl->output_file != NULL) {
+			ib_fclose(tdgbl->output_file);
+			tdgbl->output_file = NULL;
+		}
+
+		/* Free all unfreed memory used by Gbak itself */
+		while (tdgbl->head_of_mem_list != NULL) {
+			mem = tdgbl->head_of_mem_list;
+			tdgbl->head_of_mem_list = *((UCHAR **) tdgbl->head_of_mem_list);
+			gds__free(mem);
+		}
+
+		RESTORE_THREAD_DATA;
+		if (tdgbl != NULL) {
+			gds__free((SLONG *) tdgbl);
+		}
+
+#if defined(DEBUG_GDS_ALLOC) && !defined(SUPERSERVER)
+		gds_alloc_report(0, __FILE__, __LINE__);
+#endif
+
+		/* All returns occur from this point - even normal returns */
+		return exit_code;
+	}
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+/* Perform some special handling when run as an Interbase service.  The
+   first switch can be "-svc" (lower case!) or it can be "-svc_re" followed
+   by 3 file descriptors to use in re-directing stdin, stdout, and stderr.
+
+   If this utility is started as a thread in the engine, then the first switch
+   will be "-svc_thd".
+*/
+
+	tdgbl->gbl_sw_service_gbak = FALSE;
+	tdgbl->gbl_sw_service_thd = FALSE;
+	tdgbl->service_blk = NULL;
+	tdgbl->status = const_cast<long* volatile>(tdgbl->status_vector);
+
+	if (argc > 1 && !strcmp(argv[1], "-svc")) {
+		tdgbl->gbl_sw_service_gbak = TRUE;
+		argv++;
+		argc--;
+	}
+	else if (argc > 1 && !strcmp(argv[1], "-svc_thd")) {
+		tdgbl->gbl_sw_service_gbak = TRUE;
+		tdgbl->gbl_sw_service_thd = TRUE;
+		tdgbl->service_blk = (SVC) output_data;
+		tdgbl->status = tdgbl->service_blk->svc_status;
+		argv++;
+		argc--;
+	}
+#ifndef NETWARE_386
+	else if (argc > 4 && !strcmp(argv[1], "-svc_re")) {
+		tdgbl->gbl_sw_service_gbak = TRUE;
+		tdgbl->output_proc = output_svc;
+		redir_in = atol(argv[2]);
+		redir_out = atol(argv[3]);
+		redir_err = atol(argv[4]);
+#ifdef WIN_NT
+#if defined (WIN95) && !defined (GUI_TOOLS)
+		fAnsiCP = TRUE;
+#endif
+		redir_in = _open_osfhandle(redir_in, 0);
+		redir_out = _open_osfhandle(redir_out, 0);
+		redir_err = _open_osfhandle(redir_err, 0);
+#endif
+		if (redir_in != 0)
+			if (dup2((int) redir_in, 0))
+				close((int) redir_in);
+		if (redir_out != 1)
+			if (dup2((int) redir_out, 1))
+				close((int) redir_out);
+		if (redir_err != 2)
+			if (dup2((int) redir_err, 2))
+				close((int) redir_err);
+		argv += 4;
+		argc -= 4;
+	}
+#endif
+
+#if defined (WIN95) && !defined (GUI_TOOLS)
+	if (!fAnsiCP)
+		fAnsiCP = (GetConsoleCP() == GetACP());
+#endif
+
+
+	sw_replace = sw_tape = FALSE;
+
+	tdgbl->gbl_sw_compress = TRUE;
+	tdgbl->gbl_sw_convert_ext_tables = FALSE;
+	tdgbl->gbl_sw_transportable = TRUE;
+	tdgbl->gbl_sw_ignore_limbo = FALSE;
+	tdgbl->gbl_sw_blk_factor = 0;
+	tdgbl->gbl_sw_no_reserve = FALSE;
+#ifdef READONLY_DATABASE
+	tdgbl->gbl_sw_mode = FALSE;
+#endif /* READONLY_DATABASE */
+	tdgbl->gbl_sw_skip_count = 0;
+	tdgbl->gbl_sw_bug8183 = FALSE;
+	tdgbl->action = NULL;
+	dpb = const_cast<UCHAR*>(tdgbl->dpb_string);
+	tdgbl->dpb_length = 0;
+	file1 = file2 = NULL;
+	file = file_list = NULL;
+	tdgbl->io_buffer_size = GBAK_IO_BUFFER_SIZE;
+	end = argv + argc;
+	++argv;
+
+	while (argv < end) {
+		string = *argv;
+		temp = strlen(string) - 1;
+		if (string[temp] == ',')
+			string[temp] = '\0';
+
+		if (*string != '-') {
+			if (!file || file->fil_length || !get_size(*argv, file)) {
+				/*  Miserable thing must be a filename
+				   (dummy in a length for the backup file */
+
+				file = (FIL) BURP_ALLOC_ZERO(FIL_LEN);
+				file->fil_name = string;
+				file->fil_fd = INVALID_HANDLE_VALUE;
+				if (!file_list)
+					file->fil_length = MAX_LENGTH;
+				else
+					file->fil_length = 0;
+				file->fil_next = file_list;
+				file_list = file;
+			}
+			argv++;
+		}
+		else {
+			++argv;
+			if (!string[1])
+				string = "-*NONE*";
+			for (in_sw_tab = burp_in_sw_table; q = in_sw_tab->in_sw_name;
+				 in_sw_tab++) {
+				for (p = string + 1; c = *p++;)
+					if (UPPER(c) != *q++)
+						break;
+				if (!c)
+					break;
+			}
+			in_sw_tab->in_sw_state = TRUE;
+			if (!in_sw_tab->in_sw) {
+				BURP_print(137, string + 1, 0, 0, 0, 0);	/* msg 137  unknown switch %s */
+				BURP_print(95, 0, 0, 0, 0, 0);	/* msg 95  legal switches are */
+				for (in_sw_tab = burp_in_sw_table; in_sw_tab->in_sw;
+					 in_sw_tab++)
+					if (in_sw_tab->in_sw_msg) {
+						BURP_msg_put(in_sw_tab->in_sw_msg, SWITCH_CHAR, 0, 0,
+									 0, 0);
+					}
+
+				BURP_print(132, 0, 0, 0, 0, 0);	/* msg 132 switches can be abbreviated to one character */
+				BURP_error(1, 0, 0, 0, 0, 0);	/* msg 1: found unknown switch */
+			}
+			else if (in_sw_tab->in_sw == IN_SW_BURP_S) {
+				if (argv >= end)
+					BURP_error(200, 0, 0, 0, 0, 0);
+				/* msg 200: missing parameter for the number of bytes to be skipped */
+				tdgbl->gbl_sw_skip_count = get_number(*argv);
+				if (!tdgbl->gbl_sw_skip_count)
+					BURP_error(201, *argv, 0, 0, 0, 0);
+				/* msg 201: expected number of bytes to be skipped, encountered "%s" */
+				argv++;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_BURP_P) {
+				if (argv >= end)
+					BURP_error(2, 0, 0, 0, 0, 0);	/* msg 2 page size parameter missing */
+				tdgbl->gbl_sw_page_size = (USHORT) get_number(*argv);
+				if (!tdgbl->gbl_sw_page_size)
+					BURP_error(12, *argv, 0, 0, 0, 0);	/* msg 12 expected page size, encountered "%s" */
+				argv++;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_BURP_BU) {
+				if (argv >= end)
+					BURP_error(258, 0, 0, 0, 0, 0);	/* msg 258 page buffers parameter missing */
+				tdgbl->gbl_sw_page_buffers = get_number(*argv);
+				if (!tdgbl->gbl_sw_page_buffers)
+					BURP_error(259, *argv, 0, 0, 0, 0);	/* msg 259 expected page buffers, encountered "%s" */
+				argv++;
+			}
+#ifdef READONLY_DATABASE
+			else if (in_sw_tab->in_sw == IN_SW_BURP_MODE) {
+				if (argv >= end)
+					BURP_error(279, 0, 0, 0, 0, 0);	/* msg 279: "read_only" or "read_write" required */
+				string = *argv++;
+				if (!strcmp(string, BURP_SW_MODE_RO))
+					tdgbl->gbl_sw_mode_val = TRUE;
+				else if (!strcmp(string, BURP_SW_MODE_RW))
+					tdgbl->gbl_sw_mode_val = FALSE;
+				else
+					BURP_error(279, 0, 0, 0, 0, 0);	/* msg 279: "read_only" or "read_write" required */
+				tdgbl->gbl_sw_mode = TRUE;
+			}
+#endif /* READONLY_DATABASE */
+			else if (in_sw_tab->in_sw == IN_SW_BURP_PASS) {
+				if (argv >= end)
+					BURP_error(189, 0, 0, 0, 0, 0);	/* password parameter missing */
+				tdgbl->gbl_sw_password = *argv++;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_BURP_USER) {
+				if (argv >= end)
+					BURP_error(188, 0, 0, 0, 0, 0);	/* user name parameter missing */
+				tdgbl->gbl_sw_user = *argv++;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_BURP_ROLE) {
+				if (argv >= end)
+					BURP_error(253, 0, 0, 0, 0, 0);	/* SQL role parameter missing */
+				tdgbl->gbl_sw_sql_role = *argv++;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_BURP_FA) {
+				if (argv >= end)
+					BURP_error(182, 0, 0, 0, 0, 0);	/* msg 182 blocking factor parameter missing */
+				tdgbl->gbl_sw_blk_factor =
+					(volatile USHORT) get_number(*argv);
+				if (!tdgbl->gbl_sw_blk_factor)
+					BURP_error(183, *argv, 0, 0, 0, 0);	/* msg 183 expected blocking factor, encountered "%s"  */
+				argv++;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_BURP_SE) {
+				if (argv >= end) {
+					BURP_error(273, 0, 0, 0, 0, 0);	/* msg 273: service name parameter missing */
+				}
+				in_sw_tab->in_sw_state = FALSE;
+				++argv;			/* skip a service specification */
+			}
+			else if (in_sw_tab->in_sw == IN_SW_BURP_D) {
+				device = *argv;
+				if (argv >= end)	/* device may equal NULL */
+					device = NULL;
+				else if (*device == '-')
+					device = NULL;
+				else
+					++argv;
+			}
+			/* want to do output redirect handling now instead of waiting */
+			else if (in_sw_tab->in_sw == IN_SW_BURP_Y) {
+				redirect = *argv;
+				if (argv >= end)	/* redirect may equal NULL */
+					redirect = NULL;
+				else if (*redirect == '-')
+					redirect = NULL;
+				else
+					++argv;
+				if (!redirect)
+					BURP_error(4, 0, 0, 0, 0, 0);	/* msg 4 redirect location for output is not specified */
+
+				p = redirect;
+				string = OUTPUT_SUPPRESS;
+				tdgbl->sw_redirect = NOOUTPUT;
+				while (c = *p++) {
+					if (UPPER(c) != *string++) {
+						tdgbl->sw_redirect = TRUE;
+						break;
+					}
+				}
+				if (tdgbl->sw_redirect == TRUE) {	/* not FALSE, and not NOOUTPUT */
+
+					/* Make sure the status file doesn't already exist */
+					if (tmp_outfile = ib_fopen(redirect, FOPEN_READ_TYPE)) {
+						BURP_print(66, redirect, 0, 0, 0, 0);
+						/* msg 66 can't open status and error output file %s */
+						ib_fclose(tmp_outfile);
+						EXIT(FINI_ERROR);
+					}
+					if (!
+						(tdgbl->output_file =
+						 ib_fopen(redirect, FOPEN_WRITE_TYPE))) {
+						BURP_print(66, redirect, 0, 0, 0, 0);
+						/* msg 66 can't open status and error output file %s */
+						EXIT(FINI_ERROR);
+					}
+				}
+			}					/*else if (in_sw_tab->in_sw == IN_SW_BURP_Y) */
+		}						/* else */
+	}							/* while (argv < end) */
+
+/* reverse the linked list of file blocks */
+
+	tdgbl->gbl_sw_files = NULL;
+
+	for (file = file_list; file; file = next_file) {
+		next_file = file->fil_next;
+		file->fil_next = tdgbl->gbl_sw_files;
+		tdgbl->gbl_sw_files = file;
+	}
+
+/* pop off the obviously boring ones, plus do some checking */
+
+	for (file = tdgbl->gbl_sw_files; file; file = file->fil_next) {
+		if (!file1)
+			file1 = file->fil_name;
+		else if (!file2)
+			file2 = file->fil_name;
+		for (file_list = file->fil_next; file_list;
+			 file_list = file_list->fil_next) {
+			if (!strcmp(file->fil_name, file_list->fil_name))
+				BURP_error(9, 0, 0, 0, 0, 0);	/* msg 9 mutiple sources or destinations specified */
+		}
+
+	}
+
+/* Initialize 'dpb' and 'dpb_length' */
+	*dpb++ = gds_dpb_version1;
+	*dpb++ = isc_dpb_gbak_attach;
+	*dpb++ = strlen(GDS_VERSION);
+	for (q = GDS_VERSION; *q;)
+		*dpb++ = *q++;
+	tdgbl->dpb_length = dpb - tdgbl->dpb_string;
+
+	for (in_sw_tab = burp_in_sw_table; in_sw_tab->in_sw_name; in_sw_tab++) {
+		if (in_sw_tab->in_sw_state) {
+			switch (in_sw_tab->in_sw) {
+			case (IN_SW_BURP_B):
+				if (sw_replace)
+					BURP_error(5, 0, 0, 0, 0, 0);	/* msg 5 conflicting switches for backup/restore */
+				sw_replace = IN_SW_BURP_B;
+				break;
+
+			case (IN_SW_BURP_C):
+				if (sw_replace == IN_SW_BURP_B)
+					BURP_error(5, 0, 0, 0, 0, 0);	/* msg 5 conflicting switches for backup/restore */
+				if (sw_replace != IN_SW_BURP_R)
+					sw_replace = IN_SW_BURP_C;
+				break;
+
+			case (IN_SW_BURP_CO):
+				tdgbl->gbl_sw_convert_ext_tables = TRUE;
+				break;
+
+			case (IN_SW_BURP_E):
+				tdgbl->gbl_sw_compress = FALSE;
+				break;
+
+			case (IN_SW_BURP_G):
+				if (!tdgbl->dpb_length)
+					*dpb++ = gds_dpb_version1;
+				*dpb++ = gds_dpb_no_garbage_collect;
+				*dpb++ = 0;
+				tdgbl->dpb_length = dpb - tdgbl->dpb_string;
+				break;
+
+			case (IN_SW_BURP_I):
+				tdgbl->gbl_sw_deactivate_indexes = TRUE;
+				break;
+
+			case (IN_SW_BURP_IG):
+				if (!tdgbl->dpb_length)
+					*dpb++ = gds_dpb_version1;
+				*dpb++ = gds_dpb_damaged;
+				*dpb++ = 1;
+				*dpb++ = 1;
+				tdgbl->dpb_length = dpb - tdgbl->dpb_string;
+				break;
+
+			case (IN_SW_BURP_K):
+				tdgbl->gbl_sw_kill = TRUE;
+				break;
+
+			case (IN_SW_BURP_L):
+				tdgbl->gbl_sw_ignore_limbo = TRUE;
+				break;
+
+			case (IN_SW_BURP_M):
+				tdgbl->gbl_sw_meta = TRUE;
+				break;
+
+#ifdef READONLY_DATABASE
+			case (IN_SW_BURP_MODE):
+				tdgbl->gbl_sw_mode = TRUE;
+				break;
+#endif /* READONLY_DATABASE */
+
+			case (IN_SW_BURP_N):
+				tdgbl->gbl_sw_novalidity = TRUE;
+				break;
+
+			case (IN_SW_BURP_NT):	/* Backup non-transportable format */
+				tdgbl->gbl_sw_transportable = FALSE;
+				break;
+
+			case (IN_SW_BURP_O):
+				tdgbl->gbl_sw_incremental = TRUE;
+				break;
+
+			case (IN_SW_BURP_OL):
+				tdgbl->gbl_sw_old_descriptions = TRUE;
+				break;
+
+			case (IN_SW_BURP_PASS):
+				if (!tdgbl->dpb_length)
+					*dpb++ = gds_dpb_version1;
+				if (!tdgbl->gbl_sw_service_thd)
+					*dpb++ = gds_dpb_password;
+				else
+					*dpb++ = gds_dpb_password_enc;
+				*dpb++ = strlen(tdgbl->gbl_sw_password);
+				for (q = tdgbl->gbl_sw_password; *q;)
+					*dpb++ = *q++;
+				tdgbl->dpb_length = dpb - tdgbl->dpb_string;
+				break;
+
+			case (IN_SW_BURP_R):
+				if (sw_replace == IN_SW_BURP_B)
+					BURP_error(5, 0, 0, 0, 0, 0);	/* msg 5 conflicting switches for backup/restore */
+				sw_replace = IN_SW_BURP_R;
+				break;
+
+			case (IN_SW_BURP_T):
+				tdgbl->gbl_sw_transportable = TRUE;
+				break;
+
+			case (IN_SW_BURP_U):
+				BURP_error(7, 0, 0, 0, 0, 0);	/* msg 7 protection isn't there yet */
+				break;
+
+			case (IN_SW_BURP_US):
+				tdgbl->gbl_sw_no_reserve = TRUE;
+				break;
+
+			case (IN_SW_BURP_ROLE):
+				if (!tdgbl->dpb_length)
+					*dpb++ = isc_dpb_version1;
+				*dpb++ = isc_dpb_sql_role_name;
+				*dpb++ = strlen(tdgbl->gbl_sw_sql_role);
+				for (q = tdgbl->gbl_sw_sql_role; *q;)
+					*dpb++ = *q++;
+				tdgbl->dpb_length = dpb - tdgbl->dpb_string;
+				break;
+
+			case (IN_SW_BURP_USER):
+				if (!tdgbl->dpb_length)
+					*dpb++ = gds_dpb_version1;
+				*dpb++ = gds_dpb_user_name;
+				*dpb++ = strlen(tdgbl->gbl_sw_user);
+				for (q = tdgbl->gbl_sw_user; *q;)
+					*dpb++ = *q++;
+				tdgbl->dpb_length = dpb - tdgbl->dpb_string;
+				break;
+
+			case (IN_SW_BURP_V):
+				tdgbl->gbl_sw_verbose = TRUE;
+				break;
+
+			case (IN_SW_BURP_Z):
+				BURP_print(91, GDS_VERSION, 0, 0, 0, 0);	/* msg 91 gbak version %s */
+				tdgbl->gbl_sw_version = TRUE;
+				break;
+
+#ifdef DEV_BUILD
+			case (IN_SW_BURP_7):
+				sw_ods7 = TRUE;
+				break;
+#endif
+			case (IN_SW_BURP_BUG8183):
+				tdgbl->gbl_sw_bug8183 = TRUE;
+				break;
+
+			default:
+				break;
+			}
+		}
+	}
+
+	if (!sw_replace)
+		sw_replace = IN_SW_BURP_B;
+
+	if (tdgbl->gbl_sw_page_size)
+	{
+		if (sw_replace == IN_SW_BURP_B)
+			BURP_error(8, 0, 0, 0, 0, 0);	/* msg 8 page size is allowed only on restore or create */
+		temp = tdgbl->gbl_sw_page_size;
+		{
+			int curr_pg_size = 1024;
+			while (curr_pg_size <= MAX_PAGE_SIZE) {
+				if (temp <= curr_pg_size) {
+					temp = curr_pg_size;
+					break;
+				}
+				curr_pg_size <<= 1;
+			}
+		}
+		if (temp > MAX_PAGE_SIZE)
+		{
+#ifdef SUPERSERVER
+			BURP_svc_error(	3,
+							isc_arg_number,
+							reinterpret_cast<void*>(tdgbl->gbl_sw_page_size),
+							0, NULL, 0, NULL,
+							0, NULL, 0, NULL);
+#else
+			/* msg 3 Page size specified (%ld) greater than limit (MAX_PAGE_SIZE bytes) */
+			BURP_error(3, (void*)tdgbl->gbl_sw_page_size, 0, 0, 0, 0);
+#endif
+		}
+		if (temp != tdgbl->gbl_sw_page_size) {
+			BURP_print(103, (TEXT *) tdgbl->gbl_sw_page_size, (TEXT *) temp,
+					   0, 0, 0);	/* msg 103 page size specified (%ld bytes) rounded up to %ld bytes */
+			tdgbl->gbl_sw_page_size = temp;
+		}
+	}
+
+	if (tdgbl->gbl_sw_page_buffers) {
+		if (sw_replace == IN_SW_BURP_B)
+			BURP_error(260, 0, 0, 0, 0, 0);	/* msg 260 page buffers is allowed only on restore or create */
+	}
+
+	if (!tdgbl->gbl_sw_blk_factor || sw_replace != IN_SW_BURP_B)
+		tdgbl->gbl_sw_blk_factor = 1;
+
+	if (!file2)
+		BURP_error(10, 0, 0, 0, 0, 0);	/* msg 10 requires both input and output filenames */
+
+	if (!strcmp(file1, file2))
+		BURP_error(11, 0, 0, 0, 0, 0);	/* msg 11 input and output have the same name.  Disallowed. */
+
+	clock = time(NULL);
+	strcpy(const_cast<char*>(tdgbl->gbl_backup_start_time), ctime(&clock));
+	p =
+		const_cast<char*>(tdgbl->gbl_backup_start_time +
+				strlen(const_cast<const char*>(tdgbl->gbl_backup_start_time)) - 1);
+	if (*p == '\n')
+		*p = 0;
+
+#ifdef DEV_BUILD
+	if (sw_ods7) {
+		gds__enable_subsystem("GDSSHR5");
+		gds__enable_subsystem("PIPE5");
+	}
+#endif
+
+	tdgbl->action = (ACT) BURP_ALLOC_ZERO(ACT_LEN);
+	tdgbl->action->act_total = 0;
+	tdgbl->action->act_file = NULL;
+	tdgbl->action->act_action = ACT_unknown;
+
+	action =
+		open_files(file1, &file2, tdgbl->gbl_sw_verbose, sw_replace, sw_tape);
+
+	MVOL_init(tdgbl->io_buffer_size);
+
+	switch (action) {
+	case (RESTORE):
+		SVC_STARTED(tdgbl->service_blk);
+		result = RESTORE_restore(file1, file2);
+		break;
+
+	case (BACKUP):
+		SVC_STARTED(tdgbl->service_blk);
+		result = BACKUP_backup(file1, file2);
+		break;
+
+	case (QUIT):
+		SVC_STARTED(tdgbl->service_blk);
+		BURP_abort();
+		break;
+	}
+	if (result != FINI_OK && result != FINI_DB_NOT_ONLINE)
+		BURP_abort();
+
+	EXIT(result);
+	return result;
+}
+
+
+void BURP_abort(void)
+{
+/**************************************
+ *
+ *	B U R P _ a b o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abandon a failed operation.
+ *
+ **************************************/
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	BURP_print(83, 0, 0, 0, 0, 0);	/* msg 83 Exiting before completion due to errors */
+
+#ifdef SUPERSERVER
+	SVC_STARTED(tdgbl->service_blk);
+#endif
+
+	EXIT(FINI_ERROR);
+}
+
+
+void BURP_error(USHORT errcode,
+				void* arg1,
+				void* arg2,
+				void* arg3,
+				void* arg4,
+				void* arg5)
+{
+/**************************************
+ *
+ *	 B U R P _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format and print an error message, then punt.
+ *
+ **************************************/
+#ifdef SUPERSERVER
+	TGBL tdgbl;
+	STATUS *status;
+
+	tdgbl = GET_THREAD_DATA;
+	status = tdgbl->service_blk->svc_status;
+
+	CMD_UTIL_put_svc_status(status, BURP_MSG_FAC, errcode,
+							isc_arg_string, arg1,
+							isc_arg_string, arg2,
+							isc_arg_string, arg3,
+							isc_arg_string, arg4, isc_arg_string, arg5);
+	SVC_STARTED(tdgbl->service_blk);
+#endif
+
+	BURP_msg_partial(256, 0, 0, 0, 0, 0);	/* msg 256: gbak: ERROR: */
+	BURP_msg_put(errcode, arg1, arg2, arg3, arg4, arg5);
+	BURP_abort();
+}
+
+
+void BURP_print_status( STATUS * status_vector)
+{
+/**************************************
+ *
+ *	B U R P _ p r i n t _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print error message. Use isc_interprete
+ *	to allow redirecting output.
+ *
+ **************************************/
+#ifdef SUPERSERVER
+	TGBL tdgbl;
+	STATUS *status;
+	int i = 0, j;
+#endif
+	STATUS *vector;
+	SCHAR s[1024];
+
+	if (status_vector) {
+		vector = status_vector;
+#ifdef SUPERSERVER
+		tdgbl = GET_THREAD_DATA;
+		status = tdgbl->service_blk->svc_status;
+		if (status != status_vector) {
+			while (*status && (++i < ISC_STATUS_LENGTH))
+				status++;
+			for (j = 0; status_vector[j] && (i < ISC_STATUS_LENGTH); j++, i++)
+				*status++ = status_vector[j];
+		}
+#endif
+
+		if (isc_interprete(s, &vector)) {
+			TRANSLATE_CP(s);
+			BURP_msg_partial(256, 0, 0, 0, 0, 0);	/* msg 256: gbak: ERROR: */
+			burp_output("%s\n", s);
+			while (isc_interprete(s, &vector)) {
+				TRANSLATE_CP(s);
+				BURP_msg_partial(256, 0, 0, 0, 0, 0);	/* msg 256: gbak: ERROR: */
+				burp_output("    %s\n", s);
+			}
+		}
+	}
+}
+
+
+void BURP_print_warning( STATUS * status_vector)
+{
+/**************************************
+ *
+ *	B U R P _ p r i n t _ w a r n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print warning message. Use isc_interprete
+ *	to allow redirecting output.
+ *
+ **************************************/
+	STATUS *vector;
+	SCHAR s[1024];
+
+	if (status_vector) {
+		/* skip the error, assert that one does not exist */
+		assert(status_vector[0] == gds_arg_gds);
+		assert(status_vector[1] == 0);
+		/* print the warning message */
+		vector = &status_vector[2];
+		if (isc_interprete(s, &vector)) {
+			TRANSLATE_CP(s);
+			BURP_msg_partial(255, 0, 0, 0, 0, 0);	/* msg 255: gbak: WARNING: */
+			burp_output("%s\n", s);
+			while (isc_interprete(s, &vector)) {
+				TRANSLATE_CP(s);
+				BURP_msg_partial(255, 0, 0, 0, 0, 0);	/* msg 255: gbak: WARNING: */
+				burp_output("    %s\n", s);
+			}
+		}
+	}
+}
+
+
+void BURP_error_redirect(	STATUS* status_vector,
+							USHORT errcode,
+							void* arg1,
+							void* arg2)
+{
+/**************************************
+ *
+ *	B U R P _ e r r o r _ r e d i r e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Issue error message. Output messages then abort.
+ *
+ **************************************/
+
+	BURP_print_status(status_vector);
+	BURP_error(errcode, arg1, arg2, NULL, NULL, NULL);
+}
+
+
+void BURP_msg_partial(	USHORT number,
+						void* arg1,
+						void* arg2,
+						void* arg3,
+						void* arg4,
+						void* arg5)
+{
+/**************************************
+ *
+ *	B U R P _ m s g _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, 
+ *	format it, and print it without a newline.
+ *
+ **************************************/
+	TEXT buffer[256];
+
+	gds__msg_format(NULL,
+					BURP_MSG_FAC,
+					number,
+					sizeof(buffer),
+					buffer,
+					reinterpret_cast<char*>(arg1),
+					reinterpret_cast<char*>(arg2),
+					reinterpret_cast<char*>(arg3),
+					reinterpret_cast<char*>(arg4),
+					reinterpret_cast<char*>(arg5));
+	burp_output("%s", buffer);
+}
+
+
+void BURP_msg_put(	USHORT number,
+					void* arg1,
+					void* arg2,
+					void* arg3,
+					void* arg4,
+					void* arg5)
+{
+/**************************************
+ *
+ *	B U R P _ m s g _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, format it, and print it.
+ *
+ **************************************/
+	TEXT buffer[256];
+
+	gds__msg_format(NULL,
+					BURP_MSG_FAC,
+					number,
+					sizeof(buffer),
+					buffer,
+					reinterpret_cast<char*>(arg1),
+					reinterpret_cast<char*>(arg2),
+					reinterpret_cast<char*>(arg3),
+					reinterpret_cast<char*>(arg4),
+					reinterpret_cast<char*>(arg5));
+	TRANSLATE_CP(buffer);
+	burp_output("%s\n", buffer);
+}
+
+
+void BURP_msg_get(	USHORT number,
+					void* msg,
+					void* arg1,
+					void* arg2,
+					void* arg3,
+					void* arg4,
+					void* arg5)
+{
+/**************************************
+ *
+ *	B U R P _ m s g _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, format it and copy it to the buffer
+ *
+ **************************************/
+	TEXT buffer[128];
+
+	gds__msg_format(NULL,
+					BURP_MSG_FAC,
+					number,
+					sizeof(buffer),
+					buffer,
+					reinterpret_cast<char*>(arg1),
+					reinterpret_cast<char*>(arg2),
+					reinterpret_cast<char*>(arg3),
+					reinterpret_cast<char*>(arg4),
+					reinterpret_cast<char*>(arg5));
+	strcpy(reinterpret_cast<char*>(msg), buffer);
+}
+
+
+void BURP_output_version( TEXT * arg1, TEXT * arg2)
+{
+/**************************************
+ *
+ *	B U R P _ o u t p u t _ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Callback routine for access method
+ *	printing (specifically show version);
+ *	will accept.
+ *
+ **************************************/
+
+	burp_output(arg1, arg2);
+}
+
+
+void BURP_print(USHORT number,
+				void* arg1, void* arg2, void* arg3, void* arg4, void* arg5)
+{
+/**************************************
+ *
+ *	B U R P _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display a formatted error message
+ *	in a way that VMS or civilized systems
+ *	will accept.
+ *
+ **************************************/
+
+	BURP_msg_partial(169, 0, 0, 0, 0, 0);	/* msg 169: gbak: */
+	BURP_msg_put(number, arg1, arg2, arg3, arg4, arg5);
+}
+
+
+void BURP_verbose(USHORT number,
+				  void* arg1, void* arg2, void* arg3, void* arg4, void* arg5)
+{
+/**************************************
+ *
+ *	B U R P _ v e r b o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Calls BURP_print for displaying a formatted error message
+ *	but only for verbose output.  If not verbose then calls
+ *	user defined yieding function.
+ *
+ **************************************/
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (tdgbl->gbl_sw_verbose)
+		BURP_print(number, arg1, arg2, arg3, arg4, arg5);
+	else
+		burp_output("");
+}
+
+
+static void close_out_transaction(VOLATILE  SSHORT action,
+								  isc_tr_handle* handle)
+{
+/**************************************
+ *
+ *	c l o s e _ o u t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a transaction go away.  This is
+ *	important as we need to detach from the
+ *	database so all engine allocated memory is
+ *	returned to the system.
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+
+	if (*handle != 0) {
+		if (action == RESTORE) {
+			/* Even if the restore failed, commit the transaction so that
+			 * a partial database is at least recovered.
+			 */
+			isc_commit_transaction(status_vector, handle);
+			if (status_vector[1]) {
+				/* If we can't commit - have to roll it back, as
+				 * we need to close all outstanding transactions before
+				 * we can detach from the database.
+				 */
+				isc_rollback_transaction(status_vector, handle);
+				if (status_vector[1])
+					BURP_print_status(status_vector);
+			}
+		}
+		else
+			/* A backup shouldn't touch any data - we ensure that 
+			 * by never writing data during a backup, but let's double
+			 * ensure it by doing a rollback
+			 */
+		if (isc_rollback_transaction(status_vector, handle))
+			BURP_print_status(status_vector);
+	}
+}
+
+
+static SLONG get_number( SCHAR * string)
+{
+/**************************************
+ *
+ *	g e t _ n u m b e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a string to binary, complaining bitterly if
+ *	the string is bum.
+ *
+ **************************************/
+	SCHAR c, *p;
+	SLONG value;
+
+	for (value = 0, p = string; c = *p++;) {
+		if (c < '0' || c > '9')
+			return 0;
+		value *= 10;
+		value += c - '0';
+	}
+
+	return value;
+}
+
+
+static SSHORT open_files(TEXT * file1,
+						 TEXT ** file2,
+						 USHORT sw_verbose, USHORT sw_replace, USHORT sw_tape)
+{
+/**************************************
+ *
+ *	o p e n _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	from the input file names and
+ *	positions, guess what the users
+ *	intention was.  Return the type
+ *	of the first file, plus open file
+ *	and db handle.
+ *
+ **************************************/
+	STATUS *status_vector, status_vector2[ISC_STATUS_LENGTH];
+	TGBL tdgbl;
+	FIL fil;
+	int seq, total;
+	SSHORT flag;
+
+
+	tdgbl = GET_THREAD_DATA;
+	status_vector = tdgbl->status;
+
+/* try to attach the database using the first file_name */
+
+	if (sw_replace != IN_SW_BURP_C && sw_replace != IN_SW_BURP_R)
+		if (!(isc_attach_database(status_vector,
+								  (SSHORT) 0,
+								  file1,
+								  &tdgbl->db_handle,
+								  tdgbl->dpb_length,
+								  reinterpret_cast<char*>(tdgbl->dpb_string))))
+		{
+			if (sw_replace != IN_SW_BURP_B) {
+				/* msg 13 REPLACE specified, but the first file %s is a database */
+				BURP_error(13, file1, 0, 0, 0, 0);
+				if (isc_detach_database(status_vector, &tdgbl->db_handle)) {
+					BURP_print_status(status_vector);
+				}
+				return QUIT;
+			}
+			if (tdgbl->gbl_sw_version) {
+				/* msg 139 Version(s) for database "%s" */
+				BURP_print(139, file1, 0, 0, 0, 0);
+				isc_version(&tdgbl->db_handle,
+							reinterpret_cast<void (*)()>(BURP_output_version),
+							"\t%s\n");
+			}
+			if (sw_verbose)
+				BURP_print(166, file1, 0, 0, 0, 0);	/* msg 166: readied database %s for backup */
+		}
+		else if (sw_replace == IN_SW_BURP_B ||
+				 (status_vector[1] != gds_io_error
+				  && status_vector[1] != gds_bad_db_format)) {
+			BURP_print_status(status_vector);
+			return QUIT;
+		}
+
+	if (sw_replace == IN_SW_BURP_B) {
+
+
+		/* Now it is safe to skip a db file */
+		tdgbl->gbl_sw_backup_files = tdgbl->gbl_sw_files->fil_next;
+		tdgbl->gbl_sw_files = tdgbl->gbl_sw_files->fil_next;
+		assert(strcmp(tdgbl->gbl_sw_files->fil_name, *file2) == 0);
+
+		flag = BACKUP;
+		tdgbl->action->act_action = ACT_backup;
+		for (fil = tdgbl->gbl_sw_files; fil; fil = fil->fil_next)
+		{
+			/* adjust the file size first */
+			switch (fil->fil_size_code)
+			{
+			case size_n:
+				break;
+			case size_k:
+				fil->fil_length *= KBYTE;
+				break;
+			case size_m:
+				fil->fil_length *= MBYTE;
+				break;
+			case size_g:
+				fil->fil_length *= GBYTE;
+				break;
+			case size_e:
+				BURP_error(262, fil->fil_name, 0, 0, 0, 0);	/* msg 262 size spe cification either missing or incorrect for file %s  */
+				break;
+			default:
+				assert(FALSE);
+				break;
+			}
+
+			if ((fil->fil_seq = ++(tdgbl->action->act_total)) >= 2)
+			{
+				tdgbl->action->act_action = ACT_backup_split;
+			}
+			if (sw_verbose)
+			{
+				BURP_print(75, fil->fil_name, 0, 0, 0, 0);	/* msg 75  creating file %s */
+			}
+			if (!strcmp(fil->fil_name, "stdout"))
+			{
+				if (tdgbl->action->act_total >= 2 || fil->fil_next)
+				{
+					BURP_error(266, 0, 0, 0, 0, 0);	/* msg 266 standard output is not supported when using split operation */
+					flag = QUIT;
+					break;
+				}
+				/* We ignore SIGPIPE so that we can report an IO error when we
+				 * try to write to the broken pipe.
+				 */
+#ifndef WIN_NT
+				signal(SIGPIPE, SIG_IGN);
+#endif
+				fil->fil_fd = reinterpret_cast<void*>(GBAK_STDOUT_DESC);
+				break;
+			}
+			else
+			{
+
+#ifdef WIN_NT
+				if ((fil->fil_fd = MVOL_open(fil->fil_name, MODE_WRITE,
+											 CREATE_ALWAYS)) == INVALID_HANDLE_VALUE)
+#else
+				if ((fil->fil_fd = open(fil->fil_name, MODE_WRITE, MASK)) == -1)
+#endif /* WIN_NT */
+
+				{
+
+#ifdef SUPERSERVER
+					BURP_svc_error(65, isc_arg_string, fil->fil_name,
+								   0, NULL, 0, NULL, 0, NULL, 0, NULL);
+#endif
+					BURP_print(65, fil->fil_name, 0, 0, 0, 0);	/* msg 65 can't
+																   open backup file %s */
+					flag = QUIT;
+					break;
+				}
+			}
+
+			if (fil->fil_length == 0)
+			{
+				if (fil->fil_next)
+				{
+					BURP_error(262, fil->fil_name, 0, 0, 0, 0);	/* msg 262 size specification either missing or incorrect for file %s  */
+					flag = QUIT;
+					break;
+				}
+				else
+				{
+					fil->fil_length = MAX_LENGTH;	/* Write as much as possible to
+													   the last file */
+				}
+			}
+			if (fil->fil_length < MIN_SPLIT_SIZE)
+			{
+#ifdef SUPERSERVER
+				BURP_svc_error(	271,
+								isc_arg_number,
+								reinterpret_cast<void*>(fil->fil_length),
+								isc_arg_number,
+								reinterpret_cast<void*>(MIN_SPLIT_SIZE),
+								0, NULL, 0, NULL, 0, NULL);
+#else
+				BURP_error(271, (TEXT *) fil->fil_length,
+						   (TEXT *) MIN_SPLIT_SIZE, 0, 0, 0);
+				/* msg file size given (%d) is less than minimum allowed (%d) */
+#endif
+				flag = QUIT;
+				break;
+			}
+		}
+
+		if (flag == BACKUP)
+		{
+			tdgbl->action->act_file = tdgbl->gbl_sw_files;
+			tdgbl->file_desc = tdgbl->gbl_sw_files->fil_fd;
+		}
+		else
+		{
+			if (isc_detach_database(status_vector, &tdgbl->db_handle))
+			{
+				BURP_print_status(status_vector);
+			}
+		}
+
+		return flag;
+	}
+
+
+/*
+ * If we got to here, then we're really not backing up a database,
+ * so open a backup file.
+ */
+
+/* There are four possible cases such as:
+ *
+ *   1. restore single backup file to single db file
+ *   2. restore single backup file to multiple db files
+ *   3. restore multiple backup files (join operation) to single db file
+ *   4. restore multiple backup files (join operation) to multiple db files
+ *
+ * Just looking at the command line, we can't say for sure whether it is a
+ * specification of the last file to be join or it is a specification of the
+ * primary db file (case 4), for example:
+ *
+ *     gbak -c gbk1 gbk2 gbk3 db1 200 db2 500 db3 -v
+ *                            ^^^
+ *     db1 could be either the last file to be join or primary db file
+ *
+ * Since 'gbk' and 'gsplit' formats are different (gsplit file has its own
+ * header record) hence we can use it as follows:
+ *
+ *     - open first file
+ *     - read & check a header record
+ *
+ *    If a header is identified as a 'gsplit' one then we know exactly how
+ * many files need to be join and in which order. We keep opening a file by
+ * file till we reach the last one to be join. During this step we check
+ * that the files are accessible and are in proper order. It gives us
+ * possibility to let silly customer know about an error as soon as possible.
+ * Besides we have to find out which file is going to be a db file.
+ *
+ *    If header is not identified as a 'gsplit' record then we assume that
+ * we got a single backup file.
+ */
+
+	fil = tdgbl->gbl_sw_files;
+	tdgbl->gbl_sw_backup_files = tdgbl->gbl_sw_files;
+
+	tdgbl->action->act_action = ACT_restore;
+	if (!strcmp(fil->fil_name, "stdin")) {
+		fil->fil_fd = reinterpret_cast<void*>(GBAK_STDIN_DESC);
+		tdgbl->file_desc = fil->fil_fd;
+		tdgbl->gbl_sw_files = fil->fil_next;
+	}
+	else {
+		/* open first file */
+#ifdef WIN_NT
+		if ((fil->fil_fd = MVOL_open(fil->fil_name, MODE_READ, OPEN_EXISTING))
+			== INVALID_HANDLE_VALUE)
+#else
+		if ((fil->fil_fd = open(fil->fil_name, MODE_READ)) ==
+			INVALID_HANDLE_VALUE)
+#endif
+		{
+			BURP_error(65, fil->fil_name, 0, 0, 0, 0);	/* msg 65 can't open backup file %s */
+			return QUIT;
+		}
+
+		if (sw_verbose)
+			BURP_print(100, fil->fil_name, 0, 0, 0, 0);	/* msg 100 opened file
+														   %s */
+		/* read and check a header record */
+		tdgbl->action->act_file = fil;
+		seq = 1;
+		if (MVOL_split_hdr_read() == TRUE) {
+			tdgbl->action->act_action = ACT_restore_join;
+			total = tdgbl->action->act_total;	/* number of files to be join */
+			if (fil->fil_seq != seq || seq > total) {
+				BURP_error(263, fil->fil_name, 0, 0, 0, 0);	/* msg 263 file %s out of sequence */
+				return QUIT;
+			}
+
+			for (++seq, fil = fil->fil_next; seq <= total;
+				 fil = fil->fil_next, seq++) {
+				if (!fil) {
+					BURP_error(264, 0, 0, 0, 0, 0);	/* msg 264 can't join -- one of the files missing */
+					return QUIT;
+				}
+				if (!strcmp(fil->fil_name, "stdin")) {
+					BURP_error(265, 0, 0, 0, 0, 0);	/* msg 265 standard input is not supported when using join operation */
+					return QUIT;
+				}
+				tdgbl->action->act_file = fil;
+#ifdef WIN_NT
+				if ((fil->fil_fd = MVOL_open(fil->fil_name, MODE_READ,
+											 OPEN_EXISTING)) ==
+					INVALID_HANDLE_VALUE)
+#else
+				if ((fil->fil_fd = open(fil->fil_name, MODE_READ))
+					== INVALID_HANDLE_VALUE)
+#endif
+				{
+#ifdef SUPERSERVER
+					BURP_svc_error(65, isc_arg_string, fil->fil_name,
+								   0, NULL, 0, NULL, 0, NULL, 0, NULL);
+#endif
+					BURP_print(65, fil->fil_name, 0, 0, 0, 0);	/* msg 65 can't open
+																   backup file %s */
+					return QUIT;
+				}
+
+				if (sw_verbose)
+					BURP_print(100, fil->fil_name, 0, 0, 0, 0);	/* msg 100
+																   opened file
+																   %s */
+				if (MVOL_split_hdr_read() == TRUE) {
+					if ((total != tdgbl->action->act_total) ||
+						(seq != fil->fil_seq) || (seq > total)) {
+						BURP_error(263, fil->fil_name, 0, 0, 0, 0);	/* msg 263 file %s out of sequence */
+						return QUIT;
+					}
+				}
+				else {
+					BURP_error(267, fil->fil_name, 0, 0, 0, 0);	/* msg 267 backup file %s might be corrupt */
+					return QUIT;
+				}
+			}
+			tdgbl->action->act_file = tdgbl->gbl_sw_files;
+			tdgbl->file_desc = tdgbl->action->act_file->fil_fd;
+			if ((tdgbl->gbl_sw_files = fil) == NULL) {
+				BURP_error(268, 0, 0, 0, 0, 0);	/* msg 268 database file specification missing */
+				return QUIT;
+			}
+		}
+		else {
+			/* Move pointer to the begining of the file. At this point we
+			   assume -- this is a single backup file because we were
+			   not able to read a split header record.
+			 */
+#ifdef WIN_NT
+			if (strnicmp(fil->fil_name, "\\\\.\\tape", 8))
+				SetFilePointer(fil->fil_fd, 0, NULL, FILE_BEGIN);
+			else
+				SetTapePosition(fil->fil_fd, TAPE_REWIND, 0, 0, 0, FALSE);
+#else
+			lseek(fil->fil_fd, 0, SEEK_SET);
+#endif
+			tdgbl->file_desc = fil->fil_fd;
+			tdgbl->gbl_sw_files = fil->fil_next;
+		}
+	}
+
+
+/* If we got here, we've opened a backup file, and we're
+   thinking about creating or replacing a database. */
+
+	*file2 = tdgbl->gbl_sw_files->fil_name;
+	if (tdgbl->gbl_sw_files->fil_size_code != size_n)
+		BURP_error(262, *file2, 0, 0, 0, 0);	/* msg 262 size specificati on either missing or incorrect for file %s  */
+
+	if ((sw_replace == IN_SW_BURP_C || sw_replace == IN_SW_BURP_R) &&
+		!isc_attach_database(status_vector,
+							 (SSHORT) 0,
+							 *file2,
+							 &tdgbl->db_handle,
+							 tdgbl->dpb_length,
+							 reinterpret_cast<char*>(tdgbl->dpb_string)))
+	{
+		if (sw_replace == IN_SW_BURP_C) {
+			if (isc_detach_database(status_vector, &tdgbl->db_handle)) {
+				BURP_print_status(status_vector);
+			}
+			BURP_error(14, *file2, 0, 0, 0, 0);
+			/* msg 14 database %s already exists.  To replace it, use the -R switch */
+		}
+		else {
+			isc_drop_database(status_vector, &tdgbl->db_handle);
+			if (tdgbl->db_handle) {
+				if (isc_detach_database(status_vector2, &tdgbl->db_handle)) {
+					BURP_print_status(status_vector2);
+				}
+
+				/* Complain only if the drop database entrypoint is available.
+				   If it isn't, the database will simply be overwritten. */
+
+				if (status_vector[1] != gds_unavailable)
+					BURP_error(233, *file2, 0, 0, 0, 0);
+				/* msg 233 Cannot drop database %s, might be in use */
+			}
+		}
+	}
+	if (sw_replace == IN_SW_BURP_R && status_vector[1] == isc_adm_task_denied) {
+		/* if we got an error from attach database and we have replace switch set
+		 * then look for error from attach returned due to not owner, if we are
+		 * not owner then return the error status back up 
+		 */
+		BURP_error(274, 0, 0, 0, 0, 0);
+		/* msg # 274 : Cannot restore over current database, must be sysdba
+		   * or owner of the existing database. 
+		 */
+	}
+/* if we got here, then all is well, remove any error condition from the
+ * status vector when running as a service thread.  If we don't then the
+ * service will think that there is an error if isc_attach_database failed
+ * like it should have (if creating a database).
+ */
+	if (tdgbl->gbl_sw_service_thd)
+		memset(tdgbl->status, 0, ISC_STATUS_LENGTH * sizeof(STATUS));
+
+/* check the file size specification */
+	for (fil = tdgbl->gbl_sw_files; fil; fil = fil->fil_next) {
+		if (fil->fil_size_code != size_n)
+			BURP_error(262, fil->fil_name, 0, 0, 0, 0);	/* msg 262 size specification either missing or incorrect for file %s  */
+	}
+
+	return RESTORE;
+}
+
+
+static void burp_output( CONST SCHAR * format, ...)
+{
+/**************************************
+ *
+ *	b u r p _ o u t p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Platform independent output routine.
+ *
+ **************************************/
+	va_list arglist;
+	UCHAR buf[1000];
+	int exit_code;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (tdgbl->sw_redirect == NOOUTPUT || format[0] == '\0') {
+		exit_code =
+			tdgbl->output_proc(tdgbl->output_data,
+							   reinterpret_cast<UCHAR*>(""));
+	}
+	else if (tdgbl->sw_redirect == TRUE && tdgbl->output_file != NULL) {
+		VA_START(arglist, format);
+		ib_vfprintf(tdgbl->output_file, format, arglist);
+		va_end(arglist);
+		exit_code =
+			tdgbl->output_proc(tdgbl->output_data,
+							   reinterpret_cast<UCHAR*>(""));
+	}
+	else {
+		VA_START(arglist, format);
+		vsprintf((char *) buf, format, arglist);
+		va_end(arglist);
+
+		exit_code = tdgbl->output_proc(tdgbl->output_data, buf);
+	}
+
+	if (exit_code != 0)
+		EXIT(exit_code);
+}
+
+
+static ULONG get_size( SCHAR * string, FIL file)
+{
+/**********************************************
+ *
+ *      g e t _ s i z e
+ *
+ **********************************************
+ *
+ * Functional description
+ *	Get size specification for either splitting or
+ *	restoring to multiple files
+ *
+ **********************************************/
+	SCHAR *num, c;
+	ULONG size;
+	BOOLEAN digit;
+
+
+	file->fil_size_code = size_n;
+	for (size = 0, digit = FALSE, num = string; c = *num++;) {
+		if (isdigit(c)) {
+			size = size * 10 + (c - '0');
+			digit = TRUE;
+		}
+		else {
+			if (isalpha(c)) {
+				if (!digit) {
+					file->fil_size_code = size_e;
+					size = 0;
+					break;
+				}
+				switch (UPPER(c)) {
+				case 'K':
+					file->fil_size_code = size_k;
+					break;
+				case 'M':
+					file->fil_size_code = size_m;
+					break;
+				case 'G':
+					file->fil_size_code = size_g;
+					break;
+				default:
+					file->fil_size_code = size_e;
+					size = 0;
+					break;
+				}
+				if (*num) {
+					file->fil_size_code = size_e;
+					size = 0;
+				}
+				break;
+			}
+		}
+	}
+
+	return (file->fil_length = size);
+}
+
+
+#ifndef SUPERSERVER
+#ifndef GUI_TOOLS
+static int api_gbak(int argc,
+					char *argv[],
+					USHORT length,
+					TEXT * password,
+					TEXT * user,
+					TEXT * service,
+					BOOLEAN restore,
+					BOOLEAN verbose)
+{
+/**********************************************
+ *
+ *	a p i _ g b a k
+ *
+ **********************************************
+ *
+ * Functional description
+ *	Run gbak using services APIs
+ *
+ **********************************************/
+	STATUS status[ISC_STATUS_LENGTH];
+	TEXT **end, *x, *p, *usr, *pswd;
+	USHORT spblen, thdlen;
+	char sendbuf[] = { isc_info_svc_line };
+	char respbuf[1024];
+	long *svc_handle = NULL;
+	char *spb_ptr, *spb, *svc_name, *thd_ptr, *thd;
+	struct tgbl *tdgbl, ldgbl;
+
+	tdgbl = &ldgbl;
+	SET_THREAD_DATA;
+	memset((void *) tdgbl, 0, sizeof(*tdgbl));
+	tdgbl->output_proc = output_main;
+
+	if (!user)
+		usr = getenv("ISC_USER");
+	else
+		usr = user;
+
+	if (!password)
+		pswd = getenv("ISC_PASSWORD");
+	else
+		pswd = password;
+
+	spb = (char *) gds__alloc((SLONG) (2 + 2 + ((usr) ? strlen(usr) : 0) +
+									   2 + ((pswd) ? strlen(pswd) : 0)) +
+							  2 + length + strlen(SERVICE_THD_PARAM));
+	/* 'isc_spb_version'
+	   'isc_spb_current_version'
+	   'isc_spb_user_name'
+	   'length'
+	   "usr"
+	   'isc_spb_password'
+	   'length'
+	   "pswd"
+	   'isc_spb_options'
+	   'length'
+	   "options" */
+	if (spb == NULL) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		BURP_print_status(status);
+		BURP_print(83, 0, 0, 0, 0, 0);	/* msg 83 Exiting before completion due to errors */
+		return FINI_ERROR;
+	}
+
+	spb_ptr = spb;
+	*spb_ptr++ = isc_spb_version;
+	*spb_ptr++ = isc_spb_current_version;
+
+	if (usr) {
+		*spb_ptr++ = isc_spb_user_name;
+		*spb_ptr++ = strlen(usr);
+		MEMMOVE(usr, spb_ptr, strlen(usr));
+		spb_ptr += strlen(usr);
+		if (user)
+			*user = '\0';
+	}
+
+	if (pswd) {
+		*spb_ptr++ = isc_spb_password;
+		*spb_ptr++ = strlen(pswd);
+		MEMMOVE(pswd, spb_ptr, strlen(pswd));
+		spb_ptr += strlen(pswd);
+		if (password)
+			*password = '\0';
+	}
+
+	svc_name = (char *) gds__alloc((SLONG) (strlen(service) + 1));
+
+	if (svc_name == NULL) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		BURP_print_status(status);
+		gds__free(spb);
+		BURP_print(83, 0, 0, 0, 0, 0);	/* msg 83 Exiting before completion due to errors */
+		return FINI_ERROR;
+	}
+
+	if (service) {
+		strcpy(svc_name, service);
+		*service = '\0';
+	}
+
+
+/* Fill command line options started with internal switch SERVICE_THD_PARAM */
+
+	*spb_ptr++ = isc_spb_command_line;
+	end = argv + argc;
+	argv++;
+
+	*spb_ptr++ = length + strlen(SERVICE_THD_PARAM);
+	for (x = SERVICE_THD_PARAM; *x;)
+		*spb_ptr++ = *x++;
+	while (argv < end) {
+		if (**argv)
+			*spb_ptr++ = ' ';
+		for (x = *argv++; *x;)
+			*spb_ptr++ = *x++;
+	}
+
+	spblen = spb_ptr - spb;
+
+	if (isc_service_attach(	status,
+							0,
+							svc_name,
+							reinterpret_cast<void**>(&svc_handle),
+							spblen, spb))
+	{
+		BURP_print_status(status);
+		gds__free(spb);
+		gds__free(svc_name);
+		BURP_print(83, 0, 0, 0, 0, 0);	/* msg 83 Exiting before completion due to errors */
+		return FINI_ERROR;
+	}
+
+	thd = (char *) gds__alloc((SLONG) (2));
+	/* 'isc_action_svc_restore/isc_action_svc_backup'
+	   'isc_spb_verbose' */
+
+	if (thd == NULL) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		BURP_print_status(status);
+		isc_service_detach(status, reinterpret_cast<void**>(&svc_handle));
+		gds__free(spb);
+		gds__free(svc_name);
+		BURP_print(83, 0, 0, 0, 0, 0);	/* msg 83 Exiting before completion due to errors */
+		return FINI_ERROR;
+	}
+
+	thd_ptr = thd;
+	if (restore)
+		*thd_ptr++ = isc_action_svc_restore;
+	else
+		*thd_ptr++ = isc_action_svc_backup;
+
+	if (verbose)
+		*thd_ptr++ = isc_spb_verbose;
+
+	thdlen = thd_ptr - thd;
+
+	if (isc_service_start(	status,
+							reinterpret_cast<void**>(&svc_handle),
+							NULL,
+							thdlen,
+							thd))
+	{
+		BURP_print_status(status);
+		gds__free(spb);
+		gds__free(svc_name);
+		gds__free(thd);
+		isc_service_detach(status, reinterpret_cast<void**>(&svc_handle));
+		BURP_print(83, 0, 0, 0, 0, 0);	/* msg 83 Exiting before completion due to errors */
+		return FINI_ERROR;
+	}
+
+	do {
+		if (isc_service_query(	status,
+								reinterpret_cast<void**>(&svc_handle),
+								NULL,
+								0,
+								NULL,
+								sizeof(sendbuf),
+								sendbuf,
+								sizeof(respbuf),
+								respbuf))
+		{
+			BURP_print_status(status);
+			gds__free(spb);
+			gds__free(svc_name);
+			gds__free(thd);
+			isc_service_detach(status,
+							   reinterpret_cast<void**>(&svc_handle));
+			BURP_print(83, 0, 0, 0, 0, 0);	/* msg 83 Exiting before completion due to errors */
+			return FINI_ERROR;
+		}
+
+		x = p = respbuf;
+
+		if (*p++ == isc_info_svc_line)
+		{
+			ISC_USHORT len = 0;
+
+			len = (ISC_USHORT) isc_vax_integer(p, sizeof(ISC_USHORT));
+			p += sizeof(ISC_USHORT);
+			if (!len)
+			{
+				if (*p == isc_info_data_not_ready)
+					continue;
+				else if (*p == isc_info_end)
+					break;
+			}
+
+			p[len] = '\0';
+			burp_output("%s\n", p);
+
+			p += len;
+		}
+	}
+	while (*x == isc_info_svc_line);
+
+	isc_service_detach(status, reinterpret_cast<void**>(&svc_handle));
+	return FINI_OK;
+}
+#endif	// !GUI_TOOLS
+
+#endif	// !SUPERSERVER
+
+
+} // extern "C"
diff --git a/src/burp/burp.def b/src/burp/burp.def
new file mode 100644
index 0000000000..83008754ec
--- /dev/null
+++ b/src/burp/burp.def
@@ -0,0 +1,45 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+; 
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+; 
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+; 
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;------------------------------------------------------------
+;  GBAK DLL MODULE DEFINITION FILE
+;------------------------------------------------------------
+
+LIBRARY     GBAK.DLL
+
+DESCRIPTION 'INTERBASE BACKUP/RESTORE DLL'
+CODE MOVEABLE 
+DATA MOVEABLE
+SEGMENTS
+
+   _TEXT              DISCARDABLE
+   BURP_TEXT          DISCARDABLE
+   CANONICA_TEXT      DISCARDABLE
+   MISC_TEXT          DISCARDABLE
+   MVOL_TEXT          DISCARDABLE
+   BACKUP_TEXT        DISCARDABLE
+   RESTORE_TEXT       DISCARDABLE
+   BURPWEP_TEXT       PRELOAD
+   XDR_TEXT           DISCARDABLE
+   NTOH_TEXT          DISCARDABLE
+   DLLSHELL_TEXT      PRELOAD
+
+EXPORTS
+    _BURP_gbak                  @2
+;    WEP                         @1	RESIDENTNAME   
+
+IMPORTS
+	_gds__start_transaction=gds32.gds__start_transaction
diff --git a/src/burp/burp.h b/src/burp/burp.h
new file mode 100644
index 0000000000..79008a2171
--- /dev/null
+++ b/src/burp/burp.h
@@ -0,0 +1,945 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		burp.h
+ *	DESCRIPTION:	Burp file format
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _BURP_BURP_H_
+#define _BURP_BURP_H_
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/dsc.h"
+#include "../burp/burp_proto.h"
+#include "../burp/misc_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/thd.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#define BURP_ALLOC(size)	 MISC_alloc_burp((ULONG) size)
+#define BURP_ALLOC_ZERO(size)    MISC_alloc_burp((ULONG) size)
+#define BURP_FREE(block)	 MISC_free_burp(block)
+
+#define	GDS_NAME_LEN		32
+typedef TEXT			GDS_NAME [GDS_NAME_LEN];
+
+#define NOOUTPUT        2   
+
+/* Record types in backup file */
+
+typedef enum rec_type {
+    rec_burp,			/* Restore program attributes */
+    rec_database,		/* Logical database parameters */
+    rec_global_field,		/* Global field description */
+    rec_relation,		/* Relation description */
+    rec_field,			/* Local field description */
+    rec_index,			/* Index description */
+    rec_data,			/* Data for relation */
+    rec_blob,			/* Blob */
+    rec_relation_data,		/* Standalone data header */
+    rec_relation_end,		/* End of data for relation */
+    rec_end,			/* End of file */
+    rec_view,			/* View attributes */
+    rec_security_class,		/* Security class acl */
+    rec_trigger,		/* Trigger definition */
+    rec_physical_db,		/* Physical database parameters */
+    rec_function,		/* Function description */
+    rec_function_arg,		/* Function arguement description */
+    rec_function_end,           /* End of function and its args */
+    rec_gen_id,                 /* From blr_gen_id */
+    rec_type,			/* Type of field */
+    rec_filter,			/* Filter */
+    rec_trigger_message,	/* Trigger message texts */
+    rec_user_privilege,		/* User privilege */
+    rec_array,		/* 23*/	/* Array blob */
+    rec_field_dimensions,	/* Array field dimensions */
+    rec_files,			/* files for shadowing */
+    rec_generator,		/* another format for gen-ids */
+    rec_procedure,		/* Stored procedure */
+    rec_procedure_prm,		/* Stored procedure parameters */
+    rec_procedure_end,          /* End of procedure and its args */
+    rec_exception,              /* Exception */
+    rec_rel_constraint,		/* Relation constraints          */
+    rec_ref_constraint,		/* Referential constraints       */
+    rec_chk_constraint,		/* Check constraints          */
+    rec_charset,		/* Character sets */
+    rec_collation,		/* Collations */
+    rec_sql_roles		/* SQL roles */
+} REC_TYPE;
+
+
+/* The order of battle for major records is:
+
+    [<rec_physical_database>] <rec_database> <global fields> <field dimensions> <relation> <function> 
+     <types> <filters> <relation data> <trigger-new> <trigger messages> <user privileges> <security> rec_end
+       
+where each relation is:
+
+    <rec_relation> <rel name> <att_end> <local fields> <view> <rec_relation_end>
+                                                  
+where local fields is:
+    <rec_field> <att_field_... att_field_dimensions, att_field_range_low, att_field_range_high...> <att_end>
+
+where each relation data is:
+
+    <rec_relation_data> <rel attributes> <gen id> <indices> <data> <trigger-old> <rec_relation_end>
+
+where data is:
+    <rec_data> <rec length> [<xdr_length>]  <data attr>  [ <blob>, <array>...]
+
+and <blob> is
+
+    <rec_blob> <blob_field_number> <max_sigment> <blob_type> <number_segments> <blob_data>
+
+and <array> is
+
+    <rec_array> <blob_field_number> <att_array_dimensions> <att_array_range_low> 
+	<att_array_range_high> <blob_data> [<att_xdr_array>]
+
+                                                              
+where each function is:
+
+    <rec_function> <function attributes> <att_end> [<function_arguments>] <rec_function_end> 
+
+and <function_arguments> is
+
+    <rec_function_arg> <function argument attributes> <att_end>
+
+where trigger-old is:
+    <rec_trigger> <trig_type> <trig_blr> <trig_source> <att_end>
+
+and trigger-new is:
+    <rec_trigger> <trig_type> <trig_blr> <trig_source> <trigger name> <relation name> <trig_seqence>
+                  <description> <system flag> <att_end>
+
+
+*/
+
+/* Attributes within major record */
+
+/* CAREFUL not to pull the lastest version into maint version without
+   modifying the att_backup_format to be one version back */
+
+/* ATT_BACKUP_FORMAT has been increased to 5. It allows us to distinguish
+   backup format between IB3.3/IB4.0 and IB4.5 in case of migration
+   problem */
+/* Version 6:		Supports SQL Time & Date columns.
+			RDB$FIELD_PRECISION
+			SQL Dialect from database header
+			SQL_INT64 columns and generator values
+ */
+#define ATT_BACKUP_FORMAT	6
+
+/* format version number for ranges for arrays */
+
+#define GDS_NDA_VERSION		1
+
+/* max array dimension */
+
+#define MAX_DIMENSION		16
+
+#define SERIES	1
+
+enum att_type {
+    att_end = 0,		/* end of major record */
+
+    /* Backup program attributes */
+
+    att_backup_date = SERIES,	/* date of backup */
+    att_backup_format,		/* backup format version */
+    att_backup_os,		/* backup operating system */
+    att_backup_compress,
+    att_backup_transportable,	/* XDR datatypes for user data */
+    att_backup_blksize,		/* backup block size */
+    att_backup_file,		/* database file name */
+    att_backup_volume,		/* backup volume number */
+
+    /* Database attributes  */
+
+    att_file_name = SERIES,	/* database file name (physical) */
+    att_file_size,		/* size of original database (physical) */
+    att_jrd_version,		/* jrd version (physical) */
+    att_creation_date,		/* database creation date (physical) */
+    att_page_size,		/* page size of original database (physical) */
+    att_database_description,	/* description from RDB$DATABASE (logical) */
+    att_database_security_class,	/* database level security (logical) */
+    att_sweep_interval,		/* sweep interval */
+    att_no_reserve,		/* don't reserve space for versions */
+    att_database_description2,
+    att_database_dfl_charset,	/* default character set from RDB$DATABASE */
+    att_forced_writes,		/* syncronous writes flag */
+    att_page_buffers,		/* page buffers for buffer cache */
+    att_SQL_dialect,		/* SQL dialect that it speaks */
+    att_db_read_only,		/* Is the database ReadOnly? */
+
+    /* Relation attributes */
+
+    att_relation_name = SERIES,
+    att_relation_view_blr,
+    att_relation_description,
+    att_relation_record_length,	/* Record length in file */
+    att_relation_view_relation,
+    att_relation_view_context,
+    att_relation_system_flag,
+    att_relation_security_class,
+    att_relation_view_source,
+    att_relation_dummy,         /* this space available */
+    att_relation_ext_description,
+    att_relation_owner_name,
+    att_relation_description2,
+    att_relation_view_source2,
+    att_relation_ext_description2,
+    att_relation_flags,  
+    att_relation_ext_file_name, /* name of file for external tables */
+
+    /* Field attributes (used for both global and local fields) */
+
+    att_field_name = SERIES,	/* name of field */
+    att_field_source,		/* Global field name for local field */
+
+    att_base_field,		/* Source field for view */
+    att_view_context,		/* Context variable for view definition */
+
+    att_field_query_name,	/* Query attributes */
+    att_field_query_header,
+    att_field_edit_string,
+
+    att_field_type,		/* Physical attributes */
+    att_field_sub_type,
+    att_field_length,		/* 10 */
+    att_field_scale,		
+    att_field_segment_length,
+    att_field_position,		/* Field position in relation (not in file) */
+    att_field_offset,		/* Offset in data record (local fields only) */
+
+    att_field_default_value,	/* Fluff */
+    att_field_description,	
+    att_field_missing_value,
+    att_field_computed_blr,
+    att_field_computed_source,
+    att_field_validation_blr,	/* 20 */
+    att_field_validation_source,
+    att_field_number,		/* Field number to match up blobs */
+    att_field_computed_flag,	/* Field is computed, not real */
+    att_field_system_flag,	/* Interesting system flag */
+    att_field_security_class,
+    
+    att_field_external_length,
+    att_field_external_type,
+    att_field_external_scale,
+    att_field_dimensions,       /* 29 */
+    att_field_ranges,           /* this space for rent */
+    att_field_complex_name,     /* relation field attribute */
+    att_field_range_low,        /* low range for array */
+    att_field_range_high,       /* high range for array */
+    att_field_update_flag,
+    att_field_description2,
+    att_field_validation_source2,
+    att_field_computed_source2,
+    att_field_null_flag,	/* If field can be null    */
+    att_field_default_source,	/* default source for field (new fmt only) */
+    att_field_missing_source,	/* missing source for field (new fmt only) */
+    att_field_character_length,	/* length of field in characters */
+    att_field_character_set,	/* Charset id of field */
+    att_field_collation_id,	/* Collation id of field */
+    att_field_precision,	/* numeric field precision of RDB$FIELDS */
+
+    /* Index attributes */
+
+    att_index_name = SERIES,
+    att_segment_count,
+    att_index_inactive,
+    att_index_unique_flag,
+    att_index_field_name,
+    att_index_description,
+    att_index_type,
+    att_index_foreign_key,
+    att_index_description2,
+    att_index_expression_source,
+    att_index_expression_blr,
+
+    /* Data record */
+
+    att_data_length = SERIES,
+    att_data_data,
+
+    /* Blob record */
+
+    att_blob_field_number = SERIES + 2,	/* Field number of blob field */
+    att_blob_type,			/* Segmented = 0, stream = 1 */
+    att_blob_number_segments,		/* Number of segments */
+    att_blob_max_segment,		/* Longest segment */
+    att_blob_data,
+
+    /* View attributes */
+
+    att_view_relation_name = SERIES + 7,
+    att_view_context_id,
+    att_view_context_name,
+
+    /* Security class attributes */
+
+    att_class_security_class = SERIES + 10,
+    att_class_acl,
+    att_class_description,           
+
+
+    /* Array attributes */
+
+    att_array_dimensions = SERIES + 13,
+    att_array_range_low,
+    att_array_range_high,
+
+    /* XDR encoded data attributes */
+
+    att_xdr_length = SERIES + 16,
+    att_xdr_array, 
+    att_class_description2,
+
+    /* Trigger attributes */
+
+    att_trig_type = SERIES,
+    att_trig_blr,
+    att_trig_source,
+    att_trig_name,
+    att_trig_relation_name,
+    att_trig_sequence,
+    att_trig_description,
+    att_trig_system_flag,     
+    att_trig_inactive,
+    att_trig_source2,
+    att_trig_description2,
+    att_trig_flags,     
+
+    /* Function attributes */
+
+    att_function_name = SERIES,
+    att_function_description,
+    att_function_class,
+    att_function_module_name,
+    att_function_entrypoint,
+    att_function_return_arg,
+    att_function_query_name,
+    att_function_type,
+    att_function_description2,
+
+    /* Function argument attributes */
+
+    att_functionarg_name = SERIES,
+    att_functionarg_position,
+    att_functionarg_mechanism,
+    att_functionarg_field_type,
+    att_functionarg_field_scale,
+    att_functionarg_field_length,
+    att_functionarg_field_sub_type,
+    att_functionarg_character_set,
+    att_functionarg_field_precision,
+ 
+    /* TYPE relation attributes */
+    att_type_name = SERIES,
+    att_type_type,
+    att_type_field_name,
+    att_type_description,
+    att_type_system_flag,
+    /* Also see att_type_description2 below! */
+
+    /* Filter attributes */
+    att_filter_name,
+    att_filter_description,
+    att_filter_module_name,
+    att_filter_entrypoint,
+    att_filter_input_sub_type,
+    att_filter_output_sub_type,
+    att_filter_description2,
+    att_type_description2,
+
+    /* Trigger message attributes */
+    att_trigmsg_name = SERIES,
+    att_trigmsg_number,
+    att_trigmsg_text,
+
+    /* User privilege attributes */
+    att_priv_user = SERIES,
+    att_priv_grantor,
+    att_priv_privilege,
+    att_priv_grant_option,
+    att_priv_object_name,
+    att_priv_field_name,
+    att_priv_user_type,
+    att_priv_obj_type,
+
+    /* files for shadowing purposes */
+    att_file_filename = SERIES,
+    att_file_sequence,
+    att_file_start,
+    att_file_length,
+    att_file_flags,
+    att_shadow_number,
+
+    /* Attributes for gen_id */
+    att_gen_generator = SERIES,
+    att_gen_value,
+    att_gen_value_int64,
+
+    /* Stored procedure attributes */
+
+    att_procedure_name = SERIES,
+    att_procedure_inputs,
+    att_procedure_outputs,
+    att_procedure_description,
+    att_procedure_description2,
+    att_procedure_source,
+    att_procedure_source2,
+    att_procedure_blr,
+    att_procedure_security_class,
+    att_procedure_owner_name,
+
+    /* Stored procedure parameter attributes */
+
+    att_procedureprm_name = SERIES,
+    att_procedureprm_number,
+    att_procedureprm_type,
+    att_procedureprm_field_source,
+    att_procedureprm_description,
+    att_procedureprm_description2,
+
+    /* Exception attributes */
+
+    att_exception_name = SERIES,
+    att_exception_msg,
+    att_exception_description,
+    att_exception_description2,
+
+    /* Relation constraints attributes */
+
+    att_rel_constraint_name = SERIES,
+    att_rel_constraint_type,
+    att_rel_constraint_rel_name,
+    att_rel_constraint_defer,
+    att_rel_constraint_init,
+    att_rel_constraint_index,
+
+   /* Referential constraints attributes */
+   
+   att_ref_constraint_name = SERIES,
+   att_ref_unique_const_name,
+   att_ref_match_option,
+   att_ref_update_rule,
+   att_ref_delete_rule,
+
+   /* SQL roles attributes */
+   att_role_name = SERIES,
+   att_role_owner_name,
+
+   /* Check constraints attributes */
+   att_chk_constraint_name = SERIES,
+   att_chk_trigger_name,
+
+   /* Character Set attributes */
+   att_charset_name = SERIES,
+   att_charset_form,
+   att_charset_numchar,
+   att_charset_coll,
+   att_charset_id,
+   att_charset_sysflag,
+   att_charset_description,
+   att_charset_funct,
+   att_charset_bytes_char,
+   
+   att_coll_name = SERIES,
+   att_coll_id,
+   att_coll_cs_id,
+   att_coll_attr,
+   att_coll_subtype,		/* Unused: 93-11-12 Daves */
+   att_coll_sysflag,
+   att_coll_description,
+   att_coll_funct
+};
+
+
+#define ATT_TYPE	enum att_type
+
+// TMN: Why was this even added in the first place???
+//typedef SCHAR		att_type;
+
+
+/* Trigger types */
+
+enum trig_t {
+    trig_pre_store = 1,   /* default */
+    trig_pre_modify,      /* default */
+    trig_post_erase       /* default */
+};                  
+                 
+/* these types to go away when recognized by gpre as
+   <relation>.<field>.<type>  some time in the future  */
+
+#define TRIG_TYPE_PRE_STORE  1
+#define TRIG_TYPE_PRE_MODIFY 3
+#define TRIG_TYPE_POST_ERASE 6
+
+/* default trigger name templates */
+
+#define TRIGGER_SEQUENCE_DEFAULT	0
+
+/* common structure definitions */
+
+/* field block, used to hold local field definitions */
+
+typedef struct fld {
+    struct fld	*fld_next;
+    SSHORT	fld_type;
+    SSHORT	fld_sub_type;
+    FLD_LENGTH	fld_length;
+    SSHORT	fld_scale;
+    SSHORT	fld_position;
+    SSHORT	fld_parameter;
+    SSHORT	fld_missing_parameter;
+    SSHORT	fld_id;
+    RCRD_OFFSET	fld_offset;
+    RCRD_OFFSET	fld_old_offset;
+    SSHORT	fld_number;
+    SSHORT	fld_system_flag;
+    SSHORT	fld_name_length;
+    TEXT	fld_name [32];
+    TEXT	fld_source [32];
+    TEXT	fld_base [32];
+    TEXT	fld_query_name [32];
+    TEXT	fld_security_class [32];
+    SSHORT	fld_edit_length;
+    SSHORT	fld_view_context;
+    SSHORT	fld_update_flag;
+    SSHORT	fld_flags;
+    TEXT	fld_edit_string [256];
+    GDS__QUAD	fld_description;
+    GDS__QUAD   fld_query_header;
+    TEXT	fld_complex_name [32];
+    SSHORT	fld_dimensions;
+    SLONG	fld_ranges [2 * MAX_DIMENSION];
+    SSHORT	fld_null_flag;
+    GDS__QUAD	fld_default_value;
+    GDS__QUAD	fld_default_source;
+    SSHORT	fld_character_length;
+    SSHORT	fld_character_set_id;
+    SSHORT	fld_collation_id;
+} *FLD;
+
+#define FLD_computed		1
+#define FLD_position_missing	2
+#define FLD_array		4
+#define FLD_update_missing	8
+#define FLD_null_flag		16
+#define FLD_charset_flag	32	/* column has global charset */
+#define FLD_collate_flag	64	/* local column has specific collation */
+
+/* relation definition - holds useful relation type stuff */
+
+typedef struct rel {
+    struct rel		*rel_next;
+    struct fld		*rel_fields;
+    SSHORT		rel_flags;
+    SSHORT		rel_id;
+    SSHORT		rel_name_length;
+    GDS_NAME		rel_name;
+    GDS_NAME		rel_owner;		/* relation owner, if not us */
+    GDS__QUAD		rel_store_blr;		/* trigger blr blob id */
+    GDS__QUAD		rel_store_source;	/* trigger source blob id */
+    GDS__QUAD		rel_modify_blr;		/* trigger blr blob id */
+    GDS__QUAD		rel_modify_source;	/* trigger source blob id */
+    GDS__QUAD		rel_erase_blr;		/* trigger blr blob id */
+    GDS__QUAD		rel_erase_source;	/* trigger source blob id */
+} *REL;
+
+#define REL_view	1
+#define REL_external	2
+
+/* procedure definition - holds useful procedure type stuff */
+
+typedef struct prc {
+    struct prc	*prc_next;
+    SSHORT	prc_name_length;
+    GDS_NAME	prc_name;
+    GDS_NAME	prc_owner;		/* relation owner, if not us */
+} *PRC;
+
+
+typedef struct gfld {
+    TEXT	gfld_name [32];
+    ISC_QUAD	gfld_vb;
+    ISC_QUAD	gfld_vs;
+    ISC_QUAD	gfld_vs2;
+    struct gfld	*gfld_next;
+    USHORT	gfld_flags;
+} *GFLD;
+
+#define GFLD_validation_blr	1
+#define GFLD_validation_source	2
+#define GFLD_validation_source2	4
+
+#define MAX_FILE_NAME_LENGTH	256
+
+/* Note that this typedef is also defined in JRD.H and REMOTE.H */
+/* but for some reason we are avoiding including JRD.H          */
+/* and this typedef is needed to include SVC.H                  */
+#if !(defined REMOTE_REMOTE_H || defined JRD_JRD_H)
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+#endif
+
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#include "../jrd/svc.h"
+#include "../jrd/svc_proto.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* typedef the file descriptor type to make things cleaner */
+
+#ifdef WIN_NT
+typedef void *DESC;
+#define CLOSE	CloseHandle 
+#define UNLINK  DeleteFile
+#define FLUSH(x) FlushFileBuffers(x)
+#else
+typedef int DESC;
+#define CLOSE	close
+#define UNLINK  unlink
+#define FLUSH(x) /* nothing */
+#define INVALID_HANDLE_VALUE    -1
+#endif /* WIN_NT */
+
+/* File block -- for multi-file databases */
+
+typedef enum {
+    size_n = 0,		/* none */
+    size_k,		/* k = 1024 */
+    size_m,		/* m = k x 1024 */
+    size_g,		/* g = m x 1024 */
+    size_e		/* error */
+} SIZE_CODE;
+
+typedef struct fil {
+    struct fil	*fil_next;
+    TEXT	*fil_name;
+    ULONG	fil_length;
+    DESC	fil_fd;
+    USHORT	fil_seq;
+    SIZE_CODE	fil_size_code;
+} *FIL;
+
+#define FIL_LEN		sizeof (struct fil)
+
+/* Split & Join stuff */
+
+typedef enum act_t {
+    ACT_unknown,        /* action is unknown */
+    ACT_backup,
+    ACT_backup_split,
+    ACT_restore,
+    ACT_restore_join
+} ACT_T;
+
+typedef struct act {
+        USHORT  act_total;
+        FIL     act_file;
+        ACT_T   act_action;
+} *ACT;
+
+#define ACT_LEN         sizeof (struct act)
+
+#define MAX_LENGTH	-1
+
+/* This structure has been cloned from spit.c */
+
+typedef struct hdr_split {
+        TEXT    hdr_split_tag[18];
+        TEXT    hdr_split_timestamp[30];
+        TEXT    hdr_split_text1[11];
+        TEXT    hdr_split_sequence[4];  /* File sequence number */
+        TEXT    hdr_split_text2[4];
+        TEXT    hdr_split_total[4];     /* Total number of files */
+        TEXT    hdr_split_text3[2];
+        TEXT    hdr_split_name[27];     /* File name */
+}       *HDR_SPLIT;
+
+/* NOTE: size of the hdr_split_tag and HDR_SPLIT_TAG must be the same and equal
+   to 18. Otherwise we will not be able to join the gbk files v5.x */
+
+#define HDR_SPLIT_SIZE          sizeof (struct hdr_split)
+#define HDR_SPLIT_TAG5          "InterBase/gsplit, "
+#define HDR_SPLIT_TAG6          "InterBase/gbak,   "
+#define HDR_SPLIT_TAG           HDR_SPLIT_TAG6
+#define MIN_SPLIT_SIZE          2048    /* bytes */
+
+/* Global switches and data */
+
+typedef struct tgbl {
+    struct thdd tgbl_thd_data;
+    TEXT	*gbl_database_file_name;
+    TEXT	gbl_backup_start_time [30];
+    USHORT	gbl_sw_verbose;
+    USHORT	gbl_sw_ignore_limbo;
+    USHORT	gbl_sw_meta;
+    USHORT	gbl_sw_novalidity; 
+    USHORT	gbl_sw_page_size;
+    USHORT	gbl_sw_compress;
+    USHORT	gbl_sw_version;
+    USHORT	gbl_sw_transportable;
+    USHORT	gbl_sw_incremental;
+    USHORT	gbl_sw_deactivate_indexes;
+    USHORT	gbl_sw_kill;
+    USHORT	gbl_sw_blk_factor;
+    USHORT	gbl_sw_no_reserve;
+    USHORT	gbl_sw_old_descriptions;
+    USHORT	gbl_sw_service_gbak;
+    USHORT	gbl_sw_service_thd;
+    USHORT	gbl_sw_bug8183;
+    USHORT	gbl_sw_convert_ext_tables;
+    BOOLEAN	gbl_sw_mode;
+    BOOLEAN	gbl_sw_mode_val;
+    SCHAR	*gbl_sw_sql_role;
+    SCHAR	*gbl_sw_user;
+    SCHAR	*gbl_sw_password;
+    SLONG	gbl_sw_skip_count;
+    SLONG	gbl_sw_page_buffers;
+    FIL		gbl_sw_files;
+    FIL		gbl_sw_backup_files;
+    GFLD	gbl_global_fields;
+    ACT		action;
+    ULONG	io_buffer_size;
+    USHORT	sw_redirect;
+    UCHAR	dpb_string [100];
+    SSHORT	dpb_length;
+    UCHAR	*burp_env;
+    UCHAR	*io_ptr;
+    int	   	io_cnt;
+    REL	   	relations;
+    PRC	   	procedures;
+    SLONG   	BCK_capabilities;
+    USHORT	RESTORE_format;
+    ULONG	mvol_io_buffer_size;
+    ULONG	mvol_actual_buffer_size;
+    ULONG   	mvol_cumul_count_kb;
+    UCHAR	*mvol_io_ptr;
+    int	   	mvol_io_cnt;
+    UCHAR   	*mvol_io_buffer;
+    UCHAR	*mvol_io_volume;
+    UCHAR   	*mvol_io_header;
+    UCHAR   	*mvol_io_data;
+    TEXT	mvol_db_name_buffer [MAX_FILE_NAME_LENGTH];
+    SCHAR	mvol_old_file [MAX_FILE_NAME_LENGTH];
+    int	   	mvol_volume_count;
+    USHORT	mvol_empty_file;
+    isc_db_handle db_handle;
+    isc_tr_handle tr_handle;
+    isc_tr_handle global_trans;
+    DESC    	file_desc;
+    long	*status;		/* points to either the tdgbl status or service status */
+    long    	status_vector [ISC_STATUS_LENGTH];
+    int     	exit_code;
+    UCHAR   	*head_of_mem_list;
+    OUTPUTPROC  output_proc;
+    SLONG       output_data;
+    IB_FILE        *output_file;
+    SVC		service_blk;
+    /*
+     * Link list of global fields that were converted from V3 sub_type
+     * to V4 char_set_id/collate_id. Needed for local fields conversion.
+     */
+    FLD		v3_cvt_fld_list;
+
+    isc_req_handle	handles_get_character_sets_req_handle1;
+    isc_req_handle	handles_get_chk_constraint_req_handle1;
+    isc_req_handle	handles_get_collation_req_handle1;
+    isc_req_handle	handles_get_exception_req_handle1;
+    isc_req_handle	handles_get_field_dimensions_req_handle1;
+    isc_req_handle	handles_get_field_req_handle1;
+    isc_req_handle	handles_get_fields_req_handle1;
+    isc_req_handle	handles_get_fields_req_handle2;
+    isc_req_handle	handles_get_fields_req_handle3;
+    isc_req_handle	handles_get_fields_req_handle4;
+    isc_req_handle	handles_get_fields_req_handle5;
+    isc_req_handle	handles_get_fields_req_handle6;
+    isc_req_handle	handles_get_files_req_handle1;
+    isc_req_handle	handles_get_filter_req_handle1;
+    isc_req_handle	handles_get_function_arg_req_handle1;
+    isc_req_handle	handles_get_function_req_handle1;
+    isc_req_handle	handles_get_global_field_req_handle1;
+    isc_req_handle	handles_get_index_req_handle1;
+    isc_req_handle	handles_get_index_req_handle2;
+    isc_req_handle	handles_get_index_req_handle3;
+    isc_req_handle	handles_get_index_req_handle4;
+    isc_req_handle	handles_get_procedure_prm_req_handle1;
+    isc_req_handle	handles_get_procedure_req_handle1;
+    isc_req_handle	handles_get_ranges_req_handle1;
+    isc_req_handle	handles_get_ref_constraint_req_handle1;
+    isc_req_handle	handles_get_rel_constraint_req_handle1;
+    isc_req_handle	handles_get_relation_req_handle1;
+    isc_req_handle	handles_get_security_class_req_handle1;
+    isc_req_handle	handles_get_sql_roles_req_handle1;
+    isc_req_handle	handles_get_trigger_message_req_handle1;
+    isc_req_handle	handles_get_trigger_message_req_handle2;
+    isc_req_handle	handles_get_trigger_old_req_handle1;
+    isc_req_handle	handles_get_trigger_req_handle1;
+    isc_req_handle	handles_get_type_req_handle1;
+    isc_req_handle	handles_get_user_privilege_req_handle1;
+    isc_req_handle	handles_get_view_req_handle1;
+    isc_req_handle	handles_put_index_req_handle1;
+    isc_req_handle	handles_put_index_req_handle2;
+    isc_req_handle	handles_put_index_req_handle3;
+    isc_req_handle	handles_put_index_req_handle4;
+    isc_req_handle	handles_put_index_req_handle5;
+    isc_req_handle	handles_put_index_req_handle6;
+    isc_req_handle	handles_put_index_req_handle7;
+    isc_req_handle	handles_put_relation_req_handle1;
+    isc_req_handle	handles_put_relation_req_handle2;
+    isc_req_handle	handles_store_blr_gen_id_req_handle1;
+    isc_req_handle	handles_write_function_args_req_handle1;
+    isc_req_handle	handles_write_function_args_req_handle2;
+    isc_req_handle	handles_write_procedure_prms_req_handle1;
+    USHORT	hdr_forced_writes;
+    TEXT	database_security_class[32]; /* To save database security class for deferred update */
+} *TGBL;
+
+#ifdef GET_THREAD_DATA
+#undef GET_THREAD_DATA
+#endif
+
+#ifdef SUPERSERVER
+#define GET_THREAD_DATA	        ((TGBL) THD_get_specific())
+#define SET_THREAD_DATA         THD_put_specific ((THDD) tdgbl); \
+				tdgbl->tgbl_thd_data.thdd_type = THDD_TYPE_TGBL
+#define RESTORE_THREAD_DATA     THD_restore_specific();
+#else
+extern struct tgbl *gdgbl;
+
+#define GET_THREAD_DATA	        (gdgbl)
+
+#ifdef __cplusplus
+
+#define SET_THREAD_DATA         gdgbl = const_cast<tgbl*>(tdgbl); \
+				tdgbl->tgbl_thd_data.thdd_type = THDD_TYPE_TGBL
+#else	/* __cplusplus */
+
+#define SET_THREAD_DATA         gdgbl = (struct tgbl *)tdgbl; \
+				tdgbl->tgbl_thd_data.thdd_type = (volatile)THDD_TYPE_TGBL
+
+#endif	/* __cplusplus */
+
+#define RESTORE_THREAD_DATA     
+
+#endif
+
+#if defined(__cplusplus)
+#define EXIT(code)	            {  tdgbl->exit_code = ((volatile int)code);          \
+												if (tdgbl->burp_env != NULL)        \
+											  		LONGJMP(reinterpret_cast<jmp_buf&>(const_cast<UCHAR*>(tdgbl->burp_env)), 1);  }
+#else
+#define EXIT(code)	            {  tdgbl->exit_code = ((volatile int)code);          \
+												if (tdgbl->burp_env != NULL)        \
+											  		LONGJMP(tdgbl->burp_env, 1);  }
+#endif	/* __cplusplus */
+
+#define FINI_DB_NOT_ONLINE	2	/* database is not on-line due to
+                                           failure to activate one or more
+                                           indices */
+
+/* I/O definitions */
+
+#ifndef IO_BUFFER_SIZE
+#ifdef BUFSIZ
+#define IO_BUFFER_SIZE		BUFSIZ
+#else
+#define IO_BUFFER_SIZE		1024
+#endif
+#endif
+
+#define GBAK_IO_BUFFER_SIZE	(16 * (IO_BUFFER_SIZE))
+
+/* Burp will always write a backup in multiples of the following number
+ * of bytes.  The initial value is the smallest which ensures that writes
+ * to fixed-block SCSI tapes such as QIC-150 will work.  The value should
+ * always be a multiple of 512 for that reason.
+ * If you change to a value which is NOT a power of 2, then change the
+ * BURP_UP_TO_BLOCK macro to use division and multiplication instead of
+ * bit masking.
+ */
+
+#define BURP_BLOCK		512
+#define BURP_UP_TO_BLOCK(n)	(((n) + BURP_BLOCK - 1) & ~(BURP_BLOCK - 1))
+
+/* Move the read and write mode declarations in here from burp.c
+   so that other files can see them for multivolume opens */
+
+#ifdef NETWARE_386
+#define MODE_WRITE	O_RDWR | O_CREAT | O_TRUNC
+#endif
+
+#ifdef PC_PLATFORM
+#ifndef NETWARE_386
+#define MODE_READ	O_RDONLY | O_BINARY
+#define MODE_WRITE	O_WRONLY | O_BINARY | O_CREAT
+#endif
+#endif
+
+#ifdef WIN_NT
+#define MODE_READ	GENERIC_READ
+#define MODE_WRITE	GENERIC_WRITE
+#endif
+
+#ifdef VMS
+#define MODE_WRITE	O_WRONLY | O_CREAT | O_TRUNC
+#endif
+
+#ifndef MODE_READ
+#define MODE_READ	O_RDONLY
+#endif
+
+#ifndef MODE_WRITE
+#define MODE_WRITE	O_WRONLY | O_CREAT
+#endif
+
+/* Burp Messages */
+
+#define msgVerbose_write_charsets	211
+#define msgVerbose_write_collations	212
+#define msgErr_restore_charset		213
+#define msgVerbose_restore_charset	214
+#define msgErr_restore_collation	215
+#define msgVerbose_restore_collation	216
+
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#define GDS_VERSION "Firebird-W32-V1.0"
+
+#endif /* _BURP_BURP_H_ */
diff --git a/src/burp/burp32.def b/src/burp/burp32.def
new file mode 100644
index 0000000000..9c96767511
--- /dev/null
+++ b/src/burp/burp32.def
@@ -0,0 +1,45 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+; 
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+; 
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+; 
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;------------------------------------------------------------
+;  GBAK DLL MODULE DEFINITION FILE
+;------------------------------------------------------------
+
+LIBRARY     GBAK32.DLL
+
+DESCRIPTION 'INTERBASE BACKUP/RESTORE DLL'
+CODE MOVEABLE 
+DATA MOVEABLE
+SEGMENTS
+
+   _TEXT              DISCARDABLE
+   BURP_TEXT          DISCARDABLE
+   CANONICA_TEXT      DISCARDABLE
+   MISC_TEXT          DISCARDABLE
+   MVOL_TEXT          DISCARDABLE
+   BACKUP_TEXT        DISCARDABLE
+   RESTORE_TEXT       DISCARDABLE
+   BURPWEP_TEXT       PRELOAD
+   XDR_TEXT           DISCARDABLE
+   NTOH_TEXT          DISCARDABLE
+   DLLSHELL_TEXT      PRELOAD
+
+EXPORTS
+    _BURP_gbak                  @2
+;    WEP                         @1	RESIDENTNAME   
+
+IMPORTS
+	_gds__start_transaction=gds32.gds__start_transaction
diff --git a/src/burp/burp_proto.h b/src/burp/burp_proto.h
new file mode 100644
index 0000000000..b916bc2ad1
--- /dev/null
+++ b/src/burp/burp_proto.h
@@ -0,0 +1,52 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore program  
+ *	MODULE:		burp_proto.h
+ *	DESCRIPTION:	Prototype header file for burp.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _BURP_BURP_PROTO_H_
+#define _BURP_BURP_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+typedef int (DLL_EXPORT* OUTPUTPROC) (SLONG, UCHAR *);
+
+extern int  BURP_gbak (int, char **, OUTPUTPROC, SLONG);
+extern void	BURP_abort (void);
+extern void	BURP_svc_error (USHORT, USHORT, void *, USHORT, void *, USHORT, void *, USHORT, void *, USHORT, void *);
+extern void	BURP_error (USHORT, void*, void*, void*, void*, void*);
+extern void	BURP_print_status (STATUS *);
+extern void	BURP_error_redirect (STATUS *, USHORT, void*, void*);
+extern void	BURP_msg_partial (USHORT, void*, void*, void*, void*, void*);
+extern void	BURP_msg_put (USHORT, void*, void*, void*, void*, void*);
+extern void	BURP_msg_get (USHORT, void*, void*, void*, void*, void*, void*);
+extern void	BURP_output_version (TEXT *, TEXT *);
+extern void	BURP_print (USHORT, void*, void*, void*, void*, void*);
+extern void	BURP_print_warning (STATUS*);
+extern void	BURP_verbose (USHORT, void*, void*, void*, void*, void*);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif	/*  _BURP_BURP_PROTO_H_  */
+
diff --git a/src/burp/burpswi.h b/src/burp/burpswi.h
new file mode 100644
index 0000000000..cf02cfa1e9
--- /dev/null
+++ b/src/burp/burpswi.h
@@ -0,0 +1,185 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		burpswi.h
+ *	DESCRIPTION:	Burp switches
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _BURP_BURPSWI_H_
+#define _BURP_BURPSWI_H_
+
+#include "../jrd/common.h"
+#include "../jrd/ibase.h"
+
+/* Local copies of global variables.  They wil be copied into
+   a data structure. */
+
+/* Local variables */
+
+#define IN_SW_BURP_0         0       /* the unknowable switch */
+#define IN_SW_BURP_B         1       /* backup */
+#define IN_SW_BURP_C         2       /* create_database */
+#define IN_SW_BURP_F         3       /* file names and starting page */
+#define IN_SW_BURP_M         4       /* backup only metadata */
+#define IN_SW_BURP_N         5       /* do not restore validity conditions */
+#define IN_SW_BURP_P         6       /* specify output page size */
+#define IN_SW_BURP_R         7       /* replace existing database */
+#define IN_SW_BURP_U         9       /* don't back up security information */
+#define IN_SW_BURP_V         10      /* verify actions */
+#define IN_SW_BURP_Z         11      /* print version number */
+#define IN_SW_BURP_D         12      /* backup file on tape - APOLLO only */
+#define IN_SW_BURP_E         13      /* expand (no compress) */
+#define IN_SW_BURP_Y         14      /* redirect/suppress status and error output */
+#define IN_SW_BURP_L         15      /* ignore limbo transactions */
+#define IN_SW_BURP_T         16      /* build a 'transportable' backup (V4 default) */
+#define IN_SW_BURP_O         17      /* commit after each relation */
+#define IN_SW_BURP_I         18      /* deactivate indexes */
+#define IN_SW_BURP_K         19      /* kill any shadows defined on database*/
+#define IN_SW_BURP_G         20      /* inhibit garbage collection */
+#define IN_SW_BURP_IG        21      /* database is largely trash try anyway */
+#define IN_SW_BURP_FA        22      /* blocking factor */
+#define IN_SW_BURP_US        23      /* use all space on data page */
+#define IN_SW_BURP_OL        24      /* write RDB$DESCRIPTIONS & SOURCE in old manner */
+#define IN_SW_BURP_7         25      /* force creation of an ODS 7 database */
+#define IN_SW_BURP_USER      26      /* default user name to use on attach */
+#define IN_SW_BURP_PASS      27      /* default password to use on attach */
+#define IN_SW_BURP_S         28      /* skip some number of bytes if find a bad attribute */
+#define IN_SW_BURP_NT        29      /* build a "non-transportable" backup (V3 default) */
+#define IN_SW_BURP_BUG8183   30      /* use workaround to allow restore database
+                                   v3.3 with comment field inside of index
+                                   definition */
+#define IN_SW_BURP_ROLE      31      /* default SQL role to use on attach */
+#define IN_SW_BURP_CO        32      /* convert external tables to internal tables during backup */
+#define IN_SW_BURP_BU        33      /* specify page buffers for cache */
+#define IN_SW_BURP_SE        34      /* use services manager */
+#define IN_SW_BURP_MODE      35      /* database could be restored ReadOnly */
+/**************************************************************************/
+/* The next two 'virtual' switches are hidden from user and are needed    */
+/* for services API                                                       */
+/**************************************************************************/
+#define IN_SW_BURP_HIDDEN_RDONLY	36
+#define	IN_SW_BURP_HIDDEN_RDWRITE	37
+/**************************************************************************/
+    /* used 0BCDEFGILMNOPRSTUVYZ    available AHJQWX */
+
+#define BURP_SW_MODE_RO	"read_only"
+#define BURP_SW_MODE_RW	"read_write"
+
+
+static struct in_sw_tab_t burp_in_sw_table [] =
+{
+    IN_SW_BURP_B,    0,                 	"BACKUP_DATABASE",  0, 0, 0, FALSE, 60,	0, NULL,
+                /* msg 60: %sBACKUP_DATABASE backup database to file */
+    IN_SW_BURP_BU,   isc_spb_res_buffers,       "BUFFERS",          0, 0, 0, FALSE, 257, 0, NULL,
+                /* msg 257: %sBU(FFERS) override default page buffers */
+    IN_SW_BURP_C,    isc_spb_res_create,        "CREATE_DATABASE",   0, 0, 0, FALSE, 73, 0, NULL,
+                /* msg 73: %sCREATE_DATABASE create database from backup file */
+    IN_SW_BURP_CO,   isc_spb_bkp_convert,       "CONVERT",          0, 0, 0, FALSE, 254, 0, NULL,
+                /* msg 254: %sCO(NVERT)  backup external files as tables */
+    IN_SW_BURP_E,    isc_spb_bkp_expand,        "EXPAND",           0, 0, 0, FALSE, 97,	0, NULL,
+                /* msg 97: %sEXPAND no data compression */
+    IN_SW_BURP_F,    0,				"FILE_NAMES",	    0, 0, 0, FALSE, 0, 0, NULL,
+    IN_SW_BURP_FA,   isc_spb_bkp_factor,	"FACTOR",	    0, 0, 0, FALSE, 181, 0, NULL,
+                /* msg 181; %sFACTOR  blocking factor */
+    IN_SW_BURP_G,    isc_spb_bkp_no_garbage_collect, "GARBAGE_COLLECT",  0, 0, 0, FALSE, 177, 0, NULL,
+                /* msg 177:%sGARBAGE_COLLECT inhibit garbage collection */
+    IN_SW_BURP_I,    isc_spb_res_deactivate_idx, "INACTIVE",	    0, 0, 0, FALSE, 78, 0, NULL,
+                /* msg 78:%sINACTIVE deactivate indexes during restore */
+    IN_SW_BURP_IG,   isc_spb_bkp_ignore_checksums,   "IGNORE",	    0, 0, 0, FALSE, 178, 0, NULL,
+                /* msg 178:%sIGNORE ignore bad checksums */
+    IN_SW_BURP_K,    isc_spb_res_no_shadow,	"KILL",		    0, 0, 0, FALSE, 172, 0, NULL,
+                /* msg 172:%sKILL restore without creating shadows */
+    IN_SW_BURP_L,    isc_spb_bkp_ignore_limbo,	"LIMBO",	    0, 0, 0, FALSE, 98, 0, NULL,
+                /* msg 98 ignore transactions in limbo */
+    IN_SW_BURP_M,    isc_spb_bkp_metadata_only,	"METADATA",	    0, 0, 0, FALSE, 0, 0, NULL,
+    IN_SW_BURP_M,    0,				"META_DATA",	    0, 0, 0, FALSE, 63, 0, NULL,
+                /* msg 63: %sMETA_DATA backup metadata only */
+#ifdef READONLY_DATABASE
+    IN_SW_BURP_MODE, 0,				"MODE",		    0, 0, 0, FALSE, 278, 0, NULL,
+                /* msg 278: %sMODE read_only or read_write access */
+#endif  /* READONLY_DATABASE */
+    IN_SW_BURP_N,    isc_spb_res_no_validity,	"NO_VALIDITY",	    0, 0, 0, FALSE, 187, 0, NULL,
+                /* msg 187: %sN(O_VALIDITY) do not restore database validity conditions */
+    IN_SW_BURP_NT,   isc_spb_bkp_non_transportable,      "NT",	    0, 0, 0, FALSE, 239, 0, NULL,
+                /* msg 239: %sNT Non-Transportable backup file format */
+    IN_SW_BURP_O,    isc_spb_res_one_at_a_time,	"ONE_AT_A_TIME",    0, 0, 0, FALSE, 99, 0, NULL,
+                /* msg 99: %sONE_AT_A_TIME restore one relation at a time */
+    IN_SW_BURP_OL,   isc_spb_bkp_old_descriptions,   "OLD_DESCRIPTIONS", 0, 0, 0, FALSE, 186, 0, NULL,
+                /* msg 186: %sOLD_DESCRIPTIONS save old style metadata descriptions */
+    IN_SW_BURP_P,    isc_spb_res_page_size,	"PAGE_SIZE",	    0, 0, 0, FALSE, 101, 0, NULL,
+                /* msg 101: %sPAGE_SIZE override default page size */
+    IN_SW_BURP_PASS, 0,				"PASSWORD",	    0, 0, 0, FALSE, 190, 0, NULL,
+                /* msg 190: %sPA(SSWORD) InterBase password */
+    IN_SW_BURP_R,    isc_spb_res_replace,	"REPLACE_DATABASE", 0, 0, 0, FALSE, 112, 0, NULL,
+                /* msg 112: %sREPLACE_DATABASE replace database from backup file */
+/**************************************************************
+** msg 252: %sRO(LE) InterBase SQL role
+***************************************************************/
+    IN_SW_BURP_ROLE, isc_spb_sql_role_name,	"ROLE",		    0, 0, 0, FALSE, 252, 0, NULL,
+    IN_SW_BURP_S,    0,				"SKIP_BAD_DATA",    0, 0, 0, FALSE, 0, 0, NULL,
+    IN_SW_BURP_SE,   0,				"SERVICE",	    0, 0, 0, FALSE, 277, 0, NULL,
+		/* msg 277: %sSE(RVICE) use services manager */
+    IN_SW_BURP_T,    0,				"TRANSPORTABLE",    0, 0, 0, FALSE, 175, 0, NULL,
+                /* msg 175: %sTRANSPORTABLE transportable backup -- data in XDR format */
+/*
+    IN_SW_BURP_U,    0,				"UNPROTECTED",	    0, 0, 0, FALSE, 0, 0, NULL,
+*/
+    IN_SW_BURP_US,   isc_spb_res_use_all_space,	"USE_ALL_SPACE",    0, 0, 0, FALSE, 276, 0, NULL,
+                /* msg 276: %sUSE_(ALL_SPACE) do not reserve space for record versions */
+    IN_SW_BURP_USER, 0,				"USER",		    0, 0, 0, FALSE, 191, 0, NULL,
+                /* msg 191: %sUSER InterBase user name */
+    IN_SW_BURP_V,    isc_spb_verbose,		"VERBOSE",	    0, 0, 0, FALSE, 0, 0, NULL,
+    IN_SW_BURP_V,    0,				"VERIFY",	    0, 0, 0, FALSE, 113, 0, NULL,
+                /* msg 113: %sVERIFY report each action taken */
+    IN_SW_BURP_Y,    0,				"Y",		    0, 0, 0, FALSE, 109, 0, NULL,
+                /* msg 109: %sY redirect/suppress output (file path or OUTPUT_SUPPRESS) */
+    IN_SW_BURP_Z,    0,				"Z",		    0, 0, 0, FALSE, 104, 0, NULL,
+                /* msg 104: %sZ print version number */
+#ifdef DEV_BUILD
+    IN_SW_BURP_7,    0,				"7",		    0, 0, 0, FALSE, 0, 0, NULL,
+#endif
+/* next switch is a hidden option in case of bug_no 8183 */
+    IN_SW_BURP_BUG8183,  0,	"BUG_8183",	0, 0, 0, FALSE, 0, 0, NULL,
+#ifdef READONLY_DATABASE
+/**************************************************************************/
+/* The next two 'virtual' switches are hidden from user and are needed    */
+/* for services API                                                       */
+/**************************************************************************/
+    IN_SW_BURP_HIDDEN_RDONLY,	isc_spb_res_am_readonly,	"mode read_only",   0, 0, 0, FALSE, 0, 0, NULL,
+    IN_SW_BURP_HIDDEN_RDWRITE,	isc_spb_res_am_readwrite,	"mode read_write",  0, 0, 0, FALSE, 0, 0, NULL,
+/**************************************************************************/
+#endif
+    IN_SW_BURP_0,    	 0,	NULL,           0, 0, 0, FALSE, 0, 0, NULL
+};
+
+
+/* Definitions for GSPLIT */
+#define	IN_SW_SPIT_0	0   /* the unknowable switch */
+#define	IN_SW_SPIT_SP	30  /* splits back up files */
+#define	IN_SW_SPIT_JT	31  /* joins back up files */
+
+
+static struct in_sw_tab_t spit_in_sw_table [] =
+{
+	IN_SW_SPIT_SP,	0,	"SPLIT_BK_FILE", 0, 0, 0, FALSE, 0, 0, NULL,
+	IN_SW_SPIT_JT,	0,	"JOIN_BK_FILE",	 0, 0, 0, FALSE, 0, 0, NULL,
+	IN_SW_SPIT_0,	0,	NULL,			 0, 0, 0, FALSE, 0, 0, NULL
+};
+
+#endif /* _BURP_BURP_H_ */
diff --git a/src/burp/canon_proto.h b/src/burp/canon_proto.h
new file mode 100644
index 0000000000..a860a80061
--- /dev/null
+++ b/src/burp/canon_proto.h
@@ -0,0 +1,38 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		canon_proto.h		
+ *	DESCRIPTION:	Prototype Header file for canonical.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _BURP_CANON_PROTO_H_
+#define _BURP_CANON_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern ULONG	CAN_encode_decode (struct rel *, struct lstring *, UCHAR *, int);
+extern ULONG	CAN_slice (struct lstring *, struct lstring *, int, USHORT, UCHAR *);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif	/* _BURP_CANON_PROTO_H_ */
diff --git a/src/burp/canonical.cpp b/src/burp/canonical.cpp
new file mode 100644
index 0000000000..a7f34f1c30
--- /dev/null
+++ b/src/burp/canonical.cpp
@@ -0,0 +1,1005 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		canonical.c
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: canonical.cpp,v 1.1.1.1 2001-05-23 13:26:05 tamlin Exp $
+*/
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../remote/remote.h"
+#include "../burp/burp.h"
+#include "../jrd/align.h"
+#include "../jrd/sdl.h"
+#include "../burp/canon_proto.h"
+#include "../jrd/sdl_proto.h"
+#include "../remote/xdr_proto.h"
+#include "../jrd/gdsassert.h"
+
+#ifdef PC_PLATFORM
+#ifndef NETWARE_386
+extern SLONG ntohl(), htonl();
+#endif
+#endif
+
+
+extern "C" {
+
+
+#ifdef mips
+#define LOC_DOUBLE
+#endif
+
+
+static XDR_INT burp_destroy(XDR*);
+static bool_t burp_getbytes(XDR*, SCHAR *, u_int);
+static bool_t burp_getlong(XDR*, SLONG *);
+static u_int burp_getpostn(XDR*);
+static caddr_t burp_inline(XDR*, u_int);
+static bool_t burp_putbytes(XDR*, SCHAR *, u_int);
+static bool_t burp_putlong(XDR*, SLONG *);
+static bool_t burp_setpostn(XDR*, u_int);
+static bool_t expand_buffer(XDR*);
+static bool_t xdr_datum(XDR*, DSC*, UCHAR*);
+#if (defined DEBUG_XDR_MEMORY) && (defined SUPERCLIENT) && (defined WIN_NT)
+extern void xdr_debug_memory(XDR*, enum xdr_op, void*, void*, ULONG);
+#endif
+static bool_t xdr_quad(register XDR*, register SLONG*);
+static int xdr_init(XDR*, LSTRING*, enum xdr_op);
+static bool_t xdr_slice(XDR*, LSTRING*, USHORT, UCHAR*);
+
+#ifdef PLATFORM_SUPPLIES_XDR_HYPER
+extern bool_t xdr_hyper(register XDR *, SINT64 *);
+#else
+static bool_t xdr_hyper(register XDR *, SINT64 *);
+#endif
+
+static xdr_t::xdr_ops burp_ops =
+{
+	burp_getlong,
+	burp_putlong,
+	burp_getbytes,
+	burp_putbytes,
+	burp_getpostn,
+	burp_setpostn,
+	burp_inline,
+	burp_destroy
+};
+
+#define INCREMENT 1024
+
+
+ULONG CAN_encode_decode(REL relation,
+						LSTRING * buffer,
+						UCHAR * data,
+						bool_t direction)
+{
+/**************************************
+ *
+ *	C A N _ e n c o d e _ d e c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	encode and decode canonical backup.
+ *
+ **************************************/
+	XDR xdr, *xdrs;
+	FLD field;
+	FLD_LENGTH length;
+	SSHORT dtype, n;
+	UCHAR *p;
+	RCRD_OFFSET offset;
+	USHORT array_fld;
+
+	xdrs = &xdr;
+
+	xdr_init(xdrs, buffer, (direction) ? XDR_ENCODE : XDR_DECODE);
+
+	offset = 0;
+	for (field = relation->rel_fields; field; field = field->fld_next)
+	{
+		if (field->fld_flags & FLD_computed)
+			continue;
+		p = data + field->fld_offset;
+		if (array_fld = field->fld_flags & FLD_array)
+			length = 8;
+		else
+			length = field->fld_length;
+		if (field->fld_offset >= offset)
+			offset = field->fld_offset + length;
+		if (field->fld_type == blr_varying && !array_fld)
+			offset += sizeof(SSHORT);
+		if (field->fld_type == blr_blob || array_fld)
+			dtype = dtype_blob;
+		else
+			dtype = (SSHORT) gds_cvt_blr_dtype[field->fld_type];
+		switch (dtype)
+		{
+		case dtype_text:
+			if (!xdr_opaque(xdrs, reinterpret_cast<char*>(p), length))
+			{
+				return FALSE;
+			}
+			break;
+
+		case dtype_varying:
+			{
+				VARY pVary = reinterpret_cast<VARY>(p);
+				if (!xdr_short(	xdrs,
+								reinterpret_cast<SSHORT*>(&pVary->vary_length)))
+				{
+					return FALSE;
+				}
+				if (!xdr_opaque(xdrs,
+								reinterpret_cast<SCHAR*>(pVary->vary_string),
+								pVary->vary_length))
+				{
+				  return FALSE;
+				}
+			}
+			break;
+
+		case dtype_cstring:
+			if (xdrs->x_op == XDR_ENCODE)
+				n = (strlen(reinterpret_cast<const char*>(p)));
+			if (!xdr_short(xdrs, &n))
+				return FALSE;
+			if (!xdr_opaque(xdrs, reinterpret_cast<SCHAR*>(p), n))
+				  return FALSE;
+			if (xdrs->x_op == XDR_DECODE)
+				p[n] = 0;
+			break;
+
+		case dtype_short:
+			if (!xdr_short(xdrs, (SSHORT *) p))
+				return FALSE;
+			break;
+
+		case dtype_long:
+		case dtype_sql_time:
+		case dtype_sql_date:
+			if (!xdr_long(xdrs, (SLONG *) p))
+				return FALSE;
+			break;
+
+		case dtype_real:
+			if (!xdr_float(xdrs, (float *) p))
+				return FALSE;
+			break;
+
+		case dtype_double:
+			if (!xdr_double(xdrs, (double *) p))
+				return FALSE;
+			break;
+
+		case dtype_timestamp:
+			if (!xdr_long(xdrs, &((SLONG *) p)[0]))
+				return FALSE;
+			if (!xdr_long(xdrs, &((SLONG *) p)[1]))
+				return FALSE;
+			break;
+
+		case dtype_quad:
+		case dtype_blob:
+			if (!xdr_quad(xdrs, (SLONG *) p))
+				return FALSE;
+			break;
+
+		case dtype_int64:
+			if (!xdr_hyper(xdrs, (SINT64 *) p))
+				return FALSE;
+			break;
+
+		default:
+			assert(FALSE);
+			return FALSE;
+		}
+	}
+
+/* Next, get null flags */
+
+	for (field = relation->rel_fields; field; field = field->fld_next)
+	{
+		if (field->fld_flags & FLD_computed)
+			continue;
+		offset = FB_ALIGN(offset, sizeof(SSHORT));
+		p = data + offset;
+		if (!xdr_short(xdrs, (SSHORT *) p))
+			return FALSE;
+		offset += sizeof(SSHORT);
+	}
+	return (xdrs->x_private - xdrs->x_base);
+}
+
+
+ULONG CAN_slice(LSTRING * buffer,
+				LSTRING * slice,
+				bool_t direction,
+				USHORT sdl_length,
+				UCHAR * sdl)
+{
+/**************************************
+ *
+ *	C A N _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	encode and decode canonical backup.
+ *
+ **************************************/
+	XDR xdr, *xdrs;
+
+	xdrs = &xdr;
+
+	xdr_init(xdrs, buffer, (direction) ? XDR_ENCODE : XDR_DECODE);
+
+	xdr_slice(xdrs, slice, sdl_length, sdl);
+	return (xdrs->x_private - xdrs->x_base);
+}
+
+
+static XDR_INT burp_destroy( XDR * xdrs)
+{
+/**************************************
+ *
+ *	b u r p _ d e s t r o y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Destroy a stream.  A no-op.
+ *
+ **************************************/
+	return 0;
+}
+
+
+static bool_t burp_getbytes(XDR* xdrs, SCHAR* buff, u_int bytecount)
+{
+/**************************************
+ *
+ *	b u r p _ g e t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a bunch of bytes into a memory stream if it fits.
+ *
+ **************************************/
+
+	if (bytecount && xdrs->x_handy >= bytecount)
+	{
+		xdrs->x_handy -= bytecount;
+		do {
+			*buff++ = *xdrs->x_private++;
+		} while (--bytecount);
+		return TRUE;
+	}
+
+	while (bytecount)
+	{
+		if (!xdrs->x_handy && !expand_buffer(xdrs))
+			return FALSE;
+		*buff++ = *xdrs->x_private++;
+		--xdrs->x_handy;
+		--bytecount;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t burp_getlong( XDR * xdrs, SLONG * lp)
+{
+/**************************************
+ *
+ *	b u r p _ g e t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+
+	SLONG l;
+
+	if (!(*xdrs->x_ops->x_getbytes) (xdrs, reinterpret_cast<char*>(&l), 4))
+		return FALSE;
+
+	*lp = ntohl(l);
+
+	return TRUE;
+}
+
+
+static u_int burp_getpostn( XDR * xdrs)
+{
+/**************************************
+ *
+ *	b u r p _ g e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	return xdrs->x_private - xdrs->x_base;
+}
+
+
+static caddr_t burp_inline( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	b u r p _  i n l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a pointer to somewhere in the buffer.
+ *
+ **************************************/
+
+	if (bytecount > (u_int) xdrs->x_handy)
+		return FALSE;
+
+	return xdrs->x_base + bytecount;
+}
+
+
+static bool_t burp_putbytes(XDR* xdrs, SCHAR* buff, u_int bytecount)
+{
+/**************************************
+ *
+ *	b u r p _ p u t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a bunch of bytes into a memory stream if it fits.
+ *
+ **************************************/
+
+	if (bytecount && xdrs->x_handy >= bytecount)
+	{
+		xdrs->x_handy -= bytecount;
+		do {
+			*xdrs->x_private++ = *buff++;
+		} while (--bytecount);
+		return TRUE;
+	}
+
+	while (bytecount)
+	{
+		if (xdrs->x_handy <= 0 && !expand_buffer(xdrs))
+		{
+			return FALSE;
+		}
+		--xdrs->x_handy;
+		*xdrs->x_private++ = *buff++;
+		--bytecount;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t burp_putlong( XDR * xdrs, SLONG * lp)
+{
+/**************************************
+ *
+ *	b u r p _ p u t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG l;
+
+	l = htonl(*lp);
+	return (*xdrs->x_ops->x_putbytes) (xdrs,
+									   reinterpret_cast<char*>(AOF32L(l)),
+									   4);
+}
+
+
+static bool_t burp_setpostn( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	b u r p _ s e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	if (bytecount > (u_int) xdrs->x_handy)
+		return FALSE;
+
+	xdrs->x_private = xdrs->x_base + bytecount;
+
+	return TRUE;
+}
+
+
+static bool_t expand_buffer( XDR * xdrs)
+{
+/**************************************
+ *
+ *	e x p a n d _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a new, larger buffer, copy
+ *	everything we've got, and release the 
+ *	old one.
+ *
+ **************************************/
+
+	caddr_t p, q;
+	SSHORT length;
+	LSTRING *buffer;
+
+	buffer = (LSTRING *) xdrs->x_public;
+	length = (xdrs->x_private - xdrs->x_base) + xdrs->x_handy + INCREMENT;
+	buffer->lstr_allocated = buffer->lstr_length = length;
+
+	caddr_t new_ = (caddr_t) BURP_ALLOC(length);
+
+	for (p = new_, q = xdrs->x_base; q < xdrs->x_private; *p++ = *q++)
+		;
+
+	BURP_FREE(xdrs->x_base);
+
+	xdrs->x_base = new_;
+	xdrs->x_private = p;
+	xdrs->x_handy += INCREMENT;
+
+	buffer->lstr_address = (UCHAR *) new_;
+
+	return TRUE;
+}
+
+
+
+static bool_t xdr_datum( XDR * xdrs, DSC * desc, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	x d r _ d a t u m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle a data item by relative descriptor and buffer.
+ *
+ **************************************/
+	UCHAR *p;
+	SSHORT n;
+
+	p = buffer + (int) desc->dsc_address;
+
+	switch (desc->dsc_dtype)
+	{
+	case dtype_text:
+		if (!xdr_opaque(xdrs, reinterpret_cast<SCHAR*>(p), desc->dsc_length))
+		{
+			return FALSE;
+		}
+		break;
+
+	case dtype_varying:
+		{
+			VARY pVary = reinterpret_cast<VARY>(p);
+			if (!xdr_short(xdrs,
+							reinterpret_cast<short*>(&pVary->vary_length)))
+			{
+				return FALSE;
+			}
+			if (!xdr_opaque(xdrs,
+							reinterpret_cast<SCHAR*>(pVary->vary_string),
+							MIN(desc->dsc_length - 2,
+							pVary->vary_length)))
+			{
+				return FALSE;
+			}
+		}
+		break;
+
+	case dtype_cstring:
+		if (xdrs->x_op == XDR_ENCODE)
+			n = MIN(strlen(reinterpret_cast<const char*>(p)),
+					(size_t) (desc->dsc_length - 1));
+		if (!xdr_short(xdrs, &n))
+			return FALSE;
+		if (!xdr_opaque(xdrs, reinterpret_cast<char*>(p), n))
+			  return FALSE;
+		if (xdrs->x_op == XDR_DECODE)
+			p[n] = 0;
+		break;
+
+	case dtype_short:
+		if (!xdr_short(xdrs, (SSHORT *) p))
+			return FALSE;
+		break;
+
+	case dtype_sql_date:
+	case dtype_sql_time:
+	case dtype_long:
+		if (!xdr_long(xdrs, (SLONG *) p))
+			return FALSE;
+		break;
+
+	case dtype_real:
+		if (!xdr_float(xdrs, (float *) p))
+			return FALSE;
+		break;
+
+	case dtype_double:
+		if (!xdr_double(xdrs, (double *) p))
+			return FALSE;
+		break;
+
+	case dtype_timestamp:
+		if (!xdr_long(xdrs, &((SLONG *) p)[0]))
+			return FALSE;
+		if (!xdr_long(xdrs, &((SLONG *) p)[1]))
+			return FALSE;
+		break;
+
+	case dtype_quad:
+	case dtype_blob:
+		if (!xdr_quad(xdrs, (SLONG *) p))
+			return FALSE;
+		break;
+
+	case dtype_int64:
+		if (!xdr_hyper(xdrs, (SINT64 *) p))
+			return FALSE;
+		break;
+
+	default:
+		assert(FALSE);
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+#if (defined DEBUG_XDR_MEMORY) && (defined SUPERCLIENT) && (defined WIN_NT)
+void xdr_debug_memory(	XDR* xdrs,
+						enum xdr_op xop,
+						void* xdrvar,
+						void* address,
+						ULONG length)
+{
+/**************************************
+ *
+ *	x d r _ d e b u g _ m e m o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Track memory allocation patterns of XDR aggregate
+ *	types (i.e. xdr_cstring, xdr_string, etc.) to
+ *	validate that memory is not leaked by overwriting
+ *	XDR aggregate pointers and that freeing a packet
+ *	with REMOTE_free_packet() does not miss anything.
+ *
+ *	All memory allocations due to marshalling XDR
+ *	variables are recorded in a debug memory alloca-
+ *	tion table stored at the front of a packet.
+ *
+ *	Once a packet is being tracked it is an assertion
+ *	error if a memory allocation can not be recorded
+ *	due to space limitations or if a previous memory
+ *	allocation being freed cannot be found. At most
+ *	P_MALLOC_SIZE entries can be stored in the memory
+ *	allocation table. A rough estimate of the number
+ *	of XDR aggregates that can hang off a packet can
+ *	be obtained by examining the subpackets defined
+ *	in <remote/protocol.h>: A guestimate of 36 at this
+ *	time includes 10 strings used to decode an xdr
+ *	status vector.
+ *
+ **************************************/
+
+	/* This function does nothing here.  It is implemented in protocol.c.  This
+	 * stub exists for compiling GBAK on windows NT only 
+	 * 25-November-1997*/
+
+}
+#endif
+
+
+static bool_t xdr_quad(register XDR* xdrs, register SLONG* ip)
+{
+/**************************************
+ *
+ *	x d r _ q u a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		if ((*xdrs->x_ops->x_putlong) (xdrs, &ip[0]) &&
+			(*xdrs->x_ops->x_putlong) (xdrs, &ip[1]))
+			return TRUE;
+		return FALSE;
+
+	case XDR_DECODE:
+		if (!(*xdrs->x_ops->x_getlong) (xdrs, &ip[0]))
+			return FALSE;
+		return (*xdrs->x_ops->x_getlong) (xdrs, &ip[1]);
+
+	case XDR_FREE:
+		return TRUE;
+
+	default:
+		assert(FALSE);
+		return FALSE;
+	}
+}
+
+
+
+
+#ifdef	LOC_DOUBLE
+static bool_t xdr_double(xdrs, ip)
+	 register XDR *xdrs;
+	 register double *ip;
+{
+/**************************************
+ *
+ *	x d r _ d o u b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+	SSHORT t1;
+	union
+	{
+		double temp_double;
+		SLONG temp_long[2];
+		SSHORT temp_short[4];
+	} temp;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		temp.temp_double = *ip;
+#ifndef IEEE
+		if (*ip != 0)
+			temp.temp_short[0] -= 0x20;
+		t1 = temp.temp_short[0];
+		temp.temp_short[0] = temp.temp_short[1];
+		temp.temp_short[1] = t1;
+		t1 = temp.temp_short[2];
+		temp.temp_short[2] = temp.temp_short[3];
+		temp.temp_short[3] = t1;
+#endif
+#ifdef VAX
+		if ((*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[1]) &&
+			(*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[0]))
+			return TRUE;
+#else
+		if ((*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[0]) &&
+			(*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[1]))
+			return TRUE;
+#endif
+		return FALSE;
+
+	case XDR_DECODE:
+#ifdef VAX
+		if (!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[1]) ||
+			!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[0]))
+			return FALSE;
+#else
+		if (!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[0]) ||
+			!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[1]))
+			return FALSE;
+#endif
+#ifndef IEEE
+		t1 = temp.temp_short[0];
+		temp.temp_short[0] = temp.temp_short[1];
+		temp.temp_short[1] = t1;
+		t1 = temp.temp_short[2];
+		temp.temp_short[2] = temp.temp_short[3];
+		temp.temp_short[3] = t1;
+		if (temp.temp_double != 0)
+			temp.temp_short[0] += 0x20;
+#endif
+		*ip = temp.temp_double;
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+
+	default:
+		assert(FALSE);
+		return FALSE;
+	}
+}
+
+
+static bool_t xdr_float(xdrs, ip)
+	 register XDR *xdrs;
+	 register float *ip;
+{
+/**************************************
+ *
+ *	x d r _ f l o a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+	SSHORT t1;
+	union
+	{
+		float temp_float;
+		unsigned short temp_short[2];
+	} temp;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+#ifndef IEEE
+		temp.temp_float = *ip;
+		if (temp.temp_float)
+		{
+			t1 = temp.temp_short[0];
+			temp.temp_short[0] = temp.temp_short[1];
+			temp.temp_short[1] = t1 - 0x100;
+		}
+		if (!(*xdrs->x_ops->x_putlong) (xdrs, &temp))
+			return FALSE;
+		return TRUE;
+#else
+		return (*xdrs->x_ops->x_putlong) (xdrs, ip);
+#endif
+
+	case XDR_DECODE:
+#ifndef IEEE
+		if (!(*xdrs->x_ops->x_getlong) (xdrs, &temp))
+			return FALSE;
+		if (temp.temp_short[0] | temp.temp_short[1])
+		{
+			t1 = temp.temp_short[1];
+			temp.temp_short[1] = temp.temp_short[0];
+			temp.temp_short[0] = t1 + 0x100;
+		}
+		*ip = temp.temp_float;
+		return TRUE;
+#else
+		return (*xdrs->x_ops->x_getlong) (xdrs, ip);
+#endif
+
+	case XDR_FREE:
+		return TRUE;
+
+	default:
+		assert(FALSE);
+		return FALSE;
+	}
+}
+#endif
+
+
+
+static int xdr_init( XDR * xdrs, LSTRING * buffer, enum xdr_op x_op)
+{
+/**************************************
+ *
+ *	x d r _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize an XDR stream for Apollo mailboxes.
+ *
+ **************************************/
+
+	xdrs->x_public = (caddr_t) buffer;
+	xdrs->x_base = xdrs->x_private = (caddr_t) buffer->lstr_address;
+	xdrs->x_handy = buffer->lstr_length;
+	xdrs->x_ops = &burp_ops;
+	xdrs->x_op = x_op;
+
+	return TRUE;
+}
+
+
+
+static bool_t xdr_slice(XDR* xdrs,
+						LSTRING* slice,
+						USHORT sdl_length,
+						UCHAR* sdl)
+{
+/**************************************
+ *
+ *	x d r _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a slice of an array under
+ *
+ **************************************/
+	STATUS status_vector[20];
+	ULONG n;
+	UCHAR *p, *end;
+	DSC *desc;
+	struct sdl_info info;
+
+	if (!xdr_long(xdrs, reinterpret_cast<long*>(&slice->lstr_length)))
+		  return FALSE;
+
+/* Handle operation specific stuff, particularly memory allocation/deallocation */
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		break;
+
+	case XDR_DECODE:
+		if (!slice->lstr_length)
+			return TRUE;
+		if (slice->lstr_length > slice->lstr_allocated &&
+			slice->lstr_allocated)
+		{
+			BURP_FREE(slice->lstr_address);
+			slice->lstr_address = NULL;
+		}
+		if (!slice->lstr_address)
+		{
+			slice->lstr_address = BURP_ALLOC((SLONG) slice->lstr_length);
+			if (!slice->lstr_address) {
+				return FALSE;
+			}
+			slice->lstr_allocated = slice->lstr_length;
+		}
+		break;
+
+	case XDR_FREE:
+		if (slice->lstr_allocated)
+			BURP_FREE(slice->lstr_address);
+		slice->lstr_address = NULL;
+		slice->lstr_allocated = 0;
+		return TRUE;
+
+	default:
+		assert(FALSE);
+		return FALSE;
+	}
+
+/* Get descriptor of array element */
+
+	if (SDL_info(status_vector, sdl, &info, 0))
+		return FALSE;
+
+	desc = &info.sdl_info_element;
+	n = slice->lstr_length / desc->dsc_length;
+	p = slice->lstr_address;
+
+	for (end = p + n * desc->dsc_length; p < end; p += desc->dsc_length) {
+		if (!xdr_datum(xdrs, desc, p)) {
+			return FALSE;
+		}
+	}
+
+	return TRUE;
+}
+
+
+#ifndef PLATFORM_SUPPLIES_XDR_HYPER
+static bool_t xdr_hyper(register XDR* xdrs, SINT64* pi64)
+{
+/**************************************
+ *
+ *	x d r _ h y p e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a 64-bit Integer from external to internal representation 
+ *      (or vice versa).
+ *      
+ *      Enable this for all platforms except those which supply
+ *	xdr_hyper as part of the system xdr library (initially only
+ *      Solaris, but we expect more over time). This function (normally) 
+ *      would have been implemented in REMOTE/xdr.c. Since some system 
+ *      XDR libraries (HP-UX) do not implement this function, we have it 
+ *      in this module. At a later date, when the function is available 
+ *      on all platforms, we can start using the system-provided version.
+ *      
+ *      Handles "swapping" of the 2 long's to be "Endian" sensitive. 
+ *
+ **************************************/
+	union
+	{
+		SINT64 temp_int64;
+		SLONG temp_long[2];
+	} temp;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		temp.temp_int64 = *pi64;
+#ifdef VAX
+		if ((*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[1]) &&
+			(*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[0]))
+			return TRUE;
+#else
+		if ((*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[0]) &&
+			(*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[1]))
+			return TRUE;
+#endif
+		return FALSE;
+
+	case XDR_DECODE:
+#ifdef VAX
+		if (!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[1]) ||
+			!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[0]))
+			return FALSE;
+#else
+		if (!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[0]) ||
+			!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[1]))
+			return FALSE;
+#endif
+		*pi64 = temp.temp_int64;
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+
+/* TMN: Now what? 'assert(0)'? 'abort()'? Anyone having a */
+/* clue, feel free to fix the cludge 'return FALSE' */
+	return FALSE;
+}
+#endif /* PLATFORM_SUPPLIES_XDR_HYPER */
+
+
+} // extern "C"
diff --git a/src/burp/depends.mak b/src/burp/depends.mak
new file mode 100644
index 0000000000..8aa73d5000
--- /dev/null
+++ b/src/burp/depends.mak
@@ -0,0 +1,203 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# depends.mak - burp
+# Created by 'make depends.mak'
+# Created on 1998-11-17
+backup.c.o: backu_proto.h
+backup.c.o: backup.c.c
+backup.c.o: burp.h
+backup.c.o: burp_proto.h
+backup.c.o: canon_proto.h
+backup.c.o: misc_proto.h
+backup.c.o: mvol_proto.h
+backup.c.o: source/interbase/include/iberror.h
+backup.c.o: source/jrd/align.h
+backup.c.o: source/jrd/common.h
+backup.c.o: source/jrd/dsc.h
+backup.c.o: source/jrd/fil.h
+backup.c.o: source/jrd/gds.h
+backup.c.o: source/jrd/gds_proto.h
+backup.c.o: source/jrd/isc.h
+backup.c.o: source/jrd/isc_s_proto.h
+backup.c.o: source/jrd/pwd.h
+backup.c.o: source/jrd/svc.h
+backup.c.o: source/jrd/svc_proto.h
+backup.c.o: source/jrd/svc_undoc.h
+backup.c.o: source/jrd/thd.h
+backup.c.o: source/remote/protocol.h
+backup.o: backu_proto.h
+backup.o: backup.c
+backup.o: burp.h
+backup.o: burp_proto.h
+backup.o: canon_proto.h
+backup.o: misc_proto.h
+backup.o: mvol_proto.h
+backup.o: source/interbase/include/iberror.h
+backup.o: source/jrd/align.h
+backup.o: source/jrd/common.h
+backup.o: source/jrd/dsc.h
+backup.o: source/jrd/fil.h
+backup.o: source/jrd/gds.h
+backup.o: source/jrd/gds_proto.h
+backup.o: source/jrd/gdsassert.h
+backup.o: source/jrd/isc.h
+backup.o: source/jrd/isc_s_proto.h
+backup.o: source/jrd/ods.h
+backup.o: source/jrd/pwd.h
+backup.o: source/jrd/svc.h
+backup.o: source/jrd/svc_proto.h
+backup.o: source/jrd/svc_undoc.h
+backup.o: source/jrd/thd.h
+backup.o: source/remote/protocol.h
+burp.o: backu_proto.h
+burp.o: burp.c
+burp.o: burp.h
+burp.o: burp_proto.h
+burp.o: burpswi.h
+burp.o: misc_proto.h
+burp.o: mvol_proto.h
+burp.o: resto_proto.h
+burp.o: source/interbase/include/iberror.h
+burp.o: source/jrd/build_no.h
+burp.o: source/jrd/common.h
+burp.o: source/jrd/dsc.h
+burp.o: source/jrd/fil.h
+burp.o: source/jrd/gds.h
+burp.o: source/jrd/gds_proto.h
+burp.o: source/jrd/gdsassert.h
+burp.o: source/jrd/ibase.h
+burp.o: source/jrd/ibsetjmp.h
+burp.o: source/jrd/isc.h
+burp.o: source/jrd/isc_s_proto.h
+burp.o: source/jrd/license.h
+burp.o: source/jrd/msg_encode.h
+burp.o: source/jrd/pwd.h
+burp.o: source/jrd/svc.h
+burp.o: source/jrd/svc_proto.h
+burp.o: source/jrd/svc_undoc.h
+burp.o: source/jrd/thd.h
+burp.o: source/jrd/time.h
+burp.o: source/jrd/why_proto.h
+burpwep.o: burpwep.c
+burpwep.o: source/jrd/common.h
+canonical.o: burp.h
+canonical.o: burp_proto.h
+canonical.o: canon_proto.h
+canonical.o: canonical.c
+canonical.o: misc_proto.h
+canonical.o: source/interbase/include/iberror.h
+canonical.o: source/jrd/align.h
+canonical.o: source/jrd/common.h
+canonical.o: source/jrd/dsc.h
+canonical.o: source/jrd/fil.h
+canonical.o: source/jrd/gds.h
+canonical.o: source/jrd/gds_proto.h
+canonical.o: source/jrd/ibsetjmp.h
+canonical.o: source/jrd/isc.h
+canonical.o: source/jrd/isc_s_proto.h
+canonical.o: source/jrd/pwd.h
+canonical.o: source/jrd/sdl.h
+canonical.o: source/jrd/sdl_proto.h
+canonical.o: source/jrd/svc.h
+canonical.o: source/jrd/svc_proto.h
+canonical.o: source/jrd/svc_undoc.h
+canonical.o: source/jrd/thd.h
+canonical.o: source/remote/allr_proto.h
+canonical.o: source/remote/blk.h
+canonical.o: source/remote/protocol.h
+canonical.o: source/remote/remote.h
+canonical.o: source/remote/remote_def.h
+canonical.o: source/remote/xdr.h
+gsplit.o: gsplit.c
+gsplit.o: gsplit.h
+gsplit.o: source/jrd/common.h
+misc.o: burp.h
+misc.o: burp_proto.h
+misc.o: misc.c
+misc.o: misc_proto.h
+misc.o: source/interbase/include/iberror.h
+misc.o: source/jrd/common.h
+misc.o: source/jrd/dsc.h
+misc.o: source/jrd/fil.h
+misc.o: source/jrd/gds.h
+misc.o: source/jrd/gds_proto.h
+misc.o: source/jrd/isc.h
+misc.o: source/jrd/isc_s_proto.h
+misc.o: source/jrd/pwd.h
+misc.o: source/jrd/svc.h
+misc.o: source/jrd/svc_proto.h
+misc.o: source/jrd/svc_undoc.h
+misc.o: source/jrd/thd.h
+mvol.o: burp.h
+mvol.o: burp_proto.h
+mvol.o: misc_proto.h
+mvol.o: mvol.c
+mvol.o: mvol_proto.h
+mvol.o: source/interbase/include/iberror.h
+mvol.o: source/jrd/common.h
+mvol.o: source/jrd/dsc.h
+mvol.o: source/jrd/fil.h
+mvol.o: source/jrd/gds.h
+mvol.o: source/jrd/gds_proto.h
+mvol.o: source/jrd/gdsassert.h
+mvol.o: source/jrd/isc.h
+mvol.o: source/jrd/isc_s_proto.h
+mvol.o: source/jrd/pwd.h
+mvol.o: source/jrd/svc.h
+mvol.o: source/jrd/svc_proto.h
+mvol.o: source/jrd/svc_undoc.h
+mvol.o: source/jrd/thd.h
+restore.o: burp.h
+restore.o: burp_proto.h
+restore.o: canon_proto.h
+restore.o: misc_proto.h
+restore.o: mvol_proto.h
+restore.o: resto_proto.h
+restore.o: restore.c
+restore.o: source/interbase/include/iberror.h
+restore.o: source/intl/charsets.h
+restore.o: source/jrd/align.h
+restore.o: source/jrd/build_no.h
+restore.o: source/jrd/common.h
+restore.o: source/jrd/dsc.h
+restore.o: source/jrd/fil.h
+restore.o: source/jrd/flags.h
+restore.o: source/jrd/gds.h
+restore.o: source/jrd/gds_proto.h
+restore.o: source/jrd/gdsassert.h
+restore.o: source/jrd/isc.h
+restore.o: source/jrd/isc_s_proto.h
+restore.o: source/jrd/license.h
+restore.o: source/jrd/obj.h
+restore.o: source/jrd/pwd.h
+restore.o: source/jrd/svc.h
+restore.o: source/jrd/svc_proto.h
+restore.o: source/jrd/svc_undoc.h
+restore.o: source/jrd/thd.h
+restore.o: source/remote/protocol.h
+spit.o: burpswi.h
+spit.o: source/interbase/include/iberror.h
+spit.o: source/jrd/blk.h
+spit.o: source/jrd/common.h
+spit.o: source/jrd/dsc.h
+spit.o: source/jrd/gdsassert.h
+spit.o: source/jrd/ibase.h
+spit.o: source/jrd/isc.h
+spit.o: source/jrd/jrd.h
+spit.o: source/jrd/thd.h
+spit.o: spit.c
+spit.o: spit.h
diff --git a/src/burp/makefile.mak b/src/burp/makefile.mak
new file mode 100644
index 0000000000..7a1094ccdc
--- /dev/null
+++ b/src/burp/makefile.mak
@@ -0,0 +1,173 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+#use $(Cx) to have command line options appear in DLL_CFLAGS
+#NOTE: USE -DCx=-DWINBETA for BETA version string (see code in burp.c)
+#--------------------------- PC BURP MAKEFILE ---------------------------
+ROOT=..
+.path.c=$(ROOT)\burp
+
+# Path to devkit and clisdk
+!if !$d(TPATH)
+TPATH=..
+!endif
+
+# CRM - temporarily disabled until warnings are cleaned up!!!
+LCFLAGS=-N-
+
+# These are C flags if you want to enable useful warnings.
+#LCFLAGS=$(LCFLAGS) -w -w-ucp -w-sus -w-par -w-stu -w-aus -w-pia
+
+!include $(ROOT)\std.mk
+
+#--------------------------- SOURCE COMPONENTS -----------------------------
+WINSRCS = dllshell.c
+
+S1 = burp.c canonical.c misc.c mvol.c backup.c restore.c
+S2 = burpwep.c
+SRCS = $(S1) $(S2)
+
+# sources from the remote component used to build gbak.dll
+REMSRCS = xdr.c ntoh.c
+
+# NOTE:  Object list - c0dx must be the first obj in the list!
+!if $d(WIN32)
+OBJS=$(TOOLPATH)\lib\c0d32.obj $(SRCS:.c=.obj) \
+	 $(REMSRCS:.c=.obj) $(WINSRCS:.c=.obj)
+!else
+OBJS=$(TOOLPATH)\lib\c0d$(MODEL).obj $(SRCS:.c=.obj) \
+	 $(REMSRCS:.c=.obj) $(WINSRCS:.c=.obj)
+!endif
+
+# import libraries
+# NOTE: Client libs should now be taken from generic directories - Jeevan
+#BURPLIBS = $(ROOT)\jrd\$(.path.obj)\gds.lib $(ROOT)\jrd\$(.path.obj)\iutls.lib
+!if $d(WIN32)
+BURPLIBS = $(SHRLIB_PATH)\gds32.lib
+LIBS = import32 cw32
+!else
+BURPLIBS = $(INSTALLLIB)\gds.lib $(INSTALLLIB)\iutls.lib
+LIBS = mathw$(MODEL) import cw$(MODEL)
+!endif
+
+# Extra files which are used to build the product
+XFILES   = burp.def makefile.mak backup.e restore.e
+
+#---------------------------- TARGET LIST --------------------------------
+!if $d(WIN32)
+ALLBIN = gbak32.dll
+ALLLIBS = gbak32.lib
+!else
+ALLBIN = gbak.dll
+ALLLIBS = gbak.lib
+!endif
+
+gbk_dll: makefile.tmp $(ALLBIN) $(ALLLIB)
+all: makefile.tmp extern_libs $(ALLLIBS) $(ALLBIN)
+allbin: makefile.tmp extern_libs $(ALLBIN)
+alllibs: makefile.tmp $(ALLLIBS)
+
+
+#------------------------------ RULES -------------------------------------
+
+!if $d(WIN32)
+gbak32.dll: $(OBJS) $(BURPLIBS) $(ROOT)\jrd\version_95.rc burp.rsp burp32.def
+	$(TLINK) $(LFLAGS) @$(.path.obj)\burp.rsp, @&&|
+	$<
+	$*.map
+	$(LIBS) $(BURPLIBS)
+	burp32.def
+|
+	$(RC)  -i $(TOOLPATH)\include $(ROOT)\jrd\version_95.rc $<
+!else
+gbak.dll: $(OBJS) $(BURPLIBS) $(ROOT)\jrd\version.rc burp.rsp burp.def
+	$(TLINK) $(LFLAGS) @$(.path.obj)\burp.rsp, @&&|
+	$<
+	$*.map
+	$(LIBS) $(BURPLIBS)
+	burp.def
+|
+	$(RC)  -i $(TOOLPATH)\include $(ROOT)\jrd\version.rc $<
+!endif
+
+#----------- Response files -----------
+burp.rsp: $(OBJS)
+	copy &&|
+	$**
+| $<
+
+#----------- Import Libraries -----------
+!if $d(WIN32)
+gbak32.lib: burp32.def
+	$(IMPLIB) $< $**
+!else
+gbak.lib: burp.def
+	$(IMPLIB) -o $< $**
+!endif
+
+# Because of the circular "architecture" here, we need to build
+# required libraries within each of the makefiles.
+extern_libs:
+	cd $(ROOT)\jrd
+	make $(MAKEFLAGS) alllibs
+	cd $(ROOT)\burp
+
+# ---- Rules for source files which require special handling ----
+xdr.obj: $(ROOT)\remote\xdr.c
+	$(CC) -c -DBURP @&&<
+	$(CFLAGS)
+< $**
+
+ntoh.obj: $(ROOT)\remote\ntoh.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+dllshell.obj: $(ROOT)\jrd\dllshell.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+#---------------------------- UTILITIES ---------------------------------
+
+# Copy targets to a known installation directory
+install:  extern_libs $(ALLBIN) $(ALLLIBS)
+	for %i in ($(ALLBIN)) do copy $(.path.dll)\%i $(INSTALLBIN)
+	for %i in ($(ALLLIBS)) do copy $(.path.dll)\%i $(INSTALLLIB)
+
+# Refresh all the source & header files from the DEVSRC directory
+srcs::
+   copy $(DEVSRC)\burp\*.h
+   for %i in ($(S1)) do copy $(DEVSRC)\burp\%i
+   for %i in ($(S2)) do copy $(DEVSRC)\burp\%i
+   for %i in ($(XFILES)) do copy $(DEVSRC)\burp\%i
+
diff --git a/src/burp/misc.cpp b/src/burp/misc.cpp
new file mode 100644
index 0000000000..8afbb817cb
--- /dev/null
+++ b/src/burp/misc.cpp
@@ -0,0 +1,154 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		misc.c
+ *	DESCRIPTION:	Miscellaneous useful routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#ifdef UNIXWARE
+#include <sys/fcntl.h>
+#endif
+
+#include "../burp/burp.h"
+#include "../burp/burp_proto.h"
+#include "../burp/misc_proto.h"
+
+#ifdef SUPERSERVER
+#include "../jrd/thd_proto.h"
+#endif
+
+
+extern "C" {
+
+
+UCHAR *MISC_alloc_burp(ULONG size)
+{
+/**************************************
+ *
+ *	M I S C _ a l l o c _ b u r p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate block of memory. Note that it always zeros out memory.
+ *  This could be optimized.
+ *
+ **************************************/
+	UCHAR *block;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* Add some header space to store a list of blocks allocated for this gbak */
+	size += ROUNDUP(sizeof(UCHAR *), ALIGNMENT);
+
+	if (!(block = gds__alloc(size)))
+		/* NOMEM: message & abort FREE: all items freed at gbak exit */
+	{
+		BURP_error(238, NULL, NULL, NULL, NULL, NULL);	/* msg 238: System memory exhaused */
+		return NULL;
+	}
+
+	memset(block, 0, size);
+
+/* FREE: We keep a linked list of all gbak memory allocations, which
+ *       are then freed when gbak exits.  This is important for 
+ *       NETWARE in particular.
+ */
+	*((UCHAR **) block) = tdgbl->head_of_mem_list;
+	tdgbl->head_of_mem_list = block;
+
+	return (block + ROUNDUP(sizeof(UCHAR *), ALIGNMENT));
+}
+
+
+void MISC_free_burp( void *free)
+{
+/**************************************
+ *
+ *	M I S C _ f r e e _ b u r p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an unwanted block.
+ *
+ **************************************/
+	UCHAR **block;
+	TGBL tdgbl;
+	UCHAR **ptr;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (free != NULL) {
+		/* Point at the head of the allocated block */
+		block =
+			(UCHAR **) ((UCHAR *) free - ROUNDUP(sizeof(UCHAR *), ALIGNMENT));
+
+		/* Scan for this block in the list of blocks */
+		for (ptr = &tdgbl->head_of_mem_list; *ptr; ptr = (UCHAR **) * ptr) {
+			if (*ptr == (UCHAR *) block) {
+				/* Found it - remove it from the list */
+				*ptr = *block;
+
+				/* and free it */
+				gds__free((SLONG *) block);
+				return;
+			}
+		}
+
+		/* We should always find the block in the list */
+		BURP_error(238, NULL, NULL, NULL, NULL, NULL);	/* msg 238: System memory exhausted */
+		/* (too lazy to add a better message) */
+	}
+}
+
+
+void MISC_terminate(UCHAR* from, UCHAR* to, ULONG length, ULONG max_length)
+{
+/**************************************
+ *
+ *	M I S C _ t e r m i n a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Null-terminate a possibly non-
+ *	null-terminated string with max
+ *	buffer room.
+ *
+ **************************************/
+
+	if (length) {
+		length = MIN(length, max_length - 1);
+		do
+			*to++ = *from++;
+		while (--length);
+		*to++ = '\0';
+	}
+	else {
+		while (max_length-- && (*to++ = *from++));
+		*--to = '\0';
+	}
+}
+
+
+} // extern "C"
diff --git a/src/burp/misc_proto.h b/src/burp/misc_proto.h
new file mode 100644
index 0000000000..549b82cabb
--- /dev/null
+++ b/src/burp/misc_proto.h
@@ -0,0 +1,39 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		misc_proto.h
+ *	DESCRIPTION:	Prototype Header file for misc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _BURP_MISC_PROTO_H_
+#define _BURP_MISC_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern UCHAR	*MISC_alloc_burp (ULONG);
+extern void	MISC_free_burp (void *);
+extern void	MISC_terminate (UCHAR *, UCHAR *, ULONG, ULONG);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif	/* _BURP_MISC_PROTO_H_ */
diff --git a/src/burp/mvol.cpp b/src/burp/mvol.cpp
new file mode 100644
index 0000000000..7918eabd70
--- /dev/null
+++ b/src/burp/mvol.cpp
@@ -0,0 +1,1453 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		multivol.c
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include <time.h>
+#include "../burp/burp.h"
+#ifdef WIN_NT
+#include <windows.h>
+#include <winnt.h>
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT char
+#endif
+#include "../burp/burp_proto.h"
+#include "../burp/mvol_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/thd_proto.h"
+#ifndef VMS
+#include <fcntl.h>
+#include <sys/types.h>
+#else
+#include <types.h>
+#include <file.h>
+#endif
+#if (defined WIN_NT || (defined PC_PLATFORM && !defined NETWARE_386))
+#include <io.h>
+#endif
+#ifdef unix
+#include <unistd.h>
+#endif
+
+
+extern "C" {
+
+
+#define	OPEN_MASK	((int) 0666)
+
+#ifdef VMS
+#define TERM_INPUT	"sys$input"
+#define TERM_OUTPUT	"sys$error"
+#endif
+
+#ifdef WIN_NT
+#define TERM_INPUT	"CONIN$"
+#define TERM_OUTPUT	"CONOUT$"
+#endif
+
+#ifndef TERM_INPUT
+#define TERM_INPUT	"/dev/tty"
+#define TERM_OUTPUT	"/dev/tty"
+#endif
+
+#define MAX_HEADER_SIZE		512
+
+#define BITS_ON(word,bits)	((bits) == ((word)&(bits)))
+
+#define GET()				(--(tdgbl->mvol_io_cnt) >= 0 ? *(tdgbl->mvol_io_ptr)++ : 255)
+#define GET_ATTRIBUTE(att)		((att) = (ATT_TYPE) GET())
+
+#define PUT(c)				--(tdgbl->mvol_io_cnt); *(tdgbl->mvol_io_ptr)++ = (UCHAR) (c)
+#define PUT_NUMERIC(attribute, value)	put_numeric ((attribute), (value))
+#define PUT_ASCIZ(attribute, string)	put_asciz ((attribute), (string))
+
+static void		bad_attribute(USHORT, USHORT);
+static void		file_not_empty(void);
+static SLONG	get_numeric(void);
+static int		get_text(UCHAR*, SSHORT);
+static void		prompt_for_name(SCHAR*, int);
+static void		put_asciz(SCHAR, SCHAR*);
+static void		put_numeric(SCHAR, int);
+static BOOLEAN	read_header(DESC, ULONG*, USHORT*, USHORT);
+static BOOLEAN	write_header(DESC, ULONG, USHORT);
+static void*	next_volume(DESC, int, USHORT);
+
+
+//____________________________________________________________
+//
+//
+void MVOL_fini_read(int* count_kb)
+{
+	TGBL tdgbl = GET_THREAD_DATA;
+
+	if (strcmp(tdgbl->mvol_old_file, "stdin") != 0)
+	{
+		CLOSE(tdgbl->file_desc);
+
+		FIL	file;
+		for (file = tdgbl->gbl_sw_backup_files; file; file = file->fil_next)
+		{
+			if (file->fil_fd == tdgbl->file_desc) {
+				file->fil_fd = INVALID_HANDLE_VALUE;
+			}
+		}
+	}
+
+	tdgbl->file_desc = INVALID_HANDLE_VALUE;
+	*count_kb = tdgbl->mvol_cumul_count_kb;
+	BURP_FREE(tdgbl->mvol_io_buffer);
+	tdgbl->mvol_io_buffer = NULL;
+	tdgbl->io_cnt = 0;
+	tdgbl->io_ptr = NULL;
+}
+
+
+//____________________________________________________________
+//
+//
+void MVOL_fini_write(int* io_cnt, UCHAR** io_ptr, int* count_kb)
+{
+	TGBL tdgbl;
+	FIL	file;
+
+	tdgbl = GET_THREAD_DATA;
+
+	(void) MVOL_write(rec_end, io_cnt, io_ptr);
+	FLUSH(tdgbl->file_desc);
+	if (strcmp(tdgbl->mvol_old_file, "stdout") != 0)
+	{
+		CLOSE(tdgbl->file_desc);
+		for (file = tdgbl->gbl_sw_backup_files; file; file = file->fil_next)
+		{
+			if (file->fil_fd == tdgbl->file_desc)
+				file->fil_fd = INVALID_HANDLE_VALUE;
+		}
+	}
+	tdgbl->file_desc = INVALID_HANDLE_VALUE;
+	*count_kb = tdgbl->mvol_cumul_count_kb;
+	BURP_FREE(tdgbl->mvol_io_header);
+	tdgbl->mvol_io_header = NULL;
+	tdgbl->mvol_io_buffer = NULL;
+	tdgbl->io_cnt = 0;
+	tdgbl->io_ptr = NULL;
+}
+
+
+//____________________________________________________________
+//
+//
+void MVOL_init(ULONG io_buf_size)
+{
+	TGBL tdgbl = GET_THREAD_DATA;
+
+	tdgbl->mvol_io_buffer_size = io_buf_size;
+}
+
+
+//____________________________________________________________
+//
+// Read init record from backup file
+//
+void MVOL_init_read(UCHAR*	database_name,
+					UCHAR*	file_name,
+					USHORT*	format,
+					int*	cnt,
+					UCHAR**	ptr)
+{
+	ULONG temp_buffer_size;
+	UCHAR *new_buffer;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	tdgbl->mvol_volume_count = 1;
+	tdgbl->mvol_empty_file = TRUE;
+
+	if (file_name != (UCHAR *) NULL)
+	{
+		strncpy(tdgbl->mvol_old_file, (char*) file_name, MAX_FILE_NAME_LENGTH);
+		tdgbl->mvol_old_file[MAX_FILE_NAME_LENGTH - 1] = 0;
+	}
+	else
+	{
+		tdgbl->mvol_old_file[0] = 0;
+	}
+
+	tdgbl->mvol_actual_buffer_size = temp_buffer_size =
+		tdgbl->mvol_io_buffer_size;
+	tdgbl->mvol_io_buffer = BURP_ALLOC(temp_buffer_size);
+	tdgbl->gbl_backup_start_time[0] = 0;
+
+	read_header(tdgbl->file_desc, &temp_buffer_size, format, TRUE);
+
+	if (temp_buffer_size > tdgbl->mvol_actual_buffer_size)
+	{
+		new_buffer = BURP_ALLOC(temp_buffer_size);
+		memcpy(new_buffer, tdgbl->mvol_io_buffer, tdgbl->mvol_io_buffer_size);
+		BURP_FREE(tdgbl->mvol_io_buffer);
+		tdgbl->mvol_io_ptr =
+			new_buffer + (tdgbl->mvol_io_ptr - tdgbl->mvol_io_buffer);
+		tdgbl->mvol_io_buffer = new_buffer;
+	}
+
+	tdgbl->mvol_actual_buffer_size = tdgbl->mvol_io_buffer_size =
+		temp_buffer_size;
+	*cnt = tdgbl->mvol_io_cnt;
+	*ptr = tdgbl->mvol_io_ptr;
+}
+
+
+//____________________________________________________________
+//
+// Write init record to the backup file
+//
+void MVOL_init_write(UCHAR*		database_name,
+					 UCHAR*		file_name,
+					 int*		cnt,
+					 UCHAR**	ptr)
+{
+	ULONG temp_buffer_size;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	tdgbl->mvol_volume_count = 1;
+	tdgbl->mvol_empty_file = TRUE;
+
+	if (file_name != (UCHAR *) NULL)
+	{
+		strncpy(tdgbl->mvol_old_file, (char*)file_name, MAX_FILE_NAME_LENGTH);
+		tdgbl->mvol_old_file[MAX_FILE_NAME_LENGTH - 1] = 0;
+	}
+	else
+	{
+		tdgbl->mvol_old_file[0] = 0;
+	}
+
+	tdgbl->mvol_actual_buffer_size = tdgbl->mvol_io_buffer_size;
+	temp_buffer_size = tdgbl->mvol_io_buffer_size * tdgbl->gbl_sw_blk_factor;
+	tdgbl->mvol_io_ptr = tdgbl->mvol_io_buffer =
+		BURP_ALLOC(temp_buffer_size + MAX_HEADER_SIZE);
+	tdgbl->mvol_io_cnt = tdgbl->mvol_actual_buffer_size;
+
+	while (!write_header(tdgbl->file_desc, temp_buffer_size, FALSE))
+	{
+		if (tdgbl->action->act_action == ACT_backup_split)
+		{
+			BURP_error(269, tdgbl->action->act_file->fil_name, 0, 0, 0, 0);
+			/* msg 269 can't write a header record to file %s */
+		}
+		tdgbl->file_desc = next_volume(tdgbl->file_desc, MODE_WRITE, FALSE);
+	}
+
+	tdgbl->mvol_actual_buffer_size = temp_buffer_size;
+
+	*cnt = tdgbl->mvol_io_cnt;
+	*ptr = tdgbl->mvol_io_ptr;
+}
+
+
+#ifndef WIN_NT
+//____________________________________________________________
+//
+// Read a buffer's worth of data. (non-WIN_NT)
+//
+int MVOL_read(int* cnt, UCHAR** ptr)
+{
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	for (;;)
+	{
+		tdgbl->mvol_io_cnt =
+			read(	tdgbl->file_desc,
+					tdgbl->mvol_io_buffer,
+					tdgbl->mvol_io_buffer_size);
+		tdgbl->mvol_io_ptr = tdgbl->mvol_io_buffer;
+
+		if (tdgbl->mvol_io_cnt > 0) {
+			break;
+		}
+
+		{
+			if (!tdgbl->mvol_io_cnt || errno == EIO)
+			{
+				tdgbl->file_desc = next_volume(tdgbl->file_desc, MODE_READ, FALSE);
+				if (tdgbl->mvol_io_cnt > 0)
+				{
+					break;
+				}
+			}
+
+#ifndef NETWARE_386
+			else if (!SYSCALL_INTERRUPTED(errno))
+			{
+				if (cnt)
+				{
+					BURP_error_redirect(0, 220, NULL, NULL);
+				/* msg 220 Unexpected I/O error while reading from backup file */
+				}
+				else
+				{
+					BURP_error_redirect(0, 50, NULL, NULL);
+				/* msg 50 unexpected end of file on backup file */
+				}
+			}
+#endif
+
+		}
+	}
+
+	tdgbl->mvol_cumul_count_kb += tdgbl->mvol_io_cnt / 1024;
+	file_not_empty();
+
+	*ptr = tdgbl->mvol_io_ptr + 1;
+	*cnt = tdgbl->mvol_io_cnt - 1;
+
+	return *(tdgbl->mvol_io_ptr);
+}
+
+
+#else
+//____________________________________________________________
+//
+// Read a buffer's worth of data. (WIN_NT)
+//
+int MVOL_read(int* cnt, UCHAR** ptr)
+{
+	BOOL ret;
+
+	TGBL tdgbl = GET_THREAD_DATA;
+
+	for (;;)
+	{
+		ret = ReadFile(tdgbl->file_desc,
+					   tdgbl->mvol_io_buffer,
+					   tdgbl->mvol_io_buffer_size,
+					   reinterpret_cast<DWORD*>(&tdgbl->mvol_io_cnt),
+					   NULL);
+		tdgbl->mvol_io_ptr = tdgbl->mvol_io_buffer;
+		if (tdgbl->mvol_io_cnt > 0)
+			break;
+		else
+		{
+			if (!tdgbl->mvol_io_cnt)
+			{
+				tdgbl->file_desc = next_volume(tdgbl->file_desc, MODE_READ, FALSE);
+				if (tdgbl->mvol_io_cnt > 0)
+					break;
+			}
+			else if (GetLastError() != ERROR_HANDLE_EOF)
+			{
+				if (cnt)
+					BURP_error_redirect(0, 220, NULL, NULL);
+				/* msg 220 Unexpected I/O error while reading from backup file */
+				else
+					BURP_error_redirect(0, 50, NULL, NULL);
+				/* msg 50 unexpected end of file on backup file */
+			}
+		}
+	}
+
+	tdgbl->mvol_cumul_count_kb += tdgbl->mvol_io_cnt / 1024;
+	file_not_empty();
+
+	*ptr = tdgbl->mvol_io_ptr + 1;
+	*cnt = tdgbl->mvol_io_cnt - 1;
+
+	return *(tdgbl->mvol_io_ptr);
+}
+#endif /* !WIN_NT */
+
+
+//____________________________________________________________
+//
+// Read a chunk of data from the IO buffer.
+// Return a pointer to the first position NOT read into.
+//
+UCHAR* MVOL_read_block(TGBL tdgbl, UCHAR * ptr, ULONG count)
+{
+/* To handle tape drives & Multi-volume boundaries, use the normal
+ * read function, instead of doing a more optimal bulk read.
+ */
+
+	while (count)
+	{
+		ULONG n;
+
+		/* If buffer empty, reload it */
+		if (tdgbl->io_cnt <= 0)
+		{
+			*ptr++ = MVOL_read(&tdgbl->io_cnt, &tdgbl->io_ptr);
+
+			/* One byte was "read" by MVOL_read */
+			count--;
+		}
+
+		n = MIN(count, (ULONG) tdgbl->io_cnt);
+
+		/* Copy data from the IO buffer */
+
+		(void) memcpy(ptr, tdgbl->io_ptr, n);
+		ptr += n;
+
+		/* Skip ahead in current buffer */
+
+		count -= n;
+		tdgbl->io_cnt -= n;
+		tdgbl->io_ptr += n;
+
+	}
+	return ptr;
+}
+
+
+//____________________________________________________________
+//
+// Skip head in the IO buffer.  Often used when only
+// doing partial restores.
+//
+void MVOL_skip_block( TGBL tdgbl, ULONG count)
+{
+/* To handle tape drives & Multi-volume boundaries, use the normal
+ * read function, instead of doing a more optimal seek.
+ */
+
+	while (count)
+	{
+		ULONG n;
+
+		/* If buffer empty, reload it */
+		if (tdgbl->io_cnt <= 0)
+		{
+			(void) MVOL_read(&tdgbl->io_cnt, &tdgbl->io_ptr);
+
+			/* One byte was "read" by MVOL_read */
+			count--;
+		}
+
+		n = MIN(count, (ULONG) tdgbl->io_cnt);
+
+		/* Skip ahead in current buffer */
+
+		count -= n;
+		tdgbl->io_cnt -= n;
+		tdgbl->io_ptr += n;
+	}
+}
+
+
+#ifdef WIN_NT
+//____________________________________________________________
+//
+// detect if it's a tape, rewind if so
+// and set the buffer size
+//
+HANDLE MVOL_open(TEXT * name, DWORD mode, DWORD create)
+{
+	TGBL tdgbl;
+	HANDLE handle;
+	TAPE_GET_MEDIA_PARAMETERS param;
+	DWORD size = sizeof(param);
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (strnicmp(name, "\\\\.\\tape", 8))
+		handle = CreateFile(name, mode,
+							mode == MODE_WRITE ? 0 : FILE_SHARE_READ,
+							NULL, create, FILE_ATTRIBUTE_NORMAL, NULL);
+	else
+	{
+		/* it's a tape device */
+		/* Note: we *want* to open the tape in Read-only mode or in
+		 * write-only mode, but it turns out that on NT SetTapePosition 
+		 * will fail (thereby not rewinding the tape) if the tape is 
+		 * opened write-only, so we will make sure that we always have 
+		 * read access. So much for standards!
+		 * Ain't Windows wonderful???
+		 */
+		/* Note: we *want* to open the tape in FILE_EXCLUSIVE_WRITE, but
+		 * during testing discovered that several NT tape drives do not
+		 * work unless we specify FILE_SHARE_WRITE as the open mode.
+		 * So it goes...
+		 */
+		handle = CreateFile(name,
+							mode | MODE_READ,
+							mode ==
+								MODE_WRITE ? FILE_SHARE_WRITE : FILE_SHARE_READ,
+							0, OPEN_EXISTING, 0, NULL);
+		if (handle != INVALID_HANDLE_VALUE)
+		{
+			/* emulate UNIX rewinding the tape on open:
+			 * This MUST be done since Windows does NOT have anything
+			 * like mt to allow the user to do tape management. The 
+			 * implication here is that we will be able to write ONLY
+			 * one (1) database per tape. This is bad if the user wishes to
+			 * backup several small databases.
+			 * Note: We are intentionally NOT trapping for errors during
+			 * rewind, since if we can not rewind, we are either a non-rewind
+			 * device (then it is user controlled) or we have a problem with
+			 * the physical media.  In the latter case I would rather wait for 
+			 * the write to fail so that we can loop and prompt the user for 
+			 * a different file/device. 
+			 */
+			SetTapePosition(handle, TAPE_REWIND, 0, 0, 0, FALSE);
+			if (GetTapeParameters(	handle,
+									GET_TAPE_MEDIA_INFORMATION,
+									&size,
+									&param) == NO_ERROR)
+			{
+				tdgbl->io_buffer_size = param.BlockSize;
+			}
+		}
+	}
+	return handle;
+}
+#endif /* WIN_NT */
+
+
+//____________________________________________________________
+//
+// Write a buffer's worth of data.
+//
+UCHAR MVOL_write(UCHAR c, int *io_cnt, UCHAR ** io_ptr)
+{
+	UCHAR *ptr;
+	int left, cnt, size_to_write;
+	USHORT full_buffer;
+	TGBL tdgbl;
+	FIL	file;
+
+#ifdef WIN_NT
+	DWORD err;
+#endif /* WIN_NT */
+
+	tdgbl = GET_THREAD_DATA;
+
+	size_to_write = BURP_UP_TO_BLOCK(*io_ptr - tdgbl->mvol_io_buffer);
+
+	for (ptr = tdgbl->mvol_io_buffer, left = size_to_write;
+		 left > 0;
+		 ptr += cnt, left -= cnt)
+	{
+		if (tdgbl->action->act_action == ACT_backup_split)
+		{
+			/* Write to the current file till fil_lingth > 0, otherwise
+			   switch to the next one */
+			if (tdgbl->action->act_file->fil_length == 0)
+			{
+				if (tdgbl->action->act_file->fil_next)
+				{
+					CLOSE(tdgbl->file_desc);
+					for (file = tdgbl->gbl_sw_backup_files; file; file = file->fil_next)
+					{
+						if (file->fil_fd == tdgbl->file_desc)
+							file->fil_fd = INVALID_HANDLE_VALUE;
+					}
+					tdgbl->action->act_file->fil_fd = INVALID_HANDLE_VALUE;
+					tdgbl->action->act_file = tdgbl->action->act_file->fil_next;
+					tdgbl->file_desc = tdgbl->action->act_file->fil_fd;
+				}
+				else
+				{
+					/* This is a last file. Keep writing in a hope that there is
+					   enough free disk space ... */
+					tdgbl->action->act_file->fil_length = MAX_LENGTH;
+				}
+			}
+		}
+#ifndef WIN_NT
+		cnt = write(tdgbl->file_desc, ptr,
+					((tdgbl->action->act_action == ACT_backup_split) &&
+					 (tdgbl->action->act_file->fil_length < left) ?
+					 tdgbl->action->act_file->fil_length : left));
+#else
+		const DWORD nBytesToWrite =
+			(tdgbl->action->act_action == ACT_backup_split &&
+			 ((int) tdgbl->action->act_file->fil_length < left) ?
+			 tdgbl->action->act_file->fil_length : left);
+		if (!WriteFile(tdgbl->file_desc,
+					   ptr,
+					   nBytesToWrite,
+					   reinterpret_cast < DWORD * >(&cnt), NULL)) {
+			err = GetLastError();
+		}
+#endif /* !WIN_NT */
+		tdgbl->mvol_io_buffer = tdgbl->mvol_io_data;
+		if (cnt > 0)
+		{
+			tdgbl->mvol_cumul_count_kb += cnt / 1024;
+			file_not_empty();
+			if (tdgbl->action->act_action == ACT_backup_split)
+			{
+				if ((int) tdgbl->action->act_file->fil_length < left)
+					tdgbl->action->act_file->fil_length = 0;
+				else
+					tdgbl->action->act_file->fil_length -= left;
+			}
+		}
+		else
+		{
+			if (!cnt ||
+#ifndef WIN_NT
+				errno == ENOSPC || errno == EIO || errno == ENXIO ||
+#ifndef NETWARE_386
+				errno == EFBIG)
+#else
+				FALSE)
+#endif /* !NETWARE_386 */
+#else
+				err == ERROR_DISK_FULL || err == ERROR_HANDLE_DISK_FULL)
+#endif /* !WIN_NT */
+			{
+				if (tdgbl->action->act_action == ACT_backup_split)
+				{
+					/* Close the current file and switch to the next one.
+					   If there is no more specified files left then
+					   issue an error and give up */
+					if (tdgbl->action->act_file->fil_next)
+					{
+						CLOSE(tdgbl->file_desc);
+						for (file = tdgbl->gbl_sw_backup_files; file; file = file->fil_next)
+						{
+							if (file->fil_fd == tdgbl->file_desc)
+								file->fil_fd = INVALID_HANDLE_VALUE;
+						}
+						
+						tdgbl->action->act_file->fil_fd = INVALID_HANDLE_VALUE;
+						BURP_print(272,
+									tdgbl->action->act_file->fil_name,
+									(TEXT *) tdgbl->action->act_file->fil_length,
+									tdgbl->action->act_file->fil_next->fil_name,
+									0, 0);	/* msg 272 Warning -- free disk space exhausted for file %s, the rest of the bytes (%d) will be written to file %s */
+						tdgbl->action->act_file->fil_next->fil_length +=
+							tdgbl->action->act_file->fil_length;
+						tdgbl->action->act_file =
+							tdgbl->action->act_file->fil_next;
+						tdgbl->file_desc = tdgbl->action->act_file->fil_fd;
+					}
+					else
+					{
+						BURP_error(270, 0, 0, 0, 0, 0);	/* msg 270 free disk space exhausted */
+					}
+					cnt = 0;
+					continue;
+				}
+				/* Note: there is an assumption here, that if header data is being
+				   written, it is really being rewritten, so at least all the
+				   header data will be written */
+
+				if (left != size_to_write)
+				{
+					/* Wrote some, move remainder up in buffer. */
+
+					/* NOTE: We should NOT use memcpy here.  We're moving overlapped
+					   data and memcpy does not guanantee the order the data
+					   is moved in */
+					memcpy(tdgbl->mvol_io_data, ptr, left);
+				}
+				left += tdgbl->mvol_io_data - tdgbl->mvol_io_header;
+				if (left >= (int) tdgbl->mvol_io_buffer_size)
+					full_buffer = TRUE;
+				else
+					full_buffer = FALSE;
+				tdgbl->file_desc =
+					next_volume(tdgbl->file_desc, MODE_WRITE, full_buffer);
+				if (full_buffer)
+				{
+					left -= tdgbl->mvol_io_buffer_size;
+					memcpy(tdgbl->mvol_io_data,
+						   tdgbl->mvol_io_header + tdgbl->mvol_io_buffer_size,
+						   left);
+					tdgbl->mvol_cumul_count_kb +=
+						tdgbl->mvol_io_buffer_size / 1024;
+					tdgbl->mvol_io_buffer = tdgbl->mvol_io_data;
+				}
+				else
+					tdgbl->mvol_io_buffer = tdgbl->mvol_io_header;
+				break;
+			}
+#ifndef NETWARE_386
+			else if (!SYSCALL_INTERRUPTED(errno))
+			{
+				BURP_error_redirect(0, 221, NULL, NULL);
+				/* msg 221 Unexpected I/O error while writing to backup file */
+			}
+#endif
+		}
+	}
+
+#ifdef DEBUG
+	{
+		int dbg_cnt;
+		if (debug_on)
+			for (dbg_cnt = 0; dbg_cnt < cnt; dbg_cnt++)
+				ib_printf("%d,\n", *(ptr + dbg_cnt));
+	}
+#endif
+
+/* After the first block of first volume is written (using a default block size)
+   change the block size to one that reflects the user's blocking factor.  By
+   making the first block a standard size we will avoid restore problems. */
+
+	tdgbl->mvol_io_buffer_size = tdgbl->mvol_actual_buffer_size;
+
+	ptr = tdgbl->mvol_io_buffer + left;
+	*ptr++ = c;
+	*io_ptr = ptr;
+	*io_cnt = tdgbl->mvol_io_buffer_size - 1 - left;
+
+	return c;
+}
+
+
+//____________________________________________________________
+//
+// Read a chunk of data from the IO buffer.
+// Return a pointer to the first position NOT written from.
+//
+UCHAR *MVOL_write_block(TGBL tdgbl, UCHAR * ptr, ULONG count)
+{
+/* To handle tape drives & Multi-volume boundaries, use the normal
+ * write function, instead of doing a more optimal bulk write.
+ */
+
+	while (count)
+	{
+		ULONG n;
+
+		/* If buffer full, dump it */
+		if (tdgbl->io_cnt <= 0)
+		{
+			(void) MVOL_write(*ptr++, &tdgbl->io_cnt, &tdgbl->io_ptr);
+
+			/* One byte was written by MVOL_write */
+			count--;
+		}
+
+		n = MIN(count, (ULONG) tdgbl->io_cnt);
+
+		/* Copy data to the IO buffer */
+
+		(void) memcpy(tdgbl->io_ptr, ptr, n);
+		ptr += n;
+
+		/* Skip ahead in current buffer */
+
+		count -= n;
+		tdgbl->io_cnt -= n;
+		tdgbl->io_ptr += n;
+
+	}
+	return ptr;
+}
+
+
+//____________________________________________________________
+//
+// We ran into an unsupported attribute.  This shouldn't happen,
+// but it isn't the end of the world.
+//
+static void bad_attribute(USHORT attribute, USHORT type)
+{
+	SSHORT l;
+	TEXT name[128];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	gds__msg_format(0, 12, type, sizeof(name), name, 0, 0, 0, 0, 0);
+	BURP_print(80, name, (TEXT *) attribute, NULL, NULL, NULL);
+	/* msg 80  don't recognize %s attribute %ld -- continuing */
+	l = GET();
+	if (l)
+	{
+		do {
+			GET();
+		} while (--l);
+	}
+}
+
+
+//____________________________________________________________
+//
+//
+static void file_not_empty(void)
+{
+	TGBL tdgbl = GET_THREAD_DATA;
+
+	tdgbl->mvol_empty_file = FALSE;
+}
+
+
+//____________________________________________________________
+//
+// Get a numeric value from the input stream.
+//
+static SLONG get_numeric(void)
+{
+	SLONG value[2];
+
+	SSHORT length = get_text((UCHAR*) value, sizeof(value));
+
+	return gds__vax_integer((UCHAR*) value, length);
+}
+
+
+//____________________________________________________________
+//
+// Move a text attribute to a string and fill.
+//
+static int get_text(UCHAR* text, SSHORT length)
+{
+	unsigned int l, l2;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	l = GET();
+	length -= l;
+	l2 = l;
+
+	if (length < 0)
+	{
+		BURP_error_redirect(0, 46, NULL, NULL);	/* msg 46 string truncated */
+	}
+
+	if (l)
+	{
+		do {
+			*text++ = GET();
+		} while (--l);
+	}
+
+	*text = 0;
+
+	return l2;
+}
+
+
+//____________________________________________________________
+//
+// Get specification for the next volume (tape).
+// Try to open it. Return file descriptor.
+//
+static void* next_volume( DESC handle, int mode, USHORT full_buffer)
+{
+	SCHAR new_file[MAX_FILE_NAME_LENGTH];
+	DESC new_desc;
+	ULONG temp_buffer_size;
+	USHORT format;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* We must  close the old handle before the user inserts
+   another tape, or something. */
+
+#ifdef WIN_NT
+	if (handle != INVALID_HANDLE_VALUE)
+#else
+	if (handle > -1)
+#endif /* WIN_NT */
+	{
+		CLOSE(handle);
+	}
+
+	if (tdgbl->action->act_action == ACT_restore_join) {
+		tdgbl->action->act_file->fil_fd = INVALID_HANDLE_VALUE;
+		if ((tdgbl->action->act_total > tdgbl->action->act_file->fil_seq) &&
+			(tdgbl->action->act_file = tdgbl->action->act_file->fil_next) &&
+			(tdgbl->action->act_file->fil_fd != INVALID_HANDLE_VALUE))
+		{
+			return tdgbl->action->act_file->fil_fd;
+		}
+
+		BURP_error_redirect(0, 50, NULL, NULL);	/* msg 50 unexpected end of file on backup file */
+	}
+
+/* If we got here, we've got a live one... Up the volume number unless
+   the old file was empty */
+
+	if (!tdgbl->mvol_empty_file)
+		(tdgbl->mvol_volume_count)++;
+
+	tdgbl->mvol_empty_file = TRUE;
+
+/* Loop until we have opened a file successfully */
+
+	for (new_desc = INVALID_HANDLE_VALUE;;) {
+		/* We aim to keep our descriptors clean */
+
+		if (new_desc != INVALID_HANDLE_VALUE) {
+			CLOSE(new_desc);
+			new_desc = INVALID_HANDLE_VALUE;
+		}
+
+		/* Get file name to try */
+
+		prompt_for_name(new_file, sizeof(new_file));
+
+#ifdef WIN_NT
+		if ((new_desc = MVOL_open(new_file, mode, OPEN_ALWAYS))
+			== INVALID_HANDLE_VALUE)
+#else
+		if ((new_desc = open(new_file, mode, OPEN_MASK)) < 0)
+#endif /* WIN_NT */
+		{
+			BURP_print(222, new_file, 0, 0, 0, 0);
+			/* msg 222 \n\nCould not open file name \"%s\"\n */
+			continue;
+		}
+
+		/* If the file is to be writable, probe it, and make sure it is... */
+
+#ifdef WIN_NT
+		if (mode == MODE_WRITE)
+#else
+		if (BITS_ON(mode, O_WRONLY) || BITS_ON(mode, O_RDWR))
+#endif /* WIN_NT */
+		{
+			if (!write_header(new_desc, 0L, full_buffer))
+			{
+				BURP_print(223, new_file, 0, 0, 0, 0);
+				/* msg223 \n\nCould not write to file \"%s\"\n */
+				continue;
+			}
+			else
+			{
+				BURP_msg_put(261, (TEXT *) (tdgbl->mvol_volume_count),
+							 new_file, 0, 0, 0);
+				/* Starting with volume #vol_count, new_file */
+				BURP_verbose(75, new_file, 0, 0, 0, 0);	/* msg 75  creating file %s */
+			}
+		}
+		else
+		{
+			/* File is open for read only.  Read the header. */
+
+			if (!read_header(new_desc, &temp_buffer_size, &format, FALSE))
+			{
+				BURP_print(224, new_file, 0, 0, 0, 0);
+				continue;
+			}
+			else
+			{
+				BURP_msg_put(261, (TEXT *) (tdgbl->mvol_volume_count),
+							 new_file, 0, 0, 0);
+				/* Starting with volume #vol_count, new_file */
+				BURP_verbose(100, new_file, 0, 0, 0, 0);	/* msg 100  opened file %s */
+			}
+		}
+
+		strcpy(tdgbl->mvol_old_file, new_file);
+		return reinterpret_cast<void*>(new_desc);
+	}
+}
+
+
+//____________________________________________________________
+//
+//
+static void prompt_for_name(SCHAR* name, int length)
+{
+	IB_FILE*	term_in;
+	IB_FILE*	term_out;
+	SCHAR*		name_ptr;
+	TEXT		msg[128];
+
+	TGBL tdgbl = GET_THREAD_DATA;
+
+/* Unless we are operating as a service, stdin can't necessarily be trusted.
+   Get a location to read from. */
+
+	if (tdgbl->gbl_sw_service_gbak ||
+		isatty(ib_fileno(ib_stdout)) ||
+		!(term_out = ib_fopen(TERM_OUTPUT, "w")))
+	{
+		term_out = ib_stdout;
+	}
+	if (tdgbl->gbl_sw_service_gbak ||
+		isatty(ib_fileno(ib_stdin)) ||
+		!(term_in = ib_fopen(TERM_INPUT, "r")))
+	{
+		term_in = ib_stdin;
+	}
+
+/* Loop until we have a file name to try */
+
+	for (;;)
+	{
+		/* If there was an old file name, use that prompt */
+
+		if (strlen(tdgbl->mvol_old_file) > 0)
+		{
+			BURP_msg_get(225, msg, (TEXT*) (tdgbl->mvol_volume_count - 1),
+						 tdgbl->mvol_old_file, 0, 0, 0);
+			ib_fprintf(term_out, msg);
+			BURP_msg_get(226, msg, 0, 0, 0, 0, 0);
+			/* \tPress return to reopen that file, or type a new\n\tname followed by return to open a different file.\n */
+			ib_fprintf(term_out, msg);
+		}
+		else	/* First volume */
+		{
+			BURP_msg_get(227, msg, 0, 0, 0, 0, 0);
+			/* Type a file name to open and hit return */
+			ib_fprintf(term_out, msg);
+		}
+		BURP_msg_get(228, msg, 0, 0, 0, 0, 0);	/* "  Name: " */
+		ib_fprintf(term_out, msg);
+
+		if (tdgbl->gbl_sw_service_gbak)
+		{
+			ib_putc('\001', term_out);
+		}
+		ib_fflush(term_out);
+		if (ib_fgets(name, length, term_in) == (SCHAR*) NULL)
+		{
+			BURP_msg_get(229, msg, 0, 0, 0, 0, 0);
+			/* \n\nERROR: Backup incomplete\n */
+			ib_fprintf(term_out, msg);
+			exit(FINI_ERROR);
+		}
+
+		/* If the user typed just a carriage return, they
+		   want the old file.  If there isn't one, reprompt */
+
+		if (name[0] == '\n')
+		{
+			if (strlen(tdgbl->mvol_old_file) > 0)
+			{
+				strcpy(name, tdgbl->mvol_old_file);
+				break;
+			}
+			else				/* reprompt */
+				continue;
+		}
+
+		/* OK, its a file name, strip the carriage return */
+
+		name_ptr = name;
+		while (*name_ptr && *name_ptr != '\n')
+		{
+			name_ptr++;
+		}
+		*name_ptr = 0;
+		break;
+	}
+
+	if (term_out != ib_stdout) {
+		ib_fclose(term_out);
+	}
+	if (term_in != ib_stdin) {
+		ib_fclose(term_in);
+	}
+}
+
+
+//____________________________________________________________
+//
+// Write an attribute starting with a null terminated string.
+//
+static void put_asciz( SCHAR attribute, TEXT * string)
+{
+	TEXT *p;
+	SSHORT l;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	for (p = string, l = 0; *p; p++)
+	{
+		l++;
+	}
+
+	PUT(attribute);
+	PUT(l);
+	if (l)
+	{
+		do
+		{
+			PUT(*string++);
+		} while (--l);
+	}
+}
+
+
+//____________________________________________________________
+//
+// Write a numeric value as an attribute.  The number is represented
+// low byte first, high byte last, as in VAX.
+//
+static void put_numeric( SCHAR attribute, int value)
+{
+	ULONG vax_value;
+	USHORT i;
+	UCHAR *p;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	vax_value = gds__vax_integer((UCHAR *) & value, sizeof(value));
+	p = (UCHAR *) & vax_value;
+
+	PUT(attribute);
+	PUT(sizeof(value));
+
+	for (i = 0; i < sizeof(value); i++) {
+		PUT(*p++);
+	}
+}
+
+
+//____________________________________________________________
+//
+// Functional description
+//
+static BOOLEAN read_header(DESC		handle,
+						   ULONG*	buffer_size,
+						   USHORT*	format,
+						   USHORT	init_flag)
+{
+	int attribute, temp;
+	SSHORT l;
+	ULONG temp_buffer_size;
+	TEXT buffer[256], *p, msg[128];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* Headers are a version number, and a volume number */
+
+#ifndef WIN_NT
+	tdgbl->mvol_io_cnt =
+		read(handle, tdgbl->mvol_io_buffer, tdgbl->mvol_actual_buffer_size);
+#else
+	ReadFile(handle, tdgbl->mvol_io_buffer, tdgbl->mvol_actual_buffer_size,
+			 reinterpret_cast < DWORD * >(&tdgbl->mvol_io_cnt), NULL);
+#endif
+	tdgbl->mvol_io_ptr = tdgbl->mvol_io_buffer;
+
+	if (GET_ATTRIBUTE(attribute) != rec_burp)
+		BURP_error_redirect(0, 45, NULL, NULL);	/* msg 45 expected backup description record */
+
+	while (GET_ATTRIBUTE(attribute) != att_end)
+	{
+		switch (attribute)
+		{
+		case att_backup_blksize:
+			temp_buffer_size = get_numeric();
+			if (init_flag)
+				*buffer_size = temp_buffer_size;
+			break;
+
+		case att_backup_compress:
+			temp = get_numeric();
+			if (init_flag)
+				tdgbl->gbl_sw_compress = temp;
+			break;
+
+		case att_backup_date:
+			l = GET();
+			if (init_flag)
+				p = tdgbl->gbl_backup_start_time;
+			else
+				p = buffer;
+			if (l)
+				do
+					*p++ = GET();
+				while (--l);
+			*p = 0;
+			if (!init_flag && strcmp(buffer, tdgbl->gbl_backup_start_time))
+			{
+				BURP_msg_get(230, msg,
+							 tdgbl->gbl_backup_start_time, buffer, 0, 0, 0);
+				/* Expected backup start time %s, found %s\n */
+				ib_printf(msg);
+				return FALSE;
+			}
+			break;
+
+		case att_backup_file:
+			l = GET();
+			if (init_flag)
+			{
+				p = tdgbl->mvol_db_name_buffer;
+			}
+			else
+			{
+				p = buffer;
+			}
+			if (l)
+			{
+				do {
+					*p++ = GET();
+				} while (--l);
+			}
+			*p = 0;
+			if (!init_flag && strcmp(buffer, tdgbl->gbl_database_file_name))
+			{
+				BURP_msg_get(231, msg,
+							 tdgbl->gbl_database_file_name, buffer, 0, 0, 0);
+				/* Expected backup database %s, found %s\n */
+				ib_printf(msg);
+				return FALSE;
+			}
+			if (init_flag)
+			{
+				tdgbl->gbl_database_file_name = tdgbl->mvol_db_name_buffer;
+			}
+			break;
+
+		case att_backup_format:
+			temp = get_numeric();
+			if (init_flag)
+				*format = temp;
+			break;
+
+		case att_backup_transportable:
+			temp = get_numeric();
+			if (init_flag)
+			{
+				tdgbl->gbl_sw_transportable = temp;
+			}
+			break;
+
+		case att_backup_volume:
+			temp = get_numeric();
+			if (temp != tdgbl->mvol_volume_count)
+			{
+				BURP_msg_get(232, msg,
+							 (TEXT*) (tdgbl->mvol_volume_count),
+							 (TEXT*) temp, 0, 0, 0);
+				/* Expected volume number %d, found volume %d\n */
+				ib_printf(msg);
+				return FALSE;
+			}
+			break;
+
+		default:
+			/* TMN: Here we should really have the following assert */
+			/* assert(attribute <= MAX_USHORT); */
+			bad_attribute((USHORT) attribute, 59);	/* msg 59 backup */
+		}
+	}
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//
+//
+static BOOLEAN write_header(DESC handle,
+							ULONG backup_buffer_size,
+							USHORT full_buffer)
+{
+	ULONG vax_value;
+	USHORT i;
+	UCHAR *p, *q;
+	TGBL tdgbl;
+#ifdef WIN_NT
+	DWORD bytes_written, err;
+#else
+	ULONG bytes_written;
+#endif
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (backup_buffer_size)
+	{
+		tdgbl->mvol_io_header = tdgbl->mvol_io_buffer;
+
+		PUT(rec_burp);
+		PUT_NUMERIC(att_backup_format, ATT_BACKUP_FORMAT);
+
+		if (tdgbl->gbl_sw_compress)
+			PUT_NUMERIC(att_backup_compress, 1);
+
+		if (tdgbl->gbl_sw_transportable)
+			PUT_NUMERIC(att_backup_transportable, 1);
+
+		PUT_NUMERIC(att_backup_blksize, backup_buffer_size);
+
+		tdgbl->mvol_io_volume = tdgbl->mvol_io_ptr + 2;
+		PUT_NUMERIC(att_backup_volume, tdgbl->mvol_volume_count);
+
+		PUT_ASCIZ(att_backup_file, tdgbl->gbl_database_file_name);
+		PUT_ASCIZ(att_backup_date, tdgbl->gbl_backup_start_time);
+		PUT(att_end);
+
+		tdgbl->mvol_io_data = tdgbl->mvol_io_ptr;
+	}
+	else
+	{
+		vax_value =
+			gds__vax_integer((UCHAR*) &(tdgbl->mvol_volume_count),
+							 sizeof(tdgbl->mvol_volume_count));
+		p = (UCHAR *) & vax_value;
+		q = tdgbl->mvol_io_volume;
+		for (i = 0; i < sizeof(int); i++)
+		{
+			*q++ = *p++;
+		}
+	}
+
+	if (full_buffer)
+	{
+#ifdef WIN_NT
+		err =
+			WriteFile(handle, tdgbl->mvol_io_header,
+					  tdgbl->mvol_io_buffer_size, &bytes_written, NULL);
+#else
+		bytes_written = write(handle, tdgbl->mvol_io_header,
+							  tdgbl->mvol_io_buffer_size);
+#endif /* WIN_NT */
+
+		if (bytes_written != tdgbl->mvol_io_buffer_size)
+		{
+			return FALSE;
+		}
+
+		if (tdgbl->action->act_action == ACT_backup_split)
+		{
+			if (tdgbl->action->act_file->fil_length > bytes_written)
+			{
+				tdgbl->action->act_file->fil_length -= bytes_written;
+			}
+			else
+			{
+				tdgbl->action->act_file->fil_length = 0;
+			}
+		}
+		tdgbl->mvol_empty_file = FALSE;
+	}
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//
+// Write a header record for split operation
+//
+BOOLEAN MVOL_split_hdr_write(void)
+{
+	TGBL tdgbl;
+	TEXT buffer[HDR_SPLIT_SIZE + 1];
+	time_t seconds;
+#ifdef WIN_NT
+	DWORD bytes_written;
+#else
+	ULONG bytes_written;
+#endif
+
+
+	tdgbl = GET_THREAD_DATA;
+
+	assert(tdgbl->action->act_action == ACT_backup_split);
+	assert(tdgbl->action->act_file->fil_fd != INVALID_HANDLE_VALUE);
+
+	if (tdgbl->action->act_file->fil_length < HDR_SPLIT_SIZE) {
+		return FALSE;
+	}
+
+	seconds = time((time_t *) NULL);
+
+	sprintf(buffer, "%s%.24s      , file No. %4d of %4d, %-27.27s",
+			HDR_SPLIT_TAG,
+			ctime(&seconds),
+			tdgbl->action->act_file->fil_seq,
+			tdgbl->action->act_total,
+			tdgbl->action->act_file->fil_name);
+
+#ifdef WIN_NT
+	DWORD err = WriteFile(tdgbl->action->act_file->fil_fd,
+							buffer,
+							HDR_SPLIT_SIZE,
+							&bytes_written,
+							NULL);
+#else
+	bytes_written =
+		write(tdgbl->action->act_file->fil_fd, buffer, HDR_SPLIT_SIZE);
+#endif /* WIN_NT */
+
+	if (bytes_written != HDR_SPLIT_SIZE) {
+		return FALSE;
+	}
+
+	tdgbl->action->act_file->fil_length -= bytes_written;
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//
+// Read a header record for join operation
+//
+BOOLEAN MVOL_split_hdr_read(void)
+{
+	TGBL tdgbl = GET_THREAD_DATA;
+
+	assert(tdgbl->action->act_file->fil_fd != INVALID_HANDLE_VALUE);
+
+	if (tdgbl->action && tdgbl->action->act_file &&
+		(tdgbl->action->act_file->fil_fd != INVALID_HANDLE_VALUE))
+	{
+		TEXT buffer[HDR_SPLIT_SIZE];
+		int cnt;
+
+#ifdef WIN_NT
+		ReadFile(tdgbl->action->act_file->fil_fd,
+					buffer,
+					HDR_SPLIT_SIZE,
+					reinterpret_cast<DWORD*>(&cnt),
+					NULL);
+#else
+		cnt = read(tdgbl->action->act_file->fil_fd, buffer, HDR_SPLIT_SIZE);
+#endif
+		if ((cnt == HDR_SPLIT_SIZE) &&
+			((strncmp(buffer, HDR_SPLIT_TAG, (sizeof(HDR_SPLIT_TAG) - 1)) == 0) ||
+			(strncmp(buffer, HDR_SPLIT_TAG5, (sizeof(HDR_SPLIT_TAG) - 1)) == 0)))
+		{
+			HDR_SPLIT hdr = (HDR_SPLIT) buffer;
+			if ((tdgbl->action->act_file->fil_seq = atoi(hdr->hdr_split_sequence)) > 0 &&
+				(tdgbl->action->act_total = atoi(hdr->hdr_split_total)) > 0 &&
+				(tdgbl->action->act_file->fil_seq <= tdgbl->action->act_total))
+			{
+				return TRUE;
+			}
+		}
+	}
+
+	return FALSE;
+}
+
+
+} // extern "C"
diff --git a/src/burp/mvol_proto.h b/src/burp/mvol_proto.h
new file mode 100644
index 0000000000..94a451c06a
--- /dev/null
+++ b/src/burp/mvol_proto.h
@@ -0,0 +1,54 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		mvol_proto.h		
+ *	DESCRIPTION:	Prototype Header file for mvol.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _BURP_MVOL_PROTO_H_
+#define _BURP_MVOL_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void	MVOL_fini_read (int *);
+extern void	MVOL_fini_write (int *, UCHAR * *, int *);
+extern void	MVOL_init (ULONG);
+extern void	MVOL_init_read (UCHAR *, UCHAR *, USHORT *, int *, UCHAR * *);
+extern void	MVOL_init_write (UCHAR *, UCHAR *, int *, UCHAR * *);
+extern BOOLEAN	MVOL_split_hdr_write (void);
+extern BOOLEAN	MVOL_split_hdr_read (void);
+extern int	MVOL_read (int *, UCHAR * *);
+extern UCHAR *	MVOL_read_block (TGBL, UCHAR *, ULONG);
+extern void	MVOL_skip_block (TGBL, ULONG);
+extern UCHAR	MVOL_write (UCHAR, int *, UCHAR * *);
+extern UCHAR *	MVOL_write_block (TGBL, UCHAR *, ULONG);
+#if defined WIN_NT && defined _WINNT_
+/* the _WINNT_ symbol is defined if winnt.h has been included */
+/* it contains the definition of a HANDLE */
+/* those files that don't include winnt.h don't need MVOL_open either */
+extern HANDLE   MVOL_open (TEXT*,DWORD,DWORD);
+#endif
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif	/* _BURP_MVOL_PROTO_H_ */
diff --git a/src/burp/resto_proto.h b/src/burp/resto_proto.h
new file mode 100644
index 0000000000..e3ca73d756
--- /dev/null
+++ b/src/burp/resto_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		resto_proto.h
+ *	DESCRIPTION:	Prototype Header file for restore.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _BURP_RESTO_PROTO_H_
+#define _BURP_RESTO_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int	RESTORE_restore (TEXT *, TEXT *);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif	/* _BURP_RESTO_PROTO_H_ */
diff --git a/src/burp/restore.e b/src/burp/restore.e
new file mode 100644
index 0000000000..66fb2c357c
--- /dev/null
+++ b/src/burp/restore.e
@@ -0,0 +1,7164 @@
+/*
+ *	PROGRAM:	JRD Backup and Restore Program
+ *	MODULE:		restore.e
+ *	DESCRIPTION:	Restore routine
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Toni Martir: Verbose records restored as RESTORE_VERBOSE_INTERVAL,
+ * also verbose restoring indexes as DEFERRED when verbose
+ */
+/*
+$Id: restore.e,v 1.1.1.1 2001-05-23 13:26:04 tamlin Exp $
+*/
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include <errno.h>
+#include "../burp/burp.h"
+#include "../jrd/align.h"
+#include "../jrd/common.h"
+#include "../jrd/flags.h"
+#include "../jrd/license.h"
+#include "../jrd/obj.h"
+#include "../jrd/ods.h"
+#include "../burp/burp_proto.h"
+#include "../burp/canon_proto.h"
+#include "../burp/misc_proto.h"
+#include "../burp/mvol_proto.h"
+#include "../burp/resto_proto.h"
+#include "../intl/charsets.h"
+#include "../jrd/gdsassert.h"
+#include "../remote/protocol.h"
+
+/* For netware the follow DB handle is #defined to be a value stored    */
+/* in thread data.  This is also done for other statics generated by    */
+/* GPRE.  This is to avoid multiple threading problems with module      */
+/* level statics.                                                       */
+DATABASE DB = STATIC FILENAME "yachts.lnk";
+
+#define DB          tdgbl->db_handle
+#define gds__trans  tdgbl->tr_handle
+#define isc_status  tdgbl->status
+
+/***
+#define DEBUG	1
+***/
+
+#define STUFF(byte)		{*blr++ = (UCHAR) (byte);}
+#define STUFF_WORD(word)	{STUFF (word); STUFF ((word) >> 8);}
+#define STUFF_LONG(lword)	{STUFF_WORD (lword); STUFF_WORD ((lword) >> 16);}
+#define STUFF_INT64(i64)        {STUFF_LONG (i64); STUFF_LONG ((i64) >> 32);}
+
+#define DB_VERSION_DDL4		4	/* ods4 db */
+#define DB_VERSION_DDL5		5	/* ods5 db */
+#define DB_VERSION_DDL8		8	/* ods8 db */
+#define DB_VERSION_CURRENT	DB_VERSION_DDL8	/* v4.0 is ods8 */
+#define FOREIGN_KEY             "FOREIGN KEY"
+
+#define DEFERRED_ACTIVE         3	/* RDB$INDEX_INACTIVE setting for Foreign Keys 
+									 * This setting is used temporarily while
+									 * restoring a database. This was required
+									 * in order to differentiate a partial
+									 * "inactive" state of SOME indices from
+									 * "inactive" state of ALL indices (gbak -i)
+									 * -bsriram, 11-May-1999      BUG: 10016 
+									 */
+
+#define RESTORE_VERBOSE_INTERVAL	10000
+#define	cvtbl_len	28
+static CONST struct s_t_cvtbl {
+	SSHORT sub_type;
+	SSHORT character_set_id;
+	SSHORT collation_id;
+} sub_type_cvtbl[] = {
+	/* NOTE: The magic numbers for collation_id come from ordinal
+	 * position of the COLLATION() entries in jrd/intlnames.h
+	 */
+	101, CS_DOS_437, 1,			/* PDOX_ASCII */
+		102, CS_DOS_437, 2,		/* PDOX_INTL */
+		106, CS_DOS_437, 3,		/* PDOX_SWEDFIN */
+		160, CS_DOS_850, 0,		/* codepoint collation */
+		107, CS_DOS_865, 0,		/* codepoint collation */
+		105, CS_DOS_865, 1,		/* PDOX_NORDAN4 */
+		139, CS_LATIN1, 1,		/* DA_DA */
+		140, CS_LATIN1, 2,		/* DU_NL */
+		141, CS_LATIN1, 3,		/* FI_FI */
+		142, CS_LATIN1, 4,		/* FR_FR */
+		143, CS_LATIN1, 5,		/* FR_CA */
+		144, CS_LATIN1, 6,		/* DE_DE */
+		145, CS_LATIN1, 7,		/* IS_IS */
+		146, CS_LATIN1, 8,		/* IT_IT */
+		148, CS_LATIN1, 9,		/* NO_NO */
+		149, CS_LATIN1, 10,		/* ES_ES */
+		151, CS_LATIN1, 11,		/* SV_SV */
+		152, CS_LATIN1, 12,		/* EN_UK */
+		153, CS_LATIN1, 14,		/* EN_US */
+		154, CS_LATIN1, 15,		/* PT_PT */
+		180, CS_NEXT, 1,		/* NXT_US */
+		181, CS_NEXT, 2,		/* NXT_GERMANY */
+		182, CS_NEXT, 3,		/* NXT_FRANCE */
+		183, CS_NEXT, 4,		/* NXT_ITALY */
+		184, CS_NEXT, 5,		/* NXT_SPAIN */
+		201, CS_UNICODE_FSS, 0,	/* codepoint collation */
+		220, CS_SJIS, 0,		/* codepoint collation */
+		230, CS_EUCJ, 0			/* codepoint collation */
+};
+
+static void add_files(UCHAR *);
+static void bad_attribute(UCHAR, ATT_TYPE, USHORT);
+static USHORT check_db_version(void);
+static void create_database(UCHAR *);
+static void decompress(UCHAR *, USHORT);
+static void eat_blob(void);
+static REL find_relation(TEXT *);
+static int get_acl(TEXT *, ISC_QUAD *, ISC_QUAD *);
+static void get_array(REL, UCHAR *);
+static void get_blob(FLD, UCHAR *);
+static void get_blr_blob(ISC_QUAD *, USHORT);
+static BOOLEAN get_character_set(void);
+static BOOLEAN get_chk_constraint(void);
+static BOOLEAN get_collation(void);
+static REC_TYPE get_data(REL);
+static BOOLEAN get_exception(void);
+static FLD get_field(REL);
+static BOOLEAN get_field_dimensions(void);
+static BOOLEAN get_files(void);
+static BOOLEAN get_filter(void);
+static BOOLEAN get_function(void);
+static void get_function_arg(GDS_NAME);
+static BOOLEAN get_generator(void);
+static BOOLEAN get_global_field(void);
+static BOOLEAN get_index(REL);
+static void get_misc_blob(ISC_QUAD *, USHORT, USHORT);
+static SLONG get_numeric(void);
+static SINT64 get_int64(void);
+static BOOLEAN get_procedure(void);
+static BOOLEAN get_procedure_prm(GDS_NAME);
+static BOOLEAN get_ref_constraint(void);
+static BOOLEAN get_rel_constraint(void);
+static BOOLEAN get_relation(void);
+static BOOLEAN get_relation_data(void);
+static BOOLEAN get_sql_roles(void);
+static BOOLEAN get_security_class(void);
+static void get_source_blob(ISC_QUAD *, USHORT);
+static USHORT get_text(TEXT *, ULONG);
+static BOOLEAN get_trigger(void);
+static BOOLEAN get_trigger_message(void);
+static BOOLEAN get_trigger_old(REL);
+static BOOLEAN get_type(void);
+static BOOLEAN get_user_privilege(void);
+static BOOLEAN get_view(REL);
+static void ignore_array(REL);
+static void ignore_blob(void);
+static REC_TYPE ignore_data(REL);
+static void realign(UCHAR *, REL);
+static USHORT recompute_length(REL);
+static BOOLEAN restore(TEXT *, TEXT *);
+static void restore_security_class(TEXT *, TEXT *);
+static void store_blr_gen_id(GDS_NAME, SINT64);
+static void stuff_string(SCHAR **, TEXT *);
+static void update_global_field(void);
+static void general_on_error(void);
+static BOOLEAN bug_8183(TGBL);
+
+static UCHAR debug_on = 0;		/* able to turn this on in the debugger */
+
+static USHORT flag_on_line = TRUE;	/* indicates whether we will bring
+									   the database on-line :
+									   TRUE - we will
+									   FALSE - we will not */
+#ifdef sparc
+static CONST SSHORT old_sparcs[] =
+	{ 0, 0, 0, 2, 0, 0, 0, 0, 2, 4, 4, 4, 8, 8, 0, 0, 8, 8, 8 };
+#endif
+
+#define GET()			(--(tdgbl->io_cnt) >= 0 ? *(tdgbl->io_ptr)++ : MVOL_read (&tdgbl->io_cnt, &tdgbl->io_ptr))
+#define GET_SKIP(n)		MVOL_skip_block (tdgbl, n)
+#define GET_BLOCK(p,n)		MVOL_read_block (tdgbl, (p), (n))
+#define GET_ATTRIBUTE(att)	((att) = (ATT_TYPE) GET())
+#define GET_RECORD(att)		((att) = (REC_TYPE) GET())
+
+/* When skipping started, scan_next_attr will be changed from NO_SKIP     */
+/* to BEFORE_SKIP. When scanning for next valid attribute after skipping, */
+/* it will flip-flop between BEFORE_SKIP and AFTER_SKIP. When next valid  */
+/* attribute is found, it will be changed back to NO_SKIP by 'SKIP_SCAN'  */
+
+#define NO_SKIP		0			/* Not in skipping and scanning mode */
+#define BEFORE_SKIP	1			/* After skipping, before scanning next byte for valid attribute */
+#define AFTER_SKIP	2			/* After skipping and after scanning next byte for valid attribute */
+
+#define SKIP_INIT		(scan_next_attr = NO_SKIP)
+#define SKIP_SCAN		(scan_next_attr == AFTER_SKIP ?		\
+					scan_next_attr = BEFORE_SKIP :	\
+					scan_next_attr == BEFORE_SKIP ?	\
+			          	scan_next_attr = NO_SKIP : 0)
+/* User Privilege Flags */
+
+#define USER_PRIV_USER			1
+#define USER_PRIV_GRANTOR		2
+#define USER_PRIV_PRIVILEGE		4
+#define USER_PRIV_GRANT_OPTION		8
+#define USER_PRIV_OBJECT_NAME		16
+#define USER_PRIV_FIELD_NAME		32
+#define USER_PRIV_USER_TYPE		64
+#define USER_PRIV_OBJECT_TYPE		128
+
+
+
+int RESTORE_restore( TEXT * file_name, TEXT * database_name)
+{
+/**************************************
+ *
+ *	R E S T O R E _ r e s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Recreate a database from a backup.
+ *
+ **************************************/
+	int cumul_count_kb;
+	REL relation;
+	PRC procedure;
+	isc_req_handle req_handle1 = NULL, req_handle2 = NULL, req_handle4 = NULL;
+	long req_status[20];
+	TGBL tdgbl;
+	long db_handle;
+	UCHAR dpb[128], *d, *q;
+	SSHORT l;
+	isc_req_handle req_handle3 = NULL;
+	TEXT index_name[32];
+	long error_code;
+
+	tdgbl = GET_THREAD_DATA;
+
+	tdgbl->io_ptr = (UCHAR *) NULL;
+	tdgbl->io_cnt = 0;
+
+	tdgbl->relations = (REL) NULL;
+	tdgbl->procedures = (PRC) 0;
+	tdgbl->RESTORE_format = 0;
+	tdgbl->global_trans = 0;
+
+	tdgbl->gbl_sw_transportable = tdgbl->gbl_sw_compress = FALSE;
+
+	if (!restore(file_name, database_name))
+		return FINI_ERROR;
+
+	BURP_verbose(76, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+/* msg 76 creating indexes */
+
+	COMMIT;
+	ON_ERROR
+	    /* Fix for bug_no 8055: 
+	       don't throw away the database just because an index
+	       could not be made */
+	    while (error_code = tdgbl->status_vector[1])
+	    {
+	        switch (error_code)
+	        {
+	            case gds__sort_mem_err:
+	            case gds__no_dup:
+	                strcpy(index_name, (TEXT *)tdgbl->status_vector[3]);
+	                BURP_print_status(tdgbl->status_vector);
+	                FOR (REQUEST_HANDLE req_handle3)
+	                 IDX IN RDB$INDICES WITH IDX.RDB$INDEX_NAME EQ index_name
+	                 {
+	                    BURP_verbose(243,index_name,NULL_PTR,NULL_PTR,NULL_PTR,NULL_PTR);
+	                    MODIFY IDX USING IDX.RDB$INDEX_INACTIVE = TRUE;
+	                 }
+	                    BURP_print(240, index_name, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                    /* msg 240 Index \"%s\" failed to activate because: */
+	                    if ( error_code == gds__no_dup )
+	                    {
+	                        BURP_print(241, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                        /* msg 241 The unique index has duplicate values or NULLs */
+	                        BURP_print(242, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                        /* msg 242 Delete or Update duplicate values or NULLs, and activate index with */
+	                    }
+	                    else
+	                    {
+	                        BURP_print(244, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                        /* msg 244 Not enough disk space to create the sort file for an index */
+	                        BURP_print(245, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                        /* msg 245 Set the TMP environment variable to a directory on a filesystem that does have enough space, and activate index with */
+	                    }
+	                    BURP_print(243, index_name, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                    /* msg 243 ALTER INDEX \"%s\" ACTIVE; */
+	                    END_MODIFY;
+	                END_FOR;
+	                /* don't bring the database on-line */
+	                flag_on_line = FALSE;
+	                break;
+	            default:
+	                general_on_error ();
+	       break;
+	        }
+	        COMMIT
+	        ON_ERROR
+	            continue;
+	        END_ERROR
+	    }
+	END_ERROR;
+/* Activate the indices for foreign keys and do another commit  */
+	if (!(tdgbl->gbl_sw_deactivate_indexes)) {
+
+		/* Block added to verbose index creation by Toni Martir */
+		if (tdgbl->gbl_sw_verbose) {
+			EXEC SQL SET TRANSACTION ISOLATION LEVEL READ COMMITTED
+				NO_AUTO_UNDO;
+			if (gds__status[1])
+				EXEC SQL SET TRANSACTION;
+
+			/* Activate first indexes that are not foreign keys */
+	       FOR (REQUEST_HANDLE req_handle1) IDS IN RDB$INDICES WITH
+	           IDS.RDB$INDEX_INACTIVE EQ DEFERRED_ACTIVE AND
+	            IDS.RDB$FOREIGN_KEY MISSING
+	               MODIFY IDS USING IDS.RDB$INDEX_INACTIVE=FALSE;
+	           END_MODIFY;
+	           ON_ERROR
+	               general_on_error();
+	           END_ERROR;
+	        
+	           SAVE
+	           /* existing ON_ERROR continues past error, beck */
+	           ON_ERROR
+	               BURP_print (173, IDS.RDB$INDEX_NAME, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	               BURP_print_status (tdgbl->status);
+	               MODIFY IDS USING 
+	                   IDS.RDB$INDEX_INACTIVE = TRUE;
+	               END_MODIFY;
+	               ON_ERROR
+	                   general_on_error ();
+	               END_ERROR;
+	           END_ERROR;
+	           BURP_verbose(122,IDS.RDB$INDEX_NAME,NULL_PTR,NULL_PTR,NULL_PTR,NULL_PTR);
+	       END_FOR;
+	       ON_ERROR
+	           general_on_error ();
+	       END_ERROR;
+			if (req_handle1)
+				isc_release_request(req_status, &req_handle1);
+			COMMIT;
+	       ON_ERROR
+	           general_on_error ();
+	       END_ERROR;
+		}
+
+
+		EXEC SQL SET TRANSACTION ISOLATION LEVEL READ COMMITTED NO_AUTO_UNDO;
+		if (gds__status[1])
+			EXEC SQL SET TRANSACTION;
+
+		/* Only activate Foreign keys that have been marked for deferred
+		 * activation. 
+		 * -bsriram, 11-May-1999             BUG: 10016 
+		 */
+	    FOR (REQUEST_HANDLE req_handle1)
+	        CNST IN RDB$RELATION_CONSTRAINTS 
+	        CROSS IDS IN RDB$INDICES WITH
+	        CNST.RDB$CONSTRAINT_TYPE EQ FOREIGN_KEY AND
+	        CNST.RDB$INDEX_NAME EQ IDS.RDB$INDEX_NAME AND
+	        IDS.RDB$INDEX_INACTIVE EQ DEFERRED_ACTIVE
+	
+	
+	        MODIFY IDS USING 
+	                IDS.RDB$INDEX_INACTIVE = FALSE;
+	        END_MODIFY;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	
+	        SAVE
+	        /* existing ON_ERROR continues past error, beck */
+	        ON_ERROR
+	            BURP_print (173, IDS.RDB$INDEX_NAME, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	            BURP_print_status (tdgbl->status);
+	            MODIFY IDS USING 
+	                IDS.RDB$INDEX_INACTIVE = TRUE;
+	            END_MODIFY;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+	        END_ERROR;
+	        BURP_verbose(122,IDS.RDB$INDEX_NAME,NULL_PTR,NULL_PTR,NULL_PTR,NULL_PTR);
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+		if (req_handle1)
+			isc_release_request(req_status, &req_handle1);
+		COMMIT;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+	}
+
+	if (tdgbl->global_trans)
+	{
+		EXEC SQL COMMIT TRANSACTION tdgbl->global_trans;
+		if (gds__status[1])
+			general_on_error();
+		/* Check to see if there is a warning */
+		if (gds__status[0] == gds_arg_gds &&
+			gds__status[1] == 0 &&
+			gds__status[2] != gds_arg_end)
+		{
+			BURP_print_warning(gds__status);
+		}
+	}
+
+	EXEC SQL SET TRANSACTION ISOLATION LEVEL READ COMMITTED NO_AUTO_UNDO;
+	if (gds__status[1])
+		EXEC SQL SET TRANSACTION;
+/*
+** Change ownership of any procedures necessary 
+*/
+
+	for (procedure = tdgbl->procedures; procedure;
+		 procedure = procedure->prc_next)
+		if (procedure->prc_owner[0])
+			FOR (REQUEST_HANDLE req_handle4)
+				X IN RDB$PROCEDURES WITH X.RDB$PROCEDURE_NAME EQ procedure->prc_name
+	
+				MODIFY X
+					strcpy (X.RDB$OWNER_NAME, procedure->prc_owner);
+				END_MODIFY;
+				ON_ERROR
+					if (req_handle4)
+						isc_release_request (req_status, &req_handle4);
+					general_on_error ();
+				END_ERROR;
+	
+				restore_security_class (procedure->prc_owner, X.RDB$SECURITY_CLASS);
+	
+			END_FOR;
+		ON_ERROR
+			if (req_handle4)
+			{
+				isc_release_request(req_status, &req_handle4);
+			}
+			general_on_error ();
+		END_ERROR;
+
+			if (req_handle4)
+				isc_release_request(req_status, &req_handle4);
+
+/* Change ownership of any relations necessary */
+
+	for (relation = tdgbl->relations; relation; relation = relation->rel_next)
+		if (relation->rel_owner[0])
+	    FOR (REQUEST_HANDLE req_handle2)
+	        X IN RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ relation->rel_name
+	       MODIFY X
+	       strcpy (X.RDB$OWNER_NAME, relation->rel_owner);
+	       END_MODIFY;
+	        ON_ERROR
+	            if (req_handle2)
+	                isc_release_request (req_status, &req_handle2);
+	            general_on_error ();
+	        END_ERROR;
+	
+	   restore_security_class (relation->rel_owner, X.RDB$SECURITY_CLASS);
+	   restore_security_class (relation->rel_owner, X.RDB$DEFAULT_CLASS);
+	
+	   END_FOR;
+	    ON_ERROR
+	   if (req_handle2)
+	       isc_release_request (req_status, &req_handle2);
+	        general_on_error ();
+	    END_ERROR;
+			if (req_handle2)
+				isc_release_request(req_status, &req_handle2);
+
+/* Now that changing ownership of tables is over, it is safe to
+   update the database security class in RDB$DATABASE */
+
+	if (tdgbl->database_security_class[0]) {	/* Do it only if it's not NULL */
+	    FOR (REQUEST_HANDLE req_handle1)
+	    X IN RDB$DATABASE
+	       MODIFY X USING
+	       strncpy(X.RDB$SECURITY_CLASS, tdgbl->database_security_class,
+	           sizeof(X.RDB$SECURITY_CLASS));
+	       END_MODIFY;
+	   ON_ERROR
+	       if (req_handle1)
+	       isc_release_request (req_status, &req_handle1);
+	       general_on_error ();
+	   END_ERROR;
+	    END_FOR;
+	    ON_ERROR
+	   if (req_handle1)
+	       isc_release_request (req_status, &req_handle1);
+	   general_on_error ();
+	    END_ERROR;
+
+		if (req_handle1)
+			isc_release_request(req_status, &req_handle1);
+	}
+
+	COMMIT;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+/* Check to see if there is a warning */
+	if (gds__status[0] == gds_arg_gds && gds__status[1] == 0
+		&& gds__status[2] != gds_arg_end)
+		BURP_print_warning(gds__status);
+
+	BURP_verbose(88, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+/* msg 88 finishing, closing, and going home */
+
+	MVOL_fini_read(&cumul_count_kb);
+
+/* attach database again to put it online */
+
+	d = dpb;
+	*d++ = (UCHAR) gds__dpb_version1;
+
+	if (flag_on_line) {
+		*d++ = (UCHAR) gds__dpb_online;
+		*d++ = 0;
+	}
+
+	if (tdgbl->gbl_sw_user) {
+		*d++ = (UCHAR) gds__dpb_user_name;
+		*d++ = (UCHAR) strlen(tdgbl->gbl_sw_user);
+		for (q = tdgbl->gbl_sw_user; *q;)
+			*d++ = *q++;
+	}
+
+	if (tdgbl->gbl_sw_password) {
+		if (!tdgbl->gbl_sw_service_thd)
+			*d++ = (UCHAR) gds__dpb_password;
+		else
+			*d++ = (UCHAR) gds__dpb_password_enc;
+		*d++ = (UCHAR) strlen(tdgbl->gbl_sw_password);
+		for (q = tdgbl->gbl_sw_password; *q;)
+			*d++ = *q++;
+	}
+
+/* set sync writes to engine default */
+	*d++ = (UCHAR) gds__dpb_force_write;
+	*d++ = 1;
+	*d++ = (UCHAR) tdgbl->hdr_forced_writes;	/* set forced writes to the value which was in the header */
+
+	l = d - dpb;
+	db_handle = 0;
+	if (isc_attach_database(tdgbl->status_vector, 0, GDS_VAL(database_name),
+							(isc_db_handle *) GDS_REF(db_handle), l, dpb))
+		general_on_error();
+	if (isc_detach_database
+		(tdgbl->status_vector,
+		 (isc_db_handle *) GDS_REF(db_handle))) general_on_error();
+
+	FINISH;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	if (!flag_on_line) {
+		BURP_print(246, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+		/* msg 246 Database is not online due to failure to activate one or more indices. */
+		BURP_print(247, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+		/* msg 247 Run gfix -online to bring database online without active indices. */
+		return FINI_DB_NOT_ONLINE;
+	}
+
+#ifdef READONLY_DATABASE
+/* If the database is to be restored ReadOnly, set it to read_only now! */
+	if (tdgbl->gbl_sw_mode == TRUE && tdgbl->gbl_sw_mode_val == TRUE) {
+		BURP_verbose(280, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+		/* msg 280: setting database to read-only access */
+
+		d = dpb;
+		*d++ = (UCHAR) gds__dpb_version1;
+		if (tdgbl->gbl_sw_user) {
+			*d++ = (UCHAR) gds__dpb_user_name;
+			*d++ = (UCHAR) strlen(tdgbl->gbl_sw_user);
+			for (q = tdgbl->gbl_sw_user; *q;)
+				*d++ = *q++;
+		}
+
+		if (tdgbl->gbl_sw_password) {
+			if (!tdgbl->gbl_sw_service_thd)
+				*d++ = (UCHAR) gds__dpb_password;
+			else
+				*d++ = (UCHAR) gds__dpb_password_enc;
+			*d++ = (UCHAR) strlen(tdgbl->gbl_sw_password);
+			for (q = tdgbl->gbl_sw_password; *q;)
+				*d++ = *q++;
+		}
+
+		*d++ = (UCHAR) isc_dpb_set_db_readonly;
+		*d++ = 1;
+		*d++ = TRUE;			/* set database to readOnly mode */
+		l = d - dpb;
+		db_handle = 0;
+		if (isc_attach_database
+			(tdgbl->status_vector, 0, GDS_VAL(database_name),
+			 (isc_db_handle *) GDS_REF(db_handle), l, dpb))
+			general_on_error();
+		if (isc_detach_database
+			(tdgbl->status_vector, (isc_db_handle *) GDS_REF(db_handle)))
+			general_on_error();
+
+	}
+#endif /* READONLY_DATABASE */
+
+	return FINI_OK;
+}
+
+
+static void add_files( UCHAR * file_name)
+{
+/**************************************
+ *
+ *	a d d _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	This should be a multi-file database.
+ *	Store files and starting
+ *	addresses & commit this much.
+ *
+ **************************************/
+	SLONG start, count;
+	FIL file;
+	isc_req_handle req_handle1 = NULL;
+	long req_status[20];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* store the RDB$FILES records */
+
+	start = 201;
+	count = 0;
+
+	for (file = tdgbl->gbl_sw_files; file; file = file->fil_next) {
+		if (strcmp(file->fil_name, file_name)) {
+			count++;
+	   STORE (REQUEST_HANDLE req_handle1)
+	        X IN RDB$FILES
+	       strcpy (X.RDB$FILE_NAME, file->fil_name);
+	       X.RDB$FILE_START = start;
+	   END_STORE; 
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+			if (req_handle1)
+				isc_release_request(req_status, &req_handle1);
+			BURP_verbose(57, file->fil_name, (void *) start, NULL_PTR,
+						 NULL_PTR, NULL_PTR);
+			/* msg 57 adding file %s, starting at page %ld */
+		}
+		else if (((signed long) file->fil_length) >= start - 1)
+			((signed long) file->fil_length) -= start - 1;
+		else {
+			BURP_print(96, (void *) file->fil_length, (void *) (start - 1),
+					   NULL_PTR, NULL_PTR, NULL_PTR);
+			/* msg 96  length given for initial file (%ld) is less than minimum (%ld) */
+			file->fil_length = 0;
+		}
+
+		start += file->fil_length;
+	}
+
+	if (count) {
+		BURP_verbose(70, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+		/* msg 70 committing secondary files */
+		COMMIT
+			/* existing ON_ERROR continues past error, beck */
+	   ON_ERROR
+	       BURP_print (174, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	            /* msg 174 cannot commit files */
+	        BURP_print_status (tdgbl->status_vector);
+	        ROLLBACK;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	   END_ERROR;
+			EXEC SQL SET TRANSACTION NO_AUTO_UNDO;
+		if (gds__status[1])
+			EXEC SQL SET TRANSACTION;
+	}
+}
+
+
+static void bad_attribute(
+						  UCHAR scan_next_attr,
+						  ATT_TYPE bad_attr, USHORT type)
+{
+/**************************************
+ *
+ *	b a d _ a t t r i b u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	We ran into an unsupported attribute.
+ *	but it isn't the end of the world.
+ *	We will try to skip some bad data and 
+ *	look for next valid attribute to continue the process.
+ *
+ **************************************/
+	SSHORT skip_l;
+	TEXT t_name[128];
+	SLONG skip_count;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	skip_count = 0;
+
+	if (!tdgbl->gbl_sw_skip_count) {
+		gds__msg_format(NULL_PTR, 12, type, sizeof(t_name), t_name, NULL_PTR,
+						NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+		BURP_print(80, t_name, (void *) bad_attr, NULL_PTR, NULL_PTR,
+				   NULL_PTR);
+		/* msg 80  don't recognize %s attribute %ld -- continuing */
+		skip_l = GET();
+		if (skip_l)
+			GET_SKIP(skip_l);
+	}
+	else {
+		if (scan_next_attr == NO_SKIP) {
+			skip_count = tdgbl->gbl_sw_skip_count;
+			GET_SKIP(skip_count);
+			BURP_print(203, (void *) skip_count, (void *) bad_attr, NULL_PTR,
+					   NULL_PTR, NULL_PTR);
+			/*msg 203: skipped %d bytes after reading a bad attribute %d */
+		}
+		else {
+			skip_count++;
+			BURP_print(205, (void *) skip_count, (void *) bad_attr, NULL_PTR,
+					   NULL_PTR, NULL_PTR);
+			/* msg 205: skipped %d bytes looking for next valid attribute, encountered attribute %d */
+		}
+		scan_next_attr = AFTER_SKIP;
+	}
+}
+
+
+static USHORT check_db_version(void)
+{
+/**************************************
+ *
+ *	c h e c k _ d b _ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the version number of the database.
+ *
+ **************************************/
+	USHORT db_version;
+	isc_req_handle req_handle1 = NULL, req_handle2 = NULL;
+	long req_status[20];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	db_version = DB_VERSION_DDL4;
+	FOR (REQUEST_HANDLE req_handle1)
+	    FIRST 1 X IN RDB$RELATIONS
+	    WITH X.RDB$RELATION_NAME = "RDB$TRIGGERS"
+	    db_version = DB_VERSION_DDL5;
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+	if (req_handle1)
+		isc_release_request(req_status, &req_handle1);
+	FOR (REQUEST_HANDLE req_handle2)
+	    FIRST 1 X IN RDB$RELATIONS
+	    WITH X.RDB$RELATION_NAME = "RDB$PROCEDURES"
+	    db_version = DB_VERSION_DDL8;
+	END_FOR;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+	if (req_handle2)
+		isc_release_request(req_status, &req_handle2);
+
+	return db_version;
+}
+
+
+static void create_database( UCHAR * file_name)
+{
+/**************************************
+ *
+ *	c r e a t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	create the new database, looking
+ *	to see if there are any interesting
+ *	things to do.
+ *
+ **************************************/
+	SSHORT l;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	REC_TYPE record;
+	ATT_TYPE attribute;
+	UCHAR dpb[128], *d, *q;
+	ULONG page_size, sweep_interval, page_buffers;
+	USHORT no_reserve, forced_writes;
+	TGBL tdgbl;
+	USHORT SQL_dialect;
+	BOOLEAN db_read_only, SQL_dialect_flag = FALSE;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* Get (physical) database record */
+
+	page_size = DEFAULT_PAGE_SIZE;
+	sweep_interval = -1;
+	no_reserve = FALSE;
+	db_read_only = FALSE;
+	forced_writes = 2;			/* default for the current platform */
+	page_buffers = 0;
+
+	if (GET_RECORD(record) == rec_physical_db) {
+		while (GET_ATTRIBUTE(attribute) != att_end)
+			switch (attribute) {
+			case att_SQL_dialect:
+				SQL_dialect_flag = (USHORT) TRUE;
+				SQL_dialect = get_numeric();
+				break;
+
+			case att_page_size:
+				page_size = get_numeric();
+				break;
+
+			case att_sweep_interval:
+				sweep_interval = get_numeric();
+				break;
+
+			case att_forced_writes:
+				forced_writes = (USHORT) get_numeric();
+				break;
+
+			case att_no_reserve:
+				no_reserve = (USHORT) get_numeric();
+				break;
+
+#ifdef READONLY_DATABASE
+			case att_db_read_only:
+				db_read_only = (UCHAR) get_numeric();
+				break;
+#endif /* READONLY_DATABASE */
+
+			case att_page_buffers:
+				page_buffers = get_numeric();
+				break;
+
+			default:
+				l = GET();
+				if (l)
+					GET_SKIP(l);
+				break;
+			}
+		GET_RECORD(record);
+	}
+
+	if (record != rec_database)
+		BURP_error_redirect(NULL_PTR, 32, 0, 0);
+/* msg 32 Expected database description record */
+
+	if (tdgbl->gbl_sw_page_size && (tdgbl->gbl_sw_page_size < page_size)) {
+		BURP_print(110, (void *) page_size, (void *) tdgbl->gbl_sw_page_size,
+				   NULL_PTR, NULL_PTR, NULL_PTR);
+/* msg 110 Reducing the database page size from %ld bytes to %ld bytes */
+	}
+
+	if (tdgbl->gbl_sw_page_size)
+		page_size = tdgbl->gbl_sw_page_size;
+
+	tdgbl->hdr_forced_writes = forced_writes;
+
+	if (tdgbl->gbl_sw_no_reserve)
+		no_reserve = tdgbl->gbl_sw_no_reserve;
+
+#ifdef READONLY_DATABASE
+/* Override attribute setting with user requirement */
+	if (tdgbl->gbl_sw_mode == TRUE)
+		db_read_only = tdgbl->gbl_sw_mode_val;
+	else {
+		/* No access mode specified by user. Use attribute settings. Since the
+		 * database is set to readOnly only after making it Online in
+		 * RESTORE_restore(), pass on this information through Global structures */
+		tdgbl->gbl_sw_mode = TRUE;
+		tdgbl->gbl_sw_mode_val = db_read_only;
+	}
+#endif /* READONLY_DATABASE */
+
+	if (tdgbl->gbl_sw_page_buffers)
+		page_buffers = tdgbl->gbl_sw_page_buffers;
+
+	d = dpb;
+	*d++ = (UCHAR) isc_dpb_version1;
+	*d++ = (UCHAR) isc_dpb_page_size;
+	*d++ = 2;
+	*d++ = 0;
+	*d++ = (UCHAR) (page_size >> 8);
+	*d++ = (UCHAR) isc_dpb_gbak_attach;
+	*d++ = (UCHAR) strlen(GDS_VERSION);
+	for (q = GDS_VERSION; *q;)
+		*d++ = *q++;
+
+	if (sweep_interval != -1) {
+		*d++ = (UCHAR) isc_dpb_sweep_interval;
+		*d++ = 4;
+		*d++ = (UCHAR) sweep_interval;
+		*d++ = (UCHAR) (sweep_interval >> 8);
+		*d++ = (UCHAR) (sweep_interval >> 16);
+		*d++ = (UCHAR) (sweep_interval >> 24);
+	}
+#ifdef READONLY_DATABASE
+/* If the database is to be restored "read_only", fillup the data pages */
+	if (no_reserve || db_read_only)
+#else
+	if (no_reserve)
+#endif /* READONLY_DATABASE */
+	{
+		*d++ = (UCHAR) isc_dpb_no_reserve;
+		*d++ = 1;
+		*d++ = TRUE;
+	}
+	if (tdgbl->gbl_sw_user) {
+		*d++ = (UCHAR) isc_dpb_user_name;
+		*d++ = (UCHAR) strlen(tdgbl->gbl_sw_user);
+		for (q = tdgbl->gbl_sw_user; *q;)
+			*d++ = *q++;
+	}
+	if (tdgbl->gbl_sw_password) {
+		if (!tdgbl->gbl_sw_service_thd)
+			*d++ = (UCHAR) isc_dpb_password;
+		else
+			*d++ = (UCHAR) isc_dpb_password_enc;
+		*d++ = (UCHAR) strlen(tdgbl->gbl_sw_password);
+		for (q = tdgbl->gbl_sw_password; *q;)
+			*d++ = *q++;
+	}
+	if (page_buffers) {
+		*d++ = (UCHAR) isc_dpb_set_page_buffers;
+		*d++ = 4;
+		*d++ = (UCHAR) page_buffers;
+		*d++ = (UCHAR) (page_buffers >> 8);
+		*d++ = (UCHAR) (page_buffers >> 16);
+		*d++ = (UCHAR) (page_buffers >> 24);
+	}
+
+/* Turn off sync writes during restore */
+	*d++ = (UCHAR) isc_dpb_force_write;
+	*d++ = 1;
+	*d++ = 0;
+
+/* 
+** 
+** which SQL dialect that this database speaks 
+** When we restore backup files that came from prior
+** to V6, we force the SQL database dialect to 1
+**
+*/
+
+	*d++ = (UCHAR) isc_dpb_sql_dialect;
+	*d++ = 1;
+	if (SQL_dialect_flag == TRUE)
+		*d++ = (UCHAR) SQL_dialect;
+	else
+		*d++ = (UCHAR) SQL_DIALECT_V5;
+
+/* start database up shut down */
+	*d++ = (UCHAR) isc_dpb_shutdown;
+	*d++ = 1;
+	*d++ = (UCHAR) isc_dpb_shut_attachment;
+	*d++ = (UCHAR) isc_dpb_shutdown_delay;
+	*d++ = 2;
+	*d++ = 0;
+	*d++ = 0;
+
+	l = d - dpb;
+
+	if (isc_create_database(status_vector,
+							0,
+							GDS_VAL(file_name),
+							GDS_REF(tdgbl->db_handle), l, dpb, 0)) {
+		BURP_error_redirect(status_vector, 33, file_name, 0);
+/* msg 33 failed to create database %s */
+	}
+
+	if (tdgbl->gbl_sw_version) {
+		BURP_print(139, file_name, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+		/* msg 139 Version(s) for database "%s" */
+		isc_version(&tdgbl->db_handle, BURP_output_version, "\t%s\n");
+	}
+
+	BURP_verbose(74, file_name, (void *) page_size, NULL_PTR, NULL_PTR,
+				 NULL_PTR);
+/* msg 74 created database %s, page_size %ld bytes */
+}
+
+
+static void decompress( UCHAR * buffer, USHORT length)
+{
+/**************************************
+ *
+ *	d e c o m p r e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a number of compressed bytes.
+ *
+ **************************************/
+	UCHAR c, *p, *end;
+	SSHORT count;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	p = buffer;
+	end = p + length;
+
+	while (p < end) {
+		/* This change was made to restore National Semi-Conductor's corrupted */
+		/* gbak file and it is in the code base now.  -Andrew                  */
+
+		count = (SCHAR) GET();
+		if (count > 0) {
+			if (end - p < count) {
+				BURP_print(202, (void *) count, (void *) (end - p), NULL_PTR,
+						   NULL_PTR, NULL_PTR);
+				/* msg 202: adjusting a decompression length error: invalid length  %d was adjusted to %d */
+				count = end - p;
+			}
+			p = GET_BLOCK(p, count);
+		}
+		else if (count < 0) {
+			if (end + count < p) {
+				BURP_print(202, (void *) count, (void *) (p - end), NULL_PTR,
+						   NULL_PTR, NULL_PTR);
+				/* msg 202: adjusting a decompression length error: invalid length %d was adjusted to %d */
+				count = p - end;
+			}
+			c = GET();
+			memset(p, c, -count);
+			p += -count;
+		}
+	}
+
+	if (p > end)
+		BURP_error_redirect(NULL_PTR, 34, 0, 0);
+	/* msg 34 RESTORE: decompression length error */
+}
+
+
+static void eat_blob(void)
+{
+/**************************************
+ *
+ *	e a t _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Discard a blob from backup file
+ *
+ **************************************/
+	SLONG length;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	length = get_numeric();
+
+	GET_SKIP(length);
+}
+
+
+static REL find_relation( TEXT * name)
+{
+/**************************************
+ *
+ *	f i n d _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a relation name, find the relation block.  If there isn't
+ *	one, produce a fatal error.
+ *
+ **************************************/
+	TEXT *p, *q;
+	REL relation;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	for (relation = tdgbl->relations; relation; relation = relation->rel_next)
+		for (p = relation->rel_name, q = name; *p == *q; p++, q++)
+			if (!*p)
+				return relation;
+
+	BURP_error_redirect(NULL_PTR, 35, name, 0);
+/* msg 35 can't find relation %s */
+
+	return NULL;
+}
+
+
+static void general_on_error(void)
+{
+/**************************************
+ *
+ *	g e n e r a l _ o n _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle any general ON_ERROR clause during restore.
+ *
+ **************************************/
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	BURP_print_status(tdgbl->status);
+	BURP_abort();
+}
+
+
+static int get_acl(
+				   TEXT * owner_nm,
+				   ISC_QUAD * blob_id, ISC_QUAD * new_blob_id)
+{
+/**************************************
+ *
+ *	g e t _ a c l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	open the blob that contains the ACL list
+ *	get the ACL list of a relation
+ *	replace the owner of the relation in the ACL list with 
+ *	  the creator of the relation
+ *	create a new blob
+ *	store the new ACL list in the new blob
+ *
+ **************************************/
+
+	static CONST SCHAR blr_items[] = {
+		isc_info_blob_max_segment,
+		isc_info_blob_total_length,
+		isc_info_blob_num_segments
+	};
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	SLONG length, n;
+	SLONG *blob;
+	UCHAR *p, blob_info[32], item, *buffer, static_buffer[1024],
+		*new_buffer, *end_buffer;
+	USHORT l, max_segment, num_segments, new_len = 0;
+	TGBL tdgbl;
+	UCHAR *c_1, *from, *to, owner_nm_len;
+	SLONG id_person_len, cnt;
+	isc_blob_handle blob_handle = NULL;
+
+	tdgbl = GET_THREAD_DATA;
+	new_buffer = NULL_PTR;
+
+/* If the blob is null, don't store it.  It will be restored as null. */
+
+	if (!blob_id->isc_quad_high && !blob_id->isc_quad_low)
+		return FALSE;
+
+/* Open the blob and get it's vital statistics */
+
+	blob = NULL;
+
+	if (isc_open_blob(status_vector, GDS_REF(tdgbl->db_handle),
+					  GDS_REF(gds__trans), GDS_REF(blob), GDS_VAL(blob_id)))
+		/* msg 24 gds__open_blob failed */
+		BURP_error_redirect(status_vector, 24, NULL, NULL);
+
+	if (isc_blob_info(status_vector, GDS_REF(blob), sizeof(blr_items),
+					  (UCHAR *) blr_items, sizeof(blob_info), blob_info))
+		/* msg 20 gds__blob_info failed */
+		BURP_error_redirect(status_vector, 20, NULL, NULL);
+
+	length = 0;
+	p = blob_info;
+
+	while ((item = *p++) != gds__info_end) {
+		l = (USHORT) gds__vax_integer(p, 2);
+		p += 2;
+		n = gds__vax_integer(p, l);
+		p += l;
+		switch (item) {
+		case isc_info_blob_max_segment:
+			max_segment = (USHORT) n;
+			break;
+
+		case isc_info_blob_total_length:
+			length = n;
+			break;
+
+		case isc_info_blob_num_segments:
+			num_segments = (USHORT) n;
+			/* 
+			   ** we assume that the ACL list was written out as 
+			   ** in one big segment
+			   **
+			 */
+			if (num_segments > 1)
+				assert(num_segments > 1);
+			break;
+
+		default:
+			/* msg 79 don't understand blob info item %ld  */
+			BURP_print(79, (void *) item, NULL, NULL, NULL, NULL);
+			return FALSE;
+		}
+	}
+
+	if (!length) {
+		if (isc_close_blob(status_vector, GDS_REF(blob)))
+			/* msg 23 gds__close_blob failed */
+			BURP_error_redirect(status_vector, 23, NULL, NULL);
+		return FALSE;
+	}
+
+/* Rdb sometimes gets the length messed up */
+
+	if (length < max_segment)
+		length = max_segment;
+
+/* 
+** Allocate a buffer large enough for the largest segment and start 
+** grinding. 
+*/
+
+	if (!max_segment || max_segment <= sizeof(static_buffer))
+		buffer = static_buffer;
+	else
+		buffer = BURP_ALLOC(max_segment);
+
+	isc_get_segment(status_vector,
+					GDS_REF(blob), GDS_REF(l), max_segment, GDS_VAL(buffer));
+
+	if (isc_close_blob(status_vector, GDS_REF(blob))) {
+		if (buffer != static_buffer)
+			BURP_FREE(buffer);
+		/* msg 23 gds__close_blob failed */
+		BURP_error_redirect(status_vector, 23, NULL, NULL);
+	}
+
+	from = buffer + 3;			/* skip ACL_version, ACL_id_list, and id_person */
+	id_person_len = (int) *from;
+
+	c_1 = owner_nm;
+	owner_nm_len = strlen(owner_nm);
+
+	new_buffer = BURP_ALLOC(length - id_person_len + owner_nm_len);
+
+	from = buffer;
+	to = new_buffer;
+	*to++ = *from++;			/* copy ACL_verion */
+	*to++ = *from++;			/* copy ACL_id_list */
+	*to++ = *from++;			/* copy id_person */
+	*to++ = owner_nm_len;
+	new_len = new_len + 4;
+	from = buffer + id_person_len + 4;
+	for (cnt = 0; cnt < owner_nm_len; cnt++) {
+		*to++ = *c_1++;
+		new_len++;
+	}
+
+	end_buffer = buffer + length;
+	for (from = buffer + id_person_len + 4; from < end_buffer; from++) {
+		*to++ = *from;
+		new_len++;
+	}
+
+	if (isc_create_blob2(status_vector,
+						 GDS_REF(tdgbl->db_handle),
+						 GDS_REF(gds__trans),
+						 GDS_REF(blob_handle),
+						 GDS_VAL(new_blob_id), 0, NULL)) {
+		if (buffer != static_buffer)
+			BURP_FREE(buffer);
+		if (new_buffer != NULL_PTR)
+			BURP_FREE(new_buffer);
+		/* msg 37 gds__create_blob failed */
+		BURP_error_redirect(status_vector, 37, 0, 0);
+	}
+
+	if (isc_put_segment(status_vector,
+						GDS_REF(blob_handle), new_len, GDS_VAL(new_buffer))) {
+		if (buffer != static_buffer)
+			BURP_FREE(buffer);
+		if (new_buffer != NULL_PTR)
+			BURP_FREE(new_buffer);
+		/* msg 38 gds__put_segment failed */
+		BURP_error_redirect(status_vector, 38, 0, 0);
+	}
+
+	if (isc_close_blob(status_vector, GDS_REF(blob_handle))) {
+		if (buffer != static_buffer)
+			BURP_FREE(buffer);
+		if (new_buffer != NULL_PTR)
+			BURP_FREE(new_buffer);
+		/* msg 23 gds__close_blob failed */
+		BURP_error_redirect(status_vector, 23, 0, 0);
+	}
+
+	if (buffer != static_buffer)
+		BURP_FREE(buffer);
+
+	if (new_buffer != NULL_PTR)
+		BURP_FREE(new_buffer);
+
+	return TRUE;
+}
+
+
+static void get_array( REL relation, UCHAR * record_buffer)
+{
+/**************************************
+ *
+ *	g e t _ a r r a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read array data from input file to nice,
+ *	shiney, new array.
+ *
+ **************************************/
+	FLD field;
+	ATT_TYPE attribute;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	SLONG last_element_dim[MAX_DIMENSION];
+	SLONG fld_ranges[2 * MAX_DIMENSION];
+	SLONG *blob_id, return_length, slice_length, *range, *end_ranges, lcount;
+	USHORT blr_length, count, field_number, field_length;
+	UCHAR *buffer, *p;
+	SCHAR *blr, blr_buffer[200];	/* enough for a sdl with 16 dimensions */
+	LSTRING xdr_buffer, xdr_slice;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* don't free something you don't allocate */
+
+	xdr_buffer.lstr_allocated = 0;
+
+/* Pick up attributes */
+
+	SKIP_INIT;
+	while (SKIP_SCAN, GET_ATTRIBUTE(attribute) != att_blob_data)
+		switch (attribute) {
+		case att_blob_field_number:
+			field_number = (USHORT) get_numeric();
+			for (field = relation->rel_fields; field; field = field->fld_next)
+				if (field->fld_number == field_number)
+					break;
+			if (!field)
+				BURP_error_redirect(NULL_PTR, 36, 0, 0);
+			/* msg 36 Can't find field for blob */
+
+			field_length = field->fld_length;
+			if (field->fld_type == blr_varying)
+				field_length += sizeof(USHORT);
+			slice_length = field_length;
+		/** 
+		Copy the ranges onto a buffer and let the program
+		mess with the copy rather than the original
+	    **/
+			memcpy(fld_ranges, field->fld_ranges, sizeof(fld_ranges));
+			break;
+
+		case att_array_dimensions:
+			field->fld_dimensions = (SSHORT) get_numeric();
+			end_ranges = fld_ranges + 2 * field->fld_dimensions;
+			for (range = fld_ranges; range < end_ranges; range += 2) {
+				if (GET_ATTRIBUTE(attribute) != att_array_range_low)
+					bad_attribute(scan_next_attr, attribute, 58);
+				/* msg 58 array */
+				else
+					range[0] = get_numeric();
+				if (GET_ATTRIBUTE(attribute) != att_array_range_high)
+					bad_attribute(scan_next_attr, attribute, 58);
+				/* msg 58 array */
+				else
+					range[1] = get_numeric();
+				slice_length *= (range[1] - range[0] + 1);
+			}
+			break;
+
+		default:
+			bad_attribute(scan_next_attr, attribute, 58);
+			/* msg 58 array */
+			break;
+		}
+
+	return_length = GET();
+	return_length |= GET() << 8;
+	return_length |= GET() << 16;
+	return_length |= GET() << 24;
+
+	blob_id = (SLONG *) ((UCHAR *) record_buffer + field->fld_offset);
+
+	if (return_length != slice_length) {
+		int current_dim, divisor, elements_remaining;
+		int data_at, elements_written, upper, lower, dont_write;
+		int i1, i2, i3;
+		/* Ugh!  The full array wasn't returned and versions of gbak prior to
+		   V3.2I don't explicitly signal this.  We must recompute the top
+		   element to restore.
+
+		   Double Ugh!  gbak (Versions prior to 5.0) while backing up calculates 
+		   the top dimensions incorrectly So whatever was written as top dimensions 
+		   is useless. 5.0 gbak has written correct dimensions, but what the heck
+		   we'll calculate it again
+		 */
+
+		elements_remaining = return_length / field_length;
+	/**
+	   Backup (versions prior to 5.0) has surely written wrong dimensions. 
+	   Ignore whatever is read in fld_ranges and calculate the dimensions 
+	   of the last element. field->fld_ranges has the max dimensions. 
+	   last_element_dim holds only the upper bounds of each dimension.
+    **/
+		for (i1 = 0, i3 = 0; i1 < field->fld_dimensions; i1++) {
+			divisor = 1;
+			for (i2 = (2 * (i1 + 1) + 1); i2 <= field->fld_dimensions * 2;
+				 i2 += 2)
+				divisor *=
+					(field->fld_ranges[i2] - field->fld_ranges[i2 - 1] + 1);
+			last_element_dim[i1] =
+				(elements_remaining - 1) / divisor + field->fld_ranges[i3];
+			elements_remaining -=
+				(last_element_dim[i1] - field->fld_ranges[i3]) * divisor;
+			i3 += 2;
+		}
+#ifdef DEBUG
+		ib_fprintf(ib_stderr,
+				   "\nLast element upper bounds read from backup file:\n");
+		for (current_dim = 1; current_dim < field->fld_dimensions * 2;
+			 current_dim += 2)
+			ib_fprintf(ib_stderr, "%d ", fld_ranges[current_dim]);
+		ib_fprintf(ib_stderr, "\nCalculated Last element upper bounds :\n");
+		for (current_dim = 0; current_dim < field->fld_dimensions;
+			 current_dim++)
+			ib_fprintf(ib_stderr, "%d ", last_element_dim[current_dim]);
+		ib_fprintf(ib_stderr, "return_length = %d\n", return_length);
+		ib_fprintf(ib_stderr, "elements_returned = %d\n",
+				   return_length / field_length);
+		ib_fprintf(ib_stderr, "Max dims[");
+		for (current_dim = 1; current_dim < field->fld_dimensions * 2;
+			 current_dim += 2)
+			ib_fprintf(ib_stderr, "%d ", field->fld_ranges[current_dim]);
+		ib_fprintf(ib_stderr, "]");
+#endif
+		data_at = 0;
+	/**
+	    We have an irregurlar shaped slice to write. The following for loop
+	    chops the array into writable rectangular/square slice and sends it
+	    to the engine. When the loop cycles through all dimensions, we would
+	    have written the whole of the irregular slice.
+    **/
+		for (current_dim = 0; current_dim < field->fld_dimensions;
+			 current_dim++) {
+			blr = blr_buffer;
+			dont_write = 0;
+
+			/* build the sdl */
+
+			STUFF(gds__sdl_version1);
+
+			STUFF(gds__sdl_struct);
+			STUFF(1);
+
+			if (field->fld_type == blr_text || field->fld_type == blr_varying) {
+				if (field->fld_type == blr_text)
+					STUFF(blr_text2)
+				else
+					STUFF(blr_varying2);
+				STUFF_WORD(field->fld_character_set_id);
+				STUFF_WORD(field->fld_length);
+			}
+			else if (field->fld_type == blr_short ||
+					 field->fld_type == blr_long ||
+					 field->fld_type == blr_quad) {
+				STUFF(field->fld_type);
+				STUFF(field->fld_scale);
+			}
+			else
+				STUFF(field->fld_type);
+
+
+			STUFF(gds__sdl_relation);
+			stuff_string(&blr, relation->rel_name);
+			STUFF(gds__sdl_field);
+			stuff_string(&blr, field->fld_name);
+
+			/* each element spec starts here  */
+
+#ifdef DEBUG
+			ib_fprintf(ib_stderr, "\nBounds written [");
+#endif
+			elements_written = 1;
+			end_ranges = field->fld_ranges + 2 * field->fld_dimensions;
+	/**
+	       Here is the important work. Calculate the the bounds to be written
+	       so that the resulting slice is a rectangular/square slice. 
+	       For a 2 dimensional array of size 1..N, 1..M, which is partially
+	       filled, we have already calculated the dims of last element. Say
+	       if this was x,y (x is row, y is column) then we do
+			       isc_put_slice(1..x-1, 1..M);
+			       isc_put_slice(x..x, 1..y);
+		similarly for a 3D array [N,M,K] whose last element dims are (x,y,z)
+			       isc_put_slice(1..x-1, 1..M, 1..K);
+			       isc_put_slice(x..x, 1..y-1, 1..K);
+			       isc_put_slice(x..x, y..y, 1..z);
+		This is applicable for any number of dimensions.
+		Special cases:
+		for example in case of a 2D array (10,10) and if the last element 
+		dims were (1,2), we would just do a isc_put_slice(1..1, 1..2).
+		This is applied for any number of dimensions.
+	**/
+			for (range = field->fld_ranges, count = 0; range < end_ranges;
+				 range += 2, count++) {
+				STUFF(gds__sdl_do2);
+				STUFF(count);
+		/** 
+		   Normally we loop through all dimensions chopping off slices
+		   and writing them. This works fine but this also means that
+		   we blindly put slices without actually figuring out if we
+		   really need to do so. For eg: if we have a 2D array of
+		   size [10,4] and the last element dims are [6,4] then all
+		   we need to do is is to put one slice as 
+				isc_put_slice(1..6,1..4)
+		   rather than looping through the dimensions and putting
+		   		isc_put_slice(1..5,1..4)
+		   		isc_put_slice(6..6,1..4)
+		   we could extend this logic to any no of dims. The following
+		   if condition figures out such cases. This combined with
+		   the Special case should optimize the no of isc_put_slice
+		   we perform.
+	    **/
+				if (current_dim + 1 == field->fld_dimensions - 1 &&
+					field->fld_dimensions - count == 2 &&
+					last_element_dim[count + 1] == range[3]) {
+					STUFF(gds__sdl_long_integer);
+					STUFF_LONG(range[0]);
+					lower = range[0];
+					STUFF(gds__sdl_long_integer);
+					STUFF_LONG(last_element_dim[count]);
+					upper = last_element_dim[count];
+					elements_written *= (upper - lower + 1);
+					range += 2;
+					count++;
+					STUFF(gds__sdl_do2);
+					STUFF(count);
+					STUFF(gds__sdl_long_integer);
+					STUFF_LONG(range[0]);
+					lower = range[0];
+					STUFF(gds__sdl_long_integer);
+					STUFF_LONG(last_element_dim[count]);
+					upper = last_element_dim[count];
+					elements_written *= (upper - lower + 1);
+					++current_dim;
+					break;
+
+				}
+				if (current_dim == count) {
+					STUFF(gds__sdl_long_integer);
+					STUFF_LONG(range[0]);
+					lower = range[0];
+					STUFF(gds__sdl_long_integer);
+					upper = (current_dim == field->fld_dimensions - 1) ?
+						last_element_dim[count] : (last_element_dim[count] -
+												   1);
+					if (upper < range[0]) {
+			/** 
+		    see Special Case above
+		    **/
+						dont_write = 1;
+						break;
+					}
+					STUFF_LONG(upper);
+				}
+				else if (current_dim < count) {
+					STUFF(gds__sdl_long_integer);
+					STUFF_LONG(range[0]);
+					STUFF(gds__sdl_long_integer);
+					STUFF_LONG(range[1]);
+					upper = range[1];
+					lower = range[0];
+				}
+				else if (current_dim > count) {
+					STUFF(gds__sdl_long_integer);
+					STUFF_LONG(last_element_dim[count]);
+					STUFF(gds__sdl_long_integer);
+					STUFF_LONG(last_element_dim[count]);
+					upper = lower = last_element_dim[count];
+				}
+				elements_written *= (upper - lower + 1);
+#ifdef DEBUG
+				ib_fprintf(ib_stderr, "%d..%d ", lower, upper);
+#endif
+			}
+			if (dont_write)
+				continue;
+#ifdef DEBUG
+			ib_fprintf(ib_stderr, "]");
+			ib_fprintf(ib_stderr, "\n Elements Written=%d  ",
+					   elements_written);
+#endif
+
+			STUFF(gds__sdl_element);
+			STUFF(1);
+			STUFF(gds__sdl_scalar);
+			STUFF(0);
+			STUFF(field->fld_dimensions);
+
+			for (count = 0; count < field->fld_dimensions; count++) {
+				STUFF(gds__sdl_variable);
+				STUFF(count);
+			}
+
+			STUFF(gds__sdl_eoc);
+
+#ifdef DEBUG
+			if (debug_on)
+				PRETTY_print_sdl(blr_buffer, NULL_PTR, NULL_PTR, NULL_PTR,
+								 NULL_PTR);
+#endif
+
+			blr_length = blr - blr_buffer;
+
+			if (data_at == 0) {
+				buffer = BURP_ALLOC(return_length);
+
+				if (tdgbl->gbl_sw_transportable) {
+					if (GET_ATTRIBUTE(attribute) != att_xdr_array)
+						/* msg 55 Expected XDR record length */
+						BURP_error_redirect(NULL_PTR, 55, 0, 0);
+					else {
+						xdr_buffer.lstr_allocated = GET();
+						xdr_buffer.lstr_allocated |= GET() << 8;
+						xdr_buffer.lstr_allocated |= GET() << 16;
+						xdr_buffer.lstr_allocated |= GET() << 24;
+						lcount = xdr_buffer.lstr_length =
+							xdr_buffer.lstr_allocated;
+						xdr_buffer.lstr_address =
+							BURP_ALLOC(xdr_buffer.lstr_allocated);
+						xdr_slice.lstr_allocated = xdr_slice.lstr_length =
+							return_length;
+						xdr_slice.lstr_address = buffer;
+						p = xdr_buffer.lstr_address;
+					}
+				}
+				else {
+					p = buffer;
+					lcount = return_length;
+				}
+
+				if (lcount)
+					(void) GET_BLOCK(p, lcount);
+
+				if (tdgbl->gbl_sw_transportable)
+					CAN_slice(&xdr_buffer, &xdr_slice, FALSE, blr_length,
+							  blr_buffer);
+			}
+
+			if (isc_put_slice(status_vector,
+							  GDS_REF(tdgbl->db_handle),
+							  GDS_REF(gds__trans), (ISC_QUAD *) GDS_VAL(blob_id), blr_length, blr_buffer, 0,	/* param length for subset of an array handling */
+							  (ISC_LONG *) 0,	/* param for subset of an array handling */
+							  elements_written * field->fld_length,
+							  GDS_VAL(buffer + data_at))) {
+				BURP_print(81, field->fld_name, NULL_PTR, NULL_PTR, NULL_PTR,
+						   NULL_PTR);
+				/* msg 81 error accessing blob field %s -- continuing */
+				BURP_print_status(status_vector);
+#ifdef DEBUG
+				PRETTY_print_sdl(blr_buffer, NULL_PTR, NULL_PTR, NULL_PTR,
+								 NULL_PTR);
+#endif
+				return;
+			}
+			data_at += elements_written * field->fld_length;
+#ifdef DEBUG
+			ib_fprintf(ib_stderr, "next data_at = %d\n", data_at);
+#endif
+		}
+	}
+	else {
+	  /** This is the regular case we've got the entire array **/
+		blr = blr_buffer;
+
+		/* build the sdl */
+
+		STUFF(gds__sdl_version1);
+
+		STUFF(gds__sdl_struct);
+		STUFF(1);
+
+		if (field->fld_type == blr_text || field->fld_type == blr_varying) {
+			if (field->fld_type == blr_text)
+				STUFF(blr_text2)
+			else
+				STUFF(blr_varying2);
+			STUFF_WORD(field->fld_character_set_id);
+			STUFF_WORD(field->fld_length);
+		}
+		else if (field->fld_type == blr_short ||
+				 field->fld_type == blr_long || field->fld_type == blr_quad) {
+			STUFF(field->fld_type);
+			STUFF(field->fld_scale);
+		}
+		else
+			STUFF(field->fld_type);
+
+
+		STUFF(gds__sdl_relation);
+		stuff_string(&blr, relation->rel_name);
+		STUFF(gds__sdl_field);
+		stuff_string(&blr, field->fld_name);
+
+		/* each element spec starts here  */
+
+		for (range = fld_ranges, count = 0; range < end_ranges;
+			 range += 2, count++) {
+			STUFF(gds__sdl_do2);
+			STUFF(count);
+			STUFF(gds__sdl_long_integer);
+			STUFF_LONG(range[0]);
+			STUFF(gds__sdl_long_integer);
+			STUFF_LONG(range[1]);
+		}
+
+		STUFF(gds__sdl_element);
+		STUFF(1);
+		STUFF(gds__sdl_scalar);
+		STUFF(0);
+		STUFF(field->fld_dimensions);
+
+		for (count = 0; count < field->fld_dimensions; count++) {
+			STUFF(gds__sdl_variable);
+			STUFF(count);
+		}
+
+		STUFF(gds__sdl_eoc);
+
+#ifdef DEBUG
+		if (debug_on)
+			PRETTY_print_sdl(blr_buffer, NULL_PTR, NULL_PTR, NULL_PTR,
+							 NULL_PTR);
+#endif
+
+		blr_length = blr - blr_buffer;
+
+		buffer = BURP_ALLOC(return_length);
+
+		if (tdgbl->gbl_sw_transportable) {
+			if (GET_ATTRIBUTE(attribute) != att_xdr_array)
+				BURP_error_redirect(NULL_PTR, 55, 0, 0);
+			/* msg 55 Expected XDR record length */
+			else {
+				xdr_buffer.lstr_allocated = GET();
+				xdr_buffer.lstr_allocated |= GET() << 8;
+				xdr_buffer.lstr_allocated |= GET() << 16;
+				xdr_buffer.lstr_allocated |= GET() << 24;
+				lcount = xdr_buffer.lstr_length = xdr_buffer.lstr_allocated;
+				xdr_buffer.lstr_address =
+					BURP_ALLOC(xdr_buffer.lstr_allocated);
+				xdr_slice.lstr_allocated = xdr_slice.lstr_length =
+					return_length;
+				xdr_slice.lstr_address = buffer;
+				p = xdr_buffer.lstr_address;
+			}
+		}
+		else {
+			p = buffer;
+			lcount = return_length;
+		}
+
+		if (lcount)
+			(void) GET_BLOCK(p, lcount);
+
+		if (tdgbl->gbl_sw_transportable)
+			CAN_slice(&xdr_buffer, &xdr_slice, FALSE, blr_length, blr_buffer);
+
+
+		if (isc_put_slice(status_vector,
+						  GDS_REF(tdgbl->db_handle),
+						  GDS_REF(gds__trans), (ISC_QUAD *) GDS_VAL(blob_id), blr_length, blr_buffer, 0,	/* param length for subset of an array handling */
+						  (ISC_LONG *) 0,	/* param for subset of an array handling */
+						  return_length, GDS_VAL(buffer))) {
+			BURP_print(81, field->fld_name, NULL_PTR, NULL_PTR, NULL_PTR,
+					   NULL_PTR);
+			/* msg 81 error accessing blob field %s -- continuing */
+			BURP_print_status(status_vector);
+#ifdef DEBUG
+			PRETTY_print_sdl(blr_buffer, NULL_PTR, NULL_PTR, NULL_PTR,
+							 NULL_PTR);
+#endif
+			return;
+		}
+	}
+
+	BURP_FREE(buffer);
+	if (tdgbl->gbl_sw_transportable && xdr_buffer.lstr_allocated)
+		BURP_FREE(xdr_buffer.lstr_address);
+}
+
+
+static void get_blob( FLD fields, UCHAR * record_buffer)
+{
+/**************************************
+ *
+ *	g e t _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read blob attributes and copy data from input file to nice,
+ *	shiny, new blob.
+ *
+ **************************************/
+	FLD field;
+	ATT_TYPE attribute;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ULONG segments;
+	ISC_QUAD *blob_id;
+	SLONG *blob;
+	USHORT field_number, max_segment, length;
+	UCHAR *buffer, static_buffer[1024];
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* Pick up attributes */
+
+	segments = 0;
+
+	SKIP_INIT;
+	while (SKIP_SCAN, GET_ATTRIBUTE(attribute) != att_blob_data)
+		switch (attribute) {
+		case att_blob_field_number:
+			field_number = (USHORT) get_numeric();
+			break;
+
+		case att_blob_max_segment:
+			max_segment = (USHORT) get_numeric();
+			break;
+
+		case att_blob_number_segments:
+			segments = get_numeric();
+			break;
+
+		case att_blob_type:
+			(void) get_numeric();
+			break;
+
+		default:
+			bad_attribute(scan_next_attr, attribute, 64);
+			/* msg 64 blob */
+			break;
+		}
+
+/* Find the field associated with the blob */
+
+	for (field = fields; field; field = field->fld_next)
+		if (field->fld_number == field_number)
+			break;
+
+	if (!field)
+		BURP_error_redirect(NULL_PTR, 36, 0, 0);
+	/* msg 36 Can't find field for blob */
+
+/* Create new blob */
+
+	blob_id = (ISC_QUAD*) ((UCHAR *) record_buffer + field->fld_offset);
+	blob = NULL;
+
+	if (isc_create_blob(status_vector,
+						GDS_REF(tdgbl->db_handle),
+						GDS_REF(gds__trans),
+						GDS_REF(blob), (ISC_QUAD *) GDS_VAL(blob_id)))
+		BURP_error_redirect(status_vector, 37, 0, 0);
+	/* msg 37 gds__create_blob failed */
+
+/* Allocate blob buffer is static buffer is too short */
+
+	if (!max_segment || max_segment <= sizeof(static_buffer))
+		buffer = static_buffer;
+	else
+		buffer = BURP_ALLOC(max_segment);
+
+/* Eat up blob segments */
+
+	for (; segments > 0; --segments) {
+		length = GET();
+		length |= GET() << 8;
+		if (length) {
+			(void) GET_BLOCK(buffer, length);
+		}
+		if (isc_put_segment(status_vector,
+							GDS_REF(blob),
+							length,
+							GDS_VAL(buffer)))
+				BURP_error_redirect(status_vector, 38, 0, 0);
+		/* msg 38 gds__put_segment failed */
+	}
+
+	if (isc_close_blob(status_vector, GDS_REF(blob)))
+		BURP_error_redirect(status_vector, 23, 0, 0);
+	/* msg 23 gds__close_blob failed */
+
+	if (buffer != static_buffer)
+		BURP_FREE(buffer);
+}
+
+
+static void get_blr_blob( ISC_QUAD * blob_id, USHORT glb_trans)
+{
+/**************************************
+ *
+ *	g e t _ b l r _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read blob attributes and copy data from input file to nice,
+ *	shiney, new blob.
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	SLONG *blob;
+	USHORT length, l;
+	UCHAR *buffer, static_buffer[1024], *p;
+	isc_tr_handle local_trans;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	length = (USHORT) get_numeric();
+
+/* Create new blob */
+
+	blob = NULL;
+
+	if (glb_trans && tdgbl->global_trans)
+		local_trans = tdgbl->global_trans;
+	else
+		local_trans = gds__trans;
+
+	if (isc_create_blob(status_vector,
+						GDS_REF(tdgbl->db_handle),
+						GDS_REF(local_trans),
+						GDS_REF(blob),
+						GDS_VAL(blob_id)))
+			BURP_error_redirect(status_vector, 37, 0, 0);
+	/* msg 37 gds__create_blob failed */
+
+/* Allocate blob buffer is static buffer is too short */
+
+	if (!length || length + 1 <= sizeof(static_buffer))
+		buffer = static_buffer;
+	else {
+		l = length + 1;
+		buffer = BURP_ALLOC(l);
+	}
+
+	if (l = length) {
+		p = buffer;
+		p = GET_BLOCK(p, l);
+	}
+
+/* Make sure it has an eoc */
+	if ((*--p) != blr_eoc) {
+		length++;
+		*++p = blr_eoc;
+	}
+
+	if (isc_put_segment(status_vector,
+						GDS_REF(blob),
+						length,
+						GDS_VAL(buffer)))
+			BURP_error_redirect(status_vector, 38, 0, 0);
+	/* msg 38 gds__put_segment failed */
+
+	if (isc_close_blob(status_vector, GDS_REF(blob)))
+		BURP_error_redirect(status_vector, 23, 0, 0);
+	/* msg 23 gds__close_blob failed */
+
+	if (buffer != static_buffer)
+		BURP_FREE(buffer);
+}
+
+
+static BOOLEAN get_character_set(void)
+{
+/**************************************
+ *
+ *	g e t _ c h a r a c t e r _ s e t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restore data for user defined character sets
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_character_sets_req_handle1)
+	    X IN RDB$CHARACTER_SETS
+	    X.RDB$CHARACTER_SET_NAME.NULL = TRUE;
+	    X.RDB$FORM_OF_USE.NULL = TRUE;
+	    X.RDB$NUMBER_OF_CHARACTERS.NULL = TRUE;
+	    X.RDB$DEFAULT_COLLATE_NAME.NULL = TRUE;
+	    X.RDB$CHARACTER_SET_ID.NULL = TRUE;
+	    X.RDB$SYSTEM_FLAG.NULL = TRUE;
+	    X.RDB$DESCRIPTION.NULL = TRUE;
+	    X.RDB$FUNCTION_NAME.NULL = TRUE;
+	    X.RDB$BYTES_PER_CHARACTER.NULL = TRUE;
+	   
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	        switch (attribute)
+	            {
+	
+	       case att_charset_name:
+	       X.RDB$CHARACTER_SET_NAME.NULL = FALSE;
+	       get_text (X.RDB$CHARACTER_SET_NAME, sizeof (X.RDB$CHARACTER_SET_NAME));
+	       BURP_verbose (msgVerbose_restore_charset, X.RDB$CHARACTER_SET_NAME, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	       break;
+	
+	       case att_charset_form:
+	       X.RDB$FORM_OF_USE.NULL = FALSE;
+	           get_text (X.RDB$FORM_OF_USE, sizeof (X.RDB$FORM_OF_USE));
+	       break;
+	
+	       case att_charset_numchar:
+	       X.RDB$NUMBER_OF_CHARACTERS.NULL = FALSE;
+	       X.RDB$NUMBER_OF_CHARACTERS = (USHORT) get_numeric();
+	       break;
+	
+	       case att_charset_coll:
+	       X.RDB$DEFAULT_COLLATE_NAME.NULL = FALSE;
+	       get_text (X.RDB$DEFAULT_COLLATE_NAME, sizeof (X.RDB$DEFAULT_COLLATE_NAME));
+	       break;
+	
+	       case att_charset_id:
+	           X.RDB$CHARACTER_SET_ID.NULL = FALSE;
+	           X.RDB$CHARACTER_SET_ID = (USHORT) get_numeric();
+	       break;
+	
+	       case att_charset_sysflag:
+	           X.RDB$SYSTEM_FLAG.NULL = FALSE;
+	           X.RDB$SYSTEM_FLAG = (USHORT) get_numeric();
+	       break;
+	
+	       case att_charset_description:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_source_blob (&X.RDB$DESCRIPTION, 0);
+	       break;
+	
+	       case att_charset_funct:
+	       X.RDB$FUNCTION_NAME.NULL = FALSE;
+	       get_text (X.RDB$FUNCTION_NAME, sizeof (X.RDB$FUNCTION_NAME));
+	       break;
+	
+	       case att_charset_bytes_char:
+	       X.RDB$BYTES_PER_CHARACTER.NULL = FALSE;
+	       X.RDB$BYTES_PER_CHARACTER = (USHORT) get_numeric();
+	       break;
+	
+	            default:
+	                bad_attribute (scan_next_attr, attribute, msgErr_restore_charset); 
+	       /* RDB$CHARSETS */
+	       break;
+	            }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_chk_constraint(void)
+{
+/**************************************
+ *
+ *	g e t _ c h k _ c o n s t r a i n t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restore data for check constraints.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_chk_constraint_req_handle1)
+	    X IN RDB$CHECK_CONSTRAINTS
+	    X.RDB$CONSTRAINT_NAME.NULL = TRUE;
+	    X.RDB$TRIGGER_NAME.NULL = TRUE;
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	        switch (attribute)
+	            {
+	            case att_chk_constraint_name:
+	                X.RDB$CONSTRAINT_NAME.NULL = FALSE;
+	                get_text (X.RDB$CONSTRAINT_NAME, sizeof (X.RDB$CONSTRAINT_NAME));
+	                break;
+	
+	            case att_chk_trigger_name:
+	                X.RDB$TRIGGER_NAME.NULL = FALSE;
+	                get_text (X.RDB$TRIGGER_NAME, sizeof (X.RDB$TRIGGER_NAME));
+	                break;
+	
+	            default:
+	                bad_attribute (scan_next_attr, attribute, 208); 
+	       /* msg 208 relation constraint */
+	       break;
+	            }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_collation(void)
+{
+/**************************************
+ *
+ *	g e t _ c o l l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restore data for user defined collations
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_collation_req_handle1)
+	    X IN RDB$COLLATIONS
+	    X.RDB$COLLATION_NAME.NULL = TRUE;
+	    X.RDB$COLLATION_ID.NULL = TRUE;
+	    X.RDB$CHARACTER_SET_ID.NULL = TRUE;
+	    X.RDB$COLLATION_ATTRIBUTES.NULL = TRUE;
+	    X.RDB$SYSTEM_FLAG.NULL = TRUE;
+	    X.RDB$DESCRIPTION.NULL = TRUE;
+	    X.RDB$FUNCTION_NAME.NULL = TRUE;
+	
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	        switch (attribute)
+	            {
+	
+	       case att_coll_name:
+	       X.RDB$COLLATION_NAME.NULL = FALSE;
+	       get_text (X.RDB$COLLATION_NAME, sizeof (X.RDB$COLLATION_NAME));
+	       BURP_verbose (msgVerbose_restore_collation, X.RDB$COLLATION_NAME, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	       break;
+	
+	       case att_coll_id:
+	       X.RDB$COLLATION_ID.NULL = FALSE;
+	       X.RDB$COLLATION_ID = (USHORT) get_numeric();
+	       break;
+	
+	       case att_coll_cs_id:
+	       X.RDB$CHARACTER_SET_ID.NULL = FALSE;
+	       X.RDB$CHARACTER_SET_ID = (USHORT) get_numeric();
+	       break;
+	
+	       case att_coll_attr:
+	       X.RDB$COLLATION_ATTRIBUTES.NULL = FALSE;
+	       X.RDB$COLLATION_ATTRIBUTES = (USHORT) get_numeric();
+	       break;
+	
+	       case att_coll_subtype:  /* No longer used: 93-11-15 DBS */
+	                   /* still present to handle V4 R&D
+	                      gbak files */
+	       (void) get_numeric();
+	       break;
+	
+	       case att_coll_sysflag:
+	           X.RDB$SYSTEM_FLAG.NULL = FALSE;
+	           X.RDB$SYSTEM_FLAG = (USHORT) get_numeric();
+	       break;
+	
+	       case att_coll_description:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_source_blob (&X.RDB$DESCRIPTION, 0);
+	       break;
+	
+	       case att_coll_funct:
+	       X.RDB$FUNCTION_NAME.NULL = FALSE;
+	       get_text (X.RDB$FUNCTION_NAME, sizeof (X.RDB$FUNCTION_NAME));
+	       break;
+	
+	            default:
+	                bad_attribute (scan_next_attr, attribute, msgErr_restore_collation);
+	       /* Bad RDB$COLLATION */
+	       break;
+	            }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static REC_TYPE get_data( REL relation)
+{
+/**************************************
+ *
+ *	g e t _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write data records for a relation.
+ *
+ **************************************/
+	FLD field;
+	int *request, records;
+	TEXT *p;
+	SCHAR *blr, *blr_buffer;
+	RCRD_OFFSET offset;
+	USHORT l;
+	ULONG length, old_length;
+	SSHORT count, blr_length, alignment, dtype;
+	SSHORT *buffer;
+	LSTRING data;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	SLONG *blob_id;
+	REC_TYPE record;
+	TGBL tdgbl;
+	isc_req_handle req_handle = NULL;
+	TEXT index_name[32];
+	long error_code;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* If we're only doing meta-data, ignore data records */
+
+	if (tdgbl->gbl_sw_meta)
+		return ignore_data(relation);
+
+/* Start by counting the interesting fields */
+
+	offset = length = 0;
+	count = 0;
+
+	for (field = relation->rel_fields; field; field = field->fld_next)
+		if (!(field->fld_flags & FLD_computed)) {
+			count++;
+			length += field->fld_name_length;
+		}
+
+	if (tdgbl->RESTORE_format >= 2)
+		count += count;
+
+/* Time to generate blr to store data.  Whoppee. */
+
+	blr = blr_buffer = (SCHAR *) BURP_ALLOC(200 + length + count * 18);
+	STUFF(blr_version4);
+	STUFF(blr_begin);
+	STUFF(blr_message);
+	STUFF(0);					/* Message number */
+	STUFF_WORD(count);			/* Number of fields, counting eof */
+	count = 0;
+
+	for (field = relation->rel_fields; field; field = field->fld_next) {
+		if (field->fld_flags & FLD_computed)
+			continue;
+
+		/* arrays are of various fld_types but are really blobs */
+
+		dtype = field->fld_type;
+		length = field->fld_length;
+		alignment = 4;
+
+		if (field->fld_flags & FLD_array)
+			dtype = blr_blob;
+
+		if (dtype <= DTYPE_BLR_MAX) {
+			l = gds_cvt_blr_dtype[dtype];
+			alignment = type_alignments[l];
+			if (l = type_lengths[l])
+				length = l;
+		}
+
+		switch (dtype) {
+		case blr_text:
+		case blr_varying:
+			if (dtype == blr_text)
+				STUFF(blr_text2)
+			else
+				STUFF(blr_varying2);
+			STUFF_WORD(field->fld_character_set_id);
+			STUFF_WORD(field->fld_length);
+			if (dtype == blr_varying)
+				length += sizeof(USHORT);
+			break;
+
+		case blr_short:
+		case blr_long:
+		case blr_quad:
+		case blr_int64:
+			STUFF(field->fld_type);
+			STUFF(field->fld_scale);
+			break;
+
+		case blr_float:
+		case blr_double:
+		case blr_timestamp:
+		case blr_sql_time:
+		case blr_sql_date:
+			STUFF(field->fld_type);
+			break;
+
+		case blr_blob:
+			alignment = type_alignments[dtype_blob];
+			length = type_lengths[dtype_blob];
+			STUFF(blr_quad);
+			STUFF(0);
+			break;
+
+		default:
+#ifdef SUPERSERVER
+			BURP_svc_error(26, isc_arg_number, field->fld_type,
+						   0, NULL, 0, NULL, 0, NULL, 0, NULL);
+#else
+			BURP_error(26, (void *) field->fld_type, 0, 0, 0, 0);
+			/* msg 26 datatype %ld not understood */
+#endif
+			break;
+		}
+		if (alignment)
+			offset = FB_ALIGN(offset, alignment);
+		field->fld_offset = offset;
+		field->fld_parameter = count++;
+		offset += length;
+	}
+
+/* If this is format version 2, build fields for null flags */
+
+	if (tdgbl->RESTORE_format >= 2)
+		for (field = relation->rel_fields; field; field = field->fld_next) {
+			if (field->fld_flags & FLD_computed)
+				continue;
+			STUFF(blr_short);
+			STUFF(0);
+			offset = FB_ALIGN(offset, sizeof(SSHORT));
+			field->fld_missing_parameter = count++;
+			offset += sizeof(SSHORT);
+		}
+
+	length = offset;
+
+/* Build STORE statement */
+
+	STUFF(blr_receive);
+	STUFF(0);
+	STUFF(blr_store);
+	STUFF(blr_relation);
+	stuff_string(&blr, relation->rel_name);
+	STUFF(0);					/* context variable */
+	STUFF(blr_begin);
+
+	for (field = relation->rel_fields; field; field = field->fld_next) {
+		if (field->fld_flags & FLD_computed)
+			continue;
+		STUFF(blr_assignment);
+		if (tdgbl->RESTORE_format >= 2) {
+			STUFF(blr_parameter2);
+			STUFF(0);
+			STUFF_WORD(field->fld_parameter);
+			STUFF_WORD(field->fld_missing_parameter);
+		}
+		else {
+			STUFF(blr_parameter);
+			STUFF(0);
+			STUFF_WORD(field->fld_parameter);
+		}
+		STUFF(blr_field);
+		STUFF(0);
+		stuff_string(&blr, field->fld_name);
+	}
+
+	STUFF(blr_end);
+	STUFF(blr_end);
+	STUFF(blr_eoc);
+
+/* Compile request */
+
+#ifdef DEBUG
+	isc_print_blr(blr_buffer, NULL_PTR, NULL_PTR, 0);
+#endif
+
+	request = NULL;
+	blr_length = blr - blr_buffer;
+	if (isc_compile_request(status_vector,
+							GDS_REF(tdgbl->db_handle),
+							GDS_REF(request),
+							blr_length, GDS_VAL(blr_buffer))) {
+		isc_print_blr(blr_buffer, NULL_PTR, NULL_PTR, 0);
+		if (!tdgbl->gbl_sw_incremental)
+			BURP_error_redirect(status_vector, 27, 0, 0);
+/* msg 27 gds__compile_request failed */
+		else {
+			BURP_print_status(status_vector);
+			BURP_FREE(blr_buffer);
+			return ignore_data(relation);
+		}
+	}
+
+	BURP_FREE(blr_buffer);
+	buffer = NULL;
+
+	data.lstr_allocated = records = 0;
+
+	BURP_verbose(124, relation->rel_name, NULL_PTR, NULL_PTR, NULL_PTR,
+				 NULL_PTR);
+/* msg 124  restoring data for relation %s */
+
+	data.lstr_address = NULL;
+	old_length = 0;
+
+	while (TRUE) {
+		if (GET() != att_data_length)
+			BURP_error_redirect(NULL_PTR, 39, 0, 0);
+/* msg 39 expected record length */
+		l = (USHORT) get_numeric();
+		if (!tdgbl->gbl_sw_transportable && l != length) {
+			if (!old_length)
+				old_length = recompute_length(relation);
+			if (l != old_length)
+#ifdef SUPERSERVER
+				BURP_svc_error(40, isc_arg_number, length, isc_arg_number, l,
+							   0, NULL, 0, NULL, 0, NULL);
+#else
+				BURP_error(40, (void *) length, (void *) l, 0, 0, 0);
+/* msg 40 wrong length record, expected %ld encountered %ld */
+#endif
+		}
+		if (!buffer)
+			buffer = (SSHORT *) BURP_ALLOC(MAX(length, l));
+
+		if (tdgbl->gbl_sw_transportable)
+			if (GET() != att_xdr_length)
+				BURP_error_redirect(NULL_PTR, 55, 0, 0);
+/* msg 55 Expected XDR record length */
+			else {
+				data.lstr_length = l = (USHORT) get_numeric();
+				if (l > data.lstr_allocated) {
+					data.lstr_allocated = l;
+					if (data.lstr_address)
+						BURP_FREE(data.lstr_address);
+					data.lstr_address =
+						(UCHAR *) BURP_ALLOC(data.lstr_allocated);
+				}
+				p = (TEXT *) data.lstr_address;
+			}
+		else
+			p = (TEXT *) buffer;
+		if (GET() != att_data_data)
+			BURP_error_redirect(NULL_PTR, 41, 0, 0);
+/* msg 41 expected data attribute */
+
+		if (tdgbl->gbl_sw_compress)
+			decompress(p, l);
+		else {
+			(void) GET_BLOCK(p, l);
+		}
+
+		if (old_length)
+			realign((UCHAR *) buffer, relation);
+
+		if (tdgbl->gbl_sw_transportable)
+			CAN_encode_decode(relation, &data, (UCHAR *) buffer, FALSE);
+
+		records++;
+
+		if ((records % RESTORE_VERBOSE_INTERVAL) == 0)
+			BURP_verbose(107, (void *) records, NULL_PTR, NULL_PTR, NULL_PTR,
+						 NULL_PTR);
+
+		for (field = relation->rel_fields; field; field = field->fld_next)
+			if ((field->fld_type == blr_blob)
+				|| (field->fld_flags & FLD_array)) {
+				blob_id = (SLONG *) ((SCHAR *) buffer + field->fld_offset);
+				blob_id[0] = blob_id[1] = 0;
+			}
+
+		GET_RECORD(record);
+		while (record == rec_blob || record == rec_array) {
+			if (record == rec_blob)
+				get_blob(relation->rel_fields, (UCHAR *) buffer);
+
+			else if (record == rec_array)
+				get_array(relation, (UCHAR *) buffer);
+
+			GET_RECORD(record);
+		}
+
+
+		if (isc_start_and_send(status_vector,
+							   GDS_REF(request),
+							   GDS_REF(gds__trans),
+							   0,
+							   (USHORT) length,
+							   GDS_VAL(buffer),
+							   0))
+				if (status_vector[1] == gds__not_valid)
+ if (tdgbl->gbl_sw_incremental) {
+					BURP_print(138, relation->rel_name, NULL_PTR, NULL_PTR,
+							   NULL_PTR, NULL_PTR);
+/* msg 138 validation error on field in relation %s */
+					BURP_print_status(status_vector);
+				}
+				else
+					BURP_error_redirect(status_vector, 47, 0, 0);
+/* msg 47 warning -- record could not be restored */
+			else if (tdgbl->gbl_sw_incremental) {
+				BURP_print(114, relation->rel_name, NULL_PTR, NULL_PTR,
+						   NULL_PTR, NULL_PTR);
+/* msg 114 restore failed for record in relation %s */
+				BURP_print_status(status_vector);
+			}
+			else
+				BURP_error_redirect(status_vector, 48, 0, 0);
+/* msg 48 gds__send failed */
+		if (record != rec_data)
+			break;
+	}
+
+	BURP_FREE(buffer);
+	if (data.lstr_address)
+		BURP_FREE(data.lstr_address);
+
+	isc_release_request(status_vector, GDS_REF(request));
+	if (tdgbl->gbl_sw_incremental) {
+		BURP_verbose(72, relation->rel_name, NULL_PTR, NULL_PTR, NULL_PTR,
+					 NULL_PTR);
+		/* msg 72  committing data for relation %s */
+		COMMIT
+			/* existing ON_ERROR continues past error, beck */
+	    ON_ERROR
+	
+	        /* Fix for bug_no 8055:
+	           don't throw away the database just because an index
+	           could not be made */
+	        while (error_code = tdgbl->status_vector[1])
+	        {
+	            switch (error_code)
+	            {
+	                case gds__sort_mem_err:
+	                case gds__no_dup:
+	                    strcpy(index_name, (TEXT *)tdgbl->status_vector[3]);
+	                    BURP_print_status(tdgbl->status_vector);
+	                    FOR (REQUEST_HANDLE req_handle)
+	                     IDX IN RDB$INDICES WITH IDX.RDB$INDEX_NAME EQ index_name
+	                        MODIFY IDX USING IDX.RDB$INDEX_INACTIVE = TRUE;
+	                        BURP_print(240, index_name, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                        /* msg 240 Index \"%s\" failed to activate because: */
+	                        if ( error_code == gds__no_dup )
+	                        {
+	                            BURP_print(241, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                            /* msg 241 The unique index has duplicate values or NULLs */
+	                            BURP_print(242, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                            /* msg 242 Delete or Update duplicate values or NULLs, and activate index with */
+	                        }
+	                        else
+	                        {
+	                            BURP_print(244, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                            /* msg 244 Not enough disk space to create the sort file for an index */
+	                            BURP_print(245, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                            /* msg 245 Set the TMP environment variable to a directory on a filesystem that does have enough space, and activate index with */
+	                        }
+	                        BURP_print(243, index_name, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                        /* msg 243 ALTER INDEX \"%s\" ACTIVE; */
+	                        END_MODIFY;
+	                    END_FOR;
+	                    /* don't bring the database on-line */
+	                    flag_on_line = FALSE;
+	                    /* commit one more time */
+	                    COMMIT
+	                    ON_ERROR
+	                        continue;
+	                    END_ERROR
+	                    break;
+	                default:
+	                    BURP_print (69, relation->rel_name, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                    /* msg 69 commit failed on relation %s */
+	                    BURP_print_status (tdgbl->status_vector);
+	                    ROLLBACK;
+	                    ON_ERROR
+	                        general_on_error ();
+	                    END_ERROR;
+	           break;
+	            } /* end of switch */
+	        } /* end of while */
+	    END_ERROR;
+			EXEC SQL SET TRANSACTION NO_AUTO_UNDO;
+		if (gds__status[1])
+			EXEC SQL SET TRANSACTION;
+	}
+	BURP_verbose(107, (void *) records, NULL_PTR, NULL_PTR, NULL_PTR,
+				 NULL_PTR);
+/* msg 107 %ld records restored */
+
+	return record;
+}
+
+
+static BOOLEAN get_exception(void)
+{
+/**************************************
+ *
+ *	g e t _ e x c e p t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reconstruct a exception.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	TEXT temp[32];
+	ULONG l;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_exception_req_handle1)
+	    X IN RDB$EXCEPTIONS
+	    X.RDB$DESCRIPTION.NULL = TRUE;
+	    X.RDB$MESSAGE.NULL = TRUE;
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	   switch (attribute)
+	       {
+	            case att_exception_name:
+	       l = get_text (X.RDB$EXCEPTION_NAME, sizeof (X.RDB$EXCEPTION_NAME));
+	       MISC_terminate (X.RDB$EXCEPTION_NAME, temp, l, sizeof (temp));
+	       BURP_verbose (199, temp, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR); 
+	       /* msg 199 restoring exception %s */
+	       break;
+	                                                   
+	       case att_exception_description:
+	       get_misc_blob (&X.RDB$DESCRIPTION, 0, 0);
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       break;
+	                                                   
+	       case att_exception_description2:
+	       get_source_blob (&X.RDB$DESCRIPTION, 0);
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       break;
+	                                                   
+	       case att_exception_msg:
+	       get_text (X.RDB$MESSAGE, sizeof (X.RDB$MESSAGE));
+	       X.RDB$MESSAGE.NULL = FALSE;
+	       break;
+	
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 89); 
+	       /* msg 89 function */
+	       break;
+	       }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static BOOLEAN cvt_v3_to_v4_intl(
+								 SSHORT dtype,
+								 SSHORT * scale,
+								 SSHORT * sub_type,
+								 SSHORT * character_set_id,
+SSHORT * collation_id)
+{
+/**************************************
+ *
+ *  c v t _ v 3 _ t o _ v 4 _ i n t l
+ *
+ **************************************
+ *
+ * Functional description
+ *  Convert a V3 scale / sub_type to V4 character_set / collate_sequence
+ *
+ *  Version 3.2 & 3.3 of InterBase used different methodologies
+ *  to tag international text character sets and country collation
+ *  sequences.  This routine will convert a V3 metadata definition
+ *  into the corresponding V4 definition.
+ *
+ *  In V3.x, sub-type 0 is normal text, subtype 1 is "text that can
+ *  contain a NULL byte, and can therefore not be represented
+ *  using a c-string datatype, always use fixed".
+ *
+ *  Return TRUE if a conversion was performed, FALSE otherwise.
+ *
+ **************************************/
+	SSHORT i;
+
+	switch (dtype) {
+	case blr_text2:
+	case blr_varying2:
+	case blr_cstring2:
+
+	case blr_text:
+	case blr_varying:
+	case blr_cstring:
+
+		/* Japanese V3.2 used SCALE 5 to indicate SJIS text */
+		if (*scale == 5 && ((*sub_type == 0) || (*sub_type == 1))) {
+			*character_set_id = CS_JIS_0208;
+			*collation_id = 0;
+			BURP_verbose(237, (void *) *scale, (void *) *character_set_id,
+						 (void *) *collation_id, NULL_PTR, NULL_PTR);
+			/* msg 237: Converted V3 scale: %d to 
+			   character_set_id: %d and callate_id: %d. */
+			*scale = 0;
+			return TRUE;
+		}
+
+		/* Japanese V3.2 used SCALE 6 to indicate EUCJ text */
+		if (*scale == 6 && (*sub_type == 0 || *sub_type == 1)) {
+			*character_set_id = CS_EUCJ;
+			*collation_id = 0;
+			BURP_verbose(237, (void *) *scale, (void *) *character_set_id,
+						 (void *) *collation_id, NULL_PTR, NULL_PTR);
+			/* msg 237: Converted V3 scale: %d to 
+			   character_set_id: %d and callate_id: %d. */
+			*scale = 0;
+			return TRUE;
+		}
+
+		/* V3.3 used SCALE 0 and Subtypes in range 100 - 255 for
+		   European text types and collations */
+
+		if (*scale != 0)
+			return FALSE;
+
+		if (*sub_type == 0 || *sub_type == 1)
+			/* Do not process sub_type 0,1 conversion */
+			return FALSE;
+
+		for (i = 0; i < cvtbl_len; i++)
+			if (sub_type_cvtbl[i].sub_type == *sub_type) {
+				*character_set_id = sub_type_cvtbl[i].character_set_id;
+				*collation_id = sub_type_cvtbl[i].collation_id;
+
+				BURP_verbose(236, (void *) *sub_type,
+							 (void *) *character_set_id,
+							 (void *) *collation_id, NULL_PTR, NULL_PTR);
+				/* msg 236: Converted V3 sub_type: %d to 
+				   character_set_id: %d and callate_id: %d. */
+
+				*sub_type = 0;
+				return TRUE;
+			}
+		return FALSE;
+
+	default:
+		/* Do not process sub_type conversion on non-text field */
+		return FALSE;
+	}
+
+}
+
+static FLD get_field( REL relation)
+{
+/**************************************
+ *
+ *	g e t _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reconstruct a local field.
+ *
+ **************************************/
+	FLD field;
+	ATT_TYPE attribute;
+	USHORT n, global_tr = FALSE;
+	SLONG *rp;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+	FLD f;
+	isc_tr_handle local_trans;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* If it is a view and there is a global transaction then use it */
+
+	if ((relation->rel_flags & REL_view) && (tdgbl->global_trans)) {
+		local_trans = tdgbl->global_trans;
+		global_tr = TRUE;
+	}
+	else
+		local_trans = gds__trans;
+
+	field = (FLD) BURP_ALLOC_ZERO(sizeof(struct fld));
+
+	STORE (TRANSACTION_HANDLE local_trans
+	       REQUEST_HANDLE tdgbl->handles_get_field_req_handle1)
+	    X IN RDB$RELATION_FIELDS
+	    strcpy (X.RDB$RELATION_NAME, relation->rel_name);
+	    X.RDB$FIELD_POSITION = 0;
+	    memset (X.RDB$QUERY_NAME, ' ', sizeof (X.RDB$QUERY_NAME));
+	    X.RDB$VIEW_CONTEXT.NULL = TRUE;
+	    X.RDB$BASE_FIELD.NULL = TRUE;
+	    X.RDB$SECURITY_CLASS.NULL = TRUE;
+	    X.RDB$QUERY_NAME.NULL = TRUE;
+	    X.RDB$QUERY_HEADER.NULL = TRUE;
+	    X.RDB$EDIT_STRING.NULL = TRUE;
+	    X.RDB$DESCRIPTION.NULL = TRUE;
+	    X.RDB$FIELD_POSITION.NULL = TRUE;
+	    X.RDB$SYSTEM_FLAG.NULL = TRUE;
+	    X.RDB$COMPLEX_NAME.NULL = TRUE;
+	    X.RDB$UPDATE_FLAG.NULL = TRUE;
+	    X.RDB$DEFAULT_SOURCE.NULL = TRUE;
+	    X.RDB$DEFAULT_VALUE.NULL = TRUE;
+	    X.RDB$NULL_FLAG.NULL = TRUE;
+	    X.RDB$COLLATION_ID.NULL = TRUE;
+	    SKIP_INIT;
+	    while (GET_ATTRIBUTE (attribute) != att_end)
+	   switch (SKIP_SCAN, attribute)
+	       {
+	       case att_field_name:
+	       field->fld_name_length = 
+	           get_text (field->fld_name, sizeof (field->fld_name));
+	       BURP_verbose (115, field->fld_name, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR); 
+	       /* msg 115 restoring field %s */
+	       strcpy (X.RDB$FIELD_NAME, field->fld_name);
+	       break;
+	
+	       case att_field_source:
+	       get_text (X.RDB$FIELD_SOURCE, sizeof (X.RDB$FIELD_SOURCE));
+	       break;
+	
+	       case att_field_security_class:
+	       get_text (X.RDB$SECURITY_CLASS, sizeof (X.RDB$SECURITY_CLASS));
+	       X.RDB$SECURITY_CLASS.NULL = FALSE;
+	       break;
+	
+	       case att_field_query_name:
+	       get_text (X.RDB$QUERY_NAME, sizeof (X.RDB$QUERY_NAME));
+	       X.RDB$QUERY_NAME.NULL = FALSE;
+	       break;
+	
+	       case att_field_query_header:
+	       X.RDB$QUERY_HEADER.NULL = FALSE;
+	       get_source_blob (&X.RDB$QUERY_HEADER, global_tr);
+	       break;
+	
+	       case att_field_edit_string:
+	       get_text (X.RDB$EDIT_STRING, sizeof (X.RDB$EDIT_STRING));
+	       X.RDB$EDIT_STRING.NULL = FALSE;
+	       break;
+	
+	       case att_field_position:
+	       X.RDB$FIELD_POSITION.NULL = FALSE;
+	       X.RDB$FIELD_POSITION = (USHORT) get_numeric();
+	       break;
+	
+	       case att_field_number:
+	       field->fld_number = (USHORT) get_numeric();
+	       break;
+	
+	       case att_field_type:
+	       field->fld_type = (USHORT) get_numeric();
+	       break;
+	
+	       case att_field_length:
+	       field->fld_length = (USHORT) get_numeric();
+	       break;
+	
+	       case att_field_scale:
+	       field->fld_scale = (USHORT) get_numeric();
+	       break;
+	
+	       case att_field_sub_type:
+	       field->fld_sub_type = (USHORT) get_numeric();
+	       break;
+	
+	       case att_field_system_flag:
+	       X.RDB$SYSTEM_FLAG = (USHORT) get_numeric();
+	       X.RDB$SYSTEM_FLAG.NULL = FALSE;
+	       break;
+	
+	       case att_view_context:
+	       X.RDB$VIEW_CONTEXT = (USHORT) get_numeric();
+	       X.RDB$VIEW_CONTEXT.NULL = FALSE;
+	       break;
+	
+	       case att_field_computed_flag:
+	       if (get_numeric())
+	           field->fld_flags |= FLD_computed;
+	       break;
+	
+	       case att_base_field:
+	       get_text (X.RDB$BASE_FIELD, sizeof (X.RDB$BASE_FIELD));
+	       X.RDB$BASE_FIELD.NULL = FALSE;
+	       break;
+	
+	       case att_field_description:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_misc_blob (&X.RDB$DESCRIPTION, 1, global_tr);
+	       break;
+	
+	       case att_field_description2:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_source_blob (&X.RDB$DESCRIPTION, (UCHAR) global_tr);
+	       break;
+	
+	       case att_field_complex_name:
+	       get_text (X.RDB$COMPLEX_NAME, sizeof (X.RDB$COMPLEX_NAME));
+	       X.RDB$COMPLEX_NAME.NULL = FALSE;
+	       break;
+	
+	       case att_field_dimensions:
+	       field->fld_dimensions = (USHORT) get_numeric();
+	       field->fld_flags |= FLD_array;
+	       for (rp = field->fld_ranges, n = field->fld_dimensions; n; rp+=2, n--)
+	           {
+	           if (GET_ATTRIBUTE (attribute) != att_field_range_low)
+	           bad_attribute (scan_next_attr, attribute, 58); 
+	           /* msg 58 array */
+	           else
+	           *rp = get_numeric();
+	           if (GET_ATTRIBUTE (attribute) != att_field_range_high)
+	           bad_attribute (scan_next_attr, attribute, 58); 
+	           /* msg 58 array */
+	           else
+	           *(rp+1) = get_numeric();
+	           }
+	       break;
+	
+	       case att_field_update_flag:
+	       X.RDB$UPDATE_FLAG.NULL = FALSE;
+	       X.RDB$UPDATE_FLAG = (USHORT) get_numeric();
+	       break;
+	
+	       case att_field_character_length:
+	       field->fld_character_length = (USHORT) get_numeric();
+	       break;
+	
+	       case att_field_default_source:
+	       X.RDB$DEFAULT_SOURCE.NULL = FALSE;
+	       get_source_blob (&X.RDB$DEFAULT_SOURCE, global_tr);
+	       break;
+	
+	       case att_field_default_value:
+	       X.RDB$DEFAULT_VALUE.NULL = FALSE;
+	       get_blr_blob (&X.RDB$DEFAULT_VALUE, global_tr);
+	       break;
+	
+	       case att_field_null_flag:
+	       X.RDB$NULL_FLAG.NULL = FALSE;
+	       X.RDB$NULL_FLAG = (USHORT) get_numeric();
+	       break;
+	
+	       case att_field_character_set:
+	       field->fld_character_set_id = (USHORT) get_numeric();
+	       break;
+	
+	       case att_field_collation_id:
+	       field->fld_collation_id = (USHORT) get_numeric();
+	       X.RDB$COLLATION_ID.NULL = FALSE;
+	       X.RDB$COLLATION_ID = field->fld_collation_id;
+	       break;
+	
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 84); 
+	       /* msg 84 field */
+	       break;
+	       }
+	
+	   /* For migration from V3.3 to V4.0 format of International text
+	    * information - search the list of global fields which were 
+	    * remapped from V3.3 format into V4.0 format.  If we find that
+	    * this local field's source is one of those global fields, then
+	    * remap the local field's information.  This is used to compose
+	    * the BLR which sends data to the newly restored database.
+	    */
+	   for (f = tdgbl->v3_cvt_fld_list; f; f = f->fld_next)
+	       {
+	       if (!strcmp(X.RDB$FIELD_SOURCE, f->fld_name))
+	       {
+	       field->fld_sub_type = f->fld_sub_type;
+	       field->fld_scale = f->fld_scale;
+	       field->fld_character_set_id = f->fld_character_set_id;
+	       field->fld_collation_id = f->fld_collation_id;
+	       break;
+	       }
+	       }
+	
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return field;
+}
+
+
+static BOOLEAN get_field_dimensions(void)
+{
+/**************************************
+ *
+ *	g e t _ f i e l d _ d i m e n s i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get array field dimensions in rdb$field_dimensions.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_field_dimensions_req_handle1)
+	    X IN RDB$FIELD_DIMENSIONS
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	   {
+	   switch (attribute)
+	       {
+	       case att_field_name:
+	       get_text (X.RDB$FIELD_NAME, sizeof (X.RDB$FIELD_NAME));
+	       break;
+	
+	       case att_field_dimensions:
+	       X.RDB$DIMENSION = (USHORT) get_numeric();
+	       break;
+	
+	       case att_field_range_low:
+	       X.RDB$LOWER_BOUND = get_numeric();
+	       break;
+	
+	       case att_field_range_high:
+	       X.RDB$UPPER_BOUND = get_numeric();
+	       break;
+	
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 58); 
+	       /* msg 58 array */
+	       break;
+	       }
+	   }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_files(void)
+{
+/**************************************
+ *
+ *	g e t _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get any files that were stored; let
+ *	somebody else worry about what to do with them.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_files_req_handle1)
+	    X IN RDB$FILES
+	    X.RDB$FILE_FLAGS = 0;
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	   switch (attribute)
+	       {
+	            case att_file_filename:
+	       get_text (X.RDB$FILE_NAME, sizeof (X.RDB$FILE_NAME));
+	       BURP_verbose (116,
+	                /* msg 116 restoring file %s */
+	           X.RDB$FILE_NAME, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	       break;
+	                                                   
+	       case att_file_sequence:
+	       X.RDB$FILE_SEQUENCE = (USHORT) get_numeric();
+	       break;
+	                                                   
+	       case att_file_start:
+	       X.RDB$FILE_START = get_numeric();
+	       break;
+	                                                   
+	       case att_file_length:
+	       X.RDB$FILE_LENGTH = get_numeric();
+	       break;
+	                                                   
+	       case att_file_flags:
+	       X.RDB$FILE_FLAGS |= get_numeric();
+	       break;
+	                                                   
+	       case att_shadow_number:
+	       X.RDB$SHADOW_NUMBER = (USHORT) get_numeric();
+	       if (tdgbl->gbl_sw_kill && X.RDB$SHADOW_NUMBER)
+	           X.RDB$FILE_FLAGS |= FILE_inactive;
+	       break;
+	                                                   
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 85); 
+	       /* msg 85 file */
+	       break;
+	       }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_filter(void)
+{
+/**************************************
+ *
+ *	g e t _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a type definition in rdb$filters.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_filter_req_handle1)
+	    X IN RDB$FILTERS
+	    X.RDB$DESCRIPTION.NULL = TRUE;
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	        {
+	   switch (attribute)
+	       {
+	       case att_filter_name:
+	       get_text (X.RDB$FUNCTION_NAME, sizeof (X.RDB$FUNCTION_NAME));
+	                BURP_verbose (117, X.RDB$FUNCTION_NAME, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                /* msg 117 restoring filter %s */
+	       break;
+	
+	       case att_filter_description:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_misc_blob (&X.RDB$DESCRIPTION, 1, 0);
+	       break;
+	
+	       case att_filter_description2:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_source_blob (&X.RDB$DESCRIPTION, 0);
+	       break;
+	
+	       case att_filter_module_name:
+	       get_text (X.RDB$MODULE_NAME, sizeof (X.RDB$MODULE_NAME));
+	       break;
+	
+	       case att_filter_entrypoint:
+	       get_text (X.RDB$ENTRYPOINT, sizeof (X.RDB$ENTRYPOINT));
+	       break;
+	
+	       case att_filter_input_sub_type:
+	       X.RDB$INPUT_SUB_TYPE = (USHORT) get_numeric();
+	       break;
+	
+	       case att_filter_output_sub_type:
+	       X.RDB$OUTPUT_SUB_TYPE = (USHORT) get_numeric();
+	       break;
+	
+	            default:
+	           bad_attribute (scan_next_attr, attribute, 87); 
+	       /* msg 87  filter */
+	       break;
+	       }
+	   }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_function(void)
+{
+/**************************************
+ *
+ *	g e t _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reconstruct a function.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	GDS_NAME function_name;
+	TEXT temp[32];
+	SSHORT l;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_function_req_handle1)
+	    X IN RDB$FUNCTIONS
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	   switch (attribute)
+	       {
+	            case att_function_name:
+	       l = get_text (X.RDB$FUNCTION_NAME, sizeof (X.RDB$FUNCTION_NAME));
+	       MISC_terminate (X.RDB$FUNCTION_NAME, temp, l, sizeof (temp));
+	       BURP_verbose (118, temp, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	           /* msg 118 restoring function %s */
+	       break;
+	                                                   
+	       case att_function_description:
+	       get_misc_blob (&X.RDB$DESCRIPTION, 0, 0);
+	       break;
+	                                                   
+	       case att_function_description2:
+	       get_source_blob (&X.RDB$DESCRIPTION, 0);
+	       break;
+	                                                   
+	            case att_function_module_name:
+	       get_text (X.RDB$MODULE_NAME, sizeof (X.RDB$MODULE_NAME));
+	       break;
+	
+	            case att_function_entrypoint:
+	       get_text (X.RDB$ENTRYPOINT, sizeof (X.RDB$ENTRYPOINT));
+	       break;
+	                                                   
+	       case att_function_return_arg:
+	       X.RDB$RETURN_ARGUMENT = (USHORT) get_numeric();
+	       break;
+	                                                   
+	            case att_function_query_name:
+	       get_text (X.RDB$QUERY_NAME, sizeof (X.RDB$QUERY_NAME));
+	       break;
+	
+	       case att_function_type:
+	       X.RDB$FUNCTION_TYPE = (USHORT) get_numeric();
+	       break;
+	                                                   
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 89); 
+	       /* msg 89 function */
+	       break;
+	       }
+	    strcpy (function_name, X.RDB$FUNCTION_NAME);
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+/* at the end of args for a function is the rec_function_end marker */
+	while (GET() == rec_function_arg)
+		get_function_arg(function_name);
+
+	return TRUE;
+}
+
+
+static void get_function_arg( GDS_NAME funcptr)
+{
+/**************************************
+ *
+ *	g e t _ f u n c t i o n _ a r g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reconstruct function argument.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	SSHORT l;
+	TEXT temp[32];
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	if (tdgbl->RESTORE_format >= 6) {
+		/* with RDB$FIELD_PRECISION */
+	    STORE (REQUEST_HANDLE tdgbl->handles_get_function_arg_req_handle1)
+	   X IN RDB$FUNCTION_ARGUMENTS
+	   X.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+	   X.RDB$CHARACTER_SET_ID.NULL = TRUE;
+	   X.RDB$FIELD_PRECISION.NULL  = TRUE;
+	
+	   SKIP_INIT;
+	   while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	       switch (attribute)
+	       {
+	       case att_functionarg_name:
+	           l = get_text (X.RDB$FUNCTION_NAME, sizeof (X.RDB$FUNCTION_NAME));
+	           MISC_terminate (X.RDB$FUNCTION_NAME, temp, l, sizeof (temp));
+	           BURP_verbose (119, temp, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	               /* msg 119 restoring argument for function %s */
+	           break;
+	
+	       case att_functionarg_position:
+	           X.RDB$ARGUMENT_POSITION = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_mechanism:
+	           X.RDB$MECHANISM = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_field_type:
+	           X.RDB$FIELD_TYPE = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_field_scale:
+	           X.RDB$FIELD_SCALE = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_field_length:
+	           X.RDB$FIELD_LENGTH = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_field_sub_type:
+	           X.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+	           X.RDB$FIELD_SUB_TYPE = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_character_set:
+	           X.RDB$CHARACTER_SET_ID.NULL = FALSE;
+	           X.RDB$CHARACTER_SET_ID = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_field_precision:
+	           X.RDB$FIELD_PRECISION.NULL = FALSE;
+	           X.RDB$FIELD_PRECISION = (USHORT) get_numeric();
+	           break;
+	
+	       default:
+	           bad_attribute (scan_next_attr, attribute, 90); 
+	           /* msg 90 function argument */
+	           break;
+	       }
+	    END_STORE;
+	    ON_ERROR
+	   general_on_error ();
+	    END_ERROR;
+	}
+	else {
+		/* without RDB$FIELD_PRECISION */
+	    STORE (REQUEST_HANDLE tdgbl->handles_get_function_arg_req_handle1)
+	   X IN RDB$FUNCTION_ARGUMENTS
+	   X.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+	   X.RDB$CHARACTER_SET_ID.NULL = TRUE;
+	
+	   SKIP_INIT;
+	   while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	       switch (attribute)
+	       {
+	       case att_functionarg_name:
+	           l = get_text (X.RDB$FUNCTION_NAME, sizeof (X.RDB$FUNCTION_NAME));
+	           MISC_terminate (X.RDB$FUNCTION_NAME, temp, l, sizeof (temp));
+	           BURP_verbose (119, temp, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	               /* msg 119 restoring argument for function %s */
+	           break;
+	
+	       case att_functionarg_position:
+	           X.RDB$ARGUMENT_POSITION = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_mechanism:
+	           X.RDB$MECHANISM = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_field_type:
+	           X.RDB$FIELD_TYPE = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_field_scale:
+	           X.RDB$FIELD_SCALE = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_field_length:
+	           X.RDB$FIELD_LENGTH = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_field_sub_type:
+	           X.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+	           X.RDB$FIELD_SUB_TYPE = (USHORT) get_numeric();
+	           break;
+	
+	       case att_functionarg_character_set:
+	           X.RDB$CHARACTER_SET_ID.NULL = FALSE;
+	           X.RDB$CHARACTER_SET_ID = (USHORT) get_numeric();
+	           break;
+	
+	       default:
+	           bad_attribute (scan_next_attr, attribute, 90); 
+	           /* msg 90 function argument */
+	           break;
+	       }
+	    END_STORE;
+	    ON_ERROR
+	   general_on_error ();
+	    END_ERROR;
+	}
+}
+
+
+static BOOLEAN get_generator(void)
+{
+/**************************************
+ *
+ *	g e t _ g e n e r a t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a gen-id.  Like most things, there is ughly history.
+ *	In the modern world, gen_id are free floating records.  In the
+ *	bad old days they were attributes of relations.  Handle both
+ *	nicely.
+ *
+ **************************************/
+	SINT64 value;
+	TEXT name[32];
+	ATT_TYPE attribute;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	SKIP_INIT;
+	while (SKIP_SCAN, GET_ATTRIBUTE(attribute) != att_end)
+		switch (attribute) {
+		case att_gen_generator:
+			get_text(name, sizeof(name));
+			break;
+
+		case att_gen_value:
+			/* IB v5 or earlier, gen_id value is an SLONG */
+			value = (SINT64) get_numeric();
+			break;
+
+		case att_gen_value_int64:
+			/* IB v6 or later, gen_id value is an SINT64 */
+			value = get_int64();
+			break;
+
+		default:
+			bad_attribute(scan_next_attr, attribute, 93);
+			/* msg 93 index */
+			break;
+		}
+
+	store_blr_gen_id(name, value);
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_global_field(void)
+{
+/**************************************
+ *
+ *	g e t _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reconstruct a global field.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	TEXT temp[32];
+	SSHORT l;
+	GFLD gfld;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+	SSHORT save_subtype;
+
+	tdgbl = GET_THREAD_DATA;
+
+	gfld = (GFLD) NULL_PTR;
+
+	if (tdgbl->RESTORE_format >= 6) {
+		/* with rdb$field_precision */
+	    STORE (REQUEST_HANDLE tdgbl->handles_get_global_field_req_handle1)
+	   X IN RDB$FIELDS
+	
+	   X.RDB$FIELD_SCALE = X.RDB$SEGMENT_LENGTH = 0;
+	   X.RDB$CHARACTER_SET_ID = X.RDB$COLLATION_ID = 0;
+	   X.RDB$FIELD_SUB_TYPE = 0;
+	   X.RDB$COMPUTED_BLR.NULL = TRUE;
+	   X.RDB$COMPUTED_SOURCE.NULL = TRUE;
+	   X.RDB$QUERY_NAME.NULL = TRUE;
+	   X.RDB$EDIT_STRING.NULL = TRUE;
+	   X.RDB$QUERY_HEADER.NULL = TRUE;
+	   X.RDB$MISSING_VALUE.NULL = TRUE;
+	   X.RDB$DEFAULT_VALUE.NULL = TRUE;
+	   X.RDB$VALIDATION_BLR.NULL = TRUE;
+	   X.RDB$VALIDATION_SOURCE.NULL = TRUE;
+	   X.RDB$SYSTEM_FLAG.NULL = TRUE;
+	   X.RDB$NULL_FLAG.NULL = TRUE;
+	   X.RDB$DESCRIPTION.NULL = TRUE;
+	   X.RDB$DIMENSIONS.NULL = TRUE;
+	   X.RDB$EXTERNAL_LENGTH.NULL = TRUE;
+	   X.RDB$EXTERNAL_TYPE.NULL = TRUE;
+	   X.RDB$EXTERNAL_SCALE.NULL = TRUE;
+	   X.RDB$SEGMENT_LENGTH.NULL = TRUE;
+	   X.RDB$CHARACTER_LENGTH.NULL = TRUE;
+	   X.RDB$MISSING_SOURCE.NULL = TRUE;
+	   X.RDB$DEFAULT_SOURCE.NULL = TRUE;
+	   X.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+	   X.RDB$CHARACTER_SET_ID.NULL = TRUE;
+	   X.RDB$COLLATION_ID.NULL = TRUE;
+	   X.RDB$FIELD_PRECISION.NULL = TRUE;
+	
+	   memset (X.RDB$QUERY_NAME, ' ', sizeof (X.RDB$QUERY_NAME));
+	   SKIP_INIT;
+	   while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	       switch (attribute)
+	       {
+	       case att_field_name:
+	           l = get_text (X.RDB$FIELD_NAME, sizeof (X.RDB$FIELD_NAME));
+	           MISC_terminate (X.RDB$FIELD_NAME, temp, l, sizeof (temp));
+	           BURP_verbose (121, temp, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	               /* msg 121  restoring global field %s */
+	           break;
+	
+	       case att_field_query_name:
+	           get_text (X.RDB$QUERY_NAME, sizeof (X.RDB$QUERY_NAME));
+	           X.RDB$QUERY_NAME.NULL = FALSE;
+	           break;
+	
+	       case att_field_edit_string:
+	           get_text (X.RDB$EDIT_STRING, sizeof (X.RDB$EDIT_STRING));
+	           X.RDB$EDIT_STRING.NULL = FALSE;
+	           break;
+	
+	       case att_field_query_header:
+	           X.RDB$QUERY_HEADER.NULL = FALSE;
+	           get_source_blob (&X.RDB$QUERY_HEADER, 0);
+	           break;
+	
+	       case att_field_type:
+	           X.RDB$FIELD_TYPE = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_length:
+	           X.RDB$FIELD_LENGTH = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_scale:
+	           X.RDB$FIELD_SCALE = (USHORT) get_numeric();
+	           X.RDB$FIELD_SCALE.NULL = FALSE;
+	           break;
+	
+	       case att_field_sub_type:
+	           X.RDB$FIELD_SUB_TYPE = (USHORT) get_numeric();
+	           X.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+	           break;
+	
+	       case att_field_segment_length:
+	           X.RDB$SEGMENT_LENGTH = (USHORT) get_numeric();
+	           if (X.RDB$SEGMENT_LENGTH)
+	           X.RDB$SEGMENT_LENGTH.NULL = FALSE;
+	           break;
+	
+	       case att_field_computed_blr:
+	           X.RDB$COMPUTED_BLR.NULL = FALSE;
+	           get_blr_blob (&X.RDB$COMPUTED_BLR, 0);
+	           break;
+	
+	       case att_field_computed_source:
+	           X.RDB$COMPUTED_SOURCE.NULL = FALSE;
+	           get_misc_blob (&X.RDB$COMPUTED_SOURCE, 1, 0);
+	           break;
+	
+	       case att_field_computed_source2:
+	           X.RDB$COMPUTED_SOURCE.NULL = FALSE;
+	           get_source_blob (&X.RDB$COMPUTED_SOURCE, 0);
+	           break;
+	
+	       case att_field_validation_blr:
+	           if (tdgbl->gbl_sw_novalidity)
+	           eat_blob();
+	           else
+	           {
+	           /* if we are going against a V4.0 database,
+	            * restore the global fields in 2 phases.
+	            */
+	
+	           if (tdgbl->global_trans)
+	               {
+	               if (!gfld)
+	               gfld = (GFLD) BURP_ALLOC_ZERO (sizeof (struct gfld));
+	
+	               get_blr_blob (&gfld->gfld_vb, 1);
+	               gfld->gfld_flags |= GFLD_validation_blr;
+	               }
+	           else
+	               {
+	               X.RDB$VALIDATION_BLR.NULL = FALSE;
+	               get_blr_blob (&X.RDB$VALIDATION_BLR, 0);
+	               }
+	           }
+	           break;
+	
+	       case att_field_validation_source:
+	           if (tdgbl->gbl_sw_novalidity)
+	           eat_blob();
+	           else
+	           {
+	           /* if we are going against a V4.0 database,
+	            * restore the global fields in 2 phases.
+	            */
+	
+	           if (tdgbl->global_trans)
+	               {
+	               if (!gfld)
+	               gfld = (GFLD) BURP_ALLOC_ZERO (sizeof (struct gfld));
+	
+	               get_misc_blob (&gfld->gfld_vs, 0, 1);
+	               gfld->gfld_flags |= GFLD_validation_source;
+	               }
+	           else
+	               {
+	               X.RDB$VALIDATION_SOURCE.NULL = FALSE;
+	               get_misc_blob (&X.RDB$VALIDATION_SOURCE, 0, 0);
+	               }
+	           }
+	           break;
+	
+	       case att_field_validation_source2:
+	           if (tdgbl->gbl_sw_novalidity)
+	           eat_blob();
+	           else
+	           {
+	           /* if we are going against a V4.0 database,
+	            * restore the global fields in 2 phases.
+	            */
+	
+	           if (tdgbl->global_trans)
+	               {
+	               if (!gfld)
+	               gfld = (GFLD) BURP_ALLOC_ZERO (sizeof (struct gfld));
+	
+	               get_source_blob (&gfld->gfld_vs2, 1);
+	               gfld->gfld_flags |= GFLD_validation_source2;
+	               }
+	           else
+	               {
+	               X.RDB$VALIDATION_SOURCE.NULL = FALSE;
+	               get_source_blob (&X.RDB$VALIDATION_SOURCE, 0);
+	               }
+	           }
+	           break;
+	
+	       case att_field_missing_value:
+	           X.RDB$MISSING_VALUE.NULL = FALSE;
+	           get_blr_blob (&X.RDB$MISSING_VALUE, 0);
+	           break;
+	
+	       case att_field_default_value:
+	           X.RDB$DEFAULT_VALUE.NULL = FALSE;
+	           get_blr_blob (&X.RDB$DEFAULT_VALUE, 0);
+	           break;
+	
+	       case att_field_system_flag:
+	           X.RDB$SYSTEM_FLAG = (USHORT) get_numeric();
+	           X.RDB$SYSTEM_FLAG.NULL = FALSE;
+	           break;
+	
+	       case att_field_null_flag:
+	           X.RDB$NULL_FLAG = (USHORT) get_numeric();
+	           X.RDB$NULL_FLAG.NULL = FALSE;
+	           break;
+	
+	       case att_field_description:
+	           X.RDB$DESCRIPTION.NULL = FALSE;
+	           get_misc_blob (&X.RDB$DESCRIPTION, 1, 0);
+	           break;
+	
+	       case att_field_description2:
+	           X.RDB$DESCRIPTION.NULL = FALSE;
+	           get_source_blob (&X.RDB$DESCRIPTION, 0);
+	           break;
+	
+	       case att_field_external_length:
+	           X.RDB$EXTERNAL_LENGTH.NULL = FALSE;
+	           X.RDB$EXTERNAL_LENGTH = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_external_scale:
+	           X.RDB$EXTERNAL_SCALE.NULL = FALSE;
+	           X.RDB$EXTERNAL_SCALE = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_external_type:
+	           X.RDB$EXTERNAL_TYPE.NULL = FALSE;
+	           X.RDB$EXTERNAL_TYPE = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_dimensions:
+	           X.RDB$DIMENSIONS.NULL = FALSE;
+	           X.RDB$DIMENSIONS = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_character_length:
+	           X.RDB$CHARACTER_LENGTH.NULL = FALSE;
+	           X.RDB$CHARACTER_LENGTH = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_default_source:
+	           X.RDB$DEFAULT_SOURCE.NULL = FALSE;
+	           get_source_blob (&X.RDB$DEFAULT_SOURCE, 0);
+	           break;
+	
+	       case att_field_missing_source:
+	           X.RDB$MISSING_SOURCE.NULL = FALSE;
+	           get_source_blob (&X.RDB$MISSING_SOURCE, 0);
+	           break;
+	
+	       case att_field_character_set:
+	           X.RDB$CHARACTER_SET_ID.NULL = FALSE;
+	           X.RDB$CHARACTER_SET_ID = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_collation_id:
+	           X.RDB$COLLATION_ID.NULL = FALSE;
+	           X.RDB$COLLATION_ID = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_precision:
+	           X.RDB$FIELD_PRECISION.NULL = FALSE;
+	           X.RDB$FIELD_PRECISION = (USHORT) get_numeric();
+	           break;
+	
+	       default:
+	           bad_attribute (scan_next_attr, attribute, 92); /* msg 92  global field */
+	           break;
+	       }
+	       if (X.RDB$FIELD_TYPE <= DTYPE_BLR_MAX)
+	       {
+	       l = gds_cvt_blr_dtype [X.RDB$FIELD_TYPE];
+	       if (l = type_lengths [l])
+	           X.RDB$FIELD_LENGTH = l;
+	       }
+	
+	       if (gfld)
+	       strcpy (gfld->gfld_name, X.RDB$FIELD_NAME);
+	
+	       /* V3.3 used a different method from V4.0 for encoding International
+	        * text character set & collation information.  Here we are
+	        * looking at the metadata information, deciding if it is
+	        * the V3.3 method, and converting it to the V4.0 method so
+	        * V3.3 customers can migrate their database to V4.0.
+	        */
+	       save_subtype = X.RDB$FIELD_SUB_TYPE;
+	       if (X.RDB$CHARACTER_SET_ID.NULL &&
+	       X.RDB$COLLATION_ID.NULL &&
+	       cvt_v3_to_v4_intl (X.RDB$FIELD_TYPE, &X.RDB$FIELD_SCALE, 
+	             &X.RDB$FIELD_SUB_TYPE, &X.RDB$CHARACTER_SET_ID, 
+	             &X.RDB$COLLATION_ID))
+	           {
+	           FLD f;
+	
+	           /* If some value was reset, set the NULL flag */
+	           if (save_subtype && !X.RDB$FIELD_SUB_TYPE)
+	           X.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+	           X.RDB$CHARACTER_SET_ID.NULL = FALSE;
+	           X.RDB$COLLATION_ID.NULL = FALSE;
+	
+	           /* Add an entry to the converted-field link list
+	            * so we can also convert local fields based on this
+	            * global field
+	            */
+	
+	           f = (FLD) BURP_ALLOC_ZERO (sizeof(struct fld));
+	           strcpy (f->fld_name, X.RDB$FIELD_NAME);
+	           f->fld_sub_type = X.RDB$FIELD_SUB_TYPE;
+	           f->fld_scale = X.RDB$FIELD_SCALE;
+	           f->fld_character_set_id = X.RDB$CHARACTER_SET_ID;
+	           f->fld_collation_id = X.RDB$COLLATION_ID;
+	           f->fld_next = tdgbl->v3_cvt_fld_list;
+	           tdgbl->v3_cvt_fld_list = f;
+	           }
+	
+	    END_STORE;
+	    ON_ERROR
+	   general_on_error ();
+	    END_ERROR;
+
+	}
+	else {						/* RESTORE_format < 6 */
+
+		/* without rdb$field_precision */
+
+	    STORE (REQUEST_HANDLE tdgbl->handles_get_global_field_req_handle1)
+	   X IN RDB$FIELDS
+	
+	   X.RDB$FIELD_SCALE = X.RDB$SEGMENT_LENGTH = 0;
+	   X.RDB$CHARACTER_SET_ID = X.RDB$COLLATION_ID = 0;
+	   X.RDB$FIELD_SUB_TYPE = 0;
+	   X.RDB$COMPUTED_BLR.NULL = TRUE;
+	   X.RDB$COMPUTED_SOURCE.NULL = TRUE;
+	   X.RDB$QUERY_NAME.NULL = TRUE;
+	   X.RDB$EDIT_STRING.NULL = TRUE;
+	   X.RDB$QUERY_HEADER.NULL = TRUE;
+	   X.RDB$MISSING_VALUE.NULL = TRUE;
+	   X.RDB$DEFAULT_VALUE.NULL = TRUE;
+	   X.RDB$VALIDATION_BLR.NULL = TRUE;
+	   X.RDB$VALIDATION_SOURCE.NULL = TRUE;
+	   X.RDB$SYSTEM_FLAG.NULL = TRUE;
+	   X.RDB$NULL_FLAG.NULL = TRUE;
+	   X.RDB$DESCRIPTION.NULL = TRUE;
+	   X.RDB$DIMENSIONS.NULL = TRUE;
+	   X.RDB$EXTERNAL_LENGTH.NULL = TRUE;
+	   X.RDB$EXTERNAL_TYPE.NULL = TRUE;
+	   X.RDB$EXTERNAL_SCALE.NULL = TRUE;
+	   X.RDB$SEGMENT_LENGTH.NULL = TRUE;
+	   X.RDB$CHARACTER_LENGTH.NULL = TRUE;
+	   X.RDB$MISSING_SOURCE.NULL = TRUE;
+	   X.RDB$DEFAULT_SOURCE.NULL = TRUE;
+	   X.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+	   X.RDB$CHARACTER_SET_ID.NULL = TRUE;
+	   X.RDB$COLLATION_ID.NULL = TRUE;
+	
+	   memset (X.RDB$QUERY_NAME, ' ', sizeof (X.RDB$QUERY_NAME));
+	   SKIP_INIT;
+	   while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	       switch (attribute)
+	       {
+	       case att_field_name:
+	           l = get_text (X.RDB$FIELD_NAME, sizeof (X.RDB$FIELD_NAME));
+	           MISC_terminate (X.RDB$FIELD_NAME, temp, l, sizeof (temp));
+	           BURP_verbose (121, temp, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	               /* msg 121  restoring global field %s */
+	           break;
+	
+	       case att_field_query_name:
+	           get_text (X.RDB$QUERY_NAME, sizeof (X.RDB$QUERY_NAME));
+	           X.RDB$QUERY_NAME.NULL = FALSE;
+	           break;
+	
+	       case att_field_edit_string:
+	           get_text (X.RDB$EDIT_STRING, sizeof (X.RDB$EDIT_STRING));
+	           X.RDB$EDIT_STRING.NULL = FALSE;
+	           break;
+	
+	       case att_field_query_header:
+	           X.RDB$QUERY_HEADER.NULL = FALSE;
+	           get_source_blob (&X.RDB$QUERY_HEADER, 0);
+	           break;
+	
+	       case att_field_type:
+	           X.RDB$FIELD_TYPE = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_length:
+	           X.RDB$FIELD_LENGTH = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_scale:
+	           X.RDB$FIELD_SCALE = (USHORT) get_numeric();
+	           X.RDB$FIELD_SCALE.NULL = FALSE;
+	           break;
+	
+	       case att_field_sub_type:
+	           X.RDB$FIELD_SUB_TYPE = (USHORT) get_numeric();
+	           X.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+	           break;
+	
+	       case att_field_segment_length:
+	           X.RDB$SEGMENT_LENGTH = (USHORT) get_numeric();
+	           if (X.RDB$SEGMENT_LENGTH)
+	           X.RDB$SEGMENT_LENGTH.NULL = FALSE;
+	           break;
+	
+	       case att_field_computed_blr:
+	           X.RDB$COMPUTED_BLR.NULL = FALSE;
+	           get_blr_blob (&X.RDB$COMPUTED_BLR, 0);
+	           break;
+	
+	       case att_field_computed_source:
+	           X.RDB$COMPUTED_SOURCE.NULL = FALSE;
+	           get_misc_blob (&X.RDB$COMPUTED_SOURCE, 1, 0);
+	           break;
+	
+	       case att_field_computed_source2:
+	           X.RDB$COMPUTED_SOURCE.NULL = FALSE;
+	           get_source_blob (&X.RDB$COMPUTED_SOURCE, 0);
+	           break;
+	
+	       case att_field_validation_blr:
+	           if (tdgbl->gbl_sw_novalidity)
+	           eat_blob();
+	           else
+	           {
+	           /* if we are going against a V4.0 database,
+	            * restore the global fields in 2 phases.
+	            */
+	
+	           if (tdgbl->global_trans)
+	               {
+	               if (!gfld)
+	               gfld = (GFLD) BURP_ALLOC_ZERO (sizeof (struct gfld));
+	
+	               get_blr_blob (&gfld->gfld_vb, 1);
+	               gfld->gfld_flags |= GFLD_validation_blr;
+	               }
+	           else
+	               {
+	               X.RDB$VALIDATION_BLR.NULL = FALSE;
+	               get_blr_blob (&X.RDB$VALIDATION_BLR, 0);
+	               }
+	           }
+	           break;
+	
+	       case att_field_validation_source:
+	           if (tdgbl->gbl_sw_novalidity)
+	           eat_blob();
+	           else
+	           {
+	           /* if we are going against a V4.0 database,
+	            * restore the global fields in 2 phases.
+	            */
+	
+	           if (tdgbl->global_trans)
+	               {
+	               if (!gfld)
+	               gfld = (GFLD) BURP_ALLOC_ZERO (sizeof (struct gfld));
+	
+	               get_misc_blob (&gfld->gfld_vs, 0, 1);
+	               gfld->gfld_flags |= GFLD_validation_source;
+	               }
+	           else
+	               {
+	               X.RDB$VALIDATION_SOURCE.NULL = FALSE;
+	               get_misc_blob (&X.RDB$VALIDATION_SOURCE, 0, 0);
+	               }
+	           }
+	           break;
+	
+	       case att_field_validation_source2:
+	           if (tdgbl->gbl_sw_novalidity)
+	           eat_blob();
+	           else
+	           {
+	           /* if we are going against a V4.0 database,
+	            * restore the global fields in 2 phases.
+	            */
+	
+	           if (tdgbl->global_trans)
+	               {
+	               if (!gfld)
+	               gfld = (GFLD) BURP_ALLOC_ZERO (sizeof (struct gfld));
+	
+	               get_source_blob (&gfld->gfld_vs2, 1);
+	               gfld->gfld_flags |= GFLD_validation_source2;
+	               }
+	           else
+	               {
+	               X.RDB$VALIDATION_SOURCE.NULL = FALSE;
+	               get_source_blob (&X.RDB$VALIDATION_SOURCE, 0);
+	               }
+	           }
+	           break;
+	
+	       case att_field_missing_value:
+	           X.RDB$MISSING_VALUE.NULL = FALSE;
+	           get_blr_blob (&X.RDB$MISSING_VALUE, 0);
+	           break;
+	
+	       case att_field_default_value:
+	           X.RDB$DEFAULT_VALUE.NULL = FALSE;
+	           get_blr_blob (&X.RDB$DEFAULT_VALUE, 0);
+	           break;
+	
+	       case att_field_system_flag:
+	           X.RDB$SYSTEM_FLAG = (USHORT) get_numeric();
+	           X.RDB$SYSTEM_FLAG.NULL = FALSE;
+	           break;
+	
+	       case att_field_null_flag:
+	           X.RDB$NULL_FLAG = (USHORT) get_numeric();
+	           X.RDB$NULL_FLAG.NULL = FALSE;
+	           break;
+	
+	       case att_field_description:
+	           X.RDB$DESCRIPTION.NULL = FALSE;
+	           get_misc_blob (&X.RDB$DESCRIPTION, 1, 0);
+	           break;
+	
+	       case att_field_description2:
+	           X.RDB$DESCRIPTION.NULL = FALSE;
+	           get_source_blob (&X.RDB$DESCRIPTION, 0);
+	           break;
+	
+	       case att_field_external_length:
+	           X.RDB$EXTERNAL_LENGTH.NULL = FALSE;
+	           X.RDB$EXTERNAL_LENGTH = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_external_scale:
+	           X.RDB$EXTERNAL_SCALE.NULL = FALSE;
+	           X.RDB$EXTERNAL_SCALE = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_external_type:
+	           X.RDB$EXTERNAL_TYPE.NULL = FALSE;
+	           X.RDB$EXTERNAL_TYPE = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_dimensions:
+	           X.RDB$DIMENSIONS.NULL = FALSE;
+	           X.RDB$DIMENSIONS = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_character_length:
+	           X.RDB$CHARACTER_LENGTH.NULL = FALSE;
+	           X.RDB$CHARACTER_LENGTH = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_default_source:
+	           X.RDB$DEFAULT_SOURCE.NULL = FALSE;
+	           get_source_blob (&X.RDB$DEFAULT_SOURCE, 0);
+	           break;
+	
+	       case att_field_missing_source:
+	           X.RDB$MISSING_SOURCE.NULL = FALSE;
+	           get_source_blob (&X.RDB$MISSING_SOURCE, 0);
+	           break;
+	
+	       case att_field_character_set:
+	           X.RDB$CHARACTER_SET_ID.NULL = FALSE;
+	           X.RDB$CHARACTER_SET_ID = (USHORT) get_numeric();
+	           break;
+	
+	       case att_field_collation_id:
+	           X.RDB$COLLATION_ID.NULL = FALSE;
+	           X.RDB$COLLATION_ID = (USHORT) get_numeric();
+	           break;
+	
+	       default:
+	           bad_attribute (scan_next_attr, attribute, 92); /* msg 92  global field */
+	           break;
+	       }
+	       if (X.RDB$FIELD_TYPE <= DTYPE_BLR_MAX)
+	       {
+	       l = gds_cvt_blr_dtype [X.RDB$FIELD_TYPE];
+	       if (l = type_lengths [l])
+	           X.RDB$FIELD_LENGTH = l;
+	       }
+	
+	       if (gfld)
+	       strcpy (gfld->gfld_name, X.RDB$FIELD_NAME);
+	
+	       /* V3.3 used a different method from V4.0 for encoding International
+	        * text character set & collation information.  Here we are
+	        * looking at the metadata information, deciding if it is
+	        * the V3.3 method, and converting it to the V4.0 method so
+	        * V3.3 customers can migrate their database to V4.0.
+	        */
+	       save_subtype = X.RDB$FIELD_SUB_TYPE;
+	       if (X.RDB$CHARACTER_SET_ID.NULL &&
+	       X.RDB$COLLATION_ID.NULL &&
+	       cvt_v3_to_v4_intl (X.RDB$FIELD_TYPE, &X.RDB$FIELD_SCALE, 
+	             &X.RDB$FIELD_SUB_TYPE, &X.RDB$CHARACTER_SET_ID, 
+	             &X.RDB$COLLATION_ID))
+	           {
+	           FLD f;
+	
+	           /* If some value was reset, set the NULL flag */
+	           if (save_subtype && !X.RDB$FIELD_SUB_TYPE)
+	           X.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+	           X.RDB$CHARACTER_SET_ID.NULL = FALSE;
+	           X.RDB$COLLATION_ID.NULL = FALSE;
+	
+	           /* Add an entry to the converted-field link list
+	            * so we can also convert local fields based on this
+	            * global field
+	            */
+	
+	           f = (FLD) BURP_ALLOC_ZERO (sizeof(struct fld));
+	           strcpy (f->fld_name, X.RDB$FIELD_NAME);
+	           f->fld_sub_type = X.RDB$FIELD_SUB_TYPE;
+	           f->fld_scale = X.RDB$FIELD_SCALE;
+	           f->fld_character_set_id = X.RDB$CHARACTER_SET_ID;
+	           f->fld_collation_id = X.RDB$COLLATION_ID;
+	           f->fld_next = tdgbl->v3_cvt_fld_list;
+	           tdgbl->v3_cvt_fld_list = f;
+	           }
+	
+	    END_STORE;
+	    ON_ERROR
+	   general_on_error ();
+	    END_ERROR;
+
+	}
+	if (gfld) {
+		gfld->gfld_next = tdgbl->gbl_global_fields;
+		tdgbl->gbl_global_fields = gfld;
+	}
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_index( REL relation)
+{
+/**************************************
+ *
+ *	g e t _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build an index.  At the end stop
+ *	and check that all fields are defined.
+ *	If any fields are missing, delete the
+ *	index.
+ *
+ **************************************/
+	SSHORT count, segments;
+	TEXT index_name[32];
+	ATT_TYPE attribute;
+	BOOLEAN foreign_index = FALSE;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	count = segments = 0;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_index_req_handle1)
+	    X IN RDB$INDICES
+	    strcpy (X.RDB$RELATION_NAME, relation->rel_name);
+	    X.RDB$UNIQUE_FLAG = 0;
+	    if (!tdgbl->gbl_sw_deactivate_indexes)
+	   X.RDB$INDEX_INACTIVE = FALSE;
+	    else
+	   X.RDB$INDEX_INACTIVE = TRUE;    
+	    X.RDB$INDEX_TYPE.NULL = TRUE;
+	    X.RDB$DESCRIPTION.NULL = TRUE;
+	    X.RDB$FOREIGN_KEY.NULL = TRUE;
+	    X.RDB$EXPRESSION_SOURCE.NULL = TRUE;
+	    X.RDB$EXPRESSION_BLR.NULL = TRUE;
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	   switch (attribute)
+	       {
+	       case att_index_name:
+	       (void) get_text (X.RDB$INDEX_NAME, sizeof (X.RDB$INDEX_NAME));
+	       strcpy (index_name, X.RDB$INDEX_NAME);
+	       BURP_verbose (122, X.RDB$INDEX_NAME, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	       break;
+	
+	       case att_segment_count:
+	       X.RDB$SEGMENT_COUNT = segments = (USHORT) get_numeric();
+	       break;
+	
+	       case att_index_unique_flag:
+	       X.RDB$UNIQUE_FLAG = (USHORT) get_numeric();
+	       break;
+	
+	       case att_index_inactive:
+	       X.RDB$INDEX_INACTIVE = (USHORT) get_numeric();
+	       /* Defer foreign key index activation */
+	       /* Modified by Toni Martir, all index deferred when verbose */
+	       if (tdgbl->gbl_sw_verbose)
+	        {
+	           if (X.RDB$INDEX_INACTIVE == FALSE) 
+	               X.RDB$INDEX_INACTIVE = DEFERRED_ACTIVE;
+	       } 
+	       else
+	        { 
+	       if (X.RDB$INDEX_INACTIVE == FALSE && foreign_index)
+	           X.RDB$INDEX_INACTIVE = DEFERRED_ACTIVE;
+	       }
+	       if (tdgbl->gbl_sw_deactivate_indexes)
+	           X.RDB$INDEX_INACTIVE = TRUE;
+	       break;
+	
+	       case att_index_type:
+	                X.RDB$INDEX_TYPE.NULL = FALSE;
+	       X.RDB$INDEX_TYPE = (USHORT) get_numeric();
+	       break;
+	
+	       case att_index_field_name:
+	       STORE (REQUEST_HANDLE tdgbl->handles_get_index_req_handle2)
+	            Y IN RDB$INDEX_SEGMENTS
+	           get_text (Y.RDB$FIELD_NAME, sizeof (Y.RDB$FIELD_NAME));
+	           strcpy (Y.RDB$INDEX_NAME, X.RDB$INDEX_NAME);
+	           Y.RDB$FIELD_POSITION = count++;
+	       END_STORE;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	       break;
+	
+	       case att_index_description:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_misc_blob (&X.RDB$DESCRIPTION, 0, 0);
+	       break;
+	
+	       case att_index_description2:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_source_blob (&X.RDB$DESCRIPTION, 0);
+	       break;
+	
+	       case att_index_expression_source:
+	       X.RDB$EXPRESSION_SOURCE.NULL = FALSE;
+	       get_source_blob (&X.RDB$EXPRESSION_SOURCE, 0);
+	       break;
+	
+	       case att_index_expression_blr:
+	       X.RDB$EXPRESSION_BLR.NULL = FALSE;
+	       get_blr_blob (&X.RDB$EXPRESSION_BLR, 0);
+	       break;
+	
+	       case att_index_foreign_key:
+	       /* BUG 8183: For more information see description of */
+	       /*           "bug_8183" function below.              */
+	                /* Note:     ATT_BACKUP_FORMAT for IB3.3 is equal 4  */
+	       if ( (tdgbl->RESTORE_format <= 4) && 
+	                     (tdgbl->gbl_sw_bug8183 || bug_8183(tdgbl)) )
+	          {
+	          X.RDB$DESCRIPTION.NULL = FALSE;
+	          get_source_blob (&X.RDB$DESCRIPTION, 0);
+	          }
+	       else
+	          {
+	                   foreign_index = TRUE;
+	          /* Defer foreign key index activation */
+	          if (X.RDB$INDEX_INACTIVE == FALSE)
+	             X.RDB$INDEX_INACTIVE = DEFERRED_ACTIVE;
+	          if (tdgbl->gbl_sw_deactivate_indexes)
+	              X.RDB$INDEX_INACTIVE = TRUE;
+	                   X.RDB$FOREIGN_KEY.NULL = FALSE;
+	          get_text (X.RDB$FOREIGN_KEY, sizeof (X.RDB$FOREIGN_KEY));
+	          }
+	       break;
+	
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 93); 
+	       /* msg 93 index */
+	       break;
+	       }
+	    count = 0;
+	    FOR (REQUEST_HANDLE tdgbl->handles_get_index_req_handle3)
+	        RFR IN RDB$RELATION_FIELDS CROSS I_S IN RDB$INDEX_SEGMENTS 
+	       OVER RDB$FIELD_NAME WITH I_S.RDB$INDEX_NAME = index_name AND
+	       RFR.RDB$RELATION_NAME = relation->rel_name
+	       count++;
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+	
+	    if (count != segments) 
+	       {
+	        FOR (REQUEST_HANDLE tdgbl->handles_get_index_req_handle4)
+	            I_S IN RDB$INDEX_SEGMENTS WITH I_S.RDB$INDEX_NAME = index_name
+	           ERASE I_S;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+	       END_FOR;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	       return FALSE;
+	   }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static void get_misc_blob(
+						  ISC_QUAD * blob_id,
+						  USHORT sub_type, USHORT glb_trans)
+{
+/**************************************
+ *
+ *	g e t _ m i s c _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read blob attributes and copy data from input file to nice,
+ *	shiney, new blob.
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	SLONG *blob;
+	USHORT length;
+	UCHAR *buffer, static_buffer[1024];
+	USHORT bpb_length;
+	UCHAR *bpb;
+	isc_tr_handle local_trans;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	length = (USHORT) get_numeric();
+
+/* Create new blob */
+
+	blob = NULL;
+
+	bpb_length = 0;
+	bpb = NULL;
+
+	if (glb_trans && tdgbl->global_trans)
+		local_trans = tdgbl->global_trans;
+	else
+		local_trans = gds__trans;
+
+	if (isc_create_blob2(status_vector,
+						 GDS_REF(tdgbl->db_handle),
+						 GDS_REF(local_trans),
+						 GDS_REF(blob),
+						 GDS_VAL(blob_id),
+						 bpb_length,
+						 bpb)) BURP_error_redirect(status_vector, 37, 0, 0);
+	/* msg 37 gds__create_blob failed */
+
+/* Allocate blob buffer is static buffer is too short */
+
+	if (!length || length <= sizeof(static_buffer))
+		buffer = static_buffer;
+	else
+		buffer = BURP_ALLOC(length);
+
+	if (length) {
+		(void) GET_BLOCK(buffer, length);
+	}
+
+	if (isc_put_segment(status_vector,
+						GDS_REF(blob),
+						length,
+						GDS_VAL(buffer)))
+			BURP_error_redirect(status_vector, 38, 0, 0);
+	/* msg 38 gds__put_segment failed */
+
+	if (isc_close_blob(status_vector, GDS_REF(blob)))
+		BURP_error_redirect(status_vector, 23, 0, 0);
+	/* msg 23 gds__close_blob failed */
+
+	if (buffer != static_buffer)
+		BURP_FREE(buffer);
+}
+
+
+static SLONG get_numeric(void)
+{
+/**************************************
+ *
+ *	g e t _ n u m e r i c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a numeric value from the input stream.
+ *
+ **************************************/
+	SLONG value[2];
+	SSHORT length;
+
+	length = get_text((UCHAR *) value, sizeof(value));
+
+	return isc_vax_integer((UCHAR *) value, length);
+}
+
+
+static SINT64 get_int64(void)
+{
+/**************************************
+ *
+ *	g e t _ i n t 6 4
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a possibly-64-bit numeric value from the input stream.
+ *
+ **************************************/
+	SLONG value[4];
+	SSHORT length;
+
+	length = get_text((UCHAR *) value, sizeof(value));
+
+	return isc_portable_integer((UCHAR *) value, length);
+}
+
+
+static BOOLEAN get_procedure(void)
+{
+/**************************************
+ *
+ *	g e t _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reconstruct a stored procedure.
+ *	Use the global_trans so we don't have to commit
+ *	until after the indices are activated.  This
+ *	will allow us to use a PLAN in a SP.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	GDS_NAME procedure_name;
+	TEXT temp[32];
+	SSHORT l;
+	PRC procedure;
+	UCHAR scan_next_attr;
+	isc_tr_handle local_trans;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	local_trans = tdgbl->global_trans ? tdgbl->global_trans : gds__trans;
+
+	procedure = (PRC) BURP_ALLOC_ZERO(sizeof(struct prc));
+	procedure->prc_next = tdgbl->procedures;
+	tdgbl->procedures = procedure;
+
+	STORE (TRANSACTION_HANDLE local_trans
+	       REQUEST_HANDLE tdgbl->handles_get_procedure_req_handle1)
+	    X IN RDB$PROCEDURES
+	    X.RDB$PROCEDURE_SOURCE.NULL = TRUE;
+	    X.RDB$DESCRIPTION.NULL = TRUE;
+	    X.RDB$SECURITY_CLASS.NULL = TRUE;
+	    X.RDB$OWNER_NAME.NULL = TRUE;
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	   switch (attribute)
+	       {
+	       case att_procedure_name:
+	       l = get_text (X.RDB$PROCEDURE_NAME, sizeof (X.RDB$PROCEDURE_NAME));
+	                procedure->prc_name_length = l;
+	                strcpy (procedure->prc_name, X.RDB$PROCEDURE_NAME);
+	       MISC_terminate (X.RDB$PROCEDURE_NAME, temp, l, sizeof (temp));
+	       BURP_verbose (195, temp, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR); 
+	       /* msg 195 restoring stored procedure %s */
+	       break;
+	
+	       case att_procedure_description:
+	       get_misc_blob (&X.RDB$DESCRIPTION, 0, 1);
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       break;
+	
+	       case att_procedure_description2:
+	       get_source_blob (&X.RDB$DESCRIPTION, 1);
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       break;
+	
+	       case att_procedure_source:
+	       get_misc_blob (&X.RDB$PROCEDURE_SOURCE, 0, 1);
+	       X.RDB$PROCEDURE_SOURCE.NULL = FALSE;
+	       break;
+	
+	       case att_procedure_source2:
+	       get_source_blob (&X.RDB$PROCEDURE_SOURCE, 1);
+	       X.RDB$PROCEDURE_SOURCE.NULL = FALSE;
+	       break;
+	
+	       case att_procedure_blr:
+	       get_blr_blob (&X.RDB$PROCEDURE_BLR, 1);
+	       break;
+	
+	       case att_procedure_security_class:
+	       get_text (X.RDB$SECURITY_CLASS, sizeof (X.RDB$SECURITY_CLASS));
+	       X.RDB$SECURITY_CLASS.NULL = FALSE;
+	       break;
+	
+	       case att_procedure_owner_name:
+	       get_text (procedure->prc_owner, sizeof (procedure->prc_owner));
+	       break;
+	
+	       case att_procedure_inputs:
+	       X.RDB$PROCEDURE_INPUTS = (USHORT) get_numeric();
+	                if (X.RDB$PROCEDURE_INPUTS == 0)
+	                    X.RDB$PROCEDURE_INPUTS.NULL = TRUE;
+	                else
+	                    X.RDB$PROCEDURE_INPUTS.NULL = FALSE;
+	       break;
+	
+	       case att_procedure_outputs:
+	       X.RDB$PROCEDURE_OUTPUTS = (USHORT) get_numeric();
+	       break;
+	
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 89); 
+	       /* msg 89 function */
+	       break;
+	       }
+	    strcpy (procedure_name, X.RDB$PROCEDURE_NAME);
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+/* at the end of prms for a procedure is the rec_procedure_end marker */
+
+	while (GET() == rec_procedure_prm)
+		get_procedure_prm(procedure_name);
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_procedure_prm( GDS_NAME procptr)
+{
+/**************************************
+ *
+ *	g e t _ p r o c e d u r e _ p r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reconstruct stored procedure parameter.
+ *	Use the global_trans so we don't have to commit
+ *	until after the indices are activated.  This
+ *	will allow us to use a PLAN in a SP.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	SSHORT l;
+	TEXT temp[32];
+	UCHAR scan_next_attr;
+	isc_tr_handle local_trans;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	local_trans = tdgbl->global_trans ? tdgbl->global_trans : gds__trans;
+
+	STORE (TRANSACTION_HANDLE local_trans
+	       REQUEST_HANDLE tdgbl->handles_get_procedure_prm_req_handle1)
+	    X IN RDB$PROCEDURE_PARAMETERS
+	    X.RDB$DESCRIPTION.NULL = TRUE;
+	    strcpy (X.RDB$PROCEDURE_NAME, procptr);
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	   switch (attribute)
+	       {
+	       case att_procedureprm_name:
+	       l = get_text (X.RDB$PARAMETER_NAME, sizeof (X.RDB$PARAMETER_NAME));
+	       MISC_terminate (X.RDB$PARAMETER_NAME, temp, l, sizeof (temp));
+	       BURP_verbose (196, temp, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	           /* msg 196 restoring parameter %s for stored procedure */
+	       break;
+	
+	       case att_procedureprm_type:
+	       X.RDB$PARAMETER_TYPE= (USHORT) get_numeric();
+	       break;
+	
+	       case att_procedureprm_number:
+	       X.RDB$PARAMETER_NUMBER= (USHORT) get_numeric();
+	       break;
+	
+	       case att_procedureprm_field_source:
+	       get_text (X.RDB$FIELD_SOURCE, sizeof (X.RDB$FIELD_SOURCE));
+	       break;
+	
+	       case att_procedureprm_description:
+	       get_misc_blob (&X.RDB$DESCRIPTION, 0, 1);
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       break;
+	
+	       case att_procedureprm_description2:
+	       get_source_blob (&X.RDB$DESCRIPTION, 1);
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       break;
+	
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 90); 
+	       /* msg 90 function argument */
+	       break;
+	       }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_ref_constraint(void)
+{
+/**************************************
+ *
+ *	g e t _ r e f _ c o n s t r a i n t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restore data for referential constraints.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_ref_constraint_req_handle1)
+	    X IN RDB$REF_CONSTRAINTS
+	    X.RDB$CONSTRAINT_NAME.NULL = TRUE;
+	    X.RDB$CONST_NAME_UQ.NULL = TRUE;
+	    X.RDB$MATCH_OPTION.NULL = TRUE;
+	    X.RDB$UPDATE_RULE.NULL = TRUE;
+	    X.RDB$DELETE_RULE.NULL = TRUE;
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	        switch (attribute)
+	            {
+	            case att_ref_constraint_name:
+	                X.RDB$CONSTRAINT_NAME.NULL = FALSE;
+	                get_text (X.RDB$CONSTRAINT_NAME, sizeof (X.RDB$CONSTRAINT_NAME));
+	                break;
+	
+	            case att_ref_unique_const_name:
+	                X.RDB$CONST_NAME_UQ.NULL = FALSE;
+	                get_text (X.RDB$CONST_NAME_UQ, sizeof (X.RDB$CONST_NAME_UQ));
+	                break;
+	
+	            case att_ref_match_option:
+	                X.RDB$MATCH_OPTION.NULL = FALSE;
+	                get_text (X.RDB$MATCH_OPTION, sizeof (X.RDB$MATCH_OPTION));
+	                break;
+	
+	            case att_ref_update_rule:
+	                X.RDB$UPDATE_RULE.NULL = FALSE;
+	                get_text (X.RDB$UPDATE_RULE, sizeof (X.RDB$UPDATE_RULE));
+	                break;
+	
+	            case att_ref_delete_rule:
+	                X.RDB$DELETE_RULE.NULL = FALSE;
+	                get_text (X.RDB$DELETE_RULE, sizeof (X.RDB$DELETE_RULE));
+	                break;
+	
+	            default:
+	                bad_attribute (scan_next_attr, attribute, 208); 
+	       /* msg 208 relation constraint */
+	       break;
+	            }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_relation(void)
+{
+/**************************************
+ *
+ *	g e t _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write relation meta-data and data.
+ *	Use the default transaction for RELATIONS,
+ *	and use the global_trans for VIEWS.  This
+ *	enables us to have views of SP and views
+ *	with plans.  Assume it is a view if it has
+ *	RDB$VIEW_BLR, also assume RDB$VIEW_BLR is
+ *	the first blob in the backup file.
+ *	
+ *
+ **************************************/
+	REL relation;
+	FLD field, *ptr;
+	TEXT temp[32];
+	SSHORT l;
+	ATT_TYPE attribute;
+	REC_TYPE record;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	SLONG rel_flags, sys_flag;
+	short rel_flags_null, sys_flag_null;
+	GDS_QUAD view_blr, view_src, rel_desc, ext_desc;
+	USHORT view_blr_null, view_src_null, rel_desc_null, ext_desc_null;
+	char sec_class[32];
+	short sec_class_null;
+	TEXT ext_file_name[253];
+	short ext_file_name_null;
+
+	isc_tr_handle local_trans;
+	tdgbl = GET_THREAD_DATA;
+
+/* Pick up relation attributes */
+
+	relation = (REL) BURP_ALLOC_ZERO(sizeof(struct rel));
+	relation->rel_next = tdgbl->relations;
+	tdgbl->relations = relation;
+
+	rel_flags_null = TRUE;
+	sys_flag_null = TRUE;
+	view_blr_null = TRUE;
+	view_src_null = TRUE;
+	rel_desc_null = TRUE;
+	ext_desc_null = TRUE;
+	sec_class_null = TRUE;
+	ext_file_name_null = TRUE;
+
+	sec_class[0] = '\0';
+	ext_file_name[0] = '\0';
+
+	view_blr = isc_blob_null;
+	view_src = isc_blob_null;
+	ext_desc = isc_blob_null;
+	rel_desc = isc_blob_null;
+
+/*
+ *STORE (REQUEST_HANDLE tdgbl->handles_get_relation_req_handle1)
+    X IN RDB$RELATIONS
+    X.RDB$SYSTEM_FLAG.NULL = TRUE;
+    X.RDB$FLAGS.NULL = TRUE;
+    X.RDB$SECURITY_CLASS.NULL = TRUE;
+    X.RDB$VIEW_BLR.NULL = TRUE;
+    X.RDB$VIEW_SOURCE.NULL = TRUE;
+    X.RDB$DESCRIPTION.NULL = TRUE;
+    X.RDB$RUNTIME.NULL = TRUE;
+    X.RDB$EXTERNAL_DESCRIPTION.NULL = TRUE;
+*/
+
+	SKIP_INIT;
+	while (SKIP_SCAN, GET_ATTRIBUTE(attribute) != att_end)
+		switch (attribute) {
+		case att_relation_name:
+			l = get_text(relation->rel_name, 31);
+			relation->rel_name_length = l;
+			MISC_terminate(relation->rel_name, temp, l, sizeof(temp));
+			BURP_verbose(167, temp, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+			/* msg 167 restoring relation %s */
+			break;
+
+		case att_relation_security_class:
+			sec_class_null = FALSE;
+			get_text(sec_class, sizeof(sec_class));
+			break;
+
+		case att_relation_view_blr:
+			view_blr_null = FALSE;
+			get_blr_blob(&view_blr, 1);
+			relation->rel_flags |= REL_view;
+			break;
+
+		case att_relation_view_source:
+			view_src_null = FALSE;
+			get_misc_blob(&view_src, 1, (USHORT) ! view_blr_null);
+			break;
+
+		case att_relation_view_source2:
+			view_src_null = FALSE;
+			get_source_blob(&view_src, (USHORT) ! view_blr_null);
+			break;
+
+		case att_relation_description:
+			rel_desc_null = FALSE;
+			get_misc_blob(&rel_desc, 1, (USHORT) ! view_blr_null);
+			break;
+
+		case att_relation_description2:
+			rel_desc_null = FALSE;
+			get_source_blob(&rel_desc, (USHORT) ! view_blr_null);
+			break;
+
+
+		case att_relation_flags:
+			rel_flags_null = FALSE;
+			rel_flags = get_numeric();
+			break;
+
+		case att_relation_system_flag:
+			sys_flag_null = FALSE;
+			sys_flag = get_numeric();
+			break;
+
+		case att_relation_ext_description:
+			ext_desc_null = FALSE;
+			get_misc_blob(&ext_desc, 1, (USHORT) ! view_blr_null);
+			break;
+
+		case att_relation_ext_description2:
+			ext_desc_null = FALSE;
+			get_source_blob(&ext_desc, (USHORT) ! view_blr_null);
+			break;
+
+		case att_relation_owner_name:
+			get_text(relation->rel_owner, sizeof(relation->rel_owner));
+			break;
+
+		case att_relation_ext_file_name:
+			ext_file_name_null = FALSE;
+			get_text(ext_file_name, sizeof(ext_file_name));
+			break;
+
+		default:
+			bad_attribute(scan_next_attr, attribute, 111);
+			/* msg 111 relation */
+			break;
+		}
+
+/* If this is a view and there is a global transaction then use it */
+
+	if (view_blr_null || !tdgbl->global_trans)
+		local_trans = gds__trans;
+	else
+		local_trans = tdgbl->global_trans;
+
+	STORE (TRANSACTION_HANDLE local_trans
+	       REQUEST_HANDLE tdgbl->handles_get_relation_req_handle1)
+	   X IN RDB$RELATIONS
+	
+	   X.RDB$SYSTEM_FLAG.NULL = sys_flag_null;
+	   X.RDB$FLAGS.NULL = rel_flags_null;
+	   X.RDB$SECURITY_CLASS.NULL = sec_class_null;
+	   X.RDB$VIEW_BLR.NULL = view_blr_null;
+	   X.RDB$VIEW_SOURCE.NULL = view_src_null;
+	   X.RDB$DESCRIPTION.NULL = rel_desc_null;
+	   X.RDB$RUNTIME.NULL = TRUE;
+	   X.RDB$EXTERNAL_DESCRIPTION.NULL = ext_desc_null;
+	   X.RDB$EXTERNAL_FILE.NULL = ext_file_name_null;
+	
+	   X.RDB$SYSTEM_FLAG = (USHORT) sys_flag;
+	   X.RDB$FLAGS = (USHORT) rel_flags;
+	   X.RDB$VIEW_BLR = view_blr;
+	   X.RDB$VIEW_SOURCE = view_src;
+	   X.RDB$DESCRIPTION = rel_desc;
+	   X.RDB$EXTERNAL_DESCRIPTION = ext_desc;
+	
+	   strcpy(X.RDB$SECURITY_CLASS, sec_class);
+	   strcpy(X.RDB$RELATION_NAME, relation->rel_name);
+	   strcpy(X.RDB$EXTERNAL_FILE, ext_file_name);
+	
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+/* Eat up misc. records */
+	ptr = &relation->rel_fields;
+
+	while (GET_RECORD(record) != rec_data)
+		switch (record) {
+		case rec_relation_end:
+			if (tdgbl->gbl_sw_incremental) {
+				BURP_verbose(170, relation->rel_name, NULL_PTR, NULL_PTR,
+							 NULL_PTR, NULL_PTR);
+				/* msg 170: committing metadata for relation %s */
+				COMMIT
+					/* existing ON_ERROR continues past error, beck */
+	           ON_ERROR
+	               BURP_print (171, relation->rel_name, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                    /* msg 171: error committing metadata for relation %s */
+	           BURP_print_status (tdgbl->status_vector);
+	           ROLLBACK; 
+	           ON_ERROR
+	               general_on_error ();
+	           END_ERROR;
+	           END_ERROR;
+					EXEC SQL SET TRANSACTION NO_AUTO_UNDO;
+				if (gds__status[1])
+					EXEC SQL SET TRANSACTION;
+			}
+			return TRUE;
+
+		case rec_field:
+			*ptr = field = get_field(relation);
+			if (!field)
+				return FALSE;
+			ptr = &field->fld_next;
+			break;
+
+		case rec_view:
+			get_view(relation);
+			break;
+
+		default:
+#ifdef SUPERSERVER
+			BURP_svc_error(43, isc_arg_number, (void *) record,
+						   0, NULL, 0, NULL, 0, NULL, 0, NULL);
+#else
+			BURP_error(43, (void *) record, 0, 0, 0, 0);
+			/* msg 43 don't recognize record type %ld */
+#endif
+			break;
+		}
+
+/* If we fall thru, there are data records to be gotten */
+/* we can get here only when restoring ancient gbak'ed files where rec_data
+   was once embedded into rec_relation ... otherwise, meta commit happens
+   when we see the first rec_relation_data */
+
+	BURP_verbose(68, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+/* msg 68 committing meta data */
+
+	COMMIT;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	EXEC SQL SET TRANSACTION NO_AUTO_UNDO;
+	if (gds__status[1])
+		EXEC SQL SET TRANSACTION;
+
+	get_data(relation);
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_rel_constraint(void)
+{
+/**************************************
+ *
+ *	g e t _ r e l _ c o n s t r a i n t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restore data for relation constraints.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_rel_constraint_req_handle1)
+	    X IN RDB$RELATION_CONSTRAINTS
+	    X.RDB$CONSTRAINT_NAME.NULL = TRUE;
+	    X.RDB$CONSTRAINT_TYPE.NULL = TRUE;
+	    X.RDB$RELATION_NAME.NULL = TRUE;
+	    X.RDB$DEFERRABLE.NULL = TRUE;
+	    X.RDB$INITIALLY_DEFERRED.NULL = TRUE;
+	    X.RDB$INDEX_NAME.NULL = TRUE;
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	        switch (attribute)
+	            {
+	            case att_rel_constraint_name:
+	                X.RDB$CONSTRAINT_NAME.NULL = FALSE;
+	                get_text (X.RDB$CONSTRAINT_NAME, sizeof (X.RDB$CONSTRAINT_NAME));
+	                break;
+	
+	            case att_rel_constraint_type:
+	                X.RDB$CONSTRAINT_TYPE.NULL = FALSE;
+	                get_text (X.RDB$CONSTRAINT_TYPE, sizeof (X.RDB$CONSTRAINT_TYPE));
+	                break;
+	
+	            case att_rel_constraint_rel_name:
+	                X.RDB$RELATION_NAME.NULL = FALSE;
+	                get_text (X.RDB$RELATION_NAME, sizeof (X.RDB$RELATION_NAME));
+	                break;
+	
+	            case att_rel_constraint_defer:
+	                X.RDB$DEFERRABLE.NULL = FALSE;
+	                get_text (X.RDB$DEFERRABLE, sizeof (X.RDB$DEFERRABLE));
+	                break;
+	
+	            case att_rel_constraint_init:
+	                X.RDB$INITIALLY_DEFERRED.NULL = FALSE;
+	                get_text (X.RDB$INITIALLY_DEFERRED, sizeof (X.RDB$INITIALLY_DEFERRED));
+	                break;
+	
+	            case att_rel_constraint_index:
+	                X.RDB$INDEX_NAME.NULL = FALSE;
+	                get_text (X.RDB$INDEX_NAME, sizeof (X.RDB$INDEX_NAME));
+	                break;
+	
+	            default:
+	                bad_attribute (scan_next_attr, attribute, 208); 
+	       /* msg 208 relation constraint */
+	       break;
+	            }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_relation_data(void)
+{
+/**************************************
+ *
+ *	g e t _ r e l a t i o n _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restore data for a relation.  This is called when the data is
+ *	standing free from the relation definition.  We first need to
+ *	find the relation named.  If we can't find it, give up.
+ *
+ **************************************/
+	REL relation;
+	TEXT name[32];
+	SLONG gen_id;
+	ATT_TYPE attribute;
+	REC_TYPE record;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	relation = NULL;
+
+	SKIP_INIT;
+	while (SKIP_SCAN, GET_ATTRIBUTE(attribute) != att_end)
+		switch (attribute) {
+		case att_relation_name:
+			get_text(name, sizeof(name));
+			relation = find_relation(name);
+			break;
+
+		default:
+			bad_attribute(scan_next_attr, attribute, 111);
+			/* msg 111 relation */
+			break;
+		}
+
+	if (!relation)
+		BURP_error_redirect(NULL_PTR, 49, 0, 0);
+/* msg 49 no relation name for data */
+
+/* Eat up misc. records */
+
+	GET_RECORD(record);
+
+	SKIP_INIT;
+	while (SKIP_SCAN, TRUE)
+		switch (record) {
+		case rec_relation_end:
+			return TRUE;
+
+		case rec_data:
+			record = get_data(relation);
+			/* get_data does a GET_RECORD */
+			break;
+
+		case rec_gen_id:
+			gen_id = get_numeric();
+			store_blr_gen_id(name, gen_id);
+			GET_RECORD(record);
+			break;
+
+		case rec_index:
+			get_index(relation);
+			GET_RECORD(record);
+			break;
+
+		case rec_trigger:		/* old style trigger */
+			get_trigger_old(relation);
+			GET_RECORD(record);
+			break;
+
+		default:
+			bad_attribute(scan_next_attr, attribute, 111);
+			/* msg 111 relation */
+			GET_RECORD(record);
+			break;
+		}
+}
+
+
+static BOOLEAN get_sql_roles(void)
+{
+/**************************************
+ *
+ *	g e t _ s q l _ r o l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restore data for SQL roles
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+	TEXT temp[32];
+	SSHORT l;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_sql_roles_req_handle1)
+	    X IN RDB$ROLES
+	
+	    X.RDB$ROLE_NAME.NULL = TRUE;
+	    X.RDB$OWNER_NAME.NULL = TRUE;
+	    SKIP_INIT;
+	
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	        switch (attribute)
+	            {
+	            case att_role_name:
+	                X.RDB$ROLE_NAME.NULL = FALSE;
+	                l = get_text (X.RDB$ROLE_NAME, sizeof (X.RDB$ROLE_NAME));
+	                MISC_terminate (X.RDB$ROLE_NAME, temp, l, sizeof (temp));
+	                /************************************************
+	                **
+	                ** msg 251, restoring SQL role: %s
+	                **
+	                *************************************************/
+	                BURP_verbose (251, temp, NULL_PTR, NULL_PTR,
+	                              NULL_PTR, NULL_PTR);
+	                break;
+	
+	            case att_role_owner_name:
+	                X.RDB$OWNER_NAME.NULL = FALSE;
+	                get_text (X.RDB$OWNER_NAME, sizeof (X.RDB$OWNER_NAME));
+	                break;
+	
+	            default:
+	                /*************************************************
+	                **
+	                ** msg 250, Bad attribute for restoring SQL role
+	                **
+	                **************************************************/
+	                bad_attribute (scan_next_attr, attribute, 250);
+	       break;
+	            }
+	END_STORE
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static BOOLEAN is_ascii_name(TEXT * name, SSHORT len)
+{
+/**************************************
+ *
+ *	i s _ a s c i i _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check if the input text is valid ASCII name
+ *
+ **************************************/
+	SSHORT i;
+
+	for (i = 0;
+		 i < len &&
+		 ((name[i] >= 'A' && name[i] <= 'Z') ||
+		  (name[i] >= '0' && name[i] <= '9') ||
+		  name[i] == '_' || name[i] == '$'); i++);
+	if (i != len)
+		return FALSE;
+	else
+		return TRUE;
+}
+
+static BOOLEAN get_security_class(void)
+{
+/**************************************
+ *
+ *	g e t _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restore a security class record including access control list.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	TEXT temp[32];
+	SSHORT l = 0;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+	BOOLEAN is_valid_sec_class = FALSE;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_security_class_req_handle1)
+	    X IN RDB$SECURITY_CLASSES
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	   {
+	   X.RDB$DESCRIPTION.NULL = TRUE;
+	   switch (attribute)
+	       {
+	       case att_class_security_class:
+	       l = get_text (X.RDB$SECURITY_CLASS, 
+	           sizeof (X.RDB$SECURITY_CLASS));
+	
+	       /* Bug fix for bug_no 7299: There was a V3 bug that inserted
+	          garbage security class entry when doing GBAK. In order to
+	          restore the V3 gbak file with this bad security entry to
+	          V4 database. We should check if the security class is a 
+	          valid ASCII name. If not, skip this entry by setting 
+	          'is_valid_sec_class' to FALSE.
+	        */
+	       is_valid_sec_class = is_ascii_name(X.RDB$SECURITY_CLASS, l);
+	       if (!is_valid_sec_class)
+	           {
+	           MISC_terminate (X.RDB$SECURITY_CLASS, temp, l, sizeof (temp));
+	           BURP_print (234, temp, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	           /* msg 234   Skipped bad security class entry: %s */
+	           break;
+	           }
+	
+	       MISC_terminate (X.RDB$SECURITY_CLASS, temp, l, sizeof (temp));
+	       BURP_verbose (125, temp, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	           /* msg 125   restoring security class %s */
+	       break;
+	
+	       case att_class_acl:
+	       get_misc_blob (&X.RDB$ACL, 0, 0);
+	       break;
+	       
+	       case att_class_description:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_misc_blob (&X.RDB$DESCRIPTION, 0, 0);
+	       break;
+	
+	       case att_class_description2:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_source_blob (&X.RDB$DESCRIPTION, 0);
+	       break;
+	
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 131); 
+	       /* msg 131 security class */
+	       break;
+	       }
+	   }
+	/* If the security class is not valid ASCII name, don't store it to the */
+	/* database. Simply return from here and the entry is discarded.   */
+	if (!is_valid_sec_class)
+	    {
+	    return TRUE;
+	    }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static void get_source_blob( ISC_QUAD * blob_id, USHORT glb_trans)
+{
+/**************************************
+ *
+ *	g e t _ s o u r c e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read source blob and query header attributes and copy data from
+ *	input file to nice, shiney, new blob.
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	SLONG length, *blob;
+	USHORT seg_len;
+	UCHAR *buffer, static_buffer[1024], *p;
+	isc_tr_handle local_trans;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	length = get_numeric();
+
+/* Create new blob */
+
+	blob = NULL;
+
+	if (glb_trans && tdgbl->global_trans)
+		local_trans = tdgbl->global_trans;
+	else
+		local_trans = gds__trans;
+
+	if (isc_create_blob(status_vector,
+						GDS_REF(tdgbl->db_handle),
+						GDS_REF(local_trans),
+						GDS_REF(blob),
+						GDS_VAL(blob_id)))
+			BURP_error_redirect(status_vector, 37, 0, 0);
+	/* msg 37 gds__create_blob failed */
+
+/* Allocate blob buffer is static buffer is too short */
+
+	if (!length || length <= sizeof(static_buffer))
+		buffer = static_buffer;
+	else
+		buffer = BURP_ALLOC(length);
+
+	while (length) {
+		p = buffer;
+		while (*p++ = GET())
+			length--;
+		--p;
+		--length;
+		seg_len = p - buffer;
+
+		if (isc_put_segment(status_vector,
+							GDS_REF(blob),
+							seg_len,
+							GDS_VAL(buffer)))
+				BURP_error_redirect(status_vector, 38, 0, 0);
+		/* msg 38 gds__put_segment failed */
+	}
+
+	if (isc_close_blob(status_vector, GDS_REF(blob)))
+		BURP_error_redirect(status_vector, 23, 0, 0);
+	/* msg 23 gds__close_blob failed */
+
+	if (buffer != static_buffer)
+		BURP_FREE(buffer);
+}
+
+
+static USHORT get_text( TEXT * text, ULONG length)
+{
+/**************************************
+ *
+ *	g e t _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a text attribute to a string and fill.
+ *
+ **************************************/
+	ULONG l, l2;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	l2 = l = GET();
+
+	if (length < l)
+		BURP_error_redirect(NULL_PTR, 46, 0, 0);
+	/* msg 46 string truncated */
+
+	if (l)
+		text = GET_BLOCK(text, l);
+
+	*text = 0;
+
+	return (USHORT) l2;
+}
+
+
+static BOOLEAN get_trigger_old( REL relation)
+{
+/**************************************
+ *
+ *	g e t _ t r i g g e r _ o l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a trigger definition for a relation.
+ *
+ **************************************/
+	enum trig_t type;
+	ATT_TYPE attribute;
+	TEXT *q, *p, *end, name[32];
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_trigger_old_req_handle1)
+	    X IN RDB$TRIGGERS
+	    X.RDB$DESCRIPTION.NULL = TRUE;
+	    X.RDB$TRIGGER_BLR.NULL = TRUE;
+	    X.RDB$TRIGGER_SOURCE.NULL = TRUE;
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	   {
+	   switch (attribute)
+	       {
+	       case att_trig_type:
+	       type = (enum trig_t) get_numeric();
+	       break;
+	
+	       case att_trig_blr:
+	       X.RDB$TRIGGER_BLR.NULL = FALSE;
+	       get_blr_blob (&X.RDB$TRIGGER_BLR, 0);
+	       break;
+	
+	       case att_trig_source:
+	       X.RDB$TRIGGER_SOURCE.NULL = FALSE;
+	       get_misc_blob (&X.RDB$TRIGGER_SOURCE, 1, 0);
+	       break;
+	
+	       case att_trig_source2:
+	       X.RDB$TRIGGER_SOURCE.NULL = FALSE;
+	       get_source_blob (&X.RDB$TRIGGER_SOURCE, 0);
+	       break;
+	
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 134); 
+	       /* msg 134 trigger */
+	       break;
+	       }
+	   }
+	
+	    /* fill in rest of attributes unique to new trigger format */
+	
+	    p = X.RDB$TRIGGER_NAME;
+	    end = p + 31;
+	    q = relation->rel_name;
+	    while (*q)
+	   *p++ = *q++;
+	
+	    if (type == trig_pre_store)
+	   {
+	   X.RDB$TRIGGER_TYPE = TRIG_TYPE_PRE_STORE;
+	   q = "$STORE";
+	   }
+	    else if (type == trig_pre_modify)
+	   {
+	   X.RDB$TRIGGER_TYPE = TRIG_TYPE_PRE_MODIFY;
+	   q = "$MODIFY";
+	   }
+	    else if (type == trig_post_erase)
+	   {
+	   X.RDB$TRIGGER_TYPE = TRIG_TYPE_POST_ERASE;
+	   q = "$ERASE";
+	   }
+	    else
+	   {
+	   bad_attribute (scan_next_attr, attribute, 136); 
+	   /* msg 136 trigger type */
+	   return 0; 
+	   }
+	
+	    while (*q && p < end)
+	   *p++ = *q++;
+	    *p = 0;
+	    BURP_verbose (126, X.RDB$TRIGGER_NAME, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR); 
+	    /* msg 126 restoring trigger %s */
+	    strncpy (X.RDB$RELATION_NAME, relation->rel_name, GDS_NAME_LEN);
+	    strcpy (name, X.RDB$TRIGGER_NAME);
+	    X.RDB$TRIGGER_SEQUENCE = TRIGGER_SEQUENCE_DEFAULT;
+	    X.RDB$SYSTEM_FLAG = 0;   /* restore as vanilla user type */
+	
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	if (tdgbl->gbl_sw_incremental) {
+		COMMIT
+			/* existing ON_ERROR continues past error, beck */
+	    ON_ERROR
+	        BURP_print (94, name, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	        /* msg 94 trigger %s is invalid */
+	        BURP_print_status (tdgbl->status_vector);
+	        ROLLBACK;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	    END_ERROR;
+			EXEC SQL SET TRANSACTION NO_AUTO_UNDO;
+		if (gds__status[1])
+			EXEC SQL SET TRANSACTION;
+	}
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_trigger(void)
+{
+/**************************************
+ *
+ *	g e t _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a trigger definition in rdb$triggers.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	TEXT name[32];
+	UCHAR scan_next_attr;
+	isc_tr_handle local_trans;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	local_trans = tdgbl->global_trans ? tdgbl->global_trans : gds__trans;
+
+	STORE (TRANSACTION_HANDLE local_trans
+	       REQUEST_HANDLE tdgbl->handles_get_trigger_req_handle1)
+	    X IN RDB$TRIGGERS
+	    X.RDB$DESCRIPTION.NULL = TRUE;
+	    X.RDB$TRIGGER_BLR.NULL = TRUE;
+	    X.RDB$TRIGGER_SOURCE.NULL = TRUE;
+	    X.RDB$SYSTEM_FLAG.NULL = TRUE;
+	    X.RDB$FLAGS.NULL = TRUE;
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	   {
+	   switch (attribute)
+	       {
+	       case att_trig_type:
+	       X.RDB$TRIGGER_TYPE = (USHORT) get_numeric();
+	       break;
+	
+	       case att_trig_flags:
+	       X.RDB$FLAGS = (USHORT) get_numeric();
+	                X.RDB$FLAGS.NULL = FALSE;
+	       break;
+	
+	       case att_trig_blr:
+	       X.RDB$TRIGGER_BLR.NULL = FALSE;
+	       get_blr_blob (&X.RDB$TRIGGER_BLR, 1);
+	       break;
+	
+	       case att_trig_source:
+	       X.RDB$TRIGGER_SOURCE.NULL = FALSE;
+	       get_misc_blob (&X.RDB$TRIGGER_SOURCE, 1, 1);
+	       break;
+	
+	       case att_trig_source2:
+	       X.RDB$TRIGGER_SOURCE.NULL = FALSE;
+	       get_source_blob (&X.RDB$TRIGGER_SOURCE, 1);
+	       break;
+	
+	       case att_trig_name:
+	       get_text (X.RDB$TRIGGER_NAME, sizeof (X.RDB$TRIGGER_NAME));
+	       strcpy (name, X.RDB$TRIGGER_NAME);
+	       BURP_verbose (126, X.RDB$TRIGGER_NAME, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	                /* msg 126 restoring trigger %s */
+	       break;
+	
+	       case att_trig_relation_name:
+	       get_text (X.RDB$RELATION_NAME, sizeof (X.RDB$RELATION_NAME));
+	       break;
+	
+	       case att_trig_sequence:
+	       X.RDB$TRIGGER_SEQUENCE = (USHORT) get_numeric();
+	       break;
+	
+	       case att_trig_description:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_misc_blob (&X.RDB$DESCRIPTION, 1, 1);
+	       break;
+	
+	       case att_trig_description2:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_source_blob (&X.RDB$DESCRIPTION, 1);
+	       break;
+	
+	       case att_trig_system_flag:
+	       X.RDB$SYSTEM_FLAG = (USHORT) get_numeric();
+	       X.RDB$SYSTEM_FLAG.NULL = FALSE;
+	       break;
+	
+	       case att_trig_inactive:
+	       X.RDB$TRIGGER_INACTIVE = (USHORT) get_numeric();
+	       break;
+	
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 134); 
+	       /* msg 134 trigger */
+	       break;
+	       }
+	   }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	if (tdgbl->gbl_sw_incremental) {
+		COMMIT
+			/* existing ON_ERROR continues past error, beck */
+	    ON_ERROR
+	        BURP_print (94, name, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	        /* msg 94 trigger %s is invalid */
+	        BURP_print_status (tdgbl->status_vector);
+	        ROLLBACK;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	    END_ERROR;
+			EXEC SQL SET TRANSACTION NO_AUTO_UNDO;
+		if (gds__status[1])
+			EXEC SQL SET TRANSACTION;
+	}
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_trigger_message(void)
+{
+/**************************************
+ *
+ *	g e t _ t r i g g e r _ m e s s a g e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a trigger message text.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	SSHORT flag;
+	UCHAR scan_next_attr;
+	isc_tr_handle local_trans;
+	TGBL tdgbl;
+
+	BASED_ON RDB$TRIGGER_MESSAGES.RDB$TRIGGER_NAME name;
+	BASED_ON RDB$TRIGGER_MESSAGES.RDB$MESSAGE_NUMBER number;
+	BASED_ON RDB$TRIGGER_MESSAGES.RDB$MESSAGE message;
+
+	tdgbl = GET_THREAD_DATA;
+
+	flag = FALSE;
+	SKIP_INIT;
+	while (SKIP_SCAN, GET_ATTRIBUTE(attribute) != att_end) {
+		switch (attribute) {
+		case att_trigmsg_name:
+			get_text(name, sizeof(name));
+			flag = FALSE;
+	       FOR (REQUEST_HANDLE tdgbl->handles_get_trigger_message_req_handle1)
+	            FIRST 1 X IN RDB$TRIGGERS WITH
+	           X.RDB$SYSTEM_FLAG EQ 1 AND X.RDB$TRIGGER_NAME EQ name
+	           flag = TRUE;
+	       END_FOR;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+			BURP_verbose(127, name, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+			/* msg 127 restoring trigger message for %s */
+			break;
+
+		case att_trigmsg_number:
+			number = (USHORT) get_numeric();
+			break;
+
+		case att_trigmsg_text:
+			get_text(message, sizeof(message));
+			break;
+
+		default:
+			bad_attribute(scan_next_attr, attribute, 135);
+			/* msg 135  trigger message */
+			break;
+		}
+	}
+
+	if (flag)
+		return TRUE;
+
+	local_trans = tdgbl->global_trans ? tdgbl->global_trans : gds__trans;
+
+	STORE (TRANSACTION_HANDLE local_trans
+	       REQUEST_HANDLE tdgbl->handles_get_trigger_message_req_handle2)
+	    X IN RDB$TRIGGER_MESSAGES
+	    strcpy (X.RDB$TRIGGER_NAME, name);
+	    X.RDB$MESSAGE_NUMBER = number;
+	    strcpy (X.RDB$MESSAGE, message);
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	if (tdgbl->gbl_sw_incremental) {
+		COMMIT
+			/* existing ON_ERROR continues past error, beck */
+	    ON_ERROR
+	        BURP_print (94, name, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	        /* msg 94 trigger %s is invalid */
+	        BURP_print_status (tdgbl->status_vector);
+	        ROLLBACK;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+	    END_ERROR;
+			EXEC SQL SET TRANSACTION NO_AUTO_UNDO;
+		if (gds__status[1])
+			EXEC SQL SET TRANSACTION;
+	}
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_type(void)
+{
+/**************************************
+ *
+ *	g e t _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a type definition in rdb$types.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	ULONG l;
+	TEXT temp[32];
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_get_type_req_handle1)
+	    X IN RDB$TYPES
+	    X.RDB$DESCRIPTION.NULL = TRUE;
+	    X.RDB$SYSTEM_FLAG.NULL = TRUE;
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	   {
+	   switch (attribute)
+	       {
+	       case att_type_name:
+	       l = get_text (X.RDB$TYPE_NAME, sizeof (X.RDB$TYPE_NAME));
+	       break;
+	
+	       case att_type_type:
+	       X.RDB$TYPE = (USHORT) get_numeric();
+	       break;
+	
+	       case att_type_field_name:
+	       get_text (X.RDB$FIELD_NAME, sizeof (X.RDB$FIELD_NAME));
+	       break;
+	
+	       case att_type_description:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_misc_blob (&X.RDB$DESCRIPTION, 1, 0);
+	       break;
+	
+	       case att_type_description2:
+	       X.RDB$DESCRIPTION.NULL = FALSE;
+	       get_source_blob (&X.RDB$DESCRIPTION, 0);
+	       break;
+	
+	       case att_type_system_flag:
+	       X.RDB$SYSTEM_FLAG = (USHORT) get_numeric();
+	       X.RDB$SYSTEM_FLAG.NULL = FALSE;
+	       break;
+	
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 136); 
+	       /* msg 136 trigger type */
+	       break;
+	       }
+	   }
+	
+	MISC_terminate (X.RDB$TYPE_NAME, temp, l, sizeof (temp));
+	BURP_verbose (128, temp, X.RDB$FIELD_NAME, NULL_PTR, NULL_PTR, NULL_PTR);
+	   /* msg 128  restoring type %s for field %s */
+	
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_user_privilege(void)
+{
+/**************************************
+ *
+ *	g e t _ u s e r _ p r i v i l e g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a user privilege.
+ *	Get next interesting user privilege.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	UCHAR scan_next_attr;
+	UCHAR exists = 0;
+	USHORT flags = 0;
+	TGBL tdgbl;
+	isc_tr_handle local_trans = NULL;
+
+	BASED_ON RDB$USER_PRIVILEGES.RDB$USER user;
+	BASED_ON RDB$USER_PRIVILEGES.RDB$GRANTOR grantor;
+	BASED_ON RDB$USER_PRIVILEGES.RDB$PRIVILEGE privilege;
+	BASED_ON RDB$USER_PRIVILEGES.RDB$GRANT_OPTION grant_option;
+	BASED_ON RDB$USER_PRIVILEGES.RDB$RELATION_NAME relation_name;
+	BASED_ON RDB$USER_PRIVILEGES.RDB$FIELD_NAME field_name;
+	BASED_ON RDB$USER_PRIVILEGES.RDB$USER_TYPE user_type;
+	BASED_ON RDB$USER_PRIVILEGES.RDB$OBJECT_TYPE object_type;
+
+	tdgbl = GET_THREAD_DATA;
+	user_type = obj_user;
+	object_type = obj_relation;
+
+	SKIP_INIT;
+	while (SKIP_SCAN, GET_ATTRIBUTE(attribute) != att_end) {
+		switch (attribute) {
+		case att_priv_user:
+			/* default USER_TYPE to USER */
+			flags |= USER_PRIV_USER;
+			get_text(user, sizeof(user));
+			BURP_verbose(123, user, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+			/* msg 123 restoring privilege for user %s */
+			break;
+
+		case att_priv_grantor:
+			flags |= USER_PRIV_GRANTOR;
+			get_text(grantor, sizeof(grantor));
+			break;
+
+		case att_priv_privilege:
+			flags |= USER_PRIV_PRIVILEGE;
+			get_text(privilege, sizeof(privilege));
+			break;
+
+		case att_priv_grant_option:
+			flags |= USER_PRIV_GRANT_OPTION;
+			grant_option = (USHORT) get_numeric();
+			break;
+
+		case att_priv_object_name:
+			flags |= USER_PRIV_OBJECT_NAME;
+			/* default OBJECT_TYPE to RELATION */
+			get_text(relation_name, sizeof(relation_name));
+			break;
+
+		case att_priv_field_name:
+			flags |= USER_PRIV_FIELD_NAME;
+			get_text(field_name, sizeof(field_name));
+			break;
+
+		case att_priv_user_type:
+			flags |= USER_PRIV_USER_TYPE;
+			user_type = (USHORT) get_numeric();
+			break;
+
+		case att_priv_obj_type:
+			flags |= USER_PRIV_OBJECT_TYPE;
+			object_type = (USHORT) get_numeric();
+			break;
+
+		default:
+			bad_attribute(scan_next_attr, attribute, 105);
+			/* msg 105 privilege */
+			break;
+		}
+	}
+
+/* Check if object exists */
+
+	switch (object_type) {
+	case obj_procedure:
+		{
+			PRC proc;
+
+			for (proc = tdgbl->procedures; proc; proc = proc->prc_next)
+				if (!strcmp(proc->prc_name, relation_name)) {
+					exists = 1;
+					local_trans =
+						tdgbl->global_trans ? tdgbl->
+						global_trans : gds__trans;
+					break;
+				}
+		}
+		break;
+
+	case obj_relation:
+		{
+			REL rel;
+
+			for (rel = tdgbl->relations; rel; rel = rel->rel_next)
+				if (!strcmp(rel->rel_name, relation_name)) {
+					exists = 1;
+					if (rel->rel_flags & REL_view)
+						local_trans =
+							tdgbl->global_trans ? tdgbl->
+							global_trans : gds__trans;
+					break;
+				}
+		}
+		break;
+
+	default:
+		exists = 1;
+		break;
+	}
+
+	if (exists) {
+		if (!local_trans)
+			local_trans = gds__trans;
+
+	    STORE (TRANSACTION_HANDLE local_trans
+	      REQUEST_HANDLE tdgbl->handles_get_user_privilege_req_handle1) X
+	    IN RDB$USER_PRIVILEGES
+	   
+	   X.RDB$FIELD_NAME.NULL = TRUE;
+	   X.RDB$OBJECT_TYPE.NULL = TRUE;
+	
+	   if (flags & USER_PRIV_USER)
+	       strcpy (X.RDB$USER, user);
+	
+	   if (flags & USER_PRIV_GRANTOR)
+	       strcpy (X.RDB$GRANTOR, grantor);
+	
+	   if (flags & USER_PRIV_PRIVILEGE)
+	       strcpy (X.RDB$PRIVILEGE, privilege);
+	
+	   if (flags & USER_PRIV_GRANT_OPTION)
+	       {
+	       X.RDB$GRANT_OPTION = grant_option;
+	            if (grant_option == 0)
+	                X.RDB$GRANT_OPTION.NULL = TRUE;
+	            else
+	                X.RDB$GRANT_OPTION.NULL = FALSE;
+	       }
+	
+	   if (flags & USER_PRIV_OBJECT_NAME)
+	       strcpy (X.RDB$RELATION_NAME, relation_name);
+	
+	   if (flags & USER_PRIV_FIELD_NAME)
+	       {
+	       X.RDB$FIELD_NAME.NULL = FALSE;
+	       strcpy (X.RDB$FIELD_NAME, field_name);
+	       }
+	
+	       /*
+	        * USER_TYPE & OBJECT_TYPE are fields that did not exist before 
+	        * V4.0. So, we have to reconstruct them and initialize them to 
+	        * reasonable values. If they existed before then user_type and 
+	        * object_type contain the proper values. If they didn't exist
+	        * then user_type and object_type contain the reasonable default
+	        * values.
+	        */
+	
+	   X.RDB$USER_TYPE.NULL = FALSE;
+	   X.RDB$USER_TYPE = user_type;
+	
+	   X.RDB$OBJECT_TYPE.NULL = FALSE;
+	   X.RDB$OBJECT_TYPE = object_type;
+	
+	
+	       /* 
+	        * If OBJECT_TYPE didn't exist before and we have a field level
+	        * user privileges, then use obj_field instead.
+	        *
+	        * NOTE: Scanning the V4.0 code base, obj_field has never been 
+	        *       used at all. The following code should be uncommented 
+	        *       in case we ever introduce obj_field to the picture. 
+	        */
+	       /***********************************************************
+	   if ( !(flags & USER_PRIV_OBJECT_TYPE) )
+	       {
+	       if ( flags & USER_PRIV_FIELD_NAME )
+	       {
+	       X.RDB$OBJECT_TYPE = obj_field;
+	       }
+	       }
+	        ***********************************************************/
+	
+	
+	    END_STORE;
+	    ON_ERROR
+	   general_on_error ();
+	    END_ERROR;
+	}
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_view( REL relation)
+{
+/**************************************
+ *
+ *	g e t _ v i e w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a record in RDB$VIEW_RELATIONS.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	UCHAR scan_next_attr;
+	isc_tr_handle local_trans;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* If there is a global transaction then use it */
+
+	local_trans = tdgbl->global_trans ? tdgbl->global_trans : gds__trans;
+
+	STORE (TRANSACTION_HANDLE local_trans
+	       REQUEST_HANDLE tdgbl->handles_get_view_req_handle1)
+	    X IN RDB$VIEW_RELATIONS
+	    strcpy (X.RDB$VIEW_NAME, relation->rel_name);
+	    SKIP_INIT;
+	    while (SKIP_SCAN, GET_ATTRIBUTE (attribute) != att_end)
+	   switch (attribute)
+	       {
+	       case att_view_relation_name:
+	       get_text (X.RDB$RELATION_NAME, sizeof (X.RDB$RELATION_NAME));
+	       break;
+	
+	       case att_view_context_name:
+	       get_text (X.RDB$CONTEXT_NAME, sizeof (X.RDB$CONTEXT_NAME));
+	       break;
+	
+	       case att_view_context_id:
+	       X.RDB$VIEW_CONTEXT = (USHORT) get_numeric();
+	       break;
+	
+	       default:
+	       bad_attribute (scan_next_attr, attribute, 140); 
+	       /* msg 140 view */
+	       break;
+	       }
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	return TRUE;
+}
+
+
+static void ignore_array( REL relation)
+{
+/**************************************
+ *
+ *	i g n o r e _ a r r a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read array data from input file to nice,
+ *	shiney, new array.
+ *
+ **************************************/
+	FLD field;
+	ATT_TYPE attribute;
+	SLONG length, lcount, *range, *end_ranges;
+	USHORT field_number;
+	LSTRING xdr_buffer;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* don't free something you don't allocate */
+	xdr_buffer.lstr_allocated = 0;
+
+/* Pick up attributes */
+
+	SKIP_INIT;
+	while (SKIP_SCAN, GET_ATTRIBUTE(attribute) != att_blob_data)
+		switch (attribute) {
+		case att_blob_field_number:
+			field_number = (USHORT) get_numeric();
+			for (field = relation->rel_fields; field; field = field->fld_next)
+				if (field->fld_number == field_number)
+					break;
+			if (!field)
+				BURP_error_redirect(NULL_PTR, 36, 0, 0);
+/* msg 36 Can't find field for blob */
+			break;
+
+		case att_array_dimensions:
+			field->fld_dimensions = (SSHORT) get_numeric();
+			end_ranges = field->fld_ranges + 2 * field->fld_dimensions;
+			for (range = field->fld_ranges; range < end_ranges; range += 2) {
+				if (GET_ATTRIBUTE(attribute) != att_array_range_low)
+					bad_attribute(scan_next_attr, attribute, 58);
+				/* msg 58 array */
+				else
+					range[0] = get_numeric();
+				if (GET_ATTRIBUTE(attribute) != att_array_range_high)
+					bad_attribute(scan_next_attr, attribute, 58);
+				/* msg 58 array */
+				else
+					range[1] = get_numeric();
+			}
+			break;
+
+		default:
+			bad_attribute(scan_next_attr, attribute, 58);
+			/* msg 58 array */
+			break;
+		}
+
+	length = GET();
+	length |= GET() << 8;
+	length |= GET() << 16;
+	length |= GET() << 24;
+
+	if (tdgbl->gbl_sw_transportable) {
+		if (GET_ATTRIBUTE(attribute) != att_xdr_array)
+			BURP_error_redirect(NULL_PTR, 55, 0, 0);
+/* msg 55 Expected XDR record length */
+		else {
+			xdr_buffer.lstr_allocated = GET();
+			xdr_buffer.lstr_allocated |= GET() << 8;
+			xdr_buffer.lstr_allocated |= GET() << 16;
+			xdr_buffer.lstr_allocated |= GET() << 24;
+			lcount = xdr_buffer.lstr_length = xdr_buffer.lstr_allocated;
+		}
+	}
+	else {
+		lcount = length;
+	}
+
+	if (lcount)
+		GET_SKIP(lcount);
+}
+
+
+static void ignore_blob(void)
+{
+/**************************************
+ *
+ *	i g n o r e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Skip over blob data records.
+ *
+ **************************************/
+	ATT_TYPE attribute;
+	SLONG segments;
+	USHORT length;
+	UCHAR scan_next_attr;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+/* Pick up attributes */
+
+	segments = 0;
+
+	SKIP_INIT;
+	while (SKIP_SCAN, GET_ATTRIBUTE(attribute) != att_blob_data)
+		switch (attribute) {
+		case att_blob_field_number:
+			(void) get_numeric();
+			break;
+
+		case att_blob_max_segment:
+			(void) get_numeric();
+			break;
+
+		case att_blob_number_segments:
+			segments = get_numeric();
+			break;
+
+		case att_blob_type:
+			(void) get_numeric();
+			break;
+
+		default:
+			bad_attribute(scan_next_attr, attribute, 64);
+			/* msg 64 blob */
+			break;
+		}
+
+/* Eat up blob segments */
+
+	while (--segments >= 0) {
+		length = GET();
+		length |= GET() << 8;
+		if (length)
+			GET_SKIP(length);
+	}
+}
+
+
+static REC_TYPE ignore_data( REL relation)
+{
+/**************************************
+ *
+ *	i g n o r e _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Ignore data records for a relation.
+ *
+ **************************************/
+	UCHAR *buffer;
+	USHORT l, records;
+	REC_TYPE record;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	records = 0;
+
+	while (TRUE) {
+		if (GET() != att_data_length)
+			BURP_error_redirect(NULL_PTR, 39, 0, 0);
+/* msg 39 expected record length */
+		l = (USHORT) get_numeric();
+		if (tdgbl->gbl_sw_transportable)
+			if (GET() != att_xdr_length)
+				BURP_error_redirect(NULL_PTR, 55, 0, 0);
+/* msg 55 Expected XDR record length */
+			else
+				l = (USHORT) get_numeric();
+		if (GET() != att_data_data)
+			BURP_error_redirect(NULL_PTR, 41, 0, 0);
+/* msg 41 expected data attribute */
+		if (l)
+			if (tdgbl->gbl_sw_compress) {
+				buffer = (UCHAR *) BURP_ALLOC(l);
+				decompress(buffer, l);
+				BURP_FREE(buffer);
+			}
+			else
+				GET_SKIP(l);
+		records++;
+		while (GET_RECORD(record)) {
+			if (record == rec_blob)
+				ignore_blob();
+			else if (record == rec_array)
+				ignore_array(relation);
+			else
+				break;
+		}
+		if (record != rec_data)
+			break;
+	}
+
+	BURP_verbose(106, (void *) records, NULL_PTR, NULL_PTR, NULL_PTR,
+				 NULL_PTR);
+/* msg 106 %ld records ignored */
+
+	return record;
+}
+
+
+static void realign( UCHAR * buffer, REL relation)
+{
+/**************************************
+ *
+ *	r e a l i g n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Miserable input record is misaligned.
+ *	Shuffle fields around.  N.B. this one
+ *	only works if the old buffer is longer
+ *	than the new.
+ *
+ **************************************/
+	FLD field;
+	UCHAR *p, *q;
+	USHORT l;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	for (field = relation->rel_fields; field; field = field->fld_next) {
+		if (field->fld_flags & FLD_computed)
+			continue;
+
+		p = buffer + field->fld_offset;
+		q = buffer + field->fld_old_offset;
+		l = field->fld_length;
+
+		/* Beware of overlaps here - don't use memcpy */
+		while (l--)
+			*p++ = *q++;
+
+		if (field->fld_type == blr_varying) {
+			*p++ = *q++;
+			*p++ = *q++;
+		}
+	}
+
+/* If this is format version 2, build fields for null flags */
+
+	if (tdgbl->RESTORE_format >= 2)
+		for (field = relation->rel_fields; field; field = field->fld_next) {
+			if (field->fld_flags & FLD_computed)
+				continue;
+			p = buffer + FB_ALIGN(p - buffer, sizeof(SSHORT));
+			q = buffer + FB_ALIGN(q - buffer, sizeof(SSHORT));
+			*p++ = *q++;
+			*p++ = *q++;
+		}
+}
+
+
+static USHORT recompute_length( REL relation)
+{
+/**************************************
+ *
+ *	r e c o m p u t e _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Recompute length of a record using an old
+ *	alignment if there is one.  At the moment,
+ *	only SPARC has one.
+ *
+ **************************************/
+
+#ifdef sparc
+	FLD field;
+	ULONG offset, length, dtype, alignment;
+	SSHORT *alignments;
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	alignments = old_sparcs;
+
+	for (field = relation->rel_fields; field; field = field->fld_next) {
+		if (field->fld_flags & FLD_computed)
+			continue;
+		length = field->fld_length;
+		alignment = 4;
+
+		/* arrays are of various fld_types but are really blobs */
+
+		dtype = field->fld_type;
+
+		if (field->fld_flags & FLD_array) {
+			dtype = blr_blob;
+			length = 8;
+		}
+
+		alignment = alignments[gds_cvt_blr_dtype[field->fld_type]];
+		if (dtype == blr_varying)
+			length += sizeof(USHORT);
+
+		if (alignment)
+			offset = FB_ALIGN(offset, alignment);
+		field->fld_old_offset = offset;
+		offset += length;
+	}
+
+/* If this is format version 2, build fields for null flags */
+
+	if (tdgbl->RESTORE_format >= 2)
+		for (field = relation->rel_fields; field; field = field->fld_next) {
+			if (field->fld_flags & FLD_computed)
+				continue;
+			offset = FB_ALIGN(offset, sizeof(SSHORT));
+			offset += sizeof(SSHORT);
+		}
+
+	return offset;
+#else
+	return FALSE;
+#endif
+}
+
+
+static BOOLEAN restore( TEXT * file_name, TEXT * database_name)
+{
+/**************************************
+ *
+ *	r e s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform the body of restore.
+ *
+ **************************************/
+	SSHORT l, flag;
+	REC_TYPE record;
+	ATT_TYPE attribute;
+	USHORT db_version;
+	isc_req_handle req_handle1 = NULL, req_handle2 = NULL, req_handle3 = NULL,
+		req_handle4 = NULL, req_handle5 = NULL;
+	long req_status[20];
+	TGBL tdgbl;
+	SSHORT flag_norel = TRUE;	/* To fix bug 10098 */
+
+	tdgbl = GET_THREAD_DATA;
+
+/* Read burp record first */
+
+	MVOL_init_read(tdgbl->gbl_database_file_name, file_name,
+				   &tdgbl->RESTORE_format, &tdgbl->io_cnt, &tdgbl->io_ptr);
+
+	if (tdgbl->gbl_sw_transportable)
+		BURP_verbose(133, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	/* msg 133 transportable backup -- data in XDR format */
+	if (tdgbl->gbl_sw_compress)
+		BURP_verbose(61, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	/* msg 61 backup file is compressed */
+
+	flag = FALSE;
+
+/* restore only from those backup files created by current or previous GBAK */
+
+	if (tdgbl->RESTORE_format < 1
+		|| tdgbl->RESTORE_format > ATT_BACKUP_FORMAT)
+#ifdef SUPERSERVER
+		BURP_svc_error(44, isc_arg_number, tdgbl->RESTORE_format,
+					   0, NULL, 0, NULL, 0, NULL, 0, NULL);
+#else
+		BURP_error(44, (void *) tdgbl->RESTORE_format, 0, 0, 0, 0);
+/* msg 44 Expected backup version 1, 2, or 3.  Found %ld */
+#endif
+
+	create_database(database_name);
+
+	EXEC SQL SET TRANSACTION NO_AUTO_UNDO;
+	if (gds__status[1])
+		EXEC SQL SET TRANSACTION;
+
+/* For V4.0, start a read commited transaction.  This will be used
+ * to create blobs for global fields and update the record in the
+ * RDB$FIELDS table.
+ */
+
+	EXEC SQL SET TRANSACTION NAME tdgbl->
+		global_trans ISOLATION LEVEL READ COMMITTED;
+
+	db_version = check_db_version();
+	if (db_version < DB_VERSION_CURRENT)
+#ifdef SUPERSERVER
+		BURP_svc_error(51, isc_arg_number, db_version,
+					   0, NULL, 0, NULL, 0, NULL, 0, NULL);
+#else
+		BURP_error(51, (void *) db_version, 0, 0, 0, 0);
+/* msg 51 database format %ld is too old to restore to */
+#endif
+
+	BURP_verbose(129, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+/* msg 129 started transaction */
+
+	while (GET_ATTRIBUTE(attribute) != att_end)
+		switch (attribute) {
+		case att_database_security_class:
+			/* Instead of updating the security class in RDB$DATABASE,
+			   just store the value in tdgbl. It will be updated at
+			   the very end to prevent security class validation
+			   failures during change table ownership operation   */
+			get_text(tdgbl->database_security_class,
+					 sizeof(tdgbl->database_security_class));
+			break;
+
+		case att_database_description:
+		case att_database_description2:
+	       FOR (REQUEST_HANDLE req_handle2)
+	            X IN RDB$DATABASE
+	           MODIFY X USING
+	               if (attribute == att_database_description2)
+	               get_source_blob (&X.RDB$DESCRIPTION, 0);
+	               else
+	                   get_misc_blob (&X.RDB$DESCRIPTION, 1, 0);
+	           END_MODIFY;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+	       END_FOR;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+			break;
+
+		case att_database_dfl_charset:
+	       FOR (REQUEST_HANDLE req_handle3)
+	            X IN RDB$DATABASE
+	           MODIFY X USING
+	           get_text (X.RDB$CHARACTER_SET_NAME, sizeof (X.RDB$CHARACTER_SET_NAME));
+	           END_MODIFY;
+	            ON_ERROR
+	                general_on_error ();
+	            END_ERROR;
+	       END_FOR;
+	        ON_ERROR
+	            general_on_error ();
+	        END_ERROR;
+			break;
+
+		default:
+			l = GET();
+			if (l)
+				GET_SKIP(l);
+			break;
+		}
+	if (req_handle1)
+		isc_release_request(req_status, &req_handle1);
+	if (req_handle2)
+		isc_release_request(req_status, &req_handle2);
+	if (req_handle3)
+		isc_release_request(req_status, &req_handle3);
+
+/* If this should be a multi-file database, add the files */
+
+	if (tdgbl->gbl_sw_files && tdgbl->gbl_sw_files->fil_next)
+		add_files(database_name);
+
+/* Get global fields and relations */
+
+	while (GET_RECORD(record) != rec_end)
+		switch (record) {
+		case rec_charset:
+			if (!get_character_set())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_collation:
+			if (!get_collation())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_chk_constraint:
+			if (!get_chk_constraint())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_global_field:
+			if (!get_global_field())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_field_dimensions:
+			if (!get_field_dimensions())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_relation:
+			if (!get_relation())
+				return FALSE;
+			flag = TRUE;
+			flag_norel = FALSE;
+			break;
+
+		case rec_ref_constraint:
+			if (!get_ref_constraint())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_rel_constraint:
+			if (!get_rel_constraint())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_function:
+			if (!get_function())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_procedure:
+			if (!get_procedure())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_exception:
+			if (!get_exception())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_type:			/* rdb$types */
+			if (!get_type())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_filter:		/* rdb$filters */
+			if (!get_filter())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_generator:
+			if (!get_generator())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_relation_data:
+			if (flag) {
+				BURP_verbose(68, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR,
+							 NULL_PTR);
+				/* msg 68 committing meta data */
+				COMMIT;
+	       ON_ERROR
+	            general_on_error ();
+	       END_ERROR;
+				EXEC SQL SET TRANSACTION NO_AUTO_UNDO;
+				if (gds__status[1])
+					EXEC SQL SET TRANSACTION;
+				flag = FALSE;
+			}
+			if (!get_relation_data())
+				return FALSE;
+			break;
+
+		case rec_trigger:		/* new trigger type */
+			if (!get_trigger())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_trigger_message:
+			if (!get_trigger_message())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_user_privilege:
+			if (!get_user_privilege())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_security_class:
+			if (!get_security_class())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_files:
+			if (!get_files())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		case rec_sql_roles:
+			if (!get_sql_roles())
+				return FALSE;
+			flag = TRUE;
+			break;
+
+		default:
+#ifdef SUPERSERVER
+			BURP_svc_error(43, isc_arg_number, (void *) record,
+						   0, NULL, 0, NULL, 0, NULL, 0, NULL);
+#else
+			BURP_error(43, (void *) record, 0, 0, 0, 0);
+			/* msg 43 don't recognize record type %ld */
+#endif
+			break;
+		}
+
+/* This piece of code is to fix bug 10098: restore of database with 
+only domains and no relations aborts with the message ERROR: deadlock
+This is because insertion of domains into RDB$FIELDS is happening in
+the default transaction, whereas updation of RDB$FIELDS to add
+constraints to the domains is done in tdgbl->global_trans. In case of
+no relations, no COMMIT of default transaction occurs till this point
+because of which rows in RDB$FIELDS for domains are still locked by
+default transaction. The below code COMMITs the default transaction
+in that particular situation */
+
+	if (flag_norel) {
+		COMMIT;
+	    ON_ERROR
+	   general_on_error ();
+	    END_ERROR;
+		EXEC SQL SET TRANSACTION NO_AUTO_UNDO;
+		if (gds__status[1])
+			EXEC SQL SET TRANSACTION;
+	}
+
+/* put validation clauses for global fields */
+
+	update_global_field();
+
+/* Purge shadow metadata if necessary */
+
+	if (tdgbl->gbl_sw_kill)
+	    FOR (REQUEST_HANDLE req_handle5)
+	        FIL IN RDB$FILES WITH FIL.RDB$SHADOW_NUMBER NOT MISSING
+	       AND FIL.RDB$SHADOW_NUMBER NE 0
+	   ERASE FIL;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+
+		if (req_handle5)
+			isc_release_request(req_status, &req_handle5);
+
+	return TRUE;
+}
+
+
+static void restore_security_class( TEXT * owner_nm, TEXT * sec_class_nm)
+{
+/**************************************
+ *
+ *	r e s t o r e _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	restore the ownership of the relation in the ACL list
+ *
+ **************************************/
+	isc_tr_handle local_trans;
+	isc_req_handle req_handle2 = NULL;
+	ISC_QUAD new_blob_id;
+	long req_status[20];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+	local_trans = gds__trans;
+
+	FOR (REQUEST_HANDLE req_handle2)
+	    X IN RDB$SECURITY_CLASSES WITH X.RDB$SECURITY_CLASS EQ sec_class_nm
+	
+	    new_blob_id.gds_quad_high = 0;
+	    new_blob_id.gds_quad_low  = 0;
+	    get_acl (owner_nm, &X.RDB$ACL, &new_blob_id);
+	
+	    MODIFY X;
+	   MOVE_FAST (&new_blob_id, &X.RDB$ACL, sizeof (ISC_QUAD));
+	    END_MODIFY;
+	    ON_ERROR
+	   if (req_handle2)
+	       isc_release_request (req_status, &req_handle2);
+	   general_on_error ();
+	    END_ERROR;
+	
+	    END_FOR;
+
+	ON_ERROR
+	    if (req_handle2)
+	   isc_release_request (req_status, &req_handle2);
+	    general_on_error ();
+	END_ERROR;
+
+	if (req_handle2)
+		isc_release_request(req_status, &req_handle2);
+}
+
+
+static void store_blr_gen_id( GDS_NAME gen_name, SINT64 value)
+{
+/**************************************
+ *
+ *	s t o r e _ b l r _ g e n _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store the blr_gen_id for the relation.
+ *
+ **************************************/
+	UCHAR *blr;
+	UCHAR blr_buffer[100];		/* enough to fit blr */
+	SSHORT blr_length;
+	SLONG *gen_id_reqh;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	STORE (REQUEST_HANDLE tdgbl->handles_store_blr_gen_id_req_handle1)
+	    X IN RDB$GENERATORS
+	    strcpy (X.RDB$GENERATOR_NAME, gen_name);
+	END_STORE;
+	ON_ERROR
+	    general_on_error ();
+	END_ERROR;
+
+	if (!value) {
+		BURP_verbose(185, gen_name, (void *) value, NULL_PTR, NULL_PTR,
+					 NULL_PTR);
+		/* msg 185 restoring generator %s value: %ld */
+		return;
+	}
+
+
+	gen_id_reqh = NULL;
+	blr = blr_buffer;
+
+/* build the blr with the right relation name */
+
+	if (tdgbl->RESTORE_format >= 6) {
+		STUFF(blr_version5);
+	}
+	else {
+		STUFF(blr_version4);
+	}
+	STUFF(blr_begin);
+	if (tdgbl->RESTORE_format >= 6) {
+		STUFF(blr_dcl_variable);
+		STUFF_WORD(0);
+		STUFF(blr_int64);
+		STUFF(0);
+	}
+	else {
+		STUFF(blr_dcl_variable);
+		STUFF_WORD(0);
+		STUFF(blr_long);
+		STUFF(0);
+	}
+	STUFF(blr_begin);
+	STUFF(blr_assignment);
+	STUFF(blr_gen_id);
+	stuff_string(&blr, gen_name);
+	if (tdgbl->RESTORE_format >= 6) {
+		STUFF(blr_literal);
+		STUFF(blr_int64);
+		STUFF(0);
+		STUFF_INT64(value);
+	}
+	else {
+		STUFF(blr_literal);
+		STUFF(blr_long);
+		STUFF(0);
+		STUFF_LONG((SLONG) value);
+	}
+	STUFF(blr_variable);
+	STUFF_WORD(0);
+	STUFF(blr_end);
+	STUFF(blr_end);
+	STUFF(blr_eoc);
+
+	blr_length = blr - blr_buffer;
+
+	if (isc_compile_request(status_vector,
+							GDS_REF(tdgbl->db_handle),
+							GDS_REF(gen_id_reqh),
+							blr_length, GDS_VAL(blr_buffer))) {
+		isc_print_blr(blr_buffer, NULL_PTR, NULL_PTR, 0);
+		BURP_error_redirect(status_vector, 42, 0, 0);
+/* msg 42 Failed in store_blr_gen_id */
+	}
+
+	if (isc_start_request(status_vector, GDS_REF(gen_id_reqh), GDS_REF(gds__trans),	/* use the same one generated by gpre */
+						  0)) {
+		isc_print_blr(blr_buffer, NULL_PTR, NULL_PTR, 0);
+		BURP_error_redirect(status_vector, 42, 0, 0);
+/* msg 42 Failed in store_blr_gen_id */
+	}
+
+	BURP_verbose(185, gen_name, (void *) value, NULL_PTR, NULL_PTR, NULL_PTR);
+/* msg 185 restoring generator %s value: %ld */
+
+	isc_release_request(status_vector, GDS_REF(gen_id_reqh));
+}
+
+
+static void stuff_string( SCHAR ** ptr, TEXT * string)
+{
+/**************************************
+ *
+ *	s t u f f _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stuff a name input a BLR string -- byte count first.
+ *
+ **************************************/
+	SCHAR *blr;
+
+	blr = *ptr;
+	STUFF(strlen(string));
+
+	while (*string)
+		STUFF(*string++);
+
+	*ptr = blr;
+}
+
+
+static void update_global_field(void)
+{
+/**************************************
+ *
+ *	u p d a t e _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update the global field definition to add constraints.
+ *	The blobs have been created already.
+ *
+ **************************************/
+	GFLD n_gfld, gfld;
+	USHORT length;
+	UCHAR *p, *q;
+	isc_req_handle req_handle1 = NULL;
+	long req_status[20];
+	TGBL tdgbl;
+
+	tdgbl = GET_THREAD_DATA;
+
+	for (gfld = tdgbl->gbl_global_fields; gfld;) {
+	    FOR (TRANSACTION_HANDLE tdgbl->global_trans REQUEST_HANDLE req_handle1)
+	        X IN RDB$FIELDS WITH X.RDB$FIELD_NAME EQ gfld->gfld_name
+	       MODIFY X
+	
+	       if (gfld->gfld_flags & GFLD_validation_blr)
+	       {
+	       X.RDB$VALIDATION_BLR.NULL = FALSE;
+	
+	       if (length = sizeof (ISC_QUAD))
+	           {
+	           p = (UCHAR *)&X.RDB$VALIDATION_BLR;
+	           q = (UCHAR *)&gfld->gfld_vb;
+	
+	           do *p++ = *q++; while (--length);
+	           }
+	       }
+	       
+	       if (gfld->gfld_flags & GFLD_validation_source)
+	       {
+	       X.RDB$VALIDATION_SOURCE.NULL = FALSE;
+	
+	       if (length = sizeof (ISC_QUAD))
+	           {
+	           p = (UCHAR *)&X.RDB$VALIDATION_SOURCE;
+	           q = (UCHAR *)&gfld->gfld_vs;
+	
+	           do *p++ = *q++; while (--length);
+	           }
+	       }
+	       
+	       if (gfld->gfld_flags & GFLD_validation_source2)
+	       {
+	       X.RDB$VALIDATION_SOURCE.NULL = FALSE;
+	
+	       if (length = sizeof (ISC_QUAD))
+	           {
+	           p = (UCHAR *)&X.RDB$VALIDATION_SOURCE;
+	           q = (UCHAR *)&gfld->gfld_vs2;
+	
+	           do *p++ = *q++; while (--length);
+	           }
+	       }
+	       
+	   END_MODIFY;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+	
+	    END_FOR;
+	    ON_ERROR
+	        general_on_error ();
+	    END_ERROR;
+		n_gfld = gfld->gfld_next;
+		BURP_FREE(gfld);
+		gfld = n_gfld;
+	}
+	if (req_handle1)
+		isc_release_request(req_status, &req_handle1);
+
+	tdgbl->gbl_global_fields = (GFLD) 0;
+}
+
+
+static BOOLEAN bug_8183( TGBL tdgbl)
+{
+/**************************************
+ *
+ *      b u g _ 8 1 8 3
+ *
+ **************************************
+ *
+ * Name:	bug_8183
+ *
+ * Function:	Bug fix for bug_no 8183: It is a migration bug between IB3.3
+ *		and IB4.0. Gbak v4.0 can't restore database v3.3 if 
+ *		database has an index definition with comment field.
+ *		It happens because of att_index_description2 attribute
+ *		(which indicates that index contains a comment field
+ *		and is equal 8 under IB3.3) accidently got new value 9
+ *		under IB4.0.
+ *		At the same time, new attribute att_index_foreign_key
+ *		has been added with value 8. Thus, when gbak v4.0 faces
+ *		index attribute with value 8 during restore procedure of
+ *		database v3.3, it will recognize this attribute as
+ *		att_index_foreign_key instead of att_index_description2.
+ *
+ *		This function is trying to recognize the next
+ *		data in tdgbl->io_ptr buffer as either name of foreign
+ *		key or comment field. Function returns TRUE in case of 
+ *		comment field, otherwise FALSE.
+ *
+ * Usage:	result = bug_8183(tdgbl);
+ *
+ * Parameters:	tdgbl - pointer to the structure of global switches
+ *		        and data
+ *
+ * Returns:	result [TRUE/FALSE]
+ *
+ * Pre:		gbak got an index attribute with value "8" from
+ *		backup database.
+ *
+ * Post:	none
+ *
+ * Remarks:	For more information see bug_no 8183
+ *
+ **************************************/
+
+	UCHAR tmp[sizeof(ULONG) + 1], *p;
+	USHORT io_cnt, i;
+	UCHAR *io_ptr;
+	ULONG len1, len2;
+	BOOLEAN result = FALSE;
+
+
+	io_cnt = tdgbl->io_cnt;
+	io_ptr = tdgbl->io_ptr;
+
+	if (io_cnt > 0) {
+		len1 = len2 = *io_ptr++;
+		--io_cnt;
+		/* len1 can be either length of att_index_foreign_key OR quantity of byte
+		   where seats length of att_index_description2. In case of
+		   att_index_description2, len1 should be as even and no bigger
+		   than sizeof(ULONG). Let's check it out */
+		if ((len1 % 2) == 0 && (len1 <= sizeof(ULONG))) {
+			/* it still can be a foreign key; so
+			   try to read it. Note: if internal buffer is over, then
+			   we wan't read next block */
+
+			memset(tmp, '\0', sizeof(tmp));
+
+			p = tmp;
+			while (len1-- && io_cnt--)
+				*p++ = *io_ptr++;
+
+			/* if read array is a foreign key then it should contain following chars
+			   only : ['A'..'Z', '0'..'9', '_', '$'] */
+			for (p = tmp, i = 0;
+				 *p && *p != ' ' && ((*p >= 'A' && *p <= 'Z') || (*p == '_')
+									 || (*p >= '0' && *p <= '9')
+									 || (*p == '$')); p++)
+				i++;
+			if ((len2 - len1) != i)
+				result = TRUE;
+		}
+	}
+
+	return result;
+}
diff --git a/src/burp/spit.cpp b/src/burp/spit.cpp
new file mode 100644
index 0000000000..519f808176
--- /dev/null
+++ b/src/burp/spit.cpp
@@ -0,0 +1,1431 @@
+/*************************************************************************
+**
+**	PROGRAM:		JRD file split utility program
+**	MODULE:			spit.c
+**	DESCRIPTION:	Command line interpreter for backup file split/join
+**					utility program
+**
+**
+**************************************************************************
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+*/
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include <assert.h>
+#include "../jrd/common.h"
+#include "../jrd/jrd.h"
+#include <stdarg.h>
+
+#include <fcntl.h>
+#include <ctype.h>
+#include <time.h>
+#include "../burp/spit.h"
+#include "../burp/burpswi.h"
+
+#ifdef WIN_NT
+#include <io.h>					/* usage of non-ANSI open/read/write/close functions */
+#endif
+
+#define	MODE_READ	O_RDONLY
+
+#define	MODE_WRITE	O_WRONLY | O_CREAT
+#define	MASK		0666
+
+/*************************************
+** backup files header record
+**************************************
+*/
+
+typedef struct header_rec {
+	TEXT name[18];
+	TEXT date_time[30];
+	TEXT text1[11];
+	TEXT num[4];
+	TEXT text2[4];
+	TEXT total[4];
+	TEXT text3[2];
+	TEXT fl_name[27];
+} HEADER_REC;
+
+#define	HEADER_REC_LEN			sizeof (struct header_rec)
+#define	HEADER_REC_NAME			"InterBase/gsplit, "
+
+/*************************************
+** backup files structure
+**************************************
+*/
+
+typedef struct b_fil {
+	struct b_fil *b_fil_next;
+	TEXT *b_fil_name;
+	SLONG b_fil_number;
+	double b_fil_size;
+} *B_FIL;
+
+#define	B_FIL_LEN	sizeof (struct b_fil)
+
+
+	/*****************************************************
+	**
+	** local function declarations
+	**
+	******************************************************
+	*/
+
+static int conv_ntoc(SLONG, TEXT *);
+
+static int free_file_list(B_FIL);
+
+static int final_flush_io_buff(UCHAR *, SLONG, FILE_DESC);
+
+static int final_read_and_write(FILE_DESC, FILE_DESC,
+								TEXT *, SLONG, UCHAR **, BOOLEAN *);
+
+static int flush_io_buff(UCHAR *, SLONG,
+						 FILE_DESC, double, SLONG *, BOOLEAN *);
+
+static int get_file_name(SCHAR *, double, B_FIL *);
+
+static int get_file_size(SCHAR *, SCHAR *, double *);
+
+static int get_function_option(SCHAR *, USHORT *, SCHAR *, IN_SW_TAB);
+
+static int gen_multy_bakup_files(B_FIL, FILE_DESC, SLONG);
+
+static int set_hdr_str(TEXT *, TEXT *, SLONG, SLONG);
+
+static int join_multy_bakup_files(B_FIL);
+
+static int print_clo(TEXT *);
+
+static int read_and_write(FILE_DESC, FILE_DESC,
+						  TEXT *, SLONG,
+						  double, UCHAR **, BOOLEAN *, double *, SLONG *);
+
+static int read_and_write_for_join(FILE_DESC, TEXT *,
+								   UCHAR **, SLONG, SLONG *);
+
+static int write_header(B_FIL, HEADER_REC, FILE_DESC, TEXT *);
+
+
+
+	/*****************************************************
+	**
+	**	M A I N              P R O G R A M
+	**
+	******************************************************
+	*/
+
+SLONG main( int argc, char *argv[])
+{
+
+	SCHAR **end, *prog_name, *string;
+	IN_SW_TAB in_sw_tab;
+	USHORT sw_replace;
+	B_FIL file_ptr, file_list, prev_file;
+	BOOLEAN file_nm_sw = FALSE;
+	SLONG ret_cd, file_num = 0;
+	double file_size;
+	FILE_DESC input_file_desc;
+
+	prog_name = argv[0];
+
+	if (argc < 2) {
+		ib_fprintf(ib_stderr, "%s: No Command Line Option Specified\n",
+				   argv[0]);
+		ret_cd = print_clo(prog_name);
+		return FAILURE;
+	}
+
+/************************
+** Fields initialization
+*************************
+*/
+
+	file_ptr = file_list = prev_file = NULL_B_FIL;
+	file_size = -1;
+	sw_replace = FALSE;
+	end = argv + argc;
+	++argv;
+
+/*******************************
+ ** Initialize in_sw_table table.
+ *******************************
+*/
+
+	for (in_sw_tab = spit_in_sw_table; in_sw_tab->in_sw_name; in_sw_tab++)
+		in_sw_tab->in_sw_state = FALSE;
+
+	/**********************************
+	** validating command line options
+	***********************************
+	*/
+
+	while (argv < end) {
+		string = *argv;
+		if (*string == '-') {
+			argv++;
+			ret_cd = get_function_option(prog_name, &sw_replace,
+										 string, spit_in_sw_table);
+			if (ret_cd == FAILURE) {
+				ret_cd = free_file_list(file_list);
+				return FAILURE;
+			}
+		}						/* end of processing (*string == '-') */
+		else {					/* processing function specific command line options */
+
+			switch (sw_replace) {
+			case (IN_SW_SPIT_SP):
+				if (file_nm_sw == FALSE) {	/* process file name */
+					file_size = 0;
+					file_num = file_num + 1;
+
+					if (file_num > MAX_NUM_OF_FILES) {
+						ib_fprintf(ib_stderr,
+								   "%s: maximum of files is %d\n",
+								   prog_name, MAX_NUM_OF_FILES);
+						ret_cd = print_clo(prog_name);
+						ret_cd = free_file_list(file_list);
+						return FAILURE;
+					}
+
+					if (strlen(string) > MAX_FILE_NM_LEN) {
+						ib_fprintf(ib_stderr,
+								   "%s: file name %s is too long\n",
+								   prog_name, string);
+						ib_fprintf(ib_stderr,
+								   "%s: maximum length of file name is %d bytes\n",
+								   prog_name, MAX_FILE_NM_LEN);
+						ret_cd = print_clo(prog_name);
+						ret_cd = free_file_list(file_list);
+						return FAILURE;
+					}
+
+					ret_cd = get_file_name(string, file_size, &file_ptr);
+
+					if (ret_cd == FAILURE) {
+						ret_cd = free_file_list(file_list);
+						return FAILURE;
+					}
+
+					file_nm_sw = TRUE;
+					file_ptr->b_fil_number = file_num;
+
+					if (file_list == NULL_B_FIL)
+						file_list = prev_file = file_ptr;
+					else {
+						prev_file->b_fil_next = file_ptr;
+						prev_file = file_ptr;
+					}
+
+				}				/* processing file name */
+				else {			/* processing file size */
+
+					file_nm_sw = FALSE;
+					ret_cd = get_file_size(prog_name, string, &file_size);
+					if (ret_cd == FAILURE) {
+						ret_cd = free_file_list(file_list);
+						return FAILURE;
+					}
+				}				/* end of processing file size specification */
+				file_ptr->b_fil_size = file_size;
+				break;
+
+			case (IN_SW_SPIT_JT):
+				ret_cd = get_file_name(string, file_size, &file_ptr);
+
+				if (ret_cd == FAILURE) {
+					ret_cd = free_file_list(file_list);
+					return FAILURE;
+				}
+
+				file_num = file_num + 1;
+				file_ptr->b_fil_number = file_num;
+
+				if (file_list == NULL_B_FIL)
+					file_list = prev_file = file_ptr;
+				else {
+					prev_file->b_fil_next = file_ptr;
+					prev_file = file_ptr;
+				}				/* end of processing file size specification */
+				break;
+
+			default:
+				ib_fprintf(ib_stderr, "%s: invalid option '%s'\n",
+						   prog_name, string);
+				ret_cd = print_clo(prog_name);
+				ret_cd = free_file_list(file_list);
+				return FAILURE;
+				break;
+			}					/* and of switch (sw_replace) */
+
+			argv++;
+		}						/* processing function specific command line options */
+	}							/* while (argv < end) */
+
+	if ((file_list == NULL_B_FIL) && (sw_replace != FALSE)) {
+		ib_fprintf(ib_stderr,
+				   "%s: invalid option '%s', rest of parameters is missing\n",
+				   prog_name, string);
+		ret_cd = print_clo(prog_name);
+		ret_cd = free_file_list(file_list);
+		return FAILURE;
+	}
+
+	switch (sw_replace) {
+	case (IN_SW_SPIT_SP):
+		input_file_desc = GBAK_STDIN_DESC;
+		ret_cd = gen_multy_bakup_files(file_list, input_file_desc, file_num);
+		if (ret_cd == FAILURE) {
+			ib_fprintf(ib_stderr,
+					   "%s: progam fails to generate multi-volumn back-up files\n",
+					   prog_name);
+			ret_cd = free_file_list(file_list);
+			return FAILURE;
+		}
+		break;
+
+	case (IN_SW_SPIT_JT):
+		ret_cd = join_multy_bakup_files(file_list);
+		if (ret_cd == FAILURE) {
+			ib_fprintf(ib_stderr,
+					   "%s: progam fails to join multi-volumn back-up files\n",
+					   prog_name);
+			ret_cd = free_file_list(file_list);
+			return FAILURE;
+		}
+		break;
+
+	default:
+		break;
+	}
+
+/********************************************************
+**
+**	free all the storage allocated for backup files
+**
+*********************************************************
+*/
+
+	ret_cd = free_file_list(file_list);
+	return SUCCESS;
+
+}								/* end of man() */
+
+
+static int get_function_option(SCHAR* prog_name,
+							   USHORT* sw_replace,
+							   SCHAR* string,
+							   IN_SW_TAB in_sw_table)
+{
+/********************************************************************
+**
+**	g e t _ f u n c t i o n _ o p t i o n
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		processing command line option and set proper function switch
+**
+*********************************************************************
+*/
+
+	SCHAR c, *p, *q;
+	USHORT op_specified;
+	IN_SW_TAB in_sw_tab;
+	SLONG ret_cd;
+
+	if (strlen(string) == 1) {
+		ib_fprintf(ib_stderr, "%s: invalid option '%s'\n", prog_name, string);
+		ret_cd = print_clo(prog_name);
+		return FAILURE;
+	}
+
+	op_specified = *sw_replace;
+
+	for (in_sw_tab = in_sw_table; q = in_sw_tab->in_sw_name; in_sw_tab++) {
+		for (p = string + 1; c = *p++;)
+			if (UPPER(c) != *q++)
+				break;
+		if (!c) {
+			if (*sw_replace == FALSE) {
+				*sw_replace = in_sw_tab->in_sw;
+				return SUCCESS;
+			}
+			else {
+				if (*sw_replace != in_sw_tab->in_sw) {
+					ib_fprintf(ib_stderr,
+							   "%s: invalid option '%s', incompatible option\n",
+							   prog_name, string);
+					ret_cd = print_clo(prog_name);
+					return FAILURE;
+				}
+				else			/* compatible option */
+					break;
+			}
+		}						/* end of if (!c) */
+	}							/* end of for loop */
+
+	if (!in_sw_tab->in_sw) {
+		ib_fprintf(ib_stderr, "%s: invalid option '%s'\n", prog_name, string);
+		ret_cd = print_clo(prog_name);
+		return FAILURE;
+	}
+
+	return SUCCESS;
+}
+
+
+static int get_file_size(SCHAR * prog_name, SCHAR * string, double *file_size)
+{
+/********************************************************************
+**
+**	g e t _ f i l e _ s i z e
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		processing file size specification and returns calculated
+**		file size.
+**
+*********************************************************************
+*/
+
+	SCHAR c, *p;
+	SLONG size_indicator;
+	SLONG ret_cd;
+
+	size_indicator = 0;
+
+	for (p = string; c = *p++;) {
+		if (c == '\0')
+			break;
+
+		if (isdigit(c))
+			*file_size = *file_size * 10 + (c - '0');
+		else {
+			if ((isalpha(c)) &&
+				(UPPER(c) == 'G' || UPPER(c) == 'K' || UPPER(c) == 'M')) {
+				switch (UPPER(c)) {
+				case ('K'):
+					size_indicator = K_BYTES;
+					break;
+
+				case ('M'):
+					size_indicator = M_BYTES;
+					break;
+
+				case ('G'):
+					size_indicator = G_BYTES;
+					break;
+
+				default:
+					break;
+				}				/* end of switch( UPPER (c) ) */
+
+				*file_size = *file_size * size_indicator;
+			}
+			else {				/* invalid size indicator */
+
+				ib_fprintf(ib_stderr,
+						   "%s: invalid size indicator '%s'\n", prog_name,
+						   string);
+				ret_cd = print_clo(prog_name);
+				return FAILURE;
+			}
+		}
+	}
+	if (*file_size < MIN_FILE_SIZE) {	/* handling user specifies file size 0 */
+		ib_fprintf(ib_stderr,
+				   "%s: invalid option '%s', minimum file size is 1 megabyte\n",
+				   prog_name, string);
+		ret_cd = print_clo(prog_name);
+		return FAILURE;
+	}
+
+	return SUCCESS;
+}
+
+
+static int get_file_name( SCHAR * string, double file_size, B_FIL * file_ptr)
+{
+/********************************************************************
+**
+**	g e t _ f i l e _ n a m e
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		processing file name specification and returns file structure
+**		pointer.
+**
+*********************************************************************
+*/
+
+	B_FIL temp_ptr;
+
+	*file_ptr = temp_ptr = (B_FIL) malloc(B_FIL_LEN);
+	temp_ptr->b_fil_name = (TEXT *) malloc(strlen(string) + 1);
+
+	temp_ptr->b_fil_next = NULL_B_FIL;
+	strcpy(temp_ptr->b_fil_name, string);
+	temp_ptr->b_fil_number = 0;
+	temp_ptr->b_fil_size = file_size;
+
+	return SUCCESS;
+}
+
+
+static int gen_multy_bakup_files(B_FIL file_list,
+								 FILE_DESC input_file_desc, SLONG file_num)
+{
+/********************************************************************
+**
+**	g e n _ m u l t y _ b a c k u p _ f i l e s
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		processing input data from ib_stdin and splits the data into
+**		multiple back-up files.
+**
+**		allocates an 16K bytes I/O buffer
+**		intilializes header record common fields
+**		do forever
+**			walk through the backup file chain
+**			intilializes header record unique fields
+**			open backup file
+**			writes out header record to backup file
+**			points to the next backup file in the chain
+**			calculates the actual file size ( minus header record length )
+**			if the actual file size less than 16K bytes
+**				set I/O size to actual file size
+**			otherwise
+**				set I/O size to 16K byte long
+**			when it is the last backup file
+**				reads data from standard input as much as indicated by I/O size
+**					and writes it out to the last backup file until no EOF.
+**				issues error message when disk space full condition is detected
+**			otherwise reads and writes to backup files util EOF
+**				if disk full cobdition is detected
+**					flush the remaining data in the I/O buffer to subsequence
+**							backup files
+**				go back to normal read and write process util EOF
+**
+*********************************************************************
+*/
+
+	FILE_DESC output_fl_desc;
+	SLONG byte_write, clock, indx, io_size, remaining_io_len, ret_cd, pos;
+	B_FIL fl_ptr = file_list;
+	BOOLEAN end_of_input = FALSE, flush_done = FALSE;
+	TEXT *file_name, header_str[HEADER_REC_LEN], num_arr[5];
+	UCHAR *remaining_io;
+	HEADER_REC hdr_rec;
+	double byte_read, file_size;
+	UCHAR *io_buffer = (UCHAR *) malloc(IO_BUFFER_SIZE);
+
+
+	if (io_buffer == 0) {
+		ib_fprintf(ib_stderr, "I/O buffer allocation failed\n");
+		return FAILURE;
+	}
+
+	for (pos = 0; pos < HEADER_REC_LEN; pos++)
+		header_str[pos] = BLANK;
+
+	pos = 0;
+	ret_cd = set_hdr_str(header_str, HEADER_REC_NAME,
+						 pos, sizeof(hdr_rec.name));
+	for (indx = 0; indx < sizeof(hdr_rec.name); indx++)
+		hdr_rec.name[indx] = BLANK;
+
+	pos = pos + sizeof(hdr_rec.name);
+	clock = time(0);
+	ret_cd = set_hdr_str(header_str, ctime(&clock),
+						 pos, sizeof(hdr_rec.date_time));
+	for (indx = 0; indx < sizeof(hdr_rec.date_time); indx++)
+		hdr_rec.date_time[indx] = BLANK;
+
+	pos = pos + sizeof(hdr_rec.date_time);
+	ret_cd = set_hdr_str(header_str, ", file No. ",
+						 pos, sizeof(hdr_rec.text1));
+	for (indx = 0; indx < sizeof(hdr_rec.text1); indx++)
+		hdr_rec.text1[indx] = BLANK;
+
+	for (indx = 0; indx < sizeof(hdr_rec.num); indx++)
+		hdr_rec.num[indx] = BLANK;
+
+	pos = pos + sizeof(hdr_rec.text1) + sizeof(hdr_rec.num);
+	ret_cd = set_hdr_str(header_str, " of ", pos, sizeof(hdr_rec.text2));
+	for (indx = 0; indx < sizeof(hdr_rec.text2); indx++)
+		hdr_rec.text2[indx] = BLANK;
+
+	ret_cd = conv_ntoc(file_num, num_arr);
+	if (ret_cd == FAILURE) {
+		free(io_buffer);
+		ib_fprintf(ib_stderr,
+				   "gsplit could not convert numeric data to character data\n");
+		return FAILURE;
+	}
+	num_arr[sizeof(num_arr) - 1] = TERMINAL;
+	pos = pos + sizeof(hdr_rec.text2);
+	ret_cd = set_hdr_str(header_str, num_arr, pos, sizeof(hdr_rec.total));
+	for (indx = 0; indx < sizeof(hdr_rec.total); indx++)
+		hdr_rec.total[indx] = BLANK;
+
+	pos = pos + sizeof(hdr_rec.total);
+	ret_cd = set_hdr_str(header_str, ", ", pos, sizeof(hdr_rec.text3));
+	for (indx = 0; indx < sizeof(hdr_rec.text3); indx++)
+		hdr_rec.text3[indx] = BLANK;
+
+	for (indx = 0; indx < sizeof(hdr_rec.fl_name); indx++)
+		hdr_rec.fl_name[indx] = BLANK;
+
+	while (TRUE) {
+		if (fl_ptr != NULL_B_FIL) {
+			byte_read = 0;
+			byte_write = 0;
+			if ((fl_ptr->b_fil_next == NULL_B_FIL)
+				&& (fl_ptr->b_fil_size == 0)) fl_ptr->b_fil_size =
+					MIN_FILE_SIZE;
+
+			file_size = fl_ptr->b_fil_size - HEADER_REC_LEN;
+			file_name = fl_ptr->b_fil_name;
+
+			output_fl_desc = open(file_name, MODE_WRITE, MASK);
+			if (output_fl_desc == -1) {
+				free(io_buffer);
+				ib_fprintf(ib_stderr, "can not open back up file %s\n",
+						   file_name);
+				return FAILURE;
+			}
+
+			ret_cd =
+				write_header(fl_ptr, hdr_rec, output_fl_desc, header_str);
+			if (ret_cd == FAILURE) {
+				free(io_buffer);
+				ib_fprintf(ib_stderr,
+						   "could not write header record to file %s\n",
+						   file_name);
+				return FAILURE;
+			}
+
+			fl_ptr = fl_ptr->b_fil_next;
+		}
+
+		if (file_size < IO_BUFFER_SIZE)
+			io_size = (SLONG) file_size;
+		else
+			io_size = IO_BUFFER_SIZE;
+
+		if (fl_ptr == NULL_B_FIL) {
+			while (end_of_input == FALSE) {
+				ret_cd = final_read_and_write(input_file_desc, output_fl_desc,
+											  file_name, io_size, &io_buffer,
+											  &end_of_input);
+				if (ret_cd == FAILURE) {
+					free(io_buffer);
+					return FAILURE;
+				}
+
+				if (end_of_input == TRUE) {
+					free(io_buffer);
+					return SUCCESS;
+				}
+			}
+		}
+		else {
+			while ((file_size > byte_read) && (fl_ptr != NULL_B_FIL)) {
+				ret_cd = read_and_write(input_file_desc, output_fl_desc,
+										file_name, io_size, file_size,
+										&io_buffer, &end_of_input,
+										&byte_read, &byte_write);
+				switch (ret_cd) {
+				case (FAILURE):
+					{
+						free(io_buffer);
+						return FAILURE;
+						break;
+					}
+
+				case (FILE_IS_FULL):
+					{
+						byte_read = 0;	/* reset byte read count,
+										   ** prepare for next read 
+										 */
+						remaining_io = io_buffer + byte_write;
+						remaining_io_len = IO_BUFFER_SIZE - byte_write;
+
+						while ((flush_done == FALSE)
+							   && (fl_ptr != NULL_B_FIL)) {
+							if ((fl_ptr->b_fil_next == NULL_B_FIL)
+								&& (fl_ptr->b_fil_size == 0))
+								fl_ptr->b_fil_size = MIN_FILE_SIZE;
+
+							file_size = fl_ptr->b_fil_size - HEADER_REC_LEN;
+							file_name = fl_ptr->b_fil_name;
+
+							output_fl_desc =
+								open(file_name, MODE_WRITE, MASK);
+							if (output_fl_desc == -1) {
+								free(io_buffer);
+								ib_fprintf(ib_stderr,
+										   "can not open back up file %s\n",
+										   file_name);
+								return FAILURE;
+							}
+							ret_cd = write_header(fl_ptr, hdr_rec,
+												  output_fl_desc, header_str);
+							if (ret_cd == FAILURE) {
+								free(io_buffer);
+								ib_fprintf(ib_stderr,
+										   "fail to write header rec to file %s\n",
+										   file_name);
+								return FAILURE;
+							}
+
+							fl_ptr = fl_ptr->b_fil_next;
+							if (fl_ptr == NULL_B_FIL) {
+								ret_cd = final_flush_io_buff(remaining_io,
+															 remaining_io_len,
+															 output_fl_desc);
+								if (ret_cd == FAILURE) {
+									ib_fprintf(ib_stderr,
+											   "gsplit could not do backup due");
+									ib_fprintf(ib_stderr,
+											   " to lack of space or I/O problem\n");
+									free(io_buffer);
+									return FAILURE;
+								}
+							}
+							else {	/* got a lot of backup files */
+
+								ret_cd = flush_io_buff(remaining_io,
+													   remaining_io_len,
+													   output_fl_desc,
+													   file_size,
+													   &byte_write,
+													   &flush_done);
+								if (ret_cd == FAILURE) {
+									ib_fprintf(ib_stderr,
+											   "gsplit could not do backup due");
+									ib_fprintf(ib_stderr, " I/O problem\n");
+									free(io_buffer);
+									return FAILURE;
+								}
+								if (flush_done == TRUE) {
+									file_size = file_size - byte_write;
+									byte_write = 0;
+								}
+								else {
+									remaining_io = remaining_io + byte_write;
+									remaining_io_len = remaining_io_len -
+										byte_write;
+								}
+							}
+						}		/* end of while loop */
+						break;
+					}
+
+				default:
+					break;
+				}
+
+				if (end_of_input == TRUE) {
+					free(io_buffer);
+					return SUCCESS;
+				}
+			}
+		}
+	}							/* end of while ( TRUE ) */
+}
+
+
+static int read_and_write(FILE_DESC input_file_desc,
+						  FILE_DESC output_fl_desc,
+						  TEXT * file_name,
+						  SLONG io_size,
+						  double file_size,
+						  UCHAR ** io_buffer,
+						  BOOLEAN * end_of_input,
+						  double *byte_read,
+						  SLONG * byte_write)
+{
+
+/********************************************************************
+**
+**	r e a d _ a n d _ w r i t e
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		Read data from input file and write the data out to output
+**		file.
+**
+*********************************************************************
+*/
+
+	SLONG read_cnt, last_read_size, write_cnt;
+
+	/********************************************************
+	**	when number of byte read + number of byte goint to
+	**	be read is greater then file size, then calculate
+	**	the size for the last read and do the last read for
+	**	the current backup file. Otherwise read as mush data
+	**	as will fit in the current backup file.
+	**********************************************************
+	*/
+
+	if (*byte_read + io_size > file_size) {
+		last_read_size = (SLONG) (file_size - *byte_read);
+		read_cnt = read(input_file_desc, *io_buffer, last_read_size);
+	}
+	else
+		read_cnt = read(input_file_desc, *io_buffer, io_size);
+
+	switch (read_cnt) {
+	case (0):					/* no more data to be read */
+		close(output_fl_desc);
+		*end_of_input = TRUE;
+		*byte_read = *byte_read + read_cnt;
+		return SUCCESS;
+		break;
+
+	case (-1):					/* read failed */
+		close(output_fl_desc);
+		ib_fprintf(ib_stderr,
+				   "fail to read input from ib_stdin, errno = %d\n", errno);
+		return FAILURE;
+		break;
+
+	default:					/* read ok */
+		*byte_read = *byte_read + read_cnt;
+		break;
+	}
+
+	write_cnt = write(output_fl_desc, *io_buffer, read_cnt);
+
+	switch (write_cnt) {
+	case (-1):					/* write failed */
+		close(output_fl_desc);
+		return FAILURE;
+		break;
+
+	default:
+		if (write_cnt == read_cnt)	/* write ok */
+			return SUCCESS;
+		else {					/* write less data then it reads in */
+
+			close(output_fl_desc);
+			*byte_write = write_cnt;
+			return FILE_IS_FULL;
+		}
+		break;
+	}
+}
+
+
+static int final_read_and_write(FILE_DESC input_file_desc,
+								FILE_DESC output_fl_desc,
+								TEXT * file_name,
+								SLONG io_size,
+								UCHAR ** io_buffer,
+								BOOLEAN * end_of_input)
+{
+
+/********************************************************************
+**
+**	f i n a l _ r e a d _ a n d _ w r i t e
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		Read all data from input file and write the data out to output
+**		file.
+**
+*********************************************************************
+*/
+
+	SLONG read_cnt, write_cnt;
+
+	read_cnt = read(input_file_desc, *io_buffer, io_size);
+
+	switch (read_cnt) {
+	case (0):					/* no more data to be read */
+		close(output_fl_desc);
+		*end_of_input = TRUE;
+		return SUCCESS;
+		break;
+
+	case (-1):					/* read failed */
+		close(output_fl_desc);
+		ib_fprintf(ib_stderr,
+				   "problem when reading input file, errno = %d\n", errno);
+		return FAILURE;
+		break;
+
+	default:					/* read ok */
+		break;
+	}
+
+	write_cnt = write(output_fl_desc, *io_buffer, read_cnt);
+
+	switch (write_cnt) {
+	case (-1):					/* write failed */
+		close(output_fl_desc);
+		return FAILURE;
+		break;
+
+	default:
+		if (write_cnt == read_cnt)	/* write ok */
+			return SUCCESS;
+		else {					/* write less data then it reads in */
+
+			ib_fprintf(ib_stderr,
+					   "There is no enough space to write to back up file %s\n",
+					   file_name);
+			close(output_fl_desc);
+			return FAILURE;
+		}
+		break;
+	}
+}
+
+
+static int join_multy_bakup_files( B_FIL file_list)
+{
+/********************************************************************
+**
+**	j o i n _ m u l t y _ b a c k u p _ f i l e s
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		allocates I/O buffer and walks through backup files` chain.
+**		calls read_and_write_for_join routine to read data from
+**		backup file and to write data to standard output file
+**		which later to be processed by gbak. Finally frees up
+**		I/O buffer
+**
+*********************************************************************
+*/
+
+	FILE_DESC output_fl_desc;
+	B_FIL fl_ptr, next_fl;
+	TEXT *file_name;
+	UCHAR* io_buffer = 0;
+	SLONG cnt, ret_cd, total_int;
+
+	output_fl_desc = GBAK_STDOUT_DESC;
+
+	io_buffer = (UCHAR *) malloc(IO_BUFFER_SIZE);
+	cnt = total_int = 0;
+
+	if (io_buffer == 0) {
+		ib_fprintf(ib_stderr, "I/O buffer allocation failed\n");
+		return FAILURE;
+	}
+
+	for (fl_ptr = file_list; fl_ptr; fl_ptr = next_fl) {
+		cnt++;
+		next_fl = fl_ptr->b_fil_next;
+		file_name = fl_ptr->b_fil_name;
+
+		ret_cd =
+			read_and_write_for_join(output_fl_desc, file_name, &io_buffer,
+									cnt, &total_int);
+
+		if (ret_cd == FAILURE) {
+			free(io_buffer);
+			return FAILURE;
+		}
+
+	}							/* end of for loop */
+
+	free(io_buffer);
+	return SUCCESS;
+}
+
+
+static int read_and_write_for_join(FILE_DESC output_fl_desc,
+								   TEXT * file_name,
+								   UCHAR ** io_buffer,
+SLONG cnt, SLONG * total_int)
+{
+/********************************************************************
+**
+**	r e a d _ a n d _ w r i t e _ f o r _ j o i n
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		Reads data from backup files and writes to standard
+**		output file.
+**
+*********************************************************************
+*/
+
+	FILE_DESC input_fl_desc;
+	BOOLEAN end_of_input = FALSE;
+	SLONG indx, num_int, ret_cd, read_cnt, write_cnt;
+	SLONG skip_to_num, skip_to_total;
+	TEXT *char_ptr1, *char_ptr2, num_arr[5], total_arr[5];
+	HEADER_REC hdr_rec;
+
+	input_fl_desc = open(file_name, MODE_READ);
+
+	if (input_fl_desc == -1) {
+		ib_fprintf(ib_stderr, "can not open input file %s\n", file_name);
+		return FAILURE;
+	}
+
+	read_cnt = read(input_fl_desc, *io_buffer, HEADER_REC_LEN);
+	if (read_cnt != HEADER_REC_LEN) {
+		close(input_fl_desc);
+		ib_fprintf(ib_stderr,
+				   "progam fails to read gsplit header record in back-up file%s\n",
+				   file_name);
+		return FAILURE;
+	}
+
+	char_ptr1 = reinterpret_cast<char*>(*io_buffer);
+	ret_cd = strncmp(char_ptr1, HEADER_REC_NAME, sizeof(hdr_rec.name) - 1);
+	if (ret_cd != 0) {
+		close(input_fl_desc);
+		ib_fprintf(ib_stderr, "gsplit: expected GSPLIT description record\n");
+		ib_fprintf(ib_stderr,
+				   "gsplit: Exiting before completion due to errors\n");
+		return FAILURE;
+	}
+
+	skip_to_num = sizeof(hdr_rec.name) + sizeof(hdr_rec.date_time) +
+		sizeof(hdr_rec.text1);
+	skip_to_total = skip_to_num + sizeof(hdr_rec.num) + sizeof(hdr_rec.text2);
+
+	char_ptr1 = reinterpret_cast<char*>(*io_buffer + skip_to_num);
+	char_ptr2 = reinterpret_cast<char*>(*io_buffer + skip_to_total);
+	for (indx = 0; indx < sizeof(hdr_rec.num); indx++) {
+		num_arr[indx] = *char_ptr1;
+		char_ptr1++;
+		if (cnt == 1) {
+			total_arr[indx] = *char_ptr2;
+			char_ptr2++;
+		}
+	}
+	num_arr[indx] = '\0';
+	num_int = atoi(num_arr);
+	if (cnt == 1) {
+		total_arr[indx] = '\0';
+		*total_int = atoi(total_arr);
+	}
+
+	if ((num_int != cnt) || (num_int > *total_int)) {
+		close(input_fl_desc);
+		ib_fprintf(ib_stderr,
+				   "gsplit: join backup file is out of sequence\n");
+		ib_fprintf(ib_stderr,
+				   "gsplit: Exiting before completion due to errors\n");
+		return FAILURE;
+	}
+
+	read_cnt = read(input_fl_desc, *io_buffer, IO_BUFFER_SIZE);
+
+
+	while (TRUE) {
+		switch (read_cnt) {
+		case (0):				/* no more data to be read */
+			close(input_fl_desc);
+			return SUCCESS;
+			break;
+
+		case (-1):				/* read failed */
+			close(input_fl_desc);
+			return FAILURE;
+			break;
+
+		default:				/* this is the last read */
+			break;
+		}
+
+		write_cnt = write(output_fl_desc, *io_buffer, read_cnt);
+
+		switch (write_cnt) {
+		case (-1):				/* write failed */
+			close(input_fl_desc);
+			return FAILURE;
+			break;
+
+		default:
+			assert(write_cnt == read_cnt);
+			break;
+		}
+
+		read_cnt = read(input_fl_desc, *io_buffer, IO_BUFFER_SIZE);
+
+	}							/* end of while (TRUE) loop */
+}
+
+
+static int conv_ntoc( SLONG numeric_in, TEXT char_out[])
+{
+/********************************************************************
+**
+**	c o n v _ n t o c
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		Convert 4-digit numeric data to a 4-byte character array.
+**
+*********************************************************************
+*/
+
+	SLONG indx, mod, i;
+
+	i = numeric_in;
+	indx = 3;
+
+	while (TRUE) {
+		mod = i % 10;
+		switch (mod) {
+		case (0):
+			char_out[indx] = '0';
+			break;
+
+		case (1):
+			char_out[indx] = '1';
+			break;
+
+		case (2):
+			char_out[indx] = '2';
+			break;
+
+		case (3):
+			char_out[indx] = '3';
+			break;
+
+		case (4):
+			char_out[indx] = '4';
+			break;
+
+		case (5):
+			char_out[indx] = '5';
+			break;
+
+		case (6):
+			char_out[indx] = '6';
+			break;
+
+		case (7):
+			char_out[indx] = '7';
+			break;
+
+		case (8):
+			char_out[indx] = '8';
+			break;
+
+		default:
+			char_out[indx] = '9';
+			break;
+		}
+		indx = indx - 1;
+		i = i / 10;
+		if (i <= 0)
+			break;
+	}
+
+	for (; indx >= 0; indx--) {
+		char_out[indx] = ' ';
+	}
+	return SUCCESS;
+}
+
+
+static int write_header(B_FIL		fl_ptr,
+						HEADER_REC	hdr_rec,
+						FILE_DESC	output_fl_desc,
+						TEXT		header_str[])
+{
+/********************************************************************
+**
+**	w r i t e _ h e a d e r
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		writes out gsplit header record
+**
+**		assigns backup file name to header record file name array
+**		calls conv_ntoc routine to convert numeric data to char data
+**			and assigns to header record file number field
+**		writes gsplit header record out to backup file
+**
+*********************************************************************
+*/
+	TEXT *file_name, num_arr[5];
+	SLONG end, indx, pos, ret_cd, write_cnt;
+
+	ret_cd = conv_ntoc(fl_ptr->b_fil_number, num_arr);
+	if (ret_cd == FAILURE) {
+		ib_printf
+			("gsplit could not convert numeric data to character data\n");
+		return FAILURE;
+	}
+	num_arr[sizeof(num_arr) - 1] = TERMINAL;
+	pos = sizeof(hdr_rec.name) + sizeof(hdr_rec.date_time) +
+		sizeof(hdr_rec.text1);
+	ret_cd = set_hdr_str(header_str, num_arr, pos, sizeof(hdr_rec.num));
+
+	file_name = fl_ptr->b_fil_name;
+	pos = sizeof(hdr_rec.name) + sizeof(hdr_rec.date_time) +
+		sizeof(hdr_rec.text1) + sizeof(hdr_rec.num) +
+		sizeof(hdr_rec.text2) + sizeof(hdr_rec.total) + sizeof(hdr_rec.text3);
+	ret_cd = set_hdr_str(header_str, file_name, pos, strlen(file_name));
+	write_cnt = write(output_fl_desc, header_str, HEADER_REC_LEN);
+
+	switch (write_cnt)
+	{
+	case (-1):					/* write failed */
+		close(output_fl_desc);
+		return FAILURE;
+		break;
+
+	default:
+		end = pos + strlen(file_name);
+		for (indx = pos; indx < end; indx++)
+			header_str[indx] = BLANK;
+		return SUCCESS;
+		break;
+	}
+}
+
+
+static int flush_io_buff(UCHAR*		remaining_io,
+						 SLONG		remaining_io_len,
+						 FILE_DESC	output_fl_desc,
+						 double		file_size,
+						 SLONG*		byte_write,
+						 BOOLEAN*	flush_done)
+{
+/********************************************************************
+**
+**	f l u s h _ i o _ b u f f
+**
+*********************************************************************
+**
+** Functional description:
+**
+**	flush out the remaining data in the I/O buffer
+**
+**	when the file_size is truly has space to write out the remaining data
+**		then
+**			set and returns flush_done TRUE
+**		otherwise
+**			closes the output file, set and returns flush_done FALSE.
+**	otherwise
+**		we can only writes out as much data as file_size indicated
+**		if it was able to write out the remaining data
+**			then
+**				set and returns flush_done TRUE
+**			otherwise
+**				closes the output file, set and returns flush_done FALSE.
+**
+*********************************************************************
+*/
+
+	SLONG write_cnt;
+
+	if (file_size > remaining_io_len) {
+		write_cnt = write(output_fl_desc, remaining_io, remaining_io_len);
+	}
+	else {						/* file_size <= remaining_io_len */
+
+		write_cnt =
+			write(output_fl_desc, remaining_io, (unsigned int) file_size);
+	}
+
+	switch (write_cnt) {
+	case (-1):					/* write failed */
+		close(output_fl_desc);
+		*flush_done = FALSE;
+		return FAILURE;
+		break;
+
+	default:
+		if (write_cnt == remaining_io_len)	/* write ok */
+			*flush_done = TRUE;
+		else {					/* could not write out all remaining data */
+
+			close(output_fl_desc);
+			*flush_done = FALSE;
+		}
+		*byte_write = write_cnt;
+		return SUCCESS;
+		break;
+	}
+}
+
+
+static int final_flush_io_buff(UCHAR * remaining_io,
+							   SLONG remaining_io_len,
+							   FILE_DESC output_fl_desc)
+{
+/********************************************************************
+**
+**	f i n a l _ f l u s h _ i o _ b u f f
+**
+*********************************************************************
+**
+** Functional description:
+**
+**	flush out the remaining data in the I/O buffer
+**
+*********************************************************************
+*/
+
+	SLONG write_cnt;
+
+	write_cnt = write(output_fl_desc, remaining_io, remaining_io_len);
+	switch (write_cnt)
+	{
+	case (-1):					/* write failed */
+		close(output_fl_desc);
+		return FAILURE;
+		break;
+
+	default:
+		if (write_cnt == remaining_io_len)	/* write ok */
+			return SUCCESS;
+		else {					/* could not write out all remaining data */
+
+			close(output_fl_desc);
+			return FAILURE;
+		}
+		break;
+	}
+}
+
+
+static int print_clo(TEXT* prog_name)
+{
+/********************************************************************
+**
+**	p r i n t _ c l o
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		print out gsplit utility command line options
+**
+*********************************************************************
+*/
+
+	ib_fprintf(ib_stderr, "%s: Command Line Options Are:\n", prog_name);
+	ib_fprintf(ib_stderr,
+			   "  gsplit -S[PLIT_BK_FILE] <file> <size>{k|m|g} [... <file> [<size>{k|m|g}]] or\n");
+	ib_fprintf(ib_stderr, "  gsplit -J[OINT_BK_FILE] <file> [... <file>]\n");
+	ib_fprintf(ib_stderr,
+			   "%s: option can be abbreviated to the unparenthesized characters\n",
+			   prog_name);
+	ib_fprintf(ib_stderr,
+			   "%s: Exiting before completion due to errors\n", prog_name);
+
+	return SUCCESS;
+
+}
+
+
+static int set_hdr_str(TEXT header_str[], TEXT * in_str, SLONG pos, SLONG len)
+{
+/********************************************************************
+**
+**	s e t _ h d r _ s t r
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		initialyze header string
+**
+*********************************************************************
+*/
+
+	TEXT *t_str;
+	SLONG end, indx;
+
+	t_str = in_str;
+	end = pos + len;
+
+	for (indx = pos; indx < end; indx++) {
+		switch (*t_str) {
+		case (NEW_LINE):
+			header_str[indx] = ' ';
+			break;
+		case (TERMINAL):
+			header_str[indx] = ' ';
+			break;
+		default:
+			header_str[indx] = *t_str;
+			break;
+		}
+		*t_str++;
+	}
+	return SUCCESS;
+}
+
+
+static int free_file_list( B_FIL file_list)
+{
+/********************************************************************
+**
+**	f r e e _ f i l e _ l i s t
+**
+*********************************************************************
+**
+**	Functional description:
+**
+**		free all the storage allocated for backup files structure
+**
+*********************************************************************
+*/
+
+	B_FIL file_ptr, next_file;
+
+	for (file_ptr = file_list; file_ptr != NULL_B_FIL; file_ptr = next_file) {
+		next_file = file_ptr->b_fil_next;
+		free(file_ptr->b_fil_name);
+		free(file_ptr);
+	}
+
+	return SUCCESS;
+}
diff --git a/src/burp/spit.h b/src/burp/spit.h
new file mode 100644
index 0000000000..1c1b9f994c
--- /dev/null
+++ b/src/burp/spit.h
@@ -0,0 +1,50 @@
+/*
+ **************************************************************************
+ *
+ *	PROGRAM:		JRD file split utility program
+ *	MODULE:			spit.h
+ *	DESCRIPTION:	file split utility program main header file
+ *
+ *
+ **************************************************************************
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+
+#define	BLANK					' '
+#define	BURP_ALLOC_ZERO(size)	MISC_alloc_burp((ULONG) size)
+#define	FILE_IS_FULL			-9
+#define	FILE_NM_ARR_LEN			20
+#define	GBAK_STDIN_DESC			(int)0	/* standart input  file descriptor */
+#define	GBAK_STDOUT_DESC		(int)1	/* standart output file descriptor */
+#define	GSPLIT_HDR_REC_NM		"InterBase/Gsplit"
+
+#define	IO_BUFFER_SIZE			(16 * K_BYTES)
+
+#define	K_BYTES					1024
+#define	M_BYTES					(K_BYTES * K_BYTES)
+#define	G_BYTES					(K_BYTES * M_BYTES)
+#define	MAX_FILE_NM_LEN			27		/* size of header_rec.fl_name */
+#define	MAX_NUM_OF_FILES		9999
+#define	MIN_FILE_SIZE			M_BYTES
+#define	NEW_LINE				'\n'
+#define	NULL_B_FIL				((B_FIL) NULL)
+#define	TERMINAL				'\0'
+
+typedef	int	FILE_DESC;
diff --git a/src/csv/csi.cpp b/src/csv/csi.cpp
new file mode 100644
index 0000000000..4b34d7e912
--- /dev/null
+++ b/src/csv/csi.cpp
@@ -0,0 +1,3774 @@
+/*
+ *	PROGRAM:	Central Server
+ *	MODULE:		csi.c
+ *	DESCRIPTION:	Central Server Interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../csv/csi.h"
+#include "../jrd/license.h"
+#include "../jrd/codes.h"
+#include "../jrd/inf.h"
+#include "../jrd/thd.h"
+#include "../csv/csi_proto.h"
+#include "../csv/css_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../remote/merge_proto.h"
+
+#ifdef PIPE_SERVER
+#ifdef VMS
+#include descrip
+#include libdef
+#include ssdef
+#include jpidef
+#include pqldef
+#include "../jrd/lnmdef.h"
+
+#ifndef ORACLE_ALT
+#define GDS_PIPE	"[sysexe]gds_pipe_orcl.exe"
+#else
+#define GDS_PIPE	"[sysexe]gds_pipe_orcl_alt.exe"
+#endif
+#endif
+#endif	// PIPE_SERVER
+
+#define ALLOC(type, length)	CSS_alloc_local (type, length)
+#define FREE(block)		CSS_free_local (block)
+
+#ifndef MOVE
+#define MOVE(from, to, length)	move (from, to, length)
+#endif
+
+static RDB CSI_databases, CSI_free_servers;
+static TEXT error_buffer[1024];
+
+#ifdef PIPE_SERVER
+#ifdef VMS
+/* Define logical names that sub-process should inherit */
+
+static SCHAR *inherit_logicals[] = {
+	"SYS$LOGIN",
+	"SYS$SCRATCH",
+	"SYS$NODE",
+	"SYS$INTERBASE",
+	0
+};
+
+typedef struct itm {
+	SSHORT itm_length;
+	SSHORT itm_code;
+	SCHAR *itm_buffer;
+	SSHORT *itm_return_length;
+} ITM;
+
+typedef struct itmq {
+	SCHAR itmq_code;
+	SLONG itmq_value;
+} ITMQ;
+#endif
+
+#endif
+
+#ifndef MULTI_THREAD
+static void event_handler(PTR);
+#else
+static void event_thread(PTR);
+#endif
+
+static STATUS get_response(RDB, MSG, STATUS *, HANDLE *, USHORT, UCHAR *,
+						   USHORT *);
+static STATUS handle_error(STATUS *, STATUS);
+static STATUS info(RDB, STATUS *, HANDLE, MSG_T, USHORT, USHORT, UCHAR *,
+				   USHORT, UCHAR *);
+#ifndef GATEWAY
+static RDB init(STATUS *, MSG_T, UCHAR *, USHORT, UCHAR *, USHORT, TEXT *,
+				USHORT, USHORT, TEXT *, USHORT *);
+#else
+static RDB init(STATUS *, MSG_T, UCHAR *, USHORT, UCHAR *, USHORT, TEXT *);
+#endif
+static RTR make_transaction(RDB, HANDLE);
+static void move(UCHAR *, UCHAR *, USHORT);
+static USHORT name_length(TEXT *);
+static STATUS process_response(MSG_RESP, STATUS *, HANDLE *, USHORT, UCHAR *,
+							   USHORT *);
+static void release_blob(RBL);
+static STATUS release_object(RDB, MSG_T, HANDLE, STATUS *);
+static void release_request(RRQ);
+static void release_sql_request(RSR);
+static void release_transaction(RTR);
+static STATUS send_blob(STATUS *, RBL, USHORT, UCHAR *);
+#ifdef PIPE_SERVER
+#ifdef VMS
+static void setup_creprc_info(SLONG **, ITMQ **, SLONG *);
+static int spawn(STATUS *, UCHAR *, PTR *);
+static void trans_logicals(void);
+#endif
+#endif
+
+#define CHECK_HANDLE(blk, type, error) if (!blk || ((BLK) blk)->blk_type != (SCHAR) type) \
+	return handle_error (user_status, error)
+
+#define NULL_CHECK(ptr, code) if (*ptr) return handle_error (user_status, code)
+
+/* Transaction element block */
+
+typedef struct teb {
+	RDB *teb_database;
+	int teb_tpb_length;
+	UCHAR *teb_tpb;
+} TEB;
+
+
+#ifndef PIPE_SERVER
+#define GDS_ATTACH_DATABASE	CSI_attach_database
+#define GDS_BLOB_INFO		CSI_blob_info
+#define GDS_CANCEL_BLOB		CSI_cancel_blob
+#define GDS_CLOSE_BLOB		CSI_close_blob
+#define GDS_COMMIT		CSI_commit_transaction
+#define GDS_COMMIT_RETAINING	CSI_commit_retaining
+#define GDS_COMPILE		CSI_compile_request
+#define GDS_CREATE_BLOB2	CSI_create_blob2
+#define GDS_CREATE_DATABASE	CSI_create_database
+#define GDS_DATABASE_INFO	CSI_database_info
+#define GDS_DDL			CSI_ddl
+#define GDS_DETACH		CSI_detach_database
+#define GDS_DROP_DATABASE	CSI_drop_database
+#define GDS_GET_SEGMENT		CSI_get_segment
+#define GDS_GET_SLICE		CSI_get_slice
+#define GDS_OPEN_BLOB2		CSI_open_blob2
+#define GDS_PREPARE		CSI_prepare_transaction
+#define GDS_PUT_SEGMENT		CSI_put_segment
+#define GDS_PUT_SLICE		CSI_put_slice
+#define GDS_RECEIVE		CSI_receive
+#define GDS_RECONNECT		CSI_reconnect_transaction
+#define GDS_RELEASE_REQUEST	CSI_release_request
+#define GDS_REQUEST_INFO	CSI_request_info
+#define GDS_ROLLBACK		CSI_rollback_transaction
+#define GDS_SEEK_BLOB		CSI_seek_blob
+#define GDS_SEND		CSI_send
+#define GDS_START_AND_SEND	CSI_start_and_send
+#define GDS_START		CSI_start_request
+#define GDS_START_MULTIPLE	CSI_start_multiple
+#define GDS_START_TRANSACTION	CSI_start_transaction
+#define GDS_TRANSACT_REQUEST	CSI_transact_request
+#define GDS_TRANSACTION_INFO	CSI_transaction_info
+#define GDS_UNWIND		CSI_unwind_request
+#define GDS_QUE_EVENTS		CSI_que_events
+#define GDS_CANCEL_EVENTS	CSI_cancel_events
+
+#define GDS_DSQL_ALLOCATE	CSI_allocate_statement
+#define GDS_DSQL_EXECUTE	CSI_execute
+#define GDS_DSQL_EXECUTE2	CSI_execute2
+#define GDS_DSQL_EXECUTE_IMMED	CSI_execute_immediate
+#define GDS_DSQL_EXECUTE_IMMED2	CSI_execute_immediate2
+#define GDS_DSQL_FETCH		CSI_fetch
+#define GDS_DSQL_FREE		CSI_free_statement
+#define GDS_DSQL_INSERT		CSI_insert
+#define GDS_DSQL_PREPARE	CSI_prepare
+#define GDS_DSQL_SET_CURSOR	CSI_set_cursor_name
+#define GDS_DSQL_SQL_INFO	CSI_sql_info
+#else
+#define GDS_ATTACH_DATABASE	PSI_attach_database
+#define GDS_BLOB_INFO		PSI_blob_info
+#define GDS_CANCEL_BLOB		PSI_cancel_blob
+#define GDS_CLOSE_BLOB		PSI_close_blob
+#define GDS_COMMIT		PSI_commit_transaction
+#define GDS_COMMIT_RETAINING	PSI_commit_retaining
+#define GDS_COMPILE		PSI_compile_request
+#define GDS_CREATE_BLOB		PSI_create_blob
+#define GDS_CREATE_BLOB2	PSI_create_blob2
+#define GDS_CREATE_DATABASE	PSI_create_database
+#define GDS_DATABASE_INFO	PSI_database_info
+#define GDS_DDL			PSI_ddl
+#define GDS_DETACH		PSI_detach_database
+#define GDS_DROP_DATABASE	PSI_drop_database
+#define GDS_GET_SEGMENT		PSI_get_segment
+#define GDS_GET_SLICE		PSI_get_slice
+#define GDS_OPEN_BLOB		PSI_open_blob
+#define GDS_OPEN_BLOB2		PSI_open_blob2
+#define GDS_PREPARE		PSI_prepare_transaction
+#define GDS_PUT_SEGMENT		PSI_put_segment
+#define GDS_PUT_SLICE		PSI_put_slice
+#define GDS_RECEIVE		PSI_receive
+#define GDS_RECONNECT		PSI_reconnect_transaction
+#define GDS_RELEASE_REQUEST	PSI_release_request
+#define GDS_REQUEST_INFO	PSI_request_info
+#define GDS_ROLLBACK		PSI_rollback_transaction
+#define GDS_SEND		PSI_send
+#define GDS_SEEK_BLOB		PSI_seek_blob
+#define GDS_START_AND_SEND	PSI_start_and_send
+#define GDS_START		PSI_start_request
+#define GDS_START_MULTIPLE	PSI_start_multiple
+#define GDS_START_TRANSACTION	PSI_start_transaction
+#define GDS_TRANSACT_REQUEST	PSI_transact_request
+#define GDS_TRANSACTION_INFO	PSI_transaction_info
+#define GDS_UNWIND		PSI_unwind_request
+#define GDS_QUE_EVENTS		PSI_que_events
+#define GDS_CANCEL_EVENTS	PSI_cancel_events
+
+#define GDS_DSQL_ALLOCATE	PSI_allocate_statement
+#define GDS_DSQL_EXECUTE	PSI_execute
+#define GDS_DSQL_EXECUTE2	PSI_execute2
+#define GDS_DSQL_EXECUTE_IMMED	PSI_execute_immediate
+#define GDS_DSQL_EXECUTE_IMMED2	PSI_execute_immediate2
+#define GDS_DSQL_FETCH		PSI_fetch
+#define GDS_DSQL_FREE		PSI_free_statement
+#define GDS_DSQL_INSERT		PSI_insert
+#define GDS_DSQL_PREPARE	PSI_prepare
+#define GDS_DSQL_SET_CURSOR	PSI_set_cursor_name
+#define GDS_DSQL_SQL_INFO	PSI_sql_info
+#endif
+
+
+#ifndef GATEWAY
+STATUS GDS_ATTACH_DATABASE(
+						   STATUS * user_status,
+						   SSHORT file_length,
+						   SCHAR * file_name,
+						   RDB * handle,
+SSHORT dpb_length, SCHAR * dpb, TEXT * expanded_filename)
+{
+/**************************************
+ *
+ *	g d s _ A T T A C H _ D A T A B A S E	( n o n - G a t e w a y )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeeky clean database, uncorrupted by user data.
+ *
+ **************************************/
+	RDB rdb;
+
+	NULL_CHECK(handle, gds__bad_db_handle);
+
+	if (rdb = init(user_status, MSG_attach_database,
+				   file_name, file_length, dpb, dpb_length, expanded_filename,
+				   0, 0, 0, 0))
+		*handle = rdb;
+
+	return user_status[1];
+}
+#endif
+
+
+#ifdef GATEWAY
+#ifdef PIPE_SERVER
+STATUS GDS_ATTACH_DATABASE(STATUS * user_status,
+						   SSHORT file_length,
+						   SCHAR * file_name,
+						   RDB * handle,
+						   SSHORT dpb_length,
+						   SCHAR * dpb, TEXT * expanded_filename)
+{
+/**************************************
+ *
+ *	g d s _ A T T A C H _ D A T A B A S E	( G a t e w a y _ s e r v e r )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeeky clean database, uncorrupted by user data.
+ *
+ **************************************/
+	RDB rdb;
+
+	NULL_CHECK(handle, gds__bad_db_handle);
+
+	if (rdb = init(user_status, MSG_attach_database,
+				   file_name, file_length, dpb, dpb_length,
+				   expanded_filename)) *handle = rdb;
+
+	return user_status[1];
+}
+#endif
+#endif
+
+
+STATUS GDS_BLOB_INFO(STATUS * user_status,
+					 RBL * blob,
+					 SSHORT item_length,
+					 UCHAR * items, SSHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ b l o b _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+	RDB rdb;
+
+	CHECK_HANDLE((*blob), type_rbl, gds__bad_segstr_handle);
+	rdb = (*blob)->rbl_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	return info(rdb, user_status, (*blob)->rbl_handle, MSG_blob_info, 0,
+				item_length, items, buffer_length, buffer);
+}
+
+
+STATUS GDS_CANCEL_BLOB(STATUS * user_status, RBL * blob_handle)
+{
+/**************************************
+ *
+ *	g d s _ c a n c e l _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+
+	if (!(blob = *blob_handle)) {
+		if (user_status) {
+			*user_status++ = gds_arg_gds;
+			*user_status++ = SUCCESS;
+			*user_status = 0;
+		}
+		return SUCCESS;
+	}
+
+	CHECK_HANDLE(blob, type_rbl, gds__bad_segstr_handle);
+	rdb = blob->rbl_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	if (release_object(rdb, MSG_cancel_blob, blob->rbl_handle, user_status))
+		return user_status[1];
+
+	release_blob(blob);
+	*blob_handle = NULL;
+
+	return user_status[1];
+}
+
+
+STATUS GDS_CANCEL_EVENTS(STATUS * user_status, RDB * handle, SLONG * id)
+{
+/**************************************
+ *
+ *	g d s _ C A N C E L _ E V E N T S
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel a remove event.
+ *
+ **************************************/
+	RDB rdb;
+	MSG_OP message;
+
+	rdb = *handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	message = (MSG_OP) CSS_alloc_message(type_msg, sizeof(struct msg_op));
+	message->msg_op_header.msg_type = MSG_cancel_events;
+	message->msg_op_handle = rdb->rdb_handle;
+	message->msg_op_level = *id;
+
+	return get_response(rdb, message, user_status, 0, 0, 0, 0);
+}
+
+
+STATUS GDS_CLOSE_BLOB(STATUS * user_status, RBL * blob_handle)
+{
+/**************************************
+ *
+ *	g d s _ c l o s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, type_rbl, gds__bad_segstr_handle);
+	rdb = blob->rbl_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+/* If a portion of the blob hasn't been sent to the pipe yet,
+   do so now. */
+
+	if ((blob->rbl_flags & RBL_create) && blob->rbl_ptr != blob->rbl_buffer)
+		send_blob(user_status, blob, 0, NULL);
+
+	if (release_object(rdb, MSG_close_blob, blob->rbl_handle, user_status))
+		return user_status[1];
+
+	release_blob(blob);
+	*blob_handle = NULL;
+
+	return user_status[1];
+}
+
+
+STATUS GDS_COMMIT(STATUS * user_status, RTR * rtr_handle)
+{
+/**************************************
+ *
+ *	g d s _ C O M M I T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit a transaction.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+	rdb = transaction->rtr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	if (release_object(rdb, MSG_commit, transaction->rtr_handle, user_status))
+		return user_status[1];
+
+	release_transaction(transaction);
+	*rtr_handle = NULL;
+
+	return user_status[1];
+}
+
+
+STATUS GDS_COMMIT_RETAINING(STATUS * user_status, RTR * rtr_handle)
+{
+/**************************************
+ *
+ *	g d s _ c o m m i t _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First phase of a two
+ *	phase commit.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+	rdb = transaction->rtr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	if (release_object
+		(rdb, MSG_commit_retaining, transaction->rtr_handle,
+		 user_status)) return user_status[1];
+
+	return user_status[1];
+}
+
+
+STATUS GDS_COMPILE(STATUS * user_status,
+				   RDB * db_handle,
+				   RRQ * req_handle, USHORT blr_length, UCHAR * blr)
+{
+/**************************************
+ *
+ *	g d s _ C O M P I L E
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	RDB rdb;
+	RRQ request;
+	MSG_OP message;
+	HANDLE handle;
+
+/* Check and validate handles, etc. */
+
+	NULL_CHECK(req_handle, gds__bad_req_handle);
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	message =
+		(MSG_OP) CSS_alloc_message(type_msg,
+								   (int) (sizeof(struct msg_op) +
+										  blr_length));
+	message->msg_op_header.msg_type = MSG_compile;
+	message->msg_op_handle = rdb->rdb_handle;
+	message->msg_op_length = blr_length;
+	MOVE(blr, message->msg_op_data, blr_length);
+
+	if (!get_response(rdb, message, user_status, &handle, 0, 0, 0)) {
+		*req_handle = request = (RRQ) ALLOC(type_rrq, sizeof(struct rrq));
+		request->rrq_handle = handle;
+		request->rrq_rdb = rdb;
+		request->rrq_next = rdb->rdb_requests;
+		rdb->rdb_requests = request;
+	}
+
+	return user_status[1];
+}
+
+
+STATUS GDS_CREATE_BLOB2(STATUS * user_status,
+						RDB * db_handle,
+						RTR * rtr_handle,
+						RBL * blob_handle,
+						BID blob_id, USHORT bpb_length, UCHAR * bpb)
+{
+/**************************************
+ *
+ *	g d s _ c r e a t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	RBL blob;
+	HANDLE handle;
+	MSG_BLOB message;
+
+	NULL_CHECK(blob_handle, gds__bad_segstr_handle);
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+
+	message =
+		(MSG_BLOB) CSS_alloc_message(type_msg,
+									 (int) (sizeof(struct msg_blob) +
+											bpb_length - 1));
+	message->msg_blob_header.msg_type = MSG_create_blob;
+	message->msg_blob_database = rdb->rdb_handle;
+	message->msg_blob_transaction = transaction->rtr_handle;
+	message->msg_blob_bpb_length = bpb_length;
+	MOVE(bpb, message->msg_blob_bpb, bpb_length);
+
+	if (!get_response(rdb, message, user_status, &handle, 8, blob_id, 0)) {
+		*blob_handle = blob =
+			(RBL) ALLOC(type_rbl, sizeof(struct rbl) + BLOB_LENGTH);
+		blob->rbl_handle = handle;
+		blob->rbl_buffer_length = BLOB_LENGTH;
+		blob->rbl_rdb = rdb;
+		blob->rbl_rtr = transaction;
+		blob->rbl_ptr = blob->rbl_buffer;
+		blob->rbl_flags |= RBL_create;
+		blob->rbl_next = transaction->rtr_blobs;
+		transaction->rtr_blobs = blob;
+	}
+
+	return user_status[1];
+}
+
+
+#ifdef PIPE_SERVER
+STATUS GDS_CREATE_BLOB(STATUS * user_status,
+					   RDB * db_handle,
+					   RTR * rtr_handle, RBL * blob_handle, BID blob_id)
+{
+/**************************************
+ *
+ *	g d s _ c r e a t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+
+	return GDS_CREATE_BLOB2(user_status, db_handle, rtr_handle, blob_handle,
+							blob_id, 0, NULL);
+}
+#endif
+
+
+#ifndef GATEWAY
+STATUS GDS_CREATE_DATABASE(STATUS * user_status,
+						   SSHORT file_length,
+						   SCHAR * file_name,
+						   RDB * handle,
+						   SSHORT dpb_length,
+						   SCHAR * dpb,
+						   SSHORT db_type, TEXT * expanded_filename)
+{
+/**************************************
+ *
+ *	g d s _ C R E A T E _ D A T A B A S E
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeeky clean database, uncorrupted by user data.
+ *
+ **************************************/
+	RDB rdb;
+
+	NULL_CHECK(handle, gds__bad_db_handle);
+
+	if (rdb = init(user_status, MSG_create_database,
+				   file_name, file_length, dpb, dpb_length, expanded_filename,
+				   0, 0, 0, 0))
+		*handle = rdb;
+
+	return user_status[1];
+}
+#endif
+
+
+STATUS GDS_DATABASE_INFO(STATUS * user_status,
+						 RDB * handle,
+						 SSHORT item_length,
+						 UCHAR * items, SSHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ d a t a b a s e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on database object.
+ *
+ **************************************/
+	RDB rdb;
+	UCHAR temp[1024];
+
+	rdb = *handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	if (info
+		(rdb, user_status, rdb->rdb_handle, MSG_database_info, 0, item_length,
+		 items, sizeof(temp), temp))
+		return user_status[1];
+
+	MERGE_database_info(temp, buffer, buffer_length,
+#ifndef PIPE_SERVER
+						IMPLEMENTATION, 9, 1, GDS_VERSION, "", 0);
+#else
+						IMPLEMENTATION, 7, 1, GDS_VERSION, "", 0);
+#endif
+
+	return user_status[1];
+}
+
+
+STATUS GDS_DDL(STATUS * user_status,
+			   RDB * db_handle,
+			   RTR * rtr_handle, USHORT ddl_length, UCHAR * ddl)
+{
+/**************************************
+ *
+ *	g d s _ d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do meta-data update.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	MSG_DDL message;
+
+/* Check and validate handles, etc. */
+
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	message =
+		(MSG_DDL) CSS_alloc_message(type_msg,
+									(int) (sizeof(struct msg_ddl) +
+										   ddl_length));
+	message->msg_ddl_header.msg_type = MSG_ddl;
+	message->msg_ddl_database = rdb->rdb_handle;
+	message->msg_ddl_transaction = transaction->rtr_handle;
+	message->msg_ddl_length = ddl_length;
+	MOVE(ddl, message->msg_ddl_data, ddl_length);
+
+	return get_response(rdb, message, user_status, 0, 0, 0, 0);
+}
+
+
+STATUS GDS_DETACH(STATUS * user_status, RDB * handle)
+{
+/**************************************
+ *
+ *	g d s _ D E T A C H
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a database.
+ *
+ **************************************/
+	RDB rdb, *ptr;
+	RRQ rrq;
+
+	rdb = *handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	if (release_object(rdb, MSG_detach, rdb->rdb_handle, user_status))
+		return user_status[1];
+
+	while (rrq = rdb->rdb_requests) {
+		if (rrq->rrq_user_handle)
+			*(rrq->rrq_user_handle) = NULL;
+		release_request(rrq);
+	}
+
+	while (rdb->rdb_sql_requests)
+		release_sql_request(rdb->rdb_sql_requests);
+
+	while (rdb->rdb_transactions)
+		release_transaction(rdb->rdb_transactions);
+
+	if (rdb->rdb_connection2) {
+#ifndef GATEWAY
+#ifndef MULTI_THREAD
+		ISC_signal_cancel(EVENT_SIGNAL, event_handler, rdb->rdb_connection2);
+#endif
+#endif
+		CSS_disconnect(rdb->rdb_connection2);
+	}
+
+#ifdef GATEWAY
+#ifdef PIPE_SERVER
+#define GWAY_PIPE
+	rdb->rdb_connection2 = NULL;
+	rdb->rdb_handle = NULL;
+
+/* Unhook the rdb block and then add it to the free server list */
+
+	for (ptr = &CSI_databases; *ptr; ptr = &(*ptr)->rdb_next)
+		if (*ptr == rdb) {
+			*ptr = rdb->rdb_next;
+			break;
+		}
+
+	rdb->rdb_next = CSI_free_servers;
+	CSI_free_servers = rdb;
+#endif
+#endif
+
+#ifndef GWAY_PIPE
+	CSS_disconnect(rdb->rdb_connection);
+
+	FREE(rdb);
+#endif
+
+	*handle = NULL;
+
+	return user_status[1];
+}
+
+
+STATUS GDS_DROP_DATABASE(STATUS * user_status, RDB * handle)
+{
+/**************************************
+ *
+ *	i s c _ d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down and then purge a database.
+ *
+ **************************************/
+	RDB rdb, *ptr;
+	RRQ rrq;
+
+	rdb = *handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	if (release_object(rdb, MSG_drop_database, rdb->rdb_handle, user_status))
+		return user_status[1];
+
+	while (rrq = rdb->rdb_requests) {
+		if (rrq->rrq_user_handle)
+			*(rrq->rrq_user_handle) = NULL;
+		release_request(rrq);
+	}
+
+	while (rdb->rdb_sql_requests)
+		release_sql_request(rdb->rdb_sql_requests);
+
+	while (rdb->rdb_transactions)
+		release_transaction(rdb->rdb_transactions);
+
+	if (rdb->rdb_connection2) {
+#ifndef GATEWAY
+#ifndef MULTI_THREAD
+		ISC_signal_cancel(EVENT_SIGNAL, event_handler, rdb->rdb_connection2);
+#endif
+#endif
+		CSS_disconnect(rdb->rdb_connection2);
+	}
+
+#ifdef GATEWAY
+#ifdef PIPE_SERVER
+#define GWAY_PIPE
+	rdb->rdb_connection2 = NULL;
+	rdb->rdb_handle = NULL;
+
+/* Unhook the rdb block and then add it to the free server list */
+
+	for (ptr = &CSI_databases; *ptr; ptr = &(*ptr)->rdb_next)
+		if (*ptr == rdb) {
+			*ptr = rdb->rdb_next;
+			break;
+		}
+
+	rdb->rdb_next = CSI_free_servers;
+	CSI_free_servers = rdb;
+#endif
+#endif
+
+#ifndef GWAY_PIPE
+	CSS_disconnect(rdb->rdb_connection);
+
+	FREE(rdb);
+#endif
+
+	*handle = NULL;
+
+	return user_status[1];
+}
+
+
+STATUS GDS_DSQL_ALLOCATE(STATUS * user_status,
+						 RDB * db_handle, RSR * stmt_handle)
+{
+/**************************************
+ *
+ *	d s q l _ a l l o c a t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a statement handle.
+ *
+ **************************************/
+	RDB rdb;
+	RSR statement;
+	MSG_OP message;
+	HANDLE handle;
+
+/* Check and validate handles, etc. */
+
+	NULL_CHECK(stmt_handle, gds__bad_req_handle);
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+/* set up the packet for the other guy... */
+
+	message = (MSG_OP) CSS_alloc_message(type_msg, sizeof(struct msg_op));
+	message->msg_op_header.msg_type = MSG_allocate_stmt;
+	message->msg_op_handle = rdb->rdb_handle;
+
+	if (!get_response(rdb, message, user_status, &handle, 0, 0, 0)) {
+		*stmt_handle = statement = (RSR) ALLOC(type_rsr, sizeof(struct rsr));
+		statement->rsr_handle = handle;
+		statement->rsr_rdb = rdb;
+		statement->rsr_next = rdb->rdb_sql_requests;
+		rdb->rdb_sql_requests = statement;
+	}
+
+	return user_status[1];
+}
+
+
+STATUS GDS_DSQL_EXECUTE(STATUS * user_status,
+						RTR * rtr_handle,
+						RSR * stmt_handle,
+						USHORT blr_length,
+						UCHAR * blr,
+						USHORT msg_type, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic SQL statement.
+ *
+ **************************************/
+	RTR transaction;
+	RSR statement;
+	HANDLE handle;
+	MSG_SQLMSG message;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds__bad_req_handle);
+	if (transaction = *rtr_handle)
+		CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+
+/* set up the packet for the other guy... */
+
+	message =
+		(MSG_SQLMSG) CSS_alloc_message(type_msg,
+									   (int) (sizeof(struct msg_sqlmsg) +
+											  blr_length + msg_length));
+	message->msg_sqlmsg_header.msg_type = MSG_execute;
+	message->msg_sqlmsg_transaction =
+		(transaction) ? transaction->rtr_handle : NULL;
+	message->msg_sqlmsg_statement = statement->rsr_handle;
+	message->msg_sqlmsg_in_blr_length = blr_length;
+	MOVE(blr, message->msg_sqlmsg_data + msg_length, blr_length);
+	message->msg_sqlmsg_in_msg_type = msg_type;
+	message->msg_sqlmsg_in_msg_length = msg_length;
+	MOVE(msg, message->msg_sqlmsg_data, msg_length);
+
+	if (!get_response
+		(statement->rsr_rdb, message, user_status, &handle, 0, 0,
+		 0)) if (transaction && !handle) {
+			release_transaction(transaction);
+			*rtr_handle = NULL;
+		}
+		else if (!transaction && handle)
+			*rtr_handle = make_transaction(statement->rsr_rdb, handle);
+
+	return user_status[1];
+}
+
+
+STATUS GDS_DSQL_EXECUTE2(STATUS * user_status,
+						 RTR * rtr_handle,
+						 RSR * stmt_handle,
+						 USHORT in_blr_length,
+						 UCHAR * in_blr,
+						 USHORT in_msg_type,
+						 USHORT in_msg_length,
+						 UCHAR * in_msg,
+						 USHORT out_blr_length,
+						 UCHAR * out_blr,
+						 USHORT out_msg_type,
+						 USHORT out_msg_length, UCHAR * out_msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic SQL statement.
+ *
+ **************************************/
+	RTR transaction;
+	RSR statement;
+	HANDLE handle;
+	MSG_SQLMSG message;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds__bad_req_handle);
+	if (transaction = *rtr_handle)
+		CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+
+/* set up the packet for the other guy... */
+
+	message =
+		(MSG_SQLMSG) CSS_alloc_message(type_msg,
+									   (int) (sizeof(struct msg_sqlmsg) +
+											  in_blr_length + in_msg_length +
+											  out_blr_length));
+	message->msg_sqlmsg_header.msg_type = MSG_execute2;
+	message->msg_sqlmsg_transaction =
+		(transaction) ? transaction->rtr_handle : NULL;
+	message->msg_sqlmsg_statement = statement->rsr_handle;
+	message->msg_sqlmsg_in_blr_length = in_blr_length;
+	MOVE(in_blr, message->msg_sqlmsg_data + in_msg_length, in_blr_length);
+	message->msg_sqlmsg_in_msg_type = in_msg_type;
+	message->msg_sqlmsg_in_msg_length = in_msg_length;
+	MOVE(in_msg, message->msg_sqlmsg_data, in_msg_length);
+	message->msg_sqlmsg_out_blr_length = out_blr_length;
+	MOVE(out_blr, message->msg_sqlmsg_data + in_msg_length + in_blr_length,
+		 out_blr_length);
+	message->msg_sqlmsg_out_msg_type = out_msg_type;
+	message->msg_sqlmsg_out_msg_length = out_msg_length;
+
+	if (!get_response
+		(statement->rsr_rdb, message, user_status, &handle, out_msg_length,
+		 out_msg, 0))
+		if (transaction && !handle) {
+			release_transaction(transaction);
+			*rtr_handle = NULL;
+		}
+		else if (!transaction && handle)
+			*rtr_handle = make_transaction(statement->rsr_rdb, handle);
+
+	return user_status[1];
+}
+
+
+STATUS GDS_DSQL_EXECUTE_IMMED(STATUS * user_status,
+							  RDB * db_handle,
+							  RTR * rtr_handle,
+							  USHORT length,
+							  TEXT * string,
+							  USHORT dialect,
+							  USHORT blr_length,
+							  UCHAR * blr,
+							  USHORT msg_type, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e _ i m m e d i a t e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare and execute a statement.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	HANDLE handle;
+	MSG_EXNOW message;
+
+/* Check and validate handles, etc. */
+
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+	if (transaction = *rtr_handle)
+		CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+
+	if (!length)
+		length = strlen(string);
+
+/* set up the packet for the other guy... */
+
+	message = (MSG_EXNOW) CSS_alloc_message(type_msg,
+											(int) (sizeof(struct msg_exnow) +
+												   length + blr_length +
+												   msg_length));
+	message->msg_exnow_header.msg_type = MSG_execute_immediate;
+	message->msg_exnow_database = rdb->rdb_handle;
+	message->msg_exnow_transaction =
+		(transaction) ? transaction->rtr_handle : NULL;
+	message->msg_exnow_SQL_length = length;
+	MOVE(string, message->msg_exnow_data + length + blr_length, length);
+	message->msg_exnow_SQL_dialect = dialect;
+	message->msg_exnow_in_blr_length = blr_length;
+	MOVE(blr, message->msg_exnow_data + length, blr_length);
+	message->msg_exnow_in_msg_type = msg_type;
+	message->msg_exnow_in_msg_length = msg_length;
+	MOVE(msg, message->msg_exnow_data, msg_length);
+
+	if (!get_response(rdb, message, user_status, &handle, 0, 0, 0))
+		if (transaction && !handle) {
+			release_transaction(transaction);
+			*rtr_handle = NULL;
+		}
+		else if (!transaction && handle)
+			*rtr_handle = make_transaction(rdb, handle);
+
+	return user_status[1];
+}
+
+
+STATUS GDS_DSQL_EXECUTE_IMMED2(STATUS * user_status,
+							   RDB * db_handle,
+							   RTR * rtr_handle,
+							   USHORT length,
+							   TEXT * string,
+							   USHORT dialect,
+							   USHORT in_blr_length,
+							   UCHAR * in_blr,
+							   USHORT in_msg_type,
+							   USHORT in_msg_length,
+							   UCHAR * in_msg,
+							   USHORT out_blr_length,
+							   UCHAR * out_blr,
+							   USHORT out_msg_type,
+							   USHORT out_msg_length, UCHAR * out_msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e _ i m m e d i a t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare and execute a statement.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	HANDLE handle;
+	MSG_EXNOW message;
+
+/* Check and validate handles, etc. */
+
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+	if (transaction = *rtr_handle)
+		CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+
+	if (!length)
+		length = strlen(string);
+
+/* set up the packet for the other guy... */
+
+	message = (MSG_EXNOW) CSS_alloc_message(type_msg,
+											(int) (sizeof(struct msg_exnow) +
+												   length + in_blr_length +
+												   in_msg_length +
+												   out_blr_length));
+	message->msg_exnow_header.msg_type = MSG_execute_immediate2;
+	message->msg_exnow_database = rdb->rdb_handle;
+	message->msg_exnow_transaction =
+		(transaction) ? transaction->rtr_handle : NULL;
+	message->msg_exnow_SQL_length = length;
+	MOVE(string, message->msg_exnow_data + length + in_blr_length, length);
+	message->msg_exnow_SQL_dialect = dialect;
+	message->msg_exnow_in_blr_length = in_blr_length;
+	MOVE(in_blr, message->msg_exnow_data + length, in_blr_length);
+	message->msg_exnow_in_msg_type = in_msg_type;
+	message->msg_exnow_in_msg_length = in_msg_length;
+	MOVE(in_msg, message->msg_exnow_data, in_msg_length);
+	message->msg_exnow_out_blr_length = out_blr_length;
+	MOVE(out_blr,
+		 message->msg_exnow_data + length + in_blr_length + in_msg_length,
+		 out_blr_length);
+	message->msg_exnow_out_msg_type = out_msg_type;
+	message->msg_exnow_out_msg_length = out_msg_length;
+
+	if (!get_response
+		(rdb, message, user_status, &handle, out_msg_length, out_msg, 0))
+		if (transaction && !handle) {
+			release_transaction(transaction);
+			*rtr_handle = NULL;
+		}
+		else if (!transaction && handle)
+			*rtr_handle = make_transaction(rdb, handle);
+
+	return user_status[1];
+}
+
+
+STATUS GDS_DSQL_FETCH(STATUS * user_status,
+					  RSR * stmt_handle,
+					  USHORT blr_length,
+					  UCHAR * blr,
+					  USHORT msg_type, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *                  
+ *	d s q l _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor.
+ *
+ **************************************/
+	RSR statement;
+	MSG_SQLMSG message;
+	SLONG status;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds__bad_req_handle);
+
+/* set up the packet for the other guy... */
+
+	message =
+		(MSG_SQLMSG) CSS_alloc_message(type_msg,
+									   (int) (sizeof(struct msg_sqlmsg) +
+											  blr_length));
+	message->msg_sqlmsg_header.msg_type = MSG_fetch;
+	message->msg_sqlmsg_statement = statement->rsr_handle;
+	message->msg_sqlmsg_in_blr_length = blr_length;
+	MOVE(blr, message->msg_sqlmsg_data, blr_length);
+	message->msg_sqlmsg_in_msg_type = msg_type;
+	message->msg_sqlmsg_in_msg_length = msg_length;
+
+	get_response(statement->rsr_rdb, message, user_status, &status,
+				 msg_length, msg, 0);
+
+	if (status == 100)
+		return 100;
+
+	return user_status[1];
+}
+
+
+STATUS GDS_DSQL_FREE(STATUS * user_status, RSR * stmt_handle, USHORT option)
+{
+/**************************************
+ *
+ *	d s q l _ f r e e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release request for a Dynamic SQL statement
+ *
+ **************************************/
+	RDB rdb;
+	RSR statement;
+	MSG_OP message;
+	HANDLE handle;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds__bad_req_handle);
+	rdb = statement->rsr_rdb;
+
+	message = (MSG_OP) CSS_alloc_message(type_msg, sizeof(struct msg_op));
+	message->msg_op_header.msg_type = MSG_free_stmt;
+	message->msg_op_handle = statement->rsr_handle;
+	message->msg_op_level = option;
+
+	if (get_response(rdb, message, user_status, &handle, 0, 0, 0))
+		return user_status[1];
+
+	if (!(statement->rsr_handle = handle)) {
+		release_sql_request(statement);
+		*stmt_handle = NULL;
+	}
+
+	return user_status[1];
+}
+
+
+STATUS GDS_DSQL_INSERT(STATUS * user_status,
+					   RSR * stmt_handle,
+					   USHORT blr_length,
+					   UCHAR * blr,
+					   USHORT msg_type, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *                  
+ *	d s q l _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert next record into a dynamic SQL cursor.
+ *
+ **************************************/
+	RSR statement;
+	MSG_SQLMSG message;
+	SLONG status;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds__bad_req_handle);
+
+/* set up the packet for the other guy... */
+
+	message =
+		(MSG_SQLMSG) CSS_alloc_message(type_msg,
+									   (int) (sizeof(struct msg_sqlmsg) +
+											  blr_length + msg_length));
+	message->msg_sqlmsg_header.msg_type = MSG_insert;
+	message->msg_sqlmsg_statement = statement->rsr_handle;
+	message->msg_sqlmsg_in_blr_length = blr_length;
+	MOVE(blr, message->msg_sqlmsg_data + msg_length, blr_length);
+	message->msg_sqlmsg_in_msg_type = msg_type;
+	message->msg_sqlmsg_in_msg_length = msg_length;
+	MOVE(msg, message->msg_sqlmsg_data, msg_length);
+
+	return get_response(statement->rsr_rdb, message, user_status, 0, 0, 0, 0);
+}
+
+
+STATUS GDS_DSQL_PREPARE(STATUS * user_status,
+						RTR * rtr_handle,
+						RSR * stmt_handle,
+						USHORT length,
+						TEXT * string,
+						USHORT dialect,
+						USHORT item_length,
+						SCHAR * items, USHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	d s q l _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a dynamic SQL statement for execution.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	RSR statement;
+	MSG_PSTMT message;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds__bad_req_handle);
+	rdb = statement->rsr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+	if (transaction = *rtr_handle)
+		CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+
+	if (!length)
+		length = strlen(string);
+
+/* set up the packet for the other guy... */
+
+	message =
+		(MSG_PSTMT) CSS_alloc_message(type_msg,
+									  (int) (sizeof(struct msg_pstmt) +
+											 length + item_length));
+	message->msg_pstmt_header.msg_type = MSG_prepare_stmt;
+	message->msg_pstmt_transaction =
+		((transaction) ? transaction->rtr_handle : NULL);
+	message->msg_pstmt_statement = statement->rsr_handle;
+	message->msg_pstmt_SQL_length = length;
+	MOVE(string, message->msg_pstmt_data, length);
+	message->msg_pstmt_SQL_dialect = dialect;
+	message->msg_pstmt_item_length = item_length;
+	MOVE(items, message->msg_pstmt_data + length, item_length);
+	message->msg_pstmt_buffer_length = buffer_length;
+
+	return get_response(rdb, message, user_status, 0, buffer_length, buffer,
+						0);
+}
+
+
+STATUS GDS_DSQL_SET_CURSOR(STATUS * user_status,
+						   RSR * stmt_handle, TEXT * cursor, USHORT type)
+{
+/*****************************************
+ *
+ *	d s q l _ s e t _ c u r s o r
+ *
+ *****************************************
+ *
+ * Functional Description
+ *	Set a cursor name for a dynamic request.
+ *
+ *****************************************/
+	RSR statement;
+	USHORT length;
+	MSG_SETCUR message;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds__bad_req_handle);
+
+	length = name_length(cursor) + 1;
+
+/* set up the packet for the other guy... */
+
+	message =
+		(MSG_SETCUR) CSS_alloc_message(type_msg,
+									   (int) (sizeof(struct msg_setcur) +
+											  length - 1));
+	message->msg_setcur_header.msg_type = MSG_set_cursor;
+	message->msg_setcur_statement = statement->rsr_handle;
+	MOVE(cursor, message->msg_setcur_cursor, length);
+	message->msg_setcur_type = type;
+
+	return get_response(statement->rsr_rdb, message, user_status, 0, 0, 0, 0);
+}
+
+
+STATUS GDS_DSQL_SQL_INFO(STATUS * user_status,
+						 RSR * stmt_handle,
+						 SSHORT item_length,
+						 SCHAR * items, SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	d s q l _ s q l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on sql object.
+ *
+ **************************************/
+	RDB rdb;
+	RSR statement;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds__bad_req_handle);
+	rdb = statement->rsr_rdb;
+
+	return info(rdb, user_status, statement->rsr_handle, MSG_sql_info, 0,
+				item_length, items, buffer_length, buffer);
+}
+
+
+STATUS GDS_GET_SEGMENT(STATUS * user_status,
+					   RBL * blob_handle,
+					   USHORT * length, USHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	USHORT l;
+	UCHAR *p;
+	STATUS *v;
+	HANDLE state;
+	MSG_SEG message;
+
+/* Sniff out handles, etc, and find the various blocks. */
+
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, type_rbl, gds__bad_segstr_handle);
+	rdb = blob->rbl_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+/* Ask for a 1K chunk of blob and fill segment requests from it until its time to
+   get the next section.  In other words, get a bunch, pass it out piece by piece,
+   then when there isn't enough left, ask for more. */
+
+/* set up the status vector for the calls we're going to fake */
+
+	v = user_status;
+	*v++ = gds_arg_gds;
+	v[0] = 0;
+	v[1] = 0;
+	*length = 0;
+
+/* if we're already done, stop now */
+
+	if (blob->rbl_flags & RBL_eof) {
+		*v = gds__segstr_eof;
+		return user_status[1];
+	}
+
+/* Here's the loop, passing out data from our basket & refilling it.
+   Our buffer (described by the structure blob) is counted strings 
+   <count word> <string> <count word> <string>... */
+
+	while (TRUE) {
+		/* If there's data to be given away, give some away (p points to the local data) */
+
+		if (blob->rbl_length) {
+			p = blob->rbl_ptr;
+
+			/* If there was a fragment left over last time use it */
+
+			if (l = blob->rbl_fragment_length)
+				blob->rbl_fragment_length = 0;
+
+			/* otherwise pick up the count word as the length, & decrement the local length */
+
+			else {
+				l = *p++;
+				l += *p++ << 8;
+				blob->rbl_length -= 2;
+			}
+
+			/* Now check that what we've got fits. 
+			   If not, set up the fragment pointer and set the status vector */
+
+			if (l > buffer_length) {
+				blob->rbl_fragment_length = l - buffer_length;
+				l = buffer_length;
+				*v = gds__segment;
+			}
+
+			/* and, just for yucks, see if we're exactly using up the fragment
+			   part of a previous incomplete read - if so mark this as an incomplete read */
+
+			if (l == buffer_length &&
+				l == blob->rbl_length && (blob->rbl_flags & RBL_segment))
+				*v = gds__segment;
+
+			/* finally set up the return length, decrement the current length,
+			   copy the data, and indicate where to start next time. */
+
+			*length += l;
+			blob->rbl_length -= l;
+			buffer_length -= l;
+
+			if (l)
+				do
+					*buffer++ = *p++;
+				while (--l);
+
+			blob->rbl_ptr = p;
+
+			/* return if we've filled up the caller's buffer, or completed a segment */
+
+			if (!buffer_length ||
+				blob->rbl_length || !(blob->rbl_flags & RBL_segment)) break;
+		}
+
+		/* We're done with buffer.  If this was the last, we're done */
+
+		if (blob->rbl_flags & RBL_eof_pending) {
+			blob->rbl_flags |= RBL_eof;
+			*v = gds__segstr_eof;
+			break;
+		}
+
+		/* We need more data.  Ask for it politely */
+
+		message =
+			(MSG_SEG) CSS_alloc_message(type_msg, sizeof(struct msg_seg));
+		message->msg_seg_header.msg_type = MSG_get_segment_buf;
+		message->msg_seg_handle = blob->rbl_handle;
+		message->msg_seg_buffer_length = blob->rbl_buffer_length;
+
+		if (get_response
+			(rdb, message, user_status, &state, blob->rbl_buffer_length,
+			 blob->rbl_buffer, &blob->rbl_length))
+			return user_status[1];
+
+		blob->rbl_ptr = blob->rbl_buffer;
+		blob->rbl_flags &= ~RBL_segment;
+		if ((SLONG) state == 1)
+			blob->rbl_flags |= RBL_segment;
+		else if ((SLONG) state == 2)
+			blob->rbl_flags |= RBL_eof_pending;
+	}
+
+	return user_status[1];
+}
+
+
+STATUS GDS_GET_SLICE(STATUS * user_status,
+					 RDB * db_handle,
+					 RTR * rtr_handle,
+					 BID array_id,
+					 USHORT sdl_length,
+					 UCHAR * sdl,
+					 USHORT param_length,
+					 UCHAR * param,
+					 SLONG slice_length, UCHAR * slice, SLONG * return_length)
+{
+/**************************************
+ *
+ *	g d s _ g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	MSG_SLICE message;
+	HANDLE handle;
+	USHORT max_length, actual_length;
+
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+
+	if (!array_id->bid_relation_id && !array_id->bid_number) {
+		while (slice_length--)
+			*slice++ = 0;
+		*return_length = 0;
+		return SUCCESS;
+	}
+
+/* Since arrays can be more than 64K bytes and we limit central
+   server messages to that length, we must be able to retrieve
+   an array in pieces.  The fact of multiple messages will be
+   transparent to the user. */
+
+	handle = NULL;
+	*return_length = 0;
+
+	do {
+		message = (MSG_SLICE) CSS_alloc_message(type_msg,
+												(int) (sizeof
+													   (struct msg_slice) +
+													   sdl_length +
+													   param_length - 1));
+		message->msg_slice_header.msg_type = MSG_get_slice;
+		message->msg_slice_database = rdb->rdb_handle;
+		message->msg_slice_transaction = transaction->rtr_handle;
+		message->msg_slice_sdl_length = sdl_length;
+		message->msg_slice_param_length = param_length;
+		message->msg_slice_slice_length = slice_length;
+		MOVE(array_id, message->msg_slice_id, 8);
+		message->msg_slice_handle = handle;
+		MOVE(sdl, message->msg_slice_data, sdl_length);
+		MOVE(param, message->msg_slice_data + sdl_length, param_length);
+
+		max_length = MIN(slice_length, MAX_ARRAY_MESSAGE);
+		if (!get_response
+			(rdb, message, user_status, &handle, max_length, slice,
+			 &actual_length)) {
+			slice_length -= (SLONG) actual_length;
+			slice += actual_length;
+			*return_length += actual_length;
+		}
+
+		/* Once one message has been sent, don't bother to send
+		   the sdl or param arguments. */
+
+		sdl_length = param_length = 0;
+
+	} while (!user_status[1] && handle);
+
+	return user_status[1];
+}
+
+
+#ifdef GATEWAY
+#ifndef PIPE_SERVER
+STATUS CSI_mdi_attach_db(STATUS * user_status,
+						 SSHORT file_length, SCHAR * file_name, RDB * handle)
+{
+/**************************************
+ *
+ *	C S I _ m d i _ a t t a c h _ d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeeky clean database, uncorrupted by user data.
+ *
+ **************************************/
+	RDB rdb;
+	MSG_OP message;
+
+/* Check and validate handles, etc. */
+
+	rdb = *handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	message =
+		(MSG_OP) CSS_alloc_message(type_msg,
+								   (int) (sizeof(struct msg_op) +
+										  file_length));
+	message->msg_op_header.msg_type = MSG_mdi_attach_db;
+	message->msg_op_handle = rdb->rdb_handle;
+	message->msg_op_length = file_length;
+	MOVE(file_name, message->msg_op_data, file_length);
+
+	return get_response(rdb, message, user_status, 0, 0, 0, 0);
+}
+#endif
+#endif
+
+
+STATUS GDS_OPEN_BLOB2(STATUS * user_status,
+					  RDB * db_handle,
+					  RTR * rtr_handle,
+					  RBL * blob_handle,
+					  BID blob_id, USHORT bpb_length, UCHAR * bpb)
+{
+/**************************************
+ *
+ *	g d s _ o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	RBL blob;
+	HANDLE handle;
+	MSG_BLOB message;
+
+	NULL_CHECK(blob_handle, gds__bad_segstr_handle);
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+
+	message =
+		(MSG_BLOB) CSS_alloc_message(type_msg,
+									 (int) (sizeof(struct msg_blob) +
+											bpb_length - 1));
+	message->msg_blob_header.msg_type = MSG_open_blob;
+	message->msg_blob_database = rdb->rdb_handle;
+	message->msg_blob_transaction = transaction->rtr_handle;
+	message->msg_blob_bpb_length = bpb_length;
+	MOVE(bpb, message->msg_blob_bpb, bpb_length);
+	MOVE(blob_id, message->msg_blob_id, 8);
+
+	if (!get_response(rdb, message, user_status, &handle, 8, blob_id, 0)) {
+		*blob_handle = blob =
+			(RBL) ALLOC(type_rbl, sizeof(struct rbl) + BLOB_LENGTH);
+		blob->rbl_handle = handle;
+		blob->rbl_buffer_length = BLOB_LENGTH;
+		blob->rbl_rdb = rdb;
+		blob->rbl_rtr = transaction;
+		blob->rbl_ptr = blob->rbl_buffer;
+		blob->rbl_next = transaction->rtr_blobs;
+		transaction->rtr_blobs = blob;
+	}
+
+	return user_status[1];
+}
+
+
+#ifdef PIPE_SERVER
+STATUS GDS_OPEN_BLOB(STATUS * user_status,
+					 RDB * db_handle,
+					 RTR * rtr_handle, RBL * blob_handle, BID blob_id)
+{
+/**************************************
+ *
+ *	g d s _ o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+
+	return GDS_OPEN_BLOB2(user_status, db_handle, rtr_handle, blob_handle,
+						  blob_id, 0, NULL);
+}
+#endif
+
+
+STATUS GDS_PREPARE(STATUS * user_status,
+				   RTR * rtr_handle, USHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First phase of a two
+ *	phase commit.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	MSG_OP message;
+
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+	rdb = transaction->rtr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	message =
+		(MSG_OP) CSS_alloc_message(type_msg,
+								   (int) (sizeof(struct msg_op) +
+										  buffer_length));
+	message->msg_op_header.msg_type = MSG_prepare;
+	message->msg_op_handle = transaction->rtr_handle;
+	message->msg_op_length = buffer_length;
+	MOVE(buffer, message->msg_op_data, buffer_length);
+
+	return get_response(rdb, message, user_status, 0, 0, 0, 0);
+}
+
+
+STATUS GDS_PUT_SEGMENT(STATUS * user_status,
+					   RBL * blob_handle,
+					   USHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	USHORT l;
+	UCHAR *p;
+
+/* Sniff out handles, etc, and find the various blocks. */
+
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, type_rbl, gds__bad_segstr_handle);
+	rdb = blob->rbl_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+/* set up the status vector for the calls we're going to fake */
+
+	user_status[0] = gds_arg_gds;
+	user_status[1] = 0;
+	user_status[2] = gds_arg_end;
+
+/* If the buffer is too full to even hold the length of the incoming
+   segment, flush out the old buffer.  If the segment is too large
+   to fit into the blob buffer, just send it as a single segment. */
+
+	p = blob->rbl_ptr;
+	l = blob->rbl_buffer_length - (p - blob->rbl_buffer);
+
+	if (buffer_length + 2 > l) {
+		if (blob->rbl_ptr > blob->rbl_buffer)
+			send_blob(user_status, blob, 0, NULL);
+		if (buffer_length + 2 > blob->rbl_buffer_length)
+			return send_blob(user_status, blob, buffer_length, buffer);
+		p = blob->rbl_buffer;
+	}
+
+/* Move segment length and data into blob buffer */
+
+	*p++ = buffer_length;
+	*p++ = buffer_length >> 8;
+
+	if (buffer_length)
+		do
+			*p++ = *buffer++;
+		while (--buffer_length);
+
+	blob->rbl_ptr = p;
+
+	return user_status[1];
+}
+
+
+STATUS GDS_PUT_SLICE(STATUS * user_status,
+					 RDB * db_handle,
+					 RTR * rtr_handle,
+					 BID array_id,
+					 USHORT sdl_length,
+					 UCHAR * sdl,
+					 USHORT param_length,
+					 UCHAR * param, SLONG slice_length, UCHAR * slice)
+{
+/**************************************
+ *
+ *	g d s _ p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	MSG_SLICE message;
+	HANDLE handle;
+	USHORT length, use_sdl_length, use_param_length;
+
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+
+/* Since arrays can be more than 64K bytes and we limit central
+   server messages to that length, we must be able to send
+   an array in pieces.  The fact of multiple messages will be
+   transparent to the user. */
+
+	handle = NULL;
+
+	do {
+		if ((length = MIN(slice_length, MAX_ARRAY_MESSAGE)) < slice_length)
+			use_sdl_length = use_param_length = 0;
+		else {
+			use_sdl_length = sdl_length;
+			use_param_length = param_length;
+		}
+
+		message = (MSG_SLICE) CSS_alloc_message(type_msg,
+												(int) (sizeof
+													   (struct msg_slice) +
+													   use_sdl_length +
+													   use_param_length +
+													   length - 1));
+		message->msg_slice_header.msg_type = MSG_put_slice;
+		message->msg_slice_database = rdb->rdb_handle;
+		message->msg_slice_transaction = transaction->rtr_handle;
+		message->msg_slice_sdl_length = use_sdl_length;
+		message->msg_slice_param_length = use_param_length;
+		message->msg_slice_slice_length = slice_length;
+		MOVE(array_id, message->msg_slice_id, 8);
+		message->msg_slice_handle = handle;
+		MOVE(sdl, message->msg_slice_data, use_sdl_length);
+		MOVE(param, message->msg_slice_data + use_sdl_length,
+			 use_param_length);
+
+		MOVE(slice,
+			 message->msg_slice_data + use_sdl_length + use_param_length,
+			 length);
+
+		if (!get_response(rdb, message, user_status, &handle, 8, array_id, 0)) {
+			slice_length -= (SLONG) length;
+			slice += length;
+		}
+
+	} while (!user_status[1] && handle);
+
+	return user_status[1];
+}
+
+
+STATUS GDS_QUE_EVENTS(STATUS * user_status,
+					  RDB * handle,
+					  SLONG * id,
+					  SSHORT length, UCHAR * items, void (*ast) (), void *arg)
+{
+/**************************************
+ *
+ *	g d s _ $ q u e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que a request for event notification.
+ *
+ **************************************/
+	MSG_EVENT message;
+	MSG_OP connect;
+	MSG_RESP response;
+	RDB rdb;
+
+	rdb = *handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	if (!rdb->rdb_connection2) {
+		rdb->rdb_connection2 = CSS_connect(rdb->rdb_server);
+		connect =
+			(MSG_OP) CSS_alloc_message(type_msg,
+									   (int) (sizeof(struct msg_op) +
+											  length));
+		connect->msg_op_header.msg_type = MSG_alt_connection;
+		connect->msg_op_handle = rdb->rdb_handle;
+		CSS_put_message(rdb->rdb_connection2, connect, 0);
+		response = CSS_get_message(rdb->rdb_connection2, 0, 0);
+		CSS_free_global(response);
+#ifndef GATEWAY
+#ifdef MULTI_THREAD
+		gds__thread_start(event_thread, rdb->rdb_connection2);
+#else
+		ISC_signal(EVENT_SIGNAL, event_handler, rdb->rdb_connection2);
+#endif
+#endif
+	}
+
+	message =
+		(MSG_EVENT) CSS_alloc_message(type_msg,
+									  (int) (sizeof(struct msg_event) +
+											 length));
+	message->msg_event_header.msg_type = MSG_que_events;
+	message->msg_event_database = rdb->rdb_handle;
+	message->msg_event_ast = ast;
+	message->msg_event_arg = arg;
+	message->msg_event_length = length;
+	MOVE(items, message->msg_event_data, length);
+
+	return get_response(rdb, message, user_status, id, 0, 0, 0);
+}
+
+
+#ifdef GATEWAY
+#ifndef PIPE_SERVER
+STATUS CSI_query_connect(STATUS * user_status,
+						 SSHORT file_length,
+						 SCHAR * file_name,
+						 RDB * handle,
+						 TEXT * connect_method, SSHORT * connect_length)
+{
+/**************************************
+ *
+ *	C S I _ q u e r y _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attach to a central server and return the "connection method".
+ *
+ **************************************/
+	RDB rdb;
+
+	NULL_CHECK(handle, gds__bad_db_handle);
+
+	if (rdb = init(user_status, MSG_query_connect,
+				   file_name, file_length, 0, 0, file_name,
+				   PRB_server_t1, PRB_client_t1, connect_method,
+				   connect_length)) *handle = rdb;
+
+	return user_status[1];
+}
+#endif
+#endif
+
+
+STATUS GDS_RECEIVE(STATUS * user_status,
+				   RRQ * req_handle,
+				   USHORT msg_type,
+				   USHORT msg_length, UCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	g d s _ R E C E I V E
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	RRQ request;
+	RTR transaction;
+	RDB rdb;
+	MSG_MSG message;
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_rrq, gds__bad_req_handle);
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	message = (MSG_MSG) CSS_alloc_message(type_msg, sizeof(struct msg_msg));
+	message->msg_msg_header.msg_type = MSG_receive;
+	message->msg_msg_request = request->rrq_handle;
+	message->msg_msg_length = msg_length;
+	message->msg_msg_level = level;
+	message->msg_msg_type = msg_type;
+
+	return get_response(rdb, message, user_status, 0, msg_length, msg, 0);
+}
+
+
+STATUS GDS_RECONNECT(STATUS * user_status,
+					 RDB * db_handle,
+					 RTR * rtr_handle, SSHORT length, UCHAR * id)
+{
+/**************************************
+ *
+ *	G D S _ R E C O N N E C T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to a transaction in limbo.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	HANDLE handle;
+	MSG_OP message;
+
+	NULL_CHECK(rtr_handle, gds__bad_trans_handle);
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	message =
+		(MSG_OP) CSS_alloc_message(type_msg,
+								   (int) (sizeof(struct msg_op) + length));
+	message->msg_op_header.msg_type = MSG_reconnect;
+	message->msg_op_handle = rdb->rdb_handle;
+	message->msg_op_length = length;
+	MOVE(id, message->msg_op_data, length);
+
+	if (!get_response(rdb, message, user_status, &handle, 0, 0, 0))
+		*rtr_handle = make_transaction(rdb, handle);
+
+	return user_status[1];
+}
+
+
+STATUS GDS_RELEASE_REQUEST(STATUS * user_status, RRQ * req_handle)
+{
+/**************************************
+ *
+ *	g d s _ R E L E A S E _ R E Q U E S T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request.
+ *
+ **************************************/
+	RDB rdb;
+	RRQ request;
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_rrq, gds__bad_req_handle);
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	if (!release_object(rdb, MSG_release, request->rrq_handle, user_status)) {
+		release_request(request);
+		*req_handle = NULL;
+	}
+
+	return user_status[1];
+}
+
+
+STATUS GDS_REQUEST_INFO(STATUS * user_status,
+						RRQ * request,
+						USHORT level,
+						SSHORT item_length,
+						UCHAR * items, SSHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ r e q u e s t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on request object.
+ *
+ **************************************/
+	RDB rdb;
+
+	CHECK_HANDLE((*request), type_rrq, gds__bad_req_handle);
+	rdb = (*request)->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	return info(rdb, user_status, (*request)->rrq_handle, MSG_request_info,
+				level, item_length, items, buffer_length, buffer);
+}
+
+
+STATUS GDS_ROLLBACK(STATUS * user_status, RTR * rtr_handle)
+{
+/**************************************
+ *
+ *	g d s _ R O L L B A C K
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+	rdb = transaction->rtr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	if (!release_object
+		(rdb, MSG_rollback, transaction->rtr_handle, user_status)) {
+		release_transaction(transaction);
+		*rtr_handle = NULL;
+	}
+
+	return user_status[1];
+}
+
+
+STATUS GDS_SEND(STATUS * user_status,
+				RRQ * req_handle,
+				USHORT msg_type, USHORT msg_length, UCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	g d s _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	RRQ request;
+	RTR transaction;
+	RDB rdb;
+	MSG_MSG message;
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_rrq, gds__bad_req_handle);
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	message =
+		(MSG_MSG) CSS_alloc_message(type_msg,
+									(int) (sizeof(struct msg_msg) +
+										   msg_length));
+	message->msg_msg_header.msg_type = MSG_send;
+	message->msg_msg_request = request->rrq_handle;
+	message->msg_msg_length = msg_length;
+	message->msg_msg_level = level;
+	message->msg_msg_type = msg_type;
+	MOVE(msg, message->msg_msg_data, msg_length);
+
+	return get_response(rdb, message, user_status, 0, 0, 0, 0);
+}
+
+
+STATUS GDS_SEEK_BLOB(STATUS * user_status,
+					 RBL * blob_handle,
+					 SSHORT mode, SLONG offset, SLONG * result)
+{
+/**************************************
+ *
+ *	g d s _ s e e k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	MSG_SEEK message;
+
+/* Sniff out handles, etc, and find the various blocks. */
+
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, type_rbl, gds__bad_segstr_handle);
+	rdb = blob->rbl_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	message = (MSG_SEEK) CSS_alloc_message(type_msg, sizeof(struct msg_seek));
+	message->msg_seek_header.msg_type = MSG_seek_blob;
+	message->msg_seek_handle = blob->rbl_handle;
+	message->msg_seek_mode = mode;
+	message->msg_seek_offset = offset;
+
+	return get_response(rdb, message, user_status, 0, sizeof(*result), result,
+						0);
+}
+
+
+
+STATUS GDS_START_AND_SEND(STATUS * user_status,
+						  RRQ * req_handle,
+						  RTR * rtr_handle,
+						  USHORT msg_type,
+						  USHORT msg_length, UCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	g d s _ s t a r t _ a n d _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	RRQ request;
+	RTR transaction;
+	RDB rdb;
+	MSG_MSG message;
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_rrq, gds__bad_req_handle);
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	message =
+		(MSG_MSG) CSS_alloc_message(type_msg,
+									(int) (sizeof(struct msg_msg) +
+										   msg_length));
+	message->msg_msg_header.msg_type = MSG_start_and_send;
+	message->msg_msg_request = request->rrq_handle;
+	message->msg_msg_transaction = transaction->rtr_handle;
+	message->msg_msg_length = msg_length;
+	message->msg_msg_level = level;
+	message->msg_msg_type = msg_type;
+	MOVE(msg, message->msg_msg_data, msg_length);
+
+	return get_response(rdb, message, user_status, 0, 0, 0, 0);
+}
+
+
+STATUS GDS_START(STATUS * user_status,
+				 register RRQ * req_handle,
+				 register RTR * rtr_handle, SSHORT level)
+{
+/**************************************
+ *
+ *	g d s _ S T A R T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	RRQ request;
+	RTR transaction;
+	RDB rdb;
+	MSG_MSG message;
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_rrq, gds__bad_req_handle);
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	message = (MSG_MSG) CSS_alloc_message(type_msg, sizeof(struct msg_msg));
+	message->msg_msg_header.msg_type = MSG_start_request;
+	message->msg_msg_request = request->rrq_handle;
+	message->msg_msg_transaction = transaction->rtr_handle;
+	message->msg_msg_level = level;
+
+	return get_response(rdb, message, user_status, 0, 0, 0, 0);
+}
+
+
+STATUS GDS_START_TRANSACTION(STATUS * user_status,
+							 RTR * tra_handle, SSHORT count, ...)
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+	TEB tebs[16], *teb, *end;
+	va_list ptr;
+
+	teb = tebs;
+	end = teb + count;
+	VA_START(ptr, count);
+
+	for (; teb < end; teb++) {
+		teb->teb_database = va_arg(ptr, RDB *);
+		teb->teb_tpb_length = va_arg(ptr, int);
+		teb->teb_tpb = va_arg(ptr, UCHAR *);
+	}
+
+	return GDS_START_MULTIPLE(user_status, tra_handle, count, tebs);
+}
+
+
+STATUS GDS_TRANSACT_REQUEST(STATUS * user_status,
+							RDB * db_handle,
+							RTR * tra_handle,
+							USHORT blr_length,
+							UCHAR * blr,
+							USHORT in_msg_length,
+							UCHAR * in_msg,
+							USHORT out_msg_length, UCHAR * out_msg)
+{
+/**************************************
+ *
+ *	i s c _ t r a n s a c t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a stored procedure.
+ *
+ **************************************/
+	RTR transaction;
+	RDB rdb;
+	MSG_TRRQ message;
+	HANDLE handle;
+
+/* Check and validate handles, etc. */
+
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+	if (transaction = *tra_handle)
+		CHECK_HANDLE(transaction, type_rtr, gds__bad_trans_handle);
+
+/* set up the packet for the other guy... */
+
+	message =
+		(MSG_TRRQ) CSS_alloc_message(type_msg, blr_length + in_msg_length);
+	message->msg_trrq_header.msg_type = MSG_transact_request;
+	message->msg_trrq_database = rdb->rdb_handle;
+	message->msg_trrq_transaction =
+		(transaction) ? transaction->rtr_handle : NULL;
+	message->msg_trrq_blr_length = blr_length;
+	MOVE(blr, message->msg_trrq_data, blr_length);
+	message->msg_trrq_in_msg_length = in_msg_length;
+	MOVE(in_msg, message->msg_trrq_data + blr_length, in_msg_length);
+	message->msg_trrq_out_msg_length = out_msg_length;
+
+	if (!get_response
+		(rdb, message, user_status, &handle, out_msg_length, out_msg, 0))
+		if (transaction && !handle) {
+			release_transaction(transaction);
+			*tra_handle = NULL;
+		}
+		else if (!transaction && handle)
+			*tra_handle = make_transaction(rdb, handle);
+
+	return user_status[1];
+}
+
+
+STATUS GDS_TRANSACTION_INFO(STATUS * user_status,
+							RTR * transaction,
+							SSHORT item_length,
+							UCHAR * items,
+							SSHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ t r a n s a c t i o n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on transaction object.
+ *
+ **************************************/
+	RDB rdb;
+
+	CHECK_HANDLE((*transaction), type_rtr, gds__bad_trans_handle);
+	rdb = (*transaction)->rtr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	return info(rdb, user_status, (*transaction)->rtr_handle,
+				MSG_transaction_info, 0, item_length, items, buffer_length,
+				buffer);
+}
+
+
+STATUS GDS_UNWIND(STATUS * user_status, RRQ * req_handle, SSHORT level)
+{
+/**************************************
+ *
+ *	g d s _ U N W I N D
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a running request.
+ *
+ **************************************/
+	RDB rdb;
+	RRQ request;
+	MSG_OP message;
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_rrq, gds__bad_req_handle);
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds__bad_db_handle);
+
+	user_status[0] = gds_arg_gds;
+	user_status[1] = 0;
+	user_status[2] = 0;
+
+#ifdef GATEWAY
+#ifndef PIPE_SERVER
+	message = (MSG_OP) CSS_alloc_message(type_msg, sizeof(struct msg_op));
+	message->msg_op_header.msg_type = MSG_unwind;
+	message->msg_op_handle = request->rrq_handle;
+	message->msg_op_level = level;
+
+	get_response(rdb, message, user_status, 0, 0, 0, 0);
+#endif
+#endif
+
+	return user_status[1];
+}
+
+
+#ifndef MULTI_THREAD
+static void event_handler( PTR connection)
+{
+/**************************************
+ *
+ *	e v e n t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait for something to happen.
+ *
+ **************************************/
+	MSG_EVENT message;
+
+	if (!(message = (MSG_EVENT) CSS_get_message(connection, 0, -1)) ||
+		message->msg_event_header.msg_type != MSG_event)
+		return;
+
+	(*message->msg_event_ast) (message->msg_event_arg,
+							   message->msg_event_length,
+							   message->msg_event_data);
+
+	CSS_free_global(message);
+}
+#endif
+
+
+#ifdef MULTI_THREAD
+static void event_thread( PTR connection)
+{
+/**************************************
+ *
+ *	e v e n t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait for something to happen.
+ *
+ **************************************/
+	MSG_EVENT message;
+
+	THREAD_ENTER;
+
+	for (;;) {
+		if (!(message = (MSG_EVENT) CSS_get_message(connection, 0, 0)) ||
+			message->msg_event_header.msg_type != MSG_event)
+			break;
+		(*message->msg_event_ast) (message->msg_event_arg,
+								   message->msg_event_length,
+								   message->msg_event_data);
+		CSS_free_global(message);
+	}
+}
+#endif
+
+
+static STATUS get_response(
+						   RDB rdb,
+						   MSG message,
+						   STATUS * user_status,
+						   HANDLE * handle,
+USHORT buffer_length, UCHAR * buffer, USHORT * return_length)
+{
+/**************************************
+ *
+ *	g e t _ r e s p o n s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send message to server, await and process reply.
+ *
+ **************************************/
+	MSG_RESP response;
+
+	if (CSS_put_message(rdb->rdb_connection, message, 0))
+		response = CSS_get_message(rdb->rdb_connection, 0, 0);
+	else
+		response = NULL;
+
+	return process_response(response, user_status, handle, buffer_length,
+							buffer, return_length);
+}
+
+
+static STATUS handle_error( STATUS * user_status, STATUS code)
+{
+/**************************************
+ *
+ *	h a n d l e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An invalid handle has been passed in.  If there is a user status
+ *	vector, make it reflect the error.  If not, emulate the routine
+ *	"error" and abort.
+ *
+ **************************************/
+	STATUS local_status[20];
+	STATUS *vector;
+
+	vector = (user_status) ? user_status : local_status;
+	vector[0] = 1;
+	vector[1] = code;
+	vector[2] = 0;
+
+	return vector[1];
+}
+
+
+static STATUS info(
+				   RDB rdb,
+				   STATUS * user_status,
+				   HANDLE handle,
+				   MSG_T type,
+				   USHORT level,
+USHORT item_length, UCHAR * items, USHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generic information call.
+ *
+ **************************************/
+	MSG_INFO message;
+
+	message =
+		(MSG_INFO) CSS_alloc_message(type_msg,
+									 (int) (sizeof(struct msg_info) +
+											item_length));
+	message->msg_info_header.msg_type = type;
+	message->msg_info_handle = handle;
+	message->msg_info_level = level;
+	message->msg_info_length = item_length;
+	message->msg_info_buffer_length = buffer_length;
+	MOVE(items, message->msg_info_data, item_length);
+
+	return get_response(rdb, message, user_status, 0, buffer_length, buffer,
+						0);
+}
+
+
+#ifndef PIPE_SERVER
+static RDB init(
+				STATUS * user_status,
+				MSG_T type,
+				UCHAR * file_name,
+				USHORT file_length,
+				UCHAR * dpb,
+USHORT dpb_length,
+TEXT * expanded_filename,
+USHORT server_flags,
+USHORT client_flags, TEXT * buffer, USHORT * buffer_length)
+{
+/**************************************
+ *
+ *	i n i t		( c e n t r a l _ s e r v e r )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for database access.  First call from both CREATE and
+ *	OPEN.
+ *
+ **************************************/
+	MSG_ATT message;
+	MSG_RESP response;
+	RDB rdb;
+	SRQ *que;
+	PRB process;
+	PTR connection, server, client;
+	CSH CSS_header;
+	HANDLE handle;
+	USHORT expanded_length, length;
+	SLONG process_numbers[256], *ptr, *end;
+
+	if (!CSS_init(user_status, FALSE)) {
+		*user_status++ = gds_arg_gds;
+		*user_status++ = gds__unavailable;
+		*user_status = 0;
+		return NULL;
+	}
+
+	if (!file_length)
+		file_length = strlen(file_name);
+
+	expanded_length = strlen(expanded_filename);
+
+	client_flags |= PRB_client;
+	server_flags |= PRB_server;
+
+	client = CSS_create_process(client_flags);
+
+/* Search for potential cooperative server processes.  Keep track of their
+   server numbers until later. */
+
+	CSS_header = ACQUIRE;
+	CSS_probe_processes();
+	end = process_numbers;
+
+	QUE_LOOP(CSS_header->csh_processes, que) {
+		process = (PRB) ((UCHAR *) que - OFFSET(PRB, prb_processes));
+		if (client != REL_PTR(process) &&
+			(process->prb_flags & server_flags) == server_flags &&
+			process->prb_protocol_version == CSI_PROTOCOL_VERSION)
+			*end++ = process->prb_process_number;
+	}
+
+	RELEASE;
+
+/* We've got the candidate servers numbers.  Now go back and talk to them */
+
+	for (ptr = process_numbers; ptr < end; ptr++) {
+		if (server = CSS_find_process(*ptr)) {
+			connection = CSS_connect(server);
+			length =
+				sizeof(struct msg_att) + file_length + expanded_length +
+				dpb_length;
+			message = (MSG_ATT) CSS_alloc_message(type_msg, (int) length);
+			message->msg_att_header.msg_type = type;
+			message->msg_att_dpb_length = dpb_length;
+			message->msg_att_file_length = file_length;
+			message->msg_att_expanded_length = expanded_length;
+			MOVE(file_name, message->msg_att_data, file_length);
+			MOVE(expanded_filename, message->msg_att_data + file_length,
+				 expanded_length);
+			MOVE(dpb, message->msg_att_data + file_length + expanded_length,
+				 dpb_length);
+			if (CSS_put_message(connection, message, 0)
+				&& (response = CSS_get_message(connection, 0, 0)) &&
+#ifdef GATEWAY
+				!process_response(response, user_status, &handle,
+								  *buffer_length, buffer, buffer_length))
+#else
+				!process_response(response, user_status, &handle, 0, 0, 0))
+#endif
+			{
+				rdb = (RDB) ALLOC(type_rdb, sizeof(struct rdb));
+				rdb->rdb_handle = handle;
+				rdb->rdb_connection = connection;
+				rdb->rdb_server = server;
+				return rdb;
+			}
+			CSS_disconnect(connection);
+		}
+	}
+
+	return NULL;
+}
+#endif
+
+
+#ifdef PIPE_SERVER
+#ifndef GATEWAY
+static RDB init(
+				STATUS * user_status,
+				MSG_T type,
+				UCHAR * file_name,
+				USHORT file_length,
+				UCHAR * dpb,
+USHORT dpb_length,
+TEXT * expanded_filename,
+USHORT server_flags,
+USHORT client_flags, TEXT * buffer, USHORT * buffer_length)
+{
+/**************************************
+ *
+ *	i n i t		( p i p e _ s e r v e r )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for database access.  First call from both CREATE and
+ *	OPEN.
+ *
+ **************************************/
+	MSG_ATT message;
+	MSG_RESP response;
+	RDB rdb;
+	SRQ *que;
+	PRB process;
+	PTR connection, client;
+	CSH CSS_header;
+	HANDLE handle;
+	USHORT expanded_length, length;
+	TEXT local_expanded[256], pipe_xl[64], version[16], var_name[16];
+	SLONG status, len, itemnums[4], items[4], isc_level, var_type;
+	STATUS local_status[20];
+
+/* Assume that we don't want a PIPE. */
+
+	user_status[0] = gds_arg_gds;
+	user_status[1] = gds__unavailable;
+	user_status[2] = 0;
+
+/* If the user has explicitly asked for a local attachment, skip the pipe */
+
+	if (!
+		(length =
+		 strncmp(expanded_filename, AM_SENTINEL, sizeof(AM_SENTINEL) - 1))
+|| !CSS_init(local_status, FALSE, 0)) {
+		if (!length) {
+			/* Re-expand the filename, minus the sentinel */
+
+			strcpy(local_expanded,
+				   expanded_filename + sizeof(AM_SENTINEL) - 1);
+			ISC_expand_filename(local_expanded, strlen(local_expanded),
+								expanded_filename);
+		}
+		return NULL;
+	}
+
+/* See if the user explicitly requested a pipe attachment! */
+
+	if (!strncmp(expanded_filename, PIPE_SENTINEL, sizeof(PIPE_SENTINEL) - 1)) {
+		/* Re-expand the filename, minus the sentinel */
+
+		expanded_filename += sizeof(PIPE_SENTINEL) - 1;
+		ISC_expand_filename(expanded_filename, strlen(expanded_filename),
+							local_expanded);
+		expanded_filename = local_expanded;
+	}
+	else {
+		/* Don't use a pipe for non-interactive attachments */
+
+		HPCIGETVAR("HPINTERACTIVE", &status, VAR_BOOL_VALUE, &isc_level,
+				   VAR_TYPE, &var_type);
+		if (!status && var_type == VAR_BOOL_VALUE && isc_level == 0)
+			return NULL;
+
+		/* Also don't use a pipe when variable ISC_LOCAL[ISC_UDCLVL] is true */
+
+		HPCIGETVAR("ISC_UDCLVL", &status, VAR_INT_VALUE, &isc_level, VAR_TYPE,
+				   &var_type);
+		if (!status && var_type == VAR_INT_VALUE) {
+			sprintf(var_name, "ISC_LOCAL%d", isc_level);
+			HPCIGETVAR(var_name, &status, VAR_BOOL_VALUE, &isc_level,
+					   VAR_TYPE, &var_type);
+			if (!status && var_type == VAR_BOOL_VALUE && isc_level == 1)
+				return NULL;
+		}
+	}
+
+	if (!file_length)
+		file_length = strlen(file_name);
+
+	expanded_length = strlen(expanded_filename);
+	client_flags |= PRB_client;
+	client = CSS_create_process(client_flags);
+
+/* Check to see if child process has already been created.
+   If so, make sure it is still alive. */
+
+	if (child_pin) {
+		GETPROCINFO(child_pin);
+		if (ccode() != CCE)
+			child_pin = 0;
+	}
+
+/* Create a child process if one doesn't yet exist. */
+
+	if (child_pin)
+		connection = CSS_connect(pipe_server);
+	else {
+		/* Create a program fid and an XL fid for the CREATEPROCESS call */
+
+		version[0] = 0;
+		HPCIGETVAR("ISC_UDCLVL", &status, VAR_INT_VALUE, &isc_level, VAR_TYPE,
+				   &var_type);
+		if (!status && var_type == VAR_INT_VALUE) {
+			sprintf(var_name, "ISC_VERS%d", isc_level);
+			HPCIGETVAR(var_name, &status, VAR_STR_VALUE, version, VAR_LENGTH,
+					   &len);
+			if (!status && len)
+				version[len] = 0;
+		}
+
+		sprintf(pipe_program, GDS_PIPE, version);
+
+		HPMYFILE(pipe_xl, &status, &len);
+		if (!status && len
+			&& !strncmp(pipe_xl, " GDSLIB.", sizeof(" GDSLIB.") - 1))
+			pipe_xl[len - 1] = 0;
+		else
+			pipe_xl[0] = pipe_xl[1] = 0;
+
+		/* Create an item list for CREATEPROCESS.  The XL items must be at the
+		   end because if we can't lookup the XL name we don't pass one in. */
+
+		itemnums[0] = CP_ACT;
+		items[0] = 0;
+		itemnums[1] = pipe_xl[0] ? CP_XL : ITM_END;
+		items[1] = (SLONG) & pipe_xl[1];
+		itemnums[2] = CP_XLLEN;
+		items[2] = strlen(items[1]);
+		itemnums[3] = ITM_END;
+
+		CREATEPROCESS(&status, &child_pin, pipe_program, itemnums, items);
+		if (ccode() == CCL) {
+			*user_status++ = gds_arg_gds;
+			*user_status++ = gds__sys_request;
+			*user_status++ = gds_arg_string;
+			*user_status++ = (STATUS) "CREATEPROCESS";
+			*user_status++ = gds_arg_string;
+			*user_status++ = (STATUS) pipe_program;
+			*user_status = gds_arg_end;
+			return NULL;
+		}
+
+		gds__register_cleanup(exit_handler, 0);
+
+		/* Wait for a message from our dear child. */
+
+		while (!(response = CSS_get_message((SLONG) 0, 0, 10))) {
+			GETPROCINFO(child_pin);
+			if (ccode() != CCE) {
+				child_pin = 0;
+				return NULL;
+			}
+		}
+
+		connection = response->msg_resp_header.msg_connection;
+		CSS_free_global(response);
+
+		/* Search for the child process. */
+
+		CSS_header = ACQUIRE;
+		pipe_server = 0;
+		pipe_util_cnct = 0;
+
+		QUE_LOOP(CSS_header->csh_processes, que) {
+			process = (PRB) ((UCHAR *) que - OFFSET(PRB, prb_processes));
+			if (client != REL_PTR(process) &&
+				process->prb_protocol_version == CSI_PROTOCOL_VERSION &&
+				process->prb_process_id == child_pin) {
+				pipe_server = REL_PTR(process);
+				break;
+			}
+		}
+
+		RELEASE;
+	}
+
+/* We've got a candidate server.  Now go back and talk to it. */
+
+	if (pipe_server) {
+		length =
+			sizeof(struct msg_att) + file_length + expanded_length +
+			dpb_length;
+		message = (MSG_ATT) CSS_alloc_message(type_msg, (int) length);
+		message->msg_att_header.msg_type = type;
+		message->msg_att_dpb_length = dpb_length;
+		message->msg_att_file_length = file_length;
+		message->msg_att_expanded_length = expanded_length;
+		MOVE(file_name, message->msg_att_data, file_length);
+		MOVE(expanded_filename, message->msg_att_data + file_length,
+			 expanded_length);
+		MOVE(dpb, message->msg_att_data + file_length + expanded_length,
+			 dpb_length);
+		if (CSS_put_message(connection, message, 0)
+			&& (response = CSS_get_message(connection, 0, 0))
+			&& !process_response(response, user_status, &handle, 0, 0, 0)) {
+			rdb = (RDB) ALLOC(type_rdb, sizeof(struct rdb));
+			rdb->rdb_handle = handle;
+			rdb->rdb_connection = connection;
+			rdb->rdb_server = pipe_server;
+
+			/* At all times, keep a utility connection open to the pipe server.
+			   This is for the sake of efficiency.  It will force the port to
+			   remain open. */
+
+			if (!pipe_util_cnct) {
+				pipe_util_cnct = CSS_connect(pipe_server);
+				message =
+					(MSG_ATT) CSS_alloc_message(type_msg,
+												sizeof(struct msg_util));
+				((MSG_UTIL) message)->msg_util_header.msg_type = MSG_util_cmd;
+				((MSG_UTIL) message)->msg_util_cmd = UTIL_noop;
+				if (CSS_put_message(pipe_util_cnct, message, 0) &&
+					(response = CSS_get_message(pipe_util_cnct, 0, 0)))
+					CSS_free_global(response);
+				else {
+					CSS_disconnect(pipe_util_cnct);
+					pipe_util_cnct = 0;
+				}
+			}
+
+			return rdb;
+		}
+		CSS_disconnect(connection);
+	}
+
+	return NULL;
+}
+#endif
+
+
+#ifdef GATEWAY
+static RDB init(
+				STATUS * user_status,
+				MSG_T type,
+				UCHAR * file_name,
+				USHORT file_length,
+				UCHAR * dpb, USHORT dpb_length, TEXT * expanded_filename)
+{
+/**************************************
+ *
+ *	i n i t		( g a t e w a y _ p i p e _ s e r v e r )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for database access.  First call from both CREATE and
+ *	OPEN.
+ *
+ **************************************/
+	MSG_ATT message;
+	MSG_RESP response;
+	RDB rdb;
+	SRQ *que;
+	PRB process;
+	PTR connection, server, client;
+	CSH CSS_header;
+	HANDLE handle;
+	UCHAR gbl_file[16], csi_file[256], *p, *q;
+	USHORT expanded_length, length;
+	int pid;
+
+	sprintf(gbl_file, "ISC_%08lx", getpid());
+	q = csi_file - 1;
+	if (ISC_expand_logical_once
+		("SYS$LOGIN", sizeof("SYS$LOGIN") - 1, csi_file)) {
+		for (p = csi_file; *p; p++)
+			if (*p == ':' || *p == ']')
+				q = p;
+		if (q < csi_file)
+			*(q = p) = ':';
+	}
+	strcpy(++q, gbl_file);
+#ifdef ORACLE_ALT
+	strcat(q, "_ALT");
+#endif
+
+	if (!CSS_init(user_status, TRUE, csi_file)) {
+		*user_status++ = gds_arg_gds;
+		*user_status++ = gds__unavailable;
+		*user_status = 0;
+		return NULL;
+	}
+
+	if (!file_length)
+		file_length = strlen(file_name);
+
+	expanded_length = strlen(expanded_filename);
+
+	client = CSS_create_process(PRB_server);
+	CSS_header = ACQUIRE;
+
+/* Try to find a user on the free list whose connection is
+   still around.  Delete any that aren't. */
+
+	CSS_probe_processes();
+	while (CSI_free_servers) {
+		QUE_LOOP(CSS_header->csh_processes, que)
+			if (CSI_free_servers->rdb_server ==
+				REL_PTR((PRB) ((UCHAR *) que - OFFSET(PRB, prb_processes))))
+			break;
+
+		if (que != &CSS_header->csh_processes)
+			break;
+		else {
+			rdb = CSI_free_servers;
+			CSI_free_servers = rdb->rdb_next;
+			FREE(rdb);
+		}
+	}
+
+	RELEASE;
+
+/* If there aren't any available users, create one and then find it */
+
+	if (!CSI_free_servers) {
+		if ((pid = spawn(user_status, gbl_file, &connection)) > 0) {
+			ACQUIRE;
+
+			QUE_LOOP(CSS_header->csh_processes, que) {
+				process = (PRB) ((UCHAR *) que - OFFSET(PRB, prb_processes));
+				if (client != REL_PTR(process) &&
+					process->prb_protocol_version == CSI_PROTOCOL_VERSION &&
+					process->prb_process_id == pid) {
+					rdb = (RDB) ALLOC(type_rdb, sizeof(struct rdb));
+					rdb->rdb_next = CSI_free_servers;
+					CSI_free_servers = rdb;
+					rdb->rdb_connection = connection;
+					rdb->rdb_server = REL_PTR(process);
+					break;
+				}
+			}
+
+			RELEASE;
+		}
+	}
+
+	if (CSI_free_servers) {
+		connection = CSI_free_servers->rdb_connection;
+
+		length =
+			sizeof(struct msg_att) + file_length + expanded_length +
+			dpb_length;
+		message = (MSG_ATT) CSS_alloc_message(type_msg, (int) length);
+		message->msg_att_header.msg_type = type;
+		message->msg_att_dpb_length = dpb_length;
+		message->msg_att_file_length = file_length;
+		message->msg_att_expanded_length = expanded_length;
+		MOVE(file_name, message->msg_att_data, file_length);
+		MOVE(expanded_filename, message->msg_att_data + file_length,
+			 expanded_length);
+		MOVE(dpb, message->msg_att_data + file_length + expanded_length,
+			 dpb_length);
+		if (CSS_put_message(connection, message, 0)
+			&& (response = CSS_get_message(connection, 0, 0))
+			&& !process_response(response, user_status, &handle, 0, 0, 0)) {
+			rdb = CSI_free_servers;
+			CSI_free_servers = rdb->rdb_next;
+
+			rdb->rdb_handle = handle;
+			rdb->rdb_next = CSI_databases;
+			CSI_databases = rdb;
+			return rdb;
+		}
+	}
+
+	return NULL;
+}
+#endif
+#endif
+
+
+static RTR make_transaction( RDB rdb, HANDLE handle)
+{
+/**************************************
+ *
+ *	m a k e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a local transaction handle.
+ *
+ **************************************/
+	RTR transaction;
+
+	transaction = (RTR) ALLOC(type_rtr, sizeof(struct rtr));
+	transaction->rtr_rdb = rdb;
+	transaction->rtr_handle = handle;
+	transaction->rtr_next = rdb->rdb_transactions;
+	rdb->rdb_transactions = transaction;
+
+	return transaction;
+}
+
+
+static void move( UCHAR * from, UCHAR * to, USHORT length)
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move some bytes.
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+}
+
+
+static USHORT name_length( TEXT * name)
+{
+/*****************************************
+ *
+ *	n a m e _ l e n g t h
+ *
+ *****************************************
+ *
+ * Functional Description
+ *	Compute length of user-supplied (blank-padded) or
+ * 	NULL-terminated buffer
+ *
+ *****************************************/
+	TEXT *p;
+
+	for (p = name; *p && *p != ' '; p++);
+
+	return (USHORT) (p - name);
+}
+
+
+static STATUS process_response(
+							   MSG_RESP message,
+							   STATUS * user_status,
+							   HANDLE * handle,
+USHORT buffer_length, UCHAR * buffer, USHORT * return_length)
+{
+/**************************************
+ *
+ *	p r o c e s s _ r e s p o n s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a response packet from server.
+ *
+ **************************************/
+	TEXT *p, *q;
+	STATUS *status, *stuff, *end;
+	USHORT l;
+
+/* If there isn't a message, the server has disappeared */
+
+	if (!message || message->msg_resp_header.msg_type != MSG_response) {
+		status = user_status;
+		*status++ = gds_arg_gds;
+		*status++ = gds__random;
+		*status++ = gds_arg_string;
+#ifndef PIPE_SERVER
+		*status++ = (STATUS) "connection lost to central server";
+#else
+		*status++ = (STATUS) "connection lost to pipe server";
+#endif
+		*status = gds_arg_end;
+		return user_status[1];
+	}
+
+/* Well, at least we got something -- eat it up */
+
+	p = error_buffer;
+
+	for (status = user_status, end = status + 20, stuff =
+		 message->msg_resp_status; (*status = *stuff++) && status < end;)
+		switch (*status++) {
+		case gds_arg_interpreted:
+		case gds_arg_string:
+			q = (TEXT *) message + *stuff++;
+			*status++ = (STATUS) p;
+			while (*p++ = *q++);
+			break;
+
+		case gds_arg_cstring:
+			l = *status++ = *stuff++;
+			q = (TEXT *) message + *stuff++;
+			*status++ = (STATUS) p;
+			if (l)
+				do
+					*p++ = *q++;
+				while (--l);
+			break;
+
+		default:
+			*status++ = *stuff++;
+		}
+
+	if (!user_status[1] || user_status[1] == gds__segment) {
+		if (handle)
+			*handle = message->msg_resp_handle;
+		if (buffer && (l = MIN(buffer_length, message->msg_resp_length)))
+			MOVE(message->msg_resp_data, buffer, l);
+		if (return_length)
+			*return_length = message->msg_resp_length;
+	}
+
+	CSS_free_global(message);
+
+	return user_status[1];
+}
+
+
+static void release_blob( RBL blob)
+{
+/**************************************
+ *
+ *	r e l e a s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a blob block and friends.
+ *
+ **************************************/
+	RTR transaction;
+	RBL *p;
+
+	transaction = blob->rbl_rtr;
+
+	for (p = &transaction->rtr_blobs; *p; p = &(*p)->rbl_next)
+		if (*p == blob) {
+			*p = blob->rbl_next;
+			break;
+		}
+
+	FREE(blob);
+}
+
+
+static STATUS release_object(
+							 RDB rdb,
+							 MSG_T type, HANDLE handle, STATUS * user_status)
+{
+/**************************************
+ *
+ *	r e l e a s e _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Tell the server to zap an object.  This doesn't not necessary
+ *	release the object, but usually does.
+ *
+ **************************************/
+	MSG_OP message;
+
+	message = (MSG_OP) CSS_alloc_message(type_msg, sizeof(struct msg_op));
+	message->msg_op_header.msg_type = type;
+	message->msg_op_handle = handle;
+
+	return get_response(rdb, message, user_status, 0, 0, 0, 0);
+}
+
+
+static void release_request( RRQ request)
+{
+/**************************************
+ *
+ *	r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request block and friends.
+ *
+ **************************************/
+	RDB rdb;
+	RRQ *p;
+
+	rdb = request->rrq_rdb;
+
+	for (p = &rdb->rdb_requests; *p; p = &(*p)->rrq_next)
+		if (*p == request) {
+			*p = request->rrq_next;
+			break;
+		}
+
+	FREE(request);
+}
+
+
+static void release_sql_request( RSR stmt)
+{
+/**************************************
+ *
+ *	r e l e a s e _ s q l _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an SQL request block.
+ *
+ **************************************/
+	RDB rdb;
+	RSR *p;
+
+	rdb = stmt->rsr_rdb;
+
+	for (p = &rdb->rdb_sql_requests; *p; p = &(*p)->rsr_next)
+		if (*p == stmt) {
+			*p = stmt->rsr_next;
+			break;
+		}
+
+	FREE(stmt);
+}
+
+
+static void release_transaction( RTR transaction)
+{
+/**************************************
+ *
+ *	r e l e a s e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a transaction block and friends.
+ *
+ **************************************/
+	RDB rdb;
+	RTR *p;
+
+	rdb = transaction->rtr_rdb;
+
+	for (p = &rdb->rdb_transactions; *p; p = &(*p)->rtr_next)
+		if (*p == transaction) {
+			*p = transaction->rtr_next;
+			break;
+		}
+
+	FREE(transaction);
+}
+
+
+static STATUS send_blob(
+						STATUS * user_status,
+						RBL blob, USHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	s e n d _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a partially completed blob.
+ *
+ **************************************/
+	MSG_T op;
+	MSG_SEG message;
+
+/* If there is no buffer address, this is a batch send.  Pick up the
+   address and length from the blob buffer and blast away */
+
+	if (!buffer) {
+		buffer = blob->rbl_buffer;
+		buffer_length = blob->rbl_ptr - buffer;
+		blob->rbl_ptr = buffer;
+		op = MSG_put_segment_buf;
+	}
+	else
+		op = MSG_put_segment;
+
+	message =
+		(MSG_SEG) CSS_alloc_message(type_msg,
+									(int) (sizeof(struct msg_seg) +
+										   buffer_length));
+	message->msg_seg_header.msg_type = op;
+	message->msg_seg_handle = blob->rbl_handle;
+	message->msg_seg_length = buffer_length;
+	MOVE(buffer, message->msg_seg_data, buffer_length);
+
+	return get_response(blob->rbl_rdb, message, user_status, 0, 0, 0, 0);
+}
+
+
+#ifdef PIPE_SERVER
+#ifdef VMS
+static void setup_creprc_info(
+							  SLONG ** privileges,
+							  ITMQ ** quotas, SLONG * priority)
+{
+/**************************************
+ *
+ *	s e t u p _ c r e p r c _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the information relating to process quotas and
+ *	privileges that is useful when creating a sub-process.
+ *
+ **************************************/
+	ITM items[16];
+	SLONG values[16];
+	SSHORT i, lengths[16];
+	ITMQ *quota;
+
+	for (i = sizeof(items) / sizeof(ITM); i--;) {
+		items[i].itm_length = sizeof(SLONG);
+		items[i].itm_buffer = &values[i];
+		items[i].itm_return_length = &lengths[i];
+	}
+	items[10].itm_buffer = priority;
+	items[11].itm_length = sizeof(SLONG) * 2;
+	items[11].itm_buffer = *privileges;
+
+	items[0].itm_code = JPI$_ASTLM;
+	items[1].itm_code = JPI$_BIOLM;
+	items[2].itm_code = JPI$_BYTLM;
+	items[3].itm_code = JPI$_CPULIM;
+	items[4].itm_code = JPI$_DIOLM;
+	items[5].itm_code = JPI$_ENQLM;
+	items[6].itm_code = JPI$_DFWSCNT;
+	items[7].itm_code = JPI$_FILLM;
+	items[8].itm_code = JPI$_PGFLQUOTA;
+	items[9].itm_code = JPI$_PRCLM;
+	items[10].itm_code = JPI$_PRIB;
+	items[11].itm_code = JPI$_PROCPRIV;
+	items[12].itm_code = JPI$_TQLM;
+	items[13].itm_code = JPI$_WSQUOTA;
+	items[14].itm_code = JPI$_WSAUTHEXT;
+
+	items[15].itm_code = 0;
+	items[15].itm_length = 0;
+
+	if (sys$getjpiw(NULL, NULL, NULL, items, NULL, NULL, NULL) & 1) {
+		for (quota = *quotas, i = sizeof(items) / sizeof(ITM); i--;)
+			if (lengths[i]) {
+				switch (items[i].itm_code) {
+				case JPI$_ASTLM:
+					quota->itmq_code = PQL$_ASTLM;
+					break;
+
+				case JPI$_BIOLM:
+					quota->itmq_code = PQL$_BIOLM;
+					break;
+
+				case JPI$_BYTLM:
+					quota->itmq_code = PQL$_BYTLM;
+					break;
+
+				case JPI$_CPULIM:
+					quota->itmq_code = PQL$_CPULM;
+					break;
+
+				case JPI$_DIOLM:
+					quota->itmq_code = PQL$_DIOLM;
+					break;
+
+				case JPI$_ENQLM:
+					quota->itmq_code = PQL$_ENQLM;
+					break;
+
+				case JPI$_DFWSCNT:
+					quota->itmq_code = PQL$_FILLM;
+					break;
+
+				case JPI$_FILLM:
+					quota->itmq_code = PQL$_PGFLQUOTA;
+					break;
+
+				case JPI$_PGFLQUOTA:
+					quota->itmq_code = PQL$_PRCLM;
+					break;
+
+				case JPI$_PRCLM:
+					quota->itmq_code = PQL$_TQELM;
+					break;
+
+				case JPI$_TQLM:
+					quota->itmq_code = PQL$_WSDEFAULT;
+					break;
+
+				case JPI$_WSQUOTA:
+					quota->itmq_code = PQL$_WSEXTENT;
+					break;
+
+				case JPI$_WSAUTHEXT:
+					quota->itmq_code = PQL$_WSQUOTA;
+					break;
+
+				default:
+					continue;
+				}
+				
+					(quota++)->itmq_value =
+					(lengths[i] == 4) ? values[i] : (SSHORT) (values[i]);
+			}
+			else {
+				if (items[i].itm_code == JPI$_PRIB)
+					*priority = 4;
+				else if (items[i].itm_code == JPI$_PROCPRIV)
+					*privileges = NULL;
+			}
+
+		quota->itmq_code = PQL$_LISTEND;
+	}
+	else {
+		*privileges = NULL;
+		*quotas = NULL;
+		*priority = 4;
+	}
+}
+#endif
+#endif
+
+
+#ifdef PIPE_SERVER
+#ifdef VMS
+static int spawn( STATUS * user_status, UCHAR * gbl_file, PTR * connection)
+{
+/**************************************
+ *
+ *	s p a w n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Spawn a sub-process using SYS$CREPRC.  Return > 0 if a
+ *	process was created, -1 if create process failed.  Also
+ *	return a pointer to the created process's connection block.
+ *
+ **************************************/
+	UCHAR output[128], error[128], *p, *q, process_name[16],
+		pipe_temp[256], pipe_file[256];
+	USHORT i, len;
+	ULONG status, pid, flags, item;
+	SLONG *privileges, procpriv[2], priority;
+	ITMQ quota_list[14], *quotas;
+	MSG_RESP response;
+	struct dsc$descriptor_s desc1, desc2, desc3, desc4;
+
+	privileges = procpriv;
+	quotas = quota_list;
+	setup_creprc_info(&privileges, &quotas, &priority);
+
+/* Tell the sub-process about the values of some important logical names. */
+
+	trans_logicals();
+
+	gds__prefix(pipe_temp, GDS_PIPE);
+	for (p = pipe_temp, q = p - 1; *p; p++)
+		if (*p == ':')
+			q = p;
+	if (q < pipe_temp)
+		strcpy(pipe_file, pipe_temp);
+	else {
+		len = ISC_expand_logical(pipe_temp, q - pipe_temp, pipe_file);
+		if (pipe_file[len - 1] != ']')
+			pipe_file[len++] = ':';
+		strcpy(&pipe_file[len], q + 1);
+	}
+
+	q = error - 1;
+	if (ISC_expand_logical_once("SYS$LOGIN", sizeof("SYS$LOGIN") - 1, error)) {
+		for (p = error; *p; p++)
+			if (*p == ':' || *p == ']')
+				q = p;
+		if (q < error)
+			*(q = p) = ':';
+	}
+	for (p = "GDS_PIPE.ERR"; *++q = *p++;);
+	len = q - error;
+
+	strcpy(output, error);
+	strcpy(&output[len - 3], "OUT");
+
+	ISC_make_desc(pipe_file, &desc1, 0);
+	ISC_make_desc(output, &desc2, len);
+	ISC_make_desc(error, &desc3, len);
+	i = 0;
+	do {
+		/* Loop until the sub-process is given a unique process name */
+
+		sprintf(process_name, "%s_%02x", gbl_file, i++);
+		ISC_make_desc(process_name, &desc4, 0);
+		status = sys$creprc(&pid,	/* pidadr */
+							&desc1,	/* image */
+							NULL,	/* input */
+							&desc2,	/* output */
+							&desc3,	/* error */
+							privileges,	/* prvadr */
+							quotas,	/* quota */
+							&desc4,	/* prcnam */
+							priority,	/* baspri */
+							NULL, NULL, NULL);
+	} while (status == SS$_DUPLNAM);
+
+	if (!(status & 1)) {
+		/* We failed.  Fill in the status vector. */
+
+		*user_status++ = gds_arg_gds;
+		*user_status++ = gds__sys_request;
+		*user_status++ = gds_arg_string;
+		*user_status++ = (STATUS) "sys$creprc";
+		*user_status++ = gds_arg_vms;
+		*user_status++ = status;
+		*user_status = gds_arg_end;
+		return -1;
+	}
+
+	while (!(response = CSS_get_message((SLONG) 0, 0, 10))) {
+		item = JPI$_PID;
+		if (lib$getjpi(&item, &pid, NULL, NULL, NULL, NULL) != SS$_NORMAL)
+			return -1;
+	}
+
+	*connection = response->msg_resp_header.msg_connection;
+	CSS_free_global(response);
+
+	return pid;
+}
+#endif
+#endif
+
+
+#ifdef PIPE_SERVER
+#ifdef VMS
+static void trans_logicals(void)
+{
+/**************************************
+ *
+ *	t r a n s _ l o g i c a l s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate some logicals and write their values
+ *	to the job logical table.
+ *
+ **************************************/
+	UCHAR **logicals, value[256], job_logical[32], buffer[256];
+	int attr;
+	SSHORT len;
+	ITM items[2];
+	struct dsc$descriptor_s tab_desc, log_desc;
+
+	for (logicals = inherit_logicals; *logicals; logicals++) {
+		items[0].itm_code = LNM$_STRING;
+		items[0].itm_buffer = value;
+		items[0].itm_length = sizeof(value);
+		items[0].itm_return_length = &len;
+		items[1].itm_length = 0;
+		items[1].itm_code = 0;
+
+		attr = LNM$M_CASE_BLIND;
+
+		ISC_make_desc(*logicals, &log_desc, 0);
+		ISC_make_desc("LNM$PROCESS", &tab_desc, sizeof("LNM$PROCESS") - 1);
+		if (!(sys$trnlnm(&attr, &tab_desc, &log_desc, NULL, items) & 1))
+			continue;
+
+		/* We have a value to set.  Do so in the JOB table. */
+
+		items[0].itm_length = len;
+
+		sprintf(job_logical, "GDS_PIPE_%s", *logicals);
+		ISC_make_desc(job_logical, &log_desc, 0);
+		ISC_make_desc("LNM$JOB", &tab_desc, sizeof("LNM$JOB") - 1);
+
+		sys$crelnm(NULL, &tab_desc, &log_desc, NULL, items);
+	}
+}
+#endif
+#endif
diff --git a/src/csv/csi.h b/src/csv/csi.h
new file mode 100644
index 0000000000..2344f0097c
--- /dev/null
+++ b/src/csv/csi.h
@@ -0,0 +1,590 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		csi.h
+ *	DESCRIPTION:	Central Server Interface definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _CSV_CSI_H_
+#define _CSV_CSI_H_
+
+#include "../jrd/common.h"
+#include "../jrd/thd.h"
+#include "../jrd/isc.h"
+
+#ifdef VMS
+#define CSI_FILE		"[000000]isc_csv_gbl.%s"
+#if !(defined MULTI_THREAD) || defined (__ALPHA)
+#ifndef PIPE_SERVER
+#define CSV_SIGNAL              33
+#define EVENT_SIGNAL            3
+#else
+#define CSV_SIGNAL              34
+#define EVENT_SIGNAL            4
+#endif
+#endif
+#endif
+
+#ifdef UNIX
+#include <signal.h>
+#define EVENT_SIGNAL		SIGUSR2
+#define CSI_FILE		"/usr/interbase/isc_csv.%s"
+#endif
+
+#ifdef WIN_NT
+#define CSI_FILE		"/interbas/%s.csv"
+#endif
+
+#ifdef PC_PLATFORM
+#define CSI_DEFAULT_SIZE	65535
+#endif
+
+#ifdef GATEWAY
+#ifdef PIPE_SERVER
+#define CSI_DEFAULT_SIZE	69632
+#endif
+#endif
+
+#ifndef CSI_DEFAULT_SIZE
+#define CSI_DEFAULT_SIZE	262144
+#endif
+
+#define CSI_EXTEND_SIZE		32768
+
+#ifndef MAX_ARRAY_MESSAGE
+#define MAX_ARRAY_MESSAGE	64000
+#endif
+
+#ifndef BLOB_LENGTH
+#define BLOB_LENGTH		4096
+#endif
+
+#define PTR			SLONG
+#define BASE 			((UCHAR*) CSS_header)
+#define REL_PTR(item)		((UCHAR*) item - BASE)
+#define ABS_PTR(item)		(BASE + item)
+#define ACQUIRE			CSS_acquire()
+#define RELEASE			CSS_release()
+
+#define QUE_INIT(que)	{que.srq_forward = que.srq_backward = REL_PTR (&que);}
+#define QUE_EMPTY(que)	(que.srq_forward == REL_PTR (&que))
+#define QUE_NEXT(que)	ABS_PTR (que.srq_forward)
+
+#define QUE_LOOP(header,que)	for (que = (SRQ*) QUE_NEXT (header);\
+	que != &header; que = (SRQ*) QUE_NEXT ((*que)))
+
+
+#define SIZE_SHIFT	2
+#define FAST_ALLOC	16
+
+/* Self-relative que block.  Offsets are from the block itself. */
+
+typedef struct srq {
+	PTR srq_forward;			/* Forward offset */
+	PTR srq_backward;			/* Backward offset */
+} SRQ;
+
+/* Global section header */
+
+#define CSI_VERSION		3
+#define CSI_PROTOCOL_VERSION	1
+
+typedef struct csh {
+	SLONG csh_length;			/* Current length of global section */
+	UCHAR csh_version;			/* Version number of global section */
+	SRQ csh_processes;			/* Known processes */
+	PTR csh_free;				/* Free blocks */
+	PTR csh_current_process;	/* Process "acquiring" section */
+	SLONG csh_mutex[2];			/* Mutex controlling access */
+	SLONG csh_semid;			/* Semaphore id for UNIX */
+	SLONG csh_process_number;	/* Assigned sequentially */
+	UCHAR csh_semaphores[16];	/* Free semaphores */
+	PTR csh_free_vector[FAST_ALLOC];
+} *CSH;
+
+/* Common block header */
+
+typedef struct hdr {
+	SLONG hdr_length;			/* Length of block */
+	UCHAR hdr_type;				/* Type of block */
+} HDR;
+
+#define type_hdr	1
+#define type_frb	2
+#define type_prb	3
+#define type_cnct	4
+#define type_msg	5
+
+/* Free blocks */
+
+typedef struct frb {
+	HDR frb_header;
+	SLONG frb_next;				/* Next block */
+} *FRB;
+
+/* Process blocks */
+
+typedef struct prb {
+	HDR prb_header;
+	USHORT prb_flags;			/* Misc */
+	USHORT prb_protocol_version;	/* Protocol version */
+	ULONG prb_group_id;			/* Group id for VMS */
+	USHORT prb_semaphore;		/* Semaphore used for event on UNIX */
+	SRQ prb_processes;			/* Process que ownerd by header */
+	SRQ prb_connections;		/* Connections to server process */
+	SRQ prb_messages;			/* Messages to be processed */
+	SLONG prb_process_id;		/* Process id */
+	SLONG prb_process_number;	/* Relative process number */
+	EVENT_T prb_event[1];		/* Event on which to wait */
+} *PRB;
+
+#define PRB_client	0			/* Process is client */
+#define PRB_server	1			/* Process is server (otherwise client) */
+#define PRB_disconnect	2		/* Some connection was broken */
+#define PRB_client_t1	4		/* Process is client type 1 */
+#define PRB_server_t1	8		/* Process is server type 1 */
+#define PRB_timeout	32			/* Process has waited too long for a message */
+#define PRB_wait	64			/* Process is awaiting acquisition */
+#define PRB_signal_me	128		/* Process is waiting for a signal */
+
+/* Connection block */
+
+typedef struct cnct {
+	HDR cnct_header;
+	PTR cnct_parent;			/* Client process block */
+	PTR cnct_partner;			/* Server process lock */
+	PTR cnct_mirror;			/* Mirror of connection */
+	SRQ cnct_connections;		/* Que of parents connections */
+} *CNCT;
+
+/* Message block */
+
+typedef enum {
+	MSG_attach_database,
+	MSG_blob_info,
+	MSG_cancel_blob,
+	MSG_close_blob,
+	MSG_commit,
+	MSG_commit_retaining,
+	MSG_compile,
+	MSG_create_blob,
+	MSG_create_database,
+	MSG_database_info,
+	MSG_detach,
+	MSG_get_segment,
+	MSG_open_blob,
+	MSG_prepare,
+	MSG_put_segment,
+	MSG_reconnect,
+	MSG_receive,
+	MSG_release,
+	MSG_request_info,
+	MSG_rollback,
+	MSG_send,
+	MSG_start_and_send,
+	MSG_start_request,
+	MSG_start_transaction,
+	MSG_transaction_info,
+	MSG_unwind,
+	MSG_disconnect,
+	MSG_response,
+	MSG_que_events,
+	MSG_cancel_events,
+	MSG_event,
+	MSG_alt_connection,
+	MSG_util_cmd,
+	MSG_query_connect,
+	MSG_mdi_attach_db,
+	MSG_ping,
+	MSG_get_slice,
+	MSG_put_slice,
+	MSG_ddl,
+	MSG_seek_blob,
+	MSG_get_segment_buf,
+	MSG_put_segment_buf,
+	MSG_allocate_stmt,
+	MSG_execute,
+	MSG_execute_immediate,
+	MSG_fetch,
+	MSG_free_stmt,
+	MSG_prepare_stmt,
+	MSG_set_cursor,
+	MSG_sql_info,
+	MSG_insert,
+	MSG_execute2,
+	MSG_execute_immediate2,
+	MSG_transact_request,
+	MSG_drop_database
+} MSG_T;
+
+typedef struct msg {
+	HDR msg_header;
+	SRQ msg_que;
+	MSG_T msg_type;				/* Specific message type */
+	PTR msg_connection;			/* Process sending message */
+} *MSG;
+
+/* Miscellaneous message formats */
+
+typedef struct msg_att {
+	struct msg msg_att_header;	/* Common message header */
+	USHORT msg_att_file_length;	/* Length of file name */
+	USHORT msg_att_dpb_length;	/* Length of database parameter block */
+	USHORT msg_att_expanded_length;	/* Length of expanded file name */
+	USHORT msg_att_type;		/* Create type */
+	UCHAR msg_att_data[1];		/* File name and dpb */
+} *MSG_ATT;
+
+typedef struct msg_info {
+	struct msg msg_info_header;
+	SLONG msg_info_handle;
+	USHORT msg_info_level;
+	USHORT msg_info_length;		/* Item length */
+	USHORT msg_info_buffer_length;	/* Length of return buffer */
+	UCHAR msg_info_data[1];
+} *MSG_INFO;
+
+typedef struct msg_op {
+	struct msg msg_op_header;
+	SLONG msg_op_handle;
+	SLONG msg_op_level;
+	USHORT msg_op_length;
+	USHORT msg_op_data[1];
+} *MSG_OP;
+
+typedef struct msg_blob {
+	struct msg msg_blob_header;
+	SLONG msg_blob_database;
+	SLONG msg_blob_transaction;
+	USHORT msg_blob_bpb_length;
+	SLONG msg_blob_id[2];
+	UCHAR msg_blob_bpb[1];
+} *MSG_BLOB;
+
+typedef struct msg_seg {
+	struct msg msg_seg_header;
+	SLONG msg_seg_handle;
+	USHORT msg_seg_length;
+	USHORT msg_seg_buffer_length;
+	UCHAR msg_seg_data[1];
+} *MSG_SEG;
+
+typedef struct msg_msg {
+	struct msg msg_msg_header;
+	SLONG msg_msg_request;
+	SLONG msg_msg_transaction;
+	USHORT msg_msg_level;
+	USHORT msg_msg_type;
+	USHORT msg_msg_length;
+	UCHAR msg_msg_data[1];
+} *MSG_MSG;
+
+typedef struct tdb {
+	SLONG tdb_database;
+	USHORT tdb_tpb_length;
+	PTR tdb_tpb;
+} TDB;
+
+typedef struct msg_trans {
+	struct msg msg_trans_header;
+	USHORT msg_trans_count;
+	TDB msg_trans_tdb[1];
+} *MSG_TRANS;
+
+typedef struct msg_resp {
+	struct msg msg_resp_header;
+	SLONG msg_resp_handle;
+	STATUS msg_resp_status[20];
+	USHORT msg_resp_length;
+	UCHAR msg_resp_data[1];
+} *MSG_RESP;
+
+typedef struct msg_event {
+	struct msg msg_event_header;
+	SLONG msg_event_database;
+	void (*msg_event_ast) ();
+	void *msg_event_arg;
+	USHORT msg_event_length;
+	UCHAR msg_event_data[1];
+} *MSG_EVENT;
+
+typedef struct msg_slice {
+	struct msg msg_slice_header;
+	SLONG msg_slice_database;
+	SLONG msg_slice_transaction;
+	USHORT msg_slice_sdl_length;
+	USHORT msg_slice_param_length;
+	SLONG msg_slice_slice_length;
+	SLONG msg_slice_id[2];
+	SLONG msg_slice_handle;
+	UCHAR msg_slice_data[1];	/* sdl, param, and slice */
+} *MSG_SLICE;
+
+typedef struct msg_ddl {
+	struct msg msg_ddl_header;
+	SLONG msg_ddl_database;
+	SLONG msg_ddl_transaction;
+	USHORT msg_ddl_length;
+	USHORT msg_ddl_data[1];
+} *MSG_DDL;
+
+typedef struct msg_util {
+	struct msg msg_util_header;
+	USHORT msg_util_cmd;
+	USHORT msg_util_csn_len;
+	USHORT msg_util_dbn_len;
+	TEXT msg_util_data[2];
+} *MSG_UTIL;
+
+typedef struct msg_seek {
+	struct msg msg_seek_header;
+	SLONG msg_seek_handle;
+	SSHORT msg_seek_mode;
+	SLONG msg_seek_offset;
+} *MSG_SEEK;
+
+typedef struct msg_exnow {
+	struct msg msg_exnow_header;
+	SLONG msg_exnow_database;
+	SLONG msg_exnow_transaction;
+	USHORT msg_exnow_SQL_length;
+	USHORT msg_exnow_SQL_dialect;
+	USHORT msg_exnow_in_blr_length;
+	USHORT msg_exnow_in_msg_type;
+	USHORT msg_exnow_in_msg_length;
+	USHORT msg_exnow_out_blr_length;
+	USHORT msg_exnow_out_msg_type;
+	USHORT msg_exnow_out_msg_length;
+	UCHAR msg_exnow_data[1];
+} *MSG_EXNOW;
+
+typedef struct msg_pstmt {
+	struct msg msg_pstmt_header;
+	SLONG msg_pstmt_transaction;
+	SLONG msg_pstmt_statement;
+	USHORT msg_pstmt_SQL_length;
+	USHORT msg_pstmt_SQL_dialect;
+	USHORT msg_pstmt_item_length;
+	USHORT msg_pstmt_buffer_length;
+	UCHAR msg_pstmt_data[1];
+} *MSG_PSTMT;
+
+typedef struct msg_setcur {
+	struct msg msg_setcur_header;
+	SLONG msg_setcur_statement;
+	USHORT msg_setcur_type;
+	TEXT msg_setcur_cursor[1];
+} *MSG_SETCUR;
+
+typedef struct msg_sqlmsg {
+	struct msg msg_sqlmsg_header;
+	SLONG msg_sqlmsg_transaction;
+	SLONG msg_sqlmsg_statement;
+	USHORT msg_sqlmsg_in_blr_length;
+	USHORT msg_sqlmsg_in_msg_type;
+	USHORT msg_sqlmsg_in_msg_length;
+	USHORT msg_sqlmsg_out_blr_length;
+	USHORT msg_sqlmsg_out_msg_type;
+	USHORT msg_sqlmsg_out_msg_length;
+	UCHAR msg_sqlmsg_data[1];
+} *MSG_SQLMSG;
+
+typedef struct msg_trrq {
+	struct msg msg_trrq_header;
+	SLONG msg_trrq_database;
+	SLONG msg_trrq_transaction;
+	USHORT msg_trrq_blr_length;
+	USHORT msg_trrq_in_msg_length;
+	USHORT msg_trrq_out_msg_length;
+	UCHAR msg_trrq_data[1];
+} *MSG_TRRQ;
+
+#define UTIL_noop	0
+#define UTIL_list	1
+#define UTIL_disable	2
+#define UTIL_kill	3
+#define UTIL_reenable	4
+#define UTIL_enable	5
+
+/* Local blocks */
+
+typedef struct bid {
+	ULONG bid_relation_id;		/* Relation id (or null) */
+	ULONG bid_number;			/* Record number */
+} *BID;
+
+typedef SLONG HANDLE;
+
+/* Block types */
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+#define type_rdb	10
+#define type_rbl	11
+#define type_rrq	12
+#define type_rtr	13
+#define type_evnt	14
+#define type_dbn	15
+#define type_csn	16
+#define type_array	17
+#define type_rsr	18
+
+/* Block types */
+
+typedef struct rdb {
+	struct blk rdb_header;
+	PTR rdb_connection;			/* Connection to partner */
+	PTR rdb_connection2;		/* Connection to partner for async events */
+	PTR rdb_server;				/* Server process */
+	HANDLE rdb_handle;			/* database handle */
+	struct rtr *rdb_transactions;	/* linked list of transactions */
+	struct rrq *rdb_requests;	/* compiled requests */
+	struct rsr *rdb_sql_requests;	/* SQL requests */
+	struct rdb *rdb_next;		/* next database in system */
+	struct evnt *rdb_events;	/* list of allocated event blocks */
+	struct dbn *rdb_dbn;		/* database name */
+	int *rdb_status_vector;
+	SCHAR *rdb_setjmp;
+} *RDB;
+
+typedef struct rtr {
+	struct blk rtr_header;
+	struct rdb *rtr_rdb;
+	struct rtr *rtr_next;
+	struct rbl *rtr_blobs;
+	struct array *rtr_arrays;
+	HANDLE rtr_handle;
+	USHORT rtr_flags;
+} *RTR;
+
+#define RTR_limbo	1
+
+typedef struct rbl {
+	struct blk rbl_header;
+	struct rdb *rbl_rdb;
+	struct rtr *rbl_rtr;
+	struct rbl *rbl_next;
+	HANDLE rbl_handle;
+	USHORT rbl_flags;
+	UCHAR *rbl_ptr;
+	USHORT rbl_length;
+	USHORT rbl_fragment_length;
+	USHORT rbl_buffer_length;
+	UCHAR rbl_buffer[1];
+} *RBL;
+
+#define RBL_eof		1
+#define RBL_segment	2
+#define RBL_eof_pending	4
+#define RBL_create	8
+
+typedef struct rrq {
+	struct blk rrq_header;
+	struct rdb *rrq_rdb;
+	struct rrq *rrq_next;
+	struct rrq **rrq_user_handle;
+	HANDLE rrq_handle;
+} *RRQ;
+
+typedef struct evnt {
+	struct blk evnt_header;
+	struct evnt *evnt_next;
+	struct rdb *evnt_rdb;
+	SLONG evnt_id;
+	void (*evnt_ast) ();
+	void *evnt_arg;
+} *EVNT;
+
+typedef struct array {
+	struct blk array_header;
+	struct rdb *array_rdb;
+	struct rtr *array_rtr;
+	struct array *array_next;
+	SLONG array_length;
+	UCHAR *array_slice;
+	UCHAR array_data[1];
+} *ARRAY;
+
+typedef struct rsr {
+	struct blk rsr_header;
+	struct rdb *rsr_rdb;
+	struct rsr *rsr_next;
+	HANDLE rsr_handle;
+} *RSR;
+
+typedef struct dbn {
+	struct blk dbn_header;
+	USHORT dbn_attaches;		/* number of attachments */
+	USHORT dbn_max_attaches;	/* maximum number of allowable attachments */
+	USHORT dbn_flags;
+	struct rdb *dbn_server;		/* central server attachment */
+	struct dbn *dbn_next;
+	USHORT dbn_length;			/* length of name string */
+	TEXT dbn_name[1];			/* name string */
+} *DBN;
+
+#define DBN_disable	1			/* disable new attachments */
+#define DBN_kill	2			/* kill all attachments */
+#define DBN_server_att	4		/* server has its own attachment to database */
+#define DBN_cmd_process	8		/* used by central server utility */
+#define DBN_reenable	16		/* re-enable new attachments */
+#define DBN_enable	32			/* enable a new database */
+
+typedef struct csn {
+	struct blk csn_header;
+	USHORT csn_flags;
+	struct csn *csn_next;
+	USHORT csn_cs_len;			/* length of server name string */
+	USHORT csn_db_len;			/* length of database name string */
+	TEXT *csn_cs_name;			/* server name string */
+	TEXT *csn_db_name;			/* database name string */
+	TEXT csn_data[2];
+} *CSN;
+
+/* Central server utility list command data */
+
+typedef struct csu_list {
+	USHORT csu_list_attaches;
+	USHORT csu_list_flags;
+	USHORT csu_list_length;
+	TEXT csu_list_name[1];
+} *CSU_LIST;
+
+#ifdef PIPE_SERVER
+#define CSS_acquire	 	PSS_acquire
+#define CSS_alloc_message	PSS_alloc_message
+#define CSS_alloc_local		PSS_alloc_local
+#define CSS_check_partner	PSS_check_partner
+#define CSS_connect		PSS_connect
+#define CSS_create_process	PSS_create_process
+#define CSS_disconnect		PSS_disconnect
+#define CSS_free_global		PSS_free_global
+#define CSS_free_local		PSS_free_local
+#define CSS_find_process	PSS_find_process
+#define CSS_get_message		PSS_get_message
+#define CSS_init		PSS_init
+#define CSS_probe_processes	PSS_probe_processes
+#define CSS_put_message		PSS_put_message
+#define CSS_release		PSS_release
+#define CSS_validate		PSS_validate
+#endif
+
+#endif /* _CSV_CSI_H_ */
diff --git a/src/csv/csi_proto.h b/src/csv/csi_proto.h
new file mode 100644
index 0000000000..67c9db67f7
--- /dev/null
+++ b/src/csv/csi_proto.h
@@ -0,0 +1,108 @@
+/*
+ *	PROGRAM:	Central Server
+ *	MODULE:		csi_proto.h
+ *	DESCRIPTION:	Prototype Header file for csi.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _CSV_CSI_PROTO_H_
+#define _CSV_CSI_PROTO_H_
+
+extern STATUS CSI_attach_database(STATUS *, SSHORT, SCHAR *, struct rdb **,
+								  SSHORT, SCHAR *, TEXT *);
+extern STATUS CSI_blob_info(STATUS *, struct rbl **, SSHORT, UCHAR *, SSHORT,
+							UCHAR *);
+extern STATUS CSI_cancel_blob(STATUS *, struct rbl **);
+extern STATUS CSI_cancel_events(STATUS *, struct rdb **, SLONG *);
+extern STATUS CSI_close_blob(STATUS *, struct rbl **);
+extern STATUS CSI_commit_transaction(STATUS *, struct rtr **);
+extern STATUS CSI_commit_retaining(STATUS *, struct rtr **);
+extern STATUS CSI_compile_request(STATUS *, struct rdb **, struct rrq **,
+								  USHORT, UCHAR *);
+extern STATUS CSI_create_blob2(STATUS *, struct rdb **, struct rtr **,
+							   struct rbl **, BID, USHORT, UCHAR *);
+extern STATUS CSI_create_database(STATUS *, SSHORT, SCHAR *, struct rdb **,
+								  SSHORT, SCHAR *, SSHORT, TEXT *);
+extern STATUS CSI_database_info(STATUS *, struct rdb **, SSHORT, UCHAR *,
+								SSHORT, UCHAR *);
+extern STATUS CSI_ddl(STATUS *, struct rdb **, struct rtr **, USHORT,
+					  UCHAR *);
+extern STATUS CSI_detach_database(STATUS *, struct rdb **);
+extern STATUS CSI_drop_database(STATUS *, struct rdb **);
+extern STATUS CSI_allocate_statement(STATUS *, struct rdb **, struct rsr **);
+extern STATUS CSI_execute(STATUS *, struct rtr **, struct rsr **, USHORT,
+						  UCHAR *, USHORT, USHORT, UCHAR *);
+extern STATUS CSI_execute2(STATUS *, struct rtr **, struct rsr **, USHORT,
+						   UCHAR *, USHORT, USHORT, UCHAR *, USHORT, UCHAR *,
+						   USHORT, USHORT, UCHAR *);
+extern STATUS CSI_execute_immediate(STATUS *, struct rdb **, struct rtr **,
+									USHORT, TEXT *, USHORT, USHORT, UCHAR *,
+									USHORT, USHORT, UCHAR *);
+extern STATUS CSI_execute_immediate2(STATUS *, struct rdb **, struct rtr **,
+									 USHORT, TEXT *, USHORT, USHORT, UCHAR *,
+									 USHORT, USHORT, UCHAR *, USHORT, UCHAR *,
+									 USHORT, USHORT, UCHAR *);
+extern STATUS CSI_fetch(STATUS *, struct rsr **, USHORT, UCHAR *, USHORT,
+						USHORT, UCHAR *);
+extern STATUS CSI_free_statement(STATUS *, struct rsr **, USHORT);
+extern STATUS CSI_insert(STATUS *, struct rsr **, USHORT, UCHAR *, USHORT,
+						 USHORT, UCHAR *);
+extern STATUS CSI_prepare(STATUS *, struct rtr **, struct rsr **, USHORT,
+						  TEXT *, USHORT, USHORT, SCHAR *, USHORT, SCHAR *);
+extern STATUS CSI_set_cursor_name(STATUS *, struct rsr **, TEXT *, USHORT);
+extern STATUS CSI_sql_info(STATUS *, struct rsr **, SSHORT, SCHAR *, SSHORT,
+						   SCHAR *);
+extern STATUS CSI_get_segment(STATUS *, struct rbl **, USHORT *, USHORT,
+							  UCHAR *);
+extern STATUS CSI_get_slice(STATUS *, struct rdb **, struct rtr **, BID,
+							USHORT, UCHAR *, USHORT, UCHAR *, SLONG, UCHAR *,
+							SLONG *);
+extern STATUS CSI_open_blob2(STATUS *, struct rdb **, struct rtr **,
+							 struct rbl **, BID, USHORT, UCHAR *);
+extern STATUS CSI_prepare_transaction(STATUS *, struct rtr **, USHORT,
+									  UCHAR *);
+extern STATUS CSI_put_segment(STATUS *, struct rbl **, USHORT, UCHAR *);
+extern STATUS CSI_put_slice(STATUS *, struct rdb **, struct rtr **, BID,
+							USHORT, UCHAR *, USHORT, UCHAR *, SLONG, UCHAR *);
+extern STATUS CSI_que_events(STATUS *, struct rdb **, SLONG *, SSHORT,
+							 UCHAR *, FPTR_VOID, void *);
+extern STATUS CSI_receive(STATUS *, struct rrq **, USHORT, USHORT, UCHAR *,
+						  SSHORT);
+extern STATUS CSI_reconnect_transaction(STATUS *, struct rdb **,
+										struct rtr **, SSHORT, UCHAR *);
+extern STATUS CSI_release_request(STATUS *, struct rrq **);
+extern STATUS CSI_request_info(STATUS *, struct rrq **, USHORT, SSHORT,
+							   UCHAR *, SSHORT, UCHAR *);
+extern STATUS CSI_rollback_transaction(STATUS *, struct rtr **);
+extern STATUS CSI_seek_blob(STATUS *, struct rbl **, SSHORT, SLONG, SLONG *);
+extern STATUS CSI_send(STATUS *, struct rrq **, USHORT, USHORT, UCHAR *,
+					   SSHORT);
+extern STATUS CSI_start_and_send(STATUS *, struct rrq **, struct rtr **,
+								 USHORT, USHORT, UCHAR *, SSHORT);
+extern STATUS CSI_start_request(STATUS *, register struct rrq **,
+								register struct rtr **, SSHORT);
+extern STATUS CSI_start_transaction(STATUS *, struct rtr **, SSHORT, ...);
+extern STATUS CSI_transact_request(STATUS *, struct rdb **, struct rtr **,
+								   USHORT, UCHAR *, USHORT, UCHAR *, USHORT,
+								   UCHAR *);
+extern STATUS CSI_transaction_info(STATUS *, struct rtr **, SSHORT, UCHAR *,
+								   SSHORT, UCHAR *);
+extern STATUS CSI_unwind_request(STATUS *, struct rrq **, SSHORT);
+
+#endif /* _CSV_CSI_PROTO_H_ */
diff --git a/src/csv/css.cpp b/src/csv/css.cpp
new file mode 100644
index 0000000000..37e335cb48
--- /dev/null
+++ b/src/csv/css.cpp
@@ -0,0 +1,1691 @@
+/*
+ *	PROGRAM:	Central Server Interface
+ *	MODULE:		css.c
+ *	DESCRIPTION:	Central Servers services
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../csv/csi.h"
+#include "../jrd/codes.h"
+#include "../jrd/thd.h"
+#include "../csv/css_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+
+#ifdef UNIX
+#include <errno.h>
+#ifdef sun
+#include <sys/mman.h>
+#endif
+#define SYS_ARG		gds_arg_unix
+#endif
+
+#ifdef PC_PLATFORM
+#define SYS_ARG		gds_arg_dos
+#endif
+
+#ifdef WIN_NT
+#define SYS_ARG		gds_arg_win32
+#endif
+
+#ifdef VMS
+#include lckdef
+#ifdef PIPE_SERVER
+#include rms
+#endif
+#define SYS_ARG		gds_arg_vms
+
+static LKSB CSS_lksb;
+#endif
+
+#define MAX_PROCESSES	16
+#define EVENT_FLAG	15
+
+extern SCHAR *getenv();
+
+#ifdef VMS
+static void acquire_ast(void);
+#endif
+static FRB alloc_global(USHORT, int);
+#ifdef UNIX
+static int alloc_semaphore(void);
+#endif
+static void cancel_timer(PRB);
+static void delete_process(SLONG);
+static void disconnect(SLONG, SLONG);
+static void dump(void);
+static void dump_que(UCHAR *, SRQ *);
+#ifdef VMS
+static void error(STATUS *, TEXT *, STATUS);
+#endif
+static void exit_handler(void *);
+static void free_global(FRB);
+static void init(void *, SH_MEM, int);
+static void insert_tail(SRQ *, SRQ *);
+static void mutex_bugcheck(UCHAR *, int);
+static void punt(TEXT *);
+static int put_message(PTR, MSG, int);
+#ifdef UNIX
+static void release_semaphore(USHORT);
+#endif
+static void remove_que(SRQ *);
+static void set_timer(USHORT, PRB);
+
+#ifdef PIPE_SERVER
+#ifdef VMS
+static void shutdown_section(void);
+#endif
+#endif	// PIPE_SERVER
+
+#ifdef VMS
+static void timeout_ast(PRB);
+#endif
+
+static USHORT acquire_count, resignal;
+static CSH CSS_header, CSS_region;
+static SLONG CSS_length, CSS_process;
+
+#ifdef PIPE_SERVER
+#ifdef VMS
+static SH_MEM_T shmem_data;
+#endif
+#endif
+
+
+CSH CSS_acquire(void)
+{
+/**************************************
+ *
+ *	C S S _ a c q u i r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Acquire exclusive access to shared global region.
+ *
+ **************************************/
+	STATUS status;
+	int mutex_state;
+
+	++acquire_count;
+
+#ifdef VMS
+	if (!CSS_lksb.lksb_status)
+		ISC_wait(&CSS_lksb.lksb_status, EVENT_FLAG);
+
+	status = sys$enq(EVENT_FLAG,	/* event flag */
+					 LCK$K_EXMODE,	/* lock mode */
+					 &CSS_lksb,	/* Lock status block */
+					 LCK$M_CONVERT | LCK$M_SYNCSTS | LCK$M_NODLCKWT,	/* flags */
+					 0,			/* resource name */
+					 0,			/* parent id */
+					 acquire_ast,	/* ast address */
+					 0,			/* ast argument */
+					 0,			/* blocking ast */
+					 0,			/* access mode */
+					 0);
+
+	if (!(status & 1))
+		lib$signal(status);
+
+	if (!CSS_lksb.lksb_status)
+		ISC_wait(&CSS_lksb.lksb_status, EVENT_FLAG);
+#else
+
+	if (mutex_state = ISC_mutex_lock(CSS_region->csh_mutex))
+		mutex_bugcheck("mutex lock", mutex_state);
+
+#endif
+
+#ifdef DEBUG
+	if (CSS_region->csh_current_process)
+		punt("CSS_acquire: another process has region acquired");
+#endif
+
+	CSS_region->csh_current_process = CSS_process;
+	CSS_header = CSS_region;
+
+	if (CSS_header->csh_current_process != CSS_process)
+		punt("CSS_acquire: lost acquisition");
+
+	return CSS_header;
+}
+
+
+FRB CSS_alloc_message(USHORT type, int length)
+{
+/**************************************
+ *
+ *	C S S _ a l l o c _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a message in shared global region.  Leave the
+ *	region acquired until the subsequent CSS_put_message.
+ *
+ **************************************/
+	FRB block;
+
+	ACQUIRE;
+	block = alloc_global(type, length);
+
+	return block;
+}
+
+
+BLK CSS_alloc_local(USHORT type, USHORT length)
+{
+/**************************************
+ *
+ *	C S S _ a l l o c _ l o c a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a local piece of memory.
+ *
+ **************************************/
+	BLK block;
+	UCHAR *p, *end;
+
+	block = (BLK) gds__alloc((SLONG) length);
+
+	for (p = (UCHAR *) block, end = p + length; p < end;)
+		*p++ = 0;
+
+	block->blk_type = type;
+
+	return block;
+}
+
+
+#ifdef GATEWAY
+#ifndef PIPE_SERVER
+int CSS_check_partner( PTR connection_id, USHORT process_flags)
+{
+/**************************************
+ *
+ *	C S S _ c h e c k _ p a r t n e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make sure the process flags of a connection
+ *	match the specified flags.
+ *
+ **************************************/
+	CNCT connection;
+	PRB partner;
+	USHORT result;
+
+	ACQUIRE;
+	connection = (CNCT) ABS_PTR(connection_id);
+
+	if (!connection->cnct_partner) {
+		RELEASE;
+		return FALSE;
+	}
+
+	partner = (PRB) ABS_PTR(connection->cnct_partner);
+	result =
+		((partner->prb_flags & process_flags) ==
+		 process_flags) ? TRUE : FALSE;
+	RELEASE;
+
+	return result;
+}
+#endif
+#endif
+
+
+PTR CSS_connect(SLONG proc_offset)
+{
+/**************************************
+ *
+ *	C S S _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish communication connection between client (us) and server.
+ *
+ **************************************/
+	SLONG cnct_id;
+	CNCT connection, mirror;
+	PRB local, remote;
+
+	ACQUIRE;
+
+	local = (PRB) ABS_PTR(CSS_process);
+	remote = (PRB) ABS_PTR(proc_offset);
+
+	connection = (CNCT) alloc_global(type_cnct, sizeof(struct cnct));
+	connection->cnct_parent = CSS_process;
+	connection->cnct_partner = proc_offset;
+	insert_tail(&local->prb_connections, &connection->cnct_connections);
+
+	mirror = (CNCT) alloc_global(type_cnct, sizeof(struct cnct));
+	mirror->cnct_parent = proc_offset;
+	mirror->cnct_partner = CSS_process;
+	mirror->cnct_mirror = REL_PTR(connection);
+	insert_tail(&remote->prb_connections, &mirror->cnct_connections);
+
+	connection->cnct_mirror = REL_PTR(mirror);
+	cnct_id = REL_PTR(connection);
+	RELEASE;
+
+	return cnct_id;
+}
+
+
+PTR CSS_create_process(USHORT process_flag)
+{
+/**************************************
+ *
+ *	C S S _ c r e a t e _ p r o c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create process block unless it already exists.
+ *
+ **************************************/
+	PRB process, server;
+	SLONG semaphore;
+	SRQ *que;
+	UCHAR *p, *end;
+
+	if (CSS_process)
+		return (PTR) CSS_process;
+
+	ACQUIRE;
+
+#ifdef UNIX
+	if ((semaphore = alloc_semaphore()) == -1)
+		return NULL;
+#else
+	semaphore = 0;
+#endif
+
+	process = (PRB) alloc_global(type_prb, sizeof(struct prb));
+	process->prb_flags = process_flag;
+	process->prb_protocol_version = CSI_PROTOCOL_VERSION;
+	process->prb_semaphore = semaphore;
+	process->prb_process_number = ++CSS_header->csh_process_number;
+	process->prb_process_id = getpid();
+
+	insert_tail(&CSS_header->csh_processes, &process->prb_processes);
+	QUE_INIT(process->prb_connections);
+	QUE_INIT(process->prb_messages);
+	ISC_event_init(process->prb_event, CSS_header->csh_semid,
+				   process->prb_semaphore);
+	CSS_header->csh_current_process = CSS_process = REL_PTR(process);
+	RELEASE;
+
+	return (PTR) CSS_process;
+}
+
+
+void CSS_disconnect( SLONG cnct_id)
+{
+/**************************************
+ *
+ *	C S S _ d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break one side of a connection.  If the other side
+ *	is inactive, finish cleanup.
+ *
+ **************************************/
+
+	ACQUIRE;
+	disconnect(CSS_process, cnct_id);
+	RELEASE;
+}
+
+
+void CSS_free_global( FRB block)
+{
+/**************************************
+ *
+ *	C S S _ f r e e _ g l o b a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free a previous allocated block.
+ *
+ **************************************/
+
+	ACQUIRE;
+	free_global(block);
+	RELEASE;
+}
+
+
+void CSS_free_local( BLK block)
+{
+/**************************************
+ *
+ *	C S S _ f r e e _ l o c a l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	gds__free(block);
+}
+
+
+PTR CSS_find_process( SLONG process_number)
+{
+/**************************************
+ *
+ *	C S S _ f i n d _ p r o c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a process block based on a known number.  Since
+ *	independent processes are at work, process blocks can
+ *	disappear unexpectedly.  Looping through the blocks each
+ *	time let's us know if this has happened.
+ *
+ **************************************/
+	SRQ *que;
+	PRB process;
+	PTR offset;
+
+	ACQUIRE;
+	offset = 0;
+
+	QUE_LOOP(CSS_header->csh_processes, que) {
+		process = (PRB) ((UCHAR *) que - OFFSET(PRB, prb_processes));
+		if ((process->prb_flags & PRB_server) &&
+			process->prb_protocol_version == CSI_PROTOCOL_VERSION)
+			if (process->prb_process_number == process_number) {
+				offset = REL_PTR(process);
+				break;
+			}
+	}
+
+	RELEASE;
+
+	return offset;
+}
+
+
+MSG CSS_get_message(PTR partner, MSG old_message, SSHORT timeout)
+{
+/**************************************
+ *
+ *	C S S _ g e t _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get next available message.  If necessary, wait on event.  If
+ *	a partner connection id is given, wait for message from that
+ *	connection only; otherwise accept message from anybody.  If the
+ *	timeout is negative, return immediately if no message is pending.
+ *
+ **************************************/
+	PRB process;
+	MSG message;
+	CNCT connection;
+	SRQ *que;
+	SLONG count, status;
+	EVENT events;
+
+	if (timeout < 0 && acquire_count) {
+		resignal = TRUE;
+		return NULL;
+	}
+
+	ACQUIRE;
+
+	if (old_message)
+		free_global(old_message);
+
+	process = (PRB) ABS_PTR(CSS_process);
+	events = process->prb_event;
+
+/* If a timeout period has been specified, establish a timer.
+   A process block flag will be set if the timer goes off. 
+   This method permits only one active timer per process block. */
+
+	if (timeout > 0) {
+		process->prb_flags &= ~PRB_timeout;
+		set_timer(timeout, process);
+	}
+
+	for (;;) {
+		process->prb_flags &= ~PRB_signal_me;
+		QUE_LOOP(process->prb_messages, que) {
+			message = (MSG) ((UCHAR *) que - OFFSET(MSG, msg_que));
+			connection = (CNCT) ABS_PTR(message->msg_connection);
+			if (!partner || connection->cnct_mirror == partner)
+				goto got_one;
+		}
+		if (timeout < 0) {
+			RELEASE;
+			return NULL;
+		}
+		if (partner) {
+			connection = (CNCT) ABS_PTR(partner);
+			if (!connection->cnct_partner) {
+				if (timeout > 0)
+					cancel_timer(process);
+				RELEASE;
+				return NULL;
+			}
+		}
+		if (timeout > 0 && process->prb_flags & PRB_timeout) {
+			RELEASE;
+			return NULL;
+		}
+		count = ISC_event_clear(process->prb_event);
+		process->prb_flags |= PRB_signal_me;
+		RELEASE;
+		THREAD_EXIT;
+		ISC_event_wait(1, &events, &count, -1, 0, 0);
+		THREAD_ENTER;
+		ACQUIRE;
+		process = (PRB) ABS_PTR(CSS_process);
+		events = process->prb_event;
+	}
+
+  got_one:
+	message->msg_connection = connection->cnct_mirror;
+	remove_que(&message->msg_que);
+
+	if (timeout > 0)
+		cancel_timer(process);
+
+	RELEASE;
+
+	return message;
+}
+
+
+#ifdef PIPE_SERVER
+#ifdef GATEWAY
+CSH CSS_init(STATUS * status_vector, USHORT server_flag, TEXT * filename)
+{
+/**************************************
+ *
+ *	C S S _ i n i t		( g a t e w a y _ p i p e _ s e r v e r )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for access to shared global region.  Return
+ *	address of header if region exits, otherwise return NULL.
+ *
+ **************************************/
+	TEXT csi_file[128], *p;
+	int (*init_routine) ();
+#ifndef VMS
+	SH_MEM_T shmem_data;
+#endif
+	SLONG desc[2];
+	STATUS status;
+
+/* If we're already initialized, there's nothing to do */
+
+	if (CSS_region)
+		return CSS_region;
+
+	init_routine = server_flag ? init : NULL;
+
+	for (p = csi_file; *p = *filename++; p++);
+	for (filename = ".%s"; *p++ = *filename++;);
+	filename = csi_file;
+
+#ifdef VMS
+	shmem_data->sh_mem_system_flag = TRUE;
+#endif
+	if (!(CSS_header = ISC_map_file(status_vector,
+									filename, init_routine, 0,
+									CSI_DEFAULT_SIZE,
+									&shmem_data))) return NULL;
+
+	CSS_length = shmem_data.sh_mem_length_mapped;
+
+#ifdef VMS
+/* Strip off any device prefix. */
+
+	for (p = filename; *p; p++)
+		if (*p == ':' || *p == ']')
+			filename = p + 1;
+	ISC_make_desc(filename, desc, 0);
+
+	status = sys$enqw(EVENT_FLAG, LCK$K_NLMODE, &CSS_lksb, LCK$M_NODLCKWT, &desc, NULL,	/* Lock parent (not used) */
+					  0,		/* AST routine when granted */
+					  0, 0, NULL, NULL);
+
+	if (!(status & 1) || !((status = CSS_lksb.lksb_status) & 1)) {
+		error(status_vector, "sys$enqw", status);
+		return NULL;
+	}
+#endif
+
+	CSS_region = CSS_header;
+	gds__register_cleanup(exit_handler, 0);
+
+	return CSS_header;
+}
+#endif
+
+
+#ifndef GATEWAY
+CSH CSS_init(STATUS * status_vector, USHORT server_flag, SSHORT id)
+{
+/**************************************
+ *
+ *	C S S _ i n i t		( p i p e _ s e r v e r )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for access to shared global region.  Return
+ *	address of header if region exits, otherwise return NULL.
+ *
+ **************************************/
+	TEXT *filename, csi_file[128], *p;
+	int (*init_routine) ();
+	SH_MEM_T shmem_data;
+	SLONG desc[2];
+	STATUS status;
+
+/* If we're already initialized, there's nothing to do */
+
+	if (CSS_region)
+		return CSS_region;
+
+	init_routine = server_flag ? init : NULL;
+
+	if (!(filename = getenv("CSS_DEBUG")))
+		filename = CSI_FILE;
+
+#ifdef VMS
+	shmem_data->sh_mem_system_flag = FALSE;
+#endif
+#ifdef UNIX
+	shmem_data->sh_mem_semaphores = MAX_PROCESSES;
+#endif
+	if (!(CSS_header = ISC_map_file(status_vector,
+									filename, init_routine, 0,
+									CSI_DEFAULT_SIZE,
+									&shmem_data))) return NULL;
+
+	CSS_length = shmem_data.sh_mem_length_mapped;
+
+#ifdef VMS
+/* Strip off any device prefix. */
+
+	for (p = filename; *p; p++)
+		if (*p == ':' || *p == ']')
+			filename = p + 1;
+	ISC_make_desc(filename, desc, 0);
+
+	status = sys$enqw(EVENT_FLAG, LCK$K_NLMODE, &CSS_lksb, LCK$M_SYSTEM | LCK$M_NODLCKWT, &desc, NULL,	/* Lock parent (not used) */
+					  0,		/* AST routine when granted */
+					  0, 0, NULL, NULL);
+
+	if (!(status & 1) || !((status = CSS_lksb.lksb_status) & 1)) {
+		error(status_vector, "sys$enqw", status);
+		return NULL;
+	}
+#endif
+
+	CSS_region = CSS_header;
+	gds__register_cleanup(exit_handler, 0);
+
+	return CSS_header;
+}
+#endif
+#endif
+
+
+#ifndef PIPE_SERVER
+CSH CSS_init(STATUS * status_vector, USHORT server_flag)
+{
+/**************************************
+ *
+ *	C S S _ i n i t		( c e n t r a l _ s e r v e r )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for access to shared global region.  Return
+ *	address of header if region exits, otherwise return NULL.
+ *
+ **************************************/
+	TEXT *filename, *p;
+	int (*init_routine) ();
+	SH_MEM_T shmem_data;
+	SLONG desc[2];
+	STATUS status;
+
+/* If we're already initialized, there's nothing to do */
+
+	if (CSS_region)
+		return CSS_region;
+
+	init_routine = server_flag ? init : NULL;
+
+	if (!(filename = getenv("CSS_DEBUG")))
+		filename = CSI_FILE;
+
+#ifdef VMS
+	shmem_data.sh_mem_system_flag = FALSE;
+#endif
+#ifdef UNIX
+	shmem_data.sh_mem_semaphores = MAX_PROCESSES;
+#endif
+	if (!(CSS_header = ISC_map_file(status_vector,
+									filename, init_routine, 0,
+									CSI_DEFAULT_SIZE,
+									&shmem_data))) return NULL;
+
+	CSS_length = shmem_data.sh_mem_length_mapped;
+
+#ifdef VMS
+/* Strip off any device prefix. */
+
+	for (p = filename; *p; p++)
+		if (*p == ':' || *p == ']')
+			filename = p + 1;
+	ISC_make_desc(filename, desc, 0);
+
+	status = sys$enqw(EVENT_FLAG, LCK$K_NLMODE, &CSS_lksb, LCK$M_SYSTEM | LCK$M_NODLCKWT, &desc, NULL,	/* Lock parent (not used) */
+					  0,		/* AST routine when granted */
+					  0, 0, NULL, NULL);
+
+	if (!(status & 1) || !((status = CSS_lksb.lksb_status) & 1)) {
+		error(status_vector, "sys$enqw", status);
+		return NULL;
+	}
+#endif
+
+	CSS_region = CSS_header;
+	gds__register_cleanup(exit_handler, 0);
+
+	return CSS_header;
+}
+#endif
+
+
+void CSS_probe_processes(void)
+{
+/**************************************
+ *
+ *	C S S _ p r o b e _ p r o c e s s e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Probe to see if processes still exists.  If not, zap it.
+ *
+ **************************************/
+	SRQ *que, *next;
+	PRB process;
+	PTR ptr;
+	ULONG item;
+
+	QUE_LOOP(CSS_header->csh_processes, que) {
+		process = (PRB) ((UCHAR *) que - OFFSET(PRB, prb_processes));
+		ptr = REL_PTR(process);
+		if (ptr != CSS_process)
+			if (!ISC_check_process_existence
+				(process->prb_process_id, process->prb_group_id, FALSE)) {
+				que = (SRQ *) ABS_PTR(que->srq_backward);
+				delete_process(ptr);
+			}
+	}
+}
+
+
+int CSS_put_message( PTR connection_id, MSG message, MSG old_message)
+{
+/**************************************
+ *
+ *	C S S _ p u t _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post a message (formatted) to a given processes msg que.
+ *	Assume that the region has already been acquired by
+ *	CSS_alloc_message.
+ *
+ **************************************/
+
+	if (old_message)
+		free_global(old_message);
+
+	return put_message(connection_id, message, TRUE);
+}
+
+
+void CSS_release(void)
+{
+/**************************************
+ *
+ *	C S S _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release exclusive control of shared global region.
+ *
+ **************************************/
+	STATUS status;
+	int mutex_state;
+	PRB process;
+	SLONG pid, port;
+
+#ifdef DEBUG_VALIDATE
+	CSS_validate();
+#endif
+
+	if (!acquire_count || CSS_process
+		&& CSS_header->csh_current_process !=
+		CSS_process) punt("CSS_release: lost acquisition");
+
+	CSS_header->csh_current_process = 0;
+
+#ifndef MULTI_THREAD
+/* In case we get (or have gotten) signaled, save our
+   process id so we can signal ourselves */
+
+	process = (PRB) ABS_PTR(CSS_process);
+	pid = process->prb_process_id;
+#endif
+
+#ifdef VMS
+	status = sys$enqw(0,		/* event flag */
+					  LCK$K_NLMODE,	/* lock mode */
+					  &CSS_lksb,	/* Lock status block */
+					  LCK$M_CONVERT,	/* flags */
+					  0,		/* resource name */
+					  0,		/* parent id */
+					  0,		/* ast address */
+					  0,		/* ast argument */
+					  0,		/* blocking ast */
+					  0,		/* access mode */
+					  0);
+
+	if (!(status & 1))
+		lib$signal(status);
+#else
+
+	if (mutex_state = ISC_mutex_unlock(CSS_header->csh_mutex))
+		mutex_bugcheck("mutex unlock", mutex_state);
+
+#endif
+
+	CSS_header = (CSH) - 1;
+	--acquire_count;
+
+#ifndef GATEWAY
+#ifndef MULTI_THREAD
+	if (resignal) {
+		resignal = FALSE;
+		ISC_kill(pid, EVENT_SIGNAL);
+	}
+#endif
+#endif
+}
+
+
+#ifdef DEBUG_VALIDATE
+void CSS_validate(void)
+{
+/**************************************
+ *
+ *	C S S _ v a l i d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make sure everything looks ok.
+ *
+ **************************************/
+	SLONG offset;
+	HDR *block;
+	PTR next_free;
+
+/* Check consistency of global region (debugging only) */
+
+	next_free = 0;
+
+	for (offset = sizeof(struct csh); offset < CSS_header->csh_length;
+		 offset += block->hdr_length) {
+		block = (HDR *) ABS_PTR(offset);
+		if (!block->hdr_length || !block->hdr_type
+			|| block->hdr_type > type_msg) {
+			punt("bad block length or type");
+			break;
+		}
+		if (next_free)
+			if (offset == next_free)
+				next_free = 0;
+			else if (offset > next_free)
+				punt("bad free chain");
+		if (block->hdr_type == type_frb) {
+			next_free = ((FRB) block)->frb_next;
+			if (next_free >= CSS_header->csh_length)
+				punt("bad frb_next");
+		}
+	}
+
+	if (offset != CSS_header->csh_length)
+		punt("bad block length");
+}
+#endif
+
+
+#ifdef VMS
+static void acquire_ast(void)
+{
+/**************************************
+ *
+ *	a c q u i r e _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Completion ast for acquire.
+ *
+ **************************************/
+
+	sys$wake(0, 0);
+}
+#endif
+
+
+static FRB alloc_global( USHORT type, int length)
+{
+/**************************************
+ *
+ *	a l l o c _ g l o b a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block in shared global region.
+ *
+ **************************************/
+	PTR *ptr, *best;
+	FRB free;
+	SLONG tail, best_tail;
+
+	length = (length + 3) & ~3;
+	best = NULL;
+
+	for (ptr = &CSS_header->csh_free; (free = (FRB) ABS_PTR(*ptr)) && *ptr;
+		 ptr = &free->frb_next) {
+		tail = free->frb_header.hdr_length - length;
+		if (tail >= 0 && (!best || tail < best_tail)) {
+			best = ptr;
+			best_tail = tail;
+		}
+	}
+
+	if (!best) {
+		RELEASE;
+		gds__put_error("(CSS) alloc_global: space exhausted");
+		abort(1);
+	}
+
+	free = (FRB) ABS_PTR(*best);
+
+	if (best_tail < sizeof(struct frb))
+		*best = free->frb_next;
+	else {
+		free->frb_header.hdr_length -= length;
+		free = (FRB) ((UCHAR *) free + free->frb_header.hdr_length);
+		free->frb_header.hdr_length = length;
+	}
+
+	free->frb_header.hdr_type = type;
+
+	return free;
+}
+
+
+#ifdef UNIX
+static int alloc_semaphore(void)
+{
+/**************************************
+ *
+ *	a l l o c _ s e m a p h o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a no-longer needed (or newly allocated) semaphore.
+ *
+ **************************************/
+	SSHORT n, bit;
+	UCHAR *byte;
+
+	for (n = 0; n < MAX_PROCESSES; n++) {
+		byte = CSS_header->csh_semaphores + (n >> 3);
+		bit = 1 << (n & 7);
+		if (*byte & bit) {
+			*byte &= ~bit;
+			return n;
+		}
+	}
+
+	return -1;
+}
+#endif
+
+
+#ifdef VMS
+static void cancel_timer( PRB process)
+{
+/**************************************
+ *
+ *	c a n c e l _ t i m e r 	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel an unexpired timer.
+ *
+ **************************************/
+
+	if (!(process->prb_flags & PRB_timeout))
+		sys$cantim(process, 0);
+}
+#endif
+
+
+#ifndef VMS
+static void cancel_timer( PRB process)
+{
+/**************************************
+ *
+ *	c a n c e l _ t i m e r 	( g e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel an unexpired timer.
+ *
+ **************************************/
+}
+#endif
+
+
+static void delete_process( SLONG process_offset)
+{
+/**************************************
+ *
+ *	d e l e t e _ p r o c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a process block including friends and relations.
+ *
+ **************************************/
+	PRB process;
+	MSG message;
+
+	process = (PRB) ABS_PTR(process_offset);
+
+/* Eliminate all connections */
+
+	while (!QUE_EMPTY(process->prb_connections))
+		disconnect(process_offset,
+				   process->prb_connections.srq_forward - OFFSET(CNCT,
+																 cnct_connections));
+
+/* Eliminating any messages */
+
+	while (!QUE_EMPTY(process->prb_messages)) {
+		message =
+			(MSG) ABS_PTR(process->prb_messages.srq_forward -
+						  OFFSET(MSG, msg_que));
+		remove_que(&message->msg_que);
+		free_global(message);
+	}
+
+#ifdef UNIX
+/* Release semaphore */
+
+	release_semaphore(process->prb_semaphore);
+#endif
+
+/* Untangle and release process block */
+
+	remove_que(&process->prb_processes);
+	free_global(process);
+
+	if (CSS_process == process_offset)
+		CSS_process = NULL;
+}
+
+
+static void disconnect( SLONG process_offset, SLONG cnct_id)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break one side of a connection.  If the other side
+ *	is inactive, finish cleanup.
+ *
+ **************************************/
+	CNCT connection, mirror;
+	MSG message;
+	PRB process, partner;
+	SRQ *que;
+
+	connection = (CNCT) ABS_PTR(cnct_id);
+	mirror = (CNCT) ABS_PTR(connection->cnct_mirror);
+	process = (PRB) ABS_PTR(process_offset);
+
+/* Purge message que of any traffic from connection */
+
+	QUE_LOOP(process->prb_messages, que) {
+		message = (MSG) ((UCHAR *) que - OFFSET(MSG, msg_que));
+		if (message->msg_connection == connection->cnct_mirror) {
+			que = (SRQ *) ABS_PTR(que->srq_backward);
+			remove_que(&message->msg_que);
+			free_global(message);
+		}
+	}
+
+/* Untangle the two connection blocks from our process block */
+
+	remove_que(&connection->cnct_connections);
+
+/* If the partner connection is still active, post a disconnect
+   message and break our side of the connection */
+
+	if (connection->cnct_partner) {
+		partner = (PRB) ABS_PTR(connection->cnct_partner);
+		partner->prb_flags |= PRB_signal_me;
+		message = (MSG) alloc_global(type_msg, sizeof(struct msg));
+		message->msg_type = MSG_disconnect;
+		put_message(cnct_id, message, FALSE);
+		mirror->cnct_partner = 0;
+		connection->cnct_parent = 0;
+	}
+	else {
+		free_global(connection);
+		free_global(mirror);
+	}
+}
+
+
+#ifdef DEBUG
+static void dump(void)
+{
+/**************************************
+ *
+ *	d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SRQ *que;
+	HDR *block;
+	PRB process;
+	MSG message;
+	FRB free;
+	CNCT connection;
+	SLONG offset;
+
+	printf("%.5d GLOBAL REGION HEADER\n", 0);
+	printf("\tLength: %ld, version: %d, free: %ld\n", CSS_region->csh_length,
+		   CSS_region->csh_version, CSS_region->csh_free);
+	printf("\tSemid: %ld, current process: %ld\n",
+		   CSS_region->csh_semid, CSS_region->csh_current_process);
+	dump_que("\tProcesses", &CSS_region->csh_processes);
+
+	for (offset = sizeof(struct csh); offset < CSS_region->csh_length;
+		 offset += block->hdr_length) {
+		printf("\n%.5ld ", offset);
+		block = (HDR *) ABS_PTR(offset);
+		switch (block->hdr_type) {
+		case type_prb:
+			printf("PROCESS_BLOCK (%ld)\n", block->hdr_length);
+			process = (PRB) block;
+			printf("\tProcess_id: %ld, flags: %d, protocol: %d\n",
+				   process->prb_process_id, process->prb_flags,
+				   process->prb_protocol_version);
+			printf("\tSemaphore: %d, group_id: %ld, number: %ld\n",
+				   process->prb_semaphore, process->prb_group_id,
+				   process->prb_process_number);
+			dump_que("\tProcesses", &process->prb_processes);
+			dump_que("\tConnections", &process->prb_connections);
+			dump_que("\tMessages", &process->prb_messages);
+			break;
+
+		case type_frb:
+			printf("FREE BLOCK (%ld)\n", block->hdr_length);
+			free = (FRB) block;
+			printf("\tNext: %ld\n", free->frb_next);
+			break;
+
+		case type_msg:
+			printf("MSG (%ld)\n", block->hdr_length);
+			message = (MSG) block;
+			printf("\tType: %d, connection: %ld\n", message->msg_type,
+				   message->msg_connection);
+			dump_que("\tMsg que", &message->msg_que);
+			break;
+
+		case type_cnct:
+			printf("CONNECTION (%ld)\n", block->hdr_length);
+			connection = (CNCT) block;
+			printf("\tParent: %ld, partner: %ld, mirror: %ld\n",
+				   connection->cnct_parent, connection->cnct_partner,
+				   connection->cnct_mirror);
+			dump_que("\tConnections", &connection->cnct_connections);
+			break;
+
+		default:
+			printf("*** UNKNOWN *** (%ld)\n", block->hdr_length);
+			break;
+		}
+		if (!block->hdr_length)
+			break;
+	}
+
+	return 1;
+}
+
+
+static void dump_que( UCHAR * string, SRQ * que)
+{
+/**************************************
+ *
+ *	d u m p _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print the contents of a self-relative que.
+ *
+ **************************************/
+	SLONG offset;
+
+	offset = REL_PTR(que);
+
+	if (offset == que->srq_forward && offset == que->srq_backward)
+		printf("%s: *empty*\n", string);
+	else
+		printf("%s: forward: %d, backward: %d\n",
+			   string, que->srq_forward, que->srq_backward);
+}
+#endif
+
+
+#ifdef VMS
+static void error( STATUS * status_vector, TEXT * string, STATUS status)
+{
+/**************************************
+ *
+ *	e r r o r 
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've encountered an error, report it.
+ *
+ **************************************/
+
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = gds__sys_request;
+	*status_vector++ = gds_arg_string;
+	*status_vector++ = (STATUS) string;
+	*status_vector++ = SYS_ARG;
+	*status_vector++ = status;
+	*status_vector++ = gds_arg_end;
+}
+#endif
+
+
+
+static void exit_handler( void *arg)
+{
+/**************************************
+ *
+ *	e x i t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cleanup on exit.
+ *
+ **************************************/
+
+	if (CSS_process) {
+		if (!acquire_count)
+			ACQUIRE;
+		delete_process(CSS_process);
+	}
+
+	while (acquire_count > 0)
+		RELEASE;
+
+#ifdef PIPE_SERVER
+#ifdef VMS
+	shutdown_section();
+#endif
+#endif
+
+#ifdef UNIX
+#ifndef MAP_TYPE
+	shmdt(CSS_region);
+#endif
+#endif
+
+	CSS_region = NULL;
+}
+
+
+static void free_global( FRB block)
+{
+/**************************************
+ *
+ *	f r e e _ g l o b a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free a previous allocated block.
+ *
+ **************************************/
+	PTR *ptr, offset;
+	FRB free, prior;
+
+	prior = NULL;
+	offset = REL_PTR(block);
+	block->frb_header.hdr_type = type_frb;
+
+	for (ptr = &CSS_header->csh_free; free = (FRB) ABS_PTR(*ptr);
+		 prior = free, ptr = &free->frb_next)
+		if (!*ptr) {
+			free = NULL;
+			break;
+		}
+		else if ((SCHAR HUGE_PTR *) block < (SCHAR HUGE_PTR *) free)
+			break;
+
+	if (offset <= 0 || offset > CSS_header->csh_length ||
+		(prior
+		 && (UCHAR HUGE_PTR *) block <
+		 (UCHAR HUGE_PTR *) prior + prior->frb_header.hdr_length)) {
+		punt("(CSS)free_global: bad block");
+		return;
+	}
+
+/* Start by linking block into chain */
+
+	block->frb_next = *ptr;
+	*ptr = offset;
+
+/* Try to merge free block with next block */
+
+	if (free
+		&& (SCHAR *) block + block->frb_header.hdr_length == (SCHAR *) free) {
+		block->frb_header.hdr_length += free->frb_header.hdr_length;
+		block->frb_next = free->frb_next;
+	}
+
+/* Next, try to merge the free block with the prior block */
+
+	if (prior
+		&& (SCHAR *) prior + prior->frb_header.hdr_length ==
+		(SCHAR *) block) {
+		prior->frb_header.hdr_length += block->frb_header.hdr_length;
+		prior->frb_next = block->frb_next;
+	}
+}
+
+
+static void init( void *arg, SH_MEM shmem_data, int initialize)
+{
+/**************************************
+ *
+ *	i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize global region header.
+ *
+ **************************************/
+	USHORT n;
+	UCHAR *p, *end;
+	FRB free;
+	int mutex_state;
+
+	if (!initialize)
+		return;
+
+	p = (UCHAR *) shmem_data->sh_mem_address;
+	for (end = p + sizeof(struct csh); p < end;)
+		*p++ = 0;
+
+	CSS_header = shmem_data->sh_mem_address;
+	CSS_header->csh_length = shmem_data->sh_mem_length_mapped;
+	CSS_header->csh_version = CSI_VERSION;
+	CSS_header->csh_semid = shmem_data->sh_mem_mutex_arg;
+	QUE_INIT(CSS_header->csh_processes);
+	if (mutex_state =
+		ISC_mutex_init(CSS_header->csh_mutex,
+					   shmem_data->
+					   sh_mem_mutex_arg)) mutex_bugcheck("mutex init",
+														 mutex_state);
+
+	free = (FRB) ((UCHAR *) CSS_header + sizeof(struct csh));
+	free->frb_header.hdr_length =
+		shmem_data->sh_mem_length_mapped - sizeof(struct csh);
+	free->frb_header.hdr_type = type_frb;
+	free->frb_next = 0;
+
+	CSS_header->csh_free = (UCHAR *) free - (UCHAR *) CSS_header;
+
+#ifdef UNIX
+/* Initialize free semaphore bit vector for UNIX.  Semaphore
+   0 is used implicitly for the mutex on the global section */
+
+	for (n = 1; n < shmem_data->sh_mem_semaphores; n++)
+		release_semaphore(n);
+#endif
+}
+
+
+static void insert_tail( SRQ * que, SRQ * node)
+{
+/**************************************
+ *
+ *	i n s e r t _ t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a node at the tail of a que.
+ *
+ **************************************/
+	SRQ *prior;
+
+	node->srq_forward = REL_PTR(que);
+	node->srq_backward = que->srq_backward;
+
+	prior = (SRQ *) ABS_PTR(que->srq_backward);
+	prior->srq_forward = REL_PTR(node);
+	que->srq_backward = REL_PTR(node);
+}
+
+
+static void mutex_bugcheck( UCHAR * string, int number)
+{
+/**************************************
+ *
+ *	m u t e x _ b u g c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disasterous mutex bug.  Issue message and abort process.
+ *
+ **************************************/
+	SCHAR msg[128];
+
+	sprintf(msg, "CSS error: %s, status: %d", string, number);
+	gds__log(msg);
+	fprintf(stderr, "%s\n", string);
+	abort();
+}
+
+
+static void punt( TEXT * string)
+{
+/**************************************
+ *
+ *	p u n t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	printf("(CSS)punt: global region corrupt -- %s\n", string);
+
+#ifdef DEBUG
+	dump();
+#endif
+}
+
+
+static int put_message( PTR connection_id, MSG message, int release_flag)
+{
+/**************************************
+ *
+ *	p u t _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post a message (formatted) to a given processes msg que.
+ *
+ **************************************/
+	CNCT connection;
+	PRB process;
+	int sig_flag;
+
+	connection = (CNCT) ABS_PTR(connection_id);
+
+	if (!connection->cnct_partner) {
+		free_global(message);
+		return FALSE;
+	}
+
+	message->msg_connection = connection_id;
+	process = (PRB) ABS_PTR(connection->cnct_partner);
+	insert_tail(&process->prb_messages, &message->msg_que);
+
+	if (release_flag)
+		RELEASE;
+
+	ISC_event_post(process->prb_event);
+
+#ifndef GATEWAY
+#ifndef MULTI_THREAD
+	if (message->msg_type == MSG_event)
+		ISC_kill(process->prb_process_id, EVENT_SIGNAL);
+#endif
+#endif
+
+	return TRUE;
+}
+
+
+#ifdef UNIX
+static void release_semaphore( USHORT semaphore)
+{
+/**************************************
+ *
+ *	r e l e a s e _ s e m a p h o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a no-longer needed (or newly allocated) semaphore.
+ *
+ **************************************/
+
+	CSS_header->csh_semaphores[semaphore >> 3] |= (1 << (semaphore & 7));
+}
+#endif
+
+
+static void remove_que( SRQ * node)
+{
+/**************************************
+ *
+ *	r e m o v e _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove a node from a self-relative que.
+ *
+ **************************************/
+	SRQ *que;
+
+	que = (SRQ *) ABS_PTR(node->srq_forward);
+	que->srq_backward = node->srq_backward;
+
+	que = (SRQ *) ABS_PTR(node->srq_backward);
+	que->srq_forward = node->srq_forward;
+	node->srq_forward = node->srq_backward = 0;
+}
+
+
+#ifdef VMS
+static void set_timer( USHORT timeout, PRB process)
+{
+/**************************************
+ *
+ *	s e t _ t i m e r 	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish a timer to go off after a specified period
+ *	of time.  The timeout period is given in seconds and
+ *	is assumed to be less than 3600 seconds.
+ *
+ **************************************/
+	UCHAR asc_time[10];
+	SLONG bin_time[2], desc[2];
+
+	sprintf(asc_time, "0 :%d:%d", timeout / 60, timeout % 60);
+	ISC_make_desc(asc_time, desc, 0);
+	if (sys$bintim(desc, bin_time) & 1)
+		sys$setimr(EVENT_FLAG, bin_time, timeout_ast, process, 0);
+}
+#endif
+
+
+#ifndef VMS
+static void set_timer( USHORT timeout, PRB process)
+{
+/**************************************
+ *
+ *	s e t _ t i m e r 	( g e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish a timer to go off after a specified period
+ *	of time.  The timeout period is given in seconds and
+ *	is assumed to be less than 3600 seconds.
+ *
+ **************************************/
+}
+#endif
+
+
+#ifdef PIPE_SERVER
+#ifdef VMS
+static void shutdown_section(void)
+{
+/**************************************
+ *
+ *	s h u t d o w n _ s e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove the mapped file.
+ *
+ **************************************/
+	struct FAB fab;
+
+/* Delete the shared address space and deassign the file. */
+
+	sys$deltva(shmem_data->sh_mem_retadr, 0, 0);
+	sys$dassgn((USHORT) shmem_data->sh_mem_channel);
+
+/* Now try to delete the file by opening it with the delete flag set. */
+
+	fab = cc$rms_fab;
+	fab.fab$l_fna = shmem_data->sh_mem_filename
+		fab.fab$b_fns = strlen(shmem_data->sh_mem_filename);
+	fab.fab$l_fop = FAB$M_DLT;
+	fab.fab$b_fac = FAB$M_UPD | FAB$M_PUT;
+	fab.fab$b_shr = FAB$M_SHRGET | FAB$M_SHRPUT | FAB$M_UPI;
+	fab.fab$b_rfm = FAB$C_UDF;
+
+	if (sys$open(&fab) & 1)
+		sys$dassgn(fab.fab$l_stv);
+}
+#endif
+#endif
+
+
+#ifdef VMS
+static void timeout_ast( PRB process)
+{
+/**************************************
+ *
+ *	t i m e o u t _ a s t		( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Completion ast for set_timer.
+ *
+ **************************************/
+
+	ACQUIRE;
+
+	process->prb_flags |= PRB_timeout;
+	ISC_event_post(process->prb_event);
+
+	RELEASE;
+}
+#endif
+
diff --git a/src/csv/css_proto.h b/src/csv/css_proto.h
new file mode 100644
index 0000000000..3cdfeeab18
--- /dev/null
+++ b/src/csv/css_proto.h
@@ -0,0 +1,52 @@
+/*
+ *	PROGRAM:	Central Server Interface
+ *	MODULE:		css_proto.h
+ *	DESCRIPTION:	Prototype header file for css.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _CSV_CSS_PROTO_H_
+#define _CSV_CSS_PROTO_H_
+
+extern CSH CSS_acquire(void);
+extern FRB CSS_alloc_message(USHORT, int);
+extern BLK CSS_alloc_local(USHORT, USHORT);
+extern int CSS_check_partner(PTR, USHORT);
+extern PTR CSS_connect(SLONG);
+extern PTR CSS_create_process(USHORT);
+extern void CSS_disconnect(SLONG);
+extern void CSS_free_global(FRB);
+extern void CSS_free_local(BLK);
+extern PTR CSS_find_process(SLONG);
+extern MSG CSS_get_message(PTR, MSG, SSHORT);
+#ifndef PIPE_SERVER
+extern CSH CSS_init(STATUS *, USHORT);
+#else
+#ifdef GATEWAY
+extern CSH CSS_init(STATUS *, USHORT, TEXT *);
+#else
+extern CSH CSS_init(STATUS *, USHORT, SSHORT);
+#endif
+#endif
+extern void CSS_probe_processes(void);
+extern int CSS_put_message(PTR, MSG, MSG);
+extern void CSS_release(void);
+extern void CSS_validate(void);
+
+#endif /* _CSV_CSS_PROTO_H_ */
diff --git a/src/csv/csu.cpp b/src/csv/csu.cpp
new file mode 100644
index 0000000000..564ad696aa
--- /dev/null
+++ b/src/csv/csu.cpp
@@ -0,0 +1,570 @@
+/*
+ *	PROGRAM:	Central Server
+ *	MODULE:		csu.c
+ *	DESCRIPTION:	Central Server Utility
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: csu.cpp,v 1.1.1.1 2001-05-23 13:25:33 tamlin Exp $
+*/
+
+#include "../csv/csi.h"
+#include "../jrd/license.h"
+#include "../jrd/codes.h"
+#include "../jrd/thd.h"
+#include "../csv/css_proto.h"
+#include "../jrd/gds_proto.h"
+
+#define ALLOC(type, length)	CSS_alloc_local (type, length)
+#define FREE(block)	CSS_free_local (block)
+
+static void move(UCHAR *, UCHAR *, USHORT);
+static void parse_command_line(int, TEXT **, USHORT *, CSN *, CSN *);
+static void process_list_cmd(PTR, USHORT *);
+static void process_nonlist_cmd(PTR, CSN);
+static STATUS process_response(MSG_RESP, STATUS *, USHORT *);
+
+static TEXT error_buffer[1024];
+static USHORT return_buffer_length;
+static UCHAR *return_buffer;
+
+
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Run the central server utility.
+ *
+ **************************************/
+	USHORT sw_list, listed_flag, flags;
+	CSN csv_enable_names, csv_other_names, cs_name;
+	STATUS status_vector[20];
+	SRQ *que;
+	PRB process;
+	PTR connection, server, client;
+	CSH CSS_header;
+	SLONG process_number, process_numbers[256], *ptr, *end;
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+	csv_enable_names = csv_other_names = NULL;
+	sw_list = FALSE;
+
+	THREAD_ENTER;
+	parse_command_line(argc, argv, &sw_list, &csv_enable_names,
+					   &csv_other_names);
+
+	if (!CSS_init(status_vector, FALSE)) {
+		printf("It's likely that no central servers are operating.\n");
+		gds__print_status(status_vector);
+		exit(FINI_ERROR);
+	}
+
+	client = CSS_create_process(PRB_client);
+
+/* Start by finding all server processes */
+
+	CSS_header = ACQUIRE;
+	CSS_probe_processes();
+
+	end = process_numbers;
+
+	QUE_LOOP(CSS_header->csh_processes, que) {
+		process = (PRB) ((UCHAR *) que - OFFSET(PRB, prb_processes));
+		server = REL_PTR(process);
+		if (client != server &&
+			(process->prb_flags & PRB_server) &&
+			process->prb_protocol_version == CSI_PROTOCOL_VERSION)
+			*end++ = process->prb_process_number;
+	}
+
+	RELEASE;
+
+/* Go back and talk to servers */
+
+/* Initialize a flag that indicates if anything has been listed */
+
+	listed_flag = FALSE;
+
+	for (ptr = process_numbers; ptr < end; ptr++) {
+		process_number = *ptr;
+		if (server = CSS_find_process(process_number)) {
+			connection = CSS_connect(server);
+
+			/* For each server name specified by the user, ask this
+			   server to process it. */
+
+			for (cs_name = csv_enable_names;
+				 cs_name && CSS_find_process(process_number);
+				 cs_name =
+				 cs_name->csn_next) process_nonlist_cmd(connection, cs_name);
+
+			/* For each database name specified by the user, ask this
+			   server to process it. */
+
+			for (cs_name = csv_other_names;
+				 cs_name && CSS_find_process(process_number);
+				 cs_name = cs_name->csn_next) if (cs_name->csn_flags)
+					process_nonlist_cmd(connection, cs_name);
+
+			/* We may also need to do a list of this server's databases */
+
+			if (sw_list && CSS_find_process(process_number))
+				process_list_cmd(connection, &listed_flag);
+
+			CSS_disconnect(connection);
+		}
+	}
+
+	if (sw_list && !listed_flag)
+		printf("\nNo central servers are operating.\n\n");
+
+	for (cs_name = csv_other_names; cs_name; cs_name = cs_name->csn_next)
+		if ((flags = cs_name->csn_flags) && !(flags & DBN_cmd_process)) {
+			printf("Database \"%s\" ", cs_name->csn_db_name);
+			if (cs_name->csn_cs_len)
+				printf("running on server\n   \"%s\" could not be ",
+					   cs_name->csn_cs_name);
+			else
+				printf("could not be\n   ");
+			printf("found and so it was not %sed.\n",
+				   (flags & DBN_reenable) ? "re-enabl" : (flags & DBN_kill) ?
+				   "kill" : "disabl");
+		}
+
+	for (cs_name = csv_enable_names; cs_name; cs_name = cs_name->csn_next)
+		if (!(cs_name->csn_flags & DBN_cmd_process))
+			printf
+				("Server \"%s\" could not be found and so database\n   \"%s\" was not enabled.\n",
+				 cs_name->csn_cs_name, cs_name->csn_db_name);
+
+	exit(FINI_OK);
+}
+
+
+static void move( UCHAR * from_ptr, UCHAR * to_ptr, USHORT length)
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move some bytes.
+ *
+ **************************************/
+	USHORT l;
+	UCHAR *from, *to;
+
+	from = from_ptr;
+	to = to_ptr;
+
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+}
+
+
+static void parse_command_line(
+							   int argc,
+							   TEXT ** argv,
+							   USHORT * sw_list,
+							   CSN * csv_enable_names, CSN * csv_other_names)
+{
+/**************************************
+ *
+ *	p a r s e _ c o m m a n d _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a Unix style command line.
+ *
+ **************************************/
+	USHORT sw_enable, sw_name, sw_all, dbn_flag, all_flag;
+	USHORT length, listed_flag, csv_name_len;
+	TEXT **end, *p, c, expanded_name[256], *q, csv_name[256];
+	CSN other_names, enable_names, name, *head;
+
+	other_names = enable_names = NULL;
+	dbn_flag = all_flag = sw_enable = 0;
+	sw_name = FALSE;
+
+	for (end = argv++ + argc; argv < end;) {
+		p = *argv++;
+		if (*p++ == '-') {
+			/* Clear -a, -e, and -n indicators for each new switch.  Clear -d,
+			   -k, and -r indicators except when the switch is "-a" or "-n". */
+
+			sw_name = sw_all = FALSE;
+			if (((c = UPPER(*p)) != 'A' && c != 'N') || *(p + 1) || sw_enable)
+				dbn_flag = 0;
+			sw_enable = csv_name_len = 0;
+
+			while (c = *p++)
+				switch (UPPER(c)) {
+				case 'L':
+					*sw_list = TRUE;
+					break;
+
+				case 'D':
+					dbn_flag |= DBN_disable;
+					break;
+
+				case 'K':
+					dbn_flag |= DBN_kill;
+					break;
+
+				case 'R':
+					dbn_flag |= DBN_reenable;
+					break;
+
+				case 'E':
+					sw_enable = 1;
+					break;
+
+				case 'A':
+					sw_all = TRUE;
+					break;
+
+				case 'N':
+					sw_name = TRUE;
+					break;
+
+				case 'Z':
+					printf("csu version %s\n", GDS_VERSION);
+					break;
+				}
+
+			if (sw_enable && (dbn_flag || sw_all || sw_name)) {
+				printf
+					("The -e switch may only be used in conjunction with\nthe -l and -z switches.\n");
+				exit(FINI_ERROR);
+			}
+			else if (sw_all)
+				if (!dbn_flag)
+					printf
+						("No command indicated with the -a switch. It will be ignored.\n");
+				else {
+					all_flag |= dbn_flag;
+					dbn_flag = 0;
+				}
+		}
+		else if (!dbn_flag && !sw_enable && !sw_name)
+			printf
+				("No command indicated for database \"%s\".\nThe name will be ignored.\n",
+				 p - 1);
+		else {
+			if (sw_enable == 1 || sw_name) {
+				if ((length = strlen(--p)) >= sizeof(csv_name))
+					length = sizeof(csv_name) - 1;
+				csv_name_len = length;
+				for (q = csv_name; length--;) {
+					c = *p++;
+					*q++ = UPPER(c);
+				}
+				if (sw_name)
+					sw_name = FALSE;
+				else
+					sw_enable++;
+				continue;
+			}
+
+			length = ISC_expand_filename(p - 1, 0, expanded_name);
+
+#ifdef VMS
+			/* The next expansion is Gateway specific but we'll do it
+			   for everyone.  Since '@' isn't valid in a VMS filename,
+			   this is ok. */
+
+			/* Look for an '@' after the first SCHARacter in expanded_name.
+			   If one is found, try to expand the remainder of the string. */
+
+			if (*(p = expanded_name) != '@')
+				while (*p)
+					if (*p++ == '@' && *p) {
+						length =
+							ISC_expand_logical(p,
+											   length - (p - expanded_name),
+											   p) + (p - expanded_name);
+						break;
+					}
+#endif
+			csv_name[csv_name_len] = 0;
+
+			head = (sw_enable) ? &enable_names : &other_names;
+			for (name = *head; name; name = name->csn_next)
+				if (!strcmp(name->csn_db_name, expanded_name) &&
+					!strcmp(name->csn_cs_name, csv_name))
+					break;
+
+			if (!name) {
+				name =
+					(CSN) ALLOC(type_csn,
+								sizeof(struct csn) + length + csv_name_len);
+				name->csn_next = *head;
+				*head = name;
+				name->csn_cs_name = name->csn_data;
+				name->csn_db_name = name->csn_data + csv_name_len + 1;
+				move(csv_name, name->csn_cs_name, csv_name_len + 1);
+				move(expanded_name, name->csn_db_name, length + 1);
+				name->csn_cs_len = csv_name_len;
+				name->csn_db_len = length;
+			}
+
+			name->csn_flags |= (sw_enable) ? DBN_enable : dbn_flag;
+		}
+	}
+
+	if (all_flag) {
+		/* We're to do something to all central server databases.
+		   But first, make sure we won't try to do the same thing
+		   or something similar to a specific database.  Reenable
+		   takes precedence over kill and disable.  Kill takes
+		   precedence over disable. */
+
+		if (all_flag & DBN_reenable)
+			all_flag |= DBN_kill | DBN_disable;
+		else if (all_flag & DBN_kill)
+			all_flag |= DBN_disable;
+
+		for (name = other_names; name; name = name->csn_next)
+			name->csn_flags &= ~all_flag;
+
+		/* The -a switch gets saved as a name with a zero length */
+
+		name = (CSN) ALLOC(type_csn, sizeof(struct csn));
+		name->csn_next = other_names;
+		other_names = name;
+		name->csn_cs_name = name->csn_db_name = name->csn_data;
+		name->csn_cs_len = name->csn_db_len = 0;
+		name->csn_flags = all_flag;
+	}
+
+	*csv_other_names = other_names;
+	*csv_enable_names = enable_names;
+}
+
+
+static void process_list_cmd( PTR connection, USHORT * listed_flag)
+{
+/**************************************
+ *
+ *	p r o c e s s _ l i s t _ c m d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a list command for a server.
+ *
+ **************************************/
+	MSG_UTIL message;
+	MSG_RESP response;
+	STATUS status_vector[20];
+	USHORT l;
+	CSU_LIST list_msg;
+
+	message = (MSG_UTIL) CSS_alloc_message(type_msg, sizeof(struct msg_util));
+	message->msg_util_header.msg_type = MSG_util_cmd;
+	message->msg_util_cmd = UTIL_list;
+	message->msg_util_csn_len = message->msg_util_dbn_len = 0;
+
+	if (!CSS_put_message(connection, message, 0) ||
+		!(response = CSS_get_message(connection, 0, 0)))
+		return;
+
+	if (!process_response(response, status_vector, 0)) {
+		list_msg = (CSU_LIST) return_buffer;
+
+		/* Print a header before the first name listed */
+
+		if (!*listed_flag) {
+			printf("\nServer\n\tAttaches Flags Database Name\n\n");
+			*listed_flag = TRUE;
+		}
+
+		/* Print the server name */
+
+		printf("%s\n", list_msg->csu_list_name);
+		list_msg =
+			(CSU_LIST) (list_msg->csu_list_name +
+						FB_ALIGN(list_msg->csu_list_length + 1, 2));
+
+		/* Loop over returned database name info */
+
+		while (l = list_msg->csu_list_length) {
+			printf("\t%7d%s %c %c  %s\n", list_msg->csu_list_attaches,
+				   (list_msg->csu_list_flags & DBN_server_att) ? "+s" : "  ",
+				   (list_msg->csu_list_flags & DBN_disable) ? 'D' : ' ',
+				   (list_msg->csu_list_flags & DBN_kill) ? 'K' : ' ',
+				   list_msg->csu_list_name);
+			list_msg =
+				(CSU_LIST) (list_msg->csu_list_name + FB_ALIGN(l + 1, 2));
+		}
+	}
+	else if (status_vector[1] != gds__unavailable) {
+	/**** DO SOMETHING MORE INTELLIGENT ****/
+	}
+}
+
+
+static void process_nonlist_cmd( PTR connection, CSN cs_name)
+{
+/**************************************
+ *
+ *	p r o c e s s _ n o n l i s t _ c m d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a disable, enable, kill, or re-enable command
+ *	for a server.
+ *
+ **************************************/
+	SLONG length;
+	MSG_UTIL message;
+	MSG_RESP response;
+	USHORT l, cmd;
+	STATUS status_vector[20];
+
+	l = cs_name->csn_cs_len + cs_name->csn_db_len;
+	length = sizeof(struct msg_util) + l;
+	message = (MSG_UTIL) CSS_alloc_message(type_msg, (int) length);
+	message->msg_util_header.msg_type = MSG_util_cmd;
+	if (cs_name->csn_flags & DBN_enable)
+		cmd = UTIL_enable;
+	else if (cs_name->csn_flags & DBN_reenable)
+		cmd = UTIL_reenable;
+	else if (cs_name->csn_flags & DBN_kill)
+		cmd = UTIL_kill;
+	else
+		cmd = UTIL_disable;
+	message->msg_util_cmd = cmd;
+	message->msg_util_csn_len = cs_name->csn_cs_len;
+	message->msg_util_dbn_len = cs_name->csn_db_len;
+	move(cs_name->csn_data, message->msg_util_data, l + 2);
+
+	if (!CSS_put_message(connection, message, 0) ||
+		!(response = CSS_get_message(connection, 0, 0)))
+		return;
+
+	if (!process_response(response, status_vector, 0)) {
+		/* Set a flag to indicate that a central server has processed
+		   the command relating to this server and database name */
+
+		cs_name->csn_flags |= DBN_cmd_process;
+	}
+	else if (status_vector[1] != gds__unavailable)
+		if (cs_name->csn_flags & DBN_enable) {
+			printf
+				("Server \"%s\" could not enable database \"%s\" because:\n",
+				 cs_name->csn_cs_name, cs_name->csn_db_name);
+			gds__print_status(status_vector);
+			cs_name->csn_flags |= DBN_cmd_process;
+		}
+		else {
+	/**** DO SOMETHING MORE INTELLIGENT ****/
+		}
+}
+
+
+static STATUS process_response(
+							   MSG_RESP message,
+							   STATUS * user_status, USHORT * return_length)
+{
+/**************************************
+ *
+ *	p r o c e s s _ r e s p o n s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a response packet from server.
+ *
+ **************************************/
+	TEXT *p, *q;
+	STATUS *status, *stuff, *end;
+	USHORT l;
+
+/* If there isn't a message, the server has disappeared */
+
+	if (!message || message->msg_resp_header.msg_type != MSG_response) {
+		status = user_status;
+		*status++ = gds_arg_gds;
+		*status++ = gds__random;
+		*status++ = gds_arg_string;
+		*status++ = (STATUS) "connection lost to central server";
+		*status = gds_arg_end;
+		return user_status[1];
+	}
+
+/* Well, at least we got something -- eat it up */
+
+	p = error_buffer;
+
+	for (status = user_status, end = status + 20, stuff =
+		 message->msg_resp_status; (*status = *stuff++) && status < end;)
+		switch (*status++) {
+		case gds_arg_interpreted:
+		case gds_arg_string:
+			q = (TEXT *) message + *stuff++;
+			*status++ = (STATUS) p;
+			while (*p++ = *q++);
+			break;
+
+		case gds_arg_cstring:
+			l = *status++ = *stuff++;
+			q = (TEXT *) message + *stuff++;
+			*status++ = (STATUS) p;
+			if (l)
+				do
+					*p++ = *q++;
+				while (--l);
+			break;
+
+		default:
+			*status++ = *stuff++;
+		}
+
+	if (!user_status[1] || user_status[1] == gds__segment) {
+		if (return_buffer_length < (l = message->msg_resp_length)) {
+			if (return_buffer)
+				FREE(return_buffer);
+			return_buffer = (UCHAR *) ALLOC(0, l);
+			return_buffer_length = l;
+		}
+		if (l)
+			move(message->msg_resp_data, return_buffer, l);
+		if (return_length)
+			*return_length = l;
+	}
+
+	CSS_free_global(message);
+
+	return user_status[1];
+}
diff --git a/src/csv/csv.cpp b/src/csv/csv.cpp
new file mode 100644
index 0000000000..4714f53700
--- /dev/null
+++ b/src/csv/csv.cpp
@@ -0,0 +1,3612 @@
+/*
+ *	PROGRAM:	Central Server
+ *	MODULE:		csv.c
+ *	DESCRIPTION:	Central Server
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: csv.cpp,v 1.1.1.1 2001-05-23 13:25:34 tamlin Exp $
+*/
+
+#include "../jrd/ib_stdio.h"
+#include "../csv/csi.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/license.h"
+#include "../csv/css_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../remote/merge_proto.h"
+
+#ifdef PIPE_SERVER
+#ifdef VMS
+#include "../jrd/lnmdef.h"
+#include jpidef
+#include descrip
+#endif
+
+#endif
+
+#define ALLOC(type, length)	CSS_alloc_local (type, length)
+#define FREE(block)		CSS_free_local (block)
+#define EVENT_FLAG		65
+
+static void allocate_statement(MSG_OP);
+static void alt_connection(MSG_OP);
+static void attach_database(MSG_ATT);
+#ifndef PIPE_SERVER
+static STATUS attach_for_servicing(DBN, STATUS *, USHORT);
+#endif
+static void cancel_events(MSG_OP);
+static void check_if_done(DBN);
+static void compile(MSG_OP);
+static void ddl(MSG_DDL);
+static void disable_or_kill(DBN, USHORT);
+static void disconnect(PTR);
+
+#ifndef GATEWAY
+static void drop_database(MSG_OP);
+#endif
+
+static void end_blob(MSG_OP);
+static void end_database(MSG_OP);
+static void end_request(MSG_OP);
+static void end_statement(MSG_OP);
+static void end_transaction(MSG_OP);
+static void execute_immediate(MSG_EXNOW);
+static void execute_statement(MSG_SQLMSG);
+#ifdef GATEWAY
+#ifndef PIPE_SERVER
+static int expand_filename(TEXT *, TEXT *);
+#endif
+#endif
+static void fetch(MSG_SQLMSG);
+static DBN find_dbname(TEXT *, USHORT, USHORT);
+static void free_buffer(UCHAR *, USHORT);
+static UCHAR *get_buffer(USHORT *);
+static void get_segment(MSG_SEG);
+static void get_slice(MSG_SLICE);
+static void info(MSG_INFO);
+static void insert(MSG_SQLMSG);
+static RTR make_transaction(RDB, HANDLE);
+#ifdef GATEWAY
+#ifndef PIPE_SERVER
+static void mdi_attach_db(MSG_OP);
+#endif
+#endif
+static void move(UCHAR *, UCHAR *, USHORT);
+static void multi_thread(void);
+static void open_blob(MSG_BLOB);
+static void ping(MSG_OP);
+static void prepare_statement(MSG_PSTMT);
+static void process_message(MSG);
+static void put_segment(MSG_SEG);
+static void put_slice(MSG_SLICE);
+static void que_events(MSG_EVENT);
+#ifdef GATEWAY
+#ifndef PIPE_SERVER
+static void query_connect(MSG_ATT);
+#endif
+#endif
+static void receive_msg(MSG_MSG);
+static void reconnect(MSG_OP);
+static void release_array(ARRAY);
+static void release_blob(RBL);
+static void release_database(RDB);
+static void release_request(RRQ);
+static void release_sql_request(RSR);
+static void release_transaction(RTR);
+static void seek_blob(MSG_SEEK);
+static void send_msg(MSG_MSG);
+static int send_response(MSG, STATUS *, SLONG, USHORT, UCHAR *);
+static void server_ast(EVNT, USHORT, UCHAR *);
+static void set_cursor(MSG_SETCUR);
+static void start(MSG_MSG);
+static void start_and_send(MSG_MSG);
+static void start_transaction(MSG_TRANS);
+static void server_utility(MSG_UTIL);
+#ifdef MULTI_THREAD
+static void thread(void);
+#endif
+static void transact_request(MSG_TRRQ);
+#ifdef PIPE_SERVER
+#ifdef VMS
+static void trans_logicals(void);
+#endif
+#endif
+static void unwind(MSG_OP);
+
+static RDB CSV_databases;
+static DBN CSV_dbnames;
+static TEXT *CSV_name;
+static USHORT CSV_name_len;
+static UCHAR *blob_buffer;
+static USHORT blob_buffer_length;
+static USHORT sw_attach, sw_version, num_buffers, sw_shutdown;
+
+static SLONG threads_waiting;
+
+/* Transaction element block */
+
+typedef struct teb {
+	SLONG *teb_database;
+	int teb_tpb_length;
+	UCHAR *teb_tpb;
+} TEB;
+
+typedef struct req {
+	struct req *req_next;
+	MSG req_message;
+} *REQ;
+
+static REQ request_que, free_requests;
+static EVENT_T thread_event[1];
+
+#ifdef PIPE_SERVER
+#ifdef VMS
+/* Define logical names that sub-process should inherit */
+
+static SCHAR *inherit_logicals[] = {
+	"SYS$LOGIN",
+	"SYS$SCRATCH",
+	"SYS$NODE",
+	"SYS$INTERBASE",
+	0
+};
+#endif
+#endif
+
+
+#ifndef GATEWAY
+#define GDS_ATTACH_DATABASE	gds__attach_database
+#define GDS_BLOB_INFO		gds__blob_info
+#define GDS_CANCEL_BLOB		gds__cancel_blob
+#define GDS_CLOSE_BLOB		gds__close_blob
+#define GDS_COMMIT		gds__commit_transaction
+#define GDS_COMMIT_RETAINING	gds__commit_retaining
+#define GDS_COMPILE		gds__compile_request
+#define GDS_CREATE_BLOB		gds__create_blob2
+#define GDS_CREATE_DATABASE	gds__create_database
+#define GDS_DATABASE_INFO	gds__database_info
+#define GDS_DDL			gds__ddl
+#define GDS_DETACH		gds__detach_database
+#define GDS_DROP_DATABASE	isc_drop_database
+#define GDS_GET_SEGMENT		gds__get_segment
+#define GDS_GET_SLICE		gds__get_slice
+#define GDS_OPEN_BLOB		gds__open_blob2
+#define GDS_PREPARE2		gds__prepare_transaction2
+#define GDS_PUT_SEGMENT		gds__put_segment
+#define GDS_PUT_SLICE		gds__put_slice
+#define GDS_RECONNECT		gds__reconnect_transaction
+#define GDS_RECEIVE		gds__receive
+#define GDS_RELEASE_REQUEST	gds__release_request
+#define GDS_REQUEST_INFO	gds__request_info
+#define GDS_ROLLBACK		gds__rollback_transaction
+#define GDS_SEND		gds__send
+#define GDS_SEEK_BLOB		gds__seek_blob
+#define GDS_START_AND_SEND	gds__start_and_send
+#define GDS_START		gds__start_request
+#define GDS_START_MULTIPLE	gds__start_multiple
+#define GDS_START_TRANSACTION	gds__start_transaction
+#define GDS_TRANSACT_REQUEST	isc_transact_request
+#define GDS_TRANSACTION_INFO	gds__transaction_info
+#define GDS_UNWIND		gds__unwind_request
+#define GDS_QUE_EVENTS		gds__que_events
+#define GDS_CANCEL_EVENTS	gds__cancel_events
+
+#define GDS_DSQL_ALLOCATE	isc_dsql_allocate_statement
+#define GDS_DSQL_EXECUTE	isc_dsql_execute2_m
+#define GDS_DSQL_EXECUTE_IMMED	isc_dsql_exec_immed3_m
+#define GDS_DSQL_FETCH		isc_dsql_fetch_m
+#define GDS_DSQL_FREE		isc_dsql_free_statement
+#define GDS_DSQL_INSERT		isc_dsql_insert_m
+#define GDS_DSQL_PREPARE	isc_dsql_prepare_m
+#define GDS_DSQL_SET_CURSOR	isc_dsql_set_cursor_name
+#define GDS_DSQL_SQL_INFO	isc_dsql_sql_info
+#else
+#define GDS_ATTACH_DATABASE	GWAY_attach_database
+#define GDS_BLOB_INFO		GWAY_blob_info
+#define GDS_CANCEL_BLOB		GWAY_cancel_blob
+#define GDS_CLOSE_BLOB		GWAY_close_blob
+#define GDS_COMMIT		GWAY_commit_transaction
+#define GDS_COMMIT_RETAINING	GWAY_commit_retaining
+#define GDS_COMPILE		GWAY_compile_request
+#define GDS_CREATE_BLOB		GWAY_create_blob2
+#define GDS_CREATE_DATABASE	GWAY_create_database
+#define GDS_DATABASE_INFO	GWAY_database_info
+#define GDS_DETACH		GWAY_detach_database
+#define GDS_GET_SEGMENT		GWAY_get_segment
+#define GDS_OPEN_BLOB		GWAY_open_blob2
+#define GDS_PREPARE2		GWAY_prepare_transaction
+#define GDS_PUT_SEGMENT		GWAY_put_segment
+#define GDS_RECONNECT		GWAY_reconnect_transaction
+#define GDS_RECEIVE		GWAY_receive
+#define GDS_RELEASE_REQUEST	GWAY_release_request
+#define GDS_REQUEST_INFO	GWAY_request_info
+#define GDS_ROLLBACK		GWAY_rollback_transaction
+#define GDS_SEEK_BLOB		GWAY_seek_blob
+#define GDS_SEND		GWAY_send
+#define GDS_START_AND_SEND	GWAY_start_and_send
+#define GDS_START		GWAY_start_request
+#define GDS_START_MULTIPLE	GWAY_start_multiple
+#define GDS_START_TRANSACTION	GWAY_start_transaction
+#define GDS_TRANSACT_REQUEST	GWAY_transact_request
+#define GDS_TRANSACTION_INFO	GWAY_transaction_info
+#define GDS_UNWIND		GWAY_unwind_request
+#define GDS_QUE_EVENTS		GWAY_que_events
+#define GDS_CANCEL_EVENTS	GWAY_cancel_events
+#define GDS_DDL			GWAY_ddl
+#endif
+
+
+#ifndef PIPE_SERVER
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n		( c e n t r a l _ s e r v e r )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start up central server.
+ *
+ **************************************/
+	MSG message;
+	STATUS status_vector[20];
+	USHORT sw_multi, sw_name, sw_buffers, sw_limit, length;
+	TEXT **end, *p, *q, c, expanded_name[256], dflt_name[16];
+	DBN db_name;
+	CSH CSS_header;
+	PRB process;
+	SLONG debug_value;
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+	THREAD_ENTER;
+
+#ifndef GATEWAY
+	gds__enable_subsystem("GDSSHR");
+	gds__enable_subsystem("GDSSHR5");
+	num_buffers = 500;			/* choose a liberal number of buffers */
+#else
+	num_buffers = 0;
+#endif
+
+#ifdef MULTI_THREAD
+	sw_multi = TRUE;
+#else
+	sw_multi = FALSE;
+#endif
+
+	sw_attach = sw_version = FALSE;
+	sw_name = sw_buffers = sw_limit = FALSE;
+
+	for (end = argv++ + argc; argv < end;) {
+		p = *argv++;
+		if (*p == '-') {
+			sw_name = sw_buffers = sw_limit = FALSE;
+			while (c = *++p)
+				switch (UPPER(c)) {
+#ifdef MULTI_THREAD
+				case 'M':
+					sw_multi = TRUE;
+					break;
+
+				case 'S':
+					sw_multi = FALSE;
+					break;
+#endif
+
+				case 'A':
+					sw_attach = TRUE;
+					break;
+
+				case 'N':
+					sw_name = TRUE;
+					break;
+
+				case 'B':
+					sw_buffers = TRUE;
+					break;
+
+				case 'L':
+					sw_limit = TRUE;
+					break;
+
+
+				case 'Z':
+					if (!sw_version)
+						printf("csv version %s\n", GDS_VERSION);
+					sw_version = TRUE;
+					break;
+				}
+		}
+		else if (!sw_name && !sw_buffers && !sw_limit) {
+#ifndef GATEWAY
+			length = ISC_expand_filename(p, 0, expanded_name);
+#else
+			if (!(length = expand_filename(p, expanded_name))) {
+				printf
+					("%s is not a database that can be serviced\nby this central server.\n",
+					 expanded_name);
+				exit(FINI_ERROR);
+			}
+#endif
+			db_name = (DBN) ALLOC(type_dbn, sizeof(struct dbn) + length);
+			db_name->dbn_next = CSV_dbnames;
+			CSV_dbnames = db_name;
+			move(expanded_name, db_name->dbn_name, length + 1);
+			db_name->dbn_length = length;
+		}
+		else {
+			if (sw_name) {
+				CSV_name_len = length = strlen(p);
+				CSV_name = q = (TEXT *) ALLOC(0, CSV_name_len + 1);
+				do {
+					c = *p++;
+					*q++ = UPPER(c);
+				}
+				while (length--);
+			}
+
+			if (sw_buffers)
+				num_buffers = atoi(p);
+
+			if (sw_limit && CSV_dbnames)
+				CSV_dbnames->dbn_max_attaches = atoi(p);
+
+			sw_name = sw_buffers = sw_limit = FALSE;
+		}
+	}
+
+	if (!(CSS_header = CSS_init(status_vector, TRUE))) {
+		gds__print_status(status_vector);
+		exit(FINI_ERROR);
+	}
+
+	if (sw_attach)
+		for (db_name = CSV_dbnames; db_name; db_name = db_name->dbn_next)
+			if (attach_for_servicing(db_name, status_vector, TRUE)) {
+				gds__print_status(status_vector);
+				exit(FINI_ERROR);
+			}
+
+#ifndef GATEWAY
+	process = (PRB) ABS_PTR(CSS_create_process(PRB_server));
+#else
+	process = (PRB) ABS_PTR(CSS_create_process(PRB_server | PRB_server_t1));
+#endif
+
+	if (!CSV_name) {
+		sprintf(dflt_name, "CSV_%ld", process->prb_process_number);
+		CSV_name = dflt_name;
+		CSV_name_len = strlen(CSV_name);
+	}
+
+	if (sw_multi)
+		multi_thread();
+	else
+		while (!sw_shutdown) {
+			message = CSS_get_message((SLONG) 0, 0, 0);
+			process_message(message);
+		}
+}
+#endif
+
+
+#ifdef PIPE_SERVER
+#ifndef GATEWAY
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n		( p i p e _ s e r v e r )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start up single user server.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	CSH CSS_header;
+	SRQ *que;
+	PRB process;
+	PTR connection, server, client;
+	MSG_RESP response;
+	MSG message;
+	SSHORT parent_pin;
+
+	THREAD_ENTER;
+
+	gds__enable_subsystem("GDSSHR");
+	gds__enable_subsystem("GDSSHR5");
+
+	parent_pin = FATHER();
+
+	if (!(CSS_header = CSS_init(status_vector, FALSE, parent_pin))) {
+		gds__print_status(status_vector);
+		exit(FINI_ERROR);
+	}
+
+	client = (PRB) ABS_PTR(CSS_create_process(PRB_client));
+
+	CSS_header = ACQUIRE;
+	server = (PTR) 0;
+
+	QUE_LOOP(CSS_header->csh_processes, que) {
+		process = (PRB) ((UCHAR *) que - OFFSET(PRB, prb_processes));
+		if (client != REL_PTR(process) &&
+			process->prb_protocol_version == CSI_PROTOCOL_VERSION &&
+			process->prb_process_id == parent_pin) {
+			server = REL_PTR(process);
+			break;
+		}
+	}
+
+	RELEASE;
+
+	if (!server) {
+		printf("Unable to find parent process.\n");
+		exit(FINI_ERROR);
+	}
+
+	connection = CSS_connect(server);
+	response = CSS_alloc_message(type_msg, sizeof(struct msg_resp));
+	response->msg_resp_header.msg_type = MSG_response;
+	response->msg_resp_length = 0;
+	if (CSS_put_message(connection, response, 0))
+		while (!sw_shutdown && (message = CSS_get_message((SLONG) 0, 0, 0)))
+			process_message(message);
+}
+#endif
+
+
+#ifdef GATEWAY
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n		( g a t e w a y _ p i p e _ s e r v e r )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start up single user server.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	TEXT csi_file[256], *p, *q;
+	CSH CSS_header;
+	SRQ *que;
+	PRB process;
+	PTR connection, server, client;
+	MSG_RESP response;
+	MSG message;
+	SLONG code;
+	USHORT len;
+	struct dsc$descriptor desc;
+
+	THREAD_ENTER;
+
+/* Create the name of the global section. */
+
+	trans_logicals();
+	q = csi_file - 1;
+	if (ISC_expand_logical_once
+		("SYS$LOGIN", sizeof("SYS$LOGIN") - 1, csi_file)) {
+		for (p = csi_file; *p; p++)
+			if (*p == ':' || *p == ']')
+				q = p;
+		if (q < csi_file)
+			*(q = p) = ':';
+	}
+	ISC_make_desc(++q, &desc, 15);
+	code = JPI$_PRCNAM;
+	if (!(lib$getjpi(&code, NULL, NULL, NULL, &desc, &len) & 1)) {
+		printf("Unable to find parent process.\n");
+		exit(FINI_ERROR);
+	}
+	q[len] = 0;
+	while (*q)
+		if (*q++ == '_') {
+			while (*q && *q != '_')
+				q++;
+			*q = 0;
+		}
+
+#ifdef ORACLE_ALT
+	strcpy(q, "_ALT");
+#endif
+
+	if (!(CSS_header = CSS_init(status_vector, FALSE, csi_file))) {
+		gds__print_status(status_vector);
+		exit(FINI_ERROR);
+	}
+
+	client = (PRB) ABS_PTR(CSS_create_process(0));
+
+	CSS_header = ACQUIRE;
+	server = (PTR) 0;
+
+	QUE_LOOP(CSS_header->csh_processes, que) {
+		process = (PRB) ((UCHAR *) que - OFFSET(PRB, prb_processes));
+		if (client != REL_PTR(process) &&
+			process->prb_flags & PRB_server &&
+			process->prb_protocol_version == CSI_PROTOCOL_VERSION) {
+			server = REL_PTR(process);
+			break;
+		}
+	}
+
+	RELEASE;
+
+	if (!server) {
+		printf("Unable to find parent process.\n");
+		exit(FINI_ERROR);
+	}
+
+	connection = CSS_connect(server);
+	response = CSS_alloc_message(type_msg, sizeof(struct msg_resp));
+	response->msg_resp_header.msg_type = MSG_response;
+	response->msg_resp_length = 0;
+	if (CSS_put_message(connection, response, 0))
+		while (message = CSS_get_message(connection, 0, 0))
+			process_message(message);
+
+/* If nothing was written to stderr, delete
+   the file.  Ditto about stdout. */
+
+	if (!ftell(stderr)) {
+		fgetname(stderr, csi_file);
+		fclose(stderr);
+		remove(csi_file);
+	}
+	if (!ftell(stdout)) {
+		fgetname(stdout, csi_file);
+		fclose(stdout);
+		remove(csi_file);
+	}
+}
+#endif
+#endif
+
+
+static void allocate_statement( MSG_OP message)
+{
+/**************************************
+ *
+ *	a l l o c a t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a statement handle.
+ *
+ **************************************/
+	RDB rdb;
+	RSR statement;
+	HANDLE handle;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_op_handle;
+	handle = NULL;
+
+	THREAD_EXIT;
+	GDS_DSQL_ALLOCATE(status_vector, &rdb->rdb_handle, &handle);
+	THREAD_ENTER;
+
+	if (!status_vector[1]) {
+		/* Allocate SQL request block */
+
+		statement = (RSR) ALLOC(type_rsr, sizeof(struct rsr));
+		statement->rsr_handle = handle;
+		statement->rsr_rdb = rdb;
+		statement->rsr_next = rdb->rdb_sql_requests;
+		rdb->rdb_sql_requests = statement;
+	}
+
+	send_response(message, status_vector, statement, 0, 0);
+}
+
+
+static void alt_connection( MSG_OP message)
+{
+/**************************************
+ *
+ *	a l t _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept a secondary connection for asynchronous events.
+ *
+ **************************************/
+	RDB rdb;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_op_handle;
+	rdb->rdb_connection2 = message->msg_op_header.msg_connection;
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+	send_response(message, status_vector, rdb, 0, 0);
+}
+
+
+static void attach_database( MSG_ATT message)
+{
+/**************************************
+ *
+ *	a t t a c h _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process an attach or create packet.
+ *
+ **************************************/
+	HANDLE handle;
+	STATUS status_vector[20], *sv;
+	RDB rdb;
+	TEXT *expanded_name;
+	UCHAR *dpb;
+	DBN db_name;
+
+/* Assume this is going to fail! */
+
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = gds__unavailable;
+	status_vector[2] = gds_arg_end;
+
+#ifdef GATEWAY
+#ifndef PIPE_SERVER
+/* Make sure we're willing to talk to this client */
+
+	if (!CSS_check_partner
+		(message->msg_att_header.msg_connection, PRB_client_t1)) {
+		send_response(message, status_vector, 0, 0, 0);
+		return;
+	}
+#endif
+#endif
+
+	handle = NULL;
+	expanded_name =
+		(TEXT *) message->msg_att_data + message->msg_att_file_length;
+	dpb =
+		message->msg_att_data + message->msg_att_file_length +
+		message->msg_att_expanded_length;
+
+	if (!
+		(db_name =
+		 find_dbname(expanded_name, message->msg_att_expanded_length, FALSE))
+|| (db_name->dbn_max_attaches
+	&& db_name->dbn_attaches >= db_name->dbn_max_attaches)) {
+		send_response(message, status_vector, 0, 0, 0);
+		return;
+	}
+
+/* Try initially with expanded name.  If that fails, try once more with
+   original name */
+
+	rdb = NULL;
+	THREAD_EXIT;
+
+	if (message->msg_att_header.msg_type == MSG_attach_database)
+		GDS_ATTACH_DATABASE(status_vector,
+							message->msg_att_expanded_length,
+							GDS_VAL(expanded_name),
+							GDS_REF(handle),
+							message->msg_att_dpb_length, GDS_VAL(dpb));
+	else
+		GDS_CREATE_DATABASE(status_vector,
+							message->msg_att_expanded_length,
+							GDS_VAL(expanded_name),
+							GDS_REF(handle),
+							message->msg_att_dpb_length, GDS_VAL(dpb), 0);
+
+	THREAD_ENTER;
+
+	if (!status_vector[1]) {
+		rdb = (RDB) ALLOC(type_rdb, sizeof(struct rdb));
+		rdb->rdb_handle = handle;
+		rdb->rdb_connection = message->msg_att_header.msg_connection;
+		rdb->rdb_dbn = db_name;
+		rdb->rdb_next = CSV_databases;
+		CSV_databases = rdb;
+		++db_name->dbn_attaches;
+	}
+
+	send_response(message, status_vector, rdb, 0, 0);
+}
+
+
+#ifndef PIPE_SERVER
+static STATUS attach_for_servicing(
+								   DBN db_name,
+								   STATUS * status_vector, USHORT detach_flag)
+{
+/**************************************
+ *
+ *	a t t a c h _ f o r _ s e r v i c i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attach a database that is to be serviced
+ *	by this central server.
+ *
+ **************************************/
+	TEXT dummy[128];
+	USHORT length;
+	HANDLE handle;
+	RDB rdb;
+	STATUS local_status[20];
+	SCHAR string[16], *dpb, *p;
+
+/* generate the proper database parameter block */
+
+	p = dpb = string;
+	if (num_buffers) {
+		*p++ = gds_dpb_version1;
+		*p++ = gds__dpb_num_buffers;
+		*p++ = 2;
+		*p++ = num_buffers;
+		*p++ = num_buffers >> 8;
+	}
+
+	handle = NULL;
+	length = (USHORT) (p - dpb);
+	THREAD_EXIT;
+	GDS_ATTACH_DATABASE(GDS_VAL(status_vector),
+						db_name->dbn_length,
+						GDS_VAL(db_name->dbn_name),
+						GDS_REF(handle), length, GDS_VAL(dpb));
+#ifndef GATEWAY
+	if (sw_version && !status_vector[1])
+		gds__version(&handle, NULL, NULL);
+#endif
+	THREAD_ENTER;
+
+	if (!status_vector[1]) {
+		db_name->dbn_server = rdb = (RDB) ALLOC(type_rdb, sizeof(struct rdb));
+		rdb->rdb_handle = handle;
+#ifdef GATEWAY
+		db_name->dbn_length =
+			FRGN_analyze_attach(db_name->dbn_name, db_name->dbn_name, dummy,
+								dummy);
+#endif
+		db_name->dbn_flags |= DBN_server_att;
+	}
+	else if (detach_flag) {
+		printf("Unable to attach to database %s.\n", db_name->dbn_name);
+		for (db_name = CSV_dbnames; db_name; db_name = db_name->dbn_next)
+			if (rdb = db_name->dbn_server) {
+				THREAD_EXIT;
+				GDS_DETACH(local_status, GDS_REF(rdb->rdb_handle));
+				THREAD_ENTER;
+				FREE(rdb);
+				db_name->dbn_server = NULL;
+			}
+	}
+
+	return status_vector[1];
+}
+#endif
+
+
+static void cancel_events( MSG_OP message)
+{
+/**************************************
+ *
+ *	c a n c e l _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to cancel an outstanding event.
+ *
+ **************************************/
+	RDB rdb;
+	EVNT event;
+	SLONG id;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_op_handle;
+	id = message->msg_op_level;
+	THREAD_EXIT;
+
+	if (!GDS_CANCEL_EVENTS(status_vector,
+						   GDS_REF(rdb->rdb_handle),
+						   GDS_REF(id)))
+			for (event = rdb->rdb_events; event; event = event->evnt_next)
+			if (event->evnt_id == id) {
+				event->evnt_id = 0;
+				break;
+			}
+
+	THREAD_ENTER;
+
+	send_response(message, status_vector, rdb, 0, 0);
+}
+
+
+static void check_if_done( DBN db_name)
+{
+/**************************************
+ *
+ *	c h e c k _ i f _ d o n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine whether central server can exit.
+ *	If it can, do so.
+ *
+ **************************************/
+	RDB rdb;
+	STATUS status_vector[20];
+	DBN *ptr;
+
+/* If the database isn't disabled, in the process of being
+   killed, or there are still attachments remaining, there's
+   nothing to do but return. */
+
+	if (!(db_name->dbn_flags & (DBN_disable | DBN_kill))
+		|| db_name->dbn_attaches) return;
+
+/* We're through with this database.  If the central server had
+   its own attachment, get rid of it. */
+
+	if (rdb = db_name->dbn_server) {
+		THREAD_EXIT;
+		GDS_DETACH(status_vector, GDS_REF(rdb->rdb_handle));
+		THREAD_ENTER;
+		FREE(rdb);
+	}
+
+/* Untangle database name block from global list of names */
+
+	for (ptr = &CSV_dbnames; *ptr; ptr = &(*ptr)->dbn_next)
+		if (*ptr == db_name) {
+			*ptr = db_name->dbn_next;
+			break;
+		}
+
+	FREE(db_name);
+
+/* If no more name blocks remain, it's time to go! */
+
+	if (!CSV_dbnames)
+		sw_shutdown = TRUE;
+}
+
+
+static void compile( MSG_OP message)
+{
+/**************************************
+ *
+ *	c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile and request.
+ *
+ **************************************/
+	RDB rdb;
+	RRQ request;
+	HANDLE handle;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_op_handle;
+	handle = NULL;
+	request = NULL;
+
+	THREAD_EXIT;
+	GDS_COMPILE(status_vector,
+				GDS_REF(rdb->rdb_handle),
+				GDS_REF(handle),
+				message->msg_op_length, message->msg_op_data);
+	THREAD_ENTER;
+
+	if (!status_vector[1]) {
+		request = (RRQ) ALLOC(type_rrq, sizeof(struct rrq));
+		request->rrq_handle = handle;
+		request->rrq_rdb = rdb;
+		request->rrq_next = rdb->rdb_requests;
+		rdb->rdb_requests = request;
+	}
+
+	send_response(message, status_vector, request, 0, 0);
+}
+
+
+static void ddl( MSG_DDL message)
+{
+/**************************************
+ *
+ *	d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do meta-data update.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_ddl_database;
+	transaction = (RTR) message->msg_ddl_transaction;
+
+	THREAD_EXIT;
+	GDS_DDL(status_vector,
+			GDS_REF(rdb->rdb_handle),
+			GDS_REF(transaction->rtr_handle),
+			message->msg_ddl_length, message->msg_ddl_data);
+	THREAD_ENTER;
+
+	send_response(message, status_vector, 0, 0, 0);
+}
+
+
+#ifndef PIPE_SERVER
+static void disable_or_kill( DBN db_name, USHORT cmd)
+{
+/**************************************
+ *
+ *	d i s a b l e _ o r _ k i l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disable, Kill, or Re-enable a database name for the
+ *	central server utility.
+ *
+ **************************************/
+	RDB *ptr, rdb;
+
+/* Set or clear the appropriate flag */
+
+	if (cmd == UTIL_reenable) {
+		db_name->dbn_flags &= ~DBN_disable;
+		return;
+	}
+
+	db_name->dbn_flags |= (cmd == UTIL_kill) ? DBN_kill : DBN_disable;
+
+/* Do a quick check to see if we're done */
+
+	check_if_done(db_name);
+
+	if (cmd == UTIL_disable)
+		return;
+
+/* For the kill command loop through the database attachments
+   and zap the ones attached to this database name */
+
+	for (ptr = &CSV_databases; rdb = *ptr;)
+		if (rdb->rdb_dbn == db_name)
+			disconnect(rdb->rdb_connection);
+		else
+			ptr = &(*ptr)->rdb_next;
+}
+#endif
+
+
+static void disconnect( PTR connection)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle a disconnect message.
+ *
+ **************************************/
+	RDB rdb;
+	RTR *ptr, transaction;
+	STATUS status_vector[20];
+
+/* Start by breaking connection to remote */
+
+	CSS_disconnect(connection);
+
+/* Find related database block.  If we can't find it, just
+   break connection.  Otherwise, shutdown the database */
+
+	for (rdb = CSV_databases; rdb; rdb = rdb->rdb_next)
+		if (rdb->rdb_connection == connection)
+			break;
+
+	if (!rdb)
+		return;
+
+/* Abort any outstanding, non-limbo transactions */
+
+	for (ptr = &rdb->rdb_transactions; transaction = *ptr;)
+		if (!(transaction->rtr_flags & RTR_limbo)) {
+			THREAD_EXIT;
+			GDS_ROLLBACK(status_vector, GDS_REF(transaction->rtr_handle));
+			THREAD_ENTER;
+			release_transaction(transaction);
+		}
+		else
+			ptr = &(*ptr)->rtr_next;
+
+	THREAD_EXIT;
+	GDS_DETACH(status_vector, GDS_REF(rdb->rdb_handle));
+	THREAD_ENTER;
+	release_database(rdb);
+}
+
+
+#ifndef GATEWAY
+static void drop_database( MSG_OP message)
+{
+/**************************************
+ *
+ *	d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a request..
+ *
+ **************************************/
+	RDB rdb;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_op_handle;
+
+	THREAD_EXIT;
+	GDS_DROP_DATABASE(status_vector, rdb->rdb_handle);
+	THREAD_ENTER;
+
+	send_response(message, status_vector, 0, 0, 0);
+
+	if (!status_vector[1]) {
+		/* Start by breaking connection to remote */
+
+		CSS_disconnect(rdb->rdb_connection);
+		release_database(rdb);
+	}
+}
+#endif
+
+
+static void end_blob( MSG_OP message)
+{
+/**************************************
+ *
+ *	e n d _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a blob..
+ *
+ **************************************/
+	RBL blob;
+	STATUS status_vector[20];
+
+	blob = (RBL) message->msg_op_handle;
+	THREAD_EXIT;
+
+	if (message->msg_op_header.msg_type == MSG_close_blob)
+		GDS_CLOSE_BLOB(status_vector, GDS_REF(blob->rbl_handle));
+	else
+		GDS_CANCEL_BLOB(status_vector, GDS_REF(blob->rbl_handle));
+
+	THREAD_ENTER;
+
+	if (!status_vector[1])
+		release_blob(blob);
+
+	send_response(message, status_vector, 0, 0, 0);
+}
+
+
+static void end_database( MSG_OP message)
+{
+/**************************************
+ *
+ *	e n d _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a request..
+ *
+ **************************************/
+	RDB rdb;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_op_handle;
+
+#ifdef GATEWAY
+/* If there isn't a handle, then the server was queried but a
+   database wasn't opened.  In that case, act as if everything
+   is normal so that we can release the rdb. */
+
+	if (!rdb->rdb_handle) {
+		status_vector[0] = gds_arg_gds;
+		status_vector[1] = 0;
+	}
+	else
+#endif
+	{
+		THREAD_EXIT;
+		GDS_DETACH(status_vector, GDS_REF(rdb->rdb_handle));
+		THREAD_ENTER;
+	}
+
+	send_response(message, status_vector, 0, 0, 0);
+
+	if (!status_vector[1]) {
+#ifdef GATEWAY
+#ifdef PIPE_SERVER
+#define GWAY_PIPE
+#endif
+#endif
+
+#ifndef GWAY_PIPE
+		/* Start by breaking connection to remote */
+
+		CSS_disconnect(rdb->rdb_connection);
+#endif
+		release_database(rdb);
+	}
+}
+
+
+static void end_request( MSG_OP message)
+{
+/**************************************
+ *
+ *	e n d _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a request..
+ *
+ **************************************/
+	RDB rdb;
+	RRQ request;
+	STATUS status_vector[20];
+
+	request = (RRQ) message->msg_op_handle;
+	THREAD_EXIT;
+	GDS_RELEASE_REQUEST(status_vector, GDS_REF(request->rrq_handle));
+	THREAD_ENTER;
+
+	if (!status_vector[1])
+		release_request(request);
+
+	send_response(message, status_vector, 0, 0, 0);
+}
+
+
+static void end_statement( MSG_OP message)
+{
+/**************************************
+ *
+ *	e n d _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free a statement.
+ *
+ **************************************/
+	RDB rdb;
+	RSR statement;
+	STATUS status_vector[20];
+
+	statement = (RSR) message->msg_op_handle;
+
+	THREAD_EXIT;
+	GDS_DSQL_FREE(status_vector,
+				  &statement->rsr_handle, (USHORT) message->msg_op_level);
+	THREAD_ENTER;
+
+	if (!status_vector[1] && !statement->rsr_handle) {
+		release_sql_request(statement);
+		statement = NULL;
+	}
+
+	send_response(message, status_vector, statement, 0, 0);
+}
+
+
+static void end_transaction( MSG_OP message)
+{
+/**************************************
+ *
+ *	e n d _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a transaction.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	STATUS status_vector[20];
+
+	transaction = (RTR) message->msg_op_handle;
+	THREAD_EXIT;
+
+	switch (message->msg_op_header.msg_type) {
+	case MSG_commit:
+		if (!GDS_COMMIT(status_vector, GDS_REF(transaction->rtr_handle)))
+			release_transaction(transaction);
+		break;
+
+	case MSG_rollback:
+		if (!GDS_ROLLBACK(status_vector, GDS_REF(transaction->rtr_handle)))
+			release_transaction(transaction);
+		break;
+
+	case MSG_commit_retaining:
+		if (!GDS_COMMIT_RETAINING(status_vector,
+								  GDS_REF(transaction->rtr_handle)))
+				transaction->rtr_flags |= RTR_limbo;
+		break;
+
+	case MSG_prepare:
+		if (!GDS_PREPARE2(status_vector,
+						  GDS_REF(transaction->rtr_handle),
+						  message->msg_op_length,
+						  message->msg_op_data))
+				transaction->rtr_flags |= RTR_limbo;
+		break;
+	}
+
+	THREAD_ENTER;
+	send_response(message, status_vector, 0, 0, 0);
+}
+
+
+static void execute_immediate( MSG_EXNOW message)
+{
+/**************************************
+ *
+ *	e x e c u t e _ i m m e d i a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare and execute a statement
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	SCHAR *string, *in_blr, *in_msg, *out_blr, *out_msg;
+	USHORT buffer_length;
+	HANDLE handle;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_exnow_database;
+	transaction = (RTR) message->msg_exnow_transaction;
+
+	in_msg = (SCHAR *) message->msg_exnow_data;
+	in_blr = in_msg + message->msg_exnow_in_msg_length;
+	string = in_blr + message->msg_exnow_in_blr_length;
+	out_blr = string + message->msg_exnow_SQL_length;
+
+	buffer_length = message->msg_exnow_out_msg_length;
+	out_msg = get_buffer(&buffer_length);
+
+	handle = (transaction) ? transaction->rtr_handle : (HANDLE) 0;
+
+	THREAD_EXIT;
+	GDS_DSQL_EXECUTE_IMMED(status_vector,
+						   &rdb->rdb_handle,
+						   &handle,
+						   message->msg_exnow_SQL_length,
+						   string,
+						   message->msg_exnow_SQL_dialect,
+						   message->msg_exnow_in_blr_length,
+						   in_blr,
+						   message->msg_exnow_in_msg_type,
+						   message->msg_exnow_in_msg_length,
+						   in_msg,
+						   message->msg_exnow_out_blr_length,
+						   out_blr,
+						   message->msg_exnow_out_msg_type,
+						   message->msg_exnow_out_msg_length, out_msg);
+	THREAD_ENTER;
+
+	if (!status_vector[1])
+		if (transaction && !handle) {
+			release_transaction(transaction);
+			transaction = NULL;
+		}
+		else if (!transaction && handle)
+			transaction = make_transaction(rdb, handle);
+
+	send_response(message, status_vector, transaction,
+				  message->msg_exnow_out_msg_length, out_msg);
+	free_buffer(out_msg, buffer_length);
+}
+
+
+static void execute_statement( MSG_SQLMSG message)
+{
+/**************************************
+ *
+ *	e x e c u t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+	RTR transaction;
+	RSR statement;
+	SCHAR *in_blr, *in_msg, *out_blr, *out_msg;
+	USHORT buffer_length;
+	HANDLE handle;
+	STATUS status_vector[20];
+
+	transaction = (RTR) message->msg_sqlmsg_transaction;
+	statement = (RSR) message->msg_sqlmsg_statement;
+
+	in_msg = (SCHAR *) message->msg_sqlmsg_data;
+	in_blr = in_msg + message->msg_sqlmsg_in_msg_length;
+	out_blr = in_blr + message->msg_sqlmsg_in_blr_length;
+
+	buffer_length = message->msg_sqlmsg_out_msg_length;
+	out_msg = get_buffer(&buffer_length);
+
+	handle = (transaction) ? transaction->rtr_handle : (HANDLE) 0;
+
+	THREAD_EXIT;
+	GDS_DSQL_EXECUTE(status_vector,
+					 &handle,
+					 &statement->rsr_handle,
+					 message->msg_sqlmsg_in_blr_length,
+					 in_blr,
+					 message->msg_sqlmsg_in_msg_type,
+					 message->msg_sqlmsg_in_msg_length,
+					 in_msg,
+					 message->msg_sqlmsg_out_blr_length,
+					 out_blr,
+					 message->msg_sqlmsg_out_msg_type,
+					 message->msg_sqlmsg_out_msg_length, out_msg);
+	THREAD_ENTER;
+
+	if (!status_vector[1])
+		if (transaction && !handle) {
+			release_transaction(transaction);
+			transaction = NULL;
+		}
+		else if (!transaction && handle)
+			transaction = make_transaction(statement->rsr_rdb, handle);
+
+	send_response(message, status_vector, transaction,
+				  message->msg_sqlmsg_out_msg_length, out_msg);
+	free_buffer(out_msg, buffer_length);
+}
+
+
+#ifdef GATEWAY
+#ifndef PIPE_SERVER
+static expand_filename( TEXT * file_name, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *	e x p a n d _ f i l e n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fully expand a Gateway database name.
+ *
+ **************************************/
+	USHORT length;
+	TEXT dummy[128], *p;
+
+	length = ISC_expand_filename(file_name, 0, expanded_name);
+
+#ifdef VMS
+/* Look for an '@' after the first character in expanded_filename.
+   If one is found, try to expand the remainder of the string. */
+
+	if (*(p = expanded_name) != '@') {
+		while (*p)
+			if (*p++ == '@' && *p) {
+				length =
+					ISC_expand_logical(p, length - (p - expanded_name),
+									   p) + (p - expanded_name);
+				break;
+			}
+	}
+#endif
+
+	if (!FRGN_analyze_attach(expanded_name, dummy, dummy, dummy))
+		return 0;
+
+	return length;
+}
+#endif
+#endif
+
+
+static void fetch( MSG_SQLMSG message)
+{
+/**************************************
+ *
+ *	f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor.
+ *
+ **************************************/
+	RSR statement;
+	USHORT msg_length;
+	UCHAR *msg;
+	STATUS s, status_vector[20];
+
+	statement = (RSR) message->msg_sqlmsg_statement;
+	msg_length = message->msg_sqlmsg_in_msg_length;
+	msg = get_buffer(&msg_length);
+
+	THREAD_EXIT;
+	s = GDS_DSQL_FETCH(status_vector,
+					   &statement->rsr_handle,
+					   message->msg_sqlmsg_in_blr_length,
+					   message->msg_sqlmsg_data,
+					   message->msg_sqlmsg_in_msg_type,
+					   message->msg_sqlmsg_in_msg_length, msg);
+	THREAD_ENTER;
+
+	send_response(message, status_vector, s,
+				  message->msg_sqlmsg_in_msg_length, msg);
+	free_buffer(msg, msg_length);
+}
+
+
+#ifndef PIPE_SERVER
+static DBN find_dbname(
+					   TEXT * expanded_name,
+					   USHORT expanded_length, USHORT search_flag)
+{
+/**************************************
+ *
+ *	f i n d _ d b n a m e	( c e n t r a l _ s e r v e r )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a database name in the list of database that
+ *	can be serviced by this server.
+ *
+ **************************************/
+	DBN db_name;
+
+	for (db_name = CSV_dbnames; db_name; db_name = db_name->dbn_next)
+		if (search_flag || !(db_name->dbn_flags & (DBN_disable | DBN_kill)))
+#ifndef GATEWAY
+			if (!strncmp(db_name->dbn_name, expanded_name, expanded_length))
+#else
+			if (!strncmp
+				(db_name->dbn_name, expanded_name, db_name->dbn_length))
+#endif
+				return db_name;
+
+	return NULL;
+}
+#endif
+
+
+#ifdef PIPE_SERVER
+static DBN find_dbname(
+					   TEXT * expanded_name,
+					   USHORT expanded_length, USHORT search_flag)
+{
+/**************************************
+ *
+ *	f i n d _ d b n a m e	( p i p e _ s e r v e r )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a database name in the list of database that
+ *	can be serviced by this server.
+ *
+ **************************************/
+
+	if (!CSV_dbnames)
+		CSV_dbnames = (DBN) ALLOC(type_dbn, sizeof(struct dbn));
+
+	return CSV_dbnames;
+}
+#endif
+
+
+static void free_buffer( UCHAR * buffer, USHORT length)
+{
+/**************************************
+ *
+ *	f r e e _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a buffer.  Keep one hanging
+ *	around for the next guy.  If 
+ *	another thread has already released
+ *	one, let the smallest one go.
+ *
+ **************************************/
+
+	if (!buffer)
+		return;
+
+	if (!blob_buffer) {
+		blob_buffer = buffer;
+		blob_buffer_length = length;
+		return;
+	}
+
+	if (blob_buffer_length < length) {
+		FREE(blob_buffer);
+		blob_buffer = buffer;
+		blob_buffer_length = length;
+		return;
+	}
+
+	FREE(buffer);
+}
+
+
+static UCHAR *get_buffer( USHORT * length)
+{
+/**************************************
+ *
+ *	g e t _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a buffer "big enough".
+ *	Multiple buffers could be in use by
+ *	multiple threads, so be sure to 
+ *	allocate a new one in that case.
+ *
+ **************************************/
+	UCHAR *buffer;
+
+	if (!*length)
+		return NULL;
+
+	if (buffer = blob_buffer) {
+		blob_buffer = NULL;
+		if (blob_buffer_length >= *length) {
+			*length = blob_buffer_length;
+			return buffer;
+		}
+		else
+			FREE(buffer);
+	}
+
+	return (UCHAR *) ALLOC(0, *length);
+}
+
+
+static void get_segment( MSG_SEG message)
+{
+/**************************************
+ *
+ *	g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a single blob segment.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	USHORT l, buffer_length, length;
+	UCHAR *p, *buffer;
+	HANDLE state;
+	STATUS status_vector[20];
+
+	blob = (RBL) message->msg_seg_handle;
+	buffer_length = message->msg_seg_buffer_length;
+	buffer = get_buffer(&buffer_length);
+
+	if (message->msg_seg_header.msg_type == MSG_get_segment) {
+		/* Do the call.  We basically don't care whether it succeeds or not */
+
+		length = 0;
+		THREAD_EXIT;
+		GDS_GET_SEGMENT(status_vector,
+						GDS_REF(blob->rbl_handle),
+						GDS_REF(length),
+						message->msg_seg_buffer_length, GDS_VAL(buffer));
+		THREAD_ENTER;
+
+		send_response(message, status_vector, 0, length, buffer);
+	}
+	else {						/* msg_type == MSG_get_segment_buf */
+
+		/* Gobble up a buffer's worth of segments */
+
+		p = buffer;
+		state = (HANDLE) 0;
+
+		while (buffer_length > 2) {
+			buffer_length -= 2;
+			p += 2;
+			THREAD_EXIT;
+			GDS_GET_SEGMENT(status_vector,
+							GDS_REF(blob->rbl_handle),
+							GDS_REF(length), buffer_length, GDS_VAL(p));
+			THREAD_ENTER;
+			if (status_vector[1] == gds__segstr_eof) {
+				state = (HANDLE) 2;
+				status_vector[1] = SUCCESS;
+				p -= 2;
+				break;
+			}
+			if (status_vector[1] && (status_vector[1] != gds__segment)) {
+				p -= 2;
+				break;
+			}
+			p[-2] = length;
+			p[-1] = length >> 8;
+			p += length;
+			buffer_length -= length;
+			if (status_vector[1] == gds__segment) {
+				state = (HANDLE) 1;
+				status_vector[1] = SUCCESS;
+				break;
+			}
+		}
+
+		length = p - buffer;
+		send_response(message, status_vector, state, length, buffer);
+	}
+
+	free_buffer(buffer, buffer_length);
+}
+
+
+static void get_slice( MSG_SLICE message)
+{
+/**************************************
+ *
+ *	g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	UCHAR *sdl, *param, *slice;
+	ARRAY array, handle;
+	USHORT length;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_slice_database;
+	transaction = (RTR) message->msg_slice_transaction;
+
+/* Arrays can be longer than 64k bytes but we limit central server
+   messages to that length.  Therefore we may need to send the
+   slice back to the user in pieces. */
+
+	if (!(array = (ARRAY) message->msg_slice_handle)) {
+		/* This is the first time through for this array.  Allocate memory
+		   to hold the array and link it in with the transaction.  Then get
+		   the data from the access method. */
+
+		array =
+			(ARRAY) gds__alloc(sizeof(struct array) +
+							   message->msg_slice_slice_length - 1);
+		array->array_rdb = rdb;
+		array->array_rtr = transaction;
+		array->array_length = 0;
+		array->array_slice = array->array_data;
+		array->array_next = transaction->rtr_arrays;
+		transaction->rtr_arrays = array;
+
+		sdl = message->msg_slice_data;
+		param = sdl + message->msg_slice_sdl_length;
+
+		THREAD_EXIT;
+
+		GDS_GET_SLICE(status_vector,
+					  GDS_REF(rdb->rdb_handle),
+					  GDS_REF(transaction->rtr_handle),
+					  message->msg_slice_id,
+					  message->msg_slice_sdl_length,
+					  GDS_VAL(sdl),
+					  message->msg_slice_param_length,
+					  GDS_VAL(param),
+					  message->msg_slice_slice_length,
+					  GDS_VAL(array->array_data),
+					  GDS_REF(array->array_length));
+
+		THREAD_ENTER;
+	}
+	else {
+		status_vector[0] = gds_arg_gds;
+		status_vector[1] = 0;
+		status_vector[2] = gds_arg_end;
+
+		/* We've already retrieved the array.  Figure out where we
+		   saved the stuff and then send the next piece. */
+
+		for (handle = transaction->rtr_arrays; handle;
+			 handle = handle->array_next) if (handle == array)
+				break;
+
+		if (!handle ||
+			handle->array_rdb != rdb || handle->array_rtr != transaction) {
+			array = NULL;
+			status_vector[1] = gds__segstr_no_op;
+		}
+	}
+
+	if (!status_vector[1]) {
+		length = MIN(array->array_length, MAX_ARRAY_MESSAGE);
+		slice = array->array_slice;
+		handle = (length < array->array_length) ? array : NULL;
+	}
+	else {
+		length = 0;
+		handle = NULL;
+	}
+
+	send_response(message, status_vector, handle, length, slice);
+
+/* If we're done with the array, get rid of the memory that was used to
+   hold it.  If there's more left to send, increment the pointers. */
+
+	if (array)
+		if (length && length < array->array_length) {
+			array->array_length -= (SLONG) length;
+			array->array_slice += length;
+		}
+		else
+			release_array(array);
+}
+
+
+static void info( MSG_INFO message)
+{
+/**************************************
+ *
+ *	i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Issue information.
+ *
+ **************************************/
+	HANDLE handle;
+	STATUS status_vector[20];
+	USHORT buffer_length;
+	UCHAR *buffer, temp[1024];
+	RDB rdb;
+	RTR transaction;
+	RBL blob;
+	RRQ request;
+	RSR statement;
+
+	handle = message->msg_info_handle;
+	buffer_length = message->msg_info_buffer_length;
+	buffer = get_buffer(&buffer_length);
+	THREAD_EXIT;
+
+	switch (message->msg_info_header.msg_type) {
+	case MSG_database_info:
+		rdb = (RDB) handle;
+		if (!GDS_DATABASE_INFO(status_vector,
+							   GDS_REF(rdb->rdb_handle),
+							   message->msg_info_length,
+							   message->msg_info_data,
+							   sizeof(temp),
+							   temp))
+				MERGE_database_info(temp, buffer,
+									message->msg_info_buffer_length,
+#ifndef PIPE_SERVER
+									IMPLEMENTATION, 10, 1, GDS_VERSION, "",
+									0);
+#else
+									IMPLEMENTATION, 8, 1, GDS_VERSION, "", 0);
+#endif
+		break;
+
+	case MSG_blob_info:
+		blob = (RBL) handle;
+		GDS_BLOB_INFO(status_vector,
+					  GDS_REF(blob->rbl_handle),
+					  message->msg_info_length,
+					  message->msg_info_data,
+					  message->msg_info_buffer_length, GDS_VAL(buffer));
+		break;
+
+	case MSG_request_info:
+		request = (RRQ) handle;
+		GDS_REQUEST_INFO(status_vector,
+						 GDS_REF(request->rrq_handle),
+						 message->msg_info_level,
+						 message->msg_info_length,
+						 message->msg_info_data,
+						 message->msg_info_buffer_length, GDS_VAL(buffer));
+		break;
+
+	case MSG_transaction_info:
+		transaction = (RTR) handle;
+		GDS_TRANSACTION_INFO(status_vector,
+							 GDS_REF(transaction->rtr_handle),
+							 message->msg_info_length,
+							 message->msg_info_data,
+							 message->msg_info_buffer_length,
+							 GDS_VAL(buffer));
+		break;
+
+	case MSG_sql_info:
+		statement = (RSR) handle;
+		GDS_DSQL_SQL_INFO(status_vector,
+						  &statement->rsr_handle,
+						  message->msg_info_length,
+						  message->msg_info_data,
+						  message->msg_info_buffer_length, buffer);
+		break;
+	}
+
+	THREAD_ENTER;
+	send_response(message, status_vector, 0, message->msg_info_buffer_length,
+				  buffer);
+	free_buffer(buffer, buffer_length);
+}
+
+
+static void insert( MSG_SQLMSG message)
+{
+/**************************************
+ *
+ *	i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert next record into a dynamic SQL cursor.
+ *
+ **************************************/
+	RSR statement;
+	UCHAR *blr, *msg;
+	STATUS status_vector[20];
+
+	statement = (RSR) message->msg_sqlmsg_statement;
+
+	msg = (SCHAR *) message->msg_sqlmsg_data;
+	blr = msg + message->msg_sqlmsg_in_msg_length;
+
+	THREAD_EXIT;
+	GDS_DSQL_INSERT(status_vector,
+					&statement->rsr_handle,
+					message->msg_sqlmsg_in_blr_length,
+					blr,
+					message->msg_sqlmsg_in_msg_type,
+					message->msg_sqlmsg_in_msg_length, msg);
+	THREAD_ENTER;
+
+	send_response(message, status_vector, 0, 0, 0);
+}
+
+
+static RTR make_transaction( RDB rdb, HANDLE handle)
+{
+/**************************************
+ *
+ *	m a k e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a local transaction handle.
+ *
+ **************************************/
+	RTR transaction;
+
+	transaction = (RTR) ALLOC(type_rtr, sizeof(struct rtr));
+	transaction->rtr_rdb = rdb;
+	transaction->rtr_handle = handle;
+	transaction->rtr_next = rdb->rdb_transactions;
+	rdb->rdb_transactions = transaction;
+
+	return transaction;
+}
+
+
+#ifdef GATEWAY
+#ifndef PIPE_SERVER
+static void mdi_attach_db( MSG_OP message)
+{
+/**************************************
+ *
+ *	m d i _ a t t a c h _ d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process an alternative attach packet.
+ *
+ **************************************/
+	HANDLE handle;
+	STATUS status_vector[20];
+	RDB rdb;
+	DBN db_name;
+
+	rdb = (RDB) message->msg_op_handle;
+
+	if (!
+		(db_name =
+		 find_dbname(message->msg_op_data, message->msg_op_length, FALSE))
+|| db_name != rdb->rdb_dbn) {
+		status_vector[0] = gds_arg_gds;
+		status_vector[1] = gds__unavailable;
+		status_vector[2] = gds_arg_end;
+		{
+			send_response(message, status_vector, rdb, 0, 0);
+			return;
+		}
+	}
+
+/* Try initially with expanded name.  If that fails, try once more with
+   original name */
+
+	handle = NULL;
+	THREAD_EXIT;
+	GDS_ATTACH_DATABASE(status_vector,
+						message->msg_op_length,
+						message->msg_op_data, GDS_REF(handle), 0, 0);
+	THREAD_ENTER;
+
+	if (!status_vector[1])
+		rdb->rdb_handle = handle;
+
+	send_response(message, status_vector, rdb, 0, 0);
+}
+#endif
+#endif
+
+
+static void move( UCHAR * from_ptr, UCHAR * to_ptr, USHORT length)
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move some bytes.
+ *
+ **************************************/
+	USHORT l;
+	SCHAR *from, *to;
+
+	from = from_ptr;
+	to = to_ptr;
+
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+}
+
+
+static void multi_thread(void)
+{
+/**************************************
+ *
+ *	m u l t i _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Multi-threaded flavor of server.
+ *
+ **************************************/
+#ifdef MULTI_THREAD
+	REQ request, *ptr;
+	SLONG pending_requests;
+
+	gds__thread_enable(TRUE);
+	ISC_event_init(thread_event, EVENT_FLAG);
+
+	while (!sw_shutdown) {
+		if (request = free_requests)
+			free_requests = request->req_next;
+		if (!request)
+			request = (REQ) gds__alloc((SLONG) sizeof(struct req));
+		request->req_next = NULL;
+		request->req_message = CSS_get_message((SLONG) 0, 0, 0);
+
+		for (pending_requests = 1, ptr = &request_que; *ptr;
+			 ptr = &(*ptr)->req_next) ++pending_requests;
+		*ptr = request;
+
+		if (pending_requests > threads_waiting)
+			gds__thread_start(thread);
+		ISC_event_post(thread_event);
+	}
+
+	while (request = request_que) {
+		request_que = request->req_next;
+		CSS_free_global(request->req_message);
+	}
+#endif
+}
+
+
+static void open_blob( MSG_BLOB message)
+{
+/**************************************
+ *
+ *	o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open or create a new blob.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	RTR transaction;
+	USHORT length;
+	HANDLE handle;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_blob_database;
+	transaction = (RTR) message->msg_blob_transaction;
+	handle = NULL;
+	blob = NULL;
+	length = 0;
+	THREAD_EXIT;
+
+	if (message->msg_blob_header.msg_type == MSG_open_blob) {
+		GDS_OPEN_BLOB(status_vector,
+					  GDS_REF(rdb->rdb_handle),
+					  GDS_REF(transaction->rtr_handle),
+					  GDS_REF(handle),
+					  message->msg_blob_id,
+					  message->msg_blob_bpb_length, message->msg_blob_bpb);
+	}
+	else {
+		GDS_CREATE_BLOB(status_vector,
+						GDS_REF(rdb->rdb_handle),
+						GDS_REF(transaction->rtr_handle),
+						GDS_REF(handle),
+						message->msg_blob_id,
+						message->msg_blob_bpb_length, message->msg_blob_bpb);
+		length = sizeof(message->msg_blob_id);
+	}
+
+	THREAD_ENTER;
+
+	if (!status_vector[1]) {
+		blob = (RBL) ALLOC(type_rbl, sizeof(struct rbl));
+		blob->rbl_handle = handle;
+		blob->rbl_rdb = rdb;
+		blob->rbl_rtr = transaction;
+		blob->rbl_next = transaction->rtr_blobs;
+		transaction->rtr_blobs = blob;
+	}
+
+	send_response(message, status_vector, blob, length, message->msg_blob_id);
+}
+
+
+static void ping( MSG_OP message)
+{
+/**************************************
+ *
+ *	p i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Bounce a message straight back.
+ *
+ **************************************/
+	RRQ request;
+	STATUS status_vector[20];
+
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	send_response(message, status_vector, 0, 0, 0);
+}
+
+
+static void prepare_statement( MSG_PSTMT message)
+{
+/**************************************
+ *
+ *	p r e p a r e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a dynamic SQL statement for execution.
+ *
+ **************************************/
+	RTR transaction;
+	RSR statement;
+	SCHAR *string, *items;
+	USHORT buffer_length;
+	UCHAR *buffer;
+	STATUS status_vector[20];
+	HANDLE handle;
+
+	transaction = (RTR) message->msg_pstmt_transaction;
+	statement = (RSR) message->msg_pstmt_statement;
+
+	handle = (transaction) ? transaction->rtr_handle : (HANDLE) 0;
+
+	string = (SCHAR *) message->msg_pstmt_data;
+	items = string + message->msg_pstmt_SQL_length;
+	buffer_length = message->msg_pstmt_buffer_length;
+	buffer = get_buffer(&buffer_length);
+
+	THREAD_EXIT;
+	GDS_DSQL_PREPARE(status_vector,
+					 &handle,
+					 &statement->rsr_handle,
+					 message->msg_pstmt_SQL_length,
+					 string,
+					 message->msg_pstmt_SQL_dialect,
+					 message->msg_pstmt_item_length,
+					 items, buffer_length, buffer);
+	THREAD_ENTER;
+
+	send_response(message, status_vector, 0, message->msg_pstmt_buffer_length,
+				  buffer);
+	free_buffer(buffer, buffer_length);
+}
+
+
+static void process_message( MSG message)
+{
+/**************************************
+ *
+ *	p r o c e s s _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle a single message.
+ *
+ **************************************/
+
+	switch (message->msg_type) {
+	case MSG_alt_connection:
+		alt_connection(message);
+		break;
+
+	case MSG_attach_database:
+	case MSG_create_database:
+		attach_database(message);
+		break;
+
+	case MSG_compile:
+		compile(message);
+		break;
+
+	case MSG_ddl:
+		ddl(message);
+		break;
+
+	case MSG_cancel_events:
+		cancel_events(message);
+		break;
+
+	case MSG_detach:
+		end_database(message);
+		break;
+
+	case MSG_drop_database:
+		drop_database(message);
+		break;
+
+	case MSG_que_events:
+		que_events(message);
+		break;
+
+	case MSG_receive:
+		receive_msg(message);
+		break;
+
+	case MSG_send:
+		send_msg(message);
+		break;
+
+	case MSG_start_request:
+		start(message);
+		break;
+
+	case MSG_start_and_send:
+		start_and_send(message);
+		break;
+
+	case MSG_start_transaction:
+		start_transaction(message);
+		break;
+
+	case MSG_prepare:
+	case MSG_rollback:
+	case MSG_commit:
+	case MSG_commit_retaining:
+		end_transaction(message);
+		break;
+
+	case MSG_create_blob:
+	case MSG_open_blob:
+		open_blob(message);
+		break;
+
+	case MSG_put_segment:
+	case MSG_put_segment_buf:
+		put_segment(message);
+		break;
+
+	case MSG_get_segment:
+	case MSG_get_segment_buf:
+		get_segment(message);
+		break;
+
+	case MSG_seek_blob:
+		seek_blob(message);
+		break;
+
+	case MSG_get_slice:
+		get_slice(message);
+		break;
+
+	case MSG_put_slice:
+		put_slice(message);
+		break;
+
+	case MSG_cancel_blob:
+	case MSG_close_blob:
+		end_blob(message);
+		break;
+
+	case MSG_release:
+		end_request(message);
+		break;
+
+	case MSG_reconnect:
+		reconnect(message);
+		break;
+
+	case MSG_transact_request:
+		transact_request(message);
+		break;
+
+	case MSG_unwind:
+		unwind(message);
+		break;
+
+	case MSG_blob_info:
+	case MSG_request_info:
+	case MSG_database_info:
+	case MSG_transaction_info:
+	case MSG_sql_info:
+		info(message);
+		break;
+
+	case MSG_ping:
+		ping(message);
+		break;
+
+#ifdef GATEWAY
+#ifndef PIPE_SERVER
+	case MSG_mdi_attach_db:
+		mdi_attach_db(message);
+		break;
+
+	case MSG_query_connect:
+		query_connect(message);
+		break;
+#endif
+#endif
+
+	case MSG_allocate_stmt:
+		allocate_statement(message);
+		break;
+
+	case MSG_execute:
+		execute_statement(message);
+		break;
+
+	case MSG_execute_immediate:
+		execute_immediate(message);
+		break;
+
+	case MSG_fetch:
+		fetch(message);
+		break;
+
+	case MSG_free_stmt:
+		end_statement(message);
+		break;
+
+	case MSG_insert:
+		insert(message);
+		break;
+
+	case MSG_prepare_stmt:
+		prepare_statement(message);
+		break;
+
+	case MSG_set_cursor:
+		set_cursor(message);
+		break;
+
+	case MSG_util_cmd:
+		server_utility(message);
+		break;
+
+	case MSG_disconnect:
+		disconnect(message->msg_connection);
+		CSS_free_global(message);
+		break;
+
+	default:
+		printf("Unknown message type %d\n", message->msg_type);
+	}
+}
+
+
+static void put_segment( MSG_SEG message)
+{
+/**************************************
+ *
+ *	p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a single blob segment.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	USHORT buffer_length, length;
+	UCHAR *buffer, *end;
+	STATUS status_vector[20];
+
+	blob = (RBL) message->msg_seg_handle;
+	buffer_length = message->msg_seg_length;
+	buffer = message->msg_seg_data;
+
+	if (message->msg_seg_header.msg_type == MSG_put_segment) {
+		/* Do the signal segment version.  If it failed, just pass on the
+		   bad news. */
+
+		THREAD_EXIT;
+		GDS_PUT_SEGMENT(status_vector,
+						GDS_REF(blob->rbl_handle),
+						buffer_length, GDS_VAL(buffer));
+		THREAD_ENTER;
+	}
+	else {						/* msg_type == MSG_put_segment_buf */
+
+		/* We've got a batch of segments.  This is only slightly more complicated */
+
+		end = buffer + buffer_length;
+
+		while (buffer < end) {
+			length = *buffer++;
+			length += *buffer++ << 8;
+			THREAD_EXIT;
+			GDS_PUT_SEGMENT(status_vector,
+							GDS_REF(blob->rbl_handle),
+							length, GDS_VAL(buffer));
+			THREAD_ENTER;
+			if (status_vector[1])
+				break;
+			buffer += length;
+		}
+	}
+
+	send_response(message, status_vector, 0, 0, 0);
+}
+
+
+static void put_slice( MSG_SLICE message)
+{
+/**************************************
+ *
+ *	p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a slice of an array.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	UCHAR *sdl, *param;
+	ARRAY array, handle;
+	USHORT length;
+	STATUS status_vector[20];
+	register UCHAR *from, *to;
+
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+
+	rdb = (RDB) message->msg_slice_database;
+	transaction = (RTR) message->msg_slice_transaction;
+
+/* Arrays can be longer than 64k bytes but we limit central server
+   messages to that length.  Therefore we may need to get the slice
+   from the user in pieces. */
+
+	if (!(array = (ARRAY) message->msg_slice_handle)) {
+		/* This is the first time through for this array.  Allocate memory
+		   to hold the array and link it in with the transaction. */
+
+		array =
+			(ARRAY) gds__alloc(sizeof(struct array) +
+							   message->msg_slice_slice_length - 1);
+		array->array_rdb = rdb;
+		array->array_rtr = transaction;
+		array->array_length = message->msg_slice_slice_length;
+		array->array_slice = array->array_data;
+		array->array_next = transaction->rtr_arrays;
+		transaction->rtr_arrays = array;
+	}
+	else {
+		/* We've already allocated the array.  Figure out where we
+		   were and save the next piece. */
+
+		for (handle = transaction->rtr_arrays; handle;
+			 handle = handle->array_next) if (handle == array)
+				break;
+
+		if (!handle ||
+			handle->array_rdb != rdb || handle->array_rtr != transaction) {
+			array = NULL;
+			status_vector[1] = gds__segstr_no_op;
+		}
+	}
+
+	if (!status_vector[1]) {
+		length = MIN(array->array_length, MAX_ARRAY_MESSAGE);
+		array->array_length -= (SLONG) length;
+
+		sdl = message->msg_slice_data;
+		param = sdl + message->msg_slice_sdl_length;
+		from = param + message->msg_slice_param_length;;
+
+		to = array->array_slice;
+		if (length)
+			do
+				*to++ = *from++;
+			while (--length);
+
+		array->array_slice = to;
+
+		if (!array->array_length) {
+			array->array_length = array->array_slice - array->array_data;
+			THREAD_EXIT;
+
+			GDS_PUT_SLICE(status_vector,
+						  GDS_REF(rdb->rdb_handle),
+						  GDS_REF(transaction->rtr_handle),
+						  message->msg_slice_id,
+						  message->msg_slice_sdl_length,
+						  GDS_VAL(sdl),
+						  message->msg_slice_param_length,
+						  GDS_VAL(param),
+						  array->array_length, GDS_VAL(array->array_data));
+
+			THREAD_ENTER;
+
+			release_array(array);
+			array = NULL;
+		}
+	}
+
+	length = status_vector[1] ? 0 : 8;
+	send_response(message, status_vector, array, length,
+				  message->msg_slice_id);
+}
+
+
+static void que_events( MSG_EVENT message)
+{
+/**************************************
+ *
+ *	q u e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que a request for event notification.
+ *
+ **************************************/
+	RDB rdb;
+	EVNT event;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_event_database;
+
+/* Find available event block */
+
+	for (event = rdb->rdb_events; event; event = event->evnt_next)
+		if (!event->evnt_id)
+			break;
+
+	if (!event) {
+		event = (EVNT) CSS_alloc_local(type_evnt, sizeof(struct evnt));
+		event->evnt_next = rdb->rdb_events;
+		rdb->rdb_events = event;
+		event->evnt_rdb = rdb;
+	}
+
+	event->evnt_ast = message->msg_event_ast;
+	event->evnt_arg = message->msg_event_arg;
+
+	THREAD_EXIT;
+	GDS_QUE_EVENTS(status_vector,
+				   GDS_REF(rdb->rdb_handle),
+				   GDS_REF(event->evnt_id),
+				   message->msg_event_length,
+				   message->msg_event_data, server_ast, GDS_VAL(event));
+	THREAD_ENTER;
+
+	send_response(message, status_vector, event->evnt_id, 0, 0);
+}
+
+
+#ifdef GATEWAY
+#ifndef PIPE_SERVER
+static void query_connect( MSG_ATT message)
+{
+/**************************************
+ *
+ *	q u e r y _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process an server attach packet.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	RDB rdb;
+	TEXT *expanded_name, connect_method[128];
+	DBN db_name;
+	USHORT connect_length;
+
+/* Assume this is going to fail! */
+
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = gds__unavailable;
+	status_vector[2] = gds_arg_end;
+
+/* Make sure we're willing to talk to this client */
+
+	if (!CSS_check_partner
+		(message->msg_att_header.msg_connection, PRB_client_t1)) {
+		send_response(message, status_vector, 0, 0, 0);
+		return;
+	}
+
+	expanded_name =
+		(TEXT *) message->msg_att_data + message->msg_att_file_length;
+
+	if (!
+		(db_name =
+		 find_dbname(expanded_name, message->msg_att_expanded_length,
+					 FALSE))) {
+		send_response(message, status_vector, 0, 0, 0);
+		return;
+	}
+
+/* Try initially with expanded name.  If that fails, try once more with
+   original name */
+
+	rdb = NULL;
+
+	if (!GWAY_query_connect(status_vector,
+							GDS_VAL(expanded_name),
+							connect_method, &connect_length)) {
+		rdb = (RDB) ALLOC(type_rdb, sizeof(struct rdb));
+		rdb->rdb_connection = message->msg_att_header.msg_connection;
+		rdb->rdb_dbn = db_name;
+		rdb->rdb_next = CSV_databases;
+		CSV_databases = rdb;
+		++db_name->dbn_attaches;
+	}
+
+	send_response(message, status_vector, rdb, connect_length,
+				  connect_method);
+}
+#endif
+#endif
+
+
+static void receive_msg( MSG_MSG message)
+{
+/**************************************
+ *
+ *	r e c e i v e _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	RRQ request;
+	USHORT buffer_length;
+	UCHAR *buffer;
+
+	request = (RRQ) message->msg_msg_request;
+	buffer_length = message->msg_msg_length;
+	buffer = get_buffer(&buffer_length);
+
+	THREAD_EXIT;
+	GDS_RECEIVE(status_vector,
+				GDS_REF(request->rrq_handle),
+				message->msg_msg_type,
+				message->msg_msg_length,
+				GDS_VAL(buffer), message->msg_msg_level);
+	THREAD_ENTER;
+
+	send_response(message, status_vector, 0, message->msg_msg_length, buffer);
+	free_buffer(buffer, buffer_length);
+}
+
+
+static void reconnect( MSG_OP message)
+{
+/**************************************
+ *
+ *	r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reconnect to a transaction in limbo.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	HANDLE handle;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_op_handle;
+	handle = NULL;
+	transaction = NULL;
+
+	THREAD_EXIT;
+	GDS_RECONNECT(status_vector,
+				  GDS_REF(rdb->rdb_handle),
+				  GDS_REF(handle),
+				  message->msg_op_length, message->msg_op_data);
+	THREAD_ENTER;
+
+	if (!status_vector[1])
+		transaction = make_transaction(rdb, handle);
+
+	send_response(message, status_vector, transaction, 0, 0);
+}
+
+
+static void release_array( ARRAY array)
+{
+/**************************************
+ *
+ *	r e l e a s e _ a r r a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an array block and friends.
+ *
+ **************************************/
+	RTR transaction;
+	ARRAY *p;
+
+	transaction = array->array_rtr;
+
+	for (p = &transaction->rtr_arrays; *p; p = &(*p)->array_next)
+		if (*p == array) {
+			*p = array->array_next;
+			break;
+		}
+
+	FREE(array);
+}
+
+
+static void release_blob( RBL blob)
+{
+/**************************************
+ *
+ *	r e l e a s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a blob block and friends.
+ *
+ **************************************/
+	RTR transaction;
+	RBL *p;
+
+	transaction = blob->rbl_rtr;
+
+	for (p = &transaction->rtr_blobs; *p; p = &(*p)->rbl_next)
+		if (*p == blob) {
+			*p = blob->rbl_next;
+			break;
+		}
+
+	FREE(blob);
+}
+
+
+static void release_database( RDB rdb)
+{
+/**************************************
+ *
+ *	r e l e a s e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release database block and friends and relations.
+ *
+ **************************************/
+	EVNT event;
+	RDB *ptr;
+	DBN db_name;
+
+	db_name = rdb->rdb_dbn;
+
+/* Next, get rid of any request or transaction block */
+
+	while (rdb->rdb_requests)
+		release_request(rdb->rdb_requests);
+
+	while (rdb->rdb_sql_requests)
+		release_sql_request(rdb->rdb_sql_requests);
+
+	while (rdb->rdb_transactions)
+		release_transaction(rdb->rdb_transactions);
+
+	while (event = rdb->rdb_events) {
+		rdb->rdb_events = event->evnt_next;
+		FREE(event);
+	}
+
+/* Untangle database block from global list of databases */
+
+	for (ptr = &CSV_databases; *ptr; ptr = &(*ptr)->rdb_next)
+		if (*ptr == rdb) {
+			*ptr = rdb->rdb_next;
+			break;
+		}
+
+/* Finally, release the database block itself */
+
+	FREE(rdb);
+
+/* Decrement the attachment counter and see if the server can exit */
+
+	--db_name->dbn_attaches;
+	check_if_done(db_name);
+}
+
+
+static void release_request( RRQ request)
+{
+/**************************************
+ *
+ *	r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request block and friends.
+ *
+ **************************************/
+	RDB rdb;
+	RRQ *p;
+	USHORT i;
+
+	rdb = request->rrq_rdb;
+
+	for (p = &rdb->rdb_requests; *p; p = &(*p)->rrq_next)
+		if (*p == request) {
+			*p = request->rrq_next;
+			break;
+		}
+
+	FREE(request);
+}
+
+
+static void release_sql_request( RSR stmt)
+{
+/**************************************
+ *
+ *	r e l e a s e _ s q l _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an SQL request block.
+ *
+ **************************************/
+	RDB rdb;
+	RSR *p;
+
+	rdb = stmt->rsr_rdb;
+
+	for (p = &rdb->rdb_sql_requests; *p; p = &(*p)->rsr_next)
+		if (*p == stmt) {
+			*p = stmt->rsr_next;
+			break;
+		}
+
+	FREE(stmt);
+}
+
+
+static void release_transaction( RTR transaction)
+{
+/**************************************
+ *
+ *	r e l e a s e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a transaction block and friends.
+ *
+ **************************************/
+	RDB rdb;
+	RTR *p;
+
+	rdb = transaction->rtr_rdb;
+
+	while (transaction->rtr_blobs)
+		release_blob(transaction->rtr_blobs);
+
+	while (transaction->rtr_arrays)
+		release_array(transaction->rtr_arrays);
+
+	for (p = &rdb->rdb_transactions; *p; p = &(*p)->rtr_next)
+		if (*p == transaction) {
+			*p = transaction->rtr_next;
+			break;
+		}
+
+	FREE(transaction);
+}
+
+
+static void seek_blob( MSG_SEEK message)
+{
+/**************************************
+ *
+ *	g e t _ s e e k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a blob seek.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	SLONG result;
+	STATUS status_vector[20];
+
+	blob = (RBL) message->msg_seek_handle;
+
+/* Do the call.  We basically don't care whether it succeeds or not */
+
+	THREAD_EXIT;
+	GDS_SEEK_BLOB(status_vector,
+				  GDS_REF(blob->rbl_handle),
+				  message->msg_seek_mode,
+				  message->msg_seek_offset, GDS_REF(result));
+	THREAD_ENTER;
+
+	send_response(message, status_vector, 0, sizeof(result), &result);
+}
+
+
+static void send_msg( MSG_MSG message)
+{
+/**************************************
+ *
+ *	s e n d _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	RRQ request;
+	RTR transaction;
+	RDB rdb;
+
+	request = (RRQ) message->msg_msg_request;
+
+	THREAD_EXIT;
+	GDS_SEND(status_vector,
+			 GDS_REF(request->rrq_handle),
+			 message->msg_msg_type,
+			 message->msg_msg_length,
+			 message->msg_msg_data, message->msg_msg_level);
+	THREAD_ENTER;
+
+	send_response(message, status_vector, 0, 0, 0);
+}
+
+
+static int send_response(
+						 MSG source,
+						 STATUS * status_vector,
+						 SLONG handle, USHORT length, UCHAR * data)
+{
+/**************************************
+ *
+ *	s e n d _ r e s p o n s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a response packet.
+ *
+ **************************************/
+	STATUS code, *status, *target;
+	UCHAR *p, *q, **s;
+	MSG_RESP message;
+	USHORT l, msg_length;
+
+#ifdef DEBUG
+	fprintf(stderr, "send_response: %x %x %x %x\n",
+			status_vector[0], status_vector[1], status_vector[2],
+			status_vector[3]);
+#endif
+
+/* Compute variable length portion of message vector */
+
+	msg_length = 0;
+
+	if (!status_vector[1])
+		status_vector[2] = gds_arg_end;
+	else
+		for (status = status_vector; *status && status < status_vector + 20;)
+			switch (*status++) {
+			case gds_arg_interpreted:
+			case gds_arg_string:
+				s = (UCHAR **) status;
+				p = *s++;
+				status = (STATUS *) s;
+				msg_length += strlen(p) + 1;
+				break;
+
+			case gds_arg_cstring:
+				msg_length += *status++;
+				++status;
+				break;
+
+			default:
+				++status;
+			}
+
+/* Allocate and format response message */
+
+	l = sizeof(struct msg_resp) + msg_length + length;
+	message = CSS_alloc_message(type_msg, (int) l);
+	message->msg_resp_header.msg_type = MSG_response;
+	message->msg_resp_handle = handle;
+	p = message->msg_resp_data;
+
+	if (l = message->msg_resp_length = length) {
+		q = data;
+		do
+			*p++ = *q++;
+		while (--l);
+	}
+
+
+/* Start by translating the status vector into "generic" form */
+
+	for (status = status_vector, target = message->msg_resp_status;
+		 (*target++ = *status) && status < status_vector + 20;)
+		switch (*status++) {
+		case gds_arg_interpreted:
+		case gds_arg_string:
+			s = (UCHAR **) status;
+			q = *s++;
+			status = (STATUS *) s;
+			*target++ = p - (UCHAR *) message;
+			while (*p++ = *q++);
+			break;
+
+		case gds_arg_cstring:
+			*target++ = l = *status++;
+			s = (UCHAR **) status;
+			q = *s++;
+			status = (STATUS *) s;
+			*target++ = p - (UCHAR *) message;
+			if (l)
+				do
+					*p++ = *q++;
+				while (--l);
+			break;
+
+		default:
+			*target++ = *status++;
+			break;
+		}
+
+	return CSS_put_message(source->msg_connection, message, source);
+}
+
+
+static void server_ast( EVNT event, USHORT length, UCHAR * data)
+{
+/**************************************
+ *
+ *	s e r v e r _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a message across central interface.
+ *
+ **************************************/
+	RDB rdb;
+	MSG_EVENT message;
+
+	rdb = event->evnt_rdb;
+	message =
+		(MSG_EVENT) CSS_alloc_message(type_msg,
+									  (int) (sizeof(struct msg_event) +
+											 length));
+	message->msg_event_header.msg_type = MSG_event;
+	message->msg_event_ast = event->evnt_ast;
+	message->msg_event_arg = event->evnt_arg;
+	message->msg_event_length = length;
+	move(data, message->msg_event_data, length);
+	CSS_put_message(rdb->rdb_connection2, message, NULL);
+	event->evnt_id = 0;
+}
+
+
+static void set_cursor( MSG_SETCUR message)
+{
+/**************************************
+ *
+ *	s e t _ c u r s o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Declare a cursor for a dynamic request.
+ *
+ **************************************/
+	RSR statement;
+	STATUS status_vector[20];
+
+	statement = (RSR) message->msg_setcur_statement;
+
+	THREAD_EXIT;
+	GDS_DSQL_SET_CURSOR(status_vector,
+						&statement->rsr_handle,
+						message->msg_setcur_cursor, message->msg_setcur_type);
+	THREAD_ENTER;
+
+	send_response(message, status_vector, 0, 0, 0);
+}
+
+
+static void start( MSG_MSG message)
+{
+/**************************************
+ *
+ *	s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	RRQ request;
+	RTR transaction;
+
+	request = (RRQ) message->msg_msg_request;
+	transaction = (RTR) message->msg_msg_transaction;
+
+	THREAD_EXIT;
+	GDS_START(status_vector,
+			  GDS_REF(request->rrq_handle),
+			  GDS_REF(transaction->rtr_handle), message->msg_msg_level);
+	THREAD_ENTER;
+
+	send_response(message, status_vector, 0, 0, 0);
+}
+
+
+static void start_and_send( MSG_MSG message)
+{
+/**************************************
+ *
+ *	s t a r t _ a n d _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	RRQ request;
+	RTR transaction;
+
+	request = (RRQ) message->msg_msg_request;
+	transaction = (RTR) message->msg_msg_transaction;
+
+	THREAD_EXIT;
+	GDS_START_AND_SEND(status_vector,
+					   GDS_REF(request->rrq_handle),
+					   GDS_REF(transaction->rtr_handle),
+					   message->msg_msg_type,
+					   message->msg_msg_length,
+					   message->msg_msg_data, message->msg_msg_level);
+	THREAD_ENTER;
+
+	send_response(message, status_vector, 0, 0, 0);
+}
+
+
+static void start_transaction( MSG_TRANS message)
+{
+/**************************************
+ *
+ *	s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	TEB tebs[16], *teb;
+	TDB *tdb, *end;
+	HANDLE handle;
+	STATUS status_vector[20];
+
+	for (tdb = message->msg_trans_tdb, end =
+		 tdb + message->msg_trans_count, teb = tebs; tdb < end; tdb++, teb++) {
+		rdb = (RDB) tdb->tdb_database;
+		teb->teb_database = &rdb->rdb_handle;
+		teb->teb_tpb_length = tdb->tdb_tpb_length;
+		teb->teb_tpb = (UCHAR *) message + tdb->tdb_tpb;
+	}
+
+	handle = NULL;
+	transaction = NULL;
+
+	THREAD_EXIT;
+	GDS_START_MULTIPLE(status_vector,
+					   GDS_REF(handle), message->msg_trans_count, tebs);
+	THREAD_ENTER;
+
+	if (!status_vector[1])
+		transaction = make_transaction(rdb, handle);
+
+	send_response(message, status_vector, transaction, 0, 0);
+}
+
+
+#ifndef PIPE_SERVER
+static void server_utility( MSG_UTIL message)
+{
+/**************************************
+ *
+ *	s e r v e r _ u t i l i t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a message from the central server utility.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	USHORT cmd, length, l;
+	CSU_LIST list_msg, ptr_data;
+	DBN db_name, *ptr;
+	TEXT *name;
+
+/* Assume everything is going to go ok */
+
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+
+	if (message->msg_util_csn_len && strcmp(message->msg_util_data, CSV_name)) {
+		/* The message is not meant for us */
+
+		status_vector[1] = gds__unavailable;
+		send_response(message, status_vector, (SLONG) 0, 0, 0);
+		return;
+	}
+
+	name = message->msg_util_data + message->msg_util_csn_len + 1;
+
+	switch (cmd = message->msg_util_cmd) {
+	case UTIL_list:
+		length =
+			FB_ALIGN(CSV_name_len + sizeof(struct csu_list),
+					 2) + sizeof(struct csu_list);
+		for (db_name = CSV_dbnames; db_name; db_name = db_name->dbn_next)
+			length +=
+				FB_ALIGN(sizeof(struct csu_list) + db_name->dbn_length, 2);
+		list_msg = ptr_data = (CSU_LIST) ALLOC(0, length);
+
+		ptr_data->csu_list_length = CSV_name_len;
+		move(CSV_name, ptr_data->csu_list_name, CSV_name_len + 1);
+		ptr_data =
+			(CSU_LIST) (ptr_data->csu_list_name +
+						FB_ALIGN(CSV_name_len + 1, 2));
+
+		for (db_name = CSV_dbnames; db_name; db_name = db_name->dbn_next) {
+			ptr_data->csu_list_attaches = db_name->dbn_attaches;
+			ptr_data->csu_list_flags = db_name->dbn_flags;
+			ptr_data->csu_list_length = l = db_name->dbn_length;
+			move(db_name->dbn_name, ptr_data->csu_list_name, l + 1);
+			ptr_data =
+				(CSU_LIST) (ptr_data->csu_list_name + FB_ALIGN(l + 1, 2));
+		}
+		ptr_data->csu_list_length = 0;
+
+		send_response(message, status_vector, (SLONG) 0, length, list_msg);
+		FREE(list_msg);
+		break;
+
+	case UTIL_disable:
+	case UTIL_kill:
+	case UTIL_reenable:
+		/* See if the utility specified a particular database name
+		   and if so, whether we know about it.  If we don't know
+		   about it, return "unavailable". */
+
+		if ((length = message->msg_util_dbn_len) &&
+			!(db_name = find_dbname(name, length, TRUE)))
+			status_vector[1] = gds__unavailable;
+
+		send_response(message, status_vector, (SLONG) 0, 0, 0);
+
+		/* If we know about the database name, disable, re-enable, or kill
+		   one or all databases */
+
+		if (!status_vector[1])
+			if (length)
+				disable_or_kill(db_name, cmd);
+			else
+				for (ptr = &CSV_dbnames; db_name = *ptr;) {
+					disable_or_kill(db_name, cmd);
+					if (db_name == *ptr)
+						ptr = &(*ptr)->dbn_next;
+				}
+		break;
+
+	case UTIL_enable:
+		/* Let's make sure that we're not already servicing the database.
+		   If we're not and the -a switch was specified, try to attach the
+		   database. */
+
+		length = message->msg_util_dbn_len;
+		if (!find_dbname(name, length, TRUE)) {
+			db_name = (DBN) ALLOC(type_dbn, sizeof(struct dbn) + length);
+			move(name, db_name->dbn_name, length + 1);
+			db_name->dbn_length = length;
+			if (!sw_attach
+				|| !attach_for_servicing(db_name, status_vector, FALSE)) {
+				db_name->dbn_next = CSV_dbnames;
+				CSV_dbnames = db_name;
+			}
+		}
+		else {
+			status_vector[1] = gds__random;
+			status_vector[2] = gds_arg_string;
+			status_vector[3] = (STATUS) "Database already known to server";
+			status_vector[4] = gds_arg_end;
+		}
+		send_response(message, status_vector, (SLONG) 0, 0, 0);
+		break;
+
+	default:
+		printf("Unknown server utility command %d\n", message->msg_util_cmd);
+		status_vector[1] = gds__unavailable;
+		send_response(message, status_vector, (SLONG) 0, 0, 0);
+		break;
+	}
+}
+#endif
+
+
+#ifdef PIPE_SERVER
+static void server_utility( MSG_UTIL message)
+{
+/**************************************
+ *
+ *	s e r v e r _ u t i l i t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a message from the central server utility.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	RDB *ptr, rdb;
+	PTR connection;
+
+	switch (message->msg_util_cmd) {
+	case UTIL_kill:
+		/* Loop through the database attachments and zap them all */
+
+		for (ptr = &CSV_databases; rdb = *ptr;)
+			disconnect(rdb->rdb_connection);
+
+		sw_shutdown = TRUE;
+
+		connection = message->msg_util_header.msg_connection;
+		CSS_free_global(message);
+		CSS_disconnect(connection);
+		return;
+
+	default:
+		status_vector[0] = gds_arg_gds;
+		status_vector[1] = gds__unavailable;
+		status_vector[2] = gds_arg_end;
+		send_response(message, status_vector, (SLONG) 0, 0, 0);
+		break;
+	}
+}
+#endif
+
+
+#ifdef MULTI_THREAD
+static void thread(void)
+{
+/**************************************
+ *
+ *	t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute requests in a happy loop.
+ *
+ **************************************/
+	REQ request;
+	SLONG value;
+	EVENT ptr;
+
+	request = NULL;
+	++threads_waiting;
+	THREAD_ENTER;
+
+	while (!sw_shutdown) {
+		value = ISC_event_clear(thread_event);
+
+		if (request) {
+			request->req_next = free_requests;
+			free_requests = request;
+		}
+
+		if (request = request_que)
+			request_que = request->req_next;
+
+		if (request) {
+			--threads_waiting;
+			process_message(request->req_message);
+			++threads_waiting;
+		}
+		else {
+			ptr = thread_event;
+			THREAD_EXIT;
+			ISC_event_wait(1, &ptr, &value, -1, 0, 0);
+			THREAD_ENTER;
+		}
+	}
+
+	ISC_event_clear(thread_event);
+	ISC_event_post(thread_event);
+
+	THREAD_EXIT;
+	--threads_waiting;
+}
+#endif
+
+
+static void transact_request( MSG_TRRQ message)
+{
+/**************************************
+ *
+ *	t r a n s a c t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a stored procedure.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	SCHAR *blr, *in_msg, *out_msg;
+	USHORT buffer_length;
+	HANDLE handle;
+	STATUS status_vector[20];
+
+	rdb = (RDB) message->msg_trrq_database;
+	transaction = (RTR) message->msg_trrq_transaction;
+
+	blr = in_msg;
+	in_msg = blr + message->msg_trrq_blr_length;
+
+	buffer_length = message->msg_trrq_out_msg_length;
+	out_msg = get_buffer(&buffer_length);
+
+	handle = (transaction) ? transaction->rtr_handle : (HANDLE) 0;
+
+	THREAD_EXIT;
+	GDS_TRANSACT_REQUEST(status_vector,
+						 &rdb->rdb_handle,
+						 &handle,
+						 message->msg_trrq_blr_length,
+						 blr,
+						 message->msg_trrq_in_msg_length,
+						 in_msg, message->msg_trrq_out_msg_length, out_msg);
+	THREAD_ENTER;
+
+	if (!status_vector[1])
+		if (transaction && !handle) {
+			release_transaction(transaction);
+			transaction = NULL;
+		}
+		else if (!transaction && handle)
+			transaction = make_transaction(rdb, handle);
+
+	send_response(message, status_vector, transaction,
+				  message->msg_trrq_out_msg_length, out_msg);
+	free_buffer(out_msg, buffer_length);
+}
+
+
+#ifdef PIPE_SERVER
+#ifdef VMS
+static void trans_logicals(void)
+{
+/**************************************
+ *
+ *	t r a n s _ l o g i c a l s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate logicals and write their values to
+ *	the process logical table.
+ *
+ **************************************/
+	UCHAR **logicals, value[256], job_logical[32];
+	int attr, status;
+	SSHORT len;
+	ITM items[2];
+	struct dsc$descriptor_s tab_desc, log_desc;
+
+	for (logicals = inherit_logicals; *logicals; logicals++) {
+		items[0].itm_length = sizeof(value);
+		items[0].itm_code = LNM$_STRING;
+		items[0].itm_buffer = value;
+		items[0].itm_return_length = &len;
+		items[1].itm_length = 0;
+		items[1].itm_code = 0;
+
+		attr = LNM$M_CASE_BLIND;
+
+		sprintf(job_logical, "GDS_PIPE_%s", *logicals);
+		ISC_make_desc(job_logical, &log_desc, 0);
+
+		ISC_make_desc("LNM$JOB", &tab_desc, sizeof("LNM$JOB") - 1);
+		if (!(sys$trnlnm(&attr, &tab_desc, &log_desc, NULL, items) & 1))
+			continue;
+
+		/* Logical must be copied into the process logical table */
+
+		items[0].itm_length = len;
+		ISC_make_desc(*logicals, &log_desc, 0);
+		ISC_make_desc("LNM$PROCESS", &tab_desc, sizeof("LNM$PROCESS") - 1);
+		sys$crelnm(NULL, &tab_desc, &log_desc, NULL, items);
+	}
+}
+#endif
+#endif
+
+
+static void unwind( MSG_OP message)
+{
+/**************************************
+ *
+ *	u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a request.
+ *
+ **************************************/
+	RRQ request;
+	STATUS status_vector[20];
+
+	request = (RRQ) message->msg_op_handle;
+
+	THREAD_EXIT;
+	GDS_UNWIND(status_vector,
+			   GDS_REF(request->rrq_handle), (SSHORT) message->msg_op_level);
+	THREAD_ENTER;
+
+	send_response(message, status_vector, 0, 0, 0);
+}
diff --git a/src/csv/depends.mak b/src/csv/depends.mak
new file mode 100644
index 0000000000..191c3a04e7
--- /dev/null
+++ b/src/csv/depends.mak
@@ -0,0 +1,75 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# depends.mak - csv
+# Created by 'make depends.mak'
+# Created on 1998-11-17
+csi.o: csi.c
+csi.o: csi.h
+csi.o: csi_proto.h
+csi.o: css_proto.h
+csi.o: source/jrd/build_no.h
+csi.o: source/jrd/codes.h
+csi.o: source/jrd/common.h
+csi.o: source/jrd/fil.h
+csi.o: source/jrd/gds_proto.h
+csi.o: source/jrd/inf.h
+csi.o: source/jrd/isc.h
+csi.o: source/jrd/license.h
+csi.o: source/jrd/thd.h
+csi.o: source/remote/merge_proto.h
+css.o: csi.h
+css.o: css.c
+css.o: css_proto.h
+css.o: source/jrd/codes.h
+css.o: source/jrd/common.h
+css.o: source/jrd/fil.h
+css.o: source/jrd/gds_proto.h
+css.o: source/jrd/isc.h
+css.o: source/jrd/isc_proto.h
+css.o: source/jrd/thd.h
+csu.o: csi.h
+csu.o: css_proto.h
+csu.o: csu.c
+csu.o: source/jrd/build_no.h
+csu.o: source/jrd/codes.h
+csu.o: source/jrd/common.h
+csu.o: source/jrd/fil.h
+csu.o: source/jrd/gds_proto.h
+csu.o: source/jrd/isc.h
+csu.o: source/jrd/license.h
+csu.o: source/jrd/thd.h
+csv.o: csi.h
+csv.o: css_proto.h
+csv.o: csv.c
+csv.o: source/interbase/include/iberror.h
+csv.o: source/jrd/build_no.h
+csv.o: source/jrd/common.h
+csv.o: source/jrd/fil.h
+csv.o: source/jrd/gds.h
+csv.o: source/jrd/gds_proto.h
+csv.o: source/jrd/isc.h
+csv.o: source/jrd/license.h
+csv.o: source/jrd/thd.h
+csv.o: source/remote/merge_proto.h
+print.o: csi.h
+print.o: css_proto.h
+print.o: print.c
+print.o: source/jrd/common.h
+print.o: source/jrd/fil.h
+print.o: source/jrd/gds_proto.h
+print.o: source/jrd/isc.h
+print.o: source/jrd/thd.h
diff --git a/src/csv/print.cpp b/src/csv/print.cpp
new file mode 100644
index 0000000000..f52fe45acc
--- /dev/null
+++ b/src/csv/print.cpp
@@ -0,0 +1,141 @@
+/*
+ *	PROGRAM:	Central Server
+ *	MODULE:		print.c
+ *	DESCRIPTION:	Global region print utility
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../csv/csi.h"
+#include "../csv/css_proto.h"
+#include "../jrd/gds_proto.h"
+
+static void prt_que(UCHAR *, SRQ *);
+
+static CSH CSS_header;
+
+
+void main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SRQ *que;
+	HDR *block;
+	PRB process;
+	MSG message;
+	FRB free;
+	CNCT connection;
+	SLONG offset;
+	STATUS status_vector[20];
+
+	if (!(CSS_header = CSS_init(status_vector, TRUE))) {
+		printf("Can't access global region\n");
+		gds__print_status(status_vector);
+		exit(FINI_ERROR);
+	}
+
+	printf("%.5d GLOBAL REGION HEADER\n", 0);
+	printf("\tLength: %ld, version: %d, free: %ld\n", CSS_header->csh_length,
+		   CSS_header->csh_version, CSS_header->csh_free);
+	printf("\tSemid: %ld, current process: %ld\n",
+		   CSS_header->csh_semid, CSS_header->csh_current_process);
+	prt_que("\tProcesses", &CSS_header->csh_processes);
+
+	for (offset = sizeof(struct csh); offset < CSS_header->csh_length;
+		 offset += block->hdr_length) {
+		printf("\n%.5ld ", offset);
+		block = (HDR *) ABS_PTR(offset);
+		switch (block->hdr_type) {
+		case type_prb:
+			printf("PROCESS_BLOCK (%ld)\n", block->hdr_length);
+			process = (PRB) block;
+			printf("\tProcess_id: %ld, flags: %d, protocol: %d\n",
+				   process->prb_process_id, process->prb_flags,
+				   process->prb_protocol_version);
+			printf("\tSemaphore: %d, group_id: %ld, number: %ld\n",
+				   process->prb_semaphore, process->prb_group_id,
+				   process->prb_process_number);
+			prt_que("\tProcesses", &process->prb_processes);
+			prt_que("\tConnections", &process->prb_connections);
+			prt_que("\tMessages", &process->prb_messages);
+			break;
+
+		case type_frb:
+			printf("FREE BLOCK (%ld)\n", block->hdr_length);
+			free = (FRB) block;
+			printf("\tNext: %ld\n", free->frb_next);
+			break;
+
+		case type_msg:
+			printf("MSG (%ld)\n", block->hdr_length);
+			message = (MSG) block;
+			printf("\tType: %d, connection: %ld\n", message->msg_type,
+				   message->msg_connection);
+			prt_que("\tMsg que", &message->msg_que);
+			break;
+
+		case type_cnct:
+			printf("CONNECTION (%ld)\n", block->hdr_length);
+			connection = (CNCT) block;
+			printf("\tParent: %ld, partner: %ld, mirror: %ld\n",
+				   connection->cnct_parent, connection->cnct_partner,
+				   connection->cnct_mirror);
+			prt_que("\tConnections", &connection->cnct_connections);
+			break;
+
+		default:
+			printf("*** UNKNOWN *** (%ld)\n", block->hdr_length);
+			break;
+		}
+		if (!block->hdr_length)
+			break;
+	}
+
+	exit(FINI_OK);
+}
+
+
+static void prt_que( UCHAR * string, SRQ * que)
+{
+/**************************************
+ *
+ *	p r t _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print the contents of a self-relative que.
+ *
+ **************************************/
+	SLONG offset;
+
+	offset = REL_PTR(que);
+
+	if (offset == que->srq_forward && offset == que->srq_backward)
+		printf("%s: *empty*\n", string);
+	else
+		printf("%s: forward: %d, backward: %d\n",
+			   string, que->srq_forward, que->srq_backward);
+}
diff --git a/src/dsql/all.h b/src/dsql/all.h
new file mode 100644
index 0000000000..c84599280c
--- /dev/null
+++ b/src/dsql/all.h
@@ -0,0 +1,40 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		all.h
+ *	DESCRIPTION:	Allocator prototypes
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../dsql/dsql.h"
+
+BLK ALLD_alloc(					/* alloc and init a block from a pool */
+				  PLB pool, UCHAR type, int count);
+
+BLK ALLD_extend(				/* extend a block by given size */
+				   BLK * pointer, int size);
+
+int ALLD_fini();				/* get rid of everything */
+int ALLD_free(SCHAR * memory);	/* give space back to system */
+int ALLD_init();				/* initialize pool system */
+UCHAR *ALLD_malloc(int size);	/* get memory from system */
+PLB ALLD_pool();				/* allocate a new pool */
+int ALLD_push(BLK object, LLS * stack);	/* push object on LLS stack */
+BLK ALLD_pop(LLS * stack);		/* pop object off LLS stack */
+int ALLD_release(FRB block);	/* release a block to its pool */
+int ALLD_rlpool(PLB pool);		/* release a pool */
diff --git a/src/dsql/alld.cpp b/src/dsql/alld.cpp
new file mode 100644
index 0000000000..16db842647
--- /dev/null
+++ b/src/dsql/alld.cpp
@@ -0,0 +1,919 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		all.c
+ *	DESCRIPTION:	Internal block allocator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+/***************************************************
+   THIS MODULE HAS SEVERAL KISSING COUSINS; IF YOU
+   SHOULD CHANGE ONE OF THE MODULES IN THE FOLLOWING
+   LIST, PLEASE BE SURE TO CHECK THE OTHERS FOR
+   SIMILAR CHANGES:
+
+        /gds/maint/pyxis/all.c
+                  /dsql/all.c
+                  /jrd/all.c
+                  /pipe/allp.c
+                  /qli/all.c
+                  /remote/allr.c
+                  /gpre/msc.c
+
+   - THANK YOU
+***************************************************/
+
+
+/**************************************************************
+V4 Multi-threading changes.
+
+-- direct calls to gds__ () & isc_ () entry points
+
+	THREAD_EXIT;
+	    gds__ () or isc_ () call.
+	THREAD_ENTER;
+
+-- calls through embedded GDML.
+
+the following protocol will be used.  Care should be taken if
+nested FOR loops are added.
+
+    THREAD_EXIT;                // last statment before FOR loop 
+
+    FOR ...............
+
+	THREAD_ENTER;           // First statment in FOR loop
+	.....some C code....
+	.....some C code....
+	THREAD_EXIT;            // last statment in FOR loop 
+
+    END_FOR;
+
+    THREAD_ENTER;               // First statment after FOR loop
+***************************************************************/
+
+#include <string.h>
+#include "../jrd/ib_stdio.h"
+#include "../dsql/dsql.h"
+#include "../dsql/node.h"
+#include "../dsql/sym.h"
+#include "../jrd/codes.h"
+#include "../dsql/alld_proto.h"
+#include "../dsql/errd_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/gdsassert.h"
+
+ASSERT_FILENAME					/* Define things dsql/assert needed */
+extern "C" {
+#define MIN_ALLOCATION	1024
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+#define MAX_BLOCK	65520
+#else
+#define MAX_BLOCK	(262144 - MIN_ALLOCATION - sizeof (struct hnk) - 8)
+#endif
+#define SHIFT			SHIFTLONG
+#define BLOCK_FACTOR		(1 << SHIFT)
+#define	BLOCKS_TO_SIZE(blocks)	((blocks) << SHIFT)
+#define	SIZE_TO_BLOCKS(size)	((size) >> SHIFT)
+#define	BLOCK_ROUNDUP(size)	ROUNDUP (size, MAX(BLOCK_FACTOR,ALIGNMENT))
+#define EXPAND_BLOCKSIZE(b)	(BLOCKS_TO_SIZE ((b)->blk_length))
+
+#define BLKDEF(type, root, tail)	sizeof (struct root), tail,
+	static CONST struct {
+	USHORT typ_root_length;
+	USHORT typ_tail_length;
+} block_sizes[] = {
+	0, 0,
+#include "../dsql/blk.h"
+0};
+
+
+#undef BLKDEF
+
+#ifdef SUPERSERVER
+extern SLONG trace_pools;
+SLONG alld_delta_alloc = 0;
+
+#define BLKDEF(type, root, tail)  0,
+
+SLONG alld_block_type_count[] = {
+#include "../dsql/blk.h"
+	0
+};
+#undef BLKDEF
+#define BLKDEF(type, root, tail)  #type,
+char ALLD_types[][24] = {
+	"type_MIN",
+#include "../dsql/blk.h"
+	"type_MAX"
+};
+#undef BLKDEF
+int alld_type_MAX = type_MAX;
+#endif
+
+static void extend_pool(PLB, ULONG);
+static PLB find_pool(BLK);
+static void release(FRB, PLB);
+
+static USHORT init_flag = FALSE;
+static VEC pools = NULL;
+
+
+BLK ALLD_alloc( PLB pool, UCHAR type, ULONG count)
+{
+/**************************************
+ *
+ *	A L L D _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block from a given pool and initialize the block.
+ *	This is the primary block allocation routine.
+ *
+ **************************************/
+	register BLK block;
+	FRB free, *best, *ptr;
+	register ULONG size;
+	ULONG l;
+	SLONG best_tail, tail;
+	ULONG needed_blocks;
+
+	assert(pool != NULL);
+	DEV_BLKCHK(pool, type_plb);
+
+	if (type <= (SCHAR) type_MIN || type >= (SCHAR) type_MAX)
+		BUGCHECK("bad block type");
+
+/* Compute block length */
+
+	size = block_sizes[type].typ_root_length;
+
+	if ((tail = block_sizes[type].typ_tail_length) && count >= 1)
+		size += (count - 1) * tail;
+
+#ifdef DEV_BUILD
+	if (size <= sizeof(struct blk) || size >= MAX_BLOCK)
+		BUGCHECK("bad block size");
+#endif
+
+	needed_blocks = SIZE_TO_BLOCKS(BLOCK_ROUNDUP(size));
+
+	assert(BLOCKS_TO_SIZE(needed_blocks) >= size);
+
+/* Find best fit.  Best fit is defined to be the free block of shortest
+   tail.  If there isn't a fit, extend the pool and try, try again. */
+
+	while (TRUE) {
+		best = NULL;
+		best_tail = MAX_BLOCK;
+		for (ptr = &pool->plb_free; ((free = *ptr) != NULL);
+			 ptr =
+			 &free->frb_next) if ((SCHAR HUGE_PTR *) free ==
+								  (SCHAR HUGE_PTR *) free->frb_next) {
+				BUGCHECK("corrupt pool");
+			}
+		/* Is this block big enough?  
+		 * And have less leftover than the best one found? */
+			else
+				if (
+					((tail
+					  =
+					  ((ULONG) free->frb_header.blk_length -
+					   needed_blocks)) >= 0) && (tail < best_tail)) {
+				best = ptr;
+				best_tail = tail;
+				if (tail == 0)
+					break;
+			}
+		if (best)
+			break;
+
+		extend_pool(pool, size);
+	}
+
+/* We've got our free block.  If there's enough left of the free block
+   after taking out our block, chop out out block.  If not, allocate
+   the entire free block as our block (a little extra won't hurt). */
+
+	free = *best;
+	if (best_tail > SIZE_TO_BLOCKS(BLOCK_ROUNDUP(sizeof(struct frb)))) {
+		/* Carve off the needed size from the bottom of the free block */
+		l = free->frb_header.blk_length - needed_blocks;
+
+		block = (BLK) ((UCHAR *) free + BLOCKS_TO_SIZE(l));
+
+		/* Reset the length of the free block */
+		assert(l <= MAX_USHORT);
+		free->frb_header.blk_length = (USHORT) l;
+	}
+	else {
+		/* There isn't left over in the free block to save in the free list */
+		/* So give the client the whole free block */
+
+		/* Unhook the free block from the free chain */
+		*best = free->frb_next;
+
+		/* Client gets the whole block */
+		needed_blocks = free->frb_header.blk_length;
+		block = (BLK) free;
+	}
+
+/* Zero the whole allocated structure */
+	memset(block, 0, BLOCKS_TO_SIZE(needed_blocks));
+
+/* Now set the block header (yeah, we just zero'ed it, sue me) */
+	block->blk_type = type;
+	assert(pool->plb_pool_id <= MAX_UCHAR);
+	block->blk_pool_id = (UCHAR) pool->plb_pool_id;
+	assert(needed_blocks <= MAX_USHORT);
+	block->blk_length = (USHORT) needed_blocks;
+
+#ifdef SUPERSERVER
+	if (trace_pools) {
+		++alld_block_type_count[type];
+		++pool->plb_blk_type_count[type];
+	}
+#endif
+
+	return block;
+}
+
+
+BLK ALLD_extend(BLK * pointer, ULONG size)
+{
+/**************************************
+ *
+ *	A L L D _ e x t e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend a repeating block, copying the constant part.
+ *
+ **************************************/
+	BLK block, new_;
+	PLB pool;
+	register ULONG length, l;
+	register SLONG *p1, *p2;
+	register SCHAR *c1, *c2;
+
+	assert(pointer != NULL);
+	assert(*pointer != NULL);
+
+	block = *pointer;
+	pool = find_pool(block);
+	new_ = ALLD_alloc(pool, block->blk_type, size);
+	length = MIN(EXPAND_BLOCKSIZE(block), EXPAND_BLOCKSIZE(new_))
+		- sizeof(struct blk);
+	p1 = (SLONG *) ((UCHAR *) new_ + sizeof(struct blk));
+	p2 = (SLONG *) ((UCHAR *) block + sizeof(struct blk));
+
+/* Copy the bytes a longword at a time */
+	if ((l = length >> SHIFTLONG) != 0)
+		do
+			*p1++ = *p2++;
+		while (--l);
+
+/* Copy any remaining bytes */
+	if (length &= 3) {
+		c1 = (SCHAR *) p1;
+		c2 = (SCHAR *) p2;
+		do
+			*c1++ = *c2++;
+		while (--length);
+	}
+
+	release(reinterpret_cast<FRB>(block), pool);
+
+	if (new_->blk_type == (SCHAR) type_vec)
+		((VEC) new_)->vec_count = size;
+	else if (new_->blk_type == (SCHAR) type_vcl)
+		((VCL) new_)->vcl_count = size;
+
+	*pointer = new_;
+
+	return new_;
+}
+
+
+void ALLD_fini(void)
+{
+/**************************************
+ *
+ *	A L L D _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of everything.
+ *
+ **************************************/
+	BLK *vector, *until;
+	PLB pool;
+
+	assert(init_flag);			/* Must _init before _fini */
+
+/* if there are no pools, we've already finished. */
+
+	if (!pools)
+		return;
+
+/* vec_object [0] is the memory pool which contains pools, so release
+ * objects in reverse order, and be careful not to refer to pools
+ * during the process.
+ */
+	for (vector = pools->vec_object + pools->vec_count, until =
+		 pools->vec_object; --vector >= until;)
+		if ((pool = (PLB) * vector) != NULL)
+			ALLD_rlpool(pool);
+
+	pools = NULL;
+	init_flag = FALSE;
+}
+
+
+void ALLD_free( SCHAR * memory)
+{
+/**************************************
+ *
+ *	A L L D _ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Give space back to system.
+ *
+ **************************************/
+
+#ifdef SUPERSERVER
+	alld_delta_alloc -= gds__free(memory);
+#else
+	gds__free(memory);
+#endif
+}
+
+
+USHORT ALLD_init(void)
+{
+/**************************************
+ *
+ *	A L L D _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the pool system.  Return
+ *	TRUE if initialization took place, FALSE if
+ * 	we had been previous initialized.
+ *
+ **************************************/
+	SLONG temp_vector[20];
+	PLB pool;
+	USHORT init;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	init = (init_flag == FALSE);
+	if (!init_flag) {
+		init_flag = TRUE;
+
+		pools = (VEC) temp_vector;
+		pools->vec_count = 1;
+		pools->vec_object[0] = NULL;
+
+		tdsql->tsql_default = DSQL_permanent_pool = pool = ALLD_pool();
+		pools = (VEC) ALLD_alloc(pool, type_vec, 10);
+		pools->vec_count = 10;
+
+		/* Note: ALLD_fini() assumes the this master pool is in vec_object [0] */
+		pools->vec_object[0] = (BLK) pool;
+	}
+
+	return init;
+}
+
+
+UCHAR *ALLD_malloc(ULONG size)
+{
+/**************************************
+ *
+ *	A L L D _ m a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get memory from system.
+ *
+ **************************************/
+	register UCHAR *memory;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	if ((memory = gds__alloc((SLONG) size)) != NULL)
+#ifdef SUPERSERVER
+	{
+		alld_delta_alloc += size;
+		return memory;
+	}
+#else
+		return memory;
+#endif
+/* FREE: by ALLD_free, called during DSQL cleanup */
+/* NOMEM: post a user level error - if we can */
+
+	if (tdsql && tdsql->tsql_setjmp)
+		ERRD_post(gds__sys_request, gds_arg_string, "gds__alloc", gds_arg_gds,
+				  gds__virmemexh, gds_arg_end);
+
+/* Commentary:  This expands out to a call to ERRD_error - which
+ * promply depends on tdsql being non-NULL.  Knock, knock, anyone home?
+ */
+	IBERROR(-1, "out of memory");
+	return ((UCHAR *) NULL);	/* Added to remove warnings */
+}
+
+
+PLB ALLD_pool(void)
+{
+/**************************************
+ *
+ *	A L L D _ p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a new pool.  This is done by creating a tempory
+ *	pool block on the stack, then allocating a real pool block.
+ *	In short, by mirrors.
+ *
+ **************************************/
+	struct plb temp_pool;
+	register PLB pool;
+	register USHORT pool_id;
+
+/* Start by assigning a pool id */
+
+	for (pool_id = 0; pool_id < pools->vec_count; pool_id++)
+		if (!(pools->vec_object[pool_id]))
+			break;
+
+	if (pool_id >= pools->vec_count)
+		ALLD_extend((BLK *) & pools, (ULONG) (pool_id + 10));
+
+	memset((UCHAR *) & temp_pool, 0, sizeof(temp_pool));
+	temp_pool.plb_header.blk_type = type_plb;
+	pools->vec_object[pool_id] = (BLK) & temp_pool;
+	temp_pool.plb_free = NULL;
+	temp_pool.plb_hunks = NULL;
+	temp_pool.plb_pool_id = pool_id;
+	temp_pool.plb_blk_type_count = NULL;
+#ifdef SUPERSERVER
+	if (trace_pools)
+	{
+		temp_pool.plb_blk_type_count =
+			reinterpret_cast <long*>(gds__alloc(sizeof(alld_block_type_count)));
+		if (!temp_pool.plb_blk_type_count) {
+			trace_pools = 0;	/* No memory!! stop tracing pool info */
+		} else {
+			memset(temp_pool.plb_blk_type_count, 0, sizeof(alld_block_type_count));
+		}
+	}
+#endif
+
+	if (pool_id == 0)
+		DSQL_permanent_pool = &temp_pool;
+
+	pool = (PLB) ALLD_alloc(&temp_pool, type_plb, 0);
+	pool->plb_pool_id = pool_id;
+	pool->plb_free = temp_pool.plb_free;
+	pool->plb_hunks = temp_pool.plb_hunks;
+#ifdef SUPERSERVER
+	pool->plb_blk_type_count = temp_pool.plb_blk_type_count;
+#endif
+	pools->vec_object[pool_id] = (BLK) pool;
+
+	if (pool_id == 0)
+		DSQL_permanent_pool = pool;
+
+	return pool;
+}
+
+
+#ifdef SUPERSERVER
+void ALLD_print_memory_pool_info( IB_FILE * fptr)
+{
+/*************************************************************
+ *
+ *	A L L D _ p r i n t _ m e m o r y _ p o o l _ i n f o
+ *
+ *************************************************************
+ *
+ * Functional description
+ *	Print the various block types allocated with in the pools
+ *
+ *************************************************************/
+	VEC vector;
+	PLB myPool;
+	HNK hnk;
+	int i, j, col;
+
+	if (!trace_pools)
+		return;
+
+	ib_fprintf(fptr, "\n\tALLD_xx block types\n");
+	ib_fprintf(fptr, "\t--------------------");
+	for (i = 0, col = 0; i < type_MAX; i++)
+		if (alld_block_type_count[i]) {
+			if (col % 5 == 0)
+				ib_fprintf(fptr, "\n\t");
+			ib_fprintf(fptr, "%s = %d  ", ALLD_types[i],
+					   alld_block_type_count[i]);
+			++col;
+		}
+	ib_fprintf(fptr, "\n");
+
+	if (!pools) {
+		ib_fprintf(fptr, "\t    No pools allocated");
+		return;
+	}
+	vector = pools;
+	for (j = 0, i = 0; i < (int) vector->vec_count; i++) {
+		myPool = (PLB) vector->vec_object[i];
+		if (myPool)
+			++j;
+	}
+	ib_fprintf(fptr, "\t    There are %d pools", j);
+	for (i = 0; i < (int) vector->vec_count; i++) {
+		myPool = (PLB) vector->vec_object[i];
+		if (!myPool)
+			continue;
+		ib_fprintf(fptr, "\n\t    Pool %d", myPool->plb_pool_id);
+		for (j = 0, hnk = myPool->plb_hunks; hnk; hnk = hnk->hnk_next)
+			j++;
+		if (j)
+			ib_fprintf(fptr, " has %d hunks", j);
+		for (j = 0, col = 0; j < type_MAX; j++)
+			if (myPool->plb_blk_type_count[j]) {
+				if (col % 5 == 0)
+					ib_fprintf(fptr, "\n\t    ");
+				ib_fprintf(fptr, "%s = %d  ", ALLD_types[j],
+						   myPool->plb_blk_type_count[j]);
+				++col;
+			}
+	}
+}
+#endif
+
+
+void ALLD_push( BLK object, register LLS * stack)
+{
+/**************************************
+ *
+ *	A L L D _ p u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Push an object on an LLS stack.
+ *
+ **************************************/
+	register LLS node;
+	PLB pool;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	pool = tdsql->tsql_default;
+
+	if ((node = pool->plb_lls) != NULL) {
+		/* Pull a stack block off the list of free stack blocks */
+		pool->plb_lls = node->lls_next;
+	}
+	else {
+		/* No free stack blocks - allocate a new one */
+		node = (LLS) ALLD_alloc(pool, type_lls, 0);
+	}
+
+	DEV_BLKCHK(node, type_lls);
+	DEV_BLKCHK(*stack, type_lls);
+
+	node->lls_object = object;
+	node->lls_next = *stack;
+	*stack = node;
+}
+
+
+BLK ALLD_pop(register LLS * stack)
+{
+/**************************************
+ *
+ *	A L L D _ p o p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pop an object off a linked list stack.  Save the node for
+ *	further use.
+ *
+ **************************************/
+	register LLS node;
+	register PLB pool;
+	BLK block;
+
+	DEV_BLKCHK(*stack, type_lls);
+
+	node = *stack;
+
+	DEV_BLKCHK(node, type_lls);
+
+
+
+/* what we are doing below is .... block = &(node->lls_header) */
+	block = (BLK) node;
+	pool = find_pool(block);
+
+/* Pop item off the stack */
+	*stack = node->lls_next;
+
+/* Add the popped stack lls block to the list of free stack blocks */
+	node->lls_next = pool->plb_lls;
+	pool->plb_lls = node;
+
+	return node->lls_object;
+}
+
+
+void ALLD_release( register FRB block)
+{
+/**************************************
+ *
+ *	A L L D _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block to its pool.  If it is contiguous to
+ *	another free block, combine them.  Otherwise link it
+ *	into the free block linked list (kept in ascending order
+ *	of addresses).
+ *
+ **************************************/
+
+	release(block, find_pool(&block->frb_header));
+}
+
+
+void ALLD_rlpool( PLB pool)
+{
+/**************************************
+ *
+ *	A L L D _ r l p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a storage pool.  This involves nothing more than returning
+ *	hunks to the free hunk list.
+ *
+ **************************************/
+	register HNK hunk, hunks;
+
+/* if there are no pools, there's no point in releasing anything... */
+
+	if (!pools)
+		return;
+
+	DEV_BLKCHK(pool, type_plb);
+
+	pools->vec_object[pool->plb_pool_id] = NULL;
+
+/* Have to release hunks carefully, as one of the hunks being released 
+ * contains pool itself
+ */
+#ifdef SUPERSERVER
+	if (trace_pools && pool->plb_blk_type_count) {
+		int i;
+		for (i = 0; i < type_MAX; i++)
+			alld_block_type_count[i] -= pool->plb_blk_type_count[i];
+		gds__free(pool->plb_blk_type_count);
+	}
+#endif
+
+	for (hunks = pool->plb_hunks; hunk = hunks;) {
+		hunks = hunk->hnk_next;
+		ALLD_free(reinterpret_cast < char *>(hunk->hnk_address));
+	}
+}
+
+
+static void extend_pool( PLB pool, ULONG size)
+{
+/**************************************
+ *
+ *	e x t e n d _ p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend a pool by at least enough to accomodate a block
+ *	of given size.
+ *
+ **************************************/
+	register HNK hunk;
+	register BLK block;
+
+	DEV_BLKCHK(pool, type_plb);
+
+	size =
+		(size + sizeof(struct hnk) + MIN_ALLOCATION -
+		 1) & ~((ULONG) MIN_ALLOCATION - 1);
+	block = (BLK) ALLD_malloc(size);
+	assert(SIZE_TO_BLOCKS(size) <= MAX_USHORT);
+	block->blk_length = (USHORT) SIZE_TO_BLOCKS(size);
+	block->blk_type = (SCHAR) type_frb;
+	assert(pool->plb_pool_id <= MAX_UCHAR);
+	block->blk_pool_id = (UCHAR) pool->plb_pool_id;
+#ifdef SUPERSERVER
+	if (trace_pools) {
+		++alld_block_type_count[block->blk_type];
+		++pool->plb_blk_type_count[block->blk_type];
+	}
+#endif
+	release(reinterpret_cast<FRB>(block), pool);
+
+	hunk = (HNK) ALLD_alloc(pool, type_hnk, 0);
+	hunk->hnk_address = (UCHAR *) block;
+	hunk->hnk_length = size;
+	hunk->hnk_next = pool->plb_hunks;
+	pool->plb_hunks = hunk;
+}
+
+
+static PLB find_pool( BLK block)
+{
+/**************************************
+ *
+ *	f i n d _ p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find pool associate with block.
+ *
+ **************************************/
+	PLB pool;
+	HNK hunk;
+	USHORT pool_id;
+
+	if (pools->vec_count < 256)
+		if ((pool_id = block->blk_pool_id) < pools->vec_count &&
+			(pool = (PLB) pools->vec_object[pool_id]))
+			return pool;
+		else
+			BUGCHECK("bad pool id");
+
+	for (pool_id = block->blk_pool_id; pool_id < pools->vec_count;
+		 pool_id += 256) if (pool = (PLB) pools->vec_object[pool_id]) {
+			hunk = pool->plb_hunks;
+			for (; hunk; hunk = hunk->hnk_next)
+				if ((SCHAR HUGE_PTR *) block >=
+					(SCHAR HUGE_PTR *) hunk->hnk_address
+					&& (SCHAR HUGE_PTR *) block <
+					(SCHAR HUGE_PTR *) hunk->hnk_address + hunk->hnk_length)
+					return pool;
+		}
+	BUGCHECK("bad pool id");
+	return (PLB) NULL;			/* Added to remove warnings */
+}
+
+
+static void release( FRB block, PLB pool)
+{
+/**************************************
+ *
+ *	r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block to its pool.  If it is contiguous to
+ *	another free block, combine them.  Otherwise link it
+ *	into the free block linked list (kept in ascending order
+ *	of addresses).
+ *
+ **************************************/
+	register FRB prior, free;
+	FRB *ptr;
+#ifdef SUPERSERVER
+	UCHAR blk_header_type;
+#endif
+
+	DEV_BLKCHK(pool, type_plb);
+
+#ifdef SUPERSERVER
+	blk_header_type = block->frb_header.blk_type;
+#endif
+	block->frb_header.blk_type = (SCHAR) type_frb;
+	prior = NULL;
+
+	for (ptr = &pool->plb_free; (free = *ptr) != NULL;
+		 prior = free, ptr =
+		 &free->frb_next) if ((SCHAR HUGE_PTR *) block <=
+							  (SCHAR HUGE_PTR *) free) break;
+
+#ifdef DEBUG_GDS_ALLOC
+/* Debugging code to erase memory locations after a release - 
+ * this will assist in catching dangling memory references to
+ * freed locations.
+ * Note that the header parts of the freed block may still be used,
+ * for the free chain, so we don't zap those locations.
+ */
+
+#define ALLD_RELEASED_PATTERN	0xEE
+	{
+		ULONG size;
+		size = BLOCKS_TO_SIZE(block->frb_header.blk_length);
+		assert(size >= sizeof(struct blk));
+		size -= sizeof(struct blk);
+		if (size)
+			memset((SCHAR *) block + sizeof(struct blk),
+				   ALLD_RELEASED_PATTERN, size);
+	};
+#endif	/* DEBUG_GDS_ALLOC */
+
+	if ((SCHAR HUGE_PTR *) block == (SCHAR HUGE_PTR *) free) {
+		BUGCHECK("block released twice");
+	}
+
+/* Merge block into list first, then try to combine blocks */
+
+	block->frb_next = free;
+	*ptr = block;
+
+/* Try to merge the free block with the next one down. */
+
+	if (free) {
+		if ((SCHAR HUGE_PTR *) block + EXPAND_BLOCKSIZE(&block->frb_header) ==
+			(SCHAR HUGE_PTR *) free) {
+			block->frb_header.blk_length += free->frb_header.blk_length;
+			block->frb_next = free->frb_next;
+#ifdef DEBUG_GDS_ALLOC
+			/* Paint the freed header of the merged-away block */
+			memset((UCHAR *) free, ALLD_RELEASED_PATTERN, sizeof(*free));
+#endif	/* DEBUG_GDS_ALLOC */
+		}
+		else if ((SCHAR HUGE_PTR *) block +
+				 EXPAND_BLOCKSIZE(&block->frb_header) >
+				 (SCHAR HUGE_PTR *) free) {
+			BUGCHECK("released block overlaps following free block");
+		}
+	}
+
+/* Try and merge the block with the prior free block */
+
+	if (prior) {
+		if ((SCHAR HUGE_PTR *) prior + EXPAND_BLOCKSIZE(&prior->frb_header) ==
+			(SCHAR HUGE_PTR *) block) {
+			prior->frb_header.blk_length += block->frb_header.blk_length;
+			prior->frb_next = block->frb_next;
+#ifdef DEBUG_GDS_ALLOC
+			/* Paint the freed header of the merged-away block */
+			memset((UCHAR *) block, ALLD_RELEASED_PATTERN, sizeof(*block));
+#endif	/* DEBUG_GDS_ALLOC */
+		}
+		else if ((SCHAR HUGE_PTR *) prior +
+				 EXPAND_BLOCKSIZE(&prior->frb_header) >
+				 (SCHAR HUGE_PTR *) block) {
+			BUGCHECK("released block overlaps prior free block");
+		}
+	}
+#ifdef SUPERSERVER
+	if (trace_pools) {
+		--alld_block_type_count[blk_header_type];
+		--pool->plb_blk_type_count[blk_header_type];
+	}
+#endif
+}
+
+
+} // extern "C"
diff --git a/src/dsql/alld_proto.h b/src/dsql/alld_proto.h
new file mode 100644
index 0000000000..cd40ec5ea0
--- /dev/null
+++ b/src/dsql/alld_proto.h
@@ -0,0 +1,47 @@
+/*
+ *	PROGRAM:	Dynamic  SQL RUNTIME SUPPORT
+ *	MODULE:		alld_proto.h
+ *	DESCRIPTION:	Prototype Header file for alld.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_ALLD_PROTO_H_
+#define _DSQL_ALLD_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern BLK ALLD_alloc(struct plb *, UCHAR, ULONG);
+extern BLK ALLD_extend(struct blk **, ULONG);
+extern void ALLD_fini(void);
+extern void ALLD_free(SCHAR *);
+extern USHORT ALLD_init(void);
+extern UCHAR *ALLD_malloc(ULONG);
+extern PLB ALLD_pool(void);
+extern BLK ALLD_pop(register struct lls **);
+extern void ALLD_push(struct blk *, register struct lls **);
+extern void ALLD_release(register struct frb *);
+extern void ALLD_rlpool(struct plb *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _DSQL_ALLD_PROTO_H_ */
diff --git a/src/dsql/array.e b/src/dsql/array.e
new file mode 100644
index 0000000000..00a69da5d2
--- /dev/null
+++ b/src/dsql/array.e
@@ -0,0 +1,631 @@
+/*
+ *	PROGRAM:	Interbase layered support library
+ *	MODULE:		array.e
+ *	DESCRIPTION:	Dynamic array support
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../include/jrd/gds.h"
+#include "../dsql/array_proto.h"
+#include "../jrd/gds_proto.h"
+
+#ifdef	WINDOWS_ONLY
+#include "../jrd/seg_proto.h"
+#endif
+
+DATABASE DB = STATIC "yachts.lnk";
+
+#define ARRAY_DESC_COLUMN_MAJOR		1	/* Set for FORTRAN */
+
+typedef struct gen {
+	SCHAR *gen_sdl;
+	SCHAR **gen_sdl_ptr;
+	SCHAR *gen_end;
+	STATUS *gen_status;
+	SSHORT gen_internal;
+} *GEN;
+
+static void adjust_length(ISC_ARRAY_DESC *);
+static STATUS copy_status(STATUS *, STATUS *);
+static STATUS error(STATUS *, SSHORT, ...);
+static STATUS gen_sdl(STATUS *, ISC_ARRAY_DESC *, SSHORT *, SCHAR **,
+					  SSHORT *, BOOLEAN);
+static void get_name(SCHAR *, SCHAR *);
+static STATUS lookup_desc(STATUS *, void **, void **, SCHAR *, SCHAR *,
+						  ISC_ARRAY_DESC *, SCHAR *);
+static STATUS stuff(GEN, SSHORT, ...);
+static STATUS stuff_literal(GEN, SLONG);
+static STATUS stuff_string(GEN, SCHAR, SCHAR *);
+
+/* STUFF_SDL used in place of STUFF to avoid confusion with BLR STUFF
+   macro defined in dsql.h */
+
+#define STUFF_SDL(byte)	 if (stuff (gen, 1, byte)) return status [1]
+#define STUFF_SDL_WORD(word) if (stuff (gen, 2, word, word >> 8)) return status [1]
+#define STUFF_SDL_LONG(word) if (stuff (gen, 4, word, word >> 8, word >> 16, word >> 24)) return status [1]
+
+
+STATUS API_ROUTINE isc_array_gen_sdl(STATUS * status,
+									 ISC_ARRAY_DESC * desc,
+									 SSHORT * sdl_buffer_length,
+                                     SCHAR * sdl_buffer, SSHORT * sdl_length)
+{
+/**************************************
+ *
+ *	i s c _ a r r a y _ g e n _ s d l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return gen_sdl(status, desc, sdl_buffer_length, &sdl_buffer, sdl_length,
+				   FALSE);
+}
+
+
+STATUS API_ROUTINE isc_array_get_slice(STATUS * status,
+									   void **db_handle,
+									   void **trans_handle,
+									   GDS_QUAD * array_id,
+									   ISC_ARRAY_DESC * desc,
+									   void *array, SLONG * slice_length)
+{
+/**************************************
+ *
+ *	i s c _ a r r a y _ g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *sdl, sdl_buffer[512];
+	SSHORT sdl_length;
+
+	sdl_length = sizeof(sdl_buffer);
+	sdl = sdl_buffer;
+
+	if (gen_sdl(status, desc, &sdl_length, &sdl, &sdl_length, TRUE))
+		return status[1];
+
+	isc_get_slice(status, db_handle, trans_handle, array_id,
+				  sdl_length, sdl, 0, NULL_PTR,
+				  *slice_length, array, slice_length);
+
+	if (sdl != sdl_buffer)
+		gds__free((SLONG *) sdl);
+
+	return status[1];
+}
+
+
+STATUS API_ROUTINE isc_array_lookup_bounds(STATUS * status,
+										   void **db_handle,
+										   void **trans_handle,
+										   SCHAR * relation_name,
+										   SCHAR * field_name,
+										   ISC_ARRAY_DESC * desc)
+{
+/**************************************
+ *
+ *	i s c _ a r r a y _ l o o k u p _ b o u n d s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	ISC_ARRAY_BOUND *tail;
+	SCHAR global[32];
+
+	if (lookup_desc(status, db_handle, trans_handle,
+					field_name, relation_name, desc, global))
+		  return status[1];
+
+	tail = desc->array_desc_bounds;
+
+	FOR X IN RDB$FIELD_DIMENSIONS WITH X.RDB$FIELD_NAME EQ global SORTED BY X.RDB$DIMENSION
+        tail->array_bound_lower = (SSHORT)X.RDB$LOWER_BOUND;
+	    tail->array_bound_upper = (SSHORT)X.RDB$UPPER_BOUND;
+        ++tail;
+	END_FOR 
+    ON_ERROR 
+        return copy_status(gds__status, status);
+	END_ERROR;
+
+	return status[1];
+}
+
+
+STATUS API_ROUTINE isc_array_lookup_desc(STATUS * status,
+										 void **db_handle,
+										 void **trans_handle,
+										 SCHAR * relation_name,
+										 SCHAR * field_name,
+										 ISC_ARRAY_DESC * desc)
+{
+/**************************************
+ *
+ *	i s c _ a r r a y _ l o o k u p _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return lookup_desc(status, db_handle, trans_handle,
+					   field_name, relation_name, desc, NULL_PTR);
+}
+
+
+STATUS API_ROUTINE isc_array_put_slice(STATUS * status,
+									   void **db_handle,
+									   void **trans_handle,
+									   GDS_QUAD * array_id,
+									   ISC_ARRAY_DESC * desc,
+									   void *array, SLONG * slice_length)
+{
+/**************************************
+ *
+ *	i s c _ a r r a y _ p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *sdl, sdl_buffer[512];
+	SSHORT sdl_length;
+
+	sdl_length = sizeof(sdl_buffer);
+	sdl = sdl_buffer;
+
+	if (gen_sdl(status, desc, &sdl_length, &sdl, &sdl_length, TRUE))
+		return status[1];
+
+	isc_put_slice(status, db_handle, trans_handle, array_id,
+				  sdl_length, sdl, 0, NULL_PTR, *slice_length, array);
+
+	if (sdl != sdl_buffer)
+		gds__free((SLONG *) sdl);
+
+	return status[1];
+}
+
+
+STATUS API_ROUTINE isc_array_set_desc(STATUS * status,
+									  SCHAR * relation_name,
+									  SCHAR * field_name,
+									  SSHORT * sql_dtype,
+									  SSHORT * sql_length,
+									  SSHORT * dimensions,
+									  ISC_ARRAY_DESC * desc)
+{
+/**************************************
+ *
+ *	i s c _ a r r a y _ s e t _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SSHORT dtype;
+
+	get_name(field_name, desc->array_desc_field_name);
+	get_name(relation_name, desc->array_desc_relation_name);
+	desc->array_desc_flags = 0;
+	desc->array_desc_dimensions = *dimensions;
+	desc->array_desc_length = *sql_length;
+	desc->array_desc_scale = 0;
+
+	dtype = *sql_dtype & ~1;
+
+	if (dtype == SQL_VARYING)
+		desc->array_desc_dtype = blr_varying;
+	else if (dtype == SQL_TEXT)
+		desc->array_desc_dtype = blr_text;
+	else if (dtype == SQL_DOUBLE)
+		desc->array_desc_dtype = blr_double;
+	else if (dtype == SQL_FLOAT)
+		desc->array_desc_dtype = blr_float;
+	else if (dtype == SQL_D_FLOAT)
+		desc->array_desc_dtype = blr_d_float;
+	else if (dtype == SQL_TIMESTAMP)
+		desc->array_desc_dtype = blr_timestamp;
+	else if (dtype == SQL_TYPE_DATE)
+		desc->array_desc_dtype = blr_sql_date;
+	else if (dtype == SQL_TYPE_TIME)
+		desc->array_desc_dtype = blr_sql_time;
+	else if (dtype == SQL_LONG)
+		desc->array_desc_dtype = blr_long;
+	else if (dtype == SQL_SHORT)
+		desc->array_desc_dtype = blr_short;
+	else if (dtype == SQL_INT64)
+		desc->array_desc_dtype = blr_int64;
+	else if (dtype == SQL_QUAD)
+		desc->array_desc_dtype = blr_quad;
+	else
+		return error(status, 7, (STATUS) gds__sqlerr,
+					 (STATUS) gds_arg_number, (STATUS) - 804,
+					 (STATUS) gds_arg_gds, (STATUS) gds__random,
+					 (STATUS) gds_arg_string,
+					 (STATUS) "data type not understood");
+
+	return error(status, 1, (STATUS) SUCCESS);
+}
+
+
+static void adjust_length( ISC_ARRAY_DESC * desc)
+{
+/**************************************
+ *
+ *	a d j u s t _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make architectural adjustment to fixed datatypes.
+ *
+ **************************************/
+}
+
+
+static STATUS copy_status( STATUS * from, STATUS * to)
+{
+/**************************************
+ *
+ *	c o p y _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a status vector.
+ *
+ **************************************/
+	STATUS status, *end;
+
+	status = from[1];
+
+	for (end = from + ISC_STATUS_LENGTH; from < end;)
+		*to++ = *from++;
+
+	return status;
+}
+
+
+static STATUS error( STATUS * status, SSHORT count, ...)
+{
+/**************************************
+ *
+ *	e r r o r	
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stuff a status vector.
+ *
+ **************************************/
+	STATUS *stat;
+	va_list ptr;
+
+	VA_START(ptr, count);
+	stat = status;
+	*stat++ = gds_arg_gds;
+
+	for (; count; --count)
+		*stat++ = (STATUS) va_arg(ptr, STATUS);
+
+	*stat = gds_arg_end;
+
+	return status[1];
+}
+
+
+static STATUS gen_sdl(STATUS * status,
+					  ISC_ARRAY_DESC * desc,
+					  SSHORT * sdl_buffer_length,
+					  SCHAR ** sdl_buffer,
+                      SSHORT * sdl_length, BOOLEAN internal_flag)
+{
+/**************************************
+ *
+ *	g e n _ s d l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SSHORT n, from, to, increment, dimensions;
+	ISC_ARRAY_BOUND *tail;
+	struct gen *gen, gen_block;
+
+
+	dimensions = desc->array_desc_dimensions;
+
+	if (dimensions > 16)
+		return error(status, 5, (STATUS) gds__invalid_dimension,
+					 (STATUS) gds_arg_number, (STATUS) dimensions,
+					 (STATUS) gds_arg_number, (STATUS) 16);
+
+	gen = &gen_block;
+	gen->gen_sdl = *sdl_buffer;
+	gen->gen_sdl_ptr = sdl_buffer;
+	gen->gen_end = *sdl_buffer + *sdl_buffer_length;
+	gen->gen_status = status;
+	gen->gen_internal = internal_flag ? 0 : -1;
+
+	if (stuff
+		(gen, 4, gds__sdl_version1, gds__sdl_struct, 1,
+		 desc->array_desc_dtype)) return status[1];
+
+	switch (desc->array_desc_dtype) {
+	case blr_short:
+	case blr_long:
+	case blr_int64:
+	case blr_quad:
+		STUFF_SDL(desc->array_desc_scale);
+		break;
+
+	case blr_text:
+	case blr_cstring:
+	case blr_varying:
+		STUFF_SDL_WORD(desc->array_desc_length);
+		break;
+	default:
+		break;
+	}
+
+	if (stuff_string(gen, gds__sdl_relation, desc->array_desc_relation_name))
+		return status[1];
+
+	if (stuff_string(gen, gds__sdl_field, desc->array_desc_field_name))
+		return status[1];
+
+	if (desc->array_desc_flags & ARRAY_DESC_COLUMN_MAJOR) {
+		from = dimensions - 1;
+		to = -1;
+		increment = -1;
+	}
+	else {
+		from = 0;
+		to = dimensions;
+		increment = 1;
+	}
+
+	for (n = from; n != to; n += increment) {
+		tail = desc->array_desc_bounds + n;
+		if (tail->array_bound_lower == 1) {
+			if (stuff(gen, 2, gds__sdl_do1, n))
+				return status[1];
+		}
+		else {
+			if (stuff(gen, 2, gds__sdl_do2, n))
+				return status[1];
+			if (stuff_literal(gen, (SLONG) tail->array_bound_lower))
+				return status[1];
+		}
+		if (stuff_literal(gen, (SLONG) tail->array_bound_upper))
+			return status[1];
+	}
+
+	if (stuff(gen, 5, gds__sdl_element, 1, gds__sdl_scalar, 0, dimensions))
+		return status[1];
+
+	for (n = 0; n < dimensions; n++)
+		if (stuff(gen, 2, gds__sdl_variable, n))
+			return status[1];
+
+	STUFF_SDL(gds__sdl_eoc);
+	*sdl_length = gen->gen_sdl - *gen->gen_sdl_ptr;
+
+	return error(status, 1, (STATUS) SUCCESS);
+}
+
+
+static void get_name( SCHAR * from, SCHAR * to)
+{
+/**************************************
+ *
+ *	g e t _ n a m e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy null or blank terminated name.
+ *
+ **************************************/
+
+	while (*from && *from != ' ') {
+		*to++ = UPPER7(*from);
+		from++;
+	}
+
+	*to = 0;
+}
+
+
+static STATUS lookup_desc(STATUS * status,
+						  void **db_handle,
+						  void **trans_handle,
+						  SCHAR * field_name,
+SCHAR * relation_name, ISC_ARRAY_DESC * desc, SCHAR * global)
+{
+/**************************************
+ *
+ *	l o o k u p _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SSHORT flag;
+
+	if (DB && DB != *db_handle)
+		RELEASE_REQUESTS;
+
+	DB = *db_handle;
+	gds__trans = *trans_handle;
+	get_name(field_name, desc->array_desc_field_name);
+	get_name(relation_name, desc->array_desc_relation_name);
+	desc->array_desc_flags = 0;
+
+	flag = FALSE;
+
+	FOR X IN RDB$RELATION_FIELDS CROSS Y IN RDB$FIELDS
+		WITH X.RDB$FIELD_SOURCE EQ Y.RDB$FIELD_NAME AND
+		X.RDB$RELATION_NAME EQ desc->array_desc_relation_name AND
+		X.RDB$FIELD_NAME EQ desc->array_desc_field_name
+		flag = TRUE;
+	    desc->array_desc_dtype = (UCHAR)Y.RDB$FIELD_TYPE;
+        desc->array_desc_scale = (SCHAR)Y.RDB$FIELD_SCALE;
+        desc->array_desc_length = Y.RDB$FIELD_LENGTH;
+        adjust_length(desc);
+        desc->array_desc_dimensions = Y.RDB$DIMENSIONS;
+        if (global)
+            get_name(Y.RDB$FIELD_NAME, global);
+	END_FOR 
+    ON_ERROR 
+        return copy_status(gds__status, status);
+	END_ERROR;
+
+	if (!flag)
+		return error(status, 5, (STATUS) gds__fldnotdef,
+					 (STATUS) gds_arg_string,
+					 (STATUS) desc->array_desc_field_name,
+					 (STATUS) gds_arg_string,
+					 (STATUS) desc->array_desc_relation_name);
+
+	return error(status, 1, (STATUS) SUCCESS);
+}
+
+
+static STATUS stuff( GEN gen, SSHORT count, ...)
+{
+/**************************************
+ *
+ *	s t u f f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stuff a SDL byte.
+ *
+ **************************************/
+	SCHAR c, *new_sdl;
+	va_list ptr;
+	SSHORT new_len, current_len;
+
+	if (gen->gen_sdl + count >= gen->gen_end) {
+		if (gen->gen_internal < 0)
+			return error(gen->gen_status, 3, (STATUS) gds__misc_interpreted,
+						 (STATUS) gds_arg_string,
+						 (STATUS) "SDL buffer overflow");
+
+		/* The sdl buffer is too small.  Allocate a larger one. */
+
+		new_len = gen->gen_end - *gen->gen_sdl_ptr + 512 + count;
+		new_sdl = (SCHAR *) gds__alloc((SLONG) new_len);
+		if (!new_sdl)
+			return error(gen->gen_status, 5, (STATUS) gds__misc_interpreted,
+						 (STATUS) gds_arg_string,
+						 (STATUS) "SDL buffer overflow", (STATUS) gds_arg_gds,
+						 (STATUS) gds__virmemexh);
+
+		current_len = gen->gen_sdl - *gen->gen_sdl_ptr;
+		memcpy(new_sdl, *gen->gen_sdl_ptr, current_len);
+		if (gen->gen_internal++)
+			gds__free(*gen->gen_sdl_ptr);
+		gen->gen_sdl = new_sdl + current_len;
+		*gen->gen_sdl_ptr = new_sdl;
+		gen->gen_end = new_sdl + new_len;
+	}
+
+	VA_START(ptr, count);
+
+	for (; count; --count) {
+		c = va_arg(ptr, int);
+		*(gen->gen_sdl)++ = c;
+	}
+
+	return 0;
+}
+
+
+static STATUS stuff_literal( GEN gen, SLONG literal)
+{
+/**************************************
+ *
+ *	s t u f f _ l i t e r a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stuff an SDL literal.
+ *
+ **************************************/
+	STATUS *status;
+
+	status = gen->gen_status;
+
+	if (literal >= -128 && literal <= 127)
+		return stuff(gen, 2, gds__sdl_tiny_integer, literal);
+
+	if (literal >= -32768 && literal <= 32767)
+		return stuff(gen, 3, gds__sdl_short_integer, literal, literal >> 8);
+
+	STUFF_SDL(gds__sdl_long_integer);
+	STUFF_SDL_LONG(literal);
+
+	return SUCCESS;
+}
+
+
+static STATUS stuff_string( GEN gen, SCHAR sdl, SCHAR * string)
+{
+/**************************************
+ *
+ *	s t u f f _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stuff a "thing" then a counted string.
+ *
+ **************************************/
+	STATUS *status;
+
+	status = gen->gen_status;
+
+	STUFF_SDL(sdl);
+	STUFF_SDL(strlen(string));
+
+	while (*string)
+		STUFF_SDL(*string++);
+
+	return SUCCESS;
+}
diff --git a/src/dsql/array_proto.h b/src/dsql/array_proto.h
new file mode 100644
index 0000000000..ed584cff36
--- /dev/null
+++ b/src/dsql/array_proto.h
@@ -0,0 +1,45 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		array_proto.h
+ *	DESCRIPTION:	Prototype Header file for array.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_ARRAY_PROTO_H_
+#define _DSQL_ARRAY_PROTO_H_
+
+extern STATUS API_ROUTINE isc_array_gen_sdl(STATUS *, ISC_ARRAY_DESC *,
+											SSHORT *, SCHAR *, SSHORT *);
+extern STATUS API_ROUTINE isc_array_get_slice(STATUS *, void **, void **,
+											  GDS_QUAD *, ISC_ARRAY_DESC *,
+											  void *, SLONG *);
+extern STATUS API_ROUTINE isc_array_lookup_bounds(STATUS *, void **, void **,
+												  SCHAR *, SCHAR *,
+												  ISC_ARRAY_DESC *);
+extern STATUS API_ROUTINE isc_array_lookup_desc(STATUS *, void **, void **,
+												SCHAR *, SCHAR *,
+												ISC_ARRAY_DESC *);
+extern STATUS API_ROUTINE isc_array_put_slice(STATUS *, void **, void **,
+											  GDS_QUAD *, ISC_ARRAY_DESC *,
+											  void *, SLONG *);
+extern STATUS API_ROUTINE isc_array_set_desc(STATUS *, SCHAR *, SCHAR *,
+											 SSHORT *, SSHORT *, SSHORT *,
+											 ISC_ARRAY_DESC *);
+
+#endif /*_DSQL_ARRAY_PROTO_H_ */
diff --git a/src/dsql/blk.h b/src/dsql/blk.h
new file mode 100644
index 0000000000..5618f43cf2
--- /dev/null
+++ b/src/dsql/blk.h
@@ -0,0 +1,49 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		blk.h
+ *	DESCRIPTION:	Block type definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+BLKDEF(type_ctx, ctx, 0)
+	BLKDEF(type_par, par, 0)
+	BLKDEF(type_map, map, 0)
+	BLKDEF(type_req, req, 0)
+	BLKDEF(type_dbb, dbb, 0)
+	BLKDEF(type_dsql_rel, dsql_rel, 1)
+	BLKDEF(type_fld, fld, 1)
+	BLKDEF(type_fil, fil, 0)
+	BLKDEF(type_nod, nod, sizeof(((NOD) 0)->nod_arg[0]))
+	BLKDEF(type_msg, msg, 0)
+	BLKDEF(type_frb, frb, 0)
+	BLKDEF(type_hnk, hnk, 0)
+	BLKDEF(type_plb, plb, 0)
+	BLKDEF(type_vec, vec, sizeof(((VEC) 0)->vec_object[0]))
+	BLKDEF(type_vcl, vcl, sizeof(((VCL) 0)->vcl_long[0]))
+	BLKDEF(type_lls, lls, 0)	/* linked list stack */
+	BLKDEF(type_str, str, 1)	/* random string block */
+	BLKDEF(type_sym, sym, 1)	/* symbol block */
+	BLKDEF(type_err, err, 0)
+	BLKDEF(type_opn, opn, 0)
+	BLKDEF(type_tra, tra, 0)
+	BLKDEF(type_udf, udf, 1)
+	BLKDEF(type_var, var, 1)
+	BLKDEF(type_blb, blb, 0)
+	BLKDEF(type_prc, prc, 1)
+	BLKDEF(type_intlsym, intlsym, 1)
diff --git a/src/dsql/blob.e b/src/dsql/blob.e
new file mode 100644
index 0000000000..f16124825e
--- /dev/null
+++ b/src/dsql/blob.e
@@ -0,0 +1,277 @@
+/*
+ *	PROGRAM:	InterBase layered support library
+ *	MODULE:		blob.e
+ *	DESCRIPTION:	Dynamic blob support
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../include/jrd/gds.h"
+#include "../jrd/intl.h"
+#include "../jrd/constants.h"
+#include "../dsql/blob_proto.h"
+
+DATABASE DB = STATIC "yachts.lnk";
+
+static STATUS copy_status(STATUS *, STATUS *);
+static STATUS error(STATUS *, SSHORT, ...);
+static void get_name(UCHAR *, UCHAR *);
+
+
+void API_ROUTINE isc_blob_default_desc(
+									   ISC_BLOB_DESC * desc,
+									   UCHAR * relation_name,
+									   UCHAR * field_name)
+{
+/**************************************
+ *
+ *	i s c _ b l o b _ d e f a u l t _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	This function will set the default
+ *	values in the blob_descriptor.
+ *
+ **************************************/
+
+	desc->blob_desc_subtype = BLOB_text;
+	desc->blob_desc_charset = CS_dynamic;
+	desc->blob_desc_segment_size = 80;
+	get_name(field_name, desc->blob_desc_field_name);
+	get_name(relation_name, desc->blob_desc_relation_name);
+}
+
+
+STATUS API_ROUTINE isc_blob_gen_bpb(
+									STATUS * status,
+									ISC_BLOB_DESC * to_desc,
+									ISC_BLOB_DESC * from_desc,
+USHORT bpb_buffer_length, UCHAR * bpb_buffer, USHORT * bpb_length)
+{
+/**************************************
+ *
+ *	i s c _ b l o b _ g e n _ b p b
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *  	This function will generate a bpb
+ *	given a to_desc and a from_desc 
+ *	which contain the subtype and
+ *	character set information.
+ *
+ **************************************/
+	UCHAR *p;
+
+	if (bpb_buffer_length < 17)
+		return error(status, 3, (STATUS) gds__random,
+					 (STATUS) gds_arg_string,
+					 (STATUS) "BPB buffer too small");
+
+	p = bpb_buffer;
+	*p++ = isc_bpb_version1;
+	*p++ = isc_bpb_target_type;
+	*p++ = 2;
+	*p++ = (UCHAR)to_desc->blob_desc_subtype;
+	*p++ = (UCHAR)(to_desc->blob_desc_subtype >> 8);
+	*p++ = isc_bpb_source_type;
+	*p++ = 2;
+	*p++ = (UCHAR)from_desc->blob_desc_subtype;
+	*p++ = (UCHAR)(from_desc->blob_desc_subtype >> 8);
+	*p++ = isc_bpb_target_interp;
+	*p++ = 2;
+	*p++ = (UCHAR)to_desc->blob_desc_charset;
+	*p++ = (UCHAR)(to_desc->blob_desc_charset >> 8);
+	*p++ = isc_bpb_source_interp;
+	*p++ = 2;
+	*p++ = (UCHAR)from_desc->blob_desc_charset;
+	*p++ = (UCHAR)(from_desc->blob_desc_charset >> 8);
+
+	*bpb_length = p - bpb_buffer;
+
+	return error(status, 1, (STATUS) SUCCESS);
+}
+
+
+STATUS API_ROUTINE isc_blob_lookup_desc(STATUS * status,
+										void **db_handle,
+										void **trans_handle,
+										UCHAR * relation_name,
+										UCHAR * field_name,
+										ISC_BLOB_DESC * desc, UCHAR * global)
+{
+/***********************************************
+ *
+ *	i s c _ b l o b _ l o o k u p _ d e s c
+ *
+ ***********************************************
+ *
+ * Functional description
+ *
+ *	This routine will lookup the subtype,
+ *	character set and segment size information
+ *	from the metadata, given a relation name
+ *	and column name.  it will fill in the information
+ *	in the BLOB_DESC.	
+ *
+ ***********************************************/
+	SSHORT flag;
+
+	if (DB && DB != *db_handle)
+		RELEASE_REQUESTS;
+
+	DB = *db_handle;
+	gds__trans = *trans_handle;
+	get_name(field_name, desc->blob_desc_field_name);
+	get_name(relation_name, desc->blob_desc_relation_name);
+
+	flag = FALSE;
+
+	FOR X IN RDB$RELATION_FIELDS CROSS Y IN RDB$FIELDS
+		WITH X.RDB$FIELD_SOURCE EQ Y.RDB$FIELD_NAME AND
+		X.RDB$RELATION_NAME EQ desc->blob_desc_relation_name AND
+		X.RDB$FIELD_NAME EQ desc->blob_desc_field_name flag = TRUE;
+
+	desc->blob_desc_subtype = Y.RDB$FIELD_SUB_TYPE;
+	desc->blob_desc_charset = Y.RDB$CHARACTER_SET_ID;
+	desc->blob_desc_segment_size = Y.RDB$SEGMENT_LENGTH;
+
+	if (global)
+		get_name((UCHAR *) Y.RDB$FIELD_NAME, global);
+	END_FOR ON_ERROR return copy_status(gds__status, status);
+	END_ERROR;
+
+	if (!flag)
+		return error(status, 5, (STATUS) gds__fldnotdef,
+					 (STATUS) gds_arg_string,
+					 (STATUS) desc->blob_desc_field_name,
+					 (STATUS) gds_arg_string,
+					 (STATUS) desc->blob_desc_relation_name);
+
+	return error(status, 1, (STATUS) SUCCESS);
+}
+
+
+STATUS API_ROUTINE isc_blob_set_desc(STATUS * status,
+									 UCHAR * relation_name,
+									 UCHAR * field_name,
+									 SSHORT subtype,
+									 SSHORT charset,
+									 SSHORT segment_size,
+									 ISC_BLOB_DESC * desc)
+{
+/**************************************
+ *
+ *	i s c _ b l o b _ s e t _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	This routine will set the subtype
+ *	and character set information in the
+ *	BLOB_DESC based on the information
+ *	specifically passed in by the user.
+ *
+ **************************************/
+
+	get_name(field_name, desc->blob_desc_field_name);
+	get_name(relation_name, desc->blob_desc_relation_name);
+
+	desc->blob_desc_subtype = subtype;
+	desc->blob_desc_charset = charset;
+	desc->blob_desc_segment_size = segment_size;
+
+	return error(status, 1, (STATUS) SUCCESS);
+}
+
+
+static STATUS copy_status( STATUS * from, STATUS * to)
+{
+/**************************************
+ *
+ *	c o p y _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a status vector.
+ *
+ **************************************/
+	STATUS status, *end;
+
+	status = from[1];
+
+	for (end = from + 20; from < end;)
+		*to++ = *from++;
+
+	return status;
+}
+
+
+static STATUS error( STATUS * status, SSHORT count, ...)
+{
+/**************************************
+ *
+ *	e r r o r	
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stuff a status vector.
+ *
+ **************************************/
+	STATUS *stat;
+	va_list ptr;
+
+	VA_START(ptr, count);
+	stat = status;
+	*stat++ = gds_arg_gds;
+
+	for (; count; --count)
+		*stat++ = (STATUS) va_arg(ptr, STATUS);
+
+	*stat = gds_arg_end;
+
+	return status[1];
+}
+
+
+static void get_name( UCHAR * from, UCHAR * to)
+{
+/**************************************
+ *
+ *	g e t _ n a m e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy null or blank terminated name.
+ *
+ **************************************/
+
+	while (*from && *from != ' ')
+		*to++ = *from++;
+
+	*to = 0;
+}
diff --git a/src/dsql/blob_proto.h b/src/dsql/blob_proto.h
new file mode 100644
index 0000000000..a48386c54b
--- /dev/null
+++ b/src/dsql/blob_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		blob_proto.h
+ *	DESCRIPTION:	Prototype Header file for blob.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_BLOB_PROTO_H_
+#define _DSQL_BLOB_PROTO_H_
+
+extern STATUS API_ROUTINE isc_blob_gen_bpb(STATUS *, ISC_BLOB_DESC *,
+										   ISC_BLOB_DESC *, USHORT, UCHAR *,
+										   USHORT *);
+extern STATUS API_ROUTINE isc_blob_lookup_desc(STATUS *, void **, void **,
+											   UCHAR *, UCHAR *,
+											   ISC_BLOB_DESC *, UCHAR *);
+extern STATUS API_ROUTINE isc_blob_set_desc(STATUS *, UCHAR *, UCHAR *,
+											SSHORT, SSHORT, SSHORT,
+											ISC_BLOB_DESC *);
+
+#endif /*_DSQL_BLOB_PROTO_H_ */
diff --git a/src/dsql/chars.h b/src/dsql/chars.h
new file mode 100644
index 0000000000..8a990a2e5e
--- /dev/null
+++ b/src/dsql/chars.h
@@ -0,0 +1,289 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		chars.h
+ *	DESCRIPTION:	character classification
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#define CHR_LETTER	1
+#define CHR_DIGIT	2
+#define CHR_IDENT	4
+#define CHR_QUOTE	8
+#define CHR_WHITE	16
+#define CHR_HEX		32
+#define CHR_INTRODUCER	64
+
+static CONST SCHAR classes[] = {
+/* 000     */ 0,
+/* 001     */ 0,
+/* 002     */ 0,
+/* 003     */ 0,
+/* 004     */ 0,
+/* 005     */ 0,
+/* 006     */ 0,
+/* 007     */ 0,
+/* 008     */ 0,
+/* 009     */ 0 | CHR_WHITE,
+/* 010     */ 0 | CHR_WHITE,
+/* 011     */ 0,
+/* 012     */ 0,
+/* 013     */ 0 | CHR_WHITE,
+/* 014     */ 0,
+/* 015     */ 0,
+/* 016     */ 0,
+/* 017     */ 0,
+/* 018     */ 0,
+/* 019     */ 0,
+/* 020     */ 0,
+/* 021     */ 0,
+/* 022     */ 0,
+/* 023     */ 0,
+/* 024     */ 0,
+/* 025     */ 0,
+/* 026     */ 0,
+/* 027     */ 0,
+/* 028     */ 0,
+/* 029     */ 0,
+/* 030     */ 0,
+/* 031     */ 0,
+/* 032     */ 0 | CHR_WHITE,
+/* 033  !  */ 0,
+/* 034  "  */ 0 | CHR_QUOTE,
+/* 035  #  */ 0,
+/* 036  $  */ 0 | CHR_IDENT,
+/* 037  %  */ 0,
+/* 038  &  */ 0,
+/* 039  '  */ 0 | CHR_QUOTE,
+/* 040  (  */ 0,
+/* 041  )  */ 0,
+/* 042  *  */ 0,
+/* 043  +  */ 0,
+/* 044  ,  */ 0,
+/* 045  -  */ 0,
+/* 046  .  */ 0,
+/* 047  /  */ 0,
+/* 048  0  */ 0 | CHR_DIGIT | CHR_IDENT | CHR_HEX,
+/* 049  1  */ 0 | CHR_DIGIT | CHR_IDENT | CHR_HEX,
+/* 050  2  */ 0 | CHR_DIGIT | CHR_IDENT | CHR_HEX,
+/* 051  3  */ 0 | CHR_DIGIT | CHR_IDENT | CHR_HEX,
+/* 052  4  */ 0 | CHR_DIGIT | CHR_IDENT | CHR_HEX,
+/* 053  5  */ 0 | CHR_DIGIT | CHR_IDENT | CHR_HEX,
+/* 054  6  */ 0 | CHR_DIGIT | CHR_IDENT | CHR_HEX,
+/* 055  7  */ 0 | CHR_DIGIT | CHR_IDENT | CHR_HEX,
+/* 056  8  */ 0 | CHR_DIGIT | CHR_IDENT | CHR_HEX,
+/* 057  9  */ 0 | CHR_DIGIT | CHR_IDENT | CHR_HEX,
+/* 058  :  */ 0,
+/* 059  ;  */ 0,
+/* 060  <  */ 0,
+/* 061  =  */ 0,
+/* 062  >  */ 0,
+/* 063  ?  */ 0,
+/* 064  @  */ 0,
+/* 065  A  */ 0 | CHR_LETTER | CHR_IDENT | CHR_HEX,
+/* 066  B  */ 0 | CHR_LETTER | CHR_IDENT | CHR_HEX,
+/* 067  C  */ 0 | CHR_LETTER | CHR_IDENT | CHR_HEX,
+/* 068  D  */ 0 | CHR_LETTER | CHR_IDENT | CHR_HEX,
+/* 069  E  */ 0 | CHR_LETTER | CHR_IDENT | CHR_HEX,
+/* 070  F  */ 0 | CHR_LETTER | CHR_IDENT | CHR_HEX,
+/* 071  G  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 072  H  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 073  I  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 074  J  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 075  K  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 076  L  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 077  M  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 078  N  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 079  O  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 080  P  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 081  Q  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 082  R  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 083  S  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 084  T  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 085  U  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 086  V  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 087  W  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 088  X  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 089  Y  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 090  Z  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 091  [  */ 0,
+/* 092  \  */ 0,
+/* 093  ]  */ 0,
+/* 094  ^  */ 0,
+/* 095  _  */ 0 | CHR_IDENT | CHR_INTRODUCER,
+/* 096  `  */ 0,
+/* 097  a  */ 0 | CHR_LETTER | CHR_IDENT | CHR_HEX,
+/* 098  b  */ 0 | CHR_LETTER | CHR_IDENT | CHR_HEX,
+/* 099  c  */ 0 | CHR_LETTER | CHR_IDENT | CHR_HEX,
+/* 100  d  */ 0 | CHR_LETTER | CHR_IDENT | CHR_HEX,
+/* 101  e  */ 0 | CHR_LETTER | CHR_IDENT | CHR_HEX,
+/* 102  f  */ 0 | CHR_LETTER | CHR_IDENT | CHR_HEX,
+/* 103  g  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 104  h  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 105  i  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 106  j  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 107  k  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 108  l  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 109  m  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 110  n  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 111  o  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 112  p  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 113  q  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 114  r  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 115  s  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 116  t  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 117  u  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 118  v  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 119  w  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 120  x  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 121  y  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 122  z  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 123  {  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 124  |  */ 0,
+/* 125  }  */ 0 | CHR_LETTER | CHR_IDENT,
+/* 126  ~  */ 0,
+/* 127     */ 0,
+/* 128     */ 0,
+/* 129     */ 0,
+/* 130     */ 0,
+/* 131     */ 0,
+/* 132     */ 0,
+/* 133     */ 0,
+/* 134     */ 0,
+/* 135     */ 0,
+/* 136     */ 0,
+/* 137     */ 0,
+/* 138     */ 0,
+/* 139     */ 0,
+/* 140     */ 0,
+/* 141     */ 0,
+/* 142     */ 0,
+/* 143     */ 0,
+/* 144     */ 0,
+/* 145     */ 0,
+/* 146     */ 0,
+/* 147     */ 0,
+/* 148     */ 0,
+/* 149     */ 0,
+/* 150     */ 0,
+/* 151     */ 0,
+/* 152     */ 0,
+/* 153     */ 0,
+/* 154     */ 0,
+/* 155     */ 0,
+/* 156     */ 0,
+/* 157     */ 0,
+/* 158     */ 0,
+/* 159     */ 0,
+/* 160     */ 0,
+/* 161     */ 0,
+/* 162     */ 0,
+/* 163     */ 0,
+/* 164     */ 0,
+/* 165     */ 0,
+/* 166     */ 0,
+/* 167     */ 0,
+/* 168     */ 0,
+/* 169     */ 0,
+/* 170     */ 0,
+/* 171     */ 0,
+/* 172     */ 0,
+/* 173     */ 0,
+/* 174     */ 0,
+/* 175     */ 0,
+/* 176     */ 0,
+/* 177     */ 0,
+/* 178     */ 0,
+/* 179     */ 0,
+/* 180     */ 0,
+/* 181     */ 0,
+/* 182     */ 0,
+/* 183     */ 0,
+/* 184     */ 0,
+/* 185     */ 0,
+/* 186     */ 0,
+/* 187     */ 0,
+/* 188     */ 0,
+/* 189     */ 0,
+/* 190     */ 0,
+/* 191     */ 0,
+/* 192     */ 0,
+/* 193     */ 0,
+/* 194     */ 0,
+/* 195     */ 0,
+/* 196     */ 0,
+/* 197     */ 0,
+/* 198     */ 0,
+/* 199     */ 0,
+/* 200     */ 0,
+/* 201     */ 0,
+/* 202     */ 0,
+/* 203     */ 0,
+/* 204     */ 0,
+/* 205     */ 0,
+/* 206     */ 0,
+/* 207     */ 0,
+/* 208     */ 0,
+/* 209     */ 0,
+/* 210     */ 0,
+/* 211     */ 0,
+/* 212     */ 0,
+/* 213     */ 0,
+/* 214     */ 0,
+/* 215     */ 0,
+/* 216     */ 0,
+/* 217     */ 0,
+/* 218     */ 0,
+/* 219     */ 0,
+/* 220     */ 0,
+/* 221     */ 0,
+/* 222     */ 0,
+/* 223     */ 0,
+/* 224     */ 0,
+/* 225     */ 0,
+/* 226     */ 0,
+/* 227     */ 0,
+/* 228     */ 0,
+/* 229     */ 0,
+/* 230     */ 0,
+/* 231     */ 0,
+/* 232     */ 0,
+/* 233     */ 0,
+/* 234     */ 0,
+/* 235     */ 0,
+/* 236     */ 0,
+/* 237     */ 0,
+/* 238     */ 0,
+/* 239     */ 0,
+/* 240     */ 0,
+/* 241     */ 0,
+/* 242     */ 0,
+/* 243     */ 0,
+/* 244     */ 0,
+/* 245     */ 0,
+/* 246     */ 0,
+/* 247     */ 0,
+/* 248     */ 0,
+/* 249     */ 0,
+/* 250     */ 0,
+/* 251     */ 0,
+/* 252     */ 0,
+/* 253     */ 0,
+/* 254     */ 0,
+/* 255     */ 0
+};
diff --git a/src/dsql/ddl.cpp b/src/dsql/ddl.cpp
new file mode 100644
index 0000000000..baaf46cd9f
--- /dev/null
+++ b/src/dsql/ddl.cpp
@@ -0,0 +1,5526 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		ddl.c
+ *	DESCRIPTION:	Utilities for generating ddl
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ *
+ * $Id: ddl.cpp,v 1.1.1.1 2001-05-23 13:25:35 tamlin Exp $
+ * 2001.5.20 Claudio Valderrama: Stop null pointer that leads to a crash,
+ * caused by incomplete yacc syntax that allows ALTER DOMAIN dom SET;
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../dsql/dsql.h"
+#include "../dsql/node.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/thd.h"
+#include "../jrd/intl.h"
+#include "../jrd/flags.h"
+#include "../jrd/constants.h"
+#include "../jrd/codes.h"
+#include "../dsql/alld_proto.h"
+#include "../dsql/errd_proto.h"
+#include "../dsql/ddl_proto.h"
+#include "../dsql/gen_proto.h"
+#include "../dsql/make_proto.h"
+#include "../dsql/metd_proto.h"
+#include "../dsql/pass1_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+
+#if defined(DEBUG) && !(defined REQUESTER && defined SUPERCLIENT)
+#include "../gpre/prett_proto.h"
+#endif
+
+
+extern "C" {
+
+
+#define BLOB_BUFFER_SIZE   4096	/* to read in blr blob for default values */
+
+static void begin_blr(REQ, UCHAR);
+static USHORT check_array_or_blob(NOD);
+static void check_constraint(REQ, NOD, SSHORT);
+static void create_view_triggers(REQ, NOD, NOD);
+static void define_computed(REQ, NOD, FLD, NOD);
+static void define_constraint_trigger(REQ, NOD);
+static void define_database(REQ);
+static void define_del_cascade_trg(REQ, NOD, NOD, NOD, TEXT *, TEXT *);
+static void define_del_default_trg(REQ, NOD, NOD, NOD, TEXT *, TEXT *);
+static void define_dimensions(REQ, FLD);
+static void define_domain(REQ);
+static void define_exception(REQ, NOD_TYPE);
+static void define_field(REQ, NOD, SSHORT, STR);
+static void define_filter(REQ);
+static void define_generator(REQ);
+static void define_role(REQ);
+static void define_index(REQ);
+static NOD define_insert_action(REQ);
+static void define_procedure(REQ, NOD_TYPE);
+static void define_rel_constraint(REQ, NOD);
+static void define_relation(REQ);
+static void define_set_null_trg(REQ, NOD, NOD, NOD, TEXT *, TEXT *, BOOLEAN);
+static void define_shadow(REQ);
+static void define_trigger(REQ, NOD);
+static void define_udf(REQ);
+static void define_update_action(REQ, NOD *, NOD *);
+static void define_upd_cascade_trg(REQ, NOD, NOD, NOD, TEXT *, TEXT *);
+static void define_view(REQ);
+static void define_view_trigger(REQ, NOD, NOD, NOD);
+static void end_blr(REQ);
+static void foreign_key(REQ, NOD);
+static void generate_dyn(REQ, NOD);
+static void grant_revoke(REQ);
+static void make_index(REQ, NOD, NOD, NOD, SCHAR *);
+static void make_index_trg_ref_int(REQ, NOD, NOD, NOD, SCHAR *);
+static void modify_database(REQ);
+static void modify_domain(REQ);
+static void modify_field(REQ, NOD, SSHORT, STR);
+static void modify_index(REQ);
+static void modify_privilege(REQ, NOD_TYPE, SSHORT, UCHAR *, NOD, NOD, STR);
+static void process_role_nm_list(REQ, SSHORT, NOD, NOD, NOD_TYPE);
+static SCHAR modify_privileges(REQ, NOD_TYPE, SSHORT, NOD, NOD, NOD);
+static void modify_relation(REQ);
+static void put_cstring(REQ, UCHAR, char *);
+static void put_descriptor(REQ, DSC *);
+static void put_dtype(REQ, FLD, USHORT);
+static void put_field(REQ, FLD, BOOLEAN);
+static void put_local_variable(REQ, VAR);
+static SSHORT put_local_variables(REQ, NOD, SSHORT);
+static void put_msg_field(REQ, FLD);
+static void put_number(REQ, UCHAR, SSHORT);
+static void put_string(REQ, UCHAR, UCHAR *, USHORT);
+static NOD replace_field_names(NOD, NOD, NOD, SSHORT);
+static void reset_context_stack(REQ);
+static void save_field(REQ, SCHAR *);
+static void save_relation(REQ, STR);
+static void set_statistics(REQ);
+static void stuff_default_blr(REQ, TEXT *, USHORT);
+static void stuff_matching_blr(REQ, NOD, NOD);
+static void stuff_trg_firing_cond(REQ, NOD);
+static void set_nod_value_attributes(NOD, FLD);
+
+#ifdef BLKCHK
+#undef BLKCHK
+#endif
+
+#ifdef DEV_BUILD
+#define BLKCHK(blk, typ)	\
+	{ \
+	if ((blk) && (((BLK) (blk))->blk_type != (typ))) \
+	    ERRD_bugcheck ("Invalid block type");	/* NTX: dev build */ \
+	}
+#else
+#define BLKCHK(blk, typ)
+#endif
+
+
+/* STUFF is defined in dsql.h for use in common with gen.c */
+
+#define STUFF_WORD(n)		{STUFF (n); STUFF ((n) >> 8);}
+#define STUFF_DWORD(n)		{STUFF (n); STUFF ((n) >> 8);\
+				 STUFF ((n) >> 16); STUFF ((n) >> 24);}
+
+#define PRE_STORE_TRIGGER	1
+#define POST_STORE_TRIGGER	2
+#define PRE_MODIFY_TRIGGER	3
+#define POST_MODIFY_TRIGGER	4
+#define PRE_ERASE_TRIGGER	5
+#define POST_ERASE_TRIGGER	6
+
+#define OLD_CONTEXT		"OLD"
+#define NEW_CONTEXT		"NEW"
+#define TEMP_CONTEXT		"TEMP"
+
+#define DEFAULT_BUFFER		2048
+
+#define DEFAULT_BLOB_SEGMENT_SIZE	80	/* bytes */
+
+
+static CONST USHORT blr_dtypes[] = {
+	0,
+	blr_text,					/* dtype_text */
+	blr_cstring,				/* dtype_cstring */
+	blr_varying,				/* dtype_varying */
+	0,
+	0,
+	0,							/* dtype_packed */
+	0,							/* dtype_byte */
+	blr_short,					/* dtype_short */
+	blr_long,					/* dtype_long */
+	blr_quad,					/* dtype_quad */
+	blr_float,					/* dtype_real */
+	blr_double,					/* dtype_double */
+	blr_double,					/* dtype_d_float */
+	blr_sql_date,				/* dtype_sql_date */
+	blr_sql_time,				/* dtype_sql_time */
+	blr_timestamp,				/* dtype_timestamp */
+	blr_blob,					/* dtype_blob */
+	blr_short,					/* dtype_array */
+	blr_int64					/* dtype_int64 */
+};
+
+static CONST UCHAR nonnull_validation_blr[] = {
+	blr_version5,
+	blr_not,
+	blr_missing,
+	blr_fid, 0, 0, 0,
+	blr_eoc
+};
+
+ASSERT_FILENAME void DDL_execute( REQ request)
+{
+/**************************************
+ *
+ *	D D L _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Call access method layered service DYN
+ *	to interpret dyn string and perform 
+ *	metadata updates.
+ *
+ **************************************/
+	USHORT length;
+	STR string;
+	STATUS s;
+	NOD relation_node;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+#ifdef DEBUG
+#if !(defined REQUESTER && defined SUPERCLIENT)
+	if (DSQL_debug > 0)
+		PRETTY_print_dyn(reinterpret_cast <
+						 char *>(request->req_blr_string->str_data), NULL,
+						 "%4d %s\n", NULL);
+#endif
+#endif
+
+	length = request->req_blr - request->req_blr_string->str_data;
+
+	THREAD_EXIT;
+
+	s = isc_ddl(GDS_VAL(tdsql->tsql_status),
+				reinterpret_cast <
+				void **>(GDS_REF(request->req_dbb->dbb_database_handle)),
+				reinterpret_cast < void **>(GDS_REF(request->req_trans)),
+				length,
+				reinterpret_cast <
+				char *>(GDS_VAL(request->req_blr_string->str_data)));
+
+	THREAD_ENTER;
+
+/* for delete & modify, get rid of the cached relation metadata */
+
+	if ((request->req_ddl_node->nod_type == nod_mod_relation) ||
+		(request->req_ddl_node->nod_type == nod_del_relation)) {
+		if (request->req_ddl_node->nod_type == nod_mod_relation) {
+			relation_node = request->req_ddl_node->nod_arg[e_alt_name];
+			string = (STR) relation_node->nod_arg[e_rln_name];
+		}
+		else
+			string = (STR) request->req_ddl_node->nod_arg[e_alt_name];
+		METD_drop_relation(request, string);
+	}
+
+/* for delete & modify, get rid of the cached procedure metadata */
+
+	if ((request->req_ddl_node->nod_type == nod_mod_procedure) ||
+		(request->req_ddl_node->nod_type == nod_del_procedure)) {
+		string = (STR) request->req_ddl_node->nod_arg[e_prc_name];
+		METD_drop_procedure(request, string);
+	}
+
+	if (s)
+		LONGJMP(*tdsql->tsql_setjmp, (int) tdsql->tsql_status[1]);
+}
+
+
+void DDL_generate( REQ request, NOD node)
+{
+/**************************************
+ *
+ *	D D L _ g e n e r a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate the DYN string for a
+ *	metadata update.  Done during the
+ *	prepare phase.
+ *
+ **************************************/
+
+#ifdef READONLY_DATABASE
+	if (request->req_dbb->dbb_flags & DBB_read_only) {
+		ERRD_post(isc_read_only_database, 0);
+		return;
+	}
+#endif /* READONLY_DATABASE */
+
+	STUFF(gds_dyn_version_1);
+	generate_dyn(request, node);
+	STUFF(gds_dyn_eoc);
+}
+
+
+int DDL_ids( REQ request)
+{
+/**************************************
+ *
+ *	D D L _ i d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine whether ids or names should be
+ *	referenced when generating blr for fields
+ *	and relations.
+ *
+ **************************************/
+	NOD ddl_node;
+
+	if (!(ddl_node = request->req_ddl_node))
+		return TRUE;
+
+	if (ddl_node->nod_type == nod_def_view ||
+		ddl_node->nod_type == nod_def_constraint ||
+		ddl_node->nod_type == nod_def_trigger ||
+		ddl_node->nod_type == nod_mod_trigger ||
+		ddl_node->nod_type == nod_def_procedure ||
+		ddl_node->nod_type == nod_def_computed ||
+		ddl_node->nod_type == nod_mod_procedure) return FALSE;
+
+	return TRUE;
+}
+
+
+void DDL_put_field_dtype( REQ request, FLD field, USHORT use_subtype)
+{
+/**************************************
+ *
+ *	D D L _ p u t _ f i e l d _ d t y p e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Emit blr that describes a descriptor.
+ *	Note that this depends on the same STUFF variant
+ *	as used in gen.c
+ *
+ **************************************/
+
+	put_dtype(request, field, use_subtype);
+}
+
+
+void DDL_resolve_intl_type( REQ request, FLD field, STR collation_name)
+{
+/**************************************
+ *
+ *	D D L _ r e s o l v e _ i n t l _ t y p e
+ *
+ **************************************
+ *
+ * Function
+ *	If the field is defined with a character set or collation,
+ *	resolve the names to a subtype now.
+ *
+ *	Also resolve the field length & whatnot.
+ *
+ *	For International text fields, this is a good time to calculate
+ *	their actual size - when declared they were declared in
+ *	lengths of CHARACTERs, not BYTES.
+ *
+ **************************************/
+	UCHAR *charset_name;
+	INTLSYM resolved_type;
+	INTLSYM resolved_charset;
+	INTLSYM resolved_collation;
+	STR dfl_charset;
+	SSHORT blob_sub_type;
+	ULONG field_length;
+
+	if ((field->fld_dtype > dtype_any_text) && field->fld_dtype != dtype_blob) {
+		if (field->fld_character_set || collation_name ||
+			field->fld_flags & FLD_national)
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 204,
+						  gds_arg_gds, gds__dsql_datatype_err,
+						  gds_arg_gds, gds__collation_requires_text, 0);
+
+		return;
+	}
+
+	if (field->fld_dtype == dtype_blob)
+	{
+		if (field->fld_sub_type_name)
+		{
+			if (!METD_get_type(request,
+								reinterpret_cast<STR>(field->fld_sub_type_name),
+								reinterpret_cast < UCHAR * >("RDB$FIELD_SUB_TYPE"),
+								&blob_sub_type))
+			{
+				ERRD_post(	gds__sqlerr,
+							gds_arg_number,
+							(SLONG) - 204,
+							gds_arg_gds,
+							gds__dsql_datatype_err,
+							gds_arg_gds,
+							gds__dsql_blob_type_unknown,
+							gds_arg_string,
+							((STR) field->fld_sub_type_name)->str_data,
+							0);
+			}
+			field->fld_sub_type = blob_sub_type;
+		}
+		if (field->fld_character_set && (field->fld_sub_type == BLOB_untyped))
+		{
+			field->fld_sub_type = BLOB_text;
+		}
+		if (field->fld_character_set && (field->fld_sub_type != BLOB_text))
+		{
+			ERRD_post(	gds__sqlerr,
+						gds_arg_number,
+						(SLONG) - 204,
+						gds_arg_gds,
+						gds__dsql_datatype_err,
+						gds_arg_gds,
+						gds__collation_requires_text,
+						0);
+		}
+		if (collation_name)
+		{
+			ERRD_post(	gds__sqlerr,
+						gds_arg_number,
+						(SLONG) - 204,
+						gds_arg_gds,
+						gds__dsql_datatype_err,
+						gds_arg_gds,
+						gds__collation_requires_text,
+						0);
+		}
+		if (field->fld_sub_type != BLOB_text) {
+			return;
+		}
+	}
+
+	if (field->fld_character_set_id != 0 && !collation_name) {
+		/* This field has already been resolved once, and the collation hasn't
+		 * changed.  Therefore, no need to do it again.
+		 */
+		return;
+	}
+
+	if (!(field->fld_character_set || field->fld_character_set_id ||	/* set if a domain */
+		  (field->fld_flags & FLD_national))) {
+
+		/* Attach the database default character set, if not otherwise specified */
+
+		if (dfl_charset = METD_get_default_charset(request)) {
+			field->fld_character_set = (NOD) dfl_charset;
+		}
+		else {
+			/* If field is not specified with NATIONAL, or CHARACTER SET
+			 * treat it as a single-byte-per-character field of character set NONE.
+			 */
+			if (field->fld_character_length) {
+				field_length = field->fld_character_length;
+				if (field->fld_dtype == dtype_varying)
+					field_length += sizeof(USHORT);
+				if (field_length > (ULONG) MAX_COLUMN_SIZE)
+					ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 204,
+							  gds_arg_gds, gds__dsql_datatype_err,
+							  gds_arg_gds, gds__imp_exc,
+							  gds_arg_gds, gds__field_name, gds_arg_string,
+							  field->fld_name, 0);
+				field->fld_length = (USHORT) field_length;
+			};
+			field->fld_ttype = 0;
+			if (!collation_name)
+				return;
+		}
+	}
+
+	if (field->fld_flags & FLD_national)
+		charset_name = (UCHAR *) NATIONAL_CHARACTER_SET;
+	else if (field->fld_character_set)
+		charset_name = (UCHAR *) ((STR) field->fld_character_set)->str_data;
+	else
+		charset_name = (UCHAR *) NULL;
+
+
+/* Find an intlsym for any specified character set name & collation name */
+
+	resolved_charset = NULL;
+	if (charset_name) {
+		resolved_charset =
+			METD_get_charset(request,
+							 (USHORT) strlen(reinterpret_cast <
+											 char *>(charset_name)),
+							 charset_name);
+
+		/* Error code -204 (IBM's DB2 manual) is close enough */
+		if (!resolved_charset)
+			/* specified character set not found */
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 204,
+					  gds_arg_gds, gds__dsql_datatype_err,
+					  gds_arg_gds, gds__charset_not_found, gds_arg_string,
+					  charset_name, 0);
+		field->fld_character_set_id = resolved_charset->intlsym_charset_id;
+		resolved_type = resolved_charset;
+	}
+
+	resolved_collation = NULL;
+	if (collation_name) {
+		resolved_collation = METD_get_collation(request, collation_name);
+		if (!resolved_collation)
+			/* Specified collation not found */
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 204,
+					  gds_arg_gds, gds__dsql_datatype_err,
+					  gds_arg_gds, gds__collation_not_found, gds_arg_string,
+					  collation_name->str_data, 0);
+
+		/* If both specified, must be for same character set */
+		/* A "literal constant" must be handled (charset as ttype_dynamic) */
+
+		resolved_type = resolved_collation;
+		if ((field->fld_character_set_id != resolved_type->intlsym_charset_id)
+			&& (field->fld_character_set_id != ttype_dynamic))
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 204, gds_arg_gds,
+					  gds__dsql_datatype_err, gds_arg_gds,
+					  gds__collation_not_for_charset, gds_arg_string,
+					  collation_name->str_data, 0);
+	}
+
+
+	if (field->fld_character_length) {
+		field_length = (ULONG) resolved_type->intlsym_bytes_per_char *
+			field->fld_character_length;
+
+		if (field->fld_dtype == dtype_varying)
+			field_length += sizeof(USHORT);
+		if (field_length > (ULONG) MAX_COLUMN_SIZE)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 204,
+					  gds_arg_gds, gds__dsql_datatype_err,
+					  gds_arg_gds, gds__imp_exc,
+					  gds_arg_gds, gds__field_name, gds_arg_string,
+					  field->fld_name, 0);
+		field->fld_length = (USHORT) field_length;
+	};
+
+	field->fld_ttype = resolved_type->intlsym_ttype;
+	field->fld_character_set_id = resolved_type->intlsym_charset_id;
+	field->fld_collation_id = resolved_type->intlsym_collate_id;
+}
+
+
+static void begin_blr( REQ request, UCHAR verb)
+{
+/**************************************
+ *
+ *	b e g i n _ b l r
+ *
+ **************************************
+ *
+ * Function
+ *	Write out a string of blr as part of a ddl string,
+ *	as in a view or computed field definition.
+ *
+ **************************************/
+
+	if (verb)
+		STUFF(verb);
+
+	request->req_base_offset =
+		request->req_blr - request->req_blr_string->str_data;
+
+/* put in a place marker for the size of the blr, since it is unknown */
+
+	STUFF_WORD(0);
+	if (request->req_flags & REQ_blr_version4)
+		STUFF(blr_version4);
+	else
+		STUFF(blr_version5);
+}
+
+
+static USHORT check_array_or_blob( NOD node)
+{
+/**************************************
+ *
+ *	c h e c k _ a r r a y _ o r _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	return TRUE if there is an array or blob in expression, else FALSE.
+ *	Array and blob expressions have limited usefullness in a computed
+ *	expression - so we detect it here to report a syntax error at 
+ *	definition time, rather than a runtime error at execution.
+ *
+ **************************************/
+	MAP map;
+	UDF udf;
+	FLD fld;
+	NOD *ptr, *end;
+
+	BLKCHK(node, type_nod);
+
+	switch (node->nod_type) {
+	case nod_agg_count:
+	case nod_count:
+	case nod_gen_id:
+	case nod_gen_id2:
+	case nod_dbkey:
+	case nod_current_date:
+	case nod_current_time:
+	case nod_current_timestamp:
+	case nod_constant:
+	case nod_via:
+		return FALSE;
+
+	case nod_map:
+		map = (MAP) node->nod_arg[e_map_map];
+		return check_array_or_blob(map->map_node);
+
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_average:
+	case nod_agg_total:
+	case nod_agg_average2:
+	case nod_agg_total2:
+	case nod_upcase:
+	case nod_negate:
+		return check_array_or_blob(node->nod_arg[0]);
+
+	case nod_cast:
+		fld = (FLD) node->nod_arg[e_cast_target];
+		if ((fld->fld_dtype == dtype_blob) || (fld->fld_dtype == dtype_array))
+			return TRUE;
+
+		return check_array_or_blob(node->nod_arg[e_cast_source]);
+
+	case nod_add:
+	case nod_subtract:
+	case nod_concatenate:
+	case nod_multiply:
+	case nod_divide:
+	case nod_add2:
+	case nod_subtract2:
+	case nod_multiply2:
+	case nod_divide2:
+
+		if (check_array_or_blob(node->nod_arg[0]))
+			return TRUE;
+		return check_array_or_blob(node->nod_arg[1]);
+
+	case nod_alias:
+		return check_array_or_blob(node->nod_arg[e_alias_value]);
+
+	case nod_udf:
+		udf = (UDF) node->nod_arg[0];
+		if ((udf->udf_dtype == dtype_blob) || (udf->udf_dtype == dtype_array))
+			return TRUE;
+
+		/* parameters to UDF don't need checking, an blob or array can be passed */
+		return FALSE;
+
+	case nod_extract:
+	case nod_list:
+		for (ptr = node->nod_arg, end = ptr + node->nod_count;
+			 ptr < end; ptr++)
+			if (check_array_or_blob(*ptr))
+				return TRUE;
+
+		return FALSE;
+
+	case nod_field:
+		if ((node->nod_desc.dsc_dtype == dtype_blob) ||
+			(node->nod_desc.dsc_dtype == dtype_array))
+			return TRUE;
+
+		return FALSE;
+
+	default:
+		assert(FALSE);
+		return FALSE;
+	}
+}
+
+
+static void check_constraint(
+							 REQ request,
+							 NOD element, SSHORT delete_trigger_required)
+{
+/* *************************************
+ *
+ *	c h e c k _ c o n s t r a i n t
+ *
+ **************************************
+ *
+ * Function
+ *	Generate triggers to implement the CHECK
+ *	clause, either at the field or table level.
+ *
+ **************************************/
+	NOD ddl_node, list_node;
+	NOD *errorcode_node;
+
+	ddl_node = request->req_ddl_node;
+	if (!(element->nod_arg[e_cnstr_table]))
+		element->nod_arg[e_cnstr_table] = ddl_node->nod_arg[e_drl_name];
+
+/* specify that the trigger should abort if the condition is not met */
+
+	element->nod_arg[e_cnstr_actions] = list_node =
+		MAKE_node(nod_list, (int) 1);
+	list_node->nod_arg[0] = MAKE_node(nod_gdscode, (int) 1);
+	errorcode_node = &list_node->nod_arg[0]->nod_arg[0];
+	*errorcode_node = (NOD) MAKE_cstring("check_constraint");
+	element->nod_arg[e_cnstr_message] = NULL;
+
+/* create the INSERT trigger */
+
+/* element->nod_arg [e_cnstr_message] =
+ *  (NOD) MAKE_cstring ("insert violates CHECK constraint on table");
+ */
+	element->nod_arg[e_cnstr_type] =
+		MAKE_constant((STR) PRE_STORE_TRIGGER, 1);
+	define_constraint_trigger(request, element);
+
+/* create the UPDATE trigger */
+
+/* element->nod_arg [e_cnstr_message] =
+ *  (NOD) MAKE_cstring ("update violates CHECK constraint on table");
+ */
+	element->nod_arg[e_cnstr_type] =
+		MAKE_constant((STR) PRE_MODIFY_TRIGGER, 1);
+	define_constraint_trigger(request, element);
+
+/* create the DELETE trigger, if required   */
+
+	if (delete_trigger_required) {
+/*
+ * element->nod_arg [e_cnstr_message] =
+ *  (NOD) MAKE_cstring ("delete violates CHECK constraint on table");
+ */
+		element->nod_arg[e_cnstr_type] =
+			MAKE_constant((STR) PRE_ERASE_TRIGGER, 1);
+		define_constraint_trigger(request, element);
+	}
+
+	STUFF(gds_dyn_end);			/* For CHECK constraint definition  */
+}
+
+
+static void create_view_triggers( REQ request, NOD element, NOD items)
+{								/* Fields in the VIEW actually  */
+/* *************************************
+ *
+ *	c r e a t e _ v i e w _ t r i g g e r s 
+ *
+ **************************************
+ *
+ * Function
+ *	Generate triggers to implement the WITH CHECK OPTION
+ *	clause for a VIEW
+ *
+ **************************************/
+	NOD temp, rse, base_relation, base_and_node, ddl_node, list_node;
+	NOD *errorcode_node;
+
+	ddl_node = request->req_ddl_node;
+
+	if (!(element->nod_arg[e_cnstr_table]))
+		element->nod_arg[e_cnstr_table] = ddl_node->nod_arg[e_drl_name];
+
+/* specify that the trigger should abort if the condition is not met */
+
+	element->nod_arg[e_cnstr_actions] = list_node =
+		MAKE_node(nod_list, (int) 1);
+	list_node->nod_arg[0] = MAKE_node(nod_gdscode, (int) 1);
+	errorcode_node = &list_node->nod_arg[0]->nod_arg[0];
+	*errorcode_node = (NOD) MAKE_cstring("check_constraint");
+	element->nod_arg[e_cnstr_message] = NULL;
+
+/* create the UPDATE trigger */
+
+/* element->nod_arg [e_cnstr_message] =
+ *   (NOD) MAKE_cstring ("update violates CHECK constraint on view");
+ */
+	element->nod_arg[e_cnstr_type] =
+		MAKE_constant((STR) PRE_MODIFY_TRIGGER, 1);
+	define_update_action(request, &base_and_node, &base_relation);
+
+	rse = MAKE_node(nod_rse, e_rse_count);
+	rse->nod_arg[e_rse_boolean] = base_and_node;
+	rse->nod_arg[e_rse_streams] = temp = MAKE_node(nod_list, 1);
+	temp->nod_arg[0] = base_relation;
+	define_view_trigger(request, element, rse, items);
+
+/* create the INSERT trigger */
+
+/* element->nod_arg [e_cnstr_message] =
+ *   (NOD) MAKE_cstring ("insert violates CHECK constraint on view");
+ */
+	element->nod_arg[e_cnstr_type] =
+		MAKE_constant((STR) PRE_STORE_TRIGGER, 1);
+	define_view_trigger(request, element, NULL, items);
+
+	STUFF(gds_dyn_end);			/* For triggers definition  */
+}
+
+
+static void define_computed(
+							REQ request,
+							NOD relation_node, FLD field, NOD node)
+{
+/**************************************
+ *
+ *	d e f i n e _ c o m p u t e d
+ *
+ **************************************
+ *
+ * Function
+ *	Create the ddl to define a computed field 
+ *	or an expression index. 
+ *
+ **************************************/
+	NOD input, ddl_node;
+	STR source;
+	DSC save_desc, desc;
+
+	ddl_node = request->req_ddl_node;
+	request->req_ddl_node = node;
+
+/* Get the table node & set up correct context */
+
+	if (request->req_context_number)
+		reset_context_stack(request);
+
+/* Save the size of the field if it is specified */
+
+	save_desc.dsc_dtype = 0;
+
+	if (field && field->fld_dtype) {
+		assert(field->fld_dtype <= MAX_UCHAR);
+		save_desc.dsc_dtype = (UCHAR) field->fld_dtype;
+		save_desc.dsc_length = field->fld_length;
+		assert(field->fld_scale <= MAX_SCHAR);
+		save_desc.dsc_scale = (SCHAR) field->fld_scale;
+
+		field->fld_dtype = 0;
+		field->fld_length = 0;
+		field->fld_scale = 0;
+	}
+
+	PASS1_make_context(request, relation_node);
+
+	input = PASS1_node(request, node->nod_arg[e_cmp_expr], 0);
+
+/* check if array or blobs are used in expression */
+
+	if (check_array_or_blob(input))
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+				  gds_arg_gds, gds__dsql_no_blob_array, 0);
+
+/* generate the blr expression */
+
+	STUFF(gds_dyn_fld_computed_blr);
+	begin_blr(request, 0);
+	GEN_expr(request, input);
+	end_blr(request);
+
+/* try to calculate size of the computed field. The calculated size
+   may be ignored, but it will catch self references */
+
+	MAKE_desc(&desc, input);
+
+	if (save_desc.dsc_dtype) {
+		/* restore the field size/type overrides */
+
+		field->fld_dtype = save_desc.dsc_dtype;
+		field->fld_length = save_desc.dsc_length;
+		field->fld_scale = save_desc.dsc_scale;
+	}
+	else if (field) {
+		/* use size calculated */
+
+		field->fld_dtype = desc.dsc_dtype;
+		field->fld_length = desc.dsc_length;
+		field->fld_scale = desc.dsc_scale;
+	}
+
+	request->req_type = REQ_DDL;
+	request->req_ddl_node = ddl_node;
+	reset_context_stack(request);
+
+/* generate the source text */
+
+	source = (STR) node->nod_arg[e_cmp_text];
+	assert(source->str_length <= MAX_USHORT);
+	put_string(request, gds_dyn_fld_computed_source, source->str_data,
+			   (USHORT) source->str_length);
+}
+
+
+static void define_constraint_trigger(REQ request, NOD node)
+{
+/**************************************
+ *
+ *	d e f i n e _ c o n s t r a i n t _ t r i g g e r
+ *
+ **************************************
+ *
+ * Function
+ *	Create the ddl to define or alter a constraint trigger.
+ *
+ **************************************/
+	NOD actions, *ptr, *end, constant;
+
+/* make the "define trigger" node the current request ddl node so
+   that generating of BLR will be appropriate for trigger */
+
+	NOD ddl_node = request->req_ddl_node;
+
+	request->req_ddl_node = node;
+
+	if (node->nod_type != nod_def_constraint)
+	{
+		return;
+	}
+
+	STR trigger_name = (STR) node->nod_arg[e_cnstr_name];
+
+	assert(trigger_name->str_length <= MAX_USHORT);
+
+	put_string(request,
+				gds_dyn_def_trigger,
+				trigger_name->str_data,
+				(USHORT) trigger_name->str_length);
+
+	NOD relation_node = node->nod_arg[e_cnstr_table];
+	STR relation_name = (STR) relation_node->nod_arg[e_rln_name];
+
+	assert(trigger_name->str_length <= MAX_USHORT);
+
+	put_string(request,
+				gds_dyn_rel_name,
+				relation_name->str_data,
+				(USHORT) relation_name->str_length);
+
+	STR source = (STR) node->nod_arg[e_cnstr_source];
+	if (source)
+	{
+		assert(source->str_length <= MAX_USHORT);
+		put_string(request, gds_dyn_trg_source, source->str_data,
+				   (USHORT) source->str_length);
+	}
+
+	if ((constant = node->nod_arg[e_cnstr_position]) != NULL)
+	{
+		put_number(request, gds_dyn_trg_sequence,
+				   (SSHORT) (constant ? constant->nod_arg[0] : 0));
+	}
+
+	if ((constant = node->nod_arg[e_cnstr_type]) != NULL)
+	{
+		const SSHORT type = (SSHORT) constant->nod_arg[0];
+		put_number(request, gds_dyn_trg_type, type);
+	}
+
+	STUFF(gds_dyn_sql_object);
+
+	STR message = (STR) node->nod_arg[e_cnstr_message];
+	if (message)
+	{
+		put_number(request, gds_dyn_def_trigger_msg, 0);
+		assert(message->str_length <= MAX_USHORT);
+		put_string(request, gds_dyn_trg_msg, message->str_data,
+				   (USHORT) message->str_length);
+		STUFF(gds_dyn_end);
+	}
+
+/* generate the trigger blr */
+
+	if (node->nod_arg[e_cnstr_condition] && node->nod_arg[e_cnstr_actions])
+	{
+		begin_blr(request, gds_dyn_trg_blr);
+		STUFF(blr_begin);
+
+		/* create the "OLD" and "NEW" contexts for the trigger --
+		   the new one could be a dummy place holder to avoid resolving
+		   fields to that context but prevent relations referenced in
+		   the trigger actions from referencing the predefined "1" context */
+
+		if (request->req_context_number)
+		{
+			reset_context_stack(request);
+		}
+		relation_node->nod_arg[e_rln_alias] = (NOD) MAKE_cstring(OLD_CONTEXT);
+		PASS1_make_context(request, relation_node);
+		relation_node->nod_arg[e_rln_alias] = (NOD) MAKE_cstring(NEW_CONTEXT);
+		PASS1_make_context(request, relation_node);
+
+		/* generate the condition for firing the trigger */
+
+		STUFF(blr_if);
+		GEN_expr(request,
+				 PASS1_node(request, node->nod_arg[e_cnstr_condition], 0));
+
+		STUFF(blr_begin);
+		STUFF(blr_end);			/* of begin */
+
+		/* generate the action statements for the trigger */
+		actions = node->nod_arg[e_cnstr_actions];
+		for (ptr = actions->nod_arg, end = ptr + actions->nod_count;
+			 ptr < end; ptr++)
+		{
+			GEN_statement(request, PASS1_statement(request, *ptr, 0));
+		}
+
+		/* generate the action statements for the trigger */
+
+		if ((actions = node->nod_arg[e_cnstr_else]) != NULL)
+		{
+			STUFF(blr_begin);
+			for (ptr = actions->nod_arg, end = ptr + actions->nod_count;
+				 ptr < end; ptr++)
+			{
+				GEN_statement(request, PASS1_statement(request, *ptr, 0));
+			}
+			STUFF(blr_end);		/* of begin */
+		}
+		else
+		{
+			STUFF(blr_end);		/* of if */
+		}
+
+		end_blr(request);
+	}
+
+	STUFF(gds_dyn_end);
+
+/* the request type may have been set incorrectly when parsing
+   the trigger actions, so reset it to reflect the fact that this
+   is a data definition request; also reset the ddl node */
+
+	request->req_type = REQ_DDL;
+	request->req_ddl_node = ddl_node;
+	reset_context_stack(request);
+}
+
+
+static void define_database( REQ request)
+{
+/**************************************
+ *
+ *	d e f i n e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Function
+ *	Create a database. Assumes that 
+ *	database is created elsewhere with 
+ *	initial options. Modify the 
+ *	database using DYN to add the remaining
+ *	options.
+ *
+ **************************************/
+	NOD ddl_node, elements, element, *ptr, *end;
+	STR name;
+	SLONG start = 0;
+	FIL file;
+	SSHORT number = 0;
+	SLONG temp_long;
+	SSHORT temp_short;
+
+	ddl_node = request->req_ddl_node;
+
+	STUFF(gds_dyn_mod_database);
+/*
+put_number (request, gds_dyn_rel_sql_protection, 1);
+*/
+
+	elements = ddl_node->nod_arg[e_database_initial_desc];
+
+	if (elements)
+		for (ptr = elements->nod_arg, end = ptr + elements->nod_count;
+			 ptr < end; ptr++) {
+			element = *ptr;
+
+			switch (element->nod_type) {
+			case nod_file_length:
+				start = (SLONG) (element->nod_arg[0]) + 1;
+				break;
+
+			default:
+				break;
+			}
+		}
+
+	elements = ddl_node->nod_arg[e_database_rem_desc];
+	if (elements)
+		for (ptr = elements->nod_arg, end = ptr + elements->nod_count;
+			 ptr < end; ptr++) {
+			element = *ptr;
+
+			switch (element->nod_type) {
+			case nod_file_desc:
+				file = (FIL) element->nod_arg[0];
+				put_cstring(request, gds_dyn_def_file,
+							reinterpret_cast <
+							char *>(file->fil_name->str_data));
+				STUFF(gds_dyn_file_start);
+				STUFF_WORD(4);
+				start = MAX(start, file->fil_start);
+
+				STUFF_DWORD(start);
+
+				STUFF(gds_dyn_file_length);
+				STUFF_WORD(4);
+				STUFF_DWORD(file->fil_length);
+				STUFF(gds_dyn_end);
+				start += file->fil_length;
+				break;
+
+			case nod_log_file_desc:
+				file = (FIL) element->nod_arg[0];
+
+				if (file->fil_flags & LOG_default) {
+					STUFF(gds_dyn_def_default_log);
+					break;
+				}
+				put_cstring(request, gds_dyn_def_log_file,
+							reinterpret_cast <
+							char *>(file->fil_name->str_data));
+				STUFF(gds_dyn_file_length);
+				STUFF_WORD(4);
+				STUFF_DWORD(file->fil_length);
+				STUFF(gds_dyn_log_file_sequence);
+				STUFF_WORD(2);
+				STUFF_WORD(number);
+				number++;
+				STUFF(gds_dyn_log_file_partitions);
+				STUFF_WORD(2);
+				STUFF_WORD(file->fil_partitions);
+				if (file->fil_flags & LOG_serial)
+					STUFF(gds_dyn_log_file_serial);
+				if (file->fil_flags & LOG_overflow)
+					STUFF(gds_dyn_log_file_overflow);
+				if (file->fil_flags & LOG_raw)
+					STUFF(gds_dyn_log_file_raw);
+				STUFF(gds_dyn_end);
+				break;
+
+			case nod_cache_file_desc:
+				file = (FIL) element->nod_arg[0];
+				put_cstring(request, gds_dyn_def_cache_file,
+							reinterpret_cast <
+							char *>(file->fil_name->str_data));
+				STUFF(gds_dyn_file_length);
+				STUFF_WORD(4);
+				STUFF_DWORD(file->fil_length);
+				STUFF(gds_dyn_end);
+				break;
+
+			case nod_group_commit_wait:
+				STUFF(gds_dyn_log_group_commit_wait);
+				temp_long = (SLONG) (element->nod_arg[0]);
+				STUFF_WORD(4);
+				STUFF_DWORD(temp_long);
+				break;
+
+			case nod_check_point_len:
+				STUFF(gds_dyn_log_check_point_length);
+				temp_long = (SLONG) (element->nod_arg[0]);
+				STUFF_WORD(4);
+				STUFF_DWORD(temp_long);
+				break;
+
+			case nod_num_log_buffers:
+				STUFF(gds_dyn_log_num_of_buffers);
+				temp_short = (SSHORT) (element->nod_arg[0]);
+				STUFF_WORD(2);
+				STUFF_WORD(temp_short);
+				break;
+
+			case nod_log_buffer_size:
+				STUFF(gds_dyn_log_buffer_size);
+				temp_short = (SSHORT) (element->nod_arg[0]);
+				STUFF_WORD(2);
+				STUFF_WORD(temp_short);
+				break;
+
+			case nod_dfl_charset:
+				name = (STR) element->nod_arg[0];
+				put_cstring(request, gds_dyn_fld_character_set_name,
+							reinterpret_cast<char*>(name->str_data));
+				break;
+
+			default:
+				break;
+			}
+		}
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void define_del_cascade_trg(
+								   REQ request,
+								   NOD element,
+								   NOD for_columns,
+								   NOD prim_columns,
+TEXT * prim_rel_name, TEXT * for_rel_name)
+{
+/*****************************************************
+ *
+ *	d e f i n e _ d e l _ c a s c a d e _ t r g
+ *
+ *****************************************************
+ *
+ * Function
+ *	define "on delete cascade" trigger (for referential integrity)
+ *      along with its blr
+ *
+ *****************************************************/
+	USHORT num_fields = 0;
+
+	if (element->nod_type != nod_foreign)
+		return;
+
+/* stuff a trigger_name of size 0. So the dyn-parser will make one up.  */
+	put_string(request, gds_dyn_def_trigger, reinterpret_cast < UCHAR * >(""),
+			   (USHORT) 0);
+
+	put_number(request, gds_dyn_trg_type, (SSHORT) POST_ERASE_TRIGGER);
+
+	STUFF(gds_dyn_sql_object);
+	put_number(request, gds_dyn_trg_sequence, (SSHORT) 1);
+	put_number(request, gds_dyn_trg_inactive, (SSHORT) 0);
+	put_cstring(request, gds_dyn_rel_name, prim_rel_name);
+
+/* the trigger blr */
+	begin_blr(request, gds_dyn_trg_blr);
+	STUFF(blr_for);
+	STUFF(blr_rse);
+
+/* the context for the prim. key relation */
+	STUFF(1);
+
+	STUFF(blr_relation);
+	put_cstring(request, 0, for_rel_name);
+/* the context for the foreign key relation */
+	STUFF(2);
+
+	stuff_matching_blr(request, for_columns, prim_columns);
+
+	STUFF(blr_erase);
+	STUFF((SSHORT) 2);
+	end_blr(request);
+/* end of the blr */
+
+/* no trg_source and no trg_description */
+	STUFF(gds_dyn_end);
+
+}
+
+
+static void define_set_default_trg(
+								   REQ request,
+								   NOD element,
+								   NOD for_columns,
+								   NOD prim_columns,
+TEXT * prim_rel_name, TEXT * for_rel_name, BOOLEAN on_upd_trg)
+{
+/*****************************************************
+ *
+ *	d e f i n e _ s e t _ d e f a u l t _ t r g
+ *
+ *****************************************************
+ *
+ * Function
+ *	define "on delete|update set default" trigger (for 
+ *      referential integrity) along with its blr
+ *
+ *****************************************************/
+	NOD *for_key_flds;
+	USHORT num_fields = 0;
+	STR for_key_fld_name_str;
+	UCHAR default_val[BLOB_BUFFER_SIZE];
+	BOOLEAN found_default, search_for_default;
+
+	NOD ddl_node, elem, *ptr, *end, default_node;
+	NOD domain_node, tmp_node;
+	FLD field;
+	STR domain_name_str;
+	TEXT *domain_name;
+
+	if (element->nod_type != nod_foreign)
+		return;
+
+/* stuff a trigger_name of size 0. So the dyn-parser will make one up.  */
+	put_string(request, gds_dyn_def_trigger, reinterpret_cast < UCHAR * >(""),
+			   (USHORT) 0);
+
+	put_number(request, gds_dyn_trg_type,
+			   (SSHORT) (on_upd_trg ? POST_MODIFY_TRIGGER :
+						 POST_ERASE_TRIGGER));
+
+	STUFF(gds_dyn_sql_object);
+	put_number(request, gds_dyn_trg_sequence, (SSHORT) 1);
+	put_number(request, gds_dyn_trg_inactive, (SSHORT) 0);
+	put_cstring(request, gds_dyn_rel_name, prim_rel_name);
+
+/* the trigger blr */
+	begin_blr(request, gds_dyn_trg_blr);
+
+/* for ON UPDATE TRIGGER only: generate the trigger firing condition:
+   if prim_key.old_value != prim_key.new value.
+   Note that the key could consist of multiple columns */
+
+	if (on_upd_trg) {
+		stuff_trg_firing_cond(request, prim_columns);
+		STUFF(blr_begin);
+		STUFF(blr_begin);
+	}
+
+	STUFF(blr_for);
+	STUFF(blr_rse);
+
+/* the context for the prim. key relation */
+	STUFF(1);
+	STUFF(blr_relation);
+	put_cstring(request, 0, for_rel_name);
+/* the context for the foreign key relation */
+	STUFF(2);
+
+	stuff_matching_blr(request, for_columns, prim_columns);
+
+	STUFF(blr_modify);
+	STUFF((SSHORT) 2);
+	STUFF((SSHORT) 2);
+	STUFF(blr_begin);
+
+	num_fields = 0;
+	for_key_flds = for_columns->nod_arg;
+
+	ddl_node = request->req_ddl_node;
+
+	do {
+		/* for every column in the foreign key .... */
+		for_key_fld_name_str = (STR) (*for_key_flds)->nod_arg[1];
+
+		STUFF(blr_assignment);
+
+		/* here stuff the default value as blr_literal .... or blr_null
+		   if this col. does not have an applicable default */
+
+		/* the default is determined in many cases:
+		   (1) the info. for the column is in memory. (This is because
+		   the column is being created in this ddl statement)
+		   (1-a) the table has a column level default. We get this by
+		   searching the dsql parse tree starting from the ddl node.
+		   (1-b) the table does not have a column level default, but
+		   has a domain default. We get the domain name from the dsql
+		   parse tree and call METD_get_domain_default to read the
+		   default from the system tables.
+		   (2) The default-info for this column is not in memory (This is
+		   because this is an alter table ddl statement). The table
+		   already exists; therefore we get the column and/or domain
+		   default value from the system tables by calling: 
+		   METD_get_col_default().  */
+
+		found_default = FALSE;
+		search_for_default = TRUE;
+
+		/* search the parse tree to find the column */
+
+		elem = ddl_node->nod_arg[e_drl_elements];
+		for (ptr = elem->nod_arg, end = ptr + elem->nod_count; ptr < end;
+			 ptr++) {
+			elem = *ptr;
+			if (elem->nod_type != nod_def_field)
+				continue;
+			field = (FLD) elem->nod_arg[e_dfl_field];
+			if (strcmp
+				(field->fld_name,
+				 reinterpret_cast <
+				 char *>(for_key_fld_name_str->str_data))) continue;
+
+			/* Now, we have the right column in the parse tree. case (1) above */
+
+			if ((default_node = elem->nod_arg[e_dfl_default]) != NULL) {
+				/* case (1-a) above: there is a col. level default */
+				GEN_expr(request, default_node);
+				found_default = TRUE;
+				search_for_default = FALSE;
+			}
+			else {
+				if (!(domain_node = elem->nod_arg[e_dfl_domain]) ||
+					!(tmp_node = domain_node->nod_arg[e_dom_name]) ||
+					!(domain_name_str = (STR) tmp_node->nod_arg[e_fln_name])
+					|| !(domain_name =
+						 reinterpret_cast <
+						 char *>(domain_name_str->str_data))) break;
+
+				/* case: (1-b): domain name is available. Column level default 
+				   is not declared. so get the domain default */
+				METD_get_domain_default(request, domain_name, &found_default,
+										reinterpret_cast <
+										char *>(default_val),
+										sizeof(default_val));
+
+				search_for_default = FALSE;
+				if (found_default)
+					stuff_default_blr(request,
+									  reinterpret_cast<char*>(default_val),
+									  sizeof(default_val));
+				else
+					/* neither col level nor domain level default exists */
+					STUFF(blr_null);
+			}
+			break;
+		}
+
+		if (search_for_default) {
+			/* case 2: see if the column/domain has already been created */
+
+			METD_get_col_default(request, for_rel_name,
+								 reinterpret_cast <
+								 char *>(for_key_fld_name_str->str_data),
+								 &found_default,
+								 reinterpret_cast<char*>(default_val),
+								 sizeof(default_val));
+
+			if (found_default)
+				stuff_default_blr(request,
+								  reinterpret_cast<char*>(default_val),
+								  sizeof(default_val));
+			else
+				STUFF(blr_null);
+
+		}
+
+		/* the context for the foreign key relation */
+		STUFF(blr_field);
+		STUFF((SSHORT) 2);
+		put_cstring(request, 0,
+					reinterpret_cast <
+					char *>(for_key_fld_name_str->str_data));
+
+		num_fields++;
+		for_key_flds++;
+	}
+	while (num_fields < for_columns->nod_count);
+	STUFF(blr_end);
+
+	if (on_upd_trg) {
+		STUFF(blr_end);
+		STUFF(blr_end);
+		STUFF(blr_end);
+	}
+
+	end_blr(request);
+/* no trg_source and no trg_description */
+	STUFF(gds_dyn_end);
+}
+
+
+static void define_dimensions( REQ request, FLD field)
+{
+/*****************************************
+ *
+ *	d e f i n e _ d i m e n s i o n s
+ *
+ *****************************************
+ *
+ * Function
+ *	Define dimensions of an array 
+ *
+ **************************************/
+	NOD elements, element;
+	USHORT dims;
+	SLONG lrange, hrange;
+
+	elements = field->fld_ranges;
+	dims = elements->nod_count / 2;
+
+	if (dims > MAX_ARRAY_DIMENSIONS)
+	{
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 604,
+				  gds_arg_gds, gds__dsql_max_arr_dim_exceeded, 0);
+	}
+
+	put_number(request, gds_dyn_fld_dimensions, (SSHORT) dims);
+
+	SSHORT position = 0;
+	NOD* ptr = elements->nod_arg;
+	NOD* end = ptr + elements->nod_count;
+	for (; ptr < end; ++ptr, ++position)
+	{
+		put_number(request, gds_dyn_def_dimension, position);
+		element = *ptr++;
+		STUFF(gds_dyn_dim_lower);
+		lrange = (SLONG) (element->nod_arg[0]);
+		STUFF_WORD(4);
+		STUFF_DWORD(lrange);
+		element = *ptr;
+		STUFF(gds_dyn_dim_upper);
+		hrange = (SLONG) (element->nod_arg[0]);
+		STUFF_WORD(4);
+		STUFF_DWORD(hrange);
+		STUFF(gds_dyn_end);
+		if (lrange >= hrange)
+		{
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 604,
+					  gds_arg_gds, gds__dsql_arr_range_error, 0);
+		}
+	}
+}
+
+
+static void define_domain( REQ request)
+{
+/**************************************
+ *
+ *	d e f i n e _ d o m a i n
+ *
+ **************************************
+ *
+ * Function
+ *	Define a domain (global field)  
+ *
+ **************************************/
+	NOD		node;
+	STR		string;
+	BOOLEAN	null_flag = FALSE;
+	BOOLEAN	check_flag = FALSE;
+
+	NOD element = request->req_ddl_node;
+	FLD field = (FLD) element->nod_arg[e_dom_name];
+
+	put_cstring(request, gds_dyn_def_global_fld, field->fld_name);
+
+	DDL_resolve_intl_type(request, field,
+						  (STR) element->nod_arg[e_dom_collate]);
+	put_field(request, field, FALSE);
+
+/* check for a default value */
+
+	node = element->nod_arg[e_dom_default];
+	if (node)
+	{
+		node = PASS1_node(request, node, 0);
+		begin_blr(request, gds_dyn_fld_default_value);
+		GEN_expr(request, node);
+		end_blr(request);
+
+		string = (STR) element->nod_arg[e_dom_default_source];
+		if (string)
+		{
+			assert(string->str_length <= MAX_USHORT);
+			put_string(request,
+						gds_dyn_fld_default_source,
+						string->str_data,
+						(USHORT) string->str_length);
+		}
+	}
+
+	if (field->fld_ranges)
+	{
+		define_dimensions(request, field);
+	}
+
+/* check for constraints */
+	node = element->nod_arg[e_dom_constraint];
+	if (node)
+	{
+		NOD* ptr     = node->nod_arg;
+		NOD* end_ptr = ptr + node->nod_count;
+		for (; ptr < end_ptr; ++ptr)
+		{
+			if ((*ptr)->nod_type == nod_rel_constraint)
+			{
+				NOD node1 = (*ptr)->nod_arg[e_rct_type];
+				if (node1->nod_type == nod_null)
+				{
+					if (!(null_flag))
+					{
+						STUFF(gds_dyn_fld_not_null);
+						null_flag = TRUE;
+					}
+					else
+					{
+						ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 637,
+								  gds_arg_gds, gds__dsql_duplicate_spec,
+								  gds_arg_string, "NOT NULL", 0);
+					}
+				}
+				else if (node1->nod_type == nod_def_constraint)
+				{
+					if (check_flag)
+					{
+						ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 637,
+								  gds_arg_gds, gds__dsql_duplicate_spec,
+								  gds_arg_string, "DOMAIN CHECK CONSTRAINT",
+								  0);
+					}
+					check_flag = TRUE;
+
+					string = (STR) node1->nod_arg[e_cnstr_source];
+					if (string)
+					{
+						assert(string->str_length <= MAX_USHORT);
+						put_string(request,
+									gds_dyn_fld_validation_source,
+									string->str_data,
+									(USHORT) string->str_length);
+					}
+					begin_blr(request, gds_dyn_fld_validation_blr);
+
+					/* Set any VALUE nodes to the type of the domain being defined. */
+					if (node1->nod_arg[e_cnstr_condition])
+					{
+						set_nod_value_attributes(node1->nod_arg[e_cnstr_condition],
+												 field);
+					}
+
+					/* Increment the context level for this request, so
+					   that the context number for any RSE generated for a
+					   SELECT within the CHECK clause will be greater than
+					   0.  In the environment of a domain check
+					   constraint, context number 0 is reserved for the
+					   "blr_fid, 0, 0,0," which is emitted for a
+					   nod_dom_value, corresponding to an occurance of the
+					   VALUE keyword in the bod of the check constraint.
+					   -- chrisj 1999-08-20 */
+
+					request->req_context_number++;
+
+					GEN_expr(request,
+							 PASS1_node(request,
+										node1->nod_arg[e_cnstr_condition],
+										0));
+
+					end_blr(request);
+				}
+			}
+		}
+	}
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void define_exception( REQ request, NOD_TYPE op)
+{
+/**************************************
+ *
+ *	d e f i n e _ e x c e p t i o n
+ *
+ **************************************
+ *
+ * Function
+ *	Generate ddl to create an exception code.
+ *
+ **************************************/
+	NOD ddl_node;
+	STR text, name;
+
+	ddl_node = request->req_ddl_node;
+	name = (STR) ddl_node->nod_arg[e_xcp_name];
+	text = (STR) ddl_node->nod_arg[e_xcp_text];
+
+	if (op == nod_def_exception)
+		put_cstring(request, gds_dyn_def_exception,
+					reinterpret_cast<char*>(name->str_data));
+	else if (op == nod_mod_exception)
+		put_cstring(request, gds_dyn_mod_exception,
+					reinterpret_cast<char*>(name->str_data));
+	else
+		put_cstring(request, gds_dyn_del_exception,
+					reinterpret_cast<char*>(name->str_data));
+
+	if (op != nod_del_exception) {
+		assert(text->str_length <= MAX_USHORT);
+		put_string(request, gds_dyn_xcp_msg, text->str_data,
+				   (USHORT) text->str_length);
+		STUFF(gds_dyn_end);
+	}
+}
+
+
+static void define_field(
+						 REQ request,
+						 NOD element, SSHORT position, STR relation_name)
+{
+/**************************************
+ *
+ *	d e f i n e _ f i e l d
+ *
+ **************************************
+ *
+ * Function
+ *	Define a field, either as part of a create
+ *	table or an alter table statement.
+ *
+ **************************************/
+	NOD domain_node, node, node1, *ptr, *end_ptr;
+	FLD field;
+	DSQL_REL relation;
+	STR string, domain_name;
+	USHORT cnstrt_flag = FALSE;
+	NOD computed_node;
+	BOOLEAN default_null_flag = FALSE;
+
+	field = (FLD) element->nod_arg[e_dfl_field];
+
+/* add the field to the relation being defined for parsing purposes */
+
+	if ((relation = request->req_relation) != NULL) {
+		field->fld_next = relation->rel_fields;
+		relation->rel_fields = field;
+	}
+
+	if (domain_node = element->nod_arg[e_dfl_domain]) {
+		put_cstring(request, gds_dyn_def_local_fld, field->fld_name);
+		node1 = domain_node->nod_arg[e_dom_name];
+		domain_name = (STR) node1->nod_arg[e_fln_name];
+		put_cstring(request, gds_dyn_fld_source,
+					reinterpret_cast<char*>(domain_name->str_data));
+
+		/* Get the domain information */
+
+		if (!(METD_get_domain(request, field, domain_name->str_data)))
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds__dsql_command_err,
+					  gds_arg_gds, gds__dsql_domain_not_found,
+					  /* Specified domain or source field does not exist */
+					  0);
+
+		DDL_resolve_intl_type(	request,
+								field,
+								reinterpret_cast<STR>(element->nod_arg[e_dfl_collate]));
+		if (element->nod_arg[e_dfl_collate]) {
+			put_number(request, gds_dyn_fld_collation,
+					   field->fld_collation_id);
+		}
+	}
+	else {
+		put_cstring(request, gds_dyn_def_sql_fld, field->fld_name);
+		if (relation_name)
+			put_cstring(request, gds_dyn_rel_name,
+						reinterpret_cast<char*>(relation_name->str_data));
+
+		if (element->nod_arg[e_dfl_computed]) {
+			field->fld_flags |= FLD_computed;
+			computed_node = element->nod_arg[e_dfl_computed];
+			define_computed(request,
+							request->req_ddl_node->nod_arg[e_drl_name], field,
+							computed_node);
+		}
+
+		DDL_resolve_intl_type(request, field,
+							  reinterpret_cast<STR>(element->nod_arg[e_dfl_collate]));
+		put_field(request, field, FALSE);
+	}
+
+	if (position != -1)
+		put_number(request, gds_dyn_fld_position, position);
+
+/* check for a default value */
+
+	if ((node = element->nod_arg[e_dfl_default]) != NULL) {
+		node = PASS1_node(request, node, 0);
+		begin_blr(request, gds_dyn_fld_default_value);
+		if (node->nod_type == nod_null)
+			default_null_flag = TRUE;
+		GEN_expr(request, node);
+		end_blr(request);
+		if ((string = (STR) element->nod_arg[e_dfl_default_source]) != NULL) {
+			assert(string->str_length <= MAX_USHORT);
+			put_string(request, gds_dyn_fld_default_source, string->str_data,
+					   (USHORT) string->str_length);
+		}
+	}
+
+	if (field->fld_ranges)
+		define_dimensions(request, field);
+
+/* check for constraints */
+
+	if (node = element->nod_arg[e_dfl_constraint]) {
+		for (ptr = node->nod_arg, end_ptr = ptr + node->nod_count;
+			 ptr < end_ptr; ptr++) {
+			if ((*ptr)->nod_type == nod_rel_constraint) {
+				string = (STR) (*ptr)->nod_arg[e_rct_name];
+				node1 = (*ptr)->nod_arg[e_rct_type];
+
+				if (node1->nod_type == nod_null) {
+					if (default_null_flag == TRUE)
+						ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 204,
+								  gds_arg_gds, isc_bad_default_value,
+								  gds_arg_gds, isc_invalid_clause,
+								  gds_arg_string, "default null not null", 0);
+					STUFF(gds_dyn_fld_not_null);
+					if (cnstrt_flag == FALSE) {
+						STUFF(gds_dyn_end);	/* For field definition  */
+						cnstrt_flag = TRUE;
+					}
+					put_cstring(request, gds_dyn_rel_constraint,
+								reinterpret_cast <
+								char *>((string) ? string->str_data : NULL));
+					STUFF(gds_dyn_fld_not_null);
+					STUFF(gds_dyn_end);	/* For NOT NULL Constraint definition  */
+				}
+				else if (node1->nod_type == nod_primary
+						 || node1->nod_type == nod_unique) {
+					if (cnstrt_flag == FALSE) {
+						STUFF(gds_dyn_end);	/* For field definition  */
+						cnstrt_flag = TRUE;
+					}
+					put_cstring(request, gds_dyn_rel_constraint,
+								reinterpret_cast <
+								char *>((string) ? string->str_data : NULL));
+					if (node1->nod_type == nod_primary)
+						STUFF(gds_dyn_def_primary_key);
+					else if (node1->nod_type == nod_unique)
+						STUFF(gds_dyn_def_unique);
+
+					STUFF_WORD(0);	/* So index name is generated   */
+					put_number(request, gds_dyn_idx_unique, 1);
+					put_cstring(request, gds_dyn_fld_name, field->fld_name);
+					STUFF(gds_dyn_end);
+				}
+				else if (node1->nod_type == nod_foreign) {
+					if (cnstrt_flag == FALSE) {
+						STUFF(gds_dyn_end);	/* For field definition  */
+						cnstrt_flag = TRUE;
+					}
+					put_cstring(request, gds_dyn_rel_constraint,
+								reinterpret_cast <
+								char *>((string) ? string->str_data : NULL));
+					foreign_key(request, node1);
+				}
+				else if (node1->nod_type == nod_def_constraint) {
+					if (cnstrt_flag == FALSE) {
+						STUFF(gds_dyn_end);	/* For field definition  */
+						cnstrt_flag = TRUE;
+					}
+					put_cstring(request, gds_dyn_rel_constraint,
+								reinterpret_cast <
+								char *>((string) ? string->str_data : NULL));
+					check_constraint(request, node1,
+									 FALSE /* No delete trigger */ );
+				}
+			}
+		}
+	}
+
+	if (cnstrt_flag == FALSE)
+		STUFF(gds_dyn_end);
+}
+
+
+static void define_filter( REQ request)
+{
+/**************************************
+ *
+ *	d e f i n e _ f i l t e r
+ *
+ **************************************
+ *
+ * Function
+ *	define a filter to the database.
+ *
+ **************************************/
+	NOD *ptr, filter_node;
+
+	filter_node = request->req_ddl_node;
+	ptr = filter_node->nod_arg;
+	put_cstring(request, gds_dyn_def_filter,
+				reinterpret_cast <
+				char *>(((STR) (ptr[e_filter_name]))->str_data));
+	put_number(request, gds_dyn_filter_in_subtype,
+			   (SSHORT) ((ptr[e_filter_in_type])->nod_arg[0]));
+	put_number(request, gds_dyn_filter_out_subtype,
+			   (SSHORT) ((ptr[e_filter_out_type])->nod_arg[0]));
+	put_cstring(request, gds_dyn_func_entry_point,
+				reinterpret_cast <
+				char *>(((STR) (ptr[e_filter_entry_pt]))->str_data));
+	put_cstring(request, gds_dyn_func_module_name,
+				reinterpret_cast <
+				char *>(((STR) (ptr[e_filter_module]))->str_data));
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void define_generator( REQ request)
+{
+/**************************************
+ *
+ *	d e f i n e _ g e n e r a t o r
+ *
+ **************************************
+ *
+ * Function
+ *	create a generator.
+ *
+ **************************************/
+	STR gen_name;
+
+	gen_name = (STR) request->req_ddl_node->nod_arg[e_gen_name];
+	put_cstring(request, gds_dyn_def_generator,
+				reinterpret_cast<char*>(gen_name->str_data));
+	STUFF(gds_dyn_end);
+}
+
+
+static void define_index( REQ request)
+{
+/**************************************
+ *
+ *	d e f i n e _ i n d e x
+ *
+ **************************************
+ *
+ * Function
+ *	Generate ddl to create an index.
+ *
+ **************************************/
+	NOD ddl_node, relation_node, field_list, *ptr, *end;
+	STR relation_name, index_name;
+
+	STUFF(gds_dyn_begin);
+
+	ddl_node = request->req_ddl_node;
+	relation_node = (NOD) ddl_node->nod_arg[e_idx_table];
+	relation_name = (STR) relation_node->nod_arg[e_rln_name];
+	field_list = ddl_node->nod_arg[e_idx_fields];
+	index_name = (STR) ddl_node->nod_arg[e_idx_name];
+
+	put_cstring(request, gds_dyn_def_idx,
+				reinterpret_cast<char*>(index_name->str_data));
+	put_cstring(request, gds_dyn_rel_name,
+				reinterpret_cast<char*>(relation_name->str_data));
+
+/* go through the fields list, making an index segment for each field, 
+   unless we have a computation, in which case generate an expression index */
+
+	if (field_list->nod_type == nod_list)
+		for (ptr = field_list->nod_arg, end = ptr + field_list->nod_count;
+			 ptr < end; ptr++)
+			put_cstring(request, gds_dyn_fld_name,
+						reinterpret_cast <
+						char *>(((STR) (*ptr)->nod_arg[1])->str_data));
+#ifdef EXPRESSION_INDICES
+	else if (field_list->nod_type == nod_def_computed)
+		define_computed(request, relation_node, NULL, field_list);
+#endif
+
+/* check for a unique index */
+
+	if (ddl_node->nod_arg[e_idx_unique])
+		put_number(request, gds_dyn_idx_unique, 1);
+
+	if (ddl_node->nod_arg[e_idx_asc_dsc])
+		put_number(request, gds_dyn_idx_type, 1);
+
+	STUFF(gds_dyn_end);			/* of define index */
+	STUFF(gds_dyn_end);			/* of begin */
+}
+
+
+static NOD define_insert_action( REQ request)
+{
+/**************************************
+ *
+ *	d e f i n e _ i n s e r t _ a c t i o n
+ *
+ **************************************
+ *
+ * Function
+ *	Define an action statement which, given a view 
+ *	definition, will store a record from
+ *	a view of a single relation into the 
+ *	base relation.
+ *
+ **************************************/
+	NOD ddl_node, action_node, insert_node;
+	NOD select_node, select_expr, from_list, relation_node;
+	NOD fields_node, values_node, field_node, value_node;
+	NOD *ptr, *end, *ptr2, *end2;
+	LLS field_stack, value_stack;
+	DSQL_REL relation;
+	FLD field;
+
+	ddl_node = request->req_ddl_node;
+
+/* check whether this is an updatable view definition */
+
+	if (ddl_node->nod_type != nod_def_view ||
+		!(select_node = ddl_node->nod_arg[e_view_select]) ||
+		/* 
+		   Handle VIEWS with UNION : nod_select now points to nod_list
+		   which in turn points to nod_select_expr
+		 */
+		!(select_expr = select_node->nod_arg[0]->nod_arg[0]) ||
+		!(from_list = select_expr->nod_arg[e_sel_from]) ||
+		from_list->nod_count != 1)
+		return NULL;
+
+/* make up an action node consisting of a list of 1 insert statement */
+
+	action_node = MAKE_node(nod_list, (int) 1);
+	action_node->nod_arg[0] = insert_node =
+		MAKE_node(nod_insert, (int) e_ins_count);
+
+/* use the relation referenced in the select statement to insert into */
+
+	relation_node = MAKE_node(nod_relation_name, (int) e_rln_count);
+	insert_node->nod_arg[e_ins_relation] = relation_node;
+	relation_node->nod_arg[e_rln_name] =
+		from_list->nod_arg[0]->nod_arg[e_rln_name];
+	relation_node->nod_arg[e_rln_alias] = (NOD) MAKE_cstring(TEMP_CONTEXT);
+
+/* get the list of values and fields to assign to -- if there is 
+   no list of fields, get all fields in the base relation that
+   are not computed */
+
+	values_node = ddl_node->nod_arg[e_view_fields];
+	fields_node = select_expr->nod_arg[e_sel_list];
+	if (!fields_node)
+	{
+		relation =
+			METD_get_relation(request,
+							  reinterpret_cast<STR>(relation_node->nod_arg[e_rln_name]));
+		field_stack = NULL;
+		for (field = relation->rel_fields; field; field = field->fld_next)
+		{
+			if (field->fld_flags & FLD_computed)
+				continue;
+			field_node = MAKE_node(nod_field_name, (int) e_fln_count);
+			field_node->nod_arg[e_fln_name] = (NOD)MAKE_cstring(field->fld_name);
+			LLS_PUSH(field_node, &field_stack);
+		}
+		fields_node = MAKE_list(field_stack);
+	}
+
+	if (!values_node)
+		values_node = fields_node;
+
+/* generate the list of assignments to fields in the base relation */
+
+	ptr = fields_node->nod_arg;
+	end = ptr + fields_node->nod_count;
+	ptr2 = values_node->nod_arg;
+	end2 = ptr2 + values_node->nod_count;
+	value_stack = field_stack = NULL;
+	for (; (ptr < end) && (ptr2 < end2); ptr++, ptr2++) {
+		field_node = *ptr;
+		if (field_node->nod_type == nod_alias)
+			field_node = field_node->nod_arg[e_alias_value];
+
+		/* generate the actual assignment, assigning from a field in the "NEW" context */
+
+		if (field_node->nod_type == nod_field_name) {
+			field_node->nod_arg[e_fln_context] =
+				(NOD) MAKE_cstring(TEMP_CONTEXT);
+			LLS_PUSH(field_node, &field_stack);
+
+			value_node = MAKE_node(nod_field_name, (int) e_fln_count);
+			value_node->nod_arg[e_fln_name] = (*ptr2)->nod_arg[e_fln_name];
+			value_node->nod_arg[e_fln_context] =
+				(NOD) MAKE_cstring(NEW_CONTEXT);
+			LLS_PUSH(value_node, &value_stack);
+		}
+	}
+
+	insert_node->nod_arg[e_ins_values] = MAKE_list(value_stack);
+	insert_node->nod_arg[e_ins_fields] = MAKE_list(field_stack);
+
+	return action_node;
+}
+
+
+static void define_procedure( REQ request, NOD_TYPE op)
+{
+/**************************************
+ *
+ *	d e f i n e _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Function
+ *	Create DYN to store a procedure
+ *
+ **************************************/
+	NOD parameters, parameter, *ptr, *end, procedure_node;
+	STR procedure_name, source;
+	PRC procedure;
+	FLD field, *field_ptr;
+	SSHORT position, inputs, outputs, locals;
+	VAR variable;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	inputs = outputs = locals = 0;
+	procedure_node = request->req_ddl_node;
+	procedure_name = (STR) procedure_node->nod_arg[e_prc_name];
+	if (op == nod_def_procedure) {
+		put_cstring(request, gds_dyn_def_procedure,
+					reinterpret_cast<char*>(procedure_name->str_data));
+		put_number(request, gds_dyn_rel_sql_protection, 1);
+	}
+	else {
+		put_cstring(request, gds_dyn_mod_procedure,
+					reinterpret_cast<char*>(procedure_name->str_data));
+		if (procedure = METD_get_procedure(request, procedure_name)) {
+			for (field = procedure->prc_inputs; field;
+				 field = field->fld_next) {
+				put_cstring(request, gds_dyn_delete_parameter,
+							field->fld_name);
+				STUFF(gds_dyn_end);
+			}
+			for (field = procedure->prc_outputs; field;
+				 field = field->fld_next) {
+				put_cstring(request, gds_dyn_delete_parameter,
+							field->fld_name);
+				STUFF(gds_dyn_end);
+			}
+		}
+	}
+	if ((source = (STR) procedure_node->nod_arg[e_prc_source]) != NULL) {
+		assert(source->str_length <= MAX_USHORT);
+		put_string(request, gds_dyn_prc_source, source->str_data,
+				   (USHORT) source->str_length);
+	}
+
+/* Fill req_procedure to allow procedure to self reference */
+	procedure =
+		(PRC) ALLOCDV(type_prc,
+					  strlen(reinterpret_cast <
+							 char *>(procedure_name->str_data)) + 1);
+	procedure->prc_name = procedure->prc_data;
+	procedure->prc_owner =
+		procedure->prc_data + procedure_name->str_length + 1;
+	strcpy(procedure->prc_name, (SCHAR *) procedure_name->str_data);
+	*procedure->prc_owner = '\0';
+	request->req_procedure = procedure;
+
+
+/* now do the input parameters */
+
+	field_ptr = &procedure->prc_inputs;
+
+	if (parameters = procedure_node->nod_arg[e_prc_inputs]) {
+		position = 0;
+		for (ptr = parameters->nod_arg, end = ptr + parameters->nod_count;
+			 ptr < end; ptr++) {
+			parameter = *ptr;
+			field = (FLD) parameter->nod_arg[e_dfl_field];
+
+			put_cstring(request, gds_dyn_def_parameter, field->fld_name);
+			put_number(request, gds_dyn_prm_number, position);
+			put_number(request, gds_dyn_prm_type, 0);
+			DDL_resolve_intl_type(request, field, NULL);
+			put_field(request, field, FALSE);
+
+			*ptr = MAKE_variable(field, field->fld_name,
+								 VAR_input, 0, (USHORT) (2 * position),
+								 locals);
+			/* Put the field in a field list which will be stored to allow
+			   procedure self referencing */
+			*field_ptr = field;
+			field_ptr = &field->fld_next;
+			position++;
+
+			STUFF(gds_dyn_end);
+			put_number(request, gds_dyn_prc_inputs, position);
+		}
+		inputs = position;
+	}
+
+/* Terminate the input list */
+
+	*field_ptr = NULL;
+
+/* now do the output parameters */
+	field_ptr = &procedure->prc_outputs;
+
+	if (parameters = procedure_node->nod_arg[e_prc_outputs]) {
+		position = 0;
+		for (ptr = parameters->nod_arg, end = ptr + parameters->nod_count;
+			 ptr < end; ptr++) {
+			parameter = *ptr;
+			field = (FLD) parameter->nod_arg[e_dfl_field];
+			put_cstring(request, gds_dyn_def_parameter, field->fld_name);
+			put_number(request, gds_dyn_prm_number, position);
+			put_number(request, gds_dyn_prm_type, 1);
+			DDL_resolve_intl_type(request, field, NULL);
+			put_field(request, field, FALSE);
+
+			*ptr = MAKE_variable(field, field->fld_name,
+								 VAR_output, 1, (USHORT) (2 * position),
+								 locals);
+			*field_ptr = field;
+			field_ptr = &field->fld_next;
+			position++;
+			locals++;
+
+			STUFF(gds_dyn_end);
+			put_number(request, gds_dyn_prc_outputs, position);
+		}
+		outputs = position;
+	}
+
+	*field_ptr = NULL;
+	procedure->prc_out_count = outputs;
+	procedure->prc_in_count = inputs;
+
+	begin_blr(request, gds_dyn_prc_blr);
+	STUFF(blr_begin);
+	if (inputs) {
+		STUFF(blr_message);
+		STUFF(0);
+		STUFF_WORD(2 * inputs);
+		parameters = procedure_node->nod_arg[e_prc_inputs];
+		for (ptr = parameters->nod_arg, end = ptr + parameters->nod_count;
+			 ptr < end; ptr++) {
+			parameter = *ptr;
+			variable = (VAR) parameter->nod_arg[e_var_variable];
+			field = variable->var_field;
+			put_msg_field(request, field);
+		}
+	}
+	STUFF(blr_message);
+	STUFF(1);
+	STUFF_WORD(2 * outputs + 1);
+	if (outputs) {
+		parameters = procedure_node->nod_arg[e_prc_outputs];
+		for (ptr = parameters->nod_arg, end = ptr + parameters->nod_count;
+			 ptr < end; ptr++) {
+			parameter = *ptr;
+			variable = (VAR) parameter->nod_arg[e_var_variable];
+			field = variable->var_field;
+			put_msg_field(request, field);
+		}
+	}
+
+/* add slot for EOS */
+
+	STUFF(blr_short);
+	STUFF(0);
+
+	if (inputs) {
+		STUFF(blr_receive);
+		STUFF(0);
+	}
+	STUFF(blr_begin);
+	if (outputs) {
+		parameters = procedure_node->nod_arg[e_prc_outputs];
+		for (ptr = parameters->nod_arg, end = ptr + parameters->nod_count;
+			 ptr < end; ptr++) {
+			parameter = *ptr;
+			variable = (VAR) parameter->nod_arg[e_var_variable];
+			put_local_variable(request, variable);
+		}
+	}
+
+	locals = put_local_variables(request, procedure_node->nod_arg[e_prc_dcls],
+								 locals);
+
+	STUFF(blr_stall);
+/* Put a label before body of procedure, so that
+   any exit statement can get out */
+	STUFF(blr_label);
+	STUFF(0);
+	request->req_loop_number = 1;
+	GEN_statement(request,
+				  PASS1_statement(request,
+								  procedure_node->nod_arg[e_prc_body], 1));
+	request->req_type = REQ_DDL;
+	STUFF(blr_end);
+	GEN_return(request, procedure_node, TRUE);
+	STUFF(blr_end);
+	end_blr(request);
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void define_rel_constraint( REQ request, NOD element)
+{
+/**************************************
+ *
+ *	d e f i n e _ r e l _ c o n s t r a i n t 
+ *
+ **************************************
+ *
+ * Function
+ *	Define a constraint , either as part of a create
+ *	table or an alter table statement.
+ *
+ **************************************/
+	NOD node;
+	STR string;
+
+	string = (STR) element->nod_arg[e_rct_name];
+	put_cstring(request, gds_dyn_rel_constraint,
+				reinterpret_cast <
+				char *>((string) ? string->str_data : NULL));
+	node = element->nod_arg[e_rct_type];
+
+	if (node->nod_type == nod_unique || node->nod_type == nod_primary)
+		make_index(request, node, node->nod_arg[0], 0, 0);
+	else if (node->nod_type == nod_foreign)
+		foreign_key(request, node);
+	else if (node->nod_type == nod_def_constraint)
+		check_constraint(request, node, FALSE /* No delete trigger */ );
+}
+
+
+static void define_relation( REQ request)
+{
+/**************************************
+ *
+ *	d e f i n e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Function
+ *	Create an SQL table, relying on DYN to generate
+ *	global fields for the local fields. 
+ *
+ **************************************/
+	NOD ddl_node, elements, element, *ptr, *end, relation_node;
+	STR relation_name, external_file;
+	SSHORT position;
+
+	ddl_node = request->req_ddl_node;
+
+	relation_node = ddl_node->nod_arg[e_drl_name];
+	relation_name = (STR) relation_node->nod_arg[e_rln_name];
+	put_cstring(request, gds_dyn_def_rel,
+				reinterpret_cast<char*>(relation_name->str_data));
+	if (external_file = (STR) ddl_node->nod_arg[e_drl_ext_file])
+		put_cstring(request, gds_dyn_rel_ext_file,
+					reinterpret_cast<char*>(external_file->str_data));
+	save_relation(request, relation_name);
+	put_number(request, gds_dyn_rel_sql_protection, 1);
+
+/* now do the actual metadata definition */
+
+	elements = ddl_node->nod_arg[e_drl_elements];
+	for (ptr = elements->nod_arg, end = ptr + elements->nod_count, position =
+		 0; ptr < end; ptr++) {
+		element = *ptr;
+		switch (element->nod_type) {
+		case nod_def_field:
+			define_field(request, element, position, relation_name);
+			position++;
+			break;
+
+		case nod_rel_constraint:
+			define_rel_constraint(request, element);
+			break;
+
+		default:
+			break;
+		}
+	}
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void define_role( REQ request)
+{
+/**************************************
+ *
+ *	d e f i n e _ r o l e
+ *
+ **************************************
+ *
+ * Function
+ *	create a SQL role.
+ *
+ **************************************/
+	STR gen_name;
+
+	gen_name = (STR) request->req_ddl_node->nod_arg[e_gen_name];
+	put_cstring(request, isc_dyn_def_sql_role,
+				reinterpret_cast<char*>(gen_name->str_data));
+	STUFF(gds_dyn_end);
+}
+
+
+static void define_set_null_trg(
+								REQ request,
+								NOD element,
+								NOD for_columns,
+								NOD prim_columns,
+TEXT * prim_rel_name, TEXT * for_rel_name, BOOLEAN on_upd_trg)
+{
+/*****************************************************
+ *
+ *	d e f i n e _ s e t _ n u l l _ t r g
+ *
+ *****************************************************
+ *
+ * Function
+ *	define "on delete/update set null" trigger (for referential integrity)
+ *      The trigger blr is the same for both the delete and update
+ *      cases. Only difference is its TRIGGER_TYPE (ON DELETE or ON UPDATE)
+ *      The on_upd_trg parameter == TRUE is an update trigger.
+ *
+ *****************************************************/
+	NOD *for_key_flds;
+	USHORT num_fields = 0;
+	STR for_key_fld_name_str;
+
+
+	if (element->nod_type != nod_foreign)
+		return;
+
+/* count of foreign key columns */
+	assert(prim_columns->nod_count == for_columns->nod_count);
+	assert(prim_columns->nod_count != 0);
+
+/* no trigger name. It is generated by the engine */
+	put_string(request, gds_dyn_def_trigger, reinterpret_cast < UCHAR * >(""),
+			   (USHORT) 0);
+
+	put_number(request, gds_dyn_trg_type,
+			   (SSHORT) (on_upd_trg ? POST_MODIFY_TRIGGER :
+						 POST_ERASE_TRIGGER));
+
+	STUFF(gds_dyn_sql_object);
+	put_number(request, gds_dyn_trg_sequence, (SSHORT) 1);
+	put_number(request, gds_dyn_trg_inactive, (SSHORT) 0);
+	put_cstring(request, gds_dyn_rel_name, prim_rel_name);
+
+/* the trigger blr */
+	begin_blr(request, gds_dyn_trg_blr);
+
+/* for ON UPDATE TRIGGER only: generate the trigger firing condition: 
+   if prim_key.old_value != prim_key.new value.
+   Note that the key could consist of multiple columns */
+
+	if (on_upd_trg) {
+		stuff_trg_firing_cond(request, prim_columns);
+		STUFF(blr_begin);
+		STUFF(blr_begin);
+	}
+
+	STUFF(blr_for);
+	STUFF(blr_rse);
+
+/* the context for the prim. key relation */
+	STUFF(1);
+
+	STUFF(blr_relation);
+	put_cstring(request, 0, for_rel_name);
+/* the context for the foreign key relation */
+	STUFF(2);
+
+	stuff_matching_blr(request, for_columns, prim_columns);
+
+	STUFF(blr_modify);
+	STUFF((SSHORT) 2);
+	STUFF((SSHORT) 2);
+	STUFF(blr_begin);
+
+	num_fields = 0;
+	for_key_flds = for_columns->nod_arg;
+
+	do {
+		for_key_fld_name_str = (STR) (*for_key_flds)->nod_arg[1];
+
+		STUFF(blr_assignment);
+		STUFF(blr_null);
+		STUFF(blr_field);
+		STUFF((SSHORT) 2);
+		put_cstring(request, 0,
+					reinterpret_cast <
+					char *>(for_key_fld_name_str->str_data));
+
+		num_fields++;
+		for_key_flds++;
+	}
+	while (num_fields < for_columns->nod_count);
+	STUFF(blr_end);
+
+	if (on_upd_trg) {
+		STUFF(blr_end);
+		STUFF(blr_end);
+		STUFF(blr_end);
+	}
+	end_blr(request);
+/* end of the blr */
+
+/* no trg_source and no trg_description */
+	STUFF(gds_dyn_end);
+
+}
+
+
+static void define_shadow( REQ request)
+{
+/**************************************
+ *
+ *	d e f i n e _ s h a d o w
+ *
+ **************************************
+ *
+ * Function
+ * 	create a shadow for the database
+ *
+ **************************************/
+	NOD shadow_node, elements, element, *ptr, *end;
+	SLONG start;
+	FIL file;
+	SLONG length;
+
+	shadow_node = request->req_ddl_node;
+	ptr = shadow_node->nod_arg;
+	if (!ptr[e_shadow_number])
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+				  gds_arg_gds, gds__dsql_command_err,
+				  gds_arg_gds, gds__dsql_shadow_number_err, 0);
+
+	put_number(request, gds_dyn_def_shadow, (SSHORT) (ptr[e_shadow_number]));
+	put_cstring(request, gds_dyn_def_file,
+				reinterpret_cast <
+				char *>(((STR) (ptr[e_shadow_name]))->str_data));
+	put_number(request, gds_dyn_shadow_man_auto,
+			   (SSHORT) ((ptr[e_shadow_man_auto])->nod_arg[0]));
+	put_number(request, gds_dyn_shadow_conditional,
+			   (SSHORT) ((ptr[e_shadow_conditional])->nod_arg[0]));
+
+	STUFF(gds_dyn_file_start);
+	STUFF_WORD(4);
+	STUFF_DWORD(0);
+
+	length = (SLONG) ptr[e_shadow_length];
+	STUFF(gds_dyn_file_length);
+	STUFF_WORD(4);
+	STUFF_DWORD(length);
+
+	STUFF(gds_dyn_end);
+	elements = ptr[e_shadow_sec_files];
+	if (elements)
+		for (ptr = elements->nod_arg, end = ptr + elements->nod_count;
+			 ptr < end; ptr++) {
+			element = *ptr;
+			file = (FIL) element->nod_arg[0];
+			put_cstring(request, gds_dyn_def_file,
+						reinterpret_cast<char*>(file->fil_name->str_data));
+
+			if (!length && !file->fil_start)
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+						  gds_arg_gds, gds__dsql_command_err,
+						  gds_arg_gds, gds__dsql_file_length_err,
+						  gds_arg_number, (SLONG) file->fil_name->str_data,
+						  /* Preceding file did not specify length, so %s must include starting page number */
+						  0);
+
+			STUFF(gds_dyn_file_start);
+			STUFF_WORD(4);
+			start = file->fil_start;
+			STUFF_DWORD(start);
+			STUFF(gds_dyn_file_length);
+			STUFF_WORD(4);
+			length = file->fil_length;
+			STUFF_DWORD(length);
+			STUFF(gds_dyn_end);
+		}
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void define_trigger( REQ request, NOD node)
+{
+/**************************************
+ *
+ *	d e f i n e _ t r i g g e r
+ *
+ **************************************
+ *
+ * Function
+ *	Create the ddl to define or alter a trigger.
+ *
+ **************************************/
+	STR trigger_name, relation_name, source, message_text;
+	NOD temp, actions, *ptr, *end, constant, relation_node, message;
+	SSHORT number;
+	USHORT trig_type;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+/* make the "define trigger" node the current request ddl node so
+   that generating of BLR will be appropriate for trigger */
+
+	request->req_ddl_node = node;
+
+	trigger_name = (STR) node->nod_arg[e_trg_name];
+
+	if (node->nod_type == nod_def_trigger) {
+		assert(trigger_name->str_length <= MAX_USHORT);
+		put_string(request, gds_dyn_def_trigger, trigger_name->str_data,
+				   (USHORT) trigger_name->str_length);
+		relation_node = node->nod_arg[e_trg_table];
+		relation_name = (STR) relation_node->nod_arg[e_rln_name];
+		assert(relation_name->str_length <= MAX_USHORT);
+		put_string(request, gds_dyn_rel_name, relation_name->str_data,
+				   (USHORT) relation_name->str_length);
+		STUFF(gds_dyn_sql_object);
+	}
+	else {						/* if (node->nod_type == nod_mod_trigger) */
+
+		assert(node->nod_type == nod_mod_trigger);
+		assert(trigger_name->str_length <= MAX_USHORT);
+		put_string(request, gds_dyn_mod_trigger, trigger_name->str_data,
+				   (USHORT) trigger_name->str_length);
+		if (node->nod_arg[e_trg_actions]) {
+			/* Since we will be updating the body of the trigger, we need
+			   to know what relation the trigger relates to. */
+
+			if (!
+				(relation_name =
+				 METD_get_trigger_relation(request, trigger_name,
+										   &trig_type)))
+					ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 204,
+							  gds_arg_gds, gds__dsql_trigger_err, gds_arg_gds,
+							  gds__random, gds_arg_string,
+							  trigger_name->str_data, 0);
+			relation_node = (NOD) ALLOCDV(type_nod, e_rln_count);
+			node->nod_arg[e_trg_table] = relation_node;
+			relation_node->nod_type = nod_relation_name;
+			relation_node->nod_count = e_rln_count;
+			relation_node->nod_arg[e_rln_name] = (NOD) relation_name;
+		}
+	}
+
+	source = (STR) node->nod_arg[e_trg_source];
+	actions = (node->nod_arg[e_trg_actions]) ?
+		node->nod_arg[e_trg_actions]->nod_arg[1] : NULL;
+
+	if (source && actions) {
+		assert(source->str_length <= MAX_USHORT);
+		put_string(request, gds_dyn_trg_source, source->str_data,
+				   (USHORT) source->str_length);
+	}
+
+	if (constant = node->nod_arg[e_trg_active])
+		put_number(request, gds_dyn_trg_inactive,
+				   (SSHORT) constant->nod_arg[0]);
+
+	if (constant = node->nod_arg[e_trg_position])
+		put_number(request, gds_dyn_trg_sequence,
+				   (SSHORT) constant->nod_arg[0]);
+
+	if (constant = node->nod_arg[e_trg_type]) {
+		put_number(request, gds_dyn_trg_type, (SSHORT) constant->nod_arg[0]);
+		trig_type = (USHORT) constant->nod_arg[0];
+	}
+	else {
+		assert(node->nod_type == nod_mod_trigger);
+	}
+
+	if (actions) {
+		/* create the "OLD" and "NEW" contexts for the trigger --
+		   the new one could be a dummy place holder to avoid resolving
+		   fields to that context but prevent relations referenced in
+		   the trigger actions from referencing the predefined "1" context */
+
+		if (request->req_context_number)
+			reset_context_stack(request);
+
+		temp = relation_node->nod_arg[e_rln_alias];
+		if ((trig_type != PRE_STORE_TRIGGER)
+			&& (trig_type != POST_STORE_TRIGGER)) {
+			relation_node->nod_arg[e_rln_alias] =
+				(NOD) MAKE_cstring(OLD_CONTEXT);
+			PASS1_make_context(request, relation_node);
+		}
+		else
+			request->req_context_number++;
+
+		if ((trig_type != PRE_ERASE_TRIGGER)
+			&& (trig_type != POST_ERASE_TRIGGER)) {
+			relation_node->nod_arg[e_rln_alias] =
+				(NOD) MAKE_cstring(NEW_CONTEXT);
+			PASS1_make_context(request, relation_node);
+		}
+		else
+			request->req_context_number++;
+
+		relation_node->nod_arg[e_rln_alias] = temp;
+
+		/* generate the trigger blr */
+
+		begin_blr(request, gds_dyn_trg_blr);
+		STUFF(blr_begin);
+
+		put_local_variables(request,
+							node->nod_arg[e_trg_actions]->nod_arg[0], 0);
+
+		request->req_scope_level++;
+		GEN_statement(request, PASS1_statement(request, actions, 1));
+		request->req_scope_level--;
+		STUFF(blr_end);
+		end_blr(request);
+
+		/* the request type may have been set incorrectly when parsing
+		   the trigger actions, so reset it to reflect the fact that this
+		   is a data definition request; also reset the ddl node */
+
+		request->req_type = REQ_DDL;
+	}
+
+	if (temp = node->nod_arg[e_trg_messages])
+		for (ptr = temp->nod_arg, end = ptr + temp->nod_count; ptr < end;
+			 ptr++) {
+			message = *ptr;
+			number = (SSHORT) message->nod_arg[e_msg_number];
+			if (message->nod_type == nod_del_trigger_msg) {
+				put_number(request, gds_dyn_delete_trigger_msg, number);
+				STUFF(gds_dyn_end);
+			}
+			else {
+				message_text = (STR) message->nod_arg[e_msg_text];
+				if (message->nod_type == nod_def_trigger_msg)
+					put_number(request, gds_dyn_def_trigger_msg, number);
+				else
+					put_number(request, gds_dyn_mod_trigger_msg, number);
+				assert(message_text->str_length <= MAX_USHORT);
+				put_string(request, gds_dyn_trg_msg, message_text->str_data,
+						   (USHORT) message_text->str_length);
+				STUFF(gds_dyn_end);
+			}
+		}
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void define_udf( REQ request)
+{
+/**************************************
+ *
+ *	d e f i n e _ u d f
+ *
+ **************************************
+ *
+ * Function
+ *	define a udf to the database.
+ *
+ **************************************/
+	NOD *ptr, *end, *ret_val_ptr, arguments, udf_node;
+	UCHAR *udf_name;
+	FLD field;
+	SSHORT position, blob_position;
+
+	udf_node = request->req_ddl_node;
+	arguments = udf_node->nod_arg[e_udf_args];
+	ptr = udf_node->nod_arg;
+	udf_name = ((STR) (ptr[e_udf_name]))->str_data;
+	put_cstring(request, gds_dyn_def_function,
+				reinterpret_cast<char*>(udf_name));
+	put_cstring(request, gds_dyn_func_entry_point,
+				reinterpret_cast <
+				char *>(((STR) (ptr[e_udf_entry_pt]))->str_data));
+	put_cstring(request, gds_dyn_func_module_name,
+				reinterpret_cast <
+				char *>(((STR) (ptr[e_udf_module]))->str_data));
+
+	ret_val_ptr = ptr[e_udf_return_value]->nod_arg;
+
+
+	if (field = (FLD) ret_val_ptr[0]) {
+
+		/* Some data types can not be returned as value */
+
+		if (((int) (ret_val_ptr[1]->nod_arg[0]) == FUN_value) &&
+			(field->fld_dtype == dtype_text ||
+			 field->fld_dtype == dtype_varying ||
+			 field->fld_dtype == dtype_cstring ||
+			 field->fld_dtype == dtype_blob ||
+			 field->fld_dtype == dtype_timestamp))
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+						  gds_arg_gds, gds__dsql_command_err,
+						  gds_arg_gds, gds__return_mode_err,
+						  /* Return mode by value not allowed for this data type */
+						  0);
+
+		/* For functions returning a blob, coerce return argument position to
+		   be the last parameter. */
+
+		if (field->fld_dtype == dtype_blob) {
+			blob_position = (arguments) ? arguments->nod_count + 1 : 1;
+			if (blob_position > MAX_UDF_ARGUMENTS)
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+						  gds_arg_gds, gds__dsql_command_err,
+						  gds_arg_gds, gds__extern_func_err,
+						  /* External functions can not have more than 10 parameters */
+						  /* Or 9 if the function returns a BLOB */
+						  0);
+
+			put_number(request, gds_dyn_func_return_argument, blob_position);
+		}
+		else
+			put_number(request, gds_dyn_func_return_argument, (SSHORT) 0);
+
+		position = 0;
+	}
+	else {
+		position = (SSHORT) (ret_val_ptr[1]->nod_arg[0]);
+		/* Function modifies an argument whose value is the function return value */
+
+		if (!arguments || position > arguments->nod_count || position < 1)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds__dsql_command_err,
+					  gds_arg_gds, gds__extern_func_err,
+					  /* External functions can not have more than 10 parameters */
+					  /* Not strictly correct -- return position error */
+					  0);
+
+		put_number(request, gds_dyn_func_return_argument, position);
+		position = 1;
+	}
+
+/* Now define all the arguments */
+	if (!position) {
+		if (field->fld_dtype == dtype_blob) {
+			BOOLEAN free_it = ((SSHORT) ret_val_ptr[1]->nod_arg[0] < 0);
+			put_number(request, gds_dyn_def_function_arg, blob_position);
+			put_number(request, gds_dyn_func_mechanism,
+					   (SSHORT) ((free_it ? -1 : 1) * FUN_blob_struct));
+			/* if we have the free_it set then the blob has
+			   to be freed on return */
+		}
+		else {
+			put_number(request, gds_dyn_def_function_arg, (SSHORT) 0);
+			put_number(request, gds_dyn_func_mechanism,
+					   (SSHORT) (ret_val_ptr[1]->nod_arg[0]));
+		}
+
+		put_cstring(request, gds_dyn_function_name,
+					reinterpret_cast<char*>(udf_name));
+		DDL_resolve_intl_type(request, field, NULL);
+		put_field(request, field, TRUE);
+		STUFF(gds_dyn_end);
+		position = 1;
+	}
+
+	assert(position == 1);
+	if (arguments)
+		for (ptr = arguments->nod_arg, end = ptr + arguments->nod_count;
+			 ptr < end; ptr++, position++) {
+			if (position > MAX_UDF_ARGUMENTS)
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+						  gds_arg_gds, gds__dsql_command_err,
+						  gds_arg_gds, gds__extern_func_err,
+						  /* External functions can not have more than 10 parameters */
+						  0);
+
+			field = (FLD) * ptr;
+			put_number(request, gds_dyn_def_function_arg, (SSHORT) position);
+
+			if (field->fld_dtype == dtype_blob)
+				put_number(request, gds_dyn_func_mechanism,
+						   (SSHORT) FUN_blob_struct);
+			else
+				put_number(request, gds_dyn_func_mechanism,
+						   (SSHORT) FUN_reference);
+
+			put_cstring(request, gds_dyn_function_name,
+						reinterpret_cast<char*>(udf_name));
+			DDL_resolve_intl_type(request, field, NULL);
+			put_field(request, field, TRUE);
+			STUFF(gds_dyn_end);
+		}
+
+	STUFF(gds_dyn_end);
+}
+
+
+
+static void define_update_action(
+								 REQ request,
+								 NOD * base_and_node, NOD * base_relation)
+{
+/* *************************************
+ *
+ *	d e f i n e _ u p d a t e _ a c t i o n
+ *
+ **************************************
+ *
+ * Function
+ *	Define an action statement which, given a view 
+ *	definition, will map a update to a  record from
+ *	a view of a single relation into the 
+ *	base relation.
+ *
+ **************************************/
+	NOD ddl_node, eql_node, and_node, old_and;
+	NOD select_node, select_expr, from_list, relation_node;
+	NOD fields_node, values_node, field_node, value_node, old_value_node;
+	NOD *ptr, *end, *ptr2, *end2;
+	NOD iand_node, or_node, anull_node, bnull_node;
+	LLS field_stack;
+	DSQL_REL relation;
+	FLD field;
+	SSHORT and_arg = 0;
+
+	ddl_node = request->req_ddl_node;
+
+/* check whether this is an updatable view definition */
+
+	if (ddl_node->nod_type != nod_def_view ||
+		!(select_node = ddl_node->nod_arg[e_view_select]) ||
+		/* 
+		   Handle VIEWS with UNION : nod_select now points to nod_list
+		   which in turn points to nod_select_expr
+		 */
+		!(select_expr = select_node->nod_arg[0]->nod_arg[0]) ||
+		!(from_list = select_expr->nod_arg[e_sel_from]) ||
+		from_list->nod_count != 1)
+		return;
+
+/* use the relation referenced in the select statement for rse*/
+
+	relation_node = MAKE_node(nod_relation_name, (int) e_rln_count);
+	relation_node->nod_arg[e_rln_name] =
+		from_list->nod_arg[0]->nod_arg[e_rln_name];
+	relation_node->nod_arg[e_rln_alias] = (NOD) MAKE_cstring(TEMP_CONTEXT);
+	*base_relation = relation_node;
+
+/* get the list of values and fields to compare to -- if there is 
+   no list of fields, get all fields in the base relation that
+   are not computed */
+
+	values_node = ddl_node->nod_arg[e_view_fields];
+	if (!(fields_node = select_expr->nod_arg[e_sel_list]))
+	{
+		relation =
+			METD_get_relation(request,
+							  reinterpret_cast<STR>(relation_node->nod_arg[e_rln_name]));
+		field_stack = NULL;
+		for (field = relation->rel_fields; field; field = field->fld_next)
+		{
+			if (field->fld_flags & FLD_computed)
+				continue;
+			field_node = MAKE_node(nod_field_name, (int) e_fln_count);
+			field_node->nod_arg[e_fln_name] =
+				(NOD) MAKE_cstring(field->fld_name);
+			LLS_PUSH(field_node, &field_stack);
+		}
+		fields_node = MAKE_list(field_stack);
+	}
+	if (!values_node)
+		values_node = fields_node;
+
+/* generate the list of assignments to fields in the base relation */
+
+	ptr = fields_node->nod_arg;
+	end = ptr + fields_node->nod_count;
+	ptr2 = values_node->nod_arg;
+	end2 = ptr2 + values_node->nod_count;
+	field_stack = NULL;
+	and_node = MAKE_node(nod_and, (int) 2);
+	and_arg = 0;
+	for (; (ptr < end) && (ptr2 < end2); ptr++, ptr2++) {
+		field_node = *ptr;
+		if (field_node->nod_type == nod_alias)
+			field_node = field_node->nod_arg[e_alias_value];
+
+		/* generate the actual comparisons */
+
+		if (field_node->nod_type == nod_field_name) {
+			field_node->nod_arg[e_fln_context] =
+				(NOD) MAKE_cstring(TEMP_CONTEXT);
+
+			value_node = MAKE_node(nod_field_name, (int) e_fln_count);
+			value_node->nod_arg[e_fln_name] = (*ptr2)->nod_arg[e_fln_name];
+			value_node->nod_arg[e_fln_context] =
+				(NOD) MAKE_cstring(NEW_CONTEXT);
+
+			old_value_node = MAKE_node(nod_field_name, (int) e_fln_count);
+			old_value_node->nod_arg[e_fln_name] =
+				(*ptr2)->nod_arg[e_fln_name];
+			old_value_node->nod_arg[e_fln_context] =
+				(NOD) MAKE_cstring(OLD_CONTEXT);
+			eql_node = MAKE_node(nod_eql, (int) 2);
+			eql_node->nod_arg[0] = old_value_node;
+			eql_node->nod_arg[1] = field_node;
+
+			anull_node = MAKE_node(nod_missing, 1);
+			anull_node->nod_arg[0] = old_value_node;
+			bnull_node = MAKE_node(nod_missing, 1);
+			bnull_node->nod_arg[0] = field_node;
+
+			iand_node = MAKE_node(nod_and, (int) 2);
+			iand_node->nod_arg[0] = anull_node;
+			iand_node->nod_arg[1] = bnull_node;
+
+			or_node = MAKE_node(nod_or, (int) 2);
+			or_node->nod_arg[0] = eql_node;
+			or_node->nod_arg[1] = iand_node;
+
+			if (and_arg <= 1)
+				and_node->nod_arg[and_arg++] = or_node;
+			else {
+				old_and = and_node;
+				and_node = MAKE_node(nod_and, (int) 2);
+				and_node->nod_arg[0] = old_and;
+				and_node->nod_arg[1] = or_node;
+			}
+		}
+	}
+
+	if (and_arg <= 1)
+		and_node->nod_arg[and_arg] = select_expr->nod_arg[e_sel_where];
+	else {
+		old_and = and_node;
+		and_node = MAKE_node(nod_and, (int) 2);
+		and_node->nod_arg[0] = old_and;
+		and_node->nod_arg[1] = select_expr->nod_arg[e_sel_where];
+	}
+	*base_and_node = and_node;
+}
+
+
+static void define_upd_cascade_trg(
+								   REQ request,
+								   NOD element,
+								   NOD for_columns,
+								   NOD prim_columns,
+TEXT * prim_rel_name, TEXT * for_rel_name)
+{
+/*****************************************************
+ *
+ *	d e f i n e _ u p d _ c a s c a d e _ t r g
+ *
+ *****************************************************
+ *
+ * Function
+ *	define "on update cascade" trigger (for referential integrity)
+ *      along with the trigger blr.
+ *
+ *****************************************************/
+	NOD *for_key_flds, *prim_key_flds;
+	USHORT num_fields = 0;
+	STR for_key_fld_name_str, prim_key_fld_name_str;
+
+	if (element->nod_type != nod_foreign)
+		return;
+
+/* count of foreign key columns */
+	assert(prim_columns->nod_count == for_columns->nod_count);
+	assert(prim_columns->nod_count != 0);
+
+/* no trigger name is generated here. Let the engine make one up */
+	put_string(request, gds_dyn_def_trigger, reinterpret_cast < UCHAR * >(""),
+			   (USHORT) 0);
+
+	put_number(request, gds_dyn_trg_type, (SSHORT) POST_MODIFY_TRIGGER);
+
+	STUFF(gds_dyn_sql_object);
+	put_number(request, gds_dyn_trg_sequence, (SSHORT) 1);
+	put_number(request, gds_dyn_trg_inactive, (SSHORT) 0);
+	put_cstring(request, gds_dyn_rel_name, prim_rel_name);
+
+/* the trigger blr */
+	begin_blr(request, gds_dyn_trg_blr);
+
+/* generate the trigger firing condition: foreign_key == primary_key */
+	stuff_trg_firing_cond(request, prim_columns);
+
+	STUFF(blr_begin);
+	STUFF(blr_begin);
+
+	STUFF(blr_for);
+	STUFF(blr_rse);
+
+/* the new context for the prim. key relation */
+	STUFF(1);
+
+	STUFF(blr_relation);
+	put_cstring(request, 0, for_rel_name);
+/* the context for the foreign key relation */
+	STUFF(2);
+
+/* generate the blr for: foreign_key == primary_key */
+	stuff_matching_blr(request, for_columns, prim_columns);
+
+	STUFF(blr_modify);
+	STUFF((SSHORT) 2);
+	STUFF((SSHORT) 2);
+	STUFF(blr_begin);
+
+	num_fields = 0;
+	for_key_flds = for_columns->nod_arg;
+	prim_key_flds = prim_columns->nod_arg;
+
+	do {
+		for_key_fld_name_str = (STR) (*for_key_flds)->nod_arg[1];
+		prim_key_fld_name_str = (STR) (*prim_key_flds)->nod_arg[1];
+
+		STUFF(blr_assignment);
+		STUFF(blr_field);
+		STUFF((SSHORT) 1);
+		put_cstring(request, 0,
+					reinterpret_cast <
+					char *>(prim_key_fld_name_str->str_data));
+		STUFF(blr_field);
+		STUFF((SSHORT) 2);
+		put_cstring(request, 0,
+					reinterpret_cast <
+					char *>(for_key_fld_name_str->str_data));
+
+		num_fields++;
+		prim_key_flds++;
+		for_key_flds++;
+	}
+	while (num_fields < for_columns->nod_count);
+
+	STUFF(blr_end);
+	STUFF(blr_end);
+	STUFF(blr_end);
+	STUFF(blr_end);
+	end_blr(request);
+/* end of the blr */
+
+/* no trg_source and no trg_description */
+	STUFF(gds_dyn_end);
+
+}
+
+
+static void define_view( REQ request)
+{
+/**************************************
+ *
+ *	d e f i n e _ v i e w
+ *
+ **************************************
+ *
+ * Function
+ *	Create the ddl to define a view, using a SELECT
+ *	statement as the source of the view.
+ *
+ **************************************/
+	NOD node, select, select_expr, rse, field_node;
+	NOD check, relation_node;
+	NOD view_fields, *ptr, *end;
+	NOD items, *i_ptr, *i_end;
+	DSQL_REL relation;
+	FLD field;
+	CTX context;
+	STR view_name, field_name, source;
+	SSHORT position, updatable = TRUE;
+	TEXT *field_string;
+	LLS temp;
+
+	node = request->req_ddl_node;
+	view_name = (STR) node->nod_arg[e_view_name];
+	put_cstring(request, gds_dyn_def_view,
+				reinterpret_cast<char*>(view_name->str_data));
+	save_relation(request, view_name);
+	put_number(request, gds_dyn_rel_sql_protection, 1);
+
+/* compile the SELECT statement into a record selection expression,
+   making sure to bump the context number since view contexts start
+   at 1 (except for computed fields)  -- note that calling PASS1_rse
+   directly rather than PASS1_statement saves the context stack */
+
+	if (request->req_context_number)
+		reset_context_stack(request);
+	request->req_context_number++;
+	select = node->nod_arg[e_view_select];
+	select_expr = select->nod_arg[0];
+	rse = PASS1_rse(request, select_expr, select->nod_arg[1]);
+
+/* store the blr and source string for the view definition */
+
+	begin_blr(request, gds_dyn_view_blr);
+	GEN_expr(request, rse);
+	end_blr(request);
+
+/* Store source for view. gdef -e cannot cope with it.
+   We need to add something to rdb$views to indicate source type.
+   Source will be for documentation purposes. */
+
+	source = (STR) node->nod_arg[e_view_source];
+	assert(source->str_length <= MAX_USHORT);
+	put_string(request, gds_dyn_view_source, source->str_data,
+			   (USHORT) source->str_length);
+
+/* define the view source relations from the request contexts */
+
+	for (temp = request->req_context; temp; temp = temp->lls_next) {
+		context = (CTX) temp->lls_object;
+		if (relation = context->ctx_relation) {
+			put_cstring(request, gds_dyn_view_relation, relation->rel_name);
+			put_number(request, gds_dyn_view_context, context->ctx_context);
+			put_cstring(request, gds_dyn_view_context_name,
+						context->ctx_alias ? context->ctx_alias : relation->
+						rel_name);
+			STUFF(gds_dyn_end);
+		}
+	}
+
+/* if there are field names defined for the view, match them in order
+   with the items from the SELECT.  Otherwise use all the fields from
+   the rse node that was created from the select expression */
+
+	items = rse->nod_arg[e_rse_items];
+	i_ptr = items->nod_arg;
+	i_end = i_ptr + items->nod_count;
+
+	ptr = end = NULL;
+	if ((view_fields = node->nod_arg[e_view_fields]) != NULL) {
+		ptr = view_fields->nod_arg;
+		end = ptr + view_fields->nod_count;
+	}
+
+/* go through the fields list, defining the local fields;
+   if an expression is specified rather than a field, define
+   a global field for the computed value as well */
+
+	for (position = 0; i_ptr < i_end; i_ptr++, position++) {
+		field_node = *i_ptr;
+
+		/* check if this is a field or an expression */
+
+		field = NULL;
+		context = NULL;
+		if (field_node->nod_type == nod_field) {
+			field = (FLD) field_node->nod_arg[e_fld_field];
+			context = (CTX) field_node->nod_arg[e_fld_context];
+		}
+		else
+			updatable = FALSE;
+
+		/* if this is an expression, check to make sure there is a name specified */
+
+		if (!ptr && !field)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds__dsql_command_err,
+					  gds_arg_gds, gds__specify_field_err,
+					  /* must specify field name for view select expression */
+					  0);
+
+		/* determine the proper field name, replacing the default if necessary */
+
+		if (field)
+			field_string = field->fld_name;
+		if (ptr && ptr < end) {
+			field_name = (STR) (*ptr)->nod_arg[1];
+			field_string = (TEXT *) field_name->str_data;
+			ptr++;
+		}
+
+		/* if not an expression, point to the proper base relation field,
+		   else make up an SQL field with generated global field for calculations */
+
+		if (field) {
+			put_cstring(request, gds_dyn_def_local_fld, field_string);
+			put_cstring(request, gds_dyn_fld_base_fld, field->fld_name);
+			put_number(request, gds_dyn_view_context, context->ctx_context);
+		}
+		else {
+			put_cstring(request, gds_dyn_def_sql_fld, field_string);
+			MAKE_desc(&field_node->nod_desc, field_node);
+			put_descriptor(request, &field_node->nod_desc);
+			begin_blr(request, gds_dyn_fld_computed_blr);
+			GEN_expr(request, field_node);
+			end_blr(request);
+			put_number(request, gds_dyn_view_context, (SSHORT) 0);
+		}
+
+		save_field(request, field_string);
+
+		put_number(request, gds_dyn_fld_position, position);
+		STUFF(gds_dyn_end);
+	}
+
+	if (ptr != end)
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+				  gds_arg_gds, gds__dsql_command_err,
+				  gds_arg_gds, gds__num_field_err,
+				  /* number of fields does not match select list */
+				  0);
+
+/* setup to define triggers for WITH CHECK OPTION */
+
+	if ((check = node->nod_arg[e_view_check]) != NULL) {
+		if (!updatable)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds__dsql_command_err,
+					  gds_arg_gds, gds__col_name_err,
+					  /* Only simple column names permitted for VIEW WITH CHECK OPTION */
+					  0);
+
+		if (select_expr->nod_count != 1)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds__dsql_command_err,
+					  gds_arg_gds, gds__table_view_err,
+					  /* Only one table allowed for VIEW WITH CHECK OPTION */
+					  0);
+		/* 
+		   Handle VIEWS with UNION : nod_select now points to nod_list
+		   which in turn points to nod_select_expr
+		 */
+		else if (select_expr->nod_arg[0]->nod_arg[e_sel_from]->nod_count != 1)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds__dsql_command_err,
+					  gds_arg_gds, gds__table_view_err,
+					  /* Only one table allowed for VIEW WITH CHECK OPTION */
+					  0);
+
+		/* 
+		   Handle VIEWS with UNION : nod_select now points to nod_list
+		   which in turn points to nod_select_expr
+		 */
+		select_expr = select_expr->nod_arg[0];
+		if (!(select_expr->nod_arg[e_sel_where]))
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds__dsql_command_err,
+					  gds_arg_gds, gds__where_err,
+					  /* No where clause for VIEW WITH CHECK OPTION */
+					  0);
+
+
+		if (select_expr->nod_arg[e_sel_distinct] ||
+			select_expr->nod_arg[e_sel_group] ||
+			select_expr->nod_arg[e_sel_having])
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+						  gds_arg_gds, gds__dsql_command_err,
+						  gds_arg_gds, gds__distinct_err,
+						  /* DISTINCT, GROUP or HAVING not permitted for VIEW WITH CHECK OPTION */
+						  0);
+
+		relation_node = MAKE_node(nod_relation_name, e_rln_count);
+		relation_node->nod_arg[e_rln_name] = (NOD) view_name;
+		check->nod_arg[e_cnstr_table] = relation_node;
+
+		check->nod_arg[e_cnstr_source] = (NOD) source;
+
+		/* the condition for the trigger is the converse of the selection 
+		   criteria for the view, suitably fixed up so that the fields in 
+		   the view are referenced */
+
+		check->nod_arg[e_cnstr_condition] = select_expr->nod_arg[e_sel_where];
+
+		/* Define the triggers   */
+
+		create_view_triggers(request, check, rse->nod_arg[e_rse_items]);
+	}
+
+	STUFF(gds_dyn_end);
+	reset_context_stack(request);
+}
+
+
+static void define_view_trigger( REQ request, NOD node, NOD rse, NOD items)
+{								/* The fields in VIEW actually  */
+/**************************************
+ *
+ *	d e f i n e _ v i e w _ t r i g g e r
+ *
+ **************************************
+ *
+ * Function
+ *	Create the ddl to define a trigger for a VIEW WITH CHECK OPTION.
+ *
+ **************************************/
+	STR trigger_name, relation_name, message;
+	NOD temp_rse, temp, ddl_node, actions, *ptr, *end, constant;
+	NOD relation_node;
+	USHORT trig_type;
+	NOD action_node, condition, select, select_expr, view_fields;
+	CTX context, sav_context = 0;
+	LLS stack;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	ddl_node = request->req_ddl_node;
+
+	select = ddl_node->nod_arg[e_view_select];
+/* 
+   Handle VIEWS with UNION : nod_select now points to nod_list
+   which in turn points to nod_select_expr
+*/
+	select_expr = select->nod_arg[0]->nod_arg[0];
+	view_fields = ddl_node->nod_arg[e_view_fields];
+
+/* make the "define trigger" node the current request ddl node so
+   that generating of BLR will be appropriate for trigger */
+
+	request->req_ddl_node = node;
+
+	trigger_name = (STR) node->nod_arg[e_cnstr_name];
+
+	if (node->nod_type == nod_def_constraint) {
+		assert(trigger_name->str_length <= MAX_USHORT);
+		put_string(request, gds_dyn_def_trigger, trigger_name->str_data,
+				   (USHORT) trigger_name->str_length);
+		relation_node = node->nod_arg[e_cnstr_table];
+		relation_name = (STR) relation_node->nod_arg[e_rln_name];
+		assert(relation_name->str_length <= MAX_USHORT);
+		put_string(request, gds_dyn_rel_name, relation_name->str_data,
+				   (USHORT) relation_name->str_length);
+	}
+	else
+		return;
+
+	if ((constant = node->nod_arg[e_cnstr_position]) != NULL)
+		put_number(request, gds_dyn_trg_sequence,
+				   (SSHORT) (constant ? constant->nod_arg[0] : 0));
+
+	if ((constant = node->nod_arg[e_cnstr_type]) != NULL) {
+		trig_type = (USHORT) constant->nod_arg[0];
+		put_number(request, gds_dyn_trg_type, trig_type);
+	}
+	else {
+		/* If we don't have a trigger type assigned, then this is just a template
+		   definition for use with domains.  The real triggers are defined when
+		   the domain is used. */
+		trig_type = 0;
+	}
+
+	STUFF(gds_dyn_sql_object);
+
+	if ((message = (STR) node->nod_arg[e_cnstr_message]) != NULL) {
+		put_number(request, gds_dyn_def_trigger_msg, 0);
+		assert(message->str_length <= MAX_USHORT);
+		put_string(request, gds_dyn_trg_msg, message->str_data,
+				   (USHORT) message->str_length);
+		STUFF(gds_dyn_end);
+	}
+
+/* generate the trigger blr */
+
+	if (node->nod_arg[e_cnstr_condition] && node->nod_arg[e_cnstr_actions]) {
+		begin_blr(request, gds_dyn_trg_blr);
+		STUFF(blr_begin);
+
+		/* create the "OLD" and "NEW" contexts for the trigger --
+		   the new one could be a dummy place holder to avoid resolving
+		   fields to that context but prevent relations referenced in
+		   the trigger actions from referencing the predefined "1" context */
+
+		if (request->req_context_number) {
+			/* If an alias is specified for the single base table involved,
+			   save and then add the context                               */
+
+			stack = request->req_context;
+			context = (CTX) stack->lls_object;
+			if (context->ctx_alias) {
+				sav_context = (CTX) ALLOCD(type_ctx);
+				*sav_context = *context;
+			}
+		}
+		reset_context_stack(request);
+		temp = relation_node->nod_arg[e_rln_alias];
+		relation_node->nod_arg[e_rln_alias] = (NOD) MAKE_cstring(OLD_CONTEXT);
+		PASS1_make_context(request, relation_node);
+		relation_node->nod_arg[e_rln_alias] = (NOD) MAKE_cstring(NEW_CONTEXT);
+		PASS1_make_context(request, relation_node);
+		relation_node->nod_arg[e_rln_alias] = temp;
+
+		if (sav_context) {
+			sav_context->ctx_context = request->req_context_number++;
+			context->ctx_scope_level = request->req_scope_level;
+			LLS_PUSH(sav_context, &request->req_context);
+		}
+
+		if (trig_type == PRE_MODIFY_TRIGGER) {
+			STUFF(blr_for);
+			temp = rse->nod_arg[e_rse_streams];
+			temp->nod_arg[0] = PASS1_node(request, temp->nod_arg[0], 0);
+			temp = rse->nod_arg[e_rse_boolean];
+			rse->nod_arg[e_rse_boolean] = PASS1_node(request, temp, 0);
+			GEN_expr(request, rse);
+
+			condition = MAKE_node(nod_not, 1);
+			condition->nod_arg[0] =
+				replace_field_names(select_expr->nod_arg[e_sel_where], items,
+									view_fields, FALSE);
+			STUFF(blr_begin);
+			STUFF(blr_if);
+			GEN_expr(request, PASS1_node(request, condition->nod_arg[0], 0));
+			STUFF(blr_begin);
+			STUFF(blr_end);
+		}
+
+		if (trig_type == PRE_STORE_TRIGGER) {
+			condition = MAKE_node(nod_not, 1);
+			condition->nod_arg[0] =
+				replace_field_names(select_expr->nod_arg[e_sel_where], items,
+									view_fields, TRUE);
+			STUFF(blr_if);
+			GEN_expr(request, PASS1_node(request, condition->nod_arg[0], 0));
+			STUFF(blr_begin);
+			STUFF(blr_end);
+		}
+
+		/* generate the action statements for the trigger */
+
+		actions = node->nod_arg[e_cnstr_actions];
+		for (ptr = actions->nod_arg, end = ptr + actions->nod_count;
+			 ptr < end; ptr++)
+			GEN_statement(request, PASS1_statement(request, *ptr, 0));
+
+		/* generate the action statements for the trigger */
+
+		if ((actions = node->nod_arg[e_cnstr_else]) != NULL) {
+			STUFF(blr_begin);
+			for (ptr = actions->nod_arg, end = ptr + actions->nod_count;
+				 ptr < end; ptr++) {
+				action_node = PASS1_statement(request, *ptr, 0);
+				if (action_node->nod_type == nod_modify) {
+					temp_rse = action_node->nod_arg[e_mod_rse];
+					temp_rse->nod_arg[e_rse_first] =
+						MAKE_constant((STR) 1, 1);
+				}
+				GEN_statement(request, action_node);
+			}
+			STUFF(blr_end);		/* of begin */
+		}
+
+		STUFF(blr_end);			/* of if */
+		if (trig_type == PRE_MODIFY_TRIGGER)
+			STUFF(blr_end);		/* of for  */
+		end_blr(request);
+	}
+
+	STUFF(gds_dyn_end);
+
+/* the request type may have been set incorrectly when parsing
+   the trigger actions, so reset it to reflect the fact that this
+   is a data definition request; also reset the ddl node */
+
+	request->req_type = REQ_DDL;
+	request->req_ddl_node = ddl_node;
+	reset_context_stack(request);
+}
+
+
+static void end_blr( REQ request)
+{
+/**************************************
+ *
+ *	e n d _ b l r
+ *
+ **************************************
+ *
+ * Function
+ *	Complete the stuffing of a piece of
+ *	blr by going back and inserting the length.
+ *
+ **************************************/
+	UCHAR *blr_base;
+	USHORT length;
+
+	STUFF(blr_eoc);
+
+/* go back and stuff in the proper length */
+
+	blr_base = request->req_blr_string->str_data + request->req_base_offset;
+	length = (SSHORT) (request->req_blr - blr_base) - 2;
+	*blr_base++ = (UCHAR) length;
+	*blr_base = (UCHAR) (length >> 8);
+}
+
+
+static void foreign_key( REQ request, NOD element)
+{
+/* *************************************
+ *
+ *	f o r e i g n _ k e y
+ *
+ **************************************
+ *
+ * Function
+ *	Generate ddl to create a foreign key
+ *	constraint.
+ *
+ **************************************/
+	NOD relation2_node;
+	NOD columns1, columns2;
+	STR relation2;
+
+	columns1 = element->nod_arg[e_for_columns];
+
+	relation2_node = element->nod_arg[e_for_reftable];
+	relation2 = (STR) relation2_node->nod_arg[e_rln_name];
+
+/* If there is a referenced table name but no referenced field names, the
+   primary key of the referenced table designates the referenced fields. */
+	if (!(columns2 = element->nod_arg[e_for_refcolumns])) {
+		element->nod_arg[e_for_refcolumns] =
+			columns2 = METD_get_primary_key(request, relation2);
+
+		/* If there is NEITHER an explicitly referenced field name, NOR does
+		   the referenced table have a primary key to serve as the implicitly
+		   referenced field, fail. */
+		if (!columns2)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds__dsql_command_err,
+					  gds_arg_gds, gds__reftable_requires_pk,
+					  /* "REFERENCES table" without "(column)" requires PRIMARY
+					     KEY on referenced table */
+					  0);
+	}
+
+	if (columns2 && (columns1->nod_count != columns2->nod_count))
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+				  gds_arg_gds, gds__dsql_command_err,
+				  gds_arg_gds, gds__key_field_count_err,
+				  /* foreign key field count does not match primary key */
+				  0);
+
+/* define the foreign key index and the triggers that may be needed
+   for referential integrity action. */
+
+	make_index_trg_ref_int(request, element, columns1,
+						   element->nod_arg[e_for_refcolumns],
+						   reinterpret_cast<char*>(relation2->str_data));
+}
+
+
+static void generate_dyn( REQ request, NOD node)
+{
+/**************************************
+ *
+ *	g e n e r a t e _ d y n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Switch off the type of node to generate a
+ *	DYN string.
+ *
+ **************************************/
+	STR string;
+
+	request->req_ddl_node = node;
+
+	switch (node->nod_type) {
+	case nod_def_domain:
+		define_domain(request);
+		break;
+
+	case nod_mod_domain:
+		modify_domain(request);
+		break;
+
+	case nod_def_index:
+		define_index(request);
+		break;
+
+	case nod_def_relation:
+		define_relation(request);
+		break;
+
+	case nod_def_view:
+		define_view(request);
+		break;
+
+	case nod_def_exception:
+	case nod_mod_exception:
+	case nod_del_exception:
+		define_exception(request, node->nod_type);
+		break;
+
+	case nod_def_procedure:
+	case nod_mod_procedure:
+		define_procedure(request, node->nod_type);
+		break;
+
+	case nod_def_constraint:
+		define_constraint_trigger(request, node);
+		break;
+
+	case nod_def_trigger:
+	case nod_mod_trigger:
+		define_trigger(request, node);
+		break;
+
+	case nod_mod_relation:
+		modify_relation(request);
+		break;
+
+	case nod_del_domain:
+		string = (STR) node->nod_arg[0];
+		put_cstring(request, gds_dyn_delete_global_fld,
+					reinterpret_cast<char*>(string->str_data));
+		STUFF(gds_dyn_end);
+		break;
+
+	case nod_del_index:
+		string = (STR) node->nod_arg[0];
+		put_cstring(request, gds_dyn_delete_idx,
+					reinterpret_cast<char*>(string->str_data));
+		STUFF(gds_dyn_end);
+		break;
+
+	case nod_del_relation:
+		string = (STR) node->nod_arg[0];
+		put_cstring(request, gds_dyn_delete_rel,
+					reinterpret_cast<char*>(string->str_data));
+		STUFF(gds_dyn_end);
+		break;
+
+	case nod_del_procedure:
+		string = (STR) node->nod_arg[0];
+		put_cstring(request, gds_dyn_delete_procedure,
+					reinterpret_cast<char*>(string->str_data));
+		STUFF(gds_dyn_end);
+		break;
+
+	case nod_del_trigger:
+		string = (STR) node->nod_arg[0];
+		put_cstring(request, gds_dyn_delete_trigger,
+					reinterpret_cast<char*>(string->str_data));
+		STUFF(gds_dyn_end);
+		break;
+
+	case nod_del_role:
+		string = (STR) node->nod_arg[0];
+		put_cstring(request, isc_dyn_del_sql_role,
+					reinterpret_cast<char*>(string->str_data));
+		STUFF(gds_dyn_end);
+		break;
+
+	case nod_grant:
+	case nod_revoke:
+		grant_revoke(request);
+		break;
+
+	case nod_def_generator:
+		define_generator(request);
+		break;
+
+	case nod_def_role:
+		define_role(request);
+		break;
+
+	case nod_def_filter:
+		define_filter(request);
+		break;
+
+	case nod_del_generator:
+		string = (STR) node->nod_arg[0];
+	/**********FIX -- nothing like delete_generator exists as yet
+	put_cstring (request, gds_dyn_def_generator, string->str_data);
+	STUFF (gds_dyn_end); */
+		break;
+
+	case nod_del_filter:
+		string = (STR) node->nod_arg[0];
+		put_cstring(request, gds_dyn_delete_filter,
+					reinterpret_cast<char*>(string->str_data));
+		STUFF(gds_dyn_end);
+		break;
+
+	case nod_def_udf:
+		define_udf(request);
+		break;
+
+	case nod_del_udf:
+		string = (STR) node->nod_arg[0];
+		put_cstring(request, gds_dyn_delete_function,
+					reinterpret_cast<char*>(string->str_data));
+		STUFF(gds_dyn_end);
+		break;
+
+	case nod_def_shadow:
+		define_shadow(request);
+		break;
+
+	case nod_del_shadow:
+		put_number(request, gds_dyn_delete_shadow,
+				   (SSHORT) (node->nod_arg[0]));
+		STUFF(gds_dyn_end);
+		break;
+
+	case nod_mod_database:
+		modify_database(request);
+		break;
+
+	case nod_def_database:
+		define_database(request);
+		break;
+
+	case nod_mod_index:
+		modify_index(request);
+		break;
+
+	case nod_set_statistics:
+		set_statistics(request);
+		break;
+
+	default:
+		break;
+	}
+}
+
+
+static void grant_revoke( REQ request)
+{
+/**************************************
+ *
+ *	g r a n t _ r e v o k e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build DYN string for GRANT/REVOKE statements
+ *
+ **************************************/
+	NOD ddl_node, privs, table;
+	NOD users, *uptr, *uend;
+	SSHORT option;
+	NOD role_list, *role_ptr, *role_end;
+	BOOLEAN process_grant_role = FALSE;
+
+	option = FALSE;
+	ddl_node = request->req_ddl_node;
+
+	privs = ddl_node->nod_arg[e_grant_privs];
+
+	if (privs->nod_arg[0] != NULL) {
+		if (privs->nod_arg[0]->nod_type == nod_role_name)
+			process_grant_role = TRUE;
+	}
+
+	if (!process_grant_role)
+	{
+		table = ddl_node->nod_arg[e_grant_table];
+		users = ddl_node->nod_arg[e_grant_users];
+		if (ddl_node->nod_arg[e_grant_grant]) {
+			option = TRUE;
+		}
+
+		STUFF(gds_dyn_begin);
+
+		for (uptr = users->nod_arg, uend = uptr + users->nod_count;
+			 uptr < uend;
+			 uptr++)
+		{
+			modify_privileges(	request,
+								ddl_node->nod_type,
+								option,
+								privs,
+								table,
+								*uptr);
+		}
+	}
+	else
+	{
+		role_list = ddl_node->nod_arg[0];
+		users = ddl_node->nod_arg[1];
+		if (ddl_node->nod_arg[3])
+			option = 2;
+		STUFF(isc_dyn_begin);
+
+		for (role_ptr = role_list->nod_arg,
+			 role_end = role_ptr + role_list->nod_count;
+			 role_ptr < role_end; role_ptr++) {
+			for (uptr = users->nod_arg, uend = uptr + users->nod_count;
+				 uptr < uend; uptr++) {
+				process_role_nm_list(request, option, *uptr, *role_ptr,
+									 ddl_node->nod_type);
+			}
+		}
+	}
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void make_index(
+					   REQ request,
+					   NOD element,
+					   NOD columns,
+					   NOD referenced_columns, TEXT * relation_name)
+{
+/* *************************************
+ *
+ *	m a k e _ i n d e x
+ *
+ **************************************
+ *
+ * Function
+ *	Generate ddl to create an index for a unique 
+ *	or primary key constraint. 
+ *      This is not called for a foreign key constraint.
+ *      The func. make_index_trf_ref_int handles foreign key constraint
+ *
+ **************************************/
+	NOD *ptr, *end;
+	STR field_name;
+
+/* stuff a zero-length name, indicating that an index
+   name should be generated */
+
+	assert(element->nod_type != nod_foreign)
+
+		if (element->nod_type == nod_primary)
+		STUFF(gds_dyn_def_primary_key);
+	else if (element->nod_type == nod_unique)
+		STUFF(gds_dyn_def_unique);
+	STUFF_WORD(0);
+
+	put_number(request, gds_dyn_idx_unique, 1);
+
+	for (ptr = columns->nod_arg, end = ptr + columns->nod_count; ptr < end;
+		 ptr++) {
+		field_name = (STR) (*ptr)->nod_arg[1];
+		put_cstring(request, gds_dyn_fld_name,
+					reinterpret_cast<char*>(field_name->str_data));
+	}
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void make_index_trg_ref_int(
+								   REQ request,
+								   NOD element,
+								   NOD columns,
+								   NOD referenced_columns,
+								   TEXT * relation_name)
+{
+/******************************************************
+ *
+ *	m a k e _ i n d e x _ t r g _ r e f _ i n t
+ *
+ ******************************************************
+ *
+ * Function
+ *      This is called only when the element->nod_type == nod_foreign_key
+ *      
+ *     o Generate ddl to create an index for a unique
+ *       or primary key constraint.
+ *     o Also make an index for the foreign key constraint
+ *     o in the caase of foreign key, also generate an appropriate trigger for
+ *       cascading referential integrity.
+ *
+ *
+ *****************************************************/
+	NOD *ptr, *end;
+	STR field_name;
+	NOD for_rel_node, ddl_node;
+	STR for_rel_name_str;
+	NOD nod_for_action, nod_ref_upd_action, nod_ref_del_action;
+
+	assert(element->nod_type == nod_foreign)
+
+/* for_rel_name_str is the name of the relation on which the ddl operation
+   is being done, in this case the foreign key table  */
+		ddl_node = request->req_ddl_node;
+	for_rel_node = ddl_node->nod_arg[e_drl_name];
+	for_rel_name_str = (STR) for_rel_node->nod_arg[e_rln_name];
+
+
+/* stuff a zero-length name, indicating that an index
+   name should be generated */
+
+	STUFF(gds_dyn_def_foreign_key);
+	STUFF_WORD(0);
+
+
+	if (element->nod_arg[e_for_action]) {
+		nod_for_action = element->nod_arg[e_for_action];
+		assert(nod_for_action->nod_type == nod_ref_upd_del);
+
+		nod_ref_upd_action = nod_for_action->nod_arg[e_ref_upd];
+		if (nod_ref_upd_action) {
+			assert(nod_ref_upd_action->nod_type == nod_ref_trig_action);
+
+			STUFF(gds_dyn_foreign_key_update);
+			switch (nod_ref_upd_action->nod_flags) {
+			case REF_ACTION_CASCADE:
+				STUFF(gds_dyn_foreign_key_cascade);
+				define_upd_cascade_trg(request, element, columns,
+									   referenced_columns, relation_name,
+									   reinterpret_cast <
+									   char *>(for_rel_name_str->str_data));
+				break;
+			case REF_ACTION_SET_DEFAULT:
+				STUFF(gds_dyn_foreign_key_default);
+				define_set_default_trg(request, element, columns,
+									   referenced_columns, relation_name,
+									   reinterpret_cast <
+									   char *>(for_rel_name_str->str_data),
+									   TRUE);
+				break;
+			case REF_ACTION_SET_NULL:
+				STUFF(gds_dyn_foreign_key_null);
+				define_set_null_trg(request, element, columns,
+									referenced_columns, relation_name,
+									reinterpret_cast <
+									char *>(for_rel_name_str->str_data),
+									TRUE);
+				break;
+			case REF_ACTION_NONE:
+				STUFF(gds_dyn_foreign_key_none);
+				break;
+			default:
+				assert(0);
+				STUFF(gds_dyn_foreign_key_none);	/* just in case */
+				break;
+			}
+		}
+
+		nod_ref_del_action = nod_for_action->nod_arg[e_ref_del];
+		if (nod_ref_del_action) {
+			assert(nod_ref_del_action->nod_type == nod_ref_trig_action);
+
+			STUFF(gds_dyn_foreign_key_delete);
+			switch (nod_ref_del_action->nod_flags) {
+			case REF_ACTION_CASCADE:
+				STUFF(gds_dyn_foreign_key_cascade);
+				define_del_cascade_trg(request, element, columns,
+									   referenced_columns, relation_name,
+									   reinterpret_cast <
+									   char *>(for_rel_name_str->str_data));
+				break;
+			case REF_ACTION_SET_DEFAULT:
+				STUFF(gds_dyn_foreign_key_default);
+				define_set_default_trg(request, element, columns,
+									   referenced_columns, relation_name,
+									   reinterpret_cast <
+									   char *>(for_rel_name_str->str_data),
+									   FALSE);
+				break;
+			case REF_ACTION_SET_NULL:
+				STUFF(gds_dyn_foreign_key_null);
+				define_set_null_trg(request, element, columns,
+									referenced_columns, relation_name,
+									reinterpret_cast <
+									char *>(for_rel_name_str->str_data),
+									FALSE);
+				break;
+			case REF_ACTION_NONE:
+				STUFF(gds_dyn_foreign_key_none);
+				break;
+			default:
+				assert(0);
+				STUFF(gds_dyn_foreign_key_none);	/* just in case */
+				break;
+				/* Error */
+			}
+		}
+	}
+
+
+	for (ptr = columns->nod_arg, end = ptr + columns->nod_count; ptr < end;
+		 ptr++) {
+		field_name = (STR) (*ptr)->nod_arg[1];
+		put_cstring(request, gds_dyn_fld_name,
+					reinterpret_cast<char*>(field_name->str_data));
+	}
+
+	put_cstring(request, gds_dyn_idx_foreign_key, relation_name);
+	if (referenced_columns)
+		for (ptr = referenced_columns->nod_arg, end =
+			 ptr + referenced_columns->nod_count; ptr < end; ptr++) {
+			field_name = (STR) (*ptr)->nod_arg[1];
+			put_cstring(request, gds_dyn_idx_ref_column,
+						reinterpret_cast<char*>(field_name->str_data));
+		}
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void modify_database( REQ request)
+{
+/**************************************
+ *
+ *	m o d i f y _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Function
+ *	Modify a database. 
+ *
+ **************************************/
+	NOD ddl_node, elements, element, *ptr, *end;
+	SLONG start = 0;
+	FIL file;
+	SSHORT number = 0;
+	SLONG temp_long;
+	SSHORT temp_short;
+	SSHORT drop_log = FALSE;
+	SSHORT drop_cache = FALSE;
+
+	ddl_node = request->req_ddl_node;
+
+	STUFF(gds_dyn_mod_database);
+/*
+put_number (request, gds_dyn_rel_sql_protection, 1);
+*/
+	elements = ddl_node->nod_arg[e_adb_all];
+	for (ptr = elements->nod_arg, end = ptr + elements->nod_count;
+		 ptr < end; ptr++) {
+		element = *ptr;
+		switch (element->nod_type) {
+		case nod_drop_log:
+			drop_log = TRUE;
+			break;
+		case nod_drop_cache:
+			drop_cache = TRUE;
+			break;
+
+		default:
+			break;
+		}
+	}
+
+	if (drop_log)
+		STUFF(gds_dyn_drop_log);
+	if (drop_cache)
+		STUFF(gds_dyn_drop_cache);
+
+	elements = ddl_node->nod_arg[e_adb_all];
+	for (ptr = elements->nod_arg, end = ptr + elements->nod_count;
+		 ptr < end; ptr++) {
+		element = *ptr;
+
+		switch (element->nod_type) {
+		case nod_file_desc:
+			file = (FIL) element->nod_arg[0];
+			put_cstring(request, gds_dyn_def_file,
+						reinterpret_cast<char*>(file->fil_name->str_data));
+			STUFF(gds_dyn_file_start);
+			STUFF_WORD(4);
+			start = MAX(start, file->fil_start);
+
+			STUFF_DWORD(start);
+
+			STUFF(gds_dyn_file_length);
+			STUFF_WORD(4);
+			STUFF_DWORD(file->fil_length);
+			STUFF(gds_dyn_end);
+			start += file->fil_length;
+			break;
+
+		case nod_log_file_desc:
+			file = (FIL) element->nod_arg[0];
+
+			if (file->fil_flags & LOG_default) {
+				STUFF(gds_dyn_def_default_log);
+				break;
+			}
+			put_cstring(request, gds_dyn_def_log_file,
+						reinterpret_cast<char*>(file->fil_name->str_data));
+			STUFF(gds_dyn_file_length);
+			STUFF_WORD(4);
+			STUFF_DWORD(file->fil_length);
+			STUFF(gds_dyn_log_file_sequence);
+			STUFF_WORD(2);
+			STUFF_WORD(number);
+			number++;
+			STUFF(gds_dyn_log_file_partitions);
+			STUFF_WORD(2);
+			STUFF_WORD(file->fil_partitions);
+			if (file->fil_flags & LOG_serial)
+				STUFF(gds_dyn_log_file_serial);
+			if (file->fil_flags & LOG_overflow)
+				STUFF(gds_dyn_log_file_overflow);
+			if (file->fil_flags & LOG_raw)
+				STUFF(gds_dyn_log_file_raw);
+			STUFF(gds_dyn_end);
+			break;
+
+		case nod_cache_file_desc:
+			file = (FIL) element->nod_arg[0];
+			put_cstring(request, gds_dyn_def_cache_file,
+						reinterpret_cast<char*>(file->fil_name->str_data));
+			STUFF(gds_dyn_file_length);
+			STUFF_WORD(4);
+			STUFF_DWORD(file->fil_length);
+			STUFF(gds_dyn_end);
+			break;
+
+		case nod_group_commit_wait:
+			STUFF(gds_dyn_log_group_commit_wait);
+			temp_long = (SLONG) (element->nod_arg[0]);
+			STUFF_WORD(4);
+			STUFF_DWORD(temp_long);
+			break;
+
+		case nod_check_point_len:
+			STUFF(gds_dyn_log_check_point_length);
+			temp_long = (SLONG) (element->nod_arg[0]);
+			STUFF_WORD(4);
+			STUFF_DWORD(temp_long);
+			break;
+
+		case nod_num_log_buffers:
+			STUFF(gds_dyn_log_num_of_buffers);
+			temp_short = (SSHORT) (element->nod_arg[0]);
+			STUFF_WORD(2);
+			STUFF_WORD(temp_short);
+			break;
+
+		case nod_log_buffer_size:
+			STUFF(gds_dyn_log_buffer_size);
+			temp_short = (SSHORT) (element->nod_arg[0]);
+			STUFF_WORD(2);
+			STUFF_WORD(temp_short);
+			break;
+		case nod_drop_log:
+		case nod_drop_cache:
+			break;
+
+		default:
+			break;
+		}
+	}
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void modify_domain( REQ request)
+{
+/**************************************
+ *
+ *	m o d i f y _ d o m a i n 
+ *
+ **************************************
+ *
+ * Function
+ *	Alter an SQL domain.
+ *
+ **************************************/
+	NOD ddl_node, domain_node, ops, element, *ptr, *end;
+	STR string, domain_name;
+	FLD field;
+	struct fld local_field;
+
+	ddl_node = request->req_ddl_node;
+
+	domain_node = ddl_node->nod_arg[e_alt_dom_name];
+	domain_name = (STR) domain_node->nod_arg[e_fln_name];
+
+	put_cstring(request, gds_dyn_mod_global_fld,
+				reinterpret_cast<char*>(domain_name->str_data));
+
+	ops = ddl_node->nod_arg[e_alt_dom_ops];
+	for (ptr = ops->nod_arg, end = ptr + ops->nod_count; ptr < end; ptr++)
+	{
+		element = *ptr;
+		switch (element->nod_type)
+		{
+		case nod_def_default:
+			/* CVC: So do you want to crash me with ALTER DOMAIN dom SET; ??? */
+			if (!element->nod_arg[e_dft_default])
+			{
+				ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104,
+				gds_arg_gds, gds__command_end_err,    /* Unexpected end of command */
+				0);
+			}
+			/* CVC End modification. */
+			element->nod_arg[e_dft_default] =
+				PASS1_node(request, element->nod_arg[e_dft_default], 0);
+			begin_blr(request, gds_dyn_fld_default_value);
+			GEN_expr(request, element->nod_arg[e_dft_default]);
+			end_blr(request);
+			if ((string = (STR) element->nod_arg[e_dft_default_source]) !=
+				NULL) {
+				assert(string->str_length <= MAX_USHORT);
+				put_string(request, gds_dyn_fld_default_source,
+						   string->str_data, (USHORT) string->str_length);
+			}
+			break;
+
+		case nod_def_constraint:
+			STUFF(gds_dyn_single_validation);
+			begin_blr(request, gds_dyn_fld_validation_blr);
+
+			/* Get the attributes of the domain, and set any occurances of
+			   nod_dom_value (corresponding to the keyword VALUE) to the
+			   correct type, length, scale, etc. */
+			if (!METD_get_domain(request, &local_field,
+								 domain_name->str_data))
+					ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+							  gds_arg_gds, gds__dsql_command_err,
+							  gds_arg_gds, gds__dsql_domain_not_found,
+							  /* Specified domain or source field does not exist */
+							  0);
+			if (element->nod_arg[e_cnstr_condition])
+				set_nod_value_attributes(element->nod_arg[e_cnstr_condition],
+										 &local_field);
+
+			/* Increment the context level for this request, so that
+			   the context number for any RSE generated for a SELECT
+			   within the CHECK clause will be greater than 0.  In the
+			   environment of a domain check constraint, context
+			   number 0 is reserved for the "blr_fid, 0, 0,0," which
+			   is emitted for a nod_dom_value, corresponding to an
+			   occurance of the VALUE keyword in the body of the check
+			   constraint.  -- chrisj 1999-08-20 */
+
+			request->req_context_number++;
+
+			GEN_expr(request,
+					 PASS1_node(request, element->nod_arg[e_cnstr_condition],
+								0));
+
+			end_blr(request);
+			if ((string = (STR) element->nod_arg[e_cnstr_source]) != NULL) {
+				assert(string->str_length <= MAX_USHORT);
+				put_string(request, gds_dyn_fld_validation_source,
+						   string->str_data, (USHORT) string->str_length);
+			}
+			break;
+
+		case nod_mod_domain_type:
+			field = (FLD) element->nod_arg[e_mod_dom_new_dom_type];
+			DDL_resolve_intl_type(request, field, NULL);
+			put_field(request, field, FALSE);
+			break;
+
+		case nod_field_name:
+			{
+				STR new_dom_name;
+
+				new_dom_name = (STR) element->nod_arg[e_fln_name];
+				put_cstring(request, gds_dyn_fld_name,
+							reinterpret_cast <
+							char *>(new_dom_name->str_data));
+				break;
+			}
+
+		case nod_delete_rel_constraint:
+			STUFF(gds_dyn_del_validation);
+			break;
+
+		case nod_del_default:
+			STUFF(gds_dyn_del_default);
+			break;
+
+		default:
+			break;
+		}
+	}
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void modify_index( REQ request)
+{
+/**************************************
+ *
+ *	m o d i f y _ i n d e x
+ *
+ **************************************
+ *
+ * Function
+ *	Alter an index (only active or inactive for now)
+ *
+ **************************************/
+	NOD ddl_node, index_node;
+	STR index_name;
+
+	ddl_node = request->req_ddl_node;
+
+	index_node = ddl_node->nod_arg[e_alt_index];
+	index_name = (STR) index_node->nod_arg[e_alt_idx_name];
+
+	put_cstring(request, gds_dyn_mod_idx,
+				reinterpret_cast<char*>(index_name->str_data));
+
+	if (index_node->nod_type == nod_idx_active)
+		put_number(request, gds_dyn_idx_inactive, 0);
+	else if (index_node->nod_type == nod_idx_inactive)
+		put_number(request, gds_dyn_idx_inactive, 1);
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void modify_privilege(
+							 REQ request,
+							 NOD_TYPE type,
+							 SSHORT option,
+							 UCHAR * privs,
+NOD table, NOD user, STR field_name)
+{
+/**************************************
+ *
+ *	m o d i f y _ p r i v i l e g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stuff a single grant/revoke verb and all its options.
+ *
+ **************************************/
+	SSHORT priv_count, i;
+	UCHAR *dynsave;
+	STR name;
+
+	if (type == nod_grant)
+		STUFF(gds_dyn_grant);
+	else
+		STUFF(gds_dyn_revoke);
+
+/* stuff the privileges string */
+
+	priv_count = 0;
+	STUFF_WORD(0);
+	for (; *privs; privs++) {
+		priv_count++;
+		STUFF(*privs);
+	}
+
+	dynsave = request->req_blr;
+	for (i = priv_count + 2; i; i--)
+		--dynsave;
+
+	*dynsave++ = (UCHAR) priv_count;
+	*dynsave = (UCHAR) (priv_count >> 8);
+
+	name = (STR) table->nod_arg[0];
+	if (table->nod_type == nod_procedure_name)
+		put_cstring(request, gds_dyn_prc_name,
+					reinterpret_cast<char*>(name->str_data));
+	else
+		put_cstring(request, gds_dyn_rel_name,
+					reinterpret_cast<char*>(name->str_data));
+	name = (STR) user->nod_arg[0];
+	switch (user->nod_type) {
+	case nod_user_group:		/* GRANT priv ON tbl TO GROUP unix_group */
+		put_cstring(request, isc_dyn_grant_user_group,
+					reinterpret_cast<char*>(name->str_data));
+		break;
+
+	case nod_user_name:
+		put_cstring(request, gds_dyn_grant_user,
+					reinterpret_cast<char*>(name->str_data));
+		break;
+
+	case nod_proc_obj:
+		put_cstring(request, gds_dyn_grant_proc,
+					reinterpret_cast<char*>(name->str_data));
+		break;
+
+	case nod_trig_obj:
+		put_cstring(request, gds_dyn_grant_trig,
+					reinterpret_cast<char*>(name->str_data));
+		break;
+
+	case nod_view_obj:
+		put_cstring(request, gds_dyn_grant_view,
+					reinterpret_cast<char*>(name->str_data));
+		break;
+
+	default:
+		break;
+	}
+
+	if (field_name) {
+		put_cstring(request,
+					gds_dyn_fld_name,
+					reinterpret_cast<char*>(field_name->str_data));
+	}
+
+	if ((option) &&
+		((type == nod_grant) ||
+		(!(request->req_dbb->dbb_flags & DBB_v3))))
+	{
+		put_number(request, gds_dyn_grant_options, option);
+	}
+
+	STUFF(gds_dyn_end);
+}
+
+
+
+static SCHAR modify_privileges(REQ		request,
+							   NOD_TYPE	type,
+							   SSHORT	option,
+							   NOD		privs,
+							   NOD		table,
+							   NOD		user)
+{
+/**************************************
+ *
+ *	m o d i f y _ p r i v i l e g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *     Return a SCHAR indicating the privilege to be modified
+ *
+ **************************************/
+	SCHAR privileges[10], *p;
+	NOD fields, *ptr, *end;
+
+	switch (privs->nod_type) {
+	case nod_all:
+		p = "A";
+		break;
+
+	case nod_select:
+		return 'S';
+
+	case nod_execute:
+		return 'X';
+
+	case nod_insert:
+		return 'I';
+
+	case nod_references:
+	case nod_update:
+		p = (privs->nod_type == nod_references) ? "R" : "U";
+		if (!(fields = privs->nod_arg[0]))
+			return *p;
+
+		for (ptr = fields->nod_arg, end = ptr + fields->nod_count; ptr < end;
+			 ptr++)
+			modify_privilege(request, type, option,
+							 reinterpret_cast < UCHAR * >(p), table, user,
+							 reinterpret_cast < str * >((*ptr)->nod_arg[1]));
+		return 0;
+
+	case nod_delete:
+		return 'D';
+
+	case nod_list:
+		p = privileges;
+		for (ptr = privs->nod_arg, end = ptr + privs->nod_count; ptr < end;
+			 ptr++)
+			if (*p =
+				modify_privileges(request, type, option, *ptr, table,
+								  user)) p++;
+		*p = 0;
+		p = privileges;
+		break;
+
+	default:
+		break;
+	}
+
+	if (*p) {
+		modify_privilege(	request,
+							type,
+							option,
+							reinterpret_cast<UCHAR*>(p),
+							table,
+							user,
+							0);
+	}
+
+	return 0;
+}
+
+
+static void modify_relation( REQ request)
+{
+/**************************************
+ *
+ *	m o d i f y _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Function
+ *	Alter an SQL table, relying on DYN to generate
+ *	global fields for the local fields. 
+ *
+ **************************************/
+	NOD ddl_node, ops, element, *ptr, *end, relation_node, field_node;
+	STR relation_name, field_name;
+	JMP_BUF *old_env, env;
+	TSQL tdsql;
+
+
+	tdsql = GET_THREAD_DATA;
+
+	ddl_node = request->req_ddl_node;
+
+	relation_node = ddl_node->nod_arg[e_alt_name];
+	relation_name = (STR) relation_node->nod_arg[e_rln_name];
+
+	put_cstring(request, gds_dyn_mod_rel,
+				reinterpret_cast<char*>(relation_name->str_data));
+	save_relation(request, relation_name);
+
+/* need to handle error that occur in generating dyn string.
+ * If there is an error, get rid of the cached data
+ */
+
+	old_env = tdsql->tsql_setjmp;
+	tdsql->tsql_setjmp = &env;
+
+	if (SETJMP(*tdsql->tsql_setjmp)) {
+		METD_drop_relation(request, relation_name);
+		request->req_relation = 0;
+		tdsql->tsql_setjmp = old_env;
+		LONGJMP(*tdsql->tsql_setjmp, (int) tdsql->tsql_status[1]);
+	}
+
+	ops = ddl_node->nod_arg[e_alt_ops];
+	for (ptr = ops->nod_arg, end = ptr + ops->nod_count; ptr < end; ptr++) {
+		element = *ptr;
+		switch (element->nod_type) {
+		case nod_mod_field_name:
+			{
+				NOD old_field, new_field;
+				STR old_field_name, new_field_name;
+
+				old_field = element->nod_arg[e_mod_fld_name_orig_name];
+				old_field_name = (STR) old_field->nod_arg[e_fln_name];
+				put_cstring(request, gds_dyn_mod_local_fld,
+							reinterpret_cast <
+							char *>(old_field_name->str_data));
+
+				new_field = element->nod_arg[e_mod_fld_name_new_name];
+				new_field_name = (STR) new_field->nod_arg[e_fln_name];
+				put_cstring(request, gds_dyn_rel_name,
+							reinterpret_cast <
+							char *>(relation_name->str_data));
+				put_cstring(request, isc_dyn_new_fld_name,
+							reinterpret_cast <
+							char *>(new_field_name->str_data));
+				STUFF(gds_dyn_end);
+				break;
+			}
+
+		case nod_mod_field_pos:
+			{
+				SSHORT constant;
+				NOD const_node;
+
+				field_node = element->nod_arg[e_mod_fld_pos_orig_name];
+				field_name = (STR) field_node->nod_arg[e_fln_name];
+				put_cstring(request, gds_dyn_mod_local_fld,
+							reinterpret_cast<char*>(field_name->str_data));
+
+				const_node = element->nod_arg[e_mod_fld_pos_new_position];
+				constant = (SSHORT) const_node->nod_arg[0];
+				put_cstring(request, gds_dyn_rel_name,
+							reinterpret_cast <
+							char *>(relation_name->str_data));
+				put_number(request, gds_dyn_fld_position, constant);
+				STUFF(gds_dyn_end);
+				break;
+			}
+
+
+		case nod_mod_field_type:
+			modify_field(request, element, (SSHORT) - 1, relation_name);
+			break;
+
+		case nod_def_field:
+			define_field(request, element, (SSHORT) - 1, relation_name);
+			break;
+
+		case nod_del_field:
+
+			/* Fix for bug 8054:
+
+			   [CASCADE | RESTRICT] syntax is available in IB4.5, but not
+			   required until v5.0. 
+
+			   Option CASCADE causes an error :
+			   unsupported DSQL construct
+
+			   Option RESTRICT is default behaviour.
+			 */
+
+			field_node = element->nod_arg[0];
+			field_name = (STR) field_node->nod_arg[e_fln_name];
+
+			if ((element->nod_arg[1])->nod_type == nod_cascade)
+				/* Unsupported DSQL construct */
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 901,
+						  gds_arg_gds, gds__dsql_command_err,
+						  gds_arg_gds, gds__dsql_construct_err, 0);
+
+			assert((element->nod_arg[1])->nod_type == nod_restrict);
+			put_cstring(request, gds_dyn_delete_local_fld,
+						reinterpret_cast<char*>(field_name->str_data));
+			STUFF(gds_dyn_end);
+			break;
+
+		case nod_delete_rel_constraint:
+			field_name = (STR) element->nod_arg[0];
+			put_cstring(request, gds_dyn_delete_rel_constraint,
+						reinterpret_cast<char*>(field_name->str_data));
+			break;
+
+		case nod_rel_constraint:
+			define_rel_constraint(request, element);
+			break;
+
+		default:
+			break;
+		}
+	}
+
+	STUFF(gds_dyn_end);
+
+/* restore the setjmp pointer */
+
+	tdsql->tsql_setjmp = old_env;
+}
+
+
+static void process_role_nm_list(
+								 REQ request,
+								 SSHORT option,
+								 NOD user_ptr, NOD role_ptr, NOD_TYPE type)
+{
+/**************************************
+ *
+ *  p r o c e s s _ r o l e _ n m _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *     Build req_blr for grant & revoke role stmt
+ *
+ **************************************/
+	STR role_nm, user_nm;
+
+	if (type == nod_grant)
+		STUFF(isc_dyn_grant);
+	else
+		STUFF(isc_dyn_revoke);
+
+	STUFF_WORD(1);
+	STUFF('M');
+
+	role_nm = (STR) role_ptr->nod_arg[0];
+	put_cstring(request, isc_dyn_sql_role_name,
+				reinterpret_cast<char*>(role_nm->str_data));
+
+	user_nm = (STR) user_ptr->nod_arg[0];
+	put_cstring(request, isc_dyn_grant_user,
+				reinterpret_cast<char*>(user_nm->str_data));
+
+	if (option)
+		put_number(request, isc_dyn_grant_admin_options, option);
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void put_descriptor( REQ request, DSC * desc)
+{
+/**************************************
+ *
+ *	p u t _ d e s c r i p t o r
+ *
+ **************************************
+ *
+ * Function
+ *	Write out field description in ddl, given the
+ *	input descriptor.
+ *
+ **************************************/
+
+	put_number(request, gds_dyn_fld_type, blr_dtypes[desc->dsc_dtype]);
+	if (desc->dsc_dtype == dtype_varying)
+		put_number(request, gds_dyn_fld_length,
+				   (SSHORT) (desc->dsc_length - sizeof(USHORT)));
+	else
+		put_number(request, gds_dyn_fld_length, desc->dsc_length);
+	put_number(request, gds_dyn_fld_scale, desc->dsc_scale);
+}
+
+
+static void put_dtype( REQ request, FLD field, USHORT use_subtype)
+{
+/**************************************
+ *
+ *	p u t _ d t y p e 
+ *
+ **************************************
+ *
+ * Function
+ *	Write out field data type
+ *	Taking special care to declare international text.
+ *
+ **************************************/
+
+#ifdef DEV_BUILD
+/* Check if the field describes a known datatype */
+
+	if (field->fld_dtype > sizeof(blr_dtypes) / sizeof(blr_dtypes[0]) ||
+		!blr_dtypes[field->fld_dtype]) {
+		SCHAR buffer[100];
+
+		sprintf(buffer, "Invalid dtype %d in put_dtype", field->fld_dtype);
+		ERRD_bugcheck(buffer);
+	}
+#endif
+
+	if (field->fld_dtype == dtype_cstring ||
+		field->fld_dtype == dtype_text || field->fld_dtype == dtype_varying) {
+		if (!use_subtype || (request->req_dbb->dbb_flags & DBB_v3)) {
+			STUFF(blr_dtypes[field->fld_dtype]);
+		}
+		else if (field->fld_dtype == dtype_varying) {
+			STUFF(blr_varying2);
+			STUFF_WORD(field->fld_ttype);
+		}
+		else if (field->fld_dtype == dtype_cstring) {
+			STUFF(blr_cstring2);
+			STUFF_WORD(field->fld_ttype);
+		}
+		else {
+			STUFF(blr_text2);
+			STUFF_WORD(field->fld_ttype);
+		}
+
+		if (field->fld_dtype == dtype_varying)
+			STUFF_WORD(field->fld_length - sizeof(USHORT))
+				else
+			STUFF_WORD(field->fld_length);
+	}
+	else {
+		STUFF(blr_dtypes[field->fld_dtype]);
+		if (DTYPE_IS_EXACT(field->fld_dtype) ||
+			(dtype_quad == field->fld_dtype)) {
+			STUFF(field->fld_scale);
+		}
+	}
+}
+
+
+static void put_field( REQ request, FLD field, BOOLEAN udf_flag)
+{
+/**************************************
+ *
+ *	p u t _ f i e l d 
+ *
+ **************************************
+ *
+ * Function
+ *	Emit dyn which describes a field data type.
+ *	This field could be a column, a procedure input,
+ *	or a procedure output.
+ *
+ **************************************/
+
+	put_number(request, gds_dyn_fld_type, blr_dtypes[field->fld_dtype]);
+	if (field->fld_dtype == dtype_blob) {
+		put_number(request, gds_dyn_fld_sub_type, field->fld_sub_type);
+		put_number(request, gds_dyn_fld_scale, 0);
+		if (!udf_flag) {
+			if (!field->fld_seg_length)
+				field->fld_seg_length = DEFAULT_BLOB_SEGMENT_SIZE;
+			put_number(request, gds_dyn_fld_segment_length,
+					   field->fld_seg_length);
+		}
+		if (!(request->req_dbb->dbb_flags & DBB_v3))
+			if (field->fld_sub_type == BLOB_text)
+				put_number(request, gds_dyn_fld_character_set,
+						   field->fld_character_set_id);
+	}
+	else if (field->fld_dtype <= dtype_any_text) {
+		if (field->fld_sub_type)
+			put_number(request, gds_dyn_fld_sub_type, field->fld_sub_type);
+		put_number(request, gds_dyn_fld_scale, 0);
+		if (field->fld_dtype == dtype_varying) {
+			assert((field->fld_length - sizeof(USHORT)) <= MAX_SSHORT);
+			put_number(request, gds_dyn_fld_length,
+					   (SSHORT) (field->fld_length - sizeof(USHORT)));
+		}
+		else
+			put_number(request, gds_dyn_fld_length, field->fld_length);
+		if (!(request->req_dbb->dbb_flags & DBB_v3)) {
+			put_number(request, gds_dyn_fld_char_length,
+					   field->fld_character_length);
+			put_number(request, gds_dyn_fld_character_set,
+					   field->fld_character_set_id);
+			if (!udf_flag)
+				put_number(request, gds_dyn_fld_collation,
+						   field->fld_collation_id);
+		}
+	}
+	else {
+		put_number(request, gds_dyn_fld_scale, field->fld_scale);
+		put_number(request, gds_dyn_fld_length, field->fld_length);
+		if (DTYPE_IS_EXACT(field->fld_dtype)) {
+			put_number(request, isc_dyn_fld_precision, field->fld_precision);
+			if (field->fld_sub_type)
+				put_number(request, isc_dyn_fld_sub_type,
+						   field->fld_sub_type);
+		}
+	}
+}
+
+
+static void put_local_variable( REQ request, VAR variable)
+{
+/**************************************
+ *
+ *	p u t _ l o c a l _ v a r i a b l e
+ *
+ **************************************
+ *
+ * Function
+ *	Write out local variable field data type
+ *
+ **************************************/
+	FLD field;
+	USHORT dtype;
+
+	field = variable->var_field;
+	STUFF(blr_dcl_variable);
+	STUFF_WORD(variable->var_variable_number);
+	DDL_resolve_intl_type(request, field, NULL);
+	if ((dtype = field->fld_dtype) == dtype_blob)
+		field->fld_dtype = dtype_quad;
+	put_dtype(request, field, TRUE);
+	field->fld_dtype = dtype;
+
+/* Initialize variable to NULL */
+
+	STUFF(blr_assignment);
+	STUFF(blr_null);
+	STUFF(blr_variable);
+	STUFF_WORD(variable->var_variable_number);
+}
+
+
+static SSHORT put_local_variables( REQ request, NOD parameters, SSHORT locals)
+{
+/**************************************
+ *
+ *	p u t _ l o c a l _ v a r i a b l e s
+ *
+ **************************************
+ *
+ * Function
+ *	Emit dyn for the local variables declared
+ *	in a procedure or trigger.
+ *
+ **************************************/
+	NOD *rest, parameter, *ptr, *end, var_node;
+	FLD field, rest_field;
+	VAR variable;
+
+	if (parameters) {
+		ptr = parameters->nod_arg;
+		for (end = ptr + parameters->nod_count; ptr < end; ptr++) {
+			parameter = *ptr;
+			field = (FLD) parameter->nod_arg[e_dfl_field];
+			rest = ptr;
+			while ((++rest) != end) {
+				rest_field = (FLD) (*rest)->nod_arg[e_dfl_field];
+				if (!strcmp(field->fld_name, rest_field->fld_name))
+					ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 637,
+							  gds_arg_gds, gds__dsql_duplicate_spec,
+							  gds_arg_string, field->fld_name, 0);
+			}
+			*ptr = var_node =
+				MAKE_variable(field, field->fld_name, VAR_output, 0, 0,
+							  locals);
+			variable = (VAR) var_node->nod_arg[e_var_variable];
+			put_local_variable(request, variable);
+			locals++;
+		}
+	}
+
+	return locals;
+}
+
+
+static void put_msg_field( REQ request, FLD field)
+{
+/**************************************
+ *
+ *	p u t _ m s g _ f i e l d
+ *
+ **************************************
+ *
+ * Function
+ *	Write out message field data type
+ *
+ **************************************/
+	USHORT dtype;
+
+	if ((dtype = field->fld_dtype) == dtype_blob)
+		field->fld_dtype = dtype_quad;
+	put_dtype(request, field, TRUE);
+	field->fld_dtype = dtype;
+
+/* add slot for null flag (parameter2) */
+
+	STUFF(blr_short);
+	STUFF(0);
+}
+
+
+static void put_number( REQ request, UCHAR verb, SSHORT number)
+{
+/**************************************
+ *
+ *	p u t _ n u m b e r
+ *
+ **************************************
+ *
+ * Input
+ *	blr_ptr: current position of blr being generated
+ *	verb: blr byte of which number is an argument
+ *	number: value to be written to blr
+ * Function
+ *	Write out a numeric valued attribute.
+ *
+ **************************************/
+
+	if (verb)
+		STUFF(verb);
+
+	STUFF_WORD(2);
+	STUFF_WORD(number);
+}
+
+
+static void put_cstring( REQ request, UCHAR verb, char *string)
+{
+/**************************************
+ *
+ *	p u t _ c s t r i n g
+ *
+ **************************************
+ *
+ * Function
+ *	Write out a string valued attribute.
+ *
+ **************************************/
+	USHORT length;
+
+	if (string)
+		length = strlen(string);
+	else
+		length = 0;
+
+	put_string(request, verb, reinterpret_cast < UCHAR * >(string), length);
+}
+
+
+static void put_string(
+					   REQ request, UCHAR verb, UCHAR * string, USHORT length)
+{
+/**************************************
+ *
+ *	p u t _ s t r i n g
+ *
+ **************************************
+ *
+ * Function
+ *	Write out a string valued attribute.
+ *
+ **************************************/
+
+	if (verb) {
+		STUFF(verb);
+		STUFF_WORD(length);
+	}
+	else
+		STUFF(length);
+
+	if (string)
+		for (; *string && length--; string++)
+			STUFF(*string);
+}
+
+
+static NOD replace_field_names(
+							   NOD input,
+							   NOD search_fields,
+							   NOD replace_fields, SSHORT null_them)
+{
+/* *************************************
+ *
+ *	r e p l a c e _ f i e l d _ n a m e s
+ *
+ **************************************
+ *
+ * Function
+ *	Given an input node tree, find any field name nodes
+ *	and replace them according to the mapping provided.
+ *	Used to create view  WITH CHECK OPTION.
+ *
+ **************************************/
+	NOD *endo, field_node, *ptr, *end, *search, *replace;
+	STR field_name, replace_name;
+	TEXT *search_name;
+	FLD field;
+	SSHORT found;
+
+	if (!input)
+		return input;
+
+	if (input->nod_header.blk_type != type_nod)
+		return input;
+
+	for (ptr = input->nod_arg, endo = ptr + input->nod_count; ptr < endo;
+		 ptr++) {
+
+		if ((*ptr)->nod_type == nod_select_expr)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds__dsql_command_err,
+					  gds_arg_gds, gds__subquery_err,
+					  /* No subqueries permitted for VIEW WITH CHECK OPTION */
+					  0);
+
+		if ((*ptr)->nod_type == nod_field_name) {
+			/* found a field node, check if it needs to be replaced */
+
+			field_name = (STR) (*ptr)->nod_arg[e_fln_name];
+
+			search = search_fields->nod_arg;
+			end = search + search_fields->nod_count;
+			if (replace_fields)
+				replace = replace_fields->nod_arg;
+			found = FALSE;
+			for (; search < end;
+				 search++, (replace_fields) ? replace++ : NULL) {
+				if (replace_fields) {
+					replace_name = (STR) (*replace)->nod_arg[e_fln_name];
+				}
+				field_node = *search;
+				field = (FLD) field_node->nod_arg[e_fld_field];
+				search_name = field->fld_name;
+				if (!strcmp
+					((SCHAR *) field_name->str_data, (SCHAR *) search_name)) {
+					found = TRUE;
+					if (replace_fields)
+						(*ptr)->nod_arg[e_fln_name] = (*replace)->nod_arg[e_fln_name];
+					(*ptr)->nod_arg[e_fln_context] = (NOD) MAKE_cstring(NEW_CONTEXT);
+
+				}
+				if (null_them &&
+					replace_fields &&
+					!strcmp((SCHAR *) field_name->str_data,
+							(SCHAR *) replace_name->str_data)) found = TRUE;
+			}
+			if (null_them && !found) {
+				(*ptr) = MAKE_node(nod_null, (int) 0);
+			}
+		}
+		else
+			/* recursively go through the input tree looking for field name nodes */
+			replace_field_names(*ptr, search_fields, replace_fields,
+								null_them);
+	}
+
+	return input;
+}
+
+
+static void reset_context_stack( REQ request)
+{
+/**************************************
+ *
+ *	r e s e t _ c o n t e x t _ s t a c k
+ *
+ **************************************
+ *
+ * Function
+ *	Get rid of any predefined contexts created 
+ *	for a view or trigger definition.
+ *
+ **************************************/
+
+	while (request->req_context)
+		LLS_POP(&request->req_context);
+	request->req_context_number = 0;
+}
+
+
+static void save_field( REQ request, TEXT * field_name)
+{
+/**************************************
+ *
+ *	s a v e _ f i e l d
+ *
+ **************************************
+ *
+ * Function
+ *	Save the name of a field in the relation or view currently
+ *	being defined.  This is done to support definition
+ *	of triggers which will depend on the metadata created 
+ *	in this request.
+ *
+ **************************************/
+	DSQL_REL relation;
+	FLD field;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	if (!(relation = request->req_relation))
+		return;
+
+	field = (FLD) ALLOCDV(type_fld, strlen(field_name) + 1);
+	strcpy(field->fld_name, field_name);
+	field->fld_next = relation->rel_fields;
+	relation->rel_fields = field;
+}
+
+
+static void save_relation( REQ request, STR relation_name)
+{
+/**************************************
+ *
+ *	s a v e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Function
+ *	Save the name of the relation or view currently
+ *	being defined.  This is done to support definition
+ *	of triggers which will depend on the metadata created 
+ *	in this request.
+ *
+ **************************************/
+	DSQL_REL relation;
+	NOD ddl_node;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	if (request->req_flags & REQ_save_metadata)
+		return;
+
+	request->req_flags |= REQ_save_metadata;
+	ddl_node = request->req_ddl_node;
+
+	if (ddl_node->nod_type == nod_mod_relation)
+	{
+		relation = METD_get_relation(request, relation_name);
+	}
+	else
+	{
+		relation =
+			(DSQL_REL) ALLOCDV(type_dsql_rel, relation_name->str_length);
+		relation->rel_name = relation->rel_data;
+		relation->rel_owner =
+			relation->rel_data + relation_name->str_length + 1;
+		strcpy(relation->rel_name, (SCHAR *) relation_name->str_data);
+		*relation->rel_owner = 0;
+	}
+	request->req_relation = relation;
+}
+
+
+static void set_statistics( REQ request)
+{
+/**************************************
+ *
+ *	s e t _ s t a t i s t i c s
+ *
+ **************************************
+ *
+ * Function
+ *	Alter an index/.. statistics
+ *
+ **************************************/
+	NOD ddl_node;
+	STR index_name;
+
+	ddl_node = request->req_ddl_node;
+
+	index_name = (STR) ddl_node->nod_arg[e_stat_name];
+
+	put_cstring(request, gds_dyn_mod_idx,
+				reinterpret_cast<char*>(index_name->str_data));
+
+	STUFF(gds_dyn_idx_statistic);
+
+	STUFF(gds_dyn_end);
+}
+
+
+static void stuff_default_blr(
+							  REQ request,
+							  TEXT * default_buff, USHORT buff_size)
+{
+/********************************************
+ *
+ *      s t u f f _ d e f a u l t _ b l r
+ *
+ ********************************************
+ * Function:
+ *   The default_blr is passed in default_buffer. It is of the form:
+ *   blr_version4 blr_literal ..... blr_eoc.
+ *   strip the blr_version4 and blr_eoc verbs and stuff the remaining
+ *   blr in the blr stream in the request.
+ *
+ *********************************************/
+	unsigned int i;
+	assert((*default_buff == blr_version4)
+		   || (*default_buff == blr_version5));
+
+	for (i = 1; ((i < buff_size) && (default_buff[i] != blr_eoc)); i++)
+		STUFF(default_buff[i]);
+
+	assert(default_buff[i] == blr_eoc);
+}
+
+
+static void stuff_matching_blr(
+							   REQ request, NOD for_columns, NOD prim_columns)
+{
+/********************************************
+ *
+ *      s t u f f _ m a t c h i n g _ b l r
+ *
+ ********************************************
+ *
+ * Function
+ *   Generate blr to express: foreign_key == primary_key
+ *   ie.,  for_key.column_1 = prim_key.column_1 and
+ *         for_key.column_2 = prim_key.column_2 and ....  so on..  
+ *
+ **************************************/
+	NOD *for_key_flds, *prim_key_flds;
+	USHORT num_fields = 0;
+	STR for_key_fld_name_str, prim_key_fld_name_str;
+
+/* count of foreign key columns */
+	assert(prim_columns->nod_count == for_columns->nod_count);
+	assert(prim_columns->nod_count != 0);
+
+	STUFF(blr_boolean);
+	if (prim_columns->nod_count > 1)
+		STUFF(blr_and);
+
+	num_fields = 0;
+	for_key_flds = for_columns->nod_arg;
+	prim_key_flds = prim_columns->nod_arg;
+
+	do {
+		STUFF(blr_eql);
+
+		for_key_fld_name_str = (STR) (*for_key_flds)->nod_arg[1];
+		prim_key_fld_name_str = (STR) (*prim_key_flds)->nod_arg[1];
+
+		STUFF(blr_field);
+		STUFF((SSHORT) 2);
+		put_cstring(request, 0,
+					reinterpret_cast <
+					char *>(for_key_fld_name_str->str_data));
+		STUFF(blr_field);
+		STUFF((SSHORT) 0);
+		put_cstring(request, 0,
+					reinterpret_cast <
+					char *>(prim_key_fld_name_str->str_data));
+
+		num_fields++;
+
+		if (prim_columns->nod_count - num_fields >= (unsigned) 2)
+			STUFF(blr_and);
+
+		for_key_flds++;
+		prim_key_flds++;
+
+	}
+	while (num_fields < for_columns->nod_count);
+
+	STUFF(blr_end);
+}
+
+
+static void stuff_trg_firing_cond( REQ request, NOD prim_columns)
+{
+/********************************************
+ *
+ *      s t u f f _ t r g _ f i r i n g _ c o n d
+ *
+ ********************************************
+ *
+ * Function
+ *   Generate blr to express: if (old.primary_key != new.primary_key).
+ *   do a column by column comparison.
+ *
+ **************************************/
+	NOD *prim_key_flds;
+	USHORT num_fields = 0;
+	STR prim_key_fld_name_str;
+
+	STUFF(blr_if);
+	if (prim_columns->nod_count > 1)
+		STUFF(blr_or);
+
+	num_fields = 0;
+	prim_key_flds = prim_columns->nod_arg;
+	do {
+		STUFF(blr_neq);
+
+		prim_key_fld_name_str = (STR) (*prim_key_flds)->nod_arg[1];
+
+		STUFF(blr_field);
+		STUFF((SSHORT) 0);
+		put_cstring(request, 0,
+					reinterpret_cast <
+					char *>(prim_key_fld_name_str->str_data));
+		STUFF(blr_field);
+		STUFF((SSHORT) 1);
+		put_cstring(request, 0,
+					reinterpret_cast <
+					char *>(prim_key_fld_name_str->str_data));
+
+		num_fields++;
+
+		if (prim_columns->nod_count - num_fields >= (unsigned) 2)
+			STUFF(blr_or);
+
+		prim_key_flds++;
+
+	}
+	while (num_fields < prim_columns->nod_count);
+}
+
+
+static void modify_field(
+						 REQ request,
+						 NOD element, SSHORT position, STR relation_name)
+{
+/**************************************
+ *
+ *	m o d i f y _ f i e l d
+ *
+ **************************************
+ *
+ * Function
+ *	Modify a field, either as part of an
+ *	alter table or alter domain statement.
+ *
+ **************************************/
+	NOD domain_node;
+	FLD field;
+	DSQL_REL relation;
+
+	field = (FLD) element->nod_arg[e_dfl_field];
+	put_cstring(request, isc_dyn_mod_sql_fld,
+				reinterpret_cast<char*>(field->fld_name));
+
+/* add the field to the relation being defined for parsing purposes */
+	if ((relation = request->req_relation) != NULL) {
+		field->fld_next = relation->rel_fields;
+		relation->rel_fields = field;
+	}
+
+	if (domain_node = element->nod_arg[e_mod_fld_type_dom_name]) {
+		NOD node1;
+		STR domain_name;
+
+		node1 = domain_node->nod_arg[e_dom_name];
+		domain_name = (STR) node1->nod_arg[e_fln_name];
+		put_cstring(request, gds_dyn_fld_source,
+					reinterpret_cast<char*>(domain_name->str_data));
+
+		/* Get the domain information */
+
+		if (!(METD_get_domain(request, field, domain_name->str_data)))
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds__dsql_command_err,
+					  gds_arg_gds, gds__dsql_domain_not_found,
+					  /* Specified domain or source field does not exist */
+					  0);
+		DDL_resolve_intl_type(request, field, NULL);
+	}
+	else {
+		if (relation_name)
+			put_cstring(request, gds_dyn_rel_name,
+						reinterpret_cast<char*>(relation_name->str_data));
+
+		DDL_resolve_intl_type(request, field, NULL);
+		put_field(request, field, FALSE);
+	}
+	STUFF(gds_dyn_end);
+}
+
+
+static void set_nod_value_attributes( NOD node, FLD field)
+{
+/**************************************
+ *
+ *	s e t _ n o d _ v a l u e _ a t t r i b u t e s
+ *
+ **************************************
+ *
+ * Function
+ *	Examine all the children of the argument node:
+ *	if any is a nod_dom_value, set its dtype, size, and scale
+ *      to those of the field argument
+ *
+ **************************************/
+	ULONG child_number;
+	NOD child;
+
+	for (child_number = 0; child_number < node->nod_count; ++child_number) {
+		child = node->nod_arg[child_number];
+		if (child && (type_nod == child->nod_header.blk_type)) {
+			if (nod_dom_value == child->nod_type) {
+				assert(field->fld_dtype <= MAX_UCHAR);
+				child->nod_desc.dsc_dtype = (UCHAR) field->fld_dtype;
+				child->nod_desc.dsc_length = field->fld_length;
+				assert(field->fld_scale <= MAX_SCHAR);
+				child->nod_desc.dsc_scale = (SCHAR) field->fld_scale;
+			}
+			else if ((nod_constant != child->nod_type) &&
+					 (child->nod_count > 0)) {
+				/* A nod_constant can have nod_arg entries which are not really
+				   pointers to other nodes, but rather integer values, so
+				   it is not safe to scan through its children.  Fortunately,
+				   it cannot have a nod_dom_value as a child in any case, so
+				   we lose nothing by skipping it.
+				 */
+
+				set_nod_value_attributes(child, field);
+			}
+		}						/* if it's a node */
+	}							/* for (child_number ... */
+	return;
+}
+
+
+}	// extern "C"
diff --git a/src/dsql/ddl_proto.h b/src/dsql/ddl_proto.h
new file mode 100644
index 0000000000..57adfca0e6
--- /dev/null
+++ b/src/dsql/ddl_proto.h
@@ -0,0 +1,41 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		ddl_proto.h
+ *	DESCRIPTION:	Prototype Header file for ddl_proto.h
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_DDL_PROTO_H_
+#define _DSQL_DDL_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void DDL_execute(struct req *);
+void DDL_generate(struct req *, struct nod *);
+int DDL_ids(struct req *);
+void DDL_put_field_dtype(struct req *, struct fld *, USHORT);
+void DDL_resolve_intl_type(struct req *, struct fld *, struct str *);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _DSQL_DDL_PROTO_H_ */
diff --git a/src/dsql/depends.mak b/src/dsql/depends.mak
new file mode 100644
index 0000000000..13a0ba01ad
--- /dev/null
+++ b/src/dsql/depends.mak
@@ -0,0 +1,613 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# depends.mak - dsql
+# Created by 'make depends.mak'
+# Created on 1998-11-17
+alld.o: alld.c
+alld.o: alld_proto.h
+alld.o: blk.h
+alld.o: dsql.h
+alld.o: errd_proto.h
+alld.o: node.h
+alld.o: source/jrd/codes.h
+alld.o: source/jrd/common.h
+alld.o: source/jrd/dsc.h
+alld.o: source/jrd/fil.h
+alld.o: source/jrd/gds_proto.h
+alld.o: source/jrd/gdsassert.h
+alld.o: source/jrd/ibsetjmp.h
+alld.o: source/jrd/isc.h
+alld.o: source/jrd/thd.h
+alld.o: source/jrd/thd_proto.h
+alld.o: sym.h
+array.o: array.c
+array.o: array_proto.h
+array.o: source/interbase/include/iberror.h
+array.o: source/jrd/common.h
+array.o: source/jrd/fil.h
+array.o: source/jrd/gds.h
+array.o: source/jrd/gds_proto.h
+array.o: source/jrd/thd.h
+blob.o: blob.c
+blob.o: blob_proto.h
+blob.o: source/interbase/include/iberror.h
+blob.o: source/intl/charsets.h
+blob.o: source/jrd/common.h
+blob.o: source/jrd/constants.h
+blob.o: source/jrd/gds.h
+blob.o: source/jrd/intl.h
+ddl.o: alld_proto.h
+ddl.o: blk.h
+ddl.o: ddl.c
+ddl.o: ddl_proto.h
+ddl.o: dsql.h
+ddl.o: errd_proto.h
+ddl.o: gen_proto.h
+ddl.o: make_proto.h
+ddl.o: metd_proto.h
+ddl.o: node.h
+ddl.o: pass1_proto.h
+ddl.o: source/interbase/include/iberror.h
+ddl.o: source/intl/charsets.h
+ddl.o: source/jrd/codes.h
+ddl.o: source/jrd/common.h
+ddl.o: source/jrd/constants.h
+ddl.o: source/jrd/dsc.h
+ddl.o: source/jrd/flags.h
+ddl.o: source/jrd/gds.h
+ddl.o: source/jrd/ibsetjmp.h
+ddl.o: source/jrd/intl.h
+ddl.o: source/jrd/isc.h
+ddl.o: source/jrd/sch_proto.h
+ddl.o: source/jrd/thd.h
+ddl.o: source/jrd/thd_proto.h
+ddl.o: sym.h
+dsql.o: alld_proto.h
+dsql.o: blk.h
+dsql.o: ddl_proto.h
+dsql.o: dsql.c
+dsql.o: dsql.h
+dsql.o: dsql_proto.h
+dsql.o: errd_proto.h
+dsql.o: gen_proto.h
+dsql.o: hsh_proto.h
+dsql.o: make_proto.h
+dsql.o: movd_proto.h
+dsql.o: node.h
+dsql.o: parse_proto.h
+dsql.o: pass1_proto.h
+dsql.o: source/interbase/include/iberror.h
+dsql.o: source/intl/charsets.h
+dsql.o: source/jrd/align.h
+dsql.o: source/jrd/common.h
+dsql.o: source/jrd/dsc.h
+dsql.o: source/jrd/fil.h
+dsql.o: source/jrd/gds.h
+dsql.o: source/jrd/gds_proto.h
+dsql.o: source/jrd/ibsetjmp.h
+dsql.o: source/jrd/intl.h
+dsql.o: source/jrd/isc.h
+dsql.o: source/jrd/sch_proto.h
+dsql.o: source/jrd/thd.h
+dsql.o: source/jrd/thd_proto.h
+dsql.o: source/jrd/why_proto.h
+dsql.o: sqlda.h
+dsql.o: sym.h
+dsqlwep.o: dsqlwep.c
+dsqlwep.o: source/jrd/common.h
+errd.o: blk.h
+errd.o: dsql.h
+errd.o: errd.c
+errd.o: errd_proto.h
+errd.o: source/jrd/codes.h
+errd.o: source/jrd/common.h
+errd.o: source/jrd/dsc.h
+errd.o: source/jrd/fil.h
+errd.o: source/jrd/gds_proto.h
+errd.o: source/jrd/iberr.h
+errd.o: source/jrd/ibsetjmp.h
+errd.o: source/jrd/isc.h
+errd.o: source/jrd/thd.h
+errd.o: source/jrd/thd_proto.h
+errd.o: sqlda.h
+errd.o: utld_proto.h
+gen.o: alld_proto.h
+gen.o: blk.h
+gen.o: ddl_proto.h
+gen.o: dsql.h
+gen.o: errd_proto.h
+gen.o: gen.c
+gen.o: gen_proto.h
+gen.o: make_proto.h
+gen.o: metd_proto.h
+gen.o: node.h
+gen.o: source/interbase/include/iberror.h
+gen.o: source/intl/charsets.h
+gen.o: source/jrd/align.h
+gen.o: source/jrd/common.h
+gen.o: source/jrd/dsc.h
+gen.o: source/jrd/gds.h
+gen.o: source/jrd/ibsetjmp.h
+gen.o: source/jrd/intl.h
+gen.o: source/jrd/isc.h
+gen.o: source/jrd/thd.h
+gen.o: source/jrd/thd_proto.h
+gen.o: sym.h
+hsh.o: alld_proto.h
+hsh.o: blk.h
+hsh.o: dsql.h
+hsh.o: errd_proto.h
+hsh.o: hsh.c
+hsh.o: hsh_proto.h
+hsh.o: source/interbase/include/iberror.h
+hsh.o: source/jrd/common.h
+hsh.o: source/jrd/dsc.h
+hsh.o: source/jrd/gds.h
+hsh.o: source/jrd/ibsetjmp.h
+hsh.o: source/jrd/isc.h
+hsh.o: source/jrd/sch_proto.h
+hsh.o: source/jrd/thd.h
+hsh.o: source/jrd/thd_proto.h
+hsh.o: sym.h
+make.o: alld_proto.h
+make.o: blk.h
+make.o: dsql.h
+make.o: errd_proto.h
+make.o: hsh_proto.h
+make.o: make.c
+make.o: make_proto.h
+make.o: node.h
+make.o: source/interbase/include/iberror.h
+make.o: source/intl/charsets.h
+make.o: source/jrd/align.h
+make.o: source/jrd/common.h
+make.o: source/jrd/constants.h
+make.o: source/jrd/dsc.h
+make.o: source/jrd/dsc_proto.h
+make.o: source/jrd/gds.h
+make.o: source/jrd/ibsetjmp.h
+make.o: source/jrd/intl.h
+make.o: source/jrd/isc.h
+make.o: source/jrd/thd.h
+make.o: source/jrd/thd_proto.h
+make.o: sym.h
+metd.o: alld_proto.h
+metd.o: blk.h
+metd.o: ddl_proto.h
+metd.o: dsql.h
+metd.o: hsh_proto.h
+metd.o: make_proto.h
+metd.o: metd.c
+metd.o: metd_proto.h
+metd.o: node.h
+metd.o: source/interbase/include/iberror.h
+metd.o: source/intl/charsets.h
+metd.o: source/jrd/align.h
+metd.o: source/jrd/common.h
+metd.o: source/jrd/constants.h
+metd.o: source/jrd/dsc.h
+metd.o: source/jrd/fil.h
+metd.o: source/jrd/gds.h
+metd.o: source/jrd/gds_proto.h
+metd.o: source/jrd/ibsetjmp.h
+metd.o: source/jrd/intl.h
+metd.o: source/jrd/isc.h
+metd.o: source/jrd/sch_proto.h
+metd.o: source/jrd/thd.h
+metd.o: source/jrd/thd_proto.h
+metd.o: sym.h
+movd.o: blk.h
+movd.o: dsql.h
+movd.o: errd_proto.h
+movd.o: movd.c
+movd.o: movd_proto.h
+movd.o: source/jrd/codes.h
+movd.o: source/jrd/common.h
+movd.o: source/jrd/cvt_proto.h
+movd.o: source/jrd/dsc.h
+movd.o: source/jrd/iberr.h
+movd.o: source/jrd/ibsetjmp.h
+movd.o: source/jrd/isc.h
+movd.o: source/jrd/thd.h
+movd.o: source/jrd/thd_proto.h
+parse.o: alld_proto.h
+parse.o: blk.h
+parse.o: chars.h
+parse.o: dsql.h
+parse.o: errd_proto.h
+parse.o: hsh_proto.h
+parse.o: keywords.h
+parse.o: make_proto.h
+parse.o: node.h
+parse.o: parse.c
+parse.o: parse_proto.h
+parse.o: source/interbase/include/iberror.h
+parse.o: source/jrd/common.h
+parse.o: source/jrd/dsc.h
+parse.o: source/jrd/fil.h
+parse.o: source/jrd/flags.h
+parse.o: source/jrd/gds.h
+parse.o: source/jrd/gds_proto.h
+parse.o: source/jrd/ibsetjmp.h
+parse.o: source/jrd/isc.h
+parse.o: source/jrd/misc.h
+parse.o: source/jrd/thd.h
+parse.o: source/jrd/thd_proto.h
+parse.o: source/wal/wal.h
+parse.o: sym.h
+pass1.o: alld_proto.h
+pass1.o: blk.h
+pass1.o: ddl_proto.h
+pass1.o: dsql.h
+pass1.o: errd_proto.h
+pass1.o: hsh_proto.h
+pass1.o: make_proto.h
+pass1.o: metd_proto.h
+pass1.o: node.h
+pass1.o: pass1.c
+pass1.o: pass1_proto.h
+pass1.o: source/intl/charsets.h
+pass1.o: source/jrd/blr.h
+pass1.o: source/jrd/codes.h
+pass1.o: source/jrd/common.h
+pass1.o: source/jrd/dsc.h
+pass1.o: source/jrd/dsc_proto.h
+pass1.o: source/jrd/ibsetjmp.h
+pass1.o: source/jrd/intl.h
+pass1.o: source/jrd/isc.h
+pass1.o: source/jrd/thd.h
+pass1.o: source/jrd/thd_proto.h
+pass1.o: sym.h
+preparse.o: chars.h
+preparse.o: prepa_proto.h
+preparse.o: preparse.c
+preparse.o: source/interbase/include/iberror.h
+preparse.o: source/jrd/common.h
+preparse.o: source/jrd/fil.h
+preparse.o: source/jrd/gds.h
+preparse.o: source/jrd/gds_proto.h
+preparse.o: source/jrd/thd.h
+preparse.o: utld_proto.h
+user_dsql.o: blk.h
+user_dsql.o: chars.h
+user_dsql.o: dsql.h
+user_dsql.o: source/jrd/align.h
+user_dsql.o: source/jrd/blr.h
+user_dsql.o: source/jrd/codes.h
+user_dsql.o: source/jrd/common.h
+user_dsql.o: source/jrd/dsc.h
+user_dsql.o: source/jrd/fil.h
+user_dsql.o: source/jrd/gds_proto.h
+user_dsql.o: source/jrd/ibsetjmp.h
+user_dsql.o: source/jrd/inf.h
+user_dsql.o: source/jrd/thd.h
+user_dsql.o: source/jrd/why_proto.h
+user_dsql.o: sqlda.h
+user_dsql.o: user__proto.h
+user_dsql.o: user_dsql.c
+utld.o: blk.h
+utld.o: dsql.h
+utld.o: source/jrd/align.h
+utld.o: source/jrd/blr.h
+utld.o: source/jrd/codes.h
+utld.o: source/jrd/common.h
+utld.o: source/jrd/dsc.h
+utld.o: source/jrd/fil.h
+utld.o: source/jrd/gds_proto.h
+utld.o: source/jrd/ibsetjmp.h
+utld.o: source/jrd/inf.h
+utld.o: source/jrd/thd.h
+utld.o: sqlda.h
+utld.o: utld.c
+utld.o: utld_proto.h
+alld.bin: alld.c
+alld.bin: alld_proto.h
+alld.bin: blk.h
+alld.bin: dsql.h
+alld.bin: errd_proto.h
+alld.bin: node.h
+alld.bin: source/jrd/codes.h
+alld.bin: source/jrd/common.h
+alld.bin: source/jrd/dsc.h
+alld.bin: source/jrd/fil.h
+alld.bin: source/jrd/gds_proto.h
+alld.bin: source/jrd/gdsassert.h
+alld.bin: source/jrd/ibsetjmp.h
+alld.bin: source/jrd/isc.h
+alld.bin: source/jrd/thd.h
+alld.bin: source/jrd/thd_proto.h
+alld.bin: sym.h
+array.bin: array.c
+array.bin: array_proto.h
+array.bin: source/interbase/include/iberror.h
+array.bin: source/jrd/common.h
+array.bin: source/jrd/fil.h
+array.bin: source/jrd/gds.h
+array.bin: source/jrd/gds_proto.h
+array.bin: source/jrd/thd.h
+blob.bin: blob.c
+blob.bin: blob_proto.h
+blob.bin: source/interbase/include/iberror.h
+blob.bin: source/intl/charsets.h
+blob.bin: source/jrd/common.h
+blob.bin: source/jrd/constants.h
+blob.bin: source/jrd/gds.h
+blob.bin: source/jrd/intl.h
+ddl.bin: alld_proto.h
+ddl.bin: blk.h
+ddl.bin: ddl.c
+ddl.bin: ddl_proto.h
+ddl.bin: dsql.h
+ddl.bin: errd_proto.h
+ddl.bin: gen_proto.h
+ddl.bin: make_proto.h
+ddl.bin: metd_proto.h
+ddl.bin: node.h
+ddl.bin: pass1_proto.h
+ddl.bin: source/interbase/include/iberror.h
+ddl.bin: source/intl/charsets.h
+ddl.bin: source/jrd/codes.h
+ddl.bin: source/jrd/common.h
+ddl.bin: source/jrd/constants.h
+ddl.bin: source/jrd/dsc.h
+ddl.bin: source/jrd/flags.h
+ddl.bin: source/jrd/gds.h
+ddl.bin: source/jrd/ibsetjmp.h
+ddl.bin: source/jrd/intl.h
+ddl.bin: source/jrd/isc.h
+ddl.bin: source/jrd/sch_proto.h
+ddl.bin: source/jrd/thd.h
+ddl.bin: source/jrd/thd_proto.h
+ddl.bin: sym.h
+dsql.bin: alld_proto.h
+dsql.bin: blk.h
+dsql.bin: ddl_proto.h
+dsql.bin: dsql.c
+dsql.bin: dsql.h
+dsql.bin: dsql_proto.h
+dsql.bin: errd_proto.h
+dsql.bin: gen_proto.h
+dsql.bin: hsh_proto.h
+dsql.bin: make_proto.h
+dsql.bin: movd_proto.h
+dsql.bin: node.h
+dsql.bin: parse_proto.h
+dsql.bin: pass1_proto.h
+dsql.bin: source/interbase/include/iberror.h
+dsql.bin: source/intl/charsets.h
+dsql.bin: source/jrd/align.h
+dsql.bin: source/jrd/common.h
+dsql.bin: source/jrd/dsc.h
+dsql.bin: source/jrd/fil.h
+dsql.bin: source/jrd/gds.h
+dsql.bin: source/jrd/gds_proto.h
+dsql.bin: source/jrd/ibsetjmp.h
+dsql.bin: source/jrd/intl.h
+dsql.bin: source/jrd/isc.h
+dsql.bin: source/jrd/sch_proto.h
+dsql.bin: source/jrd/thd.h
+dsql.bin: source/jrd/thd_proto.h
+dsql.bin: source/jrd/why_proto.h
+dsql.bin: sqlda.h
+dsql.bin: sym.h
+dsqlwep.bin: dsqlwep.c
+dsqlwep.bin: source/jrd/common.h
+errd.bin: blk.h
+errd.bin: dsql.h
+errd.bin: errd.c
+errd.bin: errd_proto.h
+errd.bin: source/jrd/codes.h
+errd.bin: source/jrd/common.h
+errd.bin: source/jrd/dsc.h
+errd.bin: source/jrd/fil.h
+errd.bin: source/jrd/gds_proto.h
+errd.bin: source/jrd/iberr.h
+errd.bin: source/jrd/ibsetjmp.h
+errd.bin: source/jrd/isc.h
+errd.bin: source/jrd/thd.h
+errd.bin: source/jrd/thd_proto.h
+errd.bin: sqlda.h
+errd.bin: utld_proto.h
+gen.bin: alld_proto.h
+gen.bin: blk.h
+gen.bin: ddl_proto.h
+gen.bin: dsql.h
+gen.bin: errd_proto.h
+gen.bin: gen.c
+gen.bin: gen_proto.h
+gen.bin: make_proto.h
+gen.bin: metd_proto.h
+gen.bin: node.h
+gen.bin: source/interbase/include/iberror.h
+gen.bin: source/intl/charsets.h
+gen.bin: source/jrd/align.h
+gen.bin: source/jrd/common.h
+gen.bin: source/jrd/dsc.h
+gen.bin: source/jrd/gds.h
+gen.bin: source/jrd/ibsetjmp.h
+gen.bin: source/jrd/intl.h
+gen.bin: source/jrd/isc.h
+gen.bin: source/jrd/thd.h
+gen.bin: source/jrd/thd_proto.h
+gen.bin: sym.h
+hsh.bin: alld_proto.h
+hsh.bin: blk.h
+hsh.bin: dsql.h
+hsh.bin: errd_proto.h
+hsh.bin: hsh.c
+hsh.bin: hsh_proto.h
+hsh.bin: source/interbase/include/iberror.h
+hsh.bin: source/jrd/common.h
+hsh.bin: source/jrd/dsc.h
+hsh.bin: source/jrd/gds.h
+hsh.bin: source/jrd/ibsetjmp.h
+hsh.bin: source/jrd/isc.h
+hsh.bin: source/jrd/sch_proto.h
+hsh.bin: source/jrd/thd.h
+hsh.bin: source/jrd/thd_proto.h
+hsh.bin: sym.h
+make.bin: alld_proto.h
+make.bin: blk.h
+make.bin: dsql.h
+make.bin: errd_proto.h
+make.bin: hsh_proto.h
+make.bin: make.c
+make.bin: make_proto.h
+make.bin: node.h
+make.bin: source/interbase/include/iberror.h
+make.bin: source/intl/charsets.h
+make.bin: source/jrd/align.h
+make.bin: source/jrd/common.h
+make.bin: source/jrd/constants.h
+make.bin: source/jrd/dsc.h
+make.bin: source/jrd/dsc_proto.h
+make.bin: source/jrd/gds.h
+make.bin: source/jrd/ibsetjmp.h
+make.bin: source/jrd/intl.h
+make.bin: source/jrd/isc.h
+make.bin: source/jrd/thd.h
+make.bin: source/jrd/thd_proto.h
+make.bin: sym.h
+metd.bin: alld_proto.h
+metd.bin: blk.h
+metd.bin: ddl_proto.h
+metd.bin: dsql.h
+metd.bin: hsh_proto.h
+metd.bin: make_proto.h
+metd.bin: metd.c
+metd.bin: metd_proto.h
+metd.bin: node.h
+metd.bin: source/interbase/include/iberror.h
+metd.bin: source/intl/charsets.h
+metd.bin: source/jrd/align.h
+metd.bin: source/jrd/common.h
+metd.bin: source/jrd/constants.h
+metd.bin: source/jrd/dsc.h
+metd.bin: source/jrd/fil.h
+metd.bin: source/jrd/gds.h
+metd.bin: source/jrd/gds_proto.h
+metd.bin: source/jrd/ibsetjmp.h
+metd.bin: source/jrd/intl.h
+metd.bin: source/jrd/isc.h
+metd.bin: source/jrd/sch_proto.h
+metd.bin: source/jrd/thd.h
+metd.bin: source/jrd/thd_proto.h
+metd.bin: sym.h
+movd.bin: blk.h
+movd.bin: dsql.h
+movd.bin: errd_proto.h
+movd.bin: movd.c
+movd.bin: movd_proto.h
+movd.bin: source/jrd/codes.h
+movd.bin: source/jrd/common.h
+movd.bin: source/jrd/cvt_proto.h
+movd.bin: source/jrd/dsc.h
+movd.bin: source/jrd/iberr.h
+movd.bin: source/jrd/ibsetjmp.h
+movd.bin: source/jrd/isc.h
+movd.bin: source/jrd/thd.h
+movd.bin: source/jrd/thd_proto.h
+parse.bin: alld_proto.h
+parse.bin: blk.h
+parse.bin: chars.h
+parse.bin: dsql.h
+parse.bin: errd_proto.h
+parse.bin: hsh_proto.h
+parse.bin: keywords.h
+parse.bin: make_proto.h
+parse.bin: node.h
+parse.bin: parse.c
+parse.bin: parse_proto.h
+parse.bin: source/interbase/include/iberror.h
+parse.bin: source/jrd/common.h
+parse.bin: source/jrd/dsc.h
+parse.bin: source/jrd/fil.h
+parse.bin: source/jrd/flags.h
+parse.bin: source/jrd/gds.h
+parse.bin: source/jrd/gds_proto.h
+parse.bin: source/jrd/ibsetjmp.h
+parse.bin: source/jrd/isc.h
+parse.bin: source/jrd/misc.h
+parse.bin: source/jrd/thd.h
+parse.bin: source/jrd/thd_proto.h
+parse.bin: source/wal/wal.h
+parse.bin: sym.h
+pass1.bin: alld_proto.h
+pass1.bin: blk.h
+pass1.bin: ddl_proto.h
+pass1.bin: dsql.h
+pass1.bin: errd_proto.h
+pass1.bin: hsh_proto.h
+pass1.bin: make_proto.h
+pass1.bin: metd_proto.h
+pass1.bin: node.h
+pass1.bin: pass1.c
+pass1.bin: pass1_proto.h
+pass1.bin: source/intl/charsets.h
+pass1.bin: source/jrd/blr.h
+pass1.bin: source/jrd/codes.h
+pass1.bin: source/jrd/common.h
+pass1.bin: source/jrd/dsc.h
+pass1.bin: source/jrd/dsc_proto.h
+pass1.bin: source/jrd/ibsetjmp.h
+pass1.bin: source/jrd/intl.h
+pass1.bin: source/jrd/isc.h
+pass1.bin: source/jrd/thd.h
+pass1.bin: source/jrd/thd_proto.h
+pass1.bin: sym.h
+preparse.bin: chars.h
+preparse.bin: prepa_proto.h
+preparse.bin: preparse.c
+preparse.bin: source/interbase/include/iberror.h
+preparse.bin: source/jrd/common.h
+preparse.bin: source/jrd/fil.h
+preparse.bin: source/jrd/gds.h
+preparse.bin: source/jrd/gds_proto.h
+preparse.bin: source/jrd/thd.h
+preparse.bin: utld_proto.h
+user_dsql.bin: blk.h
+user_dsql.bin: chars.h
+user_dsql.bin: dsql.h
+user_dsql.bin: source/jrd/align.h
+user_dsql.bin: source/jrd/blr.h
+user_dsql.bin: source/jrd/codes.h
+user_dsql.bin: source/jrd/common.h
+user_dsql.bin: source/jrd/dsc.h
+user_dsql.bin: source/jrd/fil.h
+user_dsql.bin: source/jrd/gds_proto.h
+user_dsql.bin: source/jrd/ibsetjmp.h
+user_dsql.bin: source/jrd/inf.h
+user_dsql.bin: source/jrd/thd.h
+user_dsql.bin: source/jrd/why_proto.h
+user_dsql.bin: sqlda.h
+user_dsql.bin: user__proto.h
+user_dsql.bin: user_dsql.c
+utld.bin: blk.h
+utld.bin: dsql.h
+utld.bin: source/jrd/align.h
+utld.bin: source/jrd/blr.h
+utld.bin: source/jrd/codes.h
+utld.bin: source/jrd/common.h
+utld.bin: source/jrd/dsc.h
+utld.bin: source/jrd/fil.h
+utld.bin: source/jrd/gds_proto.h
+utld.bin: source/jrd/ibsetjmp.h
+utld.bin: source/jrd/inf.h
+utld.bin: source/jrd/thd.h
+utld.bin: sqlda.h
+utld.bin: utld.c
+utld.bin: utld_proto.h
diff --git a/src/dsql/dsql.cpp b/src/dsql/dsql.cpp
new file mode 100644
index 0000000000..fb2ef40ee6
--- /dev/null
+++ b/src/dsql/dsql.cpp
@@ -0,0 +1,3936 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		dsql.c
+ *	DESCRIPTION:	Local processing for External entry points.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: dsql.cpp,v 1.1.1.1 2001-05-23 13:25:36 tamlin Exp $
+*/
+/**************************************************************
+V4 Multi-threading changes.
+
+-- direct calls to gds__ () & isc_ () entrypoints
+
+	THREAD_EXIT;
+	    gds__ () or isc_ () call.
+	THREAD_ENTER;
+
+-- calls through embedded GDML.
+
+the following protocol will be used.  Care should be taken if
+nested FOR loops are added.
+
+    THREAD_EXIT;                // last statment before FOR loop 
+
+    FOR ...............
+
+	THREAD_ENTER;           // First statment in FOR loop
+	.....some C code....
+	.....some C code....
+	THREAD_EXIT;            // last statment in FOR loop
+
+    END_FOR;
+
+    THREAD_ENTER;               // First statment after FOR loop 
+***************************************************************/
+
+#define DSQL_MAIN
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../dsql/dsql.h"
+#include "../dsql/node.h"
+#include "../dsql/sym.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/thd.h"
+#include "../jrd/align.h"
+#include "../jrd/intl.h"
+#include "../jrd/iberr.h"
+#include "../dsql/sqlda.h"
+#include "../dsql/alld_proto.h"
+#include "../dsql/ddl_proto.h"
+#include "../dsql/dsql_proto.h"
+#include "../dsql/errd_proto.h"
+#include "../dsql/gen_proto.h"
+#include "../dsql/hsh_proto.h"
+#include "../dsql/make_proto.h"
+#include "../dsql/movd_proto.h"
+#include "../dsql/parse_proto.h"
+#include "../dsql/pass1_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/why_proto.h"
+#include "../include/jrd/gds.h"
+
+ASSERT_FILENAME
+#ifdef VMS
+#include <descrip.h>
+#endif
+extern "C" {
+#ifdef NETWARE_386
+#define PRINTF		ConsolePrintf
+#endif
+#ifndef PRINTF
+#define PRINTF		ib_printf
+#endif
+#define ERROR_INIT(env)		{\
+				tdsql->tsql_status = user_status;\
+				tdsql->tsql_setjmp = &env;\
+				tdsql->tsql_default = NULL;\
+				if (SETJMP (env))\
+				    {\
+				    RESTORE_THREAD_DATA;\
+				    return tdsql->tsql_status [1];\
+				    };\
+				}
+#define RETURN_SUCCESS		return return_success()
+#define SET_THREAD_DATA         {\
+				tdsql = &thd_context;\
+				THD_put_specific ((THDD) tdsql);\
+				tdsql->tsql_thd_data.thdd_type = THDD_TYPE_TSQL;\
+				}
+#define RESTORE_THREAD_DATA     THD_restore_specific()
+#ifdef STACK_REDUCTION
+#define FREE_MEM_RETURN		{\
+				if (buffer)\
+				    {\
+				    gds__free ((SLONG *)buffer);\
+				    buffer = (TEXT*) NULL;\
+				    }\
+				return;\
+				}
+#else
+#define FREE_MEM_RETURN		return
+#endif
+static void cleanup(void *);
+static void cleanup_database(SLONG **, SLONG);
+static void cleanup_transaction(SLONG *, SLONG);
+static void close_cursor(REQ);
+static USHORT convert(SLONG, SCHAR *);
+static STATUS error(void);
+static void execute_blob(REQ, USHORT, UCHAR *, USHORT, UCHAR *,
+						 USHORT, UCHAR *, USHORT, UCHAR *);
+static STATUS execute_request(REQ, isc_tr_handle*, USHORT, UCHAR *, USHORT, UCHAR *,
+							  USHORT, UCHAR *, USHORT, UCHAR *, USHORT);
+static SSHORT filter_sub_type(REQ, NOD);
+static BOOLEAN get_indices(SSHORT *, SCHAR **, SSHORT *, SCHAR **);
+static USHORT get_plan_info(REQ, SSHORT, SCHAR **);
+static USHORT get_request_info(REQ, SSHORT, SCHAR *);
+static BOOLEAN get_rsb_item(SSHORT *, SCHAR **, SSHORT *, SCHAR **, USHORT *,
+							USHORT *);
+static DBB init(SLONG **);
+static void map_in_out(REQ, MSG, USHORT, UCHAR *, USHORT, UCHAR *);
+static USHORT name_length(TEXT *);
+static USHORT parse_blr(USHORT, UCHAR *, USHORT, PAR);
+static REQ prepare(REQ, USHORT, TEXT *, USHORT, USHORT);
+static void punt(void);
+static SCHAR *put_item(SCHAR, USHORT, SCHAR *, SCHAR *, SCHAR *);
+static void release_request(REQ, USHORT);
+static STATUS return_success(void);
+static SCHAR *var_info(MSG, SCHAR *, SCHAR *, SCHAR *, SCHAR *, USHORT);
+
+extern NOD DSQL_parse;
+
+static USHORT init_flag;
+static DBB databases;
+static OPN open_cursors;
+static CONST SCHAR db_hdr_info_items[] = {
+	isc_info_db_sql_dialect,
+	gds_info_ods_version,
+	gds_info_base_level,
+#ifdef READONLY_DATABASE
+	isc_info_db_read_only,
+#endif							/* READONLY_DATABASE */
+	frb_info_att_charset,
+	gds_info_end
+};
+static CONST SCHAR explain_info[] = {
+	gds_info_access_path
+};
+static CONST SCHAR record_info[] = {
+	gds_info_req_update_count, gds_info_req_delete_count,
+	gds_info_req_select_count, gds_info_req_insert_count
+};
+static CONST SCHAR sql_records_info[] = {
+	gds_info_sql_records
+};
+
+#ifdef	ANY_THREADING
+static MUTX_T databases_mutex;
+static MUTX_T cursors_mutex;
+static USHORT mutex_inited = 0;
+#endif
+
+/* STUFF_INFO used in place of STUFF to avoid confusion with BLR STUFF
+   macro defined in dsql.h */
+
+#define STUFF_INFO_WORD(p,value)	{*p++ = (UCHAR)value; *p++ = value >> 8;}
+#define STUFF_INFO(p,value)		*p++ = value;
+
+#define GDS_DSQL_ALLOCATE	dsql8_allocate_statement
+#define GDS_DSQL_EXECUTE	dsql8_execute
+#define GDS_DSQL_EXECUTE_IMMED	dsql8_execute_immediate
+#define GDS_DSQL_FETCH		dsql8_fetch
+#define GDS_DSQL_FREE		dsql8_free_statement
+#define GDS_DSQL_INSERT		dsql8_insert
+#define GDS_DSQL_PREPARE	dsql8_prepare
+#define GDS_DSQL_SET_CURSOR	dsql8_set_cursor
+#define GDS_DSQL_SQL_INFO	dsql8_sql_info
+
+
+STATUS DLL_EXPORT GDS_DSQL_ALLOCATE(STATUS*	user_status,
+									int**	db_handle,
+									REQ*	req_handle)
+{
+/**************************************
+ *
+ *	d s q l _ a l l o c a t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a statement handle.
+ *
+ **************************************/
+	DBB database;
+	REQ request;
+	struct tsql thd_context, *tdsql;
+	JMP_BUF env;
+
+	SET_THREAD_DATA;
+
+	ERROR_INIT(env);
+	init(0);
+
+/* If we haven't been initialized yet, do it now */
+
+	database = init((SLONG **) db_handle);
+
+	tdsql->tsql_default = ALLD_pool();
+
+/* allocate the request block */
+
+	request = (REQ) ALLOCD(type_req);
+	request->req_dbb = database;
+	request->req_pool = tdsql->tsql_default;
+
+	*req_handle = request;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS DLL_EXPORT GDS_DSQL_EXECUTE(STATUS * user_status,
+								   isc_tr_handle * trans_handle,
+								   REQ * req_handle,
+								   USHORT in_blr_length,
+								   UCHAR * in_blr,
+								   USHORT in_msg_type,
+								   USHORT in_msg_length,
+								   UCHAR * in_msg,
+								   USHORT out_blr_length,
+								   UCHAR * out_blr,
+								   USHORT out_msg_type,
+								   USHORT out_msg_length, UCHAR * out_msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+	REQ request;
+	OPN open_cursor;
+	STATUS local_status[ISC_STATUS_LENGTH];
+	struct tsql thd_context, *tdsql;
+	JMP_BUF env;
+	USHORT singleton;
+	STATUS sing_status;
+
+	SET_THREAD_DATA;
+
+	ERROR_INIT(env);
+	init(0);
+	sing_status = 0;
+
+	request = *req_handle;
+	tdsql->tsql_default = request->req_pool;
+
+	if ((SSHORT) in_msg_type == -1)
+		request->req_type = REQ_EMBED_SELECT;
+
+/* Only allow NULL trans_handle if we're starting a transaction */
+
+	if (*trans_handle == NULL && request->req_type != REQ_START_TRANS)
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 901,
+				  gds_arg_gds, gds_bad_trans_handle, 0);
+
+/* If the request is a SELECT or blob statement then this is an open.
+/* If the request is a SELECT or blob statement then this is an open.
+   Make sure the cursor is not already open. */
+
+	if (request->req_type == REQ_SELECT ||
+		request->req_type == REQ_SELECT_UPD ||
+		request->req_type == REQ_EMBED_SELECT ||
+		request->req_type == REQ_GET_SEGMENT ||
+		request->req_type == REQ_PUT_SEGMENT)
+			if (request->req_flags & REQ_cursor_open) {
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 502,
+					  gds_arg_gds, gds_dsql_cursor_open_err, 0);
+		}
+
+/* A select with a non zero output length is a singleton select */
+
+	if (request->req_type == REQ_SELECT && out_msg_length != 0)
+		singleton = TRUE;
+	else
+		singleton = FALSE;
+
+	if (request->req_type != REQ_EMBED_SELECT)
+		sing_status =
+			execute_request(request,
+							trans_handle,
+							in_blr_length,
+							in_blr,
+							in_msg_length,
+							in_msg,
+							out_blr_length,
+							out_blr,
+							out_msg_length,
+							out_msg,
+							singleton);
+
+/* If the output message length is zero on a REQ_SELECT then we must
+ * be doing an OPEN cursor operation.
+ * If we do have an output message length, then we're doing 
+ * a singleton SELECT.  In that event, we don't add the cursor
+ * to the list of open cursors (it's not really open).
+ */
+	if ((request->req_type == REQ_SELECT && out_msg_length == 0) ||
+		request->req_type == REQ_SELECT_UPD ||
+		request->req_type == REQ_EMBED_SELECT ||
+		request->req_type == REQ_GET_SEGMENT ||
+		request->req_type == REQ_PUT_SEGMENT) {
+		request->req_flags |= REQ_cursor_open |
+			((request->
+			  req_type == REQ_EMBED_SELECT) ? REQ_embedded_sql_cursor : 0);
+
+		request->req_open_cursor = open_cursor = (OPN) ALLOCP(type_opn);
+		open_cursor->opn_request = request;
+		open_cursor->opn_transaction = (SLONG *) * trans_handle;
+		THD_MUTEX_LOCK(&cursors_mutex);
+		open_cursor->opn_next = open_cursors;
+		open_cursors = open_cursor;
+		THD_MUTEX_UNLOCK(&cursors_mutex);
+		THREAD_EXIT;
+		gds__transaction_cleanup(local_status,
+								 reinterpret_cast < hndl ** >(trans_handle),
+								 (isc_callback) cleanup_transaction, 0);
+		THREAD_ENTER;
+	}
+
+	if (!sing_status)
+		RETURN_SUCCESS;
+	else {
+		RESTORE_THREAD_DATA;
+		return sing_status;
+	}
+}
+
+
+STATUS DLL_EXPORT GDS_DSQL_EXECUTE_IMMED(STATUS * user_status,
+										 int **db_handle,
+										 int **trans_handle,
+										 USHORT length,
+										 TEXT * string,
+										 USHORT dialect,
+										 USHORT in_blr_length,
+										 UCHAR * in_blr,
+										 USHORT in_msg_type,
+										 USHORT in_msg_length,
+										 UCHAR * in_msg,
+										 USHORT out_blr_length,
+										 UCHAR * out_blr,
+										 USHORT out_msg_type,
+										 USHORT out_msg_length,
+										 UCHAR * out_msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e _ i m m e d i a t e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare and execute a statement.
+ *
+ **************************************/
+	REQ request;
+	DBB database;
+	USHORT parser_version;
+	STATUS status;
+	struct tsql thd_context, *tdsql;
+	JMP_BUF env;
+
+	SET_THREAD_DATA;
+
+	ERROR_INIT(env);
+	database = init(reinterpret_cast < long **>(db_handle));
+
+	tdsql->tsql_default = ALLD_pool();
+
+/* allocate the request block, then prepare the request */
+
+	request = (REQ) ALLOCD(type_req);
+	request->req_dbb = database;
+	request->req_pool = tdsql->tsql_default;
+	request->req_trans = (int *) *trans_handle;
+
+	if (SETJMP(*tdsql->tsql_setjmp)) {
+		status = error();
+		release_request(request, TRUE);
+		RESTORE_THREAD_DATA;
+		return status;
+	}
+
+	if (!length)
+		length = strlen(string);
+
+/* Figure out which parser version to use */
+/* Since the API to GDS_DSQL_EXECUTE_IMMED is public and can not be changed, there needs to
+ * be a way to send the parser version to DSQL so that the parser can compare the keyword
+ * version to the parser version.  To accomplish this, the parser version is combined with
+ * the client dialect and sent across that way.  In dsql8_execute_immediate, the parser version
+ * and client dialect are separated and passed on to their final desintations.  The information
+ * is combined as follows:
+ *     Dialect * 10 + parser_version
+ *
+ * and is extracted in dsql8_execute_immediate as follows:
+ *      parser_version = ((dialect *10)+parser_version)%10
+ *      client_dialect = ((dialect *10)+parser_version)/10
+ *
+ * For example, parser_version = 1 and client dialect = 1
+ *
+ *  combined = (1 * 10) + 1 == 11
+ *
+ *  parser = (combined) %10 == 1
+ *  dialect = (combined) / 19 == 1
+ *
+ * If the parser version is not part of the dialect, then assume that the 
+ * connection being made is a local classic connection.
+ */
+
+	if ((dialect / 10) == 0)
+		parser_version = 2;
+	else {
+		parser_version = dialect % 10;
+		dialect /= 10;
+	}
+
+	request->req_client_dialect = dialect;
+
+	request = prepare(request, length, string, dialect, parser_version);
+	execute_request(request,
+					reinterpret_cast<isc_tr_handle*>(trans_handle),
+					in_blr_length,
+					in_blr,
+					in_msg_length,
+					in_msg,
+					out_blr_length,
+					out_blr,
+					out_msg_length,
+					out_msg,
+					FALSE);
+
+	release_request(request, TRUE);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS DLL_EXPORT GDS_DSQL_FETCH(STATUS * user_status,
+								 REQ * req_handle,
+								 USHORT blr_length,
+								 UCHAR * blr,
+								 USHORT msg_type,
+								 USHORT msg_length, UCHAR * msg
+#ifdef SCROLLABLE_CURSORS
+								 , USHORT direction, SLONG offset)
+#else
+	)
+#endif
+{
+/**************************************
+ *
+ *	d s q l _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+	REQ request;
+	MSG message;
+	PAR eof, parameter, null;
+	STATUS s;
+	USHORT *ret_length;
+	UCHAR *buffer;
+	struct tsql thd_context, *tdsql;
+	JMP_BUF env;
+
+	SET_THREAD_DATA;
+
+	ERROR_INIT(env);
+	init(0);
+
+	request = *req_handle;
+	tdsql->tsql_default = request->req_pool;
+
+/* if the cursor isn't open, we've got a problem */
+
+	if (request->req_type == REQ_SELECT ||
+		request->req_type == REQ_SELECT_UPD ||
+		request->req_type == REQ_EMBED_SELECT ||
+		request->req_type == REQ_GET_SEGMENT)
+			if (!(request->req_flags & REQ_cursor_open))
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 504,
+						  gds_arg_gds, gds_dsql_cursor_err, 0);
+
+#ifdef SCROLLABLE_CURSORS
+
+/* check whether we need to send an asynchronous scrolling message 
+   to the engine; the engine will automatically advance one record 
+   in the same direction as before, so optimize out messages of that 
+   type */
+
+	if (request->req_type == REQ_SELECT &&
+		request->req_dbb->dbb_base_level >= 5) {
+		switch (direction) {
+		case isc_fetch_next:
+			if (!(request->req_flags & REQ_backwards))
+				offset = 0;
+			else {
+				direction = blr_forward;
+				offset = 1;
+				request->req_flags &= ~REQ_backwards;
+			}
+			break;
+
+		case isc_fetch_prior:
+			if (request->req_flags & REQ_backwards)
+				offset = 0;
+			else {
+				direction = blr_backward;
+				offset = 1;
+				request->req_flags |= REQ_backwards;
+			}
+			break;
+
+		case isc_fetch_first:
+			direction = blr_bof_forward;
+			offset = 1;
+			request->req_flags &= ~REQ_backwards;
+			break;
+
+		case isc_fetch_last:
+			direction = blr_eof_backward;
+			offset = 1;
+			request->req_flags |= REQ_backwards;
+			break;
+
+		case isc_fetch_absolute:
+			direction = blr_bof_forward;
+			request->req_flags &= ~REQ_backwards;
+			break;
+
+		case isc_fetch_relative:
+			if (offset < 0) {
+				direction = blr_backward;
+				offset = -offset;
+				request->req_flags |= REQ_backwards;
+			}
+			else {
+				direction = blr_forward;
+				request->req_flags &= ~REQ_backwards;
+			}
+			break;
+
+		default:
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 804,
+					  gds_arg_gds, gds_dsql_sqlda_err, 0);
+		}
+
+		if (offset) {
+			PAR offset_parameter;
+			DSC desc;
+
+			message = (MSG) request->req_async;
+
+			desc.dsc_dtype = dtype_short;
+			desc.dsc_scale = 0;
+			desc.dsc_length = sizeof(USHORT);
+			desc.dsc_flags = 0;
+			desc.dsc_address = (UCHAR *) & direction;
+
+			offset_parameter = message->msg_parameters;
+			parameter = offset_parameter->par_next;
+			MOVD_move(&desc, &parameter->par_desc);
+
+			desc.dsc_dtype = dtype_long;
+			desc.dsc_scale = 0;
+			desc.dsc_length = sizeof(SLONG);
+			desc.dsc_flags = 0;
+			desc.dsc_address = (UCHAR *) & offset;
+
+			MOVD_move(&desc, &offset_parameter->par_desc);
+
+			THREAD_EXIT;
+			s = isc_receive2(GDS_VAL(tdsql->tsql_status),
+							 GDS_REF(request->req_handle),
+							 message->msg_number,
+							 message->msg_length,
+							 GDS_VAL(message->msg_buffer),
+							 0, direction, offset);
+			THREAD_ENTER;
+
+			if (s)
+				punt();
+		}
+	}
+#endif
+
+	message = (MSG) request->req_receive;
+
+/* Insure that the blr for the message is parsed, regardless of
+   whether anything is found by the call to receive. */
+
+	if (blr_length)
+		parse_blr(blr_length, blr, msg_length, message->msg_parameters);
+
+	if (request->req_type == REQ_GET_SEGMENT) {
+		/* For get segment, use the user buffer and indicator directly. */
+
+		parameter = request->req_blob->blb_segment;
+		null = parameter->par_null;
+		ret_length =
+			(USHORT *) (msg + (SLONG) null->par_user_desc.dsc_address);
+		buffer = msg + (SLONG) parameter->par_user_desc.dsc_address;
+		THREAD_EXIT;
+		s = isc_get_segment(tdsql->tsql_status,
+							reinterpret_cast <
+							void **>(GDS_REF(request->req_handle)),
+							GDS_VAL(ret_length),
+							parameter->par_user_desc.dsc_length,
+							reinterpret_cast < char *>(GDS_VAL(buffer)));
+		THREAD_ENTER;
+		if (!s) {
+			RESTORE_THREAD_DATA;
+			return 0;
+		}
+		else if (s == gds_segment) {
+			RESTORE_THREAD_DATA;
+			return 101;
+		}
+		else if (s == gds_segstr_eof) {
+			RESTORE_THREAD_DATA;
+			return 100;
+		}
+		else
+			punt();
+	}
+
+	THREAD_EXIT;
+	s = isc_receive(GDS_VAL(tdsql->tsql_status),
+					reinterpret_cast < void **>(GDS_REF(request->req_handle)),
+					message->msg_number,
+					message->msg_length, GDS_VAL(message->msg_buffer), 0);
+	THREAD_ENTER;
+
+	if (s)
+		punt();
+
+	if (eof = request->req_eof)
+		if (!*((USHORT *) eof->par_desc.dsc_address)) {
+			RESTORE_THREAD_DATA;
+			return 100;
+		}
+
+	map_in_out(NULL, message, 0, blr, msg_length, msg);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS DLL_EXPORT GDS_DSQL_FREE(STATUS * user_status,
+								REQ * req_handle, USHORT option)
+{
+/**************************************
+ *
+ *	d s q l _ f r e e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release request for a dsql statement
+ *
+ **************************************/
+	REQ request;
+	struct tsql thd_context, *tdsql;
+	JMP_BUF env;
+
+	SET_THREAD_DATA;
+
+	ERROR_INIT(env);
+	init(0);
+
+	request = *req_handle;
+	tdsql->tsql_default = request->req_pool;
+
+	if (option & DSQL_drop) {
+		/* Release everything associate with the request. */
+
+		release_request(request, TRUE);
+		*req_handle = NULL;
+	}
+	else if (option & DSQL_close) {
+		/* Just close the cursor associated with the request. */
+
+		if (!(request->req_flags & REQ_cursor_open))
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 501,
+					  gds_arg_gds, gds_dsql_cursor_close_err, 0);
+
+		close_cursor(request);
+	}
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS DLL_EXPORT GDS_DSQL_INSERT(STATUS * user_status,
+								  REQ * req_handle,
+								  USHORT blr_length,
+								  UCHAR * blr,
+								  USHORT msg_type,
+								  USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *
+ *	d s q l _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert next record into a dynamic SQL cursor
+ *
+ **************************************/
+	REQ request;
+	MSG message;
+	PAR parameter;
+	SCHAR *buffer;
+	STATUS s;
+	struct tsql thd_context, *tdsql;
+	JMP_BUF env;
+
+	SET_THREAD_DATA;
+
+	ERROR_INIT(env);
+	init(0);
+
+	request = *req_handle;
+	tdsql->tsql_default = request->req_pool;
+
+/* if the cursor isn't open, we've got a problem */
+
+	if (request->req_type == REQ_PUT_SEGMENT)
+		if (!(request->req_flags & REQ_cursor_open))
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 504,
+					  gds_arg_gds, gds_dsql_cursor_err, 0);
+
+	message = (MSG) request->req_receive;
+
+/* Insure that the blr for the message is parsed, regardless of
+   whether anything is found by the call to receive. */
+
+	if (blr_length)
+		parse_blr(blr_length, blr, msg_length, message->msg_parameters);
+
+	if (request->req_type == REQ_PUT_SEGMENT) {
+		/* For put segment, use the user buffer and indicator directly. */
+
+		parameter = request->req_blob->blb_segment;
+		buffer =
+			reinterpret_cast <
+			SCHAR * >(msg + (SLONG) parameter->par_user_desc.dsc_address);
+		THREAD_EXIT;
+		s = isc_put_segment(tdsql->tsql_status,
+							reinterpret_cast <
+							void **>(GDS_REF(request->req_handle)),
+							parameter->par_user_desc.dsc_length,
+							GDS_VAL(buffer));
+		THREAD_ENTER;
+		if (s)
+			punt();
+	}
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS DLL_EXPORT GDS_DSQL_PREPARE(STATUS * user_status,
+								   isc_tr_handle * trans_handle,
+								   REQ * req_handle,
+								   USHORT length,
+								   TEXT * string,
+								   USHORT dialect,
+								   USHORT item_length,
+								   UCHAR * items,
+								   USHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	d s q l _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+	REQ old_request, request;
+	USHORT parser_version;
+	DBB database;
+	STATUS status;
+	struct tsql thd_context, *tdsql;
+	JMP_BUF env;
+
+	SET_THREAD_DATA;
+
+	ERROR_INIT(env);
+	init(0);
+
+	old_request = *req_handle;
+	database = old_request->req_dbb;
+
+/* check to see if old request has an open cursor */
+
+	if (old_request && (old_request->req_flags & REQ_cursor_open)) {
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 519,
+				  gds_arg_gds, gds_dsql_open_cursor_request, 0);
+	}
+
+/* Allocate a new request block and then prepare the request.  We want to
+   keep the old request around, as is, until we know that we are able
+   to prepare the new one. */
+/* It would be really *nice* to know *why* we want to
+   keep the old request around -- 1994-October-27 David Schnepper */
+
+	tdsql->tsql_default = ALLD_pool();
+
+	request = (REQ) ALLOCD(type_req);
+	request->req_dbb = database;
+	request->req_pool = tdsql->tsql_default;
+	request->req_trans = (int *) *trans_handle;
+
+	if (SETJMP(*tdsql->tsql_setjmp)) {
+		status = error();
+		release_request(request, TRUE);
+		RESTORE_THREAD_DATA;
+		return status;
+	}
+
+	if (!length)
+		length = strlen(string);
+
+/* Figure out which parser version to use */
+/* Since the API to GDS_DSQL_PREPARE is public and can not be changed, there needs to
+ * be a way to send the parser version to DSQL so that the parser can compare the keyword
+ * version to the parser version.  To accomplish this, the parser version is combined with
+ * the client dialect and sent across that way.  In dsql8_prepare_statement, the parser version
+ * and client dialect are separated and passed on to their final desintations.  The information
+ * is combined as follows:
+ *     Dialect * 10 + parser_version
+ *
+ * and is extracted in dsql8_prepare_statement as follows:
+ *      parser_version = ((dialect *10)+parser_version)%10
+ *      client_dialect = ((dialect *10)+parser_version)/10
+ *
+ * For example, parser_version = 1 and client dialect = 1
+ *
+ *  combined = (1 * 10) + 1 == 11
+ *
+ *  parser = (combined) %10 == 1
+ *  dialect = (combined) / 19 == 1
+ *
+ * If the parser version is not part of the dialect, then assume that the 
+ * connection being made is a local classic connection.
+ */
+
+	if ((dialect / 10) == 0)
+		parser_version = 2;
+	else {
+		parser_version = dialect % 10;
+		dialect /= 10;
+	}
+
+	request->req_client_dialect = dialect;
+
+	request = prepare(request, length, string, dialect, parser_version);
+
+/* Can not prepare a CREATE DATABASE/SCHEMA statement */
+
+	if ((request->req_type == REQ_DDL) &&
+		(request->req_ddl_node->nod_type == nod_def_database))
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 530,
+					  gds_arg_gds, gds_dsql_crdb_prepare_err, 0);
+
+	request->req_flags |= REQ_prepared;
+
+/* Now that we know that the new request exists, zap the old one. */
+
+	tdsql->tsql_default = old_request->req_pool;
+	release_request(old_request, TRUE);
+	tdsql->tsql_default = NULL;
+
+/* The request was sucessfully prepared, and the old request was
+ * successfully zapped, so set the client's handle to the new request */
+
+	*req_handle = request;
+
+	RESTORE_THREAD_DATA;
+
+	return GDS_DSQL_SQL_INFO(user_status, req_handle, item_length,
+							 reinterpret_cast < char *>(items), buffer_length,
+							 reinterpret_cast < char *>(buffer));
+}
+
+
+STATUS DLL_EXPORT GDS_DSQL_SET_CURSOR(STATUS * user_status,
+									  REQ * req_handle,
+									  TEXT * input_cursor, USHORT type)
+{
+/*****************************************
+ *
+ *	d s q l _ s e t _ c u r s o r _ n a m e
+ *
+ **************************************
+ *
+ * Functional Description
+ *	Set a cursor name for a dynamic request
+ *
+ *****************************************/
+	REQ request;
+	SYM symbol;
+	USHORT length;
+	struct tsql thd_context, *tdsql;
+	JMP_BUF env;
+	TEXT cursor[132];
+
+
+	SET_THREAD_DATA;
+
+	ERROR_INIT(env);
+	init(0);
+
+	request = *req_handle;
+	tdsql->tsql_default = request->req_pool;
+	if (input_cursor[0] == '\"') {
+	/** Quoted cursor names eh? Strip'em. 
+	Note that "" will be replaced with ".
+    **/
+		int ij;
+		for (ij = 0; *input_cursor; input_cursor++) {
+			if (*input_cursor == '\"')
+				input_cursor++;
+			cursor[ij++] = *input_cursor;
+		}
+		cursor[ij] = 0;
+	}
+	else {
+		USHORT i;
+		for (i = 0; i < sizeof(cursor) - 1	/* PJPG 20001013 */
+			 && input_cursor[i]	/* PJPG 20001013 */
+			 &&input_cursor[i] != ' '; i++)	/* PJPG 20001013 */
+			cursor[i] = UPPER7(input_cursor[i]);
+		cursor[i] = '\0';
+	}
+	length = name_length(cursor);
+
+	if (length == 0)
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 502,
+				  gds_arg_gds, gds_dsql_decl_err, 0);
+
+/* If there already is a different cursor by the same name, bitch */
+
+	if (symbol = HSHD_lookup(request->req_dbb, cursor, length, SYM_cursor, 0)) {
+		if (request->req_cursor == symbol)
+			RETURN_SUCCESS;
+		else
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 502,
+					  gds_arg_gds, gds_dsql_decl_err, 0);
+	}
+
+/* If there already is a cursor and its name isn't the same, ditto. 
+   We already know there is no cursor by this name in the hash table */
+
+	if (!request->req_cursor)
+		request->req_cursor = MAKE_symbol(request->req_dbb, cursor,
+										  length, SYM_cursor, request);
+	else {
+		assert(request->req_cursor != symbol);
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 502,
+				  gds_arg_gds, gds_dsql_decl_err, 0);
+	};
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS DLL_EXPORT GDS_DSQL_SQL_INFO(STATUS * user_status,
+									REQ * req_handle,
+									USHORT item_length,
+									SCHAR * items,
+									USHORT info_length, SCHAR * info)
+{
+/**************************************
+ *
+ *	d s q l _ s q l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on dsql statement
+ *
+ **************************************/
+	REQ request;
+	MSG *message;
+	SCHAR item, *end_items, *end_info, *end_describe, buffer[256],
+		*buffer_ptr;
+	USHORT length, number, first_index;
+	struct tsql thd_context, *tdsql;
+	JMP_BUF env;
+
+	SET_THREAD_DATA;
+
+	ERROR_INIT(env);
+	init(0);
+	memset(buffer, 0, sizeof(buffer));
+
+	request = *req_handle;
+
+	end_items = items + item_length;
+	end_info = info + info_length;
+
+	message = NULL;
+	first_index = 0;
+
+	while (items < end_items && *items != gds_info_end) {
+		item = *items++;
+		if (item == gds_info_sql_select || item == gds_info_sql_bind) {
+			message = (item == gds_info_sql_select) ?
+				&request->req_receive : &request->req_send;
+			if (info + 1 >= end_info) {
+				*info = gds_info_truncated;
+				RETURN_SUCCESS;
+			}
+			*info++ = item;
+		}
+		else if (item == gds_info_sql_stmt_type) {
+			switch (request->req_type) {
+			case REQ_SELECT:
+			case REQ_EMBED_SELECT:
+				number = gds_info_sql_stmt_select;
+				break;
+			case REQ_SELECT_UPD:
+				number = gds_info_sql_stmt_select_for_upd;
+				break;
+			case REQ_DDL:
+				number = gds_info_sql_stmt_ddl;
+				break;
+			case REQ_GET_SEGMENT:
+				number = gds_info_sql_stmt_get_segment;
+				break;
+			case REQ_PUT_SEGMENT:
+				number = gds_info_sql_stmt_put_segment;
+				break;
+			case REQ_COMMIT:
+			case REQ_COMMIT_RETAIN:
+				number = gds_info_sql_stmt_commit;
+				break;
+			case REQ_ROLLBACK:
+				number = gds_info_sql_stmt_rollback;
+				break;
+			case REQ_START_TRANS:
+				number = gds_info_sql_stmt_start_trans;
+				break;
+			case REQ_INSERT:
+				number = gds_info_sql_stmt_insert;
+				break;
+			case REQ_UPDATE:
+			case REQ_UPDATE_CURSOR:
+				number = gds_info_sql_stmt_update;
+				break;
+			case REQ_DELETE:
+			case REQ_DELETE_CURSOR:
+				number = gds_info_sql_stmt_delete;
+				break;
+			case REQ_EXEC_PROCEDURE:
+				number = gds_info_sql_stmt_exec_procedure;
+				break;
+			case REQ_SET_GENERATOR:
+				number = isc_info_sql_stmt_set_generator;
+				break;
+			default:
+				number = 0;
+				break;
+			}
+			length = convert((SLONG) number, buffer);
+			if (!(info = put_item(item, length, buffer, info, end_info))) {
+				RETURN_SUCCESS;
+			}
+		}
+		else if (item == gds_info_sql_sqlda_start) {
+			length = *items++;
+			first_index =
+				static_cast < USHORT >
+				(gds__vax_integer
+				 (reinterpret_cast < UCHAR * >(items), length));
+			items += length;
+		}
+		else if (item == isc_info_sql_batch_fetch) {
+			if (request->req_flags & REQ_no_batch)
+				number = FALSE;
+			else
+				number = TRUE;
+			length = convert((SLONG) number, buffer);
+			if (!(info = put_item(item, length, buffer, info, end_info))) {
+				RETURN_SUCCESS;
+			}
+		}
+		else if (item == gds_info_sql_records) {
+			length =
+				get_request_info(request, (SSHORT) sizeof(buffer), buffer);
+			if (length
+				&& !(info = put_item(item, length, buffer, info, end_info))) {
+				RETURN_SUCCESS;
+			}
+		}
+		else if (item == gds_info_sql_get_plan) {
+			/* be careful, get_plan_info() will reallocate the buffer to a 
+			   larger size if it is not big enough */
+
+			buffer_ptr = buffer;
+			length =
+				get_plan_info(request, (SSHORT) sizeof(buffer), &buffer_ptr);
+
+			if (length)
+				info = put_item(item, length, buffer_ptr, info, end_info);
+
+			if (length > sizeof(buffer))
+				gds__free(buffer_ptr);
+
+			if (!info)
+				RETURN_SUCCESS;
+		}
+		else if (!message ||
+				 (item != gds_info_sql_num_variables
+				  && item != gds_info_sql_describe_vars)) {
+			buffer[0] = item;
+			item = gds_info_error;
+			length = 1 + convert((SLONG) gds_infunk, buffer + 1);
+			if (!(info = put_item(item, length, buffer, info, end_info))) {
+				RETURN_SUCCESS;
+			}
+		}
+		else {
+			number = (*message) ? (*message)->msg_index : 0;
+			length = convert((SLONG) number, buffer);
+			if (!(info = put_item(item, length, buffer, info, end_info))) {
+				RETURN_SUCCESS;
+			}
+			if (item == gds_info_sql_num_variables)
+				continue;
+
+			end_describe = items;
+			while (end_describe < end_items &&
+				   *end_describe != gds_info_end &&
+				   *end_describe != gds_info_sql_describe_end) end_describe++;
+
+			if (!
+				(info =
+				 var_info(*message, items, end_describe, info, end_info,
+						  first_index))) {
+				RETURN_SUCCESS;
+			}
+
+			items = end_describe;
+			if (*items == gds_info_sql_describe_end)
+				items++;
+		}
+	}
+
+	*info++ = gds_info_end;
+
+	RETURN_SUCCESS;
+}
+
+
+#ifdef DEV_BUILD
+void DSQL_pretty( NOD node, int column)
+{
+/**************************************
+ *
+ *	D S Q L _ p r e t t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pretty print a node tree.
+*
+ **************************************/
+	MAP map;
+	NOD *ptr, *end;
+	DSQL_REL relation;
+	CTX context;
+	FLD field;
+	STR string;
+	VAR variable;
+#ifdef STACK_REDUCTION
+	TEXT *buffer, *p, *verb, s[64];
+#else
+	TEXT buffer[1024], *p, *verb, s[64];
+#endif
+	USHORT l;
+
+#ifdef STACK_REDUCTION
+	buffer = (TEXT *) gds__alloc(BUFFER_LARGE);
+#endif
+
+	p = buffer;
+	sprintf(p, "%.7X ", node);
+	while (*p)
+		p++;
+
+	if ((l = column * 3) != NULL)
+		do
+			*p++ = ' ';
+		while (--l);
+
+	*p = 0;
+
+	if (!node) {
+		PRINTF("%s *** null ***\n", buffer);
+		FREE_MEM_RETURN;
+	}
+
+	switch (node->nod_header.blk_type) {
+	case (TEXT) type_str:
+		PRINTF("%sSTRING: \"%s\"\n", buffer, ((STR) node)->str_data);
+		FREE_MEM_RETURN;
+
+	case (TEXT) type_fld:
+		PRINTF("%sFIELD: %s\n", buffer, ((FLD) node)->fld_name);
+		FREE_MEM_RETURN;
+
+	case (TEXT) type_sym:
+		PRINTF("%sSYMBOL: %s\n", buffer, ((SYM) node)->sym_string);
+		FREE_MEM_RETURN;
+
+	case (TEXT) type_nod:
+		break;
+
+	default:
+		PRINTF("%sUNKNOWN BLOCK TYPE\n", buffer);
+		FREE_MEM_RETURN;
+	}
+
+	ptr = node->nod_arg;
+	end = ptr + node->nod_count;
+
+	switch (node->nod_type) {
+	case nod_abort:
+		verb = "abort";
+		break;
+	case nod_agg_average:
+		verb = "agg_average";
+		break;
+	case nod_agg_count:
+		verb = "agg_count";
+		break;
+/* count2
+    case nod_agg_distinct: verb = "agg_distinct";	break;
+*/
+	case nod_agg_item:
+		verb = "agg_item";
+		break;
+	case nod_agg_max:
+		verb = "agg_max";
+		break;
+	case nod_agg_min:
+		verb = "agg_min";
+		break;
+	case nod_agg_total:
+		verb = "agg_total";
+		break;
+	case nod_add:
+		verb = "add";
+		break;
+	case nod_alias:
+		verb = "alias";
+		break;
+	case nod_ansi_all:
+	case nod_all:
+		verb = "all";
+		break;
+	case nod_and:
+		verb = "and";
+		break;
+	case nod_ansi_any:
+	case nod_any:
+		verb = "any";
+		break;
+	case nod_array:
+		verb = "array element";
+		break;
+	case nod_assign:
+		verb = "assign";
+		break;
+	case nod_average:
+		verb = "average";
+		break;
+	case nod_between:
+		verb = "between";
+		break;
+	case nod_cast:
+		verb = "cast";
+		break;
+	case nod_close:
+		verb = "close";
+		break;
+	case nod_collate:
+		verb = "collate";
+		break;
+	case nod_concatenate:
+		verb = "concatenate";
+		break;
+	case nod_containing:
+		verb = "containing";
+		break;
+	case nod_count:
+		verb = "count";
+		break;
+	case nod_current_date:
+		verb = "current_date";
+		break;
+	case nod_current_time:
+		verb = "current_time";
+		break;
+	case nod_current_timestamp:
+		verb = "current_timestamp";
+		break;
+	case nod_cursor:
+		verb = "cursor";
+		break;
+	case nod_dbkey:
+		verb = "dbkey";
+		break;
+	case nod_rec_version:
+		verb = "record_version";
+		break;
+	case nod_def_database:
+		verb = "define database";
+		break;
+	case nod_def_field:
+		verb = "define field";
+		break;
+	case nod_def_generator:
+		verb = "define generator";
+		break;
+	case nod_def_filter:
+		verb = "define filter";
+		break;
+	case nod_def_index:
+		verb = "define index";
+		break;
+	case nod_def_relation:
+		verb = "define relation";
+		break;
+	case nod_def_view:
+		verb = "define view";
+		break;
+	case nod_delete:
+		verb = "delete";
+		break;
+	case nod_del_field:
+		verb = "delete field";
+		break;
+	case nod_del_filter:
+		verb = "delete filter";
+		break;
+	case nod_del_generator:
+		verb = "delete generator";
+		break;
+	case nod_del_index:
+		verb = "delete index";
+		break;
+	case nod_del_relation:
+		verb = "delete relation";
+		break;
+	case nod_def_procedure:
+		verb = "define procedure";
+		break;
+	case nod_del_procedure:
+		verb = "delete porcedure";
+		break;
+	case nod_def_trigger:
+		verb = "define trigger";
+		break;
+	case nod_mod_trigger:
+		verb = "modify trigger";
+		break;
+	case nod_del_trigger:
+		verb = "delete trigger";
+		break;
+	case nod_divide:
+		verb = "divide";
+		break;
+	case nod_eql_all:
+	case nod_eql_any:
+	case nod_eql:
+		verb = "eql";
+		break;
+	case nod_erase:
+		verb = "erase";
+		break;
+	case nod_execute:
+		verb = "execute";
+		break;
+	case nod_exec_procedure:
+		verb = "execute procedure";
+		break;
+	case nod_exists:
+		verb = "exists";
+		break;
+	case nod_extract:
+		verb = "extract";
+		break;
+	case nod_fetch:
+		verb = "fetch";
+		break;
+	case nod_flag:
+		verb = "flag";
+		break;
+	case nod_for:
+		verb = "for";
+		break;
+	case nod_foreign:
+		verb = "foreign key";
+		break;
+	case nod_gen_id:
+		verb = "gen_id";
+		break;
+	case nod_geq_all:
+	case nod_geq_any:
+	case nod_geq:
+		verb = "geq";
+		break;
+	case nod_get_segment:
+		verb = "get segment";
+		break;
+	case nod_grant:
+		verb = "grant";
+		break;
+	case nod_gtr_all:
+	case nod_gtr_any:
+	case nod_gtr:
+		verb = "gtr";
+		break;
+	case nod_insert:
+		verb = "insert";
+		break;
+	case nod_join:
+		verb = "join";
+		break;
+	case nod_join_full:
+		verb = "join_full";
+		break;
+	case nod_join_left:
+		verb = "join_left";
+		break;
+	case nod_join_right:
+		verb = "join_right";
+		break;
+	case nod_leq_all:
+	case nod_leq_any:
+	case nod_leq:
+		verb = "leq";
+		break;
+	case nod_like:
+		verb = "like";
+		break;
+	case nod_list:
+		verb = "list";
+		break;
+	case nod_lss_all:
+	case nod_lss_any:
+	case nod_lss:
+		verb = "lss";
+		break;
+	case nod_max:
+		verb = "max";
+		break;
+	case nod_min:
+		verb = "min";
+		break;
+	case nod_missing:
+		verb = "missing";
+		break;
+	case nod_modify:
+		verb = "modify";
+		break;
+	case nod_mod_database:
+		verb = "modify database";
+		break;
+	case nod_mod_field:
+		verb = "modify field";
+		break;
+	case nod_mod_relation:
+		verb = "modify relation";
+		break;
+	case nod_multiply:
+		verb = "multiply";
+		break;
+	case nod_negate:
+		verb = "negate";
+		break;
+	case nod_neq_all:
+	case nod_neq_any:
+	case nod_neq:
+		verb = "neq";
+		break;
+	case nod_not:
+		verb = "not";
+		break;
+	case nod_null:
+		verb = "null";
+		break;
+	case nod_open:
+		verb = "open";
+		break;
+	case nod_or:
+		verb = "or";
+		break;
+	case nod_order:
+		verb = "order";
+		break;
+	case nod_parameter:
+		verb = "parameter";
+		break;
+	case nod_primary:
+		verb = "primary key";
+		break;
+	case nod_procedure_name:
+		verb = "procedure name";
+		break;
+	case nod_put_segment:
+		verb = "put segment";
+		break;
+	case nod_relation_name:
+		verb = "relation name";
+		break;
+	case nod_rel_proc_name:
+		verb = "rel/proc name";
+		break;
+	case nod_retrieve:
+		verb = "retrieve";
+		break;
+	case nod_return:
+		verb = "return";
+		break;
+	case nod_revoke:
+		verb = "revoke";
+		break;
+	case nod_rse:
+		verb = "rse";
+		break;
+	case nod_select:
+		verb = "select";
+		break;
+	case nod_select_expr:
+		verb = "select expr";
+		break;
+	case nod_starting:
+		verb = "starting";
+		break;
+	case nod_store:
+		verb = "store";
+		break;
+	case nod_substr:
+		verb = "substr";
+		break;
+	case nod_subtract:
+		verb = "subtract";
+		break;
+	case nod_total:
+		verb = "total";
+		break;
+	case nod_update:
+		verb = "update";
+		break;
+	case nod_union:
+		verb = "union";
+		break;
+	case nod_unique:
+		verb = "unique";
+		break;
+	case nod_upcase:
+		verb = "upcase";
+		break;
+	case nod_singular:
+		verb = "singular";
+		break;
+	case nod_user_name:
+		verb = "user_name";
+		break;
+	case nod_values:
+		verb = "values";
+		break;
+	case nod_via:
+		verb = "via";
+		break;
+
+	case nod_add2:
+		verb = "add2";
+		break;
+	case nod_agg_total2:
+		verb = "agg_total2";
+		break;
+	case nod_divide2:
+		verb = "divide2";
+		break;
+	case nod_gen_id2:
+		verb = "gen_id2";
+		break;
+	case nod_multiply2:
+		verb = "multiply2";
+		break;
+	case nod_subtract2:
+		verb = "subtract2";
+		break;
+
+	case nod_aggregate:
+		verb = "aggregate";
+		PRINTF("%s%s\n", buffer, verb);
+		context = (CTX) node->nod_arg[e_agg_context];
+		PRINTF("%s   context %d\n", buffer, context->ctx_context);
+		if ((map = context->ctx_map) != NULL)
+			PRINTF("%s   map\n", buffer);
+		while (map) {
+			PRINTF("%s      position %d\n", buffer, map->map_position);
+			DSQL_pretty(map->map_node, column + 2);
+			map = map->map_next;
+		}
+		DSQL_pretty(node->nod_arg[e_agg_group], column + 1);
+		DSQL_pretty(node->nod_arg[e_agg_rse], column + 1);
+		FREE_MEM_RETURN;
+
+	case nod_constant:
+		verb = "constant";
+		if (node->nod_desc.dsc_address) {
+			if (node->nod_desc.dsc_dtype == dtype_text)
+				sprintf(s, "constant \"%s\"", node->nod_desc.dsc_address);
+			else
+				sprintf(s, "constant %d",
+						*(SLONG *) (node->nod_desc.dsc_address));
+			verb = s;
+		}
+		break;
+
+	case nod_field:
+		context = (CTX) node->nod_arg[e_fld_context];
+		relation = context->ctx_relation;
+		field = (FLD) node->nod_arg[e_fld_field];
+		PRINTF("%sfield %s.%s, context %d\n", buffer,
+			   relation->rel_name, field->fld_name, context->ctx_context);
+		FREE_MEM_RETURN;
+
+	case nod_field_name:
+		PRINTF("%sfield name: \"", buffer);
+		string = (STR) node->nod_arg[e_fln_context];
+		if (string)
+			PRINTF("%s.", string->str_data);
+		string = (STR) node->nod_arg[e_fln_name];
+		PRINTF("%s\"\n", string->str_data);
+		FREE_MEM_RETURN;
+
+	case nod_map:
+		verb = "map";
+		PRINTF("%s%s\n", buffer, verb);
+		context = (CTX) node->nod_arg[e_map_context];
+		PRINTF("%s   context %d\n", buffer, context->ctx_context);
+		for (map = (MAP) node->nod_arg[e_map_map]; map; map = map->map_next) {
+			PRINTF("%s   position %d\n", buffer, map->map_position);
+			DSQL_pretty(map->map_node, column + 1);
+		}
+		FREE_MEM_RETURN;
+
+	case nod_position:
+		PRINTF("%sposition %d\n", buffer, *ptr);
+		FREE_MEM_RETURN;
+
+	case nod_relation:
+		context = (CTX) node->nod_arg[e_rel_context];
+		relation = context->ctx_relation;
+		PRINTF("%srelation %s, context %d\n",
+			   buffer, relation->rel_name, context->ctx_context);
+		FREE_MEM_RETURN;
+
+	case nod_variable:
+		variable = (VAR) node->nod_arg[e_var_variable];
+		PRINTF("%svariable %s %d\n", buffer, variable->var_name);
+		FREE_MEM_RETURN;
+
+	case nod_var_name:
+		PRINTF("%svariable name: \"", buffer);
+		string = (STR) node->nod_arg[e_vrn_name];
+		PRINTF("%s\"\n", string->str_data);
+		FREE_MEM_RETURN;
+
+	case nod_udf:
+		PRINTF("%sfunction: \"%s\"\n", buffer, *ptr++);
+		if (node->nod_count == 2)
+			DSQL_pretty(*ptr, column + 1);
+		FREE_MEM_RETURN;
+
+	default:
+		sprintf(s, "unknown type %d", node->nod_type);
+		verb = s;
+	}
+
+	if (node->nod_desc.dsc_dtype)
+		PRINTF("%s%s (%d,%d,%x)\n",
+			   buffer, verb,
+			   node->nod_desc.dsc_dtype,
+			   node->nod_desc.dsc_length, node->nod_desc.dsc_address);
+	else
+		PRINTF("%s%s\n", buffer, verb);
+	++column;
+
+	while (ptr < end)
+		DSQL_pretty(*ptr++, column);
+
+	FREE_MEM_RETURN;
+}
+#endif
+
+
+static void cleanup( void *arg)
+{
+/**************************************
+ *
+ *	c l e a n u p 
+ *
+ **************************************
+ *
+ * Functional Description
+ *	exit handler for local dsql image
+ *
+ **************************************/
+
+	if (init_flag) {
+		init_flag = FALSE;
+		databases = 0;
+		open_cursors = 0;
+		HSHD_fini();
+		ALLD_fini();
+	}
+}
+
+
+static void cleanup_database( SLONG ** db_handle, SLONG flag)
+{
+/**************************************
+ *
+ *	c l e a n u p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clean up DSQL globals.  
+ *
+ * N.B., the cleanup handlers (registered with gds__database_cleanup)
+ * are called outside of the ISC thread mechanism...
+ *
+ * These do not make use of the context at this time.
+ *
+ **************************************/
+	DBB *dbb_ptr, dbb;
+	STATUS user_status[ISC_STATUS_LENGTH];
+	USHORT i;
+
+	if (!db_handle || !databases)
+		return;
+
+	THD_MUTEX_LOCK(&databases_mutex);
+	for (dbb_ptr = &databases; dbb = *dbb_ptr; dbb_ptr = &dbb->dbb_next)
+		if (dbb->dbb_database_handle == *db_handle) {
+			*dbb_ptr = dbb->dbb_next;
+			dbb->dbb_next = NULL;
+			break;
+		}
+
+	if (dbb) {
+		if (flag) {
+			THREAD_EXIT;
+			for (i = 0; i < irq_MAX; i++)
+				if (dbb->dbb_requests[i])
+					isc_release_request(user_status,
+										reinterpret_cast <
+										void
+										**>(GDS_REF(dbb->dbb_requests[i])));
+			THREAD_ENTER;
+		}
+		HSHD_finish(dbb);
+		ALLD_rlpool(dbb->dbb_pool);
+	}
+
+	if (!databases) {
+		if (!databases) {
+			cleanup(0);
+			gds__unregister_cleanup(cleanup, 0);
+		}
+	}
+	THD_MUTEX_UNLOCK(&databases_mutex);
+}
+
+
+static void cleanup_transaction( SLONG * tra_handle, SLONG arg)
+{
+/**************************************
+ *
+ *	c l e a n u p _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clean up after a transaction.  This means
+ *	closing all open cursors.
+ *
+ **************************************/
+	STATUS local_status[ISC_STATUS_LENGTH];
+	OPN *open_cursor_ptr, open_cursor;
+
+/* find this transaction/request pair in the list of pairs */
+
+	THD_MUTEX_LOCK(&cursors_mutex);
+	open_cursor_ptr = &open_cursors;
+	while (open_cursor = *open_cursor_ptr)
+		if (open_cursor->opn_transaction == tra_handle) {
+			/* Found it, close the cursor but don't remove it from the list.
+			   The close routine will have done that. */
+
+			THD_MUTEX_UNLOCK(&cursors_mutex);
+			/* 
+			 * we are expected to be within the subsystem when we do this
+			 * cleanup, for now do a thread_enter/thread_exit here. 
+			 * Note that the function GDS_DSQL_FREE() calls the local function.
+			 * Over the long run, it might be better to move the subsystem_exit() 
+			 * call in why.c below the cleanup handlers. smistry 9-27-98
+			 */
+			THREAD_ENTER;
+			GDS_DSQL_FREE(local_status, &open_cursor->opn_request,
+						  DSQL_close);
+			THREAD_EXIT;
+			THD_MUTEX_LOCK(&cursors_mutex);
+			open_cursor_ptr = &open_cursors;
+		}
+		else
+			open_cursor_ptr = &open_cursor->opn_next;
+
+	THD_MUTEX_UNLOCK(&cursors_mutex);
+}
+
+
+static void close_cursor( REQ request)
+{
+/**************************************
+ *
+ *	c l o s e _ c u r s o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close an open cursor.
+ *
+ **************************************/
+	OPN *open_cursor_ptr, open_cursor;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+
+	if (request->req_handle) {
+		THREAD_EXIT;
+		if (request->req_type == REQ_GET_SEGMENT ||
+			request->req_type == REQ_PUT_SEGMENT)
+				isc_close_blob(status_vector,
+							   reinterpret_cast <
+							   void **>(GDS_REF(request->req_handle)));
+		else
+			isc_unwind_request(status_vector,
+							   reinterpret_cast <
+							   void **>(GDS_REF(request->req_handle)), 0);
+		THREAD_ENTER;
+	}
+
+	request->req_flags &= ~(REQ_cursor_open | REQ_embedded_sql_cursor);
+
+/* Remove the open cursor from the list */
+
+	THD_MUTEX_LOCK(&cursors_mutex);
+	open_cursor_ptr = &open_cursors;
+	for (; open_cursor = *open_cursor_ptr;
+		 open_cursor_ptr =
+		 &open_cursor->opn_next) if (open_cursor ==
+									 request->req_open_cursor) {
+			*open_cursor_ptr = open_cursor->opn_next;
+			break;
+		}
+
+	THD_MUTEX_UNLOCK(&cursors_mutex);
+
+	if (open_cursor) {
+		ALLD_release(reinterpret_cast<FRB>(open_cursor));
+		request->req_open_cursor = NULL;
+	}
+}
+
+
+static USHORT convert( SLONG number, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	c o n v e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a number to VAX form -- least significant bytes first.
+ *	Return the length.
+ *
+ **************************************/
+	SLONG n;
+	SCHAR *p;
+
+#ifdef VAX
+	n = number;
+	p = (SCHAR *) & n;
+	*buffer++ = *p++;
+	*buffer++ = *p++;
+	*buffer++ = *p++;
+	*buffer++ = *p++;
+
+#else
+
+	p = (SCHAR *) (&number + 1);
+	*buffer++ = *--p;
+	*buffer++ = *--p;
+	*buffer++ = *--p;
+	*buffer++ = *--p;
+
+#endif
+
+	return 4;
+}
+
+
+static STATUS error(void)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An error returned has been trapped.
+ *
+ **************************************/
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	return tdsql->tsql_status[1];
+}
+
+
+static void execute_blob(	REQ		request,
+							USHORT	in_blr_length,
+							UCHAR*	in_blr,
+							USHORT	in_msg_length,
+							UCHAR*	in_msg,
+							USHORT	out_blr_length,
+							UCHAR*	out_blr,
+							USHORT	out_msg_length,
+							UCHAR*	out_msg)
+{
+/**************************************
+ *
+ *	e x e c u t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open or create a blob.
+ *
+ **************************************/
+	BLB blob;
+	SSHORT filter;
+	USHORT bpb_length;
+	GDS__QUAD *blob_id;
+	UCHAR bpb[24], *p;
+	PAR parameter, null;
+	STATUS s;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	blob = request->req_blob;
+	map_in_out(request, blob->blb_open_in_msg, in_blr_length, in_blr,
+			   in_msg_length, in_msg);
+
+	p = bpb;
+	*p++ = gds_bpb_version1;
+	if (filter = filter_sub_type(request, blob->blb_to)) {
+		*p++ = gds_bpb_target_type;
+		*p++ = 2;
+		*p++ = static_cast<UCHAR>(filter);
+		*p++ = filter >> 8;
+	}
+	if (filter = filter_sub_type(request, blob->blb_from)) {
+		*p++ = gds_bpb_source_type;
+		*p++ = 2;
+		*p++ = static_cast<UCHAR>(filter);
+		*p++ = filter >> 8;
+	}
+	bpb_length = p - bpb;
+	if (bpb_length == 1)
+		bpb_length = 0;
+
+	parameter = blob->blb_blob_id;
+	null = parameter->par_null;
+
+	if (request->req_type == REQ_GET_SEGMENT) {
+		blob_id = (GDS__QUAD *) parameter->par_desc.dsc_address;
+		if (null && *((SSHORT *) null->par_desc.dsc_address) < 0)
+			memset(blob_id, 0, sizeof(GDS__QUAD));
+		THREAD_EXIT;
+		s = isc_open_blob2(tdsql->tsql_status,
+						   reinterpret_cast<void**>(GDS_REF(request->req_dbb->dbb_database_handle)),
+						   reinterpret_cast<void**>(GDS_REF(request->req_trans)),
+						   reinterpret_cast<void **>(GDS_REF(request->req_handle)),
+						   GDS_VAL(blob_id),
+						   bpb_length,
+						   reinterpret_cast<UCHAR*>(bpb));
+		THREAD_ENTER;
+		if (s)
+			punt();
+	}
+	else {
+		request->req_handle = NULL;
+		blob_id = (GDS__QUAD *) parameter->par_desc.dsc_address;
+		memset(blob_id, 0, sizeof(GDS__QUAD));
+		THREAD_EXIT;
+		s = isc_create_blob2(tdsql->tsql_status,
+							 reinterpret_cast <
+							 void
+							 **>(GDS_REF
+								 (request->req_dbb->dbb_database_handle)),
+							 reinterpret_cast <
+							 void **>(GDS_REF(request->req_trans)),
+							 reinterpret_cast <
+							 void **>(GDS_REF(request->req_handle)),
+							 GDS_VAL(blob_id), bpb_length,
+							 reinterpret_cast < char *>(bpb));
+		THREAD_ENTER;
+		if (s)
+			punt();
+		map_in_out(NULL, blob->blb_open_out_msg, out_blr_length, out_blr,
+				   out_msg_length, out_msg);
+	}
+}
+
+
+static STATUS execute_request(REQ				request,
+							  isc_tr_handle*	trans_handle,
+							  USHORT			in_blr_length,
+							  UCHAR*			in_blr,
+							  USHORT			in_msg_length,
+							  UCHAR*			in_msg,
+							  USHORT			out_blr_length,
+							  UCHAR*			out_blr,
+							  USHORT			out_msg_length,
+							  UCHAR*			out_msg,
+							  USHORT			singleton)
+{
+/**************************************
+ *
+ *	e x e c u t e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic SQL statement.
+ *
+ **************************************/
+	MSG message;
+	USHORT use_msg_length;
+	UCHAR *use_msg;
+	SCHAR buffer[20];
+	STATUS s, local_status[ISC_STATUS_LENGTH];
+	TSQL tdsql;
+	STATUS return_status;
+
+	tdsql = GET_THREAD_DATA;
+
+	request->req_trans = (int *) *trans_handle;
+	return_status = SUCCESS;
+
+	switch (request->req_type) {
+	case REQ_START_TRANS:
+		THREAD_EXIT;
+		s = isc_start_transaction(	tdsql->tsql_status,
+									reinterpret_cast<void**>(&request->req_trans),
+									1,
+									&request->req_dbb->dbb_database_handle,
+									(int)(request->req_blr - request->req_blr_string->str_data),
+									request->req_blr_string->str_data);
+		THREAD_ENTER;
+		if (s)
+			punt();
+		*trans_handle = request->req_trans;
+		return SUCCESS;
+
+	case REQ_COMMIT:
+		THREAD_EXIT;
+		s = isc_commit_transaction(tdsql->tsql_status,
+								   reinterpret_cast <
+								   void **>(&request->req_trans));
+		THREAD_ENTER;
+		if (s)
+			punt();
+		*trans_handle = NULL;
+		return SUCCESS;
+
+	case REQ_COMMIT_RETAIN:
+		THREAD_EXIT;
+		s = isc_commit_retaining(tdsql->tsql_status,
+								 reinterpret_cast <
+								 void **>(&request->req_trans));
+		THREAD_ENTER;
+		if (s)
+			punt();
+		return SUCCESS;
+
+	case REQ_ROLLBACK:
+		THREAD_EXIT;
+		s = isc_rollback_transaction(tdsql->tsql_status,
+									 reinterpret_cast <
+									 void **>(&request->req_trans));
+		THREAD_ENTER;
+		if (s)
+			punt();
+		*trans_handle = NULL;
+		return SUCCESS;
+
+	case REQ_DDL:
+		DDL_execute(request);
+		return SUCCESS;
+
+	case REQ_GET_SEGMENT:
+		execute_blob(	request,
+						in_blr_length,
+						in_blr,
+						in_msg_length,
+						in_msg,
+						out_blr_length,
+						out_blr,
+						out_msg_length,
+						out_msg);
+		return SUCCESS;
+
+	case REQ_PUT_SEGMENT:
+		execute_blob(	request,
+						in_blr_length,
+						in_blr,
+						in_msg_length,
+						in_msg,
+						out_blr_length,
+						out_blr,
+						out_msg_length,
+						out_msg);
+		return SUCCESS;
+
+	case REQ_EXEC_PROCEDURE:
+		if (message = (MSG) request->req_send) {
+			map_in_out(request, message, in_blr_length, in_blr,
+					   in_msg_length, in_msg);
+			in_msg_length = message->msg_length;
+			in_msg = message->msg_buffer;
+		}
+		else {
+			in_msg_length = 0;
+			in_msg = NULL;
+		}
+		if (out_msg_length && (message = (MSG) request->req_receive)) {
+			if (out_blr_length)
+				parse_blr(out_blr_length, out_blr, out_msg_length,
+						  message->msg_parameters);
+			use_msg_length = message->msg_length;
+			use_msg = message->msg_buffer;
+		}
+		else {
+			use_msg_length = 0;
+			use_msg = NULL;
+		}
+		THREAD_EXIT;
+		s = isc_transact_request(tdsql->tsql_status,
+								 reinterpret_cast <
+								 void **>(&request->req_dbb->
+										  dbb_database_handle),
+								 reinterpret_cast <
+								 void **>(&request->req_trans),
+								 (USHORT) (request->req_blr -
+										   request->req_blr_string->str_data),
+								 reinterpret_cast <
+								 char *>(request->req_blr_string->str_data),
+								 in_msg_length,
+								 reinterpret_cast < char *>(in_msg),
+								 use_msg_length,
+								 reinterpret_cast < char *>(use_msg));
+		THREAD_ENTER;
+
+		if (s)
+			punt();
+		if (out_msg_length && message)
+			map_in_out(NULL, message, 0, out_blr, out_msg_length, out_msg);
+		return SUCCESS;
+
+	default:
+		/* Catch invalid request types */
+		assert(FALSE);
+		/* Fall into ... */
+
+	case REQ_SELECT:
+	case REQ_SELECT_UPD:
+	case REQ_INSERT:
+	case REQ_DELETE:
+	case REQ_UPDATE:
+	case REQ_UPDATE_CURSOR:
+	case REQ_DELETE_CURSOR:
+	case REQ_EMBED_SELECT:
+	case REQ_SET_GENERATOR:
+		break;
+	}
+
+/* If there is no data required, just start the request */
+
+	if (!(message = (MSG) request->req_send)) {
+		THREAD_EXIT;
+		s = isc_start_request(tdsql->tsql_status,
+							  reinterpret_cast <
+							  void **>(&request->req_handle),
+							  reinterpret_cast <
+							  void **>(&request->req_trans), 0);
+		THREAD_ENTER;
+		if (s)
+			punt();
+	}
+	else {
+		map_in_out(request, message, in_blr_length, in_blr, in_msg_length,
+				   in_msg);
+
+		THREAD_EXIT;
+		s = isc_start_and_send(tdsql->tsql_status,
+							   reinterpret_cast <
+							   void **>(&request->req_handle),
+							   reinterpret_cast <
+							   void **>(&request->req_trans),
+							   message->msg_number, message->msg_length,
+							   message->msg_buffer, 0);
+		THREAD_ENTER;
+		if (s)
+			punt();
+	}
+
+	if (out_msg_length && (message = (MSG) request->req_receive)) {
+		/* Insure that the blr for the message is parsed, regardless of
+		   whether anything is found by the call to receive. */
+
+		if (out_blr_length)
+			parse_blr(out_blr_length, out_blr, out_msg_length,
+					  message->msg_parameters);
+
+		THREAD_EXIT;
+		s = isc_receive(tdsql->tsql_status,
+						reinterpret_cast < void **>(&request->req_handle),
+						message->msg_number,
+						message->msg_length, message->msg_buffer, 0);
+		THREAD_ENTER;
+		if (s)
+			punt();
+
+		map_in_out(NULL, message, 0, out_blr, out_msg_length, out_msg);
+
+		/* if this is a singleton select, make sure there's in fact one record */
+
+		if (singleton) {
+			UCHAR *message_buffer;
+			USHORT counter;
+
+			/* Create a temp message buffer and try two more receives.
+			   If both succeed then the first is the next record and the
+			   second is either another record or the end of record message.
+			   In either case, there's more than one record. */
+
+			message_buffer = ALLD_malloc((ULONG) message->msg_length);
+			s = 0;
+			THREAD_EXIT;
+			for (counter = 0; counter < 2 && !s; counter++) {
+				s = isc_receive(local_status,
+								reinterpret_cast <
+								void **>(&request->req_handle),
+								message->msg_number, message->msg_length,
+								message_buffer, 0);
+			}
+			THREAD_ENTER;
+			ALLD_free(reinterpret_cast < SCHAR * >(message_buffer));
+
+			/* two successful receives means more than one record
+			   a req_sync error on the first pass above means no records
+			   a non-req_sync error on any of the passes above is an error */
+
+			if (!s) {
+				tdsql->tsql_status[0] = gds_arg_gds;
+				tdsql->tsql_status[1] = gds_sing_select_err;
+				tdsql->tsql_status[2] = gds_arg_end;
+				return_status = gds_sing_select_err;
+			}
+			else if (s == gds_req_sync && counter == 1) {
+				tdsql->tsql_status[0] = gds_arg_gds;
+				tdsql->tsql_status[1] = gds_stream_eof;
+				tdsql->tsql_status[2] = gds_arg_end;
+				return_status = gds_stream_eof;
+			}
+			else if (s != gds_req_sync)
+				punt();
+		}
+	}
+
+	if (!(request->req_dbb->dbb_flags & DBB_v3)) {
+		if (request->req_type == REQ_UPDATE_CURSOR) {
+			GDS_DSQL_SQL_INFO(local_status, &request,
+							  sizeof(sql_records_info),
+							  const_cast < char *>(sql_records_info),
+							  sizeof(buffer), buffer);
+			if (!request->req_updates)
+				ERRD_post(isc_sqlerr, isc_arg_number, (SLONG) - 913,
+						  isc_arg_gds, isc_deadlock, isc_arg_gds,
+						  isc_update_conflict, 0);
+		}
+		else if (request->req_type == REQ_DELETE_CURSOR) {
+			GDS_DSQL_SQL_INFO(local_status, &request,
+							  sizeof(sql_records_info),
+							  const_cast < char *>(sql_records_info),
+							  sizeof(buffer), buffer);
+			if (!request->req_deletes)
+				ERRD_post(isc_sqlerr, isc_arg_number, (SLONG) - 913,
+						  isc_arg_gds, isc_deadlock, isc_arg_gds,
+						  isc_update_conflict, 0);
+		}
+	}
+	return return_status;
+}
+
+
+static SSHORT filter_sub_type( REQ request, NOD node)
+{
+/**************************************
+ *
+ *	f i l t e r _ s u b _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine the sub_type to use in filtering
+ *	a blob.
+ *
+ **************************************/
+	PAR parameter, null;
+
+	if (node->nod_type == nod_constant)
+		return (SSHORT) node->nod_arg[0];
+
+	parameter = (PAR) node->nod_arg[e_par_parameter];
+	if (null = parameter->par_null)
+		if (*((SSHORT *) null->par_desc.dsc_address))
+			return 0;
+
+	return *((SSHORT *) parameter->par_desc.dsc_address);
+}
+
+
+static BOOLEAN get_indices(
+						   SSHORT * explain_length_ptr,
+						   SCHAR ** explain_ptr,
+						   SSHORT * plan_length_ptr, SCHAR ** plan_ptr)
+{
+/**************************************
+ *
+ *	g e t _ i n d i c e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve the indices from the index tree in 
+ *	the request info buffer, and print them out
+ *	in the plan buffer.
+ *
+ **************************************/
+	SCHAR *explain, *plan;
+	SSHORT explain_length, plan_length;
+	USHORT length;
+
+	explain_length = *explain_length_ptr;
+	explain = *explain_ptr;
+	plan_length = *plan_length_ptr;
+	plan = *plan_ptr;
+
+/* go through the index tree information, just
+   extracting the indices used */
+
+	explain_length--;
+	switch (*explain++) {
+	case gds_info_rsb_and:
+	case gds_info_rsb_or:
+		if (get_indices(&explain_length, &explain, &plan_length, &plan))
+			return FAILURE;
+		if (get_indices(&explain_length, &explain, &plan_length, &plan))
+			return FAILURE;
+		break;
+
+	case gds_info_rsb_dbkey:
+		break;
+
+	case gds_info_rsb_index:
+		explain_length--;
+		length = *explain++;
+
+		/* if this isn't the first index, put out a comma */
+
+		if (plan[-1] != '(' && plan[-1] != ' ') {
+			if (--plan_length < 0)
+				return FAILURE;
+			*plan++ = ',';
+		}
+
+		/* now put out the index name */
+
+		if ((plan_length -= length) < 0)
+			return FAILURE;
+		explain_length -= length;
+		while (length--)
+			*plan++ = *explain++;
+		break;
+
+	default:
+		return FAILURE;
+	}
+
+	*explain_length_ptr = explain_length;
+	*explain_ptr = explain;
+	*plan_length_ptr = plan_length;
+	*plan_ptr = plan;
+
+	return SUCCESS;
+}
+
+
+static USHORT get_plan_info(
+							REQ request,
+							SSHORT buffer_length, SCHAR ** buffer)
+{
+/**************************************
+ *
+ *	g e t _ p l a n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the access plan for the request and turn
+ *	it into a textual representation suitable for
+ *	human reading.
+ *
+ **************************************/
+	SCHAR explain_buffer[256], *explain, *plan, *explain_ptr, *buffer_ptr;
+	SSHORT explain_length, i;
+	USHORT join_count = 0, level = 0;
+	TSQL tdsql;
+	STATUS s;
+
+	tdsql = GET_THREAD_DATA;
+	memset(explain_buffer, 0, sizeof(explain_buffer));
+	explain_ptr = explain_buffer;
+	buffer_ptr = *buffer;
+
+/* get the access path info for the underlying request from the engine */
+
+	THREAD_EXIT;
+	s = isc_request_info(tdsql->tsql_status,
+						 reinterpret_cast < void **>(&request->req_handle),
+						 0,
+						 sizeof(explain_info),
+						 const_cast < char *>(explain_info),
+						 sizeof(explain_buffer), explain_buffer);
+	THREAD_ENTER;
+
+	if (s)
+		return 0;
+	explain = explain_buffer;
+
+	if (*explain == gds_info_truncated) {
+		explain_ptr = (SCHAR *) gds__alloc(BUFFER_XLARGE);
+
+		THREAD_EXIT;
+		s = isc_request_info(tdsql->tsql_status,
+							 reinterpret_cast <
+							 void **>(&request->req_handle), 0,
+							 sizeof(explain_info),
+							 const_cast < char *>(explain_info),
+							 BUFFER_XLARGE, explain_ptr);
+		THREAD_ENTER;
+
+		if (s)
+			return 0;
+	}
+
+	for (i = 0; i < 2; i++) {
+		explain = explain_ptr;
+		if (*explain++ != gds_info_access_path)
+			return 0;
+
+		explain_length = (UCHAR) * explain++;
+		explain_length += (UCHAR) (*explain++) << 8;
+
+		plan = buffer_ptr;
+
+		/* keep going until we reach the end of the explain info */
+
+		while (explain_length > 0 && buffer_length > 0)
+			if (get_rsb_item
+				(&explain_length, &explain, &buffer_length, &plan,
+				 &join_count, &level)) {
+				/* assume we have run out of room in the buffer, try again with a larger one */
+
+				buffer_ptr =
+					reinterpret_cast < char *>(gds__alloc(BUFFER_XLARGE));
+				buffer_length = BUFFER_XLARGE;
+				break;
+			}
+
+		if (buffer_ptr == *buffer)
+			break;
+	}
+
+
+	if (explain_ptr != explain_buffer)
+		gds__free(explain_ptr);
+
+	*buffer = buffer_ptr;
+	return plan - *buffer;
+}
+
+
+static USHORT get_request_info(
+							   REQ request,
+							   SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g e t _ r e q u e s t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the records updated/deleted for record
+ *
+ **************************************/
+	SCHAR *data;
+	UCHAR p;
+	TSQL tdsql;
+	STATUS s;
+	USHORT data_length;
+
+	tdsql = GET_THREAD_DATA;
+
+/* get the info for the request from the engine */
+
+	THREAD_EXIT;
+	s = isc_request_info(tdsql->tsql_status,
+						 reinterpret_cast < void **>(&request->req_handle),
+						 0,
+						 sizeof(record_info),
+						 const_cast < char *>(record_info),
+						 buffer_length, buffer);
+	THREAD_ENTER;
+
+	if (s)
+		return 0;
+
+	data = buffer;
+
+	request->req_updates = request->req_deletes = 0;
+	request->req_selects = request->req_inserts = 0;
+
+	while ((p = *data++) != gds_info_end) {
+		data_length =
+			static_cast < USHORT >
+			(gds__vax_integer(reinterpret_cast < UCHAR * >(data), 2));
+		data += 2;
+
+		switch (p) {
+		case gds_info_req_update_count:
+			request->req_updates =
+				gds__vax_integer(reinterpret_cast < UCHAR * >(data),
+								 data_length);
+			break;
+
+		case gds_info_req_delete_count:
+			request->req_deletes =
+				gds__vax_integer(reinterpret_cast < UCHAR * >(data),
+								 data_length);
+			break;
+
+		case gds_info_req_select_count:
+			request->req_selects =
+				gds__vax_integer(reinterpret_cast < UCHAR * >(data),
+								 data_length);
+			break;
+
+		case gds_info_req_insert_count:
+			request->req_inserts =
+				gds__vax_integer(reinterpret_cast < UCHAR * >(data),
+								 data_length);
+			break;
+
+		default:
+			break;
+		};
+
+		data += data_length;
+	}
+
+	return data - buffer;
+}
+
+
+static BOOLEAN get_rsb_item(
+							SSHORT * explain_length_ptr,
+							SCHAR ** explain_ptr,
+							SSHORT * plan_length_ptr,
+SCHAR ** plan_ptr, USHORT * parent_join_count, USHORT * level_ptr)
+{
+/**************************************
+ *
+ *	g e t _ r s b _ i t e m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Use recursion to print out a reverse-polish
+ *	access plan of joins and join types.
+ *
+ **************************************/
+	SCHAR *explain, *plan;
+	CONST SCHAR *p;
+	SSHORT explain_length, plan_length, rsb_type, length;
+	USHORT join_count, union_count, union_level, union_join_count, save_level;
+
+	explain_length = *explain_length_ptr;
+	explain = *explain_ptr;
+	plan_length = *plan_length_ptr;
+	plan = *plan_ptr;
+
+	explain_length--;
+	switch (*explain++) {
+	case gds_info_rsb_begin:
+		if (!*level_ptr) {
+			/* put out the PLAN prefix */
+
+			p = "\nPLAN ";
+			if ((plan_length -= strlen(p)) < 0)
+				return FAILURE;
+			while (*p)
+				*plan++ = *p++;
+		}
+
+		(*level_ptr)++;
+		break;
+
+	case gds_info_rsb_end:
+		(*level_ptr)--;
+		break;
+
+	case gds_info_rsb_relation:
+
+		/* for the single relation case, initiate 
+		   the relation with a parenthesis */
+
+		if (!*parent_join_count) {
+			if (--plan_length < 0)
+				return FAILURE;
+			*plan++ = '(';
+		}
+
+		/* if this isn't the first relation, put out a comma */
+
+		if (plan[-1] != '(') {
+			if (--plan_length < 0)
+				return FAILURE;
+			*plan++ = ',';
+		}
+
+		/* put out the relation name */
+
+		explain_length--;
+		explain_length -= (length = (UCHAR) * explain++);
+		if ((plan_length -= length) < 0)
+			return FAILURE;
+		while (length--)
+			*plan++ = *explain++;
+		break;
+
+	case gds_info_rsb_type:
+		explain_length--;
+		switch (rsb_type = *explain++) {
+			/* for stream types which have multiple substreams, print out
+			   the stream type and recursively print out the substreams so
+			   we will know where to put the parentheses */
+
+		case gds_info_rsb_union:
+
+			/* put out all the substreams of the join */
+
+			explain_length--;
+			union_count = (USHORT) * explain++ - 1;
+
+			/* finish the first union member */
+
+			union_level = *level_ptr;
+			union_join_count = 0;
+			while (TRUE) {
+				if (get_rsb_item
+					(&explain_length, &explain, &plan_length, &plan,
+					 &union_join_count, &union_level)) return FAILURE;
+				if (union_level == *level_ptr)
+					break;
+			}
+
+			/* for the rest of the members, start the level at 0 so each
+			   gets its own "PLAN ... " line */
+
+			while (union_count) {
+				union_join_count = 0;
+				union_level = 0;
+				while (TRUE) {
+					if (get_rsb_item
+						(&explain_length, &explain, &plan_length, &plan,
+						 &union_join_count, &union_level)) return FAILURE;
+					if (!union_level)
+						break;
+				}
+				union_count--;
+			}
+			break;
+
+		case gds_info_rsb_cross:
+		case gds_info_rsb_left_cross:
+		case gds_info_rsb_merge:
+
+			/* if this join is itself part of a join list, 
+			   but not the first item, then put out a comma */
+
+			if (*parent_join_count && plan[-1] != '(') {
+				if (--plan_length < 0)
+					return FAILURE;
+				*plan++ = ',';
+			}
+
+			/* put out the join type */
+
+			if (rsb_type == gds_info_rsb_cross ||
+				rsb_type == gds_info_rsb_left_cross) p = "JOIN (";
+			else
+				p = "MERGE (";
+
+			if ((plan_length -= strlen(p)) < 0)
+				return FAILURE;
+			while (*p)
+				*plan++ = *p++;
+
+			/* put out all the substreams of the join */
+
+			explain_length--;
+			join_count = (USHORT) * explain++;
+			while (join_count)
+				if (get_rsb_item(&explain_length, &explain, &plan_length,
+								 &plan, &join_count, level_ptr))
+					return FAILURE;
+
+			/* put out the final parenthesis for the join */
+
+			if (--plan_length < 0)
+				return FAILURE;
+			else
+				*plan++ = ')';
+
+			/* this qualifies as a stream, so decrement the join count */
+
+			if (*parent_join_count)
+				-- * parent_join_count;
+			break;
+
+		case gds_info_rsb_indexed:
+		case gds_info_rsb_navigate:
+		case gds_info_rsb_sequential:
+		case gds_info_rsb_ext_sequential:
+		case gds_info_rsb_ext_indexed:
+			if (rsb_type == gds_info_rsb_indexed ||
+				rsb_type == gds_info_rsb_ext_indexed) p = " INDEX (";
+			else if (rsb_type == gds_info_rsb_navigate)
+				p = " ORDER ";
+			else
+				p = " NATURAL";
+
+			if ((plan_length -= strlen(p)) < 0)
+				return FAILURE;
+			while (*p)
+				*plan++ = *p++;
+
+			/* print out additional index information */
+
+			if (rsb_type == gds_info_rsb_indexed ||
+				rsb_type == gds_info_rsb_navigate ||
+				rsb_type == gds_info_rsb_ext_indexed) {
+				if (get_indices
+					(&explain_length, &explain, &plan_length,
+					 &plan)) return FAILURE;
+			}
+
+			if (rsb_type == gds_info_rsb_indexed ||
+				rsb_type == gds_info_rsb_ext_indexed) {
+				if (--plan_length < 0)
+					return FAILURE;
+				*plan++ = ')';
+			}
+
+			/* detect the end of a single relation and put out a final parenthesis */
+
+			if (!*parent_join_count)
+				if (--plan_length < 0)
+					return FAILURE;
+				else
+					*plan++ = ')';
+
+			/* this also qualifies as a stream, so decrement the join count */
+
+			if (*parent_join_count)
+				-- * parent_join_count;
+			break;
+
+		case gds_info_rsb_sort:
+
+			/* if this sort is on behalf of a union, don't bother to 
+			   print out the sort, because unions handle the sort on all 
+			   substreams at once, and a plan maps to each substream 
+			   in the union, so the sort doesn't really apply to a particular plan */
+
+			if (explain_length > 2 &&
+				(explain[0] == gds_info_rsb_begin) &&
+				(explain[1] == gds_info_rsb_type) &&
+				(explain[2] == gds_info_rsb_union)) break;
+
+			/* if this isn't the first item in the list, put out a comma */
+
+			if (*parent_join_count && plan[-1] != '(') {
+				if (--plan_length < 0)
+					return FAILURE;
+				*plan++ = ',';
+			}
+
+			p = "SORT (";
+
+			if ((plan_length -= strlen(p)) < 0)
+				return FAILURE;
+			while (*p)
+				*plan++ = *p++;
+
+			/* the rsb_sort should always be followed by a begin...end block, 
+			   allowing us to include everything inside the sort in parentheses */
+
+			save_level = *level_ptr;
+			while (explain_length > 0 && plan_length > 0) {
+				if (get_rsb_item(&explain_length, &explain, &plan_length,
+								 &plan, parent_join_count, level_ptr))
+					return FAILURE;
+				if (*level_ptr == save_level)
+					break;
+			}
+
+			if (--plan_length < 0)
+				return FAILURE;
+			*plan++ = ')';
+			break;
+
+		default:
+			break;
+		}
+		break;
+
+	default:
+		break;
+	}
+
+	*explain_length_ptr = explain_length;
+	*explain_ptr = explain;
+	*plan_length_ptr = plan_length;
+	*plan_ptr = plan;
+
+	return SUCCESS;
+}
+
+
+static DBB init( SLONG ** db_handle)
+{
+/**************************************
+ *
+ *	i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize dynamic SQL.  This is called only once.
+ *
+ **************************************/
+	DBB database;
+	STATUS user_status[ISC_STATUS_LENGTH];
+	PLB pool;
+	SCHAR buffer[128], *data;
+	UCHAR p;
+	SSHORT l;
+	STATUS s;
+
+#ifdef ANY_THREADING
+	if (!mutex_inited) {
+		mutex_inited = TRUE;
+		THD_MUTEX_INIT(&databases_mutex);
+		THD_MUTEX_INIT(&cursors_mutex);
+	}
+#endif
+
+	THD_MUTEX_LOCK(&databases_mutex);
+
+	if (!init_flag) {
+		init_flag = TRUE;
+		ALLD_init();
+		HSHD_init();
+
+#ifdef DEV_BUILD
+		DSQL_debug = 0;
+#endif
+
+		LEX_dsql_init();
+
+		gds__register_cleanup(cleanup, 0);
+	}
+
+	if (!db_handle) {
+		THD_MUTEX_UNLOCK(&databases_mutex);
+		return NULL;
+	}
+
+/* Look for database block.  If we don't find one, allocate one. */
+
+	for (database = databases; database; database = database->dbb_next)
+		if (database->dbb_database_handle == *db_handle) {
+			THD_MUTEX_UNLOCK(&databases_mutex);
+			return database;
+		}
+
+	pool = ALLD_pool();
+	database = (DBB) ALLOC(type_dbb, pool);
+	database->dbb_pool = pool;
+	database->dbb_next = databases;
+	databases = database;
+	database->dbb_database_handle = *db_handle;
+	THD_MUTEX_UNLOCK(&databases_mutex);
+
+	THREAD_EXIT;
+	gds__database_cleanup(user_status,
+						  reinterpret_cast < hndl ** >(db_handle),
+						  reinterpret_cast < void (*)() > (cleanup_database),
+						  (SLONG) FALSE);
+	THREAD_ENTER;
+
+/* Determine if the database is V3 or V4 */
+
+	database->dbb_flags |= DBB_v3;
+	THREAD_EXIT;
+	s = isc_database_info(user_status, reinterpret_cast < void **>(db_handle),
+						  sizeof(db_hdr_info_items),
+						  const_cast < char *>(db_hdr_info_items),
+						  sizeof(buffer), buffer);
+	THREAD_ENTER;
+
+	if (s)
+		return database;
+
+/* assume that server can not report current character set,
+   and if not then emulate pre-patch actions. */
+	database->dbb_att_charset = 127;
+
+	data = buffer;
+	while ((p = *data++) != gds_info_end) {
+		l =
+			static_cast <
+			short >(gds__vax_integer(reinterpret_cast < UCHAR * >(data), 2));
+		data += 2;
+
+		switch (p) {
+		case isc_info_db_sql_dialect:
+			database->dbb_db_SQL_dialect = (USHORT) data[0];
+			break;
+
+		case gds_info_ods_version:
+			if (gds__vax_integer(reinterpret_cast < UCHAR * >(data), l) > 7)
+				database->dbb_flags &= ~DBB_v3;
+			break;
+
+			/* This flag indicates the version level of the engine  
+			   itself, so we can tell what capabilities the engine 
+			   code itself (as opposed to the on-disk structure).
+			   Apparently the base level up to now indicated the major 
+			   version number, but for 4.1 the base level is being 
+			   incremented, so the base level indicates an engine version 
+			   as follows:
+			   1 == v1.x
+			   2 == v2.x
+			   3 == v3.x
+			   4 == v4.0 only
+			   5 == v4.1
+			   Note: this info item is so old it apparently uses an 
+			   archaic format, not a standard vax integer format.
+			 */
+
+		case gds_info_base_level:
+			database->dbb_base_level = (USHORT) data[1];
+			break;
+
+#ifdef READONLY_DATABASE
+		case isc_info_db_read_only:
+			if ((USHORT) data[0])
+				database->dbb_flags |= DBB_read_only;
+			else
+				database->dbb_flags &= ~DBB_read_only;
+			break;
+#endif /* READONLY_DATABASE */
+
+		case frb_info_att_charset:
+			database->dbb_att_charset =
+				static_cast <
+				short
+				>(gds__vax_integer(reinterpret_cast < UCHAR * >(data), 2));
+			break;
+
+		default:
+			break;
+		}
+
+		data += l;
+	}
+
+
+
+	return database;
+}
+
+
+static void map_in_out(	REQ		request,
+						MSG		message,
+						USHORT	blr_length,
+						UCHAR*	blr,
+						USHORT	msg_length,
+						UCHAR*	msg)
+{
+/**************************************
+ *
+ *	m a p _ i n _ o u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map data from external world into message or
+ *	from message to external world.
+ *
+ **************************************/
+	PAR parameter, dbkey, null, rec_version;
+	USHORT count, length, null_offset;
+	DSC desc;
+	SSHORT *flag;
+
+	count = parse_blr(blr_length, blr, msg_length, message->msg_parameters);
+
+/* When mapping data from the external world, request will be non-NULL.
+   When mapping data from an internal message, request will be NULL. */
+
+	for (parameter = message->msg_parameters; parameter;
+		 parameter = parameter->par_next) if (parameter->par_index) {
+			/* Make sure the message given to us is long enough */
+
+			desc = parameter->par_user_desc;
+			length = (SLONG) desc.dsc_address + desc.dsc_length;
+			if (length > msg_length)
+				break;
+
+			flag = NULL;
+			if ((null = parameter->par_null) != NULL) {
+				null_offset = reinterpret_cast<USHORT>(null->par_user_desc.dsc_address);
+				length = null_offset + sizeof(SSHORT);
+				if (length > msg_length)
+					break;
+
+				if (!request) {
+					flag = (SSHORT *) (msg + null_offset);
+					*flag = *((SSHORT *) null->par_desc.dsc_address);
+				}
+				else {
+					flag = (SSHORT *) null->par_desc.dsc_address;
+					*flag = *((SSHORT *) (msg + null_offset));
+				}
+			}
+
+			desc.dsc_address = msg + (SLONG) desc.dsc_address;
+			if (!request)
+				MOVD_move(&parameter->par_desc, &desc);
+			else if (!flag || *flag >= 0)
+				MOVD_move(&desc, &parameter->par_desc);
+
+			count--;
+		}
+
+/* If we got here because the loop was exited early or if part of the
+   message given to us hasn't been used, complain. */
+
+	if (parameter || count)
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 804,
+				  gds_arg_gds, gds_dsql_sqlda_err, 0);
+
+	if (request &&
+		((dbkey = request->req_parent_dbkey) != NULL) &&
+		((parameter = request->req_dbkey) != NULL)) {
+		MOVD_move(&dbkey->par_desc, &parameter->par_desc);
+		if ((null = parameter->par_null) != NULL) {
+			flag = (SSHORT *) null->par_desc.dsc_address;
+			*flag = 0;
+		}
+	}
+
+	if (request &&
+		((rec_version = request->req_parent_rec_version) != NULL) &&
+		((parameter = request->req_rec_version) != NULL)) {
+		MOVD_move(&rec_version->par_desc, &parameter->par_desc);
+		if ((null = parameter->par_null) != NULL) {
+			flag = (SSHORT *) null->par_desc.dsc_address;
+			*flag = 0;
+		}
+	}
+}
+
+
+static USHORT name_length( TEXT * name)
+{
+/**************************************
+ *
+ *	n a m e _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute length of user supplied name.
+ *
+ **************************************/
+	TEXT *p, *q;
+#define	BLANK	'\040'
+
+	q = name - 1;
+	for (p = name; *p; p++) {
+		if (*p != BLANK)
+			q = p;
+	}
+
+	return (USHORT) ((q + 1) - name);
+}
+
+
+static USHORT parse_blr(
+						USHORT blr_length,
+						UCHAR * blr, USHORT msg_length, PAR parameters)
+{
+/**************************************
+ *
+ *	p a r s e _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the message of a blr request.
+ *
+ **************************************/
+	PAR parameter, null;
+	USHORT count, index, offset, align, null_offset;
+	DSC desc;
+
+/* If there's no blr length, then the format of the current message buffer
+   is identical to the format of the previous one. */
+
+	if (!blr_length) {
+		count = 0;
+		for (parameter = parameters; parameter;
+			 parameter = parameter->par_next) if (parameter->par_index)
+				count++;
+		return count;
+	}
+
+	if (*blr != blr_version4 && *blr != blr_version5)
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 804,
+				  gds_arg_gds, gds_dsql_sqlda_err, 0);
+	blr++;						/* skip the blr_version */
+	if (*blr++ != blr_begin || *blr++ != blr_message)
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 804,
+				  gds_arg_gds, gds_dsql_sqlda_err, 0);
+
+	blr++;						/* skip the message number */
+	count = *blr++;
+	count += (*blr++) << 8;
+	count /= 2;
+
+	offset = 0;
+	for (index = 1; index <= count; index++) {
+		desc.dsc_scale = 0;
+		desc.dsc_sub_type = 0;
+		desc.dsc_flags = 0;
+		switch (*blr++) {
+		case blr_text:
+			desc.dsc_dtype = dtype_text;
+			desc.dsc_sub_type = ttype_dynamic;
+			desc.dsc_length = *blr++;
+			desc.dsc_length += (*blr++) << 8;
+			break;
+
+		case blr_varying:
+			desc.dsc_dtype = dtype_varying;
+			desc.dsc_sub_type = ttype_dynamic;
+			desc.dsc_length = *blr++ + sizeof(USHORT);
+			desc.dsc_length += (*blr++) << 8;
+			break;
+
+		case blr_text2:
+			desc.dsc_dtype = dtype_text;
+			desc.dsc_sub_type = *blr++;
+			desc.dsc_sub_type += (*blr++) << 8;
+			desc.dsc_length = *blr++;
+			desc.dsc_length += (*blr++) << 8;
+			break;
+
+		case blr_varying2:
+			desc.dsc_dtype = dtype_varying;
+			desc.dsc_sub_type = *blr++;
+			desc.dsc_sub_type += (*blr++) << 8;
+			desc.dsc_length = *blr++ + sizeof(USHORT);
+			desc.dsc_length += (*blr++) << 8;
+			break;
+
+		case blr_short:
+			desc.dsc_dtype = dtype_short;
+			desc.dsc_length = sizeof(SSHORT);
+			desc.dsc_scale = *blr++;
+			break;
+
+		case blr_long:
+			desc.dsc_dtype = dtype_long;
+			desc.dsc_length = sizeof(SLONG);
+			desc.dsc_scale = *blr++;
+			break;
+
+		case blr_int64:
+			desc.dsc_dtype = dtype_int64;
+			desc.dsc_length = sizeof(SINT64);
+			desc.dsc_scale = *blr++;
+			break;
+
+		case blr_quad:
+			desc.dsc_dtype = dtype_quad;
+			desc.dsc_length = sizeof(SLONG) * 2;
+			desc.dsc_scale = *blr++;
+			break;
+
+		case blr_float:
+			desc.dsc_dtype = dtype_real;
+			desc.dsc_length = sizeof(float);
+			break;
+
+		case blr_double:
+#ifndef VMS
+		case blr_d_float:
+#endif
+			desc.dsc_dtype = dtype_double;
+			desc.dsc_length = sizeof(double);
+			break;
+
+#ifdef VMS
+		case blr_d_float:
+			desc.dsc_dtype = dtype_d_float;
+			desc.dsc_length = sizeof(double);
+			break;
+#endif
+
+		case blr_timestamp:
+			desc.dsc_dtype = dtype_timestamp;
+			desc.dsc_length = sizeof(SLONG) * 2;
+			break;
+
+		case blr_sql_date:
+			desc.dsc_dtype = dtype_sql_date;
+			desc.dsc_length = sizeof(SLONG);
+			break;
+
+		case blr_sql_time:
+			desc.dsc_dtype = dtype_sql_time;
+			desc.dsc_length = sizeof(SLONG);
+			break;
+
+		default:
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 804,
+					  gds_arg_gds, gds_dsql_sqlda_err, 0);
+		}
+
+		align = type_alignments[desc.dsc_dtype];
+		if (align)
+			offset = FB_ALIGN(offset, align);
+		desc.dsc_address = (UCHAR *) offset;
+		offset += desc.dsc_length;
+
+		if (*blr++ != blr_short || *blr++ != 0)
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 804,
+					  gds_arg_gds, gds_dsql_sqlda_err, 0);
+
+		align = type_alignments[dtype_short];
+		if (align)
+			offset = FB_ALIGN(offset, align);
+		null_offset = offset;
+		offset += sizeof(SSHORT);
+
+		for (parameter = parameters; parameter;
+			 parameter =
+			 parameter->par_next) if (parameter->par_index == index) {
+				parameter->par_user_desc = desc;
+				if (null = parameter->par_null) {
+					null->par_user_desc.dsc_dtype = dtype_short;
+					null->par_user_desc.dsc_scale = 0;
+					null->par_user_desc.dsc_length = sizeof(SSHORT);
+					null->par_user_desc.dsc_address = (UCHAR *) null_offset;
+				}
+			}
+	}
+
+	if (*blr++ != (UCHAR) blr_end || offset != msg_length)
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 804,
+				  gds_arg_gds, gds_dsql_sqlda_err, 0);
+
+	return count;
+}
+
+
+static REQ prepare(
+				   REQ request,
+				   USHORT string_length,
+				   TEXT * string,
+				   USHORT client_dialect, USHORT parser_version)
+{
+/**************************************
+ *
+ *	p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.  Return SQL status
+ *	code.  Note: caller is responsible for pool handing.
+ *
+ **************************************/
+	STATUS status;
+	NOD node;
+	MSG message;
+	TEXT *p;
+	USHORT length;
+	TSQL tdsql;
+	BOOLEAN stmt_ambiguous = FALSE;
+	STATUS local_status[ISC_STATUS_LENGTH];
+
+	tdsql = GET_THREAD_DATA;
+
+	MOVE_CLEAR(local_status, sizeof(STATUS) * ISC_STATUS_LENGTH);
+
+	if (client_dialect > SQL_DIALECT_CURRENT)
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 901,
+				  gds_arg_gds, gds_wish_list, 0);
+
+	if (!string_length)
+		string_length = strlen(string);
+
+/* Get rid of the trailing ";" if there is one. */
+
+	for (p = string + string_length; p-- > string;)
+		if (*p != ' ') {
+			if (*p == ';')
+				string_length = p - string;
+			break;
+		}
+
+/* Allocate a storage pool and get ready to parse */
+
+	LEX_string(string, string_length, request->req_dbb->dbb_att_charset);
+
+/* Parse the SQL statement.  If it croaks, return */
+
+	if (dsql_yyparse
+		(client_dialect, request->req_dbb->dbb_db_SQL_dialect, parser_version,
+		 &stmt_ambiguous)) {
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104, gds_arg_gds, gds_command_end_err,	/* Unexpected end of command */
+				  0);
+	}
+
+/* allocate the send and receive messages */
+
+	request->req_send = (MSG) ALLOCD(type_msg);
+	request->req_receive = message = (MSG) ALLOCD(type_msg);
+	message->msg_number = 1;
+
+#ifdef SCROLLABLE_CURSORS
+	if (request->req_dbb->dbb_base_level >= 5) {
+		/* allocate a message in which to send scrolling information 
+		   outside of the normal send/receive protocol */
+
+		request->req_async = message = (MSG) ALLOCD(type_msg);
+		message->msg_number = 2;
+	}
+#endif
+
+	request->req_type = REQ_SELECT;
+	request->req_flags &= ~(REQ_cursor_open | REQ_embedded_sql_cursor);
+
+/* 
+ * No work is done during pass1 for set transaction - like
+ * checking for valid table names.  This is because that will
+ * require a valid transaction handle.
+ * Error will be caught at execute time.
+ */
+
+	node = PASS1_statement(request, DSQL_parse, 0);
+	if (!node)
+		return request;
+
+/* stop here for requests not requiring code generation */
+
+	if (request->req_type == REQ_DDL && stmt_ambiguous &&
+		request->req_dbb->dbb_db_SQL_dialect != client_dialect)
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 817,
+				  gds_arg_gds, isc_ddl_not_allowed_by_db_sql_dial,
+				  gds_arg_number,
+				  (SLONG) request->req_dbb->dbb_db_SQL_dialect, 0);
+
+	if (request->req_type == REQ_COMMIT ||
+		request->req_type == REQ_COMMIT_RETAIN ||
+		request->req_type == REQ_ROLLBACK) return request;
+
+/* Work on blob segment requests */
+
+	if (request->req_type == REQ_GET_SEGMENT ||
+		request->req_type == REQ_PUT_SEGMENT) {
+		GEN_port(request, request->req_blob->blb_open_in_msg);
+		GEN_port(request, request->req_blob->blb_open_out_msg);
+		GEN_port(request, request->req_blob->blb_segment_msg);
+		return request;
+	}
+
+/* Generate BLR, DDL or TPB for request */
+
+	if (request->req_type == REQ_START_TRANS ||
+		request->req_type == REQ_DDL ||
+		request->req_type == REQ_EXEC_PROCEDURE) {
+		/* Allocate persistent blr string from request's pool. */
+
+		request->req_blr_string = (STR) ALLOCDV(type_str, 980);
+	}
+	else {
+		/* Allocate transient blr string from permanent pool so
+		   as not to unnecessarily bloat the request's pool. */
+
+		request->req_blr_string = (STR) ALLOCPV(type_str, 980);
+	}
+	request->req_blr_string->str_length = 980;
+	request->req_blr = request->req_blr_string->str_data;
+	request->req_blr_yellow =
+		request->req_blr + request->req_blr_string->str_length;
+
+/* Start transactions takes parameters via a parameter block. 
+   The request blr string is used for that. */
+
+	if (request->req_type == REQ_START_TRANS) {
+		GEN_start_transaction(request, node);
+		return request;
+	}
+
+	if (client_dialect > SQL_DIALECT_V5)
+		request->req_flags |= REQ_blr_version5;
+	else
+		request->req_flags |= REQ_blr_version4;
+	GEN_request(request, node);
+	length = request->req_blr - request->req_blr_string->str_data;
+
+/* stop here for ddl requests */
+
+	if (request->req_type == REQ_DDL)
+		return request;
+
+/* have the access method compile the request */
+
+#ifdef DEV_BUILD
+	if (DSQL_debug)
+		gds__print_blr(request->req_blr_string->str_data, 0, 0, 0);
+#endif
+
+/* stop here for execute procedure requests */
+
+	if (request->req_type == REQ_EXEC_PROCEDURE)
+		return request;
+
+/* check for warnings */
+	if (tdsql->tsql_status[2] == isc_arg_warning) {
+		/* save a status vector */
+		MOVE_FASTER(tdsql->tsql_status, local_status,
+					sizeof(STATUS) * ISC_STATUS_LENGTH);
+	}
+
+	THREAD_EXIT;
+	status = isc_compile_request(GDS_VAL(tdsql->tsql_status),
+								 reinterpret_cast <
+								 void
+								 **>(GDS_REF
+									 (request->req_dbb->dbb_database_handle)),
+								 reinterpret_cast <
+								 void **>(GDS_REF(request->req_handle)),
+								 length,
+								 reinterpret_cast <
+								 char *>(request->req_blr_string->str_data));
+	THREAD_ENTER;
+
+/* restore warnings (if there are any) */
+	if (local_status[2] == isc_arg_warning) {
+		int indx, len, warning;
+
+		/* find end of a status vector */
+		PARSE_STATUS(tdsql->tsql_status, indx, warning);
+		if (indx)
+			--indx;
+
+		/* calculate length of saved warnings */
+		PARSE_STATUS(local_status, len, warning);
+		len -= 2;
+
+		if ((len + indx - 1) < ISC_STATUS_LENGTH)
+			MOVE_FASTER(&local_status[2], &tdsql->tsql_status[indx],
+						sizeof(STATUS) * len);
+	}
+
+	ALLD_release(reinterpret_cast<FRB>(request->req_blr_string));
+	request->req_blr_string = NULL;
+
+	if (status)
+		punt();
+
+	return request;
+}
+
+
+static void punt(void)
+{
+/**************************************
+ *
+ *	p u n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report a signification error.
+ *
+ **************************************/
+	struct tsql *tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	LONGJMP(*tdsql->tsql_setjmp, (int) tdsql->tsql_status[1]);
+}
+
+
+static SCHAR *put_item(
+					   SCHAR item,
+					   USHORT length,
+					   SCHAR * string, SCHAR * ptr, SCHAR * end)
+{
+/**************************************
+ *
+ *	p u t _ i t e m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put information item in output buffer if there is room, and
+ *	return an updated pointer.  If there isn't room for the item,
+ *	indicate truncation and return NULL.
+ *
+ **************************************/
+
+	if (ptr + length + 3 >= end) {
+		*ptr = gds_info_truncated;
+		return NULL;
+	}
+
+	*ptr++ = item;
+	STUFF_INFO_WORD(ptr, length);
+
+	if (length)
+		do
+			*ptr++ = *string++;
+		while (--length);
+
+	return ptr;
+}
+
+
+static void release_request( REQ request, USHORT top_level)
+{
+/**************************************
+ *
+ *	r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a dynamic request.
+ *
+ **************************************/
+	REQ *ptr, child, parent;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	PLB save_default;
+	struct tsql *tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+/* If request is parent, orphan the children and release a portion
+   of their requests */
+
+	for (child = request->req_offspring; child; child = child->req_sibling) {
+		child->req_flags |= REQ_orphan;
+		child->req_parent = NULL;
+		save_default = tdsql->tsql_default;
+		tdsql->tsql_default = child->req_pool;
+		release_request(child, FALSE);
+		tdsql->tsql_default = save_default;
+	}
+
+/* For top level requests that are linked to a parent, unlink it */
+
+	if (top_level && (parent = request->req_parent) != NULL)
+		for (ptr = &parent->req_offspring; *ptr; ptr = &(*ptr)->req_sibling)
+			if (*ptr == request) {
+				*ptr = request->req_sibling;
+				break;
+			}
+
+/* If the request had an open cursor, close it */
+
+	if (request->req_open_cursor)
+		close_cursor(request);
+
+/* If request is named, clear it from the hash table */
+
+	if (request->req_name) {
+		HSHD_remove(request->req_name);
+		request->req_name = NULL;
+	}
+
+	if (request->req_cursor) {
+		HSHD_remove(request->req_cursor);
+		request->req_cursor = NULL;
+	}
+
+	if (request->req_blr_string) {
+		ALLD_release(reinterpret_cast<FRB>(request->req_blr_string));
+		request->req_blr_string = NULL;
+	}
+
+/* If a request has been compiled, release it now */
+
+	if (request->req_handle) {
+		THREAD_EXIT;
+		isc_release_request(status_vector,
+							reinterpret_cast <
+							void **>(GDS_REF(request->req_handle)));
+		THREAD_ENTER;
+	}
+
+/* Only release the entire request for top level requests */
+
+	if (top_level)
+		ALLD_rlpool(request->req_pool);
+}
+
+
+static STATUS return_success(void)
+{
+/**************************************
+ *
+ *	r e t u r n _ s u c c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up status vector to reflect successful execution.
+ *
+ **************************************/
+	TSQL tdsql;
+	STATUS *p;
+
+	tdsql = GET_THREAD_DATA;
+
+	p = tdsql->tsql_status;
+	*p++ = gds_arg_gds;
+	*p++ = SUCCESS;
+/* do not overwrite warnings */
+	if (*p != isc_arg_warning)
+		*p = gds_arg_end;
+
+	RESTORE_THREAD_DATA;
+
+	return SUCCESS;
+}
+
+
+static SCHAR *var_info(
+					   MSG message,
+					   SCHAR * items,
+					   SCHAR * end_describe,
+					   SCHAR * info, SCHAR * end, USHORT first_index)
+{
+/**************************************
+ *
+ *	v a r _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on an internal message.
+ *
+ **************************************/
+	PAR par;
+	SCHAR item, *describe, *buffer, buf[128];
+	USHORT length;
+	SLONG sql_type, sql_sub_type, sql_scale, sql_len;
+
+	if (!message || !message->msg_index)
+		return info;
+
+	for (par = message->msg_par_ordered; par; par = par->par_ordered)
+		if (par->par_index && par->par_index >= first_index) {
+			sql_len = par->par_desc.dsc_length;
+			sql_sub_type = 0;
+			sql_scale = 0;
+			switch (par->par_desc.dsc_dtype) {
+			case dtype_real:
+				sql_type = SQL_FLOAT;
+				break;
+			case dtype_array:
+				sql_type = SQL_ARRAY;
+				break;
+
+			case dtype_timestamp:
+				sql_type = SQL_TIMESTAMP;
+				break;
+			case dtype_sql_date:
+				sql_type = SQL_TYPE_DATE;
+				break;
+			case dtype_sql_time:
+				sql_type = SQL_TYPE_TIME;
+				break;
+
+			case dtype_double:
+				sql_type = SQL_DOUBLE;
+				sql_scale = par->par_desc.dsc_scale;
+				break;
+
+			case dtype_text:
+				sql_type = SQL_TEXT;
+				sql_sub_type = par->par_desc.dsc_sub_type;
+				break;
+
+			case dtype_blob:
+				sql_type = SQL_BLOB;
+				sql_sub_type = par->par_desc.dsc_sub_type;
+				break;
+
+			case dtype_varying:
+				sql_type = SQL_VARYING;
+				sql_len -= sizeof(USHORT);
+				sql_sub_type = par->par_desc.dsc_sub_type;
+				break;
+
+			case dtype_short:
+			case dtype_long:
+			case dtype_int64:
+				if (par->par_desc.dsc_dtype == dtype_short)
+					sql_type = SQL_SHORT;
+				else if (par->par_desc.dsc_dtype == dtype_long)
+					sql_type = SQL_LONG;
+				else
+					sql_type = SQL_INT64;
+				sql_scale = par->par_desc.dsc_scale;
+				if (par->par_desc.dsc_sub_type)
+					sql_sub_type = par->par_desc.dsc_sub_type;
+				break;
+
+			case dtype_quad:
+				sql_type = SQL_QUAD;
+				sql_scale = par->par_desc.dsc_scale;
+				break;
+
+			default:
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 804,
+						  gds_arg_gds, gds_dsql_datatype_err, 0);
+			}
+
+			if (sql_type && (par->par_desc.dsc_flags & DSC_nullable))
+				sql_type++;
+
+			for (describe = items; describe < end_describe;) {
+				buffer = buf;
+				switch (item = *describe++) {
+				case gds_info_sql_sqlda_seq:
+					length = convert((SLONG) par->par_index, buffer);
+					break;
+
+				case gds_info_sql_message_seq:
+					length = 0;
+					break;
+
+				case gds_info_sql_type:
+					length = convert((SLONG) sql_type, buffer);
+					break;
+
+				case gds_info_sql_sub_type:
+					length = convert((SLONG) sql_sub_type, buffer);
+					break;
+
+				case gds_info_sql_scale:
+					length = convert((SLONG) sql_scale, buffer);
+					break;
+
+				case gds_info_sql_length:
+					length = convert((SLONG) sql_len, buffer);
+					break;
+
+				case gds_info_sql_null_ind:
+					length = convert((SLONG) (sql_type & 1), buffer);
+					break;
+
+				case gds_info_sql_field:
+					if (buffer = par->par_name)
+						length = strlen(buffer);
+					else
+						length = 0;
+					break;
+
+				case gds_info_sql_relation:
+					if (buffer = par->par_rel_name)
+						length = strlen(buffer);
+					else
+						length = 0;
+					break;
+
+				case gds_info_sql_owner:
+					if (buffer = par->par_owner_name)
+						length = strlen(buffer);
+					else
+						length = 0;
+					break;
+
+				case gds_info_sql_alias:
+					if (buffer = par->par_alias)
+						length = strlen(buffer);
+					else
+						length = 0;
+					break;
+
+				default:
+					buffer[0] = item;
+					item = gds_info_error;
+					length = 1 + convert((SLONG) gds_infunk, buffer + 1);
+					break;
+				}
+
+				if (!(info = put_item(item, length, buffer, info, end)))
+					return info;
+			}
+
+			if (info + 1 >= end) {
+				*info = gds_info_truncated;
+				return NULL;
+			}
+			*info++ = gds_info_sql_describe_end;
+		}
+
+	return info;
+}
+
+
+} // extern "C"
diff --git a/src/dsql/dsql.def b/src/dsql/dsql.def
new file mode 100644
index 0000000000..64b12b42e7
--- /dev/null
+++ b/src/dsql/dsql.def
@@ -0,0 +1,57 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+; 
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+; 
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+; 
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;------------------------------------------------------------
+;  DSQL DLL MODULE DEFINITION FILE
+;------------------------------------------------------------
+
+LIBRARY     DSQL
+
+DESCRIPTION 'DSQL INTERBASE MODULE'
+CODE MOVEABLE 
+DATA MOVEABLE
+SEGMENTS
+   _TEXT              DISCARDABLE
+   ALLD_TEXT          DISCARDABLE
+   DDL_TEXT           DISCARDABLE
+   DSQL_TEXT          DISCARDABLE
+   DSQLWEP_TEXT       PRELOAD
+   ERRD_TEXT          DISCARDABLE
+   GEN_TEXT           DISCARDABLE
+   HSH_TEXT           DISCARDABLE
+   MAKE_TEXT          DISCARDABLE
+   METD_TEXT          DISCARDABLE
+   MOVD_TEXT          DISCARDABLE
+   PARSE_TEXT         DISCARDABLE
+   PASS1_TEXT         DISCARDABLE
+   CVT_TEXT           DISCARDABLE
+   DLLSHELL_TEXT      PRELOAD
+
+EXPORTS
+
+; ../DSQL/DSQL.C
+    _dsql8_sql_info                @2   
+    _dsql8_set_cursor              @3   
+    _dsql8_prepare                 @4   
+    _dsql8_free_statement          @5   
+    _dsql8_fetch                   @6   
+    _dsql8_execute_immediate       @7   
+    _dsql8_execute                 @8   
+    _dsql8_allocate_statement      @9
+    _dsql8_insert                  @10
+
+;-----------------------------------------------
+    WEP        			   @1	RESIDENTNAME
diff --git a/src/dsql/dsql.h b/src/dsql/dsql.h
new file mode 100644
index 0000000000..5a90f7cb8f
--- /dev/null
+++ b/src/dsql/dsql.h
@@ -0,0 +1,634 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		dsql.h
+ *	DESCRIPTION:	General Definitions for V4 DSQL module
+ *
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_DSQL_H_
+#define _DSQL_DSQL_H_
+
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/common.h"
+
+/* Dynamic SQL Error Status Block */
+
+typedef struct err {
+	STATUS *dsql_status;
+	STATUS *dsql_user_status;
+	JMP_BUF dsql_env;			/* Error return environment */
+} *ERR;
+
+/* macros for block allocation */
+
+#define ALL_release(blk)	 ALLD_release (blk)
+#define ALLOCD(type)		 ALLD_alloc (tdsql->tsql_default, type, 0)
+#define ALLOCDV(type,repeat)	 ALLD_alloc (tdsql->tsql_default, type, repeat)
+#define ALLOCP(type)		 ALLD_alloc (DSQL_permanent_pool, type, 0)
+#define ALLOCPV(type,repeat)	 ALLD_alloc (DSQL_permanent_pool, type, repeat)
+#define ALLOC(type,pool)	 ALLD_alloc (pool, type, 0)
+#define ALLOCV(type,pool,repeat) ALLD_alloc (pool, type, repeat)
+
+/* this table is used in data allocation to determine
+   whether a block has a variable length tail */
+
+#define BLKDEF(type, root, tail) type,
+
+ENUM blk_t {
+	type_MIN = 0,
+#include "../dsql/blk.h"
+type_MAX};
+
+#undef BLKDEF
+
+/* generic block used as header to all allocated structures */
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+/* aggregate blocks to store vectors of objects */
+
+typedef struct vec {
+	struct blk vec_header;
+	ULONG vec_count;
+	struct blk *vec_object[1];
+} *VEC;
+
+typedef struct vcl {
+	struct blk vcl_header;
+	ULONG vcl_count;
+	SLONG vcl_long[1];
+} *VCL;
+
+/* generic structure used to store strings */
+
+typedef struct str
+{
+	struct blk str_header;
+	TEXT*	str_charset;			/* ASCIIZ Character set identifier for string */
+	USHORT	str_flags;
+	USHORT	str_length;			/* length of string in BYTES */
+	UCHAR	str_data[2];			/* one for ALLOC and one for the NULL */
+} *STR;
+
+/* values used in str_flags */
+
+#define	STR_delimited_id	0x1L
+
+/* macros and block used to implement a generic stack mechanism */
+
+#define LLS_PUSH(object,stack)		ALLD_push ((BLK) object, stack)
+#define LLS_POP(stack)			ALLD_pop (stack)
+
+typedef struct lls {
+	struct blk lls_header;
+	struct blk *lls_object;
+	struct lls *lls_next;
+} *LLS;
+
+
+/* blocks used internally to the data allocator */
+
+/* free block used to point to an unused block */
+
+typedef struct frb {
+	struct blk frb_header;
+	struct frb *frb_next;		/* Next free block in pool */
+} *FRB;
+
+/* Pool block used to store a set of blocks to be treated as an aggregate */
+
+typedef struct plb {
+	struct blk plb_header;
+	USHORT plb_pool_id;			/* pool id */
+	struct frb *plb_free;		/* first free block */
+	struct hnk *plb_hunks;		/* first hunk block */
+	struct lls *plb_lls;		/* available linked list stack nodes */
+	SLONG *plb_blk_type_count;	/* array to keep track of block types */
+} *PLB;
+
+/* Hunk blocks, used to allow dynamic expansion of an allocated pool */
+
+typedef struct hnk {
+	struct blk hnk_header;
+	UCHAR *hnk_address;			/* start of memory hunk */
+	int hnk_length;				/* length of memory hunk */
+	struct hnk *hnk_next;		/* next memory hunk in structure */
+} *HNK;
+
+
+
+/*======================================================================
+   remaining node definitions for local processing
+*/
+
+/* Include definition of descriptor */
+
+#include "../jrd/dsc.h"
+
+/* internal DSQL requests */
+
+
+#if 0
+
+#define irq_relation	0	/* lookup a relation */
+#define irq_fields		1	/* lookup a relation's fields */
+#define irq_dimensions	2	/* lookup a field's dimensions */
+#define irq_primary_key	3	/* lookup a primary key */
+#define irq_view		4	/* lookup a view's base relations */
+#define irq_function	5	/* lookup a user defined function */
+#define irq_func_return	6	/* lookup a function's return argument */
+#define irq_procedure	7	/* lookup a stored procedure */
+#define irq_parameters	8	/* lookup a procedure's parameters */
+#define irq_collation	9	/* lookup a collation name */
+#define irq_charset		10	/* lookup a character set name */
+#define irq_trigger		11	/* lookup a trigger */
+#define irq_domain		12	/* lookup a domain */
+#define irq_type		13	/* lookup a symbolic name in RDB$TYPES */
+#define irq_col_default	14	/* lookup default for a column */
+#define irq_domain_2	15	/* lookup a domain */
+
+#define irq_MAX			16
+
+#else
+
+enum irq_type_t {
+	irq_relation	= 0,
+	irq_fields		= 1,
+	irq_dimensions	= 2,
+	irq_primary_key	= 3,
+	irq_view		= 4,
+	irq_function	= 5,
+	irq_func_return	= 6,
+	irq_procedure	= 7,
+	irq_parameters	= 8,
+	irq_collation	= 9,
+	irq_charset		= 10,
+	irq_trigger		= 11,
+	irq_domain		= 12,
+	irq_type		= 13,
+	irq_col_default	= 14,
+	irq_domain_2	= 15,
+
+	irq_MAX			= 16
+};
+
+#endif
+
+
+/* blocks used to cache metadata */
+
+typedef struct dbb {			/* Database Block */
+	struct blk dbb_header;
+	struct dbb *dbb_next;
+	struct dsql_rel *dbb_relations;	/* known relations in database */
+	struct prc *dbb_procedures;	/* known procedures in database */
+	struct udf *dbb_functions;	/* known functions in database */
+	struct plb *dbb_pool;
+	SLONG *dbb_database_handle;
+	SLONG *dbb_requests[irq_MAX];
+	struct str *dbb_dfl_charset;
+	USHORT dbb_base_level;		/* indicates the version of the engine code itself */
+	USHORT dbb_flags;
+	USHORT dbb_db_SQL_dialect;
+	SSHORT dbb_att_charset;		/* characterset at time of attachment */
+} *DBB;
+
+/* values used in dbb_flags */
+
+#define DBB_no_arrays	0x1
+#define DBB_v3		0x2
+#define DBB_no_charset	0x4
+#define DBB_read_only	0x8
+
+typedef struct dsql_rel		/* Relation block */
+{
+	struct blk			rel_header;
+	struct dsql_rel*	rel_next;			/* Next relation in database */
+	struct sym*			rel_symbol;			/* Hash symbol for relation */
+	struct fld*			rel_fields;			/* Field block */
+	struct dsql_rel*	rel_base_relation;	/* base relation for an updatable view */
+	TEXT*				rel_name;			/* Name of relation */
+	TEXT*				rel_owner;			/* Owner of relation */
+	USHORT				rel_id;				/* Relation id */
+	USHORT				rel_dbkey_length;
+	USHORT				rel_flags;
+	TEXT				rel_data[3];
+} *DSQL_REL;
+
+/* rel_flags bits */
+
+#define REL_new_relation	1	/* relation is newly defined, not committed yet */
+#define REL_dropped			2	/* relation has been dropped */
+
+typedef struct fld		/* Field block */
+{
+	struct blk			fld_header;
+	struct fld*			fld_next;				/* Next field in relation */
+	struct dsql_rel*	fld_relation;			/* Parent relation */
+	struct prc*			fld_procedure;			/* Parent procedure */
+	struct nod*			fld_ranges;				/* ranges for multi dimension array */
+	struct nod*			fld_character_set;		/* null means not specified */
+	struct nod*			fld_sub_type_name;		/* Subtype name for later resolution */
+	USHORT				fld_flags;
+	USHORT				fld_id;					/* Field in in database */
+	USHORT				fld_dtype;				/* Data type of field */
+	FLD_LENGTH			fld_length;				/* Length of field */
+	USHORT				fld_element_dtype;		/* Data type of array element */
+	USHORT				fld_element_length;		/* Length of array element */
+	SSHORT				fld_scale;				/* Scale factor of field */
+	SSHORT				fld_sub_type;			/* Subtype for text & blob fields */
+	USHORT				fld_precision;			/* Precision for exact numeric types */
+	USHORT				fld_character_length;	/* length of field in characters */
+	USHORT				fld_seg_length;			/* Segment length for blobs */
+	SSHORT				fld_dimensions;			/* Non-zero means array */
+	SSHORT				fld_character_set_id;	/* ID of field's character set */
+	SSHORT				fld_collation_id;		/* ID of field's collation */
+	SSHORT				fld_ttype;				/* ID of field's language_driver */
+	TEXT fld_name[2];
+} *FLD;
+
+/* values used in fld_flags */
+
+#define FLD_computed	1
+#define FLD_drop	2
+#define FLD_dbkey	4
+#define FLD_national	8		/* field uses NATIONAL character set */
+#define FLD_nullable	16
+
+#define MAX_ARRAY_DIMENSIONS 16	/* max array dimensions */
+
+/* database/log/cache file block */
+
+typedef struct fil {
+	struct blk fil_header;
+	SLONG fil_length;			/* File length in pages */
+	SLONG fil_start;			/* Starting page */
+	struct str *fil_name;		/* File name */
+	struct fil *fil_next;		/* next file */
+	SSHORT fil_shadow_number;	/* shadow number if part of shadow */
+	SSHORT fil_manual;			/* flag to indicate manual shadow */
+	SSHORT fil_partitions;		/* number of log file partitions */
+	USHORT fil_flags;
+} *FIL;
+
+/* Stored Procedure block */
+
+typedef struct prc {			/* Relation block */
+	struct blk prc_header;
+	struct prc *prc_next;		/* Next relation in database */
+	struct sym *prc_symbol;		/* Hash symbol for procedure */
+	struct fld *prc_inputs;		/* Input parameters */
+	struct fld *prc_outputs;	/* Output parameters */
+	TEXT *prc_name;				/* Name of procedure */
+	TEXT *prc_owner;			/* Owner of procedure */
+	SSHORT prc_in_count;
+	SSHORT prc_out_count;
+	USHORT prc_id;				/* Procedure id */
+	USHORT prc_flags;
+	TEXT prc_data[3];
+} *PRC;
+
+/* prc_flags bits */
+
+#define PRC_new_procedure	1	/* procedure is newly defined, not committed yet */
+#define PRC_dropped		2		/* procedure has been dropped */
+
+/* User defined function block */
+
+typedef struct udf {
+	struct blk udf_header;
+	struct udf *udf_next;
+	struct sym *udf_symbol;		/* Hash symbol for udf */
+	USHORT udf_dtype;
+	SSHORT udf_scale;
+	SSHORT udf_sub_type;
+	USHORT udf_length;
+	SSHORT udf_character_set_id;
+	USHORT udf_character_length;
+	TEXT udf_name[2];
+} *UDF;
+
+/* these values are multiplied by -1 to indicate that server frees them 
+   on return from the udf */
+typedef ENUM {
+		FUN_value,
+		FUN_reference,
+		FUN_descriptor, FUN_blob_struct, FUN_scalar_array} FUN_T;
+
+/* Variables - input, output & local */
+
+typedef struct var {			/* Variable block */
+	struct blk var_header;
+	struct fld *var_field;		/* Field on which variable is based */
+	USHORT var_flags;
+	USHORT var_msg_number;		/* Message number containing variable */
+	USHORT var_msg_item;		/* Item number in message */
+	USHORT var_variable_number;	/* Local variable number */
+	TEXT var_name[2];
+} *VAR;
+
+/* values used in var_flags */
+
+#define VAR_input	1
+#define VAR_output	2
+#define VAR_local	4
+
+
+/* Symbolic names for international text types */
+/* (either collation or character set name)    */
+
+typedef struct intlsym {		/* International symbol */
+	struct blk intlsym_header;
+	struct sym *intlsym_symbol;	/* Hash symbol for intlsym */
+	USHORT intlsym_type;		/* what type of name */
+	USHORT intlsym_flags;
+	SSHORT intlsym_ttype;		/* id of implementation */
+	SSHORT intlsym_charset_id;
+	SSHORT intlsym_collate_id;
+	USHORT intlsym_bytes_per_char;
+	TEXT intlsym_name[2];
+} *INTLSYM;
+
+/* values used in intlsym_type */
+
+#define INTLSYM_collation	1
+#define	INTLSYM_charset		2
+
+/* values used in intlsym_flags */
+
+
+
+/* Request information */
+
+typedef enum {
+	REQ_SELECT, REQ_SELECT_UPD, REQ_INSERT, REQ_DELETE, REQ_UPDATE,
+	REQ_UPDATE_CURSOR, REQ_DELETE_CURSOR,
+	REQ_COMMIT, REQ_ROLLBACK, REQ_DDL, REQ_EMBED_SELECT,
+	REQ_START_TRANS, REQ_GET_SEGMENT, REQ_PUT_SEGMENT, REQ_EXEC_PROCEDURE,
+	REQ_COMMIT_RETAIN, REQ_SET_GENERATOR
+} REQ_TYPE;
+
+typedef struct req {
+	struct blk req_header;
+	struct req *req_parent;		/* Source request, if cursor update */
+	struct req *req_sibling;	/* Next sibling request, if cursor update */
+	struct req *req_offspring;	/* Cursor update requests */
+	struct plb *req_pool;
+	struct lls *req_context;
+	struct sym *req_name;		/* Name of request */
+	struct sym *req_cursor;		/* Cursor symbol. if any */
+	struct dbb *req_dbb;		/* Database handle */
+	int *req_trans;				/* Database transaction handle */
+	struct opn *req_open_cursor;
+	struct nod *req_ddl_node;	/* Store metadata request */
+	struct blb *req_blob;		/* Blob info for blob requests */
+	int *req_handle;			/* OSRI request handle */
+	struct str *req_blr_string;	/* String block during BLR generation */
+	struct msg *req_send;		/* Message to be sent to start request */
+	struct msg *req_receive;	/* Per record message to be received */
+	struct msg *req_async;		/* Message for sending scrolling information */
+	struct par *req_eof;		/* End of file parameter */
+	struct par *req_dbkey;		/* Database key for current of */
+	struct par *req_rec_version;	/* Record Version for current of */
+	struct par *req_parent_rec_version;	/* parent record version */
+	struct par *req_parent_dbkey;	/* Parent database key for current of */
+	struct dsql_rel *req_relation;	/* relation created by this request (for DDL) */
+	struct prc *req_procedure;	/* procedure created by this request (for DDL) */
+	struct ctx *req_outer_agg_context;	/* agg context for outer ref */
+	BLOB_PTR *req_blr;			/* Running blr address */
+	BLOB_PTR *req_blr_yellow;	/* Threshold for upping blr buffer size */
+	ULONG req_inserts;			/* records processed in request */
+	ULONG req_deletes;
+	ULONG req_updates;
+	ULONG req_selects;
+	REQ_TYPE req_type;			/* Type of request */
+	USHORT req_base_offset;		/* place to go back and stuff in blr length */
+	USHORT req_context_number;	/* Next available context number */
+	USHORT req_scope_level;		/* Scope level for parsing aliases in subqueries */
+	USHORT req_message_number;	/* Next available message number */
+	USHORT req_loop_number;		/* Next available loop number */
+	SSHORT req_inhibit_map;		/* Map inhibit count */
+	USHORT req_in_select_list;	/* now processing "select list" */
+	USHORT req_in_where_clause;	/* processing "where clause" */
+	USHORT req_in_having_clause;	/* processing "having clause" */
+	USHORT req_in_order_by_clause;	/* processing "order by clause" */
+	USHORT req_error_handlers;	/* count of active error handlers */
+	USHORT req_flags;			/* generic flag */
+	USHORT req_client_dialect;	/* dialect passed into the API call */
+} *REQ;
+
+/* values used in req_flags */
+
+#define REQ_cursor_open		1
+#define REQ_save_metadata	2
+#define REQ_prepared		4
+#define REQ_embedded_sql_cursor	8
+#define REQ_procedure		16
+#define REQ_trigger		32
+#define REQ_orphan		64
+#define REQ_enforce_scope	128
+#define REQ_no_batch		256
+#define REQ_backwards		512
+#define REQ_blr_version4	1024
+#define REQ_blr_version5	2048
+
+/* Blob */
+
+typedef struct blb {
+	struct blk blb_header;
+	struct nod *blb_field;		/* Related blob field */
+	struct par *blb_blob_id;	/* Parameter to hold blob id */
+	struct par *blb_segment;	/* Parameter for segments */
+	struct nod *blb_from;
+	struct nod *blb_to;
+	struct msg *blb_open_in_msg;	/* Input message to open cursor */
+	struct msg *blb_open_out_msg;	/* Output message from open cursor */
+	struct msg *blb_segment_msg;	/* Segment message */
+} *BLB;
+
+/* List of open cursors */
+
+typedef struct opn {
+	struct blk opn_header;
+	struct opn *opn_next;		/* Next open cursor */
+	struct req *opn_request;	/* Request owning the cursor */
+	SLONG *opn_transaction;		/* Transaction executing request */
+} *OPN;
+
+/* Transaction block */
+
+typedef struct tra {
+	struct blk tra_header;
+	struct tra *tra_next;		/* Next open transaction */
+} *TRA;
+
+
+/* Context block used to create an instance of a relation reference */
+
+typedef struct ctx {
+	struct blk ctx_header;
+	struct req *ctx_request;	/* Parent request */
+	struct dsql_rel *ctx_relation;	/* Relation for context */
+	struct prc *ctx_procedure;	/* Procedure for context */
+	struct nod *ctx_proc_inputs;	/* Procedure input parameters */
+	struct map *ctx_map;		/* Map for aggregates */
+	struct nod *ctx_rse;		/* Sub-rse for aggregates */
+	struct ctx *ctx_parent;		/* Parent context for aggregates */
+	TEXT *ctx_alias;			/* Context alias */
+	USHORT ctx_context;			/* Context id */
+	USHORT ctx_scope_level;		/* Subquery level within this request */
+	USHORT ctx_flags;			/* Various flag values */
+} *CTX;
+
+/* Flag values for ctx_flags */
+
+#define CTX_outer_join		(1<<0)	/* reference is part of an outer join */
+
+/* Aggregate/union map block to map virtual fields to their base */
+
+typedef struct map {
+	struct blk map_header;
+	struct map *map_next;		/* Next map in item */
+	struct nod *map_node;		/* Value for map item */
+	USHORT map_position;		/* Position in map */
+} *MAP;
+
+
+/* Message block used in communicating with a running request */
+
+#ifndef GUI_TOOLS
+typedef struct msg {
+	struct blk msg_header;
+	struct par *msg_parameters;	/* Parameter list */
+	struct par *msg_par_ordered;	/* Ordered parameter list */
+	UCHAR *msg_buffer;			/* Message buffer */
+	USHORT msg_number;			/* Message number */
+	USHORT msg_length;			/* Message length */
+	USHORT msg_parameter;		/* Next parameter number */
+	USHORT msg_index;			/* Next index into SQLDA */
+} *MSG;
+#endif
+
+/* Parameter block used to describe a parameter of a message */
+
+typedef struct par {
+	struct blk par_header;
+	struct msg *par_message;	/* Parent message */
+	struct par *par_next;		/* Next parameter in linked list */
+	struct par *par_ordered;	/* Next parameter in order of index */
+	struct par *par_null;		/* Null parameter, if used */
+	struct nod *par_node;		/* Associated value node, if any */
+	struct ctx *par_dbkey_ctx;	/* Context of internally requested dbkey */
+	struct ctx *par_rec_version_ctx;	/* Context of internally requested record version */
+	TEXT *par_name;				/* Parameter name, if any */
+	TEXT *par_rel_name;			/* Relation name, if any */
+	TEXT *par_owner_name;		/* Owner name, if any */
+	TEXT *par_alias;			/* Alias, if any */
+	DSC par_desc;				/* Field data type */
+	DSC par_user_desc;			/* SQLDA data type */
+	USHORT par_parameter;		/* BLR parameter number */
+	USHORT par_index;			/* Index into SQLDA, if appropriate */
+} *PAR;
+
+
+#include "../jrd/thd.h"
+
+/* DSQL threading declarations */
+
+typedef struct tsql
+{
+	struct thdd	tsql_thd_data;
+	struct plb*	tsql_default;
+	STATUS*		tsql_status;
+	STATUS*		tsql_user_status;
+	jmp_buf*	tsql_setjmp;
+} *TSQL;
+
+#ifdef GET_THREAD_DATA
+#undef GET_THREAD_DATA
+#endif
+
+#define GET_THREAD_DATA	((TSQL) THD_get_specific())
+
+
+#ifndef SHLIB_DEFS
+#ifdef DSQL_MAIN
+PLB DSQL_permanent_pool;
+int DSQL_debug;
+#else
+extern PLB DSQL_permanent_pool;
+extern int DSQL_debug;
+#endif
+#else
+extern PLB DSQL_permanent_pool;
+extern int DSQL_debug;
+#endif
+
+
+
+/* macros for error generation */
+
+#define BUGCHECK(string)	ERRD_bugcheck(string)
+#define IBERROR(code, string)	ERRD_error(code, string)
+#define BLKCHK(blk, type) if (blk->blk_type != (SCHAR) type) BUGCHECK ("expected type")
+
+/* macro to stuff blr */
+/* this is used in both ddl.cpp and gen.cpp, and is put here for commonality */
+
+#define STUFF(byte)     ((BLOB_PTR*)request->req_blr < (BLOB_PTR*)request->req_blr_yellow) ?\
+			(*request->req_blr++ = (UCHAR)(byte)) : GEN_expand_buffer (request, (UCHAR)(byte))
+
+
+/* Macros for DEV_BUILD internal consistancy checking */
+
+#ifdef DEV_BUILD
+
+/* Verifies that a pointed to block matches the expected type.
+ * Useful to find coding errors & memory globbers.
+ */
+#define DEV_BLKCHK(blk, typ)	\
+	{ \
+	if ((blk) && (((BLK) (blk))->blk_type != (typ))) \
+	    ERRD_assert_msg (assert_blkchk_msg, assert_filename, (ULONG) __LINE__); \
+	}
+
+#define _assert(ex)	{if (!(ex)){(void) ERRD_assert_msg (NULL, assert_filename, __LINE__);}}
+#define assert(ex)	_assert(ex)
+#define ASSERT_FAIL ERRD_assert_msg (NULL, assert_filename, __LINE__)
+
+/* Define the assert_filename as a static variable to save on codespace */
+
+#define	ASSERT_FILENAME	\
+	static UCHAR assert_filename[] = __FILE__; \
+	static UCHAR assert_blkchk_msg[] = "Unexpected memory block type";	/* NTX: dev */
+
+#else /* PROD_BUILD */
+
+#define DEV_BLKCHK(blk, typ)
+#define _assert(ex)
+#define assert(ex)
+#define ASSERT_FAIL
+#define	ASSERT_FILENAME
+
+#endif /* DEV_BUILD */
+
+#endif /* _DSQL_DSQL_H_ */
diff --git a/src/dsql/dsql_proto.h b/src/dsql/dsql_proto.h
new file mode 100644
index 0000000000..04def92b89
--- /dev/null
+++ b/src/dsql/dsql_proto.h
@@ -0,0 +1,68 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		dsql_proto.h
+ *	DESCRIPTION:	Prototype Header file for dsql.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_DSQL_PROTO_H_
+#define _DSQL_DSQL_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern STATUS DLL_EXPORT dsql8_allocate_statement(	STATUS*,
+													int**,
+													struct req**);
+extern STATUS DLL_EXPORT dsql8_execute(STATUS *, void **, struct req**,
+									   USHORT, UCHAR *, USHORT, USHORT,
+									   UCHAR *, USHORT, UCHAR *, USHORT,
+									   USHORT, UCHAR *);
+extern STATUS DLL_EXPORT dsql8_execute_immediate(STATUS *, int **, int **,
+												 USHORT, TEXT *, USHORT,
+												 USHORT, UCHAR *, USHORT,
+												 USHORT, UCHAR *, USHORT,
+												 UCHAR *, USHORT, USHORT,
+												 UCHAR *);
+#ifdef SCROLLABLE_CURSORS
+extern STATUS DLL_EXPORT dsql8_fetch(STATUS *, struct req **, USHORT, UCHAR *,
+									 USHORT, USHORT, UCHAR *, USHORT, SLONG);
+#else
+extern STATUS DLL_EXPORT dsql8_fetch(STATUS *, struct req **, USHORT, UCHAR *,
+									 USHORT, USHORT, UCHAR *);
+#endif /* SCROLLABLE_CURSORS */
+extern STATUS DLL_EXPORT dsql8_free_statement(STATUS *, struct req **,
+											  USHORT);
+extern STATUS DLL_EXPORT dsql8_insert(STATUS *, struct req **, USHORT,
+									  UCHAR *, USHORT, USHORT, UCHAR *);
+extern STATUS DLL_EXPORT dsql8_prepare(STATUS *, void **, struct req **,
+									   USHORT, TEXT *, USHORT, USHORT,
+									   UCHAR *, USHORT, UCHAR *);
+extern STATUS DLL_EXPORT dsql8_set_cursor(STATUS *, struct req **, TEXT *,
+										  USHORT);
+extern STATUS DLL_EXPORT dsql8_sql_info(STATUS *, struct req **, USHORT,
+										SCHAR *, USHORT, SCHAR *);
+extern void DSQL_pretty(struct nod *, int);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /*  _DSQL_DSQL_PROTO_H_  */
diff --git a/src/dsql/errd.cpp b/src/dsql/errd.cpp
new file mode 100644
index 0000000000..54330d451d
--- /dev/null
+++ b/src/dsql/errd.cpp
@@ -0,0 +1,327 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		err.c
+ *	DESCRIPTION:	Error handlers
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+
+#include "../dsql/dsql.h"
+#include "../dsql/sqlda.h"
+#include "../jrd/codes.h"
+#include "../jrd/iberr.h"
+#include "../dsql/errd_proto.h"
+#include "../dsql/utld_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/thd_proto.h"
+
+
+extern "C" {
+
+
+ASSERT_FILENAME					/* Define things assert() needs */
+#ifdef DEV_BUILD
+void ERRD_assert_msg( CONST UCHAR * msg, CONST UCHAR * file, ULONG lineno)
+{
+/**************************************
+ *
+ *	E R R D _ a s s e r t _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate an assertion failure with a message
+ *
+ **************************************/
+
+	char buffer[100];
+
+	sprintf(buffer, "Assertion failure: %s File: %s Line: %ld\n",	/* NTX: dev build */
+			(msg ? msg : (UCHAR *) ""), (file ? file : (UCHAR *) ""), lineno);
+	ERRD_bugcheck(buffer);
+}
+#endif /* DEV_BUILD */
+
+
+void ERRD_bugcheck( CONST TEXT * text)
+{
+/**************************************
+ *
+ *	E R R D _ b u g c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody has screwed up.  Bugcheck.
+ *
+ **************************************/
+	TEXT s[128];
+
+	sprintf(s, "INTERNAL: %s", text);	/* TXNN */
+	ERRD_error(-1, s);
+}
+
+
+void ERRD_error( int code, CONST TEXT * text)
+{
+/**************************************
+ *
+ *	E R R D _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	This routine should only be used by fatal
+ *	error messages, those that cannot use the
+ *	normal error routines because something
+ *	is very badly wrong.  ERRD_post() should
+ * 	be used by most error messages, especially
+ *	so that strings will be handled.
+ *
+ **************************************/
+	TEXT s[256];
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	sprintf(s, "** DSQL error: %s **\n", text);
+	TRACE(s);
+
+	LONGJMP(*tdsql->tsql_setjmp, code);
+}
+
+
+BOOLEAN ERRD_post_warning(STATUS status, ...)
+{
+/**************************************
+ *
+ *      E R R D _ p o s t _ w a r n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Post a warning to the current status vector.
+ *
+ **************************************/
+	va_list args;
+	int type, len;
+
+#pragma FB_COMPILER_MESSAGE("Warning, using STATUS array to hold pointers to STATUSes!")
+
+	STATUS *status_vector;
+	int indx = 0, warning_indx = 0;
+
+	VA_START(args, status);
+	status_vector = ((TSQL) GET_THREAD_DATA)->tsql_status;
+
+	if (status_vector[0] != gds_arg_gds ||
+		(status_vector[0] == gds_arg_gds && status_vector[1] == 0 &&
+		 status_vector[2] != gds_arg_warning)) {
+		/* this is a blank status vector */
+		status_vector[0] = gds_arg_gds;
+		status_vector[1] = 0;
+		status_vector[2] = gds_arg_end;
+		indx = 2;
+	}
+	else
+	{
+		/* find end of a status vector */
+		PARSE_STATUS(status_vector, indx, warning_indx);
+		if (indx)
+			--indx;
+	}
+
+/* stuff the warning */
+	if (indx + 3 < ISC_STATUS_LENGTH) {
+		status_vector[indx++] = gds_arg_warning;
+		status_vector[indx++] = status;
+		while ((type = va_arg(args, int)) && (indx + 3 < ISC_STATUS_LENGTH))
+			switch (status_vector[indx++] = type) {
+			case gds_arg_warning:
+				status_vector[indx++] = (STATUS) va_arg(args, STATUS);
+				break;
+
+			case gds_arg_string:
+				{
+					const char* pszTmp = va_arg(args, char*);
+					if (strlen(pszTmp) >= MAX_ERRSTR_LEN) {
+						status_vector[(indx - 1)] = gds_arg_cstring;
+						status_vector[indx++] = MAX_ERRSTR_LEN;
+					}
+					status_vector[indx++] = reinterpret_cast<STATUS>(pszTmp);
+				}
+				break;
+
+			case gds_arg_interpreted:
+				status_vector[indx++] = (STATUS) va_arg(args, TEXT *);
+				break;
+
+			case gds_arg_cstring:
+				len = va_arg(args, int);
+				status_vector[indx++] =
+					(STATUS) (len >= MAX_ERRSTR_LEN) ? MAX_ERRSTR_LEN : len;
+				status_vector[indx++] = (STATUS) va_arg(args, TEXT *);
+				break;
+
+			case gds_arg_number:
+				status_vector[indx++] = (STATUS) va_arg(args, SLONG);
+				break;
+
+			case gds_arg_vms:
+			case gds_arg_unix:
+			case gds_arg_domain:
+			case gds_arg_dos:
+			case gds_arg_mpexl:
+			case gds_arg_next_mach:
+			case gds_arg_netware:
+			case gds_arg_win32:
+			default:
+				status_vector[indx++] = (STATUS) va_arg(args, int);
+				break;
+			}
+		status_vector[indx] = gds_arg_end;
+		return TRUE;
+	}
+	else {
+		/* not enough free space */
+		return FALSE;
+	}
+}
+
+
+void ERRD_post( STATUS status, ...)
+{
+/**************************************
+ *
+ *	E R R D _ p o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an error, copying any potentially
+ *	transient data before we do the longjmp.
+ *
+ **************************************/
+	STATUS *status_vector;
+	STATUS tmp_status[ISC_STATUS_LENGTH], warning_status[ISC_STATUS_LENGTH];
+	int i, tmp_status_len = 0, status_len = 0, err_status_len = 0;
+	int warning_count = 0, warning_indx = 0;
+
+	status_vector = ((TSQL) GET_THREAD_DATA)->tsql_status;
+
+/* stuff the status into temp buffer */
+	MOVE_CLEAR(tmp_status, sizeof(tmp_status));
+	STUFF_STATUS(tmp_status, status);
+
+/* calculate length of the status */
+	PARSE_STATUS(tmp_status, tmp_status_len, warning_indx);
+	assert(warning_indx == 0);
+
+	if (status_vector[0] != gds_arg_gds ||
+		(status_vector[0] == gds_arg_gds && status_vector[1] == 0 &&
+		 status_vector[2] != gds_arg_warning)) {
+		/* this is a blank status vector */
+		status_vector[0] = gds_arg_gds;
+		status_vector[1] = gds__dsql_error;
+		status_vector[2] = gds_arg_end;
+	}
+
+	PARSE_STATUS(status_vector, status_len, warning_indx);
+	if (status_len)
+		--status_len;
+
+/* check for duplicated error code */
+	for (i = 0; i < ISC_STATUS_LENGTH; i++) {
+		if (status_vector[i] == gds_arg_end && i == status_len)
+			break;				/* end of argument list */
+
+		if (i && i == warning_indx)
+			break;				/* vector has no more errors */
+
+		if (status_vector[i] == tmp_status[1] && i &&
+			status_vector[i - 1] != gds_arg_warning &&
+			i + tmp_status_len - 2 < ISC_STATUS_LENGTH &&
+			(memcmp(&status_vector[i], &tmp_status[1],
+					sizeof(STATUS) * (tmp_status_len - 2)) == 0)) {
+			/* duplicate found */
+			ERRD_punt();
+		}
+	}
+
+/* if the status_vector has only warnings then adjust err_status_len */
+	if ((err_status_len = i) == 2 && warning_indx)
+		err_status_len = 0;
+
+	if (warning_indx) {
+		/* copy current warning(s) to a temp buffer */
+		MOVE_CLEAR(warning_status, sizeof(warning_status));
+		MOVE_FASTER(&status_vector[warning_indx], warning_status,
+					sizeof(STATUS) * (ISC_STATUS_LENGTH - warning_indx));
+		PARSE_STATUS(warning_status, warning_count, warning_indx);
+	}
+
+/* add the status into a real buffer right in between last error
+   and first warning */
+
+	if ((i = err_status_len + tmp_status_len) < ISC_STATUS_LENGTH) {
+		MOVE_FASTER(tmp_status, &status_vector[err_status_len],
+					sizeof(STATUS) * tmp_status_len);
+		/* copy current warning(s) to the status_vector */
+		if (warning_count && i + warning_count - 1 < ISC_STATUS_LENGTH) {
+			MOVE_FASTER(warning_status, &status_vector[i - 1],
+						sizeof(STATUS) * warning_count);
+
+		}
+	}
+	ERRD_punt();
+}
+
+
+void ERRD_punt(void)
+{
+/**************************************
+ *
+ *	E R R D _ p u n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Error stuff has been copied to
+ *	status vector.  Now punt.
+ *
+ **************************************/
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+/* Save any strings in a permanent location */
+
+	UTLD_save_status_strings(tdsql->tsql_status);
+
+/* Give up whatever we were doing and return to the user. */
+
+	LONGJMP(*tdsql->tsql_setjmp, (int) tdsql->tsql_status[1]);
+}
+
+
+}	// extern "C"
diff --git a/src/dsql/errd_proto.h b/src/dsql/errd_proto.h
new file mode 100644
index 0000000000..a606294be8
--- /dev/null
+++ b/src/dsql/errd_proto.h
@@ -0,0 +1,45 @@
+/*
+ *	PROGRAM:	Dynamic  SQL RUNTIME SUPPORT
+ *	MODULE:		errd_proto.h
+ *	DESCRIPTION:	Prototype Header file for errd_proto.h
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef DSQL_ERRD_PROTO_H
+#define DSQL_ERRD_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#ifdef DEV_BUILD
+void ERRD_assert_msg(CONST UCHAR *, CONST UCHAR *, ULONG);
+#endif
+
+void ERRD_bugcheck(CONST TEXT *);
+void ERRD_error(int, CONST TEXT *);
+void ERRD_post(STATUS, ...);
+BOOLEAN ERRD_post_warning(STATUS, ...);
+void ERRD_punt(void);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* DSQL_ERRD_PROTO_H */
diff --git a/src/dsql/gen.cpp b/src/dsql/gen.cpp
new file mode 100644
index 0000000000..04b7a56e3b
--- /dev/null
+++ b/src/dsql/gen.cpp
@@ -0,0 +1,2398 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		gen.c
+ *	DESCRIPTION:	Routines to generate BLR.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: gen.cpp,v 1.1.1.1 2001-05-23 13:25:34 tamlin Exp $
+*/
+
+#include <string.h>
+#include <stdio.h>
+#include "../dsql/dsql.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/align.h"
+#include "../dsql/node.h"
+#include "../jrd/intl.h"
+#include "../dsql/sym.h"
+#include "../dsql/alld_proto.h"
+#include "../dsql/ddl_proto.h"
+#include "../dsql/errd_proto.h"
+#include "../dsql/gen_proto.h"
+#include "../dsql/make_proto.h"
+#include "../dsql/metd_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/dsc_proto.h"
+#include "../include/iberror.h"
+
+ASSERT_FILENAME static void gen_aggregate(REQ, NOD);
+static void gen_cast(REQ, NOD);
+static void gen_constant(REQ, DSC *, BOOLEAN);
+static void gen_descriptor(REQ, DSC *, USHORT);
+static void gen_error_condition(REQ, NOD);
+static void gen_field(REQ, CTX, FLD, NOD);
+static void gen_for_select(REQ, NOD);
+static void gen_gen_id(REQ, NOD);
+static void gen_join_rse(REQ, NOD);
+static void gen_map(REQ, MAP);
+static void gen_parameter(REQ, PAR);
+static void gen_plan(REQ, NOD);
+static void gen_relation(REQ, CTX);
+static void gen_rse(REQ, NOD);
+static void gen_select(REQ, NOD);
+static void gen_sort(REQ, NOD);
+static void gen_table_lock(REQ, NOD, USHORT);
+static void gen_udf(REQ, NOD);
+static void gen_union(REQ, NOD);
+static void stuff_cstring(REQ, char *);
+static void stuff_word(REQ, USHORT);
+
+static CONST SCHAR db_key_name[] = "DB_KEY";
+
+/* STUFF is defined in dsql.h for use in common with ddl.c */
+
+#define STUFF_WORD(word)	stuff_word (request, (USHORT)(word))
+#define STUFF_CSTRING(cstring)	stuff_cstring (request, (char*) (cstring))
+
+/* The following are passed as the third argument to gen_constant */
+#define NEGATE_VALUE TRUE
+#define USE_VALUE    FALSE
+
+
+
+UCHAR GEN_expand_buffer( REQ request, UCHAR byte)
+{
+/**************************************
+ *
+ *	G E N _ e x p a n d _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	The blr buffer needs to be expanded.
+ *
+ **************************************/
+	ULONG length;
+	ULONG copy_length;
+	PLB pool;
+	STR new_buffer;
+	BLOB_PTR *p;				/* one huge pointer per line for LIBS */
+	BLOB_PTR *q;				/* one huge pointer per line for LIBS */
+	BLOB_PTR *end;				/* one huge pointer per line for LIBS */
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	length = request->req_blr_string->str_length + 2048;
+	pool = (request->req_blr_string->str_header.blk_pool_id ==
+			DSQL_permanent_pool->plb_pool_id) ?
+		DSQL_permanent_pool : tdsql->tsql_default;
+	new_buffer = (STR) ALLOCV(type_str, pool, length);
+	new_buffer->str_length = length;
+
+	p = new_buffer->str_data;
+	q = request->req_blr_string->str_data;
+	end = request->req_blr;
+	copy_length = (ULONG) (end - q);
+	memcpy(p, q, copy_length);
+
+	ALLD_release(reinterpret_cast<FRB>(request->req_blr_string));
+	request->req_blr_string = new_buffer;
+	request->req_blr = p + copy_length;
+	request->req_blr_yellow = new_buffer->str_data + length;
+
+	return (*request->req_blr++ = byte);
+}
+
+
+void GEN_expr( REQ request, NOD node)
+{
+/**************************************
+ *
+ *	G E N _ e x p r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate blr for an arbitrary expression.
+ *
+ **************************************/
+	UCHAR operator_;
+	NOD *ptr, *end, ddl_node;
+	CTX context;
+	MAP map;
+	VAR variable;
+
+	switch (node->nod_type) {
+	case nod_alias:
+		GEN_expr(request, node->nod_arg[e_alias_value]);
+		return;
+
+	case nod_aggregate:
+		gen_aggregate(request, node);
+		return;
+
+	case nod_constant:
+		gen_constant(request, &node->nod_desc, USE_VALUE);
+		return;
+
+	case nod_extract:
+		STUFF(blr_extract);
+		STUFF(*(SLONG *) node->nod_arg[e_extract_part]->nod_desc.dsc_address);
+		GEN_expr(request, node->nod_arg[e_extract_value]);
+		return;
+
+	case nod_dbkey:
+		node = node->nod_arg[0];
+		context = (CTX) node->nod_arg[e_rel_context];
+		STUFF(blr_dbkey);
+		STUFF(context->ctx_context);
+		return;
+
+	case nod_rec_version:
+		node = node->nod_arg[0];
+		context = (CTX) node->nod_arg[e_rel_context];
+		STUFF(blr_record_version);
+		STUFF(context->ctx_context);
+		return;
+
+	case nod_dom_value:
+		if ((request->req_type != REQ_DDL) ||
+			!(ddl_node = request->req_ddl_node) ||
+			!(ddl_node->nod_type == nod_def_domain ||
+			  ddl_node->nod_type == nod_mod_domain))
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 901,
+						  gds_arg_gds, gds_dsql_domain_err, 0);
+		STUFF(blr_fid);
+		STUFF(0);				/* Context   */
+		STUFF_WORD(0);			/* Field id  */
+		return;
+
+	case nod_field:
+		gen_field(request,
+				  (CTX) node->nod_arg[e_fld_context],
+				  (FLD) node->nod_arg[e_fld_field],
+				  node->nod_arg[e_fld_indices]);
+		return;
+
+	case nod_user_name:
+		STUFF(blr_user_name);
+		return;
+
+	case nod_current_time:
+		STUFF(blr_current_time);
+		return;
+
+	case nod_current_timestamp:
+		STUFF(blr_current_timestamp);
+		return;
+
+	case nod_current_date:
+		STUFF(blr_current_date);
+		return;
+
+	case nod_udf:
+		gen_udf(request, node);
+		return;
+
+	case nod_variable:
+		variable = (VAR) node->nod_arg[e_var_variable];
+		if (variable->var_flags & VAR_input) {
+			STUFF(blr_parameter2);
+			STUFF(variable->var_msg_number);
+			STUFF_WORD(variable->var_msg_item);
+			STUFF_WORD(variable->var_msg_item + 1);
+		}
+		else {
+			STUFF(blr_variable);
+			STUFF_WORD(variable->var_variable_number);
+		}
+		return;
+
+	case nod_join:
+		gen_join_rse(request, node);
+		return;
+
+	case nod_map:
+		map = (MAP) node->nod_arg[e_map_map];
+		context = (CTX) node->nod_arg[e_map_context];
+		STUFF(blr_fid);
+		STUFF(context->ctx_context);
+		STUFF_WORD(map->map_position);
+		return;
+
+	case nod_parameter:
+		gen_parameter(request, (PAR) node->nod_arg[e_par_parameter]);
+		return;
+
+	case nod_relation:
+		gen_relation(request, (CTX) node->nod_arg[e_rel_context]);
+		return;
+
+	case nod_rse:
+		gen_rse(request, node);
+		return;
+
+	case nod_exists:
+		STUFF(blr_any);
+		gen_rse(request, node->nod_arg[0]);
+		return;
+
+	case nod_singular:
+		STUFF(blr_unique);
+		gen_rse(request, node->nod_arg[0]);
+		return;
+
+	case nod_agg_count:
+		if (!(request->req_dbb->dbb_flags & DBB_v3)) {
+			if (node->nod_count)
+				operator_ = (node->nod_flags & NOD_AGG_DISTINCT) ?
+					blr_agg_count_distinct : blr_agg_count2;
+			else
+				operator_ = blr_agg_count;
+		}
+		else
+			operator_ = blr_agg_count;
+		break;
+
+	case nod_agg_min:
+		operator_ = blr_agg_min;
+		break;
+	case nod_agg_max:
+		operator_ = blr_agg_max;
+		break;
+
+	case nod_agg_average:
+		if (!(request->req_dbb->dbb_flags & DBB_v3))
+			operator_ = (node->nod_flags & NOD_AGG_DISTINCT) ?
+				blr_agg_average_distinct : blr_agg_average;
+		else
+			operator_ = blr_agg_average;
+		break;
+
+	case nod_agg_total:
+		if (!(request->req_dbb->dbb_flags & DBB_v3))
+			operator_ = (node->nod_flags & NOD_AGG_DISTINCT) ?
+				blr_agg_total_distinct : blr_agg_total;
+		else
+			operator_ = blr_agg_total;
+		break;
+
+	case nod_agg_average2:
+		operator_ = (node->nod_flags & NOD_AGG_DISTINCT) ?
+			blr_agg_average_distinct : blr_agg_average;
+		break;
+
+	case nod_agg_total2:
+		operator_ = (node->nod_flags & NOD_AGG_DISTINCT) ?
+			blr_agg_total_distinct : blr_agg_total;
+		break;
+
+	case nod_and:
+		operator_ = blr_and;
+		break;
+	case nod_or:
+		operator_ = blr_or;
+		break;
+	case nod_not:
+		operator_ = blr_not;
+		break;
+	case nod_eql_all:
+	case nod_eql_any:
+	case nod_eql:
+		operator_ = blr_eql;
+		break;
+	case nod_neq_all:
+	case nod_neq_any:
+	case nod_neq:
+		operator_ = blr_neq;
+		break;
+	case nod_gtr_all:
+	case nod_gtr_any:
+	case nod_gtr:
+		operator_ = blr_gtr;
+		break;
+	case nod_leq_all:
+	case nod_leq_any:
+	case nod_leq:
+		operator_ = blr_leq;
+		break;
+	case nod_geq_all:
+	case nod_geq_any:
+	case nod_geq:
+		operator_ = blr_geq;
+		break;
+	case nod_lss_all:
+	case nod_lss_any:
+	case nod_lss:
+		operator_ = blr_lss;
+		break;
+	case nod_between:
+		operator_ = blr_between;
+		break;
+	case nod_containing:
+		operator_ = blr_containing;
+		break;
+	case nod_starting:
+		operator_ = blr_starting;
+		break;
+	case nod_missing:
+		operator_ = blr_missing;
+		break;
+
+	case nod_like:
+		operator_ = (node->nod_count == 2) ? blr_like : blr_ansi_like;
+		break;
+
+	case nod_add:
+		operator_ = blr_add;
+		break;
+	case nod_subtract:
+		operator_ = blr_subtract;
+		break;
+	case nod_multiply:
+		operator_ = blr_multiply;
+		break;
+
+	case nod_negate:
+		{
+			NOD child = node->nod_arg[0];
+			if (child->nod_type == nod_constant &&
+				DTYPE_IS_NUMERIC(child->nod_desc.dsc_dtype)) {
+				gen_constant(request, &child->nod_desc, NEGATE_VALUE);
+				return;
+			}
+		}
+		operator_ = blr_negate;
+		break;
+
+	case nod_divide:
+		operator_ = blr_divide;
+		break;
+	case nod_add2:
+		operator_ = blr_add;
+		break;
+	case nod_subtract2:
+		operator_ = blr_subtract;
+		break;
+	case nod_multiply2:
+		operator_ = blr_multiply;
+		break;
+	case nod_divide2:
+		operator_ = blr_divide;
+		break;
+	case nod_concatenate:
+		operator_ = blr_concatenate;
+		break;
+	case nod_null:
+		operator_ = blr_null;
+		break;
+	case nod_any:
+		operator_ = blr_any;
+		break;
+	case nod_ansi_any:
+		if (!(request->req_dbb->dbb_flags & DBB_v3))
+			operator_ = blr_ansi_any;
+		else
+			operator_ = blr_any;
+		break;
+	case nod_ansi_all:
+		operator_ = blr_ansi_all;
+		break;
+	case nod_via:
+		operator_ = blr_via;
+		break;
+
+	case nod_upcase:
+		operator_ = blr_upcase;
+		break;
+	case nod_cast:
+		gen_cast(request, node);
+		return;
+	case nod_gen_id:
+	case nod_gen_id2:
+		gen_gen_id(request, node);
+		return;
+	case nod_average:
+	case nod_count:
+	case nod_from:
+	case nod_max:
+	case nod_min:
+	case nod_total:
+		switch (node->nod_type) {
+		case nod_average:
+			operator_ = blr_average;
+			break;
+		case nod_count:
+			operator_ = blr_count;
+/* count2
+		operator_ = node->nod_arg [0]->nod_arg [e_rse_items] ? blr_count2 : blr_count;
+*/
+			break;
+		case nod_from:
+			operator_ = blr_from;
+			break;
+		case nod_max:
+			operator_ = blr_maximum;
+			break;
+		case nod_min:
+			operator_ = blr_minimum;
+			break;
+		case nod_total:
+			operator_ = blr_total;
+			break;
+
+		default:
+			break;
+		}
+
+		STUFF(operator_);
+		gen_rse(request, node->nod_arg[0]);
+		if (operator_ != blr_count)
+			GEN_expr(request, node->nod_arg[0]->nod_arg[e_rse_items]);
+		return;
+
+	default:
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 901,
+				  gds_arg_gds, gds_dsql_internal_err,
+				  gds_arg_gds, gds_expression_eval_err,
+				  /* expression evaluation not supported */
+				  0);
+	}
+
+	STUFF(operator_);
+
+	for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end; ptr++)
+		GEN_expr(request, *ptr);
+
+/* Check whether the node we just processed is for a dialect 3
+   operation which gives a different result than the corresponding
+   operation in dialect 1.  If it is, and if the client dialect is 2,
+   issue a warning about the difference. */
+
+	if (node->nod_type == nod_add2 ||
+		node->nod_type == nod_subtract2 ||
+		node->nod_type == nod_multiply2 ||
+		node->nod_type == nod_divide2 ||
+		node->nod_type == nod_agg_total2 ||
+		node->nod_type == nod_agg_average2) {
+		DSC desc;
+		char *s;
+		char message_buf[8];
+
+		MAKE_desc(&desc, node);
+		if ((node->nod_flags & NOD_COMP_DIALECT) &&
+			(request->req_client_dialect == SQL_DIALECT_V6_TRANSITION)) {
+			switch (node->nod_type) {
+			case nod_add2:
+				s = "add";
+				break;
+			case nod_subtract2:
+				s = "subtract";
+				break;
+			case nod_multiply2:
+				s = "multiply";
+				break;
+			case nod_divide2:
+				s = "divide";
+				break;
+			case nod_agg_total2:
+				s = "sum";
+				break;
+			case nod_agg_average2:
+				s = "avg";
+				break;
+			default:
+				sprintf(message_buf, "blr %d", operator_);
+				s = message_buf;
+			}
+			ERRD_post_warning(isc_dsql_dialect_warning_expr,
+							  gds_arg_string, s, gds_arg_end);
+		}
+	}
+
+}
+
+
+void GEN_port( REQ request, MSG message)
+{
+/**************************************
+ *
+ *	G E N _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a port from a message.  Feel free to rearrange the
+ *	order of parameters.
+ *
+ **************************************/
+	STR buffer;
+	PAR parameter;
+	USHORT number, align;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	if (request->req_blr_string) {
+		STUFF(blr_message);
+		STUFF(message->msg_number);
+		STUFF_WORD(message->msg_parameter);
+	}
+
+	for (parameter = message->msg_parameters, number = 0; parameter;
+		 parameter = parameter->par_next) {
+		parameter->par_parameter = number++;
+
+		/* For older clients - generate an error should they try and
+		   access data types which did not exist in the older dialect */
+		if (request->req_client_dialect <= SQL_DIALECT_V5)
+			switch (parameter->par_desc.dsc_dtype) {
+#ifdef SQL_DIALECT_1_NEW_DATATYPES_CONVERT_TO_TEXT
+				/* An early design of how to handle access of new datatype
+				   fields by older clients determined that conversion of
+				   the new types to TEXT was the proper way.  A later design
+				   meeting decided that SQL Dialect 1 should forbid all
+				   access to the newer datatypes.
+				   Should this decision be revisited during v6.0 BETA,
+				   this is the code that converts select & insert
+				   references to the new datatypes to TEXT.
+				   1999-Mar-17 David Schnepper */
+
+			case dtype_sql_date:
+				parameter->par_desc.dsc_dtype = dtype_text;
+				parameter->par_desc.dsc_scale = 0;
+				parameter->par_desc.dsc_ttype = ttype_ascii;
+				parameter->par_desc.dsc_length =
+					DSC_convert_to_text_length(dtype_sql_date);
+				break;
+			case dtype_sql_time:
+				parameter->par_desc.dsc_dtype = dtype_text;
+				parameter->par_desc.dsc_scale = 0;
+				parameter->par_desc.dsc_ttype = ttype_ascii;
+				parameter->par_desc.dsc_length =
+					DSC_convert_to_text_length(dtype_sql_time);
+				break;
+			case dtype_int64:
+				if (parameter->par_desc.dsc_scale < 0)
+					length = 1;	/* For decimal point */
+				else
+					length = parameter->par_desc.dsc_scale;
+				length += DSC_convert_to_text_length(dtype_int64) - 1;
+				parameter->par_desc.dsc_dtype = dtype_text;
+				parameter->par_desc.dsc_scale = 0;
+				parameter->par_desc.dsc_ttype = ttype_ascii;
+				parameter->par_desc.dsc_length = length;
+				break;
+#else
+
+				/* In V6.0 - older clients, which we distinguish by
+				   their use of SQL DIALECT 0 or 1, are forbidden
+				   from selecting values of new datatypes */
+
+			case dtype_sql_date:
+			case dtype_sql_time:
+			case dtype_int64:
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 804,
+						  gds_arg_gds, gds_dsql_datatype_err,
+						  gds_arg_gds, isc_sql_dialect_datatype_unsupport,
+						  gds_arg_number, request->req_client_dialect,
+						  gds_arg_string,
+						  DSC_dtype_tostring(parameter->par_desc.dsc_dtype),
+						  0);
+				break;
+#endif /* SQL_DIALECT_1_NEW_DATATYPES_CONVERT_TO_TEXT */
+			default:
+				/* No special action for other data types */
+				break;
+			};
+		align = type_alignments[parameter->par_desc.dsc_dtype];
+		if (align)
+			message->msg_length = FB_ALIGN(message->msg_length, align);
+		parameter->par_desc.dsc_address =
+			(UCHAR *) (SLONG) message->msg_length;
+		message->msg_length += parameter->par_desc.dsc_length;
+		if (request->req_blr_string)
+			gen_descriptor(request, &parameter->par_desc, FALSE);
+	}
+
+/* Allocate buffer for message */
+
+	buffer = (STR) ALLOCDV(type_str, message->msg_length + DOUBLE_ALIGN - 1);
+	message->msg_buffer =
+		(UCHAR *) FB_ALIGN((U_IPTR) buffer->str_data, DOUBLE_ALIGN);
+
+/* Relocate parameter descriptors to point direction into message buffer */
+
+	for (parameter = message->msg_parameters; parameter;
+		 parameter = parameter->par_next)
+			parameter->par_desc.dsc_address =
+			message->msg_buffer + (SLONG) parameter->par_desc.dsc_address;
+}
+
+
+void GEN_request( REQ request, NOD node)
+{
+/**************************************
+ *
+ *	G E N _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate complete blr for a request.
+ *		       
+ **************************************/
+	MSG message;
+
+	if (request->req_type == REQ_DDL) {
+		DDL_generate(request, node);
+		return;
+	}
+
+	if (request->req_flags & REQ_blr_version4)
+		STUFF(blr_version4);
+	else
+		STUFF(blr_version5);
+	STUFF(blr_begin);
+
+	if (request->req_type == REQ_SELECT ||
+		request->req_type == REQ_SELECT_UPD) gen_select(request, node);
+	else {
+		message = request->req_send;
+		if (!message->msg_parameter)
+			request->req_send = NULL;
+		else {
+			GEN_port(request, message);
+			if (request->req_type != REQ_EXEC_PROCEDURE) {
+				STUFF(blr_receive);
+				STUFF(message->msg_number);
+			}
+		}
+		message = request->req_receive;
+		if (!message->msg_parameter)
+			request->req_receive = NULL;
+		else
+			GEN_port(request, message);
+		GEN_statement(request, node);
+	}
+
+	STUFF(blr_end);
+	STUFF(blr_eoc);
+}
+
+
+void GEN_start_transaction( REQ request, NOD tran_node)
+{
+/**************************************
+ *
+ *	G E N _ s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate tpb for set transaction.  Use blr string of request.
+ *	If a value is not specified, default is not STUFF'ed, let the
+ *	engine handle it.
+ *	Do not allow an option to be specified more than once.
+ *
+ **************************************/
+	NOD *temp, ptr, *end;
+	SSHORT count;
+	NOD reserve, node;
+	SSHORT sw_access, sw_wait, sw_isolation, sw_reserve;
+	USHORT lock_level;
+
+	count = tran_node->nod_count;
+
+	if (!count)
+		return;
+
+	sw_access = sw_wait = sw_isolation = sw_reserve = 0;
+
+	node = tran_node->nod_arg[0];
+
+	if (!node)
+		return;
+
+/* find out isolation level - if specified. This is required for
+ * specifying the correct lock level in reserving clause. */
+
+	lock_level = gds_tpb_shared;
+
+	if (count = node->nod_count) {
+		while (count--) {
+			ptr = node->nod_arg[count];
+
+			if ((!ptr) || (ptr->nod_type != nod_isolation))
+				continue;
+
+			lock_level =
+				(ptr->
+				 nod_flags & NOD_CONSISTENCY) ? gds_tpb_protected :
+				gds_tpb_shared;
+		}
+	}
+
+/* Stuff some version info. */
+
+	if (count = node->nod_count)
+		STUFF(gds_tpb_version1);
+
+	while (count--) {
+		ptr = node->nod_arg[count];
+
+		if (!ptr)
+			continue;
+
+		switch (ptr->nod_type) {
+		case nod_access:
+			if (sw_access)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, gds_dsql_dup_option, 0);
+
+			sw_access = 1;
+			if (ptr->nod_flags & NOD_READ_ONLY)
+				STUFF(gds_tpb_read);
+			else
+				STUFF(gds_tpb_write);
+			break;
+
+		case nod_wait:
+			if (sw_wait)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, gds_dsql_dup_option, 0);
+
+			sw_wait = 1;
+			if (ptr->nod_flags & NOD_NO_WAIT)
+				STUFF(gds_tpb_nowait);
+			else
+				STUFF(gds_tpb_wait);
+			break;
+
+		case nod_isolation:
+			if (sw_isolation)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, gds_dsql_dup_option, 0);
+
+			sw_isolation = 1;
+
+			if (ptr->nod_flags & NOD_CONCURRENCY)
+				STUFF(gds_tpb_concurrency);
+			else if (ptr->nod_flags & NOD_CONSISTENCY)
+				STUFF(gds_tpb_consistency);
+			else {
+				STUFF(gds_tpb_read_committed);
+
+				if ((ptr->nod_count) && (ptr->nod_arg[0]) &&
+					(ptr->nod_arg[0]->nod_type == nod_version)) {
+					if (ptr->nod_arg[0]->nod_flags & NOD_VERSION)
+						STUFF(gds_tpb_rec_version);
+					else
+						STUFF(gds_tpb_no_rec_version);
+				}
+				else
+					STUFF(gds_tpb_no_rec_version);
+			}
+
+			break;
+
+		case nod_reserve:
+			if (sw_reserve)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, gds_dsql_dup_option, 0);
+
+			sw_reserve = 1;
+			reserve = ptr->nod_arg[0];
+
+			if (reserve)
+				for (temp = reserve->nod_arg, end = temp + reserve->nod_count;
+					 temp < end; temp++)
+					gen_table_lock(request, *temp, lock_level);
+
+			break;
+
+		default:
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+					  gds_arg_gds, gds_dsql_tran_err, 0);
+		}
+	}
+}
+
+
+void GEN_statement( REQ request, NOD node)
+{
+/**************************************
+ *
+ *	G E N _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate blr for an arbitrary expression.
+ *
+ **************************************/
+	NOD temp, *ptr, *end;
+	CTX context;
+	MSG message;
+	STR name;
+	STR string;
+	TEXT *p;
+	ULONG id_length;
+
+	switch (node->nod_type) {
+	case nod_assign:
+		STUFF(blr_assignment);
+		GEN_expr(request, node->nod_arg[0]);
+		GEN_expr(request, node->nod_arg[1]);
+		return;
+
+	case nod_block:
+		STUFF(blr_block);
+		GEN_statement(request, node->nod_arg[e_blk_action]);
+		if (node->nod_count > 1) {
+			temp = node->nod_arg[e_blk_errs];
+			for (ptr = temp->nod_arg, end = ptr + temp->nod_count;
+				 ptr < end; ptr++)
+				GEN_statement(request, *ptr);
+		}
+		STUFF(blr_end);
+		return;
+
+	case nod_erase:
+		if ((temp = node->nod_arg[e_era_rse]) != NULL) {
+			STUFF(blr_for);
+			GEN_expr(request, temp);
+		}
+		temp = node->nod_arg[e_era_relation];
+		context = (CTX) temp->nod_arg[e_rel_context];
+		STUFF(blr_erase);
+		STUFF(context->ctx_context);
+		return;
+
+	case nod_erase_current:
+		STUFF(blr_erase);
+		context = (CTX) node->nod_arg[e_erc_context];
+		STUFF(context->ctx_context);
+		return;
+
+	case nod_exec_procedure:
+		if (request->req_type == REQ_EXEC_PROCEDURE) {
+			if (message = request->req_receive) {
+				STUFF(blr_begin);
+				STUFF(blr_send);
+				STUFF(message->msg_number);
+			}
+		}
+		else
+			message = NULL;
+		STUFF(blr_exec_proc);
+		name = (STR) node->nod_arg[e_exe_procedure];
+		STUFF_CSTRING(name->str_data);
+		if (temp = node->nod_arg[e_exe_inputs]) {
+			STUFF_WORD(temp->nod_count);
+			for (ptr = temp->nod_arg, end = ptr + temp->nod_count;
+				 ptr < end; ptr++)
+				GEN_expr(request, *ptr);
+		}
+		else
+			STUFF_WORD(0);
+		if (temp = node->nod_arg[e_exe_outputs]) {
+			STUFF_WORD(temp->nod_count);
+			for (ptr = temp->nod_arg, end = ptr + temp->nod_count;
+				 ptr < end; ptr++)
+				GEN_expr(request, *ptr);
+		}
+		else
+			STUFF_WORD(0);
+		if (message)
+			STUFF(blr_end);
+		return;
+
+	case nod_for_select:
+		gen_for_select(request, node);
+		return;
+
+	case nod_set_generator:
+	case nod_set_generator2:
+		STUFF(blr_set_generator);
+		string = (STR) node->nod_arg[e_gen_id_name];
+		STUFF_CSTRING(string->str_data);
+		GEN_expr(request, node->nod_arg[e_gen_id_value]);
+		return;
+
+	case nod_if:
+		STUFF(blr_if);
+		GEN_expr(request, node->nod_arg[e_if_condition]);
+		GEN_statement(request, node->nod_arg[e_if_true]);
+		if (node->nod_arg[e_if_false])
+			GEN_statement(request, node->nod_arg[e_if_false]);
+		else
+			STUFF(blr_end);
+		return;
+
+	case nod_list:
+		STUFF(blr_begin);
+		for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end;
+			 ptr++)
+			GEN_statement(request, *ptr);
+		STUFF(blr_end);
+		return;
+
+	case nod_modify:
+		if ((temp = node->nod_arg[e_mod_rse]) != NULL) {
+			STUFF(blr_for);
+			GEN_expr(request, temp);
+		}
+		STUFF(blr_modify);
+		temp = node->nod_arg[e_mod_source];
+		context = (CTX) temp->nod_arg[e_rel_context];
+		STUFF(context->ctx_context);
+		temp = node->nod_arg[e_mod_update];
+		context = (CTX) temp->nod_arg[e_rel_context];
+		STUFF(context->ctx_context);
+		GEN_statement(request, node->nod_arg[e_mod_statement]);
+		return;
+
+	case nod_modify_current:
+		STUFF(blr_modify);
+		context = (CTX) node->nod_arg[e_mdc_context];
+		STUFF(context->ctx_context);
+		temp = node->nod_arg[e_mdc_update];
+		context = (CTX) temp->nod_arg[e_rel_context];
+		STUFF(context->ctx_context);
+		GEN_statement(request, node->nod_arg[e_mdc_statement]);
+		return;
+
+	case nod_on_error:
+		STUFF(blr_error_handler);
+		temp = node->nod_arg[e_err_errs];
+		STUFF_WORD(temp->nod_count);
+		for (ptr = temp->nod_arg, end = ptr + temp->nod_count; ptr < end;
+			 ptr++)
+			gen_error_condition(request, *ptr);
+		GEN_statement(request, node->nod_arg[e_err_action]);
+		return;
+
+	case nod_post:
+		STUFF(blr_post);
+		GEN_expr(request, node->nod_arg[e_pst_event]);
+		return;
+
+	case nod_return:
+		GEN_return(request, node->nod_arg[e_rtn_procedure], FALSE);
+		return;
+
+	case nod_exit:
+		STUFF(blr_leave);
+		STUFF(0);
+		return;
+
+	case nod_store:
+		if ((temp = node->nod_arg[e_sto_rse]) != NULL) {
+			STUFF(blr_for);
+			GEN_expr(request, temp);
+		}
+		STUFF(blr_store);
+		GEN_expr(request, node->nod_arg[e_sto_relation]);
+		GEN_statement(request, node->nod_arg[e_sto_statement]);
+		return;
+
+	case nod_abort:
+		STUFF(blr_leave);
+		STUFF((int) node->nod_arg[e_abrt_number]);
+		return;
+
+	case nod_start_savepoint:
+		STUFF(blr_start_savepoint);
+		return;
+
+	case nod_end_savepoint:
+		STUFF(blr_end_savepoint);
+		return;
+
+	case nod_exception_stmt:
+		STUFF(blr_abort);
+		STUFF(blr_exception);
+		string = (STR) node->nod_arg[0];
+		if (!(string->str_flags & STR_delimited_id)) {
+			id_length = string->str_length;
+			for (p = reinterpret_cast < char *>(string->str_data); *p;
+				 id_length--) {
+				*p = UPPER(*p);
+				*p++;
+			}
+		}
+		STUFF_CSTRING(string->str_data);
+		return;
+
+	case nod_while:
+		STUFF(blr_label);
+		STUFF((int) node->nod_arg[e_while_number]);
+		STUFF(blr_loop);
+		STUFF(blr_begin);
+		STUFF(blr_if);
+		GEN_expr(request, node->nod_arg[e_while_cond]);
+		GEN_statement(request, node->nod_arg[e_while_action]);
+		STUFF(blr_leave);
+		STUFF((int) node->nod_arg[e_while_number]);
+		STUFF(blr_end);
+		return;
+
+	case nod_sqlcode:
+	case nod_gdscode:
+		STUFF(blr_abort);
+		gen_error_condition(request, node);
+		return;
+
+	default:
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 901,
+				  gds_arg_gds, gds_dsql_internal_err, gds_arg_gds, gds_node_err,	/* gen.c: node not supported */
+				  0);
+	}
+}
+
+
+static void gen_aggregate( REQ request, NOD node)
+{
+/**************************************
+ *
+ *	g e n _ a g g r e g a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate blr for a relation reference.
+ *
+ **************************************/
+	NOD list, *ptr, *end;
+	CTX context;
+
+	context = (CTX) node->nod_arg[e_agg_context];
+	STUFF(blr_aggregate);
+	STUFF(context->ctx_context);
+	gen_rse(request, node->nod_arg[e_agg_rse]);
+
+/* Handle GROUP BY clause */
+
+	STUFF(blr_group_by);
+
+	if ((list = node->nod_arg[e_agg_group]) != NULL) {
+		STUFF(list->nod_count);
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++)
+			GEN_expr(request, *ptr);
+	}
+	else
+		STUFF(0);
+
+/* Generate value map */
+
+	gen_map(request, context->ctx_map);
+}
+
+
+static void gen_cast( REQ request, NOD node)
+{
+/**************************************
+ *
+ *      g e n _ c a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Generate BLR for a data-type cast operation
+ *
+ **************************************/
+	FLD field;
+
+	STUFF(blr_cast);
+	field = (FLD) node->nod_arg[e_cast_target];
+	DDL_put_field_dtype(request, field, TRUE);
+	GEN_expr(request, node->nod_arg[e_cast_source]);
+}
+
+
+static void gen_constant( REQ request, DSC * desc, BOOLEAN negate_value)
+{
+/**************************************
+ *
+ *	g e n _ c o n s t a n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate BLR for a constant.
+ *
+ **************************************/
+	UCHAR *p;
+	USHORT l;
+	SLONG value;
+	SINT64 i64value;
+
+	DSC tmp_desc;
+
+	STUFF(blr_literal);
+
+	if ((desc->dsc_dtype == dtype_double)
+		&& (request->req_dbb->dbb_flags & DBB_v3))
+		/* v3 doesn't understand blr_double literal, generate blr_text instead */
+	{
+		tmp_desc = *desc;
+		tmp_desc.dsc_dtype = dtype_text;
+		tmp_desc.dsc_length = desc->dsc_scale;	/* length of string literal */
+		tmp_desc.dsc_scale = 0;
+		desc = &tmp_desc;
+	}
+
+	l = desc->dsc_length;
+	p = desc->dsc_address;
+
+	switch (desc->dsc_dtype) {
+	case dtype_short:
+		gen_descriptor(request, desc, TRUE);
+		value = *(SSHORT *) p;
+		if (negate_value)
+			value = -value;
+		STUFF_WORD(value);
+		break;
+
+	case dtype_long:
+		gen_descriptor(request, desc, TRUE);
+		value = *(SLONG *) p;
+		if (negate_value)
+			value = -value;
+		STUFF_WORD(value);
+		STUFF_WORD(value >> 16);
+		break;
+
+	case dtype_sql_time:
+	case dtype_sql_date:
+		gen_descriptor(request, desc, TRUE);
+		value = *(SLONG *) p;
+		STUFF_WORD(value);
+		STUFF_WORD(value >> 16);
+		break;
+
+	case dtype_double:
+		/* this is used for approximate/large numeric literal
+		   which is transmitted to the engine as a string.
+		 */
+		gen_descriptor(request, desc, TRUE);
+		l = (USHORT) desc->dsc_scale;	/* length of string literal */
+		if (negate_value) {
+			STUFF_WORD(l + 1);
+			STUFF('-');
+		}
+		else {
+			STUFF_WORD(l);
+		}
+
+		if (l)
+			do
+				STUFF(*p++);
+			while (--l);
+		break;
+
+	case dtype_int64:
+		i64value = *(SINT64 *) p;
+
+		if (negate_value)
+			i64value = -i64value;
+		else if (i64value == MIN_SINT64) {
+			/* UH OH!
+			 * yylex correctly recognized the digits as the most-negative
+			 * possible INT64 value, but unfortunately, there was no
+			 * preceding '-' (a fact which the lexer could not know).
+			 * The value is too big for a positive INT64 value, and it
+			 * didn't contain an exponent so it's not a valid DOUBLE
+			 * PRECISION literal either, so we have to bounce it.
+			 */
+			ERRD_post(isc_sqlerr,
+					  gds_arg_number, (SLONG) - 104,
+					  gds_arg_gds, isc_arith_except, 0);
+		}
+
+		/* We and the lexer both agree that this is an SINT64 constant,
+		   * and if the value needed to be negated, it already has been.
+		   * If the value will fit into a 32-bit signed integer, generate
+		   * it that way, else as an INT64.
+		 */
+
+		if ((i64value >= (SINT64) MIN_SLONG) &&
+			(i64value <= (SINT64) MAX_SLONG)) {
+			STUFF(blr_long);
+			STUFF(desc->dsc_scale);
+			STUFF_WORD(i64value);
+			STUFF_WORD(i64value >> 16);
+			break;
+		}
+		else {
+			STUFF(blr_int64);
+			STUFF(desc->dsc_scale);
+			STUFF_WORD(i64value);
+			STUFF_WORD(i64value >> 16);
+			STUFF_WORD(i64value >> 32);
+			STUFF_WORD(i64value >> 48);
+		}
+		break;
+
+	case dtype_quad:
+	case dtype_blob:
+	case dtype_array:
+	case dtype_timestamp:
+		gen_descriptor(request, desc, TRUE);
+		value = *(SLONG *) p;
+		STUFF_WORD(value);
+		STUFF_WORD(value >> 16);
+		value = *(SLONG *) (p + 4);
+		STUFF_WORD(value);
+		STUFF_WORD(value >> 16);
+		break;
+
+	case dtype_text:
+		gen_descriptor(request, desc, TRUE);
+		if (l)
+			do
+				STUFF(*p++);
+			while (--l);
+		break;
+
+	default:
+		/* gen_constant: datatype not understood */
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 103,
+				  gds_arg_gds, gds_dsql_constant_err, 0);
+	}
+}
+
+
+static void gen_descriptor( REQ request, DSC * desc, USHORT texttype)
+{
+/**************************************
+ *
+ *	g e n _ d e s c r i p t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a blr descriptor from an internal descriptor.
+ *
+ **************************************/
+
+	switch (desc->dsc_dtype) {
+	case dtype_text:
+		if (request->req_dbb->dbb_flags & DBB_v3)
+			STUFF(blr_text);
+		else if (texttype || desc->dsc_ttype == ttype_binary) {
+			STUFF(blr_text2);
+			STUFF_WORD(desc->dsc_ttype);
+		}
+		else {
+			STUFF(blr_text2);	/* automatic transliteration */
+			STUFF_WORD(ttype_dynamic);
+		}
+
+		STUFF_WORD(desc->dsc_length);
+		break;
+
+	case dtype_varying:
+		if (request->req_dbb->dbb_flags & DBB_v3)
+			STUFF(blr_varying);
+		else if (texttype || desc->dsc_ttype == ttype_binary) {
+			STUFF(blr_varying2);
+			STUFF_WORD(desc->dsc_ttype);
+		}
+		else {
+			STUFF(blr_varying2);	/* automatic transliteration */
+			STUFF_WORD(ttype_dynamic);
+		}
+		STUFF_WORD(desc->dsc_length - sizeof(USHORT));
+		break;
+
+	case dtype_short:
+		STUFF(blr_short);
+		STUFF(desc->dsc_scale);
+		break;
+
+	case dtype_long:
+		STUFF(blr_long);
+		STUFF(desc->dsc_scale);
+		break;
+
+	case dtype_quad:
+		STUFF(blr_quad);
+		STUFF(desc->dsc_scale);
+		break;
+
+	case dtype_int64:
+		STUFF(blr_int64);
+		STUFF(desc->dsc_scale);
+		break;
+
+	case dtype_real:
+		STUFF(blr_float);
+		break;
+
+	case dtype_double:
+		STUFF(blr_double);
+		break;
+
+	case dtype_sql_date:
+		STUFF(blr_sql_date);
+		break;
+
+	case dtype_sql_time:
+		STUFF(blr_sql_time);
+		break;
+
+	case dtype_timestamp:
+		STUFF(blr_timestamp);
+		break;
+
+	case dtype_blob:
+	case dtype_array:
+		STUFF(blr_quad);
+		STUFF(0);
+		break;
+
+	default:
+		/* don't understand dtype */
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 804,
+				  gds_arg_gds, gds_dsql_datatype_err, 0);
+	}
+}
+
+
+static void gen_error_condition( REQ request, NOD node)
+{
+/**************************************
+ *
+ *	g e n _ e r r o r _ c o n d i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate blr for an error condtion
+ *
+ **************************************/
+	STR string;
+
+	switch (node->nod_type) {
+	case nod_sqlcode:
+		STUFF(blr_sql_code);
+		STUFF_WORD(node->nod_arg[0]);
+		return;
+
+	case nod_gdscode:
+		STUFF(blr_gds_code);
+		string = (STR) node->nod_arg[0];
+		STUFF_CSTRING(string->str_data);
+		return;
+
+	case nod_exception:
+		STUFF(blr_exception);
+		string = (STR) node->nod_arg[0];
+		STUFF_CSTRING(string->str_data);
+		return;
+
+	case nod_default:
+		STUFF(blr_default_code);
+		return;
+
+	default:
+		assert(FALSE);
+		return;
+	}
+}
+
+
+static void gen_field( REQ request, CTX context, FLD field, NOD indices)
+{
+/**************************************
+ *
+ *	g e n _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate blr for a field - field id's
+ *	are preferred but not for trigger or view blr.
+ *
+ **************************************/
+	NOD *ptr, *end;
+
+/* For older clients - generate an error should they try and
+ *    access data types which did not exist in the older dialect */
+	if (request->req_client_dialect <= SQL_DIALECT_V5) {
+		switch (field->fld_dtype) {
+		case dtype_sql_date:
+		case dtype_sql_time:
+		case dtype_int64:
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 804,
+					  gds_arg_gds, gds_dsql_datatype_err,
+					  gds_arg_gds, isc_sql_dialect_datatype_unsupport,
+					  gds_arg_number, request->req_client_dialect,
+					  gds_arg_string,
+					  DSC_dtype_tostring(static_cast < UCHAR >
+										 (field->fld_dtype)), 0);
+			break;
+		default:
+			/* No special action for other data types */
+			break;
+		}
+	}
+
+
+
+	if (indices)
+		STUFF(blr_index);
+
+	if (DDL_ids(request)) {
+		STUFF(blr_fid);
+		STUFF(context->ctx_context);
+		STUFF_WORD(field->fld_id);
+	}
+	else {
+		STUFF(blr_field);
+		STUFF(context->ctx_context);
+		STUFF_CSTRING(field->fld_name);
+	}
+
+	if (indices) {
+		STUFF(indices->nod_count);
+		for (ptr = indices->nod_arg, end = ptr + indices->nod_count;
+			 ptr < end; ptr++)
+			GEN_expr(request, *ptr);
+	}
+}
+
+
+static void gen_for_select( REQ request, NOD for_select)
+{
+/**************************************
+ *
+ *	g e n _ f o r _ s e l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate BLR for a SELECT statement.
+ *
+ **************************************/
+	NOD list, list_to, *ptr, *ptr_to, *end, rse;
+
+	rse = for_select->nod_arg[e_flp_select];
+
+/* Generate FOR loop */
+
+	STUFF(blr_for);
+
+	if (!for_select->nod_arg[e_flp_action] &&
+		!(request->req_dbb->dbb_flags & DBB_v3)) STUFF(blr_singular);
+	gen_rse(request, rse);
+	STUFF(blr_begin);
+
+/* Build body of FOR loop */
+
+	list = rse->nod_arg[e_rse_items];
+	list_to = for_select->nod_arg[e_flp_into];
+	if (list->nod_count != list_to->nod_count)
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 313,
+				  gds_arg_gds, gds_dsql_count_mismatch, 0);
+	for (ptr = list->nod_arg, ptr_to = list_to->nod_arg,
+		 end = ptr + list->nod_count; ptr < end; ptr++, ptr_to++) {
+		STUFF(blr_assignment);
+		GEN_expr(request, *ptr);
+		GEN_expr(request, *ptr_to);
+	}
+	if (for_select->nod_arg[e_flp_action])
+		GEN_statement(request, for_select->nod_arg[e_flp_action]);
+	STUFF(blr_end);
+}
+
+
+static void gen_gen_id( REQ request, NOD node)
+{
+/**************************************
+ *
+ *      g e n _ g e n _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Generate BLR for gen_id
+ *
+ **************************************/
+	STR string;
+
+	STUFF(blr_gen_id);
+	string = (STR) node->nod_arg[e_gen_id_name];
+	STUFF_CSTRING(string->str_data);
+	GEN_expr(request, node->nod_arg[e_gen_id_value]);
+}
+
+
+static void gen_join_rse( REQ request, NOD rse)
+{
+/**************************************
+ *
+ *	g e n _ j o i n _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a record selection expression
+ *	with an explicit join type.
+ *
+ **************************************/
+	NOD node;
+
+	STUFF(blr_rs_stream);
+	STUFF(2);
+
+	GEN_expr(request, rse->nod_arg[e_join_left_rel]);
+	GEN_expr(request, rse->nod_arg[e_join_rght_rel]);
+
+	node = rse->nod_arg[e_join_type];
+	if (node->nod_type != nod_join_inner) {
+		STUFF(blr_join_type);
+		if (node->nod_type == nod_join_left)
+			STUFF(blr_left);
+		else if (node->nod_type == nod_join_right)
+			STUFF(blr_right);
+		else
+			STUFF(blr_full);
+	}
+
+	STUFF(blr_boolean);
+	GEN_expr(request, rse->nod_arg[e_join_boolean]);
+
+	STUFF(blr_end);
+}
+
+
+static void gen_map( REQ request, MAP map)
+{
+/**************************************
+ *
+ *	g e n _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a value map for a record selection expression.
+ *
+ **************************************/
+	USHORT count;
+	MAP temp;
+
+	count = 0;
+	for (temp = map; temp; temp = temp->map_next)
+		temp->map_position = count++;
+
+	STUFF(blr_map);
+	STUFF_WORD(count);
+
+	for (temp = map; temp; temp = temp->map_next) {
+		STUFF_WORD(temp->map_position);
+		GEN_expr(request, temp->map_node);
+	}
+}
+
+
+static void gen_parameter( REQ request, PAR parameter)
+{
+/**************************************
+ *
+ *	g e n _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a parameter reference.
+ *
+ **************************************/
+	MSG message;
+	PAR null;
+
+	message = parameter->par_message;
+
+	if ((null = parameter->par_null) != NULL) {
+		STUFF(blr_parameter2);
+		STUFF(message->msg_number);
+		STUFF_WORD(parameter->par_parameter);
+		STUFF_WORD(null->par_parameter);
+		return;
+	}
+
+	STUFF(blr_parameter);
+	STUFF(message->msg_number);
+	STUFF_WORD(parameter->par_parameter);
+}
+
+
+
+static void gen_plan( REQ request, NOD plan_expression)
+{
+/**************************************
+ *
+ *	g e n _ p l a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate blr for an access plan expression.
+ *
+ **************************************/
+	NOD list, node, arg, *ptr, *end, *ptr2, *end2;
+	STR index_string;
+
+/* stuff the join type */
+
+	list = plan_expression->nod_arg[1];
+	if (list->nod_count > 1) {
+		if (node = plan_expression->nod_arg[0])
+			STUFF(blr_merge);
+		else
+			STUFF(blr_join);
+		STUFF(list->nod_count);
+	}
+
+/* stuff one or more plan items */
+
+	for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end; ptr++) {
+		node = *ptr;
+		if (node->nod_type == nod_plan_expr) {
+			gen_plan(request, node);
+			continue;
+		}
+
+		/* if we're here, it must be a nod_plan_item */
+
+		STUFF(blr_retrieve);
+
+		/* stuff the relation--the relation id itself is redundant except 
+		   when there is a need to differentiate the base tables of views */
+
+		arg = node->nod_arg[0];
+		gen_relation(request, (CTX) arg->nod_arg[e_rel_context]);
+
+		/* now stuff the access method for this stream */
+
+		arg = node->nod_arg[1];
+		switch (arg->nod_type) {
+		case nod_natural:
+			STUFF(blr_sequential);
+			break;
+
+		case nod_index_order:
+			STUFF(blr_navigational);
+			index_string = (STR) arg->nod_arg[0];
+			STUFF_CSTRING(index_string->str_data);
+			break;
+
+		case nod_index:
+			STUFF(blr_indices);
+			arg = arg->nod_arg[0];
+			STUFF(arg->nod_count);
+			for (ptr2 = arg->nod_arg, end2 = ptr2 + arg->nod_count;
+				 ptr2 < end2; ptr2++) {
+				index_string = (STR) * ptr2;
+				STUFF_CSTRING(index_string->str_data);
+			}
+			break;
+
+		default:
+			assert(FALSE);
+			break;
+		}
+
+	}
+}
+
+
+
+static void gen_relation( REQ request, CTX context)
+{
+/**************************************
+ *
+ *	g e n _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate blr for a relation reference.
+ *
+ **************************************/
+	DSQL_REL relation;
+	PRC procedure;
+	NOD inputs, *ptr, *end;
+
+	relation = context->ctx_relation;
+	procedure = context->ctx_procedure;
+
+/* if this is a trigger or procedure , don't want relation id used */
+	if (relation) {
+		if (DDL_ids(request)) {
+			if (context->ctx_alias)
+				STUFF(blr_rid2);
+			else
+				STUFF(blr_rid);
+			STUFF_WORD(relation->rel_id);
+		}
+		else {
+			if (context->ctx_alias)
+				STUFF(blr_relation2);
+			else
+				STUFF(blr_relation);
+			STUFF_CSTRING(relation->rel_name);
+		}
+
+		if (context->ctx_alias)
+			STUFF_CSTRING(context->ctx_alias);
+		STUFF(context->ctx_context);
+	}
+	else {
+		if (DDL_ids(request)) {
+			STUFF(blr_pid);
+			STUFF_WORD(procedure->prc_id);
+		}
+		else {
+			STUFF(blr_procedure);
+			STUFF_CSTRING(procedure->prc_name);
+		}
+		STUFF(context->ctx_context);
+		STUFF_WORD(procedure->prc_in_count);
+		if (inputs = context->ctx_proc_inputs)
+			for (ptr = inputs->nod_arg, end = ptr + inputs->nod_count;
+				 ptr < end; ptr++)
+				GEN_expr(request, *ptr);
+	}
+}
+
+
+void GEN_return( REQ request, NOD procedure, BOOLEAN eos_flag)
+{
+/**************************************
+ *
+ *	g e n _ r e t u r n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate blr for a procedure return.
+ *
+ **************************************/
+	NOD parameters, parameter, *ptr, *end;
+	VAR variable;
+	USHORT outputs;
+
+	if (!procedure)
+		return;
+
+	if (!eos_flag)
+		STUFF(blr_begin);
+	STUFF(blr_send);
+	STUFF(1);
+	STUFF(blr_begin);
+	outputs = 0;
+	if (parameters = procedure->nod_arg[e_prc_outputs]) {
+		for (ptr = parameters->nod_arg, end = ptr + parameters->nod_count;
+			 ptr < end; ptr++) {
+			outputs++;
+			parameter = *ptr;
+			variable = (VAR) parameter->nod_arg[e_var_variable];
+			STUFF(blr_assignment);
+			STUFF(blr_variable);
+			STUFF_WORD(variable->var_variable_number);
+			STUFF(blr_parameter2);
+			STUFF(variable->var_msg_number);
+			STUFF_WORD(variable->var_msg_item);
+			STUFF_WORD(variable->var_msg_item + 1);
+		}
+	}
+	STUFF(blr_assignment);
+	STUFF(blr_literal);
+	STUFF(blr_short);
+	STUFF(0);
+	if (eos_flag)
+		STUFF_WORD(0);
+	else
+		STUFF_WORD(1);
+	STUFF(blr_parameter);
+	STUFF(1);
+	STUFF_WORD(2 * outputs);
+	STUFF(blr_end);
+	if (!eos_flag) {
+		STUFF(blr_stall);
+		STUFF(blr_end);
+	}
+}
+
+
+static void gen_rse( REQ request, NOD rse)
+{
+/**************************************
+ *
+ *	g e n _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a record selection expression.
+ *
+ **************************************/
+	NOD node, list, *ptr, *end;
+
+	if (rse->nod_arg[e_rse_singleton]
+		&& !(request->req_dbb->dbb_flags & DBB_v3)) STUFF(blr_singular);
+
+	STUFF(blr_rse);
+
+	list = rse->nod_arg[e_rse_streams];
+
+/* Handle source streams */
+
+	if (list->nod_type == nod_union) {
+		STUFF(1);
+		gen_union(request, rse);
+	}
+	else if (list->nod_type == nod_list) {
+		STUFF(list->nod_count);
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++) {
+			node = *ptr;
+			if (node->nod_type == nod_relation ||
+				node->nod_type == nod_aggregate || node->nod_type == nod_join)
+				GEN_expr(request, node);
+		}
+	}
+	else {
+		STUFF(1);
+		GEN_expr(request, list);
+	}
+
+	if ((node = rse->nod_arg[e_rse_first]) != NULL) {
+		STUFF(blr_first);
+		GEN_expr(request, node);
+	}
+
+	if ((node = rse->nod_arg[e_rse_boolean]) != NULL) {
+		STUFF(blr_boolean);
+		GEN_expr(request, node);
+	}
+
+	if ((list = rse->nod_arg[e_rse_sort]) != NULL)
+		gen_sort(request, list);
+
+	if ((list = rse->nod_arg[e_rse_reduced]) != NULL) {
+		STUFF(blr_project);
+		STUFF(list->nod_count);
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++)
+			GEN_expr(request, *ptr);
+	}
+
+/* if the user specified an access plan to use, add it here */
+
+	if ((node = rse->nod_arg[e_rse_plan]) != NULL) {
+		STUFF(blr_plan);
+		gen_plan(request, node);
+	}
+
+#ifdef SCROLLABLE_CURSORS
+/* generate a statement to be executed if the user scrolls 
+   in a direction other than forward; a message is sent outside 
+   the normal send/receive protocol to specify the direction 
+   and offset to scroll; note that we do this only on a SELECT 
+   type statement and only when talking to a 4.1 engine or greater */
+
+	if (request->req_type == REQ_SELECT &&
+		request->req_dbb->dbb_base_level >= 5) {
+		STUFF(blr_receive);
+		STUFF(request->req_async->msg_number);
+		STUFF(blr_seek);
+		PAR parameter = request->req_async->msg_parameters;
+		gen_parameter(request, parameter->par_next);
+		gen_parameter(request, parameter);
+	}
+#endif
+
+	STUFF(blr_end);
+}
+
+
+static void gen_select( REQ request, NOD rse)
+{
+/**************************************
+ *
+ *	g e n _ s e l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate BLR for a SELECT statement.
+ *
+ **************************************/
+	NOD list, *ptr, *end, item, alias, map_node;
+	PAR parameter;
+	MSG message;
+	FLD field;
+	DSC constant_desc;
+	DSQL_REL relation;
+	UDF udf;
+	CTX context;
+	STR string;
+	SSHORT constant;
+	MAP map;
+
+	constant_desc.dsc_dtype = dtype_short;
+	constant_desc.dsc_scale = 0;
+	constant_desc.dsc_sub_type = 0;
+	constant_desc.dsc_flags = 0;
+	constant_desc.dsc_length = sizeof(SSHORT);
+	constant_desc.dsc_address = (UCHAR *) & constant;
+
+/* Set up parameter for things in the select list */
+
+	list = rse->nod_arg[e_rse_items];
+	for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end; ptr++) {
+		item = *ptr;
+		parameter = MAKE_parameter(request->req_receive, TRUE, TRUE);
+		parameter->par_node = item;
+		MAKE_desc(&parameter->par_desc, item);
+		if (item->nod_type == nod_field) {
+			field = (FLD) item->nod_arg[e_fld_field];
+			parameter->par_name = parameter->par_alias = field->fld_name;
+			context = (CTX) item->nod_arg[e_fld_context];
+			if (context->ctx_relation) {
+				parameter->par_rel_name = context->ctx_relation->rel_name;
+				parameter->par_owner_name = context->ctx_relation->rel_owner;
+			}
+			else if (context->ctx_procedure) {
+				parameter->par_rel_name = context->ctx_procedure->prc_name;
+				parameter->par_owner_name = context->ctx_procedure->prc_owner;
+			}
+		}
+		else if (item->nod_type == nod_dbkey) {
+			parameter->par_alias = const_cast < char *>(db_key_name);
+			parameter->par_name = const_cast < char *>(db_key_name);
+			context = (CTX) item->nod_arg[0]->nod_arg[0];
+			parameter->par_rel_name = context->ctx_relation->rel_name;
+			parameter->par_owner_name = context->ctx_relation->rel_owner;
+		}
+		else if (item->nod_type == nod_alias) {
+			string = (STR) item->nod_arg[e_alias_alias];
+			parameter->par_alias = (TEXT *) string->str_data;
+			alias = item->nod_arg[e_alias_value];
+			if (alias->nod_type == nod_field) {
+				field = (FLD) alias->nod_arg[e_fld_field];
+				parameter->par_name = field->fld_name;
+				context = (CTX) alias->nod_arg[e_fld_context];
+				if (context->ctx_relation) {
+					parameter->par_rel_name = context->ctx_relation->rel_name;
+					parameter->par_owner_name =
+						context->ctx_relation->rel_owner;
+				}
+				else if (context->ctx_procedure) {
+					parameter->par_rel_name =
+						context->ctx_procedure->prc_name;
+					parameter->par_owner_name =
+						context->ctx_procedure->prc_owner;
+				}
+			}
+			else if (alias->nod_type == nod_dbkey) {
+				parameter->par_name = const_cast < char *>(db_key_name);
+				context = (CTX) alias->nod_arg[0]->nod_arg[0];
+				parameter->par_rel_name = context->ctx_relation->rel_name;
+				parameter->par_owner_name = context->ctx_relation->rel_owner;
+			}
+		}
+		else if (item->nod_type == nod_map) {
+			map = (MAP) item->nod_arg[e_map_map];
+			map_node = map->map_node;
+			while (map_node->nod_type == nod_map) {
+				/* skip all the nod_map nodes */
+				map = (MAP) map_node->nod_arg[e_map_map];
+				map_node = map->map_node;
+			}
+			if (map_node->nod_type == nod_field) {
+				field = (FLD) map_node->nod_arg[e_fld_field];
+				parameter->par_name = parameter->par_alias = field->fld_name;
+			}
+			else if (map_node->nod_type == nod_alias) {
+				string = (STR) map_node->nod_arg[e_alias_alias];
+				parameter->par_alias = (TEXT *) string->str_data;
+				alias = map_node->nod_arg[e_alias_value];
+				if (alias->nod_type == nod_field) {
+					field = (FLD) alias->nod_arg[e_fld_field];
+					parameter->par_name = field->fld_name;
+				}
+			}
+			else if (map_node->nod_type == nod_agg_count)
+				parameter->par_name = parameter->par_alias = "COUNT";
+			else if (map_node->nod_type == nod_agg_total)
+				parameter->par_name = parameter->par_alias = "SUM";
+			else if (map_node->nod_type == nod_agg_average)
+				parameter->par_name = parameter->par_alias = "AVG";
+			else if (map_node->nod_type == nod_agg_total2)
+				parameter->par_name = parameter->par_alias = "SUM";
+			else if (map_node->nod_type == nod_agg_average2)
+				parameter->par_name = parameter->par_alias = "AVG";
+			else if (map_node->nod_type == nod_agg_min)
+				parameter->par_name = parameter->par_alias = "MIN";
+			else if (map_node->nod_type == nod_agg_max)
+				parameter->par_name = parameter->par_alias = "MAX";
+		}
+		else if (item->nod_type == nod_udf) {
+			udf = (UDF) item->nod_arg[0];
+			parameter->par_name = parameter->par_alias = udf->udf_name;
+		}
+		else if (item->nod_type == nod_gen_id)
+			parameter->par_name = parameter->par_alias = "GEN_ID";
+		else if (item->nod_type == nod_gen_id2)
+			parameter->par_name = parameter->par_alias = "GEN_ID";
+	}
+
+/* Set up parameter to handle EOF */
+
+	request->req_eof = parameter =
+		MAKE_parameter(request->req_receive, FALSE, FALSE);
+	parameter->par_desc.dsc_dtype = dtype_short;
+	parameter->par_desc.dsc_scale = 0;
+	parameter->par_desc.dsc_length = sizeof(SSHORT);
+
+/* Save DBKEYs for possible update later */
+
+	list = rse->nod_arg[e_rse_streams];
+
+	if (!rse->nod_arg[e_rse_reduced]) {
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++)
+			if ((item = *ptr) && (item->nod_type == nod_relation)) {
+				context = (CTX) item->nod_arg[e_rel_context];
+				if (relation = context->ctx_relation) {
+					/* Set up dbkey */
+					parameter =
+						MAKE_parameter(request->req_receive, FALSE, FALSE);
+					parameter->par_dbkey_ctx = context;
+					parameter->par_desc.dsc_dtype = dtype_text;
+					parameter->par_desc.dsc_ttype = ttype_binary;
+					parameter->par_desc.dsc_length =
+						relation->rel_dbkey_length;
+
+					/* Set up record version - for post v33 databases */
+
+					if (!(request->req_dbb->dbb_flags & DBB_v3)) {
+						parameter =
+							MAKE_parameter(request->req_receive, FALSE,
+										   FALSE);
+						parameter->par_rec_version_ctx = context;
+						parameter->par_desc.dsc_dtype = dtype_text;
+						parameter->par_desc.dsc_ttype = ttype_binary;
+						parameter->par_desc.dsc_length =
+							relation->rel_dbkey_length / 2;
+					}
+				}
+			}
+	}
+
+#ifdef SCROLLABLE_CURSORS
+/* define the parameters for the scrolling message--offset and direction, 
+   in that order to make it easier to generate the request */
+
+	if (request->req_type == REQ_SELECT &&
+		request->req_dbb->dbb_base_level >= 5) {
+		parameter = MAKE_parameter(request->req_async, FALSE, FALSE);
+		parameter->par_desc.dsc_dtype = dtype_short;
+		parameter->par_desc.dsc_length = sizeof(USHORT);
+		parameter->par_desc.dsc_scale = 0;
+		parameter->par_desc.dsc_flags = 0;
+		parameter->par_desc.dsc_sub_type = 0;
+
+		parameter = MAKE_parameter(request->req_async, FALSE, FALSE);
+		parameter->par_desc.dsc_dtype = dtype_long;
+		parameter->par_desc.dsc_length = sizeof(ULONG);
+		parameter->par_desc.dsc_scale = 0;
+		parameter->par_desc.dsc_flags = 0;
+		parameter->par_desc.dsc_sub_type = 0;
+	}
+#endif
+
+/* Generate definitions for the messages */
+
+	GEN_port(request, request->req_receive);
+	message = request->req_send;
+	if (message->msg_parameter)
+		GEN_port(request, message);
+	else
+		request->req_send = NULL;
+#ifdef SCROLLABLE_CURSORS
+	if (request->req_type == REQ_SELECT &&
+		request->req_dbb->dbb_base_level >= 5)
+			GEN_port(request, request->req_async);
+#endif
+
+/* If there is a send message, build a RECEIVE */
+
+	if ((message = request->req_send) != NULL) {
+		STUFF(blr_receive);
+		STUFF(message->msg_number);
+	}
+
+/* Generate FOR loop */
+
+	message = request->req_receive;
+
+	STUFF(blr_for);
+	if (!(request->req_dbb->dbb_flags & DBB_v3))
+		STUFF(blr_stall);
+	gen_rse(request, rse);
+	STUFF(blr_send);
+	STUFF(message->msg_number);
+	STUFF(blr_begin);
+
+/* Build body of FOR loop */
+
+	STUFF(blr_assignment);
+	constant = 1;
+	gen_constant(request, &constant_desc, USE_VALUE);
+	gen_parameter(request, request->req_eof);
+
+	for (parameter = message->msg_parameters; parameter;
+		 parameter = parameter->par_next) {
+		if (parameter->par_node) {
+			STUFF(blr_assignment);
+			GEN_expr(request, parameter->par_node);
+			gen_parameter(request, parameter);
+		}
+		if (context = parameter->par_dbkey_ctx) {
+			STUFF(blr_assignment);
+			STUFF(blr_dbkey);
+			STUFF(context->ctx_context);
+			gen_parameter(request, parameter);
+		}
+		if (context = parameter->par_rec_version_ctx) {
+			STUFF(blr_assignment);
+			STUFF(blr_record_version);
+			STUFF(context->ctx_context);
+			gen_parameter(request, parameter);
+		}
+	}
+
+	STUFF(blr_end);
+	STUFF(blr_send);
+	STUFF(message->msg_number);
+	STUFF(blr_assignment);
+	constant = 0;
+	gen_constant(request, &constant_desc, USE_VALUE);
+	gen_parameter(request, request->req_eof);
+}
+
+
+static void gen_sort( REQ request, NOD list)
+{
+/**************************************
+ *
+ *	g e n _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a sort clause.
+ *
+ **************************************/
+	NOD *ptr, *end;
+
+	STUFF(blr_sort);
+	STUFF(list->nod_count);
+
+	for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end; ptr++) {
+		if ((*ptr)->nod_arg[1])
+			STUFF(blr_descending);
+		else
+			STUFF(blr_ascending);
+		GEN_expr(request, (*ptr)->nod_arg[0]);
+	}
+}
+
+
+static void gen_table_lock( REQ request, NOD tbl_lock, USHORT lock_level)
+{
+/**************************************
+ *
+ *	g e n _ t a b l e _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate tpb for table lock.
+ *	If lock level is specified, it overrrides the transaction lock level.
+ *
+ **************************************/
+	NOD tbl_names, *ptr, *end;
+	STR temp;
+	SSHORT flags;
+	USHORT lock_mode;
+
+	if ((!tbl_lock) || (tbl_lock->nod_type != nod_table_lock))
+		return;
+
+	tbl_names = tbl_lock->nod_arg[e_lock_tables];
+	flags = 0;
+
+	if (tbl_lock->nod_arg[e_lock_mode])
+		flags = tbl_lock->nod_arg[e_lock_mode]->nod_flags;
+
+	if (flags & NOD_PROTECTED)
+		lock_level = gds_tpb_protected;
+	else if (flags & NOD_SHARED)
+		lock_level = gds_tpb_shared;
+
+	lock_mode = (flags & NOD_WRITE) ? gds_tpb_lock_write : gds_tpb_lock_read;
+
+	for (ptr = tbl_names->nod_arg, end = ptr + tbl_names->nod_count;
+		 ptr < end; ptr++) {
+		if ((*ptr)->nod_type != nod_relation_name)
+			continue;
+
+		STUFF(lock_mode);
+
+		/* stuff table name */
+		temp = (STR) ((*ptr)->nod_arg[e_rln_name]);
+		stuff_cstring(request, reinterpret_cast < char *>(temp->str_data));
+
+		STUFF(lock_level);
+	}
+}
+
+
+static void gen_udf( REQ request, NOD node)
+{
+/**************************************
+ *
+ *	g e n _ u d f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a user defined function.
+ *
+ **************************************/
+	UDF udf;
+	NOD list, *ptr, *end;
+
+	udf = (UDF) node->nod_arg[0];
+	STUFF(blr_function);
+	STUFF_CSTRING(udf->udf_name);
+
+	if ((node->nod_count == 2) && (list = node->nod_arg[1])) {
+		STUFF(list->nod_count);
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++)
+			GEN_expr(request, *ptr);
+	}
+	else
+		STUFF(0);
+}
+
+
+static void gen_union( REQ request, NOD union_node)
+{
+/**************************************
+ *
+ *	g e n _ u n i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a union of substreams.
+ *
+ **************************************/
+	NOD sub_rse, *ptr, *end, streams;
+	NOD items, *iptr, *iend;
+	USHORT count;
+	CTX union_context;
+
+	STUFF(blr_union);
+
+/* Obtain the context for UNION from the first MAP node   */
+	items = union_node->nod_arg[e_rse_items];
+	union_context = (CTX) items->nod_arg[0]->nod_arg[e_map_context];
+	STUFF(union_context->ctx_context);
+
+	streams = union_node->nod_arg[e_rse_streams];
+	STUFF(streams->nod_count);	/* number of substreams */
+
+	for (ptr = streams->nod_arg, end = ptr + streams->nod_count; ptr < end;
+		 ptr++) {
+		sub_rse = *ptr;
+		gen_rse(request, sub_rse);
+		items = sub_rse->nod_arg[e_rse_items];
+		STUFF(blr_map);
+		STUFF_WORD(items->nod_count);
+		count = 0;
+		for (iptr = items->nod_arg, iend = iptr + items->nod_count;
+			 iptr < iend; iptr++) {
+			STUFF_WORD(count);
+			GEN_expr(request, *iptr);
+			count++;
+		}
+	}
+}
+
+
+static void stuff_cstring( REQ request, char *string)
+{
+/**************************************
+ *
+ *	s t u f f _ c s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out a string with one byte of length.
+ *
+ **************************************/
+	UCHAR c;
+
+	STUFF(strlen(string));
+	while ((c = *string++))
+		STUFF(c);
+}
+
+
+static void stuff_word( REQ request, USHORT word)
+{
+/**************************************
+ *
+ *	s t u f f _ w o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cram a word into the blr buffer.  If the buffer is getting
+ *	ready to overflow, expand it.
+ *
+ **************************************/
+
+	STUFF(word);
+	STUFF(word >> 8);
+}
diff --git a/src/dsql/gen_proto.h b/src/dsql/gen_proto.h
new file mode 100644
index 0000000000..2300745a05
--- /dev/null
+++ b/src/dsql/gen_proto.h
@@ -0,0 +1,35 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		gen_proto.h
+ *	DESCRIPTION:	Prototype Header file for gen.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_GEN_PROTO_H_
+#define _DSQL_GEN_PROTO_H_
+
+extern UCHAR GEN_expand_buffer(struct req *, UCHAR);
+extern void GEN_expr(struct req *, struct nod *);
+extern void GEN_port(struct req *, struct msg *);
+extern void GEN_request(struct req *, struct nod *);
+extern void GEN_return(REQ, NOD, BOOLEAN);
+extern void GEN_start_transaction(struct req *, struct nod *);
+extern void GEN_statement(struct req *, struct nod *);
+
+#endif /*  _DSQL_GEN_PROTO_H_  */
diff --git a/src/dsql/hsh.cpp b/src/dsql/hsh.cpp
new file mode 100644
index 0000000000..2d2529c605
--- /dev/null
+++ b/src/dsql/hsh.cpp
@@ -0,0 +1,505 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		hsh.c
+ *	DESCRIPTION:	Hash table and symbol manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../dsql/dsql.h"
+#include "../dsql/sym.h"
+#include "../include/jrd/gds.h"
+#include "../dsql/alld_proto.h"
+#include "../dsql/errd_proto.h"
+#include "../dsql/hsh_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+
+
+extern "C" {
+
+
+ASSERT_FILENAME
+#define HASH_SIZE 211
+static SSHORT hash(register SCHAR *, register USHORT);
+static BOOLEAN remove_symbol(struct sym **, struct sym *);
+static BOOLEAN scompare(register TEXT *, register USHORT, register TEXT *,
+						USHORT);
+
+static SYM *hash_table;
+
+/*
+   SUPERSERVER can end up with many hands in the pie, so some
+   protection is provided via a mutex.   This ensures the integrity
+   of lookups, inserts and removals, and also allows teh traversing
+   of symbol chains for marking of relations and procedures.
+   Otherwise, one DSQL user won't know what the other is doing
+   to the same object.
+*/
+
+#ifdef  SUPERSERVER
+static MUTX_T hash_mutex;
+static USHORT hash_mutex_inited = 0;
+#define LOCK_HASH       THD_mutex_lock (&hash_mutex)
+#define UNLOCK_HASH     THD_mutex_unlock (&hash_mutex);
+#else
+#define LOCK_HASH
+#define UNLOCK_HASH
+#endif
+
+
+void HSHD_init(void)
+{
+/*************************************
+ *
+ *	H S H D _ i n i t
+ *
+ *************************************
+ *
+ * functional description
+ *	create a new hash table
+ *
+ ************************************/
+	UCHAR *p;
+
+#ifdef SUPERSERVER
+	if (!hash_mutex_inited) {
+		hash_mutex_inited = 1;
+		THD_mutex_init(&hash_mutex);
+	}
+#endif
+
+	p = (UCHAR *) ALLD_malloc(sizeof(SYM) * HASH_SIZE);
+	memset(p, 0, sizeof(SYM) * HASH_SIZE);
+
+	hash_table = (SYM *) p;
+}
+
+
+#ifdef DEV_BUILD
+
+#include "../jrd/ib_stdio.h"
+
+void HSHD_debug(void)
+{
+/**************************************
+ *
+ *	H S H D _ d e b u g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print out the hash table for debugging.
+ *
+ **************************************/
+	SYM collision;
+	SYM homptr;
+	SSHORT h;
+
+/* dump each hash table entry */
+
+	LOCK_HASH;
+	for (h = 0; h < HASH_SIZE; h++) {
+		for (collision = hash_table[h]; collision;
+			 collision = collision->sym_collision) {
+			/* check any homonyms first */
+
+			ib_fprintf(ib_stderr, "Symbol type %d: %s %x\n",
+					   collision->sym_type, collision->sym_string,
+					   collision->sym_dbb);
+			for (homptr = collision->sym_homonym; homptr;
+				 homptr = homptr->sym_homonym) {
+				ib_fprintf(ib_stderr, "Homonym Symbol type %d: %s %x\n",
+						   homptr->sym_type, homptr->sym_string,
+						   homptr->sym_dbb);
+			}
+		}
+	}
+	UNLOCK_HASH;
+}
+#endif
+
+
+void HSHD_fini(void)
+{
+/**************************************
+ *
+ *	H S H D _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear out the symbol table.  All the 
+ *	symbols are deallocated with their pools.
+ *
+ **************************************/
+	SSHORT i;
+
+	for (i = 0; i < HASH_SIZE; i++)
+		hash_table[i] = NULL;
+
+	ALLD_free(reinterpret_cast < SCHAR * >(hash_table));
+	hash_table = NULL;
+}
+
+
+void HSHD_finish( void *database)
+{
+/**************************************
+ *
+ *	H S H D _ f i n i s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove symbols used by a particular database.
+ *	Don't bother to release them since their pools
+ *	will be released.
+ *
+ **************************************/
+	SYM *collision;
+	SYM *homptr;
+	SYM symbol;
+	SYM chain;
+	SSHORT h;
+
+/* check each hash table entry */
+
+	LOCK_HASH;
+	for (h = 0; h < HASH_SIZE; h++) {
+		for (collision = &hash_table[h]; *collision;) {
+			/* check any homonyms first */
+
+			chain = *collision;
+			for (homptr = &chain->sym_homonym; *homptr;) {
+				symbol = *homptr;
+				if (symbol->sym_dbb == database) {
+					*homptr = symbol->sym_homonym;
+					symbol = symbol->sym_homonym;
+				}
+				else
+					homptr = &symbol->sym_homonym;
+			}
+
+			/* now, see if the root entry has to go */
+
+			if (chain->sym_dbb == database) {
+				if (chain->sym_homonym) {
+					chain->sym_homonym->sym_collision = chain->sym_collision;
+					*collision = chain->sym_homonym;
+				}
+				else
+					*collision = chain->sym_collision;
+				chain = *collision;
+			}
+			else
+				collision = &chain->sym_collision;
+		}
+	}
+	UNLOCK_HASH;
+}
+
+
+void HSHD_insert( register SYM symbol)
+{
+/**************************************
+ *
+ *	H S H D _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a symbol into the hash table.
+ *
+ **************************************/
+	register SSHORT h;
+	register void *database;
+	register SYM old;
+
+	LOCK_HASH;
+	h = hash(symbol->sym_string, symbol->sym_length);
+	database = symbol->sym_dbb;
+
+	assert(symbol->sym_type >= SYM_statement && symbol->sym_type <= SYM_eof);
+
+	for (old = hash_table[h]; old; old = old->sym_collision)
+		if ((!database || (database == old->sym_dbb)) &&
+			scompare(symbol->sym_string, symbol->sym_length, old->sym_string,
+					 old->sym_length)) {
+			symbol->sym_homonym = old->sym_homonym;
+			old->sym_homonym = symbol;
+			UNLOCK_HASH;
+			return;
+		}
+
+	symbol->sym_collision = hash_table[h];
+	hash_table[h] = symbol;
+	UNLOCK_HASH;
+}
+
+
+SYM HSHD_lookup(void *database,
+				TEXT * string,
+				SSHORT length, SYM_TYPE type, USHORT parser_version)
+{
+/**************************************
+ *
+ *	H S H D _ l o o k u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a string lookup against hash table.
+ *	Make sure to only return a symbol of the desired type.
+ *
+ **************************************/
+	register SYM symbol;
+	SSHORT h;
+
+	LOCK_HASH;
+	h = hash(string, length);
+	for (symbol = hash_table[h]; symbol; symbol = symbol->sym_collision)
+		if ((database == symbol->sym_dbb) &&
+			scompare(string, length, symbol->sym_string, symbol->sym_length)) {
+			/* Search for a symbol of the proper type */
+			while (symbol && symbol->sym_type != type)
+				symbol = symbol->sym_homonym;
+			UNLOCK_HASH;
+
+			/* If the symbol found was not part of the list of keywords for the
+			 * client connecting, then assume nothing was found
+			 */
+			if (symbol) {
+				if (parser_version < symbol->sym_version
+					&& type == SYM_keyword) return NULL;
+			}
+			return symbol;
+		}
+
+	UNLOCK_HASH;
+	return NULL;
+}
+
+
+void HSHD_remove( SYM symbol)
+{
+/**************************************
+ *
+ *	H S H D _ r e m o v e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove a symbol from the hash table.
+ *
+ **************************************/
+	SYM *collision;
+	SSHORT h;
+
+	LOCK_HASH;
+	h = hash(symbol->sym_string, symbol->sym_length);
+
+	for (collision = &hash_table[h]; *collision;
+		 collision =
+		 &(*collision)->sym_collision) if (remove_symbol(collision, symbol)) {
+			UNLOCK_HASH;
+			return;
+		}
+
+	UNLOCK_HASH;
+	IBERROR(-1, "HSHD_remove failed");
+}
+
+
+void HSHD_set_flag(
+				   void *database,
+				   TEXT * string, SSHORT length, SYM_TYPE type, SSHORT flag)
+{
+/**************************************
+ *
+ *      H S H D _ s e t _ f l a g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Set a flag in all similar objects in a chain.   This
+ *      is used primarily to mark relations and procedures
+ *      as deleted.   The object must have the same name and
+ *      type, but not the same database, and must belong to
+ *      some database.   Later access to such an object by
+ *      another user or thread should result in that object's
+ *      being refreshed.   Note that even if the relation name
+ *      and ID, or the procedure name and ID both match, it
+ *      may still not represent an exact match.   This is because
+ *      there's no way at present for DSQL to tell if two databases
+ *      as represented in DSQL are attachments to the same physical
+ *      database.
+ *
+ **************************************/
+	SYM symbol, homonym;
+	SSHORT h;
+	DSQL_REL sym_rel;
+	PRC sym_prc;
+
+
+/* as of now, there's no work to do if there is no database or if
+   the type is not a relation or procedure */
+
+	if (!database)
+		return;
+	switch (type) {
+	case SYM_relation:
+	case SYM_procedure:
+		break;
+	default:
+		return;
+	}
+
+	LOCK_HASH;
+	h = hash(string, length);
+	for (symbol = hash_table[h]; symbol; symbol = symbol->sym_collision) {
+		if (symbol->sym_dbb && (database != symbol->sym_dbb) &&
+			scompare(string, length, symbol->sym_string, symbol->sym_length)) {
+
+			/* the symbol name matches and it's from a different database */
+
+			for (homonym = symbol; homonym; homonym = homonym->sym_homonym) {
+				if (homonym->sym_type == type) {
+
+					/* the homonym is of the correct type */
+
+					/* the next check is for the same relation or procedure ID,
+					   which indicates that it MAY be the same relation or
+					   procedure */
+
+					switch (type) {
+					case SYM_relation:
+						sym_rel = (DSQL_REL) homonym->sym_object;
+						sym_rel->rel_flags |= flag;
+						break;
+
+					case SYM_procedure:
+						sym_prc = (PRC) homonym->sym_object;
+						sym_prc->prc_flags |= flag;
+						break;
+					}
+				}
+			}
+		}
+	}
+	UNLOCK_HASH;
+}
+
+
+static SSHORT hash( register SCHAR * string, register USHORT length)
+{
+/**************************************
+ *
+ *	h a s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns the hash function of a string.
+ *
+ **************************************/
+	register SLONG value;
+	SCHAR c;
+
+	value = 0;
+
+	while (length--) {
+		c = *string++;
+		value = (value << 1) + (c);
+	}
+
+	return ((value >= 0) ? value : -value) % HASH_SIZE;
+}
+
+
+static BOOLEAN remove_symbol( SYM * collision, SYM symbol)
+{
+/**************************************
+ *
+ *	r e m o v e _ s y m b o l 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given the address of a collision,
+ *	remove a symbol from the collision 
+ *	and homonym linked lists.
+ *
+ **************************************/
+	register SYM *ptr, homonym;
+
+	if (symbol == *collision) {
+		if ((homonym = symbol->sym_homonym) != NULL) {
+			homonym->sym_collision = symbol->sym_collision;
+			*collision = homonym;
+		}
+		else
+			*collision = symbol->sym_collision;
+
+		return TRUE;
+	}
+
+	for (ptr = &(*collision)->sym_homonym; *ptr; ptr = &(*ptr)->sym_homonym)
+		if (symbol == *ptr) {
+			*ptr = symbol->sym_homonym;
+			return TRUE;
+		}
+
+	return FALSE;
+}
+
+
+static BOOLEAN scompare(
+						register TEXT * string1,
+						register USHORT length1,
+						register TEXT * string2, USHORT length2)
+{
+/**************************************
+ *
+ *	s c o m p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two symbolic strings
+ *	The character set for these strings is either ASCII or
+ *	Unicode in UTF format.
+ *	Symbols are case-significant - so no uppercase operation
+ *	is performed.
+ *
+ **************************************/
+
+	if (length1 != length2)
+		return FALSE;
+
+	while (length1--) {
+		if ((*string1++) != (*string2++))
+			return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+}	// extern "C"
diff --git a/src/dsql/hsh_proto.h b/src/dsql/hsh_proto.h
new file mode 100644
index 0000000000..50eb865347
--- /dev/null
+++ b/src/dsql/hsh_proto.h
@@ -0,0 +1,43 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		hsh_proto.h
+ *	DESCRIPTION:	Prototype Header file for hsh.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef DSQL_HSH_PROTO_H
+#define DSQL_HSH_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void HSHD_fini(void);
+void HSHD_finish(void *);
+void HSHD_init(void);
+void HSHD_insert(struct sym *);
+SYM HSHD_lookup(void *, TEXT *, SSHORT, SYM_TYPE, USHORT);
+void HSHD_remove(struct sym *);
+void HSHD_set_flag(void *, TEXT *, SSHORT, SYM_TYPE, SSHORT);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /*DSQL_HSH_PROTO_H*/
diff --git a/src/dsql/keywords.h b/src/dsql/keywords.h
new file mode 100644
index 0000000000..3b3ac9fc58
--- /dev/null
+++ b/src/dsql/keywords.h
@@ -0,0 +1,235 @@
+/* This list is maintained in alphabetical sorted order by 2nd column.
+   The following command will resort the list -- except for this comment
+   sort -t , -k 2b,2b keywords.h 
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   See dsql/parse.y for a chronological list. */
+NOT_LSS, "!<", 1,
+	NEQ, "!=", 1,
+	NOT_GTR, "!>", 1,
+	LPAREN, "(", 1,
+	RPAREN, ")", 1, COMMA, ",", 1, LSS, "<", 1, LEQ, "<=", 1, NEQ, "<>", 1,	/* Alias of != */
+	EQL, "=", 1,
+	GTR, ">", 1,
+	GEQ, ">=", 1,
+	ACTION, "ACTION", 1,
+	ACTIVE, "ACTIVE", 1,
+	ADD, "ADD", 1,
+	ADMIN, "ADMIN", 1,
+	AFTER, "AFTER", 1,
+	ALL, "ALL", 1,
+	ALTER, "ALTER", 1, AND, "AND", 1, ANY, "ANY", 1, AS, "AS", 1, ASC, "ASC", 1,	/* Alias of ASCENDING */
+	ASC, "ASCENDING", 1,
+	AT, "AT", 1,
+	AUTO, "AUTO", 1,
+	AVG, "AVG", 1,
+	BASENAME, "BASE_NAME", 1,
+	BEFORE, "BEFORE", 1,
+	BEGIN, "BEGIN", 1,
+	BETWEEN, "BETWEEN", 1,
+	BLOB, "BLOB", 1,
+	BY, "BY", 1,
+	CACHE, "CACHE", 1,
+	CASCADE, "CASCADE", 1,
+	CAST, "CAST", 1,
+	KW_CHAR, "CHAR", 1,
+	CHARACTER, "CHARACTER", 1,
+	CHECK, "CHECK", 1,
+	CHECK_POINT_LEN, "CHECK_POINT_LENGTH", 1,
+	COLLATE, "COLLATE", 1,
+	COLUMN, "COLUMN", 2,
+	COMMIT, "COMMIT", 1,
+	COMMITTED, "COMMITTED", 1,
+	COMPUTED, "COMPUTED", 1,
+	CONDITIONAL, "CONDITIONAL", 1,
+	CONSTRAINT, "CONSTRAINT", 1,
+	CONTAINING, "CONTAINING", 1,
+	COUNT, "COUNT", 1,
+	CREATE, "CREATE", 1,
+	CSTRING, "CSTRING", 1,
+	CURRENT, "CURRENT", 1,
+	CURRENT_DATE, "CURRENT_DATE", 2,
+	CURRENT_TIME, "CURRENT_TIME", 2,
+	CURRENT_TIMESTAMP, "CURRENT_TIMESTAMP", 2,
+	CURSOR, "CURSOR", 1,
+	DATABASE, "DATABASE", 1,
+	DATE, "DATE", 1,
+	DAY, "DAY", 2,
+	DEBUG, "DEBUG", 1,
+	KW_DEC, "DEC", 1,
+	DECIMAL, "DECIMAL", 1,
+	DECLARE, "DECLARE", 1,
+	DEFAULT, "DEFAULT", 1, DELETE, "DELETE", 1, DESC, "DESC", 1,	/* Alias of DESCENDING */
+	DESC, "DESCENDING", 1,
+	DISTINCT, "DISTINCT", 1,
+	DO, "DO", 1,
+	DOMAIN, "DOMAIN", 1,
+	KW_DOUBLE, "DOUBLE", 1,
+	DROP, "DROP", 1,
+	ELSE, "ELSE", 1,
+	END, "END", 1,
+	ENTRY_POINT, "ENTRY_POINT", 1,
+	ESCAPE, "ESCAPE", 1,
+	EXCEPTION, "EXCEPTION", 1,
+	EXECUTE, "EXECUTE", 1,
+	EXISTS, "EXISTS", 1,
+	EXIT, "EXIT", 1,
+	EXTERNAL, "EXTERNAL", 1,
+	EXTRACT, "EXTRACT", 2,
+	KW_FILE, "FILE", 1,
+	FILTER, "FILTER", 1,
+	KW_FLOAT, "FLOAT", 1,
+	FOR, "FOR", 1,
+	FOREIGN, "FOREIGN", 1,
+	FREE_IT, "FREE_IT", 1,
+	FROM, "FROM", 1,
+	FULL, "FULL", 1,
+	FUNCTION, "FUNCTION", 1,
+	GDSCODE, "GDSCODE", 1,
+	GENERATOR, "GENERATOR", 1,
+	GEN_ID, "GEN_ID", 1,
+	GRANT, "GRANT", 1,
+	GROUP, "GROUP", 1,
+	GROUP_COMMIT_WAIT, "GROUP_COMMIT_WAIT_TIME", 1,
+	HAVING, "HAVING", 1,
+	HOUR, "HOUR", 2,
+	IF, "IF", 1,
+	IN, "IN", 1,
+	INACTIVE, "INACTIVE", 1,
+	INDEX, "INDEX", 1,
+	INNER, "INNER", 1,
+	INPUT_TYPE, "INPUT_TYPE", 1,
+	INSERT, "INSERT", 1,
+	KW_INT, "INT", 1,
+	INTEGER, "INTEGER", 1,
+	INTO, "INTO", 1,
+	IS, "IS", 1,
+	ISOLATION, "ISOLATION", 1,
+	JOIN, "JOIN", 1,
+	KEY, "KEY", 1,
+	LEFT, "LEFT", 1,
+	LENGTH, "LENGTH", 1,
+	LEVEL, "LEVEL", 1,
+	LIKE, "LIKE", 1,
+	LOGFILE, "LOGFILE", 1,
+	LOG_BUF_SIZE, "LOG_BUFFER_SIZE", 1,
+	KW_LONG, "LONG", 1,
+	MANUAL, "MANUAL", 1,
+	MAXIMUM, "MAX", 1,
+	MAX_SEGMENT, "MAXIMUM_SEGMENT", 1,
+	MERGE, "MERGE", 1,
+	MESSAGE, "MESSAGE", 1,
+	MINIMUM, "MIN", 1,
+	MINUTE, "MINUTE", 2,
+	MODULE_NAME, "MODULE_NAME", 1,
+	MONTH, "MONTH", 2,
+	NAMES, "NAMES", 1,
+	NATIONAL, "NATIONAL", 1,
+	NATURAL, "NATURAL", 1,
+	NCHAR, "NCHAR", 1,
+	NO, "NO", 1,
+	NOT, "NOT", 1,
+	KW_NULL, "NULL", 1,
+	KW_NUMERIC, "NUMERIC", 1,
+	NUM_LOG_BUFS, "NUM_LOG_BUFFERS", 1,
+	OF, "OF", 1,
+	ON, "ON", 1,
+	ONLY, "ONLY", 1,
+	OPTION, "OPTION", 1,
+	OR, "OR", 1,
+	ORDER, "ORDER", 1,
+	OUTER, "OUTER", 1,
+	OUTPUT_TYPE, "OUTPUT_TYPE", 1,
+	OVERFLOW, "OVERFLOW", 1,
+	PAGE, "PAGE", 1,
+	PAGES, "PAGES", 1,
+	PAGE_SIZE, "PAGE_SIZE", 1,
+	PARAMETER, "PARAMETER", 1,
+	PASSWORD, "PASSWORD", 1,
+	PLAN, "PLAN", 1,
+	POSITION, "POSITION", 1,
+	POST_EVENT, "POST_EVENT", 1,
+	PRECISION, "PRECISION", 1,
+	PRIMARY, "PRIMARY", 1,
+	PRIVILEGES, "PRIVILEGES", 1,
+	PROCEDURE, "PROCEDURE", 1,
+	PROTECTED, "PROTECTED", 1,
+	RAW_PARTITIONS, "RAW_PARTITIONS", 1,
+	DB_KEY, "RDB$DB_KEY", 1,
+	READ, "READ", 1,
+	REAL, "REAL", 1,
+	VERSION, "RECORD_VERSION", 1,
+	REFERENCES, "REFERENCES", 1, RESERVING, "RESERV", 1,	/* Alias of RESERVING */
+	RESERVING, "RESERVING", 1,
+	RESTRICT, "RESTRICT", 1,
+	RETAIN, "RETAIN", 1,
+	RETURNING_VALUES, "RETURNING_VALUES", 1,
+	RETURNS, "RETURNS", 1,
+	REVOKE, "REVOKE", 1,
+	RIGHT, "RIGHT", 1,
+	ROLE, "ROLE", 1, ROLLBACK, "ROLLBACK", 1, DATABASE, "SCHEMA", 1,	/* Alias of DATABASE */
+	SECOND, "SECOND", 2,
+	SEGMENT, "SEGMENT", 1,
+	SELECT, "SELECT", 1,
+	SET, "SET", 1,
+	SHADOW, "SHADOW", 1,
+	SHARED, "SHARED", 1,
+	SINGULAR, "SINGULAR", 1,
+	SIZE, "SIZE", 1,
+	SMALLINT, "SMALLINT", 1,
+	SNAPSHOT, "SNAPSHOT", 1,
+	SOME, "SOME", 1,
+	SORT, "SORT", 1,
+	SQLCODE, "SQLCODE", 1,
+	STABILITY, "STABILITY", 1, STARTING, "STARTING", 1, STARTING, "STARTS", 1,	/* Alias of STARTING */
+	STATISTICS, "STATISTICS", 1,
+	SUB_TYPE, "SUB_TYPE", 1,
+	SUM, "SUM", 1,
+	SUSPEND, "SUSPEND", 1,
+	TABLE, "TABLE", 1,
+	THEN, "THEN", 1,
+	TIME, "TIME", 2,
+	TIMESTAMP, "TIMESTAMP", 2,
+	TO, "TO", 1,
+	TRANSACTION, "TRANSACTION", 1,
+	TRIGGER, "TRIGGER", 1,
+	TYPE, "TYPE", 2,
+	UNCOMMITTED, "UNCOMMITTED", 1,
+	UNION, "UNION", 1,
+	UNIQUE, "UNIQUE", 1,
+	UPDATE, "UPDATE", 1,
+	KW_UPPER, "UPPER", 1,
+	USER, "USER", 1,
+	KW_VALUE, "VALUE", 1,
+	VALUES, "VALUES", 1,
+	VARCHAR, "VARCHAR", 1,
+	VARIABLE, "VARIABLE", 1,
+	VARYING, "VARYING", 1,
+	VIEW, "VIEW", 1,
+	WAIT, "WAIT", 1,
+	WEEKDAY, "WEEKDAY", 2,
+	WHEN, "WHEN", 1,
+	WHERE, "WHERE", 1,
+	WHILE, "WHILE", 1,
+	WITH, "WITH", 1,
+	WORK, "WORK", 1,
+	WRITE, "WRITE", 1, YEAR, "YEAR", 2, YEARDAY, "YEARDAY", 2, NOT_LSS, "^<", 1,	/* Alias of !< */
+	NEQ, "^=", 1,				/* Alias of != */
+	NOT_GTR, "^>", 1,			/* Alias of !> */
+	CONCATENATE, "||", 1, NOT_LSS, "~<", 1,	/* Alias of !< */
+	NEQ, "~=", 1,				/* Alias of != */
+	NOT_GTR, "~>", 1,			/* Alias of !> */
diff --git a/src/dsql/make.cpp b/src/dsql/make.cpp
new file mode 100644
index 0000000000..2d053f4cb6
--- /dev/null
+++ b/src/dsql/make.cpp
@@ -0,0 +1,1266 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		make.c
+ *	DESCRIPTION:	Routines to make various blocks.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <ctype.h>
+#include <string.h>
+#include "../dsql/dsql.h"
+#include "../dsql/node.h"
+#include "../dsql/sym.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/intl.h"
+#include "../jrd/constants.h"
+#include "../jrd/align.h"
+#include "../dsql/alld_proto.h"
+#include "../dsql/errd_proto.h"
+#include "../dsql/hsh_proto.h"
+#include "../dsql/make_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/dsc_proto.h"
+#include "../jrd/cvt_proto.h"
+
+
+extern "C" {
+
+
+ASSERT_FILENAME					/* declare things assert() needs */
+/* InterBase provides transparent conversion from string to date in
+ * contexts where it makes sense.  This macro checks a descriptor to
+ * see if it is something that *could* represent a date value
+ */
+#define COULD_BE_DATE(d)	(DTYPE_IS_DATE((d).dsc_dtype) || ((d).dsc_dtype <= dtype_any_text))
+/* One of d1,d2 is time, the other is date */
+#define IS_DATE_AND_TIME(d1,d2)	\
+  ((((d1).dsc_dtype==dtype_sql_time)&&((d2).dsc_dtype==dtype_sql_date)) || \
+   (((d2).dsc_dtype==dtype_sql_time)&&((d1).dsc_dtype==dtype_sql_date)))
+	NOD MAKE_constant(STR constant, int numeric_flag)
+{
+/**************************************
+ *
+ *	M A K E _ c o n s t a n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a constant node.
+ *
+ **************************************/
+	NOD node;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	node = (NOD) ALLOCDV(type_nod,
+						 (numeric_flag == CONSTANT_TIMESTAMP ||
+						  numeric_flag == CONSTANT_SINT64) ? 2 : 1);
+	node->nod_type = nod_constant;
+
+	if (numeric_flag == CONSTANT_SLONG) {
+		node->nod_desc.dsc_dtype = dtype_long;
+		node->nod_desc.dsc_length = sizeof(SLONG);
+		node->nod_desc.dsc_scale = 0;
+		node->nod_desc.dsc_sub_type = 0;
+		node->nod_desc.dsc_address = (UCHAR *) node->nod_arg;
+		node->nod_arg[0] = (NOD) constant;
+	}
+	else if (numeric_flag == CONSTANT_DOUBLE) {
+		DEV_BLKCHK(constant, type_str);
+
+		/* This is a numeric value which is transported to the engine as
+		 * a string.  The engine will convert it. Use dtype_double so that
+		 the engine can distinguish it from an actual string.
+		 Note: Due to the size of dsc_scale we are limited to numeric
+		 constants of less than 256 bytes.  
+		 */
+		node->nod_desc.dsc_dtype = dtype_double;
+		node->nod_desc.dsc_scale = static_cast < char >(constant->str_length);	/* Scale has no use for double */
+		node->nod_desc.dsc_sub_type = 0;
+		node->nod_desc.dsc_length = sizeof(double);
+		node->nod_desc.dsc_address = constant->str_data;
+		node->nod_desc.dsc_ttype = ttype_ascii;
+		node->nod_arg[0] = (NOD) constant;
+	}
+	else if (numeric_flag == CONSTANT_SINT64) {
+		/* We convert the string to an int64.  We treat the two adjacent
+		   32-bit words node->nod_arg[0] and node->nod_arg[1] as a
+		   64-bit integer: if we ever port to a platform which requires
+		   8-byte alignment of int64 data, we will have to force 8-byte
+		   alignment of node->nod_arg, which is now only guaranteed
+		   4-byte alignment.    -- ChrisJ 1999-02-20 */
+
+		UINT64 value = 0;
+		BOOLEAN point_seen = 0;
+		UCHAR *p = constant->str_data;
+
+		node->nod_desc.dsc_dtype = dtype_int64;
+		node->nod_desc.dsc_length = sizeof(SINT64);
+		node->nod_desc.dsc_scale = 0;
+		node->nod_desc.dsc_sub_type = 0;
+		node->nod_desc.dsc_address = (UCHAR *) node->nod_arg;
+
+		/* Now convert the string to an int64.  We can omit testing for
+		   overflow, because we would never have gotten here if yylex
+		   hadn't recognized the string as a valid 64-bit integer value.
+		   We *might* have "9223372936854775808", which works an an int64
+		   only if preceded by a '-', but that issue is handled in GEN_expr,
+		   and need not be addressed here. */
+
+		while (isdigit(*p))
+			value = 10 * value + (*(p++) - '0');
+		if (*p++ = '.') {
+			while (isdigit(*p)) {
+				value = 10 * value + (*p++ - '0');
+				node->nod_desc.dsc_scale--;
+			}
+		}
+
+		*(UINT64 *) (node->nod_desc.dsc_address) = value;
+
+	}
+	else if (numeric_flag == CONSTANT_DATE ||
+			 numeric_flag == CONSTANT_TIME ||
+			 numeric_flag == CONSTANT_TIMESTAMP) {
+		DSC tmp;
+
+		/* Setup the constant's descriptor */
+
+		switch (numeric_flag) {
+		case CONSTANT_DATE:
+			node->nod_desc.dsc_dtype = dtype_sql_date;
+			break;
+		case CONSTANT_TIME:
+			node->nod_desc.dsc_dtype = dtype_sql_time;
+			break;
+		case CONSTANT_TIMESTAMP:
+			node->nod_desc.dsc_dtype = dtype_timestamp;
+			break;
+		};
+		node->nod_desc.dsc_sub_type = 0;
+		node->nod_desc.dsc_scale = 0;
+		node->nod_desc.dsc_length = type_lengths[node->nod_desc.dsc_dtype];
+		node->nod_desc.dsc_address = (UCHAR *) node->nod_arg;
+
+		/* Set up a descriptor to point to the string */
+
+		tmp.dsc_dtype = dtype_text;
+		tmp.dsc_scale = 0;
+		tmp.dsc_flags = 0;
+		tmp.dsc_ttype = ttype_ascii;
+		tmp.dsc_length = static_cast < USHORT > (constant->str_length);
+		tmp.dsc_address = constant->str_data;
+
+		/* Now invoke the string_to_date/time/timestamp routines */
+
+		CVT_move(&tmp, &node->nod_desc,
+				 reinterpret_cast < void (*)() > (ERRD_post));
+	}
+	else {
+		assert(numeric_flag == CONSTANT_STRING);
+		DEV_BLKCHK(constant, type_str);
+
+		node->nod_desc.dsc_dtype = dtype_text;
+		node->nod_desc.dsc_sub_type = 0;
+		node->nod_desc.dsc_scale = 0;
+		node->nod_desc.dsc_length =
+			static_cast < USHORT > (constant->str_length);
+		node->nod_desc.dsc_address = constant->str_data;
+		node->nod_desc.dsc_ttype = ttype_dynamic;
+		/* carry a pointer to the constant to resolve character set in pass1 */
+		node->nod_arg[0] = (NOD) constant;
+	}
+
+	return node;
+}
+
+
+NOD MAKE_str_constant(STR constant, SSHORT character_set)
+{
+/**************************************
+ *
+ *	M A K E _ s t r - c o n s t a n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a constant node when the 
+ *      character set ID is already known.
+ *
+ **************************************/
+	NOD node;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	node = (NOD) ALLOCDV(type_nod, 1);
+	node->nod_type = nod_constant;
+
+	DEV_BLKCHK(constant, type_str);
+
+	node->nod_desc.dsc_dtype = dtype_text;
+	node->nod_desc.dsc_sub_type = 0;
+	node->nod_desc.dsc_scale = 0;
+	node->nod_desc.dsc_length = static_cast < USHORT > (constant->str_length);
+	node->nod_desc.dsc_address = constant->str_data;
+	node->nod_desc.dsc_ttype = character_set;
+/* carry a pointer to the constant to resolve character set in pass1 */
+	node->nod_arg[0] = (NOD) constant;
+
+	return node;
+}
+
+
+STR MAKE_cstring(CONST SCHAR * str)
+{
+/**************************************
+ *
+ *	M A K E _ c s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a string node for a string whose
+ *	length is not known, but is null-terminated.
+ *
+ **************************************/
+
+	return MAKE_string((UCHAR *) str, strlen(str));
+}
+
+
+void MAKE_desc( DSC * desc, NOD node)
+{
+/**************************************
+ *
+ *	M A K E _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a descriptor from input node.
+ *
+ **************************************/
+	DSC desc1, desc2;
+	USHORT dtype, dtype1, dtype2;
+	MAP map;
+	CTX context;
+	DSQL_REL relation;
+	UDF udf;
+	FLD field;
+
+	DEV_BLKCHK(node, type_nod);
+
+/* If we already know the datatype, don't worry about anything */
+
+	if (node->nod_desc.dsc_dtype) {
+		*desc = node->nod_desc;
+		return;
+	}
+
+	switch (node->nod_type) {
+	case nod_agg_count:
+/* count2
+    case nod_agg_distinct:
+*/
+		desc->dsc_dtype = dtype_long;
+		desc->dsc_length = sizeof(SLONG);
+		desc->dsc_sub_type = 0;
+		desc->dsc_scale = 0;
+		desc->dsc_flags = 0;
+		return;
+
+	case nod_map:
+		map = (MAP) node->nod_arg[e_map_map];
+		MAKE_desc(desc, map->map_node);
+		return;
+
+	case nod_agg_min:
+	case nod_agg_max:
+		MAKE_desc(desc, node->nod_arg[0]);
+		desc->dsc_flags = DSC_nullable;
+		return;
+
+	case nod_agg_average:
+		MAKE_desc(desc, node->nod_arg[0]);
+		desc->dsc_flags = DSC_nullable;
+		dtype = desc->dsc_dtype;
+		if (!DTYPE_CAN_AVERAGE(dtype))
+			ERRD_post(gds_expression_eval_err, 0);
+		return;
+
+	case nod_agg_average2:
+		MAKE_desc(desc, node->nod_arg[0]);
+		desc->dsc_flags = DSC_nullable;
+		dtype = desc->dsc_dtype;
+		if (!DTYPE_CAN_AVERAGE(dtype))
+			ERRD_post(gds_expression_eval_err, 0);
+		if (DTYPE_IS_EXACT(dtype)) {
+			desc->dsc_dtype = dtype_int64;
+			desc->dsc_length = sizeof(SINT64);
+			node->nod_flags |= NOD_COMP_DIALECT;
+		}
+		else {
+			desc->dsc_dtype = dtype_double;
+			desc->dsc_length = sizeof(double);
+		}
+		return;
+
+	case nod_agg_total:
+		MAKE_desc(desc, node->nod_arg[0]);
+		if (desc->dsc_dtype == dtype_short) {
+			desc->dsc_dtype = dtype_long;
+			desc->dsc_length = sizeof(SLONG);
+		}
+		else if (desc->dsc_dtype == dtype_int64) {
+			desc->dsc_dtype = dtype_double;
+			desc->dsc_length = sizeof(double);
+		}
+		desc->dsc_flags = DSC_nullable;
+		return;
+
+	case nod_agg_total2:
+		MAKE_desc(desc, node->nod_arg[0]);
+		dtype = desc->dsc_dtype;
+		if (DTYPE_IS_EXACT(dtype)) {
+			desc->dsc_dtype = dtype_int64;
+			desc->dsc_length = sizeof(SINT64);
+			node->nod_flags |= NOD_COMP_DIALECT;
+		}
+		else {
+			desc->dsc_dtype = dtype_double;
+			desc->dsc_length = sizeof(double);
+		}
+		desc->dsc_flags = DSC_nullable;
+		return;
+
+	case nod_concatenate:
+		MAKE_desc(&desc1, node->nod_arg[0]);
+		MAKE_desc(&desc2, node->nod_arg[1]);
+		desc->dsc_scale = 0;
+		desc->dsc_dtype = dtype_varying;
+		if (desc1.dsc_dtype <= dtype_any_text)
+			desc->dsc_ttype = desc1.dsc_ttype;
+		else
+			desc->dsc_ttype = ttype_ascii;
+		desc->dsc_length = sizeof(USHORT) +
+			DSC_string_length(&desc1) + DSC_string_length(&desc2);
+		desc->dsc_flags = (desc1.dsc_flags | desc2.dsc_flags) & DSC_nullable;
+		return;
+
+	case nod_upcase:
+		MAKE_desc(&desc1, node->nod_arg[0]);
+		if (desc1.dsc_dtype <= dtype_any_text) {
+			*desc = desc1;
+			return;
+		}
+		desc->dsc_dtype = dtype_varying;
+		desc->dsc_scale = 0;
+		desc->dsc_ttype = ttype_ascii;
+		desc->dsc_length = sizeof(USHORT) + DSC_string_length(&desc1);
+		desc->dsc_flags = desc1.dsc_flags & DSC_nullable;
+		return;
+
+	case nod_cast:
+		field = (FLD) node->nod_arg[e_cast_target];
+		MAKE_desc_from_field(desc, field);
+		MAKE_desc(&desc1, node->nod_arg[e_cast_source]);
+		desc->dsc_flags = desc1.dsc_flags & DSC_nullable;
+		return;
+
+#ifdef DEV_BUILD
+	case nod_collate:
+		ERRD_bugcheck("Not expecting nod_collate in dsql/MAKE_desc");
+		return;
+#endif
+
+	case nod_add:
+	case nod_subtract:
+		MAKE_desc(&desc1, node->nod_arg[0]);
+		MAKE_desc(&desc2, node->nod_arg[1]);
+		dtype1 = desc1.dsc_dtype;
+		dtype2 = desc2.dsc_dtype;
+
+		if (dtype_int64 == dtype1)
+			dtype1 = dtype_double;
+		if (dtype_int64 == dtype2)
+			dtype2 = dtype_double;
+
+		dtype = MAX(dtype1, dtype2);
+
+		if (DTYPE_IS_BLOB(dtype))
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds_dsql_no_blob_array, 0);
+
+		desc->dsc_flags = (desc1.dsc_flags | desc2.dsc_flags) & DSC_nullable;
+		switch (dtype) {
+		case dtype_sql_time:
+		case dtype_sql_date:
+			/* Forbid <date/time> +- <string> */
+			if (IS_DTYPE_ANY_TEXT(desc1.dsc_dtype) ||
+				IS_DTYPE_ANY_TEXT(desc2.dsc_dtype))
+					ERRD_post(gds_expression_eval_err, 0);
+
+		case dtype_timestamp:
+
+			/* Allow <timestamp> +- <string> (historical) */
+			if (COULD_BE_DATE(desc1) && COULD_BE_DATE(desc2)) {
+				if (node->nod_type == nod_subtract) {
+					/* <any date> - <any date> */
+
+					/* Legal permutations are:
+					   <timestamp> - <timestamp>
+					   <timestamp> - <date>
+					   <date> - <date>
+					   <date> - <timestamp>
+					   <time> - <time>
+					   <timestamp> - <string>
+					   <string> - <timestamp> 
+					   <string> - <string>   */
+
+					if (IS_DTYPE_ANY_TEXT(dtype1))
+						dtype = dtype_timestamp;
+					else if (IS_DTYPE_ANY_TEXT(dtype2))
+						dtype = dtype_timestamp;
+					else if (dtype1 == dtype2)
+						dtype = dtype1;
+					else if ((dtype1 == dtype_timestamp) &&
+							 (dtype2 == dtype_sql_date))
+							dtype = dtype_timestamp;
+					else if ((dtype2 == dtype_timestamp) &&
+							 (dtype1 == dtype_sql_date))
+							dtype = dtype_timestamp;
+					else
+						ERRD_post(gds_expression_eval_err, 0);
+
+					if (dtype == dtype_sql_date) {
+						desc->dsc_dtype = dtype_long;
+						desc->dsc_length = sizeof(SLONG);
+						desc->dsc_scale = 0;
+					}
+					else if (dtype == dtype_sql_time) {
+						desc->dsc_dtype = dtype_long;
+						desc->dsc_length = sizeof(SLONG);
+						desc->dsc_scale = ISC_TIME_SECONDS_PRECISION_SCALE;
+					}
+					else {
+						assert(dtype == dtype_timestamp);
+						desc->dsc_dtype = dtype_double;
+						desc->dsc_length = sizeof(double);
+						desc->dsc_scale = 0;
+					}
+				}
+				else if (IS_DATE_AND_TIME(desc1, desc2)) {
+					/* <date> + <time> */
+					/* <time> + <date> */
+					desc->dsc_dtype = dtype_timestamp;
+					desc->dsc_length = type_lengths[dtype_timestamp];
+					desc->dsc_scale = 0;
+				}
+				else
+					/* <date> + <date> */
+					ERRD_post(gds_expression_eval_err, 0);
+			}
+			else if (DTYPE_IS_DATE(desc1.dsc_dtype) ||
+					 /* <date> +/- <non-date> */
+					 (node->nod_type == nod_add))
+				/* <non-date> + <date> */
+			{
+				desc->dsc_dtype = desc1.dsc_dtype;
+				if (!DTYPE_IS_DATE(desc->dsc_dtype))
+					desc->dsc_dtype = desc2.dsc_dtype;
+				assert(DTYPE_IS_DATE(desc->dsc_dtype));
+				desc->dsc_length = type_lengths[desc->dsc_dtype];
+				desc->dsc_scale = 0;
+			}
+			else {
+				/* <non-date> - <date> */
+				assert(node->nod_type == nod_subtract);
+				ERRD_post(gds_expression_eval_err, 0);
+			}
+			return;
+
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_text:
+		case dtype_double:
+		case dtype_real:
+			desc->dsc_dtype = dtype_double;
+			desc->dsc_sub_type = 0;
+			desc->dsc_scale = 0;
+			desc->dsc_length = sizeof(double);
+			return;
+
+		default:
+			desc->dsc_dtype = dtype_long;
+			desc->dsc_sub_type = 0;
+			desc->dsc_length = sizeof(SLONG);
+			desc->dsc_scale = MIN(NUMERIC_SCALE(desc1), NUMERIC_SCALE(desc2));
+			break;
+		}
+		return;
+
+	case nod_add2:
+	case nod_subtract2:
+		MAKE_desc(&desc1, node->nod_arg[0]);
+		MAKE_desc(&desc2, node->nod_arg[1]);
+		dtype1 = desc1.dsc_dtype;
+		dtype2 = desc2.dsc_dtype;
+
+		/* Arrays and blobs can never partipate in addition/subtraction */
+		if (DTYPE_IS_BLOB(desc1.dsc_dtype) || DTYPE_IS_BLOB(desc2.dsc_dtype))
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds_dsql_no_blob_array, 0);
+
+		/* In Dialect 2 or 3, strings can never partipate in addition / sub 
+		   (Use a specific cast instead) */
+		if (IS_DTYPE_ANY_TEXT(desc1.dsc_dtype) ||
+			IS_DTYPE_ANY_TEXT(desc2.dsc_dtype))
+				ERRD_post(gds_expression_eval_err, 0);
+
+		/* Determine the TYPE of arithmetic to perform, store it
+		   in dtype.  Note:  this is different from the result of
+		   the operation, as <timestamp>-<timestamp> uses
+		   <timestamp> arithmetic, but returns a <double> */
+		if (DTYPE_IS_EXACT(desc1.dsc_dtype)
+			&& DTYPE_IS_EXACT(desc2.dsc_dtype)) dtype = dtype_int64;
+		else if (DTYPE_IS_NUMERIC(desc1.dsc_dtype)
+				 && DTYPE_IS_NUMERIC(desc2.dsc_dtype)) {
+			assert(DTYPE_IS_APPROX(desc1.dsc_dtype) ||
+				   DTYPE_IS_APPROX(desc2.dsc_dtype));
+			dtype = dtype_double;
+		}
+		else {
+			/* mixed numeric and non-numeric: */
+
+			assert(DTYPE_IS_DATE(dtype1) || DTYPE_IS_DATE(dtype2));
+
+			/* The MAX(dtype) rule doesn't apply with dtype_int64 */
+
+			if (dtype_int64 == dtype1)
+				dtype1 = dtype_double;
+			if (dtype_int64 == dtype2)
+				dtype2 = dtype_double;
+
+			dtype = MAX(dtype1, dtype2);
+		}
+
+		desc->dsc_flags = (desc1.dsc_flags | desc2.dsc_flags) & DSC_nullable;
+		switch (dtype) {
+		case dtype_sql_time:
+		case dtype_sql_date:
+		case dtype_timestamp:
+
+			if ((DTYPE_IS_DATE(dtype1) || (dtype1 == dtype_null)) &&
+				(DTYPE_IS_DATE(dtype2) || (dtype2 == dtype_null))) {
+				if (node->nod_type == nod_subtract2) {
+					/* <any date> - <any date> */
+					/* Legal permutations are:
+					   <timestamp> - <timestamp>
+					   <timestamp> - <date>
+					   <date> - <date>
+					   <date> - <timestamp>
+					   <time> - <time> */
+
+					if (dtype1 == dtype2)
+						dtype = dtype1;
+					else if ((dtype1 == dtype_timestamp) &&
+							 (dtype2 == dtype_sql_date))
+							dtype = dtype_timestamp;
+					else if ((dtype2 == dtype_timestamp) &&
+							 (dtype1 == dtype_sql_date))
+							dtype = dtype_timestamp;
+					else
+						ERRD_post(gds_expression_eval_err, 0);
+
+					if (dtype == dtype_sql_date) {
+						desc->dsc_dtype = dtype_long;
+						desc->dsc_length = sizeof(SLONG);
+						desc->dsc_scale = 0;
+					}
+					else if (dtype == dtype_sql_time) {
+						desc->dsc_dtype = dtype_long;
+						desc->dsc_length = sizeof(SLONG);
+						desc->dsc_scale = ISC_TIME_SECONDS_PRECISION_SCALE;
+					}
+					else {
+						assert(dtype == dtype_timestamp);
+						desc->dsc_dtype = dtype_int64;
+						desc->dsc_length = sizeof(SINT64);
+						desc->dsc_scale = -9;
+					}
+				}
+				else if (IS_DATE_AND_TIME(desc1, desc2)) {
+					/* <date> + <time> */
+					/* <time> + <date> */
+					desc->dsc_dtype = dtype_timestamp;
+					desc->dsc_length = type_lengths[dtype_timestamp];
+					desc->dsc_scale = 0;
+				}
+				else
+					/* <date> + <date> */
+					ERRD_post(gds_expression_eval_err, 0);
+			}
+			else if (DTYPE_IS_DATE(desc1.dsc_dtype) ||
+					 /* <date> +/- <non-date> */
+					 (node->nod_type == nod_add2))
+				/* <non-date> + <date> */
+			{
+				desc->dsc_dtype = desc1.dsc_dtype;
+				if (!DTYPE_IS_DATE(desc->dsc_dtype))
+					desc->dsc_dtype = desc2.dsc_dtype;
+				assert(DTYPE_IS_DATE(desc->dsc_dtype));
+				desc->dsc_length = type_lengths[desc->dsc_dtype];
+				desc->dsc_scale = 0;
+			}
+			else {
+				/* <non-date> - <date> */
+				assert(node->nod_type == nod_subtract2);
+				ERRD_post(gds_expression_eval_err, 0);
+			}
+			return;
+
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_text:
+		case dtype_double:
+		case dtype_real:
+			desc->dsc_dtype = dtype_double;
+			desc->dsc_sub_type = 0;
+			desc->dsc_scale = 0;
+			desc->dsc_length = sizeof(double);
+			return;
+
+		case dtype_short:
+		case dtype_long:
+		case dtype_int64:
+			desc->dsc_dtype = dtype_int64;
+			desc->dsc_sub_type = 0;
+			desc->dsc_length = sizeof(SINT64);
+
+			/* The result type is int64 because both operands are
+			   exact numeric: hence we don't need the NUMERIC_SCALE
+			   macro here. */
+			assert(DTYPE_IS_EXACT(desc1.dsc_dtype));
+			assert(DTYPE_IS_EXACT(desc2.dsc_dtype));
+
+			desc->dsc_scale = MIN(desc1.dsc_scale, desc2.dsc_scale);
+			node->nod_flags |= NOD_COMP_DIALECT;
+			break;
+
+		default:
+			/* a type which cannot participate in an add or subtract */
+			ERRD_post(gds_expression_eval_err, 0);
+		}
+		return;
+
+	case nod_multiply:
+		MAKE_desc(&desc1, node->nod_arg[0]);
+		MAKE_desc(&desc2, node->nod_arg[1]);
+		dtype = DSC_multiply_blr4_result[desc1.dsc_dtype][desc2.dsc_dtype];
+
+		if (dtype_null == dtype)
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds_dsql_no_blob_array, 0);
+
+		desc->dsc_flags = (desc1.dsc_flags | desc2.dsc_flags) & DSC_nullable;
+		switch (dtype) {
+		case dtype_double:
+			desc->dsc_dtype = dtype_double;
+			desc->dsc_sub_type = 0;
+			desc->dsc_scale = 0;
+			desc->dsc_length = sizeof(double);
+			break;
+
+		case dtype_long:
+			desc->dsc_dtype = dtype_long;
+			desc->dsc_sub_type = 0;
+			desc->dsc_length = sizeof(SLONG);
+			desc->dsc_scale = NUMERIC_SCALE(desc1) + NUMERIC_SCALE(desc2);
+			break;
+
+		default:
+			ERRD_post(gds_expression_eval_err, 0);
+		}
+		return;
+
+	case nod_multiply2:
+		MAKE_desc(&desc1, node->nod_arg[0]);
+		MAKE_desc(&desc2, node->nod_arg[1]);
+		dtype = DSC_multiply_result[desc1.dsc_dtype][desc2.dsc_dtype];
+
+		desc->dsc_flags = (desc1.dsc_flags | desc2.dsc_flags) & DSC_nullable;
+		switch (dtype) {
+		case dtype_double:
+			desc->dsc_dtype = dtype_double;
+			desc->dsc_sub_type = 0;
+			desc->dsc_scale = 0;
+			desc->dsc_length = sizeof(double);
+			break;
+
+		case dtype_int64:
+			desc->dsc_dtype = dtype_int64;
+			desc->dsc_sub_type = 0;
+			desc->dsc_length = sizeof(SINT64);
+			desc->dsc_scale = NUMERIC_SCALE(desc1) + NUMERIC_SCALE(desc2);
+			node->nod_flags |= NOD_COMP_DIALECT;
+			break;
+
+		default:
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds_dsql_no_blob_array, 0);
+			break;
+		}
+		return;
+
+	case nod_count:
+		desc->dsc_dtype = dtype_long;
+		desc->dsc_sub_type = 0;
+		desc->dsc_scale = 0;
+		desc->dsc_length = sizeof(SLONG);
+		desc->dsc_flags = 0;
+		return;
+
+	case nod_divide:
+		MAKE_desc(&desc1, node->nod_arg[0]);
+		MAKE_desc(&desc2, node->nod_arg[1]);
+
+		dtype1 = desc1.dsc_dtype;
+		if (dtype_int64 == dtype1)
+			dtype1 = dtype_double;
+
+		dtype2 = desc2.dsc_dtype;
+		if (dtype_int64 == dtype2)
+			dtype2 = dtype_double;
+
+		dtype = MAX(dtype1, dtype2);
+
+		if (!DTYPE_CAN_DIVIDE(dtype))
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds_dsql_no_blob_array, 0);
+		desc->dsc_dtype = dtype_double;
+		desc->dsc_length = sizeof(double);
+		desc->dsc_scale = 0;
+		desc->dsc_flags = (desc1.dsc_flags | desc2.dsc_flags) & DSC_nullable;
+		return;
+
+	case nod_divide2:
+		MAKE_desc(&desc1, node->nod_arg[0]);
+		MAKE_desc(&desc2, node->nod_arg[1]);
+		dtype = DSC_multiply_result[desc1.dsc_dtype][desc2.dsc_dtype];
+		desc->dsc_dtype = static_cast < UCHAR > (dtype);
+
+		desc->dsc_flags = (desc1.dsc_flags | desc2.dsc_flags) & DSC_nullable;
+		switch (dtype) {
+		case dtype_int64:
+			desc->dsc_length = sizeof(SINT64);
+			desc->dsc_scale = NUMERIC_SCALE(desc1) + NUMERIC_SCALE(desc2);
+			node->nod_flags |= NOD_COMP_DIALECT;
+			break;
+
+		case dtype_double:
+			desc->dsc_length = sizeof(double);
+			desc->dsc_scale = 0;
+			break;
+
+		default:
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds_dsql_no_blob_array, 0);
+			break;
+		}
+
+		return;
+
+	case nod_negate:
+		MAKE_desc(desc, node->nod_arg[0]);
+		if (!DTYPE_CAN_NEGATE(desc->dsc_dtype))
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, gds_dsql_no_blob_array, 0);
+		return;
+
+	case nod_alias:
+		MAKE_desc(desc, node->nod_arg[e_alias_value]);
+		return;
+
+	case nod_dbkey:
+		/* Fix for bug 10072 check that the target is a relation */
+		context = (CTX) node->nod_arg[0]->nod_arg[0];
+		if (relation = context->ctx_relation) {
+			desc->dsc_dtype = dtype_text;
+			desc->dsc_length = relation->rel_dbkey_length;
+			desc->dsc_flags = 0;
+			desc->dsc_ttype = ttype_binary;
+		}
+		else {
+			ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 607,
+					  gds_arg_gds, isc_dsql_dbkey_from_non_table, 0);
+		}
+		return;
+
+	case nod_udf:
+		udf = (UDF) node->nod_arg[0];
+		desc->dsc_dtype = static_cast < UCHAR > (udf->udf_dtype);
+		desc->dsc_length = udf->udf_length;
+		desc->dsc_scale = static_cast < SCHAR > (udf->udf_scale);
+		desc->dsc_flags = 0;
+		desc->dsc_ttype = udf->udf_sub_type;
+		return;
+
+	case nod_gen_id:
+		desc->dsc_dtype = dtype_long;
+		desc->dsc_sub_type = 0;
+		desc->dsc_scale = 0;
+		desc->dsc_length = sizeof(SLONG);
+		desc->dsc_flags = node->nod_arg[e_gen_id_value]->nod_desc.dsc_flags;
+		return;
+
+	case nod_gen_id2:
+		desc->dsc_dtype = dtype_int64;
+		desc->dsc_sub_type = 0;
+		desc->dsc_scale = 0;
+		desc->dsc_length = sizeof(SINT64);
+		desc->dsc_flags = node->nod_arg[e_gen_id_value]->nod_desc.dsc_flags;
+		node->nod_flags |= NOD_COMP_DIALECT;
+		return;
+
+	case nod_field:
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 203,
+				  gds_arg_gds, gds_dsql_field_ref, 0);
+		return;
+
+	case nod_user_name:
+		desc->dsc_dtype = dtype_varying;
+		desc->dsc_scale = 0;
+		desc->dsc_flags = 0;
+		desc->dsc_ttype = ttype_dynamic;
+		desc->dsc_length = USERNAME_LENGTH + sizeof(USHORT);
+		return;
+
+	case nod_current_time:
+		desc->dsc_dtype = dtype_sql_time;
+		desc->dsc_sub_type = 0;
+		desc->dsc_scale = 0;
+		desc->dsc_flags = 0;
+		desc->dsc_length = type_lengths[desc->dsc_dtype];
+		return;
+
+	case nod_current_date:
+		desc->dsc_dtype = dtype_sql_date;
+		desc->dsc_sub_type = 0;
+		desc->dsc_scale = 0;
+		desc->dsc_flags = 0;
+		desc->dsc_length = type_lengths[desc->dsc_dtype];
+		return;
+
+	case nod_current_timestamp:
+		desc->dsc_dtype = dtype_timestamp;
+		desc->dsc_sub_type = 0;
+		desc->dsc_scale = 0;
+		desc->dsc_flags = 0;
+		desc->dsc_length = type_lengths[desc->dsc_dtype];
+		return;
+
+	case nod_extract:
+		MAKE_desc(&desc1, node->nod_arg[e_extract_value]);
+		desc->dsc_sub_type = 0;
+		desc->dsc_scale = 0;
+		desc->dsc_flags = (desc1.dsc_flags & DSC_nullable);
+		if (*(ULONG *) node->nod_arg[e_extract_part]->nod_desc.dsc_address
+			== blr_extract_second) {
+			/* QUADDATE - maybe this should be DECIMAL(6,4) */
+			desc->dsc_dtype = dtype_long;
+			desc->dsc_scale = ISC_TIME_SECONDS_PRECISION_SCALE;
+			desc->dsc_length = sizeof(ULONG);
+			return;
+		}
+		desc->dsc_dtype = dtype_short;
+		desc->dsc_length = sizeof(SSHORT);
+		return;
+
+	case nod_parameter:
+		/* We don't actually know the datatype of a parameter -
+		   we have to guess it based on the context that the 
+		   parameter appears in. (This is done is pass1.c::set_parameter_type())
+		   However, a parameter can appear as part of an expression.
+		   As MAKE_desc is used for both determination of parameter
+		   types and for expression type checking, we just continue. */
+		return;
+
+	case nod_null:
+		/* This occurs when SQL statement specifies a literal NULL, eg:
+		 *  SELECT NULL FROM TABLE1;
+		 * As we don't have a <dtype_null, SQL_NULL> datatype pairing,
+		 * we don't know how to map this NULL to a host-language
+		 * datatype.  Therefore we now describe it as a 
+		 * CHAR(1) CHARACTER SET NONE type.
+		 * No value will ever be sent back, as the value of the select
+		 * will be NULL - this is only for purposes of DESCRIBING
+		 * the statement.  Note that this mapping could be done in dsql.c
+		 * as part of the DESCRIBE statement - but I suspect other areas
+		 * of the code would break if this is declared dtype_null.
+		 */
+		desc->dsc_dtype = dtype_text;
+		desc->dsc_length = 1;
+		desc->dsc_scale = 0;
+		desc->dsc_ttype = 0;
+		desc->dsc_flags = DSC_nullable;
+		return;
+
+	case nod_via:
+		MAKE_desc(desc, node->nod_arg[e_via_value_1]);
+	/**
+	    Set the descriptor flag as nullable. The
+	    select expression may or may not return 
+	    this row based on the WHERE clause. Setting this
+	    flag warns the client to expect null values.
+	    (bug 10379)
+	**/
+		desc->dsc_flags |= DSC_nullable;
+		return;
+
+	default:
+		ASSERT_FAIL;			/* unexpected nod type */
+
+	case nod_dom_value:		/* computed value not used */
+		/* By the time we get here, any nod_dom_value node should have had
+		   * its descriptor set to the type of the domain being created, or
+		   * to the type of the existing domain to which a CHECK constraint
+		   * is being added.
+		 */
+		assert(node->nod_desc.dsc_dtype != dtype_null);
+		if (desc != &node->nod_desc)
+			*desc = node->nod_desc;
+		return;
+	}
+}
+
+
+void MAKE_desc_from_field( DSC * desc, FLD field)
+{
+/**************************************
+ *
+ *	M A K E _ d e s c _ f r o m _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute a DSC from a field's description information.
+ *
+ **************************************/
+
+	DEV_BLKCHK(field, type_fld);
+
+	desc->dsc_dtype = static_cast < UCHAR > (field->fld_dtype);
+	desc->dsc_scale = static_cast < SCHAR > (field->fld_scale);
+	desc->dsc_sub_type = field->fld_sub_type;
+	desc->dsc_length = field->fld_length;
+	desc->dsc_flags = (field->fld_flags & FLD_nullable) ? DSC_nullable : 0;
+	if (desc->dsc_dtype <= dtype_any_text) {
+		INTL_ASSIGN_DSC(desc, field->fld_character_set_id,
+						field->fld_collation_id);
+	}
+	else if (desc->dsc_dtype == dtype_blob)
+		desc->dsc_scale = static_cast < SCHAR > (field->fld_character_set_id);
+}
+
+
+NOD MAKE_field(CTX context, FLD field, NOD indices)
+{
+/**************************************
+ *
+ *	M A K E _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make up a field node.
+ *
+ **************************************/
+	NOD node;
+
+	DEV_BLKCHK(context, type_ctx);
+	DEV_BLKCHK(field, type_fld);
+	DEV_BLKCHK(indices, type_nod);
+
+	node = MAKE_node(nod_field, e_fld_count);
+	node->nod_arg[e_fld_context] = (NOD) context;
+	node->nod_arg[e_fld_field] = (NOD) field;
+	if (field->fld_dimensions) {
+		if (indices) {
+			node->nod_arg[e_fld_indices] = indices;
+			MAKE_desc_from_field(&node->nod_desc, field);
+			node->nod_desc.dsc_dtype =
+				static_cast < UCHAR > (field->fld_element_dtype);
+			node->nod_desc.dsc_length = field->fld_element_length;
+			/*
+			   node->nod_desc.dsc_scale = field->fld_scale;
+			   node->nod_desc.dsc_sub_type = field->fld_sub_type;
+			 */
+		}
+		else {
+			node->nod_desc.dsc_dtype = dtype_array;
+			node->nod_desc.dsc_length = sizeof(GDS__QUAD);
+			node->nod_desc.dsc_scale =
+				static_cast < SCHAR > (field->fld_scale);
+			node->nod_desc.dsc_sub_type = field->fld_sub_type;
+		}
+	}
+	else {
+		assert(!indices);
+		MAKE_desc_from_field(&node->nod_desc, field);
+	}
+
+	if ((field->fld_flags & FLD_nullable) ||
+		(context->ctx_flags & CTX_outer_join))
+			node->nod_desc.dsc_flags = DSC_nullable;
+
+	return node;
+}
+
+
+NOD MAKE_list(LLS stack)
+{
+/**************************************
+ *
+ *	M A K E _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a list node from a linked list stack of things.
+ *
+ **************************************/
+	LLS temp;
+	USHORT count;
+	NOD node, *ptr;
+
+	DEV_BLKCHK(stack, type_lls);
+
+	for (temp = stack, count = 0; temp; temp = temp->lls_next)
+		++count;
+
+	node = MAKE_node(nod_list, count);
+	ptr = node->nod_arg + count;
+
+	while (stack)
+		*--ptr = (NOD) LLS_POP(&stack);
+
+	return node;
+}
+
+
+NOD MAKE_node(NOD_TYPE type, int count)
+{
+/**************************************
+ *
+ *	M A K E _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a node of given type.
+ *
+ **************************************/
+	NOD node;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	node = (NOD) ALLOCDV(type_nod, count);
+	node->nod_type = type;
+	node->nod_count = count;
+
+	return node;
+}
+
+
+PAR MAKE_parameter(MSG message, USHORT sqlda_flag, USHORT null_flag)
+{
+/**************************************
+ *
+ *	M A K E _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a parameter block for a message.  If requested,
+ *	set up for a null flag as well.
+ *
+ **************************************/
+	PAR parameter, null;
+	TSQL tdsql;
+
+	DEV_BLKCHK(message, type_msg);
+
+	tdsql = GET_THREAD_DATA;
+
+	parameter = (PAR) ALLOCD(type_par);
+	parameter->par_message = message;
+	if (parameter->par_next = message->msg_parameters)
+		parameter->par_next->par_ordered = parameter;
+	else
+		message->msg_par_ordered = parameter;
+	message->msg_parameters = parameter;
+	parameter->par_parameter = message->msg_parameter++;
+	parameter->par_rel_name = NULL;
+	parameter->par_owner_name = NULL;
+
+/* If the parameter is used declared, set SQLDA index */
+
+	if (sqlda_flag)
+		parameter->par_index = ++message->msg_index;
+
+/* If a null handing has been requested, set up a null flag */
+
+	if (null_flag) {
+		parameter->par_null = null = MAKE_parameter(message, FALSE, FALSE);
+		null->par_desc.dsc_dtype = dtype_short;
+		null->par_desc.dsc_scale = 0;
+		null->par_desc.dsc_length = sizeof(SSHORT);
+	}
+
+	return parameter;
+}
+
+STR MAKE_string(CONST UCHAR * str, int length)
+{
+/**************************************
+ *
+ *	M A K E _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generalized routine for making a string block.
+ *
+ **************************************/
+
+	return MAKE_tagged_string(str, length, NULL);
+}
+
+
+SYM MAKE_symbol(DBB database,
+				CONST TEXT * name, USHORT length, SYM_TYPE type, REQ object)
+{
+/**************************************
+ *
+ *	M A K E _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a symbol for an object and insert symbol into hash table.
+ *
+ **************************************/
+	SYM symbol;
+	TEXT *p;
+	TSQL tdsql;
+
+	DEV_BLKCHK(database, type_dbb);
+	DEV_BLKCHK(object, type_req);
+	assert(name);
+	assert(length > 0);
+
+	tdsql = GET_THREAD_DATA;
+
+	symbol = (SYM) ALLOCDV(type_sym, length);
+	symbol->sym_type = type;
+	symbol->sym_object = (BLK) object;
+	symbol->sym_dbb = database;
+	symbol->sym_length = length;
+	symbol->sym_string = p = symbol->sym_name;
+
+	if (length)
+		MOVE_FAST(name, p, length);
+
+	HSHD_insert(symbol);
+
+	return symbol;
+}
+
+
+STR MAKE_tagged_string(CONST UCHAR * str, int length, CONST TEXT * charset)
+{
+/**************************************
+ *
+ *	M A K E _ t a g g e d _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generalized routine for making a string block.
+ *	Which is tagged with a character set descriptor.
+ *
+ **************************************/
+	UCHAR *p;
+	STR string;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	string = (STR) ALLOCDV(type_str, length);
+	string->str_charset = const_cast < char *>(charset);
+	string->str_length = length;
+	for (p = string->str_data; length; --length)
+		*p++ = *str++;
+
+	return string;
+}
+
+
+NOD MAKE_variable(FLD field,
+				  CONST TEXT * name,
+				  USHORT type,
+				  USHORT msg_number, USHORT item_number, USHORT local_number)
+{
+/**************************************
+ *
+ *	M A K E _ v a r i a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make up a field node.
+ *
+ **************************************/
+	NOD node;
+	VAR var;
+	TSQL tdsql;
+
+	DEV_BLKCHK(field, type_fld);
+
+	tdsql = GET_THREAD_DATA;
+
+	var = (VAR) ALLOCDV(type_var, strlen(name));
+	node = MAKE_node(nod_variable, e_var_count);
+	node->nod_arg[e_var_variable] = (NOD) var;
+	var->var_msg_number = msg_number;
+	var->var_msg_item = item_number;
+	var->var_variable_number = local_number;
+	var->var_field = field;
+	strcpy(var->var_name, name);
+	var->var_flags = type;
+	MAKE_desc_from_field(&node->nod_desc, field);
+
+	return node;
+}
+
+
+}	// extern "C"
diff --git a/src/dsql/make_proto.h b/src/dsql/make_proto.h
new file mode 100644
index 0000000000..9722c41db0
--- /dev/null
+++ b/src/dsql/make_proto.h
@@ -0,0 +1,53 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		make_proto.h
+ *	DESCRIPTION:	Prototype Header file for make.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_MAKE_PROTO_H_
+#define _DSQL_MAKE_PROTO_H_
+
+#include "../dsql/sym.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+struct nod *MAKE_constant(struct str *, int);
+struct nod *MAKE_str_constant(struct str *, SSHORT);
+struct str *MAKE_cstring(CONST SCHAR *);
+void MAKE_desc(struct dsc *, struct nod *);
+void MAKE_desc_from_field(struct dsc *, struct fld *);
+struct nod *MAKE_field(struct ctx *, struct fld *, struct nod *);
+struct nod *MAKE_list(struct lls *);
+struct nod *MAKE_node(ENUM nod_t, int);
+struct par *MAKE_parameter(struct msg *, USHORT, USHORT);
+struct str *MAKE_string(CONST UCHAR *, int);
+struct sym *MAKE_symbol(struct dbb *, CONST TEXT *, USHORT,
+						   ENUM sym_type, struct req *);
+struct str *MAKE_tagged_string(CONST UCHAR *, int, CONST TEXT *);
+struct nod *MAKE_variable(struct fld *, CONST TEXT *, USHORT, USHORT,
+								 USHORT, USHORT);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _DSQL_MAKE_PROTO_H_ */
diff --git a/src/dsql/makefile.mak b/src/dsql/makefile.mak
new file mode 100644
index 0000000000..f01b250ad9
--- /dev/null
+++ b/src/dsql/makefile.mak
@@ -0,0 +1,148 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+#--------------------------- PC DSQL MAKEFILE --------------------------- 
+ROOT=..
+.path.c=$(ROOT)\dsql
+
+# -wpro	: warns undefined function calls
+# -N-	: turn stack checking off
+LCFLAGS=-DREQUESTER -N-
+
+# Path to devkit and clisdk
+!if !$d(TPATH)
+TPATH=..
+!endif
+
+!include $(ROOT)\std.mk
+
+#--------------------------- SOURCE COMPONENTS ----------------------------- 
+
+WINSRCS = dllshell.c
+
+# DSQL source files
+S1 = alld.c ddl.c dsql.c dsqlwep.c errd.c gen.c hsh.c
+S2 = make.c metd.c movd.c parse.c pass1.c 
+SRCS = $(S1) $(S2)
+
+# sources from the jrd component used to build dsql.dll
+JRDSRCS = cvt.c 
+
+# DSQL source files used by the jrd component for client side requests
+CLIENTSRCS = array.c blob.c preparse.c user_dsq.c utld.c
+
+
+# DSQL import definition files
+DSQLLIBS = $(ROOT)\jrd\$(.path.obj)\gds.lib $(ROOT)\jrd\$(.path.obj)\iutls.lib
+
+# Extra files which are used to build the product
+XFILES   = dsql.def makefile.mak
+
+
+#---------------------------- TARGET LIST --------------------------------
+# NOTE:  c0dx must be the first obj in the list!
+OBJS= $(TOOLPATH)\lib\c0d$(MODEL).obj $(SRCS:.c=.obj) \
+      $(JRDSRCS:.c=.obj) $(WINSRCS:.c=.obj)
+
+ALLBIN = dsql.dll
+ALLLIBS = dsql.lib
+
+all: makefile.tmp extern_libs $(ALLBIN) $(ALLLIBS)
+alllibs : makefile.tmp $(ALLLIBS)
+allbin :  makefile.tmp extern_libs $(ALLBIN)
+
+
+LIBS=mathw$(MODEL) import cw$(MODEL)
+
+#------------------------------ RULES -------------------------------------
+
+#----- Windows DSQL DLL -----
+dsql.dll: $(OBJS) $(DSQLLIBS) dsql.rsp dsql.def $(ROOT)\jrd\version.rc
+	$(TLINK) $(LFLAGS) @$*.rsp, @&&|
+	$<
+	$*.map
+	$(LIBS) $(DSQLLIBS)
+	$&.def
+|
+	$(RC)  -i $(TOOLPATH)\include $(ROOT)\jrd\version.rc $<
+
+
+#----------- Response file -----------
+
+dsql.rsp: $(OBJS)
+	copy &&|
+	$**
+| $<
+
+
+
+#----------- Import Library -----------
+
+# Because of the circular "architecture" here, we need to build 
+# required libraries within each of the makefiles.
+extern_libs:
+	cd $(ROOT)\jrd
+	make $(MAKEFLAGS) alllibs
+	cd $(ROOT)\dsql
+
+
+dsql.lib: dsql.def
+	implib -o $< $**
+
+
+# ---- Rules for source files which require special handling ----
+
+cvt.obj: $(ROOT)\jrd\cvt.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+dllshell.obj: $(ROOT)\jrd\dllshell.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+#---------------------------- UTILITIES ---------------------------------
+# Copy targets to a known installation directory
+install:  extern_libs $(ALLBIN) $(ALLLIBS)
+	for %i in ($(ALLBIN)) do copy $(.path.dll)\%i $(INSTALLBIN)
+	for %i in ($(ALLLIBS)) do copy $(.path.dll)\%i $(INSTALLLIB)
+
+# Refresh all the source & header files from the DEVSRC directory
+srcs::
+   copy $(DEVSRC)\dsql\*.h
+   for %i in ($(S1)) do copy $(DEVSRC)\dsql\%i
+   for %i in ($(S2)) do copy $(DEVSRC)\dsql\%i
+   for %i in ($(CLIENTSRCS)) do copy $(DEVSRC)\dsql\%i
+   for %i in ($(WINSRCS)) do copy $(DEVSRC)\dsql\%i
+   for %i in ($(XFILES)) do copy $(DEVSRC)\dsql\%i
+	copy $(DEVSRC)\wal\*.h $(ROOT)\wal
diff --git a/src/dsql/metd.e b/src/dsql/metd.e
new file mode 100644
index 0000000000..c06974a817
--- /dev/null
+++ b/src/dsql/metd.e
@@ -0,0 +1,1717 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		met.e
+ *	DESCRIPTION:	Meta-data interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../dsql/dsql.h"
+#include "../dsql/node.h"
+#include "../dsql/sym.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/align.h"
+#include "../jrd/intl.h"
+#include "../jrd/thd.h"
+#include "../dsql/alld_proto.h"
+#include "../dsql/ddl_proto.h"
+#include "../dsql/metd_proto.h"
+#include "../dsql/hsh_proto.h"
+#include "../dsql/make_proto.h"
+#include "../dsql/errd_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/constants.h"
+
+/* NOTE: The static definition of DB and gds__trans by gpre will not
+         be used by the meta data routines.  Each of those routines has
+         its own local definition of these variables. */
+
+/**************************************************************
+V4 Multi-threading changes.
+
+-- direct calls to gds__ () & isc_ () entrypoints
+
+	THREAD_EXIT;
+	    gds__ () or isc_ () call.
+	THREAD_ENTER;
+
+-- calls through embedded GDML.
+
+the following protocol will be used.  Care should be taken if
+nested FOR loops are added.
+
+    THREAD_EXIT;                // last statment before FOR loop 
+
+    FOR ...............
+
+	THREAD_ENTER;           // First statment in FOR loop 
+	.....some C code....
+	.....some C code....
+	THREAD_EXIT;            // last statment in FOR loop 
+
+    END_FOR;
+
+    THREAD_ENTER;               // First statment after FOR loop 
+***************************************************************/
+
+ASSERT_FILENAME DATABASE DB = STATIC "yachts.lnk";
+
+static CONST UCHAR blr_bpb[] = { isc_bpb_version1,
+	isc_bpb_source_type, 1, BLOB_blr,
+	isc_bpb_target_type, 1, BLOB_blr
+};
+
+static void check_array(REQ, SCHAR *, FLD);
+static void convert_dtype(FLD, SSHORT);
+static void free_procedure(PRC);
+static void free_relation(DSQL_REL);
+static TEXT *metd_exact_name(TEXT *);
+
+#ifdef  SUPERSERVER
+static REC_MUTX_T rec_mutex;	/* Recursive metadata mutex */
+static USHORT rec_mutex_inited = 0;
+
+#define METD_REC_LOCK   if ( !rec_mutex_inited)\
+                        {\
+                            rec_mutex_inited = 1;\
+                            THD_rec_mutex_init (&rec_mutex);\
+                        }\
+                        THREAD_EXIT;\
+                        THD_rec_mutex_lock (&rec_mutex);\
+                        THREAD_ENTER;
+#define METD_REC_UNLOCK THD_rec_mutex_unlock (&rec_mutex)
+#else
+#define METD_REC_LOCK
+#define METD_REC_UNLOCK
+#endif
+
+
+void METD_drop_procedure( REQ request, STR name)
+{
+/**************************************
+ *
+ *	M E T D _ d r o p _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop a procedure from our metadata, and
+ *	the next caller who wants it will 
+ *	look up the new version. 
+ *	
+ *	Dropping will be achieved by marking the procedure
+ *	as dropped.  Anyone with current access can continue
+ *	accessing it.
+ *
+ **************************************/
+	PRC procedure;
+	SYM symbol;
+
+	METD_REC_LOCK;
+
+/* If the symbol wasn't defined, we've got nothing to do */
+
+	symbol = HSHD_lookup(request->req_dbb, name->str_data,
+						 name->str_length, SYM_procedure, 0);
+	for (; symbol; symbol = symbol->sym_homonym)
+		if ((symbol->sym_type == SYM_procedure) &&
+			((procedure = (PRC) symbol->sym_object) &&
+			 (!(procedure->prc_flags & PRC_dropped))))
+			break;
+
+	if (symbol) {
+		procedure = (PRC) symbol->sym_object;
+		procedure->prc_flags |= PRC_dropped;
+	}
+
+/* mark other potential candidates as maybe dropped */
+
+	HSHD_set_flag(request->req_dbb, name->str_data, name->str_length,
+				  SYM_procedure, PRC_dropped);
+
+	METD_REC_UNLOCK;
+}
+
+
+void METD_drop_relation( REQ request, STR name)
+{
+/**************************************
+ *
+ *	M E T D _ d r o p _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop a relation from our metadata, and
+ *	rely on the next guy who wants it to
+ *	look up the new version. 
+ *
+ *      Dropping will be achieved by marking the relation
+ *      as dropped.  Anyone with current access can continue
+ *      accessing it.
+ *
+ **************************************/
+	DSQL_REL relation;
+	SYM symbol;
+
+
+	METD_REC_LOCK;
+
+/* If the symbol wasn't defined, we've got nothing to do */
+
+	symbol = HSHD_lookup(request->req_dbb, name->str_data,
+						 name->str_length, SYM_relation, 0);
+	for (; symbol; symbol = symbol->sym_homonym)
+		if ((symbol->sym_type == SYM_relation) &&
+			((relation = (DSQL_REL) symbol->sym_object) &&
+			 (!(relation->rel_flags & REL_dropped))))
+			break;
+
+	if (symbol) {
+		relation = (DSQL_REL) symbol->sym_object;
+		relation->rel_flags |= REL_dropped;
+	}
+
+/* mark other potential candidates as maybe dropped */
+
+	HSHD_set_flag(request->req_dbb, name->str_data, name->str_length,
+				  SYM_relation, REL_dropped);
+
+	METD_REC_UNLOCK;
+}
+
+
+INTLSYM METD_get_collation(REQ request, STR name)
+{
+/**************************************
+ *
+ *	M E T D _ g e t _ c o l l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up an international text type object.
+ *	If it doesn't exist, return NULL.
+ *
+ **************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+	INTLSYM iname;
+	SYM symbol;
+
+/* Start by seeing if symbol is already defined */
+
+	symbol = HSHD_lookup(request->req_dbb, name->str_data,
+						 name->str_length, SYM_intlsym, 0);
+	for (; symbol; symbol = symbol->sym_homonym)
+		if ((symbol->sym_type == SYM_intlsym) &&
+			(((INTLSYM) symbol->sym_object)->intlsym_type ==
+			 INTLSYM_collation)) return (INTLSYM) symbol->sym_object;
+
+
+/* Now see if it is in the database */
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+	iname = NULL;
+
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_collation])
+	X IN RDB$COLLATIONS
+		CROSS Y IN RDB$CHARACTER_SETS OVER RDB$CHARACTER_SET_ID
+		WITH X.RDB$COLLATION_NAME EQ name->str_data;
+
+	THREAD_ENTER;
+
+	iname = (INTLSYM) ALLOCV(type_intlsym, dbb->dbb_pool, name->str_length);
+	strcpy(iname->intlsym_name, (TEXT *) name->str_data);
+	iname->intlsym_type = INTLSYM_collation;
+	iname->intlsym_flags = 0;
+	iname->intlsym_charset_id = X.RDB$CHARACTER_SET_ID;
+	iname->intlsym_collate_id = X.RDB$COLLATION_ID;
+	iname->intlsym_ttype =
+		INTL_CS_COLL_TO_TTYPE(iname->intlsym_charset_id,
+							  iname->intlsym_collate_id);
+	iname->intlsym_bytes_per_char =
+		(Y.RDB$BYTES_PER_CHARACTER.NULL) ? 1 : (Y.RDB$BYTES_PER_CHARACTER);
+	THREAD_EXIT;
+
+	END_FOR ON_ERROR
+		/* Assume V3 database */
+		END_ERROR;
+
+	THREAD_ENTER;
+
+	if (!iname)
+		return NULL;
+
+/* Store in the symbol table */
+
+	symbol = iname->intlsym_symbol = (SYM) ALLOCV(type_sym, dbb->dbb_pool, 0);
+	symbol->sym_object = (BLK) iname;
+	symbol->sym_string = iname->intlsym_name;
+	symbol->sym_length = name->str_length;
+	symbol->sym_type = SYM_intlsym;
+	symbol->sym_dbb = dbb;
+	HSHD_insert(symbol);
+
+	return iname;
+}
+
+
+void METD_get_col_default(REQ request,
+						  TEXT * for_rel_name,
+						  TEXT * for_col_name,
+						  BOOLEAN * has_default,
+TEXT * buffer, USHORT buff_length)
+{
+/*************************************************************
+ *
+ *  M E T D _ g e t _ c o l _ d e f a u l t
+ *
+ **************************************************************
+ *
+ * Function:
+ *    Gets the default value for a column of an existing table.
+ *    Will check the default for the column of the table, if that is 
+ *    not present, will check for the default of the relevant domain
+ * 
+ *    The default blr is returned in buffer. The blr is of the form
+ *    blr_version4 blr_literal ..... blr_eoc
+ * 
+ *    Reads the system tables RDB$FIELDS and RDB$RELATION_FIELDS.
+ *
+ **************************************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+	long status_vect[20];
+
+	ISC_QUAD *blob_id;
+	TEXT *ptr_in_buffer;
+
+	STATUS stat;
+	USHORT length;
+	isc_blob_handle blob_handle = NULL;
+
+	*has_default = FALSE;
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+
+/* V4.x multi threading requirements */
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_col_default])
+		RFL IN RDB$RELATION_FIELDS CROSS
+		FLD IN RDB$FIELDS WITH
+		RFL.RDB$RELATION_NAME EQ for_rel_name AND
+		RFL.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME AND
+		RFL.RDB$FIELD_NAME EQ for_col_name
+		
+	THREAD_ENTER;
+
+	if (!RFL.RDB$DEFAULT_VALUE.NULL) {
+		blob_id = &RFL.RDB$DEFAULT_VALUE;
+		*has_default = TRUE;
+	}
+	else if (!FLD.RDB$DEFAULT_VALUE.NULL) {
+		blob_id = &FLD.RDB$DEFAULT_VALUE;
+		*has_default = TRUE;
+	}
+	else
+		*has_default = FALSE;
+
+	if (*has_default) {
+		/* open the blob */
+		THREAD_EXIT;
+		stat = isc_open_blob2(status_vect, &DB, &gds__trans,
+							  &blob_handle, blob_id, sizeof(blr_bpb),
+							  (UCHAR*)blr_bpb);
+		THREAD_ENTER;
+		if (stat)
+			ERRD_punt();
+
+		/* fetch segments. Assuming here that the buffer is big enough. */
+		ptr_in_buffer = buffer;
+		while (TRUE) {
+			THREAD_EXIT;
+			stat = isc_get_segment(status_vect, &blob_handle,
+								   &length, buff_length, ptr_in_buffer);
+			THREAD_ENTER;
+			ptr_in_buffer = ptr_in_buffer + length;
+			buff_length = buff_length - length;
+
+			if (!stat)
+				continue;
+			else if (stat == gds__segstr_eof) {
+				/* null terminate the buffer */
+				*ptr_in_buffer = 0;
+				break;
+			}
+			else
+				ERRD_punt();
+
+		}
+		THREAD_EXIT;
+		isc_close_blob(status_vect, &blob_handle);
+		THREAD_ENTER;
+
+		/* the default string must be of the form:
+		   blr_version4 blr_literal ..... blr_eoc  */
+		assert((buffer[0] == blr_version4) || (buffer[0] == blr_version5));
+		assert(buffer[1] == blr_literal);
+
+	}
+	else {
+		if (request->req_dbb->dbb_db_SQL_dialect > SQL_DIALECT_V5)
+			buffer[0] = blr_version5;
+		else
+			buffer[0] = blr_version4;
+		buffer[1] = blr_eoc;
+	}
+
+	THREAD_EXIT;
+
+	END_FOR ON_ERROR ERRD_punt();
+	END_ERROR THREAD_ENTER;
+
+}
+
+
+INTLSYM METD_get_charset(REQ request, USHORT length, UCHAR * name)
+{
+/**************************************
+ *
+ *	M E T D _ g e t _ c h a r s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up an international text type object.
+ *	If it doesn't exist, return NULL.
+ *
+ **************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+	INTLSYM iname;
+	SYM symbol;
+
+/* Start by seeing if symbol is already defined */
+
+	symbol = HSHD_lookup(request->req_dbb, name, length, SYM_intlsym, 0);
+	for (; symbol; symbol = symbol->sym_homonym)
+		if ((symbol->sym_type == SYM_intlsym) &&
+			(((INTLSYM) (symbol->sym_object))->intlsym_type ==
+			 INTLSYM_charset)) return (INTLSYM) symbol->sym_object;
+
+
+/* Now see if it is in the database */
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+	iname = NULL;
+
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_charset])
+	X IN RDB$COLLATIONS
+		CROSS Y IN RDB$CHARACTER_SETS OVER RDB$CHARACTER_SET_ID
+		CROSS Z IN RDB$TYPES
+		WITH Z.RDB$TYPE EQ Y.RDB$CHARACTER_SET_ID
+		AND Z.RDB$TYPE_NAME EQ name
+		AND Z.RDB$FIELD_NAME EQ "RDB$CHARACTER_SET_NAME"
+		AND Y.RDB$DEFAULT_COLLATE_NAME EQ X.RDB$COLLATION_NAME;
+
+	    THREAD_ENTER;
+
+        iname = (INTLSYM) ALLOCV(type_intlsym, dbb->dbb_pool, length);
+        strcpy(iname->intlsym_name, name);
+        iname->intlsym_type = INTLSYM_charset;
+        iname->intlsym_flags = 0;
+        iname->intlsym_charset_id = X.RDB$CHARACTER_SET_ID;
+        iname->intlsym_collate_id = X.RDB$COLLATION_ID;
+        iname->intlsym_ttype =
+            INTL_CS_COLL_TO_TTYPE(iname->intlsym_charset_id,
+                                  iname->intlsym_collate_id);
+        iname->intlsym_bytes_per_char =
+            (Y.RDB$BYTES_PER_CHARACTER.NULL) ? 1 : (Y.RDB$BYTES_PER_CHARACTER);
+
+        THREAD_EXIT;
+
+	END_FOR 
+    ON_ERROR
+		/* Assume V3 database */
+   	END_ERROR;
+
+	THREAD_ENTER;
+
+	if (!iname)
+		return NULL;
+
+/* Store in the symbol table */
+
+	symbol = iname->intlsym_symbol = (SYM) ALLOCV(type_sym, dbb->dbb_pool, 0);
+	symbol->sym_object = (BLK) iname;
+	symbol->sym_string = iname->intlsym_name;
+	symbol->sym_length = length;
+	symbol->sym_type = SYM_intlsym;
+	symbol->sym_dbb = dbb;
+	HSHD_insert(symbol);
+
+	return iname;
+}
+
+
+STR METD_get_default_charset(REQ request)
+{
+/**************************************
+ *
+ *	M E T D _ g e t _ d e f a u l t _ c h a r s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the default character set for a database
+ *
+ **************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+	isc_req_handle handle;
+	UCHAR *p;
+	UCHAR *str;
+	USHORT length;
+
+	dbb = request->req_dbb;
+	if (dbb->dbb_flags & DBB_no_charset)
+		return NULL;
+
+	if (dbb->dbb_dfl_charset)
+		return request->req_dbb->dbb_dfl_charset;
+
+/* Now see if it is in the database */
+
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+
+	handle = NULL_PTR;
+
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE handle)
+		FIRST 1 DBB IN RDB$DATABASE
+		WITH DBB.RDB$CHARACTER_SET_NAME NOT MISSING;
+
+	    THREAD_ENTER;
+
+        /* Terminate ASCIIZ string on first blank */
+        metd_exact_name(DBB.RDB$CHARACTER_SET_NAME);
+        length = strlen(DBB.RDB$CHARACTER_SET_NAME);
+        dbb->dbb_dfl_charset = (STR) ALLOCV(type_str, dbb->dbb_pool, length);
+        dbb->dbb_dfl_charset->str_length = length;
+        dbb->dbb_dfl_charset->str_charset = NULL;
+        str = DBB.RDB$CHARACTER_SET_NAME;
+        for (p = dbb->dbb_dfl_charset->str_data; length; --length)
+            *p++ = *str++;
+
+        THREAD_EXIT;
+	END_FOR 
+    ON_ERROR
+		/* Assume V3 database */
+   	END_ERROR;
+
+/*************
+THREAD_ENTER;
+
+Un comment these if any code is added after the END_ERROR and 
+gds__release request ()
+
+THREAD_EXIT;
+*************/
+
+	isc_release_request(gds__status, GDS_REF(handle));
+	THREAD_ENTER;
+
+	if (dbb->dbb_dfl_charset == NULL)
+		dbb->dbb_flags |= DBB_no_charset;
+
+	return dbb->dbb_dfl_charset;
+}
+
+
+USHORT METD_get_domain(REQ request, FLD field, UCHAR * name)
+{
+/**************************************
+ *
+ *	M E T D _ g e t _ d o m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch domain information for field defined as 'name'
+ *
+ **************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+	USHORT found = FALSE;
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_domain])
+        FLX IN RDB$FIELDS WITH FLX.RDB$FIELD_NAME EQ name 
+
+        THREAD_ENTER;
+
+	    found = TRUE;
+        field->fld_length = FLX.RDB$FIELD_LENGTH;
+        field->fld_scale = FLX.RDB$FIELD_SCALE;
+        field->fld_sub_type = FLX.RDB$FIELD_SUB_TYPE;
+
+        field->fld_character_set_id = 0;
+        if (!FLX.RDB$CHARACTER_SET_ID.NULL)
+            field->fld_character_set_id = FLX.RDB$CHARACTER_SET_ID;
+        field->fld_collation_id = 0;
+        if (!FLX.RDB$COLLATION_ID.NULL)
+            field->fld_collation_id = FLX.RDB$COLLATION_ID;
+        field->fld_character_length = 0;
+        if (!FLX.RDB$CHARACTER_LENGTH.NULL)
+            field->fld_character_length = FLX.RDB$CHARACTER_LENGTH;
+        
+        if (!FLX.RDB$COMPUTED_BLR.NULL)
+            field->fld_flags |= FLD_computed;
+        
+        convert_dtype(field, FLX.RDB$FIELD_TYPE);
+    
+        if (FLX.RDB$FIELD_TYPE == blr_blob) {
+            field->fld_seg_length = FLX.RDB$SEGMENT_LENGTH;
+        }
+
+        THREAD_EXIT;
+
+	END_FOR 
+    ON_ERROR
+    END_ERROR;
+
+	THREAD_ENTER;
+    
+	return found;
+}
+
+
+void METD_get_domain_default(REQ request,
+							 TEXT * domain_name,
+							 BOOLEAN * has_default,
+							 TEXT * buffer, USHORT buff_length)
+{
+/*************************************************************
+ *
+ *  M E T D _ g e t _ d o m a i n _ d e f a u l t
+ *
+ **************************************************************
+ *
+ * Function:
+ *    Gets the default value for a domain of an existing table.
+ *
+ **************************************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+	ISC_STATUS status_vect[20];
+
+	ISC_QUAD *blob_id;
+	TEXT *ptr_in_buffer;
+
+	STATUS stat;
+	USHORT length;
+	isc_blob_handle blob_handle = NULL;
+
+	*has_default = FALSE;
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+
+/* V4.x multi threading requirements */
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_domain_2])
+        FLD IN RDB$FIELDS WITH FLD.RDB$FIELD_NAME EQ domain_name THREAD_ENTER;
+
+	    if (!FLD.RDB$DEFAULT_VALUE.NULL) {
+            blob_id = &FLD.RDB$DEFAULT_VALUE;
+            *has_default = TRUE;
+        }
+        else
+            *has_default = FALSE;
+
+        if (*has_default) {
+            /* open the blob */
+            THREAD_EXIT;
+            stat = isc_open_blob2(status_vect, &DB, &gds__trans,
+                                  &blob_handle, blob_id, sizeof(blr_bpb),
+                                  (UCHAR*)blr_bpb);
+            THREAD_ENTER;
+            if (stat)
+                ERRD_punt();
+
+            /* fetch segments. Assume buffer is big enough.  */
+            ptr_in_buffer = buffer;
+            while (TRUE) {
+                THREAD_EXIT;
+                stat = isc_get_segment(status_vect,
+                                       &blob_handle,
+                                       &length, buff_length, ptr_in_buffer);
+                THREAD_ENTER;
+                ptr_in_buffer = ptr_in_buffer + length;
+                buff_length = buff_length - length;
+                
+                if (!stat)
+                    continue;
+                else if (stat == gds__segstr_eof) {
+                    /* null terminate the buffer */
+                    *ptr_in_buffer = 0;
+                    break;
+                }
+                else
+                    ERRD_punt();
+
+            }
+            THREAD_EXIT;
+            isc_close_blob(status_vect, &blob_handle);
+            THREAD_ENTER;
+
+            /* the default string must be of the form:
+               blr_version4 blr_literal ..... blr_eoc  */
+            assert((buffer[0] == blr_version4) || (buffer[0] == blr_version5));
+            assert(buffer[1] == blr_literal);
+
+        }
+        else {
+            if (request->req_dbb->dbb_db_SQL_dialect > SQL_DIALECT_V5)
+                buffer[0] = blr_version5;
+            else
+                buffer[0] = blr_version4;
+            buffer[1] = blr_eoc;
+        }
+        
+        THREAD_EXIT;
+        
+    END_FOR 
+    ON_ERROR 
+        ERRD_punt();
+    END_ERROR 
+
+    THREAD_ENTER;
+
+}
+
+
+UDF METD_get_function(REQ request, STR name)
+{
+/**************************************
+ *
+ *	M E T D _ g e t _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up a user defined function.  If it doesn't exist,
+ *	return NULL.
+ *
+ **************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+	UDF udf;
+	USHORT return_arg;
+	SYM symbol;
+
+/* Start by seeing if symbol is already defined */
+
+	symbol = HSHD_lookup(request->req_dbb, name->str_data,
+						 name->str_length, SYM_udf, 0);
+	if (symbol)
+		return (UDF) symbol->sym_object;
+
+/* Now see if it is in the database */
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+	udf = NULL;
+
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_function])
+	    X IN RDB$FUNCTIONS WITH
+		X.RDB$FUNCTION_NAME EQ name->str_data 
+
+        THREAD_ENTER;
+
+	    udf = (UDF) ALLOCV(type_udf, dbb->dbb_pool, name->str_length);
+        udf->udf_next = dbb->dbb_functions;
+        dbb->dbb_functions = udf;
+        strcpy(udf->udf_name, (TEXT *) name->str_data);
+        return_arg = X.RDB$RETURN_ARGUMENT;
+
+        THREAD_EXIT;
+
+	END_FOR 
+    ON_ERROR 
+    END_ERROR;
+
+	THREAD_ENTER;
+
+	if (!udf)
+		return NULL;
+    
+/* Note: The following two requests differ in the fields which are
+ *	 new since ODS7 (DBB_v3 flag).  One of the two requests
+ *	 here will be cached in dbb_requests [ird_func_return],
+ *	 the one that is appropriate for the database we are
+ *	 working against.
+ */
+	THREAD_EXIT;
+
+	if (dbb->dbb_flags & DBB_v3) {
+		FOR(REQUEST_HANDLE dbb->dbb_requests[irq_func_return])
+		    X IN RDB$FUNCTION_ARGUMENTS WITH
+			X.RDB$FUNCTION_NAME EQ name->str_data AND
+			X.RDB$ARGUMENT_POSITION EQ return_arg 
+
+            THREAD_ENTER;
+
+		    udf->udf_dtype = (X.RDB$FIELD_TYPE != blr_blob) ?
+                gds_cvt_blr_dtype[X.RDB$FIELD_TYPE] : dtype_blob;
+            udf->udf_scale = X.RDB$FIELD_SCALE;
+            udf->udf_sub_type = X.RDB$FIELD_SUB_TYPE;
+            udf->udf_length = X.RDB$FIELD_LENGTH;
+
+            THREAD_EXIT;
+            
+		END_FOR 
+        ON_ERROR
+        END_ERROR;
+	}
+	else {						/* V4 or greater dbb */
+
+		FOR(REQUEST_HANDLE dbb->dbb_requests[irq_func_return])
+		    X IN RDB$FUNCTION_ARGUMENTS WITH
+			X.RDB$FUNCTION_NAME EQ name->str_data AND
+			X.RDB$ARGUMENT_POSITION EQ return_arg 
+
+            THREAD_ENTER;
+
+		    udf->udf_dtype = (X.RDB$FIELD_TYPE != blr_blob) ?
+                gds_cvt_blr_dtype[X.RDB$FIELD_TYPE] : dtype_blob;
+            udf->udf_scale = X.RDB$FIELD_SCALE;
+            udf->udf_sub_type = X.RDB$FIELD_SUB_TYPE;
+            udf->udf_length = X.RDB$FIELD_LENGTH;
+            
+            if (!X.RDB$CHARACTER_SET_ID.NULL)
+                udf->udf_character_set_id = X.RDB$CHARACTER_SET_ID;
+
+            THREAD_EXIT;
+
+        END_FOR 
+        ON_ERROR 
+        END_ERROR;
+	}
+
+	THREAD_ENTER;
+    
+/* Adjust the return type & length of the UDF to account for 
+ * cstring & varying.  While a UDF can return CSTRING, we convert it
+ * to CHAR for manipulation as CSTRING is not a SQL type.
+ * (Q: why not use varying?)
+ */
+
+	if (udf->udf_dtype == dtype_cstring) {
+		udf->udf_dtype = dtype_text;
+	}
+	else if (udf->udf_dtype == dtype_varying)
+		udf->udf_length += sizeof(USHORT);
+
+/* Store in the symbol table */
+
+	symbol = udf->udf_symbol = (SYM) ALLOCV(type_sym, dbb->dbb_pool, 0);
+	symbol->sym_object = (BLK) udf;
+	symbol->sym_string = udf->udf_name;
+	symbol->sym_length = name->str_length;
+	symbol->sym_type = SYM_udf;
+	symbol->sym_dbb = dbb;
+	HSHD_insert(symbol);
+
+	return udf;
+}
+
+
+NOD METD_get_primary_key(REQ request, STR relation_name)
+{
+/**************************************
+ *
+ *	M E T D _ g e t _ p r i m a r y _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup the fields for the primary key
+ *	index on a relation, returning a list 
+ *	node of the fields.
+ *
+ **************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+	NOD list, field_node;
+	STR field_name;
+	USHORT count;
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+
+	list = NULL;
+	count = 0;
+
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_primary_key])
+	    X IN RDB$INDICES CROSS
+		Y IN RDB$INDEX_SEGMENTS
+		OVER RDB$INDEX_NAME
+		WITH X.RDB$RELATION_NAME EQ relation_name->str_data
+		AND X.RDB$INDEX_NAME STARTING "RDB$PRIMARY"
+		SORTED BY Y.RDB$FIELD_POSITION 
+
+        THREAD_ENTER;
+
+	    if (!list)
+            list = MAKE_node(nod_list, (int) X.RDB$SEGMENT_COUNT);
+        field_name = MAKE_cstring(Y.RDB$FIELD_NAME);
+        field_node = MAKE_node(nod_field_name, (int) e_fln_count);
+        field_node->nod_arg[e_fln_name] = (NOD) field_name;
+        list->nod_arg[count] = field_node;
+        count++;
+
+        THREAD_EXIT;
+
+	END_FOR 
+    ON_ERROR 
+    END_ERROR;
+
+	THREAD_ENTER;
+    
+	return list;
+}
+
+
+PRC METD_get_procedure(REQ request, STR name)
+{
+/**************************************
+ *
+ *	M E T D _ g e t _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up a procedure.  If it doesn't exist, return NULL.
+ *	If it does, fetch field information as well.
+ *	If it is marked dropped, try to read from system tables
+ *
+ **************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+	FLD parameter, *ptr;
+	PRC procedure, temp;
+	SYM symbol;
+	SSHORT type, count;
+
+
+	METD_REC_LOCK;
+
+/* Start by seeing if symbol is already defined */
+
+	symbol = HSHD_lookup(request->req_dbb, name->str_data,
+						 name->str_length, SYM_procedure, 0);
+	for (; symbol; symbol = symbol->sym_homonym)
+		if ((symbol->sym_type == SYM_procedure) &&
+			((procedure = (PRC) symbol->sym_object) &&
+			 (!(procedure->prc_flags & PRC_dropped)))) {
+			METD_REC_UNLOCK;
+			return (PRC) symbol->sym_object;
+		}
+
+/* see if the procedure is the one currently being defined in this request */
+
+	if (((temp = request->req_procedure) != NULL) &&
+		!strcmp(temp->prc_name, name->str_data)) {
+		METD_REC_UNLOCK;
+		return temp;
+	}
+
+/* now see if it is in the database */
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+	procedure = NULL;
+
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_procedure])
+	    X IN RDB$PROCEDURES WITH
+		X.RDB$PROCEDURE_NAME EQ name->str_data 
+
+        THREAD_ENTER;
+
+	    metd_exact_name(X.RDB$OWNER_NAME);
+
+        procedure = (PRC) ALLOCV(type_prc, dbb->dbb_pool,
+                                 name->str_length + strlen(X.RDB$OWNER_NAME));
+        procedure->prc_id = X.RDB$PROCEDURE_ID;
+        
+        procedure->prc_name = procedure->prc_data;
+        procedure->prc_owner = procedure->prc_data + name->str_length + 1;
+        strcpy(procedure->prc_name, (TEXT *) name->str_data);
+        strcpy(procedure->prc_owner, (TEXT *) X.RDB$OWNER_NAME);
+
+        THREAD_EXIT;
+
+	END_FOR 
+    ON_ERROR 
+    END_ERROR;
+
+	THREAD_ENTER;
+
+	if (!procedure) {
+		METD_REC_UNLOCK;
+		return NULL;
+	}
+
+/* Lookup parameter stuff */
+
+	for (type = 0; type < 2; type++) {
+		if (type)
+			ptr = &procedure->prc_outputs;
+		else
+			ptr = &procedure->prc_inputs;
+		count = 0;
+
+		THREAD_EXIT;
+
+		FOR(REQUEST_HANDLE dbb->dbb_requests[irq_parameters])
+		    PR IN RDB$PROCEDURE_PARAMETERS CROSS
+			RFR IN RDB$FIELDS
+			WITH RFR.RDB$FIELD_NAME EQ PR.RDB$FIELD_SOURCE
+			AND PR.RDB$PROCEDURE_NAME EQ name->str_data
+			AND PR.RDB$PARAMETER_TYPE = type
+			SORTED BY DESCENDING PR.RDB$PARAMETER_NUMBER 
+ 
+            THREAD_ENTER;
+
+		    count++;
+            /* allocate the field block */
+
+            metd_exact_name(PR.RDB$PARAMETER_NAME);
+            parameter = (FLD) ALLOCV(type_fld, dbb->dbb_pool,
+                                     strlen(PR.RDB$PARAMETER_NAME));
+            parameter->fld_next = *ptr;
+            *ptr = parameter;
+            
+            /* get parameter information */
+            
+            strcpy(parameter->fld_name, PR.RDB$PARAMETER_NAME);
+            parameter->fld_id = PR.RDB$PARAMETER_NUMBER;
+            parameter->fld_length = RFR.RDB$FIELD_LENGTH;
+            parameter->fld_scale = RFR.RDB$FIELD_SCALE;
+            parameter->fld_sub_type = RFR.RDB$FIELD_SUB_TYPE;
+            parameter->fld_procedure = procedure;
+        
+            if (!RFR.RDB$CHARACTER_SET_ID.NULL)
+                parameter->fld_character_set_id = RFR.RDB$CHARACTER_SET_ID;
+            
+            if (!RFR.RDB$COLLATION_ID.NULL)
+                parameter->fld_collation_id = RFR.RDB$COLLATION_ID;
+            
+            convert_dtype(parameter, RFR.RDB$FIELD_TYPE);
+            
+            
+            if (!RFR.RDB$NULL_FLAG)
+                parameter->fld_flags |= FLD_nullable;
+            
+            if (RFR.RDB$FIELD_TYPE == blr_blob) {
+                parameter->fld_seg_length = RFR.RDB$SEGMENT_LENGTH;
+            }
+
+            THREAD_EXIT;
+
+		END_FOR 
+        ON_ERROR 
+        END_ERROR;
+
+		THREAD_ENTER;
+
+		if (type)
+			procedure->prc_out_count = count;
+		else
+			procedure->prc_in_count = count;
+	}
+
+/* Since we could give up control due to the THREAD_EXIT and THEAD_ENTER
+ * calls, another thread may have added the same procedure in the mean time
+ */
+
+	symbol = HSHD_lookup(request->req_dbb, name->str_data,
+						 name->str_length, SYM_procedure, 0);
+	for (; symbol; symbol = symbol->sym_homonym)
+		if ((symbol->sym_type == SYM_procedure) &&
+			((temp = (PRC) symbol->sym_object) &&
+			 (!(temp->prc_flags & PRC_dropped)))) {
+			/* Get rid of all the stuff we just read in. Use existing one */
+
+			free_procedure(procedure);
+			METD_REC_UNLOCK;
+			return (PRC) symbol->sym_object;
+		}
+
+
+/* store in the symbol table unless the procedure is not yet committed */
+
+	if (!(procedure->prc_flags & PRC_new_procedure)) {
+		/* add procedure in the front of the list */
+
+		procedure->prc_next = dbb->dbb_procedures;
+		dbb->dbb_procedures = procedure;
+
+		symbol = procedure->prc_symbol =
+			(SYM) ALLOCV(type_sym, dbb->dbb_pool, 0);
+		symbol->sym_object = (BLK) procedure;
+		symbol->sym_string = procedure->prc_name;
+		symbol->sym_length = name->str_length;
+		symbol->sym_type = SYM_procedure;
+		symbol->sym_dbb = dbb;
+		HSHD_insert(symbol);
+	}
+
+	METD_REC_UNLOCK;
+	return procedure;
+}
+
+
+DSQL_REL METD_get_relation(REQ request, STR name)
+{
+/**************************************
+ *
+ *	M E T D _ g e t _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up a relation.  If it doesn't exist, return NULL.
+ *	If it does, fetch field information as well.
+ *
+ **************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+	FLD field, *ptr;
+	DSQL_REL relation, temp;
+	SYM symbol;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	METD_REC_LOCK;
+
+/* Start by seeing if symbol is already defined */
+
+	symbol = HSHD_lookup(request->req_dbb, name->str_data,
+						 name->str_length, SYM_relation, 0);
+	for (; symbol; symbol = symbol->sym_homonym)
+		if ((symbol->sym_type == SYM_relation) &&
+			((relation = (DSQL_REL) symbol->sym_object) &&
+			 (!(relation->rel_flags & REL_dropped)))) {
+			METD_REC_UNLOCK;
+			return (DSQL_REL) symbol->sym_object;
+		}
+
+/* see if the relation is the one currently being defined in this request */
+
+	if (((temp = request->req_relation) != NULL) &&
+		!strcmp(temp->rel_name, name->str_data)) {
+		METD_REC_UNLOCK;
+		return temp;
+	}
+
+/* now see if it is in the database */
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+	relation = NULL;
+
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_relation])
+	    X IN RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ name->str_data
+		/* allocate the relation block -- if the relation id has not yet 
+		   been assigned, and this is a type of request which does not 
+		   use ids, prepare a temporary relation block to provide 
+		   information without caching it */
+        THREAD_ENTER;
+
+	    metd_exact_name(X.RDB$OWNER_NAME);
+
+        if (!X.RDB$RELATION_ID.NULL) {
+            relation =
+                (DSQL_REL) ALLOCV(type_dsql_rel, dbb->dbb_pool,
+                                  name->str_length + strlen(X.RDB$OWNER_NAME));
+            relation->rel_id = X.RDB$RELATION_ID;
+        }
+        else if (!DDL_ids(request)) {
+            relation =
+                (DSQL_REL) ALLOCDV(type_dsql_rel,
+                                   name->str_length + strlen(X.RDB$OWNER_NAME));
+            relation->rel_flags |= REL_new_relation;
+        }
+
+        /* fill out the relation information */
+        
+        if (relation) {
+            relation->rel_name = relation->rel_data;
+            relation->rel_owner = relation->rel_data + name->str_length + 1;
+            strcpy(relation->rel_name, (TEXT *) name->str_data);
+            strcpy(relation->rel_owner, (TEXT *) X.RDB$OWNER_NAME);
+            if (!(relation->rel_dbkey_length = X.RDB$DBKEY_LENGTH))
+                relation->rel_dbkey_length = 8;
+        }
+
+        THREAD_EXIT;
+
+	END_FOR 
+    ON_ERROR 
+    END_ERROR;
+
+	THREAD_ENTER;
+
+	if (!relation) {
+		METD_REC_UNLOCK;
+		return NULL;
+	}
+
+/* Lookup field stuff */
+
+	ptr = &relation->rel_fields;
+
+	THREAD_EXIT;
+
+	if (dbb->dbb_flags & DBB_v3) {
+		FOR(REQUEST_HANDLE dbb->dbb_requests[irq_fields])
+		    FLX IN RDB$FIELDS CROSS
+			RFR IN RDB$RELATION_FIELDS
+			WITH FLX.RDB$FIELD_NAME EQ RFR.RDB$FIELD_SOURCE
+			AND RFR.RDB$RELATION_NAME EQ name->str_data
+			SORTED BY RFR.RDB$FIELD_POSITION 
+
+            THREAD_ENTER;
+
+		    /* allocate the field block */
+
+	        metd_exact_name(RFR.RDB$FIELD_NAME);
+
+            /* Allocate from default or permanent pool as appropriate */
+            
+            if (relation->rel_flags & REL_new_relation)
+                *ptr = field = (FLD) ALLOCDV(type_fld,
+                                             strlen(RFR.RDB$FIELD_NAME));
+            else
+                *ptr = field = (FLD) ALLOCV(type_fld, dbb->dbb_pool,
+                                            strlen(RFR.RDB$FIELD_NAME));
+            ptr = &field->fld_next;
+            
+            /* get field information */
+            
+            strcpy(field->fld_name, RFR.RDB$FIELD_NAME);
+            field->fld_id = RFR.RDB$FIELD_ID;
+            field->fld_length = FLX.RDB$FIELD_LENGTH;
+            field->fld_scale = FLX.RDB$FIELD_SCALE;
+            field->fld_sub_type = FLX.RDB$FIELD_SUB_TYPE;
+            
+            if (!FLX.RDB$COMPUTED_BLR.NULL)
+                field->fld_flags |= FLD_computed;
+            
+            convert_dtype(field, FLX.RDB$FIELD_TYPE);
+            
+            if (FLX.RDB$FIELD_TYPE == blr_blob) {
+                field->fld_seg_length = FLX.RDB$SEGMENT_LENGTH;
+            }
+            
+            if (!(dbb->dbb_flags & DBB_no_arrays))
+                check_array(request, FLX.RDB$FIELD_NAME, field);
+            
+            field->fld_flags |= FLD_nullable;
+            
+            THREAD_EXIT;
+
+		END_FOR 
+        ON_ERROR 
+        END_ERROR;
+	}
+	else {						/* V4 ODS8 dbb */
+
+		FOR(REQUEST_HANDLE dbb->dbb_requests[irq_fields])
+		    FLX IN RDB$FIELDS CROSS
+			RFR IN RDB$RELATION_FIELDS
+			WITH FLX.RDB$FIELD_NAME EQ RFR.RDB$FIELD_SOURCE
+			AND RFR.RDB$RELATION_NAME EQ name->str_data
+			SORTED BY RFR.RDB$FIELD_POSITION THREAD_ENTER;
+
+		    /* allocate the field block */
+
+		    metd_exact_name(RFR.RDB$FIELD_NAME);
+
+            /* Allocate from default or permanent pool as appropriate */
+            
+            if (relation->rel_flags & REL_new_relation)
+                *ptr = field = (FLD) ALLOCDV(type_fld,
+                                             strlen(RFR.RDB$FIELD_NAME));
+            else
+                *ptr = field = (FLD) ALLOCV(type_fld, dbb->dbb_pool,
+                                            strlen(RFR.RDB$FIELD_NAME));
+            
+            ptr = &field->fld_next;
+            
+            /* get field information */
+            
+            strcpy(field->fld_name, RFR.RDB$FIELD_NAME);
+            field->fld_id = RFR.RDB$FIELD_ID;
+            field->fld_length = FLX.RDB$FIELD_LENGTH;
+            field->fld_scale = FLX.RDB$FIELD_SCALE;
+            field->fld_sub_type = FLX.RDB$FIELD_SUB_TYPE;
+            
+            if (!FLX.RDB$COMPUTED_BLR.NULL)
+                field->fld_flags |= FLD_computed;
+            
+            convert_dtype(field, FLX.RDB$FIELD_TYPE);
+            
+            if (FLX.RDB$FIELD_TYPE == blr_blob) {
+                field->fld_seg_length = FLX.RDB$SEGMENT_LENGTH;
+            }
+            
+            if (!FLX.RDB$DIMENSIONS.NULL && FLX.RDB$DIMENSIONS) {
+                field->fld_element_dtype = field->fld_dtype;
+                field->fld_element_length = field->fld_length;
+                field->fld_dtype = dtype_array;
+                field->fld_length = sizeof(GDS__QUAD);
+                field->fld_dimensions = FLX.RDB$DIMENSIONS;
+            }
+            
+            if (!FLX.RDB$CHARACTER_SET_ID.NULL)
+                field->fld_character_set_id = FLX.RDB$CHARACTER_SET_ID;
+            
+            if (!RFR.RDB$COLLATION_ID.NULL)
+                field->fld_collation_id = RFR.RDB$COLLATION_ID;
+            else if (!FLX.RDB$COLLATION_ID.NULL)
+                field->fld_collation_id = FLX.RDB$COLLATION_ID;
+            
+            if (!(RFR.RDB$NULL_FLAG || FLX.RDB$NULL_FLAG))
+                field->fld_flags |= FLD_nullable;
+            
+            THREAD_EXIT;
+
+		END_FOR 
+        ON_ERROR 
+        END_ERROR;
+	}
+
+	THREAD_ENTER;
+
+/* Since we could give up control due to the THREAD_EXIT and THEAD_ENTER,
+ * another thread may have added the same table in the mean time
+ */
+
+	symbol = HSHD_lookup(request->req_dbb, name->str_data,
+						 name->str_length, SYM_relation, 0);
+	for (; symbol; symbol = symbol->sym_homonym)
+		if ((symbol->sym_type == SYM_relation) &&
+			((temp = (DSQL_REL) symbol->sym_object) &&
+			 (!(temp->rel_flags & REL_dropped)))) {
+			free_relation(relation);
+			METD_REC_UNLOCK;
+			return (DSQL_REL) symbol->sym_object;
+		}
+
+
+/* Add relation to front of list */
+
+	if (!(relation->rel_flags & REL_new_relation)) {
+		relation->rel_next = dbb->dbb_relations;
+		dbb->dbb_relations = relation;
+
+		/* store in the symbol table unless the relation is not yet committed */
+
+		symbol = relation->rel_symbol =
+			(SYM) ALLOCV(type_sym, dbb->dbb_pool, 0);
+		symbol->sym_object = (BLK) relation;
+		symbol->sym_string = relation->rel_name;
+		symbol->sym_length = name->str_length;
+		symbol->sym_type = SYM_relation;
+		symbol->sym_dbb = dbb;
+		HSHD_insert(symbol);
+	}
+	METD_REC_UNLOCK;
+	return relation;
+}
+
+
+STR METD_get_trigger_relation(REQ request, STR name, USHORT * trig_type)
+{
+/**************************************
+ *
+ *	M E T D _ g e t _ t r i g g e r _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up a trigger's relation and return it's current type
+ *
+ **************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+	STR relation;
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+
+	relation = NULL;
+
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_trigger])
+	    X IN RDB$TRIGGERS WITH X.RDB$TRIGGER_NAME EQ name->str_data 
+        THREAD_ENTER;
+
+	    metd_exact_name(X.RDB$RELATION_NAME);
+
+        relation = MAKE_string(X.RDB$RELATION_NAME, strlen(X.RDB$RELATION_NAME));
+        *trig_type = X.RDB$TRIGGER_TYPE;
+        
+        THREAD_EXIT;
+
+	END_FOR 
+    ON_ERROR 
+    END_ERROR;
+
+	THREAD_ENTER;
+
+	return relation;
+}
+
+
+USHORT METD_get_type(REQ request, STR name, UCHAR * field, SSHORT * value)
+{
+/**************************************
+ *
+ *	M E T D _ g e t _ t y p e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up a symbolic name in RDB$TYPES
+ *
+ **************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+	USHORT found;
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+
+	found = FALSE;
+
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_type])
+	    X IN RDB$TYPES WITH
+		X.RDB$FIELD_NAME EQ field AND X.RDB$TYPE_NAME EQ name->str_data;
+
+	    THREAD_ENTER;
+
+        found = TRUE;
+        *value = X.RDB$TYPE;
+        
+        THREAD_EXIT;
+        
+	END_FOR 
+    ON_ERROR 
+    END_ERROR;
+
+	THREAD_ENTER;
+
+	return found;
+}
+
+
+DSQL_REL METD_get_view_relation(REQ request,
+								UCHAR * view_name,
+								UCHAR * relation_or_alias, USHORT level)
+{
+/**************************************
+ *
+ *	M E T D _ g e t _ v i e w _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return TRUE if the passed view_name represents a 
+ *	view with the passed relation as a base table 
+ *	(the relation could be an alias).
+ *
+ **************************************/
+	DBB dbb;
+	SLONG *DB, *gds__trans;
+	STR relation_name;
+	DSQL_REL relation;
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+
+	relation = NULL;
+
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_view], LEVEL level)
+	    X IN RDB$VIEW_RELATIONS WITH X.RDB$VIEW_NAME EQ view_name 
+
+        THREAD_ENTER;
+
+	    metd_exact_name(X.RDB$CONTEXT_NAME);
+        metd_exact_name(X.RDB$RELATION_NAME);
+        
+        if (!strcmp(X.RDB$RELATION_NAME, relation_or_alias) ||
+            !strcmp(X.RDB$CONTEXT_NAME, relation_or_alias)) {
+            relation_name = MAKE_string(X.RDB$RELATION_NAME,
+                                        strlen(X.RDB$RELATION_NAME));
+            relation = METD_get_relation(request, relation_name);
+            ALLD_release((FRB)relation_name);
+            return relation;
+        }
+        
+        if (relation =
+            METD_get_view_relation(request, X.RDB$RELATION_NAME,
+                                   relation_or_alias, (USHORT)level + 1))
+            return relation;
+
+        THREAD_EXIT;
+
+	END_FOR 
+    ON_ERROR 
+    END_ERROR;
+
+	THREAD_ENTER;
+
+	return NULL;
+}
+
+
+static void check_array( REQ request, TEXT * field_name, FLD field)
+{
+/**************************************
+ *
+ *	c h e c k _ a r r a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to get field dimensions (RDB$FIELD_DIMENSIONS may not be
+ *	defined in the meta-data).  If we're not successful, indicate
+ *	so in the database block to avoid wasting further effort.
+ *
+ **************************************/
+	SLONG *DB, *gds__trans;
+	DBB dbb;
+
+	dbb = request->req_dbb;
+	DB = dbb->dbb_database_handle;
+	gds__trans = request->req_trans;
+
+	THREAD_EXIT;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[irq_dimensions])
+	    X IN RDB$FIELDS WITH X.RDB$FIELD_NAME EQ field_name 
+
+        THREAD_ENTER;
+
+	    if (!X.RDB$DIMENSIONS.NULL && X.RDB$DIMENSIONS) {
+            field->fld_element_dtype = field->fld_dtype;
+            field->fld_element_length = field->fld_length;
+            field->fld_dtype = dtype_array;
+            field->fld_length = sizeof(GDS__QUAD);
+            field->fld_dimensions = X.RDB$DIMENSIONS;
+        }
+        
+        THREAD_EXIT;
+
+	END_FOR 
+    ON_ERROR 
+        dbb->dbb_flags |= DBB_no_arrays;
+	END_ERROR;
+
+	THREAD_ENTER;
+}
+
+
+static void convert_dtype( FLD field, SSHORT field_type)
+{
+/**************************************
+ *
+ *	c o n v e r t _ d t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from the blr_<type> stored in system metadata
+ *	to the internal dtype_* descriptor.  Also set field
+ *	length.
+ *
+ **************************************/
+
+/* fill out the type descriptor */
+
+	if (field_type == blr_text) {
+		field->fld_dtype = dtype_text;
+	}
+	else if (field_type == blr_varying) {
+		field->fld_dtype = dtype_varying;
+		field->fld_length += sizeof(USHORT);
+	}
+	else if (field_type == blr_blob) {
+		field->fld_dtype = dtype_blob;
+		field->fld_length = type_lengths[field->fld_dtype];
+	}
+	else {
+		field->fld_dtype = gds_cvt_blr_dtype[field_type];
+		field->fld_length = type_lengths[field->fld_dtype];
+
+		assert(field->fld_dtype != dtype_null);
+	}
+}
+
+
+static void free_procedure( PRC procedure)
+{
+/**************************************
+ *
+ *	f r e e _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free memory allocated for a procedure block and params
+ *
+ **************************************/
+	FLD param, temp;
+
+/* release the input & output parameter blocks */
+
+	for (param = procedure->prc_inputs; param;) {
+		temp = param;
+		param = param->fld_next;
+		ALLD_release((FRB) temp);
+	}
+
+	for (param = procedure->prc_outputs; param;) {
+		temp = param;
+		param = param->fld_next;
+		ALLD_release((FRB) temp);
+	}
+
+/* release the procedure & symbol blocks */
+
+	ALLD_release((FRB) procedure);
+}
+
+
+static void free_relation( DSQL_REL relation)
+{
+/**************************************
+ *
+ *	f r e e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free memory allocated for a relation block and fields
+ *
+ **************************************/
+	FLD field, temp;
+
+/* release the field blocks */
+
+	for (field = relation->rel_fields; field;) {
+		temp = field;
+		field = field->fld_next;
+		ALLD_release((FRB) temp);
+	}
+
+/* release the relation & symbol blocks */
+
+	ALLD_release((FRB) relation);
+}
+
+
+static TEXT *metd_exact_name( TEXT * str)
+{
+/**************************************
+ *
+ *	m e t d _ e x a c t _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Trim trailing spaces off a metadata name.
+ *
+ *	SQL delimited identifier may have blank as part of the name
+ *
+ *	Parameters:  str - the string to terminate
+ *	Returns:     str
+ *
+ **************************************/
+	TEXT *p, *q;
+#define	BLANK			'\040'
+
+	q = str - 1;
+	for (p = str; *p; p++) {
+		if (*p != BLANK)
+			q = p;
+	}
+
+	*(q + 1) = '\0';
+
+	return str;
+}
diff --git a/src/dsql/metd_proto.h b/src/dsql/metd_proto.h
new file mode 100644
index 0000000000..add5c7268d
--- /dev/null
+++ b/src/dsql/metd_proto.h
@@ -0,0 +1,51 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		metd_proto.h
+ *	DESCRIPTION:	Prototype Header file for metd.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_METD_PROTO_H
+#define _DSQL_METD_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void METD_drop_procedure(struct req*, struct str *);
+void METD_drop_relation(struct req*, struct str *);
+INTLSYM METD_get_charset(struct req*, USHORT, UCHAR *);
+INTLSYM METD_get_collation(struct req*, struct str *);
+void METD_get_col_default(REQ, TEXT*, TEXT*, BOOLEAN*, TEXT*, USHORT);
+STR METD_get_default_charset(struct req*);
+USHORT METD_get_domain(struct req*, struct fld*, UCHAR*);
+void METD_get_domain_default(REQ, TEXT*, BOOLEAN*, TEXT*, USHORT);
+UDF METD_get_function(struct req*, struct str*);
+NOD METD_get_primary_key(struct req*, struct str*);
+PRC METD_get_procedure(struct req*, struct str*);
+DSQL_REL METD_get_relation(struct req*, struct str*);
+STR METD_get_trigger_relation(struct req*, struct str*, USHORT*);
+USHORT METD_get_type(struct req*, struct str*, UCHAR*, SSHORT*);
+DSQL_REL METD_get_view_relation(struct req*, UCHAR*, UCHAR*, USHORT);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /*_DSQL_METD_PROTO_H */
diff --git a/src/dsql/movd.cpp b/src/dsql/movd.cpp
new file mode 100644
index 0000000000..f698befd24
--- /dev/null
+++ b/src/dsql/movd.cpp
@@ -0,0 +1,103 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		movd.c
+ *	DESCRIPTION:	Data mover and converter and comparator, etc.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include "../jrd/ib_stdio.h"
+#include <stdarg.h>
+#include <string.h>
+
+#include "../dsql/dsql.h"
+#include "../jrd/codes.h"
+#include "../jrd/iberr.h"
+#include "../dsql/errd_proto.h"
+#include "../dsql/movd_proto.h"
+#include "../jrd/cvt_proto.h"
+#include "../jrd/thd_proto.h"
+
+static void post_error(STATUS, ...);
+
+
+void MOVD_move( DSC * from, DSC * to)
+{
+/**************************************
+ *
+ *	M O V D _ m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move (and possible convert) something to something else.
+ *
+ **************************************/
+
+	CVT_move(from, to, (FPTR_VOID) post_error);
+}
+
+
+static void post_error( STATUS status, ...)
+{
+/**************************************
+ *
+ *	p o s t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	A conversion error occurred.  Complain.
+ *
+ **************************************/
+	TSQL tdsql;
+	STATUS *v, *v_end, *temp, temp_status[20];
+
+	tdsql = GET_THREAD_DATA;
+
+/* copy into a temporary array any other arguments which may 
+ * have been handed to us, then post the error.
+ * N.B., the last supplied error should be a 0.
+ */
+
+	STUFF_STATUS(temp_status, status);
+
+	v = tdsql->tsql_status;
+	v_end = v + 20;
+	*v++ = gds_arg_gds;
+	*v++ = gds__dsql_error;
+	*v++ = gds_arg_gds;
+	*v++ = gds__sqlerr;
+	*v++ = gds_arg_number;
+	*v++ = -303;
+
+	for (temp = temp_status; v < v_end && (*v = *temp) != gds_arg_end;
+		 v++, temp++)
+		switch (*v) {
+		case gds_arg_cstring:
+			*++v = *++temp;
+			*++v = *++temp;
+			break;
+		default:
+			*++v = *++temp;
+			break;
+		};
+
+	ERRD_punt();
+}
diff --git a/src/dsql/movd_proto.h b/src/dsql/movd_proto.h
new file mode 100644
index 0000000000..dbe0438268
--- /dev/null
+++ b/src/dsql/movd_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		movd_proto.h
+ *	DESCRIPTION:	Prototype Header file for movd.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_MOVD_PROTO_H_
+#define _DSQL_MOVD_PROTO_H_
+
+extern void MOVD_move(struct dsc *, struct dsc *);
+
+#endif /*  _DSQL_MOVD_PROTO_H_  */
diff --git a/src/dsql/node.h b/src/dsql/node.h
new file mode 100644
index 0000000000..43ee7dc4f2
--- /dev/null
+++ b/src/dsql/node.h
@@ -0,0 +1,749 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		node.h
+ *	DESCRIPTION:	Definitions needed for accessing a parse tree
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_NODE_H_
+#define _DSQL_NODE_H_
+
+/* an enumeration of the possible node types in a syntax tree */
+
+typedef ENUM nod_t
+{
+	nod_commit = 1,	/* Commands, not executed. */
+	nod_rollback,
+	nod_trans,
+	nod_prepare,
+	nod_create,
+	nod_define,
+	nod_def_default,
+	nod_del_default,
+	nod_def_database,
+	nod_def_domain,	/* 10 */
+	nod_mod_domain,
+	nod_del_domain,
+	nod_mod_database,
+	nod_def_relation,
+	nod_mod_relation,
+	nod_del_relation,
+	nod_def_field,
+	nod_mod_field,
+	nod_del_field,
+	nod_def_index,	/* 20 */
+	nod_del_index,
+	nod_def_view,
+	nod_def_constraint,
+	nod_def_trigger,
+	nod_mod_trigger,
+	nod_del_trigger,
+	nod_def_trigger_msg,
+	nod_mod_trigger_msg,
+	nod_del_trigger_msg,
+	nod_def_procedure,	/* 30 */
+	nod_mod_procedure,
+	nod_del_procedure,
+	nod_def_exception,
+	nod_mod_exception,
+	nod_del_exception,
+	nod_def_generator,
+	nod_del_generator,
+	nod_def_filter,
+	nod_del_filter,
+	nod_def_shadow,	/* 40 */
+	nod_del_shadow,
+	nod_def_udf,
+	nod_del_udf,
+	nod_grant,
+	nod_revoke,
+	nod_rel_constraint,
+	nod_delete_rel_constraint,
+	nod_primary,
+	nod_foreign,
+	nod_abort,	/* 50 */
+	nod_references,
+	nod_proc_obj,
+	nod_trig_obj,
+	nod_view_obj,
+	nod_list,	/* SQL statements, mapped into GDML statements */
+	nod_retrieve,
+	nod_select,
+	nod_insert,
+	nod_delete,
+	nod_update,	/* 60 */
+	nod_fetch,
+	nod_close,
+	nod_open,
+	nod_all,	/* ALL privileges */
+	nod_execute,				/* EXECUTE privilege */
+	nod_for,					/* created in context recognition phase to map to blr */
+	nod_store,
+	nod_modify,
+	nod_erase,
+	nod_assign,	/* 70 */
+	nod_exec_procedure,
+	nod_return,	/* Procedure statements */
+	nod_exit,
+	nod_while,
+	nod_if,
+	nod_for_select,
+	nod_erase_current,
+	nod_modify_current,
+	nod_post,
+	nod_block,	/* 80 */
+	nod_on_error,
+	nod_sqlcode,
+	nod_gdscode,
+	nod_exception,
+	nod_exception_stmt,
+	nod_default,
+	nod_start_savepoint,
+	nod_end_savepoint,
+	nod_cursor,	/* used to create record streams */
+	nod_relation,				/* 90 */
+	nod_relation_name,
+	nod_procedure_name,
+	nod_rel_proc_name,
+	nod_name,
+	nod_rse,
+	nod_select_expr,
+	nod_union,
+	nod_aggregate,
+	nod_order,
+	nod_flag,	/* 100 */
+	nod_join,
+	nod_top,
+/* NOTE: when adding an expression node, be sure to
+   test various combinations; in particular, think 
+   about parameterization using a '?' - there is code
+   in PASS1_node which must be updated to find the
+   data type of the parameter based on the arguments 
+   to an expression node */
+	nod_eql,
+	nod_neq,
+	nod_gtr,
+	nod_geq,
+	nod_leq,
+	nod_lss,
+	nod_between,
+	nod_like,
+	nod_missing,
+	nod_and,
+	nod_or,
+	nod_any,
+	nod_not,
+	nod_unique,
+	nod_containing,
+	nod_starting,
+	nod_via,
+	nod_field,	/* values */
+	nod_dom_value,
+	nod_field_name,
+	nod_agg_item,
+	nod_parameter,
+	nod_constant,
+	nod_position,
+	nod_values,
+	nod_map,
+	nod_alias,
+	nod_user_name,
+	nod_user_group,
+	nod_variable,
+	nod_var_name,
+	nod_array,
+	nod_add,	/* functions */
+	nod_subtract,
+	nod_multiply,
+	nod_divide,
+	nod_negate,
+	nod_concatenate,
+	nod_substr,
+	nod_null,
+	nod_dbkey,
+	nod_udf,
+	nod_cast,
+	nod_upcase,
+	nod_collate,
+	nod_gen_id,
+	nod_add2,	/* functions different for dialect >= V6_TRANSITION */
+	nod_subtract2,
+	nod_multiply2,
+	nod_divide2,
+	nod_gen_id2,
+	nod_average,	/* aggregates */
+	nod_from,
+	nod_max,
+	nod_min,
+	nod_total,
+	nod_count,
+	nod_exists,
+	nod_singular,
+	nod_agg_average,
+	nod_agg_max,
+	nod_agg_min,
+	nod_agg_total,
+	nod_agg_count,
+	nod_average2,	/* aggregates different for dialect >= V6_TRANSITION */
+	nod_agg_average2,
+	nod_agg_total2,
+	nod_get_segment,	/* blobs */
+	nod_put_segment,
+	nod_join_inner,	/* join types */
+	nod_join_left,
+	nod_join_right,
+	nod_join_full,
+	/* sql transaction support */
+	nod_access,
+	nod_wait,
+	nod_isolation,
+	nod_version,
+	nod_table_lock,
+	nod_lock_mode,
+	nod_reserve,
+	nod_commit_retain,
+	/* sql database stmts support */
+	nod_page_size,
+	nod_file_length,
+	nod_file_desc,
+	nod_log_file_desc,
+	nod_cache_file_desc,
+	nod_group_commit_wait,
+	nod_check_point_len,
+	nod_num_log_buffers,
+	nod_log_buffer_size,
+	nod_drop_log,
+	nod_drop_cache,
+	nod_dfl_charset,
+	/* sql connect options support (used for create database) */
+	nod_password,
+	nod_lc_ctype,	/* SET NAMES */
+	/* Misc nodes */
+	nod_udf_return_value,
+	/* computed field */
+	nod_def_computed,
+	/* access plan stuff */
+	nod_plan_expr,
+	nod_plan_item,
+	nod_merge,
+	nod_natural,
+	nod_index,
+	nod_index_order,
+	nod_set_generator,
+	nod_set_generator2,	/* SINT64 value for dialect > V6_TRANSITION */
+	/* alter index */
+	nod_mod_index,
+	nod_idx_active,
+	nod_idx_inactive,
+		/* drop behaviour */
+	nod_restrict,
+	nod_cascade,
+	/* set statistics */
+	nod_set_statistics,
+	/* record version */
+	nod_rec_version,
+	/* ANY keyword used */
+	nod_ansi_any,
+	nod_eql_any,
+	nod_neq_any,
+	nod_gtr_any,
+	nod_geq_any,
+	nod_leq_any,
+	nod_lss_any,
+	/* ALL keyword used */
+	nod_ansi_all,
+	nod_eql_all,
+	nod_neq_all,
+	nod_gtr_all,
+	nod_geq_all,
+	nod_leq_all,
+	nod_lss_all,
+	/*referential integrity actions */
+	nod_ref_upd_del,
+	nod_ref_trig_action,
+	/* SQL role support */
+	nod_def_role,
+	nod_role_name,
+	nod_grant_admin,
+	nod_del_role,
+	/* SQL time & date support */
+	nod_current_time,
+	nod_current_date,
+	nod_current_timestamp,
+	nod_extract,
+	/* ALTER column/domain support */
+	nod_mod_domain_type,
+	nod_mod_field_name,
+	nod_mod_field_type,
+	nod_mod_field_pos
+} NOD_TYPE;
+
+
+
+/* definition of a syntax node created both
+   in parsing and in context recognition */
+
+typedef struct nod {
+	struct blk nod_header;
+	NOD_TYPE nod_type;			/* Type of node */
+	DSC nod_desc;				/* Descriptor */
+	USHORT nod_count;			/* Number of arguments */
+	USHORT nod_flags;
+	struct nod *nod_arg[1];
+} *NOD;
+
+/* values of flags */
+
+#define NOD_AGG_DISTINCT 	1
+
+#define NOD_UNION_ALL	 	1
+
+#define NOD_SINGLETON_SELECT	1
+
+#define NOD_READ_ONLY	1
+#define NOD_READ_WRITE	2
+
+#define NOD_WAIT	1
+#define NOD_NO_WAIT	2
+
+#define NOD_VERSION	1
+#define NOD_NO_VERSION	2
+
+#define NOD_CONCURRENCY		1
+#define NOD_CONSISTENCY		2
+#define NOD_READ_COMMITTED	4
+
+#define NOD_SHARED	1
+#define NOD_PROTECTED	2
+#define NOD_READ	4
+#define NOD_WRITE	8
+
+#define REF_ACTION_CASCADE 1
+#define REF_ACTION_SET_DEFAULT 2
+#define REF_ACTION_SET_NULL 4
+#define REF_ACTION_NONE 8
+
+/* Node flag indicates that this node has a different type or result
+   depending on the SQL dialect. */
+#define NOD_COMP_DIALECT	16
+
+/* Parameters to MAKE_constant */
+
+#define CONSTANT_STRING	    0	/* stored as a string */
+#define CONSTANT_SLONG	    1	/* stored as a SLONG */
+#define CONSTANT_DOUBLE	    2	/* stored as a string */
+#define CONSTANT_DATE	    3	/* stored as a SLONG */
+#define CONSTANT_TIME	    4	/* stored as a ULONG */
+#define CONSTANT_TIMESTAMP  5	/* stored as a QUAD */
+#define CONSTANT_SINT64     6	/* stored as a SINT64 */
+
+
+
+/* enumerations of the arguments to a node, offsets
+   within the variable tail nod_arg */
+
+/* Note Bene:
+ *	e_<nodename>_count	== count of arguments in nod_arg
+ *	This is often used as the count of sub-nodes, but there
+ *	are cases when non-NOD arguments are stuffed into nod_arg
+ *	entries.  These include nod_udf, nod_gen_id, nod_cast,
+ *	& nod_collate.
+ */
+
+#define e_fld_context	0		/* nod_field */
+#define e_fld_field	1
+#define e_fld_indices	2
+#define e_fld_count	3
+
+#define e_ary_array	0			/* nod_array */
+#define e_ary_indices	1
+#define e_ary_count	2
+
+#define e_xcp_name	0			/* nod_exception */
+#define e_xcp_text	1
+#define e_xcp_count	2
+
+#define e_blk_action	0		/* nod_block */
+#define e_blk_errs	1
+#define e_blk_count	2
+
+#define e_err_errs	0			/* nod_on_error */
+#define e_err_action	1
+#define e_err_count	2
+
+#define e_var_variable	0		/* nod_variable */
+#define e_var_count	1
+
+#define e_pst_event	0			/* nod_procedure */
+#define e_pst_count	1
+
+#define e_rtn_procedure 0		/* nod_procedure */
+#define e_rtn_count	1
+
+#define e_vrn_name	0			/* nod_variable_name */
+#define e_vrn_count	1
+
+#define e_fln_context	0		/* od_field_name */
+#define e_fln_name	1
+#define e_fln_count	2
+
+#define e_rel_context	0		/* nod_relation */
+#define e_rel_count	1
+
+#define e_agg_context	0		/* nod_aggregate */
+#define e_agg_group	1
+#define e_agg_rse	2
+#define e_agg_count	3
+
+#define e_rse_streams	0		/* nod_rse */
+#define e_rse_boolean	1
+#define e_rse_sort	2
+#define e_rse_reduced	3
+#define e_rse_items	4
+#define e_rse_first	5
+#define e_rse_singleton	6
+#define e_rse_plan	7
+#define e_rse_count	8
+
+#define e_par_parameter	0		/* nod_parameter */
+#define e_par_count	1
+
+#define e_flp_select	0		/* nod_for_select */
+#define e_flp_into	1
+#define e_flp_cursor	2
+#define e_flp_action	3
+#define e_flp_count	4
+
+#define e_cur_name	0			/* nod_cursor */
+#define e_cur_context	1
+#define e_cur_next	2
+#define e_cur_count	3
+
+#define e_prc_name      0		/* nod_procedure */
+#define e_prc_inputs    1
+#define e_prc_outputs   2
+#define e_prc_dcls      3
+#define e_prc_body      4
+#define e_prc_source    5
+#define e_prc_cursors   6
+#define e_prc_count     7
+
+#define e_exe_procedure 0		/* nod_exec_procedure */
+#define e_exe_inputs    1
+#define e_exe_outputs   2
+#define e_exe_count     3
+
+#define e_msg_number	0		/* nod_message */
+#define e_msg_text	1
+#define e_msg_count	2
+
+#define e_sel_distinct	0		/* nod_select_expr */
+#define e_sel_list	1
+#define e_sel_from	2
+#define e_sel_where	3
+#define e_sel_group	4
+#define e_sel_having	5
+#define e_sel_plan	6
+#define e_sel_singleton	7
+#define e_sel_count	8
+
+#define e_ins_relation	0		/* nod_insert */
+#define e_ins_fields	1
+#define e_ins_values	2
+#define e_ins_select	3
+#define e_ins_count	4
+
+#define e_sto_relation	0		/* nod_store */
+#define e_sto_statement	1
+#define e_sto_rse	2
+#define e_sto_count	3
+
+#define e_del_relation	0		/* nod_delete */
+#define e_del_boolean	1
+#define e_del_cursor	2
+#define e_del_count	3
+
+#define e_era_relation	0		/* nod_erase */
+#define e_era_rse	1
+#define e_era_count	2
+
+#define e_erc_context	0		/* nod_erase_current */
+#define e_erc_count	1
+
+#define e_mdc_context	0		/* nod_modify_current */
+#define e_mdc_update	1
+#define e_mdc_statement	2
+#define e_mdc_count	3
+
+#define e_upd_relation	0		/* nod_update */
+#define e_upd_statement	1
+#define e_upd_boolean	2
+#define e_upd_cursor	3
+#define e_upd_count	4
+
+#define e_mod_source	0		/* nod_modify */
+#define e_mod_update	1
+#define e_mod_statement	2
+#define e_mod_rse	3
+#define e_mod_count	4
+
+#define e_map_context	0		/* nod_map */
+#define e_map_map	1
+#define e_map_count	2
+
+#define e_blb_field	0			/* nod_get_segment & nod_put_segment */
+#define e_blb_relation	1
+#define e_blb_filter	2
+#define e_blb_max_seg	3
+#define e_blb_count	4
+
+#define e_idx_unique	0		/* nod_def_index */
+#define e_idx_asc_dsc	1
+#define e_idx_name	2
+#define e_idx_table	3
+#define e_idx_fields	4
+#define e_idx_count	5
+
+#define e_rln_name	0			/* nod_relation_name */
+#define e_rln_alias	1
+#define e_rln_count	2
+
+#define e_rpn_name	0			/* nod_rel_proc_name */
+#define e_rpn_alias	1
+#define e_rpn_inputs	2
+#define e_rpn_count	3
+
+#define e_join_left_rel	0		/* nod_join */
+#define e_join_type	1
+#define e_join_rght_rel	2
+#define e_join_boolean	3
+#define e_join_count	4
+
+#define e_via_rse       0
+#define e_via_value_1   1
+#define e_via_value_2	2
+#define e_via_count	3
+
+#define e_if_condition	0
+#define e_if_true	1
+#define e_if_false	2
+#define e_if_count	3
+
+#define e_while_cond	0
+#define e_while_action	1
+#define e_while_number	2
+#define e_while_count	3
+
+#define e_drl_name	0			/* nod_def_relation */
+#define e_drl_elements	1
+#define e_drl_ext_file	2		/* external file */
+#define e_drl_count	3
+
+#define e_dft_default	0		/* nod_def_default  */
+#define e_dft_default_source 1
+#define e_dft_count     2
+
+#define e_dom_name	0			/* nod_def_domain */
+#define e_dom_default	1
+#define e_dom_default_source 2
+#define e_dom_constraint 3
+#define e_dom_collate   4
+#define e_dom_count     5
+
+#define e_dfl_field	0			/* nod_def_field */
+#define e_dfl_default	1
+#define e_dfl_default_source 2
+#define e_dfl_constraint 3
+#define e_dfl_collate   4
+#define e_dfl_domain    5
+#define e_dfl_computed	6
+#define e_dfl_count     7
+
+#define e_view_name	0			/* nod_def_view */
+#define e_view_fields	1
+#define e_view_select	2
+#define e_view_check	3
+#define e_view_source   4
+#define e_view_count	5
+
+#define e_alt_name	0			/* nod_mod_relation */
+#define e_alt_ops	1
+#define e_alt_count	2
+
+#define e_grant_privs	0		/* nod_grant */
+#define e_grant_table	1
+#define e_grant_users	2
+#define e_grant_grant	3
+#define e_grant_count	4
+
+#define e_alias_value	0		/* nod_alias */
+#define e_alias_alias	1
+#define e_alias_count	2
+
+#define e_rct_name	0			/* nod_rel_constraint  */
+#define e_rct_type	1
+
+#define e_pri_columns	0		/* nod_primary */
+#define e_pri_count	1
+
+#define e_for_columns	0		/* nod_foreign */
+#define e_for_reftable	1
+#define e_for_refcolumns 2
+#define e_for_action    3
+#define e_for_count	4
+
+#define e_ref_upd 0				/* nod_ref_upd_del_action */
+#define e_ref_del 1
+#define e_ref_upd_del_count 2
+
+#define e_ref_trig_action_count 0
+
+#define e_cnstr_name		0	/* nod_def_constraint */
+#define e_cnstr_table		1	/* NOTE: IF ADDING AN ARG IT MUST BE */
+#define e_cnstr_type		2	/* NULLED OUT WHEN THE NODE IS */
+#define e_cnstr_position	3	/* DEFINED IN parse.y */
+#define e_cnstr_condition	4
+#define e_cnstr_actions		5
+#define e_cnstr_source		6
+#define e_cnstr_message		7
+#define e_cnstr_else		8
+#define e_cnstr_count		9
+
+#define e_trg_name	0			/* nod_mod_trigger and nod_def trigger */
+#define e_trg_table	1
+#define e_trg_active	2
+#define e_trg_type	3
+#define e_trg_position	4
+#define e_trg_actions	5
+#define e_trg_source	6
+#define e_trg_messages	7
+#define e_trg_count	8
+
+#define e_abrt_number	0		/* nod_abort */
+#define e_abrt_count	1
+
+#define e_cast_target   0	/* Not a NOD */	/* nod_cast */
+#define e_cast_source   1
+#define e_cast_count    2
+
+#define e_coll_target   0       /* Not a NOD */	/* nod_collate */
+#define e_coll_source   1
+#define e_coll_count    2
+
+#define e_order_field   0		/* nod_order */
+#define e_order_flag    1
+#define e_order_collate 2
+#define e_order_count   3
+
+
+#define e_lock_tables	0
+#define e_lock_mode	1
+
+#define e_database_name 0
+#define e_database_initial_desc 1
+#define e_database_rem_desc 2
+#define e_cdb_count 3
+
+#define e_commit_retain	0
+
+#define e_adb_all 0
+#define e_adb_count 1
+
+#define e_gen_name  0
+#define e_gen_count 1
+
+#define e_filter_name     0
+#define e_filter_in_type  1
+#define e_filter_out_type 2
+#define e_filter_entry_pt 3
+#define e_filter_module   4
+#define e_filter_count    5
+
+#define e_gen_id_name 0		/* Not a NOD */	/* nod_gen_id */
+#define e_gen_id_value 1
+#define e_gen_id_count 2
+
+
+#define e_udf_name          0
+#define e_udf_entry_pt      1
+#define e_udf_module        2
+#define e_udf_args          3
+#define e_udf_return_value  4
+#define e_udf_count         5
+
+/* computed field */
+
+#define e_cmp_expr	0
+#define e_cmp_text	1
+
+/* create shadow */
+
+#define e_shadow_number  	0
+#define e_shadow_man_auto 	1
+#define e_shadow_conditional 	2
+#define e_shadow_name		3
+#define e_shadow_length 	4
+#define e_shadow_sec_files 	5
+#define e_shadow_count	        6
+
+/* alter index */
+
+#define e_alt_index		0
+#define e_mod_idx_count		1
+
+#define e_alt_idx_name		0
+#define e_alt_idx_name_count	1
+
+/* set statistics */
+
+#define e_stat_name		0
+#define e_stat_count		1
+
+/* SQL extract() function */
+
+#define e_extract_count	2
+#define e_extract_part  0		/* constant representing part to extract */
+#define e_extract_value	1		/* Must be a time or date value */
+
+/* SQL CURRENT_TIME, CURRENT_DATE, CURRENT_TIMESTAMP */
+
+#define e_current_time_count		0
+#define e_current_date_count		0
+#define e_current_timestamp_count	0
+
+#define e_alt_dom_name			0	/* nod_modify_domain */
+#define e_alt_dom_ops			1
+#define e_alt_dom_count			2
+
+#define e_mod_dom_new_dom_type		0	/* nod_mod_domain_type */
+#define e_mod_dom_count			1
+
+#define e_mod_fld_name_orig_name	0	/* nod_mod_field_name */
+#define e_mod_fld_name_new_name		1
+#define e_mod_fld_name_count		2
+
+#define e_mod_fld_type			0	/* nod_mod_field_type */
+#define e_mod_fld_type_dom_name		2
+#define e_mod_fld_type_count		2
+
+#define e_mod_fld_pos_orig_name		0	/* nod_mod_field_position */
+#define e_mod_fld_pos_new_position	1
+#define e_mod_fld_pos_count		2
+
+#endif /* _DSQL_NODE_H_ */
diff --git a/src/dsql/parse.awk b/src/dsql/parse.awk
new file mode 100644
index 0000000000..51c46177c4
--- /dev/null
+++ b/src/dsql/parse.awk
@@ -0,0 +1,7 @@
+BEGIN {Output = 1}
+/NOT_FLINTSTONE/ {if(FLINTSTONE) Output = 0 ; next}
+/END_FLINTSTONE/ {if(FLINTSTONE) Output = 1 ; next}
+/FLINT_CACHE/ {if(CACHE && FLINTSTONE) Output = 1 ; next}
+/END_CACHE/ {if(CACHE && FLINTSTONE) Output = 0 ; next}
+/FLINT_WAL/ {if(WAL && FLINTSTONE) Output = 1 ; next}
+/END_WAL/ {if(WAL && FLINTSTONE) Output = 0 ; next}
diff --git a/src/dsql/parse.cpp b/src/dsql/parse.cpp
new file mode 100644
index 0000000000..1b11af83ce
--- /dev/null
+++ b/src/dsql/parse.cpp
@@ -0,0 +1,6796 @@
+/* 
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		parse.y
+ *	DESCRIPTION:	Dynamic SQL parser
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+
+#include "../include/iberror.h"
+#include "../dsql/dsql.h"
+#include "../dsql/node.h"
+#include "../dsql/sym.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/flags.h"
+#include "../dsql/alld_proto.h"
+#include "../dsql/errd_proto.h"
+#include "../dsql/hsh_proto.h"
+#include "../dsql/make_proto.h"
+#include "../dsql/parse_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../wal/wal.h"
+
+// fwd. decl. - NOTE! We can't currently include jrd/err_proto.h into
+// this file to get the real declaration (try and you'll see why). :-(
+extern "C" TEXT* DLL_EXPORT ERR_string(TEXT*, int);
+
+ASSERT_FILENAME
+extern "C" {
+/* since UNIX isn't standard, we have to define
+   stuff which is in <limits.h> (which isn't available
+   on all UNIXes... */
+#define SHRT_POS_MAX		32767
+#define SHRT_UNSIGNED_MAX	65535
+#define SHRT_NEG_MAX		32768
+#define LONG_POS_MAX		2147483647
+#define POSITIVE		0
+#define NEGATIVE		1
+#define UNSIGNED		2
+#define MIN_CACHE_BUFFERS       250
+#define DEF_CACHE_BUFFERS       1000
+#define YYSTYPE		NOD
+#if defined(DEBUG) || defined(_DEBUG)
+#define YYDEBUG		1
+#endif
+static CONST UCHAR INTERNAL_FIELD_NAME[] = "DSQL internal";	/* NTX: placeholder */
+static CONST UCHAR NULL_STRING[] = "";
+
+#ifndef SHLIB_DEFS
+NOD DSQL_parse;
+#else
+extern NOD DSQL_parse;
+#endif
+
+static FLD field;
+static FIL file;
+static NOD field_name;
+static TEXT *beginning;
+static SSHORT log_defined, cache_defined;
+
+
+# define ACTIVE 257
+# define ADD 258
+# define AFTER 259
+# define ALL 260
+# define ALTER 261
+# define AND 262
+# define ANY 263
+# define AS 264
+# define ASC 265
+# define AT 266
+# define AVG 267
+# define AUTO 268
+# define BASENAME 269
+# define BEFORE 270
+# define BEGIN 271
+# define BETWEEN 272
+# define BLOB 273
+# define BY 274
+# define CACHE 275
+# define CAST 276
+# define CHARACTER 277
+# define CHECK 278
+# define CHECK_POINT_LEN 279
+# define COLLATE 280
+# define COLLATION 281
+# define COMMA 282
+# define COMMIT 283
+# define COMMITTED 284
+# define COMPUTED 285
+# define CONCATENATE 286
+# define CONDITIONAL 287
+# define CONSTRAINT 288
+# define CONTAINING 289
+# define COUNT 290
+# define CREATE 291
+# define CSTRING 292
+# define CURRENT 293
+# define CURSOR 294
+# define DATABASE 295
+# define DATE 296
+# define DB_KEY 297
+#ifdef DEBUG
+#undef DEBUG
+#endif
+# define DEBUG		298
+# define DECIMAL	299
+# define DECLARE	300
+# define DEFAULT	301
+# define DELETE		302
+# define DESC		303
+# define DISTINCT	304
+# define DO 305
+# define DOMAIN 306
+# define DROP 307
+# define ELSE 308
+# define END 309
+# define ENTRY_POINT 310
+# define EQL 311
+# define ESCAPE 312
+# define EXCEPTION 313
+# define EXECUTE 314
+# define EXISTS 315
+# define EXIT 316
+# define EXTERNAL 317
+# define FILTER 318
+# define FOR 319
+# define FOREIGN 320
+# define FROM 321
+# define FULL 322
+# define FUNCTION 323
+# define GDSCODE 324
+# define GEQ 325
+# define GENERATOR 326
+# define GEN_ID 327
+# define GRANT 328
+# define GROUP 329
+# define GROUP_COMMIT_WAIT 330
+# define GTR 331
+# define HAVING 332
+# define IF 333
+# define IN 334
+# define INACTIVE 335
+# define INNER 336
+# define INPUT_TYPE 337
+# define INDEX 338
+# define INSERT 339
+# define INTEGER 340
+# define INTO 341
+# define IS 342
+# define ISOLATION 343
+# define JOIN 344
+# define KEY 345
+# define KW_CHAR 346
+# define KW_DEC 347
+# define KW_DOUBLE 348
+# define KW_FILE 349
+# define KW_FLOAT 350
+# define KW_INT 351
+# define KW_LONG 352
+# define KW_NULL 353
+# define KW_NUMERIC 354
+# define KW_UPPER 355
+# define KW_VALUE 356
+# define LENGTH 357
+# define LOGFILE 358
+# define LPAREN 359
+# define LEFT 360
+# define LEQ 361
+# define LEVEL 362
+# define LIKE 363
+# define LOG_BUF_SIZE 364
+# define LSS 365
+# define MANUAL 366
+# define MAXIMUM 367
+# define MAX_SEGMENT 368
+# define MERGE 369
+# define MESSAGE 370
+# define MINIMUM 371
+# define MODULE_NAME 372
+# define NAMES 373
+# define NATIONAL 374
+# define NATURAL 375
+# define NCHAR 376
+# define NEQ 377
+# define NO 378
+# define NOT 379
+# define NOT_GTR 380
+# define NOT_LSS 381
+# define NUM_LOG_BUFS 382
+# define OF 383
+# define ON 384
+# define ONLY 385
+# define OPTION 386
+# define OR 387
+# define ORDER 388
+# define OUTER 389
+# define OUTPUT_TYPE 390
+# define OVERFLOW 391
+# define PAGE 392
+# define PAGES 393
+# define PAGE_SIZE 394
+# define PARAMETER 395
+# define PASSWORD 396
+# define PLAN 397
+# define POSITION 398
+# define POST_EVENT 399
+# define PRECISION 400
+# define PRIMARY 401
+# define PRIVILEGES 402
+# define PROCEDURE 403
+# define PROTECTED 404
+# define RAW_PARTITIONS 405
+# define READ 406
+# define REAL 407
+# define REFERENCES 408
+# define RESERVING 409
+# define RETAIN 410
+# define RETURNING_VALUES 411
+# define RETURNS 412
+# define REVOKE 413
+# define RIGHT 414
+# define RPAREN 415
+# define ROLLBACK 416
+# define SEGMENT 417
+# define SELECT 418
+# define SET 419
+# define SHADOW 420
+# define SHARED 421
+# define SINGULAR 422
+# define SIZE 423
+# define SMALLINT 424
+# define SNAPSHOT 425
+# define SOME 426
+# define SORT 427
+# define SQLCODE 428
+# define STABILITY 429
+# define STARTING 430
+# define STATISTICS 431
+# define SUB_TYPE 432
+# define SUSPEND 433
+# define SUM 434
+# define TABLE 435
+# define THEN 436
+# define TO 437
+# define TRANSACTION 438
+# define TRIGGER 439
+# define UNCOMMITTED 440
+# define UNION 441
+# define UNIQUE 442
+# define UPDATE 443
+# define USER 444
+# define VALUES 445
+# define VARCHAR 446
+# define VARIABLE 447
+# define VARYING 448
+# define VERSION 449
+# define VIEW 450
+# define WAIT 451
+# define WHEN 452
+# define WHERE 453
+# define WHILE 454
+# define WITH 455
+# define WORK 456
+# define WRITE 457
+# define FLOAT 458
+# define NUMBER 459
+# define NUMERIC 460
+# define SYMBOL 461
+# define STRING 462
+# define INTRODUCER 463
+# define ACTION 464
+# define ADMIN 465
+# define CASCADE 466
+# define FREE_IT 467
+# define RESTRICT 468
+# define ROLE 469
+# define COLUMN 470
+# define TYPE 471
+# define EXTRACT 472
+# define YEAR 473
+# define MONTH 474
+# define DAY 475
+# define HOUR 476
+# define MINUTE 477
+# define SECOND 478
+# define WEEKDAY 479
+# define YEARDAY 480
+# define TIME 481
+# define TIMESTAMP 482
+# define CURRENT_DATE 483
+# define CURRENT_TIME 484
+# define CURRENT_TIMESTAMP 485
+# define NUMBER64BIT 486
+# define SCALEDINT 487
+
+#ifdef __STDC__
+#include <stdlib.h>
+#include <string.h>
+#else
+#include <malloc.h>
+#include <memory.h>
+#endif
+
+
+
+#ifdef __cplusplus
+
+#ifndef yyerror
+static void yyerror(TEXT *);
+#endif
+
+#ifndef yylex
+#ifdef __EXTERN_C__
+extern "C" {
+	int yylex(USHORT, USHORT, USHORT, BOOLEAN *);
+}
+#else
+int yylex(USHORT, USHORT, USHORT, BOOLEAN *);
+#endif
+#endif
+int dsql_yyparse(USHORT, USHORT, USHORT, BOOLEAN *);
+
+#endif // __cplusplus
+
+
+#define yyclearin DSQL_yychar = -1
+#define yyerrok DSQL_yyerrflag = 0
+extern int DSQL_yychar;
+extern int DSQL_yyerrflag;
+#ifndef YYSTYPE
+#define YYSTYPE int
+#endif
+static YYSTYPE yylval;
+static YYSTYPE yyval;
+typedef int yytabelem;
+#ifndef YYMAXDEPTH
+#define YYMAXDEPTH 150
+#endif
+#if YYMAXDEPTH > 0
+static int yy_yys[YYMAXDEPTH], *yys = yy_yys;
+static YYSTYPE yy_yyv[YYMAXDEPTH], *yyv = yy_yyv;
+#else /* user does initial allocation */
+static int *yys;
+static YYSTYPE *yyv;
+#endif
+static int yymaxdepth = YYMAXDEPTH;
+# define YYERRCODE 256
+
+
+
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		lex.c
+ *	DESCRIPTION:	Lexical routine
+ *
+ */
+
+#include "../dsql/chars.h"
+
+#define MAX_TOKEN_LEN   256
+#define CHECK_BOUND(to)\
+    {\
+    if ((to - string) >= MAX_TOKEN_LEN)        \
+	yyabandon (-104, isc_token_too_long); \
+    }
+#define CHECK_COPY_INCR(to,ch){CHECK_BOUND(to); *to++=ch;}
+
+
+static TEXT *lex_position(void);
+static BOOLEAN long_int(NOD, SLONG *);
+static FLD make_field(NOD);
+static FIL make_file(void);
+static NOD make_list(NOD);
+static NOD make_node(NOD_TYPE, int, ...);
+static NOD make_flag_node(NOD_TYPE, SSHORT, int, ...);
+static BOOLEAN short_int(NOD, SLONG *, SSHORT);
+static void stack_nodes(NOD, LLS *);
+static int yylex(USHORT, USHORT, USHORT, BOOLEAN *);
+static void yyerror(TEXT *);
+static void yyabandon(SSHORT, STATUS);
+static void check_log_file_attrs();
+
+static TEXT *ptr, *end, *last_token, *line_start;
+static SSHORT lines, att_charset;
+
+struct TOK {
+	USHORT tok_ident;
+	const char *tok_string;
+	USHORT tok_version;
+};
+
+
+const TOK tokens[] = {
+#include "../dsql/keywords.h"
+	{0, 0, 0}
+};
+
+
+void LEX_dsql_init(void)
+{
+/**************************************
+ *
+ *	L E X _ d s q l _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize LEX for processing.  This is called only once
+ *	per session.
+ *
+ **************************************/
+
+	for (const TOK * token = tokens; token->tok_string; ++token) {
+		SYM symbol;
+		STR str;
+
+		symbol = (SYM) ALLOCPV(type_sym, 0);
+		symbol->sym_string = (TEXT *) token->tok_string;
+		symbol->sym_length = strlen(token->tok_string);
+		symbol->sym_type = SYM_keyword;
+		symbol->sym_keyword = token->tok_ident;
+		symbol->sym_version = token->tok_version;
+		str = (STR) ALLOCPV(type_str, symbol->sym_length);
+		str->str_length = symbol->sym_length;
+		strncpy(reinterpret_cast < char *>(str->str_data), symbol->sym_string,
+				symbol->sym_length);
+		symbol->sym_object = (void *) str;
+		HSHD_insert(symbol);
+	}
+}
+
+
+void LEX_string( TEXT * string, USHORT length, SSHORT character_set)
+{
+/**************************************
+ *
+ *	L E X _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize LEX to process a string.
+ *
+ **************************************/
+
+	line_start = ptr = string;
+	end = string + length;
+	lines = 1;
+	att_charset = character_set;
+}
+
+
+static void check_log_file_attrs(void)
+{
+/**********************************************
+ *
+ *	c h e c k _ l o g _ f i l e _ a t t r s
+ *
+ **********************************************
+ *
+ * Functional description
+ *	Check if log file attributes are valid
+ *
+ *********************************************/
+
+	if (file->fil_partitions) {
+		if (!file->fil_length) {
+			yyabandon(-261, isc_log_length_spec);
+			/* Total length of a partitioned log must be specified */
+		}
+
+		if (PARTITION_SIZE(OneK * file->fil_length, file->fil_partitions) <
+			(OneK * MIN_LOG_LENGTH)) {
+			yyabandon(-239, isc_partition_too_small);
+			/* Log partition size too small */
+		}
+	}
+	else {
+		if ((file->fil_length) && (file->fil_length < MIN_LOG_LENGTH)) {
+			yyabandon(-239, isc_log_too_small);	/* Log size too small */
+		}
+	}
+}
+
+
+static TEXT *lex_position(void)
+{
+/**************************************
+ *
+ *	l e x _ p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return the current position of LEX 
+ *	in the input string.
+ *
+ **************************************/
+
+	return ptr;
+}
+
+
+static BOOLEAN long_int( NOD string, SLONG * long_value)
+{
+/*************************************
+ *
+ *	l o n g _ i n t
+ * 
+ *************************************
+ *
+ * Functional description
+ *	checks for all digits in the
+ *	number and return an atol().
+ *
+ *************************************/
+	UCHAR *p;
+
+	for (p = ((STR) string)->str_data; classes[*p] & CHR_DIGIT; p++)
+		if (!(classes[*p] & CHR_DIGIT))
+			return FALSE;
+
+	*long_value = atol((char *) ((STR) string)->str_data);
+
+	return TRUE;
+}
+
+
+static FLD make_field( NOD field_name)
+{
+/**************************************
+ *
+ *	m a k e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a field block of given name.
+ *
+ **************************************/
+	FLD field;
+	STR string;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	if (field_name == NULL) {
+		field = (FLD) ALLOCDV(type_fld, sizeof(INTERNAL_FIELD_NAME));
+		strcpy(field->fld_name, (TEXT *) INTERNAL_FIELD_NAME);
+		return field;
+	}
+	string = (STR) field_name->nod_arg[1];
+	field = (FLD) ALLOCDV(type_fld, strlen((SCHAR *) string->str_data));
+	strcpy(field->fld_name, (TEXT *) string->str_data);
+
+	return field;
+}
+
+
+static FIL make_file(void)
+{
+/**************************************
+ *
+ *	m a k e _ f i l e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a file block
+ *
+ **************************************/
+	FIL temp_file;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	temp_file = (FIL) ALLOCD(type_fil);
+
+	return temp_file;
+}
+
+
+static NOD make_list( NOD node)
+{
+/**************************************
+ *
+ *	m a k e _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Collapse nested list nodes into single list.
+ *
+ **************************************/
+	NOD *ptr;
+	LLS stack, temp;
+	USHORT l;
+	NOD old;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	if (!node)
+		return node;
+
+	stack = 0;
+	stack_nodes(node, &stack);
+	for (l = 0, temp = stack; temp; temp = temp->lls_next)
+		l++;
+
+	old = node;
+	node = (NOD) ALLOCDV(type_nod, l);
+	node->nod_count = l;
+	node->nod_type = nod_list;
+	node->nod_flags = old->nod_flags;
+	ptr = node->nod_arg + node->nod_count;
+
+	while (stack)
+		*--ptr = (NOD) LLS_POP(&stack);
+
+	return node;
+}
+
+
+static NOD make_node( NOD_TYPE type, int count, ...)
+{
+/**************************************
+ *
+ *	m a k e _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a node of given type.
+ *	Any change should also be made to function below
+ *
+ **************************************/
+	NOD node, *p;
+	va_list ptr;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	node = (NOD) ALLOCDV(type_nod, count);
+	node->nod_type = type;
+	node->nod_count = count;
+	p = node->nod_arg;
+	VA_START(ptr, count);
+
+	while (--count >= 0)
+		*p++ = va_arg(ptr, NOD);
+
+	return node;
+}
+
+
+static NOD make_flag_node( NOD_TYPE type, SSHORT flag, int count, ...)
+{
+/**************************************
+ *
+ *	m a k e _ f l a g _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a node of given type. Set flag field
+ *
+ **************************************/
+	NOD node, *p;
+	va_list ptr;
+	TSQL tdsql;
+
+	tdsql = GET_THREAD_DATA;
+
+	node = (NOD) ALLOCDV(type_nod, count);
+	node->nod_type = type;
+	node->nod_flags = flag;
+	node->nod_count = count;
+	p = node->nod_arg;
+	VA_START(ptr, count);
+
+	while (--count >= 0)
+		*p++ = va_arg(ptr, NOD);
+
+	return node;
+}
+
+
+static BOOLEAN short_int( NOD string, SLONG * long_value, SSHORT range)
+{
+/*************************************
+ *
+ *	s h o r t _ i n t
+ * 
+ *************************************
+ *
+ * Functional description
+ *	is the string a valid representation 
+ *	of a positive short int?
+ *
+ *************************************/
+	UCHAR *p;
+	SCHAR buf[10];
+	BOOLEAN return_value;
+
+	if (((STR) string)->str_length > 5)
+		return FALSE;
+
+	for (p = ((STR) string)->str_data; classes[*p] & CHR_DIGIT; p++)
+		if (!(classes[*p] & CHR_DIGIT))
+			return FALSE;
+
+/* there are 5 or fewer digits, it's value may still be greater
+ * than 32767... */
+
+	buf[0] = ((STR) string)->str_data[0];
+	buf[1] = ((STR) string)->str_data[1];
+	buf[2] = ((STR) string)->str_data[2];
+	buf[3] = ((STR) string)->str_data[3];
+	buf[4] = ((STR) string)->str_data[4];
+	buf[5] = '\0';
+
+	*long_value = atoi(buf);
+
+	switch (range) {
+	case POSITIVE:
+		return_value = *long_value > SHRT_POS_MAX;
+		break;
+	case NEGATIVE:
+		return_value = *long_value > SHRT_NEG_MAX;
+		break;
+	case UNSIGNED:
+		return_value = *long_value > SHRT_UNSIGNED_MAX;
+		break;
+	}
+	return !return_value;
+}
+
+
+static void stack_nodes( NOD node, LLS * stack)
+{
+/**************************************
+ *
+ *	s t a c k _ n o d e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Assist in turning a tree of misc nodes into a clean list.
+ *
+ **************************************/
+	NOD *ptr, *end;
+	NOD curr_node, next_node, start_chain, end_chain, save_link;
+
+	if (node->nod_type != nod_list) {
+		LLS_PUSH(node, stack);
+		return;
+	}
+
+/* To take care of cases where long lists of nodes are in a chain
+   of list nodes with exactly one entry, this algorithm will look
+   for a pattern of repeated list nodes with two entries, the first
+   being a list node and the second being a non-list node.   Such
+   a list will be reverse linked, and then re-reversed, stacking the
+   non-list nodes in the process.   The purpose of this is to avoid
+   massive recursion of this function. */
+
+	start_chain = node;
+	end_chain = (NOD) NULL;
+	curr_node = node;
+	next_node = node->nod_arg[0];
+	while (curr_node->nod_count == 2 &&
+		   curr_node->nod_arg[0]->nod_type == nod_list &&
+		   curr_node->nod_arg[1]->nod_type != nod_list &&
+		   next_node->nod_arg[0]->nod_type == nod_list &&
+		   next_node->nod_arg[1]->nod_type != nod_list) {
+
+		/* pattern was found so reverse the links and go to next node */
+
+		save_link = next_node->nod_arg[0];
+		next_node->nod_arg[0] = curr_node;
+		curr_node = next_node;
+		next_node = save_link;
+		end_chain = curr_node;
+	}
+
+/* see if any chain was found */
+
+	if (end_chain) {
+
+		/* first, handle the rest of the nodes */
+		/* note that next_node still points to the first non-pattern node */
+
+		stack_nodes(next_node, stack);
+
+		/* stack the non-list nodes and reverse the chain on the way back */
+
+		curr_node = end_chain;
+		while (TRUE) {
+			LLS_PUSH(curr_node->nod_arg[1], stack);
+			if (curr_node == start_chain)
+				break;
+			save_link = curr_node->nod_arg[0];
+			curr_node->nod_arg[0] = next_node;
+			next_node = curr_node;
+			curr_node = save_link;
+		}
+		return;
+	}
+
+	for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end; ptr++)
+		stack_nodes(*ptr, stack);
+}
+
+
+static int yylex(
+				 USHORT client_dialect,
+				 USHORT db_dialect,
+				 USHORT parser_version, BOOLEAN * stmt_ambiguous)
+{
+/**************************************
+ *
+ *	y y l e x
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	UCHAR *p, class_, string[MAX_TOKEN_LEN], *buffer, *buffer_end,
+		*new_buffer;
+	SYM sym;
+	SSHORT c;
+	USHORT buffer_len;
+
+	STR delimited_id_str;
+
+/* Find end of white space and skip comments */
+
+	for (;;) {
+		if (ptr >= end)
+			return -1;
+
+		c = *ptr++;
+
+		if (c == '\n') {
+			lines++;
+			line_start = ptr + 1;
+		}
+
+		if ((c == '/') && (*ptr == '*')) {
+			ptr++;
+			while (ptr < end) {
+				if ((c = *ptr++) == '*') {
+					if (*ptr == '/')
+						break;
+				}
+				if (c == '\n') {
+					lines++;
+					line_start = ptr + 1;
+				}
+			}
+			if (ptr >= end)
+				return -1;
+			ptr++;
+			continue;
+		}
+
+#if (! ( defined JPN_SJIS || defined JPN_EUC) )
+		class_ = classes[c];
+#else
+		c = c & 0xff;
+		class_ = (JPN1_CHAR(c) ? CHR_LETTER : classes[c]);
+#endif /*JPN_SJIS || JPN_EUC */
+
+		if (!(class_ & CHR_WHITE))
+			break;
+	}
+
+/* Depending on class of token, parse token */
+
+	last_token = ptr - 1;
+
+	if (class_ & CHR_INTRODUCER) {
+		/* The Introducer (_) is skipped, all other idents are copied
+		 * to become the name of the character set
+		 */
+		p = string;
+		for (; ptr < end && classes[*ptr] & CHR_IDENT; ptr++) {
+			if (ptr >= end)
+				return -1;
+			CHECK_COPY_INCR(p, UPPER7(*ptr));
+		}
+
+		CHECK_BOUND(p);
+		*p = 0;
+
+		/* make a string value to hold the name, the name 
+		 * is resolved in pass1_constant */
+
+		yylval = (NOD) (MAKE_string(string, p - string))->str_data;
+
+		return INTRODUCER;
+	}
+
+/* parse a quoted string, being sure to look for double quotes */
+
+	if (class_ & CHR_QUOTE) {
+		buffer = string;
+		buffer_len = sizeof(string);
+		buffer_end = buffer + buffer_len - 1;
+		for (p = buffer;; p++) {
+			if (ptr >= end) {
+				if (buffer != string)
+					gds__free(buffer);
+				return -1;
+			}
+			/* *ptr is quote - if next != quote we're at the end */
+			if ((*ptr == c) && ((++ptr == end) || (*ptr != c)))
+				break;
+			if (p > buffer_end) {
+				new_buffer = (UCHAR *) gds__alloc(2 * buffer_len);
+				/* FREE: at outer block */
+				if (!new_buffer) {	/* NOMEM: */
+					if (buffer != string)
+						gds__free(buffer);
+					return -1;
+				}
+				memcpy(new_buffer, buffer, buffer_len);
+				if (buffer != string)
+					gds__free(buffer);
+				buffer = new_buffer;
+				p = buffer + buffer_len;
+				buffer_len = 2 * buffer_len;
+				buffer_end = buffer + buffer_len - 1;
+			}
+			*p = *ptr++;
+		}
+		if (c == '"') {
+			*stmt_ambiguous = TRUE;	/* string delimited by double quotes could be
+									   **   either a string constant or a SQL delimited
+									   **   identifier, therefore marks the SQL
+									   **   statement as ambiguous  */
+			if (client_dialect == SQL_DIALECT_V6_TRANSITION) {
+				if (buffer != string)
+					gds__free(buffer);
+				yyabandon(-104, isc_invalid_string_constant);
+			}
+			else if (client_dialect >= SQL_DIALECT_V6) {
+				if ((p - buffer) >= MAX_TOKEN_LEN) {
+					if (buffer != string)
+						gds__free(buffer);
+					yyabandon(-104, isc_token_too_long);
+				}
+				yylval = (NOD) MAKE_string(buffer, p - buffer);
+				delimited_id_str = (STR) yylval;
+				delimited_id_str->str_flags |= STR_delimited_id;
+				if (buffer != string)
+					gds__free(buffer);
+				return SYMBOL;
+			}
+		}
+		yylval = (NOD) MAKE_string(buffer, p - buffer);
+		if (buffer != string)
+			gds__free(buffer);
+		return STRING;
+	}
+
+/* 
+ * Check for a numeric constant, which starts either with a digit or with
+ * a decimal point followed by a digit.
+ * 
+ * This code recognizes the following token types:
+ * 
+ * NUMBER: string of digits which fits into a 32-bit integer
+ * 
+ * NUMBER64BIT: string of digits whose value might fit into an SINT64,
+ *   depending on whether or not there is a preceding '-', which is to
+ *   say that "9223372036854775808" is accepted here.
+ *
+ * SCALEDINT: string of digits and a single '.', where the digits
+ *   represent a value which might fit into an SINT64, depending on
+ *   whether or not there is a preceding '-'.
+ *
+ * FLOAT: string of digits with an optional '.', and followed by an "e"
+ *   or "E" and an optionally-signed exponent.
+ *
+ * NOTE: we swallow leading or trailing blanks, but we do NOT accept
+ *   embedded blanks:
+ *
+ * Another note: c is the first character which need to be considered,
+ *   ptr points to the next character.
+ */
+
+	assert(ptr <= end);
+
+	if ((class_ & CHR_DIGIT) ||
+		((c == '.') && (ptr < end) && (classes[*ptr] & CHR_DIGIT))) {
+		/* The following variables are used to recognize kinds of numbers. */
+
+		BOOLEAN have_error = FALSE;	/* syntax error or value too large */
+		BOOLEAN have_digit = FALSE;	/* we've seen a digit              */
+		BOOLEAN have_decimal = FALSE;	/* we've seen a '.'                */
+		BOOLEAN have_exp = FALSE;	/* digit ... [eE]                  */
+		BOOLEAN have_exp_sign = FALSE;	/* digit ... [eE] {+-]             */
+		BOOLEAN have_exp_digit = FALSE;	/* digit ... [eE] ... digit        */
+		UINT64 number = 0;
+		UINT64 limit_by_10 = MAX_SINT64 / 10;
+
+		for (--ptr; ptr < end; ptr++) {
+			c = *ptr;
+			if (have_exp_digit && (!(classes[c] & CHR_DIGIT)))
+				/* First non-digit after exponent and digit terminates
+				   the token. */
+				break;
+			else if (have_exp_sign && (!(classes[c] & CHR_DIGIT))) {
+				/* only digits can be accepted after "1E-" */
+				have_error = TRUE;
+				break;
+			}
+			else if (have_exp) {
+				/* We've seen e or E, but nothing beyond that. */
+				if (('-' == c) || ('+' == c))
+					have_exp_sign = TRUE;
+				else if (classes[c] & CHR_DIGIT)
+					/* We have a digit: we haven't seen a sign yet,
+					   but it's too late now. */
+					have_exp_digit = have_exp_sign = TRUE;
+				else {
+					/* end of the token */
+					have_error = TRUE;
+					break;
+				}
+			}
+			else if ('.' == c) {
+				if (!have_decimal)
+					have_decimal = TRUE;
+				else {
+					have_error = TRUE;
+					break;
+				}
+			}
+			else if (classes[c] & CHR_DIGIT) {
+				/* Before computing the next value, make sure there will be
+				   no overflow.  */
+
+				have_digit = TRUE;
+
+				if (number >= limit_by_10)
+					/* possibility of an overflow */
+					if ((number > limit_by_10) || (c > '8')) {
+						have_error = TRUE;
+						break;
+					}
+				number = number * 10 + (c - '0');
+			}
+			else if ((('E' == c) || ('e' == c)) && have_digit)
+				have_exp = TRUE;
+			else
+				/* Unexpected character: this is the end of the number. */
+				break;
+		}
+
+		/* We're done scanning the characters: now return the right kind
+		   of number token, if any fits the bill. */
+
+		if (!have_error) {
+			assert(have_digit);
+
+			if (have_exp_digit) {
+				yylval = (NOD) MAKE_string((UCHAR *) last_token,
+										   ptr - last_token);
+				return FLOAT;
+			}
+			else if (!have_exp) {
+
+				/* We should return some kind (scaled-) integer type
+				   except perhaps in dialect 1. */
+
+				if (!have_decimal && (number <= MAX_SLONG)) {
+					yylval = (NOD) number;
+					return NUMBER;
+				}
+				else {
+					/* We have either a decimal point with no exponent
+					   or a string of digits whose value exceeds MAX_SLONG:
+					   the returned type depends on the client dialect,
+					   so warn of the difference if the client dialect is
+					   SQL_DIALECT_V6_TRANSITION.
+					 */
+
+					if (SQL_DIALECT_V6_TRANSITION == client_dialect) {
+						/* Issue a warning about the ambiguity of the numeric
+						 * numeric literal.  There are multiple calls because
+						 * the message text exceeds the 119-character limit
+						 * of our message database.
+						 */
+						ERRD_post_warning(isc_dsql_warning_number_ambiguous,
+										  gds_arg_string,
+										  ERR_string(last_token,
+													 ptr - last_token),
+										  gds_arg_end);
+						ERRD_post_warning(isc_dsql_warning_number_ambiguous1,
+										  gds_arg_end);
+					}
+
+					yylval = (NOD) MAKE_string((UCHAR *) last_token,
+											   ptr - last_token);
+
+					if (client_dialect < SQL_DIALECT_V6_TRANSITION)
+						return FLOAT;
+					else if (have_decimal)
+						return SCALEDINT;
+					else
+						return NUMBER64BIT;
+				}
+			}					/* else if (!have_exp) */
+		}						/* if (!have_error) */
+
+		/* we got some kind of error or overflow, so don't recognize this
+		 * as a number: just pass it through to the next part of the lexer.
+		 */
+	}
+
+/* Restore the status quo ante, before we started our unsuccessful
+   attempt to recognize a number. */
+	ptr = last_token;
+	c = *ptr++;
+/* We never touched class, so it doesn't need to be restored. */
+
+/* end of number-recognition code */
+
+
+	if (class_ & CHR_LETTER) {
+#if (! ( defined JPN_SJIS || defined JPN_EUC) )
+		p = string;
+		CHECK_COPY_INCR(p, UPPER(c));
+		for (; ptr < end && classes[*ptr] & CHR_IDENT; ptr++) {
+			if (ptr >= end)
+				return -1;
+			CHECK_COPY_INCR(p, UPPER(*ptr));
+		}
+#else
+		for (; ptr <= end; c = *ptr++, c = c & 0xff) {
+			if (KANJI1(c)) {
+				CHECK_COPY_INCR(p, UPPER(c));
+				if (ptr >= end)
+					break;
+
+				c = *ptr++;
+				c = c & 0xff;
+				if (!KANJI2(c)) {
+					ptr--;
+					break;
+				}
+				else
+					CHECK_COPY_INCR(p, c);
+			}
+			else {
+#ifdef JPN_SJIS
+				if ((SJIS_SINGLE(c)) || (classes[c] & CHR_IDENT))
+#else
+				if (classes[c] & CHR_IDENT)
+#endif
+				{
+					CHECK_COPY_INCR(p, UPPER(c));
+					if (ptr >= end)
+						break;
+				}
+				else {
+					ptr--;
+					break;
+				}
+			}
+		}
+#endif /* JPN_SJIS || JPN_EUC */
+
+		CHECK_BOUND(p);
+		*p = 0;
+		sym =
+			HSHD_lookup(0, (TEXT *) string, p - string, SYM_keyword,
+						parser_version);
+		if (sym) {
+			yylval = (NOD) sym->sym_object;
+			return sym->sym_keyword;
+		};
+		yylval = (NOD) MAKE_string(string, p - string);
+		return SYMBOL;
+	}
+
+/* Must be punctuation -- test for double character punctuation */
+
+	if (last_token + 1 < end) {
+		sym = HSHD_lookup(0, last_token, 2, SYM_keyword, parser_version);
+		if (sym) {
+			++ptr;
+			return sym->sym_keyword;
+		}
+	}
+
+/* Single character punctuation are simply passed on */
+
+	return c;
+}
+
+
+static void yyerror(TEXT * error_string)
+{
+/**************************************
+ *
+ *	y y e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a syntax error.
+ *
+ **************************************/
+
+	if (DSQL_yychar < 1)
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104, gds_arg_gds, gds_command_end_err,	/* Unexpected end of command */
+				  0);
+	else {
+		ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+				  gds_arg_gds, gds_dsql_token_unk_err,
+				  gds_arg_number, (SLONG) lines,
+				  gds_arg_number, (SLONG) (last_token - line_start),
+				  /* Token unknown - line %d, char %d */
+				  gds_arg_gds, gds_random,
+				  gds_arg_cstring, (int) (ptr - last_token), last_token, 0);
+	}
+}
+
+
+static void yyabandon( SSHORT sql_code, STATUS error_symbol)
+{
+/**************************************
+ *
+ *	y y a b a n d o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abandon the parsing outputting the supplied string
+ *
+ **************************************/
+
+	ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) sql_code,
+			  gds_arg_gds, error_symbol, 0);
+}
+static const yytabelem yyexca[] = {
+	-1, 1,
+	0, -1,
+	-2, 0,
+	-1, 194,
+	46, 836,
+	-2, 824,
+	-1, 299,
+	40, 820,
+	46, 836,
+	-2, 824,
+	-1, 363,
+	412, 76,
+	-2, 206,
+	-1, 465,
+	437, 399,
+	-2, 824,
+	-1, 637,
+	344, 601,
+	-2, 577,
+	-1, 1042,
+	344, 601,
+	-2, 578,
+	-1, 1069,
+	278, 225,
+	379, 225,
+	401, 225,
+	408, 225,
+	442, 225,
+	-2, 213,
+	-1, 1114,
+	278, 339,
+	-2, 123,
+	-1, 1200,
+	278, 225,
+	379, 225,
+	401, 225,
+	408, 225,
+	442, 225,
+	-2, 214,
+	-1, 1231,
+	278, 339,
+	-2, 124,
+	-1, 1407,
+	344, 601,
+	-2, 331,
+	-1, 1484,
+	344, 601,
+	-2, 332,
+};
+# define YYNPROD 842
+# define YYLAST 3728
+static const yytabelem yyact[] = {
+
+	278, 1511, 1303, 596, 991, 269, 1471, 1185, 131, 1438,
+	1428, 1039, 266, 853, 1512, 271, 1491, 1407, 850, 1414,
+	567, 1422, 1421, 197, 1423, 128, 400, 916, 1408, 1386,
+	222, 646, 641, 420, 528, 1305, 1416, 617, 265, 44,
+	1189, 119, 45, 1178, 292, 758, 1323, 15, 940, 1232,
+	120, 383, 593, 521, 1095, 937, 497, 906, 459, 699,
+	611, 1078, 1050, 1080, 1201, 460, 270, 947, 1417, 122,
+	159, 193, 791, 946, 914, 259, 280, 917, 263, 722,
+	1082, 480, 721, 191, 1027, 136, 973, 792, 168, 527,
+	207, 530, 130, 399, 205, 637, 785, 173, 478, 164,
+	572, 708, 789, 966, 204, 1112, 744, 175, 377, 902,
+	693, 494, 179, 206, 186, 223, 39, 790, 133, 571,
+	1096, 257, 945, 120, 793, 468, 923, 474, 732, 190,
+	690, 518, 769, 225, 996, 638, 1306, 226, 412, 396,
+	569, 169, 575, 515, 766, 315, 737, 1235, 305, 304,
+	303, 618, 371, 616, 707, 318, 466, 685, 192, 684,
+	801, 1251, 1515, 1494, 509, 196, 187, 188, 47, 297,
+	194, 461, 795, 308, 456, 160, 306, 307, 840, 1518,
+	562, 214, 795, 264, 1281, 177, 672, 673, 674, 675,
+	676, 677, 678, 679, 450, 335, 209, 297, 328, 449,
+	562, 208, 368, 373, 1493, 448, 1410, 534, 224, 1283,
+	345, 554, 424, 339, 354, 161, 640, 165, 46, 694,
+	374, 686, 46, 992, 129, 193, 1468, 121, 121, 235,
+	540, 137, 385, 559, 647, 194, 1113, 378, 193, 258,
+	296, 92, 180, 134, 374, 163, 618, 329, 386, 787,
+	397, 1492, 687, 554, 46, 1472, 796, 193, 367, 183,
+	386, 761, 425, 452, 103, 384, 46, 1282, 788, 419,
+	416, 367, 540, 297, 552, 559, 296, 187, 188, 364,
+	555, 560, 551, 100, 548, 553, 549, 794, 546, 212,
+	202, 46, 797, 382, 414, 94, 948, 794, 954, 1109,
+	915, 121, 310, 798, 374, 47, 127, 974, 558, 109,
+	557, 60, 635, 193, 374, 402, 552, 1425, 409, 651,
+	99, 621, 555, 560, 551, 191, 548, 553, 549, 341,
+	546, 1037, 578, 842, 433, 434, 435, 632, 124, 408,
+	774, 550, 764, 372, 194, 773, 182, 163, 1211, 1462,
+	558, 465, 557, 394, 1250, 506, 372, 42, 539, 327,
+	141, 142, 143, 144, 145, 146, 147, 148, 149, 150,
+	151, 152, 153, 154, 155, 156, 502, 330, 505, 1463,
+	556, 715, 1038, 550, 503, 45, 511, 385, 510, 102,
+	712, 1110, 620, 418, 393, 163, 524, 525, 162, 98,
+	539, 113, 576, 1175, 523, 702, 408, 1220, 799, 425,
+	574, 331, 219, 115, 925, 541, 542, 706, 713, 573,
+	384, 403, 556, 576, 101, 1504, 415, 710, 516, 367,
+	904, 629, 501, 1218, 338, 533, 1281, 423, 532, 1122,
+	405, 262, 103, 950, 630, 1292, 847, 634, 382, 939,
+	256, 595, 504, 694, 112, 656, 488, 541, 542, 92,
+	1387, 1283, 239, 846, 42, 1432, 69, 1296, 85, 250,
+	455, 614, 462, 952, 1293, 78, 496, 70, 476, 86,
+	84, 938, 565, 264, 62, 322, 701, 644, 645, 500,
+	648, 649, 650, 652, 689, 407, 1179, 68, 580, 293,
+	79, 100, 782, 903, 249, 264, 669, 655, 1295, 193,
+	720, 293, 406, 94, 652, 1431, 472, 703, 117, 1282,
+	1462, 191, 714, 668, 1228, 116, 1430, 700, 724, 624,
+	926, 711, 247, 589, 323, 252, 736, 236, 99, 533,
+	1499, 251, 532, 728, 729, 730, 731, 167, 254, 691,
+	401, 254, 1204, 1396, 747, 587, 281, 619, 45, 390,
+	723, 753, 407, 369, 857, 80, 104, 618, 281, 220,
+	772, 754, 194, 709, 64, 969, 705, 248, 854, 1186,
+	967, 1213, 87, 193, 755, 941, 942, 779, 1215, 385,
+	45, 71, 193, 193, 615, 802, 516, 81, 778, 163,
+	194, 82, 855, 820, 378, 397, 65, 102, 777, 566,
+	66, 1046, 83, 73, 821, 752, 291, 98, 692, 163,
+	576, 67, 805, 1481, 749, 1045, 815, 121, 717, 194,
+	1429, 88, 47, 193, 781, 804, 47, 137, 1044, 1478,
+	72, 566, 101, 734, 1334, 419, 324, 919, 1253, 366,
+	803, 984, 740, 566, 841, 760, 856, 748, 750, 232,
+	103, 305, 304, 303, 786, 187, 188, 414, 47, 844,
+	818, 822, 915, 305, 304, 303, 194, 187, 188, 1461,
+	47, 1459, 938, 704, 294, 295, 300, 301, 302, 306,
+	307, 809, 768, 1424, 264, 42, 294, 295, 741, 388,
+	812, 306, 307, 372, 1454, 47, 810, 387, 230, 229,
+	618, 784, 849, 915, 217, 216, 864, 819, 975, 866,
+	867, 868, 869, 870, 871, 872, 873, 874, 875, 891,
+	808, 800, 813, 897, 591, 814, 859, 816, 380, 385,
+	490, 1453, 894, 579, 1236, 526, 402, 92, 883, 1345,
+	765, 350, 1344, 1371, 1455, 1299, 561, 682, 1219, 924,
+	1032, 857, 410, 993, 843, 896, 911, 912, 485, 848,
+	908, 908, 920, 680, 360, 854, 858, 484, 658, 660,
+	662, 664, 666, 930, 909, 918, 1033, 486, 349, 100,
+	352, 489, 963, 670, 960, 817, 1346, 1376, 1513, 855,
+	264, 94, 45, 1340, 884, 218, 1182, 771, 485, 348,
+	921, 1378, 100, 353, 889, 1021, 887, 881, 928, 888,
+	882, 989, 990, 1528, 913, 492, 99, 1485, 898, 979,
+	53, 857, 1024, 1043, 471, 959, 953, 561, 351, 775,
+	1436, 54, 1399, 491, 818, 854, 57, 899, 49, 99,
+	1514, 340, 336, 856, 931, 255, 955, 956, 957, 910,
+	818, 1048, 643, 361, 642, 892, 895, 929, 58, 855,
+	1040, 851, 359, 55, 934, 1144, 316, 1023, 476, 389,
+	949, 326, 213, 968, 994, 999, 1002, 1005, 1008, 1011,
+	1014, 1017, 1020, 1286, 1026, 102, 1029, 1030, 1054, 964,
+	1051, 203, 982, 970, 961, 98, 1022, 517, 776, 1069,
+	985, 981, 332, 219, 987, 1337, 980, 983, 102, 977,
+	978, 1074, 1052, 856, 1053, 986, 1091, 879, 98, 988,
+	101, 193, 811, 807, 193, 969, 57, 588, 52, 1067,
+	1068, 421, 1070, 378, 334, 114, 191, 321, 1042, 45,
+	45, 1075, 623, 101, 317, 1034, 1035, 392, 1087, 1001,
+	1004, 1007, 1010, 1013, 1016, 1019, 622, 627, 631, 817,
+	50, 1114, 344, 1025, 51, 1125, 818, 1066, 45, 818,
+	234, 1098, 76, 75, 818, 817, 841, 738, 343, 746,
+	333, 1094, 1097, 1097, 139, 1105, 1137, 1121, 745, 1093,
+	1136, 1115, 1535, 585, 1071, 1072, 1465, 1076, 1111, 157,
+	312, 1084, 1524, 314, 1507, 1463, 944, 1135, 141, 142,
+	143, 144, 145, 146, 147, 148, 149, 150, 151, 152,
+	153, 154, 155, 156, 385, 125, 1107, 586, 170, 1102,
+	1106, 1104, 193, 125, 1187, 733, 1103, 1143, 490, 1146,
+	1083, 657, 1129, 125, 1190, 1525, 1120, 564, 125, 311,
+	786, 1134, 1142, 1140, 1145, 1139, 1141, 125, 968, 1147,
+	519, 1138, 461, 495, 694, 499, 171, 1205, 1226, 123,
+	1176, 1194, 1167, 1168, 428, 1170, 1171, 667, 498, 1149,
+	427, 594, 1181, 430, 426, 1177, 429, 665, 431, 489,
+	1285, 817, 663, 428, 817, 1206, 890, 430, 1169, 817,
+	735, 661, 431, 757, 759, 751, 1208, 1041, 485, 886,
+	584, 385, 237, 1212, 56, 1214, 1209, 484, 725, 470,
+	1086, 1203, 1079, 492, 908, 1202, 1207, 876, 1480, 1191,
+	469, 1223, 742, 716, 512, 1242, 533, 1216, 45, 532,
+	356, 491, 818, 242, 920, 370, 1196, 520, 96, 1117,
+	1117, 264, 1210, 756, 1224, 1240, 1227, 918, 95, 863,
+	432, 386, 264, 1246, 522, 97, 507, 1516, 1409, 1221,
+	298, 1247, 1248, 90, 633, 1118, 1239, 1229, 1442, 296,
+	231, 1238, 921, 1237, 1433, 89, 1480, 1241, 1395, 1245,
+	430, 426, 1394, 429, 1393, 431, 1391, 493, 1119, 1116,
+	193, 1479, 193, 1288, 107, 1389, 723, 1434, 862, 201,
+	118, 1143, 419, 1388, 191, 43, 106, 1270, 438, 357,
+	479, 1297, 1051, 1273, 1274, 1538, 1301, 1523, 1480, 1480,
+	1500, 1531, 628, 1500, 45, 1451, 1298, 1329, 199, 1278,
+	1275, 1332, 1289, 1276, 1052, 1279, 1287, 1445, 1192, 703,
+	908, 1193, 1294, 1326, 215, 1290, 1202, 1464, 477, 125,
+	1325, 1300, 1328, 1327, 1130, 1330, 1284, 1131, 1148, 1331,
+	582, 1339, 385, 1338, 1335, 193, 1333, 1097, 976, 228,
+	1374, 430, 426, 238, 429, 1343, 431, 1190, 1347, 759,
+	1375, 227, 458, 193, 210, 1385, 974, 878, 463, 430,
+	426, 457, 429, 659, 431, 419, 1123, 1373, 852, 1124,
+	1368, 1099, 386, 1088, 1100, 1372, 1089, 1381, 1366, 1380,
+	783, 428, 1364, 1365, 1390, 1377, 1382, 427, 971, 1369,
+	296, 783, 727, 1367, 625, 428, 120, 610, 592, 578,
+	274, 427, 273, 932, 381, 583, 933, 726, 1503, 386,
+	1401, 1404, 454, 1405, 422, 297, 1402, 1397, 386, 221,
+	296, 1530, 421, 880, 1392, 806, 863, 296, 583, 1418,
+	376, 297, 718, 1419, 363, 719, 1486, 391, 375, 1411,
+	1412, 1482, 1403, 610, 365, 404, 274, 1450, 273, 1379,
+	193, 1363, 1437, 1413, 1441, 1362, 581, 1361, 1420, 582,
+	1360, 297, 1440, 1359, 1426, 1439, 296, 1358, 1357, 120,
+	1356, 1446, 293, 1355, 1444, 1354, 1353, 1418, 1448, 1435,
+	1352, 1443, 1351, 1350, 1349, 1348, 193, 193, 428, 1447,
+	1449, 385, 1342, 1457, 427, 1460, 1477, 1458, 1475, 1440,
+	1466, 1473, 1439, 45, 120, 1456, 1483, 1469, 1341, 1277,
+	1418, 1252, 1446, 1484, 1249, 193, 1244, 1496, 1487, 1243,
+	1490, 1488, 1195, 193, 1476, 1184, 1497, 419, 385, 1501,
+	1495, 193, 1183, 1132, 1128, 1475, 1127, 1474, 1473, 1126,
+	1047, 1508, 865, 1505, 120, 654, 1506, 1489, 1446, 1510,
+	193, 193, 224, 1509, 1400, 193, 385, 1526, 193, 1517,
+	1527, 1476, 1440, 1521, 1398, 1439, 1519, 419, 1529, 193,
+	419, 1370, 1222, 1446, 1474, 193, 1028, 1533, 1532, 428,
+	1534, 1440, 1536, 1537, 1439, 427, 193, 419, 1539, 1522,
+	1165, 1164, 1163, 1162, 1179, 1161, 1160, 428, 419, 1159,
+	1158, 1157, 1520, 427, 1254, 1255, 1256, 1257, 1258, 1259,
+	1260, 1261, 1262, 1263, 1264, 1265, 1266, 1267, 1268, 1269,
+	1180, 1156, 610, 293, 284, 274, 1155, 273, 1154, 1272,
+	1153, 1152, 1151, 287, 305, 304, 303, 1150, 187, 188,
+	297, 1073, 972, 770, 958, 296, 922, 282, 885, 861,
+	839, 838, 767, 293, 277, 763, 762, 294, 295, 671,
+	293, 739, 306, 307, 386, 319, 570, 508, 453, 293,
+	284, 91, 612, 430, 426, 447, 429, 446, 431, 287,
+	445, 444, 296, 59, 289, 430, 426, 443, 429, 442,
+	431, 441, 440, 282, 439, 126, 597, 272, 275, 293,
+	277, 274, 108, 273, 268, 1198, 430, 426, 267, 429,
+	436, 431, 288, 279, 1174, 110, 297, 281, 612, 1315,
+	17, 296, 1312, 11, 286, 609, 281, 608, 285, 607,
+	289, 1307, 8, 606, 605, 604, 599, 603, 1197, 430,
+	426, 602, 429, 275, 431, 601, 274, 600, 273, 598,
+	1092, 1064, 430, 426, 417, 429, 37, 431, 288, 279,
+	36, 297, 26, 25, 430, 426, 296, 429, 927, 431,
+	286, 1180, 1452, 1415, 285, 437, 1280, 1188, 1049, 613,
+	860, 639, 599, 636, 260, 305, 304, 303, 590, 187,
+	188, 283, 1063, 430, 426, 395, 429, 233, 431, 111,
+	32, 276, 626, 413, 1036, 845, 411, 253, 294, 295,
+	246, 245, 244, 306, 307, 305, 304, 303, 299, 187,
+	188, 243, 305, 304, 303, 613, 187, 188, 241, 290,
+	240, 305, 304, 303, 194, 187, 188, 283, 294, 295,
+	300, 301, 302, 306, 307, 294, 295, 276, 337, 284,
+	306, 307, 166, 35, 294, 295, 34, 33, 287, 306,
+	307, 305, 304, 303, 299, 187, 188, 398, 547, 544,
+	543, 545, 282, 780, 951, 290, 538, 537, 293, 277,
+	536, 535, 531, 529, 294, 295, 300, 301, 302, 306,
+	307, 211, 77, 1077, 467, 487, 140, 612, 893, 464,
+	313, 683, 158, 325, 320, 1271, 138, 132, 309, 289,
+	48, 428, 1406, 1336, 936, 293, 1225, 427, 1018, 1108,
+	935, 998, 379, 428, 1467, 284, 1427, 451, 1502, 427,
+	1498, 1470, 1316, 1314, 287, 1311, 1310, 288, 279, 1309,
+	1384, 1302, 1304, 1173, 428, 1081, 473, 135, 282, 286,
+	427, 698, 697, 285, 293, 277, 1062, 430, 426, 696,
+	429, 599, 431, 1015, 695, 1291, 998, 1200, 1065, 475,
+	284, 275, 281, 1199, 274, 688, 273, 428, 743, 287,
+	342, 1085, 901, 427, 1166, 289, 1217, 1090, 907, 297,
+	428, 900, 483, 282, 296, 905, 427, 482, 481, 293,
+	277, 514, 428, 347, 613, 1061, 430, 426, 427, 429,
+	513, 431, 346, 288, 279, 185, 283, 1234, 1060, 430,
+	426, 1233, 429, 1231, 431, 286, 276, 1230, 943, 285,
+	289, 428, 355, 275, 1133, 962, 274, 427, 273, 563,
+	305, 304, 303, 299, 187, 188, 358, 198, 195, 189,
+	184, 297, 181, 178, 290, 176, 296, 174, 288, 279,
+	172, 1101, 63, 294, 295, 300, 301, 302, 306, 307,
+	286, 61, 965, 568, 285, 362, 200, 305, 304, 303,
+	74, 187, 188, 105, 997, 1059, 430, 426, 93, 429,
+	577, 431, 283, 16, 14, 13, 12, 10, 9, 7,
+	294, 295, 276, 6, 5, 306, 307, 1058, 430, 426,
+	4, 429, 3, 431, 2, 1, 305, 304, 303, 299,
+	187, 188, 1057, 430, 426, 0, 429, 0, 431, 997,
+	290, 0, 1056, 430, 426, 0, 429, 283, 431, 294,
+	295, 300, 301, 302, 306, 307, 0, 276, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 305, 304, 303, 299, 187, 188, 0, 0, 0,
+	0, 0, 0, 0, 0, 290, 0, 0, 0, 0,
+	0, 0, 0, 0, 294, 295, 300, 301, 302, 306,
+	307, 1012, 0, 0, 998, 428, 0, 0, 284, 0,
+	0, 427, 0, 0, 1055, 430, 426, 287, 429, 0,
+	431, 275, 0, 0, 274, 0, 273, 0, 877, 430,
+	426, 282, 429, 0, 431, 0, 0, 293, 277, 297,
+	0, 0, 0, 0, 296, 0, 534, 0, 0, 0,
+	554, 0, 0, 0, 428, 653, 430, 426, 0, 429,
+	427, 431, 0, 1009, 0, 0, 998, 428, 289, 540,
+	284, 0, 559, 427, 0, 0, 0, 0, 0, 287,
+	0, 0, 0, 275, 0, 0, 274, 0, 273, 0,
+	0, 0, 0, 282, 0, 0, 288, 279, 0, 293,
+	277, 297, 0, 0, 0, 0, 296, 0, 286, 0,
+	0, 0, 285, 552, 0, 0, 0, 0, 0, 555,
+	560, 551, 0, 548, 553, 549, 0, 546, 0, 0,
+	289, 0, 0, 0, 428, 0, 0, 0, 0, 0,
+	427, 0, 0, 0, 0, 275, 0, 558, 274, 557,
+	273, 0, 0, 0, 0, 0, 428, 0, 288, 279,
+	0, 0, 427, 297, 0, 0, 0, 997, 296, 0,
+	286, 428, 0, 0, 285, 283, 0, 427, 0, 0,
+	550, 428, 0, 0, 0, 276, 0, 427, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 539, 0, 305,
+	304, 303, 299, 187, 188, 0, 0, 0, 0, 0,
+	0, 0, 0, 290, 0, 0, 0, 0, 0, 556,
+	0, 0, 294, 295, 300, 301, 302, 306, 307, 997,
+	0, 0, 0, 0, 163, 0, 0, 283, 0, 0,
+	0, 1006, 0, 0, 998, 0, 0, 276, 284, 0,
+	0, 0, 0, 428, 541, 542, 0, 287, 0, 427,
+	0, 305, 304, 303, 299, 187, 188, 428, 0, 0,
+	0, 282, 0, 427, 0, 290, 0, 293, 277, 0,
+	0, 0, 0, 0, 294, 295, 300, 301, 302, 306,
+	307, 0, 0, 0, 428, 0, 0, 0, 0, 0,
+	427, 0, 0, 1003, 0, 0, 998, 0, 289, 0,
+	284, 0, 0, 0, 0, 0, 0, 0, 0, 287,
+	0, 0, 0, 275, 0, 0, 274, 0, 273, 0,
+	0, 0, 0, 282, 0, 0, 288, 279, 0, 293,
+	277, 297, 0, 0, 0, 0, 296, 0, 286, 0,
+	0, 0, 285, 0, 0, 0, 0, 275, 0, 261,
+	274, 1209, 273, 0, 0, 1000, 0, 0, 998, 0,
+	289, 0, 284, 0, 0, 297, 0, 0, 0, 0,
+	296, 287, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 38, 0, 0, 282, 0, 0, 288, 279,
+	0, 293, 277, 1308, 1319, 0, 1318, 997, 0, 1320,
+	286, 0, 0, 0, 285, 283, 0, 0, 0, 0,
+	0, 0, 0, 1321, 0, 276, 0, 0, 0, 1322,
+	0, 0, 289, 0, 0, 0, 0, 0, 0, 305,
+	304, 303, 299, 187, 188, 0, 0, 0, 0, 0,
+	0, 0, 0, 290, 0, 0, 0, 0, 0, 0,
+	288, 279, 294, 295, 300, 301, 302, 306, 307, 997,
+	0, 0, 286, 0, 0, 0, 285, 283, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 276, 0, 1313,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 305, 304, 303, 299, 187, 188, 0, 42, 0,
+	0, 0, 0, 0, 0, 290, 0, 0, 0, 0,
+	0, 0, 0, 1317, 294, 295, 300, 301, 302, 306,
+	307, 997, 0, 41, 0, 275, 0, 0, 274, 283,
+	273, 0, 0, 995, 1324, 0, 998, 0, 0, 276,
+	284, 194, 0, 297, 0, 0, 0, 0, 296, 287,
+	0, 0, 0, 305, 304, 303, 299, 187, 188, 0,
+	0, 0, 0, 282, 0, 0, 0, 290, 0, 293,
+	277, 0, 0, 0, 284, 0, 294, 295, 300, 301,
+	302, 306, 307, 287, 0, 0, 0, 275, 430, 426,
+	274, 429, 273, 431, 0, 0, 0, 282, 0, 0,
+	289, 0, 0, 293, 277, 297, 824, 823, 825, 0,
+	296, 0, 534, 0, 0, 0, 554, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 288, 279,
+	0, 0, 0, 0, 289, 540, 0, 0, 559, 0,
+	286, 0, 0, 0, 285, 0, 0, 0, 275, 0,
+	0, 274, 0, 273, 0, 0, 0, 0, 0, 0,
+	281, 0, 288, 279, 0, 0, 297, 0, 0, 0,
+	0, 296, 0, 0, 286, 0, 0, 0, 285, 552,
+	0, 0, 0, 0, 0, 555, 560, 551, 0, 548,
+	553, 549, 0, 546, 0, 0, 0, 0, 0, 997,
+	0, 0, 0, 0, 0, 0, 0, 283, 0, 0,
+	0, 0, 0, 558, 0, 557, 0, 276, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 305, 304, 303, 299, 187, 188, 0, 0, 0,
+	0, 283, 0, 0, 0, 290, 550, 0, 0, 0,
+	0, 276, 284, 0, 294, 295, 300, 301, 302, 306,
+	307, 287, 0, 539, 0, 305, 304, 303, 299, 187,
+	188, 0, 0, 0, 0, 282, 0, 0, 0, 290,
+	0, 293, 277, 0, 0, 556, 0, 0, 294, 295,
+	300, 301, 302, 306, 307, 0, 0, 0, 0, 275,
+	681, 0, 274, 0, 273, 0, 0, 0, 0, 0,
+	0, 0, 289, 0, 284, 0, 0, 297, 831, 0,
+	541, 542, 296, 287, 0, 0, 428, 0, 0, 0,
+	0, 0, 427, 0, 0, 835, 0, 282, 281, 0,
+	288, 279, 0, 293, 277, 0, 0, 0, 0, 0,
+	0, 0, 286, 0, 0, 0, 285, 0, 0, 0,
+	275, 0, 0, 274, 0, 273, 0, 0, 0, 0,
+	0, 826, 0, 0, 289, 284, 0, 0, 297, 0,
+	834, 0, 0, 296, 287, 0, 0, 0, 837, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 282, 0,
+	0, 0, 288, 279, 293, 277, 0, 827, 0, 833,
+	0, 0, 0, 0, 286, 0, 0, 0, 285, 283,
+	0, 0, 0, 830, 0, 832, 828, 829, 0, 276,
+	0, 0, 0, 0, 0, 289, 0, 0, 0, 0,
+	0, 0, 0, 305, 304, 303, 299, 187, 188, 0,
+	0, 0, 0, 0, 0, 0, 1209, 290, 0, 0,
+	0, 0, 0, 288, 279, 0, 294, 295, 300, 301,
+	302, 306, 307, 0, 0, 286, 836, 0, 0, 285,
+	0, 283, 0, 0, 0, 0, 0, 38, 0, 0,
+	0, 276, 0, 0, 1383, 0, 0, 0, 1308, 1319,
+	0, 1318, 1172, 0, 1320, 305, 304, 303, 299, 187,
+	188, 0, 0, 0, 0, 0, 0, 0, 1321, 290,
+	0, 0, 0, 0, 1322, 0, 284, 0, 294, 295,
+	300, 301, 302, 306, 307, 287, 0, 0, 0, 0,
+	0, 275, 283, 0, 274, 0, 273, 0, 0, 282,
+	0, 0, 276, 0, 0, 293, 277, 0, 0, 297,
+	0, 0, 0, 1031, 296, 0, 305, 304, 303, 299,
+	187, 188, 0, 0, 0, 0, 0, 0, 0, 0,
+	290, 0, 0, 0, 1313, 0, 289, 284, 0, 294,
+	295, 300, 301, 302, 306, 307, 287, 0, 0, 0,
+	0, 0, 0, 42, 0, 0, 0, 0, 0, 0,
+	282, 0, 0, 0, 288, 279, 293, 277, 1317, 0,
+	0, 0, 0, 0, 0, 0, 286, 0, 41, 0,
+	285, 0, 0, 0, 0, 0, 0, 1387, 0, 1324,
+	0, 0, 0, 0, 0, 0, 194, 289, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 288, 279, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 286, 653, 430,
+	426, 285, 429, 283, 431, 0, 0, 0, 0, 0,
+	0, 0, 0, 276, 0, 0, 0, 824, 823, 825,
+	0, 0, 0, 0, 0, 0, 0, 305, 304, 303,
+	299, 187, 188, 0, 0, 0, 0, 0, 0, 0,
+	0, 290, 0, 0, 0, 0, 0, 0, 437, 0,
+	294, 295, 300, 301, 302, 306, 307, 0, 0, 0,
+	0, 0, 0, 0, 283, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 276, 0, 0, 0, 284, 0,
+	0, 0, 0, 0, 0, 0, 0, 287, 305, 304,
+	303, 299, 187, 188, 0, 0, 19, 0, 0, 0,
+	0, 282, 290, 0, 0, 0, 0, 293, 277, 0,
+	0, 294, 295, 300, 301, 302, 306, 307, 22, 0,
+	0, 0, 0, 0, 0, 0, 23, 0, 0, 0,
+	0, 0, 0, 18, 0, 24, 0, 38, 289, 0,
+	0, 0, 27, 0, 0, 0, 0, 0, 0, 29,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 28, 0, 0, 288, 279, 0, 0,
+	0, 0, 0, 0, 21, 0, 0, 0, 286, 0,
+	0, 0, 285, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 831,
+	0, 0, 0, 0, 0, 0, 0, 428, 0, 0,
+	0, 20, 0, 427, 0, 283, 835, 0, 30, 0,
+	0, 31, 0, 42, 40, 276, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 305,
+	304, 303, 299, 187, 188, 0, 0, 0, 41, 0,
+	0, 0, 826, 290, 0, 0, 0, 0, 0, 0,
+	0, 834, 294, 295, 300, 301, 302, 306, 307, 837,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 827, 0,
+	833, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 830, 0, 832, 828, 829, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 836
+};
+static const yytabelem yypact[] = {
+
+	3175, -10000000, 1166, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000, -10000000,
+	-10000000, -10000000, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000, 246, 535,
+	851, 595, -145, 171, 665, -10000000, -10000000, 162, 199, 163,
+	-19, -145, 13, -10000000, -10000000, -10000000, -10000000, -10000000, 624,
+		-10000000,
+	87, -234, 775, -10000000, -10000000, -10000000, -153, -10000000,
+		-10000000, -237,
+	-234, -218, -230, -10000000, 548, -286, -216, -234, -216, 137,
+	-10000000, -10000000, -237, 773, -230, -234, -218, -219, -202, -296,
+	-226, -154, -197, -10000000, -10000000, -171, 578, -10000000, -237, -286,
+	-230, -234, -218, -219, -171, -172, 559, -154, -197, 331,
+	330, 368, 167, 1325, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000,
+	-10000000, 1462, 1462, -10000000, -230, 487, 325, 324, 869, 273,
+	-10000000, 661, 277, 848, -234, -202, 126, 517, 31, -10000000,
+	-222, -10000000, 2457, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -296, -10000000,
+	752, -10000000, -10000000, 619, -10000000, -10000000, 1575, -10000000,
+		227, -60,
+	-10000000, -10000000, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000, -10000000, -10000000,
+	-10000000, -10000000, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000, -10000000, 655,
+	-10000000, 623, -10000000, -10000000, 1462, 511, -10000000, 9, -296, 513,
+	-10000000, -10000000, -10000000, 1575, -10000000, 671, -10000000, 653,
+		-10000000, 1462,
+	-10000000, -10000000, -10000000, -10000000, -10000000, 394, -10000000,
+		-10000000, -248, -10000000,
+	886, -10000000, -10000000, 1183, -10000000, -10000000, 506, -10000000,
+		-10000000, -10000000,
+	-10000000, 526, -10000000, -182, -10000000, -10000000, -10000000,
+		-10000000, -10000000, -10000000,
+	-10000000, -10000000, -10000000, -182, -10000000, -10000000, -233, 160,
+		-241, -197,
+	-10000000, 510, -10000000, -10000000, -226, -10000000, 1314, 323, 315,
+		-233,
+	156, -241, 638, -10000000, -49, -10000000, 46, -291, -138, -16,
+	-10000000, 126, -10000000, -10000000, -10000000, -10000000, -10000000, 55,
+		-10000000, -133,
+	400, -10000000, -234, -10000000, -9, -286, -226, -10000000, -10000000,
+		620,
+	1320, -10000000, -10000000, -52, 1249, -10000000, 1079, -10000000,
+		-10000000, -10000000,
+	-10000000, -10000000, -10000000, 3151, 3151, 2970, -10000000, -10000000,
+		1182, -10000000,
+	-10000000, -10000000, 1604, 1602, 1601, 1599, 1597, 1591, 1590, 1587,
+	1585, -10000000, -10000000, -257, -263, -268, -10000000, -198, 1578,
+		-10000000,
+	-10000000, -10000000, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000, -10000000, 1318,
+	-10000000, -114, -117, -110, -314, 870, -10000000, -10000000, 104, -216,
+	227, -10000000, 419, 429, 461, -60, -10000000, -10000000, 785, 787,
+	-216, -10000000, -10000000, -10000000, -234, -61, -234, -10000000,
+		-10000000, -10000000,
+	-286, 104, 1577, -185, -234, 880, 769, 394, -10000000, 1113,
+	1113, -296, -296, 372, -10000000, 2489, -10000000, 138, 770, -10000000,
+	-10000000, 209, -10000000, 1576, -10000000, -10000000, -18, -10000000,
+		-234, -230,
+	288, -10000000, -10000000, -217, -10000000, -10000000, -10000000, 1365,
+		-10000000, -10000000,
+	1311, 1569, -10000000, -10000000, -10000000, -10000000, -310, -233, 152,
+		616,
+	-230, 1305, -10000000, 351, -10000000, 1304, -10000000, 811, 811,
+		-10000000,
+	-10000000, -10000000, 1353, 108, -10000000, -10000000, -10000000, -57,
+		-57, -10000000,
+	123, 1300, -10000000, 923, -10000000, 2, -10000000, 293, -10000000, 1123,
+	-141, 176, 2635, -10000000, -199, -10000000, 3151, 3151, -227, 3151,
+	3151, 3151, 3151, 1065, 1065, 2154, 1454, 775, 158, 1009,
+	807, 798, 793, 783, 2635, 3151, -202, -287, -10000000, -10000000,
+	-10000000, -10000000, -10000000, 2909, 752, -309, -209, -10000000,
+		-10000000, -66,
+	85, -209, 178, -20, -317, -10000000, -10000000, 175, -10000000, 88,
+	79, 879, 1575, 1341, -10000000, 2489, -10000000, -10000000, 459,
+		-10000000,
+	-10000000, -10000000, -10000000, -296, 1088, -10000000, -10000000, 1298,
+		-10000000, 1113,
+	1113, 1113, 1113, -10000000, 744, -10000000, -10000000, 832, -10000000,
+		-10000000,
+	-10000000, 2489, 669, 1571, -10000000, 669, 314, 878, -117, -296,
+	-10000000, 619, -10000000, -10000000, 769, -10000000, -10000000,
+		-10000000, -10000000, 838,
+	-10000000, -154, -10000000, -213, -10000000, -10000000, -296, -10000000,
+		-10000000, -10000000,
+	-10000000, -10000000, 1072, 1022, 221, -10000000, -10000000, -10000000,
+		-10000000, -10000000,
+	-10000000, -10000000, -10000000, 1566, 1565, 302, 1562, 1562, 1553, 457,
+	-10000000, 170, -10000000, -10000000, -103, -108, -10000000, -10000000,
+		562, -10000000,
+	-10000000, -10000000, -10000000, -296, -10000000, 208, 173, -10000000, 90,
+		1286,
+	-10000000, -10000000, -24, -147, -10000000, -29, -10000000, -10000000,
+		-241, -305,
+	-10000000, -10000000, -226, 1569, 1334, -10000000, 612, -230, -147, 611,
+	-10000000, -226, -291, 773, -227, 773, 408, 334, -10000000, 1532,
+	-10000000, -10000000, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000, -10000000, -10000000,
+	1307, 2696, 1561, 1560, -10000000, -10000000, -308, -10000000, -10000000,
+		-10000000,
+	-10000000, -116, -10000000, -10000000, 122, -234, -10000000, -234, 42,
+		-10000000,
+	-10000000, -10000000, -226, 2635, 542, 1532, 1274, 242, -10000000,
+		-10000000,
+	176, 1559, -10000000, -10000000, 1065, 823, -10000000, -10000000, 1065,
+		804,
+	804, 1125, 1249, -10000000, -10000000, 3151, -10000000, 1451, 3151, 3151,
+	3151, 3151, 3151, 3151, 3151, 3151, 3151, 3151, 873, 2127,
+	1263, 606, -10000000, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000, -10000000,
+	1332, -10000000, -10000000, -10000000, -10000000, -10000000, -10000000,
+		-10000000, 744, 789,
+	-10000000, -10000000, -10000000, 1558, 845, -10000000, -10000000,
+		-10000000, -10000000, -10000000,
+	1462, 474, 469, 828, -10000000, -154, -216, 1913, -10000000, -154,
+	-10000000, -10000000, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000, -10000000, -216,
+	-10000000, -10000000, 837, -10000000, 73, -296, -296, 461, -213, -213,
+	-154, -159, -10000000, 203, -10000000, 1556, -10000000, 391, 93, 2635,
+	391, -234, -10000000, 1312, -10000000, -10000000, -10000000, -10000000,
+		870, 63,
+	-10000000, 30, -10000000, 193, -10000000, 715, 251, 251, -10000000, 24,
+	56, 254, -154, -154, -154, 1554, -10000000, 251, -10000000, -10000000,
+	-154, 1553, -10000000, -10000000, -10000000, -10000000, -10000000, 435,
+		209, -10000000,
+	-10000000, -10000000, 540, -10000000, 1297, -10000000, -10000000,
+		-10000000, 1552, 263,
+	1244, -10000000, -10000000, -10000000, -217, -217, -230, -218, -219, -147,
+	-10000000, 265, -10000000, -10000000, -10000000, -10000000, -10000000,
+		-157, 604, 1262,
+	1244, -147, 1236, -10000000, -10000000, -10000000, -10000000, 1532, 1532,
+		-238,
+	-10000000, 722, 3297, 2423, 2245, 2183, 2121, 1943, 1881, 1653,
+	1608, 3151, 543, 3151, 1486, 3151, 2758, 407, 46, 46,
+	-10000000, -10000000, -10000000, -10000000, -10000000, -75, -10000000,
+		-10000000, -10000000, -10000000,
+	538, 843, 176, 489, -10000000, 249, 236, 222, 1449, 242,
+	-222, 2635, -10000000, 3151, 1051, -10000000, 2113, 2041, 2031, 2016,
+	1994, 1927, 1914, 1865, 1701, 1660, -10000000, -10000000, 3151, 3151,
+	-10000000, -10000000, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000, 1462, 1462,
+	1551, -10000000, -10000000, -10000000, -10000000, -10000000, 868,
+		-10000000, 750, -10000000,
+	-10000000, 73, -10000000, 864, 1113, 1282, -10000000, -10000000,
+		-10000000, -10000000,
+	-10000000, -10000000, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000, -10000000, -10000000,
+	-10000000, -10000000, 1532, -10000000, 213, 177, 177, 1280, -10000000,
+		-10000000,
+	168, 750, -10000000, -117, 175, -156, -50, -10000000, 775, -225,
+	-10000000, -10000000, -10000000, -10000000, -10000000, 1116, -10000000,
+		1127, -213, 1115,
+	-225, 837, 16, 1275, 246, 1448, 1445, 1443, -154, 1233,
+	1442, -10000000, 459, 1113, 690, 686, -10000000, 180, -24, -154,
+	-10000000, -10000000, -154, -10000000, -147, 547, -147, -10000000,
+		-10000000, -10000000,
+	-10000000, -10000000, 263, 1244, -10000000, 1234, -157, 1262, 1244, 890,
+	-10000000, -10000000, -10000000, -10000000, 1249, 1547, 1542, -10000000,
+		-10000000, 1249,
+	1541, 1540, 1249, 1538, 1536, 1249, 1531, 1511, 1249, 1510,
+	1509, 1249, 1506, 1505, 1249, 1503, 1502, 1249, 1501, 1500,
+	1672, 3151, 3151, 1486, 3151, 2697, 1581, -10000000, 1126, 1249,
+	1249, 3151, -10000000, 453, 1441, 1434, -10000000, -10000000, -10000000,
+		182,
+	1532, -226, 242, 176, -10000000, -10000000, -10000000, -10000000,
+		-10000000, 1217,
+	-10000000, -10000000, 1249, 1249, -141, -10000000, -10000000, -10000000,
+		-10000000, -10000000,
+	-10000000, -10000000, -10000000, -10000000, -10000000, 1431, 2489, 1647,
+		1614, 784,
+	3151, -10000000, 144, 1532, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000,
+	855, 750, -10000000, -99, -10000000, -213, 189, -213, 197, -296,
+	10, 717, -10000000, -10000000, -10000000, -30, -10000000, -10000000,
+		-10000000, -10000000,
+	2635, -10000000, 1236, -10000000, 1482, 855, -10000000, -10000000,
+		-10000000, 800,
+	264, 2457, -10000000, -10000000, 365, 203, -10000000, 251, 251, 837,
+	-10000000, -10000000, -159, -10000000, 246, 1428, -10000000, -10000000,
+		-10000000, 1425,
+	-10000000, 251, -10000000, -10000000, 459, -213, -296, -296, 1423, -113,
+	-10000000, 1420, -10000000, -10000000, 262, -10000000, -10000000,
+		-10000000, -157, 1234,
+	78, 78, 78, 78, 78, 78, 78, 78, 78, 78,
+	78, 78, 78, 78, 78, 78, 3151, 1593, 1267, -10000000,
+	1249, 1249, 3151, 3151, 1209, 1418, -10000000, -10000000, -10000000, 775,
+	-10000000, 1249, -10000000, -10000000, -10000000, -10000000, 92, 408,
+		1232, -10000000,
+	820, 509, -10000000, 2635, 542, -10000000, -10000000, -10000000,
+		-10000000, 811,
+	784, -10000000, 66, 1249, -234, 714, -10000000, 750, -10000000, 2230,
+	-10000000, -226, -10000000, -10000000, 193, -296, -10000000, -10000000,
+		1113, -10000000,
+	177, -10000000, -10000000, -10000000, 868, -10000000, 258, -10000000, 63,
+		594,
+	811, 365, -10000000, -10000000, -10000000, -10000000, 450, -10000000,
+		-10000000, -10000000,
+	-10000000, -10000000, 1417, -10000000, -10000000, 1401, 193, 380, 377,
+		-10000000,
+	-10000000, 440, 837, -10000000, 1394, 1393, 1392, 1391, 1389, 1385,
+	1384, 1382, 1379, 1377, 1376, 1372, 1369, 1366, 1364, 1360,
+	1249, 3151, 3151, 1249, 1249, -10000000, 1277, -10000000, 3151, -10000000,
+	1481, -10000000, 384, -10000000, -226, -227, 1532, -10000000, 538,
+		-10000000,
+	-10000000, -10000000, 444, -234, -10000000, -10000000, 466, 1358, 1462,
+		-10000000,
+	855, -10000000, 2835, -10000000, -10000000, -10000000, 1164, 1156, -237,
+		-10000000,
+	-10000000, -10000000, 1147, 3151, -10000000, 1145, -10000000, 1143, 1139,
+		150,
+	46, 1474, 505, 501, 1464, 2489, -10000000, -10000000, -213, -10000000,
+	-10000000, 3151, -10000000, -10000000, -10000000, -10000000, -141, 166,
+		-10000000, -10000000,
+	-10000000, -10000000, -10000000, -10000000, -296, -296, -10000000,
+		-10000000, -10000000, -10000000,
+	-10000000, -10000000, -10000000, -10000000, -10000000, -10000000,
+		-10000000, -10000000, -10000000, -10000000,
+	-10000000, -10000000, -10000000, -10000000, 1249, 1249, -10000000,
+		-10000000, -10000000, 1051,
+	-160, -10000000, -10000000, -10000000, 408, 182, -10000000, 1462,
+		-10000000, -10000000,
+	309, -10000000, -10000000, -10000000, 8, -10000000, -10000000, 202,
+		-10000000, -10000000,
+	1135, -10000000, 1158, -10000000, -10000000, -10000000, -230, 499, 1532,
+		111,
+	1532, 1129, -10000000, 1249, -10000000, 542, 1213, 242, -10000000,
+		-10000000,
+	166, -10000000, -10000000, -141, 1356, 1201, 366, -10000000, -234,
+		-10000000,
+	309, -10000000, 297, 295, 77, -10000000, -10000000, 962, -10000000, 246,
+	-235, -237, -10000000, -10000000, -10000000, 215, 111, 598, 1152,
+		-10000000,
+	-10000000, 582, -10000000, 1350, 538, 166, 483, 1345, 242, 542,
+	-10000000, -160, -10000000, -10000000, 1457, -286, -10000000, -10000000,
+		-10000000, 713,
+	-10000000, -94, -215, -215, 2230, 202, -10000000, -10000000, -10000000,
+		-10000000,
+	129, 1199, 1323, -10000000, -10000000, -10000000, -10000000, 1094, -11,
+		-10000000,
+	111, 709, -10000000, 182, 242, 166, -10000000, 538, -10000000, -286,
+	-10000000, -10000000, -10000000, 497, -302, -10000000, -10000000,
+		-10000000, 1118, 139,
+	1323, 1196, 707, 761, 2230, -10000000, -10000000, 2230, -10000000, 439,
+	182, 1330, 1197, -10000000, -10000000, -10000000, -10000000, 1195, 111,
+		-10000000,
+	-10000000, -10000000, -10000000, -10000000, 2230, -238, 694, -10000000,
+		1532, -10000000,
+	-10000000, -286, 1194, -10000000, -10000000, 2230, 408, -10000000,
+		-10000000, -10000000
+};
+static const yytabelem yypgo[] = {
+
+	0, 2065, 2064, 2062, 2060, 2054, 2053, 2049, 1681, 2048,
+	2047, 1672, 2046, 2045, 2044, 46, 2043, 1669, 20, 1195,
+	649, 102, 86, 1183, 142, 117, 1621, 1155, 2040, 41,
+	2038, 1158, 30, 32, 2033, 87, 72, 118, 112, 124,
+	1168, 1175, 152, 2030, 2026, 2025, 1180, 2023, 2022, 44,
+	96, 91, 93, 45, 140, 119, 100, 103, 1219, 120,
+	2021, 25, 2012, 141, 14, 2011, 2010, 2007, 2005, 2003,
+	2002, 2000, 1999, 1998, 1997, 108, 115, 110, 56, 60,
+	27, 1996, 1989, 1985, 1984, 53, 37, 48, 98, 81,
+	58, 1982, 89, 1978, 1977, 52, 77, 1973, 49, 1971,
+	1967, 147, 3, 346, 1965, 1962, 1960, 1953, 809, 1951,
+	143, 907, 131, 105, 74, 1948, 1947, 1945, 57, 1942,
+	1941, 1938, 1937, 1936, 1932, 109, 1931, 1930, 1928, 106,
+	998, 989, 1925, 128, 1923, 34, 130, 158, 111, 31,
+	12, 1919, 1918, 51, 38, 76, 1917, 64, 65, 1915,
+	22, 59, 1914, 221, 1909, 1902, 1901, 21, 24, 16,
+	155, 834, 63, 35, 1897, 1896, 127, 1895, 80, 2,
+	1892, 1891, 1890, 136, 1889, 1886, 1885, 1883, 1882, 1881,
+	1880, 9, 1878, 15, 1877, 6, 4, 29, 1876, 10,
+	1874, 1872, 738, 66, 1870, 1869, 1866, 1864, 55, 69,
+	75, 1863, 26, 18, 11, 7, 1862, 17, 28, 1178,
+	13, 145, 125, 101, 61, 23, 1860, 1858, 1857, 1856,
+	1854, 994, 1853, 1852, 881, 302, 1851, 1850, 1849, 1848,
+	1846, 947, 1845, 1844, 1843, 1842, 8, 1841, 1833, 1832,
+	82, 122, 79, 73, 67, 1831, 1830, 1827, 1826, 1824,
+	1823, 1821, 1820, 1819, 144, 1818, 1817, 132, 1807, 1806,
+	1803, 1633, 1802, 1798, 1780, 1778, 1153, 1771, 1762, 1761,
+	1760, 541, 1757, 557, 1756, 1755, 1754, 138, 1753, 1752,
+	1750, 1749, 1747, 116, 1745, 139, 1738, 33, 338, 1734,
+	441, 78, 437, 1733, 95, 135, 1731, 1730, 0, 1728,
+	62, 1727, 40, 68, 1726, 19, 1723, 36, 1722, 1,
+	1718, 1713, 1712, 550, 1710, 1706, 1704, 146, 126, 54,
+	1700, 398, 1699, 1697, 1695, 1691, 1687, 1685, 1684, 1683,
+	1679, 1677, 1675, 403, 134, 84, 1664, 1660, 1658, 1654,
+	5, 1647, 319, 616, 43, 1645, 1609
+};
+static const yytabelem yyr1[] = {
+
+	0, 1, 1, 2, 2, 2, 2, 2, 2, 2,
+	2, 2, 2, 2, 2, 2, 2, 2, 2, 10,
+	10, 10, 10, 10, 20, 20, 19, 19, 19, 30,
+	30, 23, 31, 31, 31, 31, 31, 22, 22, 28,
+	28, 24, 13, 13, 13, 13, 13, 13, 13, 34,
+	25, 25, 25, 25, 35, 35, 35, 21, 21, 36,
+	36, 36, 26, 26, 40, 27, 27, 42, 42, 7,
+	43, 43, 45, 50, 50, 50, 47, 47, 47, 54,
+	54, 55, 48, 48, 57, 57, 57, 57, 44, 6,
+	60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
+	60, 62, 62, 65, 65, 65, 73, 81, 81, 81,
+	82, 82, 83, 83, 84, 84, 88, 88, 72, 91,
+	91, 93, 93, 94, 94, 97, 97, 98, 99, 99,
+	100, 101, 70, 74, 71, 85, 85, 104, 105, 105,
+	107, 107, 108, 108, 108, 108, 108, 106, 106, 109,
+	109, 110, 110, 110, 110, 112, 112, 112, 112, 111,
+	111, 116, 116, 115, 89, 117, 117, 118, 121, 122,
+	122, 123, 119, 120, 120, 124, 124, 125, 125, 126,
+	126, 126, 87, 87, 87, 67, 127, 127, 127, 128,
+	128, 129, 129, 130, 130, 130, 136, 77, 77, 132,
+	132, 95, 95, 90, 141, 142, 56, 133, 133, 96,
+	96, 96, 96, 134, 134, 146, 146, 147, 149, 149,
+	149, 149, 149, 131, 148, 148, 152, 152, 152, 152,
+	154, 155, 156, 151, 150, 150, 150, 150, 150, 157,
+	158, 159, 159, 159, 159, 66, 164, 160, 160, 161,
+	161, 165, 165, 166, 162, 162, 167, 167, 168, 169,
+	169, 163, 163, 171, 171, 170, 170, 170, 170, 170,
+	170, 170, 170, 170, 170, 170, 170, 170, 174, 175,
+	176, 176, 177, 183, 179, 179, 179, 180, 180, 180,
+	185, 185, 185, 185, 185, 185, 185, 185, 181, 181,
+	181, 181, 178, 182, 182, 172, 172, 187, 188, 188,
+	189, 189, 189, 189, 12, 191, 191, 191, 192, 192,
+	192, 192, 192, 192, 69, 194, 197, 197, 197, 198,
+	201, 206, 206, 207, 207, 208, 208, 138, 196, 78,
+	80, 195, 195, 68, 211, 211, 211, 212, 212, 212,
+	212, 212, 212, 213, 213, 214, 3, 216, 216, 216,
+	216, 216, 216, 216, 222, 222, 224, 224, 224, 224,
+	224, 224, 224, 217, 217, 225, 225, 225, 225, 225,
+	225, 225, 221, 230, 230, 230, 230, 230, 230, 230,
+	230, 230, 230, 230, 230, 230, 230, 230, 230, 230,
+	227, 227, 229, 229, 228, 226, 226, 226, 223, 223,
+	219, 220, 220, 231, 231, 231, 231, 232, 232, 218,
+	233, 233, 234, 234, 9, 235, 235, 235, 235, 235,
+	235, 235, 235, 235, 235, 235, 92, 92, 135, 135,
+	238, 238, 241, 241, 243, 243, 51, 51, 240, 240,
+	240, 240, 240, 240, 240, 240, 248, 248, 239, 239,
+	239, 239, 249, 249, 59, 59, 59, 53, 53, 245,
+	245, 245, 242, 242, 242, 253, 253, 253, 252, 252,
+	251, 251, 251, 246, 246, 256, 254, 254, 254, 255,
+	255, 247, 247, 247, 247, 257, 257, 16, 16, 16,
+	259, 259, 259, 5, 14, 261, 261, 262, 262, 263,
+	263, 258, 264, 264, 265, 265, 266, 266, 266, 266,
+	267, 267, 268, 268, 269, 269, 271, 271, 271, 272,
+	272, 272, 273, 273, 273, 270, 275, 275, 275, 276,
+	276, 274, 274, 277, 279, 279, 278, 278, 260, 15,
+	280, 280, 280, 281, 281, 284, 284, 285, 285, 63,
+	63, 63, 282, 282, 286, 286, 283, 199, 199, 200,
+	200, 289, 289, 290, 290, 290, 287, 293, 293, 294,
+	294, 295, 295, 296, 296, 297, 297, 299, 299, 300,
+	300, 209, 209, 29, 210, 210, 210, 210, 210, 210,
+	210, 210, 203, 203, 301, 301, 302, 302, 204, 204,
+	202, 202, 205, 205, 303, 304, 304, 304, 304, 304,
+	305, 305, 306, 306, 307, 307, 308, 308, 308, 309,
+	309, 11, 11, 310, 310, 8, 8, 311, 312, 313,
+	17, 17, 314, 315, 316, 316, 173, 291, 291, 4,
+	4, 317, 317, 317, 319, 319, 59, 318, 318, 320,
+	320, 32, 32, 76, 75, 75, 140, 140, 140, 137,
+	102, 102, 102, 102, 322, 322, 322, 322, 322, 322,
+	322, 322, 322, 322, 322, 323, 323, 323, 323, 323,
+	323, 323, 323, 328, 328, 328, 328, 328, 328, 328,
+	328, 328, 328, 328, 328, 328, 328, 328, 328, 334,
+	334, 324, 324, 325, 325, 325, 325, 326, 326, 330,
+	330, 331, 331, 331, 331, 329, 332, 327, 327, 335,
+	335, 333, 337, 79, 79, 79, 79, 79, 79, 79,
+	79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
+	79, 79, 79, 79, 79, 145, 145, 145, 338, 342,
+	342, 143, 143, 343, 343, 343, 343, 343, 340, 340,
+	340, 340, 340, 336, 336, 336, 336, 336, 336, 193,
+	344, 49, 49, 18, 18, 215, 345, 52, 114, 244,
+	244, 86, 339, 339, 339, 339, 339, 339, 339, 339,
+	339, 339, 339, 339, 339, 339, 339, 341, 341, 346,
+	346, 346, 346, 346, 346, 346, 346, 288, 288, 144,
+	46, 250, 113, 139, 321, 153, 186, 237, 61, 58,
+	190, 103, 64, 292, 33, 41, 298, 236, 37, 39,
+	184, 38
+};
+static const yytabelem yyr2[] = {
+
+	0, 3, 5, 2, 2, 2, 2, 2, 2, 2,
+	2, 2, 2, 2, 2, 2, 2, 2, 5, 15,
+	17, 13, 15, 11, 2, 5, 3, 5, 3, 2,
+	7, 3, 3, 3, 3, 5, 5, 7, 1, 7,
+	1, 3, 15, 17, 13, 15, 13, 15, 9, 7,
+	2, 7, 7, 7, 5, 5, 5, 2, 7, 3,
+	5, 5, 2, 7, 3, 2, 7, 3, 5, 5,
+	5, 7, 17, 2, 3, 11, 1, 2, 7, 2,
+	7, 5, 2, 7, 5, 7, 9, 5, 19, 5,
+	7, 15, 5, 5, 5, 5, 5, 5, 5, 5,
+	5, 3, 1, 3, 2, 13, 13, 3, 3, 1,
+	1, 3, 1, 9, 1, 2, 2, 5, 17, 3,
+	1, 7, 1, 1, 2, 2, 5, 3, 2, 2,
+	5, 13, 3, 3, 7, 0, 2, 3, 1, 2,
+	2, 5, 7, 9, 5, 5, 7, 1, 2, 2,
+	5, 2, 2, 2, 9, 7, 7, 7, 7, 3,
+	3, 13, 7, 3, 7, 2, 7, 5, 3, 0,
+	4, 7, 3, 0, 2, 2, 4, 7, 9, 0,
+	2, 4, 0, 2, 2, 11, 7, 5, 1, 2,
+	7, 2, 2, 13, 7, 5, 13, 4, 2, 5,
+	5, 5, 1, 3, 3, 5, 1, 5, 1, 3,
+	3, 3, 3, 1, 2, 2, 5, 5, 5, 9,
+	2, 3, 5, 5, 5, 1, 2, 2, 2, 2,
+	5, 7, 15, 13, 3, 3, 5, 5, 1, 7,
+	7, 3, 5, 5, 5, 17, 17, 7, 1, 5,
+	1, 2, 7, 5, 3, 1, 2, 5, 11, 2,
+	2, 7, 9, 2, 5, 4, 4, 7, 2, 2,
+	2, 4, 7, 2, 4, 2, 5, 5, 13, 15,
+	17, 13, 9, 5, 3, 7, 1, 5, 9, 1,
+	2, 2, 2, 2, 7, 7, 7, 7, 2, 2,
+	7, 7, 13, 7, 1, 2, 5, 9, 2, 7,
+	5, 5, 5, 3, 9, 3, 7, 1, 2, 2,
+	2, 7, 7, 7, 15, 3, 3, 7, 9, 17,
+	5, 2, 7, 2, 2, 13, 7, 1, 1, 1,
+	1, 7, 1, 19, 3, 3, 1, 5, 5, 5,
+	5, 5, 5, 5, 1, 9, 5, 7, 7, 5,
+	5, 7, 7, 5, 2, 5, 9, 7, 5, 5,
+	5, 5, 7, 2, 7, 7, 7, 5, 5, 9,
+	9, 11, 3, 2, 2, 2, 2, 2, 2, 2,
+	2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+	3, 5, 5, 5, 3, 3, 3, 1, 5, 5,
+	1, 2, 5, 5, 5, 5, 5, 2, 7, 15,
+	2, 1, 2, 1, 5, 5, 5, 5, 5, 5,
+	5, 5, 5, 7, 5, 5, 2, 2, 2, 2,
+	9, 11, 2, 7, 3, 7, 2, 4, 2, 2,
+	2, 3, 3, 3, 3, 3, 2, 2, 9, 9,
+	13, 11, 7, 1, 5, 5, 1, 7, 0, 9,
+	3, 11, 9, 3, 9, 2, 4, 4, 2, 2,
+	2, 4, 4, 5, 5, 3, 1, 7, 11, 2,
+	2, 5, 7, 3, 5, 7, 1, 2, 2, 2,
+	11, 11, 13, 7, 5, 2, 0, 5, 1, 2,
+	1, 7, 2, 1, 2, 5, 2, 2, 2, 2,
+	5, 5, 3, 5, 7, 2, 3, 7, 7, 3,
+	5, 7, 3, 5, 1, 5, 3, 3, 1, 3,
+	3, 2, 7, 5, 7, 1, 2, 7, 9, 7,
+	3, 7, 9, 7, 1, 2, 7, 7, 7, 3,
+	3, 1, 7, 1, 5, 1, 17, 3, 3, 3,
+	3, 2, 7, 2, 5, 7, 5, 2, 7, 2,
+	2, 13, 7, 7, 5, 7, 1, 2, 7, 2,
+	2, 2, 5, 3, 3, 3, 5, 3, 5, 3,
+	5, 1, 7, 1, 2, 7, 2, 7, 5, 1,
+	5, 1, 5, 1, 9, 3, 5, 3, 3, 1,
+	2, 7, 5, 2, 2, 5, 3, 9, 5, 2,
+	7, 17, 11, 2, 7, 2, 2, 9, 9, 9,
+	2, 2, 11, 11, 2, 7, 7, 2, 2, 15,
+	15, 11, 7, 0, 2, 2, 3, 5, 0, 3,
+	2, 2, 1, 7, 2, 7, 2, 7, 7, 3,
+	2, 7, 7, 5, 2, 2, 2, 2, 2, 2,
+	2, 2, 2, 2, 7, 7, 7, 7, 7, 7,
+	7, 7, 7, 13, 13, 13, 13, 13, 13, 13,
+	13, 13, 13, 13, 13, 13, 13, 13, 13, 2,
+	2, 11, 13, 7, 9, 11, 13, 7, 9, 7,
+	9, 7, 9, 9, 11, 9, 9, 7, 9, 7,
+	7, 17, 17, 2, 2, 2, 2, 2, 2, 2,
+	5, 5, 7, 7, 7, 7, 7, 7, 7, 7,
+	3, 3, 7, 3, 3, 3, 3, 3, 9, 2,
+	7, 2, 5, 3, 3, 3, 3, 3, 2, 3,
+	5, 5, 5, 2, 2, 2, 7, 7, 7, 3,
+	3, 3, 5, 2, 5, 3, 3, 3, 3, 2,
+	5, 3, 9, 11, 11, 11, 11, 11, 11, 11,
+	11, 11, 11, 13, 9, 13, 13, 9, 7, 3,
+	3, 3, 3, 3, 3, 3, 3, 2, 0, 3,
+	2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+	2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+	2, 2
+};
+static const yytabelem yychk[] = {
+
+	-10000000, -1, -2, -3, -4, -5, -6, -7, -8, -9,
+	-10, -11, -12, -13, -14, -15, -16, -17, 298, 261,
+	406, 339, 283, 291, 300, -311, -312, 307, 328, 314,
+	413, 416, -280, -258, -259, -260, -314, -315, 302, -283,
+	419, 443, 418, 59, -18, -215, 45, 459, -216, 313,
+	435, 439, 403, 295, 306, 338, 273, 341, 273, -261,
+	456, -60, 313, -62, 403, 435, 439, 450, 326, 295,
+	306, 420, 469, 442, -43, 318, 317, -235, 313, 338,
+	403, 435, 439, 450, 318, 306, 317, 420, 469, -19,
+	-23, -26, 260, -30, 314, -40, -31, -41, 418, 339,
+	302, 443, 408, 461, 403, -34, -19, -23, -26, 328,
+	-261, -281, 441, 388, 321, 326, 438, 431, -209, -29,
+	-236, 461, -199, 304, -288, 260, -345, 459, -61, 461,
+	-29, -236, -218, -37, 461, -164, -33, 461, -219, -221,
+	-230, 470, 471, 472, 473, 474, 475, 476, 477, 478,
+	479, 480, 481, 482, 483, 484, 485, 461, -223, -64,
+	461, -137, -321, 461, -29, -137, -262, 410, -61, -63,
+	265, 303, -66, -33, -67, -29, -68, -37, -69, -38,
+	461, -70, -103, 461, -71, -104, -49, 462, 463, -72,
+	-90, -140, -137, -298, 461, -73, -52, -215, -74, -41,
+	-44, -58, 461, 323, -61, -64, -33, -236, -37, -38,
+	-58, -237, 461, 323, -52, -41, 384, 384, 437, 44,
+	402, 44, -32, -76, 40, -32, -33, -19, -23, 384,
+	384, 321, 386, -282, 319, -283, 260, 274, -209, -103,
+	-264, -265, -266, -267, -268, -269, -270, 406, 451, 378,
+	343, -271, 409, -272, 425, 338, 419, -298, 461, -200,
+	-289, 42, -290, -291, -79, -144, -140, -338, -339, -340,
+	-193, -183, -341, 45, 43, 40, 444, 297, -298, 356,
+	-145, 353, 290, 434, 267, 371, 367, 276, 355, 327,
+	472, -343, -49, 296, 481, 482, 63, 58, -46, 461,
+	483, 484, 485, 460, 459, 458, 486, 487, -49, -217,
+	-225, 307, 258, -227, 261, -211, 257, 335, -160, 40,
+	-220, -231, 258, 307, 419, -222, -224, 419, 258, 307,
+	437, 471, 257, 335, 321, -32, 341, -263, 425, -49,
+	338, -160, -127, 317, 319, -32, -105, -107, -108, 394,
+	357, 444, 396, 419, 462, -91, 264, 46, -81, 366,
+	268, 337, -45, -46, 461, -46, -20, -29, 435, 403,
+	-27, -42, -39, 444, 461, -40, -31, -75, -140, -191,
+	-192, 40, -193, -143, -144, -340, 45, 384, 384, -20,
+	403, -27, 319, 443, -283, -284, -285, -140, -256, -52,
+	-202, -313, 453, 437, -266, 385, 457, 440, 284, 451,
+	362, -274, -277, -278, -29, 435, -64, -316, -173, -140,
+	-287, 321, 44, -292, 264, 461, 43, 286, 280, 45,
+	42, 47, 91, -79, -79, -79, -337, 418, 46, 40,
+	40, 40, 40, 40, 40, 40, 40, 40, 462, 462,
+	462, -184, 461, 40, 44, -137, 288, -130, -131, -90,
+	-148, 288, -137, -221, -228, 461, 470, -233, -212, 270,
+	259, -161, 412, -165, -166, -141, -137, -231, -88, -111,
+	-89, -115, -116, -119, 358, 349, 358, -232, -112, 330,
+	279, 382, 364, -224, -138, 288, -101, -78, 301, 288,
+	-137, -56, -29, 445, -283, -29, -64, -161, 40, 349,
+	-49, -29, 264, -106, -109, -110, -89, -111, -112, 301,
+	-108, -85, 61, -85, -49, -49, 373, -92, -135, -238,
+	-51, -239, -240, -242, 273, -245, -246, -247, -248, 424,
+	296, 481, 482, -252, -253, -251, 354, -255, 350, 352,
+	407, 348, 340, 351, 277, 346, 446, 376, 374, 299,
+	347, -321, 42, -82, 287, -59, 432, -18, -47, -54,
+	40, -55, -56, 437, -29, -24, -33, -28, 44, 455,
+	-39, 41, 44, 44, -192, -343, -20, 403, 321, -24,
+	-286, 383, 44, -95, 280, -95, -102, 293, -322, 379,
+	-323, -324, -325, -326, -327, -328, -329, -330, -331, -332,
+	40, -79, 315, 422, -244, 486, 45, -86, 459, -273,
+	449, 378, -273, -271, 406, 44, -279, 44, 319, 429,
+	-202, -313, 44, 61, -202, 453, -293, -294, -295, -296,
+	40, -33, -290, -292, -79, -79, -139, 461, -79, -79,
+	-79, -342, -79, 41, 41, -199, 297, 42, -288, 304,
+	-288, 304, -288, 304, -288, 304, -288, 304, -291, -79,
+	-103, -346, 473, 474, 475, 476, 477, 478, 479, 480,
+	-342, 41, -225, -226, 468, 466, -153, 461, -132, -135,
+	-136, -92, -137, -77, 285, -152, -154, -155, -156, -151,
+	442, 401, 320, -78, -153, 398, 437, 471, -213, 398,
+	339, 443, 302, 339, 443, 302, 264, -160, 41, 44,
+	-135, -240, -242, -89, -49, 40, 269, 44, -85, -85,
+	-85, -85, -133, 301, -101, 278, -135, -317, 318, 40,
+	-317, 384, 264, -128, -129, -130, -131, -49, -211, -138,
+	-110, 277, -52, -86, -49, -78, 91, 91, -53, 277,
+	-59, 40, 40, 40, 40, 448, -254, 40, -254, -257,
+	40, 350, 400, 448, 448, 277, 346, -49, 390, -18,
+	-250, 461, 412, 44, -54, -50, -51, 273, 292, -21,
+	-25, -36, -35, -39, 444, 329, 403, 439, 450, 437,
+	-42, 465, -140, -193, -143, -144, 41, 321, -24, -21,
+	-25, 321, -75, -285, -63, -139, -63, 387, 262, 383,
+	-102, -102, -79, 61, 60, 62, 325, 361, 380, 381,
+	377, 272, 379, 363, 334, 289, 430, 342, 40, 40,
+	486, -86, 449, -277, -29, -275, 421, 404, -173, -291,
+	-203, 329, 44, -210, 336, 360, 414, 322, -295, -294,
+	-297, 40, 93, 44, -79, 41, -79, -79, -79, -79,
+	-79, -79, -79, -79, -79, -79, 264, 41, 44, 321,
+	41, -133, -136, -78, -138, 40, 274, -76, 345, 345,
+	278, -215, -137, -229, -135, -137, -78, -215, -138, -166,
+	-120, -124, -125, 430, 357, -117, -118, -121, -49, -118,
+	-112, -86, -86, -52, -114, 459, -80, -96, -143, 444,
+	-144, -145, 40, -318, 368, 321, 437, -310, -291, -318,
+	-29, -138, 41, 44, -212, -194, -197, -198, 418, 419,
+	-87, 392, 393, -93, 301, -241, -243, -244, 45, -241,
+	419, -249, 417, -114, 44, -52, -52, -52, 40, -244,
+	-215, -257, -83, 357, -59, -48, -57, 40, -56, 395,
+	-55, 41, 40, -22, 44, 455, 44, -39, -39, -33,
+	-37, -38, -21, -25, 386, -21, 321, -21, -25, -102,
+	-102, -186, 461, 41, -79, 260, -334, 426, 263, -79,
+	260, -334, -79, 260, -334, -79, 260, -334, -79, 260,
+	-334, -79, 260, -334, -79, 260, -334, -79, 260, -334,
+	-79, 272, 363, 334, 289, 430, -79, -335, 40, -79,
+	-79, 455, 353, 379, -283, -283, -276, 406, 457, -204,
+	332, 274, -294, 344, 389, 389, 389, 41, -298, -299,
+	-300, -144, -79, -79, -287, 41, 41, 41, 41, 41,
+	41, 41, 41, 41, 41, -142, -56, -79, -79, -80,
+	-78, -76, -76, 40, -80, -78, -138, -234, -214, 264,
+	-162, -167, -168, 300, -125, -126, 266, -85, 41, 44,
+	-122, -102, -320, -114, -193, -319, -59, -193, -319, 41,
+	44, -65, -75, -76, -77, -162, -129, -213, -195, 455,
+	441, -199, -113, 461, -80, -78, 93, 44, 58, 93,
+	-113, -53, 423, 41, 44, -18, 41, 41, 41, -52,
+	41, 44, 41, -84, -88, -85, 310, 310, -57, -50,
+	-52, -52, -35, -36, 328, -35, -36, -22, 44, -21,
+	40, 40, 40, 40, 40, 40, 40, 40, 40, 40,
+	40, 40, 40, 40, 40, 40, 262, -79, -79, -335,
+	-79, -79, 455, 312, -336, -333, -143, -193, -344, 418,
+	444, -79, 353, 41, 41, -205, 397, -102, -301, -302,
+	-140, -294, 41, 44, -202, 41, -92, 41, 41, -134,
+	-146, -147, -148, -79, 408, -102, -80, -78, -163, 271,
+	-168, 447, -86, 392, -86, 391, -118, -123, 423, 41,
+	437, -291, 40, -163, -78, -196, 278, -198, 260, -200,
+	-94, -97, -98, -99, -100, -101, 379, -96, -243, -244,
+	-53, -114, -18, 41, 41, -244, -86, -49, -49, 41,
+	467, 274, 41, 386, -333, -333, -333, -333, -333, -333,
+	-333, -333, -333, -333, -333, -333, -333, -333, -333, -333,
+	-79, 262, 312, -79, -79, 41, 44, 41, -199, -303,
+	-304, 344, 427, 369, 44, 280, 384, -300, -203, -95,
+	-147, -149, 379, 408, -151, 442, 401, -80, -29, 41,
+	-162, -80, -171, -169, -170, -163, -173, -8, 313, -174,
+	-175, -176, -11, 399, -177, -17, -178, 433, 316, 314,
+	319, 333, 339, -15, 454, -90, -87, -118, -85, -80,
+	-319, -78, -80, -214, 386, -198, -201, 321, -95, -98,
+	353, 41, 41, -87, 372, 372, 356, -53, 41, 41,
+	41, 41, 41, 41, 41, 41, 41, 41, 41, 41,
+	41, 41, 41, 41, -79, -79, -143, -193, -344, -79,
+	40, 369, -302, -139, -102, -204, 353, -29, 345, 41,
+	-32, -80, -163, 309, -172, -169, -187, 452, 59, 59,
+	-61, 59, -79, 59, 59, 59, 403, -15, 40, 341,
+	40, -135, -86, -79, -80, -202, -206, -207, -208, -209,
+	40, -49, -49, -287, -305, -306, -307, -303, -236, -205,
+	-32, -150, -157, -158, 384, 309, -187, -188, -189, 428,
+	324, 313, 263, 59, 59, -33, 341, -102, -181, -183,
+	-140, -102, 59, -80, -203, 44, -210, -208, -207, -202,
+	41, 44, -308, 375, 338, 388, -307, -150, -158, 384,
+	-157, 384, 443, 302, 305, 44, -18, -190, 461, -61,
+	-179, -185, 40, -183, -143, -140, -144, -181, 41, 59,
+	44, 41, 41, -204, -207, 344, 41, -203, -305, 40,
+	-64, -159, 466, 419, 378, -159, -169, -189, -180, 411,
+	44, -185, -182, 264, 436, -140, -183, 305, -205, -207,
+	-204, -309, -64, 301, 353, 464, 59, -181, 40, -183,
+	-143, -140, -144, 41, 305, 294, -169, -169, 384, -205,
+	41, 44, -181, -169, -186, 308, -102, -309, 41, -169
+};
+static const yytabelem yydef[] = {
+
+	0, -2, 1, 3, 4, 5, 6, 7, 8, 9,
+	10, 11, 12, 13, 14, 15, 16, 17, 0, 0,
+	0, 0, 506, 102, 0, 635, 636, 0, 0, 0,
+	0, 506, 554, 497, 498, 499, 640, 641, 0, 550,
+	0, 0, 818, 2, 18, 783, 0, 785, 356, 0,
+	0, 0, 0, 410, 0, 0, 0, 0, 0, 508,
+	505, 89, 0, 561, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 101, 69, 0, 0, 424, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 26, 28, 31, 62, 29, 64, 32, 33,
+	34, 662, 662, 835, 0, 0, 0, 0, 0, 0,
+	504, 563, 0, 0, 0, 0, 513, 0, 0, 591,
+	593, 837, 0, 567, 568, 817, 784, 786, 0, 828,
+	0, 593, 359, 346, 838, 360, 248, 834, 0, 0,
+	382, 383, 384, 385, 386, 387, 388, 389, 390, 391,
+	392, 393, 394, 395, 396, 397, 398, 399, 363, 0,
+	832, 0, 669, 824, 662, 0, 503, 510, 0, 0,
+	559, 560, 92, 248, 93, 188, 94, 0, 95, 662,
+	841, 96, 132, 831, 97, 138, 137, 781, 0, 98,
+	120, 203, 666, 0, -2, 99, 109, 787, 100, 133,
+	70, 0, 829, 0, 425, 426, 427, 428, 429, 430,
+	431, 432, 827, 0, 434, 435, 0, 0, 0, 0,
+	27, 0, 35, 661, 0, 36, 317, 0, 0, 0,
+	0, 0, 0, 549, 0, 551, 0, 0, 611, 0,
+	511, 512, 514, 516, 517, 518, 519, 0, 522, 0,
+	0, 525, 0, 526, 529, 0, 0, 592, 836, 0,
+	569, 570, 571, 573, 647, 648, 733, 734, 735, 736,
+	737, 738, 739, 0, 0, 0, 750, 751, 0, 753,
+	754, 819, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 768, 769, 0, 0, 0, 779, 0, 0, -2,
+	755, 756, 757, 763, 764, 765, 766, 767, 357, 358,
+	373, 0, 225, 0, 400, 421, 344, 345, 250, 0,
+	361, 411, 0, 0, 0, 362, 364, 337, 339, 0,
+	0, 206, 408, 409, 0, 0, 0, 507, 509, 90,
+	0, 250, 0, 0, 0, 0, 147, 139, 140, 135,
+	135, 0, 0, 0, 782, 0, 119, 0, 110, 107,
+	108, 466, 71, -2, 820, 433, 0, 24, 0, 0,
+	40, 65, 67, 0, 839, 63, 30, 0, 664, 314,
+	315, 0, 318, 319, 320, 761, 0, 0, 0, 0,
+	0, 48, 49, 565, 552, 553, 555, 202, 202, 485,
+	637, 638, 0, 0, 515, 520, 521, 534, 534, 523,
+	0, 535, 541, 545, 546, 530, 548, 611, 644, 0,
+	611, 0, 0, 574, 0, 833, 0, 0, 0, 0,
+	0, 0, 0, 740, 741, 0, 0, 818, 0, 818,
+	818, 818, 818, 818, 0, 0, 0, 0, 770, 771,
+	772, 283, 840, 0, 0, 407, 0, 377, 378, 0,
+	339, 0, 404, 0, 0, -2, 401, 354, 420, 0,
+	0, 0, 248, 0, 251, 0, 204, 412, 413, 416,
+	116, 159, 160, 0, 163, 172, 414, 415, 417, 135,
+	135, 135, 135, 365, 208, 339, 368, 0, 369, 370,
+	371, 0, 653, 0, 632, 653, 0, 0, 225, 0,
+	187, 346, 337, 134, 148, 149, 151, 152, 153, 0,
+	141, 0, 136, 0, 144, 145, 0, 339, 436, 437,
+	438, 439, 446, 468, 466, 448, 449, 450, 451, 452,
+	453, 454, 455, 473, 0, 470, 486, 486, 496, 0,
+	493, 0, 456, 457, 478, 479, 475, 480, 0, 489,
+	490, 667, 668, 0, 111, 0, 0, 656, 0, 77,
+	206, 79, 0, 0, 25, 0, 41, 23, 0, 0,
+	68, 663, 0, 0, 0, 762, 0, 0, 0, 0,
+	562, 0, 0, 561, 0, 561, 610, 0, 670, 0,
+	674, 675, 676, 677, 678, 679, 680, 681, 682, 683,
+	0, 0, 0, 0, 500, 501, 0, 789, 791, 527,
+	532, 0, 528, 524, 0, 0, 543, 0, 538, 531,
+	642, 643, 0, 0, 603, 0, 576, -2, 579, 580,
+	0, 586, 572, 575, 742, 743, 744, 823, 745, 746,
+	747, 0, 759, 748, 749, 0, 752, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 809, 810, 811, 812, 813, 814, 815, 816,
+	0, 808, 374, 375, 405, 406, 376, 825, 208, 436,
+	195, 339, 337, 0, 198, 223, 226, 227, 228, 229,
+	0, 0, 0, 0, 224, 0, 0, 0, 339, 0,
+	347, 349, 351, 348, 350, 352, 337, 249, 247, 0,
+	253, 446, 468, 117, 173, 0, 0, 0, 0, 0,
+	0, 0, 340, 0, 367, 0, 372, 658, 0, 0,
+	658, 0, 337, 0, 189, 191, 192, 186, 0, 0,
+	150, 0, 142, 182, 146, 122, 0, 0, 447, 0,
+	463, 0, 0, 0, 0, 0, 483, 0, 484, 491,
+	0, 496, 494, 476, 477, 481, 482, 112, 466, 464,
+	465, 821, 206, 206, 0, 81, 73, 74, 0, 38,
+	21, 57, 50, 59, 0, 0, 0, 0, 0, 0,
+	66, 0, 665, 321, 322, 323, 316, 0, 0, 44,
+	46, 0, 564, 556, 557, 201, 558, 0, 0, 0,
+	673, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	502, 790, 533, 542, 547, 0, 536, 537, 645, 646,
+	609, 0, 0, 0, 594, 595, 597, 599, 579, 601,
+	584, 0, 758, 0, 0, 792, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 206, 804, 0, 0,
+	807, 340, 194, 199, 200, 339, 197, 230, 0, 0,
+	0, 379, 380, 340, 339, 337, 423, 353, 255, 252,
+	164, 174, 175, 179, 135, 0, 165, 169, 168, 162,
+	418, 155, 156, 157, 158, 788, 366, 207, 209, 210,
+	211, 212, 0, 649, 0, 466, 466, 0, 633, 650,
+	0, 255, 185, 225, 354, 342, 325, 326, 818, 0,
+	143, 183, 184, 340, 339, 0, 442, 444, 0, 0,
+	0, 468, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 492, 114, 135, 0, 0, 82, 206, 0, 0,
+	80, 78, 0, 19, 0, 0, 0, 60, 61, 54,
+	55, 56, 38, 22, 39, 42, 0, 45, 47, 671,
+	672, 639, 826, 684, 685, 0, 0, 709, 710, 686,
+	0, 0, 687, 0, 0, 688, 0, 0, 689, 0,
+	0, 690, 0, 0, 691, 0, 0, 692, 0, 0,
+	0, 0, 0, 0, 0, 0, 713, 717, 0, 719,
+	721, 0, 727, 0, 0, 0, 544, 539, 540, 613,
+	0, 0, -2, 0, 596, 598, 600, 582, 583, 0,
+	587, 589, 590, 760, 611, 793, 794, 795, 796, 797,
+	798, 799, 800, 801, 802, 0, 0, 0, 0, -2,
+	0, 231, 0, 0, 381, 402, 403, 340, 422, 339,
+	0, 254, 256, 0, 176, 0, 180, 0, 0, 0,
+	167, 0, 657, 659, 660, 0, 654, 655, 652, 631,
+	0, 91, 103, 104, 0, 0, 190, 339, 338, 0,
+	0, 0, 154, 822, -2, 0, 440, 0, 0, 468,
+	467, 458, 0, 459, 0, 0, 472, 474, 469, 0,
+	487, 0, 495, 106, 115, 0, 0, 0, 0, 84,
+	87, 0, 53, 58, 0, 51, 52, 20, 0, 43,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 714, 718,
+	720, 722, 0, 0, 0, 0, 773, 774, 775, 818,
+	780, 723, 728, 725, 726, 566, 619, 608, 602, 604,
+	606, 601, 585, 0, 603, 803, 205, 805, 806, 202,
+	-2, 215, 339, 340, 0, 0, 419, 255, 340, 0,
+	257, 0, 177, 181, 182, 0, 166, 170, 135, 340,
+	466, 634, 339, 340, 0, 324, 0, 327, 0, 0,
+	202, -2, 125, 127, 128, 129, 0, 121, 443, 445,
+	441, 462, 0, 461, 471, 0, 182, 0, 0, 83,
+	85, 0, 468, 37, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	711, 0, 0, 724, 715, 729, 0, 730, 0, 612,
+	0, 615, 618, 617, 0, 0, 0, 588, 609, 193,
+	216, 217, 0, 0, 220, 221, 0, 0, 662, 340,
+	0, 246, 0, 263, 259, 260, 0, 0, 0, 268,
+	269, 270, 0, 0, 273, 0, 275, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 178, 161, 0, 131,
+	651, 0, 245, 340, 341, 328, 611, 0, 118, 126,
+	130, 460, 488, 113, 0, 0, 86, 75, 693, 701,
+	694, 702, 695, 703, 696, 704, 697, 705, 698, 706,
+	699, 707, 700, 708, 712, 716, 776, 777, 778, 0,
+	619, 616, 605, 607, 581, 613, 218, 662, 222, 196,
+	238, 233, 355, 261, 0, 264, 305, 0, 265, 266,
+	0, 271, 0, 274, 276, 277, 0, 0, 0, 0,
+	0, 0, 171, 340, 343, 603, 330, -2, 333, 334,
+	0, 88, 72, 611, 0, 620, 0, 623, 624, 732,
+	238, 232, 234, 235, 0, 262, 306, 0, 308, 0,
+	0, 0, 313, 267, 272, 286, 0, 0, 0, 298,
+	299, 0, 258, 0, 609, 0, 0, 333, 601, 603,
+	614, 619, 622, 626, 0, 0, 625, 219, 237, 0,
+	236, 0, 0, 0, 0, 0, 310, 311, 830, 312,
+	289, 284, 0, 290, 291, 292, 293, 304, 0, 282,
+	0, 0, 105, 613, -2, 0, 336, 609, 621, 0,
+	628, 239, 241, 0, 0, 240, 307, 309, 0, 0,
+	0, 0, 0, 0, 0, 300, 301, 0, 329, 601,
+	613, 0, 629, 242, 243, 244, 278, 287, 0, 294,
+	295, 296, 297, 285, 0, 0, 281, 302, 0, 731,
+	627, 0, 0, 279, 303, 0, 335, 630, 288, 280
+};
+typedef struct
+#ifdef __cplusplus
+  yytoktype
+#endif
+{
+	char *t_name;
+	int t_val;
+} yytoktype;
+#ifndef YYDEBUG
+#	define YYDEBUG	0			/* don't allow debugging */
+#endif
+
+#if YYDEBUG
+
+static CONST yytoktype yytoks[] = {
+	"ACTIVE", 257,
+	"ADD", 258,
+	"AFTER", 259,
+	"ALL", 260,
+	"ALTER", 261,
+	"AND", 262,
+	"ANY", 263,
+	"AS", 264,
+	"ASC", 265,
+	"AT", 266,
+	"AVG", 267,
+	"AUTO", 268,
+	"BASENAME", 269,
+	"BEFORE", 270,
+	"BEGIN", 271,
+	"BETWEEN", 272,
+	"BLOB", 273,
+	"BY", 274,
+	"CACHE", 275,
+	"CAST", 276,
+	"CHARACTER", 277,
+	"CHECK", 278,
+	"CHECK_POINT_LEN", 279,
+	"COLLATE", 280,
+	"COLLATION", 281,
+	"COMMA", 282,
+	"COMMIT", 283,
+	"COMMITTED", 284,
+	"COMPUTED", 285,
+	"CONCATENATE", 286,
+	"CONDITIONAL", 287,
+	"CONSTRAINT", 288,
+	"CONTAINING", 289,
+	"COUNT", 290,
+	"CREATE", 291,
+	"CSTRING", 292,
+	"CURRENT", 293,
+	"CURSOR", 294,
+	"DATABASE", 295,
+	"DATE", 296,
+	"DB_KEY", 297,
+	"DEBUG", 298,
+	"DECIMAL", 299,
+	"DECLARE", 300,
+	"DEFAULT", 301,
+	"DELETE", 302,
+	"DESC", 303,
+	"DISTINCT", 304,
+	"DO", 305,
+	"DOMAIN", 306,
+	"DROP", 307,
+	"ELSE", 308,
+	"END", 309,
+	"ENTRY_POINT", 310,
+	"EQL", 311,
+	"ESCAPE", 312,
+	"EXCEPTION", 313,
+	"EXECUTE", 314,
+	"EXISTS", 315,
+	"EXIT", 316,
+	"EXTERNAL", 317,
+	"FILTER", 318,
+	"FOR", 319,
+	"FOREIGN", 320,
+	"FROM", 321,
+	"FULL", 322,
+	"FUNCTION", 323,
+	"GDSCODE", 324,
+	"GEQ", 325,
+	"GENERATOR", 326,
+	"GEN_ID", 327,
+	"GRANT", 328,
+	"GROUP", 329,
+	"GROUP_COMMIT_WAIT", 330,
+	"GTR", 331,
+	"HAVING", 332,
+	"IF", 333,
+	"IN", 334,
+	"INACTIVE", 335,
+	"INNER", 336,
+	"INPUT_TYPE", 337,
+	"INDEX", 338,
+	"INSERT", 339,
+	"INTEGER", 340,
+	"INTO", 341,
+	"IS", 342,
+	"ISOLATION", 343,
+	"JOIN", 344,
+	"KEY", 345,
+	"KW_CHAR", 346,
+	"KW_DEC", 347,
+	"KW_DOUBLE", 348,
+	"KW_FILE", 349,
+	"KW_FLOAT", 350,
+	"KW_INT", 351,
+	"KW_LONG", 352,
+	"KW_NULL", 353,
+	"KW_NUMERIC", 354,
+	"KW_UPPER", 355,
+	"KW_VALUE", 356,
+	"LENGTH", 357,
+	"LOGFILE", 358,
+	"LPAREN", 359,
+	"LEFT", 360,
+	"LEQ", 361,
+	"LEVEL", 362,
+	"LIKE", 363,
+	"LOG_BUF_SIZE", 364,
+	"LSS", 365,
+	"MANUAL", 366,
+	"MAXIMUM", 367,
+	"MAX_SEGMENT", 368,
+	"MERGE", 369,
+	"MESSAGE", 370,
+	"MINIMUM", 371,
+	"MODULE_NAME", 372,
+	"NAMES", 373,
+	"NATIONAL", 374,
+	"NATURAL", 375,
+	"NCHAR", 376,
+	"NEQ", 377,
+	"NO", 378,
+	"NOT", 379,
+	"NOT_GTR", 380,
+	"NOT_LSS", 381,
+	"NUM_LOG_BUFS", 382,
+	"OF", 383,
+	"ON", 384,
+	"ONLY", 385,
+	"OPTION", 386,
+	"OR", 387,
+	"ORDER", 388,
+	"OUTER", 389,
+	"OUTPUT_TYPE", 390,
+	"OVERFLOW", 391,
+	"PAGE", 392,
+	"PAGES", 393,
+	"PAGE_SIZE", 394,
+	"PARAMETER", 395,
+	"PASSWORD", 396,
+	"PLAN", 397,
+	"POSITION", 398,
+	"POST_EVENT", 399,
+	"PRECISION", 400,
+	"PRIMARY", 401,
+	"PRIVILEGES", 402,
+	"PROCEDURE", 403,
+	"PROTECTED", 404,
+	"RAW_PARTITIONS", 405,
+	"READ", 406,
+	"REAL", 407,
+	"REFERENCES", 408,
+	"RESERVING", 409,
+	"RETAIN", 410,
+	"RETURNING_VALUES", 411,
+	"RETURNS", 412,
+	"REVOKE", 413,
+	"RIGHT", 414,
+	"RPAREN", 415,
+	"ROLLBACK", 416,
+	"SEGMENT", 417,
+	"SELECT", 418,
+	"SET", 419,
+	"SHADOW", 420,
+	"SHARED", 421,
+	"SINGULAR", 422,
+	"SIZE", 423,
+	"SMALLINT", 424,
+	"SNAPSHOT", 425,
+	"SOME", 426,
+	"SORT", 427,
+	"SQLCODE", 428,
+	"STABILITY", 429,
+	"STARTING", 430,
+	"STATISTICS", 431,
+	"SUB_TYPE", 432,
+	"SUSPEND", 433,
+	"SUM", 434,
+	"TABLE", 435,
+	"THEN", 436,
+	"TO", 437,
+	"TRANSACTION", 438,
+	"TRIGGER", 439,
+	"UNCOMMITTED", 440,
+	"UNION", 441,
+	"UNIQUE", 442,
+	"UPDATE", 443,
+	"USER", 444,
+	"VALUES", 445,
+	"VARCHAR", 446,
+	"VARIABLE", 447,
+	"VARYING", 448,
+	"VERSION", 449,
+	"VIEW", 450,
+	"WAIT", 451,
+	"WHEN", 452,
+	"WHERE", 453,
+	"WHILE", 454,
+	"WITH", 455,
+	"WORK", 456,
+	"WRITE", 457,
+	"FLOAT", 458,
+	"NUMBER", 459,
+	"NUMERIC", 460,
+	"SYMBOL", 461,
+	"STRING", 462,
+	"INTRODUCER", 463,
+	"ACTION", 464,
+	"ADMIN", 465,
+	"CASCADE", 466,
+	"FREE_IT", 467,
+	"RESTRICT", 468,
+	"ROLE", 469,
+	"COLUMN", 470,
+	"TYPE", 471,
+	"EXTRACT", 472,
+	"YEAR", 473,
+	"MONTH", 474,
+	"DAY", 475,
+	"HOUR", 476,
+	"MINUTE", 477,
+	"SECOND", 478,
+	"WEEKDAY", 479,
+	"YEARDAY", 480,
+	"TIME", 481,
+	"TIMESTAMP", 482,
+	"CURRENT_DATE", 483,
+	"CURRENT_TIME", 484,
+	"CURRENT_TIMESTAMP", 485,
+	"NUMBER64BIT", 486,
+	"SCALEDINT", 487,
+	"=", 61,
+	"<", 60,
+	">", 62,
+	"+", 43,
+	"-", 45,
+	"*", 42,
+	"/", 47,
+	"-unknown-", -1				/* ends search */
+};
+
+static char *yyreds[] = {
+	"-no such reduction-",
+	"top : statement",
+	"top : statement ';'",
+	"statement : alter",
+	"statement : blob",
+	"statement : commit",
+	"statement : create",
+	"statement : declare",
+	"statement : delete",
+	"statement : drop",
+	"statement : grant",
+	"statement : insert",
+	"statement : invoke_procedure",
+	"statement : revoke",
+	"statement : rollback",
+	"statement : select",
+	"statement : set",
+	"statement : update",
+	"statement : DEBUG signed_short_integer",
+	"grant : GRANT privileges ON prot_table_name TO user_grantee_list grant_option",
+	"grant : GRANT proc_privileges ON PROCEDURE simple_proc_name TO user_grantee_list grant_option",
+	"grant : GRANT privileges ON prot_table_name TO grantee_list",
+	"grant : GRANT proc_privileges ON PROCEDURE simple_proc_name TO grantee_list",
+	"grant : GRANT role_name_list TO role_grantee_list role_admin_option",
+	"prot_table_name : simple_table_name",
+	"prot_table_name : TABLE simple_table_name",
+	"privileges : ALL",
+	"privileges : ALL PRIVILEGES",
+	"privileges : privilege_list",
+	"privilege_list : privilege",
+	"privilege_list : privilege_list ',' privilege",
+	"proc_privileges : EXECUTE",
+	"privilege : SELECT",
+	"privilege : INSERT",
+	"privilege : DELETE",
+	"privilege : UPDATE column_parens_opt",
+	"privilege : REFERENCES column_parens_opt",
+	"grant_option : WITH GRANT OPTION",
+	"grant_option : /* empty */",
+	"role_admin_option : WITH ADMIN OPTION",
+	"role_admin_option : /* empty */",
+	"simple_proc_name : symbol_procedure_name",
+	"revoke : REVOKE rev_grant_option privileges ON prot_table_name FROM user_grantee_list",
+	"revoke : REVOKE rev_grant_option proc_privileges ON PROCEDURE simple_proc_name FROM user_grantee_list",
+	"revoke : REVOKE privileges ON prot_table_name FROM user_grantee_list",
+	"revoke : REVOKE proc_privileges ON PROCEDURE simple_proc_name FROM user_grantee_list",
+	"revoke : REVOKE privileges ON prot_table_name FROM grantee_list",
+	"revoke : REVOKE proc_privileges ON PROCEDURE simple_proc_name FROM grantee_list",
+	"revoke : REVOKE role_name_list FROM role_grantee_list",
+	"rev_grant_option : GRANT OPTION FOR",
+	"grantee_list : grantee",
+	"grantee_list : grantee_list ',' grantee",
+	"grantee_list : grantee_list ',' user_grantee",
+	"grantee_list : user_grantee_list ',' grantee",
+	"grantee : PROCEDURE symbol_procedure_name",
+	"grantee : TRIGGER symbol_trigger_name",
+	"grantee : VIEW symbol_view_name",
+	"user_grantee_list : user_grantee",
+	"user_grantee_list : user_grantee_list ',' user_grantee",
+	"user_grantee : symbol_user_name",
+	"user_grantee : USER symbol_user_name",
+	"user_grantee : GROUP symbol_user_name",
+	"role_name_list : role_name",
+	"role_name_list : role_name_list ',' role_name",
+	"role_name : symbol_role_name",
+	"role_grantee_list : role_grantee",
+	"role_grantee_list : role_grantee_list ',' role_grantee",
+	"role_grantee : symbol_user_name",
+	"role_grantee : USER symbol_user_name",
+	"declare : DECLARE declare_clause",
+	"declare_clause : FILTER filter_decl_clause",
+	"declare_clause : EXTERNAL FUNCTION udf_decl_clause",
+	"udf_decl_clause : symbol_UDF_name arg_desc_list1 RETURNS return_value1 ENTRY_POINT sql_string MODULE_NAME sql_string",
+	"udf_data_type : simple_type",
+	"udf_data_type : BLOB",
+	"udf_data_type : CSTRING '(' pos_short_integer ')' charset_clause",
+	"arg_desc_list1 : /* empty */",
+	"arg_desc_list1 : arg_desc_list",
+	"arg_desc_list1 : '(' arg_desc_list ')'",
+	"arg_desc_list : arg_desc",
+	"arg_desc_list : arg_desc_list ',' arg_desc",
+	"arg_desc : init_data_type udf_data_type",
+	"return_value1 : return_value",
+	"return_value1 : '(' return_value ')'",
+	"return_value : init_data_type udf_data_type",
+	"return_value : init_data_type udf_data_type FREE_IT",
+	"return_value : init_data_type udf_data_type BY KW_VALUE",
+	"return_value : PARAMETER pos_short_integer",
+	"filter_decl_clause : symbol_filter_name INPUT_TYPE blob_subtype OUTPUT_TYPE blob_subtype ENTRY_POINT sql_string MODULE_NAME sql_string",
+	"create : CREATE create_clause",
+	"create_clause : EXCEPTION symbol_exception_name sql_string",
+	"create_clause : unique_opt order_direction INDEX symbol_index_name ON simple_table_name index_definition",
+	"create_clause : PROCEDURE procedure_clause",
+	"create_clause : TABLE table_clause",
+	"create_clause : TRIGGER def_trigger_clause",
+	"create_clause : VIEW view_clause",
+	"create_clause : GENERATOR generator_clause",
+	"create_clause : DATABASE db_clause",
+	"create_clause : DOMAIN domain_clause",
+	"create_clause : SHADOW shadow_clause",
+	"create_clause : ROLE role_clause",
+	"unique_opt : UNIQUE",
+	"unique_opt : /* empty */",
+	"index_definition : column_list",
+	"index_definition : column_parens",
+	"index_definition : computed_by '(' begin_trigger value end_trigger ')'",
+	"shadow_clause : pos_short_integer manual_auto conditional sql_string first_file_length sec_shadow_files",
+	"manual_auto : MANUAL",
+	"manual_auto : AUTO",
+	"manual_auto : /* empty */",
+	"conditional : /* empty */",
+	"conditional : CONDITIONAL",
+	"first_file_length : /* empty */",
+	"first_file_length : LENGTH equals long_integer page_noise",
+	"sec_shadow_files : /* empty */",
+	"sec_shadow_files : db_file_list",
+	"db_file_list : db_file",
+	"db_file_list : db_file_list db_file",
+	"domain_clause : column_def_name as_opt data_type begin_trigger domain_default_opt end_trigger domain_constraint_clause collate_clause",
+	"as_opt : AS",
+	"as_opt : /* empty */",
+	"domain_default_opt : DEFAULT begin_trigger default_value",
+	"domain_default_opt : /* empty */",
+	"domain_constraint_clause : /* empty */",
+	"domain_constraint_clause : domain_constraint_list",
+	"domain_constraint_list : domain_constraint_def",
+	"domain_constraint_list : domain_constraint_list domain_constraint_def",
+	"domain_constraint_def : domain_constraint",
+	"domain_constraint : null_constraint",
+	"domain_constraint : domain_check_constraint",
+	"null_constraint : NOT KW_NULL",
+	"domain_check_constraint : begin_trigger CHECK '(' search_condition ')' end_trigger",
+	"generator_clause : symbol_generator_name",
+	"role_clause : symbol_role_name",
+	"db_clause : db_name db_initial_desc1 db_rem_desc1",
+	"equals : /* empty */",
+	"equals : '='",
+	"db_name : sql_string",
+	"db_initial_desc1 : /* empty */",
+	"db_initial_desc1 : db_initial_desc",
+	"db_initial_desc : db_initial_option",
+	"db_initial_desc : db_initial_desc db_initial_option",
+	"db_initial_option : PAGE_SIZE equals pos_short_integer",
+	"db_initial_option : LENGTH equals long_integer page_noise",
+	"db_initial_option : USER sql_string",
+	"db_initial_option : PASSWORD sql_string",
+	"db_initial_option : SET NAMES sql_string",
+	"db_rem_desc1 : /* empty */",
+	"db_rem_desc1 : db_rem_desc",
+	"db_rem_desc : db_rem_option",
+	"db_rem_desc : db_rem_desc db_rem_option",
+	"db_rem_option : db_file",
+	"db_rem_option : db_log",
+	"db_rem_option : db_log_option",
+	"db_rem_option : DEFAULT CHARACTER SET symbol_character_set_name",
+	"db_log_option : GROUP_COMMIT_WAIT equals long_integer",
+	"db_log_option : CHECK_POINT_LEN equals long_integer",
+	"db_log_option : NUM_LOG_BUFS equals pos_short_integer",
+	"db_log_option : LOG_BUF_SIZE equals unsigned_short_integer",
+	"db_log : db_default_log_spec",
+	"db_log : db_rem_log_spec",
+	"db_rem_log_spec : LOGFILE '(' logfiles ')' OVERFLOW logfile_desc",
+	"db_rem_log_spec : LOGFILE BASENAME logfile_desc",
+	"db_default_log_spec : LOGFILE",
+	"db_file : file1 sql_string file_desc1",
+	"logfiles : logfile_desc",
+	"logfiles : logfiles ',' logfile_desc",
+	"logfile_desc : logfile_name logfile_attrs",
+	"logfile_name : sql_string",
+	"logfile_attrs : /* empty */",
+	"logfile_attrs : logfile_attrs logfile_attr",
+	"logfile_attr : SIZE equals long_integer",
+	"file1 : KW_FILE",
+	"file_desc1 : /* empty */",
+	"file_desc1 : file_desc",
+	"file_desc : file_clause",
+	"file_desc : file_desc file_clause",
+	"file_clause : STARTING file_clause_noise long_integer",
+	"file_clause : LENGTH equals long_integer page_noise",
+	"file_clause_noise : /* empty */",
+	"file_clause_noise : AT",
+	"file_clause_noise : AT PAGE",
+	"page_noise : /* empty */",
+	"page_noise : PAGE",
+	"page_noise : PAGES",
+	"table_clause : simple_table_name external_file '(' table_elements ')'",
+	"external_file : EXTERNAL KW_FILE sql_string",
+	"external_file : EXTERNAL sql_string",
+	"external_file : /* empty */",
+	"table_elements : table_element",
+	"table_elements : table_elements ',' table_element",
+	"table_element : column_def",
+	"table_element : table_constraint_definition",
+	"column_def : column_def_name data_type_or_domain default_opt end_trigger column_constraint_clause collate_clause",
+	"column_def : column_def_name non_array_type def_computed",
+	"column_def : column_def_name def_computed",
+	"def_computed : computed_by '(' begin_trigger value end_trigger ')'",
+	"computed_by : COMPUTED BY",
+	"computed_by : COMPUTED",
+	"data_type_or_domain : data_type begin_trigger",
+	"data_type_or_domain : simple_column_name begin_string",
+	"collate_clause : COLLATE symbol_collation_name",
+	"collate_clause : /* empty */",
+	"column_def_name : column_name",
+	"simple_column_def_name : simple_column_name",
+	"data_type_descriptor : init_data_type data_type",
+	"init_data_type : /* empty */",
+	"default_opt : DEFAULT default_value",
+	"default_opt : /* empty */",
+	"default_value : constant",
+	"default_value : USER",
+	"default_value : null_value",
+	"default_value : datetime_value_expression",
+	"column_constraint_clause : /* empty */",
+	"column_constraint_clause : column_constraint_list",
+	"column_constraint_list : column_constraint_def",
+	"column_constraint_list : column_constraint_list column_constraint_def",
+	"column_constraint_def : constraint_name_opt column_constraint",
+	"column_constraint : NOT KW_NULL",
+	"column_constraint : REFERENCES simple_table_name column_parens_opt referential_trigger_action",
+	"column_constraint : check_constraint",
+	"column_constraint : UNIQUE",
+	"column_constraint : PRIMARY KEY",
+	"table_constraint_definition : constraint_name_opt table_constraint",
+	"constraint_name_opt : CONSTRAINT symbol_constraint_name",
+	"constraint_name_opt : /* empty */",
+	"table_constraint : unique_constraint",
+	"table_constraint : primary_constraint",
+	"table_constraint : referential_constraint",
+	"table_constraint : check_constraint",
+	"unique_constraint : UNIQUE column_parens",
+	"primary_constraint : PRIMARY KEY column_parens",
+	"referential_constraint : FOREIGN KEY column_parens REFERENCES simple_table_name column_parens_opt referential_trigger_action",
+	"check_constraint : begin_trigger CHECK '(' search_condition ')' end_trigger",
+	"referential_trigger_action : update_rule",
+	"referential_trigger_action : delete_rule",
+	"referential_trigger_action : delete_rule update_rule",
+	"referential_trigger_action : update_rule delete_rule",
+	"referential_trigger_action : /* empty */",
+	"update_rule : ON UPDATE referential_action",
+	"delete_rule : ON DELETE referential_action",
+	"referential_action : CASCADE",
+	"referential_action : SET DEFAULT",
+	"referential_action : SET KW_NULL",
+	"referential_action : NO ACTION",
+	"procedure_clause : symbol_procedure_name input_parameters output_parameters AS begin_string var_declaration_list full_proc_block end_trigger",
+	"alter_procedure_clause : symbol_procedure_name input_parameters output_parameters AS begin_string var_declaration_list full_proc_block end_trigger",
+	"input_parameters : '(' proc_parameters ')'",
+	"input_parameters : /* empty */",
+	"output_parameters : RETURNS input_parameters",
+	"output_parameters : /* empty */",
+	"proc_parameters : proc_parameter",
+	"proc_parameters : proc_parameters ',' proc_parameter",
+	"proc_parameter : simple_column_def_name non_array_type",
+	"var_declaration_list : var_declarations",
+	"var_declaration_list : /* empty */",
+	"var_declarations : var_declaration",
+	"var_declarations : var_declarations var_declaration",
+	"var_declaration : DECLARE VARIABLE column_def_name non_array_type ';'",
+	"proc_block : proc_statement",
+	"proc_block : full_proc_block",
+	"full_proc_block : BEGIN proc_statements END",
+	"full_proc_block : BEGIN proc_statements excp_statements END",
+	"proc_statements : proc_block",
+	"proc_statements : proc_statements proc_block",
+	"proc_statement : assignment ';'",
+	"proc_statement : delete ';'",
+	"proc_statement : EXCEPTION symbol_exception_name ';'",
+	"proc_statement : exec_procedure",
+	"proc_statement : for_select",
+	"proc_statement : if_then_else",
+	"proc_statement : insert ';'",
+	"proc_statement : POST_EVENT value ';'",
+	"proc_statement : singleton_select",
+	"proc_statement : update ';'",
+	"proc_statement : while",
+	"proc_statement : SUSPEND ';'",
+	"proc_statement : EXIT ';'",
+	"exec_procedure : EXECUTE PROCEDURE symbol_procedure_name proc_inputs proc_outputs ';'",
+	"for_select : FOR select INTO variable_list cursor_def DO proc_block",
+	"if_then_else : IF '(' search_condition ')' THEN proc_block ELSE proc_block",
+	"if_then_else : IF '(' search_condition ')' THEN proc_block",
+	"singleton_select : select INTO variable_list ';'",
+	"variable : ':' symbol_variable_name",
+	"proc_inputs : var_const_list",
+	"proc_inputs : '(' var_const_list ')'",
+	"proc_inputs : /* empty */",
+	"proc_outputs : RETURNING_VALUES variable_list",
+	"proc_outputs : RETURNING_VALUES '(' variable_list ')'",
+	"proc_outputs : /* empty */",
+	"var_const_list : variable",
+	"var_const_list : constant",
+	"var_const_list : column_name",
+	"var_const_list : null_value",
+	"var_const_list : var_const_list ',' variable",
+	"var_const_list : var_const_list ',' constant",
+	"var_const_list : var_const_list ',' column_name",
+	"var_const_list : var_const_list ',' null_value",
+	"variable_list : variable",
+	"variable_list : column_name",
+	"variable_list : variable_list ',' column_name",
+	"variable_list : variable_list ',' variable",
+	"while : WHILE '(' search_condition ')' DO proc_block",
+	"cursor_def : AS CURSOR symbol_cursor_name",
+	"cursor_def : /* empty */",
+	"excp_statements : excp_statement",
+	"excp_statements : excp_statements excp_statement",
+	"excp_statement : WHEN errors DO proc_block",
+	"errors : err",
+	"errors : errors ',' err",
+	"err : SQLCODE signed_short_integer",
+	"err : GDSCODE symbol_gdscode_name",
+	"err : EXCEPTION symbol_exception_name",
+	"err : ANY",
+	"invoke_procedure : EXECUTE PROCEDURE symbol_procedure_name prc_inputs",
+	"prc_inputs : prm_const_list",
+	"prc_inputs : '(' prm_const_list ')'",
+	"prc_inputs : /* empty */",
+	"prm_const_list : parameter",
+	"prm_const_list : constant",
+	"prm_const_list : null_value",
+	"prm_const_list : prm_const_list ',' parameter",
+	"prm_const_list : prm_const_list ',' constant",
+	"prm_const_list : prm_const_list ',' null_value",
+	"view_clause : symbol_view_name column_parens_opt AS begin_string union_view check_opt end_string",
+	"union_view : union_view_expr",
+	"union_view_expr : select_view_expr",
+	"union_view_expr : union_view_expr UNION select_view_expr",
+	"union_view_expr : union_view_expr UNION ALL select_view_expr",
+	"select_view_expr : SELECT distinct_clause select_list from_view_clause where_clause group_clause having_clause plan_clause",
+	"from_view_clause : FROM from_view_list",
+	"from_view_list : view_table",
+	"from_view_list : from_view_list ',' view_table",
+	"view_table : joined_view_table",
+	"view_table : table_name",
+	"joined_view_table : view_table join_type JOIN view_table ON search_condition",
+	"joined_view_table : '(' joined_view_table ')'",
+	"begin_string : /* empty */",
+	"end_string : /* empty */",
+	"begin_trigger : /* empty */",
+	"end_trigger : /* empty */",
+	"check_opt : WITH CHECK OPTION",
+	"check_opt : /* empty */",
+	"def_trigger_clause : symbol_trigger_name FOR simple_table_name trigger_active trigger_type trigger_position begin_trigger trigger_action end_trigger",
+	"trigger_active : ACTIVE",
+	"trigger_active : INACTIVE",
+	"trigger_active : /* empty */",
+	"trigger_type : BEFORE INSERT",
+	"trigger_type : AFTER INSERT",
+	"trigger_type : BEFORE UPDATE",
+	"trigger_type : AFTER UPDATE",
+	"trigger_type : BEFORE DELETE",
+	"trigger_type : AFTER DELETE",
+	"trigger_position : POSITION nonneg_short_integer",
+	"trigger_position : /* empty */",
+	"trigger_action : AS begin_trigger var_declaration_list full_proc_block",
+	"alter : ALTER alter_clause",
+	"alter_clause : EXCEPTION symbol_exception_name sql_string",
+	"alter_clause : TABLE simple_table_name alter_ops",
+	"alter_clause : TRIGGER alter_trigger_clause",
+	"alter_clause : PROCEDURE alter_procedure_clause",
+	"alter_clause : DATABASE init_alter_db alter_db",
+	"alter_clause : DOMAIN alter_column_name alter_domain_ops",
+	"alter_clause : INDEX alter_index_clause",
+	"alter_domain_ops : alter_domain_op",
+	"alter_domain_ops : alter_domain_ops alter_domain_op",
+	"alter_domain_op : SET begin_string default_opt end_trigger",
+	"alter_domain_op : ADD CONSTRAINT domain_check_constraint",
+	"alter_domain_op : ADD domain_check_constraint",
+	"alter_domain_op : DROP DEFAULT",
+	"alter_domain_op : DROP CONSTRAINT",
+	"alter_domain_op : TO simple_column_name",
+	"alter_domain_op : TYPE init_data_type non_array_type",
+	"alter_ops : alter_op",
+	"alter_ops : alter_ops ',' alter_op",
+	"alter_op : DROP simple_column_name drop_behaviour",
+	"alter_op : DROP CONSTRAINT symbol_constraint_name",
+	"alter_op : ADD column_def",
+	"alter_op : ADD table_constraint_definition",
+	"alter_op : col_opt simple_column_name POSITION nonneg_short_integer",
+	"alter_op : col_opt alter_column_name TO simple_column_name",
+	"alter_op : col_opt alter_col_name TYPE alter_data_type_or_domain end_trigger",
+	"alter_column_name : keyword_or_column",
+	"keyword_or_column : COLUMN",
+	"keyword_or_column : TYPE",
+	"keyword_or_column : EXTRACT",
+	"keyword_or_column : YEAR",
+	"keyword_or_column : MONTH",
+	"keyword_or_column : DAY",
+	"keyword_or_column : HOUR",
+	"keyword_or_column : MINUTE",
+	"keyword_or_column : SECOND",
+	"keyword_or_column : WEEKDAY",
+	"keyword_or_column : YEARDAY",
+	"keyword_or_column : TIME",
+	"keyword_or_column : TIMESTAMP",
+	"keyword_or_column : CURRENT_DATE",
+	"keyword_or_column : CURRENT_TIME",
+	"keyword_or_column : CURRENT_TIMESTAMP",
+	"keyword_or_column : SYMBOL",
+	"col_opt : ALTER",
+	"col_opt : ALTER COLUMN",
+	"alter_data_type_or_domain : non_array_type begin_trigger",
+	"alter_data_type_or_domain : simple_column_name begin_string",
+	"alter_col_name : simple_column_name",
+	"drop_behaviour : RESTRICT",
+	"drop_behaviour : CASCADE",
+	"drop_behaviour : /* empty */",
+	"alter_index_clause : symbol_index_name ACTIVE",
+	"alter_index_clause : symbol_index_name INACTIVE",
+	"init_alter_db : /* empty */",
+	"alter_db : db_alter_clause",
+	"alter_db : alter_db db_alter_clause",
+	"db_alter_clause : ADD db_file_list",
+	"db_alter_clause : DROP LOGFILE",
+	"db_alter_clause : SET db_log_option_list",
+	"db_alter_clause : ADD db_log",
+	"db_log_option_list : db_log_option",
+	"db_log_option_list : db_log_option_list ',' db_log_option",
+	"alter_trigger_clause : symbol_trigger_name trigger_active new_trigger_type trigger_position begin_trigger new_trigger_action end_trigger",
+	"new_trigger_type : trigger_type",
+	"new_trigger_type : /* empty */",
+	"new_trigger_action : trigger_action",
+	"new_trigger_action : /* empty */",
+	"drop : DROP drop_clause",
+	"drop_clause : EXCEPTION symbol_exception_name",
+	"drop_clause : INDEX symbol_index_name",
+	"drop_clause : PROCEDURE symbol_procedure_name",
+	"drop_clause : TABLE symbol_table_name",
+	"drop_clause : TRIGGER symbol_trigger_name",
+	"drop_clause : VIEW symbol_view_name",
+	"drop_clause : FILTER symbol_filter_name",
+	"drop_clause : DOMAIN symbol_domain_name",
+	"drop_clause : EXTERNAL FUNCTION symbol_UDF_name",
+	"drop_clause : SHADOW pos_short_integer",
+	"drop_clause : ROLE symbol_role_name",
+	"data_type : non_array_type",
+	"data_type : array_type",
+	"non_array_type : simple_type",
+	"non_array_type : blob_type",
+	"array_type : non_charset_simple_type '[' array_spec ']'",
+	"array_type : character_type '[' array_spec ']' charset_clause",
+	"array_spec : array_range",
+	"array_spec : array_spec ',' array_range",
+	"array_range : signed_long_integer",
+	"array_range : signed_long_integer ':' signed_long_integer",
+	"simple_type : non_charset_simple_type",
+	"simple_type : character_type charset_clause",
+	"non_charset_simple_type : national_character_type",
+	"non_charset_simple_type : numeric_type",
+	"non_charset_simple_type : float_type",
+	"non_charset_simple_type : integer_keyword",
+	"non_charset_simple_type : SMALLINT",
+	"non_charset_simple_type : DATE",
+	"non_charset_simple_type : TIME",
+	"non_charset_simple_type : TIMESTAMP",
+	"integer_keyword : INTEGER",
+	"integer_keyword : KW_INT",
+	"blob_type : BLOB blob_subtype blob_segsize charset_clause",
+	"blob_type : BLOB '(' unsigned_short_integer ')'",
+	"blob_type : BLOB '(' unsigned_short_integer ',' signed_short_integer ')'",
+	"blob_type : BLOB '(' ',' signed_short_integer ')'",
+	"blob_segsize : SEGMENT SIZE unsigned_short_integer",
+	"blob_segsize : /* empty */",
+	"blob_subtype : SUB_TYPE signed_short_integer",
+	"blob_subtype : SUB_TYPE symbol_blob_subtype_name",
+	"blob_subtype : /* empty */",
+	"charset_clause : CHARACTER SET symbol_character_set_name",
+	"charset_clause : /* empty */",
+	"national_character_type : national_character_keyword '(' pos_short_integer ')'",
+	"national_character_type : national_character_keyword",
+	"national_character_type : national_character_keyword VARYING '(' pos_short_integer ')'",
+	"character_type : character_keyword '(' pos_short_integer ')'",
+	"character_type : character_keyword",
+	"character_type : varying_keyword '(' pos_short_integer ')'",
+	"varying_keyword : VARCHAR",
+	"varying_keyword : CHARACTER VARYING",
+	"varying_keyword : KW_CHAR VARYING",
+	"character_keyword : CHARACTER",
+	"character_keyword : KW_CHAR",
+	"national_character_keyword : NCHAR",
+	"national_character_keyword : NATIONAL CHARACTER",
+	"national_character_keyword : NATIONAL KW_CHAR",
+	"numeric_type : KW_NUMERIC prec_scale",
+	"numeric_type : decimal_keyword prec_scale",
+	"ordinal : pos_short_integer",
+	"prec_scale : /* empty */",
+	"prec_scale : '(' signed_long_integer ')'",
+	"prec_scale : '(' signed_long_integer ',' signed_long_integer ')'",
+	"decimal_keyword : DECIMAL",
+	"decimal_keyword : KW_DEC",
+	"float_type : KW_FLOAT precision_opt",
+	"float_type : KW_LONG KW_FLOAT precision_opt",
+	"float_type : REAL",
+	"float_type : KW_DOUBLE PRECISION",
+	"precision_opt : '(' nonneg_short_integer ')'",
+	"precision_opt : /* empty */",
+	"set : set_transaction",
+	"set : set_generator",
+	"set : set_statistics",
+	"set_generator : SET GENERATOR symbol_generator_name TO signed_long_integer",
+	"set_generator : SET GENERATOR symbol_generator_name TO NUMBER64BIT",
+	"set_generator : SET GENERATOR symbol_generator_name TO '-' NUMBER64BIT",
+	"commit : COMMIT optional_work optional_retain",
+	"rollback : ROLLBACK optional_work",
+	"optional_work : WORK",
+	"optional_work : /* empty */",
+	"optional_retain : RETAIN opt_snapshot",
+	"optional_retain : /* empty */",
+	"opt_snapshot : SNAPSHOT",
+	"opt_snapshot : /* empty */",
+	"set_transaction : SET TRANSACTION tran_opt_list_m",
+	"tran_opt_list_m : tran_opt_list",
+	"tran_opt_list_m : /* empty */",
+	"tran_opt_list : tran_opt",
+	"tran_opt_list : tran_opt_list tran_opt",
+	"tran_opt : access_mode",
+	"tran_opt : lock_wait",
+	"tran_opt : isolation_mode",
+	"tran_opt : tbl_reserve_options",
+	"access_mode : READ ONLY",
+	"access_mode : READ WRITE",
+	"lock_wait : WAIT",
+	"lock_wait : NO WAIT",
+	"isolation_mode : ISOLATION LEVEL iso_mode",
+	"isolation_mode : iso_mode",
+	"iso_mode : snap_shot",
+	"iso_mode : READ UNCOMMITTED version_mode",
+	"iso_mode : READ COMMITTED version_mode",
+	"snap_shot : SNAPSHOT",
+	"snap_shot : SNAPSHOT TABLE",
+	"snap_shot : SNAPSHOT TABLE STABILITY",
+	"version_mode : VERSION",
+	"version_mode : NO VERSION",
+	"version_mode : /* empty */",
+	"tbl_reserve_options : RESERVING restr_list",
+	"lock_type : SHARED",
+	"lock_type : PROTECTED",
+	"lock_type : /* empty */",
+	"lock_mode : READ",
+	"lock_mode : WRITE",
+	"restr_list : restr_option",
+	"restr_list : restr_list ',' restr_option",
+	"restr_option : table_list table_lock",
+	"table_lock : FOR lock_type lock_mode",
+	"table_lock : /* empty */",
+	"table_list : simple_table_name",
+	"table_list : table_list ',' simple_table_name",
+	"set_statistics : SET STATISTICS INDEX symbol_index_name",
+	"select : union_expr order_clause for_update_clause",
+	"union_expr : select_expr",
+	"union_expr : union_expr UNION select_expr",
+	"union_expr : union_expr UNION ALL select_expr",
+	"order_clause : ORDER BY order_list",
+	"order_clause : /* empty */",
+	"order_list : order_item",
+	"order_list : order_list ',' order_item",
+	"order_item : column_name collate_clause order_direction",
+	"order_item : ordinal collate_clause order_direction",
+	"order_direction : ASC",
+	"order_direction : DESC",
+	"order_direction : /* empty */",
+	"for_update_clause : FOR UPDATE for_update_list",
+	"for_update_clause : /* empty */",
+	"for_update_list : OF column_list",
+	"for_update_list : /* empty */",
+	"select_expr : SELECT distinct_clause select_list from_clause where_clause group_clause having_clause plan_clause",
+	"distinct_clause : DISTINCT",
+	"distinct_clause : all_noise",
+	"select_list : select_items",
+	"select_list : '*'",
+	"select_items : select_item",
+	"select_items : select_items ',' select_item",
+	"select_item : rhs",
+	"select_item : rhs symbol_item_alias_name",
+	"select_item : rhs AS symbol_item_alias_name",
+	"from_clause : FROM from_list",
+	"from_list : table_reference",
+	"from_list : from_list ',' table_reference",
+	"table_reference : joined_table",
+	"table_reference : table_proc",
+	"joined_table : table_reference join_type JOIN table_reference ON search_condition",
+	"joined_table : '(' joined_table ')'",
+	"table_proc : symbol_procedure_name proc_table_inputs symbol_table_alias_name",
+	"table_proc : symbol_procedure_name proc_table_inputs",
+	"proc_table_inputs : '(' null_or_value_list ')'",
+	"proc_table_inputs : /* empty */",
+	"null_or_value_list : null_or_value",
+	"null_or_value_list : null_or_value_list ',' null_or_value",
+	"null_or_value : null_value",
+	"null_or_value : value",
+	"table_name : simple_table_name",
+	"table_name : symbol_table_name symbol_table_alias_name",
+	"simple_table_name : symbol_table_name",
+	"join_type : INNER",
+	"join_type : LEFT",
+	"join_type : LEFT OUTER",
+	"join_type : RIGHT",
+	"join_type : RIGHT OUTER",
+	"join_type : FULL",
+	"join_type : FULL OUTER",
+	"join_type : /* empty */",
+	"group_clause : GROUP BY grp_column_list",
+	"group_clause : /* empty */",
+	"grp_column_list : grp_column_elem",
+	"grp_column_list : grp_column_list ',' grp_column_elem",
+	"grp_column_elem : column_name",
+	"grp_column_elem : column_name COLLATE symbol_collation_name",
+	"having_clause : HAVING search_condition",
+	"having_clause : /* empty */",
+	"where_clause : WHERE search_condition",
+	"where_clause : /* empty */",
+	"plan_clause : PLAN plan_expression",
+	"plan_clause : /* empty */",
+	"plan_expression : plan_type '(' plan_item_list ')'",
+	"plan_type : JOIN",
+	"plan_type : SORT MERGE",
+	"plan_type : MERGE",
+	"plan_type : SORT",
+	"plan_type : /* empty */",
+	"plan_item_list : plan_item",
+	"plan_item_list : plan_item ',' plan_item_list",
+	"plan_item : table_or_alias_list access_type",
+	"plan_item : plan_expression",
+	"table_or_alias_list : symbol_table_name",
+	"table_or_alias_list : symbol_table_name table_or_alias_list",
+	"access_type : NATURAL",
+	"access_type : INDEX '(' index_list ')'",
+	"access_type : ORDER symbol_index_name",
+	"index_list : symbol_index_name",
+	"index_list : symbol_index_name ',' index_list",
+	"insert : INSERT INTO simple_table_name column_parens_opt VALUES '(' insert_value_list ')'",
+	"insert : INSERT INTO simple_table_name column_parens_opt select_expr",
+	"insert_value_list : rhs",
+	"insert_value_list : insert_value_list ',' rhs",
+	"delete : delete_searched",
+	"delete : delete_positioned",
+	"delete_searched : DELETE FROM table_name where_clause",
+	"delete_positioned : DELETE FROM table_name cursor_clause",
+	"cursor_clause : WHERE CURRENT OF symbol_cursor_name",
+	"update : update_searched",
+	"update : update_positioned",
+	"update_searched : UPDATE table_name SET assignments where_clause",
+	"update_positioned : UPDATE table_name SET assignments cursor_clause",
+	"assignments : assignment",
+	"assignments : assignments ',' assignment",
+	"assignment : column_name '=' rhs",
+	"rhs : value",
+	"rhs : null_value",
+	"blob : READ BLOB simple_column_name FROM simple_table_name filter_clause segment_clause",
+	"blob : INSERT BLOB simple_column_name INTO simple_table_name filter_clause segment_clause",
+	"filter_clause : FILTER FROM blob_subtype_value TO blob_subtype_value",
+	"filter_clause : FILTER TO blob_subtype_value",
+	"filter_clause : /* empty */",
+	"blob_subtype_value : blob_subtype",
+	"blob_subtype_value : parameter",
+	"blob_subtype : signed_short_integer",
+	"segment_clause : MAX_SEGMENT segment_length",
+	"segment_clause : /* empty */",
+	"segment_length : unsigned_short_integer",
+	"segment_length : parameter",
+	"column_parens_opt : column_parens",
+	"column_parens_opt : /* empty */",
+	"column_parens : '(' column_list ')'",
+	"column_list : column_name",
+	"column_list : column_list ',' column_name",
+	"column_name : simple_column_name",
+	"column_name : symbol_table_alias_name '.' symbol_column_name",
+	"column_name : symbol_table_alias_name '.' '*'",
+	"simple_column_name : symbol_column_name",
+	"search_condition : predicate",
+	"search_condition : search_condition OR search_condition",
+	"search_condition : search_condition AND search_condition",
+	"search_condition : NOT search_condition",
+	"predicate : comparison_predicate",
+	"predicate : between_predicate",
+	"predicate : like_predicate",
+	"predicate : in_predicate",
+	"predicate : null_predicate",
+	"predicate : quantified_predicate",
+	"predicate : exists_predicate",
+	"predicate : containing_predicate",
+	"predicate : starting_predicate",
+	"predicate : unique_predicate",
+	"predicate : '(' search_condition ')'",
+	"comparison_predicate : value '=' value",
+	"comparison_predicate : value '<' value",
+	"comparison_predicate : value '>' value",
+	"comparison_predicate : value GEQ value",
+	"comparison_predicate : value LEQ value",
+	"comparison_predicate : value NOT_GTR value",
+	"comparison_predicate : value NOT_LSS value",
+	"comparison_predicate : value NEQ value",
+	"quantified_predicate : value '=' ALL '(' column_select ')'",
+	"quantified_predicate : value '<' ALL '(' column_select ')'",
+	"quantified_predicate : value '>' ALL '(' column_select ')'",
+	"quantified_predicate : value GEQ ALL '(' column_select ')'",
+	"quantified_predicate : value LEQ ALL '(' column_select ')'",
+	"quantified_predicate : value NOT_GTR ALL '(' column_select ')'",
+	"quantified_predicate : value NOT_LSS ALL '(' column_select ')'",
+	"quantified_predicate : value NEQ ALL '(' column_select ')'",
+	"quantified_predicate : value '=' some '(' column_select ')'",
+	"quantified_predicate : value '<' some '(' column_select ')'",
+	"quantified_predicate : value '>' some '(' column_select ')'",
+	"quantified_predicate : value GEQ some '(' column_select ')'",
+	"quantified_predicate : value LEQ some '(' column_select ')'",
+	"quantified_predicate : value NOT_GTR some '(' column_select ')'",
+	"quantified_predicate : value NOT_LSS some '(' column_select ')'",
+	"quantified_predicate : value NEQ some '(' column_select ')'",
+	"some : SOME",
+	"some : ANY",
+	"between_predicate : value BETWEEN value AND value",
+	"between_predicate : value NOT BETWEEN value AND value",
+	"like_predicate : value LIKE value",
+	"like_predicate : value NOT LIKE value",
+	"like_predicate : value LIKE value ESCAPE value",
+	"like_predicate : value NOT LIKE value ESCAPE value",
+	"in_predicate : value IN scalar_set",
+	"in_predicate : value NOT IN scalar_set",
+	"containing_predicate : value CONTAINING value",
+	"containing_predicate : value NOT CONTAINING value",
+	"starting_predicate : value STARTING value",
+	"starting_predicate : value NOT STARTING value",
+	"starting_predicate : value STARTING WITH value",
+	"starting_predicate : value NOT STARTING WITH value",
+	"exists_predicate : EXISTS '(' select_expr ')'",
+	"unique_predicate : SINGULAR '(' select_expr ')'",
+	"null_predicate : value IS KW_NULL",
+	"null_predicate : value IS NOT KW_NULL",
+	"scalar_set : '(' constant_list ')'",
+	"scalar_set : '(' column_select ')'",
+	"column_select : SELECT distinct_clause value from_clause where_clause group_clause having_clause plan_clause",
+	"column_singleton : SELECT distinct_clause value from_clause where_clause group_clause having_clause plan_clause",
+	"value : column_name",
+	"value : array_element",
+	"value : function",
+	"value : u_constant",
+	"value : parameter",
+	"value : variable",
+	"value : udf",
+	"value : '-' value",
+	"value : '+' value",
+	"value : value '+' value",
+	"value : value CONCATENATE value",
+	"value : value COLLATE symbol_collation_name",
+	"value : value '-' value",
+	"value : value '*' value",
+	"value : value '/' value",
+	"value : '(' value ')'",
+	"value : '(' column_singleton ')'",
+	"value : USER",
+	"value : DB_KEY",
+	"value : symbol_table_alias_name '.' DB_KEY",
+	"value : KW_VALUE",
+	"value : datetime_value_expression",
+	"datetime_value_expression : CURRENT_DATE",
+	"datetime_value_expression : CURRENT_TIME",
+	"datetime_value_expression : CURRENT_TIMESTAMP",
+	"array_element : column_name '[' value_list ']'",
+	"value_list : value",
+	"value_list : value_list ',' value",
+	"constant : u_constant",
+	"constant : '-' u_numeric_constant",
+	"u_numeric_constant : NUMERIC",
+	"u_numeric_constant : NUMBER",
+	"u_numeric_constant : FLOAT",
+	"u_numeric_constant : NUMBER64BIT",
+	"u_numeric_constant : SCALEDINT",
+	"u_constant : u_numeric_constant",
+	"u_constant : sql_string",
+	"u_constant : DATE STRING",
+	"u_constant : TIME STRING",
+	"u_constant : TIMESTAMP STRING",
+	"constant_list : constant",
+	"constant_list : parameter",
+	"constant_list : current_user",
+	"constant_list : constant_list ',' constant",
+	"constant_list : constant_list ',' parameter",
+	"constant_list : constant_list ',' current_user",
+	"parameter : '?'",
+	"current_user : USER",
+	"sql_string : STRING",
+	"sql_string : INTRODUCER STRING",
+	"signed_short_integer : nonneg_short_integer",
+	"signed_short_integer : '-' neg_short_integer",
+	"nonneg_short_integer : NUMBER",
+	"neg_short_integer : NUMBER",
+	"pos_short_integer : nonneg_short_integer",
+	"unsigned_short_integer : NUMBER",
+	"signed_long_integer : long_integer",
+	"signed_long_integer : '-' long_integer",
+	"long_integer : NUMBER",
+	"function : COUNT '(' '*' ')'",
+	"function : COUNT '(' all_noise value ')'",
+	"function : COUNT '(' DISTINCT value ')'",
+	"function : SUM '(' all_noise value ')'",
+	"function : SUM '(' DISTINCT value ')'",
+	"function : AVG '(' all_noise value ')'",
+	"function : AVG '(' DISTINCT value ')'",
+	"function : MINIMUM '(' all_noise value ')'",
+	"function : MINIMUM '(' DISTINCT value ')'",
+	"function : MAXIMUM '(' all_noise value ')'",
+	"function : MAXIMUM '(' DISTINCT value ')'",
+	"function : CAST '(' rhs AS data_type_descriptor ')'",
+	"function : KW_UPPER '(' value ')'",
+	"function : GEN_ID '(' symbol_generator_name ',' value ')'",
+	"function : EXTRACT '(' timestamp_part FROM value ')'",
+	"udf : symbol_UDF_name '(' value_list ')'",
+	"udf : symbol_UDF_name '(' ')'",
+	"timestamp_part : YEAR",
+	"timestamp_part : MONTH",
+	"timestamp_part : DAY",
+	"timestamp_part : HOUR",
+	"timestamp_part : MINUTE",
+	"timestamp_part : SECOND",
+	"timestamp_part : WEEKDAY",
+	"timestamp_part : YEARDAY",
+	"all_noise : ALL",
+	"all_noise : /* empty */",
+	"null_value : KW_NULL",
+	"symbol_UDF_name : SYMBOL",
+	"symbol_blob_subtype_name : SYMBOL",
+	"symbol_character_set_name : SYMBOL",
+	"symbol_collation_name : SYMBOL",
+	"symbol_column_name : SYMBOL",
+	"symbol_constraint_name : SYMBOL",
+	"symbol_cursor_name : SYMBOL",
+	"symbol_domain_name : SYMBOL",
+	"symbol_exception_name : SYMBOL",
+	"symbol_filter_name : SYMBOL",
+	"symbol_gdscode_name : SYMBOL",
+	"symbol_generator_name : SYMBOL",
+	"symbol_index_name : SYMBOL",
+	"symbol_item_alias_name : SYMBOL",
+	"symbol_procedure_name : SYMBOL",
+	"symbol_role_name : SYMBOL",
+	"symbol_table_alias_name : SYMBOL",
+	"symbol_table_name : SYMBOL",
+	"symbol_trigger_name : SYMBOL",
+	"symbol_user_name : SYMBOL",
+	"symbol_variable_name : SYMBOL",
+	"symbol_view_name : SYMBOL",
+};
+#endif /* YYDEBUG */
+/*
+ * Copyright (c) 1993 by Sun Microsystems, Inc.
+ */
+
+#pragma ident	"@(#)yaccpar	6.14	97/01/16 SMI"
+
+/*
+** Skeleton parser driver for yacc output
+*/
+
+/*
+** yacc user known macros and defines
+*/
+#define YYERROR		goto yyerrlab
+#define YYACCEPT	return(0)
+#define YYABORT		return(1)
+#define YYBACKUP( newtoken, newvalue )\
+{\
+	if ( DSQL_yychar >= 0 || ( yyr2[ yytmp ] >> 1 ) != 1 )\
+	{\
+		yyerror( "syntax error - cannot backup" );\
+		goto yyerrlab;\
+	}\
+	DSQL_yychar = newtoken;\
+	yystate = *yyps;\
+	yylval = newvalue;\
+	goto yynewstate;\
+}
+#define YYRECOVERING()	(!!DSQL_yyerrflag)
+#define YYNEW(type)	malloc(sizeof(type) * yynewmax)
+#define YYCOPY(to, from, type) \
+	(type *) memcpy(to, (char *) from, yymaxdepth * sizeof (type))
+#define YYENLARGE( from, type) \
+	(type *) realloc((char *) from, yynewmax * sizeof(type))
+#ifndef YYDEBUG
+#	define YYDEBUG	1			/* make debugging available */
+#endif
+
+/*
+** user known globals
+*/
+static int yydebug;				/* set to 1 to get debugging */
+
+/*
+** driver internal defines
+*/
+#define YYFLAG		(-10000000)
+
+/*
+** global variables used by the parser
+*/
+static YYSTYPE *yypv;			/* top of value stack */
+static int *yyps;				/* top of state stack */
+
+static int yystate;				/* current state */
+static int yytmp;				/* extra var (lasts between blocks) */
+
+static int yynerrs;				/* number of errors */
+#ifndef SHLIB_DEFS
+int DSQL_yyerrflag;
+#endif /* error recovery flag */
+#ifndef SHLIB_DEFS
+int DSQL_yychar;
+#endif /* current input token number */
+
+
+
+#ifdef YYNMBCHARS
+#define YYLEX(client_dialect, db_dialect, parser_version, stmt_ambiguous)		yycvtok(yylex(client_dialect, db_dialect, parser_version, stmt_ambiguous))
+/*
+** yycvtok - return a token if i is a wchar_t value that exceeds 255.
+**	If i<255, i itself is the token.  If i>255 but the neither 
+**	of the 30th or 31st bit is on, i is already a token.
+*/
+#if defined(__STDC__) || defined(__cplusplus)
+static int yycvtok(int i)
+#else
+static int yycvtok(i)
+	 int i;
+#endif
+{
+	int first = 0;
+	int last = YYNMBCHARS - 1;
+	int mid;
+	wchar_t j;
+
+	if (i & 0x60000000) {		/*Must convert to a token. */
+		if (yymbchars[last].character < i) {
+			return i;			/*Giving up */
+		}
+		while ((last >= first) && (first >= 0)) {	/*Binary search loop */
+			mid = (first + last) / 2;
+			j = yymbchars[mid].character;
+			if (j == i) {		/*Found */
+				return yymbchars[mid].tvalue;
+			}
+			else if (j < i) {
+				first = mid + 1;
+			}
+			else {
+				last = mid - 1;
+			}
+		}
+		/*No entry in the table. */
+		return i;				/* Giving up. */
+	}
+	else {						/* i is already a token. */
+		return i;
+	}
+}
+#else /*!YYNMBCHARS */
+#define YYLEX(client_dialect, db_dialect, parser_version, stmt_ambiguous)		yylex(client_dialect, db_dialect, parser_version, stmt_ambiguous)
+#endif /*!YYNMBCHARS */
+
+/*
+** dsql_yyparse - return 0 if worked, 1 if syntax error not recovered from
+*/
+#if defined(__STDC__) || defined(__cplusplus)
+int dsql_yyparse(USHORT client_dialect, USHORT db_dialect,
+				 USHORT parser_version, BOOLEAN * stmt_ambiguous)
+#else
+int dsql_yyparse(USHORT client_dialect, USHORT db_dialect,
+				 USHORT parser_version, BOOLEAN * stmt_ambiguous)
+#endif
+{
+	register YYSTYPE *yypvt = 0;	/* top of value stack for $vars */
+
+#if defined(__cplusplus) || defined(lint)
+/*
+	hacks to please C++ and lint - goto's inside
+	switch should never be executed
+*/
+	static int __yaccpar_lint_hack__ = 0;
+	switch (__yaccpar_lint_hack__) {
+	case 1:
+		goto yyerrlab;
+	case 2:
+		goto yynewstate;
+	}
+#endif
+
+	/*
+	   ** Initialize externals - dsql_yyparse may be called more than once
+	 */
+	yypv = &yyv[-1];
+	yyps = &yys[-1];
+	yystate = 0;
+	yytmp = 0;
+	yynerrs = 0;
+	DSQL_yyerrflag = 0;
+	DSQL_yychar = -1;
+
+#if YYMAXDEPTH <= 0
+	if (yymaxdepth <= 0) {
+		if ((yymaxdepth = YYEXPAND(0)) <= 0) {
+			yyerror("yacc initialization error");
+			YYABORT;
+		}
+	}
+#endif
+
+	{
+		register YYSTYPE *yy_pv;	/* top of value stack */
+		register int *yy_ps;	/* top of state stack */
+		register int yy_state;	/* current state */
+		register int yy_n;		/* internal state number info */
+		goto yystack;			/* moved from 6 lines above to here to please C++ */
+
+		/*
+		   ** get globals into registers.
+		   ** branch to here only if YYBACKUP was called.
+		 */
+	  yynewstate:
+		yy_pv = yypv;
+		yy_ps = yyps;
+		yy_state = yystate;
+		goto yy_newstate;
+
+		/*
+		   ** get globals into registers.
+		   ** either we just started, or we just finished a reduction
+		 */
+	  yystack:
+		yy_pv = yypv;
+		yy_ps = yyps;
+		yy_state = yystate;
+
+		/*
+		   ** top of for (;;) loop while no reductions done
+		 */
+	  yy_stack:
+		/*
+		   ** put a state and value onto the stacks
+		 */
+#if YYDEBUG
+		/*
+		   ** if debugging, look up token value in list of value vs.
+		   ** name pairs.  0 and negative (-1) are special values.
+		   ** Note: linear search is used since time is not a real
+		   ** consideration while debugging.
+		 */
+		if (yydebug) {
+			register int yy_i;
+
+			printf("State %d, token ", yy_state);
+			if (DSQL_yychar == 0)
+				printf("end-of-file\n");
+			else if (DSQL_yychar < 0)
+				printf("-none-\n");
+			else {
+				for (yy_i = 0; yytoks[yy_i].t_val >= 0; yy_i++) {
+					if (yytoks[yy_i].t_val == DSQL_yychar)
+						break;
+				}
+				printf("%s\n", yytoks[yy_i].t_name);
+			}
+		}
+#endif /* YYDEBUG */
+		if (++yy_ps >= &yys[yymaxdepth]) {	/* room on stack? */
+			/*
+			   ** reallocate and recover.  Note that pointers
+			   ** have to be reset, or bad things will happen
+			 */
+			int yyps_index = (yy_ps - yys);
+			int yypv_index = (yy_pv - yyv);
+			int yypvt_index = (yypvt - yyv);
+			int yynewmax;
+#ifdef YYEXPAND
+			yynewmax = YYEXPAND(yymaxdepth);
+#else
+			yynewmax = 2 * yymaxdepth;	/* double table size */
+			if (yymaxdepth == YYMAXDEPTH) {	/* first time growth */
+				char *newyys = (char *) YYNEW(int);
+				char *newyyv = (char *) YYNEW(YYSTYPE);
+				if (newyys != 0 && newyyv != 0) {
+					yys = YYCOPY(newyys, yys, int);
+					yyv = YYCOPY(newyyv, yyv, YYSTYPE);
+				}
+				else
+					yynewmax = 0;	/* failed */
+			}
+			else {				/* not first time */
+
+				yys = YYENLARGE(yys, int);
+				yyv = YYENLARGE(yyv, YYSTYPE);
+				if (yys == 0 || yyv == 0)
+					yynewmax = 0;	/* failed */
+			}
+#endif
+			if (yynewmax <= yymaxdepth) {	/* tables not expanded */
+				yyerror("yacc stack overflow");
+				YYABORT;
+			}
+			yymaxdepth = yynewmax;
+
+			yy_ps = yys + yyps_index;
+			yy_pv = yyv + yypv_index;
+			yypvt = yyv + yypvt_index;
+		}
+		*yy_ps = yy_state;
+		*++yy_pv = yyval;
+
+		/*
+		   ** we have a new state - find out what to do
+		 */
+	  yy_newstate:
+		if ((yy_n = yypact[yy_state]) <= YYFLAG)
+			goto yydefault;		/* simple state */
+#if YYDEBUG
+		/*
+		   ** if debugging, need to mark whether new token grabbed
+		 */
+		yytmp = DSQL_yychar < 0;
+#endif
+		if ((DSQL_yychar < 0)
+			&&
+			((DSQL_yychar
+			  =
+			  YYLEX(client_dialect, db_dialect, parser_version,
+					stmt_ambiguous)) < 0)) DSQL_yychar = 0;	/* reached EOF */
+#if YYDEBUG
+		if (yydebug && yytmp) {
+			register int yy_i;
+
+			printf("Received token ");
+			if (DSQL_yychar == 0)
+				printf("end-of-file\n");
+			else if (DSQL_yychar < 0)
+				printf("-none-\n");
+			else {
+				for (yy_i = 0; yytoks[yy_i].t_val >= 0; yy_i++) {
+					if (yytoks[yy_i].t_val == DSQL_yychar)
+						break;
+				}
+				printf("%s\n", yytoks[yy_i].t_name);
+			}
+		}
+#endif /* YYDEBUG */
+		if (((yy_n += DSQL_yychar) < 0) || (yy_n >= YYLAST))
+			goto yydefault;
+		if (yychk[yy_n = yyact[yy_n]] == DSQL_yychar) {	/*valid shift */
+			DSQL_yychar = -1;
+			yyval = yylval;
+			yy_state = yy_n;
+			if (DSQL_yyerrflag > 0)
+				DSQL_yyerrflag--;
+			goto yy_stack;
+		}
+
+	  yydefault:
+		if ((yy_n = yydef[yy_state]) == -2) {
+#if YYDEBUG
+			yytmp = DSQL_yychar < 0;
+#endif
+			if ((DSQL_yychar < 0)
+				&&
+				((DSQL_yychar
+				  =
+				  YYLEX(client_dialect, db_dialect, parser_version,
+						stmt_ambiguous)) < 0)) DSQL_yychar = 0;	/* reached EOF */
+#if YYDEBUG
+			if (yydebug && yytmp) {
+				register int yy_i;
+
+				printf("Received token ");
+				if (DSQL_yychar == 0)
+					printf("end-of-file\n");
+				else if (DSQL_yychar < 0)
+					printf("-none-\n");
+				else {
+					for (yy_i = 0; yytoks[yy_i].t_val >= 0; yy_i++) {
+						if (yytoks[yy_i].t_val == DSQL_yychar) {
+							break;
+						}
+					}
+					printf("%s\n", yytoks[yy_i].t_name);
+				}
+			}
+#endif /* YYDEBUG */
+			/*
+			   ** look through exception table
+			 */
+			{
+				register const int *yyxi = yyexca;
+
+				while ((*yyxi != -1) || (yyxi[1] != yy_state)) {
+					yyxi += 2;
+				}
+				while ((*(yyxi += 2) >= 0) && (*yyxi != DSQL_yychar));
+				if ((yy_n = yyxi[1]) < 0)
+					YYACCEPT;
+			}
+		}
+
+		/*
+		   ** check for syntax error
+		 */
+		if (yy_n == 0) {		/* have an error */
+			/* no worry about speed here! */
+			switch (DSQL_yyerrflag) {
+			case 0:			/* new error */
+				yyerror("syntax error");
+				goto skip_init;
+			  yyerrlab:
+				/*
+				   ** get globals into registers.
+				   ** we have a user generated syntax type error
+				 */
+				yy_pv = yypv;
+				yy_ps = yyps;
+				yy_state = yystate;
+			  skip_init:
+				yynerrs++;
+				/* FALLTHRU */
+			case 1:
+			case 2:			/* incompletely recovered error */
+				/* try again... */
+				DSQL_yyerrflag = 3;
+				/*
+				   ** find state where "error" is a legal
+				   ** shift action
+				 */
+				while (yy_ps >= yys) {
+					yy_n = yypact[*yy_ps] + YYERRCODE;
+					if (yy_n >= 0 && yy_n < YYLAST &&
+						yychk[yyact[yy_n]] == YYERRCODE) {
+						/*
+						   ** simulate shift of "error"
+						 */
+						yy_state = yyact[yy_n];
+						goto yy_stack;
+					}
+					/*
+					   ** current state has no shift on
+					   ** "error", pop stack
+					 */
+#if YYDEBUG
+#	define _POP_ "Error recovery pops state %d, uncovers state %d\n"
+					if (yydebug)
+						printf(_POP_, *yy_ps, yy_ps[-1]);
+#	undef _POP_
+#endif
+					yy_ps--;
+					yy_pv--;
+				}
+				/*
+				   ** there is no state on stack with "error" as
+				   ** a valid shift.  give up.
+				 */
+				YYABORT;
+			case 3:			/* no shift yet; eat a token */
+#if YYDEBUG
+				/*
+				   ** if debugging, look up token in list of
+				   ** pairs.  0 and negative shouldn't occur,
+				   ** but since timing doesn't matter when
+				   ** debugging, it doesn't hurt to leave the
+				   ** tests here.
+				 */
+				if (yydebug) {
+					register int yy_i;
+
+					printf("Error recovery discards ");
+					if (DSQL_yychar == 0)
+						printf("token end-of-file\n");
+					else if (DSQL_yychar < 0)
+						printf("token -none-\n");
+					else {
+						for (yy_i = 0; yytoks[yy_i].t_val >= 0; yy_i++) {
+							if (yytoks[yy_i].t_val == DSQL_yychar) {
+								break;
+							}
+						}
+						printf("token %s\n", yytoks[yy_i].t_name);
+					}
+				}
+#endif /* YYDEBUG */
+				if (DSQL_yychar == 0)	/* reached EOF. quit */
+					YYABORT;
+				DSQL_yychar = -1;
+				goto yy_newstate;
+			}
+		}						/* end if ( yy_n == 0 ) */
+		/*
+		   ** reduction by production yy_n
+		   ** put stack tops, etc. so things right after switch
+		 */
+#if YYDEBUG
+		/*
+		   ** if debugging, print the string that is the user's
+		   ** specification of the reduction which is just about
+		   ** to be done.
+		 */
+		if (yydebug)
+			printf("Reduce by (%d) \"%s\"\n", yy_n, yyreds[yy_n]);
+#endif
+		yytmp = yy_n;			/* value to switch over */
+		yypvt = yy_pv;			/* $vars top of value stack */
+		/*
+		   ** Look in goto table for next state
+		   ** Sorry about using yy_state here as temporary
+		   ** register variable, but why not, if it works...
+		   ** If yyr2[ yy_n ] doesn't have the low order bit
+		   ** set, then there is no action to be done for
+		   ** this reduction.  So, no saving & unsaving of
+		   ** registers done.  The only difference between the
+		   ** code just after the if and the body of the if is
+		   ** the goto yy_stack in the body.  This way the test
+		   ** can be made before the choice of what to do is needed.
+		 */
+		{
+			/* length of production doubled with extra bit */
+			register int yy_len = yyr2[yy_n];
+
+			if (!(yy_len & 01)) {
+				yy_len >>= 1;
+				yyval = (yy_pv -= yy_len)[1];	/* $$ = $1 */
+				yy_state = yypgo[yy_n = yyr1[yy_n]] + *(yy_ps -= yy_len) + 1;
+				if (yy_state >= YYLAST ||
+					yychk[yy_state = yyact[yy_state]] != -yy_n) {
+					yy_state = yyact[yypgo[yy_n]];
+				}
+				goto yy_stack;
+			}
+			yy_len >>= 1;
+			yyval = (yy_pv -= yy_len)[1];	/* $$ = $1 */
+			yy_state = yypgo[yy_n = yyr1[yy_n]] + *(yy_ps -= yy_len) + 1;
+			if (yy_state >= YYLAST ||
+				yychk[yy_state = yyact[yy_state]] != -yy_n) {
+				yy_state = yyact[yypgo[yy_n]];
+			}
+		}
+		/* save until reenter driver code */
+		yystate = yy_state;
+		yyps = yy_ps;
+		yypv = yy_pv;
+	}
+	/*
+	   ** code supplied by user is placed in this switch
+	 */
+	switch (yytmp) {
+
+	case 1:{
+			DSQL_parse = yypvt[-0];
+		}
+		break;
+	case 2:{
+			DSQL_parse = yypvt[-1];
+		}
+		break;
+	case 18:{
+			DSQL_debug = (int) yypvt[-0];
+			if (DSQL_debug > 10)
+				yydebug = DSQL_debug;
+			yyval = make_node(nod_null, (int) 0, NULL);
+		} break;
+	case 19:{
+			yyval = make_node(nod_grant, (int) e_grant_count,
+							  yypvt[-5], yypvt[-3], make_list(yypvt[-1]),
+							  yypvt[-0]);
+		} break;
+	case 20:{
+			yyval = make_node(nod_grant, (int) e_grant_count,
+							  yypvt[-6], yypvt[-3], make_list(yypvt[-1]),
+							  yypvt[-0]);
+		} break;
+	case 21:{
+			yyval = make_node(nod_grant, (int) e_grant_count,
+							  yypvt[-4], yypvt[-2], make_list(yypvt[-0]),
+							  NULL);} break;
+	case 22:{
+			yyval =
+				make_node(nod_grant, (int) e_grant_count, yypvt[-5],
+						  yypvt[-2], make_list(yypvt[-0]), NULL);
+		} break;
+	case 23:{
+			yyval = make_node(nod_grant, (int) e_grant_count,
+							  make_list(yypvt[-3]), make_list(yypvt[-1]),
+							  NULL, yypvt[-0]);
+		} break;
+	case 25:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 26:{
+			yyval = make_node(nod_all, (int) 0, NULL);
+		} break;
+	case 27:{
+			yyval = make_node(nod_all, (int) 0, NULL);
+		} break;
+	case 28:{
+			yyval = make_list(yypvt[-0]);
+		}
+		break;
+	case 30:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-2], yypvt[-0]);
+		} break;
+	case 31:{
+			yyval = make_list(make_node(nod_execute, (int) 0, NULL));
+		} break;
+	case 32:{
+			yyval = make_node(nod_select, (int) 0, NULL);
+		} break;
+	case 33:{
+			yyval = make_node(nod_insert, (int) 0, NULL);
+		} break;
+	case 34:{
+			yyval = make_node(nod_delete, (int) 0, NULL);
+		} break;
+	case 35:{
+			yyval = make_node(nod_update, (int) 1, yypvt[-0]);
+		} break;
+	case 36:{
+			yyval = make_node(nod_references, (int) 1, yypvt[-0]);
+		} break;
+	case 37:{
+			yyval = make_node(nod_grant, (int) 0, NULL);
+		} break;
+	case 38:{
+			yyval = 0;
+		}
+		break;
+	case 39:{
+			yyval = make_node(nod_grant_admin, (int) 0, NULL);
+		} break;
+	case 40:{
+			yyval = 0;
+		}
+		break;
+	case 41:{
+			yyval = make_node(nod_procedure_name, (int) 1, yypvt[-0]);
+		} break;
+	case 42:{
+			yyval = make_node(nod_revoke,
+							  (int) e_grant_count, yypvt[-4], yypvt[-2],
+							  make_list(yypvt[-0]), yypvt[-5]);
+		} break;
+	case 43:{
+			yyval = make_node(nod_revoke,
+							  (int) e_grant_count, yypvt[-5], yypvt[-2],
+							  make_list(yypvt[-0]), yypvt[-6]);
+		} break;
+	case 44:{
+			yyval = make_node(nod_revoke,
+							  (int) e_grant_count, yypvt[-4], yypvt[-2],
+							  make_list(yypvt[-0]), NULL);
+		} break;
+	case 45:{
+			yyval = make_node(nod_revoke,
+							  (int) e_grant_count, yypvt[-5], yypvt[-2],
+							  make_list(yypvt[-0]), NULL);
+		} break;
+	case 46:{
+			yyval = make_node(nod_revoke,
+							  (int) e_grant_count, yypvt[-4], yypvt[-2],
+							  make_list(yypvt[-0]), NULL);
+		} break;
+	case 47:{
+			yyval = make_node(nod_revoke,
+							  (int) e_grant_count, yypvt[-5], yypvt[-2],
+							  make_list(yypvt[-0]), NULL);
+		} break;
+	case 48:{
+			yyval = make_node(nod_revoke,
+							  (int) e_grant_count, make_list(yypvt[-2]),
+							  make_list(yypvt[-0]), NULL, NULL);
+		} break;
+	case 49:{
+			yyval = make_node(nod_grant, (int) 0, NULL);
+		} break;
+	case 51:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-2], yypvt[-0]);
+		} break;
+	case 52:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-2], yypvt[-0]);
+		} break;
+	case 53:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-2], yypvt[-0]);
+		} break;
+	case 54:{
+			yyval = make_node(nod_proc_obj, (int) 1, yypvt[-0]);
+		} break;
+	case 55:{
+			yyval = make_node(nod_trig_obj, (int) 1, yypvt[-0]);
+		} break;
+	case 56:{
+			yyval = make_node(nod_view_obj, (int) 1, yypvt[-0]);
+		} break;
+	case 58:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-2], yypvt[-0]);
+		} break;
+	case 59:{
+			yyval = make_node(nod_user_name, (int) 1, yypvt[-0]);
+		} break;
+	case 60:{
+			yyval = make_node(nod_user_name, (int) 1, yypvt[-0]);
+		} break;
+	case 61:{
+			yyval = make_node(nod_user_group, (int) 1, yypvt[-0]);
+		} break;
+	case 63:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-2], yypvt[-0]);
+		} break;
+	case 64:{
+			yyval = make_node(nod_role_name, (int) 1, yypvt[-0]);
+		} break;
+	case 66:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-2], yypvt[-0]);
+		} break;
+	case 67:{
+			yyval = make_node(nod_user_name, (int) 1, yypvt[-0]);
+		} break;
+	case 68:{
+			yyval = make_node(nod_user_name, (int) 1, yypvt[-0]);
+		} break;
+	case 69:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 70:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 71:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 72:{
+			yyval = make_node(nod_def_udf, (int) e_udf_count,
+							  yypvt[-7], yypvt[-2], yypvt[-0],
+							  make_list(yypvt[-6]), yypvt[-4]);
+		} break;
+	case 74:{
+			field->fld_dtype = dtype_blob;
+		}
+		break;
+	case 75:{
+			field->fld_dtype = dtype_cstring;
+			field->fld_character_length =
+				static_cast < SSHORT > ((SLONG) yypvt[-2]);
+		}
+		break;
+	case 76:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 78:{
+			yyval = yypvt[-1];
+		}
+		break;
+	case 80:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-2], yypvt[-0]);
+		} break;
+	case 81:{
+			yyval = yypvt[-1];
+		}
+		break;
+	case 83:{
+			yyval = yypvt[-1];
+		}
+		break;
+	case 84:{
+			yyval = make_node(nod_udf_return_value, (int) 2, yypvt[-1],
+							  MAKE_constant((STR) FUN_reference,
+											CONSTANT_SLONG));} break;
+	case 85:{
+			yyval =
+				make_node(nod_udf_return_value, (int) 2, yypvt[-2],
+						  MAKE_constant((STR) (-1 * FUN_reference),
+										CONSTANT_SLONG));} break;
+	case 86:{
+			yyval =
+				make_node(nod_udf_return_value, (int) 2, yypvt[-3],
+						  MAKE_constant((STR) FUN_value, CONSTANT_SLONG));
+		} break;
+	case 87:{
+			yyval = make_node(nod_udf_return_value, (int) 2,
+							  (NOD) NULL, MAKE_constant((STR) yypvt[-0],
+														CONSTANT_SLONG));}
+			break;
+	case 88:{
+			yyval =
+				make_node(nod_def_filter, (int) e_filter_count, yypvt[-8],
+						  yypvt[-6], yypvt[-4], yypvt[-2], yypvt[-0]);
+		} break;
+	case 89:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 90:{
+			yyval = make_node(nod_def_exception, (int) e_xcp_count,
+							  yypvt[-1], yypvt[-0]);
+		} break;
+	case 91:{
+			yyval = make_node(nod_def_index, (int) e_idx_count,
+							  yypvt[-6], yypvt[-5], yypvt[-3], yypvt[-1],
+							  yypvt[-0]);
+		} break;
+	case 92:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 93:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 94:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 95:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 96:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 97:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 98:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 99:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 100:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 101:{
+			yyval = make_node(nod_unique, (int) 0, NULL);
+		} break;
+	case 102:{
+			yyval = NULL;
+		}
+		break;
+	case 103:{
+			yyval = make_list(yypvt[-0]);
+		}
+		break;
+	case 105:{
+			yyval = make_node(nod_def_computed, 2, yypvt[-2], yypvt[-1]);
+		}
+		break;
+	case 106:{
+			yyval = make_node(nod_def_shadow, (int) e_shadow_count,
+							  yypvt[-5], yypvt[-4], yypvt[-3], yypvt[-2],
+							  yypvt[-1], make_list(yypvt[-0]));
+		} break;
+	case 107:{
+			yyval = MAKE_constant((STR) 1, CONSTANT_SLONG);
+		}
+		break;
+	case 108:{
+			yyval = MAKE_constant((STR) 0, CONSTANT_SLONG);
+		}
+		break;
+	case 109:{
+			yyval = MAKE_constant((STR) 0, CONSTANT_SLONG);
+		}
+		break;
+	case 110:{
+			yyval = MAKE_constant((STR) 0, CONSTANT_SLONG);
+		}
+		break;
+	case 111:{
+			yyval = MAKE_constant((STR) 1, CONSTANT_SLONG);
+		}
+		break;
+	case 112:{
+			yyval = (NOD) 0;
+		}
+		break;
+	case 113:{
+			yyval = yypvt[-1];
+		}
+		break;
+	case 114:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 117:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-1], yypvt[-0]);
+		} break;
+	case 118:{
+			yyval = make_node(nod_def_domain, (int) e_dom_count,
+							  yypvt[-7], yypvt[-3], yypvt[-2],
+							  make_list(yypvt[-1]), yypvt[-0]);
+		} break;
+	case 119:{
+			yyval = NULL;
+		}
+		break;
+	case 120:{
+			yyval = NULL;
+		}
+		break;
+	case 121:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 122:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 123:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 126:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-1], yypvt[-0]);
+		} break;
+	case 127:{
+			yyval = make_node(nod_rel_constraint, (int) 2, NULL, yypvt[-0]);
+		} break;
+	case 130:{
+			yyval = make_node(nod_null, (int) 0, NULL);
+		} break;
+	case 131:{
+			yyval = make_node(nod_def_constraint,
+							  (int) e_cnstr_count, MAKE_string(NULL_STRING,
+															   0), NULL, NULL,
+							  NULL, yypvt[-2], NULL, yypvt[-0], NULL, NULL);
+		} break;
+	case 132:{
+			yyval = make_node(nod_def_generator,
+							  (int) e_gen_count, yypvt[-0]);} break;
+	case 133:{
+			yyval = make_node(nod_def_role, (int) 1, yypvt[-0]);
+		} break;
+	case 134:{
+			yyval = make_node(nod_def_database, (int) e_cdb_count,
+							  yypvt[-2], make_list(yypvt[-1]),
+							  make_list(yypvt[-0]));} break;
+	case 137:{
+			log_defined = FALSE;
+			cache_defined = FALSE;
+			yyval = (NOD) yypvt[-0];
+		}
+		break;
+	case 138:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 141:{
+			yyval = make_node(nod_list, 2, yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 142:{
+			yyval = make_node(nod_page_size, 1, yypvt[-0]);
+		}
+		break;
+	case 143:{
+			yyval = make_node(nod_file_length, 1, yypvt[-1]);
+		}
+		break;
+	case 144:{
+			yyval = make_node(nod_user_name, 1, yypvt[-0]);
+		}
+		break;
+	case 145:{
+			yyval = make_node(nod_password, 1, yypvt[-0]);
+		}
+		break;
+	case 146:{
+			yyval = make_node(nod_lc_ctype, 1, yypvt[-0]);
+		}
+		break;
+	case 147:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 150:{
+			yyval = make_node(nod_list, 2, yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 154:{
+			yyval = make_node(nod_dfl_charset, 1, yypvt[-0]);
+		}
+		break;
+	case 155:{
+			yyval = make_node(nod_group_commit_wait, 1, yypvt[-0]);
+		}
+		break;
+	case 156:{
+			yyval = make_node(nod_check_point_len, 1, yypvt[-0]);
+		}
+		break;
+	case 157:{
+			yyval = make_node(nod_num_log_buffers, 1, yypvt[-0]);
+		}
+		break;
+	case 158:{
+			yyval = make_node(nod_log_buffer_size, 1, yypvt[-0]);
+		}
+		break;
+	case 159:{
+			if (log_defined)
+				yyabandon(-260, isc_log_redef);	/* Log redefined */
+			log_defined = TRUE;
+			yyval = yypvt[-0];
+		}
+		break;
+	case 160:{
+			if (log_defined)
+				yyabandon(-260, isc_log_redef);
+			log_defined = TRUE;
+			yyval = yypvt[-0];
+		}
+		break;
+	case 161:{
+			file->fil_flags |= LOG_serial | LOG_overflow;
+			if (file->fil_partitions)
+				yyabandon(-261, isc_partition_not_supp);
+			/* Partitions not supported in series of log file specification */
+			yyval = make_node(nod_list, 2, yypvt[-3], yypvt[-0]);
+		}
+		break;
+	case 162:{
+			file->fil_flags |= LOG_serial;
+			if (file->fil_partitions)
+				yyabandon(-261, isc_partition_not_supp);
+			yyval = yypvt[-0];
+		}
+		break;
+	case 163:{
+			file = make_file();
+			file->fil_flags = LOG_serial | LOG_default;
+			yyval = make_node(nod_log_file_desc, (int) 1, (NOD) file);
+		} break;
+	case 164:{
+			file->fil_name = (STR) yypvt[-1];
+			yyval = (NOD) make_node(nod_file_desc, (int) 1, (NOD) file);
+		} break;
+	case 166:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 167:{
+			check_log_file_attrs();
+			yyval = (NOD) make_node(nod_log_file_desc, (int) 1, (NOD) file);
+		} break;
+	case 168:{
+			file = make_file();
+			file->fil_name = (STR) yypvt[-0];
+		}
+		break;
+	case 171:{
+			file->fil_length = (SLONG) yypvt[-0];
+		}
+		break;
+	case 172:{
+			file = make_file();
+		}
+		break;
+	case 177:{
+			file->fil_start = (SLONG) yypvt[-0];
+		}
+		break;
+	case 178:{
+			file->fil_length = (SLONG) yypvt[-1];
+		}
+		break;
+	case 185:{
+			yyval = make_node(nod_def_relation,
+							  (int) e_drl_count, yypvt[-4],
+							  make_list(yypvt[-1]), yypvt[-3]);
+		} break;
+	case 186:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 187:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 188:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 190:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 193:{
+			yyval = make_node(nod_def_field, (int) e_dfl_count,
+							  yypvt[-5], yypvt[-3], yypvt[-2],
+							  make_list(yypvt[-1]), yypvt[-0], yypvt[-4],
+							  NULL);} break;
+	case 194:{
+			yyval =
+				make_node(nod_def_field, (int) e_dfl_count, yypvt[-2], NULL,
+						  NULL, NULL, NULL, NULL, yypvt[-0]);
+		} break;
+	case 195:{
+			yyval = make_node(nod_def_field, (int) e_dfl_count,
+							  yypvt[-1], NULL, NULL, NULL, NULL, NULL,
+							  yypvt[-0]);} break;
+	case 196:{
+			field->fld_flags |= FLD_computed;
+			yyval = make_node(nod_def_computed, 2, yypvt[-2], yypvt[-1]);
+		}
+		break;
+	case 199:{
+			yyval = NULL;
+		}
+		break;
+	case 200:{
+			yyval = make_node(nod_def_domain, (int) e_dom_count,
+							  yypvt[-1], NULL, NULL, NULL, NULL);
+		} break;
+	case 201:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 202:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 203:{
+			field_name = yypvt[-0];
+			field = make_field(yypvt[-0]);
+			yyval = (NOD) field;
+		}
+		break;
+	case 204:{
+			field = make_field(yypvt[-0]);
+			yyval = (NOD) field;
+		}
+		break;
+	case 205:{
+			yyval = yypvt[-1];
+		}
+		break;
+	case 206:{
+			field = make_field(NULL);
+			yyval = (NOD) field;
+		}
+		break;
+	case 207:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 208:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 209:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 210:{
+			yyval = make_node(nod_user_name, (int) 0, NULL);
+		} break;
+	case 211:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 212:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 213:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 216:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-1], yypvt[-0]);
+		} break;
+	case 217:{
+			yyval =
+				make_node(nod_rel_constraint, (int) 2, yypvt[-1],
+						  yypvt[-0]);} break;
+	case 218:{
+			yyval = make_node(nod_null, (int) 1, NULL);
+		} break;
+	case 219:{
+			yyval = make_node(nod_foreign, e_for_count,
+							  make_node(nod_list, (int) 1, field_name),
+							  yypvt[-2], yypvt[-1], yypvt[-0]);
+		} break;
+	case 221:{
+			yyval = make_node(nod_unique, (int) 0, NULL);
+		} break;
+	case 222:{
+			yyval = make_node(nod_primary, (int) 0, NULL);
+		} break;
+	case 223:{
+			yyval =
+				make_node(nod_rel_constraint, (int) 2, yypvt[-1],
+						  yypvt[-0]);} break;
+	case 224:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 225:{
+			yyval = NULL;
+		}
+		break;
+	case 230:{
+			yyval = make_node(nod_unique, 1, yypvt[-0]);
+		}
+		break;
+	case 231:{
+			yyval = make_node(nod_primary, e_pri_count, yypvt[-0]);
+		}
+		break;
+	case 232:{
+			yyval = make_node(nod_foreign, e_for_count, yypvt[-4], yypvt[-2],
+							  yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 233:{
+			yyval = make_node(nod_def_constraint,
+							  (int) e_cnstr_count, MAKE_string(NULL_STRING,
+															   0), NULL, NULL,
+							  NULL, yypvt[-2], NULL, yypvt[-0], NULL, NULL);
+		} break;
+	case 234:{
+			yyval =
+				make_node(nod_ref_upd_del, e_ref_upd_del_count, yypvt[-0],
+						  NULL);} break;
+	case 235:{
+			yyval =
+				make_node(nod_ref_upd_del, e_ref_upd_del_count, NULL,
+						  yypvt[-0]);}
+		break;
+	case 236:{
+			yyval =
+				make_node(nod_ref_upd_del, e_ref_upd_del_count, yypvt[-0],
+						  yypvt[-1]);}
+		break;
+	case 237:{
+			yyval =
+				make_node(nod_ref_upd_del, e_ref_upd_del_count, yypvt[-1],
+						  yypvt[-0]);}
+		break;
+	case 238:{
+			yyval = NULL;
+		}
+		break;
+	case 239:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 240:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 241:{
+			yyval = make_flag_node(nod_ref_trig_action,
+								   REF_ACTION_CASCADE,
+								   e_ref_trig_action_count, NULL);}
+		break;
+	case 242:{
+			yyval = make_flag_node(nod_ref_trig_action,
+								   REF_ACTION_SET_DEFAULT,
+								   e_ref_trig_action_count, NULL);
+		}
+		break;
+	case 243:{
+			yyval = make_flag_node(nod_ref_trig_action,
+								   REF_ACTION_SET_NULL,
+								   e_ref_trig_action_count, NULL);}
+		break;
+	case 244:{
+			yyval = make_flag_node(nod_ref_trig_action,
+								   REF_ACTION_NONE, e_ref_trig_action_count,
+								   NULL);}
+		break;
+	case 245:{
+			yyval = make_node(nod_def_procedure,
+							  (int) e_prc_count,
+							  yypvt[-7], yypvt[-6], yypvt[-5], yypvt[-2],
+							  yypvt[-1], yypvt[-0], NULL);
+		} break;
+	case 246:{
+			yyval = make_node(nod_mod_procedure,
+							  (int) e_prc_count,
+							  yypvt[-7], yypvt[-6], yypvt[-5], yypvt[-2],
+							  yypvt[-1], yypvt[-0], NULL);
+		} break;
+	case 247:{
+			yyval = make_list(yypvt[-1]);
+		}
+		break;
+	case 248:{
+			yyval = NULL;
+		}
+		break;
+	case 249:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 250:{
+			yyval = NULL;
+		}
+		break;
+	case 252:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 253:{
+			yyval = make_node(nod_def_field, (int) e_dfl_count,
+							  yypvt[-1], NULL, NULL, NULL, NULL, NULL, NULL);
+		} break;
+	case 254:{
+			yyval = make_list(yypvt[-0]);
+		}
+		break;
+	case 255:{
+			yyval = NULL;
+		}
+		break;
+	case 257:{
+			yyval = make_node(nod_list, 2, yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 258:{
+			yyval = make_node(nod_def_field, (int) e_dfl_count,
+							  yypvt[-2], NULL, NULL, NULL, NULL, NULL, NULL);
+		} break;
+	case 261:{
+			yyval = make_node(nod_block, e_blk_count,
+							  make_list(yypvt[-1]), NULL);}
+		break;
+	case 262:{
+			yyval = make_node(nod_block, e_blk_count,
+							  make_list(yypvt[-2]), make_list(yypvt[-1]));
+		}
+		break;
+	case 264:{
+			yyval = make_node(nod_list, 2, yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 267:{
+			yyval = make_node(nod_exception_stmt, 1, yypvt[-1]);
+		}
+		break;
+	case 272:{
+			yyval = make_node(nod_post, e_pst_count, yypvt[-1]);
+		}
+		break;
+	case 276:{
+			yyval = make_node(nod_return, e_rtn_count, NULL);
+		}
+		break;
+	case 277:{
+			yyval = make_node(nod_exit, 0, NULL);
+		}
+		break;
+	case 278:{
+			yyval = make_node(nod_exec_procedure, e_exe_count, yypvt[-3],
+							  yypvt[-2], yypvt[-1]);
+		}
+		break;
+	case 279:{
+			yyval = make_node(nod_for_select, e_flp_count, yypvt[-5],
+							  make_list(yypvt[-3]), yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 280:{
+			yyval =
+				make_node(nod_if, e_if_count, yypvt[-5], yypvt[-2],
+						  yypvt[-0]);} break;
+	case 281:{
+			yyval = make_node(nod_if, e_if_count, yypvt[-3], yypvt[-0], NULL);
+		}
+		break;
+	case 282:{
+			yyval = make_node(nod_for_select, e_flp_count, yypvt[-3],
+							  make_list(yypvt[-1]), NULL, NULL);
+		}
+		break;
+	case 283:{
+			yyval = make_node(nod_var_name, (int) e_vrn_count, yypvt[-0]);
+		} break;
+	case 284:{
+			yyval = make_list(yypvt[-0]);
+		}
+		break;
+	case 285:{
+			yyval = make_list(yypvt[-1]);
+		}
+		break;
+	case 286:{
+			yyval = NULL;
+		}
+		break;
+	case 287:{
+			yyval = make_list(yypvt[-0]);
+		}
+		break;
+	case 288:{
+			yyval = make_list(yypvt[-1]);
+		}
+		break;
+	case 289:{
+			yyval = NULL;
+		}
+		break;
+	case 294:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 295:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 296:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 297:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 300:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 301:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 302:{
+			yyval = make_node(nod_while, e_while_count,
+							  yypvt[-3], yypvt[-0], NULL);}
+		break;
+	case 303:{
+			yyval = make_node(nod_cursor, e_cur_count, yypvt[-0], NULL, NULL);
+		}
+		break;
+	case 304:{
+			yyval = NULL;
+		}
+		break;
+	case 306:{
+			yyval = make_node(nod_list, 2, yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 307:{
+			yyval = make_node(nod_on_error, e_err_count,
+							  make_list(yypvt[-2]), yypvt[-0]);
+		}
+		break;
+	case 309:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 310:{
+			yyval = make_node(nod_sqlcode, 1, yypvt[-0]);
+		}
+		break;
+	case 311:{
+			yyval = make_node(nod_gdscode, 1, yypvt[-0]);
+		}
+		break;
+	case 312:{
+			yyval = make_node(nod_exception, 1, yypvt[-0]);
+		}
+		break;
+	case 313:{
+			yyval = make_node(nod_default, 1, NULL);
+		}
+		break;
+	case 314:{
+			yyval = make_node(nod_exec_procedure, e_exe_count, yypvt[-1],
+							  yypvt[-0], make_node(nod_all, (int) 0, NULL));
+		} break;
+	case 315:{
+			yyval = make_list(yypvt[-0]);
+		}
+		break;
+	case 316:{
+			yyval = make_list(yypvt[-1]);
+		}
+		break;
+	case 317:{
+			yyval = NULL;
+		}
+		break;
+	case 321:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 322:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 323:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 324:{
+			yyval = make_node(nod_def_view, (int) e_view_count,
+							  yypvt[-6], yypvt[-5], yypvt[-2], yypvt[-1],
+							  yypvt[-0]);
+		} break;
+	case 325:{
+			yyval = make_node(nod_select, (int) 2, yypvt[-0], NULL);
+		} break;
+	case 326:{
+			yyval = make_node(nod_list, (int) 1, yypvt[-0]);
+		} break;
+	case 327:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 328:{
+			yyval =
+				make_flag_node(nod_list, NOD_UNION_ALL, 2, yypvt[-3],
+							   yypvt[-0]);}
+		break;
+	case 329:{
+			yyval = make_node(nod_select_expr, e_sel_count,
+							  yypvt[-6], yypvt[-5], yypvt[-4], yypvt[-3],
+							  yypvt[-2], yypvt[-1], yypvt[-0], NULL);
+		}
+		break;
+	case 330:{
+			yyval = make_list(yypvt[-0]);
+		}
+		break;
+	case 332:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 335:{
+			yyval = make_node(nod_join, (int) e_join_count,
+							  yypvt[-5], yypvt[-4], yypvt[-2], yypvt[-0]);
+		} break;
+	case 336:{
+			yyval = yypvt[-1];
+		}
+		break;
+	case 337:{
+			beginning = lex_position();
+		}
+		break;
+	case 338:{
+			yyval = (NOD) MAKE_string((UCHAR *) beginning,
+									  (lex_position() == end) ?
+									  lex_position() -
+									  beginning : last_token - beginning);
+		}
+		break;
+	case 339:{
+			beginning = last_token;
+		}
+		break;
+	case 340:{
+			yyval = (NOD) MAKE_string((UCHAR *) beginning,
+									  lex_position() - beginning);}
+		break;
+	case 341:{
+			yyval = make_node(nod_def_constraint, (int) e_cnstr_count,
+							  MAKE_string(NULL_STRING, 0), NULL, NULL, NULL,
+							  NULL, NULL, NULL, NULL, NULL);
+		} break;
+	case 342:{
+			yyval = 0;
+		}
+		break;
+	case 343:{
+			yyval = make_node(nod_def_trigger, (int) e_trg_count,
+							  yypvt[-8], yypvt[-6], yypvt[-5], yypvt[-4],
+							  yypvt[-3], yypvt[-1], yypvt[-0], NULL);
+		} break;
+	case 344:{
+			yyval = MAKE_constant((STR) 0, CONSTANT_SLONG);
+		}
+		break;
+	case 345:{
+			yyval = MAKE_constant((STR) 1, CONSTANT_SLONG);
+		}
+		break;
+	case 346:{
+			yyval = NULL;
+		}
+		break;
+	case 347:{
+			yyval = MAKE_constant((STR) 1, CONSTANT_SLONG);
+		}
+		break;
+	case 348:{
+			yyval = MAKE_constant((STR) 2, CONSTANT_SLONG);
+		}
+		break;
+	case 349:{
+			yyval = MAKE_constant((STR) 3, CONSTANT_SLONG);
+		}
+		break;
+	case 350:{
+			yyval = MAKE_constant((STR) 4, CONSTANT_SLONG);
+		}
+		break;
+	case 351:{
+			yyval = MAKE_constant((STR) 5, CONSTANT_SLONG);
+		}
+		break;
+	case 352:{
+			yyval = MAKE_constant((STR) 6, CONSTANT_SLONG);
+		}
+		break;
+	case 353:{
+			yyval = MAKE_constant((STR) yypvt[-0], CONSTANT_SLONG);
+		}
+		break;
+	case 354:{
+			yyval = NULL;
+		}
+		break;
+	case 355:{
+			yyval = make_node(nod_list, 2, yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 356:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 357:{
+			yyval = make_node(nod_mod_exception, (int) e_xcp_count,
+							  yypvt[-1], yypvt[-0]);
+		} break;
+	case 358:{
+			yyval = make_node(nod_mod_relation, (int) e_alt_count,
+							  yypvt[-1], make_list(yypvt[-0]));
+		} break;
+	case 359:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 360:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 361:{
+			yyval = make_node(nod_mod_database, (int) e_adb_count,
+							  make_list(yypvt[-0]));
+		} break;
+	case 362:{
+			yyval = make_node(nod_mod_domain, (int) e_alt_count,
+							  yypvt[-1], make_list(yypvt[-0]));
+		} break;
+	case 363:{
+			yyval = make_node(nod_mod_index,
+							  (int) e_mod_idx_count, yypvt[-0]);} break;
+	case 365:{
+			yyval = make_node(nod_list, 2, yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 366:{
+			yyval = make_node(nod_def_default, (int) e_dft_count,
+							  yypvt[-1], yypvt[-0]);
+		} break;
+	case 367:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 368:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 369:{
+			yyval = make_node(nod_del_default, (int) 0, NULL);
+		} break;
+	case 370:{
+			yyval = make_node(nod_delete_rel_constraint, (int) 1, NULL);
+		} break;
+	case 371:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 372:{
+			yyval = make_node(nod_mod_domain_type, 2, yypvt[-1]);
+		}
+		break;
+	case 374:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 375:{
+			yyval = make_node(nod_del_field, 2, yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 376:{
+			yyval = make_node(nod_delete_rel_constraint, (int) 1, yypvt[-0]);
+		} break;
+	case 377:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 378:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 379:{
+			yyval = make_node(nod_mod_field_pos, 2, yypvt[-2],
+							  MAKE_constant((STR) yypvt[-0], CONSTANT_SLONG));
+		}
+		break;
+	case 380:{
+			yyval = make_node(nod_mod_field_name, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 381:{
+			yyval =
+				make_node(nod_mod_field_type, 3, yypvt[-3], yypvt[-0],
+						  yypvt[-1]);}
+		break;
+	case 382:{
+			yyval = make_node(nod_field_name, (int) e_fln_count,
+							  NULL, yypvt[-0]);} break;
+	case 400:{
+			yyval = NULL;
+		}
+		break;
+	case 401:{
+			yyval = NULL;
+		}
+		break;
+	case 402:{
+			yyval = NULL;
+		}
+		break;
+	case 403:{
+			yyval = make_node(nod_def_domain, (int) e_dom_count,
+							  yypvt[-1], NULL, NULL, NULL, NULL);
+		} break;
+	case 404:{
+			field_name = yypvt[-0];
+			field = make_field(yypvt[-0]);
+			yyval = (NOD) field;
+		}
+		break;
+	case 405:{
+			yyval = make_node(nod_restrict, 0, NULL);
+		}
+		break;
+	case 406:{
+			yyval = make_node(nod_cascade, 0, NULL);
+		}
+		break;
+	case 407:{
+			yyval = make_node(nod_restrict, 0, NULL);
+		}
+		break;
+	case 408:{
+			yyval = make_node(nod_idx_active, 1, yypvt[-1]);
+		}
+		break;
+	case 409:{
+			yyval = make_node(nod_idx_inactive, 1, yypvt[-1]);
+		}
+		break;
+	case 410:{
+			log_defined = FALSE;
+			cache_defined = FALSE;
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 412:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-1], yypvt[-0]);
+		} break;
+	case 413:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 414:{
+			yyval = make_node(nod_drop_log, (int) 0, NULL);
+		} break;
+	case 415:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 416:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 418:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-2], yypvt[-0]);
+		} break;
+	case 419:{
+			yyval = make_node(nod_mod_trigger, (int) e_trg_count,
+							  yypvt[-6], NULL, yypvt[-5], yypvt[-4],
+							  yypvt[-3], yypvt[-1], yypvt[-0], NULL);
+		} break;
+	case 421:{
+			yyval = NULL;
+		}
+		break;
+	case 423:{
+			yyval = NULL;
+		}
+		break;
+	case 424:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 425:{
+			yyval = make_node(nod_del_exception, 1, yypvt[-0]);
+		}
+		break;
+	case 426:{
+			yyval = make_node(nod_del_index, (int) 1, yypvt[-0]);
+		} break;
+	case 427:{
+			yyval = make_node(nod_del_procedure, (int) 1, yypvt[-0]);
+		} break;
+	case 428:{
+			yyval = make_node(nod_del_relation, (int) 1, yypvt[-0]);
+		} break;
+	case 429:{
+			yyval = make_node(nod_del_trigger, (int) 1, yypvt[-0]);
+		} break;
+	case 430:{
+			yyval = make_node(nod_del_relation, (int) 1, yypvt[-0]);
+		} break;
+	case 431:{
+			yyval = make_node(nod_del_filter, (int) 1, yypvt[-0]);
+		} break;
+	case 432:{
+			yyval = make_node(nod_del_domain, (int) 1, yypvt[-0]);
+		} break;
+	case 433:{
+			yyval = make_node(nod_del_udf, (int) 1, yypvt[-0]);
+		} break;
+	case 434:{
+			yyval = make_node(nod_del_shadow, (int) 1, yypvt[-0]);
+		} break;
+	case 435:{
+			yyval = make_node(nod_del_role, (int) 1, yypvt[-0]);
+		} break;
+	case 440:{
+			field->fld_ranges = make_list(yypvt[-1]);
+			field->fld_dimensions = field->fld_ranges->nod_count / 2;
+			field->fld_element_dtype = field->fld_dtype;
+			yyval = yypvt[-3];
+		}
+		break;
+	case 441:{
+			field->fld_ranges = make_list(yypvt[-2]);
+			field->fld_dimensions = field->fld_ranges->nod_count / 2;
+			field->fld_element_dtype = field->fld_dtype;
+			yyval = yypvt[-4];
+		}
+		break;
+	case 443:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-2], yypvt[-0]);
+		} break;
+	case 444:{
+			if ((SLONG) yypvt[-0] < 1)
+				yyval = make_node(nod_list, (int) 2,
+								  MAKE_constant((STR) yypvt[-0],
+												CONSTANT_SLONG),
+								  MAKE_constant((STR) 1, CONSTANT_SLONG));
+			else
+				yyval =
+					make_node(nod_list, (int) 2,
+							  MAKE_constant((STR) 1, CONSTANT_SLONG),
+							  MAKE_constant((STR) yypvt[-0], CONSTANT_SLONG));
+		} break;
+	case 445:{
+			yyval = make_node(nod_list, (int) 2,
+							  MAKE_constant((STR) yypvt[-2], CONSTANT_SLONG),
+							  MAKE_constant((STR) yypvt[-0], CONSTANT_SLONG));
+		} break;
+	case 451:{
+			field->fld_dtype = dtype_long;
+			field->fld_length = sizeof(SLONG);
+		}
+		break;
+	case 452:{
+			field->fld_dtype = dtype_short;
+			field->fld_length = sizeof(SSHORT);
+		}
+		break;
+	case 453:{
+			*stmt_ambiguous = TRUE;
+			if (client_dialect <= SQL_DIALECT_V5) {
+				/* Post warning saying that DATE is equivalent to TIMESTAMP */
+				ERRD_post_warning(isc_sqlwarn, gds_arg_number, (SLONG) 301,
+								  isc_arg_warning, isc_dtype_renamed, 0);
+				field->fld_dtype = dtype_timestamp;
+				field->fld_length = sizeof(GDS_TIMESTAMP);
+			}
+			else if (client_dialect == SQL_DIALECT_V6_TRANSITION)
+				yyabandon(-104, isc_transitional_date);
+			else {
+				field->fld_dtype = dtype_sql_date;
+				field->fld_length = sizeof(ULONG);
+			}
+		}
+		break;
+	case 454:{
+			if (client_dialect < SQL_DIALECT_V6_TRANSITION)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, isc_sql_dialect_datatype_unsupport,
+						  gds_arg_number, client_dialect,
+						  gds_arg_string, "TIME", 0);
+			if (db_dialect < SQL_DIALECT_V6_TRANSITION)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, isc_sql_db_dialect_dtype_unsupport,
+						  gds_arg_number, db_dialect,
+						  gds_arg_string, "TIME", 0);
+			field->fld_dtype = dtype_sql_time;
+			field->fld_length = sizeof(SLONG);
+		}
+		break;
+	case 455:{
+			field->fld_dtype = dtype_timestamp;
+			field->fld_length = sizeof(GDS_TIMESTAMP);
+		}
+		break;
+	case 458:{
+			field->fld_dtype = dtype_blob;
+		}
+		break;
+	case 459:{
+			field->fld_dtype = dtype_blob;
+			field->fld_seg_length =
+				static_cast < USHORT > ((SLONG) yypvt[-1]);
+			field->fld_sub_type = 0;
+		}
+		break;
+	case 460:{
+			field->fld_dtype = dtype_blob;
+			field->fld_seg_length =
+				static_cast < USHORT > ((SLONG) yypvt[-3]);
+			field->fld_sub_type = static_cast < SSHORT > ((SLONG) yypvt[-1]);
+		}
+		break;
+	case 461:{
+			field->fld_dtype = dtype_blob;
+			field->fld_seg_length = 80;
+			field->fld_sub_type = static_cast < SSHORT > ((SLONG) yypvt[-1]);
+		}
+		break;
+	case 462:{
+			field->fld_seg_length =
+				static_cast < USHORT > ((SLONG) yypvt[-0]);
+		}
+		break;
+	case 463:{
+			field->fld_seg_length = (SLONG) 80;
+		}
+		break;
+	case 464:{
+			field->fld_sub_type = static_cast < SSHORT > ((SLONG) yypvt[-0]);
+		}
+		break;
+	case 465:{
+			field->fld_sub_type_name = yypvt[-0];
+		}
+		break;
+	case 466:{
+			field->fld_sub_type = (SLONG) 0;
+		}
+		break;
+	case 467:{
+			field->fld_character_set = yypvt[-0];
+		}
+		break;
+	case 469:{
+			field->fld_dtype = dtype_text;
+			field->fld_character_length =
+				static_cast < USHORT > ((SLONG) yypvt[-1]);
+			field->fld_flags |= FLD_national;
+		}
+		break;
+	case 470:{
+			field->fld_dtype = dtype_text;
+			field->fld_character_length = 1;
+			field->fld_flags |= FLD_national;
+		}
+		break;
+	case 471:{
+			field->fld_dtype = dtype_varying;
+			field->fld_character_length =
+				static_cast < USHORT > ((SLONG) yypvt[-1]);
+			field->fld_flags |= FLD_national;
+		}
+		break;
+	case 472:{
+			field->fld_dtype = dtype_text;
+			field->fld_character_length =
+				static_cast < USHORT > ((SLONG) yypvt[-1]);
+		}
+		break;
+	case 473:{
+			field->fld_dtype = dtype_text;
+			field->fld_character_length = 1;
+		}
+		break;
+	case 474:{
+			field->fld_dtype = dtype_varying;
+			field->fld_character_length =
+				static_cast < USHORT > ((SLONG) yypvt[-1]);
+		}
+		break;
+	case 483:{
+			field->fld_sub_type = dsc_num_type_numeric;
+		}
+		break;
+	case 484:{
+			field->fld_sub_type = dsc_num_type_decimal;
+			if (field->fld_dtype == dtype_short) {
+				field->fld_dtype = dtype_long;
+				field->fld_length = sizeof(SLONG);
+			};
+		}
+		break;
+	case 485:{
+			yyval = make_node(nod_position, 1, yypvt[-0]);
+		}
+		break;
+	case 486:{
+			field->fld_dtype = dtype_long;
+			field->fld_length = sizeof(SLONG);
+			field->fld_precision = 9;
+		}
+		break;
+	case 487:{
+			if (((SLONG) yypvt[-1] < 1) || ((SLONG) yypvt[-1] > 18))
+				yyabandon(-842, isc_precision_err);
+			/* Precision most be between 1 and 18. */
+			if ((SLONG) yypvt[-1] > 9) {
+				if (((client_dialect <= SQL_DIALECT_V5) &&
+					 (db_dialect > SQL_DIALECT_V5)) ||
+					((client_dialect > SQL_DIALECT_V5) &&
+					 (db_dialect <= SQL_DIALECT_V5)))
+						ERRD_post(gds_sqlerr,
+								  gds_arg_number, (SLONG) - 817,
+								  gds_arg_gds,
+								  isc_ddl_not_allowed_by_db_sql_dial,
+								  gds_arg_number, (SLONG) db_dialect, 0);
+				if (client_dialect <= SQL_DIALECT_V5) {
+					field->fld_dtype = dtype_double;
+					field->fld_length = sizeof(double);
+				}
+				else {
+					if (client_dialect == SQL_DIALECT_V6_TRANSITION) {
+						ERRD_post_warning(isc_dsql_warn_precision_ambiguous,
+										  gds_arg_end);
+						ERRD_post_warning(isc_dsql_warn_precision_ambiguous1,
+										  gds_arg_end);
+						ERRD_post_warning(isc_dsql_warn_precision_ambiguous2,
+										  gds_arg_end);
+
+					}
+					field->fld_dtype = dtype_int64;
+					field->fld_length = sizeof(SINT64);
+				}
+			}
+			else if ((SLONG) yypvt[-1] < 5) {
+				field->fld_dtype = dtype_short;
+				field->fld_length = sizeof(SSHORT);
+			}
+			else {
+				field->fld_dtype = dtype_long;
+				field->fld_length = sizeof(SLONG);
+			}
+			field->fld_precision = static_cast < USHORT > ((SLONG) yypvt[-1]);
+		}
+		break;
+	case 488:{
+			if (((SLONG) yypvt[-3] < 1) || ((SLONG) yypvt[-3] > 18))
+				yyabandon(-842, isc_precision_err);
+			/* Precision should be between 1 and 18 */
+			if (((SLONG) yypvt[-1] > (SLONG) yypvt[-3])
+				|| ((SLONG) yypvt[-1] < 0))
+				yyabandon(-842, isc_scale_nogt);
+			/* Scale must be between 0 and precision */
+			if ((SLONG) yypvt[-3] > 9) {
+				if (((client_dialect <= SQL_DIALECT_V5) &&
+					 (db_dialect > SQL_DIALECT_V5)) ||
+					((client_dialect > SQL_DIALECT_V5) &&
+					 (db_dialect <= SQL_DIALECT_V5)))
+						ERRD_post(gds_sqlerr,
+								  gds_arg_number, (SLONG) - 817,
+								  gds_arg_gds,
+								  isc_ddl_not_allowed_by_db_sql_dial,
+								  gds_arg_number, (SLONG) db_dialect, 0);
+				if (client_dialect <= SQL_DIALECT_V5) {
+					field->fld_dtype = dtype_double;
+					field->fld_length = sizeof(double);
+				}
+				else {
+					if (client_dialect == SQL_DIALECT_V6_TRANSITION) {
+						ERRD_post_warning(isc_dsql_warn_precision_ambiguous,
+										  gds_arg_end);
+						ERRD_post_warning(isc_dsql_warn_precision_ambiguous1,
+										  gds_arg_end);
+						ERRD_post_warning(isc_dsql_warn_precision_ambiguous2,
+										  gds_arg_end);
+					}
+					/* client_dialect >= SQL_DIALECT_V6 */
+					field->fld_dtype = dtype_int64;
+					field->fld_length = sizeof(SINT64);
+				}
+			}
+			else {
+				if ((SLONG) yypvt[-3] < 5) {
+					field->fld_dtype = dtype_short;
+					field->fld_length = sizeof(SSHORT);
+				}
+				else {
+					field->fld_dtype = dtype_long;
+					field->fld_length = sizeof(SLONG);
+				}
+			}
+			field->fld_precision = static_cast < USHORT > ((SLONG) yypvt[-3]);
+			field->fld_scale = static_cast < SSHORT > (-(SLONG) yypvt[-1]);
+		}
+		break;
+	case 491:{
+			if ((SLONG) yypvt[-0] > 7) {
+				field->fld_dtype = dtype_double;
+				field->fld_length = sizeof(double);
+			}
+			else {
+				field->fld_dtype = dtype_real;
+				field->fld_length = sizeof(float);
+			}
+		} break;
+	case 492:{
+			field->fld_dtype = dtype_double;
+			field->fld_length = sizeof(double);
+		} break;
+	case 493:{
+			field->fld_dtype = dtype_real;
+			field->fld_length = sizeof(float);
+		} break;
+	case 494:{
+			field->fld_dtype = dtype_double;
+			field->fld_length = sizeof(double);
+		} break;
+	case 495:{
+			yyval = yypvt[-1];
+		}
+		break;
+	case 496:{
+			yyval = 0;
+		}
+		break;
+	case 500:{
+			yyval = make_node(nod_set_generator2, e_gen_id_count, yypvt[-2],
+							  MAKE_constant((STR) yypvt[-0], CONSTANT_SLONG));
+		}
+		break;
+	case 501:{
+			yyval = make_node(nod_set_generator2, e_gen_id_count, yypvt[-2],
+							  MAKE_constant((STR) yypvt[-0],
+											CONSTANT_SINT64));
+		}
+		break;
+	case 502:{
+			yyval = make_node(nod_set_generator2, e_gen_id_count, yypvt[-3],
+							  make_node(nod_negate, 1,
+										MAKE_constant((STR) yypvt[-0],
+													  CONSTANT_SINT64)));
+		}
+		break;
+	case 503:{
+			yyval = make_node(nod_commit, 1, yypvt[-0]);
+		}
+		break;
+	case 504:{
+			yyval = make_node(nod_rollback, 0, NULL);
+		}
+		break;
+	case 507:{
+			yyval = make_node(nod_commit_retain, 0, NULL);
+		}
+		break;
+	case 508:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 510:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 511:{
+			yyval = make_node(nod_trans, 1, make_list(yypvt[-0]));
+		}
+		break;
+	case 513:{
+			yyval = (NOD) NULL;
+		}
+		break;
+	case 515:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-1], yypvt[-0]);
+		} break;
+	case 520:{
+			yyval = make_flag_node(nod_access, NOD_READ_ONLY, (int) 0, NULL);
+		} break;
+	case 521:{
+			yyval = make_flag_node(nod_access, NOD_READ_WRITE, (int) 0, NULL);
+		} break;
+	case 522:{
+			yyval = make_flag_node(nod_wait, NOD_WAIT, (int) 0, NULL);
+		} break;
+	case 523:{
+			yyval = make_flag_node(nod_wait, NOD_NO_WAIT, (int) 0, NULL);
+		} break;
+	case 524:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 526:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 527:{
+			yyval =
+				make_flag_node(nod_isolation, NOD_READ_COMMITTED, 1,
+							   yypvt[-0]);} break;
+	case 528:{
+			yyval =
+				make_flag_node(nod_isolation, NOD_READ_COMMITTED, 1,
+							   yypvt[-0]);} break;
+	case 529:{
+			yyval = make_flag_node(nod_isolation, NOD_CONCURRENCY, 0, NULL);
+		}
+		break;
+	case 530:{
+			yyval = make_flag_node(nod_isolation, NOD_CONSISTENCY, 0, NULL);
+		}
+		break;
+	case 531:{
+			yyval = make_flag_node(nod_isolation, NOD_CONSISTENCY, 0, NULL);
+		}
+		break;
+	case 532:{
+			yyval = make_flag_node(nod_version, NOD_VERSION, 0, NULL);
+		}
+		break;
+	case 533:{
+			yyval = make_flag_node(nod_version, NOD_NO_VERSION, 0, NULL);
+		}
+		break;
+	case 534:{
+			yyval = 0;
+		}
+		break;
+	case 535:{
+			yyval = make_node(nod_reserve, 1, make_list(yypvt[-0]));
+		}
+		break;
+	case 536:{
+			yyval = (NOD) NOD_SHARED;
+		}
+		break;
+	case 537:{
+			yyval = (NOD) NOD_PROTECTED;
+		}
+		break;
+	case 538:{
+			yyval = (NOD) 0;
+		}
+		break;
+	case 539:{
+			yyval = (NOD) NOD_READ;
+		}
+		break;
+	case 540:{
+			yyval = (NOD) NOD_WRITE;
+		}
+		break;
+	case 542:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-2], yypvt[-0]);
+		} break;
+	case 543:{
+			yyval =
+				make_node(nod_table_lock, (int) 2, make_list(yypvt[-1]),
+						  yypvt[-0]);} break;
+	case 544:{
+			yyval =
+				make_flag_node(nod_lock_mode,
+							   ((SSHORT) yypvt[-1] | (SSHORT) yypvt[-0]), 0,
+							   NULL);}
+		break;
+	case 545:{
+			yyval = 0;
+		}
+		break;
+	case 547:{
+			yyval = make_node(nod_list, (int) 2, yypvt[-2], yypvt[-0]);
+		} break;
+	case 548:{
+			yyval = make_node(nod_set_statistics,
+							  (int) e_stat_count, yypvt[-0]);} break;
+	case 549:{
+			yyval = make_node(nod_select, 3, yypvt[-2], yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 550:{
+			yyval = make_node(nod_list, 1, yypvt[-0]);
+		}
+		break;
+	case 551:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 552:{
+			yyval =
+				make_flag_node(nod_list, NOD_UNION_ALL, 2, yypvt[-3],
+							   yypvt[-0]);}
+		break;
+	case 553:{
+			yyval = make_list(yypvt[-0]);
+		}
+		break;
+	case 554:{
+			yyval = 0;
+		}
+		break;
+	case 556:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 557:{
+			yyval =
+				make_node(nod_order, e_order_count, yypvt[-2], yypvt[-0],
+						  yypvt[-1]);}
+		break;
+	case 558:{
+			yyval =
+				make_node(nod_order, e_order_count, yypvt[-2], yypvt[-0],
+						  yypvt[-1]);}
+		break;
+	case 559:{
+			yyval = 0;
+		}
+		break;
+	case 560:{
+			yyval = make_node(nod_flag, 0, NULL);
+		}
+		break;
+	case 561:{
+			yyval = 0;
+		}
+		break;
+	case 562:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 563:{
+			yyval = 0;
+		}
+		break;
+	case 564:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 565:{
+			yyval = make_node(nod_flag, 0, NULL);
+		}
+		break;
+	case 566:{
+			yyval = make_node(nod_select_expr, e_sel_count,
+							  yypvt[-6], yypvt[-5], yypvt[-4], yypvt[-3],
+							  yypvt[-2], yypvt[-1], yypvt[-0], NULL);
+		}
+		break;
+	case 567:{
+			yyval = make_node(nod_flag, 0, NULL);
+		}
+		break;
+	case 568:{
+			yyval = 0;
+		}
+		break;
+	case 569:{
+			yyval = make_list(yypvt[-0]);
+		}
+		break;
+	case 570:{
+			yyval = 0;
+		}
+		break;
+	case 572:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 574:{
+			yyval = make_node(nod_alias, 2, yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 575:{
+			yyval = make_node(nod_alias, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 576:{
+			yyval = make_list(yypvt[-0]);
+		}
+		break;
+	case 578:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 581:{
+			yyval =
+				make_node(nod_join, (int) e_join_count, yypvt[-5], yypvt[-4],
+						  yypvt[-2], yypvt[-0]);
+		} break;
+	case 582:{
+			yyval = yypvt[-1];
+		}
+		break;
+	case 583:{
+			yyval = make_node(nod_rel_proc_name,
+							  (int) e_rpn_count, yypvt[-2], yypvt[-0],
+							  yypvt[-1]);} break;
+	case 584:{
+			yyval =
+				make_node(nod_rel_proc_name, (int) e_rpn_count, yypvt[-1],
+						  NULL, yypvt[-0]);
+		} break;
+	case 585:{
+			yyval = make_list(yypvt[-1]);
+		}
+		break;
+	case 586:{
+			yyval = NULL;
+		}
+		break;
+	case 588:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 592:{
+			yyval = make_node(nod_relation_name,
+							  (int) e_rln_count, yypvt[-1], yypvt[-0]);
+		} break;
+	case 593:{
+			yyval = make_node(nod_relation_name,
+							  (int) e_rln_count, yypvt[-0], NULL);} break;
+	case 594:{
+			yyval = make_node(nod_join_inner, (int) 0, NULL);
+		} break;
+	case 595:{
+			yyval = make_node(nod_join_left, (int) 0, NULL);
+		} break;
+	case 596:{
+			yyval = make_node(nod_join_left, (int) 0, NULL);
+		} break;
+	case 597:{
+			yyval = make_node(nod_join_right, (int) 0, NULL);
+		} break;
+	case 598:{
+			yyval = make_node(nod_join_right, (int) 0, NULL);
+		} break;
+	case 599:{
+			yyval = make_node(nod_join_full, (int) 0, NULL);
+		} break;
+	case 600:{
+			yyval = make_node(nod_join_full, (int) 0, NULL);
+		} break;
+	case 601:{
+			yyval = make_node(nod_join_inner, (int) 0, NULL);
+		} break;
+	case 602:{
+			yyval = make_list(yypvt[-0]);
+		}
+		break;
+	case 603:{
+			yyval = 0;
+		}
+		break;
+	case 605:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 607:{
+			yyval =
+				make_node(nod_collate, e_coll_count, (NOD) yypvt[-0],
+						  yypvt[-2]);}
+		break;
+	case 608:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 609:{
+			yyval = 0;
+		}
+		break;
+	case 610:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 611:{
+			yyval = 0;
+		}
+		break;
+	case 612:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 613:{
+			yyval = 0;
+		}
+		break;
+	case 614:{
+			yyval =
+				make_node(nod_plan_expr, 2, yypvt[-3], make_list(yypvt[-1]));}
+		break;
+	case 615:{
+			yyval = 0;
+		}
+		break;
+	case 616:{
+			yyval = make_node(nod_merge, (int) 0, NULL);
+		} break;
+	case 617:{
+			yyval = make_node(nod_merge, (int) 0, NULL);
+		} break;
+	case 618:{
+			yyval = 0;
+		}
+		break;
+	case 619:{
+			yyval = 0;
+		}
+		break;
+	case 621:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 622:{
+			yyval =
+				make_node(nod_plan_item, 2, make_list(yypvt[-1]), yypvt[-0]);}
+		break;
+	case 625:{
+			yyval = make_node(nod_list, 2, yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 626:{
+			yyval = make_node(nod_natural, (int) 0, NULL);
+		} break;
+	case 627:{
+			yyval = make_node(nod_index, 1, make_list(yypvt[-1]));
+		}
+		break;
+	case 628:{
+			yyval = make_node(nod_index_order, 1, yypvt[-0]);
+		}
+		break;
+	case 630:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 631:{
+			yyval = make_node(nod_insert, e_ins_count,
+							  yypvt[-5], make_list(yypvt[-4]),
+							  make_list(yypvt[-1]), NULL);
+		}
+		break;
+	case 632:{
+			yyval =
+				make_node(nod_insert, e_ins_count, yypvt[-2], yypvt[-1], NULL,
+						  yypvt[-0]);
+		}
+		break;
+	case 634:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 637:{
+			yyval =
+				make_node(nod_delete, e_del_count, yypvt[-1], yypvt[-0],
+						  NULL);} break;
+	case 638:{
+			yyval =
+				make_node(nod_delete, e_del_count, yypvt[-1], NULL,
+						  yypvt[-0]);} break;
+	case 639:{
+			yyval = make_node(nod_cursor, e_cur_count, yypvt[-0], NULL, NULL);
+		}
+		break;
+	case 642:{
+			yyval = make_node(nod_update, e_upd_count,
+							  yypvt[-3], make_list(yypvt[-1]), yypvt[-0],
+							  NULL);}
+		break;
+	case 643:{
+			yyval = make_node(nod_update, e_upd_count,
+							  yypvt[-3], make_list(yypvt[-1]), NULL,
+							  yypvt[-0]);}
+		break;
+	case 645:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 646:{
+			yyval = make_node(nod_assign, 2, yypvt[-0], yypvt[-2]);
+		}
+		break;
+	case 649:{
+			yyval =
+				make_node(nod_get_segment, e_blb_count, yypvt[-4], yypvt[-2],
+						  yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 650:{
+			yyval =
+				make_node(nod_put_segment, e_blb_count, yypvt[-4], yypvt[-2],
+						  yypvt[-1], yypvt[-0]);
+		}
+		break;
+	case 651:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 652:{
+			yyval = make_node(nod_list, 2, NULL, yypvt[-0]);
+		}
+		break;
+	case 656:{
+			yyval = MAKE_constant((STR) yypvt[-0], CONSTANT_SLONG);
+		}
+		break;
+	case 657:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 659:{
+			yyval = MAKE_constant((STR) yypvt[-0], CONSTANT_SLONG);
+		}
+		break;
+	case 662:{
+			yyval = NULL;
+		}
+		break;
+	case 663:{
+			yyval = make_list(yypvt[-1]);
+		}
+		break;
+	case 665:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 667:{
+			yyval = make_node(nod_field_name, (int) e_fln_count,
+							  yypvt[-2], yypvt[-0]);
+		} break;
+	case 668:{
+			yyval = make_node(nod_field_name, (int) e_fln_count,
+							  yypvt[-2], NULL);} break;
+	case 669:{
+			yyval = make_node(nod_field_name, (int) e_fln_count,
+							  NULL, yypvt[-0]);} break;
+	case 671:{
+			yyval = make_node(nod_or, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 672:{
+			yyval = make_node(nod_and, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 673:{
+			yyval = make_node(nod_not, 1, yypvt[-0]);
+		}
+		break;
+	case 684:{
+			yyval = yypvt[-1];
+		}
+		break;
+	case 685:{
+			yyval = make_node(nod_eql, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 686:{
+			yyval = make_node(nod_lss, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 687:{
+			yyval = make_node(nod_gtr, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 688:{
+			yyval = make_node(nod_geq, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 689:{
+			yyval = make_node(nod_leq, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 690:{
+			yyval = make_node(nod_leq, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 691:{
+			yyval = make_node(nod_geq, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 692:{
+			yyval = make_node(nod_neq, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 693:{
+			yyval = make_node(nod_eql_all, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 694:{
+			yyval = make_node(nod_lss_all, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 695:{
+			yyval = make_node(nod_gtr_all, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 696:{
+			yyval = make_node(nod_geq_all, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 697:{
+			yyval = make_node(nod_leq_all, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 698:{
+			yyval = make_node(nod_leq_all, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 699:{
+			yyval = make_node(nod_geq_all, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 700:{
+			yyval = make_node(nod_neq_all, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 701:{
+			yyval = make_node(nod_eql_any, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 702:{
+			yyval = make_node(nod_lss_any, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 703:{
+			yyval = make_node(nod_gtr_any, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 704:{
+			yyval = make_node(nod_geq_any, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 705:{
+			yyval = make_node(nod_leq_any, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 706:{
+			yyval = make_node(nod_leq_any, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 707:{
+			yyval = make_node(nod_geq_any, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 708:{
+			yyval = make_node(nod_neq_any, 2, yypvt[-5], yypvt[-1]);
+		}
+		break;
+	case 711:{
+			yyval =
+				make_node(nod_between, 3, yypvt[-4], yypvt[-2], yypvt[-0]);}
+		break;
+	case 712:{
+			yyval = make_node(nod_not, 1, make_node(nod_between,
+													3, yypvt[-5], yypvt[-2],
+													yypvt[-0]));
+		}
+		break;
+	case 713:{
+			yyval = make_node(nod_like, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 714:{
+			yyval =
+				make_node(nod_not, 1,
+						  make_node(nod_like, 2, yypvt[-3], yypvt[-0]));}
+		break;
+	case 715:{
+			yyval = make_node(nod_like, 3, yypvt[-4], yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 716:{
+			yyval = make_node(nod_not, 1, make_node(nod_like,
+													3, yypvt[-5], yypvt[-2],
+													yypvt[-0]));
+		}
+		break;
+	case 717:{
+			yyval = make_node(nod_eql_any, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 718:{
+			yyval =
+				make_node(nod_not, 1,
+						  make_node(nod_eql_any, 2, yypvt[-3], yypvt[-0]));}
+		break;
+	case 719:{
+			yyval = make_node(nod_containing, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 720:{
+			yyval =
+				make_node(nod_not, 1,
+						  make_node(nod_containing, 2, yypvt[-3], yypvt[-0]));
+		}
+		break;
+	case 721:{
+			yyval = make_node(nod_starting, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 722:{
+			yyval =
+				make_node(nod_not, 1,
+						  make_node(nod_starting, 2, yypvt[-3], yypvt[-0]));
+		}
+		break;
+	case 723:{
+			yyval = make_node(nod_starting, 2, yypvt[-3], yypvt[-0]);
+		}
+		break;
+	case 724:{
+			yyval =
+				make_node(nod_not, 1,
+						  make_node(nod_starting, 2, yypvt[-4], yypvt[-0]));
+		}
+		break;
+	case 725:{
+			yyval = make_node(nod_exists, 1, yypvt[-1]);
+		}
+		break;
+	case 726:{
+			yyval = make_node(nod_singular, 1, yypvt[-1]);
+		}
+		break;
+	case 727:{
+			yyval = make_node(nod_missing, 1, yypvt[-2]);
+		}
+		break;
+	case 728:{
+			yyval =
+				make_node(nod_not, 1, make_node(nod_missing, 1, yypvt[-3]));}
+		break;
+	case 729:{
+			yyval = make_list(yypvt[-1]);
+		}
+		break;
+	case 730:{
+			yyval = yypvt[-1];
+		}
+		break;
+	case 731:{
+			yyval = make_node(nod_select_expr, e_sel_count,
+							  yypvt[-6], make_list(yypvt[-5]), yypvt[-4],
+							  yypvt[-3], yypvt[-2], yypvt[-1], yypvt[-0],
+							  NULL);}
+		break;
+	case 732:{
+			yyval = make_node(nod_select_expr, e_sel_count,
+							  yypvt[-6], make_list(yypvt[-5]), yypvt[-4],
+							  yypvt[-3], yypvt[-2], yypvt[-1], yypvt[-0],
+							  MAKE_constant((STR) 1, CONSTANT_SLONG));
+		}
+		break;
+	case 740:{
+			yyval = make_node(nod_negate, 1, yypvt[-0]);
+		}
+		break;
+	case 741:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 742:{
+			if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+				yyval = make_node(nod_add2, 2, yypvt[-2], yypvt[-0]);
+			else
+				yyval = make_node(nod_add, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 743:{
+			yyval = make_node(nod_concatenate, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 744:{
+			yyval =
+				make_node(nod_collate, e_coll_count, (NOD) yypvt[-0],
+						  yypvt[-2]);}
+		break;
+	case 745:{
+			if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+				yyval = make_node(nod_subtract2, 2, yypvt[-2], yypvt[-0]);
+			else
+				yyval = make_node(nod_subtract, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 746:{
+			if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+				yyval = make_node(nod_multiply2, 2, yypvt[-2], yypvt[-0]);
+			else
+				yyval = make_node(nod_multiply, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 747:{
+			if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+				yyval = make_node(nod_divide2, 2, yypvt[-2], yypvt[-0]);
+			else
+				yyval = make_node(nod_divide, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 748:{
+			yyval = yypvt[-1];
+		}
+		break;
+	case 749:{
+			yyval = yypvt[-1];
+		}
+		break;
+	case 750:{
+			yyval = make_node(nod_user_name, 0, NULL);
+		}
+		break;
+	case 751:{
+			yyval = make_node(nod_dbkey, 1, NULL);
+		}
+		break;
+	case 752:{
+			yyval = make_node(nod_dbkey, 1, yypvt[-2]);
+		}
+		break;
+	case 753:{
+			yyval = make_node(nod_dom_value, 0, NULL);
+		}
+		break;
+	case 754:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 755:{
+			if (client_dialect < SQL_DIALECT_V6_TRANSITION)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, isc_sql_dialect_datatype_unsupport,
+						  gds_arg_number, client_dialect,
+						  gds_arg_string, "DATE", 0);
+			if (db_dialect < SQL_DIALECT_V6_TRANSITION)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, isc_sql_db_dialect_dtype_unsupport,
+						  gds_arg_number, db_dialect,
+						  gds_arg_string, "DATE", 0);
+			yyval = make_node(nod_current_date, 0, NULL);
+		}
+		break;
+	case 756:{
+			if (client_dialect < SQL_DIALECT_V6_TRANSITION)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, isc_sql_dialect_datatype_unsupport,
+						  gds_arg_number, client_dialect,
+						  gds_arg_string, "TIME", 0);
+			if (db_dialect < SQL_DIALECT_V6_TRANSITION)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, isc_sql_db_dialect_dtype_unsupport,
+						  gds_arg_number, db_dialect,
+						  gds_arg_string, "TIME", 0);
+			yyval = make_node(nod_current_time, 0, NULL);
+		}
+		break;
+	case 757:{
+			yyval = make_node(nod_current_timestamp, 0, NULL);
+		}
+		break;
+	case 758:{
+			yyval = make_node(nod_array, 2, yypvt[-3], make_list(yypvt[-1]));
+		}
+		break;
+	case 760:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 762:{
+			yyval = make_node(nod_negate, 1, yypvt[-0]);
+		}
+		break;
+	case 763:{
+			yyval = MAKE_constant((STR) yypvt[-0], CONSTANT_STRING);
+		}
+		break;
+	case 764:{
+			yyval = MAKE_constant((STR) yypvt[-0], CONSTANT_SLONG);
+		}
+		break;
+	case 765:{
+			yyval = MAKE_constant((STR) yypvt[-0], CONSTANT_DOUBLE);
+		}
+		break;
+	case 766:{
+			yyval = MAKE_constant((STR) yypvt[-0], CONSTANT_SINT64);
+		}
+		break;
+	case 767:{
+			yyval = MAKE_constant((STR) yypvt[-0], CONSTANT_SINT64);
+		}
+		break;
+	case 769:{
+			yyval = MAKE_str_constant((STR) yypvt[-0], att_charset);
+		}
+		break;
+	case 770:{
+			if (client_dialect < SQL_DIALECT_V6_TRANSITION)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, isc_sql_dialect_datatype_unsupport,
+						  gds_arg_number, client_dialect,
+						  gds_arg_string, "DATE", 0);
+			if (db_dialect < SQL_DIALECT_V6_TRANSITION)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, isc_sql_db_dialect_dtype_unsupport,
+						  gds_arg_number, db_dialect,
+						  gds_arg_string, "DATE", 0);
+			yyval = MAKE_constant((STR) yypvt[-0], CONSTANT_DATE);
+		}
+		break;
+	case 771:{
+			if (client_dialect < SQL_DIALECT_V6_TRANSITION)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, isc_sql_dialect_datatype_unsupport,
+						  gds_arg_number, client_dialect,
+						  gds_arg_string, "TIME", 0);
+			if (db_dialect < SQL_DIALECT_V6_TRANSITION)
+				ERRD_post(gds_sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, isc_sql_db_dialect_dtype_unsupport,
+						  gds_arg_number, db_dialect,
+						  gds_arg_string, "TIME", 0);
+			yyval = MAKE_constant((STR) yypvt[-0], CONSTANT_TIME);
+		}
+		break;
+	case 772:{
+			yyval = MAKE_constant((STR) yypvt[-0], CONSTANT_TIMESTAMP);
+		}
+		break;
+	case 776:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 777:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 778:{
+			yyval = make_node(nod_list, 2, yypvt[-2], yypvt[-0]);
+		}
+		break;
+	case 779:{
+			yyval = make_node(nod_parameter, 0, NULL);
+		}
+		break;
+	case 780:{
+			yyval = make_node(nod_user_name, 0, NULL);
+		}
+		break;
+	case 781:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 782:{
+			((STR) yypvt[-0])->str_charset = (TEXT *) yypvt[-1];
+			yyval = yypvt[-0];
+		}
+		break;
+	case 784:{
+			yyval = (NOD) - (SLONG) yypvt[-0];
+		}
+		break;
+	case 785:{
+			if ((SLONG) yypvt[-0] > SHRT_POS_MAX)
+				yyabandon(-842, isc_expec_short);
+			/* Short integer expected */
+			yyval = yypvt[-0];
+		}
+		break;
+	case 786:{
+			if ((SLONG) yypvt[-0] > SHRT_NEG_MAX)
+				yyabandon(-842, isc_expec_short);
+			/* Short integer expected */
+			yyval = yypvt[-0];
+		}
+		break;
+	case 787:{
+			if ((SLONG) yypvt[-0] == 0)
+				yyabandon(-842, isc_expec_positive);
+			/* Positive number expected */
+			yyval = yypvt[-0];
+		}
+		break;
+	case 788:{
+			if ((SLONG) yypvt[-0] > SHRT_UNSIGNED_MAX)
+				yyabandon(-842, isc_expec_ushort);
+			/* Unsigned short integer expected */
+			yyval = yypvt[-0];
+		}
+		break;
+	case 790:{
+			yyval = (NOD) - (SLONG) yypvt[-0];
+		}
+		break;
+	case 791:{
+			yyval = yypvt[-0];
+		}
+		break;
+	case 792:{
+			yyval = make_node(nod_agg_count, 0, NULL);
+		}
+		break;
+	case 793:{
+			yyval = make_node(nod_agg_count, 1, yypvt[-1]);
+		}
+		break;
+	case 794:{
+			yyval = make_flag_node(nod_agg_count,
+								   NOD_AGG_DISTINCT, 1, yypvt[-1]);}
+		break;
+	case 795:{
+			if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+				yyval = make_node(nod_agg_total2, 1, yypvt[-1]);
+			else
+				yyval = make_node(nod_agg_total, 1, yypvt[-1]);
+		}
+		break;
+	case 796:{
+			if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+				yyval = make_flag_node(nod_agg_total2,
+									   NOD_AGG_DISTINCT, 1, yypvt[-1]);
+			else
+				yyval = make_flag_node(nod_agg_total,
+									   NOD_AGG_DISTINCT, 1, yypvt[-1]);
+		}
+		break;
+	case 797:{
+			if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+				yyval = make_node(nod_agg_average2, 1, yypvt[-1]);
+			else
+				yyval = make_node(nod_agg_average, 1, yypvt[-1]);
+		}
+		break;
+	case 798:{
+			if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+				yyval = make_flag_node(nod_agg_average2,
+									   NOD_AGG_DISTINCT, 1, yypvt[-1]);
+			else
+				yyval = make_flag_node(nod_agg_average,
+									   NOD_AGG_DISTINCT, 1, yypvt[-1]);
+		}
+		break;
+	case 799:{
+			yyval = make_node(nod_agg_min, 1, yypvt[-1]);
+		}
+		break;
+	case 800:{
+			yyval = make_node(nod_agg_min, 1, yypvt[-1]);
+		}
+		break;
+	case 801:{
+			yyval = make_node(nod_agg_max, 1, yypvt[-1]);
+		}
+		break;
+	case 802:{
+			yyval = make_node(nod_agg_max, 1, yypvt[-1]);
+		}
+		break;
+	case 803:{
+			yyval = make_node(nod_cast, e_cast_count, yypvt[-1], yypvt[-3]);
+		}
+		break;
+	case 804:{
+			yyval = make_node(nod_upcase, 1, yypvt[-1]);
+		}
+		break;
+	case 805:{
+			if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+				yyval = make_node(nod_gen_id2, 2, yypvt[-3], yypvt[-1]);
+			else
+				yyval = make_node(nod_gen_id, 2, yypvt[-3], yypvt[-1]);
+		}
+		break;
+	case 806:{
+			yyval =
+				make_node(nod_extract, e_extract_count, yypvt[-3], yypvt[-1]);}
+		break;
+	case 807:{
+			yyval = make_node(nod_udf, 2, yypvt[-3], yypvt[-1]);
+		}
+		break;
+	case 808:{
+			yyval = make_node(nod_udf, 1, yypvt[-2]);
+		}
+		break;
+	case 809:{
+			yyval =
+				MAKE_constant(reinterpret_cast < str * >(blr_extract_year),
+							  CONSTANT_SLONG);}
+		break;
+	case 810:{
+			yyval =
+				MAKE_constant(reinterpret_cast < str * >(blr_extract_month),
+							  CONSTANT_SLONG);}
+		break;
+	case 811:{
+			yyval =
+				MAKE_constant(reinterpret_cast < str * >(blr_extract_day),
+							  CONSTANT_SLONG);} break;
+	case 812:{
+			yyval =
+				MAKE_constant(reinterpret_cast < str * >(blr_extract_hour),
+							  CONSTANT_SLONG);}
+		break;
+	case 813:{
+			yyval =
+				MAKE_constant(reinterpret_cast < str * >(blr_extract_minute),
+							  CONSTANT_SLONG);}
+		break;
+	case 814:{
+			yyval =
+				MAKE_constant(reinterpret_cast < str * >(blr_extract_second),
+							  CONSTANT_SLONG);}
+		break;
+	case 815:{
+			yyval =
+				MAKE_constant(reinterpret_cast < str * >(blr_extract_weekday),
+							  CONSTANT_SLONG);}
+		break;
+	case 816:{
+			yyval =
+				MAKE_constant(reinterpret_cast < str * >(blr_extract_yearday),
+							  CONSTANT_SLONG);}
+		break;
+	case 819:{
+			yyval = make_node(nod_null, 0, NULL);
+		}
+		break;
+	}
+	goto yystack;				/* reset registers in driver code */
+}
+
+
+} // extern "C"
diff --git a/src/dsql/parse.sed b/src/dsql/parse.sed
new file mode 100644
index 0000000000..e483dfd676
--- /dev/null
+++ b/src/dsql/parse.sed
@@ -0,0 +1,31 @@
+s/^short yy/static short yy/
+s/^long  yy/static long yy/
+s/^int yy/static int yy/
+s/^int \*yy/static int *yy/
+s/^YYSTYPE yy/static YYSTYPE yy/
+s/^YYSTYPE \*yy/static YYSTYPE *yy/
+s/^yytabelem yy/static CONST yytabelem yy/
+s/^yytoktype yy/static CONST yytoktype yy/
+s/^char \* yy/static char * yy/
+s/^static int yychar;/#ifndef SHLIB_DEFS\
+int yychar;\
+#endif/
+s/^static int yyerrflag;/#ifndef SHLIB_DEFS\
+int yyerrflag;\
+#endif/
+s/yychar/DSQL_yychar/g
+s/yyerrflag/DSQL_yyerrflag/g
+s/yyparse/dsql_yyparse/g
+s/static int dsql_yyparse/int dsql_yyparse/g
+/^#ident/d
+s/^static TOK tokens/static CONST TOK FAR_VARIABLE tokens/
+s/^__YYSCLASS yytabelem/__YYSCLASS CONST yytabelem FAR_VARIABLE/
+s/^__YYSCLASS yytoktype/__YYSCLASS CONST yytoktype FAR_VARIABLE/
+s/^__YYSCLASS char/__YYSCLASS char FAR_VARIABLE/
+s/^#include *<values.h> *$//g
+s/yylex(void)/yylex(USHORT, USHORT, USHORT, BOOLEAN *)/g
+s/yylex()/yylex(client_dialect, db_dialect, parser_version, stmt_ambiguous)/g
+s/dsql_yyparse(void);/dsql_yyparse(USHORT, USHORT, USHORT, BOOLEAN *);/g
+s/dsql_yyparse(void)/dsql_yyparse(USHORT client_dialect, USHORT db_dialect, USHORT parser_version, BOOLEAN *stmt_ambiguous)/g
+s/dsql_yyparse()/dsql_yyparse(USHORT client_dialect, USHORT db_dialect, USHORT parser_version, BOOLEAN *stmt_ambiguous)/g
+s/YYLEX()/YYLEX(client_dialect, db_dialect, parser_version, stmt_ambiguous)/g
diff --git a/src/dsql/parse.y b/src/dsql/parse.y
new file mode 100644
index 0000000000..a13e22a64e
--- /dev/null
+++ b/src/dsql/parse.y
@@ -0,0 +1,4306 @@
+%{
+/* 
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		parse.y
+ *	DESCRIPTION:	Dynamic SQL parser
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+
+#include "../jrd/iberror.h"
+#include "../dsql/dsql.h"
+#include "../dsql/node.h"
+#include "../dsql/sym.h"
+#include "../jrd/gds.h"
+#include "../jrd/flags.h"
+#include "../dsql/alld_proto.h"
+#include "../dsql/errd_proto.h"
+#include "../dsql/hsh_proto.h"
+#include "../dsql/make_proto.h"
+#include "../dsql/parse_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/thd_proto.h"
+/* #include "../jrd/err_proto.h" */
+#ifndef WINDOWS_ONLY
+#include "../wal/wal.h"
+#endif
+
+ASSERT_FILENAME
+
+static void	yyerror (TEXT *);
+
+/* Remove compiler warning produced by redef of WRITE & READ from WINDOWS.H */
+#ifdef WINDOWS_ONLY
+#undef READ
+#undef WRITE
+#endif
+
+/* since UNIX isn't standard, we have to define
+   stuff which is in <limits.h> (which isn't available
+   on all UNIXes... */
+
+#define SHRT_POS_MAX		32767
+#define SHRT_UNSIGNED_MAX	65535
+#define SHRT_NEG_MAX		32768
+#define LONG_POS_MAX		2147483647
+#define POSITIVE		0
+#define NEGATIVE		1
+#define UNSIGNED		2
+
+#define MIN_CACHE_BUFFERS       250
+#define DEF_CACHE_BUFFERS       1000
+
+#define YYSTYPE		NOD
+#ifdef DEBUG
+#define YYDEBUG		1
+#endif
+
+static CONST UCHAR
+	INTERNAL_FIELD_NAME [] = "DSQL internal"; /* NTX: placeholder */
+static CONST UCHAR
+	NULL_STRING [] = "";	
+
+#ifndef SHLIB_DEFS
+NOD		DSQL_parse;
+#else
+extern NOD	DSQL_parse;
+#endif
+
+static FLD	field;
+static FIL	file;
+static NOD	field_name;
+static TEXT	*beginning;
+static SSHORT	log_defined, cache_defined;
+
+
+%}
+
+
+/* token declarations */
+
+/* Tokens are organized chronologically by date added.
+   See dsql/keywords.h for a list organized alphabetically */
+
+/* Tokens in v4.0 -- not separated into v3 and v4 tokens */
+
+%token ACTIVE
+%token ADD
+%token AFTER
+%token ALL
+%token ALTER
+%token AND
+%token ANY
+%token AS
+%token ASC
+%token AT
+%token AVG
+%token AUTO
+%token BASENAME
+%token BEFORE
+%token BEGIN
+%token BETWEEN
+%token BLOB
+%token BY
+%token CACHE
+%token CAST
+%token CHARACTER
+%token CHECK
+%token CHECK_POINT_LEN
+%token COLLATE
+%token COLLATION
+%token COMMA
+%token COMMIT
+%token COMMITTED
+%token COMPUTED
+%token CONCATENATE
+%token CONDITIONAL
+%token CONSTRAINT
+%token CONTAINING
+%token COUNT
+%token CREATE
+%token CSTRING
+%token CURRENT
+%token CURSOR
+%token DATABASE
+%token DATE
+%token DB_KEY
+%token DEBUG
+%token DECIMAL
+%token DECLARE
+%token DEFAULT
+%token DELETE
+%token DESC
+%token DISTINCT
+%token DO
+%token DOMAIN
+%token DROP
+%token ELSE
+%token END
+%token ENTRY_POINT
+%token EQL
+%token ESCAPE
+%token EXCEPTION
+%token EXECUTE
+%token EXISTS
+%token EXIT
+%token EXTERNAL
+%token FILTER
+%token FOR
+%token FOREIGN
+%token FROM
+%token FULL
+%token FUNCTION
+%token GDSCODE
+%token GEQ
+%token GENERATOR
+%token GEN_ID
+%token GRANT
+%token GROUP
+%token GROUP_COMMIT_WAIT
+%token GTR
+%token HAVING
+%token IF
+%token IN
+%token INACTIVE
+%token INNER
+%token INPUT_TYPE
+%token INDEX
+%token INSERT
+%token INTEGER
+%token INTO
+%token IS
+%token ISOLATION
+%token JOIN
+%token KEY
+%token KW_CHAR
+%token KW_DEC
+%token KW_DOUBLE
+%token KW_FILE
+%token KW_FLOAT
+%token KW_INT
+%token KW_LONG
+%token KW_NULL
+%token KW_NUMERIC
+%token KW_UPPER
+%token KW_VALUE
+%token LENGTH
+%token LOGFILE
+%token LPAREN
+%token LEFT
+%token LEQ
+%token LEVEL
+%token LIKE
+%token LOG_BUF_SIZE
+%token LSS
+%token MANUAL
+%token MAXIMUM
+%token MAX_SEGMENT
+%token MERGE
+%token MESSAGE
+%token MINIMUM
+%token MODULE_NAME
+%token NAMES
+%token NATIONAL
+%token NATURAL
+%token NCHAR
+%token NEQ
+%token NO
+%token NOT
+%token NOT_GTR
+%token NOT_LSS
+%token NUM_LOG_BUFS
+%token OF
+%token ON
+%token ONLY
+%token OPTION
+%token OR
+%token ORDER
+%token OUTER
+%token OUTPUT_TYPE
+%token OVERFLOW
+%token PAGE
+%token PAGES
+%token PAGE_SIZE
+%token PARAMETER
+%token PASSWORD
+%token PLAN
+%token POSITION
+%token POST_EVENT
+%token PRECISION
+%token PRIMARY
+%token PRIVILEGES
+%token PROCEDURE
+%token PROTECTED
+%token RAW_PARTITIONS
+%token READ
+%token REAL
+%token REFERENCES
+%token RESERVING
+%token RETAIN
+%token RETURNING_VALUES
+%token RETURNS
+%token REVOKE
+%token RIGHT
+%token RPAREN
+%token ROLLBACK
+%token SEGMENT
+%token SELECT
+%token SET
+%token SHADOW
+%token SHARED
+%token SINGULAR
+%token SIZE
+%token SMALLINT
+%token SNAPSHOT
+%token SOME
+%token SORT
+%token SQLCODE
+%token STABILITY
+%token STARTING
+%token STATISTICS
+%token SUB_TYPE
+%token SUSPEND
+%token SUM
+%token TABLE
+%token THEN
+%token TO
+%token TRANSACTION
+%token TRIGGER
+%token UNCOMMITTED
+%token UNION
+%token UNIQUE
+%token UPDATE
+%token USER
+%token VALUES
+%token VARCHAR
+%token VARIABLE
+%token VARYING
+%token VERSION
+%token VIEW
+%token WAIT
+%token WHEN
+%token WHERE
+%token WHILE
+%token WITH
+%token WORK
+%token WRITE
+
+%token FLOAT NUMBER NUMERIC SYMBOL STRING INTRODUCER 
+
+/* New tokens added v5.0 */
+
+%token ACTION
+%token ADMIN
+%token CASCADE
+%token FREE_IT			/* ISC SQL extension */
+%token RESTRICT
+%token ROLE
+
+/* New tokens added v6.0 */
+
+%token COLUMN
+%token TYPE
+%token EXTRACT
+%token YEAR
+%token MONTH
+%token DAY
+%token HOUR
+%token MINUTE
+%token SECOND
+%token WEEKDAY			/* ISC SQL extension */
+%token YEARDAY			/* ISC SQL extension */
+%token TIME
+%token TIMESTAMP
+%token CURRENT_DATE
+%token CURRENT_TIME
+%token CURRENT_TIMESTAMP
+
+/* special aggregate token types returned by lex in v6.0 */
+
+%token NUMBER64BIT SCALEDINT
+
+
+/* tokens added for Firebird 1 */
+%token LIMIT
+%token INT64
+%token SUBSTRING
+
+
+/* precedence declarations for expression evaluation */
+
+%left	OR
+%left	AND
+%left	NOT
+%left	'=' '<' '>' LIKE EQL NEQ GTR LSS GEQ LEQ NOT_GTR NOT_LSS
+%left	'+' '-'
+%left	'*' '/'
+%left	CONCATENATE
+%left	COLLATE
+
+/* Fix the dangling IF-THEN-ELSE problem */
+%nonassoc THEN
+%nonassoc ELSE
+
+/* The same issue exists with ALTER COLUMN now that keywords can be used
+   in order to change their names.  The syntax which show the issue is:
+     ALTER COLUMN where column is part of the alter statement
+       or
+     ALTER COLUMN where column is the name of the column in the relation
+*/
+%nonassoc ALTER
+%nonassoc COLUMN
+
+%%
+
+
+/* list of possible statements */
+
+top		: statement
+			{ DSQL_parse = $1; }
+		| statement ';'
+			{ DSQL_parse = $1; }
+		;
+
+statement	: alter
+		| blob
+		| commit
+		| create
+		| declare
+		| delete
+		| drop
+		| grant
+		| insert
+		| invoke_procedure
+		| revoke
+		| rollback
+		| select
+		| set
+		| update
+		| DEBUG signed_short_integer
+			{ DSQL_debug = (int) $2;
+			  if (DSQL_debug > 10)
+			      yydebug = DSQL_debug;
+			  $$ = make_node (nod_null, (int) 0, NULL); }
+		;
+
+
+/* GRANT statement */
+
+grant	 	: GRANT privileges ON prot_table_name
+			TO user_grantee_list grant_option
+			{ $$ = make_node (nod_grant, (int) e_grant_count, 
+					$2, $4, make_list($6), $7); }
+		| GRANT proc_privileges ON PROCEDURE simple_proc_name
+			TO user_grantee_list grant_option
+			{ $$ = make_node (nod_grant, (int) e_grant_count, 
+					$2, $5, make_list($7), $8); }
+		| GRANT privileges ON prot_table_name
+			TO grantee_list
+			{ $$ = make_node (nod_grant, (int) e_grant_count, 
+					$2, $4, make_list($6), NULL); }
+		| GRANT proc_privileges ON PROCEDURE simple_proc_name
+			TO grantee_list
+			{ $$ = make_node (nod_grant, (int) e_grant_count, 
+					$2, $5, make_list($7), NULL); }
+		| GRANT role_name_list TO role_grantee_list role_admin_option
+			{ $$ = make_node (nod_grant, (int) e_grant_count, 
+					make_list($2), make_list($4), NULL, $5); }
+                ; 
+
+prot_table_name	: simple_table_name
+		| TABLE simple_table_name
+			{ $$ = $2; }
+		;
+
+privileges	: ALL
+			{ $$ = make_node (nod_all, (int) 0, NULL); }
+		| ALL PRIVILEGES
+			{ $$ = make_node (nod_all, (int) 0, NULL); }
+		| privilege_list
+			{ $$ = make_list ($1); }
+		;
+
+privilege_list	: privilege
+		| privilege_list ',' privilege
+			{ $$ = make_node (nod_list, (int) 2, $1, $3); }
+		;
+
+proc_privileges	: EXECUTE
+			{ $$ = make_list (make_node (nod_execute, (int) 0, NULL)); }
+		;
+
+privilege	: SELECT
+			{ $$ = make_node (nod_select, (int) 0, NULL); }
+		| INSERT
+			{ $$ = make_node (nod_insert, (int) 0, NULL); }
+		| DELETE
+			{ $$ = make_node (nod_delete, (int) 0, NULL); }
+		| UPDATE column_parens_opt
+			{ $$ = make_node (nod_update, (int) 1, $2); }
+		| REFERENCES column_parens_opt
+			{ $$ = make_node (nod_references, (int) 1, $2); }
+		;
+
+grant_option	: WITH GRANT OPTION
+			{ $$ = make_node (nod_grant, (int) 0, NULL); }
+		|
+			{ $$ = 0; }
+		;
+
+role_admin_option   : WITH ADMIN OPTION
+            { $$ = make_node (nod_grant_admin, (int) 0, NULL); }
+        |
+            { $$ = 0; }
+        ;
+
+simple_proc_name: symbol_procedure_name
+			{ $$ = make_node (nod_procedure_name, (int) 1, $1); }
+		;
+
+
+/* REVOKE statement */
+
+revoke	 	: REVOKE rev_grant_option privileges ON prot_table_name
+			FROM user_grantee_list
+			{ $$ = make_node (nod_revoke, 
+				(int) e_grant_count, $3, $5,
+				make_list($7), $2); }
+		| REVOKE rev_grant_option proc_privileges ON
+			PROCEDURE simple_proc_name FROM user_grantee_list
+			{ $$ = make_node (nod_revoke, 
+				(int) e_grant_count, $3, $6,
+				make_list($8), $2); }
+		| REVOKE privileges ON prot_table_name
+			FROM user_grantee_list
+			{ $$ = make_node (nod_revoke, 
+				(int) e_grant_count, $2, $4,
+				make_list($6), NULL); }
+		| REVOKE proc_privileges ON
+			PROCEDURE simple_proc_name FROM user_grantee_list
+			{ $$ = make_node (nod_revoke, 
+				(int) e_grant_count, $2, $5,
+				make_list($7), NULL); }
+		| REVOKE privileges ON prot_table_name
+			FROM grantee_list
+			{ $$ = make_node (nod_revoke, 
+				(int) e_grant_count, $2, $4,
+				make_list($6), NULL); }
+		| REVOKE proc_privileges ON
+			PROCEDURE simple_proc_name FROM grantee_list
+			{ $$ = make_node (nod_revoke, 
+				(int) e_grant_count, $2, $5,
+				make_list($7), NULL); }
+		| REVOKE role_name_list FROM role_grantee_list
+			{ $$ = make_node (nod_revoke, 
+				(int) e_grant_count, make_list($2), make_list($4),
+				NULL, NULL); }
+                ; 
+
+rev_grant_option : GRANT OPTION FOR
+			{ $$ = make_node (nod_grant, (int) 0, NULL); }
+		;
+
+grantee_list	: grantee
+		| grantee_list ',' grantee
+			{ $$ = make_node (nod_list, (int) 2, $1, $3); }
+		| grantee_list ',' user_grantee
+			{ $$ = make_node (nod_list, (int) 2, $1, $3); }
+		| user_grantee_list ',' grantee
+			{ $$ = make_node (nod_list, (int) 2, $1, $3); }
+		;
+
+grantee : PROCEDURE symbol_procedure_name
+		{ $$ = make_node (nod_proc_obj, (int) 1, $2); }
+	| TRIGGER symbol_trigger_name
+		{ $$ = make_node (nod_trig_obj, (int) 1, $2); }
+	| VIEW symbol_view_name
+		{ $$ = make_node (nod_view_obj, (int) 1, $2); }
+	;
+
+user_grantee_list : user_grantee
+		| user_grantee_list ',' user_grantee
+			{ $$ = make_node (nod_list, (int) 2, $1, $3); }
+		;
+
+user_grantee	: symbol_user_name
+		{ $$ = make_node (nod_user_name, (int) 1, $1); }
+	| USER symbol_user_name
+		{ $$ = make_node (nod_user_name, (int) 1, $2); }
+	| GROUP symbol_user_name
+		{ $$ = make_node (nod_user_group, (int) 1, $2); }
+	;
+
+role_name_list  : role_name
+        | role_name_list ',' role_name
+            { $$ = make_node (nod_list, (int) 2, $1, $3); }
+        ;
+
+role_name   : symbol_role_name
+        { $$ = make_node (nod_role_name, (int) 1, $1); }
+        ;
+
+role_grantee_list  : role_grantee
+        | role_grantee_list ',' role_grantee
+            { $$ = make_node (nod_list, (int) 2, $1, $3); }
+        ;
+
+role_grantee   : symbol_user_name
+        { $$ = make_node (nod_user_name, (int) 1, $1); }
+    | USER symbol_user_name
+        { $$ = make_node (nod_user_name, (int) 1, $2); }
+        ;
+
+
+/* DECLARE operations */
+
+declare		: DECLARE declare_clause
+			{ $$ = $2;}
+		;
+
+declare_clause  : FILTER filter_decl_clause
+			{ $$ = $2; }
+		| EXTERNAL FUNCTION udf_decl_clause
+			{ $$ = $3; }
+		;
+
+
+udf_decl_clause : symbol_UDF_name arg_desc_list1 RETURNS return_value1
+			ENTRY_POINT sql_string MODULE_NAME sql_string
+		    	{ $$ = make_node (nod_def_udf, (int) e_udf_count, 
+				$1, $6, $8, make_list ($2), $4); }
+		;
+
+udf_data_type	: simple_type
+		| BLOB
+			{ field->fld_dtype = dtype_blob; }
+		| CSTRING '(' pos_short_integer ')' charset_clause
+			{ 
+			field->fld_dtype = dtype_cstring; 
+			field->fld_character_length = (USHORT) $3; }
+		;
+
+arg_desc_list1	: 
+		 	{ $$ = (NOD) NULL; }
+		| arg_desc_list	
+		| '(' arg_desc_list ')'	
+		 	{ $$ = $2; }
+		;
+
+arg_desc_list	: arg_desc
+		| arg_desc_list ',' arg_desc
+			{ $$ = make_node (nod_list, (int) 2, $1, $3); }
+		;
+
+arg_desc	: init_data_type udf_data_type
+			{ $$ = $1; }
+		;
+
+return_value1	: return_value
+		| '(' return_value ')'
+			{ $$ = $2; }
+		;
+return_value	: init_data_type udf_data_type
+			{ $$ = make_node (nod_udf_return_value, (int) 2, $1, 
+				MAKE_constant ((STR) FUN_reference, CONSTANT_SLONG));}
+		| init_data_type udf_data_type FREE_IT
+			{ $$ = make_node (nod_udf_return_value, (int) 2, $1, 
+				MAKE_constant ((STR) (-1 * FUN_reference), CONSTANT_SLONG));}
+                                         /* FUN_refrence with FREE_IT is -ve */
+		| init_data_type udf_data_type BY KW_VALUE
+			{ $$ = make_node (nod_udf_return_value, (int) 2, $1, 
+				MAKE_constant ((STR) FUN_value, CONSTANT_SLONG));}
+		| PARAMETER pos_short_integer
+			{ $$ = make_node (nod_udf_return_value, (int) 2, 
+		  		(NOD) NULL, MAKE_constant ((STR) $2, CONSTANT_SLONG));}
+		;
+
+filter_decl_clause : symbol_filter_name INPUT_TYPE blob_subtype OUTPUT_TYPE blob_subtype 
+			ENTRY_POINT sql_string MODULE_NAME sql_string
+		    	{ $$ = make_node (nod_def_filter, (int) e_filter_count, 
+						$1, $3, $5, $7, $9); }
+		;
+
+
+/* CREATE metadata operations */
+
+create	 	: CREATE create_clause
+			{ $$ = $2; }
+                ; 
+
+create_clause	: EXCEPTION symbol_exception_name sql_string
+			{ $$ = make_node (nod_def_exception, (int) e_xcp_count, 
+						$2, $3); }
+		| unique_opt order_direction INDEX symbol_index_name ON simple_table_name index_definition
+			{ $$ = make_node (nod_def_index, (int) e_idx_count, 
+					$1, $2, $4, $6, $7); }
+		| PROCEDURE procedure_clause
+			{ $$ = $2; }
+		| TABLE table_clause
+			{ $$ = $2; }
+		| TRIGGER def_trigger_clause
+			{ $$ = $2; }
+		| VIEW view_clause
+			{ $$ = $2; }
+		| GENERATOR generator_clause
+			{ $$ = $2; }
+		| DATABASE db_clause
+			{ $$ = $2; }
+		| DOMAIN   domain_clause
+			{ $$ = $2; }             
+		| SHADOW shadow_clause
+			{ $$ = $2; }             
+		| ROLE role_clause
+			{ $$ = $2; }
+		;
+
+/* CREATE INDEX */
+
+unique_opt	: UNIQUE
+			{ $$ = make_node (nod_unique, (int) 0, NULL); }
+		|
+			{ $$ = NULL; }
+		;
+
+index_definition : column_list 
+			{ $$ = make_list ($1); }
+		| column_parens 
+		| computed_by '(' begin_trigger value end_trigger ')'
+			{ $$ = make_node (nod_def_computed, 2, $4, $5); }
+		;
+
+
+/* CREATE SHADOW */
+shadow_clause	: pos_short_integer manual_auto conditional sql_string
+			first_file_length sec_shadow_files
+		 	{ $$ = make_node (nod_def_shadow, (int) e_shadow_count,
+			     $1, $2, $3, $4, $5, make_list ($6)); }
+		;
+
+manual_auto	: MANUAL
+			{ $$ = MAKE_constant ((STR) 1, CONSTANT_SLONG); } 
+		| AUTO
+			{ $$ = MAKE_constant ((STR) 0, CONSTANT_SLONG); } 
+		| 
+			{ $$ = MAKE_constant ((STR) 0, CONSTANT_SLONG); } 
+		;
+
+conditional	: 
+			{ $$ = MAKE_constant ((STR) 0, CONSTANT_SLONG); }
+		| CONDITIONAL
+			{ $$ = MAKE_constant ((STR) 1, CONSTANT_SLONG); }
+		;	
+
+first_file_length : 
+			{ $$ = (NOD) 0;}
+		| LENGTH equals long_integer page_noise
+			{ $$ = $3; }
+		;
+
+sec_shadow_files :
+		 	{ $$ = (NOD) NULL; }
+		| db_file_list
+		;
+
+db_file_list    : db_file
+		| db_file_list db_file
+			{ $$ = make_node (nod_list, (int) 2, $1, $2); }
+		;
+
+
+/* CREATE DOMAIN */
+
+domain_clause	: column_def_name
+		  as_opt
+		  data_type
+		  begin_trigger
+		  domain_default_opt
+		  end_trigger
+		  domain_constraint_clause
+		  collate_clause
+			{ $$ = make_node (nod_def_domain, (int) e_dom_count,
+                                          $1, $5, $6, make_list ($7), $8); }
+                ;
+
+as_opt		: AS
+                  { $$ = NULL; }
+                | 
+                  { $$ = NULL; }  
+                ;
+
+domain_default_opt	: DEFAULT begin_trigger default_value
+				{ $$ = $3; }
+			|
+				{ $$ = (NOD) NULL; }
+			;
+
+domain_constraint_clause	: 
+                                  { $$ = (NOD) NULL; }
+				| domain_constraint_list
+                                ; 
+
+domain_constraint_list  	: domain_constraint_def
+				| domain_constraint_list domain_constraint_def
+                                  { $$ = make_node (nod_list, (int) 2, $1, $2); }
+                        ;
+domain_constraint_def		: domain_constraint
+				  { $$ = make_node (nod_rel_constraint, (int) 2, NULL, $1);}
+ 
+                        ;	
+
+domain_constraint	  	: null_constraint
+				| domain_check_constraint
+                        	;
+                                
+null_constraint			: NOT KW_NULL
+                                  { $$ = make_node (nod_null, (int) 0, NULL); }
+                                ;
+
+domain_check_constraint 	: begin_trigger CHECK '(' search_condition ')' end_trigger
+				  { $$ = make_node (nod_def_constraint, 
+				  (int) e_cnstr_count, MAKE_string (NULL_STRING, 0), NULL, 
+				  NULL, NULL, $4, NULL, $6, NULL, NULL); }
+                                ;
+
+
+/* CREATE GENERATOR */
+
+generator_clause : symbol_generator_name
+			{ $$ = make_node (nod_def_generator, 
+						(int) e_gen_count, $1); }
+		 ;
+
+
+/* CREATE ROLE */
+
+role_clause : symbol_role_name
+			{ $$ = make_node (nod_def_role, 
+						(int) 1, $1); }
+
+
+
+/* CREATE DATABASE */
+
+db_clause	:  db_name db_initial_desc1 db_rem_desc1
+			{ $$ = make_node (nod_def_database, (int) e_cdb_count,
+				 $1, make_list($2), make_list ($3));}
+		;
+
+equals		:
+		| '='
+		;
+
+db_name		: sql_string
+			{ log_defined = FALSE;
+			  cache_defined = FALSE;
+			  $$ = (NOD) $1; }
+		;
+
+db_initial_desc1 :  
+			{$$ = (NOD) NULL;}
+		| db_initial_desc
+		;
+
+db_initial_desc : db_initial_option
+		| db_initial_desc db_initial_option
+			{ $$ = make_node (nod_list, 2, $1, $2); }
+		; 
+ 
+db_initial_option: PAGE_SIZE equals pos_short_integer 
+			{ $$ = make_node (nod_page_size, 1, $3);}
+		| LENGTH equals long_integer page_noise
+			{ $$ = make_node (nod_file_length, 1, $3);}
+		| USER sql_string
+			{ $$ = make_node (nod_user_name, 1, $2);} 
+		| PASSWORD sql_string	
+			{ $$ = make_node (nod_password, 1, $2);} 
+		| SET NAMES sql_string	
+			{ $$ = make_node (nod_lc_ctype, 1, $3);} 
+		;
+
+db_rem_desc1	:  
+			{$$ = (NOD) NULL;} 
+		| db_rem_desc
+		;
+
+db_rem_desc	: db_rem_option
+		| db_rem_desc db_rem_option
+			{ $$ = make_node (nod_list, 2, $1, $2); }
+		;
+
+db_rem_option   : db_file  
+/*   		| db_cache */
+		| db_log
+		| db_log_option
+		| DEFAULT CHARACTER SET symbol_character_set_name
+			{ $$ = make_node (nod_dfl_charset, 1, $4);} 
+		;
+
+db_log_option   : GROUP_COMMIT_WAIT equals long_integer
+			{ $$ = make_node (nod_group_commit_wait, 1, $3);}
+		| CHECK_POINT_LEN equals long_integer
+			{ $$ = make_node (nod_check_point_len, 1, $3);}
+		| NUM_LOG_BUFS equals pos_short_integer
+			{ $$ = make_node (nod_num_log_buffers, 1, $3);}
+		| LOG_BUF_SIZE equals unsigned_short_integer
+			{ $$ = make_node (nod_log_buffer_size, 1, $3);}
+		;
+
+db_log		: db_default_log_spec
+			{ if (log_defined)
+			    yyabandon (-260, isc_log_redef);  /* Log redefined */
+			  log_defined = TRUE;
+			  $$ = $1; }
+		| db_rem_log_spec
+			{ if (log_defined)
+			    yyabandon (-260, isc_log_redef);
+			  log_defined = TRUE;
+			  $$ = $1; }
+		;	
+
+db_rem_log_spec	: LOGFILE '(' logfiles ')' OVERFLOW logfile_desc
+			{ file->fil_flags |= LOG_serial | LOG_overflow; 
+			  if (file->fil_partitions)
+			      yyabandon (-261, isc_partition_not_supp);
+			/* Partitions not supported in series of log file specification */
+			 $$ = make_node (nod_list, 2, $3, $6); }  
+		| LOGFILE BASENAME logfile_desc
+			{ file->fil_flags |= LOG_serial;
+			  if (file->fil_partitions)
+			      yyabandon (-261, isc_partition_not_supp);
+			  $$ = $3; }
+		;
+
+db_default_log_spec : LOGFILE 
+			{ file = make_file(); 
+			  file->fil_flags = LOG_serial | LOG_default;
+			  $$ = make_node (nod_log_file_desc, (int) 1,
+						(NOD) file);}
+		;
+
+db_file		: file1 sql_string file_desc1
+			{ file->fil_name = (STR) $2; 
+			  $$ = (NOD) make_node (nod_file_desc, (int) 1,
+						(NOD) file); }
+		;
+
+/*
+db_cache	: CACHE sql_string cache_length 
+			{ 
+			  if (cache_defined)
+			      yyabandon (-260, isc_cache_redef);
+				  */ /* Cache redefined */ /*
+			  file = make_file();
+			  file->fil_length = (SLONG) $3;
+			  file->fil_name = (STR) $2;
+			  cache_defined = TRUE;
+			  $$ = (NOD) make_node (nod_cache_file_desc, (int) 1,
+					 (NOD) file); } 
+		;
+*/
+
+/*
+cache_length	: 
+			{ $$ = (NOD) (SLONG) DEF_CACHE_BUFFERS; }
+		| LENGTH equals long_integer page_noise
+			{ if ((SLONG) $3 < MIN_CACHE_BUFFERS)
+			      yyabandon (-239, isc_cache_too_small);
+				  */ /* Cache length too small */ /*
+			  else 
+			      $$ = (NOD) $3; }
+		;
+*/
+
+logfiles	: logfile_desc 
+		| logfiles ',' logfile_desc
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+logfile_desc	: logfile_name logfile_attrs 
+			{ 
+#ifndef WINDOWS_ONLY
+		         check_log_file_attrs(); 
+#endif
+			 $$ = (NOD) make_node (nod_log_file_desc, (int) 1,
+                                                (NOD) file); }
+		;
+logfile_name	: sql_string 
+			{ file = make_file();
+			  file->fil_name = (STR) $1; } 
+		;
+logfile_attrs	: 
+		| logfile_attrs logfile_attr
+		;
+
+logfile_attr	: SIZE equals long_integer
+			{ file->fil_length = (SLONG) $3; }
+/*
+		| RAW_PARTITIONS equals pos_short_integer
+			{ file->fil_partitions = (SSHORT) $3; 
+			  file->fil_flags |= LOG_raw; } */
+		;
+
+file1		: KW_FILE
+			{ file  = make_file ();}
+		;
+
+file_desc1	:
+		| file_desc
+		;
+
+file_desc	: file_clause
+		| file_desc file_clause
+		;
+
+file_clause	: STARTING file_clause_noise long_integer
+			{ file->fil_start = (SLONG) $3;}
+		| LENGTH equals long_integer page_noise
+			{ file->fil_length = (SLONG) $3;}
+		;
+
+file_clause_noise :
+		| AT
+		| AT PAGE
+		;
+
+page_noise	:
+		| PAGE
+		| PAGES
+		;
+
+
+/* CREATE TABLE */
+
+table_clause	: simple_table_name external_file '(' table_elements ')'
+			{ $$ = make_node (nod_def_relation, 
+				(int) e_drl_count, $1, make_list ($4), $2); }
+		;
+
+external_file	: EXTERNAL KW_FILE sql_string
+			{ $$ = $3; }
+		| EXTERNAL sql_string
+			{ $$ = $2; }
+		|
+			{ $$ = (NOD) NULL; }
+		;
+
+table_elements	: table_element
+		| table_elements ',' table_element
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+table_element	: column_def
+		| table_constraint_definition
+		;
+
+
+
+/* column definition */
+
+column_def	: column_def_name data_type_or_domain default_opt 
+			end_trigger column_constraint_clause collate_clause
+			{ $$ = make_node (nod_def_field, (int) e_dfl_count, 
+					$1, $3, $4, make_list ($5), $6, $2, NULL); }   
+		| column_def_name non_array_type def_computed
+			{ $$ = make_node (nod_def_field, (int) e_dfl_count, 
+				    $1, NULL, NULL, NULL, NULL, NULL, $3); }   
+
+		| column_def_name def_computed
+			{ $$ = make_node (nod_def_field, (int) e_dfl_count, 
+				    $1, NULL, NULL, NULL, NULL, NULL, $2); }   
+		;
+                                 
+/* value does allow parens around it, but there is a problem getting the
+ * source text
+ */
+
+def_computed	: computed_by '(' begin_trigger value end_trigger ')'
+			{ 
+			field->fld_flags |= FLD_computed;
+			$$ = make_node (nod_def_computed, 2, $4, $5); }
+		;
+
+computed_by	: COMPUTED BY
+		| COMPUTED
+		;
+
+data_type_or_domain	: data_type begin_trigger
+                          { $$ = NULL; }
+			| simple_column_name begin_string
+                          { $$ = make_node (nod_def_domain, (int) e_dom_count,
+                                            $1, NULL, NULL, NULL, NULL); }
+                        ;
+
+collate_clause	: COLLATE symbol_collation_name
+			{ $$ = $2; }
+		|
+			{ $$ = (NOD) NULL; }
+		;
+
+column_def_name	: column_name
+			{ field_name = $1;
+			  field = make_field ($1);
+			  $$ = (NOD) field; }
+		;
+
+simple_column_def_name  : simple_column_name
+				{ field = make_field ($1);
+				  $$ = (NOD) field; }
+			;
+
+
+data_type_descriptor :	init_data_type data_type
+			{ $$ = $1; }
+
+init_data_type :
+			{ field = make_field (NULL);
+			  $$ = (NOD) field; }
+
+
+default_opt	: DEFAULT default_value
+			{ $$ = $2; }
+		|
+			{ $$ = (NOD) NULL; }
+		;
+
+default_value	: constant
+			{ $$ = $1; }
+		| USER
+			{ $$ = make_node (nod_user_name, (int) 0, NULL); }
+		| null_value
+			{ $$ = $1; }
+		| datetime_value_expression
+			{ $$ = $1; }
+		;
+                   
+column_constraint_clause : 
+				{ $$ = (NOD) NULL; }
+			| column_constraint_list
+			;
+
+column_constraint_list	: column_constraint_def
+		        | column_constraint_list column_constraint_def
+			{ $$ = make_node (nod_list, (int) 2, $1, $2); }
+		        ;
+
+column_constraint_def : constraint_name_opt column_constraint
+            { $$ = make_node (nod_rel_constraint, (int) 2, $1, $2);}
+
+
+column_constraint : NOT KW_NULL 
+                        { $$ = make_node (nod_null, (int) 1, NULL); }
+                  | REFERENCES simple_table_name column_parens_opt
+			referential_trigger_action
+                        { $$ = make_node (nod_foreign, e_for_count,
+                        make_node (nod_list, (int) 1, field_name), $2, $3, $4); }
+
+                  | check_constraint
+
+                  | UNIQUE
+                        { $$ = make_node (nod_unique, (int) 0, NULL); }
+                  | PRIMARY KEY
+                        { $$ = make_node (nod_primary, (int) 0, NULL); }
+		;
+                    
+
+
+/* table constraints */
+
+table_constraint_definition : constraint_name_opt table_constraint
+           { $$ = make_node (nod_rel_constraint, (int) 2, $1, $2);}
+                      ;
+
+constraint_name_opt : CONSTRAINT symbol_constraint_name
+                      { $$ = $2; }
+                    | { $$ = NULL ;}
+                    ;
+
+table_constraint : unique_constraint
+		 | primary_constraint
+		 | referential_constraint
+		 | check_constraint
+		 ;
+
+unique_constraint : UNIQUE column_parens
+                    { $$ = make_node (nod_unique, 1, $2); }
+                  ;
+
+primary_constraint : PRIMARY KEY column_parens
+			{ $$ = make_node (nod_primary, e_pri_count, $3); }
+		;
+
+referential_constraint 	: FOREIGN KEY column_parens REFERENCES 
+			  simple_table_name column_parens_opt 
+			  referential_trigger_action
+			{ $$ = make_node (nod_foreign, e_for_count, $3, $5, 
+			         $6, $7); }
+		;
+
+check_constraint : begin_trigger CHECK '(' search_condition ')' end_trigger
+			{ $$ = make_node (nod_def_constraint, 
+				(int) e_cnstr_count, MAKE_string (NULL_STRING, 0), NULL, 
+				NULL, NULL, $4, NULL, $6, NULL, NULL); }
+		;
+
+referential_trigger_action:	
+		  update_rule
+		  { $$ = make_node (nod_ref_upd_del, e_ref_upd_del_count, $1, NULL);} 
+		| delete_rule
+		  { $$ = make_node (nod_ref_upd_del, e_ref_upd_del_count, NULL, $1);}
+		| delete_rule update_rule
+		  { $$ = make_node (nod_ref_upd_del, e_ref_upd_del_count, $2, $1); }
+		| update_rule delete_rule
+		  { $$ = make_node (nod_ref_upd_del, e_ref_upd_del_count, $1, $2);}
+		| /* empty */
+		  { $$ = NULL;}
+		;
+
+update_rule	: ON UPDATE referential_action
+		  { $$ = $3;}
+		;
+delete_rule	: ON DELETE referential_action
+		  { $$ = $3;}
+		;
+
+referential_action: CASCADE
+		  { $$ = make_flag_node (nod_ref_trig_action, 
+			 REF_ACTION_CASCADE, e_ref_trig_action_count, NULL);}
+                | SET DEFAULT
+		  { $$ = make_flag_node (nod_ref_trig_action, 
+			 REF_ACTION_SET_DEFAULT, e_ref_trig_action_count, NULL);}
+		| SET KW_NULL
+		  { $$ = make_flag_node (nod_ref_trig_action, 
+			 REF_ACTION_SET_NULL, e_ref_trig_action_count, NULL);}
+		| NO ACTION
+		  { $$ = make_flag_node (nod_ref_trig_action, 
+			 REF_ACTION_NONE, e_ref_trig_action_count, NULL);}
+		;
+
+
+/* PROCEDURE */
+
+
+procedure_clause	: symbol_procedure_name input_parameters
+		     	  output_parameters
+		    	  AS begin_string
+			  var_declaration_list
+			  full_proc_block
+			  end_trigger
+				{ $$ = make_node (nod_def_procedure,
+						  (int) e_prc_count, 
+					          $1, $2, $3, $6, $7, $8, NULL); } 
+		;        
+
+alter_procedure_clause	: symbol_procedure_name input_parameters
+		     	  output_parameters
+		    	  AS begin_string
+			  var_declaration_list
+			  full_proc_block
+			  end_trigger
+				{ $$ = make_node (nod_mod_procedure,
+						  (int) e_prc_count, 
+					          $1, $2, $3, $6, $7, $8, NULL); } 
+		;        
+
+input_parameters :	'(' proc_parameters ')'
+				{ $$ = make_list ($2); }
+			|
+				{ $$ = NULL; }
+			;
+
+output_parameters :	RETURNS input_parameters
+				{ $$ = $2; }
+			|
+				{ $$ = NULL; }
+			;
+
+proc_parameters	: proc_parameter
+		| proc_parameters ',' proc_parameter
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+proc_parameter	: simple_column_def_name non_array_type
+			{ $$ = make_node (nod_def_field, (int) e_dfl_count, 
+				$1, NULL, NULL, NULL, NULL, NULL, NULL); }   
+		;
+
+
+var_declaration_list	: var_declarations
+				{ $$ = make_list ($1); }
+			|
+				{ $$ = NULL; }
+			;
+
+var_declarations	: var_declaration
+			| var_declarations var_declaration
+			{ $$ = make_node (nod_list, 2, $1, $2); }
+		;
+
+var_declaration : DECLARE VARIABLE column_def_name non_array_type ';'
+			{ $$ = make_node (nod_def_field, (int) e_dfl_count, 
+				$3, NULL, NULL, NULL, NULL, NULL, NULL); }   
+		;
+
+proc_block	: proc_statement
+		| full_proc_block
+		;
+
+full_proc_block	: BEGIN
+		  proc_statements
+		  END
+			{ $$ = make_node (nod_block, e_blk_count,
+					make_list ($2), NULL);}
+		| BEGIN
+		  proc_statements
+		  excp_statements
+		  END
+			{ $$ = make_node (nod_block, e_blk_count,
+					make_list ($2), make_list ($3));}
+		;
+
+proc_statements	: proc_block
+		| proc_statements proc_block
+			{ $$ = make_node (nod_list, 2, $1, $2); }
+		;
+
+proc_statement	: assignment ';'
+		| delete ';'
+		| EXCEPTION symbol_exception_name ';'
+			{ $$ = make_node (nod_exception_stmt, 1, $2); }
+		| exec_procedure
+		| for_select
+		| if_then_else
+		| insert ';'
+		| POST_EVENT value ';'
+			{ $$ = make_node (nod_post, e_pst_count, $2); }
+		| singleton_select
+		| update ';'
+		| while
+		| SUSPEND ';'
+			{ $$ = make_node (nod_return, e_rtn_count, NULL); }
+		| EXIT ';'
+			{ $$ = make_node (nod_exit, 0, NULL); }
+		;
+
+exec_procedure	: EXECUTE PROCEDURE symbol_procedure_name proc_inputs proc_outputs ';'
+			{ $$ = make_node (nod_exec_procedure, e_exe_count, $3,
+					  $4, $5); }
+		;
+
+for_select	: FOR select INTO variable_list cursor_def DO proc_block
+			{ $$ = make_node (nod_for_select, e_flp_count, $2,
+					  make_list ($4), $5, $7); }
+		;
+
+if_then_else	: IF '(' search_condition ')' THEN proc_block ELSE proc_block
+			{ $$ = make_node (nod_if, e_if_count, $3, $6, $8); }
+		| IF '(' search_condition ')' THEN proc_block 
+			{ $$ = make_node (nod_if, e_if_count, $3, $6, NULL); }
+		;
+
+singleton_select	: select INTO variable_list ';'
+			{ $$ = make_node (nod_for_select, e_flp_count, $1,
+					  make_list ($3), NULL, NULL); }
+		;
+
+variable	: ':' symbol_variable_name
+			{ $$ = make_node (nod_var_name, (int) e_vrn_count, 
+							$2); }
+		;
+
+
+proc_inputs	: var_const_list
+			{ $$ = make_list ($1); }
+		| '(' var_const_list ')'
+			{ $$ = make_list ($2); }
+		|
+			{ $$ = NULL; }
+		;
+
+proc_outputs	: RETURNING_VALUES variable_list
+			{ $$ = make_list ($2); }
+		| RETURNING_VALUES '(' variable_list  ')'
+			{ $$ = make_list ($3); }
+		|
+			{ $$ = NULL; }
+		;
+
+var_const_list	: variable
+		| constant
+ 		| column_name
+ 		| null_value
+		| var_const_list ',' variable
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		| var_const_list ',' constant
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		| var_const_list ',' column_name
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		| var_const_list ',' null_value
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+variable_list	: variable
+ 		| column_name
+		| variable_list ',' column_name
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		| variable_list ',' variable
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+while		: WHILE '(' search_condition ')' DO proc_block
+			{ $$ = make_node (nod_while, e_while_count,
+					  $3, $6, NULL); }
+		;
+
+cursor_def	: AS CURSOR symbol_cursor_name
+			{ $$ = make_node (nod_cursor, e_cur_count, $3, NULL, NULL); }
+		|
+			{ $$ = NULL; }
+		;
+excp_statements	: excp_statement
+		| excp_statements excp_statement
+			{ $$ = make_node (nod_list, 2, $1, $2); }
+		;
+
+excp_statement	: WHEN errors DO proc_block
+			{ $$ = make_node (nod_on_error, e_err_count,
+					make_list ($2), $4); }
+		;
+
+errors	: err
+	| errors ',' err
+		{ $$ = make_node (nod_list, 2, $1, $3); }
+	;
+
+err	: SQLCODE signed_short_integer
+		{ $$ = make_node (nod_sqlcode, 1, $2); }
+	| GDSCODE symbol_gdscode_name
+		{ $$ = make_node (nod_gdscode, 1, $2); }
+	| EXCEPTION symbol_exception_name
+		{ $$ = make_node (nod_exception, 1, $2); }
+	| ANY
+		{ $$ = make_node (nod_default, 1, NULL); }
+	;
+
+
+/* Direct EXECUTE PROCEDURE */
+
+invoke_procedure : EXECUTE PROCEDURE symbol_procedure_name prc_inputs
+			{ $$ = make_node (nod_exec_procedure, e_exe_count, $3,
+				  $4, make_node (nod_all, (int) 0, NULL)); }
+		;
+
+prc_inputs	: prm_const_list
+			{ $$ = make_list ($1); }
+		| '(' prm_const_list ')'
+			{ $$ = make_list ($2); }
+		|
+			{ $$ = NULL; }
+		;
+
+prm_const_list	: parameter
+		| constant
+		| null_value
+		| prm_const_list ',' parameter
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		| prm_const_list ',' constant
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		| prm_const_list ',' null_value
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+
+/* CREATE VIEW */
+
+view_clause	: symbol_view_name column_parens_opt AS begin_string union_view 
+                                                            check_opt end_string
+			{ $$ = make_node (nod_def_view, (int) e_view_count, 
+					  $1, $2, $5, $6, $7); }   
+		;        
+
+union_view      : union_view_expr
+			{ $$ = make_node (nod_select, (int) 2, $1, NULL); }
+		;
+
+union_view_expr	: select_view_expr
+			{ $$ = make_node (nod_list, (int) 1, $1); }
+		| union_view_expr UNION select_view_expr
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+                | union_view_expr UNION ALL select_view_expr
+                        { $$ = make_flag_node (nod_list, NOD_UNION_ALL, 2, $1, $4); }
+		;
+
+select_view_expr: SELECT distinct_clause
+			 select_list 
+			 from_view_clause 
+			 where_clause 
+			 group_clause 
+			 having_clause
+			 plan_clause
+			{ $$ = make_node (nod_select_expr, e_sel_count, 
+					$2, $3, $4, $5, $6, $7, $8, NULL); }
+		;                                               
+
+from_view_clause : FROM from_view_list
+		 	{ $$ = make_list ($2); }
+		;
+
+from_view_list	: view_table
+		| from_view_list ',' view_table
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+view_table      : joined_view_table
+                | table_name
+                ;
+
+joined_view_table	: view_table join_type JOIN view_table ON search_condition
+				{ $$ = make_node (nod_join, (int) e_join_count,
+						$1, $2, $4, $6); }
+			| '(' joined_view_table ')'
+				{ $$ = $2; }
+			;
+
+/* these rules will capture the input string for storage in metadata */
+
+begin_string	: 
+			{ beginning = lex_position(); }
+		;
+
+end_string	:
+			{ $$ = (NOD) MAKE_string ((UCHAR *) beginning, 
+			       (lex_position() == end) ?
+			       lex_position()-beginning : last_token-beginning);}
+		;
+
+begin_trigger	: 
+			{ beginning = last_token; }
+		;
+
+end_trigger	:
+			{ $$ = (NOD) MAKE_string ((UCHAR *) beginning, 
+					lex_position()-beginning); }
+		;
+
+
+check_opt	: WITH CHECK OPTION
+			{ $$ = make_node (nod_def_constraint, (int) e_cnstr_count, 
+					MAKE_string (NULL_STRING, 0), NULL, NULL, NULL, 
+					NULL, NULL, NULL, NULL, NULL); }
+		|
+			{ $$ = 0; }
+		;
+
+
+
+/* CREATE TRIGGER */
+
+def_trigger_clause : symbol_trigger_name FOR simple_table_name
+		trigger_active
+		trigger_type
+		trigger_position
+		begin_trigger
+		trigger_action
+		end_trigger
+			{ $$ = make_node (nod_def_trigger, (int) e_trg_count,
+				$1, $3, $4, $5, $6, $8, $9, NULL); }
+		;
+
+trigger_active	: ACTIVE 
+			{ $$ = MAKE_constant ((STR) 0, CONSTANT_SLONG); }
+		| INACTIVE
+			{ $$ = MAKE_constant ((STR) 1, CONSTANT_SLONG); }
+		|
+			{ $$ = NULL; }
+		;
+
+trigger_type	: BEFORE INSERT
+			{ $$ = MAKE_constant ((STR) 1, CONSTANT_SLONG); }
+		| AFTER INSERT
+			{ $$ = MAKE_constant ((STR) 2, CONSTANT_SLONG); }
+		| BEFORE UPDATE
+			{ $$ = MAKE_constant ((STR) 3, CONSTANT_SLONG); }
+		| AFTER UPDATE
+			{ $$ = MAKE_constant ((STR) 4, CONSTANT_SLONG); }
+		| BEFORE DELETE
+			{ $$ = MAKE_constant ((STR) 5, CONSTANT_SLONG); }
+		| AFTER DELETE
+			{ $$ = MAKE_constant ((STR) 6, CONSTANT_SLONG); }
+		;
+
+trigger_position : POSITION nonneg_short_integer
+			{ $$ = MAKE_constant ((STR) $2, CONSTANT_SLONG); }
+		|
+			{ $$ = NULL; }
+		;
+
+trigger_action : AS begin_trigger var_declaration_list full_proc_block
+			{ $$ = make_node (nod_list, 2, $3, $4); }
+		;
+
+/* ALTER statement */
+
+alter		: ALTER alter_clause
+			{ $$ = $2; }
+                ; 
+
+alter_clause	: EXCEPTION symbol_exception_name sql_string
+			{ $$ = make_node (nod_mod_exception, (int) e_xcp_count, 
+						$2, $3); }
+		| TABLE simple_table_name alter_ops
+			{ $$ = make_node (nod_mod_relation, (int) e_alt_count, 
+						$2, make_list ($3)); }
+		| TRIGGER alter_trigger_clause
+			{ $$ = $2; }
+		| PROCEDURE alter_procedure_clause
+			{ $$ = $2; }
+		| DATABASE init_alter_db alter_db
+			{ $$ = make_node (nod_mod_database, (int) e_adb_count,
+				make_list ($3)); }
+                | DOMAIN alter_column_name alter_domain_ops
+                        { $$ = make_node (nod_mod_domain, (int) e_alt_count,
+                                          $2, make_list ($3)); }
+		| INDEX alter_index_clause
+                        { $$ = make_node (nod_mod_index, 
+				     (int) e_mod_idx_count, $2); }
+		;
+
+alter_domain_ops	: alter_domain_op
+			| alter_domain_ops alter_domain_op
+			  { $$ = make_node (nod_list, 2, $1, $2); }
+			;
+
+alter_domain_op		: SET begin_string default_opt end_trigger
+                          { $$ = make_node (nod_def_default, (int) e_dft_count,
+					    $3, $4); }
+                        | ADD CONSTRAINT domain_check_constraint
+                          { $$ = $3; } 
+                        | ADD domain_check_constraint
+                          { $$ = $2; } 
+			| DROP DEFAULT
+                          {$$ = make_node (nod_del_default, (int) 0, NULL); }
+			| DROP CONSTRAINT
+                          { $$ = make_node (nod_delete_rel_constraint, (int) 1, NULL); }
+			| TO simple_column_name
+			  { $$ = $2; }
+			| TYPE init_data_type non_array_type 
+			  { $$ = make_node (nod_mod_domain_type, 2, $2); }
+			;
+
+alter_ops	: alter_op
+		| alter_ops ',' alter_op
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+alter_op	: DROP simple_column_name drop_behaviour
+			{ $$ = make_node (nod_del_field, 2, $2, $3); }
+                | DROP CONSTRAINT symbol_constraint_name
+                        { $$ = make_node (nod_delete_rel_constraint, (int) 1, $3);}
+		| ADD column_def
+			{ $$ = $2; }
+                | ADD table_constraint_definition
+                        { $$ = $2; }
+		| col_opt simple_column_name POSITION nonneg_short_integer
+			{ $$ = make_node (nod_mod_field_pos, 2, $2,
+				MAKE_constant ((STR) $4, CONSTANT_SLONG)); }
+		| col_opt alter_column_name TO simple_column_name
+			{ $$ = make_node (nod_mod_field_name, 2, $2, $4); }
+		| col_opt alter_col_name TYPE alter_data_type_or_domain end_trigger 
+			{ $$ = make_node (nod_mod_field_type, 3, $2, $5, $4); } 
+		;
+
+alter_column_name  : keyword_or_column
+		   { $$ = make_node (nod_field_name, (int) e_fln_count,
+						NULL, $1); }
+		   ;
+	
+keyword_or_column	: COLUMN
+			| TYPE
+			| EXTRACT
+			| YEAR
+			| MONTH
+			| DAY
+			| HOUR
+			| MINUTE
+			| SECOND
+			| WEEKDAY
+			| YEARDAY
+			| TIME
+			| TIMESTAMP
+			| CURRENT_DATE
+			| CURRENT_TIME
+			| CURRENT_TIMESTAMP
+			| SYMBOL
+			;
+
+col_opt		: ALTER
+		    { $$ = NULL; }
+		| ALTER COLUMN
+		    { $$ = NULL; }
+		;
+
+alter_data_type_or_domain	: non_array_type begin_trigger
+                          		{ $$ = NULL; }
+				| simple_column_name begin_string
+                          		{ $$ = make_node (nod_def_domain, (int) e_dom_count,
+                                        	    $1, NULL, NULL, NULL, NULL); }
+
+alter_col_name	: simple_column_name
+			{ field_name = $1;
+			  field = make_field ($1);
+			  $$ = (NOD) field; }
+
+drop_behaviour	: RESTRICT
+			{ $$ = make_node (nod_restrict, 0, NULL); }
+		| CASCADE
+			{ $$ = make_node (nod_cascade, 0, NULL); }
+		|
+			{ $$ = make_node (nod_restrict, 0, NULL); }
+		;
+
+alter_index_clause	: symbol_index_name ACTIVE
+				{ $$ = make_node (nod_idx_active, 1, $1); }
+			| symbol_index_name INACTIVE
+				{ $$ = make_node (nod_idx_inactive, 1, $1); }
+			;
+
+
+/* ALTER DATABASE */
+
+init_alter_db	: 
+			{ log_defined = FALSE;
+			  cache_defined = FALSE;
+			  $$ = (NOD) NULL; }
+		;
+
+alter_db	: db_alter_clause
+		| alter_db db_alter_clause
+		    	{ $$ = make_node (nod_list, (int) 2, $1, $2); }
+		;
+
+db_alter_clause : ADD db_file_list
+			{ $$ = $2; }
+/*
+		| ADD db_cache
+			{ $$ = $2; }
+                | DROP CACHE
+			{ $$ = make_node (nod_drop_cache, (int) 0, NULL); }
+*/
+		| DROP LOGFILE
+			{ $$ = make_node (nod_drop_log, (int) 0, NULL); }
+		| SET  db_log_option_list
+			{ $$ = $2; }
+		| ADD db_log
+			{ $$ = $2; }
+		;
+
+db_log_option_list : db_log_option
+		   | db_log_option_list ',' db_log_option
+		    	{ $$ = make_node (nod_list, (int) 2, $1, $3); }
+		   ;
+
+
+/* ALTER TRIGGER */
+
+alter_trigger_clause : symbol_trigger_name trigger_active
+		new_trigger_type
+		trigger_position
+		begin_trigger
+		new_trigger_action
+		end_trigger
+			{ $$ = make_node (nod_mod_trigger, (int) e_trg_count,
+				$1, NULL, $2, $3, $4, $6, $7, NULL); }
+		;
+
+new_trigger_type : trigger_type
+		|
+			{ $$ = NULL; }
+		;
+
+new_trigger_action : trigger_action
+		|
+			{ $$ = NULL; }
+		;
+
+/* DROP metadata operations */
+                
+drop		: DROP drop_clause
+			{ $$ = $2; }
+                ; 
+
+drop_clause	: EXCEPTION symbol_exception_name
+			{ $$ = make_node (nod_del_exception, 1, $2); }
+		| INDEX symbol_index_name
+			{ $$ = make_node (nod_del_index, (int) 1, $2); }
+		| PROCEDURE symbol_procedure_name
+			{ $$ = make_node (nod_del_procedure, (int) 1, $2); }
+		| TABLE symbol_table_name
+			{ $$ = make_node (nod_del_relation, (int) 1, $2); }
+		| TRIGGER symbol_trigger_name
+			{ $$ = make_node (nod_del_trigger, (int) 1, $2); }
+		| VIEW symbol_view_name
+			{ $$ = make_node (nod_del_relation, (int) 1, $2); }
+		| FILTER symbol_filter_name
+			{ $$ = make_node (nod_del_filter, (int) 1, $2); }
+		| DOMAIN symbol_domain_name
+			{ $$ = make_node (nod_del_domain, (int) 1, $2); }
+		| EXTERNAL FUNCTION symbol_UDF_name
+			{ $$ = make_node (nod_del_udf, (int) 1, $3); }
+		| SHADOW pos_short_integer
+			{ $$ = make_node (nod_del_shadow, (int) 1, $2); }
+		| ROLE symbol_role_name
+			{ $$ = make_node (nod_del_role, (int) 1, $2); }
+		;
+
+
+
+/* these are the allowable datatypes */
+
+data_type	: non_array_type
+		| array_type
+		;
+
+non_array_type	: simple_type
+		| blob_type
+		;
+
+array_type	: non_charset_simple_type '[' array_spec ']'
+		    { field->fld_ranges = make_list ($3);
+		      field->fld_dimensions = field->fld_ranges->nod_count / 2;
+		      field->fld_element_dtype = field->fld_dtype;
+		      $$ = $1; }
+		| character_type '[' array_spec ']' charset_clause
+		    { field->fld_ranges = make_list ($3);
+		      field->fld_dimensions = field->fld_ranges->nod_count / 2;
+		      field->fld_element_dtype = field->fld_dtype;
+		      $$ = $1; }
+		;
+
+array_spec	: array_range 
+		| array_spec ',' array_range 
+			{ $$ = make_node (nod_list, (int) 2, $1, $3); }
+		;
+
+array_range	: signed_long_integer
+	    		{ if ((SLONG) $1 < 1)
+		     		$$ = make_node (nod_list, (int) 2, 
+					MAKE_constant ((STR) $1, CONSTANT_SLONG), 
+					MAKE_constant ((STR) 1, CONSTANT_SLONG)); 
+		          else
+		     		$$ = make_node (nod_list, (int) 2, 
+			   		MAKE_constant ((STR) 1, CONSTANT_SLONG), 
+					MAKE_constant ((STR) $1, CONSTANT_SLONG) ); }
+		| signed_long_integer ':' signed_long_integer
+		    	{ $$ = make_node (nod_list, (int) 2, 
+			 	MAKE_constant ((STR) $1, CONSTANT_SLONG),
+				MAKE_constant ((STR) $3, CONSTANT_SLONG)); }
+		;
+
+simple_type	: non_charset_simple_type
+		| character_type charset_clause
+		;
+
+non_charset_simple_type	: national_character_type
+		| numeric_type
+		| float_type
+		| integer_keyword
+			{ 
+			field->fld_dtype = dtype_long; 
+			field->fld_length = sizeof (SLONG); 
+			}
+		| SMALLINT
+			{ 
+			field->fld_dtype = dtype_short; 
+			field->fld_length = sizeof (SSHORT); 
+			}
+		| DATE
+			{ 
+			*stmt_ambiguous = TRUE;
+			if (client_dialect <= SQL_DIALECT_V5)
+			    {
+			    /* Post warning saying that DATE is equivalent to TIMESTAMP */
+		            ERRD_post_warning (isc_sqlwarn, gds_arg_number, (SLONG) 301, 
+                                               isc_arg_warning, isc_dtype_renamed, 0);
+			    field->fld_dtype = dtype_timestamp; 
+			    field->fld_length = sizeof (GDS_TIMESTAMP);
+			    }
+			else if (client_dialect == SQL_DIALECT_V6_TRANSITION)
+			    yyabandon (-104, isc_transitional_date);
+			else
+			    {
+			    field->fld_dtype = dtype_sql_date; 
+			    field->fld_length = sizeof (ULONG);
+			    }
+			}
+		| TIME
+			{ 
+			if (client_dialect < SQL_DIALECT_V6_TRANSITION)
+			    ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104, 
+				    gds_arg_gds, isc_sql_dialect_datatype_unsupport,
+				    gds_arg_number, client_dialect,
+				    gds_arg_string, "TIME",
+				    0);
+			if (db_dialect < SQL_DIALECT_V6_TRANSITION)
+			    ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104, 
+				    gds_arg_gds, isc_sql_db_dialect_dtype_unsupport,
+				    gds_arg_number, db_dialect,
+				    gds_arg_string, "TIME",
+				    0);
+			field->fld_dtype = dtype_sql_time; 
+			field->fld_length = sizeof (SLONG);
+			}
+		| TIMESTAMP
+			{ 
+			field->fld_dtype = dtype_timestamp; 
+			field->fld_length = sizeof (GDS_TIMESTAMP);
+			}
+		;
+
+
+integer_keyword	: INTEGER	
+		| KW_INT
+		;
+
+
+/* allow a blob to be specified with any combination of 
+   segment length and subtype */
+
+blob_type	: BLOB blob_subtype blob_segsize charset_clause
+			{ 
+			field->fld_dtype = dtype_blob; 
+			}
+		| BLOB '(' unsigned_short_integer ')'
+			{ 
+			field->fld_dtype = dtype_blob; 
+			field->fld_seg_length = (USHORT) $3;
+			field->fld_sub_type = 0;
+			}
+		| BLOB '(' unsigned_short_integer ',' signed_short_integer ')'
+			{ 
+			field->fld_dtype = dtype_blob; 
+			field->fld_seg_length = (USHORT) $3;
+			field->fld_sub_type = (USHORT) $5;
+			}
+		| BLOB '(' ',' signed_short_integer ')'
+			{ 
+			field->fld_dtype = dtype_blob; 
+			field->fld_seg_length = 80;
+			field->fld_sub_type = (USHORT) $4;
+			}
+		;
+
+blob_segsize	: SEGMENT SIZE unsigned_short_integer
+		  	{
+			field->fld_seg_length = (USHORT) $3;
+		  	}
+		|
+		  	{
+			field->fld_seg_length = (USHORT) 80;
+		  	}
+		;
+
+blob_subtype	: SUB_TYPE signed_short_integer
+			{
+			field->fld_sub_type = (USHORT) $2;
+			}
+		| SUB_TYPE symbol_blob_subtype_name
+			{
+			field->fld_sub_type_name = $2;
+			}
+		|
+			{
+			field->fld_sub_type = (USHORT) 0;
+			}
+		;
+
+charset_clause	: CHARACTER SET symbol_character_set_name
+			{
+			field->fld_character_set = $3;
+			}
+		|
+		;
+
+
+/* character type */
+
+
+national_character_type	: national_character_keyword '(' pos_short_integer ')'
+			{ 
+			field->fld_dtype = dtype_text; 
+			field->fld_character_length = (USHORT) $3; 
+			field->fld_flags |= FLD_national;
+			}
+		| national_character_keyword
+			{ 
+			field->fld_dtype = dtype_text; 
+			field->fld_character_length = 1; 
+			field->fld_flags |= FLD_national;
+			}
+		| national_character_keyword VARYING '(' pos_short_integer ')'
+			{ 
+			field->fld_dtype = dtype_varying; 
+			field->fld_character_length = (USHORT) $4; 
+			field->fld_flags |= FLD_national;
+			}
+		;
+
+character_type	: character_keyword '(' pos_short_integer ')'
+			{ 
+			field->fld_dtype = dtype_text; 
+			field->fld_character_length = (USHORT) $3; 
+			}
+		| character_keyword
+			{ 
+			field->fld_dtype = dtype_text; 
+			field->fld_character_length = 1; 
+			}
+		| varying_keyword '(' pos_short_integer ')'
+			{ 
+			field->fld_dtype = dtype_varying; 
+			field->fld_character_length = (USHORT) $3; 
+			}
+		;
+
+varying_keyword 	   : VARCHAR
+			   | CHARACTER VARYING
+			   | KW_CHAR VARYING
+			   ;
+
+character_keyword 	   : CHARACTER
+			   | KW_CHAR
+			   ;
+
+national_character_keyword : NCHAR
+			   | NATIONAL CHARACTER
+		           | NATIONAL KW_CHAR
+		           ;
+
+
+
+/* numeric type */
+
+numeric_type	: KW_NUMERIC prec_scale
+                        { 
+			  field->fld_sub_type = dsc_num_type_numeric;
+			}
+		| decimal_keyword prec_scale
+			{  
+			   field->fld_sub_type = dsc_num_type_decimal;
+			   if (field->fld_dtype == dtype_short)
+				{
+				field->fld_dtype = dtype_long;
+				field->fld_length = sizeof (SLONG);
+				};
+			}
+		;
+
+ordinal		: pos_short_integer
+			{ $$ = make_node (nod_position, 1, $1); }
+		;
+
+
+
+
+prec_scale	: 
+			{
+			field->fld_dtype = dtype_long; 
+		    	field->fld_length = sizeof (SLONG); 
+			field->fld_precision = 9;
+		    	}
+		| '(' signed_long_integer ')'
+			{         
+			if ( ((SLONG) $2 < 1) || ((SLONG) $2 > 18) )
+			    yyabandon (-842, isc_precision_err);
+				/* Precision most be between 1 and 18. */ 
+			if ((SLONG) $2 > 9)
+			    {
+			    if ( ( (client_dialect <= SQL_DIALECT_V5) &&
+				   (db_dialect     >  SQL_DIALECT_V5) ) ||
+				 ( (client_dialect >  SQL_DIALECT_V5) &&
+				   (db_dialect     <= SQL_DIALECT_V5) ) )
+			        ERRD_post (gds__sqlerr,
+					   gds_arg_number, (SLONG) -817,
+					   gds_arg_gds,
+					   isc_ddl_not_allowed_by_db_sql_dial,
+					   gds_arg_number, (SLONG) db_dialect,
+					   0);
+			    if (client_dialect <= SQL_DIALECT_V5)
+			        {
+				field->fld_dtype = dtype_double;
+				field->fld_length = sizeof (double);
+			        }
+			    else
+			        {
+				if (client_dialect == SQL_DIALECT_V6_TRANSITION)
+				    {
+				    ERRD_post_warning (
+					isc_dsql_warn_precision_ambiguous,
+					gds_arg_end );
+				    ERRD_post_warning (
+					isc_dsql_warn_precision_ambiguous1,
+					gds_arg_end );
+				    ERRD_post_warning (
+					isc_dsql_warn_precision_ambiguous2,
+					gds_arg_end );
+
+				    }
+				field->fld_dtype = dtype_int64;
+				field->fld_length = sizeof (SINT64);
+			        }
+			    }
+			else 
+			    if ((SLONG) $2 < 5)
+			    	{
+			    	field->fld_dtype = dtype_short; 
+			    	field->fld_length = sizeof (SSHORT); 
+			    	}
+			    else
+			    	{
+			    	field->fld_dtype = dtype_long; 
+			    	field->fld_length = sizeof (SLONG); 
+			    	}
+			field->fld_precision = (USHORT) $2;
+			}
+		| '(' signed_long_integer ',' signed_long_integer ')'
+			{ 
+			if ( ((SLONG) $2 < 1) || ((SLONG) $2 > 18) )
+			    yyabandon (-842, isc_precision_err);
+				/* Precision should be between 1 and 18 */ 
+			if (((SLONG) $4 > (SLONG) $2) || ((SLONG) $4 < 0))
+			    yyabandon (-842, isc_scale_nogt);
+				/* Scale must be between 0 and precision */
+			if ((SLONG) $2 > 9)
+			    {
+			    if ( ( (client_dialect <= SQL_DIALECT_V5) &&
+				   (db_dialect     >  SQL_DIALECT_V5) ) ||
+				 ( (client_dialect >  SQL_DIALECT_V5) &&
+				   (db_dialect     <= SQL_DIALECT_V5) ) )
+			        ERRD_post (gds__sqlerr,
+					   gds_arg_number, (SLONG) -817,
+					   gds_arg_gds,
+					   isc_ddl_not_allowed_by_db_sql_dial,
+					   gds_arg_number, (SLONG) db_dialect,
+					   0);
+			    if (client_dialect <= SQL_DIALECT_V5)
+			        {
+				field->fld_dtype = dtype_double;
+				field->fld_length = sizeof (double); 
+			        }
+			    else
+			        {
+				if (client_dialect == SQL_DIALECT_V6_TRANSITION)
+				  {
+				    ERRD_post_warning (
+					isc_dsql_warn_precision_ambiguous,
+					gds_arg_end );
+				    ERRD_post_warning (
+					isc_dsql_warn_precision_ambiguous1,
+					gds_arg_end );
+				    ERRD_post_warning (
+					isc_dsql_warn_precision_ambiguous2,
+					gds_arg_end );
+				  }
+				  /* client_dialect >= SQL_DIALECT_V6 */
+				field->fld_dtype = dtype_int64;
+				field->fld_length = sizeof (SINT64);
+			        }
+			    }
+			else
+			    {
+			    if ((SLONG) $2 < 5)
+			    	{
+			    	field->fld_dtype = dtype_short; 
+			    	field->fld_length = sizeof (SSHORT); 
+			    	}
+			    else
+			    	{
+			    	field->fld_dtype = dtype_long; 
+			    	field->fld_length = sizeof (SLONG); 
+			    	}
+			    }
+			field->fld_precision = (USHORT) $2;
+			field->fld_scale = - (SSHORT) $4;
+			}
+		;
+
+decimal_keyword	: DECIMAL	
+		| KW_DEC
+		;
+
+
+
+/* floating point type */
+
+float_type	: KW_FLOAT precision_opt
+			{ 
+			if ((SLONG) $2 > 7)
+			    {
+			    field->fld_dtype = dtype_double;
+			    field->fld_length = sizeof (double); 
+			    }
+			else
+			    {
+			    field->fld_dtype = dtype_real; 
+			    field->fld_length = sizeof (float);
+			    }
+			}
+		| KW_LONG KW_FLOAT precision_opt
+			{ 
+			field->fld_dtype = dtype_double; 
+			field->fld_length = sizeof (double); 
+			}
+		| REAL
+			{ 
+			field->fld_dtype = dtype_real; 
+			field->fld_length = sizeof (float); 
+			}
+		| KW_DOUBLE PRECISION
+			{ 
+			field->fld_dtype = dtype_double; 
+			field->fld_length = sizeof (double); 
+			}
+		;
+
+precision_opt	: '(' nonneg_short_integer ')'
+			{ $$ = $2; }
+		|
+			{ $$ = 0; }
+		;
+
+
+
+/* SET statements */
+set		: set_transaction
+		| set_generator
+		| set_statistics
+		;
+
+
+set_generator	: SET GENERATOR symbol_generator_name TO signed_long_integer
+			{ 
+			  $$ = make_node (nod_set_generator2,e_gen_id_count,$3,
+						MAKE_constant ((STR) $5, CONSTANT_SLONG));
+			}
+                | SET GENERATOR symbol_generator_name TO NUMBER64BIT
+                        {
+			  $$ = make_node (nod_set_generator2,e_gen_id_count,$3,
+				       MAKE_constant((STR)$5, CONSTANT_SINT64));
+			}
+                | SET GENERATOR symbol_generator_name TO '-' NUMBER64BIT
+                        {
+			  $$ = make_node (nod_set_generator2, e_gen_id_count, $3,
+					  make_node(nod_negate, 1,
+						    MAKE_constant((STR)$6, CONSTANT_SINT64)));
+			}
+		;
+
+
+/* transaction statements */
+
+commit		: COMMIT optional_work optional_retain
+			{ $$ = make_node (nod_commit, 1, $3); }
+		;
+
+rollback	: ROLLBACK optional_work
+			{ $$ = make_node (nod_rollback, 0, NULL); }
+		;
+
+optional_work	: WORK
+		|
+		;
+
+optional_retain	: RETAIN opt_snapshot
+			{ $$ = make_node (nod_commit_retain, 0, NULL); }
+		|
+		 	{ $$ = (NOD) NULL; }
+		;
+
+opt_snapshot	: SNAPSHOT
+		|
+		 	{ $$ = (NOD) NULL; }
+		;
+
+set_transaction	: SET TRANSACTION tran_opt_list_m
+			{$$ = make_node (nod_trans, 1, make_list ($3)); }
+		;
+
+tran_opt_list_m	: tran_opt_list	
+		|
+		 	{ $$ = (NOD) NULL; }
+		;
+
+tran_opt_list	: tran_opt
+		| tran_opt_list tran_opt
+		    { $$ = make_node (nod_list, (int) 2, $1, $2); }
+		;
+
+tran_opt	: access_mode 
+		| lock_wait 
+		| isolation_mode 
+		| tbl_reserve_options 
+		;
+
+access_mode	: READ ONLY
+			{ $$ = make_flag_node (nod_access, NOD_READ_ONLY, (int) 0, NULL); }
+		| READ WRITE
+			{ $$ = make_flag_node (nod_access, NOD_READ_WRITE, (int) 0, NULL); }
+		;
+
+lock_wait	: WAIT
+			{ $$ = make_flag_node (nod_wait, NOD_WAIT, (int) 0, NULL); }
+		| NO WAIT
+			{ $$ = make_flag_node (nod_wait, NOD_NO_WAIT, (int) 0, NULL); }
+		;
+
+isolation_mode	: ISOLATION LEVEL iso_mode
+			{ $$ = $3;}
+		| iso_mode
+		;
+
+iso_mode	: snap_shot
+			{ $$ = $1;}
+		| READ UNCOMMITTED version_mode 
+			{ $$ = make_flag_node (nod_isolation, NOD_READ_COMMITTED, 1, $3); }
+		| READ COMMITTED version_mode 
+			{ $$ = make_flag_node (nod_isolation, NOD_READ_COMMITTED, 1, $3); }
+		;
+
+snap_shot	: SNAPSHOT
+			{ $$ = make_flag_node (nod_isolation, NOD_CONCURRENCY, 0, NULL); }
+		| SNAPSHOT TABLE 
+			{ $$ = make_flag_node (nod_isolation, NOD_CONSISTENCY, 0, NULL); }
+		| SNAPSHOT TABLE STABILITY
+			{ $$ = make_flag_node (nod_isolation, NOD_CONSISTENCY, 0, NULL); }
+		;
+
+version_mode	: VERSION
+			{ $$ = make_flag_node (nod_version, NOD_VERSION, 0, NULL); }
+		| NO VERSION
+			{ $$ = make_flag_node (nod_version, NOD_NO_VERSION, 0, NULL); }
+		|
+			{ $$ = 0; }
+		;
+
+tbl_reserve_options: RESERVING restr_list
+			{ $$ = make_node (nod_reserve, 1, make_list ($2)); }
+		;
+
+lock_type	: SHARED
+			{ $$ = (NOD) NOD_SHARED; }
+		| PROTECTED
+			{ $$ = (NOD) NOD_PROTECTED ; }
+		|
+			{ $$ = (NOD) 0; }
+		;
+
+lock_mode	: READ
+			{ $$ = (NOD) NOD_READ; }
+		| WRITE
+			{ $$ = (NOD) NOD_WRITE; }
+		;
+
+restr_list	: restr_option
+		| restr_list ',' restr_option
+		    { $$ = make_node (nod_list, (int) 2, $1, $3); }
+		;
+
+restr_option	: table_list table_lock
+			{ $$ = make_node (nod_table_lock, (int) 2, make_list ($1), $2); }
+		;
+
+table_lock	: FOR lock_type lock_mode
+			{ $$ = make_flag_node (nod_lock_mode, (SSHORT) ((SSHORT) $2 | (SSHORT) $3), (SSHORT) 0, NULL); }
+		|
+			{ $$ = 0; }
+		;
+
+table_list	: simple_table_name
+		| table_list ',' simple_table_name
+		    { $$ = make_node (nod_list, (int) 2, $1, $3); }
+		;
+
+
+set_statistics	: SET STATISTICS INDEX symbol_index_name
+			{$$ = make_node (nod_set_statistics, 
+				(int)e_stat_count, $4); }
+
+
+/* SELECT statement */
+
+select		: union_expr order_clause for_update_clause
+			{ $$ = make_node (nod_select, 3, $1, $2, $3); }
+		;
+
+union_expr	: select_expr
+			{ $$ = make_node (nod_list, 1, $1); }
+		| union_expr UNION select_expr
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+                | union_expr UNION ALL select_expr
+                        { $$ = make_flag_node (nod_list, NOD_UNION_ALL, 2, $1, $4); }
+		;
+
+order_clause	: ORDER BY order_list
+			{ $$ = make_list ($3); }
+		|
+			{ $$ = 0; }
+		;
+
+order_list	: order_item
+		| order_list ',' order_item
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+order_item	: column_name collate_clause order_direction
+			{ $$ = make_node (nod_order, e_order_count, $1, $3, $2); }
+		| ordinal collate_clause order_direction
+			{ $$ = make_node (nod_order, e_order_count, $1, $3, $2); }
+		;
+
+order_direction	: ASC
+			{ $$ = 0; }
+		| DESC
+			{ $$ = make_node (nod_flag, 0, NULL); }
+		|
+			{ $$ = 0; }
+		;
+for_update_clause : FOR UPDATE for_update_list
+			{ $$ = $3; }
+		|
+			{ $$ = 0; }
+		;
+
+for_update_list	: OF column_list
+			{ $$ = $2; }
+		|
+			{ $$ = make_node (nod_flag, 0, NULL); }
+		;
+
+
+/* SELECT expression */
+
+select_expr	: SELECT distinct_clause
+			 select_list 
+			 from_clause 
+			 where_clause 
+			 group_clause 
+			 having_clause
+			 limit_clause
+			 plan_clause
+			{ $$ = make_node (nod_select_expr, e_sel_count, 
+					$2, $3, $4, $5, $6, $7, $8, $9, NULL); }
+		;                                               
+
+
+distinct_clause	: DISTINCT
+			{ $$ = make_node (nod_flag, 0, NULL); };
+		| all_noise 
+			{ $$ = 0; }
+		;
+
+select_list	: select_items
+			{ $$ = make_list ($1); }
+		| '*'
+			{ $$ = 0; }
+		;
+
+select_items	: select_item
+		| select_items ',' select_item
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+select_item	: rhs
+		| rhs symbol_item_alias_name
+			{ $$ = make_node (nod_alias, 2, $1, $2); }
+		| rhs AS symbol_item_alias_name
+			{ $$ = make_node (nod_alias, 2, $1, $3); }
+		;
+
+
+/* FROM clause */
+
+from_clause	: FROM from_list
+		 	{ $$ = make_list ($2); }
+		;
+
+from_list	: table_reference
+		| from_list ',' table_reference
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+table_reference	: joined_table
+		| table_proc
+		;
+
+joined_table	: table_reference join_type JOIN table_reference ON search_condition
+			{ $$ = make_node (nod_join, (int) e_join_count, $1, $2, $4, $6); }
+		| '(' joined_table ')'
+			{ $$ = $2; }
+		;
+
+table_proc	: symbol_procedure_name proc_table_inputs symbol_table_alias_name
+			{ $$ = make_node (nod_rel_proc_name, 
+					(int) e_rpn_count, $1, $3, $2); }
+		| symbol_procedure_name proc_table_inputs
+			{ $$ = make_node (nod_rel_proc_name, 
+					(int) e_rpn_count, $1, NULL, $2); }
+		;
+
+proc_table_inputs	: '(' null_or_value_list ')'
+				{ $$ = make_list ($2); }
+			|
+				{ $$ = NULL; }
+			;
+
+null_or_value_list : null_or_value
+		   | null_or_value_list ',' null_or_value
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		   ;
+
+null_or_value : null_value 
+              | value
+              ;
+
+table_name	: simple_table_name
+		| symbol_table_name symbol_table_alias_name
+			{ $$ = make_node (nod_relation_name, 
+						(int) e_rln_count, $1, $2); }
+		;                         
+
+simple_table_name: symbol_table_name
+			{ $$ = make_node (nod_relation_name, 
+						(int) e_rln_count, $1, NULL); }
+		;
+
+join_type	: INNER
+			{ $$ = make_node (nod_join_inner, (int) 0, NULL); }
+		| LEFT
+			{ $$ = make_node (nod_join_left, (int) 0, NULL); }
+		| LEFT OUTER
+			{ $$ = make_node (nod_join_left, (int) 0, NULL); }
+		| RIGHT
+			{ $$ = make_node (nod_join_right, (int) 0, NULL); }
+		| RIGHT OUTER
+			{ $$ = make_node (nod_join_right, (int) 0, NULL); }
+		| FULL
+			{ $$ = make_node (nod_join_full, (int) 0, NULL); }
+		| FULL OUTER
+			{ $$ = make_node (nod_join_full, (int) 0, NULL); }
+		|
+			{ $$ = make_node (nod_join_inner, (int) 0, NULL); }
+		;
+
+
+/* other clauses in the select expression */
+
+group_clause	: GROUP BY grp_column_list
+			{ $$ = make_list ($3); }
+		|
+			{ $$ = 0; }
+		;
+
+grp_column_list	: grp_column_elem
+		| grp_column_list ',' grp_column_elem
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+grp_column_elem : column_name
+		| udf
+		| column_name COLLATE symbol_collation_name
+			{ $$ = make_node (nod_collate, e_coll_count, (NOD) $3, $1); }
+		;
+
+having_clause	: HAVING search_condition
+			{ $$ = $2; }
+		|
+			{ $$ = 0; }
+		;
+
+where_clause	: WHERE search_condition
+		 	{ $$ = $2; }
+		| 
+			{ $$ = 0; }
+		;
+
+/* LIMIT clause to specify a number of records to return  */		;
+
+
+limit_clause	: LIMIT limit_range
+			{ $$ = $2; }
+		|
+			{ $$ = 0;}
+		;
+
+limit_range	: '(' long_integer ')'
+			{ $$ = make_node (nod_top, 1, $1);}
+		| '(' long_integer ':' long_integer ')'
+			{ $$ = make_node (nod_top, 2, $1, $2);}
+		|
+			{ $$ = 0;}	
+		;
+
+
+
+/* PLAN clause to specify an access plan for a query */
+
+plan_clause	: PLAN plan_expression
+			{ $$ = $2; }
+		|
+			{ $$ = 0; }
+		;
+
+plan_expression	: plan_type '(' plan_item_list ')'
+			{ $$ = make_node (nod_plan_expr, 2, $1, make_list ($3)); }
+		;
+
+plan_type	: JOIN
+			{ $$ = 0; }
+		| SORT MERGE
+			{ $$ = make_node (nod_merge, (int) 0, NULL); }
+		| MERGE
+			{ $$ = make_node (nod_merge, (int) 0, NULL); }
+
+		/* for now the SORT operator is a no-op; it does not 
+		   change the place where a sort happens, but is just intended 
+		   to read the output from a SET PLAN */
+		| SORT
+			{ $$ = 0; }
+		|
+			{ $$ = 0; }
+		;
+
+plan_item_list	: plan_item
+		| plan_item ',' plan_item_list
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+plan_item	: table_or_alias_list access_type
+			{ $$ = make_node (nod_plan_item, 2, make_list ($1), $2); }
+		| plan_expression
+		;
+
+table_or_alias_list : symbol_table_name
+		| symbol_table_name table_or_alias_list
+			{ $$ = make_node (nod_list, 2, $1, $2); }
+		;
+
+access_type	: NATURAL
+			{ $$ = make_node (nod_natural, (int) 0, NULL); }
+		| INDEX '(' index_list ')'
+			{ $$ = make_node (nod_index, 1, make_list ($3)); }
+		| ORDER symbol_index_name
+			{ $$ = make_node (nod_index_order, 1, $2); }
+		;
+
+index_list	: symbol_index_name
+		| symbol_index_name ',' index_list
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+
+
+/* INSERT statement */
+
+insert		: INSERT INTO simple_table_name column_parens_opt VALUES '(' insert_value_list ')'
+			{ $$ = make_node (nod_insert, e_ins_count, 
+			  $3, make_list ($4), make_list ($7), NULL); }
+		| INSERT INTO simple_table_name column_parens_opt select_expr
+			{ $$ = make_node (nod_insert, e_ins_count, $3, $4, NULL, $5); }
+		;
+
+insert_value_list : rhs
+		| insert_value_list ',' rhs
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+
+/* DELETE statement */
+   
+delete		: delete_searched
+		| delete_positioned
+		;
+
+delete_searched	: DELETE FROM table_name where_clause
+			{ $$ = make_node (nod_delete, e_del_count, $3, $4, NULL); }
+		;
+
+delete_positioned : DELETE FROM table_name cursor_clause
+			{ $$ = make_node (nod_delete, e_del_count, $3, NULL, $4); }
+		;
+
+cursor_clause	: WHERE CURRENT OF symbol_cursor_name
+			{ $$ = make_node (nod_cursor, e_cur_count, $4, NULL, NULL); }
+		;
+
+
+/* UPDATE statement */
+
+update		: update_searched
+		| update_positioned
+		;
+
+update_searched	: UPDATE table_name SET assignments where_clause
+			{ $$ = make_node (nod_update, e_upd_count, 
+				$2, make_list ($4), $5, NULL); }
+          	;
+
+update_positioned : UPDATE table_name SET assignments cursor_clause
+			{ $$ = make_node (nod_update, e_upd_count,
+			  	$2, make_list ($4), NULL, $5); }
+		;
+
+assignments	: assignment
+		| assignments ',' assignment
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+assignment	: column_name '=' rhs
+			{ $$ = make_node (nod_assign, 2, $3, $1); }
+		;
+
+rhs		: value
+		| null_value
+		;
+
+
+/* BLOB get and put */
+
+blob            : READ BLOB simple_column_name FROM simple_table_name filter_clause segment_clause
+			{ $$ = make_node (nod_get_segment, e_blb_count, $3, $5, $6, $7); }
+                | INSERT BLOB simple_column_name INTO simple_table_name filter_clause segment_clause
+			{ $$ = make_node (nod_put_segment, e_blb_count, $3, $5, $6, $7); }
+		;
+
+filter_clause	: FILTER FROM blob_subtype_value TO blob_subtype_value
+			{ $$ = make_node (nod_list, 2, $3, $5); }
+		| FILTER TO blob_subtype_value
+			{ $$ = make_node (nod_list, 2, NULL, $3); }
+		|
+		;
+
+blob_subtype_value : blob_subtype
+		| parameter
+		;
+
+blob_subtype	: signed_short_integer
+			{ $$ = MAKE_constant ((STR) $1, CONSTANT_SLONG); }
+		;
+
+segment_clause	: MAX_SEGMENT segment_length
+			{ $$ = $2; }
+		|
+		;
+
+segment_length	: unsigned_short_integer
+			{ $$ = MAKE_constant ((STR) $1, CONSTANT_SLONG); }
+		| parameter
+		;
+
+
+/* column specifications */
+
+column_parens_opt : column_parens
+		|
+			{ $$ = NULL; }
+		;
+
+column_parens	: '(' column_list ')'
+			{ $$ = make_list ($2); }
+		;
+
+column_list	: column_name
+		| column_list ',' column_name
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+column_name     : simple_column_name
+		| symbol_table_alias_name '.' symbol_column_name
+			{ $$ = make_node (nod_field_name, (int) e_fln_count, 
+							$1, $3); }
+		| symbol_table_alias_name '.' '*'
+			{ $$ = make_node (nod_field_name, (int) e_fln_count, 
+							$1, NULL); }
+		;
+
+simple_column_name : symbol_column_name
+			{ $$ = make_node (nod_field_name, (int) e_fln_count,
+						NULL, $1); }
+		;
+
+
+/* boolean expressions */
+
+search_condition : predicate
+		| search_condition OR search_condition
+			{ $$ = make_node (nod_or, 2, $1, $3); }
+		| search_condition AND search_condition
+			{ $$ = make_node (nod_and, 2, $1, $3); }
+		| NOT search_condition
+			{ $$ = make_node (nod_not, 1, $2); }
+		;
+
+predicate	: comparison_predicate
+		| between_predicate
+		| like_predicate
+		| in_predicate
+		| null_predicate
+		| quantified_predicate
+		| exists_predicate
+		| containing_predicate
+		| starting_predicate
+		| unique_predicate
+		| '(' search_condition ')'
+			{ $$ = $2; }
+		;
+
+
+/* comparisons */
+
+comparison_predicate : value '=' value
+			{ $$ = make_node (nod_eql, 2, $1, $3); }
+		| value '<' value
+			{ $$ = make_node (nod_lss, 2, $1, $3); }
+		| value '>' value
+			{ $$ = make_node (nod_gtr, 2, $1, $3); }
+		| value GEQ value
+			{ $$ = make_node (nod_geq, 2, $1, $3); }
+		| value LEQ value
+			{ $$ = make_node (nod_leq, 2, $1, $3); }
+		| value NOT_GTR value
+			{ $$ = make_node (nod_leq, 2, $1, $3); }
+		| value NOT_LSS value
+			{ $$ = make_node (nod_geq, 2, $1, $3); }
+		| value NEQ value
+			{ $$ = make_node (nod_neq, 2, $1, $3); }
+		;
+
+
+/* quantified comparisons */
+
+quantified_predicate : value '=' ALL '(' column_select ')'
+		{ $$ = make_node (nod_eql_all, 2, $1, $5); }
+	| value '<' ALL '(' column_select ')'
+		{ $$ = make_node (nod_lss_all, 2, $1, $5); }
+	| value '>' ALL '(' column_select ')'
+		{ $$ = make_node (nod_gtr_all, 2, $1, $5); }
+	| value GEQ ALL '(' column_select ')'
+		{ $$ = make_node (nod_geq_all, 2, $1, $5); }
+	| value LEQ ALL '(' column_select ')'
+		{ $$ = make_node (nod_leq_all, 2, $1, $5); }
+	| value NOT_GTR ALL '(' column_select ')'
+		{ $$ = make_node (nod_leq_all, 2, $1, $5); }
+	| value NOT_LSS ALL '(' column_select ')'
+		{ $$ = make_node (nod_geq_all, 2, $1, $5); }
+	| value NEQ ALL '(' column_select ')'
+		{ $$ = make_node (nod_neq_all, 2, $1, $5); }
+	| value '=' some '(' column_select ')'
+		{ $$ = make_node (nod_eql_any, 2, $1, $5); }
+	| value '<' some '(' column_select ')'
+		{ $$ = make_node (nod_lss_any, 2, $1, $5); }
+	| value '>' some '(' column_select ')'
+		{ $$ = make_node (nod_gtr_any, 2, $1, $5); }
+	| value GEQ some '(' column_select ')'
+		{ $$ = make_node (nod_geq_any, 2, $1, $5); }
+	| value LEQ some '(' column_select ')'
+		{ $$ = make_node (nod_leq_any, 2, $1, $5); }
+	| value NOT_GTR some '(' column_select ')'
+		{ $$ = make_node (nod_leq_any, 2, $1, $5); }
+	| value NOT_LSS some '(' column_select ')'
+		{ $$ = make_node (nod_geq_any, 2, $1, $5); }
+	| value NEQ some '(' column_select ')'
+		{ $$ = make_node (nod_neq_any, 2, $1, $5); }
+	;
+
+some		: SOME
+		| ANY
+		;
+
+
+/* other predicates */
+
+between_predicate : value BETWEEN value AND value
+		{ $$ = make_node (nod_between, 3, $1, $3, $5); }
+	| value NOT BETWEEN value AND value
+		{ $$ = make_node (nod_not, 1, make_node (nod_between, 
+						3, $1, $4, $6)); }
+		;
+
+like_predicate	: value LIKE value
+		{ $$ = make_node (nod_like, 2, $1, $3); }
+	| value NOT LIKE value
+		{ $$ = make_node (nod_not, 1, make_node (nod_like, 2, $1, $4)); }
+	| value LIKE value ESCAPE value
+		{ $$ = make_node (nod_like, 3, $1, $3, $5); }
+	| value NOT LIKE value ESCAPE value
+		{ $$ = make_node (nod_not, 1, make_node (nod_like, 
+						3, $1, $4, $6)); }
+		;
+
+in_predicate	: value IN scalar_set
+		{ $$ = make_node (nod_eql_any, 2, $1, $3); }
+	| value NOT IN scalar_set
+		{ $$ = make_node (nod_not, 1, make_node (nod_eql_any, 2, $1, $4)); }
+		;
+
+containing_predicate	: value CONTAINING value
+		{ $$ = make_node (nod_containing, 2, $1, $3); }
+	| value NOT CONTAINING value
+		{ $$ = make_node (nod_not, 1, make_node (nod_containing, 2, $1, $4)); }
+		;
+
+starting_predicate	: value STARTING value
+		{ $$ = make_node (nod_starting, 2, $1, $3); }
+	| value NOT STARTING value
+		{ $$ = make_node (nod_not, 1, make_node (nod_starting, 2, $1, $4)); }
+	| value STARTING WITH value
+		{ $$ = make_node (nod_starting, 2, $1, $4); }
+	| value NOT STARTING WITH value
+		{ $$ = make_node (nod_not, 1, make_node (nod_starting, 2, $1, $5)); }
+		;
+
+exists_predicate : EXISTS '(' select_expr ')'
+		{ $$ = make_node (nod_exists, 1, $3); }
+		;
+
+unique_predicate : SINGULAR '(' select_expr ')'
+		{ $$ = make_node (nod_singular, 1, $3); }
+		;
+
+null_predicate	: value IS KW_NULL
+		{ $$ = make_node (nod_missing, 1, $1); }
+	| value IS NOT KW_NULL
+		{ $$ = make_node (nod_not, 1, make_node (nod_missing, 1, $1)); }
+	;
+
+
+/* set values */
+
+scalar_set	: '(' constant_list ')'
+			{ $$ = make_list ($2); }
+		| '(' column_select ')'
+			{ $$ = $2; }
+		;
+
+column_select	: SELECT distinct_clause
+			value 
+			from_clause 
+			where_clause 
+			group_clause
+			having_clause
+			plan_clause
+		    { $$ = make_node (nod_select_expr, e_sel_count, 
+				$2, make_list ($3), $4, $5, $6, $7, $8, NULL); }
+		;
+
+column_singleton : SELECT distinct_clause
+			value 
+			from_clause 
+			where_clause 
+			group_clause
+			having_clause
+			plan_clause
+		    { $$ = make_node (nod_select_expr, e_sel_count, 
+		 		$2, make_list ($3), $4, $5, $6, $7, $8, 
+				MAKE_constant ((STR) 1, CONSTANT_SLONG)); }
+		;
+
+
+/* value types */
+
+value		: column_name
+		| array_element
+		| function
+		| u_constant
+		| parameter
+		| variable
+		| udf
+		| '-' value
+			{ $$ = make_node (nod_negate, 1, $2); }
+                | '+' value
+                        { $$ = $2; }
+		| value '+' value
+			{ 
+			  if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+			      $$ = make_node (nod_add2, 2, $1, $3);
+			  else
+			      $$ = make_node (nod_add, 2, $1, $3);
+			}
+		| value CONCATENATE value
+			{ $$ = make_node (nod_concatenate, 2, $1, $3); }
+		| value COLLATE symbol_collation_name
+			{ $$ = make_node (nod_collate, e_coll_count, (NOD) $3, $1); }
+		| value '-' value
+			{ 
+			  if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+			      $$ = make_node (nod_subtract2, 2, $1, $3);
+			  else 
+			      $$ = make_node (nod_subtract, 2, $1, $3);
+			}
+		| value '*' value
+			{ 
+			  if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+			       $$ = make_node (nod_multiply2, 2, $1, $3);
+			  else
+			       $$ = make_node (nod_multiply, 2, $1, $3);
+			}
+		| value '/' value
+			{
+			  if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+			      $$ = make_node (nod_divide2, 2, $1, $3);
+			  else
+			      $$ = make_node (nod_divide, 2, $1, $3);
+			}
+		| '(' value ')'
+			{ $$ = $2; }
+		| '(' column_singleton ')'
+			{ $$ = $2; }
+		| USER
+			{ $$ = make_node (nod_user_name, 0, NULL); }
+		| DB_KEY
+			{ $$ = make_node (nod_dbkey, 1, NULL); }
+		| symbol_table_alias_name '.' DB_KEY
+			{ $$ = make_node (nod_dbkey, 1, $1); }
+                | KW_VALUE
+                        { 
+			  $$ = make_node (nod_dom_value, 0, NULL);
+                        }
+		| datetime_value_expression
+			{ $$ = $1; }
+		;
+
+datetime_value_expression : CURRENT_DATE
+			{ 
+			if (client_dialect < SQL_DIALECT_V6_TRANSITION)
+			    ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104, 
+				    gds_arg_gds, isc_sql_dialect_datatype_unsupport,
+				    gds_arg_number, client_dialect,
+				    gds_arg_string, "DATE",
+				    0);
+			if (db_dialect < SQL_DIALECT_V6_TRANSITION)
+			    ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104, 
+				    gds_arg_gds, isc_sql_db_dialect_dtype_unsupport,
+				    gds_arg_number, db_dialect,
+				    gds_arg_string, "DATE",
+				    0);
+			$$ = make_node (nod_current_date, 0, NULL);
+			}
+		| CURRENT_TIME
+			{ 
+			if (client_dialect < SQL_DIALECT_V6_TRANSITION)
+			    ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104, 
+				    gds_arg_gds, isc_sql_dialect_datatype_unsupport,
+				    gds_arg_number, client_dialect,
+				    gds_arg_string, "TIME",
+				    0);
+			if (db_dialect < SQL_DIALECT_V6_TRANSITION)
+			    ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104, 
+				    gds_arg_gds, isc_sql_db_dialect_dtype_unsupport,
+				    gds_arg_number, db_dialect,
+				    gds_arg_string, "TIME",
+				    0);
+			$$ = make_node (nod_current_time, 0, NULL);
+			}
+		| CURRENT_TIMESTAMP
+			{ $$ = make_node (nod_current_timestamp, 0, NULL); }
+		;
+
+array_element   : column_name '[' value_list ']'
+			{ $$ = make_node (nod_array, 2, $1, make_list ($3)); }
+		;
+
+value_list	: value
+		| value_list ',' value
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+constant	: u_constant
+		| '-' u_numeric_constant
+			{ $$ = make_node (nod_negate, 1, $2); }
+		;
+
+u_numeric_constant : NUMERIC
+			{ $$ = MAKE_constant ((STR) $1, CONSTANT_STRING); }
+		| NUMBER
+			{ $$ = MAKE_constant ((STR) $1, CONSTANT_SLONG); }
+		| FLOAT
+			{ $$ = MAKE_constant ((STR) $1, CONSTANT_DOUBLE); }
+		| NUMBER64BIT
+			{ $$ = MAKE_constant ((STR) $1, CONSTANT_SINT64); }
+		| SCALEDINT
+			{ $$ = MAKE_constant ((STR) $1, CONSTANT_SINT64); }
+		;
+
+u_constant	: u_numeric_constant
+		| sql_string
+			{ $$ = MAKE_str_constant ((STR) $1, att_charset); }
+		| DATE STRING
+			{ 
+			if (client_dialect < SQL_DIALECT_V6_TRANSITION)
+			    ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104, 
+				    gds_arg_gds, isc_sql_dialect_datatype_unsupport,
+				    gds_arg_number, client_dialect,
+				    gds_arg_string, "DATE",
+				    0);
+			if (db_dialect < SQL_DIALECT_V6_TRANSITION)
+			    ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104, 
+				    gds_arg_gds, isc_sql_db_dialect_dtype_unsupport,
+				    gds_arg_number, db_dialect,
+				    gds_arg_string, "DATE",
+				    0);
+			$$ = MAKE_constant ((STR) $2, CONSTANT_DATE);
+			}
+		| TIME STRING
+			{
+			if (client_dialect < SQL_DIALECT_V6_TRANSITION)
+			    ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104, 
+				    gds_arg_gds, isc_sql_dialect_datatype_unsupport,
+				    gds_arg_number, client_dialect,
+				    gds_arg_string, "TIME",
+				    0);
+			if (db_dialect < SQL_DIALECT_V6_TRANSITION)
+			    ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104, 
+				    gds_arg_gds, isc_sql_db_dialect_dtype_unsupport,
+				    gds_arg_number, db_dialect,
+				    gds_arg_string, "TIME",
+				    0);
+			$$ = MAKE_constant ((STR) $2, CONSTANT_TIME); 
+			}
+		| TIMESTAMP STRING
+			{ $$ = MAKE_constant ((STR) $2, CONSTANT_TIMESTAMP); }
+		;
+
+
+constant_list	: constant
+		| parameter
+		| current_user
+		| constant_list ',' constant
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		| constant_list ',' parameter
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		| constant_list ',' current_user
+			{ $$ = make_node (nod_list, 2, $1, $3); }
+		;
+
+parameter	: '?'
+			{ $$ = make_node (nod_parameter, 0, NULL); }
+		;
+
+current_user	: USER
+			{ $$ = make_node (nod_user_name, 0, NULL); }
+		;
+
+sql_string	: STRING			/* string in current charset */
+			{ $$ = $1; }
+		| INTRODUCER STRING		/* string in specific charset */
+			{ ((STR) $2)->str_charset = (TEXT *) $1;
+			  $$ = $2; }
+		;
+
+signed_short_integer	:	nonneg_short_integer
+		| '-' neg_short_integer
+			{ $$ = (NOD) - (SLONG) $2; }
+		;
+
+nonneg_short_integer	: NUMBER
+			{ if ((SLONG) $1 > SHRT_POS_MAX)
+			    yyabandon (-842, isc_expec_short);
+				/* Short integer expected */
+			  $$ = $1;}
+		;
+
+neg_short_integer : NUMBER
+			{ if ((SLONG) $1 > SHRT_NEG_MAX)
+			    yyabandon (-842, isc_expec_short);
+				/* Short integer expected */
+			  $$ = $1;}
+		;
+
+pos_short_integer : nonneg_short_integer
+			{ if ((SLONG) $1 == 0)
+			    yyabandon (-842, isc_expec_positive);
+				/* Positive number expected */
+			  $$ = $1;}
+		;
+
+unsigned_short_integer : NUMBER
+			{ if ((SLONG) $1 > SHRT_UNSIGNED_MAX)
+			    yyabandon (-842, isc_expec_ushort);
+				/* Unsigned short integer expected */
+			  $$ = $1;}
+		;
+
+signed_long_integer	:	long_integer
+		| '-' long_integer
+			{ $$ = (NOD) - (SLONG) $2; }
+		;
+
+long_integer	: NUMBER
+			{ $$ = $1;}
+		;
+	
+function	: COUNT '(' '*' ')'
+			{ $$ = make_node (nod_agg_count, 0, NULL); }
+		| COUNT '(' all_noise value ')'
+			{ $$ = make_node (nod_agg_count, 1, $4); }
+		| COUNT '(' DISTINCT value ')'
+			{ $$ = make_flag_node (nod_agg_count,
+                                       NOD_AGG_DISTINCT, 1, $4); }
+		| SUM '(' all_noise value ')'
+			{ 
+			  if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+			      $$ = make_node (nod_agg_total2, 1, $4);
+			  else
+			      $$ = make_node (nod_agg_total, 1, $4);
+			}
+		| SUM '(' DISTINCT value ')'
+			{ 
+			  if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+			      $$ = make_flag_node (nod_agg_total2,
+						   NOD_AGG_DISTINCT, 1, $4);
+			  else
+			      $$ = make_flag_node (nod_agg_total,
+						   NOD_AGG_DISTINCT, 1, $4);
+			}
+		| AVG '(' all_noise value ')'
+			{ 
+			  if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+			      $$ = make_node (nod_agg_average2, 1, $4);
+			  else
+			      $$ = make_node (nod_agg_average, 1, $4);
+			}
+		| AVG '(' DISTINCT value ')'
+			{ 
+			  if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+			      $$ = make_flag_node (nod_agg_average2,
+						   NOD_AGG_DISTINCT, 1, $4);
+			  else
+			      $$ = make_flag_node (nod_agg_average,
+						   NOD_AGG_DISTINCT, 1, $4);
+			}
+		| MINIMUM '(' all_noise value ')'
+			{ $$ = make_node (nod_agg_min, 1, $4); }
+		| MINIMUM '(' DISTINCT value ')'
+			{ $$ = make_node (nod_agg_min, 1, $4); }
+		| MAXIMUM '(' all_noise value ')'
+			{ $$ = make_node (nod_agg_max, 1, $4); }
+		| MAXIMUM '(' DISTINCT value ')'
+			{ $$ = make_node (nod_agg_max, 1, $4); }
+		| CAST '(' rhs AS data_type_descriptor ')'
+			{ $$ = make_node (nod_cast, e_cast_count, $5, $3); }
+		| KW_UPPER '(' value ')'
+			{ $$ = make_node (nod_upcase, 1, $3); }
+		| GEN_ID '(' symbol_generator_name ',' value ')'
+			{ 
+			  if (client_dialect >= SQL_DIALECT_V6_TRANSITION)
+			      $$ = make_node (nod_gen_id2, 2, $3, $5);
+			  else
+			      $$ = make_node (nod_gen_id, 2, $3, $5);
+			}
+		| EXTRACT '(' timestamp_part FROM value ')'
+			{ $$ = make_node (nod_extract, e_extract_count, $3, $5); }
+		;
+
+udf		: symbol_UDF_name '(' value_list ')'
+			{ $$ = make_node (nod_udf, 2, $1, $3); }
+		| symbol_UDF_name '(' ')'
+			{ $$ = make_node (nod_udf, 1, $1); }
+		;
+
+timestamp_part	: YEAR
+			{ $$ = MAKE_constant ((STR)blr_extract_year, CONSTANT_SLONG); };
+		| MONTH
+			{ $$ = MAKE_constant ((STR)blr_extract_month, CONSTANT_SLONG); };
+		| DAY
+			{ $$ = MAKE_constant ((STR)blr_extract_day, CONSTANT_SLONG); };
+		| HOUR
+			{ $$ = MAKE_constant ((STR)blr_extract_hour, CONSTANT_SLONG); };
+		| MINUTE
+			{ $$ = MAKE_constant ((STR)blr_extract_minute, CONSTANT_SLONG); };
+		| SECOND
+			{ $$ = MAKE_constant ((STR)blr_extract_second, CONSTANT_SLONG); };
+		| WEEKDAY
+			{ $$ = MAKE_constant ((STR)blr_extract_weekday, CONSTANT_SLONG); };
+		| YEARDAY
+			{ $$ = MAKE_constant ((STR)blr_extract_yearday, CONSTANT_SLONG); };
+		;
+
+all_noise	: ALL
+		|
+		;
+
+null_value	: KW_NULL
+			{ $$ = make_node (nod_null, 0, NULL); }
+		;
+
+
+
+/* Performs special mapping of keywords into symbols */
+
+symbol_UDF_name				: SYMBOL
+			;
+
+symbol_blob_subtype_name		: SYMBOL
+			;
+
+symbol_character_set_name		: SYMBOL
+			;
+
+symbol_collation_name			: SYMBOL
+			;
+
+symbol_column_name			: SYMBOL
+			;
+
+symbol_constraint_name			: SYMBOL
+			;
+
+symbol_cursor_name			: SYMBOL
+			;
+
+symbol_domain_name			: SYMBOL
+			;
+
+symbol_exception_name			: SYMBOL
+			;
+
+symbol_filter_name			: SYMBOL
+			;
+
+symbol_gdscode_name			: SYMBOL
+			;
+
+symbol_generator_name			: SYMBOL
+			;
+
+symbol_index_name			: SYMBOL
+			;
+
+symbol_item_alias_name			: SYMBOL
+			;
+
+symbol_procedure_name			: SYMBOL
+			;
+
+symbol_role_name			: SYMBOL
+			;
+
+symbol_table_alias_name			: SYMBOL
+			;
+
+symbol_table_name			: SYMBOL
+			;
+
+symbol_trigger_name			: SYMBOL
+			;
+
+symbol_user_name			: SYMBOL
+			;
+
+symbol_variable_name			: SYMBOL
+			;
+
+symbol_view_name			: SYMBOL
+			;
+
+%%
+
+
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		lex.c
+ *	DESCRIPTION:	Lexical routine
+ *
+ */
+
+#include "../dsql/chars.h"
+
+#define MAX_TOKEN_LEN   256
+#define CHECK_BOUND(to)\
+    {\
+    if ((to - string) >= MAX_TOKEN_LEN)        \
+	yyabandon (-104, isc_token_too_long); \
+    }
+#define CHECK_COPY_INCR(to,ch){CHECK_BOUND(to); *to++=ch;}
+
+
+static TEXT	*lex_position (void);
+static BOOLEAN	long_int (NOD, SLONG *);
+static FLD	make_field (NOD);
+static FIL	make_file (void);
+static NOD	make_list (NOD);
+static NOD	make_node (NOD_TYPE, int, ...);
+static NOD	make_flag_node (NOD_TYPE, SSHORT, int, ...);
+static BOOLEAN	short_int (NOD, SLONG *, SSHORT);
+static void	stack_nodes (NOD, LLS *);
+static int	yylex (USHORT, USHORT, USHORT, BOOLEAN *);
+static void	yyerror (TEXT *);
+static void	yyabandon (SSHORT, STATUS);
+#ifndef WINDOWS_ONLY
+static void	check_log_file_attrs (void);
+#endif
+
+static TEXT	*ptr, *end, *last_token, *line_start;
+static SSHORT	lines, att_charset;
+
+typedef struct tok {
+    USHORT	tok_ident;
+    CONST SCHAR	*tok_string;
+    CONST USHORT tok_version;
+} TOK;
+
+static CONST TOK tokens [] = {
+#include "../dsql/keywords.h"
+    0, 0, 0
+    };
+
+
+void LEX_dsql_init (void)
+{
+/**************************************
+ *
+ *	L E X _ d s q l _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize LEX for processing.  This is called only once
+ *	per session.
+ *
+ **************************************/
+CONST TOK	*token;
+
+for (token = tokens; token->tok_string; ++token)
+    {
+    SYM         symbol;
+    STR         str;
+
+    symbol = (SYM) ALLOCPV (type_sym, 0);
+    symbol->sym_string = (TEXT *) token->tok_string;
+    symbol->sym_length = strlen (token->tok_string);
+    symbol->sym_type = SYM_keyword;
+    symbol->sym_keyword = token->tok_ident;
+    symbol->sym_version = token->tok_version;
+    str = (STR) ALLOCPV (type_str, symbol->sym_length);
+    str->str_length = symbol->sym_length;
+    strncpy (str->str_data, symbol->sym_string, symbol->sym_length);
+    symbol->sym_object = (void *) str;
+    HSHD_insert (symbol);
+    }
+
+}
+
+
+void LEX_string (
+    TEXT	*string,
+    USHORT	length,
+    SSHORT	character_set)
+{
+/**************************************
+ *
+ *	L E X _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize LEX to process a string.
+ *
+ **************************************/
+
+line_start = ptr = string;
+end = string + length;
+lines = 1;
+att_charset = character_set;
+}
+
+
+#ifndef WINDOWS_ONLY
+static void check_log_file_attrs (void)
+{
+/**********************************************
+ *
+ *	c h e c k _ l o g _ f i l e _ a t t r s
+ *
+ **********************************************
+ *
+ * Functional description
+ *	Check if log file attributes are valid
+ *
+ *********************************************/
+
+if (file->fil_partitions)
+    {
+    if (!file->fil_length)
+	{
+	yyabandon (-261, isc_log_length_spec);
+	/* Total length of a partitioned log must be specified */
+	}
+
+    if (PARTITION_SIZE (OneK*file->fil_length,file->fil_partitions) <
+	(OneK*MIN_LOG_LENGTH))
+	{
+	yyabandon (-239, isc_partition_too_small);
+	    /* Log partition size too small */
+	}
+    }
+else
+    {
+    if ((file->fil_length) && (file->fil_length < MIN_LOG_LENGTH))
+	{
+	yyabandon (-239, isc_log_too_small);   /* Log size too small */
+	}
+    }     
+}
+#endif
+
+
+static TEXT *lex_position (void)
+{
+/**************************************
+ *
+ *	l e x _ p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return the current position of LEX 
+ *	in the input string.
+ *
+ **************************************/
+
+return ptr;
+}
+
+
+static BOOLEAN long_int (
+    NOD		string,
+    SLONG	*long_value)
+{
+/*************************************
+ *
+ *	l o n g _ i n t
+ * 
+ *************************************
+ *
+ * Functional description
+ *	checks for all digits in the
+ *	number and return an atol().
+ *
+ *************************************/
+UCHAR	*p;
+
+for (p = ((STR) string)->str_data; classes [*p] & CHR_DIGIT; p++)
+    if (!(classes [*p] & CHR_DIGIT))
+	return FALSE;
+
+*long_value = atol ((char *)((STR) string)->str_data);
+
+return TRUE;
+}
+
+
+static FLD make_field (
+    NOD		field_name)
+{
+/**************************************
+ *
+ *	m a k e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a field block of given name.
+ *
+ **************************************/
+FLD	field;
+STR	string;
+TSQL    tdsql;
+
+tdsql = GET_THREAD_DATA;
+       
+if (field_name == NULL)
+   {
+    field = (FLD) ALLOCDV (type_fld, sizeof (INTERNAL_FIELD_NAME));
+    strcpy (field->fld_name, (TEXT*) INTERNAL_FIELD_NAME);
+    return field;
+   }
+string = (STR) field_name->nod_arg [1];
+field = (FLD) ALLOCDV (type_fld, strlen ((SCHAR*) string->str_data));
+strcpy (field->fld_name, (TEXT*) string->str_data);
+
+return field;
+}
+
+
+static FIL make_file (void)
+{
+/**************************************
+ *
+ *	m a k e _ f i l e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a file block
+ *
+ **************************************/
+FIL	temp_file;
+TSQL    tdsql;
+
+tdsql = GET_THREAD_DATA;
+       
+temp_file = (FIL) ALLOCD (type_fil);
+
+return temp_file;
+}
+
+
+static NOD make_list (
+    NOD		node)
+{
+/**************************************
+ *
+ *	m a k e _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Collapse nested list nodes into single list.
+ *
+ **************************************/
+NOD	*ptr;
+LLS	stack, temp;
+USHORT	l;
+NOD	old;
+TSQL    tdsql;
+
+tdsql = GET_THREAD_DATA;
+
+if (!node)
+    return node;
+
+stack = 0;
+stack_nodes (node, &stack);
+for (l = 0, temp = stack; temp; temp = temp->lls_next)
+    l++;
+
+old  = node;
+node = (NOD) ALLOCDV (type_nod, l);
+node->nod_count = l;
+node->nod_type  = nod_list;
+node->nod_flags = old->nod_flags;
+ptr = node->nod_arg + node->nod_count;
+
+while (stack)
+    *--ptr = (NOD) LLS_POP (&stack);
+
+return node;
+}
+
+
+static NOD make_node (
+    NOD_TYPE	type,
+    int		count,
+    ...)
+{
+/**************************************
+ *
+ *	m a k e _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a node of given type.
+ *	Any change should also be made to function below
+ *
+ **************************************/
+NOD	node, *p;
+va_list	ptr;
+TSQL    tdsql;
+
+tdsql = GET_THREAD_DATA;
+
+node = (NOD) ALLOCDV (type_nod, count);
+node->nod_type = type;
+node->nod_count = count;
+p = node->nod_arg;
+VA_START (ptr, count);
+
+while (--count >= 0)
+    *p++ = va_arg (ptr, NOD);
+
+return node;
+}
+
+
+static NOD make_flag_node (
+    NOD_TYPE	type,
+    SSHORT	flag,
+    int		count,
+    ...)
+{
+/**************************************
+ *
+ *	m a k e _ f l a g _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a node of given type. Set flag field
+ *
+ **************************************/
+NOD	node, *p;
+va_list	ptr;
+TSQL    tdsql;
+
+tdsql = GET_THREAD_DATA;
+
+node = (NOD) ALLOCDV (type_nod, count);
+node->nod_type = type;
+node->nod_flags = flag;
+node->nod_count = count;
+p = node->nod_arg;
+VA_START (ptr, count);
+
+while (--count >= 0)
+    *p++ = va_arg (ptr, NOD);
+
+return node;
+}
+
+
+static BOOLEAN short_int (
+    NOD		string,
+    SLONG	*long_value,
+    SSHORT	range)
+{
+/*************************************
+ *
+ *	s h o r t _ i n t
+ * 
+ *************************************
+ *
+ * Functional description
+ *	is the string a valid representation 
+ *	of a positive short int?
+ *
+ *************************************/
+UCHAR	*p;
+SCHAR	buf [10];    
+BOOLEAN return_value;
+
+if (((STR) string)->str_length > 5)
+    return FALSE;
+
+for (p = ((STR) string)->str_data; classes [*p] & CHR_DIGIT; p++)
+    if (!(classes [*p] & CHR_DIGIT))
+	return FALSE;
+
+/* there are 5 or fewer digits, it's value may still be greater
+ * than 32767... */
+
+buf [0] = ((STR) string)->str_data[0];
+buf [1] = ((STR) string)->str_data[1];
+buf [2] = ((STR) string)->str_data[2];
+buf [3] = ((STR) string)->str_data[3];
+buf [4] = ((STR) string)->str_data[4];
+buf [5] = '\0';
+
+*long_value = atoi (buf);
+
+switch (range) 
+    {
+    case POSITIVE:
+        return_value = *long_value > SHRT_POS_MAX;		
+	break;
+    case NEGATIVE:
+	return_value = *long_value > SHRT_NEG_MAX;
+	break;
+    case UNSIGNED:
+	return_value = *long_value > SHRT_UNSIGNED_MAX;		
+	break;
+    }
+return !return_value;
+}
+
+
+static void stack_nodes (
+    NOD		node,
+    LLS		*stack)
+{
+/**************************************
+ *
+ *	s t a c k _ n o d e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Assist in turning a tree of misc nodes into a clean list.
+ *
+ **************************************/
+NOD	*ptr, *end;
+NOD     curr_node, next_node, start_chain, end_chain, save_link;
+
+if (node->nod_type != nod_list)
+    {
+    LLS_PUSH (node, stack);
+    return;
+    }
+
+/* To take care of cases where long lists of nodes are in a chain
+   of list nodes with exactly one entry, this algorithm will look
+   for a pattern of repeated list nodes with two entries, the first
+   being a list node and the second being a non-list node.   Such
+   a list will be reverse linked, and then re-reversed, stacking the
+   non-list nodes in the process.   The purpose of this is to avoid
+   massive recursion of this function. */
+
+start_chain = node;
+end_chain = (NOD) NULL;
+curr_node = node;
+next_node = node->nod_arg[0];
+while ( curr_node->nod_count == 2 &&
+        curr_node->nod_arg[0]->nod_type == nod_list &&
+        curr_node->nod_arg[1]->nod_type != nod_list &&
+        next_node->nod_arg[0]->nod_type == nod_list &&
+        next_node->nod_arg[1]->nod_type != nod_list)
+    {
+
+    /* pattern was found so reverse the links and go to next node */
+
+    save_link = next_node->nod_arg[0];
+    next_node->nod_arg[0] = curr_node;
+    curr_node = next_node;
+    next_node = save_link;
+    end_chain = curr_node;
+    }
+
+/* see if any chain was found */
+
+if ( end_chain)
+    {
+
+    /* first, handle the rest of the nodes */
+    /* note that next_node still points to the first non-pattern node */
+
+    stack_nodes( next_node, stack);
+
+    /* stack the non-list nodes and reverse the chain on the way back */
+    
+    curr_node = end_chain;
+    while ( TRUE)
+        {
+        LLS_PUSH( curr_node->nod_arg[1], stack);
+        if ( curr_node == start_chain)
+            break;
+        save_link = curr_node->nod_arg[0];
+        curr_node->nod_arg[0] = next_node;
+        next_node = curr_node;
+        curr_node = save_link;
+        }
+    return;
+    }
+
+for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end; ptr++)
+    stack_nodes (*ptr, stack);
+}
+
+
+static int yylex (
+    USHORT	client_dialect,
+    USHORT	db_dialect,
+    USHORT	parser_version,
+    BOOLEAN	*stmt_ambiguous)
+{
+/**************************************
+ *
+ *	y y l e x
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+UCHAR	*p, class, string [MAX_TOKEN_LEN], *buffer, *buffer_end, *new_buffer;
+SYM	sym;
+SSHORT	c;
+USHORT	buffer_len;
+
+STR	delimited_id_str;
+
+/* Find end of white space and skip comments */
+
+for (;;)
+    {
+    if (ptr >= end)
+	return -1;
+    
+    c = *ptr++;
+
+    if (c == '\n')
+	{
+	lines++;
+	line_start = ptr + 1;
+	}
+
+    if ((c == '/') && (*ptr == '*'))
+	{
+	ptr++;
+	while (ptr < end)
+	    {
+	    if ((c = *ptr++) == '*')
+		{
+		if (*ptr == '/')
+		    break;
+		}
+	    if (c == '\n')
+		{
+		lines++;
+		line_start = ptr + 1;
+		}
+	    }
+	if (ptr >= end)
+	    return -1;
+	ptr++;
+	continue;
+	}
+
+#if (! ( defined JPN_SJIS || defined JPN_EUC) )
+    class = classes [c];
+#else
+    c = c & 0xff;
+    class = (JPN1_CHAR(c) ? CHR_LETTER : classes[c]);
+#endif /*JPN_SJIS || JPN_EUC */
+
+    if (!(class & CHR_WHITE))
+	break;
+    }
+
+/* Depending on class of token, parse token */
+
+last_token = ptr - 1;
+
+if (class & CHR_INTRODUCER)
+    {
+    /* The Introducer (_) is skipped, all other idents are copied
+     * to become the name of the character set
+     */
+    p = string;
+    for (; ptr < end && classes [*ptr] & CHR_IDENT; ptr++)
+	{
+	if (ptr >= end)
+	    return -1;
+	CHECK_COPY_INCR(p, UPPER7(*ptr));
+	}
+    
+    CHECK_BOUND(p);
+    *p = 0;
+
+    /* make a string value to hold the name, the name 
+     * is resolved in pass1_constant */
+
+    yylval = (NOD) (MAKE_string (string, p - string))->str_data;
+
+    return INTRODUCER;
+    }
+
+/* parse a quoted string, being sure to look for double quotes */
+
+if (class & CHR_QUOTE)
+    {
+    buffer = string;
+    buffer_len = sizeof (string);
+    buffer_end = buffer + buffer_len - 1;
+    for (p = buffer; ; p++)
+	{
+	if (ptr >= end)
+	    {
+	    if (buffer != string)
+       		gds__free (buffer);
+	    return -1;
+	    }
+	/* *ptr is quote - if next != quote we're at the end */
+	if ((*ptr == c) && ((++ptr == end) || (*ptr != c)))
+	    break;
+        if (p > buffer_end)
+	    {
+	    new_buffer = (UCHAR *) gds__alloc (2 * buffer_len);
+	    /* FREE: at outer block */
+	    if (!new_buffer)		/* NOMEM: */
+		{
+		if (buffer != string)
+		    gds__free (buffer);
+		return -1;
+		}
+            memcpy (new_buffer, buffer, buffer_len);
+	    if (buffer != string)
+        	gds__free (buffer);
+	    buffer = new_buffer;
+	    p = buffer + buffer_len;
+	    buffer_len = 2 * buffer_len;
+	    buffer_end = buffer + buffer_len - 1;
+	    }
+	*p = *ptr++;
+	}
+    if (c == '"')
+	{
+	*stmt_ambiguous = TRUE; /* string delimited by double quotes could be
+				**   either a string constant or a SQL delimited
+				**   identifier, therefore marks the SQL
+				**   statement as ambiguous  */
+	if (client_dialect == SQL_DIALECT_V6_TRANSITION)
+	    {
+	    if (buffer != string)
+		gds__free (buffer);
+	    yyabandon (-104, isc_invalid_string_constant);
+	    }
+	else if (client_dialect >= SQL_DIALECT_V6)
+	    {
+	    if ((p - buffer) >= MAX_TOKEN_LEN)
+		{
+		if (buffer != string)
+		    gds__free (buffer);
+		yyabandon (-104, isc_token_too_long);
+		}
+	    yylval = (NOD) MAKE_string (buffer, p - buffer);
+	    delimited_id_str = (STR) yylval;
+	    delimited_id_str->str_flags |= STR_delimited_id;
+	    if (buffer != string)
+		gds__free (buffer);
+	    return SYMBOL;
+	    }
+	}
+    yylval = (NOD) MAKE_string (buffer, p - buffer);
+    if (buffer != string)
+	gds__free (buffer);
+    return STRING;
+    }
+                                                 
+/* 
+ * Check for a numeric constant, which starts either with a digit or with
+ * a decimal point followed by a digit.
+ * 
+ * This code recognizes the following token types:
+ * 
+ * NUMBER: string of digits which fits into a 32-bit integer
+ * 
+ * NUMBER64BIT: string of digits whose value might fit into an SINT64,
+ *   depending on whether or not there is a preceding '-', which is to
+ *   say that "9223372036854775808" is accepted here.
+ *
+ * SCALEDINT: string of digits and a single '.', where the digits
+ *   represent a value which might fit into an SINT64, depending on
+ *   whether or not there is a preceding '-'.
+ *
+ * FLOAT: string of digits with an optional '.', and followed by an "e"
+ *   or "E" and an optionally-signed exponent.
+ *
+ * NOTE: we swallow leading or trailing blanks, but we do NOT accept
+ *   embedded blanks:
+ *
+ * Another note: c is the first character which need to be considered,
+ *   ptr points to the next character.
+ */
+
+assert(ptr <= end);
+
+if ((class & CHR_DIGIT) ||
+    ((c == '.') && (ptr < end) && (classes [*ptr] & CHR_DIGIT)))
+    {
+    /* The following variables are used to recognize kinds of numbers. */
+
+    BOOLEAN have_error     = FALSE;	/* syntax error or value too large */
+    BOOLEAN have_digit     = FALSE;	/* we've seen a digit              */
+    BOOLEAN have_decimal   = FALSE;	/* we've seen a '.'                */
+    BOOLEAN have_exp       = FALSE;	/* digit ... [eE]                  */
+    BOOLEAN have_exp_sign  = FALSE; /* digit ... [eE] {+-]             */
+    BOOLEAN have_exp_digit = FALSE; /* digit ... [eE] ... digit        */
+    UINT64	number         = 0;
+    UINT64	limit_by_10    = MAX_SINT64 / 10;
+
+    for (--ptr ; ptr < end ; ptr++)
+      {
+	c = *ptr;
+	if (have_exp_digit && (! (classes [c]  & CHR_DIGIT)))
+	  /* First non-digit after exponent and digit terminates
+	     the token. */
+	    break;
+	else if (have_exp_sign && (! (classes [c]  & CHR_DIGIT)))
+	    {
+	    /* only digits can be accepted after "1E-" */
+	      have_error = TRUE;
+	      break;
+	    }
+	else if (have_exp)
+	    {
+	    /* We've seen e or E, but nothing beyond that. */
+	    if ( ('-' == c) || ('+' == c) )
+		have_exp_sign = TRUE;
+	    else if ( classes [c]  & CHR_DIGIT )
+		/* We have a digit: we haven't seen a sign yet,
+		   but it's too late now. */
+		have_exp_digit = have_exp_sign  = TRUE;
+	    else
+		{
+		/* end of the token */
+		have_error = TRUE;
+		break;
+		}
+	    }
+	else if ('.' == c)
+	    {
+	    if (!have_decimal)
+		have_decimal = TRUE;
+	    else
+		{
+		have_error = TRUE;
+		break;
+		}
+	    }
+	else if (classes [c] & CHR_DIGIT)
+	  {
+	    /* Before computing the next value, make sure there will be
+	       no overflow.  */
+
+	    have_digit = TRUE;
+
+	    if (number >= limit_by_10)
+		/* possibility of an overflow */
+		if ((number > limit_by_10) || (c > '8'))
+		    {
+		    have_error = TRUE;
+		    break;
+		    }
+	    number = number * 10 + (c - '0');
+	  }
+	else if ( (('E' == c) || ('e' == c)) && have_digit )
+	    have_exp = TRUE;
+	else
+	    /* Unexpected character: this is the end of the number. */
+	    break;
+      }
+
+    /* We're done scanning the characters: now return the right kind
+       of number token, if any fits the bill. */
+
+    if (!have_error)
+	{
+	assert(have_digit);
+
+	if (have_exp_digit)
+	    {
+	    yylval = (NOD) MAKE_string ((UCHAR *) last_token,
+					ptr - last_token);
+	    return FLOAT;
+	    }
+	else if (!have_exp)
+	    {
+
+	    /* We should return some kind (scaled-) integer type
+	       except perhaps in dialect 1. */
+
+	    if (!have_decimal && (number <= MAX_SLONG))
+		{
+		yylval = (NOD) number;
+		return NUMBER;
+		}
+	    else
+		{
+		/* We have either a decimal point with no exponent
+		   or a string of digits whose value exceeds MAX_SLONG:
+		   the returned type depends on the client dialect,
+		   so warn of the difference if the client dialect is
+		   SQL_DIALECT_V6_TRANSITION.
+		*/
+
+		if (SQL_DIALECT_V6_TRANSITION == client_dialect)
+		    {
+		    /* Issue a warning about the ambiguity of the numeric
+		     * numeric literal.  There are multiple calls because
+		     * the message text exceeds the 119-character limit
+		     * of our message database.
+		     */
+		    ERRD_post_warning( isc_dsql_warning_number_ambiguous,
+				       gds_arg_string,
+				       ERR_string( last_token,
+						   ptr - last_token ),
+				       gds_arg_end );
+		    ERRD_post_warning( isc_dsql_warning_number_ambiguous1,
+				       gds_arg_end );
+		    }
+
+		yylval = (NOD) MAKE_string ((UCHAR *) last_token,
+					    ptr - last_token);
+
+		if (client_dialect < SQL_DIALECT_V6_TRANSITION)
+		    return FLOAT;
+		else if (have_decimal)
+		    return SCALEDINT;
+		else
+		    return NUMBER64BIT;
+		}
+	    } /* else if (!have_exp) */
+	} /* if (!have_error) */
+
+    /* we got some kind of error or overflow, so don't recognize this
+     * as a number: just pass it through to the next part of the lexer.
+     */
+    }
+
+/* Restore the status quo ante, before we started our unsuccessful
+   attempt to recognize a number. */
+ptr = last_token;
+c   = *ptr++;
+/* We never touched class, so it doesn't need to be restored. */
+
+/* end of number-recognition code */
+
+
+if (class & CHR_LETTER)
+    {
+#if (! ( defined JPN_SJIS || defined JPN_EUC) )
+    p = string;
+    CHECK_COPY_INCR(p,UPPER (c));
+    for (; ptr < end && classes [*ptr] & CHR_IDENT; ptr++)
+        {
+	if (ptr >= end)
+	    return -1;
+	CHECK_COPY_INCR(p, UPPER (*ptr));
+        }
+#else
+    for (; ptr <= end ; c = *ptr++ , c = c & 0xff)
+        {
+        if (KANJI1(c))
+            {
+	    CHECK_COPY_INCR(p, UPPER (c));
+            if (ptr >= end) 
+		break; 
+            
+	    c = *ptr++;
+            c = c & 0xff;
+            if (!KANJI2(c))
+                {
+                ptr--;
+                break;
+                }
+            else
+		CHECK_COPY_INCR(p,c);
+            }
+	else
+            {
+#ifdef JPN_SJIS
+            if ((SJIS_SINGLE(c)) || (classes[c] & CHR_IDENT) )
+#else
+            if (classes[c] & CHR_IDENT)
+#endif 
+		{	
+		CHECK_COPY_INCR(p, UPPER(c));
+		if (ptr >= end)
+	    	    break;
+		}
+            else
+		{
+		ptr--;
+                break;
+		}
+            }
+        }
+#endif /* JPN_SJIS || JPN_EUC */
+
+    CHECK_BOUND(p);
+    *p = 0;
+    sym = HSHD_lookup (NULL_PTR, (TEXT *) string, (SSHORT)(p - string), SYM_keyword, parser_version);
+    if (sym)
+	{
+	yylval = (NOD) sym->sym_object;
+	return sym->sym_keyword;
+	};
+    yylval = (NOD) MAKE_string (string, p - string);
+    return SYMBOL;
+    }
+
+/* Must be punctuation -- test for double character punctuation */
+
+if (last_token + 1 < end)
+    {
+    sym = HSHD_lookup (NULL_PTR, last_token, (SSHORT) 2, SYM_keyword, (USHORT) parser_version);
+    if (sym)
+	{
+	++ptr;
+	return sym->sym_keyword;
+	}
+    }
+
+/* Single character punctuation are simply passed on */
+
+return c;
+}
+
+
+static void yyerror (
+    TEXT	*error_string)
+{
+/**************************************
+ *
+ *	y y e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a syntax error.
+ *
+ **************************************/
+
+if (yychar < 1)
+    ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104,
+	gds_arg_gds, gds__command_end_err,    /* Unexpected end of command */
+	0);
+else
+    {
+    ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) -104,
+ 	gds_arg_gds, gds__dsql_token_unk_err, 
+	gds_arg_number, (SLONG) lines, 
+	gds_arg_number, (SLONG) (last_token - line_start), 
+	    /* Token unknown - line %d, char %d */
+ 	gds_arg_gds, gds__random, 
+	gds_arg_cstring, (int) (ptr - last_token), last_token,
+ 	0);
+    }
+}
+
+
+static void yyabandon (
+    SSHORT      sql_code,
+    STATUS      error_symbol)
+{
+/**************************************
+ *
+ *	y y a b a n d o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abandon the parsing outputting the supplied string
+ *
+ **************************************/
+
+ERRD_post (gds__sqlerr, gds_arg_number, (SLONG) sql_code, 
+	gds_arg_gds, error_symbol, 0);
+}
diff --git a/src/dsql/parse_proto.h b/src/dsql/parse_proto.h
new file mode 100644
index 0000000000..1eaf36edbc
--- /dev/null
+++ b/src/dsql/parse_proto.h
@@ -0,0 +1,39 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		parse_proto.h
+ *	DESCRIPTION:	Prototype Header file for parse.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_PARSE_PROTO_H_
+#define _DSQL_PARSE_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int dsql_yyparse(USHORT, USHORT, USHORT, BOOLEAN *);
+extern void LEX_dsql_init(void);
+extern void LEX_string(TEXT *, USHORT, SSHORT);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /*  _DSQL_PARSE_PROTO_H_  */
diff --git a/src/dsql/pass1.cpp b/src/dsql/pass1.cpp
new file mode 100644
index 0000000000..7283eb85a7
--- /dev/null
+++ b/src/dsql/pass1.cpp
@@ -0,0 +1,4117 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		pass1.c
+ *	DESCRIPTION:	First-pass compiler for request trees.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/ib_stdio.h"
+#include "../include/jrd/gds.h"
+#include "../dsql/dsql.h"
+#include "../dsql/node.h"
+#include "../dsql/sym.h"
+#include "../jrd/codes.h"
+#include "../jrd/thd.h"
+#include "../jrd/intl.h"
+#include "../jrd/blr.h"
+#include "../dsql/alld_proto.h"
+#include "../dsql/ddl_proto.h"
+#include "../dsql/errd_proto.h"
+#include "../dsql/hsh_proto.h"
+#include "../dsql/make_proto.h"
+#include "../dsql/metd_proto.h"
+#include "../dsql/pass1_proto.h"
+#include "../jrd/dsc_proto.h"
+#include "../jrd/thd_proto.h"
+
+#ifdef DEV_BUILD
+#include "../dsql/dsql_proto.h"
+#endif
+
+ASSERT_FILENAME					/* Define things assert() needs */
+static BOOLEAN aggregate_found(REQ, NOD, NOD *);
+static BOOLEAN aggregate_found2(REQ, NOD, NOD *, BOOLEAN *);
+static void assign_fld_dtype_from_dsc(FLD, DSC *);
+static NOD compose(NOD, NOD, NOD_TYPE);
+static NOD copy_field(NOD, CTX);
+static NOD copy_fields(NOD, CTX);
+static void explode_asterisk(NOD, NOD, LLS *);
+static NOD explode_outputs(REQ, PRC);
+static void field_error(TEXT *, TEXT *);
+static PAR find_dbkey(REQ, NOD);
+static PAR find_record_version(REQ, NOD);
+static BOOLEAN invalid_reference(NOD, NOD);
+static void mark_ctx_outer_join(NOD);
+static BOOLEAN node_match(NOD, NOD);
+static NOD pass1_alias_list(REQ, NOD);
+static CTX pass1_alias(REQ, STR);
+static NOD pass1_any(REQ, NOD, NOD_TYPE);
+static DSQL_REL pass1_base_table(REQ, DSQL_REL, STR);
+static void pass1_blob(REQ, NOD);
+static NOD pass1_collate(REQ, NOD, STR);
+static NOD pass1_constant(REQ, NOD);
+static NOD pass1_cursor(REQ, NOD, NOD);
+static CTX pass1_cursor_context(REQ, NOD, NOD);
+static NOD pass1_dbkey(REQ, NOD);
+static NOD pass1_delete(REQ, NOD);
+static NOD pass1_field(REQ, NOD, USHORT);
+static NOD pass1_insert(REQ, NOD);
+static NOD pass1_relation(REQ, NOD);
+static NOD pass1_rse(REQ, NOD, NOD);
+static NOD pass1_sel_list(REQ, NOD);
+static NOD pass1_sort(REQ, NOD, NOD);
+static NOD pass1_udf(REQ, NOD, USHORT);
+static void pass1_udf_args(REQ, NOD, LLS *, USHORT);
+static NOD pass1_union(REQ, NOD, NOD);
+static NOD pass1_update(REQ, NOD);
+static NOD pass1_variable(REQ, NOD);
+static NOD post_map(NOD, CTX);
+static void remap_streams_to_parent_context(NOD, CTX);
+static FLD resolve_context(REQ, STR, STR, CTX);
+static BOOLEAN set_parameter_type(NOD, NOD, BOOLEAN);
+static void set_parameters_name(NOD, NOD);
+static void set_parameter_name(NOD, NOD, DSQL_REL);
+
+STR temp_collation_name = NULL;
+
+#define DB_KEY_STRING	"DB_KEY"	/* NTX: pseudo field name */
+#define MAX_MEMBER_LIST	1500	/* Maximum members in "IN" list.
+								   * For eg. SELECT * FROM T WHERE
+								   *         F IN (1, 2, 3, ...)
+								   *
+								   * Bug 10061, bsriram - 19-Apr-1999
+								 */
+
+
+
+CTX PASS1_make_context( REQ request, NOD relation_node)
+{
+/**************************************
+ *
+ *	P A S S 1 _ m a k e _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a context for a request.
+ *
+ **************************************/
+	CTX context, conflict;
+	STR relation_name, string;
+	DSQL_REL relation;
+	PRC procedure;
+	FLD field;
+	NOD *input;
+	LLS stack;
+	TEXT *conflict_name;
+	STATUS error_code;
+	struct nod desc_node;
+	TSQL tdsql;
+	USHORT count;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(relation_node, type_nod);
+
+	tdsql = GET_THREAD_DATA;
+
+	relation = NULL;
+	procedure = NULL;
+
+/* figure out whether this is a relation or a procedure
+   and give an error if it is neither */
+
+	if (relation_node->nod_type == nod_rel_proc_name)
+		relation_name = (STR) relation_node->nod_arg[e_rpn_name];
+	else
+		relation_name = (STR) relation_node->nod_arg[e_rln_name];
+
+	DEV_BLKCHK(relation_name, type_str);
+
+	if ((relation_node->nod_type == nod_rel_proc_name) &&
+		relation_node->nod_arg[e_rpn_inputs])
+	{
+		if (!(procedure = METD_get_procedure(request, relation_name)))
+		{
+			ERRD_post(	gds__sqlerr,
+						gds_arg_number,
+						(SLONG) - 204,
+						gds_arg_gds,
+						gds__dsql_procedure_err,
+						gds_arg_gds,
+						gds__random,
+						gds_arg_string,
+						relation_name->str_data,
+						0);
+		}
+	}
+	else
+	{
+		if (!(relation = METD_get_relation(request, relation_name)) &&
+			(relation_node->nod_type == nod_rel_proc_name))
+		{
+			procedure = METD_get_procedure(request, relation_name);
+		}
+		if (!relation && !procedure)
+		{
+			ERRD_post(	gds__sqlerr,
+						gds_arg_number,
+						(SLONG) - 204,
+						gds_arg_gds,
+						gds__dsql_relation_err,
+						gds_arg_gds,
+						gds__random,
+						gds_arg_string,
+						relation_name->str_data,
+						0);
+		}
+	}
+
+	if (procedure && !procedure->prc_out_count)
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 84,
+				  gds_arg_gds, gds__dsql_procedure_use_err,
+				  gds_arg_string, relation_name->str_data, 0);
+
+/* Set up context block */
+
+	context = (CTX) ALLOCD(type_ctx);
+	context->ctx_relation = relation;
+	context->ctx_procedure = procedure;
+	context->ctx_request = request;
+	context->ctx_context = request->req_context_number++;
+	context->ctx_scope_level = request->req_scope_level;
+
+/* find the context alias name, if it exists */
+
+	if (relation_node->nod_type == nod_rel_proc_name)
+		string = (STR) relation_node->nod_arg[e_rpn_alias];
+	else
+		string = (STR) relation_node->nod_arg[e_rln_alias];
+
+	DEV_BLKCHK(string, type_str);
+
+	if (string) {
+		context->ctx_alias = (TEXT *) string->str_data;
+
+		/* check to make sure the context is not already used at this same  
+		   query level (if there are no subqueries, this checks that the
+		   alias is not used twice in the request) */
+
+		for (stack = request->req_context; stack; stack = stack->lls_next) {
+			conflict = (CTX) stack->lls_object;
+			if (conflict->ctx_scope_level != context->ctx_scope_level)
+				continue;
+
+			if (conflict->ctx_alias) {
+				conflict_name = conflict->ctx_alias;
+				error_code = gds__alias_conflict_err;
+				/* alias %s conflicts with an alias in the same statement */
+			}
+			else if (conflict->ctx_procedure) {
+				conflict_name = conflict->ctx_procedure->prc_name;
+				error_code = gds__procedure_conflict_error;
+				/* alias %s conflicts with a procedure in the same statement */
+			}
+			else if (conflict->ctx_relation) {
+				conflict_name = conflict->ctx_relation->rel_name;
+				error_code = gds__relation_conflict_err;
+				/* alias %s conflicts with a relation in the same statement */
+			}
+			else
+				continue;
+
+			if (!strcmp(conflict_name, context->ctx_alias))
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 204,
+						  gds_arg_gds, error_code,
+						  gds_arg_string, conflict_name, 0);
+		}
+	}
+
+	if (procedure) {
+		if (request->req_scope_level == 1)
+			request->req_flags |= REQ_no_batch;
+
+		if (relation_node->nod_arg[e_rpn_inputs]) {
+			context->ctx_proc_inputs = PASS1_node(request,
+												  relation_node->
+												  nod_arg[e_rpn_inputs], 0);
+			count = context->ctx_proc_inputs->nod_count;
+		}
+		else
+			count = 0;
+
+		if (!(request->req_type & REQ_procedure)) {
+			if (count != procedure->prc_in_count)
+				ERRD_post(gds__prcmismat, gds_arg_string,
+						  relation_name->str_data, 0);
+
+			if (count) {
+				/* Initialize this stack variable, and make it look like a node */
+				memset((SCHAR *) & desc_node, 0, sizeof(desc_node));
+				desc_node.nod_header.blk_type = type_nod;
+				for (input = context->ctx_proc_inputs->nod_arg,
+					 field = procedure->prc_inputs;
+					 field; input++, field = field->fld_next) {
+					DEV_BLKCHK(field, type_fld);
+					DEV_BLKCHK(*input, type_nod);
+					MAKE_desc_from_field(&desc_node.nod_desc, field);
+					set_parameter_type(*input, &desc_node, FALSE);
+				}
+			}
+		}
+	}
+
+/* push the context onto the request context stack 
+   for matching fields against */
+
+	LLS_PUSH(context, &request->req_context);
+
+	return context;
+}
+
+
+NOD PASS1_node(REQ request, NOD input, USHORT proc_flag)
+{
+/**************************************
+ *
+ *	P A S S 1 _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a parsed request into something more interesting.
+ *
+ **************************************/
+	NOD node, temp, *ptr, *end, *ptr2, rse, sub1, sub2, sub3;
+	LLS base;
+	FLD field;
+	CTX agg_context;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+	if (input == NULL)
+		return NULL;
+
+/* Dispatch on node type.  Fall thru on easy ones */
+
+	switch (input->nod_type) {
+	case nod_alias:
+		node = MAKE_node(input->nod_type, e_alias_count);
+		node->nod_arg[e_alias_value] = sub1 =
+			PASS1_node(request, input->nod_arg[e_alias_value], proc_flag);
+		node->nod_arg[e_alias_alias] = input->nod_arg[e_alias_alias];
+		node->nod_desc = sub1->nod_desc;
+		return node;
+
+	case nod_cast:
+		node = MAKE_node(input->nod_type, e_cast_count);
+		node->nod_arg[e_cast_source] = sub1 =
+			PASS1_node(request, input->nod_arg[e_cast_source], proc_flag);
+		node->nod_arg[e_cast_target] = input->nod_arg[e_cast_target];
+		field = (FLD) node->nod_arg[e_cast_target];
+		DEV_BLKCHK(field, type_fld);
+		DDL_resolve_intl_type(request, field, NULL);
+		MAKE_desc_from_field(&node->nod_desc, field);
+		/* If the source is nullable, so is the target       */
+		MAKE_desc(&sub1->nod_desc, sub1);
+		if (sub1->nod_desc.dsc_flags & DSC_nullable)
+			node->nod_desc.dsc_flags |= DSC_nullable;
+		return node;
+
+
+	case nod_gen_id:
+	case nod_gen_id2:
+		node = MAKE_node(input->nod_type, e_gen_id_count);
+		node->nod_arg[e_gen_id_value] =
+			PASS1_node(request, input->nod_arg[e_gen_id_value], proc_flag);
+		node->nod_arg[e_gen_id_name] = input->nod_arg[e_gen_id_name];
+		return node;
+
+	case nod_collate:
+		temp_collation_name = (STR) input->nod_arg[e_coll_target];
+		sub1 = PASS1_node(request, input->nod_arg[e_coll_source], proc_flag);
+		temp_collation_name = NULL;
+		node =
+			pass1_collate(request, sub1, (STR) input->nod_arg[e_coll_target]);
+		return node;
+
+	case nod_extract:
+
+		/* Figure out the data type of the sub parameter, and make
+		   sure the requested type of information can be extracted */
+
+		sub1 = PASS1_node(request, input->nod_arg[e_extract_value], proc_flag);
+		MAKE_desc(&sub1->nod_desc, sub1);
+
+		switch (*(SLONG *)input->nod_arg[e_extract_part]->nod_desc.dsc_address)
+		{
+		case blr_extract_year:
+		case blr_extract_month:
+		case blr_extract_day:
+		case blr_extract_weekday:
+		case blr_extract_yearday:
+			if (sub1->nod_desc.dsc_dtype != dtype_sql_date &&
+				sub1->nod_desc.dsc_dtype != dtype_timestamp)
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 105,
+						  gds_arg_gds, gds__extract_input_mismatch, 0);
+			break;
+		case blr_extract_hour:
+		case blr_extract_minute:
+		case blr_extract_second:
+			if (sub1->nod_desc.dsc_dtype != dtype_sql_time &&
+				sub1->nod_desc.dsc_dtype != dtype_timestamp)
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 105,
+						  gds_arg_gds, gds__extract_input_mismatch, 0);
+			break;
+		default:
+			assert(FALSE);
+			break;
+		}
+		node = MAKE_node(input->nod_type, e_extract_count);
+		node->nod_arg[e_extract_part] = input->nod_arg[e_extract_part];
+		node->nod_arg[e_extract_value] = sub1;
+		if (sub1->nod_desc.dsc_flags & DSC_nullable) {
+			node->nod_desc.dsc_flags |= DSC_nullable;
+		}
+		return node;
+
+	case nod_delete:
+	case nod_insert:
+	case nod_order:
+	case nod_select:
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+				  gds_arg_gds, gds__dsql_command_err, 0);
+
+	case nod_select_expr:
+		if (proc_flag)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 206,
+					  gds_arg_gds, gds__dsql_subselect_err, 0);
+
+		base = request->req_context;
+		node = MAKE_node(nod_via, e_via_count);
+		node->nod_arg[e_via_rse] = rse = PASS1_rse(request, input, NULL);
+		node->nod_arg[e_via_value_1] = rse->nod_arg[e_rse_items]->nod_arg[0];
+		node->nod_arg[e_via_value_2] = MAKE_node(nod_null, (int) 0);
+
+		/* Finish off by cleaning up contexts */
+
+		while (request->req_context != base)
+			LLS_POP(&request->req_context);
+		return node;
+
+	case nod_exists:
+	case nod_singular:
+		base = request->req_context;
+		node = MAKE_node(input->nod_type, 1);
+		node->nod_arg[0] = PASS1_rse(request, input->nod_arg[0], NULL);
+
+		/* Finish off by cleaning up contexts */
+
+		while (request->req_context != base)
+			LLS_POP(&request->req_context);
+		return node;
+
+	case nod_field_name:
+		if (proc_flag)
+			return pass1_variable(request, input);
+		else
+			return pass1_field(request, input, 0);
+
+	case nod_array:
+		if (proc_flag)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+					  gds_arg_gds, gds__dsql_invalid_array, 0);
+		else
+			return pass1_field(request, input, 0);
+
+	case nod_variable:
+#pragma FB_COMPILER_MESSAGE("BUGBUG! Function returns uninitialized variable!")
+		return node;
+
+	case nod_var_name:
+		return pass1_variable(request, input);
+
+	case nod_dbkey:
+		return pass1_dbkey(request, input);
+
+	case nod_relation_name:
+	case nod_rel_proc_name:
+		return pass1_relation(request, input);
+
+	case nod_constant:
+		return pass1_constant(request, input);
+
+	case nod_parameter:
+		if (proc_flag)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+					  gds_arg_gds, gds__dsql_command_err, 0);
+		node = MAKE_node(input->nod_type, e_par_count);
+		node->nod_count = 0;
+		node->nod_arg[e_par_parameter] =
+			(NOD) MAKE_parameter(request->req_send, TRUE, TRUE);
+		return node;
+
+	case nod_udf:
+		return pass1_udf(request, input, proc_flag);
+
+	case nod_eql:
+	case nod_neq:
+	case nod_gtr:
+	case nod_geq:
+	case nod_lss:
+	case nod_leq:
+	case nod_eql_any:
+	case nod_neq_any:
+	case nod_gtr_any:
+	case nod_geq_any:
+	case nod_lss_any:
+	case nod_leq_any:
+	case nod_eql_all:
+	case nod_neq_all:
+	case nod_gtr_all:
+	case nod_geq_all:
+	case nod_lss_all:
+	case nod_leq_all:
+		sub2 = input->nod_arg[1];
+		if (sub2->nod_type == nod_list) {
+			USHORT list_item_count = 0;
+
+			node = NULL;
+			for (ptr = sub2->nod_arg, end = ptr + sub2->nod_count;
+				 ptr < end && list_item_count < MAX_MEMBER_LIST;
+				 list_item_count++, ptr++) {
+				DEV_BLKCHK(*ptr, type_nod);
+				temp = MAKE_node(input->nod_type, 2);
+				temp->nod_arg[0] = input->nod_arg[0];
+				temp->nod_arg[1] = *ptr;
+				node = compose(node, temp, nod_or);
+			}
+			if (list_item_count >= MAX_MEMBER_LIST)
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 901,
+						  gds_arg_gds, isc_imp_exc,
+						  gds_arg_gds, gds__random,
+						  gds_arg_string,
+						  "too many values (more than 1500) in member list to match against",
+						  0);
+			return PASS1_node(request, node, proc_flag);
+		}
+		if (sub2->nod_type == nod_select_expr) {
+			if (proc_flag)
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 206,
+						  gds_arg_gds, gds__dsql_subselect_err, 0);
+
+			if (sub2->nod_arg[e_sel_singleton]) {
+				base = request->req_context;
+				node = MAKE_node(input->nod_type, 2);
+				node->nod_arg[0] = PASS1_node(request, input->nod_arg[0], 0);
+				node->nod_arg[1] = temp = MAKE_node(nod_via, e_via_count);
+				temp->nod_arg[e_via_rse] = rse =
+					PASS1_rse(request, sub2, NULL);
+				temp->nod_arg[e_via_value_1] =
+					rse->nod_arg[e_rse_items]->nod_arg[0];
+				temp->nod_arg[e_via_value_2] = MAKE_node(nod_null, (int) 0);
+
+				/* Finish off by cleaning up contexts */
+
+				while (request->req_context != base)
+					LLS_POP(&request->req_context);
+				return node;
+			}
+			else {
+				switch (input->nod_type) {
+				case nod_eql:
+				case nod_neq:
+				case nod_gtr:
+				case nod_geq:
+				case nod_lss:
+				case nod_leq:
+					return pass1_any(request, input, nod_any);
+
+				case nod_eql_any:
+				case nod_neq_any:
+				case nod_gtr_any:
+				case nod_geq_any:
+				case nod_lss_any:
+				case nod_leq_any:
+					return pass1_any(request, input, nod_ansi_any);
+
+				case nod_eql_all:
+				case nod_neq_all:
+				case nod_gtr_all:
+				case nod_geq_all:
+				case nod_lss_all:
+				case nod_leq_all:
+					return pass1_any(request, input, nod_ansi_all);
+				}
+			}
+		}
+		break;
+
+	case nod_agg_count:
+	case nod_agg_min:
+	case nod_agg_max:
+	case nod_agg_average:
+	case nod_agg_total:
+	case nod_agg_average2:
+	case nod_agg_total2:
+		if (proc_flag)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+					  gds_arg_gds, gds__dsql_command_err, 0);
+		if (request->req_inhibit_map || !(request->req_in_select_list ||
+										  request->req_in_having_clause
+										  || request->req_in_order_by_clause))
+			/* either nested aggregate, or not part of a select
+			   list, having clause, or order by clause
+			 */
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+					  gds_arg_gds, gds__dsql_agg_ref_err, 0);
+		++request->req_inhibit_map;
+		node = MAKE_node(input->nod_type, input->nod_count);
+		node->nod_flags = input->nod_flags;
+		if (input->nod_count)
+			node->nod_arg[0] =
+				PASS1_node(request, input->nod_arg[0], proc_flag);
+		if (request->req_outer_agg_context) {
+			/* it's an outer reference, post map to the outer context */
+			agg_context = request->req_outer_agg_context;
+			request->req_outer_agg_context = NULL;
+		}
+		else
+			/* post map to the current context */
+			agg_context =
+				reinterpret_cast < ctx * >(request->req_context->lls_object);
+
+		temp = post_map(node, agg_context);
+		--request->req_inhibit_map;
+		return temp;
+
+		/* access plan node types */
+
+	case nod_plan_item:
+		node = MAKE_node(input->nod_type, 2);
+		node->nod_arg[0] = sub1 = MAKE_node(nod_relation, e_rel_count);
+		sub1->nod_arg[e_rel_context] =
+			pass1_alias_list(request, input->nod_arg[0]);
+		node->nod_arg[1] = PASS1_node(request, input->nod_arg[1], proc_flag);
+		return node;
+
+	case nod_index:
+	case nod_index_order:
+		node = MAKE_node(input->nod_type, 1);
+		node->nod_arg[0] = input->nod_arg[0];
+		return node;
+
+	case nod_dom_value:
+		node = MAKE_node(input->nod_type, input->nod_count);
+		node->nod_desc = input->nod_desc;
+		return node;
+
+	default:
+		break;
+	}
+
+/* Node is simply to be rebuilt -- just recurse merrily */
+
+	node = MAKE_node(input->nod_type, input->nod_count);
+	ptr2 = node->nod_arg;
+
+	for (ptr = input->nod_arg, end = ptr + input->nod_count; ptr < end; ptr++) {
+		DEV_BLKCHK(*ptr, type_nod);
+		*ptr2++ = PASS1_node(request, *ptr, proc_flag);
+		DEV_BLKCHK(*(ptr2 - 1), type_nod);
+	}
+
+/* Mark relations as "possibly NULL" if they are in outer joins */
+	switch (node->nod_type) {
+	case nod_join:
+		switch (node->nod_arg[e_join_type]->nod_type) {
+		case nod_join_inner:
+			/* Not an outer join - no work required */
+			break;
+		case nod_join_left:
+			mark_ctx_outer_join(node->nod_arg[e_join_rght_rel]);
+			break;
+		case nod_join_right:
+			mark_ctx_outer_join(node->nod_arg[e_join_left_rel]);
+			break;
+		case nod_join_full:
+			mark_ctx_outer_join(node->nod_arg[e_join_rght_rel]);
+			mark_ctx_outer_join(node->nod_arg[e_join_left_rel]);
+			break;
+		default:
+			ASSERT_FAIL;		/* join type expected */
+			break;
+		}
+		break;
+
+	default:
+		break;
+	}
+
+/* Try to match parameters against things of known data type */
+
+	sub3 = NULL;
+	switch (node->nod_type) {
+	case nod_between:
+		sub3 = node->nod_arg[2];
+		/* FALLINTO */
+	case nod_assign:
+	case nod_eql:
+	case nod_gtr:
+	case nod_geq:
+	case nod_leq:
+	case nod_lss:
+	case nod_neq:
+	case nod_eql_any:
+	case nod_gtr_any:
+	case nod_geq_any:
+	case nod_leq_any:
+	case nod_lss_any:
+	case nod_neq_any:
+	case nod_eql_all:
+	case nod_gtr_all:
+	case nod_geq_all:
+	case nod_leq_all:
+	case nod_lss_all:
+	case nod_neq_all:
+		sub1 = node->nod_arg[0];
+		sub2 = node->nod_arg[1];
+
+		/* Try to force sub1 to be same type as sub2 eg: ? = FIELD case */
+		if (set_parameter_type(sub1, sub2, FALSE))
+			/* null */ ;
+		else
+			/* That didn't work - try to force sub2 same type as sub 1 eg: FIELD = ? case */
+			(void) set_parameter_type(sub2, sub1, FALSE);
+		if (sub3)
+			/* X BETWEEN Y AND ? case */
+			(void) set_parameter_type(sub3, sub2, FALSE);
+		break;
+
+	case nod_like:
+		if (node->nod_count == 3) {
+			sub3 = node->nod_arg[2];
+		}
+		/* FALLINTO */
+	case nod_containing:
+	case nod_starting:
+		sub1 = node->nod_arg[0];
+		sub2 = node->nod_arg[1];
+
+		/* Try to force sub1 to be same type as sub2 eg: ? LIKE FIELD case */
+		if (set_parameter_type(sub1, sub2, TRUE))
+			/* null */ ;
+		else
+			/* That didn't work - try to force sub2 same type as sub 1 eg: FIELD LIKE ? case */
+			(void) set_parameter_type(sub2, sub1, TRUE);
+		if (sub3)
+			/* X LIKE Y ESCAPE ? case */
+			(void) set_parameter_type(sub3, sub2, TRUE);
+		break;
+
+	default:
+		break;
+	}
+
+	return node;
+}
+
+
+NOD PASS1_rse(REQ request, NOD input, NOD order)
+{
+/**************************************
+ *
+ *	P A S S 1 _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a record selection expression, 
+ *	bumping up the request scope level 
+ *	everytime an rse is seen.  The scope
+ *	level controls parsing of aliases.
+ *
+ **************************************/
+	NOD node;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+	DEV_BLKCHK(order, type_nod);
+
+	request->req_scope_level++;
+	node = pass1_rse(request, input, order);
+	request->req_scope_level--;
+
+	return node;
+}
+
+
+NOD PASS1_statement(REQ request, NOD input, USHORT proc_flag)
+{
+/**************************************
+ *
+ *	P A S S 1 _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a parsed request into something more interesting.
+ *
+ **************************************/
+	NOD node, *ptr, *end, *ptr2, *end2, into_in, into_out, procedure,
+		cursor, temp, parameters, variables;
+	LLS base;
+	FLD field, field2;
+	STR name;
+	struct nod desc_node;
+	USHORT count;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+#ifdef DEV_BUILD
+	if (DSQL_debug > 2)
+		DSQL_pretty(input, 0);
+#endif
+
+
+	base = request->req_context;
+
+/* Dispatch on node type.  Fall thru on easy ones */
+
+	switch (input->nod_type) {
+	case nod_def_relation:
+	case nod_def_index:
+	case nod_def_view:
+	case nod_def_constraint:
+	case nod_def_exception:
+	case nod_mod_relation:
+	case nod_mod_exception:
+	case nod_del_relation:
+	case nod_del_index:
+	case nod_del_exception:
+	case nod_grant:
+	case nod_revoke:
+	case nod_def_database:
+	case nod_mod_database:
+	case nod_def_generator:
+	case nod_def_role:
+	case nod_del_role:
+	case nod_del_generator:
+	case nod_def_filter:
+	case nod_del_filter:
+	case nod_def_domain:
+	case nod_del_domain:
+	case nod_mod_domain:
+	case nod_def_udf:
+	case nod_del_udf:
+	case nod_def_shadow:
+	case nod_del_shadow:
+	case nod_mod_index:
+	case nod_set_statistics:
+		request->req_type = REQ_DDL;
+		return input;
+
+	case nod_def_trigger:
+	case nod_mod_trigger:
+	case nod_del_trigger:
+		request->req_type = REQ_DDL;
+		request->req_flags |= REQ_procedure;
+		request->req_flags |= REQ_trigger;
+		return input;
+
+	case nod_del_procedure:
+		request->req_type = REQ_DDL;
+		request->req_flags |= REQ_procedure;
+		return input;
+
+	case nod_def_procedure:
+	case nod_mod_procedure:
+		request->req_type = REQ_DDL;
+		request->req_flags |= REQ_procedure;
+
+		/* Insure that variable names do not duplicate parameter names */
+
+		if (variables = input->nod_arg[e_prc_dcls]) {
+			for (ptr = variables->nod_arg, end = ptr + variables->nod_count;
+				 ptr < end; ptr++) {
+				field = (FLD) (*ptr)->nod_arg[e_dfl_field];
+				DEV_BLKCHK(field, type_fld);
+				if (parameters = input->nod_arg[e_prc_inputs])
+					for (ptr2 = parameters->nod_arg, end2 =
+						 ptr2 + parameters->nod_count; ptr2 < end2; ptr2++) {
+						field2 = (FLD) (*ptr2)->nod_arg[e_dfl_field];
+						DEV_BLKCHK(field2, type_fld);
+						if (!strcmp(field->fld_name, field2->fld_name))
+							ERRD_post(gds__sqlerr, gds_arg_number,
+									  (SLONG) - 901, gds_arg_gds,
+									  gds__dsql_var_conflict, gds_arg_string,
+									  field->fld_name, 0);
+					}
+				if (parameters = input->nod_arg[e_prc_outputs])
+					for (ptr2 = parameters->nod_arg, end2 =
+						 ptr2 + parameters->nod_count; ptr2 < end2; ptr2++) {
+						field2 = (FLD) (*ptr2)->nod_arg[e_dfl_field];
+						DEV_BLKCHK(field2, type_fld);
+						if (!strcmp(field->fld_name, field2->fld_name))
+							ERRD_post(gds__sqlerr, gds_arg_number,
+									  (SLONG) - 901, gds_arg_gds,
+									  gds__dsql_var_conflict, gds_arg_string,
+									  field->fld_name, 0);
+					}
+			}
+		}
+		return input;
+
+	case nod_assign:
+		node = MAKE_node(input->nod_type, input->nod_count);
+		node->nod_arg[0] = PASS1_node(request, input->nod_arg[0], proc_flag);
+		node->nod_arg[1] = PASS1_node(request, input->nod_arg[1], proc_flag);
+		break;
+
+	case nod_commit:
+		if ((input->nod_arg[e_commit_retain]) &&
+			(input->nod_arg[e_commit_retain]->nod_type == nod_commit_retain))
+			request->req_type = REQ_COMMIT_RETAIN;
+		else
+			request->req_type = REQ_COMMIT;
+		return input;
+
+	case nod_delete:
+		node = pass1_delete(request, input);
+		if (request->req_error_handlers) {
+			temp = MAKE_node(nod_list, 3);
+			temp->nod_arg[0] = MAKE_node(nod_start_savepoint, 0);
+			temp->nod_arg[1] = node;
+			temp->nod_arg[2] = MAKE_node(nod_end_savepoint, 0);
+			node = temp;
+		}
+		break;
+
+	case nod_exec_procedure:
+		if (!proc_flag) {
+			name = (STR) input->nod_arg[e_exe_procedure];
+			DEV_BLKCHK(name, type_str);
+			if (!(request->req_procedure = METD_get_procedure(request, name)))
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 204,
+						  gds_arg_gds, gds__dsql_procedure_err,
+						  gds_arg_gds, gds__random,
+						  gds_arg_string, name->str_data, 0);
+			request->req_type = REQ_EXEC_PROCEDURE;
+		}
+		node = MAKE_node(input->nod_type, input->nod_count);
+		node->nod_arg[e_exe_procedure] = input->nod_arg[e_exe_procedure];
+		node->nod_arg[e_exe_inputs] = PASS1_node(request,
+												 input->nod_arg[e_exe_inputs],
+												 proc_flag);
+		if (temp = input->nod_arg[e_exe_outputs])
+			node->nod_arg[e_exe_outputs] =
+				(temp->nod_type == nod_all) ? explode_outputs(request,
+															  request->
+															  req_procedure) :
+				PASS1_node(request, temp, proc_flag);
+		if (!proc_flag) {
+			if (node->nod_arg[e_exe_inputs])
+				count = node->nod_arg[e_exe_inputs]->nod_count;
+			else
+				count = 0;
+			if (count != request->req_procedure->prc_in_count)
+				ERRD_post(gds__prcmismat, gds_arg_string, name->str_data, 0);
+			if (count) {
+				/* Initialize this stack variable, and make it look like a node */
+				memset((SCHAR *) & desc_node, 0, sizeof(desc_node));
+				desc_node.nod_header.blk_type = type_nod;
+				for (ptr = node->nod_arg[e_exe_inputs]->nod_arg,
+					 field = request->req_procedure->prc_inputs;
+					 field; ptr++, field = field->fld_next) {
+					DEV_BLKCHK(field, type_fld);
+					DEV_BLKCHK(*ptr, type_nod);
+					MAKE_desc_from_field(&desc_node.nod_desc, field);
+					set_parameter_type(*ptr, &desc_node, FALSE);
+				}
+			}
+		}
+		break;
+
+	case nod_for_select:
+		node = MAKE_node(input->nod_type, input->nod_count);
+		node->nod_flags = input->nod_flags;
+		cursor = node->nod_arg[e_flp_cursor] = input->nod_arg[e_flp_cursor];
+		if (cursor && (procedure = request->req_ddl_node) &&
+			((procedure->nod_type == nod_def_procedure) ||
+			 (procedure->nod_type == nod_mod_procedure))) {
+			cursor->nod_arg[e_cur_next] = procedure->nod_arg[e_prc_cursors];
+			procedure->nod_arg[e_prc_cursors] = cursor;
+			cursor->nod_arg[e_cur_context] = node;
+		}
+		node->nod_arg[e_flp_select] = PASS1_statement(request,
+													  input->
+													  nod_arg[e_flp_select],
+													  proc_flag);
+		into_in = input->nod_arg[e_flp_into];
+		node->nod_arg[e_flp_into] = into_out =
+			MAKE_node(into_in->nod_type, into_in->nod_count);
+		ptr2 = into_out->nod_arg;
+		for (ptr = into_in->nod_arg, end = ptr + into_in->nod_count;
+			 ptr < end; ptr++) {
+			DEV_BLKCHK(*ptr, type_nod);
+			*ptr2++ = PASS1_node(request, *ptr, proc_flag);
+			DEV_BLKCHK(*(ptr2 - 1), type_nod);
+		}
+		if (input->nod_arg[e_flp_action])
+			node->nod_arg[e_flp_action] = PASS1_statement(request,
+														  input->
+														  nod_arg
+														  [e_flp_action],
+														  proc_flag);
+		if (cursor && procedure
+			&& ((procedure->nod_type == nod_def_procedure)
+				|| (procedure->nod_type == nod_mod_procedure)))
+			procedure->nod_arg[e_prc_cursors] = cursor->nod_arg[e_cur_next];
+
+		if (request->req_error_handlers &&
+			(input->nod_flags & NOD_SINGLETON_SELECT)) {
+			temp = MAKE_node(nod_list, 3);
+			temp->nod_arg[0] = MAKE_node(nod_start_savepoint, 0);
+			temp->nod_arg[1] = node;
+			temp->nod_arg[2] = MAKE_node(nod_end_savepoint, 0);
+			node = temp;
+		}
+		break;
+
+	case nod_get_segment:
+	case nod_put_segment:
+		pass1_blob(request, input);
+		return input;
+
+	case nod_if:
+		node = MAKE_node(input->nod_type, input->nod_count);
+		node->nod_arg[e_if_condition] = PASS1_node(request,
+												   input->
+												   nod_arg[e_if_condition],
+												   proc_flag);
+		node->nod_arg[e_if_true] =
+			PASS1_statement(request, input->nod_arg[e_if_true], proc_flag);
+		if (input->nod_arg[e_if_false])
+			node->nod_arg[e_if_false] =
+				PASS1_statement(request, input->nod_arg[e_if_false],
+								proc_flag);
+		else
+			node->nod_arg[e_if_false] = NULL;
+		break;
+
+	case nod_exception_stmt:
+		node = input;
+		if (request->req_error_handlers) {
+			temp = MAKE_node(nod_list, 3);
+			temp->nod_arg[0] = MAKE_node(nod_start_savepoint, 0);
+			temp->nod_arg[1] = input;
+			temp->nod_arg[2] = MAKE_node(nod_end_savepoint, 0);
+			node = temp;
+		}
+		return node;
+
+	case nod_insert:
+		node = pass1_insert(request, input);
+		if (request->req_error_handlers) {
+			temp = MAKE_node(nod_list, 3);
+			temp->nod_arg[0] = MAKE_node(nod_start_savepoint, 0);
+			temp->nod_arg[1] = node;
+			temp->nod_arg[2] = MAKE_node(nod_end_savepoint, 0);
+			node = temp;
+		}
+		break;
+
+	case nod_block:
+		if (input->nod_arg[e_blk_errs])
+			request->req_error_handlers++;
+		else {
+			input->nod_count = 1;
+			if (!request->req_error_handlers)
+				input->nod_type = nod_list;
+		}
+	case nod_list:
+		node = MAKE_node(input->nod_type, input->nod_count);
+		ptr2 = node->nod_arg;
+		for (ptr = input->nod_arg, end = ptr + input->nod_count;
+			 ptr < end; ptr++) {
+			DEV_BLKCHK(*ptr, type_nod);
+			if ((*ptr)->nod_type == nod_assign)
+				*ptr2++ = PASS1_node(request, *ptr, proc_flag);
+			else
+				*ptr2++ = PASS1_statement(request, *ptr, proc_flag);
+			DEV_BLKCHK(*(ptr2 - 1), type_nod);
+		}
+		if (input->nod_type == nod_block && input->nod_arg[e_blk_errs])
+			request->req_error_handlers--;
+		return node;
+
+	case nod_on_error:
+		node = MAKE_node(input->nod_type, input->nod_count);
+		node->nod_arg[e_err_errs] = input->nod_arg[e_err_errs];
+		node->nod_arg[e_err_action] = PASS1_statement(request,
+													  input->
+													  nod_arg[e_err_action],
+													  proc_flag);
+		return node;
+
+	case nod_post:
+		node = MAKE_node(input->nod_type, input->nod_count);
+		node->nod_arg[e_pst_event] = PASS1_node(request,
+												input->nod_arg[e_pst_event],
+												proc_flag);
+		return node;
+
+	case nod_rollback:
+		request->req_type = REQ_ROLLBACK;
+		return input;
+
+	case nod_exit:
+		if (request->req_flags & REQ_trigger)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104, gds_arg_gds, gds__token_err,	/* Token unknown */
+					  gds_arg_gds, gds__random, gds_arg_string, "EXIT", 0);
+		return input;
+
+	case nod_return:
+		if (request->req_flags & REQ_trigger)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104, gds_arg_gds, gds__token_err,	/* Token unknown */
+					  gds_arg_gds, gds__random, gds_arg_string, "RETURN", 0);
+
+		input->nod_arg[e_rtn_procedure] = request->req_ddl_node;
+		return input;
+
+	case nod_select:
+		node = PASS1_rse(request, input->nod_arg[0], input->nod_arg[1]);
+		if (input->nod_arg[2]) {
+			request->req_type = REQ_SELECT_UPD;
+			request->req_flags |= REQ_no_batch;
+			break;
+		}
+		/*
+		   ** If there is a union without ALL or order by or a select distinct 
+		   ** buffering is OK even if stored procedure occurs in the select
+		   ** list. In these cases all of stored procedure is executed under
+		   ** savepoint for open cursor.
+		 */
+		if (((temp = node->nod_arg[e_rse_streams])
+			 && (temp->nod_type == nod_union)
+			 && temp->nod_arg[e_rse_reduced]) ||
+			node->nod_arg[e_rse_sort] || node->nod_arg[e_rse_reduced])
+			request->req_flags &= ~REQ_no_batch;
+
+		break;
+
+	case nod_trans:
+		request->req_type = REQ_START_TRANS;
+		return input;
+
+	case nod_update:
+		node = pass1_update(request, input);
+		if (request->req_error_handlers) {
+			temp = MAKE_node(nod_list, 3);
+			temp->nod_arg[0] = MAKE_node(nod_start_savepoint, 0);
+			temp->nod_arg[1] = node;
+			temp->nod_arg[2] = MAKE_node(nod_end_savepoint, 0);
+			node = temp;
+		}
+		break;
+
+	case nod_while:
+		node = MAKE_node(input->nod_type, input->nod_count);
+		node->nod_arg[e_while_cond] = PASS1_node(request,
+												 input->nod_arg[e_while_cond],
+												 proc_flag);
+		node->nod_arg[e_while_action] =
+			PASS1_statement(request, input->nod_arg[e_while_action],
+							proc_flag);
+		node->nod_arg[e_while_number] = (NOD) request->req_loop_number++;
+		break;
+
+	case nod_abort:
+	case nod_exception:
+	case nod_sqlcode:
+	case nod_gdscode:
+		return input;
+
+	case nod_null:
+		return NULL;
+
+	case nod_set_generator:
+		node = MAKE_node(input->nod_type, e_gen_id_count);
+		node->nod_arg[e_gen_id_value] =
+			PASS1_node(request, input->nod_arg[e_gen_id_value], proc_flag);
+		node->nod_arg[e_gen_id_name] = input->nod_arg[e_gen_id_name];
+		request->req_type = REQ_SET_GENERATOR;
+		break;
+
+	case nod_set_generator2:
+		node = MAKE_node(input->nod_type, e_gen_id_count);
+		node->nod_arg[e_gen_id_value] =
+			PASS1_node(request, input->nod_arg[e_gen_id_value], proc_flag);
+		node->nod_arg[e_gen_id_name] = input->nod_arg[e_gen_id_name];
+		request->req_type = REQ_SET_GENERATOR;
+		break;
+
+	case nod_union:
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 901,
+				  gds_arg_gds, gds__dsql_command_err, gds_arg_gds, gds__union_err,	/* union not supported */
+				  0);
+		break;
+
+	default:
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 901,
+				  gds_arg_gds, gds__dsql_command_err, gds_arg_gds, gds__dsql_construct_err,	/* Unsupported DSQL construct */
+				  0);
+		break;
+	}
+
+/* Finish off by cleaning up contexts */
+
+	while (request->req_context != base)
+		LLS_POP(&request->req_context);
+
+#ifdef DEV_BUILD
+	if (DSQL_debug > 1)
+		DSQL_pretty(node, 0);
+#endif
+
+	return node;
+}
+
+
+static BOOLEAN aggregate_found( REQ request, NOD sub, NOD * proj)
+{
+/**************************************
+ *
+ *	a g g r e g a t e _ f o u n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for an aggregate expression in an 
+ *	rse select list.  It could be buried in 
+ *	an expression tree.
+ *
+ **************************************/
+	BOOLEAN aggregate, field;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(sub, type_nod);
+
+	field = FALSE;
+
+	aggregate = aggregate_found2(request, sub, proj, &field);
+
+	if (field && aggregate)
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104, gds_arg_gds, gds__field_aggregate_err,	/* field used with aggregate */
+				  0);
+
+	return aggregate;
+}
+
+
+static BOOLEAN aggregate_found2(
+								REQ request,
+								NOD sub, NOD * proj, BOOLEAN * field)
+{
+/**************************************
+ *
+ *	a g g r e g a t e _ f o u n d 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for an aggregate expression in an 
+ *	rse select list.  It could be buried in 
+ *	an expression tree.
+ *
+ *	field is true if a non-aggregate field reference is seen.
+ *
+ **************************************/
+	BOOLEAN aggregate;
+	NOD *ptr, *end;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(sub, type_nod);
+
+	switch (sub->nod_type) {
+
+		/* handle the simple case of a straightforward aggregate */
+
+	case nod_agg_average:
+	case nod_agg_average2:
+	case nod_agg_total2:
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_total:
+	case nod_agg_count:
+		if ((sub->nod_flags & NOD_AGG_DISTINCT) &&
+			(request->req_dbb->dbb_flags & DBB_v3)) {
+			/* NOTE: leave the v3 behaviour intact, even though it  */
+			/* is incorrect in most cases!                          */
+
+			/* this aggregate requires a projection to be generated */
+
+			*proj = PASS1_node(request, sub->nod_arg[0], 0);
+		}
+		return TRUE;
+
+	case nod_field:
+		*field = TRUE;
+		return FALSE;
+
+	case nod_constant:
+		return FALSE;
+
+		/* for expressions in which an aggregate might
+		   be buried, recursively check for one */
+
+	case nod_add:
+	case nod_concatenate:
+	case nod_divide:
+	case nod_multiply:
+	case nod_negate:
+	case nod_substr:
+	case nod_subtract:
+	case nod_add2:
+	case nod_divide2:
+	case nod_multiply2:
+	case nod_subtract2:
+	case nod_upcase:
+	case nod_extract:
+	case nod_list:
+		aggregate = FALSE;
+		for (ptr = sub->nod_arg, end = ptr + sub->nod_count; ptr < end; ptr++) {
+			DEV_BLKCHK(*ptr, type_nod);
+			aggregate |= aggregate_found2(request, *ptr, proj, field);
+		}
+		return aggregate;
+
+	case nod_cast:
+	case nod_udf:
+	case nod_gen_id:
+	case nod_gen_id2:
+		if (sub->nod_count == 2)
+			return (aggregate_found2(request, sub->nod_arg[1], proj, field));
+		else
+			return FALSE;
+
+	default:
+		return FALSE;
+	}
+}
+
+
+static void assign_fld_dtype_from_dsc( FLD field, DSC * nod_desc)
+{
+/**************************************
+ *
+ *	a s s i g n _ f l d _ d t y p e _ f r o m _ d s c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set a field's descriptor from a DSC
+ *	(If FLD is ever redefined this can be removed)
+ *
+ **************************************/
+
+	DEV_BLKCHK(field, type_fld);
+
+	field->fld_dtype = nod_desc->dsc_dtype;
+	field->fld_scale = nod_desc->dsc_scale;
+	field->fld_sub_type = nod_desc->dsc_sub_type;
+	field->fld_length = nod_desc->dsc_length;
+	if (nod_desc->dsc_dtype <= dtype_any_text) {
+		field->fld_collation_id = DSC_GET_COLLATE(nod_desc);
+		field->fld_character_set_id = DSC_GET_CHARSET(nod_desc);
+	}
+	else if (nod_desc->dsc_dtype == dtype_blob)
+		field->fld_character_set_id = nod_desc->dsc_scale;
+}
+
+
+static NOD compose( NOD expr1, NOD expr2, NOD_TYPE operator_)
+{
+/**************************************
+ *
+ *	c o m p o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compose two booleans.
+ *
+ **************************************/
+	NOD node;
+
+	DEV_BLKCHK(expr1, type_nod);
+	DEV_BLKCHK(expr2, type_nod);
+
+	if (!expr1)
+		return expr2;
+
+	if (!expr2)
+		return expr1;
+
+	node = MAKE_node(operator_, 2);
+	node->nod_arg[0] = expr1;
+	node->nod_arg[1] = expr2;
+
+	return node;
+}
+
+
+static NOD copy_field( NOD field, CTX context)
+{
+/**************************************
+ *
+ *	c o p y _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a field list for a SELECT against an artificial context.
+ *
+ **************************************/
+	NOD temp, actual, *ptr, *end, *ptr2;
+	MAP map;
+	STR alias;
+
+	DEV_BLKCHK(field, type_nod);
+	DEV_BLKCHK(context, type_ctx);
+
+	switch (field->nod_type) {
+	case nod_map:
+		map = (MAP) field->nod_arg[e_map_map];
+		DEV_BLKCHK(map, type_map);
+		temp = map->map_node;
+		return post_map(temp, context);
+
+	case nod_alias:
+		actual = field->nod_arg[e_alias_value];
+		alias = (STR) field->nod_arg[e_alias_alias];
+		DEV_BLKCHK(alias, type_str);
+		temp = MAKE_node(nod_alias, e_alias_count);
+		temp->nod_arg[e_alias_value] = copy_field(actual, context);
+		temp->nod_arg[e_alias_alias] = (NOD) alias;
+		return temp;
+
+	case nod_add:
+	case nod_add2:
+	case nod_concatenate:
+	case nod_divide:
+	case nod_divide2:
+	case nod_multiply:
+	case nod_multiply2:
+	case nod_negate:
+	case nod_substr:
+	case nod_subtract:
+	case nod_subtract2:
+	case nod_upcase:
+	case nod_extract:
+	case nod_list:
+		temp = MAKE_node(field->nod_type, field->nod_count);
+		ptr2 = temp->nod_arg;
+		for (ptr = field->nod_arg, end = ptr + field->nod_count; ptr < end;
+			 ptr++)
+			*ptr2++ = copy_field(*ptr, context);
+		return temp;
+
+	case nod_cast:
+	case nod_gen_id:
+	case nod_gen_id2:
+	case nod_udf:
+		temp = MAKE_node(field->nod_type, field->nod_count);
+		temp->nod_arg[0] = field->nod_arg[0];
+		if (field->nod_count == 2)
+			temp->nod_arg[1] = copy_field(field->nod_arg[1], context);
+		return temp;
+
+	default:
+		return post_map(field, context);
+	}
+}
+
+
+static NOD copy_fields( NOD fields, CTX context)
+{
+/**************************************
+ *
+ *	c o p y _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a field list for a SELECT against an artificial context.
+ *
+ **************************************/
+	NOD list;
+	USHORT i;
+
+	DEV_BLKCHK(fields, type_nod);
+	DEV_BLKCHK(context, type_ctx);
+
+	list = MAKE_node(nod_list, fields->nod_count);
+
+	for (i = 0; i < fields->nod_count; i++)
+		list->nod_arg[i] = copy_field(fields->nod_arg[i], context);
+
+	return list;
+}
+
+
+static void explode_asterisk( NOD node, NOD aggregate, LLS * stack)
+{
+/**************************************
+ *
+ *	 e x p l o d e _ a s t e r i s k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand an '*' in a field list to the corresponding fields.
+ *
+ **************************************/
+	CTX context;
+	DSQL_REL relation;
+	PRC procedure;
+	FLD field;
+
+	DEV_BLKCHK(node, type_nod);
+	DEV_BLKCHK(aggregate, type_nod);
+
+	if (node->nod_type == nod_join) {
+		explode_asterisk(node->nod_arg[e_join_left_rel], aggregate, stack);
+		explode_asterisk(node->nod_arg[e_join_rght_rel], aggregate, stack);
+	}
+	else {
+		context = (CTX) node->nod_arg[e_rel_context];
+		DEV_BLKCHK(context, type_ctx);
+		if (relation = context->ctx_relation)
+			for (field = relation->rel_fields; field; field = field->fld_next) {
+				DEV_BLKCHK(field, type_fld);
+				node = MAKE_field(context, field, 0);
+				if (aggregate) {
+					if (invalid_reference
+						(node,
+						 aggregate->
+						 nod_arg[e_agg_group])) ERRD_post(gds__sqlerr,
+														  gds_arg_number,
+														  (SLONG) - 104,
+														  gds_arg_gds,
+														  gds__field_ref_err,
+														  /* invalid field reference */
+														  0);
+				}
+				LLS_PUSH(MAKE_field(context, field, 0), stack);
+			}
+		else if (procedure = context->ctx_procedure)
+			for (field = procedure->prc_outputs; field;
+				 field = field->fld_next) {DEV_BLKCHK(field, type_fld);
+				node = MAKE_field(context, field, 0);
+				if (aggregate) {
+					if (invalid_reference
+						(node,
+						 aggregate->
+						 nod_arg[e_agg_group])) ERRD_post(gds__sqlerr,
+														  gds_arg_number,
+														  (SLONG) - 104,
+														  gds_arg_gds,
+														  gds__field_ref_err,
+														  /* invalid field reference */
+														  0);
+				}
+				LLS_PUSH(MAKE_field(context, field, 0), stack);
+			}
+	}
+}
+
+
+static NOD explode_outputs( REQ request, PRC procedure)
+{
+/**************************************
+ *
+ *	 e x p l o d e _ o u t p u t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a parameter list to correspond to procedure outputs.
+ *
+ **************************************/
+	NOD node, *ptr, p_node;
+	FLD field;
+	PAR parameter;
+	SSHORT count;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(procedure, type_prc);
+
+	count = procedure->prc_out_count;
+	node = MAKE_node(nod_list, count);
+	for (field = procedure->prc_outputs, ptr = node->nod_arg; field;
+		 field = field->fld_next, ptr++) {
+		DEV_BLKCHK(field, type_fld);
+		DEV_BLKCHK(*ptr, type_nod);
+		*ptr = p_node = MAKE_node(nod_parameter, e_par_count);
+		p_node->nod_count = 0;
+		parameter = MAKE_parameter(request->req_receive, TRUE, TRUE);
+		p_node->nod_arg[e_par_parameter] = (NOD) parameter;
+		MAKE_desc_from_field(&parameter->par_desc, field);
+		parameter->par_name = parameter->par_alias = field->fld_name;
+		parameter->par_rel_name = procedure->prc_name;
+		parameter->par_owner_name = procedure->prc_owner;
+	}
+
+	return node;
+}
+
+
+static void field_error( TEXT * qualifier_name, TEXT * field_name)
+{
+/**************************************
+ *
+ *	f i e l d _ e r r o r	
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report a field parsing recognition error.
+ *
+ **************************************/
+	TEXT field_string[64];
+
+	if (qualifier_name) {
+		sprintf(field_string, "%s.%s", qualifier_name,
+				field_name ? field_name : "*");
+		field_name = field_string;
+	}
+
+	if (field_name)
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 206,
+				  gds_arg_gds, gds__dsql_field_err,
+				  gds_arg_gds, gds__random, gds_arg_string, field_name, 0);
+	else
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 206,
+				  gds_arg_gds, gds__dsql_field_err, 0);
+}
+
+
+
+static PAR find_dbkey( REQ request, NOD relation_name)
+{
+/**************************************
+ *
+ *	f i n d _ d b k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find dbkey for named relation in request's saved dbkeys.
+ *
+ **************************************/
+	CTX context;
+	MSG message;
+	PAR parameter, candidate;
+	DSQL_REL relation;
+	STR rel_name;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(relation_name, type_nod);
+
+	message = request->req_receive;
+	candidate = NULL;
+	rel_name = (STR) relation_name->nod_arg[e_rln_name];
+	DEV_BLKCHK(rel_name, type_str);
+	for (parameter = message->msg_parameters; parameter;
+		 parameter = parameter->par_next) {
+		DEV_BLKCHK(parameter, type_par);
+		if (context = parameter->par_dbkey_ctx) {
+			DEV_BLKCHK(context, type_ctx);
+			relation = context->ctx_relation;
+			if (!strcmp
+				(reinterpret_cast < char *>(rel_name->str_data),
+				 relation->rel_name)) {
+				if (candidate)
+					return NULL;
+				else
+					candidate = parameter;
+			}
+		}
+	}
+	return candidate;
+}
+
+
+static PAR find_record_version( REQ request, NOD relation_name)
+{
+/**************************************
+ *
+ *	f i n d _ r e c o r d _ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find record version for relation in request's saved record version
+ *
+ **************************************/
+	CTX context;
+	MSG message;
+	PAR parameter, candidate;
+	DSQL_REL relation;
+	STR rel_name;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(relation_name, type_nod);
+
+	message = request->req_receive;
+	candidate = NULL;
+	rel_name = (STR) relation_name->nod_arg[e_rln_name];
+	DEV_BLKCHK(rel_name, type_str);
+	for (parameter = message->msg_parameters; parameter;
+		 parameter = parameter->par_next) {
+		DEV_BLKCHK(parameter, type_par);
+		if (context = parameter->par_rec_version_ctx) {
+			DEV_BLKCHK(context, type_ctx);
+			relation = context->ctx_relation;
+			if (!strcmp
+				(reinterpret_cast < char *>(rel_name->str_data),
+				 relation->rel_name)) {
+				if (candidate)
+					return NULL;
+				else
+					candidate = parameter;
+			}
+		}
+	}
+	return candidate;
+}
+
+
+static BOOLEAN invalid_reference( NOD node, NOD list)
+{
+/**************************************
+ *
+ *	i n v a l i d _ r e f e r e n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate that an expanded field / context
+ *	pair is in a specified list.  Thus is used
+ *	in one instance to check that a simple field selected 
+ *	through a grouping rse is a grouping field - 
+ *	thus a valid field reference.  For the sake of
+ *      argument, we'll match qualified to unqualified
+ *	reference, but qualified reference must match
+ *	completely. 
+ *
+ *	A list element containing a simple CAST for collation purposes
+ *	is allowed.
+ *
+ **************************************/
+	NOD *ptr, *end;
+	BOOLEAN invalid;
+
+	DEV_BLKCHK(node, type_nod);
+	DEV_BLKCHK(list, type_nod);
+
+	if (node == NULL)
+	{
+		return FALSE;
+	}
+
+	invalid = FALSE;
+
+	if (node->nod_type == nod_field)
+	{
+		FLD field;
+		CTX context;
+		NOD reference;
+
+		if (!list)
+			return TRUE;
+		field = (FLD) node->nod_arg[e_fld_field];
+		context = (CTX) node->nod_arg[e_fld_context];
+
+		DEV_BLKCHK(field, type_fld);
+		DEV_BLKCHK(context, type_ctx);
+
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++)
+		{
+			DEV_BLKCHK(*ptr, type_nod);
+			reference = *ptr;
+			if ((*ptr)->nod_type == nod_cast)
+			{
+				reference = (*ptr)->nod_arg[e_cast_source];
+			}
+			DEV_BLKCHK(reference, type_nod);
+			if (reference->nod_type == nod_field &&
+				field == (FLD) reference->nod_arg[e_fld_field] &&
+				context == (CTX) reference->nod_arg[e_fld_context])
+			{
+				return FALSE;
+			}
+			else
+			{
+				if (reference->nod_type == nod_udf )
+				{
+					return FALSE;
+				}
+			}
+		}
+		return TRUE;
+	}
+	else if (node->nod_type == nod_dbkey)
+	{
+		CTX context;
+		NOD reference, rel_node;
+
+		if (!list)
+			return TRUE;
+		rel_node = (NOD) node->nod_arg[0];
+		context = (CTX) rel_node->nod_arg[0];
+
+		DEV_BLKCHK(context, type_ctx);
+
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++)
+		{
+			DEV_BLKCHK(*ptr, type_nod);
+			reference = *ptr;
+			if ((*ptr)->nod_type == nod_cast)
+			{
+				reference = (*ptr)->nod_arg[e_cast_source];
+			}
+			DEV_BLKCHK(reference, type_nod);
+			if (reference->nod_type == nod_dbkey &&
+				rel_node == (NOD) reference->nod_arg[0] &&
+				context == (CTX) rel_node->nod_arg[0])
+			{
+				return FALSE;
+			}
+		}
+		return TRUE;
+	}
+	else
+	{
+		if ((node->nod_type == nod_gen_id) ||
+			(node->nod_type == nod_gen_id2) ||
+			(node->nod_type == nod_udf) || (node->nod_type == nod_cast))
+		{
+			if (node->nod_count == 2)
+				invalid |= invalid_reference(node->nod_arg[1], list);
+		}
+#ifdef	CHECK_HAVING
+/*
+******************************************************
+
+ taken out to fix a more serious bug
+
+******************************************************
+*/
+		else if (node->nod_type == nod_map)
+		{
+			MAP map;
+			map = (MAP) node->nod_arg[e_map_map];
+			DEV_BLKCHK(map, type_map);
+			invalid |= invalid_reference(map->map_node, list);
+		}
+#endif
+		else
+			switch (node->nod_type) {
+			default:
+				ASSERT_FAIL;
+				/* FALLINTO */
+			case nod_add:
+			case nod_concatenate:
+			case nod_divide:
+			case nod_multiply:
+			case nod_negate:
+			case nod_substr:
+			case nod_subtract:
+			case nod_upcase:
+			case nod_extract:
+			case nod_add2:
+			case nod_divide2:
+			case nod_multiply2:
+			case nod_subtract2:
+			case nod_eql:
+			case nod_neq:
+			case nod_gtr:
+			case nod_geq:
+			case nod_leq:
+			case nod_lss:
+			case nod_eql_any:
+			case nod_neq_any:
+			case nod_gtr_any:
+			case nod_geq_any:
+			case nod_leq_any:
+			case nod_lss_any:
+			case nod_eql_all:
+			case nod_neq_all:
+			case nod_gtr_all:
+			case nod_geq_all:
+			case nod_leq_all:
+			case nod_lss_all:
+			case nod_between:
+			case nod_like:
+			case nod_missing:
+			case nod_and:
+			case nod_or:
+			case nod_any:
+			case nod_ansi_any:
+			case nod_ansi_all:
+			case nod_not:
+			case nod_unique:
+			case nod_containing:
+			case nod_starting:
+			case nod_rse:
+			case nod_list:
+			case nod_via:
+				for (ptr = node->nod_arg, end = ptr + node->nod_count;
+					 ptr < end; ptr++)
+					invalid |= invalid_reference(*ptr, list);
+				break;
+
+			case nod_alias:
+				invalid |=
+					invalid_reference(node->nod_arg[e_alias_value], list);
+				break;
+
+				/* An embedded aggregate, even of an expression, is OK */
+			case nod_agg_average:
+			case nod_agg_count:
+			case nod_agg_max:
+			case nod_agg_min:
+			case nod_agg_total:
+			case nod_agg_average2:
+			case nod_agg_total2:
+				/* Fall into ... */
+
+				/* misc other stuff */
+			case nod_aggregate:
+			case nod_map:
+			case nod_relation:
+			case nod_variable:
+			case nod_constant:
+			case nod_null:
+			case nod_current_date:
+			case nod_current_time:
+			case nod_current_timestamp:
+			case nod_user_name:
+				return FALSE;
+			}
+	}
+
+	return invalid;
+}
+
+
+static void mark_ctx_outer_join( NOD node)
+{
+/**************************************
+ *
+ *	m a r k _ c t x _ o u t e r _ j o i n 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Mark the context blocks of relations in an RSE as
+ *	participating in an Outer Join of some sort.
+ *	This is important when we are deciding whether
+ *	a particular field reference can be NULL or not.
+ *	If the field is declared NOT NULL, it normally cannot
+ *	be NULL - however, if the base relation reference is 
+ *	within the "outside" part of an outer join rse,
+ *	it CAN be null.
+ *
+ *	Our input RSE can be either a relation (table, view, or proc) 
+ *	reference or a JOIN expression.
+ *	
+ **************************************/
+	CTX context;
+
+	DEV_BLKCHK(node, type_nod);
+
+	switch (node->nod_type) {
+	case nod_relation:
+		context = (CTX) node->nod_arg[e_rel_context];
+		DEV_BLKCHK(context, type_ctx);
+		assert(context);
+		context->ctx_flags |= CTX_outer_join;
+		break;
+
+	case nod_join:
+		mark_ctx_outer_join(node->nod_arg[e_join_left_rel]);
+		mark_ctx_outer_join(node->nod_arg[e_join_rght_rel]);
+		break;
+
+	default:
+		ASSERT_FAIL;			/* only join & relation expected */
+		break;
+	}
+}
+
+
+static BOOLEAN node_match( NOD node1, NOD node2)
+{
+/**************************************
+ *
+ *	n o d e _ m a t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two nodes for equality of value.
+ *
+ **************************************/
+	NOD *ptr1, *ptr2, *end;
+	MAP map1, map2;
+	USHORT l;
+	UCHAR *p1, *p2;
+
+	DEV_BLKCHK(node1, type_nod);
+	DEV_BLKCHK(node2, type_nod);
+
+	if ((!node1) && (!node2))
+		return TRUE;
+
+	if ((!node1) || (!node2) || (node1->nod_type != node2->nod_type)
+		|| (node1->nod_count != node2->nod_count))
+		return FALSE;
+
+/* This is to get rid of assertion failures when trying
+   to node_match nod_aggregate's children. This was happening because not
+   all of the chilren are of type "struct nod". Pointer to the first child
+   (argument) is actually a pointer to context structure.
+   To compare two nodes of type nod_aggregate we need first to see if they
+   both refer to same context structure. If they do not they are different
+   nodes, if they point to the same context they are the same (because
+   nod_aggregate is created for an rse that have aggregate expression, 
+   group by or having clause and each rse has its own context). But just in
+   case we compare two other subtrees.
+*/
+
+	if (node1->nod_type == nod_aggregate)
+	{
+		if (node1->nod_arg[e_agg_context] != node2->nod_arg[e_agg_context]) {
+			return FALSE;
+		}
+
+		return node_match(	node1->nod_arg[e_agg_group],
+							node2->nod_arg[e_agg_group]) &&
+				node_match(	node1->nod_arg[e_agg_rse],
+							node2->nod_arg[e_agg_rse]);
+	}
+
+	if (node1->nod_type == nod_alias) {
+		return node_match(node1->nod_arg[e_alias_value], node2);
+	}
+
+	if (node2->nod_type == nod_alias) {
+		return node_match(node1, node2->nod_arg[e_alias_value]);
+	}
+
+	if (node1->nod_type == nod_field)
+	{
+		if (node1->nod_arg[e_fld_field] != node2->nod_arg[e_fld_field] ||
+			node1->nod_arg[e_fld_context] != node2->nod_arg[e_fld_context])
+		{
+			return FALSE;
+		}
+		if (node1->nod_arg[e_fld_indices] || node2->nod_arg[e_fld_indices])
+		{
+			return node_match(node1->nod_arg[e_fld_indices],
+							  node2->nod_arg[e_fld_indices]);
+		}
+		return TRUE;
+	}
+
+	if (node1->nod_type == nod_constant)
+	{
+		if (node1->nod_desc.dsc_dtype != node2->nod_desc.dsc_dtype ||
+			node1->nod_desc.dsc_length != node2->nod_desc.dsc_length ||
+			node1->nod_desc.dsc_scale != node2->nod_desc.dsc_scale)
+		{
+			return FALSE;
+		}
+		p1 = node1->nod_desc.dsc_address;
+		p2 = node2->nod_desc.dsc_address;
+		for (l = node1->nod_desc.dsc_length; l > 0; l--) {
+			if (*p1++ != *p2++) {
+				return FALSE;
+			}
+		}
+		return TRUE;
+	}
+
+	if (node1->nod_type == nod_map)
+	{
+		map1 = (MAP)node1->nod_arg[e_map_map];
+		map2 = (MAP)node2->nod_arg[e_map_map];
+		DEV_BLKCHK(map1, type_map);
+		DEV_BLKCHK(map2, type_map);
+		return node_match(map1->map_node, map2->map_node);
+	}
+
+	if ((node1->nod_type == nod_gen_id)		||
+		(node1->nod_type == nod_gen_id2)	||
+		(node1->nod_type == nod_udf)		||
+		(node1->nod_type == nod_cast))
+	{
+		if (node1->nod_arg[0] != node2->nod_arg[0]) {
+			return FALSE;
+		}
+		if (node1->nod_count == 2) {
+			return node_match(node1->nod_arg[1], node2->nod_arg[1]);
+		} else {
+			return TRUE;
+		}
+	}
+
+	if ((node1->nod_type == nod_agg_count)		||
+		(node1->nod_type == nod_agg_total)		||
+		(node1->nod_type == nod_agg_total2)		||
+		(node1->nod_type == nod_agg_average2)	||
+		(node1->nod_type == nod_agg_average))
+	{
+		if ((node1->nod_flags & NOD_AGG_DISTINCT) !=
+			(node2->nod_flags & NOD_AGG_DISTINCT))
+		{
+			return FALSE;
+		}
+	}
+
+	if (node1->nod_type == nod_variable)
+	{
+		if (node1->nod_type != node2->nod_type) {
+			return FALSE;
+		}
+		VAR var1 = reinterpret_cast<VAR>(node1->nod_arg[e_var_variable]);
+		VAR var2 = reinterpret_cast<VAR>(node2->nod_arg[e_var_variable]);
+		DEV_BLKCHK(var1, type_var);
+		DEV_BLKCHK(var2, type_var);
+		if ((strcmp(var1->var_name, var2->var_name))					||
+			(var1->var_field != var2->var_field)						||
+			(var1->var_variable_number != var2->var_variable_number)	||
+			(var1->var_msg_item != var2->var_msg_item)					||
+			(var1->var_msg_number != var2->var_msg_number))
+		{
+			return FALSE;
+		}
+		return TRUE;
+	}
+
+	ptr1 = node1->nod_arg;
+	ptr2 = node2->nod_arg;
+
+	for (end = ptr1 + node1->nod_count; ptr1 < end; ptr1++, ptr2++)
+		if (!node_match(*ptr1, *ptr2))
+			return FALSE;
+
+	return TRUE;
+}
+
+
+static NOD pass1_any( REQ request, NOD input, NOD_TYPE ntype)
+{
+/**************************************
+ *
+ *	p a s s 1 _ a n y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a parsed request into something more interesting.
+ *
+ **************************************/
+	NOD node, temp, rse, select;
+	LLS base;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+	select = input->nod_arg[1];
+	base = request->req_context;
+	temp = MAKE_node(input->nod_type, 2);
+	temp->nod_arg[0] = PASS1_node(request, input->nod_arg[0], 0);
+
+	node = MAKE_node(ntype, 1);
+	node->nod_arg[0] = rse = PASS1_rse(request, select, NULL);
+
+/* adjust the scope level back to the sub-rse, so that 
+   the fields in the select list will be properly recognized */
+
+	request->req_scope_level++;
+	request->req_in_select_list++;
+	temp->nod_arg[1] =
+		PASS1_node(request, select->nod_arg[e_sel_list]->nod_arg[0], 0);
+	request->req_in_select_list--;
+	request->req_scope_level--;
+
+	rse->nod_arg[e_rse_boolean] =
+		compose(rse->nod_arg[e_rse_boolean], temp, nod_and);
+
+	while (request->req_context != base)
+		LLS_POP(&request->req_context);
+
+	return node;
+}
+
+
+static void pass1_blob( REQ request, NOD input)
+{
+/**************************************
+ *
+ *	p a s s 1 _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a blob get or put segment.
+ *
+ **************************************/
+	NOD field, list;
+	BLB blob;
+	PAR parameter;
+	TSQL tdsql;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+	tdsql = GET_THREAD_DATA;
+
+
+	(void) PASS1_make_context(request, input->nod_arg[e_blb_relation]);
+	field = pass1_field(request, input->nod_arg[e_blb_field], 0);
+	if (field->nod_desc.dsc_dtype != dtype_blob)
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 206,
+				  gds_arg_gds, gds__dsql_blob_err, 0);
+
+	request->req_type =
+		(input->nod_type ==
+		 nod_get_segment) ? REQ_GET_SEGMENT : REQ_PUT_SEGMENT;
+	request->req_blob = blob = (BLB) ALLOCDV(type_blb, 0);
+	blob->blb_field = field;
+	blob->blb_open_in_msg = request->req_send;
+	blob->blb_open_out_msg = (MSG) ALLOCD(type_msg);
+	blob->blb_segment_msg = request->req_receive;
+
+/* Create a parameter for the blob segment */
+
+	blob->blb_segment = parameter =
+		MAKE_parameter(blob->blb_segment_msg, TRUE, TRUE);
+	parameter->par_desc.dsc_dtype = dtype_text;
+	parameter->par_desc.dsc_ttype = ttype_binary;
+	parameter->par_desc.dsc_length =
+		((FLD) field->nod_arg[e_fld_field])->fld_seg_length;
+	DEV_BLKCHK(field->nod_arg[e_fld_field], type_fld);
+
+/* The Null indicator is used to pass back the segment length,
+ * set DSC_nullable so that the SQL_type is set to SQL_TEXT+1 instead
+ * of SQL_TEXT.
+ */
+	if (input->nod_type == nod_get_segment)
+		parameter->par_desc.dsc_flags |= DSC_nullable;
+
+/* Create a parameter for the blob id */
+
+	blob->blb_blob_id = parameter = MAKE_parameter(
+												   (input->nod_type ==
+													nod_get_segment) ? blob->
+												   blb_open_in_msg : blob->
+												   blb_open_out_msg, TRUE,
+												   TRUE);
+	parameter->par_desc = field->nod_desc;
+	parameter->par_desc.dsc_dtype = dtype_quad;
+	parameter->par_desc.dsc_scale = 0;
+
+	if (list = input->nod_arg[e_blb_filter]) {
+		if (list->nod_arg[0])
+			blob->blb_from = PASS1_node(request, list->nod_arg[0], FALSE);
+		if (list->nod_arg[1])
+			blob->blb_to = PASS1_node(request, list->nod_arg[1], FALSE);
+	}
+	if (!blob->blb_from)
+		blob->blb_from = MAKE_constant((STR) 0, 1);
+	if (!blob->blb_to)
+		blob->blb_to = MAKE_constant((STR) 0, 1);
+
+	for (parameter = blob->blb_open_in_msg->msg_parameters; parameter;
+		 parameter = parameter->par_next)
+		if (parameter->par_index >
+			((input->nod_type == nod_get_segment) ? 1 : 0)) {
+			parameter->par_desc.dsc_dtype = dtype_short;
+			parameter->par_desc.dsc_scale = 0;
+			parameter->par_desc.dsc_length = sizeof(SSHORT);
+		}
+}
+
+
+static NOD pass1_collate( REQ request, NOD sub1, STR collation)
+{
+/**************************************
+ *
+ *	p a s s 1 _  c o l l a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Turn a collate clause into a cast clause.
+ *	If the source is not already text, report an error.
+ *	(SQL 92: Section 13.1, pg 308, item 11)
+ *
+ **************************************/
+	NOD node;
+	FLD field;
+	TSQL tdsql;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(sub1, type_nod);
+	DEV_BLKCHK(collation, type_str);
+
+	tdsql = GET_THREAD_DATA;
+
+
+	node = MAKE_node(nod_cast, e_cast_count);
+	field = (FLD) ALLOCDV(type_fld, 1);
+	field->fld_name[0] = 0;
+	node->nod_arg[e_cast_target] = (NOD) field;
+	node->nod_arg[e_cast_source] = sub1;
+	MAKE_desc(&sub1->nod_desc, sub1);
+	if (sub1->nod_desc.dsc_dtype <= dtype_any_text) {
+		assign_fld_dtype_from_dsc(field, &sub1->nod_desc);
+		field->fld_character_length = 0;
+		if (sub1->nod_desc.dsc_dtype == dtype_varying)
+			field->fld_length += sizeof(USHORT);
+	}
+	else {
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 204,
+				  gds_arg_gds, gds__dsql_datatype_err,
+				  gds_arg_gds, gds__collation_requires_text, 0);
+	}
+	DDL_resolve_intl_type(request, field, collation);
+	MAKE_desc_from_field(&node->nod_desc, field);
+	return node;
+}
+
+
+static NOD pass1_constant( REQ request, NOD constant)
+{
+/**************************************
+ *
+ *	p a s s 1 _ c o n s t a n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Turn an international string reference into internal
+ *	subtype ID.
+ *
+ **************************************/
+	STR string;
+	INTLSYM resolved;
+	INTLSYM resolved_collation = NULL;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(constant, type_nod);
+
+	if (constant->nod_desc.dsc_dtype > dtype_any_text)
+		return constant;
+	string = (STR) constant->nod_arg[0];
+	DEV_BLKCHK(string, type_str);
+	if (!string || !string->str_charset)
+		return constant;
+	resolved =
+		METD_get_charset(request, strlen(string->str_charset),
+						 reinterpret_cast < UCHAR * >(string->str_charset));
+	if (!resolved)
+		/* character set name is not defined */
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 504, gds_arg_gds,
+				  gds__charset_not_found, gds_arg_string, string->str_charset,
+				  0);
+
+	if (temp_collation_name) {
+		resolved_collation = METD_get_collation(request, temp_collation_name);
+		if (!resolved_collation)
+			/* 
+			   ** Specified collation not found 
+			 */
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 204, gds_arg_gds,
+					  gds__dsql_datatype_err, gds_arg_gds,
+					  gds__collation_not_found, gds_arg_string,
+					  temp_collation_name->str_data, 0);
+
+		resolved = resolved_collation;
+	}
+
+	INTL_ASSIGN_TTYPE(&constant->nod_desc, resolved->intlsym_ttype);
+
+	return constant;
+}
+
+
+static NOD pass1_cursor( REQ request, NOD cursor, NOD relation_name)
+{
+/**************************************
+ *
+ *	p a s s 1 _ c u r s o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Turn a cursor reference into a record selection expression.
+ *
+ **************************************/
+	SYM symbol;
+	NOD rse, node, temp, relation_node;
+	REQ parent;
+	STR string;
+	PAR parameter, source, rv_source;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(cursor, type_nod);
+	DEV_BLKCHK(relation_name, type_nod);
+
+/* Lookup parent request */
+
+	string = (STR) cursor->nod_arg[e_cur_name];
+	DEV_BLKCHK(string, type_str);
+
+	symbol =
+		HSHD_lookup(request->req_dbb,
+					reinterpret_cast < char *>(string->str_data),
+					static_cast < SSHORT > (string->str_length), SYM_cursor,
+					0);
+
+	if (!symbol)
+		/* cursor is not defined */
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 504,
+				  gds_arg_gds, gds__dsql_cursor_err, 0);
+
+	parent = (REQ) symbol->sym_object;
+
+/* Verify that the cursor is appropriate and updatable */
+
+	rv_source = find_record_version(parent, relation_name);
+
+	if (parent->req_type != REQ_SELECT_UPD ||
+		!(source = find_dbkey(parent, relation_name)) ||
+		(!rv_source && !(request->req_dbb->dbb_flags & DBB_v3)))
+		/* cursor is not updatable */
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 510,
+				  gds_arg_gds, gds__dsql_cursor_update_err, 0);
+
+	request->req_parent = parent;
+	request->req_parent_dbkey = source;
+	request->req_parent_rec_version = rv_source;
+	request->req_sibling = parent->req_offspring;
+	parent->req_offspring = request;
+
+/* Build record selection expression */
+
+	rse = MAKE_node(nod_rse, e_rse_count);
+	rse->nod_arg[e_rse_streams] = temp = MAKE_node(nod_list, 1);
+	temp->nod_arg[0] = relation_node = pass1_relation(request, relation_name);
+	rse->nod_arg[e_rse_boolean] = node = MAKE_node(nod_eql, 2);
+	node->nod_arg[0] = temp = MAKE_node(nod_dbkey, 1);
+	temp->nod_arg[0] = relation_node;
+
+	node->nod_arg[1] = temp = MAKE_node(nod_parameter, e_par_count);
+	temp->nod_count = 0;
+	parameter = request->req_dbkey =
+		MAKE_parameter(request->req_send, FALSE, FALSE);
+	temp->nod_arg[e_par_parameter] = (NOD) parameter;
+	parameter->par_desc = source->par_desc;
+
+/* record version will be set only for V4 - for the parent select cursor */
+	if (rv_source) {
+		node = MAKE_node(nod_eql, 2);
+		node->nod_arg[0] = temp = MAKE_node(nod_rec_version, 1);
+		temp->nod_arg[0] = relation_node;
+		node->nod_arg[1] = temp = MAKE_node(nod_parameter, e_par_count);
+		temp->nod_count = 0;
+		parameter = request->req_rec_version =
+			MAKE_parameter(request->req_send, FALSE, FALSE);
+		temp->nod_arg[e_par_parameter] = (NOD) parameter;
+		parameter->par_desc = rv_source->par_desc;
+
+		rse->nod_arg[e_rse_boolean] =
+			compose(rse->nod_arg[e_rse_boolean], node, nod_and);
+	}
+
+	return rse;
+}
+
+
+static CTX pass1_cursor_context( REQ request, NOD cursor, NOD relation_name)
+{
+/**************************************
+ *
+ *	p a s s 1 _ c u r s o r _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Turn a cursor reference into a record selection expression.
+ *
+ **************************************/
+	NOD node, temp, *ptr, *end, procedure, r_node;
+	CTX context, candidate;
+	STR string, cname, rname;
+	DSQL_REL relation;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(cursor, type_nod);
+	DEV_BLKCHK(relation_name, type_nod);
+
+	string = (STR) cursor->nod_arg[e_cur_name];
+	DEV_BLKCHK(string, type_str);
+
+	procedure = request->req_ddl_node;
+	context = NULL;
+	for (node = procedure->nod_arg[e_prc_cursors]; node;
+		 node = node->nod_arg[e_cur_next]) {
+		DEV_BLKCHK(node, type_nod);
+		cname = (STR) node->nod_arg[e_cur_name];
+		DEV_BLKCHK(cname, type_str);
+		if (!strcmp
+			(reinterpret_cast < const char *>(string->str_data),
+			 reinterpret_cast < const char *>(cname->str_data))) {
+			temp = node->nod_arg[e_cur_context];
+			temp = temp->nod_arg[e_flp_select];
+			temp = temp->nod_arg[e_rse_streams];
+			for (ptr = temp->nod_arg, end = ptr + temp->nod_count;
+				 ptr < end; ptr++) {
+				DEV_BLKCHK(*ptr, type_nod);
+				r_node = *ptr;
+				if (r_node->nod_type == nod_relation) {
+					candidate = (CTX) r_node->nod_arg[e_rel_context];
+					DEV_BLKCHK(candidate, type_ctx);
+					relation = candidate->ctx_relation;
+					rname = (STR) relation_name->nod_arg[e_rln_name];
+					DEV_BLKCHK(rname, type_str);
+					if (!strcmp
+						(reinterpret_cast < const char *>(rname->str_data),
+						 relation->rel_name)) {
+						if (context)
+							ERRD_post(gds__sqlerr, gds_arg_number,
+									  (SLONG) - 504, gds_arg_gds,
+									  gds__dsql_cursor_err, 0);
+						else
+							context = candidate;
+					}
+				}
+			}
+			if (context)
+				return context;
+			else
+				break;
+		}
+	}
+
+	ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 504,
+			  gds_arg_gds, gds__dsql_cursor_err, 0);
+	return (NULL);				/* Added to remove compiler warnings */
+}
+
+
+static NOD pass1_dbkey( REQ request, NOD input)
+{
+/**************************************
+ *
+ *	p a s s 1 _ d b k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Resolve a dbkey to an available context.
+ *
+ **************************************/
+	NOD node, rel_node;
+	STR qualifier;
+	LLS stack;
+	CTX context;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+	if (!(qualifier = (STR) input->nod_arg[0])) {
+		DEV_BLKCHK(qualifier, type_str);
+		/* No qualifier, if only one context then use, else error */
+
+		if ((stack = request->req_context) && !stack->lls_next)
+		{
+			context = (CTX) stack->lls_object;
+			DEV_BLKCHK(context, type_ctx);
+			node = MAKE_node(nod_dbkey, 1);
+			rel_node = MAKE_node(nod_relation, e_rel_count);
+			rel_node->nod_arg[0] = (NOD) context;
+			node->nod_arg[0] = rel_node;
+			return node;
+		}
+	}
+	else {
+		for (stack = request->req_context; stack; stack = stack->lls_next)
+		{
+			context = (CTX) stack->lls_object;
+			DEV_BLKCHK(context, type_ctx);
+			if ((!(context->ctx_relation) ||
+				 strcmp(reinterpret_cast < const char *>(qualifier->str_data),
+						context->ctx_relation->rel_name)) &&
+				(!(context->ctx_alias)||
+				strcmp(reinterpret_cast<const char*>(qualifier->str_data),
+				context->ctx_alias)))
+			{
+				continue;
+			}
+			node = MAKE_node(nod_dbkey, 1);
+			rel_node = MAKE_node(nod_relation, e_rel_count);
+			rel_node->nod_arg[0] = (NOD) context;
+			node->nod_arg[0] = rel_node;
+			return node;
+		}
+	}
+
+/* field unresolved */
+
+	field_error(reinterpret_cast <
+				char *>(qualifier ? qualifier->str_data : 0), DB_KEY_STRING);
+
+	return NULL;
+}
+
+
+static NOD pass1_delete( REQ request, NOD input)
+{
+/**************************************
+ *
+ *	p a s s 1 _ d e l e t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process INSERT statement.
+ *
+ **************************************/
+	NOD rse, node, temp, cursor, relation;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+	cursor = input->nod_arg[e_del_cursor];
+	relation = input->nod_arg[e_del_relation];
+	if (cursor && (request->req_flags & REQ_procedure)) {
+		node = MAKE_node(nod_erase_current, e_erc_count);
+		node->nod_arg[e_erc_context] =
+			(NOD) pass1_cursor_context(request, cursor, relation);
+		return node;
+	}
+
+	request->req_type = (cursor) ? REQ_DELETE_CURSOR : REQ_DELETE;
+	node = MAKE_node(nod_erase, e_era_count);
+
+/* Generate record selection expression */
+
+	if (cursor)
+		rse = pass1_cursor(request, cursor, relation);
+	else {
+		rse = MAKE_node(nod_rse, e_rse_count);
+		rse->nod_arg[e_rse_streams] = temp = MAKE_node(nod_list, 1);
+		temp->nod_arg[0] = PASS1_node(request, relation, 0);
+		if (temp = input->nod_arg[e_del_boolean])
+			rse->nod_arg[e_rse_boolean] = PASS1_node(request, temp, 0);
+	}
+
+	node->nod_arg[e_era_rse] = rse;
+	temp = rse->nod_arg[e_rse_streams];
+	node->nod_arg[e_era_relation] = temp->nod_arg[0];
+
+	LLS_POP(&request->req_context);
+	return node;
+}
+
+
+static NOD pass1_field( REQ request, NOD input, USHORT list)
+{
+/**************************************
+ *
+ *	p a s s 1 _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Resolve a field name to an available context.
+ *	If list is TRUE, then this function can detect and
+ *	return a relation node if there is no name.   This
+ *	is used for cases of "SELECT <table_name>.* ...".
+ *
+ **************************************/
+	NOD node, indices;
+	STR name, qualifier;
+	FLD field;
+	LLS stack;
+	CTX context;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+/* handle an array element */
+
+	if (input->nod_type == nod_array) {
+		indices = input->nod_arg[e_ary_indices];
+		input = input->nod_arg[e_ary_array];
+	}
+	else
+		indices = NULL;
+
+	if (input->nod_count == 1) {
+		name = (STR) input->nod_arg[0];
+		qualifier = NULL;
+	}
+	else {
+		name = (STR) input->nod_arg[1];
+		qualifier = (STR) input->nod_arg[0];
+	}
+	DEV_BLKCHK(name, type_str);
+	DEV_BLKCHK(qualifier, type_str);
+
+/* Try to resolve field against various contexts;
+   if there is an alias, check only against the first matching */
+
+	for (stack = request->req_context; stack; stack = stack->lls_next)
+	{
+		/* resolve_context() checks the type of the   */
+		/* given context, so the cast to CTX is safe. */
+		field = resolve_context(request,
+								name,
+								qualifier,
+								reinterpret_cast<CTX>(stack->lls_object));
+		if (field)
+		{
+			if (list && !name) {
+				node = MAKE_node(nod_relation, e_rel_count);
+				node->nod_arg[e_rel_context] =
+					reinterpret_cast<NOD>(stack->lls_object);
+				return node;
+			}
+
+			if (!name)
+				break;
+
+			for (; field; field = field->fld_next)
+				if (!strcmp
+					(reinterpret_cast < const char *>(name->str_data),
+					 field->fld_name)) break;
+
+			if (qualifier && !field)
+				break;
+
+			if (field) {
+				/* Intercept any reference to a field with datatype that
+				   did not exist prior to V6 and post an error */
+
+				if (request->req_client_dialect <= SQL_DIALECT_V5)
+					if (field->fld_dtype == dtype_sql_date ||
+						field->fld_dtype == dtype_sql_time ||
+						field->fld_dtype == dtype_int64) {
+						ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 206,
+								  gds_arg_gds, gds__dsql_field_err,
+								  gds_arg_gds, gds__random,
+								  gds_arg_string, field->fld_name,
+								  gds_arg_gds,
+								  isc_sql_dialect_datatype_unsupport,
+								  gds_arg_number, request->req_client_dialect,
+								  gds_arg_string,
+								  DSC_dtype_tostring(static_cast < UCHAR >
+													 (field->fld_dtype)), 0);
+						return NULL;
+					};
+				context = (CTX) stack->lls_object;
+				if (indices)
+					indices = PASS1_node(request, indices, FALSE);
+				node = MAKE_field(context, field, indices);
+				if (context->ctx_parent) {
+					if (!request->req_inhibit_map)
+						node = post_map(node, context->ctx_parent);
+					else if (request->req_context != stack)
+						/* remember the agg context so that we can post
+						   the agg to its map.     
+						 */
+						request->req_outer_agg_context = context->ctx_parent;
+				}
+				return node;
+			}
+		}
+	}
+
+
+	field_error(qualifier ? (TEXT *) qualifier->str_data : (TEXT *) 0,
+				name ? (TEXT *) name->str_data : (TEXT *) 0);
+
+	return NULL;
+}
+
+
+static NOD pass1_insert( REQ request, NOD input)
+{
+/**************************************
+ *
+ *	p a s s 1 _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process INSERT statement.
+ *
+ **************************************/
+	NOD rse, node, *ptr, *ptr2, *end, fields, values, temp;
+	FLD field;
+	DSQL_REL relation;
+	CTX context;
+	LLS stack;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+	request->req_type = REQ_INSERT;
+	node = MAKE_node(nod_store, e_sto_count);
+
+/* Process SELECT expression, if present */
+
+	if (rse = input->nod_arg[e_ins_select]) {
+		node->nod_arg[e_sto_rse] = rse = PASS1_rse(request, rse, 0);
+		values = rse->nod_arg[e_rse_items];
+	}
+	else
+		values = PASS1_node(request, input->nod_arg[e_ins_values], 0);
+
+/* Process relation */
+
+	node->nod_arg[e_sto_relation] = temp =
+		pass1_relation(request, input->nod_arg[e_ins_relation]);
+	context = (CTX) temp->nod_arg[0];
+	DEV_BLKCHK(context, type_ctx);
+	relation = context->ctx_relation;
+
+/* If there isn't a field list, generate one */
+
+	if (fields = input->nod_arg[e_ins_fields])
+		fields = PASS1_node(request, fields, 0);
+	else {
+		stack = NULL;
+		for (field = relation->rel_fields; field; field = field->fld_next)
+			LLS_PUSH(MAKE_field(context, field, 0), &stack);
+		fields = MAKE_list(stack);
+	}
+
+/* Match field fields and values */
+
+	if (fields->nod_count != values->nod_count)
+		/* count of column list and value list don't match */
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 804,
+				  gds_arg_gds, gds__dsql_var_count_err, 0);
+
+	stack = NULL;
+
+	for (ptr = fields->nod_arg, end = ptr + fields->nod_count, ptr2 =
+		 values->nod_arg; ptr < end; ptr++, ptr2++) {
+		DEV_BLKCHK(*ptr, type_nod);
+		DEV_BLKCHK(*ptr2, type_nod);
+		temp = MAKE_node(nod_assign, 2);
+		temp->nod_arg[0] = *ptr2;
+		temp->nod_arg[1] = *ptr;
+		LLS_PUSH(temp, &stack);
+		temp = *ptr2;
+		set_parameter_type(temp, *ptr, FALSE);
+	}
+
+	node->nod_arg[e_sto_statement] = MAKE_list(stack);
+
+	set_parameters_name(node->nod_arg[e_sto_statement],
+						node->nod_arg[e_sto_relation]);
+
+	return node;
+}
+
+
+static NOD pass1_relation( REQ request, NOD input)
+{
+/**************************************
+ *
+ *	p a s s 1 _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a relation name for processing.  
+ *	Allocate a new relation node.
+ *
+ **************************************/
+	NOD node;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+	node = MAKE_node(nod_relation, e_rel_count);
+
+	node->nod_arg[e_rel_context] = (NOD) PASS1_make_context(request, input);
+
+	return node;
+}
+
+
+static NOD pass1_alias_list( REQ request, NOD alias_list)
+{
+/**************************************
+ *
+ *	p a s s 1 _ a l i a s _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	The passed alias list fully specifies a relation.
+ *	The first alias represents a relation specified in
+ *	the from list at this scope levels.  Subsequent
+ *	contexts, if there are any, represent base relations
+ *	in a view stack.  They are used to fully specify a 
+ *	base relation of a view.  The aliases used in the 
+ *	view stack are those used in the view definition.
+ *
+ **************************************/
+	CTX context, new_context;
+	DSQL_REL relation;
+	NOD *arg, *end;
+	USHORT alias_length;
+	TEXT *p, *q;
+	LLS stack;
+	STR alias;
+	TSQL tdsql;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(alias_list, type_nod);
+
+	tdsql = GET_THREAD_DATA;
+
+	arg = alias_list->nod_arg;
+	end = alias_list->nod_arg + alias_list->nod_count;
+
+/* check the first alias in the list with the relations
+   in the current context for a match */
+
+	if (context = pass1_alias(request, (STR) * arg)) {
+		if (alias_list->nod_count == 1)
+			return (NOD) context;
+		relation = context->ctx_relation;
+	}
+
+/* if the first alias didn't specify a table in the context stack, 
+   look through all contexts to find one which might be a view with
+   a base table having a matching table name or alias */
+
+	if (!context)
+		for (stack = request->req_context; stack; stack = stack->lls_next) {
+			context = (CTX) stack->lls_object;
+			if (context->ctx_scope_level == request->req_scope_level &&
+				context->ctx_relation)
+					if (relation =
+						pass1_base_table(request, context->ctx_relation,
+										 (STR) * arg))
+					break;
+			context = NULL;
+		}
+
+	if (!context)
+		/* there is no alias or table named %s at this scope level */
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+				  gds_arg_gds, gds__dsql_command_err,
+				  gds_arg_gds, gds__dsql_no_relation_alias,
+				  gds_arg_string, ((STR) * arg)->str_data, 0);
+
+/* find the base table using the specified alias list, skipping the first one
+   since we already matched it to the context */
+
+	for (arg++; arg < end; arg++)
+		if (!(relation = pass1_base_table(request, relation, (STR) * arg)))
+			break;
+
+	if (!relation)
+		/* there is no alias or table named %s at this scope level */
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+				  gds_arg_gds, gds__dsql_command_err,
+				  gds_arg_gds, gds__dsql_no_relation_alias,
+				  gds_arg_string, ((STR) * arg)->str_data, 0);
+
+/* make up a dummy context to hold the resultant relation */
+
+	new_context = (CTX) ALLOCD(type_ctx);
+	new_context->ctx_context = context->ctx_context;
+	new_context->ctx_relation = relation;
+
+/* concatenate all the contexts to form the alias name;
+   calculate the length leaving room for spaces and a null */
+
+	alias_length = alias_list->nod_count;
+	for (arg = alias_list->nod_arg; arg < end; arg++) {
+		DEV_BLKCHK(*arg, type_str);
+		alias_length += static_cast < USHORT > (((STR) * arg)->str_length);
+	}
+
+	alias = (STR) ALLOCDV(type_str, alias_length);
+	alias->str_length = alias_length;
+
+	p = new_context->ctx_alias = (TEXT *) alias->str_data;
+	for (arg = alias_list->nod_arg; arg < end; arg++) {
+		DEV_BLKCHK(*arg, type_str);
+		for (q = (TEXT *) ((STR) * arg)->str_data; *q;)
+			*p++ = *q++;
+		*p++ = ' ';
+	}
+
+	p[-1] = 0;
+
+	return (NOD) new_context;
+}
+
+
+static CTX pass1_alias( REQ request, STR alias)
+{
+/**************************************
+ *
+ *	p a s s 1 _ a l i a s
+ *
+ **************************************
+ *
+ * Functional description
+ *	The passed relation or alias represents 
+ *	a context which was previously specified
+ *	in the from list.  Find and return the 
+ *	proper context.
+ *
+ **************************************/
+	LLS stack;
+	CTX context, relation_context = NULL;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(alias, type_str);
+
+/* look through all contexts at this scope level
+   to find one that has a relation name or alias
+   name which matches the identifier passed */
+
+	for (stack = request->req_context; stack; stack = stack->lls_next) {
+		context = (CTX) stack->lls_object;
+		if (context->ctx_scope_level != request->req_scope_level)
+			continue;
+
+		/* check for matching alias */
+
+		if (context->ctx_alias &&
+			!strcmp(context->ctx_alias,
+					reinterpret_cast <
+					const char *>(alias->str_data))) return context;
+
+		/* check for matching relation name; aliases take priority so
+		   save the context in case there is an alias of the same name;
+		   also to check that there is no self-join in the query */
+
+		if (context->ctx_relation &&
+			!strcmp(context->ctx_relation->rel_name,
+					reinterpret_cast < const char *>(alias->str_data))) {
+			if (relation_context)
+				/* the table %s is referenced twice; use aliases to differentiate */
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, gds__dsql_command_err,
+						  gds_arg_gds, gds__dsql_self_join,
+						  gds_arg_string, alias->str_data, 0);
+			relation_context = context;
+		}
+	}
+
+	return relation_context;
+}
+
+
+
+static DSQL_REL pass1_base_table( REQ request, DSQL_REL relation, STR alias)
+{
+/**************************************
+ *
+ *	p a s s 1 _ b a s e _ t a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check if the relation in the passed context
+ *	has a base table which matches the passed alias.
+ *
+ **************************************/
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(relation, type_dsql_rel);
+	DEV_BLKCHK(alias, type_str);
+
+	return METD_get_view_relation(request,
+								  reinterpret_cast <
+								  UCHAR * >(relation->rel_name),
+								  alias->str_data, 0);
+}
+
+
+static NOD pass1_rse( REQ request, NOD input, NOD order)
+{
+/**************************************
+ *
+ *	p a s s 1 _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a record selection expression.  
+ *	The input node may either be a "select_expression" 
+ *	or a "list" (an implicit union).
+ *
+ **************************************/
+	NOD rse, parent_rse, target_rse, aggregate, node, list, sub, *ptr, *end,
+		proj;
+	LLS stack;
+	CTX parent_context;
+	TSQL tdsql;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+	DEV_BLKCHK(order, type_nod);
+
+	tdsql = GET_THREAD_DATA;
+
+	aggregate = proj = NULL;
+
+/* Handle implicit union case first.  Maybe it's not a union */
+
+	if (input->nod_type == nod_list) {
+		if (input->nod_count == 1)
+			return PASS1_rse(request, input->nod_arg[0], order);
+		else
+			return pass1_union(request, input, order);
+	}
+
+/* Save the original base of the context stack and process relations */
+
+	parent_context = NULL;
+	parent_rse = NULL;
+	rse = target_rse = MAKE_node(nod_rse, e_rse_count);
+	rse->nod_arg[e_rse_streams] =
+		PASS1_node(request, input->nod_arg[e_sel_from], 0);
+
+/* A GROUP BY, HAVING, or any aggregate function in the select list will
+   force an aggregate */
+
+	if ((node = input->nod_arg[e_sel_list]) && (node->nod_type == nod_list))
+		for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end;
+			 ptr++) {
+			sub = *ptr;
+			if (sub->nod_type == nod_alias)
+				sub = sub->nod_arg[e_alias_value];
+
+			if (aggregate_found(request, sub, &proj)) {
+				parent_context = (CTX) ALLOCD(type_ctx);
+				break;
+			}
+		}
+
+	if (!parent_context && (input->nod_arg[e_sel_group] ||
+							input->nod_arg[e_sel_having]))
+			parent_context = (CTX) ALLOCD(type_ctx);
+
+	if (parent_context) {
+		parent_context->ctx_context = request->req_context_number++;
+		aggregate = MAKE_node(nod_aggregate, e_agg_count);
+		if (proj) {
+			rse->nod_arg[e_rse_reduced] = MAKE_node(nod_list, 1);
+			rse->nod_arg[e_rse_reduced]->nod_arg[0] = proj;
+		}
+		aggregate->nod_arg[e_agg_context] = (NOD) parent_context;
+		aggregate->nod_arg[e_agg_rse] = rse;
+		parent_rse = target_rse = MAKE_node(nod_rse, e_rse_count);
+		parent_rse->nod_arg[e_rse_streams] = list = MAKE_node(nod_list, 1);
+		list->nod_arg[0] = aggregate;
+	}
+
+/* Process boolean, if any */
+
+	if (node = input->nod_arg[e_sel_where]) {
+		++request->req_in_where_clause;
+		rse->nod_arg[e_rse_boolean] = PASS1_node(request, node, 0);
+		--request->req_in_where_clause;
+	}
+
+/* Process GROUP BY clause, if any */
+
+	if (node = input->nod_arg[e_sel_group])
+		aggregate->nod_arg[e_agg_group] = PASS1_node(request, node, 0);
+
+	if (parent_context)
+		LLS_PUSH(parent_context, &request->req_context);
+
+/* Process select list, if any.  If not, generate one */
+
+	if (node = input->nod_arg[e_sel_list]) {
+		++request->req_in_select_list;
+		target_rse->nod_arg[e_rse_items] = list =
+			pass1_sel_list(request, node);
+		--request->req_in_select_list;
+		if (aggregate)
+			for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+				 ptr++)
+				if (invalid_reference(*ptr, aggregate->nod_arg[e_agg_group]))
+					ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+							  gds_arg_gds, gds__field_ref_err,
+							  /* invalid field reference */
+							  0);
+	}
+	else {
+		stack = NULL;
+		list = rse->nod_arg[e_rse_streams];
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++)
+			explode_asterisk(*ptr, aggregate, &stack);
+		target_rse->nod_arg[e_rse_items] = MAKE_list(stack);
+	}
+
+/* parse a user-specified access plan */
+
+	if (node = input->nod_arg[e_sel_plan]) {
+		/* disallow plans in a trigger for the short term,
+		   until we can figure out why they don't work: bug #6057 */
+
+		if (request->req_flags & REQ_trigger)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104, gds_arg_gds, gds__token_err,	/* Token unknown */
+					  gds_arg_gds, gds__random, gds_arg_string, "PLAN", 0);
+
+		rse->nod_arg[e_rse_plan] = PASS1_node(request, node, 0);
+	}
+
+/* If there is a parent context, replace original contexts with parent context */
+
+	if (parent_context) {
+		remap_streams_to_parent_context(rse->nod_arg[e_rse_streams],
+										parent_context);
+	}
+
+	if (input->nod_arg[e_sel_distinct])
+		target_rse->nod_arg[e_rse_reduced] = target_rse->nod_arg[e_rse_items];
+
+/* Process ORDER clause, if any */
+
+	if (order) {
+		++request->req_in_order_by_clause;
+		target_rse->nod_arg[e_rse_sort] =
+			pass1_sort(request, order, input->nod_arg[e_sel_list]);
+		--request->req_in_order_by_clause;
+	}
+
+/* Unless there was a parent, we're done */
+
+	if (!parent_context) {
+		rse->nod_arg[e_rse_singleton] = input->nod_arg[e_sel_singleton];
+		return rse;
+	}
+
+/* Reset context of select items to point to the parent stream */
+	parent_rse->nod_arg[e_rse_items] =
+		copy_fields(parent_rse->nod_arg[e_rse_items], parent_context);
+
+/* And, of course, reduction clauses must also apply to the parent */
+	if (input->nod_arg[e_sel_distinct])
+		parent_rse->nod_arg[e_rse_reduced] = parent_rse->nod_arg[e_rse_items];
+
+/* Process HAVING clause, if any */
+
+	if (node = input->nod_arg[e_sel_having]) {
+		++request->req_in_having_clause;
+		parent_rse->nod_arg[e_rse_boolean] = PASS1_node(request, node, 0);
+		--request->req_in_having_clause;
+#ifdef	CHECK_HAVING
+		if (aggregate)
+			if (invalid_reference(parent_rse->nod_arg[e_rse_boolean],
+								  aggregate->nod_arg[e_agg_group]))
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, gds__field_ref_err,
+						  /* invalid field reference */
+						  0);
+#endif
+	}
+
+	parent_rse->nod_arg[e_rse_singleton] = input->nod_arg[e_sel_singleton];
+	return parent_rse;
+}
+
+
+static NOD pass1_sel_list( REQ request, NOD input)
+{
+/**************************************
+ *
+ *	p a s s 1 _ s e l _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a select list, which may contain things
+ *	like "<table_name>.*".
+ *
+ **************************************/
+	NOD node, *ptr, *end, frnode;
+	LLS stack;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+/*
+   For each node in the list, if it's a field node, see if it's of
+   the form <tablename>.*.   If so, explode the asterisk.   If not,
+   just stack up the node.
+*/
+
+	stack = NULL;
+	for (ptr = input->nod_arg, end = ptr + input->nod_count; ptr < end; ptr++) {
+		DEV_BLKCHK(*ptr, type_nod);
+		if ((*ptr)->nod_type == nod_field_name) {
+
+			/* check for field or relation node */
+
+			frnode = pass1_field(request, *ptr, 1);
+			if (frnode->nod_type == nod_field)
+				LLS_PUSH(frnode, &stack);
+			else
+				explode_asterisk(frnode, NULL, &stack);
+		}
+		else
+			LLS_PUSH(PASS1_node(request, *ptr, 0), &stack);
+	}
+	node = MAKE_list(stack);
+
+	return node;
+}
+
+
+static NOD pass1_sort( REQ request, NOD input, NOD s_list)
+{
+/**************************************
+ *
+ *	p a s s 1 _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a parsed sort list
+ *
+ **************************************/
+	NOD node, *ptr, *end, *ptr2, node1, node2;
+	ULONG position;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+	DEV_BLKCHK(s_list, type_nod);
+
+	if (input->nod_type != nod_list)
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+				  gds_arg_gds, gds__dsql_command_err, gds_arg_gds, gds__order_by_err,	/* invalid ORDER BY clause */
+				  0);
+
+/* Node is simply to be rebuilt -- just recurse merrily */
+
+	node = MAKE_node(input->nod_type, input->nod_count);
+	ptr2 = node->nod_arg;
+
+	for (ptr = input->nod_arg, end = ptr + input->nod_count; ptr < end; ptr++) {
+		DEV_BLKCHK(*ptr, type_nod);
+		node1 = *ptr;
+		if (node1->nod_type != nod_order)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+					  gds_arg_gds, gds__dsql_command_err, gds_arg_gds, gds__order_by_err,	/* invalid ORDER BY clause */
+					  0);
+		node2 = MAKE_node(nod_order, e_order_count);
+		node2->nod_arg[1] = node1->nod_arg[1];
+		node1 = node1->nod_arg[0];
+		if (node1->nod_type == nod_field_name)
+			node2->nod_arg[0] = pass1_field(request, node1, 0);
+		else if (node1->nod_type == nod_position) {
+			position = (ULONG) (node1->nod_arg[0]);
+			if ((position < 1) || !s_list
+				|| (position >
+					(ULONG) s_list->nod_count)) ERRD_post(gds__sqlerr,
+														  gds_arg_number,
+														  (SLONG) - 104,
+														  gds_arg_gds,
+														  gds__dsql_command_err, gds_arg_gds, gds__order_by_err,	/* invalid ORDER BY clause */
+														  0);
+			node2->nod_arg[0] =
+				PASS1_node(request, s_list->nod_arg[position - 1], 0);
+		}
+		else
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+					  gds_arg_gds, gds__dsql_command_err, gds_arg_gds, gds__order_by_err,	/* invalid ORDER BY clause */
+					  0);
+
+		if ((*ptr)->nod_arg[e_order_collate]) {
+			DEV_BLKCHK((*ptr)->nod_arg[e_order_collate], type_str);
+			node2->nod_arg[0] =
+				pass1_collate(request, node2->nod_arg[0],
+							  (STR) (*ptr)->nod_arg[e_order_collate]);
+		}
+		*ptr2++ = node2;
+	}
+
+	return node;
+}
+
+
+static NOD pass1_udf( REQ request, NOD input, USHORT proc_flag)
+{
+/**************************************
+ *
+ *	p a s s 1 _ u d f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle a reference to a user defined function.
+ *
+ **************************************/
+	STR name;
+	UDF udf;
+	NOD node;
+	LLS stack;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+	name = (STR) input->nod_arg[0];
+	DEV_BLKCHK(name, type_str);
+	udf = METD_get_function(request, name);
+	if (!udf)
+		ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 804,
+				  gds_arg_gds, gds__dsql_function_err,
+				  gds_arg_gds, gds__random,
+				  gds_arg_string, name->str_data, 0);
+
+	node = MAKE_node(nod_udf, input->nod_count);
+	node->nod_arg[0] = (NOD) udf;
+	if (input->nod_count == 2) {
+		stack = NULL;
+		pass1_udf_args(request, input->nod_arg[1], &stack, proc_flag);
+		node->nod_arg[1] = MAKE_list(stack);
+	}
+
+	return node;
+}
+
+
+static void pass1_udf_args(
+						   REQ request,
+						   NOD input, LLS * stack, USHORT proc_flag)
+{
+/**************************************
+ *
+ *	p a s s 1 _ u d f _ a r g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle references to function arguments.
+ *
+ **************************************/
+	NOD *ptr, *end;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+	if (input->nod_type != nod_list) {
+		LLS_PUSH(PASS1_node(request, input, proc_flag), stack);
+		return;
+	}
+
+	for (ptr = input->nod_arg, end = ptr + input->nod_count; ptr < end; ptr++)
+		pass1_udf_args(request, *ptr, stack, proc_flag);
+}
+
+
+static NOD pass1_union( REQ request, NOD input, NOD order_list)
+{
+/**************************************
+ *
+ *	p a s s 1 _ u n i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle a UNION of substreams, generating
+ *	a mapping of all the fields and adding an
+ *	implicit PROJECT clause to ensure that all 
+ *	the records returned are unique.
+ *
+ **************************************/
+	NOD map_node, *ptr, *end, items, union_node, *uptr, nod1;
+	NOD union_rse, union_items, order1, order2, sort, position;
+	CTX union_context;
+	MAP map;
+	SSHORT count = 0;
+	ULONG number;
+	SSHORT i, j;				/* for-loop counters */
+	TSQL tdsql;
+	LLS base;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+	DEV_BLKCHK(order_list, type_nod);
+
+	tdsql = GET_THREAD_DATA;
+
+/* set up the rse node for the union */
+
+	union_rse = MAKE_node(nod_rse, e_rse_count);
+	union_rse->nod_arg[e_rse_streams] = union_node =
+		MAKE_node(nod_union, input->nod_count);
+
+/* process all the sub-rse's */
+
+	uptr = union_node->nod_arg;
+	base = request->req_context;
+	for (ptr = input->nod_arg, end = ptr + input->nod_count; ptr < end;
+		 ptr++, uptr++) {
+		*uptr = PASS1_rse(request, *ptr, 0);
+	 /**
+     Do Not pop-off the sub-rse's from the context. This will be
+     needed to generate the correct dyn for view with  unions in
+     it{dsql/ddl.c define_view()}. Note that the rse's will be 
+     popped off later in reset_context_stack(){dsql/ddl.c} after 
+     the dyn generation and at the end of PASS1_statement() after 
+     blr generation.
+     -Sudesh 06/03/1999
+     while (request->req_context != base)
+	LLS_POP (&request->req_context);
+     **/
+	}
+
+/* generate a context for the union itself */
+
+	union_context = (CTX) ALLOCDV(type_ctx, 0);
+	union_context->ctx_context = request->req_context_number++;
+
+/* generate the list of fields to select */
+
+	items = union_node->nod_arg[0]->nod_arg[e_rse_items];
+
+/* loop through the list nodes, checking to be sure that they have the same 
+   number and type of items */
+
+	for (i = 1; i < union_node->nod_count; i++) {
+		nod1 = union_node->nod_arg[i]->nod_arg[e_rse_items];
+		if (items->nod_count != nod1->nod_count)
+			ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+					  gds_arg_gds, gds__dsql_command_err, gds_arg_gds, gds__dsql_count_mismatch,	/* overload of msg */
+					  0);
+
+		for (j = 0; j < nod1->nod_count; j++) {
+			MAKE_desc(&items->nod_arg[j]->nod_desc, items->nod_arg[j]);
+			MAKE_desc(&nod1->nod_arg[j]->nod_desc, nod1->nod_arg[j]);
+
+			/* SQL II, section 9.3, pg 195 governs which data types
+			 * are considered equivilant for a UNION
+			 * The following restriction is in some ways more restrictive
+			 *  (cannot UNION CHAR with VARCHAR for instance)
+			 *  (or cannot union CHAR of different lengths)
+			 * and in someways less restrictive
+			 *  (SCALE is not looked at)
+			 * Workaround: use a direct CAST() statement in the SQL
+			 * statement to force desired datatype.
+			 */
+			if (((nod1->nod_arg[j]->nod_desc.dsc_dtype) !=
+				 (items->nod_arg[j]->nod_desc.dsc_dtype)) ||
+				((nod1->nod_arg[j]->nod_desc.dsc_length) !=
+				 (items->nod_arg[j]->nod_desc.dsc_length)))
+					ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+							  gds_arg_gds, gds__dsql_command_err, gds_arg_gds, gds__dsql_datatype_err,	/* overload of msg */
+							  0);
+		/** 
+		We look only at the items->nod_arg[] when creating the
+		output descriptors. Make sure that the sub-rses
+		descriptor flags are copied onto items->nod_arg[]->nod_desc.
+		Bug 65584.
+		-Sudesh 07/28/1999.
+	    **/
+			if (nod1->nod_arg[j]->nod_desc.dsc_flags & DSC_nullable)
+				items->nod_arg[j]->nod_desc.dsc_flags |= DSC_nullable;
+		}
+	}
+
+	union_items = MAKE_node(nod_list, items->nod_count);
+
+	uptr = items->nod_arg;
+	for (ptr = union_items->nod_arg, end = ptr + union_items->nod_count;
+		 ptr < end; ptr++) {
+		*ptr = map_node = MAKE_node(nod_map, e_map_count);
+		map_node->nod_arg[e_map_context] = (NOD) union_context;
+		map = (MAP) ALLOCD(type_map);
+		map_node->nod_arg[e_map_map] = (NOD) map;
+
+		/* set up the MAP between the sub-rses and the union context */
+
+		map->map_position = count++;
+		map->map_node = *uptr++;
+		map->map_next = union_context->ctx_map;
+		union_context->ctx_map = map;
+	}
+
+	union_rse->nod_arg[e_rse_items] = union_items;
+
+/* Process ORDER clause, if any */
+
+	if (order_list) {
+		sort = MAKE_node(nod_list, order_list->nod_count);
+		uptr = sort->nod_arg;
+		for (ptr = order_list->nod_arg, end = ptr + order_list->nod_count;
+			 ptr < end; ptr++, uptr++) {
+			order1 = *ptr;
+			position = order1->nod_arg[0];
+			if (position->nod_type != nod_position)
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, gds__dsql_command_err, gds_arg_gds, gds__order_by_err,	/* invalid ORDER BY clause */
+						  0);
+			number = (ULONG) position->nod_arg[0];
+			if (number < 1 || number > union_items->nod_count)
+				ERRD_post(gds__sqlerr, gds_arg_number, (SLONG) - 104,
+						  gds_arg_gds, gds__dsql_command_err, gds_arg_gds, gds__order_by_err,	/* invalid ORDER BY clause */
+						  0);
+
+			/* make a new order node pointing at the Nth item in the select list */
+
+			*uptr = order2 = MAKE_node(nod_order, 2);
+			order2->nod_arg[0] = union_items->nod_arg[number - 1];
+			order2->nod_arg[1] = order1->nod_arg[1];
+		}
+		union_rse->nod_arg[e_rse_sort] = sort;
+	}
+
+/* PROJECT on all the select items unless UNION ALL was specified */
+
+	if (!(input->nod_flags & NOD_UNION_ALL))
+		union_rse->nod_arg[e_rse_reduced] = union_items;
+
+	return union_rse;
+}
+
+
+static NOD pass1_update( REQ request, NOD input)
+{
+/**************************************
+ *
+ *	p a s s 1 _ u p d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process UPDATE statement.
+ *
+ **************************************/
+	NOD rse, node, temp, relation, cursor;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+	cursor = input->nod_arg[e_upd_cursor];
+	relation = input->nod_arg[e_upd_relation];
+	if (cursor && (request->req_flags & REQ_procedure)) {
+		node = MAKE_node(nod_modify_current, e_mdc_count);
+		node->nod_arg[e_mdc_context] =
+			(NOD) pass1_cursor_context(request, cursor, relation);
+		node->nod_arg[e_mdc_update] = PASS1_node(request, relation, 0);
+		node->nod_arg[e_mdc_statement] =
+			PASS1_statement(request, input->nod_arg[e_upd_statement], 0);
+		LLS_POP(&request->req_context);
+		return node;
+	}
+
+	request->req_type = (cursor) ? REQ_UPDATE_CURSOR : REQ_UPDATE;
+	node = MAKE_node(nod_modify, e_mod_count);
+	node->nod_arg[e_mod_update] = PASS1_node(request, relation, 0);
+	node->nod_arg[e_mod_statement] =
+		PASS1_statement(request, input->nod_arg[e_upd_statement], 0);
+
+	set_parameters_name(node->nod_arg[e_mod_statement],
+						node->nod_arg[e_mod_update]);
+
+/* Generate record selection expression */
+
+	if (cursor)
+		rse = pass1_cursor(request, cursor, relation);
+	else {
+		rse = MAKE_node(nod_rse, e_rse_count);
+		rse->nod_arg[e_rse_streams] = temp = MAKE_node(nod_list, 1);
+		temp->nod_arg[0] = node->nod_arg[e_mod_update];
+		if (temp = input->nod_arg[e_upd_boolean])
+			rse->nod_arg[e_rse_boolean] = PASS1_node(request, temp, 0);
+	}
+
+	temp = rse->nod_arg[e_rse_streams];
+	node->nod_arg[e_mod_source] = temp->nod_arg[0];
+	node->nod_arg[e_mod_rse] = rse;
+
+	LLS_POP(&request->req_context);
+	return node;
+}
+
+
+static NOD pass1_variable( REQ request, NOD input)
+{
+/**************************************
+ *
+ *	p a s s 1 _ v a r i a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Resolve a variable name to an available variable.
+ *
+ **************************************/
+	NOD procedure_node, var_nodes, var_node, *ptr, *end;
+	STR var_name;
+	VAR var;
+	SSHORT position;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(input, type_nod);
+
+	if (input->nod_type == nod_field_name) {
+		if (input->nod_arg[e_fln_context]) {
+			if (request->req_flags & REQ_trigger)
+				return pass1_field(request, input, 0);
+			else
+				field_error(0, 0);
+		}
+		var_name = (STR) input->nod_arg[e_fln_name];
+	}
+	else
+		var_name = (STR) input->nod_arg[e_vrn_name];
+	DEV_BLKCHK(var_name, type_str);
+
+	if ((procedure_node = request->req_ddl_node) &&
+		(procedure_node->nod_type == nod_def_procedure ||
+		 procedure_node->nod_type == nod_mod_procedure ||
+		 procedure_node->nod_type == nod_def_trigger ||
+		 procedure_node->nod_type == nod_mod_trigger)) {
+		if (procedure_node->nod_type == nod_def_procedure ||
+			procedure_node->nod_type == nod_mod_procedure) {
+			/* Try to resolve variable name against input, output
+			   and local variables */
+
+			if (var_nodes = procedure_node->nod_arg[e_prc_inputs])
+				for (position = 0, ptr = var_nodes->nod_arg, end =
+					 ptr + var_nodes->nod_count; ptr < end; ptr++, position++) {
+					var_node = *ptr;
+					var = (VAR) var_node->nod_arg[e_var_variable];
+					DEV_BLKCHK(var, type_var);
+					if (!strcmp
+						(reinterpret_cast < const char *>(var_name->str_data),
+						 var->var_name)) return var_node;
+				}
+			if (var_nodes = procedure_node->nod_arg[e_prc_outputs])
+				for (position = 0, ptr = var_nodes->nod_arg, end =
+					 ptr + var_nodes->nod_count; ptr < end; ptr++, position++) {
+					var_node = *ptr;
+					var = (VAR) var_node->nod_arg[e_var_variable];
+					DEV_BLKCHK(var, type_var);
+					if (!strcmp
+						(reinterpret_cast < const char *>(var_name->str_data),
+						 var->var_name)) return var_node;
+				}
+			var_nodes = procedure_node->nod_arg[e_prc_dcls];
+		}
+		else
+			var_nodes = procedure_node->nod_arg[e_trg_actions]->nod_arg[0];
+
+		if (var_nodes)
+			for (position = 0, ptr = var_nodes->nod_arg, end =
+				 ptr + var_nodes->nod_count; ptr < end; ptr++, position++) {
+				var_node = *ptr;
+				var = (VAR) var_node->nod_arg[e_var_variable];
+				DEV_BLKCHK(var, type_var);
+				if (!strcmp
+					(reinterpret_cast < const char *>(var_name->str_data),
+					 var->var_name)) return var_node;
+			}
+	}
+
+/* field unresolved */
+
+	field_error(0, 0);
+
+	return NULL;
+}
+
+
+static NOD post_map( NOD node, CTX context)
+{
+/**************************************
+ *
+ *	p o s t _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an item to a map for a context.
+ *
+ **************************************/
+	NOD new_node;
+	MAP map;
+	USHORT count;
+	TSQL tdsql;
+
+	DEV_BLKCHK(node, type_nod);
+	DEV_BLKCHK(context, type_ctx);
+
+	tdsql = GET_THREAD_DATA;
+
+/* Check to see if the item has already been posted */
+
+	for (map = context->ctx_map, count = 0; map; map = map->map_next, count++)
+		if (node_match(node, map->map_node))
+			break;
+
+	if (!map) {
+		map = (MAP) ALLOCD(type_map);
+		map->map_position = count;
+		map->map_next = context->ctx_map;
+		context->ctx_map = map;
+		map->map_node = node;
+	}
+
+	new_node = MAKE_node(nod_map, e_map_count);
+	new_node->nod_count = 0;
+	new_node->nod_arg[e_map_context] = (NOD) context;
+	new_node->nod_arg[e_map_map] = (NOD) map;
+	new_node->nod_desc = node->nod_desc;
+
+	return new_node;
+}
+
+
+static void remap_streams_to_parent_context( NOD input, CTX parent_context)
+{
+/**************************************
+ *
+ *      r e m a p _ s t r e a m s _ t o _ p a r e n t _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	For each relation in the list, flag the relation's context
+ *	as having a parent context.  Be sure to handle joins
+ *	(Bug 6674).
+ *
+ **************************************/
+	CTX context;
+	NOD *ptr, *end;
+
+	DEV_BLKCHK(input, type_nod);
+	DEV_BLKCHK(parent_context, type_ctx);
+
+	switch (input->nod_type) {
+	case nod_list:
+		for (ptr = input->nod_arg, end = ptr + input->nod_count; ptr < end;
+			 ptr++)
+			remap_streams_to_parent_context(*ptr, parent_context);
+		break;
+
+	case nod_relation:
+		context = (CTX) input->nod_arg[e_rel_context];
+		DEV_BLKCHK(context, type_ctx);
+		context->ctx_parent = parent_context;
+		break;
+
+	case nod_join:
+		remap_streams_to_parent_context(input->nod_arg[e_join_left_rel],
+										parent_context);
+		remap_streams_to_parent_context(input->nod_arg[e_join_rght_rel],
+										parent_context);
+		break;
+
+	default:
+		ASSERT_FAIL;
+		break;
+	}
+}
+
+
+static FLD resolve_context( REQ request, STR name, STR qualifier, CTX context)
+{
+/**************************************
+ *
+ *	r e s o l v e _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attempt to resolve field against context.  
+ *	Return first field in context if successful, 
+ *	NULL if not.
+ *
+ **************************************/
+	DSQL_REL relation;
+	PRC procedure;
+	FLD field;
+	TEXT *table_name;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(name, type_str);
+	DEV_BLKCHK(qualifier, type_str);
+	DEV_BLKCHK(context, type_ctx);
+
+	relation = context->ctx_relation;
+	procedure = context->ctx_procedure;
+	if (!relation && !procedure)
+		return NULL;
+
+/* if there is no qualifier, then we cannot match against
+   a context of a different scoping level */
+
+	if (!qualifier && context->ctx_scope_level != request->req_scope_level)
+		return NULL;
+
+	if (relation)
+		table_name = relation->rel_name;
+	else
+		table_name = procedure->prc_name;
+
+/* If a context qualifier is present, make sure this is the
+   proper context */
+
+	if (qualifier &&
+		strcmp(reinterpret_cast < const char *>(qualifier->str_data),
+			   table_name) && (!context->ctx_alias
+							   || strcmp(reinterpret_cast <
+										 const char *>(qualifier->str_data),
+										 context->ctx_alias))) return NULL;
+
+/* Lookup field in relation or procedure */
+
+	if (relation)
+		field = relation->rel_fields;
+	else
+		field = procedure->prc_outputs;
+
+	return field;
+}
+
+
+static BOOLEAN set_parameter_type(
+								  NOD in_node,
+								  NOD node, BOOLEAN force_varchar)
+{
+/**************************************
+ *
+ *	s e t _ p a r a m e t e r _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Setup the datatype of a parameter.
+ *
+ **************************************/
+	NOD *ptr, *end;
+	PAR parameter;
+	BOOLEAN result = 0;
+
+	DEV_BLKCHK(in_node, type_nod);
+	DEV_BLKCHK(node, type_nod);
+
+	if (in_node == NULL)
+		return FALSE;
+
+	switch (in_node->nod_type) {
+	case nod_parameter:
+		MAKE_desc(&in_node->nod_desc, node);
+		parameter = (PAR) in_node->nod_arg[e_par_parameter];
+		DEV_BLKCHK(parameter, type_par);
+		parameter->par_desc = in_node->nod_desc;
+		parameter->par_node = in_node;
+
+		/* Parameters should receive precisely the data that the user
+		   passes in.  Therefore for text strings lets use varying
+		   strings to insure that we don't add trailing blanks. 
+
+		   However, there are situations this leads to problems - so
+		   we use the force_varchar parameter to prevent this
+		   datatype assumption from occuring.
+		 */
+
+		if (force_varchar) {
+			if (parameter->par_desc.dsc_dtype == dtype_text) {
+				parameter->par_desc.dsc_dtype = dtype_varying;
+				parameter->par_desc.dsc_length += sizeof(USHORT);
+			}
+			else if (parameter->par_desc.dsc_dtype > dtype_any_text) {
+				/* The LIKE & similar parameters must be varchar type
+				 * strings - so force this parameter to be varchar
+				 * and take a guess at a good length for it.
+				 */
+				parameter->par_desc.dsc_dtype = dtype_varying;
+				parameter->par_desc.dsc_length = 30 + sizeof(USHORT);
+				parameter->par_desc.dsc_sub_type = 0;
+				parameter->par_desc.dsc_scale = 0;
+				parameter->par_desc.dsc_ttype = ttype_dynamic;
+			}
+		}
+		return TRUE;
+
+	case nod_cast:
+		/* Unable to guess parameters within a CAST() statement - as
+		 * any datatype could be the input to cast.
+		 */
+		return FALSE;
+
+	case nod_add:
+	case nod_add2:
+	case nod_concatenate:
+	case nod_divide:
+	case nod_divide2:
+	case nod_multiply:
+	case nod_multiply2:
+	case nod_negate:
+	case nod_substr:
+	case nod_subtract:
+	case nod_subtract2:
+	case nod_upcase:
+	case nod_extract:
+		result = 0;
+		for (ptr = in_node->nod_arg, end = ptr + in_node->nod_count;
+			 ptr < end; ptr++)
+			result |= set_parameter_type(*ptr, node, force_varchar);
+		return result;
+
+	default:
+		return FALSE;
+	}
+}
+
+
+static void set_parameters_name( NOD list_node, NOD rel_node)
+{
+/**************************************
+ *
+ *      s e t _ p a r a m e t e r s _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Setup parameter parameters name.
+ *
+ **************************************/
+	NOD *ptr, *end;
+	CTX context;
+	DSQL_REL relation;
+
+	DEV_BLKCHK(list_node, type_nod);
+	DEV_BLKCHK(rel_node, type_nod);
+
+	context = (CTX) rel_node->nod_arg[0];
+	DEV_BLKCHK(context, type_ctx);
+	relation = context->ctx_relation;
+
+	for (ptr = list_node->nod_arg, end = ptr + list_node->nod_count;
+		 ptr < end; ptr++) {
+		DEV_BLKCHK(*ptr, type_nod);
+		if ((*ptr)->nod_type == nod_assign)
+			set_parameter_name((*ptr)->nod_arg[0],
+							   (*ptr)->nod_arg[1], relation);
+		else
+			assert(FALSE);
+	}
+}
+
+
+static void set_parameter_name( NOD par_node, NOD fld_node, DSQL_REL relation)
+{
+/**************************************
+ *
+ *      s e t _ p a r a m e t e r _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Setup parameter parameter name.
+ *	This function was added as a part of array data type
+ *	support for InterClient. It is	called when either
+ *	"insert" or "update" statements are parsed. If the
+ *	statements have input parameters, than the parameter
+ *	is assigned the name of the field it is being inserted
+ *	(or updated). The same goes to the name of a relation.
+ *	The names are assigned to the parameter only if the
+ *	field is of array data type.
+ *
+ **************************************/
+	NOD *ptr, *end;
+	PAR parameter;
+	FLD field;
+
+	DEV_BLKCHK(par_node, type_nod);
+	DEV_BLKCHK(fld_node, type_nod);
+	DEV_BLKCHK(relation, type_dsql_rel);
+
+/* Could it be something else ??? */
+	assert(fld_node->nod_type == nod_field);
+
+	if (fld_node->nod_desc.dsc_dtype != dtype_array)
+		return;
+
+	switch (par_node->nod_type) {
+	case nod_parameter:
+		parameter = (PAR) par_node->nod_arg[e_par_parameter];
+		DEV_BLKCHK(parameter, type_par);
+		field = (FLD) fld_node->nod_arg[e_fld_field];
+		DEV_BLKCHK(field, type_fld);
+		parameter->par_name = field->fld_name;
+		parameter->par_rel_name = relation->rel_name;
+		return;
+
+	case nod_add:
+	case nod_add2:
+	case nod_concatenate:
+	case nod_divide:
+	case nod_divide2:
+	case nod_multiply:
+	case nod_multiply2:
+	case nod_negate:
+	case nod_substr:
+	case nod_subtract:
+	case nod_subtract2:
+	case nod_upcase:
+		for (ptr = par_node->nod_arg, end = ptr + par_node->nod_count;
+			 ptr < end; ptr++)
+			set_parameter_name(*ptr, fld_node, relation);
+		return;
+
+	default:
+		return;
+	}
+}
diff --git a/src/dsql/pass1_proto.h b/src/dsql/pass1_proto.h
new file mode 100644
index 0000000000..1166959047
--- /dev/null
+++ b/src/dsql/pass1_proto.h
@@ -0,0 +1,32 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		pass1_proto.h
+ *	DESCRIPTION:	Prototype Header file for pass1.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_PASS1_PROTO_H_
+#define _DSQL_PASS1_PROTO_H_
+
+extern struct ctx *PASS1_make_context(struct req *, struct nod *);
+extern struct nod *PASS1_node(struct req *, struct nod *, USHORT);
+extern struct nod *PASS1_rse(struct req *, struct nod *, struct nod *);
+extern struct nod *PASS1_statement(struct req *, struct nod *, USHORT);
+
+#endif /* _DSQL_PASS1_PROTO_H_ */
diff --git a/src/dsql/prepa_proto.h b/src/dsql/prepa_proto.h
new file mode 100644
index 0000000000..7ab89d36c1
--- /dev/null
+++ b/src/dsql/prepa_proto.h
@@ -0,0 +1,40 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		prepa_proto.h
+ *	DESCRIPTION:	Prototype Header file for preparse.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_PREPA_PROTO_H_
+#define _DSQL_PREPA_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+extern int DLL_EXPORT PREPARSE_execute(STATUS *, SLONG **, SLONG **,
+									   USHORT, SCHAR *, BOOLEAN *, USHORT);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+
+#endif /*  _DSQL_PREPA_PROTO_H_  */
diff --git a/src/dsql/preparse.cpp b/src/dsql/preparse.cpp
new file mode 100644
index 0000000000..f07e68a128
--- /dev/null
+++ b/src/dsql/preparse.cpp
@@ -0,0 +1,599 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		preparse.c
+ *	DESCRIPTION:	Dynamic SQL pre parser / parser on client side. 
+ *			This module will probably change to a YACC parser.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../dsql/chars.h"
+#include "../dsql/prepa_proto.h"
+#include "../dsql/utld_proto.h"
+#include "../jrd/gds_proto.h"
+
+#define CREATE		0
+#define DATABASE	1
+#define SCHEMA		2
+#define PAGE_SIZE	3
+#define USER		4
+#define PASSWORD	5
+#define PAGESIZE	6
+#define LENGTH		7
+#define PAGES		8
+#define PAGE		9
+#define SET		10
+#define NAMES		11
+
+
+#define MAX_TOKEN_SIZE	1024
+
+
+extern "C" {
+
+
+/* use STUFF_DPB in place of STUFF to avoid confusion with BLR STUFF
+   macro defined in dsql.h */
+
+#define STUFF_DPB(blr)	{*dpb++ = (SCHAR)(blr);}
+#define STUFF_DPB_INT(blr)	{STUFF_DPB (blr); STUFF_DPB ((blr) >> 8); STUFF_DPB ((blr) >> 16); STUFF_DPB ((blr) >> 24);}
+
+static void generate_error(STATUS *, SCHAR *, SSHORT, SSHORT);
+static SSHORT get_next_token(SCHAR **, SCHAR *, SCHAR *, USHORT *);
+static SSHORT get_token(STATUS *, SSHORT, BOOLEAN, SCHAR **, SCHAR *,
+						SCHAR *, USHORT *);
+
+typedef struct pp_table {
+	SCHAR symbol[10];
+	SSHORT length;
+	SSHORT code;
+} PP_TABLE;
+
+static CONST PP_TABLE pp_symbols[] = {
+	"CREATE", 6, CREATE,
+	"DATABASE", 8, DATABASE,
+	"SCHEMA", 6, SCHEMA,
+	"PAGE_SIZE", 9, PAGE_SIZE,
+	"USER", 4, USER,
+	"PASSWORD", 8, PASSWORD,
+	"PAGESIZE", 8, PAGESIZE,
+	"LENGTH", 6, LENGTH,
+	"PAGES", 5, PAGES,
+	"PAGE", 4, PAGE,
+	"SET", 3, SET,
+	"NAMES", 5, NAMES,
+	"", 0, 0
+};
+
+/* define the tokens */
+
+#define NO_MORE_TOKENS		-1
+#define TOKEN_TOO_LONG		-2
+#define UNEXPECTED_END_OF_COMMAND -3
+#define UNEXPECTED_TOKEN	-4
+#define STRING			257
+#define NUMERIC			258
+#define SYMBOL			259
+
+
+int DLL_EXPORT PREPARSE_execute(
+								STATUS * user_status,
+								SLONG ** db_handle,
+								SLONG ** trans_handle,
+USHORT stmt_length, SCHAR * stmt, BOOLEAN * stmt_eaten, USHORT dialect)
+{
+/**************************************
+ *
+ *	P R E P A R S E _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TEXT file_name[MAX_TOKEN_SIZE + 1];
+	SCHAR *token, *dpb_array, *dpb, *ch, *stmt_end;
+	SLONG page_size = 0;
+	USHORT dpb_len = 0, token_length;
+	SSHORT i, l, result;
+	BOOLEAN matched, get_out;
+	STATUS temp_status[20];
+	void *temp_db_handle = NULL;
+
+	token = (SCHAR *) gds__alloc((SLONG) MAX_TOKEN_SIZE + 1);
+/* FREE: by return(s) in this procedure */
+	if (!token) {				/* NOMEM: */
+		user_status[0] = isc_arg_gds;
+		user_status[1] = isc_virmemexh;
+		user_status[2] = isc_arg_end;
+		return FALSE;
+	}
+
+	if (!stmt_length)
+		stmt_length = strlen(stmt);
+	stmt_end = stmt + stmt_length;
+
+	if (get_token(user_status, SYMBOL, FALSE, &stmt, stmt_end, token,
+				  &token_length) ||
+		token_length != pp_symbols[CREATE].length ||
+		strcmp(token, pp_symbols[CREATE].symbol)) {
+		gds__free((SLONG *) token);
+		return FALSE;
+	}
+
+	if (get_token(user_status, SYMBOL, FALSE, &stmt, stmt_end, token,
+				  &token_length) ||
+		(token_length != pp_symbols[DATABASE].length &&
+		 token_length != pp_symbols[SCHEMA].length) ||
+		(strcmp(token, pp_symbols[DATABASE].symbol) &&
+		 strcmp(token, pp_symbols[SCHEMA].symbol))) {
+		gds__free((SLONG *) token);
+		return FALSE;
+	}
+
+	if (get_token(user_status, STRING, FALSE, &stmt, stmt_end, token,
+				  &token_length)) {
+		gds__free((SLONG *) token);
+		return TRUE;
+	}
+
+	strcpy(file_name, token);
+	*stmt_eaten = FALSE;
+	dpb = dpb_array = (SCHAR *) gds__alloc((SLONG) 2 * MAX_TOKEN_SIZE + 25);
+/* FREE: by following return(s) in this procedure */
+	if (!dpb_array) {			/* NOMEM: */
+		user_status[0] = isc_arg_gds;
+		user_status[1] = isc_virmemexh;
+		user_status[2] = isc_arg_end;
+		gds__free((SLONG *) token);
+		return TRUE;
+	}
+
+	STUFF_DPB(gds_dpb_version1);
+	STUFF_DPB(isc_dpb_overwrite);
+	STUFF_DPB(1);
+	STUFF_DPB(0);
+	STUFF_DPB(isc_dpb_sql_dialect);
+	STUFF_DPB(4);
+	STUFF_DPB_INT(dialect);
+	do {
+		result = get_next_token(&stmt, stmt_end, token, &token_length);
+		if (result == NO_MORE_TOKENS) {
+			*stmt_eaten = TRUE;
+			break;
+		}
+		else if (result < 0)
+			break;
+
+		matched = FALSE;
+		for (i = 3; pp_symbols[i].length && !matched; i++) {
+			if (token_length == pp_symbols[i].length &&
+				!strcmp(token, pp_symbols[i].symbol)) {
+
+				get_out = FALSE;
+				switch (pp_symbols[i].code) {
+				case PAGE_SIZE:
+				case PAGESIZE:
+					if (get_token(user_status, '=', TRUE, &stmt, stmt_end,
+								  token, &token_length) ||
+						get_token(user_status, NUMERIC, FALSE, &stmt,
+								  stmt_end, token, &token_length)) {
+						get_out = TRUE;
+						break;
+					}
+					page_size = atol(token);
+					STUFF_DPB(gds_dpb_page_size);
+					STUFF_DPB(4);
+					STUFF_DPB_INT(page_size);
+					matched = TRUE;
+					break;
+
+				case USER:
+					if (get_token(user_status, STRING, FALSE, &stmt, stmt_end,
+								  token, &token_length)) {
+						get_out = TRUE;
+						break;
+					}
+
+					STUFF_DPB(gds_dpb_user_name);
+					l = token_length;
+					STUFF_DPB(l);
+					ch = token;
+					while (*ch)
+						STUFF_DPB(*ch++);
+					matched = TRUE;
+					break;
+
+				case PASSWORD:
+					if (get_token(user_status, STRING, FALSE, &stmt, stmt_end,
+								  token, &token_length)) {
+						get_out = TRUE;
+						break;
+					}
+
+					STUFF_DPB(gds_dpb_password);
+					l = token_length;
+					STUFF_DPB(l);
+					ch = token;
+					while (*ch)
+						STUFF_DPB(*ch++);
+					matched = TRUE;
+					break;
+
+				case SET:
+					if (get_token(user_status, SYMBOL, FALSE, &stmt, stmt_end,
+								  token, &token_length) ||
+						token_length != pp_symbols[NAMES].length ||
+						strcmp(token, pp_symbols[NAMES].symbol) ||
+						get_token(user_status, STRING, FALSE, &stmt, stmt_end,
+								  token, &token_length)) {
+						get_out = TRUE;
+						break;
+					}
+
+					STUFF_DPB(gds_dpb_lc_ctype);
+					l = token_length;
+					STUFF_DPB(l);
+					ch = token;
+					while (*ch)
+						STUFF_DPB(*ch++);
+					matched = TRUE;
+					break;
+
+				case LENGTH:
+					/* Skip a token for value */
+
+					if (get_token(user_status, '=', TRUE, &stmt, stmt_end,
+								  token, &token_length) ||
+						get_token(user_status, NUMERIC, FALSE, &stmt,
+								  stmt_end, token, &token_length)) {
+						get_out = TRUE;
+						break;
+					}
+
+					matched = TRUE;
+					break;
+
+				case PAGE:
+				case PAGES:
+					matched = TRUE;
+					break;
+				}
+
+				if (get_out) {
+					gds__free((SLONG *) dpb_array);
+					gds__free((SLONG *) token);
+					return TRUE;
+				}
+			}
+		}
+
+	} while (matched);
+
+	dpb_len = dpb - dpb_array;
+
+/* This code is because 3.3 server does not recognize isc_dpb_overwrite. */
+	if (!isc_attach_database(user_status, 0,
+							 file_name, GDS_REF(temp_db_handle),
+							 dpb_len, dpb_array) ||
+		user_status[1] != gds_io_error) {
+		if (!user_status[1])
+			isc_detach_database(temp_status, &temp_db_handle);
+		if (!user_status[1] || user_status[1] == gds_bad_db_format) {
+			user_status[0] = gds_arg_gds;
+			user_status[1] = gds_io_error;
+			user_status[2] = gds_arg_string;
+			user_status[3] = (STATUS) "open";
+			user_status[4] = gds_arg_string;
+			user_status[5] = (STATUS) file_name;
+			user_status[6] = gds_arg_gds;
+			user_status[7] = gds_db_or_file_exists;
+			user_status[8] = gds_arg_end;
+			UTLD_save_status_strings(user_status);
+		}
+		if (dpb_array)
+			gds__free((SLONG *) dpb_array);
+		gds__free((SLONG *) token);
+		return TRUE;
+	}
+
+	isc_create_database(user_status, 0, file_name,
+						reinterpret_cast < void **>(db_handle), dpb_len,
+						dpb_array, 0);
+
+	if (dpb_array)
+		gds__free((SLONG *) dpb_array);
+	gds__free((SLONG *) token);
+
+	return TRUE;
+}
+
+
+static void generate_error(
+						   STATUS * user_status,
+						   SCHAR * token, SSHORT error, SSHORT result)
+{
+/**************************************
+ *
+ *	g e n e r a t e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description:
+ *
+ **************************************/
+	TEXT err_string[MAX_TOKEN_SIZE + 3];
+	SSHORT length;
+
+	user_status[0] = gds_arg_gds;
+	user_status[1] = gds_sqlerr;
+	user_status[2] = gds_arg_number;
+	user_status[3] = -104;
+	user_status[4] = gds_arg_gds;
+
+	switch (error) {
+	case UNEXPECTED_END_OF_COMMAND:
+		user_status[5] = gds_command_end_err;
+		user_status[6] = gds_arg_end;
+		break;
+
+	case UNEXPECTED_TOKEN:
+	case TOKEN_TOO_LONG:
+		if (result) {
+			err_string[0] = (TEXT) result;
+			strcpy(err_string + 1, token);
+			length = strlen(token);
+			err_string[length + 1] = (TEXT) result;
+			err_string[length + 2] = '\0';
+		}
+		else
+			strcpy(err_string, token);
+		user_status[5] = gds_token_err;
+		user_status[6] = gds_arg_gds;
+		user_status[7] = gds_random;
+		user_status[8] = gds_arg_string;
+		user_status[9] = (STATUS) err_string;
+		user_status[10] = gds_arg_end;
+		UTLD_save_status_strings(user_status);
+		break;
+	}
+}
+
+
+static SSHORT get_next_token(
+							 SCHAR ** stmt,
+							 SCHAR * stmt_end,
+							 SCHAR * token, USHORT * token_length)
+{
+/**************************************
+ *
+ *	g e t _ n e x t _ t o k e n
+ *
+ **************************************
+ *
+ * Functional description:
+ *
+ **************************************/
+	SCHAR *s, *p, *token_end, *start_of_token;
+	UCHAR c, class_;
+	SSHORT length;
+
+	*token_length = 0;
+	s = *stmt;
+
+	for (;;) {
+		if (s >= stmt_end) {
+			*stmt = s;
+			return NO_MORE_TOKENS;
+		}
+		c = *s++;
+		if (c == '/' && s < stmt_end && *s == '*') {
+			s++;
+			while (s < stmt_end) {
+				c = *s++;
+				if (c == '*' && s < stmt_end && *s == '/')
+					break;
+			}
+			s++;
+			continue;
+		}
+		class_ = classes[c];
+		if (!(class_ & CHR_WHITE))
+			break;
+	}
+
+/* At this point c contains character and class contains character class.
+   s is pointing to next character. */
+
+	start_of_token = s - 1;
+
+/* In here we handle only 4 cases, STRING, INTEGER, arbitrary
+   SYMBOL and single character punctuation. */
+
+/* token can be up to MAX_TOKEN_SIZE and 1 is for null termination */
+
+	p = token;
+	token_end = token + MAX_TOKEN_SIZE + 1;
+	if (class_ & CHR_QUOTE) {
+		for (; p < token_end; p++) {
+			if (s >= stmt_end)
+				return UNEXPECTED_END_OF_COMMAND;
+
+			/* *s is quote - if next != quote we're at the end */
+
+			if ((*s == c) && ((++s == stmt_end) || (*s != c)))
+				break;
+			*p = *s++;
+		}
+		*stmt = s;
+		if (p >= token_end) {
+			/* '=' used as then there is no place for null termination */
+
+			*token_length = MAX_TOKEN_SIZE;
+			token[MAX_TOKEN_SIZE] = '\0';
+			return TOKEN_TOO_LONG;
+		}
+		*token_length = (s - start_of_token) - 2;
+		*p = '\0';
+		return STRING;
+	}
+
+/* Is it an integer? */
+
+	if (class_ & CHR_DIGIT) {
+		for (; s < stmt_end && (classes[c = *s] & CHR_DIGIT); ++s);
+		length = (s - start_of_token);
+		*stmt = s;
+		if (length > MAX_TOKEN_SIZE) {
+			memcpy(token, start_of_token, MAX_TOKEN_SIZE);
+			token[MAX_TOKEN_SIZE] = '\0';
+			*token_length = MAX_TOKEN_SIZE;
+			return TOKEN_TOO_LONG;
+		}
+		memcpy(token, start_of_token, length);
+		token[length] = '\0';
+		*token_length = length;
+		return NUMERIC;
+	}
+
+/* Is is a symbol */
+
+	if (class_ & CHR_LETTER) {
+#if (! ( defined JPN_SJIS || defined JPN_EUC) )
+		*p++ = UPPER(c);
+		for (; s < stmt_end && classes[*s] & CHR_IDENT && p < token_end; s++) {
+			*p++ = UPPER(*s);
+		}
+#else
+		for (; s <= stmt_end; c = *s++, c = c & 0xff) {
+			if (KANJI1(c)) {
+				*p++ = UPPER(c);
+				if (s >= stmt_end)
+					break;
+
+				c = *s++;
+				c = c & 0xff;
+				if (!KANJI2(c)) {
+					s--;
+					break;
+				}
+				else
+					*p++ = c;
+			}
+			else {
+#ifdef JPN_SJIS
+				if ((SJIS_SINGLE(c)) || (classes[c] & CHR_IDENT))
+#else
+				if (classes[c] & CHR_IDENT)
+#endif
+				{
+					*p++ = UPPER(c);
+					if (s >= stmt_end)
+						break;
+				}
+				else {
+					s--;
+					break;
+				}
+			}
+		}
+#endif /* JPN_SJIS || JPN_EUC */
+
+		/* what happend to token size check. It went to hell */
+
+		*stmt = s;
+		if (p >= token_end) {
+			*token_length = MAX_TOKEN_SIZE;
+			token[MAX_TOKEN_SIZE] = '\0';
+			return TOKEN_TOO_LONG;
+		}
+		*token_length = s - start_of_token;
+		*p = 0;
+		return SYMBOL;
+	}
+
+/* What remains at this point for us is the single character punctuation.*/
+
+	*stmt = s;
+
+	return (c == ';' ? NO_MORE_TOKENS : c);
+}
+
+
+static SSHORT get_token(
+						STATUS * status,
+						SSHORT token_type,
+						BOOLEAN optional,
+						SCHAR ** stmt,
+SCHAR * stmt_end, SCHAR * token, USHORT * token_length)
+{
+/**************************************
+ *
+ *	g e t _ t o k e n
+ *
+ **************************************
+ *
+ * Functional description:
+ *
+ **************************************/
+	SSHORT result;
+	SCHAR *temp_stmt;
+
+	temp_stmt = *stmt;
+	result = get_next_token(&temp_stmt, stmt_end, token, token_length);
+
+	switch (result) {
+	case NO_MORE_TOKENS:
+		*stmt = temp_stmt;
+		generate_error(status, token, UNEXPECTED_END_OF_COMMAND, 0);
+		return FAILURE;
+
+	case UNEXPECTED_END_OF_COMMAND:
+	case TOKEN_TOO_LONG:
+		*stmt = temp_stmt;
+
+		/* generate error here */
+
+		generate_error(status, token, result, 0);
+		return FAILURE;
+	}
+
+/* Some token was found */
+
+	if (result == token_type) {
+		*stmt = temp_stmt;
+		return SUCCESS;
+	}
+
+	if (optional)
+		return SUCCESS;
+
+/* generate error here and return failure; */
+
+	*stmt = temp_stmt;
+	generate_error(status, token, UNEXPECTED_TOKEN,
+				   (result == STRING) ? *(temp_stmt - 1) : 0);
+	return FAILURE;
+}
+
+
+} // extern "C"
diff --git a/src/dsql/sqlda.h b/src/dsql/sqlda.h
new file mode 100644
index 0000000000..7df9877478
--- /dev/null
+++ b/src/dsql/sqlda.h
@@ -0,0 +1,148 @@
+/*
+ *	PROGRAM:	C preprocessor
+ *	MODULE:		sqlda.h
+ *	DESCRIPTION:	DSQL definitions for non-DSQL modules
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_SQLDA_H_
+#define _DSQL_SQLDA_H_
+
+/* SQLDA dialects */
+
+#define DIALECT_sqlda	0
+#define DIALECT_xsqlda	1
+
+/* Definitions for DSQL free_statement routine */
+
+#define DSQL_close	1
+#define DSQL_drop	2
+
+#ifndef JRD_IBASE_H
+
+/* Dynamic SQL definitions */
+
+#ifndef INCLUDE_FB_TYPES_H
+#include "../include/fb_types.h"
+#endif
+
+
+typedef struct
+{
+	SSHORT	sqltype;
+	SSHORT	sqllen;
+	SCHAR*	sqldata;
+	SSHORT*	sqlind;
+	SSHORT	sqlname_length;
+	SCHAR	sqlname[30];
+} SQLVAR;
+
+typedef struct
+{
+	SCHAR	sqldaid[8];
+	SLONG	sqldabc;
+	SSHORT	sqln;
+	SSHORT	sqld;
+	SQLVAR	sqlvar[1];
+} SQLDA;
+
+#define SQLDA_LENGTH(n)		(sizeof (SQLDA) + (n-1) * sizeof (SQLVAR))
+
+/* Declare the extended SQLDA */
+
+#ifndef FB_SQLDA
+
+typedef struct
+{
+	SSHORT	sqltype;			/* datatype of field */
+	SSHORT	sqlscale;			/* scale factor */
+	SSHORT	sqlsubtype;			/* datatype subtype - currently BLOBs only */
+	SSHORT	sqllen;				/* length of data area */
+	SCHAR*	sqldata;			/* address of data */
+	SSHORT*	sqlind;				/* address of indicator variable */
+	SSHORT	sqlname_length;		/* length of sqlname field */
+	SCHAR	sqlname[32];		/* name of field, name length + space for NULL */
+	SSHORT	relname_length;		/* length of relation name */
+	SCHAR	relname[32];		/* field's relation name + space for NULL */
+	SSHORT	ownname_length;		/* length of owner name */
+	SCHAR	ownname[32];		/* relation's owner name + space for NULL */
+	SSHORT	aliasname_length;	/* length of alias name */
+	SCHAR	aliasname[32];		/* relation's alias name + space for NULL */
+} XSQLVAR;
+
+#define SQLDA_VERSION1		1
+
+typedef struct
+{
+	SSHORT	version;				/* version of this XSQLDA */
+	SCHAR	sqldaid[8];			/* XSQLDA name field */
+	SLONG	sqldabc;				/* length in bytes of SQLDA */
+	SSHORT	sqln;				/* number of fields allocated */
+	SSHORT	sqld;				/* actual number of fields */
+	XSQLVAR	sqlvar[1];			/* first field address */
+} XSQLDA;
+
+#define XSQLDA_LENGTH(n)	(sizeof (XSQLDA) + (n-1) * sizeof (XSQLVAR))
+
+#define FB_SQLDA
+#endif
+
+
+#define SQL_TEXT                           452
+#define SQL_VARYING                        448
+#define SQL_SHORT                          500
+#define SQL_LONG                           496
+#define SQL_FLOAT                          482
+#define SQL_DOUBLE                         480
+#define SQL_D_FLOAT                        530
+#define SQL_TIMESTAMP                      510
+#define SQL_BLOB                           520
+#define SQL_ARRAY                          540
+#define SQL_QUAD                           550
+#define SQL_TYPE_TIME			   560
+#define SQL_TYPE_DATE                      570
+#define SQL_INT64                          580
+
+/* Historical alias for pre v6 code */
+#define SQL_DATE                           SQL_TIMESTAMP
+
+#endif /* JRD_IBASE_H */
+
+/* Structure to support conversion of SQLDA's to messages */
+
+typedef struct dasup
+{
+	struct dasup_clause
+	{
+		SCHAR*	dasup_blr;
+		SCHAR*	dasup_msg;
+		USHORT	dasup_blr_length;
+		USHORT	dasup_blr_buf_len;
+		USHORT	dasup_msg_buf_len;
+	} dasup_clauses[2];
+
+	USHORT	dasup_dialect;		/* Dialect associated with statement */
+	USHORT	dasup_stmt_type;	/* Type of statement */
+
+} *DASUP;
+
+#define DASUP_CLAUSE_select	0
+#define DASUP_CLAUSE_bind	1
+
+#endif /* _DSQL_SQLDA_H_ */
diff --git a/src/dsql/sym.h b/src/dsql/sym.h
new file mode 100644
index 0000000000..5cf25f2dec
--- /dev/null
+++ b/src/dsql/sym.h
@@ -0,0 +1,56 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		sym.h
+ *	DESCRIPTION:	Definitions for symbol table
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_SYM_H_
+#define _DSQL_SYM_H_
+
+#include "../jrd/common.h"
+
+/* possible symbol types */
+
+typedef ENUM sym_type {
+		SYM_statement,
+		SYM_cursor,
+		SYM_keyword,
+		SYM_context,
+		SYM_relation,
+		SYM_field,
+		SYM_stream, SYM_udf, SYM_procedure, SYM_intlsym, SYM_eof} SYM_TYPE;
+
+/* symbol block */
+
+typedef struct sym {
+	struct blk sym_header;
+	void *sym_dbb;				/* generic DB structure handle */
+	TEXT *sym_string;			/* address of asciz string */
+	USHORT sym_length;			/* length of string (exc. term.) */
+	SYM_TYPE sym_type;			/* symbol type */
+	USHORT sym_keyword;			/* keyword number, if keyword */
+	void *sym_object;			/* general pointer to object */
+	struct sym *sym_collision;	/* collision pointer */
+	struct sym *sym_homonym;	/* homonym pointer */
+	TEXT sym_name[2];			/* space for name, if necessary */
+	USHORT sym_version;			/* dialect version the symbol was introduced */
+} *SYM;
+
+#endif /* _DSQL_SYM_H_ */
diff --git a/src/dsql/user__proto.h b/src/dsql/user__proto.h
new file mode 100644
index 0000000000..f2b064ecc3
--- /dev/null
+++ b/src/dsql/user__proto.h
@@ -0,0 +1,96 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		user__proto.h
+ *	DESCRIPTION:	Prototype Header file for user_dsql.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef DSQL_USER__PROTO_H
+#define DSQL_USER__PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+STATUS API_ROUTINE gds__close(STATUS*, SCHAR*);
+STATUS API_ROUTINE gds__declare(STATUS*, SCHAR*, SCHAR*);
+STATUS API_ROUTINE gds__describe(STATUS*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE gds__describe_bind(STATUS*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE gds__dsql_finish(SLONG**);
+STATUS API_ROUTINE gds__execute(STATUS*, SLONG*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE gds__execute_immediate(STATUS*, SLONG*, SLONG*,
+											 SSHORT*, SCHAR*);
+STATUS API_ROUTINE gds__fetch(STATUS*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE gds__fetch_a(STATUS*, int*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE gds__open(STATUS*, SLONG*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE gds__prepare(STATUS*, SLONG*, SLONG*, SCHAR*,
+								   SSHORT*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE gds__to_sqlda(SQLDA*, int, SCHAR*, int, SCHAR*);
+STATUS API_ROUTINE isc_close(STATUS*, SCHAR*);
+STATUS API_ROUTINE isc_declare(STATUS*, SCHAR*, SCHAR*);
+STATUS API_ROUTINE isc_describe(STATUS*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE isc_describe_bind(STATUS*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE isc_dsql_finish(SLONG**);
+STATUS API_ROUTINE isc_dsql_release(STATUS*, SCHAR*);
+STATUS API_ROUTINE isc_dsql_fetch_a(STATUS*, int*, int*, USHORT, int*);
+#ifdef SCROLLABLE_CURSORS
+STATUS API_ROUTINE isc_dsql_fetch2_a(STATUS*, int*, int*, USHORT, int*, USHORT, SLONG);
+#endif
+
+STATUS API_ROUTINE isc_embed_dsql_close(STATUS*, SCHAR*);
+STATUS API_ROUTINE isc_embed_dsql_declare(STATUS*, SCHAR*, SCHAR*);
+STATUS API_ROUTINE isc_embed_dsql_descr_bind(STATUS*, SCHAR*, USHORT, XSQLDA*);
+STATUS API_ROUTINE isc_embed_dsql_describe(STATUS*, SCHAR*, USHORT, XSQLDA*);
+STATUS API_ROUTINE isc_embed_dsql_describe_bind(STATUS*, SCHAR*, USHORT, XSQLDA*);
+STATUS API_ROUTINE isc_embed_dsql_exec_immed(STATUS*, SLONG**, SLONG**, USHORT, SCHAR*, USHORT, XSQLDA*);
+STATUS API_ROUTINE isc_embed_dsql_exec_immed2(STATUS*, SLONG**, SLONG**, USHORT, SCHAR*, USHORT, XSQLDA*, XSQLDA*);
+STATUS API_ROUTINE isc_embed_dsql_execute(STATUS*, SLONG**, SCHAR*, USHORT, XSQLDA*);
+STATUS API_ROUTINE isc_embed_dsql_execute2(STATUS*, SLONG**, SCHAR*, USHORT, XSQLDA*, XSQLDA*);
+STATUS API_ROUTINE isc_embed_dsql_execute_immed(STATUS*, SLONG**, SLONG**, USHORT, SCHAR*, USHORT, XSQLDA*);
+STATUS API_ROUTINE isc_embed_dsql_fetch(STATUS*, SCHAR*, USHORT, XSQLDA*);
+
+#ifdef SCROLLABLE_CURSORS
+STATUS API_ROUTINE isc_embed_dsql_fetch2(STATUS*, SCHAR*, USHORT, XSQLDA*, USHORT, SLONG);
+#endif
+
+STATUS API_ROUTINE isc_embed_dsql_fetch_a(STATUS*, int*, SCHAR*, USHORT, XSQLDA*);
+
+#ifdef SCROLLABLE_CURSORS
+STATUS API_ROUTINE isc_embed_dsql_fetch2_a(STATUS*, int*, SCHAR*, USHORT, XSQLDA*, USHORT, SLONG);
+#endif
+
+STATUS API_ROUTINE isc_embed_dsql_insert(STATUS*, SCHAR*, USHORT, XSQLDA*);
+void   API_ROUTINE isc_embed_dsql_length(UCHAR*, USHORT*);
+STATUS API_ROUTINE isc_embed_dsql_open(STATUS*, SLONG**, SCHAR*, USHORT, XSQLDA*);
+STATUS API_ROUTINE isc_embed_dsql_open2(STATUS*, SLONG**, SCHAR*, USHORT, XSQLDA*, XSQLDA*);
+STATUS API_ROUTINE isc_embed_dsql_prepare(STATUS*, SLONG**, SLONG**, SCHAR*, USHORT, SCHAR*, USHORT, XSQLDA*);
+STATUS API_ROUTINE isc_embed_dsql_release(STATUS*, SCHAR*);
+STATUS API_ROUTINE isc_execute(STATUS*, SLONG*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE isc_execute_immediate(STATUS*, SLONG*, SLONG*, SSHORT*, SCHAR*);
+STATUS API_ROUTINE isc_fetch(STATUS*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE isc_fetch_a(STATUS*, int*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE isc_open(STATUS*, SLONG*, SCHAR*, SQLDA*);
+STATUS API_ROUTINE isc_prepare(STATUS*, SLONG*, SLONG*, SCHAR*, SSHORT*, SCHAR*, SQLDA*);
+int    API_ROUTINE isc_to_sqlda(SQLDA*, int, SCHAR*, int, SCHAR*);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /*  DSQL_USER__PROTO_H */
diff --git a/src/dsql/user_dsql.cpp b/src/dsql/user_dsql.cpp
new file mode 100644
index 0000000000..6cf302cf61
--- /dev/null
+++ b/src/dsql/user_dsql.cpp
@@ -0,0 +1,1662 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		user_dsql.c
+ *	DESCRIPTION:	Above the Y-value entrypoints for DSQL
+ *
+ *
+ * This module contains DSQL related routines that sit on top
+ * of the Y-valve.  This includes the original (pre-version 4)
+ * DSQL routines as well as the alternate VMS and Ada entrypoints
+ * of the new DSQL routines.  The pre-version 4 entrypoints
+ * retain their "gds__" prefix while the new routines are prefixed
+ * with "isc_dsql_".
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../dsql/dsql.h"
+#include "../dsql/chars.h"
+#include "../dsql/sqlda.h"
+#include "../jrd/blr.h"
+#include "../jrd/codes.h"
+#include "../jrd/inf.h"
+#include "../jrd/align.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/why_proto.h"
+#include "../dsql/user__proto.h"
+
+#ifdef VMS
+#include <descrip.h>
+#endif
+
+
+extern "C" {
+
+
+#define NAME_statement	1
+#define NAME_cursor		2
+
+typedef SLONG* HNDL;
+
+/* declare a structure which enables us to associate a cursor with a 
+   statement and vice versa */
+
+struct name;	// fwd. decl.
+
+typedef struct stmt
+{
+	stmt*	stmt_next;			/* next in chain */
+	name*	stmt_stmt;			/* symbol table entry for statement name */
+	name*	stmt_cursor;		/* symbol table entry for cursor name */
+	HNDL	stmt_handle;		/* stmt handle returned by dsql_xxx */
+	HNDL	stmt_db_handle;		/* database handle for this statement */
+} *STMT;
+
+/* declare a structure to hold the cursor and statement names */
+
+typedef struct name
+{
+	name*	name_next;
+	name*	name_prev;
+	STMT	name_stmt;
+	USHORT	name_length;
+	SCHAR	name_symbol[1];
+} *NAME;
+
+
+static void		cleanup(void*);
+static void		cleanup_database(SLONG**, SLONG);
+static STATUS	error();
+static void		error_post(STATUS, ...);
+static NAME		lookup_name(SCHAR*, NAME);
+static STMT		lookup_stmt(SCHAR*, NAME, USHORT);
+static void		init(HNDL*);
+static NAME		insert_name(SCHAR*, NAME *, STMT);
+static USHORT	name_length(SCHAR *);
+static void		remove_name(NAME, NAME *);
+static BOOLEAN	scompare(register SCHAR*, register USHORT, register SCHAR*, USHORT);
+
+/* declare the private data */
+
+#pragma FB_COMPILER_MESSAGE("Dragons ahead. Static data. Not thread safe!")
+
+static BOOLEAN	init_flag		= FALSE;	/* whether we've been initialized */
+static ERR		UDSQL_error		= NULL;
+static STMT		statements		= NULL;
+static NAME		statement_names	= NULL;
+static NAME		cursor_names	= NULL;
+static DBB		databases		= NULL;
+
+static inline
+void set_global_private_status(STATUS* user_status, STATUS* local_status)
+{
+	UDSQL_error->dsql_user_status = user_status;
+	UDSQL_error->dsql_status = (user_status) ? user_status : local_status;
+}
+
+static inline BOOLEAN INIT_DSQL(STATUS* user_status, STATUS* local_status)
+{
+	init(0);
+	set_global_private_status(user_status, local_status);
+	if (SETJMP (UDSQL_error->dsql_env)) {
+		return FALSE;
+	}
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//
+//	Close a dynamic SQL cursor.
+//
+STATUS API_ROUTINE isc_embed_dsql_close(STATUS* user_status, SCHAR* name)
+{
+	STATUS local_status[20];
+
+	if (!INIT_DSQL(user_status, local_status)) {
+		return error();
+	}
+
+	// get the symbol table entry
+
+	STMT statement = lookup_stmt(name, cursor_names, NAME_cursor);
+
+	return isc_dsql_free_statement(	user_status,
+									reinterpret_cast<hndl**>(&statement->stmt_handle),
+									DSQL_close);
+}
+
+
+//____________________________________________________________
+//
+//	Declare a cursor for a dynamic request.
+//
+STATUS API_ROUTINE isc_embed_dsql_declare(	STATUS*	user_status,
+											SCHAR*	stmt_name,
+											SCHAR*	cursor)
+{
+	STATUS local_status[20];
+
+	if (!INIT_DSQL(user_status, local_status)) {
+		return error();
+	}
+
+	// get the symbol table entry
+
+	STMT statement = lookup_stmt(stmt_name, statement_names, NAME_statement);
+
+	STATUS s =
+		isc_dsql_set_cursor_name(user_status,
+								 reinterpret_cast<hndl**>(&statement->stmt_handle),
+								 cursor,
+								 0);
+	if (s) {
+		return s;
+	}
+
+	statement->stmt_cursor = insert_name(cursor, &cursor_names, statement);
+
+	return s;
+}
+
+
+//____________________________________________________________
+//
+//	Describe output parameters for a prepared statement.
+//
+STATUS API_ROUTINE isc_embed_dsql_describe(STATUS* user_status,
+										   SCHAR* stmt_name,
+										   USHORT dialect, XSQLDA* sqlda)
+{
+	STATUS local_status[20];
+
+	if (!INIT_DSQL(user_status, local_status)) {
+		return error();
+	}
+
+	// get the symbol table entry
+
+	STMT statement = lookup_stmt(stmt_name, statement_names, NAME_statement);
+
+	return isc_dsql_describe(user_status,
+							 reinterpret_cast<hndl**>(&statement->stmt_handle),
+							 dialect,
+							 sqlda);
+}
+
+
+//____________________________________________________________
+//
+//	isc_embed_dsql_descr_bind
+//
+STATUS API_ROUTINE isc_embed_dsql_descr_bind(	STATUS*	user_status,
+												SCHAR*	stmt_name,
+												USHORT	dialect,
+												XSQLDA*	sqlda)
+{
+	return isc_embed_dsql_describe_bind(user_status,
+										stmt_name,
+										dialect,
+										sqlda);
+}
+
+
+//____________________________________________________________
+//
+//	Describe input parameters for a prepared statement.
+//
+STATUS API_ROUTINE isc_embed_dsql_describe_bind(STATUS*	user_status,
+												SCHAR*	stmt_name,
+												USHORT	dialect,
+												XSQLDA*	sqlda)
+{
+	STATUS local_status[20];
+
+	if (!INIT_DSQL(user_status, local_status)) {
+		return error();
+	}
+
+	// get the symbol table entry
+
+	STMT statement = lookup_stmt(stmt_name, statement_names, NAME_statement);
+
+	return isc_dsql_describe_bind(user_status,
+								  reinterpret_cast<hndl**>(&statement->stmt_handle),
+								  dialect,
+								  sqlda);
+}
+
+
+//____________________________________________________________
+//
+//	Execute a non-SELECT dynamic SQL statement.
+//
+STATUS API_ROUTINE isc_embed_dsql_execute(STATUS*	user_status,
+										  SLONG**	trans_handle,
+										  SCHAR*	stmt_name,
+										  USHORT	dialect,
+										  XSQLDA*	sqlda)
+{
+	return isc_embed_dsql_execute2(	user_status,
+									trans_handle,
+									stmt_name,
+									dialect,
+									sqlda,
+									NULL);
+}
+
+
+//____________________________________________________________
+//
+//	Execute a non-SELECT dynamic SQL statement.
+//
+STATUS API_ROUTINE isc_embed_dsql_execute2(STATUS*	user_status,
+										   SLONG**	trans_handle,
+										   SCHAR*	stmt_name,
+										   USHORT	dialect,
+										   XSQLDA*	in_sqlda,
+										   XSQLDA*	out_sqlda)
+{
+	STATUS local_status[20];
+
+	if (!INIT_DSQL(user_status, local_status)) {
+		return error();
+	}
+
+	// get the symbol table entry
+
+	STMT statement = lookup_stmt(stmt_name, statement_names, NAME_statement);
+
+	return isc_dsql_execute2(	user_status,
+								reinterpret_cast<hndl**>(trans_handle),
+								reinterpret_cast<hndl**>(&statement->stmt_handle),
+								dialect,
+								in_sqlda,
+								out_sqlda);
+}
+
+
+//____________________________________________________________
+//
+//	isc_embed_dsql_exec_immed
+//
+STATUS API_ROUTINE isc_embed_dsql_exec_immed(STATUS*	user_status,
+											 SLONG**	db_handle,
+											 SLONG**	trans_handle,
+											 USHORT		length,
+											 SCHAR*		string,
+											 USHORT		dialect,
+											 XSQLDA*	sqlda)
+{
+	return isc_embed_dsql_execute_immed(user_status,
+										db_handle,
+										trans_handle,
+										length,
+										string,
+										dialect,
+										sqlda);
+}
+
+
+//____________________________________________________________
+//
+//	Prepare a statement for execution.
+//
+STATUS API_ROUTINE isc_embed_dsql_execute_immed(STATUS*	user_status,
+												SLONG**	db_handle,
+												SLONG**	trans_handle,
+												USHORT	length,
+												SCHAR*	string,
+												USHORT	dialect,
+												XSQLDA*	sqlda)
+{
+	return isc_embed_dsql_exec_immed2(	user_status,
+										db_handle,
+										trans_handle,
+										length,
+										string,
+										dialect,
+										sqlda,
+										NULL);
+}
+
+
+//____________________________________________________________
+//
+//	Prepare a statement for execution.
+//
+STATUS API_ROUTINE isc_embed_dsql_exec_immed2(	STATUS*	user_status,
+												SLONG**	db_handle,
+												SLONG**	trans_handle,
+												USHORT	length,
+												SCHAR*	string,
+												USHORT	dialect,
+												XSQLDA*	in_sqlda,
+												XSQLDA*	out_sqlda)
+{
+	return isc_dsql_exec_immed2(user_status,
+								reinterpret_cast<hndl**>(db_handle),
+								reinterpret_cast<hndl**>(trans_handle),
+								length,
+								string,
+								dialect,
+								in_sqlda,
+								out_sqlda);
+}
+
+
+#ifdef VMS
+//____________________________________________________________
+//
+//	An execute immediate for COBOL to call
+//
+STATUS API_ROUTINE isc_embed_dsql_execute_immed_d(STATUS* user_status,
+												  SLONG** db_handle,
+												  SLONG** trans_handle,
+												  struct dsc$descriptor_s *
+												  string, USHORT dialect,
+												  XSQLDA* sqlda)
+{
+	return isc_embed_dsql_exec_immed2_d(user_status,
+										db_handle, trans_handle, string,
+										dialect, sqlda, NULL);
+}
+#endif
+
+
+#ifdef VMS
+//____________________________________________________________
+//
+//	An execute immediate for COBOL to call
+//
+STATUS API_ROUTINE isc_embed_dsql_exec_immed2_d(STATUS* user_status,
+												SLONG** db_handle,
+												SLONG** trans_handle,
+												struct dsc$descriptor_s *
+												string, USHORT dialect,
+												XSQLDA* in_sqlda,
+												XSQLDA* out_sqlda)
+{
+	USHORT len = string->dsc$w_length;
+
+	return isc_embed_dsql_exec_immed2(user_status, db_handle,
+									  trans_handle, len,
+									  string->dsc$a_pointer, dialect,
+									  in_sqlda, out_sqlda);
+}
+#endif
+
+
+//____________________________________________________________
+//
+//	Fetch next record from a dynamic SQL cursor
+//
+STATUS API_ROUTINE isc_embed_dsql_fetch(STATUS* user_status,
+										SCHAR* cursor_name,
+										USHORT dialect, XSQLDA* sqlda)
+{
+	STATUS local_status[20];
+
+	if (!INIT_DSQL(user_status, local_status)) {
+		return error();
+	}
+
+	STMT statement = lookup_stmt(cursor_name, cursor_names, NAME_cursor);
+
+	return isc_dsql_fetch(user_status,
+						  reinterpret_cast<hndl**>(&statement->stmt_handle),
+						  dialect,
+						  sqlda);
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+//____________________________________________________________
+//
+//	Fetch next record from a dynamic SQL cursor
+//
+STATUS API_ROUTINE isc_embed_dsql_fetch2(	STATUS*	user_status,
+											SCHAR*	cursor_name,
+											USHORT	dialect,
+											XSQLDA*	sqlda,
+											USHORT	direction,
+											SLONG	offset)
+{
+	STATUS local_status[20];
+
+	if (!INIT_DSQL(user_status, local_status)) {
+		return error();
+	}
+
+	// get the symbol table entry
+
+	STMT statement = lookup_stmt(cursor_name, cursor_names, NAME_cursor);
+
+	return isc_dsql_fetch2(	user_status,
+							&statement->stmt_handle,
+							dialect,
+							sqlda,
+							direction,
+							offset);
+}
+#endif
+
+
+//____________________________________________________________
+//
+//	Fetch next record from a dynamic SQL cursor (ADA version)
+//
+STATUS API_ROUTINE isc_embed_dsql_fetch_a(	STATUS*	user_status,
+											int*	sqlcode,
+											SCHAR*	cursor_name,
+											USHORT	dialect,
+											XSQLDA*	sqlda)
+{
+	*sqlcode = 0;
+
+	STATUS s = isc_embed_dsql_fetch(user_status, cursor_name, dialect, sqlda);
+	if (s == 100) {
+		*sqlcode = 100;
+	}
+
+	return SUCCESS;
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+STATUS API_ROUTINE isc_embed_dsql_fetch2_a(STATUS* user_status,
+										   int *sqlcode,
+										   SCHAR* cursor_name,
+										   USHORT dialect,
+										   XSQLDA* sqlda,
+										   USHORT direction, SLONG offset)
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ f e t c h 2 _ a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor (ADA version)
+ *
+ **************************************/
+	STATUS s;
+
+	*sqlcode = 0;
+
+	s =
+		isc_embed_dsql_fetch2(user_status, cursor_name, dialect, sqlda,
+							  direction, offset);
+	if (s == 100)
+		*sqlcode = 100;
+
+	return SUCCESS;
+}
+#endif
+
+
+STATUS API_ROUTINE isc_embed_dsql_insert(STATUS* user_status,
+										 SCHAR* cursor_name,
+										 USHORT dialect, XSQLDA* sqlda)
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert next record into a dynamic SQL cursor
+ *
+ **************************************/
+	STATUS local_status[20];
+	STMT statement;
+
+	if (!INIT_DSQL(user_status, local_status)) {
+		return error();
+	}
+
+/* get the symbol table entry */
+
+	statement = lookup_stmt(cursor_name, cursor_names, NAME_cursor);
+
+	return isc_dsql_insert(user_status,
+						   reinterpret_cast<hndl**>(&statement->stmt_handle),
+						   dialect,
+						   sqlda);
+}
+
+
+void API_ROUTINE isc_embed_dsql_length( UCHAR * string, USHORT * length)
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine length of a ';' or null terminated string
+ *
+ **************************************/
+	UCHAR *p, quote, prev;
+
+	for (p = string; *p && *p != ';'; p++)
+		if (classes[*p] & CHR_QUOTE) {
+			for (prev = 0, quote = *p++; *p == quote || prev == quote;)
+				prev = *p++;
+			p--;
+		}
+
+	*length = p - string + 1;
+}
+
+
+STATUS API_ROUTINE isc_embed_dsql_open(STATUS* user_status,
+									   SLONG** trans_handle,
+									   SCHAR* cursor_name,
+									   USHORT dialect, XSQLDA* sqlda)
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a dynamic SQL cursor.
+ *
+ **************************************/
+
+	return isc_embed_dsql_open2(user_status, trans_handle, cursor_name,
+								dialect, sqlda, NULL);
+}
+
+
+STATUS API_ROUTINE isc_embed_dsql_open2(STATUS* user_status,
+										SLONG** trans_handle,
+										SCHAR* cursor_name,
+										USHORT dialect,
+										XSQLDA* in_sqlda, XSQLDA* out_sqlda)
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ o p e n 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a dynamic SQL cursor.
+ *
+ **************************************/
+	STATUS local_status[20];
+	STMT stmt;
+
+	if (!INIT_DSQL(user_status, local_status)) {
+		return error();
+	}
+
+/* get the symbol table entry */
+
+	stmt = lookup_stmt(cursor_name, cursor_names, NAME_cursor);
+
+	return isc_dsql_execute2(user_status,
+							 reinterpret_cast<hndl**>(trans_handle),
+							 reinterpret_cast<hndl**>(&stmt->stmt_handle),
+							 dialect, in_sqlda, out_sqlda);
+}
+
+
+STATUS API_ROUTINE isc_embed_dsql_prepare(STATUS*	user_status,
+										  SLONG**	db_handle,
+										  SLONG**	trans_handle,
+										  SCHAR*	stmt_name,
+										  USHORT	length,
+										  SCHAR*	string,
+										  USHORT	dialect,
+										  XSQLDA*	sqlda)
+ {
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+	STATUS s, local_status[20], local_status2[20];
+	STMT statement;
+	HNDL stmt_handle;
+
+	init(db_handle);
+	set_global_private_status(user_status, local_status);
+
+	if (SETJMP(UDSQL_error->dsql_env)) {
+		return error();
+	}
+
+	NAME name = lookup_name(stmt_name, statement_names);
+
+	if (name && name->name_stmt->stmt_db_handle == *db_handle)
+	{
+		/* The statement name already exists for this database.
+		   Re-use its statement handle. */
+
+		statement = name->name_stmt;
+		stmt_handle = statement->stmt_handle;
+	}
+	else
+	{
+		/* This is a new statement name for this database.
+		   Allocate a statement handle for it. */
+
+		if (name) {
+			isc_embed_dsql_release(user_status, stmt_name);
+		}
+		statement = NULL;
+		stmt_handle = NULL;
+		s = isc_dsql_allocate_statement(user_status,
+										reinterpret_cast<hndl**>(db_handle),
+										reinterpret_cast<hndl**>(&stmt_handle));
+		if (s)
+		{
+			return s;
+		}
+	}
+
+	s = isc_dsql_prepare(user_status,
+						 reinterpret_cast<hndl**>(trans_handle),
+						 reinterpret_cast<hndl**>(&stmt_handle),
+						 length, string, dialect, sqlda);
+
+	if (s) {
+		/* An error occurred.  Free any newly allocated statement handle. */
+
+		if (!statement) {
+			isc_dsql_free_statement(local_status2,
+									reinterpret_cast<hndl**>(&stmt_handle),
+									DSQL_drop);
+		}
+		return error();
+	}
+
+/* If a new statement was allocated, add it to the symbol table and insert it
+   into the list of statements */
+
+	if (!statement)
+	{
+		statement = (STMT) gds__alloc((SLONG) sizeof(struct stmt));
+		/* FREE: by user calling isc_embed_dsql_release() */
+		if (!statement)			/* NOMEM: */
+			error_post(isc_virmemexh, 0);
+
+#ifdef DEBUG_GDS_ALLOC
+		gds_alloc_flag_unfreed((void *) statement);
+#endif	/* DEBUG_GDS_ALLOC */
+
+		statement->stmt_next = statements;
+		statements = statement;
+
+		statement->stmt_db_handle = (HNDL) * db_handle;
+		statement->stmt_stmt =
+			insert_name(stmt_name, &statement_names, statement);
+	}
+	else if (statement->stmt_cursor)
+		remove_name(statement->stmt_cursor, &cursor_names);
+
+	statement->stmt_handle = stmt_handle;
+	statement->stmt_cursor = NULL;
+
+	return s;
+}
+
+
+#ifdef VMS
+STATUS API_ROUTINE isc_embed_dsql_prepare_d(STATUS* user_status,
+											SLONG** db_handle,
+											SLONG** trans_handle,
+											SCHAR* stmt_name,
+											struct dsc$descriptor_s * string,
+											USHORT dialect, XSQLDA* sqlda)
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ p r e p a r e _ d
+ *
+ **************************************
+ *
+ * Functional description
+ *	A prepare for COBOL to call
+ *
+ **************************************/
+	USHORT len;
+
+	len = string->dsc$w_length;
+
+	return isc_embed_dsql_prepare(user_status, db_handle,
+								  trans_handle, stmt_name, len,
+								  string->dsc$a_pointer, dialect, sqlda);
+}
+#endif
+
+
+STATUS API_ROUTINE isc_embed_dsql_release(STATUS* user_status,
+										  SCHAR* stmt_name)
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release request for a dsql statement
+ *
+ **************************************/
+	STATUS	local_status[20];
+	STMT*	stmt_ptr, p;
+
+	if (!INIT_DSQL(user_status, local_status)) {
+		return error();
+	}
+
+/* If a request already exists under that name, purge it out */
+
+	STMT statement = lookup_stmt(stmt_name, statement_names, NAME_statement);
+
+	STATUS s =
+		isc_dsql_free_statement(user_status,
+								reinterpret_cast<hndl**>(&statement->stmt_handle),
+								DSQL_drop);
+	if (s) {
+		return s;
+	}
+
+	// remove the statement from the symbol tables
+
+	if (statement->stmt_stmt)
+		remove_name(statement->stmt_stmt, &statement_names);
+	if (statement->stmt_cursor)
+		remove_name(statement->stmt_cursor, &cursor_names);
+
+	// and remove this statement from the local list
+
+	for (stmt_ptr = &statements; p = *stmt_ptr; stmt_ptr = &p->stmt_next) {
+		if (p == statement) {
+			*stmt_ptr = statement->stmt_next;
+			gds__free(statement);
+			break;
+		}
+	}
+
+	return s;
+}
+
+
+#ifdef VMS
+int API_ROUTINE isc_dsql_execute_immediate_d(
+											 STATUS* user_status,
+											 int db_handle,
+											 int trans_handle,
+											 struct dsc$descriptor_s *string,
+											 USHORT dialect, XSQLDA* sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c u t e _ i m m e d i a t e _ d
+ *
+ **************************************
+ *
+ * Functional description
+ *	An execute immediate for COBOL to call
+ *
+ **************************************/
+	USHORT len;
+
+	len = string->dsc$w_length;
+
+	return isc_dsql_execute_immediate(user_status, db_handle, trans_handle,
+									  len, string->dsc$a_pointer, dialect,
+									  sqlda);
+}
+#endif
+
+
+STATUS API_ROUTINE isc_dsql_fetch_a(STATUS* user_status,
+									int *sqlcode,
+									int *stmt_handle,
+									USHORT dialect, int *sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ f e t c h _ a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor (ADA version)
+ *
+ **************************************/
+	STATUS s;
+
+	*sqlcode = 0;
+
+	s = isc_dsql_fetch(	user_status,
+						reinterpret_cast<hndl**>(stmt_handle),
+						dialect,
+						reinterpret_cast<XSQLDA*>(sqlda));
+	if (s == 100)
+		*sqlcode = 100;
+
+	return SUCCESS;
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+STATUS API_ROUTINE isc_dsql_fetch2_a(STATUS* user_status,
+									 int *sqlcode,
+									 int *stmt_handle,
+									 USHORT dialect,
+									 int *sqlda,
+									 USHORT direction, SLONG offset)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ f e t c h 2 _ a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor (ADA version)
+ *
+ **************************************/
+	STATUS s;
+
+	*sqlcode = 0;
+
+	s =
+		isc_dsql_fetch2(user_status, stmt_handle, dialect, sqlda, direction,
+						offset);
+	if (s == 100)
+		*sqlcode = 100;
+
+	return SUCCESS;
+}
+#endif
+
+
+#ifdef VMS
+int API_ROUTINE isc_dsql_prepare_d(	STATUS*						user_status,
+									int							trans_handle,
+									int							stmt_handle,
+									struct dsc$descriptor_s*	string,
+									USHORT						dialect,
+									XSQLDA*						sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ p r e p a r e _ d
+ *
+ **************************************
+ *
+ * Functional description
+ *	A prepare for COBOL to call
+ *
+ **************************************/
+	USHORT len;
+
+	len = string->dsc$w_length;
+
+	return isc_dsql_prepare(user_status, trans_handle, stmt_handle,
+							len, string->dsc$a_pointer, dialect, sqlda);
+}
+#endif
+
+
+/**************************************
+ *
+ *	i s c _ . . .
+ *
+ **************************************
+ *
+ * Functional description
+ *	The following routines define the
+ *	old isc_ entrypoints.
+ *
+ **************************************/
+STATUS API_ROUTINE isc_close(STATUS* status_vector, SCHAR* statement_name)
+{
+	return isc_embed_dsql_close(status_vector, statement_name);
+}
+
+STATUS API_ROUTINE isc_declare(	STATUS*	status_vector,
+								SCHAR*	statement_name,
+								SCHAR*	cursor_name)
+{
+	return isc_embed_dsql_declare(status_vector, statement_name, cursor_name);
+}
+
+STATUS API_ROUTINE isc_describe(STATUS* status_vector,
+								SCHAR* statement_name, SQLDA* sqlda)
+{
+	return isc_embed_dsql_describe(status_vector,
+								   statement_name,
+								   (USHORT) DIALECT_sqlda,
+								   reinterpret_cast<XSQLDA*>(sqlda));
+}
+
+STATUS API_ROUTINE isc_describe_bind(STATUS* status_vector,
+									 SCHAR* statement_name,
+									 SQLDA* sqlda)
+{
+	return isc_embed_dsql_describe_bind(status_vector,
+										statement_name,
+										(USHORT) DIALECT_sqlda,
+										reinterpret_cast<XSQLDA*>(sqlda));
+}
+
+STATUS API_ROUTINE isc_dsql_finish(HNDL * db_handle)
+{
+	return 0;
+}
+
+STATUS API_ROUTINE isc_execute(STATUS* status_vector,
+							   SLONG* tra_handle,
+							   SCHAR* statement_name, SQLDA* sqlda)
+{
+	return isc_embed_dsql_execute(status_vector,
+								  (SLONG**) tra_handle,
+								  statement_name,
+								  (USHORT) DIALECT_sqlda,
+								  reinterpret_cast<XSQLDA*>(sqlda));
+}
+
+STATUS API_ROUTINE isc_execute_immediate(STATUS* status_vector,
+										 SLONG* db_handle,
+										 SLONG* tra_handle,
+										 SSHORT * sql_length, SCHAR* sql)
+{
+	return isc_embed_dsql_execute_immed(status_vector,
+										(SLONG**) db_handle,
+										(SLONG**) tra_handle,
+										(USHORT) ((sql_length) ? *sql_length :
+												  0), sql,
+										(USHORT) DIALECT_sqlda, NULL);
+}
+
+#ifdef VMS
+STATUS API_ROUTINE isc_execute_immediate_d(STATUS* status_vector,
+										   SLONG* db_handle,
+										   SLONG* tra_handle,
+										   struct dsc$descriptor_s * string)
+{
+	USHORT len;
+
+	len = string->dsc$w_length;
+
+	return isc_execute_immediate(status_vector,
+								 db_handle,
+								 tra_handle, &len, string->dsc$a_pointer);
+}
+#endif
+
+STATUS API_ROUTINE isc_fetch(STATUS* status_vector,
+							 SCHAR* cursor_name, SQLDA* sqlda)
+{
+	return isc_embed_dsql_fetch(status_vector,
+								cursor_name,
+								(USHORT) DIALECT_sqlda,
+								reinterpret_cast<XSQLDA*>(sqlda));
+}
+
+STATUS API_ROUTINE isc_fetch_a(STATUS* status_vector,
+							   int *sqlcode,
+							   SCHAR* cursor_name, SQLDA* sqlda)
+{
+	return isc_embed_dsql_fetch_a(status_vector,
+								  sqlcode,
+								  cursor_name,
+								  (USHORT) DIALECT_sqlda,
+								  reinterpret_cast<XSQLDA*>(sqlda));
+}
+
+STATUS API_ROUTINE isc_open(STATUS* status_vector,
+							SLONG* tra_handle,
+							SCHAR* cursor_name, SQLDA* sqlda)
+{
+	return isc_embed_dsql_open(status_vector,
+							   (SLONG**) tra_handle,
+							   cursor_name,
+							   (USHORT) DIALECT_sqlda,
+							   reinterpret_cast<XSQLDA*>(sqlda));
+}
+
+STATUS API_ROUTINE isc_prepare(	STATUS*	status_vector,
+								SLONG*	db_handle,
+								SLONG*	tra_handle,
+								SCHAR*	statement_name,
+								SSHORT*	sql_length,
+								SCHAR*	sql,
+								SQLDA*	sqlda)
+{
+	return isc_embed_dsql_prepare(	status_vector,
+									(SLONG**) db_handle,
+									(SLONG**) tra_handle,
+									statement_name,
+									(USHORT) ((sql_length) ? *sql_length : 0),
+									sql,
+									(USHORT) DIALECT_sqlda,
+									reinterpret_cast<XSQLDA*>(sqlda));
+}
+
+#ifdef VMS
+STATUS API_ROUTINE isc_prepare_d(STATUS* status_vector,
+								 SLONG* db_handle,
+								 SLONG* tra_handle,
+								 SCHAR* statement_name,
+								 struct dsc$descriptor_s * string,
+								 SQLDA* sqlda)
+{
+	USHORT len;
+
+	len = string->dsc$w_length;
+
+	return isc_prepare(status_vector,
+					   db_handle,
+					   tra_handle,
+					   statement_name, &len, string->dsc$a_pointer, sqlda);
+}
+#endif
+
+STATUS API_ROUTINE isc_dsql_release(STATUS*	status_vector,
+									SCHAR*	statement_name)
+{
+	return isc_embed_dsql_release(status_vector, statement_name);
+}
+
+int API_ROUTINE isc_to_sqlda(	SQLDA*	sqlda,
+								int		number,
+								SCHAR*	host_var,
+								int		host_var_size,
+								SCHAR*	name)
+{
+/* no longer supported */
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//	gds_...
+//
+//	The following routines define the gds__ style names for isc_ entrypoints.
+//
+//	Please note that these names - strictly speaking - are illegal C++
+//	identifiers, and as such should probably be moved into a C file.
+//
+
+STATUS API_ROUTINE gds__close(STATUS* status_vector, SCHAR* statement_name)
+{
+	return isc_close(status_vector, statement_name);
+}
+
+STATUS API_ROUTINE gds__declare(STATUS*	status_vector,
+								SCHAR*	statement_name,
+								SCHAR*	cursor_name)
+{
+	return isc_declare(status_vector, statement_name, cursor_name);
+}
+
+STATUS API_ROUTINE gds__describe(	STATUS*	status_vector,
+									SCHAR*	statement_name,
+									SQLDA*	sqlda)
+{
+	return isc_describe(status_vector, statement_name, sqlda);
+}
+
+STATUS API_ROUTINE gds__describe_bind(STATUS*	status_vector,
+									  SCHAR*	statement_name,
+									  SQLDA*	sqlda)
+{
+	return isc_describe_bind(status_vector, statement_name, sqlda);
+}
+
+STATUS API_ROUTINE gds__dsql_finish(HNDL* db_handle)
+{
+	return isc_dsql_finish(db_handle);
+}
+
+STATUS API_ROUTINE gds__execute(STATUS*	status_vector,
+								SLONG*	tra_handle,
+								SCHAR*	statement_name,
+								SQLDA*	sqlda)
+{
+	return isc_execute(status_vector, tra_handle, statement_name, sqlda);
+}
+
+STATUS API_ROUTINE gds__execute_immediate(STATUS*	status_vector,
+										  SLONG*	db_handle,
+										  SLONG*	tra_handle,
+										  SSHORT*	sql_length,
+										  SCHAR*	sql)
+{
+	return isc_execute_immediate(	status_vector,
+									db_handle,
+									tra_handle,
+									sql_length,
+									sql);
+}
+
+#ifdef VMS
+STATUS API_ROUTINE gds__execute_immediate_d(STATUS*	status_vector,
+											SLONG*	db_handle,
+											SLONG*	tra_handle,
+											SCHAR*	sql_string)
+{
+	return isc_execute_immediate_d(status_vector,
+								   db_handle, tra_handle, sql_string);
+}
+#endif
+
+STATUS API_ROUTINE gds__fetch(STATUS*	status_vector,
+							  SCHAR*	statement_name,
+							  SQLDA*	sqlda)
+{
+	return isc_fetch(status_vector, statement_name, sqlda);
+}
+
+STATUS API_ROUTINE gds__fetch_a(STATUS*	status_vector,
+								int*	sqlcode,
+								SCHAR*	statement_name,
+								SQLDA*	sqlda)
+{
+	return isc_fetch_a(status_vector, sqlcode, statement_name, sqlda);
+}
+
+STATUS API_ROUTINE gds__open(STATUS*	status_vector,
+							 SLONG*		tra_handle,
+							 SCHAR*		cursor_name,
+							 SQLDA*		sqlda)
+{
+	return isc_open(status_vector, tra_handle, cursor_name, sqlda);
+}
+
+STATUS API_ROUTINE gds__prepare(STATUS*	status_vector,
+								SLONG*	db_handle,
+								SLONG*	tra_handle,
+								SCHAR*	statement_name,
+								SSHORT*	sql_length,
+								SCHAR*	sql,
+								SQLDA*	sqlda)
+{
+	return isc_prepare(	status_vector,
+						db_handle,
+						tra_handle,
+						statement_name,
+						sql_length,
+						sql,
+						sqlda);
+}
+
+#ifdef VMS
+STATUS API_ROUTINE gds__prepare_d(STATUS* status_vector,
+								  SLONG* db_handle,
+								  SLONG* tra_handle,
+								  SCHAR* statement_name,
+								  SLONG* sql_desc, SQLDA* sqlda)
+{
+	return isc_prepare_d(status_vector,
+						 db_handle,
+						 tra_handle, statement_name, sql_desc, sqlda);
+}
+#endif
+
+STATUS API_ROUTINE gds__to_sqlda(SQLDA* sqlda,
+								 int number,
+								 SCHAR* host_variable,
+								 int host_variable_size,
+								 SCHAR* host_variable_name)
+{
+	return isc_to_sqlda(sqlda,
+						number,
+						host_variable,
+						host_variable_size, host_variable_name);
+}
+
+
+//____________________________________________________________
+//
+//	Helper functions for cleanup().
+//
+static void free_all_databases(DBB& databases)
+{
+	while (databases) {
+		DBB database = databases;
+		databases = database->dbb_next;
+		gds__free(database);
+	}
+}
+
+static void free_all_statements(STMT& statements)
+{
+	while (statements) {
+		STMT statement = statements;
+		statements = statement->stmt_next;
+		gds__free(statement);
+	}
+}
+
+static void free_all_names(NAME& names)
+{
+	while (names) {
+		NAME name = names;
+		names = name->name_next;
+		gds__free(name);
+	}
+}
+
+
+//____________________________________________________________
+//
+//		Cleanup handler to free all dynamically allocated memory.
+//
+static void cleanup(void* arg)
+{
+	if (!init_flag) {
+		return;
+	}
+
+	init_flag = FALSE;
+
+	gds__free(UDSQL_error);
+	UDSQL_error = NULL;
+
+	free_all_databases(databases);
+	free_all_statements(statements);
+	free_all_names(statement_names);
+	free_all_names(cursor_names);
+
+	gds__unregister_cleanup(cleanup, 0);
+}
+
+
+//____________________________________________________________
+//
+//		the cleanup handler called when a database is closed
+//
+static void cleanup_database(SLONG** db_handle, SLONG dummy)
+{
+	if (!db_handle || !databases) {
+		return;
+	}
+
+	// for each of the statements in this database, remove it
+	// from the local list and from the hash table
+
+	STMT* stmt_ptr = &statements;
+	STMT p;
+
+	while (p = *stmt_ptr)
+	{
+		if (p->stmt_db_handle == *db_handle)
+		{
+			*stmt_ptr = p->stmt_next;
+			if (p->stmt_stmt) {
+				remove_name(p->stmt_stmt, &statement_names);
+			}
+			if (p->stmt_cursor) {
+				remove_name(p->stmt_cursor, &cursor_names);
+			}
+			gds__free(p);
+		}
+		else
+		{
+			stmt_ptr = &p->stmt_next;
+		}
+	}
+
+	DBB dbb;
+
+	for (DBB* dbb_ptr = &databases; dbb = *dbb_ptr; dbb_ptr = &dbb->dbb_next)
+	{
+		if (dbb->dbb_database_handle == *db_handle)
+		{
+			*dbb_ptr = dbb->dbb_next;
+			gds__free(dbb);
+			break;
+		}
+	}
+}
+
+
+//____________________________________________________________
+//
+//	An error returned has been trapped.  If the user specified
+//	a status vector, return a status code.  Otherwise print the
+//	error code(s) and abort.
+//
+static STATUS error()
+{
+	if (UDSQL_error->dsql_user_status) {
+		return UDSQL_error->dsql_user_status[1];
+	}
+
+	gds__print_status(UDSQL_error->dsql_status);
+
+	exit(UDSQL_error->dsql_status[1]);
+}
+
+
+//____________________________________________________________
+//
+//	Post an error sequence to the status vector.  Since an error
+//	sequence can, in theory, be arbitrarily lock, pull a cheap
+//	trick to get the address of the argument vector.
+//
+//	this is a copy of the routine found in err.c with the
+//	exception that it uses a different error block - one which
+//	is local to the V3 DSQL routines...
+//
+static void error_post(STATUS status, ...)
+{
+	va_list	args;
+	STATUS*	p;
+	int		type;
+
+/* Get the addresses of the argument vector and the status vector, and do
+   word-wise copy. */
+
+	VA_START(args, status);
+	p = UDSQL_error->dsql_status;
+
+/* Copy first argument */
+
+	*p++ = gds_arg_gds;
+	*p++ = status;
+
+/* Pick up remaining args */
+
+	while (type = va_arg(args, int))
+	{
+		switch (*p++ = type) {
+		case gds_arg_gds:
+			*p++ = (STATUS) va_arg(args, STATUS);
+			break;
+
+		case gds_arg_number:
+			*p++ = (STATUS) va_arg(args, SLONG);
+			break;
+
+		case gds_arg_vms:
+		case gds_arg_unix:
+		case gds_arg_domain:
+		case gds_arg_dos:
+		case gds_arg_mpexl:
+		case gds_arg_mpexl_ipc:
+		case gds_arg_netware:
+		case gds_arg_win32:
+			*p++ = va_arg(args, int);
+			break;
+
+		case gds_arg_string:
+		case gds_arg_interpreted:
+			*p++ = (STATUS) va_arg(args, TEXT *);
+			break;
+
+		case gds_arg_cstring:
+			*p++ = (STATUS) va_arg(args, int);
+			*p++ = (STATUS) va_arg(args, TEXT *);
+			break;
+		}
+	}
+
+	*p = gds_arg_end;
+
+	// Give up whatever we were doing and return to the user.
+
+	LONGJMP(UDSQL_error->dsql_env, (int) UDSQL_error->dsql_status[1]);
+}
+
+
+//____________________________________________________________
+//
+//	Initialize dynamic SQL.  This is called only once.
+//
+static void init(HNDL* db_handle)
+{
+	// If we haven't been initialized yet, do it now
+	if (!init_flag)
+	{
+		UDSQL_error = (ERR) gds__alloc((SLONG) sizeof(struct err));
+		// FREE: by exit cleanup()
+		if (!UDSQL_error) {		// NOMEM:
+			return;				// Don't set the init_flag
+		}
+		init_flag = TRUE;
+		gds__register_cleanup(cleanup, 0);
+	}
+
+	if (!db_handle) {
+		return;
+	}
+
+	DBB dbb;
+	for (dbb = databases; dbb; dbb = dbb->dbb_next) {
+		if (dbb->dbb_database_handle == *db_handle) {
+			return;
+		}
+	}
+
+	dbb = (DBB) gds__alloc((SLONG) sizeof(struct dbb));
+
+	// FREE: by database exit handler cleanup_database()
+	if (!dbb) {					// NOMEM
+		return;					// Not a great error handler
+	}
+
+	dbb->dbb_next = databases;
+	databases = dbb;
+	dbb->dbb_database_handle = *db_handle;
+
+	STATUS local_status[20];
+	gds__database_cleanup(local_status,
+						  reinterpret_cast<hndl**>(db_handle),
+						  reinterpret_cast<void(*)()>(cleanup_database),
+						  (SLONG) FALSE);
+}
+
+
+static NAME insert_name( TEXT * symbol, NAME* list_ptr, STMT stmt)
+{
+/**************************************
+ *
+ *	i n s e r t _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ * 	Add the name to the designated list.
+ *
+ **************************************/
+	USHORT l;
+	NAME name;
+	TEXT *p;
+
+	l = name_length(symbol);
+	name = (NAME) gds__alloc((SLONG) sizeof(struct name) + l);
+/* FREE: by exit handler cleanup() or database_cleanup() */
+	if (!name)					/* NOMEM: */
+		error_post(gds__virmemexh, 0);
+	name->name_stmt = stmt;
+	name->name_length = l;
+	p = name->name_symbol;
+	while (l--)
+		*p++ = *symbol++;
+
+	if (name->name_next = *list_ptr)
+		name->name_next->name_prev = name;
+	*list_ptr = name;
+	name->name_prev = NULL;
+
+	return name;
+}
+
+
+static NAME lookup_name(TEXT* name, NAME list)
+{
+/**************************************
+ *
+ *	l o o k u p _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ * 	Look up the given name in the designated list.
+ *
+ **************************************/
+
+	const USHORT l = name_length(name);
+	for (; list; list = list->name_next) {
+		if (scompare(name, l, list->name_symbol, list->name_length)) {
+			break;
+		}
+	}
+
+	return list;
+}
+
+
+static STMT lookup_stmt(TEXT* name, NAME list, USHORT type)
+{
+/**************************************
+ *
+ *	l o o k u p _ s t m t
+ *
+ **************************************
+ *
+ * Functional description
+ * 	Look up the given statement in the designated list.
+ *
+ **************************************/
+	NAME found;
+
+	if (found = lookup_name(name, list))
+		return found->name_stmt;
+
+	if (type == NAME_statement) {
+		error_post(gds__dsql_error,
+				   gds_arg_gds, gds__sqlerr, gds_arg_number, (SLONG) - 518,
+				   gds_arg_gds, gds__dsql_request_err, 0);
+	} else {
+		error_post(gds__dsql_error,
+				   gds_arg_gds, gds__sqlerr, gds_arg_number, (SLONG) - 504,
+				   gds_arg_gds, gds__dsql_cursor_err, 0);
+	}
+	return NULL;
+}
+
+
+static USHORT name_length( TEXT * name)
+{
+/**************************************
+ *
+ *	n a m e _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute length of user supplied name.
+ *
+ **************************************/
+	TEXT *p;
+
+	for (p = name; *p && *p != ' '; p++);
+
+	return (USHORT) (p - name);
+}
+
+
+static void remove_name(NAME name, NAME* list_ptr)
+{
+/**************************************
+ *
+ *	r e m o v e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ * 	Remove a name from the designated list.
+ *
+ **************************************/
+
+	if (name->name_next) {
+		name->name_next->name_prev = name->name_prev;
+	}
+
+	if (name->name_prev) {
+		name->name_prev->name_next = name->name_next;
+	} else {
+		*list_ptr = name->name_next;
+	}
+
+	gds__free(name);
+}
+
+
+static BOOLEAN scompare(register SCHAR*	string1,
+						register USHORT	length1,
+						register SCHAR*	string2,
+						register USHORT	length2)
+{
+/**************************************
+ *
+ *	s c o m p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two strings case insensitive according to the C locale rules.
+ *
+ **************************************/
+
+	if (length1 != length2) {
+		return FALSE;
+	}
+
+	SCHAR c1, c2;
+	while (length1--)
+	{
+		c1 = *string1++;
+		c2 = *string2++;
+		if (c1 != c2 && UPPER7(c1) != UPPER7(c2))
+		{
+			return FALSE;
+		}
+	}
+
+	return TRUE;
+}
+
+
+}	// extern "C"
diff --git a/src/dsql/utld.cpp b/src/dsql/utld.cpp
new file mode 100644
index 0000000000..40bc1423fc
--- /dev/null
+++ b/src/dsql/utld.cpp
@@ -0,0 +1,907 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		utld.c
+ *	DESCRIPTION:	Utility routines for DSQL
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: utld.cpp,v 1.1.1.1 2001-05-23 13:25:35 tamlin Exp $
+*/
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../dsql/dsql.h"
+#include "../dsql/sqlda.h"
+#include "../jrd/blr.h"
+#include "../jrd/codes.h"
+#include "../jrd/inf.h"
+#include "../jrd/align.h"
+#include "../dsql/utld_proto.h"
+#include "../jrd/gds_proto.h"
+
+
+extern "C" {
+
+
+static void cleanup(void *);
+static STATUS error_dsql_804(STATUS *, STATUS);
+static SLONG get_numeric_info(SCHAR **);
+static SLONG get_string_info(SCHAR **, SCHAR *, int);
+#ifdef DEV_BUILD
+static void print_xsqlda(XSQLDA *);
+#endif
+static void sqlvar_to_xsqlvar(SQLVAR *, XSQLVAR *);
+static void xsqlvar_to_sqlvar(XSQLVAR *, SQLVAR *);
+
+#ifdef NETWARE_386
+#define	PRINTF	ConsolePrintf
+#endif
+
+#ifndef PRINTF
+#define PRINTF	ib_printf
+#endif
+
+#define CH_STUFF(p,value)	{if ((SCHAR) *(p) == (SCHAR) (value)) (p)++; else\
+				{*(p)++ = (value); same_flag = FALSE;}}
+#define CH_STUFF_WORD(p,value)	{CH_STUFF (p, (value) & 255);\
+				CH_STUFF (p, (value) >> 8);}
+
+/* these statics define a round-robin data area for storing
+   textual error messages returned to the user */
+
+static TEXT *DSQL_failures, *DSQL_failures_ptr;
+
+#define DSQL_FAILURE_SPACE	2048
+
+
+STATUS DLL_EXPORT UTLD_parse_sql_info(
+									  STATUS * status,
+									  USHORT dialect,
+									  SCHAR * info,
+XSQLDA * xsqlda, USHORT * return_index)
+{
+/**************************************
+ *
+ *	U T L D _ p a r s e _ s q l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fill in an SQLDA using data returned
+ *	by a call to isc_dsql_sql_info.
+ *
+ **************************************/
+	SCHAR item;
+	SSHORT n;
+	XSQLVAR *xvar, xsqlvar;
+	SQLDA *sqlda;
+	SQLVAR *var;
+	USHORT index, last_index;
+
+	if (return_index)
+		*return_index = last_index = 0;
+
+	if (!xsqlda)
+		return 0;
+
+/* The first byte of the returned buffer is assumed to be either a
+   gds__info_sql_select or gds__info_sql_bind item.  The second byte
+   is assumed to be gds__info_sql_describe_vars. */
+
+	info += 2;
+
+	n = static_cast<SSHORT> (get_numeric_info(&info));
+	if (dialect >= DIALECT_xsqlda)
+	{
+		if (xsqlda->version != SQLDA_VERSION1)
+			return error_dsql_804(status, gds__dsql_sqlda_err);
+		xsqlda->sqld = n;
+
+		/* If necessary, inform the application that more sqlda items are needed */
+		if (xsqlda->sqld > xsqlda->sqln)
+			return 0;
+	}
+	else
+	{
+		sqlda = (SQLDA *) xsqlda;
+		sqlda->sqld = n;
+
+		/* If necessary, inform the application that more sqlda items are needed */
+		if (sqlda->sqld > sqlda->sqln)
+			return 0;
+
+		xsqlda = NULL;
+		xvar = &xsqlvar;
+	}
+
+/* Loop over the variables being described. */
+
+	while (*info != gds__info_end)
+	{
+		while ((item = *info++) != gds__info_sql_describe_end)
+			switch (item)
+			{
+			case gds__info_sql_sqlda_seq:
+				index = static_cast<USHORT>(get_numeric_info(&info));
+				if (xsqlda)
+					xvar = xsqlda->sqlvar + index - 1;
+				else
+				{
+					var = sqlda->sqlvar + index - 1;
+					memset(xvar, 0, sizeof(XSQLVAR));
+				}
+				break;
+
+			case gds__info_sql_type:
+				xvar->sqltype =
+					static_cast<SSHORT>(get_numeric_info(&info));
+				break;
+
+			case gds__info_sql_sub_type:
+				xvar->sqlsubtype =
+					static_cast<SSHORT>(get_numeric_info(&info));
+				break;
+
+			case gds__info_sql_scale:
+				xvar->sqlscale =
+					static_cast<SSHORT>(get_numeric_info(&info));
+				break;
+
+			case gds__info_sql_length:
+				xvar->sqllen =
+					static_cast<SSHORT>(get_numeric_info(&info));
+				break;
+
+			case gds__info_sql_field:
+				xvar->sqlname_length =
+					static_cast<SSHORT>(get_string_info(&info, xvar->sqlname, sizeof(xvar->sqlname)));
+				break;
+
+			case gds__info_sql_relation:
+				xvar->relname_length =
+					static_cast<SSHORT>(get_string_info(&info, xvar->relname, sizeof(xvar->relname)));
+				break;
+
+			case gds__info_sql_owner:
+				xvar->ownname_length =
+					static_cast<SSHORT>(get_string_info(&info, xvar->ownname, sizeof(xvar->ownname)));
+				break;
+
+			case gds__info_sql_alias:
+				xvar->aliasname_length =
+					static_cast<SSHORT>
+					(get_string_info
+					 (&info, xvar->aliasname, sizeof(xvar->aliasname)));
+				break;
+
+			case gds__info_truncated:
+				if (return_index)
+					*return_index = last_index;
+
+			default:
+				return error_dsql_804(status, gds__dsql_sqlda_err);
+			}
+
+		if (!xsqlda)
+			xsqlvar_to_sqlvar(xvar, var);
+
+		if (index > last_index)
+			last_index = index;
+	}
+
+	if (*info != gds__info_end)
+		return error_dsql_804(status, gds__dsql_sqlda_err);
+
+	return SUCCESS;
+}
+
+
+STATUS DLL_EXPORT UTLD_parse_sqlda(STATUS * status,
+								   DASUP dasup,
+								   USHORT * blr_length,
+								   USHORT * msg_type,
+								   USHORT * msg_length,
+								   USHORT dialect,
+								   XSQLDA * xsqlda,
+								   USHORT clause)
+{
+/*****************************************
+ *
+ *	U T L D _ p a r s e _ s q l d a
+ *
+ *****************************************
+ *
+ * Functional Description
+ *	This routine creates a blr message that describes
+ *	a SQLDA as well as moving data from the SQLDA
+ *	into a message buffer or from the message buffer
+ *	into the SQLDA.
+ *
+ *****************************************/
+	USHORT i, n, blr_len, par_count, dtype, same_flag, msg_len, len, align, offset,
+		null_offset;
+	SSHORT *null_ind;
+	XSQLVAR *xvar, xsqlvar;
+	SQLDA *sqlda;
+	SQLVAR *var;
+	BLOB_PTR *p;				/* one huge pointer per line for LIBS */
+	BLOB_PTR *msg_buf;			/* one huge pointer per line for LIBS */
+
+	if (!xsqlda)
+		n = 0;
+	else
+		if (dialect >= DIALECT_xsqlda)
+		{
+			if (xsqlda->version != SQLDA_VERSION1)
+				return error_dsql_804(status, gds__dsql_sqlda_err);
+			n = xsqlda->sqld;
+		}
+		else
+		{
+			sqlda = (SQLDA *) xsqlda;
+			n = sqlda->sqld;
+			xsqlda = NULL;
+			xvar = &xsqlvar;
+		}
+
+	if (!n)
+	{
+		/* If there isn't an SQLDA, don't bother with anything else. */
+
+		if (blr_length)
+			*blr_length = dasup->dasup_clauses[clause].dasup_blr_length = 0;
+		if (msg_length)
+			*msg_length = 0;
+		if (msg_type)
+			*msg_type = 0;
+		return 0;
+	}
+
+	if (msg_length)
+	{
+		/* This is a call from execute or open, or the first call from fetch.
+		   Determine the size of the blr, allocate a blr buffer, create the
+		   blr, and finally allocate a message buffer. */
+
+		/* The message buffer we are describing could be for a message to
+		   either IB 4.0 or IB 3.3 - thus we need to describe the buffer
+		   with the right set of blr.
+		   As the BLR is only used to describe space allocation and alignment,
+		   we can safely use blr_text for both 4.0 and 3.3. */
+
+		/* Make a quick pass through the SQLDA to determine the amount of
+		   blr that will be generated. */
+
+		blr_len = 8;
+		par_count = 0;
+		if (xsqlda)
+			xvar = xsqlda->sqlvar - 1;
+		else
+			var = sqlda->sqlvar - 1;
+		for (i = 0; i < n; i++)
+		{
+			if (xsqlda)
+				xvar++;
+			else {
+				var++;
+				sqlvar_to_xsqlvar(var, xvar);
+			}
+			dtype = xvar->sqltype & ~1;
+			if (dtype == SQL_VARYING || dtype == SQL_TEXT)
+				blr_len += 3;
+			else
+				if (dtype == SQL_SHORT ||
+					dtype == SQL_LONG ||
+					dtype == SQL_INT64 ||
+					dtype == SQL_QUAD ||
+					dtype == SQL_BLOB
+					|| dtype == SQL_ARRAY)
+				{
+					blr_len += 2;
+				}
+				else
+					blr_len++;
+			blr_len += 2;
+			par_count += 2;
+		}
+
+		/* Make sure the blr buffer is large enough.  If it isn't, allocate
+		   a new one. */
+
+		if (blr_len > dasup->dasup_clauses[clause].dasup_blr_buf_len)
+		{
+			if (dasup->dasup_clauses[clause].dasup_blr) {
+				gds__free(dasup->dasup_clauses[clause].dasup_blr);
+			}
+			dasup->dasup_clauses[clause].dasup_blr =
+				reinterpret_cast<char*>(gds__alloc((SLONG) blr_len));
+			/* FREE: unknown */
+			if (!dasup->dasup_clauses[clause].dasup_blr)	/* NOMEM: */
+				return error_dsql_804(status, gds__virmemexh);
+			memset(dasup->dasup_clauses[clause].dasup_blr, 0, blr_len);
+			dasup->dasup_clauses[clause].dasup_blr_buf_len = blr_len;
+			dasup->dasup_clauses[clause].dasup_blr_length = 0;
+		}
+
+		same_flag =
+			(blr_len == dasup->dasup_clauses[clause].dasup_blr_length);
+		dasup->dasup_clauses[clause].dasup_blr_length = blr_len;
+
+		/* Generate the blr for the message and at the same time, determine
+		   the size of the message buffer.  Allow for a null indicator with
+		   each variable in the SQLDA. */
+
+		p = reinterpret_cast <UCHAR*>(dasup->dasup_clauses[clause].dasup_blr);
+	/** The define SQL_DIALECT_V5 is not available here, Hence using
+	constant 1.
+    **/
+		if (dialect > 1)
+			CH_STUFF(p, blr_version5)
+		else
+			CH_STUFF(p, blr_version4)
+		CH_STUFF(p, blr_begin);
+		CH_STUFF(p, blr_message);
+		CH_STUFF(p, 0);
+		CH_STUFF_WORD(p, par_count);
+		msg_len = 0;
+		if (xsqlda)
+			xvar = xsqlda->sqlvar - 1;
+		else
+			var = sqlda->sqlvar - 1;
+		for (i = 0; i < n; i++)
+		{
+			if (xsqlda)
+				xvar++;
+			else
+			{
+				var++;
+				sqlvar_to_xsqlvar(var, xvar);
+			}
+			dtype = xvar->sqltype & ~1;
+			len = xvar->sqllen;
+			switch (dtype)
+			{
+			case SQL_VARYING:
+				CH_STUFF(p, blr_varying);
+				CH_STUFF_WORD(p, len);
+				dtype = dtype_varying;
+				len += sizeof(USHORT);
+				break;
+			case SQL_TEXT:
+				CH_STUFF(p, blr_text);
+				CH_STUFF_WORD(p, len);
+				dtype = dtype_text;
+				break;
+			case SQL_DOUBLE:
+				CH_STUFF(p, blr_double);
+				dtype = dtype_double;
+				break;
+			case SQL_FLOAT:
+				CH_STUFF(p, blr_float);
+				dtype = dtype_real;
+				break;
+			case SQL_D_FLOAT:
+				CH_STUFF(p, blr_d_float);
+				dtype = dtype_d_float;
+				break;
+			case SQL_TYPE_DATE:
+				CH_STUFF(p, blr_sql_date);
+				dtype = dtype_sql_date;
+				break;
+			case SQL_TYPE_TIME:
+				CH_STUFF(p, blr_sql_time);
+				dtype = dtype_sql_time;
+				break;
+			case SQL_TIMESTAMP:
+				CH_STUFF(p, blr_timestamp);
+				dtype = dtype_timestamp;
+				break;
+			case SQL_BLOB:
+				CH_STUFF(p, blr_quad);
+				CH_STUFF(p, 0);
+				dtype = dtype_blob;
+				break;
+			case SQL_ARRAY:
+				CH_STUFF(p, blr_quad);
+				CH_STUFF(p, 0);
+				dtype = dtype_array;
+				break;
+			case SQL_LONG:
+				CH_STUFF(p, blr_long);
+				CH_STUFF(p, xvar->sqlscale);
+				dtype = dtype_long;
+				break;
+			case SQL_SHORT:
+				CH_STUFF(p, blr_short);
+				CH_STUFF(p, xvar->sqlscale);
+				dtype = dtype_short;
+				break;
+			case SQL_INT64:
+				CH_STUFF(p, blr_int64);
+				CH_STUFF(p, xvar->sqlscale);
+				dtype = dtype_int64;
+				break;
+			case SQL_QUAD:
+				CH_STUFF(p, blr_quad);
+				CH_STUFF(p, xvar->sqlscale);
+				dtype = dtype_quad;
+				break;
+			default:
+				return error_dsql_804(status, gds__dsql_sqlda_value_err);
+			}
+
+			CH_STUFF(p, blr_short);
+			CH_STUFF(p, 0);
+
+			align = type_alignments[dtype];
+			if (align)
+				msg_len = FB_ALIGN(msg_len, align);
+			msg_len += len;
+			align = type_alignments[dtype_short];
+			if (align)
+				msg_len = FB_ALIGN(msg_len, align);
+			msg_len += sizeof(SSHORT);
+		}
+
+		CH_STUFF(p, blr_end);
+		CH_STUFF(p, blr_eoc);
+
+		/* Make sure the message buffer is large enough.  If it isn't, allocate
+		   a new one. */
+
+		if (msg_len > dasup->dasup_clauses[clause].dasup_msg_buf_len)
+		{
+			if (dasup->dasup_clauses[clause].dasup_msg)
+				gds__free(dasup->dasup_clauses[clause].dasup_msg);
+			dasup->dasup_clauses[clause].dasup_msg =
+				reinterpret_cast<char*>(gds__alloc((SLONG) msg_len));
+			/* FREE: unknown */
+			if (!dasup->dasup_clauses[clause].dasup_msg)	/* NOMEM: */
+				return error_dsql_804(status, gds__virmemexh);
+			memset(dasup->dasup_clauses[clause].dasup_msg, 0, msg_len);
+			dasup->dasup_clauses[clause].dasup_msg_buf_len = msg_len;
+		}
+
+		/* Fill in the return values to the caller. */
+
+		*blr_length = (same_flag) ? 0 : blr_len;
+		*msg_length = msg_len;
+		*msg_type = 0;
+
+		/* If this is the first call from fetch, we're done. */
+
+		if (clause == DASUP_CLAUSE_select)
+			return 0;
+	}
+
+/* Move the data between the SQLDA and the message buffer. */
+
+	offset = 0;
+	msg_buf =
+		reinterpret_cast<UCHAR*>(dasup->dasup_clauses[clause].dasup_msg);
+	if (xsqlda)
+		xvar = xsqlda->sqlvar - 1;
+	else
+		var = sqlda->sqlvar - 1;
+	for (i = 0; i < n; i++)
+	{
+		if (xsqlda)
+			xvar++;
+		else
+		{
+			var++;
+			sqlvar_to_xsqlvar(var, xvar);
+		}
+		dtype = xvar->sqltype & ~1;
+		len = xvar->sqllen;
+		switch (dtype)
+		{
+		case SQL_VARYING:
+			dtype = dtype_varying;
+			len += sizeof(USHORT);
+			break;
+		case SQL_TEXT:
+			dtype = dtype_text;
+			break;
+		case SQL_DOUBLE:
+			dtype = dtype_double;
+			break;
+		case SQL_FLOAT:
+			dtype = dtype_real;
+			break;
+		case SQL_D_FLOAT:
+			dtype = dtype_d_float;
+			break;
+		case SQL_TYPE_DATE:
+			dtype = dtype_sql_date;
+			break;
+		case SQL_TYPE_TIME:
+			dtype = dtype_sql_time;
+			break;
+		case SQL_TIMESTAMP:
+			dtype = dtype_timestamp;
+			break;
+		case SQL_BLOB:
+			dtype = dtype_blob;
+			break;
+		case SQL_ARRAY:
+			dtype = dtype_array;
+			break;
+		case SQL_LONG:
+			dtype = dtype_long;
+			break;
+		case SQL_SHORT:
+			dtype = dtype_short;
+			break;
+		case SQL_INT64:
+			dtype = dtype_int64;
+			break;
+		case SQL_QUAD:
+			dtype = dtype_quad;
+		}
+
+		align = type_alignments[dtype];
+		if (align)
+			offset = FB_ALIGN(offset, align);
+		null_offset = offset + len;
+
+		align = type_alignments[dtype_short];
+		if (align)
+			null_offset = FB_ALIGN(null_offset, align);
+
+		null_ind = (SSHORT *) (msg_buf + null_offset);
+		if (clause == DASUP_CLAUSE_select)
+		{
+			/* Move data from the message into the SQLDA. */
+
+			/* Make sure user has specified a data location */
+			if (!xvar->sqldata)
+				return error_dsql_804(status, gds__dsql_sqlda_value_err);
+
+			memcpy(xvar->sqldata, msg_buf + offset, len);
+			if (xvar->sqltype & 1)
+			{
+				/* Make sure user has specified a location for null indicator */
+				if (!xvar->sqlind)
+					return error_dsql_804(status, gds__dsql_sqlda_value_err);
+				*xvar->sqlind = *null_ind;
+			}
+		}
+		else
+		{
+			/* Move data from the SQLDA into the message.  If the
+			   indicator variable identifies a null value, permit
+			   the data value to be missing. */
+
+			if (xvar->sqltype & 1)
+			{
+				/* Make sure user has specified a location for null indicator */
+				if (!xvar->sqlind)
+					return error_dsql_804(status, gds__dsql_sqlda_value_err);
+				*null_ind = *xvar->sqlind;
+			}
+			else
+				*null_ind = 0;
+
+			/* Make sure user has specified a data location (unless NULL) */
+			if (!xvar->sqldata && !*null_ind)
+				return error_dsql_804(status, gds__dsql_sqlda_value_err);
+
+			/* Copy data - unless known to be NULL */
+			if ((offset + len) <= sizeof(msg_buf))
+				return error_dsql_804(status, gds__dsql_sqlda_value_err);
+			if (!*null_ind)
+				memcpy(msg_buf + offset, xvar->sqldata, len);
+		}
+
+		offset = null_offset + sizeof(SSHORT);
+	}
+
+	return 0;
+}
+
+
+void DLL_EXPORT UTLD_save_status_strings( STATUS * vector)
+{
+/**************************************
+ *
+ *	U T L D _ s a v e _ s t a t u s _ s t r i n g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Strings in status vectors may be stored in stack variables
+ *	or memory pools that are transient.  To perserve the information,
+ *	copy any included strings to a special buffer.
+ *
+ **************************************/
+	TEXT *p;
+	STATUS status;
+	USHORT l;
+
+/* allocate space for failure strings if it hasn't already been allocated */
+
+	if (!DSQL_failures)
+	{
+		DSQL_failures = (TEXT *) ALLOC_LIB_MEMORY((SLONG) DSQL_FAILURE_SPACE);
+		/* FREE: by exit handler cleanup() */
+		if (!DSQL_failures)		/* NOMEM: don't try to copy the strings */
+			return;
+		DSQL_failures_ptr = DSQL_failures;
+		gds__register_cleanup(cleanup, 0);
+
+#ifdef DEBUG_GDS_ALLOC
+		gds_alloc_flag_unfreed((void *) DSQL_failures);
+#endif
+	}
+
+	while (*vector)
+	{
+		status = *vector;
+		vector++;
+		switch (status)
+		{
+		case gds_arg_cstring:
+			l = static_cast<USHORT>(*vector++);
+
+		case gds_arg_interpreted:
+		case gds_arg_string:
+			p = (TEXT *) * vector;
+			if (status != gds_arg_cstring)
+				l = strlen(p) + 1;
+
+			/* If there isn't any more room in the buffer,
+			   start at the beginning again */
+
+			if (DSQL_failures_ptr + l > DSQL_failures + DSQL_FAILURE_SPACE)
+				DSQL_failures_ptr = DSQL_failures;
+			*vector++ = (STATUS) DSQL_failures_ptr;
+			if (l)
+				do
+					*DSQL_failures_ptr++ = *p++;
+				while (--l && (DSQL_failures_ptr < DSQL_failures + DSQL_FAILURE_SPACE));
+			if (l)
+				*(DSQL_failures_ptr - 1) = '\0';
+			break;
+
+		default:
+			++vector;
+			break;
+		}
+	}
+}
+
+
+static void cleanup( void *arg)
+{
+/**************************************
+ *
+ *	c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Exit handler to cleanup dynamically allocated memory.
+ *
+ **************************************/
+
+	if (DSQL_failures)
+		FREE_LIB_MEMORY(DSQL_failures);
+
+	gds__unregister_cleanup(cleanup, 0);
+	DSQL_failures = NULL;
+}
+
+
+static STATUS error_dsql_804( STATUS * status, STATUS err)
+{
+/**************************************
+ *
+ *	e r r o r _ d s q l _ 8 0 4
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a DSQL -804 error message into a status vector.
+ *
+ **************************************/
+	STATUS *p;
+
+	p = status;
+	*p++ = gds_arg_gds;
+	*p++ = gds__dsql_error;
+	*p++ = gds_arg_gds;
+	*p++ = gds__sqlerr;
+	*p++ = gds_arg_number;
+	*p++ = -804;
+	*p++ = gds_arg_gds;
+	*p++ = (err);
+	*p = gds_arg_end;
+
+	return status[1];
+}
+
+
+static SLONG get_numeric_info( SCHAR ** ptr)
+{
+/**************************************
+ *
+ *	g e t _ n u m e r i c _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a VAX format numeric info item
+ *	with a 2 byte length.
+ *
+ **************************************/
+	int item;
+	SSHORT l;
+
+	l = static_cast<SSHORT>(gds__vax_integer(reinterpret_cast<UCHAR*>(*ptr), 2));
+	*ptr += 2;
+	item = gds__vax_integer(reinterpret_cast<UCHAR*>(*ptr), l);
+	*ptr += l;
+
+	return item;
+}
+
+
+static SLONG get_string_info( SCHAR ** ptr, SCHAR * buffer, int buffer_len)
+{
+/**************************************
+ *
+ *	g e t _ s t r i n g _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a string valued info item and return
+ *	its length.  The buffer_len argument is assumed
+ *	to include space for the terminating null.
+ *
+ **************************************/
+	SSHORT l, len;
+	SCHAR *p;
+
+	p = *ptr;
+	l =
+		static_cast<SSHORT>
+		(gds__vax_integer(reinterpret_cast<UCHAR*>(p), 2));
+	*ptr += l + 2;
+	p += 2;
+
+	if (l >= buffer_len)
+		l = buffer_len - 1;
+
+	if (len = l)
+		do
+			*buffer++ = *p++;
+		while (--l);
+	*buffer = 0;
+
+	return len;
+}
+
+
+#ifdef DEV_BUILD
+static void print_xsqlda( XSQLDA * xsqlda)
+{
+/*****************************************
+ *
+ *	p r i n t _ x s q l d a 
+ *
+ *****************************************
+ *
+ * print an sqlda
+ *
+ *****************************************/
+	XSQLVAR *xvar, *end_var;
+
+	if (!xsqlda)
+		return;
+
+	PRINTF("SQLDA Version %d\n", xsqlda->version);
+	PRINTF("      sqldaid %.8s\n", xsqlda->sqldaid);
+	PRINTF("      sqldabc %d\n", xsqlda->sqldabc);
+	PRINTF("      sqln    %d\n", xsqlda->sqln);
+	PRINTF("      sqld    %d\n", xsqlda->sqld);
+
+	xvar = xsqlda->sqlvar;
+	for (end_var = xvar + xsqlda->sqld; xvar < end_var; xvar++)
+		PRINTF("         %.31s %.31s type: %d, scale %d, len %d subtype %d\n",
+			   xvar->sqlname, xvar->relname, xvar->sqltype,
+			   xvar->sqlscale, xvar->sqllen, xvar->sqlsubtype);
+}
+#endif
+
+
+static void sqlvar_to_xsqlvar( SQLVAR * sqlvar, XSQLVAR * xsqlvar)
+{
+/*****************************************
+ *
+ *	s q l v a r _ t o _ x s q l v a r
+ *
+ *****************************************
+ *
+ * Functional Description
+ *	Move an SQLVAR to an XSQLVAR.
+ *	THIS DOES NOT MOVE NAME RELATED DATA.
+ *
+ *****************************************/
+
+	xsqlvar->sqltype = sqlvar->sqltype;
+	xsqlvar->sqldata = sqlvar->sqldata;
+	xsqlvar->sqlind = sqlvar->sqlind;
+
+	xsqlvar->sqlsubtype = 0;
+	xsqlvar->sqlscale = 0;
+	xsqlvar->sqllen = sqlvar->sqllen;
+	if ((xsqlvar->sqltype & ~1) == SQL_LONG) {
+		xsqlvar->sqlscale = xsqlvar->sqllen >> 8;
+		xsqlvar->sqllen = sizeof(SLONG);
+	}
+	else if ((xsqlvar->sqltype & ~1) == SQL_SHORT) {
+		xsqlvar->sqlscale = xsqlvar->sqllen >> 8;
+		xsqlvar->sqllen = sizeof(SSHORT);
+	}
+	else if ((xsqlvar->sqltype & ~1) == SQL_INT64) {
+		xsqlvar->sqlscale = xsqlvar->sqllen >> 8;
+		xsqlvar->sqllen = sizeof(SINT64);
+	}
+	else if ((xsqlvar->sqltype & ~1) == SQL_QUAD) {
+		xsqlvar->sqlscale = xsqlvar->sqllen >> 8;
+		xsqlvar->sqllen = sizeof(GDS_QUAD);
+	}
+}
+
+
+static void xsqlvar_to_sqlvar( XSQLVAR * xsqlvar, SQLVAR * sqlvar)
+{
+/*****************************************
+ *
+ *	x s q l v a r _ t o _ s q l v a r
+ *
+ *****************************************
+ *
+ * Functional Description
+ *	Move an XSQLVAR to an SQLVAR.
+ *
+ *****************************************/
+
+	sqlvar->sqltype = xsqlvar->sqltype;
+	sqlvar->sqlname_length = xsqlvar->aliasname_length;
+
+/* N.B., this may not NULL-terminate the name... */
+
+	memcpy(sqlvar->sqlname, xsqlvar->aliasname, sizeof(sqlvar->sqlname));
+
+	sqlvar->sqllen = xsqlvar->sqllen;
+	if ((sqlvar->sqltype & ~1) == SQL_LONG)
+		sqlvar->sqllen = sizeof(SLONG) | (xsqlvar->sqlscale << 8);
+	else if ((sqlvar->sqltype & ~1) == SQL_SHORT)
+		sqlvar->sqllen = sizeof(SSHORT) | (xsqlvar->sqlscale << 8);
+	else if ((sqlvar->sqltype & ~1) == SQL_INT64)
+		sqlvar->sqllen = sizeof(SINT64) | (xsqlvar->sqlscale << 8);
+	else if ((sqlvar->sqltype & ~1) == SQL_QUAD)
+		sqlvar->sqllen = sizeof(GDS_QUAD) | (xsqlvar->sqlscale << 8);
+}
+
+
+} // extern "C"
diff --git a/src/dsql/utld_proto.h b/src/dsql/utld_proto.h
new file mode 100644
index 0000000000..e10934d203
--- /dev/null
+++ b/src/dsql/utld_proto.h
@@ -0,0 +1,46 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		utld_proto.h
+ *	DESCRIPTION:	Prototype Header file for utld.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_UTLD_PROTO_H_
+#define _DSQL_UTLD_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern STATUS DLL_EXPORT UTLD_parse_sql_info(STATUS *, USHORT, SCHAR *,
+											 XSQLDA *, USHORT *);
+extern STATUS DLL_EXPORT UTLD_parse_sqlda(STATUS *, struct dasup *, USHORT *,
+										  USHORT *, USHORT *, USHORT,
+										  XSQLDA *, USHORT);
+extern void DLL_EXPORT UTLD_save_status_strings(STATUS *);
+
+#ifdef  WINDOWS_ONLY
+extern void UTLD_wep(void);
+#endif
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /*  _DSQL_UTLD_PROTO_H_  */
diff --git a/src/dudley/ddl.cpp b/src/dudley/ddl.cpp
new file mode 100644
index 0000000000..87c74f9ba7
--- /dev/null
+++ b/src/dudley/ddl.cpp
@@ -0,0 +1,752 @@
+/*
+ *	PROGRAM:	Data Definition Utility
+ *	MODULE:		ddl.c
+ *	DESCRIPTION:	Main line routine
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#define DDL_MAIN
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../dudley/ddl.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/license.h"
+#include "../dudley/ddl_proto.h"
+#include "../dudley/exe_proto.h"
+#include "../dudley/expan_proto.h"
+#include "../dudley/extra_proto.h"
+#include "../dudley/hsh_proto.h"
+#include "../dudley/lex_proto.h"
+#include "../dudley/parse_proto.h"
+#include "../dudley/trn_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/why_proto.h"
+
+#if defined(WIN_NT)
+#include <io.h>
+#endif
+
+TEXT *DDL_prompt;
+
+static LLS free_stack;
+static TEXT DDL_message[256];
+
+#ifndef FOPEN_INPUT_TYPE
+#define FOPEN_INPUT_TYPE	"r"
+#endif
+
+#define DDL_EXT		".gdl"		/* normal extension for a ddl file */
+#define MAX_ERRORS	50
+
+#define IN_SW_GDEF_0 		0	/* null switch value */
+#define IN_SW_GDEF_G 		1	/* generate DDL from a database file */
+#define IN_SW_GDEF_R 		2	/* replace existing database */
+#define IN_SW_GDEF_D 		3	/* generate dynamic DDL */
+#define IN_SW_GDEF_Z 		4	/* print version number */
+#define IN_SW_GDEF_T 		5	/* print tokens as they are read */
+#define	IN_SW_GDEF_C		7	/* source is C */
+#define	IN_SW_GDEF_F		8	/* source is FORTRAN */
+#define	IN_SW_GDEF_P 		9	/* source is PASCAL */
+#define IN_SW_GDEF_COB 		10	/* source is (shudder) cobol */
+#define IN_SW_GDEF_ANSI 	11	/* source is (worse and worse!) ansi format */
+#define IN_SW_GDEF_BAS 		12	/* source is basic */
+#define IN_SW_GDEF_PLI 		13	/* source is pli */
+#define IN_SW_GDEF_ADA 		14	/* source is ada */
+#define IN_SW_GDEF_CXX 		15	/* source is C++ */
+#define IN_SW_GDEF_7		16	/* force creation of an ODS 7 database */
+#define IN_SW_GDEF_USER		17	/* user name for PC security */
+#define IN_SW_GDEF_PASSWORD	18	/* password for PC security */
+
+static struct in_sw_tab_t gdef_in_sw_table[] = {
+	IN_SW_GDEF_G, 0, "EXTRACT", 0, 0, 0, FALSE, 0, 0,
+		"\t\textract definition from database",	/* extract DDL from database */
+	IN_SW_GDEF_R, 0, "REPLACE", 0, 0, 0, FALSE, 0, 0,
+		"\t\treplace existing database",	/* replace database */
+	IN_SW_GDEF_D, 0, "DYNAMIC", 0, 0, 0, FALSE, 0, 0,
+		"\t\tgenerate dynamic DDL",
+	IN_SW_GDEF_T, 0, "T", 0, 0, 0, FALSE, 0, 0, NULL,
+	IN_SW_GDEF_C, 0, "C", 0, 0, 0, FALSE, 0, 0, "\t\tDYN for C",
+	IN_SW_GDEF_F, 0, "FORTRAN", 0, 0, 0, FALSE, 0, 0, "\t\tDYN for FORTRAN",
+	IN_SW_GDEF_P, 0, "PASCAL", 0, 0, 0, FALSE, 0, 0, "\t\tDYN for PASCAL",
+	IN_SW_GDEF_COB, 0, "COB", 0, 0, 0, FALSE, 0, 0, "\t\tDYN for COBOL",
+	IN_SW_GDEF_ANSI, 0, "ANSI", 0, 0, 0, FALSE, 0, 0,
+		"\t\tDYN for ANSI COBOL",
+	IN_SW_GDEF_BAS, 0, "BASIC", 0, 0, 0, FALSE, 0, 0, "\t\tDYN for BASIC",
+	IN_SW_GDEF_PLI, 0, "PLI", 0, 0, 0, FALSE, 0, 0, "\t\tDYN for PLI",
+	IN_SW_GDEF_ADA, 0, "ADA", 0, 0, 0, FALSE, 0, 0, "\t\tDYN for ADA",
+	IN_SW_GDEF_CXX, 0, "CXX", 0, 0, 0, FALSE, 0, 0, "\t\tDYN for C++",
+#ifdef DEV_BUILD
+	IN_SW_GDEF_7, 0, "7", 0, 0, 0, FALSE, 0, 0, NULL,
+#endif
+	IN_SW_GDEF_USER, 0, "USER", 0, 0, 0, FALSE, 0, 0,
+		"\t\tuser name to use in attaching database",
+	IN_SW_GDEF_PASSWORD, 0, "PASSWORD", 0, 0, 0, FALSE, 0, 0,
+		"\t\tpassword to use with user name",
+	IN_SW_GDEF_Z, 0, "Z", 0, 0, 0, FALSE, 0, 0, "\t\tprint version number",
+	IN_SW_GDEF_0, 0, NULL, 0, 0, 0, FALSE, 0, 0, NULL
+};
+
+
+int CLIB_ROUTINE main( int argc, char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Main line routine for C preprocessor.  Initializes
+ *	system, performs pass 1 and pass 2.  Interpretes
+ *	command line.
+ *
+ **************************************/
+	IB_FILE *input_file;
+	TEXT c, c1, *p, *q, *string, file_name_1[256], file_name_2[256],
+		buffer[256], dyn_file_name[256];
+	USHORT in_sw;
+	IN_SW_TAB in_sw_tab;
+	ACT temp, stack;
+	FIL file;
+	SLONG redir_in, redir_out, redir_err;
+#ifdef DEV_BUILD
+	USHORT sw_ods7;
+#endif
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+/* Perform some special handling when run as an Interbase service.  The
+   first switch can be "-svc" (lower case!) or it can be "-svc_re" followed
+   by 3 file descriptors to use in re-directing ib_stdin, ib_stdout, and ib_stderr. */
+
+	DDL_service = FALSE;
+
+	if (argc > 1 && !strcmp(argv[1], "-svc")) {
+		DDL_service = TRUE;
+		argv++;
+		argc--;
+	}
+	else if (argc > 4 && !strcmp(argv[1], "-svc_re")) {
+		DDL_service = TRUE;
+		redir_in = atol(argv[2]);
+		redir_out = atol(argv[3]);
+		redir_err = atol(argv[4]);
+#ifdef WIN_NT
+		redir_in = _open_osfhandle(redir_in, 0);
+		redir_out = _open_osfhandle(redir_out, 0);
+		redir_err = _open_osfhandle(redir_err, 0);
+#endif
+		if (redir_in != 0)
+			if (dup2((int) redir_in, 0))
+				close((int) redir_in);
+		if (redir_out != 1)
+			if (dup2((int) redir_out, 1))
+				close((int) redir_out);
+		if (redir_err != 2)
+			if (dup2((int) redir_err, 2))
+				close((int) redir_err);
+		argv += 4;
+		argc -= 4;
+	}
+
+	DDL_file_name = NULL;
+	DB_file_name = NULL;
+	DDL_drop_database = DDL_quit = DDL_extract = DDL_dynamic = DDL_trace =
+		DDL_version = FALSE;
+	DDL_default_user = DDL_default_password = NULL;
+#ifdef DEV_BUILD
+	sw_ods7 = FALSE;
+#endif
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+	DDL_interp = HOST_INTERP;
+
+/* Initialize the array which is used to map untagged versions of
+   ddl verbs into tagged versions. */
+
+	DDL_tagged_verbs[gds__dyn_description] = gds__dyn_description2;
+	DDL_tagged_verbs[gds__dyn_fld_computed_source] =
+		gds__dyn_fld_computed_source2;
+	DDL_tagged_verbs[gds__dyn_fld_edit_string] = gds__dyn_fld_edit_string2;
+	DDL_tagged_verbs[gds__dyn_fld_query_header] = gds__dyn_fld_query_header2;
+	DDL_tagged_verbs[gds__dyn_fld_validation_source] =
+		gds__dyn_fld_validation_source2;
+	DDL_tagged_verbs[gds__dyn_trg_msg] = gds__dyn_trg_msg2;
+	DDL_tagged_verbs[gds__dyn_trg_source] = gds__dyn_trg_source2;
+	DDL_tagged_verbs[gds__dyn_view_source] = gds__dyn_view_source2;
+#endif
+
+	file_name_1[0] = file_name_2[0] = 0;
+
+	for (--argc; argc; argc--) {
+		string = *++argv;
+		if ((*string != '-') && (*string != '?')) {
+			if (!*file_name_1)
+				strcpy(file_name_1, string);
+			else
+				strcpy(file_name_2, string);
+			continue;
+		}
+		else if (*string == '-') {
+			/* iterate through the switch table, looking for matches */
+
+			in_sw = IN_SW_GDEF_0;
+			for (in_sw_tab = gdef_in_sw_table; q = in_sw_tab->in_sw_name;
+				 in_sw_tab++) {
+				p = string + 1;
+
+				/* handle orphaned hyphen case */
+
+				if (!*p--)
+					break;
+
+				/* compare switch to switch name in table */
+
+				while (*p) {
+					if (!*++p)
+						in_sw = in_sw_tab->in_sw;
+					if (UPPER(*p) != *q++)
+						break;
+				}
+
+				/* end of input means we got a match.  stop looking */
+
+				if (!*p)
+					break;
+			}
+		}
+		switch (in_sw) {
+		case IN_SW_GDEF_D:
+			DDL_dynamic = TRUE;
+			DYN_file_name[0] = 0;
+			if (argc == 1)
+				break;
+			string = *++argv;
+			if (*string != '-') {
+				argc--;
+				strcpy(DYN_file_name, string);
+			}
+			else
+				argv--;
+			break;
+
+		case IN_SW_GDEF_C:
+			language = lan_c;
+			break;
+
+		case IN_SW_GDEF_P:
+			language = lan_pascal;
+			break;
+
+		case IN_SW_GDEF_COB:
+			language = lan_cobol;
+			break;
+
+		case IN_SW_GDEF_ANSI:
+			language = lan_ansi_cobol;
+			break;
+
+		case IN_SW_GDEF_BAS:
+			language = lan_basic;
+			break;
+
+		case IN_SW_GDEF_PLI:
+			language = lan_pli;
+			break;
+
+		case IN_SW_GDEF_F:
+			language = lan_fortran;
+			break;
+
+		case IN_SW_GDEF_ADA:
+			language = lan_ada;
+			break;
+
+		case IN_SW_GDEF_CXX:
+			language = lan_cxx;
+			break;
+
+		case IN_SW_GDEF_G:
+			DDL_extract = TRUE;
+			break;
+
+		case IN_SW_GDEF_R:
+			DDL_replace = TRUE;
+			break;
+
+		case IN_SW_GDEF_T:
+			DDL_trace = TRUE;
+			break;
+
+		case IN_SW_GDEF_Z:
+			DDL_msg_put(0, GDS_VERSION, 0, 0, 0, 0);	/* msg 0: gdef version %s\n */
+			DDL_version = TRUE;
+			break;
+
+		case IN_SW_GDEF_PASSWORD:
+			if (argc > 1) {
+				DDL_default_password = *++argv;
+				argc--;
+			}
+			break;
+
+		case IN_SW_GDEF_USER:
+			if (argc > 1) {
+				DDL_default_user = *++argv;
+				argc--;
+			}
+			break;
+
+#ifdef DEV_BUILD
+		case IN_SW_GDEF_7:
+			sw_ods7 = TRUE;
+			break;
+#endif
+
+		case IN_SW_GDEF_0:
+			if (*string != '?')
+				DDL_msg_put(1, string, 0, 0, 0, 0);	/* msg 1: gdef: unknown switch %s */
+			DDL_msg_put(2, 0, 0, 0, 0, 0);	/* msg 2: \tlegal switches are: */
+			for (in_sw_tab = gdef_in_sw_table; in_sw_tab->in_sw; in_sw_tab++)
+				if (in_sw_tab->in_sw_text)
+					DDL_msg_put(3, in_sw_tab->in_sw_name,
+								in_sw_tab->in_sw_text, 0, 0, 0);	/* msg 3: %s%s */
+			DDL_exit(FINI_ERROR);
+		}
+	}
+
+	if (DDL_extract) {
+		strcpy(DB_file_string, file_name_1);
+		strcpy(DDL_file_string, file_name_2);
+		if (!*DB_file_string) {
+			DDL_msg_put(4, 0, 0, 0, 0, 0);	/* msg 4: gdef: Database name is required for extract */
+			DDL_exit(FINI_ERROR);
+		}
+		DB_file_name = DB_file_string;
+		DDL_file_name = DDL_file_string;
+		DDL_ext();
+		DDL_exit(FINI_OK);
+	}
+	else if (*file_name_1) {
+		strcpy(DDL_file_string, file_name_1);
+		DDL_file_name = DDL_file_string;
+	}
+	if (DDL_file_name == NULL) {
+		DDL_file_name = "standard input";
+		input_file = ib_stdin;
+		DDL_interactive = DDL_service || isatty(0);
+	}
+	else {
+		/* 
+		   * try to open the input DDL file.  
+		   * If it already has a .GDL extension, just try to open it.
+		   * Otherwise, add the extension, try, remove the extension,
+		   * and try again.
+		 */
+
+		input_file = NULL;
+
+		/* first find the extension by going to the end and backing up */
+
+		for (p = DDL_file_name; *p; p++);
+		while ((p != DDL_file_name) && (*p != '.') && (*p != '/'))
+			p--;
+
+		/* then handle the case where the input already ends in .GDL */
+
+		if (*p == '.') {
+			for (q = DDL_EXT; UPPER(*p) == UPPER(*q); p++, q++)
+				if (!*p) {
+					input_file = ib_fopen(DDL_file_name, FOPEN_INPUT_TYPE);
+					if (!input_file) {
+						DDL_msg_put(5, DDL_file_name, 0, 0, 0, 0);	/* msg 5: gdef: can't open %s */
+						DDL_exit(FINI_ERROR);
+					}
+				}
+		}
+
+		/* if we got this far without opening it, it's time to add the new extension */
+
+		if (!input_file) {
+			sprintf(file_name_1, "%s%s", DDL_file_name, DDL_EXT);
+			input_file = ib_fopen(file_name_1, FOPEN_INPUT_TYPE);
+			if (input_file)
+				DDL_file_name = file_name_1;
+			else {
+				input_file = ib_fopen(DDL_file_name, FOPEN_INPUT_TYPE);
+				if (!input_file)
+					DDL_msg_put(6, DDL_file_name, file_name_1, 0, 0, 0);
+				/* msg 6: gdef: can't open %s or %s */
+			}
+		}
+		if (!input_file)
+			DDL_exit(FINI_ERROR);
+	}
+
+#ifdef DEV_BUILD
+	if (sw_ods7) {
+		gds__enable_subsystem("GDSSHR5");
+		gds__enable_subsystem("PIPE5");
+	}
+#endif
+
+	LEX_init(input_file);
+	HSH_init();
+	PARSE_actions();
+
+	if (input_file != ib_stdin)
+		ib_fclose(input_file);
+
+	if (DDL_actions && ((DDL_errors && DDL_interactive) || DDL_quit)) {
+		ib_rewind(ib_stdin);
+		*buffer = 0;
+		if (DDL_errors > 1)
+			DDL_msg_partial(7, (TEXT *) DDL_errors, 0, 0, 0, 0);	/* msg 7: \n%d errors during input. */
+		else if (DDL_errors)
+			DDL_msg_partial(9, 0, 0, 0, 0, 0);	/* msg 9: \n1 error during input. */
+		else
+			DDL_msg_partial(8, 0, 0, 0, 0, 0);	/* msg 8: \nNo errors. */
+		if (DDL_yes_no(10))		/* msg 10 : save changes before exiting? */
+			DDL_quit = DDL_errors = 0;
+	}
+
+/* Reverse the set of actions */
+
+	stack = NULL;
+	while (DDL_actions) {
+		temp = DDL_actions;
+		DDL_actions = temp->act_next;
+		temp->act_next = stack;
+		stack = temp;
+	}
+	DDL_actions = stack;
+
+	if (!DDL_errors && !DDL_quit) {
+		EXP_actions();
+		if (!DDL_errors && !DDL_quit) {
+			EXE_execute();
+			if (DDL_dynamic)
+				TRN_translate();
+		}
+	}
+
+	if (DDL_actions && (DDL_errors || DDL_quit))
+		if (DDL_errors)
+			DDL_msg_put(307, 0, 0, 0, 0, 0);	/* msg 307: Ceasing processing because of errors. */
+		else
+			DDL_msg_put(308, 0, 0, 0, 0, 0);	/* msg 308: Ceasing processing. */
+
+	EXE_fini(database);
+
+	if (DDL_errors) {
+		if (database && (database->dbb_flags & DBB_create_database)) {
+			for (file = database->dbb_files; file; file = file->fil_next)
+				unlink(file->fil_name->sym_name);
+			unlink(database->dbb_name->sym_string);
+		}
+		DDL_exit(FINI_ERROR);
+	}
+
+	DDL_exit(FINI_OK);
+}
+
+
+UCHAR *DDL_alloc(register int size)
+{
+/**************************************
+ *
+ *	D D L _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	register UCHAR *block, *p;
+
+	p = block = gds__alloc((SLONG) size);
+
+#ifdef DEBUG_GDS_ALLOC
+/* For V4.0 we don't care about gdef specific memory leaks */
+	gds_alloc_flag_unfreed(block);
+#endif
+
+	if (!p)
+		DDL_err(14, 0, 0, 0, 0, 0);	/* msg 14: memory exhausted */
+	else
+		do
+			*p++ = 0;
+		while (--size);
+
+	return block;
+}
+
+
+int DDL_db_error(
+				 STATUS * status_vector,
+				 USHORT number,
+				 TEXT * arg1,
+				 TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	D D L _ d b _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Issue an error message.
+ *
+ **************************************/
+
+	gds__print_status(status_vector);
+
+	return DDL_err(number, arg1, arg2, arg3, arg4, arg5);
+}
+
+
+int DDL_err(
+			USHORT number,
+			TEXT * arg1, TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	D D L _ e r r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Issue an error message. Quit if >MAX_ERRORS
+ *
+ **************************************/
+
+	DDL_msg_partial(15, DDL_file_name, (TEXT *) DDL_line, 0, 0, 0);	/*msg 15: %s:%d: */
+	DDL_msg_put(number, arg1, arg2, arg3, arg4, arg5);
+	if (DDL_errors++ > MAX_ERRORS) {
+		DDL_msg_put(16, (TEXT *) MAX_ERRORS, 0, 0, 0, 0);	/* msg 16: error count exceeds limit (%d) */
+		DDL_msg_put(17, 0, 0, 0, 0, 0);	/* msg 17: what we have here is a failure to communicate! */
+		if (database && (database->dbb_flags & DBB_create_database))
+			unlink(DB_file_name);
+		DDL_exit(FINI_ERROR);
+	}
+
+	return 0;
+}
+
+
+void DDL_error_abort(
+					 STATUS * status_vector,
+					 USHORT number,
+					 TEXT * arg1,
+					 TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	D D L _ e r r o r _ a b o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Things are going very poorly, so put out an error message
+ *	and give up.
+ *
+ **************************************/
+
+	if (status_vector)
+		gds__print_status(status_vector);
+
+	DDL_err(number, arg1, arg2, arg3, arg4, arg5);
+	DDL_exit(FINI_ERROR);
+}
+
+
+void DDL_exit( int stat)
+{
+/**************************************
+ *
+ *	D D L _ e x i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Exit with status.
+ *
+ **************************************/
+
+	LEX_fini();
+	exit(stat);
+}
+
+
+void DDL_msg_partial(
+					 USHORT number,
+					 TEXT * arg1,
+					 TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	D D L _ m s g _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, format it, and print it
+ *	without a newline.
+ *
+ **************************************/
+
+	gds__msg_format(0, DDL_MSG_FAC, number, sizeof(DDL_message), DDL_message,
+					arg1, arg2, arg3, arg4, arg5);
+	ib_printf("%s", DDL_message);
+}
+
+
+void DDL_msg_put(
+				 USHORT number,
+				 TEXT * arg1,
+				 TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	D D L _ m s g _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, format it, and print it.
+ *
+ **************************************/
+
+	gds__msg_format(0, DDL_MSG_FAC, number, sizeof(DDL_message), DDL_message,
+					arg1, arg2, arg3, arg4, arg5);
+	ib_printf("%s\n", DDL_message);
+}
+
+
+NOD DDL_pop(LLS * pointer)
+{
+/**************************************
+ *
+ *	D D L _ p o p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pop an item off a linked list stack.  Free the stack node.
+ *
+ **************************************/
+	LLS stack;
+	NOD node;
+
+	stack = *pointer;
+	node = stack->lls_object;
+	*pointer = stack->lls_next;
+	stack->lls_next = free_stack;
+	free_stack = stack;
+
+	return node;
+}
+
+
+void DDL_push( NOD object, LLS * pointer)
+{
+/**************************************
+ *
+ *	D D L _ p u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Push an arbitrary object onto a linked list stack.
+ *
+ **************************************/
+	LLS stack;
+
+	if (free_stack) {
+		stack = free_stack;
+		free_stack = stack->lls_next;
+	}
+	else
+		stack = (LLS) DDL_alloc(LLS_LEN);
+
+	stack->lls_object = object;
+	stack->lls_next = *pointer;
+	*pointer = stack;
+}
+
+
+int DDL_yes_no( USHORT number)
+{
+/**************************************
+ *
+ *	D D L _ y e s _ n o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Ask a yes/no question.
+ *
+ **************************************/
+	int c, d;
+	USHORT count, yes_num, no_num, re_num;
+	TEXT prompt[128], reprompt[128], yes_ans[128], no_ans[128];
+
+	gds__msg_format(0, DDL_MSG_FAC, number, sizeof(prompt), prompt, NULL,
+					NULL, NULL, NULL, NULL);
+
+	yes_num = 342;				/* Msg342 YES   */
+	no_num = 343;				/* Msg343 NO    */
+	re_num = 344;				/* Msg344 Please respond with YES or NO. */
+	reprompt[0] = '\0';
+
+	if (gds__msg_format
+		(0, DDL_MSG_FAC, no_num, sizeof(no_ans), no_ans, NULL, NULL, NULL,
+		 NULL, NULL) <= 0)
+		strcpy(no_ans, "NO");	/* default if msg_format fails */
+	if (gds__msg_format
+		(0, DDL_MSG_FAC, yes_num, sizeof(yes_ans), yes_ans, NULL, NULL, NULL,
+		 NULL, NULL) <= 0)
+		strcpy(yes_ans, "YES");
+
+	for (;;) {
+		ib_printf(prompt);
+		if (DDL_service)
+			ib_putc('\001', ib_stdout);
+		ib_fflush(ib_stdout);
+		count = 0;
+		while ((c = ib_getc(ib_stdin)) == ' ')
+			count++;
+		if (c != '\n' && c != EOF)
+			while ((d = ib_getc(ib_stdin)) != '\n' && d != EOF);
+		if (!count && c == EOF)
+			return FALSE;
+		if (UPPER(c) == UPPER(yes_ans[0]))
+			return TRUE;
+		if (UPPER(c) == UPPER(no_ans[0]))
+			return FALSE;
+		if (!reprompt
+			&& gds__msg_format(0, DDL_MSG_FAC, re_num, sizeof(reprompt),
+							   reprompt, NULL, NULL, NULL, NULL, NULL) <= 0)
+			sprintf(reprompt, "Please respond with YES or NO.");	/* default if msg_format fails */
+		ib_printf("%s\n", reprompt);
+	}
+}
diff --git a/src/dudley/ddl.h b/src/dudley/ddl.h
new file mode 100644
index 0000000000..09154b6f43
--- /dev/null
+++ b/src/dudley/ddl.h
@@ -0,0 +1,683 @@
+/*
+ *	PROGRAM:	JRD Data Definition Utility
+ *	MODULE:		ddl.h
+ *	DESCRIPTION:	Common header modules
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DUDLEY_DDL_H_
+#define _DUDLEY_DDL_H_
+
+#include "../jrd/common.h"
+
+#ifdef VMS
+#define BLOCK_SIZE 512
+#else
+#define BLOCK_SIZE 1024
+#endif
+
+#define MAXSYMLEN	257			/* max length of symbol + terminator */
+#define MAX_PAGE_LEN	16384	/* max allowable length for a database page */
+
+#define DDL_MSG_FAC	2
+
+#define BUGCHECK(string)	DDL_error (string)
+#define SYNTAX_ERROR(string)	PARSE_syntax_error (string)
+#define IBERROR(string)		DDL_error (string)
+#define BLKCHK(blk, type)	if (blk->blk_type != (SCHAR) type) BUGCHECK ("expected type")
+#define LLS_PUSH(object,stack)	DDL_push ((NOD) object, stack)
+#define LLS_POP(stack)		DDL_pop (stack)
+
+
+/* Action block.  Do something. */
+
+/* Actions */
+
+enum act_t {
+	act_c_database,				/* create database */
+	act_m_database,				/* modify database */
+	act_d_database,				/* drop a database */
+	act_a_relation,				/* add relation */
+	act_m_relation,				/* modify existing relation */
+	act_d_relation,				/* drop existing relations */
+	act_a_gfield,				/* add global field */
+	act_m_gfield,				/* modify existing global fields */
+	act_d_gfield,				/* drop global field */
+	act_a_field,				/* add field to relation */
+	act_m_field,				/* modify relation specific fields */
+	act_d_field,				/* drop field from relation */
+	act_a_index,				/* add index */
+	act_m_index,				/* modify index */
+	act_d_index,				/* delete index */
+	act_a_security,				/* add security class */
+	act_d_security,				/* delete security class */
+	act_m_security,				/* modify security class */
+	act_a_trigger,				/* add new trigger */
+	act_m_trigger,				/* modify (replace) trigger */
+	act_d_trigger,				/* delete trigger */
+	act_a_file,					/* add file */
+	act_a_function,				/* add function */
+	act_d_function,				/* drop function */
+	act_a_function_arg,			/* add function */
+	act_d_function_arg,			/* drop function */
+	act_a_trigger_msg,			/* add trigger message */
+	act_m_trigger_msg,			/* modify trigger message */
+	act_d_trigger_msg,			/* drop trigger message */
+	act_a_type,					/* add type for field */
+	act_m_type,					/* modify type for field */
+	act_d_type,					/* drop type for field */
+	act_a_filter,				/* add filter */
+	act_d_filter,				/* drop filter */
+	act_grant,					/* grant user privilege */
+	act_revoke,					/* revoke user privilege */
+	act_a_shadow,				/* add shadow */
+	act_d_shadow,				/* drop shadow */
+	act_a_generator,			/* add generator */
+	act_s_generator				/* reset generator value */
+};
+
+typedef struct act {
+	enum act_t act_type;		/* what to do */
+	struct act *act_next;		/* next action in system */
+	struct dbb *act_object;		/* object in question (rel, fld, idx, etc.) */
+	USHORT act_line;			/* line the action started on */
+	USHORT act_flags;
+} *ACT;
+
+#define ACT_ignore	1			/* Ignore the action */
+
+#define ACT_LEN sizeof (struct act)
+
+
+/* Context block */
+
+typedef struct ctx {
+	struct sym *ctx_name;
+	struct rel *ctx_relation;
+	struct fld *ctx_field;
+	USHORT ctx_view_rse;
+	USHORT ctx_context_id;
+} *CTX;
+
+#define CTX_LEN sizeof (struct ctx)
+
+
+/* Database Definition Block */
+
+typedef struct dbb {
+	struct sym *dbb_name;
+	struct rel *dbb_relations;
+	struct gfl *dbb_fields;
+	struct dbb *dbb_next;
+	struct sym *dbb_security_class;
+	SLONG *dbb_handle;
+	SLONG *dbb_transaction;
+	struct txt *dbb_description;
+	USHORT dbb_flags;
+	struct sym *dbb_file_name;
+	struct fil *dbb_files;
+	USHORT dbb_page_size;
+	ULONG dbb_length;			/* Length of database in pages, if known */
+	struct fil *dbb_logfiles;
+	struct fil *dbb_overflow;
+	SLONG dbb_chkptlen;
+	SSHORT dbb_numbufs;
+	SSHORT dbb_bufsize;
+	SLONG dbb_grp_cmt_wait;
+	struct fil *dbb_cache_file;
+} *DBB;
+
+#define DBB_null_description	1
+#define DBB_null_security_class	2
+#define DBB_create_database	4
+#define DBB_drop_log		8
+#define DBB_log_serial		16
+#define DBB_log_preallocated	32
+#define DBB_log_default		64
+#define DBB_cascade		128
+#define DBB_drop_cache		256
+
+#define DBB_LEN	sizeof (struct dbb)
+
+#define DB_VERSION_DDL4 4		/* ods4 db */
+#define DB_VERSION_DDL6 6		/* ods6 db */
+#define DB_VERSION_DDL8 8		/* ods8 db */
+
+
+/* Field block.  Fields are what farms and databases are all about */
+
+typedef struct fld {
+	SSHORT fld_dtype;			/* data type of field */
+	SSHORT fld_length;			/* field length in bytes */
+	SSHORT fld_scale;			/* scale factor */
+	SSHORT fld_position;		/* field position */
+	SSHORT fld_segment_length;
+	SSHORT fld_sub_type;
+	SSHORT fld_has_sub_type;
+	SSHORT fld_dimension;		/* size of multi-dim. array */
+	SSHORT fld_system;			/* 0 if field is user defined */
+	USHORT fld_flags;			/* misc trash */
+	struct fld *fld_next;		/* next field in relation */
+	struct rel *fld_relation;	/* relation */
+	struct sym *fld_security_class;
+	struct ctx *fld_context;	/* context for view */
+	struct dbb *fld_database;	/* database for global fields */
+	struct sym *fld_name;		/* field name */
+	struct sym *fld_source;		/* name of global field */
+	struct fld *fld_source_field;	/* global field for computed field */
+	struct sym *fld_base;		/* base field for views */
+	struct sym *fld_query_name;	/* query name */
+	struct nod *fld_query_header;	/* query header */
+	struct sym *fld_edit_string;	/* edit string */
+	struct nod *fld_computed;	/* computed by expression */
+	struct nod *fld_missing;	/* missing value */
+	struct nod *fld_default;	/* default value */
+	struct nod *fld_validation;	/* valid if value */
+	struct txt *fld_description;	/* description of field */
+	struct txt *fld_compute_src;	/* computed_by source */
+	struct txt *fld_valid_src;	/* validation source */
+	SLONG *fld_ranges;			/* ranges for multi-dim. array */
+} *FLD;
+
+#define fld_explicit_position	1
+#define fld_modify		2
+#define fld_local		4
+#define fld_null_description	8
+#define fld_null_security_class	16
+#define fld_null_validation	32
+#define fld_explicit_system	64
+#define fld_null_missing_value	128
+#define fld_null_edit_string	256
+#define fld_null_query_name	512
+#define fld_null_query_header	1024
+
+#define FLD_LEN sizeof (struct fld)
+
+
+/* File description block */
+
+typedef struct fil {
+	SLONG fil_length;			/* File length in pages */
+	SLONG fil_start;			/* Starting page */
+	struct sym *fil_name;		/* File name */
+	struct fil *fil_next;		/* next file */
+	SSHORT fil_shadow_number;	/* shadow number if part of shadow */
+	SSHORT fil_manual;			/* flag to indicate manual shadow */
+	SSHORT fil_partitions;		/* number of log file partitions */
+	SSHORT fil_raw;				/* on raw device? */
+	SSHORT fil_conditional;		/* flag to indicate conditional shadow */
+} *FIL;
+
+#define FIL_LEN	sizeof (struct fil)
+
+
+/* Filter block */
+
+typedef struct filter {
+	struct sym *filter_name;	/* symbol for filter name */
+	struct txt *filter_description;	/* description of filter */
+	struct sym *filter_module_name;	/* symbol for module name */
+	struct sym *filter_entry_point;	/* symbol for entrypoint */
+	SSHORT filter_input_sub_type;
+	SSHORT filter_output_sub_type;
+} *FILTER;
+
+#define FILTER_LEN	sizeof (struct filter)
+
+
+/* Function description block */
+
+typedef struct func {
+	struct sym *func_name;		/* symbol for function name */
+	struct sym *func_query_name;	/* symbol for query name */
+	struct sym *func_module_name;	/* symbol for module name */
+	struct sym *func_entry_point;	/* symbol for entrypoint */
+	SSHORT func_return_arg;		/* return argument position */
+	struct func *func_next;		/* next function in database */
+	struct dbb *func_database;	/* database for function */
+	struct txt *func_description;	/* description of function */
+	struct funcarg *func_args;	/* Known function arguments */
+	struct funcarg *func_return;	/* Return argument */
+} *FUNC;
+
+#define FUNC_LEN sizeof (struct func)
+
+/* Function argument block. */
+
+typedef struct funcarg {
+	struct sym *funcarg_funcname;	/* symbol for function name */
+	SSHORT funcarg_position;	/* argument position */
+	SSHORT funcarg_mechanism;	/* argument passed by value, or by reference */
+	SSHORT funcarg_dtype;		/* data type of argument */
+	SSHORT funcarg_scale;		/* scale factor */
+	SSHORT funcarg_length;		/* argument length in bytes */
+	SSHORT funcarg_return_arg;	/* argument is the designated return arg */
+	SSHORT funcarg_sub_type;	/* sub_type of text */
+	SSHORT funcarg_has_sub_type;	/* null field for sub_type field */
+	struct funcarg *funcarg_next;	/* next field in function */
+} *FUNCARG;
+
+#define FUNCARG_mechanism_value		0
+#define FUNCARG_mechanism_reference	1
+#define FUNCARG_mechanism_descriptor	2
+#define FUNCARG_mechanism_blob_struc	3
+#define FUNCARG_mechanism_sc_array_desc	4
+
+#define FUNCARG_LEN sizeof (struct funcarg)
+
+
+/* Index description block */
+
+typedef struct dudley_idx {
+	USHORT idx_count;			/* Number of fields */
+	UCHAR idx_unique;			/* TRUE if unique index */
+	UCHAR idx_inactive;			/* FALSE if index is active */
+	UCHAR idx_type;				/* 1 = descending */
+	USHORT idx_flags;			/* Indicate which attributes have changed */
+	struct sym *idx_name;		/* Index name */
+	struct sym *idx_relation;	/* Relation in question */
+	struct txt *idx_description;	/* Description pointer */
+	struct sym *idx_field[1];	/* Fields */
+} *DUDLEY_IDX;
+
+#define IDX_type_none   0
+#define IDX_type_descend	1
+
+#define IDX_active_flag	1
+#define IDX_unique_flag	2
+#define IDX_null_description	4
+#define IDX_type_flag	8
+#define IDX_statistics_flag	16
+
+#define IDX_LEN(cnt) (sizeof (struct dudley_idx) + (cnt - 1) * sizeof (((DUDLEY_IDX) 0)->idx_field[0]))
+
+
+/* Linked list stack stuff */
+
+typedef struct lls {
+	struct nod *lls_object;		/* object on stack */
+	struct lls *lls_next;		/* next item on stack */
+} *LLS;
+
+#define LLS_LEN sizeof (struct lls)
+
+
+/* General Syntax node, produced by parser */
+
+enum nod_t {
+	nod_field = 1, nod_literal, nod_value,
+	nod_and, nod_or, nod_not,
+	nod_eql, nod_neq, nod_geq,
+	nod_leq, nod_gtr, nod_lss,
+	nod_containing, nod_matches, nod_any,
+	nod_unique, nod_add, nod_multiply,
+	nod_divide, nod_subtract, nod_negate,
+	nod_msg, nod_for, nod_send,
+	nod_receive, nod_block, nod_select,
+	nod_boolean, nod_projection, nod_sort,
+	nod_store, nod_modify, nod_erase,
+	nod_if, nod_assignment, nod_rse,
+	nod_first, nod_context, nod_end,
+	nod_label, nod_leave, nod_loop,
+	nod_max, nod_min, nod_count,
+	nod_total, nod_average, nod_list,
+	nod_defered, nod_between, nod_missing,
+	nod_field_name, nod_name, nod_starts,
+	nod_from, nod_fid, nod_concatenate,
+	nod_abort, nod_null, nod_user_name,
+	nod_post, nod_function, nod_gen_id,
+	nod_uppercase, nod_sleuth, nod_over,
+	nod_set_generator, nod_index
+};
+
+typedef struct nod {
+	enum nod_t nod_type;		/* node type */
+	UCHAR *nod_blr;				/* symbolic blr string */
+	SSHORT nod_count;			/* number of sub-items */
+	struct nod *nod_arg[1];		/* argument */
+} *NOD;
+
+#define NOD_LEN(cnt) (sizeof (struct nod) + (cnt - 1) * sizeof (((NOD) 0)->nod_arg[0]))
+
+
+/* Relation block, not to be confused with siblings or in-laws */
+
+typedef struct rel {
+	struct dbb *rel_database;	/* parent database */
+	struct sym *rel_filename;	/* external filename */
+	struct fld *rel_fields;		/* linked list of known fields */
+	struct sym *rel_name;		/* symbol for relation */
+	struct sym *rel_security_class;	/* name of security class */
+	struct rel *rel_next;		/* next relation in database */
+	struct nod *rel_rse;		/* view rse */
+	struct txt *rel_description;	/* description of relation */
+	struct txt *rel_view_source;	/* source dml for view definition */
+	USHORT rel_field_position;	/* highest used field position */
+	SSHORT rel_system;			/* 0 if relation is user defined */
+	USHORT rel_flags;
+} *REL;
+
+#define rel_null_description	1
+#define rel_null_security_class	2
+#define rel_explicit_system	4
+#define rel_marked_for_delete	8
+#define rel_null_ext_file	16
+#define rel_marked_for_modify	32
+#define rel_marked_for_creation	64
+
+#define REL_LEN sizeof (struct rel)
+
+
+/* Security class handling */
+
+typedef struct scl {
+	struct sym *scl_name;		/* name of security class */
+	struct txt *scl_description;	/* description of security class */
+	struct sce *scl_entries;	/* list of entries */
+} *SCL;
+
+#define SCL_LEN  sizeof (struct scl)
+#define SCL_write  2
+
+/* Security entry */
+
+typedef struct sce {
+	struct sce *sce_next;		/* next security item in list */
+	SLONG sce_privileges;		/* bitmask of privileges */
+	UCHAR *sce_idents[20];		/* misc identification stuff */
+	UCHAR sce_strings[1];
+} *SCE;
+
+#define SCE_LEN sizeof (struct sce)
+
+
+/* String block for build DYN & BLR strings */
+
+typedef struct str {
+	SCHAR *str_start;			/* start of string buffer */
+	SCHAR *str_current;			/* current position in string being built */
+	USHORT str_length;			/* length of buffer */
+} *STR;
+
+#define STR_LEN sizeof (struct str)
+
+
+/* Symbol block, also used for hash table */
+
+enum sym_t {
+	SYM_keyword,				/* unspecified */
+	SYM_context,				/* context variable */
+	SYM_database,				/* seems like a good idea */
+	SYM_relation,				/* if you don't know your relations, how do you know your friends? */
+	SYM_global,					/* Global field */
+	SYM_field,					/* Local field */
+	SYM_function,				/* UDF */
+	SYM_trigger					/* any named element deserves to be hashed */
+};
+
+typedef struct sym {
+	TEXT *sym_string;			/* address of asciz string */
+	SSHORT sym_length;			/* length of string (exc. term.) */
+	enum sym_t sym_type;		/* symbol type */
+	SSHORT sym_keyword;			/* keyword number, if keyword */
+	struct ctx *sym_object;		/* general pointer to object */
+	struct sym *sym_collision;	/* collision pointer */
+	struct sym *sym_homonym;	/* homonym pointer */
+	TEXT sym_name[1];			/* space for name, if necessary */
+} *SYM;
+
+#define SYM_LEN sizeof (struct sym)
+
+
+/* Trigger block */
+
+/* these are the externally visible trigger types */
+
+typedef enum {
+	trg_type_none = 0,			/* pre store */
+	trg_store = 1,				/* pre store */
+	trg_post_store = 2,
+	trg_modify = 3,				/* pre modify */
+	trg_post_modify = 4,
+	trg_pre_erase = 5,
+	trg_erase = 6				/* post erase */
+} TRG_T;
+
+/* these types are used in parsing */
+
+#define trig_pre	0
+#define	trig_post 	1
+#define	trig_sto	2
+#define	trig_mod 	4
+#define	trig_era	8			/* erase defaults to post */
+#define	trig_inact	16
+
+/* this table translates between the two types of types */
+
+static TRG_T trig_table[] = {
+	trg_type_none,
+	trg_type_none,
+	trg_store,
+	trg_post_store,
+	trg_modify,
+	trg_post_modify,
+	trg_type_none,
+	trg_type_none,
+	trg_pre_erase,
+	trg_erase
+};
+
+typedef struct trg {
+	TRG_T trg_type;
+	REL trg_relation;
+	NOD trg_statement;			/* blr */
+	struct sym *trg_name;		/* symbol for trigger */
+	struct txt *trg_description;	/* description of relation */
+	struct txt *trg_source;		/* source of trigger */
+	SSHORT trg_sequence;
+	SSHORT trg_inactive;		/* 0 = on, 1 = off */
+	USHORT trg_mflag;			/* modify attributes */
+} *TRG;
+
+/* trg_modify_flag */
+
+#define trg_mflag_onoff         1
+#define trg_mflag_type          2
+#define trg_mflag_seqnum        4
+#define trg_mflag_order		8
+
+#define TRG_LEN sizeof (struct trg)
+
+/* Trigger message block */
+
+typedef struct trgmsg {
+	struct sym *trgmsg_trg_name;	/* symbol for trigger */
+	SSHORT trgmsg_number;		/* abort code */
+	struct sym *trgmsg_text;
+} *TRGMSG;
+
+typedef enum {
+	trgmsg_none = 0,
+	trgmsg_add = 1,
+	trgmsg_modify = 2,
+	trgmsg_drop = 3
+} TRGMSG_T;
+
+#define TRGMSG_LEN sizeof (struct trgmsg)
+
+
+/* Text block */
+
+typedef struct txt {
+	TEXT *txt_file;
+	ULONG txt_position;
+	USHORT txt_length;
+	USHORT txt_start_line;
+} *TXT;
+
+#define TXT_LEN sizeof (struct txt)
+
+/* Type block */
+
+typedef struct typ {
+	struct sym *typ_field_name;	/* field name */
+	struct sym *typ_name;		/* type name */
+	SSHORT typ_type;			/* type value */
+	struct txt *typ_description;	/* description of relation */
+} *TYP;
+
+#define TYP_LEN sizeof (struct typ)
+
+
+/* User privilege block */
+
+typedef struct userpriv {
+	struct sym *userpriv_relation;
+	struct usre *userpriv_userlist;
+	struct upfe *userpriv_upflist;
+	USHORT userpriv_flags;
+} *USERPRIV;
+
+#define USERPRIV_LEN sizeof (struct userpriv)
+
+/* user privilege flags */
+
+#define USERPRIV_select	1
+#define USERPRIV_delete	2
+#define USERPRIV_insert	4
+#define USERPRIV_update	8
+#define USERPRIV_grant	16
+
+/* rdb$user_privilege.rdb$privilege */
+
+#define UPRIV_SELECT	"SELECT"
+#define UPRIV_DELETE	"DELETE"
+#define UPRIV_INSERT	"INSERT"
+#define UPRIV_UPDATE	"UPDATE"
+
+/* user name entry */
+
+typedef struct usre {
+	struct usre *usre_next;
+	struct sym *usre_name;
+} *USRE;
+
+#define USRE_LEN sizeof (struct usre)
+
+/* update field entry */
+
+typedef struct upfe {
+	struct upfe *upfe_next;
+	struct sym *upfe_fldname;
+} *UPFE;
+
+#define UPFE_LEN sizeof (struct upfe)
+
+
+/* Data types */
+
+#include "../jrd/dsc.h"
+
+#define DSC_LEN sizeof (struct dsc)
+
+
+/* Constant block */
+
+typedef struct con {
+	struct dsc con_desc;
+	UCHAR con_data[1];
+} *CON;
+
+#define CON_LEN sizeof (struct con)
+
+
+/* Program globals */
+
+typedef enum lan_t {
+	lan_undef,
+	lan_pascal,
+	lan_fortran,
+	lan_pli,
+	lan_cobol,
+	lan_ansi_cobol,
+	lan_basic,
+	lan_c,
+	lan_ada,
+	lan_cxx
+} LAN_T;
+
+#ifdef DDL_MAIN
+#define EXTERN
+#else
+#define EXTERN	extern
+#endif
+
+EXTERN enum lan_t language;
+EXTERN USHORT DDL_eof, DDL_errors, DDL_line, DDL_interactive, DDL_quit,
+	DDL_dynamic, DDL_drop_database, DDL_service;
+EXTERN UCHAR DDL_replace, DDL_description, DDL_extract, DDL_trace,
+	DDL_version;
+EXTERN TEXT *DDL_file_name, DYN_file_name[256], *DB_file_name,
+	DDL_file_string[256], DB_file_string[256];
+EXTERN TEXT *DDL_default_user, *DDL_default_password;
+EXTERN ACT DDL_actions;
+EXTERN DBB database;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+EXTERN USHORT DDL_interp;
+EXTERN TEXT DDL_tagged_verbs[256];
+#endif
+
+#undef EXTERN
+
+#include "../dudley/ddl_proto.h"
+
+#define s_rse_first	0			/* FIRST clause, if any */
+#define s_rse_boolean	1		/* Boolean clause, if any */
+#define s_rse_sort	2			/* Sort clause, if any */
+#define s_rse_reduced	3		/* Reduced clause, if any */
+#define s_rse_contexts	4		/* Relation block */
+#define s_rse_count	5
+
+#define s_stt_rse	0
+#define s_stt_value	1
+#define s_stt_default	2
+#define s_stt_count	3
+
+#define s_fld_field	0			/* Field block */
+#define s_fld_context	1		/* Context block */
+#define s_fld_name	2
+#define s_fld_subs	3
+#define s_fld_count	4
+
+#define s_if_boolean	0
+#define s_if_true	1
+#define s_if_false	2
+
+#define s_for_rse	0
+#define s_for_action	1
+
+#define s_store_rel	0
+#define s_store_action	1
+
+#define s_mod_old_ctx	0
+#define s_mod_new_ctx	1
+#define s_mod_action	2
+
+#endif /* _DUDLEY_DDL_H_ */
diff --git a/src/dudley/ddl_proto.h b/src/dudley/ddl_proto.h
new file mode 100644
index 0000000000..3c101e4f48
--- /dev/null
+++ b/src/dudley/ddl_proto.h
@@ -0,0 +1,40 @@
+/*
+ *	PROGRAM:	Data Definition Utility
+ *	MODULE:		ddl_proto.h
+ *	DESCRIPTION:	Prototype header file for ddl.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DUDLEY_DDL_PROTO_H_
+#define _DUDLEY_DDL_PROTO_H_
+
+extern UCHAR *DDL_alloc(register int);
+extern int DDL_db_error(STATUS *, USHORT, TEXT *, TEXT *, TEXT *, TEXT *,
+						TEXT *);
+extern int DDL_err(USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+extern void DDL_error_abort(STATUS *, USHORT, TEXT *, TEXT *, TEXT *, TEXT *,
+							TEXT *);
+extern void DDL_exit(int);
+extern void DDL_msg_partial(USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+extern void DDL_msg_put(USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+extern NOD DDL_pop(LLS *);
+extern void DDL_push(NOD, LLS *);
+extern int DDL_yes_no(USHORT);
+
+#endif /* _DUDLEY_DDL_PROTO_H_ */
diff --git a/src/dudley/depends.mak b/src/dudley/depends.mak
new file mode 100644
index 0000000000..9317c4f27d
--- /dev/null
+++ b/src/dudley/depends.mak
@@ -0,0 +1,182 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# depends.mak - dudley
+# Created by 'make depends.mak'
+# Created on 1998-11-17
+ddl.o: ddl.c
+ddl.o: ddl.h
+ddl.o: ddl_proto.h
+ddl.o: exe_proto.h
+ddl.o: expan_proto.h
+ddl.o: extra_proto.h
+ddl.o: hsh_proto.h
+ddl.o: lex_proto.h
+ddl.o: parse.h
+ddl.o: parse_proto.h
+ddl.o: source/interbase/include/iberror.h
+ddl.o: source/jrd/build_no.h
+ddl.o: source/jrd/common.h
+ddl.o: source/jrd/dsc.h
+ddl.o: source/jrd/fil.h
+ddl.o: source/jrd/gds.h
+ddl.o: source/jrd/gds_proto.h
+ddl.o: source/jrd/license.h
+ddl.o: source/jrd/thd.h
+ddl.o: source/jrd/why_proto.h
+ddl.o: trn_proto.h
+exe.o: ddl.h
+exe.o: ddl_proto.h
+exe.o: exe.c
+exe.o: exe_proto.h
+exe.o: gener_proto.h
+exe.o: hsh_proto.h
+exe.o: lex_proto.h
+exe.o: source/interbase/include/iberror.h
+exe.o: source/intl/charsets.h
+exe.o: source/jrd/acl.h
+exe.o: source/jrd/build_no.h
+exe.o: source/jrd/common.h
+exe.o: source/jrd/dsc.h
+exe.o: source/jrd/fil.h
+exe.o: source/jrd/flags.h
+exe.o: source/jrd/gds.h
+exe.o: source/jrd/gds_proto.h
+exe.o: source/jrd/intl.h
+exe.o: source/jrd/isc_f_proto.h
+exe.o: source/jrd/license.h
+exe.o: source/jrd/obj.h
+exe.o: source/jrd/thd.h
+exe.o: source/wal/walf_proto.h
+expand.o: ddl.h
+expand.o: ddl_proto.h
+expand.o: expan_proto.h
+expand.o: expand.c
+expand.o: hsh_proto.h
+expand.o: parse.h
+expand.o: parse_proto.h
+expand.o: source/interbase/include/iberror.h
+expand.o: source/jrd/common.h
+expand.o: source/jrd/dsc.h
+expand.o: source/jrd/fil.h
+expand.o: source/jrd/gds.h
+expand.o: source/jrd/gds_proto.h
+expand.o: source/jrd/thd.h
+expr.o: ddl.h
+expr.o: ddl_proto.h
+expr.o: expr.c
+expr.o: expr_proto.h
+expr.o: lex_proto.h
+expr.o: parse.h
+expr.o: parse_proto.h
+expr.o: source/interbase/include/iberror.h
+expr.o: source/intl/charsets.h
+expr.o: source/jrd/acl.h
+expr.o: source/jrd/common.h
+expr.o: source/jrd/dsc.h
+expr.o: source/jrd/gds.h
+expr.o: source/jrd/intl.h
+extract.o: ddl.h
+extract.o: ddl_proto.h
+extract.o: extra_proto.h
+extract.o: extract.c
+extract.o: source/interbase/include/iberror.h
+extract.o: source/jrd/acl.h
+extract.o: source/jrd/common.h
+extract.o: source/jrd/dsc.h
+extract.o: source/jrd/fil.h
+extract.o: source/jrd/flags.h
+extract.o: source/jrd/gds.h
+extract.o: source/jrd/gds_proto.h
+extract.o: source/jrd/isc.h
+extract.o: source/jrd/misc.h
+extract.o: source/jrd/obj.h
+extract.o: source/jrd/thd.h
+extract.o: source/wal/wal.h
+generate.o: ddl.h
+generate.o: ddl_proto.h
+generate.o: gener_proto.h
+generate.o: generate.c
+generate.o: source/interbase/include/iberror.h
+generate.o: source/jrd/acl.h
+generate.o: source/jrd/common.h
+generate.o: source/jrd/dsc.h
+generate.o: source/jrd/fil.h
+generate.o: source/jrd/gds.h
+generate.o: source/jrd/gds_proto.h
+generate.o: source/jrd/thd.h
+generate.o: trn_proto.h
+hsh.o: ddl.h
+hsh.o: ddl_proto.h
+hsh.o: hsh.c
+hsh.o: hsh_proto.h
+hsh.o: parse.h
+hsh.o: source/jrd/common.h
+hsh.o: source/jrd/dsc.h
+lex.o: ddl.h
+lex.o: ddl_proto.h
+lex.o: hsh_proto.h
+lex.o: lex.c
+lex.o: lex_proto.h
+lex.o: parse.h
+lex.o: source/interbase/include/iberror.h
+lex.o: source/jrd/common.h
+lex.o: source/jrd/dsc.h
+lex.o: source/jrd/fil.h
+lex.o: source/jrd/gds.h
+lex.o: source/jrd/gds_proto.h
+lex.o: source/jrd/kanji.h
+lex.o: source/jrd/thd.h
+parse.o: ddl.h
+parse.o: ddl_proto.h
+parse.o: exe_proto.h
+parse.o: expr_proto.h
+parse.o: hsh_proto.h
+parse.o: lex_proto.h
+parse.o: parse.c
+parse.o: parse.h
+parse.o: parse_proto.h
+parse.o: source/interbase/include/iberror.h
+parse.o: source/jrd/acl.h
+parse.o: source/jrd/common.h
+parse.o: source/jrd/dsc.h
+parse.o: source/jrd/fil.h
+parse.o: source/jrd/flags.h
+parse.o: source/jrd/gds.h
+parse.o: source/jrd/gds_proto.h
+parse.o: source/jrd/isc.h
+parse.o: source/jrd/isc_f_proto.h
+parse.o: source/jrd/kanji.h
+parse.o: source/jrd/misc.h
+parse.o: source/jrd/thd.h
+parse.o: source/wal/wal.h
+trn.o: ddl.h
+trn.o: ddl_proto.h
+trn.o: gener_proto.h
+trn.o: lex_proto.h
+trn.o: source/gpre/prett_proto.h
+trn.o: source/interbase/include/iberror.h
+trn.o: source/jrd/build_no.h
+trn.o: source/jrd/common.h
+trn.o: source/jrd/dsc.h
+trn.o: source/jrd/fil.h
+trn.o: source/jrd/gds.h
+trn.o: source/jrd/gds_proto.h
+trn.o: source/jrd/gdsassert.h
+trn.o: source/jrd/license.h
+trn.o: source/jrd/thd.h
+trn.o: trn.c
+trn.o: trn_proto.h
diff --git a/src/dudley/exe.e b/src/dudley/exe.e
new file mode 100644
index 0000000000..46137cdb56
--- /dev/null
+++ b/src/dudley/exe.e
@@ -0,0 +1,4381 @@
+/*
+ *	PROGRAM:	JRD Data Definition Utility
+ *	MODULE:		exe.e
+ *	DESCRIPTION:	Meta-data update execution module.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../dudley/ddl.h"
+#include "../jrd/license.h"
+#include "../jrd/gds.h"
+#include "../jrd/flags.h"
+#include "../jrd/acl.h"
+#include "../jrd/intl.h"
+#include "../jrd/obj.h"
+#include "../dudley/ddl_proto.h"
+#include "../dudley/exe_proto.h"
+#include "../dudley/gener_proto.h"
+#include "../dudley/hsh_proto.h"
+#include "../dudley/lex_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../wal/walf_proto.h"
+
+#ifdef WIN_NT
+#include <io.h>
+#endif
+
+#undef IS_DTYPE_ANY_TEXT
+#undef NUMERIC_SCALE
+
+#define	IS_DTYPE_ANY_TEXT(x)	(make_dtype(x) <= dtype_any_text)
+#define NUMERIC_SCALE(desc)	((IS_DTYPE_ANY_TEXT((desc).dsc_dtype)) ? 0 : (desc).dsc_scale)
+
+DATABASE DB = FILENAME "yachts.lnk";
+
+static void add_cache(DBB);
+static void add_field(FLD);
+static void add_files(DBB, FIL);
+static void add_filter(FILTER);
+static void add_function(FUNC);
+static void add_function_arg(FUNCARG);
+static void add_generator(SYM);
+static void add_global_field(FLD);
+static void add_index(DUDLEY_IDX);
+static void add_log_files(DBB);
+static void add_relation(REL);
+static void add_security_class(SCL);
+static void add_trigger(TRG);
+static void add_trigger_msg(TRGMSG);
+static void add_type(TYP);
+static void add_user_privilege(USERPRIV);
+static void add_view(REL);
+static void alloc_file_name(FIL *, UCHAR *);
+static FLD check_field(SYM, SYM);
+static BOOLEAN check_function(SYM);
+static BOOLEAN check_range(FLD);
+static BOOLEAN check_relation(SYM);
+static void close_blob(void *);
+static void *create_blob(SLONG *, USHORT, UCHAR *);
+static void drop_cache(DBB);
+static void drop_field(FLD);
+static void drop_filter(FILTER);
+static void drop_function(FUNC);
+static void drop_global_field(FLD);
+static void drop_index(DUDLEY_IDX);
+static void drop_relation(REL);
+static void drop_security_class(SCL);
+static void drop_shadow(SLONG);
+static void drop_trigger(TRG);
+static void drop_trigger_msg(TRGMSG);
+static void drop_type(TYP);
+static void drop_user_privilege(USERPRIV);
+static void erase_userpriv(USERPRIV, TEXT *, USRE, UPFE);
+static void get_field_desc(FLD);
+static void get_global_fields(void);
+static void get_log_names(SCHAR *, FIL *, SCHAR *, SLONG, SSHORT, SSHORT);
+static void get_log_names_serial(FIL *);
+static void get_relations(DBB);
+static USHORT get_prot_mask(TEXT *, TEXT *);
+static SYM get_symbol(enum sym_t, TEXT *, CTX);
+static void get_triggers(DBB);
+static void get_udfs(DBB);
+static void make_desc(NOD, DSC *);
+static int make_dtype(USHORT);
+static void modify_field(FLD);
+static void modify_global_field(FLD);
+static void modify_index(DUDLEY_IDX);
+static void modify_relation(REL);
+static void modify_trigger(TRG);
+static void modify_trigger_msg(TRGMSG);
+static void modify_type(TYP);
+static void move_symbol(SYM, register SCHAR *, SSHORT);
+static void set_generator(NOD);
+static void store_acl(SCL, SLONG *);
+static void store_blr(NOD, SLONG *, REL);
+static void store_query_header(NOD, SLONG *);
+static void store_range(FLD);
+static void store_text(TXT, SLONG *);
+static void store_userpriv(USERPRIV, TEXT *, TEXT *, USRE, UPFE);
+static int string_length(SCHAR);
+static void wal_info(UCHAR *, SLONG *, SCHAR *, SLONG *);
+
+static GDS__QUAD null_blob;
+static LLS files_to_delete = (LLS) NULL;
+static TEXT alloc_info[] = { gds__info_allocation, gds__info_end };
+
+#define CMP_SYMBOL(sym1, sym2)		strcmp (sym1->sym_string, sym2->sym_string)
+#define MOVE_SYMBOL(symbol, field)	move_symbol (symbol, field, sizeof (field) - 1)
+
+static SCHAR db_info[] =
+{
+	gds__info_logfile,
+	gds__info_cur_logfile_name,
+	gds__info_cur_log_part_offset
+};
+/*
+#define DEBUG	1
+*/
+
+
+SLONG EXE_check_db_version( DBB dbb)
+{
+/**************************************
+ *
+ *	E X E _ c h e c k _ d b _ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the version number of the database.
+ *
+ **************************************/
+	SLONG db_version = DB_VERSION_DDL4;
+
+	FOR X IN RDB$RELATIONS
+		WITH X.RDB$RELATION_NAME = "RDB$TRIGGERS"
+		db_version = DB_VERSION_DDL6;
+	END_FOR;
+	FOR X IN RDB$RELATIONS
+		WITH X.RDB$RELATION_NAME = "RDB$LOG_FILES"
+		db_version = DB_VERSION_DDL8;
+	END_FOR;
+
+	return db_version;
+}
+
+
+void EXE_create_database( DBB dbb)
+{
+/**************************************
+ *
+ *	E X E _ c r e a t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new database.
+ *
+ **************************************/
+	TEXT *file_name, dpb[128], *d, *p;
+	USHORT page_size, dpb_length;
+	USHORT len;
+	ULONG llen;
+	SLONG log, part_offset;
+	SCHAR db_info_buffer[512], cur_log[512];
+	SLONG ods_version;
+	SLONG result;
+
+/* Generate a dpb for attempting to attach to, and
+   later to create, the specified database. */
+
+	dpb_length = 0;
+	d = dpb;
+	*d++ = gds__dpb_version1;
+
+	if (p = DDL_default_user) {
+		*d++ = gds__dpb_user_name;
+		*d++ = strlen(p);
+		while (*p)
+			*d++ = *p++;
+	}
+
+	if (p = DDL_default_password) {
+		*d++ = gds__dpb_password;
+		*d++ = strlen(p);
+		while (*p)
+			*d++ = *p++;
+	}
+
+	dpb_length = d - dpb;
+	if (dpb_length == 1)
+		dpb_length = 0;
+
+	file_name = dbb->dbb_name->sym_string;
+
+	result = gds__attach_database(gds__status, 0, GDS_VAL(file_name),
+								  GDS_REF(DB), dpb_length, dpb);
+	if (!DDL_replace) {
+		if (!result) {
+			gds__detach_database(gds__status, GDS_REF(DB));
+			DDL_msg_put(18, file_name, NULL, NULL, NULL, NULL);	/* msg 18: Database \"%s\" already exists */
+			if (DDL_interactive) {
+				DDL_msg_partial(19, NULL, NULL, NULL, NULL, NULL);	/* msg 19: Do you want to replace it? */
+				if (!DDL_yes_no(286))
+					DDL_exit(FINI_ERROR);
+			}
+			else
+				DDL_exit(FINI_ERROR);
+		}
+		else if (gds__status[1] != gds__io_error)
+			DDL_error_abort(gds__status, 20, file_name, NULL, NULL, NULL, NULL);	/* msg 20: Database \"%s\" exists but can't be opened */
+	}
+	else {
+		/* replacing the database so try to drop it first. */
+		if (!result) {
+			isc_drop_database(gds__status, &DB);
+			if (DB)
+				isc_detach_database(gds__status, &DB);
+		}
+	}
+
+
+/* add the specified page size to the already defined dpb */
+
+	if (dbb->dbb_page_size) {
+		page_size = MAX(dbb->dbb_page_size, 1024);
+		*d++ = gds__dpb_page_size;
+		*d++ = 2;
+		*d++ = page_size;
+		*d++ = page_size >> 8;
+		dpb_length = d - dpb;
+	}
+
+	if (llen = dbb->dbb_chkptlen) {
+		*d++ = gds__dpb_wal_chkptlen;
+		*d++ = 4;
+		for (len = 0; len < 4; len++, llen = llen >> 8)
+			*d++ = llen;
+	}
+
+	if (len = dbb->dbb_numbufs) {
+		*d++ = gds__dpb_wal_numbufs;
+		*d++ = 2;
+		*d++ = len;
+		*d++ = len >> 8;
+	}
+
+	if (len = dbb->dbb_bufsize) {
+		*d++ = gds__dpb_wal_bufsize;
+		*d++ = 2;
+		*d++ = len;
+		*d++ = len >> 8;
+	}
+
+	if ((llen = dbb->dbb_grp_cmt_wait) >= 0) {
+		*d++ = gds__dpb_wal_grp_cmt_wait;
+		*d++ = 4;
+		for (len = 0; len < 4; len++, llen = llen >> 8)
+			*d++ = llen;
+	}
+
+	dpb_length = d - dpb;
+	if (dpb_length == 1)
+		dpb_length = 0;
+
+	if (gds__create_database(gds__status,
+							 0,
+							 GDS_VAL(file_name),
+							 GDS_REF(DB),
+							 dpb_length,
+							 dpb,
+							 0))
+			DDL_error_abort(gds__status, 21, file_name, NULL, NULL, NULL, NULL);	/* msg 21: Couldn't create database \"%s\" */
+
+	if (DDL_version) {
+		DDL_msg_put(23, file_name, NULL, NULL, NULL, NULL);	/* msg 23: Version(s) for database \"%s\" */
+		gds__version(&DB, NULL, NULL);
+	}
+
+	START_TRANSACTION;
+
+	ods_version = EXE_check_db_version(dbb);
+
+	if (ods_version < DB_VERSION_DDL6)
+		DDL_error_abort(NULL_PTR, 32, NULL, NULL, NULL, NULL, NULL);	/* msg 32: database version is too old to modify:
+																		   use GBAK first */
+
+	dbb->dbb_handle = DB;
+	dbb->dbb_transaction = gds__trans;
+
+/* Don't allow cache and WAL configurations for pre-ODS8 databases */
+
+	if (ods_version < DB_VERSION_DDL8) {
+		if ((dbb->dbb_flags & DBB_log_default) ||
+			(dbb->dbb_logfiles) ||
+			(dbb->dbb_cache_file))
+DDL_error_abort(NULL_PTR, 32, NULL, NULL, NULL, NULL, NULL);
+		/* msg 32: database version is too old to modify: use GBAK first */
+	}
+
+	if (dbb->dbb_files)
+		add_files(dbb, dbb->dbb_files);
+
+	if (dbb->dbb_cache_file)
+		add_cache(dbb);
+
+	if ((dbb->dbb_flags & DBB_log_default) || (dbb->dbb_logfiles))
+		add_log_files(dbb);
+
+/* If there is a description of the database, store it now */
+
+	FOR D IN RDB$DATABASE 
+        MODIFY D USING 
+        if (dbb->dbb_description) {
+            store_text(dbb->dbb_description, &D.RDB$DESCRIPTION);
+            D.RDB$DESCRIPTION.NULL = FALSE;
+        } 
+        if (dbb->dbb_security_class) {
+            MOVE_SYMBOL(dbb->dbb_security_class, D.RDB$SECURITY_CLASS);
+            D.RDB$SECURITY_CLASS.NULL = FALSE;
+        }
+        END_MODIFY;
+	END_FOR;
+
+	get_global_fields();
+	get_relations(dbb);
+	get_udfs(dbb);
+	get_triggers(dbb);
+
+	if ((dbb->dbb_flags & DBB_log_default) || (dbb->dbb_logfiles)) {
+		/* setup enough information to drop log files created */
+
+		if (gds__database_info(gds__status,
+							   GDS_REF(DB),
+							   sizeof(db_info),
+							   db_info,
+							   sizeof(db_info_buffer),
+							   db_info_buffer))
+				DDL_error_abort(gds__status, 327, NULL, NULL, NULL, NULL, NULL);	/* msg 327: error in getting write ahead log information */
+
+		log = 0;
+
+		wal_info(db_info_buffer, &log, cur_log, &part_offset);
+
+		if (log)
+			get_log_names_serial(&dbb->dbb_files);
+
+		if (log) {
+			get_log_names(dbb->dbb_name->sym_string, &dbb->dbb_files, cur_log,
+						  part_offset, dbb->dbb_flags & DBB_cascade, 0);
+		}
+	}
+}
+
+
+void EXE_drop_database( DBB dbb)
+{
+/**************************************
+ *
+ *	E X E _ d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop an existing database, and all
+ *	its files.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	FIL file;
+	SYM string;
+	TEXT dpb[128], *d, *p;
+	USHORT dpb_length;
+	SLONG log, part_offset;
+	SCHAR db_info_buffer[512], cur_log[512];
+
+	dpb_length = 0;
+	d = dpb;
+	*d++ = gds__dpb_version1;
+
+	if (p = DDL_default_user) {
+		*d++ = gds__dpb_user_name;
+		*d++ = strlen(p);
+		while (*p)
+			*d++ = *p++;
+	}
+
+	if (p = DDL_default_password) {
+		*d++ = gds__dpb_password;
+		*d++ = strlen(p);
+		while (*p)
+			*d++ = *p++;
+	}
+
+	dpb_length = d - dpb;
+	if (dpb_length == 1)
+		dpb_length = 0;
+
+	if (gds__attach_database(gds__status,
+							 0,
+							 GDS_VAL(dbb->dbb_name->sym_string),
+							 GDS_REF(DB),
+							 dpb_length,
+							 dpb))
+			DDL_error_abort(gds__status, 25, NULL, NULL, NULL, NULL, NULL);	/* msg 25: Couldn't locate database */
+
+	START_TRANSACTION;
+
+	FOR F IN RDB$FILES SORTED BY F.RDB$FILE_START
+		alloc_file_name(&dbb->dbb_files, F.RDB$FILE_NAME);
+	END_FOR;
+
+	COMMIT ON_ERROR DDL_db_error(gds__status, 26, NULL, NULL, NULL, NULL, NULL);	/* msg 26: error commiting metadata changes */
+	ROLLBACK;
+	END_ERROR;
+
+	if (gds__database_info(gds__status,
+						   GDS_REF(DB),
+						   sizeof(db_info),
+						   db_info,
+						   sizeof(db_info_buffer),
+						   db_info_buffer))
+			DDL_error_abort(gds__status, 327, NULL, NULL, NULL, NULL, NULL);	/* msg 327: error in getting write ahead log information */
+
+	wal_info(db_info_buffer, &log, cur_log, &part_offset);
+
+	if (log)
+		get_log_names_serial(&dbb->dbb_files);
+
+	if (gds__detach_database(gds__status, GDS_REF(DB)))
+		DDL_error_abort(gds__status, 27, NULL, NULL, NULL, NULL, NULL);	/* msg 27: Couldn't release database */
+
+	if (log) {
+		get_log_names(dbb->dbb_name->sym_string, &dbb->dbb_files, cur_log,
+					  part_offset, dbb->dbb_flags & DBB_cascade, 0);
+	}
+
+	for (file = dbb->dbb_files; file; file = file->fil_next)
+		if (unlink(file->fil_name->sym_name))
+			DDL_error_abort(NULL_PTR, 28, file->fil_name->sym_name, NULL,
+							NULL, NULL, NULL);	/* msg 28: Could not delete file %s */
+
+	if (unlink(dbb->dbb_name->sym_string))
+		DDL_error_abort(NULL_PTR, 28, dbb->dbb_name->sym_string, NULL, NULL,
+						NULL, NULL);	/* msg 28: Could not delete file %s */
+}
+
+
+void EXE_execute(void)
+{
+/**************************************
+ *
+ *	E X E _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute the output of the parser.
+ *	By this time we should have openned
+ *	a database - by creating it or by
+ *	preparing to modify it.  If not,
+ *	give up quietly.
+ *
+ **************************************/
+	ACT action;
+
+	if (!DDL_actions)
+		return;
+
+	if (!DB)
+		DDL_error_abort(NULL_PTR, 33, NULL, NULL, NULL, NULL, NULL);	/* msg 33: no database specified */
+
+	for (action = DDL_actions; action; action = action->act_next)
+		if (!(action->act_flags & ACT_ignore)) {
+			DDL_line = action->act_line;
+			switch (action->act_type) {
+			case act_c_database:
+			case act_m_database:
+				break;
+
+			case act_a_field:
+				add_field(action->act_object);
+				break;
+
+			case act_m_field:
+				modify_field(action->act_object);
+				break;
+
+			case act_d_field:
+				drop_field(action->act_object);
+				break;
+
+			case act_a_filter:
+				add_filter(action->act_object);
+				break;
+
+			case act_d_filter:
+				drop_filter(action->act_object);
+				break;
+
+			case act_a_function:
+				add_function(action->act_object);
+				break;
+
+			case act_a_function_arg:
+				add_function_arg(action->act_object);
+				break;
+
+			case act_d_function:
+				drop_function(action->act_object);
+				break;
+
+			case act_a_gfield:
+				add_global_field(action->act_object);
+				break;
+
+			case act_m_gfield:
+				modify_global_field(action->act_object);
+				break;
+
+			case act_d_gfield:
+				drop_global_field(action->act_object);
+				break;
+
+			case act_a_index:
+				add_index(action->act_object);
+				break;
+
+			case act_m_index:
+				modify_index(action->act_object);
+				break;
+
+			case act_d_index:
+				drop_index(action->act_object);
+				break;
+
+			case act_a_relation:
+				add_relation(action->act_object);
+				break;
+
+			case act_m_relation:
+				modify_relation(action->act_object);
+				break;
+
+			case act_d_relation:
+				drop_relation(action->act_object);
+				break;
+
+			case act_a_security:
+				add_security_class(action->act_object);
+				break;
+
+			case act_d_security:
+				drop_security_class(action->act_object);
+				break;
+
+			case act_a_trigger:
+				add_trigger(action->act_object);
+				break;
+
+			case act_m_trigger:
+				modify_trigger(action->act_object);
+				break;
+
+			case act_d_trigger:
+				drop_trigger(action->act_object);
+				break;
+
+			case act_a_trigger_msg:
+				add_trigger_msg(action->act_object);
+				break;
+
+			case act_m_trigger_msg:
+				modify_trigger_msg(action->act_object);
+				break;
+
+			case act_d_trigger_msg:
+				drop_trigger_msg(action->act_object);
+				break;
+
+			case act_a_type:
+				add_type(action->act_object);
+				break;
+
+			case act_m_type:
+				modify_type(action->act_object);
+				break;
+
+			case act_d_type:
+				drop_type(action->act_object);
+				break;
+
+			case act_grant:
+				add_user_privilege(action->act_object);
+				break;
+
+			case act_revoke:
+				drop_user_privilege(action->act_object);
+				break;
+
+			case act_a_shadow:
+				add_files(NULL_PTR, action->act_object);
+				break;
+
+			case act_d_shadow:
+				drop_shadow((SLONG) action->act_object);
+				break;
+
+			case act_a_generator:
+				add_generator(action->act_object);
+				break;
+
+			case act_s_generator:
+				set_generator(action->act_object);
+				break;
+
+			default:
+				DDL_err(34, NULL, NULL, NULL, NULL, NULL);	/* msg 34: action not implemented yet */
+			}
+		}
+}
+
+
+void EXE_fini( DBB dbb)
+{
+/**************************************
+ *
+ *	E X E _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sign off database -- commit or rollback depending on whether or
+ *	not errors have occurred.
+ *
+ **************************************/
+	SYM string;
+
+	if (DB) {
+		if (DDL_errors) {
+			if (dbb && (dbb->dbb_flags & DBB_create_database)) {
+				FOR F IN RDB$FILES WITH F.RDB$SHADOW_NUMBER NE 0
+					alloc_file_name(&dbb->dbb_files, F.RDB$FILE_NAME);
+				END_FOR;
+			}
+
+			ROLLBACK
+				ON_ERROR DDL_db_error(gds__status, 35, NULL, NULL, NULL, NULL, NULL);	/* msg 35: error rolling back metadata changes */
+		END_ERROR}
+		else {
+			COMMIT
+				ON_ERROR DDL_db_error(gds__status, 36, NULL, NULL, NULL, NULL, NULL);	/* msg 36: error commiting metadata changes */
+			ROLLBACK;
+		END_ERROR}
+		FINISH;
+	}
+
+/* We have previously committed the deletion of some files.
+   Do the actual deletion here. */
+
+	while (files_to_delete) {
+		string = (SYM) DDL_pop(&files_to_delete);
+		unlink(string->sym_name);
+		gds__free(string);
+	}
+}
+
+
+void EXE_modify_database( DBB dbb)
+{
+/**************************************
+ *
+ *	E X E _ m o d i f y _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify an existing database.
+ *
+ **************************************/
+	TEXT dpb[128], *d, *p;
+	USHORT dpb_length, len;
+	ULONG llen;
+	FIL file, log_files;
+	SLONG log, part_offset;
+	SCHAR db_info_buffer[512], cur_log[512];
+	SLONG ods_version;
+
+	dpb_length = 0;
+	d = dpb;
+	*d++ = gds__dpb_version1;
+
+	if (p = DDL_default_user) {
+		*d++ = gds__dpb_user_name;
+		*d++ = strlen(p);
+		while (*p)
+			*d++ = *p++;
+	}
+
+	if (p = DDL_default_password) {
+		*d++ = gds__dpb_password;
+		*d++ = strlen(p);
+		while (*p)
+			*d++ = *p++;
+	}
+
+	if (dbb->dbb_flags & DBB_drop_log) {
+		*d++ = gds__dpb_drop_walfile;
+		*d++ = 1;
+		*d++ = 1;
+	}
+
+	if (llen = dbb->dbb_chkptlen) {
+		*d++ = gds__dpb_wal_chkptlen;
+		*d++ = 4;
+		for (len = 0; len < 4; len++, llen = llen >> 8)
+			*d++ = llen;
+	}
+
+	if (len = dbb->dbb_numbufs) {
+		*d++ = gds__dpb_wal_numbufs;
+		*d++ = 2;
+		*d++ = len;
+		*d++ = len >> 8;
+	}
+
+	if (len = dbb->dbb_bufsize) {
+		*d++ = gds__dpb_wal_bufsize;
+		*d++ = 2;
+		*d++ = len;
+		*d++ = len >> 8;
+	}
+
+	if ((llen = dbb->dbb_grp_cmt_wait) >= 0) {
+		*d++ = gds__dpb_wal_grp_cmt_wait;
+		*d++ = 4;
+		for (len = 0; len < 4; len++, llen = llen >> 8)
+			*d++ = llen;
+	}
+
+	dpb_length = d - dpb;
+	if (dpb_length == 1)
+		dpb_length = 0;
+
+	if (gds__attach_database(gds__status, 0,
+							 GDS_VAL(dbb->dbb_name->sym_string),
+							 GDS_REF(DB),
+							 dpb_length,
+							 dpb))
+			DDL_error_abort(gds__status, 29, dbb->dbb_name->sym_string, NULL,
+							NULL, NULL, NULL);	/* msg 29: Couldn't attach database */
+
+	if (DDL_version) {
+		DDL_msg_put(30, dbb->dbb_name->sym_string, NULL, NULL, NULL, NULL);	/* msg 30:    Version(s) for database \"%s\" */
+		gds__version(&DB, NULL, NULL);
+	}
+
+	START_TRANSACTION;
+
+	ods_version = EXE_check_db_version(dbb);
+
+	if (ods_version < DB_VERSION_DDL6)
+		DDL_error_abort(NULL_PTR, 32, NULL, NULL, NULL, NULL, NULL);	/* msg 32: database version is too old to modify:
+																		   use GBAK first */
+
+/* Don't allow cache and WAL configurations for pre-ODS8 databases */
+
+	if (ods_version < DB_VERSION_DDL8) {
+		if ((dbb->dbb_flags & DBB_log_default) ||
+			(dbb->dbb_logfiles) ||
+			(dbb->dbb_flags && DBB_drop_log) ||
+			(dbb->dbb_cache_file) || (dbb->dbb_flags & DBB_drop_cache))
+			DDL_error_abort(NULL_PTR, 32, NULL, NULL, NULL, NULL, NULL);
+		/* msg 32: database version is too old to modify: use GBAK first */
+	}
+
+	dbb->dbb_handle = DB;
+	dbb->dbb_transaction = gds__trans;
+
+/* erase log files and commit transaction */
+
+	if (dbb->dbb_flags & DBB_drop_log) {
+		if (gds__database_info(gds__status,
+							   GDS_REF(DB),
+							   sizeof(db_info),
+							   db_info,
+							   sizeof(db_info_buffer),
+							   db_info_buffer))
+				DDL_error_abort(gds__status, 327, NULL, NULL, NULL, NULL, NULL);	/* msg 327: error in getting write ahead log information */
+
+		log_files = (FIL) NULL;
+		log = 0;
+
+		wal_info(db_info_buffer, &log, cur_log, &part_offset);
+
+		if (log)
+			get_log_names_serial(&log_files);
+
+		FOR X IN RDB$LOG_FILES ERASE X;
+		END_FOR;
+		COMMIT ON_ERROR DDL_db_error(gds__status, 321, NULL, NULL, NULL, NULL, NULL);	/* msg 321: error commiting new write ahead log declarations */
+		ROLLBACK;
+		END_ERROR;
+		START_TRANSACTION;
+
+		if (log) {
+			get_log_names(dbb->dbb_name->sym_string, &log_files, cur_log,
+						  part_offset, dbb->dbb_flags & DBB_cascade, 1);
+		}
+
+		for (file = log_files; file; file = file->fil_next)
+			if (unlink(file->fil_name->sym_name))
+				DDL_error_abort(NULL_PTR, 28, file->fil_name->sym_name, NULL,
+								NULL, NULL, NULL);	/* msg 28: Could not delete file %s */
+	}
+
+	if (dbb->dbb_flags & DBB_drop_cache)
+		drop_cache(dbb);
+
+/* adding new files */
+
+	if (dbb->dbb_files)
+		add_files(dbb, dbb->dbb_files);
+
+	if (dbb->dbb_cache_file)
+		add_cache(dbb);
+
+	if ((dbb->dbb_flags & DBB_log_default) || (dbb->dbb_logfiles)) {
+		/* check if log files exist */
+
+		FOR X IN RDB$LOG_FILES
+			DDL_error_abort(NULL_PTR, 333, NULL, NULL, NULL, NULL, NULL);	/* msg 333: Cannot modify log file specification.  Drop and redefine log files */
+		END_FOR;
+
+		/* add the new log files. */
+
+		add_log_files(dbb);
+
+		/* commit log file changes */
+
+		COMMIT ON_ERROR DDL_db_error(gds__status, 321, NULL, NULL, NULL, NULL, NULL);	/* msg 321: error commiting new write ahead log declarations */
+		ROLLBACK;
+		END_ERROR;
+		START_TRANSACTION;
+	}
+
+/* If there is a description of the database, modify it now */
+
+	FOR D IN RDB$DATABASE
+		MODIFY D USING
+		if (dbb->dbb_flags & DBB_null_security_class)
+            D.RDB$SECURITY_CLASS.NULL = TRUE;
+        if (dbb->dbb_flags & DBB_null_description)
+            D.RDB$DESCRIPTION.NULL = TRUE;
+        if (dbb->dbb_description) {
+            store_text(dbb->dbb_description, &D.RDB$DESCRIPTION);
+            D.RDB$DESCRIPTION.NULL = FALSE;
+        }
+        if (dbb->dbb_security_class) {
+            MOVE_SYMBOL(dbb->dbb_security_class, D.RDB$SECURITY_CLASS);
+            D.RDB$SECURITY_CLASS.NULL = FALSE;
+        }
+        END_MODIFY;
+	END_FOR;
+
+	get_global_fields();
+	get_relations(dbb);
+	get_udfs(dbb);
+	get_triggers(dbb);
+}
+
+
+int EXE_relation( REL relation)
+{
+/**************************************
+ *
+ *	E X E _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup a relation. On the way by,
+ *	fix up the field position in the
+ *	relation block;
+ *
+ **************************************/
+	USHORT result;
+	SYM symbol;
+
+	symbol = relation->rel_name;
+	result = FALSE;
+
+	FOR X IN RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ symbol->sym_string
+		result = TRUE;
+	END_FOR;
+
+	FOR X IN RDB$RELATION_FIELDS WITH X.RDB$RELATION_NAME EQ symbol->sym_string
+        if (X.RDB$FIELD_POSITION > relation->rel_field_position)
+            relation->rel_field_position = X.RDB$FIELD_POSITION;
+	END_FOR;
+
+	return result;
+}
+
+
+static void add_cache( DBB dbb)
+{
+/**************************************
+ *
+ *	a d d _ c a c h e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a shared cache file to database.  
+ *
+ **************************************/
+	FIL file;
+	USHORT result;
+
+	result = FALSE;
+
+	FOR FIL IN RDB$FILES WITH FIL.RDB$FILE_FLAGS EQ FILE_cache 
+        result = TRUE;
+	    DDL_err(323, FIL.RDB$FILE_NAME, NULL, NULL, NULL, NULL);	/* msg 323: a shared cache file %s already exists */
+	END_FOR;
+
+	if (result)
+		return;
+
+	file = dbb->dbb_cache_file;
+
+	STORE FIL IN RDB$FILES 
+        MOVE_SYMBOL(file->fil_name, FIL.RDB$FILE_NAME);
+	    FIL.RDB$FILE_START = 0;
+        FIL.RDB$FILE_LENGTH = file->fil_length;
+        FIL.RDB$FILE_FLAGS = FILE_cache;
+    END_STORE;
+
+/* Unless there are errors, commit the new shared cache immediately! */
+
+	if (!DDL_errors) {
+		COMMIT ON_ERROR DDL_db_error(gds__status, 324, NULL, NULL, NULL, NULL, NULL);	/* msg 324: error commiting new shared cache declaration */
+		ROLLBACK;
+		END_ERROR;
+		START_TRANSACTION;
+	}
+}
+
+
+static void add_field( FLD field)
+{
+/**************************************
+ *
+ *	a d d _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a field to a relation.
+ *
+ **************************************/
+	REL relation;
+	SYM source;
+	STATUS status_vector[20];
+	SLONG *blob;
+
+	relation = field->fld_relation;
+	if (!(source = field->fld_source))
+		source = field->fld_name;
+
+	if (check_field(relation->rel_name, field->fld_name)) {
+		DDL_err(37, field->fld_name->sym_string,
+				relation->rel_name->sym_string, NULL, NULL, NULL);
+		/* msg 37: field %s already exists in relation %s */
+		return;
+	}
+
+	STORE X IN RDB$RELATION_FIELDS
+		MOVE_SYMBOL(relation->rel_name, X.RDB$RELATION_NAME);
+	MOVE_SYMBOL(field->fld_name, X.RDB$FIELD_NAME);
+	MOVE_SYMBOL(source, X.RDB$FIELD_SOURCE);
+	X.RDB$SECURITY_CLASS.NULL = TRUE;
+	X.RDB$FIELD_POSITION.NULL = TRUE;
+	X.RDB$DESCRIPTION.NULL = TRUE;
+	X.RDB$QUERY_NAME.NULL = TRUE;
+	X.RDB$QUERY_HEADER.NULL = TRUE;
+	X.RDB$EDIT_STRING.NULL = TRUE;
+
+	if (field->fld_security_class) {
+		X.RDB$SECURITY_CLASS.NULL = FALSE;
+		MOVE_SYMBOL(field->fld_security_class, X.RDB$SECURITY_CLASS);
+	}
+	if (field->fld_flags & fld_explicit_position) {
+		X.RDB$FIELD_POSITION.NULL = FALSE;
+		X.RDB$FIELD_POSITION = field->fld_position;
+	}
+	if (field->fld_query_name) {
+		MOVE_SYMBOL(field->fld_query_name, X.RDB$QUERY_NAME);
+		X.RDB$QUERY_NAME.NULL = FALSE;
+	}
+	if (field->fld_description) {
+		store_text(field->fld_description, &X.RDB$DESCRIPTION);
+		X.RDB$DESCRIPTION.NULL = FALSE;
+	}
+	if (field->fld_edit_string) {
+		X.RDB$EDIT_STRING.NULL = FALSE;
+		MOVE_SYMBOL(field->fld_edit_string, X.RDB$EDIT_STRING);
+	}
+	if (field->fld_query_header) {
+		X.RDB$QUERY_HEADER.NULL = FALSE;
+		store_query_header(field->fld_query_header, &X.RDB$QUERY_HEADER);
+	}
+	if (field->fld_system)
+		X.RDB$SYSTEM_FLAG = field->fld_system;
+	else
+		X.RDB$SYSTEM_FLAG = relation->rel_system;
+
+	END_STORE;
+}
+
+
+static void add_files( DBB dbb, FIL files)
+{
+/**************************************
+ *
+ *	a d d _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a file to an existing database.  
+ *
+ **************************************/
+	SLONG length, start;
+	FIL file, next;
+	TEXT s[128];
+	SSHORT shadow_number;
+
+/* Reverse the order of files (parser left them backwards) */
+
+	for (file = files, files = NULL; file; file = next) {
+		next = file->fil_next;
+		file->fil_next = files;
+		files = file;
+	}
+
+/* To assign page ranges, we need a place to start.  Get
+   current allocation of database, then check the allocation
+   against the user given maximum length (if given). */
+
+	if (dbb) {
+		if (gds__database_info(gds__status,
+							   GDS_REF(DB),
+							   sizeof(alloc_info),
+							   alloc_info,
+							   sizeof(s),
+							   s) ||
+			s[0] != gds__info_allocation) DDL_err(38, NULL, NULL, NULL, NULL, NULL);	/* msg 38: gds__database_info failed */
+
+		length = gds__vax_integer(s + 1, 2);
+		start = gds__vax_integer(s + 3, length);
+
+		length = (dbb->dbb_length) ? dbb->dbb_length + 1 : 0;
+		start = MAX(start, length);
+	}
+
+	shadow_number = 0;
+	for (file = files; file; file = file->fil_next) {
+		if (file->fil_shadow_number != shadow_number) {
+			start = 0;
+			shadow_number = file->fil_shadow_number;
+		}
+		else if (!length && !file->fil_start)
+			DDL_err(39, file->fil_name->sym_string, NULL, NULL, NULL, NULL);
+		/* msg 39: Preceding file did not specify length, so %s must include starting page number */
+
+		start = MAX(start, file->fil_start);
+		STORE X IN RDB$FILES MOVE_SYMBOL(file->fil_name, X.RDB$FILE_NAME);
+		X.RDB$FILE_START = start;
+		X.RDB$FILE_LENGTH = file->fil_length;
+		X.RDB$SHADOW_NUMBER = file->fil_shadow_number;
+		X.RDB$FILE_FLAGS = 0;
+		if (file->fil_manual)
+			X.RDB$FILE_FLAGS = FILE_manual;
+		if (file->fil_conditional)
+			X.RDB$FILE_FLAGS |= FILE_conditional;
+		END_STORE;
+		length = file->fil_length;
+		start += length;
+	}
+
+/* Unless there are errors floating around, commit the new file immediately! */
+
+	if (!DDL_errors) {
+		COMMIT ON_ERROR DDL_db_error(gds__status, 40, NULL, NULL, NULL, NULL, NULL);	/* msg 40: error commiting new file declarations */
+		ROLLBACK;
+		END_ERROR;
+		START_TRANSACTION;
+	}
+}
+
+
+static void add_filter( FILTER filter)
+{
+/**************************************
+ *
+ *	a d d _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a new filter.
+ *
+ **************************************/
+
+	STORE X IN RDB$FILTERS USING X.RDB$MODULE_NAME.NULL = TRUE;
+	X.RDB$DESCRIPTION.NULL = TRUE;
+
+	MOVE_SYMBOL(filter->filter_name, X.RDB$FUNCTION_NAME);
+	X.RDB$INPUT_SUB_TYPE = filter->filter_input_sub_type;
+	X.RDB$OUTPUT_SUB_TYPE = filter->filter_output_sub_type;
+	if (filter->filter_module_name) {
+		X.RDB$MODULE_NAME.NULL = FALSE;
+		MOVE_SYMBOL(filter->filter_module_name, X.RDB$MODULE_NAME);
+	}
+	MOVE_SYMBOL(filter->filter_entry_point, X.RDB$ENTRYPOINT);
+	if (filter->filter_description) {
+		store_text(filter->filter_description, &X.RDB$DESCRIPTION);
+		X.RDB$DESCRIPTION.NULL = FALSE;
+	}
+	END_STORE;
+}
+
+
+static void add_function( FUNC function)
+{
+/**************************************
+ *
+ *	a d d _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a new function.
+ *
+ **************************************/
+
+	if (check_function(function->func_name)) {
+		DDL_err(41, function->func_name->sym_string, NULL, NULL, NULL, NULL);	/* msg 41: function %s already exists */
+		return;
+	}
+
+	STORE X IN RDB$FUNCTIONS USING X.RDB$QUERY_NAME.NULL = TRUE;
+	X.RDB$MODULE_NAME.NULL = TRUE;
+	X.RDB$DESCRIPTION.NULL = TRUE;
+
+	MOVE_SYMBOL(function->func_name, X.RDB$FUNCTION_NAME);
+	if (function->func_query_name) {
+		X.RDB$QUERY_NAME.NULL = FALSE;
+		MOVE_SYMBOL(function->func_query_name, X.RDB$QUERY_NAME);
+	}
+	if (function->func_module_name) {
+		X.RDB$MODULE_NAME.NULL = FALSE;
+		MOVE_SYMBOL(function->func_module_name, X.RDB$MODULE_NAME);
+	}
+	MOVE_SYMBOL(function->func_entry_point, X.RDB$ENTRYPOINT);
+	if (function->func_description) {
+		store_text(function->func_description, &X.RDB$DESCRIPTION);
+		X.RDB$DESCRIPTION.NULL = FALSE;
+	}
+	X.RDB$RETURN_ARGUMENT = function->func_return_arg;
+
+	END_STORE;
+}
+
+
+static void add_function_arg( FUNCARG func_arg)
+{
+/**************************************
+ *
+ *	a d d _ f u n c t i o n _ a r g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a new function argument.
+ *
+ **************************************/
+
+	STORE X IN RDB$FUNCTION_ARGUMENTS
+		MOVE_SYMBOL(func_arg->funcarg_funcname, X.RDB$FUNCTION_NAME);
+	X.RDB$ARGUMENT_POSITION = func_arg->funcarg_position;
+	X.RDB$MECHANISM = func_arg->funcarg_mechanism;
+	X.RDB$FIELD_TYPE = func_arg->funcarg_dtype;
+	if (func_arg->funcarg_has_sub_type) {
+		X.RDB$FIELD_SUB_TYPE = func_arg->funcarg_sub_type;
+		X.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+	}
+	else
+		X.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+	X.RDB$FIELD_SCALE = func_arg->funcarg_scale;
+	X.RDB$FIELD_LENGTH = func_arg->funcarg_length;
+
+	END_STORE;
+}
+
+
+static void add_generator( SYM symbol)
+{
+/**************************************
+ *
+ *	a d d _ g e n e r a t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a new generator.
+ *
+ **************************************/
+
+	STORE X IN RDB$GENERATORS MOVE_SYMBOL(symbol, X.RDB$GENERATOR_NAME);
+	END_STORE;
+}
+
+
+static void add_global_field( FLD field)
+{
+/**************************************
+ *
+ *	a d d _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a field to a relation.
+ *
+ **************************************/
+	SYM name;
+	DSC desc;
+	STATUS status_vector[20];
+	SLONG *blob;
+
+	name = field->fld_name;
+
+	STORE X IN RDB$FIELDS X.RDB$SEGMENT_LENGTH.NULL = TRUE;
+	X.RDB$COMPUTED_BLR.NULL = TRUE;
+	X.RDB$COMPUTED_SOURCE.NULL = TRUE;
+	X.RDB$VALIDATION_BLR.NULL = TRUE;
+	X.RDB$VALIDATION_SOURCE.NULL = TRUE;
+	X.RDB$MISSING_VALUE.NULL = TRUE;
+	X.RDB$DESCRIPTION.NULL = TRUE;
+	X.RDB$QUERY_HEADER.NULL = TRUE;
+	X.RDB$QUERY_NAME.NULL = TRUE;
+	X.RDB$EDIT_STRING.NULL = TRUE;
+	X.RDB$DIMENSIONS.NULL = TRUE;
+	X.RDB$DEFAULT_VALUE.NULL = TRUE;
+
+	if (field->fld_computed) {
+		store_blr(field->fld_computed, &X.RDB$COMPUTED_BLR, NULL);
+		store_text(field->fld_compute_src, &X.RDB$COMPUTED_SOURCE);
+		X.RDB$COMPUTED_BLR.NULL = FALSE;
+		X.RDB$COMPUTED_SOURCE.NULL = FALSE;
+		if (!field->fld_dtype) {
+			make_desc(field->fld_computed, &desc);
+			field->fld_dtype = desc.dsc_dtype;
+			field->fld_length = desc.dsc_length;
+			if (IS_DTYPE_ANY_TEXT(desc.dsc_dtype)) {
+				field->fld_scale = 0;
+				field->fld_sub_type = desc.dsc_ttype;
+				field->fld_has_sub_type = TRUE;
+			}
+			else {
+				field->fld_sub_type = 0;
+				field->fld_scale = desc.dsc_scale;
+			}
+		}
+	}
+
+	if (field->fld_default) {
+		store_blr(field->fld_default, &X.RDB$DEFAULT_VALUE, NULL);
+		X.RDB$DEFAULT_VALUE.NULL = FALSE;
+	}
+
+	MOVE_SYMBOL(name, X.RDB$FIELD_NAME);
+	X.RDB$FIELD_TYPE = (int) field->fld_dtype;
+	X.RDB$FIELD_LENGTH = field->fld_length;
+	X.RDB$FIELD_SCALE = field->fld_scale;
+	X.RDB$SYSTEM_FLAG = field->fld_system;
+	X.RDB$FIELD_SUB_TYPE = field->fld_sub_type;
+
+	if (field->fld_segment_length && (X.RDB$FIELD_TYPE == blr_blob)) {
+		X.RDB$SEGMENT_LENGTH = field->fld_segment_length;
+		X.RDB$SEGMENT_LENGTH.NULL = FALSE;
+	}
+	if (field->fld_missing) {
+		store_blr(field->fld_missing, &X.RDB$MISSING_VALUE, NULL);
+		X.RDB$MISSING_VALUE.NULL = FALSE;
+	}
+	if (field->fld_validation) {
+		store_blr(field->fld_validation, &X.RDB$VALIDATION_BLR, NULL);
+		store_text(field->fld_valid_src, &X.RDB$VALIDATION_SOURCE);
+		X.RDB$VALIDATION_BLR.NULL = FALSE;
+		X.RDB$VALIDATION_SOURCE.NULL = FALSE;
+	}
+	if (field->fld_description) {
+		store_text(field->fld_description, &X.RDB$DESCRIPTION);
+		X.RDB$DESCRIPTION.NULL = FALSE;
+	}
+	if (field->fld_query_name) {
+		MOVE_SYMBOL(field->fld_query_name, X.RDB$QUERY_NAME);
+		X.RDB$QUERY_NAME.NULL = FALSE;
+	}
+	if (field->fld_edit_string) {
+		X.RDB$EDIT_STRING.NULL = FALSE;
+		MOVE_SYMBOL(field->fld_edit_string, X.RDB$EDIT_STRING);
+	}
+	if (field->fld_query_header) {
+		X.RDB$QUERY_HEADER.NULL = FALSE;
+		store_query_header(field->fld_query_header, &X.RDB$QUERY_HEADER);
+	}
+
+	if (field->fld_dimension) {
+		X.RDB$DIMENSIONS.NULL = FALSE;
+		X.RDB$DIMENSIONS = field->fld_dimension;
+		store_range(field);
+	}
+
+	END_STORE;
+}
+
+
+static void add_index( DUDLEY_IDX index)
+{
+/**************************************
+ *
+ *	a d d _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add an index to a database.
+ *
+ **************************************/
+	SYM *symbol;
+	TEXT s[128];
+	USHORT i, size, error, if_any;
+	STATUS status_vector[20];
+	SLONG *blob;
+	FLD field;
+
+	error = if_any = FALSE;
+
+	FOR X IN RDB$RELATIONS WITH
+		X.RDB$RELATION_NAME = index->idx_relation->sym_string
+		if (!X.RDB$VIEW_BLR.NULL) {
+            DDL_err(42, index->idx_relation->sym_string, NULL, NULL, NULL, NULL);	/* msg 42: %s is a view and can not be indexed */
+            error = TRUE;
+        } 
+        if_any = TRUE;
+	END_FOR;
+
+	if (error)
+		return;
+
+	if (!if_any) {
+		DDL_err(43, index->idx_relation->sym_string, NULL, NULL, NULL, NULL);	/* msg 43: relation %s doesn't exist  */
+		return;
+	}
+
+	size = 0;
+	for (i = 0, symbol = index->idx_field; i < index->idx_count;
+		 i++, symbol++) {
+		if (!(field = check_field(index->idx_relation, *symbol))) {
+			DDL_err(44, index->idx_name->sym_string,
+					(*symbol)->sym_string, index->idx_relation->sym_string,
+					NULL, NULL);
+			/* msg 44: index %s: field %s doesn't exist in relation %s */
+			return;
+		}
+
+		if (field->fld_computed) {
+			DDL_err(45, index->idx_name->sym_string,
+					(*symbol)->sym_string, index->idx_relation->sym_string,
+					NULL, NULL);
+			/* msg 45: index %s: field %s in %s is computed and can not be a key */
+			return;
+		}
+		size += field->fld_length;
+	}
+
+	if ((index->idx_count == 1) && size > 254) {
+		DDL_err(46, (TEXT *) size, index->idx_name->sym_string, NULL, NULL,
+				NULL);
+		/* msg 46: combined key length (%d) for index %s is > 254 bytes */
+		return;
+	}
+	else if ((index->idx_count > 1) && size > 202) {
+		DDL_err(312, (TEXT *) size, index->idx_name->sym_string, NULL, NULL,
+				NULL);
+		/* msg 312:  key length (%d) for compound index %s exceeds 202  */
+		return;
+	}
+
+	STORE X IN RDB$INDICES MOVE_SYMBOL(index->idx_name, X.RDB$INDEX_NAME);
+	MOVE_SYMBOL(index->idx_relation, X.RDB$RELATION_NAME);
+	X.RDB$SEGMENT_COUNT = index->idx_count;
+	X.RDB$UNIQUE_FLAG = index->idx_unique;
+	X.RDB$INDEX_INACTIVE = (index->idx_inactive) ? TRUE : FALSE;
+	if (index->idx_type) {
+		X.RDB$INDEX_TYPE = index->idx_type;
+		X.RDB$INDEX_TYPE.NULL = FALSE;
+	}
+	else
+		X.RDB$INDEX_TYPE.NULL = TRUE;
+	if (index->idx_description) {
+		store_text(index->idx_description, &X.RDB$DESCRIPTION);
+		X.RDB$DESCRIPTION.NULL = FALSE;
+	}
+	else
+		X.RDB$DESCRIPTION.NULL = TRUE;
+	END_STORE ON_ERROR if (gds__status[1] == gds__no_dup) {
+		DDL_err(47, index->idx_name->sym_string, NULL, NULL, NULL, NULL);	/* msg 47: index %s already exists */
+		return;
+	}
+
+	{
+		DDL_db_error(gds__status, 48, index->idx_name->sym_string, NULL, NULL,
+					 NULL, NULL);
+		/* msg 48: error creating index %s */
+		return;
+	}
+	END_ERROR;
+
+/* if there wasn't an index record, clean up any orphan index segments */
+
+	FOR X IN RDB$INDEX_SEGMENTS
+		WITH X.RDB$INDEX_NAME = index->idx_name->sym_string 
+        ERASE X;
+	END_FOR;
+
+
+	for (i = 0; i < index->idx_count; i++) {
+		STORE X IN RDB$INDEX_SEGMENTS
+			MOVE_SYMBOL(index->idx_name, X.RDB$INDEX_NAME);
+	        MOVE_SYMBOL(index->idx_field[i], X.RDB$FIELD_NAME);
+            X.RDB$FIELD_POSITION = i;
+        END_STORE;
+    }
+}
+
+
+static void add_log_files( DBB dbb)
+{
+/**************************************
+ *
+ *	a d d _ l o g _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add log files to a database.  
+ *
+ **************************************/
+	FIL file, next;
+	SSHORT number;
+
+/* Reverse the order of files (parser left them backwards) */
+
+	for (file = dbb->dbb_logfiles, dbb->dbb_logfiles = NULL; file;
+		 file = next) {
+		next = file->fil_next;
+		file->fil_next = dbb->dbb_logfiles;
+		dbb->dbb_logfiles = file;
+	}
+
+	number = 0;
+
+/* Add default values for file size */
+
+	if (dbb->dbb_flags & DBB_log_default) {
+		STORE X IN RDB$LOG_FILES MOVE_SYMBOL(dbb->dbb_name, X.RDB$FILE_NAME);
+		X.RDB$FILE_LENGTH = 0L;
+		X.RDB$FILE_SEQUENCE = number++;
+		X.RDB$FILE_PARTITIONS = 0;
+		X.RDB$FILE_FLAGS = LOG_serial | LOG_default;
+		END_STORE;
+	}
+
+	for (file = dbb->dbb_logfiles; file; file = file->fil_next) {
+		STORE X IN RDB$LOG_FILES MOVE_SYMBOL(file->fil_name, X.RDB$FILE_NAME);
+		X.RDB$FILE_LENGTH = file->fil_length;
+		X.RDB$FILE_SEQUENCE = number++;
+		X.RDB$FILE_PARTITIONS = file->fil_partitions;
+		X.RDB$FILE_FLAGS = file->fil_raw;
+
+		if (dbb->dbb_flags & DBB_log_serial)
+			X.RDB$FILE_FLAGS |= LOG_serial;
+		END_STORE;
+	}
+
+	if (file = dbb->dbb_overflow) {
+		STORE X IN RDB$LOG_FILES MOVE_SYMBOL(file->fil_name, X.RDB$FILE_NAME);
+		X.RDB$FILE_LENGTH = file->fil_length;
+		X.RDB$FILE_SEQUENCE = number++;
+		X.RDB$FILE_PARTITIONS = file->fil_partitions;
+		X.RDB$FILE_FLAGS = LOG_serial | LOG_overflow;
+		END_STORE;
+	}
+
+/* Unless there were errors , commit immediately! */
+
+	if (!DDL_errors) {
+		COMMIT ON_ERROR DDL_db_error(gds__status, 321, NULL, NULL, NULL, NULL, NULL);	/* msg 321: error commiting new write ahead log declarations */
+		ROLLBACK;
+		END_ERROR;
+		START_TRANSACTION;
+	}
+}
+
+
+static void add_relation( REL relation)
+{
+/**************************************
+ *
+ *	a d d _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a new relation.
+ *
+ **************************************/
+
+	if (relation->rel_rse) {
+		add_view(relation);
+		return;
+	}
+
+	if (check_relation(relation->rel_name)) {
+		DDL_err(49, relation->rel_name->sym_string, NULL, NULL, NULL, NULL);	/* msg 49: relation %s already exists */
+		return;
+	}
+
+	STORE X IN RDB$RELATIONS X.RDB$SECURITY_CLASS.NULL = TRUE;
+	X.RDB$EXTERNAL_FILE.NULL = TRUE;
+	X.RDB$DESCRIPTION.NULL = TRUE;
+
+	if (relation->rel_security_class) {
+		X.RDB$SECURITY_CLASS.NULL = FALSE;
+		MOVE_SYMBOL(relation->rel_security_class, X.RDB$SECURITY_CLASS);
+	}
+
+	if (relation->rel_filename) {
+		X.RDB$EXTERNAL_FILE.NULL = FALSE;
+		MOVE_SYMBOL(relation->rel_filename, X.RDB$EXTERNAL_FILE);
+	}
+
+	MOVE_SYMBOL(relation->rel_name, X.RDB$RELATION_NAME);
+	if (relation->rel_description) {
+		store_text(relation->rel_description, &X.RDB$DESCRIPTION);
+		X.RDB$DESCRIPTION.NULL = FALSE;
+	}
+
+	X.RDB$SYSTEM_FLAG = relation->rel_system;
+
+	END_STORE;
+}
+
+
+static void add_security_class( SCL class)
+{
+/**************************************
+ *
+ *	a d d _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a new security class.
+ *
+ **************************************/
+	SYM name;
+	USHORT if_any;
+
+	name = class->scl_name;
+	if_any = FALSE;
+
+	FOR X IN RDB$SECURITY_CLASSES WITH X.RDB$SECURITY_CLASS EQ name->sym_string 
+        if_any = TRUE;
+	    DDL_err(50, name->sym_string, NULL, NULL, NULL, NULL);	/* msg 50: security class %s already exists */
+	END_FOR;
+
+	if (if_any)
+		return;
+
+	STORE X IN RDB$SECURITY_CLASSES 
+        MOVE_SYMBOL(name, X.RDB$SECURITY_CLASS);
+	    if (class->scl_description) {
+            store_text(class->scl_description, &X.RDB$DESCRIPTION);
+            X.RDB$DESCRIPTION.NULL = FALSE;
+        }
+        else
+            X.RDB$DESCRIPTION.NULL = TRUE;
+        store_acl(class, &X.RDB$ACL);
+	END_STORE;
+}
+
+
+static void add_trigger( TRG trigger)
+{
+/**************************************
+ *
+ *	a d d _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	add a trigger for a relation in rdb$triggers.
+ *
+ **************************************/
+	REL relation;
+
+	relation = trigger->trg_relation;
+
+	FOR F IN RDB$RELATION_FIELDS CROSS V IN RDB$VIEW_RELATIONS WITH
+		F.RDB$RELATION_NAME = V.RDB$VIEW_NAME AND
+		F.RDB$RELATION_NAME = relation->rel_name->sym_string
+		MODIFY F USING 
+            F.RDB$UPDATE_FLAG = TRUE;
+	    END_MODIFY;
+	END_FOR;
+
+	STORE X IN RDB$TRIGGERS 
+        X.RDB$TRIGGER_SOURCE.NULL = TRUE;
+	    X.RDB$TRIGGER_BLR.NULL = TRUE;
+        X.RDB$DESCRIPTION.NULL = TRUE;
+
+        MOVE_SYMBOL(trigger->trg_name, X.RDB$TRIGGER_NAME);
+        MOVE_SYMBOL(relation->rel_name, X.RDB$RELATION_NAME);
+        X.RDB$TRIGGER_SEQUENCE = trigger->trg_sequence;
+        X.RDB$TRIGGER_TYPE = (SSHORT) trigger->trg_type;
+        X.RDB$TRIGGER_INACTIVE = trigger->trg_inactive;
+
+        if (trigger->trg_source) {
+            X.RDB$TRIGGER_SOURCE.NULL = FALSE;
+            store_text(trigger->trg_source, &X.RDB$TRIGGER_SOURCE);
+        }
+        
+        if (trigger->trg_statement) {
+            X.RDB$TRIGGER_BLR.NULL = FALSE;
+            store_blr(trigger->trg_statement, &X.RDB$TRIGGER_BLR, NULL);
+        }
+        
+        if (trigger->trg_description) {
+            X.RDB$DESCRIPTION.NULL = FALSE;
+            store_text(trigger->trg_description, &X.RDB$DESCRIPTION);
+        }
+
+	END_STORE;
+
+}
+
+
+static void add_trigger_msg( TRGMSG trigmsg)
+{
+/**************************************
+ *
+ *	a d d _ t r i g g e r _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a new trigger message.
+ *
+ **************************************/
+
+	STORE X IN RDB$TRIGGER_MESSAGES
+		MOVE_SYMBOL(trigmsg->trgmsg_trg_name, X.RDB$TRIGGER_NAME);
+	    X.RDB$MESSAGE_NUMBER = trigmsg->trgmsg_number;
+        MOVE_SYMBOL(trigmsg->trgmsg_text, X.RDB$MESSAGE);
+
+	END_STORE;
+}
+
+
+static void add_type( TYP fldtype)
+{
+/**************************************
+ *
+ *	a d d _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add all new type values for a given field.
+ *
+ **************************************/
+
+	STORE X IN RDB$TYPES 
+        X.RDB$DESCRIPTION.NULL = TRUE;
+	    MOVE_SYMBOL(fldtype->typ_field_name, X.RDB$FIELD_NAME);
+        MOVE_SYMBOL(fldtype->typ_name, X.RDB$TYPE_NAME);
+        X.RDB$TYPE = fldtype->typ_type;
+        if (fldtype->typ_description) {
+            X.RDB$DESCRIPTION.NULL = FALSE;
+            store_text(fldtype->typ_description, &X.RDB$DESCRIPTION);
+        }
+	END_STORE;
+}
+
+
+static void add_user_privilege( USERPRIV upriv)
+{
+/**************************************
+ *
+ *	a d d _ u s e r _ p r i v i l e g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add as many rdb$user_privilege entries as needed
+ *	for the GRANT statement.
+ *
+ **************************************/
+	TEXT grantor[32], priv[7];
+	USHORT if_any, privflag;
+	USRE usr;					/* user entry */
+	UPFE upf;					/* user privilege field entry */
+
+	if_any = FALSE;
+
+/* rdb$owner_name doesn't get filled in until we store the relation */
+
+	FOR X IN RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ upriv->userpriv_relation->sym_string 
+        strcpy(grantor, X.RDB$OWNER_NAME);
+	    if_any = TRUE;
+    END_FOR;
+
+	if (!if_any) {
+		DDL_err(54, upriv->userpriv_relation->sym_string, NULL, NULL, NULL,
+				NULL);
+		/* msg 54: relation %s doesn't exist */
+		return;
+	}
+
+/* we need one rdb$user_privileges entry per each user/privilege/field
+   combination so start by looping through each user in user list, then
+   loop for each privilege, and if update privilege, loop for each field */
+
+	for (usr = upriv->userpriv_userlist; usr; usr = usr->usre_next) {
+		/* start with a fresh copy of privflag and erase each 
+		   privilege as we take care of it */
+
+		privflag = upriv->userpriv_flags & ~USERPRIV_grant;
+		while (privflag) {
+			upf = NULL;
+			if (privflag & USERPRIV_select) {
+				strcpy(priv, UPRIV_SELECT);
+				privflag ^= USERPRIV_select;
+			}
+			else if (privflag & USERPRIV_delete) {
+				strcpy(priv, UPRIV_DELETE);
+				privflag ^= USERPRIV_delete;
+			}
+			else if (privflag & USERPRIV_insert) {
+				strcpy(priv, UPRIV_INSERT);
+				privflag ^= USERPRIV_insert;
+			}
+			else if (privflag & USERPRIV_update) {
+				strcpy(priv, UPRIV_UPDATE);
+				privflag ^= USERPRIV_update;
+
+				/* no field list implies all fields */
+
+				if (!upriv->userpriv_upflist)
+					store_userpriv(upriv, grantor, priv, usr, upf);
+				else
+					/* update is the only privilege with a possible field list */
+					for (upf = upriv->userpriv_upflist; upf;
+						 upf =
+						 upf->upfe_next) store_userpriv(upriv, grantor, priv,
+														usr, upf);
+
+				continue;
+			}
+
+			store_userpriv(upriv, grantor, priv, usr, upf);
+		}						/* while (privflag) */
+	}							/* for */
+}
+
+
+static void add_view( REL relation)
+{
+/**************************************
+ *
+ *	a d d _ v i e w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a new view relation.
+ *
+ **************************************/
+	FLD field;
+	REL target;
+	NOD rse, *arg, contexts;
+	CTX context;
+	USHORT i;
+
+	if (check_relation(relation->rel_name)) {
+		DDL_err(55, relation->rel_name->sym_string, NULL, NULL, NULL, NULL);	/* msg 55: relation %s already exists */
+		return;
+	}
+
+	rse = relation->rel_rse;
+
+/* Store the relation record proper */
+
+	STORE X IN RDB$RELATIONS
+		MOVE_SYMBOL(relation->rel_name, X.RDB$RELATION_NAME);
+	    store_blr(rse, &X.RDB$VIEW_BLR, relation);
+        store_text(relation->rel_view_source, &X.RDB$VIEW_SOURCE);
+        if (relation->rel_security_class) {
+            X.RDB$SECURITY_CLASS.NULL = FALSE;
+            MOVE_SYMBOL(relation->rel_security_class, X.RDB$SECURITY_CLASS);
+        }
+        else
+            X.RDB$SECURITY_CLASS.NULL = TRUE;
+
+        if (relation->rel_description) {
+            store_text(relation->rel_description, &X.RDB$DESCRIPTION);
+            X.RDB$DESCRIPTION.NULL = FALSE;
+        }
+        else
+            X.RDB$DESCRIPTION.NULL = TRUE;
+
+        X.RDB$SYSTEM_FLAG = relation->rel_system;
+
+	END_STORE
+/* Store VIEW_RELATIONS for each relation in view */
+		contexts = rse->nod_arg[s_rse_contexts];
+	for (i = 0, arg = contexts->nod_arg; i < contexts->nod_count; i++, arg++) {
+		STORE X IN RDB$VIEW_RELATIONS 
+            context = (CTX) (*arg)->nod_arg[0];
+	        target = context->ctx_relation;
+            MOVE_SYMBOL(relation->rel_name, X.RDB$VIEW_NAME);
+            MOVE_SYMBOL(target->rel_name, X.RDB$RELATION_NAME);
+            MOVE_SYMBOL(context->ctx_name, X.RDB$CONTEXT_NAME);
+            X.RDB$VIEW_CONTEXT = context->ctx_context_id;
+	    END_STORE;
+    }
+
+/* Store the various fields */
+
+	for (field = relation->rel_fields; field; field = field->fld_next) {
+		if (check_field(relation->rel_name, field->fld_name))
+			DDL_err(56, field->fld_name->sym_string,
+					relation->rel_name->sym_string, NULL, NULL, NULL);
+		/* msg 56: field %s already exists in relation %s */
+
+		STORE X IN RDB$RELATION_FIELDS 
+            X.RDB$SECURITY_CLASS.NULL = TRUE;
+		    X.RDB$FIELD_POSITION.NULL = TRUE;
+            X.RDB$DESCRIPTION.NULL = TRUE;
+            X.RDB$QUERY_NAME.NULL = TRUE;
+            X.RDB$QUERY_HEADER.NULL = TRUE;
+            X.RDB$EDIT_STRING.NULL = TRUE;
+
+            MOVE_SYMBOL(relation->rel_name, X.RDB$RELATION_NAME);
+            MOVE_SYMBOL(field->fld_name, X.RDB$FIELD_NAME);
+
+            if (field->fld_computed) {
+                MOVE_SYMBOL(field->fld_source, X.RDB$FIELD_SOURCE);
+                X.RDB$BASE_FIELD.NULL = TRUE;
+                X.RDB$VIEW_CONTEXT = 0;
+            }
+            else {
+                X.RDB$BASE_FIELD.NULL = FALSE;
+                MOVE_SYMBOL(field->fld_base, X.RDB$BASE_FIELD);
+                context = field->fld_context;
+                target = context->ctx_relation;
+                if (!check_field(target->rel_name, field->fld_base))
+                    DDL_err(57,
+                            field->fld_base->sym_string,
+                            target->rel_name->sym_string,
+                            field->fld_name->sym_string, NULL, NULL);
+                /* msg 57: field %s doesn't exist in relation %s as referenced in view field %s */
+                
+                X.RDB$VIEW_CONTEXT = context->ctx_context_id;
+                FOR RFR IN RDB$RELATION_FIELDS WITH
+                    RFR.RDB$RELATION_NAME EQ target->rel_name->sym_string AND
+				    RFR.RDB$FIELD_NAME EQ field->fld_base->sym_string
+                    gds__vtov(RFR.RDB$FIELD_SOURCE,
+                              X.RDB$FIELD_SOURCE, sizeof(X.RDB$FIELD_SOURCE));
+                END_FOR;
+            }
+
+            if (field->fld_security_class) {
+                X.RDB$SECURITY_CLASS.NULL = FALSE;
+                MOVE_SYMBOL(field->fld_security_class, X.RDB$SECURITY_CLASS);
+            }
+            if (field->fld_flags & fld_explicit_position) {
+                X.RDB$FIELD_POSITION.NULL = FALSE;
+                X.RDB$FIELD_POSITION = field->fld_position;
+            }
+            if (field->fld_query_name) {
+                MOVE_SYMBOL(field->fld_query_name, X.RDB$QUERY_NAME);
+                X.RDB$QUERY_NAME.NULL = FALSE;
+            }
+            if (field->fld_description) {
+                store_text(field->fld_description, &X.RDB$DESCRIPTION);
+                X.RDB$DESCRIPTION.NULL = FALSE;
+            }
+            if (field->fld_edit_string) {
+                X.RDB$EDIT_STRING.NULL = FALSE;
+                MOVE_SYMBOL(field->fld_edit_string, X.RDB$EDIT_STRING);
+            }
+            if (field->fld_query_header) {
+                X.RDB$QUERY_HEADER.NULL = FALSE;
+                store_query_header(field->fld_query_header, &X.RDB$QUERY_HEADER);
+            }
+            if (field->fld_system)
+                X.RDB$SYSTEM_FLAG = field->fld_system;
+            else
+                X.RDB$SYSTEM_FLAG = relation->rel_system;
+		END_STORE;
+	}
+}
+
+
+static void alloc_file_name( FIL * start_file, UCHAR * file_name)
+{
+/**************************************
+ *
+ *	a l l o c  _ f i l e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a file name only once. No duplicates.
+ *
+ **************************************/
+	SYM string;
+	FIL file;
+	FIL temp;
+
+	for (temp = *start_file; temp; temp = temp->fil_next)
+		if (!strcmp(temp->fil_name->sym_name, file_name))
+			return;
+
+	file = (FIL) DDL_alloc(FIL_LEN);
+	file->fil_next = *start_file;
+	*start_file = file;
+	string = (SYM) DDL_alloc(SYM_LEN + strlen(file_name));
+	strcpy(string->sym_name, file_name);
+	file->fil_name = string;
+}
+
+
+static FLD check_field( SYM relation, SYM field)
+{
+/**************************************
+ *
+ *	c h e c k _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if a field already exists in RFR.
+ *
+ **************************************/
+	SYM symbol;
+
+	FOR X IN RDB$RELATION_FIELDS WITH
+		X.RDB$RELATION_NAME EQ relation->sym_string AND
+		X.RDB$FIELD_NAME EQ field->sym_string
+        {
+            if (symbol = HSH_typed_lookup(X.RDB$FIELD_SOURCE, (USHORT) 0, SYM_global)) 
+                return (FLD) symbol->sym_object;
+        } 
+    END_FOR;
+
+	return NULL;
+}
+
+
+static BOOLEAN check_function( SYM name)
+{
+/**************************************
+ *
+ *	c h e c k _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check function for existence.  
+ *
+ **************************************/
+	BOOLEAN if_any;
+
+	if_any = FALSE;
+
+	FOR X IN RDB$FUNCTIONS WITH X.RDB$FUNCTION_NAME EQ name->sym_string
+		if_any = TRUE;
+	END_FOR;
+
+	return if_any;
+}
+
+
+static BOOLEAN check_range( FLD field)
+{
+/**************************************
+ *
+ *	c h e c k _ r a n g e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Don't let the poor user modify the
+ *	datatype of an array unless he has
+ *	specifed the indices correctly.  Ahy
+ *	deviation in the ranges is assumed
+ *	to be an illconsidered modification.
+ *
+ **************************************/
+	SLONG *range;
+	USHORT dims;
+	BASED ON RDB$FIELD_DIMENSIONS.RDB$FIELD_NAME name;
+	BOOLEAN if_any, match;
+
+	MOVE_SYMBOL(field->fld_name, name);
+	if_any = match = FALSE;
+	dims = field->fld_dimension;
+
+/* existance: if neither is an array, life is good
+    else if there are dimensions they'd better match */
+
+	FOR X IN RDB$FIELDS WITH X.RDB$FIELD_NAME EQ name 
+        if (!dims) {
+            if (!X.RDB$DIMENSIONS.NULL)
+                DDL_err(302, name, NULL, NULL, NULL, NULL);
+            /* msg 302: Include complete field specification to change datatype of array %s */
+            else
+                match = TRUE;
+        }
+        else if (dims == X.RDB$DIMENSIONS)
+            if_any = TRUE;
+	END_FOR;
+
+	if (match)
+		return match;
+
+	if (!dims)
+		return FALSE;
+
+	if (if_any) {
+		range = field->fld_ranges;
+		FOR X IN RDB$FIELD_DIMENSIONS WITH X.RDB$FIELD_NAME EQ name
+			SORTED BY ASCENDING X.RDB$DIMENSION
+			if ((*range++ != X.RDB$LOWER_BOUND)
+				|| (*range++ != X.RDB$UPPER_BOUND)) if_any = FALSE;
+		END_FOR;
+	}
+
+	if (!if_any)
+		DDL_err(301, NULL, NULL, NULL, NULL, NULL);
+	return if_any;
+}
+
+
+static BOOLEAN check_relation( SYM name)
+{
+/**************************************
+ *
+ *	c h e c k _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check relation for existence.  
+ *
+ **************************************/
+	BOOLEAN if_any;
+
+	if_any = FALSE;
+
+	FOR X IN RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ name->sym_string
+		if_any = TRUE;
+	END_FOR;
+
+	return if_any;
+}
+
+
+static void close_blob( void *blob)
+{
+/**************************************
+ *
+ *	c l o s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a blob.
+ *
+ **************************************/
+	STATUS status_vector[20];
+    
+	if (gds__close_blob(status_vector, GDS_REF(blob)))
+		DDL_db_error(status_vector, 58, NULL, NULL, NULL, NULL, NULL);	/* msg 58: gds__close_blob failed */
+}
+
+
+static void *create_blob( SLONG * blob_id, USHORT bpb_length, UCHAR * bpb)
+{
+/**************************************
+ *
+ *	c r e a t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new blob.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	void *blob;
+    
+	blob = NULL;
+    
+	if (gds__create_blob2(status_vector,
+						  GDS_REF(DB),
+						  GDS_REF(gds__trans),
+						  GDS_REF(blob), GDS_VAL(blob_id), bpb_length, bpb)) {
+		DDL_db_error(status_vector, 59, NULL, NULL, NULL, NULL, NULL);	/* msg 59: gds__create_blob failed */
+		return NULL;
+	}
+
+	return blob;
+}
+
+
+static void drop_cache( DBB dbb)
+{
+/**************************************
+ *
+ *	d r o p _ c a c h e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of shared cache file in the database.
+ *
+ **************************************/
+	USHORT found;
+
+	found = FALSE;
+
+	FOR FIL IN RDB$FILES WITH FIL.RDB$FILE_FLAGS EQ FILE_cache 
+        ERASE FIL;
+	    found = TRUE;
+	END_FOR;
+
+	if (!found)
+		DDL_err(325, NULL, NULL, NULL, NULL, NULL);	/* msg 325: no shared cache file exists to drop */
+
+	if (!DDL_errors) {
+		COMMIT 
+        ON_ERROR 
+            DDL_db_error(gds__status, 326, NULL, NULL, NULL, NULL, NULL);	/* msg 326: error commiting deletion of shared cache file */
+		    ROLLBACK;
+		END_ERROR;
+		START_TRANSACTION;
+	}
+}
+
+
+static void drop_field( FLD field)
+{
+/**************************************
+ *
+ *	d r o p _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop a field from a relation.  First
+ *	check that it's not referenced in a
+ *	view (other that the current one, if the
+ *	current relation happens to be a view).  
+ *	If the field is computed, and
+ *	the current reference is not a view, 
+ *	erase the artificially named source field.
+ *
+ **************************************/
+	REL relation;
+	USHORT error, if_any;
+
+	relation = field->fld_relation;
+	error = if_any = FALSE;
+
+	FOR X IN RDB$RELATION_FIELDS CROSS Y IN RDB$RELATION_FIELDS CROSS
+		Z IN RDB$VIEW_RELATIONS WITH
+		X.RDB$RELATION_NAME EQ relation->rel_name->sym_string AND
+		X.RDB$FIELD_NAME EQ field->fld_name->sym_string AND
+		X.RDB$FIELD_NAME = Y.RDB$BASE_FIELD AND
+		X.RDB$FIELD_SOURCE = Y.RDB$FIELD_SOURCE AND
+		Y.RDB$RELATION_NAME EQ Z.RDB$VIEW_NAME AND
+		X.RDB$RELATION_NAME EQ Z.RDB$RELATION_NAME AND
+		Y.RDB$VIEW_CONTEXT EQ Z.RDB$VIEW_CONTEXT 
+
+        DDL_err(60, field->fld_name->sym_string, 
+                relation->rel_name->sym_string,
+                Y.RDB$RELATION_NAME,
+                NULL, NULL);
+	    /* msg 60: field %s from relation %s is referenced in view %s */
+	    error = TRUE;
+	END_FOR;
+
+	if (error)
+		return;
+
+	FOR FIRST 1 X IN RDB$RELATION_FIELDS WITH
+		X.RDB$RELATION_NAME EQ relation->rel_name->sym_string AND
+		X.RDB$FIELD_NAME EQ field->fld_name->sym_string
+		FOR Y IN RDB$RELATION_FIELDS WITH
+		    Y.RDB$FIELD_NAME = X.RDB$BASE_FIELD if_any = TRUE;
+	    END_FOR 
+
+        if (!if_any) {
+            FOR Z IN RDB$FIELDS WITH
+                Z.RDB$FIELD_NAME = X.RDB$FIELD_SOURCE
+                AND NOT(Z.RDB$COMPUTED_BLR MISSING) 
+                ERASE Z;
+	        END_FOR;
+        }
+        ERASE X;
+        if_any = TRUE;
+    END_FOR;
+
+	if (!if_any)
+		DDL_err(61,
+				field->fld_name->sym_string,
+				relation->rel_name->sym_string, NULL, NULL, NULL);
+	/* msg 61: field %s doesn't exists in relation %s */
+}
+
+
+static void drop_filter( FILTER filter)
+{
+/**************************************
+ *
+ *	d r o p _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of a filter.
+ *
+ **************************************/
+	USHORT if_any;
+
+	if_any = FALSE;
+
+	FOR F IN RDB$FILTERS WITH F.RDB$FUNCTION_NAME EQ filter->filter_name->sym_string 
+        ERASE F;
+	    if_any = TRUE;
+	END_FOR;
+
+	if (!if_any)
+		DDL_err(62, filter->filter_name->sym_string, NULL, NULL, NULL, NULL);	/* msg 62: filter %s doesn't exist */
+}
+
+
+static void drop_function( FUNC function)
+{
+/**************************************
+ *
+ *	d r o p _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of a function and its arguments.
+ *
+ **************************************/
+	TEXT *name;
+	USHORT if_any;
+
+	name = function->func_name->sym_string;
+	if_any = FALSE;
+
+/* Clean out function argument first.  */
+
+	FOR FUNCARG IN RDB$FUNCTION_ARGUMENTS WITH FUNCARG.
+		RDB$FUNCTION_NAME EQ name ERASE FUNCARG;
+	END_FOR;
+
+	FOR FUNC IN RDB$FUNCTIONS WITH FUNC.RDB$FUNCTION_NAME EQ name 
+        ERASE FUNC;
+        if_any = TRUE;
+	END_FOR;
+
+	if (!if_any)
+		DDL_err(63, name, NULL, NULL, NULL, NULL);	/* msg 63: function %s doesn't exist */
+}
+
+
+static void drop_global_field( FLD field)
+{
+/**************************************
+ *
+ *	d r o p _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop a field from a relation.
+ *
+ **************************************/
+	SCHAR *p;
+	USHORT if_any, error;
+
+	if_any = FALSE;
+	error = FALSE;
+
+	FOR Y IN RDB$RELATION_FIELDS WITH
+		Y.RDB$FIELD_SOURCE EQ field->fld_name->sym_string
+		for (p = Y.RDB$FIELD_SOURCE; *p && *p != ' '; p++);
+	    *p = 0;
+
+        for (p = Y.RDB$RELATION_NAME; *p && *p != ' '; p++);
+        *p = 0;
+
+        for (p = Y.RDB$FIELD_NAME; *p && *p != ' '; p++);
+        *p = 0;
+
+        DDL_err(64,
+                Y.RDB$FIELD_SOURCE,
+                Y.RDB$RELATION_NAME, Y.RDB$FIELD_NAME, NULL, NULL);
+        /* msg 64: field %s is used in relation %s (local name %s) and can not be dropped */
+        error = TRUE;
+	END_FOR;
+
+	if (error)
+		return;
+
+	FOR X IN RDB$TYPES WITH
+		X.RDB$FIELD_NAME EQ field->fld_name->sym_string 
+        ERASE X;
+	END_FOR;
+
+	FOR X IN RDB$FIELD_DIMENSIONS WITH
+		X.RDB$FIELD_NAME EQ field->fld_name->sym_string 
+        ERASE X;
+	END_FOR;
+
+	FOR X IN RDB$FIELDS WITH
+		X.RDB$FIELD_NAME EQ field->fld_name->sym_string 
+        ERASE X;
+	if_any = TRUE;
+	END_FOR if (!if_any)
+		DDL_err(65, field->fld_name->sym_string, NULL, NULL, NULL, NULL);	/* msg 65: field %s doesn't exist */
+}
+
+
+static void drop_index( DUDLEY_IDX index)
+{
+/**************************************
+ *
+ *	d r o p _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of an index.
+ *
+ **************************************/
+	TEXT *name;
+	USHORT if_any;
+
+	name = index->idx_name->sym_string;
+	if_any = FALSE;
+
+/* Clean out index segments first.  */
+
+	FOR SEG IN RDB$INDEX_SEGMENTS WITH SEG.RDB$INDEX_NAME EQ name 
+        ERASE SEG;
+	END_FOR;
+
+	FOR IDX IN RDB$INDICES WITH IDX.RDB$INDEX_NAME EQ name 
+        ERASE IDX;
+	if_any = TRUE;
+	END_FOR;
+
+	if (!if_any)
+		DDL_err(66, name, NULL, NULL, NULL, NULL);	/* msg 66: index %s doesn't exist  */
+}
+
+
+static void drop_relation( REL relation)
+{
+/**************************************
+ *
+ *	d r o p _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop a relation, friends, and relatives.
+ *
+ **************************************/
+	TEXT *name;
+	USHORT if_any;
+
+	name = relation->rel_name->sym_string;
+	if_any = FALSE;
+
+	FOR X IN RDB$VIEW_RELATIONS WITH X.RDB$RELATION_NAME EQ name
+		DDL_err(67, name, X.RDB$VIEW_NAME, NULL, NULL, NULL);	/* msg 67: %s referenced by view %s */
+	return;
+	END_FOR;
+
+/* check that the relation exists and can be deleted */
+
+	FOR X IN RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ name
+		if (X.RDB$SYSTEM_FLAG == 1) {
+            DDL_err(68, name, NULL, NULL, NULL, NULL);	/* msg 68: can't drop system relation %s */
+            return;
+        } 
+        if_any = TRUE;
+	END_FOR;
+
+	if (!if_any) {
+		DDL_err(69, name, NULL, NULL, NULL, NULL);	/* msg 69: relation %s doesn't exist */
+		return;
+	}
+
+/* First, get rid of the relation itself.  This will speed things later on. */
+
+	FOR X IN RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ name 
+        ERASE X;
+	END_FOR;
+
+/* Clean out RDB$INDICES, RDB$VIEW_RELATIONS and RDB$RELATION_FIELDS */
+
+	FOR IDX IN RDB$INDICES WITH IDX.RDB$RELATION_NAME EQ name
+		FOR SEG IN RDB$INDEX_SEGMENTS WITH 
+            SEG.RDB$INDEX_NAME EQ IDX.RDB$INDEX_NAME 
+            ERASE SEG;
+	    END_FOR;
+        ERASE IDX;
+	END_FOR;
+
+	FOR X IN RDB$VIEW_RELATIONS WITH X.RDB$VIEW_NAME EQ name 
+        ERASE X;
+	END_FOR;
+
+	FOR X IN RDB$RELATION_FIELDS WITH X.RDB$RELATION_NAME EQ name 
+        ERASE X;
+	END_FOR;
+
+/* Finally, get rid of any user privileges */
+
+	FOR PRIV IN RDB$USER_PRIVILEGES WITH PRIV.RDB$RELATION_NAME EQ name AND
+		PRIV.RDB$OBJECT_TYPE = obj_relation 
+        ERASE PRIV;
+	END_FOR 
+    ON_ERROR 
+    END_ERROR;
+}
+
+
+static void drop_security_class( SCL class)
+{
+/**************************************
+ *
+ *	d r o p _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop an existing security class name.
+ *
+ **************************************/
+	SYM name;
+	USHORT if_any;
+
+	name = class->scl_name;
+	if_any = FALSE;
+
+	FOR X IN RDB$SECURITY_CLASSES WITH X.RDB$SECURITY_CLASS EQ name->sym_string 
+        ERASE X;
+	    if_any = TRUE;
+	END_FOR;
+
+	if (!if_any)
+		DDL_err(70, name->sym_string, NULL, NULL, NULL, NULL);	/* msg 70: security class %s doesn't exist */
+}
+
+
+static void drop_shadow( SLONG shadow_number)
+{
+/**************************************
+ *
+ *	d r o p _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of all files in the database
+ *	with the given shadow number.
+ *
+ **************************************/
+	SYM string;
+	LLS files, first_file;
+
+	files = first_file = NULL;
+
+	FOR FIL IN RDB$FILES WITH
+		FIL.RDB$SHADOW_NUMBER EQ shadow_number 
+        ERASE FIL;
+	    string = (SYM) DDL_alloc(SYM_LEN + strlen(FIL.RDB$FILE_NAME));
+        strcpy(string->sym_name, FIL.RDB$FILE_NAME);
+        DDL_push(string, &files);
+        if (!first_file)
+            first_file = files;
+    END_FOR;
+
+	if (!files)
+		DDL_err(71, (TEXT *) shadow_number, NULL, NULL, NULL, NULL);	/* msg 71: shadow %ld doesn't exist */
+
+	if (!DDL_errors) {
+		COMMIT 
+        ON_ERROR 
+            DDL_db_error(gds__status, 72, NULL, NULL, NULL, NULL, NULL);	/* msg 72: error commiting deletion of shadow */
+		    ROLLBACK;
+		END_ERROR;
+		START_TRANSACTION;
+
+		first_file->lls_next = files_to_delete;
+		files_to_delete = files;
+	}
+}
+
+
+static void drop_trigger( TRG trigger)
+{
+/**************************************
+ *
+ *	 d r o p _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	drop a trigger in rdb$triggers.
+ *
+ **************************************/
+	TEXT *name;
+	USHORT if_any, others;
+	BASED_ON RDB$TRIGGERS.RDB$RELATION_NAME relation_name;
+
+	name = trigger->trg_name->sym_string;
+	if_any = others = FALSE;
+
+/* Clean out possible trigger messages first. */
+
+	FOR TM IN RDB$TRIGGER_MESSAGES WITH TM.RDB$TRIGGER_NAME EQ name 
+        ERASE TM;
+	END_FOR;
+
+	FOR X IN RDB$TRIGGERS WITH X.RDB$TRIGGER_NAME EQ name
+		gds__vtov(X.RDB$RELATION_NAME, relation_name, sizeof(relation_name));
+	    ERASE X;
+	    if_any = TRUE;
+	END_FOR;
+
+	if (!if_any)
+		DDL_err(73, name, NULL, NULL, NULL, NULL);	/* msg 73: Trigger %s doesn't exist */
+
+/* clear the update flags on the fields if this is the last remaining   trigger that changes a view */
+
+	FOR V IN RDB$VIEW_RELATIONS
+		WITH V.RDB$VIEW_NAME = relation_name
+		FOR F IN RDB$RELATION_FIELDS CROSS T IN RDB$TRIGGERS OVER
+		    RDB$RELATION_NAME WITH
+		    F.RDB$RELATION_NAME = V.RDB$VIEW_NAME 
+            others = TRUE;
+	    END_FOR;
+
+        if (!others) {
+            FOR F IN RDB$RELATION_FIELDS
+                WITH F.RDB$RELATION_NAME = V.RDB$VIEW_NAME
+                    MODIFY F USING 
+                        F.RDB$UPDATE_FLAG = FALSE;
+                    END_MODIFY;
+	        END_FOR;
+        }
+	END_FOR;
+}
+
+
+static void drop_trigger_msg( TRGMSG trigmsg)
+{
+/**************************************
+ *
+ *	d r o p _ t r i g g e r _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop a trigger message.
+ *
+ **************************************/
+	USHORT if_any;
+
+	if_any = FALSE;
+
+	FOR FIRST 1 X IN RDB$TRIGGER_MESSAGES WITH
+		X.RDB$TRIGGER_NAME EQ trigmsg->trgmsg_trg_name->sym_string AND
+		X.RDB$MESSAGE_NUMBER = trigmsg->trgmsg_number;
+	    ERASE X;
+        if_any = TRUE;
+	END_FOR;
+
+	if (!if_any)
+		DDL_err(74,
+				(TEXT *) trigmsg->trgmsg_number,
+				trigmsg->trgmsg_trg_name->sym_string, NULL, NULL, NULL);
+	/* msg 74: Trigger message number %d for trigger %s doesn't exist */
+}
+
+
+static void drop_type( TYP fldtype)
+{
+/**************************************
+ *
+ *	d r o p _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop a list of types or all types of an existing field.
+ *
+ **************************************/
+	USHORT if_any;
+
+	if (fldtype->typ_name->sym_length == 3 &&
+		!strncmp(fldtype->typ_name->sym_string, "ALL", 3)) {
+		FOR X IN RDB$TYPES WITH
+			X.RDB$FIELD_NAME EQ fldtype->typ_field_name->sym_string 
+            ERASE X;
+		END_FOR;
+
+		return;
+	}
+
+	if_any = FALSE;
+
+	FOR X IN RDB$TYPES WITH
+		X.RDB$FIELD_NAME EQ fldtype->typ_field_name->sym_string AND
+		X.RDB$TYPE_NAME EQ fldtype->typ_name->sym_string 
+        ERASE X;
+	    if_any = TRUE;
+	END_FOR;
+
+	if (!if_any)
+		DDL_err(75,
+				fldtype->typ_name->sym_string,
+				fldtype->typ_field_name->sym_string, NULL, NULL, NULL);
+	/* msg 75: Type %s for field %s doesn't exist */
+}
+
+
+static void drop_user_privilege( USERPRIV upriv)
+{
+/**************************************
+ *
+ *	d r o p _ u s e r _ p r i v i l e g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find and delete as many rdb$user_privilege entries 
+ *	as needed for the REVOKE statement.
+ *
+ **************************************/
+	USHORT privflag;
+	TEXT priv[7];
+	UPFE upf;					/* user privilege field entry */
+	USRE usr;					/* user entry */
+
+/* we have one rdb$user_privileges entry per each user/privilege/field
+   combination so start by looping through each user in user list, then
+   loop for each privilege - erase_userpriv takes care of the multiple
+   field entries */
+
+	for (usr = upriv->userpriv_userlist; usr; usr = usr->usre_next) {
+		/* start with a fresh copy of privflag and erase each 
+		   privilege as we take care of it */
+
+		privflag = upriv->userpriv_flags & ~USERPRIV_grant;
+		while (privflag) {
+			upf = NULL;
+			if (privflag & USERPRIV_select) {
+				strcpy(priv, UPRIV_SELECT);
+				privflag ^= USERPRIV_select;
+			}
+			else if (privflag & USERPRIV_delete) {
+				strcpy(priv, UPRIV_DELETE);
+				privflag ^= USERPRIV_delete;
+			}
+			else if (privflag & USERPRIV_insert) {
+				strcpy(priv, UPRIV_INSERT);
+				privflag ^= USERPRIV_insert;
+			}
+			else if (privflag & USERPRIV_update) {
+				strcpy(priv, UPRIV_UPDATE);
+				privflag ^= USERPRIV_update;
+
+				/* no field list implies all fields */
+
+				if (!upriv->userpriv_upflist)
+					erase_userpriv(upriv, priv, usr, upf);
+				else
+					/* update is the only privilege with a possible field list */
+					for (upf = upriv->userpriv_upflist; upf;
+						 upf =
+						 upf->upfe_next) erase_userpriv(upriv, priv, usr,
+														upf);
+			}
+
+			/* don't call erase_userpriv if we just finished update */
+
+			if (strcmp(priv, UPRIV_UPDATE))
+				erase_userpriv(upriv, priv, usr, upf);
+
+		}						/* while (privflag) */
+	}							/* for */
+}
+
+
+static void erase_userpriv( USERPRIV upriv, TEXT * priv, USRE usr, UPFE upf)
+{
+/**************************************
+ *
+ *	e r a s e _ u s e r p r i v
+ *
+ **************************************
+ *
+ * Functional description
+ *	Erase a user/privilege/field combination for a REVOKE statement.
+ *
+ **************************************/
+	TEXT *fldname, *relname, *usrname;
+	USHORT if_any;
+
+	usrname = usr->usre_name->sym_string;
+	relname = upriv->userpriv_relation->sym_string;
+	if_any = FALSE;
+
+/* for UPDATE privilege the field is specified */
+
+	if (upf) {
+		fldname = upf->upfe_fldname->sym_string;
+		FOR X IN RDB$USER_PRIVILEGES WITH
+			X.RDB$USER EQ usrname AND
+			X.RDB$USER_TYPE EQ obj_user AND
+			X.RDB$PRIVILEGE EQ priv AND
+			X.RDB$FIELD_NAME EQ fldname AND
+			X.RDB$RELATION_NAME EQ relname AND
+			X.RDB$OBJECT_TYPE EQ obj_relation 
+
+            ERASE X;
+		    if_any = TRUE;
+		END_FOR;
+		if (!if_any)
+			DDL_err(76, priv, fldname, relname, usrname, NULL);
+		/* msg 76: User privilege %s on field %s in relation %s for user %s doesn't exist */
+	}
+	else {
+		FOR X IN RDB$USER_PRIVILEGES WITH
+			X.RDB$USER EQ usrname AND
+			X.RDB$USER_TYPE EQ obj_user AND
+			X.RDB$PRIVILEGE EQ priv AND
+			X.RDB$RELATION_NAME EQ relname AND
+			X.RDB$OBJECT_TYPE EQ obj_relation 
+
+            ERASE X;
+		    if_any = TRUE;
+		END_FOR;
+		if (!if_any)
+			DDL_err(77, priv, relname, usrname, NULL, NULL);
+		/* msg 77: User privilege %s on relation %s for user %s doesn't exist */
+	}
+}
+
+
+static void get_field_desc( FLD field)
+{
+/**************************************
+ *
+ *	g e t _ f i e l d _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get description for existing field.
+ *
+ **************************************/
+	USHORT if_any;
+
+	if_any = FALSE;
+
+	FOR FLD IN RDB$RELATION_FIELDS CROSS SRC IN RDB$FIELDS
+		WITH FLD.RDB$FIELD_NAME = field->fld_name->sym_string
+		AND FLD.RDB$RELATION_NAME = field->fld_relation->rel_name->sym_string
+		AND FLD.RDB$FIELD_SOURCE = SRC.RDB$FIELD_NAME
+
+		field->fld_dtype = SRC.RDB$FIELD_TYPE;
+	    field->fld_length = SRC.RDB$FIELD_LENGTH;
+        field->fld_scale = SRC.RDB$FIELD_SCALE;
+        field->fld_segment_length = SRC.RDB$SEGMENT_LENGTH;
+        field->fld_sub_type = SRC.RDB$FIELD_SUB_TYPE;
+        if_any = TRUE;
+	END_FOR;
+
+	if (!if_any)
+		DDL_err(78,
+				field->fld_name->sym_string,
+				field->fld_relation->rel_name->sym_string, NULL, NULL, NULL);
+	/* msg 78: field %s is unknown in relation %s */
+}
+
+
+static void get_global_fields(void)
+{
+/**************************************
+ *
+ *	g e t _ g l o b a l _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get global fields for database.
+ *
+ **************************************/
+	FLD field;
+	SYM symbol;
+	USHORT l;
+	TEXT *p, *q;
+
+	FOR X IN RDB$FIELDS 
+        field = (FLD) DDL_alloc(FLD_LEN);
+	    field->fld_name = symbol =
+            get_symbol(SYM_global, X.RDB$FIELD_NAME, field);
+        HSH_insert(symbol);
+        field->fld_dtype = X.RDB$FIELD_TYPE;
+        field->fld_length = X.RDB$FIELD_LENGTH;
+        field->fld_scale = X.RDB$FIELD_SCALE;
+        field->fld_segment_length = X.RDB$SEGMENT_LENGTH;
+        field->fld_sub_type = X.RDB$FIELD_SUB_TYPE;
+    END_FOR;
+}
+
+
+static void get_log_names(SCHAR * db_name,
+						  FIL * start_file,
+						  SCHAR * cur_log,
+						  SLONG part_offset, SSHORT force, SSHORT skip_delete)
+{
+/**************************************
+ *
+ *	g e t _ l o g _ n a m e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk through list of log files and add to link list.
+ *
+ **************************************/
+	SCHAR next_log[512], expanded_name[512];
+	SCHAR *cl, *nl;
+	int log_count, ret_val;
+	SSHORT not_archived;
+	SLONG last_log_flag, next_offset;
+	SLONG log_seqno, log_length;
+	SSHORT loop;
+
+	ISC_expand_filename(db_name, 0, expanded_name);
+
+	loop = 0;
+
+/* loop up to 10 times to allow the file to be archived */
+
+	while (TRUE) {
+		loop++;
+		if (WALF_get_linked_logs_info(gds__status, expanded_name, cur_log,
+									  part_offset, &log_count, next_log,
+									  &next_offset, &last_log_flag,
+									  &not_archived) != SUCCESS)
+			DDL_error_abort(gds__status, 328, NULL, NULL, NULL, NULL, NULL);
+		/* msg 328: error in reading list of log files */
+
+		if ((!not_archived) || force)
+			break;
+
+		if (not_archived && skip_delete) {
+			*start_file = (FIL) NULL;
+			return;
+		}
+
+		if (loop >= 10)
+			DDL_error_abort(NULL_PTR, 329, NULL, NULL, NULL, NULL, NULL);	/* msg 329: use CASCADE option to remove log files before archive is done */
+	}
+
+	if (log_count)
+		alloc_file_name(start_file, next_log);
+	else
+		alloc_file_name(start_file, cur_log);
+
+	cl = next_log;
+	nl = cur_log;
+	part_offset = next_offset;
+
+	while (log_count) {
+		ret_val = WALF_get_next_log_info(gds__status,
+										 expanded_name,
+										 cl, part_offset,
+										 nl, &next_offset,
+										 &log_seqno, &log_length,
+										 &last_log_flag, 1);
+
+		if (ret_val == FAILURE)
+			DDL_error_abort(gds__status, 328, NULL, NULL, NULL, NULL, NULL);	/* msg 328: error in reading list of log files */
+		if (ret_val < 0)
+			break;
+
+		alloc_file_name(start_file, nl);
+
+		/* switch files */
+
+		if (cl == next_log) {
+			cl = cur_log;
+			nl = next_log;
+		}
+		else {
+			cl = next_log;
+			nl = cur_log;
+		}
+		part_offset = next_offset;
+	}
+}
+
+
+static void get_log_names_serial( FIL * start_file)
+{
+/**************************************
+ *
+ *	g e t _ l o g _ n a m e s _ s e r i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk through list of serial log files and add to link list.
+ *
+ **************************************/
+	SLONG *tr1 = 0;
+
+/* 
+ * for round robin log files, some of the log files may not have been used
+ * when the database is dropped or log is dropped. Add them to the list
+ */
+
+	START_TRANSACTION tr1;
+
+	FOR(TRANSACTION_HANDLE tr1) L IN RDB$LOG_FILES
+		if (L.RDB$FILE_FLAGS & LOG_serial) 
+            continue;
+	    alloc_file_name(start_file, L.RDB$FILE_NAME);
+	END_FOR;
+
+	COMMIT tr1 
+    ON_ERROR 
+    END_ERROR;
+}
+
+
+static void get_relations( DBB database)
+{
+/**************************************
+ *
+ *	g e t _ r e l a t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get information on existing relations
+ *	and their fields.
+ *
+ **************************************/
+	REL relation;
+	FLD field;
+	SYM symbol;
+	USHORT l;
+	TEXT *p, *q;
+
+	FOR R IN RDB$RELATIONS 
+        relation = (REL) DDL_alloc(REL_LEN);
+	    relation->rel_name = symbol =
+            get_symbol(SYM_relation, R.RDB$RELATION_NAME, relation);
+        HSH_insert(symbol);
+        relation->rel_database = database;
+        relation->rel_next = database->dbb_relations;
+        database->dbb_relations = relation;
+        relation->rel_system = R.RDB$SYSTEM_FLAG;
+        FOR RFR IN RDB$RELATION_FIELDS WITH 
+            RFR.RDB$RELATION_NAME = R.RDB$RELATION_NAME 
+
+            field = (FLD) DDL_alloc(FLD_LEN);
+            field->fld_name = get_symbol(SYM_field, RFR.RDB$FIELD_NAME, field);
+            HSH_insert(field->fld_name);
+            field->fld_relation = relation;
+            field->fld_next = relation->rel_fields;
+            relation->rel_fields = field;
+            field->fld_position = RFR.RDB$FIELD_POSITION;
+            relation->rel_field_position =
+                MAX(RFR.RDB$FIELD_POSITION, relation->rel_field_position);
+            field->fld_source =
+                HSH_typed_lookup(RFR.RDB$FIELD_SOURCE, (USHORT) 0, SYM_global);
+        END_FOR;
+    END_FOR;
+}
+
+
+static USHORT get_prot_mask( TEXT * relation, TEXT * field)
+{
+/**************************************
+ *
+ *	g e t _ p r o t _ m a s k
+ *
+ **************************************
+ *
+ * Functional description
+ *	returns the protection mask for a relation
+ *	or field (if the field is an empty string it
+ *	gets the mask for the relation).
+ *
+ **************************************/
+	static SCHAR blr[] = {
+		blr_version4,
+		blr_begin,
+		blr_message, 1, 1, 0,
+		blr_short, 0,
+		blr_message, 0, 2, 0,
+		blr_cstring, 32, 0,
+		blr_cstring, 32, 0,
+		blr_receive, 0,
+		blr_begin,
+		blr_send, 1,
+		blr_begin,
+		blr_assignment,
+		blr_prot_mask,
+		blr_parameter, 0, 0, 0,
+		blr_parameter, 0, 1, 0,
+		blr_parameter, 1, 0, 0,
+		blr_end,
+		blr_end,
+		blr_end,
+		blr_eoc
+	};
+	static int req_handle;
+	struct {
+		SCHAR relation_name[32];
+		SCHAR field_name[32];
+	} msg;
+	struct {
+		SSHORT prot_mask;
+	} output;
+
+	strcpy(msg.relation_name, relation);
+	if (field)
+		strcpy(msg.field_name, field);
+	else
+		strcpy(msg.field_name, "");
+
+	if (!req_handle)
+		isc_compile_request2((SLONG *) 0, &DB, &req_handle, sizeof(blr), blr);
+	isc_start_request((SLONG *) 0, &req_handle, &gds__trans, 0);
+	isc_start_and_send((SLONG *) 0, &req_handle, &gds__trans, 0, sizeof(msg),
+					   &msg, 0);
+	isc_receive((SLONG *) 0, &req_handle, 1, sizeof(output), &output, 0);
+
+	return output.prot_mask;
+}
+
+
+static SYM get_symbol( enum sym_t type, TEXT * string, CTX object)
+{
+/**************************************
+ *
+ *	g e t _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate and format symbol block for null or blank terminated string.
+ *
+ **************************************/
+	TEXT *p;
+	USHORT l;
+	SYM symbol;
+
+	for (p = string; *p && *p != ' '; p++);
+
+	l = p - string;
+	symbol = (SYM) DDL_alloc(SYM_LEN + l);
+	symbol->sym_object = object;
+	symbol->sym_type = type;
+	symbol->sym_string = p = symbol->sym_name;
+
+	if (symbol->sym_length = l)
+		do
+			*p++ = *string++;
+		while (--l);
+
+	return symbol;
+}
+
+
+static void get_triggers( DBB database)
+{
+/**************************************
+ *
+ *	g e t _ t r i g g e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get information on existing relations
+ *	and their fields.
+ *
+ **************************************/
+	TRG trigger;
+	SYM symbol, rel_name;
+	USHORT l;
+	TEXT *p, *q;
+
+	FOR T IN RDB$TRIGGERS WITH T.RDB$SYSTEM_FLAG MISSING OR 
+        T.RDB$SYSTEM_FLAG = 0 
+
+        trigger = (TRG) DDL_alloc(TRG_LEN);
+	    trigger->trg_name = symbol =
+            get_symbol(SYM_trigger, T.RDB$TRIGGER_NAME, trigger);
+        HSH_insert(symbol);
+        rel_name =
+            HSH_typed_lookup(T.RDB$RELATION_NAME, (USHORT) 0, SYM_relation);
+        if (rel_name && rel_name->sym_object)
+            trigger->trg_relation = (REL) rel_name->sym_object;
+        else
+            trigger->trg_relation =
+                (REL) get_symbol(SYM_relation, T.RDB$RELATION_NAME, NULL);
+        trigger->trg_type = (TRG_T) T.RDB$TRIGGER_TYPE;
+        trigger->trg_inactive = T.RDB$TRIGGER_INACTIVE;
+        trigger->trg_sequence = T.RDB$TRIGGER_SEQUENCE;
+	END_FOR;
+}
+
+
+static void get_udfs( DBB dbb)
+{
+/**************************************
+ *
+ *	g e t _ u d f s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pickup any user defined functions.
+ *
+ **************************************/
+	FUNC function;
+	FUNCARG arg;
+	SYM symbol;
+
+	FOR FUN IN RDB$FUNCTIONS CROSS ARG IN RDB$FUNCTION_ARGUMENTS WITH
+		FUN.RDB$FUNCTION_NAME EQ ARG.RDB$FUNCTION_NAME AND
+		FUN.RDB$RETURN_ARGUMENT EQ ARG.RDB$ARGUMENT_POSITION
+		function = (FUNC) DDL_alloc(FUNC_LEN);
+	    function->func_database = dbb;
+        function->func_name = symbol =
+            get_symbol(SYM_function, FUN.RDB$FUNCTION_NAME, function);
+        HSH_insert(symbol);
+        function->func_return = arg = (FUNCARG) DDL_alloc(FUNCARG_LEN);
+        arg->funcarg_dtype = ARG.RDB$FIELD_TYPE;
+        arg->funcarg_scale = ARG.RDB$FIELD_SCALE;
+        arg->funcarg_length = ARG.RDB$FIELD_LENGTH;
+        arg->funcarg_sub_type = ARG.RDB$FIELD_SUB_TYPE;
+        arg->funcarg_has_sub_type = !(ARG.RDB$FIELD_SUB_TYPE.NULL);
+    END_FOR 
+    ON_ERROR 
+    END_ERROR;
+}
+
+
+static void make_desc( NOD node, DSC * desc)
+{
+/**************************************
+ *
+ *	m a k e _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Invent a descriptor based on expression tree.
+ *
+ **************************************/
+	FLD field;
+	REL relation;
+	DSC desc1, desc2;
+	CTX context;
+	CON constant;
+	FUNC function;
+	USHORT dtype;
+	FUNCARG arg;
+
+	switch (node->nod_type) {
+	case nod_max:
+	case nod_min:
+	case nod_from:
+		make_desc(node->nod_arg[s_stt_value], desc);
+		return;
+
+	case nod_total:
+		make_desc(node->nod_arg[s_stt_value], &desc1);
+		dtype = make_dtype(desc1.dsc_dtype);
+		switch (dtype) {
+		case dtype_short:
+		case dtype_long:
+			desc->dsc_dtype = blr_long;
+			desc->dsc_length = sizeof(SLONG);
+			desc->dsc_scale = desc1.dsc_scale;
+			desc->dsc_sub_type = 0;
+			return;
+
+		case dtype_timestamp:
+		case dtype_sql_date:
+		case dtype_sql_time:
+			DDL_msg_put(80, NULL, NULL, NULL, NULL, NULL);	/* msg 80: TOTAL of date not supported */
+			return;
+
+		default:
+			desc->dsc_dtype = blr_double;
+			desc->dsc_length = sizeof(double);
+			desc->dsc_scale = 0;
+			desc->dsc_sub_type = 0;
+			return;
+		}
+		break;
+
+	case nod_average:
+	case nod_divide:
+		desc->dsc_dtype = blr_double;
+		desc->dsc_length = sizeof(double);
+		desc->dsc_scale = 0;
+		desc->dsc_sub_type = 0;
+		return;
+
+	case nod_count:
+		desc->dsc_dtype = blr_long;
+		desc->dsc_length = sizeof(SLONG);
+		desc->dsc_scale = 0;
+		desc->dsc_sub_type = 0;
+		return;
+
+	case nod_add:
+	case nod_subtract:
+		make_desc(node->nod_arg[0], &desc1);
+		make_desc(node->nod_arg[1], &desc2);
+		dtype = MAX(make_dtype(desc1.dsc_dtype), make_dtype(desc2.dsc_dtype));
+		switch (dtype) {
+		case dtype_short:
+		case dtype_long:
+			desc->dsc_dtype = blr_long;
+			desc->dsc_length = sizeof(SLONG);
+			desc->dsc_scale = MIN(NUMERIC_SCALE(desc1), NUMERIC_SCALE(desc2));
+			desc->dsc_sub_type = 0;
+			return;
+
+		case dtype_timestamp:
+			if (node->nod_type == nod_add) {
+				desc->dsc_dtype = blr_timestamp;
+				desc->dsc_length = 8;
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				return;
+			}
+			break;
+
+		case dtype_sql_date:
+			if (node->nod_type == nod_add) {
+				desc->dsc_dtype = blr_sql_date;
+				desc->dsc_length = 4;
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				return;
+			}
+			break;
+
+		case dtype_sql_time:
+			if (node->nod_type == nod_add) {
+				desc->dsc_dtype = blr_sql_time;
+				desc->dsc_length = 4;
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				return;
+			}
+			break;
+		}
+		desc->dsc_dtype = blr_double;
+		desc->dsc_length = sizeof(double);
+		desc->dsc_scale = 0;
+		desc->dsc_sub_type = 0;
+		return;
+
+	case nod_multiply:
+		make_desc(node->nod_arg[0], &desc1);
+		make_desc(node->nod_arg[1], &desc2);
+		dtype = MAX(make_dtype(desc1.dsc_dtype), make_dtype(desc2.dsc_dtype));
+		if (dtype == dtype_short || dtype == dtype_long) {
+			desc->dsc_dtype = blr_long;
+			desc->dsc_length = sizeof(SLONG);
+			desc->dsc_sub_type = 0;
+			desc->dsc_scale = NUMERIC_SCALE(desc1) + NUMERIC_SCALE(desc2);
+			return;
+		}
+		desc->dsc_dtype = blr_double;
+		desc->dsc_length = sizeof(double);
+		desc->dsc_sub_type = 0;
+		desc->dsc_scale = 0;
+		return;
+
+	case nod_concatenate:
+		make_desc(node->nod_arg[0], &desc1);
+		make_desc(node->nod_arg[1], &desc2);
+		desc->dsc_dtype = blr_varying;
+		desc->dsc_sub_type = 0;
+		desc->dsc_scale = 0;
+		dtype = make_dtype(desc1.dsc_dtype);
+		if (dtype > dtype_any_text) {
+			desc1.dsc_length = string_length(dtype);
+			desc->dsc_ttype = ttype_ascii;
+		}
+		else
+			desc->dsc_ttype = desc1.dsc_ttype;
+		dtype = make_dtype(desc2.dsc_dtype);
+		if (dtype > dtype_any_text)
+			desc2.dsc_length = string_length(dtype);
+		desc->dsc_length = desc1.dsc_length + desc2.dsc_length;
+		return;
+
+	case nod_field:
+		field = (FLD) node->nod_arg[s_fld_field];
+		if (!field->fld_dtype)
+			get_field_desc(field);
+		desc->dsc_dtype = field->fld_dtype;
+		desc->dsc_length = field->fld_length;
+		desc->dsc_scale = field->fld_scale;
+		desc->dsc_sub_type = 0;
+		if (IS_DTYPE_ANY_TEXT(desc->dsc_dtype))
+			desc->dsc_ttype = field->fld_sub_type;
+		return;
+
+	case nod_literal:
+		constant = (CON) node->nod_arg[0];
+		desc->dsc_length = constant->con_desc.dsc_length;
+		desc->dsc_scale = constant->con_desc.dsc_scale;
+		desc->dsc_sub_type = 0;
+		/* Note: GDEF doesn't have any knowledge of alternate character
+		   sets (GDML is frozen) - so literal constants appearing
+		   in GDEF must be ttype_ascii.  Note they are not ttype_dynamic
+		   as we are defining data objects, which cannot be "typed"
+		   at runtime
+		 */
+		dtype = constant->con_desc.dsc_dtype;
+		switch (dtype) {
+		case dtype_short:
+			desc->dsc_dtype = blr_short;
+			break;
+		case dtype_long:
+			desc->dsc_dtype = blr_long;
+			break;
+		case dtype_quad:
+			desc->dsc_dtype = blr_quad;
+			break;
+		case dtype_real:
+			desc->dsc_dtype = blr_float;
+			break;
+		case dtype_double:
+			desc->dsc_dtype = blr_double;
+			break;
+		case dtype_text:
+			desc->dsc_dtype = blr_text;
+			desc->dsc_sub_type = ttype_ascii;
+			break;
+		case dtype_varying:
+			desc->dsc_dtype = blr_varying;
+			desc->dsc_sub_type = ttype_ascii;
+			break;
+		case dtype_cstring:
+			desc->dsc_dtype = blr_cstring;
+			desc->dsc_sub_type = ttype_ascii;
+			break;
+		case dtype_timestamp:
+			desc->dsc_dtype = blr_timestamp;
+			break;
+		case dtype_sql_date:
+			desc->dsc_dtype = blr_sql_date;
+			break;
+		case dtype_sql_time:
+			desc->dsc_dtype = blr_sql_time;
+			break;
+		case dtype_int64:
+			desc->dsc_dtype = blr_int64;
+			break;
+		case dtype_blob:
+			desc->dsc_dtype = blr_blob;
+			break;
+		default:
+			desc->dsc_dtype = blr_double;
+			break;
+		}
+		return;
+
+	case nod_function:
+		function = (FUNC) node->nod_arg[2];
+		arg = function->func_return;
+		desc->dsc_dtype = arg->funcarg_dtype;
+		desc->dsc_length = arg->funcarg_length;
+		desc->dsc_scale = arg->funcarg_scale;
+		desc->dsc_sub_type = 0;
+		if (IS_DTYPE_ANY_TEXT(desc->dsc_dtype))
+			desc->dsc_ttype = arg->funcarg_sub_type;
+		return;
+
+	case nod_fid:
+		DDL_err(287, NULL, NULL, NULL, NULL, NULL);	/* msg 287: Inappropriate self reference */
+		return;
+	default:
+		DDL_err(81, NULL, NULL, NULL, NULL, NULL);	/* msg 81: (EXE) make_desc: don't understand node type */
+		return;
+	}
+}
+
+
+static int make_dtype( USHORT blr_type)
+{
+/**************************************
+ *
+ *	m a k e _ d t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate from blr to internal data types.
+ *
+ **************************************/
+
+	switch (blr_type) {
+	case blr_short:
+		return dtype_short;
+	case blr_long:
+		return dtype_long;
+	case blr_quad:
+		return dtype_quad;
+	case blr_float:
+		return dtype_real;
+	case blr_double:
+		return dtype_double;
+	case blr_text:
+		return dtype_text;
+	case blr_cstring:
+		return dtype_cstring;
+	case blr_varying:
+		return dtype_varying;
+	case blr_timestamp:
+		return dtype_timestamp;
+	case blr_sql_date:
+		return dtype_sql_date;
+	case blr_sql_time:
+		return dtype_sql_time;
+	case blr_int64:
+		return dtype_int64;
+	}
+
+	if (blr_type == blr_blob)
+		return dtype_blob;
+
+	return dtype_double;
+}
+
+
+static void modify_field( FLD field)
+{
+/**************************************
+ *
+ *	m o d i f y _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change attributes of a local field.
+ *	The first group of attributes are ones
+ *	that should never be false.  The second
+ *	set also manipulate the missing flag so
+ *	if they came in null and weren't changed
+ *	they'll still be null
+ *
+ **************************************/
+	SYM name;
+	TEXT *p;
+	USHORT if_any;
+	REL relation;
+
+	relation = field->fld_relation;
+	name = field->fld_name;
+	if_any = FALSE;
+
+	FOR FIRST 1 X IN RDB$RELATION_FIELDS WITH 
+        X.RDB$FIELD_NAME EQ name->sym_string AND 
+        X.RDB$RELATION_NAME EQ relation->rel_name->sym_string 
+        MODIFY X USING 
+            if (field->fld_flags & fld_null_description)
+                X.RDB$DESCRIPTION.NULL = TRUE;
+	        if (field->fld_flags & fld_null_security_class)
+                X.RDB$SECURITY_CLASS.NULL = TRUE;
+            if (field->fld_flags & fld_null_edit_string)
+                X.RDB$EDIT_STRING.NULL = TRUE;
+            if (field->fld_flags & fld_null_query_name)
+                X.RDB$QUERY_NAME.NULL = TRUE;
+            if (field->fld_flags & fld_null_query_header)
+                X.RDB$QUERY_HEADER.NULL = TRUE;
+
+            if (field->fld_flags & fld_explicit_system)
+                X.RDB$SYSTEM_FLAG = field->fld_system;
+
+            if (field->fld_source)
+                MOVE_SYMBOL(field->fld_source, X.RDB$FIELD_SOURCE);
+            
+            if (field->fld_security_class) {
+                MOVE_SYMBOL(field->fld_security_class, X.RDB$SECURITY_CLASS);
+                X.RDB$SECURITY_CLASS.NULL = FALSE;
+            }
+            if ((field->fld_flags & fld_explicit_position) || field->fld_position) {
+                X.RDB$FIELD_POSITION = field->fld_position;
+                X.RDB$FIELD_POSITION.NULL = FALSE;
+            }
+            if (field->fld_description) {
+                store_text(field->fld_description, &X.RDB$DESCRIPTION);
+                X.RDB$DESCRIPTION.NULL = FALSE;
+            }
+            if (field->fld_query_name) {
+                MOVE_SYMBOL(field->fld_query_name, X.RDB$QUERY_NAME);
+                X.RDB$QUERY_NAME.NULL = FALSE;
+            }
+            if (field->fld_edit_string) {
+                MOVE_SYMBOL(field->fld_edit_string, X.RDB$EDIT_STRING);
+                X.RDB$EDIT_STRING.NULL = FALSE;
+            }
+            if (field->fld_query_header) {
+                store_query_header(field->fld_query_header, &X.RDB$QUERY_HEADER);
+                X.RDB$QUERY_HEADER.NULL = FALSE;
+            }
+
+        END_MODIFY 
+            if_any = TRUE;
+	END_FOR 
+    if (!if_any)
+		DDL_err(82, name->sym_string, NULL, NULL, NULL, NULL);	/* msg 82: field %s doesn't exist */
+}
+
+
+static void modify_global_field( FLD field)
+{
+/**************************************
+ *
+ *	m o d i f y _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change attributes of a global field.
+ *
+ **************************************/
+	SYM name;
+	TEXT *p;
+	USHORT if_any;
+
+	name = field->fld_name;
+	if_any = FALSE;
+
+	FOR FIRST 1 X IN RDB$FIELDS WITH X.RDB$FIELD_NAME EQ name->sym_string
+		MODIFY X USING 
+            if (field->fld_dtype) {
+                if ((X.RDB$FIELD_TYPE != blr_blob) && (field->fld_dtype != blr_blob)) {
+                    if ((check_range(field))) {
+                        X.RDB$FIELD_TYPE = (int) field->fld_dtype;
+                        X.RDB$FIELD_LENGTH = field->fld_length;
+                        X.RDB$FIELD_SCALE = field->fld_scale;
+                    }
+                }
+                else if (field->fld_dtype != X.RDB$FIELD_TYPE) 
+                    DDL_err(83, name->sym_name, NULL, NULL, NULL, NULL);
+                /* msg 83: Unauthorized attempt to change field %s to or from blob */
+            }
+	        if (field->fld_flags & fld_explicit_system)
+                X.RDB$SYSTEM_FLAG = field->fld_system;
+            
+            if (field->fld_flags & fld_null_description)
+                X.RDB$DESCRIPTION.NULL = TRUE;
+            
+            if (field->fld_flags & fld_null_missing_value)
+                X.RDB$MISSING_VALUE.NULL = TRUE;
+            
+            if (field->fld_flags & fld_null_query_name)
+                X.RDB$QUERY_NAME.NULL = TRUE;
+            
+            if (field->fld_flags & fld_null_query_header)
+                X.RDB$QUERY_HEADER.NULL = TRUE;
+            
+            if (field->fld_flags & fld_null_edit_string)
+                X.RDB$EDIT_STRING.NULL = TRUE;
+            
+            if (field->fld_flags & fld_null_validation) {
+                X.RDB$VALIDATION_BLR.NULL = TRUE;
+                X.RDB$VALIDATION_SOURCE.NULL = TRUE;
+            }
+            
+            if (field->fld_segment_length) {
+                X.RDB$SEGMENT_LENGTH = field->fld_segment_length;
+                X.RDB$SEGMENT_LENGTH.NULL = FALSE;
+            }
+            
+            if (field->fld_has_sub_type) {
+                X.RDB$FIELD_SUB_TYPE = field->fld_sub_type;
+                X.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+            }
+            
+            if (field->fld_missing) {
+                store_blr(field->fld_missing, &X.RDB$MISSING_VALUE, NULL);
+                X.RDB$MISSING_VALUE.NULL = FALSE;
+            }
+            if (field->fld_validation) {
+                store_blr(field->fld_validation, &X.RDB$VALIDATION_BLR, NULL);
+                store_text(field->fld_valid_src, &X.RDB$VALIDATION_SOURCE);
+                X.RDB$VALIDATION_BLR.NULL = FALSE;
+                X.RDB$VALIDATION_SOURCE.NULL = FALSE;
+            }
+            if (field->fld_description) {
+                store_text(field->fld_description, &X.RDB$DESCRIPTION);
+                X.RDB$DESCRIPTION.NULL = FALSE;
+            }
+            if (field->fld_query_name) {
+                MOVE_SYMBOL(field->fld_query_name, X.RDB$QUERY_NAME);
+                X.RDB$QUERY_NAME.NULL = FALSE;
+            }
+            if (field->fld_edit_string) {
+                MOVE_SYMBOL(field->fld_edit_string, X.RDB$EDIT_STRING);
+                X.RDB$EDIT_STRING.NULL = FALSE;
+            }
+            if (field->fld_query_header) {
+                store_query_header(field->fld_query_header, &X.RDB$QUERY_HEADER);
+                X.RDB$QUERY_HEADER.NULL = FALSE;
+            }
+        END_MODIFY 
+            if_any = TRUE;
+	END_FOR 
+    
+    if (!if_any)
+		DDL_err(84, name->sym_string, NULL, NULL, NULL, NULL);	/* msg 84: field %s doesn't exist */
+
+}
+
+
+static void modify_index( DUDLEY_IDX index)
+{
+/**************************************
+ *
+ *	m o d i f y _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify an index.
+ *
+ **************************************/
+	USHORT if_any;
+
+	if_any = FALSE;
+
+	FOR X IN RDB$INDICES WITH X.RDB$INDEX_NAME = index->idx_name->sym_string
+		MODIFY X USING 
+            if (index->idx_flags & IDX_active_flag) {
+                X.RDB$INDEX_INACTIVE = (index->idx_inactive) ? TRUE : FALSE;
+	            if (index->idx_flags & IDX_unique_flag)
+                    X.RDB$UNIQUE_FLAG = index->idx_unique;
+                if (index->idx_flags & IDX_type_flag) {
+                    X.RDB$INDEX_TYPE = index->idx_type;
+                    X.RDB$INDEX_TYPE.NULL = FALSE;
+                }
+                if (index->idx_flags & IDX_null_description)
+                    X.RDB$DESCRIPTION.NULL = TRUE;
+                if (index->idx_description) {
+                    store_text(index->idx_description, &X.RDB$DESCRIPTION);
+                    X.RDB$DESCRIPTION.NULL = FALSE;
+                }
+                if (index->idx_flags & IDX_statistics_flag)
+                    X.RDB$STATISTICS = -1.0;
+            }
+        END_MODIFY;
+        if_any = TRUE;
+    END_FOR;
+
+	if (!if_any)
+		DDL_err(85, index->idx_name->sym_string, NULL, NULL, NULL, NULL);	/* msg 85: index %s does not exist */
+}
+
+
+static void modify_relation( REL relation)
+{
+/**************************************
+ *
+ *	m o d i f y _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change the volitile attributes of a relation -
+ *	to wit, the description, security class, and
+ *	system flag.
+ *
+ **************************************/
+	SYM name;
+	TEXT *p;
+	USHORT if_any;
+
+	if (!relation->rel_flags & rel_marked_for_modify)
+		return;
+	name = relation->rel_name;
+	if_any = FALSE;
+
+	FOR FIRST 1 X IN RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ name->sym_string 
+        MODIFY X USING 
+            if (relation->rel_flags & rel_null_security_class) 
+                X.RDB$SECURITY_CLASS.NULL = TRUE;
+	        if (relation->rel_security_class) {
+                MOVE_SYMBOL(relation->rel_security_class, X.RDB$SECURITY_CLASS);
+                X.RDB$SECURITY_CLASS.NULL = FALSE;
+            }
+            if (relation->rel_flags & rel_null_description)
+                X.RDB$DESCRIPTION.NULL = TRUE;
+            if (relation->rel_description) {
+                store_text(relation->rel_description, &X.RDB$DESCRIPTION);
+                X.RDB$DESCRIPTION.NULL = FALSE;
+            }
+            if (relation->rel_flags & rel_explicit_system)
+                X.RDB$SYSTEM_FLAG = relation->rel_system;
+            if (relation->rel_filename) {
+                if (X.RDB$EXTERNAL_FILE.NULL)
+                    DDL_err(86, name->sym_string, NULL, NULL, NULL, NULL);	/* msg 86: relation %s is not external */
+                MOVE_SYMBOL(relation->rel_filename, X.RDB$EXTERNAL_FILE);
+            }
+	   END_MODIFY 
+       if_any = TRUE;
+	END_FOR 
+
+    if (!if_any)
+		DDL_err(87, name->sym_string, NULL, NULL, NULL, NULL);	/* msg 87: relation %s doesn't exist */
+}
+
+
+static void modify_trigger( TRG trigger)
+{
+/**************************************
+ *
+ *	m o d i f y _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	modify a trigger in rdb$triggers.
+ *
+ **************************************/
+	USHORT if_any;
+	REL relation;
+	TEXT buffer[32], *p, *q;
+
+	if_any = FALSE;
+
+	FOR FIRST 1 X IN RDB$TRIGGERS WITH
+		X.RDB$TRIGGER_NAME EQ trigger->trg_name->sym_string
+		MODIFY X USING 
+            if (relation = trigger->trg_relation) {
+                for (p = buffer, q = X.RDB$RELATION_NAME; *q && *q != ' ';)
+                    *p++ = *q++;
+                *p = 0;
+                if (strcmp(relation->rel_name->sym_string, buffer))
+                    DDL_err(88, trigger->trg_name->sym_string, NULL, NULL, NULL,
+                            NULL);
+                /* msg 88: Invalid attempt to assign trigger %s to a new relation */
+            } 
+            if (trigger->trg_mflag & trg_mflag_onoff)
+                X.RDB$TRIGGER_INACTIVE = trigger->trg_inactive;
+            if (trigger->trg_mflag & trg_mflag_type)
+                X.RDB$TRIGGER_TYPE = (SSHORT) trigger->trg_type;
+            if (trigger->trg_mflag & trg_mflag_seqnum)
+                X.RDB$TRIGGER_SEQUENCE = trigger->trg_sequence;
+
+            if (trigger->trg_source) {
+                X.RDB$TRIGGER_SOURCE.NULL = FALSE;
+                store_text(trigger->trg_source, &X.RDB$TRIGGER_SOURCE);
+            }
+            
+            if (trigger->trg_statement) {
+                X.RDB$TRIGGER_BLR.NULL = FALSE;
+                store_blr(trigger->trg_statement, &X.RDB$TRIGGER_BLR, NULL);
+            }
+            
+            if (trigger->trg_description) {
+                X.RDB$DESCRIPTION.NULL = FALSE;
+                store_text(trigger->trg_description, &X.RDB$DESCRIPTION);
+            }
+       END_MODIFY;
+       if_any = TRUE;
+	END_FOR;
+
+	if (!if_any)
+		DDL_err(89, trigger->trg_name->sym_string, NULL, NULL, NULL, NULL);	/* msg 89: Trigger %s doesn't exist */
+}
+
+
+static void modify_trigger_msg( TRGMSG trigmsg)
+{
+/**************************************
+ *
+ *	m o d i f y _ t r i g g e r _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify a trigger message.
+ *
+ **************************************/
+	USHORT if_any;
+
+	if_any = FALSE;
+
+	FOR FIRST 1 X IN RDB$TRIGGER_MESSAGES WITH
+		X.RDB$TRIGGER_NAME EQ trigmsg->trgmsg_trg_name->sym_string AND
+		X.RDB$MESSAGE_NUMBER = trigmsg->trgmsg_number;
+	    MODIFY X USING 
+            MOVE_SYMBOL(trigmsg->trgmsg_text, X.RDB$MESSAGE);
+	    END_MODIFY;
+        if_any = TRUE;
+	END_FOR;
+
+	if (!if_any)
+		add_trigger_msg(trigmsg);
+}
+
+
+static void modify_type( TYP fldtype)
+{
+/**************************************
+ *
+ *	m o d i f y _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify type value or description of a type for a field.
+ *
+ **************************************/
+	USHORT if_any;
+
+	if_any = FALSE;
+
+	FOR FIRST 1 X IN RDB$TYPES WITH
+		X.RDB$FIELD_NAME EQ fldtype->typ_field_name->sym_string AND
+		X.RDB$TYPE_NAME EQ fldtype->typ_name->sym_string;
+	    MODIFY X USING 
+            X.RDB$TYPE = fldtype->typ_type;
+            if (fldtype->typ_description) {
+                X.RDB$DESCRIPTION.NULL = FALSE;
+                store_text(fldtype->typ_description, &X.RDB$DESCRIPTION);
+            }
+        END_MODIFY;
+        if_any = TRUE;
+    END_FOR;
+
+	if (!if_any)
+		DDL_err(90, fldtype->typ_name->sym_string,
+				fldtype->typ_field_name->sym_string, NULL, NULL, NULL);
+	/* msg 90: Type %s for field %s doesn't exist */
+}
+
+
+static void move_symbol( SYM symbol, register SCHAR * field, SSHORT length)
+{
+/**************************************
+ *
+ *	m o v e _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a string from a symbol to a field.
+ *
+ **************************************/
+	register SCHAR *p;
+	register SSHORT l;
+
+	if (symbol) {
+		if ((l = symbol->sym_length) > length) {
+			DDL_err(296, symbol->sym_string, (TEXT *) length, NULL, NULL,
+					NULL);
+			/*msg 296: symbol %s is too long, truncating it to %ld characters */
+			DDL_errors--;
+			l = length;
+		}
+		p = symbol->sym_string;
+		while (l--)
+			*field++ = *p++;
+	}
+
+	*field = 0;
+}
+
+
+static void set_generator( NOD node)
+{
+/**************************************
+ *
+ *	s e t _ g e n e r a t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	if the user has write privs for
+ *	rdb$generators, get current value,
+ *	figure out the difference, and use
+ *	that as the increment for set.  give
+ *	it half a dozen tries in case someone
+ *	else is interfering.
+ *
+ **************************************/
+	int *req_handle1, *req_handle2;
+	USHORT prot_mask, i;
+	SLONG *number;
+	SLONG new;
+	SSHORT l;
+	struct str current_blr, new_blr;
+	SCHAR *blr;
+	SLONG gen_value;
+	CON constant;
+
+	prot_mask = get_prot_mask("RDB$GENERATORS", NULL);
+	if (!(prot_mask & SCL_write)) {
+		DDL_err(311, NULL, NULL, NULL, NULL, NULL);	/* msg 311: Set generator requires write privilege for RDB$GENERATORS. */
+		return;
+	}
+
+/* set up node to get the current value of the generator */
+
+	constant = (CON) node->nod_arg[0]->nod_arg[0];
+	number = (SLONG *) constant->con_data;
+	new = *number;
+	*number = 0;
+
+	current_blr.str_current = current_blr.str_start =
+		(SCHAR *) gds__alloc((SLONG) 1028);
+	current_blr.str_length = 1028;
+
+#ifdef DEBUG_GDS_ALLOC
+/* For V4.0 we don't care about Gdef specific memory leaks */
+	gds_alloc_flag_unfreed(current_blr.str_start);
+#endif
+
+	GENERATE_blr(&current_blr, node);
+	l = current_blr.str_current - current_blr.str_start;
+
+	req_handle1 = (int *) NULL_PTR;
+	blr = (SCHAR *) current_blr.str_start;
+	isc_compile_request2((SLONG *) 0, &DB, &req_handle1, l, blr);
+	isc_start_request((SLONG *) 0, &req_handle1, &gds__trans, 0);
+	isc_receive((SLONG *) 0, &req_handle1, 0, sizeof(gen_value), &gen_value,
+				0);
+	isc_release_request((SLONG *) 0, &req_handle1);
+
+/* the difference between output.current and new is the amount we
+   want to change the generator by */
+
+	*number = new - gen_value;
+	new_blr.str_current = new_blr.str_start =
+		(SCHAR *) gds__alloc((SLONG) 1028);
+	new_blr.str_length = 1028;
+
+#ifdef DEBUG_GDS_ALLOC
+/* For V4.0 we don't care about Gdef specific memory leaks */
+	gds_alloc_flag_unfreed(new_blr.str_start);
+#endif
+
+	GENERATE_blr(&new_blr, node);
+	l = new_blr.str_current - new_blr.str_start;
+
+	req_handle2 = (int *) NULL_PTR;
+	blr = (SCHAR *) new_blr.str_start;
+	isc_compile_request2((SLONG *) 0, &DB, &req_handle2, l, blr);
+	isc_start_request((SLONG *) 0, &req_handle2, &gds__trans, 0);
+	isc_receive((SLONG *) 0, &req_handle2, 0, sizeof(gen_value), &gen_value,
+				0);
+	isc_release_request((SLONG *) 0, &req_handle2);
+
+	for (i = 5; (gen_value != new) && --i;) {
+		*number = new - gen_value;
+		new_blr.str_current = new_blr.str_start;
+		new_blr.str_length = 1028;
+		GENERATE_blr(&new_blr, node);
+		l = new_blr.str_current - new_blr.str_start;
+
+		req_handle2 = (int *) NULL_PTR;
+		blr = (SCHAR *) new_blr.str_start;
+		isc_compile_request2((SLONG *) 0, &DB, &req_handle2, l, blr);
+		isc_start_request((SLONG *) 0, &req_handle2, &gds__trans, 0);
+		isc_receive((SLONG *) 0, &req_handle2, 0, sizeof(gen_value),
+					&gen_value, 0);
+		isc_release_request((SLONG *) 0, &req_handle2);
+	}
+
+	gds__free(current_blr.str_start);
+	gds__free(new_blr.str_start);
+}
+
+
+static void store_acl( SCL class, SLONG * blob_id)
+{
+/**************************************
+ *
+ *	s t o r e _ a c l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate and store an access control list.
+ *
+ **************************************/
+	TEXT buffer[4096], *p;
+	USHORT length;
+	STATUS status_vector[20];
+	void *blob;
+
+/* Generate access control list */
+
+	length = GENERATE_acl(class, buffer);
+
+	blob = create_blob(blob_id, 0, NULL_PTR);
+
+	if (gds__put_segment(status_vector, GDS_REF(blob), length, buffer)) {
+		DDL_db_error(status_vector, 92, NULL, NULL, NULL, NULL, NULL);	/* msg 92: gds__put_segment failed */
+		return;
+	}
+
+	close_blob(blob);
+}
+
+
+static void store_blr( NOD node, SLONG * blob_id, REL relation)
+{
+/**************************************
+ *
+ *	s t o r e _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate blr for an expression and store result in
+ *	a blob.
+ *
+ **************************************/
+	struct str blr;
+	USHORT length, base;
+	STATUS status_vector[20];
+	void *handle;
+
+	blr.str_current = blr.str_start = (SCHAR *) gds__alloc((SLONG) 4096);
+	blr.str_length = 4096;
+
+#ifdef DEBUG_GDS_ALLOC
+/* For V4.0 we don't care about Gdef specific memory leaks */
+	gds_alloc_flag_unfreed(blr.str_start);
+#endif
+
+	GENERATE_blr(&blr, node);
+#ifdef DEBUG
+	gds__print_blr(blr.str_start, 0, 0, 0);
+#endif
+	handle = create_blob(blob_id, 0, NULL_PTR);
+	length = blr.str_current - blr.str_start;
+
+	if (gds__put_segment(status_vector,
+						 GDS_REF(handle), length, GDS_VAL(blr.str_start))) {
+		DDL_db_error(status_vector, 93, NULL, NULL, NULL, NULL, NULL);	/* msg 93: gds__put_segment failed */
+		return;
+	}
+
+	close_blob(handle);
+}
+
+
+static void store_query_header( NOD node, SLONG * blob_id)
+{
+/**************************************
+ *
+ *	s t o r e _ q u e r y _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a query header.
+ *
+ **************************************/
+	NOD *ptr, *end;
+	SYM symbol;
+	STATUS status_vector[20];
+	void *blob;
+	USHORT bpb_length;
+	UCHAR bpb[20], *p;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+/* always create bpb since query header is a text blob */
+
+	p = bpb;
+	*p++ = gds__bpb_version1;
+	*p++ = gds__bpb_source_interp;
+	*p++ = 2;
+	*p++ = DDL_interp;
+	*p++ = DDL_interp >> 8;
+	bpb_length = p - bpb;
+#else
+	bpb_length = 0;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+	blob = create_blob(blob_id, bpb_length, bpb);
+
+	for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end; ptr++) {
+		symbol = (SYM) * ptr;
+		if (gds__put_segment(status_vector,
+							 GDS_REF(blob),
+							 symbol->sym_length,
+							 GDS_VAL(symbol->sym_string))) {
+			DDL_db_error(status_vector, 93, NULL, NULL, NULL, NULL, NULL);	/* msg 93: gds__put_segment failed */
+			return;
+		}
+	}
+
+	close_blob(blob);
+}
+
+
+static void store_range( FLD field)
+{
+/**************************************
+ *
+ *	s t o r e _ r a n g e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store the range in a blob.  Range was
+ *	already generated into a storable format
+ *	during parse.
+ *
+ **************************************/
+	SLONG *range;
+	USHORT n;
+	BASED ON RDB$FIELD_DIMENSIONS.RDB$FIELD_NAME name;
+
+	MOVE_SYMBOL(field->fld_name, name);
+
+	FOR X IN RDB$FIELD_DIMENSIONS WITH X.RDB$FIELD_NAME EQ name ERASE X;
+	END_FOR;
+
+	for (range = field->fld_ranges, n = 0; n < field->fld_dimension;
+		 range += 2, ++n) {
+		STORE X IN RDB$FIELD_DIMENSIONS 
+            strcpy(X.RDB$FIELD_NAME, name);
+	        X.RDB$DIMENSION = n;
+            X.RDB$LOWER_BOUND = range[0];
+            X.RDB$UPPER_BOUND = range[1];
+	    END_STORE;
+    }
+}
+
+
+static void store_text( TXT text, SLONG * blob_id)
+{
+/**************************************
+ *
+ *	s t o r e _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	store the text of a description or
+ *	BLR expression in a blob.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	void *blob;
+	USHORT bpb_length;
+	UCHAR bpb[20], *p;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+/* create bpb for text blob */
+
+	p = bpb;
+	*p++ = gds__bpb_version1;
+	*p++ = gds__bpb_source_interp;
+	*p++ = 2;
+	*p++ = DDL_interp;
+	*p++ = DDL_interp >> 8;
+	bpb_length = p - bpb;
+#else
+	bpb_length = 0;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+	blob = create_blob(blob_id, bpb_length, bpb);
+	LEX_put_text(blob, text);
+	close_blob(blob);
+}
+
+
+static void store_userpriv(USERPRIV upriv,
+						   TEXT * grantor, TEXT * priv, USRE usr, UPFE upf)
+{
+/**************************************
+ *
+ *	s t o r e _ u s e r p r i v
+ *
+ **************************************
+ *
+ * Functional description
+ *	store one of possibly many entries for
+ *	a single GRANT statement.
+ *
+ **************************************/
+
+	STORE X IN RDB$USER_PRIVILEGES USING 
+        X.RDB$FIELD_NAME.NULL = TRUE;
+
+	    MOVE_SYMBOL(usr->usre_name, X.RDB$USER);
+        strcpy(X.RDB$GRANTOR, grantor);
+        strcpy(X.RDB$PRIVILEGE, priv);
+        X.RDB$GRANT_OPTION =
+            (upriv->userpriv_flags & USERPRIV_grant) ? TRUE : FALSE;
+        MOVE_SYMBOL(upriv->userpriv_relation, X.RDB$RELATION_NAME);
+        X.RDB$USER_TYPE = obj_user;
+        X.RDB$OBJECT_TYPE = obj_relation;
+        if (upf) {
+            MOVE_SYMBOL(upf->upfe_fldname, X.RDB$FIELD_NAME);
+            X.RDB$FIELD_NAME.NULL = FALSE;
+        }
+	END_STORE;
+
+}
+
+
+static int string_length( SCHAR dtype)
+{
+/**************************************
+ *
+ *	s t r i n g _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Take a guess at how long a number
+ *	or date will be as a string
+ *
+ **************************************/
+
+	switch (dtype) {
+	case dtype_short:
+		return 6;
+	case dtype_long:
+		return 10;
+	case dtype_quad:
+		return 19;
+	case dtype_real:
+		return 10;
+	case dtype_double:
+		return 19;
+	case dtype_timestamp:
+		return 10;				/* really 24, kept at 10 for old apps */
+	case dtype_sql_date:
+	case dtype_sql_time:
+	case dtype_int64:
+	case dtype_blob:
+	default:
+		DDL_msg_put(94, NULL, NULL, NULL, NULL, NULL);	/* msg 94: (EXE) string_length: No defined length for blobs */
+		return 0;
+	}
+}
+
+
+static void wal_info(UCHAR * db_info_buffer,
+					 SLONG * log, SCHAR * cur_log, SLONG * part_offset)
+{
+/**************************************
+ *
+ *	w a l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extract wal name and offset from wal_info string.
+ *
+ **************************************/
+	UCHAR item;
+	UCHAR *d, *p;
+	SLONG length;
+
+	p = db_info_buffer;
+
+	while ((item = *p++) != gds__info_end) {
+		length = gds__vax_integer(p, 2);
+		p += 2;
+		switch (item) {
+		case gds__info_logfile:
+			*log = gds__vax_integer(p, length);
+			p += length;
+			break;
+
+		case gds__info_cur_logfile_name:
+			d = p;
+			p += length;
+			length = *d++;
+			memcpy(cur_log, d, length);
+			cur_log[length] = 0;
+			break;
+
+		case gds__info_cur_log_part_offset:
+			*part_offset = gds__vax_integer(p, length);
+			p += length;
+			break;
+
+		default:
+			;
+		}
+	}
+}
diff --git a/src/dudley/exe_proto.h b/src/dudley/exe_proto.h
new file mode 100644
index 0000000000..2d379e5c8f
--- /dev/null
+++ b/src/dudley/exe_proto.h
@@ -0,0 +1,35 @@
+/*
+ *	PROGRAM:	Data Definition Utility
+ *	MODULE:		exe_proto.h
+ *	DESCRIPTION:	Prototype header file for exe.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DUDLEY_EXE_PROTO_H_
+#define _DUDLEY_EXE_PROTO_H_
+
+extern SLONG EXE_check_db_version(DBB);
+extern void EXE_create_database(DBB);
+extern void EXE_drop_database(DBB);
+extern void EXE_execute(void);
+extern void EXE_fini(DBB);
+extern void EXE_modify_database(DBB);
+extern int EXE_relation(REL);
+
+#endif /* _DUDLEY_EXE_PROTO_H_ */
diff --git a/src/dudley/expan_proto.h b/src/dudley/expan_proto.h
new file mode 100644
index 0000000000..7462492088
--- /dev/null
+++ b/src/dudley/expan_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	Data Definition Utility
+ *	MODULE:		expan_proto.h
+ *	DESCRIPTION:	Prototype header file for expand.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DUDLEY_EXPAN_PROTO_H_
+#define _DUDLEY_EXPAN_PROTO_H_
+
+extern void EXP_actions(void);
+
+#endif /* _DUDLEY_EXPAN_PROTO_H_ */
diff --git a/src/dudley/expand.cpp b/src/dudley/expand.cpp
new file mode 100644
index 0000000000..cc59c2d5ec
--- /dev/null
+++ b/src/dudley/expand.cpp
@@ -0,0 +1,940 @@
+/*
+ *	PROGRAM:	JRD Data Definition Utility
+ *	MODULE:		expand.c
+ *	DESCRIPTION:	Expand field references to get context.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <setjmp.h>
+#include <string.h>
+#include "../dudley/ddl.h"
+#include "../include/jrd/gds.h"
+#include "../dudley/parse.h"
+#include "../dudley/ddl_proto.h"
+#include "../dudley/expan_proto.h"
+#include "../dudley/hsh_proto.h"
+#include "../dudley/parse_proto.h"
+#include "../jrd/gds_proto.h"
+
+static void expand_action(ACT);
+static void expand_error(USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+static void expand_field(FLD);
+static void expand_global_field(FLD);
+static void expand_index(ACT);
+static void expand_relation(REL);
+static void expand_trigger(TRG);
+static FLD field_context(NOD, LLS, CTX *);
+static FLD field_search(NOD, LLS, CTX *);
+static CTX lookup_context(SYM, LLS);
+static FLD lookup_field(FLD);
+static FLD lookup_global_field(FLD);
+static REL lookup_relation(REL);
+static TRG lookup_trigger(TRG);
+static CTX make_context(TEXT *, REL, USHORT);
+static NOD resolve(NOD, LLS, LLS);
+static void resolve_rse(NOD, LLS *);
+
+static SSHORT context_id;
+static GDS__QUAD null_blob;
+static LLS request_context;
+static jmp_buf exp_env;
+
+static TEXT alloc_info[] = { gds__info_allocation, gds__info_end };
+
+#define CMP_SYMBOL(sym1, sym2) strcmp (sym1->sym_string, sym2->sym_string)
+#define MOVE_SYMBOL(symbol, field) move_symbol (symbol, field, sizeof (field))
+
+
+void EXP_actions(void)
+{
+/**************************************
+ *
+ *	E X P _ a c t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand the output of the parser.
+ *	Look for field references and put
+ *	them in appropriate context.
+ *   
+ **************************************/
+	ACT action, temp, stack;
+
+	if (!DDL_actions)
+		return;
+
+	for (action = DDL_actions; action; action = action->act_next)
+		if (!(action->act_flags & ACT_ignore))
+			expand_action(action);
+}
+
+
+static void expand_action( ACT action)
+{
+/**************************************
+ *
+ *	e x p a n d _ a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate an error message.
+ *
+ **************************************/
+
+/* Set up an environment to catch syntax errors.  If one occurs, scan looking
+   for semi-colon to continue processing. */
+
+	if (setjmp(exp_env))
+		return;
+
+	DDL_line = action->act_line;
+
+	switch (action->act_type) {
+	case act_a_field:
+		expand_field(action->act_object);
+		break;
+
+	case act_m_field:
+	case act_d_field:
+		lookup_field(action->act_object);
+		break;
+
+	case act_d_filter:
+/*	lookup_filter (action->act_object);
+*/ break;
+
+	case act_a_function:
+	case act_a_function_arg:
+		break;
+
+	case act_d_function:
+/*	lookup_function (action->act_object);
+*/ break;
+
+	case act_a_gfield:
+		expand_global_field(action->act_object);
+		break;
+
+	case act_m_gfield:
+		lookup_global_field(action->act_object);
+		expand_global_field(action->act_object);
+		break;
+
+	case act_d_gfield:
+		lookup_global_field(action->act_object);
+		break;
+
+	case act_a_index:
+		expand_index(action->act_object);
+		break;
+
+	case act_m_relation:
+		lookup_relation(action->act_object);
+	case act_a_relation:
+		expand_relation(action->act_object);
+		break;
+
+	case act_d_relation:
+		lookup_relation(action->act_object);
+		break;
+
+	case act_d_trigger:
+		lookup_trigger(action->act_object);
+		break;
+
+	case act_m_trigger:
+		lookup_trigger(action->act_object);
+
+	case act_a_trigger:
+		expand_trigger(action->act_object);
+		break;
+
+	case act_c_database:
+	case act_m_database:
+	case act_a_filter:
+	case act_m_index:
+	case act_d_index:
+	case act_a_security:
+	case act_d_security:
+	case act_a_trigger_msg:
+	case act_m_trigger_msg:
+	case act_d_trigger_msg:
+	case act_a_type:
+	case act_m_type:
+	case act_d_type:
+	case act_grant:
+	case act_revoke:
+	case act_a_shadow:
+	case act_d_shadow:
+	case act_a_generator:
+	case act_s_generator:
+		break;
+
+	default:
+		DDL_msg_put(97, NULL, NULL, NULL, NULL, NULL);	/* msg 97: object can not be resolved */
+	}
+	return;
+}
+
+
+static void expand_error(
+						 USHORT number,
+						 TEXT * arg1,
+						 TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	e x p a n d _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate an error message.
+ *
+ **************************************/
+
+	DDL_err(number, arg1, arg2, arg3, arg4, arg5);
+	longjmp(exp_env, TRUE);
+}
+
+
+static void expand_field( FLD field)
+{
+/**************************************
+ *
+ *	e x p a n d _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a field definition, resolving references
+ *	to its global field and other fields.
+ *
+ **************************************/
+	SYM name;
+
+	if (!field->fld_source) {
+		name = field->fld_name;
+		if (!(field->fld_source = HSH_typed_lookup(name->sym_string,
+												   name->sym_length,
+												   SYM_global)))
+				expand_error(98, name->sym_string, 0, 0, 0, 0);	/* msg 98: Global field %s is not defined */
+	}
+
+	if (!field->fld_source_field)
+		field->fld_source_field = (FLD) field->fld_source->sym_object;
+}
+
+
+static void expand_global_field( FLD field)
+{
+/**************************************
+ *
+ *	e x p a n d _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a global field definition, resolving references
+ *	to other fields and stuff. Mark the default context
+ *	with this field so we can identify ourselves if we
+ *	find ourselves in a computation or validation.
+ *
+ **************************************/
+	CTX context;
+
+	if (!request_context || !(context = lookup_context(0, request_context))) {
+		context = (CTX) DDL_alloc(CTX_LEN);
+		LLS_PUSH(context, &request_context);
+	}
+
+	context->ctx_field = field;
+
+	field->fld_computed = resolve(field->fld_computed, request_context, 0);
+	field->fld_validation =
+		resolve(field->fld_validation, request_context, 0);
+
+	context->ctx_field = 0;
+}
+
+
+static void expand_index( ACT action)
+{
+/**************************************
+ *
+ *	e x p a n d _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand an index definition, resolving references
+ *	to other fields.
+ *
+ **************************************/
+
+	request_context = NULL;
+}
+
+
+static void expand_relation( REL relation)
+{
+/**************************************
+ *
+ *	e x p a n d _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a relation definition, resolving references
+ *	to fields and contexts.
+ *
+ **************************************/
+	LLS contexts, stack;
+	CTX my_context, context;
+	NOD rse;
+
+	context_id = 0;
+	contexts = NULL;
+	request_context = NULL;
+
+	if (!relation->rel_rse)
+		LLS_PUSH(make_context(NULL, relation, context_id++),
+				 &request_context);
+	else {
+		rse = relation->rel_rse;
+		contexts = (LLS) rse->nod_arg[s_rse_contexts];
+		my_context = lookup_context(NULL, contexts);
+		my_context->ctx_view_rse = TRUE;
+
+		/* drop view context from context stack & build the request stack */
+
+		for (stack = NULL; contexts; contexts = contexts->lls_next)
+			LLS_PUSH(contexts->lls_object, &stack);
+
+		while (stack) {
+			context = (CTX) LLS_POP(&stack);
+			if (!context->ctx_view_rse)
+				LLS_PUSH(context, &request_context);
+		}
+		LLS_PUSH(my_context, &contexts);
+		resolve_rse(relation->rel_rse, &contexts);
+
+		/* Put view context back on stack for global field resolution to follow */
+
+		LLS_PUSH(my_context, &request_context);
+		my_context->ctx_view_rse = FALSE;
+	}
+}
+
+
+static void expand_trigger( TRG trigger)
+{
+/**************************************
+ *
+ *	e x p a n d _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a trigger definition, resolving references
+ *	to fields and contexts.
+ *
+ **************************************/
+	LLS contexts, update;
+	CTX old, new;
+	REL relation;
+	USHORT old_id;
+
+	context_id = 2;
+	old = new = NULL;
+	request_context = contexts = update = NULL;
+
+	relation = trigger->trg_relation;
+
+	if ((trigger->trg_type != trg_store)
+		&& (trigger->trg_type != trg_post_store)) {
+		if (!old)
+			old = make_context("OLD", relation, 0);
+		LLS_PUSH(old, &contexts);
+	}
+
+	if ((trigger->trg_type != trg_erase)
+		&& (trigger->trg_type != trg_pre_erase)) {
+		if (!new)
+			new = make_context("NEW", relation, 1);
+		LLS_PUSH(new, &contexts);
+		LLS_PUSH(new, &update);
+	}
+
+	resolve(trigger->trg_statement, contexts, update);
+	context_id = 0;
+}
+
+
+static FLD field_context( NOD node, LLS contexts, CTX * output_context)
+{
+/**************************************
+ *
+ *	f i e l d _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup a field reference, guessing the
+ *	context.  Since by now all field references 
+ *	ought to be entered in the hash table, this is
+ *	pretty easy.  We may be looking up a global
+ *	field reference, in which case the context
+ *	relation will be null. 
+ *
+ *
+ **************************************/
+	FLD field;
+	CTX context;
+	SYM name, symbol;
+
+/* If the field is unqualified, resolve it to the default context */
+
+	if (node->nod_count == 1) {
+		context = lookup_context(0, contexts);
+		name = (SYM) node->nod_arg[0];
+	}
+	else if (node->nod_count == 2) {
+		context = lookup_context(node->nod_arg[0], contexts);
+		name = (SYM) node->nod_arg[1];
+	}
+	else
+		return NULL;
+
+	if (!context)
+		return NULL;
+
+	*output_context = context;
+
+	symbol = HSH_lookup(name->sym_string, name->sym_length);
+
+	for (; symbol; symbol = symbol->sym_homonym) {
+		if (context->ctx_relation) {
+			if (symbol->sym_type == SYM_field) {
+				field = (FLD) symbol->sym_object;
+				if (field->fld_relation == context->ctx_relation)
+					return field;
+			}
+		}
+		else if (symbol->sym_type == SYM_global)
+			return (FLD) symbol->sym_object;
+	}
+
+	if (context->ctx_relation)
+		expand_error(99, name->sym_string,
+					 context->ctx_relation->rel_name->sym_string, 0, 0, 0);
+	/* msg 99: field %s doesn't exist in relation %s */
+	else
+		expand_error(100, name->sym_string, 0, 0, 0, 0);
+	/* msg 100: field %s doesn't exist */
+
+	return NULL;
+}
+
+
+static FLD field_search( NOD node, LLS contexts, CTX * output_context)
+{
+/**************************************
+ *
+ *	f i e l d _ s e a r c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	We have, or believe we have, a field
+ *	reference that has to be resolved
+ *	iteratively.  The context indicated is
+ *	the current context.  Get to there, then
+ *	work backward.
+ * 
+ **************************************/
+	FLD field;
+	CTX context, old_context;
+	SYM name, symbol, ctx_name;
+
+	name = (SYM) node->nod_arg[1];
+	symbol = HSH_lookup(name->sym_string, name->sym_length);
+	ctx_name = (SYM) node->nod_arg[0];
+
+	if (symbol) {
+		/* wander down to the old context level */
+		for (; contexts; contexts = contexts->lls_next) {
+			old_context = (CTX) contexts->lls_object;
+			if ((name = old_context->ctx_name) &&
+				!strcmp(ctx_name->sym_string, name->sym_string))
+				break;
+		}
+
+		name = symbol;
+		for (contexts = contexts->lls_next; contexts;
+			 contexts = contexts->lls_next) {
+			context = (CTX) contexts->lls_object;
+			if (context->ctx_relation && !context->ctx_view_rse) {
+				*output_context = context;
+				for (symbol = name; symbol; symbol = symbol->sym_homonym) {
+					if (symbol->sym_type == SYM_field) {
+						field = (FLD) symbol->sym_object;
+						if (field->fld_relation == context->ctx_relation)
+							return field;
+					}
+				}
+			}
+		}
+	}
+
+	expand_error(101, name->sym_string, 0, 0, 0, 0);	/* msg 101: field %s can't be resolved */
+	return NULL;
+}
+
+
+static CTX lookup_context( SYM symbol, LLS contexts)
+{
+/**************************************
+ *
+ *	l o o k u p _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Search the context stack.  If a context name is given, consider
+ *	only named contexts; otherwise return the first unnamed context.
+ *	In either case, if nothing matches, return NULL.
+ *
+ **************************************/
+	CTX context;
+	SYM name;
+
+/* If no name is given, look for a nameless one. */
+
+	if (!symbol) {
+		for (; contexts; contexts = contexts->lls_next) {
+			context = (CTX) contexts->lls_object;
+			if (!context->ctx_name && !context->ctx_view_rse)
+				return context;
+		}
+		return NULL;
+	}
+
+/* Other search by name */
+
+	for (; contexts; contexts = contexts->lls_next) {
+		context = (CTX) contexts->lls_object;
+		if ((name = context->ctx_name) &&
+			!strcmp(name->sym_string, symbol->sym_string)) return context;
+	}
+
+	return NULL;
+}
+
+
+static FLD lookup_field( FLD old_field)
+{
+/**************************************
+ *
+ *	l o o k u p _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup a field reference, from a modify or
+ *	delete field statement, and make sure we
+ *	found the thing originally.
+ *	context.  Since by now all field references 
+ *	ought to be entered in the hash table, this is
+ *	pretty easy.
+ *
+ **************************************/
+	REL relation;
+	SYM symbol, name;
+	FLD field;
+
+	if (old_field->fld_source)
+		lookup_global_field(old_field);
+
+	name = old_field->fld_name;
+	relation = old_field->fld_relation;
+
+	symbol = HSH_lookup(name->sym_string, name->sym_length);
+
+	for (; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_field) {
+			field = (FLD) symbol->sym_object;
+			if (field->fld_relation == relation)
+				return field;
+		}
+
+	expand_error(102, name->sym_string, relation->rel_name->sym_string, 0, 0,
+				 0);
+	/* msg 102: field %s isn't defined in relation %s */
+
+	return NULL;
+}
+
+
+static FLD lookup_global_field( FLD field)
+{
+/**************************************
+ *
+ *	l o o k u p _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SYM symbol, name;
+
+/* Find symbol */
+
+	name = (field->fld_source) ? field->fld_source : field->fld_name;
+	if (symbol =
+		HSH_typed_lookup(name->sym_string, name->sym_length,
+						 SYM_global)) return (FLD) symbol->sym_object;
+
+	expand_error(103, name->sym_string, 0, 0, 0, 0);	/* msg 103: global field %s isn't defined */
+
+	return NULL;
+}
+
+
+static REL lookup_relation( REL relation)
+{
+/**************************************
+ *
+ *	l o o k u p _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SYM symbol, name;
+
+/* Find symbol */
+
+	name = (relation->rel_name);
+	if (
+		(symbol =
+		 HSH_typed_lookup(name->sym_string, name->sym_length, SYM_relation))
+		&& symbol->sym_object) return (REL) symbol->sym_object;
+
+	expand_error(104, name->sym_string, 0, 0, 0, 0);	/* msg 104: relation %s isn't defined */
+
+	return NULL;
+}
+
+
+static TRG lookup_trigger( TRG trigger)
+{
+/**************************************
+ *
+ *	l o o k u p _ t r i g g e r 
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SYM symbol, name;
+
+/* Find symbol */
+
+	name = (trigger->trg_name);
+	if (symbol =
+		HSH_typed_lookup(name->sym_string, name->sym_length,
+						 SYM_trigger)) return (TRG) symbol->sym_object;
+
+	expand_error(105, name->sym_string, 0, 0, 0, 0);	/* msg 105: trigger %s isn't defined */
+
+	return NULL;
+}
+
+
+static CTX make_context( TEXT * string, REL relation, USHORT id)
+{
+/**************************************
+ *
+ *	m a k e _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make context for trigger.
+ *
+ **************************************/
+	CTX context;
+	SYM symbol;
+
+	context = (CTX) DDL_alloc(CTX_LEN);
+	context->ctx_context_id = id;
+	context->ctx_relation = relation;
+
+	if (string) {
+		context->ctx_name = symbol = (SYM) DDL_alloc(SYM_LEN);
+		symbol->sym_object = context;
+		symbol->sym_string = string;
+		symbol->sym_length = strlen(string);
+		symbol->sym_type = SYM_context;
+	}
+
+	return context;
+}
+
+
+static NOD resolve( NOD node, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	r e s o l v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Resolve field names in an expression.  This is called after
+ *	an expression has been parsed and after the appropriate context
+ *	variables have been entered in the hash table.  If an unqualified
+ *	field is to be resolved to a known relation, a relation block
+ *	is passed in.
+ *
+ **************************************/
+	NOD *arg, *end, field, sub;
+	SYM symbol, name;
+	FLD fld;
+	CTX context, old_context;
+	TEXT name_string[65], *p, *q;
+
+	if (!node)
+		return NULL;
+	arg = node->nod_arg;
+	end = arg + node->nod_count;
+
+	switch (node->nod_type) {
+	case nod_field_name:
+	case nod_over:
+		break;
+
+	case nod_rse:
+		expand_error(106, 0, 0, 0, 0, 0);	/* msg 106: bugcheck */
+		return node;
+
+	case nod_field:
+	case nod_literal:
+		return node;
+
+	case nod_count:
+	case nod_max:
+	case nod_min:
+	case nod_total:
+	case nod_average:
+	case nod_from:
+		if (sub = node->nod_arg[s_stt_default])
+			node->nod_arg[s_stt_default] = resolve(sub, right, 0);
+		resolve_rse(node->nod_arg[s_stt_rse], &right);
+		if (node->nod_arg[s_stt_value])
+			node->nod_arg[s_stt_value] =
+				resolve(node->nod_arg[s_stt_value], right, 0);
+		return node;
+
+	case nod_unique:
+	case nod_any:
+		resolve_rse(node->nod_arg[s_stt_rse], &right);
+		return node;
+
+	case nod_for:
+		resolve_rse(node->nod_arg[s_for_rse], &right);
+		resolve(node->nod_arg[s_for_action], right, left);
+		return node;
+
+	case nod_store:
+		context = (CTX) node->nod_arg[s_store_rel];
+		context->ctx_context_id = ++context_id;
+		name = context->ctx_relation->rel_name;
+		if (!HSH_typed_lookup
+			(name->sym_string, name->sym_length,
+			 SYM_relation)) expand_error(107, name->sym_string, 0, 0, 0, 0);	/* msg 107: relation %s is not defined */
+		LLS_PUSH(context, &left);
+		sub = SYNTAX_NODE(nod_context, 1);
+		sub->nod_arg[0] = (NOD) context;
+		node->nod_arg[s_store_rel] = sub;
+		resolve(node->nod_arg[s_store_action], right, left);
+		return node;
+
+	case nod_erase:
+		symbol = (SYM) node->nod_arg[0];
+		if (!(node->nod_arg[0] = (NOD) lookup_context(symbol, right)))
+			expand_error(108, symbol->sym_string, 0, 0, 0, 0);	/* msg 108: context %s is not defined  */
+		return node;
+
+	case nod_modify:
+		symbol = (SYM) node->nod_arg[s_mod_old_ctx];
+		if (!(old_context = lookup_context(symbol, right)))
+			expand_error(108, symbol->sym_string, 0, 0, 0, 0);	/* msg 108: context %s is not defined */
+		node->nod_arg[s_mod_old_ctx] = (NOD) old_context;
+		context = (CTX) DDL_alloc(CTX_LEN);
+		node->nod_arg[s_mod_new_ctx] = (NOD) context;
+		context->ctx_name = symbol;
+		context->ctx_context_id = ++context_id;
+		context->ctx_relation = old_context->ctx_relation;
+		LLS_PUSH(context, &left);
+		node->nod_arg[s_mod_action] =
+			resolve(node->nod_arg[s_mod_action], right, left);
+		return node;
+
+	case nod_index:
+		sub = resolve(node->nod_arg[1], right, left);
+		field = resolve(node->nod_arg[0], right, left);
+		field->nod_arg[s_fld_subs] = sub;
+		return field;
+
+	case nod_assignment:
+		node->nod_arg[1] = resolve(node->nod_arg[1], left, 0);
+		node->nod_arg[0] = resolve(node->nod_arg[0], right, 0);
+		return node;
+
+	case nod_post:
+		node->nod_arg[0] = resolve(node->nod_arg[0], right, 0);
+		return node;
+
+	default:
+		for (; arg < end; arg++)
+			*arg = resolve(*arg, right, left);
+		return node;
+	}
+
+/* We've dropped thru to resolve a field name node.  If we can find it,
+   make up a field node, otherwise generate an error.  We may be looking
+   for either a local or a global field, which is known by whether the
+   context has a relation or not.  Do something reasonable in either
+   case */
+
+	switch (node->nod_type) {
+	case nod_field_name:
+		fld = field_context(node, right, &context);
+		break;
+
+	case nod_over:
+		fld = field_search(node, right, &context);
+		break;
+	}
+
+	if (fld) {
+		if (context->ctx_field &&
+			((!context->ctx_relation && fld == context->ctx_field) ||
+			 (context->ctx_relation && fld->fld_source &&
+			  !(strcmp
+				(fld->fld_source->sym_string,
+				 context->ctx_field->fld_name->
+				 sym_string))))) return SYNTAX_NODE(nod_fid, 0);
+		field = SYNTAX_NODE(nod_field, s_fld_count);
+		field->nod_arg[s_fld_name] = node;
+		field->nod_arg[s_fld_field] = (NOD) fld;
+		field->nod_arg[s_fld_context] = (NOD) context;
+		return field;
+	}
+
+	p = name_string;
+	for (; arg < end; arg++) {
+		if (symbol = (SYM) * arg) {
+			q = symbol->sym_string;
+			while (*q)
+				*p++ = *q++;
+			*p++ = '.';
+		}
+	}
+
+	p[-1] = 0;
+	expand_error(109, name_string, 0, 0, 0, 0);	/* msg 109:  Can't resolve field \"%s\" */
+
+	return node;
+}
+
+
+static void resolve_rse( NOD rse, LLS * stack)
+{
+/**************************************
+ *
+ *	r e s o l v e _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Resolve record selection expression, augmenting 
+ *	context stack.  At the same time, put a context
+ *	node in front of every context and build a list
+ *	out of the whole thing;
+ *
+ **************************************/
+	NOD sub, *arg, *end;
+	LLS contexts, temp;
+	CTX context;
+	SYM name, symbol;
+
+/* Handle FIRST <n> clause in original context */
+
+	if (sub = rse->nod_arg[s_rse_first])
+		rse->nod_arg[s_rse_first] = resolve(sub, *stack, 0);
+
+	contexts = (LLS) rse->nod_arg[s_rse_contexts];
+
+	for (temp = NULL; contexts;)
+		LLS_PUSH(LLS_POP(&contexts), &temp);
+
+	for (contexts = temp; contexts; contexts = contexts->lls_next) {
+		context = (CTX) contexts->lls_object;
+		name = context->ctx_relation->rel_name;
+		if (!
+			(symbol =
+			 HSH_typed_lookup(name->sym_string, name->sym_length,
+							  SYM_relation))
+|| !symbol->sym_object) expand_error(110, name->sym_string, 0, 0, 0, 0);	/* msg 110: relation %s is not defined */
+		else
+			context->ctx_relation = (REL) symbol->sym_object;
+		LLS_PUSH(context, stack);
+	}
+
+	if (sub = rse->nod_arg[s_rse_boolean])
+		rse->nod_arg[s_rse_boolean] = resolve(sub, *stack, 0);
+
+	if (sub = rse->nod_arg[s_rse_sort])
+		for (arg = sub->nod_arg, end = arg + sub->nod_count; arg < end;
+			 arg += 2) *arg = resolve(*arg, *stack, 0);
+
+	if (sub = rse->nod_arg[s_rse_reduced])
+		for (arg = sub->nod_arg, end = arg + sub->nod_count; arg < end;
+			 arg += 2) *arg = resolve(*arg, *stack, 0);
+
+	while (temp) {
+		context = (CTX) LLS_POP(&temp);
+		if (!context->ctx_view_rse) {
+			context->ctx_context_id = ++context_id;
+			sub = SYNTAX_NODE(nod_context, 1);
+			sub->nod_arg[0] = (NOD) context;
+			LLS_PUSH(sub, &contexts);
+		}
+	}
+
+	rse->nod_arg[s_rse_contexts] = PARSE_make_list(contexts);
+}
diff --git a/src/dudley/expr.cpp b/src/dudley/expr.cpp
new file mode 100644
index 0000000000..25eb5e9163
--- /dev/null
+++ b/src/dudley/expr.cpp
@@ -0,0 +1,1156 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		expr.c
+ *	DESCRIPTION:	Expression parser
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <setjmp.h>
+
+#include "../include/jrd/gds.h"
+#include "../dudley/ddl.h"
+#include "../dudley/parse.h"
+#include "../jrd/acl.h"
+#include "../jrd/intl.h"
+#include "../dudley/ddl_proto.h"
+#include "../dudley/expr_proto.h"
+#include "../dudley/lex_proto.h"
+#include "../dudley/parse_proto.h"
+
+extern jmp_buf parse_env;
+
+static CON make_numeric_constant(TEXT *, USHORT);
+static NOD parse_add(USHORT *, USHORT *);
+static NOD parse_and(USHORT *);
+static NOD parse_field(void);
+static NOD parse_from(USHORT *, USHORT *);
+static NOD parse_function(void);
+static NOD parse_gen_id(void);
+static CON parse_literal(void);
+static int parse_matching_paren(void);
+static NOD parse_multiply(USHORT *, USHORT *);
+static NOD parse_not(USHORT *);
+static NOD parse_primitive_value(USHORT *, USHORT *);
+static CTX parse_relation(void);
+static NOD parse_relational(USHORT *);
+static NOD parse_sort(void);
+static NOD parse_statistical(void);
+static int parse_terminating_parens(USHORT *, USHORT *);
+
+static struct nod_types {
+	enum kwwords nod_t_keyword;
+	enum nod_t nod_t_node;
+} statisticals[] = {
+	KW_MAX, nod_max,
+		KW_MIN, nod_min,
+		KW_COUNT, nod_count, KW_AVERAGE, nod_average, KW_TOTAL, nod_total};
+
+static enum nod_t relationals[] = {
+	nod_eql, nod_neq, nod_leq, nod_lss, nod_gtr, nod_geq, nod_containing,
+	nod_starts, nod_missing, nod_between, nod_sleuth, nod_matches,
+	nod_and, nod_or, nod_not, nod_any, nod_unique, (enum nod_t) 0
+};
+
+
+NOD EXPR_boolean(USHORT * paren_count)
+{
+/**************************************
+ *
+ *	E X P R _ b o o l e a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a general boolean expression.  By precedence, handle an OR
+ *	here.
+ *
+ **************************************/
+	NOD expr, node;
+	USHORT local_count;
+
+	if (!paren_count) {
+		local_count = 0;
+		paren_count = &local_count;
+	}
+
+	expr = parse_and(paren_count);
+
+	if (!MATCH(KW_OR)) {
+		parse_terminating_parens(paren_count, &local_count);
+		return expr;
+	}
+
+	node = SYNTAX_NODE(nod_or, 2);
+	node->nod_arg[0] = expr;
+	node->nod_arg[1] = EXPR_boolean(paren_count);
+	parse_terminating_parens(paren_count, &local_count);
+
+	return node;
+}
+
+
+NOD EXPR_rse(USHORT view_flag)
+{
+/**************************************
+ *
+ *	E X P R _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a record selection expression.
+ *
+ **************************************/
+	NOD node, boolean, field_name, a_boolean, temp;
+	LLS stack, field_stack;
+	CTX context;
+	SYM field_sym;
+
+	node = SYNTAX_NODE(nod_rse, s_rse_count);
+	stack = NULL;
+	LEX_real();
+
+	if (MATCH(KW_ALL))
+		LEX_real();
+
+	if (MATCH(KW_FIRST))
+		node->nod_arg[s_rse_first] = EXPR_value(0, 0);
+
+	while (TRUE) {
+		LLS_PUSH(parse_relation(), &stack);
+		if (MATCH(KW_OVER)) {
+			for (;;) {
+				if (!stack->lls_next) {
+					PARSE_error(234, NULL, NULL);	/* msg 234: OVER can only be used in CROSS expressions */
+				}
+				boolean = SYNTAX_NODE(nod_eql, 2);
+				field_sym = PARSE_symbol(tok_ident);
+				field_name = SYNTAX_NODE(nod_field_name, 2);
+				context = (CTX) stack->lls_object;
+				field_name->nod_arg[0] = (NOD) context->ctx_name;
+				field_name->nod_arg[1] = (NOD) field_sym;
+				boolean->nod_arg[0] = field_name;
+				field_name = SYNTAX_NODE(nod_over, 2);
+				field_name->nod_arg[0] = (NOD) context->ctx_name;
+				field_name->nod_arg[1] = (NOD) field_sym;
+				boolean->nod_arg[1] = field_name;
+				if (node->nod_arg[s_rse_boolean]) {
+					a_boolean = SYNTAX_NODE(nod_and, 2);
+					a_boolean->nod_arg[0] = boolean;
+					a_boolean->nod_arg[1] = node->nod_arg[s_rse_boolean];
+					node->nod_arg[s_rse_boolean] = a_boolean;
+				}
+				else
+					node->nod_arg[s_rse_boolean] = boolean;
+				if (!MATCH(KW_COMMA))
+					break;
+			}
+		}
+		if (!MATCH(KW_CROSS))
+			break;
+	}
+
+	node->nod_arg[s_rse_contexts] = (NOD) stack;
+
+/* Pick up various other clauses */
+
+	if (MATCH(KW_WITH))
+		if (boolean = EXPR_boolean(0)) {
+			if (node->nod_arg[s_rse_boolean]) {
+				a_boolean = SYNTAX_NODE(nod_and, 2);
+				a_boolean->nod_arg[0] = boolean;
+				a_boolean->nod_arg[1] = node->nod_arg[s_rse_boolean];
+				node->nod_arg[s_rse_boolean] = a_boolean;
+			}
+			else
+				node->nod_arg[s_rse_boolean] = boolean;
+		}
+	if (MATCH(KW_SORTED)) {
+		if (view_flag)
+			PARSE_error(319, NULL, NULL);	/* msg 234: Unexpected sort clause */
+		MATCH(KW_BY);
+		node->nod_arg[s_rse_sort] = parse_sort();
+	}
+
+	if (MATCH(KW_REDUCED)) {
+		MATCH(KW_TO);
+		node->nod_arg[s_rse_reduced] = parse_sort();
+	}
+
+	return node;
+}
+
+
+NOD EXPR_statement(void)
+{
+/**************************************
+ *
+ *	E X P R _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a single trigger statement.
+ *
+ **************************************/
+	LLS stack;
+	NOD node, list;
+	int number;
+
+	if (MATCH(KW_BEGIN)) {
+		stack = NULL;
+		while (!MATCH(KW_END))
+			LLS_PUSH(EXPR_statement(), &stack);
+		node = PARSE_make_list(stack);
+	}
+	else if (MATCH(KW_IF)) {
+		node = SYNTAX_NODE(nod_if, 3);
+		node->nod_arg[s_if_boolean] = EXPR_boolean(0);
+		MATCH(KW_THEN);
+		node->nod_arg[s_if_true] = EXPR_statement();
+		if (MATCH(KW_ELSE))
+			node->nod_arg[s_if_false] = EXPR_statement();
+		else
+			node->nod_count = 2;
+	}
+	else if (MATCH(KW_FOR)) {
+		node = SYNTAX_NODE(nod_for, 2);
+		node->nod_arg[s_for_rse] = EXPR_rse(FALSE);
+		stack = NULL;
+		while (!MATCH(KW_END_FOR))
+			LLS_PUSH(EXPR_statement(), &stack);
+		node->nod_arg[s_for_action] = PARSE_make_list(stack);
+	}
+	else if (MATCH(KW_STORE)) {
+		node = SYNTAX_NODE(nod_store, 2);
+		node->nod_arg[s_store_rel] = (NOD) parse_relation();
+		MATCH(KW_USING);
+		stack = NULL;
+		while (!MATCH(KW_END_STORE))
+			LLS_PUSH(EXPR_statement(), &stack);
+		node->nod_arg[s_store_action] = PARSE_make_list(stack);
+	}
+	else if (MATCH(KW_ABORT)) {
+		node = SYNTAX_NODE(nod_abort, 1);
+		node->nod_count = 0;
+		number = PARSE_number();
+		if (number > 255)
+			PARSE_error(235, NULL, NULL);	/* msg 235: abort code cannot exceed 255 */
+		node->nod_arg[0] = (NOD) (SLONG) number;
+	}
+	else if (MATCH(KW_ERASE)) {
+		node = SYNTAX_NODE(nod_erase, 1);
+		node->nod_count = 0;
+		node->nod_arg[0] = (NOD) PARSE_symbol(tok_ident);
+	}
+	else if (MATCH(KW_MODIFY)) {
+		MATCH(KW_USING);
+		node = SYNTAX_NODE(nod_modify, 3);
+		node->nod_count = 0;
+		node->nod_arg[s_mod_old_ctx] = (NOD) PARSE_symbol(tok_ident);
+		MATCH(KW_USING);
+		stack = NULL;
+		while (!MATCH(KW_END_MODIFY))
+			LLS_PUSH(EXPR_statement(), &stack);
+		node->nod_arg[s_mod_action] = PARSE_make_list(stack);
+	}
+	else if (MATCH(KW_POST)) {
+		node = SYNTAX_NODE(nod_post, 1);
+		node->nod_count = 1;
+		node->nod_arg[0] = EXPR_value(0, 0);
+	}
+	else {
+		node = SYNTAX_NODE(nod_assignment, 2);
+		node->nod_arg[1] = parse_field();
+		if (!MATCH(KW_EQUALS))
+			PARSE_error(236, DDL_token.tok_string, NULL);	/* msg 236: expected =, encountered \"%s\" */
+		node->nod_arg[0] = EXPR_value(0, 0);
+	}
+
+	MATCH(KW_SEMI);
+
+	return node;
+}
+
+
+NOD EXPR_value(USHORT * paren_count, USHORT * bool_flag)
+{
+/**************************************
+ *
+ *	E X P R _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a general value expression.  In practice, this means parse the
+ *	lowest precedence operator CONCATENATE.
+ *
+ **************************************/
+	NOD node, arg;
+	enum nod_t operator;
+	USHORT local_count, local_flag;
+
+	if (!paren_count) {
+		local_count = 0;
+		paren_count = &local_count;
+	}
+	if (!bool_flag) {
+		local_flag = FALSE;
+		bool_flag = &local_flag;
+	}
+
+	node = parse_add(paren_count, bool_flag);
+
+	while (TRUE) {
+		if (!MATCH(KW_BAR)) {
+			parse_terminating_parens(paren_count, &local_count);
+			return node;
+		}
+		arg = node;
+		node = SYNTAX_NODE(nod_concatenate, 2);
+		node->nod_arg[0] = arg;
+		node->nod_arg[1] = parse_add(paren_count, bool_flag);
+	}
+}
+
+
+static CON make_numeric_constant( TEXT * string, USHORT length)
+{
+/**************************************
+ *
+ *	m a k e _ n u m e r i c _ c o n s t a n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build a constant block for a numeric
+ *	constant.  Numeric constants are normally
+ *	stored as long words, but especially large
+ *	ones become text.  They ought to become
+ *      double precision, one would think, but they'd
+ *      have to be VAX style double precision which is
+ *      more pain than gain.
+ *
+ **************************************/
+	CON constant;
+	TEXT *p, *q, c;
+	USHORT scale, l, fraction;
+	SLONG *number;
+
+	p = string;
+	l = length;
+
+	constant = (CON) DDL_alloc(CON_LEN + sizeof(SLONG));
+	constant->con_desc.dsc_dtype = dtype_long;
+	constant->con_desc.dsc_length = sizeof(SLONG);
+	number = (SLONG *) constant->con_data;
+	constant->con_desc.dsc_address = (UCHAR *) number;
+	scale = 0;
+
+	do {
+		if ((c = *p++) == '.')
+			scale = 1;
+		else {
+			/* The right side of the following comparison had originally been:
+
+			   ((1 << 31) -1 ) / 10
+
+			   For some reason, this doesn't work on 64-bit platforms.  Its
+			   replacement does. */
+
+			if (*number > ((SLONG) ~ (1 << 31)) / 10)
+				break;
+			*number *= 10;
+			*number += c - '0';
+			constant->con_desc.dsc_scale -= scale;
+		}
+	} while (--l);
+
+/* if there was an overflow (indicated by the fact that we have
+ * some length left over), switch back to text.  Do check that
+ * the thing is a plausible number.  Also leave a space so we
+ * can negate it later if necessary.
+ */
+
+	if (l) {
+		length++;
+		constant = (CON) DDL_alloc(CON_LEN + length);
+		constant->con_desc.dsc_dtype = dtype_text;
+		constant->con_desc.dsc_ttype = ttype_ascii;
+		constant->con_desc.dsc_length = length;
+		constant->con_desc.dsc_address = constant->con_data;
+		q = (TEXT *) constant->con_desc.dsc_address;
+		p = string;
+		*q++ = ' ';
+
+		fraction = 0;
+		for (l = 1; l < length; p++, l++)
+			if (*p >= '0' && *p <= '9')
+				*q++ = *p;
+			else if (*p == '.') {
+				*q++ = *p;
+				if (fraction)
+					DDL_err(237, NULL, NULL, NULL, NULL, NULL);	/* msg 237: too many decimal points */
+				else
+					fraction = 1;
+			}
+			else
+				DDL_err(238, NULL, NULL, NULL, NULL, NULL);	/* msg 238: unrecognized character in numeric string */
+	}
+	return constant;
+}
+
+
+static NOD parse_add( USHORT * paren_count, USHORT * bool_flag)
+{
+/**************************************
+ *
+ *	p a r s e _ a d d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a general value expression.  In practice, this means parse the
+ *	lowest precedence operators, ADD and SUBTRACT.
+ *
+ **************************************/
+	NOD node, arg;
+	enum nod_t operator;
+
+	node = parse_multiply(paren_count, bool_flag);
+
+	while (TRUE) {
+		if (MATCH(KW_PLUS))
+			operator = nod_add;
+		else if (MATCH(KW_MINUS))
+			operator = nod_subtract;
+		else
+			return node;
+		arg = node;
+		node = SYNTAX_NODE(operator, 2);
+		node->nod_arg[0] = arg;
+		node->nod_arg[1] = parse_multiply(paren_count, bool_flag);
+	}
+}
+
+
+static NOD parse_and( USHORT * paren_count)
+{
+/**************************************
+ *
+ *	p a r s e _ a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an AND expression.
+ *
+ **************************************/
+	NOD expr, node;
+
+	expr = parse_not(paren_count);
+
+	if (!MATCH(KW_AND))
+		return expr;
+
+	node = SYNTAX_NODE(nod_and, 2);
+	node->nod_arg[0] = expr;
+	node->nod_arg[1] = parse_and(paren_count);
+
+	return node;
+}
+
+
+static NOD parse_field(void)
+{
+/**************************************
+ *
+ *	p a r s e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a qualified field name.
+ *
+ **************************************/
+	NOD field, array;
+	LLS stack;
+
+	stack = NULL;
+
+	while (TRUE) {
+		LEX_real();
+		LLS_PUSH(PARSE_symbol(tok_ident), &stack);
+		if (!MATCH(KW_DOT))
+			break;
+	}
+
+	field = PARSE_make_list(stack);
+	field->nod_type = nod_field_name;
+
+	if (!MATCH(KW_L_BRCKET))
+		return field;
+
+/* Parse an array reference */
+
+	stack = NULL;
+	for (;;) {
+		LLS_PUSH(EXPR_value(0, 0), &stack);
+		if (MATCH(KW_R_BRCKET))
+			break;
+		if (!MATCH(KW_COMMA))
+			PARSE_error(317, DDL_token.tok_string, NULL);	/* msg 317, expected comma or right bracket, encountered \"%s\" */
+	}
+
+	array = SYNTAX_NODE(nod_index, 2);
+	array->nod_arg[0] = field;
+	array->nod_arg[1] = PARSE_make_list(stack);
+
+	return array;
+}
+
+
+static NOD parse_from( USHORT * paren_count, USHORT * bool_flag)
+{
+/**************************************
+ *
+ *	p a r s e _ f r o m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse either an explicit or implicit FIRST ... FROM statement.
+ *
+ **************************************/
+	NOD node, value;
+
+	if (MATCH(KW_FIRST)) {
+		value = parse_primitive_value(0, 0);
+		if (!MATCH(KW_FROM))
+			PARSE_error(239, DDL_token.tok_string, NULL);
+		/* msg 239: expected FROM rse clause, encountered \"%s\" */
+	}
+	else {
+		value = parse_primitive_value(paren_count, bool_flag);
+		if (!MATCH(KW_FROM))
+			return value;
+	}
+
+	node = SYNTAX_NODE(nod_from, s_stt_count);
+	node->nod_arg[s_stt_value] = value;
+	node->nod_arg[s_stt_rse] = EXPR_rse(FALSE);
+
+	if (MATCH(KW_ELSE))
+		node->nod_arg[s_stt_default] = EXPR_value(0, 0);
+
+	return node;
+}
+
+
+static NOD parse_function(void)
+{
+/**************************************
+ *
+ *	p a r s e _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a function reference.  If not a function, return NULL.
+ *
+ **************************************/
+	SYM symbol;
+	NOD node;
+	LLS stack;
+
+/* Look for symbol of type function.  If we don't find it, give up */
+
+	for (symbol = DDL_token.tok_symbol; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_function)
+			break;
+
+	if (!symbol)
+		return NULL;
+
+	node = SYNTAX_NODE(nod_function, 3);
+	node->nod_count = 1;
+	node->nod_arg[1] = (NOD) PARSE_symbol(tok_ident);
+	node->nod_arg[2] = (NOD) symbol->sym_object;
+	stack = NULL;
+
+	if (MATCH(KW_LEFT_PAREN) && !MATCH(KW_RIGHT_PAREN))
+		for (;;) {
+			LLS_PUSH(EXPR_value(0, 0), &stack);
+			if (MATCH(KW_RIGHT_PAREN))
+				break;
+			if (!MATCH(KW_COMMA))
+				PARSE_error(240, DDL_token.tok_string, NULL);
+			/* msg 240: expected comma or right parenthesis, encountered \"%s\" */
+		}
+
+	node->nod_arg[0] = PARSE_make_list(stack);
+
+	return node;
+}
+
+
+static NOD parse_gen_id(void)
+{
+/**************************************
+ *
+ *	p a r s e _ g e n _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse GEN_ID expression.  Syntax is:
+ *
+ *		GEN_ID (<relation_name>, <value>)
+ *
+ **************************************/
+	NOD node;
+
+	LEX_token();
+
+	if (!MATCH(KW_LEFT_PAREN))
+		PARSE_error(241, DDL_token.tok_string, NULL);	/* msg 241: expected left parenthesis, encountered \"%s\" */
+
+	node = SYNTAX_NODE(nod_gen_id, 2);
+	node->nod_count = 1;
+	node->nod_arg[1] = (NOD) PARSE_symbol(tok_ident);
+	MATCH(KW_COMMA);
+	node->nod_arg[0] = EXPR_value(0, 0);
+	parse_matching_paren();
+
+	return node;
+}
+
+
+static CON parse_literal(void)
+{
+/**************************************
+ *
+ *	p a r s e _ l i t e r a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a literal expression.
+ *
+ **************************************/
+	CON constant;
+	USHORT l, scale;
+	TEXT *p, *q, c;
+	SLONG *number;
+
+	q = DDL_token.tok_string;
+	l = DDL_token.tok_length;
+
+	if (DDL_token.tok_type == tok_quoted) {
+		q++;
+		l -= 2;
+		constant = (CON) DDL_alloc(CON_LEN + l);
+		constant->con_desc.dsc_dtype = dtype_text;
+		constant->con_desc.dsc_ttype = ttype_ascii;
+		p = (TEXT *) constant->con_data;
+		constant->con_desc.dsc_address = (UCHAR *) p;
+		if (constant->con_desc.dsc_length = l)
+			do
+				*p++ = *q++;
+			while (--l);
+	}
+	else if (DDL_token.tok_type == tok_number) {
+		constant = make_numeric_constant(DDL_token.tok_string,
+										 DDL_token.tok_length);
+	}
+	else
+		PARSE_error(242, DDL_token.tok_string, NULL);	/* msg 242: expected value expression, encountered \"%s\" */
+
+	LEX_token();
+
+	return constant;
+}
+
+
+static parse_matching_paren(void)
+{
+/**************************************
+ *
+ *	p a r s e _ m a t c h i n g _ p a r e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for balancing parenthesis.  If missing, barf.
+ *
+ **************************************/
+
+	if (!MATCH(KW_RIGHT_PAREN))
+		PARSE_error(243, DDL_token.tok_string, NULL);	/* msg 243: expected right parenthesis, encountered \"%s\" */
+}
+
+
+static NOD parse_multiply( USHORT * paren_count, USHORT * bool_flag)
+{
+/**************************************
+ *
+ *	p a r s e _ m u l t i p l y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the operators * and /.
+ *
+ **************************************/
+	NOD node, arg;
+	enum nod_t operator;
+
+	node = parse_from(paren_count, bool_flag);
+
+	while (TRUE) {
+		if (MATCH(KW_ASTERISK))
+			operator = nod_multiply;
+		else if (MATCH(KW_SLASH))
+			operator = nod_divide;
+		else
+			return node;
+		arg = node;
+		node = SYNTAX_NODE(operator, 2);
+		node->nod_arg[0] = arg;
+		node->nod_arg[1] = parse_from(paren_count, bool_flag);
+	}
+}
+
+
+static NOD parse_not( USHORT * paren_count)
+{
+/**************************************
+ *
+ *	p a r s e _ n o t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a prefix NOT expression.
+ *
+ **************************************/
+	NOD node;
+
+	LEX_real();
+
+	if (!MATCH(KW_NOT))
+		return parse_relational(paren_count);
+
+	node = SYNTAX_NODE(nod_not, 1);
+	node->nod_arg[0] = parse_not(paren_count);
+
+	return node;
+}
+
+
+static NOD parse_primitive_value( USHORT * paren_count, USHORT * bool_flag)
+{
+/**************************************
+ *
+ *	p a r s e _ p r i m i t i v e _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a value expression.  This may be either a field reference
+ *	or a constant value.
+ *
+ **************************************/
+	NOD node, sub;
+	CON constant;
+	SYM symbol;
+	TEXT *p;
+	USHORT local_count;
+
+	if (!paren_count) {
+		local_count = 0;
+		paren_count = &local_count;
+	}
+
+	switch (PARSE_keyword()) {
+	case KW_LEFT_PAREN:
+		LEX_token();
+		(*paren_count)++;
+		if (bool_flag && *bool_flag)
+			node = EXPR_boolean(paren_count);
+		else
+			node = EXPR_value(paren_count, bool_flag);
+		parse_matching_paren();
+		(*paren_count)--;
+		break;
+
+	case KW_MINUS:
+		LEX_token();
+		sub = parse_primitive_value(paren_count, 0);
+		if (sub->nod_type == nod_literal) {
+			constant = (CON) sub->nod_arg[0];
+			p = (TEXT *) constant->con_desc.dsc_address;
+			switch (constant->con_desc.dsc_dtype) {
+			case dtype_long:
+				*(SLONG *) p = -*(SLONG *) p;
+				return sub;
+			case dtype_text:
+				*p = '-';
+				return sub;
+			}
+		}
+		node = SYNTAX_NODE(nod_negate, 1);
+		node->nod_arg[0] = sub;
+		break;
+
+	case KW_COUNT:
+	case KW_MAX:
+	case KW_MIN:
+	case KW_AVERAGE:
+	case KW_TOTAL:
+		node = parse_statistical();
+		break;
+
+	case KW_NULL:
+		LEX_token();
+		node = SYNTAX_NODE(nod_null, 0);
+		break;
+
+	case KW_USER_NAME:
+		LEX_token();
+		node = SYNTAX_NODE(nod_user_name, 0);
+		break;
+
+	case KW_GEN_ID:
+		node = parse_gen_id();
+		break;
+
+	case KW_UPPERCASE:
+		LEX_token();
+		sub = parse_primitive_value(0, 0);
+		node = SYNTAX_NODE(nod_uppercase, 1);
+		node->nod_arg[0] = sub;
+		break;
+
+	default:
+		if (DDL_token.tok_type == tok_ident) {
+			if (!(node = parse_function()))
+				node = parse_field();
+			break;
+		}
+		node = SYNTAX_NODE(nod_literal, 1);
+		node->nod_arg[0] = (NOD) parse_literal();
+	}
+
+	return node;
+}
+
+
+static CTX parse_relation(void)
+{
+/**************************************
+ *
+ *	p a r s e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a relation expression.  Syntax is:
+ *
+ *	[ <context_variable> IN ] <relation>
+ *
+ **************************************/
+	SYM symbol;
+	CTX context;
+	TEXT s[128];
+
+	context = (CTX) DDL_alloc(CTX_LEN);
+	context->ctx_name = symbol = PARSE_symbol(tok_ident);
+	symbol->sym_type = SYM_context;
+	symbol->sym_object = context;
+
+	if (!MATCH(KW_IN))
+		PARSE_error(244, DDL_token.tok_string, NULL);	/* msg 244: expected IN, encountered \"%s\" */
+
+	context->ctx_relation = PARSE_relation();
+
+	return context;
+}
+
+
+static NOD parse_relational( USHORT * paren_count)
+{
+/**************************************
+ *
+ *	p a r s e _ r e l a t i o n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a relational expression.
+ *
+ **************************************/
+	NOD node, expr1, expr2, or_node;
+	LLS stack;
+	USHORT count, negation;
+	enum nod_t operator, *rel_ops;
+	USHORT local_flag;
+
+	local_flag = TRUE;
+
+	if (MATCH(KW_ANY)) {
+		node = SYNTAX_NODE(nod_any, 1);
+		node->nod_arg[0] = EXPR_rse(FALSE);
+		return node;
+	}
+
+	if (MATCH(KW_UNIQUE)) {
+		node = SYNTAX_NODE(nod_unique, 1);
+		node->nod_arg[0] = EXPR_rse(FALSE);
+		return node;
+	}
+
+	expr1 = EXPR_value(paren_count, &local_flag);
+	if (KEYWORD(KW_RIGHT_PAREN))
+		return expr1;
+
+	negation = FALSE;
+	node = NULL;
+	LEX_real();
+
+	if (MATCH(KW_NOT)) {
+		negation = TRUE;
+		LEX_real();
+	}
+
+	switch (PARSE_keyword()) {
+	case KW_EQUALS:
+	case KW_EQ:
+		operator = (negation) ? nod_neq : nod_eql;
+		negation = FALSE;
+		break;
+
+	case KW_NE:
+		operator = (negation) ? nod_eql : nod_neq;
+		negation = FALSE;
+		break;
+
+	case KW_GT:
+		operator = (negation) ? nod_leq : nod_gtr;
+		negation = FALSE;
+		break;
+
+	case KW_GE:
+		operator = (negation) ? nod_lss : nod_geq;
+		negation = FALSE;
+		break;
+
+	case KW_LE:
+		operator = (negation) ? nod_gtr : nod_leq;
+		negation = FALSE;
+		break;
+
+	case KW_LT:
+		operator = (negation) ? nod_geq : nod_lss;
+		negation = FALSE;
+		break;
+
+	case KW_CONTAINING:
+		operator = nod_containing;
+		break;
+
+	case KW_MATCHES:
+		LEX_token();
+		expr2 = EXPR_value(0, 0);
+		if (MATCH(KW_USING)) {
+			operator = nod_sleuth;
+			node = SYNTAX_NODE(operator, 3);
+			node->nod_arg[2] = EXPR_value(0, 0);
+		}
+		else {
+			operator = nod_matches;
+			node = SYNTAX_NODE(operator, 2);
+		}
+		node->nod_arg[0] = expr1;
+		node->nod_arg[1] = expr2;
+		break;
+
+	case KW_STARTS:
+		LEX_token();
+		MATCH(KW_WITH);
+		node = SYNTAX_NODE(nod_starts, 2);
+		node->nod_arg[0] = expr1;
+		node->nod_arg[1] = EXPR_value(0, 0);
+		break;
+
+	case KW_MISSING:
+		LEX_token();
+		node = SYNTAX_NODE(nod_missing, 1);
+		node->nod_arg[0] = expr1;
+		break;
+
+	case KW_BETWEEN:
+		LEX_token();
+		node = SYNTAX_NODE(nod_between, 3);
+		node->nod_arg[0] = expr1;
+		node->nod_arg[1] = EXPR_value(0, 0);
+		MATCH(KW_AND);
+		node->nod_arg[2] = EXPR_value(0, 0);
+		break;
+
+	default:
+		for (rel_ops = relationals; *rel_ops != (enum nod_t) 0; rel_ops++)
+			if (expr1->nod_type == *rel_ops)
+				return expr1;
+		PARSE_error(245, DDL_token.tok_string, NULL);	/* msg 245: expected relational operator, encountered \"%s\" */
+	}
+
+/* If we haven't already built a node, it must be an ordinary binary operator.
+   Build it. */
+
+	if (!node) {
+		LEX_token();
+		node = SYNTAX_NODE(operator, 2);
+		node->nod_arg[0] = expr1;
+		node->nod_arg[1] = EXPR_value(paren_count, &local_flag);
+	}
+
+/* If a negation remains to be handled, zap the node under a NOT. */
+
+	if (negation) {
+		expr1 = SYNTAX_NODE(nod_not, 1);
+		expr1->nod_arg[0] = node;
+		node = expr1;
+	}
+
+/*  If the node isn't an equality, we've done.  Since equalities can be structured
+    as implicit ORs, build them here. */
+
+	if (operator != nod_eql)
+		return node;
+
+/* We have an equality operation, which can take a number of values.  Generate
+   implicit ORs */
+
+	while (MATCH(KW_COMMA)) {
+		MATCH(KW_OR);
+		or_node = SYNTAX_NODE(nod_or, 2);
+		or_node->nod_arg[0] = node;
+		or_node->nod_arg[1] = node = SYNTAX_NODE(nod_eql, 2);
+		node->nod_arg[0] = expr1;
+		node->nod_arg[1] = EXPR_value(paren_count, &local_flag);
+		node = or_node;
+	}
+
+	return node;
+}
+
+
+static NOD parse_sort(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a sort list.
+ *
+ **************************************/
+	NOD node, *ptr;
+	LLS stack;
+	SSHORT direction;
+
+	direction = 0;
+	stack = NULL;
+
+	while (TRUE) {
+		LEX_real();
+		if (MATCH(KW_ASCENDING))
+			direction = 0;
+		else if (MATCH(KW_DESCENDING))
+			direction = 1;
+		LLS_PUSH(EXPR_value(0, 0), &stack);
+		LLS_PUSH(direction, &stack);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	return PARSE_make_list(stack);
+}
+
+
+static NOD parse_statistical(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s t a t i s t i c a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse statistical expression.
+ *
+ **************************************/
+	struct nod_types *types;
+	NOD node;
+	enum kwwords keyword;
+
+	keyword = PARSE_keyword();
+	LEX_token();
+
+	for (types = statisticals;; types++)
+		if (types->nod_t_keyword == keyword)
+			break;
+
+	node = SYNTAX_NODE(types->nod_t_node, s_stt_count);
+
+	if (node->nod_type != nod_count)
+		node->nod_arg[s_stt_value] = EXPR_value(0, 0);
+
+	if (!MATCH(KW_OF))
+		PARSE_error(246, DDL_token.tok_string, NULL);	/* msg 246: expected OF, encountered \"%s\" */
+
+	node->nod_arg[s_stt_rse] = EXPR_rse(FALSE);
+
+	return node;
+}
+
+
+static int parse_terminating_parens(
+									USHORT * paren_count,
+									USHORT * local_count)
+{
+/**************************************
+ *
+ *	p a r s e _ t e r m i n a t i n g _ p a r e n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for balancing parenthesis.  If missing, barf.
+ *
+ **************************************/
+
+	if (*paren_count && paren_count == local_count)
+		do
+			parse_matching_paren();
+		while (--(*paren_count));
+}
diff --git a/src/dudley/expr_proto.h b/src/dudley/expr_proto.h
new file mode 100644
index 0000000000..4e999435c6
--- /dev/null
+++ b/src/dudley/expr_proto.h
@@ -0,0 +1,32 @@
+/*
+ *	PROGRAM:	Data Definition Utility
+ *	MODULE:		expr_proto.h
+ *	DESCRIPTION:	Prototype header file for expr.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DUDLEY_EXPR_PROTO_H_
+#define _DUDLEY_EXPR_PROTO_H_
+
+extern NOD EXPR_boolean(USHORT *);
+extern NOD EXPR_rse(USHORT);
+extern NOD EXPR_statement(void);
+extern NOD EXPR_value(USHORT *, USHORT *);
+
+#endif /* _DUDLEY_EXPR_PROTO_H_ */
diff --git a/src/dudley/extra_proto.h b/src/dudley/extra_proto.h
new file mode 100644
index 0000000000..ff75fb4d46
--- /dev/null
+++ b/src/dudley/extra_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	Data Definition Utility
+ *	MODULE:		extra_proto.h
+ *	DESCRIPTION:	Prototype header file for extract.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DUDLEY_EXTRA_PROTO_H_
+#define _DUDLEY_EXTRA_PROTO_H_
+
+extern void DDL_ext(void);
+
+#endif /* _DUDLEY_EXTRA_PROTO_H_ */
diff --git a/src/dudley/extract.e b/src/dudley/extract.e
new file mode 100644
index 0000000000..a6ed6ad376
--- /dev/null
+++ b/src/dudley/extract.e
@@ -0,0 +1,2234 @@
+/*
+ *	PROGRAM:	DUDLEY (ddl compiler)
+ *	MODULE:		extract.e
+ *	DESCRIPTION:	definition extract routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/gds.h"
+#include "../dudley/ddl.h"
+#include "../jrd/acl.h"
+#include "../jrd/flags.h"
+#include "../jrd/obj.h"
+#include "../wal/wal.h"
+#include "../dudley/ddl_proto.h"
+#include "../dudley/extra_proto.h"
+#include "../jrd/gds_proto.h"
+
+DATABASE DB = EXTERN FILENAME "yachts.lnk" RUNTIME DB_file_name;
+
+#ifndef FOPEN_WRITE_TYPE
+#define FOPEN_WRITE_TYPE	"w"
+#endif
+
+#define BLOB_NULL(id)	(!id.gds_quad_low && !id.gds_quad_high)
+
+typedef struct view {
+	struct view *view_next;
+	TEXT view_name[1];
+} *VIEW;
+
+static void binary_to_ascii(SLONG, SSHORT, TEXT *);
+static void decompile_blr_literal(SCHAR *);
+static void extract_acls(void);
+static void extract_computed(TEXT *, BOOLEAN);
+static void extract_database(TEXT *);
+static void extract_fields(void);
+static void extract_filters(void);
+static void extract_functions(void);
+static void extract_func_args(TEXT *);
+static void extract_generators(void);
+static void extract_grants(TEXT *);
+static void extract_indexes(void);
+static void extract_relations(void);
+static void extract_rfr(TEXT *);
+static void extract_security(void);
+static void extract_triggers(void);
+static void extract_trig_msgs(TEXT *);
+static void extract_view(TEXT *, SLONG *, SLONG *, USHORT, USHORT, USHORT,
+						 BOOLEAN *);
+static void extract_views(void);
+static void field_attributes(SLONG *, TEXT *, SLONG *, TEXT *, SSHORT);
+static void format_acl(SCHAR *);
+static int name_trunc(TEXT *, TEXT *);
+static void print_blob(SLONG *, TEXT);
+static void put_comment(USHORT);
+static void put_error(USHORT, TEXT *);
+static void set_capabilities(void);
+static void type_scalar(USHORT, SSHORT, USHORT, SSHORT, USHORT, TEXT *);
+static void view_fields(TEXT *);
+static void wal_info(UCHAR *, SSHORT *, SLONG *, SLONG *, SLONG *);
+
+static IB_FILE *output_file;
+static SCHAR db_items[] = { gds__info_page_size };
+static SCHAR db_info[] =
+	{ gds__info_num_wal_buffers, gds__info_wal_buffer_size,
+	gds__info_wal_ckpt_length, gds__info_wal_grpc_wait_usecs
+};
+static TEXT acl_privs[] = "?CGDRWP???";
+static TEXT *acl_ids[] = {
+	"?",
+	"group",
+	"user",
+	"person",
+	"project",
+	"organization",
+	"node",
+	"view"
+};
+
+
+static SLONG EXT_capabilities;
+
+#define	EXT_security		1
+#define EXT_files		2
+#define EXT_external		4
+#define EXT_idx_inactive 	8
+#define EXT_triggers		16	/* Obsolete - 1996-Aug-05 */
+#define EXT_context_name	32
+#define EXT_db_description	64
+#define EXT_v3			128		/* rdb$dependencies, rdb$functions, rdb$filters, rdb$user_privileges */
+					/* rdb$triggers, rdb$types, rdb$indices.rdb$index_type */
+					/* rdb$fields.rdb$dimensions, rdb$files.rdb$shadow_number */
+					/* rdb$generators */
+
+#define EXT_v4			256
+
+/* table used to determine capabilities, checking for specific 
+   fields in system relations */
+
+typedef struct rfr_tab_t {
+	TEXT *relation;
+	TEXT *field;
+	int bit_mask;
+} *RFR_TAB;
+
+static struct rfr_tab_t rfr_table[] = {
+	"RDB$INDICES", "RDB$INDEX_INACTIVE", EXT_idx_inactive,
+/* Obsolete - 1996-Aug-05 David Schnepper 
+	"RDB$RELATIONS",	"RDB$STORE_TRIGGER",	EXT_triggers,
+*/
+	"RDB$RELATIONS", "RDB$EXTERNAL_FILE", EXT_external,
+	"RDB$SECURITY_CLASSES", "RDB$SECURITY_CLASS", EXT_security,
+	"RDB$FILES", "RDB$FILE_NAME", EXT_files,
+	"RDB$VIEW_RELATIONS", "RDB$CONTEXT_NAME", EXT_context_name,
+	"RDB$DATABASE", "RDB$DESCRIPTION", EXT_db_description,
+	"RDB$FUNCTIONS", "RDB$FUNCTION_NAME", EXT_v3,
+	"RDB$LOG_FILES", "RDB$FILE_PARTITIONS", EXT_v4,
+	0, 0, 0
+};
+
+
+void DDL_ext(void)
+{
+/**************************************
+ *
+ *	D D L _  e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an output text file and dump data
+ *	definitions into it.
+ *
+ **************************************/
+
+	output_file = NULL;
+
+	if (*DDL_file_name) {
+		if (!(output_file = ib_fopen(DDL_file_name, FOPEN_WRITE_TYPE))) {
+			DDL_err(248, DDL_file_name, NULL, NULL, NULL, NULL);	/* msg 248: ddl: can't open %s */
+			DDL_exit(FINI_ERROR);
+		}
+	}
+	else
+		output_file = ib_stdout;
+
+	if (DDL_default_user || DDL_default_password)
+		READY DB USER DDL_default_user PASSWORD DDL_default_password;
+	else
+		READY DB;
+
+/* the database version number is useful during extract - this goes
+   to ib_stdout, not to the output_file */
+	if (DDL_version) {
+		DDL_msg_put(249, DB_file_name, NULL, NULL, NULL, NULL);	/* msg 249: Version(s) for database \"%s\" */
+		gds__version(&DB, NULL, NULL);
+	}
+
+	START_TRANSACTION;
+
+	set_capabilities();
+
+	extract_database(DB_file_name);
+	if (EXT_capabilities & EXT_v3)
+		extract_functions();
+	extract_fields();
+	extract_relations();
+	extract_views();
+	extract_indexes();
+	if (EXT_capabilities & EXT_security) {
+		extract_security();
+		extract_acls();
+	}
+	if (EXT_capabilities & EXT_v3) {
+		extract_filters();
+		extract_generators();
+		extract_triggers();
+	}
+
+	ib_fprintf(output_file, "\n");
+	ib_fclose(output_file);
+	COMMIT;
+	FINISH;
+}
+
+
+static void binary_to_ascii(SLONG value, SSHORT scale, TEXT * buffer)
+{
+/**************************************
+ *
+ *	b i n a r y _ t o _ a s c i i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a binary number to ascii and
+ *	return it in the user supplied buffer;
+ *
+ **************************************/
+	TEXT *p, *q, temp[32];
+
+	p = buffer;
+
+/* Handle non-negative scale factor in straightforward manner */
+
+	if (scale >= 0) {
+		sprintf(p, "%d", value);
+		while (*p)
+			p++;
+		if (scale)
+			do
+				*p++ = '0';
+			while (--scale);
+		return;
+	}
+
+	if (value < 0) {
+		*p++ = '-';
+		value = -value;
+	}
+
+	for (q = temp; value || scale < 0;) {
+		*q++ = value % 10 + '0';
+		value /= 10;
+		if (!++scale) {
+			*q++ = '.';
+			if (!value)
+				*q++ = '0';
+		}
+	}
+
+	while (q > temp)
+		*p++ = *--q;
+
+	*p = 0;
+}
+
+
+static void decompile_blr_literal(SCHAR * string)
+{
+/**************************************
+ *
+ *	d e c o m p i l e _ b l r _ l i t e r a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	decompile a blr literal
+ *	and write it to the output file.
+ *
+ **************************************/
+	SCHAR *p, *q, num_buffer[20], scale;
+	TEXT *b, buffer[256];
+	SSHORT size;
+	SLONG value;
+
+	p = string;
+
+	if ((*p++ != blr_version4) || (*p++ != blr_literal)) {
+		put_comment(250);		/* msg 250: **** unable to decompile missing value *** */
+		return;
+	}
+
+	b = buffer;
+
+	switch (*p++) {
+	case (blr_text):
+		size = gds__vax_integer(p, 2);
+		p += 2;
+		*b++ = '"';
+		while (size--)
+			*b++ = *p++;
+		*b++ = '"';
+		*b = 0;
+		break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+	case (blr_text2):
+		{
+			USHORT len;
+
+			/* Convert strings to local encoding */
+
+			scale = gds__vax_integer(p, 2);
+			p += 2;
+			size = gds__vax_integer(p, 2);
+			p += 2;
+			*b++ = '"';
+
+			if (DDL_interp == scale) {
+				while (size--)
+					*b++ = *p++;
+			}
+
+			else if (DDL_interp == gds__interp_jpn_euc &&
+					 scale == gds__interp_jpn_sjis) {
+				if (KANJI_sjis2euc(p, size, b, 253, &len)) {
+					put_comment(250);
+					/* msg 250: **** unable to decompile missing value *** */
+					return;
+				}
+				b += len;
+				p += size;
+			}
+
+			else if (DDL_interp == gds__interp_jpn_sjis &&
+					 scale == gds__interp_jpn_euc) {
+				if (KANJI_euc2sjis(p, size, b, 253, &len)) {
+					put_comment(250);
+					/* msg 250: **** unable to decompile missing value *** */
+					return;
+				}
+				b += len;
+				p += size;
+			}
+
+			else {
+				put_comment(250);
+				/* msg 250: **** unable to decompile missing value *** */
+				return;
+			}
+
+
+			*b++ = '"';
+			*b = 0;
+			break;
+		}
+#endif
+
+	case (blr_long):
+		scale = *p++;
+		value = gds__vax_integer(p, 4);
+		binary_to_ascii(value, scale, buffer);
+		break;
+
+	case (blr_short):
+		scale = *p++;
+		value = gds__vax_integer(p, 2);
+		binary_to_ascii(value, scale, buffer);
+		break;
+
+	default:
+		gds__msg_format(NULL_PTR, DDL_MSG_FAC, 250, sizeof(buffer), buffer,
+						NULL, NULL, NULL, NULL, NULL);
+		/* msg 250: **** unable to decompile missing value *** */
+	}
+
+	ib_fprintf(output_file, "%s", buffer);
+}
+
+
+static void extract_acls(void)
+{
+/**************************************
+ *
+ *	e x t r a c t _ a c l s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read security class records and
+ *	and write them to the output file.
+ *	For each security class record determine if there is
+ *	any GRANT user privileges associated with it.  If so,
+ *	extract GRANT statement rather than a define security class
+ *	statement.
+ *
+ **************************************/
+	BOOLEAN first;
+	TEXT s[32], *relname;
+	USHORT count;
+
+	first = TRUE;
+    
+    FOR S IN RDB$SECURITY_CLASSES 
+        if (first) {
+            put_comment(251);       /* msg 251: \n\n\tSecurity Class Definitions / GRANT statements\t */
+            first = FALSE;
+        } 
+    count = 0;
+	
+    /* if there's any rdb$user_privileges entry then we can use GRANT statement */
+    /* resort to parsing rdb$security_class for SQL$<relation-name> instead of
+       just checking for rdb$security_classes.rdb$relation_name since it's
+       possible that the security class was used on some other relation than
+       the one GRANTed ON */
+	
+    if (EXT_capabilities & EXT_v3) {
+        if (strncmp(S.RDB$SECURITY_CLASS, "SQL$", 4) == 0) {
+            strcpy(s, S.RDB$SECURITY_CLASS);
+            relname = &s[4];
+            if (EXT_capabilities & EXT_v4) {
+                FOR U IN RDB$USER_PRIVILEGES WITH 
+                    U.RDB$RELATION_NAME = relname AND 
+                    U.RDB$OBJECT_TYPE = obj_relation 
+                    count++;
+                END_FOR;
+            }
+            else {
+                FOR U IN RDB$USER_PRIVILEGES WITH U.RDB$RELATION_NAME = relname 
+                    count++;
+                END_FOR;
+            }
+            
+            /* if there's no rdb$user_privileges entry, but we still find a
+               SQL$ security class, that's the relation owner's privilege list.
+               Ignore this as the new database created will have a new owner
+               and should start fresh with no security class defined for
+               owner */
+            
+            if (!count)
+                continue;
+        }
+    }
+    if (count)
+        extract_grants(relname);
+    else {
+        ib_fprintf(output_file, "\ndefine security_class %s",
+                   S.RDB$SECURITY_CLASS);
+        if (!BLOB_NULL(S.RDB$DESCRIPTION)) {
+            ib_fprintf(output_file, "\n\t{");
+            print_blob(&S.RDB$DESCRIPTION, 'u');
+            ib_fprintf(output_file, "}");
+        }
+        if (!BLOB_NULL(S.RDB$ACL))
+            print_blob(&S.RDB$ACL, 'a');
+        ib_fprintf(output_file, ";\n");
+    }
+    END_FOR;
+}
+
+
+static void extract_computed(TEXT * relation_name, BOOLEAN first)
+{
+/**************************************
+ *
+ *	e x t r a c t _ c o m p u t e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read definitions of computed fields
+ *	and write them to the output file.
+ *
+ *	Check on the way by that we're not
+ *	trying to expand a computed field
+ *	that's been copied whole into a
+ *	view.  Meaning that if there is a 
+ *	view context, skip this field
+ *
+ **************************************/
+	TEXT s[32];
+
+    FOR RFR IN RDB$RELATION_FIELDS CROSS F IN RDB$FIELDS
+        WITH RFR.RDB$RELATION_NAME = relation_name
+        AND F.RDB$FIELD_NAME = RFR.RDB$FIELD_SOURCE
+        AND F.RDB$COMPUTED_BLR NOT MISSING
+        SORTED BY RFR.RDB$FIELD_POSITION 
+
+        if (RFR.RDB$VIEW_CONTEXT) 
+            continue;
+	
+        if (!first)
+            ib_fprintf(output_file, ",\n");
+        
+        first = FALSE;
+        name_trunc(RFR.RDB$FIELD_NAME, s);
+        if (F.RDB$COMPUTED_SOURCE.NULL) {
+            put_error(252, s);      /* msg 252: **** field %s can not be extracted, computed source missing ***  */
+            continue;
+        }
+        ib_fprintf(output_file, "    %s", s);
+        
+        strcpy(s, F.RDB$FIELD_NAME);
+        if (EXT_capabilities & EXT_v3) {
+            FOR FNDA IN RDB$FIELDS WITH FNDA.RDB$FIELD_NAME = s
+                type_scalar(FNDA.RDB$FIELD_TYPE, FNDA.RDB$FIELD_SCALE,
+	                       FNDA.RDB$FIELD_LENGTH,
+	                       FNDA.RDB$FIELD_SUB_TYPE, FNDA.RDB$DIMENSIONS, s);
+	       END_FOR;
+        }
+        else {
+            FOR FNDA IN RDB$FIELDS WITH FNDA.RDB$FIELD_NAME = s
+                type_scalar(FNDA.RDB$FIELD_TYPE, FNDA.RDB$FIELD_SCALE,
+                            FNDA.RDB$FIELD_LENGTH,
+                            FNDA.RDB$FIELD_SUB_TYPE, 0, NULL);
+            END_FOR;
+        }
+        ib_fprintf(output_file, " computed by (");
+        
+        print_blob(&F.RDB$COMPUTED_SOURCE, 'u');
+        ib_fprintf(output_file, ")");
+        if (!RFR.RDB$FIELD_POSITION.NULL)
+            ib_fprintf(output_file, "\tposition %d", RFR.RDB$FIELD_POSITION);
+        field_attributes(&RFR.RDB$DESCRIPTION, RFR.RDB$QUERY_NAME,
+                         &RFR.RDB$QUERY_HEADER, RFR.RDB$EDIT_STRING,
+                         RFR.RDB$SYSTEM_FLAG);
+        
+    END_FOR;
+}
+
+
+static void extract_database(TEXT * DB_file_name)
+{
+/**************************************
+ *
+ *	e x t r a c t _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the essential database information
+ *	and write it to the output file.
+ *
+ **************************************/
+	TEXT s[32], buffer[256], *d;
+	SSHORT length, any_shadows;
+	SLONG page_size;
+	STATUS status_vector[20];
+	BOOLEAN first_time;
+	SSHORT need_close;
+	SCHAR db_info_buffer[64];
+	SSHORT num_buf;
+	SLONG buf_size;
+	SLONG chkpt_len;
+	SLONG grp_commit;
+
+	ib_fprintf(output_file, "define database \"%s\"", DB_file_name);
+
+	if (EXT_capabilities & EXT_security) {
+	       FOR D IN RDB$DATABASE 
+               if (!BLOB_NULL(D.RDB$DESCRIPTION)) {
+                   ib_fprintf(output_file, "\n\t{");
+                   print_blob(&D.RDB$DESCRIPTION, 'u');
+                   ib_fprintf(output_file, "}");
+               } 
+               if (!D.RDB$SECURITY_CLASS.NULL) {
+                   name_trunc(D.RDB$SECURITY_CLASS, s);
+                   if (*s)
+                       ib_fprintf(output_file, "\n\tsecurity_class %s", s);
+               }
+	       END_FOR;
+	}
+	else if (EXT_capabilities & EXT_db_description)
+        FOR D IN RDB$DATABASE 
+            if (!BLOB_NULL(D.RDB$DESCRIPTION)) {
+                ib_fprintf(output_file, "\n\t{");
+                print_blob(&D.RDB$DESCRIPTION, 'u');
+                ib_fprintf(output_file, "}");
+            } 
+        END_FOR;
+
+		if (gds__database_info(status_vector,
+							   GDS_REF(DB),
+							   sizeof(db_items),
+							   db_items, sizeof(buffer), buffer)) {
+			put_error(254, 0);	/* msg 254: ***gds__database_info failed*** */
+			gds__print_status(status_vector);
+		}
+
+        d = buffer;
+        if (*d++ == gds__info_page_size) {
+            length = gds__vax_integer(d, 2);
+            d += 2;
+            page_size = gds__vax_integer(d, length);
+            if (page_size)
+                ib_fprintf(output_file, "\n\tpage_size %d", page_size);
+        }
+        
+        if (EXT_capabilities & EXT_files)
+            if (EXT_capabilities & EXT_v3) {
+                FOR F IN RDB$FILES WITH F.RDB$SHADOW_NUMBER MISSING OR 
+                    F.RDB$SHADOW_NUMBER EQ 0 
+                    name_trunc(F.RDB$FILE_NAME, buffer);
+                    ib_fprintf(output_file, "\n\tfile \"%s\" starting at page %d",
+                               buffer, F.RDB$FILE_START);
+                END_FOR;
+            }
+            else
+                FOR F IN RDB$FILES name_trunc(F.RDB$FILE_NAME, buffer);
+                    ib_fprintf(output_file, "\n\tfile \"%s\" starting at page %d",
+                               buffer, F.RDB$FILE_START);
+                END_FOR;
+
+/* print log info. */
+
+		if (EXT_capabilities & EXT_v4) {
+			first_time = TRUE;
+			need_close = 0;
+
+	       FOR F IN RDB$LOG_FILES if (F.RDB$FILE_FLAGS & LOG_overflow)
+	             continue;
+	
+	       if (first_time) {
+	           first_time = FALSE;
+	           ib_fprintf(output_file, "\n\tlogfile");
+	
+	           if (F.RDB$FILE_FLAGS & LOG_default)
+	               break;
+	           else if (F.RDB$FILE_FLAGS & LOG_serial)
+	               ib_fprintf(output_file, " base_name");
+	           else {
+	               need_close = 1;
+	               ib_fprintf(output_file, "\n\t\t(");
+	           }
+	
+	           ib_fprintf(output_file, "\n\t\t\"%s\"", F.RDB$FILE_NAME);
+	       }
+	       else
+	           ib_fprintf(output_file, ",\n\t\t\"%s\"", F.RDB$FILE_NAME);
+	
+	       if (F.RDB$FILE_LENGTH)
+	           ib_fprintf(output_file, " size = %d", F.RDB$FILE_LENGTH);
+	
+	       if (F.RDB$FILE_PARTITIONS)
+	           ib_fprintf(output_file, " partitions = %d",
+	                      F.RDB$FILE_PARTITIONS);
+	       if (F.RDB$FILE_FLAGS & LOG_raw)
+	           ib_fprintf(output_file, " raw");
+	
+	       END_FOR;
+
+			if (need_close)
+				ib_fprintf(output_file, "\n\t\t)");
+
+	       FOR F IN RDB$LOG_FILES if (!(F.RDB$FILE_FLAGS & LOG_overflow))
+	             continue;
+	
+	       ib_fprintf(output_file, "\n\toverflow");
+	       ib_fprintf(output_file, " \"%s\"", F.RDB$FILE_NAME);
+	
+	       if (F.RDB$FILE_LENGTH)
+	           ib_fprintf(output_file, " size = %d", F.RDB$FILE_LENGTH);
+	
+	       if (F.RDB$FILE_PARTITIONS)
+	           ib_fprintf(output_file, " partitions = %d",
+	                      F.RDB$FILE_PARTITIONS);
+	       END_FOR;
+
+			if (gds__database_info(gds__status,
+								   GDS_REF(DB),
+								   sizeof(db_info),
+								   db_info,
+								   sizeof(db_info_buffer), db_info_buffer)) {
+				put_error(254, 0);	/* msg 254: ***gds__database_info failed*** */
+				gds__print_status(status_vector);
+			}
+
+			buf_size = chkpt_len = grp_commit = 0;
+			num_buf = 0;
+
+			wal_info(db_info_buffer, &num_buf, &buf_size, &chkpt_len,
+					 &grp_commit);
+
+			if (num_buf)
+				ib_fprintf(output_file, "\n\tnum_log_buffers %d", num_buf);
+			if (buf_size)
+				ib_fprintf(output_file, "\n\tlog_buffer_size %d", buf_size);
+			if (chkpt_len)
+				ib_fprintf(output_file, "\n\tcheck_point_length %d",
+						   chkpt_len / OneK);
+			if (grp_commit)
+				ib_fprintf(output_file, "\n\tgroup_commit_wait_time %d",
+						   grp_commit);
+		}
+
+	ib_fprintf(output_file, ";\n");
+
+	if (EXT_capabilities & EXT_v3) {
+		any_shadows = FALSE;
+
+	       FOR F IN RDB$FILES WITH F.RDB$SHADOW_NUMBER GT 0
+	           SORTED BY F.RDB$SHADOW_NUMBER, F.RDB$FILE_START
+	           name_trunc(F.RDB$FILE_NAME, buffer);
+	           if (F.RDB$FILE_START)
+                   ib_fprintf(output_file, "\n\tfile \"%s\" starting at page %d",
+                              buffer, F.RDB$FILE_START);
+               else
+                   ib_fprintf(output_file, "%s\ndefine shadow %d \"%s\"",
+                              (any_shadows) ? ";\n" : "", F.RDB$SHADOW_NUMBER,
+                              buffer);
+               any_shadows = TRUE;
+	       END_FOR;
+
+		if (any_shadows)
+			ib_fprintf(output_file, ";\n");
+	}
+}
+
+
+static void extract_fields(void)
+{
+/**************************************
+ *
+ *	e x t r a c t _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the global field definitions
+ *	and write them to the output file.
+ *
+ **************************************/
+	BOOLEAN first;
+	TEXT s[32];
+
+	first = TRUE;
+    FOR F IN RDB$FIELDS WITH
+        (F.RDB$SYSTEM_FLAG NE 1 OR F.RDB$SYSTEM_FLAG MISSING) AND
+        F.RDB$COMPUTED_BLR MISSING SORTED BY F.RDB$FIELD_NAME 
+
+        if (first) {
+            put_comment(255);       /*msg 255: \n\n\tGlobal Field Definitions\t */
+            first = FALSE;
+        } 
+        name_trunc(F.RDB$FIELD_NAME, s);
+        ib_fprintf(output_file, "define field %s", s);
+        if (F.RDB$FIELD_TYPE == blr_blob) {
+            ib_fprintf(output_file, " blob");
+            if (F.RDB$SEGMENT_LENGTH)
+                ib_fprintf(output_file, " segment_length %u",
+                           (USHORT) F.RDB$SEGMENT_LENGTH);
+            if (F.RDB$FIELD_SUB_TYPE == 1)
+                ib_fprintf(output_file, " sub_type text");
+            else if (F.RDB$FIELD_SUB_TYPE == 2)
+                ib_fprintf(output_file, " sub_type BLR");
+            else if (F.RDB$FIELD_SUB_TYPE == 3)
+                ib_fprintf(output_file, " sub_type ACL");
+            else if (F.RDB$FIELD_SUB_TYPE)
+                ib_fprintf(output_file, " sub_type %d", F.RDB$FIELD_SUB_TYPE);
+        }
+        else {
+            strcpy(s, F.RDB$FIELD_NAME);
+            if (EXT_capabilities & EXT_v3) {
+                FOR FNDA IN RDB$FIELDS WITH FNDA.RDB$FIELD_NAME = s
+                    type_scalar(FNDA.RDB$FIELD_TYPE, FNDA.RDB$FIELD_SCALE,
+                                FNDA.RDB$FIELD_LENGTH,
+                                FNDA.RDB$FIELD_SUB_TYPE, FNDA.RDB$DIMENSIONS, s);
+                END_FOR;
+            }
+            else {
+                FOR FNDA IN RDB$FIELDS WITH FNDA.RDB$FIELD_NAME = s
+                    type_scalar(FNDA.RDB$FIELD_TYPE, FNDA.RDB$FIELD_SCALE,
+                                FNDA.RDB$FIELD_LENGTH,
+                                FNDA.RDB$FIELD_SUB_TYPE, 0, NULL);
+                END_FOR;
+            }
+            
+        }
+        
+        if (!BLOB_NULL(F.RDB$VALIDATION_SOURCE)) {
+            ib_fprintf(output_file, "\n\tvalid if (");
+            print_blob(&F.RDB$VALIDATION_SOURCE, 'u');
+            ib_fprintf(output_file, ")");
+        }
+        
+        if (!BLOB_NULL(F.RDB$MISSING_VALUE)) {
+            ib_fprintf(output_file, "\n\tmissing_value is ");
+            print_blob(&F.RDB$MISSING_VALUE, 'm');
+        }
+        
+        /*
+          if (!BLOB_NULL (F.RDB$DEFAULT_VALUE))
+          default_value (&F.RDB$DEFAULT_VALUE);
+        */
+        
+        field_attributes(&F.RDB$DESCRIPTION, F.RDB$QUERY_NAME,
+                         &F.RDB$QUERY_HEADER, F.RDB$EDIT_STRING,
+                         F.RDB$SYSTEM_FLAG);
+        ib_fprintf(output_file, ";\n");
+        
+    END_FOR;
+}
+
+
+static void extract_filters(void)
+{
+/**************************************
+ *
+ *	e x t r a c t _ f i l t e r s 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read filter definitions
+ *	and write them to the output file.
+ *
+ **************************************/
+	BOOLEAN first;
+	TEXT s[32];
+
+	first = TRUE;
+
+	   FOR F IN RDB$FILTERS SORTED BY F.RDB$FUNCTION_NAME 
+           if (first) {
+               put_comment(256);       /* msg 256: \n\n\tFilter Definitions\t */
+               first = FALSE;
+           } 
+           name_trunc(F.RDB$FUNCTION_NAME, s);
+           ib_fprintf(output_file, "\ndefine filter %s", s);
+           ib_fprintf(output_file, "\n\tinput_type %d", F.RDB$INPUT_SUB_TYPE);
+           ib_fprintf(output_file, "\n\toutput_type %d", F.RDB$OUTPUT_SUB_TYPE);
+           if (!F.RDB$MODULE_NAME.NULL && name_trunc(F.RDB$MODULE_NAME, s))
+               ib_fprintf(output_file, "\n\tmodule_name '%s'", s);
+           name_trunc(F.RDB$ENTRYPOINT, s);
+           ib_fprintf(output_file, "\n\tentry_point '%s'", s);
+           if (!BLOB_NULL(F.RDB$DESCRIPTION)) {
+               ib_fprintf(output_file, "\n\t{");
+               print_blob(&F.RDB$DESCRIPTION, 'u');
+               ib_fprintf(output_file, "}");
+           }
+           ib_fprintf(output_file, ";\n");
+	   END_FOR;
+}
+
+
+static void extract_functions(void)
+{
+/**************************************
+ *
+ *	e x t r a c t _ f u n c t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read function definitions
+ *	and write them to the output file.
+ *
+ **************************************/
+	BOOLEAN first;
+	TEXT s[32];
+
+	first = TRUE;
+
+	   FOR FUNC IN RDB$FUNCTIONS SORTED BY FUNC.RDB$FUNCTION_NAME 
+           if (first) {
+               put_comment(257);       /* msg 257: \n\n\tFunction Definitions\t */
+               first = FALSE;
+           } 
+           name_trunc(FUNC.RDB$FUNCTION_NAME, s);
+           ib_fprintf(output_file, "\ndefine function %s", s);
+           if (!FUNC.RDB$QUERY_NAME.NULL && name_trunc(FUNC.RDB$QUERY_NAME, s))
+               ib_fprintf(output_file, "\n\tquery_name %s", s);
+           if (!FUNC.RDB$MODULE_NAME.NULL && name_trunc(FUNC.RDB$MODULE_NAME, s))
+               ib_fprintf(output_file, "\n\tmodule_name '%s'", s);
+           name_trunc(FUNC.RDB$ENTRYPOINT, s);
+           ib_fprintf(output_file, "\n\tentry_point '%s'", s);
+           if (!BLOB_NULL(FUNC.RDB$DESCRIPTION)) {
+               ib_fprintf(output_file, "\n\t{");
+               print_blob(&FUNC.RDB$DESCRIPTION, 'u');
+               ib_fprintf(output_file, "}");
+           }
+	
+           extract_func_args(FUNC.RDB$FUNCTION_NAME);
+	
+           ib_fprintf(output_file, ";\n");
+	   END_FOR;
+}
+
+
+static void extract_func_args(TEXT * function_name)
+{
+/**************************************
+ *
+ *	e x t r a c t _ f u n c _ a r g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the argument descriptions for a function
+ *	and write them to the output file.
+ *
+ **************************************/
+	BOOLEAN first;
+	TEXT s[32], *p;
+
+	first = TRUE;
+	p = "";
+
+    FOR FARG IN RDB$FUNCTION_ARGUMENTS
+        WITH FARG.RDB$FUNCTION_NAME = function_name
+        SORTED BY FARG.RDB$ARGUMENT_POSITION
+        ib_fprintf(output_file, "%s\n", p);
+
+        if (first) {
+            p = ",";
+            first = FALSE;
+        }
+        
+        ib_fprintf(output_file, "\t\t");
+        if (FARG.RDB$FIELD_TYPE == blr_blob)
+            ib_fprintf(output_file, " blob");
+        else {
+            type_scalar(FARG.RDB$FIELD_TYPE, FARG.RDB$FIELD_SCALE,
+                        FARG.RDB$FIELD_LENGTH, FARG.RDB$FIELD_SUB_TYPE, 0, NULL);
+        }
+        ib_fprintf(output_file, " by ");
+        if (FARG.RDB$MECHANISM == FUNCARG_mechanism_value)
+            ib_fprintf(output_file, "value");
+        else if ((FARG.RDB$MECHANISM == FUNCARG_mechanism_reference) ||
+                 (FARG.RDB$MECHANISM == FUNCARG_mechanism_blob_struc))
+            ib_fprintf(output_file, "reference");
+        else if (FARG.RDB$MECHANISM == FUNCARG_mechanism_sc_array_desc)
+            ib_fprintf(output_file, "scalar_array_descriptor");
+        
+        FOR FUNC IN RDB$FUNCTIONS
+            WITH FUNC.RDB$FUNCTION_NAME = function_name
+            if (FARG.RDB$ARGUMENT_POSITION == FUNC.RDB$RETURN_ARGUMENT) {
+                if (FARG.RDB$ARGUMENT_POSITION)
+                ib_fprintf(output_file, " return_argument");
+                else
+                ib_fprintf(output_file, " return_value");
+            } 
+        END_FOR;
+        
+    END_FOR;
+}
+
+
+static void extract_generators(void)
+{
+/**************************************
+ *
+ *	e x t r a c t _ g e n e r a t o r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get generator definitions from rdb$generators.
+ *
+ **************************************/
+	BOOLEAN first;
+	TEXT s[32];
+
+	first = TRUE;
+    
+    FOR G IN RDB$GENERATORS WITH
+        (G.RDB$SYSTEM_FLAG NE 1 OR G.RDB$SYSTEM_FLAG MISSING)
+        SORTED BY G.RDB$GENERATOR_NAME 
+        if (first) {
+            put_comment(290);       /* msg 290: \n\n\tGenerator Definitions\t */
+            first = FALSE;
+        } 
+        name_trunc(G.RDB$GENERATOR_NAME, s);
+        ib_fprintf(output_file, "\ndefine generator %s;", s);	
+    END_FOR;
+}
+
+
+static void extract_grants(TEXT * relname)
+{
+/**************************************
+ *
+ *	e x t r a c t _ g r a n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build as many GRANT statements as needed
+ *	for the relation from reading user privilge records.
+ *
+ **************************************/
+	TEXT relation_name[32], user_name[32], field_name[32], *user_priv;
+
+	if (EXT_capabilities & EXT_v4) {
+        FOR U IN RDB$USER_PRIVILEGES WITH U.RDB$RELATION_NAME EQ relname
+            AND U.RDB$OBJECT_TYPE EQ obj_relation
+            SORTED BY U.RDB$USER, U.RDB$PRIVILEGE 
+
+            switch (U.RDB$PRIVILEGE[0]) {
+            case 'S':
+                user_priv = "SELECT";
+                break;
+                
+            case 'U':
+                user_priv = "UPDATE";
+                break;
+                
+            case 'D':
+                user_priv = "DELETE";
+                break;
+                
+            case 'I':
+	           user_priv = "INSERT";
+	           break;
+	
+            case 'R':
+                /* None of the interfaces knows about the references privilege.
+                   Ignore it for now. */
+                
+                continue;
+                
+	       default:
+	           user_priv = "**unknown**";
+	           break;
+            }
+	
+            ib_fprintf(output_file, "\ngrant %s ", user_priv);
+            if (!U.RDB$FIELD_NAME.NULL) {
+                name_trunc(U.RDB$FIELD_NAME, field_name);
+                ib_fprintf(output_file, "(%s) ", field_name);
+            }
+            name_trunc(U.RDB$RELATION_NAME, relation_name);
+            name_trunc(U.RDB$USER, user_name);
+            ib_fprintf(output_file, "on %s to %s", relation_name, user_name);
+            if (U.RDB$GRANT_OPTION)
+                ib_fprintf(output_file, " with grant option");
+            ib_fprintf(output_file, ";\n");
+            
+        END_FOR;
+	}
+	else {
+        FOR U IN RDB$USER_PRIVILEGES WITH U.RDB$RELATION_NAME EQ relname
+            SORTED BY U.RDB$USER, U.RDB$PRIVILEGE switch (U.RDB$PRIVILEGE[0]) {
+            case 'S':
+                user_priv = "SELECT";
+                break;
+                
+            case 'U':
+                user_priv = "UPDATE";
+                break;
+                
+            case 'D':
+                user_priv = "DELETE";
+                break;
+                
+            case 'I':
+                user_priv = "INSERT";
+                break;
+                
+            case 'R':
+                /* None of the interfaces knows about the references privilege.
+                   Ignore it for now. */
+                
+                continue;
+                
+            default:
+                user_priv = "**unknown**";
+                break;
+            }
+        
+            ib_fprintf(output_file, "\ngrant %s ", user_priv);
+            if (!U.RDB$FIELD_NAME.NULL) {
+                name_trunc(U.RDB$FIELD_NAME, field_name);
+                ib_fprintf(output_file, "(%s) ", field_name);
+            }
+            name_trunc(U.RDB$RELATION_NAME, relation_name);
+            name_trunc(U.RDB$USER, user_name);
+            ib_fprintf(output_file, "on %s to %s", relation_name, user_name);
+            if (U.RDB$GRANT_OPTION)
+                ib_fprintf(output_file, " with grant option");
+            ib_fprintf(output_file, ";\n");
+            
+	    END_FOR;
+	}
+}
+
+
+static void extract_indexes(void)
+{
+/**************************************
+ *
+ *	e x t r a c t _ i n d e x e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read definitions of indexes
+ *	and write them to the output file.
+ *
+ **************************************/
+	TEXT index[32], relation[32], field[32], *p;
+	BOOLEAN first;
+
+	first = TRUE;
+
+/* this query gets all IDX which donot have the systemflag set and
+   further sorts them by realtion name and index name */
+    FOR I IN RDB$INDICES CROSS R IN RDB$RELATIONS
+        OVER RDB$RELATION_NAME
+        WITH(R.RDB$SYSTEM_FLAG NE 1 OR R.RDB$SYSTEM_FLAG MISSING)
+        SORTED BY I.RDB$RELATION_NAME, I.RDB$INDEX_NAME 
+        if (first) {
+            put_comment(291);       /* msg 291: \n\n\tIndex Definitions\t */
+            first = FALSE;
+        } 
+        if (!I.RDB$UNIQUE_FLAG.NULL && I.RDB$UNIQUE_FLAG == 1)
+            p = "unique";
+        else
+            p = "";
+        name_trunc(I.RDB$INDEX_NAME, index);
+        name_trunc(I.RDB$RELATION_NAME, relation);
+        ib_fprintf(output_file, "\ndefine index %s for %s %s",
+                   index, relation, p);
+        
+        if (!BLOB_NULL(I.RDB$DESCRIPTION)) {
+            ib_fprintf(output_file, "\n\t{");
+               print_blob(&I.RDB$DESCRIPTION, 'u');
+               ib_fprintf(output_file, "}");
+        }
+        
+        if (EXT_capabilities & EXT_idx_inactive)
+            FOR ACT IN RDB$INDICES WITH ACT.RDB$INDEX_NAME = index
+                if (ACT.RDB$INDEX_INACTIVE) 
+                    ib_fprintf(output_file, "\ninactive");
+        END_FOR;
+        
+        if (EXT_capabilities & EXT_v3)
+            FOR ACT IN RDB$INDICES WITH ACT.RDB$INDEX_NAME = index
+                   if (ACT.RDB$INDEX_TYPE == IDX_type_descend)
+                       ib_fprintf(output_file, "\ndescending");
+        END_FOR;
+        
+        
+        p = "";
+	
+        FOR I_S IN RDB$INDEX_SEGMENTS WITH
+            I_S.RDB$INDEX_NAME = I.RDB$INDEX_NAME
+            SORTED BY I_S.RDB$FIELD_POSITION
+            name_trunc(I_S.RDB$FIELD_NAME, field);
+            ib_fprintf(output_file, "%s\n\t%s", p, field);
+            p = ",";
+        
+        END_FOR;
+	
+        ib_fprintf(output_file, ";\n");
+    END_FOR;
+}
+
+
+static void extract_relations(void)
+{
+/**************************************
+ *
+ *	e x t r a c t _ r e l a t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read relation  definitions
+ *	and write them to the output file.
+ *
+ **************************************/
+	BOOLEAN first;
+	TEXT s[256];
+
+	first = TRUE;
+
+	if (EXT_capabilities & EXT_external) {
+        FOR R IN RDB$RELATIONS WITH
+            (R.RDB$SYSTEM_FLAG NE 1 OR R.RDB$SYSTEM_FLAG MISSING) AND
+            R.RDB$VIEW_BLR MISSING SORTED BY R.RDB$RELATION_NAME 
+            if (first) {
+                put_comment(258);   /* msg 258: \n\n\tRelation Definitions\t */
+                first = FALSE;
+            } 
+            name_trunc(R.RDB$RELATION_NAME, s);
+            ib_fprintf(output_file, "\ndefine relation %s", s);
+	
+            if (!R.RDB$EXTERNAL_FILE.NULL && name_trunc(R.RDB$EXTERNAL_FILE, s))
+                ib_fprintf(output_file, "\n\texternal_file \"%s\"", s);
+            
+            if (R.RDB$SYSTEM_FLAG)
+                ib_fprintf(output_file, "\n\tsystem_flag %d", R.RDB$SYSTEM_FLAG);
+            if (!BLOB_NULL(R.RDB$DESCRIPTION)) {
+                ib_fprintf(output_file, "\n\t{");
+                print_blob(&R.RDB$DESCRIPTION, 'u');
+                ib_fprintf(output_file, "}");
+            }
+            extract_rfr(R.RDB$RELATION_NAME);
+            ib_fprintf(output_file, ";\n");
+        END_FOR;
+	}
+	else {
+        FOR R IN RDB$RELATIONS WITH
+            (R.RDB$SYSTEM_FLAG NE 1 OR R.RDB$SYSTEM_FLAG MISSING) AND
+            R.RDB$VIEW_BLR MISSING SORTED BY R.RDB$RELATION_NAME 
+            if (first) {
+                put_comment(258);   /* msg 258: \n\n\tRelation Definitions\t */
+                first = FALSE;
+            } 
+            name_trunc(R.RDB$RELATION_NAME, s);
+            ib_fprintf(output_file, "\ndefine relation %s", s);
+            
+            if (R.RDB$SYSTEM_FLAG)
+                ib_fprintf(output_file, "\n\tsystem_flag %d", R.RDB$SYSTEM_FLAG);
+            if (!BLOB_NULL(R.RDB$DESCRIPTION)) {
+                ib_fprintf(output_file, "\n\t{");
+                print_blob(&R.RDB$DESCRIPTION, 'u');
+                ib_fprintf(output_file, "}");
+            }
+            extract_rfr(R.RDB$RELATION_NAME);
+            ib_fprintf(output_file, ";\n");
+        END_FOR;
+	}
+
+}
+
+
+static void extract_rfr(TEXT * relation_name)
+{
+/**************************************
+ *
+ *	e x t r a c t _ r f r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the field descriptions for a relation
+ *	and write them to the output file.
+ *
+ **************************************/
+	BOOLEAN first;
+	TEXT s[32], *p;
+
+	first = TRUE;
+	p = "";
+
+	FOR RFR IN RDB$RELATION_FIELDS CROSS F IN RDB$FIELDS
+        WITH RFR.RDB$RELATION_NAME = relation_name
+        AND F.RDB$FIELD_NAME = RFR.RDB$FIELD_SOURCE
+        AND F.RDB$COMPUTED_BLR MISSING
+        SORTED BY RFR.RDB$FIELD_POSITION 
+
+        ib_fprintf(output_file, "%s\n", p);
+        if (first) {
+            p = ",";
+            first = FALSE;
+        }
+        
+        name_trunc(RFR.RDB$FIELD_NAME, s);
+        ib_fprintf(output_file, "    %s", s);
+        if (strcmp(RFR.RDB$FIELD_NAME, RFR.RDB$FIELD_SOURCE)) {
+            name_trunc(RFR.RDB$FIELD_SOURCE, s);
+            ib_fprintf(output_file, " based on %s", s);
+        }
+	
+        if (!RFR.RDB$FIELD_POSITION.NULL)
+            ib_fprintf(output_file, "\tposition %d", RFR.RDB$FIELD_POSITION);
+        
+        field_attributes(&RFR.RDB$DESCRIPTION, RFR.RDB$QUERY_NAME,
+                         &RFR.RDB$QUERY_HEADER, RFR.RDB$EDIT_STRING,
+                         RFR.RDB$SYSTEM_FLAG);
+    END_FOR;
+
+	extract_computed(relation_name, first);
+}
+
+
+static void extract_security(void)
+{
+/**************************************
+ *
+ *	e x t r a c t _ s e c u r i t y 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get security class information for
+ *	relations, views, and fields.
+ *
+ **************************************/
+	BOOLEAN first, first_field;
+	TEXT r[32], s[32], f[32], *p, rel1[32], rel2[32];
+	TEXT modify;
+	USHORT count;
+
+	first = TRUE;
+
+    FOR R IN RDB$RELATIONS 
+        first_field = TRUE;
+        modify = FALSE;
+        name_trunc(R.RDB$RELATION_NAME, r);
+        p = (R.RDB$VIEW_BLR.NULL) ? "relation" : "view";
+        if (!R.RDB$SECURITY_CLASS.NULL && name_trunc(R.RDB$SECURITY_CLASS, s)) {
+            /* skip modify relation/view add security class if we have just a stub -
+               i.e. security_class is 'SQL$..' and has no rdb$user_privilege entry and
+               relation_name matches 'SQL$relation_name'  */
+            /* doesn't hurt to extract even if redundant with GRANT statement - i.e. 
+               security_class is 'SQL$..' and has rdb$user_privilege entries */
+            /* extract if security_class is 'SQL$..' but relation_name doesn't match
+               'SQL$relation_name' */
+            /* extract if security_class doesn't start with 'SQL$' */
+	
+            if (EXT_capabilities & EXT_v3) {
+                if (strncmp(R.RDB$SECURITY_CLASS, "SQL$", 4) == 0) {
+                    count = 0;
+	               name_trunc(&R.RDB$SECURITY_CLASS[4], rel1);
+	               name_trunc(R.RDB$RELATION_NAME, rel2);
+	               if (strcmp(rel1, rel2) == 0) {
+	                   FOR U IN RDB$USER_PRIVILEGES
+	                       WITH U.RDB$RELATION_NAME EQ R.RDB$RELATION_NAME
+	                       count++;
+	                   END_FOR;
+	               }
+	               else
+	                   count = 1;
+	               if (!count)
+	                   continue;
+                }
+            }
+            
+            if (first) {
+	           put_comment(259);   /* msg 259: \n\tAdd Security Classes to Defined Objects\t\n  */
+	           first = FALSE;
+            }
+            
+	       ib_fprintf(output_file, "\nmodify %s %s\n\tsecurity_class %s", p, r,
+	                  s);
+	       modify = TRUE;
+        }
+        
+        FOR RFR IN RDB$RELATION_FIELDS
+            WITH RFR.RDB$RELATION_NAME EQ R.RDB$RELATION_NAME AND
+            RFR.RDB$SECURITY_CLASS NOT MISSING 
+            name_trunc(RFR.RDB$FIELD_NAME, f);
+            if (name_trunc(RFR.RDB$SECURITY_CLASS, s)) {
+                if (first) {
+                    put_comment(259);   /* msg 259: \n\tAdd Security Classes to Defined Objects\t\n  */
+                    first = FALSE;
+                }
+                
+                if (!modify) {
+	           ib_fprintf(output_file, "\nmodify %s %s", p, r);
+	           modify = TRUE;
+                }
+	
+                if (!first_field)
+                    ib_fprintf(output_file, ",");
+                first_field = FALSE;
+                ib_fprintf(output_file, "\n    modify field %s security_class %s", f,
+                           s);
+            }
+            
+        END_FOR;
+        if (modify)
+            ib_fprintf(output_file, ";\n");	
+    END_FOR;
+}
+
+
+static void extract_triggers(void)
+{
+/**************************************
+ *
+ *	e x t r a c t _ t r i g g e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get trigger definitions from
+ *	rdb$triggers for each relation.
+ *
+ **************************************/
+	BOOLEAN first;
+	TEXT s[32], st[32];
+
+	first = TRUE;
+
+    FOR T IN RDB$TRIGGERS WITH
+        (T.RDB$SYSTEM_FLAG NE 1 OR T.RDB$SYSTEM_FLAG MISSING)
+        SORTED BY T.RDB$TRIGGER_NAME 
+        if (first) {
+            put_comment(260);       /* msg 260: \n\n\tTrigger Definitions\t */
+            first = FALSE;
+        } 
+        name_trunc(T.RDB$TRIGGER_NAME, st);
+        ib_fprintf(output_file, "\n\ndefine trigger %s", st);
+        name_trunc(T.RDB$RELATION_NAME, s);
+        ib_fprintf(output_file, " for %s\n", s);
+        
+        if (T.RDB$TRIGGER_INACTIVE)
+            ib_fprintf(output_file, "\tinactive\n");
+        
+        switch (T.RDB$TRIGGER_TYPE) {
+        case (SSHORT) trg_store:
+            ib_fprintf(output_file, "\tpre store");
+            break;
+            
+        case (SSHORT) trg_post_store:
+            ib_fprintf(output_file, "\tpost store");
+            break;
+            
+        case (SSHORT) trg_modify:
+	       ib_fprintf(output_file, "\tpre modify");
+	       break;
+           
+        case (SSHORT) trg_post_modify:
+	       ib_fprintf(output_file, "\tpost modify");
+	       break;
+           
+        case (SSHORT) trg_pre_erase:
+            ib_fprintf(output_file, "\tpre erase");
+            break;
+            
+        case (SSHORT) trg_erase:
+            ib_fprintf(output_file, "\tpost erase");
+            break;
+	
+        default:
+            put_comment(261);       /* msg 261: ***** trigger type not understood **** */
+	   }
+        
+        ib_fprintf(output_file, " %d:\n", T.RDB$TRIGGER_SEQUENCE);
+        if (T.RDB$TRIGGER_SOURCE.NULL) {
+            put_error(262, st);
+            /* msg 262: **** trigger source for trigger %s must be recreated **** */
+        }
+        else {
+            print_blob(&T.RDB$TRIGGER_SOURCE, 'u');
+        }
+        ib_fprintf(output_file, "\n\tend_trigger");
+        if (!BLOB_NULL(T.RDB$DESCRIPTION)) {
+            ib_fprintf(output_file, "\n\t{");
+            print_blob(&T.RDB$DESCRIPTION, 'u');
+            ib_fprintf(output_file, "}");
+        }
+        extract_trig_msgs(T.RDB$TRIGGER_NAME);
+        
+        ib_fprintf(output_file, ";");
+    END_FOR;
+}
+
+
+static void extract_trig_msgs(TEXT * trigger_name)
+{
+/**************************************
+ *
+ *	e x t r a c t _ t r i g _ m s g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the trigger messages as part of the trigger definition
+ *	and write them to the output file.
+ *
+ **************************************/
+	BOOLEAN first;
+	TEXT s[32], *p, quote_char;
+
+	first = TRUE;
+	p = " ";
+
+/* delimit message with single quote by default */
+
+	quote_char = 39;
+
+    FOR TM IN RDB$TRIGGER_MESSAGES
+        WITH TM.RDB$TRIGGER_NAME = trigger_name
+        SORTED BY TM.RDB$MESSAGE_NUMBER
+        /* If message has a ' in it, delimit with " instead */
+        if (strchr(TM.RDB$MESSAGE, 39) != NULL)
+            quote_char = 34;
+        ib_fprintf(output_file, "%s\n", p);
+        if (first) {
+            p = ",";
+            first = FALSE;
+        }
+        ib_fprintf(output_file, "\tmessage ");
+        ib_fprintf(output_file, " %d: ", TM.RDB$MESSAGE_NUMBER);
+        ib_fprintf(output_file, " %c%s%c", quote_char, TM.RDB$MESSAGE,
+	              quote_char);
+    END_FOR;
+} 
+
+
+static void extract_view(TEXT * rel_name,
+						 SLONG * source,
+						 SLONG * description,
+						 USHORT source_null,
+                         USHORT desc_null, USHORT system_flag, BOOLEAN * first)
+{
+/**************************************
+ *
+ *	e x t r a c t _ v i e w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get definitions of a view and its fields
+ *	and write it to the output file.
+ *
+ **************************************/
+	TEXT s[32];
+
+	if (*first) {
+		*first = FALSE;
+		put_comment(266);		/* msg 266: \n\n\tView Definitions\t */
+	}
+
+	name_trunc(rel_name, s);
+	ib_fprintf(output_file, "\ndefine view %s of ", s);
+	if (source_null) {
+		put_error(267, s);		/* msg 267: **** view definition %s must be recreated **** */
+		return;
+	}
+
+	print_blob(source, 'u');
+
+	if (system_flag)
+		ib_fprintf(output_file, "\n\tsystem_flag %d", system_flag);
+
+	if (!desc_null) {
+		ib_fprintf(output_file, "\t{");
+		print_blob(description, 'u');
+		ib_fprintf(output_file, "}");
+	}
+
+	view_fields(rel_name);
+	ib_fprintf(output_file, ";\n");
+}
+
+
+static void extract_views(void)
+{
+/**************************************
+ *
+ *	e x t r a c t _ v i e w s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get definitions of views and their fields
+ *	and write it to the output file.
+ *
+ **************************************/
+	BOOLEAN first;
+	USHORT source_null, desc_null, did_any, do_this_one;
+	VIEW view_list, view, *view_ptr;
+	TEXT s[32], *view_name;
+
+	first = TRUE;
+
+	if (!(EXT_capabilities & EXT_v3)) {
+		/* In V2 we have no choice but to output views in the order they appear */
+
+        FOR V IN RDB$RELATIONS WITH
+            (V.RDB$SYSTEM_FLAG NE 1 OR V.RDB$SYSTEM_FLAG MISSING) AND
+            V.RDB$VIEW_BLR NOT MISSING
+            SORTED BY V.RDB$RELATION_NAME
+            source_null = V.RDB$VIEW_SOURCE.NULL ? TRUE : FALSE;
+            desc_null = BLOB_NULL(V.RDB$DESCRIPTION) ? TRUE : FALSE;
+	        extract_view(V.RDB$RELATION_NAME, &V.RDB$VIEW_SOURCE,
+                         &V.RDB$DESCRIPTION, source_null, desc_null,
+                         V.RDB$SYSTEM_FLAG, &first);
+	
+	    END_FOR;
+		return;
+	}
+
+/* In V3 there are dependencies that can help us to output the views in
+   the correct order.  But first let's just save the names of the views. */
+
+	view_list = NULL;
+
+    FOR V IN RDB$RELATIONS WITH
+        (V.RDB$SYSTEM_FLAG NE 1 OR V.RDB$SYSTEM_FLAG MISSING) AND
+        V.RDB$VIEW_BLR NOT MISSING
+        SORTED BY DESC V.RDB$RELATION_NAME name_trunc(V.RDB$RELATION_NAME, s);
+        view = (VIEW) DDL_alloc(sizeof(struct view) + strlen(s));
+        strcpy(view->view_name, s);
+        view->view_next = view_list;
+        view_list = view;
+        
+	END_FOR;
+
+	if (!view_list)
+		return;
+
+    /* For each view that was found, look for any views in the list that it is
+   dependent on.  When a view is found that isn't dependent on any views
+   still in the list, dump it out and remove it from the list.  Continue
+   going through the list until nothing more can be done. */
+
+	do {
+		for (did_any = FALSE, view_ptr = &view_list; *view_ptr;) {
+			do_this_one = TRUE;
+			view_name = (*view_ptr)->view_name;
+            
+			/* fields of rdb$dependencies have been renamed for V4.0
+			   This means if we are extracting a pre V3 definition, views
+			   will not be spit out in the optimal order. */
+
+			if (EXT_capabilities & EXT_v4) {
+                FOR D IN RDB$DEPENDENCIES WITH
+                    D.RDB$DEPENDENT_NAME EQ view_name AND
+                    D.RDB$DEPENDENT_TYPE EQ 0 AND
+                    D.RDB$DEPENDED_ON_TYPE EQ 0
+                    name_trunc(D.RDB$DEPENDED_ON_NAME, s);
+                    for (view = view_list; view; view = view->view_next)
+                        if (!strcmp(s, view->view_name)) {
+                            do_this_one = FALSE;
+                            break;
+                        }
+                END_FOR;
+			}
+			if (do_this_one) {
+                FOR V IN RDB$RELATIONS WITH
+                    V.RDB$RELATION_NAME EQ view_name
+                    source_null = V.RDB$VIEW_SOURCE.NULL ? TRUE : FALSE;
+                    desc_null = BLOB_NULL(V.RDB$DESCRIPTION) ? TRUE : FALSE;
+                    extract_view(V.RDB$RELATION_NAME, &V.RDB$VIEW_SOURCE,
+                                 &V.RDB$DESCRIPTION, source_null, desc_null,
+                                 V.RDB$SYSTEM_FLAG, &first);
+	
+	            END_FOR;
+				did_any = TRUE;
+				*view_ptr = (*view_ptr)->view_next;
+			}
+			else
+				view_ptr = &(*view_ptr)->view_next;
+		}
+	} while (did_any);
+    
+    /* If any views remain, we can't figure out an order so just dump them */
+    
+	for (view = view_list; view; view = view->view_next) {
+        FOR V IN RDB$RELATIONS WITH
+            V.RDB$RELATION_NAME EQ view->view_name
+            source_null = V.RDB$VIEW_SOURCE.NULL ? TRUE : FALSE;
+            desc_null = BLOB_NULL(V.RDB$DESCRIPTION) ? TRUE : FALSE;
+	         extract_view(V.RDB$RELATION_NAME, &V.RDB$VIEW_SOURCE,
+                          &V.RDB$DESCRIPTION, source_null, desc_null,
+                          V.RDB$SYSTEM_FLAG, &first);
+	
+        END_FOR;
+	}
+}
+
+
+static void field_attributes(SLONG * descr,
+							 TEXT * query_name,
+							 SLONG * query_header,
+							 TEXT * edit_string, SSHORT system_flag)
+{
+/**************************************
+ *
+ *	f i e l d _ a t t r i b u t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print miscellaneous field attributes.
+ *
+ **************************************/
+	TEXT s[256];
+
+	if (descr && (descr[0] || descr[1])) {
+		ib_fprintf(output_file, "\n\t{");
+		print_blob(descr, 'u');
+		ib_fprintf(output_file, "}");
+	}
+
+	if (system_flag)
+		ib_fprintf(output_file, "\n\tsystem_flag %d", system_flag);
+
+	if (query_name && name_trunc(query_name, s))
+		ib_fprintf(output_file, "\n\tquery_name %s", s);
+
+	if (query_header && (query_header[0] || query_header[1])) {
+		ib_fprintf(output_file, "\n\tquery_header ");
+		print_blob(query_header, 'h');
+	}
+
+	if (edit_string && name_trunc(edit_string, s))
+		if (strchr(s, '"'))
+			ib_fprintf(output_file, "\n\tedit_string \'%s\'", s);
+		else
+			ib_fprintf(output_file, "\n\tedit_string \"%s\"", s);
+}
+
+
+static void format_acl(SCHAR * string)
+{
+/**************************************
+ *
+ *	f o r m a t _ a c l
+ *
+ **************************************
+ *
+ * Functional description
+ * 	Format an access control list.
+ *
+ **************************************/
+	SCHAR *p, c;
+	TEXT view[32], group[32], user[32], person[41],
+		project[41], organization[41], node[41], temp[40];
+	BOOLEAN first;
+	int l;
+
+	p = string;
+	first = TRUE;
+
+	if (*p++ != ACL_version)
+		put_comment(268);		/* msg 268: ***** ACL not understood ***** */
+	else
+		ib_fprintf(output_file, "\n");
+
+	while (*p)
+		switch (*p++) {
+		case ACL_id_list:
+			*view = *user = *group = FALSE;
+			*person = *project = *organization = *node = FALSE;
+			if (!first)
+				ib_fprintf(output_file, ",\n");
+			else
+				first = FALSE;
+
+			ib_fputc('\t', output_file);
+			while (c = *p++) {
+				switch (c) {
+				case id_view:
+					l = *p++;
+					strncpy(view, p, l);
+					view[l] = 0;
+					break;
+
+				case id_group:
+					l = *p++;
+					strncpy(group, p, l);
+					group[l] = 0;
+					break;
+
+				case id_user:
+					l = *p++;
+					strncpy(user, p, l);
+					user[l] = 0;
+					break;
+
+				case id_person:
+					l = *p++;
+					strncpy(person, p, l);
+					person[l] = 0;
+					break;
+
+				case id_project:
+					l = *p++;
+					strncpy(temp, p, l);
+					temp[l] = 0;
+					sprintf(project, ".%s", temp);
+					break;
+
+				case id_organization:
+					l = *p++;
+					strncpy(temp, p, l);
+					temp[l] = 0;
+					sprintf(organization, ".%s", temp);
+					break;
+
+				case id_node:
+					l = *p++;
+					strncpy(temp, p, l);
+					temp[l] = 0;
+					sprintf(node, ".%s", temp);
+					break;
+
+				}
+				p += l;
+			}
+
+/* 
+   Here we try to decompose the identifier.  Views are easy, they're just views.
+   If its not a view, it may be a user/group pair or just the user or just the group.
+   Those are operating system dependant.  Otherwise, its an Apollo identifier.
+*/
+
+			if (*view)
+				ib_fprintf(output_file, "view %s ", view);
+			else
+				ib_fprintf(output_file, "<%s,%s> ",
+						   (*group) ? group : (TEXT *) "*",
+						   (*user) ? user : (TEXT *) "*");
+			break;
+
+		case ACL_priv_list:
+			while (c = *p++)
+				ib_fputc(acl_privs[c], output_file);
+			break;
+		}
+}
+
+
+static int name_trunc(TEXT * in, TEXT * out)
+{
+/**************************************
+ *
+ *	n a m e _ t r u n c
+ *
+ **************************************
+ *
+ * Functional description
+ * 	Copy a name (or other single word)
+ *	to the output string, elmininating
+ *	trailing blanks.
+ *
+ **************************************/
+	TEXT *start;
+
+	if (!in || *in == ' ')
+		return NULL;
+
+	start = out;
+
+	while (*in && *in != ' ')
+		*out++ = *in++;
+
+	*out = 0;
+
+	return *start;
+}
+
+
+static void print_blob(SLONG * blob_id, TEXT type)
+{
+/**************************************
+ *
+ *	p r i n t _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the contents of an blob
+ *	and write them to the output file.
+ *	Blobs are characterized as "u" for
+ *	unspecified, "m" for missing values
+ *	to decode, "h" meaning query
+ *	headers that need formatting and "a"
+ *	for acls. 
+ *
+ **************************************/
+	BOOLEAN first;
+	TEXT buffer[4096];
+	SCHAR blr_buffer[2048], *p, *q;
+	SSHORT length;
+	STATUS status_vector[20], status;
+	SLONG *blob;
+	UCHAR bpb_buffer[20], *bpb, *r;
+
+	blob = NULL;
+	bpb = r = bpb_buffer;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+	if ((type == 'u') || (type == 'h')) {
+		/* create bpb for description blob and query header blob */
+
+		*r++ = gds__bpb_version1;
+		*r++ = gds__bpb_target_interp;
+		*r++ = 2;
+		*r++ = DDL_interp;
+		*r++ = DDL_interp >> 8;
+	}
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+	if (gds__open_blob2(status_vector,
+						GDS_REF(DB),
+						GDS_REF(gds__trans),
+						GDS_REF(blob),
+						GDS_VAL(blob_id), (USHORT) (r - bpb), bpb)) {
+		gds__print_status(status_vector);
+		DDL_err(269, NULL, NULL, NULL, NULL, NULL);	/* msg 269: gds__open_blob failed */
+		return;
+	}
+
+	first = TRUE;
+	if (type == 'm' || type == 'a') {
+		p = blr_buffer;
+		*blr_buffer = 0;
+	}
+
+	while (!(status = gds__get_segment(status_vector,
+									   GDS_REF(blob),
+									   GDS_REF(length),
+									   (USHORT) (sizeof(buffer) - 1),
+									   buffer)) || status == gds__segment) {
+		buffer[length] = 0;
+		switch (type) {
+		case 'h':
+			if (q = (SCHAR *) strchr(buffer, '\n')) {
+				p = buffer;
+				do {
+					*q = 0;
+					ib_fprintf(output_file, "\"%s\" / ", p);
+					p = q + 1;
+				} while (q = (SCHAR *) strchr(p, '\n'));
+				ib_fprintf(output_file, "\"%s\"", p);
+				first = FALSE;
+				break;
+			}
+			if (!first)
+				ib_fprintf(output_file, " / ");
+			first = FALSE;
+			ib_fprintf(output_file, "\"%s\"", buffer);
+			break;
+
+		case 'a':
+		case 'm':
+			q = (SCHAR *) buffer;
+			while (length--)
+				*p++ = *q++;
+			break;
+
+		case 'u':
+			for (p = (SCHAR *) buffer; *p; p++)
+				ib_putc(*p, output_file);
+			break;
+
+		default:
+			put_comment(270);	/* msg 270: ***** blob option not understood **** */
+		}
+	}
+
+	if (status_vector[1] != gds__segstr_eof) {
+		gds__print_status(status_vector);
+		DDL_err(271, NULL, NULL, NULL, NULL, NULL);	/* msg 271: gds__get_segment failed  */
+		return;
+	}
+
+	if (gds__close_blob(status_vector, GDS_REF(blob))) {
+		gds__print_status(status_vector);
+		DDL_err(272, NULL, NULL, NULL, NULL, NULL);	/* msg 272: gds__close_blob failed */
+		return;
+	}
+
+	if (type == 'm')
+		decompile_blr_literal(blr_buffer);
+
+	if (type == 'a')
+		format_acl(blr_buffer);
+}
+
+
+static void put_comment(USHORT number)
+{
+/**************************************
+ *
+ *	p u t _ c o m m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, 
+ *	format it, and print it in the output file
+ *	but not on the screen
+ *
+ **************************************/
+	TEXT message[256];
+
+	gds__msg_format(NULL_PTR, DDL_MSG_FAC, number, sizeof(message), message,
+					NULL, NULL, NULL, NULL, NULL);
+	ib_fprintf(output_file, "%s\n\n", message);
+}
+
+
+static void put_error(USHORT number, TEXT * arg1)
+{
+/**************************************
+ *
+ *	p u t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, 
+ *	format it, and print it in the output file
+ *	and on the screen
+ *
+ **************************************/
+	TEXT message[256];
+
+	gds__msg_format(NULL_PTR, DDL_MSG_FAC, number, sizeof(message), message,
+					arg1, NULL, NULL, NULL, NULL);
+	ib_fprintf(output_file, "%s\n\n", message);
+	ib_printf("%s\n", message);
+}
+
+
+static void set_capabilities(void)
+{
+/**************************************
+ *
+ *	s e t _ c a p a b i l i t i e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	set the capabilities bits for the
+ *	database being extracted to avoid
+ *	unpleasantness later.
+ *
+ **************************************/
+	ULONG *req;
+	STATUS status_vector[20];
+	RFR_TAB rel_field_table;
+
+	req = NULL;
+
+/* Look for desireable fields in system relations */
+
+	for (rel_field_table = rfr_table; rel_field_table->relation;
+		 rel_field_table++) {
+	       FOR(REQUEST_HANDLE req) x IN RDB$RELATION_FIELDS WITH x.
+	           RDB$RELATION_NAME =
+	           rel_field_table->relation AND x.RDB$FIELD_NAME =
+	           rel_field_table->field EXT_capabilities |=
+	           rel_field_table->bit_mask;
+	       END_FOR;
+	}
+
+	gds__release_request(gds__status, GDS_REF(req));
+}
+
+
+static void type_scalar(USHORT dtype,
+						SSHORT scale,
+						USHORT length,
+						SSHORT subtype, USHORT dim, TEXT * field_name)
+{
+/**************************************
+ *
+ *	t y p e _ s c a l a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Finish out the kernel field definition of a
+ *	non-blob type field.
+ *
+ **************************************/
+	TEXT c;
+
+	switch (dtype) {
+	case blr_cstring:
+		ib_fprintf(output_file, " cstring [%d]", length);
+		break;
+
+	case blr_text:
+		ib_fprintf(output_file, " char [%d]", length);
+		break;
+
+	case blr_varying:
+		ib_fprintf(output_file, " varying [%d]", length);
+		break;
+
+	case blr_short:
+		ib_fprintf(output_file, " short");
+		break;
+
+	case blr_long:
+		ib_fprintf(output_file, " long");
+		break;
+
+	case blr_quad:
+		ib_fprintf(output_file, " quad");
+		break;
+
+	case blr_timestamp:
+		ib_fprintf(output_file, " date");
+		break;
+
+	case blr_sql_date:
+		ib_fprintf(output_file, " date sub_type sql_date");
+		break;
+
+	case blr_sql_time:
+		ib_fprintf(output_file, " date sub_type sql_time");
+		break;
+
+	case blr_float:
+		ib_fprintf(output_file, " float");
+		break;
+
+	case blr_double:
+		ib_fprintf(output_file, " double");
+		break;
+
+	case blr_int64:
+		ib_fprintf(output_file, " integer64");
+		break;
+
+	default:
+		ib_fprintf(output_file, " UNKNOWN");
+		break;
+	}
+
+	if (dim) {
+		c = '(';
+        FOR D IN RDB$FIELD_DIMENSIONS WITH 
+            D.RDB$FIELD_NAME EQ field_name 
+            SORTED BY D.RDB$DIMENSION 
+            if (D.RDB$LOWER_BOUND  == 1)
+                ib_fprintf(output_file, "%c%d", c, D.RDB$UPPER_BOUND);
+            else
+                ib_fprintf(output_file, "%c%d:%d", c, D.RDB$LOWER_BOUND,
+                           D.RDB$UPPER_BOUND);
+            c = ',';
+	    END_FOR;
+        ib_fprintf(output_file, ")");
+	}
+
+	if (scale)
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+		if (dtype != blr_text && dtype != blr_cstring && dtype != blr_varying)
+#endif
+			ib_fprintf(output_file, " scale %d", scale);
+
+	if (subtype
+		&& (dtype == blr_text || dtype == blr_varying
+			|| dtype == blr_cstring)) if (subtype == 1)
+			ib_fprintf(output_file, " sub_type fixed");
+		else
+			ib_fprintf(output_file, " sub_type %d", subtype);
+}
+
+
+static void view_fields(TEXT * view_name)
+{
+/**************************************
+ *
+ *	v i e w _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out the view fields, including
+ *	such oddities as context variables.
+ *
+ **************************************/
+	BOOLEAN first;
+	TEXT s[32], context[32], temp[32];
+
+	first = TRUE;
+	context[0] = 0;
+
+    FOR RFR IN RDB$RELATION_FIELDS CROSS
+        VR IN RDB$VIEW_RELATIONS
+        WITH RFR.RDB$RELATION_NAME = view_name
+        AND RFR.RDB$VIEW_CONTEXT != 0 AND
+        VR.RDB$VIEW_NAME = RFR.RDB$RELATION_NAME AND
+        VR.RDB$VIEW_CONTEXT = RFR.RDB$VIEW_CONTEXT
+        SORTED BY RFR.RDB$FIELD_POSITION 
+        if (!first)
+            ib_fprintf(output_file, ",\n");
+        else
+            first = FALSE;
+        name_trunc(RFR.RDB$FIELD_NAME, s);
+        if (EXT_capabilities & EXT_context_name) {
+            FOR VR2 IN RDB$VIEW_RELATIONS WITH
+                VR2.RDB$VIEW_NAME = VR.RDB$VIEW_NAME AND
+                VR2.RDB$VIEW_CONTEXT = VR.RDB$VIEW_CONTEXT
+                name_trunc(VR2.RDB$CONTEXT_NAME, context);
+            END_FOR;
+            if (!(strcmp(RFR.RDB$FIELD_NAME, RFR.RDB$BASE_FIELD)))
+                ib_fprintf(output_file, "    %s.%s", context, s);
+            else {
+                name_trunc(RFR.RDB$BASE_FIELD, temp);
+                ib_fprintf(output_file, "    %s FROM %s.%s", s, context, temp);
+            }
+            if (!RFR.RDB$FIELD_POSITION.NULL)
+                ib_fprintf(output_file, "\tposition %d", RFR.RDB$FIELD_POSITION);
+            
+            field_attributes(&RFR.RDB$DESCRIPTION, RFR.RDB$QUERY_NAME,
+                             &RFR.RDB$QUERY_HEADER, RFR.RDB$EDIT_STRING,
+                             RFR.RDB$SYSTEM_FLAG);
+        }            
+	END_FOR;
+
+	extract_computed(view_name, first);
+}
+
+
+static void wal_info(UCHAR * db_info_buffer,
+					 SSHORT * num_buf,
+					 SLONG * buf_size, SLONG * chkpt_len, SLONG * grp_commit)
+{
+/**************************************
+ *
+ *	w a l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	UCHAR item;
+	UCHAR *d, *p;
+	SLONG length;
+
+	p = db_info_buffer;
+
+	while ((item = *p++) != gds__info_end) {
+		length = gds__vax_integer(p, 2);
+		p += 2;
+		switch (item) {
+		case gds__info_num_wal_buffers:
+			*num_buf = gds__vax_integer(p, length);
+			break;
+
+		case gds__info_wal_buffer_size:
+			*buf_size = gds__vax_integer(p, length);
+			break;
+
+		case gds__info_wal_ckpt_length:
+			*chkpt_len = gds__vax_integer(p, length);
+			break;
+
+		case gds__info_wal_grpc_wait_usecs:
+			*grp_commit = gds__vax_integer(p, length);
+			break;
+
+		default:
+			;
+		}
+		p += length;
+	}
+}
diff --git a/src/dudley/gener_proto.h b/src/dudley/gener_proto.h
new file mode 100644
index 0000000000..1d38e91f2e
--- /dev/null
+++ b/src/dudley/gener_proto.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	Data Definition Utility
+ *	MODULE:		gener_proto.h
+ *	DESCRIPTION:	Prototype header file for generate.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DUDLEY_GENER_PROTO_H_
+#define _DUDLEY_GENER_PROTO_H_
+
+extern int GENERATE_acl(SCL, UCHAR *);
+extern void GENERATE_blr(STR, NOD);
+
+#endif /* _DUDLEY_GENER_PROTO_H_ */
diff --git a/src/dudley/generate.cpp b/src/dudley/generate.cpp
new file mode 100644
index 0000000000..2fe74693c2
--- /dev/null
+++ b/src/dudley/generate.cpp
@@ -0,0 +1,645 @@
+/*
+ *	PROGRAM:	JRD Data Definition Utility
+ *	MODULE:		generate.c
+ *	DESCRIPTION:	Blr generator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../dudley/ddl.h"
+#include "../jrd/acl.h"
+#include "../dudley/gener_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../dudley/trn_proto.h"
+
+static void generate(STR, NOD);
+static void get_set_generator(STR, NOD);
+
+#define STUFF(c)	*blr->str_current++ = c
+#define STUFF_WORD(c)	{STUFF (c); STUFF (c >> 8);}
+#define CHECK_BLR(l)	{if ( !(blr->str_current - blr->str_start + l <= \
+                                blr->str_length) && !TRN_get_buffer (blr, l) )\
+                             DDL_err (289, NULL, NULL, NULL, NULL, NULL);}
+
+
+int GENERATE_acl( SCL class_, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	G E N E R A T E _ a c l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate an access control list.
+ *
+ **************************************/
+	UCHAR *p, *q, **id, c;
+	SCE item;
+	USHORT i;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+/* This does not need Japanization because Kanji User names are not supported */
+
+#endif
+
+	p = buffer;
+	*p++ = ACL_version;
+
+	for (item = class_->scl_entries; item; item = item->sce_next) {
+		*p++ = ACL_id_list;
+		for (i = 0, id = item->sce_idents; i < id_max; id++, i++)
+			if (q = *id) {
+				*p++ = i;
+				*p++ = strlen(q);
+				while (c = *q++)
+					*p++ = UPPER(c);
+			}
+		*p++ = priv_end;
+		*p++ = ACL_priv_list;
+		for (i = 0; i < priv_max; i++)
+			if (item->sce_privileges & (1 << i))
+				*p++ = i;
+		*p++ = id_end;
+	}
+
+	*p++ = ACL_end;
+
+	return p - buffer;
+}
+
+
+void GENERATE_blr( STR blr, NOD node)
+{
+/**************************************
+ *
+ *	G E N E R A T E _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a node tree into a blr string.
+ *
+ **************************************/
+
+	CHECK_BLR(1);
+	STUFF(blr_version4);
+	generate(blr, node);
+	CHECK_BLR(1);
+	STUFF(blr_eoc);
+}
+
+
+static void generate( STR blr, NOD node)
+{
+/**************************************
+ *
+ *	g e n e r a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate blr.
+ *
+ **************************************/
+	FLD field;
+	REL relation;
+	SYM symbol;
+	CON constant;
+	NOD sub, *arg, *end;
+	CTX context;
+	SCHAR operator, *p;
+	SLONG value;
+	USHORT l;
+
+	arg = node->nod_arg;
+	end = arg + node->nod_count;
+
+	switch (node->nod_type) {
+	case nod_fid:
+		CHECK_BLR(4);
+		STUFF(blr_fid);
+		STUFF(0);
+		STUFF_WORD(0);
+		return;
+
+	case nod_field:
+		CHECK_BLR(4);
+		if (sub = node->nod_arg[s_fld_subs])
+			STUFF(blr_index);
+		STUFF(blr_field);
+		field = (FLD) node->nod_arg[s_fld_field];
+		context = (CTX) node->nod_arg[s_fld_context];
+		STUFF(context->ctx_context_id);
+		symbol = field->fld_name;
+		STUFF(l = symbol->sym_length);
+		p = (SCHAR *) symbol->sym_string;
+		if (l) {
+			CHECK_BLR(l);
+			do
+				STUFF(*p++);
+			while (--l);
+		}
+		if (sub) {
+			CHECK_BLR(1);
+			STUFF(sub->nod_count);
+			for (arg = sub->nod_arg, end = arg + sub->nod_count; arg < end;
+				 arg++)
+				generate(blr, *arg);
+		}
+		return;
+
+	case nod_function:
+		CHECK_BLR(2);
+		STUFF(blr_function);
+		symbol = (SYM) node->nod_arg[1];
+		STUFF(l = symbol->sym_length);
+		p = (SCHAR *) symbol->sym_string;
+		if (l) {
+			CHECK_BLR(l);
+			do
+				STUFF(*p++);
+			while (--l);
+		}
+		sub = node->nod_arg[0];
+		CHECK_BLR(1);
+		STUFF(sub->nod_count);
+		for (arg = sub->nod_arg, end = arg + sub->nod_count; arg < end; arg++)
+			generate(blr, *arg);
+		return;
+
+	case nod_context:
+		context = (CTX) node->nod_arg[0];
+		relation = context->ctx_relation;
+		CHECK_BLR(2);
+		STUFF(blr_relation);
+		symbol = relation->rel_name;
+		STUFF(l = symbol->sym_length);
+		p = (SCHAR *) symbol->sym_string;
+		if (l) {
+			CHECK_BLR(l);
+			do
+				STUFF(*p++);
+			while (--l);
+		}
+		CHECK_BLR(1);
+		STUFF(context->ctx_context_id);
+		return;
+
+	case nod_gen_id:
+		CHECK_BLR(2);
+		STUFF(blr_gen_id);
+		symbol = (SYM) node->nod_arg[1];
+		STUFF(l = symbol->sym_length);
+		p = (SCHAR *) symbol->sym_string;
+		if (l) {
+			CHECK_BLR(l);
+			do
+				STUFF(*p++);
+			while (--l);
+		}
+		generate(blr, node->nod_arg[0]);
+		return;
+
+	case nod_set_generator:
+		get_set_generator(blr, node);
+		return;
+
+	case nod_user_name:
+		CHECK_BLR(1);
+		STUFF(blr_user_name);
+		return;
+
+	case nod_null:
+		CHECK_BLR(1);
+		STUFF(blr_null);
+		return;
+
+	case nod_literal:
+		CHECK_BLR(6);
+		STUFF(blr_literal);
+		constant = (CON) node->nod_arg[0];
+		l = constant->con_desc.dsc_length;
+		switch (constant->con_desc.dsc_dtype) {
+		case dtype_text:
+#if (!(defined JPN_SJIS || defined JPN_EUC))
+
+			STUFF(blr_text);
+
+#else
+
+			STUFF(blr_text2);
+			STUFF_WORD(DDL_interp)
+#endif
+				STUFF_WORD(l);
+			break;
+
+		case dtype_short:
+			CHECK_BLR(2);
+			STUFF(blr_short);
+			STUFF(constant->con_desc.dsc_scale);
+			break;
+
+		case dtype_long:
+			CHECK_BLR(2);
+			STUFF(blr_long);
+			STUFF(constant->con_desc.dsc_scale);
+			break;
+
+		case dtype_quad:
+			CHECK_BLR(2);
+			STUFF(blr_quad);
+			STUFF(constant->con_desc.dsc_scale);
+			break;
+
+		case dtype_real:
+			CHECK_BLR(1);
+			STUFF(blr_float);
+			break;
+
+		case dtype_double:
+			CHECK_BLR(1);
+			STUFF(blr_double);
+			break;
+
+		case dtype_timestamp:
+			CHECK_BLR(1);
+			STUFF(blr_timestamp);
+			break;
+
+		case dtype_int64:
+		case dtype_sql_time:
+		case dtype_sql_date:
+		default:
+			DDL_err(95, NULL, NULL, NULL, NULL, NULL);	/* msg 95: GENERATE_blr: dtype not supported */
+		}
+		p = (SCHAR *) constant->con_data;
+		switch (constant->con_desc.dsc_dtype) {
+		case dtype_short:
+			value = *(SSHORT *) p;
+			CHECK_BLR(2);
+			STUFF_WORD(value);
+			break;
+
+		case dtype_long:
+			value = *(SLONG *) p;
+			CHECK_BLR(4);
+			STUFF_WORD(value);
+			STUFF_WORD(value >> 16);
+			break;
+
+		case dtype_quad:
+		case dtype_timestamp:
+			value = *(SLONG *) p;
+			CHECK_BLR(8);
+			STUFF_WORD(value);
+			STUFF_WORD(value >> 16);
+			value = *(SLONG *) (p + 4);
+			STUFF_WORD(value);
+			STUFF_WORD(value >> 16);
+			break;
+
+		default:
+			if (l) {
+				CHECK_BLR(l);
+				do
+					STUFF(*p++);
+				while (--l);
+			}
+		}
+		return;
+
+	case nod_rse:
+		CHECK_BLR(2);
+		STUFF(blr_rse);
+		sub = node->nod_arg[s_rse_contexts];
+		STUFF(sub->nod_count);
+		for (l = 0, arg = sub->nod_arg; l < sub->nod_count; l++, arg++)
+			generate(blr, *arg);
+		if (sub = node->nod_arg[s_rse_first]) {
+			CHECK_BLR(1);
+			STUFF(blr_first);
+			generate(blr, sub);
+		}
+		if (sub = node->nod_arg[s_rse_boolean]) {
+			CHECK_BLR(1);
+			STUFF(blr_boolean);
+			generate(blr, sub);
+		}
+		if (sub = node->nod_arg[s_rse_sort]) {
+			CHECK_BLR(2);
+			STUFF(blr_sort);
+			STUFF(sub->nod_count / 2);
+			for (arg = sub->nod_arg, end = arg + sub->nod_count;
+				 arg < end; arg += 2) {
+				CHECK_BLR(1);
+				STUFF((arg[1]) ? blr_descending : blr_ascending);
+				generate(blr, arg[0]);
+			}
+		}
+		if (sub = node->nod_arg[s_rse_reduced]) {
+			CHECK_BLR(2);
+			STUFF(blr_project);
+			STUFF(sub->nod_count / 2);
+			for (arg = sub->nod_arg, end = arg + sub->nod_count;
+				 arg < end; arg += 2)
+				generate(blr, arg[0]);
+		}
+		CHECK_BLR(1);
+		STUFF(blr_end);
+		return;
+
+	case nod_count:
+	case nod_max:
+	case nod_min:
+	case nod_total:
+	case nod_average:
+	case nod_from:
+		switch (node->nod_type) {
+		case nod_count:
+			operator = blr_count;
+			break;
+		case nod_max:
+			operator = blr_maximum;
+			break;
+		case nod_min:
+			operator = blr_minimum;
+			break;
+		case nod_total:
+			operator = blr_total;
+			break;
+		case nod_average:
+			operator = blr_average;
+			break;
+		case nod_from:
+			operator = (node->nod_arg[s_stt_default]) ? blr_via : blr_from;
+			break;
+		}
+		CHECK_BLR(1);
+		STUFF(operator);
+		generate(blr, node->nod_arg[s_stt_rse]);
+		if (sub = node->nod_arg[s_stt_value])
+			generate(blr, sub);
+		if (sub = node->nod_arg[s_stt_default])
+			generate(blr, sub);
+		return;
+
+	case nod_any:
+		CHECK_BLR(1);
+		STUFF(blr_any);
+		generate(blr, node->nod_arg[0]);
+		return;
+
+	case nod_unique:
+		CHECK_BLR(1);
+		STUFF(blr_unique);
+		generate(blr, node->nod_arg[0]);
+		return;
+
+	case nod_if:
+		CHECK_BLR(1);
+		STUFF(blr_if);
+		generate(blr, *arg++);
+		generate(blr, *arg++);
+		if (*arg)
+			generate(blr, *arg);
+		else {
+			CHECK_BLR(1);
+			STUFF(blr_end);
+		}
+		return;
+
+	case nod_list:
+		CHECK_BLR(1);
+		STUFF(blr_begin);
+		for (; arg < end; arg++)
+			generate(blr, *arg);
+		CHECK_BLR(1);
+		STUFF(blr_end);
+		return;
+
+	case nod_abort:
+		CHECK_BLR(2);
+		STUFF(blr_leave);
+		STUFF((int) node->nod_arg[0]);
+		return;
+
+	case nod_erase:
+		CHECK_BLR(2);
+		STUFF(blr_erase);
+		context = (CTX) node->nod_arg[0];
+		STUFF(context->ctx_context_id);
+		return;
+
+	case nod_modify:
+		CHECK_BLR(3);
+		STUFF(blr_modify);
+		context = (CTX) node->nod_arg[s_mod_old_ctx];
+		STUFF(context->ctx_context_id);
+		context = (CTX) node->nod_arg[s_mod_new_ctx];
+		STUFF(context->ctx_context_id);
+		generate(blr, node->nod_arg[s_mod_action]);
+		return;
+
+	case nod_eql:
+		operator = blr_eql;
+		break;
+	case nod_neq:
+		operator = blr_neq;
+		break;
+	case nod_gtr:
+		operator = blr_gtr;
+		break;
+	case nod_geq:
+		operator = blr_geq;
+		break;
+	case nod_leq:
+		operator = blr_leq;
+		break;
+	case nod_lss:
+		operator = blr_lss;
+		break;
+	case nod_between:
+		operator = blr_between;
+		break;
+	case nod_matches:
+		operator = blr_matching;
+		break;
+	case nod_containing:
+		operator = blr_containing;
+		break;
+	case nod_starts:
+		operator = blr_starting;
+		break;
+	case nod_missing:
+		operator = blr_missing;
+		break;
+	case nod_and:
+		operator = blr_and;
+		break;
+	case nod_or:
+		operator = blr_or;
+		break;
+	case nod_not:
+		operator = blr_not;
+		break;
+	case nod_add:
+		operator = blr_add;
+		break;
+	case nod_subtract:
+		operator = blr_subtract;
+		break;
+	case nod_multiply:
+		operator = blr_multiply;
+		break;
+	case nod_divide:
+		operator = blr_divide;
+		break;
+	case nod_negate:
+		operator = blr_negate;
+		break;
+	case nod_concatenate:
+		operator = blr_concatenate;
+		break;
+	case nod_for:
+		operator = blr_for;
+		break;
+	case nod_assignment:
+		operator = blr_assignment;
+		break;
+	case nod_store:
+		operator = blr_store;
+		break;
+	case nod_post:
+		operator = blr_post;
+		break;
+	case nod_uppercase:
+		operator = blr_upcase;
+		break;
+	case nod_sleuth:
+		operator = blr_matching2;
+		break;
+		/*case nod_substr:      operator = blr_substring; break; */
+
+	default:
+		DDL_err(96, NULL, NULL, NULL, NULL, NULL);	/* msg 96: GENERATE_blr: node not supported */
+		return;
+	}
+
+/* If the user has given us something that has the form
+
+       field {EQ} NULL
+             {NE}
+
+   transform it into
+
+       field [NOT] MISSING */
+
+	if ((operator == blr_eql || operator == blr_neq) &&
+		(arg[0]->nod_type == nod_null || arg[1]->nod_type == nod_null)) {
+		if (operator == blr_neq) {
+			CHECK_BLR(1);
+			STUFF(blr_not);
+		}
+		operator = blr_missing;
+		if (arg[0]->nod_type == nod_null)
+			arg++;
+		end = arg + 1;
+	}
+
+/* Fall thru on reasonable stuff */
+
+	CHECK_BLR(1);
+	STUFF(operator);
+	for (; arg < end; arg++)
+		generate(blr, *arg);
+}
+
+
+static void get_set_generator( STR blr, NOD node)
+{
+/**************************************
+ *
+ *	g e t _ s e t _ g e n e r a t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	produce blr for set_generator. The
+ *	mutable characteristics are the
+ *	generator name and the increment.
+ *	The rest is canned.
+ **************************************/
+	SCHAR *p;
+	SYM symbol;
+	static SCHAR gen_prologue[] = {
+		blr_begin, blr_message, 0, 1, 0, blr_long, 0,
+		blr_send, 0, blr_begin, blr_assignment, blr_gen_id,
+	};
+	static SCHAR gen_epilogue[] = {
+		blr_parameter, 0, 0, 0, blr_end, blr_end
+	};
+	int l;
+	CON constant;
+	SLONG value;
+
+/* copy the beginning of the blr into the buffer */
+
+	l = sizeof(gen_prologue);
+	p = gen_prologue;
+	CHECK_BLR(l);
+	do
+		STUFF(*p++);
+	while (--l);
+
+/* stuff in the name length and the name */
+
+	symbol = (SYM) node->nod_arg[1];
+	CHECK_BLR(1);
+	STUFF(l = symbol->sym_length);
+	p = (SCHAR *) symbol->sym_string;
+	if (l) {
+		CHECK_BLR(l);
+		do
+			STUFF(*p++);
+		while (--l);
+	}
+
+/* now for the increvent value */
+
+	CHECK_BLR(7);
+	STUFF(blr_literal);
+	constant = (CON) node->nod_arg[0]->nod_arg[0];
+	STUFF(blr_long);
+	STUFF(constant->con_desc.dsc_scale);
+	p = (SCHAR *) constant->con_data;
+	value = *(SLONG *) p;
+	STUFF_WORD(value);
+	STUFF_WORD(value >> 16);
+
+/* complete the string */
+	l = sizeof(gen_epilogue);
+	p = (SCHAR *) gen_epilogue;
+	CHECK_BLR(l);
+	do
+		STUFF(*p++);
+	while (--l);
+}
diff --git a/src/dudley/hsh.cpp b/src/dudley/hsh.cpp
new file mode 100644
index 0000000000..ac78348f77
--- /dev/null
+++ b/src/dudley/hsh.cpp
@@ -0,0 +1,492 @@
+/*
+ *	PROGRAM:	JRD Data Definition Language
+ *	MODULE:		hsh.c
+ *	DESCRIPTION:	Hash table and symbol manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../dudley/ddl.h"
+#include "../dudley/parse.h"
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+#include "../jrd/kanji.h"
+#endif
+#include "../dudley/ddl_proto.h"
+#include "../dudley/hsh_proto.h"
+
+
+extern "C" {
+
+
+#define HASH_SIZE	101
+
+static USHORT hash(register SCHAR *, register USHORT);
+static BOOLEAN scompare(register SCHAR *, register USHORT, register SCHAR *,
+						USHORT);
+
+static SYM hash_table[HASH_SIZE];
+static SYM key_symbols;
+
+struct word {
+	enum kwwords id;
+	SCHAR *keyword;
+} keywords[] = {
+	KW_OR, "||",
+		KW_AND, "&&",
+		KW_GE, ">=",
+		KW_LE, "<=",
+		KW_NE, "<>",
+		KW_NE, "!=",
+		KW_NE, "~=",
+		KW_EQ, "==",
+		KW_GT, ">",
+		KW_LT, "<",
+		KW_PERCENT, "%",
+		KW_EQUALS, "=",
+		KW_COMMA, ",",
+		KW_DOT, ".",
+		KW_L_BRCKET, "[",
+		KW_LEFT_PAREN, "(",
+		KW_MINUS, "-",
+		KW_R_BRCKET, "]",
+		KW_RIGHT_PAREN, ")",
+		KW_PLUS, "+",
+		KW_SEMI, ";",
+		KW_SLASH, "/",
+		KW_ASTERISK, "*",
+		KW_BAR, "|",
+		KW_COLON, ":",
+		KW_ABORT, "ABORT",
+		KW_ACL, "ACL",
+		KW_ACTIVE, "ACTIVE",
+		KW_ADD, "ADD",
+		KW_ALL, "ALL",
+		KW_ARRAY, "ARRAY",
+		KW_AT, "AT",
+		KW_AUTO, "AUTO",
+		KW_BASED, "BASED",
+		KW_BASE_NAME, "BASE_NAME",
+		KW_BEGIN, "BEGIN",
+		KW_BLOB, "BLOB",
+		KW_BLR, "BLR",
+		KW_CACHE, "CACHE",
+		KW_CASCADE, "CASCADE",
+		KW_CHAR, "CHAR",
+		KW_CHECK_POINT_LEN, "CHECK_POINT_LENGTH",
+		KW_COMPUTED, "COMPUTED_BY",
+		KW_COMPUTED, "COMPUTED",
+		KW_CONDITIONAL, "CONDITIONAL",
+		KW_CONSTRAINT, "CONSTRAINT",
+		KW_CSTRING, "CSTRING",
+		KW_DATABASE, "DATABASE",
+		KW_DATE, "DATE",
+		KW_DEFINE, "DEFINE",
+		KW_DEFAULT, "DEFAULT",
+		KW_DELETE, "DELETE",
+		KW_DESCRIP, "DESCRIPTION",
+		KW_DESCRIPTION, "{",
+		KW_DOUBLE, "DOUBLE",
+		KW_DROP, "DROP",
+		KW_DROP, "DELETE",
+		KW_DUPLICATES, "DUPLICATE",
+		KW_DUPLICATES, "DUPLICATES",
+		KW_EDIT_STRING, "EDIT_STRING",
+		KW_ELSE, "ELSE",
+		KW_END, "END",
+		KW_END_DESCRIPTION, "}",
+		KW_END_FOR, "END_FOR",
+		KW_END_MODIFY, "END_MODIFY",
+		KW_END_STORE, "END_STORE",
+		KW_END_TRIGGER, "END_TRIGGER",
+		KW_ERASE, "ERASE",
+		KW_EXIT, "EXIT",
+		KW_EXTERNAL_FILE, "EXTERNAL_FILE",
+		KW_FIELD, "FIELD",
+		KW_FILE, "FILE",
+		KW_FILTER, "FILTER",
+		KW_FIXED, "FIXED",
+		KW_FLOAT, "FLOAT",
+		KW_FOR, "FOR",
+		KW_FUNCTION, "FUNCTION",
+		KW_FUNCTION_ENTRY_POINT, "ENTRY_POINT",
+		KW_FUNCTION_MODULE_NAME, "MODULE_NAME",
+		KW_GENERATOR, "GENERATOR",
+		KW_GRANT, "GRANT",
+		KW_GROUP, "GROUP",
+		KW_GROUP_COMMIT_WAIT, "GROUP_COMMIT_WAIT_TIME",
+		KW_IF, "IF",
+		KW_INACTIVE, "INACTIVE",
+		KW_INDEX, "INDEX",
+		KW_INPUT_TYPE, "INPUT_TYPE",
+		KW_INSERT, "INSERT",
+		KW_IS, "IS",
+		KW_LENGTH, "LENGTH",
+		KW_LOG_BUF_SIZE, "LOG_BUFFER_SIZE",
+		KW_LOG_FILE, "LOGFILE",
+		KW_LONG, "LONG",
+		KW_MANUAL, "MANUAL",
+		KW_MESSAGE, "MESSAGE",
+		KW_MISSING, "MISSING_VALUE",
+		KW_MISSING, "MISSING",
+		KW_MODIFY, "MODIFY",
+		KW_MSGADD, "MSGADD",
+		KW_MSGDROP, "MSGDROP",
+		KW_MSGMODIFY, "MSGMODIFY",
+		KW_NULL, "NULL",
+		KW_NUM_LOG_BUFS, "NUM_LOG_BUFFERS",
+		KW_OFFSET, "OFFSET",
+		KW_ON, "ON",
+		KW_OPTION, "OPTION",
+		KW_OUTPUT_TYPE, "OUTPUT_TYPE",
+		KW_OVERFLOW, "OVERFLOW",
+		KW_OVERWRITE, "OVERWRITE",
+		KW_PAGE, "PAGE",
+		KW_PAGES, "PAGES",
+		KW_PAGE_NUMBER, "PAGE_NUMBER",
+		KW_PAGE_SIZE, "PAGE_SIZE",
+		KW_PARTITIONS, "PARTITIONS",
+		KW_PASSWORD, "PASSWORD",
+		KW_POSITION, "POSITION",
+		KW_POST, "POST",
+		KW_POST_ERASE, "POST_ERASE",
+		KW_POST_MODIFY, "POST_MODIFY",
+		KW_POST_STORE, "POST_STORE",
+		KW_PRE, "PRE",
+		KW_PRE_ALLOCATE, "PRE_ALLOCATE",
+		KW_PRE_ERASE, "PRE_ERASE",
+		KW_PRE_MODIFY, "PRE_MODIFY",
+		KW_PRE_STORE, "PRE_STORE",
+		KW_PRIVILEGES, "PRIVILEGES",
+		KW_QUAD, "QUAD",
+		KW_QUERY_NAME, "QUERY_NAME",
+		KW_QUERY_HEADER, "QUERY_HEADER",
+		KW_RAW, "RAW",
+		KW_RAW_PARTITIONS, "RAW_PARTITIONS",
+		KW_REFERENCE, "REFERENCE",
+		KW_RELATION, "RELATION", KW_RETURN_ARGUMENT, "RETURN_ARGUMENT",	/* function argument return_mode */
+		KW_RETURN_VALUE, "RETURN_VALUE",	/* function argument return_mode */
+		KW_REVOKE, "REVOKE",
+		KW_SCALAR_ARRAY_DESCRIPTOR, "SCALAR_ARRAY_DESCRIPTOR",
+		KW_SCALE, "SCALE",
+		KW_SELECT, "SELECT",
+		KW_SECURITY_CLASS, "SECURITY_CLASS",
+		KW_SEGMENT_LENGTH, "SEGMENT_LENGTH",
+		KW_SET, "SET",
+		KW_SET_GENERATOR, "SET_GENERATOR",
+		KW_SHADOW, "SHADOW",
+		KW_SHORT, "SHORT",
+		KW_SIZE, "SIZE",
+		KW_SORTED, "SORTED",
+		KW_STATISTICS, "STATISTICS",
+		KW_STORE, "STORE",
+		KW_SUB_TYPE, "SUB_TYPE",
+		KW_SYSTEM_FLAG, "SYSTEM_FLAG",
+		KW_TEXT, "TEXT",
+		KW_THEN, "THEN",
+		KW_TO, "TO",
+		KW_TRIGGER, "TRIGGER",
+		KW_TYPES, "TYPES",
+		KW_UPDATE, "UPDATE",
+		KW_USER, "USER",
+		KW_USER_NAME, "RDB$USER_NAME",
+		KW_USING, "USING",
+		KW_VALID_IF, "VALID_IF",
+		KW_VALID_IF, "VALID",
+		KW_VALUE, "VALUE",
+		KW_VARYING, "VARYING",
+		KW_VIEW, "VIEW",
+		KW_AND, "AND",
+		KW_ANY, "ANY",
+		KW_ASCENDING, "ASC",
+		KW_ASCENDING, "ASCENDING",
+		KW_ASTERISK, "ASTERISK",
+		KW_AVERAGE, "AVERAGE",
+		KW_BETWEEN, "BETWEEN",
+		KW_BY, "BY",
+		KW_CONTAINING, "CONTAINING",
+		KW_COUNT, "COUNT",
+		KW_CROSS, "CROSS",
+		KW_DESCENDING, "DESC",
+		KW_DESCENDING, "DESCENDING",
+		KW_ELSE, "ELSE",
+		KW_EQ, "EQ",
+		KW_FIRST, "FIRST",
+		KW_FROM, "FROM",
+		KW_GEN_ID, "GEN_ID",
+		KW_GE, "GE",
+		KW_GT, "GT",
+		KW_IN, "IN",
+		KW_LE, "LE",
+		KW_LT, "LT",
+		KW_MATCHES, "MATCHES",
+		KW_MATCHES, "MATCHING",
+		KW_MIN, "MIN",
+		KW_MINUS, "MINUS",
+		KW_MISSING, "MISSING",
+		KW_NE, "NE",
+		KW_NOT, "NOT",
+		KW_OF, "OF",
+		KW_OR, "OR",
+		KW_OVER, "OVER",
+		KW_QUIT, "QUIT",
+		KW_REDUCED, "REDUCED",
+		KW_SLASH, "SLASH",
+		KW_SORTED, "SORTED",
+		KW_STARTS, "STARTS",
+		KW_STARTS, "STARTING",
+		KW_STARTS, "STARTS_WITH",
+		KW_STARTS, "STARTING_WITH",
+		KW_MAX, "MAX",
+		KW_TO, "TO",
+		KW_TOTAL, "TOTAL",
+		KW_UNIQUE, "UNIQUE", KW_UPPERCASE, "UPPERCASE", KW_WITH, "WITH"};
+
+#define NUMWORDS (sizeof (keywords) / sizeof (struct word))
+
+
+void HSH_init(void)
+{
+/**************************************
+ *
+ *	H S H _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the hash table.  This mostly involves
+ *	inserting all known keywords.
+ *
+ **************************************/
+	register SCHAR *string;
+	register SYM symbol;
+	register SSHORT i, length;
+
+	for (i = 0; i < NUMWORDS; i++) {
+		string = keywords[i].keyword;
+		for (length = 0; string[length] != '\0'; length++);
+		symbol = (SYM) DDL_alloc(SYM_LEN);
+		symbol->sym_type = SYM_keyword;
+		symbol->sym_length = length;
+		symbol->sym_string = keywords[i].keyword;
+		symbol->sym_keyword = (int) keywords[i].id;
+		HSH_insert(symbol);
+		symbol->sym_object = (CTX) key_symbols;
+		key_symbols = symbol;
+	}
+}
+
+
+void HSH_insert( register SYM symbol)
+{
+/**************************************
+ *
+ *	H S H _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a symbol into the hash table.
+ *
+ **************************************/
+	register USHORT h;
+	register SYM old;
+
+	h = hash(symbol->sym_string, symbol->sym_length);
+
+	for (old = hash_table[h]; old; old = old->sym_collision)
+		if (scompare(symbol->sym_string, symbol->sym_length,
+					 old->sym_string, old->sym_length)) {
+			symbol->sym_homonym = old->sym_homonym;
+			old->sym_homonym = symbol;
+			return;
+		}
+
+	symbol->sym_collision = hash_table[h];
+	hash_table[h] = symbol;
+}
+
+
+SYM HSH_lookup(register SCHAR * string, register USHORT length)
+{
+/**************************************
+ *
+ *	H S H _ l o o k u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a string lookup against hash table.
+ *
+ **************************************/
+	register SYM symbol;
+
+	for (symbol = hash_table[hash(string, length)]; symbol;
+		 symbol = symbol->sym_collision)
+			if (scompare
+				(string, length, symbol->sym_string,
+				 symbol->sym_length)) return symbol;
+
+	return NULL;
+}
+
+
+void HSH_remove( register SYM symbol)
+{
+/**************************************
+ *
+ *	H S H _ r e m o v e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove a symbol from the hash table.
+ *
+ **************************************/
+	USHORT h;
+	register SYM *next, *ptr, homonym;
+
+	h = hash(symbol->sym_string, symbol->sym_length);
+
+	for (next = &hash_table[h]; *next; next = &(*next)->sym_collision)
+		if (symbol == *next)
+			if (homonym = symbol->sym_homonym) {
+				homonym->sym_collision = symbol->sym_collision;
+				*next = homonym;
+				return;
+			}
+			else {
+				*next = symbol->sym_collision;
+				return;
+			}
+		else
+			for (ptr = &(*next)->sym_homonym; *ptr;
+				 ptr = &(*ptr)->sym_homonym) if (symbol == *ptr) {
+					*ptr = symbol->sym_homonym;
+					return;
+				}
+
+	DDL_err(280, NULL, NULL, NULL, NULL, NULL);	/* msg 280: HSH_remove failed  */
+}
+
+
+SYM HSH_typed_lookup(register TEXT * string,
+					 register USHORT length, enum sym_t type)
+{
+/**************************************
+ *
+ *	H S H _ t y p e d _ l o o k u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a string lookup against hash table
+ *	considering the object type.  If length is
+ *	0, assume that the string is terminated by
+ *	a null or space and compute the length.
+ *
+ **************************************/
+	register SYM symbol;
+	TEXT *p;
+
+	if (!length) {
+		for (p = string; *p && *p != ' '; p++)
+			if ((p - string) >= 32)
+				break;
+		length = p - string;
+	}
+
+	symbol = HSH_lookup(string, length);
+
+	for (; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == type)
+			break;
+
+	return symbol;
+}
+
+
+static USHORT hash( register SCHAR * string, register USHORT length)
+{
+/**************************************
+ *
+ *	h a s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns the hash function of a string.
+ *
+ **************************************/
+	register USHORT value;
+	SCHAR c;
+
+	value = 0;
+
+	while (length--) {
+		c = *string++;
+		value = (value << 1) + UPPER(c);
+	}
+
+	return value % HASH_SIZE;
+}
+
+
+static BOOLEAN scompare(
+						register SCHAR * string1,
+						register USHORT length1,
+						register SCHAR * string2, USHORT length2)
+{
+/**************************************
+ *
+ *	s c o m p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two strings
+ *
+ **************************************/
+	SCHAR c1, c2;
+
+	if (length1 != length2)
+		return FALSE;
+
+	while (length1--)
+#ifdef JPN_SJIS
+	{
+#endif
+		if ((c1 = *string1++) != (c2 = *string2++) && UPPER(c1) != UPPER(c2))
+			return FALSE;
+#ifdef JPN_SJIS
+
+		/* Do not upcase second byte of a sjis kanji character */
+
+		if (KANJI1(c1) && length1 > 1) {
+			if ((c1 = *string1++) != (c2 = *string2++))
+				return FALSE;
+			length1--;
+		}
+	}
+#endif
+
+	return TRUE;
+}
+
+
+} // extern "C"
diff --git a/src/dudley/hsh_proto.h b/src/dudley/hsh_proto.h
new file mode 100644
index 0000000000..bdb6200c23
--- /dev/null
+++ b/src/dudley/hsh_proto.h
@@ -0,0 +1,41 @@
+/*
+ *	PROGRAM:	Data Definition Utility
+ *	MODULE:		hsh_proto.h
+ *	DESCRIPTION:	Prototype header file for hsh.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DUDLEY_HSH_PROTO_H_
+#define _DUDLEY_HSH_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void HSH_init(void);
+extern void HSH_insert(register SYM);
+extern SYM HSH_lookup(register SCHAR *, register USHORT);
+extern void HSH_remove(register SYM);
+extern SYM HSH_typed_lookup(register TEXT *, register USHORT, enum sym_t);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _DUDLEY_HSH_PROTO_H_ */
diff --git a/src/dudley/lex.cpp b/src/dudley/lex.cpp
new file mode 100644
index 0000000000..8dff02160a
--- /dev/null
+++ b/src/dudley/lex.cpp
@@ -0,0 +1,593 @@
+/*
+ *	PROGRAM:	JRD Data Definition Language
+ *	MODULE:		lex.c
+ *	DESCRIPTION:	Lexical analyser
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include "../include/jrd/gds.h"
+#include "../dudley/ddl.h"
+#include "../dudley/parse.h"
+#include "../jrd/kanji.h"
+#include "../dudley/ddl_proto.h"
+#include "../dudley/hsh_proto.h"
+#include "../dudley/lex_proto.h"
+#include "../jrd/gds_proto.h"
+
+#ifdef PC_PLATFORM
+#ifndef NETWARE_386
+#define SCRATCH		"I"
+#endif
+#endif
+
+#if defined(WIN_NT)
+#define SCRATCH		"ib"
+#endif
+
+#ifndef SCRATCH
+#ifdef SMALL_FILE_NAMES
+#define SCRATCH		"gds_q"
+#else
+#define SCRATCH		"gds_query_"
+#endif
+#endif
+
+extern TEXT *DDL_prompt;
+
+
+static int nextchar(void);
+static void retchar(SSHORT);
+static int skip_white(void);
+
+/* Input line control */
+
+static IB_FILE *input_file, *trace_file;
+static TEXT *DDL_char, DDL_buffer[256], trace_file_name[128];
+
+#define CHR_ident	1
+#define CHR_letter	2
+#define CHR_digit	4
+#define CHR_quote	8
+#define CHR_white	16
+#define CHR_eol		32
+
+#define CHR_IDENT	CHR_ident
+#define CHR_LETTER	CHR_letter + CHR_ident
+#define CHR_DIGIT	CHR_digit + CHR_ident
+#define CHR_QUOTE	CHR_quote
+#define CHR_WHITE	CHR_white
+#define CHR_EOL		CHR_white
+
+static SCHAR classes[256] = {
+	0, 0, 0, 0, 0, 0, 0, 0,
+	0, CHR_WHITE, CHR_EOL, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0,
+	CHR_WHITE, 0, CHR_QUOTE, CHR_IDENT, CHR_IDENT, 0, 0, CHR_QUOTE,
+	0, 0, 0, 0, 0, 0, 0, 0,
+	CHR_DIGIT, CHR_DIGIT, CHR_DIGIT, CHR_DIGIT, CHR_DIGIT, CHR_DIGIT,
+		CHR_DIGIT, CHR_DIGIT,
+	CHR_DIGIT, CHR_DIGIT, 0, 0, 0, 0, 0, 0,
+	0, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER,
+		CHR_LETTER,
+	CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER,
+		CHR_LETTER, CHR_LETTER,
+	CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER,
+		CHR_LETTER, CHR_LETTER,
+	CHR_LETTER, CHR_LETTER, CHR_LETTER, 0, 0, 0, 0, CHR_LETTER,
+	0, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER,
+		CHR_LETTER,
+	CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER,
+		CHR_LETTER, CHR_LETTER,
+	CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER,
+		CHR_LETTER, CHR_LETTER,
+	CHR_LETTER, CHR_LETTER, CHR_LETTER, 0
+};
+
+
+
+TOK LEX_filename(void)
+{
+/**************************************
+ *
+ *	L E X _ f i l e n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the next token as a filename.
+ *
+ **************************************/
+	TOK token;
+	SSHORT c, length;
+	TEXT *p;
+
+	token = &DDL_token;
+	p = token->tok_string;
+	*p++ = c = skip_white();
+
+	if (DDL_eof) {
+		token->tok_symbol = NULL;
+		token->tok_keyword = KW_none;
+		return NULL;
+	}
+
+	while (!(classes[c = nextchar()] & (CHR_white | CHR_eol)))
+		*p++ = c;
+
+	retchar(c);
+	token->tok_length = p - token->tok_string;
+	*p = 0;
+	token->tok_symbol = NULL;
+	token->tok_keyword = KW_none;
+
+	return token;
+}
+
+
+void LEX_fini(void)
+{
+/**************************************
+ *
+ *	L E X _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shut down LEX in a more or less clean way.
+ *
+ **************************************/
+
+	if (trace_file != NULL)
+		ib_fclose(trace_file);
+	if (trace_file_name[0])
+		unlink(trace_file_name);
+}
+
+
+void LEX_flush(void)
+{
+/**************************************
+ *
+ *	L E X _ f l u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush the input stream after an error.  For now, just look for
+ *	an end of line.
+ *
+ **************************************/
+	SSHORT c;
+
+	while (!DDL_eof) {
+		if ((c = nextchar()) == '\n')
+			break;
+	}
+	*DDL_char = 0;
+}
+
+
+void LEX_get_text( SCHAR * buffer, TXT text)
+{
+/**************************************
+ *
+ *	L E X _ g e t _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write text from the scratch trace file into a buffer.
+ *
+ **************************************/
+	SLONG start;
+	int length;
+	TEXT *p;
+
+	start = text->txt_position;
+	length = text->txt_length;
+
+	if (ib_fseek(trace_file, start, 0)) {
+		ib_fseek(trace_file, (SLONG) 0, 2);
+		DDL_err(275, NULL, NULL, NULL, NULL, NULL);	/* msg 275: ib_fseek failed */
+	}
+
+	p = buffer;
+	while (length--)
+		*p++ = ib_getc(trace_file);
+
+	ib_fseek(trace_file, (SLONG) 0, 2);
+}
+
+
+void LEX_init( void *file)
+{
+/**************************************
+ *
+ *	L E X _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for lexical scanning.  While we're at it, open a
+ *	scratch trace file to keep all input.
+ *
+ **************************************/
+	TEXT *p, *end;
+
+#if !(defined WIN_NT || defined PC_PLATFORM)
+	trace_file = (IB_FILE *) gds__temp_file(TRUE, SCRATCH, 0);
+#else
+#ifndef __BORLANDC__
+	trace_file = (IB_FILE *) gds__temp_file(TRUE, SCRATCH, trace_file_name);
+#else
+/* When using Borland C, routine gds__temp_file is in a DLL which maps
+   a set of I/O handles that are different from the ones in the GDEF
+   process!  So we will get a temp name on our own.  [Note that
+   gds__temp_file returns -1 on error, not 0] */
+
+	p = tempnam(NULL, SCRATCH);
+	strcpy(trace_file_name, p);
+	free(p);
+	trace_file = ib_fopen(trace_file_name, "w+");
+	if (!trace_file)
+		trace_file = (IB_FILE *) - 1;
+#endif
+#endif
+	if (trace_file == (IB_FILE *) - 1)
+		DDL_err(276, NULL, NULL, NULL, NULL, NULL);	/* msg 276: couldn't open scratch file */
+
+	input_file = (IB_FILE *) file;
+	DDL_char = DDL_buffer;
+	DDL_token.tok_position = 0;
+	DDL_description = FALSE;
+	DDL_line = 1;
+}
+
+
+void LEX_put_text( void *blob, TXT text)
+{
+/**************************************
+ *
+ *	L E X _ p u t _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write text from the scratch trace file into a blob.
+ *
+ **************************************/
+	SLONG start;
+	STATUS status_vector[20];
+	int length;
+	SSHORT l, c;
+	TEXT buffer[1024], *p;
+
+	start = text->txt_position;
+	length = text->txt_length;
+
+	if (ib_fseek(trace_file, start, 0)) {
+		ib_fseek(trace_file, (SLONG) 0, 2);
+		DDL_err(275, NULL, NULL, NULL, NULL, NULL);	/* msg 275: ib_fseek failed */
+	}
+
+	while (length) {
+		p = buffer;
+		while (length) {
+			--length;
+			*p++ = c = ib_getc(trace_file);
+			if (c == '\n')
+				break;
+		}
+		if (l = p - buffer)
+			if (gds__put_segment(status_vector, GDS_REF(blob), l, buffer))
+				DDL_err(277, NULL, NULL, NULL, NULL, NULL);	/* msg 277: gds__put_segment failed */
+	}
+
+	ib_fseek(trace_file, (SLONG) 0, 2);
+}
+
+
+void LEX_real(void)
+{
+/**************************************
+ *
+ *	L E X _ r e a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	If the token is an end of line, get the next token.
+ *
+ **************************************/
+
+	if (DDL_token.tok_string[0] != '\n')
+		return;
+
+	LEX_token();
+}
+
+
+TOK LEX_token(void)
+{
+/**************************************
+ *
+ *	L E X _ t o k e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse and return the next token.
+ *
+ **************************************/
+	TOK token;
+	SSHORT c, next;
+	TEXT class_, *p;
+	SYM symbol;
+
+	token = &DDL_token;
+	p = token->tok_string;
+	*p++ = c = skip_white();
+
+/* On end of file, generate furious but phony end of line tokens */
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+	class_ = (JPN1_CHAR(c) ? CHR_LETTER : classes[c]);
+#else
+	class_ = classes[c];
+#endif
+
+	if (DDL_eof) {
+		p = token->tok_string;
+		*p++ = '*';
+		*p++ = 'E';
+		*p++ = 'O';
+		*p++ = 'F';
+		*p++ = '*';
+		token->tok_symbol = NULL;
+		token->tok_keyword = KW_none;
+		token->tok_type = tok_eol;
+		token->tok_length = p - token->tok_string;
+		*p = '\0';
+		return NULL;
+	}
+	else if (class_ & CHR_letter) {
+#if (! ( defined JPN_EUC || defined JPN_SJIS) )
+		while (classes[c = nextchar()] & CHR_ident)
+			*p++ = c;
+#else
+
+		p--;
+		while (1) {
+			if (KANJI1(c)) {
+				/* If it is a double byte kanji either EUC or SJIS
+				   then handle both the bytes together */
+
+				*p++ = c;
+				c = nextchar(TRUE);
+				if (!KANJI2(c)) {
+					c = *(--p);
+					break;
+				}
+				else
+					*p++ = c;
+			}
+			else {
+#ifdef JPN_SJIS
+				if ((SJIS_SINGLE(c)) || (classes[c] & CHR_ident))
+#else
+				if (classes[c] & CHR_ident)
+#endif
+					*p++ = c;
+				else
+					break;
+			}
+			c = nextchar(TRUE);
+		}
+#endif /* JPN_SJIS || JPN_EUC */
+
+		retchar(c);
+		token->tok_type = tok_ident;
+	}
+	else if (class_ & CHR_digit) {
+		while (classes[c = nextchar()] & CHR_digit)
+			*p++ = c;
+		if (c == '.') {
+			*p++ = c;
+			while (classes[c = nextchar()] & CHR_digit)
+				*p++ = c;
+		}
+		retchar(c);
+		token->tok_type = tok_number;
+	}
+	else if ((class_ & CHR_quote) && !DDL_description) {
+		token->tok_type = tok_quoted;
+		do {
+			if (!(next = nextchar()) || next == '\n') {
+				DDL_err(278, NULL, NULL, NULL, NULL, NULL);	/* msg 278: unterminated quoted string */
+				break;
+			}
+			*p++ = next;
+		}
+		while (next != c);
+	}
+	else if (c == '\n')
+		token->tok_type = tok_eol;
+	else {
+		token->tok_type = tok_punct;
+		*p++ = nextchar();
+		if (!HSH_lookup(token->tok_string, 2))
+			retchar(*--p);
+	}
+
+	token->tok_length = p - token->tok_string;
+	*p = '\0';
+	token->tok_symbol = symbol =
+		HSH_lookup(token->tok_string, token->tok_length);
+	if (symbol && symbol->sym_type == SYM_keyword)
+		token->tok_keyword = (enum kwwords) symbol->sym_keyword;
+	else
+		token->tok_keyword = KW_none;
+
+	if (DDL_trace)
+		ib_puts(token->tok_string);
+
+	return token;
+}
+
+
+static int nextchar(void)
+{
+/**************************************
+ *
+ *	n e x t c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next character from the input stream.
+ *
+ **************************************/
+	SSHORT c;
+	SCHAR *end;
+
+/* mark the end of the buffer */
+
+	end = DDL_buffer + sizeof(DDL_buffer);
+
+/* If there isn't anything floating around, get a new line */
+
+	while (!(c = *DDL_char++)) {
+		DDL_char = DDL_buffer;
+		if (DDL_interactive) {
+			ib_printf(DDL_prompt);
+			if (DDL_service)
+				ib_putc('\001', ib_stdout);
+			ib_fflush(ib_stdout);
+		}
+		while (c = ib_getc(input_file)) {
+			if (c == EOF && SYSCALL_INTERRUPTED(errno)) {
+				errno = 0;
+				continue;
+			}
+			if (c == EOF)
+				break;
+			if (DDL_char < end)
+				*DDL_char++ = c;
+			else
+				DDL_err(279, NULL, NULL, NULL, NULL, NULL);	/* msg 279: line too SLONG */
+			if (c == '\n')
+				break;
+		}
+		*DDL_char = 0;
+		if (c == EOF && DDL_char == DDL_buffer) {
+#ifdef UNIX
+			if (DDL_interactive)
+				ib_printf("\n");
+#endif
+			DDL_eof = TRUE;
+			return EOF;
+		}
+		DDL_char = DDL_buffer;
+		ib_fputs(DDL_buffer, trace_file);
+	}
+
+	DDL_token.tok_position++;
+	if (c == '\n') {
+		++DDL_line;
+#if (defined WIN_NT || defined PC_PLATFORM)
+		/* need to account for extra linefeed on newline */
+
+		DDL_token.tok_position++;
+#endif
+	}
+
+	return c;
+}
+
+
+static void retchar( SSHORT c)
+{
+/**************************************
+ *
+ *	r e t c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a character to the input stream.
+ *
+ **************************************/
+
+	if (c == '\n') {
+		--DDL_line;
+#if (defined WIN_NT || defined PC_PLATFORM)
+		/* account for the extra linefeed in a newline */
+
+		--DDL_token.tok_position;
+#endif
+	}
+
+	--DDL_token.tok_position;
+	--DDL_char;
+}
+
+
+static int skip_white(void)
+{
+/**************************************
+ *
+ *	s k i p _ w h i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Skip over white space and comments in input stream
+ *
+ **************************************/
+	SSHORT c, next, class_;
+
+	while ((c = nextchar()) != EOF) {
+#if (defined JPN_SJIS || defined JPN_EUC)
+		c = c & 0xff;
+#endif
+
+		class_ = classes[c];
+		if (class_ & CHR_white)
+			continue;
+		if (c == '/') {
+			if ((next = nextchar()) != '*') {
+				retchar(next);
+				return c;
+			}
+			c = nextchar();
+			while ((next = nextchar()) &&
+				   (next != EOF) && !(c == '*' && next == '/'))
+				c = next;
+			continue;
+		}
+		break;
+	}
+
+	return c;
+}
diff --git a/src/dudley/lex_proto.h b/src/dudley/lex_proto.h
new file mode 100644
index 0000000000..e2be53e3f7
--- /dev/null
+++ b/src/dudley/lex_proto.h
@@ -0,0 +1,36 @@
+/*
+ *	PROGRAM:	Data Definition Utility
+ *	MODULE:		lex_proto.h
+ *	DESCRIPTION:	Prototype header file for lex.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DUDLEY_LEX_PROTO_H_
+#define _DUDLEY_LEX_PROTO_H_
+
+extern struct tok *LEX_filename(void);
+extern void LEX_fini(void);
+extern void LEX_flush(void);
+extern void LEX_get_text(SCHAR *, TXT);
+extern void LEX_init(void *);
+extern void LEX_put_text(void *, TXT);
+extern void LEX_real(void);
+extern struct tok *LEX_token(void);
+
+#endif /* _DUDLEY_LEX_PROTO_H_ */
diff --git a/src/dudley/parse.cpp b/src/dudley/parse.cpp
new file mode 100644
index 0000000000..68a1825059
--- /dev/null
+++ b/src/dudley/parse.cpp
@@ -0,0 +1,4240 @@
+/*
+ *	PROGRAM:	JRD data definition language parser
+ *	MODULE:		parse.c
+ *	DESCRIPTION:	Statement parser
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <setjmp.h>
+#include <stdlib.h>
+#include <string.h>
+#define PARSER_MAIN
+#include "../include/jrd/gds.h"
+#include "../jrd/flags.h"
+#include "../dudley/ddl.h"
+#include "../dudley/parse.h"
+#include "../jrd/acl.h"
+#include "../jrd/kanji.h"
+#include "../wal/wal.h"
+#include "../dudley/ddl_proto.h"
+#include "../dudley/exe_proto.h"
+#include "../dudley/expr_proto.h"
+#include "../dudley/hsh_proto.h"
+#include "../dudley/lex_proto.h"
+#include "../dudley/parse_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_f_proto.h"
+
+#define PROMPT			"GDEF> "
+#define CONTINUATION		"CON>  "
+#define GDS_NAME_LEN		31
+
+#define MAX_DIMENSION		16
+#define MIN_CACHE_BUFFERS	250
+#define DEF_CACHE_BUFFERS	1000
+
+#define STUFF(c)	*p++ = c
+#define STUFF_WORD(c)	{STUFF (c); STUFF (c >> 8);}
+#define STUFF_LONG(c)	{STUFF (c); STUFF (c >> 8); STUFF (c >> 16); STUFF (c >> 24); }
+
+typedef enum {
+	obj_database,
+	obj_relation,
+	obj_view,
+	obj_field,
+	obj_index,
+	obj_security_class,
+	obj_trigger,
+	obj_file,
+	obj_none,
+	obj_function,
+	obj_type,
+	obj_filter,
+	obj_shadow,
+	obj_generator,
+} OBJ_T;
+
+jmp_buf parse_env;
+
+extern TEXT *DDL_prompt;
+
+static BOOLEAN check_filename(SYM, USHORT);
+static SYM copy_symbol(SYM);
+static FLD create_global_field(FLD);
+static FIL define_cache(void);
+static void define_database(enum act_t);
+static void define_field(void);
+static FIL define_file(void);
+static void define_filter(void);
+static void define_function(void);
+static void define_generator(void);
+static void define_index(void);
+static FIL define_log_file(USHORT);
+static void define_old_trigger(void);
+static void define_relation(void);
+static void define_security_class(void);
+static void define_shadow(void);
+static void define_trigger(void);
+static ACT define_type(void);
+static ACT define_view(void);
+static void drop_filter(void);
+static void drop_function(void);
+static void drop_gfield(void);
+static void drop_index(void);
+static void drop_relation(void);
+static void drop_security_class(void);
+static void drop_shadow(void);
+static void drop_trigger(void);
+static void drop_type(void);
+static void end_text(TXT);
+static SYM gen_trigger_name(TRG_T, REL);
+static int get_system_flag(void);
+static void get_trigger_attributes(int *, int *, int *);
+static void grant_user_privilege(void);
+static CTX lookup_context(SYM, LLS);
+static FLD lookup_global_field(FLD);
+static ACT make_action(enum act_t, DBB);
+static ACT make_computed_field(FLD);
+static CTX make_context(TEXT *, REL);
+static ACT make_global_field(FLD);
+static void mod_old_trigger(void);
+static void modify_field(void);
+static void modify_index(void);
+static void modify_relation(void);
+static void modify_security_class(void);
+static void modify_trigger(void);
+static void modify_trigger_action(TRG, REL);
+static void modify_type(void);
+static void modify_view(void);
+static BOOLEAN parse_action(void);
+static void parse_array(FLD);
+static TXT parse_description(void);
+static void parse_end(void);
+static FLD parse_field(FLD);
+static void parse_field_clauses(FLD);
+static void parse_field_dtype(FLD);
+static void parse_field_subtype(FLD);
+static FUNCARG parse_function_arg(FUNC, USHORT *);
+static SCE parse_identifier(void);
+static OBJ_T parse_object(void);
+static int parse_page_size(void);
+static SLONG parse_privileges(void);
+static void revoke_user_privilege(void);
+static SLONG score_entry(SCE);
+static NOD set_generator(void);
+static void sort_out_attributes(TRG, SLONG, SLONG, SLONG);
+static TXT start_text(void);
+static void validate_field(FLD);
+
+static LLS local_context;
+
+
+void PARSE_actions(void)
+{
+/**************************************
+ *
+ *	P A R S E_ a c t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse actions in a loop until end of file.
+ *
+ **************************************/
+
+	parse_action();
+	while (!DDL_eof && DDL_errors < 20) {
+		if ((!database || !database->dbb_handle) && (!DDL_drop_database)) {
+			DDL_err(111, NULL, NULL, NULL, NULL, NULL);	/* msg 111: no database declared */
+			if (database) {
+				gds__free(database);
+				database = NULL;
+			}
+			if (DDL_interactive)
+				parse_action();
+			else {
+				DDL_err(112, NULL, NULL, NULL, NULL, NULL);	/* msg 112: ceasing processing */
+				break;
+			}
+		}
+		else {
+			DDL_drop_database = FALSE;
+			parse_action();
+		}
+	}
+}
+
+
+void PARSE_error( USHORT number, TEXT * arg1, TEXT * arg2)
+{
+/**************************************
+ *
+ *	P A R S E _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a syntax error.
+ *
+ **************************************/
+
+	DDL_err(number, arg1, arg2, NULL, NULL, NULL);
+	longjmp(parse_env, TRUE);
+}
+
+
+FUNC PARSE_function( int flag)
+{
+/**************************************
+ *
+ *	P A R S E _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the function block associated with the current token.  Also
+ *	advance the token.  Create a new function requested.  
+ *
+ **************************************/
+	SYM symbol;
+	FUNC function;
+
+	if (DDL_token.tok_type != tok_ident)
+		PARSE_error(113, DDL_token.tok_string, 0);	/* msg 113: expected function, encountered \"%s\" */
+
+	symbol = HSH_typed_lookup(DDL_token.tok_string, DDL_token.tok_length,
+							  SYM_function);
+
+	if (symbol && (function = (FUNC) symbol->sym_object) &&
+		function->func_database == database) {
+		LEX_token();
+		return function;
+	}
+
+	if (flag)
+		PARSE_error(114, DDL_token.tok_string, 0);	/* msg 114: expected function, encountered \"%s\" */
+	else {
+		function = (FUNC) DDL_alloc(FUNC_LEN);
+		function->func_name = symbol = PARSE_symbol(tok_ident);
+		symbol->sym_type = SYM_function;
+		symbol->sym_object = (CTX) function;
+		HSH_insert(symbol);
+
+		if (!(function->func_database = database))
+			PARSE_error(111, 0, 0);	/* msg 111: no database declared */
+	}
+	return function;
+}
+
+
+enum kwwords PARSE_keyword(void)
+{
+/**************************************
+ *
+ *	P A R S E _ k e y w o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a real token and return the keyword number.
+ *
+ **************************************/
+	SYM symbol;
+
+	LEX_real();
+
+	for (symbol = DDL_token.tok_symbol; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_keyword)
+			return (enum kwwords) symbol->sym_keyword;
+
+	return KW_none;
+}
+
+
+NOD PARSE_make_list(LLS stack)
+{
+/**************************************
+ *
+ *	P A R S E _ m a k e _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a stack of junk into a list node.  Best count
+ *	them first.
+ *
+ **************************************/
+	NOD node, *ptr;
+	LLS temp;
+	USHORT count;
+
+	temp = stack;
+	count = 0;
+
+	while (temp) {
+		count++;
+		temp = temp->lls_next;
+	}
+
+	node = SYNTAX_NODE(nod_list, count);
+	ptr = &node->nod_arg[count];
+
+	while (stack)
+		*--ptr = LLS_POP(&stack);
+
+	return node;
+}
+
+
+NOD PARSE_make_node(enum nod_t type, USHORT count)
+{
+/**************************************
+ *
+ *	P A R S E _ m a k e _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate and initialize a syntax node of given type.
+ *
+ **************************************/
+	NOD node;
+
+	node = (NOD) DDL_alloc(NOD_LEN(count));
+	node->nod_type = type;
+	node->nod_count = count;
+
+	return node;
+}
+
+
+int PARSE_match( enum kwwords keyword)
+{
+/**************************************
+ *
+ *	P A R S E _ m a t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Test the current token for a particular keyword.  If so, advanced
+ *	the token stream.
+ *
+ **************************************/
+	SYM symbol;
+
+	if (KEYWORD(keyword)) {
+		LEX_token();
+		return TRUE;
+	}
+
+	for (symbol = DDL_token.tok_symbol; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_keyword &&
+			symbol->sym_keyword == (int) keyword) {
+			LEX_token();
+			return TRUE;
+		}
+
+	return FALSE;
+}
+
+
+int PARSE_number(void)
+{
+/**************************************
+ *
+ *	P A R S E _ n u m b e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the next token as a number and return its value.
+ *
+ **************************************/
+	SSHORT negate;
+	int number;
+
+	negate = MATCH(KW_MINUS);
+
+	if (DDL_token.tok_type != tok_number)
+		PARSE_error(115, DDL_token.tok_string, 0);	/* msg 115: expected number, encountered \"%s\" */
+
+	number = atoi(DDL_token.tok_string);
+	LEX_token();
+
+	if (negate)
+		return -number;
+
+	return number;
+}
+
+
+REL PARSE_relation(void)
+{
+/**************************************
+ *
+ *	P A R S E _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the relation block associated with the current token.
+ *	If the relatio was defined before, use the old definition.
+ *	If not, create a new one.  Somebody else will decide whether
+ *	this one is worth keeping.
+ *
+ **************************************/
+	SYM symbol;
+	REL relation;
+
+	if (DDL_token.tok_type != tok_ident)
+		PARSE_error(116, DDL_token.tok_string, 0);	/* msg 116: expected relation name, encountered \"%s\" */
+
+	symbol = HSH_typed_lookup(DDL_token.tok_string, DDL_token.tok_length,
+							  SYM_relation);
+	if (symbol && (relation = (REL) symbol->sym_object) &&
+		relation->rel_database == database) {
+		LEX_token();
+		return relation;
+	}
+
+	relation = (REL) DDL_alloc(REL_LEN);
+	relation->rel_name = symbol = PARSE_symbol(tok_ident);
+	symbol->sym_type = SYM_relation;
+	symbol->sym_object = (CTX) relation;
+
+	if (!(relation->rel_database = database))
+		PARSE_error(111, 0, 0);	/* msg 111: no database declared */
+
+	relation->rel_next = database->dbb_relations;
+	database->dbb_relations = relation;
+
+	return relation;
+}
+
+
+SYM PARSE_symbol(enum tok_t type)
+{
+/**************************************
+ *
+ *	P A R S E _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Swallow the current token as a symbol.
+ *
+ **************************************/
+	SYM symbol;
+	TEXT c, *p, *q;
+	USHORT l;
+
+	if (DDL_token.tok_type != type)
+		switch (type) {
+		case tok_ident:
+			PARSE_error(117, DDL_token.tok_string, 0);	/* msg 117: expected identifier, encountered \"%s\" */
+		case tok_quoted:
+			PARSE_error(118, DDL_token.tok_string, 0);	/* msg 118: expected quoted string, encountered \"%s\" */
+		default:
+			PARSE_error(119, DDL_token.tok_string, 0);	/* msg 119: expected symbol, encountered \"%s\" */
+		}
+	l = DDL_token.tok_length;
+	q = DDL_token.tok_string;
+
+	if (type == tok_quoted) {
+		if (l < 2)
+			PARSE_error(118, DDL_token.tok_string, 0);	/* msg 118: expected quoted string, encountered \"%s\" */
+		q++;
+		l -= 2;
+	}
+
+	symbol = (SYM) DDL_alloc(SYM_LEN + l);
+	symbol->sym_length = l;
+	p = symbol->sym_string = symbol->sym_name;
+
+	if (l)
+		if (type == tok_ident)
+			do {
+				c = *q++;
+				*p++ = UPPER(c);
+#ifdef JPN_SJIS
+				/* Do not uppercase the second byte of a SJIS character */
+
+				if (KANJI1(c) && l > 1) {
+					*p++ = *q++;
+					l--;
+				}
+
+#endif
+			}
+			while (--l);
+		else
+			do
+				*p++ = *q++;
+			while (--l);
+
+	LEX_token();
+
+	return symbol;
+}
+
+
+static BOOLEAN check_filename( SYM name, USHORT decnet_flag)
+{
+/**************************************
+ *
+ *	c h e c k _ f i l e n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make sure that a file path doesn't contain an
+ *	inet node name.
+ *
+ **************************************/
+	USHORT l;
+	TEXT file_name[256], *p, *q;
+
+	if (!(l = name->sym_length))
+		return TRUE;
+	l = MIN(l, sizeof(file_name) - 1);
+	for (p = file_name, q = name->sym_string; l--; *p++ = *q++);
+	*p = 0;
+
+	for (p = file_name; *p; p++)
+		if (p[0] == ':' && p[1] == ':')
+			if (!decnet_flag)
+				return FALSE;
+			else {
+				for (p = file_name; *p;)
+					if (*p++ == '^')
+						return FALSE;
+				return TRUE;
+			}
+
+	return !ISC_check_if_remote(file_name, FALSE);
+}
+
+
+static SYM copy_symbol( SYM old_name)
+{
+/**************************************
+ *
+ *	c o p y _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *    Create a new symbol block for
+ *    the same symbol as an existing block.
+ *    This seems dumber than it is, because
+ *    the implicit creation of global fields
+ *    from local definitions depends on it as
+ *    does the implicit invocation of same-named
+ *    global fields.
+ *
+ *    We'll just leave the type blank for now. 
+ *
+ **************************************/
+	SYM new_name;
+
+	new_name = (SYM) DDL_alloc(SYM_LEN + old_name->sym_length);
+	new_name->sym_length = old_name->sym_length;
+	new_name->sym_string = new_name->sym_name;
+	strcpy(new_name->sym_name, old_name->sym_name);
+
+	return new_name;
+}
+
+
+static FLD create_global_field( FLD local_field)
+{
+/**************************************
+ *
+ *	c r e a t e _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a field block so we can
+ *	have separate blocks for global
+ *	and local fields, even when the
+ *	global field is defined implicitly.
+ *
+ *	This creates a new field and symbol
+ *	block.
+ *
+ **************************************/
+	FLD global_field;
+	SYM old_name, new_name;
+
+	global_field = (FLD) DDL_alloc(FLD_LEN);
+	global_field->fld_dtype = local_field->fld_dtype;
+	global_field->fld_length = local_field->fld_length;
+	global_field->fld_scale = local_field->fld_scale;
+	global_field->fld_segment_length = local_field->fld_segment_length;
+	global_field->fld_sub_type = local_field->fld_sub_type;
+	global_field->fld_has_sub_type = local_field->fld_has_sub_type;
+	global_field->fld_dimension = local_field->fld_dimension;
+	global_field->fld_system = local_field->fld_system;
+	global_field->fld_database = local_field->fld_database;
+	global_field->fld_query_name = local_field->fld_query_name;
+	global_field->fld_query_header = local_field->fld_query_header;
+	global_field->fld_edit_string = local_field->fld_edit_string;
+	global_field->fld_computed = local_field->fld_computed;
+	global_field->fld_missing = local_field->fld_missing;
+	global_field->fld_default = local_field->fld_default;
+	global_field->fld_validation = local_field->fld_validation;
+	global_field->fld_description = local_field->fld_description;
+	global_field->fld_compute_src = local_field->fld_compute_src;
+	global_field->fld_valid_src = local_field->fld_valid_src;
+	global_field->fld_ranges = local_field->fld_ranges;
+
+	if (local_field->fld_source)
+		global_field->fld_name = local_field->fld_source;
+	else {
+		old_name = local_field->fld_name;
+		global_field->fld_name = new_name = copy_symbol(old_name);
+		new_name->sym_type = SYM_global;
+		new_name->sym_object = (CTX) global_field;
+		local_field->fld_source = new_name;
+	}
+
+	global_field->fld_flags = local_field->fld_flags & ~fld_local;
+	local_field->fld_source_field = global_field;
+	local_field->fld_flags |= fld_local;
+
+	return global_field;
+}
+
+
+static FIL define_cache(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ c a c h e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a shared cache to an existing database.
+ *
+ **************************************/
+	FIL file;
+
+	file = (FIL) DDL_alloc(sizeof(struct fil));
+	file->fil_name = PARSE_symbol(tok_quoted);
+	if (!check_filename(file->fil_name, FALSE))
+		PARSE_error(322, 0, 0);	/* msg 322: a node name is not permitted in a shared cache file name */
+
+	if (MATCH(KW_LENGTH)) {
+		if ((file->fil_length = PARSE_number()) < MIN_CACHE_BUFFERS)
+			PARSE_error(339, (TEXT *) MIN_CACHE_BUFFERS, 0);	/* msg 339: minimum of %d cache pages required */
+		MATCH(KW_PAGES);
+	}
+	else
+		file->fil_length = DEF_CACHE_BUFFERS;	/* default cache buffers */
+
+	return file;
+}
+
+
+static void define_database( enum act_t action_type)
+{
+/**************************************
+ *
+ *	d e f i n e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the tail of a DEFINE, MODIFY, or DELETE DATABASE statement.
+ *
+ **************************************/
+	FIL file;
+	SYM symbol;
+
+	if (database)
+		DDL_error_abort(0, 120, NULL, NULL, NULL, NULL, NULL);	/* msg 120: GDEF processes only one database at a time */
+
+	database = (DBB) DDL_alloc(DBB_LEN);
+	database->dbb_name = PARSE_symbol(tok_quoted);
+	DB_file_name = database->dbb_name->sym_name;
+	database->dbb_grp_cmt_wait = -1;	/* Initialized for default value */
+
+/* parse options for the database parameter block */
+
+	while (TRUE) {
+		if (MATCH(KW_LENGTH)) {
+			database->dbb_length = PARSE_number();
+			MATCH(KW_PAGES);
+		}
+		else if (MATCH(KW_USER)) {
+			symbol = PARSE_symbol(tok_quoted);
+			DDL_default_user = symbol->sym_name;
+		}
+		else if (MATCH(KW_PASSWORD)) {
+			symbol = PARSE_symbol(tok_quoted);
+			DDL_default_password = symbol->sym_name;
+		}
+		else
+			break;
+	}
+
+	if (action_type == act_d_database) {
+		if (MATCH(KW_CASCADE))
+			database->dbb_flags |= DBB_cascade;
+		EXE_drop_database(database);
+		DDL_drop_database = TRUE;
+		return;
+	}
+
+/* parse add/drop items */
+
+	while (TRUE) {
+		MATCH(KW_ADD);
+		if (KEYWORD(KW_DESCRIPTION))
+			database->dbb_description = parse_description();
+		else if (MATCH(KW_SECURITY_CLASS))
+			database->dbb_security_class = PARSE_symbol(tok_ident);
+		else if (MATCH(KW_DROP)) {
+			if (MATCH(KW_DESCRIP))
+				database->dbb_flags |= DBB_null_description;
+			else if (MATCH(KW_SECURITY_CLASS))
+				database->dbb_flags |= DBB_null_security_class;
+			else if (MATCH(KW_LOG_FILE)) {
+				if ((database->dbb_flags & DBB_log_default)
+					|| (database->dbb_logfiles)) PARSE_error(337, 0, 0);
+
+				database->dbb_flags |= DBB_drop_log;
+			}
+			else if (MATCH(KW_CASCADE))
+				database->dbb_flags |= DBB_cascade;
+#ifdef FLINT_CACHE
+			else if (MATCH(KW_CACHE))
+				database->dbb_flags |= DBB_drop_cache;
+#endif /* FLINT_CACHE */
+			else
+				PARSE_error(121, 0, 0);	/* msg 121 only SECURITY_CLASS, DESCRIPTION and CACHE can be dropped */
+		}
+		else if (MATCH(KW_FILE)) {
+			file = define_file();
+			file->fil_next = database->dbb_files;
+			database->dbb_files = file;
+		}
+		else if (MATCH(KW_PAGE_SIZE)) {
+			if (action_type == act_m_database)
+				PARSE_error(122, 0, 0);	/* msg 122: PAGE_SIZE can not be modified */
+			database->dbb_page_size = parse_page_size();
+		}
+		else if (MATCH(KW_CHECK_POINT_LEN)) {
+			MATCH(KW_EQUALS);
+			database->dbb_chkptlen = PARSE_number();
+		}
+		else if (MATCH(KW_NUM_LOG_BUFS)) {
+			MATCH(KW_EQUALS);
+			database->dbb_numbufs = PARSE_number();
+		}
+		else if (MATCH(KW_LOG_BUF_SIZE)) {
+			MATCH(KW_EQUALS);
+			database->dbb_bufsize = PARSE_number();
+		}
+		else if (MATCH(KW_GROUP_COMMIT_WAIT)) {
+			MATCH(KW_EQUALS);
+			database->dbb_grp_cmt_wait = PARSE_number();
+		}
+		else if (MATCH(KW_LOG_FILE)) {
+			if ((database->dbb_flags & DBB_log_default)
+				|| (database->dbb_logfiles)) PARSE_error(338, 0, 0);
+
+			if (database->dbb_flags & DBB_drop_log)
+				PARSE_error(337, 0, 0);
+
+			if (MATCH(KW_LEFT_PAREN)) {
+				database->dbb_flags |= DBB_log_preallocated;
+				while (TRUE) {
+					file = define_log_file(DBB_log_preallocated);
+					file->fil_next = database->dbb_logfiles;
+					database->dbb_logfiles = file;
+					if (!MATCH(KW_COMMA))
+						break;
+				}
+
+				if (!MATCH(KW_RIGHT_PAREN))
+					PARSE_error(341, DDL_token.tok_string, 0);	/* msg 341: expected comma or ')', encountered \"%s\" */
+
+				if (MATCH(KW_OVERFLOW))
+					database->dbb_overflow = define_log_file(DBB_log_serial);
+				else
+					PARSE_error(340, 0, 0);
+			}
+			else if (MATCH(KW_BASE_NAME)) {
+				database->dbb_flags |= DBB_log_serial;
+				database->dbb_logfiles = define_log_file(DBB_log_serial);
+			}
+			else
+				database->dbb_flags |= DBB_log_default;
+		}
+#ifdef FLINT_CACHE
+		else if (MATCH(KW_CACHE))
+			database->dbb_cache_file = define_cache();
+#endif /* FLINT_CACHE */
+		else
+			break;
+	}
+
+	parse_end();
+
+	if (action_type == act_c_database) {
+		database->dbb_flags |= DBB_create_database;
+		EXE_create_database(database);
+	}
+	else {
+		EXE_modify_database(database);
+	}
+
+	make_action(action_type, database);
+}
+
+
+static void define_field(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a DEFINE FIELD statement.
+ *
+ **************************************/
+	FLD field;
+
+	field = (FLD) DDL_alloc(FLD_LEN);
+	parse_field(field);
+	field->fld_database = database;
+
+	if (!field->fld_dtype)
+		PARSE_error(123, 0, 0);	/* msg 123: data type required for global field */
+
+	if (field->fld_security_class)
+		PARSE_error(124, 0, 0);	/* msg 124: Security class can appear only on local field references */
+
+	parse_end();
+
+	make_global_field(field);
+}
+
+
+static FIL define_file(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a new file to an existing database.
+ *
+ **************************************/
+	FIL file;
+
+	file = (FIL) DDL_alloc(sizeof(struct fil));
+	file->fil_name = PARSE_symbol(tok_quoted);
+	if (!check_filename(file->fil_name, FALSE))
+		PARSE_error(297, 0, 0);	/* msg 297: A node name is not permitted in a shadow or secondary file name */
+
+	while (TRUE) {
+		if (MATCH(KW_LENGTH)) {
+			file->fil_length = PARSE_number();
+			MATCH(KW_PAGES);
+		}
+		else if (MATCH(KW_STARTS)) {
+			MATCH(KW_AT);
+			MATCH(KW_PAGE);
+			file->fil_start = PARSE_number();
+		}
+		else
+			break;
+	}
+
+	return file;
+}
+
+
+static void define_filter(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a DEFINE FILTER statement.
+ *
+ **************************************/
+	FILTER filter;
+
+	if (DDL_token.tok_type != tok_ident)
+		PARSE_error(126, DDL_token.tok_string, 0);	/* msg 126: expected filter name, encountered \"%s\" */
+
+	filter = (FILTER) DDL_alloc(sizeof(struct filter));
+	filter->filter_name = PARSE_symbol(tok_ident);
+
+	while (TRUE) {
+		if (KEYWORD(KW_DESCRIPTION))
+			filter->filter_description = parse_description();
+		else if (MATCH(KW_INPUT_TYPE))
+			filter->filter_input_sub_type = PARSE_number();
+		else if (MATCH(KW_OUTPUT_TYPE))
+			filter->filter_output_sub_type = PARSE_number();
+		else if (MATCH(KW_FUNCTION_MODULE_NAME))
+			filter->filter_module_name = PARSE_symbol(tok_quoted);
+		else if (MATCH(KW_FUNCTION_ENTRY_POINT))
+			filter->filter_entry_point = PARSE_symbol(tok_quoted);
+		else
+			break;
+	}
+
+	if (!filter->filter_entry_point)
+		PARSE_error(127, 0, 0);	/* msg 127: Filter entry point must be specified */
+
+#if (defined WIN_NT || defined PC_PLATFORM)
+	if (!filter->filter_module_name)
+		PARSE_error(128, 0, 0);	/* msg 128: Filter module name must be specified */
+#endif
+
+	parse_end();
+	make_action(act_a_filter, filter);
+}
+
+
+static void define_function(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a DEFINE FUNCTION statement.
+ *
+ **************************************/
+	FUNC function;
+	FUNCARG function_arg;
+	SSHORT position;
+
+	function = PARSE_function(FALSE);
+
+	while (TRUE) {
+		if (KEYWORD(KW_DESCRIPTION))
+			function->func_description = parse_description();
+		else if (MATCH(KW_FUNCTION_MODULE_NAME))
+			function->func_module_name = PARSE_symbol(tok_quoted);
+		else if (MATCH(KW_FUNCTION_ENTRY_POINT))
+			function->func_entry_point = PARSE_symbol(tok_quoted);
+		else if (MATCH(KW_QUERY_NAME))
+			function->func_query_name = PARSE_symbol(tok_ident);
+		else
+			break;
+	}
+
+	if (!function->func_entry_point)
+		PARSE_error(130, 0, 0);	/* msg 130: Function entry point must be specified */
+
+#if (defined WIN_NT || defined PC_PLATFORM)
+	if (!function->func_module_name)
+		PARSE_error(131, 0, 0);	/* msg 131: Function module name must be specified */
+#endif
+
+/* Gobble function arguments */
+
+	position = 1;
+
+	while (TRUE) {
+		if (KEYWORD(KW_SEMI))
+			break;
+		function_arg = parse_function_arg(function, &position);
+		function_arg->funcarg_funcname = function->func_name;
+		make_action(act_a_function_arg, function_arg);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	if (!KEYWORD(KW_SEMI))
+		PARSE_error(132, DDL_token.tok_string, 0);	/* msg 132: expected comma or semi-colon, encountered \"%s\" */
+
+	make_action(act_a_function, function);
+}
+
+
+static void define_generator(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ g e n e r a t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a DEFINE GENERATOR statement.
+ *
+ **************************************/
+	SYM symbol;
+
+	if (DDL_token.tok_type != tok_ident)
+		PARSE_error(274, DDL_token.tok_string, 0);	/* msg 274: expected generator name, encountered \"%s\" */
+
+	symbol = PARSE_symbol(tok_ident);
+	parse_end();
+	make_action(act_a_generator, symbol);
+}
+
+
+static void define_index(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a new index.
+ *
+ **************************************/
+	LLS stack;
+	DUDLEY_IDX index;
+	SYM index_name, rel_name, *ptr;
+	TXT description;
+	SSHORT count, unique, inactive, descending;
+
+	index_name = PARSE_symbol(tok_ident);
+	MATCH(KW_FOR);
+	rel_name = PARSE_symbol(tok_ident);
+
+	unique = inactive = descending = FALSE;
+	description = NULL;
+
+	while (TRUE) {
+		if (MATCH(KW_DUPLICATES))
+			unique = FALSE;
+		else if (MATCH(KW_UNIQUE))
+			unique = TRUE;
+		else if (KEYWORD(KW_DESCRIPTION))
+			description = parse_description();
+		else if (MATCH(KW_ACTIVE))
+			inactive = FALSE;
+		else if (MATCH(KW_INACTIVE))
+			inactive = TRUE;
+		else if (MATCH(KW_ASCENDING))
+			descending = IDX_type_none;
+		else if (MATCH(KW_DESCENDING))
+			descending = IDX_type_descend;
+		else
+			break;
+	}
+
+	count = 0;
+
+	stack = NULL;
+
+	while (TRUE) {
+		LLS_PUSH(PARSE_symbol(tok_ident), &stack);
+		count++;
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	if (!KEYWORD(KW_SEMI))
+		PARSE_error(135, DDL_token.tok_string, 0);	/* msg 135: expected comma or semi-colon, encountered \"%s\" */
+	index = (DUDLEY_IDX) DDL_alloc(IDX_LEN(count));
+	index->idx_count = count;
+	index->idx_name = index_name;
+	index->idx_relation = rel_name;
+	index->idx_unique = unique;
+	index->idx_description = description;
+	index->idx_inactive = inactive;
+	index->idx_type = descending;
+
+	ptr = &index->idx_field[count];
+
+	while (stack)
+		*--ptr = (SYM) LLS_POP(&stack);
+
+	make_action(act_a_index, index);
+}
+
+
+static FIL define_log_file( USHORT log_type)
+{
+/**************************************
+ *
+ *	d e f i n e _ l o g _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	define a log file 
+ *
+ **************************************/
+	FIL file;
+
+	file = (FIL) DDL_alloc(sizeof(struct fil));
+	file->fil_name = PARSE_symbol(tok_quoted);
+	if (!check_filename(file->fil_name, FALSE))
+		PARSE_error(297, 0, 0);	/* msg 297: A node name is not permitted in a shadow or secondary file name */
+
+	while (TRUE) {
+		if (MATCH(KW_SIZE)) {
+			MATCH(KW_EQUALS);
+			file->fil_length = PARSE_number();
+		}
+		else if (MATCH(KW_RAW_PARTITIONS)) {
+			if (log_type != DBB_log_preallocated)
+				PARSE_error(332, 0, 0);	/* msg 332: Partitions not supported in series of log file specification */
+			MATCH(KW_EQUALS);
+			file->fil_partitions = PARSE_number();
+			file->fil_raw = LOG_raw;
+		}
+		else
+			break;
+	}
+
+/* Check for the specified length of the log file */
+
+	if (file->fil_partitions) {
+		if (!file->fil_length)
+			PARSE_error(335, file->fil_name->sym_string, 0);	/* msg 335: Total length of the partitioned
+																   log <logname> must be specified */
+		if (PARTITION_SIZE(OneK * file->fil_length, file->fil_partitions) <
+			(OneK * MIN_LOG_LENGTH))
+			PARSE_error(334, file->fil_name->sym_string, 0);
+		/* msg 334: log partition size too small for <logname> */
+	}
+	else {
+		if ((file->fil_length) && (file->fil_length < MIN_LOG_LENGTH))
+			PARSE_error(336, (TEXT *) MIN_LOG_LENGTH, 0);
+		/* msg 336: Minimum log length should be MIN_LOG_LENGTH Kbytes */
+	}
+
+	return file;
+}
+
+
+static void define_old_trigger(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ o l d _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse old style trigger definition
+ *
+ **************************************/
+	REL relation;
+	TRG trigger;
+	SYM name;
+
+	trigger = NULL;
+	relation = PARSE_relation();
+
+	while (!MATCH(KW_END_TRIGGER)) {
+		trigger = (TRG) DDL_alloc(TRG_LEN);
+		trigger->trg_relation = relation;
+
+		if (MATCH(KW_STORE))
+			trigger->trg_type = trg_store;
+		else if (MATCH(KW_MODIFY))
+			trigger->trg_type = trg_modify;
+		else if (MATCH(KW_ERASE))
+			trigger->trg_type = trg_erase;
+		else
+			PARSE_error(136, DDL_token.tok_string, 0);	/* msg 136: expected STORE, MODIFY, ERASE, END_TRIGGER, encountered \"%s\" */
+		MATCH(KW_COLON);
+
+		name = gen_trigger_name(trigger->trg_type, relation);
+
+		trigger->trg_name = name;
+		trigger->trg_source = start_text();
+		trigger->trg_statement = EXPR_statement();
+		end_text(trigger->trg_source);
+
+		make_action(act_a_trigger, trigger);
+	}
+
+	parse_end();
+
+	if (trigger) {
+		name->sym_type = SYM_trigger;
+		name->sym_object = (CTX) trigger;
+		HSH_insert(name);
+	}
+}
+
+
+static void define_relation(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a DEFINE RELATION statement.
+ *
+ **************************************/
+	REL relation;
+	FLD field, global;
+	SYM symbol;
+	DSC desc;
+	SSHORT position;
+	ACT rel_actions, action;
+
+	relation = PARSE_relation();
+	if (!(relation->rel_flags & rel_marked_for_delete) &&
+		((relation->rel_flags & rel_marked_for_creation)
+		 || EXE_relation(relation))) PARSE_error(137,
+												 relation->rel_name->sym_string, 0);	/* msg 137: relation %s already exists  */
+
+	if (MATCH(KW_EXTERNAL_FILE)) {
+		relation->rel_filename = PARSE_symbol(tok_quoted);
+		if (!check_filename(relation->rel_filename, TRUE))
+			PARSE_error(298, 0, 0);	/* msg 298: A non-Decnet node name is not permitted in an external file name */
+	}
+
+	rel_actions = action = make_action(act_a_relation, relation);
+	action->act_flags |= ACT_ignore;
+	position = 1;
+
+	while (TRUE)
+		if (KEYWORD(KW_DESCRIPTION))
+			relation->rel_description = parse_description();
+		else if (MATCH(KW_SECURITY_CLASS))
+			relation->rel_security_class = PARSE_symbol(tok_ident);
+		else if (MATCH(KW_SYSTEM_FLAG)) {
+			relation->rel_system = get_system_flag();
+			relation->rel_flags |= rel_explicit_system;
+		}
+		else
+			break;
+
+/* Gobble fields */
+
+	while (TRUE) {
+		MATCH(KW_ADD);
+		MATCH(KW_FIELD);
+		field = (FLD) DDL_alloc(FLD_LEN);
+		parse_field(field);
+		field->fld_relation = relation;
+		field->fld_database = database;
+		if (field->fld_computed)
+			make_computed_field(field);
+		else if (!(field->fld_flags & fld_local))
+			make_global_field(create_global_field(field));
+		else if (global = lookup_global_field(field)) {
+			field->fld_dtype = global->fld_dtype;
+			field->fld_length = global->fld_length;
+			field->fld_scale = global->fld_scale;
+			field->fld_segment_length = global->fld_segment_length;
+			field->fld_sub_type = global->fld_sub_type;
+			field->fld_has_sub_type = global->fld_has_sub_type;
+		}
+		if (field->fld_flags & fld_explicit_position)
+			position = field->fld_position + 1;
+		else
+			field->fld_position = position++;
+		field->fld_flags |= fld_explicit_position;
+		field->fld_name->sym_type = SYM_field;
+		HSH_insert(field->fld_name);
+		action = make_action(act_a_field, field);
+		action->act_flags |= ACT_ignore;
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	if (!KEYWORD(KW_SEMI))
+		PARSE_error(138, DDL_token.tok_string, 0);	/* msg 138: expected comma or semi-colon, encountered \"%s\" */
+
+/* We started off by assuming that the relation and field actions that
+   have been defined would have to be ignored.  Everything has gone well so
+   turn them on. */
+
+	while (TRUE) {
+		action->act_flags &= ~ACT_ignore;
+		if (action == rel_actions)
+			break;
+		action = action->act_next;
+	}
+
+	HSH_insert(relation->rel_name);
+	relation->rel_flags &= ~rel_marked_for_delete;
+	relation->rel_flags |= rel_marked_for_creation;
+}
+
+
+static void define_security_class(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an access control list.
+ *
+ **************************************/
+	SCL class_;
+	SCE element, *next;
+	USHORT score;
+	TEXT *p, c;
+
+	class_ = (SCL) DDL_alloc(sizeof(struct scl));
+	class_->scl_name = PARSE_symbol(tok_ident);
+	if (KEYWORD(KW_DESCRIPTION))
+		class_->scl_description = parse_description();
+
+/* Pick up entries. Use the users's order */
+
+	while (TRUE) {
+		if (!(element = parse_identifier()))
+			return;
+		for (next = &class_->scl_entries; *next; next = &(*next)->sce_next);
+		*next = element;
+		element->sce_privileges = parse_privileges();
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	parse_end();
+
+	make_action(act_a_security, class_);
+}
+
+
+static void define_shadow(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a shadow file to the database.
+ *	Parse it as a set of normal file additions, 
+ *	setting the shadow number on all files.
+ *
+ **************************************/
+	FIL shadow, file;
+	int number;
+
+	shadow = (FIL) DDL_alloc(sizeof(struct fil));
+
+/* get the shadow number, defaulting to 1 */
+
+	if (DDL_token.tok_type != tok_number)
+		number = 1;
+	else {
+		number = PARSE_number();
+		if (number < 1)
+			PARSE_error(139, 0, 0);	/* msg 139: shadow number must be a positive integer */
+	}
+
+/* match the keywords MANUAL or AUTO to imply whether the shadow 
+   should be automatically deleted when something goes awry */
+
+	if (MATCH(KW_MANUAL))
+		shadow->fil_manual = 1;
+	else
+		MATCH(KW_AUTO);
+
+	if (MATCH(KW_CONDITIONAL))
+		shadow->fil_conditional = 1;
+
+	shadow->fil_name = PARSE_symbol(tok_quoted);
+	if (!check_filename(shadow->fil_name, FALSE))
+		PARSE_error(297, 0, 0);	/* msg 297: A node name is not permitted in a shadow or secondary file name */
+
+	if (MATCH(KW_LENGTH)) {
+		shadow->fil_length = PARSE_number();
+		MATCH(KW_PAGES);
+	}
+
+	while (TRUE) {
+		if (MATCH(KW_FILE)) {
+			file = define_file();
+			file->fil_next = shadow;
+			shadow = file;
+		}
+		else
+			break;
+	}
+
+	parse_end();
+
+	for (file = shadow; file; file = file->fil_next)
+		file->fil_shadow_number = number;
+
+	make_action(act_a_shadow, shadow);
+}
+
+
+static void define_trigger(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse new trigger definition
+ *      syntax, being a little loose about
+ *	what comes when.
+ *
+ **************************************/
+	TRG trigger;
+	TRGMSG trigmsg;
+	int flags, trg_state, trg_sequence;
+	USHORT action, end;
+
+	if (MATCH(KW_FOR)) {
+		define_old_trigger();
+		return;
+	}
+
+	trigger = (TRG) DDL_alloc(TRG_LEN);
+	trigger->trg_name = PARSE_symbol(tok_ident);
+
+	MATCH(KW_FOR);
+
+	trigger->trg_relation = PARSE_relation();
+
+	flags = trg_state = trg_sequence = NULL;
+	get_trigger_attributes(&flags, &trg_state, &trg_sequence);
+	trigger->trg_type = trig_table[trg_state & ~trig_inact];
+	trigger->trg_inactive = (trg_state & trig_inact);
+	trigger->trg_sequence = trg_sequence;
+
+	if (!(int) trigger->trg_type)	/* still none */
+		PARSE_error(141, DDL_token.tok_string, 0);	/* msg 141: expected STORE, MODIFY, ERASE, encountered \"%s\" */
+
+	action = end = FALSE;
+
+	while (!KEYWORD(KW_SEMI)) {
+		if (KEYWORD(KW_DESCRIPTION))
+			trigger->trg_description = parse_description();
+		else if (MATCH(KW_END_TRIGGER))
+			action = end = TRUE;
+		else if (!action) {
+			trigger->trg_source = start_text();
+			trigger->trg_statement = EXPR_statement();
+			end_text(trigger->trg_source);
+			action = TRUE;
+		}
+		else if (MATCH(KW_MESSAGE)) {
+			trigmsg = (TRGMSG) DDL_alloc(sizeof(struct trgmsg));
+			trigmsg->trgmsg_trg_name = trigger->trg_name;
+			trigmsg->trgmsg_number = PARSE_number();
+			if (trigmsg->trgmsg_number > 255)
+				PARSE_error(142, (TEXT *) (trigmsg->trgmsg_number), 0);	/* msg 142: message number %d exceeds 255 */
+			MATCH(KW_COLON);
+			trigmsg->trgmsg_text = PARSE_symbol(tok_quoted);
+			make_action(act_a_trigger_msg, trigmsg);
+			MATCH(KW_COMMA);
+		}
+		else {
+			/* if none of the other cases were true, we must be stuck on a bum token */
+			if (end)
+				PARSE_error(304, DDL_token.tok_string, 0);	/* msg 304: expected message keyword, encountered \"%s\" */
+			else if (!action)
+				PARSE_error(305, DDL_token.tok_string, 0);	/* msg 305: expected trigger action, encountered \"%s\" */
+			else
+				PARSE_error(306, DDL_token.tok_string, 0);	/* msg 306: expected end_trigger or description keyword, encountered \"%s\" */
+			break;
+		}
+	}
+
+	parse_end();
+
+	make_action(act_a_trigger, trigger);
+	trigger->trg_name->sym_type = SYM_trigger;
+	trigger->trg_name->sym_object = (CTX) trigger;
+	HSH_insert(trigger->trg_name);
+}
+
+
+static ACT define_type(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a type for a field.
+ *
+ **************************************/
+	SYM fldname;
+	TYP fldtype;
+
+	MATCH(KW_FOR);
+	fldname = PARSE_symbol(tok_ident);
+
+	while (TRUE) {
+		fldtype = (TYP) DDL_alloc(sizeof(struct typ));
+		fldtype->typ_field_name = fldname;
+		fldtype->typ_name = PARSE_symbol(tok_ident);
+		MATCH(KW_COLON);
+		fldtype->typ_type = PARSE_number();
+		if (KEYWORD(KW_DESCRIPTION))
+			fldtype->typ_description = parse_description();
+		make_action(act_a_type, fldtype);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	parse_end();
+}
+
+
+static ACT define_view(void)
+{
+/**************************************
+ *
+ *	d e f i n e _ v i e w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a DEFINE VIEW statement.
+ *
+ **************************************/
+	REL relation;
+	FLD field, *ptr;
+	SYM symbol;
+	SSHORT position;
+	CTX context, my_context;
+	LLS contexts;
+	ACT rel_actions, action;
+
+/* Pick up relation name */
+
+	relation = PARSE_relation();
+	if (!(relation->rel_flags & rel_marked_for_delete) &&
+		((relation->rel_flags & rel_marked_for_creation)
+		 || EXE_relation(relation))) PARSE_error(300,
+												 relation->rel_name->sym_string, 0);	/* msg 300: relation %s already exists  */
+
+	MATCH(KW_OF);
+
+/* Parse record selection expression */
+
+	contexts = NULL;
+	relation->rel_view_source = start_text();
+	relation->rel_rse = EXPR_rse(TRUE);
+	end_text(relation->rel_view_source);
+
+/* add my context to the context stack */
+
+	contexts = (LLS) relation->rel_rse->nod_arg[s_rse_contexts];
+	my_context = make_context(0, relation);
+	LLS_PUSH(my_context, &contexts);
+	relation->rel_rse->nod_arg[s_rse_contexts] = (NOD) contexts;
+
+	rel_actions = action = make_action(act_a_relation, relation);
+	action->act_flags |= ACT_ignore;
+
+/* Pick up various fields and clauses */
+
+	while (TRUE) {
+		if (KEYWORD(KW_DESCRIPTION))
+			relation->rel_description = parse_description();
+		else if (MATCH(KW_SECURITY_CLASS))
+			relation->rel_security_class = PARSE_symbol(tok_ident);
+		else if (MATCH(KW_SYSTEM_FLAG)) {
+			relation->rel_system = get_system_flag();
+			relation->rel_flags |= rel_explicit_system;
+		}
+		else
+			break;
+	}
+
+/* Gobble fields */
+
+	position = 1;
+	ptr = &relation->rel_fields;
+
+	while (TRUE) {
+		MATCH(KW_ADD);
+		MATCH(KW_FIELD);
+		field = (FLD) DDL_alloc(FLD_LEN);
+		field->fld_flags |= fld_local;
+		field->fld_relation = relation;
+		*ptr = field;
+		ptr = &field->fld_next;
+		field->fld_name = symbol = PARSE_symbol(tok_ident);
+		if (context = lookup_context(symbol, contexts)) {
+			if (!MATCH(KW_DOT))
+				PARSE_error(144, DDL_token.tok_string, 0);	/* msg 144: expected period, encountered \"%s\" */
+			field->fld_name = field->fld_base = PARSE_symbol(tok_ident);
+		}
+		else {
+			if (MATCH(KW_FROM)) {
+				symbol = PARSE_symbol(tok_ident);
+				if (!(context = lookup_context(symbol, contexts)))
+					PARSE_error(145, DDL_token.tok_string, 0);
+				/* msg 145: expected qualified field name, encountered \"%s\" */
+				if (!MATCH(KW_DOT))
+					PARSE_error(146, DDL_token.tok_string, 0);
+				/* msg 146: expected period, encountered \"%s\" */
+				field->fld_base = PARSE_symbol(tok_ident);
+			}
+			else {
+				parse_field_dtype(field);
+				if (field->fld_dtype == blr_cstring)
+					PARSE_error(147, 0, 0);	/* msg 147: datatype cstring not supported for fields  */
+
+				if (MATCH(KW_COMPUTED)) {
+					MATCH(KW_BY);
+					if (!(MATCH(KW_LEFT_PAREN)))
+						PARSE_error(148, 0, 0);	/* msg 148: computed by expression must be parenthesized  */
+					field->fld_compute_src = start_text();
+					field->fld_computed = EXPR_value(0, 0);
+					end_text(field->fld_compute_src);
+					if (!(MATCH(KW_RIGHT_PAREN)))
+						PARSE_error(149, 0, 0);	/* msg 149: unmatched parenthesis */
+					context = my_context;
+				}
+				else
+					PARSE_error(150, DDL_token.tok_string, 0);
+				/* msg 150: expected FROM, COMPUTED, or qualified field, encountered \"%s\" */
+			}
+		}
+		field->fld_context = context;
+		parse_field_clauses(field);
+		if (field->fld_computed)
+			make_computed_field(field);
+		if (field->fld_flags & fld_explicit_position)
+			position = field->fld_position + 1;
+		else
+			field->fld_position = position++;
+		field->fld_flags |= fld_explicit_position;
+		field->fld_name->sym_type = SYM_field;
+		field->fld_name->sym_object = (CTX) field;
+		HSH_insert(field->fld_name);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	parse_end();
+
+/* We started off by assuming that the relation and field actions that
+   have been defined would have to be ignored.  Everything has gone well so
+   turn them on. */
+
+	while (TRUE) {
+		action->act_flags &= ~ACT_ignore;
+		if (action == rel_actions)
+			break;
+		action = action->act_next;
+	}
+
+	HSH_insert(relation->rel_name);
+	relation->rel_flags &= ~rel_marked_for_delete;
+	relation->rel_flags |= rel_marked_for_creation;
+}
+
+
+static void drop_filter(void)
+{
+/**************************************
+ *
+ *	d r o p _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the DROP (DELETE) filter statement.
+ *
+ **************************************/
+	FILTER filter;
+
+	filter = (FILTER) DDL_alloc(sizeof(struct filter));
+	filter->filter_name = PARSE_symbol(tok_ident);
+	parse_end();
+
+	make_action(act_d_filter, filter);
+}
+
+
+static void drop_function(void)
+{
+/**************************************
+ *
+ *	d r o p _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the DROP (DELETE) function statement.
+ *
+ **************************************/
+	FUNC function;
+
+	function = (FUNC) DDL_alloc(FUNC_LEN);
+	function->func_name = PARSE_symbol(tok_ident);
+	parse_end();
+
+	make_action(act_d_function, function);
+}
+
+
+static void drop_gfield(void)
+{
+/**************************************
+ *
+ *	d r o p _ g f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the DROP (DELETE) field statement.
+ *
+ **************************************/
+	FLD field;
+
+	field = (FLD) DDL_alloc(FLD_LEN);
+	field->fld_name = PARSE_symbol(tok_ident);
+	parse_end();
+
+	make_action(act_d_gfield, field);
+}
+
+
+static void drop_index(void)
+{
+/**************************************
+ *
+ *	d r o p _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse DROP INDEX statement.
+ *
+ **************************************/
+	DUDLEY_IDX index;
+	FLD field;
+
+	index = (DUDLEY_IDX) DDL_alloc(IDX_LEN(0));
+	index->idx_name = PARSE_symbol(tok_ident);
+	parse_end();
+
+	make_action(act_d_index, index);
+}
+
+
+static void drop_relation(void)
+{
+/**************************************
+ *
+ *	d r o p _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse DROP RELATION statement.
+ *
+ **************************************/
+	REL relation;
+	FLD field;
+
+	relation = PARSE_relation();
+	parse_end();
+
+	if (relation->rel_flags & rel_marked_for_creation)
+		PARSE_error(303, 0, 0);	/* msg 303: A relation or view may not be defined and then deleted in a single execution of GDEF */
+
+	relation->rel_flags |= rel_marked_for_delete;
+
+	make_action(act_d_relation, relation);
+}
+
+
+static void drop_security_class(void)
+{
+/**************************************
+ *
+ *	d r o p _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse DROP SECURITY_CLASS statement.
+ *
+ **************************************/
+	SCL class_;
+
+	class_ = (SCL) DDL_alloc(sizeof(struct scl));
+	class_->scl_name = PARSE_symbol(tok_ident);
+	parse_end();
+
+	make_action(act_d_security, class_);
+}
+
+
+static void drop_shadow(void)
+{
+/**************************************
+ *
+ *	d r o p _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse DROP SHADOW statement.
+ *
+ **************************************/
+	int number;
+
+	number = PARSE_number();
+	parse_end();
+
+	make_action(act_d_shadow, (DBB) number);
+}
+
+
+static void drop_trigger(void)
+{
+/**************************************
+ *
+ *	d r o p _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse trigger deletion
+ *      (old and new trigger syntax).
+ *
+ **************************************/
+	SYM name;
+	SSHORT old_style;
+	REL relation;
+	TRG trigger;
+
+	if (MATCH(KW_FOR)) {
+		relation = PARSE_relation();
+		old_style = TRUE;
+	}
+	else {
+		old_style = FALSE;
+		name = PARSE_symbol(tok_ident);
+	}
+
+	if (old_style) {
+		while (!MATCH(KW_END_TRIGGER)) {
+			trigger = (TRG) DDL_alloc(TRG_LEN);
+			if (MATCH(KW_STORE))
+				trigger->trg_type = trg_store;
+			else if (MATCH(KW_MODIFY))
+				trigger->trg_type = trg_modify;
+			else if (MATCH(KW_ERASE))
+				trigger->trg_type = trg_erase;
+			else
+				PARSE_error(153, DDL_token.tok_string, 0);
+			/* msg 153: "expected STORE, MODIFY, ERASE, or END_TRIGGER, encountered \"%s\" */
+			trigger->trg_name = name =
+				gen_trigger_name(trigger->trg_type, relation);
+			trigger->trg_relation = relation;
+			make_action(act_d_trigger, trigger);
+		}
+	}
+	else {
+		trigger = (TRG) DDL_alloc(TRG_LEN);
+		trigger->trg_name = name;
+		make_action(act_d_trigger, trigger);
+	}
+
+	parse_end();
+}
+
+
+static void drop_type(void)
+{
+/**************************************
+ *
+ *	d r o p _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the DROP (DELETE) type statement.
+ *
+ **************************************/
+	SYM fldname;
+	TYP fldtype;
+
+	MATCH(KW_FOR);
+	if (MATCH(KW_ALL)) {
+		fldtype = (TYP) DDL_alloc(sizeof(struct typ));
+		fldtype->typ_field_name = PARSE_symbol(tok_ident);
+		fldtype->typ_name->sym_length = 3;
+		strncpy(fldtype->typ_name->sym_string, "ALL", 3);
+		make_action(act_d_type, fldtype);
+	}
+	else {
+		fldname = PARSE_symbol(tok_ident);
+		while (TRUE) {
+			fldtype = (TYP) DDL_alloc(sizeof(struct typ));
+			fldtype->typ_field_name = fldname;
+			fldtype->typ_name = PARSE_symbol(tok_ident);
+			make_action(act_d_type, fldtype);
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+	}
+	parse_end();
+}
+
+
+static void end_text( TXT text)
+{
+/**************************************
+ *
+ *	e n d _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Mark end of a text description.
+ *
+ **************************************/
+
+	text->txt_length =
+		DDL_token.tok_position - DDL_token.tok_length - text->txt_position;
+
+#if (defined WIN_NT || defined PC_PLATFORM)
+/* the length of the text field should subtract out the 
+   line feeds, since they are automatically filtered out
+   when reading from a file */
+
+	text->txt_length -= (DDL_line - text->txt_start_line);
+#endif
+}
+
+
+static SYM gen_trigger_name( TRG_T type, REL relation)
+{
+/**************************************
+ *
+ *	g e n _ t r i g g e r _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a trigger name for an old style trigger.  
+ *
+ **************************************/
+	TEXT *p, *q, *end;
+	SYM symbol;
+
+	symbol = (SYM) DDL_alloc(SYM_LEN + GDS_NAME_LEN);
+	symbol->sym_string = symbol->sym_name;
+	p = symbol->sym_string;
+	end = p + GDS_NAME_LEN;
+
+/* Start by copying relation name */
+
+	q = relation->rel_name->sym_string;
+
+	while (*q && p < end)
+		*p++ = *q++;
+
+	switch (type) {
+	case trg_store:
+		q = "$STORE";
+		break;
+
+	case trg_modify:
+		q = "$MODIFY";
+		break;
+
+	case trg_erase:
+		q = "$ERASE";
+		break;
+
+	default:
+		DDL_err(156, NULL, NULL, NULL, NULL, NULL);	/* msg 156: gen_trigger_name: invalid trigger type */
+	}
+
+	while (*q && p < end)
+		*p++ = *q++;
+
+	*p = 0;
+
+	symbol->sym_length = p - symbol->sym_string;
+	return symbol;
+}
+
+
+static int get_system_flag(void)
+{
+/**************************************
+ *
+ *	g e t _ s y s t e m _ f l a g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return the (signed) numeric system flag value.
+ *
+ **************************************/
+	SSHORT number;
+
+	number = PARSE_number();
+
+	if (number == 1)
+		PARSE_error(157, 0, 0);	/* msg 157: System flag value of 1 is reserved for system relations */
+
+	return number;
+}
+
+
+static void get_trigger_attributes( int *flags, int *type, int *sequence)
+{
+/**************************************
+ *
+ *	g e t _ t r i g g e r _ a t t r i b u t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	trigger attributes include [[PRE | POST]
+ *	{STORE | MODIFY | ERASE } [SEQUENCE]].
+ *	All are optional on a new style modify,
+ *	PRE and POST are optional in new style definitions.
+ *	For STORE & MODIFY PRE is the default.
+ *	For ERASE, POST is the default.
+ *	
+ **************************************/
+
+	if (MATCH(KW_INACTIVE)) {
+		*flags |= trg_mflag_onoff;
+		*type |= trig_inact;
+	}
+	else if (MATCH(KW_ACTIVE))
+		*flags |= trg_mflag_onoff;
+
+	*flags |= trg_mflag_order;
+	if (MATCH(KW_PRE_STORE))
+		*type |= trig_sto;
+	else if (MATCH(KW_PRE_MODIFY))
+		*type |= trig_mod;
+	else if (MATCH(KW_PRE_ERASE))
+		*type |= trig_era;
+	else if (!(MATCH(KW_PRE))) {
+		*type |= trig_post;
+		if (MATCH(KW_POST_STORE))
+			*type |= trig_sto;
+		else if (MATCH(KW_POST_MODIFY))
+			*type |= trig_mod;
+		else if (MATCH(KW_POST_ERASE))
+			*type |= trig_era;
+		else if (!(MATCH(KW_POST))) {
+			*type &= ~trig_post;
+			*flags &= ~trg_mflag_order;
+		}
+	}
+
+	if (!(*type & ~(trig_inact | trig_post))) {
+		if (MATCH(KW_STORE))
+			*type |= trig_sto;
+		else if (MATCH(KW_MODIFY))
+			*type |= trig_mod;
+		else if (MATCH(KW_ERASE)) {
+			*type |= trig_era;
+			if (!(*flags & trg_mflag_order))
+				*type |= trig_post;
+		}
+	}
+
+
+	if ((!MATCH(KW_COLON)) && ((*flags & trg_mflag_order) ||
+							   (*type & (trig_sto | trig_mod | trig_era)))) {
+		*sequence = PARSE_number();
+		*flags |= trg_mflag_seqnum;
+		MATCH(KW_COLON);
+	}
+
+	if ((*type & ~trig_inact) || (*flags & trg_mflag_order))
+		*flags |= trg_mflag_type;
+}
+
+
+static void grant_user_privilege(void)
+{
+/**************************************
+ *
+ *	g r a n t _ u s e r _ p r i v i l e g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a SQL grant statement.
+ *
+ **************************************/
+	USERPRIV upriv;
+	UPFE upf;
+	USRE usr;
+
+	upriv = (USERPRIV) DDL_alloc(sizeof(struct userpriv));
+	upriv->userpriv_flags = 0;
+
+	while (TRUE) {
+		/* ALL is translated to mean four individual privileges */
+
+		if (MATCH(KW_ALL)) {
+			/* optional keyword following ALL */
+
+			MATCH(KW_PRIVILEGES);
+			upriv->userpriv_flags |= USERPRIV_select;
+			upriv->userpriv_flags |= USERPRIV_delete;
+			upriv->userpriv_flags |= USERPRIV_insert;
+			upriv->userpriv_flags |= USERPRIV_update;
+			if (!MATCH(KW_ON))
+				PARSE_error(159, DDL_token.tok_string, 0);	/* msg 159: expected ON, encountered \"%s\" */
+
+			break;
+		}
+		else if (MATCH(KW_SELECT))
+			upriv->userpriv_flags |= USERPRIV_select;
+		else if (MATCH(KW_DELETE))
+			upriv->userpriv_flags |= USERPRIV_delete;
+		else if (MATCH(KW_INSERT))
+			upriv->userpriv_flags |= USERPRIV_insert;
+		else if (MATCH(KW_UPDATE)) {
+			/* look for a field list for the update privilege */
+
+			upriv->userpriv_flags |= USERPRIV_update;
+			if (MATCH(KW_ON))
+				break;
+			if (MATCH(KW_COMMA))
+				continue;
+			if (!MATCH(KW_LEFT_PAREN))
+				PARSE_error(313, DDL_token.tok_string, 0);	/* msg 313: expected ON or '(', encountered "%s" */
+
+			do {
+				if (KEYWORD(KW_SELECT) || KEYWORD(KW_INSERT) ||
+					KEYWORD(KW_DELETE) || KEYWORD(KW_UPDATE))
+					break;
+				upf = (UPFE) DDL_alloc(sizeof(struct upfe));
+				upf->upfe_fldname = PARSE_symbol(tok_ident);
+				upf->upfe_next = upriv->userpriv_upflist;
+				upriv->userpriv_upflist = upf;
+			} while (MATCH(KW_COMMA));
+
+			if (!MATCH(KW_RIGHT_PAREN))
+				PARSE_error(314, DDL_token.tok_string, 0);	/* msg 314: expected ')', encountered "%s" */
+
+			continue;
+		}
+		if (!MATCH(KW_COMMA)) {
+			if (!MATCH(KW_ON))
+				PARSE_error(159, DDL_token.tok_string, 0);	/* msg 159: expected ON, encountered \"%s\" */
+			break;
+		}
+	}
+
+	if (!upriv->userpriv_flags)
+		PARSE_error(160, 0, 0);	/* msg 160: GRANT privilege was not specified */
+
+	upriv->userpriv_relation = PARSE_symbol(tok_ident);
+	if (!MATCH(KW_TO))
+		PARSE_error(161, DDL_token.tok_string, 0);	/* msg 161: expected TO, encountered "%s" */
+
+/* get the userlist */
+
+	while (TRUE) {
+		usr = (USRE) DDL_alloc(sizeof(struct usre));
+		usr->usre_name = PARSE_symbol(tok_ident);
+		usr->usre_next = upriv->userpriv_userlist;
+		upriv->userpriv_userlist = usr;
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+/* check for the optional WITH GRANT OPTION specification */
+
+	if (MATCH(KW_WITH)) {
+		if (!MATCH(KW_GRANT))
+			PARSE_error(162, DDL_token.tok_string, 0);	/* msg 162:expected GRANT, encountered \"%s\" */
+		if (!MATCH(KW_OPTION))
+			PARSE_error(163, DDL_token.tok_string, 0);	/* msg 163: expected OPTION, encountered \"%s\" */
+		upriv->userpriv_flags |= USERPRIV_grant;
+	}
+
+	parse_end();
+
+	make_action(act_grant, upriv);
+}
+
+
+static CTX lookup_context( SYM symbol, LLS contexts)
+{
+/**************************************
+ *
+ *	l o o k u p _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Search the context stack.  If a context name is given, consider
+ *	only named contexts; otherwise return the first unnamed context.
+ *	In either case, if nothing matches, return NULL.
+ *
+ **************************************/
+	CTX context;
+	SYM name;
+
+/* If no name is given, look for a nameless one. */
+
+	if (!symbol) {
+		for (; contexts; contexts = contexts->lls_next) {
+			context = (CTX) contexts->lls_object;
+			if (!context->ctx_name && !context->ctx_view_rse)
+				return context;
+		}
+		return NULL;
+	}
+
+/* Other search by name */
+
+	for (; contexts; contexts = contexts->lls_next) {
+		context = (CTX) contexts->lls_object;
+		if ((name = context->ctx_name) &&
+			!strcmp(name->sym_string, symbol->sym_string)) return context;
+	}
+
+	return NULL;
+}
+
+
+static FLD lookup_global_field( FLD field)
+{
+/**************************************
+ *
+ *	l o o k u p _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SYM symbol, name;
+
+/* Find symbol */
+
+	name = (field->fld_source) ? field->fld_source : field->fld_name;
+
+	if (symbol = HSH_typed_lookup(name->sym_string, name->sym_length,
+								  SYM_global))
+			return (FLD) symbol->sym_object;
+
+	PARSE_error(230, name->sym_string, 0);	/* msg 230: global field %s isn't defined */
+
+	return NULL;
+}
+
+
+static ACT make_action( enum act_t type, DBB object)
+{
+/**************************************
+ *
+ *	m a k e _ a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate and link an action block.
+ *
+ **************************************/
+	ACT action;
+
+	action = (ACT) DDL_alloc(ACT_LEN);
+	action->act_type = type;
+	action->act_next = DDL_actions;
+	action->act_object = object;
+	action->act_line = DDL_line;
+	DDL_actions = action;
+
+	return action;
+}
+
+
+static ACT make_computed_field( FLD field)
+{
+/**************************************
+ *
+ *	m a k e _ c o m p u t e d _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	FLD computed;
+	SYM symbol;
+	TEXT s[64];
+	USHORT i, l;
+
+/* Start by generating a unique name */
+
+	for (i = 1;; i++) {
+		sprintf(s, "RDB$%d", i);
+		l = strlen(s);
+		if (!HSH_lookup(s, l))
+			break;
+	}
+
+/* Make up new symbol block */
+
+	field->fld_source = symbol = (SYM) DDL_alloc(SYM_LEN + l);
+	symbol->sym_type = SYM_global;
+	symbol->sym_length = l;
+	symbol->sym_string = symbol->sym_name;
+	strcpy(symbol->sym_name, s);
+
+	field->fld_source_field = computed = create_global_field(field);
+	symbol->sym_object = (CTX) computed;
+	return make_global_field(computed);
+}
+
+
+static CTX make_context( TEXT * string, REL relation)
+{
+/**************************************
+ *
+ *	m a k e _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make context for trigger.
+ *
+ **************************************/
+	CTX context;
+	SYM symbol;
+
+	context = (CTX) DDL_alloc(CTX_LEN);
+	context->ctx_relation = relation;
+
+	if (string) {
+		context->ctx_name = symbol = (SYM) DDL_alloc(SYM_LEN);
+		symbol->sym_object = context;
+		symbol->sym_string = string;
+		symbol->sym_length = strlen(string);
+		symbol->sym_type = SYM_context;
+	}
+
+	return context;
+}
+
+
+static ACT make_global_field( FLD field)
+{
+/**************************************
+ *
+ *	m a k e _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SYM symbol;
+
+/* Make sure symbol is unique */
+
+	symbol = field->fld_name;
+	symbol->sym_object = (CTX) field;
+	symbol->sym_type = SYM_global;
+
+	if (symbol = HSH_typed_lookup(symbol->sym_string,
+								  symbol->sym_length,
+								  SYM_global))
+			PARSE_error(164, symbol->sym_string, 0);	/* msg 164: global field %s already exists */
+
+	HSH_insert(field->fld_name);
+
+	return make_action(act_a_gfield, field);
+}
+
+
+static void mod_old_trigger(void)
+{
+/**************************************
+ *
+ *	m o d _ o l d  _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse and old style modify trigger.
+ *      (first part was done earlier)
+ *
+ **************************************/
+	REL relation;
+	TRG trigger;
+	int flags, type, sequence;
+	SYM name, symbol;
+
+	relation = PARSE_relation();
+
+	while (!MATCH(KW_END_TRIGGER)) {
+		flags = type = sequence = NULL;
+		get_trigger_attributes(&flags, &type, &sequence);
+		if (!type)
+			PARSE_error(165, DDL_token.tok_string, 0);	/* msg 165: expected STORE, MODIFY, ERASE, END_TRIGGER, encountered \"%s\"  */
+		trigger = (TRG) DDL_alloc(TRG_LEN);
+		trigger->trg_relation = relation;
+		trigger->trg_mflag = flags & ~trg_mflag_order;
+		if (trigger->trg_mflag & trg_mflag_type)
+			trigger->trg_type = trig_table[type & ~trig_inact];
+		trigger->trg_name = name =
+			gen_trigger_name(trigger->trg_type, relation);
+		if (!
+			(symbol =
+			 HSH_typed_lookup(name->sym_string, name->sym_length,
+							  SYM_trigger))) PARSE_error(166,
+														 name->sym_string, 0);	/* msg 166: Trigger %s does not exist */
+		modify_trigger_action(trigger, relation);
+		make_action(act_m_trigger, trigger);
+	}
+	parse_end();
+}
+
+
+static void modify_field(void)
+{
+/**************************************
+ *
+ *	m o d i f y _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a MODIFY FIELD statement.
+ *
+ **************************************/
+	SYM symbol;
+	FLD field;
+
+	if (!local_context)
+		LLS_PUSH(DDL_alloc(CTX_LEN), &local_context);
+
+/* Lookup global field */
+
+	for (symbol = DDL_token.tok_symbol; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_global)
+			break;
+
+	if (!symbol)
+		PARSE_error(167, DDL_token.tok_string, 0);	/*msg 167: expected global field name, encountered \"%s\" */
+	field = (FLD) symbol->sym_object;
+	LEX_token();
+	field->fld_flags |= fld_modify;
+
+	parse_field_dtype(field);
+	if (field->fld_dtype == blr_cstring)
+		PARSE_error(168, 0, 0);	/*msg 168: datatype cstring not supported for fields */
+	parse_field_clauses(field);
+
+	if (field->fld_computed)
+		PARSE_error(169, 0, 0);	/* msg 169: A computed expression can not be changed or added */
+
+	if (field->fld_security_class)
+		PARSE_error(170, 0, 0);	/* msg 170: Security class can appear only on local field references */
+
+	parse_end();
+
+	make_action(act_m_gfield, field);
+}
+
+
+static void modify_index(void)
+{
+/**************************************
+ *
+ *	m o d i f y _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Alter an index.  Does not currently
+ *	allow adding or dropping fields from
+ *	an index
+ *
+ **************************************/
+	DUDLEY_IDX index;
+	SYM index_name, *ptr;
+	SSHORT active, unique;
+
+	index = (DUDLEY_IDX) DDL_alloc(IDX_LEN(0));
+	index->idx_name = PARSE_symbol(tok_ident);
+
+	while (TRUE) {
+		if (MATCH(KW_DUPLICATES)) {
+			index->idx_unique = FALSE;
+			index->idx_flags |= IDX_unique_flag;
+		}
+		else if (MATCH(KW_UNIQUE)) {
+			index->idx_unique = TRUE;
+			index->idx_flags |= IDX_unique_flag;
+		}
+		else if (MATCH(KW_ACTIVE)) {
+			index->idx_inactive = FALSE;
+			index->idx_flags |= IDX_active_flag;
+		}
+		else if (MATCH(KW_INACTIVE)) {
+			index->idx_inactive = TRUE;
+			index->idx_flags |= IDX_active_flag;
+		}
+		else if (MATCH(KW_ASCENDING)) {
+			index->idx_type = IDX_type_none;
+			index->idx_flags |= IDX_type_flag;
+		}
+		else if (MATCH(KW_DESCENDING)) {
+			index->idx_type = IDX_type_descend;
+			index->idx_flags |= IDX_type_flag;
+		}
+		else if (KEYWORD(KW_DESCRIPTION)) {
+			index->idx_description = parse_description();
+		}
+		else if (MATCH(KW_DROP)) {
+			if (MATCH(KW_DESCRIP))
+				index->idx_flags |= IDX_null_description;
+			else
+				PARSE_error(172, DDL_token.tok_string, 0);	/*msg 172: expected DESCRIPTION, encountered \"%s\" */
+		}
+		else if (MATCH(KW_STATISTICS))
+			index->idx_flags |= IDX_statistics_flag;
+		else
+			break;
+	}
+
+	make_action(act_m_index, index);
+}
+
+
+static void modify_relation(void)
+{
+/**************************************
+ *
+ *	m o d i f y _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a MODIFY RELATION statement.
+ *
+ **************************************/
+	REL relation;
+	FLD field, global;
+	TEXT modify_relation;
+
+	relation = PARSE_relation();
+	make_action(act_m_relation, relation);
+
+	if (MATCH(KW_EXTERNAL_FILE)) {
+		relation->rel_filename = PARSE_symbol(tok_quoted);
+		if (!check_filename(relation->rel_filename, TRUE))
+			PARSE_error(298, 0, 0);	/* msg 298: A non-Decnet node name is not permitted in an external file name */
+	}
+
+	modify_relation = FALSE;
+
+	while (TRUE) {
+		if (KEYWORD(KW_DESCRIPTION)) {
+			relation->rel_description = parse_description();
+			modify_relation = TRUE;
+		}
+		else if (MATCH(KW_SECURITY_CLASS))
+		 {
+			modify_relation = TRUE;
+			relation->rel_security_class = PARSE_symbol(tok_ident);
+		}
+		else if (MATCH(KW_SYSTEM_FLAG)) {
+			relation->rel_system = get_system_flag();
+			relation->rel_flags |= rel_explicit_system;
+			modify_relation = TRUE;
+		}
+		else
+			break;
+	}
+
+/* Act on field actions */
+
+	if (!KEYWORD(KW_SEMI))
+		while (TRUE) {
+			if (MATCH(KW_ADD)) {
+				MATCH(KW_FIELD);
+				{
+					field = (FLD) DDL_alloc(FLD_LEN);
+					parse_field(field);
+					field->fld_relation = relation;
+					field->fld_database = database;
+					if (field->fld_computed)
+						make_computed_field(field);
+					else if (!(field->fld_flags & fld_local))
+						make_global_field(create_global_field(field));
+					else if (global = lookup_global_field(field)) {
+						field->fld_dtype = global->fld_dtype;
+						field->fld_length = global->fld_length;
+						field->fld_scale = global->fld_scale;
+						field->fld_segment_length =
+							global->fld_segment_length;
+						field->fld_sub_type = global->fld_sub_type;
+						field->fld_has_sub_type = global->fld_has_sub_type;
+					}
+					if (!(field->fld_flags & fld_explicit_position))
+						field->fld_position = ++relation->rel_field_position;
+					field->fld_name->sym_type = SYM_field;
+					HSH_insert(field->fld_name);
+					make_action(act_a_field, field);
+				}
+			}
+			else if (MATCH(KW_MODIFY)) {
+				MATCH(KW_FIELD);
+				field = (FLD) DDL_alloc(FLD_LEN);
+				field->fld_flags |= (fld_modify | fld_local);
+				parse_field(field);
+				field->fld_relation = relation;
+				field->fld_database = database;
+				if (field->fld_computed)
+					PARSE_error(173, 0, 0);	/* msg 173: A computed expression can not be changed or added */
+				make_action(act_m_field, field);
+			}
+			else if (MATCH(KW_DROP)) {
+				if (MATCH(KW_SECURITY_CLASS)) {
+					relation->rel_flags |= rel_null_security_class;
+					modify_relation = TRUE;
+					MATCH(KW_COMMA);
+					if (KEYWORD(KW_SEMI))
+						break;
+					else
+						continue;
+				}
+				else if (MATCH(KW_DESCRIP)) {
+					modify_relation = TRUE;
+					relation->rel_flags |= rel_null_description;
+					MATCH(KW_COMMA);
+					if (KEYWORD(KW_SEMI))
+						break;
+					else
+						continue;
+				}
+				else {
+					MATCH(KW_FIELD);
+					field = (FLD) DDL_alloc(FLD_LEN);
+					field->fld_flags |= fld_local;
+					field->fld_relation = relation;
+					field->fld_database = database;
+					field->fld_name = PARSE_symbol(tok_ident);
+					make_action(act_d_field, field);
+				}
+			}
+			else
+				PARSE_error(174, DDL_token.tok_string, 0);	/* msg 174: expected field action, encountered \"%s\" */
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+
+	parse_end();
+
+	if (modify_relation)
+		relation->rel_flags |= rel_marked_for_modify;
+}
+
+
+static void modify_security_class(void)
+{
+/**************************************
+ *
+ *	m o d i f y _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify an existing security class.
+ *
+ **************************************/
+	SCL class_;
+	SCE element, *next;
+	USHORT score;
+	TEXT *p, c;
+
+/* return error msg for now until fully coded */
+
+	PARSE_error(247, 0, 0);		/* msg 247: action not implemented yet */
+
+	class_ = (SCL) DDL_alloc(sizeof(struct scl));
+	class_->scl_name = PARSE_symbol(tok_ident);
+	if (KEYWORD(KW_DESCRIPTION))
+		class_->scl_description = parse_description();
+
+	while (TRUE) {
+		if (!(element = parse_identifier()))
+			return;
+		score = score_entry(element);
+		for (next = &class_->scl_entries;; next = &(*next)->sce_next)
+			if (!*next || score > score_entry(*next)) {
+				element->sce_next = *next;
+				*next = element;
+				break;
+			}
+		element->sce_privileges = parse_privileges();
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	parse_end();
+	make_action(act_m_security, class_);
+}
+
+
+static void modify_trigger(void)
+{
+/**************************************
+ *
+ *	m o d i f y _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse new trigger modification
+ *      (go elsewhere if this is an old trigger).
+ *
+ **************************************/
+	REL relation;
+	TRG trigger;
+	TRGMSG trigmsg;
+	TRGMSG_T msg_type;
+	SLONG flags, type, sequence;
+	SYM name;
+	SCHAR action, end;
+
+	action = end = FALSE;
+	msg_type = trgmsg_none;
+
+	if (MATCH(KW_FOR)) {		/* modify trigger for ... is the old syntax */
+		mod_old_trigger();
+		return;
+	}
+
+/* lookup the trigger name, complain and quit if it's unknown */
+
+	for (name = DDL_token.tok_symbol;
+		 name && (name->sym_type != SYM_trigger); name = name->sym_homonym);
+	if (!name)
+		PARSE_error(176, DDL_token.tok_string, 0);	/* msg 176: expected trigger name, encountered \"%s\" */
+	trigger = (TRG) name->sym_object;
+	LEX_token();
+
+/* in case somebody compulsive specifies the relation name */
+
+	if (MATCH(KW_FOR)) {
+		relation = PARSE_relation();
+		if (relation != trigger->trg_relation)
+			PARSE_error(177, 0, 0);	/* msg 177: Unsuccesful attempt to modify trigger relation */
+	}
+	else
+		relation = trigger->trg_relation;
+
+	flags = type = sequence = NULL;
+	get_trigger_attributes(&flags, &type, &sequence);
+
+	while (!KEYWORD(KW_SEMI)) {
+		if ((MATCH(KW_MESSAGE)) || (MATCH(KW_MSGADD)) ||
+			(MATCH(KW_MSGMODIFY))) msg_type = trgmsg_modify;
+		else if ((MATCH(KW_MSGDROP)) || (MATCH(KW_DROP))) {
+			MATCH(KW_MESSAGE);
+			msg_type = trgmsg_drop;
+		}
+		if (msg_type) {
+			trigmsg = (TRGMSG) DDL_alloc(sizeof(struct trgmsg));
+			trigmsg->trgmsg_trg_name = trigger->trg_name;
+			trigmsg->trgmsg_number = PARSE_number();
+			if (trigmsg->trgmsg_number > 255)
+				PARSE_error(178, (TEXT *) trigmsg->trgmsg_number, 0);	/* msg 178: message number %d exceeds 255 */
+			if (msg_type == trgmsg_drop)
+				make_action(act_d_trigger_msg, trigmsg);
+			else if (msg_type == trgmsg_modify) {
+				MATCH(KW_COLON);
+				trigmsg->trgmsg_text = PARSE_symbol(tok_quoted);
+				make_action(act_m_trigger_msg, trigmsg);
+			}
+			MATCH(KW_COMMA);
+			msg_type = trgmsg_none;
+		}
+		else if (MATCH(KW_END_TRIGGER))
+			end = TRUE;
+		else if (KEYWORD(KW_DESCRIPTION))
+			trigger->trg_description = parse_description();
+		else if (!action && !end) {
+			modify_trigger_action(trigger, relation);
+			action = TRUE;
+		}
+		else
+			PARSE_error(179, DDL_token.tok_string, 0);
+		/* msg 179: expected message modification keyword, encountered \"%s\" */
+	}
+	if (flags || type || sequence)
+		sort_out_attributes(trigger, flags, type, sequence);
+
+	make_action(act_m_trigger, trigger);
+}
+
+
+static void modify_trigger_action( TRG trigger, REL relation)
+{
+/**************************************
+ *
+ *	m o d i f y _ t r i g g e r _ a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a trigger statement.
+ *
+ **************************************/
+
+	trigger->trg_source = start_text();
+
+	trigger->trg_statement = EXPR_statement();
+	end_text(trigger->trg_source);
+}
+
+
+static void modify_type(void)
+{
+/**************************************
+ *
+ *	m o d i f y _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a modify of an existing type value for a field.
+ *
+ **************************************/
+	SYM fldname;
+	TYP fldtype;
+
+	MATCH(KW_FOR);
+	fldname = PARSE_symbol(tok_ident);
+	while (TRUE) {
+		fldtype = (TYP) DDL_alloc(sizeof(struct typ));
+		fldtype->typ_field_name = fldname;
+		fldtype->typ_name = PARSE_symbol(tok_ident);
+		MATCH(KW_COLON);
+		fldtype->typ_type = PARSE_number();
+		if (KEYWORD(KW_DESCRIPTION))
+			fldtype->typ_description = parse_description();
+		make_action(act_m_type, fldtype);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+	parse_end();
+}
+
+
+static void modify_view(void)
+{
+/**************************************
+ *
+ *	m o d i f y _ v i e w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a MODIFY VIEW  statement.
+ *
+ **************************************/
+	REL relation;
+	FLD field, global;
+	USHORT view_modify;
+
+	relation = PARSE_relation();
+	make_action(act_m_relation, relation);
+	view_modify = FALSE;
+
+	while (TRUE) {
+		if (KEYWORD(KW_DESCRIPTION)) {
+			relation->rel_description = parse_description();
+			view_modify = TRUE;
+		}
+		else if (MATCH(KW_SECURITY_CLASS)) {
+			relation->rel_security_class = PARSE_symbol(tok_ident);
+			view_modify = TRUE;
+		}
+		else if (MATCH(KW_SYSTEM_FLAG)) {
+			relation->rel_system = get_system_flag();
+			relation->rel_flags |= rel_explicit_system;
+			view_modify = TRUE;
+		}
+		else
+			break;
+	}
+
+/* Act on field actions */
+
+	if (!KEYWORD(KW_SEMI))
+		while (TRUE) {
+			if (MATCH(KW_MODIFY)) {
+				MATCH(KW_FIELD);
+				field = (FLD) DDL_alloc(FLD_LEN);
+				field->fld_flags |= (fld_modify | fld_local);
+				parse_field(field);
+				field->fld_relation = relation;
+				field->fld_database = database;
+				if (field->fld_computed)
+					PARSE_error(181, 0, 0);	/* msg 181: A computed expression can not be changed or added */
+				make_action(act_m_field, field);
+			}
+			else if (MATCH(KW_DROP)) {
+				if (MATCH(KW_DESCRIP)) {
+					view_modify = TRUE;
+					relation->rel_flags |= rel_null_description;
+
+					if (KEYWORD(KW_SEMI))
+						break;
+					else
+						continue;
+				}
+				else if (MATCH(KW_SECURITY_CLASS)) {
+					view_modify = TRUE;
+					relation->rel_flags |= rel_null_security_class;
+
+					if (KEYWORD(KW_SEMI))
+						break;
+					else
+						continue;
+				}
+				else {
+					MATCH(KW_FIELD);
+					field = (FLD) DDL_alloc(FLD_LEN);
+					field->fld_flags |= fld_local;
+					field->fld_relation = relation;
+					field->fld_database = database;
+					field->fld_name = PARSE_symbol(tok_ident);
+					make_action(act_d_field, field);
+				}
+			}
+			else
+				PARSE_error(182, DDL_token.tok_string, 0);
+			/* msg 182: expected drop/modify of field or security class, encountered \"%s\" */
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+
+	if (view_modify)
+		relation->rel_flags |= rel_marked_for_modify;
+	parse_end();
+}
+
+
+static BOOLEAN parse_action(void)
+{
+/**************************************
+ *
+ *	p a r s e _ a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a single action.  If an token flush is required, return TRUE.
+ *
+ **************************************/
+
+/* Set up an environment to catch syntax errors.  If one occurs, scan looking
+   for semi-colon to continue processing. */
+
+	if (setjmp(parse_env)) {
+		if (DDL_interactive)
+			LEX_flush();
+		else
+			while (!DDL_eof && !KEYWORD(KW_SEMI))
+				LEX_token();
+		return TRUE;
+	}
+
+	DDL_prompt = PROMPT;
+	LEX_token();
+	DDL_prompt = CONTINUATION;
+	if (DDL_eof)
+		return TRUE;
+
+	if (MATCH(KW_DEFINE))
+		switch (parse_object()) {
+		case obj_database:
+			define_database(act_c_database);
+			return TRUE;
+		case obj_relation:
+			define_relation();
+			return TRUE;
+		case obj_view:
+			define_view();
+			return TRUE;
+		case obj_field:
+			define_field();
+			return TRUE;
+		case obj_index:
+			define_index();
+			return TRUE;
+		case obj_security_class:
+			define_security_class();
+			return TRUE;
+		case obj_trigger:
+			define_trigger();
+			return TRUE;
+		case obj_file:
+			define_file();
+			return TRUE;
+		case obj_function:
+			define_function();
+			return TRUE;
+		case obj_type:
+			define_type();
+			return TRUE;
+		case obj_filter:
+			define_filter();
+			return TRUE;
+		case obj_shadow:
+			define_shadow();
+			return TRUE;
+		case obj_generator:
+			define_generator();
+			return TRUE;
+
+		default:
+			if (database) {
+				define_relation();
+				return TRUE;
+			}
+			PARSE_error(183, DDL_token.tok_string, 0);	/* msg 183: expected object for DEFINE, encountered \"%s\" */
+		}
+	else if (MATCH(KW_MODIFY))
+		switch (parse_object()) {
+		case obj_database:
+			define_database(act_m_database);
+			return TRUE;
+		case obj_relation:
+			modify_relation();
+			return TRUE;
+		case obj_view:
+			modify_view();
+			return TRUE;
+		case obj_field:
+			modify_field();
+			return TRUE;
+		case obj_index:
+			modify_index();
+			return TRUE;
+		case obj_security_class:
+			modify_security_class();
+			return TRUE;
+		case obj_trigger:
+			modify_trigger();
+			return TRUE;
+		case obj_function:
+			PARSE_error(233, 0, 0);	/* msg 233: action not implemented yet */
+		case obj_type:
+			modify_type();
+			return TRUE;
+		case obj_filter:
+			PARSE_error(231, 0, 0);	/* msg 231: action not implemented yet */
+		case obj_shadow:
+			PARSE_error(232, 0, 0);	/* msg 232: action not implemented yet */
+		default:
+			PARSE_error(184, DDL_token.tok_string, 0);
+			/* msg 184: expected object for MODIFY, encountered \"%s\" */
+		}
+	else if (MATCH(KW_DROP))
+		switch (parse_object()) {
+		case obj_database:
+			define_database(act_d_database);
+			return TRUE;
+		case obj_relation:
+		case obj_view:
+			drop_relation();
+			return TRUE;
+		case obj_field:
+			drop_gfield();
+			return TRUE;
+		case obj_index:
+			drop_index();
+			return TRUE;
+		case obj_security_class:
+			drop_security_class();
+			return TRUE;
+		case obj_trigger:
+			drop_trigger();
+			return TRUE;
+		case obj_function:
+			drop_function();
+			return TRUE;
+		case obj_type:
+			drop_type();
+			return TRUE;
+		case obj_filter:
+			drop_filter();
+			return TRUE;
+		case obj_shadow:
+			drop_shadow();
+			return TRUE;
+		default:
+			PARSE_error(185, DDL_token.tok_string, 0);
+			/* msg 185: expected object for DROP, encountered \"%s\" */
+		}
+	else if (MATCH(KW_GRANT)) {
+		grant_user_privilege();
+		return TRUE;
+	}
+	else if (MATCH(KW_REVOKE)) {
+		revoke_user_privilege();
+		return TRUE;
+	}
+	else if (MATCH(KW_SET_GENERATOR)) {
+		set_generator();
+		return TRUE;
+	}
+	else if (MATCH(KW_SET)) {
+		if (!MATCH(KW_GENERATOR))
+			PARSE_error(318, DDL_token.tok_string, 0);	/* msg 318: expected GENERATOR, encountered \"%s\" */
+		set_generator();
+		return TRUE;
+	}
+	else if (DDL_interactive && KEYWORD(KW_EXIT)) {
+		DDL_eof = TRUE;
+		return FALSE;
+	}
+	else if (DDL_interactive && KEYWORD(KW_QUIT)) {
+		DDL_quit = DDL_eof = TRUE;
+		return FALSE;
+	}
+
+	PARSE_error(186, DDL_token.tok_string, 0);	/* msg 186: expected command, encountered \"%s\" */
+	return FALSE;
+}
+
+
+static void parse_array( FLD field)
+{
+/************************************** 
+ *
+ *	p a r s e _ a r r a y 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the multi-dimensional array specification.
+ *
+ **************************************/
+	STR string;
+	SLONG n, *range, *end, *ptr, ranges[2 * MAX_DIMENSION];
+	TEXT *p;
+
+	if (!MATCH(KW_LEFT_PAREN))
+		return;
+
+/* Pick up ranges */
+
+	for (range = ranges;;) {
+		++field->fld_dimension;
+		range[0] = 1;
+		range[1] = PARSE_number();
+
+		if (MATCH(KW_COLON)) {
+			range[0] = range[1];
+			range[1] = PARSE_number();
+		}
+
+		if ((range[1] - range[0]) <= 0)
+			PARSE_error(188, 0, 0);	/* msg 188: array size must be positive */
+
+		range += 2;
+
+		if (MATCH(KW_RIGHT_PAREN))
+			break;
+
+		if (!MATCH(KW_COMMA))
+			PARSE_error(189, DDL_token.tok_string, 0);	/* msg 189: expected comma, encountered \"%s\" */
+	}
+
+/* Allocate and copy block to hold ranges */
+
+	n = field->fld_dimension * sizeof(SLONG) * 2;
+	field->fld_ranges = ptr = (SLONG *) DDL_alloc(n);
+
+	for (end = range, range = ranges; range < end;)
+		*ptr++ = *range++;
+}
+
+
+static TXT parse_description(void)
+{
+/**************************************
+ *
+ *	p a r s e _ d e s c r i p t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a text block to hold the pointer and length 
+ *	of the description of a metadata item.
+ *
+ **************************************/
+	TXT description;
+
+	DDL_description = TRUE;
+	description = start_text();
+	description->txt_position = DDL_token.tok_position;
+
+	while (!DDL_eof && (!KEYWORD(KW_END_DESCRIPTION)))
+		LEX_token();
+
+	if (DDL_eof)
+		return NULL;
+
+	end_text(description);
+	MATCH(KW_END_DESCRIPTION);
+	DDL_description = FALSE;
+
+	return description;
+}
+
+
+static void parse_end(void)
+{
+/**************************************
+ *
+ *	p a r s e _ e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the end of command.  Better be a semi-colon.
+ *
+ **************************************/
+
+	if (!KEYWORD(KW_SEMI))
+		PARSE_error(190, DDL_token.tok_string, 0);	/* msg 190: expected semi-colon, encountered \"%s\" */
+}
+
+
+static FLD parse_field( FLD field)
+{
+/**************************************
+ *
+ *	p a r s e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a field definition, complete with data type and clauses.
+ *
+ **************************************/
+
+	field->fld_name = PARSE_symbol(tok_ident);
+	field->fld_name->sym_object = (CTX) field;
+
+	if (MATCH(KW_BASED)) {
+		MATCH(KW_ON);
+		field->fld_source = PARSE_symbol(tok_ident);
+		field->fld_flags |= fld_local;
+	}
+	else {
+		parse_field_dtype(field);
+		if (field->fld_dtype == blr_cstring)
+			PARSE_error(191, 0, 0);	/* msg 191: datatype cstring not supported for fields */
+	}
+
+	if (!field->fld_dtype)
+		field->fld_flags |= fld_local;
+
+	parse_field_clauses(field);
+
+	if (!KEYWORD(KW_COMMA) && !KEYWORD(KW_SEMI))
+		PARSE_error(192, DDL_token.tok_string, 0);	/* msg 192: expected field clause, encountered \"%s\" */
+
+	validate_field(field);
+
+	return field;
+}
+
+
+
+static void parse_field_clauses( FLD field)
+{
+/**************************************
+ *
+ *	p a r s e _ f i e l d _ c l a u s e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a field definition, complete with data type and clauses.
+ *
+ **************************************/
+	int n;
+	TXT valid_text;
+	LLS stack;
+
+/* Pick up purely optional clauses */
+
+	while (TRUE)
+		switch (PARSE_keyword()) {
+		case KW_POSITION:
+			LEX_token();
+			field->fld_position = PARSE_number();
+			field->fld_flags |= fld_explicit_position;
+			break;
+
+		case KW_SECURITY_CLASS:
+			LEX_token();
+			field->fld_security_class = PARSE_symbol(tok_ident);
+			break;
+
+		case KW_DROP:
+			LEX_token();
+			if (MATCH(KW_SECURITY_CLASS))
+				field->fld_flags |= fld_null_security_class;
+			else if (MATCH(KW_VALID_IF))
+				field->fld_flags |= fld_null_validation;
+			else if (MATCH(KW_DESCRIP))
+				field->fld_flags |= fld_null_description;
+			else if (MATCH(KW_QUERY_NAME))
+				field->fld_flags |= fld_null_query_name;
+			else if (MATCH(KW_QUERY_HEADER))
+				field->fld_flags |= fld_null_query_header;
+			else if (MATCH(KW_EDIT_STRING))
+				field->fld_flags |= fld_null_edit_string;
+			else if (MATCH(KW_MISSING)) {
+				MATCH(KW_VALUE);
+				field->fld_flags |= fld_null_missing_value;
+			}
+			else
+				PARSE_error(193, DDL_token.tok_string, 0);
+			/* msg 193: expected DESCRIPTION, EDIT_STRING, MISSING VALUE, SECURITY_CLASS or VALID_IF", encountered \"%s\" */
+			break;
+
+		case KW_QUERY_NAME:
+			LEX_token();
+			MATCH(KW_IS);
+			field->fld_query_name = PARSE_symbol(tok_ident);
+			break;
+
+		case KW_EDIT_STRING:
+			LEX_token();
+			field->fld_edit_string = PARSE_symbol(tok_quoted);
+			break;
+
+		case KW_QUERY_HEADER:
+			LEX_token();
+			MATCH(KW_IS);
+			stack = NULL;
+			for (;;) {
+				LLS_PUSH(PARSE_symbol(tok_quoted), &stack);
+				if (!MATCH(KW_SLASH))
+					break;
+			}
+			field->fld_query_header = PARSE_make_list(stack);
+			break;
+
+		case KW_COMPUTED:
+			LEX_token();
+			MATCH(KW_BY);
+			if (!(MATCH(KW_LEFT_PAREN)))
+				PARSE_error(194, 0, 0);	/* msg 194: computed by expression must be parenthesized */
+			field->fld_compute_src = start_text();
+			field->fld_computed = EXPR_value(0, 0);
+			end_text(field->fld_compute_src);
+			if (!(MATCH(KW_RIGHT_PAREN)))
+				PARSE_error(195, 0, 0);	/* msg 195: unmatched parenthesis */
+			break;
+
+		case KW_MISSING:
+			LEX_token();
+			MATCH(KW_VALUE);
+			MATCH(KW_IS);
+			field->fld_missing = EXPR_value(0, 0);
+			break;
+
+		case KW_VALID_IF:
+			LEX_token();
+			MATCH(KW_IF);
+			if (!(MATCH(KW_LEFT_PAREN)))
+				PARSE_error(196, 0, 0);	/* msg 196: validation expression must be parenthesized */
+			field->fld_valid_src = start_text();
+			field->fld_validation = EXPR_boolean(0);
+			end_text(field->fld_valid_src);
+			if (!(MATCH(KW_RIGHT_PAREN)))
+				PARSE_error(195, 0, 0);	/* msg 195: unmatched parenthesis */
+			break;
+
+		case KW_SEGMENT_LENGTH:
+			LEX_token();
+			MATCH(KW_IS);
+			field->fld_segment_length = n = PARSE_number();
+			if (n <= 0)
+				PARSE_error(197, 0, 0);	/* msg 197: segment length must be positive */
+			break;
+
+		case KW_SUB_TYPE:
+			LEX_token();
+			parse_field_subtype(field);
+			break;
+
+		case KW_DEFAULT:
+			LEX_token();
+			MATCH(KW_VALUE);
+			MATCH(KW_IS);
+			field->fld_default = EXPR_value(0, 0);
+			break;
+
+		case KW_DESCRIPTION:
+			field->fld_description = parse_description();
+			break;
+
+		case KW_SYSTEM_FLAG:
+			LEX_token();
+			field->fld_system = get_system_flag();
+			field->fld_flags |= fld_explicit_system;
+			break;
+
+		default:
+			return;
+		}
+}
+
+
+static void parse_field_dtype( FLD field)
+{
+/**************************************
+ *
+ *	p a r s e _ f i e l d _ d t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a field definition, complete with data type and clauses.
+ *
+ **************************************/
+	int n;
+
+	switch (PARSE_keyword()) {
+	case KW_CHAR:
+		field->fld_dtype = blr_text;
+		break;
+
+	case KW_VARYING:
+		field->fld_dtype = blr_varying;
+		break;
+
+	case KW_CSTRING:
+		field->fld_dtype = blr_cstring;
+		break;
+
+	case KW_SHORT:
+		field->fld_dtype = blr_short;
+		field->fld_length = sizeof(SSHORT);
+		break;
+
+	case KW_LONG:
+		field->fld_dtype = blr_long;
+		field->fld_length = sizeof(SLONG);
+		break;
+
+	case KW_QUAD:
+		field->fld_dtype = blr_quad;
+		field->fld_length = sizeof(GDS__QUAD);
+		break;
+
+	case KW_FLOAT:
+		field->fld_dtype = blr_float;
+		field->fld_length = sizeof(float);
+		break;
+
+	case KW_DOUBLE:
+		field->fld_dtype = blr_double;
+		field->fld_length = sizeof(double);
+		break;
+
+	case KW_DATE:
+		field->fld_dtype = blr_timestamp;
+		field->fld_length = sizeof(GDS__QUAD);
+		break;
+
+	case KW_BLOB:
+		field->fld_dtype = blr_blob;
+		field->fld_length = sizeof(GDS__QUAD);
+		break;
+
+	default:
+		return;
+	}
+
+	LEX_token();
+
+	if (field->fld_dtype == blr_text ||
+		field->fld_dtype == blr_varying || field->fld_dtype == blr_cstring) {
+		if (!MATCH(KW_L_BRCKET) && !MATCH(KW_LT))
+			PARSE_error(200, DDL_token.tok_string, 0);	/* msg 200: expected \"[\", encountered \"%s\" */
+		field->fld_length = n = PARSE_number();
+		if (n <= 0)
+			PARSE_error(201, 0, 0);	/* msg 201: character field length must be positive */
+		if (!MATCH(KW_R_BRCKET) && !MATCH(KW_GT))
+			PARSE_error(202, DDL_token.tok_string, 0);	/* msg 202: expected \"]\", encountered \"%s\" */
+
+		if (MATCH(KW_SUB_TYPE))
+			parse_field_subtype(field);
+
+	}
+
+	if (field->fld_dtype != blr_blob)
+		parse_array(field);
+
+	field->fld_scale = 0;
+
+	if ((field->fld_dtype == blr_short ||
+		 field->fld_dtype == blr_long || field->fld_dtype == blr_quad))
+		if (MATCH(KW_SCALE))
+			field->fld_scale = PARSE_number();
+}
+
+
+static void parse_field_subtype( FLD field)
+{
+/**************************************
+ *
+ *	p a r s e _ f i e l d _ s u b t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Match a datatype sub_type clause.  Set the (fld_has_sub_type) flag
+ *	so we know this type is a type set by the user.
+ *
+ **************************************/
+
+	MATCH(KW_IS);
+	if (MATCH(KW_TEXT) || MATCH(KW_FIXED))
+		field->fld_sub_type = 1;
+	else if (MATCH(KW_BLR))
+		field->fld_sub_type = 2;
+	else if (MATCH(KW_ACL))
+		field->fld_sub_type = 3;
+	else if (PARSE_keyword() == KW_MINUS)
+		field->fld_sub_type = PARSE_number();
+	else if (DDL_token.tok_type != tok_number)
+		PARSE_error(198, DDL_token.tok_string, 0);	/* msg 198: expected field sub_type, encountered \"%s\" */
+	else
+		field->fld_sub_type = PARSE_number();
+
+	field->fld_has_sub_type = TRUE;
+}
+
+
+static FUNCARG parse_function_arg( FUNC function, USHORT * position)
+{
+/**************************************
+ *
+ *	p a r s e _ f u n c t i o n _ a r g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a function argument definition, complete with data type.
+ *
+ **************************************/
+	FUNCARG func_arg;
+	FLD field;
+
+	func_arg = (FUNCARG) DDL_alloc(FUNCARG_LEN);
+	field = (FLD) DDL_alloc(FLD_LEN);
+	parse_field_dtype(field);
+	func_arg->funcarg_dtype = field->fld_dtype;
+	func_arg->funcarg_scale = field->fld_scale;
+	func_arg->funcarg_length = field->fld_length;
+	func_arg->funcarg_sub_type = field->fld_sub_type;
+	func_arg->funcarg_has_sub_type = field->fld_has_sub_type;
+	func_arg->funcarg_position = (*position)++;
+
+	MATCH(KW_BY);
+	LEX_token();
+
+	switch (PARSE_keyword()) {
+	case KW_VALUE:
+		LEX_token();
+		func_arg->funcarg_mechanism = FUNCARG_mechanism_value;
+		if (field->fld_dtype == blr_text ||
+			field->fld_dtype == blr_varying ||
+			field->fld_dtype == blr_cstring ||
+			field->fld_dtype == blr_blob || field->fld_dtype == blr_timestamp)
+			PARSE_error(203, 0, 0);	/* msg 203: argument mode by value not allowed for this data type */
+		break;
+
+	case KW_REFERENCE:
+		LEX_token();
+		if (field->fld_dtype == blr_blob)
+			func_arg->funcarg_mechanism = FUNCARG_mechanism_blob_struc;
+		else
+			func_arg->funcarg_mechanism = FUNCARG_mechanism_reference;
+		break;
+
+	case KW_SCALAR_ARRAY_DESCRIPTOR:
+		LEX_token();
+		func_arg->funcarg_mechanism = FUNCARG_mechanism_sc_array_desc;
+		break;
+
+	default:
+		PARSE_error(204, 0, 0);	/* msg 204: argument mode is by value, or by reference */
+	}
+
+/* (kw_comma or kw_semi) here means this argument is not a 
+   return_value or a return_argument in which case it had
+   better not be passed by value */
+
+	if (KEYWORD(KW_COMMA) || KEYWORD(KW_SEMI)) {
+		if (func_arg->funcarg_mechanism == FUNCARG_mechanism_value)
+			PARSE_error(293, 0, 0);	/* msg 293: argument mode 'by value' requires a return mode */
+	}
+	else {
+		if (func_arg->funcarg_mechanism == FUNCARG_mechanism_sc_array_desc)
+			PARSE_error(295, 0, 0);	/* msg 295: "Functions can't return arrays." */
+		switch (PARSE_keyword()) {
+		case KW_RETURN_VALUE:
+			--(*position);
+			LEX_token();
+			function->func_return_arg = func_arg->funcarg_position = 0;
+			function->func_return = func_arg;
+			break;
+
+		case KW_RETURN_ARGUMENT:
+			LEX_token();
+			if (func_arg->funcarg_mechanism == FUNCARG_mechanism_value)
+				PARSE_error(292, 0, 0);	/* msg 292: argument mode of a return_argument must be 'by reference' */
+			function->func_return_arg = func_arg->funcarg_position;
+			function->func_return = func_arg;
+			break;
+
+		default:
+			PARSE_error(205, 0, 0);	/* msg 205: return mode must be return_value or return_argument */
+		}
+	}
+
+	if (*position > 11)
+		PARSE_error(310, 0, 0);	/* msg 310: UDF is limited to 10 parameters */
+
+	return func_arg;
+}
+
+
+static SCE parse_identifier(void)
+{
+/**************************************
+ *
+ *	p a r s e _ i d e n t i f i e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the hard part of an access control element.
+ *
+ **************************************/
+	TEXT *idents[10], **s, **end, **s1, strings[256], *p, *q;
+	USHORT length, ident;
+	SCE element;
+
+	p = strings;
+	for (s = idents, end = s + 10; s < end; s++)
+		*s = NULL;
+
+/* Get explicit identifiers, if any */
+
+	switch (DDL_token.tok_keyword) {
+	case (KW_VIEW):
+		LEX_token();
+		if (DDL_token.tok_type != tok_ident)
+			PARSE_error(117, DDL_token.tok_string, 0);	/* msg 117: expected identifier, encountered \"%s\" */
+		idents[id_view] = p;
+		q = DDL_token.tok_string;
+		while (*p++ = *q++);
+		LEX_token();
+		break;
+
+	case (KW_USER):
+		LEX_token();
+		if (DDL_token.tok_type != tok_ident)
+			PARSE_error(117, DDL_token.tok_string, 0);	/* msg 117: expected identifier, encountered \"%s\" */
+		idents[id_user] = p;
+		q = DDL_token.tok_string;
+		while (*p++ = *q++);
+		LEX_token();
+		if (MATCH(KW_GROUP)) {
+			if (DDL_token.tok_type != tok_ident)
+				PARSE_error(117, DDL_token.tok_string, 0);	/* msg 117: expected identifier, encountered \"%s\" */
+			idents[id_group] = p;
+			q = DDL_token.tok_string;
+			while (*p++ = *q++);
+			LEX_token();
+		}
+		break;
+
+	case (KW_GROUP):
+		LEX_token();
+		if (DDL_token.tok_type != tok_ident)
+			PARSE_error(117, DDL_token.tok_string, 0);	/* msg 117: expected identifier, encountered \"%s\" */
+		idents[id_group] = p;
+		q = DDL_token.tok_string;
+		while (*p++ = *q++);
+		LEX_token();
+		if (MATCH(KW_USER)) {
+			if (DDL_token.tok_type != tok_ident)
+				PARSE_error(117, DDL_token.tok_string, 0);	/* msg 117: expected identifier, encountered \"%s\" */
+			idents[id_user] = p;
+			q = DDL_token.tok_string;
+			while (*p++ = *q++);
+			LEX_token();
+		}
+		break;
+
+	case (KW_L_BRCKET):
+	case (KW_LT):
+		LEX_token();
+		if (!MATCH(KW_ASTERISK)) {
+			if (DDL_token.tok_type != tok_number)
+				PARSE_error(206, DDL_token.tok_string, 0);	/* msg 206: expected number, encountered \"%s\" */
+			idents[id_group] = p;
+			q = DDL_token.tok_string;
+			while (*p++ = *q++);
+			LEX_token();
+		}
+		if (!MATCH(KW_COMMA))
+			PARSE_error(207, DDL_token.tok_string, 0);	/* msg 207: expected comma between group and user ids, encountered \"%s\" */
+		if (!MATCH(KW_ASTERISK)) {
+			if (DDL_token.tok_type != tok_number)
+				PARSE_error(206, DDL_token.tok_string, 0);	/* msg 206: expected number, encountered \"%s\" */
+			idents[id_user] = p;
+			q = DDL_token.tok_string;
+			while (*p++ = *q++);
+			LEX_token();
+		}
+		if (!(MATCH(KW_R_BRCKET) || MATCH(KW_GT)))
+			PARSE_error(208, DDL_token.tok_string, 0);	/* msg 208: expected trailing bracket, encountered \"%s\" */
+
+		break;
+	}
+
+/* Build access control element */
+
+	element = (SCE) DDL_alloc(sizeof(struct sce) + (p - strings));
+	p = (TEXT *) element->sce_strings;
+
+	for (s = idents, end = s + 10, s1 = (TEXT **) element->sce_idents;
+		 s < end; s++, s1++)
+		if (q = *s) {
+			*s1 = p;
+			while (*p++ = *q++);
+		}
+
+	return element;
+}
+
+
+static OBJ_T parse_object(void)
+{
+/**************************************
+ *
+ *	p a r s e _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse on object name returning what we found.
+ *
+ **************************************/
+
+	if (MATCH(KW_DATABASE))
+		return obj_database;
+	else if (!database || !database->dbb_handle)
+		PARSE_error(209, 0, 0);	/* msg 209: no database declared */
+
+	if (MATCH(KW_RELATION))
+		return obj_relation;
+
+	if (MATCH(KW_FIELD))
+		return obj_field;
+
+	if (MATCH(KW_INDEX))
+		return obj_index;
+
+	if (MATCH(KW_VIEW))
+		return obj_view;
+
+	if (MATCH(KW_SECURITY_CLASS))
+		return obj_security_class;
+
+	if (MATCH(KW_TRIGGER))
+		return obj_trigger;
+
+	if (MATCH(KW_FILE))
+		return obj_file;
+
+	if (MATCH(KW_FUNCTION))
+		return obj_function;
+
+	if (MATCH(KW_TYPES))
+		return obj_type;
+
+	if (MATCH(KW_FILTER))
+		return obj_filter;
+
+	if (MATCH(KW_SHADOW))
+		return obj_shadow;
+
+	if (MATCH(KW_GENERATOR))
+		return obj_generator;
+
+	return obj_none;
+}
+
+
+static int parse_page_size(void)
+{
+/**************************************
+ *
+ *	p a r s e _ p a g e _ s i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	parse the page_size clause of a
+ *	define database statement
+ *	
+ *
+ **************************************/
+	int n1, n2;
+
+	MATCH(KW_EQUALS);
+	n2 = n1 = PARSE_number();
+
+	if (n1 <= 1024)
+		n2 = 1024;
+	else if (n1 <= 2048)
+		n2 = 2048;
+	else if (n1 <= 4096)
+		n2 = 4096;
+	else if (n1 <= 8192)
+		n2 = 8192;
+	else
+		PARSE_error(210, (TEXT *) n1, (TEXT *) MAX_PAGE_LEN);
+	/* msg 210: PAGE_SIZE specified (%d) longer than limit of %d bytes */
+	if (n1 != n2)
+		DDL_msg_put(211, (TEXT *) n1, (TEXT *) n2, NULL, NULL, NULL);
+	/* msg 211: PAGE_SIZE specified (%d) was rounded up to %d bytes\n */
+
+	return n2;
+}
+
+
+static SLONG parse_privileges(void)
+{
+/**************************************
+ *
+ *	p a r s e _ p r i v i l e g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an access control list.
+ *
+ **************************************/
+	TEXT *p, c;
+	SLONG privileges;
+
+	privileges = 0;
+
+	if (!MATCH(KW_MINUS)) {
+		if (DDL_token.tok_type != tok_ident)
+			PARSE_error(117, DDL_token.tok_string, 0);	/* msg 117: expected identifier, encountered \"%s\" */
+		p = DDL_token.tok_string;
+		while (c = *p++)
+			switch (UPPER(c)) {
+			case 'P':
+				privileges |= 1 << priv_protect;
+				break;
+
+			case 'G':
+				privileges |= 1 << priv_grant;
+				break;
+
+			case 'D':
+				privileges |= 1 << priv_delete;
+				break;
+
+			case 'R':
+				privileges |= 1 << priv_read;
+				break;
+
+			case 'W':
+				privileges |= 1 << priv_write;
+				break;
+
+			case 'C':
+				privileges |= 1 << priv_control;
+				break;
+
+			default:
+				PARSE_error(212, (TEXT *) p[-1], 0);
+				/* msg 212: Unrecognized privilege \"%c\" or unrecognized identifier */
+			}
+		LEX_token();
+	}
+
+	return privileges;
+}
+
+
+static void revoke_user_privilege(void)
+{
+/**************************************
+ *
+ *	r e v o k e _ u s e r _ p r i v i l e g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a SQL grant statement.
+ *
+ **************************************/
+	UPFE upf;
+	USERPRIV upriv;
+	USRE usr;
+
+	upriv = (USERPRIV) DDL_alloc(sizeof(struct userpriv));
+
+	while (TRUE) {
+		if (MATCH(KW_ALL)) {
+			/* optional keyword following ALL */
+
+			MATCH(KW_PRIVILEGES);
+			upriv->userpriv_flags |= USERPRIV_select;
+			upriv->userpriv_flags |= USERPRIV_delete;
+			upriv->userpriv_flags |= USERPRIV_insert;
+			upriv->userpriv_flags |= USERPRIV_update;
+		}
+		else if (MATCH(KW_SELECT))
+			upriv->userpriv_flags |= USERPRIV_select;
+		else if (MATCH(KW_DELETE))
+			upriv->userpriv_flags |= USERPRIV_delete;
+		else if (MATCH(KW_INSERT))
+			upriv->userpriv_flags |= USERPRIV_insert;
+		else if (MATCH(KW_UPDATE)) {
+			/* revoke update privilege applies to all fields in the grant
+			   update list */
+
+			upriv->userpriv_flags |= USERPRIV_update;
+			if (MATCH(KW_ON))
+				break;
+			if (MATCH(KW_COMMA))
+				continue;
+			if (!MATCH(KW_LEFT_PAREN))
+				PARSE_error(315, DDL_token.tok_string, 0);	/* msg 315: expected ON or '(', encountered "%s" */
+
+			do {
+				if (KEYWORD(KW_SELECT) || KEYWORD(KW_INSERT) ||
+					KEYWORD(KW_DELETE) || KEYWORD(KW_UPDATE))
+					break;
+				upf = (UPFE) DDL_alloc(sizeof(struct upfe));
+				upf->upfe_fldname = PARSE_symbol(tok_ident);
+				upf->upfe_next = upriv->userpriv_upflist;
+				upriv->userpriv_upflist = upf;
+			} while (MATCH(KW_COMMA));
+
+			if (!MATCH(KW_RIGHT_PAREN))
+				PARSE_error(316, DDL_token.tok_string, 0);	/* msg 316: expected ')', encountered "%s" */
+
+			continue;
+		}
+		if (!MATCH(KW_COMMA)) {
+			if (!MATCH(KW_ON))
+				PARSE_error(214, DDL_token.tok_string, 0);	/* msg 214: expected ON, encountered \"%s\" */
+			break;
+		}
+	}							/* while (TRUE) */
+
+	if (!upriv->userpriv_flags)
+		PARSE_error(215, 0, 0);	/* msg 215: REVOKE privilege was not specified */
+
+	upriv->userpriv_relation = PARSE_symbol(tok_ident);
+	if (!MATCH(KW_FROM))
+		PARSE_error(216, DDL_token.tok_string, 0);	/* msg 216: expected FROM, encountered \"%s\" */
+
+/* get the userlist */
+	while (TRUE) {
+		usr = (USRE) DDL_alloc(sizeof(struct usre));
+		usr->usre_name = PARSE_symbol(tok_ident);
+		usr->usre_next = upriv->userpriv_userlist;
+		upriv->userpriv_userlist = usr;
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	parse_end();
+	make_action(act_revoke, upriv);
+}
+
+
+static SLONG score_entry( SCE element)
+{
+/**************************************
+ *
+ *	s c o r e _ e n t r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute a value to determine placement of an 
+ *	access control element in an Apollo access 
+ *	control list.
+ *
+ **************************************/
+	SLONG score;
+	TEXT **ptr, **end;
+
+	score = 0;
+	if (element->sce_idents[id_view])
+		score++;
+
+	for (ptr = (TEXT **) element->sce_idents, end = ptr + id_max; ptr < end;
+		 ptr++) {
+		score <<= 1;
+		if (*ptr)
+			score |= 1;
+	}
+
+	return score;
+}
+
+
+static NOD set_generator(void)
+{
+/**************************************
+ *
+ *	s e t _ g e n e r a t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *      get the name and new value for generator
+ **************************************/
+	NOD node;
+	SYM symbol;
+
+	if (DDL_token.tok_type != tok_ident)
+		PARSE_error(274, DDL_token.tok_string, 0);	/* msg 274: expected generator name, encountered \"%s\" */
+
+	node = PARSE_make_node(nod_set_generator, 2);
+	node->nod_count = 1;
+	node->nod_arg[1] = (NOD) PARSE_symbol(tok_ident);
+	MATCH(KW_TO);
+	node->nod_arg[0] = EXPR_value(0, 0);
+
+	parse_end();
+	make_action(act_s_generator, node);
+}
+
+
+static void sort_out_attributes(
+								TRG trigger,
+								SLONG flags, SLONG type, SLONG sequence)
+{
+/**************************************
+ *
+ *	s o r t _ o u t _ a t t r i b u t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody is being very cute and changing
+ *	attributes of a trigger.  We're going to do
+ *	it, but we'd better remember the other, unchanged
+ *	attributes so we don't make a big mess.
+ *
+ **************************************/
+
+	trigger->trg_mflag = flags & ~trg_mflag_order;
+
+	if (flags & trg_mflag_type)
+		switch (trigger->trg_type) {
+		case trg_store:
+		case trg_post_store:
+			if (!(type & (trig_mod | trig_era)))
+				type |= trig_sto;
+			else if (!trigger->trg_statement && (type & trig_era))
+				PARSE_error(217, 0, 0);	/* msg 217: Attempt change trigger type from STORE to ERASE */
+			break;
+		case trg_modify:
+		case trg_post_modify:
+			if (!(type & (trig_sto | trig_era)))
+				type |= trig_mod;
+			else if (!trigger->trg_statement)
+				if (type & trig_sto)
+					PARSE_error(218, 0, 0);	/* msg 218: Attempt change trigger type from MODIFY to STORE */
+				else
+					PARSE_error(219, 0, 0);	/* msg 219: Attempt change trigger type from MODIFY to ERASE */
+			break;
+		case trg_pre_erase:
+		case trg_erase:
+			if (!(type & (trig_sto | trig_mod)))
+				type |= trig_era;
+			else if (!trigger->trg_statement && (type & trig_sto))
+				PARSE_error(220, 0, 0);	/* msg 220: Attempt to change trigger type from ERASE to STORE */
+		}
+
+	if ((!(flags & trg_mflag_order)) && (flags & trg_mflag_type))
+		switch (trigger->trg_type) {
+		case trg_erase:
+		case trg_post_modify:
+		case trg_post_store:
+			type |= trig_post;
+			break;
+		case trg_store:
+		case trg_modify:
+		case trg_pre_erase:
+			type &= ~trig_post;
+		}
+
+	if (trigger->trg_mflag & trg_mflag_type)
+		trigger->trg_type = trig_table[type & ~trig_inact];
+
+	if (trigger->trg_mflag & trg_mflag_seqnum)
+		trigger->trg_sequence = sequence;
+
+	if (trigger->trg_mflag & trg_mflag_onoff)
+		trigger->trg_inactive = type & trig_inact;
+}
+
+
+static TXT start_text(void)
+{
+/**************************************
+ *
+ *	s t a r t _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make the current position to save description text.
+ *
+ **************************************/
+	TXT text;
+
+	text = (TXT) DDL_alloc(TXT_LEN);
+	text->txt_position = DDL_token.tok_position - DDL_token.tok_length;
+	text->txt_start_line = DDL_line;
+
+	return text;
+}
+
+
+static void validate_field( FLD field)
+{
+/**************************************
+ *
+ *     v a l i d a t e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate that the field clauses make sense
+ *	together.
+ *
+ **************************************/
+	FLD global;
+	TEXT option[128];
+
+	*option = 0;
+
+	if (field->fld_flags & fld_local) {
+		if (field->fld_validation)
+			gds__msg_format(0, DDL_MSG_FAC, 221, sizeof(option), option, NULL,
+							NULL, NULL, NULL, NULL);
+		/* msg 221 /'valid if/' */
+		if (field->fld_missing)
+			gds__msg_format(0, DDL_MSG_FAC, 222, sizeof(option), option, NULL,
+							NULL, NULL, NULL, NULL);
+		/* msg 222: missing value */
+		if ((field->fld_dtype) && !(field->fld_computed))
+			gds__msg_format(0, DDL_MSG_FAC, 223, sizeof(option), option, NULL,
+							NULL, NULL, NULL, NULL);
+		/* msg 223: data type */
+		if ((field->fld_has_sub_type) && !(field->fld_computed))
+			gds__msg_format(0, DDL_MSG_FAC, 224, sizeof(option), option, NULL,
+							NULL, NULL, NULL, NULL);
+		/* msg 224: sub type */
+		if ((field->fld_segment_length) && !(field->fld_computed))
+			gds__msg_format(0, DDL_MSG_FAC, 225, sizeof(option), option, NULL,
+							NULL, NULL, NULL, NULL);
+		/* msg 225: segment_length */
+		if (*option)
+			PARSE_error(226, option, 0);	/* msg 226: %s is a global, not local, attribute */
+		return;
+	}
+
+	if (field->fld_computed && !(field->fld_dtype))
+		PARSE_error(227, 0, 0);	/* msg 227: computed fields need datatypes */
+
+	if (field->fld_flags & fld_modify)
+		return;
+
+	if ((field->fld_has_sub_type) &&
+		(field->fld_dtype != blr_blob) &&
+		(field->fld_dtype != blr_text) && (field->fld_dtype != blr_varying))
+		PARSE_error(228, 0, 0);	/* msg 228: subtypes are valid only for blobs and text */
+
+	if (field->fld_segment_length && (field->fld_dtype != blr_blob))
+		PARSE_error(229, 0, 0);	/* msg 229: segment length is valid only for blobs */
+
+	if ((field->fld_dtype == blr_blob) && !(field->fld_segment_length))
+		field->fld_segment_length = 80;
+}
diff --git a/src/dudley/parse.h b/src/dudley/parse.h
new file mode 100644
index 0000000000..e05f97b170
--- /dev/null
+++ b/src/dudley/parse.h
@@ -0,0 +1,261 @@
+/*
+ *	PROGRAM:	JRD Data Definition Language
+ *	MODULE:		parse.h
+ *	DESCRIPTION:	Parser definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DUDLEY_PARSE_H_
+#define _DUDLEY_PARSE_H_
+
+#define MATCH(kw)		PARSE_match (kw)
+#define SYNTAX_NODE(type,count)	PARSE_make_node (type, count)
+#define KEYWORD(kw)		(DDL_token.tok_keyword == kw)
+
+/* Keywords */
+
+enum kwwords {
+	KW_none = 0,
+	KW_ABORT,
+	KW_ACTIVE,
+	KW_ADD,
+	KW_ACL,
+	KW_ALL,
+	KW_AMPERSAND,
+	KW_AND,
+	KW_ANY,
+	KW_ARRAY,
+	KW_ASCENDING,
+	KW_ASTERISK,
+	KW_AT,
+	KW_AUTO,
+	KW_AVERAGE,
+	KW_BAR,
+	KW_BASED,
+	KW_BASE_NAME,
+	KW_BEGIN,
+	KW_BETWEEN,
+	KW_BLOB,
+	KW_BLR,
+	KW_BY,
+	KW_CACHE,
+	KW_CASCADE,
+	KW_CHAR,
+	KW_CHECK_POINT_LEN,
+	KW_COLON,
+	KW_COMMA,
+	KW_CONDITIONAL,
+	KW_CONTAINING,
+	KW_COMPUTED,
+	KW_CONSTRAINT,
+	KW_COUNT,
+	KW_CROSS,
+	KW_CSTRING,
+	KW_CURSOR,
+	KW_DATABASE,
+	KW_DATE,
+	KW_DEFAULT,
+	KW_DEFINE,
+	KW_DELETE,
+	KW_DESCENDING,
+	KW_DESCRIP,
+	KW_DESCRIPTION,
+	KW_DISTINCT,
+	KW_DOT,
+	KW_DOUBLE,
+	KW_DROP,
+	KW_DUPLICATES,
+	KW_EDIT_STRING,
+	KW_ELSE,
+	KW_END,
+	KW_END_DESCRIPTION,
+	KW_END_FOR,
+	KW_END_MODIFY,
+	KW_END_STORE,
+	KW_END_TRIGGER,
+	KW_EQ,
+	KW_EQUALS,
+	KW_ERASE,
+	KW_EXIT,
+	KW_EXTERNAL_FILE,
+	KW_FIELD,
+	KW_FILE,
+	KW_FIRST,
+	KW_FIXED,
+	KW_FLOAT,
+	KW_FOR,
+	KW_FROM,
+	KW_FILTER,
+	KW_FUNCTION,
+	KW_FUNCTION_CLASS,
+	KW_FUNCTION_ENTRY_POINT,
+	KW_FUNCTION_MODULE_NAME,
+	KW_GE,
+	KW_GEN_ID,
+	KW_GENERATOR,
+	KW_GRANT,
+	KW_GT,
+	KW_GROUP,
+	KW_GROUP_COMMIT_WAIT,
+	KW_IF,
+	KW_IN,
+	KW_INACTIVE,
+	KW_INDEX,
+	KW_INPUT_TYPE,
+	KW_INTO,
+	KW_INSERT,
+	KW_IS,
+	KW_LE,
+	KW_LENGTH,
+	KW_L_BRACE,
+	KW_L_BRCKET,
+	KW_LEFT_PAREN,
+	KW_LOG_BUF_SIZE,
+	KW_LOG_FILE,
+	KW_LONG,
+	KW_LT,
+	KW_MANUAL,
+	KW_MATCHES,
+	KW_MAX,
+	KW_MESSAGE,
+	KW_MIN,
+	KW_MINUS,
+	KW_MISSING,
+	KW_MODIFY,
+	KW_MSGADD,
+	KW_MSGDROP,
+	KW_MSGMODIFY,
+	KW_NE,
+	KW_NO,
+	KW_NOT,
+	KW_NULL,
+	KW_NUM_LOG_BUFS,
+	KW_OF,
+	KW_OFFSET,
+	KW_ON,
+	KW_OPTION,
+	KW_OR,
+	KW_OUTPUT_TYPE,
+	KW_OVER,
+	KW_OVERFLOW,
+	KW_OVERWRITE,
+	KW_PAGES,
+	KW_PAGE,
+	KW_PAGE_NUMBER,
+	KW_PAGE_SIZE,
+	KW_PARTITIONS,
+	KW_PASSWORD,
+	KW_PERCENT,
+	KW_PLUS,
+	KW_POSITION,
+	KW_POST,
+	KW_POST_ERASE,
+	KW_POST_MODIFY,
+	KW_POST_STORE,
+	KW_PRE,
+	KW_PRE_ALLOCATE,
+	KW_PRE_ERASE,
+	KW_PRE_MODIFY,
+	KW_PRE_STORE,
+	KW_PRIVILEGES,
+	KW_QUAD,
+	KW_QUERY_HEADER,
+	KW_QUERY_NAME,
+	KW_QUIT,
+	KW_RAW,
+	KW_RAW_PARTITIONS,
+	KW_REDUCED,
+	KW_R_BRACE,
+	KW_R_BRCKET,
+	KW_REFERENCE,
+	KW_RELATION,
+	KW_RETURN_ARGUMENT,			/* function argument return_mode */
+	KW_RETURN_VALUE,			/* function argument return_mode */
+	KW_REVOKE,
+	KW_RIGHT_PAREN,
+	KW_SCALAR_ARRAY_DESCRIPTOR,
+	KW_SCALE,
+	KW_SECURITY_CLASS,
+	KW_SEGMENT_LENGTH,
+	KW_SELECT,
+	KW_SEMI,
+	KW_SET,
+	KW_SET_GENERATOR,
+	KW_SHADOW,
+	KW_SHORT,
+	KW_SIZE,
+	KW_SLASH,
+	KW_SORTED,
+	KW_STARTS,
+	KW_STARTING,
+	KW_STATISTICS,
+	KW_STORE,
+	KW_SUB_TYPE,
+	KW_SYSTEM_FLAG,
+	KW_TEXT,
+	KW_THEN,
+	KW_TO,
+	KW_TOTAL,
+	KW_TRIGGER,
+	KW_TYPES,
+	KW_UNION,
+	KW_UNIQUE,
+	KW_UPDATE,
+	KW_UPPERCASE,
+	KW_USER,
+	KW_USER_NAME,
+	KW_USING,
+	KW_VALID,
+	KW_VALID_IF,
+	KW_VALUE,
+	KW_VARYING,
+	KW_VIEW,
+	KW_WITH
+};
+
+/* Token block, used to hold a lexical token. */
+
+enum tok_t {
+	tok_ident,
+	tok_number,
+	tok_quoted,
+	tok_punct,
+	tok_eol
+};
+
+typedef struct tok {
+	enum tok_t tok_type;		/* type of token */
+	struct sym *tok_symbol;		/* hash block if recognized */
+	enum kwwords tok_keyword;	/* keyword number, if recognized */
+	SLONG tok_position;			/* byte number in input stream */
+	USHORT tok_length;
+	TEXT tok_string[MAXSYMLEN];
+} *TOK;
+
+#ifdef PARSER_MAIN
+#define EXTERN
+#else
+#define EXTERN	extern
+#endif
+
+EXTERN struct tok DDL_token;
+
+#undef EXTERN
+
+#endif /* _DUDLEY_PARSE_H_ */
diff --git a/src/dudley/parse_proto.h b/src/dudley/parse_proto.h
new file mode 100644
index 0000000000..fd73881717
--- /dev/null
+++ b/src/dudley/parse_proto.h
@@ -0,0 +1,40 @@
+/*
+ *	PROGRAM:	Data Definition Utility
+ *	MODULE:		parse_proto.h
+ *	DESCRIPTION:	Prototype header file for parse.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DUDLEY_PARSE_PROTO_H_
+#define _DUDLEY_PARSE_PROTO_H_
+
+#include "../dudley/parse.h"
+
+extern void PARSE_actions(void);
+extern void PARSE_error(USHORT, TEXT *, TEXT *);
+extern FUNC PARSE_function(int);
+extern enum kwwords PARSE_keyword(void);
+extern NOD PARSE_make_list(LLS);
+extern NOD PARSE_make_node(enum nod_t, USHORT);
+extern int PARSE_match(enum kwwords);
+extern int PARSE_number(void);
+extern REL PARSE_relation(void);
+extern SYM PARSE_symbol(enum tok_t);
+
+#endif /* _DUDLEY_PARSE_PROTO_H_ */
diff --git a/src/dudley/trn.cpp b/src/dudley/trn.cpp
new file mode 100644
index 0000000000..dc79a4a9ce
--- /dev/null
+++ b/src/dudley/trn.cpp
@@ -0,0 +1,1967 @@
+/*
+ *	PROGRAM:	JRD Data Definition Utility
+ *	MODULE:		trn.c
+ *	DESCRIPTION:	Translate meta-data change to dynamic meta data
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../dudley/ddl.h"
+#include "../jrd/license.h"
+#include "../dudley/gener_proto.h"
+#include "../dudley/lex_proto.h"
+#include "../dudley/trn_proto.h"
+#include "../gpre/prett_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/gdsassert.h"
+
+static void add_dimensions(STR, FLD);
+static void add_field(STR, FLD, REL);
+static void add_files(STR, FIL, DBB);
+static void add_filter(STR, FILTER);
+static void add_function(STR, FUNC);
+static void add_function_arg(STR, FUNCARG);
+static void add_generator(STR, SYM);
+static void add_global_field(STR, FLD);
+static void add_index(STR, DUDLEY_IDX);
+static void add_relation(STR, REL);
+static void add_security_class(STR, SCL);
+static void add_trigger(STR, TRG);
+static void add_trigger_msg(STR, TRGMSG);
+static void add_view(STR, REL);
+static void drop_field(STR, FLD);
+static void drop_filter(STR, FILTER);
+static void drop_function(STR, FUNC);
+static void drop_global_field(STR, FLD);
+static void drop_index(STR, DUDLEY_IDX);
+static void drop_relation(STR, REL);
+static void drop_security_class(STR, SCL);
+static void drop_shadow(STR, SLONG);
+static void drop_trigger(STR, TRG);
+static void drop_trigger_msg(STR, TRGMSG);
+static int gen_dyn_c(int *, int, SCHAR *);
+static int gen_dyn_cxx(int *, int, SCHAR *);
+static int gen_dyn_pas(int *, int, SCHAR *);
+static void modify_database(STR, DBB);
+static void modify_field(STR, FLD, REL);
+static void modify_global_field(STR, FLD);
+static void modify_index(STR, DUDLEY_IDX);
+static void modify_relation(STR, REL);
+static void modify_trigger(STR, TRG);
+static void modify_trigger_msg(STR, TRGMSG);
+static void put_acl(STR, UCHAR, SCL);
+static void put_blr(STR, UCHAR, REL, NOD);
+static void put_number(STR, TEXT, SSHORT);
+static void put_query_header(STR, TEXT, NOD);
+static void put_symbol(STR, TEXT, SYM);
+static void put_text(STR, UCHAR, TXT);
+static void raw_ada(STR);
+static void raw_basic(STR);
+static void raw_cobol(STR);
+static void raw_ftn(STR);
+static void raw_pli(STR);
+
+static IB_FILE *output_file;
+
+#define STUFF(c)	*dyn->str_current++ = c
+#define STUFF_WORD(c)	{STUFF (c); STUFF (c >> 8);}
+#define CHECK_DYN(l)	{if ( !(dyn->str_current - dyn->str_start + l <= \
+                                dyn->str_length) && !TRN_get_buffer (dyn, l) ) \
+                             DDL_error_abort ( NULL, 320, NULL, NULL, \
+                                               NULL, NULL, NULL );}
+
+#ifndef FOPEN_WRITE_TYPE
+#define FOPEN_WRITE_TYPE	"w"
+#endif
+
+
+void TRN_translate(void)
+{
+/**************************************
+ *
+ *	T R N _ t r a n s l a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate from internal data structures into dynamic DDL.
+ *
+ **************************************/
+	ACT action, temp;
+	TEXT *p;
+	USHORT length;
+	struct str d, *dyn;
+
+/* Start by reversing the set of actions */
+	dyn = &d;
+	dyn->str_current = dyn->str_start = (SCHAR *) gds__alloc((SLONG) 8192);
+	dyn->str_length = 8192;
+
+#ifdef DEBUG_GDS_ALLOC
+/* For V4.0 we don't care about Gdef specific memory leaks */
+	gds_alloc_flag_unfreed(dyn->str_start);
+#endif
+
+	if (!DYN_file_name[0])
+		output_file = ib_stdout;
+	else if (!(output_file = ib_fopen(DYN_file_name, FOPEN_WRITE_TYPE))) {
+		DDL_msg_put(281, DYN_file_name, NULL, NULL, NULL, NULL);	/* msg 281: gdef: can't open DYN output file: %s */
+		DDL_exit(FINI_ERROR);
+	}
+
+	CHECK_DYN(2);
+	STUFF(gds__dyn_version_1);
+	STUFF(gds__dyn_begin);
+
+	for (action = DDL_actions; action; action = action->act_next)
+		if (!(action->act_flags & ACT_ignore))
+			switch (action->act_type) {
+			case act_c_database:
+			case act_m_database:
+				modify_database(dyn, action->act_object);
+				break;
+
+			case act_a_relation:
+				add_relation(dyn, action->act_object);
+				break;
+
+			case act_m_relation:
+				modify_relation(dyn, action->act_object);
+				break;
+
+			case act_d_relation:
+				drop_relation(dyn, action->act_object);
+				break;
+
+			case act_a_field:
+				add_field(dyn, action->act_object, NULL);
+				break;
+
+			case act_m_field:
+				modify_field(dyn, action->act_object, NULL);
+				break;
+
+			case act_d_field:
+				drop_field(dyn, action->act_object);
+				break;
+
+			case act_a_filter:
+				add_filter(dyn, action->act_object);
+				break;
+
+			case act_d_filter:
+				drop_filter(dyn, action->act_object);
+				break;
+
+			case act_a_function:
+				add_function(dyn, action->act_object);
+				break;
+
+			case act_a_function_arg:
+				add_function_arg(dyn, action->act_object);
+				break;
+
+			case act_d_function:
+				drop_function(dyn, action->act_object);
+				break;
+
+			case act_a_generator:
+				add_generator(dyn, action->act_object);
+				break;
+
+			case act_a_gfield:
+				add_global_field(dyn, action->act_object);
+				break;
+
+			case act_m_gfield:
+				modify_global_field(dyn, action->act_object);
+				break;
+
+			case act_d_gfield:
+				drop_global_field(dyn, action->act_object);
+				break;
+
+			case act_a_index:
+				add_index(dyn, action->act_object);
+				break;
+
+			case act_m_index:
+				modify_index(dyn, action->act_object);
+				break;
+
+			case act_d_index:
+				drop_index(dyn, action->act_object);
+				break;
+
+			case act_a_security:
+				add_security_class(dyn, action->act_object);
+				break;
+
+			case act_d_security:
+				drop_security_class(dyn, action->act_object);
+				break;
+
+			case act_a_trigger:
+				add_trigger(dyn, action->act_object);
+				break;
+
+			case act_d_trigger:
+				drop_trigger(dyn, action->act_object);
+				break;
+
+			case act_m_trigger:
+				modify_trigger(dyn, action->act_object);
+				break;
+
+			case act_a_trigger_msg:
+				add_trigger_msg(dyn, action->act_object);
+				break;
+
+			case act_d_trigger_msg:
+				drop_trigger_msg(dyn, action->act_object);
+				break;
+
+			case act_a_shadow:
+				add_files(dyn, action->act_object, NULL);
+				break;
+
+			case act_d_shadow:
+				drop_shadow(dyn, (SLONG) (action->act_object));
+				break;
+
+			case act_m_trigger_msg:
+				modify_trigger_msg(dyn, action->act_object);
+				break;
+
+			default:
+				DDL_err(282, NULL, NULL, NULL, NULL, NULL);	/* msg 282: action not implemented yet */
+			}
+
+	CHECK_DYN(2);
+	STUFF(gds__dyn_end);
+	STUFF(gds__dyn_eoc);
+
+	switch (language) {
+	case lan_undef:
+	case lan_c:
+		if (PRETTY_print_dyn(dyn->str_start, gen_dyn_c, 0, 0))
+			DDL_err(283, NULL, NULL, NULL, NULL, NULL);	/*msg 283: internal error during DYN pretty print */
+		break;
+
+	case lan_cxx:
+		if (PRETTY_print_dyn(dyn->str_start, gen_dyn_cxx, 0, 0))
+			DDL_err(283, NULL, NULL, NULL, NULL, NULL);	/*msg 283: internal error during DYN pretty print */
+		break;
+
+	case lan_pascal:
+		length = dyn->str_current - dyn->str_start;
+		ib_fprintf(output_file, "   gds__dyn_length	: gds__short := %d;\n",
+				   length);
+		ib_fprintf(output_file,
+				   "   gds__dyn	: packed array [1..%d] of char := (\n",
+				   length);
+		if (PRETTY_print_dyn(dyn->str_start, gen_dyn_pas, 0, 1))
+			DDL_err(285, NULL, NULL, NULL, NULL, NULL);	/*msg 285: internal error during DYN pretty print */
+		ib_fprintf(output_file, "   );	(* end of DYN string *)\n");
+		break;
+
+	case lan_fortran:
+		length = dyn->str_current - dyn->str_start;
+		ib_fprintf(output_file, "       INTEGER*2 GDS__DYN_LENGTH\n");
+		ib_fprintf(output_file, "       INTEGER*4 GDS__DYN(%d)\n",
+				   (int) ((length + 3) / 4));
+		ib_fprintf(output_file, "       DATA GDS__DYN_LENGTH  /%d/\n",
+				   length);
+		ib_fprintf(output_file, "       DATA (GDS__DYN(I), I=1,%d)  /\n",
+				   (int) ((length + 3) / 4));
+		raw_ftn(dyn);
+		break;
+
+	case lan_pli:
+		length = dyn->str_current - dyn->str_start;
+		ib_fprintf(output_file,
+				   "DECLARE gds__dyn_length FIXED BINARY (15) STATIC INITIAL (%d);\n",
+				   length);
+		ib_fprintf(output_file,
+				   "DECLARE gds__dyn (%d) FIXED BINARY (7) STATIC INITIAL (\n",
+				   length);
+		raw_pli(dyn);
+		break;
+
+	case lan_basic:
+		length = dyn->str_current - dyn->str_start;
+		ib_fprintf(output_file,
+				   "       DECLARE WORD CONSTANT gds__dyn_length = %d\n",
+				   length);
+		ib_fprintf(output_file,
+				   "       DECLARE STRING CONSTANT gds__dyn =&\n", length);
+		raw_basic(dyn);
+		break;
+
+	case lan_ada:
+		length = dyn->str_current - dyn->str_start;
+		ib_fprintf(output_file,
+				   "gds_dyn_length: short_integer := %d;\n", length);
+		ib_fprintf(output_file,
+				   "gds_dyn	: CONSTANT interbase.blr (1..%d) := (\n", length);
+		raw_ada(dyn);
+		break;
+
+	case lan_ansi_cobol:
+		length = dyn->str_current - dyn->str_start;
+		ib_fprintf(output_file,
+				   "       01  GDS-DYN-LENGTH PIC S9(4) USAGE COMP VALUE IS %d.\n",
+				   length);
+		ib_fprintf(output_file, "       01  GDS-DYN.\n");
+		raw_cobol(dyn);
+		break;
+	case lan_cobol:
+		length = dyn->str_current - dyn->str_start;
+		ib_fprintf(output_file,
+				   "       01  GDS__DYN_LENGTH PIC S9(4) USAGE COMP VALUE IS %d.\n",
+				   length);
+		ib_fprintf(output_file, "       01  GDS__DYN.\n");
+		raw_cobol(dyn);
+		break;
+	}
+
+	if (output_file != ib_stdout)
+		ib_fclose(output_file);
+
+	gds__free(dyn->str_start);
+}
+
+
+static void add_dimensions( STR dyn, FLD field)
+{
+/**************************************
+ *
+ *	a d d _ d i m e n s i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to create dimensions. 
+ *	First get rid of any old ones.
+ *
+ **************************************/
+	SLONG *range;
+	USHORT n;
+
+	put_symbol(dyn, gds__dyn_delete_dimensions, field->fld_name);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+
+	for (range = field->fld_ranges, n = 0; n < field->fld_dimension;
+		 range += 2, ++n) {
+		put_number(dyn, gds__dyn_def_dimension, n);
+		put_symbol(dyn, gds__dyn_fld_name, field->fld_name);
+		put_number(dyn, gds__dyn_dim_lower, (SSHORT) range[0]);
+		put_number(dyn, gds__dyn_dim_upper, (SSHORT) range[1]);
+		CHECK_DYN(1);
+		STUFF(gds__dyn_end);
+	}
+}
+
+
+static void add_field( STR dyn, FLD field, REL view)
+{
+/**************************************
+ *
+ *	a d d _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to create a 
+ *	local field.
+ *
+ **************************************/
+	SYM name, symbol;
+	REL relation;
+	FLD source_field;
+	int n;
+
+	name = field->fld_name;
+	if (view)
+		relation = view;
+	else
+		relation = field->fld_relation;
+
+	put_symbol(dyn, gds__dyn_def_local_fld, name);
+	put_symbol(dyn, gds__dyn_rel_name, relation->rel_name);
+
+	if ((symbol = field->fld_source) &&
+		strcmp(symbol->sym_string, name->sym_string) && !field->fld_computed)
+		put_symbol(dyn, gds__dyn_fld_source, symbol);
+
+	put_symbol(dyn, gds__dyn_security_class, field->fld_security_class);
+	put_symbol(dyn, gds__dyn_fld_edit_string, field->fld_edit_string);
+	put_symbol(dyn, gds__dyn_fld_query_name, field->fld_query_name);
+	put_query_header(dyn, gds__dyn_fld_query_header, field->fld_query_header);
+
+	if (field->fld_system)
+		put_number(dyn, gds__dyn_system_flag, field->fld_system);
+
+	put_symbol(dyn, gds__dyn_fld_base_fld, field->fld_base);
+
+	if (field->fld_context)
+		put_number(dyn, gds__dyn_view_context,
+				   field->fld_context->ctx_context_id);
+
+	if (field->fld_computed) {
+		if (!field->fld_context && view)
+			put_number(dyn, gds__dyn_view_context, 0);
+		put_blr(dyn, gds__dyn_fld_computed_blr, NULL, field->fld_computed);
+		source_field = field->fld_source_field;
+		put_number(dyn, gds__dyn_fld_type, source_field->fld_dtype);
+		put_number(dyn, gds__dyn_fld_length, source_field->fld_length);
+		put_number(dyn, gds__dyn_fld_scale, source_field->fld_scale);
+		put_number(dyn, gds__dyn_fld_sub_type, source_field->fld_sub_type);
+		if (n = source_field->fld_segment_length)
+			put_number(dyn, gds__dyn_fld_segment_length, n);
+	}
+
+	put_text(dyn, gds__dyn_fld_computed_source, field->fld_compute_src);
+
+	if (field->fld_flags & fld_explicit_position)
+		put_number(dyn, gds__dyn_fld_position, field->fld_position);
+
+	put_text(dyn, gds__dyn_description, field->fld_description);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void add_files( STR dyn, FIL files, DBB database)
+{
+/**************************************
+ *
+ *	a d d _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic ddl to add database
+ *	or shadow files.
+ *
+ **************************************/
+	FIL file, next;
+
+/* Reverse the order of files (parser left them backwards) */
+
+	for (file = files, files = NULL; file; file = next) {
+		next = file->fil_next;
+		file->fil_next = files;
+		files = file;
+	}
+
+	if (!database && files)
+		put_number(dyn, gds__dyn_def_shadow, files->fil_shadow_number);
+
+	for (file = files; file; file = file->fil_next) {
+		put_symbol(dyn, gds__dyn_def_file, file->fil_name);
+		put_number(dyn, gds__dyn_file_start, (SSHORT) (file->fil_start));
+		put_number(dyn, gds__dyn_file_length, (SSHORT) (file->fil_length));
+		put_number(dyn, gds__dyn_shadow_man_auto, file->fil_manual);
+		put_number(dyn, gds__dyn_shadow_conditional, file->fil_conditional);
+		CHECK_DYN(1);
+		STUFF(gds__dyn_end);
+	}
+	if (!database && files) {
+		CHECK_DYN(1);
+		STUFF(gds__dyn_end);
+	}
+}
+
+
+static void add_filter( STR dyn, FILTER filter)
+{
+/**************************************
+ *
+ *	a d d _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to create a 
+ *	blob filter.
+ *
+ **************************************/
+
+	put_symbol(dyn, gds__dyn_def_filter, filter->filter_name);
+	put_number(dyn, gds__dyn_filter_in_subtype,
+			   filter->filter_input_sub_type);
+	put_number(dyn, gds__dyn_filter_out_subtype,
+			   filter->filter_output_sub_type);
+	put_symbol(dyn, gds__dyn_func_entry_point, filter->filter_entry_point);
+	put_symbol(dyn, gds__dyn_func_module_name, filter->filter_module_name);
+	put_text(dyn, gds__dyn_description, filter->filter_description);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void add_function( STR dyn, FUNC function)
+{
+/**************************************
+ *
+ *	a d d _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to create a 
+ *	user define function.
+ *
+ **************************************/
+
+	put_symbol(dyn, gds__dyn_def_function, function->func_name);
+	put_symbol(dyn, gds__dyn_fld_query_name, function->func_query_name);
+	put_symbol(dyn, gds__dyn_func_entry_point, function->func_entry_point);
+	put_number(dyn, gds__dyn_func_return_argument, function->func_return_arg);
+	put_symbol(dyn, gds__dyn_func_module_name, function->func_module_name);
+	put_text(dyn, gds__dyn_description, function->func_description);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void add_function_arg( STR dyn, FUNCARG func_arg)
+{
+/**************************************
+ *
+ *	a d d _ f u n c t i o n _ a r g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to create a 
+ *	user defined function.
+ *
+ **************************************/
+
+	put_number(dyn, gds__dyn_def_function_arg, func_arg->funcarg_position);
+	put_symbol(dyn, gds__dyn_function_name, func_arg->funcarg_funcname);
+	put_number(dyn, gds__dyn_func_mechanism, func_arg->funcarg_mechanism);
+	put_number(dyn, gds__dyn_fld_type, func_arg->funcarg_dtype);
+	put_number(dyn, gds__dyn_fld_scale, func_arg->funcarg_scale);
+	if (func_arg->funcarg_has_sub_type)
+		put_number(dyn, gds__dyn_fld_sub_type, func_arg->funcarg_sub_type);
+	put_number(dyn, gds__dyn_fld_length, func_arg->funcarg_length);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void add_generator( STR dyn, SYM symbol)
+{
+/**************************************
+ *
+ *	a d d _ g e n e r a t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to create a 
+ *	generator.
+ *
+ **************************************/
+
+	put_symbol(dyn, gds__dyn_def_generator, symbol);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void add_global_field( STR dyn, FLD field)
+{
+/**************************************
+ *
+ *	a d d _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to create a relation.
+ *
+ **************************************/
+	SYM name, symbol;
+	DSC desc;
+	USHORT dtype;
+	int n;
+
+	if (field->fld_computed)
+		return;
+
+	name = field->fld_name;
+
+	put_symbol(dyn, gds__dyn_def_global_fld, name);
+	put_symbol(dyn, gds__dyn_fld_edit_string, field->fld_edit_string);
+	put_symbol(dyn, gds__dyn_fld_query_name, field->fld_query_name);
+	put_query_header(dyn, gds__dyn_fld_query_header, field->fld_query_header);
+
+	if (field->fld_system)
+		put_number(dyn, gds__dyn_system_flag, field->fld_system);
+
+	put_number(dyn, gds__dyn_fld_type, field->fld_dtype);
+	put_number(dyn, gds__dyn_fld_length, field->fld_length);
+	put_number(dyn, gds__dyn_fld_scale, field->fld_scale);
+	put_number(dyn, gds__dyn_fld_sub_type, field->fld_sub_type);
+
+	if (n = field->fld_segment_length)
+		put_number(dyn, gds__dyn_fld_segment_length, n);
+
+	put_blr(dyn, gds__dyn_fld_missing_value, NULL, field->fld_missing);
+
+	put_blr(dyn, gds__dyn_fld_validation_blr, NULL, field->fld_validation);
+	put_text(dyn, gds__dyn_fld_validation_source, field->fld_valid_src);
+	put_text(dyn, gds__dyn_description, field->fld_description);
+
+	if (field->fld_dimension) {
+		put_number(dyn, gds__dyn_fld_dimensions, field->fld_dimension);
+		add_dimensions(dyn, field);
+	}
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void add_index( STR dyn, DUDLEY_IDX index)
+{
+/**************************************
+ *
+ *	a d d _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to create an index.
+ *
+ **************************************/
+	TEXT i;
+
+	put_symbol(dyn, gds__dyn_def_idx, index->idx_name);
+	put_symbol(dyn, gds__dyn_rel_name, index->idx_relation);
+	put_number(dyn, gds__dyn_idx_unique, index->idx_unique);
+	if (index->idx_inactive)
+		put_number(dyn, gds__dyn_idx_inactive, TRUE);
+	else
+		put_number(dyn, gds__dyn_idx_inactive, FALSE);
+	if (index->idx_type)
+		put_number(dyn, gds__dyn_idx_type, index->idx_type);
+
+	put_text(dyn, gds__dyn_description, index->idx_description);
+
+	for (i = 0; i < index->idx_count; i++)
+		put_symbol(dyn, gds__dyn_fld_name, index->idx_field[i]);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void add_relation( STR dyn, REL relation)
+{
+/**************************************
+ *
+ *	a d d _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to create a relation.
+ *
+ **************************************/
+
+	if (relation->rel_rse) {
+		add_view(dyn, relation);
+		return;
+	}
+
+	put_symbol(dyn, gds__dyn_def_rel, relation->rel_name);
+	put_symbol(dyn, gds__dyn_security_class, relation->rel_security_class);
+	put_symbol(dyn, gds__dyn_rel_ext_file, relation->rel_filename);
+	if (relation->rel_system)
+		put_number(dyn, gds__dyn_system_flag, relation->rel_system);
+	put_text(dyn, gds__dyn_description, relation->rel_description);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void add_security_class( STR dyn, SCL class_)
+{
+/**************************************
+ *
+ *	a d d _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic ddl to add a security class.
+ *
+ **************************************/
+
+	put_symbol(dyn, gds__dyn_def_security_class, class_->scl_name);
+
+	put_acl(dyn, gds__dyn_scl_acl, class_);
+
+	put_text(dyn, gds__dyn_description, class_->scl_description);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void add_trigger( STR dyn, TRG trigger)
+{
+/**************************************
+ *
+ *	a d d _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic ddl to add a trigger for a relation.
+ *
+ **************************************/
+	SYM name;
+	REL relation;
+
+	relation = trigger->trg_relation;
+	name = trigger->trg_name;
+
+	put_symbol(dyn, gds__dyn_def_trigger, name);
+	put_symbol(dyn, gds__dyn_rel_name, relation->rel_name);
+	put_number(dyn, gds__dyn_trg_type, trigger->trg_type);
+	put_number(dyn, gds__dyn_trg_sequence, trigger->trg_sequence);
+	put_number(dyn, gds__dyn_trg_inactive, trigger->trg_inactive);
+	put_blr(dyn, gds__dyn_trg_blr, relation, trigger->trg_statement);
+	put_text(dyn, gds__dyn_trg_source, trigger->trg_source);
+	put_text(dyn, gds__dyn_description, trigger->trg_description);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void add_trigger_msg( STR dyn, TRGMSG trigmsg)
+{
+/**************************************
+ *
+ *	a d d _ t r i g g e r _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic ddl to add a trigger message.
+ *
+ **************************************/
+
+	put_number(dyn, gds__dyn_def_trigger_msg, trigmsg->trgmsg_number);
+	put_symbol(dyn, gds__dyn_trg_name, trigmsg->trgmsg_trg_name);
+	put_symbol(dyn, gds__dyn_trg_msg, trigmsg->trgmsg_text);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void add_view( STR dyn, REL relation)
+{
+/**************************************
+ *
+ *	a d d _ v i e w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to create a view.
+ *
+ **************************************/
+	FLD field;
+	CTX context;
+	NOD *arg, contexts;
+	SSHORT i;
+
+	put_symbol(dyn, gds__dyn_def_view, relation->rel_name);
+	put_symbol(dyn, gds__dyn_security_class, relation->rel_security_class);
+	if (relation->rel_system)
+		put_number(dyn, gds__dyn_system_flag, relation->rel_system);
+	put_text(dyn, gds__dyn_description, relation->rel_description);
+	put_blr(dyn, gds__dyn_view_blr, relation, relation->rel_rse);
+	put_text(dyn, gds__dyn_view_source, relation->rel_view_source);
+
+	contexts = relation->rel_rse->nod_arg[s_rse_contexts];
+	for (i = 0, arg = contexts->nod_arg; i < contexts->nod_count; i++, arg++) {
+		context = (CTX) (*arg)->nod_arg[0];
+		put_symbol(dyn, gds__dyn_view_relation,
+				   context->ctx_relation->rel_name);
+		put_number(dyn, gds__dyn_view_context, context->ctx_context_id);
+		put_symbol(dyn, gds__dyn_view_context_name, context->ctx_name);
+		CHECK_DYN(1);
+		STUFF(gds__dyn_end);
+	}
+
+	for (field = relation->rel_fields; field; field = field->fld_next)
+		add_field(dyn, field, relation);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+BOOLEAN TRN_get_buffer(STR dyn, USHORT length)
+{
+/**************************************
+ *
+ *	g e t _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generated DYN string is about to over the memory allocated for it.
+ *	So, allocate an extra memory.
+ *
+ **************************************/
+	SCHAR *p, *q, *old;
+	USHORT len, n;
+
+	len = dyn->str_current - dyn->str_start;
+
+/* Compute the next incremental string len */
+
+	n = MIN(dyn->str_length * 2, 65536 - 4);
+
+/* If we're in danger of blowing the limit, stop right here */
+
+	if (n < len + length)
+		return FALSE;
+
+	q = old = dyn->str_start;
+	dyn->str_start = p = (SCHAR *) gds__alloc((SLONG) n);
+
+	if (!p)
+		return FALSE;
+
+	dyn->str_length = n;
+	dyn->str_current = dyn->str_start + len;
+
+#ifdef DEBUG_GDS_ALLOC
+/* For V4.0 we don't care about Gdef specific memory leaks */
+	gds_alloc_flag_unfreed(dyn->str_start);
+#endif
+
+	memmove(p, q, len);
+	gds__free(old);
+	return TRUE;
+}
+
+
+static void drop_field( STR dyn, FLD field)
+{
+/**************************************
+ *
+ *	d r o p _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to eliminate 
+ *	a local field.
+ *
+ **************************************/
+	SYM name, symbol;
+	REL relation;
+
+	name = field->fld_name;
+	relation = field->fld_relation;
+
+	put_symbol(dyn, gds__dyn_delete_local_fld, name);
+	put_symbol(dyn, gds__dyn_rel_name, relation->rel_name);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+
+
+static void drop_filter( STR dyn, FILTER filter)
+{
+/**************************************
+ *
+ *	d r o p _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to delete a 
+ *	blob filter.
+ *
+ **************************************/
+
+	put_symbol(dyn, gds__dyn_delete_filter, filter->filter_name);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void drop_function( STR dyn, FUNC function)
+{
+/**************************************
+ *
+ *	d r o p _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to delete a 
+ *	user defined function.
+ *
+ **************************************/
+
+	put_symbol(dyn, gds__dyn_delete_function, function->func_name);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void drop_global_field( STR dyn, FLD field)
+{
+/**************************************
+ *
+ *	d r o p _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to eliminate 
+ *	a global field.
+ *
+ **************************************/
+	SYM name, symbol;
+
+	name = field->fld_name;
+
+	put_symbol(dyn, gds__dyn_delete_global_fld, name);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void drop_index( STR dyn, DUDLEY_IDX index)
+{
+/**************************************
+ *
+ *	d r o p  _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to delete an index.
+ *
+ **************************************/
+
+	put_symbol(dyn, gds__dyn_delete_idx, index->idx_name);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void drop_relation( STR dyn, REL relation)
+{
+/**************************************
+ *
+ *	d r o p  _ r e l a t i o n 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to delete an relation.
+ *
+ **************************************/
+
+	put_symbol(dyn, gds__dyn_delete_rel, relation->rel_name);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void drop_security_class( STR dyn, SCL class_)
+{
+/**************************************
+ *
+ *	d r o p  _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to delete an securtiy_class.
+ *
+ **************************************/
+
+	put_symbol(dyn, gds__dyn_delete_security_class, class_->scl_name);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void drop_shadow( STR dyn, SLONG shadow_number)
+{
+/**************************************
+ *
+ *	d r o p _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic ddl to drop a shadow.
+ *
+ **************************************/
+
+	put_number(dyn, gds__dyn_delete_shadow, (SSHORT) shadow_number);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void drop_trigger( STR dyn, TRG trigger)
+{
+/**************************************
+ *
+ *	d r o p _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic ddl to delete a trigger.
+ *
+ **************************************/
+	SYM name, symbol;
+	REL relation;
+	USHORT dtype;
+	int n;
+
+	name = trigger->trg_name;
+
+	put_symbol(dyn, gds__dyn_delete_trigger, name);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void drop_trigger_msg( STR dyn, TRGMSG trigmsg)
+{
+/**************************************
+ *
+ *	d r o p _ t r i g g e r _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic ddl to delete a trigger message.
+ *
+ **************************************/
+
+	put_number(dyn, gds__dyn_delete_trigger_msg, trigmsg->trgmsg_number);
+	put_symbol(dyn, gds__dyn_trg_name, trigmsg->trgmsg_trg_name);
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static int gen_dyn_c( int *user_arg, int offset, SCHAR * string)
+{
+/**************************************
+ *
+ *	g e n _ d y n _ c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Callback routine for BLR pretty printer.
+ *
+ **************************************/
+
+	ib_fprintf(output_file, "    %s\n", string);
+
+	return TRUE;
+}
+
+
+static int gen_dyn_cxx( int *user_arg, int offset, SCHAR * string)
+{
+/**************************************
+ *
+ *	g e n _ d y n _ c x x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Callback routine for BLR pretty printer.
+ *
+ **************************************/
+	SCHAR *p, *q, *r;
+
+	q = p = string;
+
+	ib_fprintf(output_file, "    ");
+	for (; *q; *q++) {
+		if ((*q == '$') || (*q == '_')) {
+			r = q;
+			if ((*--r == '_') && (*--r == 's') && (*--r == 'd')
+				&& (*--r == 'g')) {
+				*q = 0;
+				ib_fprintf(output_file, "%s", p);
+				p = ++q;
+			}
+		}
+	}
+
+	ib_fprintf(output_file, "%s\n", p);
+
+	return TRUE;
+}
+
+
+static int gen_dyn_pas( int *user_arg, int offset, SCHAR * string)
+{
+/**************************************
+ *
+ *	g e n _ d y n _ p a s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Callback routine for BLR pretty printer.
+ *
+ **************************************/
+	ib_fprintf(output_file, "      %s\n", string);
+
+	return TRUE;
+}
+
+
+static void modify_database( STR dyn, DBB database)
+{
+/**************************************
+ *
+ *	m o d i f y _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to modify a database.
+ *
+ **************************************/
+
+	if (!(database->dbb_files ||
+		  database->dbb_security_class ||
+		  database->dbb_description ||
+		  (database->
+		   dbb_flags & (DBB_null_security_class | DBB_null_description))))
+			return;
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_mod_database);
+
+	add_files(dyn, database->dbb_files, database);
+	if (database->dbb_flags & DBB_null_security_class) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_security_class);
+		STUFF_WORD(0);
+	}
+	else
+		put_symbol(dyn, gds__dyn_security_class,
+				   database->dbb_security_class);
+	if (database->dbb_flags & DBB_null_description) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_description);
+		STUFF_WORD(0);
+	}
+	else if (database->dbb_description)
+		put_text(dyn, gds__dyn_description, database->dbb_description);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void modify_field( STR dyn, FLD field, REL view)
+{
+/**************************************
+ *
+ *	m o d i f y _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to modify a 
+ *	local field.
+ *
+ **************************************/
+	SYM name, symbol;
+	REL relation;
+	FLD source_field;
+	int n;
+
+	name = field->fld_name;
+	if (view)
+		relation = view;
+	else
+		relation = field->fld_relation;
+
+	put_symbol(dyn, gds__dyn_mod_local_fld, name);
+	put_symbol(dyn, gds__dyn_rel_name, relation->rel_name);
+
+	if ((symbol = field->fld_source) &&
+		strcmp(symbol->sym_string, name->sym_string) && !field->fld_computed)
+		put_symbol(dyn, gds__dyn_fld_source, symbol);
+
+	if (field->fld_flags & fld_null_security_class) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_security_class);
+		STUFF_WORD(0);
+	}
+	else
+		put_symbol(dyn, gds__dyn_security_class, field->fld_security_class);
+	if (field->fld_flags & fld_null_edit_string) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_fld_edit_string);
+		STUFF_WORD(0);
+	}
+	else
+		put_symbol(dyn, gds__dyn_fld_edit_string, field->fld_edit_string);
+	if (field->fld_flags & fld_null_query_name) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_fld_query_name);
+		STUFF_WORD(0);
+	}
+	else
+		put_symbol(dyn, gds__dyn_fld_query_name, field->fld_query_name);
+	if (field->fld_flags & fld_null_query_header) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_fld_query_header);
+		STUFF_WORD(0);
+	}
+	else
+		put_query_header(dyn, gds__dyn_fld_query_header,
+						 field->fld_query_header);
+
+	if (field->fld_system)
+		put_number(dyn, gds__dyn_system_flag, field->fld_system);
+
+	if (field->fld_flags & fld_explicit_position)
+		put_number(dyn, gds__dyn_fld_position, field->fld_position);
+
+	if (field->fld_flags & fld_null_description) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_description);
+		STUFF_WORD(0);
+	}
+	else if (field->fld_description)
+		put_text(dyn, gds__dyn_description, field->fld_description);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void modify_global_field( STR dyn, FLD field)
+{
+/**************************************
+ *
+ *	m o d i f y _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to
+ *	modify a global field.  This gets
+ *	more and more tiresome.
+ *
+ **************************************/
+	SYM name, symbol;
+	DSC desc;
+	USHORT dtype;
+	int n;
+
+	if (field->fld_computed)
+		return;
+
+	name = field->fld_name;
+
+	put_symbol(dyn, gds__dyn_mod_global_fld, name);
+	if (field->fld_flags & fld_null_edit_string) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_fld_edit_string);
+		STUFF_WORD(0);
+	}
+	else
+		put_symbol(dyn, gds__dyn_fld_edit_string, field->fld_edit_string);
+	if (field->fld_flags & fld_null_query_name) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_fld_query_name);
+		STUFF_WORD(0);
+	}
+	else
+		put_symbol(dyn, gds__dyn_fld_query_name, field->fld_query_name);
+	if (field->fld_flags & fld_null_query_header) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_fld_query_header);
+		STUFF_WORD(0);
+	}
+	else
+		put_query_header(dyn, gds__dyn_fld_query_header,
+						 field->fld_query_header);
+
+	if (field->fld_system & fld_explicit_system)
+		put_number(dyn, gds__dyn_system_flag, field->fld_system);
+
+	if (field->fld_dtype) {
+		put_number(dyn, gds__dyn_fld_type, field->fld_dtype);
+		put_number(dyn, gds__dyn_fld_length, field->fld_length);
+		put_number(dyn, gds__dyn_fld_scale, field->fld_scale);
+	}
+
+	if (field->fld_has_sub_type)
+		put_number(dyn, gds__dyn_fld_sub_type, field->fld_sub_type);
+
+	if (n = field->fld_segment_length)
+		put_number(dyn, gds__dyn_fld_segment_length, n);
+
+	if (field->fld_flags & fld_null_missing_value) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_fld_missing_value);
+		STUFF_WORD(0);
+	}
+	else if (field->fld_missing)
+		put_blr(dyn, gds__dyn_fld_missing_value, NULL, field->fld_missing);
+
+	if (field->fld_flags & fld_null_validation) {
+		CHECK_DYN(6);
+		STUFF(gds__dyn_fld_validation_blr);
+		STUFF_WORD(0);
+		STUFF(gds__dyn_fld_validation_source);
+		STUFF_WORD(0)
+	}
+	else if (field->fld_validation) {
+		put_blr(dyn, gds__dyn_fld_validation_blr, NULL,
+				field->fld_validation);
+		put_text(dyn, gds__dyn_fld_validation_source, field->fld_valid_src);
+	}
+
+	if (field->fld_flags & fld_null_description) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_description);
+		STUFF_WORD(0);
+	}
+	else if (field->fld_description)
+		put_text(dyn, gds__dyn_description, field->fld_description);
+
+	if (field->fld_dimension) {
+		put_number(dyn, gds__dyn_fld_dimensions, field->fld_dimension);
+		add_dimensions(dyn, field);
+	}
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void modify_index( STR dyn, DUDLEY_IDX index)
+{
+/**************************************
+ *
+ *	m o d i f y _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to modify an index.
+ *
+ **************************************/
+	TEXT i;
+
+	put_symbol(dyn, gds__dyn_mod_idx, index->idx_name);
+
+	if (index->idx_flags & IDX_unique_flag)
+		put_number(dyn, gds__dyn_idx_unique, index->idx_unique);
+
+	if (index->idx_flags & IDX_active_flag)
+		put_number(dyn, gds__dyn_idx_inactive,
+				   (index->idx_inactive) ? TRUE : FALSE);
+
+	if (index->idx_flags & IDX_type_flag)
+		put_number(dyn, gds__dyn_idx_type, index->idx_type);
+
+	if (index->idx_flags & IDX_null_description) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_description);
+		STUFF_WORD(0);
+	}
+	else if (index->idx_description)
+		put_text(dyn, gds__dyn_description, index->idx_description);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void modify_relation( STR dyn, REL relation)
+{
+/**************************************
+ *
+ *	m o d i f y _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic DDL to modify a relation.
+ *
+ **************************************/
+
+	put_symbol(dyn, gds__dyn_mod_rel, relation->rel_name);
+	if (relation->rel_flags & rel_null_security_class) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_security_class);
+		STUFF_WORD(0);
+	}
+	else
+		put_symbol(dyn, gds__dyn_security_class,
+				   relation->rel_security_class);
+	if (relation->rel_system)
+		put_number(dyn, gds__dyn_system_flag, relation->rel_system);
+	if (relation->rel_flags & rel_null_description) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_description);
+		STUFF_WORD(0);
+	}
+	else if (relation->rel_description)
+		put_text(dyn, gds__dyn_description, relation->rel_description);
+	if (relation->rel_flags & rel_null_ext_file) {
+		CHECK_DYN(3);
+		STUFF(gds__dyn_rel_ext_file);
+		STUFF_WORD(0);
+	}
+	else
+		put_symbol(dyn, gds__dyn_rel_ext_file, relation->rel_filename);
+
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void modify_trigger( STR dyn, TRG trigger)
+{
+/**************************************
+ *
+ *	m o d i f y _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic ddl to modify a trigger for a relation.
+ *
+ **************************************/
+	SYM name, symbol;
+	REL relation;
+	USHORT dtype;
+	int n;
+
+	relation = trigger->trg_relation;
+	name = trigger->trg_name;
+
+	put_symbol(dyn, gds__dyn_mod_trigger, name);
+	put_symbol(dyn, gds__dyn_rel_name, relation->rel_name);
+	if (trigger->trg_mflag & trg_mflag_onoff)
+		put_number(dyn, gds__dyn_trg_inactive, trigger->trg_inactive);
+	if (trigger->trg_mflag & trg_mflag_type)
+		put_number(dyn, gds__dyn_trg_type, trigger->trg_type);
+	if (trigger->trg_mflag & trg_mflag_seqnum)
+		put_number(dyn, gds__dyn_trg_sequence, trigger->trg_sequence);
+	if (trigger->trg_statement)
+		put_blr(dyn, gds__dyn_trg_blr, relation, trigger->trg_statement);
+	if (trigger->trg_source)
+		put_text(dyn, gds__dyn_trg_source, trigger->trg_source);
+	if (trigger->trg_description)
+		put_text(dyn, gds__dyn_description, trigger->trg_description);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void modify_trigger_msg( STR dyn, TRGMSG trigmsg)
+{
+/**************************************
+ *
+ *	m o d i f y _ t r i g g e r _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate dynamic ddl to modify a trigger message.
+ *
+ **************************************/
+
+	put_number(dyn, gds__dyn_mod_trigger_msg, trigmsg->trgmsg_number);
+	put_symbol(dyn, gds__dyn_trg_name, trigmsg->trgmsg_trg_name);
+	put_symbol(dyn, gds__dyn_trg_msg, trigmsg->trgmsg_text);
+
+	CHECK_DYN(1);
+	STUFF(gds__dyn_end);
+}
+
+
+static void put_acl( STR dyn, UCHAR attribute, SCL class_)
+{
+/**************************************
+ *
+ *	p u t _ a c l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	USHORT length, offset;
+	TEXT buffer[4096], *p;
+
+	if (!class_)
+		return;
+
+	length = GENERATE_acl(class_, buffer);
+	assert(length <= 4096);		/* to make sure buffer is big enough */
+
+	CHECK_DYN(3 + length);
+	STUFF(attribute);
+	STUFF_WORD(length);
+	p = buffer;
+	while (length--)
+		STUFF(*p++);
+}
+
+
+static void put_blr( STR dyn, UCHAR attribute, REL relation, NOD node)
+{
+/**************************************
+ *
+ *	p u t _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *p;
+	USHORT length, offset;
+
+	if (!node)
+		return;
+
+	CHECK_DYN(3);
+	STUFF(attribute);
+
+/* Skip over space to put count later, generate blr, then
+   go bad and fix up length */
+
+	offset = dyn->str_current - dyn->str_start;
+	dyn->str_current = dyn->str_current + 2;
+	GENERATE_blr(dyn, node);
+	p = dyn->str_start + offset;
+	length = (dyn->str_current - p) - 2;
+	*p++ = length;
+	*p = (length >> 8);
+}
+
+
+static void put_number( STR dyn, TEXT attribute, SSHORT number)
+{
+/**************************************
+ *
+ *	p u t _ n u m b e r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TEXT *p;
+
+	CHECK_DYN(5);
+	STUFF(attribute);
+
+/* Assume number can be expressed in two bytes */
+
+	STUFF_WORD(2);
+	STUFF_WORD(number);
+}
+
+
+static void put_query_header( STR dyn, TEXT attribute, NOD node)
+{
+/**************************************
+ *
+ *	p u t _ q u e r y _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	NOD *ptr, *end;
+	SYM symbol;
+	SCHAR *s;
+	USHORT length, offset;
+
+	if (!node)
+		return;
+
+#if (!(defined JPN_SJIS || defined JPN_EUC))
+
+	CHECK_DYN(3);
+	STUFF(attribute);
+
+#else
+
+/* Put tagged version of the dynamic verb */
+
+	CHECK_DYN(5);
+	STUFF((DDL_tagged_verbs[attribute]));
+	STUFF_WORD(DDL_interp);
+
+#endif
+
+
+	offset = dyn->str_current - dyn->str_start;
+	dyn->str_current = dyn->str_current + 2;
+	for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end; ptr++) {
+		symbol = (SYM) * ptr;
+		s = (SCHAR *) symbol->sym_string;
+		CHECK_DYN(symbol->sym_length);
+		while (*s)
+			STUFF(*s++);
+	}
+	s = dyn->str_start + offset;
+	length = (dyn->str_current - s) - 2;
+	*s++ = length;
+	*s = (length >> 8);
+}
+
+
+static void put_symbol( STR dyn, TEXT attribute, SYM symbol)
+{
+/**************************************
+ *
+ *	p u t _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TEXT *p, *string;
+	USHORT l;
+
+	if (!symbol)
+		return;
+
+	l = symbol->sym_length;
+
+	CHECK_DYN(l + 5);
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+
+	STUFF(attribute);
+
+#else
+
+/* If a taggged version of the dynamic verb exists then put the tagged verb */
+
+	if (DDL_tagged_verbs[attribute]) {
+		STUFF((DDL_tagged_verbs[attribute]));
+		STUFF_WORD(DDL_interp);
+	}
+	else
+		STUFF(attribute);
+
+#endif
+	STUFF_WORD(l);
+
+	for (string = symbol->sym_string; *string;)
+		STUFF(*string++);
+}
+
+
+static void put_text( STR dyn, UCHAR attribute, TXT text)
+{
+/**************************************
+ *
+ *	p u t _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TEXT *p, *start;
+	USHORT length;
+
+	if (!text)
+		return;
+
+	length = text->txt_length;
+
+	if (!length)
+		return;
+
+	CHECK_DYN(length + 5);
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+
+	STUFF(attribute);
+
+#else
+
+/* If a taggged version of the dynamic verb exists then put the tagged verb */
+
+	if (DDL_tagged_verbs[attribute]) {
+		STUFF(DDL_tagged_verbs[attribute]);
+		STUFF_WORD(DDL_interp);
+	}
+	else
+		STUFF(attribute);
+
+#endif
+
+	STUFF_WORD(length);
+	LEX_get_text(dyn->str_current, text);
+	dyn->str_current += length;
+}
+
+
+static void raw_ada( STR dyn)
+{
+/**************************************
+ *
+ *	r a w _ a d a
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *p, c;
+	USHORT n;
+
+	n = 0;
+	for (p = dyn->str_start; p < dyn->str_current; p++) {
+		if (p < (dyn->str_current - 1)) {
+			ib_fprintf(output_file, "%d,", *p);
+			n += 4;
+		}
+		else {
+			ib_fprintf(output_file, "%d", *p);
+			n += 3;
+		}
+		if (n > 60) {
+			ib_fprintf(output_file, "\n");
+			n = 0;
+		}
+	}
+	ib_fprintf(output_file, ");\n");
+}
+
+
+static void raw_basic( STR dyn)
+{
+/**************************************
+ *
+ *	r a w _ b a s i c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *blr;
+	TEXT buffer[80], *p;
+	UCHAR c;
+	int blr_length;
+
+	blr = dyn->str_start;
+	blr_length = dyn->str_current - dyn->str_start;
+	p = buffer;
+
+	while (--blr_length) {
+		c = *blr++;
+		if (c >= ' ' && c <= 'z')
+			sprintf(p, "'%c' + ", c);
+		else
+			sprintf(p, "'%d'C + ", c);
+		while (*p)
+			p++;
+		if (p - buffer > 60) {
+			ib_fprintf(output_file, "   %s &\n", buffer);
+			p = buffer;
+			*p = 0;
+		}
+	}
+
+	c = *blr++;
+	if (c >= ' ' && c <= 'z')
+		sprintf(p, "'%c'", c);
+	else
+		sprintf(p, "'%d'C", c);
+	ib_fprintf(output_file, "   %s\n", buffer);
+}
+
+
+static void raw_cobol( STR dyn)
+{
+/**************************************
+ *
+ *	r a w _ c o b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *blr, *c;
+	int blr_length, i, length;
+	union {
+		SCHAR bytewise_blr[4];
+		SLONG longword_blr;
+	} blr_hunk;
+
+	length = 1;
+	blr = dyn->str_start;
+	blr_length = dyn->str_current - dyn->str_start;
+
+	while (blr_length) {
+		for (c = blr_hunk.bytewise_blr;
+			 c < blr_hunk.bytewise_blr + sizeof(SLONG); c++) {
+			*c = *blr++;
+			if (!(--blr_length))
+				break;
+		}
+		if (language == lan_ansi_cobol)
+			ib_fprintf(output_file,
+					   "           03  GDS-DYN-%d PIC S9(10) USAGE COMP VALUE IS %d.\n",
+					   length++, blr_hunk.longword_blr);
+		else
+			ib_fprintf(output_file,
+					   "           03  GDS__DYN_%d PIC S9(10) USAGE COMP VALUE IS %d.\n",
+					   length++, blr_hunk.longword_blr);
+	}
+}
+
+
+static void raw_ftn( STR dyn)
+{
+/**************************************
+ *
+ *	r a w _ f t n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	UCHAR *blr, *c;
+	TEXT buffer[80], *p;
+	int blr_length, i;
+	union {
+		UCHAR bytewise_blr[4];
+		SLONG longword_blr;
+	} blr_hunk;
+
+	blr = (UCHAR *) dyn->str_start;
+	blr_length = dyn->str_current - dyn->str_start;
+	p = buffer;
+
+	while (blr_length) {
+		for (c = blr_hunk.bytewise_blr, blr_hunk.longword_blr = 0;
+			 c < blr_hunk.bytewise_blr + sizeof(SLONG); c++) {
+			*c = *blr++;
+			if (!(--blr_length))
+				break;
+		}
+		if (blr_length)
+			sprintf(p, "%d,", blr_hunk.longword_blr);
+		else
+			sprintf(p, "%d/", blr_hunk.longword_blr);
+		while (*p)
+			p++;
+		if (p - buffer > 50) {
+			ib_fprintf(output_file, "%s%s\n", "     +   ", buffer);
+			p = buffer;
+			*p = 0;
+		}
+	}
+
+	if (p != buffer)
+		ib_fprintf(output_file, "%s%s\n", "     +   ", buffer);
+}
+
+
+static void raw_pli( STR dyn)
+{
+/**************************************
+ *
+ *	r a w _ p l i
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *blr, c;
+	TEXT buffer[80], *p;
+	int blr_length;
+
+	blr = dyn->str_start;
+	blr_length = dyn->str_current - dyn->str_start;
+	p = buffer;
+
+	while (--blr_length) {
+		c = *blr++;
+		sprintf(p, "%d,", c);
+		while (*p)
+			p++;
+		if (p - buffer > 60) {
+			ib_fprintf(output_file, "   %s\n", buffer);
+			p = buffer;
+			*p = 0;
+		}
+	}
+
+	c = *blr++;
+	sprintf(p, "%d);", c);
+	ib_fprintf(output_file, "   %s", buffer);
+}
diff --git a/src/dudley/trn_proto.h b/src/dudley/trn_proto.h
new file mode 100644
index 0000000000..1e30421b66
--- /dev/null
+++ b/src/dudley/trn_proto.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	Data Definition Utility
+ *	MODULE:		trn_proto.h
+ *	DESCRIPTION:	Prototype header file for trn.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DUDLEY_TRN_PROTO_H_
+#define _DUDLEY_TRN_PROTO_H_
+
+extern void TRN_translate(void);
+extern BOOLEAN TRN_get_buffer(STR, USHORT);
+
+#endif /* _DUDLEY_TRN_PROTO_H_ */
diff --git a/src/extlib/ib_udf.c b/src/extlib/ib_udf.c
new file mode 100644
index 0000000000..ad333fee80
--- /dev/null
+++ b/src/extlib/ib_udf.c
@@ -0,0 +1,349 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Changes made by Claudio Valderrama for the Firebird project 
+ *   changes to substr and added substrlen 
+ * 
+ */
+#include <math.h>
+#include <stdlib.h>
+#include <string.h>
+#include <time.h>
+#include "ib_util.h"
+#include "ib_udf.h"
+
+
+int MATHERR(struct exception *e)
+{
+	return 1;
+}
+
+double EXPORT IB_UDF_abs( double *a)
+{
+	return (*a < 0.0) ? -*a : *a;
+}
+
+double EXPORT IB_UDF_acos( double *a)
+{
+	return (acos(*a));
+}
+
+char *EXPORT IB_UDF_ascii_char( int *a)
+{
+	char *b;
+	b = (char *) ib_util_malloc(2);
+	*b = (char) (*a);
+	/* let us not forget to NULL terminate */
+	b[1] = '\0';
+	return (b);
+}
+
+int EXPORT IB_UDF_ascii_val( char *a)
+{
+	return ((int) (*a));
+}
+
+double EXPORT IB_UDF_asin( double *a)
+{
+	return (asin(*a));
+}
+
+double EXPORT IB_UDF_atan( double *a)
+{
+	return (atan(*a));
+}
+
+double EXPORT IB_UDF_atan2( double *a, double *b)
+{
+	return (atan2(*a, *b));
+}
+
+long EXPORT IB_UDF_bin_and( long *a, long *b)
+{
+	return (*a & *b);
+}
+
+long EXPORT IB_UDF_bin_or( long *a, long *b)
+{
+	return (*a | *b);
+}
+
+long EXPORT IB_UDF_bin_xor( long *a, long *b)
+{
+	return (*a ^ *b);
+}
+
+double EXPORT IB_UDF_ceiling( double *a)
+{
+	return (ceil(*a));
+}
+
+double EXPORT IB_UDF_cos( double *a)
+{
+	return (cos(*a));
+}
+
+double EXPORT IB_UDF_cosh( double *a)
+{
+	return (cosh(*a));
+}
+
+double EXPORT IB_UDF_cot( double *a)
+{
+	return (1.0 / tan(*a));
+}
+
+double EXPORT IB_UDF_div( long *a, long *b)
+{
+	if (*b != 0) {
+		div_t div_result = div(*a, *b);
+		return (div_result.quot);
+	}
+	else
+		/* This is a Kludge!  We need to return INF, 
+		   but this seems to be the only way to do 
+		   it since there seens to be no constant for it. */
+		return (1 / tan(0));
+
+}
+
+double EXPORT IB_UDF_floor( double *a)
+{
+	return (floor(*a));
+}
+
+double EXPORT IB_UDF_ln( double *a)
+{
+	return (log(*a));
+}
+
+double EXPORT IB_UDF_log( double *a, double *b)
+{
+	return (log(*a) / log(*b));
+}
+
+double EXPORT IB_UDF_log10( double *a)
+{
+	return (log10(*a));
+}
+
+char *EXPORT IB_UDF_lower( char *s)
+{
+	char *buf;
+	char *p;
+
+	buf = (char *) ib_util_malloc(strlen(s) + 1);
+	p = buf;
+	while (*s)
+		if (*s >= 'A' && *s <= 'Z') {
+			*p++ = *s++ - 'A' + 'a';
+		}
+		else
+			*p++ = *s++;
+	*p = '\0';
+
+	return buf;
+}
+
+char *EXPORT IB_UDF_ltrim( char *s)
+{
+	char *buf;
+	char *p;
+	long length;
+
+	if (length = strlen(s)) {
+		while (*s == ' ')		/* skip leading blanks */
+			s++;
+
+		length = strlen(s);
+		buf = (char *) ib_util_malloc(length + 1);
+		memcpy(buf, s, length);
+		p = buf + length;
+		*p = '\0';
+	}
+	else
+		return NULL;
+
+	return buf;
+}
+
+double EXPORT IB_UDF_mod( long *a, long *b)
+{
+	if (*b != 0) {
+		div_t div_result = div(*a, *b);
+		return (div_result.rem);
+	}
+	else
+		/* This is a Kludge!  We need to return INF, 
+		   but this seems to be the only way to do 
+		   it since there seens to be no constant for it. */
+		return (1 / tan(0));
+}
+
+double EXPORT IB_UDF_pi()
+{
+	return (IB_PI);
+}
+
+double EXPORT IB_UDF_rand()
+{
+	srand((unsigned) time(NULL));
+	return ((float) rand() / (float) RAND_MAX);
+}
+
+char *EXPORT IB_UDF_rtrim( char *s)
+{
+	char *p;
+	char *q;
+	char *buf;
+	long length;
+
+	if (length = strlen(s)) {
+		p = s + length - 1;
+		while ((s != p) && (*p == ' '))
+			p--;
+		length = p - s + 1;
+		buf = (char *) ib_util_malloc(length + 1);
+		memcpy(buf, s, length);
+		q = buf + length;
+		*q = '\0';
+	}
+	else
+		return NULL;
+
+	return buf;
+}
+
+int EXPORT IB_UDF_sign( double *a)
+{
+	if (*a > 0)
+		return 1;
+	if (*a < 0)
+		return -1;
+	/* If neither is true then it eauals 0 */
+	return 0;
+}
+
+double EXPORT IB_UDF_sin( double *a)
+{
+	return (sin(*a));
+}
+
+double EXPORT IB_UDF_sinh( double *a)
+{
+	return (sinh(*a));
+}
+
+double EXPORT IB_UDF_sqrt( double *a)
+{
+	return (sqrt(*a));
+}
+
+char* EXPORT IB_UDF_substr(char* s, short* m, short* n)
+{
+	char *p;
+	char *buf;
+	long length;
+
+	if (!s) {
+		return 0;
+	}
+
+	length = strlen(s);
+	if (!length ||
+		*m > *n ||
+		*m < 1  ||
+		*n < 1  ||
+		*m > length)
+	{
+		buf = (char*)ib_util_malloc(1);
+		buf[0] = '\0';
+	}
+	else
+	{
+		/* we want from the mth char to the
+		   nth char inclusive, so add one to
+		   the length. */
+		/* CVC: We need to compensate for n if it's longer than s's length */
+		if (*n > length) {
+			length -= *m - 1;
+		} else {
+			length = *n - *m + 1;
+		}
+		buf = (char*)ib_util_malloc (length + 1);
+		memcpy(buf, s + *m - 1, length);
+		p = buf + length;
+		*p = '\0';
+	}
+	return buf;
+}
+
+char* EXPORT IB_UDF_substrlen(char* s, short* m, short* n)
+{
+	char* p;
+	char* buf;
+	long length;
+
+	/* Created by Claudio Valderrama for the Firebird project,
+		2001.04.17 We don't want to return NULL when params are wrong
+		and we'll return the remaining characters if the final position
+		is greater than the string's length, unless NULL is provided.
+	*/
+	if (!s) {
+		return NULL;
+	}
+	length = strlen(s);
+	if (!length ||
+		*m < 1  ||
+		*n < 1  ||
+		*m > length)
+	{
+		buf = (char*)ib_util_malloc(1);
+		buf[0] = '\0';
+	}
+	else {
+		/* we want from the mth char to the (m+n)th char inclusive,
+		 * so add one to the length.
+		 */
+		/* CVC: We need to compensate for n if it's longer than s's length */
+		if (*m + *n - 1 > length) {
+			length -= *m - 1;
+		} else {
+			length = *n;
+		}
+		buf = (char*) ib_util_malloc (length + 1);
+		memcpy(buf, s + *m - 1, length);
+		p = buf + length;
+		*p = '\0';
+	}
+	return buf;
+}
+
+int EXPORT IB_UDF_strlen( char *a)
+{
+	return (strlen(a));
+}
+
+double EXPORT IB_UDF_tan( double *a)
+{
+	return (tan(*a));
+}
+
+double EXPORT IB_UDF_tanh( double *a)
+{
+	return (tanh(*a));
+}
diff --git a/src/extlib/ib_udf.h b/src/extlib/ib_udf.h
new file mode 100644
index 0000000000..60ef613c1e
--- /dev/null
+++ b/src/extlib/ib_udf.h
@@ -0,0 +1,38 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#if defined __BORLANDC__ && defined __WIN32__
+#define EXPORT _export
+#define MATHERR	_matherr
+#else
+#define EXPORT
+#define MATHERR	matherr
+#endif
+
+#include <stdarg.h>
+
+#define IB_E             2.7182818284590452354
+#define IB_PI            3.14159265358979323846
+#define IB_PI_2          1.57079632679489661923
+#define IB_PI_4          0.78539816339744830962
+#define IB_1_PI          0.31830988618379067154
+#define IB_2_PI          0.63661977236758134308
+#define IB_2_SQRTPI      1.12837916709551257390
+#define IB_SQRT2         1.41421356237309504880
+#define IB_SQRT1_2       0.70710678118654752440
diff --git a/src/extlib/ib_udf.sql b/src/extlib/ib_udf.sql
new file mode 100644
index 0000000000..e98610354d
--- /dev/null
+++ b/src/extlib/ib_udf.sql
@@ -0,0 +1,606 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: ib_udf.sql,v 1.1.1.1 2001-05-23 13:25:38 tamlin Exp $
+ * Revision 1.2  2000/11/28 06:47:52  fsg
+ * Changed declaration of ascii_char in ib_udf.sql
+ * to get correct result as proposed by Claudio Valderrama
+ *
+ */
+/*****************************************
+ *
+ *	a b s
+ *
+ *****************************************
+ *
+ * Functional description:
+ * 	Returns the absolute value of a 
+ * 	number.  
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION abs 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_abs' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	a c o s
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the arccosine of a number 
+ *	between -1 and 1, if the number is
+ *	out of bounds it returns NaN, as handled
+ *	by the _matherr routine.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION acos 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_acos' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	a s c i i _ c h a r
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the ASCII character corresponding
+ *	with the value passed in.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION ascii_char
+	INTEGER
+	RETURNS CSTRING(1) FREE_IT
+	ENTRY_POINT 'IB_UDF_ascii_char' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	a s c i i _ v a l
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the ascii value of the character
+ * 	passed in.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION ascii_val
+	CHAR(1)
+	RETURNS INTEGER BY VALUE
+	ENTRY_POINT 'IB_UDF_ascii_val' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	a s i n
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the arcsin of a number between
+ *	-1 and 1, if the number is out of
+ *	range NaN is returned.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION asin 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_asin' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	a t a n
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the arctangent of a number.
+ *	
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION atan 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_atan' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	a t a n 2
+ *
+ *****************************************
+ *
+ * Functional description:
+ * 	Returns the arctangent of the
+ *	first param / the second param.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION atan2 
+	DOUBLE PRECISION, DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_atan2' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	b i n _ a n d
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the result of a binary AND 
+ *	operation performed on the two numbers.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION bin_and 
+	INTEGER, INTEGER
+	RETURNS INTEGER BY VALUE
+	ENTRY_POINT 'IB_UDF_bin_and' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	b i n _ o r
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the result of a binary OR 
+ *	operation performed on the two numbers.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION bin_or 
+	INTEGER, INTEGER
+	RETURNS INTEGER BY VALUE
+	ENTRY_POINT 'IB_UDF_bin_or' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	b i n _ x o r
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the result of a binary XOR 
+ *	operation performed on the two numbers.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION bin_xor 
+	INTEGER, INTEGER
+	RETURNS INTEGER BY VALUE
+	ENTRY_POINT 'IB_UDF_bin_xor' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	c e i l i n g
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns a double value representing 
+ *	the smallest integer that is greater 
+ *	than or equal to the input value.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION ceiling 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_ceiling' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	c o s
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	The cos function returns the cosine 
+ *	of x. If x is greater than or equal 
+ *	to 263, or less than or equal to -263, 
+ *	a loss of significance in the result 
+ *	of a call to cos occurs, in which case 
+ *	the function generates a _TLOSS error 
+ *	and returns an indefinite (same as a 
+ *	quiet NaN).
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION cos 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_cos' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	c o s h
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	The cosh function returns the hyperbolic cosine 
+ *	of x. If x is greater than or equal 
+ *	to 263, or less than or equal to -263, 
+ *	a loss of significance in the result 
+ *	of a call to cos occurs, in which case 
+ *	the function generates a _TLOSS error 
+ *	and returns an indefinite (same as a 
+ *	quiet NaN).
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION cosh 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_cosh' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	c o t
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns 1 over the tangent of the
+ *	input parameter.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION cot 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_cot' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	d i v
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the quotient part of the division
+ *	of the two input parameters.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION div 
+	INTEGER, INTEGER
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_div' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	f l o o r
+ *
+ *****************************************
+ *
+ * Functional description:
+ * 	Returns a floating-point value 
+ * 	representing the largest integer that 
+ *	is less than or equal to x	
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION floor 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_floor' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	l n
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the natural log of a number.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION ln 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_ln' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	l o g
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	log (x,y) returns the logarithm 
+ *	base x of y.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION log 
+	DOUBLE PRECISION, DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_log' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	l o g 1 0
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the logarithm base 10 of the
+ *	input parameter.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION log10 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_log10' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	l o w e r
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the input string into lower 
+ *	case characters.  Note: This function
+ *	will not work with international and 
+ *	non-ascii characters.
+ *	Note: This function is NOT limited to
+ *	receiving and returning only 80 characters,
+ *	rather, it can use as long as 32767 
+ * 	characters which is the limit on an 
+ *	INTERBASE character string.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION lower 
+	CSTRING(80)
+	RETURNS CSTRING(80) FREE_IT
+	ENTRY_POINT 'IB_UDF_lower' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	l t r i m
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Removes leading spaces from the input
+ *	string.
+ *	Note: This function is NOT limited to
+ *	receiving and returning only 80 characters,
+ *	rather, it can use as long as 32767 
+ * 	characters which is the limit on an 
+ *	INTERBASE character string.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION ltrim 
+	CSTRING(80)
+	RETURNS CSTRING(80) FREE_IT
+	ENTRY_POINT 'IB_UDF_ltrim' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	m o d
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the remainder part of the 
+ *	division of the two input parameters.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION mod 
+	INTEGER, INTEGER
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_mod' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	p i
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the value of pi = 3.1459...
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION pi 
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_pi' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	r a n d
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns a random number between 0 
+ *	and 1.  Note the random number
+ *	generator is seeded using the current 
+ *	time.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION rand 
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_rand' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	r t r i m
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Removes trailing spaces from the input
+ *	string.
+ *	Note: This function is NOT limited to
+ *	receiving and returning only 80 characters,
+ *	rather, it can use as long as 32767 
+ * 	characters which is the limit on an 
+ *	INTERBASE character string.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION rtrim 
+	CSTRING(80)
+	RETURNS CSTRING(80) FREE_IT
+	ENTRY_POINT 'IB_UDF_rtrim' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	s i g n
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns 1, 0, or -1 depending on whether
+ * 	the input value is positive, zero or 
+ *	negative, respectively.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION sign 
+	DOUBLE PRECISION
+	RETURNS INTEGER BY VALUE
+	ENTRY_POINT 'IB_UDF_sign' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	s i n
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the sine of x. If x is greater 
+ *	than or equal to 263, or less than or 
+ *	equal to -263, a loss of significance 
+ *	in the result occurs, in which case the 
+ *	function generates a _TLOSS error and 
+ *	returns an indefinite (same as a quiet NaN).
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION sin 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_sin' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	s i n h
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the hyperbolic sine of x. If x is greater 
+ *	than or equal to 263, or less than or 
+ *	equal to -263, a loss of significance 
+ *	in the result occurs, in which case the 
+ *	function generates a _TLOSS error and 
+ *	returns an indefinite (same as a quiet NaN).
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION sinh 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_sinh' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	s q r t
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the square root of a number.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION sqrt 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_sqrt' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	s u b s t r
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	substr(s,m,n) returns the substring 
+ *	of s which starts at position m and
+ *	ending at position n.
+ *	Note: This function is NOT limited to
+ *	receiving and returning only 80 characters,
+ *	rather, it can use as long as 32767 
+ * 	characters which is the limit on an 
+ *	INTERBASE character string.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION substr 
+	CSTRING(80), SMALLINT, SMALLINT
+	RETURNS CSTRING(80) FREE_IT
+	ENTRY_POINT 'IB_UDF_substr' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	s t r l e n
+ *
+ *****************************************
+ *
+ * Functional description:
+ *	Returns the length of a given string.
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION strlen 
+	CSTRING(32767)
+	RETURNS INTEGER BY VALUE
+	ENTRY_POINT 'IB_UDF_strlen' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	t a n
+ *
+ *****************************************
+ *
+ * Functional description:
+ * 	Returns the tangent of x. If x is 
+ *	greater than or equal to 263, or less 
+ *	than or equal to -263, a loss of 
+ *	significance in the result occurs, in 
+ *	which case the function generates a 
+ *	_TLOSS error and returns an indefinite 
+ *	(same as a quiet NaN).
+ *
+ *****************************************/
+DECLARE EXTERNAL FUNCTION tan 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_tan' MODULE_NAME 'ib_udf';
+
+/*****************************************
+ *
+ *	t a n h
+ *
+ *****************************************
+ *
+ * Functional description:
+ * 	Returns the tangent of x. If x is 
+ *	greater than or equal to 263, or less 
+ *	than or equal to -263, a loss of 
+ *	significance in the result occurs, in 
+ *	which case the function generates a 
+ *	_TLOSS error and returns an indefinite 
+ *	(same as a quiet NaN).
+ *	
+ *****************************************/
+DECLARE EXTERNAL FUNCTION tanh 
+	DOUBLE PRECISION
+	RETURNS DOUBLE PRECISION BY VALUE
+	ENTRY_POINT 'IB_UDF_tanh' MODULE_NAME 'ib_udf';
+
diff --git a/src/extlib/ib_util.c b/src/extlib/ib_util.c
new file mode 100644
index 0000000000..82adb802ee
--- /dev/null
+++ b/src/extlib/ib_util.c
@@ -0,0 +1,25 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include <stdlib.h>
+#include "ib_udf.h"
+
+void *EXPORT ib_util_malloc( long size)
+{
+	return malloc(size);
+}
diff --git a/src/extlib/ib_util.h b/src/extlib/ib_util.h
new file mode 100644
index 0000000000..0a5ef40571
--- /dev/null
+++ b/src/extlib/ib_util.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	UDF and Blob filter Utilities library
+ *	MODULE:		ib_util.h
+ *	DESCRIPTION:	Prototype header file for ib_util.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _IB_UTIL_H
+#define _IB_UTIL_H
+
+extern void *IB_UTIL_malloc(long);
+
+#endif /* _IB_UTIL_H */
diff --git a/src/extlib/ib_util.pas b/src/extlib/ib_util.pas
new file mode 100644
index 0000000000..5401092dd7
--- /dev/null
+++ b/src/extlib/ib_util.pas
@@ -0,0 +1,37 @@
+(*******************************************************************)
+(*                                                                 *)
+(* The contents of this file are subject to the Interbase Public   *)
+(* License Version 1.0 (the "License"); you may not use this file  *)
+(* except in compliance with the License. You may obtain a copy    *)
+(* of the License at http://www.Inprise.com/IPL.html                 *)
+(*                                                                 *)
+(* Software distributed under the License is distributed on an     *)
+(* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express     *)
+(* or implied. See the License for the specific language governing *)
+(* rights and limitations under the License.                       *)
+(*                                                                 *)
+(* The Original Code was created by Inprise Corporation *)
+(* and its predecessors. Portions created by Inprise Corporation are     *)
+(* Copyright (C) Inprise Corporation. *)
+(*                                                                 *)
+(* All Rights Reserved.                                            *)
+(* Contributor(s): ______________________________________.         *)
+(*******************************************************************)
+
+{***********************************************************}
+{                                                           }
+{ 	PROGRAM:	UDF and Blob filter Utilities library         }
+{ 	MODULE:		ib_util.h                                     }
+{ 	DESCRIPTION:	Prototype header file for ib_util.c       }
+{                                                           }
+{***********************************************************}
+unit ib_util;
+
+interface
+
+function IB_UTIL_malloc(l: integer): pointer; cdecl; external 'ib_util.dll';
+
+implementation
+
+end.
+
diff --git a/src/extlib/makefile.mak b/src/extlib/makefile.mak
new file mode 100644
index 0000000000..a0e341a374
--- /dev/null
+++ b/src/extlib/makefile.mak
@@ -0,0 +1,60 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+.AUTODEPEND
+ROOT = ..
+.path.c=$(ROOT)\extlib
+
+FUNCLIB_FILES=	ib_udf.c
+
+APPBUILD=1
+
+!include $(ROOT)\std.mk
+
+CFLAGS=		-v -c -a4 -tWM -tWCD -DWIN32 
+
+
+ib_udf.dll: ib_udf.obj
+# build a small argument file and use it
+	@echo $(TOOLPATH)\lib\c0d32.obj+ > link.arg
+        @echo ib_udf.obj >> link.arg
+        @echo .\$(.path.obj)\ib_udf.dll >> link.arg
+	@echo /v /c /x /ap /Tpd >> link.arg 
+        @echo $(TOOLPATH)\lib\import32.lib+ >> link.arg
+	@echo $(TOOLPATH)\lib\cw32mt.lib >> link.arg
+	$(TLINK) @link.arg
+	$(RM) link.arg
+
+ib_udf.obj: ib_udf.c
+	$(CC) $(CFLAGS) ib_udf.c 
+
+
diff --git a/src/gpre/ada.cpp b/src/gpre/ada.cpp
new file mode 100644
index 0000000000..f7a06f7519
--- /dev/null
+++ b/src/gpre/ada.cpp
@@ -0,0 +1,4518 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	ADA preprocesser
+//		MODULE:		ada.cpp
+//		DESCRIPTION:	Inserted text generator for ADA
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  
+//
+//____________________________________________________________
+//
+//	$Id: ada.cpp,v 1.1.1.1 2001-05-23 13:25:33 tamlin Exp $
+//
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../include/jrd/gds.h"
+#include "../gpre/gpre.h"
+#include "../gpre/form.h"
+#include "../gpre/pat.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/lang_proto.h"
+#include "../gpre/pat_proto.h"
+#include "../gpre/prett_proto.h"
+#include "../jrd/gds_proto.h"
+
+static int align(int);
+static int asgn_from(ACT, REF, int);
+static int asgn_sqlda_from(REF, int, TEXT *, int);
+static int asgn_to(ACT, REF, int);
+static int asgn_to_proc(REF, int);
+static int gen_any(ACT, int);
+static int gen_at_end(ACT, int);
+static int gen_based(ACT, int);
+static int gen_blob_close(ACT, USHORT);
+static int gen_blob_end(ACT, USHORT);
+static int gen_blob_for(ACT, USHORT);
+static int gen_blob_open(ACT, USHORT);
+static int gen_blr(int *, int, TEXT *);
+static int gen_clear_handles(ACT, int);
+static int gen_compatability_symbol(TEXT *, TEXT *, TEXT *);
+static int gen_compile(ACT, int);
+static int gen_create_database(ACT, int);
+static int gen_cursor_close(ACT, REQ, int);
+static int gen_cursor_init(ACT, int);
+static int gen_cursor_open(ACT, REQ, int);
+static int gen_database(ACT, int);
+static int gen_ddl(ACT, int);
+static int gen_drop_database(ACT, int);
+static int gen_dyn_close(ACT, int);
+static int gen_dyn_declare(ACT, int);
+static int gen_dyn_describe(ACT, int, BOOLEAN);
+static int gen_dyn_execute(ACT, int);
+static int gen_dyn_fetch(ACT, int);
+static int gen_dyn_immediate(ACT, int);
+static int gen_dyn_insert(ACT, int);
+static int gen_dyn_open(ACT, int);
+static int gen_dyn_prepare(ACT, int);
+static int gen_emodify(ACT, int);
+static int gen_estore(ACT, int);
+static int gen_endfor(ACT, int);
+static int gen_erase(ACT, int);
+static SSHORT gen_event_block(ACT);
+static int gen_event_init(ACT, int);
+static int gen_event_wait(ACT, int);
+static int gen_fetch(ACT, int);
+static int gen_finish(ACT, int);
+static int gen_for(ACT, int);
+static int gen_form_display(ACT, int);
+static int gen_form_end(ACT, int);
+static int gen_form_for(ACT, int);
+static int gen_function(ACT, int);
+static int gen_get_or_put_slice(ACT, REF, BOOLEAN, int);
+static int gen_get_segment(ACT, int);
+static int gen_item_end(ACT, int);
+static int gen_item_for(ACT, int);
+static int gen_loop(ACT, int);
+static int gen_menu(ACT, int);
+static int gen_menu_display(ACT, int);
+static int gen_menu_end(ACT, int);
+static int gen_menu_entree(ACT, int);
+static int gen_menu_entree_att(ACT, int);
+static int gen_menu_for(ACT, int);
+static int gen_menu_item_end(ACT, int);
+static int gen_menu_item_for(ACT, int);
+static int gen_menu_request(REQ, int);
+static TEXT *gen_name(TEXT *, REF, BOOLEAN);
+static int gen_on_error(ACT, USHORT);
+static int gen_procedure(ACT, int);
+static int gen_put_segment(ACT, int);
+static int gen_raw(UCHAR *, enum req_t, int, int);
+static int gen_ready(ACT, int);
+static int gen_receive(ACT, int, POR);
+static int gen_release(ACT, int);
+static int gen_request(REQ, int);
+static int gen_return_value(ACT, int);
+static int gen_routine(ACT, int);
+static int gen_s_end(ACT, int);
+static int gen_s_fetch(ACT, int);
+static int gen_s_start(ACT, int);
+static int gen_segment(ACT, int);
+static int gen_select(ACT, int);
+static int gen_send(ACT, POR, int);
+static int gen_slice(ACT, int);
+static int gen_start(ACT, POR, int);
+static int gen_store(ACT, int);
+static int gen_t_start(ACT, int);
+static int gen_tpb(TPB, int);
+static int gen_trans(ACT, int);
+static int gen_type(ACT, int);
+static int gen_update(ACT, int);
+static int gen_variable(ACT, int);
+static int gen_whenever(SWE, int);
+static int gen_window_create(ACT, int);
+static int gen_window_delete(ACT, int);
+static int gen_window_suspend(ACT, int);
+static int make_array_declaration(REF, int);
+static int make_cursor_open_test(enum act_t, REQ, int);
+static TEXT *make_name(TEXT *, SYM);
+static int make_ok_test(ACT, REQ, int);
+static int make_port(POR, int);
+static int make_ready(DBB, TEXT *, TEXT *, USHORT, REQ);
+static int printa(int, TEXT *, ...);
+static int printb(TEXT *, ...);
+static TEXT *request_trans(ACT, REQ);
+static TEXT *status_vector(ACT);
+static int t_start_auto(ACT, REQ, TEXT *, int, SSHORT);
+
+static TEXT output_buffer[512];
+static int first_flag;
+
+#define COMMENT		"--- "
+#define INDENT		3
+#define ENDIF		printa (column, "end if;")
+#define BEGIN		printa (column, "begin")
+#define END		printa (column, "end;")
+
+#define BYTE_DCL	"interbase.isc_byte"
+#define BYTE_VECTOR_DCL	"interbase.isc_vector_byte"
+#define SHORT_DCL	"interbase.isc_short"
+#define USHORT_DCL	"interbase.isc_ushort"
+#define LONG_DCL	"interbase.isc_long"
+#define LONG_VECTOR_DCL	"interbase.isc_vector_long"
+#define EVENT_LIST_DCL	"interbase.event_list"
+#define FLOAT_DCL	"interbase.isc_float"
+#define DOUBLE_DCL	"interbase.isc_double"
+
+#define ADA_WINDOW_PACKAGE	(sw_window_scope == DBB_EXTERN) ? ada_package : ""
+
+#define SET_SQLCODE     if (action->act_flags & ACT_sql) printa (column, "SQLCODE := interbase.sqlcode (isc_status);")
+
+
+//____________________________________________________________
+//  
+//		Code generator for ADA.  Not to be confused with
+//  
+//  
+
+void ADA_action( ACT action, int column)
+{
+
+	switch (action->act_type) {
+	case ACT_alter_database:
+	case ACT_alter_domain:
+	case ACT_alter_table:
+	case ACT_alter_index:
+	case ACT_create_domain:
+	case ACT_create_generator:
+	case ACT_create_index:
+	case ACT_create_shadow:
+	case ACT_create_table:
+	case ACT_create_view:
+	case ACT_declare_filter:
+	case ACT_declare_udf:
+	case ACT_drop_domain:
+	case ACT_drop_filter:
+	case ACT_drop_index:
+	case ACT_drop_shadow:
+	case ACT_drop_table:
+	case ACT_drop_udf:
+	case ACT_statistics:
+	case ACT_drop_view:
+		gen_ddl(action, column);
+		break;
+	case ACT_any:
+		gen_any(action, column);
+		return;
+	case ACT_at_end:
+		gen_at_end(action, column);
+		return;
+	case ACT_commit:
+		gen_trans(action, column);
+		break;
+	case ACT_commit_retain_context:
+		gen_trans(action, column);
+		break;
+	case ACT_b_declare:
+		gen_database(action, column);
+		gen_routine(action, column);
+		return;
+	case ACT_basedon:
+		gen_based(action, column);
+		return;
+	case ACT_blob_cancel:
+		gen_blob_close(action, column);
+		return;
+	case ACT_blob_close:
+		gen_blob_close(action, column);
+		return;
+	case ACT_blob_create:
+		gen_blob_open(action, column);
+		return;
+	case ACT_blob_for:
+		gen_blob_for(action, column);
+		return;
+	case ACT_blob_handle:
+		gen_segment(action, column);
+		return;
+	case ACT_blob_open:
+		gen_blob_open(action, column);
+		return;
+	case ACT_clear_handles:
+		gen_clear_handles(action, column);
+		break;
+	case ACT_close:
+		gen_s_end(action, column);
+		break;
+	case ACT_create_database:
+		gen_create_database(action, column);
+		break;
+	case ACT_cursor:
+		gen_cursor_init(action, column);
+		return;
+	case ACT_database:
+		gen_database(action, column);
+		return;
+	case ACT_disconnect:
+		gen_finish(action, column);
+		break;
+	case ACT_drop_database:
+		gen_drop_database(action, column);
+		break;
+	case ACT_dyn_close:
+		gen_dyn_close(action, column);
+		break;
+	case ACT_dyn_cursor:
+		gen_dyn_declare(action, column);
+		break;
+	case ACT_dyn_describe:
+		gen_dyn_describe(action, column, FALSE);
+		break;
+	case ACT_dyn_describe_input:
+		gen_dyn_describe(action, column, TRUE);
+		break;
+	case ACT_dyn_execute:
+		gen_dyn_execute(action, column);
+		break;
+	case ACT_dyn_fetch:
+		gen_dyn_fetch(action, column);
+		break;
+	case ACT_dyn_grant:
+		gen_ddl(action, column);
+		break;
+	case ACT_dyn_immediate:
+		gen_dyn_immediate(action, column);
+		break;
+	case ACT_dyn_insert:
+		gen_dyn_insert(action, column);
+		break;
+	case ACT_dyn_open:
+		gen_dyn_open(action, column);
+		break;
+	case ACT_dyn_prepare:
+		gen_dyn_prepare(action, column);
+		break;
+	case ACT_procedure:
+		gen_procedure(action, column);
+		break;
+	case ACT_dyn_revoke:
+		gen_ddl(action, column);
+		break;
+	case ACT_endblob:
+		gen_blob_end(action, column);
+		return;
+	case ACT_enderror:
+		ENDIF;
+		break;
+	case ACT_endfor:
+		gen_endfor(action, column);
+		break;
+	case ACT_endmodify:
+		gen_emodify(action, column);
+		break;
+	case ACT_endstore:
+		gen_estore(action, column);
+		break;
+	case ACT_erase:
+		gen_erase(action, column);
+		return;
+	case ACT_event_init:
+		gen_event_init(action, column);
+		break;
+	case ACT_event_wait:
+		gen_event_wait(action, column);
+		break;
+	case ACT_fetch:
+		gen_fetch(action, column);
+		break;
+	case ACT_finish:
+		gen_finish(action, column);
+		break;
+	case ACT_for:
+		gen_for(action, column);
+		return;
+	case ACT_form_display:
+		gen_form_display(action, column);
+		break;
+	case ACT_form_end:
+		gen_form_end(action, column);
+		break;
+	case ACT_form_for:
+		gen_form_for(action, column);
+		return;
+	case ACT_function:
+		gen_function(action, column);
+		return;
+	case ACT_get_segment:
+		gen_get_segment(action, column);
+		return;
+	case ACT_get_slice:
+		gen_slice(action, column);
+		return;
+	case ACT_hctef:
+		ENDIF;
+		break;
+	case ACT_insert:
+		gen_s_start(action, column);
+		break;
+	case ACT_item_for:
+	case ACT_item_put:
+		gen_item_for(action, column);
+		return;
+	case ACT_item_end:
+		gen_item_end(action, column);
+		break;
+	case ACT_loop:
+		gen_loop(action, column);
+		break;
+	case ACT_menu:
+		gen_menu(action, column);
+		return;
+	case ACT_menu_display:
+		gen_menu_display(action, column);
+		return;
+	case ACT_menu_end:
+		gen_menu_end(action, column);
+		return;
+	case ACT_menu_entree:
+		gen_menu_entree(action, column);
+		return;
+	case ACT_menu_for:
+		gen_menu_for(action, column);
+		return;
+
+	case ACT_title_text:
+	case ACT_title_length:
+	case ACT_terminator:
+	case ACT_entree_text:
+	case ACT_entree_length:
+	case ACT_entree_value:
+		gen_menu_entree_att(action, column);
+		return;
+
+	case ACT_open:
+		gen_s_start(action, column);
+		break;
+	case ACT_on_error:
+		gen_on_error(action, column);
+		return;
+	case ACT_ready:
+		gen_ready(action, column);
+		break;
+	case ACT_prepare:
+		gen_trans(action, column);
+		break;
+	case ACT_put_segment:
+		gen_put_segment(action, column);
+		return;
+	case ACT_put_slice:
+		gen_slice(action, column);
+		return;
+	case ACT_release:
+		gen_release(action, column);
+		break;
+	case ACT_rfinish:
+		gen_finish(action, column);
+		break;
+	case ACT_rollback:
+		gen_trans(action, column);
+		break;
+	case ACT_routine:
+		gen_routine(action, column);
+		return;
+	case ACT_s_end:
+		gen_s_end(action, column);
+		return;
+	case ACT_s_fetch:
+		gen_s_fetch(action, column);
+		return;
+	case ACT_s_start:
+		gen_s_start(action, column);
+		break;
+	case ACT_select:
+		gen_select(action, column);
+		break;
+	case ACT_segment_length:
+		gen_segment(action, column);
+		return;
+	case ACT_segment:
+		gen_segment(action, column);
+		return;
+	case ACT_sql_dialect:
+		sw_sql_dialect = ((SDT) action->act_object)->sdt_dialect;
+		return;
+	case ACT_start:
+		gen_t_start(action, column);
+		break;
+	case ACT_store:
+		gen_store(action, column);
+		return;
+	case ACT_store2:
+		gen_return_value(action, column);
+		return;
+	case ACT_type:
+		gen_type(action, column);
+		return;
+	case ACT_update:
+		gen_update(action, column);
+		break;
+	case ACT_variable:
+		gen_variable(action, column);
+		return;
+	case ACT_window_create:
+		gen_window_create(action, column);
+		return;
+	case ACT_window_delete:
+		gen_window_delete(action, column);
+		return;
+	case ACT_window_suspend:
+		gen_window_suspend(action, column);
+		return;
+	default:
+		return;
+	}
+
+//  Put in a trailing brace for those actions still with us 
+
+	if (action->act_flags & ACT_sql)
+		gen_whenever(action->act_whenever, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Print a statment, breaking it into
+//       reasonable 120 character hunks.
+//  
+
+void ADA_print_buffer( TEXT * output_buffer, int column)
+{
+	TEXT s[121], *p, *q;
+	int i;
+	BOOLEAN multiline;
+
+	p = s;
+	multiline = FALSE;
+	for (q = output_buffer; *q; q++) {
+		*p++ = *q;
+		if (((p - s) + column) > 119) {
+			for (p--; (*p != ',') && (*p != ' '); p--)
+				q--;
+			*++p = 0;
+
+			if (multiline) {
+				for (i = column / 8; i; --i)
+					ib_putc('\t', out_file);
+
+				for (i = column % 8; i; --i)
+					ib_putc(' ', out_file);
+			}
+			ib_fprintf(out_file, "%s\n", s);
+			s[0] = 0;
+			p = s;
+			multiline = TRUE;
+		}
+	}
+	*p = 0;
+	if (multiline) {
+		for (i = column / 8; i; --i)
+			ib_putc('\t', out_file);
+		for (i = column % 8; i; --i)
+			ib_putc(' ', out_file);
+	}
+	ib_fprintf(out_file, "%s", s);
+	output_buffer[0] = 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Align output to a specific column for output.
+//  
+
+static align( int column)
+{
+	int i;
+
+	if (column < 0)
+		return;
+
+	ib_putc('\n', out_file);
+
+	for (i = column / 8; i; --i)
+		ib_putc('\t', out_file);
+
+	for (i = column % 8; i; --i)
+		ib_putc(' ', out_file);
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment from a host language variable to
+//		a port variable.
+//  
+
+static asgn_from( ACT action, REF reference, int column)
+{
+	FLD field;
+	TEXT *value, name[64], variable[20], temp[20];
+
+	for (; reference; reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (field->fld_array_info)
+			if (!(reference->ref_flags & REF_array_elem)) {
+				printa(column, "%s := interbase.null_blob;",
+					   gen_name(name, reference, TRUE));
+				gen_get_or_put_slice(action, reference, FALSE, column);
+				continue;
+			}
+
+		if (!reference->ref_source && !reference->ref_value)
+			continue;
+		gen_name(variable, reference, TRUE);
+		if (reference->ref_source)
+			value = gen_name(temp, reference->ref_source, TRUE);
+		else
+			value = reference->ref_value;
+
+		if (!reference->ref_master)
+			printa(column, "%s := %s;", variable, value);
+		else {
+			printa(column, "if %s < 0 then", value);
+			printa(column + INDENT, "%s := -1;", variable);
+			printa(column, "else");
+			printa(column + INDENT, "%s := 0;", variable);
+			ENDIF;
+		}
+	}
+}
+
+
+#ifdef UNDEF
+//____________________________________________________________
+//  
+//       Build an assignment from a host language variable to
+//       a sqlda variable.
+//  
+
+static void asgn_sqlda_from(
+							REF reference,
+							int number, SCHAR * string, int column)
+{
+	SCHAR *value, temp[20];
+
+	for (; reference; reference = reference->ref_next) {
+		align(column);
+		if (reference->ref_source)
+			value = gen_name(temp, reference->ref_source, TRUE);
+		else
+			value = reference->ref_value;
+		ib_fprintf(out_file,
+				   "isc_to_sqlda (isc_sqlda, %d, %s, sizeof(%s), %s);",
+				   number, value, value, string);
+	}
+}
+#endif
+
+
+//____________________________________________________________
+//  
+//		Build an assignment to a host language variable from
+//		a port variable.
+//  
+
+static asgn_to( ACT action, REF reference, int column)
+{
+	FLD field;
+	REF source;
+	TEXT s[20];
+
+	source = reference->ref_friend;
+	field = source->ref_field;
+
+	if (field->fld_array_info) {
+		source->ref_value = reference->ref_value;
+		gen_get_or_put_slice(action, source, TRUE, column);
+		return;
+	}
+//  
+//if (field && (field->fld_flags & FLD_text))
+//   printa (column, "interbase.isc_ftof (%s, %d, %s, sizeof (%s));", 
+// gen_name (s, source, TRUE),
+// field->fld_length,
+// reference->ref_value,
+// reference->ref_value);
+//else
+//  
+	printa(column, "%s := %s;", reference->ref_value,
+		   gen_name(s, source, TRUE));
+
+//  Pick up NULL value if one is there 
+	if (reference = reference->ref_null)
+		printa(column, "%s := %s;", reference->ref_value,
+			   gen_name(s, reference, TRUE));
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment to a host language variable from
+//		a port variable.
+//  
+
+static asgn_to_proc( REF reference, int column)
+{
+	SCHAR s[64];
+
+	for (; reference; reference = reference->ref_next) {
+		if (!reference->ref_value)
+			continue;
+		printa(column, "%s := %s;",
+			   reference->ref_value, gen_name(s, reference, TRUE));
+	}
+}
+
+
+//____________________________________________________________
+//  
+//       Generate a function call for free standing ANY.  Somebody else
+//       will need to generate the actual function.
+//  
+
+static int gen_any( ACT action, int column)
+{
+	REQ request;
+	POR port;
+	REF reference;
+
+	align(column);
+	request = action->act_request;
+
+	ib_fprintf(out_file, "%s_r (&%s, &%s",
+			   request->req_handle, request->req_handle, request->req_trans);
+
+	if (port = request->req_vport)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next)
+				ib_fprintf(out_file, ", %s", reference->ref_value);
+
+	ib_fprintf(out_file, ")");
+}
+
+
+//____________________________________________________________
+//  
+//       Generate code for AT END clause of FETCH.
+//  
+
+static int gen_at_end( ACT action, int column)
+{
+	REQ request;
+	SCHAR s[20];
+
+	request = action->act_request;
+	printa(column, "if %s = 0 then", gen_name(s, request->req_eof, TRUE));
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a BASED ON <field name> clause.
+//  
+
+static gen_based( ACT action, int column)
+{
+	BAS based_on;
+	FLD field;
+	SSHORT datatype, i, length;
+	DIM dimension;
+	SCHAR s[512], s2[128], *p, *q;
+
+	based_on = (BAS) action->act_object;
+	field = based_on->bas_field;
+	q = s;
+
+	if (field->fld_array_info) {
+		datatype = field->fld_array->fld_dtype;
+		sprintf(s, "array (");
+		for (q = s; *q; q++);
+
+		/*  Print out the dimension part of the declaration  */
+		for (dimension = field->fld_array_info->ary_dimension, i = 1;
+			 i < field->fld_array_info->ary_dimension_count;
+			 dimension = dimension->dim_next, i++) {
+			sprintf(s2, "%s range %d..%d,\n                            ",
+					LONG_DCL, dimension->dim_lower, dimension->dim_upper);
+			for (p = s2; *p; p++, q++)
+				*q = *p;
+		}
+
+		sprintf(s2, "%s range %d..%d) of ",
+				LONG_DCL, dimension->dim_lower, dimension->dim_upper);
+		for (p = s2; *p; p++, q++)
+			*q = *p;
+	}
+	else
+		datatype = field->fld_dtype;
+
+	switch (datatype) {
+	case dtype_short:
+		sprintf(s2, "%s", SHORT_DCL);
+		break;
+
+	case dtype_long:
+		sprintf(s2, "%s", LONG_DCL);
+		break;
+
+	case dtype_date:
+	case dtype_blob:
+	case dtype_quad:
+		sprintf(s2, "interbase.quad");
+		break;
+
+	case dtype_text:
+		length =
+			(field->fld_array_info) ? field->fld_array->fld_length : field->
+			fld_length;
+		if (field->fld_sub_type == 1) {
+			if (length == 1)
+				sprintf(s2, "%s", BYTE_DCL);
+			else
+				sprintf(s2, "%s (1..%d)", BYTE_VECTOR_DCL, length);
+		}
+		else if (length == 1)
+			sprintf(s2, "interbase.isc_character");
+		else
+			sprintf(s2, "string (1..%d)", length);
+		break;
+
+	case dtype_float:
+		sprintf(s2, "%s", FLOAT_DCL);
+		break;
+
+	case dtype_double:
+		sprintf(s2, "%s", DOUBLE_DCL);
+		break;
+
+	default:
+		sprintf(s2, "datatype %d unknown\n", field->fld_dtype);
+		return;
+	}
+	for (p = s2; *p; p++, q++)
+		*q = *p;
+	if (!strcmp(based_on->bas_terminator, ";"))
+		*q++ = ';';
+	*q = 0;
+	printa(column, s);
+}
+
+
+//____________________________________________________________
+//  
+//		Make a blob FOR loop.
+//  
+
+static gen_blob_close( ACT action, USHORT column)
+{
+	TEXT *command;
+	BLB blob;
+
+	if (action->act_flags & ACT_sql) {
+		column = gen_cursor_close(action, action->act_request, column);
+		blob = (BLB) action->act_request->req_blobs;
+	}
+	else
+		blob = (BLB) action->act_object;
+
+	command = (action->act_type == ACT_blob_cancel) ? "CANCEL" : "CLOSE";
+	printa(column, "interbase.%s_BLOB (%s isc_%d);",
+		   command, status_vector(action), blob->blb_ident);
+
+	if (action->act_flags & ACT_sql) {
+		ENDIF;
+		column -= INDENT;
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		End a blob FOR loop.
+//  
+
+static gen_blob_end( ACT action, USHORT column)
+{
+	BLB blob;
+
+	blob = (BLB) action->act_object;
+	printa(column, "end loop;");
+
+	if (action->act_error)
+		printa(column, "interbase.CLOSE_BLOB (isc_status2, isc_%d);",
+			   blob->blb_ident);
+	else
+		printa(column, "interbase.CLOSE_BLOB (%s isc_%d);",
+			   status_vector(0), blob->blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Make a blob FOR loop.
+//  
+
+static gen_blob_for( ACT action, USHORT column)
+{
+
+	gen_blob_open(action, column);
+	if (action->act_error)
+		printa(column, "if (isc_status(1) = 0) then");
+	printa(column, "loop");
+	gen_get_segment(action, column + INDENT);
+	printa(column + INDENT,
+		   "exit when (isc_status(1) /= 0 and isc_status(1) /= interbase.isc_segment);");
+}
+
+
+#if 0
+//  This is the V4.0 version of the function prior to 18-January-95.
+//  for unknown reasons it contains a core dump.  The V3.3 version of
+//  this function appears to work fine, so we are using it instead.
+//  Ravi Kumar
+//  
+//____________________________________________________________
+//  
+//		Generate the call to open (or create) a blob.
+//  
+
+static gen_blob_open( ACT action, USHORT column)
+{
+	TEXT *command;
+	BLB blob;
+	PAT args;
+	REF reference;
+	TEXT s[20];
+	TEXT *pattern1 =
+		"interbase.%IFCREATE%ELOPEN%EN_BLOB2 (%V1 %RF%DH, %RF%RT, %RF%BH, %RF%FR, %N1, %I1);",
+		*pattern2 =
+		"interbase.%IFCREATE%ELOPEN%EN_BLOB2 (%V1 %RF%DH, %RF%RT, %RF%BH, %RF%FR, 0, isc_null_bpb);";
+
+	if (action->act_flags & ACT_sql) {
+		column = gen_cursor_open(action, action->act_request, column);
+		blob = (BLB) action->act_request->req_blobs;
+		reference = ((OPN) action->act_object)->opn_using;
+		gen_name(s, reference, TRUE);
+	}
+	else
+		blob = (BLB) action->act_object;
+
+	args.pat_condition = action->act_type == ACT_blob_create;	/*  open or create blob */
+	args.pat_vector1 = status_vector(action);	/*  status vector */
+	args.pat_database = blob->blb_request->req_database;	/*  database handle */
+	args.pat_request = blob->blb_request;	/*  transaction handle */
+	args.pat_blob = blob;		/*  blob handle */
+	args.pat_reference = reference;	/*  blob identifier */
+	args.pat_ident1 = blob->blb_bpb_ident;
+
+	if ((action->act_flags & ACT_sql) && action->act_type == ACT_blob_open)
+		printa(column, "%s := %s;", s, reference->ref_value);
+
+	if (args.pat_value1 = blob->blb_bpb_length)
+		PATTERN_expand(column, pattern1, &args);
+	else
+		PATTERN_expand(column, pattern2, &args);
+
+	if (action->act_flags & ACT_sql) {
+		ENDIF;
+		column -= INDENT;
+		ENDIF;
+		column -= INDENT;
+		SET_SQLCODE;
+		if (action->act_type == ACT_blob_create) {
+			printa(column, "if SQLCODE = 0 then");
+			printa(column + INDENT, "%s := %s;", reference->ref_value, s);
+			ENDIF;
+		}
+		ENDIF;
+	}
+}
+#else
+//  This is the version 3.3 of this routine - the original V4.0 version
+//  has a core drop.
+//  Ravi Kumar
+//  
+//____________________________________________________________
+//  
+//       Generate the call to open (or create) a blob.
+//  
+
+static gen_blob_open( ACT action, USHORT column)
+{
+	TEXT *command;
+	BLB blob;
+	REQ request;
+	TEXT s[20];
+	PAT args;
+	TEXT *pattern1 =
+		"interbase.%IFCREATE%ELOPEN%EN_BLOB2 (%V1 %RF%DH, %RF%RT, %RF%BH, %RF%FR, %N1, %I1);";
+	TEXT *pattern2 =
+		"interbase.%IFCREATE%ELOPEN%EN_BLOB2 (%V1 %RF%DH, %RF%RT, %RF%BH, %RF%FR, 0, isc_null_bpb);";
+
+	blob = (BLB) action->act_object;
+	args.pat_condition = action->act_type == ACT_blob_create;	/*  open or create blob  */
+	args.pat_vector1 = status_vector(action);	/*  status vector        */
+	args.pat_database = blob->blb_request->req_database;	/*  database handle      */
+	args.pat_request = blob->blb_request;	/*  transaction handle   */
+	args.pat_blob = blob;		/*  blob handle          */
+	args.pat_reference = blob->blb_reference;	/*  blob identifier      */
+	args.pat_ident1 = blob->blb_bpb_ident;
+
+	if (args.pat_value1 = blob->blb_bpb_length)
+		PATTERN_expand(column, pattern1, &args);
+	else
+		PATTERN_expand(column, pattern2, &args);
+}
+#endif
+
+
+//____________________________________________________________
+//  
+//		Callback routine for BLR pretty printer.
+//  
+
+static gen_blr( int *user_arg, int offset, TEXT * string)
+{
+	int from, to, len, c_len;
+	SCHAR c;
+
+	c_len = strlen(COMMENT);
+	len = strlen(string);
+	from = 0;
+	to = 120 - c_len;
+
+	while (from < len) {
+		if (to < len) {
+			c = string[to];
+			string[to] = 0;
+		}
+		ib_fprintf(out_file, "%s%s\n", COMMENT, &string[from]);
+		if (to < len)
+			string[to] = c;
+		from = to;
+		to = to + 120 - c_len;
+	}
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//       Zap all know handles.
+//  
+
+static int gen_clear_handles( ACT action, int column)
+{
+	REQ request;
+
+	for (request = requests; request; request = request->req_next) {
+		if (!(request->req_flags & REQ_exp_hand))
+			printa(column, "%s = 0;", request->req_handle);
+		if (request->req_form_handle &&
+			!(request->req_flags & REQ_exp_form_handle))
+				printa(column, "%s = 0;", request->req_form_handle);
+	}
+}
+
+
+#if 0
+//____________________________________________________________
+//  
+//       Generate a symbol to ease compatibility with V3.
+//  
+
+static void gen_compatibility_symbol(
+									 TEXT * symbol,
+									 TEXT * v4_prefix, TEXT * trailer)
+{
+	TEXT *v3_prefix;
+
+	v3_prefix = (sw_language == lang_cxx) ? "gds_" : "gds__";
+
+	ib_fprintf(out_file, "#define %s%s\t%s%s%s\n", v3_prefix, symbol,
+			   v4_prefix, symbol, trailer);
+}
+#endif
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile a request.
+//  
+
+static gen_compile( ACT action, int column)
+{
+	REQ request;
+	DBB db;
+	SYM symbol;
+	TEXT *filename;
+	BLB blob;
+
+	request = action->act_request;
+	column += INDENT;
+	db = request->req_database;
+	symbol = db->dbb_name;
+
+	if (sw_auto)
+		t_start_auto(action, request, status_vector(action), column, TRUE);
+
+	if ((action->act_error || (action->act_flags & ACT_sql)) && sw_auto)
+		printa(column, "if (%s = 0) and (%s%s /= 0) then",
+			   request->req_handle, ada_package, request_trans(action,
+															   request));
+	else
+		printa(column, "if %s = 0 then", request->req_handle);
+
+	column += INDENT;
+#if 0
+	printa(column, "interbase.COMPILE_REQUEST%s (%s %s%s, %s%s, %d, isc_%d);",
+		   (request->req_flags & REQ_exp_hand) ? "" : "2",
+		   status_vector(action),
+		   ada_package, symbol->sym_string,
+		   request_trans(action, request),
+		   (request->req_flags & REQ_exp_hand) ? "" : "'address",
+		   request->req_length, request->req_ident);
+#endif
+	printa(column, "interbase.COMPILE_REQUEST%s (%s %s%s, %s%s, %d, isc_%d);",
+		   (request->req_flags & REQ_exp_hand) ? "" : "2",
+		   status_vector(action),
+		   ada_package, symbol->sym_string,
+		   request->req_handle,
+		   (request->req_flags & REQ_exp_hand) ? "" : "'address",
+		   request->req_length, request->req_ident);
+
+	SET_SQLCODE;
+	column -= INDENT;
+	ENDIF;
+
+
+	if (blob = request->req_blobs)
+		for (; blob; blob = blob->blb_next)
+			printa(column - INDENT, "isc_%d := 0;", blob->blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to create a database.
+//  
+
+static gen_create_database( ACT action, int column)
+{
+	REQ request;
+	DBB db;
+	USHORT save_sw_auto;
+	TEXT s1[32], s2[32];
+
+	request = ((MDBB) action->act_object)->mdbb_dpb_request;
+	db = (DBB) request->req_database;
+
+	sprintf(s1, "isc_%dl", request->req_ident);
+
+	if (request->req_flags & REQ_extend_dpb) {
+		sprintf(s2, "isc_%dp", request->req_ident);
+		if (request->req_length)
+			printa(column, "%s = isc_to_dpb_ptr (isc_%d'address);", s2,
+				   request->req_ident);
+		if (db->dbb_r_user)
+			printa(column,
+				   "interbase.MODIFY_DPB (%s, %s, interbase.isc_dpb_user_name, %s, %d);\n",
+				   s2, s1, db->dbb_r_user, (strlen(db->dbb_r_user) - 2));
+		if (db->dbb_r_password)
+			printa(column,
+				   "interbase.MODIFY_DPB (%s, %s, interbase.isc_dpb_password, %s, %d);\n",
+				   s2, s1, db->dbb_r_password,
+				   (strlen(db->dbb_r_password) - 2));
+		/*
+		   ** ===========================================================
+		   ** ==
+		   ** ==   Process Role Name
+		   ** ==
+		   ** ===========================================================
+		 */
+		if (db->dbb_r_sql_role)
+			printa(column,
+				   "interbase.MODIFY_DPB (%s, %s, interbase.isc_dpb_sql_role_name, %s, %d);\n",
+				   s2, s1, db->dbb_r_sql_role,
+				   (strlen(db->dbb_r_sql_role) - 2));
+
+		if (db->dbb_r_lc_messages)
+			printa(column,
+				   "interbase.MODIFY_DPB (%s, %s, interbase.isc_dpb_lc_messages, %s, %d);\n",
+				   s2, s1, db->dbb_r_lc_messages,
+				   (strlen(db->dbb_r_lc_messages) - 2));
+		if (db->dbb_r_lc_ctype)
+			printa(column,
+				   "interbase.MODIFY_DPB (%s, %s, interbase.isc_dpb_lc_ctype, %s, %d);\n",
+				   s2, s1, db->dbb_r_lc_ctype,
+				   (strlen(db->dbb_r_lc_ctype) - 2));
+
+	}
+	else
+		sprintf(s2, "isc_to_dpb_ptr (isc_%d'address)", request->req_ident);
+
+	if (request->req_length)
+		printa(column,
+			   "interbase.CREATE_DATABASE (%s %d, \"%s\", %s%s, %s, %s, 0);",
+			   status_vector(action),
+			   strlen(db->dbb_filename),
+			   db->dbb_filename,
+			   ada_package, db->dbb_name->sym_string, s1, s2);
+	else
+		printa(column,
+			   "interbase.CREATE_DATABASE (%s %d, \"%s\", %s%s, 0, interbase.null_dpb, 0);",
+			   status_vector(action),
+			   strlen(db->dbb_filename),
+			   db->dbb_filename, ada_package, db->dbb_name->sym_string);
+
+	if (request && request->req_flags & REQ_extend_dpb) {
+		if (request->req_length)
+			printa(column, "if (%s != isc_%d)", s2, request->req_ident);
+		printa(column + (request->req_length ? 4 : 0),
+			   "interbase.FREE (%s);", s2);
+
+		/* reset the length of the dpb */
+		if (request->req_length)
+			printa(column, "%s = %d;", s1, request->req_length);
+	}
+
+	printa(column, "if %sisc_status(1) = 0 then", ada_package);
+	column += INDENT;
+	save_sw_auto = sw_auto;
+	sw_auto = (USHORT) TRUE;
+	gen_ddl(action, column);
+	sw_auto = save_sw_auto;
+	column -= INDENT;
+	printa(column, "else");
+	column += INDENT;
+	SET_SQLCODE;
+	column -= INDENT;
+	printa(column, "end if;");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STREAM.
+//  
+
+static gen_cursor_close( ACT action, REQ request, int column)
+{
+
+	return column;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to initialize a cursor.
+//  
+
+static gen_cursor_init( ACT action, int column)
+{
+
+//  If blobs are present, zero out all of the blob handles.  After this
+//int, the handles are the user's responsibility 
+
+	if (action->act_request->
+		req_flags & (REQ_sql_blob_open | REQ_sql_blob_create)) printa(column,
+																	  "gds_%d := 0;",
+																	  action->
+																	  act_request->
+																	  req_blobs->
+																	  blb_ident);
+}
+
+//____________________________________________________________
+//  
+//		Generate text to open an embedded SQL cursor.
+//  
+
+static gen_cursor_open( ACT action, REQ request, int column)
+{
+
+	return column;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insertion text for the database statement,
+//		including the definitions of all requests, and blob
+//		and port declarations for requests in the main routine.
+//  
+
+static gen_database( ACT action, int column)
+{
+	DBB db;
+	REQ request;
+	POR port;
+	BLB blob;
+	USHORT count;
+	SSHORT blob_subtype;
+	USHORT event_count, max_count;
+	FORM form;
+	LLS stack_ptr;
+	TPB tpb;
+	REF reference;
+	FLD field;
+	BOOLEAN array_flag;
+
+	if (first_flag++ != 0)
+		return;
+
+	ib_fprintf(out_file, "\n----- GPRE Preprocessor Definitions -----\n");
+
+	for (request = requests; request; request = request->req_next) {
+		if (request->req_flags & REQ_local)
+			continue;
+		for (port = request->req_ports; port; port = port->por_next)
+			make_port(port, column);
+	}
+	ib_fprintf(out_file, "\n");
+
+	for (db = isc_databases; db; db = db->dbb_next)
+		for (form = db->dbb_forms; form; form = form->form_next)
+			printa(column, "%s\t: interbase.form_handle := 0;\t-- form %s --",
+				   form->form_handle, form->form_name->sym_string);
+
+	for (request = requests; request; request = request->req_routine) {
+		if (request->req_flags & REQ_local)
+			continue;
+		for (port = request->req_ports; port; port = port->por_next)
+			printa(column, "isc_%d\t: isc_%dt;\t\t\t-- message --",
+				   port->por_ident, port->por_ident);
+
+		for (blob = request->req_blobs; blob; blob = blob->blb_next) {
+			printa(column,
+				   "isc_%d\t: interbase.blob_handle;\t-- blob handle --",
+				   blob->blb_ident);
+			if (!(blob_subtype = blob->blb_const_to_type))
+				if (reference = blob->blb_reference)
+					if (field = reference->ref_field)
+						blob_subtype = field->fld_sub_type;
+			if (blob_subtype != 0 && blob_subtype != 1)
+				printa(column,
+					   "isc_%d\t: %s (1 .. %d);\t\t-- blob segment --",
+					   blob->blb_buff_ident, BYTE_VECTOR_DCL,
+					   blob->blb_seg_length);
+			else
+				printa(column,
+					   "isc_%d\t: string (1 .. %d);\t\t-- blob segment --",
+					   blob->blb_buff_ident, blob->blb_seg_length);
+			printa(column, "isc_%d\t: %s;\t\t-- segment length --",
+				   blob->blb_len_ident, USHORT_DCL);
+		}
+	}
+
+//  generate event parameter block for each event in module 
+
+	max_count = 0;
+	for (stack_ptr = events; stack_ptr; stack_ptr = stack_ptr->lls_next) {
+		event_count = gen_event_block(stack_ptr->lls_object);
+		max_count = MAX(event_count, max_count);
+	}
+
+	if (max_count)
+		printa(column, "isc_events: %s(1..%d);\t-- event vector --",
+			   EVENT_LIST_DCL, max_count);
+
+	for (request = requests; request; request = request->req_next) {
+		gen_request(request, column);
+
+		/*  Array declarations  */
+		if (port = request->req_primary)
+			for (reference = port->por_references; reference;
+				 reference =
+				 reference->ref_next) if (reference->
+										  ref_flags & REF_fetch_array) {
+					make_array_declaration(reference, column);
+					array_flag = TRUE;
+				}
+	}
+	if (array_flag) {
+		printa(column, "isc_array_length\t: %s;\t-- slice return value --",
+			   LONG_DCL);
+		printa(column,
+			   "isc_null_vector_l\t: %s (1..1);\t-- null long vector --",
+			   LONG_VECTOR_DCL);
+	}
+
+	printa(column,
+		   "isc_null_bpb\t: interbase.blr (1..1);\t-- null blob parameter block --");
+
+	if (!ada_package[0])
+		printa(column,
+			   "gds_trans\t: interbase.transaction_handle := 0;\t-- default transaction --");
+	printa(column,
+		   "isc_status\t: interbase.status_vector;\t-- status vector --");
+	printa(column,
+		   "isc_status2\t: interbase.status_vector;\t-- status vector --");
+	printa(column, "SQLCODE\t: %s := 0;\t\t\t-- SQL status code --",
+		   LONG_DCL);
+	if (sw_pyxis && ((sw_window_scope != DBB_EXTERN) || !ada_package[0])) {
+		printa(column,
+			   "isc_window\t: interbase.window_handle := 0;\t-- window handle --");
+		printa(column, "isc_width\t: %s := 80;\t-- window width --",
+			   USHORT_DCL);
+		printa(column, "isc_height\t: %s := 24;\t-- window height --",
+			   USHORT_DCL);
+	}
+
+	if (!ada_package[0])
+		for (db = isc_databases; db; db = db->dbb_next)
+			printa(column,
+				   "%s\t\t: interbase.database_handle%s;-- database handle --",
+				   db->dbb_name->sym_string,
+				   (db->dbb_scope == DBB_EXTERN) ? "" : " := 0");
+
+	printa(column, " ");
+
+	count = 0;
+	for (db = isc_databases; db; db = db->dbb_next) {
+		count++;
+		for (tpb = db->dbb_tpbs; tpb; tpb = tpb->tpb_dbb_next)
+			gen_tpb(tpb, column + INDENT);
+	}
+
+	printa(column,
+		   "isc_teb\t: array (1..%d) of interbase.isc_teb_t;\t-- transaction vector ",
+		   count);
+
+	printa(column, "----- end of GPRE definitions ");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to update metadata.
+//  
+
+static gen_ddl( ACT action, int column)
+{
+	REQ request;
+
+//  Set up command type for call to RDB$DDL 
+
+	request = action->act_request;
+
+//  Generate a call to RDB$DDL to perform action 
+
+	if (sw_auto) {
+		t_start_auto(action, 0, status_vector(action), column, TRUE);
+		printa(column, "if %sgds_trans /= 0 then", ada_package);
+		column += INDENT;
+	}
+
+	printa(column, "interbase.DDL (%s %s%s, %s%s, %d, isc_%d'address);",
+		   status_vector(action),
+		   ada_package, request->req_database->dbb_name->sym_string,
+		   ada_package, request->req_trans,
+		   request->req_length, request->req_ident);
+
+	if (sw_auto) {
+		printa(column, "if %sisc_status(1) = 0 then", ada_package);
+		printa(column + INDENT,
+			   "interbase.commit_TRANSACTION (%s %sgds_trans);",
+			   status_vector(action), ada_package);
+		printa(column, "else", ada_package);
+		printa(column + INDENT,
+			   "interbase.rollback_TRANSACTION (%sgds_trans);", ada_package);
+		ENDIF;
+		column -= INDENT;
+		ENDIF;
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to create a database.
+//  
+
+static gen_drop_database( ACT action, int column)
+{
+	REQ request;
+	DBB db;
+
+	db = (DBB) action->act_object;
+	request = action->act_request;
+
+	printa(column,
+		   "interbase.DROP_DATABASE (%s %d, \"%s\", RDBK_DB_TYPE_GDS);",
+		   status_vector(action), strlen(db->dbb_filename), db->dbb_filename);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_close( ACT action, int column)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "interbase.embed_dsql_close (%s %s);",
+		   status_vector(action), make_name(s, statement->dyn_cursor_name));
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_declare( ACT action, int column)
+{
+	DYN statement;
+	TEXT s1[64], s2[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "interbase.embed_dsql_declare (%s %s, %s);",
+		   status_vector(action),
+		   make_name(s1, statement->dyn_statement_name),
+		   make_name(s2, statement->dyn_cursor_name));
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_describe( ACT action, int column, BOOLEAN input_flag)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "interbase.embed_dsql_describe%s (%s %s, %d, %s'address);",
+		   input_flag ? "_bind" : "",
+		   status_vector(action),
+		   make_name(s, statement->dyn_statement_name),
+		   sw_sql_dialect, statement->dyn_sqlda);
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_execute( ACT action, int column)
+{
+	DYN statement;
+	TEXT *transaction, s[64];
+	struct req *request, req_const;
+	int i;
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = "gds_trans";
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		t_start_auto(action, request, status_vector(action), column, TRUE);
+		printa(column, "if %s%s /= 0 then", ada_package, transaction);
+		column += INDENT;
+	}
+
+	if (statement->dyn_sqlda2)
+		printa(column,
+			   "interbase.embed_dsql_execute2 (isc_status, %s%s, %s, %d, %s'address);",
+			   ada_package, transaction,
+			   make_name(s, statement->dyn_statement_name),
+			   sw_sql_dialect,
+			   (statement->dyn_sqlda) ? ada_null_address : statement->
+			   dyn_sqlda, statement->dyn_sqlda2);
+	else if (statement->dyn_sqlda)
+		printa(column,
+			   "interbase.embed_dsql_execute (isc_status, %s%s, %s, %d, %s'address);",
+			   ada_package, transaction, make_name(s,
+												   statement->
+												   dyn_statement_name),
+			   sw_sql_dialect, statement->dyn_sqlda);
+	else
+		printa(column,
+			   "interbase.embed_dsql_execute (isc_status, %s%s, %s, %d);",
+			   ada_package, transaction, make_name(s,
+												   statement->
+												   dyn_statement_name),
+			   sw_sql_dialect);
+
+	if (sw_auto) {
+		column -= INDENT;
+		ENDIF;
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_fetch( ACT action, int column)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_sqlda)
+		printa(column,
+			   "interbase.embed_dsql_fetch (isc_status, SQLCODE, %s, %d, %s'address);",
+			   make_name(s, statement->dyn_cursor_name),
+			   sw_sql_dialect, statement->dyn_sqlda);
+	else
+		printa(column,
+			   "interbase.embed_dsql_fetch (isc_status, SQLCODE, %s, %d);",
+			   make_name(s, statement->dyn_cursor_name), sw_sql_dialect);
+
+	printa(column, "if SQLCODE /= 100 then");
+	printa(column + INDENT, "SQLCODE := interbase.sqlcode (isc_status);");
+	ENDIF;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for an EXECUTE IMMEDIATE dynamic SQL statement.
+//  
+
+static gen_dyn_immediate( ACT action, int column)
+{
+	DYN statement;
+	DBB database;
+	TEXT *transaction, s[64];
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = "gds_trans";
+		request = NULL;
+	}
+
+	database = statement->dyn_database;
+
+	if (sw_auto) {
+		t_start_auto(action, request, status_vector(action), column, TRUE);
+		printa(column, "if %s%s /= 0 then", ada_package, transaction);
+		column += INDENT;
+	}
+
+	printa(column,
+		   "interbase.embed_dsql_execute_immed (isc_status, %s%s, %s%s, %s'length(1), %s, %d);",
+		   ada_package, database->dbb_name->sym_string,
+		   ada_package, transaction,
+		   statement->dyn_string, statement->dyn_string, sw_sql_dialect);
+
+	if (sw_auto) {
+		column -= INDENT;
+		ENDIF;
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_insert( ACT action, int column)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_sqlda)
+		printa(column,
+			   "interbase.embed_dsql_insert (isc_status, %s, %d, %s'address);",
+			   make_name(s, statement->dyn_cursor_name),
+			   sw_sql_dialect, statement->dyn_sqlda);
+	else
+		printa(column,
+			   "interbase.embed_dsql_insert (isc_status, %s, %d);",
+			   make_name(s, statement->dyn_cursor_name), sw_sql_dialect);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_open( ACT action, int column)
+{
+	DYN statement;
+	TEXT *transaction, s[64];
+	struct req *request, req_const;
+	int i;
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = "gds_trans";
+		request = NULL;
+	}
+
+	make_name(s, statement->dyn_cursor_name);
+
+	if (sw_auto) {
+		t_start_auto(action, request, status_vector(action), column, TRUE);
+		printa(column, "if %s%s /= 0 then", ada_package, transaction);
+		column += INDENT;
+	}
+
+	if (statement->dyn_sqlda)
+		printa(column,
+			   "interbase.embed_dsql_open (isc_status, %s%s, %s, %d, %s'address);",
+			   ada_package, transaction,
+			   s, sw_sql_dialect, statement->dyn_sqlda);
+	else
+		printa(column,
+			   "interbase.embed_dsql_open (isc_status, %s%s, %s, %d);",
+			   ada_package, transaction, s, sw_sql_dialect);
+
+	if (sw_auto) {
+		column -= INDENT;
+		ENDIF;
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_prepare( ACT action, int column)
+{
+	DYN statement;
+	DBB database;
+	TEXT *transaction, s[64];
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	database = statement->dyn_database;
+
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = "gds_trans";
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		t_start_auto(action, request, status_vector(action), column, TRUE);
+		printa(column, "if %s%s /= 0 then", ada_package, transaction);
+		column += INDENT;
+	}
+
+	if (statement->dyn_sqlda)
+		printa(column,
+			   "interbase.embed_dsql_prepare (isc_status, %s%s, %s%s, %s, %s'length(1), %s, %d, %s'address);",
+			   ada_package, database->dbb_name->sym_string, ada_package,
+			   transaction, make_name(s, statement->dyn_statement_name),
+			   statement->dyn_string, statement->dyn_string, sw_sql_dialect,
+			   statement->dyn_sqlda);
+	else
+		printa(column,
+			   "interbase.embed_dsql_prepare (isc_status, %s%s, %s%s, %s, %s'length(1), %s, %d);",
+			   ada_package, database->dbb_name->sym_string, ada_package,
+			   transaction, make_name(s, statement->dyn_statement_name),
+			   statement->dyn_string, statement->dyn_string, sw_sql_dialect);
+
+	if (sw_auto) {
+		column -= INDENT;
+		ENDIF;
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_MODIFY.
+//  
+
+static gen_emodify( ACT action, int column)
+{
+	UPD modify;
+	REF reference, source;
+	FLD field;
+	TEXT s1[20], s2[20];
+
+	modify = (UPD) action->act_object;
+
+	for (reference = modify->upd_port->por_references; reference;
+		 reference = reference->ref_next) {
+		if (!(source = reference->ref_source))
+			continue;
+		field = reference->ref_field;
+		printa(column, "%s := %s;",
+			   gen_name(s1, reference, TRUE), gen_name(s2, source, TRUE));
+		if (field->fld_array_info)
+			gen_get_or_put_slice(action, reference, FALSE, column);
+	}
+
+	gen_send(action, modify->upd_port, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STORE.
+//  
+
+static gen_estore( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+
+//  if we did a store ... returning_values aka store2
+//  just wrap up any dangling error handling 
+	if (request->req_type == REQ_store2) {
+		if (action->act_error)
+			ENDIF;
+		return;
+	}
+
+	gen_start(action, request->req_primary, column);
+	if (action->act_error)
+		ENDIF;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  
+
+static gen_endfor( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+
+	if (request->req_sync)
+		gen_send(action, request->req_sync, column + INDENT);
+
+	printa(column, "end loop;");
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		ENDIF;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for ERASE.
+//  
+
+static gen_erase( ACT action, int column)
+{
+	UPD erase;
+
+	erase = (UPD) action->act_object;
+	gen_send(action, erase->upd_port, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate event parameter blocks for use
+//		with a particular call to isc_event_wait.
+//		For languages too dim to deal with variable
+//		arg lists, set up a vector for the event names.
+//  
+
+static SSHORT gen_event_block( ACT action)
+{
+	NOD init, list;
+	SYM event_name;
+	PAT args;
+	int ident;
+
+	init = (NOD) action->act_object;
+	event_name = (SYM) init->nod_arg[0];
+
+	ident = CMP_next_ident();
+	init->nod_arg[2] = (NOD) ident;
+	list = init->nod_arg[1];
+
+	printa(0, "isc_%da\t\t: system.address;\t\t-- event parameter block --\n",
+		   ident);
+	printa(0,
+		   "isc_%db\t\t: system.address;\t\t-- result parameter block --\n",
+		   ident);
+	printa(0, "isc_%dc\t\t: %s;\t\t-- count of events --\n", ident,
+		   USHORT_DCL);
+	printa(0, "isc_%dl\t\t: %s;\t\t-- length of event parameter block --\n",
+		   ident, USHORT_DCL);
+	printa(0,
+		   "isc_%dv\t\t: interbase.isc_el_t (1..%d);\t\t-- vector for initialization --\n",
+		   ident, list->nod_count);
+
+	return list->nod_count;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for EVENT_INIT.
+//  
+
+static gen_event_init( ACT action, int column)
+{
+	NOD init, event_list, *ptr, *end, node;
+	REF reference;
+	PAT args;
+	TEXT variable[32];
+	USHORT count;
+	TEXT
+		* pattern1 =
+		"isc_%N1l := interbase.event_block (%RFisc_%N1a'address, %RFisc_%N1b'address, isc_%N1c, %RFisc_%N1v);",
+		*pattern2 =
+		"interbase.event_wait (%V1 %RF%DH, isc_%N1l, isc_%N1a, isc_%N1b);",
+		*pattern3 =
+		"interbase.event_counts (isc_events, isc_%N1l, isc_%N1a, isc_%N1b);";
+
+	if (action->act_error)
+		BEGIN;
+	BEGIN;
+
+	init = (NOD) action->act_object;
+	event_list = init->nod_arg[1];
+
+	args.pat_database = (DBB) init->nod_arg[3];
+	args.pat_vector1 = status_vector(action);
+	args.pat_value1 = (int) init->nod_arg[2];
+
+//  generate call to dynamically generate event blocks 
+
+	for (ptr = event_list->nod_arg, count = 0, end =
+		 ptr + event_list->nod_count; ptr < end; ptr++) {
+		count++;
+		node = *ptr;
+		if (node->nod_type == nod_field) {
+			reference = (REF) node->nod_arg[0];
+			gen_name(variable, reference, TRUE);
+			printa(column, "isc_%dv(%d) := %s'address;",
+				   args.pat_value1, count, variable);
+		}
+		else
+			printa(column, "isc_%dv(%d) := %s'address;",
+				   args.pat_value1, count, node->nod_arg[0]);
+	}
+
+	printa(column, "isc_%dc := %d;", args.pat_value1,
+		   (int) event_list->nod_count);
+	PATTERN_expand(column, pattern1, &args);
+
+//  generate actual call to event_wait 
+
+	PATTERN_expand(column, pattern2, &args);
+
+//  get change in event counts, copying event parameter block for reuse 
+
+	PATTERN_expand(column, pattern3, &args);
+
+	END;
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for EVENT_WAIT.
+//  
+
+static gen_event_wait( ACT action, int column)
+{
+	PAT args;
+	NOD event_init;
+	SYM event_name, stack_name;
+	DBB database;
+	LLS stack_ptr;
+	ACT event_action;
+	int ident;
+	TEXT s[64];
+	TEXT
+		* pattern1 =
+		"interbase.event_wait (%V1 %RF%DH, isc_%N1l, isc_%N1a, isc_%N1b);",
+		*pattern2 =
+		"interbase.event_counts (isc_events, isc_%N1l, isc_%N1a, isc_%N1b);";
+
+	if (action->act_error)
+		BEGIN;
+	BEGIN;
+
+	event_name = (SYM) action->act_object;
+
+//  go through the stack of events, checking to see if the
+//  event has been initialized and getting the event identifier 
+
+	ident = -1;
+	for (stack_ptr = events; stack_ptr; stack_ptr = stack_ptr->lls_next) {
+		event_action = (ACT) stack_ptr->lls_object;
+		event_init = (NOD) event_action->act_object;
+		stack_name = (SYM) event_init->nod_arg[0];
+		if (!strcmp(event_name->sym_string, stack_name->sym_string)) {
+			ident = (int) event_init->nod_arg[2];
+			database = (DBB) event_init->nod_arg[3];
+		}
+	}
+
+	if (ident < 0) {
+		sprintf(s, "event handle \"%s\" not found", event_name->sym_string);
+		return IBERROR(s);
+	}
+
+	args.pat_database = database;
+	args.pat_vector1 = status_vector(action);
+	args.pat_value1 = (int) ident;
+
+//  generate calls to wait on the event and to fill out the events array 
+
+	PATTERN_expand(column, pattern1, &args);
+	PATTERN_expand(column, pattern2, &args);
+
+	END;
+	SET_SQLCODE;
+}
+
+
+
+//____________________________________________________________
+//  
+//		Generate replacement text for the SQL FETCH statement.  The
+//		epilog FETCH statement is handled by GEN_S_FETCH (generate
+//		stream fetch).
+//  
+
+static gen_fetch( ACT action, int column)
+{
+	REQ request;
+	NOD var_list;
+	POR port;
+	REF reference;
+	VAL value;
+	int i;
+	SCHAR s[20], *direction, *offset;
+
+	request = action->act_request;
+
+#ifdef SCROLLABLE_CURSORS
+	if (port = request->req_aport) {
+		/* set up the reference to point to the correct value 
+		   in the linked list of values, and prepare for the 
+		   next FETCH statement if applicable */
+
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) {
+			value = reference->ref_values;
+			reference->ref_value = value->val_value;
+			reference->ref_values = value->val_next;
+		}
+
+		/* find the direction and offset parameters */
+
+		reference = port->por_references;
+		offset = reference->ref_value;
+		reference = reference->ref_next;
+		direction = reference->ref_value;
+
+		/* the direction in which the engine will scroll is sticky, so check to see 
+		   the last direction passed to the engine; if the direction is the same and 
+		   the offset is 1, then there is no need to pass the message; this prevents 
+		   extra packets and allows for batch fetches in either direction */
+
+		printa(column, "if isc_%ddirection MOD 2 /= %s or %s /= 1 then",
+			   request->req_ident, direction, offset);
+		column += INDENT;
+
+		/* assign the direction and offset parameters to the appropriate message, 
+		   then send the message to the engine */
+
+		asgn_from(action, port->por_references, column);
+		gen_send(action, port, column);
+		printa(column, "isc_%ddirection := %s;", request->req_ident,
+			   direction);
+		column -= INDENT;
+		ENDIF;
+
+		printa(column, "if SQLCODE = 0 then");
+		column += INDENT;
+	}
+#endif
+
+	if (request->req_sync) {
+		gen_send(action, request->req_sync, column);
+		printa(column, "if SQLCODE = 0 then");
+		column += INDENT;
+	}
+
+	gen_receive(action, column, request->req_primary);
+	printa(column, "if SQLCODE = 0 then");
+	column += INDENT;
+	printa(column, "if %s /= 0 then", gen_name(s, request->req_eof, TRUE));
+	column += INDENT;
+
+	if (var_list = (NOD) action->act_object) {
+		for (i = 0; i < var_list->nod_count; i++)
+			asgn_to(action, var_list->nod_arg[i], column);
+	}
+	else {						/*  No WITH clause on the FETCH, so no assignments generated;  fix
+								   for bug#940.  mao 6/20/89  */
+		printa(column, "NULL;");
+	}
+
+	column -= INDENT;
+	printa(column, "else");
+	printa(column + INDENT, "SQLCODE := 100;");
+	ENDIF;
+	column -= INDENT;
+	ENDIF;
+	column -= INDENT;
+
+	if (request->req_sync)
+		ENDIF;
+
+#ifdef SCROLLABLE_CURSORS
+	if (port) {
+		column -= INDENT;
+		ENDIF;
+	}
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FINISH.
+//  
+
+static gen_finish( ACT action, int column)
+{
+	DBB db;
+	REQ request;
+	RDY ready;
+
+	db = NULL;
+
+	if (sw_auto || ((action->act_flags & ACT_sql) &&
+					(action->act_type != ACT_disconnect))) {
+		printa(column, "if %sgds_trans /= 0 then", ada_package);
+		printa(column + INDENT, "interbase.%s_TRANSACTION (%s %sgds_trans);",
+			   (action->act_type != ACT_rfinish) ? "COMMIT" : "ROLLBACK",
+			   status_vector(action), ada_package);
+		ENDIF;
+	}
+
+//  the user supplied one or more db_handles 
+
+	for (ready = (RDY) action->act_object; ready; ready = ready->rdy_next) {
+		db = ready->rdy_database;
+		if (action->act_error || (action->act_flags & ACT_sql))
+			printa(column, "if %s%s /= 0 then", ada_package,
+				   db->dbb_name->sym_string);
+		printa(column, "interbase.DETACH_DATABASE (%s %s%s);",
+			   status_vector(action), ada_package, db->dbb_name->sym_string);
+		if (action->act_error || (action->act_flags & ACT_sql))
+			ENDIF;
+	}
+
+//  no hanbdles, so we finish all known databases 
+
+	if (!db) {
+		if (action->act_error || (action->act_flags & ACT_sql))
+			printa(column, "if %sgds_trans = 0 then", ada_package);
+		for (db = isc_databases; db; db = db->dbb_next) {
+			if ((action->act_error || (action->act_flags & ACT_sql))
+				&& (db != isc_databases)) printa(column,
+												 "if %s%s /= 0 and isc_status(1) = 0 then",
+												 ada_package,
+												 db->dbb_name->sym_string);
+			else
+				printa(column, "if %s%s /= 0 then", ada_package,
+					   db->dbb_name->sym_string);
+			column += INDENT;
+			printa(column, "interbase.DETACH_DATABASE (%s %s%s);",
+				   status_vector(action),
+				   ada_package, db->dbb_name->sym_string);
+			for (request = requests; request; request = request->req_next)
+				if (!(request->req_flags & REQ_exp_hand) &&
+					request->req_type != REQ_slice &&
+					request->req_type != REQ_procedure &&
+					request->req_database == db)
+					printa(column, "%s := 0;", request->req_handle);
+			column -= INDENT;
+			ENDIF;
+		}
+		if (action->act_error || (action->act_flags & ACT_sql))
+			ENDIF;
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FOR statement.
+//  
+
+static gen_for( ACT action, int column)
+{
+	POR port;
+	REQ request;
+	TEXT s[20];
+	REF reference;
+
+	gen_s_start(action, column);
+	request = action->act_request;
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(column, "if isc_status(1) = 0 then");
+
+	printa(column, "loop");
+	column += INDENT;
+	gen_receive(action, column, request->req_primary);
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(column, "exit when (%s = 0) or (isc_status(1) /= 0);",
+			   gen_name(s, request->req_eof, TRUE));
+	else
+		printa(column, "exit when %s = 0;",
+			   gen_name(s, request->req_eof, TRUE));
+
+	if (port = action->act_request->req_primary)
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, TRUE, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form interaction.
+//  
+
+static gen_form_display( ACT action, int column)
+{
+	FINT display;
+	REQ request;
+	REF reference, master;
+	POR port;
+	DBB dbb;
+	USHORT value;
+	TEXT s[32], out[16];
+	int code;
+
+	display = (FINT) action->act_object;
+	request = display->fint_request;
+	dbb = request->req_database;
+	port = request->req_ports;
+
+//  Initialize field options 
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next)
+			if ((master = reference->ref_master) &&
+				(code = CMP_display_code(display, master)) >= 0)
+			printa(column, "%s := %d;", gen_name(s, reference, TRUE), code);
+
+	if (display->fint_flags & FINT_no_wait)
+		strcpy(out, "0");
+	else
+		sprintf(out, "isc_%d", port->por_ident);
+
+	printa(column,
+		   "interbase.drive_form (%s %s%s, %s%s, %sisc_window, %s, isc_%d'address, %s'address)",
+		   status_vector(action), ada_package, dbb->dbb_name->sym_string,
+		   ada_package, request->req_trans, ADA_WINDOW_PACKAGE,
+		   request->req_handle, port->por_ident, out);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form block.
+//  
+
+static gen_form_end( ACT action, int column)
+{
+	REQ request;
+	FORM form;
+	TEXT *status;
+	DBB dbb;
+
+	request = action->act_request;
+	printa(column, "interbase.pop_window (%sisc_window)", ADA_WINDOW_PACKAGE);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form block.
+//  
+
+static gen_form_for( ACT action, int column)
+{
+	REQ request;
+	FORM form;
+	TEXT *status;
+	DBB dbb;
+	int indent;
+
+	indent = column + INDENT;
+	request = action->act_request;
+	form = request->req_form;
+	dbb = request->req_database;
+	status = status_vector(action);
+
+//  Get database attach and transaction started 
+
+	if (sw_auto)
+		t_start_auto(action, 0, status_vector(action), indent, TRUE);
+
+//  Get form loaded first 
+
+	printa(column, "if %s = 0 then", request->req_form_handle);
+	printa(column, "interbase.load_form (%s %s%s, %s%s, %s, %d, \"%s\");",
+		   status,
+		   ada_package, dbb->dbb_name->sym_string,
+		   ada_package, request->req_trans,
+		   request->req_form_handle,
+		   strlen(form->form_name->sym_string), form->form_name->sym_string);
+	ENDIF;
+
+//  Get map compiled 
+
+	printa(column, "if %s = 0 then", request->req_handle);
+	printa(indent, "interbase.compile_map (%s %s, %s, %d, isc_%d);",
+		   status,
+		   request->req_form_handle,
+		   request->req_handle, request->req_length, request->req_ident);
+	ENDIF;
+
+//  Reset form to known state 
+
+	printa(column, "interbase.reset_form (%s %s);",
+		   status, request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//       Generate a function for free standing ANY or statistical.
+//  
+
+static int gen_function( ACT function, int column)
+{
+	REQ request;
+	POR port;
+	REF reference;
+	FLD field;
+	ACT action;
+	TEXT *dtype, s[64];
+
+	action = (ACT) function->act_object;
+
+	if (action->act_type != ACT_any) {
+		IBERROR("can't generate function");
+		return;
+	}
+
+	request = action->act_request;
+
+	ib_fprintf(out_file, "static %s_r (request, transaction",
+			   request->req_handle, request->req_handle, request->req_trans);
+
+	if (port = request->req_vport)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next)
+				ib_fprintf(out_file, ", %s",
+						   gen_name(s, reference->ref_source, TRUE));
+	ib_fprintf(out_file,
+			   ")\n    isc_req_handle\trequest;\n    isc_tr_handle\ttransaction;\n",
+			   request->req_handle, request->req_trans);
+
+	if (port)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) {
+			field = reference->ref_field;
+			switch (field->fld_dtype) {
+			case dtype_short:
+				dtype = "short";
+				break;
+
+			case dtype_long:
+				dtype = "long";
+				break;
+
+			case dtype_cstring:
+			case dtype_text:
+				dtype = "char*";
+				break;
+
+			case dtype_quad:
+				dtype = "long";
+				break;
+
+			case dtype_date:
+			case dtype_blob:
+				dtype = "ISC_QUAD";
+				break;
+
+			case dtype_real:
+				dtype = "float";
+				break;
+
+			case dtype_double:
+				dtype = "double";
+				break;
+
+			default:
+				IBERROR("gen_function: unsupported datatype");
+				return;
+			}
+			ib_fprintf(out_file, "    %s\t%s;\n", dtype,
+					   gen_name(s, reference->ref_source, TRUE));
+		}
+
+	ib_fprintf(out_file, "{\n");
+	for (port = request->req_ports; port; port = port->por_next)
+		make_port(port, column);
+
+	ib_fprintf(out_file, "\n\n");
+	gen_s_start(action, 0);
+	gen_receive(action, column, request->req_primary);
+
+	for (port = request->req_ports; port; port = port->por_next)
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, TRUE, column);
+
+	port = request->req_primary;
+	ib_fprintf(out_file, "\nreturn %s;\n}\n",
+			   gen_name(s, port->por_references, TRUE)
+		);
+}
+
+//____________________________________________________________
+//  
+//		Generate a call to isc_get_slice
+//       or isc_put_slice for an array.
+//  
+
+static gen_get_or_put_slice(
+							ACT action,
+							REF reference, BOOLEAN get, int column)
+{
+	PAT args;
+	TEXT s1[25], s2[25], s3[25], s4[25], s5[25];
+	TEXT *pattern1 =
+		"interbase.GET_SLICE (%V1 %RF%DH%RE, %RF%S1%RE, %S2, %N1, %S3, %N2, %S4, %L1, %S5, %S6);";
+	TEXT *pattern2 =
+		"interbase.PUT_SLICE (%V1 %RF%DH%RE, %RF%S1%RE, %S2, %N1, %S3, %N2, %S4, %L1, %S5);";
+
+	if (!(reference->ref_flags & REF_fetch_array))
+		return;
+
+	args.pat_vector1 = status_vector(action);	/* status vector */
+	args.pat_database = action->act_request->req_database;	/* database handle */
+	args.pat_string1 = action->act_request->req_trans;	/* transaction handle */
+
+	gen_name(s1, reference, TRUE);	/* blob handle */
+	args.pat_string2 = s1;
+
+	args.pat_value1 = reference->ref_sdl_length;	/* slice descr. length */
+
+	sprintf(s2, "isc_%d", reference->ref_sdl_ident);	/* slice description */
+	args.pat_string3 = s2;
+
+	args.pat_value2 = 0;		/* parameter length */
+
+	sprintf(s3, "isc_null_vector_l");	/* parameter block init */
+	args.pat_string4 = s3;
+
+	args.pat_long1 = reference->ref_field->fld_array_info->ary_size;
+	/*  slice size */
+	if (action->act_flags & ACT_sql) {
+		sprintf(s4, "%s'address", reference->ref_value);
+	}
+	else {
+		sprintf(s4, "isc_%d'address",
+				reference->ref_field->fld_array_info->ary_ident);
+
+	}
+	args.pat_string5 = s4;		/* array name */
+
+	args.pat_string6 = "isc_array_length";	/* return length */
+
+	if (get)
+		PATTERN_expand(column, pattern1, &args);
+	else
+		PATTERN_expand(column, pattern2, &args);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the code to do a get segment.
+//  
+
+static gen_get_segment( ACT action, int column)
+{
+	BLB blob;
+	REF into;
+
+	if (action->act_flags & ACT_sql)
+		blob = (BLB) action->act_request->req_blobs;
+	else
+		blob = (BLB) action->act_object;
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(column,
+			   "interbase.ISC_GET_SEGMENT (isc_status, isc_%d, isc_%d, %d, isc_%d'address);",
+			   blob->blb_ident,
+			   blob->blb_len_ident,
+			   blob->blb_seg_length, blob->blb_buff_ident);
+	else
+		printa(column,
+			   "interbase.ISC_GET_SEGMENT (isc_status(1), isc_%d, isc_%d, %d, isc_%d'address);",
+			   blob->blb_ident,
+			   blob->blb_len_ident,
+			   blob->blb_seg_length, blob->blb_buff_ident);
+
+	if (action->act_flags & ACT_sql) {
+		into = action->act_object;
+		SET_SQLCODE;
+		printa(column, "if (SQLCODE = 0) or (SQLCODE = 101) then");
+		printa(column + INDENT, "%s := isc_%d;",
+			   into->ref_value, blob->blb_buff_ident);
+		if (into->ref_null_value)
+			printa(column + INDENT, "%s := isc_%d;",
+				   into->ref_null_value, blob->blb_len_ident);
+		ENDIF;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate end of block for PUT_ITEM and FOR_ITEM.
+//  
+
+static gen_item_end( ACT action, int column)
+{
+	ACT org_action;
+	FINT display;
+	REQ request;
+	REF reference, master;
+	POR port;
+	DBB dbb;
+	USHORT value;
+	TEXT s[32], *status, index[16];
+	int code;
+
+	request = action->act_request;
+	if (request->req_type == REQ_menu) {
+		gen_menu_item_end(action, column);
+		return;
+	}
+
+	if (action->act_pair->act_type == ACT_item_for) {
+		column += INDENT;
+		gen_name(index, request->req_index, TRUE);
+		printa(column, "%s := %s + 1;", index, index);
+		printa(column, "end loop");
+		return;
+	}
+
+	dbb = request->req_database;
+	port = request->req_ports;
+
+//  Initialize field options 
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) if (master = reference->ref_master)
+			printa(column, "%s := %d;", gen_name(s, reference, TRUE),
+				   PYXIS__OPT_DISPLAY);
+
+	printa(column,
+		   "interbase.insert_sub_form (%s %s%s, %s%s, %s, isc_%d'address)",
+		   status_vector(action),
+		   ada_package, dbb->dbb_name->sym_string,
+		   ada_package, request->req_trans,
+		   request->req_handle, port->por_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insert text for FOR_ITEM and PUT_ITEM.
+//  
+
+static gen_item_for( ACT action, int column)
+{
+	REQ request, parent;
+	FORM form;
+	TEXT *status, index[30];
+
+	request = action->act_request;
+	if (request->req_type == REQ_menu) {
+		gen_menu_item_for(action, column);
+		return;
+	}
+
+	column += INDENT;
+	form = request->req_form;
+	parent = form->form_parent;
+
+	status = status_vector(action);
+
+//  Get map compiled 
+
+	printa(column, "if %s = 0 then", request->req_handle);
+	printa(column + INDENT,
+		   "interbase.compile_sub_map (%s %s, %s, %d, isc_%d);", status,
+		   parent->req_handle, request->req_handle, request->req_length,
+		   request->req_ident);
+	printa(column, "end if;");
+
+	if (action->act_type != ACT_item_for)
+		return;
+
+//  Build stuff for item loop 
+
+	gen_name(index, request->req_index, TRUE);
+	printa(column, "%s := 1;", index);
+	printa(column, "loop");
+	column += INDENT;
+	printa(column,
+		   "interbase.fetch_sub_form (%s %s%s, %s%s, %s, isc_%d'address);",
+		   status,
+		   ada_package, request->req_database->dbb_name->sym_string,
+		   ada_package, request->req_trans,
+		   request->req_handle, request->req_ports->por_ident);
+	printa(column, "exit when %s = 0;", index);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code to drive a mass update.  Just start a request
+//		and get the result.
+//  
+
+static gen_loop( ACT action, int column)
+{
+	REQ request;
+	POR port;
+	TEXT name[20];
+
+	gen_s_start(action, column);
+	request = action->act_request;
+	port = request->req_primary;
+	printa(column, "if SQLCODE = 0 then");
+	column += INDENT;
+	gen_receive(action, column, port);
+	gen_name(name, port->por_references, TRUE);
+	printa(column, "if (SQLCODE = 0) and (%s = 0) then", name);
+	printa(column + INDENT, "SQLCODE := 100;");
+	ENDIF;
+	column -= INDENT;
+	ENDIF;
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static gen_menu( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	printa(column, "case interbase.menu (%sisc_window, %s, %d, isc_%d) is",
+		   ADA_WINDOW_PACKAGE,
+		   request->req_handle, request->req_length, request->req_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a menu interaction.
+//  
+
+static gen_menu_display( ACT action, int column)
+{
+	MENU menu;
+	REQ request, display_request;
+
+	request = action->act_request;
+	display_request = (REQ) action->act_object;
+
+	menu = NULL;
+
+	for (action = request->req_actions; action; action = action->act_next)
+		if (action->act_type == ACT_menu_for) {
+			menu = (MENU) action->act_object;
+			break;
+		}
+
+	printa(column,
+		   "interbase.drive_menu (%sisc_window, %s, %d, isc_%d, isc_%dl, isc_%d,",
+		   ADA_WINDOW_PACKAGE,
+		   request->req_handle,
+		   display_request->req_length,
+		   display_request->req_ident, menu->menu_title, menu->menu_title);
+
+	printa(column,
+		   "\n\t\t\tisc_%d, isc_%dl, isc_%d, isc_%d);",
+		   menu->menu_terminator,
+		   menu->menu_entree_entree,
+		   menu->menu_entree_entree, menu->menu_entree_value);
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static gen_menu_end( ACT action, int column)
+{
+
+	REQ request;
+
+	request = action->act_request;
+	if (request->req_flags & REQ_menu_for)
+		return;
+
+	printa(column, "when others =>");
+	printa(column + INDENT, "null ;");
+	printa(column, "end case");
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static gen_menu_entree( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+
+	printa(column, "when %d =>", action->act_count);
+}
+
+
+//____________________________________________________________
+//  
+//    Generate code for a reference to a menu or entree attribute.
+//  
+
+static gen_menu_entree_att( ACT action, int column)
+{
+	MENU menu;
+	SSHORT ident, length;
+
+	menu = (MENU) action->act_object;
+
+	length = FALSE;
+	switch (action->act_type) {
+	case ACT_entree_text:
+		ident = menu->menu_entree_entree;
+		break;
+	case ACT_entree_length:
+		ident = menu->menu_entree_entree;
+		length = TRUE;
+		break;
+	case ACT_entree_value:
+		ident = menu->menu_entree_value;
+		break;
+	case ACT_title_text:
+		ident = menu->menu_title;
+		break;
+	case ACT_title_length:
+		ident = menu->menu_title;
+		length = TRUE;
+		break;
+	case ACT_terminator:
+		ident = menu->menu_terminator;
+		break;
+	default:
+		ident = -1;
+		break;
+	}
+
+	if (length)
+		printa(column, "isc_%dl", ident);
+	else
+		printa(column, "isc_%d", ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a menu block.
+//  
+
+static gen_menu_for( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+
+//  Get menu created 
+
+	if (!(request->req_flags & REQ_exp_hand))
+		printa(column, "interbase.initialize_menu (%s);",
+			   request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate end of block for PUT_ITEM and FOR_ITEM
+//		for a dynamic menu.
+//  
+
+static gen_menu_item_end( ACT action, int column)
+{
+	REQ request;
+	ENTREE entree;
+
+	if (action->act_pair->act_type == ACT_item_for) {
+		column += INDENT;
+		printa(column, "end loop");
+		return;
+	}
+
+	entree = (ENTREE) action->act_pair->act_object;
+	request = entree->entree_request;
+
+	align(column);
+	ib_fprintf(out_file,
+			   "interbase.put_entree (%s, isc_%dl, isc_%d, isc_%d);",
+			   request->req_handle,
+			   entree->entree_entree,
+			   entree->entree_entree, entree->entree_value);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insert text for FOR_ITEM and PUT_ITEM
+//		for a dynamic menu.
+//  
+
+static gen_menu_item_for( ACT action, int column)
+{
+	ENTREE entree;
+	REQ request;
+
+	if (action->act_type != ACT_item_for)
+		return;
+
+//  Build stuff for item loop 
+
+	entree = (ENTREE) action->act_object;
+	request = entree->entree_request;
+
+	printa(column, "loop");
+	column += INDENT;
+	align(column);
+	printa(column,
+		   "interbase.get_entree (%s, isc_%dl, isc_%d, isc_%d, isc_%d);",
+		   request->req_handle,
+		   entree->entree_entree,
+		   entree->entree_entree, entree->entree_value, entree->entree_end);
+
+	printa(column, "exit when isc_%d /= 0;", entree->entree_end);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a dynamic menu request.
+//  
+
+static gen_menu_request( REQ request, int column)
+{
+	ACT action;
+	MENU menu;
+	ENTREE entree;
+
+	menu = NULL;
+	entree = NULL;
+
+	for (action = request->req_actions; action; action = action->act_next) {
+		if (action->act_type == ACT_menu_for) {
+			menu = (MENU) action->act_object;
+			break;
+		}
+		else if (action->act_type == ACT_item_for
+				 || action->act_type == ACT_item_put) {
+			entree = (ENTREE) action->act_object;
+			break;
+		}
+	}
+
+	if (menu) {
+		menu->menu_title = CMP_next_ident();
+		menu->menu_terminator = CMP_next_ident();
+		menu->menu_entree_value = CMP_next_ident();
+		menu->menu_entree_entree = CMP_next_ident();
+		printa(column, "isc_%dl\t: %s;\t\t-- TITLE_LENGTH --",
+			   menu->menu_title, USHORT_DCL);
+		printa(column, "isc_%d\t: string (1..81);\t\t-- TITLE_TEXT --",
+			   menu->menu_title);
+		printa(column, "isc_%d\t: %s;\t\t-- TERMINATOR --",
+			   menu->menu_terminator, USHORT_DCL);
+		printa(column, "isc_%dl\t: %s;\t\t-- ENTREE_LENGTH --",
+			   menu->menu_entree_entree, USHORT_DCL);
+		printa(column, "isc_%d\t: string (1..81);\t\t-- ENTREE_TEXT --",
+			   menu->menu_entree_entree);
+		printa(column, "isc_%d\t: %s;\t\t-- ENTREE_VALUE --",
+			   menu->menu_entree_value, LONG_DCL);
+	}
+
+	if (entree) {
+		entree->entree_entree = CMP_next_ident();
+		entree->entree_value = CMP_next_ident();
+		entree->entree_end = CMP_next_ident();
+		printa(column, "isc_%dl\t: %s;\t\t-- ENTREE_LENGTH --",
+			   entree->entree_entree, USHORT_DCL);
+		printa(column, "isc_%d\t: string (1..81);\t\t-- ENTREE_TEXT --",
+			   entree->entree_entree);
+		printa(column, "isc_%d\t: %s;\t\t-- ENTREE_VALUE --",
+			   entree->entree_value, LONG_DCL);
+		printa(column, "isc_%d\t: %s;\t\t-- --",
+			   entree->entree_end, USHORT_DCL);
+	}
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a name for a reference.  Name is constructed from
+//		port and parameter idents.
+//  
+
+static TEXT *gen_name( TEXT * string, REF reference, BOOLEAN as_blob)
+{
+
+	if (reference->ref_field->fld_array_info && !as_blob)
+		sprintf(string, "isc_%d",
+				reference->ref_field->fld_array_info->ary_ident);
+	else
+		sprintf(string, "isc_%d.isc_%d",
+				reference->ref_port->por_ident, reference->ref_ident);
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a block to handle errors.
+//  
+
+static gen_on_error( ACT action, USHORT column)
+{
+	ACT err_action;
+
+	err_action = (ACT) action->act_object;
+	if ((err_action->act_type == ACT_get_segment) ||
+		(err_action->act_type == ACT_put_segment) ||
+		(err_action->act_type == ACT_endblob))
+			printa(column,
+				   "if (isc_status (1) /= 0) and (isc_status(1) /= interbase.isc_segment) and (isc_status(1) /= interbase.isc_segstr_eof) then");
+	else
+		printa(column, "if (isc_status (1) /= 0) then");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for an EXECUTE PROCEDURE.
+//  
+
+static gen_procedure( ACT action, int column)
+{
+	PAT args;
+	TEXT *pattern;
+	REQ request;
+	REF reference;
+	POR in_port, out_port;
+	TEXT *status;
+	DBB dbb;
+
+	request = action->act_request;
+	in_port = request->req_vport;
+	out_port = request->req_primary;
+
+	dbb = request->req_database;
+	args.pat_database = dbb;
+	args.pat_request = action->act_request;
+	args.pat_vector1 = status_vector(action);
+	args.pat_string2 = ada_null_address;
+	args.pat_request = request;
+	args.pat_port = in_port;
+	args.pat_port2 = out_port;
+	if (in_port && in_port->por_length)
+		pattern =
+			"interbase.gds_transact_request (%V1 %RF%DH%RE, %RF%RT%RE, %VF%RS%VE, %RF%RI%RE, %VF%PL%VE, %PI'address, %VF%QL%VE, %QI'address);\n";
+	else
+		pattern =
+			"interbase.gds_transact_request (%V1 %RF%DH%RE, %RF%RT%RE, %VF%RS%VE, %RF%RI%RE, %VF0%VE, %S2, %VF%QL%VE, %QI'address);\n";
+
+
+//  Get database attach and transaction started 
+
+	if (sw_auto)
+		t_start_auto(action, 0, status_vector(action), column, TRUE);
+
+//  Move in input values 
+
+	asgn_from(action, request->req_values, column);
+
+//  Execute the procedure 
+
+	PATTERN_expand(column, pattern, &args);
+
+	SET_SQLCODE;
+
+	printa(column, "if SQLCODE = 0 then");
+
+//  Move out output values 
+
+	asgn_to_proc(request->req_references, column);
+	ENDIF;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the code to do a put segment.
+//  
+
+static gen_put_segment( ACT action, int column)
+{
+	BLB blob;
+	REF from;
+
+	if (action->act_flags & ACT_sql) {
+		blob = (BLB) action->act_request->req_blobs;
+		from = action->act_object;
+		printa(column, "isc_%d := %s;",
+			   blob->blb_len_ident, from->ref_null_value);
+		printa(column, "isc_%d := %s;",
+			   blob->blb_buff_ident, from->ref_value);
+	}
+	else
+		blob = (BLB) action->act_object;
+
+	printa(column,
+		   "interbase.ISC_PUT_SEGMENT (%s isc_%d, isc_%d, isc_%d'address);",
+		   status_vector(action),
+		   blob->blb_ident, blob->blb_len_ident, blob->blb_buff_ident);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate BLR in raw, numeric form.  Ughly but dense.
+//  
+
+static gen_raw(
+			   UCHAR * blr,
+			   enum req_t request_type, int request_length, int column)
+{
+	UCHAR *end;
+	SCHAR c;
+	TEXT buffer[80], *p, *limit;
+
+	p = buffer;
+	limit = buffer + 60;
+
+	for (end = blr + request_length - 1; blr <= end; blr++) {
+		c = *blr;
+		sprintf(p, "%d", c);
+		while (*p)
+			p++;
+		if (blr != end)
+			*p++ = ',';
+		if (p < limit)
+			continue;
+		*p = 0;
+		printa(INDENT, buffer);
+		p = buffer;
+	}
+
+	*p = 0;
+	printa(INDENT, buffer);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for READY
+//  
+
+static gen_ready( ACT action, int column)
+{
+	RDY ready;
+	DBB db;
+	TEXT *filename, *vector;
+
+	vector = status_vector(action);
+
+	for (ready = (RDY) action->act_object; ready; ready = ready->rdy_next) {
+		db = ready->rdy_database;
+		if (!(filename = ready->rdy_filename))
+			filename = db->dbb_runtime;
+		if ((action->act_error || (action->act_flags & ACT_sql)) &&
+			ready != (RDY) action->act_object)
+			printa(column, "if isc_status(1) = 0 then");
+		make_ready(db, filename, vector, column, ready->rdy_request);
+		if ((action->act_error || (action->act_flags & ACT_sql)) &&
+			ready != (RDY) action->act_object)
+			ENDIF;
+	}
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate receive call for a port.
+//  
+
+static gen_receive( ACT action, int column, POR port)
+{
+	REQ request;
+
+	request = action->act_request;
+	printa(column, "interbase.RECEIVE (%s %s, %d, %d, isc_%d'address, %s);",
+		   status_vector(action),
+		   request->req_handle,
+		   port->por_msg_number,
+		   port->por_length, port->por_ident, request->req_request_level);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for RELEASE_REQUESTS
+//       For active databases, call isc_release_request.
+//       for all others, just zero the handle.  For the
+//       release request calls, ignore error returns, which
+//       are likely if the request was compiled on a database
+//       which has been released and re-readied.  If there is
+//       a serious error, it will be caught on the next statement.
+//  
+
+static gen_release( ACT action, int column)
+{
+	DBB db, exp_db;
+	REQ request;
+
+	exp_db = (DBB) action->act_object;
+
+	for (request = requests; request; request = request->req_next) {
+		db = request->req_database;
+		if (exp_db && db != exp_db)
+			continue;
+		if (!(request->req_flags & REQ_exp_hand)) {
+			printa(column, "if %s%s /= 0 then", ada_package,
+				   db->dbb_name->sym_string);
+			printa(column + INDENT,
+				   "interbase.release_request (isc_status, %s);",
+				   request->req_handle);
+			printa(column, "end if;");
+			printa(column, "%s := 0;", request->req_handle);
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  
+
+static gen_request( REQ request, int column)
+{
+	ACT action;
+	UPD modify;
+	REF reference;
+	BLB blob;
+	POR port;
+	SSHORT length;
+	TEXT *string_type;
+
+//  generate request handle, blob handles, and ports 
+
+	if (!(request->req_flags &
+		  (REQ_exp_hand | REQ_menu_for_item | REQ_sql_blob_open |
+		   REQ_sql_blob_create)) &&
+		request->req_type != REQ_slice && request->req_type != REQ_procedure) {
+		if (request->req_type == REQ_menu)
+			printa(column,
+				   "%s\t: interbase.menu_handle := 0;-- menu handle --",
+				   request->req_handle);
+		else if (request->req_type == REQ_form)
+			printa(column, "%s\t: interbase.map_handle := 0;-- map handle --",
+				   request->req_handle);
+		else
+			printa(column,
+				   "%s\t: interbase.request_handle := 0;-- request handle --",
+				   request->req_handle);
+	}
+
+	if (request->req_flags & (REQ_sql_blob_open | REQ_sql_blob_create))
+		printa(column, "isc_%do\t: %s;\t\t-- SQL CURSOR FLAG --",
+			   request->req_ident, SHORT_DCL);
+
+//  check the case where we need to extend the dpb dynamically at runtime,
+//  in which case we need dpb length and a pointer to be defined even if 
+//  there is no static dpb defined 
+
+	if (request->req_flags & REQ_extend_dpb) {
+		printa(column,
+			   "isc_%dp\t: interbase.dpb_ptr := 0;\t-- db parameter block --",
+			   request->req_ident);
+		if (!request->req_length)
+			printa(column,
+				   "isc_%dl\t: interbase.isc_ushort := 0;\t-- db parameter block --",
+				   request->req_ident);
+	}
+
+//  generate actual BLR string 
+
+	if (request->req_length) {
+		length = request->req_length;
+		switch (request->req_type) {
+		case REQ_create_database:
+			if (ada_flags & ADA_create_database) {
+				printa(column,
+					   "function isc_to_dpb_ptr is new unchecked_conversion (system.address, interbase.dpb_ptr);");
+				ada_flags &= ~ADA_create_database;
+			}
+			/* fall into ... */
+		case REQ_ready:
+			printa(column,
+				   "isc_%dl\t: interbase.isc_ushort := %d;\t-- db parameter block --",
+				   request->req_ident, length);
+			printa(column, "isc_%d\t: CONSTANT interbase.dpb (1..%d) := (",
+				   request->req_ident, length);
+			break;
+
+		default:
+			if (request->req_flags & REQ_sql_cursor)
+				printa(column, "isc_%do\t: %s;\t\t-- SQL CURSOR FLAG --",
+					   request->req_ident, SHORT_DCL);
+#ifdef SCROLLABLE_CURSORS
+			if (request->req_flags & REQ_scroll)
+				printa(column,
+					   "isc_%ddirection\t: interbase.isc_ushort := 0;\t-- last direction sent to engine --",
+					   request->req_ident);
+#endif
+			printa(column, "isc_%d\t: CONSTANT interbase.blr (1..%d) := (",
+				   request->req_ident, length);
+		}
+		gen_raw(request->req_blr, request->req_type, request->req_length,
+				column);
+		printa(column, ");\n");
+		if (!sw_raw) {
+			printa(column, "---");
+			printa(column, "--- FORMATTED REQUEST BLR FOR GDS_%d = \n",
+				   request->req_ident);
+			switch (request->req_type) {
+			case REQ_create_database:
+			case REQ_ready:
+				string_type = "DPB";
+				if (PRETTY_print_cdb(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during parameter generation");
+				break;
+
+			case REQ_ddl:
+				string_type = "DYN";
+				if (PRETTY_print_dyn(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during dynamic DDL generation");
+				break;
+
+			case REQ_form:
+				string_type = "form map";
+				if (PRETTY_print_form_map(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during form map generation");
+				break;
+
+			case REQ_menu:
+				string_type = "menu";
+				if (PRETTY_print_menu(request->req_blr, gen_blr, 0, 1))
+					IBERROR("internal error during menu generation");
+				break;
+
+			case REQ_slice:
+				string_type = "SDL";
+				if (PRETTY_print_sdl(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during SDL generation");
+				break;
+
+			default:
+				string_type = "BLR";
+				if (isc_print_blr(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during BLR generation");
+			}
+		}
+		else {
+			switch (request->req_type) {
+			case REQ_create_database:
+			case REQ_ready:
+				string_type = "DPB";
+				break;
+
+			case REQ_ddl:
+				string_type = "DYN";
+				break;
+
+			case REQ_form:
+				string_type = "form map";
+				break;
+
+			case REQ_menu:
+				string_type = "menu";
+				break;
+
+			case REQ_slice:
+				string_type = "SDL";
+				break;
+
+			default:
+				string_type = "BLR";
+			}
+		}
+		printa(column, "\t-- end of %s string for request isc_%d --\n",
+			   string_type, request->req_ident, request->req_length);
+	}
+
+//   Print out slice description language if there are arrays associated with request  
+	for (port = request->req_ports; port; port = port->por_next)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) if (reference->ref_sdl) {
+				printa(column,
+					   "isc_%d\t: CONSTANT interbase.blr (1..%d) := (",
+					   reference->ref_sdl_ident, reference->ref_sdl_length);
+				gen_raw(reference->ref_sdl, REQ_slice,
+						reference->ref_sdl_length, column);
+				printa(column, "); \t--- end of SDL string for isc_%d\n",
+					   reference->ref_sdl_ident);
+				if (!sw_raw) {
+					printa(column, "---");
+					printa(column,
+						   "--- FORMATTED REQUEST SDL FOR GDS_%d = \n",
+						   reference->ref_sdl_ident);
+					if (PRETTY_print_sdl(reference->ref_sdl, gen_blr, 0, 1))
+						IBERROR("internal error during SDL generation");
+				}
+			}
+
+//  Print out any blob parameter blocks required 
+
+	for (blob = request->req_blobs; blob; blob = blob->blb_next)
+		if (blob->blb_bpb_length) {
+			printa(column, "isc_%d\t: CONSTANT interbase.blr (1..%d) := (",
+				   blob->blb_bpb_ident, blob->blb_bpb_length);
+			gen_raw(blob->blb_bpb, request->req_type, blob->blb_bpb_length,
+					column);
+			printa(INDENT, ");\n");
+		}
+
+	if (request->req_type == REQ_menu)
+		gen_menu_request(request, column);
+
+//  If this is a GET_SLICE/PUT_slice, allocate some variables 
+
+	if (request->req_type == REQ_slice) {
+		printa(INDENT, "isc_%ds\t: %s;\t\t", request->req_ident, LONG_DCL);
+		printa(INDENT, "isc_%dv: %s (1..%d);", request->req_ident,
+			   LONG_VECTOR_DCL, MAX(request->req_slice->slc_parameters, 1));
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate receive call for a port
+//		in a store2 statement.
+//  
+
+static gen_return_value( ACT action, int column)
+{
+	UPD update;
+	REF reference;
+	REQ request;
+
+	request = action->act_request;
+	if (action->act_pair->act_error)
+		column += INDENT;
+	align(column);
+
+	gen_start(action, request->req_primary, column);
+	update = (UPD) action->act_object;
+	reference = update->upd_references;
+	gen_receive(action, column, reference->ref_port);
+}
+
+
+//____________________________________________________________
+//  
+//		Process routine head.  If there are requests in the
+//		routine, insert local definitions.
+//  
+
+static gen_routine( ACT action, int column)
+{
+	BLB blob;
+	REQ request;
+	POR port;
+	SSHORT blob_subtype;
+	REF reference;
+	FLD field;
+
+	column += INDENT;
+
+	for (request = (REQ) action->act_object; request;
+		 request = request->req_routine) {
+		for (port = request->req_ports; port; port = port->por_next)
+			make_port(port, column);
+		for (port = request->req_ports; port; port = port->por_next)
+			printa(column, "isc_%d\t: isc_%dt;\t\t\t-- message --",
+				   port->por_ident, port->por_ident);
+
+		for (blob = request->req_blobs; blob; blob = blob->blb_next) {
+			printa(column,
+				   "isc_%d\t: interbase.blob_handle;\t-- blob handle --",
+				   blob->blb_ident);
+			if (!(blob_subtype = blob->blb_const_to_type))
+				if (reference = blob->blb_reference)
+					if (field = reference->ref_field)
+						blob_subtype = field->fld_sub_type;
+			if (blob_subtype != 0 && blob_subtype != 1)
+				printa(column, "isc_%d\t: %s (1..%d);\t-- blob segment --",
+					   blob->blb_buff_ident, BYTE_VECTOR_DCL,
+					   blob->blb_seg_length);
+			else
+				printa(column,
+					   "isc_%d\t: string (1..%d);\t-- blob segment --",
+					   blob->blb_buff_ident, blob->blb_seg_length);
+			printa(column, "isc_%d\t: %s;\t\t\t-- segment length --",
+				   blob->blb_len_ident, USHORT_DCL);
+		}
+	}
+	column -= INDENT;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STREAM.
+//  
+
+static gen_s_end( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+
+	if (action->act_type == ACT_close) {
+		make_cursor_open_test(ACT_close, request, column);
+		column += INDENT;
+	}
+
+	printa(column, "interbase.UNWIND_REQUEST (%s %s, %s);",
+		   status_vector(action),
+		   request->req_handle, request->req_request_level);
+
+	SET_SQLCODE;
+
+	if (action->act_type == ACT_close) {
+		printa(column, "if (SQLCODE = 0) then");
+		printa(column + INDENT, "isc_%do := 0;", request->req_ident);
+		ENDIF;
+		column -= INDENT;
+		ENDIF;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FETCH.
+//  
+
+static gen_s_fetch( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	if (request->req_sync)
+		gen_send(action, request->req_sync, column);
+
+	gen_receive(action, column, request->req_primary);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile and start a stream.  This is
+//		used both by START_STREAM and FOR
+//  
+
+static gen_s_start( ACT action, int column)
+{
+	REQ request;
+	POR port;
+
+	request = action->act_request;
+
+	if ((action->act_type == ACT_open)) {
+		make_cursor_open_test(ACT_open, request, column);
+		column += INDENT;
+	}
+
+	gen_compile(action, column);
+
+	if (port = request->req_vport)
+		asgn_from(action, port->por_references, column);
+
+	if (action->act_error || (action->act_flags & ACT_sql)) {
+		make_ok_test(action, request, column);
+		gen_start(action, port, column + INDENT);
+		ENDIF;
+	}
+	else
+		gen_start(action, port, column);
+
+	if (action->act_type == ACT_open) {
+		printa(column, "if (SQLCODE = 0) then");
+		printa(column + INDENT, "isc_%do := 1;", request->req_ident);
+		ENDIF;
+		column -= INDENT;
+		ENDIF;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a segment, segment length, or blob handle.
+//  
+
+static gen_segment( ACT action, int column)
+{
+	BLB blob;
+
+	blob = (BLB) action->act_object;
+
+	printa(column, "isc_%d",
+		   (action->act_type == ACT_segment) ? blob->blb_buff_ident :
+		   (action->act_type == ACT_segment_length) ? blob->blb_len_ident :
+		   blob->blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for standalone SELECT statement.
+//  
+
+static gen_select( ACT action, int column)
+{
+	REQ request;
+	POR port;
+	NOD var_list;
+	int i;
+	TEXT name[20];
+
+	request = action->act_request;
+	port = request->req_primary;
+	gen_name(name, request->req_eof, TRUE);
+
+	gen_s_start(action, column);
+	gen_receive(action, column, port);
+	printa(column, "if SQLCODE = 0 then", name);
+	column += INDENT;
+	printa(column, "if %s /= 0 then", name);
+	column += INDENT;
+
+	if (var_list = (NOD) action->act_object)
+		for (i = 0; i < var_list->nod_count; i++)
+			asgn_to(action, var_list->nod_arg[i], column);
+	if (request->req_database->dbb_flags & DBB_v3) {
+		gen_receive(action, column, port);
+		printa(column, "if (SQLCODE = 0) AND (%s /= 0) then", name);
+		printa(column + INDENT, "SQLCODE := -1;");
+		ENDIF;
+	}
+
+	printa(column - INDENT, "else");
+	printa(column, "SQLCODE := 100;");
+	column -= INDENT;
+	ENDIF;
+	column -= INDENT;
+	ENDIF;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a send or receive call for a port.
+//  
+
+static gen_send( ACT action, POR port, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	printa(column, "interbase.SEND (%s %s, %d, %d, isc_%d'address, %s);",
+		   status_vector(action),
+		   request->req_handle,
+		   port->por_msg_number,
+		   port->por_length, port->por_ident, request->req_request_level);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate support for get/put slice statement.
+//  
+
+static gen_slice( ACT action, int column)
+{
+	REQ request, parent_request;
+	REF reference, upper, lower;
+	SLC slice;
+	PAT args;
+	struct slc_repeat *tail, *end;
+	TEXT *pattern1 =
+		"interbase.GET_SLICE (%V1 %RF%DH%RE, %RF%RT%RE, %RF%FR%RE, %N1, \
+%I1, %N2, %I1v, %I1s, %RF%S5'address%RE, %RF%S6%RE);";
+	TEXT *pattern2 =
+		"interbase.PUT_SLICE (%V1 %RF%DH%RE, %RF%RT%RE, %RF%FR%RE, %N1, \
+%I1, %N2, %I1v, %I1s, %RF%S5'address%RE);";
+
+	request = action->act_request;
+	slice = (SLC) action->act_object;
+	parent_request = slice->slc_parent_request;
+
+//  Compute array size 
+
+	printa(column, "isc_%ds := %d", request->req_ident,
+		   slice->slc_field->fld_array->fld_length);
+
+	for (tail = slice->slc_rpt, end = tail + slice->slc_dimensions;
+		 tail < end; ++tail)
+		if (tail->slc_upper != tail->slc_lower) {
+			lower = (REF) tail->slc_lower->nod_arg[0];
+			upper = (REF) tail->slc_upper->nod_arg[0];
+			if (lower->ref_value)
+				ib_fprintf(out_file, " * ( %s - %s + 1)", upper->ref_value,
+						   lower->ref_value);
+			else
+				ib_fprintf(out_file, " * ( %s + 1)", upper->ref_value);
+		}
+
+	ib_fprintf(out_file, ";");
+
+//  Make assignments to variable vector 
+
+	for (reference = request->req_values; reference;
+		 reference =
+		 reference->ref_next) printa(column, "isc_%dv (%d) := %s;",
+									 request->req_ident,
+									 reference->ref_id + 1,
+									 reference->ref_value);
+
+	args.pat_reference = slice->slc_field_ref;
+	args.pat_request = parent_request;	/* blob id request */
+	args.pat_vector1 = status_vector(action);	/* status vector */
+	args.pat_database = parent_request->req_database;	/* database handle */
+	args.pat_value1 = request->req_length;	/* slice descr. length */
+	args.pat_ident1 = request->req_ident;	/* request name */
+	args.pat_value2 = slice->slc_parameters * sizeof(SLONG);	/* parameter length */
+
+	reference = (REF) slice->slc_array->nod_arg[0];
+	args.pat_string5 = reference->ref_value;	/* array name */
+	args.pat_string6 = "isc_array_length";
+
+	PATTERN_expand(column,
+				   (action->act_type == ACT_get_slice) ? pattern1 : pattern2,
+				   &args);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate either a START or START_AND_SEND depending
+//		on whether or a not a port is present.
+//  
+
+static gen_start( ACT action, POR port, int column)
+{
+	REQ request;
+	TEXT *vector;
+	REF reference;
+
+	request = action->act_request;
+	vector = status_vector(action);
+	column += INDENT;
+
+	if (port) {
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, FALSE, column);
+
+		printa(column,
+			   "interbase.START_AND_SEND (%s %s, %s%s, %d, %d, isc_%d'address, %s);",
+			   vector, request->req_handle, ada_package, request_trans(action,
+																	   request),
+			   port->por_msg_number, port->por_length, port->por_ident,
+			   request->req_request_level);
+	}
+	else
+		printa(column, "interbase.START_REQUEST (%s %s, %s%s, %s);",
+			   vector,
+			   request->req_handle,
+			   ada_package, request_trans(action, request),
+			   request->req_request_level);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text for STORE statement.  This includes the compile
+//		call and any variable initialization required.
+//  
+
+static gen_store( ACT action, int column)
+{
+	REQ request;
+	REF reference;
+	FLD field;
+	POR port;
+	TEXT name[64];
+
+	request = action->act_request;
+	gen_compile(action, column);
+	if (action->act_error || (action->act_flags & ACT_sql))
+		make_ok_test(action, request, column);
+
+//  Initialize any blob fields 
+
+	port = request->req_primary;
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (field->fld_flags & FLD_blob)
+			printa(column, "%s := interbase.null_blob;",
+				   gen_name(name, reference, TRUE));
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for START_TRANSACTION.
+//  
+
+static gen_t_start( ACT action, int column)
+{
+	DBB db;
+	TRA trans;
+	TPB tpb;
+	SYM symbol;
+	int count;
+	TEXT *filename;
+
+//  for automatically generated transactions, and transactions that are
+//  explicitly started, but don't have any arguments so don't get a TPB,
+//  generate something plausible. 
+
+	if (!action || !(trans = (TRA) action->act_object)) {
+		t_start_auto(action, 0, status_vector(action), column, FALSE);
+		return;
+	}
+
+//  build a complete statement, including tpb's.
+//  first generate any appropriate ready statements,
+//  and fill in the tpb vector (aka TEB). 
+
+	count = 0;
+	for (tpb = trans->tra_tpb; tpb; tpb = tpb->tpb_tra_next) {
+		count++;
+		db = tpb->tpb_database;
+		if (sw_auto)
+			if ((filename = db->dbb_runtime) || !(db->dbb_flags & DBB_sqlca)) {
+				printa(column, "if (%s%s = 0) then", ada_package,
+					   db->dbb_name->sym_string);
+				align(column + INDENT);
+				make_ready(db, filename, status_vector(action),
+						   column + INDENT, 0);
+				printa(column, "end if;");
+			}
+
+		printa(column, "isc_teb(%d).tpb_len := %d;", count, tpb->tpb_length);
+		printa(column, "isc_teb(%d).tpb_ptr := isc_tpb_%d'address;",
+			   count, tpb->tpb_ident);
+		printa(column, "isc_teb(%d).dbb_ptr := %s%s'address;",
+			   count, ada_package, db->dbb_name->sym_string);
+	}
+
+	printa(column, "interbase.start_multiple (%s %s%s, %d, isc_teb'address);",
+		   status_vector(action),
+		   ada_package,
+		   (trans->tra_handle) ? (SCHAR *) trans->tra_handle : "gds_trans",
+		   trans->tra_db_count);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a TPB in the output file
+//  
+
+static gen_tpb( TPB tpb, int column)
+{
+	TEXT *text, buffer[80], c, *p;
+	int length;
+
+	printa(column, "isc_tpb_%d\t: CONSTANT interbase.tpb (1..%d) := (",
+		   tpb->tpb_ident, tpb->tpb_length);
+
+	length = tpb->tpb_length;
+	text = (TEXT *) tpb->tpb_string;
+	p = buffer;
+
+	while (--length) {
+		c = *text++;
+		sprintf(p, "%d, ", c);
+		while (*p)
+			p++;
+		if (p - buffer > 60) {
+			printa(column + INDENT, " %s", buffer);
+			p = buffer;
+			*p = 0;
+		}
+	}
+
+//  handle the last character 
+
+	c = *text++;
+	sprintf(p, "%d", c);
+	printa(column + INDENT, "%s", buffer);
+	printa(column, ");");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for COMMIT, ROLLBACK, PREPARE, and SAVE
+//  
+
+static gen_trans( ACT action, int column)
+{
+
+	if (action->act_type == ACT_commit_retain_context)
+		printa(column, "interbase.COMMIT_RETAINING (%s %s%s);",
+			   status_vector(action),
+			   ada_package,
+			   (action->act_object) ? (TEXT *) action->
+			   act_object : "gds_trans");
+	else
+		printa(column, "interbase.%s_TRANSACTION (%s %s%s);",
+			   (action->act_type ==
+				ACT_commit) ? "COMMIT" : (action->act_type ==
+										  ACT_rollback) ? "ROLLBACK" :
+			   "PREPARE", status_vector(action), ada_package,
+			   (action->act_object) ? (TEXT *) action->
+			   act_object : "gds_trans");
+
+	SET_SQLCODE;
+}
+
+
+
+//____________________________________________________________
+//  
+//       Substitute for a variable reference.
+//  
+
+static int gen_type( ACT action, int column)
+{
+
+	printa(column, "%ld", action->act_object);
+}
+
+
+
+
+
+
+
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for UPDATE ... WHERE CURRENT OF ...
+//  
+
+static gen_update( ACT action, int column)
+{
+	POR port;
+	UPD modify;
+
+	modify = (UPD) action->act_object;
+	port = modify->upd_port;
+	asgn_from(action, port->por_references, column);
+	gen_send(action, port, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a variable reference.
+//  
+
+static gen_variable( ACT action, int column)
+{
+	TEXT s[20];
+
+	printa(column, gen_name(s, (REF) action->act_object, FALSE));
+}
+
+
+//____________________________________________________________
+//  
+//		Generate tests for any WHENEVER clauses that may have been declared.
+//  
+
+static gen_whenever( SWE label, int column)
+{
+	TEXT *condition;
+
+	while (label) {
+		switch (label->swe_condition) {
+		case SWE_error:
+			condition = "SQLCODE < 0";
+			break;
+
+		case SWE_warning:
+			condition = "(SQLCODE > 0) AND (SQLCODE /= 100)";
+			break;
+
+		case SWE_not_found:
+			condition = "SQLCODE = 100";
+			break;
+		}
+		printa(column, "if %s then goto %s; end if;", condition,
+			   label->swe_label);
+		label = label->swe_next;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Create a new window.
+//  
+
+static gen_window_create( ACT action, int column)
+{
+
+	printa(column,
+		   "interbase.create_window (%sisc_window, 0, \" \", %sisc_width, %sisc_height)",
+		   ADA_WINDOW_PACKAGE, ADA_WINDOW_PACKAGE, ADA_WINDOW_PACKAGE);
+}
+
+
+//____________________________________________________________
+//  
+//		Delete a window.
+//  
+
+static gen_window_delete( ACT action, int column)
+{
+
+	printa(column, "interbase.delete_window (%sisc_window)",
+		   ADA_WINDOW_PACKAGE);
+}
+
+
+//____________________________________________________________
+//  
+//		Suspend a window.
+//  
+
+static gen_window_suspend( ACT action, int column)
+{
+
+	printa(column, "interbase.suspend_window (%sisc_window)",
+		   ADA_WINDOW_PACKAGE);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a declaration of an array in the
+//       output file.
+//  
+
+static make_array_declaration( REF reference, int column)
+{
+	FLD field;
+	SCHAR *name;
+	TEXT s[64];
+	DIM dimension;
+	int i;
+
+	field = reference->ref_field;
+	name = field->fld_symbol->sym_string;
+
+//  Don't generate multiple declarations for the array.  V3 Bug 569.  
+
+	if (field->fld_array_info->ary_declared)
+		return;
+
+	field->fld_array_info->ary_declared = TRUE;
+
+	if ((field->fld_array->fld_dtype <= dtype_varying)
+		&& (field->fld_array->fld_length != 1)) {
+		if (field->fld_array->fld_sub_type == 1)
+			ib_fprintf(out_file, "subtype isc_%d_byte is %s(1..%d);\n",
+					   field->fld_array_info->ary_ident, BYTE_VECTOR_DCL,
+					   field->fld_array->fld_length);
+		else
+			ib_fprintf(out_file, "subtype isc_%d_string is string(1..%d);\n",
+					   field->fld_array_info->ary_ident,
+					   field->fld_array->fld_length);
+	}
+
+	ib_fprintf(out_file, "type isc_%dt is array (",
+			   field->fld_array_info->ary_ident);
+
+//   Print out the dimension part of the declaration  
+	for (dimension = field->fld_array_info->ary_dimension, i = 1;
+		 i < field->fld_array_info->ary_dimension_count;
+		 dimension = dimension->dim_next, i++)
+		ib_fprintf(out_file, "%s range %d..%d,\n                        ",
+				   LONG_DCL, dimension->dim_lower, dimension->dim_upper);
+
+	ib_fprintf(out_file, "%s range %d..%d) of ",
+			   LONG_DCL, dimension->dim_lower, dimension->dim_upper);
+
+	switch (field->fld_array_info->ary_dtype) {
+	case dtype_short:
+		ib_fprintf(out_file, "%s", SHORT_DCL);
+		break;
+
+	case dtype_long:
+		ib_fprintf(out_file, "%s", LONG_DCL);
+		break;
+
+	case dtype_cstring:
+	case dtype_text:
+	case dtype_varying:
+		if (field->fld_array->fld_length == 1) {
+			if (field->fld_array->fld_sub_type == 1)
+				ib_fprintf(out_file, BYTE_DCL);
+			else
+				ib_fprintf(out_file, "interbase.isc_character");
+		}
+		else {
+			if (field->fld_array->fld_sub_type == 1)
+				ib_fprintf(out_file, "isc_%d_byte",
+						   field->fld_array_info->ary_ident);
+			else
+				ib_fprintf(out_file, "isc_%d_string",
+						   field->fld_array_info->ary_ident);
+		}
+		break;
+
+	case dtype_date:
+	case dtype_quad:
+		ib_fprintf(out_file, "interbase.quad");
+		break;
+
+	case dtype_float:
+		ib_fprintf(out_file, "%s", FLOAT_DCL);
+		break;
+
+	case dtype_double:
+		ib_fprintf(out_file, "%s", DOUBLE_DCL);
+		break;
+
+	default:
+		printa(column, "datatype %d unknown for field %s",
+			   field->fld_array_info->ary_dtype, name);
+		return;
+	}
+
+	ib_fprintf(out_file, ";\n");
+
+//   Print out the database field  
+
+	ib_fprintf(out_file, "isc_%d : isc_%dt;\t--- %s\n\n",
+			   field->fld_array_info->ary_ident,
+			   field->fld_array_info->ary_ident, name);
+}
+
+
+//____________________________________________________________
+//  
+//     Generate code to test existence 
+//     of open cursor and do the right thing:
+//     if type == ACT_open && isc_nl, error
+//     if type == ACT_close && !isc_nl, error
+//  
+
+static make_cursor_open_test( enum act_t type, REQ request, int column)
+{
+
+	if (type == ACT_open) {
+		printa(column, "if (isc_%do = 1) then", request->req_ident);
+		printa(column + INDENT, "SQLCODE := -502;");
+	}
+	else if (type == ACT_close) {
+		printa(column, "if (isc_%do = 0) then", request->req_ident);
+		printa(column + INDENT, "SQLCODE := -501;");
+	}
+
+	printa(column, "else");
+}
+
+
+//____________________________________________________________
+//  
+//		Turn a symbol into a varying string.
+//  
+
+static TEXT *make_name( TEXT * string, SYM symbol)
+{
+
+	sprintf(string, "\"%s \"", symbol->sym_string);
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code to test existence of
+//		compiled request with active transaction.
+//  
+
+static make_ok_test( ACT action, REQ request, int column)
+{
+
+	if (sw_auto)
+		printa(column, "if (%s%s /= 0) and (%s /= 0) then",
+			   ada_package, request_trans(action, request),
+			   request->req_handle);
+	else
+		printa(column, "if (%s /= 0) then", request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Insert a port record description in output.
+//  
+
+static make_port( POR port, int column)
+{
+	FLD field;
+	REF reference;
+	SYM symbol;
+	TEXT *name, s[80];
+	int pos;
+
+	printa(column, "type isc_%dt is record", port->por_ident);
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (symbol = field->fld_symbol)
+			name = symbol->sym_string;
+		else
+			name = "<expression>";
+		if (reference->ref_value && (reference->ref_flags & REF_array_elem))
+			field = field->fld_array;
+		switch (field->fld_dtype) {
+		case dtype_float:
+			printa(column + INDENT, "isc_%d\t: %s;\t-- %s --",
+				   reference->ref_ident, FLOAT_DCL, name);
+			break;
+
+		case dtype_double:
+			printa(column + INDENT, "isc_%d\t: %s;\t-- %s --",
+				   reference->ref_ident, DOUBLE_DCL, name);
+			break;
+
+		case dtype_short:
+			printa(column + INDENT, "isc_%d\t: %s;\t-- %s --",
+				   reference->ref_ident, SHORT_DCL, name);
+			break;
+
+		case dtype_long:
+			printa(column + INDENT, "isc_%d\t: %s;\t-- %s --",
+				   reference->ref_ident, LONG_DCL, name);
+			break;
+
+		case dtype_date:
+		case dtype_quad:
+		case dtype_blob:
+			printa(column + INDENT, "isc_%d\t: interbase.quad;\t-- %s --",
+				   reference->ref_ident, name);
+			break;
+
+		case dtype_text:
+			if (strcmp(name, "isc_slack")) {
+				if (field->fld_sub_type == 1) {
+					if (field->fld_length == 1)
+						printa(column + INDENT, "isc_%d\t: %s;\t-- %s --",
+							   reference->ref_ident, BYTE_DCL, name);
+					else
+						printa(column + INDENT,
+							   "isc_%d\t: %s (1..%d);\t-- %s --",
+							   reference->ref_ident, BYTE_VECTOR_DCL,
+							   field->fld_length, name);
+				}
+				else {
+					if (field->fld_length == 1)
+						printa(column + INDENT,
+							   "isc_%d\t: interbase.isc_character;\t-- %s --",
+							   reference->ref_ident, name);
+					else
+						printa(column + INDENT,
+							   "isc_%d\t: string (1..%d);\t-- %s --",
+							   reference->ref_ident, field->fld_length, name);
+				}
+			}
+			break;
+
+		default:
+			sprintf(s, "datatype %d unknown for field %s, msg %d",
+					field->fld_dtype, name, port->por_msg_number);
+			IBERROR(s);
+			return;
+		}
+	}
+
+	printa(column, "end record;");
+
+	printa(column, "for isc_%dt use record at mod 4;", port->por_ident);
+
+	pos = 0;
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (reference->ref_value && field->fld_array_info)
+			field = field->fld_array;
+		printa(column + INDENT, "isc_%d at %d range 0..%d;",
+			   reference->ref_ident, pos, 8 * field->fld_length - 1);
+		pos += field->fld_length;
+	}
+
+	printa(column, "end record;");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the actual insertion text for a
+//       ready;
+//  
+
+static make_ready(
+				  DBB db,
+				  TEXT * filename, TEXT * vector, USHORT column, REQ request)
+{
+	TEXT s1[32], s2[32];
+
+	if (request) {
+		sprintf(s1, "isc_%dl", request->req_ident);
+		sprintf(s2, "isc_%d", request->req_ident);
+
+		/* if the dpb needs to be extended at runtime to include items
+		   in host variables, do so here; this assumes that there is 
+		   always a request generated for runtime variables */
+
+		if (request->req_flags & REQ_extend_dpb) {
+			sprintf(s2, "isc_%dp", request->req_ident);
+			if (request->req_length)
+				printa(column, "%s = isc_%d;", s2, request->req_ident);
+			if (db->dbb_r_user)
+				printa(column,
+					   "interbase.MODIFY_DPB (%s, %s, interbase.isc_dpb_user_name, %s, %d);\n",
+					   s2, s1, db->dbb_r_user, (strlen(db->dbb_r_user) - 2));
+			if (db->dbb_r_password)
+				printa(column,
+					   "interbase.MODIFY_DPB (%s, %s, interbase.isc_dpb_password, %s, %d);\n",
+					   s2, s1, db->dbb_r_password,
+					   (strlen(db->dbb_r_password) - 2));
+			/*
+			   ** ===========================================================
+			   ** ==
+			   ** ==   Process Role Name
+			   ** ==
+			   ** ===========================================================
+			 */
+			if (db->dbb_r_sql_role)
+				printa(column,
+					   "interbase.MODIFY_DPB (%s, %s, interbase.isc_dpb_sql_role_name, %s, %d);\n",
+					   s2, s1, db->dbb_r_sql_role,
+					   (strlen(db->dbb_r_sql_role) - 2));
+
+			if (db->dbb_r_lc_messages)
+				printa(column,
+					   "interbase.MODIFY_DPB (%s, %s, interbase.isc_dpb_lc_messages, %s, %d);\n",
+					   s2, s1, db->dbb_r_lc_messages,
+					   (strlen(db->dbb_r_lc_messages) - 2));
+			if (db->dbb_r_lc_ctype)
+				printa(column,
+					   "interbase.MODIFY_DPB (%s, %s, interbase.isc_dpb_lc_ctype, %s, %d);\n",
+					   s2, s1, db->dbb_r_lc_ctype,
+					   (strlen(db->dbb_r_lc_ctype) - 2));
+		}
+	}
+
+	if (filename)
+		if (*filename == '"')
+			printa(column,
+				   "interbase.ATTACH_DATABASE (%s %d, %s, %s%s, %s, %s);",
+				   vector, strlen(filename) - 2, filename, ada_package,
+				   db->dbb_name->sym_string, (request ? s1 : "0"),
+				   (request ? s2 : "interbase.null_dpb"));
+		else
+			printa(column,
+				   "interbase.ATTACH_DATABASE (%s %s'length(1), %s, %s%s, %s, %s);",
+				   vector, filename, filename, ada_package,
+				   db->dbb_name->sym_string, (request ? s1 : "0"),
+				   (request ? s2 : "interbase.null_dpb"));
+	else
+		printa(column,
+			   "interbase.ATTACH_DATABASE (%s %d, \"%s\", %s%s, %s, %s);",
+			   vector, strlen(db->dbb_filename), db->dbb_filename,
+			   ada_package, db->dbb_name->sym_string, (request ? s1 : "0"),
+			   (request ? s2 : "interbase.null_dpb"));
+
+	if (request && request->req_flags & REQ_extend_dpb) {
+		if (request->req_length)
+			printa(column, "if (%s != isc_%d)", s2, request->req_ident);
+		printa(column + (request->req_length ? 4 : 0),
+			   "interbase.FREE (%s);", s2);
+
+		/* reset the length of the dpb */
+		if (request->req_length)
+			printa(column, "%s = %d;", s1, request->req_length);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Print a fixed string at a particular column.
+//  
+
+static printa( int column, TEXT * string, ...)
+{
+	va_list ptr;
+
+	VA_START(ptr, string);
+	align(column);
+	vsprintf(output_buffer, string, ptr);
+	ADA_print_buffer(output_buffer, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the appropriate transaction handle.
+//  
+
+static TEXT *request_trans( ACT action, REQ request)
+{
+	SCHAR *trname;
+
+	if (action->act_type == ACT_open) {
+		if (!(trname = ((OPN) action->act_object)->opn_trans))
+			trname = "gds_trans";
+		return trname;
+	}
+	else
+		return (request) ? request->req_trans : "gds_trans";
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the appropriate status vector parameter for a gds
+//		call depending on where or not the action has an error clause.
+//  
+
+static TEXT *status_vector( ACT action)
+{
+
+	if (action && (action->act_error || (action->act_flags & ACT_sql)))
+		return "isc_status,";
+
+	return "";
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for START_TRANSACTION.
+//  
+
+static t_start_auto(
+					ACT action,
+					REQ request, TEXT * vector, int column, SSHORT test)
+{
+	DBB db;
+	int count, stat;
+	TEXT *filename, buffer[256], temp[40], *trname;
+
+	trname = request_trans(action, request);
+
+	stat = !strcmp(vector, "isc_status");
+
+	BEGIN;
+
+	if (sw_auto) {
+		buffer[0] = 0;
+		for (count = 0, db = isc_databases; db; db = db->dbb_next, count++)
+			if ((filename = db->dbb_runtime) || !(db->dbb_flags & DBB_sqlca)) {
+				align(column);
+				ib_fprintf(out_file, "if (%s%s = 0", ada_package,
+						   db->dbb_name->sym_string);
+				if (stat && buffer[0])
+					ib_fprintf(out_file, "and %s(1) = 0", vector);
+				ib_fprintf(out_file, ") then");
+				make_ready(db, filename, vector, column + INDENT, 0);
+				printa(column, "end if;");
+				if (buffer[0])
+					strcat(buffer, ") and (");
+				sprintf(temp, "%s%s /= 0", ada_package,
+						db->dbb_name->sym_string);
+				strcat(buffer, temp);
+			}
+		if (!buffer[0])
+			strcpy(buffer, "True");
+		if (test)
+			printa(column, "if (%s) and (%s%s = 0) then", buffer, ada_package,
+				   trname);
+		else
+			printa(column, "if (%s) then", buffer);
+		column += INDENT;
+	}
+
+	for (count = 0, db = isc_databases; db; db = db->dbb_next) {
+		count++;
+		printa(column, "isc_teb(%d).tpb_len:= 0;", count);
+		printa(column, "isc_teb(%d).tpb_ptr := interbase.null_tpb'address;",
+			   count);
+		printa(column, "isc_teb(%d).dbb_ptr := %s%s'address;", count,
+			   ada_package, db->dbb_name->sym_string);
+	}
+
+	printa(column, "interbase.start_multiple (%s %s%s, %d, isc_teb'address);",
+		   vector, ada_package, trname, count);
+
+	if (sw_auto) {
+		ENDIF;
+		column -= INDENT;
+	}
+
+	END;
+}
diff --git a/src/gpre/c_cxx.cpp b/src/gpre/c_cxx.cpp
new file mode 100644
index 0000000000..c8b90afce5
--- /dev/null
+++ b/src/gpre/c_cxx.cpp
@@ -0,0 +1,4844 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	C preprocess
+//		MODULE:		c_cxx.cpp
+//		DESCRIPTION:	C and C++ code generator
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  
+//
+//____________________________________________________________
+//
+//	$Id: c_cxx.cpp,v 1.1.1.1 2001-05-23 13:25:32 tamlin Exp $
+//
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../include/jrd/gds.h"
+#include "gpre.h"
+#include "../gpre/form.h"
+#include "../gpre/pat.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/lang_proto.h"
+#include "../gpre/pat_proto.h"
+#include "../gpre/prett_proto.h"
+#include "../jrd/gds_proto.h"
+
+
+extern "C" {
+
+
+extern TEXT *transaction_name;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+extern SCHAR default_dpb[];
+extern USHORT default_dpb_size;
+#endif
+
+static void align(int);
+static void asgn_from(ACT, REF, int);
+static void asgn_sqlda_from(REF, int, SCHAR *, int);
+static void asgn_to(ACT, REF, int);
+static void asgn_to_proc(REF, int);
+static void gen_any(ACT, int);
+static void gen_at_end(ACT, int);
+static void gen_based(ACT, int);
+static void gen_blob_close(ACT, USHORT);
+static void gen_blob_end(ACT, USHORT);
+static void gen_blob_for(ACT, USHORT);
+static void gen_blob_open(ACT, USHORT);
+static int gen_blr(int *, int, TEXT *);
+static void gen_clear_handles(ACT, int);
+static void gen_compatibility_symbol(TEXT *, TEXT *, TEXT *);
+static void gen_compile(ACT, int);
+static void gen_create_database(ACT, int);
+static int gen_cursor_close(ACT, REQ, int);
+static void gen_cursor_init(ACT, int);
+static int gen_cursor_open(ACT, REQ, int);
+static void gen_database(ACT, int);
+static void gen_ddl(ACT, int);
+static void gen_drop_database(ACT, int);
+static void gen_dyn_close(ACT, int);
+static void gen_dyn_declare(ACT, int);
+static void gen_dyn_describe(ACT, int, BOOLEAN);
+static void gen_dyn_execute(ACT, int);
+static void gen_dyn_fetch(ACT, int);
+static void gen_dyn_immediate(ACT, int);
+static void gen_dyn_insert(ACT, int);
+static void gen_dyn_open(ACT, int);
+static void gen_dyn_prepare(ACT, int);
+static void gen_emodify(ACT, int);
+static void gen_estore(ACT, int);
+static void gen_endfor(ACT, int);
+static void gen_erase(ACT, int);
+static SSHORT gen_event_block(ACT);
+static void gen_event_init(ACT, int);
+static void gen_event_wait(ACT, int);
+static void gen_fetch(ACT, int);
+static void gen_finish(ACT, int);
+static void gen_for(ACT, int);
+static void gen_form_display(ACT, int);
+static void gen_form_end(ACT, int);
+static void gen_form_for(ACT, int);
+static void gen_function(ACT, int);
+static void gen_get_or_put_slice(ACT, REF, BOOLEAN, int);
+static void gen_get_segment(ACT, int);
+static void gen_item_end(ACT, int);
+static void gen_item_for(ACT, int);
+static void gen_loop(ACT, int);
+static void gen_menu(ACT, int);
+static void gen_menu_display(ACT, int);
+static void gen_menu_entree(ACT, int);
+static void gen_menu_entree_att(ACT, int);
+static void gen_menu_end(ACT, int);
+static void gen_menu_for(ACT, int);
+static void gen_menu_item_end(ACT, int);
+static void gen_menu_item_for(ACT, int);
+static void gen_menu_request(REQ);
+static TEXT *gen_name(char *, REF, BOOLEAN);
+static void gen_on_error(ACT, USHORT);
+static void gen_procedure(ACT, int);
+static void gen_put_segment(ACT, int);
+static void gen_raw(UCHAR *, int);
+static void gen_ready(ACT, int);
+static void gen_receive(ACT, int, POR);
+static void gen_release(ACT, int);
+static void gen_request(REQ);
+static void gen_return_value(ACT, int);
+static void gen_routine(ACT, int);
+static void gen_s_end(ACT, int);
+static void gen_s_fetch(ACT, int);
+static void gen_s_start(ACT, int);
+static void gen_segment(ACT, int);
+static void gen_select(ACT, int);
+static void gen_send(ACT, POR, int);
+static void gen_slice(ACT, REF, int);
+static void gen_start(ACT, POR, int, BOOLEAN);
+static void gen_store(ACT, int);
+static void gen_t_start(ACT, int);
+static void gen_tpb(TPB, int);
+static void gen_trans(ACT, int);
+static void gen_type(ACT, int);
+static void gen_update(ACT, int);
+static void gen_variable(ACT, int);
+static void gen_whenever(SWE, int);
+static void gen_window_create(ACT, int);
+static void gen_window_delete(ACT, int);
+static void gen_window_suspend(ACT, int);
+static void make_array_declaration(REF);
+static TEXT *make_name(TEXT *, SYM);
+static void make_ok_test(ACT, REQ, int);
+static void make_port(POR, int);
+static void make_ready(DBB, TEXT *, TEXT *, USHORT, REQ);
+static void printa(int, TEXT *, ...);
+static void printb(TEXT *, ...);
+static TEXT *request_trans(ACT, REQ);
+static TEXT *status_vector(ACT);
+static void t_start_auto(ACT, REQ, TEXT *, int, SSHORT);
+
+static int first_flag;
+static TEXT *status_name;
+
+#define INDENT		3
+#define BEGIN		printa (column, "{")
+#define END		printa (column, "}")
+
+#define SET_SQLCODE	if (action->act_flags & ACT_sql) printa (column, "SQLCODE = isc_sqlcode (%s);", status_name)
+#define NULL_STRING	"(char *)0"
+#define NULL_STATUS	"(long*) 0L"
+#define NULL_SQLDA	"(XSQLDA*) 0L"
+
+#ifdef VMS
+#define GDS_INCLUDE	"\"interbase:[syslib]gds.h\""
+#endif
+
+#ifndef GDS_INCLUDE
+#define GDS_INCLUDE	"<ibase.h>"
+#endif
+
+#ifdef DECOSF
+#define DCL_LONG	"int "
+#define DCL_QUAD	"long"
+#endif
+
+#ifndef DCL_LONG
+#define DCL_LONG	"long"
+#endif
+
+#ifndef DCL_QUAD
+#define DCL_QUAD	"ISC_QUAD"
+#endif
+
+
+//____________________________________________________________
+//  
+//  
+
+void C_CXX_action( ACT action, int column)
+{
+
+	status_name = "isc_status";
+
+//  Put leading braces where required 
+
+	switch (action->act_type) {
+	case ACT_alter_database:
+	case ACT_alter_domain:
+	case ACT_alter_index:
+	case ACT_alter_table:
+	case ACT_blob_close:
+	case ACT_blob_create:
+	case ACT_blob_for:
+	case ACT_blob_open:
+	case ACT_clear_handles:
+	case ACT_close:
+	case ACT_commit:
+	case ACT_commit_retain_context:
+	case ACT_create_database:
+	case ACT_create_domain:
+	case ACT_create_generator:
+	case ACT_create_index:
+	case ACT_create_shadow:
+	case ACT_create_table:
+	case ACT_create_view:
+	case ACT_declare_filter:
+	case ACT_declare_udf:
+	case ACT_disconnect:
+	case ACT_drop_database:
+	case ACT_drop_domain:
+	case ACT_drop_filter:
+	case ACT_drop_index:
+	case ACT_drop_shadow:
+	case ACT_drop_table:
+	case ACT_drop_udf:
+	case ACT_drop_view:
+	case ACT_dyn_close:
+	case ACT_dyn_cursor:
+	case ACT_dyn_describe:
+	case ACT_dyn_describe_input:
+	case ACT_dyn_execute:
+	case ACT_dyn_fetch:
+	case ACT_dyn_grant:
+	case ACT_dyn_immediate:
+	case ACT_dyn_insert:
+	case ACT_dyn_open:
+	case ACT_dyn_prepare:
+	case ACT_dyn_revoke:
+	case ACT_fetch:
+	case ACT_finish:
+	case ACT_for:
+	case ACT_form_display:
+	case ACT_form_for:
+	case ACT_get_segment:
+	case ACT_get_slice:
+	case ACT_insert:
+	case ACT_item_for:
+	case ACT_item_put:
+	case ACT_loop:
+	case ACT_menu_for:
+	case ACT_modify:
+	case ACT_open:
+	case ACT_prepare:
+	case ACT_procedure:
+	case ACT_put_slice:
+	case ACT_ready:
+	case ACT_release:
+	case ACT_rfinish:
+	case ACT_rollback:
+	case ACT_s_fetch:
+	case ACT_s_start:
+	case ACT_select:
+	case ACT_store:
+	case ACT_start:
+	case ACT_update:
+	case ACT_statistics:
+		BEGIN;
+	}
+
+	switch (action->act_type) {
+	case ACT_alter_database:
+	case ACT_alter_domain:
+	case ACT_alter_index:
+	case ACT_alter_table:
+		gen_ddl(action, column);
+		break;
+	case ACT_any:
+		gen_any(action, column);
+		return;
+	case ACT_at_end:
+		gen_at_end(action, column);
+		return;
+	case ACT_b_declare:
+		gen_database(action, column);
+		gen_routine(action, column);
+		return;
+	case ACT_basedon:
+		gen_based(action, column);
+		return;
+	case ACT_blob_cancel:
+		gen_blob_close(action, (USHORT) column);
+		return;
+	case ACT_blob_close:
+		gen_blob_close(action, (USHORT) column);
+		break;
+	case ACT_blob_create:
+		gen_blob_open(action, (USHORT) column);
+		break;
+	case ACT_blob_for:
+		gen_blob_for(action, (USHORT) column);
+		return;
+	case ACT_blob_handle:
+		gen_segment(action, column);
+		return;
+	case ACT_blob_open:
+		gen_blob_open(action, (USHORT) column);
+		break;
+	case ACT_clear_handles:
+		gen_clear_handles(action, column);
+		break;
+	case ACT_close:
+		gen_s_end(action, column);
+		break;
+	case ACT_commit:
+		gen_trans(action, column);
+		break;
+	case ACT_commit_retain_context:
+		gen_trans(action, column);
+		break;
+	case ACT_create_database:
+		gen_create_database(action, column);
+		break;
+	case ACT_create_domain:
+	case ACT_create_generator:
+	case ACT_create_index:
+	case ACT_create_shadow:
+	case ACT_create_table:
+	case ACT_create_view:
+		gen_ddl(action, column);
+		break;
+	case ACT_cursor:
+		gen_cursor_init(action, column);
+		return;
+	case ACT_database:
+		gen_database(action, column);
+		return;
+	case ACT_declare_filter:
+	case ACT_declare_udf:
+		gen_ddl(action, column);
+		break;
+	case ACT_disconnect:
+		gen_finish(action, column);
+		break;
+	case ACT_drop_database:
+		gen_drop_database(action, column);
+		break;
+	case ACT_drop_domain:
+	case ACT_drop_filter:
+	case ACT_drop_index:
+	case ACT_drop_shadow:
+	case ACT_drop_table:
+	case ACT_drop_udf:
+	case ACT_drop_view:
+		gen_ddl(action, column);
+		break;
+	case ACT_dyn_close:
+		gen_dyn_close(action, column);
+		break;
+	case ACT_dyn_cursor:
+		gen_dyn_declare(action, column);
+		break;
+	case ACT_dyn_describe:
+		gen_dyn_describe(action, column, FALSE);
+		break;
+	case ACT_dyn_describe_input:
+		gen_dyn_describe(action, column, TRUE);
+		break;
+	case ACT_dyn_execute:
+		gen_dyn_execute(action, column);
+		break;
+	case ACT_dyn_fetch:
+		gen_dyn_fetch(action, column);
+		break;
+	case ACT_dyn_grant:
+		gen_ddl(action, column);
+		break;
+	case ACT_dyn_immediate:
+		gen_dyn_immediate(action, column);
+		break;
+	case ACT_dyn_insert:
+		gen_dyn_insert(action, column);
+		break;
+	case ACT_dyn_open:
+		gen_dyn_open(action, column);
+		break;
+	case ACT_dyn_prepare:
+		gen_dyn_prepare(action, column);
+		break;
+	case ACT_dyn_revoke:
+		gen_ddl(action, column);
+		break;
+	case ACT_endblob:
+		gen_blob_end(action, (USHORT) column);
+		return;
+	case ACT_enderror:{
+			column += INDENT;
+			END;
+			column -= INDENT;
+		}
+		break;
+	case ACT_endfor:
+		gen_endfor(action, column);
+		break;
+	case ACT_endmodify:
+		gen_emodify(action, column);
+		break;
+	case ACT_endstore:
+		gen_estore(action, column);
+		break;
+	case ACT_erase:
+		gen_erase(action, column);
+		return;
+	case ACT_event_init:
+		gen_event_init(action, column);
+		break;
+	case ACT_event_wait:
+		gen_event_wait(action, column);
+		break;
+	case ACT_fetch:
+		gen_fetch(action, column);
+		break;
+	case ACT_finish:
+		gen_finish(action, column);
+		break;
+	case ACT_for:
+		gen_for(action, column);
+		return;
+	case ACT_form_display:
+		gen_form_display(action, column);
+		break;
+	case ACT_form_end:
+		gen_form_end(action, column);
+		break;
+	case ACT_form_for:
+		gen_form_for(action, column);
+		return;
+	case ACT_function:
+		gen_function(action, column);
+		return;
+	case ACT_get_segment:
+		gen_get_segment(action, column);
+		break;
+	case ACT_get_slice:
+		gen_slice(action, 0, column);
+		break;
+	case ACT_hctef:
+		END;
+		break;
+	case ACT_insert:
+		gen_s_start(action, column);
+		break;
+	case ACT_item_for:
+	case ACT_item_put:
+		gen_item_for(action, column);
+		return;
+	case ACT_item_end:
+		gen_item_end(action, column);
+		break;
+	case ACT_loop:
+		gen_loop(action, column);
+		break;
+	case ACT_menu:
+		gen_menu(action, column);
+		return;
+	case ACT_menu_display:
+		gen_menu_display(action, column);
+		return;
+	case ACT_menu_end:
+		gen_menu_end(action, column);
+		return;
+	case ACT_menu_entree:
+		gen_menu_entree(action, column);
+		return;
+	case ACT_menu_for:
+		gen_menu_for(action, column);
+		return;
+
+	case ACT_title_text:
+	case ACT_title_length:
+	case ACT_terminator:
+	case ACT_entree_text:
+	case ACT_entree_length:
+	case ACT_entree_value:
+		gen_menu_entree_att(action, column);
+		return;
+
+	case ACT_on_error:
+		gen_on_error(action, (USHORT) column);
+		return;
+	case ACT_open:
+		gen_s_start(action, column);
+		break;
+	case ACT_prepare:
+		gen_trans(action, column);
+		break;
+	case ACT_procedure:
+		gen_procedure(action, column);
+		break;
+	case ACT_put_segment:
+		gen_put_segment(action, column);
+		break;
+	case ACT_put_slice:
+		gen_slice(action, 0, column);
+		break;
+	case ACT_ready:
+		gen_ready(action, column);
+		break;
+	case ACT_release:
+		gen_release(action, column);
+		break;
+	case ACT_rfinish:
+		gen_finish(action, column);
+		break;
+	case ACT_rollback:
+		gen_trans(action, column);
+		break;
+	case ACT_routine:
+		gen_routine(action, column);
+		return;
+	case ACT_s_end:
+		gen_s_end(action, column);
+		return;
+	case ACT_s_fetch:
+		gen_s_fetch(action, column);
+		return;
+	case ACT_s_start:
+		gen_s_start(action, column);
+		break;
+	case ACT_segment:
+		gen_segment(action, column);
+		return;
+	case ACT_segment_length:
+		gen_segment(action, column);
+		return;
+	case ACT_select:
+		gen_select(action, column);
+		break;
+	case ACT_sql_dialect:
+		sw_sql_dialect = ((SDT) action->act_object)->sdt_dialect;
+		return;
+	case ACT_start:
+		gen_t_start(action, column);
+		break;
+	case ACT_statistics:
+		gen_ddl(action, column);
+		break;
+	case ACT_store:
+		gen_store(action, column);
+		return;
+	case ACT_store2:
+		gen_return_value(action, column);
+		return;
+	case ACT_type:
+		gen_type(action, column);
+		return;
+	case ACT_update:
+		gen_update(action, column);
+		break;
+	case ACT_variable:
+		gen_variable(action, column);
+		return;
+	case ACT_window_create:
+		gen_window_create(action, column);
+		return;
+	case ACT_window_delete:
+		gen_window_delete(action, column);
+		return;
+	case ACT_window_suspend:
+		gen_window_suspend(action, column);
+		return;
+
+	default:
+		return;
+	};
+
+//  Put in a trailing brace for those actions still with us 
+
+	if (action->act_flags & ACT_sql)
+		gen_whenever(action->act_whenever, column);
+
+	if (action->act_error)
+		ib_fprintf(out_file, ";");
+	else
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Align output to a specific column for output.  If the
+//		column is negative, don't do anything.
+//  
+
+static void align( int column)
+{
+	int i;
+
+	if (column < 0)
+		return;
+
+	ib_putc('\n', out_file);
+
+	for (i = column / 8; i; --i)
+		ib_putc('\t', out_file);
+
+	for (i = column % 8; i; --i)
+		ib_putc(' ', out_file);
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment from a host language variable to
+//		a port variable.   The string assignments are a little
+//		hairy because the normal mode is varying (null 
+//		terminated) strings, but the fixed subtype makes the
+//		string a byte stream.  Furthering the complication, a
+//		single character byte stream is handled as a single byte,
+//		meaining that it is the byte, not the address of the
+//		byte.
+//  
+
+static void asgn_from( ACT action, REF reference, int column)
+{
+	FLD field;
+	TEXT *value, name[64], variable[20], temp[20];
+	REF source;
+	ACT slice_action;
+	SSHORT slice_flag = FALSE;
+
+	for (; reference; reference = reference->ref_next) {
+		slice_flag = FALSE;
+		field = reference->ref_field;
+		if (field->fld_array_info) {
+			if ((source = reference->ref_friend) &&
+				(slice_action = (ACT) source->ref_slice) &&
+				slice_action->act_object) {
+				slice_flag = TRUE;
+				slice_action->act_type = ACT_put_slice;
+				gen_slice(slice_action, 0, column);
+			}
+			else if (!(reference->ref_flags & REF_array_elem)) {
+				printa(column, "%s = isc_blob_null;",
+					   gen_name(name, reference, TRUE));
+				gen_get_or_put_slice(action, reference, FALSE, column);
+				continue;
+			}
+		}
+		if (!reference->ref_source && !reference->ref_value && !slice_flag)
+			continue;
+		align(column);
+		gen_name(variable, reference, TRUE);
+		if (slice_flag)
+			value = gen_name(temp, reference->ref_friend, TRUE);
+		else if (reference->ref_source)
+			value = gen_name(temp, reference->ref_source, TRUE);
+		else
+			value = reference->ref_value;
+
+		if (!slice_flag &&
+			reference->ref_value &&
+			(reference->ref_flags & REF_array_elem)) field = field->fld_array;
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+		if (field && field->fld_dtype <= dtype_cstring)
+			if (field->fld_sub_type == 1)
+				if (field->fld_length == 1)
+					ib_fprintf(out_file, "%s = %s;", variable, value);
+				else
+					ib_fprintf(out_file,
+							   "isc_ftof (%s, sizeof (%s), %s, %d);", value,
+							   value, variable, field->fld_length);
+			else if (field->fld_flags & FLD_dbkey)
+				ib_fprintf(out_file, "isc_ftof (%s, %d, %s, %d);", value,
+						   field->fld_length, variable, field->fld_length);
+			else if (sw_cstring)
+				ib_fprintf(out_file, "isc_vtov (%s, %s, %d);", value,
+						   variable, field->fld_length);
+			else if (reference->ref_source)
+				ib_fprintf(out_file, "isc_ftof (%s, sizeof (%s), %s, %d);",
+						   value, value, variable, field->fld_length);
+			else
+				ib_fprintf(out_file, "isc_vtof (%s, %s, %d);", value,
+						   variable, field->fld_length);
+#else
+		/* To avoid chopping off a double byte kanji character in between
+		   the two bytes, generate calls to isc_ftof2 isc_vtof2 and
+		   isc_vtov2 wherever necessary */
+
+		if (field && field->fld_dtype <= dtype_cstring)
+			if (field->fld_sub_type == 1)
+				if (field->fld_length == 1)
+					ib_fprintf(out_file, "%s = %s;", variable, value);
+				else
+					ib_fprintf(out_file,
+							   "isc_ftof (%s, sizeof (%s), %s, %d);", value,
+							   value, variable, field->fld_length);
+			else if (field->fld_flags & FLD_dbkey)
+				ib_fprintf(out_file, "isc_ftof (%s, %d, %s, %d);", value,
+						   field->fld_length, variable, field->fld_length);
+			else if (sw_cstring)
+				ib_fprintf(out_file, "isc_vtov2 (%s, %s, %d, %d);", value,
+						   variable, field->fld_length, sw_interp);
+			else if (reference->ref_source)
+				ib_fprintf(out_file,
+						   "isc_ftof2 (%s, sizeof (%s), %s, %d, %d);", value,
+						   value, variable, field->fld_length, sw_interp);
+			else
+				ib_fprintf(out_file, "isc_vtof2 (%s, %s, %d, %d);", value,
+						   variable, field->fld_length, sw_interp);
+
+#endif
+		else if (!reference->ref_master
+				 || (reference->ref_flags & REF_literal)) ib_fprintf(out_file,
+																	 "%s = %s;",
+																	 variable,
+																	 value);
+		else {
+			ib_fprintf(out_file, "if (%s < 0)", value);
+			align(column + 4);
+			ib_fprintf(out_file, "%s = -1;", variable);
+			align(column);
+			ib_fprintf(out_file, "else");
+			align(column + 4);
+			ib_fprintf(out_file, "%s = 0;", variable);
+		}
+	}
+}
+
+
+#ifdef UNDEF
+//____________________________________________________________
+//  
+//		Build an assignment from a host language variable to
+//		a sqlda variable.
+//  
+
+static void asgn_sqlda_from(
+							REF reference,
+							int number, SCHAR * string, int column)
+{
+	SCHAR *value, temp[20];
+
+	for (; reference; reference = reference->ref_next) {
+		align(column);
+		if (reference->ref_source)
+			value = gen_name(temp, reference->ref_source, TRUE);
+		else
+			value = reference->ref_value;
+		ib_fprintf(out_file,
+				   "isc_to_sqlda (isc_sqlda, %d, %s, sizeof(%s), %s);",
+				   number, value, value, string);
+	}
+}
+#endif
+
+
+//____________________________________________________________
+//  
+//		Build an assignment to a host language variable from
+//		a port variable.
+//  
+
+static void asgn_to( ACT action, REF reference, int column)
+{
+	FLD field;
+	REF source;
+	ACT slice_action;
+	char s[64];
+
+	source = reference->ref_friend;
+	field = source->ref_field;
+
+	if (field) {
+		if (field->fld_array_info && (slice_action = (ACT) source->ref_slice)) {
+			source->ref_value = reference->ref_value;
+			if (slice_action->act_object) {
+				slice_action->act_type = ACT_get_slice;
+				gen_slice(slice_action, source, column);
+			}
+			else
+				gen_get_or_put_slice(action, source, TRUE, column);
+
+			/* Pick up NULL value if one is there */
+
+			if (reference = reference->ref_null) {
+				align(column);
+				ib_fprintf(out_file, "%s = %s;", reference->ref_value,
+						   gen_name(s, reference, TRUE));
+			}
+			return;
+		}
+
+		gen_name(s, source, TRUE);
+		if (field->fld_dtype > dtype_cstring)
+			ib_fprintf(out_file, "%s = %s;", reference->ref_value, s);
+		else if (field->fld_sub_type == 1 && field->fld_length == 1)
+			ib_fprintf(out_file, "%s = %s;", reference->ref_value, s);
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+		else if (field->fld_flags & FLD_dbkey)
+			ib_fprintf(out_file, "isc_ftof (%s, %d, %s, %d);",
+					   s, field->fld_length, reference->ref_value,
+					   field->fld_length);
+		else if (!sw_cstring || field->fld_sub_type == 1)
+			ib_fprintf(out_file, "isc_ftof (%s, %d, %s, sizeof (%s));", s,
+					   field->fld_length, reference->ref_value,
+					   reference->ref_value);
+		else
+			ib_fprintf(out_file, "isc_vtov (%s, %s, sizeof (%s));", s,
+					   reference->ref_value, reference->ref_value);
+#else
+		/* To avoid chopping off a double byte kanji character in between
+		   the two bytes, generate calls to isc_ftof2 isc_vtof2 and
+		   isc_vtov2 wherever necessary */
+
+		else if (field->fld_flags & FLD_dbkey)
+			ib_fprintf(out_file, "isc_ftof (%s, %d, %s, %d);",
+					   s, field->fld_length, reference->ref_value,
+					   field->fld_length);
+		else if (!sw_cstring || field->fld_sub_type == 1)
+			ib_fprintf(out_file, "isc_ftof (%s, %d, %s, sizeof (%s));", s,
+					   field->fld_length, reference->ref_value,
+					   reference->ref_value);
+		else
+			ib_fprintf(out_file, "isc_vtov2 (%s, %s, sizeof (%s), %d);", s,
+					   reference->ref_value, reference->ref_value, sw_interp);
+#endif
+	}
+
+//  Pick up NULL value if one is there 
+
+	if (reference = reference->ref_null) {
+		align(column);
+		ib_fprintf(out_file, "%s = %s;", reference->ref_value,
+				   gen_name(s, reference, TRUE));
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment to a host language variable from
+//		a port variable.
+//  
+
+static void asgn_to_proc( REF reference, int column)
+{
+	FLD field;
+	char s[64];
+
+	for (; reference; reference = reference->ref_next) {
+		if (!reference->ref_value)
+			continue;
+		field = reference->ref_field;
+		gen_name(s, reference, TRUE);
+		align(column);
+
+		if (field->fld_dtype > dtype_cstring)
+			ib_fprintf(out_file, "%s = %s;", reference->ref_value, s);
+		else if (field->fld_sub_type == 1 && field->fld_length == 1)
+			ib_fprintf(out_file, "%s = %s;", reference->ref_value, s);
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+		else if (field->fld_flags & FLD_dbkey)
+			ib_fprintf(out_file, "isc_ftof (%s, %d, %s, %d);",
+					   s, field->fld_length, reference->ref_value,
+					   field->fld_length);
+		else if (!sw_cstring || field->fld_sub_type == 1)
+			ib_fprintf(out_file, "isc_ftof (%s, %d, %s, sizeof (%s));", s,
+					   field->fld_length, reference->ref_value,
+					   reference->ref_value);
+		else
+			ib_fprintf(out_file, "isc_vtov (%s, %s, sizeof (%s));", s,
+					   reference->ref_value, reference->ref_value);
+#else
+		/* To avoid chopping off a double byte kanji character in between
+		   the two bytes, generate calls to isc_ftof2 isc_vtof2 and
+		   isc_vtov2 wherever necessary */
+
+		else if (field->fld_flags & FLD_dbkey)
+			ib_fprintf(out_file, "isc_ftof (%s, %d, %s, %d);",
+					   s, field->fld_length, reference->ref_value,
+					   field->fld_length);
+		else if (!sw_cstring || field->fld_sub_type == 1)
+			ib_fprintf(out_file, "isc_ftof (%s, %d, %s, sizeof (%s));", s,
+					   field->fld_length, reference->ref_value,
+					   reference->ref_value);
+		else
+			ib_fprintf(out_file, "isc_vtov2 (%s, %s, sizeof (%s), %d);", s,
+					   reference->ref_value, reference->ref_value, sw_interp);
+
+#endif
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a function call for free standing ANY.  Somebody else
+//		will need to generate the actual function.
+//  
+
+static void gen_any( ACT action, int column)
+{
+	REQ request;
+	POR port;
+	REF reference;
+
+	align(column);
+	request = action->act_request;
+
+	ib_fprintf(out_file, "%s_r (&%s, &%s",
+			   request->req_handle, request->req_handle, request->req_trans);
+
+	if (port = request->req_vport)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next)
+				ib_fprintf(out_file, ", %s", reference->ref_value);
+
+	ib_fprintf(out_file, ")");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for AT END clause of FETCH.
+//  
+
+static void gen_at_end( ACT action, int column)
+{
+	REQ request;
+	char s[20];
+
+	request = action->act_request;
+	printa(column, "if (!%s) {", gen_name(s, request->req_eof, TRUE));
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a BASED ON <field name> clause.
+//  
+
+static void gen_based( ACT action, int column)
+{
+	BAS based_on;
+	FLD field;
+	TEXT s[64], *variable, first_flag;
+	USHORT datatype;
+	SLONG length;
+	DIM dimension;
+
+	align(column);
+	based_on = (BAS) action->act_object;
+	field = based_on->bas_field;
+
+	if (based_on->bas_flags & BAS_segment) {
+		datatype = (sw_cstring) ? dtype_cstring : dtype_text;
+		if (!(length = field->fld_seg_length))
+			length = 256;
+		if (datatype == dtype_cstring)
+			length++;
+	}
+	else if (field->fld_array_info)
+		datatype = field->fld_array_info->ary_dtype;
+	else
+		datatype = field->fld_dtype;
+
+	switch (datatype) {
+	case dtype_short:
+		ib_fprintf(out_file, "short");
+		break;
+
+	case dtype_long:
+		ib_fprintf(out_file, DCL_LONG);
+		break;
+
+	case dtype_quad:
+		ib_fprintf(out_file, DCL_QUAD);
+		break;
+
+// ** Begin date/time/timestamp *
+	case dtype_sql_date:
+		ib_fprintf(out_file, "ISC_DATE");
+		break;
+
+	case dtype_sql_time:
+		ib_fprintf(out_file, "ISC_TIME");
+		break;
+
+	case dtype_timestamp:
+		ib_fprintf(out_file, "ISC_TIMESTAMP");
+		break;
+
+	case dtype_int64:
+		ib_fprintf(out_file, "ISC_INT64");
+		break;
+
+	case dtype_blob:
+		ib_fprintf(out_file, "ISC_QUAD");
+		break;
+
+	case dtype_cstring:
+	case dtype_text:
+	case dtype_varying:
+		ib_fprintf(out_file, "char");
+		break;
+
+	case dtype_real:
+		ib_fprintf(out_file, "float");
+		break;
+
+	case dtype_double:
+		ib_fprintf(out_file, "double");
+		break;
+
+	default:
+		sprintf(s, "datatype %d unknown\n", field->fld_dtype);
+		IBERROR(s);
+		return;
+	}
+
+//  print the first variable, then precede the rest with commas 
+
+	column += INDENT;
+
+	first_flag = TRUE;
+
+	while (based_on->bas_variables) {
+		variable = (TEXT *) POP(&based_on->bas_variables);
+		if (!first_flag)
+			ib_fprintf(out_file, ",");
+		first_flag = FALSE;
+		align(column);
+		ib_fprintf(out_file, "%s", variable);
+		if (based_on->bas_flags & BAS_segment) {
+			if (*variable != '*')
+				ib_fprintf(out_file, "[%d]", length);
+		}
+		else if (field->fld_array_info) {
+			/*  Print out the dimension part of the declaration  */
+
+			for (dimension = field->fld_array_info->ary_dimension; dimension;
+				 dimension = dimension->dim_next)
+				ib_fprintf(out_file, " [%d]",
+						   dimension->dim_upper - dimension->dim_lower + 1);
+
+			if (field->fld_array_info->ary_dtype <= dtype_varying &&
+				field->fld_length > 1)
+				ib_fprintf(out_file, " [%d]", field->fld_array->fld_length);
+		}
+		else
+			if (*variable != '*' &&
+				field->fld_dtype <= dtype_varying &&
+				(field->fld_sub_type != 1 || field->fld_length > 1))
+// *???????
+// if (*variable != '*' && field->fld_dtype <= dtype_varying &&
+//    field->fld_length > 1)
+//  
+			ib_fprintf(out_file, "[%d]", field->fld_length);
+	}
+
+	ib_fprintf(out_file, "%s\n", based_on->bas_terminator);
+}
+
+
+//____________________________________________________________
+//  
+//		Make a blob FOR loop.
+//  
+
+static void gen_blob_close( ACT action, USHORT column)
+{
+	BLB blob;
+	PAT args;
+	TEXT *pattern1 = "isc_%IFcancel%ELclose%EN_blob (%V1, &%BH);";
+
+	if (action->act_error)
+		BEGIN;
+
+	if (action->act_flags & ACT_sql) {
+		column = gen_cursor_close(action, action->act_request, column);
+		blob = (BLB) action->act_request->req_blobs;
+	}
+	else
+		blob = (BLB) action->act_object;
+
+	args.pat_blob = blob;
+	args.pat_vector1 = status_vector(action);
+	args.pat_condition = action->act_type == ACT_blob_cancel;
+	PATTERN_expand(column, pattern1, &args);
+
+	if (action->act_flags & ACT_sql) {
+		END;
+		column -= INDENT;
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		End a blob FOR loop.
+//  
+
+static void gen_blob_end( ACT action, USHORT column)
+{
+	BLB blob;
+	PAT args;
+	TEXT s1[32];
+	TEXT *pattern1 = "}\n\
+isc_close_blob (%V1, &%BH);\n\
+}";
+
+	args.pat_blob = blob = (BLB) action->act_object;
+	if (action->act_error) {
+		sprintf(s1, "%s2", status_name);
+		args.pat_vector1 = s1;
+	}
+	else
+		args.pat_vector1 = status_vector(0);
+	args.pat_condition = action->act_type == ACT_blob_cancel;
+	PATTERN_expand(column, pattern1, &args);
+}
+
+
+//____________________________________________________________
+//  
+//		Make a blob FOR loop.
+//  
+
+static void gen_blob_for( ACT action, USHORT column)
+{
+	PAT args;
+	TEXT *pattern1 = "%IFif (!%S1 [1]) {\n\
+%ENwhile (1)\n\
+   {";
+
+	gen_blob_open(action, column);
+	args.pat_condition = action->act_error != NULL;
+	args.pat_string1 = status_name;
+	PATTERN_expand(column, pattern1, &args);
+	column += INDENT;
+	gen_get_segment(action, column);
+	printa(column, "if (%s [1] && (%s [1] != isc_segment)) break;",
+		   status_name, status_name);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the call to open (or create) a blob.
+//  
+
+static void gen_blob_open( ACT action, USHORT column)
+{
+	BLB blob;
+	PAT args;
+	REF reference;
+	TEXT s[20];
+	TEXT *pattern1 =
+		"isc_%IFcreate%ELopen%EN_blob2 (%V1, &%DH, &%RT, &%BH, &%FR, (short) %N1, %I1);",
+		*pattern2 =
+		"isc_%IFcreate%ELopen%EN_blob2 (%V1, &%DH, &%RT, &%BH, &%FR, (short) 0, (char*) 0);";
+
+	if (sw_auto && (action->act_flags & ACT_sql)) {
+		t_start_auto(action, action->act_request, status_vector(action),
+					 column, TRUE);
+		printa(column, "if (%s)", request_trans(action, action->act_request));
+		column += INDENT;
+	}
+
+	if ((action->act_error && (action->act_type != ACT_blob_for)) ||
+		(action->act_flags & ACT_sql))
+		BEGIN;
+
+	if (action->act_flags & ACT_sql) {
+		column = gen_cursor_open(action, action->act_request, column);
+		blob = (BLB) action->act_request->req_blobs;
+		reference = ((OPN) action->act_object)->opn_using;
+		gen_name(s, reference, TRUE);
+	}
+	else {
+		blob = (BLB) action->act_object;
+		reference = blob->blb_reference;
+	}
+
+	args.pat_condition = action->act_type == ACT_blob_create;	/* open or create blob  */
+	args.pat_vector1 = status_vector(action);	/* status vector    */
+	args.pat_database = blob->blb_request->req_database;	/* database handle  */
+	args.pat_request = blob->blb_request;	/* transaction handle   */
+	args.pat_blob = blob;		/* blob handle      */
+	args.pat_reference = reference;	/* blob identifier  */
+	args.pat_ident1 = blob->blb_bpb_ident;
+
+	if ((action->act_flags & ACT_sql) && action->act_type == ACT_blob_open) {
+		align(column);
+		ib_fprintf(out_file, "%s = %s;", s, reference->ref_value);
+	}
+
+	if (args.pat_value1 = blob->blb_bpb_length)
+		PATTERN_expand(column, pattern1, &args);
+	else
+		PATTERN_expand(column, pattern2, &args);
+
+	if (action->act_flags & ACT_sql) {
+		END;
+		column -= INDENT;
+		END;
+		column -= INDENT;
+		END;
+		if (sw_auto)
+			column -= INDENT;
+		SET_SQLCODE;
+		if (action->act_type == ACT_blob_create) {
+			printa(column, "if (!SQLCODE)");
+			align(column + INDENT);
+			ib_fprintf(out_file, "%s = %s;", reference->ref_value, s);
+		}
+	}
+	else if ((action->act_error && (action->act_type != ACT_blob_for)))
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Callback routine for BLR pretty printer.
+//  
+
+static gen_blr( int *user_arg, int offset, TEXT * string)
+{
+	int indent, length;
+	TEXT *p, *q, *p1, *q1, c, d, line[256];
+	BOOLEAN open_quote, first_line;
+
+	first_line = TRUE;
+	indent = 2 * INDENT;
+	p = string;
+	while (*p == ' ') {
+		p++;
+		indent++;
+	}
+
+//  Limit indentation to 192 characters 
+
+	indent = MIN(indent, 192);
+
+	length = strlen(p);
+	do {
+		if (length + indent > 255) {
+			/* if we did not find somewhere to break between the 200th and 256th
+			   character just print out 256 characters */
+
+			for (q = p, open_quote = FALSE; (q - p + indent) < 255; q++) {
+				if ((q - p + indent) > 220 && *q == ',' && !open_quote)
+					break;
+				if (*q == '\'' && *(q - 1) != '\\')
+					open_quote = !open_quote;
+			}
+			c = *++q;
+			*q = 0;
+		}
+		else {
+			c = 0;
+			q = p + strlen(p);
+		}
+
+		/* Replace all occurrences of gds__ (or gds__) with isc_ */
+
+		for (q1 = line, p1 = p; *p1;)
+			if ((*q1++ = *p1++) == 'g')
+				if (*p1 && (*q1++ = *p1++) == 'd')
+					if (*p1 && (*q1++ = *p1++) == 's')
+						if (*p1 && (*q1++ = *p1++) == '_')
+							if (*p1 && ((d = *p1++) == '_' || d == '$'))
+								strncpy(q1 - 4, "isc", 3);
+							else
+								*q1++ = d;
+		*q1 = 0;
+		printa(indent, line);
+		*q = c;
+		length = length - (q - p);
+		p = q;
+		if (first_line) {
+			indent = MIN(indent + INDENT, 192);
+			first_line = FALSE;
+		}
+	} while (length > 0);
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Zap all know handles.
+//  
+
+static void gen_clear_handles( ACT action, int column)
+{
+	REQ request;
+
+	for (request = requests; request; request = request->req_next) {
+		if (!(request->req_flags & REQ_exp_hand))
+			printa(column, "%s = 0;", request->req_handle);
+		if (request->req_form_handle &&
+			!(request->req_flags & REQ_exp_form_handle))
+				printa(column, "%s = 0;", request->req_form_handle);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a symbol to ease compatibility with V3.
+//  
+
+static void gen_compatibility_symbol(
+									 TEXT * symbol,
+									 TEXT * v4_prefix, TEXT * trailer)
+{
+	TEXT *v3_prefix;
+
+	v3_prefix = (sw_language == lang_cxx) ? "gds_" : "gds__";
+
+	ib_fprintf(out_file, "#define %s%s\t%s%s%s\n", v3_prefix, symbol,
+			   v4_prefix, symbol, trailer);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile a request.
+//  
+
+static void gen_compile( ACT action, int column)
+{
+	REQ request;
+	DBB db;
+	BLB blob;
+	PAT args;
+	TEXT *pattern1 =
+		"isc_compile_request%IF2%EN (%V1, &%DH, &%RH, (short) sizeof (%RI), (char ISC_FAR *) %RI);",
+		*pattern2 = "if (!%RH%IF && %S1%EN)";
+
+	args.pat_request = request = action->act_request;
+	args.pat_database = db = request->req_database;
+	args.pat_vector1 = status_vector(action);
+	args.pat_string1 = request_trans(action, request);
+	args.pat_condition = (sw_auto
+						  && (action->act_error
+							  || (action->act_flags & ACT_sql)));
+
+	if (sw_auto)
+		t_start_auto(action, request, status_vector(action), column, TRUE);
+
+	PATTERN_expand((USHORT) column, pattern2, &args);
+
+	args.pat_condition = !(request->req_flags & REQ_exp_hand);
+	args.pat_value1 = request->req_length;
+	PATTERN_expand((USHORT) (column + INDENT), pattern1, &args);
+
+//  If blobs are present, zero out all of the blob handles.  After this
+//  point, the handles are the user's responsibility 
+
+	if (blob = request->req_blobs) {
+		ib_fprintf(out_file, "\n");
+		align(column - INDENT);
+		for (; blob; blob = blob->blb_next)
+			ib_fprintf(out_file, "isc_%d = ", blob->blb_ident);
+		ib_fprintf(out_file, "0;");
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to create a database.
+//  
+
+static void gen_create_database( ACT action, int column)
+{
+	REQ request;
+	DBB db;
+	PAT args;
+	TEXT *pattern1 =
+		"isc_create_database (%V1, %N1, \"%DF\", &%DH, %IF%S1, %S2%EL(short) 0, (char*) 0%EN, 0);";
+	TEXT s1[32], s2[32], trname[32];
+
+	request = ((MDBB) action->act_object)->mdbb_dpb_request;
+	db = (DBB) request->req_database;
+
+	sprintf(s1, "isc_%dl", request->req_ident);
+	sprintf(trname, "isc_%dt", request->req_ident);
+
+	if (request->req_flags & REQ_extend_dpb) {
+		sprintf(s2, "isc_%dp", request->req_ident);
+		if (request->req_length)
+			printa(column, "%s = isc_%d;", s2, request->req_ident);
+		else
+			printa(column, "%s = (char*) 0;", s2);
+
+		printa(column,
+			   "isc_expand_dpb (&%s, &%s, isc_dpb_user_name, %s, isc_dpb_password, %s, isc_dpb_sql_role_name, %s, isc_dpb_lc_messages, %s, isc_dpb_lc_ctype, %s, 0);",
+			   s2, s1,
+			   db->dbb_r_user ? db->dbb_r_user : "(char*) 0",
+			   db->dbb_r_password ? db->dbb_r_password : "(char*) 0",
+			   db->dbb_r_sql_role ? db->dbb_r_sql_role : "(char*) 0",
+			   db->dbb_r_lc_messages ? db->dbb_r_lc_messages : "(char*) 0",
+			   db->dbb_r_lc_ctype ? db->dbb_r_lc_ctype : "(char*) 0");
+	}
+	else
+		sprintf(s2, "isc_%d", request->req_ident);
+
+	args.pat_vector1 = status_vector(action);
+	args.pat_request = request;
+	args.pat_database = db;
+	args.pat_value1 = strlen(db->dbb_filename);
+	args.pat_condition = (request->req_length
+						  || (request->req_flags & REQ_extend_dpb));
+	args.pat_string1 = s1;
+	args.pat_string2 = s2;
+
+	PATTERN_expand((USHORT) column, pattern1, &args);
+
+//  if the dpb was extended, free it here 
+
+	if (request->req_flags & REQ_extend_dpb) {
+		if (request->req_length)
+			printa(column, "if (%s != isc_%d)", s2, request->req_ident);
+		printa(column + (request->req_length ? INDENT : 0), "isc_free (%s);",
+			   s2);
+
+		/* reset the length of the dpb */
+
+		printa(column, "%s = %d;", s1, request->req_length);
+	}
+
+	request = action->act_request;
+	printa(column, "if (!%s [1])", status_name);
+	column += INDENT;
+	BEGIN;
+	printa(column,
+		   "isc_start_transaction (%s, &%s, (short) 1, &%s, (short) 0, (char*) 0);",
+		   status_vector(action), trname, db->dbb_name->sym_string);
+	printa(column, "if (%s)", trname);
+	column += INDENT;
+	align(column);
+	ib_fprintf(out_file, "isc_ddl (%s, &%s, &%s, (short) %d, isc_%d);",
+			   status_vector(action),
+			   request->req_database->dbb_name->sym_string,
+			   trname, request->req_length, request->req_ident);
+	column -= INDENT;
+	printa(column, "if (!%s [1])", status_name);
+	printa(column + INDENT, "isc_commit_transaction (%s, &%s);",
+		   status_vector(action), trname);
+	printa(column, "if (%s [1])", status_name);
+	printa(column + INDENT, "isc_rollback_transaction (%s, &%s);",
+		   status_vector(NULL), trname);
+	SET_SQLCODE;
+	END;
+	printa(column - INDENT, "else");
+	SET_SQLCODE;
+	column -= INDENT;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STREAM.
+//  
+
+static gen_cursor_close( ACT action, REQ request, int column)
+{
+	PAT args;
+	TEXT *pattern1 =
+		"if (%RIs && !isc_dsql_free_statement (%V1, &%RIs, %N1))";
+
+	args.pat_request = request;
+	args.pat_vector1 = status_vector(action);
+	args.pat_value1 = 1;
+
+	PATTERN_expand((USHORT) column, pattern1, &args);
+	column += INDENT;
+	BEGIN;
+
+	return column;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to initialize a cursor.
+//  
+
+static void gen_cursor_init( ACT action, int column)
+{
+
+//  If blobs are present, zero out all of the blob handles.  After this
+//  point, the handles are the user's responsibility 
+
+	if (action->act_request->
+		req_flags & (REQ_sql_blob_open | REQ_sql_blob_create)) printa(column,
+																	  "isc_%d = 0;",
+																	  action->
+																	  act_request->
+																	  req_blobs->
+																	  blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to open an embedded SQL cursor.
+//  
+
+static gen_cursor_open( ACT action, REQ request, int column)
+{
+	PAT args;
+	TEXT s[64];
+	TEXT *pattern1 = "if (!%RIs && %RH%IF && %DH%EN)",
+		*pattern2 = "if (!%RIs%IF && %DH%EN)",
+		*pattern3 = "isc_dsql_alloc_statement2 (%V1, &%DH, &%RIs);",
+		*pattern4 = "if (%RIs%IF && %S3%EN)",
+		*pattern5 = "if (!isc_dsql_set_cursor_name (%V1, &%RIs, %S1, 0) &&",
+		*pattern6 =
+		"!isc_dsql_execute_m (%V1, &%S3, &%RIs, 0, %S2, %N2, 0, %S2))";
+
+	args.pat_request = request;
+	args.pat_database = request->req_database;
+	args.pat_vector1 = status_vector(action);
+	args.pat_condition = sw_auto && TRUE;
+	args.pat_string1 = make_name(s, ((OPN) action->act_object)->opn_cursor);
+	args.pat_string2 = NULL_STRING;
+	args.pat_string3 = request_trans(action, request);
+	args.pat_value2 = -1;
+
+	PATTERN_expand((USHORT) column,
+				   (action->act_type == ACT_open) ? pattern1 : pattern2,
+				   &args);
+	PATTERN_expand((USHORT) (column + INDENT), pattern3, &args);
+	PATTERN_expand((USHORT) column, pattern4, &args);
+	column += INDENT;
+	BEGIN;
+	PATTERN_expand((USHORT) column, pattern5, &args);
+	column += INDENT;
+	PATTERN_expand((USHORT) column, pattern6, &args);
+	BEGIN;
+
+	return column;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insertion text for the database statement.
+//  
+
+static void gen_database( ACT action, int column)
+{
+	DBB db;
+	REQ request;
+	TPB tpb;
+	TEXT *scope;
+	FORM form;
+	BOOLEAN all_static, all_extern;
+	SSHORT count, max_count;
+	LLS stack_ptr;
+	REF reference;
+	POR port;
+
+	if (first_flag++ != 0)
+		return;
+
+	ib_fprintf(out_file, "\n/**** GDS Preprocessor Definitions ****/\n");
+	ib_fprintf(out_file, "#ifndef JRD_IBASE_H\n#include %s\n#endif\n",
+			   GDS_INCLUDE);
+
+	printa(column, "static %sISC_QUAD", CONST_STR);
+	printa(column + INDENT,
+		   "isc_blob_null = {0,0};\t/* initializer for blobs */");
+
+	for (db = isc_databases; db; db = db->dbb_next)
+		for (form = db->dbb_forms; form; form = form->form_next)
+			printa(column, "static isc_form_handle %s;\t\t/* form %s */",
+				   form->form_handle, form->form_name->sym_string);
+
+	if (sw_language == lang_c)
+		printa(column,
+			   "static %slong *gds__null = 0;\t/* dummy status vector */",
+			   CONST_STR);
+
+	scope = "";
+
+	all_static = all_extern = TRUE;
+	for (db = isc_databases; db; db = db->dbb_next) {
+		all_static = all_static && (db->dbb_scope == DBB_STATIC);
+		all_extern = all_extern && (db->dbb_scope == DBB_EXTERN);
+		if (db->dbb_scope == DBB_STATIC)
+			scope = "static ";
+		else if (db->dbb_scope == DBB_EXTERN &&
+				 TRUE)
+			scope = "extern ";
+		printa(column, "%sisc_db_handle", scope);
+		if (!all_extern)
+			printa(column + INDENT, "%s = 0;\t\t/* database handle */\n",
+				   db->dbb_name->sym_string);
+		else
+			printa(column + INDENT, "%s;\t\t/* database handle */\n",
+				   db->dbb_name->sym_string);
+	}
+
+	if (all_static)
+		scope = "static ";
+	else if (all_extern)
+		scope = "extern ";
+
+	printa(column, "%sisc_tr_handle", scope);
+	if (!all_extern)
+		printa(column + INDENT, "%s = 0;\t\t/* default transaction handle */",
+			   transaction_name);
+	else
+		printa(column + INDENT, "%s;\t\t/* default transaction handle */",
+			   transaction_name);
+
+	printa(column, "%slong", scope);
+	column += INDENT;
+	printa(column, "%s [20],\t/* status vector */", status_name);
+	printa(column, "%s2 [20];\t/* status vector */", status_name);
+	printa(column - INDENT, "%s%s", scope, DCL_LONG);
+	printa(column, "isc_array_length, \t/* array return size */");
+	printa(column, "SQLCODE;\t\t/* SQL status code */");
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+//  Generate the default dpb to pass the users interpretation 
+
+	ib_fprintf(out_file, "\n");
+	printa(column - INDENT, "static short");
+	printa(column, "isc_dpb_size = %d;", default_dpb_size);
+	printa(column - INDENT, "static char");
+	printa(column, "isc_dpb [] = {");
+	column += INDENT;
+	PRETTY_print_cdb(default_dpb, gen_blr, 0, 0);
+	column -= INDENT;
+	printa(column, "}; \t\t\t/* default dpb */");
+	ib_fprintf(out_file, "\n");
+#endif
+
+	if (sw_pyxis)
+	{
+		if (sw_window_scope == DBB_STATIC)
+			scope = "static ";
+		else if (sw_window_scope == DBB_EXTERN)
+			scope = "extern ";
+		else
+			scope = "";
+		printa(column - INDENT,
+			   "%sisc_win_handle isc_window;\t/* window handle */", scope);
+		printa(column - INDENT, "%sshort", scope);
+		printa(column, "isc_width%s,\t/* window width */",
+			   (sw_window_scope == DBB_EXTERN) ? "" : " = 80");
+		printa(column, "isc_height%s;\t/* window height */",
+			   (sw_window_scope == DBB_EXTERN) ? "" : " = 24");
+	}
+
+	if (sw_dyn_using) {
+		printa(column - INDENT,
+			   "static struct isc_sqlda { /* SQLDA for internal use */");
+		printa(column, "char	sqldaid [8];");
+		printa(column, "%s	sqldabc;", DCL_LONG);
+		printa(column, "short	sqln;");
+		printa(column, "short	sqld;");
+		printa(column, "SQLVAR	sqlvar[%d];", sw_dyn_using);
+		printa(column, "}");
+	}
+
+	column -= INDENT;
+
+	for (db = isc_databases; db; db = db->dbb_next)
+		for (tpb = db->dbb_tpbs; tpb; tpb = tpb->tpb_dbb_next)
+			gen_tpb(tpb, column);
+
+//  generate event parameter block for each event in module 
+
+	max_count = 0;
+	for (stack_ptr = events; stack_ptr; stack_ptr = stack_ptr->lls_next) {
+		count = gen_event_block((ACT) (stack_ptr->lls_object));
+		max_count = MAX(count, max_count);
+	}
+
+	if (max_count)
+		printa(column, "%s%s isc_events [%d];\t/* event vector */", scope,
+			   DCL_LONG, max_count);
+
+	for (request = requests; request; request = request->req_next) {
+		gen_request(request);
+
+		/*  Array declarations  */
+
+		if (port = request->req_primary)
+			for (reference = port->por_references; reference;
+				 reference = reference->ref_next)
+					if (reference->ref_flags & REF_fetch_array)
+						make_array_declaration(reference);
+	}
+
+	ib_fprintf(out_file, "\n\n");
+	gen_compatibility_symbol("blob_null", "isc_",
+							 "\t/* compatibility symbols */");
+// ****
+//gen_compatibility_symbol ("database", "isc_", "");
+//gen_compatibility_symbol ("trans", "isc_", "");
+//***
+	gen_compatibility_symbol("status", "isc_", "");
+	gen_compatibility_symbol("status2", "isc_", "");
+	gen_compatibility_symbol("array_length", "isc_", "");
+	if (max_count)
+		gen_compatibility_symbol("events", "isc_", "");
+	if (sw_pyxis) {
+		gen_compatibility_symbol("window", "isc_", "");
+		gen_compatibility_symbol("height", "isc_", "");
+		gen_compatibility_symbol("width", "isc_", "");
+	}
+	gen_compatibility_symbol("count", "isc_", "");
+	gen_compatibility_symbol("slack", "isc_", "");
+	gen_compatibility_symbol("utility", "isc_",
+							 "\t/* end of compatibility symbols */");
+
+	ib_fprintf(out_file, "\n#ifndef isc_version4\n");
+	ib_fprintf(out_file, "    Generate a compile-time error.\n");
+	ib_fprintf(out_file,
+			   "    Picking up a V3 include file after preprocessing with V4 GPRE.\n");
+	ib_fprintf(out_file, "#endif\n");
+	ib_fprintf(out_file, "\n/**** end of GPRE definitions ****/\n");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to update metadata.
+//  
+
+static void gen_ddl( ACT action, int column)
+{
+	REQ request;
+
+//  Set up command type for call to RDB$DDL 
+
+	request = action->act_request;
+
+	if (sw_auto) {
+		t_start_auto(action, 0, status_vector(action), column, TRUE);
+		printa(column, "if (%s)", transaction_name);
+		column += INDENT;
+	}
+
+	align(column);
+	ib_fprintf(out_file, "isc_ddl (%s, &%s, &%s, (short) %d, isc_%d);",
+			   status_vector(action),
+			   request->req_database->dbb_name->sym_string,
+			   transaction_name, request->req_length, request->req_ident);
+
+	if (sw_auto) {
+		column -= INDENT;
+		printa(column, "if (!%s [1])", status_name);
+		printa(column + INDENT, "isc_commit_transaction (%s, &%s);",
+			   status_vector(action), transaction_name);
+		printa(column, "if (%s [1])", status_name);
+		printa(column + INDENT, "isc_rollback_transaction (%s, &%s);",
+			   status_vector(NULL), transaction_name);
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to create a database.
+//  
+
+static void gen_drop_database( ACT action, int column)
+{
+	DBB db;
+
+	db = (DBB) action->act_object;
+	align(column);
+
+	ib_fprintf(out_file,
+			   "isc_drop_database (%s, %d, \"%s\", rdb$k_db_type_gds);",
+			   status_vector(action),
+			   strlen(db->dbb_filename), db->dbb_filename);
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_close( ACT action, int column)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "isc_embed_dsql_close (%s, %s);",
+		   status_name, make_name(s, statement->dyn_cursor_name));
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_declare( ACT action, int column)
+{
+	DYN statement;
+	TEXT s1[64], s2[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "isc_embed_dsql_declare (%s, %s, %s);",
+		   status_name,
+		   make_name(s1, statement->dyn_statement_name),
+		   make_name(s2, statement->dyn_cursor_name));
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_describe( ACT action, int column, BOOLEAN bind_flag)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "isc_embed_dsql_describe%s (%s, %s, %d, %s);",
+		   bind_flag ? "_bind" : "",
+		   status_name,
+		   make_name(s, statement->dyn_statement_name),
+		   sw_sql_dialect, statement->dyn_sqlda);
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_execute( ACT action, int column)
+{
+
+	DYN statement = (DYN) action->act_object;
+	TEXT *transaction;
+	TEXT s[64];
+	struct req *request, req_const;
+
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = transaction_name;
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		t_start_auto(action, request, status_vector(action), column, TRUE);
+		printa(column, "if (%s)", transaction);
+		column += INDENT;
+	}
+
+	if (statement->dyn_sqlda2)
+		printa(column,
+			   "isc_embed_dsql_execute2 (%s, &%s, %s, %d, %s, %s);",
+			   status_name,
+			   transaction,
+			   make_name(s, statement->dyn_statement_name),
+			   sw_sql_dialect,
+			   (statement->dyn_sqlda) ? statement->dyn_sqlda : NULL_STRING,
+			   statement->dyn_sqlda2);
+	else
+		printa(column,
+			   "isc_embed_dsql_execute (%s, &%s, %s, %d, %s);",
+			   status_name,
+			   transaction,
+			   make_name(s, statement->dyn_statement_name),
+			   sw_sql_dialect,
+			   (statement->dyn_sqlda) ? statement->dyn_sqlda : NULL_STRING);
+
+	if (sw_auto)
+		column -= INDENT;
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_fetch( ACT action, int column)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "SQLCODE = isc_embed_dsql_fetch (%s, %s, %d, %s);",
+		   status_name,
+		   make_name(s, statement->dyn_cursor_name),
+		   sw_sql_dialect,
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : NULL_SQLDA);
+
+	printa(column, "if (SQLCODE != 100) SQLCODE = isc_sqlcode (%s);",
+		   status_name);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for an EXECUTE IMMEDIATE dynamic SQL statement.
+//  
+
+static void gen_dyn_immediate( ACT action, int column)
+{
+	DYN statement;
+	DBB database;
+	TEXT *transaction;
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	database = statement->dyn_database;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = transaction_name;
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		t_start_auto(action, request, status_vector(action), column, TRUE);
+		printa(column, "if (%s)", transaction);
+		column += INDENT;
+	}
+
+	printa(column,
+		   (statement->dyn_sqlda2) ?
+		   "isc_embed_dsql_execute_immed2 (%s, &%s, &%s, 0, %s, %d, %s, %s);"
+		   : "isc_embed_dsql_execute_immed (%s, &%s, &%s, 0, %s, %d, %s);",
+		   status_name, database->dbb_name->sym_string, transaction,
+		   statement->dyn_string, sw_sql_dialect,
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : NULL_SQLDA,
+		   (statement->dyn_sqlda2) ? statement->dyn_sqlda2 : NULL_SQLDA);
+
+	if (sw_auto)
+		column -= INDENT;
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_insert( ACT action, int column)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "isc_embed_dsql_insert (%s, %s, %d, %s);",
+		   status_name,
+		   make_name(s, statement->dyn_cursor_name),
+		   sw_sql_dialect,
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : NULL_SQLDA);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_open( ACT action, int column)
+{
+	DYN statement;
+	TEXT *transaction, s[64];
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = transaction_name;
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		t_start_auto(action, request, status_vector(action), column, TRUE);
+		printa(column, "if (%s)", transaction);
+		column += INDENT;
+	}
+
+	make_name(s, statement->dyn_cursor_name);
+
+	printa(column,
+		   (statement->dyn_sqlda2) ?
+		   "isc_embed_dsql_open2 (%s, &%s, %s, %d, %s, %s);" :
+		   "isc_embed_dsql_open (%s, &%s, %s, %d, %s);",
+		   status_name,
+		   transaction,
+		   s,
+		   sw_sql_dialect,
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : NULL_SQLDA,
+		   (statement->dyn_sqlda2) ? statement->dyn_sqlda2 : NULL_SQLDA);
+
+	if (sw_auto)
+		column -= INDENT;
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_prepare( ACT action, int column)
+{
+	DYN statement;
+	DBB database;
+	TEXT s[64], *transaction;
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	database = statement->dyn_database;
+
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = transaction_name;
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		t_start_auto(action, request, status_vector(action), column, TRUE);
+		printa(column, "if (%s)", transaction);
+		column += INDENT;
+	}
+
+	printa(column,
+		   "isc_embed_dsql_prepare (%s, &%s, &%s, %s, 0, %s, %d, %s);",
+		   status_name, database->dbb_name->sym_string, transaction,
+		   make_name(s, statement->dyn_statement_name), statement->dyn_string,
+		   sw_sql_dialect,
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : NULL_SQLDA);
+
+	if (sw_auto)
+		column -= INDENT;
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_MODIFY.
+//  
+//		Trickier because a fixed subtype single character
+//		field is a single character, not a pointer to a
+//		single character.
+//  
+
+static void gen_emodify( ACT action, int column)
+{
+	UPD modify;
+	REF reference, source;
+	FLD field;
+	TEXT s1[20], s2[20];
+
+	modify = (UPD) action->act_object;
+
+	for (reference = modify->upd_port->por_references; reference;
+		 reference = reference->ref_next) {
+		if (!(source = reference->ref_source))
+			continue;
+		field = reference->ref_field;
+		align(column);
+		gen_name(s1, source, TRUE);
+		gen_name(s2, reference, TRUE);
+		if (field->fld_dtype > dtype_cstring ||
+			(field->fld_sub_type == 1 && field->fld_length == 1))
+			ib_fprintf(out_file, "%s = %s;", s2, s1);
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+		else if (sw_cstring && !field->fld_sub_type)
+			ib_fprintf(out_file, "isc_vtov (%s, %s, %d);",
+					   s1, s2, field->fld_length);
+		else
+			ib_fprintf(out_file, "isc_ftof (%s, %d, %s, %d);",
+					   s1, field->fld_length, s2, field->fld_length);
+#else
+		/* To avoid chopping off a double byte kanji character in between
+		   the two bytes, generate calls to isc_ftof2 iscvtof2 and
+		   iscvtov2 wherever necessary */
+
+		else if (sw_cstring && !field->fld_sub_type)
+			ib_fprintf(out_file, "isc_vtov2 (%s, %s, %d, %d);",
+					   s1, s2, field->fld_length, sw_interp);
+		else
+			ib_fprintf(out_file, "isc_ftof2 (%s, %d, %s, %d, %d);",
+					   s1, field->fld_length, s2, field->fld_length,
+					   sw_interp);
+#endif
+		if (field->fld_array_info)
+			gen_get_or_put_slice(action, reference, FALSE, column);
+	}
+
+	gen_send(action, modify->upd_port, column);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STORE.
+//  
+
+static void gen_estore( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+
+//  if we did a store ... returning_values aka store2
+//  just wrap up pending error and return 
+
+	if (request->req_type == REQ_store2) {
+		if (action->act_error)
+			END;
+		return;
+	}
+
+	if (action->act_error)
+		column += INDENT;
+
+	align(column);
+	gen_start(action, request->req_primary, column, TRUE);
+
+	if (action->act_error)
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  
+
+static void gen_endfor( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	column += INDENT;
+
+	if (request->req_sync)
+		gen_send(action, request->req_sync, column);
+
+	END;
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for ERASE.
+//  
+
+static void gen_erase( ACT action, int column)
+{
+	UPD erase;
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		BEGIN;
+
+	erase = (UPD) action->act_object;
+	gen_send(action, erase->upd_port, column);
+
+	if (action->act_flags & ACT_sql)
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate event parameter blocks for use
+//		with a particular call to isc_event_wait.
+//  
+
+static SSHORT gen_event_block( ACT action)
+{
+	NOD init, list;
+	SYM event_name;
+	int ident;
+
+	init = (NOD) action->act_object;
+	event_name = (SYM) init->nod_arg[0];
+
+	ident = CMP_next_ident();
+	init->nod_arg[2] = (NOD) ident;
+
+	printa(0, "static %schar\n   *isc_%da, *isc_%db;", CONST_STR, ident,
+		   ident);
+	printa(0, "static short\n   isc_%dl;", ident);
+
+	list = init->nod_arg[1];
+	return list->nod_count;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for EVENT_INIT.
+//  
+
+static void gen_event_init( ACT action, int column)
+{
+	NOD init, event_list, *ptr, *end, node;
+	REF reference;
+	PAT args;
+	TEXT variable[20];
+	TEXT
+		* pattern1 =
+		"isc_%N1l = isc_event_block (&isc_%N1a, &isc_%N1b, (short) %N2",
+		*pattern2 =
+		"isc_wait_for_event (%V1, &%DH, isc_%N1l, isc_%N1a, isc_%N1b);",
+		*pattern3 =
+		"isc_event_counts (isc_events, isc_%N1l, isc_%N1a, isc_%N1b);";
+
+	if (action->act_error)
+		BEGIN;
+	BEGIN;
+
+	init = (NOD) action->act_object;
+	event_list = init->nod_arg[1];
+
+	args.pat_database = (DBB) init->nod_arg[3];
+	args.pat_vector1 = status_vector(action);
+	args.pat_value1 = (int) init->nod_arg[2];
+	args.pat_value2 = (int) event_list->nod_count;
+
+//  generate call to dynamically generate event blocks 
+
+	PATTERN_expand((USHORT) column, pattern1, &args);
+
+	for (ptr = event_list->nod_arg, end = ptr + event_list->nod_count;
+		 ptr < end; ptr++) {
+		node = *ptr;
+		if (node->nod_type == nod_field) {
+			reference = (REF) node->nod_arg[0];
+			gen_name(variable, reference, TRUE);
+			printb(", %s", variable);
+		}
+		else
+			printb(", %s", node->nod_arg[0]);
+	}
+
+	printb(");");
+
+//  generate actual call to event_wait 
+
+	PATTERN_expand((USHORT) column, pattern2, &args);
+
+//  get change in event counts, copying event parameter block for reuse 
+
+	PATTERN_expand((USHORT) column, pattern3, &args);
+
+	if (action->act_error)
+		END;
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for EVENT_WAIT.
+//  
+
+static void gen_event_wait( ACT action, int column)
+{
+	PAT args;
+	NOD event_init;
+	SYM event_name, stack_name;
+	DBB database;
+	LLS stack_ptr;
+	ACT event_action;
+	int ident;
+	TEXT s[64];
+	TEXT
+		* pattern1 =
+		"isc_wait_for_event (%V1, &%DH, isc_%N1l, isc_%N1a, isc_%N1b);",
+		*pattern2 =
+		"isc_event_counts (isc_events, isc_%N1l, isc_%N1a, isc_%N1b);";
+
+	if (action->act_error)
+		BEGIN;
+	BEGIN;
+
+	event_name = (SYM) action->act_object;
+
+//  go through the stack of events, checking to see if the
+//  event has been initialized and getting the event identifier 
+
+	ident = -1;
+	for (stack_ptr = events; stack_ptr; stack_ptr = stack_ptr->lls_next) {
+		event_action = (ACT) stack_ptr->lls_object;
+		event_init = (NOD) event_action->act_object;
+		stack_name = (SYM) event_init->nod_arg[0];
+		if (!strcmp(event_name->sym_string, stack_name->sym_string)) {
+			ident = (int) event_init->nod_arg[2];
+			database = (DBB) event_init->nod_arg[3];
+		}
+	}
+
+	if (ident < 0) {
+		sprintf(s, "event handle \"%s\" not found", event_name->sym_string);
+		IBERROR(s);
+		return;
+	}
+
+	args.pat_database = database;
+	args.pat_vector1 = status_vector(action);
+	args.pat_value1 = (int) ident;
+
+//  generate calls to wait on the event and to fill out the events array 
+
+	PATTERN_expand((USHORT) column, pattern1, &args);
+	PATTERN_expand((USHORT) column, pattern2, &args);
+
+	if (action->act_error)
+		END;
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate replacement text for the SQL FETCH statement.  The
+//		epilog FETCH statement is handled by GEN_S_FETCH (generate
+//		stream fetch).
+//  
+
+static void gen_fetch( ACT action, int column)
+{
+	REQ request;
+	NOD var_list;
+	int i;
+	TEXT s[20];
+
+#ifdef SCROLLABLE_CURSORS
+	POR port;
+	SCHAR *direction;
+	SCHAR *offset;
+	VAL value;
+	REF reference;
+#endif
+
+	request = action->act_request;
+
+#ifdef SCROLLABLE_CURSORS
+	if (port = request->req_aport) {
+		/* set up the reference to point to the correct value 
+		   in the linked list of values, and prepare for the 
+		   next FETCH statement if applicable */
+
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) {
+			value = reference->ref_values;
+			reference->ref_value = value->val_value;
+			reference->ref_values = value->val_next;
+		}
+
+		/* find the direction and offset parameters */
+
+		reference = port->por_references;
+		offset = reference->ref_value;
+		reference = reference->ref_next;
+		direction = reference->ref_value;
+
+		/* the direction in which the engine will scroll is sticky, so check to see 
+		   the last direction passed to the engine; if the direction is the same and 
+		   the offset is 1, then there is no need to pass the message; this prevents 
+		   extra packets and allows for batch fetches in either direction */
+
+		printa(column, "if (isc_%ddirection %% 2 != %s || %s != 1)",
+			   request->req_ident, direction, offset);
+		column += INDENT;
+		BEGIN;
+
+		/* assign the direction and offset parameters to the appropriate message, 
+		   then send the message to the engine */
+
+		asgn_from(action, port->por_references, column);
+		gen_send(action, port, column);
+		printa(column, "isc_%ddirection = %s;", request->req_ident,
+			   direction);
+		column -= INDENT;
+		END;
+
+		printa(column, "if (!SQLCODE)");
+		column += INDENT;
+		BEGIN;
+	}
+#endif
+
+	if (request->req_sync) {
+		gen_send(action, request->req_sync, column);
+		printa(column, "if (!SQLCODE)");
+		column += INDENT;
+		BEGIN;
+	}
+
+	gen_receive(action, column, request->req_primary);
+	printa(column, "if (!SQLCODE)");
+	column += INDENT;
+	printa(column, "if (%s)", gen_name(s, request->req_eof, TRUE));
+	column += INDENT;
+	BEGIN;
+
+	if (var_list = (NOD) action->act_object)
+		for (i = 0; i < var_list->nod_count; i++) {
+			align(column);
+			asgn_to(action, (REF) (var_list->nod_arg[i]), column);
+		}
+	END;
+	printa(column - INDENT, "else");
+	printa(column, "SQLCODE = 100;");
+
+	if (request->req_sync) {
+		column -= INDENT;
+		END;
+	}
+
+#ifdef SCROLLABLE_CURSORS
+	if (port) {
+		column -= INDENT;
+		END;
+	}
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FINISH
+//  
+
+static void gen_finish( ACT action, int column)
+{
+	DBB db;
+	RDY ready;
+	PAT args;
+	TEXT *pattern1 = "if (%S2)\n\
+    isc_%S1_transaction (%V1, &%S2);";
+
+	args.pat_vector1 = status_vector(action);
+	args.pat_string2 = transaction_name;
+
+	if (sw_auto || ((action->act_flags & ACT_sql) &&
+					(action->act_type != ACT_disconnect))) {
+		args.pat_string1 =
+			(action->act_type != ACT_rfinish) ? "commit" : "rollback";
+		PATTERN_expand((USHORT) column, pattern1, &args);
+	}
+
+	db = NULL;
+
+//  the user supplied one or more db_handles 
+
+	for (ready = (RDY) action->act_object; ready; ready = ready->rdy_next) {
+		db = ready->rdy_database;
+		printa(column, "isc_detach_database (%s, &%s);",
+			   status_vector(action), db->dbb_name->sym_string);
+	}
+//  no hanbdles, so we finish all known databases 
+
+	if (!db)
+		for (db = isc_databases; db; db = db->dbb_next) {
+			if ((action->act_error || (action->act_flags & ACT_sql)) &&
+				(db != isc_databases))
+					printa(column, "if (%s && !%s [1]) ",
+						   db->dbb_name->sym_string, status_name);
+			else
+				printa(column, "if (%s)", db->dbb_name->sym_string);
+			printa(column + INDENT, "isc_detach_database (%s, &%s);",
+				   status_vector(action), db->dbb_name->sym_string);
+		}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FOR statement.
+//  
+
+static void gen_for( ACT action, int column)
+{
+	POR port;
+	REQ request;
+	TEXT s[20];
+	REF reference;
+
+	gen_s_start(action, column);
+	request = action->act_request;
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(column, "if (!%s [1]) {", status_name);
+
+	printa(column, "while (1)");
+	column += INDENT;
+	BEGIN;
+	gen_receive(action, column, request->req_primary);
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(column, "if (!%s || %s [1]) break;",
+			   gen_name(s, request->req_eof, TRUE), status_name);
+	else
+		printa(column, "if (!%s) break;",
+			   gen_name(s, request->req_eof, TRUE));
+
+	if (port = action->act_request->req_primary)
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, TRUE, column);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form interaction.
+//  
+
+static void gen_form_display( ACT action, int column)
+{
+	FINT display;
+	REQ request;
+	REF reference, master;
+	POR port;
+	DBB dbb;
+	TEXT s[32], *status, out[16];
+	int code;
+
+	display = (FINT) action->act_object;
+	request = display->fint_request;
+	dbb = request->req_database;
+	port = request->req_ports;
+	status = (action->act_error) ? status_name : NULL_STATUS;
+
+//  Initialize field options 
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next)
+			if ((master = reference->ref_master) &&
+				(code = CMP_display_code(display, master)) >= 0)
+			printa(column, "%s = %d;", gen_name(s, reference, TRUE), code);
+
+	if (display->fint_flags & FINT_no_wait)
+		strcpy(out, NULL_STRING);
+	else
+		sprintf(out, "&isc_%d", port->por_ident);
+
+	align(column);
+	ib_fprintf(out_file,
+			   "isc_drive_form (%s, &%s, &%s, &isc_window, &%s, &isc_%d, %s);",
+			   status,
+			   dbb->dbb_name->sym_string,
+			   request->req_trans, request->req_handle, port->por_ident, out);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form block.
+//  
+
+static void gen_form_end( ACT action, int column)
+{
+
+	printa(column, "isc_pop_window (%s, &isc_window);",
+		   status_vector(action));
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form block.
+//  
+
+static void gen_form_for( ACT action, int column)
+{
+	REQ request;
+	FORM form;
+	TEXT *status;
+	DBB dbb;
+
+	column += INDENT;
+	request = action->act_request;
+	form = request->req_form;
+	dbb = request->req_database;
+	status = (action->act_error) ? status_name : NULL_STATUS;
+
+//  Get database attach and transaction started 
+
+	if (sw_auto)
+		t_start_auto(action, 0, status_vector(action), column, TRUE);
+
+//  Get form loaded first 
+
+	printa(column, "if (!%s)", request->req_form_handle);
+	printa(column + INDENT,
+		   "isc_load_form (%s, &%s, &%s, &%s, (short*) 0, \"%s\");", status,
+		   dbb->dbb_name->sym_string, request->req_trans,
+		   request->req_form_handle, form->form_name->sym_string);
+
+//  Get map compiled 
+
+	printa(column, "if (!%s)", request->req_handle);
+	printa(column + INDENT,
+		   "isc_compile_map (%s, &%s, &%s, &isc_%dl, isc_%d);", status,
+		   request->req_form_handle, request->req_handle, request->req_ident,
+		   request->req_ident);
+
+//  Reset form to known state 
+
+	printa(column, "isc_reset_form (%s, &%s);", status, request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a function for free standing ANY or statistical.
+//  
+
+static void gen_function( ACT function, int column)
+{
+	REQ request;
+	POR port;
+	REF reference;
+	FLD field;
+	ACT action;
+	TEXT *dtype, s[64];
+
+	action = (ACT) function->act_object;
+
+	if (action->act_type != ACT_any) {
+		IBERROR("can't generate function");
+		return;
+	}
+
+	request = action->act_request;
+
+	ib_fprintf(out_file, "static %s_r (request, transaction",
+			   request->req_handle, request->req_handle, request->req_trans);
+
+	if (port = request->req_vport)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next)
+				ib_fprintf(out_file, ", %s",
+						   gen_name(s, reference->ref_source, TRUE));
+
+	ib_fprintf(out_file,
+			   ")\n    isc_req_handle\trequest;\n    isc_tr_handle\ttransaction;\n",
+			   request->req_handle, request->req_trans);
+
+	if (port)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) {
+			field = reference->ref_field;
+			switch (field->fld_dtype) {
+			case dtype_short:
+				dtype = "short";
+				break;
+
+			case dtype_long:
+				dtype = DCL_LONG;
+				break;
+
+			case dtype_cstring:
+			case dtype_text:
+				dtype = "char*";
+				break;
+
+			case dtype_quad:
+				dtype = DCL_QUAD;
+				break;
+
+// ** Begin date/time/timestamp *
+			case dtype_sql_date:
+				dtype = "ISC_DATE";
+				break;
+
+			case dtype_sql_time:
+				dtype = "ISC_TIME";
+				break;
+
+			case dtype_timestamp:
+				dtype = "ISC_TIMESTAMP";
+				break;
+// ** End date/time/timestamp *
+
+			case dtype_int64:
+				dtype = "ISC_INT64";
+				break;
+
+			case dtype_blob:
+				dtype = "ISC_QUAD";
+				break;
+
+			case dtype_real:
+				dtype = "float";
+				break;
+
+			case dtype_double:
+				dtype = "double";
+				break;
+
+			default:
+				IBERROR("gen_function: unsupported datatype");
+				return;
+			}
+			ib_fprintf(out_file, "    %s\t%s;\n", dtype,
+					   gen_name(s, reference->ref_source, TRUE));
+		}
+
+	ib_fprintf(out_file, "{\n");
+	for (port = request->req_ports; port; port = port->por_next)
+		make_port(port, column);
+
+	ib_fprintf(out_file, "\n\n");
+	gen_s_start(action, 0);
+	gen_receive(action, column, request->req_primary);
+
+	for (port = request->req_ports; port; port = port->por_next)
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, TRUE, column);
+
+	port = request->req_primary;
+	ib_fprintf(out_file, "\nreturn %s;\n}\n",
+			   gen_name(s, port->por_references, TRUE));
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to isc_get_slice
+//       or isc_put_slice for an array.
+//  
+
+static void gen_get_or_put_slice(
+								 ACT action,
+								 REF reference, BOOLEAN get, int column)
+{
+	PAT args;
+	TEXT s1[25], s2[10], s4[10];
+	TEXT *pattern1 =
+		"isc_get_slice (%V1, &%DH, &%RT, &%S2, (short) %N1, (char ISC_FAR *) %S3, 0, (%S6*) 0, (%S6) %L1, %S5, &isc_array_length);";
+	TEXT *pattern2 =
+		"isc_put_slice (%V1, &%DH, &%RT, &%S2, (short) %N1, (char ISC_FAR *) %S3, 0, (%S6*) 0, (%S6) %L1, (void ISC_FAR *)%S5);";
+
+	if (!(reference->ref_flags & REF_fetch_array))
+		return;
+
+	args.pat_request = action->act_request;
+	args.pat_condition = get;	/* get or put slice */
+	args.pat_vector1 = status_vector(action);	/* status vector */
+	args.pat_database = action->act_request->req_database;	/* database handle */
+	gen_name(s1, reference, TRUE);	/* blob handle */
+	args.pat_string2 = s1;
+	args.pat_value1 = reference->ref_sdl_length;	/* slice description length */
+	sprintf(s2, "isc_%d", reference->ref_sdl_ident);	/* slice description */
+	args.pat_string3 = s2;
+
+	args.pat_long1 = reference->ref_field->fld_array_info->ary_size;
+	/* slice size */
+
+	if (action->act_flags & ACT_sql)
+		args.pat_string5 = reference->ref_value;
+	else {
+		sprintf(s4, "isc_%d",
+				reference->ref_field->fld_array_info->ary_ident);
+		args.pat_string5 = s4;	/* array name */
+	}
+
+	args.pat_string6 = DCL_LONG;
+
+	PATTERN_expand((USHORT) column, (get) ? pattern1 : pattern2, &args);
+
+	SET_SQLCODE;
+	if (action->act_flags & ACT_sql)
+		gen_whenever(action->act_whenever, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the code to do a get segment.
+//  
+
+static void gen_get_segment( ACT action, int column)
+{
+	BLB blob;
+	PAT args;
+	REF into;
+	TEXT *pattern1 =
+		"%IF%S1 [1] = %ENisc_get_segment (%V1, &%BH, &%I1, (short) sizeof (%I2), %I2);";
+
+	if (action->act_error && (action->act_type != ACT_blob_for))
+		BEGIN;
+
+	if (action->act_flags & ACT_sql)
+		blob = (BLB) action->act_request->req_blobs;
+	else
+		blob = (BLB) action->act_object;
+
+	args.pat_blob = blob;
+	args.pat_vector1 = status_vector(action);
+	args.pat_condition = !(action->act_error
+						   || (action->act_flags & ACT_sql));
+	args.pat_ident1 = blob->blb_len_ident;
+	args.pat_ident2 = blob->blb_buff_ident;
+	args.pat_string1 = status_name;
+	PATTERN_expand((USHORT) column, pattern1, &args);
+
+	if (action->act_flags & ACT_sql) {
+		into = action->act_object;
+		SET_SQLCODE;
+		printa(column, "if (!SQLCODE || SQLCODE == 101)");
+		column += INDENT;
+		BEGIN;
+		align(column);
+		ib_fprintf(out_file, "isc_ftof (isc_%d, isc_%d, %s, isc_%d);",
+				   blob->blb_buff_ident, blob->blb_len_ident,
+				   into->ref_value, blob->blb_len_ident);
+		if (into->ref_null_value) {
+			align(column);
+			ib_fprintf(out_file, "%s = isc_%d;",
+					   into->ref_null_value, blob->blb_len_ident);
+		}
+		END;
+		column -= INDENT;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate end of block for PUT_ITEM and FOR_ITEM.
+//  
+
+static void gen_item_end( ACT action, int column)
+{
+	REQ request;
+	REF reference, master;
+	POR port;
+	DBB dbb;
+	TEXT s[32], *status;
+
+	request = action->act_request;
+	if (request->req_type == REQ_menu) {
+		gen_menu_item_end(action, column);
+		return;
+	}
+
+	if (action->act_pair->act_type == ACT_item_for) {
+		column += INDENT;
+		END;
+		return;
+	}
+
+	dbb = request->req_database;
+	port = request->req_ports;
+	status = (action->act_error) ? status_name : NULL_STATUS;
+
+//  Initialize field options 
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) if (master = reference->ref_master)
+			printa(column, "%s = %d;", gen_name(s, reference, TRUE),
+				   PYXIS_OPT_DISPLAY);
+
+	align(column);
+	ib_fprintf(out_file,
+			   "isc_form_insert (%s, &%s, &%s, &%s, &isc_%d);",
+			   status,
+			   dbb->dbb_name->sym_string,
+			   request->req_trans, request->req_handle, port->por_ident);
+}
+
+
+
+//____________________________________________________________
+//  
+//		Generate insert text for FOR_ITEM and PUT_ITEM.
+//  
+
+static void gen_item_for( ACT action, int column)
+{
+	REQ request, parent;
+	FORM form;
+	TEXT *status, index[30];
+
+	request = action->act_request;
+	if (request->req_type == REQ_menu) {
+		gen_menu_item_for(action, column);
+		return;
+	}
+
+	column += INDENT;
+	form = request->req_form;
+	parent = form->form_parent;
+
+	status = status_vector(action);
+
+//  Get map compiled 
+
+	printa(column, "if (!%s)", request->req_handle);
+	printa(column + INDENT,
+		   "isc_compile_sub_map (%s, &%s, &%s, &isc_%dl, isc_%d);", status,
+		   parent->req_handle, request->req_handle, request->req_ident,
+		   request->req_ident);
+
+	if (action->act_type != ACT_item_for)
+		return;
+
+//  Build stuff for item loop 
+
+	gen_name(index, request->req_index, TRUE);
+	printa(column, "for (%s = 1;; ++%s)", index, index);
+	column += INDENT;
+	BEGIN;
+	align(column);
+	ib_fprintf(out_file,
+			   "isc_form_fetch (%s, &%s, &%s, &%s, &isc_%d);",
+			   status,
+			   request->req_database->dbb_name->sym_string,
+			   request->req_trans,
+			   request->req_handle, request->req_ports->por_ident);
+	printa(column, "if (!%s) break;", index);
+}
+
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile and start a SQL command
+//  
+
+static void gen_loop( ACT action, int column)
+{
+	REQ request;
+	POR port;
+	TEXT name[20];
+
+	gen_s_start(action, column);
+	request = action->act_request;
+	port = request->req_primary;
+	printa(column, "if (!SQLCODE) ");
+	column += INDENT;
+	BEGIN;
+	gen_receive(action, column, port);
+	gen_name(name, port->por_references, TRUE);
+	printa(column, "if (!SQLCODE && !%s)", name);
+	printa(column + INDENT, "SQLCODE = 100;");
+	END;
+	column -= INDENT;
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static void gen_menu( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	printa(column,
+		   "switch (isc_menu (%s, &isc_window, &%s, &isc_%dl, isc_%d))",
+		   status_vector(action), request->req_handle, request->req_ident,
+		   request->req_ident);
+	printa(column + INDENT, "{");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a menu interaction.
+//  
+
+static void gen_menu_display( ACT action, int column)
+{
+	MENU menu;
+	REQ request, display_request;
+
+	request = action->act_request;
+	display_request = (REQ) action->act_object;
+
+	menu = NULL;
+
+	for (action = request->req_actions; action; action = action->act_next)
+		if (action->act_type == ACT_menu_for) {
+			menu = (MENU) action->act_object;
+			break;
+		}
+
+	printa(column,
+		   "isc_drive_menu (%s, &isc_window, &%s, &isc_%dl, isc_%d, &isc_%dl, isc_%d,",
+		   status_vector(action),
+		   request->req_handle,
+		   display_request->req_ident,
+		   display_request->req_ident, menu->menu_title, menu->menu_title);
+
+	printa(column,
+		   "\t\t&isc_%d, &isc_%dl, isc_%d, &isc_%d);",
+		   menu->menu_terminator,
+		   menu->menu_entree_entree,
+		   menu->menu_entree_entree, menu->menu_entree_value);
+
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static void gen_menu_entree( ACT action, int column)
+{
+
+	if (!(action->act_flags & ACT_first_entree))
+		printa(column + INDENT, "break;");
+
+	printa(column, "case %d:", action->act_count);
+}
+
+
+//____________________________________________________________
+//  
+//  
+//    Generate code for a reference to a menu or entree attribute.
+
+static void gen_menu_entree_att( ACT action, int column)
+{
+	MENU menu;
+	SSHORT ident, length;
+
+	menu = (MENU) action->act_object;
+
+	length = FALSE;
+	switch (action->act_type) {
+	case ACT_entree_text:
+		ident = menu->menu_entree_entree;
+		break;
+	case ACT_entree_length:
+		ident = menu->menu_entree_entree;
+		length = TRUE;
+		break;
+	case ACT_entree_value:
+		ident = menu->menu_entree_value;
+		break;
+	case ACT_title_text:
+		ident = menu->menu_title;
+		break;
+	case ACT_title_length:
+		ident = menu->menu_title;
+		length = TRUE;
+		break;
+	case ACT_terminator:
+		ident = menu->menu_terminator;
+		break;
+	default:
+		ident = -1;
+		break;
+	}
+
+	if (length)
+		printa(column, "isc_%dl", ident);
+	else
+		printa(column, "isc_%d", ident);
+
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static void gen_menu_end( ACT action, int column)
+{
+
+	if (!(action->act_request->req_flags & REQ_menu_for))
+		printa(column + INDENT, "break;");
+	END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a menu block.
+//  
+
+static void gen_menu_for( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+
+//  Get menu created 
+
+	if (!(request->req_flags & REQ_exp_hand))
+		printa(column, "isc_initialize_menu (%s, &%s);",
+			   status_vector(action), request->req_handle);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate end of block for PUT_ITEM and FOR_ITEM
+//		for a dynamic menu.
+//  
+
+static void gen_menu_item_end( ACT action, int column)
+{
+	REQ request;
+	ENTREE entree;
+
+	if (action->act_pair->act_type == ACT_item_for) {
+		column += INDENT;
+		END;
+		return;
+	}
+
+	entree = (ENTREE) action->act_pair->act_object;
+	request = entree->entree_request;
+
+	align(column);
+	ib_fprintf(out_file,
+			   "isc_put_entree (%s, &%s, &isc_%dl, isc_%d, &isc_%d);",
+			   status_vector(action),
+			   request->req_handle,
+			   entree->entree_entree,
+			   entree->entree_entree, entree->entree_value);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insert text for FOR_ITEM and PUT_ITEM
+//		for a dynamic menu.
+//  
+
+static void gen_menu_item_for( ACT action, int column)
+{
+	ENTREE entree;
+	REQ request;
+
+	if (action->act_type != ACT_item_for)
+		return;
+
+//  Build stuff for item loop 
+
+	entree = (ENTREE) action->act_object;
+	request = entree->entree_request;
+
+	printa(column, "while (1)");
+	column += INDENT;
+	BEGIN;
+	align(column);
+	printa(column,
+		   "isc_get_entree (%s, &%s, &isc_%dl, isc_%d, &isc_%d, &isc_%d);",
+		   status_vector(action), request->req_handle, entree->entree_entree,
+		   entree->entree_entree, entree->entree_value, entree->entree_end);
+
+	printa(column, "if (isc_%d) break;", entree->entree_end);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a dynamic menu request.
+//  
+
+static void gen_menu_request( REQ request)
+{
+	ACT action;
+	MENU menu;
+	ENTREE entree;
+
+	menu = NULL;
+	entree = NULL;
+
+	for (action = request->req_actions; action; action = action->act_next) {
+		if (action->act_type == ACT_menu_for) {
+			menu = (MENU) action->act_object;
+			break;
+		}
+		else if (action->act_type == ACT_item_for
+				 || action->act_type == ACT_item_put) {
+			entree = (ENTREE) action->act_object;
+			break;
+		}
+	}
+
+	if (menu) {
+		menu->menu_title = CMP_next_ident();
+		menu->menu_terminator = CMP_next_ident();
+		menu->menu_entree_value = CMP_next_ident();
+		menu->menu_entree_entree = CMP_next_ident();
+		printa(0, "static short isc_%dl;\t\t/* TITLE_LENGTH */",
+			   menu->menu_title);
+		printa(0, "static char isc_%d [81];\t\t/* TITLE_TEXT */",
+			   menu->menu_title);
+		printa(0, "static short isc_%d;\t\t/* TERMINATOR */",
+			   menu->menu_terminator);
+		printa(0, "static short isc_%dl;\t\t/* ENTREE_LENGTH */",
+			   menu->menu_entree_entree);
+		printa(0, "static char isc_%d [81];\t/* ENTREE_TEXT */",
+			   menu->menu_entree_entree);
+		printa(0, "static %s isc_%d;\t\t/* ENTREE_VALUE */\n",
+			   DCL_LONG, menu->menu_entree_value);
+	}
+
+	if (entree) {
+		entree->entree_entree = CMP_next_ident();
+		entree->entree_value = CMP_next_ident();
+		entree->entree_end = CMP_next_ident();
+		printa(0, "static short isc_%dl;\t\t/* ENTREE_LENGTH */",
+			   entree->entree_entree);
+		printa(0, "static char isc_%d [81];\t/* ENTREE_TEXT */",
+			   entree->entree_entree);
+		printa(0, "static %s isc_%d;\t\t/* ENTREE_VALUE */",
+			   DCL_LONG, entree->entree_value);
+		if (request->req_flags & REQ_menu_for_item)
+			printa(0, "static short isc_%d;\t\t/* ENTREE_END */\n",
+				   entree->entree_end);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a name for a reference.  Name is constructed from
+//		port and parameter idents.
+//  
+
+static TEXT *gen_name( char *string, REF reference, BOOLEAN as_blob)
+{
+
+	if (reference->ref_field->fld_array_info && !as_blob)
+		sprintf(string, "isc_%d",
+				reference->ref_field->fld_array_info->ary_ident);
+	else if (reference->ref_port)
+		sprintf(string, "isc_%d.isc_%d",
+				reference->ref_port->por_ident, reference->ref_ident);
+	else
+		sprintf(string, "isc_%d", reference->ref_ident);
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a block to handle errors.
+//  
+
+static void gen_on_error( ACT action, USHORT column)
+{
+	ACT err_action;
+
+	err_action = (ACT) action->act_object;
+	if ((err_action->act_type == ACT_get_segment) ||
+		(err_action->act_type == ACT_put_segment) ||
+		(err_action->act_type == ACT_endblob))
+			printa(column,
+				   "if (%s [1] && (%s [1] != isc_segment) && (%s [1] != isc_segstr_eof))",
+				   status_name, status_name, status_name);
+	else
+		printa(column, "if (%s [1])", status_name);
+	column += INDENT;
+	BEGIN;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for an EXECUTE PROCEDURE.
+//  
+
+static void gen_procedure( ACT action, int column)
+{
+	PAT args;
+	TEXT *pattern;
+	REQ request;
+	POR in_port, out_port;
+	DBB dbb;
+
+	column += INDENT;
+	request = action->act_request;
+	in_port = request->req_vport;
+	out_port = request->req_primary;
+
+	dbb = request->req_database;
+	args.pat_database = dbb;
+	args.pat_request = action->act_request;
+	args.pat_vector1 = status_vector(action);
+	args.pat_request = request;
+	args.pat_port = in_port;
+	args.pat_port2 = out_port;
+	if (in_port && in_port->por_length)
+		pattern =
+			"isc_transact_request (%V1, %RF%DH%RE, %RF%RT%RE, sizeof (%RI), %RI, (short) %PL, (char *) %RF%PI%RE, (short) %QL, (char *) %RF%QI%RE);";
+	else
+		pattern =
+			"isc_transact_request (%V1, %RF%DH%RE, %RF%RT%RE, sizeof (%RI), %RI, 0, 0, (short) %QL, (char *) %RF%QI%RE);";
+
+//  Get database attach and transaction started 
+
+	if (sw_auto)
+		t_start_auto(action, 0, status_vector(action), column, TRUE);
+
+//  Move in input values 
+
+	asgn_from(action, request->req_values, column);
+
+//  Execute the procedure 
+
+	PATTERN_expand((USHORT) column, pattern, &args);
+
+	SET_SQLCODE;
+
+	printa(column, "if (!SQLCODE)");
+	column += INDENT;
+	BEGIN;
+
+//  Move out output values 
+
+	asgn_to_proc(request->req_references, column);
+	END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the code to do a put segment.
+//  
+
+static void gen_put_segment( ACT action, int column)
+{
+	BLB blob;
+	PAT args;
+	REF from;
+	TEXT *pattern1 = "%IF%S1 [1] = %ENisc_put_segment (%V1, &%BH, %I1, %I2);";
+
+	if (!action->act_error)
+		BEGIN;
+	if (action->act_error || (action->act_flags & ACT_sql))
+		BEGIN;
+
+	if (action->act_flags & ACT_sql) {
+		blob = (BLB) action->act_request->req_blobs;
+		from = action->act_object;
+		align(column);
+		ib_fprintf(out_file, "isc_%d = %s;",
+				   blob->blb_len_ident, from->ref_null_value);
+		align(column);
+		ib_fprintf(out_file, "isc_ftof (%s, isc_%d, isc_%d, isc_%d);",
+				   from->ref_value, blob->blb_len_ident,
+				   blob->blb_buff_ident, blob->blb_len_ident);
+	}
+	else
+		blob = (BLB) action->act_object;
+
+	args.pat_blob = blob;
+	args.pat_vector1 = status_vector(action);
+	args.pat_condition = !(action->act_error
+						   || (action->act_flags & ACT_sql));
+	args.pat_ident1 = blob->blb_len_ident;
+	args.pat_ident2 = blob->blb_buff_ident;
+	args.pat_string1 = status_name;
+	PATTERN_expand((USHORT) column, pattern1, &args);
+
+	SET_SQLCODE;
+
+	if (action->act_flags & ACT_sql)
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate BLR/MBLR/etc. in raw, numeric form.  Ugly but dense.
+//  
+
+static void gen_raw( UCHAR * blr, int request_length)
+{
+	TEXT c, buffer[80], *p, *limit;
+	int count;
+
+	p = buffer;
+	limit = buffer + 60;
+
+	for (count = request_length; count; count--) {
+		c = *blr++;
+		if ((c >= 'A' && c <= 'Z') || c == '$' || c == '_')
+			sprintf(p, "'%c'", c);
+		else
+			sprintf(p, "%d", c);
+		while (*p)
+			p++;
+		if (count - 1)
+			*p++ = ',';
+		if (p < limit)
+			continue;
+		*p = 0;
+		printa(INDENT, buffer);
+		p = buffer;
+	}
+
+	*p = 0;
+	printa(INDENT, buffer);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for READY
+//  
+
+static void gen_ready( ACT action, int column)
+{
+	RDY ready;
+	DBB db;
+	TEXT *filename, *vector;
+
+	vector = status_vector(action);
+
+	for (ready = (RDY) action->act_object; ready; ready = ready->rdy_next) {
+		db = ready->rdy_database;
+		if (!(filename = ready->rdy_filename))
+			filename = db->dbb_runtime;
+		if ((action->act_error || (action->act_flags & ACT_sql)) &&
+			ready != (RDY) action->act_object)
+			printa(column, "if (!%s [1]) {", status_name);
+		make_ready(db, filename, vector, (USHORT) column, ready->rdy_request);
+		if ((action->act_error || (action->act_flags & ACT_sql)) &&
+			ready != (RDY) action->act_object)
+			END;
+	}
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a send or receive call for a port.
+//  
+
+static void gen_receive( ACT action, int column, POR port)
+{
+	PAT args;
+	TEXT *pattern =
+		"isc_receive (%V1, &%RH, (short) %PN, (short) %PL, &%PI, (short) %RL);";
+
+	args.pat_request = action->act_request;
+	args.pat_vector1 = status_vector(action);
+	args.pat_port = port;
+	PATTERN_expand((USHORT) column, pattern, &args);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for RELEASE_REQUESTS
+//		For active databases, call isc_release_request.
+//		for all others, just zero the handle.  For the
+//		release request calls, ignore error returns, which
+//		are likely if the request was compiled on a database
+//		which has been released and re-readied.  If there is
+//		a serious error, it will be caught on the next statement.
+//  
+
+static void gen_release( ACT action, int column)
+{
+	DBB db, exp_db;
+	REQ request;
+
+	exp_db = (DBB) action->act_object;
+
+	for (request = requests; request; request = request->req_next) {
+		db = request->req_database;
+		if (exp_db && db != exp_db)
+			continue;
+		if (db && request->req_handle && !(request->req_flags & REQ_exp_hand)) {
+			printa(column, "if (%s && %s)",
+				   db->dbb_name->sym_string, request->req_handle);
+			printa(column + INDENT, "isc_release_request (%s, &%s);",
+				   status_name, request->req_handle);
+			printa(column, "%s = 0;", request->req_handle);
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  
+
+static void gen_request( REQ request)
+{
+	POR port;
+	REF reference;
+	BLB blob;
+	TEXT *string_type;
+
+	if (!
+		(request->
+		 req_flags & (REQ_exp_hand | REQ_menu_for_item | REQ_sql_blob_open |
+					  REQ_sql_blob_create)) && request->req_type != REQ_slice
+&& request->req_type != REQ_procedure)
+		printa(0,
+			   "static isc_req_handle\n   %s = 0;\t\t/* request handle */\n",
+			   request->req_handle);
+
+//  check the case where we need to extend the dpb dynamically at runtime,
+//  in which case we need dpb length and a pointer to be defined even if 
+//  there is no static dpb defined 
+
+	if (request->req_flags & REQ_extend_dpb) {
+		printa(0, "static char\n   *isc_%dp;", request->req_ident);
+		if (!request->req_length)
+			printa(0, "static short\n   isc_%dl = %d;", request->req_ident,
+				   request->req_length);
+	}
+
+	if (request->req_type == REQ_create_database)
+		printa(0, "static %s\n   *isc_%dt;", DCL_LONG, request->req_ident);
+
+	if (request->req_flags & (REQ_sql_blob_open | REQ_sql_blob_create))
+		printa(0,
+			   "static isc_stmt_handle\n   isc_%ds;\t\t/* sql statement handle */",
+			   request->req_ident);
+
+	if (request->req_length) {
+		if (request->req_flags & REQ_sql_cursor)
+			printa(0,
+				   "static isc_stmt_handle\n   isc_%ds;\t\t/* sql statement handle */",
+				   request->req_ident);
+#ifdef SCROLLABLE_CURSORS
+		if (request->req_flags & REQ_scroll)
+			printa(0,
+				   "static short\n   isc_%ddirection;\t\t/* last direction sent to engine */",
+				   request->req_ident);
+#endif
+		printa(0, "static %sshort\n   isc_%dl = %d;",
+			   (request->req_flags & REQ_extend_dpb) ? "" : CONST_STR,
+			   request->req_ident, request->req_length);
+		printa(0, "static %schar\n   isc_%d [] = {",
+			   CONST_STR, request->req_ident, request->req_length);
+		string_type = "blr";
+		if (sw_raw) {
+			gen_raw(request->req_blr, request->req_length);
+			switch (request->req_type) {
+			case REQ_create_database:
+			case REQ_ready:
+				string_type = "dpb";
+				break;
+
+			case REQ_ddl:
+				string_type = "dyn";
+				break;
+
+			case REQ_form:
+				string_type = "form_map";
+				break;
+
+			case REQ_menu:
+				string_type = "blr";
+				break;
+
+			case REQ_slice:
+				string_type = "sdl";
+				break;
+
+			default:
+				string_type = "blr";
+			}
+		}
+		else
+			switch (request->req_type) {
+			case REQ_create_database:
+			case REQ_ready:
+				string_type = "dpb";
+				if (PRETTY_print_cdb
+					((SCHAR *) request->req_blr,
+					 reinterpret_cast < PRETTY_print_cb_pfn > (gen_blr), 0,
+					 0))
+						IBERROR("internal error during parameter generation");
+				break;
+
+			case REQ_ddl:
+				string_type = "dyn";
+				if (PRETTY_print_dyn
+					((SCHAR *) request->req_blr,
+					 reinterpret_cast < PRETTY_print_cb_pfn > (gen_blr), 0,
+					 0))
+						IBERROR
+						("internal error during dynamic DDL generation");
+				break;
+
+			case REQ_form:
+				string_type = "form map";
+				if (PRETTY_print_form_map
+					((SCHAR *) request->req_blr,
+					 reinterpret_cast < PRETTY_print_cb_pfn > (gen_blr), 0,
+					 0)) IBERROR("internal error during form map generation");
+				break;
+
+			case REQ_menu:
+				string_type = "menu";
+				if (PRETTY_print_menu
+					((SCHAR *) request->req_blr,
+					 reinterpret_cast < PRETTY_print_cb_pfn > (gen_blr), 0,
+					 0)) IBERROR("internal error during menu generation");
+				break;
+
+			case REQ_slice:
+				string_type = "sdl";
+				if (PRETTY_print_sdl
+					((SCHAR *) request->req_blr,
+					 reinterpret_cast < PRETTY_print_cb_pfn > (gen_blr), 0,
+					 0)) IBERROR("internal error during SDL generation");
+				break;
+
+			default:
+				string_type = "blr";
+				if (isc_print_blr
+					((char *) request->req_blr, (FPTR_VOID) gen_blr, 0, 0))
+					IBERROR("internal error during BLR generation");
+			}
+		printa(INDENT, "};\t/* end of %s string for request isc_%d */\n",
+			   string_type, request->req_ident, request->req_length);
+	}
+
+//   Print out slice description language if there are arrays associated with request  
+
+	for (port = request->req_ports; port; port = port->por_next)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) if (reference->ref_sdl) {
+				printa(0, "static %sshort\n   isc_%dl = %d;", CONST_STR,
+					   reference->ref_sdl_ident, reference->ref_sdl_length);
+				printa(0, "static %schar\n   isc_%d [] = {", CONST_STR,
+					   reference->ref_sdl_ident);
+				if (sw_raw)
+					gen_raw((UCHAR *) reference->ref_sdl,
+							reference->ref_sdl_length);
+				else
+					if (PRETTY_print_sdl
+						((SCHAR *) reference->ref_sdl,
+						 reinterpret_cast < PRETTY_print_cb_pfn > (gen_blr),
+						 0, 0))
+					IBERROR("internal error during SDL generation");
+				printa(INDENT,
+					   "};\t/* end of sdl string for request isc_%d */\n",
+					   reference->ref_sdl_ident);
+			}
+
+
+//  Print out any blob parameter blocks required 
+
+	for (blob = request->req_blobs; blob; blob = blob->blb_next)
+		if (blob->blb_bpb_length) {
+			printa(0, "static %schar\n   isc_%d [] = {", CONST_STR,
+				   blob->blb_bpb_ident);
+			gen_raw(blob->blb_bpb, blob->blb_bpb_length);
+			printa(INDENT, "};\n");
+		}
+
+//  If this is a menu request, handle things 
+
+	if (request->req_type == REQ_menu)
+		gen_menu_request(request);
+
+//  If this is a GET_SLICE/PUT_slice, allocate some variables 
+
+	if (request->req_type == REQ_slice) {
+		printa(0, "static %s", DCL_LONG);
+		printa(INDENT, "isc_%dv [%d],", request->req_ident,
+			   MAX(request->req_slice->slc_parameters, 1));
+		printa(INDENT, "isc_%ds;", request->req_ident);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate receive call for a port
+//		in a store2 statement.
+//  
+
+static void gen_return_value( ACT action, int column)
+{
+	UPD update;
+	REF reference;
+	REQ request;
+
+	request = action->act_request;
+	if (action->act_pair->act_error)
+		column += INDENT;
+	align(column);
+	gen_start(action, request->req_primary, column, TRUE);
+	update = (UPD) action->act_object;
+	reference = update->upd_references;
+	gen_receive(action, column, reference->ref_port);
+}
+
+
+//____________________________________________________________
+//  
+//		Process routine head.  If there are requests in the
+//		routine, insert local definitions.
+//  
+
+static void gen_routine( ACT action, int column)
+{
+	BLB blob;
+	REQ request;
+	POR port;
+
+	column += INDENT;
+
+	for (request = (REQ) action->act_object; request;
+		 request = request->req_routine) {
+		if (request->req_type == REQ_any)
+			continue;
+		for (port = request->req_ports; port; port = port->por_next)
+			make_port(port, column);
+		for (blob = request->req_blobs; blob; blob = blob->blb_next) {
+			printa(column, "isc_blob_handle\t\tisc_%d;\t\t/* blob handle */",
+				   blob->blb_ident);
+			printa(column, "char\t\t\tisc_%d [%d];\t/* blob segment */",
+				   blob->blb_buff_ident, blob->blb_seg_length);
+			printa(column, "unsigned short\tisc_%d;\t\t/* segment length */",
+				   blob->blb_len_ident);
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STREAM.
+//  
+
+static void gen_s_end( ACT action, int column)
+{
+	REQ request;
+
+	if (action->act_error)
+		BEGIN;
+	request = action->act_request;
+
+	if (action->act_type == ACT_close)
+		column = gen_cursor_close(action, request, column);
+
+	printa(column, "isc_unwind_request (%s, &%s, %s);",
+		   status_vector(action),
+		   request->req_handle, request->req_request_level);
+
+	if (action->act_type == ACT_close) {
+		END;
+		column -= INDENT;
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FETCH.
+//  
+
+static void gen_s_fetch( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+
+	if (request->req_sync)
+		gen_send(action, request->req_sync, column);
+
+	gen_receive(action, column, request->req_primary);
+
+	if (!action->act_pair && !action->act_error)
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile and start a stream.  This is
+//		used both by START_STREAM and FOR
+//  
+
+static void gen_s_start( ACT action, int column)
+{
+	REQ request;
+	POR port;
+
+	request = action->act_request;
+
+	gen_compile(action, column);
+
+	if (port = request->req_vport)
+		asgn_from(action, port->por_references, column);
+
+	if (action->act_type == ACT_open)
+		column = gen_cursor_open(action, request, column);
+
+	if (action->act_error || (action->act_flags & ACT_sql)) {
+		make_ok_test(action, request, column);
+		column += INDENT;
+	}
+
+	gen_start(action, port, column, FALSE);
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		column -= INDENT;
+
+	if (action->act_type == ACT_open) {
+		END;
+		column -= INDENT;
+		END;
+		column -= INDENT;
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a segment, segment length, or blob handle.
+//  
+
+static void gen_segment( ACT action, int column)
+{
+	BLB blob;
+
+	blob = (BLB) action->act_object;
+
+	printa(column, "isc_%d",
+		   (action->act_type == ACT_segment) ? blob->blb_buff_ident :
+		   (action->act_type == ACT_segment_length) ? blob->blb_len_ident :
+		   blob->blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//  
+//		generate code for a singleton select.
+//  
+
+static void gen_select( ACT action, int column)
+{
+	REQ request;
+	POR port;
+	NOD var_list;
+	int i;
+	TEXT name[20];
+
+	request = action->act_request;
+	port = request->req_primary;
+	gen_name(name, request->req_eof, TRUE);
+
+	gen_s_start(action, column);
+	printa(column, "if (!SQLCODE) ");
+	column += INDENT;
+	BEGIN;
+	gen_receive(action, column, port);
+	printa(column, "if (!SQLCODE)");
+	column += INDENT;
+	printa(column, "if (%s)", name);
+	column += INDENT;
+
+	BEGIN;
+	if (var_list = (NOD) action->act_object)
+		for (i = 0; i < var_list->nod_count; i++) {
+			align(column);
+			asgn_to(action, (REF) var_list->nod_arg[i], column);
+		}
+	if (request->req_database->dbb_flags & DBB_v3) {
+		gen_receive(action, column, port);
+		printa(column, "if (!SQLCODE && %s)", name);
+		printa(column + INDENT, "SQLCODE = -1;");
+	}
+	END;
+
+	printa(column - INDENT, "else");
+	printa(column, "SQLCODE = 100;");
+	column -= INDENT;
+	column -= INDENT;
+	END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a send or receive call for a port.
+//  
+
+static void gen_send( ACT action, POR port, int column)
+{
+	PAT args;
+	TEXT *pattern =
+		"isc_send (%V1, &%RH, (short) %PN, (short) %PL, &%PI, (short) %RL);";
+
+	args.pat_request = action->act_request;
+	args.pat_vector1 = status_vector(action);
+	args.pat_port = port;
+	PATTERN_expand((USHORT) column, pattern, &args);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate support for get/put slice statement.
+//  
+
+static void gen_slice( ACT action, REF var_reference, int column)
+{
+	REQ request, parent_request;
+	REF reference, upper, lower;
+	SLC slice;
+	PAT args;
+	slc::slc_repeat * tail, *end;
+	TEXT *pattern1 = "isc_get_slice (%V1, &%DH, &%RT, &%FR, (short) %N1, \
+(char ISC_FAR *) %I1, (short) %N2, %I1v, %I1s, %S5, &isc_array_length);";
+	TEXT *pattern2 = "isc_put_slice (%V1, &%DH, &%RT, &%FR, (short) %N1, \
+(char ISC_FAR *) %I1, (short) %N2, %I1v, %I1s, %S5);";
+
+	request = action->act_request;
+	slice = (SLC) action->act_object;
+	parent_request = slice->slc_parent_request;
+
+//  Compute array size 
+
+	printa(column, "isc_%ds = %d", request->req_ident,
+		   slice->slc_field->fld_array->fld_length);
+
+	for (tail = slice->slc_rpt, end = tail + slice->slc_dimensions;
+		 tail < end; ++tail)
+		if (tail->slc_upper != tail->slc_lower) {
+			lower = (REF) tail->slc_lower->nod_arg[0];
+			upper = (REF) tail->slc_upper->nod_arg[0];
+			if (lower->ref_value)
+				ib_fprintf(out_file, " * ( %s - %s + 1)", upper->ref_value,
+						   lower->ref_value);
+			else
+				ib_fprintf(out_file, " * ( %s + 1)", upper->ref_value);
+		}
+
+	ib_fprintf(out_file, ";");
+
+//  Make assignments to variable vector 
+
+	for (reference = request->req_values; reference;
+		 reference =
+		 reference->ref_next) printa(column, "isc_%dv [%d] = %s;",
+									 request->req_ident, reference->ref_id,
+									 reference->ref_value);
+
+	args.pat_reference =
+		(var_reference ? var_reference : slice->slc_field_ref);
+	args.pat_request = parent_request;	/* blob id request */
+	args.pat_vector1 = status_vector(action);	/* status vector */
+	args.pat_database = parent_request->req_database;	/* database handle */
+	args.pat_string1 = action->act_request->req_trans;	/* transaction handle */
+	args.pat_value1 = request->req_length;	/* slice descr. length */
+	args.pat_ident1 = request->req_ident;	/* request name */
+	args.pat_value2 = slice->slc_parameters * sizeof(SLONG);	/* parameter length */
+
+	if (!(reference = var_reference))
+		reference = (REF) slice->slc_array->nod_arg[0];
+	args.pat_string5 = reference->ref_value;	/* array name */
+
+	PATTERN_expand((USHORT) column,
+				   (action->act_type == ACT_get_slice) ? pattern1 : pattern2,
+				   &args);
+
+	SET_SQLCODE;
+	if (action->act_flags & ACT_sql)
+		gen_whenever(action->act_whenever, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate either a START or START_AND_SEND depending
+//		on whether or a not a port is present.  If this START
+//		or START_AND_SEND is being generated for a STORE or a
+//		MODIFY statement, generate PUT_SLICE calls, as well.
+//  
+
+static void gen_start( ACT action, POR port, int column, BOOLEAN sending)
+{
+	PAT args;
+	TEXT *pattern1 =
+		"isc_start_and_send (%V1, &%RH, &%S1, (short) %PN, (short) %PL, &%PI, (short) %RL);";
+	TEXT *pattern2 = "isc_start_request (%V1, &%RH, &%S1, (short) %RL);";
+	REF reference;
+
+	if (port && sending) {
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, FALSE, column);
+	}
+
+	args.pat_request = action->act_request;
+	args.pat_vector1 = status_vector(action);
+	args.pat_port = port;
+	args.pat_string1 = request_trans(action, action->act_request);
+	PATTERN_expand((USHORT) column, (port) ? pattern1 : pattern2, &args);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text for STORE statement.  This includes the compile
+//		call and any variable initialization required.
+//  
+
+static void gen_store( ACT action, int column)
+{
+	REQ request;
+	REF reference;
+	FLD field;
+	POR port;
+	TEXT name[64];
+
+	request = action->act_request;
+	align(column);
+	gen_compile(action, column);
+
+	if (action->act_error || (action->act_flags & ACT_sql)) {
+		make_ok_test(action, request, column);
+		column += INDENT;
+		if (action->act_error)
+			BEGIN;
+	}
+
+//  Initialize any blob fields 
+
+	port = request->req_primary;
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (field->fld_flags & FLD_blob)
+			printa(column, "%s = isc_blob_null;",
+				   gen_name(name, reference, TRUE));
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for START_TRANSACTION.
+//  
+
+static void gen_t_start( ACT action, int column)
+{
+	DBB db;
+	TRA trans;
+	TPB tpb;
+	TEXT *filename, *vector;
+	int remaining, length;
+
+	vector = status_vector(action);
+
+//  if this is a purely default transaction, just let it through 
+
+	if (!action || !(trans = (TRA) action->act_object)) {
+		t_start_auto(action, 0, vector, column, FALSE);
+		return;
+	}
+
+//  build a complete statement, including tpb's. Ready db's 
+
+	if (sw_auto)
+		for (tpb = trans->tra_tpb; tpb; tpb = tpb->tpb_tra_next) {
+			db = tpb->tpb_database;
+			if ((filename = db->dbb_runtime) || !(db->dbb_flags & DBB_sqlca)) {
+				printa(column, "if (!%s)", db->dbb_name->sym_string);
+				make_ready(db, filename, vector, (USHORT) (column + INDENT),
+						   0);
+			}
+		}
+
+	printa(column, "isc_start_transaction (%s, &%s, (short) %d",
+		   vector,
+		   (trans->tra_handle) ? trans->tra_handle : transaction_name,
+		   trans->tra_db_count);
+
+//  Some systems don't like infinitely long lines.  Limit them to 256. 
+
+	remaining = 256 - column - strlen(vector) -
+		strlen((trans->tra_handle) ? trans->tra_handle : transaction_name) -
+		31;
+
+	for (tpb = trans->tra_tpb; tpb; tpb = tpb->tpb_tra_next) {
+		if ((length = strlen(tpb->tpb_database->dbb_name->sym_string) + 22) >
+			remaining) {
+			align(column + INDENT);
+			remaining = 256 - column - INDENT;
+		}
+		remaining -= length;
+		ib_fprintf(out_file, ", &%s, (short) %d, isc_tpb_%d",
+				   tpb->tpb_database->dbb_name->sym_string,
+				   tpb->tpb_length, tpb->tpb_ident);
+	}
+
+	ib_fprintf(out_file, ");");
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a TPB in the output file
+//  
+
+static void gen_tpb( TPB tpb, int column)
+{
+	TEXT *text, buffer[80], c, *p;
+	SSHORT length, tpb_length;
+
+	printa(column, "static %schar\n", CONST_STR);
+	column += INDENT;
+	p = buffer;
+
+	for (length = 0; length < column; length++)
+		*p++ = ' ';
+
+	sprintf(p, "isc_tpb_%d [%d] = {", tpb->tpb_ident, tpb->tpb_length);
+	while (*p)
+		p++;
+
+	tpb_length = tpb->tpb_length;
+	text = (TEXT *) tpb->tpb_string;
+
+	while (--tpb_length >= 0) {
+		c = *text++;
+		if ((c >= 'A' && c <= 'Z') || c == '$' || c == '_')
+			sprintf(p, "'%c'", c);
+		else
+			sprintf(p, "%d", c);
+		while (*p)
+			p++;
+		if (tpb_length)
+			*p++ = ',';
+		if (p - buffer > 60) {
+			*p = 0;
+			ib_fprintf(out_file, " %s\n", buffer);
+			p = buffer;
+			for (length = 0; length < column + INDENT; length++)
+				*p++ = ' ';
+			*p = 0;
+		}
+	}
+
+	ib_fprintf(out_file, "%s};\n", buffer);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for COMMIT, ROLLBACK, PREPARE, and SAVE
+//  
+
+static void gen_trans( ACT action, int column)
+{
+
+	if (action->act_type == ACT_commit_retain_context)
+		printa(column, "isc_commit_retaining (%s, &%s);",
+			   status_vector(action),
+			   (action->act_object) ? (TEXT *) (action->
+												act_object) :
+			   transaction_name);
+	else
+		printa(column, "isc_%s_transaction (%s, &%s);",
+			   (action->act_type ==
+				ACT_commit) ? "commit" : (action->act_type ==
+										  ACT_rollback) ? "rollback" :
+			   "prepare", status_vector(action),
+			   (action->act_object) ? (TEXT *) (action->
+												act_object) :
+			   transaction_name);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a variable reference.
+//  
+
+static void gen_type( ACT action, int column)
+{
+
+	printa(column, "%ld", action->act_object);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for UPDATE ... WHERE CURRENT OF ...
+//  
+
+static void gen_update( ACT action, int column)
+{
+	POR port;
+	UPD modify;
+
+	modify = (UPD) action->act_object;
+	port = modify->upd_port;
+	asgn_from(action, port->por_references, column);
+	gen_send(action, port, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a variable reference.
+//  
+
+static void gen_variable( ACT action, int column)
+{
+	TEXT s[20];
+
+	printa(column, gen_name(s, action->act_object, FALSE));
+}
+
+
+//____________________________________________________________
+//  
+//		Generate tests for any WHENEVER clauses that may have been declared.
+//  
+
+static void gen_whenever( SWE label, int column)
+{
+	TEXT *condition;
+
+	while (label) {
+		switch (label->swe_condition) {
+		case SWE_error:
+			condition = "SQLCODE < 0";
+			break;
+
+		case SWE_warning:
+			condition = "SQLCODE > 0 && SQLCODE != 100";
+			break;
+
+		case SWE_not_found:
+			condition = "SQLCODE == 100";
+			break;
+		}
+		align(column);
+		ib_fprintf(out_file, "if (%s) goto %s;", condition, label->swe_label);
+		label = label->swe_next;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Create a new window.
+//  
+
+static void gen_window_create( ACT action, int column)
+{
+
+	printa(column,
+		   "isc_create_window (%s, &isc_window, (short*) 0, (char*) 0, &isc_width, &isc_height)",
+		   status_vector(action));
+}
+
+
+//____________________________________________________________
+//  
+//		Delete a window.
+//  
+
+static void gen_window_delete( ACT action, int column)
+{
+
+	printa(column, "isc_delete_window (%s, &isc_window)",
+		   status_vector(action));
+}
+
+
+//____________________________________________________________
+//  
+//		Suspend a window.
+//  
+
+static void gen_window_suspend( ACT action, int column)
+{
+
+	printa(column, "isc_suspend_window (%s, &isc_window)",
+		   status_vector(action));
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a declaration of an array in the
+//		output file.
+//  
+
+static void make_array_declaration( REF reference)
+{
+
+	FLD field = reference->ref_field;
+	TEXT *name = field->fld_symbol->sym_string;
+	TEXT s[64];
+	TEXT *dtype;
+	DIM dimension;
+
+//  Don't generate multiple declarations for the array.  V3 Bug 569.  
+
+	if (field->fld_array_info->ary_declared)
+		return;
+
+	field->fld_array_info->ary_declared = TRUE;
+
+	switch (field->fld_array_info->ary_dtype) {
+	case dtype_short:
+		dtype = "short";
+		break;
+
+	case dtype_long:
+		dtype = DCL_LONG;
+		break;
+
+	case dtype_cstring:
+	case dtype_text:
+	case dtype_varying:
+		dtype = "char ";
+		break;
+
+	case dtype_quad:
+		dtype = DCL_QUAD;
+		break;
+
+// ** Begin date/time/timestamp *
+	case dtype_sql_date:
+		dtype = "ISC_DATE";
+		break;
+
+	case dtype_sql_time:
+		dtype = "ISC_TIME";
+		break;
+
+	case dtype_timestamp:
+		dtype = "ISC_TIMESTAMP";
+		break;
+// ** End date/time/timestamp *
+
+	case dtype_int64:
+		dtype = "ISC_INT64";
+		break;
+
+	case dtype_float:
+		dtype = "float ";
+		break;
+
+	case dtype_double:
+		dtype = "double";
+		break;
+
+	default:
+		sprintf(s, "datatype %d unknown for field %s",
+				field->fld_array_info->ary_dtype, name);
+		IBERROR(s);
+		return;
+	}
+
+	ib_fprintf(out_file, "static %s isc_%d", dtype,
+			   field->fld_array_info->ary_ident);
+
+//   Print out the dimension part of the declaration  
+
+	for (dimension = field->fld_array_info->ary_dimension; dimension;
+		 dimension = dimension->dim_next)
+		ib_fprintf(out_file, " [%d]",
+				   dimension->dim_upper - dimension->dim_lower + 1);
+
+	if (field->fld_array_info->ary_dtype <= dtype_varying)
+		ib_fprintf(out_file, " [%d]", field->fld_array->fld_length);
+
+//   Print out the database field  
+
+	ib_fprintf(out_file, ";\t/* %s */\n", name);
+}
+
+
+//____________________________________________________________
+//  
+//		Turn a symbol into a varying string.
+//  
+
+static TEXT *make_name( TEXT * string, SYM symbol)
+{
+
+	if (symbol->sym_type == SYM_delimited_cursor) {
+	/** All This elaborate code is just to put double quotes around
+	the cursor names and to escape any embeded quotes.
+    **/
+		int i = 0;
+		strcpy(string, "\"\\\"");
+		for (i = strlen(string); *symbol->sym_string; i++) {
+			if (*symbol->sym_string == '\"' || *symbol->sym_string == '\'') {
+				string[i++] = '\\';
+				string[i++] = *symbol->sym_string;
+				string[i++] = '\\';
+			}
+			string[i] = *symbol->sym_string++;
+		}
+		string[i] = 0;
+		strcat(string, "\\\"\"");
+	}
+	else
+		sprintf(string, "\"%s\"", symbol->sym_string);
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code to test existence of compiled request with
+//		active transaction
+//  
+
+static void make_ok_test( ACT action, REQ request, int column)
+{
+
+	if (sw_auto)
+		printa(column, "if (%s && %s)",
+			   request_trans(action, request), request->req_handle);
+	else
+		printa(column, "if (%s)", request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Insert a port record description in output.
+//  
+
+static void make_port( POR port, int column)
+{
+	FLD field;
+	REF reference;
+	SYM symbol;
+	TEXT *name;
+	TEXT s[80];
+	TEXT *dtype;
+	int fld_len;
+
+	printa(column, "struct {");
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		align(column + INDENT);
+		field = reference->ref_field;
+		if (symbol = field->fld_symbol)
+			name = symbol->sym_string;
+		else
+			name = "<expression>";
+		if (reference->ref_value && (reference->ref_flags & REF_array_elem))
+			field = field->fld_array;
+		fld_len = 0;
+		switch (field->fld_dtype) {
+		case dtype_short:
+			dtype = "short";
+			break;
+
+		case dtype_long:
+			dtype = DCL_LONG;
+			break;
+
+		case dtype_cstring:
+		case dtype_text:
+			dtype = "char ";
+			if (field->fld_sub_type != 1 || field->fld_length > 1)
+				fld_len = field->fld_length;
+			break;
+
+		case dtype_quad:
+			dtype = DCL_QUAD;
+			break;
+
+// ** Begin date/time/timestamp *
+		case dtype_sql_date:
+			dtype = "ISC_DATE";
+			break;
+
+		case dtype_sql_time:
+			dtype = "ISC_TIME";
+			break;
+
+		case dtype_timestamp:
+			dtype = "ISC_TIMESTAMP";
+			break;
+
+		case dtype_int64:
+			dtype = "ISC_INT64";
+			break;
+
+		case dtype_blob:
+			dtype = "ISC_QUAD";
+			break;
+
+		case dtype_float:
+			dtype = "float ";
+			break;
+
+		case dtype_double:
+			dtype = "double";
+			break;
+
+		default:
+			sprintf(s, "datatype %d unknown for field %s, msg %d",
+					field->fld_dtype, name, port->por_msg_number);
+			IBERROR(s);
+			return;
+		}
+		if (fld_len)
+			ib_fprintf(out_file, "    %s isc_%d [%d];\t/* %s */",
+					   dtype, reference->ref_ident, fld_len, name);
+		else
+			ib_fprintf(out_file, "    %s isc_%d;\t/* %s */",
+					   dtype, reference->ref_ident, name);
+	}
+
+	printa(column, "} isc_%d;", port->por_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the actual insertion text for a
+//		ready;
+//  
+
+static void make_ready(
+					   DBB db,
+					   TEXT * filename,
+					   TEXT * vector, USHORT column, REQ request)
+{
+	TEXT s1[32], s2[32];
+	TEXT *dpb_size_ptr, *dpb_ptr;
+
+	if (request) {
+		sprintf(s1, "isc_%dl", request->req_ident);
+
+		if (request->req_flags & REQ_extend_dpb)
+			sprintf(s2, "isc_%dp", request->req_ident);
+		else
+			sprintf(s2, "isc_%d", request->req_ident);
+
+		/* if the dpb needs to be extended at runtime to include items
+		   in host variables, do so here; this assumes that there is 
+		   always a request generated for runtime variables */
+
+		if (request->req_flags & REQ_extend_dpb) {
+			if (request->req_length)
+				printa(column, "%s = isc_%d;", s2, request->req_ident);
+			else
+				printa(column, "%s = (char*) 0;", s2);
+
+			printa(column,
+				   "isc_expand_dpb (&%s, &%s, isc_dpb_user_name, %s, isc_dpb_password, %s, isc_dpb_sql_role_name, %s, isc_dpb_lc_messages, %s, isc_dpb_lc_ctype, %s, 0);",
+				   s2, s1, db->dbb_r_user ? db->dbb_r_user : "(char*) 0",
+				   db->dbb_r_password ? db->dbb_r_password : "(char*) 0",
+				   db->dbb_r_sql_role ? db->dbb_r_sql_role : "(char*) 0",
+				   db->dbb_r_lc_messages ? db->
+				   dbb_r_lc_messages : "(char*) 0",
+				   db->dbb_r_lc_ctype ? db->dbb_r_lc_ctype : "(char*) 0");
+		}
+	}
+
+//  generate the attach database itself 
+
+	dpb_size_ptr = "0";
+	dpb_ptr = "(char*) 0";
+
+	align(column);
+	if (filename)
+		ib_fprintf(out_file,
+				   "isc_attach_database (%s, 0, %s, &%s, %s, %s);",
+				   vector,
+				   filename,
+				   db->dbb_name->sym_string,
+				   (request ? s1 : dpb_size_ptr), (request ? s2 : dpb_ptr));
+	else
+		ib_fprintf(out_file,
+				   "isc_attach_database (%s, 0, \"%s\", &%s, %s, %s);",
+				   vector,
+				   db->dbb_filename,
+				   db->dbb_name->sym_string,
+				   (request ? s1 : dpb_size_ptr), (request ? s2 : dpb_ptr));
+
+//  if the dpb was extended, free it here 
+
+	if (request && request->req_flags & REQ_extend_dpb) {
+		if (request->req_length)
+			printa(column, "if (%s != isc_%d)", s2, request->req_ident);
+		printa(column + (request->req_length ? INDENT : 0), "isc_free (%s);",
+			   s2);
+
+		/* reset the length of the dpb */
+
+		printa(column, "%s = %d;", s1, request->req_length);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Print a fixed string at a particular column.
+//  
+
+static void printa( int column, TEXT * string, ...)
+{
+	va_list ptr;
+
+	VA_START(ptr, string);
+	align(column);
+	ib_vfprintf(out_file, string, ptr);
+}
+
+
+//____________________________________________________________
+//  
+//		Print a fixed string at a particular column.
+//  
+
+static void printb( TEXT * string, ...)
+{
+	va_list ptr;
+
+	VA_START(ptr, string);
+	ib_vfprintf(out_file, string, ptr);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the appropriate transaction handle.
+//  
+
+static TEXT *request_trans( ACT action, REQ request)
+{
+
+	if (action->act_type == ACT_open) {
+		TEXT *trname = ((OPN) action->act_object)->opn_trans;
+		if (!trname) {
+			trname = transaction_name;
+		}
+		return trname;
+	}
+
+	return (request) ? request->req_trans : transaction_name;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the appropriate status vector parameter for a gds
+//		call depending on where or not the action has an error clause.
+//  
+
+static TEXT *status_vector( ACT action)
+{
+
+	if (action && (action->act_error || (action->act_flags & ACT_sql)))
+		return status_name;
+
+	return NULL_STATUS;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for START_TRANSACTION.
+//		The complications include the fact that all databases
+//		must be readied, and that everything should stop if
+//		any thing fails so we don't trash the status vector.
+//  
+
+static void t_start_auto(
+						 ACT action,
+						 REQ request, TEXT * vector, int column, SSHORT test)
+{
+	DBB db;
+	int count, stat, remaining, length;
+	TEXT *filename, buffer[256], *trname;
+
+	trname = request_trans(action, request);
+
+//  find out whether we're using a status vector or not 
+
+	stat = !strcmp(vector, status_name);
+
+//  this is a default transaction, make sure all databases are ready 
+
+	BEGIN;
+
+	if (sw_auto) {
+		buffer[0] = 0;
+		for (count = 0, db = isc_databases; db; db = db->dbb_next, count++)
+			if ((filename = db->dbb_runtime) || !(db->dbb_flags & DBB_sqlca)) {
+				align(column);
+				ib_fprintf(out_file, "if (!%s", db->dbb_name->sym_string);
+				if (stat && buffer[0])
+					ib_fprintf(out_file, " && !%s [1]", vector);
+				ib_fprintf(out_file, ")");
+				make_ready(db, filename, vector, (USHORT) (column + INDENT),
+						   0);
+				if (buffer[0])
+					strcat(buffer, " && ");
+				strcat(buffer, db->dbb_name->sym_string);
+			}
+		if (!buffer[0])
+			strcpy(buffer, "1");
+		if (test)
+			printa(column, "if (%s && !%s)", buffer, trname);
+		else
+			printa(column, "if (%s)", buffer);
+		column += INDENT;
+	}
+	else
+		for (count = 0, db = isc_databases; db; db = db->dbb_next, count++);
+
+	printa(column, "isc_start_transaction (%s, &%s, (short) %d",
+		   vector, trname, count);
+
+//  Some systems don't like infinitely long lines.  Limit them to 256. 
+
+	remaining = 256 - column - strlen(vector) - strlen(trname) - 31;
+
+	for (db = isc_databases; db; db = db->dbb_next) {
+		if ((length = strlen(db->dbb_name->sym_string) + 17) > remaining) {
+			align(column + INDENT);
+			remaining = 256 - column - INDENT;
+		}
+		remaining -= length;
+		ib_fprintf(out_file, ", &%s, (short) 0, (char*) 0",
+				   db->dbb_name->sym_string);
+	}
+
+	ib_fprintf(out_file, ");");
+
+	if (sw_auto)
+		column -= INDENT;
+
+	END;
+}
+
+
+} // extern "C"
diff --git a/src/gpre/cdbtable.h b/src/gpre/cdbtable.h
new file mode 100644
index 0000000000..83f1b6fe6c
--- /dev/null
+++ b/src/gpre/cdbtable.h
@@ -0,0 +1,85 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+NULL,
+	"isc_dpb_cdd_pathname",
+	"isc_dpb_allocation",
+	"isc_dpb_journal",
+	"isc_dpb_page_size",
+	"isc_dpb_num_buffers",
+	"isc_dpb_buffer_length",
+	"isc_dpb_debug",
+	"isc_dpb_garbage_collect",
+	"isc_dpb_verify",
+	"isc_dpb_sweep",
+	"isc_dpb_enable_journal",
+	"isc_dpb_disable_journal",
+	"isc_dpb_dbkey_scope",
+	"isc_dpb_number_of_users",
+	"isc_dpb_trace",
+	"isc_dpb_no_garbage_collect",
+	"isc_dpb_damaged",
+	"isc_dpb_license",
+	"isc_dpb_sys_user_name",
+	"isc_dpb_encrypt_key",
+	"isc_dpb_activate_shadow",
+	"isc_dpb_sweep_interval",
+	"isc_dpb_delete_shadow",
+	"isc_dpb_force_write",
+	"isc_dpb_begin_log",
+	"isc_dpb_quit_log",
+	"isc_dpb_no_reserve",
+	"isc_dpb_user_name",
+	"isc_dpb_password",
+	"isc_dpb_password_enc",
+	"isc_dpb_sys_user_name_enc",
+	"isc_dpb_interp",
+	"isc_dpb_online_dump",
+	"isc_dpb_old_file_size",
+	"isc_dpb_old_num_files",
+	"isc_dpb_old_file",
+	"isc_dpb_old_start_page",
+	"isc_dpb_old_start_seqno",
+	"isc_dpb_old_start_file",
+	"isc_dpb_drop_walfile",
+	"isc_dpb_old_dump_id",
+	"isc_dpb_wal_backup_dir",
+	"isc_dpb_wal_chkptlen",
+	"isc_dpb_wal_numbufs",
+	"isc_dpb_wal_bufsize",
+	"isc_dpb_wal_grp_cmt_wait",
+	"isc_dpb_lc_messages",
+	"isc_dpb_lc_ctype",
+	"isc_dpb_cache_manager",
+	"isc_dpb_shutdown",
+	"isc_dpb_online",
+	"isc_dpb_shutdown_delay",
+	"isc_dpb_reserved",
+	"isc_dpb_overwrite",
+	"isc_dpb_sec_attach",
+	"isc_dpb_disable_wal",
+	"isc_dpb_connect_timeout",
+	"isc_dpb_dummy_packet_interval",
+	"isc_dpb_gbak_attach",
+	"isc_dpb_sql_role_name",
+	"isc_dpb_set_page_buffers",
+	"isc_dpb_working_directory",
+	"isc_dpb_sql_dialect",
+	"isc_dpb_set_db_readonly",
+	"isc_dpb_set_db_sql_dialect",
+	"isc_dpb_gfix_attach", "isc_dpb_gstat_attach",
diff --git a/src/gpre/cmd.cpp b/src/gpre/cmd.cpp
new file mode 100644
index 0000000000..1a0a3de593
--- /dev/null
+++ b/src/gpre/cmd.cpp
@@ -0,0 +1,3066 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	C preprocessor
+//		MODULE:		cmd.cpp
+//		DESCRIPTION:	Data definition compiler
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  
+//
+//____________________________________________________________
+//
+//	$Id: cmd.cpp,v 1.1.1.1 2001-05-23 13:25:29 tamlin Exp $
+//
+
+#include <string.h>
+#include "../gpre/gpre.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/flags.h"
+#include "../jrd/constants.h"
+#include "../gpre/cmd_proto.h"
+#include "../gpre/cme_proto.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/msc_proto.h"
+#include "../gpre/gpre_meta.h"
+
+typedef void (*pfn_local_trigger_cb) (NOD, REQ,
+									  void *
+									  /* TMN: NOTE, parameter type unknown! */
+									  );
+
+static void add_cache(REQ, ACT, DBB);
+static void add_log_files(REQ, ACT, DBB);
+static void alter_database(REQ, ACT);
+static void alter_domain(REQ, ACT);
+static void alter_index(REQ, ACT);
+static void alter_table(REQ, ACT);
+static void create_check_constraint(REQ, ACT, CNSTRT);
+static void create_constraint(REQ, ACT, CNSTRT);
+static void create_database(REQ, ACT);
+static void create_database_modify_dyn(REQ, ACT);
+static void create_default_blr(REQ, TEXT *, USHORT);
+static void create_del_cascade_trg(REQ, ACT, CNSTRT);
+static void create_domain(REQ, ACT);
+static void create_domain_constraint(REQ, ACT, CNSTRT);
+static void create_generator(REQ, ACT);
+static void create_index(REQ, IND);
+static void create_matching_blr(REQ, CNSTRT);
+static void create_set_default_trg(REQ, ACT, CNSTRT, BOOLEAN);
+static void create_set_null_trg(REQ, ACT, CNSTRT, BOOLEAN);
+static void create_shadow(REQ, ACT);
+static void create_table(REQ, ACT);
+static void create_trg_firing_cond(REQ, CNSTRT);
+static void create_trigger(REQ, ACT, TRG, pfn_local_trigger_cb);
+static void create_upd_cascade_trg(REQ, ACT, CNSTRT);
+static BOOLEAN create_view(REQ, ACT);
+static void create_view_trigger(REQ, ACT, TRG, NOD, CTX *, NOD);
+static void declare_filter(REQ, ACT);
+static void declare_udf(REQ, ACT);
+static void get_referred_fields(ACT, CNSTRT);
+static void grant_revoke_privileges(REQ, ACT);
+static void init_field_struct(FLD);
+static void put_array_info(REQ, FLD);
+static void put_blr(REQ, USHORT, NOD, pfn_local_trigger_cb);
+static void put_computed_blr(REQ, FLD);
+static void put_computed_source(REQ, FLD);
+static void put_cstring(REQ, USHORT, TEXT *);
+static void put_dtype(REQ, FLD);
+static void put_field_attributes(REQ, FLD);
+static void put_numeric(REQ, USHORT, SSHORT);
+static void put_short_cstring(REQ, USHORT, TEXT *);
+static void put_string(REQ, USHORT, TEXT *, USHORT);
+static void put_symbol(REQ, int, SYM);
+static void put_trigger_blr(REQ, USHORT, NOD, pfn_local_trigger_cb);
+static void put_view_trigger_blr(REQ, REL, USHORT, TRG, NOD, CTX *, NOD);
+static void replace_field_names(NOD, NOD, FLD, SSHORT, CTX *);
+static void set_statistics(REQ, ACT);
+
+#define STUFF(blr)	*request->req_blr++ = (UCHAR)(blr)
+#define STUFF_END	STUFF (gds_dyn_end);
+#define STUFF_WORD(blr) STUFF (blr); STUFF ((blr) >> 8)
+#define STUFF_INT(blr)	STUFF (blr); STUFF ((blr) >> 8); STUFF ((blr) >> 16); STUFF ((blr) >> 24)
+#define STUFF_CHECK(n)	if (request->req_base - request->req_blr + request->req_length <= (n) + 50)\
+			CMP_check (request,(n))
+#define MAX_TPB		4000
+#define STANDARD_TPB	4
+#define BLOB_BUFFER_SIZE   4096	/* to read in blr blob for default values */
+
+
+//____________________________________________________________
+//
+//		Compile a single request, but do not generate any text.
+//		Generate port blocks, assign parameter numbers, message
+//		numbers, and internal idents.  Compute length of request.
+//
+
+CMD_compile_ddl(register REQ request)
+{
+	ACT action;
+	IND index;
+	REL relation;
+
+//  Initialize the blr string 
+
+	action = request->req_actions;
+	request->req_blr = request->req_base = ALLOC(250);
+	request->req_length = 250;
+	request->req_flags |= REQ_exp_hand;
+	STUFF(gds_dyn_version_1);
+	STUFF(gds_dyn_begin);
+
+	switch (action->act_type) {
+	case ACT_alter_table:
+		alter_table(request, action);
+		break;
+
+	case ACT_alter_database:
+		alter_database(request, action);
+		break;
+
+	case ACT_alter_domain:
+		alter_domain(request, action);
+		break;
+
+	case ACT_alter_index:
+		alter_index(request, action);
+		break;
+
+	case ACT_create_database:
+		if (!(request->req_flags & REQ_sql_database_dyn)) {
+			request->req_blr = request->req_base;
+			create_database(request, action);
+			return 0;
+		}
+		else
+			create_database_modify_dyn(request, action);
+		break;
+
+
+	case ACT_create_domain:
+		create_domain(request, action);
+		break;
+
+	case ACT_create_generator:
+		create_generator(request, action);
+		break;
+
+	case ACT_create_index:
+		index = (IND) action->act_object;
+		create_index(request, index);
+		break;
+
+	case ACT_create_shadow:
+		create_shadow(request, action);
+		break;
+
+	case ACT_create_table:
+		create_table(request, action);
+		break;
+
+	case ACT_create_view:
+		if (!create_view(request, action))
+			return -1;
+		break;
+
+	case ACT_drop_database:
+		break;
+
+	case ACT_drop_domain:
+		put_cstring(request, gds_dyn_delete_global_fld,
+					(TEXT *) action->act_object);
+		STUFF_END;
+		break;
+
+	case ACT_drop_filter:
+		put_cstring(request, gds_dyn_delete_filter,
+					(TEXT *) action->act_object);
+		STUFF_END;
+		break;
+
+	case ACT_drop_index:
+		index = (IND) action->act_object;
+		put_symbol(request, gds_dyn_delete_idx, index->ind_symbol);
+		STUFF_END;
+		break;
+
+	case ACT_drop_shadow:
+		put_numeric(request, gds_dyn_delete_shadow,
+					(SSHORT) action->act_object);
+		STUFF_END;
+		break;
+
+	case ACT_drop_table:
+	case ACT_drop_view:
+		relation = (REL) action->act_object;
+		put_symbol(request, gds_dyn_delete_rel, relation->rel_symbol);
+		STUFF_END;
+		break;
+
+	case ACT_drop_udf:
+		put_cstring(request, gds_dyn_delete_function,
+					(TEXT *) action->act_object);
+		STUFF_END;
+		break;
+
+	case ACT_dyn_grant:
+		grant_revoke_privileges(request, action);
+		break;
+
+	case ACT_dyn_revoke:
+		grant_revoke_privileges(request, action);
+		break;
+
+	case ACT_declare_filter:
+		declare_filter(request, action);
+		break;
+
+	case ACT_declare_udf:
+		declare_udf(request, action);
+		break;
+
+	case ACT_statistics:
+		set_statistics(request, action);
+		break;
+
+	default:
+		CPR_error("*** unknown request type node ***");
+		return -1;
+	}
+
+	STUFF_END;
+	STUFF(gds_dyn_eoc);
+	request->req_length = request->req_blr - request->req_base;
+	request->req_blr = request->req_base;
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Add cache file to a database.
+//  
+
+static void add_cache( REQ request, ACT action, DBB dbb)
+{
+	FIL file;
+	TEXT file_name[254];
+	SSHORT l;
+
+	file = dbb->dbb_cache_file;
+	l = MIN((strlen(file->fil_name)), (sizeof(file_name) - 1));
+
+	strncpy(file_name, file->fil_name, l);
+	file_name[l] = '\0';
+	put_cstring(request, gds_dyn_def_cache_file, file_name);
+	STUFF(gds_dyn_file_length);
+	STUFF_WORD(4);
+	STUFF_INT(file->fil_length);
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Add log files to a database.
+//  
+
+static void add_log_files( REQ request, ACT action, DBB db)
+{
+	FIL file, next;
+	SSHORT number;
+
+//  Reverse the order of files (parser left them backwards) 
+
+	for (file = db->dbb_logfiles, db->dbb_logfiles = NULL; file; file = next) {
+		next = file->fil_next;
+		file->fil_next = db->dbb_logfiles;
+		db->dbb_logfiles = file;
+	}
+
+	number = 0;
+
+//  generate values for default log 
+
+	if (db->dbb_flags & DBB_log_default)
+		STUFF(gds_dyn_def_default_log);
+
+	for (file = db->dbb_logfiles; file; file = file->fil_next) {
+		put_cstring(request, gds_dyn_def_log_file, file->fil_name);
+		STUFF(gds_dyn_file_length);
+		STUFF_WORD(4);
+		STUFF_INT(file->fil_length);
+		STUFF(gds_dyn_log_file_sequence);
+		STUFF_WORD(2);
+		STUFF_WORD(number);
+		number++;
+		STUFF(gds_dyn_log_file_partitions);
+		STUFF_WORD(2);
+		STUFF_WORD(file->fil_partitions);
+		if (file->fil_flags & FIL_raw)
+			STUFF(gds_dyn_log_file_raw);
+		if (db->dbb_flags & DBB_log_serial)
+			STUFF(gds_dyn_log_file_serial);
+		STUFF_END;
+	}
+
+	if (file = db->dbb_overflow) {
+		put_cstring(request, gds_dyn_def_log_file, file->fil_name);
+		STUFF(gds_dyn_file_length);
+		STUFF_WORD(4);
+		STUFF_INT(file->fil_length);
+		STUFF(gds_dyn_log_file_sequence);
+		STUFF_WORD(2);
+		STUFF_WORD(number);
+		number++;
+		STUFF(gds_dyn_log_file_partitions);
+		STUFF_WORD(2);
+		STUFF_WORD(file->fil_partitions);
+		STUFF(gds_dyn_log_file_serial);
+		STUFF(gds_dyn_log_file_overflow);
+		STUFF_END;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for modifying database.
+//  
+
+static void alter_database( REQ request, ACT action)
+{
+	DBB db;
+	FIL files, file, next;
+	SLONG start;
+
+	db = (DBB) action->act_object;
+
+	STUFF(gds_dyn_mod_database);
+
+//  Reverse the order of files (parser left them backwards) 
+
+	files = db->dbb_files;
+	for (file = files, files = NULL; file; file = next) {
+		next = file->fil_next;
+		file->fil_next = files;
+		files = file;
+	}
+
+	for (file = files; file != NULL; file = file->fil_next) {
+		put_cstring(request, gds_dyn_def_file, file->fil_name);
+		STUFF(gds_dyn_file_start);
+		STUFF_WORD(4);
+		start = file->fil_start;
+		STUFF_INT(start);
+		STUFF(gds_dyn_file_length);
+		STUFF_WORD(4);
+		STUFF_INT(file->fil_length);
+		STUFF_END;
+	}
+
+//  Drop log and cache 
+
+	if (db->dbb_flags & DBB_drop_log)
+		STUFF(gds_dyn_drop_log);
+	if (db->dbb_flags & DBB_drop_cache)
+		STUFF(gds_dyn_drop_cache);
+
+// **** Add log files ****
+
+	if ((db->dbb_flags & DBB_log_default) || (db->dbb_logfiles))
+		add_log_files(request, action, db);
+
+	if (db->dbb_cache_file)
+		add_cache(request, action, db);
+
+	if (db->dbb_chkptlen) {
+		STUFF(gds_dyn_log_check_point_length);
+		STUFF_WORD(4);
+		STUFF_INT(db->dbb_chkptlen);
+	}
+	if (db->dbb_numbufs) {
+		STUFF(gds_dyn_log_num_of_buffers);
+		STUFF_WORD(2);
+		STUFF_WORD(db->dbb_numbufs);
+	}
+
+	if (db->dbb_bufsize) {
+		STUFF(gds_dyn_log_buffer_size);
+		STUFF_WORD(2);
+		STUFF_WORD(db->dbb_bufsize);
+	}
+
+
+	if (db->dbb_grp_cmt_wait != -1) {
+		STUFF(gds_dyn_log_group_commit_wait);
+		STUFF_WORD(4);
+		STUFF_INT(db->dbb_grp_cmt_wait);
+	}
+
+	if (db->dbb_def_charset)
+		put_cstring(request, gds_dyn_fld_character_set_name,
+					db->dbb_def_charset);
+
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for CREATE DOMAIN action.
+//  
+
+static void alter_domain( REQ request, ACT action)
+{
+	FLD field;
+	TEXT *default_source;
+	NOD default_node;
+	CNSTRT cnstrt;
+
+	field = (FLD) action->act_object;
+
+//  modify field info 
+
+	put_symbol(request, gds_dyn_mod_global_fld, field->fld_symbol);
+
+	if (default_node = field->fld_default_value) {
+		if (default_node->nod_type == nod_erase) {
+			STUFF(gds_dyn_del_default);
+		}
+		else {
+			put_blr(request, gds_dyn_fld_default_value,
+					field->fld_default_value,
+					reinterpret_cast < pfn_local_trigger_cb > (CME_expr));
+			default_source =
+				(TEXT *) ALLOC(field->fld_default_source->txt_length + 1);
+			CPR_get_text(default_source, field->fld_default_source);
+			put_cstring(request, gds_dyn_fld_default_source, default_source);
+		}
+	}
+
+	if (field->fld_constraints) {
+		STUFF(gds_dyn_single_validation);
+		for (cnstrt = field->fld_constraints; cnstrt;
+			 cnstrt =
+			 cnstrt->cnstrt_next) if (cnstrt->
+									  cnstrt_flags & CNSTRT_delete)
+					STUFF(gds_dyn_del_validation);
+		create_domain_constraint(request, action, field->fld_constraints);
+	}
+
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for ALTER INDEX statement
+//  
+
+static void alter_index( REQ request, ACT action)
+{
+	IND index;
+	SSHORT value;
+
+	index = (IND) action->act_object;
+	put_symbol(request, gds_dyn_mod_idx, index->ind_symbol);
+
+	value = (index->ind_flags & IND_active) ? 0 : 1;
+	put_numeric(request, gds_dyn_idx_inactive, value);
+
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for ALTER TABLE action.
+//  
+
+static void alter_table( REQ request, ACT action)
+{
+	FLD field;
+	REL relation;
+	CNSTRT cnstrt;
+	TEXT *default_source;
+
+//  add relation name 
+
+	relation = (REL) action->act_object;
+	put_symbol(request, gds_dyn_mod_rel, relation->rel_symbol);
+
+//  add field info 
+
+	for (field = relation->rel_fields; field; field = field->fld_next) {
+		if (field->fld_flags & FLD_delete) {
+			put_symbol(request, gds_dyn_delete_local_fld, field->fld_symbol);
+			STUFF_END;
+		}
+		else if (field->fld_flags & FLD_meta) {
+			if (field->fld_global) {
+				put_symbol(request, gds_dyn_def_local_fld, field->fld_symbol);
+				put_symbol(request, gds_dyn_fld_source, field->fld_global);
+			}
+			else
+				put_symbol(request, gds_dyn_def_sql_fld, field->fld_symbol);
+
+			put_field_attributes(request, field);
+
+			if (field->fld_default_value) {
+				put_blr(request, gds_dyn_fld_default_value,
+						field->fld_default_value,
+						reinterpret_cast < pfn_local_trigger_cb > (CME_expr));
+				default_source = (TEXT *)
+					ALLOC(field->fld_default_source->txt_length + 1);
+				CPR_get_text(default_source, field->fld_default_source);
+				put_cstring(request, gds_dyn_fld_default_source,
+							default_source);
+			}
+
+			STUFF_END;
+
+			/* Any constraints defined for field being added  ?  */
+
+			if (field->fld_constraints)
+				create_constraint(request, action, field->fld_constraints);
+		}
+	}
+
+//  Check for any relation level ADD/DROP of constraints 
+
+	if (relation->rel_constraints) {
+		for (cnstrt = relation->rel_constraints; cnstrt;
+			 cnstrt =
+			 cnstrt->cnstrt_next) if (cnstrt->
+									  cnstrt_flags & CNSTRT_delete)
+					put_cstring(request, gds_dyn_delete_rel_constraint,
+								(TEXT *) cnstrt->cnstrt_name);
+		create_constraint(request, action, relation->rel_constraints);
+	}
+
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dyn for creating a CHECK constraint.
+//  
+
+static void create_check_constraint( REQ request, ACT action, CNSTRT cnstrt)
+{
+	TRG trigger;
+
+	trigger = (TRG) ALLOC(TRG_LEN);
+
+//  create the INSERT trigger 
+
+	trigger->trg_type = PRE_STORE_TRIGGER;
+
+//  "insert violates CHECK constraint on table" 
+
+	trigger->trg_message = (STR) NULL;
+	trigger->trg_boolean = cnstrt->cnstrt_boolean;
+	trigger->trg_source = (STR) ALLOC(cnstrt->cnstrt_text->txt_length + 1);
+	CPR_get_text((TEXT *) trigger->trg_source, cnstrt->cnstrt_text);
+	create_trigger(request, action, trigger,
+				   reinterpret_cast < pfn_local_trigger_cb > (CME_expr));
+
+//  create the UPDATE trigger   
+
+	trigger->trg_type = PRE_MODIFY_TRIGGER;
+
+//  "update violates CHECK constraint on table" 
+
+	create_trigger(request, action, trigger,
+				   reinterpret_cast < pfn_local_trigger_cb > (CME_expr));
+}
+
+
+//____________________________________________________________
+//  
+//  Function
+//		Generate blr to express: if (old.primary_key != new.primary_key).
+//		do a column by column comparison.
+//  
+
+static void create_trg_firing_cond( REQ request, CNSTRT cnstrt)
+{
+	LLS prim_key_fld, field;
+	USHORT num_flds = 0, prim_key_num_flds = 0;
+	STR prim_key_fld_name;
+
+//  count primary key columns 
+	field = prim_key_fld = cnstrt->cnstrt_referred_fields;
+
+	assert(field != NULL);
+
+	while (field) {
+		prim_key_num_flds++;
+		field = field->lls_next;
+	}
+
+	assert(prim_key_num_flds > 0)
+
+//  generate blr 
+		STUFF(blr_if);
+	if (prim_key_num_flds > 1)
+		STUFF(blr_or);
+
+	for (; prim_key_fld; prim_key_fld = prim_key_fld->lls_next) {
+		STUFF(blr_neq);
+
+		prim_key_fld_name = (STR) prim_key_fld->lls_object;
+
+		STUFF(blr_field);
+		STUFF((SSHORT) 0);
+		put_cstring(request, 0, (TEXT *) prim_key_fld_name);
+		STUFF(blr_field);
+		STUFF((SSHORT) 1);
+		put_cstring(request, 0, (TEXT *) prim_key_fld_name);
+
+		num_flds++;
+
+		if (prim_key_num_flds - num_flds >= 2)
+			STUFF(blr_or);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//  Function
+//		Generate blr to express: foreign_key == primary_key
+//		ie.,  for_key.column_1 = prim_key.column_1 and
+//		for_key.column_2 = prim_key.column_2 and ....  so on..
+//  
+
+static void create_matching_blr( REQ request, CNSTRT cnstrt)
+{
+	LLS field, for_key_fld, prim_key_fld;
+	USHORT for_key_num_flds = 0, prim_key_num_flds = 0, num_flds = 0;
+	STR for_key_fld_name, prim_key_fld_name;
+
+//  count primary key columns 
+	field = prim_key_fld = cnstrt->cnstrt_referred_fields;
+
+	assert(field != NULL);
+
+	while (field) {
+		prim_key_num_flds++;
+		field = field->lls_next;
+	}
+
+	assert(prim_key_num_flds > 0)
+
+//  count of foreign key columns 
+		field = for_key_fld = cnstrt->cnstrt_fields;
+
+	assert(field != NULL);
+
+	while (field) {
+		for_key_num_flds++;
+		field = field->lls_next;
+	}
+
+	assert(for_key_num_flds > 0)
+		assert(prim_key_num_flds == for_key_num_flds);
+
+	STUFF(blr_boolean);
+	if (prim_key_num_flds > 1)
+		STUFF(blr_and);
+
+	num_flds = 0;
+
+	do {
+		STUFF(blr_eql);
+
+		for_key_fld_name = (STR) for_key_fld->lls_object;
+		prim_key_fld_name = (STR) prim_key_fld->lls_object;
+
+		STUFF(blr_field);
+		STUFF((SSHORT) 2);
+		put_cstring(request, 0, (TEXT *) for_key_fld_name);
+		STUFF(blr_field);
+		STUFF((SSHORT) 0);
+		put_cstring(request, 0, (TEXT *) prim_key_fld_name);
+
+		num_flds++;
+
+		if (prim_key_num_flds - num_flds >= 2)
+			STUFF(blr_and);
+
+		for_key_fld = for_key_fld->lls_next;
+		prim_key_fld = prim_key_fld->lls_next;
+	}
+	while (num_flds < for_key_num_flds);
+
+	STUFF(blr_end);
+}
+
+
+//____________________________________________________________
+//  Function:
+//		The default_blr is passed in default_buffer. It is of the form:
+//		blr_version4 blr_literal ..... blr_eoc.
+//		strip the blr_version4/blr_version5 and blr_eoc verbs and stuff the remaining
+//		blr in the blr stream in the request.
+//  
+
+static void create_default_blr(
+							   REQ request,
+							   TEXT * default_buff, USHORT buff_size)
+{
+	int i;
+
+	assert(*default_buff == blr_version4 || *default_buff == blr_version5);
+
+	for (i = 1; ((i < buff_size) && (default_buff[i] != blr_eoc)); i++)
+		STUFF(default_buff[i]);
+
+	assert(default_buff[i] == blr_eoc);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dyn for "on update cascade" trigger (for referential
+//		integrity) along with the trigger blr.
+//  
+
+static void create_upd_cascade_trg( REQ request, ACT action, CNSTRT cnstrt)
+{
+
+	LLS for_key_fld, prim_key_fld;
+	STR for_key_fld_name, prim_key_fld_name;
+	USHORT offset, length;
+	REL relation;
+
+	for_key_fld = cnstrt->cnstrt_fields;
+	prim_key_fld = cnstrt->cnstrt_referred_fields;
+	relation = (REL) action->act_object;
+
+//  no trigger name is generated here. Let the engine make one up 
+	put_string(request, gds_dyn_def_trigger, "", (USHORT) 0);
+
+	put_numeric(request, gds_dyn_trg_type, (SSHORT) POST_MODIFY_TRIGGER);
+
+	STUFF(gds_dyn_sql_object);
+	put_numeric(request, gds_dyn_trg_sequence, (SSHORT) 1);
+	put_numeric(request, gds_dyn_trg_inactive, (SSHORT) 0);
+	put_cstring(request, gds_dyn_rel_name,
+				(TEXT *) cnstrt->cnstrt_referred_rel);
+
+//  the trigger blr 
+
+	STUFF(gds_dyn_trg_blr);
+	offset = request->req_blr - request->req_base;
+
+	STUFF_WORD(0);
+	if (request->req_flags & REQ_blr_version4)
+		STUFF(blr_version4);
+	else
+		STUFF(blr_version5);
+
+	create_trg_firing_cond(request, cnstrt);
+
+	STUFF(blr_begin);
+	STUFF(blr_begin);
+
+	STUFF(blr_for);
+	STUFF(blr_rse);
+
+//  the new context for the prim. key relation 
+	STUFF(1);
+
+	STUFF(blr_relation);
+	put_cstring(request, 0, relation->rel_symbol->sym_string);
+//  the context for the foreign key relation 
+	STUFF(2);
+
+//  generate the blr for: foreign_key == primary_key 
+	create_matching_blr(request, cnstrt);
+
+	STUFF(blr_modify);
+	STUFF((SSHORT) 2);
+	STUFF((SSHORT) 2);
+	STUFF(blr_begin);
+
+	for (; for_key_fld && prim_key_fld;
+		 for_key_fld = for_key_fld->lls_next, prim_key_fld =
+		 prim_key_fld->lls_next) {
+		for_key_fld_name = (STR) for_key_fld->lls_object;
+		prim_key_fld_name = (STR) prim_key_fld->lls_object;
+
+		STUFF(blr_assignment);
+		STUFF(blr_field);
+		STUFF((SSHORT) 1);
+		put_cstring(request, 0, (TEXT *) prim_key_fld_name);
+		STUFF(blr_field);
+		STUFF((SSHORT) 2);
+		put_cstring(request, 0, (TEXT *) for_key_fld_name);
+	}
+
+	STUFF(blr_end);
+	STUFF(blr_end);
+	STUFF(blr_end);
+	STUFF(blr_end);
+
+	STUFF(blr_eoc);
+	length = request->req_blr - request->req_base - offset - 2;
+	request->req_base[offset] = (UCHAR) length;
+	request->req_base[offset + 1] = (UCHAR) (length >> 8);
+//  end of the blr 
+
+//  no trg_source and no trg_description 
+	STUFF(gds_dyn_end);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dyn for "on delete cascade" trigger (for referential
+//		integrity) along with the trigger blr.
+//  
+
+static void create_del_cascade_trg( REQ request, ACT action, CNSTRT cnstrt)
+{
+	REL relation;
+	USHORT offset, length;
+
+	relation = (REL) action->act_object;
+
+//  stuff a trigger_name of size 0. So the dyn-parser will make one up.  
+	put_string(request, gds_dyn_def_trigger, "", (USHORT) 0);
+
+	put_numeric(request, gds_dyn_trg_type, (SSHORT) POST_ERASE_TRIGGER);
+
+	STUFF(gds_dyn_sql_object);
+	put_numeric(request, gds_dyn_trg_sequence, (SSHORT) 1);
+	put_numeric(request, gds_dyn_trg_inactive, (SSHORT) 0);
+	put_cstring(request, gds_dyn_rel_name,
+				(TEXT *) cnstrt->cnstrt_referred_rel);
+
+//  the trigger blr 
+	STUFF(gds_dyn_trg_blr);
+	offset = request->req_blr - request->req_base;
+
+	STUFF_WORD(0);
+	if (request->req_flags & REQ_blr_version4)
+		STUFF(blr_version4);
+	else
+		STUFF(blr_version5);
+
+	STUFF(blr_for);
+	STUFF(blr_rse);
+
+//  the context for the prim. key relation 
+	STUFF(1);
+
+	STUFF(blr_relation);
+	put_cstring(request, 0, relation->rel_symbol->sym_string);
+//  the context for the foreign key relation 
+	STUFF(2);
+
+	create_matching_blr(request, cnstrt);
+
+	STUFF(blr_erase);
+	STUFF((SSHORT) 2);
+	STUFF(blr_eoc);
+	length = request->req_blr - request->req_base - offset - 2;
+	request->req_base[offset] = (UCHAR) length;
+	request->req_base[offset + 1] = (UCHAR) (length >> 8);
+//  end of the blr 
+
+//  no trg_source and no trg_description 
+	STUFF(gds_dyn_end);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dyn for "on delete|update set default" trigger (for 
+//		referential integrity) along with the trigger blr.
+//		The non_upd_trg parameter == TRUE is an update trigger.
+//  
+
+static void create_set_default_trg(
+								   REQ request,
+								   ACT action,
+								   CNSTRT cnstrt, BOOLEAN on_upd_trg)
+{
+
+	BOOLEAN search_for_default, search_for_column;
+	TEXT *search_for_domain;
+	FLD field, domain, fld;
+	LLS for_key_fld;
+	STR for_key_fld_name;
+	USHORT offset, length;
+	REL relation, rel;
+	REQ req;
+	ACT act;
+	TEXT s[512];
+	TEXT default_val[BLOB_BUFFER_SIZE];
+
+	assert(request->req_actions->act_type == ACT_create_table ||
+		   request->req_actions->act_type == ACT_alter_table);
+
+	for_key_fld = cnstrt->cnstrt_fields;
+	relation = (REL) action->act_object;
+
+//  no trigger name. It is generated by the engine 
+	put_string(request, gds_dyn_def_trigger, "", (USHORT) 0);
+
+	put_numeric(request, gds_dyn_trg_type,
+				(SSHORT) (on_upd_trg ? POST_MODIFY_TRIGGER :
+						  POST_ERASE_TRIGGER));
+
+	STUFF(gds_dyn_sql_object);
+	put_numeric(request, gds_dyn_trg_sequence, (SSHORT) 1);
+	put_numeric(request, gds_dyn_trg_inactive, (SSHORT) 0);
+	put_cstring(request, gds_dyn_rel_name,
+				(TEXT *) cnstrt->cnstrt_referred_rel);
+
+//  the trigger blr 
+
+	STUFF(gds_dyn_trg_blr);
+	offset = request->req_blr - request->req_base;
+
+	STUFF_WORD(0);
+	if (request->req_flags & REQ_blr_version4)
+		STUFF(blr_version4);
+	else
+		STUFF(blr_version5);
+
+//  for ON UPDATE TRIGGER only: generate the trigger firing condition:
+//  if prim_key.old_value != prim_key.new value.
+//  Note that the key could consist of multiple columns 
+
+	if (on_upd_trg) {
+		create_trg_firing_cond(request, cnstrt);
+		STUFF(blr_begin);
+		STUFF(blr_begin);
+	}
+
+	STUFF(blr_for);
+	STUFF(blr_rse);
+
+//  the context for the prim. key relation 
+	STUFF(1);
+
+	STUFF(blr_relation);
+	put_cstring(request, 0, relation->rel_symbol->sym_string);
+//  the context for the foreign key relation 
+	STUFF(2);
+
+	create_matching_blr(request, cnstrt);
+
+	STUFF(blr_modify);
+	STUFF((SSHORT) 2);
+	STUFF((SSHORT) 2);
+	STUFF(blr_begin);
+
+	for (; for_key_fld; for_key_fld = for_key_fld->lls_next) {
+		/* for every column in the foreign key .... */
+		for_key_fld_name = (STR) for_key_fld->lls_object;
+
+		STUFF(blr_assignment);
+
+		/* here stuff the default value as blr_literal .... or blr_null
+		   if this column does not have an applicable default */
+
+		/* the default is determined in many cases:
+		   (1) The default-info for the column is in memory. (This is because
+		   the column is being created in this application)
+
+		   (1-a) the table has a column level default. We get this by
+		   searching both current ddl statement and requests
+		   linked list.
+		   (1-b) the table does not have a column level default, but
+		   has a domain default. We get this by searching
+		   requests linked list.
+		   (2) The default-info for the column is not in memory.
+		   We get the column and/or domain default value from the system
+		   tables by calling MET_get_column_default/MET_get_domain_defult */
+
+		search_for_default = TRUE;
+		search_for_column = FALSE;
+		search_for_domain = NULL;
+
+		/* Is the column being created in this ddl statement ? */
+		for (field = relation->rel_fields; field; field = field->fld_next) {
+			if (strcmp
+				(field->fld_symbol->sym_string,
+				 (const char *) for_key_fld_name) == 0)
+				break;
+		}
+
+		if (field) {
+			/* Yes. The column is being created in this ddl statement */
+			if (field->fld_default_value) {
+				/* (1-a) */
+				CME_expr(field->fld_default_value, request);
+				search_for_default = FALSE;
+			}
+			else {
+				/* check for domain default */
+				if (field->fld_global) {
+					/* could be either (1-b) or (2) */
+					search_for_domain = field->fld_global->sym_string;
+				}
+				else {
+					STUFF(blr_null);
+					search_for_default = FALSE;
+				}
+			}
+		}
+		else {
+			/* Nop. The column is not being created in this ddl statement */
+			if (request->req_actions->act_type == ACT_create_table) {
+				sprintf(s, "field \"%s\" does not exist in relation \"%s\"",
+						for_key_fld_name, relation->rel_symbol->sym_string);
+				CPR_error(s);
+			}
+
+			/* Thus we have an ALTER TABLE statement. */
+
+			/* If somebody is 'clever' enough to create table and then to alter it
+			   within the same application ... */
+			for (req = requests; req; req = req->req_next) {
+				if ((req->req_type == REQ_ddl) &&
+					(act = req->req_actions) &&
+					(act->act_type == ACT_create_table ||
+					 act->act_type == ACT_alter_table) &&
+					(rel = (REL) act->act_object) &&
+					(strcmp(rel->rel_symbol->sym_string,
+							relation->rel_symbol->sym_string) == 0)) {
+					/* ... then try to check for the default in memory */
+					for (fld = (FLD) rel->rel_fields;
+						 fld; fld = fld->fld_next) {
+						if (strcmp(fld->fld_symbol->sym_string,
+								   (const char *) for_key_fld_name) != 0)
+							continue;
+						if (fld->fld_default_value) {
+							/* case (1-a): */
+							CME_expr(fld->fld_default_value, request);
+							search_for_default = FALSE;
+						}
+						else {
+							if (fld->fld_global) {
+								search_for_domain =
+									fld->fld_global->sym_string;
+							}
+							else {
+								/* default not found */
+								STUFF(blr_null);
+								search_for_default = FALSE;
+							}
+						}
+						break;
+					}
+					if (fld)
+						break;
+				}
+			}
+			if (!req)
+				search_for_column = TRUE;
+		}
+
+		if (search_for_default && search_for_domain != NULL) {
+			/* search for domain level default */
+			assert(search_for_column == FALSE);
+			/* search for domain in memory */
+			for (req = requests; req; req = req->req_next) {
+				if ((req->req_type == REQ_ddl) &&
+					(act = req->req_actions) &&
+					((act->act_type == ACT_create_domain) ||
+					 (act->act_type == ACT_alter_domain)) &&
+					(domain = (FLD) act->act_object) &&
+					(strcmp(search_for_domain,
+							domain->fld_symbol->sym_string) == 0) &&
+					(domain->fld_default_value->nod_type != nod_erase)) {
+					/* domain found in memory */
+					if (domain->fld_default_value) {
+						/* case (1-b) */
+						CME_expr(domain->fld_default_value, request);
+					}
+					else {
+						/* default not found */
+						STUFF(blr_null);
+					}
+					search_for_default = FALSE;
+					break;
+				}
+			}
+
+			if (search_for_default) {
+				/* search for domain in db system tables */
+				if (MET_get_domain_default(relation->rel_database,
+										   search_for_domain,
+										   default_val, sizeof(default_val))) {
+					create_default_blr(request, default_val,
+									   sizeof(default_val));
+				}
+				else {
+					STUFF(blr_null);
+				}
+				search_for_default = FALSE;
+			}
+		}						/* end of search for domain level default */
+
+		if (search_for_default && search_for_column) {
+			/* nothing is found in memory, try to check db system tables */
+			assert(search_for_domain == NULL);
+			if (MET_get_column_default(relation, (TEXT *) for_key_fld_name,
+									   default_val,
+									   sizeof(default_val)) != FALSE) {
+				create_default_blr(request, default_val, sizeof(default_val));
+			}
+			else {
+				STUFF(blr_null);
+			}
+		}
+
+		/* the context for the foreign key relation */
+		STUFF(blr_field);
+		STUFF((SSHORT) 2);
+		put_cstring(request, 0, (TEXT *) for_key_fld_name);
+
+	}
+	STUFF(blr_end);
+
+	if (on_upd_trg) {
+		STUFF(blr_end);
+		STUFF(blr_end);
+		STUFF(blr_end);
+	}
+
+	STUFF(blr_eoc);
+	length = request->req_blr - request->req_base - offset - 2;
+	request->req_base[offset] = (UCHAR) length;
+	request->req_base[offset + 1] = (UCHAR) (length >> 8);
+//  end of the blr 
+
+//  no trg_source and no trg_description 
+	STUFF(gds_dyn_end);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dyn for "on delete|update set null" trigger (for 
+//		referential integrity). The trigger blr is the same for
+//		both the delete and update cases. Only differences is its
+//		TRIGGER_TYPE (ON DELETE or ON UPDATE).
+//		The non_upd_trg parameter == TRUE is an update trigger.
+//  
+
+static void create_set_null_trg(
+								REQ request,
+								ACT action, CNSTRT cnstrt, BOOLEAN on_upd_trg)
+{
+
+	LLS for_key_fld;
+	STR for_key_fld_name;
+	USHORT offset, length;
+	REL relation;
+
+	for_key_fld = cnstrt->cnstrt_fields;
+	relation = (REL) action->act_object;
+
+//  no trigger name. It is generated by the engine 
+	put_string(request, gds_dyn_def_trigger, "", (USHORT) 0);
+
+	put_numeric(request, gds_dyn_trg_type,
+				(SSHORT) (on_upd_trg ? POST_MODIFY_TRIGGER :
+						  POST_ERASE_TRIGGER));
+
+	STUFF(gds_dyn_sql_object);
+	put_numeric(request, gds_dyn_trg_sequence, (SSHORT) 1);
+	put_numeric(request, gds_dyn_trg_inactive, (SSHORT) 0);
+	put_cstring(request, gds_dyn_rel_name,
+				(TEXT *) cnstrt->cnstrt_referred_rel);
+
+//  the trigger blr 
+
+	STUFF(gds_dyn_trg_blr);
+	offset = request->req_blr - request->req_base;
+
+	STUFF_WORD(0);
+	if (request->req_flags & REQ_blr_version4)
+		STUFF(blr_version4);
+	else
+		STUFF(blr_version5);
+
+//  for ON UPDATE TRIGGER only: generate the trigger firing condition:
+//  if prim_key.old_value != prim_key.new value.
+//  Note that the key could consist of multiple columns 
+
+	if (on_upd_trg) {
+		create_trg_firing_cond(request, cnstrt);
+		STUFF(blr_begin);
+		STUFF(blr_begin);
+	}
+
+	STUFF(blr_for);
+	STUFF(blr_rse);
+
+//  the context for the prim. key relation 
+	STUFF(1);
+
+	STUFF(blr_relation);
+	put_cstring(request, 0, relation->rel_symbol->sym_string);
+//  the context for the foreign key relation 
+	STUFF(2);
+
+	create_matching_blr(request, cnstrt);
+
+	STUFF(blr_modify);
+	STUFF((SSHORT) 2);
+	STUFF((SSHORT) 2);
+	STUFF(blr_begin);
+
+	for (; for_key_fld; for_key_fld = for_key_fld->lls_next) {
+		for_key_fld_name = (STR) for_key_fld->lls_object;
+
+		STUFF(blr_assignment);
+		STUFF(blr_null);
+		STUFF(blr_field);
+		STUFF((SSHORT) 2);
+		put_cstring(request, 0, (TEXT *) for_key_fld_name);
+	}
+	STUFF(blr_end);
+
+	if (on_upd_trg) {
+		STUFF(blr_end);
+		STUFF(blr_end);
+		STUFF(blr_end);
+	}
+
+	STUFF(blr_eoc);
+	length = request->req_blr - request->req_base - offset - 2;
+	request->req_base[offset] = (UCHAR) length;
+	request->req_base[offset + 1] = (UCHAR) (length >> 8);
+//  end of the blr 
+
+//  no trg_source and no trg_description 
+	STUFF(gds_dyn_end);
+}
+
+
+//____________________________________________________________
+//  
+//		Get referred fields from memory/system tables
+//  
+
+static void get_referred_fields( ACT action, CNSTRT cnstrt)
+{
+	REQ req;
+	REL rel, relation;
+	ACT act;
+	CNSTRT cns;
+	TEXT s[512];
+	LLS field;
+	USHORT prim_key_num_flds = 0, for_key_num_flds = 0;
+
+	relation = (REL) action->act_object;
+
+	for (req = requests; req; req = req->req_next) {
+		if ((req->req_type == REQ_ddl) &&
+			(act = req->req_actions) &&
+			(act->act_type == ACT_create_table ||
+			 act->act_type == ACT_alter_table) &&
+			(rel = (REL) act->act_object) &&
+			(strcmp(rel->rel_symbol->sym_string,
+					(const char *) cnstrt->cnstrt_referred_rel) == 0)) {
+			for (cns = rel->rel_constraints; cns; cns = cns->cnstrt_next)
+				if (cns->cnstrt_type == CNSTRT_PRIMARY_KEY) {
+					cnstrt->cnstrt_referred_fields = cns->cnstrt_fields;
+					break;
+				}
+			if (!cnstrt->cnstrt_referred_fields && rel->rel_fields)
+				for (cns = rel->rel_fields->fld_constraints; cns;
+					 cns =
+					 cns->cnstrt_next) if (cns->cnstrt_type ==
+										   CNSTRT_PRIMARY_KEY) {
+						cnstrt->cnstrt_referred_fields = cns->cnstrt_fields;
+						break;
+					}
+			if (cnstrt->cnstrt_referred_fields)
+				break;
+		}
+	}
+
+	if (cnstrt->cnstrt_referred_fields == NULL)
+		/* Nothing is in memory. Try to find in system tables */
+		cnstrt->cnstrt_referred_fields =
+			MET_get_primary_key(relation->rel_database,
+								(TEXT *) cnstrt->cnstrt_referred_rel);
+
+	if (cnstrt->cnstrt_referred_fields == NULL) {
+		/* Nothing is in system tables. */
+		sprintf(s,
+				"\"REFERENCES %s\" without \"(column list)\" requires PRIMARY KEY on referenced table",
+				cnstrt->cnstrt_referred_rel);
+		CPR_error(s);
+	}
+	else {
+		/* count both primary key and foreign key columns */
+		field = cnstrt->cnstrt_referred_fields;
+		while (field) {
+			prim_key_num_flds++;
+			field = field->lls_next;
+		}
+		field = cnstrt->cnstrt_fields;
+		while (field) {
+			for_key_num_flds++;
+			field = field->lls_next;
+		}
+		if (prim_key_num_flds != for_key_num_flds) {
+			sprintf(s,
+					"PRIMARY KEY column count in relation \"%s\" does not match FOREIGN KEY in relation \"%s\"",
+					cnstrt->cnstrt_referred_rel,
+					relation->rel_symbol->sym_string);
+			CPR_error(s);
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dyn for creating a constraint.
+//  
+
+static void create_constraint( REQ request, ACT action, CNSTRT cnstrt)
+{
+	LLS field;
+	STR string;
+
+	for (; cnstrt; cnstrt = cnstrt->cnstrt_next) {
+		if (cnstrt->cnstrt_flags & CNSTRT_delete)
+			continue;
+		put_cstring(request, gds_dyn_rel_constraint,
+					(TEXT *) cnstrt->cnstrt_name);
+
+		if (cnstrt->cnstrt_type == CNSTRT_PRIMARY_KEY)
+			STUFF(gds_dyn_def_primary_key);
+		else if (cnstrt->cnstrt_type == CNSTRT_UNIQUE)
+			STUFF(gds_dyn_def_unique);
+		else if (cnstrt->cnstrt_type == CNSTRT_FOREIGN_KEY)
+			STUFF(gds_dyn_def_foreign_key);
+		else if (cnstrt->cnstrt_type == CNSTRT_NOT_NULL) {
+			STUFF(gds_dyn_fld_not_null);
+			STUFF_END;
+			continue;
+		}
+		else if (cnstrt->cnstrt_type == CNSTRT_CHECK) {
+			create_check_constraint(request, action, cnstrt);
+			STUFF_END;
+			continue;
+		}
+
+		/* stuff a zero-length name, indicating that an index
+		   name should be generated */
+
+		STUFF_WORD(0);
+
+		if (cnstrt->cnstrt_type == CNSTRT_FOREIGN_KEY) {
+			/* If <referenced column list> is not specified try to catch
+			   them right here */
+			if (cnstrt->cnstrt_referred_fields == NULL)
+				get_referred_fields(action, cnstrt);
+
+			if (cnstrt->cnstrt_fkey_def_type & REF_UPDATE_ACTION) {
+				STUFF(gds_dyn_foreign_key_update);
+				switch (cnstrt->cnstrt_fkey_def_type & REF_UPDATE_MASK) {
+				case REF_UPD_NONE:
+					STUFF(gds_dyn_foreign_key_none);
+					break;
+				case REF_UPD_CASCADE:
+					STUFF(gds_dyn_foreign_key_cascade);
+					create_upd_cascade_trg(request, action, cnstrt);
+					break;
+				case REF_UPD_SET_DEFAULT:
+					STUFF(gds_dyn_foreign_key_default);
+					create_set_default_trg(request, action, cnstrt, TRUE);
+					break;
+				case REF_UPD_SET_NULL:
+					STUFF(gds_dyn_foreign_key_null);
+					create_set_null_trg(request, action, cnstrt, TRUE);
+					break;
+				default:
+					/* just in case */
+					assert(0);
+					STUFF(gds_dyn_foreign_key_none);
+					break;
+				}
+			}
+			if (cnstrt->cnstrt_fkey_def_type & REF_DELETE_ACTION) {
+				STUFF(gds_dyn_foreign_key_delete);
+				switch (cnstrt->cnstrt_fkey_def_type & REF_DELETE_MASK) {
+				case REF_DEL_NONE:
+					STUFF(gds_dyn_foreign_key_none);
+					break;
+				case REF_DEL_CASCADE:
+					STUFF(gds_dyn_foreign_key_cascade);
+					create_del_cascade_trg(request, action, cnstrt);
+					break;
+				case REF_DEL_SET_DEFAULT:
+					STUFF(gds_dyn_foreign_key_default);
+					create_set_default_trg(request, action, cnstrt, FALSE);
+					break;
+				case REF_DEL_SET_NULL:
+					STUFF(gds_dyn_foreign_key_null);
+					create_set_null_trg(request, action, cnstrt, FALSE);
+					break;
+				default:
+					/* just in case */
+					assert(0);
+					STUFF(gds_dyn_foreign_key_none);
+					break;
+				}
+			}
+		}
+		else
+			put_numeric(request, gds_dyn_idx_unique, TRUE);
+
+		for (field = cnstrt->cnstrt_fields; field; field = field->lls_next) {
+			string = (STR) field->lls_object;
+			put_cstring(request, gds_dyn_fld_name, (TEXT *) string);
+		}
+		if (cnstrt->cnstrt_type == CNSTRT_FOREIGN_KEY) {
+			put_cstring(request, gds_dyn_idx_foreign_key,
+						(TEXT *) cnstrt->cnstrt_referred_rel);
+			for (field = cnstrt->cnstrt_referred_fields; field;
+				 field = field->lls_next) {
+				string = (STR) field->lls_object;
+				put_cstring(request, gds_dyn_idx_ref_column, (TEXT *) string);
+			}
+		}
+		STUFF_END;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate parameter buffer for CREATE DATABASE action.
+//  
+
+static void create_database( REQ request, ACT action)
+{
+	DBB db;
+	SSHORT l;
+	SCHAR *ch;
+	int def_db_dial = 3;
+
+	db = ((MDBB) action->act_object)->mdbb_database;
+	STUFF(gds_dpb_version1);
+	STUFF(isc_dpb_overwrite);
+	STUFF(1);
+	STUFF(0);
+
+	STUFF(isc_dpb_sql_dialect);
+	STUFF(sizeof(int));
+	if ((dialect_specified) && (sw_sql_dialect == 1 || sw_sql_dialect == 3))
+		def_db_dial = sw_sql_dialect;
+	STUFF_INT(def_db_dial);
+
+	if (db->dbb_allocation) {
+		STUFF(gds_dpb_allocation);
+		STUFF(4);
+		STUFF_INT(db->dbb_allocation);
+	}
+
+	if (db->dbb_pagesize) {
+		STUFF(gds_dpb_page_size);
+		STUFF(4);
+		STUFF_INT(db->dbb_pagesize);
+	}
+
+	if (db->dbb_buffercount) {
+		STUFF(gds_dpb_num_buffers);
+		STUFF(4);
+		STUFF_INT(db->dbb_buffercount);
+	}
+
+	if (db->dbb_buffersize) {
+		STUFF(gds_dpb_buffer_length);
+		STUFF(4);
+		STUFF_INT(db->dbb_buffersize);
+	}
+
+	if (db->dbb_users) {
+		STUFF(gds_dpb_number_of_users);
+		STUFF(4);
+		STUFF_INT(db->dbb_users);
+	}
+
+	if (db->dbb_c_user && !db->dbb_r_user) {
+		STUFF(gds_dpb_user_name);
+		l = strlen(db->dbb_c_user);
+		STUFF(l);
+		ch = db->dbb_c_user;
+		while (*ch)
+			STUFF(*ch++);
+	}
+
+	if (db->dbb_c_password && !db->dbb_r_password) {
+		STUFF(gds_dpb_password);
+		l = strlen(db->dbb_c_password);
+		STUFF(l);
+		ch = db->dbb_c_password;
+		while (*ch)
+			STUFF(*ch++);
+	}
+
+	if (db->dbb_chkptlen) {
+		STUFF(gds_dpb_wal_chkptlen);
+		STUFF(4);
+		STUFF_INT(db->dbb_chkptlen);
+	}
+
+	if (db->dbb_numbufs) {
+		STUFF(gds_dpb_wal_numbufs);
+		STUFF(2);
+		STUFF_WORD(db->dbb_numbufs);
+	}
+
+	if (db->dbb_bufsize) {
+		STUFF(gds_dpb_wal_bufsize);
+		STUFF(2);
+		STUFF_WORD(db->dbb_bufsize);
+	}
+
+
+	if (db->dbb_grp_cmt_wait != -1) {
+		STUFF(gds_dpb_wal_grp_cmt_wait);
+		STUFF(4);
+		STUFF_INT(db->dbb_grp_cmt_wait);
+	}
+
+	*request->req_blr = 0;
+	request->req_length = request->req_blr - request->req_base;
+	if (request->req_length == 1)
+		request->req_length = 0;
+	request->req_blr = request->req_base;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for second stage of create database
+//  
+
+static void create_database_modify_dyn( REQ request, ACT action)
+{
+	DBB db;
+	FIL files, file, next;
+	SLONG start;
+
+	db = ((MDBB) action->act_object)->mdbb_database;
+
+	STUFF(gds_dyn_mod_database);
+
+//  Reverse the order of files (parser left them backwards) 
+
+	files = db->dbb_files;
+	for (file = files, files = NULL; file; file = next) {
+		next = file->fil_next;
+		file->fil_next = files;
+		files = file;
+	}
+
+	start = db->dbb_length;
+
+	for (file = files; file != NULL; file = file->fil_next) {
+		put_cstring(request, gds_dyn_def_file, file->fil_name);
+		STUFF(gds_dyn_file_start);
+		STUFF_WORD(4);
+		start = MAX(start, file->fil_start);
+		STUFF_INT(start);
+		STUFF(gds_dyn_file_length);
+		STUFF_WORD(4);
+		STUFF_INT(file->fil_length);
+		STUFF_END;
+		start += file->fil_length;
+	}
+
+//  Add log files 
+
+	if ((db->dbb_flags & DBB_log_default) || (db->dbb_logfiles))
+		add_log_files(request, action, db);
+
+	if (db->dbb_cache_file)
+		add_cache(request, action, db);
+
+	if (db->dbb_def_charset)
+		put_cstring(request, gds_dyn_fld_character_set_name,
+					db->dbb_def_charset);
+
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for CREATE DOMAIN action.
+//  
+
+static void create_domain( REQ request, ACT action)
+{
+	FLD field;
+	TEXT *default_source;
+
+	field = (FLD) action->act_object;
+
+//  add field info 
+
+	put_symbol(request, gds_dyn_def_global_fld, field->fld_symbol);
+	put_field_attributes(request, field);
+
+	if (field->fld_default_value) {
+		put_blr(request, gds_dyn_fld_default_value, field->fld_default_value,
+				reinterpret_cast < pfn_local_trigger_cb > (CME_expr));
+		default_source = (TEXT *)
+			ALLOC(field->fld_default_source->txt_length + 1);
+		CPR_get_text(default_source, field->fld_default_source);
+		put_cstring(request, gds_dyn_fld_default_source, default_source);
+	}
+
+	if (field->fld_constraints)
+		create_domain_constraint(request, action, field->fld_constraints);
+
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dyn for creating a constraints for domains.
+//  
+
+static void create_domain_constraint( REQ request, ACT action, CNSTRT cnstrt)
+{
+	TEXT *source;
+
+	for (; cnstrt; cnstrt = cnstrt->cnstrt_next) {
+		if (cnstrt->cnstrt_flags & CNSTRT_delete)
+			continue;
+
+// ****    this will be used later 
+//   put_cstring (request, gds_dyn_rel_constraint, cnstrt->cnstrt_name);
+//***
+
+		if (cnstrt->cnstrt_type == CNSTRT_CHECK) {
+			source = (TEXT *) ALLOC(cnstrt->cnstrt_text->txt_length + 1);
+			CPR_get_text(source, cnstrt->cnstrt_text);
+			if (source != NULL)
+				put_cstring(request, gds_dyn_fld_validation_source, source);
+			put_blr(request, gds_dyn_fld_validation_blr,
+					cnstrt->cnstrt_boolean,
+					reinterpret_cast < pfn_local_trigger_cb > (CME_expr));
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for creating a generator.
+//  
+
+static void create_generator( REQ request, ACT action)
+{
+	TEXT *generator_name;
+
+	generator_name = (TEXT *) action->act_object;
+	put_cstring(request, gds_dyn_def_generator, generator_name);
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for CREATE INDEX action.
+//  
+
+static void create_index( REQ request, IND index)
+{
+	FLD field;
+
+	if (index->ind_symbol)
+		put_symbol(request, gds_dyn_def_idx, index->ind_symbol);
+	else
+		/* An index created because of the UNIQUE constraint on this field.  */
+		put_cstring(request, gds_dyn_def_idx, "");
+
+	put_symbol(request, gds_dyn_rel_name, index->ind_relation->rel_symbol);
+
+	if (index->ind_flags & IND_dup_flag)
+		put_numeric(request, gds_dyn_idx_unique, TRUE);
+
+	if (index->ind_flags & IND_descend)
+		put_numeric(request, gds_dyn_idx_type, TRUE);
+
+	if (index->ind_symbol)
+		for (field = index->ind_fields; field; field = field->fld_next)
+			put_symbol(request, gds_dyn_fld_name, field->fld_symbol);
+	else
+		/* An index created on this one field because of the
+		   UNIQUE constraint on this field.  */
+
+		put_symbol(request, gds_dyn_fld_name, index->ind_fields->fld_symbol);
+
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for creating a shadow
+//  
+
+static void create_shadow( REQ request, ACT action)
+{
+	FIL files, file, next;
+	SLONG start;
+
+	files = (FIL) action->act_object;
+
+//  Reverse the order of files (parser left them backwards) 
+	for (file = files, files = NULL; file; file = next) {
+		next = file->fil_next;
+		file->fil_next = files;
+		files = file;
+	}
+	put_numeric(request, gds_dyn_def_shadow,
+				(SSHORT) files->fil_shadow_number);
+
+	for (file = files; file != NULL; file = file->fil_next) {
+		put_cstring(request, gds_dyn_def_file, file->fil_name);
+		STUFF(gds_dyn_file_start);
+		STUFF_WORD(4);
+		start = file->fil_start;
+		STUFF_INT(start);
+		STUFF(gds_dyn_file_length);
+		STUFF_WORD(4);
+		STUFF_INT(file->fil_length);
+		if (file->fil_flags & FIL_manual)
+			put_numeric(request, gds_dyn_shadow_man_auto, 1);
+		if (file->fil_flags & FIL_conditional)
+			put_numeric(request, gds_dyn_shadow_conditional, 1);
+		STUFF_END;
+	}
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for CREATE TABLE action.
+//  
+
+static void create_table( REQ request, ACT action)
+{
+	FLD field;
+	REL relation;
+	USHORT position;
+	TEXT *default_source;
+
+//  add relation name 
+
+	relation = (REL) action->act_object;
+	put_symbol(request, gds_dyn_def_rel, relation->rel_symbol);
+
+//  If the relation is defined as an external file, add dyn for that 
+
+	if (relation->rel_ext_file)
+		put_cstring(request, gds_dyn_rel_ext_file, relation->rel_ext_file);
+
+	put_numeric(request, gds_dyn_rel_sql_protection, 1);
+	position = 0;
+
+//  add field info 
+
+	for (field = relation->rel_fields; field; field = field->fld_next) {
+		if (field->fld_global) {
+			put_symbol(request, gds_dyn_def_local_fld, field->fld_symbol);
+			put_symbol(request, gds_dyn_fld_source, field->fld_global);
+		}
+		else
+			put_symbol(request, gds_dyn_def_sql_fld, field->fld_symbol);
+
+		put_field_attributes(request, field);
+		put_numeric(request, gds_dyn_fld_position, position++);
+
+		if (field->fld_default_value) {
+			put_blr(request, gds_dyn_fld_default_value,
+					field->fld_default_value,
+					reinterpret_cast < pfn_local_trigger_cb > (CME_expr));
+			default_source = (TEXT *)
+				ALLOC(field->fld_default_source->txt_length + 1);
+			CPR_get_text(default_source, field->fld_default_source);
+			put_cstring(request, gds_dyn_fld_default_source, default_source);
+		}
+
+		STUFF_END;
+		if (field->fld_constraints)
+			create_constraint(request, action, field->fld_constraints);
+	}
+
+
+	if (relation->rel_constraints)
+		create_constraint(request, action, relation->rel_constraints);
+
+	STUFF_END;
+
+//  Need to create an index for any fields (columns) declared with
+//  the UNIQUE constraint. 
+
+	for (field = relation->rel_fields; field; field = field->fld_next)
+		if (field->fld_index)
+			create_index(request, field->fld_index);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for a trigger.
+//  
+
+static void create_trigger(
+						   REQ request,
+						   ACT action,
+						   TRG trigger, pfn_local_trigger_cb routine)
+{
+	REL relation;
+
+	relation = (REL) action->act_object;
+
+//  Name of trigger to be generated    
+
+	put_cstring(request, gds_dyn_def_trigger, "");
+
+	put_symbol(request, gds_dyn_rel_name, relation->rel_symbol);
+	put_numeric(request, gds_dyn_trg_type, trigger->trg_type);
+	put_numeric(request, gds_dyn_trg_sequence, 0);
+	put_numeric(request, gds_dyn_trg_inactive, 0);
+	STUFF(gds_dyn_sql_object);
+
+	if (trigger->trg_source != NULL)
+		put_cstring(request, gds_dyn_trg_source,
+					(TEXT *) trigger->trg_source);
+
+	if (trigger->trg_message != NULL) {
+		put_numeric(request, gds_dyn_def_trigger_msg, 1);
+		put_cstring(request, gds_dyn_trg_msg, (TEXT *) trigger->trg_message);
+		STUFF(gds_dyn_end);
+	}
+
+//  Generate the BLR for firing the trigger 
+
+	put_trigger_blr(request, gds_dyn_trg_blr, trigger->trg_boolean, routine);
+
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for CREATE VIEW action.
+//  
+
+static BOOLEAN create_view( REQ request, ACT action)
+{
+	FLD field, fld;
+	NOD *ptr, *end, fields, value, view_field, and_nod, eq_nod;
+	NOD view_boolean, new_view_field, set_item, set_list;
+	NOD iand_node, or_node, anull_node, bnull_node;
+	REL relation, sub_relation;
+	REF new_view_ref, view_ref, reference;
+	CTX context;
+	SYM symbol;
+	SSHORT position, non_updateable = 0;
+	TEXT *view_source;
+	RSE select;
+	TRG trigger;
+	CTX contexts[3];
+	SSHORT count;
+	LLS stack;
+	SLC slice;
+	REQ slice_req;
+	struct fld tmp_field;
+
+//  add relation name 
+
+	relation = (REL) action->act_object;
+	put_symbol(request, gds_dyn_def_view, relation->rel_symbol);
+	put_numeric(request, gds_dyn_rel_sql_protection, 1);
+
+//  write out blr 
+
+	put_blr(request, gds_dyn_view_blr, (NOD) relation->rel_view_rse,
+			reinterpret_cast < pfn_local_trigger_cb > (CME_rse));
+
+//  write out view source   
+
+	view_source = (TEXT *) ALLOC(relation->rel_view_text->txt_length + 1);
+	CPR_get_text(view_source, relation->rel_view_text);
+	put_cstring(request, gds_dyn_view_source, view_source);
+
+//  Write out view context info 
+
+	for (context = request->req_contexts; context;
+		 context = context->ctx_next) {
+		if (!(sub_relation = context->ctx_relation))
+			continue;
+		put_symbol(request, gds_dyn_view_relation, sub_relation->rel_symbol);
+		put_numeric(request, gds_dyn_view_context, context->ctx_internal);
+		if (context->ctx_symbol)
+			put_symbol(request, gds_dyn_view_context_name,
+					   context->ctx_symbol);
+		STUFF_END;
+	}
+
+//  add the mapping from the rse to the view fields 
+
+	field = relation->rel_fields;
+	fields = relation->rel_view_rse->rse_fields;
+	position = 0;
+
+	for (ptr = fields->nod_arg, end = ptr + fields->nod_count; ptr < end;
+		 ptr++, field = (field) ? field->fld_next : NULL) {
+		fld = NULL;
+		value = *ptr;
+		if (value->nod_type == nod_field) {
+			reference = (REF) value->nod_arg[0];
+			fld = reference->ref_field;
+			if ((value->nod_count >= 2)
+				&& (slice_req = (REQ) value->nod_arg[2])
+				&& (slice =
+					slice_req->
+					req_slice))
+					IBERROR("Array slices not supported in views");
+			context = reference->ref_context;
+		}
+		if (field)
+			symbol = field->fld_symbol;
+		else if (fld)
+			symbol = fld->fld_symbol;
+		else {
+			request->req_length = 0;
+			IBERROR("view expression requires field name");
+			return FALSE;
+		}
+		if (fld) {
+			put_symbol(request, gds_dyn_def_local_fld, symbol);
+			put_symbol(request, gds_dyn_fld_base_fld, fld->fld_symbol);
+			put_numeric(request, gds_dyn_view_context, context->ctx_internal);
+		}
+		else {
+			non_updateable = 1;
+			put_symbol(request, gds_dyn_def_sql_fld, symbol);
+			put_blr(request, gds_dyn_fld_computed_blr, value,
+					reinterpret_cast < pfn_local_trigger_cb > (CME_expr));
+			init_field_struct(&tmp_field);
+			CME_get_dtype(value, &tmp_field);
+			put_dtype(request, &tmp_field);
+		}
+		put_numeric(request, gds_dyn_fld_position, position++);
+		STUFF_END;
+	}
+
+	if (relation->rel_flags & REL_view_check) {	/* VIEW WITH CHECK OPTION  */
+		/* Make sure VIEW is updateable   */
+		select = relation->rel_view_rse;
+		if ((select->rse_aggregate) ||
+			(non_updateable) || (select->rse_count != 1)) {
+			IBERROR("Invalid view WITH CHECK OPTION - non-updateable view");
+			return FALSE;
+		}
+
+		if (!(select->rse_boolean)) {
+			IBERROR("Invalid view WITH CHECK OPTION - no WHERE clause");
+			return FALSE;
+		}
+
+		trigger = (TRG) ALLOC(TRG_LEN);
+
+		/* For the triggers, the OLD, NEW contexts are reserved  */
+
+		request->req_internal = 0;
+		request->req_contexts = 0;
+
+		/* Make the OLD context for the trigger    */
+
+		contexts[0] = request->req_contexts = context = MAKE_CONTEXT(request);
+		context->ctx_relation = relation;
+
+		/* Make the NEW context for the trigger    */
+
+		contexts[1] = request->req_contexts = context = MAKE_CONTEXT(request);
+		context->ctx_relation = relation;
+
+		/* Make the context for the  base relation  */
+
+		contexts[2] = select->rse_context[0] = request->req_contexts =
+			context = MAKE_CONTEXT(request);
+		context->ctx_relation = sub_relation;
+
+		/* Make lists to assign from NEW fields to fields in the base relation.  */
+		/* Also make sure rows in base relation correspond to rows in VIEW by
+		   making sure values in fields inherited by the VIEW are same as
+		   values in base relation.  */
+
+		field = relation->rel_fields;
+		fields = relation->rel_view_rse->rse_fields;
+		and_nod = eq_nod = 0;
+		count = 0;
+		stack = NULL;
+		for (ptr = fields->nod_arg, end = ptr + fields->nod_count; ptr < end;
+			 ptr++, field = (field) ? field->fld_next : NULL) {
+			fld = NULL;
+			value = *ptr;
+			if (value->nod_type == nod_field) {
+				reference = (REF) value->nod_arg[0];
+				reference->ref_context = contexts[2];
+				fld = reference->ref_field;
+			}
+			view_ref = MAKE_REFERENCE(0);
+			view_ref->ref_context = contexts[0];
+			new_view_ref = MAKE_REFERENCE(0);
+			new_view_ref->ref_context = contexts[1];
+			new_view_ref->ref_field = view_ref->ref_field =
+				(field) ? field : fld;
+			view_field = MSC_unary(nod_field, (NOD) view_ref);
+			new_view_field = MSC_unary(nod_field, (NOD) new_view_ref);
+
+			anull_node = MSC_unary(nod_missing, view_field);
+			bnull_node = MSC_unary(nod_missing, value);
+			iand_node = MSC_binary(nod_and, anull_node, bnull_node);
+
+			eq_nod = MSC_binary(nod_eq, view_field, value);
+
+			or_node = MSC_binary(nod_or, eq_nod, iand_node);
+
+			set_item = MAKE_NODE(nod_assignment, 2);
+			set_item->nod_arg[1] = value;
+			set_item->nod_arg[0] = new_view_field;
+			PUSH(set_item, &stack);
+			count++;
+
+			if (!or_node)
+				or_node = MSC_binary(nod_or, eq_nod, iand_node);
+			else if (!and_nod)
+				and_nod = MSC_binary(nod_and, or_node,
+									 MSC_binary(nod_or, eq_nod, iand_node));
+			else
+				and_nod = MSC_binary(nod_and, and_nod,
+									 MSC_binary(nod_or, eq_nod, iand_node));
+		}
+
+		set_list = MAKE_NODE(nod_list, count);
+		ptr = set_list->nod_arg + count;
+		while (stack)
+			*--ptr = (NOD) POP(&stack);
+
+		/* Modify the context of fields in boolean to be that of the
+		   sub-relation. */
+
+		replace_field_names(select->rse_boolean, 0, 0, 0, /* Don't null */
+							contexts);
+
+		view_boolean = select->rse_boolean;
+		select->rse_boolean =
+			MSC_binary(nod_and, (and_nod) ? and_nod : or_node,
+					   select->rse_boolean);
+
+		/* create the UPDATE trigger   */
+
+		trigger->trg_type = PRE_MODIFY_TRIGGER;
+
+		/* "update violates CHECK constraint on view" */
+
+		trigger->trg_message = (STR) NULL;
+		trigger->trg_boolean = (NOD) select;
+		create_view_trigger(request, action, trigger, view_boolean, contexts,
+							set_list);
+
+		/* create the Pre-store trigger   */
+
+		trigger->trg_type = PRE_STORE_TRIGGER;
+
+		/* "insert violates CHECK constraint on view" */
+
+		create_view_trigger(request, action, trigger, view_boolean, contexts,
+							set_list);
+	}
+
+	STUFF_END;
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for a trigger.
+//  
+
+static void create_view_trigger(
+								REQ request,
+								ACT action,
+								TRG trigger,
+								NOD view_boolean,
+								CTX * contexts, NOD set_list)
+{
+	REL relation;
+
+	relation = (REL) action->act_object;
+
+//  Name of trigger to be generated    
+
+	put_cstring(request, gds_dyn_def_trigger, "");
+
+	put_symbol(request, gds_dyn_rel_name, relation->rel_symbol);
+	put_numeric(request, gds_dyn_trg_type, trigger->trg_type);
+	put_numeric(request, gds_dyn_trg_sequence, 0);
+	STUFF(gds_dyn_sql_object);
+
+	if (trigger->trg_source != NULL)
+		put_cstring(request, gds_dyn_trg_source,
+					(TEXT *) trigger->trg_source);
+
+	if (trigger->trg_message != NULL) {
+		put_numeric(request, gds_dyn_def_trigger_msg, 1);
+		put_cstring(request, gds_dyn_trg_msg, (TEXT *) trigger->trg_message);
+		STUFF(gds_dyn_end);
+	}
+
+//  Generate the BLR for firing the trigger 
+
+	put_view_trigger_blr(request, relation, gds_dyn_trg_blr, trigger,
+						 view_boolean, contexts, set_list);
+
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for DECLARE FILTER action.
+//  
+
+static void declare_filter( REQ request, ACT action)
+{
+	FLTR filter;
+
+	filter = (FLTR) action->act_object;
+	put_cstring(request, gds_dyn_def_filter, filter->fltr_name);
+	put_numeric(request, gds_dyn_filter_in_subtype, filter->fltr_input_type);
+	put_numeric(request, gds_dyn_filter_out_subtype,
+				filter->fltr_output_type);
+	put_cstring(request, gds_dyn_func_entry_point, filter->fltr_entry_point);
+
+	put_cstring(request, gds_dyn_func_module_name, filter->fltr_module_name);
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for DECLARE EXTERNAL
+//  
+
+static void declare_udf( REQ request, ACT action)
+{
+	DECL_UDF udf;
+	FLD field, next;
+	TEXT *udf_name;
+	SSHORT position, blob_position;
+
+	udf = (DECL_UDF) action->act_object;
+	udf_name = udf->decl_udf_name;
+	put_cstring(request, gds_dyn_def_function, udf_name);
+	put_cstring(request, gds_dyn_func_entry_point, udf->decl_udf_entry_point);
+	put_cstring(request, gds_dyn_func_module_name, udf->decl_udf_module_name);
+
+//  Reverse the order of arguments which parse left backwords. 
+
+//  
+//for (field = udf->decl_udf_arg_list, udf->decl_udf_arg_list = NULL; field; field = next)
+//   {
+//   next = field->fld_next;
+//   field->fld_next = udf->decl_udf_arg_list; 
+//   udf->decl_udf_arg_list = field;
+//   }
+//  
+
+	if (field = udf->decl_udf_return_type) {
+		/* Function returns a value */
+
+		/* Some data types can not be returned as value */
+		if ((udf->decl_udf_return_mode == FUN_value) &&
+			(field->fld_dtype == dtype_text ||
+			 field->fld_dtype == dtype_varying ||
+			 field->fld_dtype == dtype_cstring ||
+			 field->fld_dtype == dtype_blob ||
+			 field->fld_dtype == dtype_timestamp))
+				CPR_error
+				("return mode by value not allowed for this data type");
+
+		/* For functions returning a blob, coerce return argument position to
+		   be the last parameter. */
+
+		if (field->fld_dtype == dtype_blob) {
+			blob_position = 1;
+			for (next = udf->decl_udf_arg_list; next; next = next->fld_next)
+				++blob_position;
+			put_numeric(request, gds_dyn_func_return_argument, blob_position);
+		}
+		else
+			put_numeric(request, gds_dyn_func_return_argument, 0);
+
+		position = 0;
+	}
+	else {
+		position = 1;
+
+		/* Function modifies an argument whose value is the function return value */
+
+		put_numeric(request, gds_dyn_func_return_argument,
+					udf->decl_udf_return_parameter);
+	}
+
+//  Now define all the arguments 
+
+	if (!position) {
+		if (field->fld_dtype == dtype_blob) {
+			put_numeric(request, gds_dyn_def_function_arg, blob_position);
+			put_numeric(request, gds_dyn_func_mechanism, FUN_blob_struct);
+		}
+		else {
+			put_numeric(request, gds_dyn_def_function_arg, 0);
+			put_numeric(request, gds_dyn_func_mechanism,
+						udf->decl_udf_return_mode);
+		}
+
+		put_cstring(request, gds_dyn_function_name, udf_name);
+		put_dtype(request, field);
+		STUFF(gds_dyn_end);
+		position = 1;
+	}
+
+	for (field = udf->decl_udf_arg_list; field; field = field->fld_next) {
+		if (position > 10)
+			CPR_error
+				("External functions can not have more than 10 parameters");
+		put_numeric(request, gds_dyn_def_function_arg, position++);
+
+		if (field->fld_dtype == dtype_blob)
+			put_numeric(request, gds_dyn_func_mechanism, FUN_blob_struct);
+		else
+			put_numeric(request, gds_dyn_func_mechanism, FUN_reference);
+
+		put_cstring(request, gds_dyn_function_name, udf_name);
+		put_dtype(request, field);
+		STUFF(gds_dyn_end);
+	}
+
+	STUFF_END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for GRANT or
+//		REVOKE privileges action.
+//  
+
+static void grant_revoke_privileges( REQ request, ACT action)
+{
+	TEXT privileges[5];
+	TEXT *p = privileges;
+	LLS field;
+	STR string;
+	PRV priv_block = (PRV) action->act_object;
+
+	if (priv_block->prv_privileges & PRV_select)
+		*p++ = 'S';
+
+	if (priv_block->prv_privileges & PRV_insert)
+		*p++ = 'I';
+
+	if (priv_block->prv_privileges & PRV_delete)
+		*p++ = 'D';
+
+	if (priv_block->prv_privileges & PRV_execute)
+		*p++ = 'X';
+
+	if (priv_block->prv_privileges & PRV_all)
+		*p++ = 'A';
+
+	if (priv_block->prv_privileges & PRV_references)
+		*p++ = 'R';
+
+	*p = 0;
+
+//  If there are any select, insert, or delete privileges to be granted
+//  or revoked output the necessary DYN strings  
+
+	if (p != privileges)
+		for (priv_block = (PRV) action->act_object; priv_block;
+			 priv_block = priv_block->prv_next) {
+			if (action->act_type == ACT_dyn_grant)
+				put_cstring(request, gds_dyn_grant, privileges);
+			else				/*  action = ACT_dyn_revoke  */
+				put_cstring(request, gds_dyn_revoke, privileges);
+
+			put_cstring(request, priv_block->prv_object_dyn,
+						(TEXT *) priv_block->prv_relation);
+			put_cstring(request, priv_block->prv_user_dyn,
+						priv_block->prv_username);
+
+			if ((priv_block->prv_privileges & PRV_grant_option) &&
+				((action->act_type == ACT_dyn_grant) ||
+				 (!(request->req_database->dbb_flags & DBB_v3))))
+				put_numeric(request, gds_dyn_grant_options, 1);
+
+			STUFF_END;
+		}
+
+//  If there are no UPDATE privileges to be granted or revoked, we've finished 
+
+	if (!(((PRV) action->act_object)->prv_privileges & PRV_update))
+		return;
+
+	p = privileges;
+	*p++ = 'U';
+	*p = 0;
+
+	for (priv_block = (PRV) action->act_object; priv_block;
+		 priv_block = priv_block->prv_next) {
+		if (priv_block->prv_fields) {
+			for (field = priv_block->prv_fields; field;
+				 field = field->lls_next) {
+				if (action->act_type == ACT_dyn_grant)
+					put_cstring(request, gds_dyn_grant, privileges);
+				else			/*  action = ACT_dyn_revoke  */
+					put_cstring(request, gds_dyn_revoke, privileges);
+
+				put_cstring(request, priv_block->prv_object_dyn,
+							(TEXT *) priv_block->prv_relation);
+				string = (STR) field->lls_object;
+				put_cstring(request, gds_dyn_fld_name, (TEXT *) string);
+				put_cstring(request, priv_block->prv_user_dyn,
+							priv_block->prv_username);
+
+				if ((priv_block->prv_privileges & PRV_grant_option) &&
+					((action->act_type == ACT_dyn_grant) ||
+					 (!(request->req_database->dbb_flags & DBB_v3))))
+					put_numeric(request, gds_dyn_grant_options, 1);
+
+				STUFF_END;
+			}
+		}
+		else {					/*  No specific fields mentioned;
+								   UPDATE privilege granted or revoked on all fields  */
+			if (action->act_type == ACT_dyn_grant)
+				put_cstring(request, gds_dyn_grant, privileges);
+			else				/*  action = ACT_dyn_revoke  */
+				put_cstring(request, gds_dyn_revoke, privileges);
+
+			put_cstring(request, priv_block->prv_object_dyn,
+						(TEXT *) priv_block->prv_relation);
+			put_cstring(request, priv_block->prv_user_dyn,
+						priv_block->prv_username);
+
+			if ((priv_block->prv_privileges & PRV_grant_option) &&
+				((action->act_type == ACT_dyn_grant) ||
+				 (!(request->req_database->dbb_flags & DBB_v3))))
+				put_numeric(request, gds_dyn_grant_options, 1);
+
+			STUFF_END;
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//  
+//  
+
+static void init_field_struct( FLD field)
+{
+
+	field->fld_dtype = 0;
+	field->fld_length = 0;
+	field->fld_scale = 0;
+	field->fld_id = 0;
+	field->fld_flags = 0;
+	field->fld_seg_length = 0;
+	field->fld_position = 0;
+	field->fld_sub_type = 0;
+	field->fld_next = 0;
+	field->fld_array = 0;
+	field->fld_relation = 0;
+	field->fld_procedure = 0;
+	field->fld_symbol = 0;
+	field->fld_global = 0;
+	field->fld_handle = 0;
+	field->fld_prototype = 0;
+	field->fld_array_info = 0;
+	field->fld_default_value = 0;
+	field->fld_default_source = 0;
+	field->fld_index = 0;
+	field->fld_constraints = 0;
+	field->fld_character_set = 0;
+	field->fld_collate = 0;
+	field->fld_computed = 0;
+	field->fld_char_length = 0;
+	field->fld_charset_id = 0;
+	field->fld_collate_id = 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Put dimensions for the array field.
+//  
+
+static void put_array_info( REQ request, FLD field)
+{
+	ARY array_info;
+	SSHORT dims;
+	SSHORT i;
+	SLONG lrange, urange;
+
+	array_info = field->fld_array_info;
+	dims = (SSHORT) array_info->ary_dimension_count;
+	put_numeric(request, gds_dyn_fld_dimensions, dims);
+	for (i = 0; i < dims; i++) {
+		put_numeric(request, gds_dyn_def_dimension, i);
+		STUFF(gds_dyn_dim_lower);
+		lrange = (SLONG) (array_info->ary_rpt[i].ary_lower);
+		STUFF_WORD(4);
+		STUFF_INT(lrange);
+		STUFF(gds_dyn_dim_upper);
+		urange = (SLONG) (array_info->ary_rpt[i].ary_upper);
+		STUFF_WORD(4);
+		STUFF_INT(urange);
+		STUFF(gds_dyn_end);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Put an expression expressed in BLR.
+//  
+
+static void put_blr(
+					REQ request,
+					USHORT operator_, NOD node, pfn_local_trigger_cb routine)
+{
+	USHORT length, offset;
+
+	STUFF(operator_);
+	offset = request->req_blr - request->req_base;
+	STUFF_WORD(0);
+	if (request->req_flags & REQ_blr_version4)
+		STUFF(blr_version4);
+	else
+		STUFF(blr_version5);
+	(*routine) (node, request, 0);
+	STUFF(blr_eoc);
+	length = request->req_blr - request->req_base - offset - 2;
+	request->req_base[offset] = (UCHAR) length;
+	request->req_base[offset + 1] = (UCHAR) (length >> 8);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for a computed field.
+//  
+
+static void put_computed_blr( REQ request, FLD field)
+{
+	REL relation;
+	ACT action;
+	USHORT length, offset;
+	CTX context;
+	USHORT ctx_int;
+
+	action = request->req_actions;
+	relation = (REL) action->act_object;
+
+//  Computed field context has to be 0 - so force it 
+
+	context = request->req_contexts;
+	ctx_int = context->ctx_internal;
+	context->ctx_internal = 0;
+	STUFF(gds_dyn_fld_computed_blr);
+
+	offset = request->req_blr - request->req_base;
+	STUFF_WORD(0);
+	if (request->req_flags & REQ_blr_version4)
+		STUFF(blr_version4);
+	else
+		STUFF(blr_version5);
+	CME_expr(field->fld_computed->cmpf_boolean, request);
+	STUFF(blr_eoc);
+
+	context->ctx_internal = ctx_int;
+
+	length = request->req_blr - request->req_base - offset - 2;
+	request->req_base[offset] = (UCHAR) length;
+	request->req_base[offset + 1] = (UCHAR) (length >> 8);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for a computed field.
+//  
+
+static void put_computed_source( REQ request, FLD field)
+{
+	REL relation;
+	ACT action;
+	TEXT *computed_source;
+
+	action = request->req_actions;
+	relation = (REL) action->act_object;
+
+	if (field->fld_computed->cmpf_text != NULL) {
+		computed_source = (TEXT *)
+			ALLOC(field->fld_computed->cmpf_text->txt_length + 1);
+		CPR_get_text(computed_source, field->fld_computed->cmpf_text);
+		put_cstring(request, gds_dyn_fld_computed_source, computed_source);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Put a null-terminated string valued attributed to the output string.
+//  
+
+static void put_cstring( REQ request, USHORT operator_, TEXT * string)
+{
+	USHORT length;
+
+	if (string != NULL)
+		length = strlen(string);
+	else
+		length = 0;
+	put_string(request, operator_, string, length);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL to create a field for CREATE
+//		or ALTER TABLE action.
+//  
+
+static void put_dtype( REQ request, FLD field)
+{
+	USHORT dtype;
+	USHORT length;
+	USHORT precision;
+	SSHORT sub_type;
+
+	length = field->fld_length;
+	precision = field->fld_precision;
+	sub_type = field->fld_sub_type;
+	switch (field->fld_dtype) {
+	case dtype_cstring:
+
+		/* If the user is defining a field as cstring then generate
+		   blr_cstring. Currently being used only for defining udf's */
+
+		if (field->fld_flags & FLD_meta_cstring)
+			dtype = blr_cstring;
+		else {
+
+			/* Correct the length of C string for meta data operations */
+
+			if (sw_cstring && !SUBTYPE_ALLOWS_NULLS(field->fld_sub_type))
+				length--;
+			dtype = blr_text;
+		}
+
+	case dtype_text:
+		if (field->fld_dtype == dtype_text)
+			dtype = blr_text;
+		/* Fall into */
+
+	case dtype_varying:
+		assert(length);
+		if (field->fld_dtype == dtype_varying)
+			dtype = blr_varying;
+
+		put_numeric(request, gds_dyn_fld_type, dtype);
+		put_numeric(request, gds_dyn_fld_length, length);
+		put_numeric(request, gds_dyn_fld_scale, 0);
+
+		if (field->fld_sub_type)
+			put_numeric(request, gds_dyn_fld_sub_type, field->fld_sub_type);
+
+		if (field->fld_char_length)
+			put_numeric(request, gds_dyn_fld_char_length,
+						field->fld_char_length);
+		if (field->fld_collate_id)
+			put_numeric(request, gds_dyn_fld_collation,
+						field->fld_collate_id);
+
+		if (field->fld_charset_id)
+			put_numeric(request, gds_dyn_fld_character_set,
+						field->fld_charset_id);
+		return;
+
+	case dtype_short:
+		dtype = blr_short;
+		length = sizeof(SSHORT);
+		if (sw_server_version >= 6) {
+			put_numeric(request, gds_dyn_fld_type, dtype);
+			put_numeric(request, gds_dyn_fld_length, length);
+			put_numeric(request, gds_dyn_fld_scale, field->fld_scale);
+			put_numeric(request, isc_dyn_fld_precision, field->fld_precision);
+			put_numeric(request, gds_dyn_fld_sub_type, field->fld_sub_type);
+			return;
+		}
+		break;
+
+	case dtype_long:
+		dtype = blr_long;
+		length = sizeof(SLONG);
+		if (sw_server_version >= 6) {
+			put_numeric(request, gds_dyn_fld_type, dtype);
+			put_numeric(request, gds_dyn_fld_length, length);
+			put_numeric(request, gds_dyn_fld_scale, field->fld_scale);
+			put_numeric(request, isc_dyn_fld_precision, field->fld_precision);
+			put_numeric(request, gds_dyn_fld_sub_type, field->fld_sub_type);
+			return;
+		}
+		break;
+
+	case dtype_blob:
+		dtype = blr_blob;
+		length = 8;
+		put_numeric(request, gds_dyn_fld_type, dtype);
+		put_numeric(request, gds_dyn_fld_length, length);
+		put_numeric(request, gds_dyn_fld_scale, 0);
+		put_numeric(request, gds_dyn_fld_sub_type, field->fld_sub_type);
+		put_numeric(request, gds_dyn_fld_segment_length,
+					field->fld_seg_length);
+		if (field->fld_sub_type == BLOB_text && field->fld_charset_id)
+			put_numeric(request, gds_dyn_fld_character_set,
+						field->fld_charset_id);
+		return;
+
+	case dtype_quad:
+		dtype = blr_quad;
+		length = 8;
+		break;
+
+	case dtype_float:
+		dtype = blr_float;
+		length = sizeof(float);
+		break;
+
+	case dtype_double:
+		dtype = blr_double;
+		length = sizeof(double);
+		break;
+
+// ** Begin sql date/time/timestamp *
+	case dtype_sql_date:
+		dtype = blr_sql_date;
+		length = sizeof(ISC_DATE);
+		break;
+
+	case dtype_sql_time:
+		dtype = blr_sql_time;
+		length = sizeof(ISC_TIME);
+		break;
+
+	case dtype_timestamp:
+		dtype = blr_timestamp;
+		length = sizeof(ISC_TIMESTAMP);
+		break;
+// ** End sql date/time/timestamp *
+
+	case dtype_int64:
+		dtype = blr_int64;
+		length = sizeof(ISC_INT64);
+		put_numeric(request, gds_dyn_fld_type, dtype);
+		put_numeric(request, gds_dyn_fld_length, length);
+		put_numeric(request, gds_dyn_fld_scale, field->fld_scale);
+		put_numeric(request, isc_dyn_fld_precision, field->fld_precision);
+		put_numeric(request, gds_dyn_fld_sub_type, field->fld_sub_type);
+		return;
+
+	default:
+		CPR_bugcheck(" *** Unknown datatype in put_dtype *** ");
+		break;
+	}
+
+	put_numeric(request, gds_dyn_fld_type, dtype);
+	put_numeric(request, gds_dyn_fld_length, length);
+	put_numeric(request, gds_dyn_fld_scale, field->fld_scale);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL to create a field for CREATE
+//		or ALTER TABLE action.
+//  
+//		Emit the DDL that is appopriate for a local instance
+//		of a field.  eg: that can vary from the local fields
+//		global field (DOMAIN in SQL).
+//  
+
+static void put_field_attributes( REQ request, FLD field)
+{
+
+	if (field->fld_flags & FLD_computed)
+		put_computed_blr(request, field);
+
+	if (!field->fld_global)
+		put_dtype(request, field);
+
+//  Put the DDL for local field instances 
+
+	if (field->fld_array_info)
+		put_array_info(request, field);
+
+	if (field->fld_collate && field->fld_global) {
+		put_numeric(request, gds_dyn_fld_collation,
+					field->fld_collate->intlsym_collate_id);
+	}
+
+	if (field->fld_flags & FLD_not_null) {
+		STUFF(gds_dyn_fld_not_null);
+	}
+
+	if (field->fld_flags & FLD_computed)
+		put_computed_source(request, field);
+}
+
+
+//____________________________________________________________
+//  
+//		Put a numeric valued attributed to the output string.
+//  
+
+static void put_numeric( REQ request, USHORT operator_, SSHORT number)
+{
+
+	STUFF(operator_);
+	STUFF_WORD(2);
+	STUFF_WORD(number);
+}
+
+
+//____________________________________________________________
+//  
+//		Put a counted string valued attributed to the output string.
+//		Count value is BYTE instead of WORD like put_cstring & put_string
+//  
+
+static void put_short_cstring( REQ request, USHORT operator_, TEXT * string)
+{
+	SSHORT length;
+
+	if (string == NULL)
+		length = 0;
+	else
+		length = strlen(string);
+
+	STUFF_CHECK(length);
+
+	STUFF(operator_);
+	STUFF(length);
+
+	if (string != NULL) {
+		while (length--)
+			STUFF(*string++);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Put a counted string valued attributed to the output string.
+//  
+
+static void put_string(
+					   REQ request,
+					   USHORT operator_, TEXT * string, USHORT length)
+{
+
+	STUFF_CHECK(length);
+
+	if (operator_) {
+		STUFF(operator_);
+		STUFF_WORD(length);
+	}
+	else
+		STUFF(length);
+
+
+	if (string != NULL) {
+		while (length--)
+			STUFF(*string++);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Put a symbol valued attribute.
+//  
+
+static void put_symbol( REQ request, int operator_, SYM symbol)
+{
+
+	put_cstring(request, (USHORT) operator_, symbol->sym_string);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate BLR for a trigger whose action is to abort.
+//		Abort with a gds_error code error.
+//  
+
+static void put_trigger_blr(
+							REQ request,
+							USHORT operator_,
+							NOD node, pfn_local_trigger_cb routine)
+{
+	USHORT length, offset;
+
+	STUFF(operator_);
+	offset = request->req_blr - request->req_base;
+	STUFF_WORD(0);
+	if (request->req_flags & REQ_blr_version4)
+		STUFF(blr_version4);
+	else
+		STUFF(blr_version5);
+	STUFF(blr_begin);
+	STUFF(blr_if);
+	(*routine) (node, request, 0);
+	STUFF(blr_begin);
+	STUFF(blr_end);
+
+//  Generate the action for the trigger to be abort   
+
+	STUFF(blr_abort);
+	put_short_cstring(request, blr_gds_code, "check_constraint");
+	STUFF(blr_end);				/* for if  */
+	STUFF(blr_eoc);
+	length = request->req_blr - request->req_base - offset - 2;
+	request->req_base[offset] = (UCHAR) length;
+	request->req_base[offset + 1] = (UCHAR) (length >> 8);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate BLR for a trigger for a VIEW WITH CHECK OPTION.
+//		This is messy, the RSE passed in is mutilated by the end.
+//		Fields in the where clause and in the VIEW definition, are replaced
+//		by the VIEW fields.
+//		For fields in the where clause but not in the VIEW definition,
+//		the fields are set to NULL node for the PRE STORE trigger.
+//  
+//  
+
+static void put_view_trigger_blr(
+								 REQ request,
+								 REL relation,
+								 USHORT operator_,
+								 TRG trigger,
+NOD view_boolean, CTX * contexts, NOD set_list)
+{
+	USHORT length, offset;
+	RSE node;
+
+	node = (RSE) trigger->trg_boolean;
+	STUFF(operator_);
+	offset = request->req_blr - request->req_base;
+	STUFF_WORD(0);
+	if (request->req_flags & REQ_blr_version4)
+		STUFF(blr_version4);
+	else
+		STUFF(blr_version5);
+	STUFF(blr_begin);
+
+	if (trigger->trg_type == PRE_MODIFY_TRIGGER) {
+		STUFF(blr_for);
+		CME_rse(node, request);
+
+		/* For the boolean, replace all fields in the rse and the view, with the
+		   equivalent view field_name, for remaining fields in rse, leave them
+		   alone. */
+
+		replace_field_names(view_boolean, node->rse_fields,
+							relation->rel_fields, 0, /* Don't null */
+							contexts);
+
+		STUFF(blr_begin);
+		STUFF(blr_if);
+		CME_expr(view_boolean, request);
+
+		STUFF(blr_begin);
+		STUFF(blr_end);
+
+		/* Generate the action for the trigger to be abort   */
+
+		STUFF(blr_abort);
+		put_short_cstring(request, blr_gds_code, "check_constraint");
+		STUFF(blr_end);
+		STUFF(blr_end);
+		STUFF(blr_eoc);
+	}							/* end of PRE_MODIFY_TRIGGER trigger   */
+
+	if (trigger->trg_type == PRE_STORE_TRIGGER) {
+		replace_field_names(view_boolean, node->rse_fields,
+							relation->rel_fields, 1, contexts);
+
+		STUFF(blr_if);
+		CME_expr(view_boolean, request);
+
+		STUFF(blr_begin);
+		STUFF(blr_end);
+
+		/* Generate the action for the trigger to be abort   */
+
+		STUFF(blr_abort);
+		put_short_cstring(request, blr_gds_code, "check_constraint");
+		STUFF(blr_end);
+		STUFF(blr_eoc);
+
+	}							/* end of PRE_STORE_TRIGGER trigger   */
+
+	length = request->req_blr - request->req_base - offset - 2;
+	request->req_base[offset] = (UCHAR) length;
+	request->req_base[offset + 1] = (UCHAR) (length >> 8);
+}
+
+
+//____________________________________________________________
+//  
+//		Replace fields in given rse by fields referenced in VIEW.
+//		if fields in RSE are not part of VIEW definition, then they 
+//		are not changed.
+//		If search list is not specified, then only the context of the fields
+//		in the rse is chaged to contexts[2].
+//		If null_them is TRUE, then fields in rse but not in VIEW definition
+//		are converted to null nodes, this is used for PRE STORE trigger
+//		verification.
+//  
+
+static void replace_field_names(
+								NOD input,
+								NOD search_list,
+								FLD replace_with,
+								SSHORT null_them, CTX * contexts)
+{
+	NOD *ptr, *end;
+	NOD *ptrs, *ends;
+	REF reference, references;
+	FLD rse_field, select_field, view_field;
+
+	if (!input)
+		return;
+
+	if (((input->nod_type == nod_via) || (input->nod_type == nod_any) ||
+		 (input->nod_type == nod_unique)) && (search_list == 0) &&
+		(replace_with == 0) && (input->nod_count == 0)) {
+		IBERROR("Invalid view WITH CHECK OPTION - no subqueries permitted");
+		return;
+	}
+
+	for (ptr = input->nod_arg, end = ptr + input->nod_count; ptr < end; ptr++) {
+		if ((*ptr)->nod_type == nod_field) {
+			reference = (REF) (*ptr)->nod_arg[0];
+			rse_field = reference->ref_field;
+			if (null_them) {
+				if (reference->ref_context == contexts[2]) {
+					*ptr = MAKE_NODE(nod_null, 0);
+				}
+				continue;
+			}
+			reference->ref_context = contexts[2];
+			if (!search_list)
+				continue;
+			view_field = replace_with;
+			for (ptrs = search_list->nod_arg, ends =
+				 ptrs + search_list->nod_count; ptrs < ends;
+				 ptrs++, view_field =
+				 (view_field) ? view_field->fld_next : NULL) {
+				references = (REF) (*ptrs)->nod_arg[0];
+				select_field = references->ref_field;
+				if (rse_field == select_field) {
+					reference->ref_field =
+						(view_field) ? view_field : select_field;
+					reference->ref_context = contexts[1];
+					break;
+				}
+			}
+		}
+		else
+			replace_field_names(*ptr, search_list, replace_with, null_them,
+								contexts);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate dynamic DDL for a set statistics
+//  
+
+static void set_statistics( REQ request, ACT action)
+{
+	STS stats;
+
+	if (stats = (STS) action->act_object)
+		if (stats->sts_flags & STS_index) {
+			put_cstring(request, gds_dyn_mod_idx, (TEXT *) stats->sts_name);
+			STUFF(gds_dyn_idx_statistic);
+		}
+
+	STUFF_END;
+}
diff --git a/src/gpre/cmd_proto.h b/src/gpre/cmd_proto.h
new file mode 100644
index 0000000000..0777e1cb97
--- /dev/null
+++ b/src/gpre/cmd_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		cmd_proto.h
+ *	DESCRIPTION:	Prototype header file for cmd.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_CMD_PROTO_H_
+#define _GPRE_CMD_PROTO_H_
+
+extern int CMD_compile_ddl(register REQ);
+
+#endif /* _GPRE_CMD_PROTO_H_ */
diff --git a/src/gpre/cme.cpp b/src/gpre/cme.cpp
new file mode 100644
index 0000000000..127feb5560
--- /dev/null
+++ b/src/gpre/cme.cpp
@@ -0,0 +1,2008 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	C preprocessor
+//		MODULE:		cme.cpp
+//		DESCRIPTION:	Request expression compiler
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings, buffer ptr bug
+//  
+//
+//____________________________________________________________
+//
+//	$Id: cme.cpp,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+//
+
+#include <stdlib.h>
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../gpre/gpre.h"
+#include "../jrd/intl.h"
+#include "../intl/charsets.h"
+#include "../gpre/cme_proto.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/gpre_meta.h"
+#include "../gpre/movg_proto.h"
+#include "../gpre/par_proto.h"
+#include "../gpre/prett_proto.h"
+#include "../jrd/dsc_proto.h"
+
+static NOD cmp_array(NOD, REQ);
+static NOD cmp_array_element(NOD, REQ);
+static void cmp_cast(NOD, REQ);
+static NOD cmp_field(NOD, REQ);
+static NOD cmp_literal(NOD, REQ);
+static void cmp_map(MAP, REQ);
+static void cmp_plan(NOD, REQ);
+static void cmp_sdl_dtype(FLD, REF);
+static NOD cmp_udf(NOD, REQ);
+static NOD cmp_value(NOD, REQ);
+static USHORT get_string_len(FLD);
+static void stuff_cstring(REQ, const char *);
+static void stuff_sdl_dimension(DIM, REF, SSHORT);
+static void stuff_sdl_element(REF, FLD);
+static void stuff_sdl_loops(REF, FLD);
+static void stuff_sdl_number(SLONG, REF);
+
+#define USER_LENGTH	32
+#define LONG_POS_MAX    2147483647
+
+#define STUFF(blr)		*request->req_blr++ = (SCHAR) (blr)
+#define STUFF_WORD(blr)		STUFF (blr); STUFF (blr >> 8)
+#define STUFF_CSTRING(blr)	stuff_cstring (request, blr)
+
+#define STUFF_SDL(sdl)		*reference->ref_sdl++ = (SCHAR) (sdl)
+#define STUFF_SDL_WORD(sdl)	STUFF_SDL (sdl); STUFF_SDL (sdl >> 8);
+#define STUFF_SDL_LONG(sdl)	STUFF_SDL (sdl); STUFF_SDL (sdl >> 8); STUFF_SDL (sdl >>16); STUFF_SDL (sdl >> 24);
+
+#define ASSIGN_DTYPE(f,field)	\
+	{ \
+	(f)->fld_dtype = (field)->fld_dtype; \
+	(f)->fld_length = (field)->fld_length; \
+	(f)->fld_scale = (field)->fld_scale; \
+	(f)->fld_precision = (field)->fld_precision; \
+	(f)->fld_sub_type = (field)->fld_sub_type; \
+	(f)->fld_charset_id = (field)->fld_charset_id; \
+	(f)->fld_collate_id = (field)->fld_collate_id; \
+	(f)->fld_ttype = (field)->fld_ttype; \
+	}
+
+/* One of d1,d2 is time, the other is date */
+#define IS_DATE_AND_TIME(d1,d2)	\
+  ((((d1)==dtype_sql_time)&&((d2)==dtype_sql_date)) || \
+   (((d2)==dtype_sql_time)&&((d1)==dtype_sql_date)))
+
+static BOOLEAN debug_on;
+
+struct op_table
+{
+	enum nod_t op_type;
+	UCHAR op_blr;
+};
+
+const op_table operators[] =
+{
+	nod_eq			, blr_eql,
+	nod_ge			, blr_geq,
+	nod_gt			, blr_gtr,
+	nod_le			, blr_leq,
+	nod_lt			, blr_lss,
+	nod_ne			, blr_neq,
+	nod_missing		, blr_missing,
+	nod_between		, blr_between,
+	nod_and			, blr_and,
+	nod_or			, blr_or,
+	nod_not			, blr_not,
+	nod_matches		, blr_matching,
+	nod_starting	, blr_starting,
+	nod_containing	, blr_containing,
+	nod_plus		, blr_add,
+	nod_from		, blr_from,
+	nod_via			, blr_via,
+	nod_minus		, blr_subtract,
+	nod_times		, blr_multiply,
+	nod_divide		, blr_divide,
+	nod_negate		, blr_negate,
+	nod_null		, blr_null,
+	nod_user_name	, blr_user_name,
+//  count2
+//   nod_count, blr_count2,
+//  
+	nod_count		, blr_count,
+	nod_max			, blr_maximum,
+	nod_min			, blr_minimum,
+	nod_average		, blr_average,
+	nod_total		, blr_total,
+	nod_any			, blr_any,
+	nod_unique		, blr_unique,
+	nod_agg_count	, blr_agg_count2,
+	nod_agg_count	, blr_agg_count,
+	nod_agg_max		, blr_agg_max,
+	nod_agg_min		, blr_agg_min,
+	nod_agg_total	, blr_agg_total,
+	nod_agg_average	, blr_agg_average,
+	nod_upcase		, blr_upcase,
+	nod_sleuth		, blr_matching2,
+	nod_concatenate	, blr_concatenate,
+	nod_cast		, blr_cast,
+	nod_ansi_any	, blr_ansi_any,
+	nod_gen_id		, blr_gen_id,
+	nod_ansi_all	, blr_ansi_all,
+	nod_current_date, blr_current_date,
+	nod_current_time, blr_current_time,
+	nod_current_timestamp, blr_current_timestamp,
+	nod_any, 0
+};
+
+
+//____________________________________________________________
+//  
+//		Compile a random expression.
+//  
+
+void CME_expr(NOD node, REQ request)
+{
+	NOD *ptr, *end;
+	MEL element;
+	CTX context;
+	REF reference;
+	TEXT *p, s[128];
+
+	switch (node->nod_type)
+	{
+	case nod_field:
+		if (!(reference = (REF) node->nod_arg[0]))
+		{
+			CPR_error("CME_expr: reference missing");
+			return;
+		}
+		cmp_field(node, request);
+		if (reference->ref_flags & REF_fetch_array)
+			cmp_array(node, request);
+		return;
+
+	case nod_array:
+		cmp_array_element(node, request);
+		return;
+
+	case nod_index:
+		CME_expr(node->nod_arg[0], request);
+		return;
+
+	case nod_value:
+		cmp_value(node, request);
+		if ((reference = (REF) node->nod_arg[0]) &&
+			(reference->ref_flags & REF_fetch_array))
+		{
+			cmp_array(node, request);
+		}
+		return;
+
+	case nod_negate:
+		if (node->nod_arg[0]->nod_type != nod_literal)
+			break;
+	case nod_literal:
+		cmp_literal(node, request);
+		return;
+
+	case nod_like:
+		STUFF((node->nod_count == 2) ? blr_like : blr_ansi_like);
+		ptr = node->nod_arg;
+		for (end = ptr + node->nod_count; ptr < end; ptr++)
+			CME_expr(*ptr, request);
+		return;
+
+	case nod_udf:
+		cmp_udf(node, request);
+		return;
+
+	case nod_gen_id:
+		STUFF(blr_gen_id);
+		p = (TEXT *) (node->nod_arg[1]);
+
+		/* check if this generator really exists */
+
+		if (!MET_generator(p, request->req_database))
+		{
+			sprintf(s, "generator %s not found", p);
+			CPR_error(s);
+		}
+		STUFF(strlen(p));
+		while (*p)
+			STUFF(*p++);
+		CME_expr(node->nod_arg[0], request);
+		return;
+
+	case nod_cast:
+		cmp_cast(node, request);
+		return;
+
+	case nod_agg_count:
+		if ((node->nod_arg[0]) &&
+			!(request->req_database->dbb_flags & DBB_v3))
+		{
+			if (node->nod_arg[1])
+				STUFF(blr_agg_count_distinct);
+			else
+				STUFF(blr_agg_count2);
+			CME_expr(node->nod_arg[0], request);
+		}
+		else
+			STUFF(blr_agg_count);
+		return;
+
+// ** Begin date/time/timestamp support *
+	case nod_extract:
+		STUFF(blr_extract);
+		switch ((KWWORDS) (int) node->nod_arg[0])
+		{
+		case KW_YEAR:
+			STUFF(blr_extract_year);
+			break;
+		case KW_MONTH:
+			STUFF(blr_extract_month);
+			break;
+		case KW_DAY:
+			STUFF(blr_extract_day);
+			break;
+		case KW_HOUR:
+			STUFF(blr_extract_hour);
+			break;
+		case KW_MINUTE:
+			STUFF(blr_extract_minute);
+			break;
+		case KW_SECOND:
+			STUFF(blr_extract_second);
+			break;
+		case KW_WEEKDAY:
+			STUFF(blr_extract_weekday);
+			break;
+		case KW_YEARDAY:
+			STUFF(blr_extract_yearday);
+			break;
+		default:
+			CPR_error("CME_expr:Invalid extract part");
+		}
+		CME_expr(node->nod_arg[1], request);
+		return;
+
+// ** End date/time/timestamp support *
+//  count2
+//   case nod_count:
+// if (node->nod_arg [1])
+//    break;
+// STUFF (blr_count);
+// CME_rse (node->nod_arg [0], request);
+// return;
+//  
+
+	case nod_agg_total:
+		if ((node->nod_arg[1]) &&
+			!(request->req_database->dbb_flags & DBB_v3))
+				STUFF(blr_agg_total_distinct);
+		else
+			STUFF(blr_agg_total);
+		CME_expr(node->nod_arg[0], request);
+		return;
+
+	case nod_agg_average:
+		if ((node->nod_arg[1]) &&
+			!(request->req_database->dbb_flags & DBB_v3))
+				STUFF(blr_agg_average_distinct);
+		else
+			STUFF(blr_agg_average);
+		CME_expr(node->nod_arg[0], request);
+		return;
+
+	case nod_dom_value:
+		STUFF(blr_fid);
+		STUFF(0);				/* Context   */
+		STUFF_WORD(0);			/* Field id  */
+		return;
+
+	case nod_map_ref:
+		element = (MEL) node->nod_arg[0];
+		context = element->mel_context;
+		STUFF(blr_fid);
+		STUFF(context->ctx_internal);
+		STUFF_WORD(element->mel_position);
+		return;
+	}
+
+	const op_table* operator_;
+	for (operator_ = operators;
+		operator_->op_type != node->nod_type;
+		++operator_)
+	{
+		if (!operator_->op_blr)
+		{
+			CPR_bugcheck("node type not implemented");
+			return;
+		}
+	}
+
+	STUFF(operator_->op_blr);
+	ptr = node->nod_arg;
+
+	for (end = ptr + node->nod_count; ptr < end; ptr++)
+		CME_expr(*ptr, request);
+
+	switch (node->nod_type)
+	{
+	case nod_any:
+	case nod_ansi_any:
+	case nod_ansi_all:
+	case nod_unique:
+//  count2 next line would be deleted 
+	case nod_count:
+		CME_rse((RSE) node->nod_arg[0], request);
+		break;
+
+	case nod_max:
+	case nod_min:
+	case nod_average:
+	case nod_total:
+	case nod_from:
+//  
+//   case nod_count:
+//  
+		CME_rse((RSE) node->nod_arg[0], request);
+		CME_expr(node->nod_arg[1], request);
+		break;
+
+	case nod_via:
+		CME_rse((RSE) node->nod_arg[0], request);
+		CME_expr(node->nod_arg[1], request);
+		CME_expr(node->nod_arg[2], request);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Compute datatype, length, and scale of an expression.
+//  
+
+void CME_get_dtype( NOD node, FLD f)
+{
+	struct fld field1, field2;
+	SSHORT dtype_max;
+	TEXT *string;
+	MEL element;
+	REF reference;
+	FLD tmp_field;
+	UDF udf;
+
+	f->fld_dtype = 0;
+	f->fld_length = 0;
+	f->fld_scale = 0;
+	f->fld_sub_type = 0;
+	f->fld_charset_id = 0;
+	f->fld_collate_id = 0;
+	f->fld_ttype = 0;
+
+	switch (node->nod_type)
+	{
+	case nod_null:
+		/* This occurs when SQL statement specifies a literal NULL, eg:
+		 *  SELECT NULL FROM TABLE1;
+		 * As we don't have a <dtype_null, HOSTTYPE> datatype pairing,
+		 * we don't know how to map this NULL to a host-language
+		 * datatype.  Therefore we now describe it as a 
+		 * CHAR(1) CHARACTER SET NONE type.
+		 * No value will ever be sent back, as the value of the select
+		 * will be NULL - this is only for purposes of allocating
+		 * values in the message DESCRIBING
+		 * the statement.  
+		 * Other parts of gpre aren't too happy with a dtype_null datatype
+		 */
+		f->fld_dtype = dtype_text;
+		f->fld_length = 1;
+		f->fld_ttype = ttype_none;
+		f->fld_charset_id = CS_NONE;
+		return;
+
+	case nod_map_ref:
+		element = (MEL) node->nod_arg[0];
+		CME_get_dtype(element->mel_expr, f);
+		return;
+
+	case nod_value:
+	case nod_field:
+	case nod_array:
+		reference = (REF) node->nod_arg[0];
+		if (!(tmp_field = reference->ref_field))
+			CPR_error("CME_get_dtype: node type not supported");
+		if (!(tmp_field->fld_dtype) || !(tmp_field->fld_length))
+			PAR_error("Inappropriate self-reference of field");
+
+		ASSIGN_DTYPE(f, tmp_field);
+		return;
+
+	case nod_agg_count:
+	case nod_count:
+		f->fld_dtype = dtype_long;
+		f->fld_length = sizeof(SLONG);
+		return;
+
+	case nod_gen_id:
+		if ((sw_sql_dialect == SQL_DIALECT_V5) || (sw_server_version < 6))
+		{
+			f->fld_dtype = dtype_long;
+			f->fld_length = sizeof(SLONG);
+		}
+		else
+		{
+			f->fld_dtype = dtype_int64;
+			f->fld_length = sizeof(ISC_INT64);
+		}
+		return;
+
+	case nod_max:
+	case nod_min:
+	case nod_from:
+		CME_get_dtype(node->nod_arg[1], f);
+		return;
+
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_negate:
+		CME_get_dtype(node->nod_arg[0], f);
+		if ((sw_sql_dialect == SQL_DIALECT_V5)
+			&& (f->fld_dtype == dtype_int64))
+		{
+			f->fld_precision = 0;
+			f->fld_scale = 0;
+			f->fld_dtype = dtype_double;
+			f->fld_length = sizeof(double);
+		}
+		return;
+
+// ** Begin date/time/timestamp support *
+	case nod_extract:
+		{
+			KWWORDS kw_word = (KWWORDS) (int) node->nod_arg[0];
+			CME_get_dtype(node->nod_arg[1], f);
+			switch (f->fld_dtype)
+			{
+			case dtype_timestamp:
+				break;
+
+			case dtype_sql_date:
+				if (kw_word == KW_HOUR || kw_word == KW_MINUTE
+					|| kw_word ==
+					KW_SECOND)
+		  CPR_error("Invalid extract part for SQL DATE type");
+				break;
+
+			case dtype_sql_time:
+				if (kw_word != KW_HOUR && kw_word != KW_MINUTE
+					&& kw_word !=
+					KW_SECOND)
+		  CPR_error("Invalid extract part for SQL TIME type");
+				break;
+
+			default:
+				CPR_error("Invalid use of EXTRACT function");
+			}
+			switch (kw_word)
+			{
+			case KW_YEAR:
+			case KW_MONTH:
+			case KW_DAY:
+			case KW_WEEKDAY:
+			case KW_YEARDAY:
+			case KW_HOUR:
+			case KW_MINUTE:
+				f->fld_dtype = dtype_short;
+				f->fld_length = sizeof(short);
+				break;
+			case KW_SECOND:
+				f->fld_dtype = dtype_long;
+				f->fld_length = sizeof(long);
+				f->fld_scale = ISC_TIME_SECONDS_PRECISION_SCALE;
+				break;
+			default:
+				CPR_error("Invalid EXTRACT part");
+			}
+			return;
+		}
+
+	case nod_current_date:
+		f->fld_dtype = dtype_sql_date;
+		f->fld_length = sizeof(ISC_DATE);
+		return;
+
+	case nod_current_time:
+		f->fld_dtype = dtype_sql_time;
+		f->fld_length = sizeof(ISC_TIME);
+		return;
+
+	case nod_current_timestamp:
+		f->fld_dtype = dtype_timestamp;
+		f->fld_length = sizeof(ISC_TIMESTAMP);
+		return;
+
+// ** End date/time/timestamp support *
+
+	case nod_times:
+		CME_get_dtype(node->nod_arg[0], &field1);
+		CME_get_dtype(node->nod_arg[1], &field2);
+		if (sw_sql_dialect == SQL_DIALECT_V5)
+		{
+			if (field1.fld_dtype == dtype_int64)
+			{
+				field1.fld_dtype = dtype_double;
+				field1.fld_scale = 0;
+				field1.fld_length = sizeof(double);
+			}
+			if (field2.fld_dtype == dtype_int64)
+			{
+				field2.fld_dtype = dtype_double;
+				field2.fld_scale = 0;
+				field2.fld_length = sizeof(double);
+			}
+			dtype_max = MAX(field1.fld_dtype, field2.fld_dtype);
+			if (DTYPE_IS_DATE(dtype_max) || DTYPE_IS_BLOB(dtype_max))
+			{
+				CPR_error("Invalid use of date/blob/array value");
+			}
+		}
+		else
+		{
+			dtype_max =
+				DSC_multiply_result[field1.fld_dtype][field2.fld_dtype];
+			if (dtype_max == dtype_null)
+			{
+				CPR_error("Invalid operand used in multiplication");
+			} else if (dtype_max == DTYPE_CANNOT)
+			{
+				CPR_error("expression evaluation not supported");
+			}
+		}
+		if (dtype_max == dtype_short || dtype_max == dtype_long)
+		{
+			f->fld_dtype = dtype_long;
+			f->fld_scale = field1.fld_scale + field2.fld_scale;
+			f->fld_length = sizeof(SLONG);
+		}
+#ifdef NATIVE_QUAD
+		else if (dtype_max == dtype_quad)
+		{
+			f->fld_dtype = dtype_quad;
+			f->fld_scale = field1.fld_scale + field2.fld_scale;
+			f->fld_length = sizeof(GDS_QUAD);
+		}
+#endif
+		else if (dtype_max == dtype_int64)
+		{
+			f->fld_dtype = dtype_int64;
+			f->fld_scale = field1.fld_scale + field2.fld_scale;
+			f->fld_length = sizeof(ISC_INT64);
+		}
+		else
+		{
+			f->fld_dtype = dtype_double;
+			f->fld_scale = 0;
+			f->fld_length = sizeof(double);
+		}
+		return;
+
+	case nod_concatenate:
+		CME_get_dtype(node->nod_arg[0], &field1);
+		CME_get_dtype(node->nod_arg[1], &field2);
+		dtype_max = MAX(field1.fld_dtype, field2.fld_dtype);
+		if (field1.fld_dtype > dtype_any_text)
+		{
+			f->fld_dtype		= dtype_varying;
+			f->fld_char_length	=
+				get_string_len(&field1) + get_string_len(&field2);
+			f->fld_length		= f->fld_char_length + sizeof(USHORT);
+			f->fld_charset_id	= CS_ASCII;
+			f->fld_ttype		= ttype_ascii;
+			return;
+		}
+		ASSIGN_DTYPE(f, &field1);
+		f->fld_length = get_string_len(&field1) + get_string_len(&field2);
+		if (f->fld_dtype == dtype_cstring)
+			f->fld_length += 1;
+		else if (f->fld_dtype == dtype_varying)
+			f->fld_length += sizeof(USHORT);
+		return;
+
+	case nod_plus:
+	case nod_minus:
+		CME_get_dtype(node->nod_arg[0], &field1);
+		CME_get_dtype(node->nod_arg[1], &field2);
+		if (sw_sql_dialect == SQL_DIALECT_V5)
+		{
+			if (field1.fld_dtype == dtype_int64)
+			{
+				field1.fld_dtype = dtype_double;
+				field1.fld_scale = 0;
+				field1.fld_length = sizeof(double);
+			}
+			if (field2.fld_dtype == dtype_int64)
+			{
+				field2.fld_dtype = dtype_double;
+				field2.fld_scale = 0;
+				field2.fld_length = sizeof(double);
+			}
+
+			if (DTYPE_IS_DATE(field1.fld_dtype) &&
+				DTYPE_IS_DATE(field2.fld_dtype) &&
+				!((node->nod_type == nod_minus) ||
+				  IS_DATE_AND_TIME(field1.fld_dtype, field2.fld_dtype)))
+				CPR_error("Invalid use of timestamp/date/time value");
+			else
+				dtype_max = MAX(field1.fld_dtype, field2.fld_dtype);
+			if (DTYPE_IS_BLOB(dtype_max))
+				CPR_error("Invalid use of blob/array value");
+		}
+		else
+		{
+// ** Dialect is > 1 *
+
+			if (node->nod_type == nod_plus)
+				dtype_max =
+					DSC_add_result[field1.fld_dtype][field2.fld_dtype];
+			else
+				dtype_max =
+					DSC_sub_result[field1.fld_dtype][field2.fld_dtype];
+			if (dtype_max == dtype_null)
+				CPR_error("Illegal operands used in addition");
+			else if (dtype_max == DTYPE_CANNOT)
+				CPR_error("expression evaluation not supported");
+		}
+
+		if (dtype_max == dtype_short || dtype_max == dtype_long)
+		{
+			f->fld_dtype = dtype_long;
+			f->fld_scale = MIN(field1.fld_scale, field2.fld_scale);
+			f->fld_length = sizeof(SLONG);
+		}
+#ifdef NATIVE_QUAD
+		else if (dtype_max == dtype_quad)
+		{
+			f->fld_dtype = dtype_quad;
+			f->fld_scale = MIN(field1.fld_scale, field2.fld_scale);
+			f->fld_length = sizeof(GDS__QUAD);
+		}
+#endif
+// ** Begin date/time/timestamp support *
+		else if (dtype_max == dtype_sql_date)
+		{
+			f->fld_dtype = dtype_sql_date;
+			f->fld_scale = 0;
+			f->fld_length = sizeof(ISC_DATE);
+		}
+		else if (dtype_max == dtype_sql_time)
+		{
+			f->fld_dtype = dtype_sql_time;
+			f->fld_scale = 0;
+			f->fld_length = sizeof(ISC_TIME);
+		}
+		else if (dtype_max == dtype_timestamp)
+		{
+			f->fld_dtype = dtype_timestamp;
+			f->fld_scale = 0;
+			f->fld_length = sizeof(ISC_TIMESTAMP);
+		}
+// ** End date/time/timestamp support *
+		else if (dtype_max == dtype_int64)
+		{
+			f->fld_dtype = dtype_int64;
+			f->fld_scale = MIN(field1.fld_scale, field2.fld_scale);
+			f->fld_length = sizeof(ISC_INT64);
+		}
+		else
+		{
+			f->fld_dtype = dtype_double;
+			f->fld_scale = 0;
+			f->fld_length = sizeof(double);
+		}
+		return;
+
+	case nod_via:
+		CME_get_dtype(node->nod_arg[1], &field1);
+		CME_get_dtype(node->nod_arg[2], &field2);
+		if (field1.fld_dtype >= field2.fld_dtype)
+		{
+			ASSIGN_DTYPE(f, &field1);
+		}
+		else
+		{
+			ASSIGN_DTYPE(f, &field2);
+		}
+		return;
+
+
+	case nod_divide:
+		CME_get_dtype(node->nod_arg[0], &field1);
+		CME_get_dtype(node->nod_arg[1], &field2);
+		if (sw_sql_dialect == SQL_DIALECT_V5)
+		{
+			if (field1.fld_dtype == dtype_int64)
+			{
+				field1.fld_dtype = dtype_double;
+				field1.fld_scale = 0;
+				field1.fld_length = sizeof(double);
+			}
+			if (field2.fld_dtype == dtype_int64)
+			{
+				field2.fld_dtype = dtype_double;
+				field2.fld_scale = 0;
+				field2.fld_length = sizeof(double);
+			}
+			dtype_max = MAX(field1.fld_dtype, field2.fld_dtype);
+			if (DTYPE_IS_DATE(dtype_max) || DTYPE_IS_BLOB(dtype_max))
+				CPR_error("Invalid use of date/blob/array value");
+			f->fld_dtype = dtype_double;
+			f->fld_length = sizeof(double);
+			return;
+		}
+		else
+		{
+			dtype_max =
+				DSC_multiply_result[field1.fld_dtype][field2.fld_dtype];
+			if (dtype_max == dtype_null)
+				CPR_error("Illegal operands used in division");
+			else if (dtype_max == DTYPE_CANNOT)
+				CPR_error("expression evaluation not supported");
+		}
+
+		if (dtype_max == dtype_int64)
+		{
+			f->fld_dtype = dtype_int64;
+			f->fld_scale = field1.fld_scale + field2.fld_scale;
+			f->fld_length = sizeof(ISC_INT64);
+		}
+		else
+		{
+			f->fld_dtype = dtype_double;
+			f->fld_scale = 0;
+			f->fld_length = sizeof(double);
+		}
+		return;
+
+	case nod_average:
+	case nod_agg_average:
+		if (node->nod_type == nod_average)
+			CME_get_dtype(node->nod_arg[1], f);
+		else
+			CME_get_dtype(node->nod_arg[0], f);
+		if (!DTYPE_CAN_AVERAGE(f->fld_dtype))
+			CPR_error("expression evaluation not supported");
+		if (sw_sql_dialect != SQL_DIALECT_V5)
+		{
+			if (DTYPE_IS_EXACT(f->fld_dtype))
+			{
+				f->fld_dtype = dtype_int64;
+				f->fld_length = sizeof(SINT64);
+			}
+			else
+			{
+				f->fld_dtype = dtype_double;
+				f->fld_length = sizeof(double);
+			}
+		}
+		return;
+
+	case nod_agg_total:
+	case nod_total:
+		if (node->nod_type == nod_total)
+			CME_get_dtype(node->nod_arg[1], f);
+		else
+			CME_get_dtype(node->nod_arg[0], f);
+		if (sw_sql_dialect == SQL_DIALECT_V5)
+		{
+			if ((f->fld_dtype == dtype_short) || (f->fld_dtype == dtype_long))
+			{
+				f->fld_dtype = dtype_long;
+				f->fld_length = sizeof(SLONG);
+			}
+			else
+			{
+				f->fld_precision = 0;
+				f->fld_scale = 0;
+				f->fld_dtype = dtype_double;
+				f->fld_length = sizeof(double);
+			}
+		}
+		else
+		{
+// **  Dialect is 2 or 3 *
+
+			if (DTYPE_IS_EXACT(f->fld_dtype))
+			{
+				f->fld_dtype = dtype_int64;
+				f->fld_length = sizeof(SINT64);
+			}
+			else
+			{
+				f->fld_dtype = dtype_double;
+				f->fld_length = sizeof(double);
+			}
+		}
+		return;
+
+	case nod_literal:
+		reference = (REF) node->nod_arg[0];
+		string = reference->ref_value;
+		if (*string != '"' && *string != '\'')
+		{
+			/* Value didn't start with a quotemark - must be a numeric
+			   that we stuffed away as a string during the parse */
+			if (strpbrk(string, "Ee"))
+			{
+				f->fld_dtype = dtype_double;
+				f->fld_length = sizeof(double);
+			}
+			else
+			{
+				char *ptr, *s_ptr;
+				UINT64 uint64_val;
+				int scale;
+
+				s_ptr = string;
+
+			/** Get the scale **/
+				ptr = strpbrk(string, ".");
+				if (!ptr)
+					scale = 0;
+				else
+				{
+					scale = (string + (strlen(string) - 1)) - ptr;
+					scale = -scale;
+				}
+
+			/** Get rid of the decimal point **/
+				uint64_val = 0;
+				while (*s_ptr)
+				{
+					if (*s_ptr != '.')
+						uint64_val = (uint64_val * 10) + (*s_ptr - '0');
+					s_ptr++;
+				}
+
+				if (uint64_val <= MAX_SLONG)
+				{
+					f->fld_dtype = dtype_long;
+					f->fld_scale = scale;
+					f->fld_length = sizeof(SLONG);
+				}
+				else
+				{
+					f->fld_dtype = dtype_int64;
+					f->fld_scale = scale;
+					f->fld_length = sizeof(SINT64);
+				}
+			}
+		}
+		else
+		{
+			/* Did the reference include a character set specification? */
+
+			if (reference->ref_flags & REF_ttype)
+				f->fld_ttype = reference->ref_ttype;
+
+			if (reference->ref_flags & REF_sql_date)
+			{
+				f->fld_dtype = dtype_sql_date;
+				f->fld_length = sizeof(ISC_DATE);
+			}
+			else if (reference->ref_flags & REF_sql_time)
+			{
+				f->fld_dtype = dtype_sql_time;
+				f->fld_length = sizeof(ISC_TIME);
+			}
+			else if (reference->ref_flags & REF_timestamp)
+			{
+				f->fld_dtype = dtype_timestamp;
+				f->fld_length = sizeof(ISC_TIMESTAMP);
+			}
+			else
+			{
+				/* subtract 2 for starting & terminating quote */
+
+				f->fld_length = strlen(string) - 2;
+				if (sw_cstring)
+				{
+					/* add 1 back for the NULL byte */
+
+					f->fld_length += 1;
+					f->fld_dtype = dtype_cstring;
+				}
+				else
+					f->fld_dtype = dtype_text;
+			}
+		}
+		return;
+
+	case nod_user_name:
+		f->fld_dtype = dtype_text;
+		f->fld_length = USER_LENGTH;
+		f->fld_ttype = ttype_ascii;
+		f->fld_charset_id = CS_ASCII;
+		return;
+
+	case nod_udf:
+		udf = (UDF) node->nod_arg[1];
+		f->fld_dtype = udf->udf_dtype;
+		f->fld_length = udf->udf_length;
+		f->fld_scale = udf->udf_scale;
+		f->fld_sub_type = udf->udf_sub_type;
+		f->fld_ttype = udf->udf_ttype;
+		f->fld_charset_id = udf->udf_charset_id;
+		return;
+
+	case nod_cast:
+		CME_get_dtype(node->nod_arg[0], &field1);
+		tmp_field = (FLD) node->nod_arg[1];
+		ASSIGN_DTYPE(f, tmp_field);
+		if (f->fld_length == 0)
+			f->fld_length = field1.fld_length;
+		return;
+
+	case nod_upcase:
+		CME_get_dtype(node->nod_arg[0], f);
+		if (f->fld_dtype <= dtype_any_text)
+			return;
+
+		/* User has specified UPPER(5) - while silly, we'll cast
+		   the value into a string, and upcase it anyway */
+
+		f->fld_length = get_string_len(f) + sizeof(USHORT);
+		f->fld_dtype = dtype_varying;
+		f->fld_ttype = ttype_ascii;
+		f->fld_charset_id = CS_ASCII;
+		return;
+
+	default:
+		CPR_error("CME_get_dtype: node type not supported");
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a relation reference.
+//  
+
+void CME_relation(CTX context, REQ request)
+{
+	RSE rs_stream;
+	REL relation;
+	PRC procedure;
+	NOD inputs, *ptr, *end;
+
+	CMP_check(request, 0);
+
+	if (rs_stream = context->ctx_stream)
+	{
+		CME_rse(rs_stream, request);
+		return;
+	}
+
+	if (relation = context->ctx_relation)
+	{
+		if (sw_ids)
+		{
+			if ((context->ctx_alias) &&
+				!(request->req_database->dbb_flags & DBB_v3))
+			{
+				STUFF(blr_rid2);
+			}
+			else
+			{
+				STUFF(blr_rid);
+			}
+			STUFF_WORD(relation->rel_id);
+		}
+		else
+		{
+			if ((context->ctx_alias) &&
+				!(request->req_database->dbb_flags & DBB_v3))
+					STUFF(blr_relation2);
+			else
+				STUFF(blr_relation);
+			CMP_stuff_symbol(request, relation->rel_symbol);
+		}
+
+		if ((context->ctx_alias) &&
+			!(request->req_database->dbb_flags & DBB_v3))
+				STUFF_CSTRING(context->ctx_alias);
+		STUFF(context->ctx_internal);
+	}
+	else if (procedure = context->ctx_procedure)
+	{
+		if (sw_ids)
+		{
+			STUFF(blr_pid);
+			STUFF_WORD(procedure->prc_id);
+		}
+		else
+		{
+			STUFF(blr_procedure);
+			CMP_stuff_symbol(request, procedure->prc_symbol);
+		}
+		STUFF(context->ctx_internal);
+		STUFF_WORD(procedure->prc_in_count);
+		if (inputs = context->ctx_prc_inputs)
+			for (ptr = inputs->nod_arg, end = ptr + inputs->nod_count;
+				 ptr < end; ptr++)
+				CME_expr(*ptr, request);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate blr for an rse node.
+//  
+
+void CME_rse(RSE rse, REQ request)
+{
+	NOD temp, union_node, *ptr, *end, list;
+	RSE sub_rse;
+	SSHORT i;
+
+	if (rse->rse_join_type == (NOD_T) 0)
+	{
+		if ((rse->rse_flags & RSE_singleton) &&
+			!(request->req_database->dbb_flags & DBB_v3))
+		{
+			STUFF(blr_singular);
+		}
+		STUFF(blr_rse);
+	}
+	else
+		STUFF(blr_rs_stream);
+
+//  Process unions, if any, otherwise process relations 
+
+	if (union_node = rse->rse_union)
+	{
+		STUFF(1);
+		STUFF(blr_union);
+		STUFF(rse->rse_context[0]->ctx_internal);
+		STUFF(union_node->nod_count);
+		ptr = union_node->nod_arg;
+		for (end = ptr + union_node->nod_count; ptr < end; ptr++)
+		{
+			sub_rse = (RSE) * ptr;
+			CME_rse(sub_rse, request);
+			cmp_map(sub_rse->rse_map, request);
+		}
+	}
+	else if (sub_rse = rse->rse_aggregate)
+	{
+		STUFF(1);
+		STUFF(blr_aggregate);
+		STUFF(sub_rse->rse_map->map_context->ctx_internal);
+		CME_rse(sub_rse, request);
+		STUFF(blr_group_by);
+		if (list = sub_rse->rse_group_by)
+		{
+			STUFF(list->nod_count);
+			ptr = list->nod_arg;
+			for (end = ptr + list->nod_count; ptr < end; ptr++)
+				CME_expr(*ptr, request);
+		}
+		else
+			STUFF(0);
+		cmp_map(sub_rse->rse_map, request);
+	}
+	else
+	{
+		STUFF(rse->rse_count);
+		for (i = 0; i < rse->rse_count; i++)
+			CME_relation(rse->rse_context[i], request);
+	}
+
+//  Process the clauses present 
+
+	if (rse->rse_first)
+	{
+		STUFF(blr_first);
+		CME_expr(rse->rse_first, request);
+	}
+
+	if (rse->rse_boolean)
+	{
+		STUFF(blr_boolean);
+		CME_expr(rse->rse_boolean, request);
+	}
+
+	if (temp = rse->rse_sort)
+	{
+		STUFF(blr_sort);
+		STUFF(temp->nod_count);
+		ptr = temp->nod_arg;
+		for (i = 0; i < temp->nod_count; i++)
+		{
+			STUFF((*ptr++) ? blr_descending : blr_ascending);
+			CME_expr(*ptr++, request);
+		}
+	}
+
+	if (temp = rse->rse_reduced)
+	{
+		STUFF(blr_project);
+		STUFF(temp->nod_count);
+		ptr = temp->nod_arg;
+		for (i = 0; i < temp->nod_count; i++)
+			CME_expr(*ptr++, request);
+	}
+
+	if (temp = rse->rse_plan)
+	{
+		STUFF(blr_plan);
+		cmp_plan(temp, request);
+	}
+
+	if (rse->rse_join_type != (NOD_T) 0
+		&& rse->rse_join_type != nod_join_inner)
+	{
+		STUFF(blr_join_type);
+		if (rse->rse_join_type == nod_join_left)
+			STUFF(blr_left);
+		else if (rse->rse_join_type == nod_join_right)
+			STUFF(blr_right);
+		else
+			STUFF(blr_full);
+	}
+
+#ifdef SCROLLABLE_CURSORS
+//  generate a statement to be executed if the user scrolls 
+//  in a direction other than forward; a message is sent outside 
+//  the normal send/receive protocol to specify the direction 
+//  and offset to scroll; note that we do this only on a SELECT 
+//  type statement and only when talking to a 4.1 engine or greater 
+
+	if (request->req_flags & REQ_sql_cursor &&
+		request->req_database->dbb_base_level >= 5)
+	{
+		STUFF(blr_receive);
+		STUFF(request->req_aport->por_msg_number);
+		STUFF(blr_seek);
+		STUFF(blr_parameter);
+		STUFF(request->req_aport->por_msg_number);
+		STUFF_WORD(1);
+		STUFF(blr_parameter);
+		STUFF(request->req_aport->por_msg_number);
+		STUFF_WORD(0);
+	}
+#endif
+
+//  Finish up by making a BLR_END 
+
+	STUFF(blr_end);
+}
+
+
+//____________________________________________________________
+//  
+//		Compile up an array reference putting
+//       out sdl (slice description language)
+//  
+
+static NOD cmp_array( NOD node, REQ request)
+{
+	FLD field;
+	REF reference;
+	TEXT *p;
+
+	CMP_check(request, 0);
+
+	reference = (REF) node->nod_arg[0];
+
+	if (!reference->ref_context)
+	{
+		CPR_error("cmp_array: context missing");
+		return NULL;
+	}
+
+	if (!(field = reference->ref_field))
+	{
+		CPR_error("cmp_array: field missing");
+		return NULL;
+	}
+	else
+	{
+		/*  Header stuff  */
+
+		reference->ref_sdl = reference->ref_sdl_base = (TEXT *) ALLOC(500);
+		reference->ref_sdl_length = 500;
+		reference->ref_sdl_ident = CMP_next_ident();
+		STUFF_SDL(gds_sdl_version1);
+		STUFF_SDL(gds_sdl_struct);
+		STUFF_SDL(1);
+
+		/*  The datatype of the array elements  */
+
+		cmp_sdl_dtype(field->fld_array, reference);
+
+		/*  The relation and field identifiers or strings  */
+
+		if (sw_ids)
+		{
+			STUFF_SDL(gds_sdl_rid);
+			STUFF_SDL(reference->ref_id);
+			STUFF_SDL(gds_sdl_fid);
+			STUFF_SDL(field->fld_id);
+		}
+		else
+		{
+			STUFF_SDL(gds_sdl_relation);
+			STUFF_SDL(strlen(field->fld_relation->rel_symbol->sym_string));
+			for (p = field->fld_relation->rel_symbol->sym_string; *p; p++)
+				STUFF_SDL(*p);
+			STUFF_SDL(gds_sdl_field);
+			STUFF_SDL(strlen(field->fld_symbol->sym_string));
+			for (p = field->fld_symbol->sym_string; *p; p++)
+				STUFF_SDL(*p);
+		}
+
+		/*  The loops for the dimensions  */
+
+		stuff_sdl_loops(reference, field);
+
+		/*  The array element and its "subscripts" */
+
+		stuff_sdl_element(reference, field);
+
+		STUFF_SDL(gds_sdl_eoc);
+	}
+
+	reference->ref_sdl_length = reference->ref_sdl - reference->ref_sdl_base;
+	reference->ref_sdl = reference->ref_sdl_base;
+
+	if (debug_on)
+		PRETTY_print_sdl(reference->ref_sdl, 0, 0, 0);
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Compile up a subscripted array reference
+//       from an RSE and output blr for this reference
+//  
+
+static NOD cmp_array_element( NOD node, REQ request)
+{
+	USHORT index_count;
+
+	STUFF(blr_index);
+
+	cmp_field(node, request);
+
+	STUFF(node->nod_count - 1);
+
+	for (index_count = 1; index_count < node->nod_count; index_count++)
+		CME_expr(node->nod_arg[index_count], request);
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static void cmp_cast( NOD node, REQ request)
+{
+
+	STUFF(blr_cast);
+	CMP_external_field(request, (FLD) node->nod_arg[1]);
+	CME_expr(node->nod_arg[0], request);
+}
+
+
+//____________________________________________________________
+//  
+//		Compile up a field reference.
+//  
+
+static NOD cmp_field( NOD node, REQ request)
+{
+	FLD field;
+	REF reference;
+	CTX context;
+
+	CMP_check(request, 0);
+
+	if (!(reference = (REF) node->nod_arg[0]))
+	{
+		CPR_error("cmp_field: reference missing");
+		return NULL;
+	}
+
+	if (!(context = reference->ref_context))
+	{
+		CPR_error("cmp_field: context missing");
+		return NULL;
+	}
+
+	if (!(field = reference->ref_field))
+	{
+		CPR_error("cmp_field: field missing");
+		return NULL;
+	}
+
+	if (!field)
+		ib_puts("cmp_field: symbol missing");
+
+	if (field->fld_flags & FLD_dbkey)
+	{
+		STUFF(blr_dbkey);
+		STUFF(context->ctx_internal);
+	}
+	else if (reference->ref_flags & REF_union)
+	{
+		STUFF(blr_fid);
+		STUFF(context->ctx_internal);
+		STUFF_WORD(reference->ref_id);
+	}
+	else if (sw_ids)
+	{
+		STUFF(blr_fid);
+		STUFF(context->ctx_internal);
+		STUFF_WORD(field->fld_id);
+	}
+	else
+	{
+		STUFF(blr_field);
+		STUFF(context->ctx_internal);
+		CMP_stuff_symbol(request, field->fld_symbol);
+	}
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle a literal expression.
+//  
+
+static NOD cmp_literal( NOD node, REQ request)
+{
+	REF reference;
+	char *p;
+	char buffer[MAXSYMLEN];
+	char *string;
+	SSHORT length;
+	DSC from, to;
+	BOOLEAN negate = FALSE;
+
+	if (node->nod_type == nod_negate)
+	{
+		node = node->nod_arg[0];
+		negate = TRUE;
+	}
+
+	STUFF(blr_literal);
+	reference = (REF) node->nod_arg[0];
+	string = (char *) reference->ref_value;
+
+	if (*string != '"' && *string != '\'')
+	{
+	/** If the numeric string contains an 'E' or 'e' in it
+	then the datatype is double.
+    **/
+		if (strpbrk(string, "Ee"))
+		{
+			string = (char *) reference->ref_value;
+
+			if (!(request->req_database->dbb_flags & DBB_v3))
+				STUFF(blr_double);
+			else if (sw_know_interp)
+			{	/* then must be using blr_version5 */
+				STUFF(blr_text2);
+				STUFF_WORD(ttype_ascii);
+			}
+			else
+				STUFF(blr_text);
+
+			STUFF_WORD(strlen(string));
+			while (*string)
+				STUFF(*string++);
+		}
+		else
+		{
+	/** The numeric string doesn't contain 'E' or 'e' in it.
+	    Then this must be a scaled int.  Figure out if there
+	    is a '.' in it and calculate its scale.
+	**/
+			char *ptr;
+			char *s_ptr;
+			UINT64 uint64_val;
+			SINT64 sint64_val;
+			long long_val;
+			int scale;
+
+			s_ptr = string;
+
+	/** Get the scale **/
+			ptr = strpbrk(string, ".");
+			if (!ptr)
+		/**  No '.' ?, Scale is 0 **/
+				scale = 0;
+			else
+			{
+		/** Aha!, there is a '.'. find the scale **/
+				scale = (string + (strlen(string) - 1)) - ptr;
+				scale = -scale;
+			}
+
+			uint64_val = 0;
+			while (*s_ptr)
+			{
+				if (*s_ptr != '.')
+					uint64_val = (uint64_val * 10) + (*s_ptr - '0');
+				s_ptr++;
+			}
+
+	/** see if we can fit the value in a long or INT64.  **/
+			if ((uint64_val <= MAX_SLONG) ||
+				((uint64_val == (MAX_SLONG + (UINT64) 1))
+				 && (negate == TRUE)))
+			{
+				if (negate == TRUE)
+					long_val = -((long) uint64_val);
+				else
+					long_val = (long) uint64_val;
+				STUFF(blr_long);
+				STUFF(scale);	/* scale factor */
+				STUFF_WORD(long_val);
+				STUFF_WORD(long_val >> 16);
+			}
+			else if ((uint64_val <= MAX_SINT64) ||
+					 ((uint64_val == ((UINT64) MAX_SINT64 + 1))
+					  && (negate == TRUE)))
+			{
+				if (negate == TRUE)
+					sint64_val = -((SINT64) uint64_val);
+				else
+					sint64_val = (SINT64) uint64_val;
+				STUFF(blr_int64);
+				STUFF(scale);	/* scale factor */
+				STUFF_WORD(sint64_val);
+				STUFF_WORD(sint64_val >> 16);
+				STUFF_WORD(sint64_val >> 32);
+				STUFF_WORD(sint64_val >> 48);
+			}
+			else
+				CPR_error("cmp_literal : Numeric Value too big");
+
+		}
+	}
+	else
+	{
+		/* Remove surrounding quotes from string, etc. */
+		p = buffer;
+
+		/* Skip introducing quote mark */
+		if (*string)
+			string++;
+
+		while (*string)
+			*p++ = *string++;
+
+		/* Zap out terminating quote mark */
+		*--p = 0;
+		length = p - buffer;
+
+		from.dsc_sub_type = ttype_ascii;
+		from.dsc_flags = 0;
+		from.dsc_dtype = dtype_text;
+		from.dsc_length = length;
+		from.dsc_address = (UCHAR *) buffer;
+		to.dsc_sub_type = 0;
+		to.dsc_flags = 0;
+		if (reference->ref_flags & REF_sql_date)
+		{
+			ISC_DATE dt;
+			STUFF(blr_sql_date);
+			to.dsc_dtype = dtype_sql_date;
+			to.dsc_length = sizeof(ISC_DATE);
+			to.dsc_address = (UCHAR *) & dt;
+			MOVG_move(&from, &to);
+			STUFF_WORD(dt);
+			STUFF_WORD(dt >> 16);
+			return node;
+		}
+		else if (reference->ref_flags & REF_timestamp)
+		{
+			ISC_TIMESTAMP ts;
+			STUFF(blr_timestamp);
+			to.dsc_dtype = dtype_timestamp;
+			to.dsc_length = sizeof(ISC_TIMESTAMP);
+			to.dsc_address = (UCHAR *) & ts;
+			MOVG_move(&from, &to);
+			STUFF_WORD(ts.timestamp_date);
+			STUFF_WORD(ts.timestamp_date >> 16);
+			STUFF_WORD(ts.timestamp_time);
+			STUFF_WORD(ts.timestamp_time >> 16);
+			return node;
+		}
+		else if (reference->ref_flags & REF_sql_time)
+		{
+			ISC_TIME itim;
+			STUFF(blr_sql_time);
+			to.dsc_dtype = dtype_sql_time;
+			to.dsc_length = sizeof(ISC_DATE);
+			to.dsc_address = (UCHAR *) & itim;
+			MOVG_move(&from, &to);
+			STUFF_WORD(itim);
+			STUFF_WORD(itim >> 16);
+			return node;
+		}
+		else if (!(reference->ref_flags & REF_ttype))
+			STUFF(blr_text);
+		else
+		{
+			STUFF(blr_text2);
+			STUFF_WORD(reference->ref_ttype);
+		}
+
+		STUFF_WORD(length);
+		for (string = buffer; *string;)
+			STUFF(*string++);
+	}
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a map for a union or aggregate rse.
+//  
+
+static void cmp_map( MAP map, REQ request)
+{
+	MEL element;
+
+	STUFF(blr_map);
+	STUFF_WORD(map->map_count);
+
+	for (element = map->map_elements; element; element = element->mel_next)
+	{
+		STUFF_WORD(element->mel_position);
+		CME_expr(element->mel_expr, request);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate an access plan for a query.
+//  
+
+static void cmp_plan( NOD plan_expression, REQ request)
+{
+	NOD list, node, arg, *ptr, *end, *ptr2, *end2;
+
+//  stuff the join type 
+
+	list = plan_expression->nod_arg[1];
+	if (list->nod_count > 1)
+	{
+		if (node = plan_expression->nod_arg[0])
+			STUFF(blr_merge);
+		else
+			STUFF(blr_join);
+		STUFF(list->nod_count);
+	}
+
+//  stuff one or more plan items 
+
+	for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end; ptr++)
+	{
+		node = *ptr;
+		if (node->nod_type == nod_plan_expr)
+		{
+			cmp_plan(node, request);
+			continue;
+		}
+
+		/* if we're here, it must be a nod_plan_item */
+
+		STUFF(blr_retrieve);
+
+		/* stuff the relation--the relation id itself is redundant except 
+		   when there is a need to differentiate the base tables of views */
+
+		CME_relation((CTX) node->nod_arg[2], request);
+
+		/* now stuff the access method for this stream */
+
+		arg = node->nod_arg[1];
+		switch (arg->nod_type)
+		{
+		case nod_natural:
+			STUFF(blr_sequential);
+			break;
+
+		case nod_index_order:
+			STUFF(blr_navigational);
+			STUFF_CSTRING((TEXT *) arg->nod_arg[0]);
+			break;
+
+		case nod_index:
+			STUFF(blr_indices);
+			arg = arg->nod_arg[0];
+			STUFF(arg->nod_count);
+			for (ptr2 = arg->nod_arg, end2 = ptr2 + arg->nod_count;
+				 ptr2 < end2; ptr2++)
+				STUFF_CSTRING((TEXT *) * ptr2);
+			break;
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Print out the correct blr for
+//       this datatype.
+//  
+
+static void cmp_sdl_dtype( FLD field, REF reference)
+{
+	TEXT s[50];
+
+	switch (field->fld_dtype)
+	{
+	case dtype_cstring:
+		/* 3.2j has new, tagged blr intruction for cstring */
+
+		if (sw_know_interp)
+		{
+			STUFF_SDL(blr_cstring2);
+			STUFF_SDL_WORD(sw_interp);
+			STUFF_SDL_WORD(field->fld_length);
+		}
+		else
+		{
+			STUFF_SDL(blr_cstring);
+			STUFF_SDL_WORD(field->fld_length);
+		}
+		break;
+
+	case dtype_text:
+		/* 3.2j has new, tagged blr intruction for text too */
+
+		if (sw_know_interp)
+		{
+			STUFF_SDL(blr_text2);
+			STUFF_SDL_WORD(sw_interp);
+			STUFF_SDL_WORD(field->fld_length);
+		}
+		else
+		{
+			STUFF_SDL(blr_text);
+			STUFF_SDL_WORD(field->fld_length);
+		}
+		break;
+
+	case dtype_varying:
+		/* 3.2j has new, tagged blr intruction for varying also */
+
+		if (sw_know_interp)
+		{
+			STUFF_SDL(blr_varying2);
+			STUFF_SDL_WORD(sw_interp);
+			STUFF_SDL_WORD(field->fld_length);
+		}
+		else
+		{
+			STUFF_SDL(blr_varying);
+			STUFF_SDL_WORD(field->fld_length);
+		}
+		break;
+
+	case dtype_short:
+		STUFF_SDL(blr_short);
+		STUFF_SDL(field->fld_scale);
+		break;
+
+	case dtype_long:
+		STUFF_SDL(blr_long);
+		STUFF_SDL(field->fld_scale);
+		break;
+
+	case dtype_quad:
+		STUFF_SDL(blr_quad);
+		STUFF_SDL(field->fld_scale);
+		break;
+
+// ** Begin date/time/timestamp support *
+	case dtype_sql_date:
+		STUFF_SDL(blr_sql_date);
+		break;
+	case dtype_sql_time:
+		STUFF_SDL(blr_sql_time);
+		break;
+
+	case dtype_timestamp:
+		STUFF_SDL(blr_timestamp);
+		break;
+// ** End date/time/timestamp support *
+
+	case dtype_int64:
+		STUFF_SDL(blr_int64);
+		break;
+
+	case dtype_real:
+		STUFF_SDL(blr_float);
+		break;
+
+	case dtype_double:
+		if (sw_d_float)
+			STUFF_SDL(blr_d_float);
+		else
+			STUFF_SDL(blr_double);
+		break;
+
+	default:
+		sprintf(s, "datatype %d not understood", field->fld_dtype);
+		CPR_error(s);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Compile a reference to a user defined function.
+//  
+
+static NOD cmp_udf( NOD node, REQ request)
+{
+	NOD list, *ptr, *end;
+	UDF udf;
+	TEXT *p;
+
+	udf = (UDF) node->nod_arg[1];
+	STUFF(blr_function);
+	p = udf->udf_function;
+	STUFF(strlen(p));
+
+	while (*p)
+		STUFF(*p++);
+
+	list = node->nod_arg[0];
+	if (list)
+	{
+		STUFF(list->nod_count);
+
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++)
+			CME_expr(*ptr, request);
+	}
+	else
+		STUFF(0);
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Process a random value expression.
+//  
+
+static NOD cmp_value( NOD node, REQ request)
+{
+	REF reference, flag;
+
+	reference = (REF) node->nod_arg[0];
+
+	if (!reference)
+		ib_puts("cmp_value: missing reference");
+
+	if (!reference->ref_port)
+		ib_puts("cmp_value: port missing");
+
+	if (flag = reference->ref_null)
+	{
+		STUFF(blr_parameter2);
+		STUFF(reference->ref_port->por_msg_number);
+		STUFF_WORD(reference->ref_parameter);
+		STUFF_WORD(flag->ref_parameter);
+	}
+	else
+	{
+		STUFF(blr_parameter);
+		STUFF(reference->ref_port->por_msg_number);
+		STUFF_WORD(reference->ref_parameter);
+	}
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Figure out a text length from a datatype and a length
+//  
+
+static USHORT get_string_len( FLD field)
+{
+	DSC tmp_dsc;
+
+	assert(field->fld_dtype <= MAX_UCHAR);
+
+	tmp_dsc.dsc_dtype = (UCHAR) field->fld_dtype;
+	tmp_dsc.dsc_length = field->fld_length;
+	tmp_dsc.dsc_scale = 0;
+	tmp_dsc.dsc_sub_type = 0;
+	tmp_dsc.dsc_flags = 0;
+	tmp_dsc.dsc_address = NULL;
+
+	return DSC_string_length(&tmp_dsc);
+}
+
+
+//____________________________________________________________
+//  
+//		Write out a null-terminated 
+//		string with one byte of length.
+//  
+
+static void stuff_cstring( REQ request, const char *string)
+{
+	UCHAR c;
+
+	STUFF(strlen(string));
+
+	while (c = *string++) {
+		STUFF(c);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Write to the sdl string, the do
+//       loop for a particular dimension.
+//  
+
+static void stuff_sdl_dimension(
+								DIM dimension,
+								REF reference, SSHORT dimension_count)
+{
+
+//   In the future, when we support slices, new code to handle the
+//   user-defined slice ranges will be here.  
+
+	if (dimension->dim_lower == 1)
+	{
+		STUFF_SDL(gds_sdl_do1);
+		STUFF_SDL(dimension_count);
+		stuff_sdl_number(dimension->dim_upper, reference);
+	}
+	else
+	{
+		STUFF_SDL(gds_sdl_do2);
+		STUFF_SDL(dimension_count);
+		stuff_sdl_number(dimension->dim_lower, reference);
+		stuff_sdl_number(dimension->dim_upper, reference);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Write the element information
+//       (including the subscripts) to
+//       the SDL string for the array.
+//  
+
+static void stuff_sdl_element( REF reference, FLD field)
+{
+	SSHORT i;
+
+	STUFF_SDL(gds_sdl_element);
+	STUFF_SDL(1);
+	STUFF_SDL(gds_sdl_scalar);
+	STUFF_SDL(0);
+
+	STUFF_SDL(field->fld_array_info->ary_dimension_count);
+
+//  Fortran needs the array in column-major order 
+
+	if (sw_language == lang_fortran)
+	{
+		for (i = field->fld_array_info->ary_dimension_count - 1; i >= 0; i--)
+		{
+			STUFF_SDL(gds_sdl_variable);
+			STUFF_SDL(i);
+		}
+	}
+	else
+	{
+		for (i = 0; i < field->fld_array_info->ary_dimension_count; i++)
+		{
+			STUFF_SDL(gds_sdl_variable);
+			STUFF_SDL(i);
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Write loop information to the SDL
+//       string for the array dimensions.
+//  
+
+static void stuff_sdl_loops( REF reference, FLD field)
+{
+	SSHORT i;
+	DIM dimension;
+
+//  Fortran needs the array in column-major order 
+
+	if (sw_language == lang_fortran)
+	{
+		for (dimension = field->fld_array_info->ary_dimension;
+			 dimension->dim_next; dimension = dimension->dim_next);
+
+		for (i = 0; i < field->fld_array_info->ary_dimension_count;
+			 i++, dimension = dimension->dim_previous)
+			stuff_sdl_dimension(dimension, reference, i);
+	}
+	else
+		for (i = 0, dimension = field->fld_array_info->ary_dimension;
+			 i < field->fld_array_info->ary_dimension_count;
+			 i++, dimension = dimension->dim_next)
+				stuff_sdl_dimension(dimension, reference, i);
+}
+
+
+//____________________________________________________________
+//  
+//		Write the number in the 'smallest'
+//       form possible to the SDL string.
+//  
+
+static void stuff_sdl_number( SLONG number, REF reference)
+{
+
+	if ((number > -16) && (number < 15))
+	{
+		STUFF_SDL(gds_sdl_tiny_integer);
+		STUFF_SDL(number);
+	}
+	else if ((number > -32768) && (number < 32767))
+	{
+		STUFF_SDL(gds_sdl_short_integer);
+		STUFF_SDL_WORD(number);
+	}
+	else
+	{
+		STUFF_SDL(gds_sdl_long_integer);
+		STUFF_SDL_LONG(number);
+	}
+}
diff --git a/src/gpre/cme_proto.h b/src/gpre/cme_proto.h
new file mode 100644
index 0000000000..c6c6a1b7b1
--- /dev/null
+++ b/src/gpre/cme_proto.h
@@ -0,0 +1,32 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		cme_proto.h
+ *	DESCRIPTION:	Prototype header file for cme.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_CME_PROTO_H_
+#define _GPRE_CME_PROTO_H_
+
+extern void CME_expr(NOD, REQ);
+extern void CME_get_dtype(NOD, FLD);
+extern void CME_relation(CTX, REQ);
+extern void CME_rse(RSE, REQ);
+
+#endif /* _GPRE_CME_PROTO_H_ */
diff --git a/src/gpre/cmp.cpp b/src/gpre/cmp.cpp
new file mode 100644
index 0000000000..9548b41160
--- /dev/null
+++ b/src/gpre/cmp.cpp
@@ -0,0 +1,1974 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	C preprocessor
+//		MODULE:		cmp.cpp
+//		DESCRIPTION:	Request compiler
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  
+//
+//____________________________________________________________
+//
+//	$Id: cmp.cpp,v 1.1.1.1 2001-05-23 13:25:30 tamlin Exp $
+//
+
+#include <stdlib.h>
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "gpre.h"
+#include "../gpre/form.h"
+#include "../jrd/align.h"
+#include "../gpre/cmd_proto.h"
+#include "../gpre/cme_proto.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/gpre_meta.h"
+#include "../gpre/msc_proto.h"
+#include "../gpre/par_proto.h"
+
+
+extern "C" {
+
+
+extern TEXT *ident_pattern, *utility_name, *count_name, *slack_name,
+	*transaction_name;
+
+static void cmp_any(register REQ);
+static void cmp_assignment(register NOD, register REQ);
+static void cmp_blob(BLB, BOOLEAN);
+static void cmp_blr(REQ);
+static void cmp_erase(ACT, REQ);
+static void cmp_fetch(ACT);
+static void cmp_field(REQ, FLD, REF);
+static void cmp_for(register REQ);
+static void cmp_form(REQ);
+static void cmp_loop(register REQ);
+static void cmp_menu(REQ);
+static void cmp_modify(ACT, register REQ);
+static void cmp_port(register POR, register REQ);
+static void cmp_procedure(REQ);
+static void cmp_ready(REQ);
+static void cmp_sdl_fudge(REQ, SLONG);
+static BOOLEAN cmp_sdl_loop(REQ, USHORT, SLC, ARY);
+static void cmp_sdl_number(REQ, SLONG);
+static void cmp_sdl_subscript(REQ, USHORT, SLC, ARY);
+static void cmp_sdl_value(REQ, NOD);
+static void cmp_set_generator(REQ);
+static void cmp_slice(REQ);
+static void cmp_store(register REQ);
+static void expand_references(register REF);
+static POR make_port(register REQ, register REF);
+static void make_receive(register POR, register REQ);
+static void make_send(register POR, register REQ);
+static void update_references(register REF);
+
+static NOD lit0, lit1;
+static FLD eof_field, count_field, slack_byte_field;
+static USHORT next_ident;
+
+#define STUFF(blr)	*request->req_blr++ = (UCHAR)(blr)
+#define STUFF_WORD(blr) {STUFF (blr); STUFF ((blr) >> 8);}
+#define STUFF_LONG(blr) {STUFF (blr); STUFF ((blr) >> 8); STUFF ((blr) >>16); STUFF ((blr) >> 24);}
+#define STUFF_INT(blr)	STUFF (blr); STUFF ((blr) >> 8); STUFF ((blr) >> 16); STUFF ((blr) >> 24)
+
+#define MAX_TPB		4000
+#define BLR_LENGTH	request->req_length = request->req_blr - request->req_base; request->req_blr = request->req_base
+
+
+//____________________________________________________________
+//  
+//		Check to make sure that generated blr string is not about to
+//		over the memory allocated for it.  If so, allocate an extra
+//		couple of hundred bytes to be safe.
+//  
+
+void CMP_check( register REQ request, SSHORT min_reqd)
+{
+	UCHAR *p, *q, *old;
+	int length, n;
+
+	length = request->req_blr - request->req_base;
+	if (!(min_reqd) && (length < request->req_length - 100))
+		return;
+
+	n = ((length + min_reqd + 100) > request->req_length * 2) ?
+		length + min_reqd + 100 : request->req_length * 2;
+
+	q = old = request->req_base;
+	request->req_base = p = (UCHAR *) ALLOC(n);
+	request->req_length = n;
+	request->req_blr = request->req_base + length;
+
+	do
+		*p++ = *q++;
+	while (--length);
+
+	FREE(old);
+}
+
+
+//____________________________________________________________
+//  
+//		Compile a single request, but do not generate any text.
+//		Generate port blocks, assign parameter numbers, message
+//		numbers, and internal idents.  Compute length of request.
+//  
+
+void CMP_compile_request( register REQ request)
+{
+	POR port;
+	REF reference;
+	ACT action;
+	BLB blob;
+	UPD update;
+#ifdef SCROLLABLE_CURSORS
+	FLD direction_field, offset_field;
+#endif
+
+//  if there isn't a request handle specified, make one! 
+
+	if (!request->req_handle && (request->req_type != REQ_procedure)) {
+		request->req_handle = (TEXT *) ALLOC(20);
+		sprintf(request->req_handle, ident_pattern, CMP_next_ident());
+	}
+
+	if (!request->req_trans)
+		request->req_trans = transaction_name;
+
+	if (!request->req_request_level)
+		request->req_request_level = "0";
+
+	request->req_ident = CMP_next_ident();
+
+//  If this is an SQL blob cursor, compile the blob and get out fast. 
+
+	if (request->req_flags & (REQ_sql_blob_open | REQ_sql_blob_create)) {
+		for (blob = request->req_blobs; blob; blob = blob->blb_next)
+			cmp_blob(blob, TRUE);
+		return;
+	}
+
+//  Before we get too far, make sure an eof field has been
+//  constructed.  If not, do so now. 
+
+	if (!eof_field) {
+		eof_field =
+			MET_make_field(utility_name, dtype_short, sizeof(SSHORT), FALSE);
+		count_field =
+			MET_make_field(count_name, dtype_long, sizeof(SLONG), FALSE);
+		slack_byte_field = MET_make_field(slack_name, dtype_text, 1, FALSE);
+		reference = (REF) ALLOC(REF_LEN);
+		reference->ref_value = "0";
+		lit0 = MSC_unary(nod_literal, (NOD) reference);
+
+		reference = (REF) ALLOC(REF_LEN);
+		reference->ref_value = "1";
+		lit1 = MSC_unary(nod_literal, (NOD) reference);
+	}
+
+//  Handle different request types differently 
+
+	switch (request->req_type) {
+	case REQ_create_database:
+	case REQ_ddl:
+		CMD_compile_ddl(request);
+		return;
+
+	case REQ_menu:
+		cmp_menu(request);
+		return;
+
+	case REQ_slice:
+		cmp_slice(request);
+		return;
+
+	case REQ_ready:
+		cmp_ready(request);
+		return;
+
+	case REQ_form:
+		cmp_form(request);
+		return;
+
+	case REQ_procedure:
+		cmp_procedure(request);
+		return;
+	}
+//  expand any incomplete references or values 
+
+	expand_references(request->req_references);
+	expand_references(request->req_values);
+
+//  Initialize the blr string 
+
+	request->req_blr = request->req_base = (UCHAR *) ALLOC(500);
+	request->req_length = 500;
+	if (request->req_flags & REQ_blr_version4)
+		STUFF(blr_version4);
+	else
+		STUFF(blr_version5);
+
+//  If there are values to be transmitted, make a port
+//  to hold them 
+
+	if (request->req_values)
+		request->req_vport = make_port(request, request->req_values);
+
+#ifdef SCROLLABLE_CURSORS
+//  If there is an asynchronous message to be sent, make a port for it 
+
+	if (request->req_flags & REQ_sql_cursor &&
+		request->req_database->dbb_base_level >= 5) {
+		direction_field =
+			MET_make_field("direction", dtype_short, sizeof(SSHORT), FALSE);
+		offset_field =
+			MET_make_field("offset", dtype_long, sizeof(SLONG), FALSE);
+
+		reference = request->req_avalues;
+		reference->ref_field = direction_field;
+		reference = reference->ref_next;
+		reference->ref_field = offset_field;
+
+		request->req_aport = make_port(request, request->req_avalues);
+	}
+#endif
+
+//  If this is a FOR type request, an eof field reference needs
+//  to be generated.  Do it. 
+
+	if (request->req_type == REQ_for ||
+		request->req_type == REQ_cursor || request->req_type == REQ_any) {
+		reference = (REF) ALLOC(REF_LEN);
+		reference->ref_field = eof_field;
+		reference->ref_next = request->req_references;
+	}
+	else if (request->req_type == REQ_mass_update) {
+		reference = (REF) ALLOC(REF_LEN);
+		reference->ref_field = count_field;
+		reference->ref_next = request->req_references;
+	}
+	else
+		reference = request->req_references;
+
+//  Assume that a general port needs to be constructed. 
+
+	if ((request->req_type != REQ_insert) && (request->req_type != REQ_store2)
+		&& (request->req_type != REQ_set_generator))
+		request->req_primary = port = make_port(request, reference);
+
+//  Loop thru actions looking for something interesting to do.  Not
+//  all action types are "interesting", so don't worry about missing
+//  ones. 
+
+	for (action = request->req_actions; action; action = action->act_next)
+		switch (action->act_type) {
+		case ACT_modify:
+		case ACT_erase:
+		case ACT_update:
+			update = (UPD) action->act_object;
+			expand_references(update->upd_references);
+			update->upd_port = make_port(request, update->upd_references);
+			if (!request->req_sync)
+				request->req_sync = make_port(request, 0);
+			break;
+		case ACT_store:
+			if (request->req_type == REQ_store2) {
+				request->req_primary = make_port(request, action->act_object);
+				update_references(request->req_primary->por_references);
+			}
+			break;
+		case ACT_store2:
+			update = (UPD) action->act_object;
+			expand_references(update->upd_references);
+			update->upd_port = make_port(request, update->upd_references);
+			update_references(update->upd_port->por_references);
+			break;
+		case ACT_select:
+		case ACT_fetch:
+			cmp_fetch(action);
+			break;
+
+		}
+
+	cmp_blr(request);
+	STUFF(blr_eoc);
+
+//  Compute out final blr lengths 
+
+	request->req_length = request->req_blr - request->req_base;
+	request->req_blr = request->req_base;
+
+//  Finally, assign identifiers to any blobs that may have been referenced 
+
+	for (blob = request->req_blobs; blob; blob = blob->blb_next)
+		cmp_blob(blob, FALSE);
+}
+
+
+//____________________________________________________________
+//  
+//		CMP_display_code is called by the code generators to compute
+//		the option words code for the form DISPLAY statement on a
+//		field by field basis.  If the user has specificed explicit
+//		override of the field, -1 is returned.
+//  
+
+CMP_display_code(FINT display, REF reference)
+{
+	int code;
+
+	if (MSC_member((NOD) reference, display->fint_override_fields))
+		return -1;
+
+	code = 0;
+
+//  Handle display attribute 
+
+	if (display->fint_flags & FINT_display_all)
+		code |= PYXIS_OPT_DISPLAY;
+	else if (MSC_member((NOD) reference, display->fint_display_fields))
+		code |= PYXIS_OPT_DISPLAY;
+
+//  Handle update attribute 
+
+	if (display->fint_flags & FINT_update_all)
+		code |= PYXIS_OPT_UPDATE;
+	else if (MSC_member((NOD) reference, display->fint_update_fields))
+		code |= PYXIS_OPT_UPDATE;
+
+//  Handle wakeup attribute 
+
+	if (display->fint_flags & FINT_wakeup_all)
+		code |= PYXIS_OPT_WAKEUP;
+	else if (MSC_member((NOD) reference, display->fint_wakeup_fields))
+		code |= PYXIS_OPT_WAKEUP;
+
+//  Handle cursor position attribute 
+
+	if (MSC_member((NOD) reference, display->fint_position_fields))
+		code |= PYXIS_OPT_POSITION;
+
+	return code;
+}
+
+
+//____________________________________________________________
+//  
+//		Stuff field datatype info into request.
+//		Text fields are not remapped to process text type.
+//		This is used by the CAST & COLLATE operators to
+//		indicate cast datatypes.
+//  
+
+void CMP_external_field( REQ request, FLD field)
+{
+
+	switch (field->fld_dtype) {
+	case dtype_cstring:
+		STUFF(blr_text2);
+		STUFF_WORD(field->fld_ttype);
+		STUFF_WORD(field->fld_length - 1);
+		break;
+
+	case dtype_text:
+		STUFF(blr_text2);
+		STUFF_WORD(field->fld_ttype);
+		STUFF_WORD(field->fld_length);
+		break;
+
+	case dtype_varying:
+		STUFF(blr_varying2);
+		STUFF_WORD(field->fld_ttype);
+		STUFF_WORD(field->fld_length);
+		break;
+
+	default:
+		cmp_field(request, field, 0);
+		break;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Initialize (or re-initialize) for request compilation.  This is
+//		called at most once per module.
+//  
+
+void CMP_init(void)
+{
+
+	lit0 = lit1 = NULL;
+	count_field = slack_byte_field = eof_field = NULL;
+	next_ident = 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Give out next identifier.
+//  
+
+USHORT CMP_next_ident(void)
+{
+
+	return next_ident++;
+}
+
+
+//____________________________________________________________
+//  
+//		Stuff a symbol.
+//  
+
+void CMP_stuff_symbol( REQ request, SYM symbol)
+{
+	TEXT *p;
+
+	STUFF(strlen(symbol->sym_string));
+
+	for (p = symbol->sym_string; *p; p++)
+		STUFF(*p);
+}
+
+
+//____________________________________________________________
+//  
+//		Take a transaction block with (potentially) a
+//		lot of relation lock blocks, and generate TPBs
+//  
+//		We'll always generate TPB's, and link them
+//		into the DBB for that database so they get
+//		generated.  If there's no lock list, we generate
+//		a simple TPB for every database in the program.  
+//		If there is a lock list, we generate a more complex
+//		TPB for each database referenced.
+//  
+
+void CMP_t_start( register TRA trans)
+{
+	char rrl_buffer[MAX_TPB];
+	char tpb_buffer[MAX_TRA_OPTIONS + 1];
+	char *text;
+	char *p;
+	char *q;
+	DBB database;
+	RRL lock_block;
+	USHORT buff_len, tpb_len;
+	TPB tpb;
+
+//  fill out a standard tpb buffer ahead of time so we know
+//  how large it is 
+
+	text = tpb_buffer;
+	*text++ = gds_tpb_version1;
+	*text++ = (trans->tra_flags & TRA_ro) ? gds_tpb_read : gds_tpb_write;
+	if (trans->tra_flags & TRA_con)
+		*text++ = gds_tpb_consistency;
+	else if (trans->tra_flags & TRA_read_committed)
+		*text++ = gds_tpb_read_committed;
+	else
+		*text++ = gds_tpb_concurrency;
+	*text++ = (trans->tra_flags & TRA_nw) ? gds_tpb_nowait : gds_tpb_wait;
+
+	if (trans->tra_flags & TRA_read_committed)
+		*text++ =
+			(trans->
+			 tra_flags & TRA_rec_version) ? gds_tpb_rec_version :
+			gds_tpb_no_rec_version;
+
+	if (trans->tra_flags & TRA_autocommit)
+		*text++ = gds_tpb_autocommit;
+	if (trans->tra_flags & TRA_no_auto_undo)
+		*text++ = gds_tpb_no_auto_undo;
+	*text = 0;
+	tpb_len = text - tpb_buffer;
+
+	for (database = isc_databases; database; database = database->dbb_next) {
+		/* 
+		 * figure out if this is a simple transaction or a reserving
+		 * transaction.  Allocate a TPB of the right size in either
+		 * case.
+		 */
+
+		if (trans->tra_flags & TRA_inc) {
+			if (database->dbb_flags & DBB_in_trans) {
+				tpb = (TPB) ALLOC(TPB_LEN(tpb_len));
+				tpb->tpb_length = tpb_len;
+				database->dbb_flags &= ~DBB_in_trans;
+			}
+			else
+				continue;
+		}
+		else if (!(trans->tra_flags & TRA_rrl)) {
+			tpb = (TPB) ALLOC(TPB_LEN(tpb_len));
+			tpb->tpb_length = tpb_len;
+		}
+		else if (database->dbb_rrls) {
+			p = rrl_buffer;
+			for (lock_block = database->dbb_rrls; lock_block;
+				 lock_block = lock_block->rrl_next) {
+				*p++ = lock_block->rrl_lock_mode;
+				q = lock_block->rrl_relation->rel_symbol->sym_string;
+				*p++ = strlen(q);
+				while (*q)
+					*p++ = *q++;
+				*p++ = lock_block->rrl_lock_level;
+			}
+			*p = 0;
+			buff_len = (p - rrl_buffer);
+			tpb = (TPB) ALLOC(TPB_LEN(buff_len + tpb_len));
+			tpb->tpb_length = buff_len + tpb_len;
+			database->dbb_rrls = NULL;
+		}
+		else					/* this database isn't referenced */
+			continue;
+
+		/* link this into the TPB chains (TRA and DBB)   */
+
+		tpb->tpb_database = database;
+		tpb->tpb_dbb_next = database->dbb_tpbs;
+		database->dbb_tpbs = tpb;
+		tpb->tpb_tra_next = trans->tra_tpb;
+		trans->tra_tpb = tpb;
+		trans->tra_db_count++;
+
+		/* fill in the standard TPB and concatenate the relation names */
+
+		tpb->tpb_ident = CMP_next_ident();
+
+		text = reinterpret_cast < char *>(tpb->tpb_string);
+		for (p = tpb_buffer; *p;)
+			*text++ = *p++;
+		if (trans->tra_flags & TRA_rrl)
+			strcpy(text, rrl_buffer);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate blr tree for free standing ANY expression.
+//  
+
+static void cmp_any( register REQ request)
+{
+	NOD value;
+	POR port;
+	REF reference, source;
+
+//  Build the primary send statement 
+
+	port = request->req_primary;
+	make_send(port, request);
+
+	STUFF(blr_if);
+	STUFF(blr_any);
+	CME_rse(request->req_rse, request);
+
+	value = MSC_unary(nod_value, (NOD) port->por_references);
+
+//  Make a send to signal end of file 
+
+	STUFF(blr_assignment);
+	CME_expr(lit1, request);
+	CME_expr(value, request);
+
+	STUFF(blr_assignment);
+	CME_expr(lit0, request);
+	CME_expr(value, request);
+
+	if (port = request->req_vport)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) {
+			reference->ref_source = source = (REF) ALLOC(REF_LEN);
+			source->ref_ident = CMP_next_ident();
+		}
+}
+
+
+//____________________________________________________________
+//  
+//		Compile a build assignment statement.
+//  
+
+static void cmp_assignment( register NOD node, register REQ request)
+{
+
+	CMP_check(request, 0);
+	STUFF(blr_assignment);
+	CME_expr(node->nod_arg[0], request);
+	CME_expr(node->nod_arg[1], request);
+}
+
+
+//____________________________________________________________
+//  
+//		Compile a blob parameter block, if required.
+//  
+
+static void cmp_blob( BLB blob, BOOLEAN sql_flag)
+{
+	UCHAR *p;
+	REF reference;
+
+	blob->blb_ident = CMP_next_ident();
+	blob->blb_buff_ident = CMP_next_ident();
+	blob->blb_len_ident = CMP_next_ident();
+
+	if (sql_flag)
+		for (reference = blob->blb_reference; reference;
+			 reference = reference->ref_next) reference->ref_port =
+				make_port(reference->ref_context->ctx_request, reference);
+
+	if (!blob->blb_const_to_type && !blob->blb_type)
+		return;
+
+	blob->blb_bpb_ident = CMP_next_ident();
+	p = blob->blb_bpb;
+	*p++ = gds_bpb_version1;
+
+	if (blob->blb_const_to_type) {
+		*p++ = gds_bpb_target_type;
+		*p++ = 2;
+		*p++ = (UCHAR) blob->blb_const_to_type;
+		*p++ = blob->blb_const_to_type >> 8;
+	}
+
+	if (blob->blb_const_from_type) {
+		*p++ = gds_bpb_source_type;
+		*p++ = 2;
+		*p++ = (UCHAR) blob->blb_const_from_type;
+		*p++ = blob->blb_const_from_type >> 8;
+	}
+
+	if (blob->blb_type) {
+		*p++ = gds_bpb_type;
+		*p++ = 1;
+		*p++ = (UCHAR) blob->blb_type;
+	}
+
+	if (blob->blb_from_charset) {
+		/* create bpb instruction for source character set */
+
+		*p++ = gds_bpb_source_interp;
+		*p++ = 2;
+		*p++ = (UCHAR) blob->blb_from_charset;
+		*p++ = blob->blb_from_charset >> 8;
+	}
+
+	if (blob->blb_to_charset) {
+
+		/* create bpb instruction for target character set */
+
+		*p++ = gds_bpb_target_interp;
+		*p++ = 2;
+		*p++ = (UCHAR) blob->blb_to_charset;
+		*p++ = blob->blb_to_charset >> 8;
+	}
+
+	blob->blb_bpb_length = p - blob->blb_bpb;
+}
+
+
+//____________________________________________________________
+//  
+//		Build a request tree for a request.
+//  
+
+static void cmp_blr( REQ request)
+{
+	POR port;
+
+	STUFF(blr_begin);
+
+//  build message definition for each port 
+
+	for (port = request->req_ports; port; port = port->por_next)
+		cmp_port(port, request);
+
+//  See if there is a receive to be built 
+
+	if ((request->req_type == REQ_store) || (request->req_type == REQ_store2))
+		port = request->req_primary;
+	else
+		port = request->req_vport;
+
+	if (port)
+		make_receive(port, request);
+
+//  Compile up request 
+
+	switch (request->req_type) {
+	case REQ_cursor:
+	case REQ_for:
+		cmp_for(request);
+		break;
+
+	case REQ_insert:
+	case REQ_store:
+	case REQ_store2:
+		cmp_store(request);
+		break;
+
+	case REQ_mass_update:
+		cmp_loop(request);
+		break;
+
+	case REQ_any:
+		cmp_any(request);
+		break;
+
+	case REQ_set_generator:
+		cmp_set_generator(request);
+		break;
+
+	default:
+		CPR_error("*** unknown request type node ***");
+	}
+
+	STUFF(blr_end);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate blr for ERASE action.
+//  
+
+static void cmp_erase( ACT action, REQ request)
+{
+	UPD update;
+	CTX source;
+
+	update = (UPD) action->act_object;
+	source = update->upd_source;
+	make_receive(update->upd_port, request);
+
+	if (action->act_error)
+		STUFF(blr_handler);
+
+	STUFF(blr_erase);
+	STUFF(source->ctx_internal);
+}
+
+
+//____________________________________________________________
+//  
+//		Go over an SQL fetch list and expand
+//		references to indicator variables.
+//		Not tough.
+//  
+
+static void cmp_fetch( ACT action)
+{
+	REF var;
+	NOD *ptr, *end, list;
+
+	if (!(list = (NOD) action->act_object))
+		return;
+
+	if (list->nod_type != nod_list)
+		CPR_error("invalid fetch action");
+
+	for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end; ptr++) {
+		var = (REF) * ptr;
+		if (var->ref_null_value && !var->ref_null)
+			if (var->ref_friend)
+				var->ref_null = var->ref_friend->ref_null;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Stuff field datatype info into request.
+//  
+
+static void cmp_field( REQ request, FLD field, REF reference)
+{
+	TEXT s[50];
+
+	if (reference && reference->ref_value
+		&& (reference->ref_flags & REF_array_elem)) field = field->fld_array;
+
+	assert(field != NULL);
+	assert(field->fld_dtype);
+	assert(field->fld_length);
+
+	switch (field->fld_dtype) {
+	case dtype_cstring:
+		if (!(field->fld_flags & FLD_charset)) {
+			STUFF(blr_cstring);
+			STUFF_WORD(field->fld_length);
+		}
+		else {
+			/* 3.2j has new, tagged blr instruction for cstring */
+
+			STUFF(blr_cstring2);
+			STUFF_WORD(field->fld_ttype);
+			STUFF_WORD(field->fld_length);
+		}
+		break;
+
+	case dtype_text:
+		if (!(field->fld_flags & FLD_charset)) {
+			STUFF(blr_text);
+			STUFF_WORD(field->fld_length);
+		}
+		else {
+			/* 3.2j has new, tagged blr instruction for text too */
+
+			STUFF(blr_text2);
+			STUFF_WORD(field->fld_ttype);
+			STUFF_WORD(field->fld_length);
+		}
+		break;
+
+	case dtype_varying:
+		if (!(field->fld_flags & FLD_charset)) {
+			STUFF(blr_varying);
+			STUFF_WORD(field->fld_length);
+		}
+		else {
+			/* 3.2j has new, tagged blr instruction for varying also */
+
+			STUFF(blr_varying2);
+			STUFF_WORD(field->fld_ttype);
+			STUFF_WORD(field->fld_length);
+		}
+		break;
+
+	case dtype_short:
+		STUFF(blr_short);
+		STUFF(field->fld_scale);
+		break;
+
+	case dtype_long:
+		STUFF(blr_long);
+		STUFF(field->fld_scale);
+		break;
+
+	case dtype_blob:
+		if (request->req_type == REQ_form) {
+			STUFF(blr_blob_id);
+			STUFF_WORD(field->fld_sub_type);
+			break;
+		}
+
+	case dtype_quad:
+		STUFF(blr_quad);
+		STUFF(field->fld_scale);
+		break;
+
+// ** Begin sql date/time/timestamp *
+	case dtype_sql_date:
+		STUFF(blr_sql_date);
+		break;
+
+	case dtype_sql_time:
+		STUFF(blr_sql_time);
+		break;
+
+	case dtype_timestamp:
+		STUFF(blr_timestamp);
+		break;
+// ** Begin sql date/time/timestamp *
+
+	case dtype_int64:
+		STUFF(blr_int64);
+		STUFF(field->fld_scale);
+		break;
+
+	case dtype_real:
+		STUFF(blr_float);
+		break;
+
+	case dtype_double:
+		if (sw_d_float)
+			STUFF(blr_d_float);
+		else
+			STUFF(blr_double);
+		break;
+
+	default:
+		sprintf(s, "datatype %d not understood", field->fld_dtype);
+		CPR_error(s);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate blr tree for for statement
+//  
+
+static void cmp_for( register REQ request)
+{
+	NOD field, value;
+	POR port;
+	register ACT action;
+	register REF reference;
+	BOOLEAN updates;
+	CTX context;
+
+	STUFF(blr_begin);
+	if (request->req_type == REQ_cursor && request->req_sync)
+		make_receive(request->req_sync, request);
+
+	STUFF(blr_for);
+
+	if (request->req_flags & REQ_sql_cursor) {
+		if (!request->req_rse->rse_sort && !request->req_rse->rse_reduced)
+			for (context = (CTX) request->req_contexts; context;
+				 context = context->ctx_next) {
+				if ((context->ctx_scope_level == request->req_scope_level) &&
+					context->ctx_procedure) {
+					STUFF(blr_stall);
+					break;
+				}
+			}
+	}
+
+	CME_rse(request->req_rse, request);
+
+//  Loop thru actions looking for primary port.  While we're at it,
+//  count the number of update actions. 
+
+	updates = FALSE;
+	for (action = request->req_actions; action; action = action->act_next)
+		switch (action->act_type) {
+		case ACT_modify:
+		case ACT_update:
+		case ACT_erase:
+			updates = TRUE;
+		}
+	if (updates)
+		STUFF(blr_begin);
+
+//  Build the primary send statement 
+
+	port = request->req_primary;
+	make_send(port, request);
+
+	field = MAKE_NODE(nod_field, 1);
+	value = MAKE_NODE(nod_value, 1);
+	STUFF(blr_begin);
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		CMP_check(request, 0);
+		if (reference->ref_master)
+			continue;
+		STUFF(blr_assignment);
+		if (reference->ref_field == eof_field) {
+			request->req_eof = reference;
+			CME_expr(lit1, request);
+		}
+		else if (reference->ref_field == slack_byte_field)
+			CME_expr(lit0, request);
+		else {
+			if (reference->ref_expr)
+				CME_expr(reference->ref_expr, request);
+			else {
+				field->nod_arg[0] = (NOD) reference;
+				CME_expr(field, request);
+			}
+		}
+		value->nod_arg[0] = (NOD) reference;
+		CME_expr(value, request);
+	}
+	STUFF(blr_end);
+
+//  If there are any actions, handle them here 
+
+	if (updates) {
+		STUFF(blr_label);
+		STUFF(0);
+		STUFF(blr_loop);
+		STUFF(blr_select);
+		make_receive(request->req_sync, request);
+		STUFF(blr_leave);
+		STUFF(0);
+
+		for (action = request->req_actions; action; action = action->act_next)
+			switch (action->act_type) {
+			case ACT_endmodify:
+			case ACT_update:
+				cmp_modify(action, request);
+				break;
+			case ACT_erase:
+				cmp_erase(action, request);
+				break;
+			}
+		STUFF(blr_end);
+		STUFF(blr_end);
+	}
+
+//  Make a send to signal end of file 
+
+	make_send(port, request);
+	STUFF(blr_assignment);
+	CME_expr(lit0, request);
+	value->nod_arg[0] = (NOD) request->req_eof;
+	CME_expr(value, request);
+
+	STUFF(blr_end);
+}
+
+
+//____________________________________________________________
+//  
+//		Compile a FORM request.  
+//		This has very little to do with a BLR request.
+//  
+
+static void cmp_form( REQ request)
+{
+	REF reference, option, parent;
+	POR port;
+	FLD field;
+	FORM form;
+
+	form = request->req_form;
+
+	if (!form->form_handle) {
+		form->form_handle = (TEXT *) ALLOC(20);
+		sprintf(form->form_handle, ident_pattern, CMP_next_ident());
+	}
+
+	if (!request->req_form_handle)
+		request->req_form_handle = form->form_handle;
+
+	request->req_blr = request->req_base = (UCHAR *) ALLOC(500);
+	request->req_length = 500;
+	STUFF(PYXIS_MAP_VERSION1);
+
+	make_port(request, request->req_references);
+	port = request->req_ports;
+
+//   If the request had no references, we need to generate the 
+//   bogus, one-field reference structure within the routine
+//   but NOT generate the field into the blr message.  Gawd. 
+
+	reference = port->por_references;
+	if (reference->ref_field == eof_field) {
+		STUFF(blr_message);
+		STUFF(0);				/* port->por_msg_number */
+		STUFF_WORD(0);			/* port->por_count      */
+	}
+	else
+		cmp_port(port, request);
+
+	if (field = form->form_field) {
+		STUFF(PYXIS_MAP_SUB_FORM);
+		CMP_stuff_symbol(request, field->fld_symbol);
+	}
+
+	if (request->req_flags & REQ_transparent)
+		STUFF(PYXIS_MAP_TRANSPARENT);
+
+	if (request->req_flags & REQ_form_tag)
+		STUFF(PYXIS_MAP_TAG);
+
+	reference = port->por_references;
+	if (!(reference->ref_field == eof_field))
+		for (; reference; reference = reference->ref_next)
+			if (!(reference->ref_flags & REF_pseudo)) {
+				CMP_check(request, 0);
+				field = reference->ref_field;
+				option = reference->ref_null;
+				if (parent = reference->ref_friend) {
+					STUFF(PYXIS_MAP_SUB_FIELD);
+					CMP_stuff_symbol(request, parent->ref_field->fld_symbol);
+				}
+				else
+					STUFF((option) ? PYXIS_MAP_FIELD2 : PYXIS_MAP_FIELD1);
+				CMP_stuff_symbol(request, field->fld_symbol);
+				STUFF_WORD(reference->ref_parameter);
+				if (option)
+					STUFF_WORD(option->ref_parameter);
+			}
+
+	if (reference = request->req_eof) {
+		STUFF(PYXIS_MAP_TERMINATOR);
+		STUFF_WORD(reference->ref_parameter);
+	}
+
+	if (reference = request->req_term_field) {
+		STUFF(PYXIS_MAP_TERMINATING_FIELD);
+		STUFF_WORD(reference->ref_parameter);
+	}
+
+	if (reference = request->req_index) {
+		STUFF(PYXIS_MAP_ITEM_INDEX);
+		STUFF_WORD(reference->ref_parameter);
+	}
+
+	STUFF(PYXIS_MAP_END);
+	request->req_length = request->req_blr - request->req_base;
+	request->req_blr = request->req_base;
+}
+
+
+//____________________________________________________________
+//  
+//		Compile a mass looping update statement.
+//  
+
+static void cmp_loop( register REQ request)
+{
+	NOD node, list, *ptr, *end, counter;
+	POR primary;
+	CTX for_context, update_context;
+	register RSE rse;
+	REF reference;
+
+	node = request->req_node;
+	rse = request->req_rse;
+
+	primary = request->req_primary;
+	make_send(primary, request);
+	STUFF(blr_begin);
+	counter = MAKE_NODE(nod_value, 1);
+	for (reference = primary->por_references; reference;
+		 reference =
+		 reference->ref_next) if (reference->ref_field ==
+								  count_field) counter->nod_arg[0] =
+				(NOD) reference;
+
+	STUFF(blr_assignment);
+	CME_expr(lit0, request);
+	CME_expr(counter, request);
+
+	for_context = rse->rse_context[0];
+	update_context = request->req_update;
+
+	STUFF(blr_for);
+	CME_rse(rse, request);
+	STUFF(blr_begin);
+
+	if (node->nod_type == nod_modify) {
+		STUFF(blr_modify);
+		STUFF(for_context->ctx_internal);
+		STUFF(update_context->ctx_internal);
+		list = node->nod_arg[0];
+		STUFF(blr_begin);
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++)
+			cmp_assignment(*ptr, request);
+		STUFF(blr_end);
+	}
+	else if (node->nod_type == nod_store) {
+		update_context = (CTX) node->nod_arg[0];
+		STUFF(blr_store);
+		CME_relation(update_context, request);
+		list = node->nod_arg1;
+		STUFF(blr_begin);
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++)
+			cmp_assignment(*ptr, request);
+		STUFF(blr_end);
+	}
+	else if (node->nod_type == nod_erase) {
+		STUFF(blr_erase);
+		STUFF(for_context->ctx_internal);
+	}
+
+	STUFF(blr_assignment);
+	STUFF(blr_add);
+	CME_expr(lit1, request);
+	CME_expr(counter, request);
+	CME_expr(counter, request);
+
+	STUFF(blr_end);
+	STUFF(blr_end);
+}
+
+
+//____________________________________________________________
+//  
+//		Compile a MENU request.  This has very little to do
+//		with a BLR request.
+//  
+
+static void cmp_menu( REQ request)
+{
+	ACT action, temp;
+	TEXT *p;
+	USHORT l, count;
+
+//  Do not generate anything for for_menu and form_menu_item requests.  
+
+	if ((request->req_flags & REQ_menu_for) ||
+		(request->req_flags & REQ_menu_for_item)) return;
+
+	request->req_blr = request->req_base = (UCHAR *) ALLOC(500);
+	request->req_length = 500;
+	STUFF(PYXIS_MENU_VERSION1);
+	count = 0;
+
+//  Reverse actions so menu will come out in right order 
+
+	for (temp = NULL; action = request->req_actions;) {
+		request->req_actions = action->act_next;
+		action->act_next = temp;
+		temp = action;
+	}
+
+	request->req_actions = temp;
+
+	if (request->req_flags & REQ_menu_tag)
+		STUFF(PYXIS_MENU_HORIZONTAL);
+	else if (request->req_flags & REQ_menu_pop_up)
+		STUFF(PYXIS_MENU_VERTICAL);
+
+	if (request->req_flags & REQ_transparent)
+		STUFF(PYXIS_MENU_TRANSPARENT);
+
+	for (action = request->req_actions; action; action = action->act_next)
+		switch (action->act_type) {
+		case ACT_menu_entree:
+			STUFF(PYXIS_MENU_ENTREE);
+			action->act_count = ++count;
+			STUFF(action->act_count);
+			p = (TEXT *) action->act_object;
+			l = strlen(p);
+			STUFF(l);
+			while (*p)
+				STUFF(*p++);
+			break;
+
+		case ACT_menu:
+			STUFF(PYXIS_MENU_LABEL);
+			p = (TEXT *) action->act_object;
+			l = strlen(p);
+			STUFF(l);
+			while (*p)
+				STUFF(*p++);
+			break;
+		}
+
+	STUFF(PYXIS_MENU_END);
+	request->req_length = request->req_blr - request->req_base;
+	request->req_blr = request->req_base;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a receive and modify tree for a modify action.
+//  
+
+static void cmp_modify( ACT action, register REQ request)
+{
+	UPD update;
+	NOD list, field_node, *ptr, *end;
+	REF reference;
+	POR port;
+
+	update = (UPD) action->act_object;
+	port = update->upd_port;
+	make_receive(port, request);
+
+	if (action->act_error)
+		STUFF(blr_handler);
+
+	STUFF(blr_modify);
+	STUFF(update->upd_source->ctx_internal);
+	STUFF(update->upd_update->ctx_internal);
+
+//  count the references and build an assignment block 
+
+	list = update->upd_assignments;
+	STUFF(blr_begin);
+
+	for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end; ptr++) {
+		field_node = (*ptr)->nod_arg[1];
+		reference = (REF) field_node->nod_arg[0];
+		if ((field_node->nod_type != nod_field) || !reference->ref_master)
+			cmp_assignment(*ptr, request);
+	}
+
+	STUFF(blr_end);
+}
+
+
+//____________________________________________________________
+//  
+//		Build a request tree for a request.
+//  
+
+static void cmp_port( register POR port, register REQ request)
+{
+	REF reference;
+
+//  build message definition for each port 
+
+	STUFF(blr_message);
+	STUFF(port->por_msg_number);
+	STUFF_WORD(port->por_count);
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		CMP_check(request, 0);
+		cmp_field(request, reference->ref_field, reference);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Compile a EXECUTE PROCEDURE request.  
+//  
+
+static void cmp_procedure( REQ request)
+{
+	ACT action;
+	POR port;
+	PRC procedure;
+	REF reference;
+	LLS outputs, *list;
+	NOD *ptr, *end, node;
+
+	action = request->req_actions;
+	procedure = (PRC) action->act_object;
+
+//  Remember the order of the references.  The exec_proc blr verb
+//  requires parameters to be in parameter order which may be changed
+//  when there references are expanded. 
+
+	outputs = NULL;
+	if (reference = request->req_references)
+		for (list = &outputs; reference; reference = reference->ref_next) {
+			PUSH((NOD) reference, list);
+			list = &(*list)->lls_next;
+		}
+
+//  Expand any incomplete references or values. 
+
+	expand_references(request->req_values);
+	expand_references(request->req_references);
+
+	request->req_blr = request->req_base = (UCHAR *) ALLOC(500);
+	request->req_length = 500;
+	if (request->req_flags & REQ_blr_version4)
+		STUFF(blr_version4);
+	else
+		STUFF(blr_version5);
+	STUFF(blr_begin);
+
+	if (request->req_values) {
+		request->req_vport = make_port(request, request->req_values);
+		request->req_values = request->req_vport->por_references;
+	}
+	else
+		request->req_count++;
+	request->req_primary = make_port(request, request->req_references);
+	request->req_references = request->req_primary->por_references;
+
+//  build message definition for each port 
+
+	for (port = request->req_ports; port; port = port->por_next)
+		cmp_port(port, request);
+
+	if (request->req_values) {
+		STUFF(blr_begin);
+		make_send(request->req_vport, request);
+	}
+
+	if (sw_ids) {
+		STUFF(blr_exec_pid);
+		STUFF_WORD(procedure->prc_id);
+	}
+	else {
+		STUFF(blr_exec_proc);
+		CMP_stuff_symbol(request, procedure->prc_symbol);
+	}
+
+	if (procedure->prc_in_count) {
+		STUFF_WORD(procedure->prc_in_count);
+		ptr = request->req_node->nod_arg;
+		for (end = ptr + procedure->prc_in_count; ptr < end; ptr++)
+			CME_expr(*ptr, request);
+	}
+	else
+		STUFF_WORD(0);
+
+	if (request->req_references) {
+		node = MAKE_NODE(nod_value, 1);
+		STUFF_WORD(procedure->prc_out_count);
+		for (; outputs; outputs = outputs->lls_next) {
+			node->nod_arg[0] = outputs->lls_object;
+			CME_expr(node, request);
+		}
+	}
+	else
+		STUFF_WORD(0);
+
+	if (request->req_values)
+		STUFF(blr_end);
+	STUFF(blr_end);
+	STUFF(blr_eoc);
+	request->req_length = request->req_blr - request->req_base;
+	request->req_blr = request->req_base;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate parameter buffer for READY with
+//       buffercount.
+//  
+
+static void cmp_ready( REQ request)
+{
+	DBB db;
+	ACT action;
+	TEXT *p;
+	SSHORT l;
+
+	db = request->req_database;
+
+	action = request->req_actions;
+	request->req_blr = request->req_base = ALLOC(250);
+	request->req_length = 250;
+	request->req_flags |= REQ_exp_hand;
+
+	STUFF(gds_dpb_version1);
+
+	if (db->dbb_allocation) {
+		STUFF(gds_dpb_allocation);
+		STUFF(4);
+		STUFF_INT(db->dbb_allocation);
+	}
+
+	if (db->dbb_pagesize) {
+		STUFF(gds_dpb_page_size);
+		STUFF(4);
+		STUFF_INT(db->dbb_pagesize);
+	}
+
+	if (db->dbb_buffercount) {
+		STUFF(gds_dpb_num_buffers);
+		STUFF(4);
+		STUFF_INT(db->dbb_buffercount);
+	}
+
+	if (db->dbb_buffersize) {
+		STUFF(gds_dpb_buffer_length);
+		STUFF(4);
+		STUFF_INT(db->dbb_buffersize);
+	}
+
+	if (db->dbb_users) {
+		STUFF(gds_dpb_number_of_users);
+		STUFF(4);
+		STUFF_INT(db->dbb_users);
+	}
+
+	if (db->dbb_c_user && !db->dbb_r_user) {
+		STUFF(gds_dpb_user_name);
+		l = strlen(db->dbb_c_user);
+		STUFF(l);
+		p = db->dbb_c_user;
+		while (l--)
+			STUFF(*p++);
+	}
+
+	if (db->dbb_c_password && !db->dbb_r_password) {
+		STUFF(gds_dpb_password);
+		l = strlen(db->dbb_c_password);
+		STUFF(l);
+		p = db->dbb_c_password;
+		while (l--)
+			STUFF(*p++);
+	}
+
+	if (db->dbb_c_sql_role && !db->dbb_r_sql_role) {
+		STUFF(isc_dpb_sql_role_name);
+		l = strlen(db->dbb_c_sql_role);
+		STUFF(l);
+		p = db->dbb_c_sql_role;
+		while (l--)
+			STUFF(*p++);
+	}
+
+	if (db->dbb_c_lc_messages && !db->dbb_r_lc_messages) {
+		/* Language must be an ASCII string */
+		STUFF(gds_dpb_lc_messages);
+		l = strlen(db->dbb_c_lc_messages);
+		STUFF(l);
+		p = db->dbb_c_lc_messages;
+		while (l--)
+			STUFF(*p++);
+	}
+
+	if (db->dbb_c_lc_ctype && !db->dbb_r_lc_ctype) {
+		/* Character Format must be an ASCII string */
+		STUFF(gds_dpb_lc_ctype);
+		l = strlen(db->dbb_c_lc_ctype);
+		STUFF(l);
+		p = db->dbb_c_lc_ctype;
+		while (l--)
+			STUFF(*p++);
+	}
+
+	*request->req_blr = 0;
+	request->req_length = request->req_blr - request->req_base;
+	if (request->req_length == 1)
+		request->req_length = 0;
+	request->req_blr = request->req_base;
+}
+
+
+//____________________________________________________________
+//  
+//		Build in a fudge to bias the language specific subscript to the
+//		declared array subscript [i.e. C subscripts are zero based].
+//  
+
+static void cmp_sdl_fudge( REQ request, SLONG lower_bound)
+{
+
+	switch (sw_language) {
+	case lang_c:
+	case lang_cxx:
+	case lang_basic:
+		if (!lower_bound)
+			break;
+		STUFF(gds_sdl_add);
+		cmp_sdl_number(request, lower_bound);
+		break;
+
+	case lang_fortran:
+		if (lower_bound == 1)
+			break;
+		STUFF(gds_sdl_add);
+		cmp_sdl_number(request, lower_bound - 1);
+		break;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Build an SDL loop for GET_SLICE/PUT_SLICE unless the upper and
+//		lower bounds are constant.  Return TRUE if a loop has been built,
+//		otherwise FALSE.
+//  
+
+static BOOLEAN cmp_sdl_loop( REQ request, USHORT index, SLC slice, ARY array)
+{
+
+	slc::slc_repeat * ranges = slice->slc_rpt + index;
+
+	if (ranges->slc_upper == ranges->slc_lower) {
+		return FALSE;
+	}
+
+	ary::ary_repeat * bounds = array->ary_rpt + index;
+
+	STUFF(gds_sdl_do2);
+	STUFF(slice->slc_parameters + index);
+	cmp_sdl_fudge(request, bounds->ary_lower);
+	cmp_sdl_value(request, ranges->slc_lower);
+	cmp_sdl_fudge(request, bounds->ary_lower);
+	cmp_sdl_value(request, ranges->slc_upper);
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Write the number in the 'smallest'
+//       form possible to the SDL string.
+//  
+
+static void cmp_sdl_number( REQ request, SLONG number)
+{
+
+	if ((number > -16) && (number < 15)) {
+		STUFF(gds_sdl_tiny_integer);
+		STUFF(number);
+	}
+	else if ((number > -32768) && (number < 32767)) {
+		STUFF(gds_sdl_short_integer);
+		STUFF_WORD(number);
+	}
+	else {
+		STUFF(gds_sdl_long_integer);
+		STUFF_LONG(number);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Build an SDL loop for GET_SLICE/PUT_SLICE unless the upper and
+//		lower bounds are constant.
+//  
+
+static void cmp_sdl_subscript(
+							  REQ request, USHORT index, SLC slice, ARY array)
+{
+
+	slc::slc_repeat * ranges = slice->slc_rpt + index;
+
+	if (ranges->slc_upper == ranges->slc_lower) {
+		cmp_sdl_value(request, ranges->slc_upper);
+		return;
+	}
+
+	STUFF(gds_sdl_variable);
+	STUFF(slice->slc_parameters + index);
+}
+
+
+//____________________________________________________________
+//  
+//		Stuff a slice description language value.
+//  
+
+static void cmp_sdl_value( REQ request, NOD node)
+{
+	REF reference;
+
+	reference = (REF) node->nod_arg[0];
+
+	switch (node->nod_type) {
+	case nod_literal:
+		cmp_sdl_number(request, atoi(reference->ref_value));
+		return;
+
+	case nod_value:
+		STUFF(gds_sdl_variable);
+		STUFF(reference->ref_id);
+		return;
+
+	default:
+		CPR_error("cmp_sdl_value: node not understood");
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		generate blr for set generator
+//  
+
+static void cmp_set_generator( REQ request)
+{
+	SGEN setgen;
+	TEXT *string;
+	SLONG value;
+	SINT64 int64value;
+	ACT action;
+
+	action = request->req_actions;
+
+	STUFF(blr_set_generator);
+	setgen = (SGEN) action->act_object;
+	string = setgen->sgen_name;
+	value = setgen->sgen_value;
+	int64value = setgen->sgen_int64value;
+	STUFF(strlen(string));
+	while (*string)
+		STUFF(*string++);
+	STUFF(blr_literal);
+	if (setgen->sgen_dialect == SQL_DIALECT_V5) {
+		STUFF(blr_long);
+		STUFF(0);
+		STUFF_WORD(value);
+		STUFF_WORD(value >> 16);
+	}
+	else {
+		STUFF(blr_int64);
+		STUFF(0);
+		STUFF_WORD(int64value);
+		STUFF_WORD(int64value >> 16);
+		STUFF_WORD(int64value >> 32);
+		STUFF_WORD(int64value >> 48);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static void cmp_slice( REQ request)
+{
+	SLC slice;
+	FLD field, element;
+	ARY array;
+	REF reference;
+	USHORT n;
+	BOOLEAN loop_flags[16], *p;
+
+	slice = request->req_slice;
+	field = slice->slc_field;
+	element = field->fld_array;
+	array = field->fld_array_info;
+
+//  Process variable references 
+
+	for (reference = request->req_values; reference;
+		 reference = reference->ref_next) reference->ref_id =
+			slice->slc_parameters++;
+
+	request->req_blr = request->req_base = (UCHAR *) ALLOC(500);
+	request->req_length = 500;
+
+	STUFF(gds_sdl_version1);
+	STUFF(gds_sdl_struct);
+	STUFF(1);
+	cmp_field(request, element, 0);
+
+	STUFF(gds_sdl_relation);
+	CMP_stuff_symbol(request, field->fld_relation->rel_symbol);
+
+	STUFF(gds_sdl_field);
+	CMP_stuff_symbol(request, field->fld_symbol);
+
+	for (n = 0, p = loop_flags; n < slice->slc_dimensions; n++, p++)
+		*p = cmp_sdl_loop(request, n, slice, array);
+
+	STUFF(gds_sdl_element);
+	STUFF(1);
+	STUFF(gds_sdl_scalar);
+	STUFF(0);
+	STUFF(slice->slc_dimensions);
+
+	for (n = 0, p = loop_flags; n < slice->slc_dimensions; n++, p++) {
+		if (!*p)
+			cmp_sdl_fudge(request, array->ary_rpt[n].ary_lower);
+		cmp_sdl_subscript(request, n, slice, array);
+	}
+
+	STUFF(gds_sdl_eoc);
+	request->req_length = request->req_blr - request->req_base;
+	request->req_blr = request->req_base;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate blr for a store request.
+//  
+
+static void cmp_store( register REQ request)
+{
+	register POR port;
+	register NOD list, *ptr, *end;
+	register ACT action;
+	register UPD update;
+	SSHORT count;
+
+//  Make the store statement under the receive 
+
+	if (request->req_type == REQ_store2)
+		STUFF(blr_store2);
+	else
+		STUFF(blr_store);
+
+	CME_relation(request->req_contexts, request);
+
+//  Make an assignment list 
+
+	list = request->req_node;
+	STUFF(blr_begin);
+
+	for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end; ptr++)
+		cmp_assignment(*ptr, request);
+
+	STUFF(blr_end);
+
+	if (request->req_type == REQ_store2) {
+		/* whip through actions to find return list */
+
+		for (action = request->req_actions;; action = action->act_next)
+			if (action->act_type == ACT_store2)
+				break;
+		STUFF(blr_begin);
+		update = (UPD) action->act_object;
+		port = update->upd_port;
+		make_send(port, request);
+		list = update->upd_assignments;
+		if ((count = list->nod_count) > 1)
+			STUFF(blr_begin);
+		for (ptr = list->nod_arg, end = ptr + count; ptr < end; ptr++)
+			cmp_assignment(*ptr, request);
+		if (count > 1)
+			STUFF(blr_end);
+		STUFF(blr_end);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		During the parsing of an SQL statement
+//		we may have run into an indicator variable.
+//		If so, all we've got now is its name, and
+//		we really ought to build a full reference
+//		block for it before we forget.
+//  
+
+static void expand_references( register REF reference)
+{
+	REF flag;
+
+	for (; reference; reference = reference->ref_next) {
+		if (reference->ref_null_value && !reference->ref_null) {
+			flag = (REF) ALLOC(REF_LEN);
+			flag->ref_next = reference->ref_next;
+			reference->ref_next = reference->ref_null = flag;
+			flag->ref_master = reference;
+			flag->ref_value = reference->ref_null_value;
+			flag->ref_field = PAR_null_field();
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Make up a port block and process a linked list
+//		of field references.
+//  
+
+static POR make_port( register REQ request, register REF reference)
+{
+	register POR port;
+	FLD field;
+	REF misc, temp, alignments[3];
+	SSHORT i;
+
+	port = (POR) ALLOC(POR_LEN);
+	port->por_ident = CMP_next_ident();
+	port->por_msg_number = request->req_count++;
+	port->por_next = request->req_ports;
+	request->req_ports = port;
+
+//  Hmmm -- no references.  Not going to fly.  
+//  Make up a dummy reference. 
+
+	if (!reference) {
+		reference = (REF) ALLOC(REF_LEN);
+		reference->ref_field = eof_field;
+	}
+
+	misc = alignments[0] = alignments[1] = alignments[2] = NULL;
+
+	while (temp = reference) {
+		reference = reference->ref_next;
+		if (!(field = temp->ref_field))
+			CPR_bugcheck("missing prototype field for value");
+		if (temp->ref_value && (temp->ref_flags & REF_array_elem))
+			field = field->fld_array;
+		if ((field->fld_length & 7) == 0) {
+			temp->ref_next = alignments[2];
+			alignments[2] = temp;
+		}
+		else if ((field->fld_length & 3) == 0) {
+			temp->ref_next = alignments[1];
+			alignments[1] = temp;
+		}
+		else if ((field->fld_length & 1) == 0) {
+			temp->ref_next = alignments[0];
+			alignments[0] = temp;
+		}
+		else {
+			temp->ref_next = misc;
+			misc = temp;
+		}
+	}
+
+	for (i = 0; i <= 2; i++)
+		while (reference = alignments[i]) {
+			alignments[i] = reference->ref_next;
+			reference->ref_next = misc;
+			misc = reference;
+		}
+
+	port->por_references = misc;
+
+	for (reference = misc; reference; reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (reference->ref_value && (reference->ref_flags & REF_array_elem))
+			field = field->fld_array;
+		reference->ref_ident = CMP_next_ident();
+		reference->ref_parameter = port->por_count++;
+		reference->ref_port = port;
+		reference->ref_offset = port->por_length;
+		port->por_length += field->fld_length;
+	}
+
+	return port;
+}
+
+
+//____________________________________________________________
+//  
+//		Make a receive node for a given port.
+//  
+
+static void make_receive( register POR port, register REQ request)
+{
+
+	STUFF(blr_receive);
+	STUFF(port->por_msg_number);
+}
+
+
+//____________________________________________________________
+//  
+//		Make a receive node for a given port.
+//  
+
+static void make_send( register POR port, register REQ request)
+{
+
+	STUFF(blr_send);
+	STUFF(port->por_msg_number);
+}
+
+
+//____________________________________________________________
+//  
+//		where a duplicate reference list is used
+//		to build the port, fix request_references
+//  
+
+static void update_references( register REF references)
+{
+	register REF ref, source;
+
+	for (ref = references; ref; ref = ref->ref_next) {
+		source = ref->ref_source;
+		source->ref_port = ref->ref_port;
+		source->ref_parameter = ref->ref_parameter;
+		source->ref_ident = ref->ref_ident;
+	}
+}
+
+
+} // extern "C"
diff --git a/src/gpre/cmp_proto.h b/src/gpre/cmp_proto.h
new file mode 100644
index 0000000000..a96e6ee916
--- /dev/null
+++ b/src/gpre/cmp_proto.h
@@ -0,0 +1,46 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		cmp_proto.h
+ *	DESCRIPTION:	Prototype header file for cmp.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_CMP_PROTO_H_
+#define _GPRE_CMP_PROTO_H_
+
+#include "../gpre/form.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void CMP_check(register REQ, SSHORT);
+extern void CMP_compile_request(register REQ);
+extern int CMP_display_code(FINT, REF);
+extern void CMP_external_field(REQ, FLD);
+extern void CMP_init(void);
+extern USHORT CMP_next_ident(void);
+extern void CMP_stuff_symbol(REQ, SYM);
+extern void CMP_t_start(register TRA);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _GPRE_CMP_PROTO_H_ */
diff --git a/src/gpre/cob.cpp b/src/gpre/cob.cpp
new file mode 100644
index 0000000000..5c70b651e1
--- /dev/null
+++ b/src/gpre/cob.cpp
@@ -0,0 +1,5389 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	General preprocessor
+//		MODULE:		cob.cpp
+//		DESCRIPTION:	COBOL text generator
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  Solaris x86 changes - Konstantin Kuznetsov, Neil McCalden
+//  
+//
+//____________________________________________________________
+//
+//	$Id: cob.cpp,v 1.1.1.1 2001-05-23 13:25:30 tamlin Exp $
+//
+
+ /* $Id: cob.cpp,v 1.1.1.1 2001-05-23 13:25:30 tamlin Exp $ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#ifdef UNIXWARE
+#include <sys/fcntl.h>
+#endif
+#include "../include/jrd/gds.h"
+#include "../gpre/gpre.h"
+#include "../gpre/form.h"
+#include "../gpre/pat.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/lang_proto.h"
+#include "../gpre/pat_proto.h"
+
+//  vms requires all caps in function call names; hp requires lc 
+
+#ifdef VMS
+#define GIVING_SUPPORTED
+#define OMITTED 		"OMITTED"
+#define RAW_BLR_TEMPLATE	"03  %s%d%s%d PIC S9(9) USAGE COMP VALUE IS %d."
+#define RAW_TPB_TEMPLATE	"03  %s%d%s%d PIC S9(9) USAGE COMP VALUE IS %d."
+#define BY_VALUE		"BY VALUE "
+#define END_VALUE		""
+#define BY_REF			"BY REFERENCE "
+#define BY_DESC			"BY DESCRIPTOR "
+#define ISC_BLOB		"ISC_%s_BLOB"
+#define CLOSE			"CLOSE"
+#define CANCEL			"CANCEL"
+#define COMP_VALUE		"COMP"
+#define ISC_CANCEL_BLOB		"ISC_CANCEL_BLOB"
+#define ISC_COMPILE_REQUEST 	"ISC_COMPILE_REQUEST"
+#define ISC_CREATE_DATABASE 	"ISC_CREATE_DATABASE"
+#define ISC_DDL 		"ISC_DDL"
+#define ISC_COMMIT_TRANSACTION	"ISC_COMMIT_TRANSACTION"
+#define ISC_ROLLBACK_TRANSACTION "ISC_ROLLBACK_TRANSACTION"
+#define ISC_DROP_DATABASE 	"ISC_DROP_DATABASE"
+#define ISC_CLOSE 		"ISC_EMBED_DSQL_CLOSE"
+#define ISC_DECLARE 		"ISC_EMBED_DSQL_DECLARE"
+#define ISC_DESCRIBE 		"ISC_EMBED_DSQL_DESCRIBE"
+#define ISC_DESCRIBE_BIND	"ISC_EMBED_DSQL_DESCRIBE_BIND"
+#define ISC_EXECUTE 		"ISC_EMBED_DSQL_EXECUTE"
+#define ISC_EXECUTE2 		"ISC_EMBED_DSQL_EXECUTE2"
+#define ISC_EXECUTE_IMMEDIATE 	"ISC_EMBED_DSQL_EXECUTE_IMMED_D"
+#define ISC_EXECUTE_IMMEDIATE2 	"ISC_EMBED_DSQL_EXECUTE_IMMED2_D"
+#define ISC_FETCH 		"ISC_EMBED_DSQL_FETCH"
+#define ISC_INSERT 		"ISC_EMBED_DSQL_INSERT"
+#define ISC_OPEN		"ISC_EMBED_DSQL_OPEN"
+#define ISC_OPEN2		"ISC_EMBED_DSQL_OPEN2"
+#define ISC_PREPARE	 	"ISC_EMBED_DSQL_PREPARE_D"
+#define ISC_DSQL_ALLOCATE	"ISC_DSQL_ALLOC_STATEMENT2"
+#define ISC_DSQL_EXECUTE	"ISC_DSQL_EXECUTE_M"
+#define ISC_DSQL_FREE		"ISC_DSQL_FREE_STATEMENT"
+#define ISC_DSQL_SET_CURSOR	"ISC_DSQL_SET_CURSOR_NAME"
+#define ISC_SQLCODE_CALL	"ISC_SQLCODE"
+#define ISC_DETACH_DATABASE 	"ISC_DETACH_DATABASE"
+#define PYXIS_DRIVE_FORM 	"PYXIS__DRIVE_FORM"
+#define PYXIS_POP_WINDOW 	"PYXIS__POP_WINDOW"
+#define PYXIS_LOAD_FORM 	"PYXIS__LOAD_FORM"
+#define PYXIS_COMPILE_MAP 	"PYXIS__COMPILE_MAP"
+#define PYXIS_RESET_FORM 	"PYXIS__RESET_FORM"
+#define ISC_GET_SLICE 		"ISC_GET_SLICE"
+#define ISC_PUT_SLICE 		"ISC_PUT_SLICE"
+#define ISC_GET_SEGMENT 	"ISC_GET_SEGMENT"
+#define PYXIS_FETCH 		"PYXIS__FETCH"
+#define PYXIS_INSERT 		"PYXIS__INSERT"
+#define PYXIS_COMPILE_SUB_MAP 	"PYXIS__COMPILE_SUB_MAP"
+#define PYXIS_MENU 		"PYXIS__MENU"
+#define PYXIS_DRIVE_MENU 	"PYXIS__DRIVE_MENU"
+#define PYXIS_INITIALIZE_MENU 	"PYXIS__INITIALIZE_MENU"
+#define PYXIS_GET_ENTREE 	"PYXIS__GET_ENTREE"
+#define PYXIS_PUT_ENTREE 	"PYXIS__PUT_ENTREE"
+#define PYXIS_GET_ENTREE 	"PYXIS__GET_ENTREE"
+#define ISC_PUT_SEGMENT 	"ISC_PUT_SEGMENT"
+#define ISC_RECEIVE 		"ISC_RECEIVE"
+#define ISC_RELEASE_REQUEST	"ISC_RELEASE_REQUEST"
+#define ISC_UNWIND_REQUEST 	"ISC_UNWIND_REQUEST"
+#define ISC_SEND 		"ISC_SEND"
+#define ISC_GET_SLICE 		"ISC_GET_SLICE"
+#define ISC_PUT_SLICE 		"ISC_PUT_SLICE"
+#define ISC_START_TRANSACTION 	"ISC_START_TRANSACTION"
+#define ISC_START_AND_SEND 	"ISC_START_AND_SEND"
+#define ISC_START_REQUEST 	"ISC_START_REQUEST"
+#define ISC_TRANSACT_REQUEST 	"ISC_TRANSACT_REQUEST"
+#define ISC_COMMIT_RETAINING 	"ISC_COMMIT_RETAINING"
+#define PYXIS_CREATE_WINDOW 	"PYXIS__CREATE_WINDOW"
+#define PYXIS_DELETE_WINDOW 	"PYXIS__DELETE_WINDOW"
+#define PYXIS_SUSPEND_WINDOW 	"PYXIS__SUSPEND_WINDOW"
+#define ISC_ATTACH_DATABASE_D 	"ISC_ATTACH_DATABASE_D"
+#define ISC_ATTACH_DATABASE 	"ISC_ATTACH_DATABASE"
+#define ISC_MODIFY_DPB 		"ISC_MODIFY_DPB"
+#define ISC_FREE		"ISC_FREE"
+#define ISC_PREPARE_TRANSACTION	"ISC_PREPARE_TRANSACTION"
+#define ISC_EVENT_BLOCK		"ISC_EVENT_BLOCK_A"
+#define ISC_EVENT_COUNTS	"ISC_EVENT_COUNTS"
+#define ISC_EVENT_WAIT		"ISC_EVENT_WAIT"
+#define ISC_BADDRESS		"ISC_BADDRESS"
+
+#else
+
+#if (defined AIX || defined AIX_PPC)
+#define MICROFOCUS
+#endif
+#if (defined sparc || defined SOLX86 )
+#define MICROFOCUS
+#endif
+#ifdef DGUX
+#define MICROFOCUS
+#endif
+#if (defined HP700 || defined HP10)
+#define MICROFOCUS
+#endif
+#ifdef UNIXWARE
+#define MICROFOCUS
+#endif
+
+#ifdef linux
+#define MICROFOCUS
+#endif
+
+#if defined FREEBSD || defined NETBSD
+#define MICROFOCUS
+#endif
+
+#ifdef MICROFOCUS
+#define OMITTED 		"BY VALUE 0"
+#define BY_VALUE		"BY VALUE "
+#define END_VALUE		""
+#define BY_REF			"BY REFERENCE "
+#define BY_DESC 		"BY REFERENCE "
+#ifdef DG_X86
+#define RAW_BLR_TEMPLATE	"03  %s%d%s%d PIC XXXX USAGE COMP-5 VALUE IS %u."
+#define RAW_TPB_TEMPLATE	"03  %s%d%s%d PIC XXXX USAGE COMP-5 VALUE IS %u."
+#else
+#define RAW_BLR_TEMPLATE	"03  %s%d%s%d PIC XXXX USAGE COMP-X VALUE IS %u."
+#define RAW_TPB_TEMPLATE	"03  %s%d%s%d PIC XXXX USAGE COMP-X VALUE IS %u."
+#endif /* DG_X86 */
+#define COMP_VALUE		"COMP-5"
+#endif
+
+#ifndef COMP_VALUE
+#define COMP_VALUE		"COMP"
+#endif
+
+#ifndef STRING_LENGTH
+#define STRING_LENGTH		"\"isc_embed_dsql_length\""
+#endif
+
+#define ISC_BLOB		"isc_%s_blob"
+#define CLOSE			"close"
+#define CANCEL			"cancel"
+#define ISC_CANCEL_BLOB		"isc_cancel_blob"
+#define ISC_COMPILE_REQUEST 	"isc_compile_request"
+#define ISC_CREATE_DATABASE 	"isc_create_database"
+#define ISC_DDL 		"isc_ddl"
+#define ISC_COMMIT_TRANSACTION	"isc_commit_transaction"
+#define ISC_ROLLBACK_TRANSACTION "isc_rollback_transaction"
+#define ISC_DROP_DATABASE 	"isc_drop_database"
+#define ISC_CLOSE 		"isc_embed_dsql_close"
+#define ISC_DECLARE 		"isc_embed_dsql_declare"
+#define ISC_DESCRIBE 		"isc_embed_dsql_describe"
+#define ISC_DESCRIBE_BIND	"isc_embed_dsql_describe_bind"
+#define ISC_EXECUTE 		"isc_embed_dsql_execute"
+#define ISC_EXECUTE2 		"isc_embed_dsql_execute2"
+#ifdef DGUX
+#define ISC_EXECUTE_IMMEDIATE 	"isc_embed_dsql_exec_immed"
+#define ISC_EXECUTE_IMMEDIATE2 	"isc_embed_dsql_exec_immed2"
+#else
+#define ISC_EXECUTE_IMMEDIATE 	"isc_embed_dsql_execute_immed"
+#define ISC_EXECUTE_IMMEDIATE2 	"isc_embed_dsql_execute_immed2"
+#endif
+#define ISC_INSERT 		"isc_embed_dsql_insert"
+#define ISC_OPEN		"isc_embed_dsql_open"
+#define ISC_OPEN2		"isc_embed_dsql_open2"
+#define ISC_PREPARE	 	"isc_embed_dsql_prepare"
+#define ISC_DSQL_ALLOCATE	"isc_dsql_alloc_statement2"
+#define ISC_DSQL_EXECUTE	"isc_dsql_execute_m"
+#define ISC_DSQL_FREE		"isc_dsql_free_statement"
+#define ISC_DSQL_SET_CURSOR	"isc_dsql_set_cursor_name"
+#define ISC_COMMIT_ROLLBACK_TRANSACTION 	"isc_%s_transaction"
+#define ISC_DETACH_DATABASE 	"isc_detach_database"
+#define PYXIS_DRIVE_FORM 	"isc_drive_form"
+#define PYXIS_POP_WINDOW 	"isc_pop_window"
+#define PYXIS_LOAD_FORM 	"isc_load_form"
+#define PYXIS_COMPILE_MAP 	"isc_compile_map"
+#define PYXIS_RESET_FORM 	"isc_reset_form"
+#define ISC_GET_SLICE 		"isc_get_slice"
+#define ISC_PUT_SLICE 		"isc_put_slice"
+#define ISC_GET_SEGMENT 	"isc_get_segment"
+#define PYXIS_FETCH 		"isc_form_fetch"
+#define PYXIS_INSERT 		"isc_form_insert"
+#define PYXIS_COMPILE_SUB_MAP 	"isc_compile_sub_map"
+#define PYXIS_MENU 		"isc_menu"
+#define PYXIS_DRIVE_MENU 	"isc_form_drive_menu"
+#define PYXIS_INITIALIZE_MENU 	"isc_initialize_menu"
+#define PYXIS_GET_ENTREE 	"isc_get_entree"
+#define PYXIS_PUT_ENTREE 	"isc_put_entree"
+#define PYXIS_GET_ENTREE 	"isc_get_entree"
+#define ISC_PUT_SEGMENT 	"isc_put_segment"
+#define ISC_RECEIVE 		"isc_receive"
+#define ISC_RELEASE_REQUEST	"isc_release_request"
+#define ISC_UNWIND_REQUEST 	"isc_unwind_request"
+#define ISC_SEND 		"isc_send"
+#define ISC_GET_SLICE 		"isc_get_slice"
+#define ISC_PUT_SLICE 		"isc_put_slice"
+#define ISC_START_TRANSACTION 	"isc_start_transaction"
+#define ISC_START_AND_SEND 	"isc_start_and_send"
+#define ISC_START_REQUEST 	"isc_start_request"
+#define ISC_TRANSACT_REQUEST 	"isc_transact_request"
+#define ISC_COMMIT_RETAINING 	"isc_commit_retaining"
+#define PYXIS_CREATE_WINDOW 	"isc_create_window"
+#define PYXIS_DELETE_WINDOW 	"isc_delete_window"
+#define PYXIS_SUSPEND_WINDOW 	"isc_suspend_window"
+#define ISC_ATTACH_DATABASE_D 	"isc_attach_database"
+#define ISC_ATTACH_DATABASE 	"isc_attach_database"
+#define ISC_MODIFY_DPB		"isc_modify_dpb"
+#define ISC_FREE		"isc_free"
+#ifdef GIVING_SUPPORTED
+#define ISC_SQLCODE_CALL	"isc_sqlcode"
+#define ISC_FETCH 		"isc_embed_dsql_fetch"
+#define ISC_EVENT_BLOCK		"isc_event_block_a"
+#else
+#define ISC_SQLCODE_CALL 	"isc_sqlcode_s"
+#define ISC_FETCH 		"isc_embed_dsql_fetch_a"
+#define ISC_EVENT_BLOCK		"isc_event_block_s"
+#endif
+#define ISC_PREPARE_TRANSACTION	"isc_prepare_transaction"
+#define ISC_EVENT_WAIT		"isc_wait_for_event"
+#define ISC_EVENT_COUNTS	"isc_event_counts"
+#ifdef GIVING_SUPPORTED
+#define ISC_BADDRESS		"isc_baddress"
+#else
+#define ISC_BADDRESS		"isc_baddress_s"
+#endif
+#endif
+
+#if (defined AIX || defined AIX_PPC)
+#define USAGE_COMP		" USAGE IS COMP"
+#endif
+
+#if (defined sparc || defined SOLX86 )
+#define USAGE_COMP		" USAGE IS COMP"
+#endif
+
+#ifdef DGUX
+#ifdef DG_X86
+#define USAGE_COMP		" USAGE IS COMP-5"
+#else
+#define USAGE_COMP		" USAGE IS COMP"
+#endif /* DG_X86 */
+#endif
+
+#if (defined HP700 || defined HP10)
+#define USAGE_COMP		" USAGE IS COMP"
+#endif
+
+#ifndef FLOATS_COMPS_DECLARED
+#define FLOATS_COMPS_DECLARED
+#define DCL_FLOAT		"USAGE IS COMP-1"
+#define DCL_DOUBLE		"USAGE IS COMP-2"
+#endif
+
+#ifndef USAGE_COMP
+#define USAGE_COMP		" USAGE IS COMP"
+#endif
+
+extern DBB isc_databases;
+extern REQ requests;
+extern IB_FILE *out_file;
+
+static int align();
+static int asgn_from(ACT, REF);
+static int asgn_sqlda_from(REF, SCHAR);
+static int asgn_to(ACT, REF);
+static int asgn_to_proc(REF);
+static int gen_any(ACT);
+static int gen_at_end(ACT);
+static int gen_based(ACT);
+static int gen_blob_close(ACT);
+static int gen_blob_end(ACT);
+static int gen_blob_for(ACT);
+static int gen_blob_open(ACT);
+static int gen_blr(int *, int, TEXT *);
+static int gen_clear_handles(ACT);
+static int gen_compile(ACT);
+static int gen_create_database(ACT);
+static int gen_cursor_close(ACT, REQ);
+static int gen_cursor_init(ACT);
+static int gen_cursor_open(ACT, REQ);
+static int gen_database(ACT);
+static int gen_ddl(ACT);
+static int gen_dyn_close(ACT);
+static int gen_dyn_declare(ACT);
+static int gen_dyn_describe(ACT, BOOLEAN);
+static int gen_dyn_execute(ACT);
+static int gen_dyn_fetch(ACT);
+static int gen_dyn_immediate(ACT);
+static int gen_dyn_insert(ACT);
+static int gen_dyn_open(ACT);
+static int gen_dyn_prepare(ACT);
+static int gen_emodify(ACT);
+static int gen_estore(ACT);
+static int gen_end_fetch(ACT);
+static int gen_endfor(ACT);
+static int gen_erase(ACT);
+static SSHORT gen_event_block(ACT);
+static int gen_event_init(ACT);
+static int gen_event_wait(ACT);
+static int gen_fetch(ACT);
+static int gen_finish(ACT);
+static int gen_for(ACT);
+static int gen_form_display(ACT);
+static int gen_form_end(ACT);
+static int gen_form_for(ACT);
+static int gen_function(ACT);
+static int gen_get_or_put_slice(ACT, REF, BOOLEAN);
+static int gen_get_segment(ACT);
+static int gen_item_end(ACT);
+static int gen_item_for(ACT);
+static int gen_loop(ACT);
+static int gen_menu(ACT);
+static int gen_menu_display(ACT);
+static int gen_menu_end(ACT);
+static int gen_menu_entree(ACT);
+static int gen_menu_entree_att(ACT);
+static int gen_menu_for(ACT);
+static int gen_menu_item_end(ACT);
+static int gen_menu_item_for(ACT);
+static int gen_menu_request(REQ);
+static TEXT *gen_name(TEXT *, REF, BOOLEAN);
+static int gen_on_error(ACT);
+static int gen_procedure(ACT);
+static int gen_put_segment(ACT);
+static int gen_raw(UCHAR *, enum req_t, int, int);
+static int gen_ready(ACT);
+static int gen_receive(ACT, POR);
+static int gen_release(ACT);
+static int gen_request(REQ);
+static int gen_s_end(ACT);
+static int gen_s_fetch(ACT);
+static int gen_s_start(ACT);
+static int gen_segment(ACT);
+static int gen_select(ACT);
+static int gen_send(ACT, POR);
+static int gen_slice(ACT);
+static int gen_start(ACT, POR);
+static int gen_store(ACT);
+static int gen_t_start(ACT);
+static int gen_tpb(TPB);
+static int gen_trans(ACT);
+static int gen_type(ACT);
+static int gen_update(ACT);
+static int gen_variable(ACT);
+static int gen_whenever(SWE);
+static int gen_window_create(ACT);
+static int gen_window_delete(ACT);
+static int gen_window_suspend(ACT);
+static int make_array_declaration(REF);
+static TEXT *make_name(TEXT *, SYM);
+static TEXT *make_name_formatted(TEXT *, TEXT *, SYM);
+static int make_port(POR);
+static int make_ready(DBB, TEXT *, TEXT *, REQ, USHORT);
+static int printa(TEXT *, BOOLEAN, TEXT *, ...);
+static int printb(TEXT *, ...);
+static TEXT *request_trans(ACT, REQ);
+static int set_sqlcode(ACT);
+static TEXT *status_vector(ACT);
+static int t_start_auto(REQ, TEXT *, ACT, SSHORT);
+
+static TEXT output_buffer[512];
+static int first_flag;
+static TEXT **names;
+
+static TEXT *vnames[] = {
+	"_",
+	"ISC_",
+	"isc_",
+	"isc_blob_null",
+	"ISC_TPB_",
+	"ISC_TRANS",
+	"ISC_STATUS_VECTOR",
+	"ISC_STATUS",
+	"ISC_STATUS_VECTOR2",
+	"ISC_STATUS2",
+	"ISC_WINDOW",
+	"ISC_WIDTH",
+	"ISC_HEIGHT",
+	"RDB$K_DB_TYPE_GDS",
+	"ISC_ARRAY_LENGTH",
+	"     ",					/* column */
+	"*    ",					/* comment */
+	"-    ",					/* continue */
+	"-      \"",				/* continue quote */
+	"-      \'",				/* continue single quote */
+	"",							/* column0 */
+	"        ",					/* column indent */
+	"ISC_SQLCODE",
+	"ISC_EVENTS_VECTOR",
+	"ISC_EVENTS",
+	"ISC_EVENT_NAMES_VECTOR",
+	"ISC_EVENT_NAMES",
+	"ISC_EVENT_NAMES_VECTOR2",
+	"ISC_EVENT_NAMES2",
+	NULL
+};
+
+static TEXT *anames[] = {
+	"-",
+	"ISC-",
+	"isc-",
+	"isc-blob-null",
+	"ISC-TPB-",
+	"ISC-TRANS",
+	"ISC-STATUS-VECTOR",
+	"ISC-STATUS",
+	"ISC-STATUS-VECTOR2",
+	"ISC-STATUS2",
+	"ISC-WINDOW",
+	"ISC-WIDTH",
+	"ISC-HEIGHT",
+	"RDB-K-DB-TYPE-GDS",
+	"ISC-ARRAY-LENGTH",
+	"           ",				/* column */
+	"      *    ",				/* comment */
+	"            ",				/* continue */
+	"      -      \"",			/* continue quote */
+	"      -      \'",			/* continue single quote */
+	"           ",				/* column0 */
+	"                ",			/* column indent */
+	"ISC-SQL-CODE",
+	"ISC-EVENTS-VECTOR",
+	"ISC-EVENTS",
+	"ISC-EVENT-NAMES-VECTOR",
+	"ISC-EVENT-NAMES",
+	"ISC-EVENT-NAMES-VECTOR2",
+	"ISC-EVENT-NAMES2",
+	NULL
+};
+
+#define	UNDER			0
+#define	ISC_			1
+#define	isc_			2
+#define isc_blob_null		3
+#define	ISC_TPB_		4
+#define	ISC_TRANS 		5
+#define	ISC_STATUS_VECTOR	6
+/* replace definition of ISC_STATUS from gds.h */
+#undef  ISC_STATUS
+#define	ISC_STATUS		7
+#define	ISC_STATUS_VECTOR2	8
+#define	ISC_STATUS2		9
+#define	ISC_WINDOW		10
+#define	ISC_WIDTH		11
+#define	ISC_HEIGHT		12
+#define	RDB$K_DB_TYPE_GDS	13
+#define	ISC_ARRAY_LENGTH	14
+#define COLUMN 			15
+#define COMMENT			16
+#define CONTINUE		17
+#define CONTINUE_QUOTE		18
+#define CONTINUE_SINGLE_QUOTE	19
+#define COLUMN_0		20
+#define COLUMN_INDENT		21
+#define ISC_SQLCODE		22
+#define	ISC_EVENTS_VECTOR	23
+#define	ISC_EVENTS		24
+#define	ISC_EVENT_NAMES_VECTOR	25
+#define	ISC_EVENT_NAMES		26
+#define	ISC_EVENT_NAMES_VECTOR2	27
+#define	ISC_EVENT_NAMES2	28
+
+#define INDENT		"   "
+
+
+//____________________________________________________________
+//  
+//  
+
+void COB_action( ACT action, int column)
+{
+
+	if (action->act_flags & ACT_break)
+		first_flag = FALSE;
+
+	switch (action->act_type) {
+	case ACT_alter_database:
+	case ACT_alter_domain:
+	case ACT_alter_table:
+	case ACT_alter_index:
+	case ACT_create_domain:
+	case ACT_create_generator:
+	case ACT_create_index:
+	case ACT_create_shadow:
+	case ACT_create_table:
+	case ACT_create_view:
+	case ACT_declare_filter:
+	case ACT_declare_udf:
+	case ACT_statistics:
+	case ACT_drop_domain:
+	case ACT_drop_filter:
+	case ACT_drop_index:
+	case ACT_drop_shadow:
+	case ACT_drop_table:
+	case ACT_drop_udf:
+	case ACT_drop_view:
+		gen_ddl(action);
+		break;
+	case ACT_any:
+		gen_any(action);
+		return;
+	case ACT_at_end:
+		gen_at_end(action);
+		return;
+	case ACT_commit:
+		gen_trans(action);
+		break;
+	case ACT_commit_retain_context:
+		gen_trans(action);
+		break;
+	case ACT_basedon:
+		gen_based(action);
+		return;
+	case ACT_b_declare:
+		gen_database(action);
+		return;
+	case ACT_blob_cancel:
+		gen_blob_close(action);
+		return;
+	case ACT_blob_close:
+		gen_blob_close(action);
+		break;
+	case ACT_blob_create:
+		gen_blob_open(action);
+		break;
+	case ACT_blob_for:
+		gen_blob_for(action);
+		return;
+	case ACT_blob_handle:
+		gen_segment(action);
+		return;
+	case ACT_blob_open:
+		gen_blob_open(action);
+		break;
+	case ACT_clear_handles:
+		gen_clear_handles(action);
+		break;
+	case ACT_close:
+		gen_s_end(action);
+		break;
+	case ACT_create_database:
+		gen_create_database(action);
+		break;
+	case ACT_cursor:
+		gen_cursor_init(action);
+		return;
+	case ACT_database:
+		gen_database(action);
+		return;
+	case ACT_disconnect:
+		gen_finish(action);
+		break;
+	case ACT_dyn_close:
+		gen_dyn_close(action);
+		break;
+	case ACT_dyn_cursor:
+		gen_dyn_declare(action);
+		break;
+	case ACT_dyn_describe:
+		gen_dyn_describe(action, FALSE);
+		break;
+	case ACT_dyn_describe_input:
+		gen_dyn_describe(action, TRUE);
+		break;
+	case ACT_dyn_execute:
+		gen_dyn_execute(action);
+		break;
+	case ACT_dyn_fetch:
+		gen_dyn_fetch(action);
+		break;
+	case ACT_dyn_grant:
+		gen_ddl(action);
+		break;
+	case ACT_dyn_immediate:
+		gen_dyn_immediate(action);
+		break;
+	case ACT_dyn_insert:
+		gen_dyn_insert(action);
+		break;
+	case ACT_dyn_open:
+		gen_dyn_open(action);
+		break;
+	case ACT_dyn_prepare:
+		gen_dyn_prepare(action);
+		break;
+	case ACT_dyn_revoke:
+		gen_ddl(action);
+		break;
+	case ACT_endblob:
+		gen_blob_end(action);
+		return;
+	case ACT_enderror:
+		sprintf(output_buffer, "%sEND-IF", names[COLUMN]);
+		COB_print_buffer(output_buffer, FALSE);
+		return;
+	case ACT_endfor:
+		gen_endfor(action);
+		break;
+	case ACT_endmodify:
+		gen_emodify(action);
+		break;
+	case ACT_endstore:
+		gen_estore(action);
+		break;
+	case ACT_erase:
+		gen_erase(action);
+		return;
+	case ACT_event_init:
+		gen_event_init(action);
+		return;
+	case ACT_event_wait:
+		gen_event_wait(action);
+		return;
+	case ACT_fetch:
+		gen_fetch(action);
+		break;
+	case ACT_finish:
+		gen_finish(action);
+		break;
+	case ACT_for:
+		gen_for(action);
+		return;
+	case ACT_form_display:
+		gen_form_display(action);
+		break;
+	case ACT_form_end:
+		gen_form_end(action);
+		break;
+	case ACT_form_for:
+		gen_form_for(action);
+		return;
+	case ACT_function:
+		gen_function(action);
+		return;
+	case ACT_get_segment:
+		gen_get_segment(action);
+		break;
+	case ACT_get_slice:
+		gen_slice(action);
+		return;
+	case ACT_hctef:
+		gen_end_fetch(action);
+		return;
+	case ACT_insert:
+		gen_s_start(action);
+		break;
+	case ACT_item_for:
+	case ACT_item_put:
+		gen_item_for(action);
+		return;
+	case ACT_item_end:
+		gen_item_end(action);
+		break;
+	case ACT_loop:
+		gen_loop(action);
+		break;
+	case ACT_menu:
+		gen_menu(action);
+		return;
+	case ACT_menu_end:
+		gen_menu_end(action);
+		break;
+	case ACT_menu_entree:
+		gen_menu_entree(action);
+		return;
+	case ACT_menu_display:
+		gen_menu_display(action);
+		return;
+	case ACT_menu_for:
+		gen_menu_for(action);
+		return;
+
+	case ACT_title_text:
+	case ACT_title_length:
+	case ACT_terminator:
+	case ACT_entree_text:
+	case ACT_entree_length:
+	case ACT_entree_value:
+		gen_menu_entree_att(action);
+		return;
+
+	case ACT_open:
+		gen_s_start(action);
+		break;
+	case ACT_on_error:
+		gen_on_error(action);
+		return;
+	case ACT_prepare:
+		gen_trans(action);
+		break;
+	case ACT_procedure:
+		gen_procedure(action);
+		break;
+	case ACT_put_segment:
+		gen_put_segment(action);
+		break;
+	case ACT_put_slice:
+		gen_slice(action);
+		return;
+	case ACT_ready:
+		gen_ready(action);
+		return;
+	case ACT_release:
+		gen_release(action);
+		break;
+	case ACT_rfinish:
+		gen_finish(action);
+		return;
+	case ACT_rollback:
+		gen_trans(action);
+		break;
+	case ACT_routine:
+		return;
+	case ACT_s_end:
+		gen_s_end(action);
+		return;
+	case ACT_s_fetch:
+		gen_s_fetch(action);
+		break;
+	case ACT_s_start:
+		gen_s_start(action);
+		break;
+	case ACT_select:
+		gen_select(action);
+		break;
+	case ACT_segment_length:
+		gen_segment(action);
+		return;
+	case ACT_segment:
+		gen_segment(action);
+		return;
+	case ACT_sql_dialect:
+		sw_sql_dialect = ((SDT) action->act_object)->sdt_dialect;
+		return;
+	case ACT_start:
+		gen_t_start(action);
+		break;
+	case ACT_store:
+		gen_store(action);
+		break;
+	case ACT_type:
+		gen_type(action);
+		return;
+	case ACT_update:
+		gen_update(action);
+		break;
+	case ACT_variable:
+		gen_variable(action);
+		return;
+	case ACT_window_create:
+		gen_window_create(action);
+		return;
+	case ACT_window_delete:
+		gen_window_delete(action);
+		return;
+	case ACT_window_suspend:
+		gen_window_suspend(action);
+		return;
+	default:
+		return;
+	}
+
+	if ((action->act_flags & ACT_sql) && action->act_whenever)
+		gen_whenever(action->act_whenever);
+	else
+		ib_fprintf(out_file, names[COLUMN]);
+}
+
+
+//____________________________________________________________
+//  
+//		point 'names' at the appropriate list
+//		ANSI has no underscores.
+//  
+
+void COB_name_init( BOOLEAN ansi)
+{
+
+	names = ansi ? anames : vnames;
+}
+
+
+//____________________________________________________________
+//  
+//		Print a statment, breaking it into
+//		reasonable 80 character hunks.  This
+//		function now works for COBOL statements
+//		which are function calls and non-function
+//		calls.
+//  
+
+void COB_print_buffer( TEXT * output_buffer, BOOLEAN function_call)
+{
+	TEXT s[80], *p, *q, *tempq;
+	BOOLEAN open_quote, single_quote, save_open_quote, save_single_quote;
+	USHORT max_line;
+
+	if (sw_ansi)
+		max_line = 72;
+	else
+		max_line = 79;
+
+	open_quote = FALSE;
+	single_quote = FALSE;
+	p = s;
+
+	for (q = output_buffer; *q; q++) {
+		*p++ = *q;
+
+		/*  If we have a single or double quote, toggle the
+		   quote switch and indicate single or double quote  */
+		if (*q == '\"') {
+			open_quote = (open_quote) ? FALSE : TRUE;
+			single_quote = FALSE;
+		}
+		else if (*q == '\'') {
+			open_quote = (open_quote) ? FALSE : TRUE;
+			single_quote = TRUE;
+		}
+
+		if ((p - s) > max_line) {
+			tempq = q;
+			save_open_quote = open_quote;
+			save_single_quote = single_quote;
+			if (function_call) {
+				/*  Back up until we reach a comma  */
+				for (p--; (p > s); p--, q--) {
+					if (*(p + 1) == '\"' || *(p + 1) == '\'') {
+						/*  If we have a single or double quote, toggle the
+						   quote switch and indicate single or double quote  */
+						open_quote = (open_quote) ? FALSE : TRUE;
+						if (open_quote)
+							single_quote = (*(p + 1) == '\'') ? TRUE : FALSE;
+						else
+							single_quote = FALSE;
+					}
+					if (!open_quote && (*p == ','))
+						break;
+				}
+				/* if p == s, this is a call with no commas. back up to a blank */
+				if (p == s) {
+					q = tempq;
+					p = s + max_line;
+					open_quote = save_open_quote;
+					single_quote = save_single_quote;
+					for (p--; p > s; p--, q--) {
+						if (*(p + 1) == '\"' || *(p + 1) == '\'') {
+							/*  If we have a single or double quote, toggle the
+							   quote switch and indicate single or double quote  */
+							open_quote = (open_quote) ? FALSE : TRUE;
+							if (open_quote)
+								single_quote =
+									(*(p + 1) == '\'') ? TRUE : FALSE;
+							else
+								single_quote = FALSE;
+						}
+						if (!open_quote && (*p == ' '))
+							break;
+					}
+					q--;
+					if (p == s) {
+						q = tempq - 1;
+						p = s + max_line;
+						open_quote = save_open_quote;
+						single_quote = save_single_quote;
+					}
+					*p = 0;
+				}
+				else
+					*++p = 0;
+			}
+			else {
+				/* back up to a blank */
+				for (p--; p > s; p--, q--) {
+					if (*(p + 1) == '\"' || *(p + 1) == '\'') {
+						/* If we have a single or double quote, toggle the
+						   quote switch and indicate single or double quote  */
+						open_quote = (open_quote) ? FALSE : TRUE;
+						if (open_quote)
+							single_quote = (*(p + 1) == '\'') ? TRUE : FALSE;
+						else
+							single_quote = FALSE;
+					}
+					if (!open_quote && (*p == ' '))
+						break;
+				}
+				q--;
+				if (p == s) {
+					q = tempq - 1;
+					p = s + max_line;
+					open_quote = save_open_quote;
+					single_quote = save_single_quote;
+				}
+				*p = 0;
+			}
+
+			ib_fprintf(out_file, "%s\n", s);
+			if (open_quote) {
+				if (single_quote)
+					strcpy(s, names[CONTINUE_SINGLE_QUOTE]);
+				else
+					strcpy(s, names[CONTINUE_QUOTE]);
+			}
+			else
+				strcpy(s, names[CONTINUE]);
+			for (p = s; *p; p++);
+		}
+	}
+	*p = 0;
+	ib_fprintf(out_file, "%s", s);
+	output_buffer[0] = 0;
+}
+
+
+//____________________________________________________________
+//  
+//       Align output to a specific column for output.  If the
+//       column is negative, don't do anything.
+//  
+
+static int align( int column)
+{
+	int i;
+
+	if (column < 0)
+		return;
+
+	ib_putc('\n', out_file);
+
+	for (i = column / 8; i; --i)
+		ib_putc('\t', out_file);
+
+	for (i = column % 8; i; --i)
+		ib_putc(' ', out_file);
+}
+
+
+
+//____________________________________________________________
+//  
+//		Build an assignment from a host language variable to
+//		a port variable.
+//  
+
+static asgn_from( ACT action, REF reference)
+{
+	FLD field;
+	TEXT *value, name[64], variable[20], temp[20];
+
+	for (; reference; reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (field->fld_array_info)
+			if (!(reference->ref_flags & REF_array_elem)) {
+				printa(names[COLUMN], TRUE, "CALL \"isc_qtoq\" USING %s, %s",
+					   names[isc_blob_null], gen_name(name, reference, TRUE));
+				gen_get_or_put_slice(action, reference, FALSE);
+				continue;
+			}
+
+		if (!reference->ref_source && !reference->ref_value)
+			continue;
+		gen_name(variable, reference, TRUE);
+		if (reference->ref_source)
+			value = gen_name(temp, reference->ref_source, TRUE);
+		else
+			value = reference->ref_value;
+		if (!reference->ref_master || (reference->ref_flags & REF_literal))
+			sprintf(output_buffer, "%sMOVE %s TO %s\n",
+					names[COLUMN], value, variable);
+		else {
+			sprintf(output_buffer, "%sIF %s < 0 THEN\n",
+					names[COLUMN], value);
+			COB_print_buffer(output_buffer, FALSE);
+			sprintf(output_buffer, "%sMOVE -1 TO %s\n", names[COLUMN_INDENT],
+					variable);
+			COB_print_buffer(output_buffer, FALSE);
+			sprintf(output_buffer, "%sELSE\n", names[COLUMN]);
+			COB_print_buffer(output_buffer, FALSE);
+			sprintf(output_buffer, "%sMOVE 0 TO %s\n", names[COLUMN_INDENT],
+					variable);
+			COB_print_buffer(output_buffer, FALSE);
+			sprintf(output_buffer, "%sEND-IF\n", names[COLUMN]);
+		}
+		COB_print_buffer(output_buffer, FALSE);
+	}
+}
+
+
+
+#ifdef UNDEF
+//____________________________________________________________
+//  
+//		Build an assignment from a host language variable to
+//		a sqlda variable.
+//  
+
+static int asgn_sqlda_from(
+						   REF reference,
+						   int number, SCHAR * string, int column)
+{
+	SCHAR *value, temp[20];
+
+	for (; reference; reference = reference->ref_next) {
+		align(column);
+		if (reference->ref_source)
+			value = gen_name(temp, reference->ref_source, TRUE);
+		else
+			value = reference->ref_value;
+		ib_fprintf(out_file,
+				   "isc_to_sqlda (isc_sqlda, %d, %s, sizeof(%s), %s);",
+				   number, value, value, string);
+	}
+}
+#endif
+
+
+
+
+//____________________________________________________________
+//  
+//		Build an assignment to a host language variable from
+//		a port variable.
+//  
+
+static asgn_to( ACT action, REF reference)
+{
+	FLD field;
+	REF source;
+	TEXT s[64];
+
+	source = reference->ref_friend;
+	field = source->ref_field;
+	gen_name(s, source, TRUE);
+
+	if (field->fld_array_info) {
+		source->ref_value = reference->ref_value;
+		gen_get_or_put_slice(action, source, TRUE);
+		return;
+	}
+
+	field = reference->ref_field;
+	sprintf(output_buffer, "%sMOVE %s TO %s\n",
+			names[COLUMN], s, reference->ref_value);
+	COB_print_buffer(output_buffer, FALSE);
+
+//  Pick up NULL value if one is there 
+
+	if (reference = reference->ref_null) {
+		sprintf(output_buffer, "%sMOVE %s TO %s\n",
+				names[COLUMN], gen_name(s, reference, TRUE),
+				reference->ref_value);
+		COB_print_buffer(output_buffer, FALSE);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment to a host language variable from
+//		a port variable.
+//  
+
+static asgn_to_proc( REF reference)
+{
+	FLD field;
+	TEXT s[64];
+
+	for (; reference; reference = reference->ref_next) {
+		if (!reference->ref_value)
+			continue;
+		field = reference->ref_field;
+		gen_name(s, reference, TRUE);
+		sprintf(output_buffer, "%sMOVE %s TO %s\n",
+				names[COLUMN], s, reference->ref_value);
+		COB_print_buffer(output_buffer, FALSE);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a function call for free standing ANY.  Somebody else
+//		will need to generate the actual function.
+//  
+
+static int gen_any( ACT action)
+{
+	REQ request;
+	POR port;
+	REF reference;
+
+	request = action->act_request;
+
+	ib_fprintf(out_file, "%s_r (&%s, &%s",
+			   request->req_handle, request->req_handle, request->req_trans);
+
+	if (port = request->req_vport)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next)
+				ib_fprintf(out_file, ", %s", reference->ref_value);
+
+	ib_fprintf(out_file, ")");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for AT END clause of FETCH.
+//  
+
+static gen_at_end( ACT action)
+{
+	REQ request;
+	TEXT s[20];
+
+	request = action->act_request;
+	printa(names[COLUMN], FALSE,
+		   "IF %s = 0 THEN", gen_name(s, request->req_eof, TRUE));
+	ib_fprintf(out_file, names[COLUMN]);
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a BASED ON <field name> clause.
+//  
+
+static gen_based( ACT action)
+{
+	BAS based_on;
+	FLD field;
+	TEXT s[64];
+	USHORT datatype;
+	SLONG length;
+	SSHORT digits;
+	DIM dimension;
+
+	based_on = (BAS) action->act_object;
+	field = based_on->bas_field;
+
+	if (based_on->bas_flags & BAS_segment) {
+		datatype = dtype_text;
+		if (!(length = field->fld_seg_length))
+			length = 256;
+	}
+	else if (field->fld_array_info) {
+		IBERROR("Based on currently not implemented for arrays.");
+//  
+//     TBD - messy
+//   datatype = field->fld_array_info->ary_dtype;
+//   for (dimension = field->fld_array_info->ary_dimension; dimension;
+//  dimension = dimension->dim_next)
+// { 
+// ib_fprintf (out_file, "
+//  
+	}
+	else
+		datatype = field->fld_dtype;
+
+	switch (datatype) {
+	case dtype_short:
+	case dtype_long:
+		digits = (datatype == dtype_short) ? 4 : 9;
+		ib_fprintf(out_file, "%sPIC S", names[COLUMN]);
+		if (field->fld_scale >= -digits && field->fld_scale <= 0) {
+			if (field->fld_scale > -digits)
+				ib_fprintf(out_file, "9(%d)", digits + field->fld_scale);
+			if (field->fld_scale)
+				ib_fprintf(out_file, "V9(%d)",
+						   digits - (digits + field->fld_scale));
+			ib_fprintf(out_file, USAGE_COMP);
+		}
+		else if (field->fld_scale > 0)
+			ib_fprintf(out_file, "9(%d)P(%d)", digits, field->fld_scale);
+		else
+			ib_fprintf(out_file, "VP(%d)9(%d)", -(field->fld_scale + digits),
+					   digits);
+		break;
+
+	case dtype_date:
+	case dtype_blob:
+		ib_fprintf(out_file, "%sPIC S9(18)%s", names[COLUMN], USAGE_COMP);
+		break;
+
+	case dtype_quad:
+		ib_fprintf(out_file, "%sPIC S9(", names[COLUMN]);
+		ib_fprintf(out_file, "%d)", 18 + field->fld_scale);
+		if (field->fld_scale < 0)
+			ib_fprintf(out_file, "V9(%d)", -field->fld_scale);
+		else if (field->fld_scale > 0)
+			ib_fprintf(out_file, "P(%d)", field->fld_scale);
+		ib_fprintf(out_file, USAGE_COMP);
+		break;
+
+	case dtype_text:
+		ib_fprintf(out_file, "%sPIC X(%d)", names[COLUMN], field->fld_length);
+		break;
+
+	case dtype_float:
+		ib_fprintf(out_file, "%s%s", names[COLUMN], DCL_FLOAT);
+		break;
+
+	case dtype_double:
+		ib_fprintf(out_file, "%s%s", names[COLUMN], DCL_DOUBLE);
+		break;
+
+	default:
+		sprintf(s, "datatype %d unknown\n", field->fld_dtype);
+		CPR_error(s);
+		return;
+	}
+
+	if (*based_on->bas_terminator == '.')
+		ib_fprintf(out_file, "%s\n", based_on->bas_terminator);
+}
+
+
+//____________________________________________________________
+//  
+//		Make a blob FOR loop.
+//  
+
+static gen_blob_close( ACT action)
+{
+	TEXT *command, buffer[80];
+	BLB blob;
+
+	if (action->act_flags & ACT_sql) {
+		gen_cursor_close(action, action->act_request);
+		blob = (BLB) action->act_request->req_blobs;
+	}
+	else
+		blob = (BLB) action->act_object;
+
+	command = (action->act_type == ACT_blob_cancel) ? CANCEL : CLOSE;
+	sprintf(buffer, ISC_BLOB, command);
+
+	printa(names[COLUMN], TRUE, "CALL \"%s\" USING %s, %s%s%d",
+		   buffer,
+		   status_vector(action), BY_REF, names[ISC_], blob->blb_ident);
+
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		End a blob FOR loop.
+//  
+
+static gen_blob_end( ACT action)
+{
+	BLB blob;
+
+	blob = (BLB) action->act_object;
+	gen_get_segment(action);
+	printa(names[COLUMN], FALSE, "END-PERFORM");
+	if (action->act_error)
+		printa(names[COLUMN], TRUE,
+			   "%sCALL \"%s\" USING %s%s, %s%s%d",
+			   INDENT,
+			   ISC_CANCEL_BLOB,
+			   BY_REF, names[ISC_STATUS_VECTOR2],
+			   BY_REF, names[ISC_], blob->blb_ident);
+	else
+		printa(names[COLUMN], TRUE,
+			   "%sCALL \"%s\" USING %s, %s%s%d",
+			   INDENT, ISC_CANCEL_BLOB,
+			   status_vector(0), BY_REF, names[ISC_], blob->blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Make a blob FOR loop.
+//  
+
+static gen_blob_for( ACT action)
+{
+
+	gen_blob_open(action);
+	gen_get_segment(action);
+	printa(names[COLUMN], FALSE, "PERFORM UNTIL");
+
+	printa(names[COLUMN], FALSE, "%s%s(2) NOT = 0 AND %s(2) NOT = 335544366",
+		   INDENT, names[ISC_STATUS], names[ISC_STATUS]);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the call to open (or create) a blob.
+//  
+
+static gen_blob_open( ACT action)
+{
+	BLB blob;
+	USHORT column;
+	PAT args;
+	REF reference;
+	TEXT s[20];
+#ifdef VMS
+	TEXT *pattern1 =
+		"CALL \"ISC_%IFCREATE%ELOPEN%EN_BLOB2\" USING %V1, %RF%DH%RE, %RF%RT%RE, %RF%BH%RE, %RF%FR%RE, %VF%N1%VE, %RF%I1%RE\n",
+		*pattern2 =
+		"CALL \"ISC_%IFCREATE%ELOPEN%EN_BLOB2\" USING %V1, %RF%DH%RE, %RF%RT%RE, %RF%BH%RE, %RF%FR%RE, %VF0%VE, %VF0%VE\n";
+#else
+	TEXT *pattern1 =
+		"CALL \"isc_%IFcreate%ELopen%EN_blob2\" USING %V1, %RF%DH%RE, %RF%RT%RE, %RF%BH%RE, %RF%FR%RE, %VF%N1%VE, %RF%I1%RE\n",
+		*pattern2 =
+		"CALL \"isc_%IFcreate%ELopen%EN_blob2\" USING %V1, %RF%DH%RE, %RF%RT%RE, %RF%BH%RE, %RF%FR%RE, %VF0%VE, %VF0%VE\n";
+#endif
+
+	if (sw_auto && (action->act_flags & ACT_sql)) {
+		t_start_auto(action->act_request, status_vector(action), action,
+					 TRUE);
+		printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN",
+			   request_trans(action, action->act_request));
+	}
+
+	if (action->act_flags & ACT_sql) {
+		gen_cursor_open(action, action->act_request);
+		blob = (BLB) action->act_request->req_blobs;
+		reference = ((OPN) action->act_object)->opn_using;
+		gen_name(s, reference, TRUE);
+	}
+	else {
+		blob = (BLB) action->act_object;
+		reference = blob->blb_reference;
+	}
+
+	column = strlen(names[COLUMN]);
+	args.pat_condition = action->act_type == ACT_blob_create;	/* open or create blob  */
+	args.pat_vector1 = status_vector(action);	/* status vector        */
+	args.pat_database = blob->blb_request->req_database;	/* database handle      */
+	args.pat_request = blob->blb_request;	/* transaction handle   */
+	args.pat_blob = blob;		/* blob handle          */
+	args.pat_reference = reference;	/* blob identifier      */
+	args.pat_ident1 = blob->blb_bpb_ident;	/* blob parameter block */
+
+	if ((action->act_flags & ACT_sql) && action->act_type == ACT_blob_open)
+		printa(names[COLUMN], FALSE, "MOVE %s TO %s",
+			   reference->ref_value, s);
+
+	if (args.pat_value1 = blob->blb_bpb_length)
+		PATTERN_expand(column, pattern1, &args);
+	else
+		PATTERN_expand(column, pattern2, &args);
+
+	if (action->act_flags & ACT_sql) {
+		printa(names[COLUMN], FALSE, "END-IF");
+		printa(names[COLUMN], FALSE, "END-IF");
+		printa(names[COLUMN], FALSE, "END-IF");
+		printa(names[COLUMN], FALSE, "END-IF");
+		if (sw_auto)
+			printa(names[COLUMN], FALSE, "END-IF");
+		set_sqlcode(action);
+		if (action->act_type == ACT_blob_create) {
+			printa(names[COLUMN], FALSE, "IF SQLCODE = 0 THEN");
+			printa(names[COLUMN], FALSE, "MOVE %s TO %s",
+				   s, reference->ref_value);
+			printa(names[COLUMN], FALSE, "END-IF");
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Callback routine for BLR pretty printer.
+//  
+
+static gen_blr( int *user_arg, int offset, TEXT * string)
+{
+	int indent, length, comment, i, max_line, max_diff;
+	TEXT *p, *q, c;
+	BOOLEAN open_quote, first_line;
+
+	first_line = TRUE;
+	if (sw_ansi) {
+		max_line = 70;
+		max_diff = 7;
+	}
+	else {
+		max_line = 255;
+		max_diff = 30;
+	}
+	comment = strlen(names[COMMENT]);
+	indent = 2 * strlen(INDENT);
+	p = string;
+	while (*p == ' ') {
+		p++;
+		indent++;
+	}
+	length = strlen(p);
+
+	if (comment + indent > max_line)
+		indent = max_line - comment;
+
+	while (length > 0 && length + indent + comment > max_line) {
+		/* if we did not find somewhere to break between the 200th and 256th
+		   character just print out 256 characters */
+
+		for (q = p, open_quote = FALSE; (q - p + indent + comment) < max_line;
+			 q++) {
+			if ((q - p + indent + comment) > max_line - max_diff && *q == ','
+				&& !open_quote) break;
+			if (*q == '\'' && *(q - 1) != '\\')
+				open_quote = !open_quote;
+		}
+		c = *++q;
+		*q = 0;
+		ib_fprintf(out_file, "%s", names[COMMENT]);
+		for (i = 0; i < indent; i++)
+			ib_fputc(' ', out_file);
+		ib_fprintf(out_file, "%s\n", p);
+		*q = c;
+		length = length - (q - p);
+		p = q;
+		if (first_line) {
+			first_line = FALSE;
+			indent += strlen(INDENT);
+			if (comment + indent > max_line)
+				indent = max_line - comment;
+		}
+	}
+
+	ib_fprintf(out_file, "%s", names[COMMENT]);
+	for (i = 0; i < indent; i++)
+		ib_fputc(' ', out_file);
+	ib_fprintf(out_file, "%s\n", p);
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Zap all know handles.
+//  
+
+static int gen_clear_handles( ACT action)
+{
+	REQ request;
+
+	for (request = requests; request; request = request->req_next) {
+		if (!(request->req_flags & REQ_exp_hand))
+			printa(names[COLUMN], "%s = 0;", request->req_handle);
+		if (request->req_form_handle &&
+			!(request->req_flags & REQ_exp_form_handle))
+				printa(names[COLUMN], "%s = 0;", request->req_form_handle);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile a request.
+//  
+
+static gen_compile( ACT action)
+{
+	REQ request;
+	DBB db;
+	SYM symbol;
+	BLB blob;
+
+	request = action->act_request;
+	db = request->req_database;
+	symbol = db->dbb_name;
+
+//  generate automatic ready if appropriate 
+
+	if (sw_auto)
+		t_start_auto(request, status_vector(action), action, TRUE);
+
+//  
+//  always generate a compile, a test for the success of the compile,
+//  and an end to the 'if not compiled test
+//  
+
+//  generate an 'if not compiled' 
+
+	printa(names[COLUMN], FALSE, "IF %s = 0 THEN", request->req_handle);
+
+	if (sw_auto && action->act_error)
+		printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN",
+			   request_trans(action, request));
+
+	sprintf(output_buffer,
+			"%sCALL \"%s%s\" USING %s, %s%s, %s%s, %s%d%s, %s%s%d\n",
+			names[COLUMN], ISC_COMPILE_REQUEST,
+			(request->req_flags & REQ_exp_hand) ? "" : "2",
+			status_vector(action), BY_REF, symbol->sym_string, BY_REF,
+			request->req_handle, BY_VALUE, request->req_length, END_VALUE,
+			BY_REF, names[ISC_], request->req_ident);
+
+	COB_print_buffer(output_buffer, TRUE);
+	if (sw_auto && action->act_error)
+		printa(names[COLUMN], FALSE, "END-IF");
+
+	set_sqlcode(action);
+	printa(names[COLUMN], FALSE, "END-IF");
+
+//  If blobs are present, zero out all of the blob handles.  After this
+//  point, the handles are the user's responsibility 
+
+	if (blob = request->req_blobs)
+		for (; blob; blob = blob->blb_next) {
+			sprintf(output_buffer, "%sMOVE 0 TO %s%d\n",
+					names[COLUMN], names[ISC_], blob->blb_ident);
+
+			COB_print_buffer(output_buffer, FALSE);
+		}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to create a database.
+//  
+
+static gen_create_database( ACT action)
+{
+	REQ request;
+	DBB db, dbisc;
+	TEXT s1[32], s1Tmp[32], s2[32], s2Tmp[32], db_name[128];
+	USHORT save_sw_auto;
+
+	request = ((MDBB) action->act_object)->mdbb_dpb_request;
+	db = (DBB) request->req_database;
+	if (request) {
+		sprintf(s1, "%s%dL", names[isc_], request->req_ident);
+		if (request->req_flags & REQ_extend_dpb)
+			sprintf(s2, "%s%dp", names[isc_], request->req_ident);
+		else
+			sprintf(s2, "%s%d", names[isc_], request->req_ident);
+
+		/* if the dpb needs to be extended at runtime to include items
+		   in host variables, do so here; this assumes that there is 
+		   always a request generated for runtime variables */
+
+		if (request->req_flags & REQ_extend_dpb) {
+			if (request->req_length) {
+				sprintf(output_buffer, "%sMOVE isc_%d to %s\n",
+						names[COLUMN], request->req_ident, s2);
+			}
+			if (db->dbb_r_user) {
+				sprintf(output_buffer,
+						"%sCALL \"%s\" USING %s%s, %s%s, BY VALUE 28, %s %s, %s%d%s\n",
+						names[COLUMN],
+						ISC_MODIFY_DPB,
+						BY_REF, s2,
+						BY_REF, s1,
+						BY_DESC, db->dbb_r_user,
+						BY_VALUE, strlen(db->dbb_r_user) - 2, END_VALUE);
+				COB_print_buffer(output_buffer, TRUE);
+			}
+			if (db->dbb_r_password) {
+				sprintf(output_buffer,
+						"%sCALL \"%s\" USING %s%s, %s%s, BY VALUE 29,  %s %s, %s%d%s\n",
+						names[COLUMN],
+						ISC_MODIFY_DPB,
+						BY_REF, s2,
+						BY_REF, s1,
+						BY_DESC, db->dbb_r_password,
+						BY_VALUE, strlen(db->dbb_r_password) - 2, END_VALUE);
+				COB_print_buffer(output_buffer, TRUE);
+			}
+
+			/*
+			   ** ==================================================
+			   ** ==
+			   ** ==   Process Role Name, isc_dpb_sql_role_name/60
+			   ** ==
+			   ** ==================================================
+			 */
+
+			if (db->dbb_r_sql_role) {
+				sprintf(output_buffer,
+						"%sCALL \"%s\" USING %s%s, %s%s, BY VALUE 60,  %s %s, %s%d%s\n",
+						names[COLUMN],
+						ISC_MODIFY_DPB,
+						BY_REF, s2,
+						BY_REF, s1,
+						BY_DESC, db->dbb_r_sql_role,
+						BY_VALUE, strlen(db->dbb_r_sql_role) - 2, END_VALUE);
+				COB_print_buffer(output_buffer, TRUE);
+			}
+
+			if (db->dbb_r_lc_messages) {
+				sprintf(output_buffer,
+						"%sCALL \"%s\" USING %s%s, %s%s, BY VALUE 47,  %s %s, %s%d%s\n",
+						names[COLUMN],
+						ISC_MODIFY_DPB,
+						BY_REF, s2,
+						BY_REF, s1,
+						BY_REF, db->dbb_r_lc_messages,
+						BY_VALUE, strlen(db->dbb_r_lc_messages) - 2,
+						END_VALUE);
+				COB_print_buffer(output_buffer, TRUE);
+			}
+			if (db->dbb_r_lc_ctype) {
+				sprintf(output_buffer,
+						"%sCALL \"%s\" USING %s%s %s%s, BY VALUE 48,  %s %s, %s%d%s\n",
+						names[COLUMN],
+						ISC_MODIFY_DPB,
+						BY_REF, s2,
+						BY_REF, s1,
+						BY_REF, db->dbb_r_lc_ctype,
+						BY_VALUE, strlen(db->dbb_r_lc_ctype) - 2, END_VALUE);
+				COB_print_buffer(output_buffer, TRUE);
+			}
+		}
+
+		if (request->req_flags & REQ_extend_dpb) {
+			sprintf(s1Tmp, "%s%s%s", BY_VALUE, s1, END_VALUE);
+			sprintf(s2Tmp, "%s%s%s", BY_VALUE, s2, END_VALUE);
+		}
+		else {
+			sprintf(s2Tmp, "%s%s", BY_REF, s2);
+			sprintf(s1Tmp, "%s%d%s", BY_VALUE, request->req_length,
+					END_VALUE);
+		}
+	}
+
+#ifdef VMS
+	sprintf(db_name, "\"%s\"", db->dbb_filename);
+#else
+	for (dbisc = isc_databases; dbisc; dbisc = dbisc->dbb_next)
+		if (strcmp(dbisc->dbb_filename, db->dbb_filename) == 0)
+			db->dbb_id = dbisc->dbb_id;
+	sprintf(db_name, "isc-%ddb", db->dbb_id);
+#endif
+
+	sprintf(output_buffer,
+			"%sCALL \"%s\" USING %s, %s%d%s, %s%s, %s%s, %s, %s, %s0%s\n",
+			names[COLUMN],
+			ISC_CREATE_DATABASE,
+			status_vector(action),
+			BY_VALUE, strlen(db->dbb_filename), END_VALUE,
+			BY_REF, db_name,
+			BY_REF, db->dbb_name->sym_string,
+			(request->req_length) ? s1Tmp : OMITTED,
+			(request->req_length) ? s2Tmp : OMITTED, BY_VALUE, END_VALUE);
+
+	COB_print_buffer(output_buffer, TRUE);
+//  if the dpb was extended, free it here 
+
+	if (request && request->req_flags & REQ_extend_dpb) {
+		if (request->req_length) {
+			sprintf(output_buffer,
+					"if (%s != isc_%d)", s2, request->req_ident);
+			COB_print_buffer(output_buffer, TRUE);
+		}
+
+		sprintf(output_buffer,
+				"%sCALL \"%s\" USING %s\n", names[COLUMN], ISC_FREE, s2Tmp);
+		COB_print_buffer(output_buffer, TRUE);
+
+		/* reset the length of the dpb */
+		sprintf(output_buffer, "%sMOVE %d to %s",
+				names[COLUMN], request->req_length, s1);
+		COB_print_buffer(output_buffer, TRUE);
+	}
+	save_sw_auto = sw_auto;
+	sw_auto = TRUE;
+	printa(names[COLUMN], FALSE, "IF %s(2) = 0 THEN", names[ISC_STATUS]);
+	gen_ddl(action);
+	sw_auto = save_sw_auto;
+	printa(names[COLUMN], FALSE, "END-IF");
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STREAM.
+//  
+
+static gen_cursor_close( ACT action, REQ request)
+{
+
+	printa(names[COLUMN], FALSE, "IF %s%dS NOT = 0 THEN",
+		   names[ISC_], request->req_ident);
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s%dS, %s%d%s",
+		   ISC_DSQL_FREE,
+		   status_vector(action),
+		   BY_REF, names[ISC_], request->req_ident, BY_VALUE, 1, END_VALUE);
+	printa(names[COLUMN], FALSE, "IF %s(2) = 0 THEN", names[ISC_STATUS]);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to initialize a cursor.
+//  
+
+static gen_cursor_init( ACT action)
+{
+
+//  If blobs are present, zero out all of the blob handles.  After this
+//  point, the handles are the user's responsibility 
+
+	if (action->act_request->
+		req_flags & (REQ_sql_blob_open | REQ_sql_blob_create))
+			printa(names[COLUMN], FALSE, "MOVE 0 TO %s%d", names[ISC_],
+				   action->act_request->req_blobs->blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to open an embedded SQL cursor.
+//  
+
+static gen_cursor_open( ACT action, REQ request)
+{
+	TEXT s[64];
+
+	if (action->act_type != ACT_open)
+		printa(names[COLUMN], FALSE, "IF %s%dS = 0 THEN",
+			   names[ISC_], request->req_ident);
+	else
+		printa(names[COLUMN], FALSE, "IF (%s%dS = 0) AND %s NOT = 0 THEN",
+			   names[ISC_], request->req_ident, request->req_handle);
+	if (sw_auto)
+		printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN",
+			   request->req_database->dbb_name->sym_string);
+	printa(names[COLUMN], TRUE, "CALL \"%s\" USING %s, %s%s, %s%s%dS",
+		   ISC_DSQL_ALLOCATE,
+		   status_vector(action),
+		   BY_REF, request->req_database->dbb_name->sym_string,
+		   BY_REF, names[ISC_], request->req_ident);
+	if (sw_auto)
+		printa(names[COLUMN], FALSE, "END-IF");
+	printa(names[COLUMN], FALSE, "END-IF");
+
+	printa(names[COLUMN], FALSE, "IF %s%dS NOT = 0 THEN",
+		   names[ISC_], request->req_ident);
+	if (sw_auto)
+		printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN",
+			   request_trans(action, request));
+#ifndef VMS
+	make_name_formatted(s, "ISC-CONST-%s",
+						((OPN) action->act_object)->opn_cursor);
+#else
+	make_name(s, ((OPN) action->act_object)->opn_cursor);
+#endif
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s%dS, %s%s, %s0%s",
+		   ISC_DSQL_SET_CURSOR,
+		   status_vector(action),
+		   BY_REF, names[ISC_], request->req_ident,
+		   BY_REF, s, BY_VALUE, END_VALUE);
+	printa(names[COLUMN], FALSE, "IF %s(2) = 0 THEN", names[ISC_STATUS]);
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%s%dS, %s0%s, %s, %s-1%s, %s0%s, %s",
+		   ISC_DSQL_EXECUTE,
+		   status_vector(action),
+		   BY_REF, request_trans(action, request),
+		   BY_REF, names[ISC_], request->req_ident,
+		   BY_VALUE, END_VALUE,
+		   OMITTED, BY_VALUE, END_VALUE, BY_VALUE, END_VALUE, OMITTED);
+	printa(names[COLUMN], FALSE, "IF %s(2) = 0 THEN", names[ISC_STATUS]);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insertion text for the database statement.
+//  
+
+static gen_database( ACT action)
+{
+	DBB db;
+	REQ request;
+	TEXT *name, fname[80], *s, s1[40];
+	USHORT count, max_count;
+	FORM form;
+	TPB tpb;
+	POR port;
+	BLB blob;
+	BOOLEAN all_static, all_extern, dyn_immed;
+	REF reference;
+	RDY ready;
+	ACT act, chck_dups;
+	SYM symbol, cur_stmt, dup;
+	PRC procedure;
+	LLS stack_ptr;
+
+	if (first_flag++ != 0)
+		return;
+
+	sprintf(output_buffer, "\n%s**** GDS Preprocessor Definitions ****\n\n",
+			names[COMMENT]);
+	COB_print_buffer(output_buffer, FALSE);
+
+	printa(names[COLUMN_0], FALSE, "01  %s PIC S9(18) USAGE COMP VALUE IS 0.",
+		   names[isc_blob_null]);
+	printa(names[COLUMN_0], FALSE, "01  %s PIC S9(9) USAGE COMP EXTERNAL.",
+		   names[ISC_SQLCODE]);
+
+	all_static = TRUE;
+	all_extern = TRUE;
+	for (db = isc_databases, count = 0; db; db = db->dbb_next) {
+		all_static = all_static && (db->dbb_scope == DBB_STATIC);
+		all_extern = all_extern && (db->dbb_scope == DBB_EXTERN);
+		name = db->dbb_name->sym_string;
+		printa(names[COLUMN_0], FALSE, "01  %s%s PIC S9(9) USAGE COMP%s.",
+			   name,
+			   (all_static) ? "" : (all_extern) ? " IS EXTERNAL" :
+			   " IS GLOBAL", (all_extern) ? "" : " VALUE IS 0");
+
+		/* generate variables to hold database name strings for attach call */
+
+#ifndef VMS
+		db->dbb_id = ++count;
+		if (db->dbb_runtime) {
+			printa(names[COLUMN_0], FALSE,
+				   "01  %s%ddb PIC X(%d) VALUE IS \"%s\".", names[isc_],
+				   db->dbb_id, strlen(db->dbb_runtime), db->dbb_runtime);
+		}
+		else if (db->dbb_filename) {
+			printa(names[COLUMN_0], FALSE,
+				   "01  %s%ddb PIC X(%d) VALUE IS \"%s\".", names[isc_],
+				   db->dbb_id, strlen(db->dbb_filename), db->dbb_filename);
+		}
+#endif
+
+		for (tpb = db->dbb_tpbs; tpb; tpb = tpb->tpb_dbb_next)
+			gen_tpb(tpb);
+
+		for (form = db->dbb_forms; form; form = form->form_next) {
+			printa(names[COLUMN_0], FALSE,
+				   "01  %s PIC S9(9) USAGE COMP VALUE IS 0.",
+				   form->form_handle);
+			printa(names[COLUMN_0], FALSE,
+				   "01  %sFL PIC S9(4) USAGE COMP VALUE IS %d.",
+				   form->form_handle, strlen(form->form_name->sym_string));
+#ifndef VMS
+			printa(names[COLUMN_0], FALSE,
+				   "01  %sFN PIC X(%d) VALUE IS \"%s\".", form->form_handle,
+				   strlen(form->form_name->sym_string),
+				   form->form_name->sym_string);
+#endif
+		}
+	}
+
+#ifndef VMS
+//  loop through actions: find readys to generate vars for quoted strings 
+
+	dyn_immed = FALSE;
+	for (act = action; act; act = act->act_rest)
+		if (act->act_type == ACT_create_database) {
+		}
+		else if (act->act_type == ACT_ready) {
+			for (ready = (RDY) act->act_object; ready;
+				 ready = ready->rdy_next) if ((s = ready->rdy_filename)
+											  && ((*s == '\'')
+												  || (*s == '\''))) {
+					strcpy(fname, ++s);
+					s = fname + strlen(fname) - 1;
+					*s = 0;
+					ready->rdy_id = ++count;
+					printa(names[COLUMN_0], FALSE,
+						   "01  %s%ddb PIC X(%d) VALUE IS \"%s\".",
+						   names[isc_], ready->rdy_id, strlen(fname), fname);
+				}
+		}
+		else if ((act->act_flags & ACT_sql) &&
+				 (act->act_type == ACT_dyn_cursor ||
+				  act->act_type == ACT_dyn_prepare ||
+				  act->act_type == ACT_open ||
+				  act->act_type == ACT_blob_open ||
+				  act->act_type == ACT_blob_create)) {
+			if (act->act_type == ACT_dyn_cursor)
+				cur_stmt = ((DYN) act->act_object)->dyn_cursor_name;
+			else if (act->act_type == ACT_dyn_prepare)
+				cur_stmt = ((DYN) act->act_object)->dyn_statement_name;
+			else
+				cur_stmt = ((OPN) act->act_object)->opn_cursor;
+
+			/* Only generate one declaration per cursor or statement name */
+
+			for (chck_dups = act->act_rest; chck_dups;
+				 chck_dups = chck_dups->act_rest) {
+				if (chck_dups->act_type == ACT_dyn_cursor)
+					dup = ((DYN) chck_dups->act_object)->dyn_cursor_name;
+				else if (chck_dups->act_type == ACT_dyn_prepare)
+					dup = ((DYN) chck_dups->act_object)->dyn_statement_name;
+				else if ((chck_dups->act_flags & ACT_sql) &&
+						 (chck_dups->act_type == ACT_open ||
+						  chck_dups->act_type == ACT_blob_open ||
+						  chck_dups->act_type == ACT_blob_create))
+					dup = ((OPN) chck_dups->act_object)->opn_cursor;
+				else
+					continue;
+
+				if (!strcmp(dup->sym_string, cur_stmt->sym_string))
+					break;
+			}
+
+			if (!chck_dups) {
+				make_name(s1, cur_stmt);
+				printa(names[COLUMN_0], FALSE,
+					   "01  ISC-CONST-%s PIC X(%d) VALUE IS \"%s \".",
+					   s1, strlen(s1) + 1, s1);
+				printa(names[COLUMN_0], FALSE,
+					   "01  ISC-CONST-%sL PIC S9(4) USAGE %s.", s1,
+					   COMP_VALUE);
+			}
+		}
+		else if (act->act_type == ACT_dyn_immediate) {
+			if (!dyn_immed) {
+				dyn_immed = TRUE;
+				printa(names[COLUMN_0], FALSE,
+					   "01  ISC-CONST-DYN-IMMEDL PIC S9(4) USAGE %s.",
+					   COMP_VALUE);
+			}
+		}
+		else if (act->act_type == ACT_procedure) {
+			request = act->act_request;
+			procedure = (PRC) act->act_object;
+			symbol = procedure->prc_symbol;
+			name = symbol->sym_string;
+			printa(names[COLUMN_0], FALSE,
+				   "01  %s%dprc PIC X(%d) VALUE IS \"%s\".",
+				   names[isc_], request->req_ident, strlen(name), name);
+		}
+#endif
+
+	printa(names[COLUMN_0], FALSE, "01  %s%s PIC S9(9) USAGE COMP%s.",
+		   names[ISC_TRANS],
+		   (all_static) ? "" : (all_extern) ? " IS EXTERNAL" : " IS GLOBAL",
+		   (all_extern) ? "" : " VALUE IS 0");
+	printa(names[COLUMN_0], FALSE, "01  %s%s.",
+		   names[ISC_STATUS_VECTOR],
+		   (all_static) ? "" : (all_extern) ? " IS EXTERNAL" : " IS GLOBAL");
+	printa(names[COLUMN], FALSE,
+		   "03  %s PIC S9(9) USAGE COMP OCCURS 20 TIMES.", names[ISC_STATUS]);
+	printa(names[COLUMN_0], FALSE, "01  %s%s.", names[ISC_STATUS_VECTOR2],
+		   (all_static) ? "" : (all_extern) ? " IS EXTERNAL" : " IS GLOBAL");
+	printa(names[COLUMN], FALSE,
+		   "03  %s PIC S9(9) USAGE COMP OCCURS 20 TIMES.",
+		   names[ISC_STATUS2]);
+	printa(names[COLUMN_0], FALSE, "01  %s PIC S9(9) USAGE COMP.",
+		   names[ISC_ARRAY_LENGTH]);
+
+	printa(names[COLUMN_0], FALSE, "01  SQLCODE%s PIC S9(9) USAGE %s%s.",
+		   (all_static) ? "" : (all_extern) ? " IS EXTERNAL" : " IS GLOBAL",
+		   COMP_VALUE, (all_extern) ? "" : " VALUE IS 0");
+
+	if (sw_pyxis) {
+		printa(names[COLUMN_0], FALSE, "01  %s PIC S9(9) USAGE COMP%s.",
+			   names[ISC_WINDOW],
+			   (sw_window_scope == DBB_GLOBAL) ? " GLOBAL" :
+			   (sw_window_scope == DBB_EXTERN) ? " EXTERNAL" : "");
+		printa(names[COLUMN_0], FALSE, "01  %s PIC S9(4) USAGE COMP%s%s.",
+			   names[ISC_WIDTH],
+			   (sw_window_scope == DBB_GLOBAL) ? " GLOBAL" :
+			   (sw_window_scope == DBB_EXTERN) ? " EXTERNAL" : "",
+			   (sw_window_scope != DBB_EXTERN) ? " VALUE IS 80" : "");
+		printa(names[COLUMN_0], FALSE, "01  %s PIC S9(4) USAGE COMP%s%s.",
+			   names[ISC_HEIGHT],
+			   (sw_window_scope == DBB_GLOBAL) ? " GLOBAL" :
+			   (sw_window_scope == DBB_EXTERN) ? " EXTERNAL" : "",
+			   (sw_window_scope != DBB_EXTERN) ? " VALUE IS 24" : "");
+	}
+
+	for (request = requests; request; request = request->req_next) {
+		gen_request(request);
+		for (port = request->req_ports; port; port = port->por_next)
+			make_port(port);
+		for (blob = request->req_blobs; blob; blob = blob->blb_next) {
+			printa(names[COLUMN_0], FALSE, "01  %s%d PIC S9(9) USAGE COMP.",
+				   names[ISC_], blob->blb_ident);
+			printa(names[COLUMN_0], FALSE, "01  %s%d PIC X(%d).",
+				   names[ISC_], blob->blb_buff_ident, blob->blb_seg_length);
+			printa(names[COLUMN_0], FALSE, "01  %s%d PIC S9(4) USAGE %s.",
+				   names[ISC_], blob->blb_len_ident, COMP_VALUE);
+		}
+
+		/*  Array declarations  */
+
+		if (port = request->req_primary)
+			for (reference = port->por_references; reference;
+				 reference = reference->ref_next)
+					if (reference->ref_field->fld_array_info)
+						make_array_declaration(reference);
+	}
+
+//  Generate event parameter block for each event 
+
+	max_count = 0;
+	for (stack_ptr = events; stack_ptr; stack_ptr = stack_ptr->lls_next) {
+		count = gen_event_block(stack_ptr->lls_object);
+		max_count = MAX(count, max_count);
+	}
+
+	if (max_count) {
+		printa(names[COLUMN_0], FALSE, "01  %s.", names[ISC_EVENTS_VECTOR]);
+		printa(names[COLUMN], FALSE,
+			   "03  %s PIC S9(9) USAGE COMP OCCURS %d TIMES.",
+			   names[ISC_EVENTS], max_count);
+		printa(names[COLUMN_0], FALSE, "01  %s.",
+			   names[ISC_EVENT_NAMES_VECTOR]);
+		printa(names[COLUMN], FALSE,
+			   "03  %s PIC S9(9) USAGE COMP OCCURS %d TIMES.",
+			   names[ISC_EVENT_NAMES], max_count);
+		printa(names[COLUMN_0], FALSE, "01  %s.",
+			   names[ISC_EVENT_NAMES_VECTOR2]);
+		printa(names[COLUMN], FALSE, "03  %s PIC X(31) OCCURS %d TIMES.",
+			   names[ISC_EVENT_NAMES2], max_count);
+	}
+
+	printa(names[COMMENT], FALSE, "**** end of GPRE definitions ****\n");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to update metadata.
+//  
+
+static gen_ddl( ACT action)
+{
+	REQ request;
+
+//  Set up command type for call to RDB$DDL 
+
+	request = action->act_request;
+
+	if (sw_auto) {
+		t_start_auto(0, status_vector(action), action, TRUE);
+		printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN", names[ISC_TRANS]);
+	}
+
+
+	sprintf(output_buffer,
+			"%sCALL \"%s\" USING %s, %s%s, %s%s, %s%d%s, %s%s%d\n",
+			names[COLUMN], ISC_DDL, status_vector(action), BY_REF,
+			request->req_database->dbb_name->sym_string, BY_REF,
+			names[ISC_TRANS], BY_VALUE, request->req_length, END_VALUE,
+			BY_REF, names[ISC_], request->req_ident);
+
+	COB_print_buffer(output_buffer, TRUE);
+
+	if (sw_auto) {
+		printa(names[COLUMN], FALSE, "END-IF");
+		printa(names[COLUMN], FALSE, "IF %s(2) = 0 THEN", names[ISC_STATUS]);
+		printa(names[COLUMN], TRUE,
+			   "CALL \"%s\" USING %s, %s%s", ISC_COMMIT_TRANSACTION,
+			   status_vector(action), BY_REF, names[ISC_TRANS]);
+		printa(names[COLUMN], FALSE, "END-IF");
+		printa(names[COLUMN], FALSE, "IF %s(2) NOT = 0 THEN",
+			   names[ISC_STATUS]);
+		printa(names[COLUMN], TRUE,
+			   "CALL \"%s\" USING %s, %s%s",
+			   ISC_ROLLBACK_TRANSACTION, OMITTED, BY_REF, names[ISC_TRANS]);
+		printa(names[COLUMN], FALSE, "END-IF");
+	}
+	COB_print_buffer(output_buffer, TRUE);
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_close( ACT action)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+#ifndef VMS
+	make_name_formatted(s, "ISC-CONST-%s", statement->dyn_cursor_name);
+#else
+	make_name(s, statement->dyn_cursor_name);
+#endif
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s",
+		   ISC_CLOSE, status_vector(action), BY_REF, s);
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_declare( ACT action)
+{
+	DYN statement;
+	TEXT s1[64], s2[64];
+
+	statement = (DYN) action->act_object;
+
+#ifndef VMS
+	make_name_formatted(s1, "ISC-CONST-%s", statement->dyn_statement_name);
+	make_name_formatted(s2, "ISC-CONST-%s", statement->dyn_cursor_name);
+#else
+	make_name(s1, statement->dyn_statement_name);
+	make_name(s2, statement->dyn_cursor_name);
+#endif
+
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%s",
+		   ISC_DECLARE, status_vector(action), BY_REF, s1, BY_REF, s2);
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_describe( ACT action, BOOLEAN bind_flag)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+
+#ifndef VMS
+	make_name_formatted(s, "ISC-CONST-%s", statement->dyn_statement_name);
+#else
+	make_name(s, statement->dyn_statement_name);
+#endif
+
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%d%s, %s%s",
+		   bind_flag ? ISC_DESCRIBE_BIND : ISC_DESCRIBE,
+		   status_vector(action),
+		   BY_REF, s,
+		   BY_VALUE, sw_sql_dialect, END_VALUE, BY_REF, statement->dyn_sqlda);
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_execute( ACT action)
+{
+	DYN statement;
+	TEXT *transaction, s[64];
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = names[ISC_TRANS];
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		t_start_auto(request, status_vector(action), action, TRUE);
+		printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN", transaction);
+	}
+
+#ifndef VMS
+	make_name_formatted(s, "ISC-CONST-%s", statement->dyn_statement_name);
+#else
+	make_name(s, statement->dyn_statement_name);
+#endif
+
+	printa(names[COLUMN], TRUE,
+		   (statement->dyn_sqlda2) ?
+		   "CALL \"%s\" USING %s, %s%s, %s%s, %s%d%s, %s%s, %s%s" :
+		   "CALL \"%s\" USING %s, %s%s, %s%s, %s%d%s, %s%s",
+		   (statement->dyn_sqlda2) ? ISC_EXECUTE2 : ISC_EXECUTE,
+		   status_vector(action),
+		   BY_REF, transaction,
+		   BY_REF, s,
+		   BY_VALUE, sw_sql_dialect, END_VALUE,
+		   (statement->dyn_sqlda) ? BY_REF : "",
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : OMITTED,
+		   (statement->dyn_sqlda2) ? BY_REF : "",
+		   (statement->dyn_sqlda2) ? statement->dyn_sqlda2 : OMITTED);
+
+	if (sw_auto)
+		printa(names[COLUMN], FALSE, "END-IF");
+
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_fetch( ACT action)
+{
+	DYN statement;
+	TEXT s[64];
+
+#ifdef GIVING_SUPPORTED
+#define FETCH_CALL_TEMPLATE	"CALL \"%s\" USING %s, %s%s, %s%d%s, %s%s GIVING SQLCODE"
+#else
+#define FETCH_CALL_TEMPLATE	"CALL \"%s\" USING %s, BY REFERENCE SQLCODE, %s%s, %s%d%s, %s%s"
+#endif
+
+	statement = (DYN) action->act_object;
+
+#ifndef VMS
+	make_name_formatted(s, "ISC-CONST-%s", statement->dyn_cursor_name);
+#else
+	make_name(s, statement->dyn_cursor_name);
+#endif
+
+	printa(names[COLUMN], TRUE,
+		   FETCH_CALL_TEMPLATE,
+		   ISC_FETCH,
+		   status_vector(action),
+		   BY_REF, s,
+		   BY_VALUE, sw_sql_dialect, END_VALUE,
+		   (statement->dyn_sqlda) ? BY_REF : "",
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : OMITTED);
+
+	printa(names[COLUMN], FALSE, "IF SQLCODE NOT = 100 THEN");
+
+	set_sqlcode(action);
+
+	printa(names[COLUMN], FALSE, "END-IF");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for an EXECUTE IMMEDIATE dynamic SQL statement.
+//  
+
+static gen_dyn_immediate( ACT action)
+{
+	DYN statement;
+	DBB database;
+	TEXT *transaction, s[64], *s2;
+	struct req *request, req_const;
+
+#ifdef GIVING_SUPPORTED
+#define GET_LEN_CALL_TEMPLATE	"CALL %s USING %s GIVING %s"
+#else
+#define GET_LEN_CALL_TEMPLATE	"CALL %s USING %s, %s"
+#endif
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = names[ISC_TRANS];
+		request = NULL;
+	}
+
+	database = statement->dyn_database;
+
+#ifndef VMS
+	s2 = "ISC-CONST-DYN-IMMEDL";
+	printa(names[COLUMN], TRUE, GET_LEN_CALL_TEMPLATE,
+		   STRING_LENGTH, statement->dyn_string, s2);
+	sprintf(s, " %s%s%s,", BY_VALUE, s2, END_VALUE);
+#else
+	s[0] = 0;
+#endif
+
+	if (sw_auto) {
+		t_start_auto(request, status_vector(action), action, TRUE);
+		printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN", transaction);
+	}
+
+	printa(names[COLUMN], TRUE,
+		   (statement->dyn_sqlda2) ?
+		   "CALL \"%s\" USING %s, %s%s, %s%s,%s %s%s, %s%d%s, %s%s, %s%s" :
+		   "CALL \"%s\" USING %s, %s%s, %s%s,%s %s%s, %s%d%s, %s%s",
+		   (statement->
+			dyn_sqlda2) ? ISC_EXECUTE_IMMEDIATE2 : ISC_EXECUTE_IMMEDIATE,
+		   status_vector(action), BY_REF, database->dbb_name->sym_string,
+		   BY_REF, transaction, s, BY_DESC, statement->dyn_string, BY_VALUE,
+		   sw_sql_dialect, END_VALUE, (statement->dyn_sqlda) ? BY_REF : "",
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : OMITTED,
+		   (statement->dyn_sqlda2) ? BY_REF : "",
+		   (statement->dyn_sqlda2) ? statement->dyn_sqlda2 : OMITTED);
+
+	if (sw_auto)
+		printa(names[COLUMN], FALSE, "END-IF");
+
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_insert( ACT action)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+
+#ifndef VMS
+	make_name_formatted(s, "ISC-CONST-%s", statement->dyn_cursor_name);
+#else
+	make_name(s, statement->dyn_cursor_name);
+#endif
+
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%d%s, %s%s",
+		   ISC_INSERT,
+		   status_vector(action),
+		   BY_REF, s,
+		   BY_VALUE, sw_sql_dialect, END_VALUE,
+		   (statement->dyn_sqlda) ? BY_REF : "",
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : OMITTED);
+
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_open( ACT action)
+{
+	DYN statement;
+	TEXT *transaction, s[64];
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = names[ISC_TRANS];
+		request = NULL;
+	}
+
+#ifndef VMS
+	make_name_formatted(s, "ISC-CONST-%s", statement->dyn_cursor_name);
+#else
+	make_name(s, statement->dyn_cursor_name);
+#endif
+
+	if (sw_auto) {
+		t_start_auto(request, status_vector(action), action, TRUE);
+		printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN", transaction);
+	}
+
+	printa(names[COLUMN], TRUE,
+		   (statement->dyn_sqlda2) ?
+		   "CALL \"%s\" USING %s, %s%s, %s%s, %s%d%s, %s%s, %s%s" :
+		   "CALL \"%s\" USING %s, %s%s, %s%s, %s%d%s, %s%s",
+		   (statement->dyn_sqlda2) ? ISC_OPEN2 : ISC_OPEN,
+		   status_vector(action),
+		   BY_REF, transaction,
+		   BY_REF, s,
+		   BY_VALUE, sw_sql_dialect, END_VALUE,
+		   (statement->dyn_sqlda) ? BY_REF : "",
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : OMITTED,
+		   (statement->dyn_sqlda2) ? BY_REF : "",
+		   (statement->dyn_sqlda2) ? statement->dyn_sqlda2 : OMITTED);
+
+	if (sw_auto)
+		printa(names[COLUMN], FALSE, "END-IF");
+
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_prepare( ACT action)
+{
+	DYN statement;
+	DBB database;
+	TEXT *transaction, s[64], s2[64], s3[64];
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	database = statement->dyn_database;
+
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = names[ISC_TRANS];
+		request = NULL;
+	}
+
+#ifndef VMS
+	make_name_formatted(s, "ISC-CONST-%s", statement->dyn_statement_name);
+	sprintf(s2, "%sL", s);
+	printa(names[COLUMN], TRUE, GET_LEN_CALL_TEMPLATE,
+		   STRING_LENGTH, statement->dyn_string, s2);
+	sprintf(s3, " %s%s%s,", BY_VALUE, s2, END_VALUE);
+#else
+	make_name(s, statement->dyn_statement_name);
+	s3[0] = 0;
+#endif
+
+	if (sw_auto) {
+		t_start_auto(request, status_vector(action), action, TRUE);
+		printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN", transaction);
+	}
+
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%s, %s%s,%s %s%s, %s%d%s, %s%s",
+		   ISC_PREPARE,
+		   status_vector(action),
+		   BY_REF, database->dbb_name->sym_string,
+		   BY_REF, transaction,
+		   BY_REF, s,
+		   s3,
+		   BY_DESC, statement->dyn_string,
+		   BY_VALUE, sw_sql_dialect, END_VALUE,
+		   (statement->dyn_sqlda) ? BY_REF : "",
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : OMITTED);
+
+	if (sw_auto)
+		printa(names[COLUMN], FALSE, "END-IF");
+
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_MODIFY.
+//  
+
+static gen_emodify( ACT action)
+{
+	UPD modify;
+	REF reference, source;
+	FLD field;
+	TEXT s1[20], s2[20];
+
+	modify = (UPD) action->act_object;
+
+	for (reference = modify->upd_port->por_references; reference;
+		 reference = reference->ref_next) {
+		if (!(source = reference->ref_source))
+			continue;
+		field = reference->ref_field;
+		gen_name(s1, source, TRUE);
+		gen_name(s2, reference, TRUE);
+		if (field->fld_dtype == dtype_blob ||
+			field->fld_dtype == dtype_quad || field->fld_dtype == dtype_date)
+			sprintf(output_buffer, "%sCALL \"isc_qtoq\" USING %s, %s\n",
+					names[COLUMN], s1, s2);
+		else
+			sprintf(output_buffer, "%sMOVE %s TO %s\n",
+					names[COLUMN], s1, s2);
+		COB_print_buffer(output_buffer, TRUE);
+		if (field->fld_array_info)
+			gen_get_or_put_slice(action, reference, FALSE);
+	}
+
+	gen_send(action, modify->upd_port);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STORE.
+//  
+
+static gen_estore( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+	gen_start(action, request->req_primary);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate end-if for AT_END if statement
+//  
+
+static gen_end_fetch( ACT action)
+{
+
+	printa(names[COLUMN], FALSE, "END-IF");
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  
+
+static gen_endfor( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+
+	if (request->req_sync)
+		gen_send(action, request->req_sync);
+	gen_receive(action, request->req_primary);
+	printa(names[COLUMN], FALSE, "END-PERFORM");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for ERASE.
+//  
+
+static gen_erase( ACT action)
+{
+	UPD erase;
+
+	erase = (UPD) action->act_object;
+	gen_send(action, erase->upd_port);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate event parameter blocks for use
+//		with a particular call to isc_event_wait.
+//  
+
+static SSHORT gen_event_block( ACT action)
+{
+	NOD init, list;
+	int ident;
+
+	init = (NOD) action->act_object;
+
+	ident = CMP_next_ident();
+	init->nod_arg[2] = (NOD) ident;
+
+	printa(names[COLUMN_0], FALSE, "01  %s%dA PIC S9(9) USAGE COMP.",
+		   names[ISC_], ident);
+	printa(names[COLUMN_0], FALSE, "01  %s%dB PIC S9(9) USAGE COMP.",
+		   names[ISC_], ident);
+	printa(names[COLUMN_0], FALSE, "01  %s%dL PIC S9(4) USAGE COMP.",
+		   names[ISC_], ident);
+
+	list = init->nod_arg[1];
+
+	return list->nod_count;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for EVENT_INIT.
+//  
+
+static gen_event_init( ACT action)
+{
+	NOD init, event_list, *ptr, *end, node;
+	REF reference;
+	PAT args;
+	TEXT variable[20];
+	SSHORT column, count;
+#ifdef GIVING_SUPPORTED
+	TEXT *pattern1 =
+		"CALL \"%S1\" USING %RF%S4%N1A%RE, %RF%S4%N1B%RE, %VF%N2%VE, %RF%S6%RE GIVING %S4%N1L";
+#else
+	TEXT *pattern1 =
+		"CALL \"%S1\" USING %RF%S4%N1A%RE, %RF%S4%N1B%RE, %VF%N2%VE, %RF%S6%RE, %RF%S4%N1L%RE";
+#endif
+	TEXT *pattern2 =
+		"CALL \"%S2\" USING %V1, %RF%DH%RE, %VF%S4%N1L%VE, %VF%S4%N1A%VE, %VF%S4%N1B%VE";
+	TEXT *pattern3 =
+		"CALL \"%S3\" USING %S5, %VF%S4%N1L%VE, %VF%S4%N1A%VE, %VF%S4%N1B%VE";
+
+#ifdef GIVING_SUPPORTED
+#define EVENT_MOVE_TEMPLATE	"CALL \"%s\" USING %s(%d) GIVING %s(%d)"
+#else
+#define EVENT_MOVE_TEMPLATE	"CALL \"%s\" USING %s(%d), %s(%d)"
+#endif
+
+	init = (NOD) action->act_object;
+	event_list = init->nod_arg[1];
+
+	column = strlen(names[COLUMN]);
+
+	args.pat_database = (DBB) init->nod_arg[3];
+	args.pat_vector1 = status_vector(action);
+	args.pat_value1 = (int) init->nod_arg[2];
+	args.pat_value2 = (int) event_list->nod_count;
+	args.pat_string1 = ISC_EVENT_BLOCK;
+	args.pat_string2 = ISC_EVENT_WAIT;
+	args.pat_string3 = ISC_EVENT_COUNTS;
+	args.pat_string4 = names[ISC_];
+	args.pat_string5 = names[ISC_EVENTS_VECTOR];
+	args.pat_string6 = names[ISC_EVENT_NAMES_VECTOR];
+
+//  generate call to dynamically generate event blocks 
+
+	for (ptr = event_list->nod_arg, count = 0, end =
+		 ptr + event_list->nod_count; ptr < end; ptr++) {
+		count++;
+		node = *ptr;
+		if (node->nod_type == nod_field) {
+			reference = (REF) node->nod_arg[0];
+			gen_name(variable, reference, TRUE);
+			printa(names[COLUMN], FALSE, "MOVE %s TO %s(%d)", variable,
+				   names[ISC_EVENT_NAMES2], count);
+		}
+		else
+			printa(names[COLUMN], FALSE, "MOVE %s TO %s(%d)",
+				   node->nod_arg[0], names[ISC_EVENT_NAMES2], count);
+
+		printa(names[COLUMN], TRUE, EVENT_MOVE_TEMPLATE, ISC_BADDRESS,
+			   names[ISC_EVENT_NAMES2], count, names[ISC_EVENT_NAMES], count);
+	}
+
+	PATTERN_expand(column, pattern1, &args);
+
+//  generate actual call to event_wait 
+
+	PATTERN_expand(column, pattern2, &args);
+
+//  get change in event counts, copying event parameter block for reuse 
+
+	PATTERN_expand(column, pattern3, &args);
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for EVENT_WAIT.
+//  
+
+static gen_event_wait( ACT action)
+{
+	PAT args;
+	NOD event_init;
+	SYM event_name, stack_name;
+	DBB database;
+	LLS stack_ptr;
+	ACT event_action;
+	SSHORT column;
+	int ident;
+	TEXT s[64];
+	TEXT *pattern1 =
+		"CALL \"%S2\" USING %V1, %RF%DH%RE, %VF%S4%N1L%VE, %VF%S4%N1A%VE, %VF%S4%N1B%VE";
+	TEXT *pattern2 =
+		"CALL \"%S3\" USING %S5, %VF%S4%N1L%VE, %VF%S4%N1A%VE, %VF%S4%N1B%VE";
+
+	event_name = (SYM) action->act_object;
+
+//  go through the stack of events, checking to see if the
+//  event has been initialized and getting the event identifier 
+
+	ident = -1;
+	for (stack_ptr = events; stack_ptr; stack_ptr = stack_ptr->lls_next) {
+		event_action = (ACT) stack_ptr->lls_object;
+		event_init = (NOD) event_action->act_object;
+		stack_name = (SYM) event_init->nod_arg[0];
+		if (!strcmp(event_name->sym_string, stack_name->sym_string)) {
+			ident = (int) event_init->nod_arg[2];
+			database = (DBB) event_init->nod_arg[3];
+		}
+	}
+
+	if (ident < 0) {
+		sprintf(s, "event handle \"%s\" not found", event_name->sym_string);
+		return IBERROR(s);
+	}
+
+	column = strlen(names[COLUMN]);
+
+	args.pat_database = database;
+	args.pat_vector1 = status_vector(action);
+	args.pat_value1 = (int) ident;
+	args.pat_string2 = ISC_EVENT_WAIT;
+	args.pat_string3 = ISC_EVENT_COUNTS;
+	args.pat_string4 = names[ISC_];
+	args.pat_string5 = names[ISC_EVENTS_VECTOR];
+
+//  generate calls to wait on the event and to fill out the events array 
+
+	PATTERN_expand(column, pattern1, &args);
+	PATTERN_expand(column, pattern2, &args);
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate replacement text for the SQL FETCH statement.  The
+//		epilog FETCH statement is handled by GEN_S_FETCH (generate
+//		stream fetch).
+//  
+
+static gen_fetch( ACT action)
+{
+	REQ request;
+	NOD var_list;
+	POR port;
+	REF reference;
+	VAL value;
+	int i;
+	SCHAR s[20], *direction, *offset;
+
+	request = action->act_request;
+
+#ifdef SCROLLABLE_CURSORS
+	if (port = request->req_aport) {
+		/* set up the reference to point to the correct value 
+		   in the linked list of values, and prepare for the 
+		   next FETCH statement if applicable */
+
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) {
+			value = reference->ref_values;
+			reference->ref_value = value->val_value;
+			reference->ref_values = value->val_next;
+		}
+
+		/* find the direction and offset parameters */
+
+		reference = port->por_references;
+		offset = reference->ref_value;
+		reference = reference->ref_next;
+		direction = reference->ref_value;
+
+		/* the direction in which the engine will scroll is sticky, so check to see 
+		   the last direction passed to the engine; if the direction is the same and 
+		   the offset is 1, then there is no need to pass the message; this prevents 
+		   extra packets and allows for batch fetches in either direction */
+
+		printa(names[COLUMN], FALSE,
+			   "IF %s%dDI MOD 2 NOT = %s || %s NOT = 1 THEN", names[ISC_],
+			   request->req_ident, direction, offset);
+
+		/* assign the direction and offset parameters to the appropriate message, 
+		   then send the message to the engine */
+
+		asgn_from(action, port->por_references);
+		gen_send(action, port);
+		printa(names[COLUMN], FALSE, "MOVE %s TO %s%dDI",
+			   names[ISC_], direction, request->req_ident);
+		printa(names[COLUMN], FALSE, "END-IF");
+
+		printa(names[COLUMN], FALSE, "IF SQLCODE NOT = 0 THEN");
+	}
+#endif
+
+	if (request->req_sync)
+		gen_send(action, request->req_sync);
+
+	gen_receive(action, request->req_primary);
+	printa(names[COLUMN], FALSE,
+		   "IF %s NOT =  0 THEN", gen_name(s, request->req_eof, TRUE));
+	printa(names[COLUMN], FALSE, "MOVE 0 TO SQLCODE");
+	if (var_list = (NOD) action->act_object)
+		for (i = 0; i < var_list->nod_count; i++) {
+			asgn_to(action, var_list->nod_arg[i]);
+		}
+	printa(names[COLUMN], FALSE, "ELSE");
+	printa(names[COLUMN], FALSE, "MOVE 100 TO SQLCODE");
+	printa(names[COLUMN], FALSE, "END-IF");
+
+#ifdef SCROLLABLE_CURSORS
+	if (port)
+		printa(names[COLUMN], FALSE, "END-IF");
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FINISH
+//  
+
+static gen_finish( ACT action)
+{
+	DBB db;
+	RDY ready;
+#ifdef VMS
+#define COMMIT		"COMMIT"
+#define ROLLBACK	"ROLLBACK"
+#else
+#define COMMIT		"commit"
+#define ROLLBACK	"rollback"
+#endif
+
+	if (sw_auto || ((action->act_flags & ACT_sql) &&
+					(action->act_type != ACT_disconnect))) {
+		printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN", names[ISC_TRANS]);
+		printa(names[COLUMN], TRUE,
+			   "    CALL \"%s\" USING %s, %s%s",
+			   (action->act_type !=
+				ACT_rfinish) ? ISC_COMMIT_TRANSACTION :
+			   ISC_ROLLBACK_TRANSACTION, status_vector(action), BY_REF,
+			   names[ISC_TRANS]);
+		printa(names[COLUMN], FALSE, "END-IF");
+	}
+
+//  the user may have supplied one or more handles 
+
+	db = NULL;
+	for (ready = (RDY) action->act_object; ready; ready = ready->rdy_next) {
+		db = ready->rdy_database;
+		printa(names[COLUMN], FALSE,
+			   "IF %s NOT = 0 THEN", db->dbb_name->sym_string);
+		printa(names[COLUMN], TRUE,
+			   "CALL \"%s\" USING %s, %s%s",
+			   ISC_DETACH_DATABASE,
+			   status_vector(action), BY_REF, db->dbb_name->sym_string);
+		printa(names[COLUMN], FALSE, "END-IF");
+	}
+
+//  no handles, so finish all known databases 
+
+	if (!db)
+		for (db = isc_databases; db; db = db->dbb_next) {
+			printa(names[COLUMN], FALSE,
+				   "IF %s NOT = 0 THEN", db->dbb_name->sym_string);
+			printa(names[COLUMN], TRUE,
+				   "CALL \"%s\" USING %s, %s%s",
+				   ISC_DETACH_DATABASE,
+				   status_vector(action), BY_REF, db->dbb_name->sym_string);
+			printa(names[COLUMN], FALSE, "END-IF");
+		}
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FOR statement.
+//  
+
+static gen_for( ACT action)
+{
+	REQ request;
+	TEXT s[20];
+	REF reference;
+	POR port;
+
+	gen_s_start(action);
+	request = action->act_request;
+	gen_receive(action, request->req_primary);
+	printa(names[COLUMN], FALSE, "PERFORM UNTIL %s = 0",
+		   gen_name(s, request->req_eof, TRUE));
+
+	if (port = action->act_request->req_primary)
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, TRUE);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form interaction.
+//  
+
+static gen_form_display( ACT action)
+{
+	FINT display;
+	REQ request;
+	REF reference, master;
+	POR port;
+	DBB dbb;
+	TEXT s[32], out[16];
+	int code;
+
+	display = (FINT) action->act_object;
+	request = display->fint_request;
+	dbb = request->req_database;
+	port = request->req_ports;
+
+//  Initialize field options 
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next)
+			if ((master = reference->ref_master) &&
+				(code = CMP_display_code(display, master)) >= 0)
+			printa(names[COLUMN], FALSE,
+				   "MOVE %d TO %s", code, gen_name(s, reference, TRUE));
+
+
+	if (display->fint_flags & FINT_no_wait)
+		strcpy(out, "0");
+	else
+		sprintf(out, "%s%d", names[isc_], port->por_ident);
+
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%s, %s%s, %s%s, %s%s%d, %s%s",
+		   PYXIS_DRIVE_FORM,
+		   status_vector(action),
+		   BY_REF, dbb->dbb_name->sym_string,
+		   BY_REF, request->req_trans,
+		   BY_REF, names[ISC_WINDOW],
+		   BY_REF, request->req_handle,
+		   BY_REF, names[ISC_], port->por_ident, BY_REF, out);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form block.
+//  
+
+static gen_form_end( ACT action)
+{
+
+	printa(names[COLUMN], TRUE, "CALL \"%s\" USING %s%s",
+		   PYXIS_POP_WINDOW, BY_REF, names[ISC_WINDOW]);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a function for free standing ANY or statistical.
+//  
+
+static int gen_function( ACT function)
+{
+	REQ request;
+	POR port;
+	REF reference;
+	FLD field;
+	ACT action;
+	TEXT *dtype, s[64];
+
+	action = (ACT) function->act_object;
+
+	if (action->act_type != ACT_any) {
+		IBERROR("can't generate function");
+		return;
+	}
+
+	request = action->act_request;
+
+	ib_fprintf(out_file, "static %s_r (request, transaction",
+			   request->req_handle, request->req_handle, request->req_trans);
+
+	if (port = request->req_vport)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next)
+				ib_fprintf(out_file, ", %s",
+						   gen_name(s, reference->ref_source, TRUE));
+
+	ib_fprintf(out_file,
+			   ")\n    isc_req_handle\trequest;\n    isc_tr_handle\ttransaction;\n",
+			   request->req_handle, request->req_trans);
+
+	if (port)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) {
+			field = reference->ref_field;
+			switch (field->fld_dtype) {
+			case dtype_short:
+				dtype = "short";
+				break;
+
+			case dtype_long:
+				dtype = "long";
+				break;
+
+			case dtype_cstring:
+			case dtype_text:
+				dtype = "char*";
+				break;
+
+			case dtype_quad:
+				dtype = "ISC_QUAD";
+				break;
+
+			case dtype_date:
+			case dtype_blob:
+				dtype = "ISC_QUAD";
+				break;
+
+			case dtype_real:
+				dtype = "float";
+				break;
+
+			case dtype_double:
+				dtype = "double";
+				break;
+
+			default:
+				IBERROR("gen_function: unsupported datatype");
+				return;
+			}
+			ib_fprintf(out_file, "    %s\t%s;\n", dtype,
+					   gen_name(s, reference->ref_source, TRUE));
+		}
+
+	ib_fprintf(out_file, "{\n");
+	for (port = request->req_ports; port; port = port->por_next)
+		make_port(port);
+
+	ib_fprintf(out_file, "\n\n");
+	gen_s_start(action);
+	gen_receive(action, request->req_primary);
+
+	for (port = request->req_ports; port; port = port->por_next)
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, TRUE);
+
+	port = request->req_primary;
+	ib_fprintf(out_file, "\nreturn %s;\n}\n",
+			   gen_name(s, port->por_references, TRUE));
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form block.
+//  
+
+static gen_form_for( ACT action)
+{
+	REQ request;
+	FORM form;
+	DBB dbb;
+	TEXT s[64];
+
+	request = action->act_request;
+	form = request->req_form;
+	dbb = request->req_database;
+
+//  Get database attach and transaction started 
+
+	if (sw_auto)
+		t_start_auto(0, status_vector(action), action, TRUE);
+
+//  Get form loaded first 
+
+	printa(names[COLUMN], FALSE, "IF %s = 0 THEN", request->req_form_handle);
+
+#ifndef VMS
+	sprintf(s, "%s%sFN", BY_REF, request->req_form_handle);
+#else
+	sprintf(s, "\'%s\'", form->form_name->sym_string);
+#endif
+
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%s, %s%s, %s%sFL, %s",
+		   PYXIS_LOAD_FORM,
+		   status_vector(action),
+		   BY_REF, dbb->dbb_name->sym_string,
+		   BY_REF, request->req_trans,
+		   BY_REF, request->req_form_handle,
+		   BY_REF, request->req_form_handle, s);
+	printa(names[COLUMN], FALSE, "END-IF");
+
+//  Get map compiled 
+
+	printa(names[COLUMN], FALSE, "IF %s = 0 THEN", request->req_handle);
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%s, %s%s%dL, %s%s%d",
+		   PYXIS_COMPILE_MAP,
+		   status_vector(action),
+		   BY_REF, request->req_form_handle,
+		   BY_REF, request->req_handle,
+		   BY_REF, names[isc_], request->req_ident,
+		   BY_REF, names[ISC_], request->req_ident);
+	printa(names[COLUMN], FALSE, "END-IF");
+
+//  Reset form to known state 
+
+	printa(names[COLUMN], TRUE, "CALL \"%s\" USING %s, %s%s",
+		   PYXIS_RESET_FORM,
+		   status_vector(action), BY_REF, request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to isc_get_slice
+//		or isc_put_slice for an array.
+//  
+
+static gen_get_or_put_slice( ACT action, REF reference, BOOLEAN get)
+{
+	int column;
+	PAT args;
+	TEXT s1[25], s2[10], s4[10];
+	TEXT *pattern1 =
+		"CALL \"%S7\" USING %V1, %RF%DH%RE, %RF%S1%RE, %RF%S2%RE, %VF%N1%VE, %RF%S3%RE, %VF%N2%VE, %VF%S4%VE, %VF%L1%VE, %RF%S5%RE, %RF%S6%RE";
+	TEXT *pattern2 =
+		"CALL \"%S7\" USING %V1, %RF%DH%RE, %RF%S1%RE, %RF%S2%RE, %VF%N1%VE, %RF%S3%RE, %VF%N2%VE, %VF%S4%VE, %VF%L1%VE, %RF%S5%RE";
+
+	if (!(reference->ref_flags & REF_fetch_array))
+		return;
+
+	column = strlen(names[COLUMN]);
+
+	args.pat_condition = get;	/*  get or put slice */
+	args.pat_vector1 = status_vector(action);	/*  status vector  */
+	args.pat_database = action->act_request->req_database;	/* database handle */
+	args.pat_string1 = action->act_request->req_trans;	/*  transaction handle */
+
+	gen_name(s1, reference, TRUE);	/*  blob handle  */
+	args.pat_string2 = s1;
+
+	args.pat_value1 = reference->ref_sdl_length;	/*  slice descr length */
+
+	sprintf(s2, "%s%d", names[ISC_], reference->ref_sdl_ident);	/*  slice description  */
+	args.pat_string3 = s2;
+
+	args.pat_value2 = 0;		/*  parameter length  */
+
+	args.pat_string4 = "0";		/*  parameter  */
+
+	args.pat_long1 = reference->ref_field->fld_array_info->ary_size;
+	/*  slice size  */
+	if (action->act_flags & ACT_sql) {
+		args.pat_string5 = reference->ref_value;
+	}
+	else {
+		sprintf(s4, "%s%dL", names[ISC_],
+				reference->ref_field->fld_array_info->ary_ident);
+		args.pat_string5 = s4;	/*  array name  */
+	}
+
+	args.pat_string6 = names[ISC_ARRAY_LENGTH];	/*  return length */
+	args.pat_string7 = (get) ? ISC_GET_SLICE : ISC_PUT_SLICE;
+
+	PATTERN_expand(column, (get) ? pattern1 : pattern2, &args);
+	ib_fprintf(out_file, "\n");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the code to do a get segment.
+//  
+
+static gen_get_segment( ACT action)
+{
+	BLB blob;
+	REF into;
+	TEXT buffer[128];
+
+#ifdef GIVING_SUPPORTED
+#define GET_SEG_CALL_TEMPLATE	"%sCALL \"%s\" USING %s, %s%d, %s%d, %s%d%s, %s%s%d GIVING %s (2)\n"
+#else
+#define GET_SEG_CALL_TEMPLATE	"%sCALL \"%s\" USING %s, %s%d, %s%d, %s%d%s, %s%s%d\n"
+#endif
+
+	if (action->act_flags & ACT_sql)
+		blob = (BLB) action->act_request->req_blobs;
+	else
+		blob = (BLB) action->act_object;
+
+	strcpy(buffer, GET_SEG_CALL_TEMPLATE);
+	sprintf(output_buffer,
+			buffer,
+			names[COLUMN],
+			ISC_GET_SEGMENT,
+			names[ISC_STATUS_VECTOR],
+			names[ISC_], blob->blb_ident,
+			names[ISC_], blob->blb_len_ident,
+			BY_VALUE, blob->blb_seg_length, END_VALUE,
+			BY_REF, names[ISC_], blob->blb_buff_ident, names[ISC_STATUS]);
+
+	COB_print_buffer(output_buffer, TRUE);
+
+	if (action->act_flags & ACT_sql) {
+		into = action->act_object;
+		set_sqlcode(action);
+		printa(names[COLUMN], FALSE, "IF SQLCODE = 0 OR SQLCODE = 101 THEN ");
+		printa(names[COLUMN], FALSE, "MOVE ISC-%d TO %s",
+			   blob->blb_buff_ident, into->ref_value);
+		if (into->ref_null_value)
+			printa(names[COLUMN], FALSE, "MOVE ISC-%d TO %s",
+				   blob->blb_len_ident, into->ref_null_value);
+		printa(names[COLUMN], FALSE, "END-IF");
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate end of block for PUT_ITEM and FOR_ITEM.
+//  
+
+static gen_item_end( ACT action)
+{
+	REQ request;
+	REF reference;
+	POR port;
+	DBB dbb;
+	TEXT s[32], index[16];
+
+	request = action->act_request;
+
+	if (request->req_type == REQ_menu) {
+		gen_menu_item_end(action);
+		return;
+	}
+
+	if (action->act_pair->act_type == ACT_item_for) {
+		gen_name(index, request->req_index, TRUE);
+		printa(names[COLUMN], FALSE, "COMPUTE %s = %s + 1", index, index);
+		printa(names[COLUMN], TRUE,
+			   "CALL \"%s\" USING %s, %s%s, %s%s, %s%s, %s%s%d",
+			   PYXIS_FETCH,
+			   status_vector(action),
+			   BY_REF, request->req_database->dbb_name->sym_string,
+			   BY_REF, request->req_trans,
+			   BY_REF, request->req_handle,
+			   BY_REF, names[ISC_], request->req_ports->por_ident);
+		printa(names[COLUMN], FALSE, "END-PERFORM");
+		return;
+	}
+
+	dbb = request->req_database;
+	port = request->req_ports;
+
+//  Initialize field options 
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) if (reference->ref_master)
+			printa(names[COLUMN], FALSE,
+				   "MOVE %d TO %s", PYXIS__OPT_DISPLAY,
+				   gen_name(s, reference, TRUE));
+
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%s, %s%s, %s%s%d",
+		   PYXIS_INSERT,
+		   status_vector(action),
+		   BY_REF, dbb->dbb_name->sym_string,
+		   BY_REF, request->req_trans,
+		   BY_REF, request->req_handle, BY_REF, names[ISC_], port->por_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insert text for FOR_ITEM and PUT_ITEM.
+//  
+
+static gen_item_for( ACT action)
+{
+	REQ request, parent;
+	FORM form;
+	TEXT index[30];
+
+	request = action->act_request;
+
+	if (request->req_type == REQ_menu) {
+		gen_menu_item_for(action);
+		return;
+	}
+
+	form = request->req_form;
+	parent = form->form_parent;
+
+//  Get map compiled 
+
+	printa(names[COLUMN], FALSE, "IF %s = 0 THEN", request->req_handle);
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%s, %s%s%dL, %s%s%d",
+		   PYXIS_COMPILE_SUB_MAP,
+		   status_vector(action),
+		   BY_REF, parent->req_handle,
+		   BY_REF, request->req_handle,
+		   BY_REF, names[ISC_], request->req_ident,
+		   BY_REF, names[ISC_], request->req_ident);
+	printa(names[COLUMN], FALSE, "END-IF");
+
+	if (action->act_type != ACT_item_for)
+		return;
+
+//  Build stuff for item loop 
+
+	gen_name(index, request->req_index, TRUE);
+	printa(names[COLUMN], FALSE, "MOVE 1 TO %s", index);
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%s, %s%s, %s%s%d",
+		   PYXIS_FETCH,
+		   status_vector(action),
+		   BY_REF, request->req_database->dbb_name->sym_string,
+		   BY_REF, request->req_trans,
+		   BY_REF, request->req_handle,
+		   BY_REF, names[ISC_], request->req_ports->por_ident);
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(names[COLUMN], FALSE, "IF %s(2) = 0 THEN", names[ISC_STATUS]);
+	printa(names[COLUMN], FALSE, "PERFORM UNTIL %s = 0", index);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile and start a SQL mass update. 
+//		
+//  
+
+static gen_loop( ACT action)
+{
+	REQ request;
+	POR port;
+	TEXT name[20];
+
+	gen_s_start(action);
+	request = action->act_request;
+	printa(names[COLUMN], FALSE, "IF SQLCODE = 0 THEN");
+	port = request->req_primary;
+	gen_receive(action, port);
+	gen_name(name, port->por_references, TRUE);
+	printa(names[COLUMN], FALSE, "IF SQLCODE = 0 AND %s = 0 THEN ", name);
+	printa(names[COLUMN], FALSE, "MOVE 100 TO SQLCODE");
+	printa(names[COLUMN], FALSE, "END-IF");
+	printa(names[COLUMN], FALSE, "END-IF");
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static gen_menu( ACT action)
+{
+	REQ request;
+
+	TEXT buffer[128];
+
+#ifdef GIVING_SUPPORTED
+#define PYXIS_MENU_CALL_TEMPLATE	"CALL \"%s\" USING %s, %s, %s%dL, %s%d GIVING %sS "
+#else
+#define PYXIS_MENU_CALL_TEMPLATE	"CALL \"%s\" USING %s, %s, %s%dL, %s%d BY REFERENCE %sS "
+#endif
+
+	request = action->act_request;
+	strcpy(buffer, PYXIS_MENU_CALL_TEMPLATE);
+	printa(names[COLUMN], TRUE,
+		   buffer,
+		   PYXIS_MENU,
+		   names[ISC_WINDOW],
+		   request->req_handle,
+		   names[ISC_], request->req_ident,
+		   names[ISC_], request->req_ident, request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a menu interaction.
+//  
+
+static gen_menu_display( ACT action)
+{
+	MENU menu;
+	REQ request, display_request;
+
+	request = action->act_request;
+	display_request = (REQ) action->act_object;
+
+	menu = NULL;
+
+	for (action = request->req_actions; action; action = action->act_next)
+		if (action->act_type == ACT_menu_for) {
+			menu = (MENU) action->act_object;
+			break;
+		}
+
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s%s, %s%s, %s%s%dL, %s%s%d, %s%s%dL, %s%s%d,",
+		   PYXIS_DRIVE_MENU,
+		   BY_REF, names[ISC_WINDOW],
+		   BY_REF, request->req_handle,
+		   BY_REF, names[ISC_], display_request->req_ident,
+		   BY_REF, names[ISC_], display_request->req_ident,
+		   BY_REF, names[ISC_], menu->menu_title,
+		   BY_REF, names[ISC_], menu->menu_title);
+
+	printa(names[CONTINUE], TRUE,
+		   "%s%s%d, %s%s%dL, %s%s%d, %s%s%d",
+		   BY_REF, names[ISC_], menu->menu_terminator,
+		   BY_REF, names[ISC_], menu->menu_entree_entree,
+		   BY_REF, names[ISC_], menu->menu_entree_entree,
+		   BY_REF, names[ISC_], menu->menu_entree_value);
+
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static gen_menu_end( ACT action)
+{
+
+	REQ request;
+
+	request = action->act_request;
+	if (request->req_flags & REQ_menu_for)
+		return;
+
+	printa(names[COLUMN], FALSE, "END-IF");
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static gen_menu_entree( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+
+	if (!(action->act_flags & ACT_first_entree))
+		printa(names[COLUMN], FALSE, "END-IF");
+	printa(names[COLUMN], FALSE,
+		   "IF %sS = %d THEN", request->req_handle, action->act_count);
+}
+
+
+//____________________________________________________________
+//  
+//  
+//    Generate code for a reference to a menu or entree attribute.
+
+static gen_menu_entree_att( ACT action)
+{
+	MENU menu;
+	SSHORT ident, length;
+
+	menu = (MENU) action->act_object;
+
+	length = FALSE;
+	switch (action->act_type) {
+	case ACT_entree_text:
+		ident = menu->menu_entree_entree;
+		break;
+	case ACT_entree_length:
+		ident = menu->menu_entree_entree;
+		length = TRUE;
+		break;
+	case ACT_entree_value:
+		ident = menu->menu_entree_value;
+		break;
+	case ACT_title_text:
+		ident = menu->menu_title;
+		break;
+	case ACT_title_length:
+		ident = menu->menu_title;
+		length = TRUE;
+		break;
+	case ACT_terminator:
+		ident = menu->menu_terminator;
+		break;
+	default:
+		ident = -1;
+		break;
+	}
+
+	if (length)
+		ib_fprintf(out_file, "%s%s%dL", names[COLUMN], names[isc_], ident);
+	else
+		ib_fprintf(out_file, "%s%s%d", names[COLUMN], names[ISC_], ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a menu block.
+//  
+
+static gen_menu_for( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+
+//  Get menu created 
+
+	if (!(request->req_flags & REQ_exp_hand))
+		printa(names[COLUMN], TRUE, "CALL \"%s\" USING %s%s",
+			   PYXIS_INITIALIZE_MENU, BY_REF, request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate end of block for PUT_ITEM and FOR_ITEM
+//		for a dynamic menu.
+//  
+
+static gen_menu_item_end( ACT action)
+{
+	REQ request;
+	ENTREE entree;
+
+	entree = (ENTREE) action->act_pair->act_object;
+	request = entree->entree_request;
+
+	if (action->act_pair->act_type == ACT_item_for) {
+		printa(names[COLUMN], TRUE,
+			   "CALL \"%s\" USING %s%s, %s%s%dL, %s%s%d, %s%s%d, %s%s%d",
+			   PYXIS_GET_ENTREE,
+			   BY_REF, request->req_handle,
+			   BY_REF, names[ISC_], entree->entree_entree,
+			   BY_REF, names[ISC_], entree->entree_entree,
+			   BY_REF, names[ISC_], entree->entree_value,
+			   BY_REF, names[ISC_], entree->entree_end);
+
+		printa(names[COLUMN], FALSE, "END-PERFORM");
+		return;
+	}
+
+	printa(names[COLUMN],
+		   TRUE,
+		   "CALL \"%s\" USING %s%s, %s%s%dL, %s%s%d, %s%s%d",
+		   PYXIS_PUT_ENTREE,
+		   BY_REF, request->req_handle,
+		   BY_REF, names[ISC_], entree->entree_entree,
+		   BY_REF, names[ISC_], entree->entree_entree,
+		   BY_REF, names[ISC_], entree->entree_value);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insert text for FOR_ITEM and PUT_ITEM
+//		for a dynamic menu.
+//  
+
+static gen_menu_item_for( ACT action)
+{
+	ENTREE entree;
+	REQ request;
+
+	if (action->act_type != ACT_item_for)
+		return;
+
+//  Build stuff for item loop 
+
+	entree = (ENTREE) action->act_object;
+	request = entree->entree_request;
+
+	printa(names[COLUMN],
+		   TRUE,
+		   "CALL \"%s\" USING %s%s, %s%s%dL, %s%s%d, %s%s%d, %s%s%d",
+		   PYXIS_GET_ENTREE,
+		   BY_REF, request->req_handle,
+		   BY_REF, names[ISC_], entree->entree_entree,
+		   BY_REF, names[ISC_], entree->entree_entree,
+		   BY_REF, names[ISC_], entree->entree_value,
+		   BY_REF, names[ISC_], entree->entree_end);
+
+	printa(names[COLUMN], FALSE, "PERFORM UNTIL %s%d NOT = 0",
+		   names[ISC_], entree->entree_end);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a dynamic menu request.
+//  
+
+static gen_menu_request( REQ request)
+{
+	ACT action;
+	MENU menu;
+	ENTREE entree;
+
+	menu = NULL;
+	entree = NULL;
+
+	for (action = request->req_actions; action; action = action->act_next) {
+		if (action->act_type == ACT_menu_for) {
+			menu = (MENU) action->act_object;
+			break;
+		}
+		else if ((action->act_type == ACT_item_for)
+				 || (action->act_type == ACT_item_put)) {
+			entree = (ENTREE) action->act_object;
+			break;
+		}
+	}
+
+	if (menu) {
+		menu->menu_title = CMP_next_ident();
+		menu->menu_terminator = CMP_next_ident();
+		menu->menu_entree_value = CMP_next_ident();
+		menu->menu_entree_entree = CMP_next_ident();
+		printa(names[COLUMN_0], FALSE, "01  %%dL PIC S9(4) USAGE IS COMP.",
+			   names[ISC_], menu->menu_title);
+		printa(names[COLUMN_0], FALSE, "01  %%d PIC X(81).",
+			   names[ISC_], menu->menu_title);
+		printa(names[COLUMN_0], FALSE, "01  %%d PIC S9(4) USAGE IS COMP.",
+			   names[ISC_], menu->menu_terminator);
+		printa(names[COLUMN_0], FALSE, "01  %%dL PIC S9(4) USAGE IS COMP.",
+			   names[ISC_], menu->menu_entree_entree);
+		printa(names[COLUMN_0], FALSE, "01  %%d PIC X(81).",
+			   names[ISC_], menu->menu_entree_entree);
+		printa(names[COLUMN_0], FALSE, "01  %%d PIC S9(9) USAGE IS COMP.",
+			   names[ISC_], menu->menu_entree_value);
+	}
+
+	if (entree) {
+		entree->entree_entree = CMP_next_ident();
+		entree->entree_value = CMP_next_ident();
+		entree->entree_end = CMP_next_ident();
+		printa(names[COLUMN_0], FALSE, "01  %s%dL PIC S9(4) USAGE IS COMP.",
+			   names[ISC_], entree->entree_entree);
+		printa(names[COLUMN_0], FALSE, "01  %s%d PIC X(81).",
+			   names[ISC_], entree->entree_entree);
+		printa(names[COLUMN_0], FALSE, "01  %s%d PIC S9(9) USAGE IS COMP.",
+			   names[ISC_], entree->entree_value);
+		printa(names[COLUMN_0], FALSE, "01  %s%d PIC S9(4) USAGE IS COMP.",
+			   names[ISC_], entree->entree_end);
+	}
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a name for a reference.  Name is constructed from
+//		port and parameter idents.
+//  
+
+static TEXT *gen_name( TEXT * string, REF reference, BOOLEAN as_blob)
+{
+
+	if (reference->ref_field->fld_array_info && !as_blob)
+		sprintf(string, "%s%d", names[ISC_],
+				reference->ref_field->fld_array_info->ary_ident);
+	else
+		sprintf(string, "%s%d", names[isc_], reference->ref_ident);
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a block to handle errors.
+//  
+
+static gen_on_error( ACT action)
+{
+
+	printa(names[COLUMN], FALSE, "IF %s (2) NOT = 0 THEN", names[ISC_STATUS]);
+	ib_fprintf(out_file, names[COLUMN]);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for an EXECUTE PROCEDURE.
+//  
+
+static gen_procedure( ACT action)
+{
+	PAT args;
+	TEXT *pattern;
+	REQ request;
+	POR in_port, out_port;
+	DBB dbb;
+	USHORT column;
+
+	request = action->act_request;
+	in_port = request->req_vport;
+	out_port = request->req_primary;
+
+	dbb = request->req_database;
+	args.pat_database = dbb;
+	args.pat_request = action->act_request;
+	args.pat_vector1 = status_vector(action);
+	args.pat_request = request;
+	args.pat_port = in_port;
+	args.pat_port2 = out_port;
+#ifndef VMS
+	if (in_port && in_port->por_length)
+		pattern =
+			"CALL \"isc_transact_request\" USING %V1, %RF%DH%RE, %RF%RT%RE, %VF%RS%VE, %RF%RI%RE, %VF%PL%VE, %RF%PI%RE, %VF%QL%VE, %RF%QI%RE\n";
+	else
+		pattern =
+			"CALL \"isc_transact_request\" USING %V1, %RF%DH%RE, %RF%RT%RE, %VF%RS%VE, %RI, %VF0%VE, 0, %VF%QL%VE, %RF%QI%RE\n";
+#else
+	if (in_port && in_port->por_length)
+		pattern =
+			"CALL \"isc_transact_request\" USING %V1, %RF%DH%RE, %RF%RT%RE, %VF%RS%VE, %RF%RI%RE, %VF%PL%VE, %RF%PI%RE, %VF%QL%VE, %RF%QI%RE\n";
+	else
+		pattern =
+			"CALL \"isc_transact_request\" USING %V1, %RF%DH%RE, %RF%RT%RE, %VF%RS%VE, %RI, %VF0%VE, 0, %VF%QL%VE, %RF%QI%RE\n";
+#endif
+
+//  Get database attach and transaction started 
+
+	if (sw_auto)
+		t_start_auto(0, status_vector(action), action, TRUE);
+
+//  Move in input values 
+
+	asgn_from(action, request->req_values);
+
+//  Execute the procedure 
+
+	column = strlen(names[COLUMN]);
+	PATTERN_expand(column, pattern, &args);
+
+	set_sqlcode(action);
+
+	printa(names[COLUMN], FALSE, "IF SQLCODE = 0 THEN");
+
+//  Move out output values 
+
+	asgn_to_proc(request->req_references);
+	printa(names[COLUMN], FALSE, "END-IF");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the code to do a put segment.
+//  
+
+static gen_put_segment( ACT action)
+{
+	BLB blob;
+	REF from;
+	TEXT buffer[128];
+
+#ifdef GIVING_SUPPORTED
+#define PUT_SEG_CALL_TEMPLATE	"%sCALL \"%s\" USING %s, %s%s%d, %s%s%d%s, %s%s%d GIVING %s (2)\n"
+#else
+#define PUT_SEG_CALL_TEMPLATE	"%sCALL \"%s\" USING %s, %s%s%d, %s%s%d%s, %s%s%d\n"
+#endif
+
+	if (action->act_flags & ACT_sql) {
+		blob = (BLB) action->act_request->req_blobs;
+		from = action->act_object;
+		printa(names[COLUMN], FALSE, "MOVE %s TO ISC-%d",
+			   from->ref_value, blob->blb_buff_ident);
+		printa(names[COLUMN], FALSE, "MOVE %s TO ISC-%d",
+			   from->ref_null_value, blob->blb_len_ident);
+	}
+	else
+		blob = (BLB) action->act_object;
+
+	strcpy(buffer, PUT_SEG_CALL_TEMPLATE);
+	sprintf(output_buffer,
+			buffer,
+			names[COLUMN],
+			ISC_PUT_SEGMENT,
+			status_vector(action),
+			BY_REF, names[ISC_], blob->blb_ident,
+			BY_VALUE, names[ISC_], blob->blb_len_ident, END_VALUE,
+			BY_REF, names[ISC_], blob->blb_buff_ident, names[ISC_STATUS]);
+	COB_print_buffer(output_buffer, TRUE);
+
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate BLR in raw, numeric form.  Ughly but dense.
+//  
+
+static gen_raw(
+			   UCHAR * blr,
+			   enum req_t request_type, int request_length, int ident)
+{
+	UCHAR *c;
+	TEXT s[256];
+	int blr_length, length;
+	union {
+#ifdef VMS
+		SCHAR bytewise_blr[4];
+		SLONG longword_blr;
+#else
+		UCHAR bytewise_blr[4];
+		ULONG longword_blr;
+#endif
+	} blr_hunk;
+
+	length = 1;
+	blr_length = request_length;
+
+	while (blr_length) {
+		s[0] = 0;
+		blr_hunk.longword_blr = 0;
+		for (c = blr_hunk.bytewise_blr;
+			 c < blr_hunk.bytewise_blr + sizeof(SLONG); c++) {
+			if (--blr_length)
+				*c = *blr++;
+			else {
+				if (request_type == REQ_slice)
+					*c = isc_sdl_eoc;
+				else if ((request_type == REQ_ddl) ||
+						 (request_type == REQ_create_database) ||
+						 (request_type == REQ_form) ||
+						 (request_type == REQ_menu)) *c = *blr++;
+				else
+					*c = blr_eoc;
+				break;
+			}
+		}
+
+		strcat(s, names[COLUMN]);
+		strcat(s, RAW_BLR_TEMPLATE);
+		strcat(s, "\n");
+		sprintf(output_buffer, s, names[ISC_], ident, names[UNDER], length++,
+				blr_hunk.longword_blr);
+		COB_print_buffer(output_buffer, FALSE);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for READY
+//		This becomes baroque for mpexl where we
+//		must generate a variable if the user gives us
+//		a string literal. mpexl cobol doesn't take
+//		string literals as  CALL parameters.
+//  
+
+static gen_ready( ACT action)
+{
+	RDY ready;
+	DBB db, dbisc;
+	TEXT *filename, *vector, dbname[96];
+	USHORT namelength;
+
+	vector = status_vector(action);
+
+	for (ready = (RDY) action->act_object; ready; ready = ready->rdy_next) {
+		db = ready->rdy_database;
+		dbisc = (DBB) db->dbb_name->sym_object;
+		if (!(filename = ready->rdy_filename)) {
+			filename = db->dbb_runtime;
+			if (filename) {
+				namelength = strlen(filename);
+#ifndef VMS
+				sprintf(dbname, "isc-%ddb", dbisc->dbb_id);
+				filename = dbname;
+#endif
+			}
+			else
+				namelength = 0;
+		}
+		else
+			namelength = strlen(filename);
+#ifndef VMS
+		/* string literal or user defined variable? */
+
+		if (ready->rdy_id) {
+			sprintf(dbname, "isc-%ddb", ready->rdy_id);
+			filename = dbname;
+			namelength -= 2;
+		}
+		else
+			namelength = 0;
+#endif
+		make_ready(db, filename, vector, ready->rdy_request, namelength);
+		set_sqlcode(action);
+	}
+
+	ib_fprintf(out_file, names[COLUMN]);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for RELEASE_REQUESTS
+//		For active databases, call isc_release_request.
+//		for all others, just zero the handle.  For the
+//		release request calls, ignore error returns, which
+//		are likely if the request was compiled on a database
+//		which has been released and re-readied.  If there is
+//		a serious error, it will be caught on the next statement.
+//  
+
+static gen_release( ACT action)
+{
+	DBB db, exp_db;
+	REQ request;
+
+	exp_db = (DBB) action->act_object;
+
+	for (request = requests; request; request = request->req_next) {
+		db = request->req_database;
+		if (exp_db && db != exp_db)
+			continue;
+		if (!(request->req_flags & REQ_exp_hand)) {
+			printa(names[COLUMN], FALSE, "IF %s = 0 THEN",
+				   db->dbb_name->sym_string);
+			printa(names[COLUMN], TRUE, "CALL \"%s\" USING %s, %s%s",
+				   ISC_RELEASE_REQUEST, status_vector(action), BY_REF,
+				   request->req_handle);
+			printa(names[COLUMN], FALSE, "END-IF");
+			printa(names[COLUMN], FALSE, "MOVE 0 to %s", request->req_handle);
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a send or receive call for a port.
+//  
+
+static gen_receive( ACT action, POR port)
+{
+	REQ request;
+
+	request = action->act_request;
+	sprintf(output_buffer,
+			"%sCALL \"%s\" USING %s, %s%s, %s%d%s, %s%d%s, %s%s%d, %s%s%s\n",
+			names[COLUMN],
+			ISC_RECEIVE,
+			status_vector(action),
+			BY_REF, request->req_handle,
+			BY_VALUE, port->por_msg_number, END_VALUE,
+			BY_VALUE, port->por_length, END_VALUE,
+			BY_REF, names[ISC_], port->por_ident,
+			BY_VALUE, request->req_request_level, END_VALUE);
+	COB_print_buffer(output_buffer, TRUE);
+
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  	Requests are generated as raw BLR in longword chunks 
+//  	because COBOL is a miserable excuse for a language
+//  	and doesn't allow byte value assignments to character
+//  	fields.
+//  
+
+static gen_request( REQ request)
+{
+	REF reference;
+	BLB blob;
+	POR port;
+	TEXT *string_type;
+
+	if (!
+		(request->
+		 req_flags & (REQ_exp_hand | REQ_menu_for_item | REQ_sql_blob_open |
+					  REQ_sql_blob_create)) && request->req_type != REQ_slice
+&& request->req_type != REQ_procedure)
+		printa(names[COLUMN_0], FALSE,
+			   "01  %s PIC S9(9) USAGE COMP VALUE IS 0.",
+			   request->req_handle);
+
+	if (request->req_type == REQ_form)
+		printa(names[COLUMN_0], FALSE,
+			   "01  %s%dL PIC S9(4) USAGE %s VALUE IS %d.", names[ISC_],
+			   request->req_ident, COMP_VALUE, request->req_length);
+
+	if (request->req_type == REQ_ready)
+		printa(names[COLUMN_0], FALSE,
+			   "01  %s%dL PIC S9(4) USAGE %s VALUE IS %d.", names[ISC_],
+			   request->req_ident, COMP_VALUE, request->req_length);
+
+//  check the case where we need to extend the dpb dynamically at runtime,
+//  in which case we need dpb length and a pointer to be defined even if 
+//  there is no static dpb defined 
+
+	if (request->req_flags & REQ_extend_dpb) {
+		printa(names[COLUMN_0], FALSE,
+			   "01  ISC-%dP PIC S9(9) USAGE COMP-5 VALUE IS 0.",
+			   request->req_ident);
+	}
+	if (request->req_type == REQ_menu && !(request->req_flags & REQ_menu_for)) {
+		printa(names[COLUMN_0], FALSE,
+			   "01  %s%dL PIC S9(4) USAGE %s VALUE IS %d.", names[ISC_],
+			   request->req_ident, COMP_VALUE, request->req_length);
+		printa(names[COLUMN_0], FALSE,
+			   "01  %sS PIC S9(4) USAGE COMP VALUE IS 0.",
+			   request->req_handle);
+	}
+
+	if (request->req_flags & (REQ_sql_blob_open | REQ_sql_blob_create))
+		printa(names[COLUMN_0], FALSE,
+			   "01  %s%dS PIC S9(9) USAGE COMP VALUE IS 0.", names[ISC_],
+			   request->req_ident);
+
+//  generate the request as BLR long words 
+
+	if (request->req_length) {
+		if (request->req_flags & REQ_sql_cursor)
+			printa(names[COLUMN_0], FALSE,
+				   "01  %s%dS PIC S9(9) USAGE COMP VALUE IS 0.", names[ISC_],
+				   request->req_ident);
+#ifdef SCROLLABLE_CURSORS
+		if (request->req_flags & REQ_scroll)
+			printa(names[COLUMN_0], FALSE,
+				   "01  %s%dDI PIC S9(4) USAGE COMP VALUE IS 0.", names[ISC_],
+				   request->req_ident);
+#endif
+		printa(names[COLUMN_0], FALSE, "01  %s%d.",
+			   names[ISC_], request->req_ident);
+		gen_raw(request->req_blr, request->req_type, request->req_length,
+				request->req_ident);
+		if (!(sw_raw)) {
+			printa(names[COMMENT], FALSE, " ");
+			printa(names[COMMENT], FALSE, "FORMATTED REQUEST BLR FOR %s%d = ",
+				   names[ISC_], request->req_ident);
+			switch (request->req_type) {
+			case REQ_create_database:
+			case REQ_ready:
+				string_type = "DPB";
+				if (PRETTY_print_cdb(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during parameter generation");
+				break;
+
+
+			case REQ_ddl:
+				string_type = "DYN";
+				if (PRETTY_print_dyn(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during dynamic DDL generation");
+				break;
+
+			case REQ_form:
+				string_type = "form map";
+				if (PRETTY_print_form_map(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during form map generation");
+				break;
+
+			case REQ_menu:
+				string_type = "menu";
+				if (PRETTY_print_menu(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during menu generation");
+				break;
+
+			case REQ_slice:
+				string_type = "SDL";
+				if (PRETTY_print_sdl(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during SDL generation");
+				break;
+
+			default:
+				string_type = "BLR";
+				if (isc_print_blr(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during BLR generation");
+			}
+		}
+		else {
+			switch (request->req_type) {
+			case REQ_create_database:
+			case REQ_ready:
+				string_type = "DPB";
+				break;
+
+			case REQ_ddl:
+				string_type = "DYN";
+				break;
+
+			case REQ_form:
+				string_type = "form map";
+				break;
+
+			case REQ_menu:
+				string_type = "menu";
+				break;
+
+			case REQ_slice:
+				string_type = "SDL";
+				break;
+
+			default:
+				string_type = "BLR";
+			}
+		}
+		printa(names[COMMENT], FALSE, " ");
+		printa(names[COMMENT], FALSE, "END OF %s STRING FOR REQUEST %s%d\n",
+			   string_type, names[ISC_], request->req_ident);
+	}
+
+//   Print out slice description language if there are arrays associated with request  
+
+	for (port = request->req_ports; port; port = port->por_next)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) if (reference->ref_sdl) {
+				printa(names[COLUMN_0], FALSE, "01  %s%d.", names[ISC_],
+					   reference->ref_sdl_ident);
+				gen_raw(reference->ref_sdl, REQ_slice,
+						reference->ref_sdl_length, reference->ref_sdl_ident);
+				if (!sw_raw)
+					if (PRETTY_print_sdl(reference->ref_sdl, gen_blr, 0, 0))
+						IBERROR("internal error during SDL generation");
+
+				printa(names[COMMENT], FALSE, " ");
+				printa(names[COMMENT], FALSE,
+					   "END OF SDL STRING FOR %s%d */\n", names[ISC_],
+					   reference->ref_sdl_ident);
+			}
+
+//  Print out any blob parameter blocks required 
+	for (blob = request->req_blobs; blob; blob = blob->blb_next)
+		if (blob->blb_const_from_type || blob->blb_const_to_type) {
+			printa(names[COLUMN_0], FALSE, "01  %s%d.",
+				   names[ISC_], blob->blb_bpb_ident);
+			gen_raw(blob->blb_bpb, request->req_type, blob->blb_bpb_length,
+					request);
+			printa(names[COMMENT], FALSE, " ");
+		}
+
+	if (request->req_type == REQ_menu)
+		gen_menu_request(request);
+
+//  If this is a GET_SLICE/PUT_slice, allocate some variables 
+
+	if (request->req_type == REQ_slice) {
+		printa(names[COLUMN_0], FALSE, "01  %s%dv.", names[isc_],
+			   request->req_ident);
+		printa(names[COLUMN], FALSE,
+			   "    03 %s%dv_3 PIC S9(9) USAGE COMP OCCURS %d TIMES.",
+			   names[isc_], request->req_ident, MAX(1,
+													request->req_slice->
+													slc_parameters));
+		printa(names[COLUMN_0], FALSE, "01  %s%ds PIC S9(9) USAGE COMP.",
+			   names[isc_], request->req_ident);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STREAM.
+//  
+
+static gen_s_end( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+
+	if (action->act_type == ACT_close)
+		gen_cursor_close(action, request);
+
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%s%s",
+		   ISC_UNWIND_REQUEST,
+		   status_vector(action),
+		   BY_REF, request->req_handle,
+		   BY_VALUE, request->req_request_level, END_VALUE);
+
+	if (action->act_type == ACT_close) {
+		printa(names[COLUMN], FALSE, "END-IF");
+		printa(names[COLUMN], FALSE, "END-IF");
+	}
+
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FETCH.
+//  
+
+static gen_s_fetch( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+	if (request->req_sync)
+		gen_send(action, request->req_sync);
+
+	gen_receive(action, request->req_primary);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile and start a stream.  This is
+//		used both by START_STREAM and FOR
+//  
+
+static gen_s_start( ACT action)
+{
+	REQ request;
+	POR port;
+
+	request = action->act_request;
+
+	gen_compile(action);
+
+	if (port = request->req_vport)
+		asgn_from(action, port->por_references);
+
+	if (action->act_type == ACT_open)
+		gen_cursor_open(action, request);
+
+//  Do not call "gen_start" in case if "gen_compile" failed 
+
+	if (action->act_error || (action->act_flags & ACT_sql)) {
+		if (sw_auto)
+			printa(names[COLUMN], FALSE, "IF %s NOT = 0 AND %s NOT = 0 THEN",
+				   request_trans(action, request), request->req_handle);
+		else
+			printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN",
+				   request->req_handle);
+	}
+
+	gen_start(action, port);
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(names[COLUMN], FALSE, "END-IF");
+
+	if (action->act_type == ACT_open) {
+		printa(names[COLUMN], FALSE, "END-IF");
+		printa(names[COLUMN], FALSE, "END-IF");
+		if (sw_auto)
+			printa(names[COLUMN], FALSE, "END-IF");
+		printa(names[COLUMN], FALSE, "END-IF");
+		set_sqlcode(action);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a send call for a port.
+//  
+
+static gen_send( ACT action, POR port)
+{
+	REQ request;
+
+	request = action->act_request;
+
+	sprintf(output_buffer,
+			"%sCALL \"%s\" USING %s, %s%s, %s%d%s, %s%d%s, %s%s%d, %s%s%s\n",
+			names[COLUMN],
+			ISC_SEND,
+			status_vector(action),
+			BY_REF, request->req_handle,
+			BY_VALUE, port->por_msg_number, END_VALUE,
+			BY_VALUE, port->por_length, END_VALUE,
+			BY_REF, names[ISC_], port->por_ident,
+			BY_VALUE, request->req_request_level, END_VALUE);
+
+	COB_print_buffer(output_buffer, TRUE);
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate support for get/put slice statement.
+//  
+
+static gen_slice( ACT action)
+{
+	REQ request, parent_request;
+	REF reference, upper, lower;
+	SLC slice;
+	USHORT column;
+	PAT args;
+	struct slc_repeat *tail, *end;
+	TEXT *pattern1 =
+		"CALL \"%S7\" USING %V1, %RF%DH%RE, %RF%RT%RE, %RF%FR%RE, %VF%N1%VE, %RF%I1%RE, %VF%N2%VE, %RF%I1v%RE, %VF%I1s%VE, %RF%S5%RE, %RF%S6%RE";
+	TEXT *pattern2 =
+		"CALL \"%S7\" USING %V1, %RF%DH%RE, %RF%RT%RE, %RF%FR%RE, %VF%N1%VE, %RF%I1%RE, %VF%N2%VE, %RF%I1v%RE, %VF%I1s%VE, %RF%S5%RE";
+
+	column = strlen(names[COLUMN]);
+	request = action->act_request;
+	slice = (SLC) action->act_object;
+	parent_request = slice->slc_parent_request;
+
+//  Compute array size 
+
+	ib_fprintf(out_file, "    COMPUTE %s%ds = %d",
+			   names[isc_],
+			   request->req_ident, slice->slc_field->fld_array->fld_length);
+
+	for (tail = slice->slc_rpt, end = tail + slice->slc_dimensions;
+		 tail < end; ++tail)
+		if (tail->slc_upper != tail->slc_lower) {
+			lower = (REF) tail->slc_lower->nod_arg[0];
+			upper = (REF) tail->slc_upper->nod_arg[0];
+			if (lower->ref_value)
+				ib_fprintf(out_file, " * ( %s - %s + 1)", upper->ref_value,
+						   lower->ref_value);
+			else
+				ib_fprintf(out_file, " * ( %s + 1)", upper->ref_value);
+		}
+	ib_fprintf(out_file, "\n");
+
+//  Make assignments to variable vector 
+
+	for (reference = request->req_values; reference;
+		 reference =
+		 reference->ref_next) printa(names[COLUMN], FALSE,
+									 "MOVE %s TO %s%dv (%d)",
+									 reference->ref_value, names[ISC_],
+									 request->req_ident, reference->ref_id);
+
+	args.pat_reference = slice->slc_field_ref;
+	args.pat_request = parent_request;	/* blob id request */
+	args.pat_vector1 = status_vector(action);	/* status vector */
+	args.pat_database = parent_request->req_database;	/* database handle */
+	args.pat_string1 = action->act_request->req_trans;	/* transaction handle */
+	args.pat_value1 = request->req_length;	/* slice descr. length */
+	args.pat_ident1 = request->req_ident;	/* request name */
+	args.pat_value2 = slice->slc_parameters * sizeof(SLONG);	/* parameter length */
+
+	reference = (REF) slice->slc_array->nod_arg[0];
+	args.pat_string5 = reference->ref_value;	/* array name */
+	args.pat_string6 = names[ISC_ARRAY_LENGTH];
+	args.pat_string7 =
+		(action->act_type == ACT_get_slice) ? ISC_GET_SLICE : ISC_PUT_SLICE;
+
+	PATTERN_expand(column,
+				   (action->act_type == ACT_get_slice) ? pattern1 : pattern2,
+				   &args);
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a segment, segment length, or blob handle.
+//  
+
+static gen_segment( ACT action)
+{
+	BLB blob;
+
+	blob = (BLB) action->act_object;
+
+	ib_fprintf(out_file, "%s%d",
+			   names[ISC_],
+			   (action->act_type == ACT_segment) ? blob->blb_buff_ident :
+			   (action->act_type ==
+				ACT_segment_length) ? blob->blb_len_ident : blob->blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static gen_select( ACT action)
+{
+	REQ request;
+	POR port;
+	NOD var_list;
+	int i;
+	TEXT name[20];
+
+	request = action->act_request;
+	port = request->req_primary;
+	gen_name(name, request->req_eof, TRUE);
+
+	gen_s_start(action);
+
+//  BUG8321: Do not call "receive" in case if SQLCODE is not equal 0 
+	printa(names[COLUMN], FALSE, "IF SQLCODE = 0 THEN");
+
+	gen_receive(action, port);
+
+	printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN", name);
+	if (var_list = (NOD) action->act_object)
+		for (i = 0; i < var_list->nod_count; i++) {
+			asgn_to(action, var_list->nod_arg[i]);
+		}
+
+	if (request->req_database->dbb_flags & DBB_v3) {
+		gen_receive(action, port);
+		printa(names[COLUMN], FALSE, "IF %s NOT = 0 THEN", name);
+		printa(names[COLUMN], FALSE, "MOVE -1 TO SQLCODE");
+		printa(names[COLUMN], FALSE, "ELSE");
+		printa(names[COLUMN], FALSE, "MOVE 0 TO SQLCODE");
+		printa(names[COLUMN], FALSE, "END-IF");
+	}
+
+	printa(names[COLUMN], FALSE, "ELSE");
+	printa(names[COLUMN], FALSE, "MOVE 100 TO SQLCODE");
+	printa(names[COLUMN], FALSE, "END-IF");
+	printa(names[COLUMN], FALSE, "END-IF");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate either a START or START_AND_SEND depending
+//		on whether or a not a port is present.
+//  
+
+static gen_start( ACT action, POR port)
+{
+	REQ request;
+	TEXT *vector;
+	REF reference;
+
+	request = action->act_request;
+	vector = status_vector(action);
+
+	if (port) {
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, FALSE);
+
+		sprintf(output_buffer,
+				"%sCALL \"%s\" USING %s, %s%s, %s%s, %s%d%s, %s%d%s, %s%s%d, %s%s%s\n",
+				names[COLUMN],
+				ISC_START_AND_SEND,
+				vector,
+				BY_REF, request->req_handle,
+				BY_REF, request_trans(action, request),
+				BY_VALUE, port->por_msg_number, END_VALUE,
+				BY_VALUE, port->por_length, END_VALUE,
+				BY_REF, names[ISC_], port->por_ident,
+				BY_VALUE, request->req_request_level, END_VALUE);
+	}
+	else
+		sprintf(output_buffer,
+				"%sCALL \"%s\" USING %s, %s%s, %s%s, %s%s%s\n",
+				names[COLUMN],
+				ISC_START_REQUEST,
+				vector,
+				BY_REF, request->req_handle,
+				BY_REF, request_trans(action, request),
+				BY_VALUE, request->req_request_level, END_VALUE);
+
+	COB_print_buffer(output_buffer, TRUE);
+
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text for STORE statement.  This includes the compile
+//		call and any variable initialization required.
+//  
+
+static gen_store( ACT action)
+{
+	REQ request;
+	REF reference;
+	FLD field;
+	POR port;
+	TEXT name[64];
+
+	request = action->act_request;
+	gen_compile(action);
+
+//  Initialize any blob fields 
+
+	port = request->req_primary;
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (field->fld_flags & FLD_blob)
+			printa(names[COLUMN], TRUE, "CALL \"isc_qtoq\" USING %s, %s",
+				   names[isc_blob_null], gen_name(name, reference, TRUE));
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for START_TRANSACTION.
+//  
+
+static gen_t_start( ACT action)
+{
+	DBB db;
+	TRA trans;
+	TPB tpb;
+	TEXT *filename, dbname[80];
+	USHORT namelength;
+
+//  if this is a purely default transaction, just let it through 
+
+	if (!action || !(trans = (TRA) action->act_object)) {
+		t_start_auto(0, status_vector(action), action, FALSE);
+		return;
+	}
+
+//  build a complete statement, including tpb's.  Ready db's as req. 
+
+	if (sw_auto)
+		for (tpb = trans->tra_tpb; tpb; tpb = tpb->tpb_tra_next) {
+			db = tpb->tpb_database;
+			if ((filename = db->dbb_runtime) || !(db->dbb_flags & DBB_sqlca)) {
+				printa(names[COLUMN], FALSE, "IF %s = 0 THEN",
+					   db->dbb_name->sym_string);
+				namelength = filename ? strlen(filename) : 0;
+#ifndef VMS
+				if (filename) {
+					sprintf(dbname, "isc-%ddb", db->dbb_id);
+					filename = dbname;
+				}
+#endif
+				make_ready(db, filename, status_vector(action), 0,
+						   namelength);
+				set_sqlcode(action);
+				printa(names[COLUMN], FALSE, "END-IF");
+			}
+		}
+
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s, %s%s, %s%d%s",
+		   ISC_START_TRANSACTION,
+		   status_vector(action),
+		   BY_REF, (trans->tra_handle) ? trans->tra_handle : names[ISC_TRANS],
+		   BY_VALUE, trans->tra_db_count, END_VALUE);
+
+	for (tpb = trans->tra_tpb; tpb; tpb = tpb->tpb_tra_next)
+		printa(names[CONTINUE], TRUE, ", %s%s, %s%d%s, %s%s%d",
+			   BY_REF, tpb->tpb_database->dbb_name->sym_string,
+			   BY_VALUE, tpb->tpb_length, END_VALUE,
+			   BY_REF, names[ISC_TPB_], tpb->tpb_ident);
+
+	set_sqlcode(action);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Initialize a TPB in the output file
+//  
+
+static gen_tpb( TPB tpb)
+{
+	UCHAR *text, *c;
+	int length, char_len;
+	union {
+#ifdef VMS
+		SCHAR bytewise_tpb[4];
+#else
+		UCHAR bytewise_tpb[4];
+#endif
+		SLONG longword_tpb;
+	} tpb_hunk;
+
+//  
+//  TPBs are generated as raw BLR in longword chunks 
+//  because COBOL is a miserable excuse for a language
+//  and doesn't allow byte value assignments to character
+//  fields.
+//  
+
+	printa(names[COLUMN_0], FALSE, "01  %s%d.",
+		   names[ISC_TPB_], tpb->tpb_ident);
+
+	text = tpb->tpb_string;
+	char_len = tpb->tpb_length;
+	length = 1;
+
+	while (char_len) {
+		for (c = tpb_hunk.bytewise_tpb;
+			 c < tpb_hunk.bytewise_tpb + sizeof(SLONG); c++) {
+			*c = *text++;
+			if (!(--char_len))
+				break;
+		}
+
+		printa(names[COLUMN], FALSE, RAW_TPB_TEMPLATE,
+			   names[ISC_TPB_], tpb->tpb_ident,
+			   names[UNDER], length++, tpb_hunk.longword_tpb);
+	}
+
+	sprintf(output_buffer, "%sEnd of data for %s%d\n",
+			names[COMMENT], names[ISC_TPB_], tpb->tpb_ident);
+	COB_print_buffer(output_buffer, FALSE);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for COMMIT, ROLLBACK, PREPARE, and SAVE
+//  
+
+static gen_trans( ACT action)
+{
+
+	if (action->act_type == ACT_commit_retain_context)
+		printa(names[COLUMN], TRUE, "CALL \"%s\" USING %s, %s%s",
+			   ISC_COMMIT_RETAINING,
+			   status_vector(action),
+			   BY_REF,
+			   (action->act_object) ? (TEXT *) (action->
+												act_object) :
+			   names[ISC_TRANS]);
+	else
+		printa(names[COLUMN], TRUE, "CALL \"%s\" USING %s, %s%s",
+			   (action->act_type ==
+				ACT_commit) ? ISC_COMMIT_TRANSACTION : (action->act_type ==
+														ACT_rollback) ?
+			   ISC_ROLLBACK_TRANSACTION : ISC_PREPARE_TRANSACTION,
+			   status_vector(action), BY_REF,
+			   (action->act_object) ? (TEXT *) (action->
+												act_object) :
+			   names[ISC_TRANS]);
+	set_sqlcode(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a variable reference.
+//  
+
+static int gen_type( ACT action)
+{
+
+	printa(names[COLUMN], "%ld", action->act_object);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for UPDATE ... WHERE CURRENT OF ...
+//  
+
+static gen_update( ACT action)
+{
+	POR port;
+	UPD modify;
+
+	modify = (UPD) action->act_object;
+	port = modify->upd_port;
+	asgn_from(action, port->por_references);
+	gen_send(action, port);
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a variable reference.
+//  
+
+static gen_variable( ACT action)
+{
+	TEXT s[20];
+	REF reference;
+
+	reference = action->act_object;
+	ib_fprintf(out_file, "\n%s%s",
+			   names[COLUMN], gen_name(s, reference, FALSE));
+}
+
+
+//____________________________________________________________
+//  
+//		Generate tests for any WHENEVER clauses that may have been declared.
+//  
+
+static gen_whenever( SWE label)
+{
+	TEXT *condition;
+
+	while (label) {
+		switch (label->swe_condition) {
+		case SWE_error:
+			condition = "SQLCODE < 0";
+			break;
+
+		case SWE_warning:
+			condition = "SQLCODE > 0 AND SQLCODE NOT = 100";
+			break;
+
+		case SWE_not_found:
+			condition = "SQLCODE = 100";
+			break;
+		}
+		ib_fprintf(out_file, "%sIF (%s) THEN GO TO %s",
+				   names[COLUMN], condition, label->swe_label);
+		if (label->swe_condition == SWE_warning)
+			ib_fprintf(out_file, "\n%s", names[COLUMN_INDENT]);
+		label = label->swe_next;
+		ib_fprintf(out_file, " END-IF%s", (label) ? ".\n" : "");
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Create a new window.
+//  
+
+static gen_window_create( ACT action)
+{
+
+	printa(names[COLUMN], TRUE,
+		   "CALL \"%s\" USING %s%s, %s, %s, %s%s, %s%s", PYXIS_CREATE_WINDOW,
+		   BY_REF, names[ISC_WINDOW],
+		   OMITTED,
+		   OMITTED, BY_REF, names[ISC_WIDTH], BY_REF, names[ISC_HEIGHT]);
+}
+
+
+//____________________________________________________________
+//  
+//		Delete a window.
+//  
+
+static gen_window_delete( ACT action)
+{
+
+	printa(names[COLUMN], TRUE, "CALL \"%s\" USING %s%s",
+		   PYXIS_DELETE_WINDOW, BY_REF, names[ISC_WINDOW]);
+}
+
+
+//____________________________________________________________
+//  
+//		Suspend a window.
+//  
+
+static gen_window_suspend( ACT action)
+{
+
+	printa(names[COLUMN], TRUE, "CALL \"%s\" USING %s%s",
+		   PYXIS_SUSPEND_WINDOW, BY_REF, names[ISC_WINDOW]);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a declaration of an array in the
+//		output file.
+//  
+
+static make_array_declaration( REF reference)
+{
+	FLD field;
+	TEXT *name, space[128], string1[256], *p;
+	DIM dimension;
+	int i, dimension_size;
+	SSHORT digits, scale;
+
+	field = reference->ref_field;
+	name = field->fld_symbol->sym_string;
+
+//  Don't generate multiple declarations for the array.  V3 Bug 569.  
+
+	if (field->fld_array_info->ary_declared)
+		return;
+
+	field->fld_array_info->ary_declared = TRUE;
+
+	ib_fprintf(out_file, "%s01  %s%dL.\n",
+			   names[COLUMN_0], names[ISC_],
+			   field->fld_array_info->ary_ident);
+	strcpy(space, "       ");
+
+//   Print out the dimension part of the declaration  
+	for (dimension = field->fld_array_info->ary_dimension, i = 3;
+		 dimension->dim_next; dimension = dimension->dim_next, i += 2) {
+		dimension_size = dimension->dim_upper - dimension->dim_lower + 1;
+		printa(space, FALSE, "%02.d  %s%d%s%d OCCURS %d TIMES.",
+			   i,
+			   names[ISC_],
+			   field->fld_array_info->ary_ident,
+			   names[UNDER], i, dimension_size);
+		strcat(space, "   ");
+	}
+
+	p = string1;
+	dimension_size = dimension->dim_upper - dimension->dim_lower + 1;
+	sprintf(p, "%02.d  %s%d OCCURS %d TIMES ",
+			i, names[ISC_], field->fld_array_info->ary_ident, dimension_size);
+	while (*p)
+		p++;
+
+	switch (field->fld_array_info->ary_dtype) {
+	case dtype_short:
+	case dtype_long:
+		digits = (field->fld_array_info->ary_dtype == dtype_short) ? 4 : 9;
+		scale = field->fld_array->fld_scale;
+		strcpy(p, "PIC S");
+		while (*p)
+			p++;
+		if (scale >= -digits && scale <= 0) {
+			if (scale > -digits)
+				sprintf(p, "9(%d)", digits + scale);
+			while (*p)
+				p++;
+			if (scale)
+				sprintf(p, "V9(%d)", digits - (digits + scale));
+		}
+		else if (scale > 0)
+			sprintf(p, "9(%d)P(%d)", digits, scale);
+		else
+			sprintf(p, "VP(%d)9(%d)", -(scale + digits), digits);
+		while (*p)
+			p++;
+		strcpy(p, USAGE_COMP);
+		strcat(p, ".");
+		break;
+
+	case dtype_cstring:
+	case dtype_text:
+	case dtype_varying:
+		sprintf(p, "PIC X(%d).", field->fld_array->fld_length);
+		break;
+
+	case dtype_date:
+		strcpy(p, "PIC S9(18)");
+		strcat(p, USAGE_COMP);
+		strcat(p, ".");
+		break;
+
+	case dtype_quad:
+		sprintf(p, "PIC S9(%d)", 18 + field->fld_array->fld_scale);
+		while (*p)
+			p++;
+		if (field->fld_array->fld_scale < 0)
+			sprintf(p, "V9(%d)", -field->fld_array->fld_scale);
+		else if (field->fld_array->fld_scale > 0)
+			sprintf(p, "P(%d)", field->fld_array->fld_scale);
+		while (*p)
+			p++;
+		strcpy(p, USAGE_COMP);
+		strcat(p, ".");
+		break;
+
+	case dtype_float:
+		strcpy(p, DCL_FLOAT);
+		strcat(p, ".");
+		break;
+
+	case dtype_double:
+		strcpy(p, DCL_DOUBLE);
+		strcat(p, ".");
+		break;
+
+	default:
+		sprintf(space, "datatype %d unknown for field %s",
+				field->fld_array_info->ary_dtype, name);
+		IBERROR(space);
+		return;
+	}
+
+	printa(space, FALSE, string1);
+}
+
+
+//____________________________________________________________
+//  
+//		Turn a symbol into a varying string.
+//  
+
+static TEXT *make_name( TEXT * string, SYM symbol)
+{
+
+#ifndef VMS
+	sprintf(string, "%s", symbol->sym_string);
+	while (*string) {
+		if (*string == '_')
+			*string = '-';
+		string++;
+	}
+#else
+	sprintf(string, "'%s '", symbol->sym_string);
+#endif
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Turn a symbol into a varying string.
+//  
+
+static TEXT *make_name_formatted( TEXT * string, TEXT * format, SYM symbol)
+{
+	TEXT *s;
+
+	sprintf(string, format, symbol->sym_string);
+	for (s = string; *s; s++)
+		if (*s == '_')
+			*s = '-';
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Insert a port record description in output.
+//  
+
+static make_port( POR port)
+{
+	FLD field;
+	REF reference;
+	SYM symbol;
+	TEXT *name, s[80];
+	SSHORT digits;
+
+	printa(names[COLUMN_0], FALSE, "01  %s%d.", names[ISC_], port->por_ident);
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (symbol = field->fld_symbol)
+			name = symbol->sym_string;
+		else
+			name = "<expression>";
+		if (reference->ref_value && (reference->ref_flags & REF_array_elem))
+			field = field->fld_array;
+		switch (field->fld_dtype) {
+		case dtype_short:
+		case dtype_long:
+			digits = (field->fld_dtype == dtype_short) ? 4 : 9;
+			ib_fprintf(out_file, "%s03  %s%d PIC S",
+					   names[COLUMN], names[ISC_], reference->ref_ident);
+			if (field->fld_scale >= -digits && field->fld_scale <= 0) {
+				if (field->fld_scale > -digits)
+					ib_fprintf(out_file, "9(%d)", digits + field->fld_scale);
+				if (field->fld_scale)
+					ib_fprintf(out_file, "V9(%d)",
+							   digits - (digits + field->fld_scale));
+			}
+			else if (field->fld_scale > 0)
+				ib_fprintf(out_file, "9(%d)P(%d)", digits, field->fld_scale);
+			else
+				ib_fprintf(out_file, "VP(%d)9(%d)",
+						   -(field->fld_scale + digits), digits);
+			ib_fprintf(out_file, "%s.\n", USAGE_COMP);
+			break;
+
+		case dtype_cstring:
+		case dtype_text:
+			printa(names[COLUMN], FALSE, "03  %s%d PIC X(%d).",
+				   names[ISC_], reference->ref_ident, field->fld_length);
+			break;
+
+		case dtype_date:
+		case dtype_quad:
+		case dtype_blob:
+			ib_fprintf(out_file, "%s03  %s%d PIC S9(",
+					   names[COLUMN], names[ISC_], reference->ref_ident);
+			ib_fprintf(out_file, "%d)", 18 + field->fld_scale);
+			if (field->fld_scale < 0)
+				ib_fprintf(out_file, "V9(%d)", -field->fld_scale);
+			else if (field->fld_scale > 0)
+				ib_fprintf(out_file, "P(%d)", field->fld_scale);
+			ib_fprintf(out_file, "%s.\n", USAGE_COMP);
+			break;
+
+		case dtype_float:
+			printa(names[COLUMN], FALSE, "03  %s%d %s.",
+				   names[ISC_], reference->ref_ident, DCL_FLOAT);
+			break;
+
+		case dtype_double:
+			printa(names[COLUMN], FALSE, "03  %s%d %s.",
+				   names[ISC_], reference->ref_ident, DCL_DOUBLE);
+			break;
+
+		default:
+			sprintf(s, "datatype %d unknown for field %s, msg %d",
+					field->fld_dtype, name, port->por_msg_number);
+			CPR_error(s);
+			return;
+		}
+	}
+
+	printa(names[COLUMN], FALSE, " ");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the actual ready call.
+//  
+
+static make_ready(
+				  DBB db,
+				  TEXT * filename,
+				  TEXT * vector, REQ request, USHORT namelength)
+{
+	TEXT s1[32], s1Tmp[32], s2[32], s2Tmp[32], dbname[128];
+	DBB dbisc = (DBB) db->dbb_name->sym_object;
+
+	if (request) {
+		sprintf(s1, "%s%dL", names[isc_], request->req_ident);
+		if (request->req_flags & REQ_extend_dpb)
+			sprintf(s2, "%s%dp", names[isc_], request->req_ident);
+		else
+			sprintf(s2, "%s%d", names[isc_], request->req_ident);
+
+		/* if the dpb needs to be extended at runtime to include items
+		   in host variables, do so here; this assumes that there is 
+		   always a request generated for runtime variables */
+
+		if (request->req_flags & REQ_extend_dpb) {
+			if (request->req_length) {
+				sprintf(output_buffer, "%sMOVE isc_%d to %s\n",
+						names[COLUMN], request->req_ident, s2);
+
+			}
+			if (db->dbb_r_user) {
+				sprintf(output_buffer,
+						"%sCALL \"%s\" USING %s%s, %s%s, BY VALUE 28, %s %s, %s%d%s\n",
+						names[COLUMN],
+						ISC_MODIFY_DPB,
+						BY_REF, s2,
+						BY_REF, s1,
+						BY_DESC, db->dbb_r_user,
+						BY_VALUE, strlen(db->dbb_r_user) - 2, END_VALUE);
+				COB_print_buffer(output_buffer, TRUE);
+			}
+			if (db->dbb_r_password) {
+				sprintf(output_buffer,
+						"%sCALL \"%s\" USING %s%s, %s%s, BY VALUE 29,  %s %s, %s%d%s\n",
+						names[COLUMN],
+						ISC_MODIFY_DPB,
+						BY_REF, s2,
+						BY_REF, s1,
+						BY_DESC, db->dbb_r_password,
+						BY_VALUE, strlen(db->dbb_r_password) - 2, END_VALUE);
+				COB_print_buffer(output_buffer, TRUE);
+			}
+
+			/*
+			   ** ==================================================
+			   ** ==
+			   ** ==   Process Role Name, isc_dpb_sql_role_name/60
+			   ** ==
+			   ** ==================================================
+			 */
+
+			if (db->dbb_r_sql_role) {
+				sprintf(output_buffer,
+						"%sCALL \"%s\" USING %s%s, %s%s, BY VALUE 60,  %s %s, %s%d%s\n",
+						names[COLUMN],
+						ISC_MODIFY_DPB,
+						BY_REF, s2,
+						BY_REF, s1,
+						BY_DESC, db->dbb_r_sql_role,
+						BY_VALUE, strlen(db->dbb_r_sql_role) - 2, END_VALUE);
+				COB_print_buffer(output_buffer, TRUE);
+			}
+
+			if (db->dbb_r_lc_messages) {
+				sprintf(output_buffer,
+						"%sCALL \"%s\" USING %s%s, %s%s, BY VALUE 47,  %s %s, %s%d%s\n",
+						names[COLUMN],
+						ISC_MODIFY_DPB,
+						BY_REF, s2,
+						BY_REF, s1,
+						BY_REF, db->dbb_r_lc_messages,
+						BY_VALUE, strlen(db->dbb_r_lc_messages) - 2,
+						END_VALUE);
+				COB_print_buffer(output_buffer, TRUE);
+			}
+			if (db->dbb_r_lc_ctype) {
+				sprintf(output_buffer,
+						"%sCALL \"%s\" USING %s%s %s%s, BY VALUE 48,  %s %s, %s%d%s\n",
+						names[COLUMN],
+						ISC_MODIFY_DPB,
+						BY_REF, s2,
+						BY_REF, s1,
+						BY_REF, db->dbb_r_lc_ctype,
+						BY_VALUE, strlen(db->dbb_r_lc_ctype) - 2, END_VALUE);
+				COB_print_buffer(output_buffer, TRUE);
+			}
+		}
+
+		if (request->req_flags & REQ_extend_dpb) {
+			sprintf(s1Tmp, "%s%s%s", BY_VALUE, s1, END_VALUE);
+			sprintf(s2Tmp, "%s%s%s", BY_VALUE, s2, END_VALUE);
+		}
+		else {
+			sprintf(s2Tmp, "%s%s", BY_REF, s2);
+			sprintf(s1Tmp, "%s%d%s", BY_VALUE, request->req_length,
+					END_VALUE);
+		}
+	}
+
+#ifdef VMS
+
+	if (filename) {
+		sprintf(output_buffer,
+				"%sCALL \"%s\" USING %s, %s%s, %s%s, %s, %s\n",
+				names[COLUMN],
+				ISC_ATTACH_DATABASE_D,
+				vector,
+				BY_DESC, filename,
+				BY_REF, db->dbb_name->sym_string,
+				request ? s1Tmp : OMITTED, request ? s2Tmp : OMITTED);
+	}
+	else {
+		sprintf(output_buffer,
+				"%sCALL \"%s\" USING %s, %s%d%s, %s \"%s\", %s%s, %s, %s\n",
+				names[COLUMN],
+				ISC_ATTACH_DATABASE,
+				vector,
+				BY_VALUE, strlen(db->dbb_filename), END_VALUE,
+				BY_REF, db->dbb_filename,
+				BY_REF, db->dbb_name->sym_string,
+				request ? s1Tmp : OMITTED, request ? s2Tmp : OMITTED);
+	}
+
+#else
+
+	if (!filename) {
+		sprintf(dbname, "%s%ddb", names[isc_], dbisc->dbb_id);
+		filename = dbname;
+		namelength = strlen(db->dbb_filename);
+
+	}
+	sprintf(output_buffer,
+			"%sCALL \"%s\" USING %s, %s%d%s, %s %s, %s%s, %s, %s\n",
+			names[COLUMN],
+			ISC_ATTACH_DATABASE,
+			vector,
+			BY_VALUE, namelength, END_VALUE,
+			BY_REF, filename,
+			BY_REF, db->dbb_name->sym_string,
+			request ? s1Tmp : OMITTED, request ? s2Tmp : OMITTED);
+
+#endif
+
+	COB_print_buffer(output_buffer, TRUE);
+
+//  if the dpb was extended, free it here 
+
+	if (request && request->req_flags & REQ_extend_dpb) {
+		if (request->req_length) {
+			sprintf(output_buffer,
+					"if (%s != isc_%d)", s2, request->req_ident);
+			COB_print_buffer(output_buffer, TRUE);
+		}
+
+		sprintf(output_buffer,
+				"%sCALL \"%s\" USING %s\n", names[COLUMN], ISC_FREE, s2Tmp);
+		COB_print_buffer(output_buffer, TRUE);
+
+		/* reset the length of the dpb */
+		sprintf(output_buffer, "%sMOVE %d to %s\n",
+				names[COLUMN], request->req_length, s1);
+		COB_print_buffer(output_buffer, TRUE);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Print a fixed string at a particular COLUMN.
+//  
+
+static printa( TEXT * column, BOOLEAN call, TEXT * string, ...)
+{
+	va_list ptr;
+	TEXT s[256];
+
+	VA_START(ptr, string);
+	strcpy(s, column);
+	strcat(s, string);
+	strcat(s, "\n");
+	vsprintf(output_buffer, s, ptr);
+	COB_print_buffer(output_buffer, call);
+}
+
+
+//____________________________________________________________
+//  
+//		Print a fixed string at a particular column.
+//  
+
+static int printb( TEXT * string, ...)
+{
+	va_list ptr;
+
+	VA_START(ptr, string);
+	ib_vfprintf(out_file, string, ptr);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the appropriate transaction handle.
+//  
+
+static TEXT *request_trans( ACT action, REQ request)
+{
+	TEXT *trname;
+
+	if (action->act_type == ACT_open) {
+		if (!(trname = ((OPN) action->act_object)->opn_trans))
+			trname = names[ISC_TRANS];
+		return trname;
+	}
+	else
+		return (request) ? request->req_trans : names[ISC_TRANS];
+}
+
+
+//____________________________________________________________
+//  
+//		generate a CALL to the appropriate SQLCODE routine.
+//		Note that not all COBOLs have the concept of a function.
+
+static set_sqlcode( ACT action)
+{
+	TEXT buffer[128];
+
+#ifdef GIVING_SUPPORTED
+#define SQLCODE_CALL_TEMPLATE	"CALL \"%s\" USING %s GIVING SQLCODE"
+#else
+#define SQLCODE_CALL_TEMPLATE	"CALL \"%s\" USING %s, BY REFERENCE SQLCODE"
+#endif
+
+	if (action && action->act_flags & ACT_sql) {
+		strcpy(buffer, SQLCODE_CALL_TEMPLATE);
+		printa(names[COLUMN], TRUE,
+			   buffer, ISC_SQLCODE_CALL, names[ISC_STATUS_VECTOR]);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the appropriate status vector parameter for a gds
+//		call depending on where or not the action has an error clause.
+//  
+
+static TEXT *status_vector( ACT action)
+{
+
+	if (action && (action->act_error || (action->act_flags & ACT_sql)))
+		return names[ISC_STATUS_VECTOR];
+
+	return (OMITTED);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for START_TRANSACTION,
+//		when it's being generated automatically by a compile
+//		call.
+//  
+
+static t_start_auto( REQ request, TEXT * vector, ACT action, SSHORT test)
+{
+	DBB db;
+	int count, stat;
+	USHORT namelength;
+	TEXT *filename, dbname[80], *col, buffer[256], temp[40], *trname;
+
+	trname = request_trans(action, request);
+
+//  find out whether we're using a status vector or not 
+
+	stat = !strcmp(vector, names[ISC_STATUS_VECTOR]);
+
+//  this is a default transaction, make sure all databases are ready 
+
+	if (sw_auto) {
+		buffer[0] = 0;
+		for (count = 0, db = isc_databases; db; db = db->dbb_next, count++)
+			if ((filename = db->dbb_runtime) || !(db->dbb_flags & DBB_sqlca)) {
+				ib_fprintf(out_file, "%sIF %s = 0", names[COLUMN],
+						   db->dbb_name->sym_string);
+				if (stat && buffer[0])
+					ib_fprintf(out_file, " AND %s(2) = 0", names[ISC_STATUS]);
+				ib_fprintf(out_file, " THEN\n");
+				namelength = filename ? strlen(filename) : 0;
+#ifndef VMS
+				if (filename) {
+					sprintf(dbname, "isc-%ddb", db->dbb_id);
+					filename = dbname;
+				}
+#endif
+				make_ready(db, filename, vector, 0, namelength);
+				printa(names[COLUMN], FALSE, "END-IF");
+				if (buffer[0])
+					strcat(buffer, ") AND (");
+				sprintf(temp, "%s NOT = 0", db->dbb_name->sym_string);
+				strcat(buffer, temp);
+			}
+		if (test)
+			if (buffer[0])
+				printa(names[COLUMN], FALSE, "IF (%s) AND %s = 0 THEN",
+					   buffer, trname);
+
+			else
+				printa(names[COLUMN], FALSE, "IF %s = 0 THEN", trname);
+		else if (buffer[0])
+			printa(names[COLUMN], FALSE, "IF (%s) THEN", buffer);
+	}
+	else
+		for (count = 0, db = isc_databases; db; db = db->dbb_next, count++);
+
+	col = (stat) ? names[COLUMN_INDENT] : names[COLUMN];
+
+	printa(col, TRUE, "CALL \"%s\" USING %s, %s%s, %s%d%s",
+		   ISC_START_TRANSACTION, vector, BY_REF, trname,
+		   BY_VALUE, count, END_VALUE);
+
+	for (db = isc_databases; db; db = db->dbb_next)
+		printa(names[CONTINUE], TRUE, ", %s%s, %s, %s",
+			   BY_REF, db->dbb_name->sym_string, OMITTED, OMITTED);
+
+	if (sw_auto && (test || buffer[0]))
+		printa(names[COLUMN], FALSE, "END-IF");
+
+
+	set_sqlcode(action);
+}
diff --git a/src/gpre/dyntable.cpp b/src/gpre/dyntable.cpp
new file mode 100644
index 0000000000..eff0ba68a1
--- /dev/null
+++ b/src/gpre/dyntable.cpp
@@ -0,0 +1,147 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	BLR Pretty Printer
+//		MODULE:		dyntable.cpp
+//		DESCRIPTION:	Dynamic DDL to internal conversion table generator
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  
+//
+//____________________________________________________________
+//
+//	$Id: dyntable.cpp,v 1.1.1.1 2001-05-23 13:25:32 tamlin Exp $
+//
+
+#include "../jrd/ib_stdio.h"
+#include "../include/jrd/gds.h"
+
+#define NODE(dyn) dyn, "dyn",
+#ifndef NULL
+#define NULL	0
+#endif
+
+struct dyn {
+	SSHORT dyn_value;
+	SCHAR *dyn_string;
+} dyn_table[] = {
+	NODE(gds__dyn_begin)
+		NODE(gds__dyn_end)
+		NODE(gds__dyn_if)
+		NODE(gds__dyn_def_database)
+		NODE(gds__dyn_def_global_fld)
+		NODE(gds__dyn_def_local_fld)
+		NODE(gds__dyn_def_idx)
+		NODE(gds__dyn_def_rel)
+		NODE(gds__dyn_def_view)
+		NODE(gds__dyn_def_sql_fld)
+		NODE(gds__dyn_def_trigger)
+		NODE(gds__dyn_mod_rel)
+		NODE(gds__dyn_mod_global_fld)
+		NODE(gds__dyn_mod_local_fld)
+		NODE(gds__dyn_mod_view)
+		NODE(gds__dyn_delete_database)
+		NODE(gds__dyn_delete_rel)
+		NODE(gds__dyn_delete_global_fld)
+		NODE(gds__dyn_delete_local_fld)
+		NODE(gds__dyn_delete_idx)
+		NODE(gds__dyn_rel_defined)
+		NODE(gds__dyn_global_fld_defined)
+		NODE(gds__dyn_local_fld_defined)
+		NODE(gds__dyn_index_defined)
+		NODE(gds__dyn_not)
+		NODE(gds__dyn_and)
+		NODE(gds__dyn_or)
+		NODE(gds__dyn_rel_name)
+		NODE(gds__dyn_fld_name)
+		NODE(gds__dyn_idx_name)
+		NODE(gds__dyn_description)
+		NODE(gds__dyn_security_class)
+		NODE(gds__dyn_system_flag)
+		NODE(gds__dyn_update_flag)
+
+		NODE(gds__dyn_view_blr)
+		NODE(gds__dyn_view_source)
+		NODE(gds__dyn_view_relation)
+		NODE(gds__dyn_view_context)
+		NODE(gds__dyn_view_context_name)
+
+		NODE(gds__dyn_rel_dbkey_length)
+		NODE(gds__dyn_rel_store_trig)
+		NODE(gds__dyn_rel_modify_trig)
+		NODE(gds__dyn_rel_erase_trig)
+		NODE(gds__dyn_rel_store_trig_source)
+		NODE(gds__dyn_rel_modify_trig_source)
+		NODE(gds__dyn_rel_erase_trig_source)
+		NODE(gds__dyn_rel_sql_protection)
+		NODE(gds__dyn_fld_type)
+		NODE(gds__dyn_fld_length)
+		NODE(gds__dyn_fld_scale)
+		NODE(gds__dyn_fld_sub_type)
+		NODE(gds__dyn_fld_segment_length)
+		NODE(gds__dyn_fld_query_header)
+		NODE(gds__dyn_fld_edit_string)
+		NODE(gds__dyn_fld_validation_blr)
+		NODE(gds__dyn_fld_validate_source)
+		NODE(gds__dyn_fld_computed_blr)
+		NODE(gds__dyn_fld_computed_source)
+		NODE(gds__dyn_fld_missing_value)
+		NODE(gds__dyn_fld_default_value)
+		NODE(gds__dyn_fld_query_name)
+		NODE(gds__dyn_fld_source)
+		NODE(gds__dyn_fld_base_fld)
+		NODE(gds__dyn_fld_position)
+		NODE(gds__dyn_fld_update_flag)
+		NODE(gds__dyn_idx_unique)
+		NODE(gds__dyn_idx_active)
+		NODE(gds__dyn_trg_type)
+		NODE(gds__dyn_trg_blr)
+		NODE(gds__dyn_trg_source)
+0, 0};
+int *table[256];
+
+
+//____________________________________________________________
+//  
+//		Spit out a conversion table.
+//  
+
+main()
+{
+	struct dyn *item;
+	int max, *stuff, dyn;
+	SCHAR *table[256];
+
+	for (max = 0; max < 256; max++)
+		table[max] = NULL;
+
+	max = 0;
+	for (item = dyn_table; item->dyn_string; item++) {
+		if (table[item->dyn_value])
+			ib_fprintf(ib_stderr, "%s (%d) is duplicate\n",
+					   item->dyn_string, item->dyn_value);
+		table[item->dyn_value] = item->dyn_string;
+		if (item->dyn_value > max)
+			max = item->dyn_value;
+	}
+
+	for (dyn = 0; dyn <= max; dyn++)
+		if (table[dyn])
+			ib_printf("    \"%s\",\n", table[dyn]);
+		else
+			ib_printf("    NULL,\n");
+}
diff --git a/src/gpre/dyntable.h b/src/gpre/dyntable.h
new file mode 100644
index 0000000000..f83e774841
--- /dev/null
+++ b/src/gpre/dyntable.h
@@ -0,0 +1,145 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+NULL,							/* 0 */
+	NULL,
+	"gds__dyn_begin", "gds__dyn_end", "gds__dyn_if", "gds__dyn_def_database",	/* 5 */
+	"gds__dyn_def_global_fld",
+	"gds__dyn_def_local_fld",
+	"gds__dyn_def_idx", "gds__dyn_def_rel", "gds__dyn_def_sql_fld",	/* 10 */
+	"gds__dyn_mod_rel",
+	"gds__dyn_def_view",
+	"gds__dyn_mod_global_fld", "gds__dyn_mod_local_fld", "gds__dyn_def_trigger",	/* 15 */
+	"gds__dyn_mod_view",
+	"gds__dyn_def_trigger_msg",
+	"gds__dyn_delete_database",
+	"gds__dyn_delete_rel", "gds__dyn_delete_global_fld",	/* 20 */
+	"gds__dyn_delete_local_fld",
+	"gds__dyn_delete_idx",
+	"gds__dyn_delete_trigger", "gds__dyn_def_generator", "gds__dyn_def_function",	/* 25 */
+	"gds__dyn_def_filter",
+	"gds__dyn_def_function_arg",
+	"gds__dyn_mod_trigger_msg",
+	"gds__dyn_delete_trigger_msg", "gds__dyn_grant",	/* 30 */
+	"gds__dyn_revoke",
+	"gds__dyn_delete_filter",
+	"gds__dyn_delete_function", "gds__dyn_def_shadow", "gds__dyn_delete_shadow",	/* 35 */
+	"gds__dyn_def_file",
+	"gds__dyn_def_primary_key",
+	"gds__dyn_def_foreign_key", "gds__dyn_mod_database", "gds__dyn_def_unique",	/* 40 */
+	NULL,
+	NULL, "gds__dyn_view_blr", "gds__dyn_view_source", "gds__dyn_view_relation",	/* 45 */
+	"gds__dyn_view_context",
+	"gds__dyn_view_context_name", NULL, NULL, "gds__dyn_rel_name",	/* 50 */
+	"gds__dyn_fld_name",
+	"gds__dyn_idx_name",
+	"gds__dyn_description", "gds__dyn_security_class", "gds__dyn_system_flag",	/* 55 */
+	"gds__dyn_update_flag", NULL, NULL, NULL, NULL,	/* 60 */
+	"gds__dyn_rel_dbkey_length",
+	"gds__dyn_rel_store_trig",
+	"gds__dyn_rel_modify_trig",
+	"gds__dyn_rel_erase_trig", "gds__dyn_rel_store_trig_source",	/* 65 */
+	"gds__dyn_rel_modify_trig_source",
+	"gds__dyn_rel_erase_trig_source",
+	"gds__dyn_rel_ext_file",
+	"gds__dyn_rel_sql_protection", "gds__dyn_fld_type",	/* 70 */
+	"gds__dyn_fld_length",
+	"gds__dyn_fld_scale",
+	"gds__dyn_fld_sub_type", "gds__dyn_fld_segment_length", "gds__dyn_fld_query_header",	/* 75 */
+	"gds__dyn_fld_edit_string",
+	"gds__dyn_fld_validation_blr",
+	"gds__dyn_fld_validation_source",
+	"gds__dyn_fld_computed_blr", "gds__dyn_fld_computed_source",	/* 80 */
+	"gds__dyn_fld_missing_value",
+	"gds__dyn_fld_default_value",
+	"gds__dyn_fld_query_name",
+	"gds__dyn_fld_dimensions",
+	"gds__dyn_fld_not_null", "gds__dyn_fld_precision",	/* 86 */
+	NULL, NULL, NULL, "gds__dyn_fld_source",	/* 90 */
+	"gds__dyn_fld_base_fld",
+	"gds__dyn_fld_position",
+	"gds__dyn_fld_update_flag", NULL, "gds__dyn_generator_name",	/* 95 */
+	"gds__dyn_generator_id", NULL, NULL, NULL, "gds__dyn_idx_unique",	/* 100 */
+	"gds__dyn_idx_inactive",
+	"gds__dyn_mod_idx",
+	"gds__dyn_idx_type", "gds__dyn_idx_foreign_key", "gds__dyn_idx_ref_column",	/* 105 */
+	NULL, NULL, NULL, NULL, "gds__dyn_trg_type",	/* 110 */
+	"gds__dyn_trg_blr",
+	"gds__dyn_trg_source",
+	"gds__dyn_mod_trigger", "gds__dyn_trg_name", "gds__dyn_trg_sequence",	/* 115 */
+	"gds__dyn_trg_inactive",
+	"gds__dyn_trg_msg_number", "gds__dyn_trg_msg", NULL, "gds__dyn_def_security_class",	/* 120 */
+	"gds__dyn_scl_acl",
+	"gds__dyn_mod_security_class",
+	"gds__dyn_delete_security_class", NULL, "gds__dyn_file_name",	/* 125 */
+	"gds__dyn_file_start",
+	"gds__dyn_file_length",
+	"gds__dyn_shadow_number", "gds__dyn_shadow_man_auto", "gds__dyn_grant_user",	/* 130 *//* conflict with shadow_conditional */
+	NULL, "gds__dyn_grant_options", NULL, NULL, "gds__dyn_def_parameter",	/* 135 */
+	"gds__dyn_delete_parameter",
+	"gds__dyn_prm_name",
+	"gds__dyn_prm_number", "gds__dyn_prm_type", "gds__dyn_def_dimension",	/* 140 */
+	"gds__dyn_dim_lower",
+	"gds__dyn_dim_upper", "gds__dyn_delete_dimensions", NULL, "gds__dyn_function_name",	/* 145 */
+	"gds__dyn_function_type",
+	"gds__dyn_func_module_name",
+	"gds__dyn_func_entry_point",
+	"gds__dyn_func_return_argument", "gds__dyn_func_arg_position",	/* 150 */
+	"gds__dyn_func_mechanism",
+	"gds__dyn_filter_in_subtype",
+	"gds__dyn_filter_out_subtype",
+	"gds__dyn_description2", "gds__dyn_fld_computed_source2",	/* 155 */
+	"gds__dyn_fld_edit_string2",
+	"gds__dyn_fld_query_header2",
+	"gds__dyn_fld_validation_source2",
+	"gds__dyn_trg_msg2", "gds__dyn_trg_source2",	/* 160 */
+	"gds__dyn_view_source2",
+	"gds__dyn_rel_constraint",
+	"gds__dyn_delete_rel_constraint",
+	"gds__dyn_def_procedure", "gds__dyn_delete_procedure",	/* 165 */
+	"gds__dyn_prc_name",
+	"gds__dyn_prc_inputs",
+	"gds__dyn_prc_outputs", "gds__dyn_prc_source", "gds__dyn_prc_blr",	/* 170 */
+	"gds__dyn_prc_source2",
+	"gds__dyn_fld_char_length",
+	"gds__dyn_fld_collation",
+	"gds__dyn_fld_character_set_name", "gds__dyn_mod_procedure",	/* 175 */
+	"gds__dyn_def_log_file",
+	"gds__dyn_log_file_sequence",
+	"gds__dyn_log_file_partitions",
+	"gds__dyn_log_file_serial", "gds__dyn_def_cache_file",	/* 180 */
+	"gds__dyn_def_exception",
+	"gds__dyn_mod_exception",
+	"gds__dyn_del_exception", "gds__dyn_xcp_msg2", "gds__dyn_xcp_msg",	/* 185 */
+	"gds__dyn_grant_proc",
+	"gds__dyn_grant_trig",
+	"gds__dyn_grant_view", "gds__dyn_log_group_commit_wait", "gds__dyn_log_buffer_size",	/* 190 */
+	"gds__dyn_log_check_point_length",
+	"gds__dyn_log_num_of_buffers",
+	"gds__dyn_fld_default_source", "gds__dyn_drop_log", "gds__dyn_drop_cache",	/* 195 */
+	"gds__dyn_sql_object",
+	"gds__dyn_del_default",
+	"gds__dyn_del_validation", "gds__dyn_single_validation", "gds__dyn_log_file_overflow",	/* 200 */
+	"gds__dyn_log_file_raw",
+	"gds__dyn_def_default_log",
+	"gds__dyn_fld_character_set", "gds__dyn_idx_statistic",	/* 204 */
+	"gds__dyn_foreign_key_update",
+	"gds__dyn_foreign_key_delete",
+	"gds__dyn_foreign_key_cascade",
+	"gds__dyn_foreign_key_default",
+	"gds__dyn_foreign_key_null", "gds__dyn_foreign_key_none",	/* 210 */
diff --git a/src/gpre/exp.cpp b/src/gpre/exp.cpp
new file mode 100644
index 0000000000..d12c0ee0d6
--- /dev/null
+++ b/src/gpre/exp.cpp
@@ -0,0 +1,1771 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	C preprocessor
+//		MODULE:		exp.cpp
+//		DESCRIPTION:	Expression parser
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  
+//
+//____________________________________________________________
+//
+//	$Id: exp.cpp,v 1.1.1.1 2001-05-23 13:25:30 tamlin Exp $
+//
+
+#include <stdlib.h>
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../jrd/common.h"
+#include "../gpre/gpre.h"
+#include "../gpre/parse.h"
+#include "../gpre/form.h"
+#include "../jrd/intl.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/exp_proto.h"
+#include "../gpre/form_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/hsh_proto.h"
+#include "../gpre/gpre_meta.h"
+#include "../gpre/msc_proto.h"
+#include "../gpre/par_proto.h"
+#include "../gpre/sqe_proto.h"
+#include "../gpre/sql_proto.h"
+
+#define ZERO_BASED	0
+#define ONE_BASED	1
+
+//#ifdef MAX_USHORT
+//#undef MAX_USHORT
+//#endif
+// TMN: patched bad redefinitions
+//#define MAX_USHORT    ((USHORT)(0xFFFF))
+//#ifdef MAX_SSHORT
+//#undef MAX_SSHORT
+//#endif
+//#define MAX_SSHORT    ((SSHORT)(0x7FFF))
+//#ifdef MIN_SSHORT
+//#undef MIN_SSHORT
+//#endif
+//#define MIN_SSHORT    ((SSHORT)(0x8000))
+
+static BOOLEAN check_relation(void);
+static NOD lookup_field(CTX);
+static NOD make_and(NOD, NOD);
+static NOD make_list(LLS);
+static NOD normalize_index(DIM, NOD, USHORT);
+static NOD par_and(REQ);
+static NOD par_array(REQ, FLD, SSHORT, SSHORT);
+static NOD par_boolean(REQ);
+static NOD par_field(REQ);
+static NOD par_multiply(REQ, FLD);
+static NOD par_native_value(REQ, FLD);
+static NOD par_not(REQ);
+static NOD par_over(CTX);
+static NOD par_primitive_value(REQ, FLD);
+static NOD par_relational(REQ);
+static NOD par_udf(REQ, USHORT, FLD);
+static NOD par_value(REQ, FLD);
+
+static FLD count_field, subscript_field;
+
+static struct rel_ops {
+	enum nod_t rel_op;
+	enum kwwords rel_kw;
+	SSHORT rel_args;
+} relops[] = {
+	nod_eq, KW_EQ, 2,
+		nod_eq, KW_EQUALS, 2,
+		nod_ne, KW_NE, 2,
+		nod_gt, KW_GT, 2,
+		nod_ge, KW_GE, 2,
+		nod_le, KW_LE, 2,
+		nod_lt, KW_LT, 2,
+		nod_containing, KW_CONTAINING, 2,
+		nod_matches, KW_MATCHES, 2,
+		nod_like, KW_LIKE, 2,
+		nod_starting, KW_STARTING, 2,
+		nod_missing, KW_MISSING, 1,
+		nod_between, KW_BETWEEN, 3, nod_any, KW_none};
+
+static struct dtypes {
+	enum kwwords dtype_keyword;
+	USHORT dtype_dtype;
+} data_types[] = {
+	KW_CHAR, dtype_text,
+		KW_VARYING, dtype_varying,
+		KW_STRING, dtype_cstring,
+		KW_SHORT, dtype_short,
+		KW_LONG, dtype_long,
+		KW_QUAD, dtype_quad,
+		KW_FLOAT, dtype_real,
+		KW_DOUBLE, dtype_double, KW_DATE, dtype_date, KW_none, 0};
+
+
+//____________________________________________________________
+//  
+//		Parse array subscript.
+//  
+
+NOD EXP_array(REQ request, FLD field, SSHORT subscript_flag, SSHORT sql_flag)
+{
+
+	return par_array(request, field, subscript_flag, sql_flag);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a datatype cast (sans leading period).
+//  
+
+FLD EXP_cast(FLD field)
+{
+	struct dtypes *dtype;
+	FLD cast;
+
+	for (dtype = data_types;; dtype++)
+		if ((int) dtype->dtype_keyword == (int) KW_none)
+			return NULL;
+		else if (MATCH(dtype->dtype_keyword))
+			break;
+
+	cast = (FLD) ALLOC(FLD_LEN);
+	cast->fld_symbol = field->fld_symbol;
+
+	switch (cast->fld_dtype = dtype->dtype_dtype) {
+	case dtype_varying:
+		cast->fld_length++;
+
+	case dtype_cstring:
+		cast->fld_length++;
+
+	case dtype_text:
+		if (sw_cstring && !(cast->fld_dtype == dtype_cstring)) {
+			cast->fld_length++;
+			cast->fld_dtype = dtype_cstring;
+		}
+		if (!MATCH(KW_L_BRCKET) && !MATCH(KW_LT))
+			SYNTAX_ERROR("left bracket or <");
+		cast->fld_length += EXP_pos_USHORT_ordinal(TRUE);
+		if (!MATCH(KW_R_BRCKET) && !MATCH(KW_GT))
+			SYNTAX_ERROR("right bracket or >");
+		break;
+
+	case dtype_quad:
+		cast->fld_length = 4;
+		break;
+
+ /** Begin date/time/timestamp **/
+	case dtype_sql_date:
+		cast->fld_length = sizeof(ISC_DATE);
+		break;
+
+	case dtype_sql_time:
+		cast->fld_length = sizeof(ISC_TIME);
+		break;
+
+	case dtype_timestamp:
+		cast->fld_length = sizeof(ISC_TIMESTAMP);
+		break;
+ /** End date/time/timestamp **/
+
+	case dtype_int64:
+		cast->fld_length = sizeof(ISC_INT64);
+		break;
+
+	case dtype_long:
+		cast->fld_length = sizeof(SLONG);
+		if (MATCH(KW_SCALE))
+			cast->fld_scale = EXP_SSHORT_ordinal(TRUE);
+		break;
+
+	case dtype_short:
+		cast->fld_length = sizeof(SSHORT);
+		if (MATCH(KW_SCALE))
+			cast->fld_scale = EXP_SSHORT_ordinal(TRUE);
+		break;
+
+	case dtype_float:
+		cast->fld_length = 4;
+		break;
+
+	case dtype_double:
+		cast->fld_length = 8;
+		break;
+
+	}
+
+	return cast;
+}
+
+
+//____________________________________________________________
+//
+//		Parse a clause of the form "<context> IN <relation>".
+//		If the error flag is true, and the parse fails, quietly
+//		return NULL.  Otherwise issue error messages where appropriate,
+//		and return a CONTEXT block as value.
+//
+
+CTX EXP_context(REQ request, SYM initial_symbol)
+{
+	CTX context;
+	SYM symbol;
+	REL relation;
+
+//  Use the token (context name) to make up a symbol
+//  block.  Then check for the keyword IN.  If it's
+//  missing, either complain or punt, depending on the
+//  error flag.  In either case, be sure to get rid of
+//  the symbol.  If things look kosher, continue. 
+
+	if (!(symbol = initial_symbol)) {
+		symbol = PAR_symbol(SYM_context);
+		if (!MATCH(KW_IN)) {
+			FREE((UCHAR *) symbol);
+			SYNTAX_ERROR("IN");
+		}
+	}
+
+	symbol->sym_type = SYM_context;
+
+	relation = EXP_relation();
+	context = MAKE_CONTEXT(request);
+	context->ctx_symbol = symbol;
+	context->ctx_relation = relation;
+	symbol->sym_object = context;
+
+	return context;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a qualified field clause.  If recognized,
+//		return both the field block (as value) and the
+//		context block (by reference).
+//  
+
+FLD EXP_field(CTX * rcontext)
+{
+	SYM symbol;
+	CTX context;
+	FLD field;
+	REL relation;
+	TEXT s[128];
+
+	for (symbol = token.tok_symbol; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_context)
+			break;
+
+	if (!symbol)
+		SYNTAX_ERROR("context variable");
+
+	context = symbol->sym_object;
+	relation = context->ctx_relation;
+	ADVANCE_TOKEN;
+
+	if (!MATCH(KW_DOT))
+		SYNTAX_ERROR("dot after context variable");
+
+	SQL_resolve_identifier("<Field Name>", s);
+	if (!(field = MET_field(relation, token.tok_string))) {
+		sprintf(s, "field \"%s\" is not defined in relation %s",
+				token.tok_string, relation->rel_symbol->sym_string);
+		PAR_error(s);
+	}
+
+	ADVANCE_TOKEN;
+	*rcontext = context;
+
+	return field;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a qualified form field clause.  If recognized,
+//		return both the field block (as value) and the
+//		context block (by reference).
+//  
+
+FLD EXP_form_field(CTX * rcontext)
+{
+	SYM symbol;
+	CTX context;
+	FLD field, child;
+	REF reference, parent;
+	REQ request;
+	FORM form;
+	TEXT s[128];
+
+	if (!(symbol = token.tok_symbol) || symbol->sym_type != SYM_form_map)
+		SYNTAX_ERROR("context variable");
+
+	*rcontext = context = symbol->sym_object;
+	request = context->ctx_request;
+	form = request->req_form;
+	ADVANCE_TOKEN;
+
+	if (!MATCH(KW_DOT))
+		SYNTAX_ERROR("dot after context variable");
+
+	if (MATCH(KW_TERMINATOR))
+		if (reference = request->req_eof)
+			return reference->ref_field;
+		else {
+			field =
+				MET_make_field("TERMINATOR", dtype_short, sizeof(SSHORT),
+							   FALSE);
+			reference = EXP_post_field(field, context, FALSE);
+			reference->ref_flags |= REF_pseudo;
+			request->req_eof = reference;
+			return field;
+		}
+
+	if (MATCH(KW_TERMINATING_FIELD))
+		if (reference = request->req_term_field)
+			return reference->ref_field;
+		else {
+			if (sw_cstring)
+				field =
+					MET_make_field("TERMINATING_FIELD", dtype_cstring, 32,
+								   FALSE);
+			else
+				field =
+					MET_make_field("TERMINATING_FIELD", dtype_text, 31,
+								   FALSE);
+			reference = EXP_post_field(field, context, FALSE);
+			reference->ref_flags |= REF_pseudo;
+			request->req_term_field = reference;
+			return field;
+		}
+
+	if (!
+		(field =
+		 FORM_lookup_field(form, form->form_object, token.tok_string))) {
+		sprintf(s, "field \"%s\" is not defined in form %s", token.tok_string,
+				form->form_name->sym_string);
+		PAR_error(s);
+	}
+
+	ADVANCE_TOKEN;
+
+//  Unless field is further qualified, we're done 
+
+	if (!MATCH(KW_DOT))
+		return field;
+
+//  Check for a sub-field reference 
+
+	parent = NULL;
+	if (field->fld_prototype &&
+		(child =
+		 FORM_lookup_field(request->req_form, field->fld_prototype,
+						   token.tok_string))) {
+		ADVANCE_TOKEN;
+		parent = MAKE_REFERENCE(0);
+		parent->ref_field = field;
+		field = child;
+	}
+
+	reference = EXP_post_field(field, context, FALSE);
+	if ((reference->ref_friend = parent) && !(MATCH(KW_DOT)))
+		return reference->ref_field;
+
+	if (!MATCH(KW_STATE))
+		SYNTAX_ERROR("STATE");
+
+	reference = reference->ref_null;
+	return reference->ref_field;
+}
+
+
+//____________________________________________________________
+//  
+//		Eat a left parenthesis, complain if not there.
+//  
+
+void EXP_left_paren( TEXT * string)
+{
+
+	if (!MATCH(KW_LEFT_PAREN))
+		SYNTAX_ERROR((string) ? string : "left parenthesis");
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a native literal constant value.
+//  
+
+NOD EXP_literal(void)
+{
+	NOD node;
+	REF reference;
+	TEXT *string;
+	SYM symbol;
+
+	switch (sw_sql_dialect) {
+	case 1:
+		if (!(token.tok_type == tok_number || QUOTED(token.tok_type)))
+			return NULL;
+		break;
+	default:
+		if (!(token.tok_type == tok_number || SINGLE_QUOTED(token.tok_type)))
+			return NULL;
+	}
+
+	reference = (REF) ALLOC(REF_LEN);
+	node = MSC_unary(nod_literal, (NOD) reference);
+	if (QUOTED(token.tok_type)) {
+		reference->ref_value = string = (TEXT *) ALLOC(token.tok_length + 3);
+		strcat(string, "\'");
+		COPY(token.tok_string, token.tok_length, string + 1);
+		strcat((string + token.tok_length + 1), "\'");
+		token.tok_length += 2;
+	}
+	else {
+		reference->ref_value = string = (TEXT *) ALLOC(token.tok_length + 1);
+		COPY(token.tok_string, token.tok_length, string);
+	}
+
+// ** Begin date/time/timestamp *
+	switch (token.tok_keyword) {
+	case KW_DATE:
+		reference->ref_flags |= REF_sql_date;
+		break;
+
+	case KW_TIME:
+		reference->ref_flags |= REF_sql_time;
+		break;
+
+	case KW_TIMESTAMP:
+		reference->ref_flags |= REF_timestamp;
+		break;
+	/** Do not put a default here **/
+	}
+// ** End date/time/timestamp *
+	if (((SINGLE_QUOTED(token.tok_type)) && (token.tok_charset)) ||
+		((QUOTED(token.tok_type) && (sw_sql_dialect == 1))
+		 && (token.tok_charset)))
+	{
+		reference->ref_flags |= REF_ttype;
+		symbol = token.tok_charset;
+		reference->ref_ttype =
+			((INTLSYM) (symbol->sym_object))->intlsym_ttype;
+	}
+	else if (sw_language == lang_internal) {
+		/* literals referenced in an Internal request are always correct charset */
+		reference->ref_flags |= REF_ttype;
+		reference->ref_ttype = ttype_metadata;
+	}
+	ADVANCE_TOKEN;
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse and convert to binary a numeric token.
+//		Restrict to LONG range.
+//  
+
+SINT64 EXP_SINT64_ordinal(USHORT advance_flag)
+{
+	USHORT negate;
+	SINT64 n;
+	char buffer[64];
+	char format[8];
+
+#ifdef SOLARIS
+#ifdef SOLARIS26
+	sprintf(format, "%c%sd", '%', QUADFORMAT);
+#else
+	sprintf(format, "%s", "%lld");
+#endif
+#else
+	sprintf(format, "%c%sd", '%', QUADFORMAT);
+#endif
+
+	negate = (MATCH(KW_MINUS)) ? TRUE : FALSE;
+
+	if (token.tok_type != tok_number)
+		SYNTAX_ERROR("<number>");
+
+	sscanf(token.tok_string, format, &n);
+	sprintf(buffer, format, n);
+	if (strcmp(buffer, token.tok_string) != 0)
+		PAR_error("Numeric value out of range");
+
+	if (advance_flag)
+		ADVANCE_TOKEN;
+
+	return (negate) ? -n : n;
+}
+
+//____________________________________________________________
+//  
+//		Parse and convert to binary a numeric token.
+//		Restrict to LONG range.
+//  
+
+SLONG EXP_SLONG_ordinal(USHORT advance_flag)
+{
+	USHORT negate;
+	SLONG n;
+	char buffer[32];
+
+	negate = (MATCH(KW_MINUS)) ? TRUE : FALSE;
+
+	if (token.tok_type != tok_number)
+		SYNTAX_ERROR("<number>");
+
+	n = atoi(token.tok_string);
+	sprintf(buffer, "%d", n);
+	if (strcmp(buffer, token.tok_string) != 0)
+		PAR_error("Numeric value out of range");
+
+	if (advance_flag)
+		ADVANCE_TOKEN;
+
+	return (negate) ? -n : n;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse and convert to binary a numeric token.
+//		A SSHORT is desired.
+//  
+
+SSHORT EXP_SSHORT_ordinal(USHORT advance_flag)
+{
+	USHORT negate;
+	SLONG n;
+
+	negate = (MATCH(KW_MINUS)) ? TRUE : FALSE;
+
+	if (token.tok_type != tok_number)
+		SYNTAX_ERROR("<number>");
+
+	n = atoi(token.tok_string);
+	if (negate && n > -1L * MIN_SSHORT)
+		PAR_error("Numeric value out of range");
+	else if (!negate && n > (SLONG) MAX_SSHORT)
+		PAR_error("Numeric value out of range");
+
+	if (advance_flag)
+		ADVANCE_TOKEN;
+
+	return (SSHORT) ((negate) ? -n : n);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse and convert to binary a numeric token.
+//		Restrict to LONG range.
+//  
+
+ULONG EXP_ULONG_ordinal(USHORT advance_flag)
+{
+	ULONG n;
+	char buffer[32];
+
+	if (token.tok_type != tok_number)
+		SYNTAX_ERROR("<unsigned number>");
+
+	n = atoi(token.tok_string);
+	sprintf(buffer, "%d", n);
+	if (strcmp(buffer, token.tok_string) != 0)
+		PAR_error("Numeric value out of range");
+
+	if (advance_flag)
+		ADVANCE_TOKEN;
+
+	return n;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse and convert to binary a numeric token.
+//  
+
+USHORT EXP_USHORT_ordinal(USHORT advance_flag)
+{
+	ULONG n;
+
+	if (token.tok_type != tok_number)
+		SYNTAX_ERROR("<unsigned number>");
+
+	n = atoi(token.tok_string);
+	if (n > MAX_USHORT)
+		PAR_error("Numeric value out of range");
+
+	if (advance_flag)
+		ADVANCE_TOKEN;
+
+	return (USHORT) n;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse and convert to binary a numeric token.
+//		Which must be non-zero.
+//  
+
+USHORT EXP_pos_USHORT_ordinal(USHORT advance_flag)
+{
+	USHORT n;
+
+	n = EXP_USHORT_ordinal(advance_flag);
+	if (n == 0)
+		PAR_error("Expected positive value");
+
+	return n;
+}
+
+
+//____________________________________________________________
+//  
+//		We have a free reference to array.  Make sure the whole damn thing
+//		gets sucked up.
+//  
+
+void EXP_post_array( REF reference)
+{
+	REQ request;
+	REF array_reference;
+	FLD field;
+	BLB blob;
+	CTX context;
+
+	field = reference->ref_field;
+
+	if (!field->fld_array_info)
+		return;
+
+	reference->ref_flags |= REF_fetch_array;
+
+	context = reference->ref_context;
+	request = context->ctx_request;
+	array_reference = MAKE_REFERENCE(&request->req_array_references);
+	array_reference->ref_context = context;
+	array_reference->ref_field = field;
+	array_reference->ref_level = request->req_level;
+	field->fld_array_info->ary_ident = CMP_next_ident();
+
+	blob = (BLB) ALLOC(BLB_LEN);
+	blob->blb_symbol = field->fld_symbol;
+	blob->blb_reference = reference;
+
+	if (!(blob->blb_seg_length = field->fld_seg_length))
+		blob->blb_seg_length = 512;
+
+	blob->blb_request = request;
+}
+
+
+//____________________________________________________________
+//  
+//		Post a field reference to a request.  This
+//		can be called from either par_variable (free
+//		standing field reference) or EXP\par_value
+//		(cross request field reference).
+//  
+
+REF EXP_post_field(FLD field, CTX context, USHORT null_flag)
+{
+	REQ request;
+	REF reference, control;
+	FLD ref_field;
+	TEXT s[128];
+
+	request = context->ctx_request;
+
+//  If the reference is already posted, return the reference 
+
+	for (reference = request->req_references; reference;
+		 reference =
+		 reference->ref_next) if (reference->ref_context == context) {
+			ref_field = reference->ref_field;
+			if (ref_field == field ||
+				(ref_field->fld_symbol == field->fld_symbol &&
+				 ref_field->fld_array == field->fld_array)) {
+				if (!null_flag && (ref_field->fld_dtype != field->fld_dtype ||
+								   ref_field->fld_length != field->fld_length
+								   || ref_field->fld_scale !=
+								   field->fld_scale)) {
+					if (reference->ref_flags & REF_null)
+						reference->ref_field = field;
+					else {
+						sprintf(s, "field %s is inconsistently cast",
+								field->fld_symbol->sym_string);
+						PAR_error(s);
+					}
+				}
+				if (request->req_level > reference->ref_level)
+					reference->ref_level = request->req_level;
+
+				if (!null_flag)
+					reference->ref_flags &= ~REF_null;
+				return reference;
+			}
+		}
+
+//  This is first occurrence of field, make a new reference 
+
+	reference = MAKE_REFERENCE(&request->req_references);
+	reference->ref_context = context;
+	reference->ref_field = field;
+	reference->ref_level = request->req_level;
+
+	if (null_flag)
+		reference->ref_flags |= REF_null;
+
+//  If this is a form request, make up control field for form field 
+
+	if (request->req_type == REQ_form) {
+		if (field->fld_array_info) {
+			sprintf(s,
+					"Arrays are not supported in forms.  Field %s is an array.",
+					field->fld_symbol->sym_string);
+			PAR_error(s);
+			return NULL;
+		}
+		else {
+			reference->ref_null = control =
+				MAKE_REFERENCE(&request->req_references);
+			control->ref_flags |= REF_pseudo;
+			control->ref_field =
+				MET_make_field("gds__form_control", dtype_short,
+							   sizeof(SSHORT), FALSE);
+			control->ref_context = context;
+			control->ref_master = reference;
+		}
+	}
+
+	return reference;
+}
+
+
+//____________________________________________________________
+//  
+//		Match a trailing parenthesis.  If isn't one, generate an error
+//		and return FALSE.
+//  
+
+BOOLEAN EXP_match_paren(void)
+{
+
+	if (MATCH(KW_RIGHT_PAREN))
+		return TRUE;
+
+	SYNTAX_ERROR("right parenthesis");
+	return FALSE;				/* silence compiler warning */
+}
+
+
+//____________________________________________________________
+//  
+//		Parse and look up a qualfied relation name.
+//  
+
+REL EXP_relation(void)
+{
+	SYM symbol;
+	REL relation, temp;
+	DBB db;
+	TEXT s[256];
+
+	if (!isc_databases)
+		PAR_error("no database for operation");
+
+//  The current token is (i.e. should be) either a relation
+//  name or a database name.  If it's a database name, search
+//  it for the relation name.  If it's an unqualified relation
+//  name, search all databases for the name 
+
+	relation = NULL;
+
+	SQL_resolve_identifier("<identifier>", s);
+	if (symbol = MSC_find_symbol(token.tok_symbol, SYM_database)) {
+		db = (DBB) symbol->sym_object;
+		ADVANCE_TOKEN;
+		if (!MATCH(KW_DOT))
+			SYNTAX_ERROR("period after database name");
+		SQL_resolve_identifier("<Table name>", s);
+		relation = MET_get_relation(db, token.tok_string, "");
+	}
+	else {
+		for (db = isc_databases; db; db = db->dbb_next)
+			if (temp = MET_get_relation(db, token.tok_string, "")) {
+				if (!relation)
+					relation = temp;
+				else {
+					sprintf(s, "relation %s is ambiguous", token.tok_string);
+					ADVANCE_TOKEN;
+					PAR_error(s);
+				}
+			}
+	}
+
+	if (!relation)
+		SYNTAX_ERROR("relation name");
+
+	ADVANCE_TOKEN;
+
+	return relation;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a record selection expression.  If there is an
+//		error, return NULL.  This is slightly complicated by
+//		the fact that PASCAL and FORTRAN have a native FOR
+//		statement, and ADA has a FOR <variable> IN statement.
+//  
+//		If an initial symbol is given, the caller has already
+//		parsed the <contect> IN part of the expression.
+//  
+
+RSE EXP_rse(REQ request, SYM initial_symbol)
+{
+	NOD first, item, boolean, sort, *ptr, upcase;
+	RSE rec_expr;
+	CTX context;
+	LLS items;
+	LLS directions;
+	SSHORT count, direction, insensitive;
+
+	first = boolean = NULL;
+
+//  parse FIRST n clause, if present 
+
+	if (MATCH(KW_FIRST)) {
+		if (!count_field)
+			count_field = MET_make_field("jrd_count", dtype_long, 4, FALSE);
+		first = par_value(request, count_field);
+	}
+
+//  parse first context clause 
+
+	if (initial_symbol && sw_language == lang_ada && !check_relation())
+		return NULL;
+
+	context = EXP_context(request, initial_symbol);
+	count = 1;
+
+//  parse subsequent context clauses if this is a join 
+
+	while (MATCH(KW_CROSS)) {
+		context = EXP_context(request, 0);
+		count++;
+		if (MATCH(KW_OVER))
+			boolean = make_and(boolean, par_over(context));
+	}
+
+//  bug_3380 - could have an "over" clause without a "cross" clause 
+
+	if (MATCH(KW_OVER))
+		boolean = make_and(boolean, par_over(context));
+
+//  build rse node 
+
+	rec_expr = (RSE) ALLOC(RSE_LEN(count));
+	rec_expr->rse_count = count;
+	rec_expr->rse_first = first;
+	rec_expr->rse_boolean = boolean;
+
+	while (count) {
+		rec_expr->rse_context[--count] = context;
+		HSH_insert(context->ctx_symbol);
+		context = context->ctx_next;
+	}
+
+//  parse boolean, if any.  If there is an error, ignore the
+//  boolean, but keep the rse 
+
+	if (MATCH(KW_WITH))
+		boolean = make_and(boolean, par_boolean(request));
+
+	rec_expr->rse_boolean = boolean;
+
+//  Parse SORT clause, if any. 
+
+	direction = FALSE;
+	insensitive = FALSE;
+	while (TRUE) {
+		if (MATCH(KW_SORTED)) {
+			MATCH(KW_BY);
+			items = NULL;
+			direction = 0;
+			count = 0;
+			while (TRUE) {
+				if (MATCH(KW_ASCENDING)) {
+					direction = FALSE;
+					continue;
+				}
+				else if (MATCH(KW_DESCENDING)) {
+					direction = TRUE;
+					continue;
+				}
+				else if (MATCH(KW_EXACTCASE)) {
+					insensitive = FALSE;
+					continue;
+				}
+				else if (MATCH(KW_ANYCASE)) {
+					insensitive = TRUE;
+					continue;
+				}
+				item = par_value(request, 0);
+				if (insensitive) {
+					upcase = MAKE_NODE(nod_upcase, 1);
+					upcase->nod_arg[0] = item;
+				}
+				count++;
+				PUSH((NOD) direction, &directions);
+				if (insensitive)
+					PUSH(upcase, &items);
+				else
+					PUSH(item, &items);
+				if (!MATCH(KW_COMMA))
+					break;
+			}
+			rec_expr->rse_sort = sort =
+				MAKE_NODE(nod_sort, (SSHORT) (count * 2));
+			sort->nod_count = count;
+			ptr = sort->nod_arg + count * 2;
+			while (--count >= 0) {
+				*--ptr = (NOD) POP(&items);
+				*--ptr = (NOD) POP(&directions);
+			}
+		}
+
+		/* Parse REDUCED clause, if any. */
+
+		else if (MATCH(KW_REDUCED)) {
+			MATCH(KW_TO);
+			items = NULL;
+			count = 0;
+			while (TRUE) {
+				item = par_value(request, 0);
+				count++;
+				PUSH(item, &items);
+				if (!MATCH(KW_COMMA))
+					break;
+			}
+			rec_expr->rse_reduced = sort = MAKE_NODE(nod_projection, count);
+			sort->nod_count = count;
+			ptr = sort->nod_arg + count;
+			while (--count >= 0)
+				*--ptr = (NOD) POP(&items);
+		}
+		else
+			break;
+	}
+
+	return rec_expr;
+}
+
+
+//____________________________________________________________
+//  
+//		Remove any context variables from hash table for a record
+//		selection expression.
+//  
+
+void EXP_rse_cleanup( RSE rse)
+{
+	NOD node;
+	CTX *context, *end;
+	USHORT i;
+
+//  Clean up simple context variables 
+
+	context = rse->rse_context;
+	end = context + rse->rse_count;
+
+	for (; context < end; context++)
+		if ((*context)->ctx_symbol)
+			HSH_remove((*context)->ctx_symbol);
+
+//  If this is an aggregate, clean up the underlying rse 
+
+	if (rse->rse_aggregate)
+		EXP_rse_cleanup(rse->rse_aggregate);
+
+//  If this is a union, clean up each of the primitive rse's 
+
+	if (node = rse->rse_union)
+		for (i = 0; i < node->nod_count; i++)
+			EXP_rse_cleanup((RSE) node->nod_arg[i]);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a subscript value.  This is called by PAR\par_slice.
+//  
+
+NOD EXP_subscript(REQ request)
+{
+	NOD node;
+	REF reference;
+	TEXT *string;
+
+	reference = (REF) ALLOC(REF_LEN);
+	node = MSC_unary(nod_value, (NOD) reference);
+
+//  Special case literals 
+
+	if (token.tok_type == tok_number) {
+		node->nod_type = nod_literal;
+		reference->ref_value = string = (TEXT *) ALLOC(token.tok_length + 1);
+		COPY(token.tok_string, token.tok_length, string);
+		ADVANCE_TOKEN;
+		return node;
+	}
+
+	reference->ref_value = PAR_native_value(TRUE, FALSE);
+
+	if (request) {
+		reference->ref_next = request->req_values;
+		request->req_values = reference;
+	}
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Check current token for either a relation or database name.
+//  
+
+static BOOLEAN check_relation(void)
+{
+	SYM symbol;
+	DBB db;
+
+//  The current token is (i.e. should be) either a relation
+//  name or a database name.  If it's a database name, search
+//  it for the relation name.  If it's an unqualified relation
+//  name, search all databases for the name 
+
+	if ((symbol = token.tok_symbol) && symbol->sym_type == SYM_database)
+		return TRUE;
+
+	for (db = isc_databases; db; db = db->dbb_next)
+		if (MET_get_relation(db, token.tok_string, ""))
+			return TRUE;
+
+	return FALSE;
+}
+
+
+//____________________________________________________________
+//  
+//		Check to see if the current token is a field name corresponding
+//		to a given context.  If so, return a field block (with reference
+//		block) for field.
+//  
+
+static NOD lookup_field( CTX context)
+{
+	REF reference;
+	FLD field;
+	char s[132];
+
+	SQL_resolve_identifier("<Field Name>", s);
+	if (!(field = MET_field(context->ctx_relation, token.tok_string)))
+		return NULL;
+
+	reference = (REF) ALLOC(REF_LEN);
+	reference->ref_field = field;
+	reference->ref_context = context;
+
+	return MSC_unary(nod_field, (NOD) reference);
+}
+
+
+//____________________________________________________________
+//  
+//		Combine two (potention) conjuncts into a single, valid
+//		boolean.  Either or both on the conjunctions may be NULL.
+//		If both are null, return null.
+//  
+
+static NOD make_and( NOD node1, NOD node2)
+{
+
+	if (!node1)
+		return node2;
+
+	if (!node2)
+		return NULL;
+
+	return MSC_binary(nod_and, node1, node2);
+}
+
+
+//____________________________________________________________
+//  
+//		Make a generic variable length node from a stack.
+//  
+
+static NOD make_list( LLS stack)
+{
+	USHORT count;
+	LLS temp;
+	NOD node, *ptr;
+
+	for (temp = stack, count = 0; temp; temp = temp->lls_next)
+		++count;
+
+	node = MAKE_NODE(nod_list, count);
+
+	for (ptr = node->nod_arg + count; stack;)
+		*--ptr = POP(&stack);
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		"Normalize" the array index so that
+//		the index used in the rse refers to
+//		the same relative position in the
+//		dimension in the database as it is
+//		in the user's program.
+//  
+
+static NOD normalize_index( DIM dimension, NOD user_index, USHORT array_base)
+{
+	NOD index_node, adjustment_node, negate_node;
+	REF reference;
+	TEXT string[33];
+	BOOLEAN negate;
+
+	negate = FALSE;
+	switch (array_base) {
+	case ZERO_BASED:
+		if (dimension->dim_lower < 0)
+			negate = TRUE;
+		sprintf(string, "%d", abs(dimension->dim_lower));
+		break;
+
+	case ONE_BASED:
+		if (dimension->dim_lower - 1 < 0)
+			negate = TRUE;
+		sprintf(string, "%d", abs(dimension->dim_lower - 1));
+		break;
+
+	default:
+		return user_index;
+	}
+
+	reference = (REF) ALLOC(REF_LEN);
+	reference->ref_value = (TEXT *) ALLOC(strlen(string));
+	strcpy(reference->ref_value, string);
+	adjustment_node = MSC_unary(nod_literal, (NOD) reference);
+
+	if (negate)
+		negate_node = MSC_unary(nod_negate, adjustment_node);
+	else
+		negate_node = adjustment_node;
+
+	index_node = MSC_binary(nod_plus, negate_node, user_index);
+
+	return index_node;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a boolean AND.
+//  
+
+static NOD par_and( REQ request)
+{
+	NOD expr1;
+
+	expr1 = par_not(request);
+
+	if (!MATCH(KW_AND))
+		return expr1;
+
+	return MSC_binary(nod_and, expr1, par_and(request));
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a array element reference
+//		(array name and subscript list)
+//		in an RSE.
+//  
+
+static NOD par_array(
+					 REQ request,
+					 FLD field, SSHORT subscript_flag, SSHORT sql_flag)
+{
+	BOOLEAN paren = FALSE, bracket = FALSE;
+	DIM dimension;
+	NOD node, index_node, array_node;
+	int i, fortran_adjustment;
+
+	if (MATCH(KW_LEFT_PAREN))
+		paren = TRUE;
+	else if (MATCH(KW_L_BRCKET))
+		bracket = TRUE;
+	else if (!subscript_flag)
+		SYNTAX_ERROR("Missing parenthesis or bracket for array reference.");
+
+	array_node =
+		MSC_node(nod_array,
+				 (SSHORT) (field->fld_array_info->ary_dimension_count + 1));
+
+	if (sql_flag && ((paren && MATCH(KW_RIGHT_PAREN)) ||
+					 (bracket && MATCH(KW_R_BRCKET)))) return array_node;
+
+	fortran_adjustment = array_node->nod_count;
+	if (paren || bracket) {
+		if (!subscript_field)
+			subscript_field =
+				MET_make_field("gds_array_subscript", dtype_long, 4, FALSE);
+
+		/*  Parse a commalist of subscripts and build a tree of index nodes  */
+
+		for (dimension = field->fld_array_info->ary_dimension, i = 1;
+			 dimension; dimension = dimension->dim_next, i++) {
+			if (!sql_flag)
+				node = par_value(request, subscript_field);
+			else {
+				node = SQE_value(request, FALSE, 0, 0);
+
+				/* For all values referenced, post the subscript field   */
+
+				SQE_post_field(node, subscript_field);
+			}
+
+			index_node = MSC_unary(nod_index, node);
+
+			/* Languages which can't handle negative or non-positive bounds need to
+			   be accomodated with normalization of the indices.  */
+
+			switch (sw_language) {
+			case lang_c:
+			case lang_cxx:
+			case lang_basic:
+				index_node->nod_arg[0] =
+					normalize_index(dimension, index_node->nod_arg[0],
+									ZERO_BASED);
+				break;
+
+			case lang_cobol:
+				index_node->nod_arg[0] =
+					normalize_index(dimension, index_node->nod_arg[0],
+									ONE_BASED);
+				break;
+			}
+
+			/*  Error checking of constants being out of range will be here in the future.  */
+
+			/*  Good ole Fortran's column major order needs to be accomodated.  */
+
+			if (sw_language == lang_fortran)
+				array_node->nod_arg[fortran_adjustment - i] = index_node;
+			else
+				array_node->nod_arg[i] = index_node;
+
+			if ((dimension->dim_next) && (!MATCH(KW_COMMA)))
+				SYNTAX_ERROR
+					("Adequate number of subscripts for this array reference.");
+		}
+
+		/*  Match the parenthesis or bracket  */
+
+		if ((paren) && (!MATCH(KW_RIGHT_PAREN)))
+			SYNTAX_ERROR("Missing parenthesis for array reference.");
+		else if ((bracket) && !MATCH(KW_R_BRCKET))
+			SYNTAX_ERROR("Missing right bracket for array reference.");
+	}
+
+	return array_node;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a boolean expression.  Actually, just parse
+//		an OR node or anything of lower precedence.
+//  
+
+static NOD par_boolean( REQ request)
+{
+	NOD expr1;
+
+	expr1 = par_and(request);
+
+	if (!MATCH(KW_OR) && !MATCH(KW_OR1))
+		return expr1;
+
+	return MSC_binary(nod_or, expr1, par_boolean(request));
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a field reference.  Anything else is an error.
+//  
+
+static NOD par_field( REQ request)
+{
+	SYM symbol;
+	FLD field, cast;
+	CTX context;
+	REF reference, value_reference;
+	NOD node, prefix_node;
+	SSHORT upcase_flag;
+
+	if (!(symbol = token.tok_symbol))
+		SYNTAX_ERROR("qualified field reference");
+
+	upcase_flag = FALSE;
+
+	if (MATCH(KW_UPPERCASE)) {
+		prefix_node = MAKE_NODE(nod_upcase, 1);
+		upcase_flag = TRUE;
+		if (!MATCH(KW_LEFT_PAREN))
+			SYNTAX_ERROR("left parenthesis");
+		if (!(symbol = token.tok_symbol))
+			SYNTAX_ERROR("qualified field reference");
+	}
+
+	if (symbol->sym_type == SYM_context) {
+		field = EXP_field(&context);
+		if (field->fld_array_info)
+			node = par_array(request, field, FALSE, FALSE);
+
+		if (MATCH(KW_DOT) && (cast = EXP_cast(field)))
+			field = cast;
+	}
+	else if (symbol->sym_type == SYM_form_map)
+		field = EXP_form_field(&context);
+
+	else
+		SYNTAX_ERROR("qualified field reference");
+
+//  There is a legit field reference.  If the reference is
+//  to a field in this request, make up a reference block
+//  and a field node, and return. 
+
+	if (!field->fld_array_info)
+		node = MAKE_NODE(nod_field, 1);
+
+	if (upcase_flag)
+		prefix_node->nod_arg[0] = node;
+
+	if (context->ctx_request == request) {
+		reference = (REF) ALLOC(REF_LEN);
+		reference->ref_field = field;
+		reference->ref_context = context;
+		if (node->nod_type == nod_array)
+			reference->ref_flags |= REF_array_elem;
+		node->nod_arg[0] = (NOD) reference;
+	}
+	else {
+		/* Field wants to straddle two requests.  We need to do
+		   two things.  First, post a reference to the field to
+		   the other request.  This is a variance on code found
+		   in par_variable in par.c */
+
+		reference = EXP_post_field(field, context, FALSE);
+
+		/* Next, make a value reference for this request */
+
+		value_reference = MAKE_REFERENCE(&request->req_values);
+		value_reference->ref_field = reference->ref_field;
+		value_reference->ref_source = reference;
+
+		node->nod_type = nod_value;
+		node->nod_arg[0] = (NOD) value_reference;
+	}
+
+	if (upcase_flag) {
+		if (!MATCH(KW_RIGHT_PAREN))
+			SYNTAX_ERROR("right parenthesis");
+		return prefix_node;
+	}
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a value expression.  In specific, handle the lowest
+//		precedence operator plus/minus.
+//  
+
+static NOD par_multiply( REQ request, FLD field)
+{
+	NOD node, arg;
+	enum nod_t operator_;
+
+	node = par_primitive_value(request, field);
+
+	while (TRUE) {
+		if (MATCH(KW_ASTERISK))
+			operator_ = nod_times;
+		else if (MATCH(KW_SLASH))
+			operator_ = nod_divide;
+		else
+			return node;
+		arg = node;
+		node =
+			MSC_binary(operator_, arg, par_primitive_value(request, field));
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a native C value.
+//  
+
+static NOD par_native_value( REQ request, FLD field)
+{
+	NOD node;
+	REF reference;
+	TEXT s[64];
+
+//  Special case literals 
+
+	if (token.tok_type == tok_number || SINGLE_QUOTED(token.tok_type)
+		|| (DOUBLE_QUOTED(token.tok_type) && (sw_sql_dialect == 1))) {
+		node = EXP_literal();
+		return node;
+	}
+
+	reference = (REF) ALLOC(REF_LEN);
+	node = MSC_unary(nod_value, (NOD) reference);
+
+//  Handle general native value references.  Since these values will need
+//  to be exported to the database system, make sure there is a reference
+//  field. 
+
+	reference->ref_value = PAR_native_value(FALSE, FALSE);
+
+	if (!field) {
+		sprintf(s, "no reference field for %s", reference->ref_value);
+		PAR_error(s);
+	}
+
+	reference->ref_next = request->req_values;
+	request->req_values = reference;
+	reference->ref_field = field;
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse either a boolean NOT or a boolean parenthetical.
+//  
+
+static NOD par_not( REQ request)
+{
+	NOD node;
+
+	if (MATCH(KW_LEFT_PAREN)) {
+		node = par_boolean(request);
+		EXP_match_paren();
+		return node;
+	}
+
+	if (node = par_udf(request, UDF_boolean, 0))
+		return node;
+
+	if (!(MATCH(KW_NOT)))
+		return par_relational(request);
+
+	return MSC_unary(nod_not, par_not(request));
+}
+
+
+//____________________________________________________________
+//  
+//		Parse the substance of an OVER clause (but not the leading keyword).
+//  
+
+static NOD par_over( CTX context)
+{
+	NOD boolean, field1, field2;
+	CTX next;
+	TEXT s[64];
+
+	boolean = NULL;
+
+	do {
+		if (!(field1 = lookup_field(context))) {
+			sprintf(s, "OVER field %s undefined", token.tok_string);
+			PAR_error(s);
+		}
+		field2 = NULL;
+		for (next = context->ctx_next; next; next = next->ctx_next)
+			if (field2 = lookup_field(next))
+				break;
+		if (!field2) {
+			sprintf(s, "OVER field %s undefined", token.tok_string);
+			PAR_error(s);
+		}
+		boolean = make_and(boolean, MSC_binary(nod_eq, field1, field2));
+		ADVANCE_TOKEN;
+	}
+	while (MATCH(KW_COMMA));
+
+	return boolean;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a value expression.  In specific, handle the lowest
+//		precedence operator plus/minus.
+//  
+
+static NOD par_primitive_value( REQ request, FLD field)
+{
+	NOD node, sub;
+	SYM symbol;
+
+	if (MATCH(KW_MINUS))
+		return MSC_unary(nod_negate, par_primitive_value(request, field));
+
+	if (MATCH(KW_LEFT_PAREN)) {
+		node = par_value(request, field);
+		EXP_match_paren();
+		return node;
+	}
+
+	if (MATCH(KW_UPPERCASE)) {
+		node = MAKE_NODE(nod_upcase, 1);
+		sub = par_primitive_value(request, field);
+		node->nod_arg[0] = sub;
+		return node;
+	}
+
+	if (MATCH(KW_USER_NAME))
+		return MAKE_NODE(nod_user_name, 0);
+
+//  Check for user defined functions 
+
+	if (node = par_udf(request, UDF_value, field))
+		return node;
+
+	if (!(symbol = token.tok_symbol) ||
+		(symbol->sym_type != SYM_context && symbol->sym_type != SYM_form_map))
+		return par_native_value(request, field);
+
+	return par_field(request);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a relational expression.
+//  
+
+static NOD par_relational( REQ request)
+{
+	NOD expr, expr1, expr2;
+	REF reference;
+	FLD field;
+	USHORT negation;
+	struct rel_ops *relop;
+
+	if (MATCH(KW_ANY)) {
+		expr = MAKE_NODE(nod_any, 1);
+		expr->nod_count = 0;
+		expr->nod_arg[0] = (NOD) EXP_rse(request, 0);
+		EXP_rse_cleanup((RSE) expr->nod_arg[0]);
+		return expr;
+	}
+
+	if (MATCH(KW_UNIQUE)) {
+		expr = MAKE_NODE(nod_unique, 1);
+		expr->nod_count = 0;
+		expr->nod_arg[0] = (NOD) EXP_rse(request, 0);
+		EXP_rse_cleanup((RSE) expr->nod_arg[0]);
+		return expr;
+	}
+
+//   That's right, three pointer dereferences to get to the reference
+//   structure if there's a UDF.  V3 bug#531.  MaryAnn  12/4/89  
+
+	if (expr1 = par_udf(request, UDF_value, 0))
+		reference = (REF) (expr1->nod_arg[0]->nod_arg[0]->nod_arg[0]);
+	else {
+		expr1 = par_field(request);
+		reference = (REF) expr1->nod_arg[0];
+	}
+
+	field = reference->ref_field;
+
+//  Check for any of the binary guys 
+
+	negation = MATCH(KW_NOT);
+
+	for (relop = relops;; relop++)
+		if ((int) relop->rel_kw == (int) KW_none)
+			SYNTAX_ERROR("relational operator");
+		else if (MATCH(relop->rel_kw))
+			break;
+
+	expr2 = NULL;
+	if ((int) relop->rel_kw == (int) KW_STARTING) {
+		MATCH(KW_WITH);
+		expr = MAKE_NODE(relop->rel_op, relop->rel_args);
+	}
+	else if ((int) relop->rel_kw == (int) KW_MATCHES) {
+		expr2 = par_value(request, field);
+		if (MATCH(KW_USING))
+			expr = MAKE_NODE(nod_sleuth, 3);
+		else
+			expr = MAKE_NODE(nod_matches, 2);
+	}
+	else
+		expr = MAKE_NODE(relop->rel_op, relop->rel_args);
+
+	expr->nod_arg[0] = expr1;
+
+	switch (expr->nod_type) {
+	case nod_missing:
+		break;
+
+	case nod_between:
+		expr->nod_arg[1] = expr2 = par_value(request, field);
+		MATCH(KW_AND);
+		expr->nod_arg[2] = par_value(request, field);
+		break;
+
+	case nod_matches:
+		expr->nod_arg[1] = expr2;
+		break;
+
+	case nod_sleuth:
+		expr->nod_arg[1] = expr2;
+		expr->nod_arg[2] = par_value(request, field);
+		break;
+
+	default:
+		expr->nod_arg[1] = expr2 = par_value(request, field);
+	}
+
+	if (expr2)
+		if (expr1->nod_type == nod_array && expr2->nod_type == nod_value)
+			((REF) expr2->nod_arg[0])->ref_flags |=
+				((REF) expr1->nod_arg[0])->ref_flags & REF_array_elem;
+		else if (expr2->nod_type == nod_array && expr1->nod_type == nod_value)
+			((REF) expr1->nod_arg[0])->ref_flags |=
+				((REF) expr2->nod_arg[0])->ref_flags & REF_array_elem;
+
+	if (!negation)
+		return expr;
+
+	return MSC_unary(nod_not, expr);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a user defined function.  If the current token isn't one,
+//		return NULL.  Otherwise try to parse one.  If things go badly,
+//		complain bitterly.
+//  
+
+static NOD par_udf( REQ request, USHORT type, FLD field)
+{
+	NOD node;
+	SYM symbol;
+	LLS stack;
+	UDF udf;
+
+	if (!request)
+		return NULL;
+
+//  Check for user defined functions 
+
+	for (symbol = token.tok_symbol; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_udf && (udf = (UDF) symbol->sym_object) &&
+			/* request->req_database == udf->udf_database && */
+			udf->udf_type == type) {
+			node = MAKE_NODE(nod_udf, 2);
+			node->nod_count = 1;
+			node->nod_arg[1] = (NOD) udf;
+			ADVANCE_TOKEN;
+			if (!MATCH(KW_LEFT_PAREN))
+				EXP_left_paren(0);
+			stack = NULL;
+			for (;;) {
+				PUSH(par_value(request, field), &stack);
+				if (!MATCH(KW_COMMA))
+					break;
+			}
+			EXP_match_paren();
+			node->nod_arg[0] = make_list(stack);
+			return node;
+		}
+
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a value expression.  In specific, handle the lowest
+//		precedence operator plus/minus.
+//  
+
+static NOD par_value( REQ request, FLD field)
+{
+	NOD node, arg;
+	enum nod_t operator_;
+
+	node = par_multiply(request, field);
+
+	while (TRUE) {
+		if (MATCH(KW_PLUS))
+			operator_ = nod_plus;
+		else if (MATCH(KW_MINUS))
+			operator_ = nod_minus;
+		else
+			return node;
+		arg = node;
+		node = MSC_binary(operator_, arg, par_value(request, field));
+	}
+}
diff --git a/src/gpre/exp_proto.h b/src/gpre/exp_proto.h
new file mode 100644
index 0000000000..f010227001
--- /dev/null
+++ b/src/gpre/exp_proto.h
@@ -0,0 +1,48 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		exp_proto.h
+ *	DESCRIPTION:	Prototype header file for exp.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_EXP_PROTO_H_
+#define _GPRE_EXP_PROTO_H_
+
+extern NOD EXP_array(REQ, FLD, SSHORT, SSHORT);
+extern FLD EXP_cast(FLD);
+extern CTX EXP_context(REQ, SYM);
+extern FLD EXP_field(CTX *);
+extern FLD EXP_form_field(CTX *);
+extern void EXP_left_paren(TEXT *);
+extern NOD EXP_literal(void);
+extern void EXP_post_array(REF);
+extern REF EXP_post_field(FLD, CTX, USHORT);
+extern BOOLEAN EXP_match_paren(void);
+extern REL EXP_relation(void);
+extern RSE EXP_rse(REQ, SYM);
+extern void EXP_rse_cleanup(RSE);
+extern NOD EXP_subscript(REQ);
+extern SLONG EXP_SLONG_ordinal(USHORT);
+extern SINT64 EXP_SINT64_ordinal(USHORT);
+extern SSHORT EXP_SSHORT_ordinal(USHORT);
+extern ULONG EXP_ULONG_ordinal(USHORT);
+extern USHORT EXP_USHORT_ordinal(USHORT);
+extern USHORT EXP_pos_USHORT_ordinal(USHORT);
+
+#endif /* _GPRE_EXP_PROTO_H_ */
diff --git a/src/gpre/form.cpp b/src/gpre/form.cpp
new file mode 100644
index 0000000000..cf43e2fd37
--- /dev/null
+++ b/src/gpre/form.cpp
@@ -0,0 +1,195 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	Language Preprocessor
+//		MODULE:		form.cpp
+//		DESCRIPTION:	Form manager stuff
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  $Id: form.cpp,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+//  Revision 1.2  2000/11/27 09:26:13  fsg
+//  Fixed bugs in gpre to handle PYXIS forms
+//  and allow edit.e and fred.e to go through
+//  gpre without errors (and correct result).
+//  
+//  This is a partial fix until all
+//  PYXIS datatypes are adjusted in frm_trn.c
+//  
+//  removed some compiler warnings too
+//  
+//  
+//
+//____________________________________________________________
+//
+//	$Id: form.cpp,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+//
+
+#include "../gpre/gpre.h"
+#include "../gpre/form.h"
+#include "../pyxis/phase1.h"
+#include "../gpre/form_proto.h"
+#include "../gpre/form__proto.h"
+#include "../gpre/hsh_proto.h"
+#include "../gpre/msc_proto.h"
+
+typedef int *HANDLE;
+
+extern HANDLE PYXIS_find_field(), PYXIS_get_attribute_value();
+
+extern USHORT sw_cstring;
+
+#define GET_VALUE	PYXIS_get_attribute_value
+
+
+//____________________________________________________________
+//  
+//		Lookup field in form.
+//  
+
+FLD FORM_lookup_field( FORM form, HANDLE object, char *string)
+{
+	SYM symbol;
+	FLD field;
+	UCHAR name[32], *p;
+	HANDLE handle;
+	USHORT l;
+
+	for (p = name; (*p = UPPER(*string)); string++, p++);
+
+//  See if we already know about field 
+
+	for (field = form->form_fields; field; field = field->fld_next) {
+		symbol = field->fld_symbol;
+		if (!strcmp(name, symbol->sym_string))
+			return field;
+	}
+
+//  Haven't seen it before -- look it up on form 
+
+	if (!(handle = PYXIS_find_field(object, name)))
+		return NULL;
+//  Make field block and decrypt data type 
+
+	field = (FLD) ALLOC(sizeof(struct fld));
+	field->fld_next = form->form_fields;
+	form->form_fields = field;
+	field->fld_handle = handle;
+	field->fld_prototype = GET_VALUE(handle, att_prototype);
+	field->fld_dtype = FORM_TRN_dtype((USHORT) GET_VALUE(handle, att_dtype));
+	field->fld_length = (int) GET_VALUE(handle, att_length);
+	field->fld_scale = (int) GET_VALUE(handle, att_scale);
+
+	if (field->fld_dtype == dtype_varying) {
+		field->fld_dtype = dtype_text;
+		field->fld_flags |= FLD_text;
+		field->fld_length -= 2;
+	}
+
+	if (sw_cstring &&
+		(field->fld_dtype == dtype_text ||
+		 field->fld_dtype == dtype_varying)) {
+		field->fld_dtype = dtype_cstring;
+		++field->fld_length;
+	}
+
+//  Make up symbol block 
+
+	l = p - name;
+	field->fld_symbol = symbol = MSC_symbol(SYM_form_field, name, l, 0);
+
+	return field;
+}
+
+
+//____________________________________________________________
+//  
+//		Lookup form.  This may be an instance already in
+//		use.
+//  
+
+FORM FORM_lookup_form(DBB dbb, UCHAR * string)
+{
+	SYM symbol;
+	FORM form;
+	USHORT l;
+	STATUS status[20];
+	UCHAR name[32], *p;
+
+	if (!dbb)
+		return NULL;
+
+	for (p = name; (*p = UPPER(*string)); string++, p++);
+
+//  See if we already know about form 
+
+	l = p - name;
+
+	for (symbol = HSH_lookup(name); symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_form &&
+			(form = (FORM) symbol->sym_object) && form->form_dbb == dbb)
+			return form;
+
+//  Load form 
+
+	form = (FORM) ALLOC(sizeof(struct form));
+	pyxis__load_form(status,
+					 &dbb->dbb_handle, &dbb->dbb_transaction,
+					 &form->form_object, 0, name);
+
+	if (!form->form_object)
+		return NULL;
+// *PYXIS_print(form->form_object,0);
+	form->form_dbb = dbb;
+	form->form_next = dbb->dbb_forms;
+	dbb->dbb_forms = form;
+
+//  Make up form block, etc 
+
+	form->form_name = symbol = MSC_symbol(SYM_form, name, l, (CTX) form);
+	HSH_insert(symbol);
+
+	return form;
+}
+
+
+//____________________________________________________________
+//  
+//		Lookup sub-form of a given form.
+//  
+
+FORM FORM_lookup_subform(FORM parent, FLD field)
+{
+	FORM form;
+
+//  Allocate form block 
+
+	form = (FORM) ALLOC(sizeof(struct form));
+	form->form_dbb = parent->form_dbb;
+	form->form_field = field;
+	form->form_name = field->fld_symbol;
+
+	if (!
+		(form->form_object =
+		 PYXIS_get_attribute_value(field->fld_handle,
+								   att_prototype))) return NULL;
+
+	field->fld_dtype = dtype_short;
+	field->fld_length = sizeof(SSHORT);
+	field->fld_flags |= FLD_repeating;
+
+	return form;
+}
diff --git a/src/gpre/form.h b/src/gpre/form.h
new file mode 100644
index 0000000000..91c2472904
--- /dev/null
+++ b/src/gpre/form.h
@@ -0,0 +1,79 @@
+/*
+ *	PROGRAM:	Language Preprocessor
+ *	MODULE:		form.h
+ *	DESCRIPTION:	Form definition modules
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_FORM_H_
+#define _GPRE_FORM_H_
+
+/* Form instance */
+
+typedef struct form {
+	struct dbb *form_dbb;		/* Parent database */
+	struct form *form_next;		/* Next form in database */
+	struct sym *form_name;		/* Form name */
+	struct fld *form_fields;	/* Form fields */
+	struct req *form_parent;	/* Parent form request */
+	struct fld *form_field;		/* Field in parent */
+	int *form_object;			/* Form data structure */
+	TEXT *form_handle;			/* Runtime form handle */
+} *FORM;
+
+/* Form Interaction */
+
+typedef struct fint {
+	struct req *fint_request;	/* Parent request */
+	USHORT fint_flags;			/* Misc crud */
+	struct lls *fint_display_fields;	/* List of fields for display */
+	struct lls *fint_update_fields;	/* List of fields for update */
+	struct lls *fint_wakeup_fields;	/* List of fields for immediate wakeup */
+	struct lls *fint_position_fields;	/* Field for cursor position */
+	struct lls *fint_override_fields;	/* Fields to be left alone */
+} *FINT;
+
+#define FINT_display_all	1
+#define FINT_update_all		2
+#define FINT_wakeup_all		4
+#define FINT_override_all	8
+#define FINT_no_wait		16
+
+/* menu instance.  Note that the entree structure must appear at the beginning of the
+   menu structure.  */
+
+
+typedef struct entree {
+	struct req *entree_request;	/* Parent request */
+	USHORT entree_entree;		/* ident for entree */
+	USHORT entree_value;		/* ident for entree value */
+	USHORT entree_end;			/* ident for end flag for get */
+} *ENTREE;
+
+typedef struct menu {
+	struct entree menu_entree;	/* current/terminating entree */
+	USHORT menu_title;			/* ident for menu title */
+	USHORT menu_terminator;		/* ident for menu terminator */
+} *MENU;
+
+#define		menu_request		menu_entree.entree_request
+#define		menu_entree_value	menu_entree.entree_value
+#define		menu_entree_entree	menu_entree.entree_entree
+
+#endif /* _GPRE_FORM_H_ */
diff --git a/src/gpre/form__proto.h b/src/gpre/form__proto.h
new file mode 100644
index 0000000000..b374992a2d
--- /dev/null
+++ b/src/gpre/form__proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		form__proto.h
+ *	DESCRIPTION:	Prototype header file for form_trn.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_FORM__PROTO_H_
+#define _GPRE_FORM__PROTO_H_
+
+extern USHORT FORM_TRN_dtype(USHORT);
+
+#endif /* _GPRE_FORM__PROTO_H_ */
diff --git a/src/gpre/form_proto.h b/src/gpre/form_proto.h
new file mode 100644
index 0000000000..3d6bb98675
--- /dev/null
+++ b/src/gpre/form_proto.h
@@ -0,0 +1,31 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		form_proto.h
+ *	DESCRIPTION:	Prototype header file for form.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_FORM_PROTO_H_
+#define _GPRE_FORM_PROTO_H_
+
+extern FLD FORM_lookup_field(FORM, int *, char *);
+extern FORM FORM_lookup_form(DBB, UCHAR *);
+extern FORM FORM_lookup_subform(FORM, FLD);
+
+#endif /* _GPRE_FORM_PROTO_H_ */
diff --git a/src/gpre/form_trn.cpp b/src/gpre/form_trn.cpp
new file mode 100644
index 0000000000..94a5a9da45
--- /dev/null
+++ b/src/gpre/form_trn.cpp
@@ -0,0 +1,167 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	Language Preprocessor
+//		MODULE:		form_trn.cpp
+//		DESCRIPTION:	Form manager dtype translator
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  $Id: form_trn.cpp,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+//  Revision 1.3  2000/11/29 11:11:56  fsg
+//  Added some more PYXIS datatypes to form_trn.c
+//  
+//  Revision 1.2  2000/11/27 09:26:13  fsg
+//  Fixed bugs in gpre to handle PYXIS forms
+//  and allow edit.e and fred.e to go through
+//  gpre without errors (and correct result).
+//  
+//  This is a partial fix until all
+//  PYXIS datatypes are adjusted in frm_trn.c
+//  
+//  removed some compiler warnings too
+//  
+//  
+//
+//____________________________________________________________
+//
+//	$Id: form_trn.cpp,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+//
+
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+
+//  
+//The datatypes from dsc.h 
+//can't be used with 
+//PYXIS forms 
+//FSG 26.Nov.2000
+//#include "../jrd/dsc.h"
+//  
+//  
+#include "../gpre/form__proto.h"
+
+
+
+//  
+//I have now figured out most of the
+//PYXIS datatypes 
+//  
+//FSG 29.Nov.2000
+//  
+
+#define ptype_null      0
+#define ptype_text      1
+#define ptype_cstring   2
+#define ptype_varying   3
+#define ptype_short     4
+#define ptype_long      5
+#define ptype_quad      6
+#define ptype_real      7
+#define ptype_double    8
+#define ptype_timestamp 9
+#define ptype_blob      10
+
+
+//  FIX ME the following are  
+//         from dsc.h and are
+//         probably wrong
+//         but I don't believe
+//         that these are used by
+//         PYXIS
+//  FSG 29.Nov.2000        
+//  
+#define ptype_d_float   13
+#define ptype_sql_date  14
+#define ptype_sql_time  15
+#define ptype_array     18
+#define ptype_int64     19
+
+
+
+
+extern USHORT MET_get_dtype(USHORT, USHORT, USHORT *);
+
+
+//____________________________________________________________
+//  
+//		Takes a pyxis dtype and transforms
+//		it into a standard InterBase dtype.
+//  
+
+USHORT FORM_TRN_dtype( USHORT pyxis_dtype)
+{
+	USHORT gpre_dtype, length;
+
+	switch (pyxis_dtype) {
+	case ptype_text:
+		gpre_dtype = MET_get_dtype(blr_text, 0, &length);
+		break;
+
+	case ptype_cstring:
+		gpre_dtype = MET_get_dtype(blr_cstring, 0, &length);
+		break;
+
+	case ptype_varying:
+		gpre_dtype = MET_get_dtype(blr_varying, 0, &length);
+		break;
+
+	case ptype_short:
+		gpre_dtype = MET_get_dtype(blr_short, 0, &length);
+		break;
+
+	case ptype_long:
+		gpre_dtype = MET_get_dtype(blr_long, 0, &length);
+		break;
+
+	case ptype_quad:
+		gpre_dtype = MET_get_dtype(blr_quad, 0, &length);
+		break;
+
+	case ptype_real:
+		gpre_dtype = MET_get_dtype(blr_float, 0, &length);
+		break;
+
+	case ptype_double:
+		gpre_dtype = MET_get_dtype(blr_double, 0, &length);
+		break;
+
+		/* dtype_sql_date & dtype_sql_time not supported in pyxis */
+	case ptype_sql_date:
+	case ptype_sql_time:
+	case ptype_int64:
+		/* Arrays aren't supported afaik
+		   FSG 29.Nov.2000 */
+	case ptype_array:
+		gpre_dtype = ptype_null;
+		break;
+
+	case ptype_timestamp:
+		gpre_dtype = MET_get_dtype(blr_timestamp, 0, &length);
+		break;
+
+	case ptype_blob:
+		gpre_dtype = MET_get_dtype(blr_blob, 0, &length);
+		break;
+
+	case ptype_d_float:
+		gpre_dtype = MET_get_dtype(blr_d_float, 0, &length);
+		break;
+
+	}
+
+	return gpre_dtype;
+}
diff --git a/src/gpre/ftn.cpp b/src/gpre/ftn.cpp
new file mode 100644
index 0000000000..adf9ac0ba3
--- /dev/null
+++ b/src/gpre/ftn.cpp
@@ -0,0 +1,5165 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	General preprocessor
+//		MODULE:		ftn.cpp
+//		DESCRIPTION:	Fortran text generator
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  
+//
+//____________________________________________________________
+//
+//	$Id: ftn.cpp,v 1.1.1.1 2001-05-23 13:25:32 tamlin Exp $
+//
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../include/jrd/gds.h"
+#include "../gpre/gpre.h"
+#include "../gpre/form.h"
+#include "../gpre/pat.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/lang_proto.h"
+#include "../gpre/pat_proto.h"
+#include "../gpre/prett_proto.h"
+#include "../jrd/isc_proto.h"
+
+extern UCHAR fortran_labels[];
+extern DBB isc_databases;
+extern REQ requests;
+extern IB_FILE *out_file;
+extern struct dbd global_db_list[];
+extern USHORT global_db_count;
+
+static int align();
+static int asgn_from(ACT, REF);
+static int asgn_to(ACT, REF);
+static int asgn_to_proc(REF);
+static int gen_any(ACT);
+static int gen_at_end(ACT);
+static int gen_based(ACT);
+static int gen_blob_close(ACT);
+static int gen_blob_end(ACT);
+static int gen_blob_for(ACT);
+static int gen_blob_open(ACT);
+static int gen_blr(int *, int, TEXT *);
+static int gen_clear_handles(ACT);
+static int gen_compatibility_symbol(TEXT *, TEXT *, TEXT *);
+static int gen_compile(ACT);
+static int gen_create_database(ACT);
+static int gen_cursor_close(ACT, REQ);
+static int gen_cursor_init(ACT);
+static int gen_cursor_open(ACT, REQ);
+static int gen_database(ACT);
+static int gen_database_data(ACT);
+static int gen_database_decls(ACT);
+static int gen_ddl(ACT);
+static int gen_drop_database(ACT);
+static int gen_dyn_close(ACT);
+static int gen_dyn_declare(ACT);
+static int gen_dyn_describe(ACT, BOOLEAN);
+static int gen_dyn_execute(ACT);
+static int gen_dyn_fetch(ACT);
+static int gen_dyn_immediate(ACT);
+static int gen_dyn_insert(ACT);
+static int gen_dyn_open(ACT);
+static int gen_dyn_prepare(ACT);
+static int gen_emodify(ACT);
+static int gen_estore(ACT);
+static int gen_end_fetch(void);
+static int gen_endfor(ACT);
+static int gen_erase(ACT);
+static SSHORT gen_event_block(ACT);
+static int gen_event_init(ACT);
+static int gen_event_wait(ACT);
+static int gen_fetch(ACT);
+static int gen_finish(ACT);
+static int gen_for(ACT);
+static int gen_form_display(ACT);
+static int gen_form_end(ACT);
+static int gen_form_for(ACT);
+static int gen_function(ACT);
+static int gen_get_or_put_slice(ACT, REF, BOOLEAN);
+static int gen_get_segment(ACT);
+static int gen_item_end(ACT);
+static int gen_item_for(ACT);
+static int gen_loop(ACT);
+static int gen_menu(ACT);
+static int gen_menu_display(ACT);
+static int gen_menu_end(ACT);
+static int gen_menu_entree(ACT);
+static int gen_menu_entree_att(ACT);
+static int gen_menu_for(ACT);
+static int gen_menu_item_end(ACT);
+static int gen_menu_item_for(ACT);
+static int gen_menu_request(REQ);
+static TEXT *gen_name(SCHAR *, REF, BOOLEAN);
+static int gen_on_error(ACT);
+static int gen_procedure(ACT);
+static int gen_put_segment(ACT);
+
+/* RRK_?: the following prototype is differnet from C stuff */
+static int gen_raw(UCHAR *, enum req_t, int, int, int);
+
+static int gen_ready(ACT);
+static int gen_receive(ACT, POR);
+static int gen_release(ACT);
+static int gen_request(REQ);
+static int gen_request_data(REQ);
+static int gen_request_decls(REQ);
+static int gen_return_value(ACT);
+static int gen_routine(ACT);
+static int gen_s_end(ACT);
+static int gen_s_fetch(ACT);
+static int gen_s_start(ACT);
+static int gen_segment(ACT);
+static int gen_select(ACT);
+static int gen_send(ACT, POR);
+static int gen_slice(ACT);
+static int gen_start(ACT, POR);
+static int gen_store(ACT);
+static int gen_t_start(ACT);
+static int gen_tpb(TPB);
+static int gen_tpb_data(TPB);
+static int gen_tpb_decls(TPB);
+static int gen_trans(ACT);
+static int gen_type(ACT);
+static int gen_update(ACT);
+static int gen_variable(ACT);
+static int gen_whenever(SWE);
+static int gen_window_create(ACT);
+static int gen_window_delete(ACT);
+static int gen_window_suspend(ACT);
+static int make_array_declaration(REF);
+static TEXT *make_name(TEXT *, SYM);
+static int make_ok_test(ACT, REQ);
+static int make_port(POR);
+static int make_ready(DBB, TEXT *, TEXT *, REQ);
+static int next_label(void);
+static int printa(SCHAR *, SCHAR *, ...);
+static int printb(SCHAR *, ...);
+static TEXT *request_trans(ACT, REQ);
+static int status_and_stop(ACT);
+static TEXT *status_vector(ACT);
+static int t_start_auto(REQ, TEXT *, ACT, SSHORT);
+
+static TEXT output_buffer[512];
+static int first_flag;
+static ADL array_decl_list;
+
+#ifdef VMS
+#define INCLUDE_ISC_FTN  "       include  'interbase:[syslib]gds.for\' \n\n"
+#define DOUBLE_DCL	"DOUBLE PRECISION"
+#define I2CONST_1	"%VAL("
+#define I2CONST_2	")"
+#define I2_1		""
+#define I2_2		""
+#define VAL_1		"%VAL("
+#define VAL_2		")"
+#define REF_1		"%REF("
+#define REF_2		")"
+#define I4CONST_1	"%VAL("
+#define I4CONST_2	")"
+#define COMMENT		"C     "
+#define INLINE_COMMENT	"!"
+#define COMMA		","
+#define NULL_SQLDA	"%VAL(0)"
+#endif
+
+#if (defined AIX || defined AIX_PPC)
+#define INCLUDE_ISC_FTN  "       INCLUDE  '%s\' \n\n"
+#define INCLUDE_FTN_FILE "include/gds.f"
+#define DOUBLE_DCL	"DOUBLE PRECISION"
+#define I2CONST_1	"%VAL("
+#define I2CONST_2	")"
+#define I2_1		""
+#define I2_2		""
+#define VAL_1		"%VAL("
+#define VAL_2		")"
+#define REF_1		"%REF("
+#define REF_2		")"
+#define I4CONST_1	"%VAL("
+#define I4CONST_2	")"
+#define COMMENT		"C     "
+#define INLINE_COMMENT	"!"
+#define COMMA		","
+#endif
+
+#ifdef sun
+#define INCLUDE_ISC_FTN  "       INCLUDE  '%s\' \n\n"
+#define INCLUDE_FTN_FILE "include/gds.f"
+#define DOUBLE_DCL      "DOUBLE PRECISION"
+#define I2CONST_1	""
+#define I2CONST_2	""
+#define I2_1		""
+#define I2_2		""
+#define VAL_1		""
+#define VAL_2		""
+#define REF_1		""
+#define REF_2		""
+#define I4CONST_1	""
+#define I4CONST_2	""
+#define COMMENT		"*     "
+#define INLINE_COMMENT  "\n*                "
+#define COMMA		","
+#endif
+
+#ifdef linux
+#define INCLUDE_ISC_FTN  "       INCLUDE  '/usr/interbase/include/gds.f\' \n\n"
+#define INCLUDE_FTN_FILE "include/gds.f"
+#define DOUBLE_DCL      "DOUBLE PRECISION"
+#define I2CONST_1       ""
+#define I2CONST_2       ""
+#define I2_1            ""
+#define I2_2            ""
+#define VAL_1           ""
+#define VAL_2           ""
+#define REF_1           ""
+#define REF_2           ""
+#define I4CONST_1       ""
+#define I4CONST_2       ""
+#define COMMENT         "*     "
+#define INLINE_COMMENT  "\n*                "
+#define COMMA           ","
+#endif
+
+#if defined FREEBSD || defined NETBSD
+#define INCLUDE_ISC_FTN  "       INCLUDE  '/usr/interbase/include/gds.f\' \n\n"
+#define INCLUDE_FTN_FILE "include/gds.f"
+#define DOUBLE_DCL      "DOUBLE PRECISION"
+#define I2CONST_1       ""
+#define I2CONST_2       ""
+#define I2_1            ""
+#define I2_2            ""
+#define VAL_1           ""
+#define VAL_2           ""
+#define REF_1           ""
+#define REF_2           ""
+#define I4CONST_1       ""
+#define I4CONST_2       ""
+#define COMMENT         "*     "
+#define INLINE_COMMENT  "\n*                "
+#define COMMA           ","
+#endif
+
+#ifdef sgi
+#define INCLUDE_ISC_FTN  "       INCLUDE  '%s\' \n\n"
+#define INCLUDE_FTN_FILE "include/gds.f"
+#define DOUBLE_DCL      "DOUBLE PRECISION"
+#define I2CONST_1	""
+#define I2CONST_2	""
+#define I2_1		""
+#define I2_2		""
+#define VAL_1		""
+#define VAL_2		""
+#define REF_1		""
+#define REF_2		""
+#define I4CONST_1	""
+#define I4CONST_2	""
+#define COMMENT		"C     "
+#define INLINE_COMMENT  "!"
+#define COMMA		","
+#endif
+
+#ifdef DGUX
+#define INCLUDE_ISC_FTN  "       INCLUDE  '%s\' \n"
+#define INCLUDE_FTN_FILE "include/gds.f"
+#define DOUBLE_DCL      "DOUBLE PRECISION"
+#define I2CONST_1	""
+#define I2CONST_2	""
+#define I2_1		""
+#define I2_2		""
+#define VAL_1		""
+#define VAL_2		""
+#define REF_1		""
+#define REF_2		""
+#define I4CONST_1	""
+#define I4CONST_2	""
+#define COMMENT		"*     "
+#define INLINE_COMMENT  "! "
+#define COMMA		","
+#define NULL_SQLDA	"%VAL(0)"
+#endif
+
+#ifdef hpux
+#define INCLUDE_ISC_FTN  "       INCLUDE  '%s\' \n\n"
+#define INCLUDE_FTN_FILE "include/gds.f"
+#define DOUBLE_DCL      "DOUBLE PRECISION"
+#define I2CONST_1	"ISC_INT2("
+#define I2CONST_2	")"
+#define I2_1		"ISC_INT2("
+#define I2_2		")"
+#define VAL_1		""
+#define VAL_2		""
+#define REF_1		""
+#define REF_2		""
+#define I4CONST_1	""
+#define I4CONST_2	""
+#define COMMENT		"*     "
+#define INLINE_COMMENT  "!"
+#define COMMA		","
+#endif
+
+#define COLUMN		"      "
+#define INDENT		"   "
+#define CONTINUE	"     +   "
+#define COLUMN_INDENT	"          "
+
+#define ISC_EMBED_DSQL_CLOSE 		"isc_embed_dsql_close"
+#define ISC_EMBED_DSQL_DECLARE 		"isc_embed_dsql_declare"
+#define ISC_EMBED_DSQL_DESCRIBE 	"isc_embed_dsql_describe"
+#define ISC_EMBED_DSQL_DESCRIBE_BIND 	"isc_embed_dsql_describe_bind"
+#define ISC_EMBED_DSQL_EXECUTE 		"isc_embed_dsql_execute"
+#define ISC_EMBED_DSQL_EXECUTE2		"isc_embed_dsql_execute2"
+#define ISC_EMBED_DSQL_EXECUTE_IMMEDIATE "isc_embed_dsql_execute_immed"
+#define ISC_EMBED_DSQL_EXECUTE_IMMEDIATE2 "isc_embed_dsql_execute_immed2"
+#define ISC_EMBED_DSQL_FETCH		"isc_embed_dsql_fetch"
+#define ISC_EMBED_DSQL_INSERT		"isc_embed_dsql_insert"
+#define ISC_EMBED_DSQL_OPEN		"isc_embed_dsql_open"
+#define ISC_EMBED_DSQL_OPEN2		"isc_embed_dsql_open2"
+#define ISC_EMBED_DSQL_PREPARE	 	"isc_embed_dsql_prepare"
+#define ISC_DSQL_ALLOCATE		"isc_dsql_alloc_statement2"
+#define ISC_DSQL_EXECUTE		"isc_dsql_execute_m"
+#define ISC_DSQL_FREE			"isc_dsql_free_statement"
+#define ISC_DSQL_SET_CURSOR		"isc_dsql_set_cursor_name"
+
+#define ISC_EVENT_WAIT			"ISC_EVENT_WAIT"
+#define ISC_EVENT_COUNTS		"ISC_EVENT_COUNTS"
+
+#define DSQL_I2CONST_1			I2CONST_1
+#define DSQL_I2CONST_2			I2CONST_2
+
+#ifndef NULL_SQLDA
+#define NULL_SQLDA	"0"
+#endif
+
+
+//____________________________________________________________
+//  
+//  
+
+void FTN_action( ACT action, int column)
+{
+
+	if (action->act_flags & ACT_break)
+		first_flag = FALSE;
+
+	switch (action->act_type) {
+	case ACT_alter_database:
+	case ACT_alter_domain:
+	case ACT_alter_table:
+	case ACT_alter_index:
+	case ACT_create_domain:
+	case ACT_create_generator:
+	case ACT_create_index:
+	case ACT_create_shadow:
+	case ACT_create_table:
+	case ACT_create_view:
+	case ACT_declare_filter:
+	case ACT_declare_udf:
+	case ACT_drop_domain:
+	case ACT_drop_filter:
+	case ACT_drop_index:
+	case ACT_drop_shadow:
+	case ACT_drop_table:
+	case ACT_drop_udf:
+	case ACT_statistics:
+	case ACT_drop_view:
+		gen_ddl(action);
+		break;
+	case ACT_any:
+		gen_any(action);
+		return;
+	case ACT_at_end:
+		gen_at_end(action);
+		return;
+	case ACT_commit:
+		gen_trans(action);
+		break;
+	case ACT_commit_retain_context:
+		gen_trans(action);
+		break;
+	case ACT_basedon:
+		gen_based(action);
+		return;
+	case ACT_b_declare:
+		gen_database(action);
+		return;
+	case ACT_blob_cancel:
+		gen_blob_close(action);
+		return;
+	case ACT_blob_close:
+		gen_blob_close(action);
+		break;
+	case ACT_blob_create:
+		gen_blob_open(action);
+		break;
+	case ACT_blob_for:
+		gen_blob_for(action);
+		return;
+	case ACT_blob_handle:
+		gen_segment(action);
+		return;
+	case ACT_blob_open:
+		gen_blob_open(action);
+		break;
+	case ACT_clear_handles:
+		gen_clear_handles(action);
+		break;
+	case ACT_create_database:
+		gen_create_database(action);
+		break;
+	case ACT_cursor:
+		gen_cursor_init(action);
+		return;
+	case ACT_database:
+		gen_database(action);
+		return;
+	case ACT_disconnect:
+		gen_finish(action);
+		break;
+	case ACT_drop_database:
+		gen_drop_database(action);
+		break;
+	case ACT_dyn_close:
+		gen_dyn_close(action);
+		break;
+	case ACT_dyn_cursor:
+		gen_dyn_declare(action);
+		break;
+	case ACT_dyn_describe:
+		gen_dyn_describe(action, FALSE);
+		break;
+	case ACT_dyn_describe_input:
+		gen_dyn_describe(action, TRUE);
+		break;
+	case ACT_dyn_execute:
+		gen_dyn_execute(action);
+		break;
+	case ACT_dyn_fetch:
+		gen_dyn_fetch(action);
+		break;
+	case ACT_dyn_grant:
+		gen_ddl(action);
+		break;
+	case ACT_dyn_immediate:
+		gen_dyn_immediate(action);
+		break;
+	case ACT_dyn_insert:
+		gen_dyn_insert(action);
+		break;
+	case ACT_dyn_open:
+		gen_dyn_open(action);
+		break;
+	case ACT_dyn_prepare:
+		gen_dyn_prepare(action);
+		break;
+	case ACT_dyn_revoke:
+		gen_ddl(action);
+		break;
+	case ACT_close:
+		gen_s_end(action);
+		break;
+	case ACT_endblob:
+		gen_blob_end(action);
+		return;
+	case ACT_enderror:
+		printa(COLUMN, "END IF");
+		return;
+	case ACT_endfor:
+		gen_endfor(action);
+		break;
+	case ACT_endmodify:
+		gen_emodify(action);
+		break;
+	case ACT_endstore:
+		gen_estore(action);
+		break;
+	case ACT_erase:
+		gen_erase(action);
+		return;
+	case ACT_event_init:
+		gen_event_init(action);
+		break;
+	case ACT_event_wait:
+		gen_event_wait(action);
+		break;
+	case ACT_fetch:
+		gen_fetch(action);
+		break;
+	case ACT_finish:
+		gen_finish(action);
+		break;
+	case ACT_for:
+		gen_for(action);
+		return;
+	case ACT_form_display:
+		gen_form_display(action);
+		break;
+	case ACT_form_end:
+		gen_form_end(action);
+		break;
+	case ACT_form_for:
+		gen_form_for(action);
+		return;
+	case ACT_function:
+		gen_function(action);
+		return;
+	case ACT_get_segment:
+		gen_get_segment(action);
+		break;
+	case ACT_get_slice:
+		gen_slice(action);
+		break;
+	case ACT_hctef:
+		gen_end_fetch();
+		return;
+	case ACT_insert:
+		gen_s_start(action);
+		break;
+	case ACT_item_for:
+	case ACT_item_put:
+		gen_item_for(action);
+		return;
+	case ACT_item_end:
+		gen_item_end(action);
+		break;
+	case ACT_loop:
+		gen_loop(action);
+		break;
+	case ACT_menu:
+		gen_menu(action);
+		return;
+	case ACT_menu_end:
+		gen_menu_end(action);
+		break;
+	case ACT_menu_display:
+		gen_menu_display(action);
+		return;
+	case ACT_menu_for:
+		gen_menu_for(action);
+		return;
+
+	case ACT_title_text:
+	case ACT_title_length:
+	case ACT_terminator:
+	case ACT_entree_text:
+	case ACT_entree_length:
+	case ACT_entree_value:
+		gen_menu_entree_att(action);
+		return;
+
+	case ACT_menu_entree:
+		gen_menu_entree(action);
+		return;
+	case ACT_open:
+		gen_s_start(action);
+		break;
+	case ACT_on_error:
+		gen_on_error(action);
+		return;
+	case ACT_procedure:
+		gen_procedure(action);
+		return;
+	case ACT_put_segment:
+		gen_put_segment(action);
+		break;
+	case ACT_put_slice:
+		gen_slice(action);
+		break;
+	case ACT_ready:
+		gen_ready(action);
+		return;
+	case ACT_release:
+		gen_release(action);
+		break;
+	case ACT_rfinish:
+		gen_finish(action);
+		return;
+	case ACT_prepare:
+		gen_trans(action);
+		break;
+	case ACT_rollback:
+		gen_trans(action);
+		break;
+	case ACT_routine:
+		gen_routine(action);
+		return;
+	case ACT_s_end:
+		gen_s_end(action);
+		return;
+	case ACT_s_fetch:
+		gen_s_fetch(action);
+		break;
+	case ACT_s_start:
+		gen_s_start(action);
+		break;
+	case ACT_select:
+		gen_select(action);
+		break;
+	case ACT_segment_length:
+		gen_segment(action);
+		return;
+	case ACT_segment:
+		gen_segment(action);
+		return;
+	case ACT_sql_dialect:
+		sw_sql_dialect = ((SDT) action->act_object)->sdt_dialect;
+		return;
+	case ACT_start:
+		gen_t_start(action);
+		break;
+	case ACT_store:
+		gen_store(action);
+		break;
+	case ACT_store2:
+		gen_return_value(action);
+		break;
+	case ACT_type:
+		gen_type(action);
+		return;
+	case ACT_update:
+		gen_update(action);
+		break;
+	case ACT_variable:
+		gen_variable(action);
+		return;
+	case ACT_window_create:
+		gen_window_create(action);
+		return;
+	case ACT_window_delete:
+		gen_window_delete(action);
+		return;
+	case ACT_window_suspend:
+		gen_window_suspend(action);
+		return;
+
+	default:
+		return;
+	}
+
+	if (action->act_flags & ACT_sql)
+		gen_whenever(action->act_whenever);
+}
+
+
+//____________________________________________________________
+//  
+//       Create a block data module at the 
+//       head of a preprocessed fortran file
+//       containing the initializations for
+//       all databases not declared as extern
+//  
+
+void FTN_fini(void)
+{
+	DBD db_list, end;
+	TEXT *name;
+
+	if (!global_db_count)
+		return;
+
+	ib_fprintf(out_file, "\n");
+	printa(COLUMN, "BLOCK DATA");
+	for (db_list = global_db_list, end = global_db_list + global_db_count;
+		 db_list < end; db_list++) {
+		name = db_list->dbb_name;
+		ib_fprintf(out_file,
+				   "%sINTEGER*4  %s                %s{ database handle }\n",
+				   COLUMN, name, INLINE_COMMENT);
+		ib_fprintf(out_file, "%sCOMMON /%s/ %s\n", COLUMN, name, name);
+		ib_fprintf(out_file,
+				   "%sDATA %s /0/             %s{ init database handle }\n",
+				   COLUMN, name, INLINE_COMMENT);
+	}
+	if (sw_pyxis && (sw_window_scope != DBB_EXTERN)) {
+		ib_fprintf(out_file,
+				   "%sINTEGER*4  ISC_WINDOW        %s{ window handle }\n",
+				   COLUMN, INLINE_COMMENT);
+		ib_fprintf(out_file,
+				   "%sINTEGER*2  ISC_HEIGHT        %s{ window height }\n",
+				   COLUMN, INLINE_COMMENT);
+		ib_fprintf(out_file,
+				   "%sINTEGER*2  ISC_WIDTH         %s{ window width }\n",
+				   COLUMN, INLINE_COMMENT);
+		printa(COLUMN, "COMMON /ISC_WINDOW/ISC_WINDOW");
+		printa(COLUMN, "COMMON /ISC_HEIGHT/ISC_HEIGHT");
+		printa(COLUMN, "COMMON /ISC_WIDTH/ISC_WIDTH");
+		ib_fprintf(out_file,
+				   "%sDATA ISC_WINDOW /0/          %s{ init window handle }\n",
+				   COLUMN, INLINE_COMMENT);
+		ib_fprintf(out_file,
+				   "%sDATA ISC_HEIGHT /24/         %s{ init window height }\n",
+				   COLUMN, INLINE_COMMENT);
+		ib_fprintf(out_file,
+				   "%sDATA ISC_WIDTH /80/          %s{ init window width }\n",
+				   COLUMN, INLINE_COMMENT);
+	}
+
+	printa(COLUMN, "END");
+}
+
+
+//____________________________________________________________
+//  
+//		Print a statment, breaking it into
+//       reasonable 72 character hunks.
+//  
+
+void FTN_print_buffer( TEXT * output_buffer)
+{
+	TEXT s[73], err[128], *p, *q;
+
+	p = s;
+
+	for (q = output_buffer; *q; q++) {
+		*p++ = *q;
+#ifdef sun
+		if (q[0] == '\n' && q[1] == '\0') {
+			*p = 0;
+			ib_fprintf(out_file, "%s", s);
+			p = s;
+		}
+#endif
+		if ((p - s) > 71) {
+			for (p--; (*p != ',') && (*p != ' '); p--) {
+				if ((p - s) < 10) {
+					p += 51;
+					q += 50;
+					*p-- = 0;
+					sprintf(err, "Output line overflow: %s", s);
+					CPR_error(err);
+					break;
+				}
+				q--;
+			}
+
+			*++p = 0;
+			ib_fprintf(out_file, "%s\n", s);
+			strcpy(s, CONTINUE);
+			for (p = s; *p; p++);
+		}
+	}
+	*p = 0;
+	ib_fprintf(out_file, "%s", s);
+	output_buffer[0] = 0;
+}
+
+
+//  RRK_?: copy align from c_cxx 
+
+
+//____________________________________________________________
+//  
+//		Build an assignment from a host language variable to
+//		a port variable.
+//  
+
+static asgn_from( ACT action, REF reference)
+{
+	FLD field;
+	SCHAR *value, name[64], variable[20], temp[20];
+
+	for (; reference; reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (field->fld_array_info)
+			if (!(reference->ref_flags & REF_array_elem)) {
+				printa(COLUMN, "CALL isc_qtoq (isc_blob_null, %s)",
+					   gen_name(name, reference, TRUE));
+				gen_get_or_put_slice(action, reference, FALSE);
+				continue;
+			}
+
+		if (!reference->ref_source && !reference->ref_value)
+			continue;
+		gen_name(variable, reference, TRUE);
+		if (reference->ref_source)
+			value = gen_name(temp, reference->ref_source, TRUE);
+		else
+			value = reference->ref_value;
+		if (reference->ref_value && (reference->ref_flags & REF_array_elem))
+			field = field->fld_array;
+		if (field->fld_dtype == dtype_blob ||
+			field->fld_dtype == dtype_quad || field->fld_dtype == dtype_date)
+			sprintf(output_buffer, "%sCALL isc_qtoq (%s, %s)\n",
+					COLUMN, value, variable);
+		else
+			if (!reference->ref_master
+				|| (reference->
+					ref_flags & REF_literal)) sprintf(output_buffer,
+													  "%s%s = %s\n", COLUMN,
+													  variable, value);
+		else {
+			sprintf(output_buffer, "%sIF (%s .LT. 0) THEN\n", COLUMN, value);
+			FTN_print_buffer(output_buffer);
+			sprintf(output_buffer, "%s%s = -1\n", COLUMN_INDENT, variable);
+			FTN_print_buffer(output_buffer);
+			sprintf(output_buffer, "%sELSE\n", COLUMN);
+			FTN_print_buffer(output_buffer);
+			sprintf(output_buffer, "%s%s = 0\n", COLUMN_INDENT, variable);
+			FTN_print_buffer(output_buffer);
+			sprintf(output_buffer, "%sEND IF\n", COLUMN);
+		}
+		FTN_print_buffer(output_buffer);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment to a host language variable from
+//		a port variable.
+//  
+
+static asgn_to( ACT action, REF reference)
+{
+	SCHAR s[128];
+	REF source;
+	FLD field;
+
+	source = reference->ref_friend;
+	field = source->ref_field;
+	if (field->fld_array_info) {
+		source->ref_value = reference->ref_value;
+		gen_get_or_put_slice(action, source, TRUE);
+		return;
+	}
+
+	gen_name(s, source, TRUE);
+
+	if (field->fld_dtype == dtype_blob ||
+		field->fld_dtype == dtype_quad || field->fld_dtype == dtype_date)
+		sprintf(output_buffer, "%sCALL isc_qtoq (%s, %s)\n",
+				COLUMN, s, reference->ref_value);
+	else
+		sprintf(output_buffer, "%s%s = %s\n",
+				COLUMN, reference->ref_value, s);
+	FTN_print_buffer(output_buffer);
+
+//  Pick up NULL value if one is there 
+
+	if (reference = reference->ref_null) {
+		sprintf(output_buffer, "%s%s = %s\n",
+				COLUMN, reference->ref_value, gen_name(s, reference, TRUE));
+		FTN_print_buffer(output_buffer);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment to a host language variable from
+//		a port variable.
+//  
+
+static asgn_to_proc( REF reference)
+{
+	FLD field;
+	SCHAR s[64];
+
+	for (; reference; reference = reference->ref_next) {
+		if (!reference->ref_value)
+			continue;
+		field = reference->ref_field;
+		gen_name(s, reference, TRUE);
+		if (field->fld_dtype == dtype_blob ||
+			field->fld_dtype == dtype_quad || field->fld_dtype == dtype_date)
+			sprintf(output_buffer, "%sCALL isc_qtoq (%s, %s)\n",
+					COLUMN, s, reference->ref_value);
+		else
+			sprintf(output_buffer, "%s%s = %s\n",
+					COLUMN, reference->ref_value, s);
+		FTN_print_buffer(output_buffer);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for AT END clause of FETCH.
+//  
+
+static gen_at_end( ACT action)
+{
+	REQ request;
+	SCHAR s[20];
+
+	request = action->act_request;
+	printa(COLUMN, "IF (%s .EQ. 0) THEN",
+		   gen_name(s, request->req_eof, TRUE));
+	ib_fprintf(out_file, COLUMN);
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a BASED ON <field name> clause.
+//  
+
+static gen_based( ACT action)
+{
+	BAS based_on;
+	FLD field;
+	TEXT s[64], *variable, first_flag;
+	USHORT datatype;
+	SLONG length;
+	DIM dimension;
+	BOOLEAN last;
+
+	based_on = (BAS) action->act_object;
+	field = based_on->bas_field;
+
+	if (based_on->bas_flags & BAS_segment) {
+		datatype = dtype_text;
+		if (!(length = field->fld_seg_length))
+			length = 256;
+	}
+	else if (field->fld_array_info)
+		datatype = field->fld_array_info->ary_dtype;
+	else
+		datatype = field->fld_dtype;
+
+	switch (datatype) {
+	case dtype_short:
+		ib_fprintf(out_file, "%sINTEGER*2%s", COLUMN, COLUMN);
+		break;
+
+	case dtype_long:
+		ib_fprintf(out_file, "%sINTEGER*4%s", COLUMN, COLUMN);
+		break;
+
+	case dtype_date:
+	case dtype_blob:
+	case dtype_quad:
+		ib_fprintf(out_file, "%sINTEGER*4%s", COLUMN, COLUMN);
+		break;
+
+	case dtype_text:
+		ib_fprintf(out_file, "%sCHARACTER*%d%s", COLUMN,
+				   (based_on->bas_flags & BAS_segment) ? length :
+				   ((field->fld_array_info) ? field->fld_array->
+					fld_length : field->fld_length), COLUMN);
+		break;
+
+	case dtype_float:
+		ib_fprintf(out_file, "%sREAL%s", COLUMN, COLUMN);
+		break;
+
+	case dtype_double:
+		ib_fprintf(out_file, "%s%s%s", COLUMN, DOUBLE_DCL, COLUMN);
+		break;
+
+	default:
+		sprintf(s, "datatype %d unknown\n", field->fld_dtype);
+		CPR_error(s);
+		return;
+	}
+
+//  print the first variable, then precede the rest with commas 
+
+	first_flag = TRUE;
+
+	while (based_on->bas_variables) {
+		variable = (TEXT *) POP(&based_on->bas_variables);
+		if (!first_flag)
+			ib_fprintf(out_file, ",\n%s", CONTINUE);
+		ib_fprintf(out_file, "%s", variable);
+		first_flag = FALSE;
+		if (field->fld_array_info && !(based_on->bas_flags & BAS_segment)) {
+			/*  Print out the dimension part of the declaration  */
+			last = FALSE;
+			ib_fprintf(out_file, "(");
+
+			for (dimension = field->fld_array_info->ary_dimension; dimension;
+				 dimension = dimension->dim_next) {
+				if (dimension->dim_lower != 1)
+					ib_fprintf(out_file, "%d:", dimension->dim_lower);
+
+				ib_fprintf(out_file, "%d", dimension->dim_upper);
+				if (dimension->dim_next)
+					ib_fprintf(out_file, ", ");
+			}
+
+			if (field->fld_dtype == dtype_quad ||
+				field->fld_dtype == dtype_date) ib_fprintf(out_file, ",2");
+
+			ib_fprintf(out_file, ")");
+		}
+
+		else if (field->fld_dtype == dtype_blob ||
+				 field->fld_dtype == dtype_quad ||
+				 field->fld_dtype == dtype_date) ib_fprintf(out_file, "(2)");
+	}
+
+	ib_fprintf(out_file, "\n");
+}
+
+
+//____________________________________________________________
+//  
+//		Make a blob FOR loop.
+//  
+
+static gen_blob_close( ACT action)
+{
+	TEXT *command;
+	BLB blob;
+
+	if (action->act_flags & ACT_sql) {
+		gen_cursor_close(action, action->act_request);
+		blob = (BLB) action->act_request->req_blobs;
+	}
+	else
+		blob = (BLB) action->act_object;
+
+	command = (action->act_type == ACT_blob_cancel) ? "CANCEL" : "CLOSE";
+	printa(COLUMN, "CALL ISC_%s_BLOB (%s, isc_%d)",
+		   command, status_vector(action), blob->blb_ident);
+
+	if (action->act_flags & ACT_sql) {
+		printa(COLUMN, "END IF");
+		printa(COLUMN, "END IF");
+	}
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		End a blob FOR loop.
+//  
+
+static gen_blob_end( ACT action)
+{
+	BLB blob;
+
+	blob = (BLB) action->act_object;
+	printa(COLUMN, "%sGOTO %d", INDENT, blob->blb_top_label);
+	printa("", "%-6dCONTINUE", blob->blb_btm_label);
+	if (action->act_error)
+		printa(COLUMN, "CALL ISC_CANCEL_BLOB (ISC_STATUS2, isc_%d)",
+			   blob->blb_ident);
+	else
+		printa(COLUMN, "CALL ISC_CANCEL_BLOB (%s, isc_%d)",
+			   status_vector(0), blob->blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Make a blob FOR loop.
+//  
+
+static gen_blob_for( ACT action)
+{
+	BLB blob;
+
+	blob = (BLB) action->act_object;
+	blob->blb_top_label = next_label();
+	blob->blb_btm_label = next_label();
+	gen_blob_open(action);
+	if (action->act_error)
+		printa(COLUMN, "IF (ISC_STATUS(2) .NE. 0) GOTO %d\n",
+			   blob->blb_btm_label);
+	printa("", "%-6dCONTINUE", blob->blb_top_label);
+	gen_get_segment(action);
+	printa(COLUMN,
+		   "IF (ISC_STATUS(2) .NE. 0 .AND. ISC_STATUS(2) .NE. ISC_SEGMENT) THEN");
+	printa(COLUMN, "%s GOTO %d", INDENT, blob->blb_btm_label);
+	printa(COLUMN, "END IF");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the call to open (or create) a blob.
+//  
+
+static gen_blob_open( ACT action)
+{
+	USHORT column = 6;
+	BLB blob;
+	PAT args;
+	REF reference;
+	TEXT s[20];
+	TEXT *pattern1 =
+		"CALL ISC_%IFCREATE%ELOPEN%EN_BLOB2 (%V1, %RF%DH%RE, %RF%RT%RE, %RF%BH%RE, %RF%FR%RE, %N1, %I1)\n",
+		*pattern2 =
+		"CALL ISC_%IFCREATE%ELOPEN%EN_BLOB2 (%V1, %RF%DH%RE, %RF%RT%RE, %RF%BH%RE, %RF%FR%RE, 0, 0)\n";
+
+	if (action->act_flags & ACT_sql) {
+		if (sw_auto) {
+			t_start_auto(action->act_request, status_vector(action), action,
+						 TRUE);
+			printa(COLUMN, "if (%s .ne. 0) then",
+				   request_trans(action, action->act_request));
+		}
+
+		gen_cursor_open(action, action->act_request);
+		blob = (BLB) action->act_request->req_blobs;
+		reference = ((OPN) action->act_object)->opn_using;
+		gen_name(s, reference, TRUE);
+	}
+	else {
+		blob = (BLB) action->act_object;
+		reference = blob->blb_reference;
+	}
+
+	args.pat_condition = action->act_type == ACT_blob_create;	/*  open or create blob  */
+	args.pat_vector1 = status_vector(action);	/*  status vector        */
+	args.pat_database = blob->blb_request->req_database;	/*  database handle      */
+	args.pat_request = blob->blb_request;	/*  transaction handle   */
+	args.pat_blob = blob;		/*  blob handle          */
+	args.pat_reference = reference;	/*  blob identifier      */
+	args.pat_ident1 = blob->blb_bpb_ident;
+
+	if ((action->act_flags & ACT_sql) && action->act_type == ACT_blob_open) {
+		printa(COLUMN, "CALL isc_qtoq (%s, %s)", reference->ref_value, s);
+	}
+
+	if (args.pat_value1 = blob->blb_bpb_length)
+		PATTERN_expand(column, pattern1, &args);
+	else
+		PATTERN_expand(column, pattern2, &args);
+
+	if (action->act_flags & ACT_sql) {
+		printa(COLUMN, "END IF");
+		printa(COLUMN, "END IF");
+		printa(COLUMN, "END IF");
+		if (sw_auto)
+			printa(COLUMN, "END IF");
+		status_and_stop(action);
+		if (action->act_type == ACT_blob_create) {
+			printa(COLUMN, "IF (SQLCODE .EQ. 0) THEN");
+			printa(COLUMN_INDENT, "CALL isc_qtoq (%s, %s)",
+				   s, reference->ref_value);
+			printa(COLUMN, "ENDIF");
+		}
+	}
+	else
+		status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Callback routine for BLR pretty printer.
+//  
+
+static gen_blr( int *user_arg, int offset, TEXT * string)
+{
+	int from, to, len, c_len;
+	TEXT c;
+
+	c_len = strlen(COMMENT);
+	len = strlen(string);
+	from = 0;
+	to = 80 - c_len;
+
+	while (from < len) {
+		if (to < len) {
+			c = string[to];
+			string[to] = 0;
+		}
+		ib_fprintf(out_file, "%s%s\n", COMMENT, &string[from]);
+		if (to < len)
+			string[to] = c;
+		from = to;
+		to = to + 80 - c_len;
+	}
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile a request.
+//  
+
+static gen_compile( ACT action)
+{
+	REQ request;
+	DBB db;
+	SYM symbol;
+	BLB blob;
+
+	request = action->act_request;
+	db = request->req_database;
+	symbol = db->dbb_name;
+
+//  generate automatic ready if appropriate 
+
+	if (sw_auto)
+		t_start_auto(request, status_vector(action), action, TRUE);
+
+//  
+//  always generate a compile, a test for the success of the compile,
+//  and an end to the 'if not compiled test
+//  
+
+//  generate an 'if not compiled' 
+
+	if (sw_auto && (action->act_error || (action->act_flags & ACT_sql)))
+		printa(COLUMN, "IF (%s .EQ. 0 .AND. %s .NE. 0) THEN",
+			   request->req_handle, request_trans(action, request));
+	else
+		printa(COLUMN, "IF (%s .EQ. 0) THEN", request->req_handle);
+
+	sprintf(output_buffer,
+			"%sCALL ISC_COMPILE_REQUEST%s (%s, %s, %s, %s%d%s, %sisc_%d%s)\n",
+			COLUMN, (request->req_flags & REQ_exp_hand) ? "" : "2",
+			status_vector(action), symbol->sym_string, request->req_handle,
+			I2CONST_1, request->req_length, I2CONST_2, REF_1,
+			request->req_ident, REF_2);
+	FTN_print_buffer(output_buffer);
+	status_and_stop(action);
+	printa(COLUMN, "END IF");
+
+//  If blobs are present, zero out all of the blob handles.  After this
+//  point, the handles are the user's responsibility 
+
+	if (blob = request->req_blobs) {
+		for (; blob; blob = blob->blb_next) {
+			sprintf(output_buffer, "%sisc_%d = 0\n", COLUMN, blob->blb_ident);
+			FTN_print_buffer(output_buffer);
+		}
+	}
+}
+
+
+
+
+//____________________________________________________________
+//  
+//		Generate a call to create a database.
+//  
+
+static gen_create_database( ACT action)
+{
+	REQ request;
+	DBB db;
+	USHORT save_sw_auto;
+	TEXT s1[32], s2[32];
+
+	request = ((MDBB) action->act_object)->mdbb_dpb_request;
+	db = (DBB) request->req_database;
+	sprintf(s1, "isc_%dl", request->req_ident);
+
+	if (request->req_flags & REQ_extend_dpb) {
+		sprintf(s2, "isc_%dp", request->req_ident);
+		if (request->req_length) {
+			sprintf(output_buffer, "%s%s = isc_%d\n",
+					COLUMN, s2, request->req_ident);
+			FTN_print_buffer(output_buffer);
+		}
+		if (db->dbb_r_user) {
+			sprintf(output_buffer,
+					"%sCALL ISC_MODIFY_DPB (%s, %s, isc_dpb_user_name, %s, %sLEN(%s)%s)\n",
+					COLUMN,
+					s2, s1, db->dbb_r_user,
+					I2CONST_1, db->dbb_r_user, I2CONST_2);
+			FTN_print_buffer(output_buffer);
+		}
+		if (db->dbb_r_password) {
+			sprintf(output_buffer,
+					"%sCALL ISC_MODIFY_DPB (%s, %s, isc_dpb_password, %s, %sLEN(%s)%s)\n",
+					COLUMN,
+					s2, s1, db->dbb_r_password,
+					I2CONST_1, db->dbb_r_password, I2CONST_2);
+			FTN_print_buffer(output_buffer);
+		}
+
+		/*
+		   ** =========================================================
+		   ** ==   SQL Role supports GPRE/Fortran
+		   ** =========================================================
+		 */
+
+		if (db->dbb_r_sql_role) {
+			sprintf(output_buffer,
+					"%sCALL ISC_MODIFY_DPB (%s, %s, isc_dpb_sql_role_name, %s, %sLEN(%s)%s)\n",
+					COLUMN,
+					s2, s1, db->dbb_r_sql_role,
+					I2CONST_1, db->dbb_r_sql_role, I2CONST_2);
+			FTN_print_buffer(output_buffer);
+		}
+
+		if (db->dbb_r_lc_messages) {
+			sprintf(output_buffer,
+					"%sCALL ISC_MODIFY_DPB (%s, %s, isc_dpb_lc_messages, %s, %sLEN(%s)%s)\n",
+					COLUMN,
+					s2, s1, db->dbb_r_lc_messages,
+					I2CONST_1, db->dbb_r_lc_messages, I2CONST_2);
+			FTN_print_buffer(output_buffer);
+		}
+		if (db->dbb_r_lc_ctype) {
+			sprintf(output_buffer,
+					"%sCALL ISC_MODIFY_DPB (%s, %s, isc_dpb_lc_type, %s, %sLEN(%s)%s)\n",
+					COLUMN,
+					s2, s1, db->dbb_r_lc_ctype,
+					I2CONST_1, db->dbb_r_lc_ctype, I2CONST_2);
+			FTN_print_buffer(output_buffer);
+		}
+	}
+	else
+		sprintf(s2, "isc_%d", request->req_ident);
+
+	if (request->req_length || request->req_flags & REQ_extend_dpb)
+		sprintf(output_buffer,
+				"%sCALL ISC_CREATE_DATABASE (%s, %s%d%s, %s'%s'%s, %s, %s%s%s, %s, 0)\n",
+				COLUMN,
+				status_vector(action),
+				I2CONST_1, strlen(db->dbb_filename), I2CONST_2,
+				REF_1, db->dbb_filename, REF_2,
+				db->dbb_name->sym_string, I2CONST_1, s1, I2CONST_2, s2);
+	else
+		sprintf(output_buffer,
+				"%sCALL ISC_CREATE_DATABASE (%s, %s%d%s, %s'%s'%s, %s, %s0%s, 0, 0)\n",
+				COLUMN,
+				status_vector(action),
+				I2CONST_1, strlen(db->dbb_filename), I2CONST_2,
+				REF_1, db->dbb_filename, REF_2,
+				db->dbb_name->sym_string, I2CONST_1, I2CONST_2);
+	FTN_print_buffer(output_buffer);
+	if (request && request->req_flags & REQ_extend_dpb) {
+		if (request->req_length) {
+			sprintf(output_buffer, "%sif (%s != isc_%d)\n", COLUMN, s2,
+					request->req_ident);
+			FTN_print_buffer(output_buffer);
+		}
+		sprintf(output_buffer, "%sCALL ISC_FREE (%s)\n", COLUMN, s2);
+		FTN_print_buffer(output_buffer);
+
+		/* reset the length of the dpb */
+
+		sprintf(output_buffer, "%s%s = %d\n", COLUMN, s1,
+				request->req_length);
+		FTN_print_buffer(output_buffer);
+	}
+	save_sw_auto = sw_auto;
+	sw_auto = TRUE;
+	printa(COLUMN, "IF (isc_status(2) .eq. 0) THEN");
+	gen_ddl(action);
+	printa(COLUMN, "END IF");
+	sw_auto = save_sw_auto;
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STREAM.
+//  
+
+static gen_cursor_close( ACT action, REQ request)
+{
+
+	printa(COLUMN, "IF (isc_%ds .NE. 0) THEN", request->req_ident);
+	printa(COLUMN, "CALL %s (%s, isc_%ds, %s1%s)",
+		   ISC_DSQL_FREE,
+		   status_vector(action),
+		   request->req_ident, DSQL_I2CONST_1, DSQL_I2CONST_2);
+	printa(COLUMN, "IF (isc_status(2) .EQ. 0) THEN");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to initialize a cursor.
+//  
+
+static gen_cursor_init( ACT action)
+{
+
+//  If blobs are present, zero out all of the blob handles.  After this
+//  point, the handles are the user's responsibility 
+
+	if (action->act_request->
+		req_flags & (REQ_sql_blob_open | REQ_sql_blob_create)) printa(COLUMN,
+																	  "isc_%d = 0",
+																	  action->
+																	  act_request->
+																	  req_blobs->
+																	  blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to open an embedded SQL cursor.
+//  
+
+static gen_cursor_open( ACT action, REQ request)
+{
+	TEXT s[64];
+
+	if (action->act_type != ACT_open) {
+		if (sw_auto)
+			printa(COLUMN, "IF (isc_%ds .EQ. 0 .AND. %s .NE. 0) THEN",
+				   request->req_ident,
+				   request->req_database->dbb_name->sym_string);
+		else
+			printa(COLUMN, "IF (isc_%ds .EQ. 0) THEN", request->req_ident);
+	}
+	else {
+		if (sw_auto)
+			printa(COLUMN,
+				   "IF (isc_%ds .EQ. 0 .AND. %s .NE. 0 .AND. %s .NE. 0) THEN",
+				   request->req_ident, request->req_handle,
+				   request->req_database->dbb_name->sym_string);
+		else
+			printa(COLUMN, "IF (isc_%ds .EQ. 0 .AND. %s .NE. 0) THEN",
+				   request->req_ident, request->req_handle);
+	}
+
+	printa(COLUMN, "CALL %s (%s, %s, isc_%ds)",
+		   ISC_DSQL_ALLOCATE,
+		   status_vector(action),
+		   request->req_database->dbb_name->sym_string, request->req_ident);
+	printa(COLUMN, "END IF");
+
+	if (sw_auto)
+		printa(COLUMN, "IF (isc_%ds .NE. 0 .AND. %s .NE. 0) THEN",
+			   request->req_ident, request_trans(action, request));
+	else
+		printa(COLUMN, "IF (isc_%ds .NE. 0) THEN", request->req_ident);
+	printa(COLUMN, "CALL %s (%s, isc_%ds, %s, %s0%s)",
+		   ISC_DSQL_SET_CURSOR,
+		   status_vector(action),
+		   request->req_ident,
+		   make_name(s, ((OPN) action->act_object)->opn_cursor),
+		   DSQL_I2CONST_1, DSQL_I2CONST_2);
+	printa(COLUMN, "IF (isc_status(2) .EQ. 0) THEN");
+	printa(COLUMN, "CALL %s (%s, %s, isc_%ds, %s0%s, 0, %s-1%s, %s0%s, 0)",
+		   ISC_DSQL_EXECUTE,
+		   status_vector(action),
+		   request_trans(action, request),
+		   request->req_ident,
+		   DSQL_I2CONST_1, DSQL_I2CONST_2,
+		   DSQL_I2CONST_1, DSQL_I2CONST_2, DSQL_I2CONST_1, DSQL_I2CONST_2);
+	printa(COLUMN, "IF (isc_status(2) .EQ. 0) THEN");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insertion text for the database statement.
+//  
+
+static gen_database( ACT action)
+{
+
+	if (first_flag++ != 0)
+		return;
+
+	sprintf(output_buffer,
+			"\n%s      **** GDS Preprocessor Definitions ****\n\n", COMMENT);
+	FTN_print_buffer(output_buffer);
+
+	gen_database_decls(action);
+	gen_database_data(action);
+
+	printa(COMMENT, "**** end of GPRE definitions ****\n");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insertion text for global DATA statements.
+//  
+
+static gen_database_data( ACT action)
+{
+	DBB db;
+	TPB tpb;
+	REQ request;
+	BOOLEAN any_extern;
+	TEXT include_buffer[512];
+
+	ISC_prefix(include_buffer, INCLUDE_FTN_FILE);
+	sprintf(output_buffer, INCLUDE_ISC_FTN, include_buffer);
+
+	FTN_print_buffer(output_buffer);
+
+	any_extern = FALSE;
+	for (db = isc_databases; db; db = db->dbb_next) {
+#ifndef FTN_BLK_DATA
+		if (db->dbb_scope != DBB_EXTERN)
+			ib_fprintf(out_file,
+					   "%sDATA %s /0/               %s{ init database handle }\n",
+					   COLUMN, db->dbb_name->sym_string, INLINE_COMMENT);
+		else
+			any_extern = TRUE;
+#endif
+		for (tpb = db->dbb_tpbs; tpb; tpb = tpb->tpb_dbb_next)
+			gen_tpb_data(tpb);
+	}
+
+	ib_fprintf(out_file,
+			   "%sDATA ISC_NULL /0/            %s{ init null vector }\n",
+			   COLUMN, INLINE_COMMENT);
+	ib_fprintf(out_file,
+			   "%sDATA ISC_BLOB_NULL /0,0/     %s{ init null blob }\n",
+			   COLUMN, INLINE_COMMENT);
+#ifndef FTN_BLK_DATA
+	if (!any_extern)
+		ib_fprintf(out_file,
+				   "%sDATA GDS__TRANS /0/           %s{ init trans handle }\n",
+				   COLUMN, INLINE_COMMENT);
+	if (sw_pyxis && (sw_window_scope != DBB_EXTERN)) {
+		ib_fprintf(out_file,
+				   "%sDATA ISC_WINDOW /0/           %s{ init window handle }\n",
+				   COLUMN, INLINE_COMMENT);
+		ib_fprintf(out_file,
+				   "%sDATA ISC_HEIGHT /24/           %s{ init window height }\n",
+				   COLUMN, INLINE_COMMENT);
+		ib_fprintf(out_file,
+				   "%sDATA ISC_WIDTH /80/           %s{ init window width }\n",
+				   COLUMN, INLINE_COMMENT);
+	}
+#endif
+
+	for (request = requests; request; request = request->req_next)
+		gen_request_data(request);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insertion text for global
+//       data declarations.
+//  
+
+static gen_database_decls( ACT action)
+{
+	DBB db;
+	REQ request;
+	POR port;
+	TPB tpb;
+	BLB blob;
+	TEXT *name;
+	BOOLEAN all_static, dcl_ndx_var;
+	REF reference;
+	SSHORT count, max_count, length, i, index;
+	LLS stack_ptr;
+
+	ib_fprintf(out_file,
+			   "%sINTEGER*4  ISC_BLOB_NULL(2)  %s{ null blob handle }\n",
+			   COLUMN, INLINE_COMMENT);
+	ib_fprintf(out_file,
+			   "%sINTEGER*4  GDS__TRANS         %s{ default transaction handle }\n",
+			   COLUMN, INLINE_COMMENT);
+	if (sw_pyxis) {
+		ib_fprintf(out_file,
+				   "%sINTEGER*4  ISC_WINDOW        %s{ window handle }\n",
+				   COLUMN, INLINE_COMMENT);
+		ib_fprintf(out_file,
+				   "%sINTEGER*2  ISC_HEIGHT        %s{ window height }\n",
+				   COLUMN, INLINE_COMMENT);
+		ib_fprintf(out_file,
+				   "%sINTEGER*2  ISC_WIDTH         %s{ window width }\n",
+				   COLUMN, INLINE_COMMENT);
+	}
+	ib_fprintf(out_file,
+			   "%sINTEGER*4  ISC_STATUS(20)    %s{ status vector }\n", COLUMN,
+			   INLINE_COMMENT);
+	ib_fprintf(out_file,
+			   "%sINTEGER*4  ISC_STATUS2(20)   %s{ status vector }\n", COLUMN,
+			   INLINE_COMMENT);
+
+//  added for 3.3 compatibility 
+	ib_fprintf(out_file,
+			   "%sINTEGER*4  GDS__STATUS(20)    %s{ status vector }\n",
+			   COLUMN, INLINE_COMMENT);
+	ib_fprintf(out_file,
+			   "%sINTEGER*4  GDS__STATUS2(20)   %s{ status vector }\n",
+			   COLUMN, INLINE_COMMENT);
+
+	printa(COLUMN, "EQUIVALENCE    (ISC_STATUS(20), GDS__STATUS(20)) ");
+	printa(COLUMN, "EQUIVALENCE    (ISC_STATUS2(20), GDS__STATUS2(20)) ");
+//  end of code added for 3.3 compatibility 
+
+	ib_fprintf(out_file,
+			   "%sINTEGER*4  ISC_NULL          %s{ dummy status vector }\n",
+			   COLUMN, INLINE_COMMENT);
+	ib_fprintf(out_file,
+			   "%sINTEGER*4  SQLCODE            %s{ SQL status code }\n",
+			   COLUMN, INLINE_COMMENT);
+	ib_fprintf(out_file,
+			   "%sINTEGER*4  ISC_SQLCODE       %s{ SQL status code translator }\n",
+			   COLUMN, INLINE_COMMENT);
+	ib_fprintf(out_file,
+			   "%sINTEGER*4  ISC_ARRAY_LENGTH  %s{ array return size }\n",
+			   COLUMN, INLINE_COMMENT);
+
+	all_static = TRUE;
+	dcl_ndx_var = FALSE;
+	for (db = isc_databases, count = 0; db; db = db->dbb_next) {
+		all_static = all_static && (db->dbb_scope == DBB_STATIC);
+		name = db->dbb_name->sym_string;
+		ib_fprintf(out_file,
+				   "%sINTEGER*4  %s                %s{ database handle }\n",
+				   COLUMN, name, INLINE_COMMENT);
+
+		ib_fprintf(out_file,
+				   "%sCHARACTER*256 ISC_%s        %s{ database file name }\n",
+				   COLUMN, name, INLINE_COMMENT);
+
+		for (tpb = db->dbb_tpbs; tpb; tpb = tpb->tpb_dbb_next) {
+			gen_tpb_decls(tpb);
+			dcl_ndx_var = TRUE;
+		}
+
+#ifdef hpux
+		/* build fields to handle start_multiple */
+
+		count++;
+		ib_fprintf(out_file,
+				   "%sINTEGER*4      ISC_TEB%d_DBB   %s( vector db handle )\n",
+				   COLUMN, count, INLINE_COMMENT);
+		ib_fprintf(out_file,
+				   "%sINTEGER*4      ISC_TEB%d_LEN   %s( vector tpb length )\n",
+				   COLUMN, count, INLINE_COMMENT);
+		ib_fprintf(out_file,
+				   "%sINTEGER*4      ISC_TEB%d_TPB   %s( vector tpb handle )\n",
+				   COLUMN, count, INLINE_COMMENT);
+#endif
+
+		printa(COLUMN, "COMMON /%s/ %s", name, name);
+	}
+
+#ifdef hpux
+//  declare array and set up equivalence for start_multiple vector 
+
+	length = 12;
+	ib_fprintf(out_file,
+			   "%sCHARACTER      ISC_TEB(%d)  %s( transaction vector )\n",
+			   COLUMN, length * count, INLINE_COMMENT);
+	for (i = 0; i < count;) {
+		index = i++ * length + 1;
+		printa(COLUMN, "EQUIVALENCE    (ISC_TEB(%d), ISC_TEB%d_DBB )",
+			   index, i);
+		printa(COLUMN, "EQUIVALENCE    (ISC_TEB(%d), ISC_TEB%d_LEN )",
+			   index + 4, i);
+		printa(COLUMN, "EQUIVALENCE    (ISC_TEB(%d) ,ISC_TEB%d_TPB )",
+			   index + 8, i);
+	}
+#endif
+
+	if (!all_static) {
+		printa(COLUMN, "COMMON /GDS__TRANS/GDS__TRANS");
+		printa(COLUMN, "COMMON /ISC_STATUS/ISC_STATUS");
+		printa(COLUMN, "COMMON /ISC_STATUS2/ISC_STATUS2");
+		printa(COLUMN, "COMMON /SQLCODE/SQLCODE");
+	}
+	if (sw_pyxis && sw_window_scope != DBB_STATIC) {
+		printa(COLUMN, "COMMON /ISC_WINDOW/ISC_WINDOW");
+		printa(COLUMN, "COMMON /ISC_HEIGHT/ISC_HEIGHT");
+		printa(COLUMN, "COMMON /ISC_WIDTH/ISC_WIDTH");
+	}
+
+	array_decl_list = NULL;
+	for (request = requests; request; request = request->req_next) {
+		gen_request_decls(request);
+		for (port = request->req_ports; port; port = port->por_next)
+			make_port(port);
+		for (blob = request->req_blobs; blob; blob = blob->blb_next) {
+			ib_fprintf(out_file,
+					   "%sINTEGER*4 isc_%d         %s{ blob handle }\n",
+					   COLUMN, blob->blb_ident, INLINE_COMMENT);
+			ib_fprintf(out_file,
+					   "%sCHARACTER*%d isc_%d      %s{ blob segment }\n",
+					   COLUMN, blob->blb_seg_length, blob->blb_buff_ident,
+					   INLINE_COMMENT);
+			ib_fprintf(out_file,
+					   "%sINTEGER*2 isc_%d         %s{ segment length }\n",
+					   COLUMN, blob->blb_len_ident, INLINE_COMMENT);
+		}
+
+		/*  Array declarations  */
+
+		if (port = request->req_primary)
+			for (reference = port->por_references; reference;
+				 reference = reference->ref_next)
+					if (reference->ref_field->fld_array_info)
+						make_array_declaration(reference);
+	}
+
+//  Declare DATA statement index variable 
+
+	if (dcl_ndx_var || requests)
+		printa(COLUMN, "INTEGER ISC_I");
+
+//  generate event parameter block for each event in module 
+
+	max_count = 0;
+	for (stack_ptr = events; stack_ptr; stack_ptr = stack_ptr->lls_next) {
+		count = gen_event_block(stack_ptr->lls_object);
+		max_count = MAX(count, max_count);
+	}
+
+	if (max_count) {
+		ib_fprintf(out_file,
+				   "%sINTEGER*4  ISC_EVENTS(%d)         %s{ event vector }\n",
+				   COLUMN, max_count, INLINE_COMMENT);
+		ib_fprintf(out_file,
+				   "%sINTEGER*4  ISC_EVENT_NAMES(%d)    %s{ event buffer }\n",
+				   COLUMN, max_count, INLINE_COMMENT);
+		ib_fprintf(out_file,
+				   "%sCHARACTER*31 ISC_EVENT_NAMES2(%d) %s{ event string buffer }\n",
+				   COLUMN, max_count, INLINE_COMMENT);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to update metadata.
+//  
+
+static gen_ddl( ACT action)
+{
+	REQ request;
+
+	if (sw_auto) {
+		t_start_auto(0, status_vector(action), action, TRUE);
+		printa(COLUMN, "if (gds__trans .ne. 0) then");
+	}
+
+//  Set up command type for call to RDB_DDL 
+
+	request = action->act_request;
+
+	sprintf(output_buffer,
+			"%sCALL isc_ddl (%s, %s, gds__trans, %s%d%s, isc_%d)\n", COLUMN,
+			status_vector(action),
+			request->req_database->dbb_name->sym_string, I2CONST_1,
+			request->req_length, I2CONST_2, request->req_ident);
+
+	FTN_print_buffer(output_buffer);
+
+	if (sw_auto) {
+		printa(COLUMN, "END IF");
+		printa(COLUMN, "if (isc_status(2) .eq. 0)");
+		printa(CONTINUE, "CALL isc_commit_transaction (%s, gds__trans)",
+			   status_vector(action));
+		printa(COLUMN, "if (isc_status(2) .ne. 0)");
+		printa(CONTINUE,
+			   "CALL isc_rollback_transaction (isc_status2, gds__trans)");
+	}
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to create a database.
+//  
+
+static gen_drop_database( ACT action)
+{
+	DBB db;
+
+	db = (DBB) action->act_object;
+
+	sprintf(output_buffer,
+			"%s CALL ISC_DROP_DATABASE (%s, %s%d%s, %s\'%s\'%s, RDB_K_DB_TYPE_GDS)\n",
+			COLUMN,
+			status_vector(action),
+			I2_1, strlen(db->dbb_filename), I2_2,
+			REF_1, db->dbb_filename, REF_2);
+	FTN_print_buffer(output_buffer);
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_close( ACT action)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	printa(COLUMN,
+		   "CALL %s (isc_status, %s)",
+		   ISC_EMBED_DSQL_CLOSE, make_name(s, statement->dyn_cursor_name));
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_declare( ACT action)
+{
+	DYN statement;
+	TEXT s1[64], s2[64];
+
+	statement = (DYN) action->act_object;
+	printa(COLUMN,
+		   "CALL %s (isc_status, %s, %s)",
+		   ISC_EMBED_DSQL_DECLARE,
+		   make_name(s1, statement->dyn_statement_name),
+		   make_name(s2, statement->dyn_cursor_name));
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_describe( ACT action, BOOLEAN bind_flag)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	printa(COLUMN,
+		   "CALL %s (isc_status, %s, %s%d%s, %s)",
+		   bind_flag ? ISC_EMBED_DSQL_DESCRIBE_BIND : ISC_EMBED_DSQL_DESCRIBE,
+		   make_name(s, statement->dyn_statement_name),
+		   DSQL_I2CONST_1, sw_sql_dialect, DSQL_I2CONST_2,
+		   statement->dyn_sqlda);
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_execute( ACT action)
+{
+	DYN statement;
+	TEXT *transaction, s1[64], s2[64], s3[64], *sqlda, *sqlda2;
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = "gds__trans";
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		t_start_auto(request, status_vector(action), action, TRUE);
+		printa(COLUMN, "if (%s .ne. 0) then", transaction);
+	}
+
+	sqlda = statement->dyn_sqlda;
+	sqlda2 = statement->dyn_sqlda2;
+#ifdef hpux
+	if (sqlda) {
+		sprintf(s2, "isc_baddress (%s)", sqlda);
+		sqlda = s2;
+	}
+	if (sqlda2) {
+		sprintf(s3, "isc_baddress (%s)", sqlda2);
+		sqlda2 = s3;
+	}
+#endif
+
+	printa(COLUMN,
+		   (sqlda2) ?
+		   "CALL %s (isc_status, %s, %s, %s%d%s, %s, %s)" :
+		   "CALL %s (isc_status, %s, %s, %s%d%s, %s)",
+		   (sqlda2) ? ISC_EMBED_DSQL_EXECUTE2 : ISC_EMBED_DSQL_EXECUTE,
+		   transaction,
+		   make_name(s1, statement->dyn_statement_name),
+		   DSQL_I2CONST_1, sw_sql_dialect, DSQL_I2CONST_2,
+		   (sqlda) ? sqlda : NULL_SQLDA, (sqlda2) ? sqlda2 : NULL_SQLDA);
+
+	if (sw_auto)
+		printa(COLUMN, "END IF");
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_fetch( ACT action)
+{
+	DYN statement;
+	TEXT s1[64], s2[64], *sqlda;
+
+	statement = (DYN) action->act_object;
+
+	sqlda = statement->dyn_sqlda;
+#ifdef hpux
+	if (sqlda) {
+		sprintf(s2, "isc_baddress (%s)", sqlda);
+		sqlda = s2;
+	}
+#endif
+
+	printa(COLUMN,
+		   "SQLCODE = %s (isc_status, %s, %s%d%s, %s)",
+		   ISC_EMBED_DSQL_FETCH,
+		   make_name(s1, statement->dyn_cursor_name),
+		   DSQL_I2CONST_1, sw_sql_dialect, DSQL_I2CONST_2,
+		   (sqlda) ? sqlda : NULL_SQLDA);
+
+	printa(COLUMN,
+		   "IF (SQLCODE .NE. 100) SQLCODE = ISC_SQLCODE (isc_status)");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for an EXECUTE IMMEDIATE dynamic SQL statement.
+//  
+
+static gen_dyn_immediate( ACT action)
+{
+	DYN statement;
+	DBB database;
+	TEXT *transaction, s2[64], s3[64], *sqlda, *sqlda2;
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = "gds__trans";
+		request = NULL;
+	}
+
+	database = statement->dyn_database;
+
+	if (sw_auto) {
+		t_start_auto(request, status_vector(action), action, TRUE);
+		printa(COLUMN, "if (%s .ne. 0) then", transaction);
+	}
+
+	sqlda = statement->dyn_sqlda;
+	sqlda2 = statement->dyn_sqlda2;
+#ifdef hpux
+	if (sqlda) {
+		sprintf(s2, "isc_baddress (%s)", sqlda);
+		sqlda = s2;
+	}
+	if (sqlda2) {
+		sprintf(s3, "isc_baddress (%s)", sqlda2);
+		sqlda2 = s3;
+	}
+#endif
+
+	printa(COLUMN,
+		   (sqlda2) ?
+		   "CALL %s (isc_status, %s, %s, %sLEN(%s)%s, %s%s%s, %s%d%s, %s, %s)"
+		   : "CALL %s (isc_status, %s, %s, %sLEN(%s)%s, %s%s%s, %s%d%s, %s)",
+		   (sqlda2) ? ISC_EMBED_DSQL_EXECUTE_IMMEDIATE2 :
+		   ISC_EMBED_DSQL_EXECUTE_IMMEDIATE, transaction,
+		   database->dbb_name->sym_string, DSQL_I2CONST_1,
+		   statement->dyn_string, DSQL_I2CONST_2, REF_1,
+		   statement->dyn_string, REF_2, DSQL_I2CONST_1, sw_sql_dialect,
+		   DSQL_I2CONST_2, (sqlda) ? sqlda : NULL_SQLDA,
+		   (sqlda2) ? sqlda2 : NULL_SQLDA);
+
+	if (sw_auto)
+		printa(COLUMN, "END IF");
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_insert( ACT action)
+{
+	DYN statement;
+	TEXT s1[64], s2[64], *sqlda;
+
+	statement = (DYN) action->act_object;
+
+	sqlda = statement->dyn_sqlda;
+#ifdef hpux
+	if (sqlda) {
+		sprintf(s2, "isc_baddress (%s)", sqlda);
+		sqlda = s2;
+	}
+#endif
+
+	printa(COLUMN,
+		   "%s (isc_status, %s, %s%d%s, %s)",
+		   ISC_EMBED_DSQL_INSERT,
+		   make_name(s1, statement->dyn_cursor_name),
+		   DSQL_I2CONST_1, sw_sql_dialect, DSQL_I2CONST_2,
+		   (sqlda) ? sqlda : NULL_SQLDA);
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_open( ACT action)
+{
+	DYN statement;
+	TEXT *transaction, s1[64], s2[64], s3[64], *sqlda, *sqlda2;
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = "gds__trans";
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		t_start_auto(request, status_vector(action), action, TRUE);
+		printa(COLUMN, "if (%s .ne. 0) then", transaction);
+	}
+
+	sqlda = statement->dyn_sqlda;
+	sqlda2 = statement->dyn_sqlda2;
+#ifdef hpux
+	if (sqlda) {
+		sprintf(s2, "isc_baddress (%s)", sqlda);
+		sqlda = s2;
+	}
+	if (sqlda2) {
+		sprintf(s3, "isc_baddress (%s)", sqlda2);
+		sqlda2 = s3;
+	}
+#endif
+
+	printa(COLUMN,
+		   (sqlda2) ?
+		   "CALL %s (isc_status, %s, %s, %s%d%s, %s, %s)" :
+		   "CALL %s (isc_status, %s, %s, %s%d%s, %s)",
+		   (sqlda2) ? ISC_EMBED_DSQL_OPEN2 : ISC_EMBED_DSQL_OPEN,
+		   transaction,
+		   make_name(s1, statement->dyn_cursor_name),
+		   DSQL_I2CONST_1, sw_sql_dialect, DSQL_I2CONST_2,
+		   (sqlda) ? sqlda : NULL_SQLDA, (sqlda2) ? sqlda2 : NULL_SQLDA);
+
+	if (sw_auto)
+		printa(COLUMN, "END IF");
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static gen_dyn_prepare( ACT action)
+{
+	DYN statement;
+	DBB database;
+	TEXT *transaction, s1[64], s2[64], *sqlda;
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	database = statement->dyn_database;
+
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = "gds__trans";
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		t_start_auto(request, status_vector(action), action, TRUE);
+		printa(COLUMN, "if (%s .ne. 0) then", transaction);
+	}
+
+	sqlda = statement->dyn_sqlda;
+#ifdef hpux
+	if (sqlda) {
+		sprintf(s2, "isc_baddress (%s)", sqlda);
+		sqlda = s2;
+	}
+#endif
+
+	printa(COLUMN,
+		   "CALL %s (isc_status, %s, %s, %s, %sLEN(%s)%s, %s%s%s, %s%d%s, %s)",
+		   ISC_EMBED_DSQL_PREPARE, database->dbb_name->sym_string,
+		   transaction, make_name(s1, statement->dyn_statement_name),
+		   DSQL_I2CONST_1, statement->dyn_string, DSQL_I2CONST_2, REF_1,
+		   statement->dyn_string, REF_2, DSQL_I2CONST_1, sw_sql_dialect,
+		   DSQL_I2CONST_2, (sqlda) ? sqlda : NULL_SQLDA);
+
+	if (sw_auto)
+		printa(COLUMN, "END IF");
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_MODIFY.
+//  
+
+static gen_emodify( ACT action)
+{
+	UPD modify;
+	REF reference, source;
+	FLD field;
+	SCHAR s1[20], s2[20];
+
+	modify = (UPD) action->act_object;
+
+	for (reference = modify->upd_port->por_references; reference;
+		 reference = reference->ref_next) {
+		if (!(source = reference->ref_source))
+			continue;
+		field = reference->ref_field;
+		gen_name(s1, source, TRUE);
+		gen_name(s2, reference, TRUE);
+		if (field->fld_dtype == dtype_blob ||
+			field->fld_dtype == dtype_quad || field->fld_dtype == dtype_date)
+			sprintf(output_buffer, "%sCALL isc_qtoq (%s, %s)\n", COLUMN, s1,
+					s2);
+		else
+			sprintf(output_buffer, "%s%s = %s\n", COLUMN, s2, s1);
+		FTN_print_buffer(output_buffer);
+		if (field->fld_array_info)
+			gen_get_or_put_slice(action, reference, FALSE);
+	}
+
+	gen_send(action, modify->upd_port);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STORE.
+//  
+
+static gen_estore( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+
+//  if this is a store...returning_values (aka store2)
+//  we already executed the store, so go home quietly 
+
+	if (request->req_type == REQ_store2)
+		return;
+
+	gen_start(action, request->req_primary);
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(COLUMN, "END IF");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate an END IF for the IF generated for
+//		the AT_END clause.
+//  
+
+static gen_end_fetch(void)
+{
+
+	printa(COLUMN, "END IF");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  
+
+static gen_endfor( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+
+	if (request->req_sync)
+		gen_send(action, request->req_sync);
+
+	printa(COLUMN, "GOTO %d", request->req_top_label);
+	printa("", "%-6dCONTINUE", request->req_btm_label);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for ERASE.
+//  
+
+static gen_erase( ACT action)
+{
+	UPD erase;
+
+	erase = (UPD) action->act_object;
+	gen_send(action, erase->upd_port);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate event parameter blocks for use
+//		with a particular call to isc_event_wait.
+//  
+
+static SSHORT gen_event_block( ACT action)
+{
+	NOD init, list;
+	int ident;
+
+	init = (NOD) action->act_object;
+
+	ident = CMP_next_ident();
+	init->nod_arg[2] = (NOD) ident;
+
+	printa(COLUMN, "INTEGER*4      isc_%dA", ident);
+	printa(COLUMN, "INTEGER*4      isc_%dB", ident);
+	printa(COLUMN, "INTEGER*2      isc_%dL", ident);
+
+	list = init->nod_arg[1];
+
+	return list->nod_count;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for EVENT_INIT.
+//  
+
+static gen_event_init( ACT action)
+{
+	NOD init, event_list, *ptr, *end, node;
+	REF reference;
+	PAT args;
+	SSHORT column = 6, count;
+	TEXT variable[20];
+#if (!defined AIX && !defined AIX_PPC)
+	TEXT *pattern1 =
+		"ISC_%N1L = ISC_EVENT_BLOCK_A (%RFISC_%N1A%RE, %RFISC_%N1B%RE, %VF%S3%N2%S4%VE, %RFISC_EVENT_NAMES%RE)";
+#else
+	TEXT *pattern1 =
+		"CALL ISC_EVENT_BLOCK_S (%RFISC_%N1A%RE, %RFISC_%N1B%RE, %VF%S3%N2%S4%VE, %RFISC_EVENT_NAMES%RE, %RFISC_%N1L%RE)";
+#endif
+	TEXT *pattern2 =
+		"CALL %S1 (%V1, %RF%DH%RE, %VFISC_%N1L%VE, %VFISC_%N1A%VE, %VFISC_%N1B%VE)";
+	TEXT *pattern3 =
+		"CALL %S2 (ISC_EVENTS, %VFISC_%N1L%VE, %VFISC_%N1A%VE, %VFISC_%N1B%VE)";
+
+	init = (NOD) action->act_object;
+	event_list = init->nod_arg[1];
+
+	args.pat_database = (DBB) init->nod_arg[3];
+	args.pat_vector1 = status_vector(action);
+	args.pat_value1 = (int) init->nod_arg[2];
+	args.pat_value2 = (int) event_list->nod_count;
+	args.pat_string1 = ISC_EVENT_WAIT;
+	args.pat_string2 = ISC_EVENT_COUNTS;
+	args.pat_string3 = I2_1;
+	args.pat_string4 = I2_2;
+
+//  generate call to dynamically generate event blocks 
+
+	for (ptr = event_list->nod_arg, count = 0, end =
+		 ptr + event_list->nod_count; ptr < end; ptr++) {
+		count++;
+		node = *ptr;
+		if (node->nod_type == nod_field) {
+			reference = (REF) node->nod_arg[0];
+			gen_name(variable, reference, TRUE);
+			printa(COLUMN, "ISC_EVENT_NAMES2(%d) = %s", count, variable);
+		}
+		else
+			printa(COLUMN, "ISC_EVENT_NAMES2(%d) = %s", count,
+				   node->nod_arg[0]);
+
+#if (!defined AIX && !defined AIX_PPC)
+		printa(COLUMN,
+			   "ISC_EVENT_NAMES(%d) = ISC_BADDRESS (%sISC_EVENT_NAMES2(%d)%s)",
+			   count, REF_1, count, REF_2);
+#else
+		printa(COLUMN,
+			   "CALL ISC_BADDRESS (%sISC_EVENT_NAMES2(%d)%s, ISC_EVENT_NAMES(%d))",
+			   REF_1, count, REF_2, count);
+#endif
+	}
+
+	PATTERN_expand(column, pattern1, &args);
+
+//  generate actual call to event_wait 
+
+	PATTERN_expand(column, pattern2, &args);
+
+//  get change in event counts, copying event parameter block for reuse 
+
+	PATTERN_expand(column, pattern3, &args);
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for EVENT_WAIT.
+//  
+
+static gen_event_wait( ACT action)
+{
+	PAT args;
+	NOD event_init;
+	SYM event_name, stack_name;
+	DBB database;
+	LLS stack_ptr;
+	ACT event_action;
+	SSHORT column = 6;
+	int ident;
+	TEXT s[64];
+	TEXT *pattern1 =
+		"CALL %S1 (%V1, %RF%DH%RE, %VFISC_%N1L%VE, %VFISC_%N1A%VE, %VFISC_%N1B%VE)";
+	TEXT *pattern2 =
+		"CALL %S2 (ISC_EVENTS, %VFISC_%N1L%VE, %VFISC_%N1A%VE, %VFISC_%N1B%VE)";
+
+	event_name = (SYM) action->act_object;
+
+//  go through the stack of events, checking to see if the
+//  event has been initialized and getting the event identifier 
+
+	ident = -1;
+	for (stack_ptr = events; stack_ptr; stack_ptr = stack_ptr->lls_next) {
+		event_action = (ACT) stack_ptr->lls_object;
+		event_init = (NOD) event_action->act_object;
+		stack_name = (SYM) event_init->nod_arg[0];
+		if (!strcmp(event_name->sym_string, stack_name->sym_string)) {
+			ident = (int) event_init->nod_arg[2];
+			database = (DBB) event_init->nod_arg[3];
+		}
+	}
+
+	if (ident < 0) {
+		sprintf(s, "event handle \"%s\" not found", event_name->sym_string);
+		return IBERROR(s);
+	}
+
+	args.pat_database = database;
+	args.pat_vector1 = status_vector(action);
+	args.pat_value1 = (int) ident;
+	args.pat_string1 = ISC_EVENT_WAIT;
+	args.pat_string2 = ISC_EVENT_COUNTS;
+
+//  generate calls to wait on the event and to fill out the events array 
+
+	PATTERN_expand(column, pattern1, &args);
+	PATTERN_expand(column, pattern2, &args);
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate replacement text for the SQL FETCH statement.  The
+//		epilog FETCH statement is handled by GEN_S_FETCH (generate
+//		stream fetch).
+//  
+
+static gen_fetch( ACT action)
+{
+	REQ request;
+	NOD var_list;
+	int i;
+	SCHAR s[20];
+
+	request = action->act_request;
+	if (request->req_sync) {
+		gen_send(action, request->req_sync);
+		printa(COLUMN, "IF (SQLCODE .EQ. 0) THEN");
+	}
+
+	gen_receive(action, request->req_primary);
+	printa(COLUMN, "IF (%s .NE. 0) THEN",
+		   gen_name(s, request->req_eof, TRUE));
+	printa(COLUMN, "SQLCODE = 0");
+	if (var_list = (NOD) action->act_object)
+		for (i = 0; i < var_list->nod_count; i++) {
+			asgn_to(action, var_list->nod_arg[i]);
+		}
+	printa(COLUMN, "ELSE");
+	printa(COLUMN, "SQLCODE = 100");
+	printa(COLUMN, "END IF");
+
+	if (request->req_sync)
+		printa(COLUMN, "END IF");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FINISH
+//  
+
+static gen_finish( ACT action)
+{
+	DBB db;
+	RDY ready;
+
+	db = NULL;
+
+	if (sw_auto || ((action->act_flags & ACT_sql) &&
+					(action->act_type != ACT_disconnect))) {
+		printa(COLUMN, "IF (GDS__TRANS .NE. 0) THEN");
+		printa(COLUMN, "    CALL ISC_%s_TRANSACTION (%s, GDS__TRANS)",
+			   (action->act_type != ACT_rfinish) ? "COMMIT" : "ROLLBACK",
+			   status_vector(action));
+		status_and_stop(action);
+		printa(COLUMN, "END IF");
+	}
+
+//  the user supplied one or more db_handles 
+
+	for (ready = (RDY) action->act_object; ready; ready = ready->rdy_next) {
+		db = ready->rdy_database;
+		printa(COLUMN, "IF (%s .NE. 0) THEN", db->dbb_name->sym_string);
+		printa(COLUMN, "CALL ISC_DETACH_DATABASE (%s, %s)",
+			   status_vector(action), db->dbb_name->sym_string);
+		status_and_stop(action);
+		printa(COLUMN, "END IF");
+	}
+
+	if (!db)
+		for (db = isc_databases; db; db = db->dbb_next) {
+			if ((action->act_error || (action->act_flags & ACT_sql))
+				&& (db != isc_databases)) printa(COLUMN,
+												 "IF (%s .NE. 0 .AND. ISC_STATUS(2) .EQ. 0) THEN",
+												 db->dbb_name->sym_string);
+			else
+				printa(COLUMN, "IF (%s .NE. 0) THEN",
+					   db->dbb_name->sym_string);
+			printa(COLUMN, "CALL ISC_DETACH_DATABASE (%s, %s)",
+				   status_vector(action), db->dbb_name->sym_string);
+			status_and_stop(action);
+			printa(COLUMN, "END IF");
+		}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FOR statement.
+//  
+
+static gen_for( ACT action)
+{
+	POR port;
+	REQ request;
+	SCHAR s[20];
+	REF reference;
+
+	gen_s_start(action);
+	request = action->act_request;
+	request->req_top_label = next_label();
+	request->req_btm_label = next_label();
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(COLUMN, "IF (ISC_STATUS(2) .NE. 0) GOTO %d\n",
+			   request->req_btm_label);
+
+	printa("", "%-6dCONTINUE", request->req_top_label);
+	gen_receive(action, request->req_primary);
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(COLUMN, "IF (%s .EQ. 0 .OR. ISC_STATUS(2) .NE. 0) GOTO %d\n",
+			   gen_name(s, request->req_eof, TRUE), request->req_btm_label);
+	else
+		printa(COLUMN, "IF (%s .EQ. 0) GOTO %d\n",
+			   gen_name(s, request->req_eof, TRUE), request->req_btm_label);
+
+	if (port = action->act_request->req_primary)
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->
+									  ref_flags & REF_fetch_array)
+					gen_get_or_put_slice(action, reference, TRUE);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form interaction.
+//  
+
+static gen_form_display( ACT action)
+{
+	FINT display;
+	REQ request;
+	REF reference, master;
+	POR port;
+	DBB dbb;
+	TEXT s[32], out[16];
+	int code;
+
+	display = (FINT) action->act_object;
+	request = display->fint_request;
+	dbb = request->req_database;
+	port = request->req_ports;
+
+//  Initialize field options 
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next)
+			if ((master = reference->ref_master) &&
+				(code = CMP_display_code(display, master)) >= 0)
+			printa(COLUMN, "%s = %d", gen_name(s, reference, TRUE), code);
+
+	if (display->fint_flags & FINT_no_wait)
+		strcpy(out, "0");
+	else
+		sprintf(out, "isc_%d", port->por_ident);
+
+	printa(COLUMN,
+		   "CALL PYXIS__DRIVE_FORM (isc_status, %s, %s, isc_window, %s, %sisc_%d%s, %s%s%s)",
+		   dbb->dbb_name->sym_string, request->req_trans, request->req_handle,
+		   REF_1, port->por_ident, REF_2, REF_1, out, REF_2);
+//  
+//status_and_stop (action);
+//  
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form block.
+//  
+
+static gen_form_end( ACT action)
+{
+
+	printa(COLUMN, "CALL PYXIS__POP_WINDOW (isc_window)");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form block.
+//  
+
+static gen_form_for( ACT action)
+{
+	REQ request;
+	FORM form;
+	DBB dbb;
+
+	request = action->act_request;
+	form = request->req_form;
+	dbb = request->req_database;
+
+//  Get database attach and transaction started 
+
+	if (sw_auto)
+		t_start_auto(0, status_vector(action), action, TRUE);
+
+//  Get form loaded first 
+
+	printa(COLUMN, "IF (%s .EQ. 0) THEN", request->req_form_handle);
+	printa(COLUMN_INDENT,
+		   "CALL PYXIS__LOAD_FORM (isc_status, %s, %s, %s, %s%d%s, %s'%s'%s)",
+		   dbb->dbb_name->sym_string, request->req_trans,
+		   request->req_form_handle, I2_1,
+		   strlen(form->form_name->sym_string), I2_2, REF_1,
+		   form->form_name->sym_string, REF_2);
+	status_and_stop(action);
+	printa(COLUMN, "END IF");
+
+//  Get map compiled 
+
+	printa(COLUMN, "IF (%s .EQ. 0) THEN", request->req_handle);
+	printa(COLUMN_INDENT,
+		   "CALL PYXIS__COMPILE_MAP (isc_status, %s, %s, %s%d%s, isc_%d)",
+		   request->req_form_handle, request->req_handle, I2_1,
+		   request->req_length, I2_2, request->req_ident);
+//  
+//status_and_stop (action);
+//  
+	printa(COLUMN, "END IF");
+
+//  Reset form to known state 
+
+	printa(COLUMN, "CALL PYXIS__RESET_FORM (isc_status, %s)",
+		   request->req_handle);
+//  
+//status_and_stop (action);
+//  
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to isc_get_slice
+//       or isc_put_slice for an array.
+//  
+
+static gen_get_or_put_slice( ACT action, REF reference, BOOLEAN get)
+{
+	TEXT s[25];
+
+	if (!(reference->ref_flags & REF_fetch_array))
+		return;
+
+	if (get) {
+		if (action->act_flags & ACT_sql) {
+			sprintf(output_buffer,
+					"%sCALL ISC_GET_SLICE (%s, %s, %s, %s, %s%d%s, isc_%d, %s0%s, %s0%s, %s%d%s, %s, ISC_ARRAY_LENGTH)\n",
+					COLUMN,
+					status_vector(action),
+					action->act_request->req_database->dbb_name->sym_string,
+					action->act_request->req_trans,
+					gen_name(s, reference, TRUE),
+					I2CONST_1, reference->ref_sdl_length, I2CONST_2,
+					reference->ref_sdl_ident,
+					I2CONST_1, I2CONST_2,
+					I2CONST_1, I2CONST_2,
+					I4CONST_1, reference->ref_field->fld_array_info->ary_size,
+					I4CONST_2, reference->ref_value);
+		}
+		else {
+			sprintf(output_buffer,
+					"%sCALL ISC_GET_SLICE (%s, %s, %s, %s, %s%d%s, isc_%d, %s0%s, %s0%s, %s%d%s, isc_%d, ISC_ARRAY_LENGTH)\n",
+					COLUMN,
+					status_vector(action),
+					action->act_request->req_database->dbb_name->sym_string,
+					action->act_request->req_trans,
+					gen_name(s, reference, TRUE),
+					I2CONST_1, reference->ref_sdl_length, I2CONST_2,
+					reference->ref_sdl_ident,
+					I2CONST_1, I2CONST_2,
+					I2CONST_1, I2CONST_2,
+					I4CONST_1, reference->ref_field->fld_array_info->ary_size,
+					I4CONST_2,
+					reference->ref_field->fld_array_info->ary_ident);
+		}
+	}
+	else {
+		if (action->act_flags & ACT_sql) {
+			sprintf(output_buffer,
+					"%sCALL ISC_PUT_SLICE (%s, %s, %s, %s, %s%d%s, isc_%d, %s0%s, %s0%s, %s%d%s, %s)\n",
+					COLUMN,
+					status_vector(action),
+					action->act_request->req_database->dbb_name->sym_string,
+					action->act_request->req_trans,
+					gen_name(s, reference, TRUE),
+					I2CONST_1, reference->ref_sdl_length, I2CONST_2,
+					reference->ref_sdl_ident,
+					I2CONST_1, I2CONST_2,
+					I2CONST_1, I2CONST_2,
+					I4CONST_1, reference->ref_field->fld_array_info->ary_size,
+					I4CONST_2, reference->ref_value);
+		}
+		else {
+			sprintf(output_buffer,
+					"%sCALL ISC_PUT_SLICE (%s, %s, %s, %s, %s%d%s, isc_%d, %s0%s, %s0%s, %s%d%s, isc_%d)\n",
+					COLUMN,
+					status_vector(action),
+					action->act_request->req_database->dbb_name->sym_string,
+					action->act_request->req_trans,
+					gen_name(s, reference, TRUE),
+					I2CONST_1, reference->ref_sdl_length, I2CONST_2,
+					reference->ref_sdl_ident,
+					I2CONST_1, I2CONST_2,
+					I2CONST_1, I2CONST_2,
+					I4CONST_1, reference->ref_field->fld_array_info->ary_size,
+					I4CONST_2,
+					reference->ref_field->fld_array_info->ary_ident);
+		}
+	}
+
+	FTN_print_buffer(output_buffer);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the code to do a get segment.
+//  
+
+static gen_get_segment( ACT action)
+{
+	BLB blob;
+	REF into;
+
+	if (action->act_flags & ACT_sql)
+		blob = (BLB) action->act_request->req_blobs;
+	else
+		blob = (BLB) action->act_object;
+
+	sprintf(output_buffer,
+			"%sISC_STATUS(2) = ISC_GET_SEGMENT (%s, isc_%d, isc_%d, %sLEN(isc_%d)%s, %sisc_%d%s)\n",
+			COLUMN,
+			status_vector(action),
+			blob->blb_ident,
+			blob->blb_len_ident,
+			I2CONST_1, blob->blb_buff_ident, I2CONST_2,
+			REF_1, blob->blb_buff_ident, REF_2);
+
+	FTN_print_buffer(output_buffer);
+
+	if (action->act_flags & ACT_sql) {
+		status_and_stop(action);
+		printa(COLUMN, "IF (SQLCODE .EQ. 0 .OR. SQLCODE .EQ. 101) THEN");
+		into = action->act_object;
+		printa(COLUMN_INDENT, "%s = isc_%d", into->ref_value,
+			   blob->blb_buff_ident);
+		if (into->ref_null_value)
+			printa(COLUMN_INDENT, "%s = isc_%d", into->ref_null_value,
+				   blob->blb_len_ident);
+		printa(COLUMN, "ENDIF");
+	}
+	else if (!action->act_error) {
+		printa(COLUMN,
+			   "IF (ISC_STATUS(2) .NE. 0 .AND. ISC_STATUS(2) .NE. ISC_SEGMENT");
+		printa(CONTINUE, ".AND. ISC_STATUS(2) .NE. ISC_SEGSTR_EOF) THEN");
+		printa(COLUMN, "    CALL ISC_PRINT_STATUS (ISC_STATUS)");
+		printa(COLUMN, "    STOP");
+		printa(COLUMN, "END IF");
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate end of block for PUT_ITEM and FOR_ITEM.
+//  
+
+static gen_item_end( ACT action)
+{
+	REQ request;
+	REF reference, master;
+	POR port;
+	DBB dbb;
+	USHORT value;
+	TEXT s[32], index[16];
+
+	request = action->act_request;
+
+	if (request->req_type == REQ_menu) {
+		gen_menu_item_end(action);
+		return;
+	}
+
+	if (action->act_pair->act_type == ACT_item_for) {
+		gen_name(index, request->req_index, TRUE);
+		printa(COLUMN_INDENT, "%s = %s + 1", index, index);
+		printa(COLUMN, "GOTO %d", request->req_top_label);
+		printa("", "%-6dCONTINUE", request->req_btm_label);
+		return;
+	}
+
+	dbb = request->req_database;
+	port = request->req_ports;
+
+//  Initialize field options 
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) if (master = reference->ref_master)
+			printa(COLUMN_INDENT, "%s = %d", gen_name(s, reference, TRUE),
+				   PYXIS__OPT_DISPLAY);
+
+	printa(COLUMN,
+		   "CALL PYXIS__INSERT (isc_status, %s, %s, %s, %sisc_%d%s)",
+		   dbb->dbb_name->sym_string,
+		   request->req_trans,
+		   request->req_handle, REF_1, port->por_ident, REF_2);
+//  
+//status_and_stop (action);
+//  
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insert text for FOR_ITEM and PUT_ITEM.
+//  
+
+static gen_item_for( ACT action)
+{
+	REQ request, parent;
+	FORM form;
+	TEXT index[30];
+
+	request = action->act_request;
+
+	if (request->req_type == REQ_menu) {
+		gen_menu_item_for(action);
+		return;
+	}
+
+	form = request->req_form;
+	parent = form->form_parent;
+
+//  Get map compiled 
+
+	printa(COLUMN, "IF (%s .EQ. 0) THEN", request->req_handle);
+	printa(COLUMN_INDENT,
+		   "CALL PYXIS__COMPILE_SUB_MAP (isc_status, %s, %s, %s%d%s, isc_%d)",
+		   parent->req_handle, request->req_handle, I2_1, request->req_length,
+		   I2_2, request->req_ident);
+//  
+//status_and_stop (action);
+//  
+	printa(COLUMN, "END IF");
+
+	if (action->act_type != ACT_item_for)
+		return;
+
+//  Build stuff for item loop 
+
+	gen_name(index, request->req_index, TRUE);
+	printa(COLUMN, "%s = 1", index);
+	request->req_top_label = next_label();
+	request->req_btm_label = next_label();
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(COLUMN, "IF (ISC_STATUS(2) .NE. 0) GOTO %d\n",
+			   request->req_btm_label);
+
+	printa("", "%-6dCONTINUE", request->req_top_label);
+	printa(COLUMN,
+		   "CALL PYXIS__FETCH (isc_status, %s, %s, %s, %sisc_%d%s)",
+		   request->req_database->dbb_name->sym_string,
+		   request->req_trans,
+		   request->req_handle, REF_1, request->req_ports->por_ident, REF_2);
+//  
+//status_and_stop (action);
+//  
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(COLUMN, "IF (%s .EQ. 0 .OR. ISC_STATUS(2) .NE. 0) GOTO %d\n",
+			   index, request->req_btm_label);
+	else
+		printa(COLUMN, "IF (%s .EQ. 0) GOTO %d\n",
+			   index, request->req_btm_label);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile and start a stream.  This is
+//		used both by START_STREAM and FOR
+//  
+
+static gen_loop( ACT action)
+{
+	REQ request;
+	POR port;
+	TEXT name[20];
+
+	gen_s_start(action);
+	request = action->act_request;
+	port = request->req_primary;
+	printa(COLUMN, "IF (SQLCODE .EQ. 0) THEN");
+	gen_receive(action, port);
+	gen_name(name, port->por_references, TRUE);
+	printa(COLUMN, "IF (SQLCODE .EQ. 0 .AND. %s .EQ. 0) ", name);
+	printa(CONTINUE, "SQLCODE = 100");
+	printa(COLUMN, "END IF");
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static gen_menu( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+	printa(COLUMN, "%ss = pyxis__menu (isc_window, %s, %s%d%s, isc_%d)",
+		   request->req_handle,
+		   request->req_handle,
+		   I2_1, request->req_length, I2_2, request->req_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a menu interaction.
+//  
+
+static gen_menu_display( ACT action)
+{
+	MENU menu;
+	REQ request, display_request;
+
+	request = action->act_request;
+	display_request = (REQ) action->act_object;
+
+	menu = NULL;
+
+	for (action = request->req_actions; action; action = action->act_next)
+		if (action->act_type == ACT_menu_for) {
+			menu = (MENU) action->act_object;
+			break;
+		}
+
+	printa(COLUMN,
+		   "CALL PYXIS__DRIVE_MENU (isc_window, %s, %s%d%s, isc_%d,",
+		   request->req_handle,
+		   I2_1, display_request->req_length, I2_2,
+		   display_request->req_ident);
+
+	printa(CONTINUE,
+		   "isc_%dl, %sisc_%d%s,",
+		   menu->menu_title, REF_1, menu->menu_title, REF_2);
+
+	printa(CONTINUE,
+		   "isc_%d, isc_%dl, %sisc_%d%s, isc_%d)",
+		   menu->menu_terminator,
+		   menu->menu_entree_entree,
+		   REF_1, menu->menu_entree_entree, REF_2, menu->menu_entree_value);
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static gen_menu_end( ACT action)
+{
+
+	REQ request;
+
+	request = action->act_request;
+	if (request->req_flags & REQ_menu_for)
+		return;
+
+	printa(COLUMN, "END IF");
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static gen_menu_entree( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+
+	if (action->act_flags & ACT_first_entree)
+		printa(COLUMN, "IF (%ss .EQ. %d) THEN", request->req_handle,
+			   action->act_count);
+	else
+		printa(COLUMN, "ELSE IF (%ss .EQ. %d) THEN", request->req_handle,
+			   action->act_count);
+}
+
+
+//____________________________________________________________
+//  
+//  
+//    Generate code for a reference to a menu or entree attribute.
+
+static gen_menu_entree_att( ACT action)
+{
+	MENU menu;
+	SSHORT ident;
+	TEXT *length;
+
+	menu = (MENU) action->act_object;
+
+	length = "";
+	switch (action->act_type) {
+	case ACT_entree_text:
+		ident = menu->menu_entree_entree;
+		break;
+	case ACT_entree_length:
+		ident = menu->menu_entree_entree;
+		length = "l";
+		break;
+	case ACT_entree_value:
+		ident = menu->menu_entree_value;
+		break;
+	case ACT_title_text:
+		ident = menu->menu_title;
+		break;
+	case ACT_title_length:
+		ident = menu->menu_title;
+		length = "l";
+		break;
+	case ACT_terminator:
+		ident = menu->menu_terminator;
+		break;
+	default:
+		ident = -1;
+		break;
+	}
+
+	printa("", "%sisc_%d%s",
+		   (action->act_flags & ACT_first) ? COLUMN : CONTINUE,
+		   ident, length);
+
+	ib_fputs(CONTINUE, out_file);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a menu block.
+//  
+
+static gen_menu_for( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+
+//  Get menu created 
+
+	if (!(request->req_flags & REQ_exp_hand))
+		printa(COLUMN, "CALL PYXIS__INITIALIZE_MENU (%s)",
+			   request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate end of block for PUT_ITEM and FOR_ITEM
+//		for a dynamic menu.
+//  
+
+static gen_menu_item_end( ACT action)
+{
+	REQ request;
+	ENTREE entree;
+
+	entree = (ENTREE) action->act_pair->act_object;
+	request = entree->entree_request;
+
+	if (action->act_pair->act_type == ACT_item_for) {
+		printa(COLUMN, "GOTO %d", request->req_top_label);
+		printa("", "%-6dCONTINUE", request->req_btm_label);
+		return;
+	}
+
+	printa(COLUMN,
+		   "CALL PYXIS__PUT_ENTREE (%s, isc_%dl, %sisc_%d%s, isc_%d)",
+		   request->req_handle,
+		   entree->entree_entree,
+		   REF_1, entree->entree_entree, REF_2, entree->entree_value);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insert text for FOR_ITEM and PUT_ITEM
+//		for a dynamic menu.
+//  
+
+static gen_menu_item_for( ACT action)
+{
+	ENTREE entree;
+	REQ request;
+
+	if (action->act_type != ACT_item_for)
+		return;
+
+//  Build stuff for item loop 
+
+	entree = (ENTREE) action->act_object;
+	request = entree->entree_request;
+
+	request->req_top_label = next_label();
+	request->req_btm_label = next_label();
+
+	printa("", "%-6dCONTINUE", request->req_top_label);
+	printa(COLUMN,
+		   "CALL PYXIS__GET_ENTREE (%s, isc_%dl, %sisc_%d%s, isc_%d, %sisc_%d%s)",
+		   request->req_handle,
+		   entree->entree_entree,
+		   REF_1, entree->entree_entree, REF_2,
+		   entree->entree_value, REF_1, entree->entree_end, REF_2);
+
+	printa(COLUMN, "IF (isc_%d .NE. 0) GOTO %d\n",
+		   entree->entree_end, request->req_btm_label);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a dynamic menu request.
+//  
+
+static gen_menu_request( REQ request)
+{
+	ACT action;
+	MENU menu;
+	ENTREE entree;
+
+	menu = NULL;
+	entree = NULL;
+
+	for (action = request->req_actions; action; action = action->act_next) {
+		if (action->act_type == ACT_menu_for) {
+			menu = (MENU) action->act_object;
+			break;
+		}
+		else if ((action->act_type == ACT_item_for)
+				 || (action->act_type == ACT_item_put)) {
+			entree = (ENTREE) action->act_object;
+			break;
+		}
+	}
+
+	if (menu) {
+		menu->menu_title = CMP_next_ident();
+		menu->menu_terminator = CMP_next_ident();
+		menu->menu_entree_value = CMP_next_ident();
+		menu->menu_entree_entree = CMP_next_ident();
+		ib_fprintf(out_file, "%sINTEGER*2 isc_%dl    %s{ TITLE_LENGTH }\n",
+				   COLUMN, menu->menu_title, INLINE_COMMENT);
+		ib_fprintf(out_file, "%sCHARACTER*81 isc_%d    %s{ TITLE_TEXT }\n",
+				   COLUMN, menu->menu_title, INLINE_COMMENT);
+		ib_fprintf(out_file, "%sINTEGER*2 isc_%d    %s{ TERMINATOR }\n",
+				   COLUMN, menu->menu_terminator, INLINE_COMMENT);
+		ib_fprintf(out_file, "%sINTEGER*2 isc_%dl    %s{ ENTREE_LENGTH }\n",
+				   COLUMN, menu->menu_entree_entree, INLINE_COMMENT);
+		ib_fprintf(out_file, "%sCHARACTER*81 isc_%d    %s{ ENTREE_TEXT }\n",
+				   COLUMN, menu->menu_entree_entree, INLINE_COMMENT);
+		ib_fprintf(out_file, "%sINTEGER*4 isc_%d    %s{ ENTREE_VALUE }\n\n",
+				   COLUMN, menu->menu_entree_value, INLINE_COMMENT);
+	}
+
+	if (entree) {
+		entree->entree_entree = CMP_next_ident();
+		entree->entree_value = CMP_next_ident();
+		entree->entree_end = CMP_next_ident();
+		ib_fprintf(out_file, "%sINTEGER*2 isc_%dl    %s{ ENTREE_LENGTH }\n",
+				   COLUMN, entree->entree_entree, INLINE_COMMENT);
+		ib_fprintf(out_file, "%sCHARACTER*81 isc_%d    %s{ ENTREE_TEXT }\n",
+				   COLUMN, entree->entree_entree, INLINE_COMMENT);
+		ib_fprintf(out_file, "%sINTEGER*4 isc_%d    %s{ ENTREE_VALUE }\n",
+				   COLUMN, entree->entree_value, INLINE_COMMENT);
+		ib_fprintf(out_file, "%sINTEGER*2 isc_%d    %s{ }\n\n",
+				   COLUMN, entree->entree_end, INLINE_COMMENT);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a name for a reference.  Name is constructed from
+//		port and parameter idents.
+//  
+
+static TEXT *gen_name( SCHAR * string, REF reference, BOOLEAN as_blob)
+{
+
+	if (reference->ref_field->fld_array_info && !as_blob)
+		sprintf(string, "isc_%d",
+				reference->ref_field->fld_array_info->ary_ident);
+	else
+		sprintf(string, "isc_%d", reference->ref_ident);
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a block to handle errors.
+//  
+
+static gen_on_error( ACT action)
+{
+	ACT err_action;
+
+	err_action = (ACT) action->act_object;
+	if ((err_action->act_type == ACT_get_segment) ||
+		(err_action->act_type == ACT_put_segment) ||
+		(err_action->act_type == ACT_endblob))
+			printa(COLUMN,
+				   "IF (ISC_STATUS(2) .NE. 0 .AND. ISC_STATUS(2) .NE. ISC_SEGMENT .AND. ISC_STATUS(2) .NE. ISC_SEGSTR_EOF) THEN");
+	else
+		printa(COLUMN, "IF (ISC_STATUS(2) .NE. 0) THEN");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for an EXECUTE PROCEDURE.
+//  
+
+static gen_procedure( ACT action)
+{
+	PAT args;
+	TEXT *pattern;
+	REQ request;
+	POR in_port, out_port;
+	DBB dbb;
+	USHORT column = 6;
+
+	request = action->act_request;
+	in_port = request->req_vport;
+	out_port = request->req_primary;
+
+	dbb = request->req_database;
+	args.pat_database = dbb;
+	args.pat_request = action->act_request;
+	args.pat_vector1 = status_vector(action);
+	args.pat_request = request;
+	args.pat_port = in_port;
+	args.pat_port2 = out_port;
+	if (in_port && in_port->por_length)
+		pattern =
+			"CALL ISC_TRANSACT_REQUEST (%V1, %RF%DH%RE, %RF%RT%RE, %VF%RS%VE, %RF%RI%RE, %VF%PL%VE, %RF%PI%RE, %VF%QL%VE, %RF%QI%RE)\n";
+	else
+		pattern =
+			"CALL ISC_TRANSACT_REQUEST (%V1, %RF%DH%RE, %RF%RT%RE, %VF%RS%VE, %RI, %VF0%VE, 0, %VF%QL%VE, %RF%QI%RE)\n";
+
+//  Get database attach and transaction started 
+
+	if (sw_auto)
+		t_start_auto(0, status_vector(action), action, TRUE);
+
+//  Move in input values 
+
+	asgn_from(action, request->req_values);
+
+//  Execute the procedure 
+
+	PATTERN_expand(column, pattern, &args);
+
+	status_and_stop(action);
+
+	printa(COLUMN, "IF (SQLCODE .EQ. 0) THEN");
+
+//  Move out output values 
+
+	asgn_to_proc(request->req_references);
+	printa(COLUMN, "END IF");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the code to do a put segment.
+//  
+
+static gen_put_segment( ACT action)
+{
+	BLB blob;
+	REF from;
+
+	if (action->act_flags & ACT_sql) {
+		blob = (BLB) action->act_request->req_blobs;
+		from = action->act_object;
+		printa(COLUMN, "isc_%d = %s", blob->blb_len_ident,
+			   from->ref_null_value);
+		printa(COLUMN, "isc_%d = %s", blob->blb_buff_ident, from->ref_value);
+	}
+	else
+		blob = (BLB) action->act_object;
+
+	sprintf(output_buffer,
+			"%sISC_STATUS(2) = ISC_PUT_SEGMENT (%s, isc_%d, %sisc_%d%s, %sisc_%d%s)\n",
+			COLUMN,
+			status_vector(action),
+			blob->blb_ident,
+			VAL_1, blob->blb_len_ident, VAL_2,
+			REF_1, blob->blb_buff_ident, REF_2);
+	FTN_print_buffer(output_buffer);
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate BLR in raw, numeric form.  Ughly but dense.
+//  
+
+static gen_raw(
+			   UCHAR * blr,
+			   enum req_t request_type,
+			   int request_length, int begin_c, int end_c)
+{
+	TEXT buffer[80], *p;
+	UCHAR *c;
+	int blr_length;
+	union {
+		UCHAR bytewise_blr[4];
+		SLONG longword_blr;
+	} blr_hunk;
+
+	blr = blr + begin_c;
+	blr_length = end_c - begin_c + 1;
+	p = buffer;
+
+	while (blr_length) {
+		for (c = blr_hunk.bytewise_blr, blr_hunk.longword_blr = 0;
+			 c < blr_hunk.bytewise_blr + sizeof(SLONG); c++) {
+			if (--blr_length)
+				*c = *blr++;
+			else {
+				if (request_type == REQ_slice)
+					*c = isc_sdl_eoc;
+				else if ((request_type == REQ_ddl) ||
+						 (request_type == REQ_create_database) ||
+						 (request_type == REQ_form) ||
+						 (request_type == REQ_menu) ||
+						 (request_length != end_c + 1))
+					*c = *blr++;
+				else
+					*c = blr_eoc;
+				break;
+			}
+		}
+		if (blr_length)
+			sprintf(p, "%d,", blr_hunk.longword_blr);
+		else
+			sprintf(p, "%d", blr_hunk.longword_blr);
+		while (*p)
+			p++;
+		if (p - buffer > 50) {
+			ib_fprintf(out_file, "%s%s\n", CONTINUE, buffer);
+			p = buffer;
+			*p = 0;
+		}
+	}
+
+	ib_fprintf(out_file, "%s%s/\n", CONTINUE, buffer);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for READY
+//  
+
+static gen_ready( ACT action)
+{
+	RDY ready;
+	DBB db;
+	TEXT *filename, *vector;
+
+	vector = status_vector(action);
+
+	for (ready = (RDY) action->act_object; ready; ready = ready->rdy_next) {
+		db = ready->rdy_database;
+		if (!(filename = ready->rdy_filename))
+			filename = db->dbb_runtime;
+		if (action->act_error && (ready != (RDY) action->act_object))
+			printa(COLUMN, "IF (ISC_STATUS(2) .EQ. 0) THEN");
+		make_ready(db, filename, vector, ready->rdy_request);
+		status_and_stop(action);
+		if (action->act_error && (ready != (RDY) action->act_object))
+			printa(COLUMN, "END IF");
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a send or receive call for a port.
+//  
+
+static gen_receive( ACT action, POR port)
+{
+	REQ request;
+
+	request = action->act_request;
+
+	sprintf(output_buffer,
+			"%sCALL ISC_RECEIVE (%s, %s, %s%d%s, %s%d%s, %sisc_%d%s, %s%s%s)\n",
+			COLUMN, status_vector(action), request->req_handle, I2CONST_1,
+			port->por_msg_number, I2CONST_2, I2CONST_1, port->por_length,
+			I2CONST_2, REF_1, port->por_ident, REF_2, VAL_1,
+			request->req_request_level, VAL_2);
+
+	FTN_print_buffer(output_buffer);
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for RELEASE_REQUESTS
+//       For active databases, call isc_release_request.
+//       for all others, just zero the handle.  For the
+//       release request calls, ignore error returns, which
+//       are likely if the request was compiled on a database
+//       which has been released and re-readied.  If there is
+//       a serious error, it will be caught on the next statement.
+//  
+
+static gen_release( ACT action)
+{
+	DBB db, exp_db;
+	REQ request;
+
+	exp_db = (DBB) action->act_object;
+
+	for (request = requests; request; request = request->req_next) {
+		db = request->req_database;
+		if (exp_db && db != exp_db)
+			continue;
+		if (!(request->req_flags & REQ_exp_hand)) {
+			printa(COLUMN, "IF %s", db->dbb_name->sym_string);
+			printa(CONTINUE, "CALL ISC_RELEASE_REQUEST (ISC_STATUS, %S)",
+				   request->req_handle);
+			printa(COLUMN, "%s = 0", request->req_handle);
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  
+
+static gen_request_data( REQ request)
+{
+	POR port;
+	REF reference;
+	BLB blob;
+	TEXT *string_type;
+	int begin_i, end_i;
+
+//  requests are generated as raw BLR in longword chunks 
+//  because FORTRAN is a miserable excuse for a language
+//  and doesn't allow byte value assignments to character
+//  fields. 
+
+	if (!(request->req_flags & (REQ_exp_hand | REQ_menu_for_item |
+								REQ_sql_blob_open | REQ_sql_blob_create)) &&
+		request->req_type != REQ_slice && request->req_type != REQ_procedure)
+		ib_fprintf(out_file,
+				   "%sDATA %s /0/               %s{ init request handle }\n\n",
+				   COLUMN, request->req_handle, INLINE_COMMENT);
+
+	if (request->req_type == REQ_form)
+		ib_fprintf(out_file,
+				   "%sDATA %s /0/               %s{ init form handle }\n\n",
+				   COLUMN, request->req_form_handle, INLINE_COMMENT);
+
+	if (request->req_flags & (REQ_sql_blob_open | REQ_sql_blob_create))
+		ib_fprintf(out_file,
+				   "%sDATA isc_%dS /0/             %s{ init SQL statement handle }\n\n",
+				   COLUMN, request->req_ident, INLINE_COMMENT);
+
+	if (request->req_flags & REQ_sql_cursor)
+		ib_fprintf(out_file,
+				   "%sDATA isc_%dS /0/             %s{ init SQL statement handle }\n\n",
+				   COLUMN, request->req_ident, INLINE_COMMENT);
+
+//   Changed termination test in for-loop from <= to < to fix bug#840.
+//   We were generating data statements with bad bounds on the last data
+//   statement if the data size was divisible by 75.  mao 4/3/89
+//  
+	if ((request->req_type == REQ_ready) ||
+		(request->req_type == REQ_create_database))
+			if (request->req_length || request->req_flags & REQ_extend_dpb) {
+			ib_fprintf(out_file,
+					   "%sDATA isc_%dl /%d/               %s{ request length }\n\n",
+					   COLUMN, request->req_ident, request->req_length,
+					   INLINE_COMMENT);
+		}
+
+	if (request->req_length) {
+		for (begin_i = 0;
+			 begin_i < request->req_length;
+			 begin_i = begin_i + (75 * sizeof(SLONG))) {
+			end_i =
+				MIN(request->req_length - 1,
+					begin_i + (75 * sizeof(SLONG)) - 1);
+			printa(COLUMN, "DATA (isc_%d(ISC_I)%s ISC_I=%d,%d)  /",
+				   request->req_ident, COMMA, (begin_i / sizeof(SLONG)) + 1,
+				   (end_i / sizeof(SLONG)) + 1);
+			gen_raw(request->req_blr, request->req_type, request->req_length,
+					begin_i, end_i);
+		}
+		if (!(sw_raw)) {
+			printa(COMMENT, " ");
+			printa(COMMENT, "FORMATTED REQUEST BLR FOR isc_%d = ",
+				   request->req_ident);
+			switch (request->req_type) {
+			case REQ_create_database:
+			case REQ_ready:
+				string_type = "DPB";
+				if (PRETTY_print_cdb(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during parameter generation");
+				break;
+
+			case REQ_ddl:
+				string_type = "DYN";
+				if (PRETTY_print_dyn(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during dynamic DDL generation");
+				break;
+
+			case REQ_form:
+				string_type = "form map";
+				if (PRETTY_print_form_map(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during form map generation");
+				break;
+
+			case REQ_menu:
+				string_type = "menu";
+				if (PRETTY_print_menu(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during menu generation");
+				break;
+
+			case REQ_slice:
+				string_type = "SDL";
+				if (PRETTY_print_sdl(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during SDL generation");
+				break;
+
+			default:
+				string_type = "BLR";
+				if (isc_print_blr(request->req_blr, gen_blr, 0, 0))
+					IBERROR("internal error during BLR generation");
+			}
+		}
+		else {
+			switch (request->req_type) {
+			case REQ_create_database:
+			case REQ_ready:
+				string_type = "DPB";
+				break;
+
+			case REQ_ddl:
+				string_type = "DYN";
+				break;
+
+			case REQ_form:
+				string_type = "form map";
+				break;
+
+			case REQ_menu:
+				string_type = "menu";
+				break;
+
+			case REQ_slice:
+				string_type = "SDL";
+				break;
+
+			default:
+				string_type = "BLR";
+			}
+		}
+		printa(COMMENT, " ");
+		printa(COMMENT, "END OF %s STRING FOR REQUEST isc_%d\n",
+			   string_type, request->req_ident);
+	}
+
+//   Print out slice description language if there are arrays associated with request  
+
+	for (port = request->req_ports; port; port = port->por_next)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) if (reference->ref_sdl) {
+				for (begin_i = 0; begin_i < reference->ref_sdl_length;
+					 begin_i = begin_i + (75 * sizeof(SLONG))) {
+					end_i =
+						MIN(reference->ref_sdl_length - 1,
+							begin_i + (75 * sizeof(SLONG)) - 1);
+					printa(COLUMN, "DATA (isc_%d(ISC_I)%s ISC_I=%d,%d)  /",
+						   reference->ref_sdl_ident, COMMA,
+						   (begin_i / sizeof(SLONG)) + 1,
+						   (end_i / sizeof(SLONG)) + 1);
+					gen_raw(reference->ref_sdl, REQ_slice,
+							reference->ref_sdl_length, begin_i, end_i);
+				}
+				if (!(sw_raw)) {
+					printa(COMMENT, " ");
+					if (PRETTY_print_sdl(reference->ref_sdl, gen_blr, 0, 0))
+						IBERROR("internal error during SDL generation");
+					printa(COMMENT, " ");
+					printa(COMMENT, "END OF SDL STRING FOR REQUEST isc_%d\n",
+						   reference->ref_sdl_ident);
+				}
+			}
+
+//  Print out any blob parameter blocks required 
+
+	for (blob = request->req_blobs; blob; blob = blob->blb_next)
+		if (blob->blb_bpb_length) {
+			for (begin_i = 0;
+				 begin_i < blob->blb_bpb_length;
+				 begin_i = begin_i + (75 * sizeof(SLONG))) {
+				end_i =
+					MIN(blob->blb_bpb_length - 1,
+						begin_i + (75 * sizeof(SLONG)) - 1);
+				printa(COLUMN, "DATA (isc_%d(ISC_I)%s ISC_I=%d,%d)  /",
+					   blob->blb_bpb_ident, COMMA,
+					   (begin_i / sizeof(SLONG)) + 1,
+					   (end_i / sizeof(SLONG)) + 1);
+				gen_raw(blob->blb_bpb, REQ_for, blob->blb_bpb_length, begin_i,
+						end_i);
+				printa(COMMENT, " ");
+			}
+		}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  
+
+static gen_request_decls( REQ request)
+{
+	int length;
+	REF reference;
+	BLB blob;
+	POR port;
+
+	if (!(request->req_flags & (REQ_exp_hand | REQ_menu_for_item |
+								REQ_sql_blob_open | REQ_sql_blob_create)) &&
+		request->req_type != REQ_slice && request->req_type != REQ_procedure)
+		ib_fprintf(out_file,
+				   "%sINTEGER*4  %s             %s{ request handle }\n\n",
+				   COLUMN, request->req_handle, INLINE_COMMENT);
+
+	if (request->req_type == REQ_menu && !(request->req_flags & REQ_menu_for))
+		ib_fprintf(out_file,
+				   "%sINTEGER*2  %ss             %s{ menu switch variable }\n\n",
+				   COLUMN, request->req_handle, INLINE_COMMENT);
+
+	if (request->req_type == REQ_menu)
+		gen_menu_request(request);
+
+	if (request->req_type == REQ_form)
+		ib_fprintf(out_file,
+				   "%sINTEGER*4  %s             %s{ form handle }\n\n",
+				   COLUMN, request->req_form_handle, INLINE_COMMENT);
+
+//  generate the request as BLR long words 
+
+	length = (request->req_length + (sizeof(SLONG) - 1)) / sizeof(SLONG);
+	if (length)
+		ib_fprintf(out_file,
+				   "%sINTEGER*4      isc_%d(%d)    %s{ request BLR }\n",
+				   COLUMN, request->req_ident, length, INLINE_COMMENT);
+
+//   Generate declarations for the slice description language  
+
+	for (port = request->req_ports; port; port = port->por_next)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) if (reference->ref_sdl) {
+				length =
+					(reference->ref_sdl_length +
+					 (sizeof(SLONG) - 1)) / sizeof(SLONG);
+				ib_fprintf(out_file,
+						   "%sINTEGER*4      isc_%d(%d)     %s{ request SDL }\n",
+						   COLUMN, reference->ref_sdl_ident, length,
+						   INLINE_COMMENT);
+			}
+
+//  Print out any blob parameter block variable declarations required 
+	for (blob = request->req_blobs; blob; blob = blob->blb_next)
+		if (blob->blb_const_from_type) {
+			length =
+				(blob->blb_bpb_length + (sizeof(SLONG) - 1)) / sizeof(SLONG);
+			ib_fprintf(out_file,
+					   "%sINTEGER*4       isc_%d(%d)      %s{ blob parameter block }\n",
+					   COLUMN, blob->blb_bpb_ident, length, INLINE_COMMENT);
+		}
+
+	if (request->req_flags & REQ_sql_cursor)
+		ib_fprintf(out_file,
+				   "%sINTEGER*4  isc_%dS             %s{ SQL statement handle }\n\n",
+				   COLUMN, request->req_ident, INLINE_COMMENT);
+
+	if ((request->req_type == REQ_ready) ||
+		(request->req_type == REQ_create_database)) {
+		printa(COLUMN, "INTEGER*2  isc_%dl", request->req_ident);
+		if (request->req_flags & REQ_extend_dpb)
+			printa(COLUMN, "INTEGER*4  isc_%dp", request->req_ident);
+	}
+
+
+//  If this is a GET_SLICE/PUT_slice, allocate some variables 
+
+	if (request->req_type == REQ_slice) {
+		printa(COLUMN, "INTEGER*4 isc_%dv (%d)", request->req_ident,
+			   MAX(request->req_slice->slc_parameters, 1));
+		printa(COLUMN, "INTEGER*4  isc_%ds", request->req_ident);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate receive call for a port
+//		in a store2 statement.
+//  
+
+static gen_return_value( ACT action)
+{
+	UPD update;
+	REF reference;
+	REQ request;
+
+	request = action->act_request;
+
+	gen_start(action, request->req_primary);
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(COLUMN, "END IF");
+
+	update = (UPD) action->act_object;
+	reference = update->upd_references;
+	gen_receive(action, reference->ref_port);
+}
+
+
+//____________________________________________________________
+//  
+//		Process routine head.  If there are requests in the
+//		routine, insert local definitions.
+//  
+
+static gen_routine( ACT action)
+{
+	BLB blob;
+	REQ request;
+	POR port;
+
+
+	for (request = (REQ) action->act_object; request;
+		 request = request->req_routine) {
+		for (port = request->req_ports; port; port = port->por_next)
+			make_port(port);
+		for (blob = request->req_blobs; blob; blob = blob->blb_next) {
+			ib_fprintf(out_file,
+					   "%sINTEGER*4 isc_%d         %s{ blob handle }\n",
+					   COLUMN, blob->blb_ident, INLINE_COMMENT);
+			ib_fprintf(out_file,
+					   "%sCHARACTER*%d isc_%d      %s{ blob segment }\n",
+					   COLUMN, blob->blb_seg_length, blob->blb_buff_ident,
+					   INLINE_COMMENT);
+			ib_fprintf(out_file,
+					   "%sINTEGER*2 isc_%d         %s{ segment length }\n",
+					   COLUMN, blob->blb_len_ident, INLINE_COMMENT);
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STREAM.
+//  
+
+static gen_s_end( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+
+	if (action->act_type == ACT_close)
+		gen_cursor_close(action, request);
+
+	printa(COLUMN, "CALL ISC_UNWIND_REQUEST (%s, %s, %s%s%s)",
+		   status_vector(action),
+		   request->req_handle, VAL_1, request->req_request_level, VAL_2);
+
+	if (action->act_type == ACT_close) {
+		printa(COLUMN, "END IF");
+		printa(COLUMN, "END IF");
+	}
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FETCH.
+//  
+
+static gen_s_fetch( ACT action)
+{
+	REQ request;
+
+	request = action->act_request;
+	if (request->req_sync)
+		gen_send(action, request->req_sync);
+
+	gen_receive(action, request->req_primary);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile and start a stream.  This is
+//		used both by START_STREAM and FOR
+//  
+
+static gen_s_start( ACT action)
+{
+	REQ request;
+	POR port;
+
+	request = action->act_request;
+
+	gen_compile(action);
+
+	if (port = request->req_vport)
+		asgn_from(action, port->por_references);
+
+	if (action->act_type == ACT_open)
+		gen_cursor_open(action, request);
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		make_ok_test(action, request);
+
+	gen_start(action, port);
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(COLUMN, "END IF");
+
+	if (action->act_type == ACT_open) {
+		printa(COLUMN, "END IF");
+		printa(COLUMN, "END IF");
+		printa(COLUMN, "END IF");
+		status_and_stop(action);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a segment, segment length, or blob handle.
+//  
+
+static gen_segment( ACT action)
+{
+	BLB blob;
+
+	blob = (BLB) action->act_object;
+
+	printa("", "%sisc_%d",
+		   (action->act_flags & ACT_first) ? COLUMN : CONTINUE,
+		   (action->act_type == ACT_segment) ? blob->blb_buff_ident :
+		   (action->act_type == ACT_segment_length) ? blob->blb_len_ident :
+		   blob->blb_ident);
+	ib_fputs(CONTINUE, out_file);
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static gen_select( ACT action)
+{
+	REQ request;
+	POR port;
+	NOD var_list;
+	int i;
+	SCHAR name[20];
+
+	request = action->act_request;
+	port = request->req_primary;
+	gen_name(name, request->req_eof, TRUE);
+
+	gen_s_start(action);
+	printa(COLUMN, "IF (SQLCODE .EQ. 0) THEN");
+	gen_receive(action, port);
+	printa(COLUMN, "IF (%s .NE. 0) THEN", name);
+	if (var_list = (NOD) action->act_object)
+		for (i = 0; i < var_list->nod_count; i++)
+			asgn_to(action, var_list->nod_arg[i]);
+
+	if (request->req_database->dbb_flags & DBB_v3) {
+		gen_receive(action, port);
+		printa(COLUMN, "IF (%s .NE. 0) THEN", name);
+		printa(COLUMN, "SQLCODE = -1");
+		printa(COLUMN, "ELSE");
+		printa(COLUMN, "SQLCODE = 0");
+		printa(COLUMN, "END IF");
+	}
+
+	printa(COLUMN, "ELSE");
+	printa(COLUMN, "SQLCODE = 100");
+	printa(COLUMN, "END IF");
+	printa(COLUMN, "END IF");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a send call for a port.
+//  
+
+static gen_send( ACT action, POR port)
+{
+	REQ request;
+
+	request = action->act_request;
+	sprintf(output_buffer,
+			"%s CALL ISC_SEND (%s, %s, %s%d%s, %s%d%s, %sisc_%d%s, %s%s%s)\n",
+			COLUMN, status_vector(action), request->req_handle, I2CONST_1,
+			port->por_msg_number, I2CONST_2, I2CONST_1, port->por_length,
+			I2CONST_2, REF_1, port->por_ident, REF_2, VAL_1,
+			request->req_request_level, VAL_2);
+
+	FTN_print_buffer(output_buffer);
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate support for get/put slice statement.
+//  
+
+static gen_slice( ACT action)
+{
+	REQ request, parent_request;
+	REF reference, upper, lower;
+	SLC slice;
+	PAT args;
+	struct slc_repeat *tail, *end;
+	TEXT buffer[256], temp[64];
+	TEXT *pattern1 =
+		"CALL ISC_GET_SLICE (%V1, %RF%DH%RE, %RF%RT%RE, %RF%FR%RE, %N1, \
+%I1, %N2, %I1v, %I1s, %RF%S5%RE, %RF%S6%RE)";
+	TEXT *pattern2 =
+		"CALL ISC_PUT_SLICE (%V1, %RF%DH%RE, %RF%RT%RE, %RF%FR%RE, %N1, \
+%I1, %N2, %I1v, %I1s, %RF%S5%RE)";
+	SSHORT column = 6;
+
+	request = action->act_request;
+	slice = (SLC) action->act_object;
+	parent_request = slice->slc_parent_request;
+
+//  Compute array size 
+
+	sprintf(buffer, "isc_%ds = %d", request->req_ident,
+			slice->slc_field->fld_array->fld_length);
+
+	for (tail = slice->slc_rpt, end = tail + slice->slc_dimensions;
+		 tail < end; ++tail)
+		if (tail->slc_upper != tail->slc_lower) {
+			lower = (REF) tail->slc_lower->nod_arg[0];
+			upper = (REF) tail->slc_upper->nod_arg[0];
+			if (lower->ref_value)
+				sprintf(temp, " * ( %s - %s + 1)", upper->ref_value,
+						lower->ref_value);
+			else
+				sprintf(temp, " * ( %s + 1)", upper->ref_value);
+			strcat(buffer, temp);
+		}
+	printa(COLUMN, buffer);
+
+//  Make assignments to variable vector 
+
+	for (reference = request->req_values; reference;
+		 reference =
+		 reference->ref_next) printa(COLUMN, "isc_%dv [%d] = %s;",
+									 request->req_ident, reference->ref_id,
+									 reference->ref_value);
+
+	args.pat_reference = slice->slc_field_ref;
+	args.pat_request = parent_request;	/* blob id request */
+	args.pat_vector1 = status_vector(action);	/* status vector */
+	args.pat_database = parent_request->req_database;	/* database handle */
+	args.pat_string1 = action->act_request->req_trans;	/* transaction handle */
+	args.pat_value1 = request->req_length;	/* slice descr. length */
+	args.pat_ident1 = request->req_ident;	/* request name */
+	args.pat_value2 = slice->slc_parameters * sizeof(SLONG);	/* parameter length */
+
+	reference = (REF) slice->slc_array->nod_arg[0];
+	args.pat_string5 = reference->ref_value;	/* array name */
+	args.pat_string6 = "isc_array_length";
+
+	PATTERN_expand(column,
+				   (action->act_type == ACT_get_slice) ? pattern1 : pattern2,
+				   &args);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate either a START or START_AND_SEND depending
+//		on whether or a not a port is present.
+//  
+
+static gen_start( ACT action, POR port)
+{
+	REQ request;
+	TEXT *vector;
+	REF reference;
+
+	request = action->act_request;
+	vector = status_vector(action);
+
+	if (port) {
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, FALSE);
+
+		sprintf(output_buffer,
+				"%sCALL ISC_START_AND_SEND (%s, %s, %s, %s%d%s, %s%d%s, %sisc_%d%s, %s%s%s)\n",
+				COLUMN,
+				vector,
+				request->req_handle,
+				request_trans(action, request),
+				I2CONST_1, port->por_msg_number, I2CONST_2,
+				I2CONST_1, port->por_length, I2CONST_2,
+				REF_1, port->por_ident, REF_2,
+				I2CONST_1, request->req_request_level, I2CONST_2);
+	}
+	else
+		sprintf(output_buffer,
+				"%sCALL ISC_START_REQUEST (%s, %s, %s, %s%s%s)\n", COLUMN,
+				vector, request->req_handle, request_trans(action, request),
+				I2CONST_1, request->req_request_level, I2CONST_2);
+
+	FTN_print_buffer(output_buffer);
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text for STORE statement.  This includes the compile
+//		call and any variable initialization required.
+//  
+
+static gen_store( ACT action)
+{
+	REQ request;
+	REF reference;
+	FLD field;
+	POR port;
+	TEXT name[64];
+
+	request = action->act_request;
+	gen_compile(action);
+	if (action->act_error || (action->act_flags & ACT_sql))
+		make_ok_test(action, request);
+
+//  Initialize any blob fields 
+
+	port = request->req_primary;
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (field->fld_flags & FLD_blob)
+			printa(COLUMN, "CALL isc_qtoq (isc_blob_null, %s)",
+				   gen_name(name, reference, TRUE));
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for START_TRANSACTION.
+//  
+
+static gen_t_start( ACT action)
+{
+	DBB db;
+	TRA trans;
+	TPB tpb;
+	int count;
+	TEXT *filename;
+
+//  if this is a purely default transaction, just let it through 
+
+	if (!action || !(trans = (TRA) action->act_object)) {
+		t_start_auto(0, status_vector(action), action, FALSE);
+		return;
+	}
+
+//  build a complete statement, including tpb's.  Ready db's as req. 
+
+	if (sw_auto)
+		for (tpb = trans->tra_tpb; tpb; tpb = tpb->tpb_tra_next) {
+			db = tpb->tpb_database;
+			if ((filename = db->dbb_runtime) || !(db->dbb_flags & DBB_sqlca)) {
+				printa(COLUMN, "IF (%s .EQ. 0) THEN",
+					   db->dbb_name->sym_string);
+				make_ready(db, filename, status_vector(action), 0);
+				status_and_stop(action);
+				printa(COLUMN, "END IF");
+			}
+		}
+
+#ifdef hpux
+//  If this is hpux we should be building a teb vector here 
+//  with the tpb address and length specified 
+
+	for (tpb = trans->tra_tpb, count = 0; tpb; tpb = tpb->tpb_tra_next) {
+		count++;
+		db = tpb->tpb_database;
+		printa(COLUMN, "ISC_TEB%d_LEN = %d", count, tpb->tpb_length);
+		printa(COLUMN, "ISC_TEB%d_TPB = ISC_BADDRESS (ISC_TPB_%d)",
+			   count, tpb->tpb_ident);
+		printa(COLUMN, "ISC_TEB%d_DBB = ISC_BADDRESS (%s)",
+			   count, db->dbb_name->sym_string);
+	}
+
+	printa(COLUMN, "CALL ISC_START_MULTIPLE (%s, %s, %d, ISC_TEB)",
+		   status_vector(action),
+		   (trans->tra_handle) ? trans->tra_handle : "gds__trans",
+		   trans->tra_db_count);
+
+#else
+
+	printa(COLUMN, "CALL ISC_START_TRANSACTION (%s, %s, %s%d%s",
+		   status_vector(action),
+		   (trans->tra_handle) ? trans->tra_handle : "GDS__TRANS",
+		   I2CONST_1, trans->tra_db_count, I2CONST_2);
+
+	for (tpb = trans->tra_tpb; tpb; tpb = tpb->tpb_tra_next)
+		printa(CONTINUE, ", %s, %s%d%s, isc_tpb_%d",
+			   tpb->tpb_database->dbb_name->sym_string,
+			   I2CONST_1, tpb->tpb_length, I2CONST_2, tpb->tpb_ident);
+
+	printa(CONTINUE, ")");
+#endif
+
+	status_and_stop(action);
+}
+
+
+//____________________________________________________________
+//  
+//		Initialize a TPB in the output file
+//  
+
+static gen_tpb_data( TPB tpb)
+{
+	TEXT *p;
+	UCHAR *text, *c;
+	int length;
+	union {
+		UCHAR bytewise_tpb[4];
+		SLONG longword_tpb;
+	} tpb_hunk;
+
+//  
+//  TPBs are generated as raw BLR in longword chunks 
+//  because FORTRAN is a miserable excuse for a language
+//  and doesn't allow byte value assignments to character
+//  fields.
+//  
+
+	length = (tpb->tpb_length + (sizeof(SLONG) - 1)) / sizeof(SLONG);
+
+	printa(COLUMN, "DATA ISC_TPB_%d  /", tpb->tpb_ident, COMMA, length);
+
+	text = tpb->tpb_string;
+	length = tpb->tpb_length;
+	strcpy(output_buffer, CONTINUE);
+	for (p = output_buffer; *p; p++);
+
+	while (length) {
+		for (c = tpb_hunk.bytewise_tpb;
+			 c < tpb_hunk.bytewise_tpb + sizeof(SLONG); c++) {
+			*c = *text++;
+			if (!(--length))
+				break;
+		}
+		if (length)
+			sprintf(p, "%11d,", tpb_hunk.longword_tpb);
+		else
+			sprintf(p, "%d/\n", tpb_hunk.longword_tpb);
+		p += 12;
+	}
+
+	FTN_print_buffer(output_buffer);
+	sprintf(output_buffer, "%sEnd of data for ISC_TPB_%d\n",
+			COMMENT, tpb->tpb_ident);
+	FTN_print_buffer(output_buffer);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the declaration for a
+//       TPB in the output file
+//  
+
+static gen_tpb_decls( TPB tpb)
+{
+	int length;
+
+	length = (tpb->tpb_length + (sizeof(SLONG) - 1)) / sizeof(SLONG);
+	ib_fprintf(out_file,
+			   "%sINTEGER*4      ISC_TPB_%d(%d)    %s{ transaction parameters }\n",
+			   COLUMN, tpb->tpb_ident, length, INLINE_COMMENT);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for COMMIT, ROLLBACK, PREPARE, and SAVE
+//  
+
+static gen_trans( ACT action)
+{
+
+	if (action->act_type == ACT_commit_retain_context)
+		printa(COLUMN, "CALL ISC_COMMIT_RETAINING (%s, %s)",
+			   status_vector(action),
+			   (action->act_object) ? (TEXT *) (action->
+												act_object) : "GDS__TRANS");
+	else
+		printa(COLUMN, "CALL ISC_%s_TRANSACTION (%s, %s)",
+			   (action->act_type ==
+				ACT_commit) ? "COMMIT" : (action->act_type ==
+										  ACT_rollback) ? "ROLLBACK" :
+			   "PREPARE", status_vector(action),
+			   (action->act_object) ? (TEXT *) (action->
+												act_object) : "GDS__TRANS");
+	status_and_stop(action);
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for UPDATE ... WHERE CURRENT OF ...
+//  
+
+static gen_update( ACT action)
+{
+	POR port;
+	UPD modify;
+
+	modify = (UPD) action->act_object;
+	port = modify->upd_port;
+	asgn_from(action, port->por_references);
+	gen_send(action, port);
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a variable reference.
+//  
+
+static gen_variable( ACT action)
+{
+	SCHAR s[20];
+	REF reference;
+
+	reference = (REF) action->act_object;
+	printa("", "%s%s",
+		   (action->act_flags & ACT_first) ? COLUMN : CONTINUE,
+		   gen_name(s, reference, FALSE));
+
+	ib_fputs(CONTINUE, out_file);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate tests for any WHENEVER clauses that may have been declared.
+//  
+
+static gen_whenever( SWE label)
+{
+	TEXT *condition;
+
+	while (label) {
+		switch (label->swe_condition) {
+		case SWE_error:
+			condition = "SQLCODE .LT. 0";
+			break;
+
+		case SWE_warning:
+			condition = "SQLCODE .EQ. 0 .AND. SQLCODE .NE. 100";
+			break;
+
+		case SWE_not_found:
+			condition = "SQLCODE .EQ. 100";
+			break;
+		}
+		printa(COLUMN, "if (%s) goto %s", condition, label->swe_label);
+		label = label->swe_next;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Create a new window.
+//  
+
+static gen_window_create( ACT action)
+{
+
+	printa(COLUMN,
+		   "CALL PYXIS__CREATE_WINDOW (isc_window, 0, 0, isc_width, isc_height)");
+}
+
+
+//____________________________________________________________
+//  
+//		Delete a window.
+//  
+
+static gen_window_delete( ACT action)
+{
+
+	printa(COLUMN, "CALL PYXIS__DELETE_WINDOW (isc_window)");
+}
+
+
+//____________________________________________________________
+//  
+//		Suspend a window.
+//  
+
+static gen_window_suspend( ACT action)
+{
+
+	printa(COLUMN, "CALL PYXIS__SUSPEND_WINDOW (isc_window)");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a declaration of an array in the
+//       output file.
+//  
+
+static make_array_declaration( REF reference)
+{
+	FLD field;
+	SCHAR *name;
+	TEXT s[64];
+	DIM dimension;
+	ADL this_array;
+
+	field = reference->ref_field;
+	name = field->fld_symbol->sym_string;
+
+//   Check to see if the array already has been
+//   declared in this routine or subroutine  
+	if (array_decl_list)
+		for (this_array = array_decl_list; this_array;
+			 this_array =
+			 this_array->adl_next) if (field->fld_array_info->ary_ident ==
+									   this_array->adl_gds_ident) return;
+
+//   If not, add it to the "declared" list and declare it  
+	this_array = (ADL) ALLOC(ADL_LEN);
+	this_array->adl_gds_ident = field->fld_array_info->ary_ident;
+	if (array_decl_list)
+		this_array->adl_next = array_decl_list;
+	else
+		this_array->adl_next = NULL;
+	array_decl_list = this_array;
+
+	switch (field->fld_array_info->ary_dtype) {
+	case dtype_short:
+		ib_fprintf(out_file, "%sINTEGER*2%s", COLUMN, COLUMN);
+		break;
+
+	case dtype_long:
+		ib_fprintf(out_file, "%sINTEGER*4%s", COLUMN, COLUMN);
+		break;
+
+	case dtype_date:
+	case dtype_blob:
+	case dtype_quad:
+		ib_fprintf(out_file, "%sINTEGER*4%s", COLUMN, COLUMN);
+		break;
+
+	case dtype_text:
+		ib_fprintf(out_file, "%sCHARACTER*%d%s",
+				   COLUMN, field->fld_array->fld_length, COLUMN);
+		break;
+
+	case dtype_float:
+		ib_fprintf(out_file, "%sREAL%s", COLUMN, COLUMN);
+		break;
+
+	case dtype_double:
+		ib_fprintf(out_file, "%s%s%s", COLUMN, DOUBLE_DCL, COLUMN);
+		break;
+
+	default:
+		sprintf(s, "datatype %d unknown\n", field->fld_dtype);
+		CPR_error(s);
+		return;
+	}
+
+//   Print out the dimension part of the declaration  
+	ib_fprintf(out_file, "isc_%d", field->fld_array_info->ary_ident);
+	ib_fprintf(out_file, "(");
+
+	for (dimension = field->fld_array_info->ary_dimension; dimension;
+		 dimension = dimension->dim_next) {
+		if (dimension->dim_lower != 1)
+			ib_fprintf(out_file, "%d:", dimension->dim_lower);
+
+		ib_fprintf(out_file, "%d", dimension->dim_upper);
+		if (dimension->dim_next)
+			ib_fprintf(out_file, ", ");
+	}
+
+	if (field->fld_dtype == dtype_quad || field->fld_dtype == dtype_date)
+		ib_fprintf(out_file, ",2");
+
+//   Print out the database field  
+
+	ib_fprintf(out_file, ")        %s{ %s }\n", INLINE_COMMENT, name);
+}
+
+
+//____________________________________________________________
+//  
+//		Turn a symbol into a varying string.
+//  
+
+static TEXT *make_name( TEXT * string, SYM symbol)
+{
+
+	sprintf(string, "%s'%s '%s", REF_1, symbol->sym_string, REF_2);
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code to test existence of compiled request with
+//		active transaction
+//  
+
+static make_ok_test( ACT action, REQ request)
+{
+
+	if (sw_auto)
+		printa(COLUMN, "IF (%s .NE. 0 .AND. %s .NE. 0) THEN",
+			   request_trans(action, request), request->req_handle);
+	else
+		printa(COLUMN, "IF (%s .NE. 0) THEN", request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Insert a port record description in output.
+//  
+
+static make_port( POR port)
+{
+	FLD field;
+	REF reference;
+	SYM symbol;
+	SCHAR *name, s[80];
+	USHORT length;
+
+	length = (port->por_length + 3) & ~3;
+
+	printa(COLUMN, "CHARACTER      isc_%d(%d)", port->por_ident, length);
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (symbol = field->fld_symbol)
+			name = symbol->sym_string;
+		else
+			name = "<expression>";
+		if (reference->ref_value && (reference->ref_flags & REF_array_elem))
+			field = field->fld_array;
+		switch (field->fld_dtype) {
+		case dtype_short:
+			ib_fprintf(out_file, "%sINTEGER*2      isc_%d      %s{ %s }\n",
+					   COLUMN, reference->ref_ident, INLINE_COMMENT, name);
+			break;
+
+		case dtype_long:
+			ib_fprintf(out_file, "%sINTEGER*4      isc_%d      %s{ %s }\n",
+					   COLUMN, reference->ref_ident, INLINE_COMMENT, name);
+			break;
+
+		case dtype_cstring:
+		case dtype_text:
+			ib_fprintf(out_file, "%sCHARACTER*%d   isc_%d      %s{ %s }\n",
+					   COLUMN, field->fld_length, reference->ref_ident,
+					   INLINE_COMMENT, name);
+			break;
+
+		case dtype_date:
+		case dtype_quad:
+		case dtype_blob:
+			ib_fprintf(out_file, "%sINTEGER*4      isc_%d(2)   %s{ %s }\n",
+					   COLUMN, reference->ref_ident, INLINE_COMMENT, name);
+			break;
+
+		case dtype_float:
+			ib_fprintf(out_file, "%sREAL          isc_%d      %s{ %s }\n",
+					   COLUMN, reference->ref_ident, INLINE_COMMENT, name);
+			break;
+
+		case dtype_double:
+			ib_fprintf(out_file, "%s%s         isc_%d      %s{ %s }\n",
+					   COLUMN, DOUBLE_DCL, reference->ref_ident,
+					   INLINE_COMMENT, name);
+			break;
+
+		default:
+			sprintf(s, "datatype %d unknown for field %s, msg %d",
+					field->fld_dtype, name, port->por_msg_number);
+			CPR_error(s);
+			return;
+		}
+	}
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next)
+			printa(COLUMN, "EQUIVALENCE    (isc_%d(%d), isc_%d)",
+				   port->por_ident, reference->ref_offset + 1,
+				   reference->ref_ident);
+
+	printa(COLUMN, " ");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the actual ready call.
+//  
+
+static make_ready( DBB db, TEXT * filename, TEXT * vector, REQ request)
+{
+	TEXT s1[32], s2[32];
+
+	if (request) {
+		sprintf(s1, "isc_%dl", request->req_ident);
+
+		if (request->req_flags & REQ_extend_dpb)
+			sprintf(s2, "isc_%dp", request->req_ident);
+		else
+			sprintf(s2, "isc_%d", request->req_ident);
+		/* if the dpb needs to be extended at runtime to include items
+		   in host variables, do so here; this assumes that there is 
+		   always a request generated for runtime variables */
+
+		if (request->req_flags & REQ_extend_dpb) {
+			if (request->req_length) {
+				sprintf(output_buffer, "%s%s = isc_%d\n",
+						COLUMN, s2, request->req_ident);
+				FTN_print_buffer(output_buffer);
+			}
+//  MMM 
+			else {
+				sprintf(output_buffer, "%s%s = 0\n", COLUMN, s2);
+				FTN_print_buffer(output_buffer);
+			}
+
+			if (db->dbb_r_user) {
+				sprintf(output_buffer,
+						"%sCALL ISC_MODIFY_DPB (%s, %s, isc_dpb_user_name, %s, %sLEN(%s)%s)\n",
+						COLUMN,
+						s2, s1, db->dbb_r_user,
+						I2CONST_1, db->dbb_r_user, I2CONST_2);
+				FTN_print_buffer(output_buffer);
+			}
+			if (db->dbb_r_password) {
+				sprintf(output_buffer,
+						"%sCALL ISC_MODIFY_DPB (%s, %s, isc_dpb_password, %s, %sLEN(%s)%s)\n",
+						COLUMN,
+						s2, s1, db->dbb_r_password,
+						I2CONST_1, db->dbb_r_password, I2CONST_2);
+				FTN_print_buffer(output_buffer);
+			}
+
+			/*
+			   ** =========================================================
+			   ** ==   SQL Role supports GPRE/Fortran
+			   ** =========================================================
+			 */
+
+			if (db->dbb_r_sql_role) {
+				sprintf(output_buffer,
+						"%sCALL ISC_MODIFY_DPB (%s, %s, isc_dpb_sql_role_name, %s, %sLEN(%s)%s)\n",
+						COLUMN,
+						s2, s1, db->dbb_r_sql_role,
+						I2CONST_1, db->dbb_r_sql_role, I2CONST_2);
+				FTN_print_buffer(output_buffer);
+			}
+
+			if (db->dbb_r_lc_messages) {
+				sprintf(output_buffer,
+						"%sCALL ISC_MODIFY_DPB(%s, %s, isc_dpb_lc_messages, %s, %sLEN(%s)%s)\n",
+						COLUMN,
+						s2, s1, db->dbb_r_lc_messages,
+						I2CONST_1, db->dbb_r_lc_messages, I2CONST_2);
+				FTN_print_buffer(output_buffer);
+			}
+			if (db->dbb_r_lc_ctype) {
+				sprintf(output_buffer,
+						"%sCALL ISC_MODIFY_DPB (%s, %s, isc_dpb_lc_type, %s, %sLEN(%s)%s)\n",
+						COLUMN,
+						s2, s1, db->dbb_r_lc_ctype,
+						I2CONST_1, db->dbb_r_lc_ctype, I2CONST_2);
+				FTN_print_buffer(output_buffer);
+			}
+		}
+	}
+	if (filename) {
+		sprintf(output_buffer,
+				"%sISC_%s = %s\n", COLUMN, db->dbb_name->sym_string,
+				filename);
+		FTN_print_buffer(output_buffer);
+
+		sprintf(output_buffer,
+				"%sCALL ISC_ATTACH_DATABASE (%s, %sLEN(%s)%s, %sISC_%s%s, %s, %s%s%s, %s)\n",
+				COLUMN,
+				vector,
+				I2CONST_1, filename, I2CONST_2,
+				REF_1, db->dbb_name->sym_string, REF_2,
+				db->dbb_name->sym_string,
+				I2CONST_1,
+				(request ? s1 : "0"), I2CONST_2, (request ? s2 : "0"));
+		FTN_print_buffer(output_buffer);
+	}
+	else {
+		sprintf(output_buffer, "%sISC_%s = '%s'\n",
+				COLUMN, db->dbb_name->sym_string, db->dbb_filename);
+		FTN_print_buffer(output_buffer);
+
+		sprintf(output_buffer,
+				"%sCALL ISC_ATTACH_DATABASE (%s, %sLEN('%s')%s, %sISC_%s%s, %s, %s%s%s, %s)\n",
+				COLUMN,
+				vector,
+				I2CONST_1, db->dbb_filename, I2CONST_2,
+				REF_1, db->dbb_name->sym_string, REF_2,
+				db->dbb_name->sym_string,
+				I2CONST_1,
+				(request ? s1 : "0"), I2CONST_2, (request ? s2 : "0"));
+		FTN_print_buffer(output_buffer);
+	}
+	if (request && request->req_flags & REQ_extend_dpb) {
+		if (request->req_length) {
+			sprintf(output_buffer, "%sif (%s != isc_%d)\n", COLUMN, s2,
+					request->req_ident);
+			FTN_print_buffer(output_buffer);
+		}
+		sprintf(output_buffer, "%sCALL ISC_FREE (%s)\n", COLUMN, s2);
+		FTN_print_buffer(output_buffer);
+
+		/* reset the length of the dpb */
+
+		sprintf(output_buffer, "%s%s = %d\n", COLUMN, s1,
+				request->req_length);
+		FTN_print_buffer(output_buffer);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Looks at the label bitmap and allocates
+//       an unused label.  Marks the current
+//       label as used.
+//  
+
+static next_label(void)
+{
+	USHORT label;
+	UCHAR *byte, target_byte;
+
+	for (byte = fortran_labels; *byte == 255; byte++);
+
+	label = ((byte - fortran_labels) << 3);
+
+	for (target_byte = *byte; target_byte & 1; target_byte >>= 1)
+		label++;
+
+	*byte |= 1 << (label & 7);
+
+	return (label);
+}
+
+
+//____________________________________________________________
+//  
+//		Print a fixed string at a particular COLUMN.
+//  
+
+static printa( SCHAR * column, SCHAR * string, ...)
+{
+	va_list ptr;
+	SCHAR s[256];
+
+	VA_START(ptr, string);
+	strcpy(s, column);
+	strcat(s, string);
+	strcat(s, "\n");
+	vsprintf(output_buffer, s, ptr);
+	FTN_print_buffer(output_buffer);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the appropriate transaction handle.
+//  
+
+static TEXT *request_trans( ACT action, REQ request)
+{
+	SCHAR *trname;
+
+	if (action->act_type == ACT_open) {
+		if (!(trname = ((OPN) action->act_object)->opn_trans))
+			trname = "GDS__TRANS";
+		return trname;
+	}
+	else
+		return (request) ? request->req_trans : "GDS__TRANS";
+}
+
+
+//____________________________________________________________
+//  
+//		Do the error handling ourselves
+//       until we figure out how to use the
+//       ISC_NULL from FORTRAN
+//  
+
+static status_and_stop( ACT action)
+{
+
+	if (action && (action->act_flags & ACT_sql))
+		printa(COLUMN, "SQLCODE = ISC_SQLCODE (ISC_STATUS)");
+	else if (!action || !action->act_error) {
+		printa(COLUMN, "IF (ISC_STATUS(2) .NE. 0) THEN");
+		printa(COLUMN, "    CALL ISC_PRINT_STATUS (ISC_STATUS)");
+		printa(COLUMN, "    STOP");
+		printa(COLUMN, "END IF");
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the appropriate status vector parameter for a gds
+//		call depending on where or not the action has an error clause.
+//  
+
+static TEXT *status_vector( ACT action)
+{
+
+	return "ISC_STATUS";
+//  return (!action || !action->act_error) ? "ISC_NULL" : "ISC_STATUS"; 
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for START_TRANSACTION,
+//       when it's being generated automatically by a compile
+//       call or one of the DDL commands.  Be careful not to
+//		continue after errors as that destroys evidence.
+//  
+
+static t_start_auto( REQ request, TEXT * vector, ACT action, SSHORT test)
+{
+	DBB db;
+	int count;
+	TEXT *filename, buffer[256], temp[40], *trname;
+
+	buffer[0] = 0;
+	trname = request_trans(action, request);
+
+//  this is a default transaction, make sure all databases are ready 
+
+	for (count = 0, db = isc_databases; db; db = db->dbb_next) {
+		if (sw_auto)
+			if ((filename = db->dbb_runtime) || !(db->dbb_flags & DBB_sqlca)) {
+				if (buffer[0])
+					printa(COLUMN, "IF (%s .EQ. 0 .AND. %s(2) .EQ. 0) THEN",
+						   db->dbb_name->sym_string, vector);
+				else
+					printa(COLUMN, "IF (%s .EQ. 0) THEN",
+						   db->dbb_name->sym_string);
+				make_ready(db, filename, vector, 0);
+				printa(COLUMN, "END IF");
+				if (buffer[0])
+					strcat(buffer, " .AND. ");
+				sprintf(temp, "%s .NE. 0", db->dbb_name->sym_string);
+				strcat(buffer, temp);
+			}
+
+		count++;
+#ifdef hpux
+		printa(COLUMN, "ISC_TEB%d_LEN = 0", count);
+		printa(COLUMN, "ISC_TEB%d_TPB = ISC_NULL", count);
+		printa(COLUMN, "ISC_TEB%d_DBB = ISC_BADDRESS (%s)", count,
+			   db->dbb_name->sym_string);
+#endif
+	}
+
+	if (sw_auto) {
+		if (!buffer[0])
+			strcpy(buffer, ".TRUE.");
+		if (test)
+			printa(COLUMN, "IF ((%s) .AND. (%s .EQ. 0)) THEN", buffer,
+				   trname);
+		else
+			printa(COLUMN, "IF (%s) THEN", buffer);
+	}
+
+#ifdef hpux
+	printa(COLUMN_INDENT, "CALL ISC_START_MULTIPLE (%s, %s, %s%d%s, ISC_TEB)",
+		   vector, trname, I2CONST_1, count, I2CONST_2);
+#else
+	printa(COLUMN_INDENT, "CALL ISC_START_TRANSACTION (%s, %s, %s%d%s",
+		   vector, trname, I2CONST_1, count, I2CONST_2);
+
+	for (db = isc_databases; db; db = db->dbb_next)
+		printa(CONTINUE, ", %s, %s0%s, 0",
+			   db->dbb_name->sym_string, I2CONST_1, I2CONST_2);
+	printa(CONTINUE, ")");
+#endif
+
+	if (sw_auto)
+		printa(COLUMN, "END IF");
+
+	status_and_stop(action);
+}
+
+#if 0							/* RRK_?: this column stuff was not used in 3.3
+								   may be should not bother with it now */
+//____________________________________________________________
+//  
+//		Align output to a specific column for output.  If the
+//		column is negative, don't do anything.
+//  
+
+static void align( int column)
+{
+	int i;
+
+	if (column < 0)
+		return;
+
+	ib_putc('\n', out_file);
+
+	for (i = column / 8; i; --i)
+		ib_putc('\t', out_file);
+
+	for (i = column % 8; i; --i)
+		ib_putc(' ', out_file);
+}
+#endif /* RRK_?: end of comment out */
+
+#ifdef UNDEF					/* RRK_?: seems not in use */
+//____________________________________________________________
+//  
+//		Build an assignment from a host language variable to
+//		a sqlda variable.
+//  
+
+static void asgn_sqlda_from(
+							REF reference,
+							int number, SCHAR * string, int column)
+{
+	SCHAR *value, temp[20];
+
+	for (; reference; reference = reference->ref_next) {
+		align(column);
+		if (reference->ref_source)
+			value = gen_name(temp, reference->ref_source, TRUE);
+		else
+			value = reference->ref_value;
+		ib_fprintf(out_file,
+				   "isc_to_sqlda (isc_sqlda, %d, %s, sizeof(%s), %s);",
+				   number, value, value, string);
+	}
+}
+#endif
+
+//____________________________________________________________
+//  
+//		Generate a function call for free standing ANY.  Somebody else
+//		will need to generate the actual function.
+//  
+
+static int gen_any( ACT action)
+{
+	REQ request;
+	POR port;
+	REF reference;
+
+	request = action->act_request;
+
+	ib_fprintf(out_file, "%s%s_r (&%s, &%s", COLUMN,
+			   request->req_handle, request->req_handle, request->req_trans);
+
+	if (port = request->req_vport)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next)
+				ib_fprintf(out_file, ", %s", reference->ref_value);
+
+	ib_fprintf(out_file, ")");
+}
+
+//____________________________________________________________
+//  
+//		Zap all know handles.
+//  
+
+static int gen_clear_handles( ACT action)
+{
+	REQ request;
+
+	for (request = requests; request; request = request->req_next) {
+		if (!(request->req_flags & REQ_exp_hand))
+			printa("%s%s = 0;", COLUMN, request->req_handle);
+		if (request->req_form_handle &&
+			!(request->req_flags & REQ_exp_form_handle))
+				printa("%s%s = 0;", COLUMN, request->req_form_handle);
+	}
+}
+
+//____________________________________________________________
+//  
+//		Generate a symbol to ease compatibility with V3.
+//  
+
+static int gen_compatibility_symbol(
+									TEXT * symbol,
+									TEXT * v4_prefix, TEXT * trailer)
+{
+	TEXT *v3_prefix;
+
+	v3_prefix = (sw_language == lang_cxx) ? "isc_" : "isc_";
+
+	ib_fprintf(out_file, "#define %s%s\t%s%s%s\n", v3_prefix, symbol,
+			   v4_prefix, symbol, trailer);
+}
+
+//____________________________________________________________
+//  
+//		Generate a function for free standing ANY or statistical.
+//  
+
+static int gen_function( ACT function)
+{
+	REQ request;
+	POR port;
+	REF reference;
+	FLD field;
+	ACT action;
+	TEXT *dtype, s[64];
+
+	action = (ACT) function->act_object;
+
+	if (action->act_type != ACT_any) {
+		IBERROR("can't generate function");
+		return;
+	}
+
+	request = action->act_request;
+
+	ib_fprintf(out_file, "static %s_r (request, transaction",
+			   request->req_handle, request->req_handle, request->req_trans);
+
+	if (port = request->req_vport)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next)
+				ib_fprintf(out_file, ", %s",
+						   gen_name(s, reference->ref_source, TRUE));
+
+	ib_fprintf(out_file,
+			   ")\n    isc_req_handle\trequest;\n    isc_tr_handle\ttransaction;\n",
+			   request->req_handle, request->req_trans);
+
+	if (port)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) {
+			field = reference->ref_field;
+			switch (field->fld_dtype) {
+			case dtype_short:
+				dtype = "short";
+				break;
+
+			case dtype_long:
+//  RRK_?:		dtype = DCL_LONG;  
+				break;
+
+			case dtype_cstring:
+			case dtype_text:
+				dtype = "char*";
+				break;
+
+			case dtype_quad:
+//			dtype = DCL_QUAD;	 
+				break;
+
+			case dtype_date:
+			case dtype_blob:
+				dtype = "ISC_QUAD";
+				break;
+
+			case dtype_real:
+				dtype = "float";
+				break;
+
+			case dtype_double:
+				dtype = "double";
+				break;
+
+			default:
+				IBERROR("gen_function: unsupported datatype");
+				return;
+			}
+			ib_fprintf(out_file, "    %s\t%s;\n", dtype,
+					   gen_name(s, reference->ref_source, TRUE));
+		}
+
+	ib_fprintf(out_file, "{\n");
+	for (port = request->req_ports; port; port = port->por_next)
+		make_port(port);
+
+	ib_fprintf(out_file, "\n\n");
+	gen_s_start(action);
+	gen_receive(action, request->req_primary);
+
+	for (port = request->req_ports; port; port = port->por_next)
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, TRUE);
+
+	port = request->req_primary;
+	ib_fprintf(out_file, "\nreturn %s;\n}\n",
+			   gen_name(s, port->por_references, TRUE));
+}
+
+//____________________________________________________________
+//  
+//		Generate a TPB in the output file
+//  
+
+static int gen_tpb( TPB tpb)
+{
+	TEXT *text, buffer[80], c, *p;
+	SSHORT length, tpb_length;
+
+	printa("%sstatic char\n", COLUMN);
+	p = buffer;
+
+	for (length = 0; length < 4; length++)
+		*p++ = ' ';
+
+	sprintf(p, "isc_tpb_%d [%d] = {", tpb->tpb_ident, tpb->tpb_length);
+	while (*p)
+		p++;
+
+	tpb_length = tpb->tpb_length;
+	text = (TEXT *) tpb->tpb_string;
+
+	while (--tpb_length >= 0) {
+		c = *text++;
+		if ((c >= 'A' && c <= 'Z') || c == '$' || c == '_')
+			sprintf(p, "'%c'", c);
+		else
+			sprintf(p, "%d", c);
+		while (*p)
+			p++;
+		if (tpb_length)
+			*p++ = ',';
+		if (p - buffer > 60) {
+			*p = 0;
+			ib_fprintf(out_file, " %s\n", buffer);
+			p = buffer;
+			for (length = 0; length < 8; length++)
+				*p++ = ' ';
+			*p = 0;
+		}
+	}
+
+	ib_fprintf(out_file, "%s};\n", buffer);
+}
+
+//____________________________________________________________
+//  
+//		Substitute for a variable reference.
+//  
+
+static int gen_type( ACT action)
+{
+
+	printa("%s%ld", COLUMN, action->act_object);
+}
+
+//____________________________________________________________
+//  
+//		Print a fixed string at a particular column.
+//  
+
+static int printb( TEXT * string, ...)
+{
+	va_list ptr;
+
+	VA_START(ptr, string);
+	ib_vfprintf(out_file, string, ptr);
+}
diff --git a/src/gpre/gpre.cpp b/src/gpre/gpre.cpp
new file mode 100644
index 0000000000..23d26a3951
--- /dev/null
+++ b/src/gpre/gpre.cpp
@@ -0,0 +1,2886 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	Preprocessor
+//		MODULE:		gpre.cpp
+//		DESCRIPTION:	Main line routine
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  $Id: gpre.cpp,v 1.1.1.1 2001-05-23 13:25:29 tamlin Exp $
+//  Revision 1.2  2000/11/16 15:54:29  fsg
+//  Added new switch -verbose to gpre that will dump
+//  parsed lines to stderr
+//  
+//  Fixed gpre bug in handling row names in WHERE clauses
+//  that are reserved words now (DATE etc)
+//  (this caused gpre to dump core when parsing tan.e)
+//  
+//  Fixed gpre bug in handling lower case table aliases
+//  in WHERE clauses for sql dialect 2 and 3.
+//  (cause a core dump in a test case from C.R. Zamana)
+//  
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  
+//
+//____________________________________________________________
+//
+//	$Id: gpre.cpp,v 1.1.1.1 2001-05-23 13:25:29 tamlin Exp $
+//
+
+#define GPRE_MAIN
+#define PARSER_MAIN
+#include <setjmp.h>
+#include <stdlib.h>
+#include <string.h>
+#include "../gpre/gpre.h"
+#include "../jrd/license.h"
+#include "../gpre/parse.h"
+#include "../jrd/intl.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/hsh_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/lang_proto.h"
+#include "../gpre/gpre_meta.h"
+#include "../gpre/msc_proto.h"
+#include "../gpre/par_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../gpre/gpreswi.h"
+
+#ifdef VMS
+#include <descrip.h>
+extern "C" {
+extern int lib$get_foreign();
+} // extern "C"
+#endif
+
+
+extern "C" {
+
+
+#ifdef PC_PLATFORM
+#define SCRATCH			"I"
+#endif
+
+#if defined(WIN_NT)
+#define SCRATCH			"ib"
+#endif
+
+#ifndef SCRATCH
+#ifdef SMALL_FILE_NAMES
+#define SCRATCH			"gds_q"
+#else
+#define SCRATCH			"gds_query_"
+#endif
+#endif
+
+#ifndef FOPEN_READ_TYPE
+#define FOPEN_READ_TYPE		"r"
+#define FOPEN_WRITE_TYPE	"w"
+#endif
+
+static BOOLEAN		all_digits(char *);
+static int			arg_is_string(SLONG, TEXT **, TEXT *);
+static SSHORT		compare_ASCII7z(char *, char *);
+static SLONG		compile_module(SLONG);
+static BOOLEAN		file_rename(TEXT *, TEXT *, TEXT *);
+static void			finish_based(ACT);
+static int			get_char(IB_FILE *);
+static BOOLEAN		get_switches(int, TEXT **, IN_SW_TAB, SW_TAB, TEXT **);
+static TOK			get_token();
+static int			nextchar();
+static SLONG		pass1();
+static void			pass2(SLONG);
+static void			print_switches();
+static void			remember_label(TEXT *);
+static IB_FILE*		reposition_file(IB_FILE *, SLONG);
+static void			return_char(SSHORT);
+static SSHORT		skip_white();
+
+/* Program wide globals */
+
+IB_FILE *input_file, *trace_file;
+TEXT*	file_name;
+TEXT*	out_file_name;
+SLONG position, last_position, line_position, first_position,
+	prior_line_position;
+ACT last_action, first_action;
+UCHAR classes[256], fortran_labels[1024];
+TEXT *ident_pattern, *utility_name, *count_name, *slack_name,
+	*transaction_name, *database_name;
+
+static TEXT input_buffer[512], *input_char;
+
+static DBB sw_databases;
+static USHORT sw_first;
+static jmp_buf fatal_env;
+struct tok prior_token;
+static TEXT *comment_start, *comment_stop;
+
+typedef void (*pfn_gen_routine) (ACT, int);
+static pfn_gen_routine gen_routine;
+
+static TEXT trace_file_name[128];
+static SLONG traced_position = 0;
+
+
+/*
+ * Type and table definition for the extension tables.  Tells GPRE
+ * the default extensions for DML and host languages.
+ */
+
+typedef struct ext_table_t
+{
+	lang_t			ext_language;
+	gpre_cmd_switch	ext_in_sw;
+	TEXT*			in;
+	TEXT*			out;
+} *EXT_TAB;
+
+
+static struct ext_table_t dml_ext_table[] =
+{
+	lang_c, IN_SW_GPRE_C, ".e", ".c",
+
+#ifndef VMS
+#ifndef WIN_NT
+	lang_scxx, IN_SW_GPRE_SCXX, ".E", ".C",
+#endif
+#endif
+
+	lang_cxx, IN_SW_GPRE_CXX, ".exx", ".cxx",
+	lang_cpp, IN_SW_GPRE_CXX, ".epp", ".cpp",
+	lang_internal, IN_SW_GPRE_G, ".e", ".c",
+	lang_pascal, IN_SW_GPRE_P, ".epas", ".pas",
+
+#ifdef FORTRAN
+#ifdef VMS
+#define FORTRAN_EXTENSIONS
+	lang_fortran, IN_SW_GPRE_F, ".efor", ".for",
+#endif
+
+#ifndef FORTRAN_EXTENSIONS
+	lang_fortran, IN_SW_GPRE_F, ".ef", ".f",
+#endif
+#endif
+
+#ifdef COBOL
+#ifdef VMS
+#define COBOL_EXTENSIONS
+	lang_cobol, IN_SW_GPRE_COB, ".ecob", ".cob",
+#endif
+
+#ifndef COBOL_EXTENSIONS
+#define COBOL_EXTENSIONS
+	lang_cobol, IN_SW_GPRE_COB, ".ecbl", ".cbl",
+#endif
+#endif
+
+#ifdef BASIC
+	lang_basic, IN_SW_GPRE_BAS, ".ebas", ".bas",
+#endif
+
+#ifdef PLI
+	lang_pli, IN_SW_GPRE_PLI, ".epli", ".pli",
+#endif
+
+#ifdef VMS
+#define ADA_EXTENSIONS
+	lang_ada, IN_SW_GPRE_ADA, ".eada", ".ada",
+#endif
+#ifdef hpux
+#define ADA_EXTENSIONS
+	lang_ada, IN_SW_GPRE_ADA, ".eada", ".ada",
+#endif
+#ifndef ADA_EXTENSIONS
+	lang_ada, IN_SW_GPRE_ADA, ".ea", ".a",
+#endif
+#ifdef ALSYS_ADA
+	lang_ada, IN_SW_GPRE_ALSYS, ".eada", ".ada",
+#endif
+#if ( defined( PC_PLATFORM) || defined( WIN_NT))
+	lang_cplusplus, IN_SW_GPRE_CPLUSPLUS, ".epp", ".cpp",
+#else
+	lang_cplusplus, IN_SW_GPRE_CPLUSPLUS, ".exx", ".cxx",
+#endif
+	lang_undef, IN_SW_GPRE_0, NULL, NULL
+};
+
+#define CHR_LETTER	1
+#define CHR_DIGIT	2
+#define CHR_IDENT	4
+#define CHR_QUOTE	8
+#define CHR_WHITE	16
+#define CHR_INTRODUCER	32
+#define CHR_DBLQUOTE	64
+
+//  macro compares chars; case sensitive for some platforms 
+
+#ifdef EITHER_CASE
+#define SAME(p,q)	UPPER7 (*p) == UPPER7 (*q)
+#else
+#define SAME(p,q)	*p == *q
+#endif
+
+
+//____________________________________________________________
+//  
+//		Main line routine for C preprocessor.  Initializes
+//		system, performs pass 1 and pass 2.  Interprets
+//		command line.
+//  
+
+int main(int argc, char* argv[])
+{
+	SYM symbol;
+	SLONG end_position;
+	int i;
+	TEXT*	p;
+	TEXT	spare_file_name[256];
+	TEXT	spare_out_file_name[256];
+	BOOLEAN renamed, explicit_;
+	EXT_TAB ext_tab;
+	struct sw_tab_t sw_table[IN_SW_GPRE_COUNT];
+#ifdef VMS
+	IB_FILE *temp;
+	TEXT temp_name[256];
+	SSHORT c;
+#endif
+
+	strcpy(ada_package, "");
+	ada_flags = 0;
+	input_char = input_buffer;
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+	//  Initialize character class table 
+	for (i = 0; i <= 127; ++i) {
+		classes[i] = 0;
+	}
+	for (i = 128; i <= 255; ++i) {
+		classes[i] = CHR_LETTER | CHR_IDENT;
+	}
+	for (i = 'a'; i <= 'z'; ++i) {
+		classes[i] = CHR_LETTER | CHR_IDENT;
+	}
+	for (i = 'A'; i <= 'Z'; ++i) {
+		classes[i] = CHR_LETTER | CHR_IDENT;
+	}
+	for (i = '0'; i <= '9'; ++i) {
+		classes[i] = CHR_DIGIT | CHR_IDENT;
+	}
+
+	classes['_']	= CHR_LETTER | CHR_IDENT | CHR_INTRODUCER;
+	classes['$']	= CHR_IDENT;
+	classes[' ']	= CHR_WHITE;
+	classes['\t']	= CHR_WHITE;
+	classes['\n']	= CHR_WHITE;
+	classes['\r']	= CHR_WHITE;
+	classes['\'']	= CHR_QUOTE;
+	classes['\"']	= CHR_DBLQUOTE;
+	classes['#']	= CHR_IDENT;
+
+//  zorch 0 through 7 in the fortran label vector 
+
+	fortran_labels[0] = 255;
+
+//  set switches and so on to default (C) values 
+
+	DBB db = NULL;
+
+	sw_language			= lang_undef;
+	sw_lines			= TRUE;
+	sw_auto				= TRUE;
+	sw_cstring			= TRUE;
+	sw_alsys			= FALSE;
+	sw_external			= FALSE;
+	sw_gen_sql			= FALSE;
+	sw_standard_out		= FALSE;
+	sw_ansi				= FALSE;
+	sw_dsql				= FALSE;
+	sw_d_float			= sw_version = FALSE;
+	sw_sql_dialect		= SQL_DIALECT_V5;
+	dialect_specified	= 0;
+	sw_window_scope		= DBB_GLOBAL;
+	gen_routine			= C_CXX_action;
+	comment_start		= "/*";
+	comment_stop		= "*/";
+	ident_pattern		= "gds__%d";
+	transaction_name	= "gds__trans";
+	database_name		= "gds__database";
+	utility_name		= "gds__utility";
+	count_name			= "gds__count";
+	slack_name			= "gds__slack";
+	global_db_count		= 0;
+	default_user		= NULL;
+	default_password	= NULL;
+	default_lc_ctype	= NULL;
+	default_lc_messages	= NULL;
+	text_subtypes		= NULL;
+	override_case		= 0;
+
+	sw_know_interp = FALSE;
+	sw_interp = 0;
+//  FSG 14.Nov.2000 
+	sw_verbose = FALSE;
+	sw_sql_dialect = compiletime_db_dialect = SQL_DIALECT_V5;
+
+//  
+//  Call a subroutine to process the input line 
+//  
+
+	TEXT* filename_array[3] = { 0 };
+
+	if (!get_switches(argc, argv, gpre_in_sw_table, sw_table, filename_array)) {
+		CPR_exit(FINI_ERROR);
+	}
+
+	file_name		= filename_array[0];
+	out_file_name	= filename_array[1];
+
+	TEXT* db_filename = filename_array[2];
+
+	if (!file_name) {
+		ib_fprintf(ib_stderr, "gpre:  no source file named.\n");
+		CPR_exit(FINI_ERROR);
+	}
+
+//  
+//  Try to open the input file.  
+//  If the language wasn't supplied, maybe the kind user included a language
+//  specific extension, and the file name fixer will find it.  The file name
+//  fixer returns FALSE if it can't add an extension, which means there's already
+//  one of the right type there.
+//  
+
+	if (sw_language == lang_undef)
+		for (ext_tab = dml_ext_table; sw_language = ext_tab->ext_language;
+			 ext_tab++) {
+			strcpy(spare_file_name, file_name);
+			if (!(file_rename(spare_file_name, ext_tab->in, NULL)))
+				break;
+		}
+
+//  
+//   Sigh.  No such luck. Maybe there's a file lying around with a plausible
+//   extension and we can use that.
+//  
+
+	if (sw_language == lang_undef)
+		for (ext_tab = dml_ext_table; sw_language = ext_tab->ext_language;
+			 ext_tab++) {
+			strcpy(spare_file_name, file_name);
+			if (file_rename(spare_file_name, ext_tab->in, NULL) &&
+				(input_file = ib_fopen(spare_file_name, FOPEN_READ_TYPE))) {
+				file_name = spare_file_name;
+				break;
+			}
+		}
+
+//  
+//   Well, if he won't tell me what language it is, or even give me a hint, I'm
+//   not going to spend all day figuring out what he wants done.
+//  
+
+	if (sw_language == lang_undef) {
+		ib_fprintf(ib_stderr,
+				   "gpre: can't find %s with any known extension.  Giving up.\n",
+				   file_name);
+		CPR_exit(FINI_ERROR);
+	}
+
+//  
+//  Having got here, we know the language, and might even have the file open.
+//  Better check before reopening it on ourselves.  Try the file with the
+//  extension first (even if we have to add the extension).   If we add an
+//  extension, and find a file with that extension, we make the file name
+//  point to the expanded file name string in a private buffer.
+//  
+
+	if (!input_file) {
+		strcpy(spare_file_name, file_name);
+		for (ext_tab = dml_ext_table;
+			 ext_tab->ext_language != sw_language;
+			 ext_tab++)
+		{
+				 ;	// empty loop body
+		}
+		renamed = file_rename(spare_file_name, ext_tab->in, NULL);
+		if (renamed &&
+			(input_file = ib_fopen(spare_file_name, FOPEN_READ_TYPE)))
+		{
+			file_name = spare_file_name;
+		}
+		else if (!(input_file = ib_fopen(file_name, FOPEN_READ_TYPE))) {
+			if (renamed) {
+				ib_fprintf(ib_stderr, "gpre: can't open %s or %s\n",
+						   file_name, spare_file_name);
+			} else {
+				ib_fprintf(ib_stderr, "gpre: can't open %s\n", file_name);
+			}
+			CPR_exit(FINI_ERROR);
+		}
+	}
+
+//  
+//  Now, apply the switches and defaults we've so painfully acquired;
+//  adding in the language switch in case we inferred it rather than parsing it.
+//  
+
+	EXT_TAB src_ext_tab = dml_ext_table;
+
+	while (src_ext_tab->ext_language != sw_language) {
+		++src_ext_tab;
+	}
+	sw_table[0].sw_in_sw = src_ext_tab->ext_in_sw;
+
+	for (SW_TAB sw_tab = sw_table; sw_tab->sw_in_sw; sw_tab++)
+	{
+		switch (sw_tab->sw_in_sw)
+		{
+		case IN_SW_GPRE_C:
+			sw_language		= lang_c;
+			ident_pattern	= "isc_%d";
+			utility_name	= "isc_utility";
+			count_name		= "isc_count";
+			slack_name		= "isc_slack";
+			break;
+
+		case IN_SW_GPRE_SCXX:
+		case IN_SW_GPRE_CXX:
+		case IN_SW_GPRE_CPLUSPLUS:
+			sw_language		= lang_cxx;
+			ident_pattern	= "isc_%d";
+			utility_name	= "isc_utility";
+			count_name		= "isc_count";
+			slack_name		= "isc_slack";
+			transaction_name = "gds_trans";
+			database_name	= "gds_database";
+			break;
+
+		case IN_SW_GPRE_D:
+			/* allocate database block and link to db chain */
+
+			db = (DBB) MSC_alloc_permanent(DBB_LEN);
+			db->dbb_next = isc_databases;
+
+			/* put this one in line to be next */
+
+			isc_databases = db;
+
+			/* allocate symbol block */
+
+			symbol = (SYM) MSC_alloc_permanent(SYM_LEN);
+
+			/* make it a database, specifically this one */
+
+			symbol->sym_type	= SYM_database;
+			symbol->sym_object	= (CTX) db;
+			symbol->sym_string	= database_name;
+
+			/* database block points to the symbol block */
+
+			db->dbb_name = symbol;
+
+			/* give it the file name and try to open it */
+
+			db->dbb_filename = db_filename;
+			if (!MET_database(db, TRUE))
+				CPR_exit(FINI_ERROR);
+			if (sw_external)
+				db->dbb_scope = DBB_EXTERN;
+#ifdef FTN_BLK_DATA
+			else {
+				global_db_count = 1;
+				strcpy(global_db_list[0].dbb_name, db->dbb_name->sym_string);
+			}
+#endif
+			break;
+
+		case IN_SW_GPRE_E:
+			sw_case = TRUE;
+			break;
+
+#ifdef ADA
+		case IN_SW_GPRE_ADA:
+#ifdef VMS
+			ada_null_address = "system.address_zero";
+#else
+			ada_null_address = "0";
+#endif
+			sw_case = TRUE;
+			sw_language = lang_ada;
+			sw_lines = FALSE;
+			sw_cstring = FALSE;
+			gen_routine = ADA_action;
+			utility_name = "isc_utility";
+			count_name = "isc_count";
+			slack_name = "isc_slack";
+			transaction_name = "gds_trans";
+			database_name = "isc_database";
+			ident_pattern = "isc_%d";
+			comment_start = "--";
+			if (db)
+				db->dbb_name->sym_string = "isc_database";
+			comment_stop = "--";
+			break;
+
+		case IN_SW_GPRE_ALSYS:
+			sw_alsys = TRUE;
+			sw_case = TRUE;
+			sw_language = lang_ada;
+			sw_lines = FALSE;
+			sw_cstring = FALSE;
+			gen_routine = ADA_action;
+			utility_name = "isc_utility";
+			count_name = "isc_count";
+			slack_name = "isc_slack";
+			transaction_name = "gds_trans";
+			database_name = "isc_database";
+			ident_pattern = "isc_%d";
+			comment_start = "--";
+			if (db)
+				db->dbb_name->sym_string = "isc_database";
+			comment_stop = "--";
+			break;
+#endif
+
+
+#ifdef FORTRAN
+		case IN_SW_GPRE_F:
+			sw_case = TRUE;
+			sw_language = lang_fortran;
+			sw_lines = FALSE;
+			sw_cstring = FALSE;
+			gen_routine = FTN_action;
+#ifdef sun
+			comment_start = "*      ";
+#else
+			comment_start = "C      ";
+#endif
+			comment_stop = " ";
+
+			/* Change the patterns for v4.0 */
+
+			ident_pattern = "isc_%d";
+			utility_name = "isc_utility";
+			count_name = "isc_count";
+			slack_name = "isc_slack";
+			break;
+#endif
+
+#ifdef COBOL
+		case IN_SW_GPRE_ANSI:
+			sw_ansi = TRUE;
+			break;
+
+		case IN_SW_GPRE_COB:
+			sw_case = TRUE;
+			sw_language = lang_cobol;
+			comment_stop = " ";
+			sw_lines = FALSE;
+			sw_cstring = FALSE;
+			gen_routine = COB_action;
+			break;
+#endif
+
+#ifdef BASIC
+		case IN_SW_GPRE_BAS:
+			sw_case = TRUE;
+			sw_language = lang_basic;
+			sw_lines = FALSE;
+			sw_cstring = FALSE;
+			gen_routine = BAS_action;
+			comment_start = "\t! ";
+			comment_stop = " ";
+			break;
+#endif
+
+#ifdef PLI
+		case IN_SW_GPRE_PLI:
+			sw_case = TRUE;
+			sw_language = lang_pli;
+			sw_lines = FALSE;
+			sw_cstring = FALSE;
+			gen_routine = PLI_action;
+			comment_start = "/*";
+			comment_stop = "*/";
+			break;
+#endif
+
+#ifdef PASCAL
+		case IN_SW_GPRE_P:
+			sw_case			= TRUE;
+			sw_language		= lang_pascal;
+			sw_lines		= FALSE;
+			sw_cstring		= FALSE;
+			gen_routine		= PAS_action;
+			comment_start	= "(*";
+			comment_stop	= "*)";
+			break;
+#endif
+		case IN_SW_GPRE_D_FLOAT:
+			sw_d_float = TRUE;
+			break;
+
+		case IN_SW_GPRE_G:
+			sw_language			= lang_internal;
+			gen_routine			= INT_action;
+			sw_cstring			= FALSE;
+			transaction_name	= "dbb->dbb_sys_trans";
+			sw_know_interp		= TRUE;
+			sw_interp			= ttype_metadata;
+			break;
+
+		case IN_SW_GPRE_I:
+			sw_ids = TRUE;
+			break;
+
+		case IN_SW_GPRE_M:
+			sw_auto = FALSE;
+			break;
+
+		case IN_SW_GPRE_N:
+			sw_lines = FALSE;
+			break;
+
+		case IN_SW_GPRE_O:
+			sw_standard_out = TRUE;
+			out_file = ib_stdout;
+			break;
+
+		case IN_SW_GPRE_R:
+			sw_raw = TRUE;
+			break;
+
+		case IN_SW_GPRE_S:
+			sw_cstring = FALSE;
+			break;
+
+		case IN_SW_GPRE_T:
+			sw_trace = TRUE;
+			break;
+//  FSG 14.Nov.2000 
+		case IN_SW_GPRE_VERBOSE:
+			sw_verbose = TRUE;
+			break;
+		default:
+			break;
+		}
+	}	// for (...)
+
+	if ((sw_auto) && (default_user || default_password || default_lc_ctype)) {
+		CPR_warn("gpre: -user, -password and -charset switches require -manual");
+	}
+//  
+//  If one of the C++ variants was used/discovered, convert to C++ for
+//  further internal use.
+//  
+
+	if (sw_language == lang_cpp || sw_language == lang_cplusplus)
+		sw_language = lang_cxx;
+
+#ifdef ALSYS_ADA
+	if (sw_alsys) {
+		for (src_ext_tab = dml_ext_table;; src_ext_tab++)
+			if (src_ext_tab->ext_in_sw == IN_SW_GPRE_ALSYS)
+				break;
+	}
+#endif
+
+#ifdef VMS
+//  
+//  If we're on VMS, we may have an RMS sequential file rather than
+//  a stream file, and keeping track of our place will be harder.
+//  So... for VMS, copy the input to a stream file.
+//  
+//  If this is Alpha OpenVMS, then we also have to do some more
+//  work, since RMS is a little different...
+//  
+
+#ifndef __ALPHA
+	temp = (IB_FILE *) gds__temp_file(TRUE, "temp", 0);
+	strcpy(temp_name, "temporary file");
+#else
+	temp = (IB_FILE *) gds__temp_file(TRUE, "temp", temp_name);
+#endif
+	if (temp != (IB_FILE *) - 1) {
+		while ((c = get_char(input_file)) != EOF)
+			ib_putc(c, temp);
+		ib_fclose(input_file);
+#ifdef __ALPHA
+		ib_fclose(temp);
+		temp = ib_fopen(temp_name, FOPEN_READ_TYPE);
+#endif
+	}
+	else {
+		ib_fprintf(ib_stderr, "gpre: can't open %s\n", temp_name);
+		CPR_exit(FINI_ERROR);
+	}
+
+	input_file = temp;
+#endif
+
+#ifdef COBOL
+//  if cobol is defined we need both sw_cobol and sw_ansi to
+//  determine how the string substitution table is set up
+//  
+
+	if (sw_language == lang_cobol)
+		if (sw_ansi) {
+			if (db)
+				db->dbb_name->sym_string = "isc-database";
+			comment_start = "      *  ";
+			ident_pattern = "isc-%d";
+			transaction_name = "isc-trans";
+			database_name = "isc-database";
+			utility_name = "isc-utility";
+			count_name = "isc-count";
+			slack_name = "isc-slack";
+		}
+		else
+			comment_start = "*      ";
+
+	COB_name_init(sw_ansi);
+#endif
+
+//  
+//  See if user has specified an interpretation on the command line,
+//  as might be used for SQL access.
+//  
+
+	if (default_lc_ctype) {
+		if (all_digits(default_lc_ctype)) {
+			/* Numeric name? if so assume user has hard-coded a subtype number */
+
+			sw_interp = atoi(default_lc_ctype);
+			sw_know_interp = TRUE;
+		}
+		else if (compare_ASCII7z(default_lc_ctype, "DYNAMIC") == 0) {
+			/* Dynamic means use the interpretation declared at runtime */
+
+			sw_interp = ttype_dynamic;
+			sw_know_interp = TRUE;
+		}
+		else if (isc_databases) {
+			/* Name resolution done by MET_load_hash_table */
+
+			isc_databases->dbb_c_lc_ctype = default_lc_ctype;
+		}
+	}
+
+//  
+//  Finally, open the output file, if we're not using standard out.
+//  If only one file name was given, make sure it has the preprocessor
+//  extension, then back up to that extension, zorch it, and add
+//  the language extension. Then you've got an output name.  Take it
+//  and add the correct extension.  If got an explicit output file
+//  name, use it as is unless it doesn't have an extension in which
+//  case use the default language extension.  Finally, open the file.
+//  What could be easier?
+//  
+
+	if (!sw_standard_out) {
+		renamed = explicit_ = TRUE;
+		if (!out_file_name) {
+			out_file_name = spare_out_file_name;
+			strcpy(spare_out_file_name, file_name);
+			if (renamed =
+				file_rename(spare_out_file_name, src_ext_tab->in,
+							src_ext_tab->out)) explicit_ = FALSE;
+		}
+
+		if (renamed) {
+			for (p = out_file_name; *p; p++);
+#ifdef VMS
+			while (p != out_file_name && *p != '.' && *p != ']')
+#else
+			while (p != out_file_name && *p != '.' && *p != '/')
+#endif
+				p--;
+			if (!explicit_)
+				*p = 0;
+
+			if (*p != '.') {
+				strcpy(spare_out_file_name, out_file_name);
+				out_file_name = spare_out_file_name;
+				file_rename(out_file_name, src_ext_tab->out, NULL);
+			}
+		}
+
+		if (!(strcmp(out_file_name, file_name))) {
+			ib_fprintf(ib_stderr,
+					   "gpre: output file %s would duplicate input\n",
+					   out_file_name);
+			CPR_exit(FINI_ERROR);
+		}
+		if ((out_file = ib_fopen(out_file_name, FOPEN_WRITE_TYPE)) == NULL) {
+			ib_fprintf(ib_stderr, "gpre: can't open output file %s\n",
+					   out_file_name);
+			CPR_exit(FINI_ERROR);
+		}
+	}
+
+//  Compile modules until end of file 
+
+	sw_databases = isc_databases;
+
+	if (!setjmp(fatal_env))
+		for (end_position = 0; end_position = compile_module(end_position););
+
+#ifdef FTN_BLK_DATA
+	if (sw_language == lang_fortran)
+		FTN_fini();
+#endif
+
+	MET_fini(0);
+	ib_fclose(input_file);
+#ifdef VMS
+#ifdef __ALPHA
+	delete(temp_name);
+#endif
+#endif
+
+	if (!sw_standard_out) {
+		ib_fclose(out_file);
+		if (errors)
+			unlink(out_file_name);
+	}
+
+	if (errors || warnings) {
+		if (!errors)
+			ib_fprintf(ib_stderr, "No errors, ");
+		else if (errors == 1)
+			ib_fprintf(ib_stderr, "1 error, ");
+		else
+			ib_fprintf(ib_stderr, "%3d errors, ", errors);
+		if (!warnings)
+			ib_fprintf(ib_stderr, "no warnings\n");
+		else if (warnings == 1)
+			ib_fprintf(ib_stderr, "1 warning\n");
+		else
+			ib_fprintf(ib_stderr, "%3d warnings\n", warnings);
+	}
+
+	CPR_exit((errors) ? FINI_ERROR : FINI_OK);
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Abort this silly program.
+//  
+
+void CPR_abort()
+{
+
+	++fatals;
+	longjmp(fatal_env, 1);
+}
+
+
+#ifdef DEV_BUILD
+//____________________________________________________________
+//  
+//		Report an assertion failure and abort this silly program.
+//  
+
+void CPR_assert( TEXT * file, int line)
+{
+	TEXT buffer[200];
+
+	sprintf(buffer, "GPRE assertion failure file '%s' line '%d'", file, line);
+	CPR_bugcheck(buffer);
+}
+#endif
+
+
+//____________________________________________________________
+//  
+//		Issue an error message.
+//  
+
+void CPR_bugcheck( TEXT * string)
+{
+
+	ib_fprintf(ib_stderr, "*** INTERNAL BUGCHECK: %s ***\n", string);
+	MET_fini(0);
+	CPR_abort();
+}
+
+
+//____________________________________________________________
+//  
+//       Mark end of a text description.
+//  
+
+void CPR_end_text( TXT text)
+{
+
+	text->txt_length = (USHORT) (token.tok_position - text->txt_position - 1);
+}
+
+
+//____________________________________________________________
+//  
+//		Issue an error message.
+//  
+
+int CPR_error( TEXT * string)
+{
+
+	ib_fprintf(ib_stderr, "(E) %s:%d: %s\n", file_name, line + 1, string);
+	errors++;
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Exit with status.
+//  
+
+void CPR_exit( int stat)
+{
+#ifdef LINUX
+
+	if (trace_file_name[0])
+	 {
+
+		if (trace_file)
+
+			ib_fclose(trace_file);
+
+		unlink(trace_file_name);
+
+	}
+
+#else
+
+	if (trace_file)
+
+		ib_fclose(trace_file);
+
+	if (trace_file_name[0])
+
+		unlink(trace_file_name);
+
+#endif
+
+	exit(stat);
+}
+
+
+//____________________________________________________________
+//  
+//		Issue an warning message.
+//  
+
+void CPR_warn( TEXT * string)
+{
+
+	ib_fprintf(ib_stderr, "(W) %s:%d: %s\n", file_name, line + 1, string);
+	warnings++;
+}
+
+
+//____________________________________________________________
+//  
+//		Fortran, being a line oriented language, sometimes needs
+//		to know when it is at end of line to avoid parsing into the
+//		next statement.  CPR_eol_token normally gets the next token,
+//		but if the language is FORTRAN and there isn't anything else
+//		on the line, it fakes a dummy token to indicate end of line.
+//  
+
+TOK CPR_eol_token()
+{
+	SSHORT c, peek;
+	SSHORT num_chars;
+	TEXT *p;
+
+	if (sw_language != lang_fortran && sw_language != lang_basic)
+		return CPR_token();
+
+//  Save the information from the previous token 
+
+	prior_token = token;
+	prior_token.tok_position = last_position;
+
+	last_position =
+		token.tok_position + token.tok_length + token.tok_white_space - 1;
+	p = token.tok_string;
+	num_chars = 0;
+
+//  skip spaces 
+
+	for (c = nextchar(); c == ' '; c = nextchar()) {
+		num_chars++;
+		*p++ = (TEXT) c;
+	}
+
+//  in-line comments are equivalent to end of line 
+
+	if (c == '!')
+		while (c != '\n' && c != EOF) {
+			c = nextchar();
+			num_chars++;
+		}
+
+//  in-line SQL comments are equivalent to end of line 
+
+	if (sw_sql && (c == '-')) {
+		peek = nextchar();
+		if (peek != '-')
+			return_char(peek);
+		else {
+			while (c != '\n' && c != EOF) {
+				c = nextchar();
+				num_chars++;
+			}
+			last_position = position - 1;
+		}
+	}
+
+	if (c == EOF) {
+		token.tok_symbol = NULL;
+		token.tok_keyword = KW_none;
+		return NULL;
+	}
+
+//  Not EOL so back up to the begining and try again 
+
+	if (c != '\n') {
+		return_char(c);
+		while (--num_chars > 0)
+			return_char(*--p);
+		return CPR_token();
+	}
+
+//  if we've got EOL, treat it like a semi-colon 
+//  NOTE: the fact that the length of this token is set to 0, is used as an
+//  indicator elsewhere that it was a faked token 
+
+	token.tok_string[0] = ';';
+	token.tok_string[1] = 0;
+	token.tok_type = tok_punct;
+	token.tok_length = 0;
+	token.tok_white_space = 0;
+	token.tok_position = position;
+	token.tok_symbol = HSH_lookup(token.tok_string);
+	token.tok_keyword = (KWWORDS) token.tok_symbol->sym_keyword;
+
+	if (sw_trace)
+		ib_puts(token.tok_string);
+
+	return &token;
+}
+
+
+//____________________________________________________________
+//  
+//       Write text from the scratch trace file into a buffer.
+//  
+
+void CPR_get_text( TEXT * buffer, TXT text)
+{
+	SLONG start;
+	int length;
+	TEXT *p;
+
+	start = text->txt_position;
+	length = text->txt_length;
+
+//  On PC-like platforms, '\n' will be 2 bytes.  The txt_position
+//  will be incorrect for ib_fseek.  The position is not adjusted
+//  just for PC-like platforms because, we use ib_fseek () and
+//  ib_getc to position ourselves at the token position.
+//  We should keep both character position and byte position
+//  and use them appropriately. for now use ib_getc ()
+//  
+
+#if (defined WIN_NT || defined PC_PLATFORM)
+	if (ib_fseek(trace_file, 0L, 0))
+#else
+	if (ib_fseek(trace_file, start, 0))
+#endif
+	{
+		ib_fseek(trace_file, 0L, 2);
+		CPR_error("ib_fseek failed for trace file");
+	}
+#if (defined WIN_NT || defined PC_PLATFORM)
+//  move forward to actual position 
+
+	while (start--)
+		ib_getc(trace_file);
+#endif
+
+	p = buffer;
+	while (length--)
+		*p++ = ib_getc(trace_file);
+	ib_fseek(trace_file, (SLONG) 0, 2);
+}
+
+
+//____________________________________________________________
+//  
+//       A BASIC-specific function which resides here since it reads from
+//       the input file.  Look for a '\n' with no continuation character (&).
+//       Eat tokens until previous condition is satisfied.
+//       This function is used to "eat" an BASIC external function definition.
+//  
+
+void CPR_raw_read()
+{
+	SSHORT c;
+	SCHAR token_string[MAXSYMLEN];
+	SCHAR *p;
+	BOOLEAN continue_char;
+
+	p = token_string;
+	continue_char = FALSE;
+
+	while (c = get_char(input_file)) {
+		position++;
+		if ((classes[c] == CHR_WHITE) && sw_trace && token_string) {
+			*p = 0;
+			ib_puts(token_string);
+			token_string[0] = 0;
+			p = token_string;
+		}
+		else
+			*p++ = (SCHAR) c;
+
+		if (c = '\n') {
+			line++;
+			line_position = 0;
+			if (!continue_char)
+				return;
+			continue_char = FALSE;
+		}
+		else {
+			line_position++;
+			if (classes[c] != CHR_WHITE)
+				continue_char = (KEYWORD(KW_AMPERSAND)) ? TRUE : FALSE;
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a syntax error.
+//  
+
+void CPR_s_error( TEXT * string)
+{
+	TEXT s[512];
+
+	sprintf(s, "expected %s, encountered \"%s\"", string, token.tok_string);
+	CPR_error(s);
+	PAR_unwind();
+}
+
+
+//____________________________________________________________
+//  
+//       Make the current position to save description text.
+//  
+
+TXT CPR_start_text()
+{
+	TXT text;
+
+	text = (TXT) ALLOC(TXT_LEN);
+	text->txt_position = token.tok_position - 1;
+
+	return text;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse and return the next token.
+//		If the token is a charset introducer, gobble it, grab the
+//		next token, and flag that token as being in a non-default
+//		character set.
+//  
+
+TOK CPR_token()
+{
+	TOK tok;
+	SYM symbol;
+
+	tok = get_token();
+	if (tok && tok->tok_type == tok_introducer) {
+		if (!
+			(symbol =
+			 MSC_find_symbol(HSH_lookup(tok->tok_string + 1), SYM_charset))) {
+			TEXT err_buffer[100];
+
+			sprintf(err_buffer, "Character set not recognized: '%.50s'",
+					tok->tok_string);
+			CPR_error(err_buffer);
+		}
+		tok = get_token();
+		switch (sw_sql_dialect) {
+		case 1:
+			if (!(QUOTED(tok->tok_type)))
+				CPR_error("Can only tag quoted strings with character set");
+			else
+				tok->tok_charset = symbol;
+			break;
+
+		default:
+			if (!(SINGLE_QUOTED(tok->tok_type)))
+				CPR_error("Can only tag quoted strings with character set");
+			else
+				tok->tok_charset = symbol;
+			break;
+
+		}
+	}
+
+	return tok;
+}
+
+
+//____________________________________________________________
+//  
+//		Return TRUE if the string consists entirely of digits.
+//  
+
+static BOOLEAN all_digits(char *str1)
+{
+
+	for (; *str1; str1++)
+		if (!(classes[*str1] & CHR_DIGIT))
+			return FALSE;
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//       Check the command line argument which follows
+//       a switch which requires a string argument.
+//       If there is a problem, explain and return.
+//  
+
+static arg_is_string( SLONG argc, TEXT ** argvstring, TEXT * errstring)
+{
+	TEXT *str;
+
+	str = *++argvstring;
+
+	if (!argc || *str == '-') {
+		ib_fprintf(ib_stderr, "%s", errstring);
+		print_switches();
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Compare two ASCII 7-bit strings, case insensitive.
+//		Strings are null-byte terminated.
+//		Return 0 if strings are equal,
+//		(negative) if str1 < str2 
+//		(positive) if str1 > str2
+//  
+
+static SSHORT compare_ASCII7z( char *str1, char *str2)
+{
+
+	for (; *str1; str1++, str2++)
+		if (UPPER7(*str1) != UPPER7(*str2))
+			return (UPPER7(*str1) - UPPER7(*str2));
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Switches have been processed and files have been opened.
+//		Process a module and generate output.
+//  
+
+static SLONG compile_module( SLONG start_position)
+{
+	SLONG end_position;
+	REQ request;
+#ifdef __BORLANDC__
+	SCHAR *p;
+#endif
+
+//  Reset miscellaneous pointers 
+
+	isc_databases = sw_databases;
+	requests = NULL;
+	events = NULL;
+	last_action = first_action = functions = NULL;
+
+//  Position the input file and initialize various modules 
+
+	ib_fseek(input_file, start_position, 0);
+	input_char = input_buffer;
+
+#if !(defined WIN_NT || defined PC_PLATFORM)
+	trace_file = (IB_FILE *) gds__temp_file(TRUE, SCRATCH, 0);
+#else
+#ifndef __BORLANDC__
+//  PC-like platforms can't delete a file that is open.  Therefore
+//  we will save the name of the temp file for later deletion. 
+
+	trace_file = (IB_FILE *) gds__temp_file(TRUE, SCRATCH, trace_file_name);
+#else
+//  When using Borland C, routine gds__temp_file is in a DLL which maps
+//  a set of I/O handles that are different from the ones in the GPRE
+//  process!  So we will get a temp name on our own.  [Note that
+//  gds__temp_file returns -1 on error, not 0] 
+
+	p = tempnam(NULL, SCRATCH);
+	strcpy(trace_file_name, p);
+	free(p);
+	trace_file = ib_fopen(trace_file_name, "w+");
+	if (!trace_file)
+		trace_file = (IB_FILE *) - 1;
+#endif
+#endif
+
+	if (trace_file == (IB_FILE *) - 1) {
+		trace_file = NULL;
+		CPR_error("Couldn't open scratch file");
+		return 0;
+	}
+
+	position = start_position;
+	MSC_init();
+	HSH_init();
+	PAR_init();
+	CMP_init();
+
+//  Take a first pass at the module 
+
+	end_position = pass1();
+
+//  finish up any based_ons that got deferred 
+
+	if (sw_language == lang_fortran)
+		finish_based(first_action);
+
+	MET_fini(NULL);
+	PAR_fini();
+
+	if (errors)
+		return end_position;
+
+	for (request = requests; request; request = request->req_next)
+		CMP_compile_request(request);
+
+	ib_fseek(input_file, start_position, 0);
+	input_char = input_buffer;
+
+	if (!errors)
+		pass2(start_position);
+
+	return end_position;
+}
+
+
+//____________________________________________________________
+//  
+//		Add the appropriate extension to a file
+//		name, if there's not one already.  If
+//		the "appropriate" one is there and a
+//		new extension is given, use it.
+//  
+
+static BOOLEAN file_rename(
+						   TEXT * file_name,
+						   TEXT * extension, TEXT * new_extension)
+{
+	TEXT *p, *q, *terminator, *ext;
+
+//  go to the end of the file name 
+
+	for (p = file_name; *p; p++);
+	terminator = p;
+
+//  back up to the last extension (if any) 
+
+#ifdef VMS
+	while ((p != file_name) && (*p != '.') && (*p != ']'))
+#else
+#if defined(WIN_NT)
+	while ((p != file_name) && (*p != '.') && (*p != '/') && (*p != '\\'))
+#else
+	while ((p != file_name) && (*p != '.') && (*p != '/'))
+#endif
+#endif
+		p--;
+
+//  
+//  There's a match and the file spec has no extension, 
+//  so add extension.  
+//  
+
+	if (*p != '.') {
+		while (*terminator++ = *extension++);
+		return TRUE;
+	}
+
+//  
+//  There's a match and an extension.  If the extension in 
+//  the table matches the one on the file, we don't want 
+//  to add a duplicate.  Otherwise add it.
+//  
+
+	ext = p;
+	for (q = extension; SAME(p, q); p++, q++)
+		if (!*p) {
+			if (new_extension)
+				while (*ext++ = *new_extension++);
+			return FALSE;
+		}
+
+#ifndef VMS
+//  Didn't match extension, so add the extension 
+	while (*terminator++ = *extension++);
+#endif
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Scan through the based_on actions
+//		looking for ones that were deferred
+//       because we didn't have a database yet.
+//  
+//		Look at each action in turn, and if it's
+//		a based_on with a field name rather than a
+//		field block pointer, complete the name parse.
+//		If there's a database name, find the database,
+//		then the relation within the database, then
+//     	the field.  Otherwise, look through all databases
+//       for the relation.
+//  
+
+static void finish_based( ACT action)
+{
+	DBB db;
+	REL relation;
+	FLD field;
+	BAS based_on;
+	SYM symbol;
+	TEXT s[128];
+
+	for (; action; action = action->act_rest) {
+		if (action->act_type != ACT_basedon)
+			continue;
+
+		/* If there are no databases either on the command line or in
+		   this subroutine or main program, can't do a BASED_ON. */
+
+		if (!isc_databases) {
+			CPR_error
+				("No database defined.  Needed for a BASED_ON operation");
+			continue;
+		}
+
+		based_on = (BAS) action->act_object;
+		if (!based_on->bas_fld_name)
+			continue;
+
+		db = NULL;
+		if (based_on->bas_db_name) {
+			symbol = HSH_lookup((SCHAR *) based_on->bas_db_name);
+			for (; symbol; symbol = symbol->sym_homonym)
+				if (symbol->sym_type == SYM_database)
+					break;
+
+			if (symbol) {
+				db = (DBB) symbol->sym_object;
+				relation =
+					MET_get_relation(db, (TEXT *) based_on->bas_rel_name, "");
+				if (!relation) {
+					sprintf(s, "relation %s is not defined in database %s",
+							based_on->bas_rel_name, based_on->bas_db_name);
+					CPR_error(s);
+					continue;
+				}
+				field = MET_field(relation, (char *) based_on->bas_fld_name);
+			}
+			else {
+				if (based_on->bas_flags & BAS_ambiguous) {
+					/* The reference could have been DB.RELATION.FIELD or
+					   RELATION.FIELD.SEGMENT.  It's not the former.  Try
+					   the latter. */
+
+					based_on->bas_fld_name = based_on->bas_rel_name;
+					based_on->bas_rel_name = based_on->bas_db_name;
+					based_on->bas_db_name = NULL;
+					based_on->bas_flags |= BAS_segment;
+				}
+				else {
+					sprintf(s, "database %s is not defined",
+							based_on->bas_db_name);
+					CPR_error(s);
+					continue;
+				}
+			}
+		}
+
+		if (!db) {
+			field = NULL;
+			for (db = isc_databases; db; db = db->dbb_next)
+				if (relation =
+					MET_get_relation(db, (TEXT *) based_on->bas_rel_name, "")) {
+					if (field) {
+						/* The field reference is ambiguous.  It exists in more
+						   than one database. */
+
+						sprintf(s, "field %s in relation %s ambiguous",
+								based_on->bas_fld_name,
+								based_on->bas_rel_name);
+						CPR_error(s);
+						break;
+					}
+					field =
+						MET_field(relation, (char *) based_on->bas_fld_name);
+				}
+
+			if (db)
+				continue;
+			if (!relation && !field) {
+				sprintf(s, "relation %s is not defined",
+						based_on->bas_rel_name);
+				CPR_error(s);
+				continue;
+			}
+		}
+
+		if (!field) {
+			sprintf(s, "field %s is not defined in relation %s",
+					based_on->bas_fld_name, based_on->bas_rel_name);
+			CPR_error(s);
+			continue;
+		}
+
+		if ((based_on->bas_flags & BAS_segment)
+			&& !(field->fld_flags & FLD_blob)) {
+			sprintf(s, "field %s is not a blob",
+					field->fld_symbol->sym_string);
+			CPR_error(s);
+			continue;
+		}
+
+		based_on->bas_field = field;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Return a character to the input stream.
+//  
+
+static get_char( IB_FILE * file)
+{
+	if (input_char != input_buffer) {
+		return (int) *--input_char;
+
+	}
+	else
+	{
+		const USHORT pc = ib_getc(file);
+
+//  Dump this char to stderr, so we can see
+//  what input line will cause this ugly
+//  core dump.
+//  FSG 14.Nov.2000 
+		if (sw_verbose) {
+			ib_fprintf(ib_stderr, "%c", pc);
+		}
+		return pc;
+	}
+
+
+}
+
+
+//____________________________________________________________
+//  
+//  
+//  Parse the input line arguments, saving
+//  interesting switches in a switch table.
+//  The first entry in the switch table is 
+//  reserved for the language, and is set
+//  later, even if specified here.
+//  
+
+static BOOLEAN get_switches(int			argc,
+							TEXT**		argv,
+							IN_SW_TAB	in_sw_table,
+							SW_TAB		sw_table,
+							TEXT**		file_array)
+{
+	TEXT *p, *q, *string;
+	IN_SW_TAB in_sw_tab;
+	SW_TAB sw_tab;
+	USHORT in_sw;
+
+//  
+//  Read all the switches and arguments, acting only on those
+//  that apply immediately, since we may find out more when
+//  we try to open the file. 
+//  
+
+	sw_tab = sw_table;
+
+	for (--argc; argc; argc--)
+	{
+		string = *++argv;
+		if (*string != '?')
+		{
+			if (*string != '-')
+			{
+				if (!file_array[1])
+				{
+					if (!file_array[0]) {
+						file_array[0] = string;
+					} else {
+						file_array[1] = string;
+					}
+					continue;
+				}
+				else
+				{
+					// both input and output files have been defined, hence
+					// there is an unknown switch
+					in_sw = IN_SW_GPRE_0;
+				}
+			}
+			else
+			{
+				/* iterate through the switch table, looking for matches */
+
+				sw_tab++;
+				sw_tab->sw_in_sw = IN_SW_GPRE_0;
+				for (in_sw_tab = in_sw_table; q = in_sw_tab->in_sw_name;
+					 in_sw_tab++) {
+					p = string + 1;
+
+					/* handle orphaned hyphen case */
+
+					if (!*p--)
+						break;
+
+					/* compare switch to switch name in table */
+
+					while (*p) {
+						if (!*++p) {
+							sw_tab->sw_in_sw = (gpre_cmd_switch)in_sw_tab->in_sw;
+						}
+						if (UPPER7(*p) != *q++) {
+							break;
+						}
+					}
+					/* end of input means we got a match.  stop looking */
+
+					if (!*p)
+						break;
+				}
+				in_sw = sw_tab->sw_in_sw;
+			}
+		}
+
+		/*
+		 * Check here for switches that affect file look ups
+		 * and -D so we don't lose their arguments.
+		 * Give up here if we find a bad switch.
+		 */
+
+		if (*string == '?') {
+			in_sw = IN_SW_GPRE_0;
+		}
+
+		switch (in_sw) {
+		case IN_SW_GPRE_C:
+			sw_language = lang_c;
+			sw_tab--;
+			break;
+
+		case IN_SW_GPRE_CXX:
+			sw_language = lang_cxx;
+			sw_tab--;
+			break;
+
+		case IN_SW_GPRE_CPLUSPLUS:
+			sw_language = lang_cplusplus;
+			sw_tab--;
+			break;
+
+		case IN_SW_GPRE_G:
+			sw_language = lang_internal;
+			sw_tab--;
+			break;
+
+		case IN_SW_GPRE_F:
+			sw_language = lang_fortran;
+			sw_tab--;
+			break;
+
+		case IN_SW_GPRE_P:
+			sw_language = lang_pascal;
+			sw_tab--;
+			break;
+
+		case IN_SW_GPRE_X:
+			sw_external = TRUE;
+			sw_tab--;
+			break;
+
+		case IN_SW_GPRE_BAS:
+			sw_language = lang_basic;
+			sw_tab--;
+			break;
+
+		case IN_SW_GPRE_PLI:
+			sw_language = lang_pli;
+			sw_tab--;
+			break;
+
+		case IN_SW_GPRE_COB:
+			sw_language = lang_cobol;
+			sw_tab--;
+			break;
+
+		case IN_SW_GPRE_D:
+			if (!arg_is_string
+				(--argc, argv,
+				 "Command line syntax: -d requires database name:\n ")) return
+					FALSE;
+
+			file_array[2] = *++argv;
+			string = *argv;
+			if (*string == '=')
+				if (!arg_is_string
+					(--argc, argv,
+					 "Command line syntax: -d requires database name:\n "))
+						return FALSE;
+				else
+					file_array[2] = *++argv;
+			break;
+
+		case IN_SW_GPRE_HANDLES:
+			if (!arg_is_string(
+					--argc,
+					argv,
+					"Command line syntax: -h requires handle package name\n"))
+			{
+					return FALSE;
+			}
+			strcpy(ada_package, *++argv);
+			strcat(ada_package, ".");
+			break;
+
+		case IN_SW_GPRE_SQLDA:
+			if (!arg_is_string(
+					--argc,
+					argv,
+					"Command line syntax: -sqlda requires NEW\n "))
+			{
+				return FALSE;
+			}
+
+			if (**argv != 'n' || **argv != 'N') {
+				ib_fprintf(ib_stderr,
+						   "-sqlda :  Deprecated Feature: you must use XSQLDA\n ");
+				print_switches();
+				return FALSE;
+			}
+			break;
+
+		case IN_SW_GPRE_SQLDIALECT:
+			{
+				int inp;
+				if (!arg_is_string(
+						--argc,
+						argv,
+						"Command line syntax: -SQL_DIALECT requires value 1, 2 or 3 \n "))
+				{
+					return FALSE;
+				}
+				++argv;
+				inp = atoi(*argv);
+				if (inp < 1 || inp > 3) {
+					ib_fprintf(ib_stderr,
+							   "Command line syntax: -SQL_DIALECT requires value 1, 2 or 3 \n ");
+					print_switches();
+					return FALSE;
+				}
+				else {
+					sw_sql_dialect = inp;
+				}
+				dialect_specified = 1;
+				break;
+			}
+
+		case IN_SW_GPRE_Z:
+			if (!sw_version) {
+				ib_printf("gpre version %s\n", GDS_VERSION);
+			}
+			sw_version = TRUE;
+			break;
+
+		case IN_SW_GPRE_0:
+			if (*string != '?') {
+				ib_fprintf(ib_stderr, "gpre: unknown switch %s\n", string);
+			}
+			print_switches();
+			return FALSE;
+
+		case IN_SW_GPRE_USER:
+			if (!arg_is_string(
+					--argc,
+					argv,
+					"Command line syntax: -user requires user name string:\n "))
+			{
+				return FALSE;
+			}
+			default_user = *++argv;
+			break;
+
+		case IN_SW_GPRE_PASSWORD:
+			if (!arg_is_string(
+					--argc,
+					argv,
+					"Command line syntax: -password requires password string:\n "))
+			{
+				return FALSE;
+			}
+			default_password = *++argv;
+			break;
+
+		case IN_SW_GPRE_INTERP:
+			if (!arg_is_string(
+					--argc,
+					argv,
+					"Command line syntax: -charset requires character set name:\n "))
+			{
+				return FALSE;
+			}
+			default_lc_ctype = (TEXT *) * ++argv;
+			break;
+
+		}
+	}
+
+	sw_tab++;
+	sw_tab->sw_in_sw = IN_SW_GPRE_0;
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse and return the next token.
+//  
+
+static TOK get_token()
+{
+	SSHORT c, c1, c2, next;
+	USHORT peek, label;
+	TEXT *p, *end;
+	UCHAR class_;
+	SYM symbol;
+	SLONG start_position;
+	int start_line;
+
+//  Save the information from the previous token 
+
+	prior_token = token;
+	prior_token.tok_position = last_position;
+
+	label = FALSE;
+	last_position =
+		token.tok_position + token.tok_length + token.tok_white_space - 1;
+	start_line = line;
+	start_position = position;
+	token.tok_charset = NULL;
+
+	if (sw_sql && sw_language == lang_basic)
+		classes['\n'] = 0;
+
+	c = skip_white();
+
+	if (sw_sql && sw_language == lang_basic)
+		classes['\n'] = CHR_WHITE;
+
+#ifdef BASIC
+//  if BASIC language using SQL, '\n' = ';' unless preceeded by & 
+	if ((c == '\n') && (sw_language == lang_basic)) {
+		token.tok_string[0] = ';';
+		token.tok_string[1] = 0;
+		token.tok_type = tok_punct;
+		token.tok_position = start_position + 1;
+		token.tok_length = 0;
+		token.tok_symbol = HSH_lookup(token.tok_string);
+		token.tok_keyword = token.tok_symbol->sym_keyword;
+		return &token;
+	}
+#endif
+
+#ifdef COBOL
+//  Skip over cobol line continuation characters 
+	if (sw_language == lang_cobol && !sw_ansi)
+		while (line_position == 1) {
+			c = skip_white();
+			start_line = line;
+		}
+#endif
+
+//  Skip fortran line continuation characters 
+
+	if (sw_language == lang_fortran) {
+		while (line_position == 6) {
+			c = skip_white();
+			start_line = line;
+		}
+		if (sw_sql && line != start_line) {
+			return_char(c);
+			token.tok_string[0] = ';';
+			token.tok_string[1] = 0;
+			token.tok_type = tok_punct;
+			token.tok_length = 0;
+			token.tok_white_space = 0;
+			token.tok_position = start_position + 1;
+			token.tok_symbol = HSH_lookup(token.tok_string);
+			token.tok_keyword = (KWWORDS) token.tok_symbol->sym_keyword;
+			return &token;
+		}
+	}
+
+//  Get token rolling 
+
+	p = token.tok_string;
+	end = p + sizeof(token.tok_string);
+	*p++ = (TEXT) c;
+
+	if (c == EOF) {
+		token.tok_symbol = NULL;
+		token.tok_keyword = KW_none;
+		return NULL;
+	}
+
+	token.tok_position = position;
+	token.tok_white_space = 0;
+	class_ = classes[c];
+
+	if ((sw_language == lang_ada) && (c == '\'')) {
+		c1 = nextchar();
+		c2 = nextchar();
+		if (c2 != '\'')
+			class_ = CHR_LETTER;
+		return_char(c2);
+		return_char(c1);
+	}
+
+	if (sw_sql && (class_ & CHR_INTRODUCER)) {
+		while (classes[c = nextchar()] & CHR_IDENT)
+			if (p < end)
+				*p++ = (TEXT) c;
+		return_char(c);
+		token.tok_type = tok_introducer;
+	}
+	else if (class_ & CHR_LETTER) {
+		while (TRUE) {
+#if (! (defined JPN_EUC || defined JPN_SJIS) )
+			while (classes[c = nextchar()] & CHR_IDENT)
+				*p++ = (TEXT) c;
+#else
+			p--;
+			while (TRUE) {
+				if (KANJI1(c)) {
+					/* If it is a double byte kanji either EUC or SJIS
+					   then handle both the bytes together */
+
+					*p++ = c;
+					c = nextchar();
+					if (!KANJI2(c)) {
+						c = *(--p);
+						break;
+					}
+					else
+						*p++ = c;
+				}
+				else {
+#ifdef JPN_SJIS
+					if ((SJIS_SINGLE(c)) || (classes[c] & CHR_IDENT))
+#else
+					if (classes[c] & CHR_IDENT)
+#endif
+						*p++ = c;
+					else
+						break;
+				}
+				c = nextchar();
+			}
+#endif /* JPN_SJIS || JPN_EUC */
+			if (c != '-' || sw_language != lang_cobol)
+				break;
+			if (sw_language == lang_cobol && sw_ansi)
+				*p++ = (TEXT) c;
+			else
+				*p++ = '_';
+		}
+		return_char(c);
+		token.tok_type = tok_ident;
+	}
+	else if (class_ & CHR_DIGIT) {
+		if (sw_language == lang_fortran && line_position < 7)
+			label = TRUE;
+		while (classes[c = nextchar()] & CHR_DIGIT)
+			*p++ = (TEXT) c;
+		if (label) {
+			*p = 0;
+			remember_label(token.tok_string);
+		}
+		if (c == '.') {
+			*p++ = (TEXT) c;
+			while (classes[c = nextchar()] & CHR_DIGIT)
+				*p++ = (TEXT) c;
+		}
+		if (!label && (c == 'E' || c == 'e')) {
+			*p++ = (TEXT) c;
+			c = nextchar();
+			if (c == '+' || c == '-')
+				*p++ = (TEXT) c;
+			else
+				return_char(c);
+			while (classes[c = nextchar()] & CHR_DIGIT)
+				*p++ = (TEXT) c;
+		}
+		return_char(c);
+		token.tok_type = tok_number;
+	}
+	else if ((class_ & CHR_QUOTE) || (class_ & CHR_DBLQUOTE)) {
+		token.tok_type = (class_ & CHR_QUOTE) ? tok_quoted : tok_dblquoted;
+		for (;;) {
+			next = nextchar();
+			if (sw_language == lang_cobol && sw_ansi && next == '\n') {
+				if (prior_line_position == 73) {
+					/* should be a split literal */
+					next = skip_white();
+					if (next != '-' || line_position != 7) {
+						CPR_error("unterminated quoted string");
+						break;
+					}
+					next = skip_white();
+					if (next != c) {
+						CPR_error("unterminated quoted string");
+						break;
+					}
+					next = nextchar();
+					token.tok_white_space += line_position - 1;
+				}
+				else {
+					CPR_error("unterminated quoted string");
+					break;
+				}
+			}
+			else if (next == EOF
+					 || (next == '\n' && (p[-1] != '\\' || sw_sql))) {
+				return_char(*p);
+
+				/*  Decrement, then increment line counter, for accuracy of 
+				   the error message for an unterminated quoted string. */
+
+				line--;
+				CPR_error("unterminated quoted string");
+				line++;
+				break;
+			}
+
+			/* If we can hold the literal do so, else assume it is in part
+			   of program we do not care about */
+
+			if (next == '\\' &&
+				!sw_sql &&
+				((sw_language == lang_c) || (sw_language == lang_cxx)))
+			{
+				peek = nextchar();
+				if (peek == '\n') {
+					token.tok_white_space += 2;
+				} else if (p < end) {
+					*p++ = (TEXT) next;
+					if (p < end) {
+						*p++ = (TEXT) peek;
+					}
+				}
+				continue;
+			}
+			if (p < end)
+				*p++ = (TEXT) next;
+			if (next == c)
+				/* If 2 quotes in a row, treat 2nd as literal - bug #1530 */
+			{
+				peek = nextchar();
+				if (peek != c) {
+					return_char(peek);
+					break;
+				}
+				else
+					token.tok_white_space++;
+			}
+		}
+	}
+	else if (c == '.') {
+		if (classes[c = nextchar()] & CHR_DIGIT) {
+			*p++ = (TEXT) c;
+			while (classes[c = nextchar()] & CHR_DIGIT)
+				*p++ = (TEXT) c;
+			if ((c == 'E' || c == 'e')) {
+				*p++ = (TEXT) c;
+				c = nextchar();
+				if (c == '+' || c == '-')
+					*p++ = (TEXT) c;
+				else
+					return_char(c);
+				while (classes[c = nextchar()] & CHR_DIGIT)
+					*p++ = (TEXT) c;
+			}
+			return_char(c);
+			token.tok_type = tok_number;
+		}
+		else {
+			return_char(c);
+			token.tok_type = tok_punct;
+			*p++ = nextchar();
+			*p = 0;
+			if (!HSH_lookup(token.tok_string))
+				return_char(*--p);
+		}
+	}
+	else {
+		token.tok_type = tok_punct;
+		*p++ = nextchar();
+		*p = 0;
+		if (!HSH_lookup(token.tok_string))
+			return_char(*--p);
+	}
+
+	token.tok_length = p - token.tok_string;
+	*p++ = 0;
+	if (QUOTED(token.tok_type)) {
+		STRIP_QUOTES(token)
+	/** If the dialect is 1 then anything that is quoted is
+	a string. Don not lookup in the hash table to prevent 
+	parsing confusion. 
+    **/
+			if (sw_sql_dialect != 1)
+			token.tok_symbol = symbol = HSH_lookup(token.tok_string);
+		else
+			token.tok_symbol = symbol = NULL;
+		if (symbol && symbol->sym_type == SYM_keyword)
+			token.tok_keyword = (KWWORDS) symbol->sym_keyword;
+		else
+			token.tok_keyword = KW_none;
+	}
+	else if (sw_case) {
+		if (!override_case) {
+			token.tok_symbol = symbol = HSH_lookup2(token.tok_string);
+			if (symbol && symbol->sym_type == SYM_keyword)
+				token.tok_keyword = (KWWORDS) symbol->sym_keyword;
+			else
+				token.tok_keyword = KW_none;
+		}
+		else {
+			token.tok_symbol = symbol = HSH_lookup(token.tok_string);
+			if (symbol && symbol->sym_type == SYM_keyword)
+				token.tok_keyword = (KWWORDS) symbol->sym_keyword;
+			else
+				token.tok_keyword = KW_none;
+			override_case = 0;
+		}
+	}
+	else {
+		token.tok_symbol = symbol = HSH_lookup(token.tok_string);
+		if (symbol && symbol->sym_type == SYM_keyword)
+			token.tok_keyword = (KWWORDS) symbol->sym_keyword;
+		else
+			token.tok_keyword = KW_none;
+	}
+
+// ** Take care of GDML context variables. Context variables are inserted 
+//into the hash table as it is. There is no upper casing of the variable 
+//name done. Hence in all likelyhood we might have missed it while looking it
+//up if -e switch was specified. Hence
+//IF symbol is null AND it is not a quoted string AND -e switch was specified
+//THEN search again using HSH_lookup2().
+//*  
+	if ((token.tok_symbol == NULL) && (!QUOTED(token.tok_type)) && sw_case) {
+		token.tok_symbol = symbol = HSH_lookup2(token.tok_string);
+		if (symbol && symbol->sym_type == SYM_keyword)
+			token.tok_keyword = (KWWORDS) symbol->sym_keyword;
+		else
+			token.tok_keyword = KW_none;
+	}
+
+#ifdef BASIC
+	if (sw_language == lang_basic) {
+		if ((int) token.tok_keyword == (int) KW_REM)
+			for (CPR_token;
+				 (token.tok_type != tok_number) || !token.tok_first;
+				 CPR_token());
+		if ((int) token.tok_keyword == (int) KW_BACK_SLASH) {
+			/* if BASIC, treat a '\' as a ';' */
+
+			token.tok_string[0] = ';';
+			token.tok_string[1] = 0;
+			token.tok_type = tok_punct;
+			token.tok_length = 0;
+			token.tok_position = start_position + 1;
+			token.tok_symbol = HSH_lookup(token.tok_string);
+			token.tok_keyword = token.tok_symbol->sym_keyword;
+		}
+	}
+#endif
+
+//  for FORTRAN, make note of the first token in a statement 
+
+	assert(first_position <= MAX_USHORT);
+	token.tok_first = (USHORT) first_position;
+	first_position = FALSE;
+
+	if (sw_trace)
+		ib_puts(token.tok_string);
+
+	if (sw_language == lang_basic
+		&& (int) token.tok_keyword == (int) KW_AMPERSAND) {
+		c = skip_white();
+		return_char(c);
+		return (CPR_token());
+	}
+
+	return &token;
+}
+
+
+//____________________________________________________________
+//  
+//		Get the next character from the input stream.
+//       Also, for Fortran, mark the beginning of a statement
+//  
+
+static nextchar()
+{
+	SSHORT c;
+
+	position++;
+	line_position++;
+	if ((c = get_char(input_file)) == '\n') {
+		line++;
+		prior_line_position = line_position;
+		line_position = 0;
+	}
+
+//  For silly fortran, mark the first token in a statement so
+//  we can decide to start the database field substitution string
+//  with a continuation indicator if appropriate. 
+
+	if (line_position == 1) {
+		first_position = TRUE;
+
+		/* If the first character on a Fortran line is a tab, bump up the
+		   position indicator. */
+
+		if (sw_language == lang_fortran && c == '\t')
+			line_position = 7;
+	}
+
+//  if this is a continuation line, the next token is not
+//  the start of a statement. 
+
+	if (sw_language == lang_fortran && line_position == 6 && c != ' '
+		&& c != '0') first_position = FALSE;
+
+#ifdef COBOL
+	if (sw_language == lang_cobol &&
+		(!sw_ansi && line_position == 1 && c == '-') ||
+		(sw_ansi && line_position == 7 && c == '-'))
+		first_position = FALSE;
+#endif
+
+	if (position > traced_position) {
+		traced_position = position;
+		ib_fputc(c, trace_file);
+	}
+
+	return c;
+}
+
+
+//____________________________________________________________
+//  
+//		Make first pass at input file.  This involves
+//		passing thru tokens looking for keywords.  When
+//		a keyword is found, try to parse an action.  If
+//		the parse is successful (an action block is returned)
+//		link the new action into the system data structures
+//		for processing on pass 2.
+//  
+
+static SLONG pass1()
+{
+	ACT action;
+	SLONG start;
+
+//  FSG 14.Nov.2000 
+	if (sw_verbose) {
+		ib_fprintf(ib_stderr,
+				   "*********************** PASS 1 ***************************\n");
+	}
+
+	while (CPR_token())
+	{
+		while (token.tok_symbol)
+		{
+			start = token.tok_position;
+			if (action = PAR_action())
+			{
+				action->act_position = start;
+				if (!(action->act_flags & ACT_back_token)) {
+					action->act_length = last_position - start;
+				} else {
+					action->act_length =
+						prior_token.tok_position +
+						prior_token.tok_length - 1 - start;
+				}
+				if (first_action) {
+					last_action->act_rest = action;
+				} else {
+					first_action = action;
+				}
+
+				/* Allow for more than one action to be generated by a token. */
+
+				do
+				{
+					last_action = action;
+					if (action = action->act_rest)
+					{
+						if (action->act_type == ACT_database)
+						{
+							/* CREATE DATABASE has two actions the second one
+							   is do generate global decl at the start of the
+							   program file. */
+
+							last_action->act_rest = NULL;
+							action->act_rest = first_action;
+							first_action = action;
+							action->act_position = -1;
+							action->act_length = -1;
+							break;
+						}
+						else
+						{
+							action->act_position = last_action->act_position;
+							action->act_length = 0;
+						}
+					}
+				} while (action);
+
+				if (last_action->act_flags & ACT_break) {
+					return last_position;
+				}
+
+				if (!token.tok_length &&
+					((int) token.tok_keyword == (int) KW_SEMI_COLON))
+				{
+					break;
+				}
+			}
+		}
+	}
+
+	if (isc_databases &&
+		(isc_databases->dbb_flags & DBB_sqlca) &&
+		!isc_databases->dbb_filename)
+	{
+		CPR_error("No database specified");
+	}
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Make a second pass thru the input file turning actions into
+//		comments, substituting text for actions, and generating the
+//		output file.
+//  
+
+static void pass2( SLONG start_position)
+{
+	SSHORT c, d, prior, comment_start_len, to_skip;
+	SLONG column, start;
+	SLONG i, line, line_pending, current;
+	ACT action;
+
+	c = 0;
+
+//  FSG 14.Nov.2000 
+	if (sw_verbose) {
+		ib_fprintf(ib_stderr,
+				   "*********************** PASS 2 ***************************\n");
+	}
+
+	bool suppress_output = false;
+
+	const bool sw_block_comments =
+		sw_language == lang_c		||
+		sw_language == lang_cxx		||
+		sw_language == lang_pascal	||
+		sw_language == lang_pli;
+
+//  Put out a distintive module header 
+
+	if (sw_language != lang_basic)
+	{
+		if (!sw_first++)
+		{
+			for (i = 0; i < 5; ++i)
+			{
+				ib_fprintf(out_file,
+						   "%s********** Preprocessed module -- do not edit **************%s\n",
+						   comment_start, comment_stop);
+			}
+			ib_fprintf(out_file,
+					   "%s**************** gpre version %s *********************%s\n",
+					   comment_start, GDS_VERSION, comment_stop);
+
+		}
+	}
+
+	if ((sw_language == lang_ada) && (ada_flags & ADA_create_database))
+		ib_fprintf(out_file, "with unchecked_conversion;\nwith system;\n");
+
+//  
+//if (sw_lines)
+//   ib_fprintf (out_file, "#line 1 \"%s\"\n", file_name);
+//  
+
+	line = 0;
+	if (sw_lines)
+		line_pending = TRUE;
+	else
+		line_pending = FALSE;
+	current = 1 + start_position;
+	column = 0;
+
+	comment_start_len = strlen(comment_start);
+	to_skip = 0;
+
+//  Dump text until the start of the next action, then process the action. 
+
+	for (action = first_action; action; action = action->act_rest)
+	{
+		/* Dump text until the start of the next action.  If a line marker
+		   is pending and we see an end of line, dump out the marker. */
+
+		for (; current < action->act_position; current++)
+		{
+			c = get_char(input_file);
+			if (c == EOF) {
+				CPR_error("internal error -- unexpected EOF between actions");
+				return;
+			}
+			if (c == '\n' || !line) {
+				line++;
+				if (line_pending) {
+					if (line == 1)
+						ib_fprintf(out_file, "#line %ld \"%s\"\n", line,
+								   file_name);
+					else
+						ib_fprintf(out_file, "\n#line %ld \"%s\"", line,
+								   file_name);
+
+					line_pending = FALSE;
+				}
+				if (line == 1 && c == '\n')
+					line++;
+				column = -1;
+			}
+			ib_putc(c, out_file);
+			if (c == '\t') {
+				column = (column + 8) & ~7;
+			} else {
+				++column;
+			}
+		}
+
+		// Determine if this action is one which requires line continuation
+		// handling in certain languages.
+
+		const bool continue_flag =
+			(action->act_type == ACT_variable)			||
+			(action->act_type == ACT_segment)			||
+			(action->act_type == ACT_segment_length)	||
+			(action->act_type == ACT_title_text)		||
+			(action->act_type == ACT_title_length)		||
+			(action->act_type == ACT_terminator)		||
+			(action->act_type == ACT_entree_text)		||
+			(action->act_type == ACT_entree_length)		||
+			(action->act_type == ACT_entree_value);
+
+		// Unless the action is purely a marker, insert a comment initiator
+		// into the output stream.
+
+		start = column;
+		if (!(action->act_flags & ACT_mark)) {
+			if (sw_language == lang_fortran) {
+				ib_fputc('\n', out_file);
+				ib_fputs(comment_start, out_file);
+			}
+			else if (sw_language == lang_cobol)
+				if (continue_flag)
+					suppress_output = TRUE;
+				else {
+					ib_fputc('\n', out_file);
+					ib_fputs(comment_start, out_file);
+					to_skip = (column < 7) ? comment_start_len - column : 0;
+					column = 0;
+				}
+			else if (sw_language == lang_basic) {
+				if (!continue_flag)
+					ib_fputc('\n', out_file);
+				else if (!(action->act_flags & ACT_first))
+					ib_fputs(" &\n", out_file);
+				ib_fputs(comment_start, out_file);
+			}
+			else
+				ib_fputs(comment_start, out_file);
+		}
+
+		/* Next, dump the text of the action to the output stream. */
+
+		for (i = 0; i <= action->act_length; ++i, ++current) {
+			if (c == EOF) {
+				CPR_error("internal error -- unexpected EOF in action");
+				return;
+			}
+			prior = c;
+			c = get_char(input_file);
+			if (!suppress_output) {
+				/* close current comment to avoid nesting comments */
+				if (sw_block_comments && !(action->act_flags & ACT_mark) &&
+					c == comment_start[0]) {
+					return_char((d = get_char(input_file)));
+					if (d == comment_start[1])
+						ib_fputs(comment_stop, out_file);
+				}
+				if (sw_language != lang_cobol || !sw_ansi || c == '\n'
+					|| to_skip-- <= 0)
+					ib_putc(c, out_file);
+				if (c == '\n') {
+					line++;
+					if ((sw_language == lang_fortran) ||
+						(sw_language == lang_basic) ||
+						(sw_language == lang_ada) ||
+						(sw_language == lang_cobol)) {
+						ib_fputs(comment_start, out_file);
+						to_skip =
+							(column < 7) ? comment_start_len - column : 0;
+						column = 0;
+					}
+				}
+
+				/* reopen our comment at end of user's comment */
+
+				if (sw_block_comments && !(action->act_flags & ACT_mark) &&
+					prior == comment_stop[0] && c == comment_stop[1])
+					ib_fputs(comment_start, out_file);
+			}
+		}
+
+		/* Unless action was purely a marker, insert a comment terminator. */
+
+		if (!(action->act_flags & ACT_mark) && !suppress_output) {
+			ib_fputs(comment_stop, out_file);
+			if ((sw_language == lang_fortran) || (sw_language == lang_cobol))
+				ib_fputc('\n', out_file);
+			if (sw_language == lang_basic)
+				if (!continue_flag)
+					ib_fputc('\n', out_file);
+				else
+					ib_fputs(" &\n", out_file);
+
+		}
+
+		suppress_output = FALSE;
+		(*gen_routine) (action, start);
+		if (action->act_type == ACT_routine &&
+			!action->act_object &&
+			((sw_language == lang_c) || (sw_language == lang_cxx))) continue;
+
+		if (action->act_flags & ACT_break)
+			return;
+
+		if (sw_lines)
+			line_pending = TRUE;
+		column = 0;
+		to_skip = 0;
+	}
+
+//  We're out of actions -- dump the remaining text to the output stream. 
+
+	if (!line && line_pending) {
+		ib_fprintf(out_file, "#line 1 \"%s\"\n", file_name);
+		line_pending = FALSE;
+	}
+
+
+	while ((c = get_char(input_file)) != EOF) {
+		if (c == '\n' && line_pending) {
+			ib_fprintf(out_file, "\n#line %ld \"%s\"", line + 1, file_name);
+			line_pending = FALSE;
+		}
+		if (c == EOF) {
+			CPR_error("internal error -- unexpected EOF in tail");
+			return;
+		}
+		ib_putc(c, out_file);
+	}
+
+//  Last but not least, generate any remaining functions 
+
+	for (; functions; functions = functions->act_next)
+		(*gen_routine) (functions, 0);
+}
+
+
+//____________________________________________________________
+//  
+//       Print out the switch table as an
+//       aid to those who have forgotten or are fishing
+//       
+
+static void print_switches()
+{
+	IN_SW_TAB in_sw_tab;
+
+	ib_fprintf(ib_stderr, "\tlegal switches are:\n");
+	for (in_sw_tab = gpre_in_sw_table; in_sw_tab->in_sw; in_sw_tab++)
+		if (in_sw_tab->in_sw_text)
+			ib_fprintf(ib_stderr, "%s%s\n", in_sw_tab->in_sw_name,
+					   in_sw_tab->in_sw_text);
+}
+
+
+//____________________________________________________________
+//  
+//		Set a bit in the label vector indicating
+//       that a label has been used.  If the label
+//		is bigger than the vector, punt.
+//       
+
+static void remember_label( TEXT * label_string)
+{
+	UCHAR target_byte;
+	SLONG label;
+
+	label = atoi(label_string);
+	if (label < 8192) {
+		target_byte = label & 7;
+		label >>= 3;
+		fortran_labels[label] |= 1 << target_byte;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Return a character to the input stream.
+//  
+
+static void return_char( SSHORT c)
+{
+
+	--position;
+	--line_position;
+
+//  note putting back a new line results in incorrect line_position value 
+
+	if (c == '\n') {
+		--line;
+	}
+
+	*input_char++ = (TEXT) c;
+}
+
+
+//____________________________________________________________
+//  
+//		Skip over white space and comments in input stream
+//  
+
+static SSHORT skip_white()
+{
+	SSHORT c, c2, next;
+
+	while (TRUE) {
+		if ((c = nextchar()) == EOF)
+			return c;
+
+		c = c & 0xff;
+
+		/* skip Fortran comments */
+
+		if (sw_language == lang_fortran &&
+			line_position == 1 && (c == 'C' || c == 'c' || c == '*')) {
+			while ((c = nextchar()) != '\n' && c != EOF);
+			continue;
+		}
+
+#ifdef COBOL
+		/* skip sequence numbers when ansi COBOL */
+
+		if (sw_language == lang_cobol && sw_ansi) {
+			while (line_position < 7 && (c = nextchar()) != '\n' && c != EOF);
+		}
+
+		/* skip COBOL comments and conditional compilation */
+
+		if (sw_language == lang_cobol &&
+			(!sw_ansi && line_position == 1 &&
+			 (c == 'C' || c == 'c' || c == '*' || c == '/' || c == '\\') ||
+			 (sw_ansi && line_position == 7 && c != '\t' && c != ' '
+			  && c != '-'))) {
+			while ((c = nextchar()) != '\n' && c != EOF);
+			continue;
+		}
+#endif
+
+		SSHORT class_ = classes[c];
+
+		if (class_ & CHR_WHITE)
+			continue;
+
+		/* skip in-line SQL comments */
+
+		if (sw_sql && (c == '-')) {
+			c2 = nextchar();
+			if (c2 != '-')
+				return_char(c2);
+			else {
+				while ((c = nextchar()) != '\n' && c != EOF);
+				last_position = position - 1;
+				continue;
+			}
+		}
+
+		/* skip C, C++ and PL/I comments */
+
+		if (c == '/' &&
+			(sw_language == lang_c ||
+			 sw_language == lang_internal ||
+			 sw_language == lang_cxx || sw_language == lang_pli))
+		{
+			if ((next = nextchar()) != '*') {
+				if (sw_language == lang_cxx && next == '/') {
+					while ((c = nextchar()) != '\n' && c != EOF);
+					continue;
+				}
+				return_char(next);
+				return c;
+			}
+			c = nextchar();
+			while ((next = nextchar()) != EOF && !(c == '*' && next == '/'))
+				c = next;
+			continue;
+		}
+
+#ifndef sun
+		/* skip fortran embedded comments on VMS or hpux or sgi */
+
+		if (c == '!'
+			&& ((sw_language == lang_fortran) || (sw_language == lang_basic))) {
+			/* If this character is a '!' followed by a '=', this is an
+			   Interbase 'not equal' operator, not a Fortran comment.
+			   Bug #307.  mao 6/14/89  */
+
+			if ((c2 = nextchar()) == '=') {
+				return_char(c2);
+				return c;
+			}
+			else {
+				if ((c = c2) != '\n' && c != EOF)
+					while ((c = nextchar()) != '\n' && c != EOF);
+				continue;
+			}
+		}
+#endif
+
+		if (c == '-' && (sw_sql || sw_language == lang_ada)) {
+			if ((next = nextchar()) != '-') {
+				return_char(next);
+				return c;
+			}
+			while ((c = nextchar()) != EOF && c != '\n');
+			continue;
+		}
+
+		/* skip PASCAL comments - both types */
+
+		if (c == '{' && sw_language == lang_pascal) {
+			while ((c = nextchar()) != EOF && c != '}');
+			continue;
+		}
+
+		if (c == '(' && sw_language == lang_pascal) {
+			if ((next = nextchar()) != '*') {
+				return_char(next);
+				return c;
+			}
+			c = nextchar();
+			while ((next = nextchar()) != EOF && !(c == '*' && next == ')'))
+				c = next;
+			continue;
+		}
+
+		break;
+	}
+
+	return c;
+}
+
+
+} // extern "C"
diff --git a/src/gpre/gpre.h b/src/gpre/gpre.h
new file mode 100644
index 0000000000..f57c280fd7
--- /dev/null
+++ b/src/gpre/gpre.h
@@ -0,0 +1,1565 @@
+/*
+ *	PROGRAM:	Language Preprocessor
+ *	MODULE:		gpre.h
+ *	DESCRIPTION:	Common header modules
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: gpre.h,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+ * Revision 1.3  2000/11/27 09:26:13  fsg
+ * Fixed bugs in gpre to handle PYXIS forms
+ * and allow edit.e and fred.e to go through
+ * gpre without errors (and correct result).
+ *
+ * This is a partial fix until all
+ * PYXIS datatypes are adjusted in frm_trn.c
+ *
+ * removed some compiler warnings too
+ *
+ * Revision 1.2  2000/11/16 15:54:29  fsg
+ * Added new switch -verbose to gpre that will dump
+ * parsed lines to stderr
+ *
+ * Fixed gpre bug in handling row names in WHERE clauses
+ * that are reserved words now (DATE etc)
+ * (this caused gpre to dump core when parsing tan.e)
+ *
+ * Fixed gpre bug in handling lower case table aliases
+ * in WHERE clauses for sql dialect 2 and 3.
+ * (cause a core dump in a test case from C.R. Zamana)
+ *
+ */
+
+#ifndef _GPRE_GPRE_H_
+#define _GPRE_GPRE_H_
+
+#include <stddef.h>				// offsetof
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#if (defined AIX || defined AIX_PPC)
+#define FORTRAN		1
+#define FTN_BLK_DATA    1
+#define COBOL		1
+#endif
+
+#ifdef DGUX
+#define COBOL		1
+#define FORTRAN		1
+#define FTN_BLK_DATA    1
+#endif
+
+#ifdef hpux
+#if (defined HP700 || defined HP10)
+#define ADA             1
+#define ALSYS_ADA       1
+#define COBOL		1
+#endif
+#define FORTRAN		1
+#ifdef hp9000s300
+#define ADA		1
+#define FTN_BLK_DATA    1
+#endif
+#endif
+
+#ifdef SCO_UNIX
+#define ADA             1
+#define ALSYS_ADA	1
+#endif
+
+#ifdef sgi
+#define FORTRAN		1
+#endif
+
+#ifdef sun
+#define ADA		1
+#define FORTRAN		1
+#define FTN_BLK_DATA	1
+#ifdef sparc
+#define COBOL		1
+#endif
+#endif
+
+#ifdef VMS
+#define ADA		1
+#define PASCAL		1
+#define FORTRAN		1
+#define COBOL		1
+#define EITHER_CASE	1
+#endif
+
+#ifdef UNIXWARE
+#define COBOL		1
+#endif
+
+
+/* If the C compiler supports the ANSI const directive, we emit it before
+   BLR string definitions */
+
+#if (defined (PC_PLATFORM) || defined (SOLARIS) || \
+	defined (AIX) || defined (DGUX) || defined (WIN_NT))
+#define CONST_STR	"const "
+#endif
+
+#ifdef ultrix
+#ifdef mips
+#define CONST_STR	""
+#else
+#define CONST_STR	"const "
+#endif
+#endif
+
+#ifndef CONST_STR
+#define CONST_STR	""
+#endif
+
+#define MAXSYMLEN 	512			/* max length of symbol + terminator */
+#define NAME_SIZE 	32
+#define SQL_DIALECT_V5 	1		/* pre 6.0 dialect */
+
+#define MAKE_ACTION(request,type) 	MSC_action(request,type)
+#define ALLOC(size) 			MSC_alloc (size)
+#define MAKE_CONTEXT(request)		MSC_context (request)
+#define COPY(from, length, to) 		MSC_copy (from, length, to)
+#define FREE(block)			MSC_free (block)
+#define MAKE_NODE(type, count)		MSC_node (type, count)
+#define POP(stack)			MSC_pop (stack)
+#define PUSH(object, stack)		MSC_push (object, stack)
+#define REALLOC(block, size)		MSC_realloc (block, size)
+#define MAKE_REFERENCE(link)		MSC_reference (link);
+#define MAKE_REQUEST(type)		MSC_request (type)
+#define MAKE_STRING(string)		MSC_string (string)
+#define MAKE_PRIVILEGE_BLOCK()		MSC_privilege_block ()
+#define MAKE_USERNAME(string, dyn)	MSC_username (string, dyn)
+#define IBERROR				CPR_error
+
+#define RANGE_SHORT_INTEGER(X)	((X) < 32768  &&  (X) >= -32768)
+#define RANGE_POSITIVE_SHORT_INTEGER(X) ((X) < 32768 &&  (X) >= 0)
+
+#define SINGLE_QUOTED(typ)	(typ == tok_quoted)
+#define DOUBLE_QUOTED(typ)	(typ == tok_dblquoted)
+#define QUOTED(typ)		(SINGLE_QUOTED(typ) || DOUBLE_QUOTED(typ))
+#define DOUBLE_QUOTES_ON(str)	(str[0] == '\"')
+#define REMOVE_DOUBLE_QUOTES(str)	{int ij,ii; \
+				for (ii=0, ij=1; str[ij] != '\"'; ij++) \
+				    str[ii++] = str[ij];\
+				str[ii] = 0;                \
+				}
+
+#define STRIP_QUOTES(tkn)	{int ij; \
+				for (ij=1; ij<tkn.tok_length-1; ij++) \
+				    tkn.tok_string[ij-1] = tkn.tok_string[ij];\
+				--ij; \
+				tkn.tok_string[ij] = 0;                \
+				tkn.tok_length = ij;                \
+				}
+
+/* Language options */
+
+typedef enum lang_t
+{
+	lang_undef,
+	lang_internal,
+	lang_pascal,
+	lang_fortran,
+	lang_pli,
+	lang_epascal,
+	lang_cobol,
+	lang_basic,
+	lang_c,
+	lang_ada,
+	lang_cxx,
+	lang_scxx,
+	lang_cplusplus,
+	lang_cpp
+} LANG_T;
+
+
+typedef enum act_t {
+	ACT_any,
+	ACT_alter_database,
+	ACT_alter_domain,
+	ACT_alter_index,
+	ACT_alter_table,
+	ACT_at_end,
+	ACT_average,
+	ACT_b_declare,
+	ACT_basedon,
+	ACT_blob_cancel,
+	ACT_blob_close,
+	ACT_blob_create,
+	ACT_blob_for,
+	ACT_blob_handle,
+	ACT_blob_open,
+	ACT_block_data,
+	ACT_close,
+	ACT_commit,
+	ACT_commit_retain_context,
+	ACT_create_database,
+	ACT_create_domain,
+	ACT_create_generator,
+	ACT_create_index,
+	ACT_create_shadow,
+	ACT_create_table,
+	ACT_create_view,
+	ACT_cursor,
+	ACT_database,
+	ACT_declare_filter,
+	ACT_declare_udf,
+	ACT_delete,
+	ACT_disconnect,
+	ACT_drop_database,
+	ACT_drop_domain,
+	ACT_drop_filter,
+	ACT_drop_index,
+	ACT_drop_shadow,
+	ACT_drop_table,
+	ACT_drop_udf,
+	ACT_drop_view,
+
+	ACT_dyn_close,
+	ACT_dyn_cursor,
+	ACT_dyn_declare,
+	ACT_dyn_describe,
+	ACT_dyn_describe_input,
+	ACT_dyn_execute,
+	ACT_dyn_fetch,
+	ACT_dyn_grant,
+	ACT_dyn_immediate,
+	ACT_dyn_insert,
+	ACT_dyn_open,
+	ACT_dyn_prepare,
+	ACT_dyn_revoke,
+	ACT_dyn_statement,
+
+	ACT_endblob,
+	ACT_e_declare,
+	ACT_enderror,
+	ACT_endfor,
+	ACT_endmodify,
+	ACT_endstore,
+	ACT_erase,
+	ACT_event_init,
+	ACT_event_wait,
+	ACT_fetch,
+	ACT_finish,
+	ACT_function,
+	ACT_for,
+	ACT_get_segment,
+	ACT_hctef,
+	ACT_insert,
+	ACT_loop,
+	ACT_max,
+	ACT_min,
+	ACT_modify,
+	ACT_on_error,
+	ACT_open,
+	ACT_prepare,
+	ACT_procedure,
+	ACT_put_segment,
+	ACT_ready,
+	ACT_release,
+	ACT_rfinish,
+	ACT_rollback,
+	ACT_routine,
+	ACT_segment,
+	ACT_segment_length,
+	ACT_s_end,
+	ACT_s_fetch,
+	ACT_s_start,
+	ACT_select,
+	ACT_start,
+	ACT_statistics,
+	ACT_store,
+	ACT_store2,
+	ACT_total,
+	ACT_update,
+	ACT_variable,
+	ACT_form_for,
+	ACT_form_display,
+	ACT_form_end,
+	ACT_form_field,
+	ACT_menu,
+	ACT_menu_display,
+	ACT_menu_entree,
+	ACT_menu_end,
+	ACT_menu_for,
+	ACT_title_text,
+	ACT_title_length,
+	ACT_terminator,
+	ACT_entree_text,
+	ACT_entree_length,
+	ACT_entree_value,
+	ACT_window_create,
+	ACT_window_delete,
+	ACT_window_suspend,
+	ACT_item_put,
+	ACT_item_for,
+	ACT_item_end,
+	ACT_clear_handles,
+	ACT_type,
+	ACT_noop,
+	ACT_get_slice,
+	ACT_put_slice,
+	ACT_sql_dialect,
+
+	ACT_LASTACT					/* leave this debugging ACT last */
+} ACT_T;
+
+/* Action block, used to make action points in source */
+
+typedef struct act {
+	SLONG act_position;			/* position in input stream */
+	SLONG act_length;			/* length to be commented out */
+	enum act_t act_type;		/* type of action */
+	struct act *act_next;		/* next action in request */
+	struct act *act_rest;		/* remaining actions in module */
+	struct act *act_error;		/* on-error action (maybe) */
+	struct act *act_pair;		/* begin/end action (maybe) */
+	struct req *act_request;	/* parent request */
+	struct ref *act_object;		/* dependent on action type */
+	struct swe *act_whenever;	/* SQL whenever blocks */
+	USHORT act_flags;			/* flags that affect the action */
+	USHORT act_count;			/* used to hold begin/end count for routines */
+} *ACT;
+
+#define ACT_mark	1			/* action is mark only - no comment */
+#define ACT_first	2			/* action is first on line.  No FTN continuation */
+#define ACT_break	4			/* module boundary break */
+#define ACT_sql		8			/* action is SQL statement */
+#define ACT_decl	16			/* action is a PASCAL forward or extern routine */
+#define ACT_main	32			/* action is the main routine in the program/module */
+#define ACT_first_entree 64		/* first entree in menu */
+#define ACT_back_token	128		/* end of action marked by prior token */
+
+#define ACT_LEN sizeof (struct act)
+
+
+/* Structure used by Fortran and Basic to determine whether or not
+   an array has been declared in a subroutine. */
+
+typedef struct adl {
+	USHORT adl_gds_ident;		/* Identifier of array for which Gpre has
+								   generated a declaration in main or a
+								   subroutine */
+	struct adl *adl_next;		/* Next declared array identifier */
+} *ADL;
+
+#define ADL_LEN sizeof (struct adl)
+
+
+/* Array information block.  Used to hold info about an array field. 
+   Note: the dimension (DIM) block used to hold dimension information.
+   The preferred mechanism is the repeating tail on the array block. */
+
+typedef struct ary {
+	USHORT ary_dtype;			/* data type of array */
+	int ary_dimension_count;	/* Number of dimensions in this array */
+	struct dim *ary_dimension;	/* Linked list of range info for each dimension */
+	SLONG ary_size;				/* Size of the array */
+	USHORT ary_ident;			/* Array identifier */
+	BOOLEAN ary_declared;		/* True if a declaration already was generated */
+	struct ary_repeat {
+		SLONG ary_lower;
+		SLONG ary_upper;
+	} ary_rpt[16];
+} *ARY;
+
+#define ARY_LEN(count) (sizeof (struct ary))
+#define MAX_ARRAY_DIMENSIONS 16
+
+
+/* Based on block.  Used for based on clause */
+
+typedef struct bas {
+	struct fld *bas_field;		/* database field referenced */
+	struct lls *bas_variables;	/* list of variables based on above */
+	struct str *bas_db_name;	/* database name if present and required */
+	struct str *bas_rel_name;	/* relation name if no db statement */
+	struct str *bas_fld_name;	/* field if no db statement */
+	USHORT bas_flags;
+	char bas_terminator[2];		/* terminating character */
+} *BAS;
+
+#define BAS_LEN		(sizeof (struct bas))
+
+#define BAS_segment	1			/* Based on a blob segment length */
+#define BAS_ambiguous	2		/* Ambiguous reference to segment */
+
+
+/* Blob block.  Used for blob calls */
+
+typedef struct blb {
+	struct req *blb_request;	/* parent request */
+	struct blb *blb_next;		/* next blob in request */
+	struct ref *blb_reference;	/* field reference for blob field */
+	struct sym *blb_symbol;		/* Blob context variable */
+	USHORT blb_ident;			/* Blob handle */
+	USHORT blb_buff_ident;		/* Ident of segment buffer */
+	USHORT blb_len_ident;		/* Ident of segment length */
+	USHORT blb_seg_length;		/* Segment length of blob */
+	USHORT blb_flags;			/* Misc and various blobs */
+	USHORT blb_top_label;		/* fortran label for top of request */
+	USHORT blb_btm_label;		/* fortran label for request exit */
+	USHORT blb_bpb_length;		/* Length of blob parameter block */
+	USHORT blb_bpb_ident;		/* Ident for blob parameter block */
+	USHORT blb_type;			/* Blob type (0 = default segmented) */
+	SSHORT blb_const_from_type;
+	/* Constant value for subtype from
+	   which this blob is to be filtered */
+	TEXT *blb_var_from_type;
+	/* Variable whose value is the subtype
+	   from which this blob is to be filtered */
+	SSHORT blb_const_to_type;
+	/* Constant value for subtype to
+	   which this blob is to be filtered */
+	TEXT *blb_var_to_type;
+	/* Variable whose value is the subtype
+	   to which this blob is to be filtered */
+	USHORT blb_from_charset;	/* charset to translate from */
+	USHORT blb_to_charset;		/* charset to translate to */
+	UCHAR blb_bpb[24];
+} *BLB;
+
+#define BLB_LEN sizeof (struct blb)
+
+#define BLB_create		1
+#define BLB_symbol_released	2
+
+
+/* Constraint block, used to hold information about integrity constraints */
+
+typedef struct cnstrt {
+	struct str *cnstrt_name;	/* Name of constraint */
+	USHORT cnstrt_type;			/* Type of constraint */
+	struct lls *cnstrt_fields;	/* list of fields */
+	USHORT cnstrt_fkey_def_type;	/* extended foreign key definition */
+	struct str *cnstrt_referred_rel;	/* referred relation, if foreign key */
+	struct lls *cnstrt_referred_fields;	/* optional list of fields from 
+										   referred relation */
+	struct cnstrt *cnstrt_next;	/* next contraint for field or relation */
+	struct txt *cnstrt_text;	/* source for CHECK constraints */
+	struct nod *cnstrt_boolean;	/* boolean expression, for CHECK 
+								   constraints */
+	USHORT cnstrt_flags;		/* see below */
+} *CNSTRT;
+
+#define CNSTRT_LEN sizeof (struct cnstrt)
+
+/* Values for cnstrt_fkey_def_type */
+
+#define REF_UPDATE_ACTION	0x0001
+#define REF_UPD_CASCADE		0x0002
+#define REF_UPD_SET_DEFAULT	0x0004
+#define REF_UPD_SET_NULL	0x0008
+#define REF_UPD_NONE		0x0010
+#define REF_UPDATE_MASK		0x001E
+
+#define REF_DELETE_ACTION	0x0020
+#define REF_DEL_CASCADE		0x0040
+#define REF_DEL_SET_DEFAULT	0x0080
+#define REF_DEL_SET_NULL	0x0100
+#define REF_DEL_NONE		0x0200
+#define REF_DELETE_MASK		0x03C0
+
+/* Values for cnstrt_type */
+
+#define CNSTRT_NOT_NULL		1
+#define CNSTRT_PRIMARY_KEY	2
+#define CNSTRT_UNIQUE		3
+#define CNSTRT_FOREIGN_KEY	4
+#define CNSTRT_CHECK		5
+
+/* Values for cnstrt_flags */
+
+#define CNSTRT_DEFERRABLE		1
+#define CNSTRT_INITIALLY_DEFERRED	2
+#define CNSTRT_delete			4
+
+
+/* Context block, used to define context symbols, etc. */
+
+typedef struct ctx {
+	USHORT ctx_internal;		/* internal context number */
+	USHORT ctx_scope_level;		/* scope level for SQL alias subquery scoping */
+	struct req *ctx_request;	/* parent request */
+	struct ctx *ctx_next;		/* next context in request */
+	struct sym *ctx_symbol;		/* symbol for context */
+	struct rel *ctx_relation;	/* relation for context */
+	TEXT *ctx_alias;			/* holds SQL alias for passing to engine */
+	struct prc *ctx_procedure;	/* procedure for context */
+	struct nod *ctx_prc_inputs;	/* procedure input parameters */
+	struct rse *ctx_stream;		/* stream for context */
+} *CTX;
+
+#define CTX_LEN sizeof (struct ctx)
+
+
+typedef struct sdt {
+	USHORT sdt_dialect;			/* Dialect  value as specified by SET stmt */
+} *SDT;
+
+#define SDT_LEN sizeof (struct sdt)
+
+
+typedef struct fil {
+	SLONG fil_length;			/* File length in pages */
+	SLONG fil_start;			/* Starting page */
+	TEXT *fil_name;				/* File name */
+	struct fil *fil_next;		/* next file */
+	USHORT fil_shadow_number;	/* shadow number if part of shadow */
+	USHORT fil_partitions;		/* number of log file partitions */
+	USHORT fil_flags;
+} *FIL;
+
+#define FIL_manual		1		/* Manual shadow */
+#define FIL_raw			2		/* On raw device */
+#define FIL_conditional		4	/* Conditional shadow */
+
+#define FIL_LEN sizeof (struct fil)
+
+
+/* Database block, more or less the granddaddy */
+
+typedef struct dbb {
+	struct dbb *dbb_next;		/* next database in program */
+	struct rel *dbb_relations;	/* relations in database */
+	struct rel *dbb_procedures;	/* procedures in database */
+	struct form *dbb_forms;		/* forms in database */
+	USHORT dbb_id;				/* database id in program */
+	USHORT dbb_flags;			/* Misc flag bytes */
+	struct sym *dbb_name;		/* database name */
+	SLONG *dbb_handle;			/* OUR db handle */
+	SLONG *dbb_transaction;		/* default transaction */
+	struct rrl *dbb_rrls;		/* temporary list of relation locks */
+	struct tpb *dbb_tpbs;		/* real tpbs for this db */
+	TEXT *dbb_filename;
+	TEXT *dbb_runtime;
+	TEXT *dbb_c_user;			/* compiletime user name */
+	TEXT *dbb_c_password;		/* compiletime password */
+	TEXT *dbb_c_sql_role;		/* compiletime SQL role */
+	TEXT *dbb_r_user;			/* runtime user name */
+	TEXT *dbb_r_password;		/* runtime password */
+	TEXT *dbb_r_sql_role;		/* runtime SQL role */
+	TEXT *dbb_c_lc_messages;	/* compiletime user natural language */
+	TEXT *dbb_c_lc_ctype;		/* compiletime user character set */
+	TEXT *dbb_r_lc_messages;	/* runtime user natural language */
+	TEXT *dbb_r_lc_ctype;		/* runtime user character set */
+	TEXT *dbb_def_charset;		/* charset for CREATE DATABASE */
+	SSHORT dbb_know_subtype;	/* Use an charset subtype id on messages */
+	SSHORT dbb_char_subtype;	/* subtype to use for all SCHAR messages */
+	int *dbb_field_request;
+	int *dbb_flds_request;
+	int *dbb_relation_request;
+	int *dbb_procedure_request;
+	int *dbb_udf_request;
+	int *dbb_trigger_request;
+	int *dbb_proc_prms_request;
+	int *dbb_proc_prm_fld_request;
+	int *dbb_index_request;
+	int *dbb_type_request;
+	int *dbb_array_request;
+	int *dbb_dimension_request;
+	int *dbb_domain_request;
+	int *dbb_generator_request;
+	int *dbb_view_request;
+	int *dbb_primary_key_request;
+	int dbb_scope;				/* scope of the database handle */
+	int dbb_allocation;
+	int dbb_pagesize;
+	int dbb_buffercount;
+	int dbb_buffersize;
+	int dbb_users;
+	ULONG dbb_length;			/* Length of database in pages, if known */
+	struct fil *dbb_logfiles;
+	struct fil *dbb_overflow;	/* overflow log files */
+	SLONG dbb_chkptlen;
+	SSHORT dbb_numbufs;			/* log buffers */
+	SSHORT dbb_bufsize;			/* log buffer size */
+#ifdef SCROLLABLE_CURSORS
+	SSHORT dbb_base_level;		/* code level of the engine we are talking to */
+#endif
+	SLONG dbb_grp_cmt_wait;
+	struct fil *dbb_cache_file;
+	struct fil *dbb_files;
+} *DBB;
+
+#define DBB_LEN 	sizeof (struct dbb)
+
+#define DBB_no_arrays		1
+#define DBB_sqlca		2		/* Created as default for a sqlca */
+#define DBB_in_trans		4	/* included in this transaction */
+#define DBB_drop_log		8
+#define DBB_log_serial		16
+#define DBB_log_default		32
+#define DBB_cascade		64
+#define DBB_drop_cache		128
+#define DBB_create_database	256
+#define DBB_v3			512		/* Database is V3 */
+
+#define DBB_GLOBAL 	0
+#define DBB_EXTERN 	1
+#define DBB_STATIC 	2
+
+/* database block data, for generating block data section in fussy fortran */
+
+typedef struct dbd {
+	TEXT dbb_name[128];			/* database name */
+} *DBD;
+
+
+/* Computed field block */
+
+typedef struct cmpf {
+	struct txt *cmpf_text;		/* source for computed field */
+	struct nod *cmpf_boolean;	/* expression, for computed field */
+} *CMPF;
+
+#define CMPF_LEN sizeof (struct cmpf)
+
+
+/* Dimension block, used for arrays 
+ *
+ * Note: this structure is being phased out.  Please use the
+ * repeating tail on the ARY structure instead
+ *
+ */
+
+typedef struct dim {
+	int dim_number;				/* Dimension number i (i=1 to n) */
+	SLONG dim_lower;			/* Lower bound */
+	SLONG dim_upper;			/* Upper bound */
+	struct dim *dim_next;		/* Information for dimension i+1 */
+	struct dim *dim_previous;	/* Information for dimension i-1 */
+} *DIM;
+
+#define DIM_LEN sizeof (struct dim)
+
+
+/* Dynamic statement block, used for dynamic SQL */
+
+typedef struct dyn {
+	struct dbb *dyn_database;	/* Database involved */
+	struct sym *dyn_statement_name;	/* Name of dynamic statement */
+	struct sym *dyn_cursor_name;	/* Cursor name */
+	TEXT *dyn_trans;			/* Transaction handle */
+	TEXT *dyn_string;			/* Dynamic string or variable name */
+	TEXT *dyn_sqlda;			/* Name of SQLDA structure, if any */
+	TEXT *dyn_sqlda2;			/* Name of second SQLDA structure, if any */
+	struct nod *dyn_using;		/* dependent on action type */
+} *DYN;
+
+#define DYN_LEN sizeof (struct dyn)
+
+
+/* Field block.  Fields are what farms and databases are all about */
+
+typedef struct fld {
+	USHORT fld_dtype;			/* data type of field */
+	FLD_LENGTH fld_length;		/* field length in bytes */
+	SSHORT fld_scale;			/* scale factor */
+	USHORT fld_id;				/* field id in meta data */
+	USHORT fld_flags;			/* Misc flags */
+	USHORT fld_seg_length;		/* Segment length for blobs */
+	USHORT fld_position;		/* Field position in relation */
+	USHORT fld_precision;		/* Field precision */
+	SSHORT fld_sub_type;		/* Field sub-type */
+	struct fld *fld_next;		/* next field in relation */
+	struct fld *fld_array;		/* array element if field is array */
+	struct rel *fld_relation;	/* relation */
+	struct prc *fld_procedure;	/* procedure */
+	struct sym *fld_symbol;		/* symbol for field */
+	struct sym *fld_global;		/* symbol for global field */
+	int *fld_handle;			/* form handle */
+	int *fld_prototype;			/* prototype object for sub-form */
+	struct ary *fld_array_info;	/* Dimension and range information about an
+								   array field */
+	struct nod *fld_default_value;	/* field's default value */
+	struct txt *fld_default_source;	/* source for field default value */
+	struct ind *fld_index;		/* If CREATE TABLE, specifies field with
+								   the unique constraint */
+	struct cnstrt *fld_constraints;	/* linked list of constraints defined
+									   during a meta operation */
+	struct intlsym *fld_character_set;
+	/* character set for SQL declared field */
+	struct intlsym *fld_collate;	/* collation clause for SQL declared field */
+	struct cmpf *fld_computed;	/* computed field definition */
+	USHORT fld_char_length;		/* field length in CHARACTERS */
+	SSHORT fld_charset_id;		/* Field character set id for text */
+	SSHORT fld_collate_id;		/* Field collation id for text */
+	SSHORT fld_ttype;			/* ID of text type's implementation */
+} *FLD;
+
+#define FLD_LEN		sizeof (struct fld)
+
+#define FLD_blob	 1
+#define FLD_text	 2
+#define FLD_stream_blob	 4
+#define FLD_dbkey	 8
+#define FLD_repeating	 16		/* Field is form repeating group */
+#define FLD_not_null	 32		/* if CREATE TABLE specifies not null */
+#define FLD_delete	 64			/* if ALTER TABLE specifies delete of field */
+#define FLD_meta	 128		/* if true, created for a metadata operation */
+#define FLD_national	 256	/* uses SQL "NATIONAL" character set */
+#define FLD_charset      512	/* field has a specific character set */
+#define FLD_computed   	 1024	/* field is computed */
+#define FLD_meta_cstring 2048	/* field is being defined as cstring by the user. */
+
+
+/* filter block */
+
+typedef struct fltr {
+	TEXT *fltr_name;
+	TEXT *fltr_entry_point;
+	TEXT *fltr_module_name;
+	SSHORT fltr_input_type;
+	SSHORT fltr_output_type;
+} *FLTR;
+
+#define FLTR_LEN sizeof (struct fltr)
+
+
+/* declare udf block */
+
+typedef struct decl_udf {
+	TEXT *decl_udf_name;
+	TEXT *decl_udf_entry_point;
+	TEXT *decl_udf_module_name;
+	struct fld *decl_udf_arg_list;
+	struct fld *decl_udf_return_type;
+	USHORT decl_udf_return_mode;	/* BY VALUE or BY REFERENCE */
+	SSHORT decl_udf_return_parameter;
+} *DECL_UDF;
+
+
+#define DECL_UDF_LEN sizeof (struct decl_udf)
+
+typedef ENUM {
+		FUN_value,
+		FUN_reference,
+		FUN_descriptor, FUN_blob_struct, FUN_scalar_array} FUN_T;
+
+
+/* Index block. Used for DDL INDEX commands */
+
+typedef struct ind {
+	struct sym *ind_symbol;		/* index name */
+	struct rel *ind_relation;	/* relation name */
+	struct fld *ind_fields;		/* list of fields */
+	USHORT ind_flags;			/* Miscellaneous flags */
+} *IND;
+
+#define IND_LEN		sizeof (struct ind)
+#define IND_dup_flag	1		/* if false, duplicates not allowed */
+#define IND_meta	2			/* if true, created for a metadata operation */
+#define IND_descend	4			/* if true, a descending-order index */
+#define IND_active	8			/* activate index */
+#define IND_inactive	16		/* de-activate index */
+
+
+
+/* Symbolic names for international text types */
+/* (either collation or character set name)    */
+
+typedef struct intlsym {		/* International symbol */
+	struct dbb *intlsym_database;
+	struct sym *intlsym_symbol;	/* Hash symbol for intlsym */
+	struct intlsym *intlsym_next;
+	USHORT intlsym_type;		/* what type of name */
+	USHORT intlsym_flags;
+	SSHORT intlsym_ttype;		/* id of implementation */
+	SSHORT intlsym_charset_id;
+	SSHORT intlsym_collate_id;
+	USHORT intlsym_bytes_per_char;
+	TEXT intlsym_name[2];
+} *INTLSYM;
+
+#define INTLSYM_LEN		sizeof (struct intlsym)
+
+/* values used in intlsym_type */
+
+#define INTLSYM_collation	1
+#define	INTLSYM_charset		2
+
+/* values used in intlsym_flags */
+
+/* Macro for detecting fields which may have embedded nulls */
+
+#define SUBTYPE_ALLOWS_NULLS(s)	((s) == 1)
+#define FIELD_ALLOWS_NULLS(f)	(SUBTYPE_ALLOWS_NULLS((f)->fld_sub_type))
+
+
+/* Linked list stack stuff */
+
+typedef struct lls {
+	struct nod *lls_object;		/* object on stack */
+	struct lls *lls_next;		/* next item on stack */
+} *LLS;
+
+#define LLS_LEN sizeof (struct lls)
+
+
+/* Maps used by union and global aggregates */
+
+typedef struct map {
+	struct ctx *map_context;	/* Pseudo context for map */
+	struct mel *map_elements;	/* Map elements */
+	USHORT map_count;			/* Number of things in map */
+} *MAP;
+
+typedef struct mel {
+	struct mel *mel_next;		/* Next element in map */
+	struct nod *mel_expr;		/* Expression */
+	struct ref *mel_reference;
+	struct ctx *mel_context;
+	USHORT mel_position;		/* Position in map */
+} *MEL;
+
+
+/* General Syntax node, produced by parser */
+
+typedef enum nod_t {
+	nod_field = 1, nod_literal, nod_value,
+	nod_and, nod_or, nod_not,
+	nod_eq, nod_ne, nod_ge,
+	nod_le, nod_gt, nod_lt,
+	nod_containing, nod_matches, nod_any,
+	nod_unique, nod_plus, nod_times,
+	nod_divide, nod_minus, nod_negate,
+	nod_msg, nod_for, nod_send,
+	nod_receive, nod_block, nod_select,
+	nod_boolean, nod_projection, nod_sort,
+	nod_store, nod_modify, nod_erase,
+	nod_if, nod_assignment, nod_rse,
+	nod_first, nod_relation, nod_end,
+	nod_label, nod_leave, nod_loop,
+	nod_max, nod_min, nod_count,
+	nod_total, nod_average, nod_list,
+	nod_defered, nod_missing, nod_between,
+	nod_union, nod_map, nod_starting,
+	nod_like, nod_agg_count, nod_agg_max,
+	nod_agg_min, nod_agg_total, nod_agg_average,
+	nod_aggregate, nod_from, nod_null,
+	nod_asterisk, nod_map_ref, nod_user_name,
+	nod_upcase, nod_sleuth, nod_event_init,
+	nod_udf, nod_array, nod_index,
+	nod_via, nod_join_inner, nod_join_left,
+	nod_join_right, nod_join_full, nod_join,
+	nod_concatenate, nod_cast, nod_dom_value,
+	nod_ansi_any, nod_gen_id, nod_set_generator,
+	nod_merge, nod_plan_expr, nod_plan_item,
+	nod_natural, nod_index_order, nod_ansi_all,
+	nod_extract, nod_current_date,
+	nod_current_time, nod_current_timestamp,
+	nod_LASTNOD					/* Leave this debugging NOD last */
+} NOD_T;
+
+typedef struct nod {
+	enum nod_t nod_type;		/* node type */
+	USHORT nod_count;			/* number of sub-items */
+	struct nod *nod_arg[1];		/* argument */
+} *NOD;
+
+#define nod_arg0 nod_arg[0]
+#define nod_arg1 nod_arg[1]
+#define nod_arg2 nod_arg[2]
+
+#define NOD_LEN(cnt) (sizeof (struct nod) + (cnt - 1) * sizeof (int *))
+
+
+/* Open cursor block */
+
+typedef struct opn {
+	struct sym *opn_cursor;		/* Symbol block of cursor */
+	TEXT *opn_trans;			/* Transaction handle */
+	struct ref *opn_using;		/* Using variables */
+} *OPN;
+
+#define OPN_LEN (sizeof (struct opn))
+
+
+/* Port block */
+
+typedef struct por {
+	USHORT por_msg_number;		/* message number within request */
+	USHORT por_ident;			/* ident in source */
+	int por_length;				/* length of port in bytes */
+	struct ref *por_references;	/* linked list of field references */
+	struct por *por_next;		/* next port in request */
+	USHORT por_count;			/* number of items in port */
+} *POR;
+
+#define POR_LEN (sizeof (struct por))
+
+
+/* Procedure structure */
+
+typedef struct prc {
+	struct sym *prc_symbol;		/* symbol for relation */
+	SSHORT prc_id;				/* procedure id */
+	struct sym *prc_owner;		/* owner of procedure, if any */
+	struct dbb *prc_database;	/* parent database */
+	struct prc *prc_next;		/* next procedure in database */
+	struct fld *prc_inputs;		/* linked list of input parameters */
+	struct fld *prc_outputs;	/* linked list of output parameters */
+	SSHORT prc_in_count;		/* count of input parameters */
+	SSHORT prc_out_count;		/* count of output parameters */
+	SSHORT prc_flags;			/* procedure flags */
+} *PRC;
+
+#define PRC_LEN sizeof (struct prc)
+#define PRC_scanned	1
+
+
+/* Grant/revoke block */
+
+typedef struct prv {
+	USHORT prv_privileges;		/* holds privileges being granted or revoked */
+	SCHAR *prv_username;		/* user having privileges granted or revoked */
+	USHORT prv_user_dyn;		/* the dyn-verb to be used with prv_username
+								   i.e. gds__dyn_grant_user/proc/trig/view */
+	struct str *prv_relation;	/* relation on which we're doing grant/revoke */
+	USHORT prv_object_dyn;		/* the dyn-verb to be used with prv_relation
+								   i.e. gds__dyn_rel/proc_name */
+	struct lls *prv_fields;		/* fields on which we're doing grant/revoke */
+	struct prv *prv_next;		/* next grant/revoke block (with different user) */
+} *PRV;
+
+#define PRV_LEN (sizeof (struct prv))
+
+#define PRV_no_privs	0		/* no privileges being granted or revoked */
+#define PRV_select	1			/* select privilege being granted or revoked */
+#define PRV_insert	2			/* insert privilege being granted or revoked */
+#define PRV_delete	4			/* delete privilege being granted or revoked */
+#define PRV_update	8			/* update privilege being granted or revoked */
+#define PRV_execute	16			/* execute privilege being granted or revoked */
+#define PRV_references	32		/* reference privilege */
+#define PRV_grant_option 64		/* privilege to grant privileges being granted */
+#define PRV_all		128			/* all privileges being granted/revoked */
+
+
+/* Ready block */
+
+typedef struct rdy {
+	struct req *rdy_request;	/* dpb message & info */
+	struct rdy *rdy_next;
+	struct dbb *rdy_database;
+	USHORT rdy_id;				/* id for unique string variable- MPEXL COB */
+	TEXT *rdy_filename;
+} *RDY;
+
+#define RDY_LEN sizeof (struct rdy)
+
+
+/* Field reference */
+
+typedef struct ref {
+	USHORT ref_ident;			/* identifier */
+	USHORT ref_level;			/* highest level of access */
+	USHORT ref_parameter;		/* parameter in port */
+	USHORT ref_id;				/* id of reference in union */
+	struct fld *ref_field;		/* field in question */
+	struct ctx *ref_context;	/* context for reference */
+	struct ref *ref_next;		/* next reference in context */
+	struct por *ref_port;		/* associated port */
+	struct ref *ref_source;		/* source reference for modified field */
+	struct ref *ref_null;		/* reference for null value */
+	struct ref *ref_master;		/* master field for null value */
+	struct ref *ref_friend;		/* value for variable */
+	struct nod *ref_expr;		/* expression, if node is expression */
+	TEXT *ref_value;			/* value string if host language value */
+	struct val *ref_values;		/* linked list of values */
+	TEXT *ref_null_value;		/* value string if host language value */
+	TEXT *ref_sdl;				/* Raw slice description language for an array */
+	TEXT *ref_sdl_base;			/* base of sdl string during generation */
+	int ref_sdl_length;			/* sdl length for this reference */
+	struct slc *ref_slice;		/* Slice, if field referenced is sliced */
+	USHORT ref_sdl_ident;		/* identifier of sdl structure */
+	USHORT ref_offset;			/* offset of field in port */
+	USHORT ref_flags;
+	SSHORT ref_ttype;			/* Character set type for literals */
+} *REF;
+
+#define REF_union	1			/* Pseudo field for union */
+#define REF_pseudo	2			/* Other pseudo field (probably for forms) */
+#define REF_null	4			/* Only here cause of related null reference */
+#define REF_fetch_array	8		/* Need to fetch full array */
+#define REF_literal	16			/* Reference is to a constant */
+#define REF_ttype	32			/* Reference contains character set spec */
+#define REF_array_elem	64		/* Reference to an array element */
+#define REF_sql_date	128		/* Reference is to a date constant */
+#define REF_sql_time	256		/* Reference is to a time constant */
+#define REF_timestamp  	512		/* Reference is to a timestamp constant */
+
+#define REF_LEN sizeof (struct ref)
+
+
+/* value block, used to store a set of values */
+
+typedef struct val {
+	struct val *val_next;		/* next value in list */
+	TEXT *val_value;			/* value */
+} *VAL;
+
+#define VAL_LEN sizeof (struct val)
+
+
+/* Relation block, not to be confused with siblings or in-laws */
+
+typedef struct rel {
+	USHORT rel_id;				/* relation id */
+	struct fld *rel_fields;		/* linked list of known fields */
+	struct fld *rel_dbkey;		/* linked list of known fields */
+	struct sym *rel_symbol;		/* symbol for relation */
+	struct dbb *rel_database;	/* parent database */
+	struct rel *rel_next;		/* next relation in database */
+	BOOLEAN rel_meta;			/* if true, created for a metadata operation */
+	struct rse *rel_view_rse;
+	struct txt *rel_view_text;	/* source for VIEW definition */
+	struct sym *rel_owner;		/* owner of relation, if any */
+	struct cnstrt *rel_constraints;	/* linked list of constraints defined
+									   during a meta operation */
+	TEXT *rel_ext_file;			/* external file name */
+	USHORT rel_flags;
+} *REL;
+
+#define REL_LEN sizeof (struct rel)
+
+#define REL_view_check	1		/* View created with check option */
+
+
+/* Request block, corresponds to a single JRD request */
+
+enum req_t {
+	REQ_for,
+	REQ_store,
+	REQ_store2,
+	REQ_insert,
+	REQ_cursor,
+	REQ_select,
+	REQ_mass_update,
+	REQ_any,
+	REQ_statistical,
+	REQ_ddl,
+	REQ_form,
+	REQ_create_database,
+	REQ_menu,
+	REQ_slice,
+	REQ_ready,
+	REQ_procedure,
+	REQ_set_generator,
+
+	REQ_LASTREQUEST				/* Leave this debugging REQ last */
+};
+
+typedef struct req {
+	enum req_t req_type;		/* request type */
+	USHORT req_ident;			/* ident for request handle */
+	USHORT req_act_flag;		/* activity flag ident, if used */
+	int req_length;				/* blr length of request */
+	UCHAR *req_base;			/* base of blr string during generation */
+	UCHAR *req_blr;				/* raw blr string */
+	SCHAR *req_handle;			/* request handle */
+	TEXT *req_trans;			/* transaction handle */
+	SCHAR *req_request_level;	/* request level expression */
+	SCHAR *req_form_handle;		/* optional handle for forms */
+	USHORT req_level;			/* access level */
+	USHORT req_count;			/* number of ports in request */
+	USHORT req_internal;		/* next internal context number */
+	USHORT req_labels;			/* next available label */
+	USHORT req_top_label;		/* fortran label for top of request */
+	USHORT req_btm_label;		/* fortran label for request exit */
+	struct nod *req_node;		/* request definition tree */
+	struct dbb *req_database;	/* database */
+	struct act *req_actions;	/* actions within request */
+	struct ctx *req_contexts;	/* contexts within request */
+	struct ctx *req_update;		/* update context for mass insert */
+	struct req *req_next;		/* next request in module or metadata action */
+	struct ref *req_values;		/* host values required */
+#ifdef SCROLLABLE_CURSORS
+	struct ref *req_avalues;	/* parameters to pass to asynchronous message */
+#endif
+	struct ref *req_eof;		/* eof reference for FOR */
+	struct ref *req_index;		/* index variable */
+	struct ref *req_references;	/* fields referenced in context */
+	struct ref *req_term_field;	/* terminating field for forms */
+	struct map *req_map;		/* map for aggregates, etc */
+	struct rse *req_rse;		/* record selection expression */
+	struct por *req_ports;		/* linked list of ports */
+	struct por *req_primary;	/* primary input or output port */
+	struct por *req_sync;		/* synchronization port */
+	struct por *req_vport;		/* port to send values in */
+#ifdef SCROLLABLE_CURSORS
+	struct por *req_aport;		/* port for asynchronous message */
+#endif
+	struct req *req_routine;	/* other requests in routine */
+	struct blb *req_blobs;		/* blobs in request */
+	struct form *req_form;		/* form for request */
+	struct slc *req_slice;		/* slice for request */
+	struct ref *req_array_references;	/* array fields referenced in context */
+	USHORT req_scope_level;		/* scope level for SQL subquery parsing */
+	USHORT req_in_aggregate;	/* now processing value expr for aggr */
+	USHORT req_in_select_list;	/* processing select list */
+	USHORT req_in_where_clause;	/* processing where clause */
+	USHORT req_in_having_clause;	/* processing having clause */
+	USHORT req_in_order_by_clause;	/* processing order by clause */
+	USHORT req_in_subselect;	/* processing a subselect clause */
+	ULONG req_flags;
+} *REQ;
+
+#define REQ_exp_hand		1
+#define REQ_local		2		/* defined in an included routine */
+#define REQ_menu_tag		4	/* tag line menu */
+#define REQ_menu_pop_up		8	/* pop-up style menu */
+#define REQ_exp_form_handle	16	/* Explicit handle for form */
+#define REQ_transparent		32	/* Form is transparent */
+#define REQ_form_tag		64	/* Put form on tag line */
+#define REQ_form_nowait		128
+#define REQ_menu_for		256	/* dynamic menu */
+#define REQ_menu_for_item	512	/* dynamic menu for item */
+#define REQ_sql_cursor		1024	/* request is an SQL cursor */
+#define REQ_extend_dpb		2048	/* we need to extend dpb at runtime */
+#define REQ_sql_declare_cursor	4096	/* request is declare cursor */
+#define REQ_sql_blob_open	8192	/* request is SQL open blob cursor */
+#define REQ_sql_blob_create	16384	/* request is SQL create blob cursor */
+#define REQ_sql_database_dyn	32768	/* request is to generate DYN to add files o database */
+#ifdef SCROLLABLE_CURSORS
+#define REQ_scroll		65536	/* request is a scrollable cursor */
+#define REQ_backwards	       131072	/* request was last scrolled backwards */
+#endif
+#define REQ_blr_version4       262144	/* request must generate blr_version4 */
+
+#define REQ_LEN sizeof (struct req)
+
+
+/* act_object block for SQL database commands. */
+
+typedef struct mdbb {
+	struct dbb *mdbb_database;
+	struct req *mdbb_dpb_request;
+	struct req *mdbb_dpb_extend_request;
+} *MDBB;
+
+
+
+/* Reserved relation lock block */
+
+typedef struct rrl {
+	struct rrl *rrl_next;		/* next locked relation */
+	UCHAR rrl_lock_level;		/* lock level (SHARE, PROT, EXC */
+	UCHAR rrl_lock_mode;		/* lock mode (READ/WRITE) */
+	struct rel *rrl_relation;	/* relation block */
+} *RRL;
+
+#define RRL_LEN sizeof (struct rrl)
+
+
+/* Record selection expresion syntax node */
+
+typedef struct rse {
+	USHORT rse_type;			/* node type */
+	struct nod *rse_boolean;	/* boolean expression, if present */
+	struct nod *rse_first;		/* "first n" clause, if present */
+	struct nod *rse_reduced;	/* projection clause, if present */
+	struct nod *rse_sort;		/* sort clause, if present */
+	struct nod *rse_fields;		/* list of fields */
+	struct nod *rse_into;		/* list of output variables */
+	struct nod *rse_union;		/* if union, list of sub-rses */
+	struct nod *rse_group_by;	/* list of grouping fields */
+	struct nod *rse_plan;		/* user-specified access plan */
+	struct map *rse_map;		/* map for aggregates */
+	struct rse *rse_aggregate;	/* Aggregate rse */
+	enum nod_t rse_join_type;	/* Join type */
+	USHORT rse_flags;			/* flags */
+	USHORT rse_count;			/* number of relations */
+	struct ctx *rse_context[1];	/* context block */
+} *RSE;
+
+
+#ifdef __cplusplus
+
+inline size_t RSE_LEN(size_t nItems)
+{
+	return offsetof(rse, rse_context) + nItems * sizeof(int *);
+}
+
+#else /* __cplusplus */
+
+#define RSE_LEN(nItems) (offsetof(struct rse, rse_context) + (nItems) * sizeof(int*))
+
+#endif /* __cplusplus */
+
+//#define RSE_LEN(cnt) (sizeof (struct rse) + (cnt - 1) * sizeof (int *))
+
+#define RSE_singleton 1
+
+
+/* Set generator block */
+
+typedef struct sgen {
+	TEXT *sgen_name;
+	USHORT sgen_dialect;
+	SLONG sgen_value;
+	SINT64 sgen_int64value;
+} *SGEN;
+
+#define SGEN_LEN sizeof (struct sgen)
+
+
+/* Slice description block */
+
+typedef struct slc {
+	REQ slc_parent_request;		/* request for blob id */
+	FLD slc_field;				/* database array field */
+	NOD slc_array;				/* user defined array */
+	REF slc_field_ref;			/* array field reference */
+	USHORT slc_dimensions;		/* dimensions */
+	USHORT slc_parameters;		/* number of parameters */
+	struct slc_repeat {
+		NOD slc_lower;
+		NOD slc_upper;
+	} slc_rpt[1];
+} *SLC;
+
+#define SLC_LEN(count)	(sizeof (struct slc) + sizeof (slc::slc_repeat) * (count - 1))
+
+/* SQL WHENEVER BLOCK */
+
+typedef struct swe {
+	struct swe *swe_next;		/* Next in chain */
+	USHORT swe_condition;		/* Condition */
+	USHORT swe_length;			/* Length of label */
+	TEXT swe_label[1];			/* Label */
+} *SWE;
+
+#define SWE_error	0
+#define SWE_warning	1
+#define SWE_not_found	2
+#define SWE_max		3
+
+
+
+/* statistic block. Used for all statistics commands */
+
+typedef struct sts {
+	struct str *sts_name;		/* object name */
+	USHORT sts_flags;			/* Miscellaneous flags */
+} *STS;
+
+#define STS_LEN		sizeof (struct sts)
+#define STS_index	1			/* Object is an index */
+
+
+
+/* STRing block - holds a null terminated string */
+
+typedef struct str {
+	TEXT str_string[1];			/* pretty simple, no? */
+} *STR;
+
+#define STR_LEN(size)	(sizeof (struct str) + size)
+
+
+/* Symbol block, also used for hash table */
+
+enum sym_t {
+	SYM_keyword,
+	SYM_context,
+	SYM_database,
+	SYM_relation,
+	SYM_field,
+	SYM_variable,
+	SYM_stream,
+	SYM_cursor,
+	SYM_delimited_cursor,
+	SYM_index,
+	SYM_blob,
+	SYM_statement,
+	SYM_dyn_cursor,
+	SYM_form,
+	SYM_form_map,
+	SYM_form_field,
+	SYM_type,
+	SYM_udf,
+	SYM_menu,
+	SYM_menu_map,
+	SYM_username,
+	SYM_procedure,
+	SYM_charset,
+	SYM_collate,
+	SYM_generator,
+	SYM_dummy,
+
+	SYM_LASTSYM					/* Leave this debugging SYM last */
+};
+
+typedef struct sym {
+	char *sym_string;			/* address of asciz string */
+	enum sym_t sym_type;		/* symbol type */
+	USHORT sym_keyword;			/* keyword number, if keyword */
+	struct ctx *sym_object;		/* general pointer to object */
+	struct sym *sym_collision;	/* collision pointer */
+	struct sym *sym_homonym;	/* homonym pointer */
+	SCHAR sym_name[1];			/* space for name, if necessary */
+} *SYM;
+
+#define SYM_LEN sizeof (struct sym)
+
+
+/* Start transaction block */
+
+typedef struct tra {
+	struct tra *tra_next;		/* next transaction */
+	TEXT *tra_handle;			/* this handle */
+	USHORT tra_flags;			/* transaction options */
+	struct tpb *tra_tpb;		/* TPB's for this transaction */
+	int tra_db_count;			/* number of db's and TPB's */
+} *TRA;
+
+#define TRA_LEN	sizeof (struct tra)
+
+/* values for tra_flags */
+
+#define TRA_ro			1
+#define TRA_nw			2
+#define TRA_con			4
+#define TRA_rrl 		8
+#define TRA_inc 		16
+#define TRA_read_committed	32
+#define TRA_autocommit		64
+#define TRA_rec_version		128
+#define TRA_no_auto_undo	256
+
+#define MAX_TRA_OPTIONS		8
+
+
+/* TPB block */
+
+typedef struct tpb {
+	struct tpb *tpb_tra_next;	/* next TPB for this transaction */
+	struct tpb *tpb_dbb_next;	/* next TPB for this database */
+	struct dbb *tpb_database;	/* DBB of this part of the transaction */
+	USHORT tpb_length;			/* length of actual TPB */
+	USHORT tpb_ident;			/* unique part of name for this TPB */
+	UCHAR tpb_string[1];		/* actual TPB */
+} *TPB;
+
+#define TPB_LEN(tpb_string) (sizeof (struct tpb) + tpb_string)
+
+
+/* Enumerated field type block */
+
+typedef struct typ {
+	SYM typ_symbol;				/* Actual symbol */
+	FLD typ_field;				/* Owner */
+	SSHORT typ_value;			/* Value of type */
+} *TYP;
+
+#define TYP_LEN sizeof (struct typ)
+
+
+
+/* Trigger block */
+/* Note: This structure will need expansion later.  Currently its
+   use is to create a trigger for CHECK constraints which always
+   abort on error                                                   */
+
+typedef struct trg {
+	struct str *trg_name;
+	USHORT trg_type;			/* Type of trigger */
+	struct str *trg_source;		/* source for trigger */
+	struct nod *trg_boolean;	/* boolean expression, for trigger */
+	struct str *trg_message;	/* Message the trigger prints */
+} *TRG;
+
+#define TRG_LEN sizeof (struct trg)
+
+#define PRE_STORE_TRIGGER	1
+#define POST_STORE_TRIGGER	2
+#define PRE_MODIFY_TRIGGER	3
+#define POST_MODIFY_TRIGGER	4
+#define PRE_ERASE_TRIGGER	5
+#define POST_ERASE_TRIGGER	6
+
+
+/* Text block */
+
+typedef struct txt {
+	ULONG txt_position;
+	USHORT txt_length;
+} *TXT;
+
+#define TXT_LEN sizeof (struct txt)
+
+
+
+/* User Defined Function */
+
+typedef struct udf {
+	struct dbb *udf_database;
+	SYM udf_symbol;				/* Function name or query name */
+	USHORT udf_args;			/* Number of arguments */
+	USHORT udf_flags;			/* UDF flags */
+	USHORT udf_dtype;			/* Return data type */
+	SSHORT udf_scale;			/* Return scale */
+	USHORT udf_length;			/* Return length */
+	USHORT udf_sub_type;		/* Return sub-type */
+	USHORT udf_charset_id;		/* Return character set */
+	USHORT udf_ttype;			/* Return text type */
+	USHORT udf_type;			/* Function type */
+	struct fld *udf_inputs;		/* List of udf input arguments */
+	TEXT udf_function[1];		/* Function name */
+} *UDF;
+
+#define UDF_LEN (sizeof (struct udf))
+#define	UDF_value	0
+#define UDF_boolean	1
+
+#define UDF_scanned	1
+
+
+/* Update block -- used for (at least) MODIFY */
+
+typedef struct upd {
+	USHORT upd_level;			/* reference level */
+	struct req *upd_request;	/* parent request */
+	struct ref *upd_references;	/* references under modify */
+	struct ctx *upd_source;		/* context being modified */
+	struct ctx *upd_update;		/* update context */
+	struct por *upd_port;		/* port for update */
+	struct upd *upd_outer;		/* outer modify, if any */
+	struct nod *upd_assignments;	/* assignments to port */
+	struct ref *upd_array_references;	/* array references under modify */
+} *UPD;
+
+#define UPD_LEN sizeof (struct upd)
+
+
+/* User name -- used for SQL GRANT/REVOKE */
+
+typedef struct usn {
+	struct usn *usn_next;
+	SCHAR *usn_name;
+	USHORT usn_dyn;				/* describes the type of user via a dyn-verb,
+								   i.e. gds__dyn_grant_user/view/proc/trig */
+} *USN;
+
+#define USN_LEN sizeof (struct usn)
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+#include "../jrd/dsc.h"
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+#define dtype_float	dtype_real
+
+
+/* GPRE wide globals */
+
+#ifdef GPRE_MAIN
+#define EXTERN
+#else
+#define EXTERN	extern
+#endif
+
+/* Added sw_verbose
+   FSG 14.Nov.2000 */
+
+EXTERN USHORT sw_verbose, sw_auto, sw_sql, sw_gen_sql, sw_raw, sw_cstring,
+	sw_dsql, sw_dyn_using, sw_ada, sw_standard_out, sw_ansi, sw_lines, sw_ids,
+	sw_trace, sw_case, sw_external, sw_pyxis, sw_version, sw_window_scope,
+	sw_alsys, sw_d_float, sw_sql_dialect, sw_know_interp, sw_server_version,
+	sw_ods_version, override_case, dialect_specified;
+
+EXTERN SSHORT sw_interp;
+EXTERN USHORT compiletime_db_dialect;
+
+
+EXTERN TEXT ada_package[256], *ada_null_address;
+EXTERN DBB isc_databases;
+EXTERN TEXT *default_user, *default_password;
+EXTERN TEXT *default_lc_ctype;
+EXTERN TEXT *default_lc_messages;
+EXTERN REQ requests;
+EXTERN LLS events;
+EXTERN IB_FILE *out_file;
+EXTERN LANG_T sw_language;
+EXTERN int line, errors, warnings, fatals;
+EXTERN ACT functions;
+EXTERN struct dbd global_db_list[32];
+EXTERN USHORT global_db_count;
+EXTERN INTLSYM text_subtypes;
+
+/* ada_flags fields definition */
+
+#define ADA_create_database	1	/* the flag is set when there is a 
+								   create database SQL statement in
+								   user program, and is used to 
+								   generate additional "with" and 
+								   "function" declarations    */
+
+EXTERN USHORT ada_flags;
+
+#undef EXTERN
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+#include "../gpre/msc_proto.h"
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#ifndef assert
+#ifdef DEV_BUILD
+#define _assert(ex)	{if (!(ex)){(void) CPR_assert (__FILE__, __LINE__);}}
+#define assert(ex)	_assert(ex)
+#else
+#define _assert(ex)
+#define assert(ex)
+#endif
+#endif
+
+/* IMP does'nt allow enums to be used in conditional operations that include
+>, >= , <, <= etc. It only allows == for enums, hence the typecast */
+
+#ifdef IMP
+#define assert_IS_REQ(x) assert(!(x) || ((int)((x)->req_type) >= (int)0 && (int)((x)->req_type) < (int)REQ_LASTREQUEST))
+#define assert_IS_SYM(x) assert(!(x) || ((int)((x)->sym_type) >= (int)0 && (int)((x)->sym_type) < (int)SYM_LASTSYM))
+#define assert_IS_NOD(x) assert(!(x) || ((int)((x)->nod_type) >= (int)1 && (int)((x)->nod_type) < (int)nod_LASTNOD))
+#define assert_IS_ACT(x) assert(!(x) || ((int)((x)->act_type) >= (int)0 && (int)((x)->act_type) < (int)ACT_LASTACT))
+#else
+#define assert_IS_REQ(x) assert(!(x) || ((x)->req_type >= 0 && (x)->req_type < REQ_LASTREQUEST))
+#define assert_IS_SYM(x) assert(!(x) || ((x)->sym_type >= 0 && (x)->sym_type < SYM_LASTSYM))
+#define assert_IS_NOD(x) assert(!(x) || ((x)->nod_type >= 1 && (x)->nod_type < nod_LASTNOD))
+#define assert_IS_ACT(x) assert(!(x) || ((x)->act_type >= 0 && (x)->act_type < ACT_LASTACT))
+#endif	/** IMP **/
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _GPRE_GPRE_H_ */
diff --git a/src/gpre/gpre_meta.e b/src/gpre/gpre_meta.e
new file mode 100644
index 0000000000..a1337c8b18
--- /dev/null
+++ b/src/gpre/gpre_meta.e
@@ -0,0 +1,2208 @@
+/*
+ * tab=4
+ *____________________________________________________________
+ *  
+ *		PROGRAM:	C preprocessor
+ *		MODULE:		gpre_meta.e
+ *		DESCRIPTION:	Meta data interface to system
+ *  
+ *  The contents of this file are subject to the Interbase Public
+ *  License Version 1.0 (the "License"); you may not use this file
+ *  except in compliance with the License. You may obtain a copy
+ *  of the License at http://www.Inprise.com/IPL.html
+ *  
+ *  Software distributed under the License is distributed on an
+ *  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ *  or implied. See the License for the specific language governing
+ *  rights and limitations under the License.
+ *  
+ *  The Original Code was created by Inprise Corporation
+ *  and its predecessors. Portions created by Inprise Corporation are
+ *  Copyright (C) Inprise Corporation.
+ *  
+ *  All Rights Reserved.
+ *  Contributor(s): ______________________________________.
+ *  
+ *
+ *____________________________________________________________
+ *
+ *	$Id: gpre_meta.e,v 1.1.1.1 2001-05-23 13:25:33 tamlin Exp $
+ */
+
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../gpre/gpre.h"
+#include "../jrd/license.h"
+#include "../gpre/parse.h"
+#include "../jrd/intl.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/hsh_proto.h"
+#include "../gpre/jrdme_proto.h"
+#include "../gpre/gpre_meta.h"
+#include "../gpre/msc_proto.h"
+#include "../gpre/par_proto.h"
+#include "../jrd/constants.h"
+
+#define MAX_USER_LENGTH		33
+#define MAX_PASSWORD_LENGTH	33
+
+DATABASE DB = FILENAME "yachts.lnk" RUNTIME dbb->dbb_filename;
+
+extern enum lang_t sw_language;
+extern USHORT sw_cstring;
+extern DBB isc_databases;
+
+static CONST UCHAR blr_bpb[] = { isc_bpb_version1,
+	isc_bpb_source_type, 1, BLOB_blr,
+	isc_bpb_target_type, 1, BLOB_blr
+};
+
+#ifdef SCROLLABLE_CURSORS
+static SCHAR db_version_info[] = { gds__info_base_level };
+#endif
+
+static SLONG array_size(FLD);
+static void get_array(DBB, TEXT *, FLD);
+static int get_intl_char_subtype(SSHORT *, UCHAR *, USHORT, DBB);
+static int resolve_charset_and_collation(SSHORT *, UCHAR *, UCHAR *);
+static int symbol_length(TEXT *);
+static int upcase(TEXT *, TEXT *);
+
+
+/*____________________________________________________________
+ *  
+ *		Lookup a field by name in a context.
+ *		If found, return field block.  If not, return NULL.
+ */  
+
+FLD MET_context_field( CTX context, char *string)
+{
+	SYM symbol;
+	PRC procedure;
+	FLD field;
+	SCHAR name[NAME_SIZE];
+	SSHORT length;
+
+	if (context->ctx_relation) {
+		return (MET_field(context->ctx_relation, string));
+	}
+
+	if (!context->ctx_procedure) {
+		return NULL;
+	}
+
+	strcpy(name, string);
+	procedure = context->ctx_procedure;
+
+/*  At this point the procedure should have been scanned, so all
+ *  its fields are in the symbol table.
+ */
+
+	field = NULL;
+	for (symbol = HSH_lookup(name); symbol; symbol = symbol->sym_homonym) {
+		if (symbol->sym_type == SYM_field &&
+			(field = (FLD) symbol->sym_object) &&
+			field->fld_procedure == procedure)
+		{
+			return field;
+		}
+	}
+
+	return field;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Initialize meta data access to database.  If the
+ *		database can't be opened, return FALSE.
+ */  
+
+BOOLEAN MET_database(DBB dbb, BOOLEAN print_version)
+{
+	SCHAR dpb[MAX_PASSWORD_LENGTH + MAX_USER_LENGTH + 5], *d, *p;
+	SCHAR buffer[16], *data;
+	SSHORT l;
+	static CONST UCHAR sql_version_info[] = { isc_info_base_level,
+		isc_info_ods_version,
+		isc_info_db_sql_dialect,
+		isc_info_end
+	};
+	/* 
+	   ** Each info item requested will return 
+	   **
+	   **     1 byte for the info item tag
+	   **     2 bytes for the length of the information that follows
+	   **     1 to 4 bytes of integer information
+	   **
+	   ** isc_info_end will not have a 2-byte length - which gives us
+	   ** some padding in the buffer.
+	 */
+	UCHAR sql_buffer[sizeof(sql_version_info) * (1 + 2 + 4)];
+	UCHAR *ptr;
+
+
+#ifndef REQUESTER
+	if (sw_language == lang_internal) {
+		JRDMET_init(dbb);
+		return TRUE;
+	}
+#endif
+
+	DB = NULL;
+
+	if (!dbb->dbb_filename) {
+		CPR_error("No database specified");
+		return FALSE;
+	}
+
+/*  generate a dpb for the attach from the specified 
+ *  compiletime user name and password 
+ */
+
+	d = dpb;
+	if (dbb->dbb_c_user || dbb->dbb_c_password) {
+		*d++ = gds__dpb_version1;
+		if (p = dbb->dbb_c_user) {
+			*d++ = gds__dpb_user_name;
+			*d++ = strlen(p);
+			while (*p)
+				*d++ = *p++;
+		}
+		if (p = dbb->dbb_c_password) {
+			*d++ = gds__dpb_password;
+			*d++ = strlen(p);
+			while (*p)
+				*d++ = *p++;
+		}
+	}
+
+	if (gds__attach_database
+		(gds__status, 0, GDS_VAL(dbb->dbb_filename), GDS_REF(DB), d - &dpb[0],
+		 dpb)) {
+		gds__print_status(gds__status);
+		return FALSE;
+	}
+
+	dbb->dbb_handle = DB;
+
+	if (sw_version && print_version) {
+		ib_printf("    Version(s) for database \"%s\"\n", dbb->dbb_filename);
+		gds__version(&DB, NULL, NULL);
+	}
+
+	sw_ods_version = 0;
+	sw_server_version = 0;
+	if (isc_database_info(isc_status, &DB, sizeof(sql_version_info),
+						  sql_version_info, sizeof(sql_buffer), sql_buffer)) {
+		gds__print_status(isc_status);
+		return FALSE;
+	}
+
+	ptr = sql_buffer;
+	while (*ptr != isc_info_end) {
+		UCHAR item;
+		USHORT length;
+
+		item = (UCHAR) * ptr++;
+		length = isc_vax_integer(ptr, sizeof(USHORT));
+		ptr += sizeof(USHORT);
+		switch (item) {
+		case isc_info_base_level:
+			sw_server_version = (USHORT) ptr[1];
+			break;
+
+		case isc_info_ods_version:
+			sw_ods_version = isc_vax_integer(ptr, length);
+			break;
+
+		case isc_info_db_sql_dialect:
+			compiletime_db_dialect = isc_vax_integer(ptr, length);
+			break;
+		case isc_info_error:
+			/* Error indicates that one of the  option
+			   was not understood by thr server. Make sure it was
+			   isc_info_db_sql_dialect and assume
+			   that the database dialect is SQL_DIALECT_V5
+			 */
+			if ((sw_server_version != 0) && (sw_ods_version != 0))
+				compiletime_db_dialect = SQL_DIALECT_V5;
+			else
+				ib_printf("Internal error: Unexpected isc_info_value %d\n",
+						  item);
+			break;
+		default:
+			ib_printf("Internal error: Unexpected isc_info_value %d\n", item);
+			break;
+		}
+		ptr += length;
+	}
+
+	if (!dialect_specified)
+		sw_sql_dialect = compiletime_db_dialect;
+	if (sw_ods_version < 10) {
+		if (sw_sql_dialect != compiletime_db_dialect) {
+			char warn_mesg[100];
+			sprintf(warn_mesg,
+					"Pre 6.0 database. Cannot use dialect %d, Resetting to %d\n",
+					sw_sql_dialect, compiletime_db_dialect);
+			CPR_warn(warn_mesg);
+		}
+		sw_sql_dialect = compiletime_db_dialect;
+	}
+
+	else if (sw_sql_dialect != compiletime_db_dialect) {
+		char warn_mesg[100];
+		sprintf(warn_mesg,
+				"Client dialect set to %d. Compiletime database dialect is %d\n",
+				sw_sql_dialect, compiletime_db_dialect);
+		CPR_warn(warn_mesg);
+	}
+
+#ifdef DEBUG
+	if (sw_version && print_version)
+		ib_printf("Gpre Start up values. \
+	\n\tServer Ver                   : %d\
+        \n\tCompile time db Ver          : %d\
+	\n\tCompile time db Sql Dialect  : %d\
+	\n\tClient Sql dialect set to    : %d\n\n", \sw_server_version, sw_ods_version, compiletime_db_dialect, \sw_sql_dialect);
+#endif
+#ifdef SCROLLABLE_CURSORS
+/*  get the base level of the engine  */
+
+	if (gds__database_info(gds__status,
+						   GDS_REF(DB),
+						   sizeof(db_version_info),
+						   db_version_info, sizeof(buffer), buffer)) {
+		gds__print_status(gds__status);
+		return FALSE;
+	}
+
+/*  this seems like a lot of rigamarole to read one info item, 
+ *  but it provides for easy extensibility in case we need 
+ *  more info items later 
+ */
+
+	data = buffer;
+	while ((p = *data++) != gds__info_end) {
+		l = isc_vax_integer(data, 2);
+		data += 2;
+
+		switch ((int) p) {
+			/* This flag indicates the version level of the engine  
+			   itself, so we can tell what capabilities the engine 
+			   code itself (as opposed to the on-disk structure).
+			   Apparently the base level up to now indicated the major 
+			   version number, but for 4.1 the base level is being 
+			   incremented, so the base level indicates an engine version 
+			   as follows:
+			   1 == v1.x
+			   2 == v2.x
+			   3 == v3.x
+			   4 == v4.0 only
+			   5 == v4.1
+			   Note: this info item is so old it apparently uses an 
+			   archaic format, not a standard vax integer format.
+			 */
+
+		case gds__info_base_level:
+			dbb->dbb_base_level = (USHORT) data[1];
+			break;
+
+		default:
+			;
+		}
+
+		data += l;
+	}
+#endif
+
+	return TRUE;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Lookup a domain by name.
+ *		Initialize the size of the field.
+ */  
+
+USHORT MET_domain_lookup(REQ request, FLD field, char *string)
+{
+	SYM symbol;
+	DBB dbb;
+	SCHAR name[NAME_SIZE];
+	FLD d_field;
+	SSHORT length;
+	SSHORT found = FALSE;
+
+	strcpy(name, string);
+
+/*  Lookup domain.  If we find it in the hash table, and it is not the
+ *  field we a currently looking at, use it.  Else look it up from the
+ *  database.
+ */
+
+	for (symbol = HSH_lookup(name); symbol; symbol = symbol->sym_homonym)
+		if ((symbol->sym_type == SYM_field) &&
+			((d_field = (FLD) symbol->sym_object) && (d_field != field))) {
+			field->fld_length = d_field->fld_length;
+			field->fld_scale = d_field->fld_scale;
+			field->fld_sub_type = d_field->fld_sub_type;
+			field->fld_dtype = d_field->fld_dtype;
+			field->fld_ttype = d_field->fld_ttype;
+			field->fld_charset_id = d_field->fld_charset_id;
+			field->fld_collate_id = d_field->fld_collate_id;
+			field->fld_char_length = d_field->fld_char_length;
+			return TRUE;
+		}
+
+	if (!request)
+		return FALSE;
+
+	dbb = request->req_database;
+	if (dbb->dbb_flags & DBB_sqlca)
+		return FALSE;
+
+	DB = dbb->dbb_handle;
+	gds__trans = dbb->dbb_transaction;
+
+	if (!(dbb->dbb_flags & DBB_v3)) {
+		FOR(REQUEST_HANDLE dbb->dbb_domain_request)
+		F IN RDB$FIELDS WITH F.RDB$FIELD_NAME EQ name found = TRUE;
+		field->fld_length = F.RDB$FIELD_LENGTH;
+		field->fld_scale = F.RDB$FIELD_SCALE;
+		field->fld_sub_type = F.RDB$FIELD_SUB_TYPE;
+		field->fld_dtype =
+			MET_get_dtype(F.RDB$FIELD_TYPE, F.RDB$FIELD_SUB_TYPE,
+						  &field->fld_length);
+
+		switch (field->fld_dtype) {
+		case dtype_text:
+		case dtype_cstring:
+			field->fld_flags |= FLD_text;
+			break;
+
+		case dtype_blob:
+			field->fld_flags |= FLD_blob;
+			field->fld_seg_length = F.RDB$SEGMENT_LENGTH;
+			break;
+		}
+
+		if (field->fld_dtype <= dtype_any_text) {
+			if (!F.RDB$CHARACTER_LENGTH.NULL)
+				field->fld_char_length = F.RDB$CHARACTER_LENGTH;
+			if (!F.RDB$CHARACTER_SET_ID.NULL)
+				field->fld_charset_id = F.RDB$CHARACTER_SET_ID;
+			if (!F.RDB$COLLATION_ID.NULL)
+				field->fld_collate_id = F.RDB$COLLATION_ID;
+		}
+
+		field->fld_ttype =
+			INTL_CS_COLL_TO_TTYPE(field->fld_charset_id,
+								  field->fld_collate_id);
+
+		END_FOR;
+	}
+	else {
+		FOR(REQUEST_HANDLE dbb->dbb_domain_request)
+		F IN RDB$FIELDS WITH F.RDB$FIELD_NAME EQ name found = TRUE;
+		field->fld_length = F.RDB$FIELD_LENGTH;
+		field->fld_scale = F.RDB$FIELD_SCALE;
+		field->fld_sub_type = F.RDB$FIELD_SUB_TYPE;
+		field->fld_dtype =
+			MET_get_dtype(F.RDB$FIELD_TYPE, F.RDB$FIELD_SUB_TYPE,
+						  &field->fld_length);
+
+		switch (field->fld_dtype) {
+		case dtype_text:
+		case dtype_cstring:
+			field->fld_flags |= FLD_text;
+			break;
+
+		case dtype_blob:
+			field->fld_flags |= FLD_blob;
+			field->fld_seg_length = F.RDB$SEGMENT_LENGTH;
+			break;
+		}
+
+		field->fld_ttype =
+			INTL_CS_COLL_TO_TTYPE(field->fld_charset_id,
+								  field->fld_collate_id);
+
+		END_FOR;
+	}
+
+	return found;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Gets the default value for a domain of an existing table
+ */  
+
+BOOLEAN MET_get_domain_default(DBB dbb,
+							   TEXT * domain_name,
+							   TEXT * buffer, USHORT buff_length)
+{
+	SLONG *DB, *gds__trans;
+	SCHAR name[NAME_SIZE];
+	SSHORT length;
+	BOOLEAN has_default;
+	ISC_STATUS status_vect[20];
+	isc_blob_handle blob_handle = NULL;
+	ISC_QUAD *blob_id;
+	TEXT *ptr_in_buffer;
+	STATUS stat;
+
+
+	strcpy(name, domain_name);
+	has_default = FALSE;
+
+	if (dbb == NULL)
+		return FALSE;
+
+	if ((dbb->dbb_handle == NULL) && !MET_database(dbb, FALSE))
+		CPR_exit(FINI_ERROR);
+
+	assert(dbb->dbb_transaction == NULL);
+	gds__trans = NULL;
+
+	DB = dbb->dbb_handle;
+
+	START_TRANSACTION;
+
+	FOR(REQUEST_HANDLE dbb->dbb_domain_request)
+	FLD IN RDB$FIELDS WITH
+		FLD.RDB$FIELD_NAME EQ name if (!FLD.RDB$DEFAULT_VALUE.NULL) {
+		blob_id = &FLD.RDB$DEFAULT_VALUE;
+
+		/* open the blob */
+		stat = isc_open_blob2(status_vect, &DB, &gds__trans, &blob_handle,
+							  blob_id, sizeof(blr_bpb), blr_bpb);
+		if (stat) {
+			gds__print_status(status_vect);
+			CPR_exit(FINI_ERROR);
+		}
+		/* fetch segments. Assume buffer is big enough.  */
+			ptr_in_buffer = buffer;
+		while (TRUE) {
+			stat = isc_get_segment(status_vect, &blob_handle, &length,
+								   buff_length, ptr_in_buffer);
+			ptr_in_buffer = ptr_in_buffer + length;
+			buff_length = buff_length - length;
+
+			if (!stat)
+				continue;
+			else if (stat == gds__segstr_eof) {
+				/* null terminate the buffer */
+				*ptr_in_buffer = 0;
+				break;
+			}
+			else
+				CPR_exit(FINI_ERROR);
+		}
+		isc_close_blob(status_vect, &blob_handle);
+
+		/* the default string must be of the form:
+		   blr_version4 blr_literal ..... blr_eoc OR
+		   blr_version4 blr_null blr_eoc OR
+		   blr_version4 blr_user_name  blr_eoc */
+		assert(buffer[0] == blr_version4 || buffer[0] == blr_version5);
+		assert(buffer[1] == blr_literal ||
+			   buffer[1] == blr_null || buffer[1] == blr_user_name);
+
+		has_default = TRUE;
+	}
+	else {						/* default not found */
+
+		if (sw_sql_dialect > SQL_DIALECT_V5)
+			buffer[0] = blr_version5;
+		else
+			buffer[0] = blr_version4;
+		buffer[1] = blr_eoc;
+	}
+	END_FOR COMMIT;
+	return (has_default);
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Gets the default value for a column of an existing table.
+ *		Will check the default for the column of the table, if that is
+ *		not present, will check for the default of the relevant domain
+ *  
+ *		The default blr is returned in buffer. The blr is of the form
+ *		blr_version4 blr_literal ..... blr_eoc
+ *  
+ *		Reads the system tables RDB$FIELDS and RDB$RELATION_FIELDS.
+ */  
+
+BOOLEAN MET_get_column_default(REL relation,
+							   TEXT * column_name,
+							   TEXT * buffer, USHORT buff_length)
+{
+	DBB dbb;
+	SLONG *DB, *gds__trans;
+	SCHAR name[NAME_SIZE];
+	SSHORT length;
+	BOOLEAN has_default;
+	ISC_STATUS status_vect[20];
+	isc_blob_handle blob_handle = NULL;
+	ISC_QUAD *blob_id;
+	TEXT *ptr_in_buffer;
+	STATUS stat;
+
+	strcpy(name, column_name);
+	has_default = FALSE;
+
+	if ((dbb = relation->rel_database) == NULL)
+		return FALSE;
+
+	if ((dbb->dbb_handle == NULL) && !MET_database(dbb, FALSE))
+		CPR_exit(FINI_ERROR);
+
+	assert(dbb->dbb_transaction == NULL);
+	gds__trans = NULL;
+
+	DB = dbb->dbb_handle;
+
+	START_TRANSACTION;
+
+	FOR(REQUEST_HANDLE dbb->dbb_field_request)
+	RFR IN RDB$RELATION_FIELDS CROSS F IN RDB$FIELDS WITH
+		RFR.RDB$FIELD_SOURCE EQ F.RDB$FIELD_NAME AND
+		RFR.RDB$FIELD_NAME EQ name AND
+		RFR.RDB$RELATION_NAME EQ relation->rel_symbol->sym_string
+		if (!RFR.RDB$DEFAULT_VALUE.NULL) {
+		blob_id = &RFR.RDB$DEFAULT_VALUE;
+		has_default = TRUE;
+	}
+	else if (!F.RDB$DEFAULT_VALUE.NULL) {
+		blob_id = &F.RDB$DEFAULT_VALUE;
+		has_default = TRUE;
+	}
+
+	if (has_default) {
+		/* open the blob */
+		stat = isc_open_blob2(status_vect, &DB, &gds__trans,
+							  &blob_handle, blob_id, sizeof(blr_bpb),
+							  blr_bpb);
+		if (stat) {
+			gds__print_status(status_vect);
+			CPR_exit(FINI_ERROR);
+		}
+
+		/* fetch segments. Assuming here that the buffer is big enough. */
+		ptr_in_buffer = buffer;
+		while (TRUE) {
+			stat = isc_get_segment(status_vect, &blob_handle,
+								   &length, buff_length, ptr_in_buffer);
+			ptr_in_buffer = ptr_in_buffer + length;
+			buff_length = buff_length - length;
+			if (!stat)
+				continue;
+			else if (stat == gds__segstr_eof) {
+				/* null terminate the buffer */
+				*ptr_in_buffer = 0;
+				break;
+			}
+			else
+				CPR_exit(FINI_ERROR);
+		}
+		isc_close_blob(status_vect, &blob_handle);
+
+		/* the default string must be of the form:
+		   blr_version4 blr_literal ..... blr_eoc OR
+		   blr_version4 blr_null blr_eoc OR
+		   blr_version4 blr_user_name blr_eoc */
+
+		assert(buffer[0] == blr_version4 || buffer[0] == blr_version5);
+		assert(buffer[1] == blr_literal ||
+			   buffer[1] == blr_null || buffer[1] == blr_user_name);
+	}
+	else {
+		if (sw_sql_dialect > SQL_DIALECT_V5)
+			buffer[0] = blr_version5;
+		else
+			buffer[0] = blr_version4;
+		buffer[1] = blr_eoc;
+	}
+
+	END_FOR;
+	COMMIT;
+	return (has_default);
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Lookup the fields for the primary key
+ *		index on a relation, returning a list
+ *		of the fields.
+ */  
+
+LLS MET_get_primary_key(DBB dbb, TEXT * relation_name)
+{
+	LLS fields = NULL, *ptr_fields;
+	SLONG *DB, *gds__trans;
+	SCHAR name[NAME_SIZE];
+	STR field_name;
+	TEXT *tmp;
+
+	strcpy(name, relation_name);
+
+	if (dbb == NULL)
+		return NULL;
+
+	if ((dbb->dbb_handle == NULL) && !MET_database(dbb, FALSE))
+		CPR_exit(FINI_ERROR);
+
+	assert(dbb->dbb_transaction == NULL);
+	gds__trans = NULL;
+
+	DB = dbb->dbb_handle;
+
+	START_TRANSACTION;
+
+	ptr_fields = &fields;
+
+	FOR(REQUEST_HANDLE dbb->dbb_primary_key_request)
+	X IN RDB$INDICES CROSS
+		Y IN RDB$INDEX_SEGMENTS
+		OVER RDB$INDEX_NAME
+		WITH X.RDB$RELATION_NAME EQ name
+		AND X.RDB$INDEX_NAME STARTING "RDB$PRIMARY"
+		SORTED BY Y.RDB$FIELD_POSITION
+		field_name = MAKE_STRING(Y.RDB$FIELD_NAME);
+
+	/* Strip off any trailing spaces from field name */
+	tmp = field_name;
+	while (*tmp && *tmp != ' ')
+		*tmp++;
+	*tmp = '\0';
+
+	PUSH(field_name, ptr_fields);
+	ptr_fields = &(*ptr_fields)->lls_next;
+
+	END_FOR COMMIT;
+
+	return fields;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Lookup a field by name in a relation.
+ *		If found, return field block.  If not, return NULL.
+ */  
+
+FLD MET_field(REL relation, char *string)
+{
+	SYM symbol;
+	FLD field;
+	DBB dbb;
+	SCHAR name[NAME_SIZE];
+	SSHORT length;
+
+	strcpy(name, string);
+	length = strlen(name);
+
+/*  Lookup field.  If we find it, nifty.  If not, look it up in the
+ *  database.
+ */
+
+	for (symbol = HSH_lookup(name); symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_keyword &&
+			symbol->sym_keyword == (int) KW_DBKEY) return relation->rel_dbkey;
+		else if (symbol->sym_type == SYM_field &&
+				 (field = (FLD) symbol->sym_object) &&
+				 field->fld_relation == relation) return field;
+
+	if (sw_language == lang_internal)
+		return NULL;
+
+	dbb = relation->rel_database;
+
+	if (dbb->dbb_flags & DBB_sqlca)
+		return NULL;
+
+	DB = dbb->dbb_handle;
+	gds__trans = dbb->dbb_transaction;
+	field = NULL;
+
+	if (!(dbb->dbb_flags & DBB_v3)) {
+		FOR(REQUEST_HANDLE dbb->dbb_field_request)
+		RFR IN RDB$RELATION_FIELDS CROSS F IN RDB$FIELDS WITH
+			RFR.RDB$FIELD_SOURCE EQ F.RDB$FIELD_NAME AND
+			RFR.RDB$FIELD_NAME EQ name AND
+			RFR.RDB$RELATION_NAME EQ relation->rel_symbol->sym_string
+			field = (FLD) ALLOC(FLD_LEN);
+		field->fld_relation = relation;
+		field->fld_next = relation->rel_fields;
+		relation->rel_fields = field;
+		field->fld_id = RFR.RDB$FIELD_ID;
+		field->fld_length = F.RDB$FIELD_LENGTH;
+		field->fld_scale = F.RDB$FIELD_SCALE;
+		field->fld_position = RFR.RDB$FIELD_POSITION;
+		field->fld_sub_type = F.RDB$FIELD_SUB_TYPE;
+		field->fld_dtype =
+			MET_get_dtype(F.RDB$FIELD_TYPE, F.RDB$FIELD_SUB_TYPE,
+						  &field->fld_length);
+
+		switch (field->fld_dtype) {
+		case dtype_text:
+		case dtype_cstring:
+			field->fld_flags |= FLD_text;
+			break;
+
+		case dtype_blob:
+			field->fld_flags |= FLD_blob;
+			field->fld_seg_length = F.RDB$SEGMENT_LENGTH;
+			break;
+		}
+
+		if (F.RDB$DIMENSIONS && !(dbb->dbb_flags & DBB_no_arrays))
+			get_array(dbb, F.RDB$FIELD_NAME, field);
+
+		if ((field->fld_dtype <= dtype_any_text)
+			|| (field->fld_dtype == dtype_blob)) {
+			if (!F.RDB$CHARACTER_LENGTH.NULL)
+				field->fld_char_length = F.RDB$CHARACTER_LENGTH;
+			if (!F.RDB$CHARACTER_SET_ID.NULL)
+				field->fld_charset_id = F.RDB$CHARACTER_SET_ID;
+			if (!RFR.RDB$COLLATION_ID.NULL)
+				field->fld_collate_id = RFR.RDB$COLLATION_ID;
+			else if (!F.RDB$COLLATION_ID.NULL)
+				field->fld_collate_id = F.RDB$COLLATION_ID;
+		}
+
+		field->fld_ttype =
+			INTL_CS_COLL_TO_TTYPE(field->fld_charset_id,
+								  field->fld_collate_id);
+		field->fld_symbol = symbol =
+			MSC_symbol(SYM_field, name, length, field);
+		HSH_insert(symbol);
+		field->fld_global = symbol =
+			MSC_symbol(SYM_field, RFR.RDB$FIELD_SOURCE,
+					   symbol_length(RFR.RDB$FIELD_SOURCE), field);
+		END_FOR;
+	}
+	else {
+		FOR(REQUEST_HANDLE dbb->dbb_field_request)
+		RFR IN RDB$RELATION_FIELDS CROSS F IN RDB$FIELDS WITH
+			RFR.RDB$FIELD_SOURCE EQ F.RDB$FIELD_NAME AND
+			RFR.RDB$FIELD_NAME EQ name AND
+			RFR.RDB$RELATION_NAME EQ relation->rel_symbol->sym_string
+			field = (FLD) ALLOC(FLD_LEN);
+		field->fld_relation = relation;
+		field->fld_next = relation->rel_fields;
+		relation->rel_fields = field;
+		field->fld_id = RFR.RDB$FIELD_ID;
+		field->fld_length = F.RDB$FIELD_LENGTH;
+		field->fld_scale = F.RDB$FIELD_SCALE;
+		field->fld_position = RFR.RDB$FIELD_POSITION;
+		field->fld_sub_type = F.RDB$FIELD_SUB_TYPE;
+		field->fld_dtype =
+			MET_get_dtype(F.RDB$FIELD_TYPE, F.RDB$FIELD_SUB_TYPE,
+						  &field->fld_length);
+		switch (field->fld_dtype) {
+		case dtype_text:
+		case dtype_cstring:
+			field->fld_flags |= FLD_text;
+			break;
+
+		case dtype_blob:
+			field->fld_flags |= FLD_blob;
+			field->fld_seg_length = F.RDB$SEGMENT_LENGTH;
+			break;
+		}
+
+		if (!(dbb->dbb_flags & DBB_no_arrays))
+			get_array(dbb, F.RDB$FIELD_NAME, field);
+
+		field->fld_ttype =
+			INTL_CS_COLL_TO_TTYPE(field->fld_charset_id,
+								  field->fld_collate_id);
+		field->fld_symbol = symbol =
+			MSC_symbol(SYM_field, name, length, field);
+		HSH_insert(symbol);
+		field->fld_global = symbol =
+			MSC_symbol(SYM_field, RFR.RDB$FIELD_SOURCE,
+					   symbol_length(RFR.RDB$FIELD_SOURCE), field);
+		END_FOR;
+	}
+
+	return field;
+}
+
+
+/*____________________________________________________________
+ *  
+ *     Return a list of the fields in a relation
+ */  
+
+NOD MET_fields(CTX context)
+{
+	DBB dbb;
+	FLD field;
+	LLS stack;
+	NOD node, field_node;
+	REF reference;
+	PRC procedure;
+	REL relation;
+	TEXT *p;
+	int count;
+
+	if (procedure = context->ctx_procedure) {
+		node = MAKE_NODE(nod_list, procedure->prc_out_count);
+		count = 0;
+		for (field = procedure->prc_outputs; field; field = field->fld_next) {
+			reference = (REF) ALLOC(REF_LEN);
+			reference->ref_field = field;
+			reference->ref_context = context;
+			field_node = MSC_unary(nod_field, reference);
+			node->nod_arg[field->fld_position] = field_node;
+			count++;
+		}
+		return node;
+	}
+
+	relation = context->ctx_relation;
+	if (relation->rel_meta) {
+		for (count = 0, field = relation->rel_fields; field;
+			 field = field->fld_next) count++;
+		node = MAKE_NODE(nod_list, count);
+		count = 0;
+		for (field = relation->rel_fields; field; field = field->fld_next) {
+			reference = (REF) ALLOC(REF_LEN);
+			reference->ref_field = field;
+			reference->ref_context = context;
+			field_node = MSC_unary(nod_field, reference);
+			node->nod_arg[field->fld_position] = field_node;
+			count++;
+		}
+		return node;
+	}
+
+	if (sw_language == lang_internal)
+		return NULL;
+
+	dbb = relation->rel_database;
+	DB = dbb->dbb_handle;
+	gds__trans = dbb->dbb_transaction;
+
+	count = 0;
+	stack = NULL;
+	FOR(REQUEST_HANDLE dbb->dbb_flds_request)
+	RFR IN RDB$RELATION_FIELDS CROSS FLD IN RDB$FIELDS WITH
+		RFR.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME AND
+		RFR.RDB$RELATION_NAME EQ relation->rel_symbol->sym_string
+		SORTED BY RFR.RDB$FIELD_POSITION
+		for (p = RFR.RDB$FIELD_NAME; *p && *p != ' '; p++);
+	*p = 0;
+	PUSH(MET_field(relation, RFR.RDB$FIELD_NAME), &stack);
+	count++;
+	END_FOR;
+
+	node = MAKE_NODE(nod_list, count);
+
+	while (stack) {
+		field = (FLD) POP(&stack);
+		reference = (REF) ALLOC(REF_LEN);
+		reference->ref_field = field;
+		reference->ref_context = context;
+		field_node = MSC_unary(nod_field, reference);
+		node->nod_arg[--count] = field_node;
+	}
+
+	return node;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Shutdown all attached databases.
+ */  
+
+void MET_fini( DBB end)
+{
+	DBB dbb;
+
+	for (dbb = isc_databases; dbb && dbb != end; dbb = dbb->dbb_next)
+		if (DB = dbb->dbb_handle) {
+			if (gds__trans = dbb->dbb_transaction)
+				COMMIT;
+			FINISH;
+			dbb->dbb_handle = NULL;
+			dbb->dbb_transaction = NULL;
+
+			dbb->dbb_field_request = NULL;
+			dbb->dbb_flds_request = NULL;
+			dbb->dbb_relation_request = NULL;
+			dbb->dbb_procedure_request = NULL;
+			dbb->dbb_udf_request = NULL;
+			dbb->dbb_trigger_request = NULL;
+			dbb->dbb_proc_prms_request = NULL;
+			dbb->dbb_proc_prm_fld_request = NULL;
+			dbb->dbb_index_request = NULL;
+			dbb->dbb_type_request = NULL;
+			dbb->dbb_array_request = NULL;
+			dbb->dbb_dimension_request = NULL;
+			dbb->dbb_domain_request = NULL;
+			dbb->dbb_generator_request = NULL;
+			dbb->dbb_view_request = NULL;
+			dbb->dbb_primary_key_request = NULL;
+		}
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Lookup a generator by name.
+ *		If found, return string. If not, return NULL.
+ */  
+
+SCHAR *MET_generator(TEXT * string, DBB dbb)
+{
+	SYM symbol;
+	SCHAR *gen_name = NULL;
+	SCHAR name[NAME_SIZE];
+	SSHORT length;
+
+	strcpy(name, string);
+
+	for (symbol = HSH_lookup(name); symbol; symbol = symbol->sym_homonym)
+		if ((symbol->sym_type == SYM_generator) &&
+			(dbb == (DBB) (symbol->sym_object))) return symbol->sym_string;
+
+	return NULL;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Compute internal datatype and length based on system relation field values.
+ */  
+
+USHORT MET_get_dtype(USHORT blr_dtype, USHORT sub_type, USHORT * length)
+{
+	USHORT l, dtype;
+
+	l = *length;
+
+	switch (blr_dtype) {
+	case blr_varying:
+	case blr_text:
+		dtype = dtype_text;
+		if (sw_cstring && !SUBTYPE_ALLOWS_NULLS(sub_type)) {
+			++l;
+			dtype = dtype_cstring;
+		}
+		break;
+
+	case blr_cstring:
+		dtype = dtype_cstring;
+		++l;
+		break;
+
+	case blr_short:
+		dtype = dtype_short;
+		l = sizeof(SSHORT);
+		break;
+
+	case blr_long:
+		dtype = dtype_long;
+		l = sizeof(SLONG);
+		break;
+
+	case blr_quad:
+		dtype = dtype_quad;
+		l = sizeof(GDS__QUAD);
+		break;
+
+	case blr_float:
+		dtype = dtype_real;
+		l = sizeof(float);
+		break;
+
+	case blr_double:
+		dtype = dtype_double;
+		l = sizeof(double);
+		break;
+
+	case blr_blob:
+		dtype = dtype_blob;
+		l = sizeof(GDS__QUAD);
+		break;
+
+/** Begin sql date/time/timestamp **/
+	case blr_sql_date:
+		dtype = dtype_sql_date;
+		l = sizeof(ISC_DATE);
+		break;
+
+	case blr_sql_time:
+		dtype = dtype_sql_time;
+		l = sizeof(ISC_TIME);
+		break;
+
+	case blr_timestamp:
+		dtype = dtype_timestamp;
+		l = sizeof(ISC_TIMESTAMP);
+		break;
+/** Begin sql date/time/timestamp **/
+
+	case blr_int64:
+		dtype = dtype_int64;
+		l = sizeof(ISC_INT64);
+		break;
+
+	default:
+		CPR_error("datatype not supported");
+	}
+
+	*length = l;
+
+	return dtype;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Lookup a procedure (represented by a token) in a database.
+ *		Return a procedure block (if name is found) or NULL.
+ *  
+ *		This function has been cloned into MET_get_udf
+ */  
+
+PRC MET_get_procedure(DBB dbb, TEXT * string, TEXT * owner_name)
+{
+	SYM symbol;
+	FLD *fld_list, field;
+	PRC procedure;
+	USHORT length, type, count;
+	SCHAR name[NAME_SIZE], owner[NAME_SIZE];
+
+	strcpy(name, string);
+	strcpy(owner, owner_name);
+	procedure = NULL;
+
+	for (symbol = HSH_lookup(name); symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_procedure &&
+			(procedure = (PRC) symbol->sym_object) &&
+			procedure->prc_database == dbb &&
+			(!owner[0] ||
+			 (procedure->prc_owner
+			  && !strcmp(owner, procedure->prc_owner->sym_string)))) break;
+
+	if (!procedure)
+		return NULL;
+
+	if (procedure->prc_flags & PRC_scanned)
+		return procedure;
+
+	FOR(REQUEST_HANDLE dbb->dbb_procedure_request)
+	X IN RDB$PROCEDURES WITH X.RDB$PROCEDURE_ID = procedure->prc_id;
+
+	for (type = 0; type < 2; type++) {
+		count = 0;
+		if (type)
+			fld_list = &procedure->prc_outputs;
+		else
+			fld_list = &procedure->prc_inputs;
+
+		FOR(REQUEST_HANDLE dbb->dbb_proc_prms_request)
+		Y IN RDB$PROCEDURE_PARAMETERS WITH
+			Y.RDB$PROCEDURE_NAME EQ name AND
+			Y.RDB$PARAMETER_TYPE EQ type
+			SORTED BY DESCENDING Y.RDB$PARAMETER_NUMBER count++;
+
+		FOR(REQUEST_HANDLE dbb->dbb_proc_prm_fld_request)
+		F IN RDB$FIELDS WITH
+			Y.RDB$FIELD_SOURCE EQ F.RDB$FIELD_NAME
+			field = (FLD) ALLOC(FLD_LEN);
+		field->fld_procedure = procedure;
+		field->fld_next = *fld_list;
+		*fld_list = field;
+		field->fld_position = Y.RDB$PARAMETER_NUMBER;
+		field->fld_length = F.RDB$FIELD_LENGTH;
+		field->fld_scale = F.RDB$FIELD_SCALE;
+		field->fld_sub_type = F.RDB$FIELD_SUB_TYPE;
+		field->fld_dtype = MET_get_dtype(F.RDB$FIELD_TYPE,
+										 F.RDB$FIELD_SUB_TYPE,
+										 &field->fld_length);
+		switch (field->fld_dtype) {
+		case dtype_text:
+		case dtype_cstring:
+			field->fld_flags |= FLD_text;
+			if (!F.RDB$CHARACTER_LENGTH.NULL)
+				field->fld_char_length = F.RDB$CHARACTER_LENGTH;
+			if (!F.RDB$CHARACTER_SET_ID.NULL)
+				field->fld_charset_id = F.RDB$CHARACTER_SET_ID;
+			if (!F.RDB$COLLATION_ID.NULL)
+				field->fld_collate_id = F.RDB$COLLATION_ID;
+			field->fld_ttype =
+				INTL_CS_COLL_TO_TTYPE(field->fld_charset_id,
+									  field->fld_collate_id);
+			break;
+
+		case dtype_blob:
+			field->fld_flags |= FLD_blob;
+			field->fld_seg_length = F.RDB$SEGMENT_LENGTH;
+			if (!F.RDB$CHARACTER_SET_ID.NULL)
+				field->fld_charset_id = F.RDB$CHARACTER_SET_ID;
+			break;
+		}
+		field->fld_symbol = MSC_symbol(SYM_field,
+									   Y.RDB$PARAMETER_NAME,
+									   symbol_length(Y.RDB$PARAMETER_NAME),
+									   field);
+		/* If output parameter, insert in symbol table as a
+		   field. */
+		if (type)
+			HSH_insert(field->fld_symbol);
+
+		END_FOR;
+
+		END_FOR;
+
+		if (type)
+			procedure->prc_out_count = count;
+		else
+			procedure->prc_in_count = count;
+	}
+
+	END_FOR;
+	procedure->prc_flags |= PRC_scanned;
+
+/*  Generate a dummy relation to point to the procedure to use when procedure
+ *  is used as a view.
+ */
+
+	return procedure;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Lookup a relation (represented by a token) in a database.
+ *		Return a relation block (if name is found) or NULL.
+ */  
+
+REL MET_get_relation(DBB dbb, TEXT * string, TEXT * owner_name)
+{
+	SYM symbol;
+	REL relation;
+	SCHAR name[NAME_SIZE], owner[NAME_SIZE];
+
+	strcpy(name, string);
+	strcpy(owner, owner_name);
+
+	for (symbol = HSH_lookup(name); symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_relation &&
+			(relation = (REL) symbol->sym_object) &&
+			relation->rel_database == dbb &&
+			(!owner[0] ||
+			 (relation->rel_owner
+			  && !strcmp(owner,
+						 relation->rel_owner->sym_string)))) return relation;
+
+	return NULL;
+}
+
+
+/*____________________________________________________________
+ *  
+ */  
+
+INTLSYM MET_get_text_subtype(SSHORT ttype)
+{
+	INTLSYM p;
+
+	for (p = text_subtypes; p; p = p->intlsym_next)
+		if (p->intlsym_ttype == ttype)
+			return p;
+
+	return NULL;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Lookup a udf (represented by a token) in a database.
+ *		Return a udf block (if name is found) or NULL.
+ *  
+ *		This function was cloned from MET_get_procedure
+ */  
+
+UDF MET_get_udf(DBB dbb, TEXT * string)
+{
+	SYM symbol;
+	FLD field;
+	UDF udf;
+	USHORT length, count;
+	SCHAR name[NAME_SIZE];
+
+	strcpy(name, string);
+	udf = NULL;
+	for (symbol = HSH_lookup(name); symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_udf &&
+			(udf = (UDF) symbol->sym_object) && udf->udf_database == dbb)
+			break;
+	if (!udf)
+		return NULL;
+
+	if (udf->udf_flags & UDF_scanned)
+		return udf;
+
+	if (dbb->dbb_flags & DBB_v3) {
+		/* Version of V4 request without new V4 metadata */
+		FOR(REQUEST_HANDLE dbb->dbb_udf_request)
+		UDF_DEF IN RDB$FUNCTIONS CROSS
+			UDF_ARG IN RDB$FUNCTION_ARGUMENTS
+			WITH UDF_DEF.RDB$FUNCTION_NAME EQ name AND
+			UDF_DEF.RDB$FUNCTION_NAME EQ UDF_ARG.RDB$FUNCTION_NAME AND
+			UDF_DEF.RDB$RETURN_ARGUMENT != UDF_ARG.RDB$ARGUMENT_POSITION
+			SORTED BY DESCENDING UDF_ARG.RDB$ARGUMENT_POSITION;
+
+		field = (FLD) ALLOC(FLD_LEN);
+		field->fld_next = udf->udf_inputs;
+		udf->udf_inputs = field;
+		udf->udf_args++;
+		field->fld_position = UDF_ARG.RDB$ARGUMENT_POSITION;
+		field->fld_length = UDF_ARG.RDB$FIELD_LENGTH;
+		field->fld_scale = UDF_ARG.RDB$FIELD_SCALE;
+		field->fld_sub_type = UDF_ARG.RDB$FIELD_SUB_TYPE;
+		field->fld_dtype = MET_get_dtype(UDF_ARG.RDB$FIELD_TYPE,
+										 UDF_ARG.RDB$FIELD_SUB_TYPE,
+										 &field->fld_length);
+		switch (field->fld_dtype) {
+		case dtype_text:
+		case dtype_cstring:
+			field->fld_flags |= FLD_text;
+			break;
+
+		case dtype_blob:
+			field->fld_flags |= FLD_blob;
+			break;
+		}
+		END_FOR;
+	}
+	else {
+		/* Same request as above, but with V4 metadata also fetched */
+		FOR(REQUEST_HANDLE dbb->dbb_udf_request)
+		UDF_DEF IN RDB$FUNCTIONS CROSS
+			UDF_ARG IN RDB$FUNCTION_ARGUMENTS
+			WITH UDF_DEF.RDB$FUNCTION_NAME EQ name AND
+			UDF_DEF.RDB$FUNCTION_NAME EQ UDF_ARG.RDB$FUNCTION_NAME AND
+			UDF_DEF.RDB$RETURN_ARGUMENT != UDF_ARG.RDB$ARGUMENT_POSITION
+			SORTED BY DESCENDING UDF_ARG.RDB$ARGUMENT_POSITION;
+
+		field = (FLD) ALLOC(FLD_LEN);
+		field->fld_next = udf->udf_inputs;
+		udf->udf_inputs = field;
+		udf->udf_args++;
+		field->fld_position = UDF_ARG.RDB$ARGUMENT_POSITION;
+		field->fld_length = UDF_ARG.RDB$FIELD_LENGTH;
+		field->fld_scale = UDF_ARG.RDB$FIELD_SCALE;
+		field->fld_sub_type = UDF_ARG.RDB$FIELD_SUB_TYPE;
+		field->fld_dtype = MET_get_dtype(UDF_ARG.RDB$FIELD_TYPE,
+										 UDF_ARG.RDB$FIELD_SUB_TYPE,
+										 &field->fld_length);
+		switch (field->fld_dtype) {
+		case dtype_text:
+		case dtype_cstring:
+			field->fld_flags |= FLD_text;
+			if (!UDF_ARG.RDB$CHARACTER_SET_ID.NULL)
+				field->fld_charset_id = UDF_ARG.RDB$CHARACTER_SET_ID;
+			field->fld_ttype =
+				INTL_CS_COLL_TO_TTYPE(field->fld_charset_id,
+									  field->fld_collate_id);
+			break;
+
+		case dtype_blob:
+			field->fld_flags |= FLD_blob;
+			if (!UDF_ARG.RDB$CHARACTER_SET_ID.NULL)
+				field->fld_charset_id = UDF_ARG.RDB$CHARACTER_SET_ID;
+			break;
+		}
+		END_FOR;
+	}
+
+	udf->udf_flags |= UDF_scanned;
+
+	return udf;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Return TRUE if the passed view_name represents a 
+ *		view with the passed relation as a base table 
+ *		(the relation could be an alias).
+ */  
+
+REL MET_get_view_relation(REQ request,
+						  char *view_name,
+						  char *relation_or_alias, USHORT level)
+{
+	DBB dbb;
+	TEXT *p;
+	REL relation;
+
+	dbb = request->req_database;
+	DB = dbb->dbb_handle;
+	gds__trans = dbb->dbb_transaction;
+
+	relation = NULL;
+
+	FOR(REQUEST_HANDLE dbb->dbb_view_request, LEVEL level)
+	X IN RDB$VIEW_RELATIONS WITH
+		X.RDB$VIEW_NAME EQ view_name
+		for (p = X.RDB$CONTEXT_NAME; *p && *p != ' '; p++);
+	*p = 0;
+
+	for (p = X.RDB$RELATION_NAME; *p && *p != ' '; p++);
+	*p = 0;
+
+	if (!strcmp(X.RDB$RELATION_NAME, relation_or_alias) ||
+		!strcmp(X.RDB$CONTEXT_NAME, relation_or_alias))
+		return MET_get_relation(dbb, X.RDB$RELATION_NAME, "");
+
+	if (relation =
+		MET_get_view_relation(request, X.RDB$RELATION_NAME, relation_or_alias,
+							  level + 1))
+		return relation;
+
+	END_FOR;
+
+	return NULL;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Lookup an index for a database.
+ *		Return an index block (if name is found) or NULL.
+ */  
+
+IND MET_index(DBB dbb, TEXT * string)
+{
+	SYM symbol;
+	IND index;
+	SCHAR name[NAME_SIZE];
+	SSHORT length;
+
+	strcpy(name, string);
+	length = strlen(name);
+
+	for (symbol = HSH_lookup(name); symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_index &&
+			(index = (IND) symbol->sym_object) &&
+			index->ind_relation->rel_database == dbb)
+			return index;
+
+	if (sw_language == lang_internal)
+		return NULL;
+
+	if (dbb->dbb_flags & DBB_sqlca)
+		return NULL;
+
+	DB = dbb->dbb_handle;
+	gds__trans = dbb->dbb_transaction;
+	index = NULL;
+
+	FOR(REQUEST_HANDLE dbb->dbb_index_request)
+	X IN RDB$INDICES WITH X.RDB$INDEX_NAME EQ name
+		index = (IND) ALLOC(IND_LEN);
+	index->ind_symbol = symbol = MSC_symbol(SYM_index, name, length, index);
+	index->ind_relation = MET_get_relation(dbb, X.RDB$RELATION_NAME, "");
+	HSH_insert(symbol);
+
+	END_FOR;
+
+	return index;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Load all of the relation names
+ *       and user defined function names
+ *       into the symbol (hash) table.
+ */  
+
+void MET_load_hash_table( DBB dbb)
+{
+	REL relation;
+	PRC procedure;
+	SYM symbol;
+	FLD dbkey;
+	UDF udf;
+	TEXT *p;
+	int *handle, *handle2;
+	USHORT post_v3_flag;
+	SLONG length;
+	INTLSYM iname;
+
+/*  If this is an internal ISC access method invocation, don't do any of this
+ *  stuff
+ */
+
+	if (sw_language == lang_internal)
+		return;
+
+	if (!dbb->dbb_handle)
+		if (!MET_database(dbb, FALSE))
+			CPR_exit(FINI_ERROR);
+
+	if (dbb->dbb_transaction)
+		/* we must have already loaded this one */
+		return;
+
+	gds__trans = NULL;
+	DB = dbb->dbb_handle;
+
+	START_TRANSACTION;
+
+	dbb->dbb_transaction = gds__trans;
+	handle = handle2 = NULL;
+
+/*  Determine if the database is V3.  */
+
+	post_v3_flag = FALSE;
+	handle = NULL;
+	FOR(REQUEST_HANDLE handle)
+	X IN RDB$RELATIONS WITH
+		X.RDB$RELATION_NAME = 'RDB$PROCEDURES' AND
+		X.RDB$SYSTEM_FLAG = 1 post_v3_flag = TRUE;
+
+	END_FOR;
+	gds__release_request(gds__status, GDS_REF(handle));
+
+	if (!post_v3_flag)
+		dbb->dbb_flags |= DBB_v3;
+
+/*  Pick up all relations (necessary to parse parts of the GDML grammar)  */
+
+	if (dbb->dbb_flags & DBB_v3) {
+		FOR(REQUEST_HANDLE handle)
+		X IN RDB$RELATIONS relation = (REL) ALLOC(REL_LEN);
+		relation->rel_database = dbb;
+		relation->rel_next = dbb->dbb_relations;
+		dbb->dbb_relations = relation;
+		relation->rel_id = X.RDB$RELATION_ID;
+		relation->rel_symbol = symbol =
+			MSC_symbol(SYM_relation, X.RDB$RELATION_NAME,
+					   symbol_length(X.RDB$RELATION_NAME), relation);
+		HSH_insert(symbol);
+		relation->rel_dbkey = dbkey = MET_make_field("rdb$db_key", dtype_text,
+													 (X.RDB$DBKEY_LENGTH) ? X.
+													 RDB$DBKEY_LENGTH : 8,
+													 FALSE);
+		dbkey->fld_flags |= FLD_dbkey | FLD_text | FLD_charset;
+		dbkey->fld_ttype = ttype_binary;
+
+		END_FOR;
+	}
+	else {
+		FOR(REQUEST_HANDLE handle)
+		X IN RDB$RELATIONS relation = (REL) ALLOC(REL_LEN);
+		relation->rel_database = dbb;
+		relation->rel_next = dbb->dbb_relations;
+		dbb->dbb_relations = relation;
+		relation->rel_id = X.RDB$RELATION_ID;
+		relation->rel_symbol = symbol =
+			MSC_symbol(SYM_relation, X.RDB$RELATION_NAME,
+					   symbol_length(X.RDB$RELATION_NAME), relation);
+		HSH_insert(symbol);
+		relation->rel_dbkey = dbkey = MET_make_field("rdb$db_key", dtype_text,
+													 (X.RDB$DBKEY_LENGTH) ? X.
+													 RDB$DBKEY_LENGTH : 8,
+													 FALSE);
+		dbkey->fld_flags |= FLD_dbkey | FLD_text | FLD_charset;
+		dbkey->fld_ttype = ttype_binary;
+
+		if (!X.RDB$OWNER_NAME.NULL
+			&& (length =
+				symbol_length(X.RDB$OWNER_NAME))) relation->rel_owner =
+				MSC_symbol(SYM_username, X.RDB$OWNER_NAME, length, NULL_PTR);
+
+		END_FOR;
+	}
+
+	gds__release_request(gds__status, GDS_REF(handle));
+
+/*  Pick up all procedures (necessary to parse parts of the GDML grammar) */
+
+	FOR(REQUEST_HANDLE handle)
+	X IN RDB$PROCEDURES procedure = (PRC) ALLOC(REL_LEN);
+	procedure->prc_database = dbb;
+	procedure->prc_next = (PRC) dbb->dbb_procedures;
+	dbb->dbb_procedures = (REL) procedure;
+	procedure->prc_id = X.RDB$PROCEDURE_ID;
+	procedure->prc_symbol = symbol =
+		MSC_symbol(SYM_procedure, X.RDB$PROCEDURE_NAME,
+				   symbol_length(X.RDB$PROCEDURE_NAME), procedure);
+	HSH_insert(symbol);
+	if (!X.RDB$OWNER_NAME.NULL && (length = symbol_length(X.RDB$OWNER_NAME)))
+		procedure->prc_owner =
+			MSC_symbol(SYM_username, X.RDB$OWNER_NAME, length, NULL_PTR);
+	END_FOR ON_ERROR
+		/* assume pre V4 database, no procedures */
+		END_ERROR;
+
+	if (handle)
+		gds__release_request(gds__status, GDS_REF(handle));
+
+/*  Pickup any user defined functions.  If the database does not support UDF's,
+ *  this may fail
+ */
+
+	FOR(REQUEST_HANDLE handle)
+	FUN IN RDB$FUNCTIONS CROSS ARG IN RDB$FUNCTION_ARGUMENTS WITH
+		FUN.RDB$FUNCTION_NAME EQ ARG.RDB$FUNCTION_NAME AND
+		FUN.RDB$RETURN_ARGUMENT EQ ARG.RDB$ARGUMENT_POSITION
+		p = FUN.RDB$FUNCTION_NAME;
+	length = symbol_length(p);
+	p[length] = 0;
+
+	udf = (UDF) ALLOC(UDF_LEN + length);
+	strcpy(udf->udf_function, p);
+	udf->udf_database = dbb;
+	udf->udf_type = FUN.RDB$FUNCTION_TYPE;
+
+	if (length = symbol_length(FUN.RDB$QUERY_NAME)) {
+		p = FUN.RDB$QUERY_NAME;
+		p[length] = 0;
+	}
+	udf->udf_symbol = symbol = MSC_symbol(SYM_udf, p, strlen(p), udf);
+	HSH_insert(symbol);
+
+	udf->udf_length = ARG.RDB$FIELD_LENGTH;
+	udf->udf_scale = ARG.RDB$FIELD_SCALE;
+	udf->udf_sub_type = ARG.RDB$FIELD_SUB_TYPE;
+	udf->udf_dtype =
+		MET_get_dtype(ARG.RDB$FIELD_TYPE, ARG.RDB$FIELD_SUB_TYPE,
+					  &udf->udf_length);
+
+	if (post_v3_flag) {
+		FOR(REQUEST_HANDLE handle2)
+		V4ARG IN RDB$FUNCTION_ARGUMENTS
+			CROSS CS IN RDB$CHARACTER_SETS
+			CROSS COLL IN RDB$COLLATIONS WITH
+			V4ARG.RDB$CHARACTER_SET_ID EQ CS.RDB$CHARACTER_SET_ID AND
+			COLL.RDB$COLLATION_NAME EQ CS.RDB$DEFAULT_COLLATE_NAME AND
+			V4ARG.RDB$CHARACTER_SET_ID NOT MISSING AND
+			V4ARG.RDB$FUNCTION_NAME EQ ARG.RDB$FUNCTION_NAME AND
+			V4ARG.RDB$ARGUMENT_POSITION EQ ARG.RDB$ARGUMENT_POSITION;
+
+		udf->udf_charset_id = V4ARG.RDB$CHARACTER_SET_ID;
+		udf->udf_ttype =
+			INTL_CS_COLL_TO_TTYPE(udf->udf_charset_id, COLL.RDB$COLLATION_ID);
+
+		END_FOR;
+
+	}
+	END_FOR ON_ERROR END_ERROR;
+
+	gds__release_request(gds__status, GDS_REF(handle));
+	if (handle2)
+		gds__release_request(gds__status, GDS_REF(handle2));
+
+/*  Pick up all Collation names, might have several collations
+ *  for a given character set.
+ *  There can also be several alias names for a character set.
+ */  
+
+	FOR(REQUEST_HANDLE handle)
+	CHARSET IN RDB$CHARACTER_SETS CROSS COLL IN RDB$COLLATIONS OVER
+		RDB$CHARACTER_SET_ID;
+
+	p = COLL.RDB$COLLATION_NAME;
+	length = symbol_length(p);
+	p[length] = 0;
+	iname = (INTLSYM) ALLOC(INTLSYM_LEN + length);
+	strcpy(iname->intlsym_name, p);
+	iname->intlsym_database = dbb;
+	iname->intlsym_symbol = symbol =
+		MSC_symbol(SYM_collate, p, strlen(p), iname);
+	HSH_insert(symbol);
+	iname->intlsym_type = INTLSYM_collation;
+	iname->intlsym_flags = 0;
+	iname->intlsym_charset_id = COLL.RDB$CHARACTER_SET_ID;
+	iname->intlsym_collate_id = COLL.RDB$COLLATION_ID;
+	iname->intlsym_ttype =
+		INTL_CS_COLL_TO_TTYPE(iname->intlsym_charset_id,
+							  iname->intlsym_collate_id);
+	iname->intlsym_bytes_per_char =
+		(CHARSET.RDB$BYTES_PER_CHARACTER.NULL) ? 1 : (CHARSET.
+													  RDB$BYTES_PER_CHARACTER);
+	iname->intlsym_next = text_subtypes;
+	text_subtypes = iname;
+
+	FOR(REQUEST_HANDLE handle2)
+	TYPE IN RDB$TYPES
+		WITH TYPE.RDB$FIELD_NAME = "RDB$COLLATION_NAME"
+		AND TYPE.RDB$TYPE = COLL.RDB$COLLATION_ID
+		AND TYPE.RDB$TYPE_NAME != COLL.RDB$COLLATION_NAME;
+
+	p = TYPE.RDB$TYPE_NAME;
+	length = symbol_length(p);
+	p[length] = 0;
+	symbol = MSC_symbol(SYM_collate, p, length, iname);
+	HSH_insert(symbol);
+	END_FOR ON_ERROR END_ERROR;
+
+	END_FOR ON_ERROR
+		/* assume pre V4 database, no collations */
+		END_ERROR;
+
+	gds__release_request(gds__status, GDS_REF(handle));
+	if (handle2)
+		gds__release_request(gds__status, GDS_REF(handle2));
+
+/*  Now pick up all character set names - with the subtype set to
+ *  the type of the default collation for the character set.
+ */  
+	FOR(REQUEST_HANDLE handle)
+	CHARSET IN RDB$CHARACTER_SETS CROSS COLL IN RDB$COLLATIONS
+		WITH CHARSET.RDB$DEFAULT_COLLATE_NAME EQ COLL.RDB$COLLATION_NAME;
+
+	p = CHARSET.RDB$CHARACTER_SET_NAME;
+	length = symbol_length(p);
+	p[length] = 0;
+	iname = (INTLSYM) ALLOC(INTLSYM_LEN + length);
+	strcpy(iname->intlsym_name, p);
+	iname->intlsym_database = dbb;
+	iname->intlsym_symbol = symbol =
+		MSC_symbol(SYM_charset, p, strlen(p), iname);
+	HSH_insert(symbol);
+	iname->intlsym_type = INTLSYM_collation;
+	iname->intlsym_flags = 0;
+	iname->intlsym_charset_id = COLL.RDB$CHARACTER_SET_ID;
+	iname->intlsym_collate_id = COLL.RDB$COLLATION_ID;
+	iname->intlsym_ttype =
+		INTL_CS_COLL_TO_TTYPE(iname->intlsym_charset_id,
+							  iname->intlsym_collate_id);
+	iname->intlsym_bytes_per_char =
+		(CHARSET.RDB$BYTES_PER_CHARACTER.NULL) ? 1 : (CHARSET.
+													  RDB$BYTES_PER_CHARACTER);
+
+	FOR(REQUEST_HANDLE handle2)
+	TYPE IN RDB$TYPES
+		WITH TYPE.RDB$FIELD_NAME = "RDB$CHARACTER_SET_NAME"
+		AND TYPE.RDB$TYPE = CHARSET.RDB$CHARACTER_SET_ID
+		AND TYPE.RDB$TYPE_NAME != CHARSET.RDB$CHARACTER_SET_NAME;
+
+	p = TYPE.RDB$TYPE_NAME;
+	length = symbol_length(p);
+	p[length] = 0;
+	symbol = MSC_symbol(SYM_charset, p, length, iname);
+	HSH_insert(symbol);
+	END_FOR ON_ERROR END_ERROR;
+
+	END_FOR ON_ERROR
+		/* assume pre V4 database, no character sets */
+		END_ERROR;
+
+	gds__release_request(gds__status, GDS_REF(handle));
+	if (handle2)
+		gds__release_request(gds__status, GDS_REF(handle2));
+
+/*  Pick up name of database default character set for SQL  */
+
+	FOR(REQUEST_HANDLE handle)
+		FIRST 1 DBB IN RDB$DATABASE
+		WITH DBB.RDB$CHARACTER_SET_NAME NOT MISSING
+		p = DBB.RDB$CHARACTER_SET_NAME;
+	length = symbol_length(p);
+	p[length] = 0;
+	dbb->dbb_def_charset = (TEXT *) ALLOC(length + 1);
+	strcpy(dbb->dbb_def_charset, p);
+	if (!MSC_find_symbol(HSH_lookup(dbb->dbb_def_charset), SYM_charset))
+		CPR_warn("Default character set for database is not known");
+	END_FOR ON_ERROR
+		/* Assume V3 Db, no default charset */
+		END_ERROR;
+
+	gds__release_request(gds__status, GDS_REF(handle));
+
+/*  Pick up all generators for the database  */
+
+	FOR(REQUEST_HANDLE handle)
+	X IN RDB$GENERATORS
+		symbol = MSC_symbol(SYM_generator, X.RDB$GENERATOR_NAME,
+							symbol_length(X.RDB$GENERATOR_NAME), dbb);
+	HSH_insert(symbol);
+
+	END_FOR ON_ERROR END_ERROR;
+
+	gds__release_request(gds__status, GDS_REF(handle));
+
+/*  now that we have attached to the database, resolve the character set
+ *  request (if any) (and if we can)
+ */  
+
+	if (dbb->dbb_c_lc_ctype) {
+		if (get_intl_char_subtype
+			(&dbb->dbb_char_subtype, dbb->dbb_c_lc_ctype,
+			 strlen(dbb->dbb_c_lc_ctype), dbb))
+			dbb->dbb_know_subtype = 1;
+		else {
+			TEXT buffer[200];
+
+			sprintf(buffer, "Cannot recognize character set '%s'",
+					dbb->dbb_c_lc_ctype);
+			PAR_error(buffer);
+		}
+		sw_know_interp = dbb->dbb_know_subtype;
+		sw_interp = dbb->dbb_char_subtype;
+	}
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Make a field symbol.
+ */  
+
+FLD MET_make_field(SCHAR * name,
+				   SSHORT dtype, SSHORT length, BOOLEAN insert_flag)
+{
+	FLD field;
+	SYM symbol;
+
+	field = (FLD) ALLOC(FLD_LEN);
+	field->fld_length = length;
+	field->fld_dtype = dtype;
+	field->fld_symbol = symbol =
+		MSC_symbol(SYM_field, name, strlen(name), field);
+	if (insert_flag)
+		HSH_insert(symbol);
+
+	return field;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Make an index symbol.
+ */  
+
+IND MET_make_index(SCHAR * name)
+{
+	IND index;
+
+	index = (IND) ALLOC(IND_LEN);
+	index->ind_symbol = MSC_symbol(SYM_index, name, strlen(name), index);
+
+	return index;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Make an relation symbol.
+ */  
+
+REL MET_make_relation(SCHAR * name)
+{
+	REL relation;
+
+	relation = (REL) ALLOC(REL_LEN);
+	relation->rel_symbol =
+		MSC_symbol(SYM_relation, name, strlen(name), relation);
+
+	return relation;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Lookup a type name for a field.
+ */  
+
+BOOLEAN MET_type(FLD field, TEXT * string, SSHORT * ptr)
+{
+	REL relation;
+	DBB dbb;
+	SYM symbol;
+	TYP type;
+	UCHAR buffer[32];			/* BASED ON RDB$TYPES.RDB$TYPE_NAME */
+	UCHAR *p;
+
+	for (symbol = HSH_lookup(string); symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_type &&
+			(type = (TYP) symbol->sym_object) &&
+			(!type->typ_field || type->typ_field == field)) {
+			*ptr = type->typ_value;
+			return TRUE;
+		}
+
+	relation = field->fld_relation;
+	dbb = relation->rel_database;
+	DB = dbb->dbb_handle;
+	gds__trans = dbb->dbb_transaction;
+
+/*  Force the name to uppercase, using C locale rules for uppercasing  */
+	for (p = buffer; *string && p < &buffer[sizeof(buffer) - 1];
+		 p++, string++) *p = UPPER7(*string);
+	*p = '\0';
+
+	FOR(REQUEST_HANDLE dbb->dbb_type_request)
+	X IN RDB$TYPES WITH X.RDB$FIELD_NAME EQ field->fld_global->sym_string AND
+		X.RDB$TYPE_NAME EQ buffer {
+		type = (TYP) ALLOC(TYP_LEN);
+		type->typ_field = field;
+		*ptr = type->typ_value = X.RDB$TYPE;
+		type->typ_symbol = symbol =
+			MSC_symbol(SYM_type, string, strlen(string), type);
+		HSH_insert(symbol);
+		return TRUE;
+	} END_FOR ON_ERROR END_ERROR;
+
+	return FALSE;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Lookup an index for a database.
+ *  
+ *  Return: TRUE if the trigger exists
+ *		   FALSE otherwise
+ */  
+
+BOOLEAN MET_trigger_exists(DBB dbb, TEXT * trigger_name)
+{
+	SCHAR name[NAME_SIZE];
+	SSHORT length;
+
+	strcpy(name, trigger_name);
+
+	DB = dbb->dbb_handle;
+	gds__trans = dbb->dbb_transaction;
+
+	FOR(REQUEST_HANDLE dbb->dbb_trigger_request)
+	TRIG IN RDB$TRIGGERS WITH TRIG.RDB$TRIGGER_NAME EQ name return TRUE;
+
+	END_FOR;
+
+	return FALSE;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Compute and return the size of the array.
+ */  
+
+static SLONG array_size( FLD field)
+{
+	ARY array_block;
+	DIM dimension;
+	SLONG count;
+
+	array_block = field->fld_array_info;
+	count = field->fld_array->fld_length;
+	for (dimension = array_block->ary_dimension; dimension;
+		 dimension = dimension->dim_next) count =
+			count * (dimension->dim_upper - dimension->dim_lower + 1);
+
+	return count;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		See if field is array.
+ */  
+
+static void get_array( DBB dbb, TEXT * field_name, FLD field)
+{
+	FLD sub_field;
+	ARY array_block;
+	DIM dimension_block, last_dimension_block;
+
+	array_block = NULL;
+
+	FOR(REQUEST_HANDLE dbb->dbb_array_request)
+	F IN RDB$FIELDS WITH F.RDB$FIELD_NAME EQ field_name if (F.RDB$DIMENSIONS) {
+		sub_field = (FLD) ALLOC(FLD_LEN);
+		*sub_field = *field;
+		field->fld_array = sub_field;
+		field->fld_dtype = dtype_blob;
+		field->fld_flags |= FLD_blob;
+		field->fld_length = 8;
+		field->fld_array_info = array_block =
+			(ARY) ALLOC(ARY_LEN(F.RDB$DIMENSIONS));
+		array_block->ary_dtype = sub_field->fld_dtype;
+	} END_FOR ON_ERROR {
+		dbb->dbb_flags |= DBB_no_arrays;
+		return;
+	}
+	END_ERROR;
+
+	if (!array_block)
+		return;
+
+	FOR(REQUEST_HANDLE dbb->dbb_dimension_request)
+	D IN RDB$FIELD_DIMENSIONS WITH D.RDB$FIELD_NAME EQ field_name
+		SORTED BY ASCENDING D.RDB$DIMENSION
+		array_block->ary_rpt[D.RDB$DIMENSION].ary_lower = D.RDB$LOWER_BOUND;
+	array_block->ary_rpt[D.RDB$DIMENSION].ary_upper = D.RDB$UPPER_BOUND;
+	dimension_block = (DIM) ALLOC(DIM_LEN);
+	dimension_block->dim_number = D.RDB$DIMENSION;
+	dimension_block->dim_lower = D.RDB$LOWER_BOUND;
+	dimension_block->dim_upper = D.RDB$UPPER_BOUND;
+
+	if (D.RDB$DIMENSION != 0) {
+		last_dimension_block->dim_next = dimension_block;
+		dimension_block->dim_previous = last_dimension_block;
+	}
+	else
+		array_block->ary_dimension = dimension_block;
+	last_dimension_block = dimension_block;
+	END_FOR;
+
+	array_block->ary_dimension_count = last_dimension_block->dim_number + 1;
+	array_block->ary_size = array_size(field);
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Character types can be specified as either:
+ *		   b) A POSIX style locale name "<collation>.<characterset>"
+ *		   or
+ *		   c) A simple <characterset> name (using default collation)
+ *		   d) A simple <collation> name    (use charset for collation)
+ *  
+ *		Given an ASCII7 string which could be any of the above, try to
+ *		resolve the name in the order b, c, d.
+ *		b) is only tried iff the name contains a period.
+ *		(in which case c) and d) are not tried).
+ *  
+ *  Return:
+ *		1 if no errors (and *id is set).
+ *		0 if the name could not be resolved.
+ */  
+
+static int get_intl_char_subtype(
+								 SSHORT * id,
+								 UCHAR * name, USHORT length, DBB dbb)
+{
+	UCHAR buffer[32];			/* BASED ON RDB$COLLATION_NAME */
+	UCHAR *p;
+	UCHAR *period = NULL;
+	UCHAR *end_name;
+	int found_it = 0;
+
+	assert(id != NULL);
+	assert(name != NULL);
+	assert(dbb != NULL);
+
+
+	DB = dbb->dbb_handle;
+	if (!DB)
+		return (0);
+	gds__trans = dbb->dbb_transaction;
+
+	end_name = name + length;
+/*  Force key to uppercase, following C locale rules for uppercasing 
+ *  At the same time, search for the first period in the string (if any)
+ */
+	for (p = (UCHAR *) buffer;
+		 name < end_name && p < (UCHAR *) (buffer + sizeof(buffer) - 1);
+		 p++, name++) {
+		*p = UPPER7(*name);
+		if ((*p == '.') && !period)
+			period = p;
+	};
+	*p = 0;
+
+/*  Is there a period, separating collation name from character set?  */
+	if (period) {
+		*period = 0;
+		return (resolve_charset_and_collation(id, period + 1, buffer));
+	}
+
+	else {
+		int res;
+
+		/* Is it a character set name (implying charset default collation sequence) */
+		res = resolve_charset_and_collation(id, buffer, NULL);
+		if (!res) {
+			/* Is it a collation name (implying implementation-default character set) */
+			res = resolve_charset_and_collation(id, NULL, buffer);
+		}
+		return (res);
+	}
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Given ASCII7 name of charset & collation
+ *		resolve the specification to a ttype (id) that implements
+ *		it.
+ *  
+ *  Inputs:
+ *		(charset) 
+ *			ASCII7z name of characterset.
+ *			NULL (implying unspecified) means use the character set
+ *		        for defined for (collation).
+ *  
+ *		(collation)
+ *			ASCII7z name of collation.
+ *			NULL means use the default collation for (charset).
+ *  
+ *  Outputs:
+ *		(*id)	
+ *			Set to subtype specified by this name.
+ *  
+ *  Return:
+ *		1 if no errors (and *id is set).
+ *		0 if either name not found.
+ *		  or if names found, but the collation isn't for the specified
+ *		  character set.
+ */  
+
+static int resolve_charset_and_collation(
+										 SSHORT * id,
+										 UCHAR * charset, UCHAR * collation)
+{
+	int found = 0;
+	int *request = NULL;
+
+	assert(id != NULL);
+
+	if (!DB)
+		return (0);
+
+	if (collation == NULL) {
+		if (charset == NULL) {
+			FOR(REQUEST_HANDLE request)
+				FIRST 1 DBB IN RDB$DATABASE
+				WITH DBB.RDB$CHARACTER_SET_NAME NOT MISSING
+				AND DBB.RDB$CHARACTER_SET_NAME != " ";
+
+			charset = (UCHAR *) DBB.RDB$CHARACTER_SET_NAME;
+
+			END_FOR ON_ERROR
+				/* Assume V3 DB, without default character set */
+				END_ERROR;
+
+			gds__release_request(gds__status, GDS_REF(request));
+
+			if (charset == NULL)
+				charset = (UCHAR *) DEFAULT_CHARACTER_SET_NAME;
+
+		}
+
+		FOR(REQUEST_HANDLE request)
+			FIRST 1 CS IN RDB$CHARACTER_SETS
+			CROSS COLL IN RDB$COLLATIONS
+			CROSS TYPE IN RDB$TYPES
+			WITH TYPE.RDB$TYPE_NAME EQ charset
+			AND TYPE.RDB$FIELD_NAME EQ "RDB$CHARACTER_SET_NAME"
+			AND TYPE.RDB$TYPE EQ CS.RDB$CHARACTER_SET_ID
+			AND CS.RDB$DEFAULT_COLLATE_NAME EQ COLL.RDB$COLLATION_NAME;
+
+		found++;
+		*id = MAP_CHARSET_TO_TTYPE(CS.RDB$CHARACTER_SET_ID);
+
+		END_FOR ON_ERROR END_ERROR;
+
+		gds__release_request(gds__status, GDS_REF(request));
+
+		return (found);
+	}
+	else if (charset == NULL) {
+		FOR(REQUEST_HANDLE request)
+			FIRST 1 CS IN RDB$CHARACTER_SETS
+			CROSS COLL IN RDB$COLLATIONS
+			OVER RDB$CHARACTER_SET_ID
+			WITH COLL.RDB$COLLATION_NAME EQ collation;
+
+		found++;
+		*id = MAP_CHARSET_TO_TTYPE(CS.RDB$CHARACTER_SET_ID);
+		END_FOR ON_ERROR END_ERROR;
+
+		gds__release_request(gds__status, GDS_REF(request));
+
+		return (found);
+	}
+
+	FOR(REQUEST_HANDLE request)
+		FIRST 1 CS IN RDB$CHARACTER_SETS
+		CROSS COL IN RDB$COLLATIONS OVER RDB$CHARACTER_SET_ID
+		CROSS NAME2 IN RDB$TYPES
+		WITH COL.RDB$COLLATION_NAME EQ collation
+		AND NAME2.RDB$TYPE_NAME EQ charset
+		AND NAME2.RDB$FIELD_NAME EQ "RDB$CHARACTER_SET_NAME"
+		AND NAME2.RDB$TYPE EQ CS.RDB$CHARACTER_SET_ID;
+
+	found++;
+	*id = MAP_CHARSET_TO_TTYPE(CS.RDB$CHARACTER_SET_ID);
+	END_FOR ON_ERROR END_ERROR;
+
+	gds__release_request(gds__status, GDS_REF(request));
+
+	return (found);
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Compute significant length of symbol.
+ */  
+
+static symbol_length( TEXT * string)
+{
+	TEXT *p;
+	int len;
+
+	len = strlen(string);
+
+	p = string + (len - 1);
+
+	for (; p >= string && *p == ' '; p--);
+	if (p < string)
+		return 0;
+	++p;
+	return p - string;
+}
+
+
+/*____________________________________________________________
+ *  
+ *		Upcase a string into another string.  Return
+ *		length of string.
+ */
+
+static upcase( TEXT * from, TEXT * to)
+{
+	TEXT *p, *end, c;
+
+	p = to;
+	end = to + NAME_SIZE;
+
+	while (p < end && (c = *from++)) {
+		*p++ = UPPER(c);
+#ifdef JPN_SJIS
+		/* Do not upcase second byte of a sjis kanji character */
+
+		if (SJIS1(c) && p < end && (c = *from++))
+			*p++ = c;
+#endif
+	}
+
+	*p = 0;
+
+	return p - to;
+}
diff --git a/src/gpre/gpre_meta.h b/src/gpre/gpre_meta.h
new file mode 100644
index 0000000000..05bd01a069
--- /dev/null
+++ b/src/gpre/gpre_meta.h
@@ -0,0 +1,59 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		gpre_meta.h
+ *	DESCRIPTION:	Prototype header file for gpre_meta.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef GPRE_GPRE_META_H
+#define GPRE_GPRE_META_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern FLD MET_context_field(CTX, char *);
+extern BOOLEAN MET_database(DBB, BOOLEAN);
+extern USHORT MET_domain_lookup(REQ, FLD, char *);
+extern FLD MET_field(REL, char *);
+extern NOD MET_fields(CTX);
+extern void MET_fini(DBB);
+extern SCHAR *MET_generator(TEXT *, DBB);
+extern BOOLEAN MET_get_column_default(REL, TEXT *, TEXT *, USHORT);
+extern BOOLEAN MET_get_domain_default(DBB, TEXT *, TEXT *, USHORT);
+extern USHORT MET_get_dtype(USHORT, USHORT, USHORT *);
+extern LLS MET_get_primary_key(DBB, TEXT *);
+extern PRC MET_get_procedure(DBB, TEXT *, TEXT *);
+extern REL MET_get_relation(DBB, TEXT *, TEXT *);
+extern INTLSYM MET_get_text_subtype(SSHORT);
+extern UDF MET_get_udf(DBB, TEXT *);
+extern REL MET_get_view_relation(REQ, char *, char *, USHORT);
+extern IND MET_index(DBB, TEXT *);
+extern void MET_load_hash_table(DBB);
+extern FLD MET_make_field(SCHAR *, SSHORT, SSHORT, BOOLEAN);
+extern IND MET_make_index(SCHAR *);
+extern REL MET_make_relation(SCHAR *);
+extern BOOLEAN MET_type(FLD, TEXT *, SSHORT *);
+extern BOOLEAN MET_trigger_exists(DBB, TEXT *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* GPRE_GPRE_META_H */
diff --git a/src/gpre/gpre_proto.h b/src/gpre/gpre_proto.h
new file mode 100644
index 0000000000..69e4488eda
--- /dev/null
+++ b/src/gpre/gpre_proto.h
@@ -0,0 +1,51 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		gpre_proto.h
+ *	DESCRIPTION:	Prototype header file for gpre.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_GPRE_PROTO_H_
+#define _GPRE_GPRE_PROTO_H_
+
+#include "../gpre/parse.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void CPR_abort(void);
+extern void CPR_assert(TEXT *, int);
+extern void CPR_bugcheck(TEXT *);
+extern void CPR_end_text(TXT);
+extern int CPR_error(TEXT *);
+extern void CPR_exit(int);
+extern void CPR_warn(TEXT *);
+extern TOK CPR_eol_token(void);
+extern void CPR_get_text(TEXT *, TXT);
+extern void CPR_raw_read(void);
+extern void CPR_s_error(TEXT *);
+extern TXT CPR_start_text(void);
+extern TOK CPR_token(void);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _GPRE_GPRE_PROTO_H_ */
diff --git a/src/gpre/gpreswi.h b/src/gpre/gpreswi.h
new file mode 100644
index 0000000000..69bd303062
--- /dev/null
+++ b/src/gpre/gpreswi.h
@@ -0,0 +1,164 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		gpreswi.h
+ *	DESCRIPTION:	Gpre Command Switch definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: gpreswi.h,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+ * Revision 1.2  2000/11/16 15:54:29  fsg
+ * Added new switch -verbose to gpre that will dump
+ * parsed lines to stderr
+ *
+ * Fixed gpre bug in handling row names in WHERE clauses
+ * that are reserved words now (DATE etc)
+ * (this caused gpre to dump core when parsing tan.e)
+ *
+ * Fixed gpre bug in handling lower case table aliases
+ * in WHERE clauses for sql dialect 2 and 3.
+ * (cause a core dump in a test case from C.R. Zamana)
+ *
+ */
+
+
+#include "../jrd/common.h"
+
+
+/* 
+ * Switch handling constants.  Note that IN_SW_COUNT must always be
+ * one larger than the largest switch value
+ */
+
+enum gpre_cmd_switch
+{
+	IN_SW_GPRE_0,		/* not a known switch */
+	IN_SW_GPRE_C,		/* source is C */
+	IN_SW_GPRE_D,		/* SQL database declaration */
+	IN_SW_GPRE_E,		/* accept either case */
+	IN_SW_GPRE_F,		/* source is FORTRAN */
+	IN_SW_GPRE_G,		/* internal GDS module */
+	IN_SW_GPRE_I,		/* use ID's rather than names */
+	IN_SW_GPRE_M,		/* don't generate READY/START_TRANS */
+	IN_SW_GPRE_N,		/* don't generate debug lines */
+	IN_SW_GPRE_O,		/* write output to standard out */
+	IN_SW_GPRE_P,		/* source is PASCAL */
+	IN_SW_GPRE_R,		/* generate raw BLR */
+	IN_SW_GPRE_S,		/* generate normal, rather than C strings */
+	IN_SW_GPRE_T,		/* print trace messages */
+	IN_SW_GPRE_X,		/* database is EXTERNAL (used with /DATABASE only) */
+	IN_SW_GPRE_COB,		/* source is (shudder) cobol */
+	IN_SW_GPRE_ANSI, 	/* source is (worse and worse!) ansi cobol format */
+	IN_SW_GPRE_BAS, 	/* source is basic */
+	IN_SW_GPRE_PLI, 	/* source is pli */
+	IN_SW_GPRE_ADA,		/* source is ada */
+	IN_SW_GPRE_HANDLES,	/* ada handles package */
+	IN_SW_GPRE_Z, 		/* print software version */
+	IN_SW_GPRE_ALSYS, 	/* source is alsys ada */
+	IN_SW_GPRE_D_FLOAT, /* use blr_d_float for doubles */
+	IN_SW_GPRE_CXX, 	/* source is C++ */
+	IN_SW_GPRE_SCXX, 	/* source is C++ with Saber extension */
+	IN_SW_GPRE_SQLDA, 	/* use old or new SQLDA */
+	IN_SW_GPRE_USER, 	/* default username to use when attaching database */
+	IN_SW_GPRE_PASSWORD, /* default password to use in attaching database */
+	IN_SW_GPRE_INTERP,	/* default character set/collation */
+
+	IN_SW_GPRE_CPLUSPLUS,	/* source is platform dependant C++ */
+	IN_SW_GPRE_SQLDIALECT,	/* SQL dialect passed */
+
+	/* Added this to let gpre dump the lines that it is parsing to stderr
+	   FSG 14.Nov.2000 
+	*/
+	IN_SW_GPRE_VERBOSE,
+
+	/* As mentioned above: This should always be one larger than the largest 
+	   switch value.
+	   FSG 14.Nov.2000
+	*/
+
+	IN_SW_GPRE_COUNT 	/* number of IN_SW values */
+
+};	// enum gpre_cmd_switch
+
+
+/*
+ * Dynamic switch table type declaration.  Used to indicate that a
+ * switch was set.  Allocated in MAIN.
+ */
+
+typedef struct sw_tab_t
+{
+	enum gpre_cmd_switch sw_in_sw;
+} *SW_TAB;
+
+
+static struct in_sw_tab_t gpre_in_sw_table[] =
+{
+#ifdef ADA
+	IN_SW_GPRE_ADA		, 0, "ADA"			, 0, 0, 0, FALSE, 0, 0, "\t\textended ADA program",
+#ifdef ALSYS_ADA
+	IN_SW_GPRE_ALSYS	, 0, "ALSYS"		, 0, 0, 0, FALSE, 0, 0, "\t\textended ADA program",
+#endif
+	IN_SW_GPRE_HANDLES	, 0, "HANDLES"		, 0, 0, 0, FALSE, 0, 0, "\t\tADA handle package requires handle package name",
+#endif
+	IN_SW_GPRE_C		, 0, "C"			, 0, 0, 0, FALSE, 0, 0, "\t\textended C program",
+	IN_SW_GPRE_CXX		, 0, "CXX"			, 0, 0, 0, FALSE, 0, 0, "\t\textended C++ program",
+	IN_SW_GPRE_CPLUSPLUS, 0, "CPLUSPLUS"	, 0, 0, 0, FALSE, 0, 0, "\textended C++ program",
+	IN_SW_GPRE_D		, 0, "DATABASE"		, 0, 0, 0, FALSE, 0, 0, "\tdatabase declaration requires database name",
+
+	IN_SW_GPRE_D_FLOAT	, 0, "D_FLOAT"		, 0, 0, 0, FALSE, 0, 0, "\t\tgenerate blr_d_float for doubles",
+	IN_SW_GPRE_E		, 0, "EITHER_CASE"	, 0, 0, 0, FALSE, 0, 0, "\taccept upper or lower case DML in C",
+#ifdef FORTRAN
+	IN_SW_GPRE_F		, 0, "FORTRAN"		, 0, 0, 0, FALSE, 0, 0, "\t\textended FORTRAN program",
+#endif
+	IN_SW_GPRE_G		, 0, "GDS"			, 0, 0, 0, FALSE, 0, 0, NULL,
+	IN_SW_GPRE_I		, 0, "IDENTIFIERS"	, 0, 0, 0, FALSE, 0, 0, NULL,
+	IN_SW_GPRE_I		, 0, "IDS"			, 0, 0, 0, FALSE, 0, 0, NULL,
+	IN_SW_GPRE_INTERP	, 0, "CHARSET"		, 0, 0, 0, FALSE, 0, 0, "\t\tDefault character set & format",
+	IN_SW_GPRE_INTERP	, 0, "INTERPRETATION",0, 0, 0, FALSE, 0, 0, NULL,
+	IN_SW_GPRE_M		, 0, "MANUAL"		, 0, 0, 0, FALSE, 0, 0, "\t\tdo not automatically ATTACH to a database",
+	IN_SW_GPRE_N		, 0, "NO_LINES"		, 0, 0, 0, FALSE, 0, 0, "\tdo not generate C debug lines",
+	IN_SW_GPRE_O		, 0, "OUTPUT"		, 0, 0, 0, FALSE, 0, 0, "\t\tsend output to standard out",
+#ifdef PASCAL
+	IN_SW_GPRE_P		, 0, "PASCAL"		, 0, 0, 0, FALSE, 0, 0, "\t\textended PASCAL program",
+#endif
+	IN_SW_GPRE_PASSWORD	, 0, "PASSWORD"		, 0, 0, 0, FALSE, 0, 0, "\tdefault password",
+	IN_SW_GPRE_R		, 0, "RAW"			, 0, 0, 0, FALSE, 0, 0, "\t\tgenerate unformatted binary BLR",
+	IN_SW_GPRE_SQLDIALECT,0, "SQL_DIALECT"	, 0, 0, 0, FALSE, 0, 0, "\tSQL dialect to use",
+	IN_SW_GPRE_S		, 0, "STRINGS"		, 0, 0, 0, FALSE, 0, 0, NULL,
+	IN_SW_GPRE_SQLDA	, 0, "SQLDA"		, 0, 0, 0, FALSE, 0, 0, "\t\t***** Deprecated feature. ********",
+	IN_SW_GPRE_T		, 0, "TRACE"		, 0, 0, 0, FALSE, 0, 0, NULL,
+	IN_SW_GPRE_USER		, 0, "USER"			, 0, 0, 0, FALSE, 0, 0, "\t\tdefault user name",
+/* FSG 14.Nov.2000 */
+	IN_SW_GPRE_VERBOSE	, 0, "VERBOSE"		, 0, 0, 0, FALSE, 0, 0, "\t\tVerbose Output to stderr",
+#ifdef VMS
+	IN_SW_GPRE_X		, 0, "EXTERNAL"		, 0, 0, 0, FALSE, 0, 0, "\t\tEXTERNAL database (used with /DATABASE)",
+#else
+	IN_SW_GPRE_X		, 0, "X"			, 0, 0, 0, FALSE, 0, 0, "\t\tEXTERNAL database (used with -DATABASE)",
+#endif
+#ifdef BASIC
+	IN_SW_GPRE_BAS		, 0, "BASIC"		, 0, 0, 0, FALSE, 0, 0, "\t\textended BASIC program",
+#endif
+#ifdef PLI
+	IN_SW_GPRE_PLI		, 0, "PLI"			, 0, 0, 0, FALSE, 0, 0, "\t\textended PLI program",
+#endif
+#ifdef COBOL
+	IN_SW_GPRE_COB		, 0, "COB"			, 0, 0, 0, FALSE, 0, 0, "\t\textended COBOL program",
+	IN_SW_GPRE_ANSI		, 0, "ANSI"			, 0, 0, 0, FALSE, 0, 0, "\t\tgenerate ANSI85 compatible COBOL",
+#endif
+	IN_SW_GPRE_Z		, 0, "Z"			, 0, 0, 0, FALSE, 0, 0, "\t\tprint software version",
+	IN_SW_GPRE_0		, 0, NULL			, 0, 0, 0, FALSE, 0, 0, NULL
+};
diff --git a/src/gpre/hsh.cpp b/src/gpre/hsh.cpp
new file mode 100644
index 0000000000..06eff58725
--- /dev/null
+++ b/src/gpre/hsh.cpp
@@ -0,0 +1,295 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	C preprocessor
+//		MODULE:		hsh.cpp
+//		DESCRIPTION:	Hash table and symbol manager
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  
+//
+//____________________________________________________________
+//
+//	$Id: hsh.cpp,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+//
+
+#include "../gpre/gpre.h"
+#include "../gpre/parse.h"
+#ifdef JPN_SJIS
+#include "../jrd/kanji.h"
+#endif
+#include "../gpre/hsh_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/msc_proto.h"
+
+
+extern "C" {
+
+
+static int hash(register SCHAR *);
+static BOOLEAN scompare(register SCHAR *, register SCHAR *);
+static BOOLEAN scompare2(register SCHAR *, register SCHAR *);
+
+#define HASH_SIZE 211
+
+static SYM hash_table[HASH_SIZE];
+static SYM key_symbols;
+
+static struct word {
+	SCHAR *keyword;
+	enum kwwords id;
+} keywords[] = {
+#include "../gpre/hsh.h"
+};
+
+#define NUMWORDS (sizeof (keywords) / sizeof (struct word))
+
+
+//____________________________________________________________
+//  
+//		Release space used by keywords.
+//  
+
+void HSH_fini(void)
+{
+	register SYM symbol;
+
+	while (key_symbols) {
+		symbol = key_symbols;
+		key_symbols = (SYM) key_symbols->sym_object;
+		HSH_remove(symbol);
+		FREE((UCHAR *) symbol);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Initialize the hash table.  This mostly involves
+//		inserting all known keywords.
+//  
+
+void HSH_init(void)
+{
+	register SCHAR *string;
+	register SYM symbol, *ptr;
+	SSHORT i;
+	register struct word *word;
+
+	for (ptr = hash_table, i = 0; i < HASH_SIZE; i++)
+		*ptr++ = NULL;
+
+	for (i = 0, word = keywords; i < NUMWORDS; i++, word++) {
+		for (string = word->keyword; *string; string++);
+		symbol = (SYM) ALLOC(SYM_LEN);
+		symbol->sym_type = SYM_keyword;
+		symbol->sym_string = word->keyword;
+		symbol->sym_keyword = (int) word->id;
+		HSH_insert(symbol);
+		symbol->sym_object = (CTX) key_symbols;
+		key_symbols = symbol;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Insert a symbol into the hash table.
+//  
+
+void HSH_insert( register SYM symbol)
+{
+	register int h;
+	register SYM *next;
+	SYM ptr;
+
+	h = hash(symbol->sym_string);
+
+	for (next = &hash_table[h]; *next; next = &(*next)->sym_collision) {
+		for (ptr = *next; ptr; ptr = ptr->sym_homonym)
+			if (ptr == symbol)
+				return;
+
+		if (scompare(symbol->sym_string, (*next)->sym_string)) {
+			/* insert in most recently seen order; 
+			   This is important for alias resolution in subqueries.
+			   BUT insert tokens AFTER KEYWORD!
+			   In a lookup, keyword should be found first.
+			   This assumes that KEYWORDS are inserted before any other token.
+			   No one should be using a keywords as an alias anyway. */
+
+			if ((*next)->sym_type == SYM_keyword) {
+				symbol->sym_homonym = (*next)->sym_homonym;
+				symbol->sym_collision = NULL;
+				(*next)->sym_homonym = symbol;
+			}
+			else {
+				symbol->sym_homonym = *next;
+				symbol->sym_collision = (*next)->sym_collision;
+				(*next)->sym_collision = NULL;
+				*next = symbol;
+			}
+			return;
+		}
+	}
+
+	symbol->sym_collision = hash_table[h];
+	hash_table[h] = symbol;
+}
+
+
+//____________________________________________________________
+//  
+//		Perform a string lookup against hash table.
+//  
+
+SYM HSH_lookup(register SCHAR * string)
+{
+	register SYM symbol;
+
+	for (symbol = hash_table[hash(string)]; symbol;
+		 symbol = symbol->sym_collision)
+			if (scompare(string, symbol->sym_string)) return symbol;
+
+	return NULL;
+}
+
+//____________________________________________________________
+//  
+//		Perform a string lookup against hash table.
+//       Calls scompare2 which performs case insensitive
+//		compare.
+//  
+
+SYM HSH_lookup2(register SCHAR * string)
+{
+	register SYM symbol;
+
+	for (symbol = hash_table[hash(string)]; symbol;
+		 symbol = symbol->sym_collision)
+			if (scompare2(string, symbol->sym_string)) return symbol;
+
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Remove a symbol from the hash table.
+//  
+
+void HSH_remove( register SYM symbol)
+{
+	int h;
+	register SYM *next, *ptr, homonym;
+
+	h = hash(symbol->sym_string);
+
+	for (next = &hash_table[h]; *next; next = &(*next)->sym_collision)
+		if (symbol == *next)
+			if (homonym = symbol->sym_homonym) {
+				homonym->sym_collision = symbol->sym_collision;
+				*next = homonym;
+				return;
+			}
+			else {
+				*next = symbol->sym_collision;
+				return;
+			}
+		else
+			for (ptr = &(*next)->sym_homonym; *ptr;
+				 ptr = &(*ptr)->sym_homonym) if (symbol == *ptr) {
+					*ptr = symbol->sym_homonym;
+					return;
+				}
+
+	CPR_error("HSH_remove failed");
+}
+
+
+//____________________________________________________________
+//  
+//		Returns the hash function of a string.
+//  
+
+static hash( register SCHAR * string)
+{
+	register SLONG value;
+	SCHAR c;
+
+	value = 0;
+
+	while (c = *string++)
+		value = (value << 1) + UPPER(c);
+
+	return ((value >= 0) ? value : -value) % HASH_SIZE;
+}
+
+
+//____________________________________________________________
+//  
+//		case sensitive Compare 
+//  
+
+static BOOLEAN scompare( register SCHAR * string1, register SCHAR * string2)
+{
+
+	while (*string1)
+		if (*string1++ != *string2++)
+			return FALSE;
+
+	if (*string2)
+		return FALSE;
+
+	return TRUE;
+}
+
+//____________________________________________________________
+//  
+//		Compare two strings
+//  
+
+static BOOLEAN scompare2( register SCHAR * string1, register SCHAR * string2)
+{
+	SCHAR c1, c2;
+
+	while (c1 = *string1++)
+#ifndef JPN_SJIS
+		if (!(c2 = *string2++) || (UPPER(c1) != UPPER(c2)))
+			return FALSE;
+#else
+	{
+		/* Do not upcase second byte of a sjis kanji character */
+
+		if (!(c2 = *string2++) || (UPPER(c1) != UPPER(c2)))
+			return FALSE;
+
+		if (SJIS1(c1) && (c1 = *string1++))
+			if (!(c2 = *string2++) || c1 != c2)
+				return FALSE;
+	}
+#endif
+
+	if (*string2)
+		return FALSE;
+
+	return TRUE;
+}
+
+
+} // extern "C"
diff --git a/src/gpre/hsh.h b/src/gpre/hsh.h
new file mode 100644
index 0000000000..bcda4e3340
--- /dev/null
+++ b/src/gpre/hsh.h
@@ -0,0 +1,458 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/* Sort this file with "sort -b +1 +0" */
+
+"ABNORMAL", KW_ABNORMAL,
+#ifdef SCROLLABLE_CURSORS
+	"ABSOLUTE", KW_ABSOLUTE,
+#endif
+	"ACCEPTING", KW_ACCEPTING,
+	"ACTION", KW_ACTION,
+	"ACTIVE", KW_ACTIVE,
+	"ADD", KW_ADD,
+	"ALL", KW_ALL,
+	"ALLOCATION", KW_ALLOCATION,
+	"ALTER", KW_ALTER,
+	"&", KW_AMPERSAND,
+	"&&", KW_AND,
+	"AND", KW_AND,
+	"ANY", KW_ANY,
+	"SOME", KW_ANY,
+	"ANYCASE", KW_ANYCASE,
+	"ARE", KW_ARE,
+	"AS", KW_AS,
+	"ASC", KW_ASCENDING,
+	"ASCENDING", KW_ASCENDING,
+	"*", KW_ASTERISK,
+	"AT", KW_AT,
+	"AUTO", KW_AUTO,
+	"AUTOCOMMIT", KW_AUTOCOMMIT,
+	"AVERAGE", KW_AVERAGE,
+	"AVG", KW_AVERAGE,
+	"\\", KW_BACK_SLASH,
+	"BASED", KW_BASED,
+	"BASED_ON", KW_BASED,
+	"BASE_NAME", KW_BASE_NAME,
+	"BEGIN", KW_BEGIN,
+	"BETWEEN", KW_BETWEEN,
+	"BT", KW_BETWEEN,
+	"BLOB", KW_BLOB,
+	"BUFFERCOUNT", KW_BUFFERCOUNT,
+	"BUFFERS", KW_BUFFERS,
+	"BUFFERSIZE", KW_BUFFERSIZE,
+	"BY", KW_BY,
+	"CACHE", KW_CACHE,
+	"CANCEL_BLOB", KW_CANCEL_BLOB,
+	"^", KW_CARAT,
+	"CASCADE", KW_CASCADE,
+	"CASE", KW_CASE,
+	"CASE_MENU", KW_CASE_MENU,
+	"CAST", KW_CAST,
+	"CHAR", KW_CHAR,
+	"CHARACTER", KW_CHAR,
+	"char", KW_CHAR,
+	"CHECK", KW_CHECK,
+	"CHECK_POINT_LENGTH", KW_CHECK_POINT_LEN,
+	"CLEAR_HANDLES", KW_CLEAR_HANDLES,
+	"CLOSE", KW_CLOSE,
+	"CLOSE_BLOB", KW_CLOSE_BLOB,
+	"COLLATE", KW_COLLATE,
+	":", KW_COLON,
+	",", KW_COMMA,
+	"COMMENT", KW_COMMENT,
+	"COMMIT", KW_COMMIT,
+	"COMMIT_TRANSACTION", KW_COMMIT,
+	"COMMIT_TRANSACTIONS", KW_COMMIT,
+	"COMMITTED", KW_COMMITTED,
+	"COMPILETIME", KW_COMPILETIME,
+	"COMPILE_TIME", KW_COMPILETIME,
+	"COMPUTED", KW_COMPUTED,
+	"CONCURRENCY", KW_CONCURRENCY,
+	"CONDITIONAL", KW_CONDITIONAL,
+	"CONNECT", KW_CONNECT,
+	"CONSISTENCY", KW_CONSISTENCY,
+	"CONSTRAINT", KW_CONSTRAINT,
+	"CONTAINING", KW_CONTAINING,
+	"CONTINUE", KW_CONTINUE,
+	"COUNT", KW_COUNT,
+	"CREATE", KW_CREATE,
+	"CREATE_BLOB", KW_CREATE_BLOB,
+	"CREATE_WINDOW", KW_CREATE_WINDOW,
+	"CROSS", KW_CROSS,
+	"CSTRING", KW_CSTRING,
+	"CURRENT", KW_CURRENT,
+	"CURRENT_DATE", KW_CURRENT_DATE,
+	"CURRENT_TIME", KW_CURRENT_TIME,
+	"CURRENT_TIMESTAMP", KW_CURRENT_TIMESTAMP,
+	"CURSOR", KW_CURSOR,
+	"DATABASE", KW_DATABASE,
+	"DATE", KW_DATE,
+	"DAY", KW_DAY,
+	"DBA", KW_DBA,
+	"RDB$DB_KEY", KW_DBKEY,
+	"--", KW_DEC,
+	"DEC", KW_DECIMAL,
+	"DECIMAL", KW_DECIMAL,
+	"DECLARE", KW_DECLARE,
+	"DEFAULT", KW_DEFAULT,
+	"DELETE", KW_DELETE,
+	"DELETE_WINDOW", KW_DELETE_WINDOW,
+	"DERIVED_FROM", KW_DERIVED_FROM,
+	"DESC", KW_DESCENDING,
+	"DESCENDING", KW_DESCENDING,
+	"DESCRIBE", KW_DESCRIBE,
+	"DESCRIPTOR", KW_DESCRIPTOR,
+	"DIALECT", KW_DIALECT,
+	"DISCONNECT", KW_DISCONNECT,
+	"DISPLAY", KW_DISPLAY,
+	"DISPLAYING", KW_DISPLAYING,
+	"DISTINCT", KW_DISTINCT,
+	".", KW_DOT,
+	"..", KW_DOT_DOT,
+	"DOMAIN", KW_DOMAIN,
+	"DOUBLE", KW_DOUBLE,
+	"double", KW_DOUBLE,
+	"DROP", KW_DROP,
+	"ELEMENT", KW_ELEMENT,
+	"ELSE", KW_ELSE,
+	"else", KW_ELSE,
+	"END", KW_END,
+	"END_ERROR", KW_END_ERROR,
+	"END-EXEC", KW_END_EXEC,
+	"END_EXEC", KW_END_EXEC,
+	"END_FETCH", KW_END_FETCH,
+	"END_FOR", KW_END_FOR,
+	"END_FORM", KW_END_FORM,
+	"END_ITEM", KW_END_ITEM,
+	"END_MENU", KW_END_MENU,
+	"END_MODIFY", KW_END_MODIFY,
+	"END_STORE", KW_END_STORE,
+	"END_STREAM", KW_END_STREAM,
+	"ENTREE_LENGTH", KW_ENTREE_LENGTH,
+	"ENTREE_TEXT", KW_ENTREE_TEXT,
+	"ENTREE_VALUE", KW_ENTREE_VALUE,
+	"ENTRY_POINT", KW_ENTRY_POINT,
+	"==", KW_EQ,
+	"EQ", KW_EQ,
+	"=", KW_EQUALS,
+	"ERASE", KW_ERASE,
+	"ERROR", KW_ERROR,
+	"ESCAPE", KW_ESCAPE,
+	"EVENT", KW_EVENT,
+	"EVENT_INIT", KW_EVENT_INIT,
+	"EVENT_WAIT", KW_EVENT_WAIT,
+	"EXACTCASE", KW_EXACTCASE,
+	"EXCLUSIVE", KW_EXCLUSIVE,
+	"EXEC", KW_EXEC,
+	"EXECUTE", KW_EXECUTE,
+	"EXISTS", KW_EXISTS,
+	"EXTERN", KW_EXTERN,
+	"EXTERNAL", KW_EXTERNAL,
+	"EXTRACT", KW_EXTRACT,
+	"FETCH", KW_FETCH,
+	"FILE", KW_FILE,
+	"FILENAME", KW_FILENAME,
+	"FILTER", KW_FILTER,
+	"FINISH", KW_FINISH,
+	"FINISH_DATABASE", KW_FINISH,
+	"FIRST", KW_FIRST,
+	"FLOAT", KW_FLOAT,
+	"float", KW_FLOAT,
+	"FOR", KW_FOR,
+	"FOREIGN", KW_FOREIGN,
+	"FORM", KW_FORM,
+	"FORM_HANDLE", KW_FORM_HANDLE,
+	"FORWARD", KW_FORWARD,
+	"FOR_FORM", KW_FOR_FORM,
+	"FOR_ITEM", KW_FOR_ITEM,
+	"FOR_MENU", KW_FOR_MENU,
+	"FOUND", KW_FOUND,
+	"FROM", KW_FROM,
+	"FULL", KW_FULL,
+	"FUNCTION", KW_FUNCTION,
+	"WINDOW_SCOPE", KW_GDS_WINDOWS,
+	">=", KW_GE,
+	"GE", KW_GE,
+	"^<", KW_GE,
+	"!<", KW_GE,
+	"~<", KW_GE,
+	"GEN_ID", KW_GEN_ID,
+	"GENERATOR", KW_GENERATOR,
+	"GET_SEGMENT", KW_GET_SEGMENT,
+	"GET_SLICE", KW_GET_SLICE,
+	"GLOBAL", KW_GLOBAL,
+	"GO", KW_GO,
+	"GOTO", KW_GOTO,
+	"GRANT", KW_GRANT,
+	"GROUP", KW_GROUP,
+	"GROUP_COMMIT_WAIT_TIME", KW_GROUP_COMMIT_WAIT,
+	">", KW_GT,
+	"GT", KW_GT,
+	"HANDLES", KW_HANDLES,
+	"HAVING", KW_HAVING,
+	"HEIGHT", KW_HEIGHT,
+	"HORIZONTAL", KW_HORIZONTAL,
+	"HOUR", KW_HOUR,
+	"IMMEDIATE", KW_IMMEDIATE,
+	"IN", KW_IN,
+	"INACTIVE", KW_INACTIVE,
+	"INIT", KW_INIT,
+	"++", KW_INC,
+	"INCLUDE", KW_INCLUDE,
+	"INDEX", KW_INDEX,
+	"INDICATOR", KW_INDICATOR,
+	"INNER", KW_INNER,
+	"INPUT", KW_INPUT,
+	"INPUT_TYPE", KW_INPUT_TYPE,
+	"INSERT", KW_INSERT,
+	"INT", KW_INT,
+	"int", KW_INT,
+	"INTEGER", KW_INTEGER,
+	"INTERNAL", KW_INTERNAL,
+	"INTO", KW_INTO,
+	"IS", KW_IS,
+	"ISO", KW_ISOLATION,
+	"ISOLATION", KW_ISOLATION, "JOIN", KW_JOIN, "KEY", KW_KEY,
+#ifdef SCROLLABLE_CURSORS
+	"LAST", KW_LAST,
+#endif
+	"LC_CTYPE", KW_LC_CTYPE,
+	"LC_MESSAGES", KW_LC_MESSAGES,
+	"<=", KW_LE,
+	"LE", KW_LE,
+	"^>", KW_LE,
+	"~>", KW_LE,
+	"!>", KW_LE,
+	"LEFT", KW_LEFT,
+	"(", KW_LEFT_PAREN,
+	"LENGTH", KW_LENGTH,
+	"LEVEL", KW_LEVEL,
+	"LIKE", KW_LIKE,
+	"LOCK", KW_LOCK,
+	"LOG_BUFFER_SIZE", KW_LOG_BUF_SIZE,
+	"LOGFILE", KW_LOG_FILE,
+	"LONG", KW_LONG,
+	"long", KW_LONG,
+	"<", KW_LT,
+	"LT", KW_LT,
+	"{", KW_L_BRACE,
+	"[", KW_L_BRCKET,
+	"MAIN", KW_MAIN,
+	"MANUAL", KW_MANUAL,
+	"MATCHES", KW_MATCHES,
+	"MATCHING", KW_MATCHES,
+	"MAX", KW_MAX,
+	"MAXIMUM_SEGMENT", KW_MAX_SEGMENT,
+	"MENU_ENTREE", KW_MENU_ENTREE,
+	"MENU_HANDLE", KW_MENU_HANDLE,
+	"MERGE", KW_MERGE,
+	"MIN", KW_MIN,
+	"MINUTE", KW_MINUTE,
+	"-", KW_MINUS,
+	"MISSING", KW_MISSING,
+	"MODIFY", KW_MODIFY,
+	"MODULE_NAME", KW_MODULE_NAME,
+	"MONTH", KW_MONTH,
+	"NAME", KW_NAME,
+	"NAMES", KW_NAMES,
+	"NATIONAL", KW_NATIONAL,
+	"NATURAL", KW_NATURAL,
+	"NCHAR", KW_NCHAR,
+	"!=", KW_NE, "<>", KW_NE, "NE", KW_NE, "^=", KW_NE, "~=", KW_NE,
+#ifdef SCROLLABLE_CURSORS
+	"NEXT", KW_NEXT,
+#endif
+	"NO", KW_NO,
+	"NOT", KW_NOT,
+	"NO_AUTO_UNDO", KW_NO_AUTO_UNDO,
+	"NOWAIT", KW_NO_WAIT,
+	"NO_WAIT", KW_NO_WAIT,
+	"NO_WAIT", KW_NO_WAIT,
+	"NULL", KW_NULL,
+	"NUMERIC", KW_NUMERIC,
+	"NUM_LOG_BUFFERS", KW_NUM_LOG_BUFS,
+	"OF", KW_OF,
+	"ON", KW_ON,
+	"ON_ERROR", KW_ON_ERROR,
+	"ONLY", KW_ONLY,
+	"OPAQUE", KW_OPAQUE,
+	"OPEN", KW_OPEN,
+	"OPEN_BLOB", KW_OPEN_BLOB,
+	"OPTION", KW_OPTION,
+	"OPTIONS", KW_OPTIONS,
+	"OR", KW_OR,
+	"||", KW_OR1,
+	"ORDER", KW_ORDER,
+	"OUTER", KW_OUTER,
+	"OUTPUT", KW_OUTPUT,
+	"OUTPUT_TYPE", KW_OUTPUT_TYPE,
+	"OVER", KW_OVER,
+	"OVERFLOW", KW_OVERFLOW,
+	"OVERRIDING", KW_OVERRIDING,
+	"PAGE", KW_PAGE,
+	"PAGES", KW_PAGES,
+	"PAGESIZE", KW_PAGESIZE,
+	"PAGE_SIZE", KW_PAGE_SIZE,
+	"PARAMETER", KW_PARAMETER,
+	"PASSWORD", KW_PASSWORD,
+	"PATHNAME", KW_PATHNAME,
+	"+", KW_PLUS,
+	"->", KW_POINTS,
+	"PLAN", KW_PLAN,
+	"PRECISION", KW_PRECISION,
+	"precision", KW_PRECISION,
+	"PREPARE", KW_PREPARE,
+	"PREPARE_TRANSACTION", KW_PREPARE, "PRIMARY", KW_PRIMARY,
+#ifdef SCROLLABLE_CURSORS
+	"PRIOR", KW_PRIOR,
+#endif
+	"PRIVILEGES", KW_PRIVILEGES,
+	"PROC", KW_PROC,
+	"PROCEDURE", KW_PROCEDURE,
+	"PROTECTED", KW_PROTECTED,
+	"PUBLIC", KW_PUBLIC,
+	"PUT_ITEM", KW_PUT_ITEM,
+	"PUT_SEGMENT", KW_PUT_SEGMENT,
+	"PUT_SLICE", KW_PUT_SLICE,
+	"QUADWORD", KW_QUAD,
+	"RAW_PARTITIONS", KW_RAW_PARTITIONS,
+	"READ", KW_READ,
+	"READ_COMMITTED", KW_READ_COMMITTED,
+	"READY", KW_READY,
+	"READY_DATABASE", KW_READY,
+	"READ_ONLY", KW_READ_ONLY,
+	"READ_WRITE", KW_READ_WRITE,
+	"REAL", KW_REAL,
+	"RECORD_VERSION", KW_VERSION,
+	"REDUCED", KW_REDUCED, "REFERENCES", KW_REFERENCES,
+#ifdef SCROLLABLE_CURSORS
+	"RELATIVE", KW_RELATIVE,
+#endif
+	"RELEASE", KW_RELEASE,
+	"RELEASE_REQUESTS", KW_RELEASE_REQUESTS,
+	"REM", KW_REM,
+	"REQUEST_HANDLE", KW_REQUEST_HANDLE,
+	"RESERVING", KW_RESERVING,
+	"RESOURCE", KW_RESOURCE,
+	"RESTRICT", KW_RESTRICT,
+	"RETAIN", KW_RETAIN,
+	"RETURNING_VALUES", KW_RETURNING,
+	"RETURNS", KW_RETURNS,
+	"REVOKE", KW_REVOKE,
+	"RIGHT", KW_RIGHT,
+	")", KW_RIGHT_PAREN,
+	"ROLE", KW_ROLE,
+	"ROLLBACK", KW_ROLLBACK,
+	"ROLLBACK_TRANSACTION", KW_ROLLBACK,
+	"^FUNCTION", KW_ROUTINE_PTR,
+	"^PROCEDURE", KW_ROUTINE_PTR,
+	"RUN", KW_RUN,
+	"RUNTIME", KW_RUNTIME,
+	"}", KW_R_BRACE,
+	"]", KW_R_BRCKET,
+	"SAVE", KW_SAVE,
+	"SAVE_TRANSACTION", KW_SAVE,
+	"SAVE_TRANSACTIONS", KW_SAVE,
+	"SCALE", KW_SCALE, "SCHEDULE", KW_SCHEDULE, "SCHEMA", KW_SCHEMA,
+#ifdef SCROLLABLE_CURSORS
+	"SCROLL", KW_SCROLL,
+#endif
+	"SECTION", KW_SECTION,
+	"SECOND", KW_SECOND,
+	"SEGMENT", KW_SEGMENT,
+	"SELECT", KW_SELECT,
+	";", KW_SEMI_COLON,
+	"SET", KW_SET,
+	"SHARED", KW_SHARED,
+	"SHADOW", KW_SHADOW,
+	"SHORT", KW_SHORT,
+	"short", KW_SHORT,
+	"SINGULAR", KW_SINGULAR,
+	"SIZE", KW_SIZE,
+	"/", KW_SLASH,
+	"SMALLINT", KW_SMALLINT,
+	"SNAPSHOT", KW_SNAPSHOT,
+	"SORT", KW_SORT,
+	"SORTED", KW_SORTED,
+	"SQL", KW_SQL,
+	"SQLERROR", KW_SQLERROR,
+	"SQLWARNING", KW_SQLWARNING,
+	"STABILITY", KW_STABILITY,
+	"STARTING", KW_STARTING,
+	"STARTING_WITH", KW_STARTING_WITH,
+	"STARTS", KW_STARTS,
+	"START_STREAM", KW_START_STREAM,
+	"START_TRANSACTION", KW_START_TRANSACTION,
+	"STATE", KW_STATE,
+	"STATEMENT", KW_STATEMENT,
+	"STATIC", KW_STATIC,
+	"STATISTICS", KW_STATISTICS,
+	"STOGROUP", KW_STOGROUP,
+	"STORE", KW_STORE,
+	"STREAM", KW_STREAM,
+	"STRING", KW_STRING,
+	"SUB", KW_SUB,
+	"SUB_TYPE", KW_SUB_TYPE,
+	"SUBROUTINE", KW_SUBROUTINE,
+	"SUM", KW_SUM,
+	"SUSPEND_WINDOW", KW_SUSPEND_WINDOW,
+	"SYNONYM", KW_SYNONYM,
+	"TABLE", KW_TABLE,
+	"TABLESPACE", KW_TABLESPACE,
+	"TAG", KW_TAG,
+	"TERMINATING_FIELD", KW_TERMINATING_FIELD,
+	"TERMINATOR", KW_TERMINATOR,
+	"TIME", KW_TIME,
+	"TIMESTAMP", KW_TIMESTAMP,
+	"TITLE_LENGTH", KW_TITLE_LENGTH,
+	"TITLE_TEXT", KW_TITLE_TEXT,
+	"TO", KW_TO,
+	"TOTAL", KW_TOTAL,
+	"TRANSACTION", KW_TRANSACTION,
+	"TRANSACTION_HANDLE", KW_TRANSACTION_HANDLE,
+	"TRANSPARENT", KW_TRANSPARENT,
+	"TRIGGER", KW_TRIGGER,
+	"UNCOMMITTED", KW_UNCOMMITTED,
+	"UNION", KW_UNION,
+	"UNIQUE", KW_UNIQUE,
+	"UPDATE", KW_UPDATE,
+	"UPPER", KW_UPPER,
+	"UPPERCASE", KW_UPPERCASE,
+	"USER", KW_USER,
+	"USERS", KW_USERS,
+	"RDB$USER_NAME", KW_USER_NAME,
+	"USING", KW_USING,
+	"VALUE", KW_VALUE,
+	"VALUES", KW_VALUES,
+	"VAL_PARAM", KW_VAL_PARAM,
+	"VARCHAR", KW_VARCHAR,
+	"VARIABLE", KW_VARIABLE,
+	"VARYING", KW_VARYING,
+	"VERTICAL", KW_VERTICAL,
+	"VIEW", KW_VIEW,
+	"WAIT", KW_WAIT,
+	"WAKING", KW_WAKING,
+	"WARNING", KW_WARNING,
+	"WEEKDAY", KW_WEEKDAY,
+	"WHENEVER", KW_WHENEVER,
+	"WIDTH", KW_WIDTH,
+	"WHERE", KW_WITH,
+	"WITH", KW_WITH,
+	"WORK", KW_WORK,
+	"WRITE", KW_WRITE, "YEAR", KW_YEAR, "YEARDAY", KW_YEARDAY,
diff --git a/src/gpre/hsh_proto.h b/src/gpre/hsh_proto.h
new file mode 100644
index 0000000000..631f57fc58
--- /dev/null
+++ b/src/gpre/hsh_proto.h
@@ -0,0 +1,42 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		hsh_proto.h
+ *	DESCRIPTION:	Prototype header file for hsh.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_HSH_PROTO_H_
+#define _GPRE_HSH_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void HSH_fini(void);
+extern void HSH_init(void);
+extern void HSH_insert(register SYM);
+extern SYM HSH_lookup(register SCHAR *);
+extern SYM HSH_lookup2(register SCHAR *);
+extern void HSH_remove(register SYM);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _GPRE_HSH_PROTO_H_ */
diff --git a/src/gpre/int.cpp b/src/gpre/int.cpp
new file mode 100644
index 0000000000..c56fe6697e
--- /dev/null
+++ b/src/gpre/int.cpp
@@ -0,0 +1,787 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	C preprocess
+//		MODULE:		int.cpp
+//		DESCRIPTION:	Code generate for internal JRD modules
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings in generated code
+//  
+//
+//____________________________________________________________
+//
+//	$Id: int.cpp,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+//
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../include/jrd/gds.h"
+#include "../gpre/gpre.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/lang_proto.h"
+#include "../jrd/gds_proto.h"
+
+static void align(int);
+static void asgn_from(REF, int);
+static void asgn_to(REF);
+static void gen_at_end(ACT, int);
+static int gen_blr(int *, int, TEXT *);
+static void gen_compile(REQ, int);
+static void gen_database(ACT, int);
+static void gen_emodify(ACT, int);
+static void gen_estore(ACT, int);
+static void gen_endfor(ACT, int);
+static void gen_erase(ACT, int);
+static void gen_for(ACT, int);
+static TEXT *gen_name(TEXT *, REF);
+static void gen_raw(REQ);
+static void gen_receive(REQ, POR);
+static void gen_request(REQ);
+static void gen_routine(ACT, int);
+static void gen_s_end(ACT, int);
+static void gen_s_fetch(ACT, int);
+static void gen_s_start(ACT, int);
+static void gen_send(REQ, POR, int);
+static void gen_start(REQ, POR, int);
+static void gen_type(ACT, int);
+static void gen_variable(ACT, int);
+static void make_port(POR, int);
+static void printa(int, TEXT *, ...);
+
+static int first_flag = 0;
+
+#define INDENT 3
+#define BEGIN		printa (column, "{")
+#define END		printa (column, "}")
+
+#if !(defined JPN_SJIS || defined JPN_EUC)
+#define GDS_VTOV	"gds__vtov"
+#define JRD_VTOF	"jrd_vtof"
+#define VTO_CALL	"%s (%s, %s, %d);"
+#else
+#define GDS_VTOV	"gds__vtov2"
+#define JRD_VTOF	"jrd_vtof2"
+#define VTO_CALL	"%s (%s, %s, %d, %d);"
+#endif
+
+
+//____________________________________________________________
+//  
+//  
+
+void INT_action( ACT action, int column)
+{
+
+//  Put leading braces where required 
+
+	switch (action->act_type) {
+	case ACT_for:
+	case ACT_insert:
+	case ACT_modify:
+	case ACT_store:
+	case ACT_s_fetch:
+	case ACT_s_start:
+		BEGIN;
+		align(column);
+	}
+
+	switch (action->act_type) {
+	case ACT_at_end:
+		gen_at_end(action, column);
+		return;
+	case ACT_b_declare:
+	case ACT_database:
+		gen_database(action, column);
+		return;
+	case ACT_endfor:
+		gen_endfor(action, column);
+		break;
+	case ACT_endmodify:
+		gen_emodify(action, column);
+		break;
+	case ACT_endstore:
+		gen_estore(action, column);
+		break;
+	case ACT_erase:
+		gen_erase(action, column);
+		return;
+	case ACT_for:
+		gen_for(action, column);
+		return;
+	case ACT_hctef:
+		break;
+	case ACT_insert:
+	case ACT_routine:
+		gen_routine(action, column);
+		return;
+	case ACT_s_end:
+		gen_s_end(action, column);
+		return;
+	case ACT_s_fetch:
+		gen_s_fetch(action, column);
+		return;
+	case ACT_s_start:
+		gen_s_start(action, column);
+		break;
+	case ACT_type:
+		gen_type(action, column);
+		return;
+	case ACT_variable:
+		gen_variable(action, column);
+		return;
+	default:
+		return;
+	}
+
+//  Put in a trailing brace for those actions still with us 
+
+	END;
+}
+
+
+//____________________________________________________________
+//  
+//		Align output to a specific column for output.
+//  
+
+static void align( int column)
+{
+	int i;
+
+	if (column < 0)
+		return;
+
+	ib_putc('\n', out_file);
+
+	for (i = column / 8; i; --i)
+		ib_putc('\t', out_file);
+
+	for (i = column % 8; i; --i)
+		ib_putc(' ', out_file);
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment from a host language variable to
+//		a port variable.
+//  
+
+static void asgn_from( REF reference, int column)
+{
+	FLD field;
+	TEXT *value, variable[20], temp[20];
+
+	for (; reference; reference = reference->ref_next) {
+		field = reference->ref_field;
+		align(column);
+		gen_name(variable, reference);
+		if (reference->ref_source)
+			value = gen_name(temp, reference->ref_source);
+		else
+			value = reference->ref_value;
+
+		/* To avoid chopping off a double byte kanji character in between
+		   the two bytes, generate calls to gds__ftof2 gds$_vtof2,
+		   gds$_vtov2 and jrd_vtof2 wherever necessary */
+
+		if (!field || field->fld_dtype == dtype_text)
+			ib_fprintf(out_file, VTO_CALL,
+					   JRD_VTOF,
+					   value, variable, field->fld_length, sw_interp);
+		else if (!field || field->fld_dtype == dtype_cstring)
+			ib_fprintf(out_file, VTO_CALL,
+					   GDS_VTOV,
+					   value, variable, field->fld_length, sw_interp);
+		else
+			ib_fprintf(out_file, "%s = %s;", variable, value);
+	}
+
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment to a host language variable from
+//		a port variable.
+//  
+
+static void asgn_to( REF reference)
+{
+	FLD field;
+	REF source;
+	TEXT s[20];
+
+	source = reference->ref_friend;
+	field = source->ref_field;
+	gen_name(s, source);
+
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+
+	if (!field || field->fld_dtype == dtype_text)
+		ib_fprintf(out_file, "gds__ftov (%s, %d, %s, sizeof (%s));",
+				   s,
+				   field->fld_length,
+				   reference->ref_value, reference->ref_value);
+	else if (!field || field->fld_dtype == dtype_cstring)
+		ib_fprintf(out_file, "gds__vtov (%s, %s, sizeof (%s));",
+				   s, reference->ref_value, reference->ref_value);
+
+#else
+
+//  To avoid chopping off a double byte kanji character in between
+//  the two bytes, generate calls to gds__ftof2 gds$_vtof2 and
+//  gds$_vtov2 wherever necessary 
+
+	if (!field || field->fld_dtype == dtype_text)
+		ib_fprintf(out_file, "gds__ftov2 (%s, %d, %s, sizeof (%s), %d);",
+				   s,
+				   field->fld_length,
+				   reference->ref_value, reference->ref_value, sw_interp);
+	else if (!field || field->fld_dtype == dtype_cstring)
+		ib_fprintf(out_file, "gds__vtov2 (%s, %s, sizeof (%s), %d);",
+				   s, reference->ref_value, reference->ref_value, sw_interp);
+
+#endif
+	else
+		ib_fprintf(out_file, "%s = %s;", reference->ref_value, s);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for AT END clause of FETCH.
+//  
+
+static void gen_at_end( ACT action, int column)
+{
+	REQ request;
+	TEXT s[20];
+
+	request = action->act_request;
+	printa(column, "if (!%s) ", gen_name(s, request->req_eof));
+}
+
+
+//____________________________________________________________
+//  
+//		Callback routine for BLR pretty printer.
+//  
+
+static int gen_blr( int *user_arg, int offset, TEXT * string)
+{
+
+	ib_fprintf(out_file, "%s\n", string);
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile a request.
+//  
+
+static void gen_compile( REQ request, int column)
+{
+	DBB db;
+	SYM symbol;
+
+	column += INDENT;
+	db = request->req_database;
+	symbol = db->dbb_name;
+	ib_fprintf(out_file, "if (!%s)", request->req_handle);
+	align(column);
+	ib_fprintf(out_file,
+			   "%s = (BLK) CMP_compile2 (tdbb, (UCHAR*)jrd_%d, TRUE);",
+			   request->req_handle, request->req_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insertion text for the database statement.
+//  
+
+static void gen_database( ACT action, int column)
+{
+	REQ request;
+
+	if (first_flag++ != 0)
+		return;
+
+	align(0);
+	for (request = requests; request; request = request->req_next)
+		gen_request(request);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_MODIFY.
+//  
+
+static void gen_emodify( ACT action, int column)
+{
+	UPD modify;
+	REF reference, source;
+	FLD field;
+	TEXT s1[20], s2[20];
+
+	modify = (UPD) action->act_object;
+
+	for (reference = modify->upd_port->por_references; reference;
+		 reference = reference->ref_next) {
+		if (!(source = reference->ref_source))
+			continue;
+		field = reference->ref_field;
+		align(column);
+
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+
+		if (field->fld_dtype == dtype_text)
+			ib_fprintf(out_file, "jrd_ftof (%s, %d, %s, %d);",
+					   gen_name(s1, source),
+					   field->fld_length,
+					   gen_name(s2, reference), field->fld_length);
+		else if (field->fld_dtype == dtype_cstring)
+			ib_fprintf(out_file, "gds__vtov (%s, %s, %d);",
+					   gen_name(s1, source),
+					   gen_name(s2, reference), field->fld_length);
+
+#else
+
+		/* To avoid chopping off a double byte kanji character in between
+		   the two bytes, generate calls to gds__ftof2 gds$_vtof2 and
+		   gds$_vtov2 wherever necessary
+		   Cannot find where jrd_fof is defined. It needs Japanization too */
+
+		if (field->fld_dtype == dtype_text)
+			ib_fprintf(out_file, "jrd_ftof (%s, %d, %s, %d);",
+					   gen_name(s1, source),
+					   field->fld_length,
+					   gen_name(s2, reference), field->fld_length);
+		else if (field->fld_dtype == dtype_cstring)
+			ib_fprintf(out_file, "gds__vtov2 (%s, %s, %d, %d);",
+					   gen_name(s1, source),
+					   gen_name(s2, reference), field->fld_length, sw_interp);
+
+#endif
+		else
+			ib_fprintf(out_file, "%s = %s;",
+					   gen_name(s1, reference), gen_name(s2, source));
+	}
+
+	gen_send(action->act_request, modify->upd_port, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STORE.
+//  
+
+static void gen_estore( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	align(column);
+	gen_compile(request, column);
+	gen_start(request, request->req_primary, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  
+
+static void gen_endfor( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	column += INDENT;
+
+	if (request->req_sync)
+		gen_send(request, request->req_sync, column);
+
+	END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for ERASE.
+//  
+
+static void gen_erase( ACT action, int column)
+{
+	UPD erase;
+
+	erase = (UPD) action->act_object;
+	gen_send(erase->upd_request, erase->upd_port, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FOR statement.
+//  
+
+static void gen_for( ACT action, int column)
+{
+	REQ request;
+	TEXT s[20];
+
+	gen_s_start(action, column);
+
+	align(column);
+	request = action->act_request;
+	ib_fprintf(out_file, "while (1)");
+	column += INDENT;
+	BEGIN;
+	align(column);
+	gen_receive(action->act_request, request->req_primary);
+	align(column);
+	ib_fprintf(out_file, "if (!%s) break;", gen_name(s, request->req_eof));
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a name for a reference.  Name is constructed from
+//		port and parameter idents.
+//  
+
+static TEXT *gen_name( TEXT * string, REF reference)
+{
+
+	sprintf(string, "jrd_%d.jrd_%d",
+			reference->ref_port->por_ident, reference->ref_ident);
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate BLR in raw, numeric form.  Ugly but dense.
+//  
+
+static void gen_raw( REQ request)
+{
+	UCHAR *blr, c;
+	TEXT buffer[80], *p;
+	int blr_length;
+
+	blr = request->req_blr;
+	blr_length = request->req_length;
+	p = buffer;
+	align(0);
+
+	while (--blr_length) {
+		c = *blr++;
+		if ((c >= 'A' && c <= 'Z') || c == '$' || c == '_')
+			sprintf(p, "'%c',", c);
+		else
+			sprintf(p, "%d,", c);
+		while (*p)
+			p++;
+		if (p - buffer > 60) {
+			ib_fprintf(out_file, "%s\n", buffer);
+			p = buffer;
+			*p = 0;
+		}
+	}
+
+	ib_fprintf(out_file, "%s%d", buffer, blr_eoc);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a send or receive call for a port.
+//  
+
+static void gen_receive( REQ request, POR port)
+{
+
+	ib_fprintf(out_file,
+			   "EXE_receive (tdbb, (REQ)%s, %d, %d, (UCHAR*)&jrd_%d);",
+			   request->req_handle, port->por_msg_number, port->por_length,
+			   port->por_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  
+
+static void gen_request( REQ request)
+{
+
+	if (!(request->req_flags & REQ_exp_hand))
+		ib_fprintf(out_file, "static void\t*%s;\t/* request handle */\n",
+				   request->req_handle);
+
+	ib_fprintf(out_file, "static CONST UCHAR\tjrd_%d [%d] =",
+			   request->req_ident, request->req_length);
+	align(INDENT);
+	ib_fprintf(out_file, "{\t/* blr string */\n", request->req_ident);
+
+	if (sw_raw)
+		gen_raw(request);
+	else
+		gds__print_blr(request->req_blr, (FPTR_VOID) gen_blr, 0, 0);
+
+	printa(INDENT, "};\t/* end of blr string */\n");
+}
+
+
+//____________________________________________________________
+//  
+//		Process routine head.  If there are requests in the
+//		routine, insert local definitions.
+//  
+
+static void gen_routine( ACT action, int column)
+{
+	REQ request;
+	POR port;
+
+	for (request = (REQ) action->act_object; request;
+		 request = request->req_routine) for (port = request->req_ports; port;
+											  port = port->por_next)
+			make_port(port, column + INDENT);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STREAM.
+//  
+
+static void gen_s_end( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	printa(column, "EXE_unwind (tdbb, %s);", request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FETCH.
+//  
+
+static void gen_s_fetch( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	if (request->req_sync)
+		gen_send(request, request->req_sync, column);
+
+	gen_receive(action->act_request, request->req_primary);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile and start a stream.  This is
+//		used both by START_STREAM and FOR
+//  
+
+static void gen_s_start( ACT action, int column)
+{
+	REQ request;
+	POR port;
+
+	request = action->act_request;
+	gen_compile(request, column);
+
+	if (port = request->req_vport)
+		asgn_from(port->por_references, column);
+
+	gen_start(request, port, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a send or receive call for a port.
+//  
+
+static void gen_send( REQ request, POR port, int column)
+{
+	align(column);
+	ib_fprintf(out_file, "EXE_send (tdbb, (REQ)%s, %d, %d, (UCHAR*)&jrd_%d);",
+			   request->req_handle,
+			   port->por_msg_number, port->por_length, port->por_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a START.
+//  
+
+static void gen_start( REQ request, POR port, int column)
+{
+	align(column);
+
+	ib_fprintf(out_file, "EXE_start (tdbb, (REQ)%s, %s);",
+			   request->req_handle, request->req_trans);
+
+	if (port)
+		gen_send(request, port, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a variable reference.
+//  
+
+static void gen_type( ACT action, int column)
+{
+
+	printa(column, "%ld", action->act_object);
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a variable reference.
+//  
+
+static void gen_variable( ACT action, int column)
+{
+	TEXT s[20];
+
+	align(column);
+	ib_fprintf(out_file, gen_name(s, action->act_object));
+
+}
+
+
+//____________________________________________________________
+//  
+//		Insert a port record description in output.
+//  
+
+static void make_port( POR port, int column)
+{
+	FLD field;
+	REF reference;
+	SYM symbol;
+	TEXT *name, s[50];
+
+	printa(column, "struct {");
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		align(column + INDENT);
+		field = reference->ref_field;
+		symbol = field->fld_symbol;
+		name = symbol->sym_string;
+		switch (field->fld_dtype) {
+		case dtype_short:
+			ib_fprintf(out_file, "    SSHORT jrd_%d;\t/* %s */",
+					   reference->ref_ident, name);
+			break;
+
+		case dtype_long:
+			ib_fprintf(out_file, "    SLONG  jrd_%d;\t/* %s */",
+					   reference->ref_ident, name);
+			break;
+
+// ** Begin sql date/time/timestamp *
+		case dtype_sql_date:
+			ib_fprintf(out_file, "    ISC_DATE  jrd_%d;\t/* %s */",
+					   reference->ref_ident, name);
+			break;
+
+		case dtype_sql_time:
+			ib_fprintf(out_file, "    ISC_TIME  jrd_%d;\t/* %s */",
+					   reference->ref_ident, name);
+			break;
+
+		case dtype_timestamp:
+			ib_fprintf(out_file, "    ISC_TIMESTAMP  jrd_%d;\t/* %s */",
+					   reference->ref_ident, name);
+			break;
+// ** End sql date/time/timestamp *
+
+		case dtype_int64:
+			ib_fprintf(out_file, "    ISC_INT64  jrd_%d;\t/* %s */",
+					   reference->ref_ident, name);
+			break;
+
+		case dtype_quad:
+		case dtype_blob:
+			ib_fprintf(out_file, "    GDS__QUAD  jrd_%d;\t/* %s */",
+					   reference->ref_ident, name);
+			break;
+
+		case dtype_cstring:
+		case dtype_text:
+			ib_fprintf(out_file, "    TEXT  jrd_%d [%d];\t/* %s */",
+					   reference->ref_ident, field->fld_length, name);
+			break;
+
+		case dtype_float:
+			ib_fprintf(out_file, "    float  jrd_%d;\t/* %s */",
+					   reference->ref_ident, name);
+			break;
+
+		case dtype_double:
+			ib_fprintf(out_file, "    double  jrd_%d;\t/* %s */",
+					   reference->ref_ident, name);
+			break;
+
+		default:
+			sprintf(s, "datatype %d unknown for field %s, msg %d",
+					field->fld_dtype, name, port->por_msg_number);
+			CPR_error(s);
+			return;
+		}
+	}
+	align(column);
+	ib_fprintf(out_file, "} jrd_%d;", port->por_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Print a fixed string at a particular column.
+//  
+
+static void printa( int column, TEXT * string, ...)
+{
+	va_list ptr;
+
+	VA_START(ptr, string);
+	align(column);
+	ib_vfprintf(out_file, string, ptr);
+}
diff --git a/src/gpre/jrdme_proto.h b/src/gpre/jrdme_proto.h
new file mode 100644
index 0000000000..2319757275
--- /dev/null
+++ b/src/gpre/jrdme_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		jrdme_proto.h
+ *	DESCRIPTION:	Prototype header file for jrdmet.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_JRDME_PROTO_H_
+#define _GPRE_JRDME_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void JRDMET_init(DBB);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _GPRE_JRDME_PROTO_H_ */
diff --git a/src/gpre/jrdmet.cpp b/src/gpre/jrdmet.cpp
new file mode 100644
index 0000000000..4c7b5bb306
--- /dev/null
+++ b/src/gpre/jrdmet.cpp
@@ -0,0 +1,156 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	JRD Access Method
+//		MODULE:		jrdmet.cpp
+//		DESCRIPTION:	Non-database meta data for internal JRD stuff
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  There however is still a bunch of constness errors in this file
+//  
+//
+//____________________________________________________________
+//
+//	$Id: jrdmet.cpp,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+//
+
+#include "../include/jrd/gds.h"
+#include "../jrd/common.h"
+#include "../jrd/ods.h"
+
+extern "C" {
+
+struct blk {
+	SLONG blk_header;
+};
+
+} // extern "C"
+
+#include "../gpre/gpre.h"
+#include "../jrd/constants.h"
+#define GPRE
+#include "../jrd/ini.h"
+#undef GPRE
+#include "../gpre/hsh_proto.h"
+#include "../gpre/jrdme_proto.h"
+
+
+extern "C" {
+
+
+//____________________________________________________________
+//  
+//		Initialize in memory meta data.
+//  
+
+void JRDMET_init( DBB db)
+{
+	REL relation;
+	SYM symbol;
+	FLD field;
+	TYP type;
+	CONST RTYP *rtype;
+	CONST UCHAR *relfld;
+	CONST UCHAR *fld;
+	int n;
+	struct gfld *gfield;
+
+	relfld = relfields;
+
+	while (relfld[RFLD_R_NAME]) {
+		relation = (REL) ALLOC(REL_LEN);
+		relation->rel_database = db;
+		relation->rel_next = db->dbb_relations;
+		relation->rel_id = relfld[RFLD_R_ID];
+		db->dbb_relations = relation;
+		relation->rel_symbol = symbol = (SYM) ALLOC(SYM_LEN);
+		symbol->sym_type = SYM_relation;
+		symbol->sym_object = (CTX) relation;
+
+#pragma FB_COMPILER_MESSAGE("FIXFIX! const_cast")
+
+		symbol->sym_string = const_cast < char *>(names[relfld[RFLD_R_NAME]]);
+		HSH_insert(symbol);
+
+		for (n = 0, fld = relfld + RFLD_RPT; fld[RFLD_F_NAME];
+			 n++, fld += RFLD_F_LENGTH) {
+			relation->rel_fields = field;
+			gfield = const_cast < gfld * >((fld[RFLD_F_UPD_MINOR]) ?
+										   &gfields[fld[RFLD_F_UPD_ID]] :
+										   &gfields[fld[RFLD_F_ID]]);
+			field = (FLD) ALLOC(FLD_LEN);
+			field->fld_relation = relation;
+			field->fld_next = relation->rel_fields;
+			field->fld_id = n;
+			field->fld_length = gfield->gfld_length;
+			field->fld_dtype = gfield->gfld_dtype;
+			field->fld_sub_type = gfield->gfld_sub_type;
+			if (field->fld_dtype == dtype_varying ||
+				field->fld_dtype == dtype_text) {
+				field->fld_dtype = dtype_cstring;
+				field->fld_flags |= FLD_text;
+				++field->fld_length;
+				if (gfield->gfld_sub_type == dsc_text_type_metadata) {
+					field->fld_flags |= FLD_charset;
+					field->fld_charset_id = CS_METADATA;
+					field->fld_collate_id = COLLATE_NONE;
+					field->fld_ttype = ttype_metadata;
+				}
+				else {
+					field->fld_flags |= FLD_charset;
+					field->fld_charset_id = CS_NONE;
+					field->fld_collate_id = COLLATE_NONE;
+					field->fld_ttype = ttype_none;
+				}
+			}
+			else if (field->fld_dtype == dtype_blob) {
+				field->fld_dtype = dtype_blob;
+				field->fld_flags |= FLD_blob;
+				if (gfield->gfld_sub_type == BLOB_text)
+					field->fld_charset_id = CS_METADATA;
+			}
+
+			field->fld_symbol = symbol = (SYM) ALLOC(SYM_LEN);
+			symbol->sym_type = SYM_field;
+			symbol->sym_object = (CTX) field;
+			symbol->sym_string =
+				const_cast < char *>(names[fld[RFLD_F_NAME]]);
+			HSH_insert(symbol);
+
+			field->fld_global = symbol = (SYM) ALLOC(SYM_LEN);
+			symbol->sym_type = SYM_field;
+			symbol->sym_object = (CTX) field;
+			symbol->sym_string =
+				const_cast < char *>(names[gfield->gfld_name]);
+		}
+		relfld = fld + 1;
+	}
+
+	for (rtype = types; rtype->rtyp_name; rtype++) {
+		type = (TYP) ALLOC(TYP_LEN);
+		type->typ_symbol = symbol = (SYM) ALLOC(SYM_LEN);
+		type->typ_value = rtype->rtyp_value;
+		symbol->sym_type = SYM_type;
+		symbol->sym_object = (CTX) type;
+		symbol->sym_string = const_cast < char *>(rtype->rtyp_name);
+		HSH_insert(symbol);
+	}
+}
+
+
+} // extern "C"
diff --git a/src/gpre/lang_proto.h b/src/gpre/lang_proto.h
new file mode 100644
index 0000000000..c40d98faee
--- /dev/null
+++ b/src/gpre/lang_proto.h
@@ -0,0 +1,49 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		lang_proto.h
+ *	DESCRIPTION:	Prototype header file for all of the code generators
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_LANG_PROTO_H_
+#define _GPRE_LANG_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void ADA_action(ACT, int);
+extern void ADA_print_buffer(TEXT *, int);
+extern int BAS_action(ACT, int);
+extern void C_CXX_action(ACT, int);
+extern void COB_action(ACT, int);
+extern void COB_name_init(BOOLEAN);
+extern void COB_print_buffer(TEXT *, BOOLEAN);
+extern void FTN_action(ACT, int);
+extern void FTN_fini(void);
+extern void FTN_print_buffer(TEXT *);
+extern void INT_action(ACT, int);
+extern void PAS_action(ACT, int);
+extern int PLI_action(ACT, int);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _GPRE_LANG_PROTO_H_ */
diff --git a/src/gpre/movg.cpp b/src/gpre/movg.cpp
new file mode 100644
index 0000000000..fc15a8410e
--- /dev/null
+++ b/src/gpre/movg.cpp
@@ -0,0 +1,73 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	Gpre support
+//		MODULE:		movg.cpp
+//		DESCRIPTION:	Data mover and converter and comparator, etc.
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  
+//
+//____________________________________________________________
+//
+//	$Id: movg.cpp,v 1.1.1.1 2001-05-23 13:25:32 tamlin Exp $
+//
+
+#include "../jrd/common.h"
+#include <stdarg.h>
+
+#include "../jrd/codes.h"
+#include "../jrd/iberr.h"
+#include "../jrd/dsc.h"
+#include "../gpre/movg_proto.h"
+//  TMN: Unfortunately we need to include gpre.h before grep_proto.h since
+//  the latter references a macro from the former, and doesn't include that
+//  header file itself. We need to include gpre_proto.h since we use gpre
+//  functions.
+//  
+#include "../gpre/gpre.h"
+#include "../gpre/gpre_proto.h"
+#include "../jrd/cvt_proto.h"
+#include "../jrd/thd_proto.h"
+
+static void post_error(void);
+
+
+//____________________________________________________________
+//  
+//		Move (and possible convert) something to something else.
+//  
+
+void MOVG_move(DSC * from, DSC * to)
+{
+
+	CVT_move(from, to, (FPTR_VOID) post_error);
+}
+
+
+//____________________________________________________________
+//  
+//		A conversion error occurred.  Complain.
+//  
+
+static void post_error(void)
+{
+
+	CPR_error("conversion error: illegal string literal");
+	CPR_abort();
+}
diff --git a/src/gpre/movg_proto.h b/src/gpre/movg_proto.h
new file mode 100644
index 0000000000..0d320b5249
--- /dev/null
+++ b/src/gpre/movg_proto.h
@@ -0,0 +1,28 @@
+/*
+ *	PROGRAM:	Dynamic SQL runtime support
+ *	MODULE:		movg_proto.h
+ *	DESCRIPTION:	Prototype Header file for movg.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DSQL_MOVG_PROTO_H_
+#define _DSQL_MOVG_PROTO_H_
+
+extern void MOVG_move(DSC *, DSC *);
+#endif /*  _DSQL_MOVG_PROTO_H_  */
diff --git a/src/gpre/msc.cpp b/src/gpre/msc.cpp
new file mode 100644
index 0000000000..3fb017a40b
--- /dev/null
+++ b/src/gpre/msc.cpp
@@ -0,0 +1,541 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	C preprocessor
+//		MODULE:		msc.cpp
+//		DESCRIPTION:	Miscellaneous little stuff
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  
+//
+//____________________________________________________________
+//
+//	$Id: msc.cpp,v 1.1.1.1 2001-05-23 13:25:32 tamlin Exp $
+//
+//  
+//$Id: msc.cpp,v 1.1.1.1 2001-05-23 13:25:32 tamlin Exp $
+//  
+
+// ***************************************************
+//  THIS MODULE HAS SEVERAL KISSING COUSINS; IF YOU
+//  SHOULD CHANGE ONE OF THE MODULES IN THE FOLLOWING
+//  LIST, PLEASE BE SURE TO CHECK THE OTHERS FOR
+//  SIMILAR CHANGES:
+//  
+//        gds/maint/pyxis/all.c
+//                  dsql/all.c
+//                  jrd/all.c
+//                  pipe/allp.c
+//                  qli/all.c
+//                  remote/allr.c
+//                  gpre/msc.c
+//  
+//  - THANK YOU
+//**************************************************
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../gpre/gpre.h"
+#include "../gpre/parse.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/msc_proto.h"
+#include "../jrd/gds_proto.h"
+
+
+extern "C" {
+
+
+extern ACT cur_routine;
+
+typedef struct spc {
+	struct spc *spc_next;
+	SLONG spc_remaining;
+} *SPC;
+
+static SPC space, permanent_space;
+static LLS free_lls;
+
+
+//____________________________________________________________
+//  
+//		Make an action and link it to a request.
+//  
+
+ACT MSC_action( REQ request, enum act_t type)
+{
+	ACT action;
+
+	action = (ACT) ALLOC(ACT_LEN);
+	action->act_type = type;
+
+	if (request) {
+		action->act_next = request->req_actions;
+		request->req_actions = action;
+		action->act_request = request;
+	}
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+UCHAR *MSC_alloc(int size)
+{
+	SPC next;
+	int n;
+	UCHAR *blk, *p, *end;
+
+	size = FB_ALIGN(size, ALIGNMENT);
+
+	if (!space || size > space->spc_remaining) {
+		n = MAX(size, 4096);
+		if (!(next = (SPC) gds__alloc((SLONG) (n + sizeof(struct spc)))))
+			CPR_error("virtual memory exhausted");
+#ifdef DEBUG_GDS_ALLOC
+		/* For V4.0 we don't care about gpre specific memory leaks */
+		gds_alloc_flag_unfreed(next);
+#endif
+		next->spc_next = space;
+		next->spc_remaining = n;
+		space = next;
+	}
+
+	space->spc_remaining -= size;
+	p = blk = ((UCHAR *) space + sizeof(struct spc) + space->spc_remaining);
+	end = p + size;
+
+	while (p < end)
+		*p++ = 0;
+
+	return blk;
+}
+
+
+//____________________________________________________________
+//  
+//		Allocate a block in permanent memory.
+//  
+
+UCHAR *MSC_alloc_permanent(int size)
+{
+	SPC next;
+	int n;
+	UCHAR *blk, *p, *end;
+
+	size = FB_ALIGN(size, ALIGNMENT);
+
+	if (!permanent_space || size > permanent_space->spc_remaining) {
+		n = MAX(size, 4096);
+		if (!(next = (SPC) gds__alloc((SLONG) (n + sizeof(struct spc)))))
+			CPR_error("virtual memory exhausted");
+#ifdef DEBUG_GDS_ALLOC
+		/* For V4.0 we don't care about gpre specific memory leaks */
+		gds_alloc_flag_unfreed(next);
+#endif
+		next->spc_next = permanent_space;
+		next->spc_remaining = n;
+		permanent_space = next;
+	}
+
+	permanent_space->spc_remaining -= size;
+	p = blk =
+		((UCHAR *) permanent_space + sizeof(struct spc) +
+		 permanent_space->spc_remaining);
+	end = p + size;
+
+	while (p < end)
+		*p++ = 0;
+
+	return blk;
+}
+
+
+//____________________________________________________________
+//  
+//		Make a binary node.
+//  
+
+NOD MSC_binary(NOD_T type, NOD arg1, NOD arg2)
+{
+	NOD node;
+
+	node = MSC_node(type, 2);
+	node->nod_arg[0] = arg1;
+	node->nod_arg[1] = arg2;
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Make a new context for a request and link it up to the request.
+//  
+
+CTX MSC_context(REQ request)
+{
+	CTX context;
+
+//  allocate and initialize 
+
+	context = (CTX) ALLOC(CTX_LEN);
+	context->ctx_request = request;
+	context->ctx_internal = request->req_internal++;
+	context->ctx_scope_level = request->req_scope_level;
+
+//  link in with the request block 
+
+	context->ctx_next = request->req_contexts;
+	request->req_contexts = context;
+
+	return context;
+}
+
+
+//____________________________________________________________
+//  
+//		Copy one string into another.
+//  
+
+void MSC_copy( char *from, int length, char *to)
+{
+
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+
+	*to = 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Find a symbol of a particular type.
+//  
+
+SYM MSC_find_symbol(SYM symbol, enum sym_t type)
+{
+
+	for (; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == type)
+			return symbol;
+
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Free a block.
+//  
+
+void MSC_free( UCHAR * block)
+{
+
+}
+
+
+//____________________________________________________________
+//  
+//		Get rid of an erroroneously allocated request block.
+//  
+
+void MSC_free_request( REQ request)
+{
+
+	requests = request->req_next;
+	cur_routine->act_object = (REF) request->req_routine;
+	MSC_free((UCHAR *) request);
+}
+
+
+//____________________________________________________________
+//  
+//		Initialize (or more properly, re-initialize) the memory
+//		allocator.
+//  
+
+void MSC_init(void)
+{
+	SPC stuff;
+
+	free_lls = NULL;
+
+	while (stuff = space) {
+		space = space->spc_next;
+		gds__free(stuff);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Match the current token against a keyword.  If successful,
+//		advance the token stream and return true.  Otherwise return
+//		false.
+//  
+
+BOOLEAN MSC_match(KWWORDS keyword)
+{
+
+	if (token.tok_keyword == KW_none && token.tok_symbol) {
+		SYM sym;
+		for (sym = token.tok_symbol->sym_collision; sym;
+			 sym =
+			 sym->
+			 sym_collision) if ((strcmp(sym->sym_string, token.tok_string) ==
+								 0) && sym->sym_keyword != KW_none) {
+				token.tok_symbol = sym;
+				token.tok_keyword =
+					static_cast < kwwords > (sym->sym_keyword);
+			}
+	}
+
+	if ((int) token.tok_keyword != (int) keyword)
+		return FALSE;
+
+	CPR_token();
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Determinate where a specific object is
+//		represented on a linked list stack.
+//  
+
+BOOLEAN MSC_member(NOD object, LLS stack)
+{
+
+	for (; stack; stack = stack->lls_next)
+		if (stack->lls_object == object)
+			return TRUE;
+
+	return FALSE;
+}
+
+
+//____________________________________________________________
+//  
+//		Allocate an initialize a syntax node.
+//  
+
+NOD MSC_node(enum nod_t type, SSHORT count)
+{
+	NOD node;
+
+	node = (NOD) ALLOC(NOD_LEN(count));
+	node->nod_count = count;
+	node->nod_type = type;
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Pop an item off a linked list stack.  Free the stack node.
+//  
+
+NOD MSC_pop(LLS * pointer)
+{
+	LLS stack;
+	NOD node;
+
+	stack = *pointer;
+	node = stack->lls_object;
+	*pointer = stack->lls_next;
+
+	stack->lls_next = free_lls;
+	free_lls = stack;
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//       Allocate a new privilege (grant/revoke) block.
+//  
+
+PRV MSC_privilege_block(void)
+{
+	PRV privilege_block;
+
+	privilege_block = (PRV) ALLOC(PRV_LEN);
+	privilege_block->prv_privileges = PRV_no_privs;
+	privilege_block->prv_username = 0;
+	privilege_block->prv_relation = 0;
+	privilege_block->prv_fields = 0;
+	privilege_block->prv_next = 0;
+
+	return privilege_block;
+}
+
+
+//____________________________________________________________
+//  
+//		Push an arbitrary object onto a linked list stack.
+//  
+
+void MSC_push( NOD object, LLS * pointer)
+{
+	LLS stack;
+
+	if (stack = free_lls)
+		free_lls = stack->lls_next;
+	else
+		stack = (LLS) ALLOC(LLS_LEN);
+
+	stack->lls_object = object;
+	stack->lls_next = *pointer;
+	*pointer = stack;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a reference and possibly link the reference into
+//		a linked list.
+//  
+
+REF MSC_reference(REF * link)
+{
+	REF reference;
+
+	reference = (REF) ALLOC(REF_LEN);
+
+	if (link) {
+		reference->ref_next = *link;
+		*link = reference;
+	}
+
+	return reference;
+}
+
+
+//____________________________________________________________
+//  
+//		Set up for a new request.  Make request and action
+//		blocks, all linked up and ready to go.
+//  
+
+REQ MSC_request(enum req_t type)
+{
+	REQ request;
+
+	request = (REQ) ALLOC(REQ_LEN);
+	request->req_type = type;
+	request->req_next = requests;
+	requests = request;
+
+	request->req_routine = (REQ) cur_routine->act_object;
+	cur_routine->act_object = (REF) request;
+
+	if (!(cur_routine->act_flags & ACT_main))
+		request->req_flags |= REQ_local;
+	if (sw_sql_dialect <= SQL_DIALECT_V5)
+		request->req_flags |= REQ_blr_version4;
+
+	return request;
+}
+
+
+//____________________________________________________________
+//  
+//		Copy a string into a permanent block.
+//  
+
+SCHAR *MSC_string(TEXT * input)
+{
+	TEXT *string;
+
+	string = (TEXT *) ALLOC(strlen(input) + 1);
+	strcpy(string, input);
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Allocate and initialize a symbol block.
+//  
+
+SYM MSC_symbol(enum sym_t type, TEXT * string, USHORT length, CTX object)
+{
+	SYM symbol;
+	TEXT *p;
+
+	symbol = (SYM) ALLOC(SYM_LEN + length);
+	symbol->sym_type = type;
+	symbol->sym_object = object;
+	p = symbol->sym_string = symbol->sym_name;
+
+	if (length)
+		do
+			*p++ = *string++;
+		while (--length);
+
+	return symbol;
+}
+
+
+//____________________________________________________________
+//  
+//		Make a unary node.
+//  
+
+NOD MSC_unary(NOD_T type, NOD arg)
+{
+	NOD node;
+
+	node = MSC_node(type, 1);
+	node->nod_arg[0] = arg;
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Set up for a new username.
+//  
+
+USN MSC_username(SCHAR * name, USHORT name_dyn)
+{
+	USN username;
+
+	username = (USN) MSC_alloc(USN_LEN);
+	username->usn_name = (SCHAR *) MSC_alloc(strlen(name) + 1);
+	strcpy(username->usn_name, name);
+	username->usn_dyn = name_dyn;
+
+	username->usn_next = 0;
+
+	return username;
+}
+
+
+} // extern "C"
diff --git a/src/gpre/msc_proto.h b/src/gpre/msc_proto.h
new file mode 100644
index 0000000000..fb4d0e7ed0
--- /dev/null
+++ b/src/gpre/msc_proto.h
@@ -0,0 +1,60 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		msc_proto.h
+ *	DESCRIPTION:	Prototype header file for msc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_MSC_PROTO_H_
+#define _GPRE_MSC_PROTO_H_
+
+#include "../gpre/parse.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern ACT MSC_action(REQ, enum act_t);
+extern UCHAR *MSC_alloc(int);
+extern UCHAR *MSC_alloc_permanent(int);
+extern NOD MSC_binary(NOD_T, NOD, NOD);
+extern CTX MSC_context(REQ);
+extern void MSC_copy(char *, int, char *);
+extern SYM MSC_find_symbol(SYM, enum sym_t);
+extern void MSC_free(UCHAR *);
+extern void MSC_free_request(REQ);
+extern void MSC_init(void);
+extern BOOLEAN MSC_match(KWWORDS);
+extern BOOLEAN MSC_member(NOD, LLS);
+extern NOD MSC_node(enum nod_t, SSHORT);
+extern NOD MSC_pop(LLS *);
+extern PRV MSC_privilege_block(void);
+extern void MSC_push(NOD, LLS *);
+extern REF MSC_reference(REF *);
+extern REQ MSC_request(enum req_t);
+extern SCHAR *MSC_string(TEXT *);
+extern SYM MSC_symbol(enum sym_t, TEXT *, USHORT, CTX);
+extern NOD MSC_unary(NOD_T, NOD);
+extern USN MSC_username(SCHAR *, USHORT);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _GPRE_MSC_PROTO_H_ */
diff --git a/src/gpre/noform.cpp b/src/gpre/noform.cpp
new file mode 100644
index 0000000000..e78d600a5b
--- /dev/null
+++ b/src/gpre/noform.cpp
@@ -0,0 +1,71 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	Language Preprocessor
+//		MODULE:		noform.cpp
+//		DESCRIPTION:	Porting module for no forms support
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  
+//
+//____________________________________________________________
+//
+//	$Id: noform.cpp,v 1.1.1.1 2001-05-23 13:25:32 tamlin Exp $
+//
+
+#include "../gpre/gpre.h"
+#include "../gpre/form.h"
+#include "../gpre/form_proto.h"
+
+typedef int *HANDLE;
+
+
+//____________________________________________________________
+//  
+//		Lookup field in form.
+//  
+
+FLD FORM_lookup_field( FORM form, HANDLE object, char *string)
+{
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Lookup form.  This may be an instance already in
+//		use.
+//  
+
+FORM FORM_lookup_form(DBB dbb, UCHAR * string)
+{
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Lookup sub-form of a given form.
+//  
+
+FORM FORM_lookup_subform(FORM parent, FLD field)
+{
+
+	return NULL;
+}
diff --git a/src/gpre/par.cpp b/src/gpre/par.cpp
new file mode 100644
index 0000000000..c951823aee
--- /dev/null
+++ b/src/gpre/par.cpp
@@ -0,0 +1,4291 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	C preprocessor
+//		MODULE:		par.cpp
+//		DESCRIPTION:	Parser
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  $Id: par.cpp,v 1.1.1.1 2001-05-23 13:25:29 tamlin Exp $
+//  Revision 1.2  2000/11/27 09:26:13  fsg
+//  Fixed bugs in gpre to handle PYXIS forms
+//  and allow edit.e and fred.e to go through
+//  gpre without errors (and correct result).
+//  
+//  This is a partial fix until all
+//  PYXIS datatypes are adjusted in frm_trn.c
+//  
+//  removed some compiler warnings too
+//  
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  TMN (Mike Nordell) APR-MAY.2001 - Conversion to C++
+//  
+//
+//____________________________________________________________
+//
+//	$Id: par.cpp,v 1.1.1.1 2001-05-23 13:25:29 tamlin Exp $
+//
+
+#include <setjmp.h>
+#include <stdlib.h>
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../gpre/gpre.h"
+#include "../gpre/parse.h"
+#include "../gpre/form.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/exp_proto.h"
+#include "../gpre/form_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/hsh_proto.h"
+#include "../gpre/gpre_meta.h"
+#include "../gpre/msc_proto.h"
+#include "../gpre/par_proto.h"
+#include "../gpre/sql_proto.h"
+
+
+extern "C" {
+
+
+ACT			cur_routine;
+
+extern TEXT*	module_lc_ctype;
+
+static jmp_buf*	PAR_jmp_buf;
+
+static void		block_data_list(DBB);
+static BOOLEAN	match_parentheses();
+static ACT		par_any();
+static ACT		par_array_element();
+static ACT		par_at();
+static ACT		par_based();
+static ACT		par_begin();
+static BLB		par_blob();
+static ACT		par_blob_action(ACT_T);
+static ACT		par_blob_field();
+static ACT		par_case();
+static ACT		par_clear_handles();
+static ACT		par_derived_from();
+static ACT		par_end_block();
+static ACT		par_end_error();
+static ACT		par_end_fetch();
+static ACT		par_end_for();
+static ACT		par_end_form();
+static ACT		par_end_menu();
+static ACT		par_end_modify();
+static ACT		par_end_stream();
+static ACT		par_end_store();
+static ACT		par_entree();
+static ACT		par_erase();
+static ACT		par_fetch();
+static ACT		par_finish();
+static ACT		par_for();
+static CTX		par_form_menu(enum sym_t);
+static ACT		par_form_display();
+static ACT		par_form_field();
+static void		par_form_fields(REQ, LLS *);
+static ACT		par_form_for();
+static ACT		par_function();
+static ACT		par_item_end();
+static ACT		par_item_for(ACT_T);
+static ACT		par_left_brace();
+static ACT		par_menu_att();
+static ACT		par_menu_case();
+static ACT		par_menu_display(CTX);
+static ACT		par_menu_entree_att();
+static ACT		par_menu_for();
+static ACT		par_menu_item_for(SYM, CTX, ACT_T);
+static ACT		par_modify();
+static ACT		par_on();
+static ACT		par_on_error();
+static ACT		par_open_blob(ACT_T, SYM);
+static BOOLEAN	par_options(REQ, BOOLEAN);
+static ACT		par_procedure();
+static TEXT*	par_quoted_string();
+static ACT		par_ready();
+static ACT		par_returning_values();
+static ACT		par_right_brace();
+static ACT		par_release();
+static ACT		par_slice(ACT_T);
+static ACT		par_store();
+static ACT		par_start_stream();
+static ACT		par_start_transaction();
+static ACT		par_subroutine();
+static ACT		par_trans(ACT_T);
+static ACT		par_type();
+static ACT		par_var_c(enum kwwords);
+static ACT		par_variable();
+static ACT		par_window_create();
+static ACT		par_window_delete();
+static ACT		par_window_scope();
+static ACT		par_window_suspend();
+static ACT		scan_routine_header();
+static void		set_external_flag();
+static BOOLEAN	terminator();
+
+static int		brace_count;
+static int		routine_decl;
+static BOOLEAN	bas_extern_flag;
+static ACT		cur_statement;
+static ACT		cur_item;
+static LLS		cur_for;
+static LLS		cur_store;
+static LLS		cur_fetch;
+static LLS		cur_modify;
+static LLS		cur_form;
+static LLS		cur_error;
+static LLS		cur_menu;
+static LLS		routine_stack;
+static FLD		flag_field;
+
+
+//____________________________________________________________
+//  
+//		We have a token with a symbolic meaning.  If appropriate,
+//		parse an action segment.  If not, return NULL.
+//  
+
+ACT PAR_action()
+{
+	ACT action;
+	register SYM symbol;
+	enum kwwords keyword;
+	jmp_buf env;
+
+	symbol = token.tok_symbol;
+
+	if (!symbol) {
+		cur_statement = NULL;
+		return NULL;
+	}
+
+	if ((USHORT) token.tok_keyword >= (USHORT) KW_start_actions &&
+		(USHORT) token.tok_keyword <= (USHORT) KW_end_actions)
+	{
+		keyword = token.tok_keyword;
+		switch (keyword)
+		{
+		case KW_READY:
+		case KW_START_TRANSACTION:
+		case KW_FINISH:
+		case KW_COMMIT:
+		case KW_PREPARE:
+		case KW_RELEASE_REQUESTS:
+		case KW_ROLLBACK:
+		case KW_FUNCTION:
+		case KW_SAVE:
+		case KW_SUB:
+		case KW_SUBROUTINE:
+			CPR_eol_token();
+			break;
+
+		case KW_EXTERNAL:
+			set_external_flag();
+			return NULL;
+
+		case KW_FOR:
+		/** Get the next token as it is without upcasing **/
+			override_case = 1;
+			CPR_token();
+			break;
+
+		default:
+			CPR_token();
+		}
+
+		if (setjmp(env)) {
+			sw_sql = FALSE;
+			/* This is to force GPRE to get the next symbol. Fix for bug #274. DROOT */
+			token.tok_symbol = NULL;
+			return NULL;
+		}
+
+		PAR_jmp_buf = &env;
+
+		switch (keyword)
+		{
+		case KW_INT:
+		case KW_LONG:
+		case KW_SHORT:
+		case KW_CHAR:
+		case KW_FLOAT:
+		case KW_DOUBLE:
+// ***
+//    par_var_c (keyword);
+//** 
+			return NULL;
+
+		case KW_ANY:
+			return par_any();
+		case KW_AT:
+			return par_at();
+		case KW_BASED:
+			return par_based();
+		case KW_CLEAR_HANDLES:
+			return par_clear_handles();
+		case KW_CREATE_WINDOW:
+			return par_window_create();
+		case KW_DATABASE:
+			return PAR_database(FALSE);
+		case KW_DELETE_WINDOW:
+			return par_window_delete();
+		case KW_DERIVED_FROM:
+			return par_derived_from();
+		case KW_DISPLAY:
+			return par_form_display();
+		case KW_END_ERROR:
+			return par_end_error();
+		case KW_END_FOR:
+			return cur_statement = par_end_for();
+		case KW_END_FORM:
+			return par_end_form();
+		case KW_END_ITEM:
+			return par_item_end();
+		case KW_END_MENU:
+			return par_end_menu();
+		case KW_END_MODIFY:
+			return cur_statement = par_end_modify();
+		case KW_END_STREAM:
+			return cur_statement = par_end_stream();
+		case KW_END_STORE:
+			return cur_statement = par_end_store();
+		case KW_MENU_ENTREE:
+			return par_entree();
+		case KW_ELEMENT:
+			return par_array_element();
+		case KW_ERASE:
+			return cur_statement = par_erase();
+		case KW_EVENT_INIT:
+			return cur_statement = PAR_event_init(FALSE);
+		case KW_EVENT_WAIT:
+			return cur_statement = PAR_event_wait(FALSE);
+		case KW_FETCH:
+			return cur_statement = par_fetch();
+		case KW_FINISH:
+			return cur_statement = par_finish();
+		case KW_FOR:
+			return par_for();
+		case KW_FOR_FORM:
+			return par_form_for();
+		case KW_FOR_ITEM:
+			return par_item_for(ACT_item_for);
+		case KW_FOR_MENU:
+			return par_menu_for();
+		case KW_END_FETCH:
+			return cur_statement = par_end_fetch();
+		case KW_CASE_MENU:
+			return par_menu_case();
+		case KW_MODIFY:
+			return par_modify();
+		case KW_ON:
+			return par_on();
+		case KW_ON_ERROR:
+			return par_on_error();
+		case KW_PUT_ITEM:
+			return par_item_for(ACT_item_put);
+		case KW_READY:
+			return cur_statement = par_ready();
+		case KW_RELEASE_REQUESTS:
+			return cur_statement = par_release();
+		case KW_RETURNING:
+			return par_returning_values();
+		case KW_START_STREAM:
+			return cur_statement = par_start_stream();
+		case KW_STORE:
+			return par_store();
+		case KW_START_TRANSACTION:
+			return cur_statement = par_start_transaction();
+		case KW_SUSPEND_WINDOW:
+			return par_window_suspend();
+		case KW_FUNCTION:
+			return par_function();
+		case KW_GDS_WINDOWS:
+			return par_window_scope();
+		case KW_PROCEDURE:
+			return par_procedure();
+
+		case KW_PROC:
+			if (sw_language == lang_pli)
+				return par_procedure();
+			break;
+
+		case KW_SUBROUTINE:
+			return par_subroutine();
+		case KW_SUB:
+			if (sw_language == lang_basic)
+				return par_subroutine();
+			break;
+
+		case KW_OPEN_BLOB:
+			return cur_statement = par_open_blob(ACT_blob_open, 0);
+		case KW_CREATE_BLOB:
+			return cur_statement = par_open_blob(ACT_blob_create, 0);
+		case KW_GET_SLICE:
+			return cur_statement = par_slice(ACT_get_slice);
+		case KW_PUT_SLICE:
+			return cur_statement = par_slice(ACT_put_slice);
+		case KW_GET_SEGMENT:
+			return cur_statement = par_blob_action(ACT_get_segment);
+		case KW_PUT_SEGMENT:
+			return cur_statement = par_blob_action(ACT_put_segment);
+		case KW_CLOSE_BLOB:
+			return cur_statement = par_blob_action(ACT_blob_close);
+		case KW_CANCEL_BLOB:
+			return cur_statement = par_blob_action(ACT_blob_cancel);
+
+		case KW_COMMIT:
+			return cur_statement = par_trans(ACT_commit);
+		case KW_SAVE:
+			return cur_statement = par_trans(ACT_commit_retain_context);
+		case KW_ROLLBACK:
+			return cur_statement = par_trans(ACT_rollback);
+		case KW_PREPARE:
+			return cur_statement = par_trans(ACT_prepare);
+
+		case KW_L_BRACE:
+			return par_left_brace();
+		case KW_R_BRACE:
+			return par_right_brace();
+		case KW_END:
+			return par_end_block();
+		case KW_BEGIN:
+			return par_begin();
+		case KW_CASE:
+			return par_case();
+
+		case KW_EXEC:
+			if (!MATCH(KW_SQL))
+				break;
+			sw_sql = TRUE;
+			action = SQL_action();
+			sw_sql = FALSE;
+			return action;
+		default:
+			break;
+		}
+
+		cur_statement = NULL;
+		return NULL;
+	}
+
+	for (; symbol; symbol = symbol->sym_homonym)
+	{
+		switch (symbol->sym_type)
+		{
+		case SYM_context:
+			if (setjmp(env))
+				return NULL;
+			PAR_jmp_buf = &env;
+			cur_statement = NULL;
+			return par_variable();
+
+		case SYM_form_map:
+			if (setjmp(env))
+				return NULL;
+			PAR_jmp_buf = &env;
+			cur_statement = NULL;
+			return par_form_field();
+
+		case SYM_blob:
+			if (setjmp(env))
+				return NULL;
+			PAR_jmp_buf = &env;
+			cur_statement = NULL;
+			return par_blob_field();
+
+		case SYM_relation:
+			if (setjmp(env))
+				return NULL;
+			PAR_jmp_buf = &env;
+			cur_statement = NULL;
+			return par_type();
+
+		case SYM_menu:
+			if (setjmp(env))
+				return NULL;
+			PAR_jmp_buf = &env;
+			cur_statement = NULL;
+			return par_menu_att();
+
+		case SYM_menu_map:
+			if (setjmp(env))
+				return NULL;
+			PAR_jmp_buf = &env;
+			cur_statement = NULL;
+			return par_menu_entree_att();
+		default:
+			break;
+		}
+	}
+
+	cur_statement = NULL;
+	CPR_token();
+
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a blob subtype -- either a signed number or a symbolic name.
+//  
+
+SSHORT PAR_blob_subtype(DBB dbb)
+{
+	REL relation;
+	FLD field;
+	SSHORT const_subtype;
+
+//  Check for symbol type name 
+
+	if (token.tok_type == tok_ident) {
+		if (!(relation = MET_get_relation(dbb, "RDB$FIELDS", "")) ||
+			!(field = MET_field(relation, "RDB$FIELD_SUB_TYPE")))
+			PAR_error("error during BLOB SUB_TYPE lookup");
+		if (!MET_type(field, token.tok_string, &const_subtype))
+			SYNTAX_ERROR("blob sub_type");
+		ADVANCE_TOKEN;
+		return const_subtype;
+	}
+
+	return EXP_SSHORT_ordinal(TRUE);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a DATABASE declaration.  If successful, return
+//		an action block.
+//  
+
+ACT PAR_database(USHORT sql)
+{
+	register ACT action;
+	register SYM symbol;
+	register DBB db, *db_ptr;
+	TEXT s[256], *string;
+
+	action = MAKE_ACTION(0, ACT_database);
+	db = (DBB) ALLOC(DBB_LEN);
+
+//  Get handle name token, make symbol for handle, and
+//  insert symbol into hash table 
+
+	symbol = PAR_symbol(SYM_dummy);
+	db->dbb_name = symbol;
+	symbol->sym_type = SYM_database;
+	symbol->sym_object = (CTX) db;
+
+	if (!MATCH(KW_EQUALS))
+		SYNTAX_ERROR("\"=\" in database declaration");
+
+	if (MATCH(KW_STATIC))
+		db->dbb_scope = DBB_STATIC;
+	else if (MATCH(KW_EXTERN))
+		db->dbb_scope = DBB_EXTERN;
+
+	MATCH(KW_COMPILETIME);
+
+//  parse the compiletime options 
+
+	for (;;) {
+		if (MATCH(KW_FILENAME) && (!QUOTED(token.tok_type)))
+			SYNTAX_ERROR("quoted file name");
+
+		if (QUOTED(token.tok_type)) {
+			db->dbb_filename = string = (TEXT *) ALLOC(token.tok_length + 1);
+			COPY(token.tok_string, token.tok_length, string);
+			token.tok_length += 2;
+		}
+		else if (MATCH(KW_PASSWORD)) {
+			if (!QUOTED(token.tok_type))
+				SYNTAX_ERROR("quoted password");
+			db->dbb_c_password = string =
+				(TEXT *) ALLOC(token.tok_length + 1);
+			COPY(token.tok_string, token.tok_length, string);
+		}
+		else if (MATCH(KW_USER)) {
+			if (!QUOTED(token.tok_type))
+				SYNTAX_ERROR("quoted user name");
+			db->dbb_c_user = string = (TEXT *) ALLOC(token.tok_length + 1);
+			COPY(token.tok_string, token.tok_length, string);
+		}
+		else if (MATCH(KW_LC_MESSAGES)) {
+			if (!QUOTED(token.tok_type))
+				SYNTAX_ERROR("quoted language name");
+			db->dbb_c_lc_messages = string =
+				(TEXT *) ALLOC(token.tok_length + 1);
+			COPY(token.tok_string, token.tok_length, string);
+		}
+		else if (!sql && MATCH(KW_LC_CTYPE)) {
+			if (!QUOTED(token.tok_type))
+				SYNTAX_ERROR("quoted character set name");
+			db->dbb_c_lc_ctype = string =
+				(TEXT *) ALLOC(token.tok_length + 1);
+			COPY(token.tok_string, token.tok_length, string);
+		}
+		else
+			break;
+
+		ADVANCE_TOKEN;
+	}
+
+	if ((sw_auto)
+		&& (db->dbb_c_password || db->dbb_c_user || db->dbb_c_lc_ctype
+			|| db->
+			dbb_c_lc_messages))
+			CPR_warn
+			("PASSWORD, USER and NAMES options require -manual switch to gpre.");
+
+	if (!db->dbb_filename)
+		SYNTAX_ERROR("quoted file name");
+
+	if (default_user && !db->dbb_c_user)
+		db->dbb_c_user = default_user;
+
+	if (default_password && !db->dbb_c_password)
+		db->dbb_c_password = default_password;
+
+	if (module_lc_ctype && !db->dbb_c_lc_ctype)
+		db->dbb_c_lc_ctype = module_lc_ctype;
+
+	if (default_lc_ctype && !db->dbb_c_lc_ctype)
+		db->dbb_c_lc_ctype = default_lc_ctype;
+
+//  parse the runtime options 
+
+	if (MATCH(KW_RUNTIME)) {
+		if (MATCH(KW_FILENAME))
+			db->dbb_runtime = sql ? SQL_var_or_string((USHORT) FALSE)
+				: PAR_native_value(FALSE, FALSE);
+		else if (MATCH(KW_PASSWORD))
+			db->dbb_r_password = sql ? SQL_var_or_string((USHORT) FALSE)
+				: PAR_native_value(FALSE, FALSE);
+		else if (MATCH(KW_USER))
+			db->dbb_r_user = sql ? SQL_var_or_string((USHORT) FALSE)
+				: PAR_native_value(FALSE, FALSE);
+		else if (MATCH(KW_LC_MESSAGES))
+			db->dbb_r_lc_messages = sql ? SQL_var_or_string((USHORT) FALSE)
+				: PAR_native_value(FALSE, FALSE);
+		else if (!sql && MATCH(KW_LC_CTYPE))
+			db->dbb_r_lc_ctype = sql ? SQL_var_or_string((USHORT) FALSE)
+				: PAR_native_value(FALSE, FALSE);
+		else
+			db->dbb_runtime = sql ? SQL_var_or_string((USHORT) FALSE)
+				: PAR_native_value(FALSE, FALSE);
+	}
+
+	if ((sw_language == lang_ada) && (KEYWORD(KW_HANDLES))) {
+		ADVANCE_TOKEN;
+		if (QUOTED(token.tok_type))
+			SYNTAX_ERROR("quoted file name");
+		COPY(token.tok_string, token.tok_length, s);
+		strcat(s, ".");
+		if (!ada_package[0] || !strcmp(ada_package, s))
+			strcpy(ada_package, s);
+		else {
+			sprintf(s,
+					"Ada handle package \"%s\" already in use, ignoring package %s",
+					ada_package, token.tok_string);
+			CPR_warn(s);
+		}
+		ADVANCE_TOKEN;
+	}
+
+	if (sw_language != lang_fortran)
+		MATCH(KW_SEMI_COLON);
+
+	if (!MET_database(db, TRUE)) {
+		sprintf(s, "Couldn't access database %s = '%s'",
+				db->dbb_name->sym_string, db->dbb_filename);
+		CPR_error(s);
+		CPR_abort();
+	}
+
+	db->dbb_next = isc_databases;
+	isc_databases = db;
+	HSH_insert(symbol);
+
+//   Load up the symbol (hash) table with relation names from this databases.  
+	MET_load_hash_table(db);
+
+#ifdef FTN_BLK_DATA
+	if ((sw_language == lang_fortran) && (db->dbb_scope != DBB_EXTERN))
+		block_data_list(db);
+#endif
+
+//  Since we have a real DATABASE statement, get rid of any artificial
+//  databases that were created because of an INCLUDE SQLCA statement. 
+
+	for (db_ptr = &isc_databases; *db_ptr;)
+		if ((*db_ptr)->dbb_flags & DBB_sqlca)
+			*db_ptr = (*db_ptr)->dbb_next;
+		else
+			db_ptr = &(*db_ptr)->dbb_next;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse end of statement.  All languages except ADA leave
+//		the trailing semi-colon dangling.   ADA, however, must
+//		eat the semi-colon as part of the statement.  In any case,
+//		return TRUE is a semi-colon is/was there, otherwise return
+//		FALSE.
+//  
+
+BOOLEAN PAR_end()
+{
+
+	if ((sw_language == lang_ada) ||
+		(sw_language == lang_c) ||
+		(sw_language == lang_cxx)) return MATCH(KW_SEMI_COLON);
+
+	return KEYWORD(KW_SEMI_COLON);
+}
+
+
+//____________________________________________________________
+//  
+//		Report an error during parse and unwind.
+//  
+
+void PAR_error( TEXT * string)
+{
+
+	IBERROR(string);
+	PAR_unwind();
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an event init statement, preparing
+//		to wait on a number of named events.
+//  
+
+ACT PAR_event_init( USHORT sql)
+{
+	NOD init, event_list, node, *ptr;
+	ACT action;
+	LLS stack = NULL;
+	SYM symbol;
+	FLD field;
+	CTX context;
+	REF reference;
+	int count = 0;
+	char req_name[128];
+
+//  make up statement node 
+
+	SQL_resolve_identifier("<identifier>", req_name);
+	strcpy(token.tok_string, req_name);
+	init = MAKE_NODE(nod_event_init, 4);
+	init->nod_arg[0] = (NOD) PAR_symbol(SYM_dummy);
+	init->nod_arg[3] = (NOD) isc_databases;
+
+	action = MAKE_ACTION(0, ACT_event_init);
+	action->act_object = (REF) init;
+
+//  parse optional database handle 
+
+	if (!MATCH(KW_LEFT_PAREN)) {
+		if ((symbol = token.tok_symbol) && (symbol->sym_type == SYM_database))
+			init->nod_arg[3] = (NOD) symbol->sym_object;
+		else
+			SYNTAX_ERROR("left parenthesis or database handle");
+
+		ADVANCE_TOKEN;
+		if (!MATCH(KW_LEFT_PAREN))
+			SYNTAX_ERROR("left parenthesis");
+	}
+
+//  eat any number of event strings until a right paren is found,
+//  pushing the events onto a stack 
+
+	while (TRUE) {
+		if (MATCH(KW_RIGHT_PAREN))
+			break;
+
+		if (!sql && (symbol = token.tok_symbol)
+			&& symbol->sym_type == SYM_context) {
+			field = EXP_field(&context);
+			reference = EXP_post_field(field, context, FALSE);
+			node = MAKE_NODE(nod_field, 1);
+			node->nod_arg[0] = (NOD) reference;
+		}
+		else {
+			node = MAKE_NODE(nod_null, 1);
+			if (sql)
+				node->nod_arg[0] = (NOD) SQL_var_or_string((USHORT) FALSE);
+			else
+				node->nod_arg[0] = (NOD) PAR_native_value(FALSE, FALSE);
+		}
+		PUSH(node, &stack);
+		count++;
+
+		MATCH(KW_COMMA);
+	}
+
+//  pop the event strings off the stack 
+
+	event_list = init->nod_arg[1] = MAKE_NODE(nod_list, (SSHORT) count);
+	ptr = event_list->nod_arg + count;
+	while (stack)
+		*--ptr = (NOD) POP(&stack);
+
+	PUSH((NOD) action, &events);
+
+	if (!sql)
+		PAR_end();
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an event wait statement, preparing
+//		to wait on a number of named events.
+//  
+
+ACT PAR_event_wait(USHORT sql)
+{
+	ACT action;
+	char req_name[132];
+
+//  this is a simple statement, just add a handle 
+
+	action = MAKE_ACTION(0, ACT_event_wait);
+	SQL_resolve_identifier("<identifier>", req_name);
+	strcpy(token.tok_string, req_name);
+	action->act_object = (REF) PAR_symbol(SYM_dummy);
+	if (!sql)
+		PAR_end();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Perform any last minute stuff necessary at the end of pass1.
+//  
+
+void PAR_fini()
+{
+
+	if (cur_for)
+		IBERROR("unterminated FOR statement");
+
+	if (cur_modify)
+		IBERROR("unterminated MODIFY statement");
+
+	if (cur_store)
+		IBERROR("unterminated STORE statement");
+
+	if (cur_error)
+		IBERROR("unterminated ON_ERROR clause");
+
+	if (cur_menu)
+		IBERROR("unterminated MENU statement");
+
+	if (cur_form)
+		IBERROR("unterminated FOR_FORM statement");
+
+	if (cur_item)
+		IBERROR("unterminated ITEM statement");
+}
+
+
+//____________________________________________________________
+//  
+//		Get a token or unwind the parse
+//		if we hit end of file
+//  
+
+TOK PAR_get_token()
+{
+
+	if (CPR_token() == NULL) {
+		CPR_error("unexpected EOF");
+		PAR_unwind();
+	}
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Do any initialization necessary.
+//		For one thing, set all current indicators
+//		to null, since nothing is current.  Also,
+//		set up a block to hold the current routine,
+//  
+//		(The 'routine' indicator tells the code
+//		generator where to put ports to support
+//		recursive routines and Fortran's strange idea
+//		of separate sub-modules.  For PASCAL only, we
+//		keep a stack of routines, and pay special attention
+//		to the main routine.)
+//  
+
+void PAR_init()
+{
+
+	SQL_init();
+
+	cur_error = cur_fetch = cur_for = cur_modify = cur_store = cur_form =
+		cur_menu = (LLS) 0;
+	cur_statement = cur_item = (ACT) 0;
+	bas_extern_flag = FALSE;
+
+	cur_routine = MAKE_ACTION(0, ACT_routine);
+	cur_routine->act_flags |= ACT_main;
+	PUSH((NOD) cur_routine, &routine_stack);
+	routine_decl = TRUE;
+
+	flag_field = NULL;
+	brace_count = 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a native expression as a string.
+//  
+
+TEXT *PAR_native_value(USHORT array_ref, USHORT handle_ref)
+{
+	SCHAR *s2, buffer[512];
+	register SCHAR *string, *s1;
+	enum kwwords keyword;
+	int length;
+	USHORT parens, brackets;
+
+#define GOBBLE {for (s1= token.tok_string; *s1;) *string++ = *s1++; ADVANCE_TOKEN;}
+
+	string = buffer;
+
+	while (TRUE) {
+	/** PAR_native_values copies the string constants. These are 
+	passed to api calls. Make sure to enclose these with
+	double quotes.
+    **/
+		if (sw_sql_dialect == 1) {
+			if (QUOTED(token.tok_type)) {
+				enum tok_t typ;
+				typ = token.tok_type;
+				token.tok_length += 2;
+				*string++ = '\"';
+				GOBBLE;
+				*string++ = '\"';
+				break;
+			}
+		}
+		else if (sw_sql_dialect == 2) {
+			if (DOUBLE_QUOTED(token.tok_type))
+				PAR_error("Ambiguous use of double quotes in dialect 2");
+			else if (SINGLE_QUOTED(token.tok_type)) {
+				token.tok_length += 2;
+				*string++ = '\"';
+				GOBBLE;
+				*string++ = '\"';
+				break;
+			}
+		}
+		else if (sw_sql_dialect == 3) {
+			if (SINGLE_QUOTED(token.tok_type)) {
+				token.tok_length += 2;
+				*string++ = '\"';
+				GOBBLE;
+				*string++ = '\"';
+				break;
+			}
+		}
+
+		if (KEYWORD(KW_AMPERSAND) || KEYWORD(KW_ASTERISK))
+			GOBBLE;
+		if (token.tok_type != tok_ident)
+			SYNTAX_ERROR("identifier");
+		GOBBLE;
+
+		/* For ADA, gobble '<attribute> */
+
+		if ((sw_language == lang_ada) && (token.tok_string[0] == '\'')) {
+			GOBBLE;
+		}
+		keyword = token.tok_keyword;
+		if (keyword == KW_LEFT_PAREN) {
+			parens = 1;
+			while (parens) {
+				enum tok_t typ;
+				typ = token.tok_type;
+				if (QUOTED(typ))
+					*string++ = (SINGLE_QUOTED(typ)) ? '\'' : '\"';
+				GOBBLE;
+				if (QUOTED(typ))
+					*string++ = (SINGLE_QUOTED(typ)) ? '\'' : '\"';
+				keyword = token.tok_keyword;
+				if (keyword == KW_RIGHT_PAREN)
+					parens--;
+				else if (keyword == KW_LEFT_PAREN)
+					parens++;
+			}
+			GOBBLE;
+			keyword = token.tok_keyword;
+		}
+		while (keyword == KW_L_BRCKET) {
+			brackets = 1;
+			while (brackets) {
+				GOBBLE;
+				keyword = token.tok_keyword;
+				if (keyword == KW_R_BRCKET)
+					brackets--;
+				else if (keyword == KW_L_BRCKET)
+					brackets++;
+			}
+			GOBBLE;
+			keyword = token.tok_keyword;
+		}
+
+		while ((keyword == KW_CARAT) && (sw_language == lang_pascal)) {
+			GOBBLE;
+			keyword = token.tok_keyword;
+		}
+
+		if (
+			(keyword == KW_DOT
+			 && (!handle_ref || sw_language == lang_c
+				 || sw_language == lang_ada)) || keyword == KW_POINTS
+			|| (keyword == KW_COLON && !sw_sql && !array_ref)) {
+			GOBBLE;
+		}
+		else
+			break;
+	}
+
+	length = string - buffer;
+	s2 = string = (SCHAR *) ALLOC(length + 1);
+	s1 = buffer;
+
+	if (length)
+		do
+			*string++ = *s1++;
+		while (--length);
+
+	return s2;
+}
+
+
+//____________________________________________________________
+//  
+//		Find a pseudo-field for null.  If there isn't one,
+//		make one.
+//  
+
+FLD PAR_null_field()
+{
+
+	if (flag_field)
+		return flag_field;
+
+	flag_field =
+		MET_make_field("gds__null_flag", dtype_short, sizeof(SSHORT), FALSE);
+
+	return flag_field;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse the RESERVING clause of the start_transaction & set transaction
+//  	statements, creating a partial TPB in the process.  The
+//  	TPB just hangs off the end of the transaction block.
+//  
+
+void PAR_reserving( USHORT flags, SSHORT parse_sql)
+{
+	RRL lock_block;
+	REL relation;
+	DBB database;
+	USHORT lock_level, lock_mode;
+
+	while (TRUE) {
+		/* find a relation name, or maybe a list of them */
+
+		if ((!parse_sql) && terminator())
+			break;
+
+		do {
+			if (!(relation = EXP_relation()))
+				SYNTAX_ERROR("relation name");
+			database = relation->rel_database;
+			lock_block = (RRL) ALLOC(RRL_LEN);
+			lock_block->rrl_next = database->dbb_rrls;
+			lock_block->rrl_relation = relation;
+			database->dbb_rrls = lock_block;
+		} while (MATCH(KW_COMMA));
+
+		/*
+		 * get the lock level and mode and apply them to all the
+		 * relations in the list
+		 */
+
+		MATCH(KW_FOR);
+		lock_level = (flags & TRA_con) ? gds_tpb_protected : gds_tpb_shared;
+		lock_mode = gds_tpb_lock_read;
+
+		if (MATCH(KW_PROTECTED))
+			lock_level = gds_tpb_protected;
+		else if (MATCH(KW_EXCLUSIVE))
+			lock_level = gds_tpb_exclusive;
+		else if (MATCH(KW_SHARED))
+			lock_level = gds_tpb_shared;
+
+		if (MATCH(KW_WRITE)) {
+			if (flags & TRA_ro)
+				IBERROR("write lock requested for a read_only transaction");
+			lock_mode = gds_tpb_lock_write;
+		}
+		else
+			MATCH(KW_READ);
+
+		for (database = isc_databases; database;
+			 database = database->dbb_next) for (lock_block =
+												 database->dbb_rrls;
+												 lock_block;
+												 lock_block =
+												 lock_block->
+												 rrl_next) if (!lock_block->
+															   rrl_lock_level)
+				{
+					assert(lock_level <= MAX_UCHAR);
+					assert(lock_mode <= MAX_UCHAR);
+					lock_block->rrl_lock_level = (UCHAR) lock_level;
+					lock_block->rrl_lock_mode = (UCHAR) lock_mode;
+				}
+		if (!(MATCH(KW_COMMA)))
+			break;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Initialize the request and the ready.
+//  
+
+REQ PAR_set_up_dpb_info(RDY ready, ACT action, USHORT buffercount)
+{
+	REQ request;
+
+	ready->rdy_database->dbb_buffercount = buffercount;
+	request = MAKE_REQUEST(REQ_ready);
+	request->req_database = ready->rdy_database;
+	request->req_actions = action;
+	ready->rdy_request = request;
+
+	return request;
+}
+
+
+//____________________________________________________________
+//  
+//		Make a symbol from the current token, and advance
+//		to the next token.  If a symbol type other than
+//		SYM_dummy, the symbol can be overloaded, but not
+//		redefined.
+//  
+
+SYM PAR_symbol(enum sym_t type)
+{
+	SYM symbol;
+	TEXT s[128];
+
+	for (symbol = token.tok_symbol; symbol; symbol = symbol->sym_homonym)
+		if (type == SYM_dummy || symbol->sym_type == type) {
+			sprintf(s, "symbol %s is already in use", token.tok_string);
+			PAR_error(s);
+		}
+
+	symbol = MSC_symbol(SYM_cursor, token.tok_string, token.tok_length, 0);
+	ADVANCE_TOKEN;
+
+	return symbol;
+}
+
+
+//____________________________________________________________
+//  
+//		There's been a parse error, so unwind out.
+//  
+
+void PAR_unwind()
+{
+
+#pragma FB_COMPILER_MESSAGE("Fix! Wierd jmp_buf use! This might crash!")
+
+	longjmp(*PAR_jmp_buf, (SLONG) 1);
+}
+
+
+//____________________________________________________________
+//  
+//		mark databases specified in start_transaction and set transaction
+//		statements.
+//  
+
+void PAR_using_db()
+{
+	DBB db;
+	SYM symbol;
+
+	while (TRUE) {
+		if ((symbol = MSC_find_symbol(token.tok_symbol, SYM_database))) {
+			db = (DBB) symbol->sym_object;
+			db->dbb_flags |= DBB_in_trans;
+		}
+		else
+			SYNTAX_ERROR("database handle");
+		ADVANCE_TOKEN;
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+}
+
+
+#ifdef FTN_BLK_DATA
+//____________________________________________________________
+//  
+//  
+//		Damn fortran sometimes only allows global
+//		initializations in block data.  This collects
+//		names of dbs to be so handled.  
+//  
+
+static void block_data_list( DBB db)
+{
+	DBD list, end;
+	TEXT *name;
+
+	if (db->dbb_scope == DBB_EXTERN)
+		return;
+	name = db->dbb_name->sym_string;
+	list = global_db_list;
+
+	if (global_db_count)
+		if (global_db_count > 32)
+			PAR_error
+				("Database limit exceeded: 32 databases per source file.");
+		else
+			for (end = global_db_list + global_db_count; list < end; list++)
+				if (!(strcmp(name, list->dbb_name)))
+					return;
+
+	if (global_db_count > 32)
+		return;
+
+	strcpy(list->dbb_name, name);
+	global_db_count++;
+}
+#endif
+
+
+//____________________________________________________________
+//  
+//  
+//		For reasons best left unnamed, we need
+//		to skip the contents of a parenthesized
+//		list	
+//  
+
+static BOOLEAN match_parentheses()
+{
+	USHORT paren_count;
+
+	paren_count = 0;
+
+	if (MATCH(KW_LEFT_PAREN)) {
+		paren_count++;
+		while (paren_count) {
+			if (MATCH(KW_RIGHT_PAREN))
+				paren_count--;
+			else if (MATCH(KW_LEFT_PAREN))
+				paren_count++;
+			else
+				ADVANCE_TOKEN;
+		}
+		return TRUE;
+	}
+	else
+		return FALSE;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a free standing ANY expression.
+//  
+
+static ACT par_any()
+{
+	SYM symbol;
+	ACT action, function;
+	register REQ request;
+	register RSE rec_expr;
+	CTX context;
+	REL relation;
+
+//  For time being flag as an error 
+
+	PAR_error("Free standing any not supported");
+
+	symbol = NULL;
+
+//  Make up request block.  Since this might not be a database statement,
+//  stay ready to back out if necessay. 
+
+	request = MAKE_REQUEST(REQ_any);
+
+	par_options(request, TRUE);
+	rec_expr = EXP_rse(request, symbol);
+	EXP_rse_cleanup(rec_expr);
+	action = MAKE_ACTION(request, ACT_any);
+
+	request->req_rse = rec_expr;
+	context = rec_expr->rse_context[0];
+	relation = context->ctx_relation;
+	request->req_database = relation->rel_database;
+
+	function = MAKE_ACTION(0, ACT_function);
+	function->act_object = (REF) action;
+	function->act_next = functions;
+	functions = function;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a free reference to a database field in general
+//		program context.  If the next keyword isn't a context
+//		varying, this isn't an array element reference.
+//  
+
+static ACT par_array_element()
+{
+	register FLD field, element;
+	register ACT action;
+	register REF reference;
+	REQ request;
+	CTX context;
+	NOD node;
+
+	if (!MSC_find_symbol(token.tok_symbol, SYM_context))
+		return NULL;
+
+	field = EXP_field(&context);
+	request = context->ctx_request;
+	node = EXP_array(request, field, FALSE, FALSE);
+	reference = MAKE_REFERENCE(&request->req_references);
+	reference->ref_expr = node;
+	reference->ref_field = element = field->fld_array;
+	element->fld_symbol = field->fld_symbol;
+	reference->ref_context = context;
+	node->nod_arg[0] = (NOD) reference;
+
+	action = MAKE_ACTION(request, ACT_variable);
+	action->act_object = reference;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an AT END clause.
+//  
+
+static ACT par_at()
+{
+	ACT action;
+
+	if (!MATCH(KW_END) || !cur_fetch)
+		return NULL;
+
+	action = (ACT) cur_fetch->lls_object;
+
+	return MAKE_ACTION(action->act_request, ACT_at_end);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a BASED ON clause.  If this
+//		is fortran and we don't have a database
+//		declared yet, don't parse it completely.
+//		If this is PLI look for a left paren or
+//		a semi colon to avoid stomping a
+//		DECLARE i FIXED BIN BASED (X);
+//		or DECLARE LIST (10) FIXED BINARY BASED;
+//  
+
+static ACT par_based()
+{
+	FLD field;
+	BAS based_on;
+	REL relation;
+	ACT action;
+	TEXT s[64];
+	TEXT t_str[NAME_SIZE + 1];
+	BOOLEAN ambiguous_flag;
+	LLS t1, t2, hold;
+	int notSegment = 0;			/* a COBOL specific patch */
+	char tmpChar[2];			/* a COBOL specific patch */
+
+	if ((sw_language == lang_pli) &&
+		((KEYWORD(KW_LEFT_PAREN)) || (KEYWORD(KW_SEMI_COLON)))) return (NULL);
+
+	MATCH(KW_ON);
+	action = MAKE_ACTION(0, ACT_basedon);
+	based_on = (BAS) ALLOC(BAS_LEN);
+	action->act_object = (REF) based_on;
+
+	if ((sw_language != lang_fortran) || isc_databases) {
+		relation = EXP_relation();
+		if (!MATCH(KW_DOT))
+			SYNTAX_ERROR("dot in qualified field reference");
+		SQL_resolve_identifier("<fieldname>", t_str);
+		if (!(field = MET_field(relation, token.tok_string))) {
+			sprintf(s, "undefined field %s", token.tok_string);
+			PAR_error(s);
+		}
+		if (SQL_DIALECT_V5 == sw_sql_dialect) {
+			USHORT field_dtype;
+			field_dtype = field->fld_dtype;
+			if ((dtype_sql_date == field_dtype) ||
+				(dtype_sql_time == field_dtype) ||
+				(dtype_int64 == field_dtype)) {
+				PAR_error
+					("BASED ON impermissible datatype for a dialect-1 program");
+			}
+		}
+		ADVANCE_TOKEN;
+		if (sw_language == lang_cobol && KEYWORD(KW_DOT)) {
+			strcpy(tmpChar, token.tok_string);
+		}
+		if (MATCH(KW_DOT)) {
+			if (!MATCH(KW_SEGMENT)) {
+				if (sw_language != lang_cobol)
+					PAR_error
+						("only .SEGMENT allowed after qualified field name");
+				else {
+					strcpy(based_on->bas_terminator, tmpChar);
+					notSegment = 1;
+				}
+			}
+			else if (!(field->fld_flags & FLD_blob)) {
+				sprintf(s, "field %s is not a blob",
+						field->fld_symbol->sym_string);
+				PAR_error(s);
+			}
+			if (notSegment == 0)	/* this is flag is to solve KW_DOT problem
+									   in COBOL. should be 0 for all other lang */
+				based_on->bas_flags |= BAS_segment;
+		}
+		based_on->bas_field = field;
+	}
+	else {
+		based_on->bas_rel_name = (STR) ALLOC(token.tok_length + 1);
+		COPY(token.tok_string, token.tok_length,
+			 (SCHAR *) based_on->bas_rel_name);
+		ADVANCE_TOKEN;
+		if (!MATCH(KW_DOT))
+			PAR_error("expected qualified field name");
+		else {
+			based_on->bas_fld_name = (STR) ALLOC(token.tok_length + 1);
+			COPY(token.tok_string, token.tok_length,
+				 (SCHAR *) based_on->bas_fld_name);
+			ambiguous_flag = FALSE;
+			ADVANCE_TOKEN;
+			if (MATCH(KW_DOT)) {
+				based_on->bas_db_name = based_on->bas_rel_name;
+				based_on->bas_rel_name = based_on->bas_fld_name;
+				based_on->bas_fld_name = (STR) ALLOC(token.tok_length + 1);
+				COPY(token.tok_string, token.tok_length,
+					 (SCHAR *) based_on->bas_fld_name);
+				if (KEYWORD(KW_SEGMENT))
+					ambiguous_flag = TRUE;
+				ADVANCE_TOKEN;
+				if (MATCH(KW_DOT)) {
+					if (!MATCH(KW_SEGMENT))
+						PAR_error("too many qualifiers on field name");
+					based_on->bas_flags |= BAS_segment;
+					ambiguous_flag = FALSE;
+				}
+			}
+			if (ambiguous_flag)
+				based_on->bas_flags |= BAS_ambiguous;
+		}
+
+	}
+
+	switch (sw_language) {
+	case lang_internal:
+	case lang_fortran:
+	case lang_pli:
+	case lang_epascal:
+	case lang_basic:
+	case lang_c:
+	case lang_cxx:
+		do {
+			PUSH((NOD) PAR_native_value(FALSE, FALSE),
+				 &based_on->bas_variables);
+		} while (MATCH(KW_COMMA));
+		/* 
+		   ** bug_4031.  based_on->bas_variables are now in reverse order.
+		   ** we must reverse the order so we can output them to the .c 
+		   ** file correctly.
+		 */
+		if (based_on->bas_variables->lls_next) {
+			t1 = based_on->bas_variables;	/* last one in the old list */
+			t2 = NULL;			/* last one in the new list */
+			hold = t2;			/* beginning of new list */
+
+			/* while we still have a next one, keep going thru */
+			while (t1->lls_next) {
+				/* now find the last one in the list */
+				while (t1->lls_next->lls_next)
+					t1 = t1->lls_next;
+
+				/* if this is the first time thru, set hold */
+				if (hold == NULL) {
+					hold = t1->lls_next;
+					t2 = hold;
+				}
+				else {
+					/* not first time thru, add this one to the end 
+					   ** of the new list */
+
+					t2->lls_next = t1->lls_next;
+					t2 = t2->lls_next;
+				}
+				/* now null out the last one, and start again */
+				t1->lls_next = NULL;
+				t1 = based_on->bas_variables;
+			}
+			/* ok, we're done, tack the original lls onto the very
+			   ** end of the new list. */
+
+			t2->lls_next = t1;
+			if (hold)
+				based_on->bas_variables = hold;
+		}
+	default:
+		break;
+	}
+
+	if (notSegment)
+		return action;
+	if (KEYWORD(KW_SEMI_COLON) ||
+		(sw_language == lang_cobol && KEYWORD(KW_DOT))) {
+		strcpy(based_on->bas_terminator, token.tok_string);
+		ADVANCE_TOKEN;
+	}
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		If this is a PASCAL program, and we're
+//  	in a code block, then increment the 
+//		brace count.  If we're in a routine
+//		declaration, then we've reached the start
+//		of the code block and should mark it as
+//		a new routine.
+//  
+
+static ACT par_begin()
+{
+
+	if (sw_language == lang_pascal) {
+		routine_decl = FALSE;
+		cur_routine->act_count++;
+	}
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a blob handle and return the blob.
+//  
+
+static BLB par_blob()
+{
+	SYM symbol;
+
+	if (!(symbol = MSC_find_symbol(token.tok_symbol, SYM_blob)))
+		SYNTAX_ERROR("blob handle");
+
+	ADVANCE_TOKEN;
+
+	return (BLB) symbol->sym_object;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a GET_SEGMENT, PUT_SEGMENT, CLOSE_BLOB or CANCEL_BLOB.
+//  
+
+static ACT par_blob_action( ACT_T type)
+{
+	BLB blob;
+	ACT action;
+
+	blob = par_blob();
+	action = MAKE_ACTION(blob->blb_request, type);
+	action->act_object = (REF) blob;
+
+//   Need to eat the semicolon if present  
+
+	if (sw_language == lang_c)
+		MATCH(KW_SEMI_COLON);
+	else
+		PAR_end();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a blob segment or blob field reference. 
+//  
+
+static ACT par_blob_field()
+{
+	ACT_T type;
+	ACT action;
+	BLB blob;
+	SSHORT first;
+
+	first = token.tok_first;
+
+	blob = par_blob();
+
+	if (MATCH(KW_DOT)) {
+		if (MATCH(KW_SEGMENT))
+			type = ACT_segment;
+		else if (MATCH(KW_LENGTH))
+			type = ACT_segment_length;
+		else
+			SYNTAX_ERROR("SEGMENT or LENGTH");
+	}
+	else
+		type = ACT_blob_handle;
+
+	action = MAKE_ACTION(blob->blb_request, type);
+
+	if (first)
+		action->act_flags |= ACT_first;
+
+	action->act_object = (REF) blob;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		If this is a PASCAL program, and we're
+//  	in a code block, then a case statement
+//		will end with an END, so it adds to the
+//		begin count.
+//  
+
+static ACT par_case()
+{
+
+	if ((sw_language == lang_pascal) && (!routine_decl))
+		cur_routine->act_count++;
+
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse degenerate CLEAR_HANDLES command.
+//  
+
+static ACT par_clear_handles()
+{
+
+	return MAKE_ACTION(0, ACT_clear_handles);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a DERIVED_FROM clause.  Like
+//		BASED ON but for C/C++ prototypes.
+//  
+
+static ACT par_derived_from()
+{
+	FLD field;
+	BAS based_on;
+	REL relation;
+	ACT action;
+	TEXT s[64];
+
+	if ((sw_language != lang_c) && (sw_language != lang_cxx))
+		return (NULL);
+
+	action = MAKE_ACTION(0, ACT_basedon);
+	based_on = (BAS) ALLOC(BAS_LEN);
+	action->act_object = (REF) based_on;
+
+	relation = EXP_relation();
+	if (!MATCH(KW_DOT))
+		SYNTAX_ERROR("dot in qualified field reference");
+	SQL_resolve_identifier("<Field Name>", s);
+	if (!(field = MET_field(relation, token.tok_string))) {
+		sprintf(s, "undefined field %s", token.tok_string);
+		PAR_error(s);
+	}
+	ADVANCE_TOKEN;
+	based_on->bas_field = field;
+
+
+	based_on->bas_variables = (LLS) ALLOC(LLS_LEN);;
+	based_on->bas_variables->lls_next = NULL;
+	based_on->bas_variables->lls_object =
+		(NOD) PAR_native_value(FALSE, FALSE);
+
+	strcpy(based_on->bas_terminator, token.tok_string);
+	ADVANCE_TOKEN;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//  
+//     If the language is PASCAL, and if we're
+//     the body of a routine,  every END counts
+//     against the number of BEGIN's and CASE's
+//     and when the count comes to zero, we SHOULD
+//     be at the end of the current routine, so
+//     pop it off the routine stack.
+//  
+
+static ACT par_end_block()
+{
+
+	if (sw_language == lang_pascal &&
+		!routine_decl && --cur_routine->act_count == 0 && routine_stack)
+		cur_routine = (ACT) POP(&routine_stack);
+
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an END_ERROR statement.  Piece of cake.
+//  
+
+static ACT par_end_error()
+{
+
+//  avoid parsing an ada exception end_error -
+//  check for a semicolon 
+
+	if (!PAR_end() && sw_language == lang_ada)
+		return NULL;
+
+	if (!cur_error)
+		PAR_error("END_ERROR used out of context");
+
+	if (!((ACT) POP(&cur_error)))
+		return NULL;
+
+//   Need to eat the semicolon for c if present  
+
+	if (sw_language == lang_c)
+		MATCH(KW_SEMI_COLON);
+
+	return MAKE_ACTION(0, ACT_enderror);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse END_FETCH statement (clause?).
+//  
+
+static ACT par_end_fetch()
+{
+	ACT begin_action, action;
+
+	if (!cur_fetch)
+		PAR_error("END_FETCH used out of context");
+
+	begin_action = (ACT) POP(&cur_fetch);
+
+	action = MAKE_ACTION(begin_action->act_request, ACT_hctef);
+	begin_action->act_pair = action;
+	action->act_pair = begin_action;
+
+	PAR_end();
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a FOR loop terminator.
+//  
+
+static ACT par_end_for()
+{
+	ACT begin_action, action;
+	BLB blob;
+	register REQ request;
+
+	if (!cur_for)
+		PAR_error("unmatched END_FOR");
+
+	if (!(begin_action = (ACT) POP(&cur_for)))
+		return NULL;
+
+	PAR_end();
+	request = begin_action->act_request;
+
+//  If the action is a blob for, make up a blob end. 
+
+	if (begin_action->act_type == ACT_blob_for) {
+		blob = (BLB) begin_action->act_object;
+		action = MAKE_ACTION(request, ACT_endblob);
+		action->act_object = (REF) blob;
+		begin_action->act_pair = action;
+		action->act_pair = begin_action;
+		HSH_remove(blob->blb_symbol);
+		blob->blb_flags |= BLB_symbol_released;
+		return action;
+	}
+
+//  If there isn't a database assigned, the FOR statement itself
+//  failed.  Since an error has been given, just return quietly. 
+
+	if (!request->req_database)
+		return NULL;
+
+	action = MAKE_ACTION(request, ACT_endfor);
+	begin_action->act_pair = action;
+	action->act_pair = begin_action;
+	EXP_rse_cleanup(request->req_rse);
+
+	for (blob = request->req_blobs; blob; blob = blob->blb_next)
+		if (!(blob->blb_flags & BLB_symbol_released))
+			HSH_remove(blob->blb_symbol);
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an END_FORM statement.
+//  
+
+static ACT par_end_form()
+{
+#ifdef NO_PYXIS
+	PAR_error("FORMs not supported");
+	return NULL;				/* silence compiler */
+#else
+	REQ request;
+	CTX context;
+
+	if (!cur_form)
+		PAR_error("unmatched END_FORM");
+
+	request = (REQ) POP(&cur_form);
+	context = request->req_contexts;
+	HSH_remove(context->ctx_symbol);
+
+	return MAKE_ACTION(request, ACT_form_end);
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		Handle a menu entree.
+//  
+
+static ACT par_end_menu()
+{
+	REQ request;
+	CTX context;
+
+	if (!cur_menu)
+		PAR_error("END_MENU not in MENU context");
+
+	request = (REQ) POP(&cur_menu);
+
+	if (request->req_flags & REQ_menu_for) {
+		context = request->req_contexts;
+		HSH_remove(context->ctx_symbol);
+	}
+
+	return MAKE_ACTION(request, ACT_menu_end);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse and process END_MODIFY.  The processing mostly includes
+//		copying field references to proper context at proper level.
+//  
+
+static ACT par_end_modify()
+{
+	ACT begin_action, action;
+	REQ request;
+	REF change, reference, flag;
+	UPD modify;
+	NOD assignments, item, *ptr;
+	LLS stack;
+	int count;
+
+	if (!cur_modify)
+		PAR_error("unmatched END_MODIFY");
+
+	PAR_end();
+	modify = (UPD) POP(&cur_modify);
+
+	if (errors)
+		return NULL;
+
+	request = modify->upd_request;
+
+	for (begin_action = request->req_actions;
+		 (UPD) begin_action->act_object != modify;
+		 begin_action = begin_action->act_next);
+
+//  Build assignments for all fields and null flags referenced 
+
+	stack = NULL;
+	count = 0;
+
+	for (reference = request->req_references; reference;
+		 reference = reference->ref_next)
+			if (reference->ref_context == modify->upd_source &&
+				reference->ref_level >= modify->upd_level &&
+				!reference->ref_master) {
+			change = MAKE_REFERENCE(&modify->upd_references);
+			change->ref_context = modify->upd_update;
+			change->ref_field = reference->ref_field;
+			change->ref_source = reference;
+			change->ref_flags = reference->ref_flags;
+
+			item = MAKE_NODE(nod_assignment, 2);
+			item->nod_arg[0] = MSC_unary(nod_value, (NOD) change);
+			item->nod_arg[1] = MSC_unary(nod_field, (NOD) change);
+			PUSH((NOD) item, &stack);
+			count++;
+
+			if (reference->ref_null) {
+				flag = MAKE_REFERENCE(&modify->upd_references);
+				flag->ref_context = change->ref_context;
+				flag->ref_field = flag_field;
+				flag->ref_master = change;
+				flag->ref_source = reference->ref_null;
+				change->ref_null = flag;
+
+				item = MAKE_NODE(nod_assignment, 2);
+				item->nod_arg[0] = MSC_unary(nod_value, (NOD) flag);
+				item->nod_arg[1] = MSC_unary(nod_field, (NOD) flag);
+				PUSH((NOD) item, &stack);
+				count++;
+			}
+		}
+
+//  Build a list node of the assignments 
+
+	modify->upd_assignments = assignments =
+		MAKE_NODE(nod_list, (SSHORT) count);
+	ptr = assignments->nod_arg + count;
+
+	while (stack)
+		*--ptr = (NOD) POP(&stack);
+
+	action = MAKE_ACTION(request, ACT_endmodify);
+	action->act_object = (REF) modify;
+	begin_action->act_pair = action;
+	action->act_pair = begin_action;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a stream END statement.
+//  
+
+static ACT par_end_stream()
+{
+	register SYM symbol;
+	register REQ request;
+
+	if (!(symbol = token.tok_symbol) || symbol->sym_type != SYM_stream)
+		SYNTAX_ERROR("stream cursor");
+
+	request = (REQ) symbol->sym_object;
+	HSH_remove(symbol);
+
+	EXP_rse_cleanup(request->req_rse);
+	ADVANCE_TOKEN;
+	PAR_end();
+
+	return MAKE_ACTION(request, ACT_s_end);
+}
+
+
+//____________________________________________________________
+//  
+//		Process an END_STORE.
+//  
+
+static ACT par_end_store()
+{
+	ACT begin_action, action2, action;
+	REQ request;
+	CTX context;
+	UPD return_values;
+	register REF reference, change;
+	register NOD assignments, item;
+	int count;
+	NOD *ptr;
+	LLS stack;
+
+	if (!cur_store)
+		PAR_error("unmatched END_STORE");
+
+	PAR_end();
+
+	begin_action = (ACT) POP(&cur_store);
+	request = begin_action->act_request;
+
+	if (request->req_type == REQ_store) {
+		if (errors)
+			return NULL;
+
+		/* Make up an assignment list for all field references */
+
+		count = 0;
+		for (reference = request->req_references; reference;
+			 reference = reference->ref_next) if (!reference->ref_master)
+				count++;
+
+		request->req_node = assignments = MAKE_NODE(nod_list, (SSHORT) count);
+		count = 0;
+
+		for (reference = request->req_references; reference;
+			 reference = reference->ref_next) {
+			if (reference->ref_master)
+				continue;
+			item = MAKE_NODE(nod_assignment, 2);
+			item->nod_arg[0] = MSC_unary(nod_value, (NOD) reference);
+			item->nod_arg[1] = MSC_unary(nod_field, (NOD) reference);
+			assignments->nod_arg[count++] = item;
+		}
+	}
+	else {
+		/* if the request type is store2, we have store ...returning_values.
+		 * The next action on the cur_store stack points to a UPD structure
+		 * which will give us the assignments for this one.
+		 */
+
+		action2 = (ACT) POP(&cur_store);
+		return_values = (UPD) action2->act_object;
+
+		/* Build assignments for all fields and null flags referenced */
+
+		stack = NULL;
+		count = 0;
+
+		for (reference = request->req_references; reference;
+			 reference = reference->ref_next)
+				if (reference->ref_context == return_values->upd_update &&
+					reference->ref_level >= return_values->upd_level &&
+					!reference->ref_master) {
+				change = MAKE_REFERENCE(&return_values->upd_references);
+				change->ref_context = return_values->upd_update;
+				change->ref_field = reference->ref_field;
+				change->ref_source = reference;
+				change->ref_flags = reference->ref_flags;
+
+				item = MAKE_NODE(nod_assignment, 2);
+				item->nod_arg[0] = MSC_unary(nod_field, (NOD) change);
+				item->nod_arg[1] = MSC_unary(nod_value, (NOD) change);
+				PUSH((NOD) item, &stack);
+				count++;
+			}
+
+		/* Build a list node of the assignments */
+
+		return_values->upd_assignments = assignments =
+			MAKE_NODE(nod_list, (SSHORT) count);
+		ptr = assignments->nod_arg + count;
+
+		while (stack)
+			*--ptr = (NOD) POP(&stack);
+	}
+	if ((context = request->req_contexts))
+		HSH_remove(context->ctx_symbol);
+
+	action = MAKE_ACTION(request, ACT_endstore);
+	begin_action->act_pair = action;
+	action->act_pair = begin_action;
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle a menu entree.
+//  
+
+static ACT par_entree()
+{
+	REQ request;
+	ACT action;
+	USHORT first;
+
+	if (!cur_menu)
+		return NULL;
+
+	request = (REQ) cur_menu->lls_object;
+
+//  Check that this is a case menu, not a dynamic menu.  
+
+	if (request->req_flags & REQ_menu_for)
+		return NULL;
+
+	first = TRUE;
+
+	for (action = request->req_actions; action; action = action->act_next)
+		if (action->act_type == ACT_menu_entree) {
+			first = FALSE;
+			break;
+		}
+
+	action = MAKE_ACTION(request, ACT_menu_entree);
+	action->act_object = (REF) par_quoted_string();
+
+	if (first)
+		action->act_flags |= ACT_first_entree;
+
+	if (!MATCH(KW_COLON))
+		SYNTAX_ERROR("colon");
+
+	return action;
+}
+
+
+
+
+//____________________________________________________________
+//  
+//		Parse a ERASE statement.
+//  
+
+static ACT par_erase()
+{
+	CTX source;
+	register ACT action;
+	register UPD erase;
+	register SYM symbol;
+	REQ request;
+
+	if (!(symbol = token.tok_symbol) || symbol->sym_type != SYM_context)
+		SYNTAX_ERROR("context variable");
+
+	source = symbol->sym_object;
+	request = source->ctx_request;
+	if (request->req_type != REQ_for && request->req_type != REQ_cursor)
+		PAR_error("invalid context for modify");
+
+	ADVANCE_TOKEN;
+	PAR_end();
+
+//  Make an update block to hold everything known about the modify 
+
+	erase = (UPD) ALLOC(UPD_LEN);
+	erase->upd_request = request;
+	erase->upd_source = source;
+
+	action = MAKE_ACTION(request, ACT_erase);
+	action->act_object = (REF) erase;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a stream FETCH statement.
+//  
+
+static ACT par_fetch()
+{
+	register SYM symbol;
+	register REQ request;
+	ACT action;
+
+	if (!(symbol = token.tok_symbol) || symbol->sym_type != SYM_stream)
+		return NULL;
+
+	request = (REQ) symbol->sym_object;
+	ADVANCE_TOKEN;
+	PAR_end();
+
+	action = MAKE_ACTION(request, ACT_s_fetch);
+	PUSH((NOD) action, &cur_fetch);
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a FINISH statement.
+//  
+
+static ACT par_finish()
+{
+	register ACT action;
+	SYM symbol;
+	RDY ready;
+
+	action = MAKE_ACTION(0, ACT_finish);
+
+	if (!terminator())
+		while (TRUE) {
+			if ((symbol = token.tok_symbol)
+				&& (symbol->sym_type == SYM_database)) {
+				ready = (RDY) ALLOC(RDY_LEN);
+				ready->rdy_next = (RDY) action->act_object;
+				action->act_object = (REF) ready;
+				ready->rdy_database = (DBB) symbol->sym_object;
+				CPR_eol_token();
+			}
+			else
+				SYNTAX_ERROR("database handle");
+			if (terminator())
+				break;
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+
+	if (sw_language == lang_ada)
+		MATCH(KW_SEMI_COLON);
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a FOR clause, returning an action.
+//		We don't know where we are a host language FOR, a record looping
+//		FOR, or a blob FOR.  Parse a little ahead and try to find out.
+//		Avoid stepping on user routines that use GDML keywords
+//  
+
+static ACT par_for()
+{
+	SYM symbol, temp;
+	ACT action;
+	register REQ request;
+	register RSE rec_expr;
+	CTX context, *ptr, *end;
+	REL relation;
+	TEXT s[128], dup_symbol;
+
+	if (MATCH(KW_FORM))
+		return par_form_for();
+
+	symbol = NULL;
+	dup_symbol = FALSE;
+
+	if (!KEYWORD(KW_FIRST) && !KEYWORD(KW_LEFT_PAREN)) {
+		if (token.tok_symbol)
+			dup_symbol = TRUE;
+
+		symbol =
+			MSC_symbol(SYM_cursor, token.tok_string, token.tok_length, 0);
+		ADVANCE_TOKEN;
+
+		if (!MATCH(KW_IN)) {
+			MSC_free((UCHAR *) symbol);
+			return NULL;
+		}
+		if (dup_symbol) {
+			sprintf(s, "symbol %s is already in use", token.tok_string);
+			PAR_error(s);
+		}
+
+		if ((temp = token.tok_symbol) && temp->sym_type == SYM_context)
+			return par_open_blob(ACT_blob_for, symbol);
+	}
+
+//  Make up request block.  Since this might not be a database statement,
+//  stay ready to back out if necessay. 
+
+	request = MAKE_REQUEST(REQ_for);
+
+	if (!par_options(request, TRUE) || !(rec_expr = EXP_rse(request, symbol))) {
+		MSC_free_request(request);
+		return NULL;
+	}
+
+	action = MAKE_ACTION(request, ACT_for);
+	PUSH((NOD) action, &cur_for);
+
+	request->req_rse = rec_expr;
+	context = rec_expr->rse_context[0];
+	relation = context->ctx_relation;
+	request->req_database = relation->rel_database;
+
+	for (ptr = rec_expr->rse_context, end = ptr + rec_expr->rse_count;
+		 ptr < end; ptr++) {
+		context = *ptr;
+		context->ctx_next = request->req_contexts;
+		request->req_contexts = context;
+	}
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a form or menu name, if one is present.  Return form
+//		or menu context.
+//  
+
+static CTX par_form_menu( enum sym_t type)
+{
+#ifdef NO_PYXIS
+	PAR_error("FORMs not supported");
+	return NULL;				/* silence compiler */
+#else
+	SYM symbol;
+
+	if ((symbol = MSC_find_symbol(token.tok_symbol, type))) {
+		ADVANCE_TOKEN;
+		return symbol->sym_object;
+	}
+
+	return NULL;
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a form display/interaction statement.
+//  
+
+static ACT par_form_display()
+{
+#ifdef NO_PYXIS
+	PAR_error("FORMs not supported");
+	return NULL;				/* silence compiler */
+#else
+	REQ request;
+	ACT action;
+	CTX context;
+	FINT fint;
+
+	if (!(context = par_form_menu(SYM_form_map))) {
+		if (!(context = par_form_menu(SYM_menu)))
+			return NULL;
+		else
+			return par_menu_display(context);
+	}
+	request = context->ctx_request;
+	action = MAKE_ACTION(0, ACT_form_display);
+	fint = (FINT) ALLOC(sizeof(struct fint));
+	action->act_object = (REF) fint;
+	fint->fint_request = request;
+
+	for (;;)
+		if (MATCH(KW_DISPLAYING))
+			if (MATCH(KW_ASTERISK))
+				fint->fint_flags |= FINT_display_all;
+			else
+				par_form_fields(request, &fint->fint_display_fields);
+		else if (MATCH(KW_ACCEPTING))
+			if (MATCH(KW_ASTERISK))
+				fint->fint_flags |= FINT_update_all;
+			else
+				par_form_fields(request, &fint->fint_update_fields);
+		else if (MATCH(KW_OVERRIDING)) {
+			if (MATCH(KW_ASTERISK))
+				fint->fint_flags |= FINT_override_all;
+			else
+				par_form_fields(request, &fint->fint_override_fields);
+		}
+		else if (MATCH(KW_WAKING)) {
+			MATCH(KW_ON);
+			if (MATCH(KW_ASTERISK))
+				fint->fint_flags |= FINT_wakeup_all;
+			else
+				par_form_fields(request, &fint->fint_wakeup_fields);
+		}
+		else if (MATCH(KW_CURSOR)) {
+			MATCH(KW_ON);
+			par_form_fields(request, &fint->fint_position_fields);
+		}
+		else if (MATCH(KW_NO_WAIT))
+			fint->fint_flags |= FINT_no_wait;
+		else
+			break;
+
+	return action;
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		Handle a reference to a form field.
+//  
+
+static ACT par_form_field()
+{
+#ifdef NO_PYXIS
+	PAR_error("FORMs not supported");
+	return NULL;				/* silence compiler */
+#else
+	FLD field;
+	ACT action;
+	CTX context;
+	USHORT first;
+
+//  
+//  Since fortran is fussy about continuations and the like,
+//  see if this variable token is the first thing in a statement.
+//  
+
+	first = token.tok_first;
+	field = EXP_form_field(&context);
+	action = MAKE_ACTION(0, ACT_variable);
+
+	if (first)
+		action->act_flags |= ACT_first;
+
+	action->act_object = EXP_post_field(field, context, FALSE);
+
+	return action;
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a parenthesed list of form field names.
+//  
+
+static void par_form_fields( REQ request, LLS * stack)
+{
+#ifdef NO_PYXIS
+	PAR_error("FORMs not supported");
+#else
+	FLD field, subfield;
+	FORM form;
+	REF reference, parent;
+
+	form = request->req_form;
+
+	for (;;) {
+		if (!
+			(field =
+			 FORM_lookup_field(form, form->form_object,
+							   token.
+							   tok_string))) SYNTAX_ERROR("form field name");
+		ADVANCE_TOKEN;
+		parent = NULL;
+		if (field->fld_prototype && MATCH(KW_DOT)) {
+			if (!
+				(subfield =
+				 FORM_lookup_field(form, field->fld_prototype,
+								   token.
+								   tok_string)))
+		 SYNTAX_ERROR("sub-form field name");
+			ADVANCE_TOKEN;
+			parent = MAKE_REFERENCE(0);
+			parent->ref_field = field;
+			field = subfield;
+		}
+		reference = EXP_post_field(field, request->req_contexts, FALSE);
+		reference->ref_friend = parent;
+		PUSH((NOD) reference, stack);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static ACT par_form_for()
+{
+#ifdef NO_PYXIS
+	PAR_error("FORMs not supported");
+	return NULL;				/* silence compiler */
+#else
+	FORM form;
+	SYM symbol, dbb_symbol;
+	DBB dbb;
+	REQ request;
+	CTX context;
+	USHORT request_flags;
+	TEXT *form_handle;
+
+	sw_pyxis = TRUE;
+	form_handle = NULL;
+	request_flags = 0;
+	request = MAKE_REQUEST(REQ_form);
+
+	if (MATCH(KW_LEFT_PAREN)) {
+		for (;;)
+			if (MATCH(KW_FORM_HANDLE))
+				form_handle = PAR_native_value(FALSE, TRUE);
+			else if (MATCH(KW_TRANSPARENT))
+				request_flags |= REQ_transparent;
+			else if (MATCH(KW_TAG))
+				request_flags |= REQ_form_tag;
+			else if (MATCH(KW_TRANSACTION_HANDLE))
+				request->req_trans = PAR_native_value(FALSE, TRUE);
+			else
+				break;
+		EXP_match_paren();
+	}
+
+	symbol = PAR_symbol(SYM_dummy);
+	symbol->sym_type = SYM_form_map;
+
+	if (!MATCH(KW_IN))
+		SYNTAX_ERROR("IN");
+
+//  Pick a database to access 
+
+	if (!isc_databases)
+		PAR_error("no database for operation");
+
+
+	if ((dbb_symbol = token.tok_symbol) &&
+		dbb_symbol->sym_type == SYM_database) {
+		ADVANCE_TOKEN;
+		if (!MATCH(KW_DOT))
+			SYNTAX_ERROR(".");
+		dbb = (DBB) dbb_symbol->sym_object;
+		form = FORM_lookup_form(dbb, token.tok_string);
+	}
+	else
+		for (dbb = isc_databases; dbb; dbb = dbb->dbb_next)
+			if ((form = FORM_lookup_form(dbb, token.tok_string)))
+				break;
+
+//  Pick up form 
+
+	if (!form)
+		SYNTAX_ERROR("form name");
+
+//  If we do it here, we will miss
+//  the next identifier
+//  FSG 26.Nov.2000 
+//  
+//ADVANCE_TOKEN;
+//  
+//  
+
+//  Set up various data structures 
+
+	request->req_form = form;
+
+	if ((request->req_form_handle = form_handle))
+		request->req_flags |= REQ_exp_form_handle;
+
+	request->req_database = dbb;
+	request->req_flags |= request_flags;
+	context = MSC_context(request);
+	context->ctx_symbol = symbol;
+	symbol->sym_object = context;
+	HSH_insert(symbol);
+	PUSH((NOD) request, &cur_form);
+
+//  Do it here to get the next one right
+//  FSG 26.Nov.2000 
+//  
+
+	ADVANCE_TOKEN;
+
+	return MAKE_ACTION(request, ACT_form_for);
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//  	A function declaration is interesting in
+//		FORTRAN because it starts a new sub-module
+//		and we have to begin everything all over.
+//		In PASCAL it's interesting because it may
+//		indicate a good place to put message declarations.
+//		Unfortunately that requires a loose parse of the
+//		routine header, but what the hell...
+//  
+
+static ACT par_function()
+{
+
+	if ((sw_language == lang_fortran) || (sw_language == lang_basic))
+		return par_subroutine();
+
+	if (sw_language == lang_pascal)
+		return par_procedure();
+
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse/handle END_ITEM.
+//  
+
+static ACT par_item_end()
+{
+	ACT action, prior;
+	REQ request;
+	CTX context;
+
+	if (!cur_item) {
+		CPR_error("unmatched END_ITEM");
+		return NULL;
+	}
+
+	prior = (ACT) POP((LLS *) & cur_item);
+	request = prior->act_request;
+	context = request->req_contexts;
+	HSH_remove(context->ctx_symbol);
+	action = MAKE_ACTION(request, ACT_item_end);
+	action->act_pair = prior;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle FOR_ITEM and/or PUT_ITEM.
+//  
+
+static ACT par_item_for( ACT_T type)
+{
+	ACT action;
+	FORM form;
+	SYM symbol;
+	REQ request, parent;
+	CTX context;
+	FLD field;
+	REF reference;
+	TEXT *form_handle;
+
+	sw_pyxis = TRUE;
+	form_handle = NULL;
+	symbol = PAR_symbol(SYM_dummy);
+
+	if (!MATCH(KW_IN))
+		SYNTAX_ERROR("IN");
+
+//  Pick up parent form or menu context 
+
+	if (!(context = par_form_menu(SYM_form_map))) {
+		if (!(context = par_form_menu(SYM_menu)))
+			SYNTAX_ERROR("form context or menu context");
+		else
+			return par_menu_item_for(symbol, context, type);
+	}
+	symbol->sym_type = SYM_form_map;
+
+	parent = context->ctx_request;
+
+	if (!(MATCH(KW_DOT)))
+		SYNTAX_ERROR("period");
+
+//  Pick up form 
+
+	form = parent->req_form;
+
+	if (!
+		(field =
+		 FORM_lookup_field(form, form->form_object,
+						   token.tok_string))) SYNTAX_ERROR("sub-form name");
+
+	ADVANCE_TOKEN;
+
+	if (!(form = FORM_lookup_subform(parent->req_form, field)))
+		SYNTAX_ERROR("sub-form name");
+
+	form->form_parent = parent;
+
+//  Set up various data structures 
+
+	request = MAKE_REQUEST(REQ_form);
+	request->req_form = form;
+	request->req_form_handle = form_handle;
+	request->req_database = parent->req_database;
+	request->req_trans = parent->req_trans;
+	context = MSC_context(request);
+	context->ctx_symbol = symbol;
+	symbol->sym_object = context;
+	HSH_insert(symbol);
+	action = MAKE_ACTION(request, type);
+	PUSH((NOD) action, (LLS *) & cur_item);
+
+//  If this is a FOR_ITEM, generate an index variable 
+
+	if (type == ACT_item_for) {
+		field =
+			MET_make_field("ITEM_INDEX", dtype_short, sizeof(SSHORT), FALSE);
+		request->req_index = reference =
+			EXP_post_field(field, context, FALSE);
+		reference->ref_flags |= REF_pseudo;
+	}
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Check a left brace (or whatever) for start of a new
+//		routine.
+//  
+
+static ACT par_left_brace()
+{
+	register ACT action;
+
+	if (brace_count++ > 0)
+		return NULL;
+
+	cur_routine = action = MAKE_ACTION(0, ACT_routine);
+	action->act_flags |= ACT_mark;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle a reference to a menu attribute.
+//  
+
+static ACT par_menu_att()
+{
+	ACT_T type;
+	ACT action;
+	CTX context;
+	SSHORT first;
+	MENU menu;
+
+	first = token.tok_first;
+	context = par_form_menu(SYM_menu);
+
+	if (MATCH(KW_DOT)) {
+		if (MATCH(KW_TITLE_TEXT))
+			type = ACT_title_text;
+		else if (MATCH(KW_TITLE_LENGTH))
+			type = ACT_title_length;
+		else if (MATCH(KW_TERMINATOR))
+			type = ACT_terminator;
+		else if (MATCH(KW_ENTREE_VALUE))
+			type = ACT_entree_value;
+		else if (MATCH(KW_ENTREE_TEXT))
+			type = ACT_entree_text;
+		else if (MATCH(KW_ENTREE_LENGTH))
+			type = ACT_entree_length;
+		else
+			SYNTAX_ERROR("menu attribute");
+	}
+	else
+		SYNTAX_ERROR("period");
+
+	menu = NULL;
+
+	for (action = context->ctx_request->req_actions; action;
+		 action = action->act_next) if (action->act_type == ACT_menu_for) {
+			menu = (MENU) action->act_object;
+			break;
+		}
+
+	if (!menu)
+		return NULL;
+
+	action = MAKE_ACTION(context->ctx_request, type);
+	action->act_object = (REF) menu;
+
+	if (first)
+		action->act_flags |= ACT_first;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static ACT par_menu_case()
+{
+	REQ request;
+	ACT action;
+
+	sw_pyxis = TRUE;
+	request = MAKE_REQUEST(REQ_menu);
+	PUSH((NOD) request, &cur_menu);
+	action = MAKE_ACTION(request, ACT_menu);
+
+	if (MATCH(KW_LEFT_PAREN)) {
+		for (;;)
+			if (MATCH(KW_VERTICAL))
+				request->req_flags |= REQ_menu_pop_up;
+			else if (MATCH(KW_HORIZONTAL))
+				request->req_flags |= REQ_menu_tag;
+			else if (MATCH(KW_TRANSPARENT))
+				request->req_flags |= REQ_transparent;
+			else if (MATCH(KW_MENU_HANDLE)) {
+				request->req_handle = PAR_native_value(FALSE, TRUE);
+				request->req_flags |= REQ_exp_hand;
+			}
+			else
+				break;
+		EXP_match_paren();
+	}
+
+	action->act_object = (REF) par_quoted_string();
+
+//   We should eat semicolons at the end of case_menu statements.  
+//   mao 3/29/89
+//  
+	MATCH(KW_SEMI_COLON);
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a menu display/interaction statement.
+//  
+
+static ACT par_menu_display( CTX context)
+{
+	ACT action;
+	REQ display_request;
+
+	action = MAKE_ACTION(context->ctx_request, ACT_menu_display);
+	display_request = MAKE_REQUEST(REQ_menu);
+	display_request->req_flags |= REQ_exp_hand;
+	action->act_object = (REF) display_request;
+
+	for (;;)
+		if (MATCH(KW_VERTICAL)) {
+			display_request->req_flags |= REQ_menu_pop_up;
+			display_request->req_flags &= ~REQ_menu_tag;
+		}
+		else if (MATCH(KW_HORIZONTAL)) {
+			display_request->req_flags |= REQ_menu_tag;
+			display_request->req_flags &= ~REQ_menu_pop_up;
+		}
+		else if (MATCH(KW_TRANSPARENT))
+			display_request->req_flags |= REQ_transparent;
+		else if (MATCH(KW_OPAQUE))
+			display_request->req_flags &= ~REQ_transparent;
+		else
+			break;
+
+	PAR_end();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle a reference to a menu entree attribute.
+//  
+
+static ACT par_menu_entree_att()
+{
+	ACT_T type;
+	ACT action;
+	CTX context;
+	SSHORT first;
+	ENTREE entree;
+
+	first = token.tok_first;
+	context = par_form_menu(SYM_menu_map);
+
+	if (MATCH(KW_DOT)) {
+		if (MATCH(KW_ENTREE_TEXT))
+			type = ACT_entree_text;
+		else if (MATCH(KW_ENTREE_LENGTH))
+			type = ACT_entree_length;
+		else if (MATCH(KW_ENTREE_VALUE))
+			type = ACT_entree_value;
+		else
+			SYNTAX_ERROR("entree attribute");
+	}
+	else
+		SYNTAX_ERROR("period");
+
+	entree = NULL;
+	for (action = context->ctx_request->req_actions; action;
+		 action = action->act_next) if (action->act_type == ACT_item_for
+										|| action->act_type == ACT_item_put) {
+			entree = (ENTREE) action->act_object;
+			break;
+		}
+
+	if (!entree)
+		return NULL;
+
+	action = MAKE_ACTION(context->ctx_request, type);
+
+	if (first)
+		action->act_flags |= ACT_first;
+
+	action->act_object = (REF) entree;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static ACT par_menu_for()
+{
+	SYM symbol;
+	ACT action;
+	REQ request;
+	CTX context;
+	MENU menu;
+
+	sw_pyxis = TRUE;
+	request = MAKE_REQUEST(REQ_menu);
+	request->req_flags |= REQ_menu_for;
+
+	if (MATCH(KW_LEFT_PAREN)) {
+		for (;;)
+			if (MATCH(KW_MENU_HANDLE)) {
+				request->req_handle = PAR_native_value(FALSE, TRUE);
+				request->req_flags |= REQ_exp_hand;
+			}
+			else
+				break;
+		EXP_match_paren();
+	}
+
+	symbol = PAR_symbol(SYM_dummy);
+	symbol->sym_type = SYM_menu;
+
+//  Set up various data structures 
+
+	context = MSC_context(request);
+	context->ctx_symbol = symbol;
+	symbol->sym_object = context;
+	HSH_insert(symbol);
+	PUSH((NOD) request, &cur_menu);
+
+	action = MAKE_ACTION(request, ACT_menu_for);
+	menu = (MENU) ALLOC(sizeof(struct menu));
+	action->act_object = (REF) menu;
+	menu->menu_request = request;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle FOR_ITEM and/or PUT_ITEM for menus.
+//  
+
+static ACT par_menu_item_for( SYM symbol, CTX context, ACT_T type)
+{
+	ACT action;
+	REQ request, parent;
+	ENTREE entree;
+
+	sw_pyxis = TRUE;
+	symbol->sym_type = SYM_menu_map;
+	parent = context->ctx_request;
+
+//  Set up various data structures 
+
+	request = MAKE_REQUEST(REQ_menu);
+	request->req_flags |= REQ_menu_for_item;
+
+	context = MSC_context(request);
+	context->ctx_symbol = symbol;
+	symbol->sym_object = context;
+	HSH_insert(symbol);
+	action = MAKE_ACTION(request, type);
+	PUSH((NOD) action, (LLS *) & cur_item);
+
+	entree = (ENTREE) ALLOC(sizeof(struct entree));
+	action->act_object = (REF) entree;
+	entree->entree_request = parent;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a MODIFY statement.
+//  
+
+static ACT par_modify()
+{
+	register CTX source, update;
+	ACT action;
+	register UPD modify;
+	SYM symbol;
+	REQ request;
+	SCHAR s[50];
+
+//  Set up modify and action blocks.  This is done here to leave the
+//  structure in place to cleanly handle END_MODIFY under error conditions. 
+
+	modify = (UPD) ALLOC(UPD_LEN);
+	PUSH((NOD) modify, &cur_modify);
+
+//  If the next token isn't a context variable, we can't continue 
+
+	if (!(symbol = token.tok_symbol) || symbol->sym_type != SYM_context) {
+		sprintf(s, "%s is not a valid context variable", token.tok_string);
+		PAR_error(s);
+	}
+
+	source = symbol->sym_object;
+	request = source->ctx_request;
+	if (request->req_type != REQ_for && request->req_type != REQ_cursor)
+		PAR_error("invalid context for modify");
+
+	action = MAKE_ACTION(request, ACT_modify);
+	action->act_object = (REF) modify;
+
+	ADVANCE_TOKEN;
+	MATCH(KW_USING);
+
+//  Make an update context by cloning the source context 
+
+	update = MAKE_CONTEXT(request);
+	update->ctx_symbol = source->ctx_symbol;
+	update->ctx_relation = source->ctx_relation;
+
+//  Make an update block to hold everything known about the modify 
+
+	modify->upd_request = request;
+	modify->upd_source = source;
+	modify->upd_update = update;
+	modify->upd_level = ++request->req_level;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		This rather degenerate routine exists to allow both:
+//  
+//			ON_ERROR
+//			ON ERROR
+//  
+//		so the more dim of our users avoid mistakes.
+//  
+
+static ACT par_on()
+{
+
+	if (!(MATCH(KW_ERROR)))
+		return NULL;
+
+	return par_on_error();
+}
+
+
+//____________________________________________________________
+//  
+
+//		Parse a trailing ON_ERROR clause.
+//  
+
+static ACT par_on_error()
+{
+	ACT action;
+
+	if (!cur_statement)
+		PAR_error("ON_ERROR used out of context");
+
+	PAR_end();
+	cur_statement->act_error = action = MAKE_ACTION(0, ACT_on_error);
+	action->act_object = (REF) cur_statement;
+
+	PUSH((NOD) action, &cur_error);
+
+	if (cur_statement->act_pair)
+		cur_statement->act_pair->act_error = action;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an "open blob" type statement.  These include OPEN_BLOB,
+//		CREATE_BLOB, and blob FOR.
+//  
+
+static ACT par_open_blob( ACT_T act_op, SYM symbol)
+{
+	CTX context;
+	FLD field;
+	REF reference;
+	ACT action;
+	BLB blob;
+	REQ request;
+	TEXT s[128];
+	USHORT filter_is_defined = FALSE;
+
+//  If somebody hasn't already parsed up a symbol for us, parse the
+//  symbol and the mandatory IN now. 
+
+	if (!symbol) {
+		symbol = PAR_symbol(SYM_dummy);
+		if (!MATCH(KW_IN))
+			SYNTAX_ERROR("IN");
+	}
+
+//  The next thing we should find is a field reference.  Get it. 
+
+	if (!(field = EXP_field(&context)))
+		return NULL;
+
+	if (!(field->fld_flags & FLD_blob)) {
+		sprintf(s, "Field %s is not a blob", field->fld_symbol->sym_string);
+		PAR_error(s);
+	}
+
+	if (field->fld_array_info) {
+		sprintf(s, "Field %s is an array and can not be opened as a blob",
+				field->fld_symbol->sym_string);
+		PAR_error(s);
+	}
+
+	request = context->ctx_request;
+	reference = EXP_post_field(field, context, FALSE);
+
+	blob = (BLB) ALLOC(BLB_LEN);
+	blob->blb_symbol = symbol;
+	blob->blb_reference = reference;
+
+//   See if we need a blob filter (do we have a subtype to subtype clause?)  
+
+	for (;;)
+		if (MATCH(KW_FILTER)) {
+			blob->blb_const_from_type = (MATCH(KW_FROM)) ?
+				PAR_blob_subtype(request->req_database) : field->fld_sub_type;
+			if (!MATCH(KW_TO))
+				SYNTAX_ERROR("TO");
+			blob->blb_const_to_type = PAR_blob_subtype(request->req_database);
+			filter_is_defined = TRUE;
+		}
+		else if (MATCH(KW_STREAM))
+			blob->blb_type = gds_bpb_type_stream;
+		else
+			break;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+//  If the blob is filtered to sub_type text or
+//  if there is no filter but the actual field's sub_type is text,
+//  set blb_source_interp (for writing) or blb_target_interp (for reading).
+//  These fields will be used for generating proper Blob Parameter Block. 
+
+	if ((blob->blb_const_to_type == 1) ||
+		(!filter_is_defined && (field->fld_sub_type == 1))) {
+		switch (act_op) {
+		case ACT_blob_create:
+			blob->blb_source_interp = sw_interp;
+			break;
+
+		case ACT_blob_open:
+		case ACT_blob_for:
+			blob->blb_target_interp = sw_interp;
+			break;
+		}
+	}
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+	if (!(blob->blb_seg_length = field->fld_seg_length))
+		blob->blb_seg_length = 512;
+
+	blob->blb_request = request;
+	blob->blb_next = request->req_blobs;
+	request->req_blobs = blob;
+
+	symbol->sym_type = SYM_blob;
+	symbol->sym_object = (CTX) blob;
+	HSH_insert(symbol);
+// ** You just inserted the context variable into the hash table.
+//The current token however might be the same context variable. 
+//If so, get the symbol for it.
+//*  
+	if (token.tok_keyword == KW_none)
+		token.tok_symbol = HSH_lookup(token.tok_string);
+
+	action = MAKE_ACTION(request, act_op);
+	action->act_object = (REF) blob;
+
+	if (act_op == ACT_blob_for)
+		PUSH((NOD) action, &cur_for);
+
+//   Need to eat the semicolon if present  
+
+	if (sw_language == lang_c)
+		MATCH(KW_SEMI_COLON);
+	else
+		PAR_end();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse request options.  Return TRUE if successful, otherwise
+//		FALSE.  If a flag is set, don't give an error on FALSE.
+//  
+
+static BOOLEAN par_options( REQ request, BOOLEAN flag)
+{
+
+	if (!MATCH(KW_LEFT_PAREN))
+		return TRUE;
+
+	while (TRUE) {
+		if (MATCH(KW_RIGHT_PAREN))
+			return TRUE;
+		if (MATCH(KW_REQUEST_HANDLE)) {
+			request->req_handle = PAR_native_value(FALSE, TRUE);
+			request->req_flags |= REQ_exp_hand;
+		}
+		else if (MATCH(KW_TRANSACTION_HANDLE))
+			request->req_trans = PAR_native_value(FALSE, TRUE);
+		else if (MATCH(KW_LEVEL))
+			request->req_request_level = PAR_native_value(FALSE, FALSE);
+		else {
+			if (!flag)
+				SYNTAX_ERROR("request option");
+			return FALSE;
+		}
+		MATCH(KW_COMMA);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		If this is PLI, then we've got a new procedure.
+//  
+//		If this is PASCAL, then we've come upon
+//		a program, module, function, or procedure header.  
+//		Alas and alack, we have to decide if this is
+//		a real header or a forward/external declaration.
+//  
+//		In either case, we make a mark-only action block,
+//		because that's real cheap.  If it's a real routine,
+//		we make the action the current routine.
+//  
+
+static ACT par_procedure()
+{
+	ACT action;
+
+	if (sw_language == lang_pli) {
+		cur_routine = action = MAKE_ACTION(0, ACT_routine);
+		action->act_flags |= ACT_mark;
+		while (!MATCH(KW_SEMI_COLON))
+			ADVANCE_TOKEN;
+		return action;
+	}
+	else if (sw_language == lang_pascal) {
+		routine_decl = TRUE;
+		action = scan_routine_header();
+		if (!(action->act_flags & ACT_decl)) {
+			PUSH((NOD) cur_routine, &routine_stack);
+			cur_routine = action;
+		}
+	}
+	else
+		action = NULL;
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a quoted string.
+//  
+
+static TEXT *par_quoted_string()
+{
+	TEXT *string;
+
+	if (!SINGLE_QUOTED(token.tok_type))
+		SYNTAX_ERROR("quoted string");
+	string = (TEXT *) ALLOC(token.tok_length + 1);
+	COPY(token.tok_string, token.tok_length, string);
+
+//  Adjust size to include quotes 
+//  FSG 26.Nov.2000
+//  
+	token.tok_length = token.tok_length + 2;
+	ADVANCE_TOKEN;
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a READY statement.
+//  
+
+static ACT par_ready()
+{
+	register ACT action;
+	register REQ request;
+	SYM symbol;
+	RDY ready;
+	DBB dbb;
+	BOOLEAN need_handle;
+	USHORT default_buffers, buffers;
+
+	action = MAKE_ACTION(0, ACT_ready);
+	need_handle = FALSE;
+	default_buffers = 0;
+
+	if (KEYWORD(KW_CACHE))
+		SYNTAX_ERROR("database name or handle");
+
+	while (!terminator()) {
+		/* this default mechanism is left here for backwards 
+		   compatibility, but it is no longer documented and
+		   is not something we should maintain for all ready 
+		   options since it needlessly complicates the ready
+		   statement without providing any extra functionality */
+
+		if (MATCH(KW_DEFAULT)) {
+			if (!MATCH(KW_CACHE))
+				SYNTAX_ERROR("database name or handle");
+			default_buffers = atoi(token.tok_string);
+			CPR_eol_token();
+			MATCH(KW_BUFFERS);
+			continue;
+		}
+
+		ready = (RDY) ALLOC(RDY_LEN);
+		ready->rdy_next = (RDY) action->act_object;
+		action->act_object = (REF) ready;
+
+		if (!(symbol = token.tok_symbol) || symbol->sym_type != SYM_database) {
+			ready->rdy_filename = PAR_native_value(FALSE, FALSE);
+			if (MATCH(KW_AS))
+				need_handle = TRUE;
+		}
+
+		if (!(symbol = token.tok_symbol) || symbol->sym_type != SYM_database) {
+			if (!isc_databases || isc_databases->dbb_next || need_handle) {
+				need_handle = FALSE;
+				SYNTAX_ERROR("database handle");
+			}
+			ready->rdy_database = isc_databases;
+		}
+
+		need_handle = FALSE;
+		if (!ready->rdy_database)
+			ready->rdy_database = (DBB) symbol->sym_object;
+		if (terminator())
+			break;
+		CPR_eol_token();
+
+		/* pick up the possible parameters, in any order */
+
+		buffers = 0;
+		dbb = ready->rdy_database;
+		for (;;) {
+			if (MATCH(KW_CACHE)) {
+				buffers = atoi(token.tok_string);
+				CPR_eol_token();
+				MATCH(KW_BUFFERS);
+			}
+			else if (MATCH(KW_USER))
+				dbb->dbb_r_user = PAR_native_value(FALSE, FALSE);
+			else if (MATCH(KW_PASSWORD))
+				dbb->dbb_r_password = PAR_native_value(FALSE, FALSE);
+			else if (MATCH(KW_LC_MESSAGES))
+				dbb->dbb_r_lc_messages = PAR_native_value(FALSE, FALSE);
+			else if (MATCH(KW_LC_CTYPE)) {
+				dbb->dbb_r_lc_ctype = PAR_native_value(FALSE, FALSE);
+				dbb->dbb_know_subtype = 2;
+			}
+			else
+				break;
+		}
+
+		request = NULL;
+		if (buffers)
+			request = PAR_set_up_dpb_info(ready, action, buffers);
+
+		/* if there are any options that take host variables as arguments, 
+		   make sure that we generate variables for the request so that the 
+		   dpb can be extended at runtime */
+
+		if (dbb->dbb_r_user || dbb->dbb_r_password ||
+			dbb->dbb_r_lc_messages || dbb->dbb_r_lc_ctype) {
+			if (!request)
+				request = PAR_set_up_dpb_info(ready, action, default_buffers);
+			request->req_flags |= REQ_extend_dpb;
+		}
+
+		/* ...and if there are compile time user or password specified,
+		   make sure there will be a dpb generated for them */
+
+		if (!request && (dbb->dbb_c_user || dbb->dbb_c_password ||
+						 dbb->dbb_c_lc_messages || dbb->dbb_c_lc_ctype))
+			request = PAR_set_up_dpb_info(ready, action, default_buffers);
+
+		MATCH(KW_COMMA);
+	}
+
+	PAR_end();
+
+	if (action->act_object) {
+		if (default_buffers)
+			for (ready = (RDY) action->act_object; ready;
+				 ready = ready->rdy_next) if (!ready->rdy_request)
+					request =
+						PAR_set_up_dpb_info(ready, action, default_buffers);
+		return action;
+	}
+
+//  No explicit databases -- pick up all known 
+
+	for (dbb = isc_databases; dbb; dbb = dbb->dbb_next)
+		if (dbb->dbb_runtime || !(dbb->dbb_flags & DBB_sqlca)) {
+			ready = (RDY) ALLOC(RDY_LEN);
+			ready->rdy_next = (RDY) action->act_object;
+			action->act_object = (REF) ready;
+			ready->rdy_database = dbb;
+		}
+
+	if (!action->act_object)
+		PAR_error("no database available to READY");
+	else
+		for (ready = (RDY) action->act_object; ready; ready = ready->rdy_next) {
+			request = ready->rdy_request;
+			if (default_buffers && !ready->rdy_request)
+				request = PAR_set_up_dpb_info(ready, action, default_buffers);
+
+			/* if there are any options that take host variables as arguments, 
+			   make sure that we generate variables for the request so that the 
+			   dpb can be extended at runtime */
+
+			dbb = ready->rdy_database;
+			if (dbb->dbb_r_user || dbb->dbb_r_password ||
+				dbb->dbb_r_lc_messages || dbb->dbb_r_lc_ctype) {
+				if (!request)
+					request =
+						PAR_set_up_dpb_info(ready, action, default_buffers);
+				request->req_flags |= REQ_extend_dpb;
+			}
+
+			/* ...and if there are compile time user or password specified,
+			   make sure there will be a dpb generated for them */
+
+			if (!request && (dbb->dbb_c_user || dbb->dbb_c_password ||
+							 dbb->dbb_c_lc_messages || dbb->dbb_c_lc_ctype))
+				request = PAR_set_up_dpb_info(ready, action, default_buffers);
+		}
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a returning values clause in a STORE
+//		returning an action. 
+//		Act as if we were at end_store, then set up
+//		for a further set of fields for returned values.
+//  
+
+static ACT par_returning_values()
+{
+
+	register REF reference;
+	register NOD assignments;
+	int count;
+
+	if (!cur_store)
+		PAR_error("STORE must precede RETURNING_VALUES");
+
+	ACT begin_action = (ACT) POP(&cur_store);
+	REQ request = begin_action->act_request;
+
+//  First take care of the impending store:
+//  Make up an assignment list for all field references  and
+//  clone the references while we are at it 
+
+	count = 0;
+	for (reference = request->req_references; reference;
+		 reference = reference->ref_next) if (!reference->ref_master)
+			count++;
+
+	request->req_node = assignments = MAKE_NODE(nod_list, (SSHORT) count);
+	count = 0;
+
+	for (reference = request->req_references; reference;
+		 reference = reference->ref_next) {
+		REF save_ref = MAKE_REFERENCE(&begin_action->act_object);
+		save_ref->ref_context = reference->ref_context;
+		save_ref->ref_field = reference->ref_field;
+		save_ref->ref_source = reference;
+		save_ref->ref_flags = reference->ref_flags;
+
+		if (reference->ref_master)
+			continue;
+		NOD item = MAKE_NODE(nod_assignment, 2);
+		item->nod_arg[0] = MSC_unary(nod_value, (NOD) save_ref);
+		item->nod_arg[1] = MSC_unary(nod_field, (NOD) save_ref);
+		assignments->nod_arg[count++] = item;
+	}
+
+//  Next make an updated context for post_store actions 
+
+	UPD new_values = (UPD) ALLOC(UPD_LEN);
+	CTX source = request->req_contexts;
+	request->req_type = REQ_store2;
+
+	CTX new_ = MAKE_CONTEXT(request);
+	new_->ctx_symbol = source->ctx_symbol;
+	new_->ctx_relation = source->ctx_relation;
+	new_->ctx_symbol->sym_object = new_;
+
+//  make an update block to hold everything known about referenced
+//  fields 
+
+	ACT action = MAKE_ACTION(request, ACT_store2);
+	action->act_object = (REF) new_values;
+
+	new_values->upd_request = request;
+	new_values->upd_source = source;
+	new_values->upd_update = new_;
+	new_values->upd_level = ++request->req_level;
+
+//  both actions go on the cur_store stack, the store topmost 
+
+	PUSH((NOD) action, &cur_store);
+	PUSH((NOD) begin_action, &cur_store);
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Do something about a right brace.
+//  
+
+static ACT par_right_brace()
+{
+
+	if (--brace_count < 0)
+		brace_count = 0;
+
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a RELEASE_REQUEST statement.
+//  
+
+static ACT par_release()
+{
+	register ACT action;
+	SYM symbol;
+
+	action = MAKE_ACTION(0, ACT_release);
+
+	MATCH(KW_FOR);
+
+	if ((symbol = token.tok_symbol) && (symbol->sym_type == SYM_database)) {
+		action->act_object = (REF) symbol->sym_object;
+		ADVANCE_TOKEN;
+	}
+
+	PAR_end();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle a GET_SLICE or PUT_SLICE statement.
+//  
+
+static ACT par_slice( ACT_T type)
+{
+
+	ACT action;
+	FLD field;
+	CTX context;
+	ARY info;
+	SLC slice;
+	REQ request;
+	USHORT n;
+	slc::slc_repeat * tail;
+
+	field = EXP_field(&context);
+
+	if (!(info = field->fld_array_info))
+		SYNTAX_ERROR("array field");
+
+	request = MAKE_REQUEST(REQ_slice);
+	request->req_slice = slice =
+		(SLC) ALLOC(SLC_LEN(info->ary_dimension_count));
+	slice->slc_dimensions = info->ary_dimension_count;
+	slice->slc_field = field;
+	slice->slc_field_ref = EXP_post_field(field, context, FALSE);
+	slice->slc_parent_request = context->ctx_request;
+
+	if (!MATCH(KW_L_BRCKET))
+		SYNTAX_ERROR("left bracket");
+
+	for (tail = slice->slc_rpt, n = 0; ++n <= slice->slc_dimensions; ++tail) {
+		tail->slc_lower = tail->slc_upper = EXP_subscript(request);
+		if (MATCH(KW_COLON))
+			tail->slc_upper = EXP_subscript(request);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	if (n != slice->slc_dimensions)
+		PAR_error("subscript count mismatch");
+
+	if (!MATCH(KW_R_BRCKET))
+		SYNTAX_ERROR("right bracket");
+
+	if (type == ACT_get_slice) {
+		if (!MATCH(KW_INTO))
+			SYNTAX_ERROR("INTO");
+	}
+	else if (!MATCH(KW_FROM))
+		SYNTAX_ERROR("FROM");
+
+	slice->slc_array = EXP_subscript(0);
+
+	action = MAKE_ACTION(request, type);
+	action->act_object = (REF) slice;
+
+	if (sw_language == lang_c)
+		MATCH(KW_SEMI_COLON);
+	else
+		PAR_end();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a STORE clause, returning an action.
+//  
+
+static ACT par_store()
+{
+	register ACT action;
+	REQ request;
+	register CTX context;
+	REL relation;
+
+	request = MAKE_REQUEST(REQ_store);
+	par_options(request, FALSE);
+	action = MAKE_ACTION(request, ACT_store);
+	PUSH((NOD) action, &cur_store);
+
+	context = EXP_context(request, 0);
+	relation = context->ctx_relation;
+	request->req_database = relation->rel_database;
+	HSH_insert(context->ctx_symbol);
+// ** You just inserted the context variable into the hash table.
+//The current token however might be the same context variable. 
+//If so, get the symbol for it.
+//*  
+	if (token.tok_keyword == KW_none)
+		token.tok_symbol = HSH_lookup(token.tok_string);
+	MATCH(KW_USING);
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a start stream statement.
+//  
+
+static ACT par_start_stream()
+{
+	ACT action;
+	REQ request;
+	register RSE rec_expr;
+	CTX context, *ptr, *end;
+	REL relation;
+	register SYM cursor;
+
+	request = MAKE_REQUEST(REQ_cursor);
+	par_options(request, FALSE);
+	action = MAKE_ACTION(request, ACT_s_start);
+
+	cursor = PAR_symbol(SYM_dummy);
+	cursor->sym_type = SYM_stream;
+	cursor->sym_object = (CTX) request;
+
+	MATCH(KW_USING);
+	rec_expr = EXP_rse(request, 0);
+	request->req_rse = rec_expr;
+	context = rec_expr->rse_context[0];
+	relation = context->ctx_relation;
+	request->req_database = relation->rel_database;
+
+	for (ptr = rec_expr->rse_context, end = ptr + rec_expr->rse_count;
+		 ptr < end; ptr++) {
+		context = *ptr;
+		context->ctx_next = request->req_contexts;
+		request->req_contexts = context;
+	}
+
+	HSH_insert(cursor);
+	PAR_end();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a START_TRANSACTION statement, including
+//  	transaction handle, transaction options, and
+//		reserving list.
+//  
+
+static ACT par_start_transaction()
+{
+	register ACT action;
+	TRA trans;
+
+	action = MAKE_ACTION(0, ACT_start);
+
+	if (terminator()) {
+		PAR_end();
+		return action;
+	}
+
+	trans = (TRA) ALLOC(TRA_LEN);
+
+//  get the transaction handle  
+
+	if (!token.tok_symbol)
+		trans->tra_handle = PAR_native_value(FALSE, TRUE);
+
+//  loop reading the various transaction options 
+
+	while (!KEYWORD(KW_RESERVING) && !KEYWORD(KW_USING) && !terminator()) {
+		if (MATCH(KW_READ_ONLY)) {
+			trans->tra_flags |= TRA_ro;
+			continue;
+		}
+		else if (MATCH(KW_READ_WRITE))
+			continue;
+
+		if (MATCH(KW_CONSISTENCY)) {
+			trans->tra_flags |= TRA_con;
+			continue;
+		}
+// ***    else if (MATCH (KW_READ_COMMITTED))
+// { 
+// trans->tra_flags |= TRA_read_committed;
+// continue;
+// } **
+		else if (MATCH(KW_CONCURRENCY))
+			continue;
+
+		if (MATCH(KW_NO_WAIT)) {
+			trans->tra_flags |= TRA_nw;
+			continue;
+		}
+		else if (MATCH(KW_WAIT))
+			continue;
+
+		if (MATCH(KW_AUTOCOMMIT)) {
+			trans->tra_flags |= TRA_autocommit;
+			continue;
+		}
+
+		if (sw_language == lang_cobol || sw_language == lang_fortran)
+			break;
+		else
+			SYNTAX_ERROR("transaction keyword");
+	}
+
+//  send out for the list of reserved relations 
+
+	if (MATCH(KW_RESERVING)) {
+		trans->tra_flags |= TRA_rrl;
+		PAR_reserving(trans->tra_flags, 0);
+	}
+	else if (MATCH(KW_USING)) {
+		trans->tra_flags |= TRA_inc;
+		PAR_using_db();
+	}
+
+	PAR_end();
+	CMP_t_start(trans);
+	action->act_object = (REF) trans;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		We have hit either a function or subroutine declaration.
+//		If the language is fortran, make the position with a break.
+//  
+
+static ACT par_subroutine()
+{
+	register ACT action;
+
+	if ((sw_language != lang_fortran) &&
+		((sw_language != lang_basic) || KEYWORD(KW_SEMI_COLON))) return NULL;
+
+//   If this statement is an external declaration in a Basic
+//   program, eat this entire statement.  V3.0 bug 329  
+	if (sw_language == lang_basic && bas_extern_flag) {
+		CPR_raw_read();
+		bas_extern_flag = FALSE;
+		return NULL;
+	}
+
+	action = MAKE_ACTION(0, ACT_routine);
+	action->act_flags |= ACT_mark | ACT_break;
+	cur_routine = action;
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a transaction termination statement: commit,
+//		prepare, rollback, or save (commit retaining context).
+//  
+
+static ACT par_trans( ACT_T act_op)
+{
+	register ACT action;
+	USHORT parens;
+
+	action = MAKE_ACTION(0, act_op);
+
+	if (!terminator()) {
+		parens = MATCH(KW_LEFT_PAREN);
+		if ((sw_language == lang_fortran)
+			&& (act_op == ACT_commit_retain_context)) {
+			if (!(MATCH(KW_TRANSACTION_HANDLE)))
+				return NULL;
+		}
+		else
+			MATCH(KW_TRANSACTION_HANDLE);
+		action->act_object = (REF) PAR_native_value(FALSE, TRUE);
+		if (parens)
+			EXP_match_paren();
+	}
+
+	if ((sw_language != lang_fortran) && (sw_language != lang_pascal))
+		MATCH(KW_SEMI_COLON);
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse something of the form:
+//  
+//			<relation> . <field> . <something>
+//  
+//		where <something> is currently an enumerated type.
+//  
+
+static ACT par_type()
+{
+	REL relation;
+	FLD field;
+	ACT action;
+	SSHORT type;
+	TEXT s[64];
+
+//  Pick up relation 
+
+// ***
+//SYM	symbol;
+//symbol = token.tok_symbol;
+//relation = (REL) symbol->sym_object;
+//ADVANCE_TOKEN;
+//** 
+
+	relation = EXP_relation();
+
+//  No dot and we give up 
+
+	if (!MATCH(KW_DOT))
+		return NULL;
+
+//  Look for field name.  No field name, punt 
+
+	SQL_resolve_identifier("<Field Name>", s);
+	if (!(field = MET_field(relation, token.tok_string)))
+		return NULL;
+
+	ADVANCE_TOKEN;
+
+	if (!MATCH(KW_DOT))
+		SYNTAX_ERROR("period");
+
+//  Lookup type.  If we can't find it, complain bitterly 
+
+	if (!MET_type(field, token.tok_string, &type)) {
+		sprintf(s, "undefined type %s", token.tok_string);
+		PAR_error(s);
+	}
+
+	ADVANCE_TOKEN;
+	action = MAKE_ACTION(0, ACT_type);
+	action->act_object = (REF) type;
+
+	return action;
+}
+
+
+#ifdef UNDEF
+//____________________________________________________________
+//  
+//		Recognize a C language variable.
+//  
+
+static void par_var_c( enum kwwords keyword)
+{
+	SYM symbol;
+	FLD field;
+	USHORT dtype, length;
+
+	if (sw_language != lang_c)
+		return;
+
+	switch (keyword) {
+	case KW_CHAR:
+		dtype = dtype_text;
+		break;
+
+	case KW_INT:
+		length = sizeof(int);
+		dtype = (length == 2) ? dtype_short : dtype_long;
+		break;
+
+	case KW_LONG:
+		dtype = dtype_long;
+		length = sizeof(SLONG);
+		break;
+
+	case KW_SHORT:
+		dtype = dtype_short;
+		length = sizeof(SSHORT);
+		break;
+
+	case KW_FLOAT:
+		dtype = dtype_real;
+		length = sizeof(float);
+		break;
+
+	case KW_DOUBLE:
+		dtype = dtype_double;
+		length = sizeof(double);
+		break;
+
+	default:
+		return;
+	}
+
+	for (;;) {
+		if (token.tok_type != tok_ident)
+			break;
+		field = (FLD) ALLOC(FLD_LEN);
+		field->fld_symbol = symbol =
+			MSC_symbol(SYM_variable, token.tok_string, token.tok_length,
+					   field);
+		ADVANCE_TOKEN;
+		if (keyword == KW_CHAR)
+			if (MATCH(KW_L_BRCKET)) {
+				if (token.tok_type != tok_number)
+					break;
+				length = EXP_USHORT_ordinal(TRUE);
+				MATCH(KW_R_BRCKET);
+			}
+			else
+				length = 1;
+		field->fld_dtype = dtype;
+		field->fld_length = length;
+		HSH_insert(symbol);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+}
+#endif
+
+
+//____________________________________________________________
+//  
+//		Parse a free reference to a database field in general
+//		program context.
+//  
+
+static ACT par_variable()
+{
+	register FLD field, cast;
+	register ACT action;
+	register REF reference, flag;
+	REQ request;
+	CTX context;
+	USHORT first, dot, is_null;
+
+//  
+//  Since fortran is fussy about continuations and the like,
+//  see if this variable token is the first thing in a statement.
+//  
+
+	is_null = FALSE;
+	first = token.tok_first;
+	field = EXP_field(&context);
+
+	if ((dot = MATCH(KW_DOT)) && (cast = EXP_cast(field))) {
+		field = cast;
+		dot = MATCH(KW_DOT);
+	}
+
+	if (dot && MATCH(KW_NULL)) {
+		is_null = TRUE;
+		dot = FALSE;
+	}
+
+	request = context->ctx_request;
+	reference = EXP_post_field(field, context, is_null);
+
+	if (field->fld_array)
+		EXP_post_array(reference);
+
+	action = MAKE_ACTION(request, ACT_variable);
+
+	if (first)
+		action->act_flags |= ACT_first;
+	if (dot)
+		action->act_flags |= ACT_back_token;
+
+	action->act_object = reference;
+
+	if (!is_null)
+		return action;
+
+//  We've got a explicit null flag referernce rather than a field
+//  reference.  If there's already a null reference for the field,
+//  use it; otherwise make one up. 
+
+	if (reference->ref_null) {
+		action->act_object = reference->ref_null;
+		return action;
+	}
+
+//  Check to see if the flag field has been allocated.  If not, sigh, allocate it 
+
+	flag = MAKE_REFERENCE(&request->req_references);
+	flag->ref_context = reference->ref_context;
+	flag->ref_field = PAR_null_field();
+	flag->ref_level = request->req_level;
+
+	flag->ref_master = reference;
+	reference->ref_null = flag;
+
+	action->act_object = flag;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Create a new window.
+//  
+
+static ACT par_window_create()
+{
+#ifdef NO_PYXIS
+	PAR_error("FORMs not supported");
+	return NULL;				/* silence compiler */
+#else
+	ACT action;
+
+	sw_pyxis = TRUE;
+	action = MAKE_ACTION(0, ACT_window_create);
+
+	return action;
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		Create a new window.
+//  
+
+static ACT par_window_delete()
+{
+#ifdef NO_PYXIS
+	PAR_error("FORMs not supported");
+	return NULL;				/* silence compiler */
+#else
+
+	return MAKE_ACTION(0, ACT_window_delete);
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		Establish the scope of window declarations,
+//		whether local, external, or global.   This
+//		is a purely declarative statement.
+//  
+
+static ACT par_window_scope()
+{
+#ifdef NO_PYXIS
+	PAR_error("FORMs not supported");
+	return NULL;				/* silence compiler */
+#else
+	ACT action;
+
+	if (MATCH(KW_EXTERN))
+		sw_window_scope = DBB_EXTERN;
+	else if (MATCH(KW_STATIC))
+		sw_window_scope = DBB_STATIC;
+	else if (MATCH(KW_GLOBAL))
+		sw_window_scope = DBB_GLOBAL;
+
+
+	action = MAKE_ACTION(0, ACT_noop);
+
+	if (sw_language != lang_fortran)
+		MATCH(KW_SEMI_COLON);
+
+	return action;
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		Create a new window.
+//  
+
+static ACT par_window_suspend()
+{
+#ifdef NO_PYXIS
+	PAR_error("FORMs not supported");
+	return NULL;				/* silence compiler */
+#else
+
+	return MAKE_ACTION(0, ACT_window_suspend);
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		This is PASCAL, and we've got a function, or procedure header.  
+//		Alas and alack, we have to decide if this is a real header or 
+//		a forward/external declaration.
+//  
+//		Basically we scan the thing, skipping parenthesized bits,
+//		looking for a semi-colon.  We look at the next token, which may
+//		be OPTIONS followed by a parenthesized list of options, or it
+//		may be just some options, or it may be nothing.  If the options
+//		are EXTERN or FORWARD, we've got a reference, otherwise its a real
+//		routine (or possibly program or module). 
+//  
+//		Fortunately all of these are of the form:
+//			<keyword> <name> [( blah, blah )] [: type] ; [<options>;] 
+//  
+//  
+
+static ACT scan_routine_header()
+{
+	ACT action;
+
+	action = MAKE_ACTION(0, ACT_routine);
+	action->act_flags |= ACT_mark;
+
+	while (!(MATCH(KW_SEMI_COLON)))
+		if (!(match_parentheses()))
+			ADVANCE_TOKEN;
+
+	if (MATCH(KW_OPTIONS) && MATCH(KW_LEFT_PAREN)) {
+		while (!(MATCH(KW_RIGHT_PAREN))) {
+			if (MATCH(KW_EXTERN) || MATCH(KW_FORWARD))
+				action->act_flags |= ACT_decl;
+			else
+				ADVANCE_TOKEN;
+		}
+		MATCH(KW_SEMI_COLON);
+	}
+	else
+		for (;;) {
+			if (MATCH(KW_EXTERN) || MATCH(KW_FORWARD)) {
+				action->act_flags |= ACT_decl;
+				MATCH(KW_SEMI_COLON);
+			}
+			else if (MATCH(KW_INTERNAL) || MATCH(KW_ABNORMAL) ||
+					 MATCH(KW_VARIABLE) || MATCH(KW_VAL_PARAM))
+				MATCH(KW_SEMI_COLON);
+			else
+				break;
+		}
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		If this is a external declaration in
+//		a BASIC program, set a flag to indicate
+//		the situation.
+//  
+
+static void set_external_flag()
+{
+
+	if (sw_language == lang_basic && token.tok_first)
+		bas_extern_flag = TRUE;
+
+	CPR_token();
+}
+
+
+//____________________________________________________________
+//  
+//		Check the current token for a logical terminator.  Terminators
+//		are semi-colon, ELSE, or ON_ERROR.
+//  
+
+static BOOLEAN terminator()
+{
+
+//  For C, changed KEYWORD (KW_SEMICOLON) to MATCH (KW_SEMICOLON) to eat a
+//  semicolon if it is present so as to allow it to be there or not be there.
+//  Bug#833.  mao 6/21/89 
+
+//  For C, right brace ("}") must also be a terminator. 
+
+	if (sw_language == lang_c) {
+		if (MATCH(KW_SEMI_COLON) ||
+			KEYWORD(KW_ELSE) || KEYWORD(KW_ON_ERROR) || KEYWORD(KW_R_BRACE))
+			return TRUE;
+	}
+	else if (sw_language == lang_ada) {
+		if (MATCH(KW_SEMI_COLON) || KEYWORD(KW_ELSE) || KEYWORD(KW_ON_ERROR))
+			return TRUE;
+	}
+	else {
+		if (KEYWORD(KW_SEMI_COLON) ||
+			KEYWORD(KW_ELSE) ||
+			KEYWORD(KW_ON_ERROR) ||
+			(sw_language == lang_cobol && KEYWORD(KW_DOT))) return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+} // extern "C"
diff --git a/src/gpre/par_proto.h b/src/gpre/par_proto.h
new file mode 100644
index 0000000000..ce0de18a26
--- /dev/null
+++ b/src/gpre/par_proto.h
@@ -0,0 +1,53 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		par_proto.h
+ *	DESCRIPTION:	Prototype header file for par.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_PAR_PROTO_H_
+#define _GPRE_PAR_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern ACT PAR_action(void);
+extern SSHORT PAR_blob_subtype(DBB);
+extern ACT PAR_database(USHORT);
+extern BOOLEAN PAR_end(void);
+extern void PAR_error(TEXT *);
+extern ACT PAR_event_init(USHORT);
+extern ACT PAR_event_wait(USHORT);
+extern void PAR_fini(void);
+extern TOK PAR_get_token(void);
+extern void PAR_init(void);
+extern TEXT *PAR_native_value(USHORT, USHORT);
+extern FLD PAR_null_field(void);
+extern void PAR_reserving(USHORT, SSHORT);
+extern REQ PAR_set_up_dpb_info(RDY, ACT, USHORT);
+extern SYM PAR_symbol(enum sym_t);
+extern void PAR_unwind(void);
+extern void PAR_using_db(void);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _GPRE_PAR_PROTO_H_ */
diff --git a/src/gpre/parse.h b/src/gpre/parse.h
new file mode 100644
index 0000000000..8003b7d069
--- /dev/null
+++ b/src/gpre/parse.h
@@ -0,0 +1,73 @@
+/*
+ *	PROGRAM:	Language Preprocessor
+ *	MODULE:		parse.h
+ *	DESCRIPTION:	Common parser definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_PARSE_H_
+#define _GPRE_PARSE_H_
+
+typedef enum kwwords {
+	KW_none = 0,
+#include "../gpre/words.h"
+	KW_max
+} KWWORDS;
+
+#define MATCH(keyword) 		MSC_match(keyword)
+#define KEYWORD(kw)		((int) token.tok_keyword == (int) kw)
+#define ADVANCE_TOKEN		PAR_get_token ()
+#define SYNTAX_ERROR		CPR_s_error
+
+/* Token block, used to hold a lexical token. */
+
+enum tok_t {
+	tok_ident,
+	tok_number,
+	tok_quoted,
+	tok_punct,
+	tok_introducer,
+	tok_dblquoted
+};
+
+typedef struct tok {
+	enum tok_t tok_type;		/* type of token */
+	struct sym *tok_symbol;		/* hash block if recognized */
+	KWWORDS tok_keyword;		/* keyword number, if recognized */
+	SLONG tok_position;			/* byte number in input stream */
+	USHORT tok_length;
+	USHORT tok_white_space;
+	SCHAR tok_string[MAXSYMLEN];
+	USHORT tok_first;			/* first token in a statement */
+	struct sym *tok_charset;	/* Character set of token */
+} *TOK;
+
+#define TOK_LEN sizeof (struct tok)
+
+#ifdef PARSER_MAIN
+#define EXTERN
+#else
+#define EXTERN	extern
+#endif
+
+EXTERN struct tok token;
+
+#undef EXTERN
+
+#endif /* _GPRE_PARSE_H_ */
diff --git a/src/gpre/pas.cpp b/src/gpre/pas.cpp
new file mode 100644
index 0000000000..be89226018
--- /dev/null
+++ b/src/gpre/pas.cpp
@@ -0,0 +1,4360 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	PASCAL preprocesser
+//		MODULE:		pas.cpp
+//		DESCRIPTION:	Inserted text generator for Domain Pascal
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  
+//
+//____________________________________________________________
+//
+//	$Id: pas.cpp,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+//
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../gpre/gpre.h"
+#include "../gpre/form.h"
+#include "../gpre/pat.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/lang_proto.h"
+#include "../gpre/pat_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/prett_proto.h"
+#include "../jrd/gds_proto.h"
+
+#pragma FB_COMPILER_MESSAGE("This file is not fit for public consumption")
+#error compiler halted, 'rogue' not found...
+// TMN: Upon converting this file to C++, it has been noted
+// that this code would never have worked because of (SEGV) bug(s),
+// why I rather than trying to use it currently remove it from compilation.
+
+
+static void align(int);
+static void asgn_from(ACT, REF, int);
+static void asgn_sqlda_from(REF, int, TEXT *, int);
+static void asgn_to(ACT, REF, int);
+static void asgn_to_proc(REF, int);
+static void gen_at_end(ACT, int);
+static void gen_based(ACT, int);
+static void gen_blob_close(ACT, USHORT);
+static void gen_blob_end(ACT, USHORT);
+static void gen_blob_for(ACT, USHORT);
+static void gen_blob_open(ACT, USHORT);
+static int gen_blr(int *, int, TEXT *);
+static void gen_compile(ACT, int);
+static void gen_create_database(ACT, int);
+static int gen_cursor_close(ACT, REQ, int);
+static void gen_cursor_init(ACT, int);
+static int gen_cursor_open(ACT, REQ, int);
+static void gen_database(ACT, int);
+static void gen_ddl(ACT, int);
+static void gen_drop_database(ACT, int);
+static void gen_dyn_close(ACT, int);
+static void gen_dyn_declare(ACT, int);
+static void gen_dyn_describe(ACT, int, BOOLEAN);
+static void gen_dyn_execute(ACT, int);
+static void gen_dyn_fetch(ACT, int);
+static void gen_dyn_immediate(ACT, int);
+static void gen_dyn_insert(ACT, int);
+static void gen_dyn_open(ACT, int);
+static void gen_dyn_prepare(ACT, int);
+static void gen_emodify(ACT, int);
+static void gen_estore(ACT, int);
+static void gen_endfor(ACT, int);
+static void gen_erase(ACT, int);
+static SSHORT gen_event_block(ACT);
+static void gen_event_init(ACT, int);
+static void gen_event_wait(ACT, int);
+static void gen_fetch(ACT, int);
+static void gen_finish(ACT, int);
+static void gen_for(ACT, int);
+static void gen_form_display(ACT, int);
+static void gen_form_end(ACT, int);
+static void gen_form_for(ACT, int);
+static void gen_get_or_put_slice(ACT, REF, BOOLEAN, int);
+static void gen_get_segment(ACT, int);
+static void gen_item_end(ACT, int);
+static void gen_item_for(ACT, int);
+static void gen_loop(ACT, int);
+static void gen_menu(ACT, int);
+static void gen_menu_display(ACT, int);
+static void gen_menu_entree(ACT, int);
+static void gen_menu_entree_att(ACT, int);
+static void gen_menu_for(ACT, int);
+static void gen_menu_item_end(ACT, int);
+static void gen_menu_item_for(ACT, int);
+static void gen_menu_request(REQ, int);
+static TEXT *gen_name(TEXT *, REF, BOOLEAN);
+static void gen_on_error(ACT, USHORT);
+static void gen_procedure(ACT, int);
+static void gen_put_segment(ACT, int);
+static int gen_raw(UCHAR *, int, int);
+static int gen_ready(ACT, int);
+static int gen_receive(ACT, int, POR);
+static int gen_release(ACT, int);
+static int gen_request(REQ, int);
+static int gen_return_value(ACT, int);
+static int gen_routine(ACT, int);
+static int gen_s_end(ACT, int);
+static int gen_s_fetch(ACT, int);
+static int gen_s_start(ACT, int);
+static int gen_segment(ACT, int);
+static int gen_select(ACT, int);
+static int gen_send(ACT, POR, int);
+static int gen_slice(ACT, int);
+static int gen_start(ACT, POR, int);
+static int gen_store(ACT, int);
+static void gen_t_start(ACT, int);
+static int gen_tpb(TPB, int);
+static int gen_trans(ACT, int);
+static void gen_update(ACT, int);
+static void gen_variable(ACT, int);
+static void gen_whenever(SWE, int);
+static void gen_window_create(ACT, int);
+static void gen_window_delete(ACT, int);
+static void gen_window_suspend(ACT, int);
+static void make_array_declaration(REF);
+static TEXT *make_name(TEXT *, SYM);
+static int make_ok_test(ACT, REQ, int);
+static void make_port(POR, int);
+static int make_ready(DBB, TEXT *, TEXT *, USHORT, REQ);
+static int printa(int, TEXT *, ...);
+static TEXT *request_trans(ACT, REQ);
+static TEXT *status_vector(ACT);
+static int t_start_auto(ACT, REQ, TEXT *, int);
+
+static int first_flag;
+
+#define INDENT 3
+#define BEGIN		printa (column, "begin")
+#define END		printa (column, "end")
+#define ENDS		printa (column, "end;")
+
+#ifdef VMS
+#define SHORT_DCL	"gds__short"
+#define LONG_DCL	"integer"
+#define POINTER_DCL	"gds__ptr_type"
+#define PACKED_ARRAY	"packed array"
+#define OPEN_BRACKET	"("
+#define CLOSE_BRACKET	")"
+#define REF_PAR		"%REF "
+#define SIZEOF		"size"
+#define STATIC_STRING	"[STATIC]"
+#define ISC_BADDRESS	"ISC_BADDRESS"
+#else
+#define SHORT_DCL	"integer16"
+#define LONG_DCL	"integer32"
+#define POINTER_DCL	"UNIV_PTR"
+#define PACKED_ARRAY	"array"
+#define OPEN_BRACKET	"["
+#define CLOSE_BRACKET	"]"
+#define REF_PAR		""
+#define SIZEOF		"sizeof"
+#define STATIC_STRING	"STATIC"
+#define ISC_BADDRESS	"ADDR"
+#endif
+
+#define FB_DP_VOLATILE		""
+#define GDS_EVENT_COUNTS	"GDS__EVENT_COUNTS"
+#define GDS_EVENT_WAIT		"GDS__EVENT_WAIT"
+
+#define SET_SQLCODE	if (action->act_flags & ACT_sql) printa (column, "SQLCODE := gds__sqlcode (gds__status);")
+
+
+//____________________________________________________________
+//  
+//		Code generator for Domain Pascal.  Not to be confused with
+//		the language "Pascal".
+//  
+
+void PAS_action( ACT action, int column)
+{
+
+//  Put leading braces where required 
+
+	switch (action->act_type) {
+	case ACT_alter_database:
+	case ACT_alter_domain:
+	case ACT_alter_table:
+	case ACT_alter_index:
+	case ACT_blob_close:
+	case ACT_blob_create:
+	case ACT_blob_for:
+	case ACT_blob_open:
+	case ACT_close:
+	case ACT_commit:
+	case ACT_commit_retain_context:
+	case ACT_create_database:
+	case ACT_create_domain:
+	case ACT_create_generator:
+	case ACT_create_index:
+	case ACT_create_shadow:
+	case ACT_create_table:
+	case ACT_create_view:
+	case ACT_declare_filter:
+	case ACT_declare_udf:
+	case ACT_disconnect:
+	case ACT_drop_database:
+	case ACT_drop_domain:
+	case ACT_drop_filter:
+	case ACT_drop_index:
+	case ACT_drop_shadow:
+	case ACT_drop_table:
+	case ACT_drop_udf:
+	case ACT_drop_view:
+	case ACT_dyn_close:
+	case ACT_dyn_cursor:
+	case ACT_dyn_describe:
+	case ACT_dyn_describe_input:
+	case ACT_dyn_execute:
+	case ACT_dyn_fetch:
+	case ACT_dyn_grant:
+	case ACT_dyn_immediate:
+	case ACT_dyn_insert:
+	case ACT_dyn_open:
+	case ACT_dyn_prepare:
+	case ACT_dyn_revoke:
+	case ACT_fetch:
+	case ACT_finish:
+	case ACT_for:
+	case ACT_form_display:
+	case ACT_form_for:
+	case ACT_get_segment:
+	case ACT_get_slice:
+	case ACT_insert:
+	case ACT_item_for:
+	case ACT_item_put:
+	case ACT_loop:
+	case ACT_menu_for:
+	case ACT_modify:
+	case ACT_open:
+	case ACT_prepare:
+	case ACT_procedure:
+	case ACT_put_slice:
+	case ACT_ready:
+	case ACT_release:
+	case ACT_rfinish:
+	case ACT_rollback:
+	case ACT_s_fetch:
+	case ACT_s_start:
+	case ACT_select:
+	case ACT_start:
+	case ACT_store:
+	case ACT_update:
+	case ACT_statistics:
+		BEGIN;
+	};
+
+	switch (action->act_type) {
+	case ACT_alter_domain:
+	case ACT_create_domain:
+	case ACT_create_generator:
+	case ACT_create_shadow:
+	case ACT_declare_filter:
+	case ACT_declare_udf:
+	case ACT_drop_domain:
+	case ACT_drop_filter:
+	case ACT_drop_shadow:
+	case ACT_drop_udf:
+	case ACT_statistics:
+	case ACT_alter_index:
+	case ACT_alter_table:
+		gen_ddl(action, column);
+		break;
+	case ACT_at_end:
+		gen_at_end(action, column);
+		return;
+	case ACT_b_declare:
+		gen_database(action, column);
+		gen_routine(action, column);
+		return;
+	case ACT_basedon:
+		gen_based(action, column);
+		return;
+	case ACT_blob_cancel:
+		gen_blob_close(action, column);
+		return;
+	case ACT_blob_close:
+		gen_blob_close(action, column);
+		break;
+	case ACT_blob_create:
+		gen_blob_open(action, column);
+		break;
+	case ACT_blob_for:
+		gen_blob_for(action, column);
+		return;
+	case ACT_blob_handle:
+		gen_segment(action, column);
+		return;
+	case ACT_blob_open:
+		gen_blob_open(action, column);
+		break;
+	case ACT_close:
+		gen_s_end(action, column);
+		break;
+	case ACT_commit:
+		gen_trans(action, column);
+		break;
+	case ACT_commit_retain_context:
+		gen_trans(action, column);
+		break;
+	case ACT_create_database:
+		gen_create_database(action, column);
+		break;
+	case ACT_create_index:
+		gen_ddl(action, column);
+		break;
+	case ACT_create_table:
+		gen_ddl(action, column);
+		break;
+	case ACT_create_view:
+		gen_ddl(action, column);
+		break;
+	case ACT_cursor:
+		gen_cursor_init(action, column);
+		return;
+	case ACT_database:
+		gen_database(action, column);
+		return;
+	case ACT_disconnect:
+		gen_finish(action, column);
+		break;
+	case ACT_drop_database:
+		gen_drop_database(action, column);
+		break;
+	case ACT_drop_index:
+		gen_ddl(action, column);
+		break;
+	case ACT_drop_table:
+		gen_ddl(action, column);
+		break;
+	case ACT_drop_view:
+		gen_ddl(action, column);
+		break;
+	case ACT_dyn_close:
+		gen_dyn_close(action, column);
+		break;
+	case ACT_dyn_cursor:
+		gen_dyn_declare(action, column);
+		break;
+	case ACT_dyn_describe:
+		gen_dyn_describe(action, column, FALSE);
+		break;
+	case ACT_dyn_describe_input:
+		gen_dyn_describe(action, column, TRUE);
+		break;
+	case ACT_dyn_execute:
+		gen_dyn_execute(action, column);
+		break;
+	case ACT_dyn_fetch:
+		gen_dyn_fetch(action, column);
+		break;
+	case ACT_dyn_grant:
+		gen_ddl(action, column);
+		break;
+	case ACT_dyn_immediate:
+		gen_dyn_immediate(action, column);
+		break;
+	case ACT_dyn_insert:
+		gen_dyn_insert(action, column);
+		break;
+	case ACT_dyn_open:
+		gen_dyn_open(action, column);
+		break;
+	case ACT_dyn_prepare:
+		gen_dyn_prepare(action, column);
+		break;
+	case ACT_dyn_revoke:
+		gen_ddl(action, column);
+		break;
+	case ACT_endblob:
+		gen_blob_end(action, column);
+		return;
+	case ACT_enderror:{
+			column += INDENT;
+			END;
+			column -= INDENT;
+		}
+		break;
+	case ACT_endfor:
+		gen_endfor(action, column);
+		break;
+	case ACT_endmodify:
+		gen_emodify(action, column);
+		break;
+	case ACT_endstore:
+		gen_estore(action, column);
+		break;
+	case ACT_erase:
+		gen_erase(action, column);
+		return;
+	case ACT_event_init:
+		gen_event_init(action, column);
+		break;
+	case ACT_event_wait:
+		gen_event_wait(action, column);
+		break;
+	case ACT_fetch:
+		gen_fetch(action, column);
+		break;
+	case ACT_finish:
+		gen_finish(action, column);
+		break;
+	case ACT_for:
+		gen_for(action, column);
+		return;
+	case ACT_form_display:
+		gen_form_display(action, column);
+		break;
+	case ACT_form_end:
+		gen_form_end(action, column);
+		break;
+	case ACT_form_for:
+		gen_form_for(action, column);
+		return;
+	case ACT_get_segment:
+		gen_get_segment(action, column);
+		break;
+	case ACT_get_slice:
+		gen_slice(action, column);
+		break;
+	case ACT_hctef:
+		ENDS;
+		break;
+	case ACT_insert:
+		gen_s_start(action, column);
+		break;
+	case ACT_item_for:
+	case ACT_item_put:
+		gen_item_for(action, column);
+		return;
+	case ACT_item_end:
+		gen_item_end(action, column);
+		break;
+	case ACT_loop:
+		gen_loop(action, column);
+		break;
+	case ACT_menu:
+		gen_menu(action, column);
+		return;
+	case ACT_menu_display:
+		gen_menu_display(action, column);
+		return;
+	case ACT_menu_end:
+		break;
+	case ACT_menu_entree:
+		gen_menu_entree(action, column);
+		return;
+	case ACT_menu_for:
+		gen_menu_for(action, column);
+		return;
+
+	case ACT_title_text:
+	case ACT_title_length:
+	case ACT_terminator:
+	case ACT_entree_text:
+	case ACT_entree_length:
+	case ACT_entree_value:
+		gen_menu_entree_att(action, column);
+		return;
+
+	case ACT_on_error:
+		gen_on_error(action, column);
+		return;
+	case ACT_open:
+		gen_s_start(action, column);
+		break;
+	case ACT_ready:
+		gen_ready(action, column);
+		break;
+	case ACT_put_segment:
+		gen_put_segment(action, column);
+		break;
+	case ACT_put_slice:
+		gen_slice(action, column);
+		break;
+	case ACT_prepare:
+		gen_trans(action, column);
+		break;
+	case ACT_procedure:
+		gen_procedure(action, column);
+		break;
+	case ACT_release:
+		gen_release(action, column);
+		break;
+	case ACT_rfinish:
+		gen_finish(action, column);
+		break;
+	case ACT_rollback:
+		gen_trans(action, column);
+		break;
+	case ACT_routine:
+		gen_routine(action, column);
+		return;
+	case ACT_s_end:
+		gen_s_end(action, column);
+		return;
+	case ACT_s_fetch:
+		gen_s_fetch(action, column);
+		return;
+	case ACT_s_start:
+		gen_s_start(action, column);
+		break;
+	case ACT_segment:
+		gen_segment(action, column);
+		return;
+	case ACT_segment_length:
+		gen_segment(action, column);
+		return;
+	case ACT_sql_dialect:
+		sw_sql_dialect = ((SDT) action->act_object)->sdt_dialect;
+		return;
+	case ACT_select:
+		gen_select(action, column);
+		break;
+	case ACT_start:
+		gen_t_start(action, column);
+		break;
+	case ACT_store:
+		gen_store(action, column);
+		return;
+	case ACT_store2:
+		gen_return_value(action, column);
+		return;
+	case ACT_update:
+		gen_update(action, column);
+		break;
+	case ACT_variable:
+		gen_variable(action, column);
+		return;
+	case ACT_window_create:
+		gen_window_create(action, column);
+		return;
+	case ACT_window_delete:
+		gen_window_delete(action, column);
+		return;
+	case ACT_window_suspend:
+		gen_window_suspend(action, column);
+		return;
+
+	default:
+		return;
+	};
+
+//  Put in a trailing brace for those actions still with us 
+
+	if (action->act_flags & ACT_sql)
+		gen_whenever(action->act_whenever, column);
+
+	if (action->act_error)
+		ib_fprintf(out_file, ";");
+	else
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Align output to a specific column for output.
+//  
+
+static void align( int column)
+{
+	int i;
+
+	ib_putc('\n', out_file);
+
+	if (column < 0)
+		return;
+
+	for (i = column / 8; i; --i)
+		ib_putc('\t', out_file);
+
+	for (i = column % 8; i; --i)
+		ib_putc(' ', out_file);
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment from a host language variable to
+//		a port variable.
+//  
+
+static void asgn_from( ACT action, REF reference, int column)
+{
+	FLD field;
+	TEXT *value, name[64], variable[20], temp[20];
+
+	for (; reference; reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (field->fld_array_info)
+			if (!(reference->ref_flags & REF_array_elem)) {
+				printa(column, "%s := gds__blob_null;\n",
+					   gen_name(name, reference, TRUE));
+				gen_get_or_put_slice(action, reference, FALSE, column);
+				continue;
+			}
+
+		if (!reference->ref_source && !reference->ref_value)
+			continue;
+		align(column);
+		gen_name(variable, reference, TRUE);
+		if (reference->ref_source)
+			value = gen_name(temp, reference->ref_source, TRUE);
+		else
+			value = reference->ref_value;
+		if (reference->ref_value && (reference->ref_flags & REF_array_elem))
+			field = field->fld_array;
+		if (!field || (field->fld_flags & FLD_text))
+			ib_fprintf(out_file, "gds__ftof (%s%s, %s (%s), %s%s, %d);",
+					   REF_PAR, value, SIZEOF, value, REF_PAR, variable,
+					   field->fld_length);
+		else if (!reference->ref_master
+				 || (reference->ref_flags & REF_literal)) ib_fprintf(out_file,
+																	 "%s := %s;",
+																	 variable,
+																	 value);
+		else {
+			ib_fprintf(out_file, "if %s < 0 then", value);
+			align(column + 4);
+			ib_fprintf(out_file, "%s := -1", variable);
+			align(column);
+			ib_fprintf(out_file, "else");
+			align(column + 4);
+			ib_fprintf(out_file, "%s := 0;", variable);
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment from a host language variable to
+//		a sqlda variable.
+//  
+
+static void asgn_sqlda_from( REF reference, int number, TEXT * string, int column)
+{
+	TEXT *value, temp[20];
+
+	for (; reference; reference = reference->ref_next) {
+		align(column);
+		if (reference->ref_source)
+			value = gen_name(temp, reference->ref_source, TRUE);
+		else
+			value = reference->ref_value;
+		ib_fprintf(out_file,
+				   "gds__to_sqlda (gds__sqlda, %d, %s, %s(%s), %s);", number,
+				   SIZEOF, value, value, string);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment to a host language variable from
+//		a port variable.
+//  
+
+static void asgn_to(ACT action, REF reference, int column)
+{
+	FLD field;
+	REF source;
+	TEXT s[128];
+
+	source = reference->ref_friend;
+	field = source->ref_field;
+
+	if (field && field->fld_array_info) {
+		source->ref_value = reference->ref_value;
+		gen_get_or_put_slice(action, source, TRUE, column);
+		return;
+	}
+
+	if (field && (field->fld_flags & FLD_text))
+		ib_fprintf(out_file, "gds__ftof (%s%s, %d, %s%s, %s (%s));",
+				   REF_PAR, gen_name(s, source, TRUE),
+				   field->fld_length,
+				   REF_PAR, reference->ref_value,
+				   SIZEOF, reference->ref_value);
+	else
+		ib_fprintf(out_file, "%s := %s;", reference->ref_value,
+				   gen_name(s, source, TRUE));
+
+//  Pick up NULL value if one is there 
+
+	if (reference = reference->ref_null)
+		ib_fprintf(out_file, "%s := %s;", reference->ref_value,
+				   gen_name(s, reference, TRUE));
+}
+
+
+//____________________________________________________________
+//  
+//		Build an assignment to a host language variable from
+//		a port variable.
+//  
+
+static void asgn_to_proc(REF reference, int column)
+{
+	FLD field;
+	TEXT s[64];
+
+	for (; reference; reference = reference->ref_next) {
+		if (!reference->ref_value)
+			continue;
+		field = reference->ref_field;
+		gen_name(s, reference, TRUE);
+		align(column);
+		if (field && (field->fld_flags & FLD_text))
+			ib_fprintf(out_file, "gds__ftof (%s%s, %d, %s%s, %s (%s));",
+					   REF_PAR, gen_name(s, reference, TRUE),
+					   field->fld_length,
+					   REF_PAR, reference->ref_value,
+					   SIZEOF, reference->ref_value);
+		else
+			ib_fprintf(out_file, "%s := %s;",
+					   reference->ref_value, gen_name(s, reference, TRUE));
+
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for AT END clause of FETCH.
+//  
+
+static void gen_at_end( ACT action, int column)
+{
+	REQ request;
+	TEXT s[20];
+
+	request = action->act_request;
+	printa(column, "if %s = 0 then begin",
+		   gen_name(s, request->req_eof, TRUE));
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a BASED ON <field name> clause.
+//  
+
+static void gen_based( ACT action, int column)
+{
+	BAS based_on;
+	FLD field;
+	TEXT s[64];
+	SSHORT datatype;
+	SLONG length;
+	DIM dimension;
+
+	align(column);
+	based_on = (BAS) action->act_object;
+	field = based_on->bas_field;
+
+	if (based_on->bas_flags & BAS_segment) {
+		datatype = dtype_text;
+		if (!(length = field->fld_seg_length))
+			length = 256;
+		ib_fprintf(out_file, "%s [1..%d] of ", PACKED_ARRAY, length);
+	}
+	else if (field->fld_array_info) {
+		datatype = field->fld_array_info->ary_dtype;
+		if (datatype <= dtype_varying)
+			ib_fprintf(out_file, "%s [", PACKED_ARRAY);
+		else
+			ib_fprintf(out_file, "array [");
+
+		for (dimension = field->fld_array_info->ary_dimension; dimension;
+			 dimension = dimension->dim_next) {
+			ib_fprintf(out_file, "%d..%d", dimension->dim_lower,
+					   dimension->dim_upper);
+			if (dimension->dim_next)
+				ib_fprintf(out_file, ", ");
+		}
+		if (datatype <= dtype_varying)
+			ib_fprintf(out_file, ", 1..%d", field->fld_array->fld_length);
+
+		ib_fprintf(out_file, "] of ");
+	}
+	else {
+		datatype = field->fld_dtype;
+		if (datatype <= dtype_varying)
+			ib_fprintf(out_file, "%s [1..%d] of ", PACKED_ARRAY,
+					   field->fld_length);
+	}
+
+	switch (datatype) {
+	case dtype_short:
+		ib_fprintf(out_file, "%s;", SHORT_DCL);
+		break;
+
+	case dtype_long:
+		ib_fprintf(out_file, "%s;", LONG_DCL);
+		break;
+
+	case dtype_date:
+	case dtype_blob:
+	case dtype_quad:
+		ib_fprintf(out_file, "gds__quad;");
+		break;
+
+	case dtype_text:
+		ib_fprintf(out_file, "char;");
+		break;
+
+	case dtype_float:
+		ib_fprintf(out_file, "real;");
+		break;
+
+	case dtype_double:
+		ib_fprintf(out_file, "double;");
+		break;
+
+	default:
+		sprintf(s, "datatype %d unknown\n", field->fld_dtype);
+		CPR_error(s);
+		return;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Make a blob FOR loop.
+//  
+
+static void gen_blob_close( ACT action, USHORT column)
+{
+	TEXT *command;
+	BLB blob;
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		BEGIN;
+
+	if (action->act_flags & ACT_sql) {
+		column = gen_cursor_close(action, action->act_request, column);
+		blob = (BLB) action->act_request->req_blobs;
+	}
+	else
+		blob = (BLB) action->act_object;
+
+	command = (action->act_type == ACT_blob_cancel) ? "CANCEL" : "CLOSE";
+	printa(column, "GDS__%s_BLOB (%s, gds__%d);",
+		   command, status_vector(action), blob->blb_ident);
+
+	if (action->act_flags & ACT_sql) {
+		END;
+		column -= INDENT;
+		ENDS;
+		column -= INDENT;
+		SET_SQLCODE;
+		END;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		End a blob FOR loop.
+//  
+
+static void gen_blob_end(ACT action, USHORT column)
+{
+	BLB blob;
+
+	blob = (BLB) action->act_object;
+#ifdef VMS
+	gen_get_segment(action, column + INDENT);
+#endif
+	printa(column + INDENT, "end;");
+	if (action->act_error)
+		printa(column, "GDS__CLOSE_BLOB (gds__status2, gds__%d);",
+			   blob->blb_ident);
+	else
+		printa(column, "GDS__CLOSE_BLOB (%s, gds__%d);",
+			   status_vector(0), blob->blb_ident);
+	if (action->act_error)
+		ENDS;
+	else
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Make a blob FOR loop.
+//  
+
+static void gen_blob_for( ACT action, USHORT column)
+{
+
+	gen_blob_open(action, column);
+	if (action->act_error)
+		printa(column, "if (gds__status[2] = 0) then begin");
+#ifdef VMS
+	gen_get_segment(action, column + INDENT);
+	printa(column + INDENT,
+		   "while ((gds__status[2] = 0) or (gds__status[2] = gds__segment)) do");
+	printa(column + INDENT, "begin");
+#else
+	printa(column, "while (true) do begin");
+	gen_get_segment(action, column + INDENT);
+	printa(column + INDENT,
+		   "if ((gds__status[2] <> 0) and (gds__status[2] <> gds__segment)) then");
+	printa(column + 2 * INDENT, "exit;");
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the call to open (or create) a blob.
+//  
+
+static void gen_blob_open( ACT action, USHORT column)
+{
+	BLB blob;
+	PAT args;
+	REF reference;
+	TEXT s[20];
+	TEXT *pattern1 =
+		"GDS__%IFCREATE%ELOPEN%EN_BLOB2 (%V1, %RF%DH, %RF%RT, %RF%BH, %RF%FR, %N1, %RF%I1);",
+		*pattern2 =
+		"GDS__%IFCREATE%ELOPEN%EN_BLOB2 (%V1, %RF%DH, %RF%RT, %RF%BH, %RF%FR, 0, 0);";
+
+	if (sw_auto && (action->act_flags & ACT_sql)) {
+		t_start_auto(action, action->act_request, status_vector(action),
+					 column);
+		printa(column, "if %s <> nil then",
+			   request_trans(action, action->act_request));
+		column += INDENT;
+	}
+
+	if ((action->act_error && (action->act_type != ACT_blob_for)) ||
+		action->act_flags & ACT_sql)
+		BEGIN;
+
+	if (action->act_flags & ACT_sql) {
+		column = gen_cursor_open(action, action->act_request, column);
+		blob = (BLB) action->act_request->req_blobs;
+		reference = ((OPN) action->act_object)->opn_using;
+		gen_name(s, reference, TRUE);
+	}
+	else {
+		blob = (BLB) action->act_object;
+		reference = blob->blb_reference;
+	}
+
+	args.pat_condition = action->act_type == ACT_blob_create;	/*  open or create blob  */
+	args.pat_vector1 = status_vector(action);	/*  status vector        */
+	args.pat_database = blob->blb_request->req_database;	/*  database handle      */
+	args.pat_request = blob->blb_request;	/*  transaction handle   */
+	args.pat_blob = blob;		/*  blob handle          */
+	args.pat_reference = reference;	/*  blob identifier      */
+	args.pat_ident1 = blob->blb_bpb_ident;
+
+	if ((action->act_flags & ACT_sql) && action->act_type == ACT_blob_open)
+		printa(column, "%s := %s;", s, reference->ref_value);
+
+	if (args.pat_value1 = blob->blb_bpb_length)
+		PATTERN_expand(column, pattern1, &args);
+	else
+		PATTERN_expand(column, pattern2, &args);
+
+	if (action->act_flags & ACT_sql) {
+		END;
+		column -= INDENT;
+		END;
+		column -= INDENT;
+		ENDS;
+		column -= INDENT;
+		if (sw_auto) {
+			END;
+			column -= INDENT;
+		}
+		SET_SQLCODE;
+		if (action->act_type == ACT_blob_create) {
+			printa(column, "if SQLCODE = 0 then");
+			align(column + INDENT);
+			ib_fprintf(out_file, "%s := %s;", reference->ref_value, s);
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Callback routine for BLR pretty printer.
+//  
+
+static int gen_blr( int *user_arg, int offset, TEXT * string)
+{
+	int indent, length;
+	TEXT *p, *q, c;
+	BOOLEAN open_quote, first_line;
+
+	first_line = TRUE;
+	indent = 2 * INDENT;
+	p = string;
+	while (*p == ' ') {
+		p++;
+		indent++;
+	}
+
+//  Limit indentation to 192 characters 
+
+	indent = MIN(indent, 192);
+
+	length = strlen(p);
+	while (length + indent > 255) {
+		/* if we did not find somewhere to break between the 200th and 256th character
+		   just print out 256 characters */
+
+		for (q = p, open_quote = FALSE; (q - p + indent) < 255; q++) {
+			if ((q - p + indent) > 220 && *q == ',' && !open_quote)
+				break;
+			if (*q == '\'' && *(q - 1) != '\\')
+				open_quote = !open_quote;
+		}
+		c = *++q;
+		*q = 0;
+		printa(indent, p);
+		*q = c;
+		length = length - (q - p);
+		p = q;
+		if (first_line) {
+			indent = MIN(indent + INDENT, 192);
+			first_line = FALSE;
+		}
+	}
+	printa(indent, p);
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile a request.
+//  
+
+static void gen_compile( ACT action, int column)
+{
+	REQ request;
+	DBB db;
+	SYM symbol;
+	TEXT *filename;
+	BLB blob;
+
+	request = action->act_request;
+	db = request->req_database;
+	symbol = db->dbb_name;
+
+	if (sw_auto) {
+		if ((filename = db->dbb_runtime) || !(db->dbb_flags & DBB_sqlca)) {
+			printa(column, "if %s = nil then", symbol->sym_string);
+			make_ready(db, filename, status_vector(action), column + INDENT,
+					   0);
+		}
+		if (action->act_error || (action->act_flags & ACT_sql))
+			printa(column, "if (%s = nil) and (%s <> nil) then",
+				   request_trans(action, request), symbol->sym_string);
+		else
+			printa(column, "if %s = nil then",
+				   request_trans(action, request));
+		t_start_auto(action, request, status_vector(action), column + INDENT);
+	}
+
+	if ((action->act_error || (action->act_flags & ACT_sql)) && sw_auto)
+		printa(column, "if (%s = nil) and (%s <> nil) then",
+			   request->req_handle, request_trans(action, request));
+	else
+		printa(column, "if %s = nil then", request->req_handle);
+
+	align(column + INDENT);
+	ib_fprintf(out_file,
+			   "GDS__COMPILE_REQUEST%s (%s, %s, %s, %d, gds__%d);\n",
+			   (request->req_flags & REQ_exp_hand) ? "" : "2",
+			   status_vector(action), symbol->sym_string, request->req_handle,
+			   request->req_length, request->req_ident);
+
+//  If blobs are present, zero out all of the blob handles.  After this
+//  point, the handles are the user's responsibility 
+
+	for (blob = request->req_blobs; blob; blob = blob->blb_next)
+		printa(column - INDENT, "gds__%d := nil;", blob->blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to create a database.
+//  
+
+static void gen_create_database( ACT action, int column)
+{
+	REQ request;
+	DBB db;
+	USHORT save_sw_auto;
+
+	request = ((MDBB) action->act_object)->mdbb_dpb_request;
+	db = (DBB) request->req_database;
+	align(column);
+
+	if (request->req_length)
+		ib_fprintf(out_file,
+				   "GDS__CREATE_DATABASE (%s, %d, '%s', %s, %d, gds__%d, 0);",
+				   status_vector(action),
+				   strlen(db->dbb_filename),
+				   db->dbb_filename,
+				   db->dbb_name->sym_string,
+				   request->req_length, request->req_ident);
+	else
+		ib_fprintf(out_file,
+				   "GDS__CREATE_DATABASE (%s, %d, '%s', %s, 0, 0, 0);",
+				   status_vector(action),
+				   strlen(db->dbb_filename),
+				   db->dbb_filename, db->dbb_name->sym_string);
+
+	save_sw_auto = sw_auto;
+	sw_auto = TRUE;
+	printa(column, "if (gds__status [2] = 0) then");
+	BEGIN;
+	gen_ddl(action, column);
+	ENDS;
+	sw_auto = save_sw_auto;
+	column -= INDENT;
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STREAM.
+//  
+
+static gen_cursor_close( ACT action, REQ request, int column)
+{
+	PAT args;
+	TEXT *pattern1 = "if %RIs <> nil then";
+	TEXT *pattern2 = "isc_dsql_free_statement (%V1, %RF%RIs, %N1);";
+
+	args.pat_request = request;
+	args.pat_vector1 = status_vector(action);
+	args.pat_value1 = 1;
+
+	PATTERN_expand(column, pattern1, &args);
+	column += INDENT;
+	BEGIN;
+	PATTERN_expand(column, pattern2, &args);
+	printa(column, "if (gds__status[2] = 0) then");
+	column += INDENT;
+	BEGIN;
+
+	return column;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to initialize a cursor.
+//  
+
+static void gen_cursor_init( ACT action, int column)
+{
+
+//  If blobs are present, zero out all of the blob handles.  After this
+//  point, the handles are the user's responsibility 
+
+	if (action->act_request->
+		req_flags & (REQ_sql_blob_open | REQ_sql_blob_create)) printa(column,
+																	  "gds__%d := nil;",
+																	  action->
+																	  act_request->
+																	  req_blobs->
+																	  blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to open an embedded SQL cursor.
+//  
+
+static gen_cursor_open( ACT action, REQ request, int column)
+{
+	PAT args;
+	TEXT s[64];
+	TEXT *pattern1 =
+		"if (%RIs = nil) and (%RH <> nil)%IF and (%DH <> nil)%EN then",
+		*pattern2 = "if (%RIs = nil)%IF and (%DH <> nil)%EN then", *pattern3 =
+		"isc_dsql_alloc_statement2 (%V1, %RF%DH, %RF%RIs);", *pattern4 =
+		"if (%RIs <> nil)%IF and (%S3 <> nil)%EN then", *pattern5 =
+		"isc_dsql_set_cursor_name (%V1, %RF%RIs, %S1, 0);", *pattern6 =
+		"isc_dsql_execute_m (%V1, %RF%S3, %RF%RIs, 0, gds__null, %N2, 0, gds__null);";
+
+	args.pat_request = request;
+	args.pat_database = request->req_database;
+	args.pat_vector1 = status_vector(action);
+	args.pat_condition = sw_auto && TRUE;
+	args.pat_string1 = make_name(s, ((OPN) action->act_object)->opn_cursor);
+	args.pat_string3 = request_trans(action, request);
+	args.pat_value2 = -1;
+
+	PATTERN_expand(column,
+				   (action->act_type == ACT_open) ? pattern1 : pattern2,
+				   &args);
+	PATTERN_expand(column + INDENT, pattern3, &args);
+	PATTERN_expand(column, pattern4, &args);
+	column += INDENT;
+	BEGIN;
+	PATTERN_expand(column, pattern5, &args);
+	printa(column, "if (gds__status[2] = 0) then");
+	column += INDENT;
+	BEGIN;
+	PATTERN_expand(column, pattern6, &args);
+	printa(column, "if (gds__status[2] = 0) then");
+	column += INDENT;
+	BEGIN;
+
+	return column;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insertion text for the database statement,
+//		including the definitions of all requests, and blob
+//		ans port declarations for requests in the main routine.
+//  
+
+static void gen_database( ACT action, int column)
+{
+	DBB db;
+	REQ request;
+	POR port;
+	BLB blob;
+	USHORT count, flag;
+	TPB tpb;
+	FORM form;
+	BOOLEAN all_static, all_extern;
+	int indent;
+	REF reference;
+	BOOLEAN array_flag;
+	SSHORT event_count, max_count;
+	LLS stack_ptr;
+
+	if (first_flag++ != 0)
+		return;
+
+	ib_fprintf(out_file, "\n(**** GPRE Preprocessor Definitions ****)\n");
+#ifdef VMS
+	ib_fprintf(out_file, "%%include 'interbase:[syslib]gds.pas'\n");
+#else
+	ib_fprintf(out_file, "%%include '/interbase/include/gds.ins.pas';\n");
+#endif
+
+	indent = column + INDENT;
+	flag = TRUE;
+
+	for (request = requests; request; request = request->req_next) {
+		if (request->req_flags & REQ_local)
+			continue;
+		for (port = request->req_ports; port; port = port->por_next) {
+			if (flag) {
+				flag = FALSE;
+				ib_fprintf(out_file, "type");
+			}
+			make_port(port, indent);
+		}
+	}
+	ib_fprintf(out_file, "\nvar");
+
+	for (db = isc_databases; db; db = db->dbb_next)
+		for (form = db->dbb_forms; form; form = form->form_next)
+			printa(indent, "%s\t\t: %s gds__handle := nil;\t\t(* form %s *)",
+				   form->form_handle, STATIC_STRING,
+				   form->form_name->sym_string);
+
+	for (request = requests; request; request = request->req_routine) {
+		if (request->req_flags & REQ_local)
+			continue;
+		for (port = request->req_ports; port; port = port->por_next)
+			printa(indent, "gds__%d\t: gds__%dt;\t\t\t(* message *)",
+				   port->por_ident, port->por_ident);
+
+		for (blob = request->req_blobs; blob; blob = blob->blb_next) {
+			printa(indent, "gds__%d\t: gds__handle;\t\t\t(* blob handle *)",
+				   blob->blb_ident);
+			printa(indent,
+				   "gds__%d\t: %s [1 .. %d] of char;\t(* blob segment *)",
+				   blob->blb_buff_ident, PACKED_ARRAY, blob->blb_seg_length);
+			printa(indent, "gds__%d\t: %s;\t\t\t(* segment length *)",
+				   blob->blb_len_ident, SHORT_DCL);
+		}
+	}
+
+	all_static = TRUE;
+	all_extern = TRUE;
+
+	for (db = isc_databases; db; db = db->dbb_next) {
+		all_static = all_static && (db->dbb_scope == DBB_STATIC);
+		all_extern = all_extern && (db->dbb_scope == DBB_EXTERN);
+		if (db->dbb_scope == DBB_STATIC)
+			printa(indent,
+				   "%s\t: %s gds__handle\t:= nil;	(* database handle *)",
+				   db->dbb_name->sym_string, STATIC_STRING);
+	}
+
+	count = 0;
+	for (db = isc_databases; db; db = db->dbb_next) {
+		count++;
+		for (tpb = db->dbb_tpbs; tpb; tpb = tpb->tpb_dbb_next)
+			gen_tpb(tpb, indent);
+	}
+
+	printa(indent,
+		   "gds__teb\t: array [1..%d] of gds__teb_t;\t(* transaction vector *)",
+		   count);
+
+//  generate event parameter block for each event in module 
+
+	max_count = 0;
+	for (stack_ptr = events; stack_ptr; stack_ptr = stack_ptr->lls_next) {
+		event_count = gen_event_block(reinterpret_cast<act*>(stack_ptr->lls_object));
+		max_count = MAX(event_count, max_count);
+	}
+
+	if (max_count) {
+		printa(indent,
+			   "gds__events\t\t: %s array [1..%d] of %s;\t\t(* event vector *)",
+			   STATIC_STRING, max_count, LONG_DCL);
+		printa(indent,
+			   "gds__event_names\t\t: %s array [1..%d] of %s;\t\t(* event buffer *)",
+			   STATIC_STRING, max_count, POINTER_DCL);
+		printa(indent,
+			   "gds__event_names2\t\t: %s %s [1..%d, 1..31] of char;\t\t(* event string buffer *)",
+			   STATIC_STRING, PACKED_ARRAY, max_count);
+	}
+
+	array_flag = FALSE;
+	for (request = requests; request; request = request->req_next) {
+		gen_request(request, indent);
+		/*  Array declarations  */
+		if (request->req_type == REQ_slice)
+			array_flag = TRUE;
+
+		if (port = request->req_primary)
+			for (reference = port->por_references; reference;
+				 reference =
+				 reference->ref_next) if (reference->
+										  ref_flags & REF_fetch_array) {
+					make_array_declaration(reference);
+					array_flag = TRUE;
+				}
+	}
+
+#ifdef VMS
+	if (array_flag)
+		printa(indent,
+			   "gds__array_length\t: integer;\t\t\t(* slice return value *)");
+#else
+	if (array_flag)
+		printa(indent,
+			   "gds__array_length\t: integer32;\t\t\t(* slice return value *)");
+#endif
+
+	printa(indent,
+		   "gds__null\t\t: ^gds__status_vector := nil;\t(* null status vector *)");
+	printa(indent,
+		   "gds__blob_null\t: gds__quad := %s0,0%s;\t\t(* null blob id *)",
+		   OPEN_BRACKET, CLOSE_BRACKET);
+
+#ifdef VMS
+	if (all_static) {
+		printa(indent,
+			   "gds__trans\t\t: %s gds__handle := nil;\t\t(* default transaction *)",
+			   STATIC_STRING);
+		printa(indent,
+			   "gds__status\t\t: %s gds__status_vector;\t\t(* status vector *)",
+			   STATIC_STRING);
+		printa(indent,
+			   "gds__status2\t\t: %s gds__status_vector;\t\t(* status vector *)",
+			   STATIC_STRING);
+		printa(indent,
+			   "SQLCODE\t: %s integer := 0;\t\t\t(* SQL status code *)",
+			   STATIC_STRING);
+		if (sw_pyxis) {
+			printa(indent,
+				   "gds__window\t\t: [COMMON (gds__window)] gds__handle;\t\t(* window handle *)");
+			printa(indent,
+				   "gds__width\t\t: [COMMON (gds__width)] %s;\t(* window width *)",
+				   SHORT_DCL);
+			printa(indent,
+				   "gds__height\t\t: [COMMON (gds__height)] %s;\t(* window height *)",
+				   SHORT_DCL);
+		}
+	}
+	else if (all_extern) {
+		printa(indent,
+			   "gds__trans\t\t: [COMMON (gds__trans)] gds__handle;\t\t(* default transaction *)");
+		printa(indent,
+			   "gds__status\t\t: [COMMON (gds__status)] gds__status_vector;\t\t(* status vector *)");
+		printa(indent,
+			   "gds__status2\t\t: [COMMON (gds__status2)] gds__status_vector;\t\t(* status vector *)");
+		printa(indent,
+			   "SQLCODE\t: [COMMON (SQLCODE)] integer;\t\t\t(* SQL status code *)");
+	}
+	else {
+		printa(indent,
+			   "gds__trans\t\t: [COMMON (gds__trans)] gds__handle := nil;\t\t(* default transaction *)");
+		printa(indent,
+			   "gds__status\t\t: [COMMON (gds__status)] gds__status_vector;\t\t(* status vector *)");
+		printa(indent,
+			   "gds__status2\t\t: [COMMON (gds__status2)] gds__status_vector;\t\t(* status vector *)");
+		printa(indent,
+			   "SQLCODE\t: [COMMON (SQLCODE)] integer := 0;\t\t\t(* SQL status code *)");
+	}
+	printa(indent,
+		   "gds__window\t\t: [COMMON (gds__window)] gds__handle := nil;\t\t(* window handle *)");
+	printa(indent,
+		   "gds__width\t\t: [COMMON (gds__width)] %s := 80;\t(* window width *)",
+		   SHORT_DCL);
+	printa(indent,
+		   "gds__height\t\t: [COMMON (gds__height)] %s := 24;\t(* window height *)",
+		   SHORT_DCL);
+#else
+	if (all_static) {
+		printa(indent,
+			   "gds__trans\t\t: %s gds__handle := nil;\t\t(* default transaction *)",
+			   STATIC_STRING);
+		printa(indent,
+			   "gds__status\t\t: %s gds__status_vector;\t\t(* status vector *)",
+			   STATIC_STRING);
+		printa(indent,
+			   "gds__status2\t\t: %s gds__status_vector;\t\t(* status vector *)",
+			   STATIC_STRING);
+		printa(indent,
+			   "SQLCODE\t: %s integer := 0;\t\t\t(* SQL status code *)",
+			   STATIC_STRING);
+	}
+	else {
+		printa(column, "\nvar (gds__trans)");
+		printa(indent,
+			   "gds__trans\t\t: gds__handle%s;\t\t(* default transaction *)",
+			   (all_extern) ? "" : "\t:= nil");
+		printa(column, "\nvar (gds__status)");
+		printa(indent,
+			   "gds__status\t\t: gds__status_vector;\t\t(* status vector *)");
+		printa(column, "\nvar (gds__status2)");
+		printa(indent,
+			   "gds__status2\t\t: gds__status_vector;\t\t(* status vector *)");
+		printa(column, "\nvar (SQLCODE)");
+		printa(indent, "SQLCODE\t: integer%s;\t\t\t(* SQL status code *)",
+			   (all_extern) ? "" : "\t:= 0");
+	}
+	printa(column, "\nvar (gds__window)");
+	printa(indent,
+		   "gds__window\t\t:  gds__handle := nil;\t\t(* window handle *)");
+	printa(column, "\nvar (gds__width)");
+	printa(indent, "gds__width\t\t: %s := 80;\t(* window width *)",
+		   SHORT_DCL);
+	printa(column, "\nvar (gds__height)");
+	printa(indent, "gds__height\t\t: %s := 24;\t(* window height *)",
+		   SHORT_DCL);
+#endif
+
+	for (db = isc_databases; db; db = db->dbb_next) {
+		if (db->dbb_scope != DBB_STATIC) {
+#ifdef VMS
+			printa(indent,
+				   "%s\t: [COMMON (%s)] gds__handle%s;	(* database handle *)",
+				   db->dbb_name->sym_string, db->dbb_name->sym_string,
+				   (db->dbb_scope == DBB_EXTERN) ? "" : "\t:= nil");
+#else
+			printa(column, "\nvar (%s)", db->dbb_name->sym_string);
+			printa(indent, "%s\t: gds__handle%s;	(* database handle *)",
+				   db->dbb_name->sym_string,
+				   (db->dbb_scope == DBB_EXTERN) ? "" : "\t:= nil");
+#endif
+		}
+	}
+
+	printa(column, " ");
+	printa(column, "(**** end of GPRE definitions ****)");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to update metadata.
+//  
+
+static void gen_ddl( ACT action, int column)
+{
+	REQ request;
+
+	if (sw_auto) {
+		printa(column, "if (gds__trans = nil) then");
+		column += INDENT;
+		t_start_auto(action, 0, status_vector(action), column + INDENT);
+		column -= INDENT;
+	}
+
+//  Set up command type for call to RDB$DDL 
+
+	request = action->act_request;
+
+	if (sw_auto) {
+		printa(column, "if (gds__trans <> nil) then");
+		column += INDENT;
+	}
+
+	align(column);
+	ib_fprintf(out_file, "GDS__DDL (%s, %s, gds__trans, %d, gds__%d);",
+			   status_vector(action),
+			   request->req_database->dbb_name->sym_string,
+			   request->req_length, request->req_ident);
+
+	if (sw_auto) {
+		column -= INDENT;
+		printa(column, "if (gds__status [2] = 0) then");
+		printa(column + INDENT, "GDS__COMMIT_TRANSACTION (%s, gds__trans);",
+			   status_vector(action));
+		printa(column, "if (gds__status [2] <> 0) then");
+		printa(column + INDENT,
+			   "GDS__ROLLBACK_TRANSACTION (gds__null^ , gds__trans);");
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to create a database.
+//  
+
+static void gen_drop_database( ACT action, int column)
+{
+	DBB db;
+
+	db = (DBB) action->act_object;
+	align(column);
+
+	ib_fprintf(out_file,
+			   "GDS__DROP_DATABASE (%s, %d, '%s', RDB$K_DB_TYPE_GDS);",
+			   status_vector(action),
+			   strlen(db->dbb_filename), db->dbb_filename);
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_close( ACT action, int column)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "isc_embed_dsql_close (gds__status, %s);",
+		   make_name(s, statement->dyn_cursor_name));
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_declare( ACT action, int column)
+{
+	DYN statement;
+	TEXT s1[64], s2[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "isc_embed_dsql_declare (gds__status, %s, %s);",
+		   make_name(s1, statement->dyn_statement_name),
+		   make_name(s2, statement->dyn_cursor_name));
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_describe( ACT action, int column, BOOLEAN bind_flag)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "isc_embed_dsql_describe%s (gds__status, %s, %d, %s %s);",
+		   bind_flag ? "_bind" : "",
+		   make_name(s, statement->dyn_statement_name),
+		   sw_sql_dialect, REF_PAR, statement->dyn_sqlda);
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_execute( ACT action, int column)
+{
+	DYN statement;
+	TEXT *transaction, s[64];
+	struct req *request, req_const;
+	NOD var_list;
+	int i;
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = "gds__trans";
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		printa(column, "if (%s = nil) then", transaction);
+		column += INDENT;
+		t_start_auto(action, request, status_vector(action), column + INDENT);
+		column -= INDENT;
+	}
+
+	make_name(s, statement->dyn_cursor_name);
+
+	if (var_list = statement->dyn_using) {
+		printa(column, "gds__sqlda.sqln = %s;", sw_dyn_using);
+		printa(column, "gds__sqlda.sqld = %s;", sw_dyn_using);
+		for (i = 0; i < var_list->nod_count; i++)
+			asgn_sqlda_from(reinterpret_cast<ref*>(var_list->nod_arg[i]), i, s, column);
+	}
+
+	printa(column,
+		   (statement->dyn_sqlda2) ?
+		   "isc_embed_dsql_execute2 (gds__status, %s, %s, %d, %s %s, %s %s);"
+		   : "isc_embed_dsql_execute (gds__status, %s, %s, %d, %s %s);",
+		   transaction, make_name(s, statement->dyn_statement_name),
+		   sw_sql_dialect, REF_PAR,
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : "gds__null^",
+		   REF_PAR,
+		   (statement->dyn_sqlda2) ? statement->dyn_sqlda2 : "gds__null^");
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_fetch( ACT action, int column)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "SQLCODE := isc_embed_dsql_fetch (gds__status, %s, %d, %s %s);",
+		   make_name(s, statement->dyn_cursor_name),
+		   sw_sql_dialect,
+		   REF_PAR,
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : "gds__null^");
+	printa(column,
+		   "if sqlcode <> 100 then sqlcode := gds__sqlcode (gds__status);");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for an EXECUTE IMMEDIATE dynamic SQL statement.
+//  
+
+static void gen_dyn_immediate( ACT action, int column)
+{
+	DYN statement;
+	DBB database;
+	TEXT *transaction;
+	struct req *request, req_const;
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = "gds__trans";
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		printa(column, "if (%s = nil) then", transaction);
+		column += INDENT;
+		t_start_auto(action, request, status_vector(action), column + INDENT);
+		column -= INDENT;
+	}
+
+	database = statement->dyn_database;
+	printa(column,
+		   (statement->dyn_sqlda2) ?
+		   "isc_embed_dsql_execute_immed2 (gds__status, %s, %s, %s(%s), %s, %d, %s %s, %s %s);"
+		   :
+		   "isc_embed_dsql_execute_immed (gds__status, %s, %s, %s(%s), %s, %d, %s %s);",
+		   database->dbb_name->sym_string, transaction, SIZEOF,
+		   statement->dyn_string, statement->dyn_string, sw_sql_dialect,
+		   REF_PAR,
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : "gds__null^",
+		   REF_PAR,
+		   (statement->dyn_sqlda2) ? statement->dyn_sqlda2 : "gds__null^");
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_insert( ACT action, int column)
+{
+	DYN statement;
+	TEXT s[64];
+
+	statement = (DYN) action->act_object;
+	printa(column,
+		   "isc_embed_dsql_insert (gds__status, %s, %d, %s %s);",
+		   make_name(s, statement->dyn_cursor_name),
+		   sw_sql_dialect,
+		   REF_PAR,
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : "gds__null^");
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_open( ACT action, int column)
+{
+	DYN statement;
+	TEXT *transaction, s[64];
+	struct req *request, req_const;
+	NOD var_list;
+	int i;
+
+	statement = (DYN) action->act_object;
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = "gds__trans";
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		printa(column, "if (%s = nil) then", transaction);
+		column += INDENT;
+		t_start_auto(action, request, status_vector(action), column + INDENT);
+		column -= INDENT;
+	}
+
+	make_name(s, statement->dyn_cursor_name);
+
+	if (var_list = statement->dyn_using) {
+		printa(column, "gds__sqlda.sqln = %d;", sw_dyn_using);
+		printa(column, "gds__sqlda.sqld = %d;", sw_dyn_using);
+		for (i = 0; i < var_list->nod_count; i++)
+			asgn_sqlda_from(reinterpret_cast<ref*>(var_list->nod_arg[i]), i, s, column);
+	}
+
+	printa(column,
+		   (statement->dyn_sqlda2) ?
+		   "isc_embed_dsql_open2 (gds__status, %s, %s, %d, %s %s, %s %s);" :
+		   "isc_embed_dsql_open (gds__status, %s, %s, %d, %s %s);",
+		   s,
+		   transaction,
+		   sw_sql_dialect,
+		   REF_PAR,
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : "gds__null^",
+		   REF_PAR,
+		   (statement->dyn_sqlda2) ? statement->dyn_sqlda2 : "gds__null^");
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a dynamic SQL statement.
+//  
+
+static void gen_dyn_prepare( ACT action, int column)
+{
+	DYN statement;
+	DBB database;
+	TEXT s[64], *transaction;
+	struct req *request, req_const;
+
+	if (statement->dyn_trans) {
+		transaction = statement->dyn_trans;
+		request = &req_const;
+		request->req_trans = transaction;
+	}
+	else {
+		transaction = "gds__trans";
+		request = NULL;
+	}
+
+	if (sw_auto) {
+		printa(column, "if (%s = nil) then", transaction);
+		column += INDENT;
+		t_start_auto(action, request, status_vector(action), column + INDENT);
+		column -= INDENT;
+	}
+
+	statement = (DYN) action->act_object;
+	database = statement->dyn_database;
+
+	printa(column,
+		   "isc_embed_dsql_prepare (gds__status, %s, transaction, %s, %s(%s), %s, %d, %s %s);",
+		   database->dbb_name->sym_string, transaction, make_name(s,
+																  statement->
+																  dyn_statement_name),
+		   SIZEOF, statement->dyn_string, statement->dyn_string,
+		   sw_sql_dialect, REF_PAR,
+		   (statement->dyn_sqlda) ? statement->dyn_sqlda : "gds__null^");
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_MODIFY.
+//  
+
+static void gen_emodify( ACT action, int column)
+{
+	UPD modify;
+	REF reference, source;
+	FLD field;
+	TEXT s1[20], s2[20];
+
+	modify = (UPD) action->act_object;
+
+	for (reference = modify->upd_port->por_references; reference;
+		 reference = reference->ref_next) {
+		if (!(source = reference->ref_source))
+			continue;
+		field = reference->ref_field;
+		align(column);
+		ib_fprintf(out_file, "%s := %s;",
+				   gen_name(s1, reference, TRUE), gen_name(s2, source, TRUE));
+		if (field->fld_array_info)
+			gen_get_or_put_slice(action, reference, FALSE, column);
+	}
+
+	gen_send(action, modify->upd_port, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STORE.
+//  
+
+static void gen_estore( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+//  if we did a store ... returning_values aka store2
+//  just wrap up pending error 
+	if (request->req_type == REQ_store2) {
+		if (action->act_error || (action->act_flags & ACT_sql))
+			END;
+		return;
+	}
+	if (action->act_error)
+		column += INDENT;
+	gen_start(action, request->req_primary, column);
+	if (action->act_error || (action->act_flags & ACT_sql))
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  
+
+static void gen_endfor( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	column += INDENT;
+
+	if (request->req_sync)
+		gen_send(action, request->req_sync, column);
+
+	gen_receive(action, column, request->req_primary);
+
+	END;
+	if (action->act_error || (action->act_flags & ACT_sql))
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for ERASE.
+//  
+
+static void gen_erase( ACT action, int column)
+{
+	UPD erase;
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		BEGIN;
+
+	erase = (UPD) action->act_object;
+	gen_send(action, erase->upd_port, column);
+
+	if (action->act_flags & ACT_sql)
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate event parameter blocks for use
+//		with a particular call to gds__event_wait.
+//  
+
+static SSHORT gen_event_block( ACT action)
+{
+	NOD init, list;
+	int ident;
+
+	init = (NOD) action->act_object;
+
+	ident = CMP_next_ident();
+	init->nod_arg[2] = (NOD) ident;
+
+	printa(INDENT, "gds__%da\t\t: ^char;\t\t(* event parameter block *)",
+		   ident);
+	printa(INDENT, "gds__%db\t\t: ^char;\t\t(* result parameter block *)",
+		   ident);
+	printa(INDENT,
+		   "gds__%dl\t\t: %s;\t\t(* length of event parameter block *)",
+		   ident, SHORT_DCL);
+
+	list = init->nod_arg[1];
+	return list->nod_count;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for EVENT_INIT.
+//  
+
+static void gen_event_init( ACT action, int column)
+{
+	NOD init, event_list, *ptr, *end, node;
+	REF reference;
+	PAT args;
+	SSHORT count;
+	TEXT variable[20];
+	TEXT *pattern1 =
+		"gds__%N1l := GDS__EVENT_BLOCK_A (%RFgds__%N1a, %RFgds__%N1b, %N2, %RFgds__event_names%RE);";
+	TEXT *pattern2 = "%S1 (%V1, %RF%DH, gds__%N1l, gds__%N1a, gds__%N1b);";
+	TEXT *pattern3 = "%S2 (gds__events, gds__%N1l, gds__%N1a, gds__%N1b);";
+
+	if (action->act_error)
+		BEGIN;
+	BEGIN;
+
+	init = (NOD) action->act_object;
+	event_list = init->nod_arg[1];
+
+	args.pat_database = (DBB) init->nod_arg[3];
+	args.pat_vector1 = status_vector(action);
+	args.pat_value1 = (int) init->nod_arg[2];
+	args.pat_value2 = (int) event_list->nod_count;
+	args.pat_string1 = GDS_EVENT_WAIT;
+	args.pat_string2 = GDS_EVENT_COUNTS;
+
+//  generate call to dynamically generate event blocks 
+
+	for (ptr = event_list->nod_arg, count = 0, end =
+		 ptr + event_list->nod_count; ptr < end; ptr++) {
+		count++;
+		node = *ptr;
+		if (node->nod_type == nod_field) {
+			reference = (REF) node->nod_arg[0];
+			gen_name(variable, reference, TRUE);
+			printa(column, "gds__event_names2[%d] := %s;", count, variable);
+		}
+		else
+			printa(column, "gds__event_names2[%d] := %s;", count,
+				   node->nod_arg[0]);
+
+		printa(column, "gds__event_names[%d] := %s (gds__event_names2[%d]);",
+			   count, ISC_BADDRESS, count);
+	}
+
+	PATTERN_expand(column, pattern1, &args);
+
+//  generate actual call to event_wait 
+
+	PATTERN_expand(column, pattern2, &args);
+
+//  get change in event counts, copying event parameter block for reuse 
+
+	PATTERN_expand(column, pattern3, &args);
+
+	if (action->act_error)
+		END;
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for EVENT_WAIT.
+//  
+
+static void gen_event_wait( ACT action, int column)
+{
+	PAT args;
+	NOD event_init;
+	SYM event_name, stack_name;
+	DBB database;
+	LLS stack_ptr;
+	ACT event_action;
+	int ident;
+	TEXT s[64];
+	TEXT *pattern1 = "%S1 (%V1, %RF%DH, gds__%N1l, gds__%N1a, gds__%N1b);";
+	TEXT *pattern2 = "%S2 (gds__events, gds__%N1l, gds__%N1a, gds__%N1b);";
+
+	if (action->act_error)
+		BEGIN;
+	BEGIN;
+
+	event_name = (SYM) action->act_object;
+
+//  go through the stack of events, checking to see if the
+//  event has been initialized and getting the event identifier 
+
+	ident = -1;
+	for (stack_ptr = events; stack_ptr; stack_ptr = stack_ptr->lls_next) {
+		event_action = (ACT) stack_ptr->lls_object;
+		event_init = (NOD) event_action->act_object;
+		stack_name = (SYM) event_init->nod_arg[0];
+		if (!strcmp(event_name->sym_string, stack_name->sym_string)) {
+			ident = (int) event_init->nod_arg[2];
+			database = (DBB) event_init->nod_arg[3];
+		}
+	}
+
+	if (ident < 0) {
+		sprintf(s, "event handle \"%s\" not found", event_name->sym_string);
+		IBERROR(s);
+		return;
+	}
+
+	args.pat_database = database;
+	args.pat_vector1 = status_vector(action);
+	args.pat_value1 = (int) ident;
+	args.pat_string1 = GDS_EVENT_WAIT;
+	args.pat_string2 = GDS_EVENT_COUNTS;
+
+//  generate calls to wait on the event and to fill out the events array 
+
+	PATTERN_expand(column, pattern1, &args);
+	PATTERN_expand(column, pattern2, &args);
+
+	if (action->act_error)
+		END;
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate replacement text for the SQL FETCH statement.  The
+//		epilog FETCH statement is handled by GEN_S_FETCH (generate
+//		stream fetch).
+//  
+
+static void gen_fetch( ACT action, int column)
+{
+	REQ		request;
+	NOD		var_list;
+	int		i;
+	TEXT	s[20];
+
+	request = action->act_request;
+
+#ifdef SCROLLABLE_CURSORS
+	POR		port;
+	REF		reference;
+	VAL		value;
+	TEXT*	direction;
+	TEXT*	offset;
+
+	if (port = request->req_aport) {
+		/* set up the reference to point to the correct value 
+		   in the linked list of values, and prepare for the 
+		   next FETCH statement if applicable */
+
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) {
+			value = reference->ref_values;
+			reference->ref_value = value->val_value;
+			reference->ref_values = value->val_next;
+		}
+
+		/* find the direction and offset parameters */
+
+		reference = port->por_references;
+		offset = reference->ref_value;
+		reference = reference->ref_next;
+		direction = reference->ref_value;
+
+		/* the direction in which the engine will scroll is sticky, so check to see 
+		   the last direction passed to the engine; if the direction is the same and 
+		   the offset is 1, then there is no need to pass the message; this prevents 
+		   extra packets and allows for batch fetches in either direction */
+
+		printa(column, "if (isc_%ddirection MOD 2 <> %s) or (%s <> 1) then",
+			   request->req_ident, direction, offset);
+		column += INDENT;
+		BEGIN;
+
+		/* assign the direction and offset parameters to the appropriate message, 
+		   then send the message to the engine */
+
+		asgn_from(action, port->por_references, column);
+		gen_send(action, port, column);
+		printa(column, "isc_%ddirection := %s;", request->req_ident,
+			   direction);
+		column -= INDENT;
+		END;
+
+		printa(column, "if SQLCODE = 0 then");
+		column += INDENT;
+		BEGIN;
+	}
+#endif
+
+	if (request->req_sync) {
+		gen_send(action, request->req_sync, column);
+		printa(column, "if SQLCODE = 0 then");
+		column += INDENT;
+		BEGIN;
+	}
+
+	gen_receive(action, column, request->req_primary);
+	printa(column, "if SQLCODE = 0 then");
+	column += INDENT;
+	printa(column, "if %s <> 0 then", gen_name(s, request->req_eof, TRUE));
+	column += INDENT;
+	BEGIN;
+
+	if (var_list = (NOD) action->act_object)
+		for (i = 0; i < var_list->nod_count; i++) {
+			align(column);
+			asgn_to(action, reinterpret_cast<ref*>(var_list->nod_arg[i]), column);
+		}
+
+	END;
+	printa(column - INDENT, "else");
+	printa(column, "SQLCODE := 100;");
+	if (request->req_sync) {
+		column -= INDENT;
+		END;
+	}
+
+#ifdef SCROLLABLE_CURSORS
+	if (port) {
+		column -= INDENT;
+		END;
+	}
+#endif
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FINISH
+//  
+
+static void gen_finish( ACT action, int column)
+{
+	DBB db;
+	RDY ready;
+
+	db = NULL;
+
+	if (sw_auto || ((action->act_flags & ACT_sql) &&
+					(action->act_type != ACT_disconnect))) {
+		printa(column, "if gds__trans <> nil");
+		printa(column + 4, "then GDS__%s_TRANSACTION (%s, gds__trans);",
+			   (action->act_type != ACT_rfinish) ? "COMMIT" : "ROLLBACK",
+			   status_vector(action));
+	}
+
+//   Got rid of tests of gds__trans <> nil which were causing the skipping
+//   of trying to detach the databases.  Related to bug#935.  mao 6/22/89  
+
+	for (ready = (RDY) action->act_object; ready; ready = ready->rdy_next) {
+		db = ready->rdy_database;
+		printa(column, "GDS__DETACH_DATABASE (%s, %s);",
+			   status_vector(action), db->dbb_name->sym_string);
+	}
+	if (!db)
+		for (db = isc_databases; db; db = db->dbb_next) {
+			if ((action->act_error || (action->act_flags & ACT_sql))
+				&& (db != isc_databases)) printa(column,
+												 "if (%s <> nil) and (gds__status[2] = 0) then",
+												 db->dbb_name->sym_string);
+			else
+				printa(column, "if %s <> nil then", db->dbb_name->sym_string);
+			printa(column + INDENT, "GDS__DETACH_DATABASE (%s, %s);",
+				   status_vector(action), db->dbb_name->sym_string);
+		}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FOR statement.
+//  
+
+static void gen_for( ACT action, int column)
+{
+	POR port;
+	REQ request;
+	TEXT s[20];
+	REF reference;
+
+	gen_s_start(action, column);
+	request = action->act_request;
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(column, "if gds__status[2] = 0 then begin");
+
+	gen_receive(action, column, request->req_primary);
+	if (action->act_error || (action->act_flags & ACT_sql))
+		printa(column, "while (%s <> 0) and (gds__status[2] = 0) do",
+			   gen_name(s, request->req_eof, TRUE));
+	else
+		printa(column, "while %s <> 0 do",
+			   gen_name(s, request->req_eof, TRUE));
+	column += INDENT;
+	BEGIN;
+
+	if (port = action->act_request->req_primary)
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, TRUE, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form interaction.
+//  
+
+static void gen_form_display( ACT action, int column)
+{
+	FINT display;
+	REQ request;
+	REF reference, master;
+	POR port;
+	DBB dbb;
+	TEXT s[32], *status, out[16];
+	int code;
+
+	display = (FINT) action->act_object;
+	request = display->fint_request;
+	dbb = request->req_database;
+	port = request->req_ports;
+	status = (action->act_error) ? "gds__status" : "gds__null^";
+
+//  Initialize field options 
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next)
+			if ((master = reference->ref_master) &&
+				(code = CMP_display_code(display, master)) >= 0)
+			printa(column, "%s := %d;", gen_name(s, reference, TRUE), code);
+
+	if (display->fint_flags & FINT_no_wait)
+		strcpy(out, "0");
+	else
+		sprintf(out, "gds__%d", port->por_ident);
+
+	printa(column,
+		   "pyxis__drive_form (%s, %s, %s, gds__window, %s, gds__%d, %s);",
+		   status, dbb->dbb_name->sym_string, request->req_trans,
+		   request->req_handle, port->por_ident, out);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form block.
+//  
+
+static void gen_form_end( ACT action, int column)
+{
+
+	printa(column, "pyxis__pop_window (gds__window);");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a form block.
+//  
+
+static void gen_form_for( ACT action, int column)
+{
+	REQ request;
+	FORM form;
+	TEXT *status;
+	DBB dbb;
+	int indent;
+
+	indent = column + INDENT;
+	request = action->act_request;
+	form = request->req_form;
+	dbb = request->req_database;
+	status = status_vector(action);
+
+//  Get database attach and transaction started 
+
+	if (sw_auto) {
+		printa(column, "if (gds__trans = nil) then");
+		t_start_auto(action, 0, status_vector(action), indent);
+	}
+
+//  Get form loaded first 
+
+	printa(column, "if %s = nil then", request->req_form_handle);
+	align(indent);
+	ib_fprintf(out_file, "pyxis__load_form (%s, %s, %s, %s, %d, '%s');",
+			   status,
+			   dbb->dbb_name->sym_string,
+			   request->req_trans,
+			   request->req_form_handle,
+			   strlen(form->form_name->sym_string),
+			   form->form_name->sym_string);
+
+//  Get map compiled 
+
+	printa(column, "if %s = nil then", request->req_handle);
+	printa(indent, "pyxis__compile_map (%s, %s, %s, %d, gds__%d);",
+		   status,
+		   request->req_form_handle,
+		   request->req_handle, request->req_length, request->req_ident);
+
+//  Reset form to known state 
+
+	printa(column, "pyxis__reset_form (%s, %s);",
+		   status, request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a call to gds__get_slice
+//		or gds__put_slice for an array.
+//  
+
+static void gen_get_or_put_slice(
+							ACT action,
+							REF reference, BOOLEAN get, int column)
+{
+	PAT args;
+	TEXT s1[25], s2[10], s3[10], s4[10];
+	TEXT *pattern1 =
+		"GDS__GET_SLICE (%V1, %RF%DH%RE, %RF%S1%RE, %S2, %N1, %S3, %N2, %S4, %L1, %S5, %S6);\n";
+	TEXT *pattern2 =
+		"GDS__PUT_SLICE (%V1, %RF%DH%RE, %RF%S1%RE, %S2, %N1, %S3, %N2, %S4, %L1, %S5);\n";
+
+	if (!(reference->ref_flags & REF_fetch_array))
+		return;
+
+	args.pat_vector1 = status_vector(action);	/*  status vector        */
+	args.pat_database = action->act_request->req_database;	/*  database handle      */
+	args.pat_string1 = action->act_request->req_trans;	/*  transaction handle   */
+
+	gen_name(s1, reference, TRUE);	/*  blob handle          */
+	args.pat_string2 = s1;
+
+	args.pat_value1 = reference->ref_sdl_length;	/*  slice descr. length  */
+
+	sprintf(s2, "gds__%d", reference->ref_sdl_ident);	/*  slice description    */
+	args.pat_string3 = s2;
+
+	args.pat_value2 = 0;		/*  parameter length     */
+
+	sprintf(s3, "0");			/*  parameter            */
+	args.pat_string4 = s3;
+
+	args.pat_long1 = reference->ref_field->fld_array_info->ary_size;
+	/*  slice size           */
+
+	if (action->act_flags & ACT_sql) {
+		args.pat_string5 = reference->ref_value;
+	}
+	else {
+		sprintf(s4, "gds__%d",
+				reference->ref_field->fld_array_info->ary_ident);
+		args.pat_string5 = s4;	/*  array name           */
+	}
+
+	args.pat_string6 = "gds__array_length";	/*  return length        */
+
+	if (get)
+		PATTERN_expand(column, pattern1, &args);
+	else
+		PATTERN_expand(column, pattern2, &args);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the code to do a get segment.
+//  
+
+static void gen_get_segment( ACT action, int column)
+{
+	BLB blob;
+	PAT args;
+	REF into;
+	TEXT *pattern1 =
+		"%IFgds__status[2] := %ENGDS__GET_SEGMENT (%V1, %BH, %I1, %S1 (%I2), %RF%I2);";
+
+	if (action->act_error && (action->act_type != ACT_blob_for))
+		BEGIN;
+
+	if (action->act_flags & ACT_sql)
+		blob = (BLB) action->act_request->req_blobs;
+	else
+		blob = (BLB) action->act_object;
+
+	args.pat_blob = blob;
+	args.pat_vector1 = status_vector(action);
+	args.pat_condition = TRUE;
+	args.pat_ident1 = blob->blb_len_ident;
+	args.pat_ident2 = blob->blb_buff_ident;
+	args.pat_string1 = SIZEOF;
+	PATTERN_expand(column, pattern1, &args);
+
+	if (action->act_flags & ACT_sql) {
+		into = action->act_object;
+		SET_SQLCODE;
+		printa(column, "if (SQLCODE = 0) or (SQLCODE = 101) then");
+		column += INDENT;
+		BEGIN;
+		align(column);
+		ib_fprintf(out_file, "gds__ftof (gds__%d, gds__%d, %s, gds__%d);",
+				   blob->blb_buff_ident, blob->blb_len_ident,
+				   into->ref_value, blob->blb_len_ident);
+		if (into->ref_null_value) {
+			align(column);
+			ib_fprintf(out_file, "%s := gds__%d;",
+					   into->ref_null_value, blob->blb_len_ident);
+		}
+		END;
+		column -= INDENT;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate end of block for PUT_ITEM and FOR_ITEM.
+//  
+
+static void gen_item_end( ACT action, int column)
+{
+	REQ request;
+	REF reference;
+	POR port;
+	DBB dbb;
+	TEXT s[32], *status, index[16];
+
+	request = action->act_request;
+	if (request->req_type == REQ_menu) {
+		gen_menu_item_end(action, column);
+		return;
+	}
+
+	status = (action->act_error) ? "gds__status" : "gds__null^";
+	if (action->act_pair->act_type == ACT_item_for) {
+		column += INDENT;
+		gen_name(index, request->req_index, TRUE);
+		printa(column, "%s := %s + 1;", index, index);
+		align(column);
+		ib_fprintf(out_file,
+				   "pyxis__fetch (%s, %s, %s, %s, gds__%d);",
+				   status,
+				   request->req_database->dbb_name->sym_string,
+				   request->req_trans,
+				   request->req_handle, request->req_ports->por_ident);
+		if (action->act_error)
+			ENDS;
+		else
+			END;
+		return;
+	}
+
+	dbb = request->req_database;
+	port = request->req_ports;
+
+//  Initialize field options 
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) if (reference->ref_master)
+			printa(column, "%s := %d;", gen_name(s, reference, TRUE),
+				   PYXIS_OPT_DISPLAY);
+
+	align(column);
+	ib_fprintf(out_file,
+			   "pyxis__insert (%s, %s, %s, %s, gds__%d);",
+			   status,
+			   dbb->dbb_name->sym_string,
+			   request->req_trans, request->req_handle, port->por_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insert text for FOR_ITEM and PUT_ITEM.
+//  
+
+static void gen_item_for( ACT action, int column)
+{
+	REQ request, parent;
+	FORM form;
+	TEXT *status, index[30];
+
+	request = action->act_request;
+	if (request->req_type == REQ_menu) {
+		gen_menu_item_for(action, column);
+		return;
+	}
+
+	column += INDENT;
+	form = request->req_form;
+	parent = form->form_parent;
+
+	status = (action->act_error) ? "gds__status" : "gds__null^";
+
+//  Get map compiled 
+
+	printa(column, "if %s = nil then", request->req_handle);
+	printa(column + INDENT,
+		   "pyxis__compile_sub_map (%s, %s, %s, %d, gds__%d);", status,
+		   parent->req_handle, request->req_handle, request->req_length,
+		   request->req_ident);
+
+	if (action->act_type != ACT_item_for)
+		return;
+
+//  Build stuff for item loop 
+
+	gen_name(index, request->req_index, TRUE);
+	printa(column, "%s := 1;", index);
+	align(column);
+	ib_fprintf(out_file,
+			   "pyxis__fetch (%s, %s, %s, %s, gds__%d);",
+			   status,
+			   request->req_database->dbb_name->sym_string,
+			   request->req_trans,
+			   request->req_handle, request->req_ports->por_ident);
+	printa(column, "while (%s <> 0) do", index);
+	column += INDENT;
+	BEGIN;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile and start a stream.  This is
+//		used both by START_STREAM and FOR
+//  
+
+static void gen_loop( ACT action, int column)
+{
+	REQ request;
+	POR port;
+	TEXT name[20];
+
+	gen_s_start(action, column);
+	request = action->act_request;
+	port = request->req_primary;
+	printa(column, "if SQLCODE = 0 then");
+	column += INDENT;
+	BEGIN;
+	gen_receive(action, column, port);
+	gen_name(name, port->por_references, TRUE);
+	printa(column, "if (SQLCODE = 0) and (%s = 0)", name);
+	printa(column + INDENT, "then SQLCODE := 100;");
+	END;
+	column -= INDENT;
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static void gen_menu( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	printa(column, "case pyxis__menu (gds__window, %s, %d, gds__%d) of",
+		   request->req_handle, request->req_length, request->req_ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a menu interaction.
+//  
+
+static void gen_menu_display( ACT action, int column)
+{
+	MENU menu;
+	REQ request, display_request;
+
+	request = action->act_request;
+	display_request = (REQ) action->act_object;
+
+	menu = NULL;
+
+	for (action = request->req_actions; action; action = action->act_next)
+		if (action->act_type == ACT_menu_for) {
+			menu = (MENU) action->act_object;
+			break;
+		}
+
+	printa(column,
+		   "pyxis__drive_menu (gds__window, %s, %d, gds__%d, gds__%dl, gds__%d,",
+		   request->req_handle,
+		   display_request->req_length,
+		   display_request->req_ident, menu->menu_title, menu->menu_title);
+
+	printa(column,
+		   "\n\t\t\tgds__%d, gds__%dl, gds__%d, gds__%d);",
+		   menu->menu_terminator,
+		   menu->menu_entree_entree,
+		   menu->menu_entree_entree, menu->menu_entree_value);
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static void gen_menu_entree( ACT action, int column)
+{
+
+	printa(column, "%d:", action->act_count);
+}
+
+
+//____________________________________________________________
+//  
+//  
+//    Generate code for a reference to a menu or entree attribute.
+
+static void gen_menu_entree_att( ACT action, int column)
+{
+	MENU menu;
+	SSHORT ident, length;
+
+	menu = (MENU) action->act_object;
+
+	length = FALSE;
+	switch (action->act_type) {
+	case ACT_entree_text:
+		ident = menu->menu_entree_entree;
+		break;
+	case ACT_entree_length:
+		ident = menu->menu_entree_entree;
+		length = TRUE;
+		break;
+	case ACT_entree_value:
+		ident = menu->menu_entree_value;
+		break;
+	case ACT_title_text:
+		ident = menu->menu_title;
+		break;
+	case ACT_title_length:
+		ident = menu->menu_title;
+		length = TRUE;
+		break;
+	case ACT_terminator:
+		ident = menu->menu_terminator;
+		break;
+	default:
+		ident = -1;
+		break;
+	}
+
+	if (length)
+		printa(column, "gds__%dl", ident);
+	else
+		printa(column, "gds__%d", ident);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for a menu block.
+//  
+
+static void gen_menu_for( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+
+//  Get menu created 
+
+	if (!(request->req_flags & REQ_exp_hand))
+		printa(column, "pyxis__initialize_menu (%s);", request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate end of block for PUT_ITEM and FOR_ITEM
+//		for a dynamic menu.
+//  
+
+static void gen_menu_item_end( ACT action, int column)
+{
+	REQ request;
+	ENTREE entree;
+
+	entree = (ENTREE) action->act_pair->act_object;
+	request = entree->entree_request;
+
+	if (action->act_pair->act_type == ACT_item_for) {
+		align(column);
+		printa(column,
+			   "pyxis__get_entree (%s, gds__%dl, gds__%d, gds__%d, gds__%d);",
+			   request->req_handle, entree->entree_entree,
+			   entree->entree_entree, entree->entree_value,
+			   entree->entree_end);
+		column += INDENT;
+		END;
+		return;
+	}
+
+	align(column);
+	ib_fprintf(out_file,
+			   "pyxis__put_entree (%s, gds__%dl, gds__%d, gds__%d);",
+			   request->req_handle,
+			   entree->entree_entree,
+			   entree->entree_entree, entree->entree_value);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate insert text for FOR_ITEM and PUT_ITEM
+//		for a dynamic menu.
+//  
+
+static void gen_menu_item_for( ACT action, int column)
+{
+	ENTREE entree;
+	REQ request;
+
+	if (action->act_type != ACT_item_for)
+		return;
+
+//  Build stuff for item loop 
+
+	entree = (ENTREE) action->act_object;
+	request = entree->entree_request;
+
+	align(column);
+	printa(column,
+		   "pyxis__get_entree (%s, gds__%dl, gds__%d, gds__%d, gds__%d);",
+		   request->req_handle, entree->entree_entree, entree->entree_entree,
+		   entree->entree_value, entree->entree_end);
+	printa(column, "while (gds__%d = 0) do", entree->entree_end);
+	column += INDENT;
+	BEGIN;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a dynamic menu request.
+//  
+
+static void gen_menu_request( REQ request, int column)
+{
+	ACT action;
+	MENU menu;
+	ENTREE entree;
+
+	menu = NULL;
+	entree = NULL;
+
+	for (action = request->req_actions; action; action = action->act_next) {
+		if (action->act_type == ACT_menu_for) {
+			menu = (MENU) action->act_object;
+			break;
+		}
+		else if ((action->act_type == ACT_item_for)
+				 || (action->act_type == ACT_item_put)) {
+			entree = (ENTREE) action->act_object;
+			break;
+		}
+	}
+
+	if (menu) {
+		menu->menu_title = CMP_next_ident();
+		menu->menu_terminator = CMP_next_ident();
+		menu->menu_entree_value = CMP_next_ident();
+		menu->menu_entree_entree = CMP_next_ident();
+		printa(column, "gds__%dl\t: %s;\t\t(* TITLE_LENGTH *)",
+			   menu->menu_title, SHORT_DCL);
+		printa(column, "gds__%d\t: %s [1..81] of char;\t\t(* TITLE_TEXT *)",
+			   menu->menu_title, PACKED_ARRAY);
+		printa(column, "gds__%d\t: %s;\t\t(* TERMINATOR *)",
+			   menu->menu_terminator, SHORT_DCL);
+		printa(column, "gds__%dl\t: %s;\t\t(* ENTREE_LENGTH *)",
+			   menu->menu_entree_entree, SHORT_DCL);
+		printa(column, "gds__%d\t: %s [1..81] of char;\t\t(* ENTREE_TEXT *)",
+			   menu->menu_entree_entree, PACKED_ARRAY);
+		printa(column, "gds__%d\t: %s;\t\t(* ENTREE_VALUE *)",
+			   menu->menu_entree_value, LONG_DCL);
+	}
+
+	if (entree) {
+		entree->entree_entree = CMP_next_ident();
+		entree->entree_value = CMP_next_ident();
+		entree->entree_end = CMP_next_ident();
+		printa(column, "gds__%dl\t: %s;\t\t(* ENTREE_LENGTH *)",
+			   entree->entree_entree, SHORT_DCL);
+		printa(column, "gds__%d\t: %s [1..81] of char;\t\t(* ENTREE_TEXT *)",
+			   entree->entree_entree, PACKED_ARRAY);
+		printa(column, "gds__%d\t: %s;\t\t(* ENTREE_VALUE *)",
+			   entree->entree_value, LONG_DCL);
+		printa(column, "gds__%d\t: %s;\t\t(* *)",
+			   entree->entree_end, SHORT_DCL);
+	}
+
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a name for a reference.  Name is constructed from
+//		port and parameter idents.
+//  
+
+static TEXT *gen_name( TEXT * string, REF reference, BOOLEAN as_blob)
+{
+
+	if (reference->ref_field->fld_array_info && !as_blob)
+		sprintf(string, "gds__%d",
+				reference->ref_field->fld_array_info->ary_ident);
+	else
+		sprintf(string, "gds__%d.gds__%d",
+				reference->ref_port->por_ident, reference->ref_ident);
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a block to handle errors.
+//  
+
+static void gen_on_error( ACT action, USHORT column)
+{
+	ACT err_action;
+
+	err_action = (ACT) action->act_object;
+	if ((err_action->act_type == ACT_get_segment) ||
+		(err_action->act_type == ACT_put_segment) ||
+		(err_action->act_type == ACT_endblob))
+			printa(column,
+				   "if (gds__status [2] <> 0) and (gds__status[2] <> gds__segment) and (gds__status[2] <> gds__segstr_eof) then");
+	else
+		printa(column, "if (gds__status [2] <> 0) then");
+	column += INDENT;
+	BEGIN;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code for an EXECUTE PROCEDURE.
+//  
+
+static void gen_procedure( ACT action, int column)
+{
+	PAT args;
+	TEXT *pattern;
+	REQ request;
+	POR in_port, out_port;
+	DBB dbb;
+
+	column += INDENT;
+	request = action->act_request;
+	in_port = request->req_vport;
+	out_port = request->req_primary;
+
+	dbb = request->req_database;
+	args.pat_database = dbb;
+	args.pat_request = action->act_request;
+	args.pat_vector1 = status_vector(action);
+	args.pat_request = request;
+	args.pat_port = in_port;
+	args.pat_port2 = out_port;
+	if (in_port && in_port->por_length)
+		pattern =
+			"isc_transact_request (%V1, %RF%DH%RE, %RF%RT%RE, %VF%RS%VE, %RI, %VF%PL%VE, %RF%PI%RE, %VF%QL%VE, %RF%QI%RE);";
+	else
+		pattern =
+			"isc_transact_request (%V1, %RF%DH%RE, %RF%RT%RE, %VF%RS%VE, %RI, %VF0%VE, 0, %VF%QL%VE, %RF%QI%RE);";
+
+
+//  Get database attach and transaction started 
+
+	if (sw_auto)
+		t_start_auto(action, 0, status_vector(action), column);
+
+//  Move in input values 
+
+	asgn_from(action, request->req_values, column);
+
+//  Execute the procedure 
+
+	PATTERN_expand(column, pattern, &args);
+
+	SET_SQLCODE;
+
+	printa(column, "if SQLCODE = 0 then");
+	column += INDENT;
+	BEGIN;
+
+//  Move out output values 
+
+	asgn_to_proc(request->req_references, column);
+	END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the code to do a put segment.
+//  
+
+static void gen_put_segment( ACT action, int column)
+{
+	BLB blob;
+	PAT args;
+	REF from;
+	TEXT *pattern1 =
+		"%IFgds__status[2] := %ENGDS__PUT_SEGMENT (%V1, %BH, %I1, %I2);";
+
+	if (!action->act_error)
+		BEGIN;
+	if (action->act_error || (action->act_flags & ACT_sql))
+		BEGIN;
+
+	if (action->act_flags & ACT_sql) {
+		blob = (BLB) action->act_request->req_blobs;
+		from = action->act_object;
+		align(column);
+		ib_fprintf(out_file, "gds__%d := %s;",
+				   blob->blb_len_ident, from->ref_null_value);
+		align(column);
+		ib_fprintf(out_file, "gds__ftof (%s, gds__%d, gds__%d, gds__%d);",
+				   from->ref_value, blob->blb_len_ident,
+				   blob->blb_buff_ident, blob->blb_len_ident);
+	}
+	else
+		blob = (BLB) action->act_object;
+
+	args.pat_blob = blob;
+	args.pat_vector1 = status_vector(action);
+	args.pat_condition = TRUE;
+	args.pat_ident1 = blob->blb_len_ident;
+	args.pat_ident2 = blob->blb_buff_ident;
+	PATTERN_expand(column, pattern1, &args);
+
+	SET_SQLCODE;
+
+	if (action->act_flags & ACT_sql)
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate BLR in raw, numeric form.  Ughly but dense.
+//  
+
+static gen_raw( UCHAR * blr, int request_length, int column)
+{
+	UCHAR *end, c;
+	TEXT *p, *limit, buffer[80];
+
+	p = buffer;
+	limit = buffer + 60;
+
+	for (end = blr + request_length - 1; blr <= end; blr++) {
+		c = *blr;
+		if ((c >= 'A' && c <= 'Z') || c == '$' || c == '_')
+			sprintf(p, "'%c'", c);
+		else
+			sprintf(p, "chr(%d)", c);
+		while (*p)
+			p++;
+		if (blr != end)
+			*p++ = ',';
+		if (p < limit)
+			continue;
+		*p = 0;
+		printa(INDENT, buffer);
+		p = buffer;
+	}
+
+	*p = 0;
+	printa(INDENT, buffer);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for READY
+//  
+
+static gen_ready( ACT action, int column)
+{
+	RDY ready;
+	DBB db;
+	TEXT *filename, *vector;
+
+	vector = status_vector(action);
+
+	for (ready = (RDY) action->act_object; ready; ready = ready->rdy_next) {
+		db = ready->rdy_database;
+		if (!(filename = ready->rdy_filename))
+			filename = db->dbb_runtime;
+		if ((action->act_error || (action->act_flags & ACT_sql)) &&
+			ready != (RDY) action->act_object)
+			printa(column, "if (gds__status[2] = 0) then begin");
+		make_ready(db, filename, vector, column, ready->rdy_request);
+		if ((action->act_error || (action->act_flags & ACT_sql)) &&
+			ready != (RDY) action->act_object)
+			END;
+	}
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate receive call for a port.
+//  
+
+static gen_receive( ACT action, int column, POR port)
+{
+	REQ request;
+
+	align(column);
+
+	request = action->act_request;
+	ib_fprintf(out_file, "GDS__RECEIVE (%s, %s, %d, %d, %sgds__%d, %s);",
+			   status_vector(action),
+			   request->req_handle,
+			   port->por_msg_number,
+			   port->por_length,
+			   REF_PAR, port->por_ident, request->req_request_level);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for RELEASE_REQUESTS
+//		For active databases, call gds__release_request.
+//		for all others, just zero the handle.  For the
+//		release request calls, ignore error returns, which
+//		are likely if the request was compiled on a database
+//		which has been released and re-readied.  If there is
+//		a serious error, it will be caught on the next statement.
+//  
+
+static gen_release( ACT action, int column)
+{
+	DBB db, exp_db;
+	REQ request;
+
+	exp_db = (DBB) action->act_object;
+
+	for (request = requests; request; request = request->req_next) {
+		db = request->req_database;
+		if (exp_db && db != exp_db)
+			continue;
+		if (!(request->req_flags & REQ_exp_hand)) {
+			printa(column, "if %s <> NIL then", db->dbb_name->sym_string);
+			printa(column + INDENT, "gds__release_request (gds__status, %s);",
+				   request->req_handle);
+			printa(column, "%s := NIL;", request->req_handle);
+		}
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate definitions associated with a single request.
+//  
+
+static gen_request( REQ request, int column)
+{
+	BLB blob;
+	POR port;
+	TEXT *sw_volatile, *string_type;
+	REF reference;
+
+//  generate request handle, blob handles, and ports 
+
+	sw_volatile = FB_DP_VOLATILE;
+	printa(column, " ");
+
+	if (!
+		(request->
+		 req_flags & (REQ_exp_hand | REQ_menu_for_item | REQ_sql_blob_open |
+					  REQ_sql_blob_create)) && request->req_type != REQ_slice
+&& request->req_type != REQ_procedure)
+		printa(column, "%s\t: %s gds__handle := nil;\t\t(* request handle *)",
+			   request->req_handle, sw_volatile);
+
+	if (request->req_flags & (REQ_sql_blob_open | REQ_sql_blob_create))
+		printa(column,
+			   "gds__%ds\t: %s gds__handle := nil;\t\t(* SQL statement handle *)",
+			   request->req_ident, sw_volatile);
+
+//  generate actual BLR string 
+
+	if (request->req_length) {
+		printa(column, " ");
+		if (request->req_flags & REQ_sql_cursor)
+			printa(column,
+				   "gds__%ds\t: %s gds__handle := nil;\t\t(* SQL statement handle *)",
+				   request->req_ident, sw_volatile);
+#ifdef SCROLLABLE_CURSORS
+		if (request->req_flags & REQ_scroll)
+			printa(column,
+				   "gds__%ddirection\t: %s := 0;\t\t(* last direction sent to engine *)",
+				   request->req_ident, SHORT_DCL);
+#endif
+		printa(column, "gds__%dl\t: %s := %d;\t\t(* request length *)",
+			   request->req_ident, SHORT_DCL, request->req_length);
+		printa(column, "gds__%d\t: %s [1..%d] of char := %s",
+			   request->req_ident, PACKED_ARRAY, request->req_length,
+			   OPEN_BRACKET);
+		string_type = "BLR";
+		if (sw_raw) {
+			gen_raw(request->req_blr, request->req_length, column);
+			switch (request->req_type) {
+			case REQ_create_database:
+			case REQ_ready:
+				string_type = "DPB";
+				break;
+
+			case REQ_ddl:
+				string_type = "DYN";
+				break;
+
+			case REQ_form:
+				string_type = "form map";
+				break;
+
+			case REQ_menu:
+				string_type = "menu";
+				break;
+
+			case REQ_slice:
+				string_type = "SDL";
+				break;
+
+			default:
+				string_type = "BLR";
+				break;
+			}
+		}
+		else
+			switch (request->req_type) {
+			case REQ_create_database:
+			case REQ_ready:
+				string_type = "DPB";
+				if (PRETTY_print_cdb(reinterpret_cast<char*>(request->req_blr),
+									reinterpret_cast<int(*)()>(gen_blr), 0, 1))
+					IBERROR("internal error during parameter generation");
+				break;
+
+			case REQ_ddl:
+				string_type = "DYN";
+				if (PRETTY_print_dyn(reinterpret_cast<char*>(request->req_blr),
+									reinterpret_cast<int(*)()>(gen_blr), 0, 1))
+					IBERROR("internal error during dynamic DDL generation");
+				break;
+
+			case REQ_form:
+				string_type = "form map";
+				if (PRETTY_print_form_map(reinterpret_cast<char*>(request->req_blr),
+										reinterpret_cast<int(*)()>(gen_blr), 0, 1))
+					IBERROR("internal error during form map generation");
+				break;
+
+			case REQ_menu:
+				string_type = "menu";
+				if (PRETTY_print_menu(reinterpret_cast<char*>(request->req_blr),
+									reinterpret_cast<int(*)()>(gen_blr), 0, 1))
+					IBERROR("internal error during menu generation");
+				break;
+
+			case REQ_slice:
+				string_type = "SDL";
+				if (PRETTY_print_sdl(reinterpret_cast<char*>(request->req_blr),
+									reinterpret_cast<int(*)()>(gen_blr), 0, 1))
+					IBERROR("internal error during SDL generation");
+				break;
+
+			default:
+				string_type = "BLR";
+				if (gds__print_blr(request->req_blr,
+									reinterpret_cast<void(*)()>(gen_blr), 0, 1))
+					IBERROR("internal error during BLR generation");
+				break;
+			}
+		printa(column, "%s;\t(* end of %s string for request gds__%d *)\n",
+			   CLOSE_BRACKET, string_type, request->req_ident);
+	}
+
+//   Print out slice description language if there are arrays associated with request  
+
+	for (port = request->req_ports; port; port = port->por_next)
+		for (reference = port->por_references; reference;
+			 reference = reference->ref_next) if (reference->ref_sdl) {
+				printa(column, "gds__%d\t: %s [1..%d] of char := %s",
+					   reference->ref_sdl_ident, PACKED_ARRAY,
+					   reference->ref_sdl_length, OPEN_BRACKET);
+				if (sw_raw)
+					gen_raw(reinterpret_cast<UCHAR*>(reference->ref_sdl), reference->ref_sdl_length,
+							column);
+				else if (PRETTY_print_sdl(reference->ref_sdl,
+										reinterpret_cast<int(*)()>(gen_blr),
+										0, 1))
+					IBERROR("internal error during SDL generation");
+				printa(column, "%s; \t(* end of SDL string for gds__%d *)\n",
+					   CLOSE_BRACKET, reference->ref_sdl_ident);
+			}
+
+//  Print out any blob parameter blocks required 
+
+	for (blob = request->req_blobs; blob; blob = blob->blb_next)
+		if (blob->blb_bpb_length) {
+			printa(column, "gds__%d\t: %s [1..%d] of char := %s",
+				   blob->blb_bpb_ident,
+				   PACKED_ARRAY, blob->blb_bpb_length, OPEN_BRACKET);
+			gen_raw(blob->blb_bpb, blob->blb_bpb_length, column);
+			printa(column, "%s;\n", CLOSE_BRACKET);
+		}
+
+	if (request->req_type == REQ_menu)
+		gen_menu_request(request, column);
+
+//  If this is GET_SLICE/PUT_SLICE, allocate some variables 
+
+	if (request->req_type == REQ_slice) {
+		printa(column, "gds__%dv\t: array [1..%d] of %s;",
+			   request->req_ident, MAX(request->req_slice->slc_parameters, 1),
+			   LONG_DCL);
+		printa(column, "gds__%ds\t: %s;", request->req_ident, LONG_DCL);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate receive call for a port
+//		in a store2 statement.
+//  
+
+static gen_return_value( ACT action, int column)
+{
+	UPD update;
+	REF reference;
+	REQ request;
+
+	request = action->act_request;
+	if (action->act_pair->act_error)
+		column += INDENT;
+	gen_start(action, request->req_primary, column);
+	update = (UPD) action->act_object;
+	reference = update->upd_references;
+	gen_receive(action, column, reference->ref_port);
+}
+
+
+//____________________________________________________________
+//  
+//		Process routine head.  If there are requests in the
+//		routine, insert local definitions.
+//  
+
+static gen_routine( ACT action, int column)
+{
+	BLB blob;
+	REQ request;
+	POR port;
+
+	column += INDENT;
+
+	for (request = (REQ) action->act_object; request;
+		 request = request->req_routine) {
+		for (port = request->req_ports; port; port = port->por_next) {
+			printa(column - INDENT, "type");
+			make_port(port, column);
+		}
+
+		/*  Only write a var reserved word if there are variables which will be
+		   associated with a var section.  Fix for bug#809.  mao  03/22/89 */
+
+		if (request->req_ports) {
+			printa(column - INDENT, "var");
+		}
+
+		for (port = request->req_ports; port; port = port->por_next)
+			printa(column, "gds__%d\t: gds__%dt;\t\t\t(* message *)",
+				   port->por_ident, port->por_ident);
+
+		for (blob = request->req_blobs; blob; blob = blob->blb_next) {
+			printa(column, "gds__%d\t: gds__handle;\t\t\t(* blob handle *)",
+				   blob->blb_ident);
+			printa(column,
+				   "gds__%d\t: %s [1 .. %d] of char;\t(* blob segment *)",
+				   blob->blb_buff_ident, PACKED_ARRAY, blob->blb_seg_length);
+			printa(column, "gds__%d\t: %s;\t\t\t(* segment length *)",
+				   blob->blb_len_ident, SHORT_DCL);
+		}
+	}
+	column -= INDENT;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for END_STREAM.
+//  
+
+static gen_s_end( ACT action, int column)
+{
+	REQ request;
+
+	if (action->act_error)
+		BEGIN;
+	request = action->act_request;
+
+	if (action->act_type == ACT_close)
+		column = gen_cursor_close(action, request, column);
+
+	printa(column, "GDS__UNWIND_REQUEST (%s, %s, %s);",
+		   status_vector(action),
+		   request->req_handle, request->req_request_level);
+
+	if (action->act_type == ACT_close) {
+		END;
+		column -= INDENT;
+		ENDS;
+		column -= INDENT;
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for FETCH.
+//  
+
+static gen_s_fetch( ACT action, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	if (request->req_sync)
+		gen_send(action, request->req_sync, column);
+
+	gen_receive(action, column, request->req_primary);
+	if (!action->act_pair && !action->act_error)
+		END;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text to compile and start a stream.  This is
+//		used both by START_STREAM and FOR
+//  
+
+static gen_s_start( ACT action, int column)
+{
+	REQ request;
+	POR port;
+
+	request = action->act_request;
+
+	gen_compile(action, column);
+
+	if (action->act_type == ACT_open)
+		column = gen_cursor_open(action, request, column);
+
+	if (port = request->req_vport)
+		asgn_from(action, port->por_references, column);
+
+	if (action->act_error || (action->act_flags & ACT_sql)) {
+		make_ok_test(action, request, column);
+		column += INDENT;
+	}
+
+	gen_start(action, port, column);
+
+	if (action->act_error || (action->act_flags & ACT_sql))
+		column -= INDENT;
+
+	if (action->act_type == ACT_open) {
+		END;
+		column -= INDENT;
+		END;
+		column -= INDENT;
+		ENDS;
+		column -= INDENT;
+	}
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a segment, segment length, or blob handle.
+//  
+
+static gen_segment( ACT action, int column)
+{
+	BLB blob;
+
+	blob = (BLB) action->act_object;
+
+	printa(column, "gds__%d",
+		   (action->act_type == ACT_segment) ? blob->blb_buff_ident :
+		   (action->act_type == ACT_segment_length) ? blob->blb_len_ident :
+		   blob->blb_ident);
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static gen_select( ACT action, int column)
+{
+	REQ request;
+	POR port;
+	NOD var_list;
+	int i;
+	TEXT name[20];
+
+	request = action->act_request;
+	port = request->req_primary;
+	gen_name(name, request->req_eof, TRUE);
+
+	gen_s_start(action, column);
+	BEGIN;
+	gen_receive(action, column, port);
+	printa(column, "if SQLCODE = 0 then", name);
+	column += INDENT;
+	printa(column, "if %s <> 0 then", name);
+	column += INDENT;
+
+	BEGIN;
+	if (var_list = (NOD) action->act_object)
+		for (i = 0; i < var_list->nod_count; i++) {
+			align(column);
+			asgn_to(action, reinterpret_cast<REF>(var_list->nod_arg[i]), column);
+		}
+
+	if (request->req_database->dbb_flags & DBB_v3) {
+		gen_receive(action, column, port);
+		printa(column, "if (SQLCODE = 0) AND (%s <> 0) then", name);
+		printa(column + INDENT, "SQLCODE := -1");
+		END;
+	}
+
+	printa(column - INDENT, "else");
+	printa(column, "SQLCODE := 100;");
+	column -= INDENT;
+	ENDS;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a send or receive call for a port.
+//  
+
+static gen_send( ACT action, POR port, int column)
+{
+	REQ request;
+
+	request = action->act_request;
+	align(column);
+
+	ib_fprintf(out_file, "GDS__SEND (%s, %s, %d, %d, gds__%d, %s);",
+			   status_vector(action),
+			   request->req_handle,
+			   port->por_msg_number,
+			   port->por_length, port->por_ident, request->req_request_level);
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate support for get/put slice statement.
+//  
+
+static gen_slice( ACT action, int column)
+{
+	REQ request, parent_request;
+	REF reference, upper, lower;
+	SLC slice;
+	PAT args;
+	slc::slc_repeat *tail, *end;
+	TEXT *pattern1 =
+		"GDS__GET_SLICE (%V1, %RF%DH%RE, %RF%RT%RE, %RF%FR%RE, %N1, \
+%I1, %N2, %I1v, %I1s, %RF%S5%RE, %RF%S6%RE);";
+	TEXT *pattern2 =
+		"GDS__PUT_SLICE (%V1, %RF%DH%RE, %RF%RT%RE, %RF%FR%RE, %N1, \
+%I1, %N2, %I1v, %I1s, %RF%S5%RE);";
+
+	request = action->act_request;
+	slice = (SLC) action->act_object;
+	parent_request = slice->slc_parent_request;
+
+//  Compute array size 
+
+	printa(column, "gds__%ds := %d", request->req_ident,
+		   slice->slc_field->fld_array->fld_length);
+
+	for (tail = slice->slc_rpt, end = tail + slice->slc_dimensions;
+		 tail < end; ++tail)
+		if (tail->slc_upper != tail->slc_lower) {
+			lower = (REF) tail->slc_lower->nod_arg[0];
+			upper = (REF) tail->slc_upper->nod_arg[0];
+			if (lower->ref_value)
+				ib_fprintf(out_file, " * ( %s - %s + 1)", upper->ref_value,
+						   lower->ref_value);
+			else
+				ib_fprintf(out_file, " * ( %s + 1)", upper->ref_value);
+		}
+
+	ib_fprintf(out_file, ";");
+
+//  Make assignments to variable vector 
+
+	for (reference = request->req_values; reference;
+		 reference =
+		 reference->ref_next) printa(column, "gds__%dv [%d] := %s;",
+									 request->req_ident, reference->ref_id,
+									 reference->ref_value);
+
+	args.pat_reference = slice->slc_field_ref;
+	args.pat_request = parent_request;	/* blob id request */
+	args.pat_vector1 = status_vector(action);	/* status vector */
+	args.pat_database = parent_request->req_database;	/* database handle */
+	args.pat_string1 = action->act_request->req_trans;	/* transaction handle */
+	args.pat_value1 = request->req_length;	/* slice descr. length */
+	args.pat_ident1 = request->req_ident;	/* request name */
+	args.pat_value2 = slice->slc_parameters * sizeof(SLONG);	/* parameter length */
+
+	reference = (REF) slice->slc_array->nod_arg[0];
+	args.pat_string5 = reference->ref_value;	/* array name */
+	args.pat_string6 = "gds__array_length";
+
+	PATTERN_expand(column,
+				   (action->act_type == ACT_get_slice) ? pattern1 : pattern2,
+				   &args);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate either a START or START_AND_SEND depending
+//		on whether or a not a port is present.
+//  
+
+static gen_start( ACT action, POR port, int column)
+{
+	REQ request;
+	TEXT *vector;
+	REF reference;
+
+	request = action->act_request;
+	vector = status_vector(action);
+
+	align(column);
+
+	if (port) {
+		for (reference = port->por_references; reference;
+			 reference =
+			 reference->ref_next) if (reference->ref_field->
+									  fld_array_info)
+					gen_get_or_put_slice(action, reference, FALSE, column);
+
+		ib_fprintf(out_file,
+				   "GDS__START_AND_SEND (%s, %s, %s, %d, %d, gds__%d, %s);",
+				   vector, request->req_handle, request_trans(action,
+															  request),
+				   port->por_msg_number, port->por_length, port->por_ident,
+				   request->req_request_level);
+	}
+
+	else
+		ib_fprintf(out_file, "GDS__START_REQUEST (%s, %s, %s, %s);",
+				   vector,
+				   request->req_handle,
+				   request_trans(action, request),
+				   request->req_request_level);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate text for STORE statement.  This includes the compile
+//		call and any variable initialization required.
+//  
+
+static gen_store( ACT action, int column)
+{
+	REQ request;
+	REF reference;
+	FLD field;
+	POR port;
+	TEXT name[64];
+
+	request = action->act_request;
+	gen_compile(action, column);
+	if (action->act_error || (action->act_flags & ACT_sql)) {
+		make_ok_test(action, request, column);
+		column += INDENT;
+		if (action->act_error)
+			BEGIN;
+	}
+
+//  Initialize any blob fields 
+
+	port = request->req_primary;
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		field = reference->ref_field;
+		if (field->fld_flags & FLD_blob)
+			printa(column, "%s := gds__blob_null;\n",
+				   gen_name(name, reference, TRUE));
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for START_TRANSACTION.
+//  
+
+static void gen_t_start( ACT action, int column)
+{
+	DBB db;
+	TRA trans;
+	TPB tpb;
+	int count;
+	TEXT *filename;
+
+//  
+//  for automatically generated transactions, and transactions that are
+//  explicitly started, but don't have any arguments so don't get a TPB,
+//  generate something plausible.
+//  
+
+	if (!action || !(trans = (TRA) action->act_object)) {
+		t_start_auto(action, 0, status_vector(action), column);
+		return;
+	}
+
+//  build a complete statement, including tpb's.
+//  first generate any appropriate ready statements,
+//  On non-VMS machines, fill in the tpb vector (aka TEB). 
+
+	count = 0;
+	for (tpb = trans->tra_tpb; tpb; tpb = tpb->tpb_tra_next) {
+		count++;
+		db = tpb->tpb_database;
+		if (sw_auto)
+			if ((filename = db->dbb_runtime) || !(db->dbb_flags & DBB_sqlca)) {
+				printa(column, "if (%s = nil) then",
+					   db->dbb_name->sym_string);
+				make_ready(db, filename, status_vector(action),
+						   column + INDENT, 0);
+			}
+
+#ifndef VMS
+		printa(column, "gds__teb[%d].tpb_len := %d;", count, tpb->tpb_length);
+		printa(column, "gds__teb[%d].tpb_ptr := ADDR(gds__tpb_%d);",
+			   count, tpb->tpb_ident);
+		printa(column, "gds__teb[%d].dbb_ptr := ADDR(%s);",
+			   count, db->dbb_name->sym_string);
+#endif
+	}
+
+#ifdef VMS
+//  Now build the start_transaction.  Use lots of %REF and %IMMED to
+//  convince the PASCAL compiler not to hassle us about the argument list. 
+
+	printa(column, "GDS__START_TRANSACTION (%s, %%REF %s, %%IMMED %d",
+		   status_vector(action),
+		   (trans->tra_handle) ? trans->tra_handle : "gds__trans",
+		   trans->tra_db_count);
+
+	for (tpb = trans->tra_tpb; tpb; tpb = tpb->tpb_tra_next) {
+		ib_putc(',', out_file);
+		align(column + INDENT);
+		ib_fprintf(out_file, "%%REF %s, %%IMMED %d, %%REF gds__tpb_%d",
+				   tpb->tpb_database->dbb_name->sym_string,
+				   tpb->tpb_length, tpb->tpb_ident);
+	}
+	ib_fprintf(out_file, ")");
+#else
+	printa(column, "GDS__START_MULTIPLE (%s, %s, %d, gds__teb);",
+		   status_vector(action),
+		   (trans->tra_handle) ? trans->tra_handle : "gds__trans",
+		   trans->tra_db_count);
+#endif
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a TPB in the output file
+//  
+
+static gen_tpb( TPB tpb, int column)
+{
+	TEXT *text, buffer[80], c, *p;
+	int length;
+
+	printa(column, "gds__tpb_%d\t: %s [1..%d] of char := %s",
+		   tpb->tpb_ident, PACKED_ARRAY, tpb->tpb_length, OPEN_BRACKET);
+
+	length = tpb->tpb_length;
+	text = (TEXT *) tpb->tpb_string;
+	p = buffer;
+
+	while (--length) {
+		c = *text++;
+		if ((c >= 'A' && c <= 'Z') || c == '$' || c == '_')
+			sprintf(p, "'%c', ", c);
+		else
+			sprintf(p, "chr(%d), ", c);
+		while (*p)
+			p++;
+		if (p - buffer > 60) {
+			align(column + INDENT);
+			ib_fprintf(out_file, " %s", buffer);
+			p = buffer;
+			*p = 0;
+		}
+	}
+
+//  handle the last character 
+	c = *text++;
+
+	if ((c >= 'A' && c <= 'Z') || c == '$' || c == '_')
+		sprintf(p, "'%c',", c);
+	else
+		sprintf(p, "chr(%d)", c);
+
+	align(column + INDENT);
+	ib_fprintf(out_file, "%s", buffer);
+
+	printa(column, "%s;\n", CLOSE_BRACKET);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for COMMIT, ROLLBACK, PREPARE, and SAVE
+//  
+
+static gen_trans( ACT action, int column)
+{
+
+	align(column);
+
+	if (action->act_type == ACT_commit_retain_context)
+		ib_fprintf(out_file, "GDS__COMMIT_RETAINING (%s, %s);",
+				   status_vector(action),
+				   (action->act_object) ? (TEXT *) action->
+				   act_object : "gds__trans");
+	else
+		ib_fprintf(out_file, "GDS__%s_TRANSACTION (%s, %s);",
+				   (action->act_type ==
+					ACT_commit) ? "COMMIT" : (action->act_type ==
+											  ACT_rollback) ? "ROLLBACK" :
+				   "PREPARE", status_vector(action),
+				   (action->act_object) ? (TEXT *) action->
+				   act_object : "gds__trans");
+
+	SET_SQLCODE;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for UPDATE ... WHERE CURRENT OF ...
+//  
+
+static void gen_update( ACT action, int column)
+{
+	POR port;
+	UPD modify;
+
+	modify = (UPD) action->act_object;
+	port = modify->upd_port;
+	asgn_from(action, port->por_references, column);
+	gen_send(action, port, column);
+}
+
+
+//____________________________________________________________
+//  
+//		Substitute for a variable reference.
+//  
+
+static void gen_variable( ACT action, int column)
+{
+	TEXT s[20];
+
+	printa(column, gen_name(s, action->act_object, FALSE));
+}
+
+
+//____________________________________________________________
+//  
+//		Generate tests for any WHENEVER clauses that may have been declared.
+//  
+
+static void gen_whenever( SWE label, int column)
+{
+	TEXT *condition;
+
+	if (label)
+		ib_fprintf(out_file, ";");
+
+	while (label) {
+		switch (label->swe_condition) {
+		case SWE_error:
+			condition = "SQLCODE < 0";
+			break;
+
+		case SWE_warning:
+			condition = "(SQLCODE > 0) AND (SQLCODE <> 100)";
+			break;
+
+		case SWE_not_found:
+			condition = "SQLCODE = 100";
+			break;
+		}
+		align(column);
+		ib_fprintf(out_file, "if %s then goto %s;", condition,
+				   label->swe_label);
+		label = label->swe_next;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Create a new window.
+//  
+
+static void gen_window_create( ACT action, int column)
+{
+
+	printa(column,
+		   "pyxis__create_window (gds__window, 0, 0, gds__width, gds__height)");
+}
+
+
+//____________________________________________________________
+//  
+//		Delete a window.
+//  
+
+static void gen_window_delete( ACT action, int column)
+{
+
+	printa(column, "pyxis__delete_window (gds__window)");
+}
+
+
+//____________________________________________________________
+//  
+//		Suspend a window.
+//  
+
+static void gen_window_suspend( ACT action, int column)
+{
+
+	printa(column, "pyxis__suspend_window (gds__window)");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a declaration of an array in the
+//		output file.
+//  
+
+static void make_array_declaration( REF reference)
+{
+	FLD field;
+	TEXT *name;
+	TEXT s[64];
+	DIM dimension;
+
+	field = reference->ref_field;
+	name = field->fld_symbol->sym_string;
+
+//  Don't generate multiple declarations for the array.  V3 Bug 569.  
+
+	if (field->fld_array_info->ary_declared)
+		return;
+
+	field->fld_array_info->ary_declared = TRUE;
+
+	if (field->fld_array_info->ary_dtype <= dtype_varying)
+		ib_fprintf(out_file, "gds__%d : %s [",
+				   field->fld_array_info->ary_ident, PACKED_ARRAY);
+	else
+		ib_fprintf(out_file, "gds__%d : array [",
+				   field->fld_array_info->ary_ident);
+
+//   Print out the dimension part of the declaration  
+	for (dimension = field->fld_array_info->ary_dimension; dimension;
+		 dimension = dimension->dim_next) {
+		ib_fprintf(out_file, "%d..%d", dimension->dim_lower,
+				   dimension->dim_upper);
+		if (dimension->dim_next)
+			ib_fprintf(out_file, ", ");
+	}
+
+	if (field->fld_array_info->ary_dtype <= dtype_varying)
+		ib_fprintf(out_file, ", 1..%d", field->fld_array->fld_length);
+
+	ib_fprintf(out_file, "] of ");
+
+	switch (field->fld_array_info->ary_dtype) {
+	case dtype_short:
+		ib_fprintf(out_file, SHORT_DCL);
+		break;
+
+	case dtype_long:
+		ib_fprintf(out_file, LONG_DCL);
+		break;
+
+	case dtype_cstring:
+	case dtype_text:
+	case dtype_varying:
+		ib_fprintf(out_file, "char");
+		break;
+
+	case dtype_date:
+	case dtype_quad:
+		ib_fprintf(out_file, "GDS__QUAD");
+		break;
+
+	case dtype_float:
+		ib_fprintf(out_file, "real");
+		break;
+
+	case dtype_double:
+		ib_fprintf(out_file, "double");
+		break;
+
+	default:
+		sprintf(s, "datatype %d unknown for field %s",
+				field->fld_array_info->ary_dtype, name);
+		IBERROR(s);
+		return;
+	}
+
+//   Print out the database field  
+
+	ib_fprintf(out_file, ";\t(* %s *)\n", name);
+}
+
+
+//____________________________________________________________
+//  
+//		Turn a symbol into a varying string.
+//  
+
+static TEXT *make_name( TEXT * string, SYM symbol)
+{
+
+	sprintf(string, "'%s '", symbol->sym_string);
+
+	return string;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate code to test existence of compiled request with
+//		active transaction
+//  
+
+static make_ok_test( ACT action, REQ request, int column)
+{
+
+	if (sw_auto)
+		printa(column, "if (%s <> nil) and (%s <> nil) then",
+			   request_trans(action, request), request->req_handle);
+	else
+		printa(column, "if (%s <> nil) then", request->req_handle);
+}
+
+
+//____________________________________________________________
+//  
+//		Insert a port record description in output.
+//  
+
+static void make_port( POR port, int column)
+{
+	FLD field;
+	REF reference;
+	SYM symbol;
+	SSHORT flag;
+	TEXT *name, s[80];
+
+	flag = FALSE;
+	printa(column, "gds__%dt = record", port->por_ident);
+
+	for (reference = port->por_references; reference;
+		 reference = reference->ref_next) {
+		if (flag)
+			ib_fprintf(out_file, ";");
+		flag = TRUE;
+		align(column + INDENT);
+		field = reference->ref_field;
+		if (symbol = field->fld_symbol)
+			name = symbol->sym_string;
+		else
+			name = "<expression>";
+		if (reference->ref_value && (reference->ref_flags & REF_array_elem))
+			field = field->fld_array;
+		switch (field->fld_dtype) {
+		case dtype_float:
+			ib_fprintf(out_file, "gds__%d\t: real\t(* %s *)",
+					   reference->ref_ident, name);
+			break;
+
+		case dtype_double:
+			ib_fprintf(out_file, "gds__%d\t: double\t(* %s *)",
+					   reference->ref_ident, name);
+			break;
+
+		case dtype_short:
+			ib_fprintf(out_file, "gds__%d\t: %s\t(* %s *)",
+					   reference->ref_ident, SHORT_DCL, name);
+			break;
+
+		case dtype_long:
+			ib_fprintf(out_file, "gds__%d\t: %s\t(* %s *)",
+					   reference->ref_ident, LONG_DCL, name);
+			break;
+
+		case dtype_date:
+		case dtype_quad:
+		case dtype_blob:
+			ib_fprintf(out_file, "gds__%d\t: gds__quad\t(* %s *)",
+					   reference->ref_ident, name);
+			break;
+
+		case dtype_text:
+			ib_fprintf(out_file, "gds__%d\t: %s [1..%d] of char\t(* %s *)",
+					   reference->ref_ident, PACKED_ARRAY, field->fld_length,
+					   name);
+			break;
+
+		default:
+			sprintf(s, "datatype %d unknown for field %s, msg %d",
+					field->fld_dtype, name, port->por_msg_number);
+			CPR_error(s);
+			return;
+		};
+	}
+
+	printa(column, "end;\n");
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the actual insertion text for a
+//		ready;
+//  
+
+static make_ready(
+				  DBB db,
+				  TEXT * filename, TEXT * vector, USHORT column, REQ request)
+{
+	TEXT s1[32], s2[32];
+
+	if (request) {
+		sprintf(s1, "gds__%dL", request->req_ident);
+		sprintf(s2, "gds__%d", request->req_ident);
+	}
+
+	align(column);
+	if (filename)
+#ifdef VMS
+		ib_fprintf(out_file,
+				   "GDS__ATTACH_DATABASE_d (%s, %%STDESCR %s, %s, %s, %s);",
+				   vector, filename, db->dbb_name->sym_string,
+				   (request ? s1 : "0"), (request ? s2 : "0"));
+#else
+		ib_fprintf(out_file,
+				   "GDS__ATTACH_DATABASE (%s, %s (%s), %s, %s, %s, %s);",
+				   vector, SIZEOF, filename, filename,
+				   db->dbb_name->sym_string, (request ? s1 : "0"),
+				   (request ? s2 : "0"));
+#endif
+	else
+		ib_fprintf(out_file,
+				   "GDS__ATTACH_DATABASE (%s, %d, '%s', %s, %s, %s);", vector,
+				   strlen(db->dbb_filename), db->dbb_filename,
+				   db->dbb_name->sym_string, (request ? s1 : "0"),
+				   (request ? s2 : "0"));
+}
+
+
+//____________________________________________________________
+//  
+//		Print a fixed string at a particular column.
+//  
+
+static printa( int column, TEXT * string, ...)
+{
+	va_list ptr;
+
+	VA_START(ptr, string);
+	align(column);
+	ib_vfprintf(out_file, string, ptr);
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the appropriate transaction handle.
+//  
+
+static TEXT *request_trans( ACT action, REQ request)
+{
+	TEXT *trname;
+
+	if (action->act_type == ACT_open) {
+		if (!(trname = ((OPN) action->act_object)->opn_trans))
+			trname = "gds__trans";
+		return trname;
+	}
+	else
+		return (request) ? request->req_trans : "gds__trans";
+}
+
+
+//____________________________________________________________
+//  
+//		Generate the appropriate status vector parameter for a gds
+//		call depending on where or not the action has an error clause.
+//  
+
+static TEXT *status_vector( ACT action)
+{
+
+	if (action && (action->act_error || (action->act_flags & ACT_sql)))
+		return "gds__status";
+
+	return "gds__null^";
+}
+
+
+//____________________________________________________________
+//  
+//		Generate substitution text for START_TRANSACTION.
+//		The complications include the fact that all databases
+//		must be readied, and that everything should stop if
+//		any thing fails so we don't trash the status vector.
+//  
+
+static t_start_auto( ACT action, REQ request, TEXT * vector, int column)
+{
+	DBB db;
+	int count, stat, and_count;
+	TEXT *filename, buffer[256], temp[40];
+
+	buffer[0] = 0;
+
+//  find out whether we're using a status vector or not 
+
+	stat = !strcmp(vector, "gds__status");
+
+//  this is a default transaction, make sure all databases are ready 
+
+	BEGIN;
+
+	for (db = isc_databases, count = and_count = 0; db; db = db->dbb_next) {
+		if (sw_auto)
+			if ((filename = db->dbb_runtime) || !(db->dbb_flags & DBB_sqlca)) {
+				align(column);
+				ib_fprintf(out_file, "if (%s = nil",
+						   db->dbb_name->sym_string);
+				if (stat && buffer[0])
+					ib_fprintf(out_file, ") and (%s[2] = 0", vector);
+				ib_fprintf(out_file, ") then");
+				make_ready(db, filename, vector, column + INDENT, 0);
+				if (buffer[0])
+					if (and_count % 4)
+						strcat(buffer, ") and (");
+					else
+						strcat(buffer, ") and\n\t(");
+				and_count++;
+				sprintf(temp, "%s <> nil", db->dbb_name->sym_string);
+				strcat(buffer, temp);
+				printa(column, "if (%s) then", buffer);
+				align(column + INDENT);
+			}
+
+		count++;
+#ifndef VMS
+		printa(column, "gds__teb[%d].tpb_len:= 0;", count);
+		printa(column, "gds__teb[%d].tpb_ptr := ADDR(gds__null);", count);
+		printa(column, "gds__teb[%d].dbb_ptr := ADDR(%s);", count,
+			   db->dbb_name->sym_string);
+#endif
+	}
+
+#ifdef VMS
+	column += INDENT;
+	printa(column, "GDS__START_TRANSACTION (%s, %%REF %s, %%IMMED %d",
+		   vector, request_trans(action, request), count);
+
+	for (db = isc_databases; db; db = db->dbb_next) {
+		ib_putc(',', out_file);
+		align(column + INDENT);
+		ib_fprintf(out_file, "%%REF %s, %%IMMED 0, %%REF 0",
+				   db->dbb_name->sym_string);
+	}
+	ib_fprintf(out_file, ");");
+	column -= INDENT;
+
+#else
+	printa(column, "GDS__START_MULTIPLE (%s, %s, %d, gds__teb);",
+		   vector, request_trans(action, request), count);
+#endif
+
+	if (sw_auto && request)
+		column -= INDENT;
+
+	SET_SQLCODE;
+	ENDS;
+}
diff --git a/src/gpre/pat.cpp b/src/gpre/pat.cpp
new file mode 100644
index 0000000000..9e91c80cac
--- /dev/null
+++ b/src/gpre/pat.cpp
@@ -0,0 +1,458 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	Language Preprocessor
+//		MODULE:		pat.cpp
+//		DESCRIPTION:	Code generator pattern generator
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  
+//
+//____________________________________________________________
+//
+//	$Id: pat.cpp,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+//
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../gpre/gpre.h"
+#include "../gpre/form.h"
+#include "../gpre/pat.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/pat_proto.h"
+
+
+extern "C" {
+
+
+extern TEXT *ident_pattern;
+
+typedef enum {
+	NL,
+	RH, RL, RT, RI, RS,			/* Request handle, level, transaction, ident, length */
+	DH, DF,						/* Database handle, filename */
+	TH,							/* Transaction handle */
+	BH, BI,						/* Blob handle, blob_ident */
+	FH,							/* Form handle */
+	V1, V2,						/* Status vectors */
+	I1, I2,						/* Identifier numbers */
+	RF, RE,						/* OS- and language-dependent REF and REF-end character */
+	VF, VE,						/* OS- and language-dependent VAL and VAL-end character */
+	S1, S2, S3, S4, S5, S6, S7,
+	/* Arbitrary strings */
+	N1, N2, N3, N4,				/* Arbitrary number (SSHORT) */
+	L1, L2,						/* Arbitrary number (SLONG) */
+	PN, PL, PI,					/* Port number, port length, port ident */
+	QN, QL, QI,					/* Second port number, port length, port ident */
+	IF, EL, EN,					/* If, else, end */
+	FR							/* Field reference */
+} PAT_T;
+
+static struct ops {
+	PAT_T ops_type;
+	TEXT ops_string[3];
+} operators[] = {
+	RH, "RH",
+		RL, "RL",
+		RT, "RT",
+		RI, "RI",
+		RS, "RS",
+		DH, "DH",
+		DF, "DF",
+		TH, "TH",
+		BH, "BH",
+		BI, "BI",
+		FH, "FH",
+		V1, "V1",
+		V2, "V2",
+		I1, "I1",
+		I2, "I2",
+		S1, "S1",
+		S2, "S2",
+		S3, "S3",
+		S4, "S4",
+		S5, "S5",
+		S6, "S6",
+		S7, "S7",
+		N1, "N1",
+		N2, "N2",
+		N3, "N3",
+		N4, "N4",
+		L1, "L1",
+		L2, "L2",
+		PN, "PN",
+		PL, "PL",
+		PI, "PI",
+		QN, "QN",
+		QL, "QL",
+		QI, "QI",
+		IF, "IF",
+		EL, "EL",
+		EN, "EN", RF, "RF", RE, "RE", VF, "VF", VE, "VE", FR, "FR", NL, ""};
+
+
+//____________________________________________________________
+//  
+//		Expand a pattern.
+//  
+
+void PATTERN_expand( USHORT column, TEXT * pattern, PAT * args)
+{
+	struct ops *operator_;
+	TEXT buffer[512], c, *p, temp1[16], temp2[16];
+	USHORT sw_ident, sw_gen, n;
+	SSHORT value;				/* value needs to be signed since some of the
+								   values printed out are signed.  */
+	SLONG long_value;
+	BOOLEAN long_flag, handle_flag;
+	REF reference;
+	TEXT *string, *ref, *refend, *val, *valend, *q;
+
+	ref = "";
+	refend = "";
+	val = "";
+	valend = "";
+
+	if ((sw_language == lang_c) || (sw_language == lang_cxx)) {
+		ref = "&";
+		refend = "";
+	}
+	else if (sw_language == lang_pli) {
+		ref = "ADDR(";
+		refend = ")";
+	}
+	else if (sw_language == lang_pascal) {
+		ref = "%%REF ";
+		refend = "";
+	}
+	else if (sw_language == lang_cobol) {
+		ref = "BY REFERENCE ";
+		refend = "";
+		val = "BY VALUE ";
+		valend = "";
+	}
+	else if (sw_language == lang_fortran) {
+#ifdef VMS
+		ref = "%REF(";
+		refend = ")";
+		val = "%VAL(";
+		valend = ")";
+#endif
+#if (defined AIX || defined AIX_PPC)
+		ref = "%REF(";
+		refend = ")";
+		val = "%VAL(";
+		valend = ")";
+#endif
+	}
+
+	p = buffer;
+	*p++ = '\n';
+	sw_gen = TRUE;
+	for (n = column; n; --n)
+		*p++ = ' ';
+
+	while (c = *pattern++) {
+		if (c != '%') {
+			if (sw_gen) {
+				*p++ = c;
+				if ((c == '\n') && (*pattern))
+					for (n = column; n; --n)
+						*p++ = ' ';
+			}
+			continue;
+		}
+		sw_ident = FALSE;
+		string = NULL;
+		reference = NULL;
+		handle_flag = long_flag = FALSE;
+		for (operator_ = operators; operator_->ops_type != NL; operator_++)
+			if (operator_->ops_string[0] == pattern[0] &&
+				operator_->ops_string[1] == pattern[1])
+				break;
+		pattern += 2;
+		switch (operator_->ops_type) {
+		case IF:
+			sw_gen = args->pat_condition;
+			continue;
+
+		case EL:
+			sw_gen = !sw_gen;
+			continue;
+
+		case EN:
+			sw_gen = TRUE;
+			continue;
+
+		case RH:
+			handle_flag = TRUE;
+			string = args->pat_request->req_handle;
+			break;
+
+		case RL:
+			string = args->pat_request->req_request_level;
+			break;
+
+		case RS:
+			value = args->pat_request->req_length;
+			break;
+
+		case RT:
+			handle_flag = TRUE;
+			string = args->pat_request->req_trans;
+			break;
+
+		case RI:
+			value = args->pat_request->req_ident;
+			sw_ident = TRUE;
+			break;
+
+		case DH:
+			handle_flag = TRUE;
+			string = args->pat_database->dbb_name->sym_string;
+			break;
+
+		case DF:
+			string = args->pat_database->dbb_filename;
+			break;
+
+		case PN:
+			value = args->pat_port->por_msg_number;
+			break;
+
+		case PL:
+			value = args->pat_port->por_length;
+			break;
+
+		case PI:
+			value = args->pat_port->por_ident;
+			sw_ident = TRUE;
+			break;
+
+		case QN:
+			value = args->pat_port2->por_msg_number;
+			break;
+
+		case QL:
+			value = args->pat_port2->por_length;
+			break;
+
+		case QI:
+			value = args->pat_port2->por_ident;
+			sw_ident = TRUE;
+			break;
+
+		case BH:
+			value = args->pat_blob->blb_ident;
+			sw_ident = TRUE;
+			break;
+
+		case I1:
+			value = args->pat_ident1;
+			sw_ident = TRUE;
+			break;
+
+		case I2:
+			value = args->pat_ident2;
+			sw_ident = TRUE;
+			break;
+
+		case S1:
+			string = args->pat_string1;
+			break;
+
+		case S2:
+			string = args->pat_string2;
+			break;
+
+		case S3:
+			string = args->pat_string3;
+			break;
+
+		case S4:
+			string = args->pat_string4;
+			break;
+
+		case S5:
+			string = args->pat_string5;
+			break;
+
+		case S6:
+			string = args->pat_string6;
+			break;
+
+		case S7:
+			string = args->pat_string7;
+			break;
+
+		case V1:
+			string = args->pat_vector1;
+			break;
+
+		case V2:
+			string = args->pat_vector2;
+			break;
+
+		case N1:
+			value = args->pat_value1;
+			break;
+
+		case N2:
+			value = args->pat_value2;
+			break;
+
+		case N3:
+			value = args->pat_value3;
+			break;
+
+		case N4:
+			value = args->pat_value4;
+			break;
+
+		case L1:
+			long_value = args->pat_long1;
+			long_flag = TRUE;
+			break;
+
+		case L2:
+			long_value = args->pat_long2;
+			long_flag = TRUE;
+			break;
+
+		case RF:
+			string = ref;
+			break;
+
+		case RE:
+			string = refend;
+			break;
+
+		case VF:
+			string = val;
+			break;
+
+		case VE:
+			string = valend;
+			break;
+
+		case FR:
+			reference = args->pat_reference;
+			break;
+
+		default:
+			sprintf(buffer, "Unknown substitution \"%c%c\"", pattern[-2],
+					pattern[-1]);
+			IBERROR(buffer);
+			continue;
+		}
+		if (!sw_gen)
+			continue;
+		if (string) {
+			if (handle_flag && (sw_language == lang_ada))
+				for (q = ada_package; *q;)
+					*p++ = *q++;
+			while (*string)
+				*p++ = *string++;
+			continue;
+		}
+		if (sw_ident)
+			sprintf(p, ident_pattern, value);
+		else if (reference) {
+			if (!reference->ref_port)
+				sprintf(p, ident_pattern, reference->ref_ident);
+			else {
+				sprintf(temp1, ident_pattern, reference->ref_port->por_ident);
+				sprintf(temp2, ident_pattern, reference->ref_ident);
+				switch (sw_language) {
+				case lang_basic:
+					sprintf(p, "%s::%s", temp1, temp2);
+					break;
+
+				case lang_fortran:
+				case lang_cobol:
+					strcpy(p, temp2);
+					break;
+
+				default:
+					sprintf(p, "%s.%s", temp1, temp2);
+				}
+			}
+		}
+		else if (long_flag) {
+			if (sw_language == lang_basic)
+				sprintf(p, "%d%%", long_value);
+			else
+				sprintf(p, "%d", long_value);
+		}
+		else {
+			if (sw_language == lang_basic)
+				sprintf(p, "%d%%", value);
+			else
+				sprintf(p, "%d", value);
+		}
+
+		while (*p)
+			p++;
+	}
+
+	*p = 0;
+	switch (sw_language) {
+#ifdef ADA
+		/*  Ada lines can be up to 120 characters long.  ADA_print_buffer
+		   handles this problem and ensures that GPRE output is <=120 characters.
+		 */
+	case lang_ada:
+		ADA_print_buffer(buffer, 0);
+		break;
+#endif
+
+#ifdef BASIC
+	case lang_basic:
+		/*  Basic lines can be up to 72 characters long.  BAS_print_buffer
+		   handles this problem and ensures that GPRE output is <= 72 characters.
+		 */
+		BAS_print_buffer(buffer);
+		break;
+#endif
+
+#ifdef COBOL
+		/*  COBOL lines can be up to 72 characters long.  COB_print_buffer
+		   handles this problem and ensures that GPRE output is <= 72 characters.
+		 */
+	case lang_cobol:
+		COB_print_buffer(buffer, TRUE);
+		break;
+#endif
+
+#ifdef FORTRAN
+		/*  In FORTRAN, characters beyond column 72 are ignored.  FTN_print_buffer
+		   handles this problem and ensures that GPRE output does not exceed this
+		   limit.
+		 */
+	case lang_fortran:
+		FTN_print_buffer(buffer);
+		break;
+#endif
+
+	default:
+		ib_fprintf(out_file, buffer);
+		break;
+	}
+}
+
+
+} // extern "C"
diff --git a/src/gpre/pat.h b/src/gpre/pat.h
new file mode 100644
index 0000000000..2cd766edb7
--- /dev/null
+++ b/src/gpre/pat.h
@@ -0,0 +1,98 @@
+/*
+ *	PROGRAM:	Language Preprocessor
+ *	MODULE:		pat.h
+ *	DESCRIPTION:	Code generator pattern generator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_PAT_H_
+#define _GPRE_PAT_H_
+
+/* 
+Substitution codes: 
+
+    RH	Request handle
+    RL	Request level
+
+    DH	Database handle
+    DF	Database filename
+
+    TH	Transaction handle
+
+    BH	Blob handle
+    BI	Blob ident
+
+    FH	Form handle
+
+    V1	Start vector (1)
+    V2	Start vector (2)
+    I1	Identifier 1
+    I2	Identifier 2
+    RF	Pass by ref modifier
+    S1	Arbitrary string
+    S2	Arbitrary string
+    S3  Arbitrary string
+    S4  Arbitrary string
+    S5  Arbitrary string
+    S6  Arbitrary string
+    S7  Arbitrary string
+    N1	Arbitrary number (signed SSHORT)
+    N2  Arbitrary number (signed SSHORT)
+    N3	Arbitrary number (signed SSHORT)
+    N4  Arbitrary number (signed SSHORT)
+    L1  Arbitrary number (signed SLONG)
+    L2  Arbitrary number (signed SLONG)
+    PN	Port message number
+    PL	Port length
+    PI	Port ident
+    QN	Second port message number
+    QL	Second port length
+    QI	Second port ident
+
+*/
+
+typedef struct pat {
+	DBB pat_database;
+	REQ pat_request;
+	TRA pat_transaction;
+	BLB pat_blob;
+	POR pat_port;
+	POR pat_port2;
+	TEXT *pat_string1;
+	TEXT *pat_string2;
+	TEXT *pat_string3;
+	TEXT *pat_string4;
+	TEXT *pat_string5;
+	TEXT *pat_string6;
+	TEXT *pat_string7;
+	USHORT pat_ident1;
+	USHORT pat_ident2;
+	TEXT *pat_vector1;
+	TEXT *pat_vector2;
+	int pat_value1;
+	int pat_value2;
+	int pat_value3;
+	int pat_value4;
+	SLONG pat_long1;
+	SLONG pat_long2;
+	BOOLEAN pat_condition;
+	REF pat_reference;
+} PAT;
+
+#endif /* _GPRE_PAT_H_ */
diff --git a/src/gpre/pat_proto.h b/src/gpre/pat_proto.h
new file mode 100644
index 0000000000..8337cd1f54
--- /dev/null
+++ b/src/gpre/pat_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		pat_proto.h
+ *	DESCRIPTION:	Prototype header file for pat.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_PAT_PROTO_H_
+#define _GPRE_PAT_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void PATTERN_expand(USHORT, TEXT *, PAT *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _GPRE_PAT_PROTO_H_ */
diff --git a/src/gpre/prett_proto.h b/src/gpre/prett_proto.h
new file mode 100644
index 0000000000..8f5aebd4a7
--- /dev/null
+++ b/src/gpre/prett_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		prett_proto.h
+ *	DESCRIPTION:	Prototype header file for pretty.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_PRETT_PROTO_H_
+#define _GPRE_PRETT_PROTO_H_
+
+typedef int (*PRETTY_print_cb_pfn) ();
+
+extern int PRETTY_print_cdb(SCHAR *, PRETTY_print_cb_pfn, SCHAR *, SSHORT);
+extern int PRETTY_print_dyn(SCHAR *, PRETTY_print_cb_pfn, SCHAR *, SSHORT);
+extern int PRETTY_print_form_map(SCHAR *, PRETTY_print_cb_pfn, SCHAR *,
+								 SSHORT);
+extern int PRETTY_print_mblr(SCHAR *, PRETTY_print_cb_pfn, SCHAR *, SSHORT);
+extern int PRETTY_print_menu(SCHAR *, PRETTY_print_cb_pfn, SCHAR *, SSHORT);
+extern int PRETTY_print_sdl(SCHAR *, PRETTY_print_cb_pfn, SCHAR *, SSHORT);
+
+#endif /* _GPRE_PRETT_PROTO_H_ */
diff --git a/src/gpre/pretty.cpp b/src/gpre/pretty.cpp
new file mode 100644
index 0000000000..1d0701460e
--- /dev/null
+++ b/src/gpre/pretty.cpp
@@ -0,0 +1,1134 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	BLR Pretty Printer
+//		MODULE:		pretty.cpp
+//		DESCRIPTION:	BLR Pretty Printer
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  
+//
+//____________________________________________________________
+//
+//	$Id: pretty.cpp,v 1.1.1.1 2001-05-23 13:25:32 tamlin Exp $
+//
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../include/jrd/gds.h"
+#include "../gpre/prett_proto.h"
+#include "../jrd/gds_proto.h"
+
+#ifdef sun
+#ifndef SOLARIS
+extern int ib_printf();
+#endif
+#endif
+
+#define ADVANCE_PTR(ptr) while (*ptr) ptr++;
+
+#define PRINT_VERB 	if (print_verb (control, level)) return -1
+#define PRINT_DYN_VERB 	if (print_dyn_verb (control, level)) return -1
+#define PRINT_SDL_VERB 	if (print_sdl_verb (control, level)) return -1
+#define PRINT_LINE	print_line (control, (SSHORT)offset)
+#define PRINT_BYTE	print_byte (control, (SSHORT)offset)
+#define PRINT_CHAR	print_char (control, (SSHORT)offset)
+#define PRINT_WORD	print_word (control, (SSHORT)offset)
+#define PRINT_LONG	print_long (control, (SSHORT)offset)
+#define PRINT_STRING	print_string (control, (SSHORT)offset)
+#define BLR_BYTE	*(control->ctl_blr)++
+#define PUT_BYTE(byte)	*(control->ctl_ptr)++ = byte
+#define NEXT_BYTE	*(control->ctl_blr)
+#define CHECK_BUFFER	if (control->ctl_ptr > control->ctl_buffer + sizeof (control->ctl_buffer) - 20) PRINT_LINE
+
+
+typedef int (*pfn_ctl_routine) (SCHAR *, SSHORT, TEXT *);
+
+typedef struct ctl {
+	SCHAR *ctl_blr;				/* Running blr string */
+	SCHAR *ctl_blr_start;		/* Original start of blr string */
+	pfn_ctl_routine ctl_routine;	/* Call back */
+	SCHAR *ctl_user_arg;		/* User argument */
+	TEXT *ctl_ptr;
+	SSHORT ctl_language;
+	SSHORT ctl_level;
+	TEXT ctl_buffer[256];
+} *CTL;
+
+static int blr_format(CTL, const char *, ...);
+static int error(CTL, int, TEXT *, int *);
+static int indent(CTL, SSHORT);
+static int print_blr_dtype(CTL, BOOLEAN);
+static int print_blr_line(CTL, USHORT, UCHAR *);
+static int print_byte(CTL, SSHORT);
+static int print_char(CTL, SSHORT);
+static int print_dyn_verb(CTL, SSHORT);
+static int print_line(CTL, SSHORT);
+static SLONG print_long(CTL, SSHORT);
+static int print_sdl_verb(CTL, SSHORT);
+static int print_string(CTL, SSHORT);
+static int print_word(CTL, SSHORT);
+
+const char *dyn_table[] = {
+#include "../gpre/dyntable.h"
+	NULL
+};
+
+const char *cdb_table[] = {
+#include "../gpre/cdbtable.h"
+	NULL
+};
+
+const char *sdl_table[] = {
+#include "../gpre/sdltable.h"
+	NULL
+};
+
+const char *map_strings[] = {
+	"FIELD2",
+	"FIELD1",
+	"MESSAGE",
+	"TERMINATOR",
+	"TERMINATING_FIELD",
+	"OPAQUE",
+	"TRANSPARENT",
+	"TAG",
+	"SUB_FORM",
+	"ITEM_INDEX",
+	"SUB_FIELD"
+};
+
+const char *menu_strings[] = {
+	"LABEL",
+	"ENTREE",
+	"OPAQUE",
+	"TRANSPARENT",
+	"HORIZONTAL",
+	"VERTICAL"
+};
+
+int PRETTY_print_cdb(
+					 SCHAR * blr,
+//____________________________________________________________
+//  
+//		Pretty print create database parameter buffer thru callback routine.
+//  
+
+					 int (*routine) (), SCHAR * user_arg, SSHORT language)
+{
+
+	struct ctl ctl_, *control;
+	SCHAR temp[32];
+	SSHORT parameter;
+	SSHORT level = 0;
+	SSHORT length;
+	SSHORT i;
+	int offset = 0;
+
+
+	control = &ctl_;
+
+	if (!routine) {
+		routine = (int (*)()) ib_printf;
+		user_arg = "%.4d %s\n";
+	}
+
+	control->ctl_routine = reinterpret_cast < pfn_ctl_routine > (routine);
+	control->ctl_user_arg = user_arg;
+	control->ctl_blr = control->ctl_blr_start = blr;
+	control->ctl_ptr = control->ctl_buffer;
+	control->ctl_language = language;
+
+	indent(control, level);
+	i = BLR_BYTE;
+	if (*control->ctl_blr)
+		sprintf((SCHAR *) temp, "gds_dpb_version%d, ", i);
+	else
+		sprintf((SCHAR *) temp, "gds_dpb_version%d", i);
+	blr_format(control, temp);
+	PRINT_LINE;
+
+	while (parameter = BLR_BYTE) {
+		const char *p;
+		if (parameter > (sizeof(cdb_table) / sizeof(cdb_table[0])) ||
+			!(p = cdb_table[parameter])) {
+			return error(control, 0,
+						 "*** cdb parameter %d is undefined ***\n",
+						 (int *) parameter);
+		}
+		indent(control, level);
+		blr_format(control, p);
+		PUT_BYTE(',');
+		if (length = PRINT_BYTE) {
+			do {
+				PRINT_CHAR;
+			} while (--length);
+		}
+		PRINT_LINE;
+	}
+
+	return 0;
+}
+
+
+int PRETTY_print_dyn(
+					 SCHAR * blr,
+//____________________________________________________________
+//  
+//		Pretty print dynamic DDL thru callback routine.
+//  
+
+					 int (*routine) (), SCHAR * user_arg, SSHORT language)
+{
+	struct ctl ctl, *control;
+	int offset;
+	SSHORT version, level;
+
+	control = &ctl;
+	offset = level = 0;
+
+	if (!routine) {
+		routine = (int (*)()) ib_printf;
+		user_arg = "%.4d %s\n";
+	}
+
+	control->ctl_routine = reinterpret_cast < pfn_ctl_routine > (routine);
+	control->ctl_user_arg = user_arg;
+	control->ctl_blr = control->ctl_blr_start = blr;
+	control->ctl_ptr = control->ctl_buffer;
+	control->ctl_language = language;
+
+	version = BLR_BYTE;
+
+	if (version != gds_dyn_version_1)
+		return error(control, offset,
+					 "*** dyn version %d is not supported ***\n",
+					 (int *) version);
+
+	blr_format(control, "gds_dyn_version_1, ");
+	PRINT_LINE;
+	level++;
+	PRINT_DYN_VERB;
+
+	if (BLR_BYTE != (SCHAR) gds_dyn_eoc)
+		return error(control, offset,
+					 "*** expected dyn end-of-command  ***\n", 0);
+
+	blr_format(control, "gds_dyn_eoc");
+	PRINT_LINE;
+
+	return 0;
+}
+
+
+PRETTY_print_form_map(SCHAR * blr,
+//____________________________________________________________
+//  
+//		Pretty print a form map.
+//  
+
+					  int (*routine) (), SCHAR * user_arg, SSHORT language)
+{
+	struct ctl ctl, *control;
+	SCHAR c;
+	int offset, n;
+	SSHORT version, level;
+
+	control = &ctl;
+	offset = level = 0;
+
+	if (!routine) {
+		routine = (int (*)()) ib_printf;
+		user_arg = "%.4d %s\n";
+	}
+
+	control->ctl_routine = reinterpret_cast < pfn_ctl_routine > (routine);
+	control->ctl_user_arg = user_arg;
+	control->ctl_blr = control->ctl_blr_start = blr;
+	control->ctl_ptr = control->ctl_buffer;
+	control->ctl_language = language;
+
+	version = BLR_BYTE;
+
+	if (version != PYXIS_MAP_VERSION1)
+		return error(control, offset,
+					 "*** dyn version %d is not supported ***\n",
+					 (int *) version);
+
+	blr_format(control, "PYXIS_MAP_VERSION1,");
+	PRINT_LINE;
+	level++;
+
+	while ((c = BLR_BYTE) != PYXIS_MAP_END) {
+		indent(control, level);
+		if (c >= PYXIS_MAP_FIELD2 && c <= PYXIS_MAP_SUB_FIELD)
+			blr_format(control, "PYXIS_MAP_%s, ",
+					   map_strings[c - PYXIS_MAP_FIELD2]);
+		switch (c) {
+		case PYXIS_MAP_MESSAGE:
+			PRINT_BYTE;
+			for (n = PRINT_WORD; n; --n) {
+				PRINT_LINE;
+				indent(control, (SSHORT) (level + 1));
+				print_blr_dtype(control, TRUE);
+			}
+			break;
+
+		case PYXIS_MAP_SUB_FORM:
+			PRINT_STRING;
+			break;
+
+		case PYXIS_MAP_SUB_FIELD:
+			PRINT_STRING;
+
+		case PYXIS_MAP_FIELD1:
+		case PYXIS_MAP_FIELD2:
+			PRINT_STRING;
+			PRINT_LINE;
+			indent(control, (SSHORT) (level + 1));
+			PRINT_WORD;
+			if (c != PYXIS_MAP_FIELD1)
+				PRINT_WORD;
+			break;
+
+		case PYXIS_MAP_TERMINATOR:
+		case PYXIS_MAP_TERMINATING_FIELD:
+		case PYXIS_MAP_ITEM_INDEX:
+			PRINT_WORD;
+			break;
+
+		case PYXIS_MAP_OPAQUE:
+		case PYXIS_MAP_TRANSPARENT:
+		case PYXIS_MAP_TAG:
+			break;
+
+		default:
+			return error(control, offset, "*** invalid form map ***\n", 0);
+		}
+		PRINT_LINE;
+	}
+
+	blr_format(control, "PYXIS_MAP_END");
+	PRINT_LINE;
+
+	return 0;
+}
+
+
+int PRETTY_print_mblr(
+					  SCHAR * blr,
+//____________________________________________________________
+//  
+//		Pretend we're printing MBLR, but print dynamic
+//		DDL instead.
+//  
+
+					  int (*routine) (), SCHAR * user_arg, SSHORT language)
+{
+
+	return PRETTY_print_dyn(blr, routine, user_arg, language);
+}
+
+
+PRETTY_print_menu(SCHAR * blr,
+//____________________________________________________________
+//  
+//		Pretty print a menu definition.
+//  
+
+				  int (*routine) (), SCHAR * user_arg, SSHORT language)
+{
+	struct ctl ctl, *control;
+	SCHAR c;
+	int offset;
+	SSHORT version, level;
+
+	control = &ctl;
+	offset = level = 0;
+
+	if (!routine) {
+		routine = (int (*)()) ib_printf;
+		user_arg = "%.4d %s\n";
+	}
+
+	control->ctl_routine = reinterpret_cast < pfn_ctl_routine > (routine);
+	control->ctl_user_arg = user_arg;
+	control->ctl_blr = control->ctl_blr_start = blr;
+	control->ctl_ptr = control->ctl_buffer;
+	control->ctl_language = language;
+
+	version = BLR_BYTE;
+
+	if (version != PYXIS_MENU_VERSION1)
+		return error(control, offset,
+					 "*** menu version %d is not supported ***\n",
+					 (int *) version);
+
+	blr_format(control, "PYXIS_MENU_VERSION1,");
+	PRINT_LINE;
+	level++;
+
+	while ((c = BLR_BYTE) != PYXIS_MENU_END) {
+		indent(control, level);
+		if (c >= PYXIS_MENU_LABEL && c <= PYXIS_MENU_VERTICAL)
+			blr_format(control, "PYXIS_MENU_%s, ",
+					   menu_strings[c - PYXIS_MENU_LABEL]);
+		switch (c) {
+		case PYXIS_MENU_ENTREE:
+			PRINT_BYTE;
+
+		case PYXIS_MENU_LABEL:
+			PRINT_STRING;
+			break;
+
+		case PYXIS_MENU_HORIZONTAL:
+		case PYXIS_MENU_VERTICAL:
+		case PYXIS_MENU_OPAQUE:
+		case PYXIS_MENU_TRANSPARENT:
+			break;
+
+		default:
+			return error(control, offset, "*** invalid MENU ***\n", 0);
+		}
+		PRINT_LINE;
+	}
+
+	blr_format(control, "PYXIS_MENU_END");
+	PRINT_LINE;
+
+	return 0;
+}
+
+
+PRETTY_print_sdl(SCHAR * blr,
+//____________________________________________________________
+//  
+//		Pretty print slice description language.
+//  
+
+				 int (*routine) (), SCHAR * user_arg, SSHORT language)
+{
+	struct ctl ctl, *control;
+	int offset;
+	SSHORT version, level;
+
+	control = &ctl;
+	offset = level = 0;
+
+	if (!routine) {
+		routine = (int (*)()) ib_printf;
+		user_arg = "%.4d %s\n";
+	}
+
+	control->ctl_routine = reinterpret_cast < pfn_ctl_routine > (routine);
+	control->ctl_user_arg = user_arg;
+	control->ctl_blr = control->ctl_blr_start = blr;
+	control->ctl_ptr = control->ctl_buffer;
+	control->ctl_language = language;
+
+	version = BLR_BYTE;
+
+	if (version != gds_sdl_version1)
+		return error(control, offset,
+					 "*** sdl version %d is not supported ***\n",
+					 (int *) version);
+
+	blr_format(control, "gds_sdl_version1, ");
+	PRINT_LINE;
+	level++;
+
+	while (NEXT_BYTE != (SCHAR) gds_sdl_eoc)
+		PRINT_SDL_VERB;
+
+	offset = control->ctl_blr - control->ctl_blr_start;
+	blr_format(control, "gds_sdl_eoc");
+	PRINT_LINE;
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Format an utterance.
+//  
+
+static int blr_format(CTL control, const char *string, ...)
+{
+	va_list ptr;
+
+	VA_START(ptr, string);
+	vsprintf(control->ctl_ptr, string, ptr);
+	while (*control->ctl_ptr)
+		control->ctl_ptr++;
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Put out an error msg and punt.
+//  
+
+static int error( CTL control, int offset, TEXT * string, int *arg)
+{
+
+	PRINT_LINE;
+	sprintf(control->ctl_ptr, string, arg);
+	ib_fprintf(ib_stderr, control->ctl_ptr);
+	ADVANCE_PTR(control->ctl_ptr);
+	PRINT_LINE;
+
+	return -1;
+}
+
+
+//____________________________________________________________
+//  
+//		Indent for pretty printing.
+//  
+
+static int indent( CTL control, SSHORT level)
+{
+
+	level *= 3;
+	while (--level >= 0)
+		PUT_BYTE(' ');
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Print a datatype sequence and return the length of the
+//		data described.
+//  
+
+static print_blr_dtype( CTL control, BOOLEAN print_object)
+{
+	unsigned short dtype;
+	SCHAR *string;
+	SSHORT length;
+//  TMN: FIX FIX Note that offset is not initialized to anything useful
+//  for e.g. PRINT_WORD. I assume it's better to initialize it to zero
+//  than letting it be random.
+//  
+	SSHORT offset = 0;
+
+	dtype = BLR_BYTE;
+
+//  Special case blob (261) to keep down the size of the
+//  jump table 
+
+	switch (dtype) {
+	case blr_short:
+		string = "short";
+		length = 2;
+		break;
+
+	case blr_long:
+		string = "long";
+		length = 4;
+		break;
+
+	case blr_quad:
+		string = "quad";
+		length = 8;
+		break;
+
+// ** Begin date/time/timestamp *
+	case blr_sql_date:
+		string = "sql_date";
+		length = sizeof(ISC_DATE);
+		break;
+
+	case blr_sql_time:
+		string = "sql_time";
+		length = sizeof(ISC_TIME);
+		break;
+
+	case blr_timestamp:
+		string = "timestamp";
+		length = sizeof(ISC_TIMESTAMP);
+		break;
+// ** End date/time/timestamp *
+
+	case blr_int64:
+		string = "int64";
+		length = sizeof(ISC_INT64);
+		break;
+
+	case blr_float:
+		string = "float";
+		length = 4;
+		break;
+
+	case blr_double:
+		string = "double";
+		length = 8;
+		break;
+
+	case blr_d_float:
+		string = "d_float";
+		length = 8;
+		break;
+
+	case blr_text:
+		string = "text";
+		break;
+
+	case blr_cstring:
+		string = "cstring";
+		break;
+
+	case blr_varying:
+		string = "varying";
+		break;
+
+	case blr_text2:
+		string = "text2";
+		break;
+
+	case blr_cstring2:
+		string = "cstring2";
+		break;
+
+	case blr_varying2:
+		string = "varying2";
+		break;
+
+	case blr_blob_id:
+		string = "blob_id";
+		length = 8;
+		break;
+
+	default:
+		error(control, 0, "*** invalid data type ***", 0);
+	}
+
+	blr_format(control, "blr_%s, ", string);
+
+	if (!print_object)
+		return length;
+
+	switch (dtype) {
+	case blr_text:
+		length = PRINT_WORD;
+		break;
+
+	case blr_varying:
+		length = PRINT_WORD + 2;
+		break;
+
+	case blr_text2:
+		PRINT_WORD;
+		length = PRINT_WORD;
+		break;
+
+	case blr_varying2:
+		PRINT_WORD;
+		length = PRINT_WORD + 2;
+		break;
+
+	case blr_short:
+	case blr_long:
+	case blr_quad:
+		PRINT_BYTE;
+		break;
+
+	case blr_blob_id:
+		PRINT_WORD;
+		break;
+
+	default:
+		if (dtype == blr_cstring)
+			length = PRINT_WORD;
+		if (dtype == blr_cstring2) {
+			PRINT_WORD;
+			length = PRINT_WORD;
+		}
+		break;
+	}
+
+	return length;
+}
+
+
+
+//____________________________________________________________
+//  
+//		Print a line of pretty-printed BLR.
+//  
+
+static int print_blr_line( CTL control, USHORT offset, UCHAR * line)
+{
+	USHORT comma;
+	UCHAR c;
+
+	indent(control, control->ctl_level);
+	comma = FALSE;
+
+	while (c = *line++) {
+		PUT_BYTE(c);
+		if (c == ',')
+			comma = TRUE;
+		else if (c != ' ')
+			comma = FALSE;
+	}
+
+	if (!comma)
+		PUT_BYTE(',');
+
+	PRINT_LINE;
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Print a byte as a numeric value and return same.
+//  
+
+static int print_byte( CTL control, SSHORT offset)
+{
+	UCHAR v;
+
+	v = BLR_BYTE;
+	sprintf(control->ctl_ptr, (control->ctl_language) ? "chr(%d), " : "%d, ",
+			v);
+	ADVANCE_PTR(control->ctl_ptr);
+
+	return v;
+}
+
+
+//____________________________________________________________
+//  
+//		Print a byte as a numeric value and return same.
+//  
+
+static int print_char( CTL control, SSHORT offset)
+{
+	UCHAR c;
+	SSHORT printable;
+
+	c = BLR_BYTE;
+	printable = (c >= 'a' && c <= 'z') ||
+		(c >= 'A' && c <= 'Z') ||
+		(c >= '0' && c <= '9' || c == '$' || c == '_');
+
+	sprintf(control->ctl_ptr, (printable) ?
+			"'%c'," : (control->ctl_language) ? "chr(%d)," : "%d,", c);
+	ADVANCE_PTR(control->ctl_ptr);
+
+	CHECK_BUFFER;
+
+	return c;
+}
+
+
+//____________________________________________________________
+//  
+//		Primary recursive routine to print dynamic DDL.
+//  
+
+static int print_dyn_verb( CTL control, SSHORT level)
+{
+	int offset, length, size;
+	UCHAR operator_;
+	const char *p;
+
+	offset = control->ctl_blr - control->ctl_blr_start;
+	operator_ = BLR_BYTE;
+
+	size = sizeof(dyn_table) / sizeof(dyn_table[0]);
+	if (operator_ > size || operator_ <= 0 || !(p = dyn_table[operator_]))
+		return error(control, offset,
+					 "*** dyn operator %d is undefined ***\n",
+					 (int *) operator_);
+
+	indent(control, level);
+	blr_format(control, p);
+	PUT_BYTE(',');
+	PUT_BYTE(' ');
+	++level;
+
+	switch (operator_) {
+	case gds_dyn_begin:
+	case gds_dyn_mod_database:
+		PRINT_LINE;
+		while (NEXT_BYTE != gds_dyn_end)
+			PRINT_DYN_VERB;
+		PRINT_DYN_VERB;
+		return 0;
+
+	case gds_dyn_view_blr:
+	case gds_dyn_fld_validation_blr:
+	case gds_dyn_fld_computed_blr:
+	case gds_dyn_trg_blr:
+	case gds_dyn_fld_missing_value:
+	case gds_dyn_prc_blr:
+	case gds_dyn_fld_default_value:
+		length = PRINT_WORD;
+		PRINT_LINE;
+		if (length) {
+			control->ctl_level = level;
+			gds__print_blr((UCHAR *) control->ctl_blr,
+						   (FPTR_VOID) print_blr_line, (SCHAR *) control,
+						   control->ctl_language);
+			control->ctl_blr += length;
+		}
+		return 0;
+
+	case gds_dyn_scl_acl:
+	case gds_dyn_log_check_point_length:
+	case gds_dyn_log_num_of_buffers:
+	case gds_dyn_log_buffer_size:
+	case gds_dyn_log_group_commit_wait:
+	case gds_dyn_idx_inactive:
+		length = PRINT_WORD;
+		while (length--)
+			PRINT_BYTE;
+		PRINT_LINE;
+		return 0;
+
+	case gds_dyn_view_source:
+	case gds_dyn_fld_validation_source:
+	case gds_dyn_fld_computed_source:
+	case gds_dyn_description:
+	case gds_dyn_prc_source:
+	case gds_dyn_fld_default_source:
+		length = PRINT_WORD;
+		while (length--)
+			PRINT_CHAR;
+		PRINT_LINE;
+		return 0;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+	case gds_dyn_view_source2:
+	case gds_dyn_fld_validation_source2:
+	case gds_dyn_fld_computed_source2:
+	case gds_dyn_description2:
+	case gds_dyn_prc_source2:
+		PRINT_WORD;
+		length = PRINT_WORD;
+		while (length--)
+			PRINT_CHAR;
+		PRINT_LINE;
+		return 0;
+
+	case gds_dyn_fld_edit_string2:
+	case gds_dyn_fld_query_header2:
+	case gds_dyn_trg_msg2:
+	case gds_dyn_trg_source2:
+		PRINT_WORD;
+		if (length = PRINT_WORD)
+			do
+				PRINT_CHAR;
+			while (--length);
+		PRINT_LINE;
+		return 0;
+
+#endif
+
+	case gds_dyn_del_exception:
+		if (length = PRINT_WORD)
+			do
+				PRINT_CHAR;
+			while (--length);
+		return 0;
+
+	case gds_dyn_fld_not_null:
+	case gds_dyn_sql_object:
+	case gds_dyn_drop_log:
+	case gds_dyn_drop_cache:
+	case gds_dyn_def_default_log:
+	case gds_dyn_log_file_serial:
+	case gds_dyn_log_file_raw:
+	case gds_dyn_log_file_overflow:
+	case gds_dyn_single_validation:
+	case gds_dyn_del_default:
+	case gds_dyn_del_validation:
+	case gds_dyn_idx_statistic:
+	case gds_dyn_foreign_key_delete:
+	case gds_dyn_foreign_key_update:
+	case gds_dyn_foreign_key_cascade:
+	case gds_dyn_foreign_key_default:
+	case gds_dyn_foreign_key_null:
+	case gds_dyn_foreign_key_none:
+
+		PRINT_LINE;
+		return 0;
+
+	case gds_dyn_end:
+		PRINT_LINE;
+		return 0;
+	}
+
+	if (length = PRINT_WORD)
+		do
+			PRINT_CHAR;
+		while (--length);
+
+	PRINT_LINE;
+
+	switch (operator_) {
+	case gds_dyn_def_database:
+	case gds_dyn_def_dimension:
+	case gds_dyn_def_exception:
+	case gds_dyn_def_file:
+	case gds_dyn_def_log_file:
+	case gds_dyn_def_cache_file:
+	case gds_dyn_def_filter:
+	case gds_dyn_def_function:
+	case gds_dyn_def_function_arg:
+	case gds_dyn_def_generator:
+	case gds_dyn_def_global_fld:
+	case gds_dyn_def_idx:
+	case gds_dyn_def_local_fld:
+	case gds_dyn_def_rel:
+	case gds_dyn_def_procedure:
+	case gds_dyn_def_parameter:
+	case gds_dyn_def_security_class:
+	case gds_dyn_def_shadow:
+	case gds_dyn_def_sql_fld:
+	case gds_dyn_def_trigger:
+	case gds_dyn_def_trigger_msg:
+	case gds_dyn_def_view:
+	case gds_dyn_delete_database:
+	case gds_dyn_delete_dimensions:
+	case gds_dyn_delete_filter:
+	case gds_dyn_delete_function:
+	case gds_dyn_delete_global_fld:
+	case gds_dyn_delete_idx:
+	case gds_dyn_delete_local_fld:
+	case gds_dyn_delete_rel:
+	case gds_dyn_delete_procedure:
+	case gds_dyn_delete_parameter:
+	case gds_dyn_delete_security_class:
+	case gds_dyn_delete_trigger:
+	case gds_dyn_delete_trigger_msg:
+	case gds_dyn_delete_shadow:
+	case gds_dyn_mod_exception:
+	case gds_dyn_mod_global_fld:
+	case gds_dyn_mod_idx:
+	case gds_dyn_mod_local_fld:
+	case gds_dyn_mod_procedure:
+	case gds_dyn_mod_rel:
+	case gds_dyn_mod_security_class:
+	case gds_dyn_mod_trigger:
+	case gds_dyn_mod_trigger_msg:
+	case gds_dyn_rel_constraint:
+	case gds_dyn_mod_view:
+	case gds_dyn_grant:
+	case gds_dyn_revoke:
+	case gds_dyn_view_relation:
+		while (NEXT_BYTE != gds_dyn_end)
+			PRINT_DYN_VERB;
+		PRINT_DYN_VERB;
+		return 0;
+	}
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Invoke callback routine to print (or do something with) a line.
+//  
+
+static int print_line( CTL control, SSHORT offset)
+{
+
+	*control->ctl_ptr = 0;
+	(*control->ctl_routine) (control->ctl_user_arg, offset, control->ctl_buffer);
+	control->ctl_ptr = control->ctl_buffer;
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Print a VAX word as a numeric value an return same.
+//  
+
+static SLONG print_long( CTL control, SSHORT offset)
+{
+	UCHAR v1, v2, v3, v4;
+
+	v1 = BLR_BYTE;
+	v2 = BLR_BYTE;
+	v3 = BLR_BYTE;
+	v4 = BLR_BYTE;
+	sprintf(control->ctl_ptr,
+			(control->
+			 ctl_language) ? "chr(%d),chr(%d),chr(%d),chr(%d) " :
+			"%d,%d,%d,%d, ", v1, v2, v3, v4);
+	ADVANCE_PTR(control->ctl_ptr);
+
+	return v1 | (v2 << 8) | (v3 << 16) | (v4 << 24);
+}
+
+
+//____________________________________________________________
+//  
+//		Primary recursive routine to print slice description language.
+//  
+
+static print_sdl_verb( CTL control, SSHORT level)
+{
+	int offset, n;
+	const char *p;
+	SCHAR operator_;
+
+	offset = control->ctl_blr - control->ctl_blr_start;
+	operator_ = BLR_BYTE;
+
+	if (operator_ > (sizeof(sdl_table) / sizeof(sdl_table[0])) ||
+		operator_ <= 0 || !(p = sdl_table[operator_]))
+		return error(control, offset,
+					 "*** SDL operator %d is undefined ***\n",
+					 (int *) operator_);
+
+	indent(control, level);
+	blr_format(control, p);
+	PUT_BYTE(',');
+	PUT_BYTE(' ');
+	++level;
+	n = 0;
+
+	switch (operator_) {
+	case gds_sdl_begin:
+		PRINT_LINE;
+		while (NEXT_BYTE != gds_sdl_end)
+			PRINT_SDL_VERB;
+		PRINT_SDL_VERB;
+		return 0;
+
+	case gds_sdl_struct:
+		n = PRINT_BYTE;
+		while (n--) {
+			PRINT_LINE;
+			indent(control, (SSHORT) (level + 1));
+			offset = control->ctl_blr - control->ctl_blr_start;
+			print_blr_dtype(control, TRUE);
+		}
+		break;
+
+	case gds_sdl_scalar:
+		PRINT_BYTE;
+
+	case gds_sdl_element:
+		n = PRINT_BYTE;
+		PRINT_LINE;
+		while (n--)
+			PRINT_SDL_VERB;
+		return 0;
+
+	case gds_sdl_field:
+	case gds_sdl_relation:
+		PRINT_STRING;
+		break;
+
+	case gds_sdl_fid:
+	case gds_sdl_rid:
+	case gds_sdl_short_integer:
+		PRINT_WORD;
+		break;
+
+	case gds_sdl_variable:
+	case gds_sdl_tiny_integer:
+		PRINT_BYTE;
+		break;
+
+	case gds_sdl_long_integer:
+		PRINT_LONG;
+		break;
+
+	case gds_sdl_add:
+	case gds_sdl_subtract:
+	case gds_sdl_multiply:
+	case gds_sdl_divide:
+		PRINT_LINE;
+		PRINT_SDL_VERB;
+		PRINT_SDL_VERB;
+		return 0;
+
+	case gds_sdl_negate:
+		PRINT_LINE;
+		PRINT_SDL_VERB;
+		return 0;
+
+	case gds_sdl_do3:
+		n++;
+	case gds_sdl_do2:
+		n++;
+	case gds_sdl_do1:
+		n += 2;
+		PRINT_BYTE;
+		PRINT_LINE;
+		while (n--)
+			PRINT_SDL_VERB;
+		return 0;
+	}
+
+	PRINT_LINE;
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Print a byte-counted string.
+//  
+
+static int print_string( CTL control, SSHORT offset)
+{
+	SSHORT n;
+
+	n = PRINT_BYTE;
+	while (--n >= 0)
+		PRINT_CHAR;
+
+	PUT_BYTE(' ');
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Print a VAX word as a numeric value an return same.
+//  
+
+static print_word( CTL control, SSHORT offset)
+{
+	UCHAR v1, v2;
+
+	v1 = BLR_BYTE;
+	v2 = BLR_BYTE;
+	sprintf(control->ctl_ptr,
+			(control->ctl_language) ? "chr(%d),chr(%d), " : "%d,%d, ", v1,
+			v2);
+	ADVANCE_PTR(control->ctl_ptr);
+
+	return (v2 << 8) | v1;
+}
diff --git a/src/gpre/sdltable.h b/src/gpre/sdltable.h
new file mode 100644
index 0000000000..56d14af438
--- /dev/null
+++ b/src/gpre/sdltable.h
@@ -0,0 +1,55 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+"gds__sdl_eoc",					/* -1 */
+	"gds__sdl_version1",		/* 1 */
+	"gds__sdl_relation",		/* 2 */
+	"gds__sdl_rid",				/* 3 */
+	"gds__sdl_field",			/* 4 */
+	"gds__sdl_fid",				/* 5 */
+	"gds__sdl_struct",			/* 6 */
+	"gds__sdl_variable",		/* 7 */
+	"gds__sdl_scalar",			/* 8 */
+	"gds__sdl_tiny_integer",	/* 9 */
+	"gds__sdl_short_integer",	/* 10 */
+	"gds__sdl_long_integer",	/* 11 */
+	"gds__sdl_literal",			/* 12 */
+	"gds__sdl_add",				/* 13 */
+	"gds__sdl_subtract",		/* 14 */
+	"gds__sdl_multiply",		/* 15 */
+	"gds__sdl_divide",			/* 16 */
+	"gds__sdl_negate",			/* 17 */
+	"gds__sdl_eql",				/* 18 */
+	"gds__sdl_neq",				/* 19 */
+	"gds__sdl_gtr",				/* 20 */
+	"gds__sdl_geq",				/* 21 */
+	"gds__sdl_lss",				/* 22 */
+	"gds__sdl_leq",				/* 23 */
+	"gds__sdl_and",				/* 24 */
+	"gds__sdl_or",				/* 25 */
+	"gds__sdl_not",				/* 26 */
+	"gds__sdl_while",			/* 27 */
+	"gds__sdl_assignment",		/* 28 */
+	"gds__sdl_label",			/* 29 */
+	"gds__sdl_leave",			/* 30 */
+	"gds__sdl_begin",			/* 31 */
+	"gds__sdl_end",				/* 32 */
+	"gds__sdl_do3",				/* 33 */
+	"gds__sdl_do2",				/* 34 */
+	"gds__sdl_do1",				/* 35 */
+	"gds__sdl_element",			/* 36 */
diff --git a/src/gpre/sqe.cpp b/src/gpre/sqe.cpp
new file mode 100644
index 0000000000..3566f566fb
--- /dev/null
+++ b/src/gpre/sqe.cpp
@@ -0,0 +1,3684 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	C Preprocessor
+//		MODULE:		sqe.cpp
+//		DESCRIPTION:	SQL expression parser
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  $Id: sqe.cpp,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+//  Revision 1.3  2000/11/16 15:54:29  fsg
+//  Added new switch -verbose to gpre that will dump
+//  parsed lines to stderr
+//  
+//  Fixed gpre bug in handling row names in WHERE clauses
+//  that are reserved words now (DATE etc)
+//  (this caused gpre to dump core when parsing tan.e)
+//  
+//  Fixed gpre bug in handling lower case table aliases
+//  in WHERE clauses for sql dialect 2 and 3.
+//  (cause a core dump in a test case from C.R. Zamana)
+//  
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  
+//
+//____________________________________________________________
+//
+//	$Id: sqe.cpp,v 1.1.1.1 2001-05-23 13:25:31 tamlin Exp $
+//
+#include <stdio.h>
+#include <string.h>
+#include "../gpre/gpre.h"
+#include "../gpre/parse.h"
+#include "../gpre/cme_proto.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/exp_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/hsh_proto.h"
+#include "../gpre/gpre_meta.h"
+#include "../gpre/msc_proto.h"
+#include "../gpre/par_proto.h"
+#include "../gpre/sqe_proto.h"
+#include "../gpre/sql_proto.h"
+
+
+extern "C" {
+
+
+#define ERROR_LENGTH	256
+
+struct scope {
+	struct ctx *req_contexts;
+	USHORT req_scope_level;		/* scope level for SQL subquery parsing */
+	USHORT req_in_aggregate;	/* now processing value expr for aggr */
+	USHORT req_in_select_list;	/* processing select list */
+	USHORT req_in_where_clause;	/* processing where clause */
+	USHORT req_in_having_clause;	/* processing having clause */
+	USHORT req_in_order_by_clause;	/* processing order by clause */
+	USHORT req_in_subselect;	/* processing a subselect clause */
+};
+
+extern ACT cur_routine;
+extern struct tok prior_token;
+
+static BOOLEAN compare_expr(NOD, NOD);
+static NOD copy_fields(NOD, MAP);
+static NOD explode_asterisk(NOD, int, RSE);
+static NOD explode_asterisk_all(NOD, int, RSE, BOOLEAN);
+static FLD get_ref(NOD);
+static NOD implicit_any(REQ, NOD, enum nod_t, enum nod_t);
+static NOD merge(NOD, NOD);
+static NOD merge_fields(NOD, NOD, int, BOOLEAN);
+static NOD negate(NOD);
+static void pair(NOD, NOD);
+static CTX par_alias_list(REQ, NOD);
+static CTX par_alias(REQ, TEXT *);
+static NOD par_and(REQ, USHORT *);
+static REL par_base_table(REQ, REL, TEXT *);
+static NOD par_collate(REQ, NOD);
+static NOD par_in(REQ, NOD);
+static CTX par_joined_relation(REQ, CTX);
+static CTX par_join_clause(REQ, CTX);
+static NOD_T par_join_type(void);
+static NOD par_multiply(REQ, BOOLEAN, USHORT *, USHORT *);
+static NOD par_not(REQ, USHORT *);
+static void par_order(REQ, RSE, SSHORT, USHORT);
+static NOD par_plan(REQ);
+static NOD par_plan_item(REQ, BOOLEAN);
+static NOD par_primitive_value(REQ, BOOLEAN, USHORT *, USHORT *);
+static NOD par_relational(REQ, USHORT *);
+static RSE par_rse(REQ, NOD, BOOLEAN);
+static RSE par_select(REQ, RSE);
+static NOD par_stat(REQ);
+static NOD par_subscript(REQ);
+static void par_terminating_parens(USHORT *, USHORT *);
+static NOD par_udf(REQ);
+static NOD par_udf_or_field(REQ, BOOLEAN);
+static NOD par_udf_or_field_with_collate(REQ, BOOLEAN);
+static NOD post_fields(NOD, MAP);
+static NOD post_map(NOD, MAP);
+static NOD post_select_list(NOD, MAP);
+static void pop_scope(REQ, struct scope *);
+static void push_scope(REQ, struct scope *);
+static FLD resolve(NOD, CTX, CTX *, ACT *);
+static CTX resolve_asterisk(TOK, RSE);
+static void set_ref(NOD, FLD);
+static char *upcase_string(char *);
+static BOOLEAN validate_references(NOD, NOD);
+static void dialect1_bad_type(USHORT);
+
+
+
+
+typedef struct ops {
+	enum nod_t rel_op;
+	enum kwwords rel_kw;
+	enum nod_t rel_negation;
+} OPS;
+
+static OPS rel_ops[] = {
+	nod_eq, KW_EQ, nod_ne,
+	nod_eq, KW_EQUALS, nod_ne,
+	nod_ne, KW_NE, nod_eq,
+	nod_gt, KW_GT, nod_le,
+	nod_ge, KW_GE, nod_lt,
+	nod_le, KW_LE, nod_gt,
+	nod_lt, KW_LT, nod_ge,
+	nod_containing, KW_CONTAINING, nod_any,
+	nod_starting, KW_STARTING, nod_any,
+	nod_matches, KW_MATCHES, nod_any,
+	nod_any, KW_none, nod_any,
+	nod_ansi_any, KW_none, nod_ansi_any,
+	nod_ansi_all, KW_none, nod_ansi_all
+}, scalar_stat_ops[] = {
+	nod_count, KW_COUNT, nod_any,
+		nod_max, KW_MAX, nod_any,
+		nod_min, KW_MIN, nod_any,
+		nod_total, KW_TOTAL, nod_any,
+		nod_total, KW_SUM, nod_any,
+		nod_average, KW_AVERAGE, nod_any,
+
+		nod_via, KW_none, nod_any}, stat_ops[] = {
+	nod_agg_count, KW_COUNT, nod_any,
+		nod_agg_max, KW_MAX, nod_any,
+		nod_agg_min, KW_MIN, nod_any,
+		nod_agg_total, KW_TOTAL, nod_any,
+		nod_agg_total, KW_SUM, nod_any,
+		nod_agg_average, KW_AVERAGE, nod_any,
+		nod_any, KW_none, nod_any,
+		nod_ansi_any, KW_none, nod_ansi_any,
+		nod_ansi_all, KW_none, nod_ansi_all};
+
+static NOD_T relationals[] = {
+	nod_eq, nod_ne, nod_gt, nod_ge, nod_le, nod_lt, nod_containing,
+	nod_starting, nod_matches, nod_any, nod_missing, nod_between, nod_like,
+	nod_and, nod_or, nod_not, nod_ansi_any, nod_ansi_all, (NOD_T) 0
+};
+
+
+//____________________________________________________________
+//  
+//		Parse an OR boolean expression.
+//  
+
+NOD SQE_boolean( REQ request, USHORT * paren_count)
+{
+	NOD expr1;
+	USHORT local_count;
+
+	assert_IS_REQ(request);
+
+	if (!paren_count) {
+		local_count = 0;
+		paren_count = &local_count;
+	}
+
+	expr1 = par_and(request, paren_count);
+
+	if (!MATCH(KW_OR) && !MATCH(KW_OR1)) {
+		par_terminating_parens(paren_count, &local_count);
+		return expr1;
+	}
+
+	expr1 = MSC_binary(nod_or, expr1, SQE_boolean(request, paren_count));
+	par_terminating_parens(paren_count, &local_count);
+
+	return expr1;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a reference to a relation name
+//		and generate a context for it.
+//  
+
+CTX SQE_context(REQ request)
+{
+	SYM symbol;
+	CTX context, conflict;
+	PRC procedure;
+	USHORT local_count;
+	SCHAR r_name[NAME_SIZE + 1], db_name[NAME_SIZE + 1],
+		owner_name[NAME_SIZE + 1];
+	SCHAR s[ERROR_LENGTH];
+	FLD field;
+	NOD *input;
+
+	assert_IS_REQ(request);
+
+	context = MAKE_CONTEXT(request);
+	SQL_relation_name(r_name, db_name, owner_name);
+
+	if (!(context->ctx_relation =
+		  SQL_relation(request, r_name, db_name, owner_name, FALSE))) {
+		/* check for a procedure */
+		if (procedure = context->ctx_procedure =
+			SQL_procedure(request, r_name, db_name, owner_name, FALSE)) {
+			if (procedure->prc_inputs) {
+				if (!MATCH(KW_LEFT_PAREN))
+					SYNTAX_ERROR("( <procedure input parameters> )");
+				/* parse input references */
+				context->ctx_prc_inputs = SQE_list(SQE_value, request, FALSE);
+				local_count = 1;
+				par_terminating_parens(&local_count, &local_count);
+				if (procedure->prc_in_count !=
+					context->ctx_prc_inputs->
+					nod_count)
+PAR_error("count of input values doesn't match count of parameters");
+				for (input = context->ctx_prc_inputs->nod_arg, field =
+					 procedure->prc_inputs; field;
+					 input++, field =
+					 field->fld_next) SQE_post_field(*input, field);
+			}
+		}
+		else {
+			if (owner_name[0])
+				sprintf(s, "table %s.%s not defined", owner_name, r_name);
+			else
+				sprintf(s, "table %s not defined", r_name);
+			PAR_error(s);
+		}
+
+	}
+
+//  If the next token is recognized as a keyword, it can't be a SQL "alias".
+//  It may, however, be an "end of line" token.  If so, trade it in on the
+//  next "real" token. 
+
+	if ((symbol = token.tok_symbol) && symbol->sym_type == SYM_keyword) {
+		if (!token.tok_length)
+			CPR_token();
+		return context;
+	}
+
+//  we have what we assume to be an alias; check to make sure that 
+//  it does not conflict with any relation, procedure or context names
+//  at the same scoping level in this query 
+
+	for (conflict = request->req_contexts; conflict;
+		 conflict = conflict->ctx_next) if ((symbol = conflict->ctx_symbol)
+											&& (symbol->sym_type ==
+												SYM_relation
+												|| symbol->sym_type ==
+												SYM_context
+												|| symbol->sym_type ==
+												SYM_procedure)
+											&&
+											(!strcmp
+											 (symbol->sym_string,
+											  token.tok_string))
+											&& (conflict->ctx_scope_level ==
+												request->
+												req_scope_level)) break;
+
+	if (conflict) {
+		SCHAR *error_type;
+		if (symbol->sym_type == SYM_relation)
+			error_type = "table";
+		else if (symbol->sym_type == SYM_procedure)
+			error_type = "procedure";
+		else
+			error_type = "context";
+
+		sprintf(s, "context %s conflicts with a %s in the same statement",
+				token.tok_string, error_type);
+		PAR_error(s);
+	}
+
+	symbol = MSC_symbol(SYM_context, token.tok_string, token.tok_length, 0);
+	symbol->sym_object = context;
+	context->ctx_symbol = symbol;
+	context->ctx_alias = symbol->sym_name;
+	HSH_insert(symbol);
+
+	ADVANCE_TOKEN;
+
+	return context;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an item is a select list.  This is particularly nasty
+//		since neither the relations nor context variables have been
+//		processed yet.  So, rather than generating a simple field
+//		reference, make up a more or less dummy block containing
+//		a pointer to a field system and possible a qualifier symbol.
+//		this will be turned into a reference later.
+//  
+
+NOD SQE_field(REQ request, BOOLEAN aster_ok)
+{
+	NOD node, tail;
+	SYM symbol, temp_symbol;
+	CTX context;
+	REF reference;
+	REL relation;
+	PRC procedure;
+	TOK f_token;
+	LLS upper_dim, lower_dim;
+	int count = 0;
+	REQ slice_req;
+	SLC slice;
+	ACT action;
+	TEXT s[ERROR_LENGTH];
+	struct tok hold_token;
+	slc::slc_repeat * tail_ptr;
+
+	assert_IS_REQ(request);
+
+	upper_dim = lower_dim = NULL;
+	hold_token.tok_type = tok_t(0);
+
+	if (aster_ok && MATCH(KW_ASTERISK)) {
+		node = MAKE_NODE(nod_asterisk, 1);
+		return node;
+	}
+
+//  if the token isn't an identifier, complain 
+
+	SQL_resolve_identifier("<column name>", s);
+
+//  For domains we can't be resolving tokens to field names
+//  in the CHECK constraint. 
+
+	if (request &&
+		request->req_type == REQ_ddl &&
+		(action = request->req_actions) &&
+		(action->act_type == ACT_create_domain ||
+		 action->act_type == ACT_alter_domain)) {
+		sprintf(s, "Illegal use of identifier: %s in domain constraint",
+				token.tok_string);
+		PAR_error(s);
+	}
+
+
+//  Note: We *always* want to make a defered name block - to handle
+//  scoping of alias names in subselects properly, when we haven't
+//  seen the list of relations (& aliases for them).  This occurs
+//  during the select list, but by the time we see the having, group,
+//  order, or where we do know all aliases and should be able to
+//  precisely match.
+//  Note that the case of request == NULL should never
+//  occur, and request->req_contexts == NULL should only
+//  occur for the very first select list in a request.
+//  1994-October-03 David Schnepper 
+//  
+
+//  if the request is null, make a defered name block 
+
+	if (!request || !request->req_contexts || request->req_in_select_list) {
+		node = MAKE_NODE(nod_defered, 3);
+		node->nod_count = 0;
+		f_token = (TOK) ALLOC(TOK_LEN);
+		node->nod_arg[0] = (NOD) f_token;
+		f_token->tok_length = token.tok_length;
+		SQL_resolve_identifier("<identifier>", f_token->tok_string);
+		CPR_token();
+
+		if (MATCH(KW_DOT)) {
+			if ((int) token.tok_keyword == (int) KW_ASTERISK) {
+				if (aster_ok)
+					node->nod_type = nod_asterisk;
+				else
+					PAR_error("* not allowed");
+			}
+			else {
+				node->nod_arg[1] = node->nod_arg[0];
+				f_token = (TOK) ALLOC(TOK_LEN);
+				node->nod_arg[0] = (NOD) f_token;
+				f_token->tok_length = token.tok_length;
+				SQL_resolve_identifier("<identifier>", f_token->tok_string);
+			}
+			CPR_token();
+		}
+		if (MATCH(KW_L_BRCKET)) {
+			/* We have a complete array or an array slice here */
+
+			if (!MATCH(KW_R_BRCKET)) {
+				slice_req = MAKE_REQUEST(REQ_slice);
+				do {
+					count++;
+					tail = par_subscript(slice_req);
+					PUSH(tail, &lower_dim);
+					if (MATCH(KW_COLON)) {
+						/* if (!MATCH (KW_DOT))
+						   SYNTAX_ERROR ("<period>"); */
+						tail = par_subscript(slice_req);
+						PUSH(tail, &upper_dim);
+					}
+					else
+						PUSH(tail, &upper_dim);
+				} while (MATCH(KW_COMMA));
+
+				if (!MATCH(KW_R_BRCKET))
+					SYNTAX_ERROR("<right bracket>");
+				slice_req->req_slice = slice = (SLC) ALLOC(SLC_LEN(count));
+				tail_ptr = &slice->slc_rpt[count];
+				slice->slc_dimensions = count;
+				slice->slc_parent_request = request;
+				while (lower_dim) {
+					--tail_ptr;
+					tail_ptr->slc_lower = POP(&lower_dim);
+					tail_ptr->slc_upper = POP(&upper_dim);
+				}
+				node->nod_arg[2] = (NOD) slice_req;
+
+				/* added this to assign the correct nod_count 
+				   The nod type is converted to nod_field in SQE_resolve()
+				   The nod_count is check to confirm if the array slice
+				   has been initialized in cmd.c
+				 */
+				node->nod_count = 3;
+			}
+			else {
+				slice_req = (REQ) ALLOC(REQ_LEN);
+				slice_req->req_type = REQ_slice;
+				node->nod_arg[2] = (NOD) slice_req;
+			}
+		}
+
+		return node;
+	}
+
+	reference = (REF) ALLOC(REF_LEN);
+	node = MSC_unary(nod_field, (NOD) reference);
+
+	if (symbol = token.tok_symbol) {
+		/* if there is a homonym which is a context, use the context;
+		   otherwise we may match with a relation or procedure which 
+		   is not in the request, resulting in a bogus error */
+
+		if (symbol->sym_type != SYM_field) {
+			for (temp_symbol = symbol; temp_symbol;
+				 temp_symbol = temp_symbol->sym_homonym) {
+				if (temp_symbol->sym_type == SYM_context) {
+					symbol = temp_symbol;
+					break;
+				}
+				else if (temp_symbol->sym_type == SYM_relation) {
+					symbol = temp_symbol;
+					continue;
+				}
+				else if (temp_symbol->sym_type == SYM_procedure) {
+					if (symbol->sym_type == SYM_relation)
+						continue;
+					else {
+						symbol = temp_symbol;
+						continue;
+					}
+				}
+			}
+
+			if (symbol->sym_type == SYM_context) {
+				context = symbol->sym_object;
+				CPR_token();
+				if (!MATCH(KW_DOT))
+					SYNTAX_ERROR("<period> in qualified column");
+				if (context->ctx_request != request)
+					PAR_error("context not part of this request");
+				SQL_resolve_identifier("<Column Name>", s);
+				if (!
+					(reference->ref_field =
+					 MET_context_field(context, token.tok_string))) {
+					sprintf(s, "column \"%s\" not in context",
+							token.tok_string);
+					PAR_error(s);
+				}
+				if (SQL_DIALECT_V5 == sw_sql_dialect) {
+					USHORT field_dtype;
+					field_dtype = reference->ref_field->fld_dtype;
+					if ((dtype_sql_date == field_dtype) ||
+						(dtype_sql_time == field_dtype) ||
+						(dtype_int64 == field_dtype)) {
+						dialect1_bad_type(field_dtype);
+					}
+				}
+				reference->ref_context = context;
+				CPR_token();
+				return node;
+			}
+			else if (symbol->sym_type == SYM_relation) {
+				relation = (REL) symbol->sym_object;
+				if (relation->rel_database != request->req_database)
+					PAR_error("table not in appropriate database");
+
+				CPR_token();
+
+				/* if we do not see a KW_DOT, perhaps what we think is a relation
+				   ** is actually a column with the same name as the relation in
+				   ** the HSH table.  if so...skip down to the end of the routine
+				   ** and find out if we do have such a column. but first, since
+				   ** we just did a CPR_token, we have to move prior_token into
+				   ** current token, and hold the current token for later.
+				 */
+
+				if (!MATCH(KW_DOT)) {
+					hold_token = token;
+					token = prior_token;
+					token.tok_symbol = 0;
+				}
+				else {
+		/** We've got the column name. resolve it **/
+					SQL_resolve_identifier("<Columnn Name>", s);
+					for (context = request->req_contexts; context;
+						 context = context->ctx_next)
+							if (context->ctx_relation == relation &&
+								(reference->ref_field =
+								 MET_field(context->ctx_relation,
+										   token.tok_string))) {
+							if (SQL_DIALECT_V5 == sw_sql_dialect) {
+								USHORT field_dtype;
+								field_dtype = reference->ref_field->fld_dtype;
+								if ((dtype_sql_date == field_dtype) ||
+									(dtype_sql_time == field_dtype) ||
+									(dtype_int64 == field_dtype)) {
+									dialect1_bad_type(field_dtype);
+								}
+							}
+							reference->ref_context = context;
+							CPR_token();
+							if (reference->ref_field->fld_array_info) {
+								node =
+									EXP_array(request, reference->ref_field,
+											  TRUE, TRUE);
+								node->nod_arg[0] = (NOD) reference;
+							}
+							return node;
+						}
+
+					sprintf(s, "column \"%s\" not in context",
+							token.tok_string);
+					PAR_error(s);
+				}
+			}
+			else if (symbol->sym_type == SYM_procedure) {
+				procedure = (PRC) symbol->sym_object;
+				if (procedure->prc_database != request->req_database)
+					PAR_error("procedure not in appropriate database");
+				CPR_token();
+				if (!MATCH(KW_DOT))
+					SYNTAX_ERROR("<period> in qualified column");
+				SQL_resolve_identifier("<Column Name>", s);
+				for (context = request->req_contexts; context;
+					 context = context->ctx_next)
+						if (context->ctx_procedure == procedure &&
+							(reference->ref_field =
+							 MET_context_field(context, token.tok_string))) {
+						if (SQL_DIALECT_V5 == sw_sql_dialect) {
+							USHORT field_dtype;
+							field_dtype = reference->ref_field->fld_dtype;
+							if ((dtype_sql_date == field_dtype) ||
+								(dtype_sql_time == field_dtype) ||
+								(dtype_int64 == field_dtype)) {
+								dialect1_bad_type(field_dtype);
+							}
+						}
+						reference->ref_context = context;
+						if (reference->ref_field->fld_array_info) {
+							node =
+								EXP_array(request, reference->ref_field, TRUE,
+										  TRUE);
+							node->nod_arg[0] = (NOD) reference;
+						}
+						CPR_token();
+						return node;
+					}
+
+				sprintf(s, "column \"%s\" not in context", token.tok_string);
+				PAR_error(s);
+			}
+		}
+	}
+
+//  Hmmm.  So it wasn't a qualified field.  Try any field. 
+
+	SQL_resolve_identifier("<Column Name>", s);
+	for (context = request->req_contexts; context;
+		 context = context->ctx_next) if (reference->ref_field =
+										  MET_context_field(context,
+															token.
+															tok_string)) {
+			if (SQL_DIALECT_V5 == sw_sql_dialect) {
+				USHORT field_dtype;
+				field_dtype = reference->ref_field->fld_dtype;
+				if ((dtype_sql_date == field_dtype) ||
+					(dtype_sql_time == field_dtype) ||
+					(dtype_int64 == field_dtype)) {
+					dialect1_bad_type(field_dtype);
+				}
+			}
+			reference->ref_context = context;
+
+			/* if we skipped down from the SYM_relation case above, we need to
+			   ** switch token and prior_token back to their original values to
+			   ** continue.
+			 */
+			if (hold_token.tok_type != 0) {
+				prior_token = token;
+				token = hold_token;
+			}
+			else
+				CPR_token();
+			if (reference->ref_field->fld_array_info) {
+				node = EXP_array(request, reference->ref_field, TRUE, TRUE);
+				node->nod_arg[0] = (NOD) reference;
+			}
+			if (request->req_map)
+				return post_map(node, request->req_map);
+			return node;
+		}
+
+	SYNTAX_ERROR("<column name>");
+	return NULL;				/* silence compiler */
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a list of "things", separated by commas.  Return the
+//		whole mess in a list node.
+//  
+
+NOD SQE_list(pfn_SQE_list_cb routine, REQ request, BOOLEAN aster_ok)
+{
+	LLS stack;
+	NOD list, *ptr;
+	int count;
+
+	assert_IS_REQ(request);
+
+	stack = NULL;
+	count = 0;
+
+	do {
+		count++;
+		PUSH((*routine) (request, aster_ok, 0, 0), &stack);
+	}
+	while (MATCH(KW_COMMA));
+
+	list = MAKE_NODE(nod_list, (SSHORT) count);
+	ptr = &list->nod_arg[count];
+
+	while (stack)
+		*--ptr = (NOD) POP(&stack);
+
+	return list;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse procedure input parameters which are constants or
+//		host variable reference and, perhaps, a missing
+//		flag reference, which may be prefaced by the noiseword,
+//       "INDICATOR".
+//  
+
+REF SQE_parameter(REQ request, BOOLEAN aster_ok)
+{
+	REF reference;
+	SYM symbol;
+	SCHAR *string, *s;
+	int sign;
+
+	assert_IS_REQ(request);
+
+	if (token.tok_type == tok_number) {
+		reference = (REF) ALLOC(REF_LEN);
+		string = (TEXT *) ALLOC(token.tok_length + 1);
+		COPY(token.tok_string, token.tok_length, string);
+		reference->ref_value = string;
+		reference->ref_flags |= REF_literal;
+		CPR_token();
+		return reference;
+	}
+	if ((QUOTED(token.tok_type) && sw_sql_dialect == 1) ||
+		SINGLE_QUOTED(token.tok_type)) {
+	/** 
+    Since we have stripped the quotes, it is time now to put it back
+    so that the host language will interpret it correctly as a string 
+    literal.
+    ***/
+		reference = (REF) ALLOC(REF_LEN);
+		string = (TEXT *) ALLOC(token.tok_length + 3);
+		string[0] = '\"';
+		COPY(token.tok_string, token.tok_length, string + 1);
+		string[token.tok_length + 1] = '\"';
+		string[token.tok_length + 2] = 0;
+		reference->ref_value = string;
+		reference->ref_flags |= REF_literal;
+		CPR_token();
+		return reference;
+	}
+	if (KEYWORD(KW_PLUS) || KEYWORD(KW_MINUS)) {
+		if (KEYWORD(KW_MINUS))
+			sign = 1;
+		else
+			sign = 0;
+		CPR_token();
+		if (token.tok_type != tok_number)
+			SYNTAX_ERROR("<host variable> or <constant>");
+		reference = (REF) ALLOC(REF_LEN);
+		s = string = (TEXT *) ALLOC(token.tok_length + 1 + sign);
+		if (sign)
+			*s++ = '-';
+		COPY(token.tok_string, token.tok_length, s);
+		reference->ref_value = string;
+		reference->ref_flags |= REF_literal;
+		CPR_token();
+		return reference;
+	}
+
+	if (!MATCH(KW_COLON))
+		SYNTAX_ERROR("<host variable> or <constant>");
+
+	if (token.tok_type != tok_ident)
+		SYNTAX_ERROR("<host variable> or <constant>");
+
+	reference = (REF) ALLOC(REF_LEN);
+
+	for (symbol = token.tok_symbol; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_variable) {
+			reference->ref_field = (FLD) symbol->sym_object;
+			break;
+		}
+
+	reference->ref_value = PAR_native_value(FALSE, FALSE);
+
+	MATCH(KW_INDICATOR);
+
+	if (MATCH(KW_COLON))
+		reference->ref_null_value = PAR_native_value(FALSE, FALSE);
+
+	return reference;
+}
+
+
+//____________________________________________________________
+//  
+//		Given an expression node, for values that don't have a 
+//		field, post the given field.
+//		Procedure called from EXP_array to post the "subscript field".
+//  
+
+void SQE_post_field( NOD input, FLD field)
+{
+	NOD *ptr, *end;
+	REF reference;
+	NOD node;
+	MEL element;
+
+	if (!input || !field)
+		return;
+
+	assert_IS_NOD(input);
+
+	switch (input->nod_type) {
+	case nod_value:
+		{
+			reference = (REF) input->nod_arg[0];
+			if (!reference->ref_field) {
+				/* We're guessing that hostvar reference->ref_value matches
+				 * the datatype of field->fld_dtype
+				 */
+				reference->ref_field = field;
+			}
+			return;
+		}
+
+	case nod_field:
+	case nod_literal:
+	case nod_defered:
+	case nod_array:
+		return;
+
+	case nod_map_ref:
+		element = (MEL) input->nod_arg[0];
+		node = element->mel_expr;
+		SQE_post_field(node, field);
+		return;
+
+	default:
+		for (ptr = input->nod_arg, end = ptr + input->nod_count;
+			 ptr < end; ptr++)
+			SQE_post_field(*ptr, field);
+		return;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Post an external reference to a request.  If the expression
+//		in question already exists, re-use it.  If there isn't a field,
+//		generate a pseudo-field to hold datatype information.  If there
+//		isn't a context, well, there isn't a context.
+//  
+
+REF SQE_post_reference(REQ request, FLD field, CTX context, NOD node)
+{
+	REF reference;
+
+	assert_IS_REQ(request);
+	assert_IS_NOD(node);
+
+//  If the beast is already a field reference, get component parts 
+
+	if (node && node->nod_type == nod_field) {
+		reference = (REF) node->nod_arg[0];
+		field = reference->ref_field;
+		context = reference->ref_context;
+	}
+
+//  See if there is already a reference to this guy.  If so, return it. 
+
+	for (reference = request->req_references; reference;
+		 reference = reference->ref_next)
+			if (
+				(reference->ref_expr
+				 && compare_expr(node, reference->ref_expr))
+				|| (!reference->ref_expr && field == reference->ref_field
+					&& context == reference->ref_context))
+			return reference;
+
+//  If there isn't a field given, make one up 
+
+	if (!field) {
+		field = (FLD) ALLOC(FLD_LEN);
+		CME_get_dtype(node, field);
+		if (field->fld_dtype && (field->fld_dtype <= dtype_any_text))
+			field->fld_flags |= FLD_text;
+	}
+
+//  No reference -- make one 
+
+	reference = (REF) ALLOC(REF_LEN);
+	reference->ref_context = context;
+	reference->ref_field = field;
+	reference->ref_expr = node;
+
+	reference->ref_next = request->req_references;
+	request->req_references = reference;
+
+	return reference;
+}
+
+
+//____________________________________________________________
+//  
+//		Resolve a kludgy field node build by par_s_item into
+//		a bona fide field reference.  If a request
+//		is supplied, resolve the reference to any context available
+//		in the request.  Otherwise resolve the field to a given
+//		record selection expression.
+//  
+//		If the expression contains a global aggregate, return TRUE,
+//		otherwise FALSE.
+//  
+
+BOOLEAN SQE_resolve(NOD node, REQ request, RSE rse)
+{
+	REF reference;
+	CTX context;
+	FLD field;
+	NOD *ptr, *end, node_arg;
+	TOK f_token, q_token;
+	SSHORT i;
+	BOOLEAN result;
+	SCHAR s[ERROR_LENGTH];
+	ACT slice_action = 0;
+
+	assert_IS_REQ(request);
+	assert_IS_NOD(node);
+
+	result = FALSE;
+
+	switch (node->nod_type) {
+	case nod_plus:
+	case nod_minus:
+	case nod_times:
+	case nod_divide:
+	case nod_negate:
+	case nod_upcase:
+	case nod_concatenate:
+	case nod_cast:
+		ptr = node->nod_arg;
+		end = ptr + node->nod_count;
+		for (; ptr < end; ptr++)
+			result |= SQE_resolve(*ptr, request, rse);
+		return result;
+
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_total:
+	case nod_agg_average:
+	case nod_agg_count:
+		if (node->nod_arg[0]) {
+			SQE_resolve(node->nod_arg[0], request, rse);
+			node_arg = node->nod_arg[0];
+			reference = (REF) node_arg->nod_arg[0];
+			if (node_arg->nod_type == nod_field && reference &&
+				reference->ref_field && reference->ref_field->fld_array_info)
+				PAR_error
+					("Array columns not permitted in aggregate functions");
+		}
+		return TRUE;
+
+	case nod_udf:
+		if (node->nod_arg[0]) {
+			ptr = node->nod_arg[0]->nod_arg;
+			end = ptr + node->nod_arg[0]->nod_count;
+			for (; ptr < end; ptr++)
+				result |= SQE_resolve(*ptr, request, rse);
+		}
+		return result;
+
+	case nod_gen_id:
+		return SQE_resolve(node->nod_arg[0], request, rse);
+
+// ** Begin date/time/timestamp support *
+	case nod_extract:
+		result |= SQE_resolve(node->nod_arg[1], request, rse);
+		return result;
+// ** End date/time/timestamp support *
+
+	case nod_defered:
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	f_token = (TOK) node->nod_arg[0];
+	f_token->tok_symbol = HSH_lookup(f_token->tok_string);
+	if (q_token = (TOK) node->nod_arg[1])
+		q_token->tok_symbol = HSH_lookup(q_token->tok_string);
+
+	field = NULL;
+
+	if (request)
+		for (context = request->req_contexts; context;
+			 context = context->ctx_next) {
+			if (!context->ctx_stream
+				&& (field = resolve(node, context, 0, &slice_action))) break;
+		}
+	else
+		for (i = 0; i < rse->rse_count; i++) {
+			if (field =
+				resolve(node, rse->rse_context[i], &context,
+						&slice_action)) break;
+		}
+
+	if (!field) {
+		if (q_token)
+			sprintf(s, "column \"%s.%s\" cannot be resolved",
+					q_token->tok_string, f_token->tok_string);
+		else
+			sprintf(s, "column \"%s\" cannot be resolved",
+					f_token->tok_string);
+		PAR_error(s);
+	}
+
+//  Make sure that a dialect-1 program isn't trying to select a
+//  dialect-3-only field type. 
+	if ((SQL_DIALECT_V5 == sw_sql_dialect) &&
+		((dtype_sql_date == field->fld_dtype) ||
+		 (dtype_sql_time == field->fld_dtype) ||
+		 (dtype_int64 == field->fld_dtype)))
+			dialect1_bad_type(field->fld_dtype);
+
+	reference = (REF) ALLOC(REF_LEN);
+	reference->ref_field = field;
+	reference->ref_context = context;
+	reference->ref_slice = (SLC) slice_action;
+
+//  donot reinit if this is a nod_deffered type 
+	if (node->nod_type != nod_defered)
+		node->nod_count = 0;
+
+
+	node->nod_type = nod_field;
+	node->nod_arg[0] = (NOD) reference;
+
+	return FALSE;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a SELECT (sans keyword) expression.
+//  
+
+RSE SQE_select(REQ request, USHORT view_flag)
+{
+	RSE select, rse1, rse2;
+	NOD node;
+	LLS context_stack;
+	CTX context;
+	MAP map, old_map;
+	BOOLEAN have_union;
+
+	assert_IS_REQ(request);
+
+	context_stack = NULL;
+	select = rse1 = rse2 = NULL;
+	old_map = request->req_map;
+	have_union = FALSE;
+
+//  Get components of union.  Most likely there isn't one, so this is
+//  probably wasted work.  
+
+	select = rse1 = par_select(request, NULL);
+
+//  "Look for ... the UNION label ... " 
+	while (MATCH(KW_UNION)) {
+		BOOLEAN union_all;
+
+		have_union = TRUE;
+		union_all = FALSE;
+		if (MATCH(KW_ALL))
+			union_all = TRUE;
+		if (!MATCH(KW_SELECT))
+			SYNTAX_ERROR("SELECT");
+
+		PUSH((NOD) request->req_contexts, &context_stack);
+		request->req_contexts = NULL;
+		request->req_map = NULL;
+		rse2 = par_select(request, rse1);
+
+		/* We've got a bona fide union.  Make a union node to hold sub-rse
+		   and then a new rse to point to it. */
+
+		select = (RSE) ALLOC(RSE_LEN(1));
+		select->rse_context[0] = context = MAKE_CONTEXT(request);
+		select->rse_union = node = MAKE_NODE(nod_union, 2);
+		node->nod_arg[0] = (NOD) rse1;
+		node->nod_arg[1] = (NOD) rse2;
+
+		rse1->rse_map = map = (MAP) ALLOC(sizeof(struct map));
+		map->map_context = context;
+		select->rse_fields = post_select_list(rse1->rse_fields, map);
+
+		rse2->rse_map = map = (MAP) ALLOC(sizeof(struct map));
+		map->map_context = context;
+		(void) post_select_list(rse2->rse_fields, map);
+
+		select->rse_into = rse1->rse_into;
+		if (!union_all)
+			select->rse_reduced = select->rse_fields;
+
+		/* Result of this UNION might be the left side of the NEXT UNION */
+		rse1 = select;
+	}
+
+//  Restore the context lists that were forgotten 
+//  <context> holds the most recently allocated context, which is
+//  already linked into the request block 
+
+	while (context_stack) {
+		while (context->ctx_next)
+			context = context->ctx_next;
+		context->ctx_next = (CTX) POP(&context_stack);
+	}
+
+//  Pick up any dangling ORDER clause 
+
+	++request->req_in_order_by_clause;
+	par_order(request, select, have_union, view_flag);
+	--request->req_in_order_by_clause;
+	request->req_map = old_map;
+
+	return select;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse either of the low precedence operators + and -.
+//  
+
+NOD SQE_value(REQ request,
+			  BOOLEAN aster_ok, USHORT * paren_count, USHORT * bool_flag)
+{
+	NOD node, arg;
+	nod_t operator_;
+	USHORT local_count, local_flag;
+
+	assert_IS_REQ(request);
+
+	if (!paren_count) {
+		local_count = 0;
+		paren_count = &local_count;
+	}
+	if (!bool_flag) {
+		local_flag = FALSE;
+		bool_flag = &local_flag;
+	}
+
+	MATCH(KW_PLUS);
+	node = par_multiply(request, aster_ok, paren_count, bool_flag);
+	assert_IS_NOD(node);
+	if (node->nod_type == nod_asterisk) {
+		par_terminating_parens(paren_count, &local_count);
+		return node;
+	}
+
+	while (TRUE) {
+		if (MATCH(KW_PLUS))
+			operator_ = nod_plus;
+		else if (MATCH(KW_MINUS))
+			operator_ = nod_minus;
+		else if (MATCH(KW_OR1))
+			operator_ = nod_concatenate;
+		else {
+			par_terminating_parens(paren_count, &local_count);
+			return node;
+		}
+		arg = node;
+		node =
+			MSC_binary(operator_, arg,
+					   par_multiply(request, FALSE, paren_count, bool_flag));
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Parse either a literal NULL expression or a value
+//		expression.
+//  
+
+NOD SQE_value_or_null(REQ request,
+					  BOOLEAN aster_ok,
+					  USHORT * paren_count, USHORT * bool_flag)
+{
+	if (MATCH(KW_NULL)) {
+		return MAKE_NODE(nod_null, 0);
+	}
+	else
+		return SQE_value(request, aster_ok, paren_count, bool_flag);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse host variable reference and, perhaps, a missing
+//		flag reference, which may be prefaced by the noiseword,
+//       "INDICATOR".
+//  
+
+REF SQE_variable(REQ request, BOOLEAN aster_ok)
+{
+	REF reference;
+	SYM symbol;
+
+	assert_IS_REQ(request);
+
+	if (!MATCH(KW_COLON))
+		SYNTAX_ERROR("<colon>");
+
+	if (QUOTED(token.tok_type))
+		SYNTAX_ERROR("<host variable>");
+
+	reference = (REF) ALLOC(REF_LEN);
+
+	for (symbol = token.tok_symbol; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_variable) {
+			reference->ref_field = (FLD) symbol->sym_object;
+			break;
+		}
+
+	reference->ref_value = PAR_native_value(FALSE, FALSE);
+
+	MATCH(KW_INDICATOR);
+
+	if (MATCH(KW_COLON))
+		reference->ref_null_value = PAR_native_value(FALSE, FALSE);
+
+	return reference;
+}
+
+
+//____________________________________________________________
+//  
+//		Compare two expressions symbollically.  If they're the same,
+//		return TRUE, otherwise FALSE.
+//  
+
+static BOOLEAN compare_expr( NOD node1, NOD node2)
+{
+	REF ref1, ref2;
+
+	assert_IS_NOD(node1);
+	assert_IS_NOD(node2);
+
+	if (node1->nod_type != node2->nod_type)
+		return FALSE;
+
+	switch (node1->nod_type) {
+	case nod_field:
+		ref1 = (REF) node1->nod_arg[0];
+		ref2 = (REF) node2->nod_arg[0];
+		if (ref1->ref_context != ref2->ref_context ||
+			ref1->ref_field != ref2->ref_field ||
+			ref1->ref_master != ref2->ref_master) return FALSE;
+		return TRUE;
+
+	case nod_map_ref:
+		if (node1->nod_arg[0] != node2->nod_arg[0])
+			return FALSE;
+		return TRUE;
+
+	case nod_udf:
+	case nod_gen_id:
+		if (node1->nod_arg[0] != node2->nod_arg[0] ||
+			node1->nod_arg[1] != node2->nod_arg[1])
+			return FALSE;
+		return TRUE;
+
+	default:
+		return FALSE;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Copy a field list for a SELECT against an artificial context.
+//  
+
+static NOD copy_fields( NOD fields, MAP map)
+{
+	NOD list;
+	USHORT i;
+
+	assert_IS_NOD(fields);
+
+	list = MAKE_NODE(nod_list, fields->nod_count);
+
+	for (i = 0; i < fields->nod_count; i++)
+		list->nod_arg[i] = post_fields(fields->nod_arg[i], map);
+
+	return list;
+}
+
+
+//____________________________________________________________
+//  
+//		Expand an '*' in a field list to the corresponding fields.
+//  
+
+static NOD explode_asterisk( NOD fields, int n, RSE rse)
+{
+	CTX context;
+	NOD node;
+	TOK q_token;
+	TEXT s[ERROR_LENGTH];
+
+	assert_IS_NOD(fields);
+
+	node = fields->nod_arg[n];
+	if (q_token = (TOK) node->nod_arg[0]) {
+		/* expand for single relation */
+
+		if (context = resolve_asterisk(q_token, rse))
+			fields = merge_fields(fields, MET_fields(context), n, TRUE);
+		else {
+			sprintf(s, "columns \"%s.*\" cannot be resolved",
+					q_token->tok_string);
+			PAR_error(s);
+		}
+	}
+	else {
+		/* expand for all relations in context list */
+
+		fields = explode_asterisk_all(fields, n, rse, TRUE);
+	}
+
+	return fields;
+}
+
+
+//____________________________________________________________
+//  
+//		Expand an '*' for all relations
+//		in the context list.
+//  
+
+static NOD explode_asterisk_all( NOD fields, int n, RSE rse, BOOLEAN replace)
+{
+	CTX context;
+	int i, old_count;
+
+	assert_IS_NOD(fields);
+
+	for (i = 0; i < rse->rse_count; i++) {
+		context = rse->rse_context[i];
+		old_count = fields->nod_count;
+		if (context->ctx_stream)
+			fields =
+				explode_asterisk_all(fields, n, context->ctx_stream, replace);
+		else
+			fields = merge_fields(fields, MET_fields(context), n, replace);
+		n += fields->nod_count - old_count;
+		replace = FALSE;
+	}
+
+	return fields;
+}
+
+
+//____________________________________________________________
+//  
+//		Get an element of an expression to act as a reference
+//		field for determining the data type of a host variable.
+//  
+
+static FLD get_ref( NOD expr)
+{
+	REF ref;
+	NOD *ptr, *end, node;
+	FLD field;
+	MEL element;
+
+	assert_IS_NOD(expr);
+
+	if (expr->nod_type == nod_via || expr->nod_type == nod_cast) {
+		field = (FLD) ALLOC(FLD_LEN);
+		CME_get_dtype(expr, field);
+		if (field->fld_dtype && (field->fld_dtype <= dtype_any_text))
+			field->fld_flags |= FLD_text;
+		return field;
+	}
+
+	switch (expr->nod_type) {
+	case nod_field:
+		ref = (REF) expr->nod_arg[0];
+		return ref->ref_field;
+
+
+	case nod_array:
+		ref = (REF) expr->nod_arg[0];
+		return ref->ref_field->fld_array;
+
+	case nod_agg_count:
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_total:
+	case nod_agg_average:
+	case nod_plus:
+	case nod_minus:
+	case nod_times:
+	case nod_divide:
+	case nod_negate:
+	case nod_upcase:
+	case nod_concatenate:
+		for (ptr = expr->nod_arg, end = ptr + expr->nod_count; ptr < end;
+			 ptr++)
+			if (field = get_ref(*ptr))
+				return field;
+		break;
+
+// ** Begin date/time/timestamp support *
+	case nod_extract:
+		if (field = get_ref(expr->nod_arg[1]))
+			return field;
+		break;
+// ** End date/time/timestamp support *
+	case nod_map_ref:
+		element = (MEL) expr->nod_arg[0];
+		node = element->mel_expr;
+		return get_ref(node);
+	}
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Finish off processing an implicit ANY clause.  Assume that the word
+//		"select" has already been recognized.  If the outer thing is a group
+//		by, so we're looking at a "having", re-resolve the input value to the
+//		map.
+//  
+
+static NOD implicit_any(
+						REQ request,
+						NOD value, enum nod_t comparison, enum nod_t any_all)
+{
+	NOD value2, node, node2, field_list;
+	RSE rse, sub;
+	CTX original;
+	BOOLEAN distinct;
+	struct scope previous_scope;
+
+	assert_IS_REQ(request);
+	assert_IS_NOD(value);
+
+	original = request->req_contexts;
+
+	request->req_in_subselect++;
+	push_scope(request, &previous_scope);
+
+	if (!(original->ctx_relation || original->ctx_procedure) &&
+		request->req_map) value = post_fields(value, request->req_map);
+
+//  Handle the ALL and DISTINCT options 
+	distinct = (!MATCH(KW_ALL) && MATCH(KW_DISTINCT)) ? TRUE : FALSE;
+
+	request->req_in_select_list++;
+	value2 = SQE_value(request, FALSE, 0, 0);
+	request->req_in_select_list--;
+
+	field_list = MAKE_NODE(nod_list, 1);
+	field_list->nod_arg[0] = value2;
+
+	rse = par_rse(request, field_list, distinct);
+	value2 = rse->rse_fields->nod_arg[0];
+
+	if (sub = rse->rse_aggregate) {
+		if (validate_references(value2, sub->rse_group_by))
+			PAR_error
+				("simple column reference not allowed in aggregate context");
+		if (sub->rse_group_by) {
+			node = MSC_binary(comparison, value, value2);
+			pair(node->nod_arg[0], node->nod_arg[1]);
+			rse->rse_boolean = merge(rse->rse_boolean, node);
+			if (any_all == nod_ansi_all)
+				node = MAKE_NODE(nod_ansi_all, 1);
+			else if (!(request->req_database->dbb_flags & DBB_v3))
+				node = MAKE_NODE(nod_ansi_any, 1);
+			else
+				node = MAKE_NODE(nod_any, 1);
+			node->nod_count = 0;
+			node->nod_arg[0] = (NOD) rse;
+		}
+		else {
+			node2 = MAKE_NODE(nod_via, 3);
+			node2->nod_count = 0;
+			node2->nod_arg[0] = (NOD) rse;
+			node2->nod_arg[2] = MAKE_NODE(nod_null, 0);
+			node2->nod_arg[1] = value2;
+			node = MSC_binary(comparison, value, node2);
+			pair(node->nod_arg[0], node->nod_arg[1]);
+		}
+	}
+	else {
+		node = MSC_binary(comparison, value, value2);
+		pair(node->nod_arg[0], node->nod_arg[1]);
+		rse->rse_boolean = merge(rse->rse_boolean, node);
+		if (any_all == nod_ansi_all)
+			node = MAKE_NODE(nod_ansi_all, 1);
+		else if (!(request->req_database->dbb_flags & DBB_v3))
+			node = MAKE_NODE(nod_ansi_any, 1);
+		else
+			node = MAKE_NODE(nod_any, 1);
+		node->nod_count = 0;
+		node->nod_arg[0] = (NOD) rse;
+	}
+
+	EXP_rse_cleanup(rse);
+
+	pop_scope(request, &previous_scope);
+	request->req_in_subselect--;
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Merge two (possibly null) booleans into a single conjunct.
+//  
+
+static NOD merge( NOD expr1, NOD expr2)
+{
+
+	if (!expr1)
+		return expr2;
+
+	if (!expr2)
+		return expr1;
+
+	assert_IS_NOD(expr1);
+	assert_IS_NOD(expr1);
+
+	return MSC_binary(nod_and, expr1, expr2);
+}
+
+
+//____________________________________________________________
+//  
+//		Merge 2 field lists
+//		  2nd list is added over nth entry in 1st list
+//		  if replace is TRUE, otherwise it is added
+//		  after the nth entry.
+//  
+
+static NOD merge_fields( NOD fields_1, NOD fields_2, int n, BOOLEAN replace)
+{
+	NOD fields;
+	int i, count, offset;
+
+	assert_IS_NOD(fields_1);
+	assert_IS_NOD(fields_2);
+
+	count = fields_1->nod_count + fields_2->nod_count;
+	if (replace)
+		count--;
+	fields = MAKE_NODE(nod_list, (SSHORT) count);
+
+	count = n;
+	if (!replace)
+		count++;
+	for (i = 0; i < count; i++)
+		fields->nod_arg[i] = fields_1->nod_arg[i];
+
+	for (i = 0; i < fields_2->nod_count; i++)
+		fields->nod_arg[i + count] = fields_2->nod_arg[i];
+
+	offset = 0;
+	if (replace) {
+		count++;
+		offset = 1;
+	}
+
+	for (i = count; i < fields_1->nod_count; i++)
+		fields->nod_arg[i + fields_2->nod_count - offset] =
+			fields_1->nod_arg[i];
+
+	return fields;
+}
+
+
+//____________________________________________________________
+//  
+//		Construct negation of expression.
+//  
+
+static NOD negate( NOD expr)
+{
+
+	assert_IS_NOD(expr);
+
+	return MSC_unary(nod_not, expr);
+}
+
+
+//____________________________________________________________
+//  
+//		Given two value expressions associated in a relational
+//		expression, see if one is a field reference and the other
+//		is a host language variable..  If so, match the field to the
+//		host language variable.
+//  
+
+static void pair( NOD expr1, NOD expr2)
+{
+	FLD field, temp;
+
+	assert_IS_NOD(expr1);
+	assert_IS_NOD(expr2);
+
+//  Verify that an array field without subscripts is not
+//  being used inappropriately 
+
+	if (expr1 && expr2) {
+		if (expr1->nod_type == nod_array && !expr1->nod_arg[1])
+			PAR_error("Invalid array column reference");
+		if (expr2->nod_type == nod_array && !expr2->nod_arg[1])
+			PAR_error("Invalid array column reference");
+	}
+
+	field = 0;
+	if (expr2)
+		field = get_ref(expr2);
+	if (!field)
+		field = get_ref(expr1);
+
+	if (!field)
+		return;
+
+	set_ref(expr1, field);
+
+	if (!expr2)
+		return;
+
+	if (temp = get_ref(expr1))
+		field = temp;
+
+	set_ref(expr2, field);
+}
+
+
+//____________________________________________________________
+//  
+//		The passed alias list fully specifies a relation.
+//		The first alias represents a relation specified in
+//		the from list at this scope levels.  Subsequent
+//		contexts, if there are any, represent base relations
+//		in a view stack.  They are used to fully specify a 
+//		base relation of a view.  The aliases used in the 
+//		view stack are those used in the view definition.
+//  
+
+static CTX par_alias_list( REQ request, NOD alias_list)
+{
+	CTX context, new_context;
+	REL relation;
+	NOD *arg, *end;
+	USHORT alias_length;
+	TEXT *p, *q, *alias;
+	SCHAR error_string[ERROR_LENGTH];
+
+	assert_IS_REQ(request);
+	assert_IS_NOD(alias_list);
+
+	arg = alias_list->nod_arg;
+	end = alias_list->nod_arg + alias_list->nod_count;
+
+//  check the first alias in the list with the relations
+//  in the current context for a match 
+
+	if (context = par_alias(request, (TEXT *) * arg)) {
+		if (alias_list->nod_count == 1)
+			return context;
+		relation = context->ctx_relation;
+	}
+
+//  if the first alias didn't specify a table in the context stack, 
+//  look through all contexts to find one which might be a view with
+//  a base table having a matching table name or alias 
+
+	if (!context)
+		for (context = request->req_contexts; context;
+			 context = context->ctx_next) {
+			if (context->ctx_scope_level != request->req_scope_level)
+				continue;
+			if (!context->ctx_relation)
+				continue;
+			if (relation =
+				par_base_table(request, context->ctx_relation,
+							   (TEXT *) * arg)) break;
+		}
+
+	if (!context) {
+		sprintf(error_string,
+				"there is no alias or table named %s at this scope level",
+				(TEXT *) * arg);
+		PAR_error(error_string);
+	}
+
+//  find the base table using the specified alias list, skipping the first one
+//  since we already matched it to the context 
+
+	for (arg++; arg < end; arg++)
+		if (!(relation = par_base_table(request, relation, (TEXT *) * arg)))
+			break;
+
+	if (!relation) {
+		sprintf(error_string,
+				"there is no alias or table named %s at this scope level",
+				(TEXT *) * arg);
+		PAR_error(error_string);
+	}
+
+//  make up a dummy context to hold the resultant relation 
+
+	new_context = (CTX) ALLOC(CTX_LEN);
+	new_context->ctx_request = request;
+	new_context->ctx_internal = context->ctx_internal;
+	new_context->ctx_relation = relation;
+
+//  concatenate all the contexts to form the alias name;
+//  calculate the length leaving room for spaces and a null 
+
+	alias_length = alias_list->nod_count;
+	for (arg = alias_list->nod_arg; arg < end; arg++)
+		alias_length += strlen((TEXT *) * arg);
+
+	alias = (TEXT *) ALLOC(alias_length);
+
+	p = new_context->ctx_alias = alias;
+	for (arg = alias_list->nod_arg; arg < end; arg++) {
+		for (q = (TEXT *) * arg; *q;)
+			*p++ = *q++;
+		*p++ = ' ';
+	}
+
+	p[-1] = 0;
+
+	return new_context;
+}
+
+
+//____________________________________________________________
+//  
+//		The passed relation or alias represents 
+//		a context which was previously specified
+//		in the from list.  Find and return the 
+//		proper context.
+//  
+
+static CTX par_alias( REQ request, TEXT * alias)
+{
+	CTX context, relation_context = NULL;
+	SCHAR error_string[ERROR_LENGTH];
+	TEXT *p, *q;
+
+	assert_IS_REQ(request);
+
+//  look through all contexts at this scope level
+//  to find one that has a relation name or alias
+//  name which matches the identifier passed 
+
+	for (context = request->req_contexts; context;
+		 context = context->ctx_next) {
+		if (context->ctx_scope_level != request->req_scope_level)
+			continue;
+
+		/* check for matching alias */
+
+		if (context->ctx_alias) {
+			for (p = context->ctx_alias, q = alias; *p && *q; p++, q++)
+				if (UPPER(*p) != UPPER(*q))
+					break;
+			if (!*p && !*q)
+				return context;
+		}
+
+		/* check for matching relation name; aliases take priority so
+		   save the context in case there is an alias of the same name;
+		   also to check that there is no self-join in the query */
+
+		if (context->ctx_relation &&
+			!strcmp(context->ctx_relation->rel_symbol->sym_string, alias)) {
+			if (relation_context) {
+				sprintf(error_string,
+						"the table %s is referenced twice; use aliases to differentiate",
+						alias);
+				PAR_error(error_string);
+			}
+			relation_context = context;
+		}
+	}
+
+	return relation_context;
+}
+
+
+//____________________________________________________________
+//  
+//		Check if the relation in the passed context
+//		has a base table which matches the passed alias.
+//  
+
+static REL par_base_table( REQ request, REL relation, TEXT * alias)
+{
+
+	assert_IS_REQ(request);
+
+	return MET_get_view_relation(request, relation->rel_symbol->sym_string,
+								 alias, 0);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an AND boolean expression.
+//  
+
+static NOD par_and( REQ request, USHORT * paren_count)
+{
+	NOD expr1;
+
+	assert_IS_REQ(request);
+
+	expr1 = par_not(request, paren_count);
+
+	if (!MATCH(KW_AND))
+		return expr1;
+
+	return merge(expr1, par_and(request, paren_count));
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static NOD par_collate( REQ request, NOD arg)
+{
+	FLD field;
+	NOD node;
+
+	assert_IS_REQ(request);
+	assert_IS_NOD(arg);
+
+	node = MAKE_NODE(nod_cast, 2);
+	node->nod_count = 1;
+	node->nod_arg[0] = arg;
+	field = (FLD) ALLOC(FLD_LEN);
+	node->nod_arg[1] = (NOD) field;
+	CME_get_dtype(arg, field);
+	if (field->fld_dtype > dtype_any_text) {
+		/* cast expression to VARYING with implementation-defined */
+		/* maximum length */
+
+		field->fld_dtype = dtype_varying;
+		field->fld_char_length = 30;
+		field->fld_length = 0;	/* calculated by SQL_adjust_field_dtype */
+		field->fld_scale = 0;
+		field->fld_sub_type = 0;
+	}
+	else if (field->fld_sub_type) {
+		field->fld_character_set = MET_get_text_subtype(field->fld_sub_type);
+	}
+	SQL_par_field_collate(request, field);
+	SQL_adjust_field_dtype(field);
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a SQL "IN" expression.  This comes in two flavors:
+//  
+//			<value> IN (<value_comma_list>)
+//			<value> IN (SELECT <column> <from_nonsense>)
+//  
+
+static NOD par_in( REQ request, NOD value)
+{
+	NOD value2, node;
+	REF ref1, ref2;
+	SCHAR s[ERROR_LENGTH];
+
+	assert_IS_REQ(request);
+	assert_IS_NOD(value);
+
+	EXP_left_paren(0);
+
+//  If the next token isn't SELECT, we must have the comma list flavor. 
+
+	if (MATCH(KW_SELECT))
+		node = implicit_any(request, value, nod_eq, nod_ansi_any);
+	else {
+		node = NULL;
+		while (TRUE) {
+			value2 = par_primitive_value(request, FALSE, 0, 0);
+			if (value2->nod_type == nod_value) {
+				ref2 = (REF) value2->nod_arg[0];
+				if (value->nod_type == nod_field) {
+					ref1 = (REF) value->nod_arg[0];
+					ref2->ref_field = ref1->ref_field;
+				}
+				else {
+					sprintf(s, "datatype of %s can not be determined",
+							token.tok_string);
+					PAR_error(s);
+				}
+			}
+			if (!node)
+				node = MSC_binary(nod_eq, value, value2);
+			else
+				node =
+					MSC_binary(nod_or, node,
+							   MSC_binary(nod_eq, value, value2));
+
+			if (!(MATCH(KW_COMMA)))
+				break;
+		}
+	}
+
+	if (!EXP_match_paren())
+		return NULL;
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a join relation clause.
+//  
+
+static CTX par_joined_relation( REQ request, CTX prior_context)
+{
+	CTX context1;
+
+	assert_IS_REQ(request);
+
+	if (MATCH(KW_LEFT_PAREN)) {
+		context1 = par_joined_relation(request, NULL);
+		EXP_match_paren();
+	}
+	else if (!(context1 = SQE_context(request)))
+		return NULL;
+
+	return par_join_clause(request, context1);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a join relation clause.
+//  
+
+static CTX par_join_clause( REQ request, CTX context1)
+{
+	CTX context2;
+	NOD_T join_type;
+	NOD node;
+	RSE rse;
+
+	assert_IS_REQ(request);
+
+	join_type = par_join_type();
+	if (join_type == (NOD_T) 0)
+		return context1;
+
+	if (!(context2 = par_joined_relation(request, context1)))
+		SYNTAX_ERROR("<joined table clause>");
+
+	if (!MATCH(KW_ON))
+		SYNTAX_ERROR("ON");
+
+	node = SQE_boolean(request, NULL);
+
+	rse = (RSE) ALLOC(RSE_LEN(2));
+	rse->rse_count = 2;
+	rse->rse_context[0] = context1;
+	rse->rse_context[1] = context2;
+	rse->rse_boolean = node;
+	rse->rse_join_type = join_type;
+
+	context1 = MAKE_CONTEXT(request);
+	context1->ctx_stream = rse;
+
+	return par_join_clause(request, context1);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a join type.
+//  
+
+static NOD_T par_join_type(void)
+{
+	NOD_T operator_;
+
+	if (MATCH(KW_INNER))
+		operator_ = nod_join_inner;
+	else if (MATCH(KW_LEFT))
+		operator_ = nod_join_left;
+	else if (MATCH(KW_RIGHT))
+		operator_ = nod_join_right;
+	else if (MATCH(KW_FULL))
+		operator_ = nod_join_full;
+	else if (MATCH(KW_JOIN))
+		return nod_join_inner;
+	else
+		return (NOD_T) 0;
+
+	if (operator_ != nod_join_inner)
+		MATCH(KW_OUTER);
+
+	if (!MATCH(KW_JOIN))
+		SYNTAX_ERROR("JOIN");
+
+	return operator_;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse either of the high precedence operators * and /.
+//  
+
+static NOD par_multiply(
+						REQ request,
+						BOOLEAN aster_ok,
+						USHORT * paren_count, USHORT * bool_flag)
+{
+	NOD node, arg;
+	enum nod_t operator_;
+
+	assert_IS_REQ(request);
+	node = par_primitive_value(request, aster_ok, paren_count, bool_flag);
+	if (node->nod_type == nod_asterisk)
+		return node;
+
+	if (KEYWORD(KW_COLLATE))
+		return par_collate(request, node);
+
+	while (TRUE) {
+		if (MATCH(KW_ASTERISK))
+			operator_ = nod_times;
+		else if (MATCH(KW_SLASH))
+			operator_ = nod_divide;
+		else
+			return node;
+		arg = node;
+		node =
+			MSC_binary(operator_, arg,
+					   par_primitive_value(request, FALSE, paren_count,
+										   bool_flag));
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an NOT boolean expression.
+//  
+
+static NOD par_not( REQ request, USHORT * paren_count)
+{
+	RSE rse;
+	NOD node, expr, field;
+	enum nod_t type;
+	struct scope saved_scope;
+
+	assert_IS_REQ(request);
+
+	if (MATCH(KW_NOT))
+		return negate(par_not(request, paren_count));
+
+	type = (enum nod_t) 0;
+
+	if (MATCH(KW_EXISTS))
+		type = nod_any;
+	else if (MATCH(KW_SINGULAR))
+		type = nod_unique;
+	if (type == nod_any || type == nod_unique) {
+		push_scope(request, &saved_scope);
+
+		EXP_left_paren(0);
+		if (!MATCH(KW_SELECT))
+			SYNTAX_ERROR("SELECT");
+
+		request->req_in_select_list++;
+		if (MATCH(KW_ASTERISK))
+			field = NULL;
+		else if (!(field = par_udf(request)))
+			field = SQE_field(request, FALSE);
+		request->req_in_select_list--;
+
+		node = MAKE_NODE(type, 1);
+		node->nod_count = 0;
+		rse = par_rse(request, 0, FALSE);
+		node->nod_arg[0] = (NOD) rse;
+		if (field) {
+			SQE_resolve(field, 0, rse);
+			expr = MSC_unary(nod_missing, field);
+			rse->rse_boolean = merge(negate(expr), rse->rse_boolean);
+		}
+		EXP_rse_cleanup((RSE) node->nod_arg[0]);
+		pop_scope(request, &saved_scope);
+		EXP_match_paren();
+		return node;
+	}
+
+	return par_relational(request, paren_count);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse ORDER clause of SELECT expression.  This is 
+//		particularly difficult since the ORDER clause can
+//		refer to fields by position.
+//  
+
+static void par_order(
+					  REQ request,
+					  RSE select, SSHORT union_f, USHORT view_flag)
+{
+	NOD sort, *ptr, values;
+	LLS items, directions;
+	MAP map;
+	int count, direction;
+	USHORT i;
+
+	assert_IS_REQ(request);
+
+//  This doesn't really belong here, but it's convenient.  Parse the
+//  SQL "FOR UPDATE OF ..." clause.  Just eat it and ignore it. 
+
+	if (MATCH(KW_FOR)) {
+		MATCH(KW_UPDATE);
+		MATCH(KW_OF);
+		do
+			CPR_token();
+		while (MATCH(KW_COMMA));
+	}
+
+	if (!MATCH(KW_ORDER))
+		return;
+	if (view_flag)
+		PAR_error("sort clause not allowed in a view definition");
+
+	MATCH(KW_BY);
+	items = directions = NULL;
+	count = direction = 0;
+	values = select->rse_fields;
+
+	while (TRUE) {
+		direction = FALSE;
+		if (token.tok_type == tok_number) {
+			i = EXP_USHORT_ordinal(FALSE);
+			if (i < 1 || i > values->nod_count)
+				SYNTAX_ERROR("<ordinal column position>");
+			sort = values->nod_arg[i - 1];
+			ADVANCE_TOKEN;
+			if (KEYWORD(KW_COLLATE))
+				sort = par_collate(request, sort);
+		}
+		else {
+			if (union_f)
+				SYNTAX_ERROR("<column position in union>");
+			sort = SQE_value(request, FALSE, 0, 0);
+			if (request && (map = request->req_map))
+				sort = post_map(sort, map);
+		}
+		if (MATCH(KW_ASCENDING))
+			direction = FALSE;
+		else if (MATCH(KW_DESCENDING))
+			direction = TRUE;
+		count++;
+		PUSH((NOD) direction, &directions);
+		PUSH(sort, &items);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	select->rse_sort = sort = MAKE_NODE(nod_sort, (SSHORT) (count * 2));
+	sort->nod_count = count;
+	ptr = sort->nod_arg + count * 2;
+
+	while (items) {
+		*--ptr = (NOD) POP(&items);
+		*--ptr = (NOD) POP(&directions);
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Allow the user to specify the access plan
+//		for a query as part of a select expression.
+//  
+
+static NOD par_plan( REQ request)
+{
+	NOD_T operator_;
+	NOD plan_expression;
+
+	assert_IS_REQ(request);
+
+//  parse the join type 
+
+	if (MATCH(KW_JOIN))
+		operator_ = nod_join;
+	else if (MATCH(KW_MERGE))
+		operator_ = nod_merge;
+	else if (MATCH(KW_SORT) && MATCH(KW_MERGE))
+		operator_ = nod_merge;
+	else
+		operator_ = nod_join;
+
+//  make up the plan expression node 
+
+	plan_expression = MAKE_NODE(nod_plan_expr, 2);
+
+	if (operator_ != nod_join)
+		plan_expression->nod_arg[0] = MAKE_NODE(operator_, 0);
+
+//  parse the plan items at this level 
+
+	EXP_left_paren(0);
+
+#pragma FB_COMPILER_MESSAGE("Fix! Wrong function ptr type!")
+//
+// Please search for "reinterpret_cast<pfn_SQE_list_cb>",
+// there are more in this file.
+//
+	plan_expression->nod_arg[1] =
+		SQE_list(reinterpret_cast < pfn_SQE_list_cb > (par_plan_item),
+				 request, FALSE);
+
+	if (!EXP_match_paren())
+		return NULL;
+	return plan_expression;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an individual plan item for an 
+//		access plan.
+//  
+
+static NOD par_plan_item( REQ request, BOOLEAN aster_ok)
+{
+	LLS stack = NULL;
+	int count;
+	NOD plan_item, alias_list, access_type, index_list, *ptr;
+	CTX context;
+
+	assert_IS_REQ(request);
+
+//  check for a plan expression 
+
+	if (KEYWORD(KW_JOIN) ||
+		KEYWORD(KW_SORT) ||
+		KEYWORD(KW_MERGE) || KEYWORD(KW_LEFT_PAREN)) return par_plan(request);
+
+//  parse the list of one or more table names or
+//  aliases (more than one is used when there is
+//  a need to differentiate base tables of a view) 
+
+	for (count = 0; token.tok_type == tok_ident; count++) {
+		if (KEYWORD(KW_NATURAL) || KEYWORD(KW_ORDER) || KEYWORD(KW_INDEX))
+			break;
+
+		PUSH((NOD) upcase_string(token.tok_string), &stack);
+		ADVANCE_TOKEN;
+	}
+
+	if (!count)
+		SYNTAX_ERROR("<table name> or <alias>");
+
+	alias_list = MAKE_NODE(nod_list, (SSHORT) count);
+	for (ptr = &alias_list->nod_arg[count]; stack;)
+		*--ptr = (NOD) POP(&stack);
+
+//  lookup the contexts for the aliases 
+
+	context = par_alias_list(request, alias_list);
+
+//  parse the access type 
+
+	if (KEYWORD(KW_NATURAL)) {
+		access_type = MAKE_NODE(nod_natural, 0);
+		ADVANCE_TOKEN;
+	}
+	else if (KEYWORD(KW_ORDER)) {
+		access_type = MAKE_NODE(nod_index_order, 1);
+		access_type->nod_count = 0;
+		ADVANCE_TOKEN;
+
+		if (token.tok_type != tok_ident)
+			SYNTAX_ERROR("<index name>");
+		access_type->nod_arg[0] = (NOD) upcase_string(token.tok_string);
+		ADVANCE_TOKEN;
+	}
+	else if (KEYWORD(KW_INDEX)) {
+		access_type = MAKE_NODE(nod_index, 1);
+		access_type->nod_count = 0;
+		ADVANCE_TOKEN;
+
+		EXP_left_paren(0);
+
+		stack = NULL;
+		for (count = 0; token.tok_type == tok_ident;) {
+			PUSH((NOD) upcase_string(token.tok_string), &stack);
+			ADVANCE_TOKEN;
+
+			count++;
+
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+		if (!count)
+			SYNTAX_ERROR("<table name> or <alias>");
+
+		access_type->nod_arg[0] = index_list =
+			MAKE_NODE(nod_list, (SSHORT) count);
+		for (ptr = &index_list->nod_arg[count]; stack;)
+			*--ptr = (NOD) POP(&stack);
+
+		if (!EXP_match_paren())
+			return NULL;
+	}
+	else {
+		SYNTAX_ERROR("NATURAL, ORDER, or INDEX");
+	}
+
+
+//  generate the plan item node 
+
+	plan_item = MAKE_NODE(nod_plan_item, 3);
+	plan_item->nod_count = 2;
+	plan_item->nod_arg[0] = alias_list;
+	plan_item->nod_arg[1] = access_type;
+	plan_item->nod_arg[2] = (NOD) context;
+
+	return plan_item;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a value expression.  The value could be any of the
+//		following:
+//  
+//			"quoted string"
+//			_CHARSET"quoted string"
+//			123
+//			+1.234E-3
+//			field
+//			relation.field
+//			context.field
+//			user defined function
+//  
+
+static NOD par_primitive_value(
+							   REQ request,
+							   BOOLEAN aster_ok,
+							   USHORT * paren_count, USHORT * bool_flag)
+{
+	NOD node, node_arg;
+	REF reference;
+	OPS *op;
+	MAP map;
+	USHORT distinct, local_count;
+	ACT action;
+	KWWORDS kw_word;
+
+	assert_IS_REQ(request);
+
+	node = FALSE;
+
+	if (!paren_count) {
+		local_count = 0;
+		paren_count = &local_count;
+	}
+
+	if (MATCH(KW_SELECT))
+		return par_stat(request);
+
+	if (MATCH(KW_MINUS))
+		return MSC_unary(nod_negate,
+						 par_primitive_value(request, FALSE, paren_count, 0));
+
+	MATCH(KW_PLUS);
+
+	if (MATCH(KW_USER)) {
+		return MAKE_NODE(nod_user_name, 0);
+	}
+
+	if (MATCH(KW_VALUE)) {
+		/* If request is NULL we must be processing a subquery - and 
+		 * without the request to refer to we're kinda hosed
+		 */
+		if (!request)
+			PAR_error("VALUE cannot be used in this context");
+		action = request->req_actions;
+		if (request->req_type != REQ_ddl ||
+			!action ||
+			!(action->act_type == ACT_create_domain ||
+			  action->act_type == ACT_alter_domain))
+				PAR_error("VALUE cannot be used in this context");
+
+		return MAKE_NODE(nod_dom_value, 0);
+	}
+
+	if (MATCH(KW_LEFT_PAREN)) {
+		(*paren_count)++;
+		if (bool_flag && *bool_flag)
+			node = SQE_boolean(request, paren_count);
+		else
+			node = SQE_value(request, FALSE, paren_count, bool_flag);
+		EXP_match_paren();
+		(*paren_count)--;
+		return node;
+	}
+
+//  Check for an aggregate statistical expression.  If we already have a
+//  map defined for the request, we're part of either HAVING or a trailing
+//  ORDER clause.  In this case, post only the complete expression, and not
+//  the sub-expressions. 
+
+	for (op = stat_ops; (int) op->rel_kw != (int) KW_none; op++) {
+		MATCH(KW_ALL);
+		if (MATCH(op->rel_kw)) {
+			if (request && (request->req_in_aggregate ||
+							!(request->req_in_select_list ||
+							  request->req_in_having_clause ||
+							  request->req_in_order_by_clause)))
+				/* either nested aggregate, or not part of a select
+				   list, having clause, or order by clause (in any subquery)
+				 */
+				PAR_error("Invalid aggregate reference");
+
+			node = MAKE_NODE(op->rel_op, 2);
+			node->nod_count = 1;
+			EXP_left_paren("left parenthesis in statistical function");
+			distinct = MATCH(KW_DISTINCT);
+			if (request) {
+				map = request->req_map;
+				request->req_map = NULL;
+				++request->req_in_aggregate;
+			}
+			if (node->nod_type == nod_agg_count && MATCH(KW_ASTERISK))
+				node->nod_count = 0;
+			else {
+				node->nod_arg[0] = SQE_value(request, FALSE, 0, 0);
+				/* Disallow arrays as arguments to aggregate functions  */
+				node_arg = node->nod_arg[0];
+				if (node_arg && node_arg->nod_type == nod_array)
+					PAR_error
+						("Array columns not permitted in aggregate functions");
+			}
+
+			if (distinct)
+				node->nod_arg[1] = node->nod_arg[0];
+			EXP_match_paren();
+			if (request) {
+				if (map)
+					node = post_map(node, map);
+				request->req_map = map;
+				--request->req_in_aggregate;
+			}
+			return node;
+		}
+	}
+
+//  If it's a number or a quoted string, it's a literal 
+
+	if (token.tok_type == tok_number ||
+		(QUOTED(token.tok_type) && sw_sql_dialect == 1) ||
+		SINGLE_QUOTED(token.tok_type)) {
+		node = EXP_literal();
+		return node;
+	}
+
+//  moved this timestamp support down some lines, because it caused
+//  gpre to segfault when it was done here.
+//  FSG 15.Nov.2000
+//  
+
+
+//  If the next token is a colon, it is a variable reference 
+
+	if ((int) token.tok_keyword == (int) KW_COLON) {
+		if (!request) {
+			/* We must be processing a subquery - and without the request to
+			 * post the :hostvar to we can't continue.
+			 * (core dump when de-refer of NULL request)
+			 */
+			PAR_error(":hostvar reference not supported in this context");
+			return NULL;
+		}
+		reference = SQE_variable(request, FALSE);
+		node = MSC_unary(nod_value, (NOD) reference);
+		reference->ref_next = request->req_values;
+		request->req_values = reference;
+		return node;
+	}
+
+
+
+//  Must be a field or a udf.  If there is a map, post the field to it. 
+	node = par_udf_or_field(request, aster_ok);
+
+//  
+//if (request && (map = request->req_map))
+//   return post_map (node, map);
+//  
+
+	if (!node)
+//  I don't know what it's good for, but let's try it anyway if we haven't found 
+//  anything that makes sense until now 
+	{
+// ** Begin date/time/timestamp support *
+		kw_word = token.tok_keyword;
+
+		if (MATCH(KW_DATE) || MATCH(KW_TIME) || MATCH(KW_TIMESTAMP)) {
+			token.tok_keyword = kw_word;
+			node = EXP_literal();
+			return node;
+		}
+
+// ** End date/time/timestamp support *
+
+	}
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse relational expression.
+//  
+
+static NOD par_relational( REQ request, USHORT * paren_count)
+{
+	NOD node, expr1, expr2;
+	REF ref_value;
+	OPS *op;
+	int negation;
+	USHORT local_flag;
+	NOD_T *relational_ops;
+
+	assert_IS_REQ(request);
+
+	local_flag = TRUE;
+
+	negation = FALSE;
+	expr1 = SQE_value(request, FALSE, paren_count, &local_flag);
+	if (KEYWORD(KW_RIGHT_PAREN))
+		return expr1;
+	if (KEYWORD(KW_SEMI_COLON))
+		for (relational_ops = relationals; *relational_ops != (NOD_T) 0;
+			 relational_ops++)
+			if (expr1->nod_type == *relational_ops)
+				return expr1;
+
+	if (MATCH(KW_NOT))
+		negation = TRUE;
+
+//  Check for one of the binary operators 
+
+	if (MATCH(KW_IN))
+		node = par_in(request, expr1);
+	else if (MATCH(KW_BETWEEN)) {
+		node = MAKE_NODE(nod_between, 3);
+		node->nod_arg[0] = expr1;
+		node->nod_arg[1] = SQE_value(request, FALSE, 0, 0);
+		MATCH(KW_AND);
+		node->nod_arg[2] = SQE_value(request, FALSE, 0, 0);
+		pair(node->nod_arg[0], node->nod_arg[1]);
+		pair(node->nod_arg[0], node->nod_arg[2]);
+	}
+	else if (MATCH(KW_LIKE)) {
+		node = MAKE_NODE(nod_like, 3);
+		node->nod_arg[0] = expr1;
+		node->nod_arg[1] = SQE_value(request, FALSE, 0, 0);
+		pair(node->nod_arg[0], node->nod_arg[1]);
+		if (MATCH(KW_ESCAPE)) {
+			node->nod_arg[2] = expr2 = SQE_value(request, FALSE, 0, 0);
+			if (expr2->nod_type == nod_value) {
+				ref_value = (REF) expr2->nod_arg[0];
+				ref_value->ref_field =
+					MET_make_field("like_escape_character", dtype_text, 2,
+								   FALSE);
+			}
+		}
+		else
+			node->nod_count = 2;
+	}
+	else if (MATCH(KW_IS)) {
+		if (MATCH(KW_NOT))
+			negation = !negation;
+		if (!MATCH(KW_NULL))
+			SYNTAX_ERROR("NULL");
+		if (expr1->nod_type == nod_array)
+			expr1->nod_type = nod_field;
+		node = MSC_unary(nod_missing, expr1);
+	}
+	else {
+		node = NULL;
+		for (op = rel_ops; (int) op->rel_kw != (int) KW_none; op++)
+			if (MATCH(op->rel_kw))
+				break;
+		if ((int) op->rel_kw == (int) KW_none) {
+			for (relational_ops = relationals; *relational_ops != (NOD_T) 0;
+				 relational_ops++)
+
+				if (expr1->nod_type == *relational_ops)
+					return expr1;
+			SYNTAX_ERROR("<relational operator>");
+		}
+		if ((int) op->rel_kw == (int) KW_STARTING)
+			MATCH(KW_WITH);
+		if (MATCH(KW_ANY)) {
+			if (!MATCH(KW_LEFT_PAREN) || !MATCH(KW_SELECT))
+				SYNTAX_ERROR("<select clause> for ANY");
+			node = implicit_any(request, expr1, op->rel_op, nod_any);
+			EXP_match_paren();
+		}
+		else if (MATCH(KW_ALL)) {
+			if (!MATCH(KW_LEFT_PAREN) || !MATCH(KW_SELECT))
+				SYNTAX_ERROR("<select clause> for ALL");
+			if (op->rel_negation == nod_any
+				|| op->rel_negation == nod_ansi_any
+				|| op->rel_negation ==
+				nod_ansi_all) SYNTAX_ERROR("<relational operator> for ALL");
+			node = implicit_any(request, expr1, op->rel_op, nod_ansi_all);
+			EXP_match_paren();
+		}
+		else {
+			node =
+				MSC_binary(op->rel_op, expr1,
+						   SQE_value(request, FALSE, 0, 0));
+			pair(node->nod_arg[0], node->nod_arg[1]);
+		}
+	}
+
+	return (negation) ? negate(node) : node;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse the SQL equivalent of a record selection expression --
+//		FROM, WHERE, and ORDER clauses.  A field list may or may not
+//		be present.
+//  
+
+static RSE par_rse( REQ request, NOD fields, BOOLEAN distinct)
+{
+	CTX context;
+	MAP map;
+	NOD *ptr, *end, node;
+	RSE select, sub_rse;
+	BOOLEAN aggregate;
+	int count, i, old_count;
+	LLS stack;
+
+	assert_IS_REQ(request);
+	assert_IS_NOD(fields);
+
+//  Get list and count of relations 
+
+	if (!MATCH(KW_FROM))
+		SYNTAX_ERROR("FROM");
+
+	stack = NULL;
+	count = 0;
+
+	do
+		if (context = par_joined_relation(request, NULL)) {
+			PUSH((NOD) context, &stack);
+			count++;
+		}
+		else
+			return NULL;
+	while (MATCH(KW_COMMA));
+
+//  Now allocate a record select expression
+//  block for the beast and fill in what we already know.  
+
+	select = (RSE) ALLOC(RSE_LEN(count));
+	select->rse_count = count;
+
+	while (count--)
+		select->rse_context[count] = (CTX) POP(&stack);
+
+//  If a field list has been presented, resolve references now 
+
+	aggregate = FALSE;
+
+	if (fields) {
+		for (count = fields->nod_count, ptr = fields->nod_arg, i = 0;
+			 i < count; i++) {
+			node = *(ptr + i);
+			if (node->nod_type == nod_asterisk) {
+				old_count = count;
+				fields = explode_asterisk(fields, i, select);
+				count = fields->nod_count;
+				i += count - old_count;
+				ptr = fields->nod_arg;
+			}
+			else {
+				aggregate |= SQE_resolve(node, 0, select);
+				pair(node, 0);
+				switch (node->nod_type) {
+				case nod_agg_count:
+				case nod_agg_max:
+				case nod_agg_min:
+				case nod_agg_average:
+				case nod_agg_total:
+					if ((node->nod_arg[1]) &&
+						(request->req_database->dbb_flags & DBB_v3))
+						select->rse_reduced =
+							MSC_unary(nod_sort, node->nod_arg[1]);
+					break;
+				}
+			}
+		}
+	}
+	select->rse_fields = fields;
+	if (distinct)
+		select->rse_reduced = fields;
+
+//  Handle a boolean, if present 
+
+	if (MATCH(KW_WITH)) {
+		++request->req_in_where_clause;
+		select->rse_boolean = SQE_boolean(request, 0);
+		--request->req_in_where_clause;
+	}
+
+	if (MATCH(KW_GROUP)) {
+		MATCH(KW_BY);
+		select->rse_group_by =
+			SQE_list(reinterpret_cast < pfn_SQE_list_cb >
+					 (par_udf_or_field_with_collate), request, FALSE);
+		for (ptr = select->rse_group_by->nod_arg, end =
+			 ptr + select->rse_group_by->nod_count; ptr < end; ptr++) {
+			if ((*ptr)->nod_type == nod_array)
+				PAR_error("Array columns not permitted in GROUP BY clause");
+		}
+	}
+
+	if (select->rse_group_by || aggregate) {
+		if (validate_references(select->rse_fields, select->rse_group_by))
+			PAR_error
+				("simple column reference not allowed in aggregate context");
+		sub_rse = select;
+		sub_rse->rse_map = map = (MAP) ALLOC(sizeof(struct map));
+		if (select->rse_group_by)
+			request->req_map = map;
+		map->map_context = MAKE_CONTEXT(request);
+		select = (RSE) ALLOC(RSE_LEN(0));
+		select->rse_aggregate = sub_rse;
+
+		if (fields)
+			select->rse_fields = copy_fields(sub_rse->rse_fields, map);
+
+		if (MATCH(KW_HAVING)) {
+			++request->req_in_having_clause;
+			select->rse_boolean = SQE_boolean(request, 0);
+			--request->req_in_having_clause;
+			if (validate_references
+				(select->rse_boolean,
+				 sub_rse->
+				 rse_group_by))
+PAR_error("simple column reference in HAVING must be referenced in GROUP BY");
+		}
+	}
+
+//  parse a user-specified access plan 
+
+	if (MATCH(KW_PLAN))
+		select->rse_plan = par_plan(request);
+
+	return select;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a SELECT (sans keyword) expression (except UNION).  This
+//		is called exclusively by SQE_select, which handles unions.  Note:
+//		if "union_rse" is non-null, we are a subsequent SELECT in a union.
+//		In this case, check datatypes of the field against the rse field
+//		list.
+//  
+
+static RSE par_select( REQ request, RSE union_rse)
+{
+	RSE select;
+	NOD s_list, into_list;
+	BOOLEAN distinct;
+
+	assert_IS_REQ(request);
+
+//  Handle the ALL and DISTINCT options 
+
+	distinct = (!MATCH(KW_ALL) && MATCH(KW_DISTINCT)) ? TRUE : FALSE;
+
+//  Make select list out of select items 
+
+	++request->req_in_select_list;
+	s_list = SQE_list(SQE_value_or_null, request, TRUE);
+	--request->req_in_select_list;
+
+//  If this is not a declare cursor statement and an INTO list is present,
+//  parse it. 
+
+	if (!(request->req_flags & REQ_sql_declare_cursor))
+		into_list =
+			(MATCH(KW_INTO)) ? SQE_list(reinterpret_cast < pfn_SQE_list_cb >
+										(SQE_variable), request,
+										FALSE) : NULL;
+	else
+		into_list = NULL;
+
+	select = par_rse(request, s_list, distinct);
+	if (select->rse_into = into_list)
+		select->rse_flags |= RSE_singleton;
+
+	if (union_rse && s_list->nod_count != union_rse->rse_fields->nod_count)
+		PAR_error("select lists for UNION don't match");
+
+	return select;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a dumb SQL scalar statistical expression.  Somebody else
+//		has already eaten the SELECT on the front.
+//  
+
+static NOD par_stat( REQ request)
+{
+	NOD node, field_list;
+	NOD item;
+	RSE select;
+	BOOLEAN distinct;
+	struct scope previous_scope;
+
+	assert_IS_REQ(request);
+
+	request->req_in_subselect++;
+	push_scope(request, &previous_scope);
+
+	distinct = (!MATCH(KW_ALL) && MATCH(KW_DISTINCT)) ? TRUE : FALSE;
+
+	request->req_in_select_list++;
+	if (!(item = par_udf(request)))
+		item = SQE_value(request, FALSE, 0, 0);
+	request->req_in_select_list--;
+
+	field_list = MAKE_NODE(nod_list, 1);
+	field_list->nod_arg[0] = item;
+	select = par_rse(request, field_list, distinct);
+	select->rse_flags |= RSE_singleton;
+
+	item = select->rse_fields->nod_arg[0];
+
+	node = MAKE_NODE(nod_via, 3);
+	node->nod_count = 0;
+	node->nod_arg[0] = (NOD) select;
+	node->nod_arg[2] = MAKE_NODE(nod_null, 0);
+	node->nod_arg[1] = item;
+
+	EXP_rse_cleanup(select);
+	pop_scope(request, &previous_scope);
+	request->req_in_subselect--;
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//       Parse a subscript value.  
+//  
+
+static NOD par_subscript( REQ request)
+{
+	NOD node;
+	REF reference;
+	SCHAR *string;
+
+	assert_IS_REQ(request);
+
+	reference = (REF) ALLOC(REF_LEN);
+	node = MSC_unary(nod_value, (NOD) reference);
+
+//  Special case literals 
+
+	if (token.tok_type == tok_number) {
+		node->nod_type = nod_literal;
+		reference->ref_value = string = (TEXT *) ALLOC(token.tok_length + 1);
+		COPY(token.tok_string, token.tok_length, string);
+		ADVANCE_TOKEN;
+		return node;
+	}
+
+	if (!MATCH(KW_COLON))
+		SYNTAX_ERROR("<colon>");
+
+	reference->ref_value = PAR_native_value(FALSE, FALSE);
+
+	if (request) {
+		reference->ref_next = request->req_values;
+		request->req_values = reference;
+	}
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Match several trailing parentheses.
+//  
+
+static void par_terminating_parens(
+								   USHORT * paren_count, USHORT * local_count)
+{
+
+	if (*paren_count && paren_count == local_count)
+		do
+			EXP_match_paren();
+		while (--(*paren_count));
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a user defined function.  If the current token isn't one,
+//		return NULL.  Otherwise try to parse one.  If things go badly,
+//		complain bitterly.
+//  
+
+static NOD par_udf( REQ request)
+{
+	NOD node;
+	NOD *input;
+	UDF udf, tmp_udf;
+	USHORT local_count;
+	FLD field;
+	SCHAR s[ERROR_LENGTH];
+	DBB db;
+	TEXT *gen_name;
+
+	if (!request)
+		return NULL;
+
+	assert_IS_REQ(request);
+
+//  Check for user defined functions 
+// ** resolve only if an identifier *
+	if ((QUOTED(token.tok_type)) || token.tok_type == tok_ident)
+		SQL_resolve_identifier("<Udf Name>", s);
+	if (request->req_database)
+		udf = MET_get_udf(request->req_database, token.tok_string);
+	else {
+		/* no database was specified, check the metadata for all the databases
+		   for the existence of the udf */
+
+		udf = NULL;
+		for (db = isc_databases; db; db = db->dbb_next)
+			if (tmp_udf = MET_get_udf(db, token.tok_string))
+				if (udf) {
+					/* udf was found in more than one database */
+					sprintf(s, "UDF %s is ambiguous", token.tok_string);
+					PAR_error(s);
+				}
+				else {
+					udf = tmp_udf;
+					request->req_database = db;
+				}
+	}
+
+	if (udf) {
+		if ((SQL_DIALECT_V5 == sw_sql_dialect) &&
+			((dtype_sql_date == udf->udf_dtype) ||
+			 (dtype_sql_time == udf->udf_dtype) ||
+			 (dtype_int64 == udf->udf_dtype)))
+				dialect1_bad_type(udf->udf_dtype);
+
+		node = MAKE_NODE(nod_udf, 2);
+		node->nod_count = 1;
+		node->nod_arg[1] = (NOD) udf;
+		ADVANCE_TOKEN;
+		EXP_left_paren(0);
+		if (!(token.tok_keyword == KW_RIGHT_PAREN)) {
+			/* parse udf parameter references */
+			node->nod_arg[0] = SQE_list(SQE_value, request, FALSE);
+
+			if (udf->udf_args != node->nod_arg[0]->nod_count)
+				PAR_error("count of UDF parameters doesn't match definition");
+
+			/* Match parameter types to the declared parameters */
+			for (input = node->nod_arg[0]->nod_arg,
+				 field = udf->udf_inputs;
+				 field;
+				 input++, field = field->fld_next)
+			 SQE_post_field(*input, field);
+		}
+		else {
+			node->nod_arg[0] = (NOD) 0;
+			node->nod_count = 0;
+		}
+		local_count = 1;
+		par_terminating_parens(&local_count, &local_count);
+		return node;
+	}
+
+	if (!request)
+		return NULL;
+
+//  Check for GEN_ID () 
+	if (MATCH(KW_GEN_ID)) {
+		gen_name = (TEXT *) ALLOC(NAME_SIZE);
+		node = MAKE_NODE(nod_gen_id, 2);
+		node->nod_count = 1;
+		EXP_left_paren(0);
+		SQL_resolve_identifier("<Generator Name>", gen_name);
+		node->nod_arg[1] = (NOD) gen_name;
+		ADVANCE_TOKEN;
+		if (!MATCH(KW_COMMA))
+			SYNTAX_ERROR("<comma>");
+		node->nod_arg[0] = SQE_value(request, FALSE, 0, 0);
+		local_count = 1;
+		par_terminating_parens(&local_count, &local_count);
+		return node;
+	}
+
+//  Check for DATE constants 
+// ** Begin date/time/timesamp *
+	if (MATCH(KW_CURRENT_DATE))
+		return MAKE_NODE(nod_current_date, 0);
+	else if (MATCH(KW_CURRENT_TIME))
+		return MAKE_NODE(nod_current_time, 0);
+	else if (MATCH(KW_CURRENT_TIMESTAMP))
+		return MAKE_NODE(nod_current_timestamp, 0);
+
+//  End date/time/timesamp *
+
+//  Check for SQL II defined functions 
+
+// ** Begin date/time/timesamp *
+	if (MATCH(KW_EXTRACT)) {
+		KWWORDS kw_word;
+		node = MAKE_NODE(nod_extract, 2);
+		EXP_left_paren(0);
+		kw_word = token.tok_keyword;
+		if (MATCH(KW_YEAR) || MATCH(KW_MONTH) || MATCH(KW_DAY) ||
+			MATCH(KW_HOUR) || MATCH(KW_MINUTE) || MATCH(KW_SECOND) ||
+			MATCH(KW_WEEKDAY) || MATCH(KW_YEARDAY)) {
+			node->nod_arg[0] = (struct nod *) kw_word;
+			if (!MATCH(KW_FROM))
+				SYNTAX_ERROR("FROM");
+		}
+		else
+			SYNTAX_ERROR("valid extract part");
+		node->nod_arg[1] = SQE_value(request, FALSE, 0, 0);
+		local_count = 1;
+		par_terminating_parens(&local_count, &local_count);
+		return node;
+	}
+
+//  End date/time/timesamp *
+
+	if (MATCH(KW_UPPER)) {
+		node = MAKE_NODE(nod_upcase, 1);
+		EXP_left_paren(0);
+		node->nod_arg[0] = SQE_value(request, FALSE, 0, 0);
+		local_count = 1;
+		par_terminating_parens(&local_count, &local_count);
+		return node;
+	}
+
+	if (MATCH(KW_CAST)) {
+		node = MAKE_NODE(nod_cast, 2);
+		node->nod_count = 1;
+		EXP_left_paren(0);
+		node->nod_arg[0] = SQE_value_or_null(request, FALSE, 0, 0);
+		if (!MATCH(KW_AS))
+			SYNTAX_ERROR("AS");
+		field = (FLD) ALLOC(FLD_LEN);
+		node->nod_arg[1] = (NOD) field;
+		SQL_par_field_dtype(request, field, FALSE);
+		SQL_par_field_collate(request, field);
+		SQL_adjust_field_dtype(field);
+		local_count = 1;
+		par_terminating_parens(&local_count, &local_count);
+		return node;
+	}
+
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a user defined function or a field name.
+//  
+
+static NOD par_udf_or_field( REQ request, BOOLEAN aster_ok)
+{
+	NOD node;
+
+	assert_IS_REQ(request);
+
+	if (!(node = par_udf(request)))
+		node = SQE_field(request, aster_ok);
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a user defined function or a field name.
+//		Allow the collate clause to follow.
+//  
+
+static NOD par_udf_or_field_with_collate( REQ request, BOOLEAN aster_ok)
+{
+	NOD node;
+
+	assert_IS_REQ(request);
+
+	node = par_udf_or_field(request, aster_ok);
+	if (KEYWORD(KW_COLLATE))
+		node = par_collate(request, node);
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Post a field or aggregate to a map.  This is used to references
+//		to aggregates and unions.  Return a reference to the map (rather
+//		than the expression itself).  Post only the aggregates and fields,
+//		not the computations around them.
+//  
+
+static NOD post_fields( NOD node, MAP map)
+{
+	NOD *ptr, *end;
+
+	assert_IS_NOD(node);
+
+	switch (node->nod_type) {
+		/* Removed during fix to BUG_8021 - this would post a literal to
+		 * the map record for each literal used in an expression - which 
+		 * would result in unneccesary data movement as the literal is more
+		 * easily experssed in the assignment portion of the mapping select
+		 * operation.
+		 case nod_literal:
+		 * 1995-Jul-10 David Schnepper 
+		 */
+	case nod_field:
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_average:
+	case nod_agg_total:
+	case nod_agg_count:
+	case nod_map_ref:
+		return post_map(node, map);
+
+	case nod_udf:
+	case nod_gen_id:
+		node->nod_arg[0] = post_fields(node->nod_arg[0], map);
+		break;
+
+	case nod_list:
+	case nod_upcase:
+	case nod_concatenate:
+	case nod_cast:
+	case nod_plus:
+	case nod_minus:
+	case nod_times:
+	case nod_divide:
+	case nod_negate:
+		for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end;
+			 ptr++)
+			*ptr = post_fields(*ptr, map);
+		break;
+// ** Begin date/time/timestamp support *
+	case nod_extract:
+		node->nod_arg[1] = post_fields(node->nod_arg[1], map);
+		break;
+// ** End date/time/timestamp support *
+	}
+
+	return node;
+}
+
+
+//____________________________________________________________
+//  
+//		Post a value expression to a map.  This is used to references
+//		to aggregates and unions.  Return a reference to the map (rather
+//		than the expression itself).
+//  
+
+static NOD post_map( NOD node, MAP map)
+{
+	MEL element;
+
+	assert_IS_NOD(node);
+
+//  Search existing map for equivalent expression.  If we find one,
+//  return a reference to it. 
+
+	if (node->nod_type == nod_map_ref) {
+		element = (MEL) node->nod_arg[0];
+		if (element->mel_context == map->map_context)
+			return node;
+	}
+
+	for (element = map->map_elements; element; element = element->mel_next)
+		if (compare_expr(node, element->mel_expr))
+			return MSC_unary(nod_map_ref, (NOD) element);
+
+//  We need to make up a new map reference 
+
+	element = (MEL) ALLOC(sizeof(struct mel));
+	element->mel_next = map->map_elements;
+	map->map_elements = element;
+	element->mel_position = map->map_count++;
+	element->mel_expr = node;
+	element->mel_context = map->map_context;
+
+//  Make up a reference to the map element 
+
+	return MSC_unary(nod_map_ref, (NOD) element);
+}
+
+
+//____________________________________________________________
+//  
+//		Copy a selection list to the map generated for a UNION
+//		construct.  Note at this level we want the full expression
+//		selected posted, not just the portions that come from the
+//		stream.  Thus CAST and other operations will be passed into
+//		a UNION.  See BUG_8021 & BUG_8000 for examples.
+//  
+
+static NOD post_select_list( NOD fields, MAP map)
+{
+	NOD list;
+	USHORT i;
+
+	assert_IS_NOD(fields);
+
+	list = MAKE_NODE(nod_list, fields->nod_count);
+
+	for (i = 0; i < fields->nod_count; i++)
+		list->nod_arg[i] = post_map(fields->nod_arg[i], map);
+
+	return list;
+}
+
+
+//____________________________________________________________
+//  
+//		Restore saved scoping information to the request block
+//  
+
+static void pop_scope( REQ request, struct scope *save_scope)
+{
+	assert_IS_REQ(request);
+
+	request->req_contexts = save_scope->req_contexts;
+	request->req_scope_level = save_scope->req_scope_level;
+	request->req_in_aggregate = save_scope->req_in_aggregate;
+	request->req_in_select_list = save_scope->req_in_select_list;
+	request->req_in_where_clause = save_scope->req_in_where_clause;
+	request->req_in_having_clause = save_scope->req_in_having_clause;
+	request->req_in_order_by_clause = save_scope->req_in_order_by_clause;
+}
+
+
+//____________________________________________________________
+//  
+//		Save scoping information from the request block
+//  
+
+static void push_scope( REQ request, struct scope *save_scope)
+{
+	assert_IS_REQ(request);
+
+	save_scope->req_contexts = request->req_contexts;
+	save_scope->req_scope_level = request->req_scope_level;
+	save_scope->req_in_aggregate = request->req_in_aggregate;
+	save_scope->req_in_select_list = request->req_in_select_list;
+	save_scope->req_in_where_clause = request->req_in_where_clause;
+	save_scope->req_in_having_clause = request->req_in_having_clause;
+	save_scope->req_in_order_by_clause = request->req_in_order_by_clause;
+	save_scope->req_in_subselect = request->req_in_subselect;
+	request->req_scope_level++;
+	request->req_in_aggregate = 0;
+	request->req_in_select_list = 0;
+	request->req_in_where_clause = 0;
+	request->req_in_having_clause = 0;
+	request->req_in_order_by_clause = 0;
+	request->req_in_subselect = 0;
+}
+
+
+//____________________________________________________________
+//  
+//		Attempt to resolve a field in a context.  If successful, return
+//		the field.  Otherwise return NULL.  Let somebody else worry about
+//		errors.
+//  
+
+static FLD resolve(
+				   NOD node,
+				   CTX context, CTX * found_context, ACT * slice_action)
+{
+	SYM symbol, temp_symbol;
+	FLD field;
+	TOK f_token, q_token;
+	RSE rs_stream;
+	SSHORT i;
+	REQ slice_req;
+	SLC slice;
+	ARY ary_info;
+	ACT action;
+
+	assert_IS_NOD(node);
+
+	if (rs_stream = context->ctx_stream) {
+		for (i = 0; i < rs_stream->rse_count; i++)
+			if (field =
+				resolve(node, rs_stream->rse_context[i], found_context,
+						slice_action)) return field;
+
+		return NULL;
+	}
+
+	f_token = (TOK) node->nod_arg[0];
+	q_token = (TOK) node->nod_arg[1];
+
+	if (!(context->ctx_relation || context->ctx_procedure))
+		return NULL;
+
+//  Handle unqualified fields first for simplicity 
+
+	if (!q_token)
+		field = MET_context_field(context, f_token->tok_string);
+	else {
+		/* Now search alternatives for the qualifier */
+
+		symbol = HSH_lookup(q_token->tok_string);
+
+		/* This caused gpre to dump core if there are lower case 
+		   table aliases in a where clause used with dialect 2 or 3 
+
+		   if ( (symbol == NULL)&& (sw_case || sw_sql_dialect == SQL_DIALECT_V5))
+		   symbol = HSH_lookup2 (q_token->tok_string);
+		 */
+
+		/* So I replaced it with the following, don't know
+		   why we don't do a HSH_lookup2 in any case, but so it may be.
+		   FSG 16.Nov.2000
+		 */
+		if ((symbol == NULL))
+			symbol = HSH_lookup2(q_token->tok_string);
+
+
+		for (temp_symbol = symbol; temp_symbol;
+			 temp_symbol = temp_symbol->sym_homonym) {
+			if (temp_symbol->sym_type == SYM_context) {
+				symbol = temp_symbol;
+				break;
+			}
+			else if (temp_symbol->sym_type == SYM_relation) {
+				symbol = temp_symbol;
+				continue;
+			}
+			else if (temp_symbol->sym_type == SYM_procedure) {
+				if (symbol->sym_type == SYM_relation)
+					continue;
+				else
+					symbol = temp_symbol;
+			}
+		}
+
+
+		field = NULL;
+		if (symbol->sym_type == SYM_relation) {
+			if ((REL) symbol->sym_object == context->ctx_relation)
+				field = MET_field(context->ctx_relation, f_token->tok_string);
+		}
+		else if (symbol->sym_type == SYM_procedure) {
+			if ((PRC) symbol->sym_object == context->ctx_procedure)
+				field = MET_context_field(context, f_token->tok_string);
+		}
+		else if (symbol->sym_type == SYM_context
+				 && symbol->sym_object == context) field =
+				MET_context_field(context, f_token->tok_string);
+	}
+
+
+	if (field && found_context)
+		*found_context = context;
+
+//  Check for valid array field  
+//  Check dimensions 
+//  Set remaining fields for slice 
+	if ((slice_req = (REQ) node->nod_arg[2]) &&
+		(slice = slice_req->req_slice) && slice_action) {
+		slice = slice_req->req_slice;
+		if (!(ary_info = field->fld_array_info))
+			SYNTAX_ERROR("<array column>");
+		if (ary_info->ary_dimension_count != slice->slc_dimensions)
+			PAR_error("subscript count mismatch");
+		slice->slc_field = field;
+		slice->slc_parent_request = context->ctx_request;
+
+		/* The action type maybe ACT_get_slice or ACT_put_slice 
+		   set as a place holder */
+
+		action = MAKE_ACTION(slice_req, ACT_get_slice);
+		action->act_object = (REF) slice;
+		*slice_action = action;
+	}
+	else if ((slice_req = (REQ) node->nod_arg[2]) && slice_action) {
+		/* The action type maybe ACT_get_slice or ACT_put_slice
+		   set as a place holder */
+
+		action = MAKE_ACTION(slice_req, ACT_get_slice);
+		*slice_action = action;
+	}
+
+	return field;
+}
+
+
+//____________________________________________________________
+//  
+//		Attempt to resolve an asterisk in a context.
+//		If successful, return the context.  Otherwise return NULL.
+//  
+
+static CTX resolve_asterisk( TOK q_token, RSE rse)
+{
+	CTX context;
+	RSE rs_stream;
+	SYM symbol;
+	int i;
+
+	for (i = 0; i < rse->rse_count; i++) {
+		context = rse->rse_context[i];
+		if (rs_stream = context->ctx_stream) {
+			if (context = resolve_asterisk(q_token, rs_stream))
+				return context;
+			continue;
+		}
+		symbol = HSH_lookup(q_token->tok_string);
+		for (; symbol; symbol = symbol->sym_homonym)
+			if (symbol->sym_type == SYM_relation &&
+				(REL) symbol->sym_object == context->ctx_relation)
+				return context;
+			else if (symbol->sym_type == SYM_procedure &&
+					 (PRC) symbol->sym_object == context->ctx_procedure)
+				return context;
+			else if (symbol->sym_type == SYM_context &&
+					 (CTX) symbol->sym_object == context)
+				return context;
+	}
+
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Set field reference for any host variables in expr to field_ref.
+//  
+
+static void set_ref( NOD expr, FLD field_ref)
+{
+	NOD *ptr, *end;
+	REF ref;
+
+	assert_IS_NOD(expr);
+
+	ref = (REF) expr->nod_arg[0];
+	switch (expr->nod_type) {
+	case nod_value:
+		ref->ref_field = field_ref;
+		break;
+
+	case nod_agg_count:
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_total:
+	case nod_agg_average:
+	case nod_plus:
+	case nod_minus:
+	case nod_times:
+	case nod_divide:
+	case nod_negate:
+	case nod_upcase:
+	case nod_concatenate:
+	case nod_cast:
+		for (ptr = expr->nod_arg, end = ptr + expr->nod_count; ptr < end;
+			 ptr++)
+			set_ref(*ptr, field_ref);
+		break;
+// ** Begin date/time/timestamp support *
+	case nod_extract:
+		set_ref(expr->nod_arg[1], field_ref);
+		break;
+// ** End date/time/timestamp support *
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Return the uppercase version of
+//		the input string.
+//  
+
+static char *upcase_string( char *p)
+{
+	char c, *q, *s;
+	USHORT l;
+
+	l = 0;
+	s = (char *) ALLOC(strlen(p) + 1);
+	q = s;
+
+	while ((c = *p++) && (++l <= NAME_SIZE)) {
+		*q++ = UPPER7(c);
+#ifdef JPN_SJIS
+
+		/* Do not upcase second byte of a sjis kanji character */
+
+		if (SJIS1(c) && (c = *p++) && (++l <= NAME_SIZE))
+			*q++ = c;
+#endif
+	}
+	*q = 0;
+
+	return s;
+}
+
+
+//____________________________________________________________
+//  
+//		validate that top level field references
+//		in a select with a group by, real or imagined,
+//		resolve to grouping fields.  Ignore constants
+//		and aggregates.	  If there's no group_by list,
+//		then it's an imaginary group by (a top level
+//		aggregation, and nothing can be referenced
+//		directly.	
+//  
+
+static BOOLEAN validate_references( NOD fields, NOD group_by)
+{
+	NOD *ptr, *end, node;
+	REF fref, gref;
+	RSE any;
+	BOOLEAN invalid, context_match;
+	MEL element;
+
+	assert_IS_NOD(fields);
+	assert_IS_NOD(group_by);
+
+	if (!fields)
+		return FALSE;
+
+	invalid = FALSE;
+	if (fields->nod_type == nod_field) {
+		if (!group_by)
+			return TRUE;
+		fref = (REF) fields->nod_arg[0];
+
+		context_match = FALSE;
+		for (ptr = group_by->nod_arg, end = ptr + group_by->nod_count;
+			 ptr < end; ptr++) {
+			gref = (REF) (*ptr)->nod_arg[0];
+			if (gref->ref_context == fref->ref_context) {
+				if (gref->ref_field == fref->ref_field)
+					return FALSE;
+				context_match = TRUE;
+			}
+		}
+		return context_match;
+	}
+
+	if (fields->nod_type == nod_agg_count ||
+		fields->nod_type == nod_agg_max ||
+		fields->nod_type == nod_agg_min ||
+		fields->nod_type == nod_agg_total ||
+		fields->nod_type == nod_agg_average ||
+		fields->nod_type == nod_aggregate) return FALSE;
+
+	if (fields->nod_type == nod_any || fields->nod_type == nod_ansi_any ||
+		fields->nod_type == nod_ansi_all) {
+		any = (RSE) fields->nod_arg[0];
+		return validate_references(any->rse_boolean, group_by);
+	}
+
+	if ((fields->nod_type == nod_gen_id) || (fields->nod_type == nod_udf))
+		return validate_references(fields->nod_arg[0], group_by);
+
+	for (ptr = fields->nod_arg, end = ptr + fields->nod_count; ptr < end;
+		 ptr++)
+		switch ((*ptr)->nod_type) {
+		case nod_map_ref:
+			element = (MEL) (*ptr)->nod_arg[0];
+			node = element->mel_expr;
+			if (node->nod_type != nod_agg_count &&
+				node->nod_type != nod_agg_max &&
+				node->nod_type != nod_agg_min &&
+				node->nod_type != nod_agg_total &&
+				node->nod_type != nod_agg_average &&
+				node->nod_type != nod_aggregate)
+					invalid |= validate_references(node, group_by);
+			break;
+
+		case nod_field:
+		case nod_plus:
+		case nod_minus:
+		case nod_times:
+		case nod_negate:
+		case nod_divide:
+		case nod_and:
+		case nod_like:
+		case nod_missing:
+		case nod_not:
+		case nod_or:
+		case nod_eq:
+		case nod_ne:
+		case nod_gt:
+		case nod_ge:
+		case nod_le:
+		case nod_lt:
+		case nod_upcase:
+		case nod_concatenate:
+		case nod_cast:
+			invalid |= validate_references(*ptr, group_by);
+			break;
+		}
+
+	return invalid;
+}
+
+
+static void dialect1_bad_type(USHORT field_dtype)
+{
+	char buffer[200];
+	char *s;
+
+	switch (field_dtype) {
+	case dtype_sql_date:
+		s = "SQL DATE";
+		break;
+	case dtype_sql_time:
+		s = "SQL TIME";
+		break;
+	case dtype_int64:
+		s = "64-bit numeric";
+		break;
+	}
+	sprintf(buffer,
+			"Client SQL dialect 1 does not support reference to the %s datatype",
+			s);
+	PAR_error(buffer);
+}
+
+
+} // extern "C"
diff --git a/src/gpre/sqe_proto.h b/src/gpre/sqe_proto.h
new file mode 100644
index 0000000000..ba962e2123
--- /dev/null
+++ b/src/gpre/sqe_proto.h
@@ -0,0 +1,49 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		sqe_proto.h
+ *	DESCRIPTION:	Prototype header file for sqe.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_SQE_PROTO_H_
+#define _GPRE_SQE_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+typedef NOD(*pfn_SQE_list_cb) (REQ, BOOLEAN, USHORT *, USHORT *);
+
+extern NOD SQE_boolean(REQ, USHORT *);
+extern CTX SQE_context(REQ);
+extern NOD SQE_field(REQ, BOOLEAN);
+extern NOD SQE_list(pfn_SQE_list_cb, REQ, BOOLEAN);
+extern REF SQE_parameter(REQ, BOOLEAN);
+extern void SQE_post_field(NOD, FLD);
+extern REF SQE_post_reference(REQ, FLD, CTX, NOD);
+extern BOOLEAN SQE_resolve(NOD, REQ, RSE);
+extern RSE SQE_select(REQ, USHORT);
+extern NOD SQE_value(REQ, BOOLEAN, USHORT *, USHORT *);
+extern REF SQE_variable(REQ, BOOLEAN);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _GPRE_SQE_PROTO_H_ */
diff --git a/src/gpre/sql.cpp b/src/gpre/sql.cpp
new file mode 100644
index 0000000000..adbf4e6544
--- /dev/null
+++ b/src/gpre/sql.cpp
@@ -0,0 +1,6460 @@
+//____________________________________________________________
+//  
+//		PROGRAM:	C Preprocessor
+//		MODULE:		sql.cpp
+//		DESCRIPTION:	SQL parser
+//  
+//  The contents of this file are subject to the Interbase Public
+//  License Version 1.0 (the "License"); you may not use this file
+//  except in compliance with the License. You may obtain a copy
+//  of the License at http://www.Inprise.com/IPL.html
+//  
+//  Software distributed under the License is distributed on an
+//  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+//  or implied. See the License for the specific language governing
+//  rights and limitations under the License.
+//  
+//  The Original Code was created by Inprise Corporation
+//  and its predecessors. Portions created by Inprise Corporation are
+//  Copyright (C) Inprise Corporation.
+//  
+//  All Rights Reserved.
+//  Contributor(s): ______________________________________.
+//  TMN (Mike Nordell) 11.APR.2001 - Reduce compiler warnings
+//  
+//
+//____________________________________________________________
+//
+//	$Id: sql.cpp,v 1.1.1.1 2001-05-23 13:25:30 tamlin Exp $
+//
+
+#include <stdlib.h>
+#include <string.h>
+#include "../gpre/gpre.h"
+#include "../include/jrd/gds.h"
+#include "../gpre/parse.h"
+#include "../jrd/intl.h"
+#include "../wal/wal.h"
+#include "../jrd/constants.h"
+#include "../gpre/cme_proto.h"
+#include "../gpre/cmp_proto.h"
+#include "../gpre/exp_proto.h"
+#include "../gpre/gpre_proto.h"
+#include "../gpre/hsh_proto.h"
+#include "../gpre/gpre_meta.h"
+#include "../gpre/msc_proto.h"
+#include "../gpre/par_proto.h"
+#include "../gpre/sqe_proto.h"
+#include "../gpre/sql_proto.h"
+
+
+extern "C" {
+
+
+#define ERROR_LENGTH			128
+#define MIN_CACHE_BUFFERS		250
+#define DEF_CACHE_BUFFERS		1000
+#define DEFAULT_BLOB_SEGMENT_LENGTH	80	/* bytes */
+
+extern ACT cur_routine;
+extern TEXT *database_name;
+
+TEXT *module_lc_ctype = NULL;
+
+static ACT act_alter(void);
+static ACT act_alter_database(void);
+static ACT act_alter_domain(void);
+static ACT act_alter_index(void);
+static ACT act_alter_table(void);
+static ACT act_comment(void);
+static ACT act_connect(void);
+static ACT act_create(void);
+static ACT act_create_database(void);
+static ACT act_create_domain(void);
+static ACT act_create_generator(void);
+static ACT act_create_index(SSHORT, BOOLEAN);
+static ACT act_create_shadow(void);
+static ACT act_create_table(void);
+static ACT act_create_view(void);
+static ACT act_d_section(enum act_t);
+static ACT act_declare(void);
+static ACT act_declare_filter(void);
+static ACT act_declare_table(SYM, DBB);
+static ACT act_declare_udf(void);
+static ACT act_delete(void);
+static ACT act_describe(void);
+static ACT act_disconnect(void);
+static ACT act_drop(void);
+static ACT act_event(void);
+static ACT act_execute(void);
+static ACT act_fetch(void);
+static ACT act_grant_revoke(enum act_t);
+static ACT act_include(void);
+static ACT act_insert(void);
+static ACT act_insert_blob(TEXT *);
+static ACT act_lock(void);
+static ACT act_openclose(enum act_t);
+static ACT act_open_blob(ACT_T, SYM);
+static ACT act_prepare(void);
+static ACT act_procedure(void);
+static ACT act_select(void);
+static ACT act_set(void);
+static ACT act_set_dialect(void);
+static ACT act_set_generator(void);
+static ACT act_set_names(void);
+static ACT act_set_statistics(void);
+static ACT act_set_transaction(void);
+static ACT act_transaction(enum act_t);
+static ACT act_update(void);
+static ACT act_whenever(void);
+static BOOLEAN check_filename(TEXT *);
+static void connect_opts(TEXT **, TEXT **, TEXT **, TEXT **, USHORT *);
+static FIL define_cache(void);
+static FIL define_file(void);
+static FIL define_log_file(BOOLEAN);
+static DBB dup_dbb(DBB);
+static void error(TEXT *, TEXT *);
+static TEXT *extract_string(BOOLEAN);
+static SWE gen_whenever(void);
+static void into(REQ, NOD, NOD);
+static FLD make_field(REL);
+static IND make_index(REQ, TEXT *);
+static REL make_relation(REQ, TEXT *);
+static void pair(NOD, NOD);
+static void par_array(FLD);
+static SSHORT par_char_set(void);
+static void par_computed(REQ, FLD);
+static REQ par_cursor(SYM *);
+static DYN par_dynamic_cursor(void);
+static FLD par_field(REQ, REL);
+static CNSTRT par_field_constraint(REQ, FLD, REL);
+static void par_fkey_extension(CNSTRT);
+static BOOLEAN par_into(DYN);
+static void par_options(TEXT **);
+static int par_page_size(void);
+static REL par_relation(REQ);
+static DYN par_statement(void);
+static CNSTRT par_table_constraint(REQ, REL);
+static BOOLEAN par_transaction_modes(TRA, BOOLEAN);
+static BOOLEAN par_using(DYN);
+static USHORT resolve_dtypes(KWWORDS, BOOLEAN);
+static BOOLEAN tail_database(enum act_t, DBB);
+static void to_upcase(TEXT *, TEXT *);
+static void dialect1_bad_type(USHORT);
+
+static SWE whenever[SWE_max], whenever_list;
+
+#define END_OF_COMMAND											\
+	(((sw_language != lang_cobol) &&							\
+		((int) token.tok_keyword == (int) KW_SEMI_COLON)) ||	\
+		 ((sw_language == lang_cobol) &&						\
+		 ((int) token.tok_keyword == (int) KW_END_EXEC)))
+
+
+//____________________________________________________________
+//  
+//		Parse and return a sequel action.
+//  
+
+ACT SQL_action(void)
+{
+	ACT action;
+	enum kwwords keyword;
+
+	sw_gen_sql = TRUE;
+
+	switch (keyword = token.tok_keyword) {
+	case KW_ALTER:
+	case KW_COMMENT:
+	case KW_CONNECT:
+	case KW_CREATE:
+	case KW_DROP:
+	case KW_EVENT:
+	case KW_GRANT:
+	case KW_REVOKE:
+	case KW_BEGIN:
+	case KW_CLOSE:
+	case KW_COMMIT:
+	case KW_DECLARE:
+	case KW_DELETE:
+	case KW_DESCRIBE:
+	case KW_DISCONNECT:
+	case KW_END:
+	case KW_EXECUTE:
+	case KW_FETCH:
+	case KW_INCLUDE:
+	case KW_INSERT:
+	case KW_LOCK:
+	case KW_OPEN:
+	case KW_PREPARE:
+	case KW_ROLLBACK:
+	case KW_SELECT:
+	case KW_SET:
+	case KW_UPDATE:
+	case KW_WHENEVER:
+	case KW_DATABASE:
+		ADVANCE_TOKEN;
+		break;
+
+	default:
+		SYNTAX_ERROR("SQL operation");
+	}
+
+	switch (keyword) {
+	case KW_ALTER:
+		action = act_alter();
+		break;
+
+	case KW_BEGIN:
+		action = act_d_section(ACT_b_declare);
+		break;
+
+	case KW_CLOSE:
+		action = act_openclose(ACT_close);
+		break;
+
+	case KW_CONNECT:
+		action = act_connect();
+		break;
+
+	case KW_COMMENT:
+		action = act_comment();
+		break;
+
+	case KW_COMMIT:
+		action = act_transaction(ACT_commit);
+		break;
+
+	case KW_CREATE:
+		action = act_create();
+		break;
+
+	case KW_DATABASE:
+		action = PAR_database((USHORT) TRUE);
+		break;
+
+	case KW_DROP:
+		action = act_drop();
+		break;
+
+	case KW_DECLARE:
+		action = act_declare();
+		break;
+
+	case KW_DELETE:
+		action = act_delete();
+		break;
+
+	case KW_DESCRIBE:
+		action = act_describe();
+		break;
+
+	case KW_DISCONNECT:
+		action = act_disconnect();
+		break;
+
+	case KW_EVENT:
+		action = act_event();
+		break;
+
+	case KW_END:
+		action = act_d_section(ACT_e_declare);
+		break;
+
+	case KW_EXECUTE:
+		action = act_execute();
+		break;
+
+	case KW_FETCH:
+		action = act_fetch();
+		break;
+
+	case KW_GRANT:
+		action = act_grant_revoke(ACT_dyn_grant);
+		break;
+
+	case KW_INCLUDE:
+		action = act_include();
+		break;
+
+	case KW_INSERT:
+		action = act_insert();
+		break;
+
+	case KW_LOCK:
+		action = act_lock();
+		break;
+
+	case KW_OPEN:
+		action = act_openclose(ACT_open);
+		break;
+
+	case KW_PREPARE:
+		action = act_prepare();
+		break;
+
+	case KW_REVOKE:
+		action = act_grant_revoke(ACT_dyn_revoke);
+		break;
+
+	case KW_ROLLBACK:
+		action = act_transaction(ACT_rollback);
+		break;
+
+	case KW_SELECT:
+		action = act_select();
+		break;
+
+	case KW_SET:
+		action = act_set();
+		break;
+
+	case KW_UPDATE:
+		action = act_update();
+		break;
+
+	case KW_WHENEVER:
+		action = act_whenever();
+		break;
+	}
+
+	MATCH(KW_END_EXEC);
+	PAR_end();
+	action->act_flags |= ACT_sql;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Given a field datatype, remap it as needed to
+//		a user datatype, and set the length field.
+//  
+
+void SQL_adjust_field_dtype( FLD field)
+{
+	ULONG field_length;
+
+
+	if (field->fld_dtype <= dtype_any_text) {
+		/* Adjust the string data types and their lengths */
+		if (field->fld_collate) {
+			if (field->fld_char_length)
+				field_length = (ULONG) field->fld_char_length *
+					field->fld_collate->intlsym_bytes_per_char;
+			else
+				field_length = field->fld_length;
+			field->fld_collate_id = field->fld_collate->intlsym_collate_id;
+			field->fld_charset_id = field->fld_collate->intlsym_charset_id;
+			field->fld_ttype = field->fld_collate->intlsym_ttype;
+		}
+		else if (field->fld_character_set) {
+			if (field->fld_char_length)
+				field_length = (ULONG) field->fld_char_length *
+					field->fld_character_set->intlsym_bytes_per_char;
+			else
+				field_length = field->fld_length;
+			field->fld_collate_id =
+				field->fld_character_set->intlsym_collate_id;
+			field->fld_charset_id =
+				field->fld_character_set->intlsym_charset_id;
+			field->fld_ttype = field->fld_character_set->intlsym_ttype;
+		}
+		else {
+			if (field->fld_char_length)
+				field_length = (ULONG) field->fld_char_length * 1;
+			else
+				field_length = field->fld_length;
+			field->fld_collate_id = 0;
+			field->fld_charset_id = 0;
+			field->fld_ttype = 0;
+		}
+
+		if (!(field->fld_flags & FLD_meta)) {	/* field for meta operation? */
+			/* Field isn't for meta-data operation, so adjust it's
+			 * type definition for local use
+			 */
+			if (field->fld_dtype != dtype_cstring)
+				field->fld_dtype = (sw_cstring
+									&& !FIELD_ALLOWS_NULLS(field)) ?
+					dtype_cstring : dtype_text;
+			if (field->fld_dtype == dtype_cstring)
+				field_length++;
+			field->fld_length = (USHORT) field_length;
+		}
+		else {
+			field->fld_length = (USHORT) field_length;
+			if (field->fld_dtype == dtype_varying)
+				field_length += sizeof(USHORT);
+
+			if (field_length > MAX_COLUMN_SIZE)
+				error("Size of column %s exceeds implementation limit",
+					  field->fld_symbol->sym_string);
+		}
+	}
+	else
+		switch (field->fld_dtype) {
+		case dtype_short:
+			field->fld_length = sizeof(SSHORT);
+			break;
+
+		case dtype_long:
+			field->fld_length = sizeof(SLONG);
+			break;
+
+		case dtype_float:
+			field->fld_length = sizeof(float);
+			break;
+
+		case dtype_double:
+			field->fld_length = sizeof(double);
+			break;
+
+// ** Begin sql/date/time/timestamp *
+		case dtype_sql_date:
+			field->fld_length = sizeof(ISC_DATE);
+			break;
+
+		case dtype_sql_time:
+			field->fld_length = sizeof(ISC_TIME);
+			break;
+
+		case dtype_timestamp:
+			field->fld_length = sizeof(ISC_TIMESTAMP);
+			break;
+// ** End sql/date/time/timestamp *
+
+		case dtype_int64:
+			field->fld_length = sizeof(ISC_INT64);
+			break;
+
+		case dtype_blob:
+			field->fld_length = sizeof(GDS_QUAD);
+			field->fld_flags |= FLD_blob;
+			if (field->fld_character_set) {
+				field->fld_charset_id =
+					field->fld_character_set->intlsym_charset_id;
+				field->fld_ttype = field->fld_character_set->intlsym_ttype;
+			}
+			break;
+
+		default:
+			CPR_bugcheck("datatype not recognized");
+			break;
+		}
+}
+
+
+//____________________________________________________________
+//  
+//		Initialize (or re-initialize) to process a module.
+//  
+
+void SQL_init(void)
+{
+	USHORT i;
+
+	whenever_list = NULL;
+
+	for (i = 0; i < SWE_max; i++)
+		whenever[i] = NULL;
+
+	module_lc_ctype = default_lc_ctype;
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+void SQL_par_field_collate( REQ request, FLD field)
+{
+	SYM symbol;
+
+	if (MATCH(KW_COLLATE)) {
+
+		if ((field->fld_dtype != dtype_text) &&
+			(field->fld_dtype != dtype_cstring) &&
+			(field->fld_dtype != dtype_varying))
+				PAR_error("COLLATE applies only to character columns");
+		if (token.tok_type != tok_ident)
+			SYNTAX_ERROR("<collation name>");
+		if (!(symbol = MSC_find_symbol(token.tok_symbol, SYM_collate)))
+			PAR_error("The named COLLATION was not found");
+		field->fld_collate = (INTLSYM) symbol->sym_object;
+
+		/* Is the collation valid for declared character set? 
+		 * The character set is either declared (fld_character_set) or inferered
+		 * from the global domain (fld_global & fld_charset_id)
+		 */
+
+		if ((field->fld_character_set &&
+			 (field->fld_character_set->intlsym_charset_id !=
+			  field->fld_collate->intlsym_charset_id))
+			|| (field->fld_global &&
+				(field->fld_charset_id !=
+				 field->fld_collate->
+				 intlsym_charset_id)))
+				PAR_error
+				("Specified COLLATION is incompatible with column CHARACTER SET");
+		ADVANCE_TOKEN;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL field datatype definition for
+//		field CREATE, DECLARE or ALTER TABLE statement.
+//		Also for CAST statement
+//  
+
+void SQL_par_field_dtype( REQ request, FLD field, BOOLEAN udf)
+{
+	int l, p, q;
+	enum kwwords keyword;
+	SYM symbol;
+	char s[ERROR_LENGTH];
+	BOOLEAN sql_date = FALSE;
+
+	switch (keyword = token.tok_keyword) {
+	case KW_SMALLINT:
+	case KW_INT:
+	case KW_INTEGER:
+	case KW_FLOAT:
+	case KW_REAL:
+	case KW_DOUBLE:
+	case KW_LONG:
+// ** Begin sql/date/time/timestamp *
+	case KW_TIMESTAMP:
+// ** End sql/date/time/timestamp *
+	case KW_CHAR:
+	case KW_NCHAR:
+	case KW_VARCHAR:
+	case KW_DECIMAL:
+	case KW_NUMERIC:
+	case KW_BLOB:
+	case KW_NATIONAL:
+		ADVANCE_TOKEN;
+		break;
+
+	case KW_DATE:
+		if (sw_sql_dialect == 2)
+			PAR_error
+				("DATE is ambiguous in dialect 2 use SQL DATE or TIMESTAMP");
+		ADVANCE_TOKEN;
+		break;
+
+	case KW_TIME:
+		if (sw_sql_dialect == 1)
+			SYNTAX_ERROR("<data type>");
+		ADVANCE_TOKEN;
+		break;
+
+	case KW_SQL:
+		if (sw_sql_dialect == 1)
+			SYNTAX_ERROR("<data type>");
+		ADVANCE_TOKEN;
+		if (token.tok_keyword == KW_DATE)
+			ADVANCE_TOKEN;
+		else
+			SYNTAX_ERROR("<data type>");
+		keyword = KW_DATE;
+		sql_date = TRUE;
+		break;
+
+	case KW_COMPUTED:
+		if (udf)
+			SYNTAX_ERROR("<data type>");
+		/* just return - actual parse is done later */
+		return;
+
+	default:
+		if (udf) {
+			if (keyword == KW_CSTRING)
+				ADVANCE_TOKEN;
+			else
+				SYNTAX_ERROR("<data type>");
+		}
+		else {
+			SQL_resolve_identifier("<domain name>", s);
+			field->fld_global = symbol =
+				MSC_symbol(SYM_field, s, (USHORT) strlen(s), (CTX) field);
+			if (!MET_domain_lookup(request, field, s))
+				PAR_error("Specified DOMAIN or source column not found");
+			ADVANCE_TOKEN;
+			return;
+		}
+	}
+
+	switch (keyword) {
+	case KW_SMALLINT:
+		field->fld_dtype = dtype_short;
+		break;
+
+	case KW_INT:
+	case KW_INTEGER:
+		field->fld_dtype = dtype_long;
+		break;
+
+	case KW_REAL:
+		field->fld_dtype = dtype_float;
+		break;
+
+	case KW_FLOAT:
+		if (MATCH(KW_LEFT_PAREN)) {
+			l = EXP_USHORT_ordinal(TRUE);
+			EXP_match_paren();
+			if (l < 17)
+				field->fld_dtype = dtype_float;
+			else
+				field->fld_dtype = dtype_double;
+		}
+		else
+			field->fld_dtype = dtype_float;
+		break;
+
+	case KW_LONG:
+		if (!KEYWORD(KW_FLOAT))
+			SYNTAX_ERROR("FLOAT");
+		ADVANCE_TOKEN;
+		field->fld_dtype = dtype_double;
+		break;
+
+	case KW_DOUBLE:
+		if (!KEYWORD(KW_PRECISION))
+			SYNTAX_ERROR("PRECISION");
+		ADVANCE_TOKEN;
+		field->fld_dtype = dtype_double;
+		break;
+
+// ** Begin sql/date/time/timestamp *
+	case KW_DATE:
+	case KW_TIME:
+	case KW_TIMESTAMP:
+		field->fld_dtype = resolve_dtypes(keyword, sql_date);
+		break;
+// ** End sql/date/time/timestamp *
+
+	case KW_NCHAR:
+		field->fld_flags |= FLD_national;
+		field->fld_dtype = dtype_text;
+		if (MATCH(KW_LEFT_PAREN)) {
+			field->fld_char_length = EXP_pos_USHORT_ordinal(TRUE);
+			EXP_match_paren();
+		}
+		else
+			field->fld_char_length = 1;
+		break;
+
+	case KW_NATIONAL:
+		if (!KEYWORD(KW_CHAR))
+			SYNTAX_ERROR("CHARACTER");
+		ADVANCE_TOKEN;
+		field->fld_flags |= FLD_national;
+		/* Fall into KW_CHAR */
+	case KW_CHAR:
+		if (MATCH(KW_VARYING)) {
+			field->fld_dtype = dtype_varying;
+			EXP_left_paren(0);
+			field->fld_char_length = EXP_pos_USHORT_ordinal(TRUE);
+			EXP_match_paren();
+			break;
+		}
+	case KW_CSTRING:
+		if (keyword == KW_CSTRING) {
+			field->fld_dtype = dtype_cstring;
+			field->fld_flags |= FLD_meta_cstring;
+		}
+		else
+			field->fld_dtype = dtype_text;
+		if (MATCH(KW_LEFT_PAREN)) {
+			field->fld_char_length = EXP_pos_USHORT_ordinal(TRUE);
+			EXP_match_paren();
+		}
+		else
+			field->fld_char_length = 1;
+		break;
+
+	case KW_VARCHAR:
+		field->fld_dtype = dtype_varying;
+		EXP_left_paren(0);
+		field->fld_char_length = EXP_pos_USHORT_ordinal(TRUE);
+		EXP_match_paren();
+		break;
+
+
+	case KW_NUMERIC:
+	case KW_DECIMAL:
+		field->fld_dtype = dtype_long;
+		field->fld_scale = 0;
+		field->fld_precision = 9;
+		field->fld_sub_type = (keyword == KW_NUMERIC) ? 1 : 2;
+		if (MATCH(KW_LEFT_PAREN)) {
+			p = EXP_USHORT_ordinal(TRUE);
+			if ((p <= 0) || (p > 18))
+				PAR_error("Precision must be from 1 to 18");
+
+			if ((keyword == KW_NUMERIC) && (p < 5))
+				field->fld_dtype = dtype_short;
+			else if (p > 9) {
+				if (sw_sql_dialect == SQL_DIALECT_V5)
+					field->fld_dtype = dtype_double;
+				else
+					field->fld_dtype = dtype_int64;
+			}
+
+			if (MATCH(KW_COMMA)) {
+				q = EXP_USHORT_ordinal(TRUE);
+
+				if (q > p)
+					PAR_error("Scale can not be greater than precision");
+				field->fld_scale = -q;
+			}
+			field->fld_precision = p;
+			EXP_match_paren();
+		}
+		break;
+
+	case KW_BLOB:
+		field->fld_dtype = dtype_blob;
+		field->fld_seg_length = DEFAULT_BLOB_SEGMENT_LENGTH;
+		if (MATCH(KW_LEFT_PAREN)) {
+			if (MATCH(KW_COMMA))
+				field->fld_sub_type = EXP_SSHORT_ordinal(TRUE);
+			else {
+				field->fld_seg_length = EXP_USHORT_ordinal(TRUE);
+				if (MATCH(KW_COMMA))
+					field->fld_sub_type = EXP_SSHORT_ordinal(TRUE);
+			}
+			EXP_match_paren();
+		}
+		else {
+			if (MATCH(KW_SUB_TYPE)) {
+				field->fld_sub_type = PAR_blob_subtype(request->req_database);
+			}
+			if (MATCH(KW_SEGMENT)) {
+				MATCH(KW_SIZE);
+				field->fld_seg_length = EXP_USHORT_ordinal(TRUE);
+			}
+		}
+		break;
+
+	default:
+		SYNTAX_ERROR("<data type>");
+	}
+
+//   Check for array declaration 
+
+	if ((keyword != KW_BLOB) && !udf && (MATCH(KW_L_BRCKET))) {
+		field->fld_array_info = (struct ary *) ALLOC(sizeof(struct ary));
+		par_array(field);
+	}
+
+	if (MATCH(KW_CHAR)) {
+		SYM symbol;
+		if ((field->fld_dtype != dtype_text) &&
+			(field->fld_dtype != dtype_cstring) &&
+			(field->fld_dtype != dtype_varying) &&
+			(field->fld_dtype != dtype_blob))
+				PAR_error("CHARACTER SET applies only to character columns");
+
+		if (field->fld_dtype == dtype_blob
+			&& field->fld_sub_type == BLOB_untyped) field->fld_sub_type =
+				BLOB_text;
+
+		if (field->fld_dtype == dtype_blob
+			&& field->fld_sub_type !=
+			BLOB_text)
+PAR_error("CHARACTER SET applies only to character columns");
+
+		if (field->fld_flags & FLD_national)
+			PAR_error("cannot specify CHARACTER SET with NATIONAL");
+
+		if (!MATCH(KW_SET))
+			SYNTAX_ERROR("SET");
+		if (token.tok_type != tok_ident)
+			SYNTAX_ERROR("<character set name>");
+		if (!(symbol = MSC_find_symbol(token.tok_symbol, SYM_charset)))
+			PAR_error("The named CHARACTER SET was not found");
+		field->fld_character_set = (INTLSYM) symbol->sym_object;
+		ADVANCE_TOKEN;
+	}
+
+	if (field->fld_flags & FLD_national) {
+		if (!
+			(symbol =
+			 MSC_find_symbol(HSH_lookup(DEFAULT_CHARACTER_SET_NAME),
+							 SYM_charset)))
+	   PAR_error("NATIONAL character set missing");
+		field->fld_character_set = (INTLSYM) symbol->sym_object;
+	}
+	else if ((field->fld_dtype <= dtype_any_text ||
+			  (field->fld_dtype == dtype_blob
+			   && field->fld_sub_type == BLOB_text))
+			 && !field->fld_character_set && !field->fld_collate && request
+			 && request->req_database
+			 && request->req_database->dbb_def_charset) {
+		/* Use database default character set */
+		if (symbol =
+			MSC_find_symbol(HSH_lookup
+							(request->req_database->dbb_def_charset),
+							SYM_charset)) field->fld_character_set =
+				(INTLSYM) symbol->sym_object;
+		else
+			PAR_error("Could not find database default character set");
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Find procedure for request.  If request already has a database,
+//		find the procedure in that database only.
+//  
+
+PRC SQL_procedure(REQ request,
+				  TEXT * prc_string,
+				  TEXT * db_string, TEXT * owner_string, BOOLEAN err_flag)
+{
+	DBB db;
+	PRC procedure, tmp_procedure;
+	SYM symbol;
+	SCHAR s[ERROR_LENGTH];
+
+	procedure = NULL;
+
+	if (db_string && db_string[0]) {
+		/* a database was specified for the procedure
+		   search the known symbols for the database name */
+
+		if (!(symbol = MSC_find_symbol(HSH_lookup(db_string), SYM_database)))
+			PAR_error("Unknown database specifier.");
+		if (request->req_database) {
+			if ((DBB) symbol->sym_object != request->req_database)
+				PAR_error("Inconsistent database specifier");
+		}
+		else
+			request->req_database = (DBB) symbol->sym_object;
+	}
+
+	if (request->req_database)
+		procedure =
+			MET_get_procedure(request->req_database, prc_string,
+							  owner_string);
+	else {
+		/* no database was specified, check the metadata for all the databases
+		   for the existence of the procedure */
+
+		procedure = NULL;
+		for (db = isc_databases; db; db = db->dbb_next)
+			if (tmp_procedure =
+				MET_get_procedure(db, prc_string,
+								  owner_string)) if (procedure) {
+					/* relation was found in more than one database */
+
+					sprintf(s, "PROCEDURE %s is ambiguous", prc_string);
+					PAR_error(s);
+				}
+				else {
+					procedure = tmp_procedure;
+					request->req_database = db;
+				}
+	}
+
+	if (!procedure) {
+		if (!err_flag)
+			return NULL;
+		if (owner_string[0])
+			sprintf(s, "PROCEDURE %s.%s not defined", owner_string,
+					prc_string);
+		else
+			sprintf(s, "PROCEDURE %s not defined", prc_string);
+		PAR_error(s);
+	}
+
+	return procedure;
+}
+
+
+//____________________________________________________________
+//  
+//		Find relation for request.  If request already has a database,
+//		find the relation in that database only.
+//  
+
+REL SQL_relation(REQ request,
+				 TEXT * rel_string,
+				 TEXT * db_string, TEXT * owner_string, BOOLEAN err_flag)
+{
+	DBB db;
+	REL relation, tmp_relation;
+	SYM symbol;
+	SCHAR s[ERROR_LENGTH];
+
+	relation = NULL;
+
+	if (db_string && db_string[0]) {
+		/* a database was specified for the relation,
+		   search the known symbols for the database name */
+
+		if (!(symbol = MSC_find_symbol(HSH_lookup(db_string), SYM_database)))
+			PAR_error("Unknown database specifier.");
+		if (request->req_database) {
+			if ((DBB) symbol->sym_object != request->req_database)
+				PAR_error("Inconsistent database specifier");
+		}
+		else
+			request->req_database = (DBB) symbol->sym_object;
+	}
+
+	if (request->req_database)
+		relation =
+			MET_get_relation(request->req_database, rel_string, owner_string);
+	else {
+		/* no database was specified, check the metadata for all the databases
+		   for the existence of the relation */
+
+		relation = NULL;
+		for (db = isc_databases; db; db = db->dbb_next)
+			if (tmp_relation = MET_get_relation(db, rel_string, owner_string))
+				if (relation) {
+					/* relation was found in more than one database */
+
+					sprintf(s, "TABLE %s is ambiguous", rel_string);
+					PAR_error(s);
+				}
+				else {
+					relation = tmp_relation;
+					request->req_database = db;
+				}
+	}
+
+	if (!relation) {
+		if (!err_flag)
+			return (NULL);
+		if (owner_string[0])
+			sprintf(s, "TABLE %s.%s not defined", owner_string, rel_string);
+		else
+			sprintf(s, "TABLE %s not defined", rel_string);
+		PAR_error(s);
+	}
+
+	return relation;
+}
+
+
+//____________________________________________________________
+//  
+//		Get a relation name (checking for database specifier)
+//  
+
+void SQL_relation_name( TEXT * r_name, TEXT * db_name, TEXT * owner_name)
+{
+	SYM symbol;
+	TEXT *t_str;
+
+	db_name[0] = 0;
+	owner_name[0] = 0;
+
+	t_str = (TEXT *) ALLOC(NAME_SIZE + 1);
+	SQL_resolve_identifier("<Table name>", t_str);
+
+	if (symbol = MSC_find_symbol(token.tok_symbol, SYM_database)) {
+		strcpy(db_name, symbol->sym_name);
+		ADVANCE_TOKEN;
+		if (!MATCH(KW_DOT))
+			SYNTAX_ERROR(". (period)");
+	}
+
+	SQL_resolve_identifier("<Table name>", t_str);
+	if (token.tok_length > NAME_SIZE)
+		PAR_error("Table, owner, or database name too long");
+
+	strcpy(r_name, token.tok_string);
+	ADVANCE_TOKEN;
+
+	if (MATCH(KW_DOT)) {
+		/* the table name was really a owner specifier */
+
+		if (token.tok_length > NAME_SIZE)
+			PAR_error("TABLE name too long");
+		strcpy(owner_name, r_name);
+		SQL_resolve_identifier("<Table name>", t_str);
+		strcpy(r_name, token.tok_string);
+		ADVANCE_TOKEN;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Extract SQL va
+//  
+
+TEXT *SQL_var_or_string(BOOLEAN string_only)
+{
+
+	if ((!SINGLE_QUOTED(token.tok_type) && sw_sql_dialect == 3) ||
+		(!QUOTED(token.tok_type) && sw_sql_dialect == 1)) {
+		if (string_only)
+			SYNTAX_ERROR("<quoted string>");
+		if (!MATCH(KW_COLON))
+			SYNTAX_ERROR("<colon> or <quoted string>");
+	}
+	return PAR_native_value(FALSE, FALSE);
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL alter statement.
+//  
+
+static ACT act_alter(void)
+{
+
+	switch (token.tok_keyword) {
+
+	case KW_DATABASE:
+	case KW_SCHEMA:
+		return act_alter_database();
+
+	case KW_DOMAIN:
+		return act_alter_domain();
+
+	case KW_INDEX:
+		ADVANCE_TOKEN;
+		return act_alter_index();
+
+	case KW_STOGROUP:
+		PAR_error("ALTER STOGROUP not supported");
+
+	case KW_TABLE:
+		ADVANCE_TOKEN;
+		return act_alter_table();
+
+	case KW_TABLESPACE:
+		PAR_error("ALTER TABLESPACE not supported");
+
+	default:
+		PAR_error("Invalid ALTER request");
+	}
+	return NULL;				/* silence compiler */
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL alter database statement
+//  
+
+static ACT act_alter_database(void)
+{
+	ACT action;
+	REQ request;
+	DBB database;
+	FIL file;
+	SSHORT logdefined;
+
+	request = MAKE_REQUEST(REQ_ddl);
+	if (isc_databases && !isc_databases->dbb_next)
+		request->req_database = isc_databases;
+	else
+		PAR_error("Can only alter database in context of single database");
+
+	ADVANCE_TOKEN;
+
+//  create action block 
+
+	action = MAKE_ACTION(request, ACT_alter_database);
+	action->act_whenever = gen_whenever();
+	database = (DBB) ALLOC(DBB_LEN);
+	database->dbb_grp_cmt_wait = -1;
+	action->act_object = (REF) database;
+
+	while (TRUE) {
+		if (MATCH(KW_DROP)) {
+			if (MATCH(KW_LOG_FILE))
+				database->dbb_flags |= DBB_drop_log;
+			else if (MATCH(KW_CASCADE))
+				database->dbb_flags |= DBB_cascade;
+#ifdef FLINT_CACHE
+			else if (MATCH(KW_CACHE))
+				database->dbb_flags |= DBB_drop_cache;
+			else
+				PAR_error("only log or cache can be dropped");
+#else
+			else
+				PAR_error("only log file can be dropped");
+#endif /* FLINT_CACHE */
+		}
+		else if (MATCH(KW_ADD)) {
+			if (MATCH(KW_FILE)) {
+				do {
+					file = define_file();
+					file->fil_next = database->dbb_files;
+					database->dbb_files = file;
+				}
+				while (MATCH(KW_FILE));
+			}
+			else if (MATCH(KW_LOG_FILE)) {
+				if (logdefined)
+					PAR_error("log redefinition");
+				logdefined = TRUE;
+				if (MATCH(KW_LEFT_PAREN)) {
+					while (TRUE) {
+						file = define_log_file(FALSE);
+						file->fil_next = database->dbb_logfiles;
+						database->dbb_logfiles = file;
+						if (!MATCH(KW_COMMA)) {
+							EXP_match_paren();
+							break;
+						}
+					}
+
+					if (MATCH(KW_OVERFLOW))
+						database->dbb_overflow = define_log_file(TRUE);
+					else
+						PAR_error
+							("Overflow log specification required for this configuration");
+
+				}
+				else if (MATCH(KW_BASE_NAME)) {
+					database->dbb_flags |= DBB_log_serial;
+					database->dbb_logfiles = file = define_log_file(TRUE);
+				}
+				else
+					database->dbb_flags |= DBB_log_default;
+			}
+#ifdef FLINT_CACHE
+			else if (MATCH(KW_CACHE))
+				database->dbb_cache_file = define_cache();
+#endif /* FLINT_CACHE */
+		}
+		else if (MATCH(KW_SET)) {
+			while (TRUE) {
+				if (MATCH(KW_CHECK_POINT_LEN)) {
+					MATCH(KW_EQUALS);
+					database->dbb_chkptlen = EXP_ULONG_ordinal(TRUE);
+					MATCH(KW_COMMA);
+				}
+				else if (MATCH(KW_NUM_LOG_BUFS)) {
+					MATCH(KW_EQUALS);
+					database->dbb_numbufs = EXP_USHORT_ordinal(TRUE);
+					MATCH(KW_COMMA);
+				}
+				else if (MATCH(KW_LOG_BUF_SIZE)) {
+					MATCH(KW_EQUALS);
+					database->dbb_bufsize = EXP_USHORT_ordinal(TRUE);
+					MATCH(KW_COMMA);
+				}
+				else if (MATCH(KW_GROUP_COMMIT_WAIT)) {
+					MATCH(KW_EQUALS);
+					database->dbb_grp_cmt_wait = EXP_ULONG_ordinal(TRUE);
+					MATCH(KW_COMMA);
+				}
+				else
+					break;
+			}
+		}
+		else
+			break;
+	}
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle altering of a domain (global field). 
+//  
+
+static ACT act_alter_domain(void)
+{
+	ACT action;
+	REQ request;
+	FLD field;
+	CNSTRT *cnstrt_ptr, cnstrt;
+	NOD literal_node;
+
+//  create request block 
+
+	request = MAKE_REQUEST(REQ_ddl);
+	if (isc_databases && !isc_databases->dbb_next)
+		request->req_database = isc_databases;
+	else
+		PAR_error("Can only ALTER a domain in context of single database");
+
+//  create action block 
+
+	action = MAKE_ACTION(request, ACT_alter_domain);
+
+	ADVANCE_TOKEN;
+	field = make_field(0);
+	cnstrt_ptr = &field->fld_constraints;
+
+//  Check if default value was specified 
+
+	while (!END_OF_COMMAND) {
+		if (MATCH(KW_SET)) {
+			if (token.tok_keyword == KW_DEFAULT) {
+				field->fld_default_source = CPR_start_text();
+				ADVANCE_TOKEN;
+			}
+			else
+				SYNTAX_ERROR("DEFAULT");
+
+			if (MATCH(KW_USER))
+				field->fld_default_value = MAKE_NODE(nod_user_name, 0);
+			else if (MATCH(KW_NULL))
+				field->fld_default_value = MAKE_NODE(nod_null, 0);
+			else {
+				if (MATCH(KW_MINUS)) {
+					if (token.tok_type != tok_number)
+						SYNTAX_ERROR("<number>");
+
+					literal_node = EXP_literal();
+					field->fld_default_value = MSC_unary(nod_negate,
+														 literal_node);
+				}
+				else if ((field->fld_default_value = EXP_literal()) == NULL)
+					SYNTAX_ERROR("<constant>");
+			}
+			CPR_end_text(field->fld_default_source);
+		}
+		else if (MATCH(KW_ADD)) {
+			MATCH(KW_CONSTRAINT);
+			if (token.tok_keyword == KW_CHECK) {
+				cnstrt = par_field_constraint(request, field, 0);
+				*cnstrt_ptr = cnstrt;
+				cnstrt_ptr = &cnstrt->cnstrt_next;
+			}
+			else
+				PAR_error("Invalid constraint.");
+		}
+		else if (MATCH(KW_DROP)) {
+			if (MATCH(KW_CONSTRAINT)) {
+				cnstrt = (CNSTRT) ALLOC(CNSTRT_LEN);
+				cnstrt->cnstrt_flags |= CNSTRT_delete;
+				*cnstrt_ptr = cnstrt;
+				cnstrt_ptr = &cnstrt->cnstrt_next;
+			}
+			else if (MATCH(KW_DEFAULT)) {
+				field->fld_default_value = MAKE_NODE(nod_erase, 0);
+			}
+			else
+				PAR_error("Invalid attribute for DROP");
+		}
+		else
+			SYNTAX_ERROR("SET, ADD, or DROP");
+
+	}
+
+	action->act_whenever = gen_whenever();
+	action->act_object = (REF) field;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL alter index statement.
+//  
+
+static ACT act_alter_index(void)
+{
+	ACT action;
+	REQ request;
+	IND index;
+	SCHAR i_name[NAME_SIZE + 1];
+
+//  create request block 
+
+	request = MAKE_REQUEST(REQ_ddl);
+
+	if (token.tok_length > NAME_SIZE)
+		PAR_error("Index name too long");
+
+	SQL_resolve_identifier("<column name>", i_name);
+
+	ADVANCE_TOKEN;
+
+	index = make_index(request, i_name);
+
+	if (MATCH(KW_ACTIVE))
+		index->ind_flags |= IND_active;
+	else if (MATCH(KW_INACTIVE))
+		index->ind_flags |= IND_inactive;
+	else
+		PAR_error("Unsupported ALTER INDEX option");
+
+	action = MAKE_ACTION(request, ACT_alter_index);
+	action->act_object = (REF) index;
+	action->act_whenever = gen_whenever();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL alter table statement.
+//  
+
+static ACT act_alter_table(void)
+{
+	ACT action;
+	FLD field, *ptr;
+	REQ request;
+	REL relation;
+	CNSTRT cnstrt, *cnstrt_ptr;
+	CTX context;
+
+//  create request block 
+
+	request = MAKE_REQUEST(REQ_ddl);
+
+//  get table name and create relation block 
+
+	relation = par_relation(request);
+
+//  CHECK Constraints require the context to be set to the
+//  current relation 
+
+	request->req_contexts = context = MAKE_CONTEXT(request);
+	context->ctx_relation = relation;
+
+//  Reserve context 1 for relation on which constraint is
+//  being defined 
+
+	context->ctx_internal++;
+	request->req_internal++;
+
+//  create action block 
+
+	action = MAKE_ACTION(request, ACT_alter_table);
+	action->act_whenever = gen_whenever();
+	action->act_object = (REF) relation;
+
+//  parse action list and create corresponding field blocks 
+
+	ptr = &relation->rel_fields;
+	cnstrt_ptr = &relation->rel_constraints;
+
+	while (!END_OF_COMMAND) {
+		if (MATCH(KW_ADD)) {
+			switch (token.tok_keyword) {
+			case KW_CONSTRAINT:
+			case KW_PRIMARY:
+			case KW_UNIQUE:
+			case KW_FOREIGN:
+			case KW_CHECK:
+				cnstrt = par_table_constraint(request, relation);
+				*cnstrt_ptr = cnstrt;
+				cnstrt_ptr = &cnstrt->cnstrt_next;
+				break;
+
+			default:
+				field = par_field(request, relation);
+				*ptr = field;
+				ptr = &field->fld_next;
+			}
+		}
+		else if (MATCH(KW_DROP)) {
+			if (token.tok_keyword == KW_CONSTRAINT) {
+				ADVANCE_TOKEN;
+				cnstrt = (CNSTRT) ALLOC(CNSTRT_LEN);
+				cnstrt->cnstrt_flags |= CNSTRT_delete;
+				cnstrt->cnstrt_name = (STR) ALLOC(NAME_SIZE + 1);
+				SQL_resolve_identifier("<constraint name>",
+									   (TEXT *) cnstrt->cnstrt_name);
+				if (token.tok_length > NAME_SIZE)
+					PAR_error("Constraint name too long");
+				*cnstrt_ptr = cnstrt;
+				cnstrt_ptr = &cnstrt->cnstrt_next;
+				ADVANCE_TOKEN;
+			}
+			else {
+				field = make_field(relation);
+				field->fld_flags |= FLD_delete;
+				*ptr = field;
+				ptr = &field->fld_next;
+				/* Fix for bug 8054:
+
+				   [CASCADE | RESTRICT] syntax is available in IB4.5, but not
+				   required until v5.0.
+
+				   Option CASCADE causes an error :
+				   unsupported construct
+
+				   Option RESTRICT is default behaviour.
+				 */
+				if (token.tok_keyword == KW_CASCADE) {
+					PAR_error("Unsupported construct CASCADE");
+					ADVANCE_TOKEN;
+				}
+				else if (token.tok_keyword == KW_RESTRICT) {
+					ADVANCE_TOKEN;
+				}
+			}
+		}
+		else
+			SYNTAX_ERROR("ADD or DROP");
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL comment statement.
+//			Reject
+//  
+
+static ACT act_comment(void)
+{
+
+	PAR_error("SQL COMMENT ON request not allowed");
+	return NULL;				/* silence compiler */
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a CONNECT statement.
+//  
+
+static ACT act_connect(void)
+{
+	register ACT action;
+	register REQ request;
+	SYM symbol;
+	RDY ready;
+	DBB dbb;
+	BOOLEAN need_handle;
+	USHORT default_buffers, buffers = 0;
+	TEXT *user = NULL, *password = NULL, *sql_role = NULL;
+	TEXT *lc_messages = NULL;
+
+	action = MAKE_ACTION(0, ACT_ready);
+	action->act_whenever = gen_whenever();
+	need_handle = FALSE;
+	default_buffers = 0;
+
+	MATCH(KW_TO);
+
+	if (!MATCH(KW_ALL) && !MATCH(KW_DEFAULT))
+		while (TRUE) {
+			ready = (RDY) ALLOC(RDY_LEN);
+			ready->rdy_next = (RDY) action->act_object;
+			action->act_object = (REF) ready;
+
+			if (!(symbol = token.tok_symbol)
+				|| symbol->sym_type != SYM_database) {
+				ready->rdy_filename = SQL_var_or_string(FALSE);
+				if (MATCH(KW_AS))
+					need_handle = TRUE;
+			}
+
+			if (!(symbol = token.tok_symbol)
+				|| symbol->sym_type != SYM_database) {
+				if (!isc_databases || isc_databases->dbb_next || need_handle) {
+					need_handle = FALSE;
+					SYNTAX_ERROR("<database handle>");
+				}
+				ready->rdy_database = dup_dbb(isc_databases);
+			}
+
+			need_handle = FALSE;
+			if (!ready->rdy_database) {
+				ready->rdy_database = dup_dbb((DBB) symbol->sym_object);
+				ADVANCE_TOKEN;
+			}
+
+			/* pick up the possible parameters, in any order */
+
+			buffers = 0;
+			dbb = ready->rdy_database;
+			connect_opts(&dbb->dbb_r_user, &dbb->dbb_r_password,
+						 &dbb->dbb_r_sql_role, &dbb->dbb_r_lc_messages,
+						 &buffers);
+
+			request = NULL;
+			if (buffers)
+				request = PAR_set_up_dpb_info(ready, action, buffers);
+
+			/* if there are any options that take host variables as arguments, 
+			   make sure that we generate variables for the request so that the 
+			   dpb can be extended at runtime */
+
+			if (dbb->dbb_r_user || dbb->dbb_r_password || dbb->dbb_r_sql_role
+				|| dbb->dbb_r_lc_messages || dbb->dbb_r_lc_ctype) {
+				if (!request)
+					request =
+						PAR_set_up_dpb_info(ready, action, default_buffers);
+				request->req_flags |= REQ_extend_dpb;
+			}
+
+			/* ...and if there are compile time user or password specified,
+			   make sure there will be a dpb generated for them */
+
+			if (!request && (dbb->dbb_c_user || dbb->dbb_c_password ||
+							 dbb->dbb_c_sql_role ||
+							 dbb->dbb_c_lc_messages || dbb->dbb_c_lc_ctype))
+					request =
+					PAR_set_up_dpb_info(ready, action, default_buffers);
+
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+
+	if (action->act_object)
+		return action;
+
+//  No explicit databases -- pick up all known 
+
+	connect_opts(&user, &password, &sql_role, &lc_messages, &buffers);
+
+	for (dbb = isc_databases; dbb; dbb = dbb->dbb_next)
+		if (dbb->dbb_runtime || !(dbb->dbb_flags & DBB_sqlca)) {
+			ready = (RDY) ALLOC(RDY_LEN);
+			ready->rdy_next = (RDY) action->act_object;
+			action->act_object = (REF) ready;
+			ready->rdy_database = dup_dbb(dbb);
+		}
+
+	if (!action->act_object)
+		PAR_error("no database available to CONNECT");
+	else
+		for (ready = (RDY) action->act_object; ready; ready = ready->rdy_next) {
+			if (buffers)
+				request = PAR_set_up_dpb_info(ready, action, buffers);
+			else
+				request = ready->rdy_request;
+
+			/* if there are any options that take host variables as arguments, 
+			   make sure that we generate variables for the request so that the 
+			   dpb can be extended at runtime */
+
+			dbb = ready->rdy_database;
+			if (user || password || lc_messages || dbb->dbb_r_lc_ctype) {
+				dbb->dbb_r_user = user;
+				dbb->dbb_r_password = password;
+				dbb->dbb_r_lc_messages = lc_messages;
+				if (!request)
+					request =
+						PAR_set_up_dpb_info(ready, action, default_buffers);
+				request->req_flags |= REQ_extend_dpb;
+			}
+
+			/* ...and if there are compile time user or password specified,
+			   make sure there will be a dpb generated for them */
+
+			if (!request && (dbb->dbb_c_user || dbb->dbb_c_password ||
+							 dbb->dbb_c_sql_role ||
+							 dbb->dbb_c_lc_ctype || dbb->dbb_c_lc_messages))
+					request =
+					PAR_set_up_dpb_info(ready, action, default_buffers);
+		}
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL create statement.
+//  
+
+static ACT act_create(void)
+{
+	BOOLEAN descending;
+	BOOLEAN unique;
+
+	if (MATCH(KW_DATABASE) || MATCH(KW_SCHEMA))
+		return act_create_database();
+
+	if (MATCH(KW_DOMAIN))
+		return act_create_domain();
+
+	if (MATCH(KW_GENERATOR))
+		return act_create_generator();
+
+	if (MATCH(KW_SHADOW))
+		return act_create_shadow();
+
+	if (MATCH(KW_STOGROUP))
+		PAR_error("CREATE STOGROUP not supported");
+
+	if (MATCH(KW_SYNONYM))
+		PAR_error("CREATE SYNONYM not supported");
+
+	if (MATCH(KW_TABLE))
+		return act_create_table();
+
+	if (MATCH(KW_TABLESPACE))
+		PAR_error("CREATE TABLESPACE not supported");
+
+	if (MATCH(KW_VIEW))
+		return (act_create_view());
+
+	if (KEYWORD(KW_UNIQUE) || KEYWORD(KW_ASCENDING) ||
+		KEYWORD(KW_DESCENDING) || KEYWORD(KW_INDEX)) {
+		descending = FALSE;
+		unique = FALSE;
+		while (TRUE) {
+			if (MATCH(KW_UNIQUE))
+				unique = TRUE;
+			else if (MATCH(KW_ASCENDING))
+				descending = FALSE;
+			else if (MATCH(KW_DESCENDING))
+				descending = TRUE;
+			else if (MATCH(KW_INDEX))
+				return act_create_index(unique, descending);
+			else
+				break;
+		}
+	}
+
+	PAR_error("Invalid CREATE request");
+	return NULL;				/* silence compiler */
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQLish create database statement.
+//  
+
+static ACT act_create_database(void)
+{
+	ACT action;
+	SYM symbol;
+	DBB db;
+	MDBB mdb;
+	REQ request;
+	SCHAR *string;
+	BOOLEAN dummy, extend_dpb;
+
+	if (isc_databases && isc_databases->dbb_next)
+		PAR_error
+			("CREATE DATABASE only allowed in context of a single database");
+
+	if (!isc_databases) {
+		/* generate a dummy db */
+
+		dummy = TRUE;
+		isc_databases = (DBB) MSC_alloc_permanent(DBB_LEN);
+
+		/* allocate symbol block */
+
+		symbol = (SYM) MSC_alloc_permanent(SYM_LEN);
+
+		/* make it the default database */
+
+		symbol->sym_type = SYM_database;
+		symbol->sym_object = (CTX) isc_databases;
+		symbol->sym_string = database_name;
+
+		/* database block points to the symbol block */
+
+		isc_databases->dbb_name = symbol;
+		isc_databases->dbb_filename = NULL;
+		isc_databases->dbb_c_lc_ctype = module_lc_ctype;
+	}
+	else
+		dummy = FALSE;
+
+//  get database name 
+
+	if (QUOTED(token.tok_type)) {
+		db = dup_dbb(isc_databases);
+		db->dbb_filename = string = (TEXT *) ALLOC(token.tok_length + 1);
+		COPY(token.tok_string, token.tok_length, string);
+		if (!isc_databases->dbb_filename)
+			isc_databases->dbb_filename = string;
+		ADVANCE_TOKEN;
+	}
+	else
+		SYNTAX_ERROR("<quoted database name>");
+
+//  Create a request for generating DYN to add files to database. 
+
+//  request = MAKE_REQUEST (REQ_create_database); 
+	request = MAKE_REQUEST(REQ_ddl);
+	request->req_flags |= REQ_sql_database_dyn;
+	request->req_database = db;
+
+//  create action block 
+
+	action = MAKE_ACTION(request, ACT_create_database);
+
+	mdb = (MDBB) ALLOC(sizeof(struct mdbb));
+	mdb->mdbb_database = db;
+	action->act_object = (REF) mdb;
+	action->act_whenever = gen_whenever();
+
+	if (dummy) {
+		/* Create a ACT_database action */
+
+		action->act_rest = MAKE_ACTION(0, ACT_database);
+		action->act_rest->act_flags |= ACT_mark;
+	}
+
+//  Get optional specifications 
+
+	extend_dpb = tail_database(ACT_create_database, db);
+
+//  Create a request to generate dpb 
+
+	ada_flags |= ADA_create_database;
+
+	request = MAKE_REQUEST(REQ_create_database);
+	request->req_actions = action;
+	mdb->mdbb_dpb_request = request;
+	request->req_database = db;
+	if (extend_dpb)
+		request->req_flags |= REQ_extend_dpb;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle creation of a domain (global field). 
+//  
+
+static ACT act_create_domain(void)
+{
+	ACT action;
+	REQ request;
+	FLD field;
+	CNSTRT *cnstrt;
+	int in_constraints;
+	NOD literal_node;
+
+//  create request block 
+
+	request = MAKE_REQUEST(REQ_ddl);
+	if (isc_databases && !isc_databases->dbb_next)
+		request->req_database = isc_databases;
+	else
+		PAR_error("Can only CREATE DOMAIN in context of single database");
+
+//  create action block 
+
+	action = MAKE_ACTION(request, ACT_create_domain);
+
+	field = make_field(0);
+	MATCH(KW_AS);
+	SQL_par_field_dtype(request, field, FALSE);
+
+//  Check if default value was specified 
+
+	if (token.tok_keyword == KW_DEFAULT) {
+		field->fld_default_source = CPR_start_text();
+		ADVANCE_TOKEN;
+
+		if (MATCH(KW_USER))
+			field->fld_default_value = MAKE_NODE(nod_user_name, 0);
+		else if (MATCH(KW_NULL))
+			field->fld_default_value = MAKE_NODE(nod_null, 0);
+		else {
+			if (MATCH(KW_MINUS)) {
+				if (token.tok_type != tok_number)
+					SYNTAX_ERROR("<number>");
+
+				literal_node = EXP_literal();
+				field->fld_default_value = MSC_unary(nod_negate,
+													 literal_node);
+			}
+			else if ((field->fld_default_value = EXP_literal()) == NULL)
+				SYNTAX_ERROR("<constant>");
+		}
+		CPR_end_text(field->fld_default_source);
+	}
+
+
+//  Check for any column level constraints 
+
+	cnstrt = &field->fld_constraints;
+	in_constraints = TRUE;
+
+	while (in_constraints) {
+		switch (token.tok_keyword) {
+		case KW_CONSTRAINT:
+		case KW_CHECK:
+		case KW_NOT:
+			*cnstrt = par_field_constraint(request, field, 0);
+			cnstrt = &(*cnstrt)->cnstrt_next;
+			break;
+
+		default:
+			in_constraints = FALSE;
+			break;
+		}
+	}
+
+	SQL_par_field_collate(request, field);
+	SQL_adjust_field_dtype(field);
+
+	action->act_whenever = gen_whenever();
+	action->act_object = (REF) field;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL create generator statement
+//  
+
+static ACT act_create_generator(void)
+{
+
+	ACT action;
+	TEXT *generator_name;
+	REQ request;
+
+
+	generator_name = (TEXT *) ALLOC(NAME_SIZE + 1);
+	SQL_resolve_identifier("<identifier>", generator_name);
+
+	request = MAKE_REQUEST(REQ_ddl);
+	if (isc_databases && !isc_databases->dbb_next)
+		request->req_database = isc_databases;
+	else
+		PAR_error("Can only CREATE GENERATOR in context of single database");
+
+	if (token.tok_length > NAME_SIZE)
+		PAR_error("Generator name too long");
+
+
+//  create action block 
+	action = MAKE_ACTION(request, ACT_create_generator);
+	action->act_whenever = gen_whenever();
+	action->act_object = (REF) generator_name;
+
+	ADVANCE_TOKEN;
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL create index statement.
+//  
+
+static ACT act_create_index( SSHORT dups, BOOLEAN descending)
+{
+	ACT action;
+	FLD *ptr;
+	IND index;
+	REQ request;
+	REL relation;
+	SCHAR i_name[NAME_SIZE + 1];
+
+//  create request block 
+
+	request = MAKE_REQUEST(REQ_ddl);
+
+//  get index and table names and create index and relation blocks 
+
+	if (token.tok_length > NAME_SIZE)
+		PAR_error("Index name too long");
+
+
+	SQL_resolve_identifier("<column name>", i_name);
+
+	ADVANCE_TOKEN;
+
+	if (!MATCH(KW_ON))
+		SYNTAX_ERROR("ON");
+
+	relation = par_relation(request);
+	index = make_index(request, i_name);
+	index->ind_relation = relation;
+	index->ind_flags |= (dups) ? IND_dup_flag : 0;
+	index->ind_flags |= (descending) ? IND_descend : 0;
+
+//  create action block 
+
+	action = MAKE_ACTION(request, ACT_create_index);
+	action->act_whenever = gen_whenever();
+	action->act_object = (REF) index;
+
+//  parse field list and create corresponding field blocks 
+
+	EXP_left_paren(0);
+	ptr = &index->ind_fields;
+
+	for (;;) {
+		*ptr = make_field(relation);
+		ptr = &(*ptr)->fld_next;
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	EXP_match_paren();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL create shadow statement
+//  
+
+static ACT act_create_shadow(void)
+{
+
+	ACT action;
+	REQ request;
+	FIL file_list, file;
+	SLONG shadow_number;
+	USHORT file_flags = 0;
+	SLONG length;
+	TEXT err_string[1024];
+
+	request = MAKE_REQUEST(REQ_ddl);
+	if (isc_databases && !isc_databases->dbb_next)
+		request->req_database = isc_databases;
+	else
+		PAR_error("Can only CREATE SHADOW in context of single database");
+
+	action = MAKE_ACTION(request, ACT_create_shadow);
+	action->act_whenever = gen_whenever();
+	shadow_number = EXP_USHORT_ordinal((USHORT) TRUE);
+
+	if (!RANGE_POSITIVE_SHORT_INTEGER(shadow_number))
+		PAR_error("Shadow number out of range");
+
+	if (MATCH(KW_MANUAL))
+		file_flags |= FIL_manual;
+	else
+		MATCH(KW_AUTO);
+
+	if (MATCH(KW_CONDITIONAL))
+		file_flags |= FIL_conditional;
+
+	file_list = file = define_file();
+	if (file->fil_start)
+		PAR_error("Can not specify file start for first file");
+	length = file->fil_length;
+	file->fil_flags = file_flags;
+	file->fil_shadow_number = (SSHORT) shadow_number;
+	while (MATCH(KW_FILE)) {
+		file = define_file();
+		if (!length && !file->fil_start) {
+			sprintf(err_string,
+					"Preceding file did not specify length, so %s must include starting page number",
+					file->fil_name);
+			PAR_error(err_string);
+		}
+		length = file->fil_length;
+		file->fil_flags = file_flags;
+		file->fil_next = file_list;
+		file_list = file;
+	}
+	action->act_object = (REF) file_list;
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL create table statement.
+//  
+
+static ACT act_create_table(void)
+{
+	ACT action;
+	FLD *ptr;
+	REQ request;
+	REL relation;
+	CNSTRT *cnstrt;
+	CTX context;
+	TEXT *string;
+
+	request = MAKE_REQUEST(REQ_ddl);
+	relation = par_relation(request);
+
+	if (MATCH(KW_EXTERNAL)) {
+		MATCH(KW_FILE);
+		if (QUOTED(token.tok_type)) {
+			relation->rel_ext_file = string =
+				(TEXT *) ALLOC(token.tok_length + 1);
+			COPY(token.tok_string, token.tok_length, string);
+			ADVANCE_TOKEN;
+		}
+		else
+			SYNTAX_ERROR("<quoted filename>");
+
+		if (!check_filename(string))
+			PAR_error("node name not permitted");	/* a node name is not permitted in external file name */
+	}
+
+//  CHECK Constraints require the context to be set to the
+//  current relation 
+
+	request->req_contexts = context = MAKE_CONTEXT(request);
+	context->ctx_relation = relation;
+
+//  Reserve context 1 for relation on which constraint is
+//  being defined 
+	context->ctx_internal++;
+	request->req_internal++;
+
+//  create action block 
+
+	action = MAKE_ACTION(request, ACT_create_table);
+	action->act_whenever = gen_whenever();
+	action->act_object = (REF) relation;
+
+	EXP_left_paren(0);
+	ptr = &relation->rel_fields;
+	cnstrt = &relation->rel_constraints;
+
+	for (;;) {
+		switch (token.tok_keyword) {
+		case KW_CONSTRAINT:
+		case KW_PRIMARY:
+		case KW_UNIQUE:
+		case KW_FOREIGN:
+		case KW_CHECK:
+			*cnstrt = par_table_constraint(request, relation);
+			cnstrt = &(*cnstrt)->cnstrt_next;
+			break;
+
+		default:
+			/* parse field list and create corresponding field blocks */
+
+			*ptr = par_field(request, relation);
+			ptr = &(*ptr)->fld_next;
+		}
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+	EXP_match_paren();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL create view statement.
+//  
+
+static ACT act_create_view(void)
+{
+	ACT action;
+	FLD *ptr;
+	REQ request;
+	REL relation;
+	RSE select;
+
+	request = MAKE_REQUEST(REQ_ddl);
+	relation = par_relation(request);
+
+//  create action block 
+
+	action = MAKE_ACTION(request, ACT_create_view);
+	action->act_whenever = gen_whenever();
+	action->act_object = (REF) relation;
+
+//  if field list is present parse it and create corresponding field blocks 
+
+	if (MATCH(KW_LEFT_PAREN)) {
+		ptr = &relation->rel_fields;
+		for (;;) {
+			*ptr = make_field(relation);
+			ptr = &(*ptr)->fld_next;
+			if (MATCH(KW_RIGHT_PAREN))
+				break;
+			MATCH(KW_COMMA);
+		}
+	}
+
+//  skip 'AS SELECT' 
+
+	if (!MATCH(KW_AS))
+		SYNTAX_ERROR("AS");
+
+	relation->rel_view_text = CPR_start_text();
+	if (!MATCH(KW_SELECT))
+		SYNTAX_ERROR("SELECT");
+
+//  reserve context variable 0 for view 
+
+	request->req_internal++;
+
+//  parse the view SELECT 
+
+	relation->rel_view_rse = select = SQE_select(request, TRUE);
+	EXP_rse_cleanup(select);
+
+	if (MATCH(KW_WITH)) {
+		if (!MATCH(KW_CHECK))
+			SYNTAX_ERROR("CHECK");
+		if (!MATCH(KW_OPTION))
+			SYNTAX_ERROR("OPTION");
+		relation->rel_flags |= REL_view_check;
+	}
+
+	CPR_end_text(relation->rel_view_text);
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Recognize BEGIN/END DECLARE SECTION, 
+//     and mark it as a good place to put miscellaneous
+//     global routine stuff.
+//  
+
+static ACT act_d_section( enum act_t type)
+{
+	ACT action;
+	SYM symbol;
+
+	if (!MATCH(KW_DECLARE))
+		SYNTAX_ERROR("DECLARE SECTION");
+
+	if (!MATCH(KW_SECTION))
+		SYNTAX_ERROR("SECTION");
+
+	MATCH(KW_SEMI_COLON);
+
+	action = (ACT) ALLOC(ACT_LEN);
+	action->act_type = type;
+
+	if (type == ACT_b_declare)
+		cur_routine = action;
+
+	if (!isc_databases) {
+		/* allocate database block and link to db chain */
+
+		isc_databases = (DBB) MSC_alloc_permanent(DBB_LEN);
+
+		/* allocate symbol block */
+
+		symbol = (SYM) MSC_alloc_permanent(SYM_LEN);
+
+		/* make it a database, specifically this one */
+
+		symbol->sym_type = SYM_database;
+		symbol->sym_object = (CTX) isc_databases;
+		symbol->sym_string = database_name;
+
+		/* database block points to the symbol block */
+
+		isc_databases->dbb_name = symbol;
+		isc_databases->dbb_filename = NULL;
+		isc_databases->dbb_flags = DBB_sqlca;
+		isc_databases->dbb_c_lc_ctype = module_lc_ctype;
+		if (sw_external)
+			isc_databases->dbb_scope = DBB_EXTERN;
+	}
+	else {
+		/* Load up the symbol (hash) table with relation names from this database */
+
+		MET_load_hash_table(isc_databases);
+	}
+
+	HSH_insert(isc_databases->dbb_name);
+
+	if (MATCH(KW_SQL)) {
+		if (!MATCH(KW_NAMES))
+			SYNTAX_ERROR("NAMES ARE");
+		if (!MATCH(KW_ARE))
+			SYNTAX_ERROR("NAMES ARE");
+		if (!(symbol = MSC_find_symbol(token.tok_symbol, SYM_charset)))
+			PAR_error("The named CHARACTER SET was not found");
+		if (module_lc_ctype && !strcmp(module_lc_ctype, symbol->sym_string))
+			PAR_error("Duplicate specification of module CHARACTER SET.");
+		module_lc_ctype = symbol->sym_string;
+		isc_databases->dbb_c_lc_ctype = symbol->sym_string;
+		CPR_token();
+	}
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse the SQL cursor declaration.
+//  
+
+static ACT act_declare(void)
+{
+	DBB db;
+	REQ request;
+	ACT action;
+	SYM symbol;
+	DYN statement;
+	TEXT t_str[132];
+	TEXT *saved_name = NULL;
+	BOOLEAN delimited = FALSE;
+#ifdef SCROLLABLE_CURSORS
+	BOOLEAN scroll = FALSE;
+#endif
+
+	db = NULL;
+
+	if (token.tok_symbol && (token.tok_symbol->sym_type == SYM_database)) {
+		/* must be a database specifier in a DECLARE TABLE statement */
+
+		db = (DBB) token.tok_symbol->sym_object;
+		ADVANCE_TOKEN;
+		if (!MATCH(KW_DOT))
+			SYNTAX_ERROR(". (period)");
+		symbol = PAR_symbol(SYM_dummy);
+		if (token.tok_keyword != KW_TABLE)
+			SYNTAX_ERROR("TABLE");
+		return (act_declare_table(symbol, db));
+	}
+
+	switch (token.tok_keyword) {
+	case KW_FILTER:
+		return (act_declare_filter());
+		break;
+
+	case KW_EXTERNAL:
+		ADVANCE_TOKEN;
+		if (MATCH(KW_FUNCTION))
+			return (act_declare_udf());
+		else
+			SYNTAX_ERROR("FUNCTION");
+		break;
+	}
+
+	SQL_resolve_identifier("<Cursor Name>", t_str);
+	if (token.tok_type == tok_dblquoted)
+		delimited = TRUE;
+	else {
+		SYM symb;
+		if ((symb = HSH_lookup2(token.tok_string)) &&
+			(symb->sym_type == SYM_cursor ||
+			 symb->sym_type == SYM_delimited_cursor)) {
+			char s[64];
+			sprintf(s, "symbol %s is already in use", t_str);
+			PAR_error(s);
+		}
+	}
+	symbol = PAR_symbol(SYM_cursor);
+
+	switch (token.tok_keyword) {
+	case KW_TABLE:
+		return (act_declare_table(symbol, 0));
+
+#ifdef SCROLLABLE_CURSORS
+	case KW_SCROLL:
+		ADVANCE_TOKEN;
+		scroll = TRUE;
+		if (token.tok_keyword != KW_CURSOR)
+			SYNTAX_ERROR("CURSOR");
+#endif
+	case KW_CURSOR:
+		ADVANCE_TOKEN;
+		if (!MATCH(KW_FOR))
+			SYNTAX_ERROR("FOR");
+		if (MATCH(KW_SELECT)) {
+			request = MAKE_REQUEST(REQ_cursor);
+			request->req_flags |= REQ_sql_cursor | REQ_sql_declare_cursor;
+#ifdef SCROLLABLE_CURSORS
+			if (scroll)
+				request->req_flags |= REQ_scroll;
+#endif
+			symbol->sym_object = (CTX) request;
+			action = MAKE_ACTION(request, ACT_cursor);
+			action->act_object = (REF) symbol;
+			symbol->sym_type =
+				(delimited) ? SYM_delimited_cursor : SYM_cursor;
+			request->req_rse = SQE_select(request, FALSE);
+			if (MATCH(KW_FOR)) {
+				if (!MATCH(KW_UPDATE))
+					SYNTAX_ERROR("UPDATE");
+				if (!MATCH(KW_OF))
+					SYNTAX_ERROR("OF");
+
+				do
+					CPR_token();
+				while (MATCH(KW_COMMA));
+			}
+			EXP_rse_cleanup(request->req_rse);
+		}
+		else if (MATCH(KW_READ)) {
+			action = act_open_blob(ACT_blob_open, symbol);
+			symbol->sym_type =
+				(delimited) ? SYM_delimited_cursor : SYM_cursor;
+		}
+		else if (MATCH(KW_INSERT)) {
+			action = act_open_blob(ACT_blob_create, symbol);
+			symbol->sym_type =
+				(delimited) ? SYM_delimited_cursor : SYM_cursor;
+		}
+		else {
+			statement = par_statement();
+			symbol->sym_object = (CTX) statement;
+			if (MATCH(KW_FOR)) {
+				if (!MATCH(KW_UPDATE))
+					SYNTAX_ERROR("UPDATE");
+				if (!MATCH(KW_OF))
+					SYNTAX_ERROR("OF");
+
+				do
+					CPR_token();
+				while (MATCH(KW_COMMA));
+			}
+			symbol->sym_type = SYM_dyn_cursor;
+			statement->dyn_cursor_name = symbol;
+			action = (ACT) ALLOC(ACT_LEN);
+			action->act_type = ACT_dyn_cursor;
+			action->act_object = (REF) statement;
+			action->act_whenever = gen_whenever();
+		}
+		HSH_insert(symbol);
+		return action;
+
+	default:
+		while (MATCH(KW_COMMA));
+		if (MATCH(KW_STATEMENT)) {
+			action = (ACT) ALLOC(ACT_LEN);
+			action->act_type = ACT_dyn_statement;
+			return action;
+		}
+		SYNTAX_ERROR("CURSOR, STATEMENT or TABLE");
+	}
+	return NULL;				/* silence compiler */
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL declare filter statement
+//  
+
+static ACT act_declare_filter(void)
+{
+	ACT action;
+	REQ request;
+	FLTR filter;
+	SLONG input_type, output_type;
+
+	request = MAKE_REQUEST(REQ_ddl);
+
+	if (isc_databases && !isc_databases->dbb_next)
+		request->req_database = isc_databases;
+	else
+		PAR_error("Can only DECLARE FILTER in context of single database");
+
+	ADVANCE_TOKEN;
+	filter = (FLTR) ALLOC(FLTR_LEN);
+	filter->fltr_name = (TEXT *) ALLOC(NAME_SIZE + 1);
+	SQL_resolve_identifier("<identifier>", filter->fltr_name);
+	if (token.tok_length > NAME_SIZE)
+		PAR_error("Filter name too long");
+
+	ADVANCE_TOKEN;
+
+//  create action block 
+	action = MAKE_ACTION(request, ACT_declare_filter);
+	action->act_whenever = gen_whenever();
+	action->act_object = (REF) filter;
+
+	if (MATCH(KW_INPUT_TYPE))
+		input_type = EXP_SSHORT_ordinal((USHORT) TRUE);
+	else
+		SYNTAX_ERROR("INPUT_TYPE");
+
+	if (MATCH(KW_OUTPUT_TYPE))
+		output_type = EXP_SSHORT_ordinal((USHORT) TRUE);
+	else
+		SYNTAX_ERROR("OUTPUT_TYPE");
+
+	if (!RANGE_SHORT_INTEGER(input_type)
+		|| !RANGE_SHORT_INTEGER(output_type))
+		PAR_error("Blob sub_type out of range");
+
+	filter->fltr_input_type = (SSHORT) input_type;
+	filter->fltr_output_type = (SSHORT) output_type;
+
+	if (MATCH(KW_ENTRY_POINT))
+		filter->fltr_entry_point = extract_string(TRUE);
+	else
+		SYNTAX_ERROR("ENTRY_POINT");
+
+	if (MATCH(KW_MODULE_NAME))
+		filter->fltr_module_name = extract_string(TRUE);
+	else
+		SYNTAX_ERROR("MODULE_NAME");
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL declare table statement.
+//  
+
+static ACT act_declare_table( SYM symbol, DBB db)
+{
+	ACT action;
+	FLD field, dbkey, *ptr;
+	REL relation, tmp_relation;
+	SYM old_symbol, tmp_symbol;
+	USHORT count;
+	REQ request;
+
+//  create a local request block 
+
+	request = (REQ) ALLOC(REQ_LEN);
+	request->req_type = REQ_ddl;
+
+//  create relation block 
+
+	relation = make_relation(0, symbol->sym_string);
+
+	if (!db)
+		db = relation->rel_database;
+
+	request->req_database = db;
+
+	relation->rel_next = db->dbb_relations;
+	db->dbb_relations = relation;
+	relation->rel_dbkey = dbkey =
+		MET_make_field("rdb$db_key", dtype_text, 8, FALSE);
+	dbkey->fld_flags |= FLD_dbkey | FLD_text | FLD_charset;
+	dbkey->fld_ttype = ttype_binary;
+
+//  if relation name already in incore metadata, remove it & its fields 
+
+	old_symbol = HSH_lookup(relation->rel_symbol->sym_string);
+
+	while (old_symbol)
+		if (old_symbol->sym_type == SYM_relation) {
+			tmp_relation = (REL) old_symbol->sym_object;
+			if (tmp_relation->rel_meta)
+				PAR_error("Multiple DECLARE TABLE statements for table");
+			tmp_symbol = old_symbol->sym_homonym;
+			HSH_remove(old_symbol);
+			for (field = tmp_relation->rel_fields; field;
+				 field = field->fld_next) HSH_remove(field->fld_symbol);
+			old_symbol = tmp_symbol;
+		}
+		else
+			old_symbol = old_symbol->sym_homonym;
+
+//  add new symbol to incore metadata 
+
+	HSH_insert(relation->rel_symbol);
+
+//  create action block 
+
+	action = (ACT) ALLOC(ACT_LEN);
+	action->act_type = ACT_noop;
+	action->act_object = (REF) relation;
+
+//  parse field list and create corresponding field blocks 
+//  include size information for message length calculations 
+
+	ADVANCE_TOKEN;
+	EXP_left_paren(0);
+	count = 0;
+	ptr = &relation->rel_fields;
+
+	for (;;) {
+		*ptr = field = par_field(request, relation);
+		ptr = &field->fld_next;
+		HSH_insert(field->fld_symbol);
+		field->fld_position = count++;
+		field->fld_flags &= ~FLD_meta;
+		SQL_adjust_field_dtype(field);
+
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	EXP_match_paren();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL declare external statement
+//  
+
+static ACT act_declare_udf(void)
+{
+	ACT action;
+	REQ request;
+	DECL_UDF udf;
+	FLD *ptr, field;
+	SLONG return_parameter;
+
+	request = MAKE_REQUEST(REQ_ddl);
+
+	if (isc_databases && !isc_databases->dbb_next)
+		request->req_database = isc_databases;
+	else
+		PAR_error
+			("Can only DECLARE EXTERNAL FUNCTION in context of single database");
+
+	udf = (DECL_UDF) ALLOC(DECL_UDF_LEN);
+	udf->decl_udf_name = (TEXT *) ALLOC(NAME_SIZE + 1);
+	SQL_resolve_identifier("<identifier>", udf->decl_udf_name);
+	if (token.tok_length > NAME_SIZE)
+		PAR_error("external function name too long");
+	ADVANCE_TOKEN;
+
+//  create action block 
+	action = MAKE_ACTION(request, ACT_declare_udf);
+	action->act_whenever = gen_whenever();
+	action->act_object = (REF) udf;
+
+	ptr = &udf->decl_udf_arg_list;
+	while (TRUE) {
+		if (MATCH(KW_RETURNS)) {
+			if (MATCH(KW_PARAMETER)) {
+				return_parameter = EXP_pos_USHORT_ordinal((USHORT) TRUE);
+				if (return_parameter > 10)
+					PAR_error("return parameter not in range");
+				assert(return_parameter <= MAX_SSHORT);
+				udf->decl_udf_return_parameter = (SSHORT) return_parameter;
+			}
+			else {
+				field = (FLD) ALLOC(FLD_LEN);
+				field->fld_flags |= (FLD_meta | FLD_meta_cstring);
+				SQL_par_field_dtype(request, field, TRUE);
+				SQL_adjust_field_dtype(field);
+				udf->decl_udf_return_type = field;
+				MATCH(KW_BY);
+				if (MATCH(KW_VALUE))
+					udf->decl_udf_return_mode = FUN_value;
+				else
+					udf->decl_udf_return_mode = FUN_reference;
+			}
+			break;
+		}
+		else {
+			field = (FLD) ALLOC(FLD_LEN);
+			field->fld_flags |= (FLD_meta | FLD_meta_cstring);
+			SQL_par_field_dtype(request, field, TRUE);
+			SQL_adjust_field_dtype(field);
+			*ptr = field;
+			ptr = &(field->fld_next);
+			MATCH(KW_COMMA);
+		}
+	}
+
+	if (MATCH(KW_ENTRY_POINT))
+		udf->decl_udf_entry_point = extract_string(TRUE);
+	else
+		SYNTAX_ERROR("ENTRY_POINT");
+
+	if (MATCH(KW_MODULE_NAME))
+		udf->decl_udf_module_name = extract_string(TRUE);
+	else
+		SYNTAX_ERROR("MODULE_NAME");
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an update action.  This is a little more complicated
+//		because SQL confuses the update of a cursor with a mass update.
+//		The syntax, and therefor the code, I fear, is a mess.
+//  
+
+static ACT act_delete(void)
+{
+	ACT action;
+	REQ request;
+	REL relation;
+	RSE rse;
+	CTX context;
+	UPD update;
+	SYM alias;
+	TEXT *transaction, r_name[NAME_SIZE + 1], db_name[NAME_SIZE + 1],
+		owner_name[NAME_SIZE + 1], *str_1, *str_2;
+	SSHORT where, i, trans_nm_len;
+	SSHORT hsh_rm = 0;
+
+	par_options(&transaction);
+
+	if (!MATCH(KW_FROM))
+		SYNTAX_ERROR("FROM");
+
+//  First comes the relation.  Unfortunately, there is no way to identify
+//  its database until the cursor is known.  Sigh.  Save the token. 
+
+	SQL_relation_name(r_name, db_name, owner_name);
+
+//  Parse the optional alias (context variable) 
+
+	alias = (token.tok_symbol) ? NULL : PAR_symbol(SYM_dummy);
+
+//  Now the moment of truth.  If the next few tokens are WHERE CURRENT OF
+//  then this is a sub-action of an existing request.  If not, then it is
+//  a free standing request 
+
+	request = MAKE_REQUEST(REQ_mass_update);
+	update = (UPD) ALLOC(UPD_LEN);
+
+	if ((where = MATCH(KW_WITH)) && MATCH(KW_CURRENT)) {
+		if (!MATCH(KW_OF))
+			SYNTAX_ERROR("OF <cursor>");
+		requests = request->req_next;
+		cur_routine->act_object = (REF) request->req_routine;
+		FREE((UCHAR *) request);
+		request = par_cursor(NULL);
+		if ((transaction || request->req_trans) &&
+			(!transaction || !request->req_trans ||
+			 strcmp(transaction, request->req_trans))) {
+			if (transaction)
+				PAR_error("different transaction for select and delete");
+			else {				/* does not specify transaction clause in      */
+				/*   "delete ... where cuurent of cursor" stmt */
+				trans_nm_len = strlen(request->req_trans);
+				str_2 = transaction = (SCHAR *) ALLOC(trans_nm_len + 1);
+				str_1 = request->req_trans;
+				do
+					*str_2++ = *str_1++;
+				while (--trans_nm_len);
+			}
+		}
+		request->req_trans = transaction;
+		relation = SQL_relation(request, r_name, db_name, owner_name, TRUE);
+		rse = request->req_rse;
+		for (i = 0; i < rse->rse_count; i++) {
+			context = rse->rse_context[i];
+			if (context->ctx_relation == relation)
+				break;
+		}
+		if (i == rse->rse_count)
+			PAR_error("table not in request");
+		update->upd_request = request;
+		update->upd_source = context;
+		action = MAKE_ACTION(request, ACT_erase);
+		action->act_object = (REF) update;
+		action->act_whenever = gen_whenever();
+		return action;
+	}
+
+	request->req_trans = transaction;
+
+//  How amusing.  After all that work, it wasn't a sub-action at all.
+//  Neat.  Take the pieces and build a complete request.  Start by
+//  figuring out what database is involved.  
+
+	relation = SQL_relation(request, r_name, db_name, owner_name, TRUE);
+
+	request->req_rse = rse = (RSE) ALLOC(RSE_LEN(1));
+	rse->rse_count = 1;
+	rse->rse_context[0] = context = MAKE_CONTEXT(request);
+	context->ctx_relation = relation;
+
+	if (alias && !token.tok_symbol) {
+		alias->sym_type = SYM_context;
+		alias->sym_object = context;
+		context->ctx_symbol = alias;
+		token.tok_symbol = alias;
+		HSH_insert(alias);
+		hsh_rm = 1;
+	}
+
+	if (where)
+		rse->rse_boolean = SQE_boolean(request, 0);
+
+	request->req_node = MAKE_NODE(nod_erase, 0);
+	action = MAKE_ACTION(request, ACT_loop);
+	action->act_whenever = gen_whenever();
+
+	if (hsh_rm)
+		HSH_remove(alias);
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL describe statement.
+//			Reject
+//  
+
+static ACT act_describe(void)
+{
+	DYN statement;
+	ACT action;
+	BOOLEAN in_sqlda;
+
+	if (MATCH(KW_INPUT))
+		in_sqlda = TRUE;
+	else {
+		MATCH(KW_OUTPUT);
+		in_sqlda = FALSE;
+	}
+
+	statement = par_statement();
+
+	if (!MATCH(KW_INTO)) {
+		/* check for SQL2 syntax 
+		   "USING SQL DESCRIPTOR sqlda" */
+
+		if (!MATCH(KW_USING) || !MATCH(KW_SQL) || !MATCH(KW_DESCRIPTOR))
+			SYNTAX_ERROR("INTO or USING SQL DESCRIPTOR sqlda");
+	}
+	else if (MATCH(KW_SQL) && !MATCH(KW_DESCRIPTOR))
+		SYNTAX_ERROR("INTO SQL DESCRIPTOR sqlda");
+
+	statement->dyn_sqlda = PAR_native_value(FALSE, FALSE);
+	action = (ACT) ALLOC(ACT_LEN);
+	if (in_sqlda)
+		action->act_type = ACT_dyn_describe_input;
+	else
+		action->act_type = ACT_dyn_describe;
+	action->act_object = (REF) statement;
+	action->act_whenever = gen_whenever();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a FINISH statement.
+//  
+
+static ACT act_disconnect(void)
+{
+	register ACT action;
+	SYM symbol;
+	RDY ready;
+	USHORT all;
+
+	action = MAKE_ACTION(0, ACT_disconnect);
+	action->act_whenever = gen_whenever();
+	all = MATCH(KW_ALL) || MATCH(KW_DEFAULT);
+
+	if (!all) {
+		if (MATCH(KW_CURRENT))
+			PAR_error("DISCONNECT CURRENT not supported");
+		if (!
+			((symbol = token.tok_symbol)
+			 && (symbol->sym_type ==
+				 SYM_database)))
+SYNTAX_ERROR("ALL, DEFAULT, or <database handle>");
+		while (TRUE) {
+			if ((symbol = token.tok_symbol)
+				&& (symbol->sym_type == SYM_database)) {
+				ready = (RDY) ALLOC(RDY_LEN);
+				ready->rdy_next = (RDY) action->act_object;
+				action->act_object = (REF) ready;
+				ready->rdy_database = (DBB) symbol->sym_object;
+				ADVANCE_TOKEN;
+			}
+			else
+				SYNTAX_ERROR("<database handle>");
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+	}
+
+	if (sw_language == lang_ada)
+		MATCH(KW_SEMI_COLON);
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL drop statement.
+//  
+
+static ACT act_drop(void)
+{
+	ACT action;
+	DBB db;
+	IND index;
+	REQ request;
+	REL relation;
+	SYM symbol;
+	SCHAR *db_string;
+	TEXT *str;
+	SLONG num;
+
+	switch (token.tok_keyword) {
+	case KW_DATABASE:
+		PAR_error("DROP DATABASE not supported");
+
+		request = MAKE_REQUEST(REQ_ddl);
+		ADVANCE_TOKEN;
+		if (!QUOTED(token.tok_type))
+			SYNTAX_ERROR("<quoted database name>");
+		db = (DBB) ALLOC(DBB_LEN);
+		db->dbb_filename = db_string = (TEXT *) ALLOC(token.tok_length + 1);
+		COPY(token.tok_string, token.tok_length, db_string);
+		symbol = PAR_symbol(SYM_dummy);
+		db->dbb_name = symbol;
+		symbol->sym_type = SYM_database;
+		symbol->sym_object = (CTX) db;
+		action = MAKE_ACTION(request, ACT_drop_database);
+		action->act_whenever = gen_whenever();
+		action->act_object = (REF) db;
+		ADVANCE_TOKEN;
+		return action;
+
+	case KW_DOMAIN:
+		request = MAKE_REQUEST(REQ_ddl);
+		if (isc_databases && !isc_databases->dbb_next)
+			request->req_database = isc_databases;
+		else
+			PAR_error("Can only DROP DOMAIN in context of single database");
+		ADVANCE_TOKEN;
+		str = (TEXT *) ALLOC(NAME_SIZE + 1);
+		SQL_resolve_identifier("<identifier>", str);
+		action = MAKE_ACTION(request, ACT_drop_domain);
+		action->act_whenever = gen_whenever();
+		action->act_object = (REF) str;
+		ADVANCE_TOKEN;
+		return action;
+
+	case KW_FILTER:
+		request = MAKE_REQUEST(REQ_ddl);
+		if (isc_databases && !isc_databases->dbb_next)
+			request->req_database = isc_databases;
+		else
+			PAR_error("Can only DROP FILTER in context of single database");
+		ADVANCE_TOKEN;
+		str = (TEXT *) ALLOC(NAME_SIZE + 1);
+		SQL_resolve_identifier("<identifier>", str);
+		action = MAKE_ACTION(request, ACT_drop_filter);
+		action->act_whenever = gen_whenever();
+		action->act_object = (REF) str;
+		ADVANCE_TOKEN;
+		return action;
+
+	case KW_EXTERNAL:
+
+		ADVANCE_TOKEN;
+		if (!MATCH(KW_FUNCTION))
+			SYNTAX_ERROR("FUNCTION");
+		request = MAKE_REQUEST(REQ_ddl);
+		if (isc_databases && !isc_databases->dbb_next)
+			request->req_database = isc_databases;
+		else
+			PAR_error
+				("Can only DROP EXTERNAL FUNCTION in context of a single database");
+
+		str = (TEXT *) ALLOC(NAME_SIZE + 1);
+		SQL_resolve_identifier("<identifier>", str);
+		action = MAKE_ACTION(request, ACT_drop_udf);
+		action->act_whenever = gen_whenever();
+		action->act_object = (REF) str;
+		ADVANCE_TOKEN;
+		return action;
+
+	case KW_INDEX:
+		request = MAKE_REQUEST(REQ_ddl);
+		ADVANCE_TOKEN;
+		str = (TEXT *) ALLOC(NAME_SIZE + 1);
+		SQL_resolve_identifier("<identifier>", str);
+		index = make_index(request, token.tok_string);
+		action = MAKE_ACTION(request, ACT_drop_index);
+		action->act_whenever = gen_whenever();
+		action->act_object = (REF) index;
+		ADVANCE_TOKEN;
+		return action;
+
+	case KW_STOGROUP:
+		PAR_error("DROP STOGROUP not supported");
+
+	case KW_TABLESPACE:
+		PAR_error("DROP TABLESPACE not supported");
+
+	case KW_SYNONYM:
+		PAR_error("DROP SYNONYM request not allowed");
+
+	case KW_SHADOW:
+		request = MAKE_REQUEST(REQ_ddl);
+		if (isc_databases && !isc_databases->dbb_next)
+			request->req_database = isc_databases;
+		else
+			PAR_error("Can only DROP SHADOW in context of a single database");
+		ADVANCE_TOKEN;
+		action = MAKE_ACTION(request, ACT_drop_shadow);
+		action->act_whenever = gen_whenever();
+		num = EXP_USHORT_ordinal(TRUE);
+		if (!RANGE_POSITIVE_SHORT_INTEGER(num))
+			PAR_error("Shadow number out of range");
+		action->act_object = (REF) num;
+		return action;
+
+	case KW_TABLE:
+		request = MAKE_REQUEST(REQ_ddl);
+		ADVANCE_TOKEN;
+		relation = par_relation(request);
+		action = MAKE_ACTION(request, ACT_drop_table);
+		action->act_whenever = gen_whenever();
+		action->act_object = (REF) relation;
+		return action;
+
+	case KW_VIEW:
+		request = MAKE_REQUEST(REQ_ddl);
+		ADVANCE_TOKEN;
+		relation = par_relation(request);
+		action = MAKE_ACTION(request, ACT_drop_view);
+		action->act_whenever = gen_whenever();
+		action->act_object = (REF) relation;
+		return action;
+
+	default:
+		PAR_error("Invalid DROP request");
+	}
+	return NULL;				/* silence compiler */
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL event statement
+//  
+
+static ACT act_event(void)
+{
+	ACT action;
+
+	if (MATCH(KW_INIT))
+		action = PAR_event_init((USHORT) TRUE);
+	else if (MATCH(KW_WAIT))
+		action = PAR_event_wait((USHORT) TRUE);
+	else
+		SYNTAX_ERROR("INIT or WAIT");
+	action->act_whenever = gen_whenever();
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL execute statement.
+//			Reject
+//  
+
+static ACT act_execute(void)
+{
+	DYN statement;
+	ACT action;
+	TEXT *transaction, s[ERROR_LENGTH];
+
+	if (MATCH(KW_PROCEDURE))
+		return act_procedure();
+
+//  EXECUTE IMMEDIATE is a different sort of duck 
+
+	if (MATCH(KW_IMMEDIATE)) {
+		if (isc_databases && isc_databases->dbb_next) {
+			sprintf(s,
+					"Executing dynamic SQL statement in context of database %s",
+					isc_databases->dbb_name->sym_string);
+			CPR_warn(s);
+		}
+		statement = (DYN) ALLOC(DYN_LEN);
+		par_options(&statement->dyn_trans);
+
+		switch (sw_sql_dialect) {
+		case 1:
+			if ((!QUOTED(token.tok_type)) && (!MATCH(KW_COLON)))
+				SYNTAX_ERROR(": <string expression>");
+			break;
+
+		default:
+			if ((!SINGLE_QUOTED(token.tok_type)) && (!MATCH(KW_COLON)))
+				SYNTAX_ERROR(": <string expression>");
+			break;
+		}
+		statement->dyn_string = PAR_native_value(FALSE, FALSE);
+		par_using(statement);
+		if (statement->dyn_using)
+			PAR_error("Using host-variable list not supported.");
+		par_into(statement);
+		statement->dyn_database = isc_databases;
+		action = (ACT) ALLOC(ACT_LEN);
+		action->act_type = ACT_dyn_immediate;
+		action->act_object = (REF) statement;
+		action->act_whenever = gen_whenever();
+		return action;
+	}
+
+//  Ordinary form of EXECUTE 
+
+	par_options(&transaction);
+	statement = par_statement();
+	statement->dyn_trans = transaction;
+
+	par_using(statement);
+	if (statement->dyn_using)
+		PAR_error("Using host-variable list not supported.");
+	par_into(statement);
+
+	action = (ACT) ALLOC(ACT_LEN);
+	action->act_type = ACT_dyn_execute;
+	action->act_object = (REF) statement;
+	action->act_whenever = gen_whenever();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse the SQL fetch statement.
+//  
+
+static ACT act_fetch(void)
+{
+	REQ request;
+	ACT action;
+	RSE select;
+	DYN statement, cursor;
+#ifdef SCROLLABLE_CURSORS
+	USHORT direction;
+	REF reference;
+	VAL value;
+	TEXT *direction_string, *offset_string, *string;
+#endif
+	NOD offset_node = NULL;
+
+//  Handle dynamic SQL statement, if appropriate 
+
+	if (cursor = par_dynamic_cursor()) {
+		statement = (DYN) ALLOC(DYN_LEN);
+		statement->dyn_statement_name = cursor->dyn_statement_name;
+		statement->dyn_cursor_name = cursor->dyn_cursor_name;
+		if (MATCH(KW_USING) || MATCH(KW_INTO)) {
+			MATCH(KW_SQL);		/* optional for backward compatibility */
+
+#pragma FB_COMPILER_MESSAGE("Fix! Wrong function ptr type!")
+//
+// Please search for "reinterpret_cast<pfn_SQE_list_cb>",
+// there are more in this file.
+//
+			if (MATCH(KW_DESCRIPTOR))
+				statement->dyn_sqlda = PAR_native_value(FALSE, FALSE);
+			else
+				statement->dyn_using =
+					(NOD) SQE_list(reinterpret_cast < pfn_SQE_list_cb >
+								   (SQE_variable), 0, FALSE);
+			if (statement->dyn_using)
+				PAR_error("Using host-variable list not supported.");
+		}
+		action = (ACT) ALLOC(ACT_LEN);
+		action->act_type = ACT_dyn_fetch;
+		action->act_object = (REF) statement;
+		action->act_whenever = gen_whenever();
+		return action;
+	}
+
+//  Statement is static SQL 
+
+#ifdef SCROLLABLE_CURSORS
+//  parse the fetch orientation 
+
+	direction = blr_forward;
+
+	if (!MATCH(KW_NEXT)) {
+		if (MATCH(KW_PRIOR)) {
+			direction = blr_backward;
+			direction_string = "1";
+		}
+		else if (MATCH(KW_FIRST)) {
+			direction = blr_bof_forward;
+			direction_string = "2";
+		}
+		else if (MATCH(KW_LAST)) {
+			direction = blr_eof_backward;
+			direction_string = "3";
+		}
+		else if (MATCH(KW_RELATIVE)) {
+			direction = blr_forward;
+			direction_string = "0";
+			offset_node = SQE_value(0, FALSE, 0, 0);
+			ADVANCE_TOKEN;
+		}
+		else if (MATCH(KW_ABSOLUTE)) {
+			direction = blr_bof_forward;
+			direction_string = "2";
+			offset_node = SQE_value(0, FALSE, 0, 0);
+			ADVANCE_TOKEN;
+		}
+	}
+
+	MATCH(KW_FROM);
+#endif
+
+	request = par_cursor(NULL);
+
+#ifdef SCROLLABLE_CURSORS
+//  if scrolling is required, set up the offset and direction parameters 
+//  to be passed to the running request via the asynchronous message-- 
+//  there could be multiple FETCH statements, so we need to store multiple 
+//  value blocks, one for each FETCH statement 
+
+	if (direction != blr_forward) {
+		if (!(request->req_flags & REQ_scroll))
+			PAR_error
+				("Must use SCROLL modifier for DECLARE CURSOR to enable scrolling.");
+
+		/* create a literal for the direction parameter */
+
+		if (!(reference = request->req_avalues))
+			reference = request->req_avalues = (REF) ALLOC(REF_LEN);
+
+		if (!(value = reference->ref_values))
+			reference->ref_values = value = (VAL) ALLOC(VAL_LEN);
+		else {
+			while (value->val_next)
+				value = value->val_next;
+			value->val_next = (VAL) ALLOC(VAL_LEN);
+			value = value->val_next;
+		}
+
+		value->val_value = string = (TEXT *) ALLOC(2);
+		COPY(direction_string, 1, string);
+
+		/* create a reference to the offset variable or literal */
+
+		if (!reference->ref_next)
+			reference->ref_next = (REF) ALLOC(REF_LEN);
+		reference = reference->ref_next;
+
+		if (!(value = reference->ref_values))
+			reference->ref_values = value = (VAL) ALLOC(VAL_LEN);
+		else {
+			while (value->val_next)
+				value = value->val_next;
+			value->val_next = (VAL) ALLOC(VAL_LEN);
+			value = value->val_next;
+		}
+
+		if (offset_node)
+			value->val_value = ((REF) offset_node->nod_arg[0])->ref_value;
+		else {
+			offset_string = "1";
+			value->val_value = string = (TEXT *) ALLOC(2);
+			COPY(offset_string, 1, string);
+		}
+	}
+#endif
+
+	if (request->req_flags & REQ_sql_blob_create)
+		PAR_error("Fetching from a blob being created is not allowed.");
+
+	action = MAKE_ACTION(request, ACT_fetch);
+	action->act_whenever = gen_whenever();
+
+	if (request->req_flags & REQ_sql_blob_open) {
+		if (!MATCH(KW_INTO))
+			SYNTAX_ERROR("INTO");
+		action->act_object = SQE_variable(0, FALSE);
+		action->act_type = ACT_get_segment;
+	}
+	else if (MATCH(KW_INTO)) {
+		action->act_object =
+			(REF) SQE_list(reinterpret_cast < pfn_SQE_list_cb >
+						   (SQE_variable), request, FALSE);
+		select = request->req_rse;
+		into(request, select->rse_fields, (NOD) action->act_object);
+	}
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an SQL grant or revoke statement.  Set up grant/revoke
+//		blocks, fill in all of the privilege information, and
+//		attach them to an action block of type GRANT or REVOKE.
+//  
+
+static ACT act_grant_revoke( enum act_t type)
+{
+	REQ request;
+	ACT action;
+	USN user, usernames;
+	PRV priv_block, last_priv_block;
+	REL relation;
+	PRC procedure;
+	USHORT user_dyn;
+	SCHAR col_name[NAME_SIZE + 1], r_name[NAME_SIZE + 1],
+		db_name[NAME_SIZE + 1], owner_name[NAME_SIZE + 1];
+	LLS *fields;
+	STR field_name, relation_name;
+	BOOLEAN first;
+	BOOLEAN grant_option_legal = TRUE;
+	BOOLEAN execute_priv = FALSE;
+	SCHAR s[ERROR_LENGTH];
+
+	request = MAKE_REQUEST(REQ_ddl);
+
+	priv_block = MAKE_PRIVILEGE_BLOCK();
+	fields = &priv_block->prv_fields;
+
+//  if it is revoke action, parse the optional grant option for 
+
+	if (type == ACT_dyn_revoke)
+		if (MATCH(KW_GRANT)) {
+			if (!MATCH(KW_OPTION))
+				SYNTAX_ERROR("OPTION");
+			if (!MATCH(KW_FOR))
+				SYNTAX_ERROR("FOR");
+			priv_block->prv_privileges |= PRV_grant_option;
+		}
+
+	if (MATCH(KW_ALL)) {
+		MATCH(KW_PRIVILEGES);	/*  Keyword 'privileges' is optional  */
+		priv_block->prv_privileges = PRV_all;
+	}
+	else if (MATCH(KW_EXECUTE)) {
+		priv_block->prv_privileges |= PRV_execute;
+		execute_priv = TRUE;
+	}
+	else
+		while (TRUE) {
+			if (MATCH(KW_SELECT))
+				priv_block->prv_privileges |= PRV_select;
+			else if (MATCH(KW_INSERT))
+				priv_block->prv_privileges |= PRV_insert;
+			else if (MATCH(KW_DELETE))
+				priv_block->prv_privileges |= PRV_delete;
+			else if (MATCH(KW_UPDATE)) {
+				priv_block->prv_privileges |= PRV_update;
+				if (MATCH(KW_LEFT_PAREN)) {
+					do {
+						SQL_resolve_identifier("<column name>", col_name);
+						field_name = (STR) MAKE_STRING(col_name);
+						PUSH((NOD) field_name, fields);
+						fields = &(*fields)->lls_next;
+						CPR_token();
+					} while (MATCH(KW_COMMA));
+
+					if (!MATCH(KW_RIGHT_PAREN))
+						SYNTAX_ERROR("<right parenthesis>");
+				}
+			}
+
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+
+	if (!MATCH(KW_ON))
+		SYNTAX_ERROR("ON");
+
+	if (execute_priv) {
+		if (!MATCH(KW_PROCEDURE))
+			SYNTAX_ERROR("PROCEDURE");
+		SQL_relation_name(r_name, db_name, owner_name);
+		procedure = SQL_procedure(request, r_name, db_name, owner_name, TRUE);
+		relation_name = (STR) MAKE_STRING(r_name);
+		priv_block->prv_relation = relation_name;
+		priv_block->prv_object_dyn = gds_dyn_prc_name;
+	}
+	else {
+		MATCH(KW_TABLE);		/* filler word */
+		SQL_relation_name(r_name, db_name, owner_name);
+		relation = SQL_relation(request, r_name, db_name, owner_name, TRUE);
+		relation_name = (STR) MAKE_STRING(r_name);
+		priv_block->prv_relation = relation_name;
+		priv_block->prv_object_dyn = gds_dyn_rel_name;
+	}
+
+	if (type == ACT_dyn_grant) {
+		if (!MATCH(KW_TO))
+			SYNTAX_ERROR("TO");
+	}
+	else {						/*  type == ACT_dyn_revoke  */
+
+		if (!MATCH(KW_FROM))
+			SYNTAX_ERROR("FROM");
+	}
+
+	usernames = 0;
+	user = 0;
+	while (TRUE) {
+		if (MATCH(KW_PROCEDURE)) {
+			SQL_relation_name(r_name, db_name, owner_name);
+			procedure =
+				SQL_procedure(request, r_name, db_name, owner_name, TRUE);
+			user_dyn = gds_dyn_grant_proc;
+			grant_option_legal = FALSE;
+		}
+		else if (MATCH(KW_TRIGGER)) {
+			SQL_relation_name(r_name, db_name, owner_name);
+			if (!MET_trigger_exists(request->req_database, r_name)) {
+				sprintf(s, "TRIGGER %s not defined", r_name);
+				PAR_error(s);
+			}
+			user_dyn = gds_dyn_grant_trig;
+			grant_option_legal = FALSE;
+		}
+		else if (MATCH(KW_VIEW)) {
+			SQL_relation_name(r_name, db_name, owner_name);
+			if (!MET_get_view_relation
+				(request, r_name, (char *) relation_name, 0)) {
+				sprintf(s, "VIEW %s not defined on table %s", r_name,
+						relation_name);
+				PAR_error(s);
+			}
+			user_dyn = gds_dyn_grant_view;
+			grant_option_legal = FALSE;
+		}
+		else if (MATCH(KW_PUBLIC)) {
+			strcpy(r_name, "PUBLIC");
+			user_dyn = gds_dyn_grant_user;
+		}
+		else {
+			MATCH(KW_USER);
+			if (token.tok_type != tok_ident)
+				SYNTAX_ERROR("<user name identifier>");
+			else
+				to_upcase(token.tok_string, r_name);
+			user_dyn = gds_dyn_grant_user;
+			CPR_token();
+		}
+
+		if (!usernames) {
+			usernames = MAKE_USERNAME(r_name, user_dyn);
+			user = usernames;
+		}
+		else {
+			user->usn_next = MAKE_USERNAME(r_name, user_dyn);
+			user = user->usn_next;
+		}
+
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+//  If this is a grant, do we have the optional WITH GRANT OPTION specification? 
+
+	if ((type == ACT_dyn_grant) && grant_option_legal)
+		if (MATCH(KW_WITH)) {
+			if (!MATCH(KW_GRANT))
+				SYNTAX_ERROR("GRANT");
+			if (!MATCH(KW_OPTION))
+				SYNTAX_ERROR("OPTION");
+			priv_block->prv_privileges |= PRV_grant_option;
+		}
+
+//  create action block 
+
+	action = MAKE_ACTION(request, type);
+	action->act_next = 0;
+
+	last_priv_block = priv_block;
+	first = TRUE;
+
+	for (user = usernames; user; user = user->usn_next) {
+		/* create and fill privilege block */
+
+		priv_block = MAKE_PRIVILEGE_BLOCK();
+		priv_block->prv_username = user->usn_name;
+		priv_block->prv_user_dyn = user->usn_dyn;
+		priv_block->prv_privileges = last_priv_block->prv_privileges;
+		priv_block->prv_relation = last_priv_block->prv_relation;
+		priv_block->prv_object_dyn = last_priv_block->prv_object_dyn;
+		priv_block->prv_fields = last_priv_block->prv_fields;
+		if (first) {
+			action->act_object = (REF) priv_block;
+			first = FALSE;
+		}
+		else
+			last_priv_block->prv_next = priv_block;
+		last_priv_block = priv_block;
+	}
+	action->act_request = request;
+	action->act_whenever = gen_whenever();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+static ACT act_include(void)
+{
+	ACT action;
+	SYM symbol;
+
+	ADVANCE_TOKEN;
+	MATCH(KW_SEMI_COLON);
+
+	action = (ACT) ALLOC(ACT_LEN);
+	action->act_type = ACT_b_declare;
+	cur_routine = action;
+
+	if (!isc_databases) {
+		/* allocate database block and link to db chain */
+
+		isc_databases = (DBB) MSC_alloc_permanent(DBB_LEN);
+
+		/* allocate symbol block */
+
+		symbol = (SYM) MSC_alloc_permanent(SYM_LEN);
+
+		/* make it a database, specifically this one */
+
+		symbol->sym_type = SYM_database;
+		symbol->sym_object = (CTX) isc_databases;
+		symbol->sym_string = database_name;
+
+		/* database block points to the symbol block */
+
+		isc_databases->dbb_name = symbol;
+		isc_databases->dbb_filename = NULL;
+		isc_databases->dbb_flags = DBB_sqlca;
+		isc_databases->dbb_c_lc_ctype = module_lc_ctype;
+		if (sw_external)
+			isc_databases->dbb_scope = DBB_EXTERN;
+	}
+	else
+		/* Load the symbol (hash) table with relation names from this database. */
+		MET_load_hash_table(isc_databases);
+
+	HSH_insert(isc_databases->dbb_name);
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Process SQL INSERT statement.
+//  
+
+static ACT act_insert(void)
+{
+	REQ request;
+	ACT action;
+	CTX context;
+	LLS fields, values;
+	RSE select;
+	NOD node, store, assignment, list, select_list, *ptr, *ptr2;
+	TEXT *transaction;
+	int count, count2, i;
+
+	par_options(&transaction);
+
+	if (MATCH(KW_CURSOR))
+		return act_insert_blob(transaction);
+
+	if (!MATCH(KW_INTO))
+		SYNTAX_ERROR("INTO");
+
+	request = MAKE_REQUEST(REQ_insert);
+	request->req_trans = transaction;
+	context = SQE_context(request);
+	count = count2 = 0;
+	fields = values = NULL;
+
+//  Pick up a field list 
+
+	if (!MATCH(KW_LEFT_PAREN)) {
+		list = MET_fields(context);
+		count = list->nod_count;
+		for (i = 0; i < count; i++)
+			PUSH(list->nod_arg[i], &fields);
+	}
+	else {
+		do {
+			node = SQE_field(request, FALSE);
+			if (node->nod_type == nod_array) {
+				node->nod_type = nod_field;
+
+				/* Make sure no subscripts are specified  */
+
+				if (node->nod_arg[1]) {
+					PAR_error("Partial insert of arrays not permitted");
+				}
+			}
+
+			/* Dialect 1 program may not insert new datatypes */
+			if ((SQL_DIALECT_V5 == sw_sql_dialect) &&
+				(nod_field == node->nod_type)) {
+				USHORT field_dtype;
+
+				field_dtype =
+					((REF) (node->nod_arg[0]))->ref_field->fld_dtype;
+				if ((dtype_sql_date == field_dtype)
+					|| (dtype_sql_time == field_dtype)
+					|| (dtype_int64 == field_dtype)) {
+					dialect1_bad_type(field_dtype);
+				}
+			}
+
+			PUSH(node, &fields);
+			count++;
+		} while (MATCH(KW_COMMA));
+
+		EXP_match_paren();
+	}
+
+	if (MATCH(KW_VALUES)) {
+		/* Now pick up a value list */
+
+		EXP_left_paren(0);
+		for (;;) {
+			if (MATCH(KW_NULL))
+				PUSH(MAKE_NODE(nod_null, 0), &values);
+			else
+				PUSH(SQE_value(request, FALSE, 0, 0), &values);
+			count2++;
+			if (!(MATCH(KW_COMMA)))
+				break;
+		}
+		EXP_match_paren();
+
+		/* Make an assignment list */
+
+		if (count != count2)
+			PAR_error("count of values doesn't match count of columns");
+
+		request->req_node = list = MAKE_NODE(nod_list, (SSHORT) count);
+		ptr = &list->nod_arg[count];
+
+		while (values) {
+			assignment = MAKE_NODE(nod_assignment, 2);
+			assignment->nod_arg[0] = (NOD) POP(&values);
+			assignment->nod_arg[1] = (NOD) POP(&fields);
+			pair(assignment->nod_arg[0], assignment->nod_arg[1]);
+			*--ptr = assignment;
+		}
+
+		if (context->ctx_symbol)
+			HSH_remove(context->ctx_symbol);
+		action = MAKE_ACTION(request, ACT_insert);
+		action->act_whenever = gen_whenever();
+		return action;
+	}
+
+	if (!MATCH(KW_SELECT))
+		SYNTAX_ERROR("VALUES or SELECT");
+
+//  OK, we've got a mass insert on our hands.  Start by picking
+//  up the select statement.  First, however, remove the INSERT
+//  context to avoid resolving SELECT fields to the insert relation. 
+
+	request->req_type = REQ_mass_update;
+	request->req_contexts = NULL;
+	request->req_update = context;
+	request->req_rse = select = SQE_select(request, FALSE);
+	context->ctx_next = request->req_contexts;
+	request->req_contexts = context;
+
+//  Build an assignment list from select expressions into target list 
+
+	select_list = select->rse_fields;
+
+	if (count != select_list->nod_count)
+		PAR_error("count of values doesn't match count of columns");
+
+	request->req_node = list = MAKE_NODE(nod_list, (SSHORT) count);
+	ptr = &list->nod_arg[count];
+	ptr2 = &select_list->nod_arg[count];
+
+	while (fields) {
+		assignment = MAKE_NODE(nod_assignment, 2);
+		assignment->nod_arg[0] = *--ptr2;
+		assignment->nod_arg[1] = (NOD) POP(&fields);
+		pair(assignment->nod_arg[0], assignment->nod_arg[1]);
+		*--ptr = assignment;
+	}
+
+	store = MSC_binary(nod_store, (NOD) context, list);
+	request->req_node = store;
+	EXP_rse_cleanup(select);
+	if (context->ctx_symbol)
+		HSH_remove(context->ctx_symbol);
+
+	action = MAKE_ACTION(request, ACT_loop);
+	action->act_whenever = gen_whenever();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Process SQL INSERT statement.
+//  
+
+static ACT act_insert_blob( TEXT * transaction)
+{
+	REQ request;
+	ACT action;
+	DYN statement, cursor;
+
+//  Handle dynamic SQL statement, if appropriate 
+
+	if (cursor = par_dynamic_cursor()) {
+		statement = (DYN) ALLOC(DYN_LEN);
+		statement->dyn_statement_name = cursor->dyn_statement_name;
+		statement->dyn_cursor_name = cursor->dyn_cursor_name;
+		par_using(statement);
+		if (statement->dyn_using)
+			PAR_error("Using host-variable list not supported.");
+		action = (ACT) ALLOC(ACT_LEN);
+		action->act_type = ACT_dyn_insert;
+		action->act_object = (REF) statement;
+		action->act_whenever = gen_whenever();
+		return action;
+	}
+
+//  Statement is static SQL 
+
+	request = par_cursor(NULL);
+	if (request->req_flags & REQ_sql_blob_open)
+		PAR_error("Inserting into a blob being opened is not allowed.");
+	action = MAKE_ACTION(request, ACT_put_segment);
+	action->act_whenever = gen_whenever();
+
+	if (!MATCH(KW_VALUES))
+		SYNTAX_ERROR("VALUES");
+
+	EXP_left_paren(0);
+	action->act_object = SQE_variable(0, FALSE);
+	if (!action->act_object->ref_null_value)
+		PAR_error("A segment length is required.");
+	EXP_match_paren();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL lock statement.
+//			Reject
+//  
+
+static ACT act_lock(void)
+{
+
+	PAR_error("SQL LOCK TABLE request not allowed");
+	return NULL;				/* silence compiler */
+}
+
+
+//____________________________________________________________
+//  
+//		Handle the SQL actions OPEN and CLOSE cursors.
+//  
+
+static ACT act_openclose( enum act_t type)
+{
+	ACT action;
+	REQ request;
+	DYN statement, cursor;
+	SYM symbol;
+	OPN open;
+	REF using_;
+	TEXT *transaction;
+
+	if (type == ACT_open)
+		par_options(&transaction);
+
+//  Handle dynamic SQL statement, if appropriate 
+
+	if (cursor = par_dynamic_cursor()) {
+		statement = (DYN) ALLOC(DYN_LEN);
+		statement->dyn_statement_name = cursor->dyn_statement_name;
+		statement->dyn_cursor_name = cursor->dyn_cursor_name;
+		action = (ACT) ALLOC(ACT_LEN);
+		action->act_object = (REF) statement;
+		action->act_whenever = gen_whenever();
+		if (type == ACT_open) {
+			action->act_type = ACT_dyn_open;
+			statement->dyn_trans = transaction;
+			par_using(statement);
+			if (statement->dyn_using)
+				PAR_error("Using host-variable list not supported.");
+			par_into(statement);
+		}
+		else
+			action->act_type = ACT_dyn_close;
+		return action;
+	}
+
+//  Statement is static SQL 
+
+	request = par_cursor(&symbol);
+
+	action = MAKE_ACTION(request, type);
+	if (type == ACT_open) {
+		open = (OPN) ALLOC(OPN_LEN);
+		open->opn_trans = transaction;
+		open->opn_cursor = symbol;
+		action->act_object = (REF) open;
+		if (transaction != NULL)
+			request->req_trans = transaction;
+		if (request->req_flags & (REQ_sql_blob_open | REQ_sql_blob_create)) {
+			if (request->req_flags & REQ_sql_blob_open) {
+				if (!MATCH(KW_USING))
+					SYNTAX_ERROR("USING");
+			}
+			else if (!MATCH(KW_INTO))
+				SYNTAX_ERROR("INTO");
+			open->opn_using = using_ = SQE_variable(0, FALSE);
+			using_->ref_next = request->req_blobs->blb_reference;
+			request->req_blobs->blb_reference = using_;
+			using_->ref_context = request->req_contexts;
+			using_->ref_field = request->req_references->ref_field;
+		}
+	}
+	else
+		action->act_object = (REF) symbol;
+	action->act_whenever = gen_whenever();
+
+	if (request->req_flags & (REQ_sql_blob_open | REQ_sql_blob_create))
+		action->act_type = (type == ACT_close) ? ACT_blob_close :
+			(request->
+			 req_flags & REQ_sql_blob_open) ? ACT_blob_open : ACT_blob_create;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an "open blob" type statement.
+//		These include READ BLOB and INSERT BLOB.
+//  
+
+static ACT act_open_blob( ACT_T act_op, SYM symbol)
+{
+	TOK f_token;
+	SCHAR r_name[NAME_SIZE + 1], db_name[NAME_SIZE + 1],
+		owner_name[NAME_SIZE + 1];
+	REQ request;
+	REL relation;
+	FLD field;
+	REF reference;
+	BLB blob;
+	CTX context;
+	SCHAR s[128];
+	ACT action;
+
+	if (!MATCH(KW_BLOB))
+		SYNTAX_ERROR("BLOB");
+
+//  if the token isn't an identifier, complain 
+
+	f_token = (TOK) ALLOC(TOK_LEN);
+	f_token->tok_length = token.tok_length;
+
+	SQL_resolve_identifier("<column_name>", f_token->tok_string);
+	CPR_token();
+
+	if (act_op == ACT_blob_open) {
+		if (!MATCH(KW_FROM))
+			SYNTAX_ERROR("FROM");
+	}
+	else if (!MATCH(KW_INTO))
+		SYNTAX_ERROR("INTO");
+
+	request = MAKE_REQUEST(REQ_cursor);
+	request->req_flags =
+		(act_op == ACT_blob_open) ? REQ_sql_blob_open : REQ_sql_blob_create;
+
+	SQL_relation_name(r_name, db_name, owner_name);
+	relation = SQL_relation(request, r_name, db_name, owner_name, TRUE);
+
+	if (!(field = MET_field(relation, f_token->tok_string))) {
+		sprintf(s, "column \"%s\" not in context", f_token->tok_string);
+		PAR_error(s);
+	}
+
+	if (!(field->fld_flags & FLD_blob)) {
+		sprintf(s, "column %s is not a BLOB", field->fld_symbol->sym_string);
+		PAR_error(s);
+	}
+
+	if (field->fld_array_info) {
+		sprintf(s, "column %s is an array and can not be opened as a BLOB",
+				field->fld_symbol->sym_string);
+		PAR_error(s);
+	}
+
+	reference = MAKE_REFERENCE(0);
+	reference->ref_field = field;
+
+	context = MAKE_CONTEXT(request);
+	context->ctx_relation = relation;
+
+	blob = (BLB) ALLOC(BLB_LEN);
+	blob->blb_symbol = symbol;
+	blob->blb_request = request;
+	blob->blb_next = request->req_blobs;
+	symbol->sym_object = (CTX) request;
+	symbol->sym_type = SYM_cursor;
+
+	request->req_references = reference;
+	request->req_blobs = blob;
+
+	if (MATCH(KW_FILTER)) {
+		if (MATCH(KW_FROM)) {
+			blob->blb_const_from_type =
+				PAR_blob_subtype(request->req_database);
+			if (token.tok_keyword == KW_CHAR)
+				if (blob->blb_const_from_type == BLOB_text) {
+					blob->blb_from_charset = par_char_set();
+					if (act_op == ACT_blob_open
+						&& blob->blb_from_charset != field->fld_charset_id)
+							PAR_error
+							("Specified CHARACTER SET does not match BLOB column declaration.");
+				}
+				else
+					PAR_error("Only text BLOBS can specify CHARACTER SET");
+			else if (blob->blb_const_from_type == BLOB_text)
+				if (act_op == ACT_blob_create)
+					blob->blb_from_charset = CS_dynamic;
+				else
+					blob->blb_from_charset = field->fld_charset_id;
+		}
+		else {
+			blob->blb_const_from_type = field->fld_sub_type;
+			if (blob->blb_const_from_type == BLOB_text)
+				if (act_op == ACT_blob_create)
+					blob->blb_from_charset = CS_dynamic;
+				else
+					blob->blb_from_charset = field->fld_charset_id;
+		}
+		if (!MATCH(KW_TO))
+			SYNTAX_ERROR("TO");
+		blob->blb_const_to_type = PAR_blob_subtype(request->req_database);
+		if (token.tok_keyword == KW_CHAR)
+			if (blob->blb_const_to_type == BLOB_text) {
+				blob->blb_to_charset = par_char_set();
+				if (act_op == ACT_blob_create
+					&& blob->blb_to_charset != field->fld_charset_id)
+						PAR_error
+						("Specified CHARACTER SET does not match BLOB column declaration.");
+			}
+			else
+				PAR_error("Only text BLOBS can specify CHARACTER SET");
+		else if (blob->blb_const_to_type == BLOB_text)
+			if (act_op == ACT_blob_create)
+				blob->blb_to_charset = field->fld_charset_id;
+			else
+				blob->blb_to_charset = CS_dynamic;
+	}
+	else {						/* No FILTER keyword seen */
+
+		/*
+		 *  Even if no FILTER was specified, we set one up for the special
+		 *  case of InterBase TEXT blobs, in order to do character set
+		 *  transliteration from the column-declared character set of the
+		 *  blob to the process character set (CS_dynamic).
+		 *
+		 *  It is necessary to pass this information in the bpb as blob
+		 *  operations are done using blob_ids, and we cannot determine
+		 *  this information from the blob_id within the engine.
+		 */
+		if (field->fld_sub_type == BLOB_text
+			&& (field->fld_charset_id != CS_NONE)) {
+			blob->blb_const_from_type = BLOB_text;
+			blob->blb_const_to_type = BLOB_text;
+			if (act_op == ACT_blob_create) {
+				blob->blb_from_charset = CS_dynamic;
+				blob->blb_to_charset = field->fld_charset_id;
+			}
+			else {
+				blob->blb_from_charset = field->fld_charset_id;
+				blob->blb_to_charset = CS_dynamic;
+			}
+		}
+	}
+
+	if (MATCH(KW_MAX_SEGMENT))
+		blob->blb_seg_length = EXP_USHORT_ordinal(TRUE);
+	else
+		blob->blb_seg_length = field->fld_seg_length;
+
+	if (!blob->blb_seg_length)
+		blob->blb_seg_length = 512;
+
+	action = MAKE_ACTION(request, ACT_cursor);
+	action->act_object = (REF) blob;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL prepare statement.
+//  
+
+static ACT act_prepare(void)
+{
+	DYN statement;
+	ACT action;
+	TEXT s[ERROR_LENGTH];
+	TEXT *transaction;
+
+	if (isc_databases && isc_databases->dbb_next) {
+		sprintf(s,
+				"Executing dynamic SQL statement in context of database %s",
+				isc_databases->dbb_name->sym_string);
+		CPR_warn(s);
+	}
+
+	par_options(&transaction);
+	statement = par_statement();
+	statement->dyn_database = isc_databases;
+	statement->dyn_trans = transaction;
+
+	if (MATCH(KW_INTO)) {
+		if (MATCH(KW_SQL) && !MATCH(KW_DESCRIPTOR))
+			SYNTAX_ERROR("INTO SQL DESCRIPTOR sqlda");
+		statement->dyn_sqlda = PAR_native_value(FALSE, FALSE);
+	}
+
+	if (!MATCH(KW_FROM))
+		SYNTAX_ERROR("FROM");
+
+	switch (sw_sql_dialect) {
+	case 1:
+		if ((!QUOTED(token.tok_type)) && (!MATCH(KW_COLON)))
+			SYNTAX_ERROR(": <string expression>");
+		break;
+
+	default:
+		if ((!SINGLE_QUOTED(token.tok_type)) && (!MATCH(KW_COLON)))
+			SYNTAX_ERROR(": <string expression>");
+		break;
+	}
+
+	statement->dyn_string = PAR_native_value(FALSE, FALSE);
+	action = (ACT) ALLOC(ACT_LEN);
+	action->act_type = ACT_dyn_prepare;
+	action->act_object = (REF) statement;
+	action->act_whenever = gen_whenever();
+	sw_dsql = TRUE;
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle the EXECUTE PROCEDURE statement.
+//  
+
+static ACT act_procedure(void)
+{
+	PRC procedure;
+	REQ request;
+	ACT action;
+	REF reference, *ref_ptr;
+	FLD field;
+	SSHORT inputs, outputs;
+	LLS values;
+	NOD list, *ptr;
+	SCHAR p_name[NAME_SIZE + 1], db_name[NAME_SIZE + 1],
+		owner_name[NAME_SIZE + 1];
+	BOOLEAN paren;
+
+	request = MAKE_REQUEST(REQ_procedure);
+	par_options(&request->req_trans);
+	SQL_relation_name(p_name, db_name, owner_name);
+	procedure = SQL_procedure(request, p_name, db_name, owner_name, TRUE);
+	inputs = outputs = 0;
+	values = NULL;
+
+	if (!KEYWORD(KW_RETURNING) && !KEYWORD(KW_SEMI_COLON)) {
+		/* parse input references */
+
+		paren = MATCH(KW_LEFT_PAREN);
+		field = procedure->prc_inputs;
+		ref_ptr = &request->req_values;
+		do {
+			if (MATCH(KW_NULL))
+				PUSH(MAKE_NODE(nod_null, 0), &values);
+			else {
+				*ref_ptr = reference = SQE_parameter(request, FALSE);
+				reference->ref_field = field;
+				PUSH(MSC_unary(nod_value, (NOD) reference), &values);
+				ref_ptr = &reference->ref_next;
+			}
+			if (field)
+				field = field->fld_next;
+			inputs++;
+		} while (MATCH(KW_COMMA));
+		if (paren)
+			EXP_match_paren();
+	}
+
+	if (MATCH(KW_RETURNING)) {
+		/* parse output references */
+
+		paren = MATCH(KW_LEFT_PAREN);
+		field = procedure->prc_outputs;
+		ref_ptr = &request->req_references;
+		do {
+			*ref_ptr = reference = SQE_variable(request, FALSE);
+			if (reference->ref_field = field)
+				field = field->fld_next;
+			ref_ptr = &reference->ref_next;
+			outputs++;
+		} while (MATCH(KW_COMMA));
+		if (paren)
+			EXP_match_paren();
+	}
+
+	if (procedure->prc_in_count != inputs)
+		PAR_error("count of input values doesn't match count of parameters");
+	if (procedure->prc_out_count != outputs)
+		PAR_error("count of output values doesn't match count of parameters");
+
+	request->req_node = list = MAKE_NODE(nod_list, inputs);
+	ptr = &list->nod_arg[inputs];
+	while (values)
+		*--ptr = (NOD) POP(&values);
+
+	action = MAKE_ACTION(request, ACT_procedure);
+	action->act_object = (REF) procedure;
+	action->act_whenever = gen_whenever();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle the stand alone SQL select statement.
+//  
+
+static ACT act_select(void)
+{
+	REQ request;
+	ACT action;
+	RSE select;
+	TEXT s[ERROR_LENGTH];
+
+	request = MAKE_REQUEST(REQ_for);
+	par_options(&request->req_trans);
+	request->req_rse = select = SQE_select(request, FALSE);
+
+	if (!MATCH(KW_SEMI_COLON)) {
+		sprintf(s, "Expected ';', got %s.", token.tok_string);
+		CPR_warn(s);
+	}
+
+	if (select->rse_into)
+		into(request, select->rse_fields, select->rse_into);
+
+	action = MAKE_ACTION(request, ACT_select);
+	action->act_object = (REF) select->rse_into;
+	action->act_whenever = gen_whenever();
+	EXP_rse_cleanup(select);
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a SET <something>
+//  
+
+static ACT act_set(void)
+{
+
+	if (MATCH(KW_TRANSACTION))
+		return act_set_transaction();
+
+	if (MATCH(KW_NAMES))
+		return act_set_names();
+
+	if (MATCH(KW_STATISTICS))
+		return act_set_statistics();
+
+	if (MATCH(KW_SCHEMA) || MATCH(KW_DATABASE))
+		return PAR_database((USHORT) TRUE);
+
+	if (MATCH(KW_GENERATOR))
+		return act_set_generator();
+
+	if (MATCH(KW_SQL)) {
+		if (MATCH(KW_DIALECT))
+			return act_set_dialect();
+	}
+
+	SYNTAX_ERROR
+		("TRANSACTION, NAMES, SCHEMA, DATABASE, GENERATOR, DIALECT or STATISTICS");
+	return NULL;				/* silence compiler */
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a SET SQL DIALECT
+//  
+
+static ACT act_set_dialect(void)
+{
+	ACT action;
+	USHORT dialect;
+
+	action = (ACT) ALLOC(ACT_LEN);
+	action->act_type = ACT_sql_dialect;
+
+	dialect = EXP_USHORT_ordinal(0 /*FALSE*/);
+	if ((dialect < 1) || (dialect > 3))
+		SYNTAX_ERROR("SQL DIALECT 1,2 or 3");
+
+	if (isc_databases && dialect != compiletime_db_dialect
+		&& sw_ods_version < 10) {
+		char warn_mesg[100];
+		sprintf(warn_mesg,
+				"Pre 6.0 database. Cannot use dialect %d, Resetting to %d\n",
+				dialect, SQL_DIALECT_V5);
+		dialect = SQL_DIALECT_V5;
+		CPR_warn(warn_mesg);
+	}
+	else if (isc_databases && dialect != compiletime_db_dialect) {
+		char warn_mesg[100];
+		sprintf(warn_mesg,
+				"Client dialect set to %d. Compiletime database dialect is %d\n",
+				dialect, compiletime_db_dialect);
+		CPR_warn(warn_mesg);
+	}
+
+	action->act_object = (REF) ALLOC(SDT_LEN);
+	((SDT) action->act_object)->sdt_dialect = dialect;
+
+//  Needed because subsequent parsing pass1 looks at sw_Sql_dialect value 
+	sw_sql_dialect = dialect;
+	dialect_specified = 1;
+
+	ADVANCE_TOKEN;
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a SET generator
+//  
+
+static ACT act_set_generator(void)
+{
+	ACT action;
+	SGEN setgen;
+	REQ request;
+	SCHAR s[128];
+
+	request = MAKE_REQUEST(REQ_set_generator);
+	action = (ACT) MAKE_ACTION(request, ACT_s_start);
+	setgen = (SGEN) ALLOC(SGEN_LEN);
+
+	if (isc_databases && !isc_databases->dbb_next)
+		request->req_database = isc_databases;
+	else
+		PAR_error("Can SET GENERATOR in context of single database only");
+
+	if (token.tok_length > NAME_SIZE)
+		PAR_error("Generator name too long");
+
+	setgen->sgen_name = (TEXT *) ALLOC(token.tok_length + 1);
+	SQL_resolve_identifier("<identifier>", setgen->sgen_name);
+	if (!MET_generator(setgen->sgen_name, request->req_database)) {
+		sprintf(s, "generator %s not found", token.tok_string);
+		PAR_error(s);
+	}
+	ADVANCE_TOKEN;
+	MATCH(KW_TO);
+	if ((sw_sql_dialect == SQL_DIALECT_V5) || (sw_server_version < 6)) {
+		setgen->sgen_value = EXP_SLONG_ordinal(TRUE);
+		setgen->sgen_dialect = SQL_DIALECT_V5;
+	}
+	else {
+// ** dialect is > 1. Server can handle int64 *
+
+		setgen->sgen_int64value = EXP_SINT64_ordinal(TRUE);
+		setgen->sgen_dialect = SQL_DIALECT_V5 + 1;
+	}
+	action->act_whenever = gen_whenever();
+	action->act_object = (REF) setgen;
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a SET NAMES <charset>;
+//  
+
+static ACT act_set_names(void)
+{
+	ACT action;
+	TEXT *value;
+	DBB db;
+	char buffer[256];
+
+	if (sw_auto)
+		CPR_warn("SET NAMES requires -manual switch to gpre.");
+
+	action = (ACT) ALLOC(ACT_LEN);
+	action->act_type = ACT_noop;
+
+	if (MATCH(KW_COLON)) {
+		/* User is specifying a host variable or string as
+		 * the character set.  Make this the run-time set.
+		 */
+		value = PAR_native_value(FALSE, FALSE);
+		for (db = isc_databases; db; db = db->dbb_next) {
+			if (db->dbb_r_lc_ctype) {
+				sprintf(buffer,
+						"Supersedes runtime character set for database %s",
+						(db->dbb_filename) ? db->dbb_filename : db->dbb_name->
+						sym_string);
+				CPR_warn(buffer);
+			}
+			db->dbb_r_lc_ctype = value;
+		}
+	}
+	else if (token.tok_type == tok_ident) {
+		/* User is specifying the name of a character set */
+		/* Make this the compile time character set */
+
+		value = (TEXT *) ALLOC(token.tok_length + 1);
+		COPY(token.tok_string, token.tok_length, value);
+		value[token.tok_length] = '\0';
+
+		/* Due to the ambiguities involved in having modules expressed
+		 * in multiple compile-time character sets, we disallow it.
+		 */
+		if (module_lc_ctype && strcmp(module_lc_ctype, value) != 0)
+			PAR_error("Duplicate declaration of module CHARACTER SET");
+
+		module_lc_ctype = value;
+		for (db = isc_databases; db; db = db->dbb_next) {
+			if (db->dbb_c_lc_ctype) {
+				sprintf(buffer, "Supersedes character set for database %s",
+						(db->dbb_filename) ? db->dbb_filename : db->dbb_name->
+						sym_string);
+				CPR_warn(buffer);
+			}
+
+			db->dbb_c_lc_ctype = value;
+			if (!(db->dbb_flags & DBB_sqlca)) {
+				/* Verify that character set name is valid,
+				 * this requires a database to be previously declared
+				 * so we can resolve against it.
+				 * So what if we go through this code once for each database...
+				 */
+				if (!(MSC_find_symbol(token.tok_symbol, SYM_charset)))
+					PAR_error("The named CHARACTER SET was not found");
+			}
+		}
+		CPR_token();
+	}
+	else
+		SYNTAX_ERROR("<character set name> or :<hostvar>");
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a SET statistics
+//  
+
+static ACT act_set_statistics(void)
+{
+	ACT action;
+	STS stats;
+	REQ request;
+
+	request = MAKE_REQUEST(REQ_ddl);
+	action = (ACT) MAKE_ACTION(request, ACT_statistics);
+	stats = (STS) ALLOC(STS_LEN);
+
+	if (isc_databases && !isc_databases->dbb_next)
+		request->req_database = isc_databases;
+	else
+		PAR_error("Can SET STATISTICS in context of single database only");
+
+	if (MATCH(KW_INDEX)) {
+		stats->sts_flags = STS_index;
+		stats->sts_name = (STR) ALLOC(NAME_SIZE + 1);
+		SQL_resolve_identifier("<index name>", (TEXT *) stats->sts_name);
+		if (token.tok_length > NAME_SIZE)
+			PAR_error("Index name too long");
+		ADVANCE_TOKEN;
+	}
+	else
+		SYNTAX_ERROR("INDEX");
+
+	action->act_object = (REF) stats;
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a set transaction
+//  
+
+static ACT act_set_transaction(void)
+{
+	ACT action;
+	TRA trans;
+
+	action = (ACT) ALLOC(ACT_LEN);
+	action->act_type = ACT_start;
+
+	trans = (TRA) ALLOC(TRA_LEN);
+
+	if (MATCH(KW_NAME))
+		trans->tra_handle = PAR_native_value(FALSE, TRUE);
+
+//  Get all the transaction parameters 
+
+	while (TRUE) {
+		if (MATCH(KW_ISOLATION)) {
+			MATCH(KW_LEVEL);
+			if (!par_transaction_modes(trans, TRUE))
+				SYNTAX_ERROR("SNAPSHOT");
+
+			continue;
+		}
+
+		if (par_transaction_modes(trans, FALSE))
+			continue;
+
+		if (MATCH(KW_NO)) {
+			if (MATCH(KW_WAIT)) {
+				trans->tra_flags |= TRA_nw;
+				continue;
+			}
+			SYNTAX_ERROR("WAIT");
+		}
+
+		if (MATCH(KW_WAIT))
+			continue;
+
+#ifdef DEV_BUILD
+		if (MATCH(KW_AUTOCOMMIT)) {
+			trans->tra_flags |= TRA_autocommit;
+			continue;
+		}
+#endif
+
+		if (MATCH(KW_NO_AUTO_UNDO)) {
+			trans->tra_flags |= TRA_no_auto_undo;
+			continue;
+		}
+
+		break;
+	}
+
+//  send out for the list of reserved relations 
+
+	if (MATCH(KW_RESERVING)) {
+		trans->tra_flags |= TRA_rrl;
+		PAR_reserving(trans->tra_flags, 1);
+	}
+	else if (MATCH(KW_USING)) {
+		trans->tra_flags |= TRA_inc;
+		PAR_using_db();
+	}
+
+	CMP_t_start(trans);
+	action->act_object = (REF) trans;
+	action->act_whenever = gen_whenever();
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Generate a COMMIT, FINISH, or ROLLBACK.
+//  
+
+static ACT act_transaction( enum act_t type)
+{
+	ACT action;
+	TEXT *transaction;
+
+	par_options(&transaction);
+	MATCH(KW_WORK);
+	action = (ACT) ALLOC(ACT_LEN);
+	action->act_type = type;
+	action->act_whenever = gen_whenever();
+	action->act_object = (REF) transaction;
+
+	if (MATCH(KW_RELEASE)) {
+		type = (type == ACT_commit) ? ACT_finish : ACT_rfinish;
+		if (transaction) {
+			action->act_rest = (ACT) ALLOC(ACT_LEN);
+			action->act_rest->act_type = type;
+		}
+		else
+			action->act_type = type;
+	}
+	else if ((type == ACT_commit) && (MATCH(KW_RETAIN))) {
+		MATCH(KW_SNAPSHOT);
+		action->act_type = type = ACT_commit_retain_context;
+	}
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse an update action.  This is a little more complicated
+//		because SQL confuses the update of a cursor with a mass update.
+//		The syntax, and therefor the code, I fear, is a mess.
+//  
+
+static ACT act_update(void)
+{
+	ACT action, slice_action;
+	REQ request, slice_request;
+	REL relation;
+	RSE rse;
+	CTX input_context, update_context;
+	NOD set_list, *end_list, set_item, modify, *ptr;
+	UPD update;
+	LLS stack;
+	SYM alias;
+	REF field_ref, req_ref;
+	SLC slice;
+	SCHAR *transaction, r_name[NAME_SIZE + 1], db_name[NAME_SIZE + 1],
+		owner_name[NAME_SIZE + 1], *str_1, *str_2;
+	SSHORT where, count, i, found = FALSE, trans_nm_len;
+
+	par_options(&transaction);
+
+//  First comes the relation.  Unfortunately, there is no way to identify
+//  its database until the cursor is known.  Sigh.  Save the token. 
+
+	SQL_relation_name(r_name, db_name, owner_name);
+
+//  Parse the optional alias (context variable) 
+
+	alias = (token.tok_symbol) ? NULL : PAR_symbol(SYM_dummy);
+
+//  Now we need the SET list list.  Do this thru a linked list stack 
+
+	if (!MATCH(KW_SET))
+		SYNTAX_ERROR("SET");
+
+	request = MAKE_REQUEST(REQ_mass_update);
+	relation = SQL_relation(request, r_name, db_name, owner_name, TRUE);
+	input_context = MAKE_CONTEXT(request);
+	input_context->ctx_relation = relation;
+	if (alias) {
+		alias->sym_type = SYM_context;
+		alias->sym_object = input_context;
+		HSH_insert(alias);
+		token.tok_symbol = HSH_lookup(token.tok_string);
+	}
+
+	stack = NULL;
+	count = 0;
+
+	do {
+		set_item = MAKE_NODE(nod_assignment, 2);
+		set_item->nod_arg[1] = SQE_field(NULL, FALSE);
+		if (!MATCH(KW_EQUALS))
+			SYNTAX_ERROR("assignment operator");
+		if (MATCH(KW_NULL))
+			set_item->nod_arg[0] = MAKE_NODE(nod_null, 0);
+		else
+			set_item->nod_arg[0] = SQE_value(request, FALSE, 0, 0);
+		PUSH(set_item, &stack);
+		count++;
+	} while (MATCH(KW_COMMA));
+
+	set_list = MAKE_NODE(nod_list, count);
+	ptr = end_list = set_list->nod_arg + count;
+
+	while (stack)
+		*--ptr = (NOD) POP(&stack);
+
+//  Now the moment of truth.  If the next few tokens are WHERE CURRENT OF
+//  then this is a sub-action of an existing request.  If not, then it is
+//  a free standing request 
+
+	if ((where = MATCH(KW_WITH)) && MATCH(KW_CURRENT)) {
+		if (!MATCH(KW_OF))
+			SYNTAX_ERROR("OF cursor");
+
+		/* Allocate update block, flush old request block, then
+		   find the right request block, and the target relation */
+
+		update = (UPD) ALLOC(UPD_LEN);
+		update->upd_references = request->req_values;
+		MSC_free_request(request);
+
+		request = par_cursor(NULL);
+		if (request->req_flags == REQ_sql_blob_create)
+			PAR_error("expected a TABLE cursor, got a BLOB cursor");
+		if ((transaction || request->req_trans) &&
+			(!transaction || !request->req_trans ||
+			 strcmp(transaction, request->req_trans))) {
+			if (transaction)
+				PAR_error("different transaction for select and update");
+			else {				/* does not specify transaction clause in      */
+				/*   "update ... where cuurent of cursor" stmt */
+				trans_nm_len = strlen(request->req_trans);
+				str_2 = transaction = (SCHAR *) ALLOC(trans_nm_len + 1);
+				str_1 = request->req_trans;
+				do
+					*str_2++ = *str_1++;
+				while (--trans_nm_len);
+			}
+		}
+		request->req_trans = transaction;
+		relation = SQL_relation(request, r_name, db_name, owner_name, TRUE);
+
+		/* Given the target relation, find the input context for the modify */
+
+		rse = request->req_rse;
+		for (i = 0; i < rse->rse_count; i++) {
+			input_context = rse->rse_context[i];
+			if (input_context->ctx_relation == relation)
+				break;
+		}
+
+		if (i == rse->rse_count)
+			PAR_error("table not in request");
+
+		/* Resolve input fields first */
+
+		if (alias) {
+			alias->sym_type = SYM_context;
+			alias->sym_object = input_context;
+			HSH_insert(alias);
+		}
+
+		for (ptr = set_list->nod_arg; ptr < end_list; ptr++) {
+			set_item = *ptr;
+			SQE_resolve(set_item->nod_arg[0], request, 0);
+			pair(set_item->nod_arg[0], set_item->nod_arg[1]);
+		}
+
+		update->upd_request = request;
+		update->upd_source = input_context;
+		update->upd_update = update_context = MAKE_CONTEXT(request);
+		update_context->ctx_relation = relation;
+		update->upd_assignments = set_list;
+
+		action = MAKE_ACTION(request, ACT_update);
+
+		/* Resolve update fields next */
+
+		if (alias)
+			alias->sym_object = update_context;
+
+		for (ptr = set_list->nod_arg; ptr < end_list; ptr++) {
+			set_item = *ptr;
+			SQE_resolve(set_item->nod_arg[1], request, 0);
+			field_ref = (REF) ((set_item->nod_arg[1])->nod_arg[0]);
+			if ((slice_action = (ACT) field_ref->ref_slice) &&
+				(slice = (SLC) slice_action->act_object)) {
+				/* These requests got lost in freeing the main request  */
+
+				slice_request = slice_action->act_request;
+				slice_request->req_next = requests;
+				requests = slice_request;
+				slice->slc_field_ref = field_ref;
+				slice->slc_array = (NOD) set_item->nod_arg[0];
+				slice->slc_parent_request = request;
+				slice_action->act_type = ACT_put_slice;
+
+				/* If slice ref is not yet posted, post it.
+				   This is required to receive the handle for the
+				   array being updated */
+
+				found = FALSE;
+				for (req_ref = request->req_references; req_ref;
+					 req_ref = req_ref->ref_next) {
+					if (req_ref == field_ref) {
+						set_item->nod_arg[1]->nod_arg[0] = (NOD) req_ref;
+						found = TRUE;
+						break;
+					}
+					if ((req_ref->ref_field == field_ref->ref_field) &&
+						(req_ref->ref_context == field_ref->ref_context))
+						PAR_error
+							("Can't update multiple slices of same column");
+				}
+				if (!found) {
+					field_ref->ref_next = request->req_references;
+					request->req_references = field_ref;
+				}
+			}
+			pair(set_item->nod_arg[0], set_item->nod_arg[1]);
+		}
+
+		action->act_whenever = gen_whenever();
+		action->act_object = (REF) update;
+		if (alias)
+			HSH_remove(alias);
+		return action;
+	}
+
+	request->req_trans = transaction;
+
+//  How amusing.  After all that work, it wasn't a sub-action at all.
+//  Neat.  Take the pieces and build a complete request.  Start by
+//  figuring out what database is involved.  
+
+//  Generate record select expression, then resolve input values 
+
+	request->req_rse = rse = (RSE) ALLOC(RSE_LEN(1));
+	rse->rse_count = 1;
+	rse->rse_context[0] = input_context;
+
+	if (!alias && !token.tok_symbol)
+		/* may have a relation name put parser didn't know it when it parsed it */
+		token.tok_symbol = HSH_lookup(token.tok_string);
+
+	for (ptr = set_list->nod_arg; ptr < end_list; ptr++) {
+		set_item = *ptr;
+		SQE_resolve(set_item->nod_arg[0], request, rse);
+	}
+
+//  Process boolean, if any 
+
+	if (where)
+		rse->rse_boolean = SQE_boolean(request, 0);
+
+//  Resolve update fields to update context 
+
+	request->req_update = update_context = MAKE_CONTEXT(request);
+	update_context->ctx_relation = relation;
+
+	if (alias)
+		alias->sym_object = update_context;
+
+	for (ptr = set_list->nod_arg; ptr < end_list; ptr++) {
+		set_item = *ptr;
+		SQE_resolve(set_item->nod_arg[1], request, 0);
+		field_ref = (REF) ((set_item->nod_arg[1])->nod_arg[0]);
+		if (slice_action = (ACT) field_ref->ref_slice) {
+			/* Slices not allowed in searched updates  */
+
+			PAR_error("Updates of slices not allowed in searched updates");
+		}
+
+		/* In dialect 1, neither the value being assigned (nod_arg[0])
+		   nor the field to which it is being assigned (nod_arg[1]) may
+		   be of a data type added in V6. */
+		if (SQL_DIALECT_V5 == sw_sql_dialect) {
+			USHORT field_dtype;
+			int arg_num;
+			for (arg_num = 0; arg_num <= 1; arg_num++)
+				if (nod_field == set_item->nod_arg[arg_num]->nod_type) {
+					field_dtype =
+						((REF)
+						 (set_item->nod_arg[arg_num]->
+						  nod_arg[0]))->ref_field->fld_dtype;
+					if ((dtype_sql_date == field_dtype)
+						|| (dtype_sql_time == field_dtype)
+						|| (dtype_int64 == field_dtype)) {
+						dialect1_bad_type(field_dtype);
+					}
+				}
+		}
+
+		pair(set_item->nod_arg[0], set_item->nod_arg[1]);
+	}
+
+	request->req_node = modify = MAKE_NODE(nod_modify, 1);;
+	modify->nod_arg[0] = set_list;
+
+	action = MAKE_ACTION(request, ACT_loop);
+	action->act_whenever = gen_whenever();
+
+	if (alias)
+		HSH_remove(alias);
+
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL whenever statement.  This is declaratory,
+//		rather than a significant action.
+//  
+
+static ACT act_whenever(void)
+{
+	USHORT condition, l;
+	TEXT *p, *q;
+	SWE label;
+	ACT action;
+
+	whenever_list = NULL;
+
+//  Pick up condition 
+
+	if (MATCH(KW_SQLERROR))
+		condition = SWE_error;
+	else if (MATCH(KW_SQLWARNING))
+		condition = SWE_warning;
+	else if (MATCH(KW_NOT) && MATCH(KW_FOUND))
+		condition = SWE_not_found;
+	else
+		SYNTAX_ERROR("WHENEVER condition");
+
+//  Pick up action 
+
+	if (MATCH(KW_CONTINUE))
+		label = NULL;
+	else if ((MATCH(KW_GO) && MATCH(KW_TO)) || MATCH(KW_GOTO)) {
+		MATCH(KW_COLON);
+		l = token.tok_length;
+		label = (SWE) ALLOC(sizeof(struct swe) + l);
+		label->swe_condition = condition;
+		if (label->swe_length = l) {
+			p = label->swe_label;
+			q = token.tok_string;
+			do
+				*p++ = *q++;
+			while (--l);
+		}
+		ADVANCE_TOKEN;
+		label->swe_condition = condition;
+	}
+	else
+		SYNTAX_ERROR("GO TO or CONTINUE");
+
+//  Set up condition vector 
+
+	whenever[condition] = label;
+
+	action = (ACT) ALLOC(ACT_LEN);
+	action->act_type = ACT_noop;
+
+	MATCH(KW_SEMI_COLON);
+	return action;
+}
+
+
+//____________________________________________________________
+//  
+//		Make sure that a file path doesn't contain a
+//		Decnet node name.
+//  
+
+static BOOLEAN check_filename( TEXT * name)
+{
+	USHORT l;
+	TEXT *p, file_name[256];
+
+	if (!(l = strlen(name)))
+		return TRUE;
+
+	for (p = name; *p; p++)
+		if (p[0] == ':' && p[1] == ':')
+			return FALSE;
+
+	l = MIN(l, sizeof(file_name) - 1);
+	strncpy(file_name, name, l);
+	file_name[l] = '\0';
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse connect options
+//  
+
+static void connect_opts(
+						 TEXT ** user,
+						 TEXT ** password,
+						 TEXT ** sql_role,
+						 TEXT ** lc_messages, USHORT * buffers)
+{
+	TEXT *s;
+
+	for (;;) {
+		if (MATCH(KW_CACHE)) {
+			*buffers = atoi(token.tok_string);
+			ADVANCE_TOKEN;
+			MATCH(KW_BUFFERS);
+		}
+		else if (MATCH(KW_USER))
+			*user = SQL_var_or_string(FALSE);
+		else if (MATCH(KW_PASSWORD))
+			*password = SQL_var_or_string(FALSE);
+		else if (MATCH(KW_ROLE)) {
+			if (token.tok_type == tok_ident) {
+				s = (TEXT *) ALLOC(token.tok_length + 3);
+											   /** extra bytes for quotes and NULL **/
+				SQL_resolve_identifier("<Role Name>", s);
+				s[0] = '\"';
+				strcpy(s + 1, token.tok_string);
+				strcat(s, "\"");
+				*sql_role = s;
+			}
+			else
+				*sql_role = SQL_var_or_string(FALSE);
+		}
+		else if (MATCH(KW_LC_MESSAGES))
+			*lc_messages = SQL_var_or_string(FALSE);
+		else
+			break;
+	}
+
+}
+
+
+//____________________________________________________________
+//  
+//		Add a shared cache to an existing database.
+//  
+
+static FIL define_cache(void)
+{
+	FIL file;
+	TEXT *string;
+	TEXT err_string[256];
+
+	file = (FIL) ALLOC(sizeof(struct fil));
+	if (QUOTED(token.tok_type)) {
+		file->fil_name = string = (TEXT *) ALLOC(token.tok_length + 1);
+		COPY(token.tok_string, token.tok_length, string);
+		ADVANCE_TOKEN;
+	}
+	else
+		SYNTAX_ERROR("<quoted filename>");
+	if (!check_filename(file->fil_name))
+		PAR_error("node name not permitted");	/* a node name is not permitted in a shared cache file name */
+
+	if (MATCH(KW_LENGTH)) {
+		file->fil_length = EXP_ULONG_ordinal(TRUE);
+		if (file->fil_length < MIN_CACHE_BUFFERS) {
+			sprintf(err_string, "Minimum of %d cache pages required",
+					MIN_CACHE_BUFFERS);
+			PAR_error(err_string);
+		}
+		MATCH(KW_PAGES);
+	}
+	else
+		file->fil_length = DEF_CACHE_BUFFERS;	/* default cache buffers */
+
+	return file;
+}
+
+
+//____________________________________________________________
+//  
+//		Add a new file to an existing database.
+//  
+
+static FIL define_file(void)
+{
+	FIL file;
+	TEXT *string;
+
+	file = (FIL) ALLOC(sizeof(struct fil));
+	if (QUOTED(token.tok_type)) {
+		file->fil_name = string = (TEXT *) ALLOC(token.tok_length + 1);
+		COPY(token.tok_string, token.tok_length, string);
+		token.tok_length += 2;
+		ADVANCE_TOKEN;
+	}
+	else
+		SYNTAX_ERROR("<quoted filename>");
+
+	if (!check_filename(file->fil_name))
+		PAR_error("node name not permitted");	/* A node name is not permitted in a shadow or secondary file name */
+
+	while (TRUE) {
+		if (MATCH(KW_LENGTH)) {
+			MATCH(KW_EQUALS);
+			file->fil_length = EXP_ULONG_ordinal(TRUE);
+			MATCH(KW_PAGES);
+			MATCH(KW_PAGE);
+		}
+		else if (MATCH(KW_STARTS) || MATCH(KW_STARTING)) {
+			MATCH(KW_AT);
+			MATCH(KW_PAGE);
+			file->fil_start = EXP_ULONG_ordinal(TRUE);
+		}
+		else
+			break;
+	}
+
+	return file;
+}
+
+
+//____________________________________________________________
+//  
+//		define a log file 
+//  
+
+static FIL define_log_file( BOOLEAN log_serial)
+{
+	FIL file;
+	TEXT *string;
+	TEXT err_string[256];
+
+	file = (FIL) ALLOC(sizeof(struct fil));
+	if (QUOTED(token.tok_type)) {
+		file->fil_name = string = (TEXT *) ALLOC(token.tok_length + 1);
+		COPY(token.tok_string, token.tok_length, string);
+		ADVANCE_TOKEN;
+	}
+	else
+		SYNTAX_ERROR("<quoted filename>");
+
+	if (!check_filename(file->fil_name))
+		PAR_error("node name not permitted");	/* A node name is not permitted in a shadow or secondary file name */
+
+	while (TRUE) {
+		if (MATCH(KW_SIZE)) {
+			MATCH(KW_EQUALS);
+			file->fil_length = EXP_ULONG_ordinal(TRUE);
+		}
+// **** REMOVED for now from the product.
+//   else if (MATCH (KW_RAW_PARTITIONS))
+// { 
+// if (log_serial)
+//    PAR_error ("Partitions not supported in series of log file specification");
+// MATCH (KW_EQUALS);
+// file->fil_partitions = EXP_USHORT_ordinal (TRUE);
+// file->fil_flags |= FIL_raw;
+// } 
+//***
+		else
+			break;
+	}
+
+	if (file->fil_partitions) {
+		if (!file->fil_length) {
+			sprintf(err_string,
+					"Total length of the partitioned log %s must be specified",
+					file->fil_name);
+			PAR_error(err_string);
+		}
+
+		if (PARTITION_SIZE(OneK * file->fil_length, file->fil_partitions) <
+			OneK * MIN_LOG_LENGTH) {
+			sprintf(err_string, "log partition size too small for %s",
+					file->fil_name);
+			PAR_error(err_string);
+		}
+	}
+	else {
+		if ((file->fil_length) && (file->fil_length < MIN_LOG_LENGTH)) {
+			/* msg 336: Minimum log length should be MIN_LOG_LENGTH Kbytes */
+			sprintf(err_string,
+					"Minimum log length should be %d Kbytes", MIN_LOG_LENGTH);
+			PAR_error(err_string);
+		}
+	}
+
+	return file;
+}
+
+
+static DBB dup_dbb( DBB db)
+{
+
+// ****************************************
+//  
+//		d u p _ d b b
+//  
+// ****************************************
+//  
+//		dirty duplication of a dbb.
+//		just memcpy as no memory 
+//		is freed in gpre.
+//  
+// *************************************
+	DBB newdb;
+
+	if (!db)
+		return NULL;
+	newdb = (DBB) ALLOC(DBB_LEN);
+	memcpy((SCHAR *) newdb, (SCHAR *) db, (size_t) DBB_LEN);
+
+	return newdb;
+}
+
+
+//____________________________________________________________
+//  
+//       Report an error with parameter
+//  
+
+static void error( TEXT * string, TEXT * string2)
+{
+	TEXT buffer[256];
+
+	sprintf(buffer, string, string2);
+	PAR_error(buffer);
+}
+
+
+//____________________________________________________________
+//  
+//       Extract string from "string" in
+//		token.
+//  
+
+static TEXT *extract_string( BOOLEAN advance_token)
+{
+	TEXT *string = NULL;
+
+	switch (sw_sql_dialect) {
+	case 1:
+		if (!QUOTED(token.tok_type))
+			SYNTAX_ERROR("<string>");
+		break;
+
+	default:
+		if (!SINGLE_QUOTED(token.tok_type))
+			SYNTAX_ERROR("<string>");
+		break;
+	}
+
+	string = (TEXT *) ALLOC(token.tok_length + 1);
+	COPY(token.tok_string, token.tok_length, string);
+	if (advance_token)
+		ADVANCE_TOKEN;
+	return string;
+}
+
+
+
+//____________________________________________________________
+//  
+//		Generate a linked list of SQL WHENEVER items for error
+//		handling.
+//  
+
+static SWE gen_whenever(void)
+{
+	SWE label, prior, proto;
+	USHORT i, l;
+	TEXT *p, *q;
+
+	if (whenever_list)
+		return whenever_list;
+
+	whenever_list = label = NULL;
+
+	for (i = 0; i < SWE_max; i++)
+		if (proto = whenever[i]) {
+			prior = label;
+			l = proto->swe_length;
+			label = (SWE) ALLOC(sizeof(struct swe) + l);
+			label->swe_next = prior;
+			label->swe_condition = proto->swe_condition;
+			if (l) {
+				p = label->swe_label;
+				q = proto->swe_label;
+				do
+					*p++ = *q++;
+				while (--l);
+			}
+		}
+
+	return label;
+}
+
+
+//____________________________________________________________
+//  
+//		Correlate the into list with the select expression list
+//		to form full references (post same against request).
+//  
+
+static void into( REQ request, NOD field_list, NOD var_list)
+{
+	REF var_ref, field_ref, reference;
+	NOD *var_ptr, *fld_ptr, *end;
+	FLD field;
+	REQ slice_req;
+	SSHORT found = FALSE;
+
+	if (!var_list)
+		PAR_error("INTO list is required");
+
+	if (!field_list || field_list->nod_count != var_list->nod_count)
+		PAR_error
+			("column count and number of INTO list host-variables unequal");
+
+	var_ptr = var_list->nod_arg;
+	fld_ptr = field_list->nod_arg;
+
+	for (end = fld_ptr + var_list->nod_count; fld_ptr < end;
+		 fld_ptr++, var_ptr++) {
+		var_ref = (REF) * var_ptr;
+		if (((*fld_ptr)->nod_type == nod_field)
+			|| ((*fld_ptr)->nod_type == nod_array)) {
+			field_ref = (REF) (*fld_ptr)->nod_arg[0];
+			slice_req = (REQ) (*fld_ptr)->nod_arg[2];
+		}
+		else
+			field_ref = 0;
+		if (field_ref && slice_req && (field = field_ref->ref_field)
+			&& field->fld_array) {
+			EXP_post_array(field_ref);
+
+			/* If field ref not posted yet, post it   */
+
+			found = FALSE;
+			for (reference = request->req_references; reference;
+				 reference = reference->ref_next) {
+				if (reference == field_ref) {
+					found = TRUE;
+					break;
+				}
+			}
+			if (!found) {
+				field_ref->ref_next = request->req_references;
+				request->req_references = field_ref;
+			}
+			reference = field_ref;
+		}
+		else
+			reference = SQE_post_reference(request, 0, 0, *fld_ptr);
+		var_ref->ref_friend = reference;
+		reference->ref_null_value = var_ref->ref_null_value;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Create field in a relation for a metadata request.
+//  
+
+static FLD make_field( REL relation)
+{
+	FLD field;
+	char s[ERROR_LENGTH];
+
+	SQL_resolve_identifier("<column name>", s);
+	field = MET_make_field(s, 0, 0, TRUE);
+	field->fld_relation = relation;
+	field->fld_flags |= FLD_meta;
+	ADVANCE_TOKEN;
+
+	return field;
+}
+
+
+//____________________________________________________________
+//  
+//		Create index for metadata request.
+//  
+
+static IND make_index( REQ request, TEXT * string)
+{
+	IND index;
+	TEXT s[ERROR_LENGTH];
+
+	if ((isc_databases) && (!(isc_databases->dbb_next))) {
+		strcpy(s, string);
+		index = MET_make_index(s);
+		if (request)
+			request->req_database = isc_databases;
+		index->ind_flags |= IND_meta;
+	}
+	else
+		PAR_error("Can only reference INDEX in context of single database");
+
+	return index;
+}
+
+
+//____________________________________________________________
+//  
+//		Create relation for a metadata request.
+//  
+
+static REL make_relation( REQ request, TEXT * relation_name)
+{
+	REL relation;
+	TEXT r[ERROR_LENGTH];
+
+	if (isc_databases && !isc_databases->dbb_next) {
+		strcpy(r, relation_name);
+
+		relation = MET_make_relation(r);
+		relation->rel_database = isc_databases;
+		relation->rel_meta = TRUE;
+
+		if (request)
+			request->req_database = isc_databases;
+	}
+	else
+		PAR_error("Can only reference TABLE in context of single database");
+
+	return relation;
+}
+
+
+//____________________________________________________________
+//  
+//		Given two value expressions associated in a relational
+//		expression, see if one is a field reference and the other
+//		is a host language variable..  If so, match the field to the
+//		host language variable.
+//		In other words, here we are guessing what the datatype is
+//		of a host language variable.
+//  
+
+static void pair( NOD expr, NOD field_expr)
+{
+	NOD *ptr, *end_ptr;
+	REF ref1, ref2;
+	MEL element;
+
+	if (field_expr->nod_type != nod_field)
+		return;
+
+	switch (expr->nod_type) {
+	case nod_value:
+		ref1 = (REF) field_expr->nod_arg[0];
+		ref2 = (REF) expr->nod_arg[0];
+
+		/* We're done if we've already determined the type of this reference
+		 * (if, for instance, it's a parameter to a UDF or PROCEDURE)
+		 */
+		if (ref2->ref_field)
+			return;
+
+		ref2->ref_field = ref1->ref_field;
+		if (ref1->ref_field->fld_array) {
+			ref2->ref_context = ref1->ref_context;
+			ref2->ref_friend = ref1;
+			EXP_post_array(ref1);
+			EXP_post_array(ref2);
+		}
+		return;
+
+	case nod_map_ref:
+		element = (MEL) expr->nod_arg[0];
+		pair(element->mel_expr, field_expr);
+		return;
+
+	case nod_field:
+	case nod_literal:
+		return;
+	}
+
+	ptr = expr->nod_arg;
+	end_ptr = ptr + expr->nod_count;
+
+	for (; ptr < end_ptr; ptr++)
+		pair(*ptr, field_expr);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse the multi-dimensional array specification.
+//  
+
+static void par_array( FLD field)
+{
+	SLONG rangeh, rangel;
+	SSHORT i = 0;
+	ARY array_info;
+
+//  Pick up ranges 
+
+	array_info = field->fld_array_info;
+
+	while (TRUE) {
+		rangel = EXP_SSHORT_ordinal(TRUE);
+		if (MATCH(KW_COLON))
+			rangeh = EXP_SSHORT_ordinal(TRUE);
+		else {
+			if (rangel < 1)
+				rangeh = 1;
+			else {
+				rangeh = rangel;
+				rangel = 1;
+			}
+		}
+
+		if (rangel >= rangeh)
+			PAR_error("Start of array range must be less than end of range");
+
+		if (i > MAX_ARRAY_DIMENSIONS)
+			PAR_error("Array has too many dimensions");
+
+		array_info->ary_rpt[i].ary_lower = rangel;
+		array_info->ary_rpt[i++].ary_upper = rangeh;
+
+		if (MATCH(KW_R_BRCKET))
+			break;
+
+		if (!MATCH(KW_COMMA))
+			SYNTAX_ERROR(", (comma)");
+	}
+
+	array_info->ary_dimension_count = i;
+}
+
+
+//____________________________________________________________
+//  
+//  
+//		Read in the specified character set on 
+//		a READ BLOB or an INSERT BLOB.
+//  
+
+static SSHORT par_char_set(void)
+{
+	SYM symbol;
+
+	if (!MATCH(KW_CHAR))
+		SYNTAX_ERROR("CHARACTER SET");
+
+	if (!MATCH(KW_SET))
+		SYNTAX_ERROR("CHARACTER SET");
+
+	if (token.tok_type != tok_ident)
+		SYNTAX_ERROR("<character set name>");
+
+	if (!(symbol = MSC_find_symbol(token.tok_symbol, SYM_charset)))
+		PAR_error("The named CHARACTER SET was not found");
+
+	ADVANCE_TOKEN;
+
+	return (((INTLSYM) symbol->sym_object)->intlsym_charset_id);
+}
+
+
+//____________________________________________________________
+//  
+//		Create a computed field
+//  
+
+static void par_computed( REQ request, FLD field)
+{
+	CMPF cmp;
+	struct fld save_fld;
+
+	MATCH(KW_BY);
+
+//  If field size has been specified, save it.  Then NULL it
+//  till the new size is calculated from the specified expression.
+//  This will catch self references.
+//  
+//  The user specified values will be restored to override calculated
+//  values.
+//  
+
+	save_fld = *field;
+
+	cmp = (CMPF) ALLOC(CMPF_LEN);
+	cmp->cmpf_text = CPR_start_text();
+	cmp->cmpf_boolean = SQE_value(request, FALSE, 0, 0);
+	CPR_end_text(cmp->cmpf_text);
+
+	field->fld_computed = cmp;
+	field->fld_flags |= FLD_computed;
+
+	CME_get_dtype(field->fld_computed->cmpf_boolean, field);
+
+//  If there was user specified data type/size, restore it 
+
+	if (save_fld.fld_dtype) {
+		field->fld_dtype = save_fld.fld_dtype;
+		field->fld_length = save_fld.fld_length;
+		field->fld_scale = save_fld.fld_scale;
+		field->fld_sub_type = save_fld.fld_sub_type;
+		field->fld_ttype = save_fld.fld_ttype;
+		field->fld_charset_id = save_fld.fld_charset_id;
+		field->fld_collate_id = save_fld.fld_collate_id;
+		field->fld_char_length = save_fld.fld_char_length;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Parse the next token as a cursor name.
+//		If it is, return the request associated with the cursor.  If
+//		not, produce an error and return NULL.
+//  
+
+static REQ par_cursor( SYM * symbol_ptr)
+{
+	SYM symbol;
+	TEXT t_cur[128];
+
+// ** 
+//   par_cursor() is called to use a previously declared cursor.
+//   tok_symbol == NULL means one of the two things.
+//   a) The name does not belong to a cursor. OR
+//   b) get_token() function in gpre.c was not able to find the cursor
+//      in hash table.
+//  
+//   case a) is an error condition.
+//   case b) Could have resulted because the cursor name was upcased and
+//    inserted into hash table since it was not quoted and it is 
+//    now being refered as it was declared.
+//  
+//   Hence, Try and lookup the cursor name after resolving it once more. If
+//   it still cannot be located, Its an error
+//*  
+
+	SQL_resolve_identifier("<cursor name>", t_cur);
+	token.tok_symbol = symbol = HSH_lookup(token.tok_string);
+	if (symbol && symbol->sym_type == SYM_keyword)
+		token.tok_keyword = (KWWORDS) symbol->sym_keyword;
+	else
+		token.tok_keyword = KW_none;
+
+	symbol = MSC_find_symbol(token.tok_symbol, SYM_cursor);
+	if (!symbol)
+		symbol = MSC_find_symbol(token.tok_symbol, SYM_delimited_cursor);
+	if (symbol) {
+		ADVANCE_TOKEN;
+		if (symbol_ptr)
+			*symbol_ptr = symbol;
+		return (REQ) symbol->sym_object;
+	}
+	else if (symbol = MSC_find_symbol(token.tok_symbol, SYM_dyn_cursor))
+		PAR_error("DSQL cursors require DSQL update & delete statements");
+	SYNTAX_ERROR("<cursor name>");
+	return NULL;				/* silence compiler */
+}
+
+
+//____________________________________________________________
+//  
+//		If this is a dynamic curser, return dynamic statement block.
+//  
+
+static DYN par_dynamic_cursor(void)
+{
+	SYM symbol;
+	TEXT t_cur[128];
+
+	if (token.tok_symbol == NULL) {
+		SQL_resolve_identifier("<cursor name>", t_cur);
+		token.tok_symbol = symbol = HSH_lookup(token.tok_string);
+		if (symbol && symbol->sym_type == SYM_keyword)
+			token.tok_keyword = (KWWORDS) symbol->sym_keyword;
+		else
+			token.tok_keyword = KW_none;
+	}
+	if (symbol = MSC_find_symbol(token.tok_symbol, SYM_dyn_cursor)) {
+		ADVANCE_TOKEN;
+		return (DYN) symbol->sym_object;
+	}
+
+	return NULL;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an SQL field definition in CREATE, DECLARE or 
+//		ALTER TABLE statement.
+//  
+
+static FLD par_field( REQ request, REL relation)
+{
+	FLD field;
+// *IND		index; 
+	CNSTRT *cnstrt;
+	int in_constraints;
+	NOD literal_node;
+
+	field = make_field(relation);
+
+	SQL_par_field_dtype(request, field, FALSE);
+
+	if (MATCH(KW_COMPUTED)) {
+		if (field->fld_global)
+			PAR_error("Cannot use domains to override computed column size");
+		if (field->fld_array_info)
+			PAR_error("Computed columns cannot be arrays");
+
+		par_computed(request, field);
+	}
+
+//  Check if default value was specified 
+
+	if (token.tok_keyword == KW_DEFAULT) {
+		field->fld_default_source = CPR_start_text();
+		ADVANCE_TOKEN;
+
+		if (MATCH(KW_USER))
+			field->fld_default_value = MAKE_NODE(nod_user_name, 0);
+// ** Begin sql/date/time/timestamp *
+		else if (MATCH(KW_CURRENT_DATE))
+			field->fld_default_value = MAKE_NODE(nod_current_date, 0);
+		else if (MATCH(KW_CURRENT_TIME))
+			field->fld_default_value = MAKE_NODE(nod_current_time, 0);
+		else if (MATCH(KW_CURRENT_TIMESTAMP))
+			field->fld_default_value = MAKE_NODE(nod_current_timestamp, 0);
+// ** End sql/date/time/timestamp *
+		else if (MATCH(KW_NULL))
+			field->fld_default_value = MAKE_NODE(nod_null, 0);
+		else {
+			if (MATCH(KW_MINUS)) {
+				if (token.tok_type != tok_number)
+					SYNTAX_ERROR("<number>");
+
+				literal_node = EXP_literal();
+				field->fld_default_value = MSC_unary(nod_negate,
+													 literal_node);
+			}
+			else if ((field->fld_default_value = EXP_literal()) == NULL)
+				SYNTAX_ERROR("<constant>");
+		}
+		CPR_end_text(field->fld_default_source);
+	}
+
+
+//  Check for any column level constraints 
+
+	cnstrt = &field->fld_constraints;
+	in_constraints = TRUE;
+
+	while (in_constraints) {
+		switch (token.tok_keyword) {
+		case KW_CONSTRAINT:
+		case KW_PRIMARY:
+		case KW_UNIQUE:
+		case KW_REFERENCES:
+		case KW_CHECK:
+		case KW_NOT:
+			*cnstrt = par_field_constraint(request, field, relation);
+			cnstrt = &(*cnstrt)->cnstrt_next;
+			break;
+
+		default:
+			in_constraints = FALSE;
+			break;
+		}
+	}
+//    if (MATCH (KW_NOT))
+//   if (MATCH (KW_NULL))
+// { 
+// field->fld_flags |= FLD_not_null;
+// if (MATCH (KW_UNIQUE))
+//    {
+//    index = (IND) ALLOC (IND_LEN);
+//    index->ind_relation = relation;
+//    index->ind_fields = field;
+//    index->ind_flags |= IND_dup_flag | IND_meta;
+//    index->ind_flags &= ~IND_descend;
+//    field->fld_index = index;
+//    }
+// } 
+//   else
+// SYNTAX_ERROR ("NULL");    
+
+	SQL_par_field_collate(request, field);
+	SQL_adjust_field_dtype(field);
+
+	return field;
+}
+
+
+//____________________________________________________________
+//  
+//		Create a field level constraint as part of CREATE TABLE or
+//		ALTER TABLE statement. Constraint maybe table or column level.
+//  
+
+static CNSTRT par_field_constraint( REQ request, FLD for_field, REL relation)
+{
+	enum kwwords keyword;
+	CNSTRT cnstrt;
+	STR field_name;
+
+	cnstrt = (CNSTRT) ALLOC(CNSTRT_LEN);
+
+	if (token.tok_keyword == KW_CONSTRAINT) {
+		ADVANCE_TOKEN;
+		cnstrt->cnstrt_name = (STR) ALLOC(NAME_SIZE + 1);
+		SQL_resolve_identifier("<constraint name>",
+							   (TEXT *) cnstrt->cnstrt_name);
+		if (token.tok_length > NAME_SIZE)
+			PAR_error("Constraint name too long");
+		ADVANCE_TOKEN;
+	}
+
+	switch (keyword = token.tok_keyword) {
+	case KW_NOT:
+		ADVANCE_TOKEN;
+		if (!MATCH(KW_NULL))
+			SYNTAX_ERROR("NULL");
+		cnstrt->cnstrt_type = CNSTRT_NOT_NULL;
+		for_field->fld_flags |= FLD_not_null;
+		break;
+
+	case KW_PRIMARY:
+	case KW_UNIQUE:
+	case KW_REFERENCES:
+		ADVANCE_TOKEN;
+		if (keyword == KW_PRIMARY) {
+			if (!MATCH(KW_KEY))
+				SYNTAX_ERROR("KEY");
+			cnstrt->cnstrt_type = CNSTRT_PRIMARY_KEY;
+		}
+		else if (keyword == KW_REFERENCES) {
+			cnstrt->cnstrt_type = CNSTRT_FOREIGN_KEY;
+		}
+		else
+			cnstrt->cnstrt_type = CNSTRT_UNIQUE;
+
+		/* Set field for PRIMARY KEY or FOREIGN KEY or UNIQUE constraint  */
+
+		field_name = (STR) ALLOC(NAME_SIZE + 1);
+		strcpy((char *) field_name, for_field->fld_symbol->sym_string);
+		PUSH((NOD) field_name, &cnstrt->cnstrt_fields);
+
+		if (keyword == KW_REFERENCES) {
+			/* Relation name for foreign key  */
+
+			cnstrt->cnstrt_referred_rel = (STR) ALLOC(NAME_SIZE + 1);
+			SQL_resolve_identifier("referred <table name>",
+								   (TEXT *) cnstrt->cnstrt_referred_rel);
+			if (token.tok_length > NAME_SIZE)
+				PAR_error("Referred table name too long");
+			ADVANCE_TOKEN;
+
+			if (MATCH(KW_LEFT_PAREN)) {
+				/* Field specified for referred relation  */
+
+				field_name = (STR) ALLOC(NAME_SIZE + 1);
+				SQL_resolve_identifier("<column name>", (TEXT *) field_name);
+				PUSH((NOD) field_name, &cnstrt->cnstrt_referred_fields);
+				CPR_token();
+				EXP_match_paren();
+			}
+
+			if (token.tok_keyword == KW_ON) {
+				par_fkey_extension(cnstrt);
+				ADVANCE_TOKEN;
+				if (token.tok_keyword == KW_ON) {
+					par_fkey_extension(cnstrt);
+					ADVANCE_TOKEN;
+				}
+			}
+		}
+		break;
+
+	case KW_CHECK:
+		ADVANCE_TOKEN;
+		cnstrt->cnstrt_type = CNSTRT_CHECK;
+		cnstrt->cnstrt_text = CPR_start_text();
+		cnstrt->cnstrt_boolean = SQE_boolean(request, 0);
+		CPR_end_text(cnstrt->cnstrt_text);
+		break;
+
+	default:
+		PAR_error("Invalid constraint type");
+	}
+
+	return cnstrt;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse the INTO clause for a dynamic SQL statement.
+//  
+
+static BOOLEAN par_into( DYN statement)
+{
+
+	if (!MATCH(KW_INTO))
+		return FALSE;
+
+	MATCH(KW_SQL);				/* "SQL" keyword is optional for backward compatibility */
+
+	if (!MATCH(KW_DESCRIPTOR))
+		SYNTAX_ERROR("DESCRIPTOR");
+
+	statement->dyn_sqlda2 = PAR_native_value(FALSE, FALSE);
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse request options.
+//  
+
+static void par_options( TEXT ** transaction)
+{
+
+	*transaction = NULL;
+
+	if (!MATCH(KW_TRANSACTION))
+		return;
+
+	*transaction = PAR_native_value(FALSE, TRUE);
+}
+
+
+//____________________________________________________________
+//  
+//		parse the page_size clause of a
+//		create database statement
+//  
+
+static int par_page_size(void)
+{
+	int n1, n2;
+
+	MATCH(KW_EQUALS);
+	n2 = n1 = EXP_USHORT_ordinal(FALSE);
+
+	if (n1 <= 1024)
+		n2 = 1024;
+	else if (n1 <= 2048)
+		n2 = 2048;
+	else if (n1 <= 4096)
+		n2 = 4096;
+	else if (n1 <= 8192)
+		n2 = 8192;
+	else
+		SYNTAX_ERROR("<page size> in range 1024 to 8096");
+	ADVANCE_TOKEN;
+
+	return n2;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse the next thing as a relation.
+//  
+
+static REL par_relation( REQ request)
+{
+	SCHAR r_name[NAME_SIZE + 1], db_name[NAME_SIZE + 1],
+		owner_name[NAME_SIZE + 1];
+
+	SQL_relation_name(r_name, db_name, owner_name);
+
+	return make_relation(request, r_name);
+}
+
+
+//____________________________________________________________
+//  
+//		Parse a dynamic statement name returning a dynamic
+//		statement block.
+//  
+
+static DYN par_statement(void)
+{
+	DYN statement;
+
+	statement = (DYN) ALLOC(DYN_LEN);
+	statement->dyn_statement_name = PAR_symbol(SYM_dummy);
+	statement->dyn_database = isc_databases;
+
+	return statement;
+}
+
+
+//____________________________________________________________
+//  
+//		Handle an extended foreign key definition as part of CREATE TABLE 
+//		or ALTER TABLE statements.
+//  
+
+static void par_fkey_extension( CNSTRT cnstrt)
+{
+	enum kwwords keyword;
+
+//  
+//   Extended foreign key definition could be as follows :
+//  
+//   [ON DELETE { NO ACTION | CASCADE | SET DEFAULT | SET NULL } ]
+//   [ON UPDATE { NO ACTION | CASCADE | SET DEFAULT | SET NULL } ]
+//  
+
+	assert(token.tok_keyword == KW_ON)
+		assert(cnstrt != NULL);
+
+	ADVANCE_TOKEN;
+
+	switch (keyword = token.tok_keyword) {
+	case KW_DELETE:
+		/* NOTE: action must be defined only once */
+		if (cnstrt->cnstrt_fkey_def_type & REF_DELETE_ACTION)
+			SYNTAX_ERROR("UPDATE");
+		else
+			cnstrt->cnstrt_fkey_def_type |= REF_DELETE_ACTION;
+		break;
+	case KW_UPDATE:
+		/* NOTE: action must be defined only once */
+		if (cnstrt->cnstrt_fkey_def_type & REF_UPDATE_ACTION)
+			SYNTAX_ERROR("DELETE");
+		else
+			cnstrt->cnstrt_fkey_def_type |= REF_UPDATE_ACTION;
+		break;
+	default:
+		/* unexpected keyword */
+		SYNTAX_ERROR("UPDATE or DELETE");
+		break;
+	}
+
+	ADVANCE_TOKEN;
+
+	switch (token.tok_keyword) {
+	case KW_NO:
+		ADVANCE_TOKEN;
+		if (token.tok_keyword != KW_ACTION)
+			SYNTAX_ERROR("ACTION");
+		else if (keyword == KW_DELETE)
+			cnstrt->cnstrt_fkey_def_type |= REF_DEL_NONE;
+		else
+			cnstrt->cnstrt_fkey_def_type |= REF_UPD_NONE;
+		break;
+	case KW_CASCADE:
+		if (keyword == KW_DELETE)
+			cnstrt->cnstrt_fkey_def_type |= REF_DEL_CASCADE;
+		else
+			cnstrt->cnstrt_fkey_def_type |= REF_UPD_CASCADE;
+		break;
+	case KW_SET:
+		ADVANCE_TOKEN;
+		switch (token.tok_keyword) {
+		case KW_DEFAULT:
+			if (keyword == KW_DELETE)
+				cnstrt->cnstrt_fkey_def_type |= REF_DEL_SET_DEFAULT;
+			else
+				cnstrt->cnstrt_fkey_def_type |= REF_UPD_SET_DEFAULT;
+			break;
+		case KW_NULL:
+			if (keyword == KW_DELETE)
+				cnstrt->cnstrt_fkey_def_type |= REF_DEL_SET_NULL;
+			else
+				cnstrt->cnstrt_fkey_def_type |= REF_UPD_SET_NULL;
+			break;
+		default:
+			/* unexpected keyword */
+			SYNTAX_ERROR("NULL or DEFAULT");
+			break;
+		}
+		break;
+	default:
+		/* unexpected keyword */
+		SYNTAX_ERROR("NO ACTION or CASCADE or SET DEFAULT or SET NULL");
+		break;
+	}
+}
+
+
+//____________________________________________________________
+//  
+//		Handle a create constraint verb as part of CREATE TABLE or
+//		ALTER TABLE statement. Constraint maybe table or column level.
+//  
+
+static CNSTRT par_table_constraint( REQ request, REL relation)
+{
+	enum kwwords keyword;
+	CNSTRT cnstrt;
+	LLS *fields;
+	STR field_name;
+	USHORT num_for_key_flds = 0, num_prim_key_flds = 0;
+
+	cnstrt = (CNSTRT) ALLOC(CNSTRT_LEN);
+
+	if (token.tok_keyword == KW_CONSTRAINT) {
+		ADVANCE_TOKEN;
+		cnstrt->cnstrt_name = (STR) ALLOC(NAME_SIZE + 1);
+		SQL_resolve_identifier("<constraint name>",
+							   (TEXT *) cnstrt->cnstrt_name);
+		if (token.tok_length > NAME_SIZE)
+			PAR_error("Constraint name too long");
+		ADVANCE_TOKEN;
+	}
+
+	switch (keyword = token.tok_keyword) {
+	case KW_PRIMARY:
+	case KW_UNIQUE:
+	case KW_FOREIGN:
+		ADVANCE_TOKEN;
+		if (keyword == KW_PRIMARY) {
+			if (!MATCH(KW_KEY))
+				SYNTAX_ERROR("KEY");
+			cnstrt->cnstrt_type = CNSTRT_PRIMARY_KEY;
+		}
+		else if (keyword == KW_FOREIGN) {
+			if (!MATCH(KW_KEY))
+				SYNTAX_ERROR("KEY");
+			cnstrt->cnstrt_type = CNSTRT_FOREIGN_KEY;
+		}
+		else
+			cnstrt->cnstrt_type = CNSTRT_UNIQUE;
+
+		EXP_left_paren(0);
+
+		/* Get list of fields for PRIMARY KEY or FOREIGN KEY or UNIQUE
+		   constraint */
+
+		fields = &cnstrt->cnstrt_fields;
+		do {
+			field_name = (STR) ALLOC(NAME_SIZE + 1);
+			SQL_resolve_identifier("<column name>", (TEXT *) field_name);
+			PUSH((NOD) field_name, fields);
+			fields = &(*fields)->lls_next;
+			++num_for_key_flds;
+			CPR_token();
+		} while (MATCH(KW_COMMA));
+
+		if (keyword != KW_FOREIGN)
+			num_for_key_flds = 0;
+
+		EXP_match_paren();
+		if (keyword == KW_FOREIGN) {
+			if (!MATCH(KW_REFERENCES))
+				SYNTAX_ERROR("REFERENCES");
+
+			/* Relation name for foreign key  */
+
+			cnstrt->cnstrt_referred_rel = (STR) ALLOC(NAME_SIZE + 1);
+			SQL_resolve_identifier("referred <table name>",
+								   (TEXT *) cnstrt->cnstrt_referred_rel);
+			if (token.tok_length > NAME_SIZE)
+				PAR_error("Referred table name too long");
+			ADVANCE_TOKEN;
+
+			cnstrt->cnstrt_referred_fields = NULL;
+
+			if (MATCH(KW_LEFT_PAREN)) {
+				/* Fields specified for referred relation  */
+
+				fields = &cnstrt->cnstrt_referred_fields;
+				do {
+					field_name = (STR) ALLOC(NAME_SIZE + 1);
+					SQL_resolve_identifier("<column name>",
+										   (TEXT *) field_name);
+					PUSH((NOD) field_name, fields);
+					fields = &(*fields)->lls_next;
+					++num_prim_key_flds;
+					CPR_token();
+				} while (MATCH(KW_COMMA));
+
+				EXP_match_paren();
+			}
+
+			/* Don't print error message in case if <referenced column list>
+			   is not specified. Try to catch them in cmd.c[create_constraint]
+			   later on */
+			if (cnstrt->cnstrt_referred_fields != NULL &&
+				num_prim_key_flds != num_for_key_flds)
+					PAR_error
+					("FOREIGN KEY column count does not match PRIMARY KEY");
+			if (token.tok_keyword == KW_ON) {
+				par_fkey_extension(cnstrt);
+				ADVANCE_TOKEN;
+				if (token.tok_keyword == KW_ON) {
+					par_fkey_extension(cnstrt);
+					ADVANCE_TOKEN;
+				}
+			}
+		}						/* if KW_FOREIGN */
+		break;
+
+	case KW_CHECK:
+		ADVANCE_TOKEN;
+		cnstrt->cnstrt_type = CNSTRT_CHECK;
+		cnstrt->cnstrt_text = CPR_start_text();
+		cnstrt->cnstrt_boolean = SQE_boolean(request, 0);
+		CPR_end_text(cnstrt->cnstrt_text);
+		break;
+
+	default:
+		PAR_error("Invalid constraint type");
+	}
+
+	return cnstrt;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse the isolation level part.
+//		If expect_iso is true, an isolation level is required.
+//		Returns TRUE if found a match else FALSE.
+//  
+
+static BOOLEAN par_transaction_modes( TRA trans, BOOLEAN expect_iso)
+{
+
+	if (MATCH(KW_READ)) {
+		if (MATCH(KW_ONLY)) {
+			if (expect_iso)
+				SYNTAX_ERROR("SNAPSHOT");
+
+			trans->tra_flags |= TRA_ro;
+			return TRUE;
+		}
+		else if (MATCH(KW_WRITE)) {
+			if (expect_iso)
+				SYNTAX_ERROR("SNAPSHOT");
+
+			return TRUE;
+		}
+
+		if (!(MATCH(KW_COMMITTED) || MATCH(KW_UNCOMMITTED)))
+			SYNTAX_ERROR("COMMITTED");
+
+		trans->tra_flags |= TRA_read_committed;
+
+		if (MATCH(KW_NO)) {
+			if (MATCH(KW_VERSION))
+				return TRUE;
+			else if (MATCH(KW_WAIT)) {
+				trans->tra_flags |= TRA_nw;
+				return TRUE;
+			}
+			else
+				SYNTAX_ERROR("WAIT or VERSION");
+		}
+
+		if (MATCH(KW_VERSION))
+			trans->tra_flags |= TRA_rec_version;
+
+		return TRUE;
+	}
+	else if (MATCH(KW_SNAPSHOT)) {
+		if (MATCH(KW_TABLE)) {
+			trans->tra_flags |= TRA_con;
+
+			MATCH(KW_STABILITY);
+			return TRUE;
+		}
+		else
+			return TRUE;
+	}
+	return FALSE;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse the USING clause for a dynamic SQL statement.
+//  
+
+static BOOLEAN par_using( DYN statement)
+{
+
+	if (!MATCH(KW_USING))
+		return FALSE;
+
+	MATCH(KW_SQL);				/* keyword "SQL" is optional for backward compatibility */
+
+	if (MATCH(KW_DESCRIPTOR))
+		statement->dyn_sqlda = PAR_native_value(FALSE, FALSE);
+	else
+		statement->dyn_using =
+			(NOD) SQE_list(reinterpret_cast < pfn_SQE_list_cb >
+						   (SQE_variable), 0, FALSE);
+
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//  
+//		Figure out the correct dtypes
+//  
+
+static USHORT resolve_dtypes( KWWORDS typ, BOOLEAN sql_date)
+{
+	TEXT err_mesg[128];
+
+	switch (typ) {
+	case KW_DATE:
+		if ((sw_ods_version < 10) || (sw_server_version < 6))
+			switch (sw_sql_dialect) {
+			case 1:
+				return dtype_timestamp;
+			case 2:
+				sprintf(err_mesg,
+						"Encountered column type DATE which is ambiguous in dialect %d\n",
+						sw_sql_dialect);
+				PAR_error(err_mesg);
+				return dtype_null;	/* TMN: FIX FIX */
+				/* return; */
+			default:
+				sprintf(err_mesg,
+						"Encountered column type DATE which is not supported in ods version %d\n",
+						sw_ods_version);
+				PAR_error(err_mesg);
+			}
+		else {
+		/** column definition SQL DATE is unambiguous in any dialect **/
+			if (sql_date)
+				return dtype_sql_date;
+			switch (sw_sql_dialect) {
+			case 1:
+				return dtype_timestamp;
+			case 2:
+				sprintf(err_mesg,
+						"Encountered column type DATE which is ambiguous in dialect %d\n",
+						sw_sql_dialect);
+				PAR_error(err_mesg);
+				return dtype_null;	/* TMN: FIX FIX */
+				/* return; */
+			default:
+				return dtype_sql_date;
+			}
+		}
+		break;
+
+	case KW_TIME:
+		if ((sw_ods_version < 10) || (sw_server_version < 6)) {
+			sprintf(err_mesg,
+					"Encountered column type TIME which is not supported by pre 6.0 Servers\n");
+			PAR_error(err_mesg);
+			return dtype_null;	/* TMN: FIX FIX */
+			/* return; */
+		}
+		else
+			return dtype_sql_time;
+		break;
+
+	case KW_TIMESTAMP:
+		return dtype_timestamp;
+		break;
+
+	default:
+		sprintf(err_mesg, "resolve_dtypes(): Unknown dtype %d\n", typ);
+		PAR_error(err_mesg);
+		break;
+	}
+//  
+//  TMN: FIX FIX Added "return dtype_null;" to silence compiler, but
+//  this is really a logic error we have to fix.
+//  
+	return dtype_null;
+}
+
+
+//____________________________________________________________
+//  
+//		Parse the tail of a CREATE DATABASE statement.
+//  
+
+static BOOLEAN tail_database( enum act_t action_type, DBB database)
+{
+	FIL file;
+	TEXT *string;
+	BOOLEAN extend_dpb, logdefined;
+
+//  parse options for the database parameter block 
+
+	logdefined = FALSE;
+	extend_dpb = FALSE;
+	database->dbb_grp_cmt_wait = -1;
+
+	while (TRUE) {
+		if (MATCH(KW_LENGTH)) {
+			database->dbb_length = EXP_ULONG_ordinal(TRUE);
+			MATCH(KW_PAGES);
+		}
+		else if (MATCH(KW_USER)) {
+			if (QUOTED(token.tok_type)) {
+				database->dbb_c_user = string =
+					(TEXT *) ALLOC(token.tok_length + 1);
+				COPY(token.tok_string, token.tok_length, string);
+
+				string[token.tok_length - 2] = '\0';
+				ADVANCE_TOKEN;
+			}
+			else
+				/* Some non-C languages (such as Fortran) have problems
+				 * with extending the static DPB to add the runtime options
+				 * needed for a runtime user name or password.
+				 * 11 April 1995
+				 */
+			if (sw_language == lang_c) {
+				if (!MATCH(KW_COLON))
+					SYNTAX_ERROR("<colon> or <quoted string>");
+		/** Should I bother about dialects here ?? **/
+				if (QUOTED(token.tok_type))
+					SYNTAX_ERROR("<host variable>");
+				database->dbb_r_user = PAR_native_value(FALSE, FALSE);
+				extend_dpb = TRUE;
+			}
+			else
+				SYNTAX_ERROR("<quoted string>");
+
+		}
+		else if (MATCH(KW_PASSWORD)) {
+			if (QUOTED(token.tok_type)) {
+				database->dbb_c_password = string =
+					(TEXT *) ALLOC(token.tok_length + 1);
+				COPY(token.tok_string, token.tok_length, string);
+				string[token.tok_length] = '\0';
+				ADVANCE_TOKEN;
+			}
+			else
+				/* Some non-C languages (such as Fortran) have problems
+				 * with extending the static DPB to add the runtime options
+				 * needed for a runtime user name or password.
+				 * 11 April 1995
+				 */
+			if (sw_language == lang_c) {
+				if (!MATCH(KW_COLON))
+					SYNTAX_ERROR("<colon> or <quoted string>");
+				if (QUOTED(token.tok_type))
+					SYNTAX_ERROR("<host variable>");
+				database->dbb_r_password = PAR_native_value(FALSE, FALSE);
+				extend_dpb = TRUE;
+			}
+			else
+				SYNTAX_ERROR("<quoted string>");
+		}
+		else if (MATCH(KW_DEFAULT)) {
+			if (!MATCH(KW_CHAR) || !MATCH(KW_SET))
+				SYNTAX_ERROR("CHARACTER SET");
+			database->dbb_def_charset = PAR_native_value(FALSE, FALSE);
+		}
+		else
+			break;
+	}
+
+	if (action_type == ACT_drop_database) {
+		if (MATCH(KW_CASCADE))
+			database->dbb_flags |= DBB_cascade;
+		/* TMN: ERROR ERROR we cant return _nothing* from a function returning */
+		/* a BOOLEAN. I changed this to FALSE to falg an error, but we have to */
+		/* look into this. */
+		return FALSE;
+		/* return; */
+	}
+
+//  parse add/drop items 
+
+	while (TRUE) {
+		MATCH(KW_ADD);
+		if (MATCH(KW_DROP)) {
+			if (MATCH(KW_LOG_FILE))
+				database->dbb_flags |= DBB_drop_log;
+			else if (MATCH(KW_CASCADE))
+				database->dbb_flags |= DBB_cascade;
+#ifdef FLINT_CACHE
+			else if (MATCH(KW_CACHE))
+				database->dbb_flags |= DBB_drop_cache;
+			else
+				PAR_error("only log files or shared cache can be dropped");	/* msg 121 only SECURITY_CLASS, DESCRIPTION and CACHE can be dropped */
+#else
+			else
+				PAR_error("only log files can be dropped");	/* msg 121 only SECURITY_CLASS, DESCRIPTION and CACHE can be dropped */
+#endif /* FLINT_CACHE */
+
+// ****
+// else if (MATCH (KW_DESCRIP))
+//    database->dbb_flags	|= DBB_null_description;
+// else if (MATCH (KW_SECURITY_CLASS))
+//    database->dbb_flags |= DBB_null_security_class;
+//***
+		}
+// ****
+//   else if (KEYWORD (KW_DESCRIPTION))
+// database->dbb_description = parse_description();
+//   else if (MATCH (KW_SECURITY_CLASS))
+// database->dbb_security_class = PARSE_symbol (tok_ident); 
+//***
+		else if (MATCH(KW_FILE)) {
+			file = define_file();
+			file->fil_next = database->dbb_files;
+			database->dbb_files = file;
+		}
+		else if (MATCH(KW_PAGE_SIZE) || MATCH(KW_PAGESIZE)) {
+			if (action_type == ACT_alter_database)
+				PAR_error("PAGE SIZE can not be modified");
+			database->dbb_pagesize = par_page_size();
+		}
+		else if (MATCH(KW_CHECK_POINT_LEN)) {
+			MATCH(KW_EQUALS);
+			database->dbb_chkptlen = EXP_ULONG_ordinal(TRUE);
+		}
+		else if (MATCH(KW_NUM_LOG_BUFS)) {
+			MATCH(KW_EQUALS);
+			database->dbb_numbufs = EXP_USHORT_ordinal(TRUE);
+		}
+		else if (MATCH(KW_LOG_BUF_SIZE)) {
+			MATCH(KW_EQUALS);
+			database->dbb_bufsize = EXP_USHORT_ordinal(TRUE);
+		}
+		else if (MATCH(KW_GROUP_COMMIT_WAIT)) {
+			MATCH(KW_EQUALS);
+			database->dbb_grp_cmt_wait = EXP_ULONG_ordinal(TRUE);
+		}
+		else if (MATCH(KW_LOG_FILE)) {
+			if (logdefined)
+				PAR_error("log redefinition");
+			logdefined = TRUE;
+			if (MATCH(KW_LEFT_PAREN)) {
+				while (TRUE) {
+					file = define_log_file(FALSE);
+					file->fil_next = database->dbb_logfiles;
+					database->dbb_logfiles = file;
+					if (!MATCH(KW_COMMA)) {
+						EXP_match_paren();
+						break;
+					}
+				}
+
+				if (MATCH(KW_OVERFLOW))
+					database->dbb_overflow = define_log_file(TRUE);
+				else
+					PAR_error
+						("Overflow log specification required for this configuration");
+			}
+			else if (MATCH(KW_BASE_NAME)) {
+				database->dbb_flags |= DBB_log_serial;
+				database->dbb_logfiles = file = define_log_file(TRUE);
+			}
+			else
+				database->dbb_flags |= DBB_log_default;
+		}
+#ifdef FLINT_CACHE
+		else if (MATCH(KW_CACHE))
+			database->dbb_cache_file = define_cache();
+#endif /* FLINT_CACHE */
+		else
+			break;
+	}
+
+	return extend_dpb;
+}
+
+
+//____________________________________________________________
+//  
+//		Upcase a string into another string.
+//  
+
+static void to_upcase( TEXT * p, TEXT * q)
+{
+	UCHAR c;
+	USHORT l;
+
+	l = 0;
+	while ((c = *p++) && (++l <= NAME_SIZE)) {
+		*q++ = UPPER(c);
+#ifdef JPN_SJIS
+
+		/* Do not upcase second byte of a sjis kanji character */
+
+		if (SJIS1(c) && (c = *p++) && (++l <= NAME_SIZE))
+			*q++ = c;
+#endif
+	}
+	*q = 0;
+}
+
+
+//____________________________________________________________
+//  
+//  
+
+void SQL_resolve_identifier( TEXT * err_mesg, TEXT * str)
+{
+
+	switch (sw_sql_dialect) {
+	case 2:
+		if (DOUBLE_QUOTED(token.tok_type))
+			PAR_error("Ambiguous use of double quotes in dialect 2");
+	case 1:
+		if (token.tok_type != tok_ident)
+			SYNTAX_ERROR(err_mesg);
+		else
+			to_upcase(token.tok_string, str);
+		break;
+	case 3:
+		if (DOUBLE_QUOTED(token.tok_type)) {
+			if (DOUBLE_QUOTES_ON(token.tok_string))
+				STRIP_QUOTES(token)
+					strcpy(str, token.tok_string);
+		}
+		else if (token.tok_type == tok_ident)
+			to_upcase(token.tok_string, str);
+		else
+			SYNTAX_ERROR(err_mesg);
+		break;
+	}
+	strcpy(token.tok_string, str);
+}
+
+
+static void dialect1_bad_type(USHORT field_dtype)
+{
+	char buffer[200];
+	char *s;
+
+	switch (field_dtype) {
+	case dtype_sql_date:
+		s = "SQL DATE";
+		break;
+	case dtype_sql_time:
+		s = "SQL TIME";
+		break;
+	case dtype_int64:
+		s = "64-bit numeric";
+		break;
+	}
+	sprintf(buffer,
+			"Client SQL dialect 1 does not support reference to the %s datatype",
+			s);
+	PAR_error(buffer);
+}
+
+
+} // extern "C"
diff --git a/src/gpre/sql_proto.h b/src/gpre/sql_proto.h
new file mode 100644
index 0000000000..bfb72b69c9
--- /dev/null
+++ b/src/gpre/sql_proto.h
@@ -0,0 +1,47 @@
+/*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		sql_proto.h
+ *	DESCRIPTION:	Prototype header file for sql.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GPRE_SQL_PROTO_H_
+#define _GPRE_SQL_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern ACT SQL_action(void);
+extern void SQL_adjust_field_dtype(FLD);
+extern void SQL_init(void);
+extern void SQL_par_field_collate(REQ, FLD);
+extern void SQL_par_field_dtype(REQ, FLD, BOOLEAN);
+extern PRC SQL_procedure(REQ, TEXT *, TEXT *, TEXT *, BOOLEAN);
+extern REL SQL_relation(REQ, TEXT *, TEXT *, TEXT *, BOOLEAN);
+extern void SQL_resolve_identifier(TEXT *, TEXT *);
+extern REL SQL_view(REQ, TEXT *, TEXT *, TEXT *, BOOLEAN);
+extern void SQL_relation_name(TEXT *, TEXT *, TEXT *);
+extern TEXT *SQL_var_or_string(BOOLEAN);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _GPRE_SQL_PROTO_H_ */
diff --git a/src/gpre/words.h b/src/gpre/words.h
new file mode 100644
index 0000000000..25aa348295
--- /dev/null
+++ b/src/gpre/words.h
@@ -0,0 +1,328 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+KW_start_actions,
+	KW_ACTIVE,
+	KW_ANY,
+	KW_AT,
+	KW_BACK_SLASH,
+	KW_BASED,
+	KW_BEGIN,
+	KW_BUFFERS,
+	KW_CACHE,
+	KW_CANCEL_BLOB,
+	KW_CASE,
+	KW_CASE_MENU,
+	KW_CHAR,
+	KW_CLEAR_HANDLES,
+	KW_CLOSE_BLOB,
+	KW_COLLATE,
+	KW_COMMIT,
+	KW_CONSTRAINT,
+	KW_CREATE_BLOB,
+	KW_CREATE_WINDOW,
+	KW_DATABASE,
+	KW_DELETE_WINDOW,
+	KW_DERIVED_FROM,
+	KW_DISPLAY,
+	KW_DOMAIN,
+	KW_DOUBLE,
+	KW_ELEMENT,
+	KW_ELSE,
+	KW_END,
+	KW_END_ERROR,
+	KW_END_FETCH,
+	KW_END_FOR,
+	KW_END_FORM,
+	KW_END_ITEM,
+	KW_END_MENU,
+	KW_END_MODIFY,
+	KW_END_STORE,
+	KW_END_STREAM,
+	KW_ERASE,
+	KW_ESCAPE,
+	KW_EVENT_INIT,
+	KW_EVENT_WAIT,
+	KW_EXEC,
+	KW_EXTERNAL,
+	KW_EXTRACT,
+	KW_FETCH,
+	KW_FINISH,
+	KW_FLOAT,
+	KW_FOR,
+	KW_FOR_FORM,
+	KW_FOR_ITEM,
+	KW_FOR_MENU,
+	KW_FUNCTION,
+	KW_GDS_WINDOWS,
+	KW_GET_SEGMENT,
+	KW_GET_SLICE,
+	KW_INACTIVE,
+	KW_INT,
+	KW_KEY,
+	KW_LONG,
+	KW_L_BRACE,
+	KW_MENU_ENTREE,
+	KW_MODIFY,
+	KW_MONTH,
+	KW_NATIONAL,
+	KW_NCHAR,
+	KW_ON,
+	KW_ON_ERROR,
+	KW_OPEN_BLOB,
+	KW_PREPARE,
+	KW_PROC,
+	KW_PROCEDURE,
+	KW_PUT_ITEM,
+	KW_PUT_SEGMENT,
+	KW_PUT_SLICE,
+	KW_READY,
+	KW_RELEASE,
+	KW_RELEASE_REQUESTS,
+	KW_RETURNING,
+	KW_ROLE,
+	KW_ROLLBACK,
+	KW_R_BRACE,
+	KW_SAVE,
+	KW_SHORT,
+	KW_START_STREAM,
+	KW_START_TRANSACTION,
+	KW_STATISTICS,
+	KW_STORE,
+	KW_SUB, KW_SUBROUTINE, KW_SUSPEND_WINDOW, KW_end_actions, KW_ABNORMAL,
+#ifdef SCROLLABLE_CURSORS
+	KW_ABSOLUTE,
+#endif
+	KW_ACCEPTING, KW_ACTION, KW_ADD, KW_ALL, KW_ALLOCATION, KW_ALTER, KW_AMPERSAND, KW_AND, KW_ANYCASE, KW_ARE,	/* SQL: NAMES ARE */
+	KW_AS,
+	KW_ASCENDING,
+	KW_ASTERISK,
+	KW_AUTO,
+	KW_AUTOCOMMIT,
+	KW_AVERAGE,
+	KW_BASE_NAME,
+	KW_BETWEEN,
+	KW_BLOB,
+	KW_BUFFERCOUNT,
+	KW_BUFFERSIZE,
+	KW_BY,
+	KW_CARAT,
+	KW_CASCADE,
+	KW_CAST,
+	KW_CHECK,
+	KW_CHECK_POINT_LEN,
+	KW_CLOSE,
+	KW_COLON,
+	KW_COMMA,
+	KW_COMMENT,
+	KW_COMMITTED,
+	KW_COMPILETIME,
+	KW_COMPUTED,
+	KW_CONCURRENCY,
+	KW_CONDITIONAL,
+	KW_CONNECT,
+	KW_CONSISTENCY,
+	KW_CONTAINING,
+	KW_CONTINUE,
+	KW_COUNT,
+	KW_CREATE,
+	KW_CROSS,
+	KW_CSTRING,
+	KW_CURRENT,
+	KW_CURRENT_DATE,
+	KW_CURRENT_TIME,
+	KW_CURRENT_TIMESTAMP,
+	KW_CURSOR,
+	KW_DATE,
+	KW_DAY,
+	KW_DBA,
+	KW_DBKEY,
+	KW_DEC,
+	KW_DECIMAL,
+	KW_DECLARE,
+	KW_DEFAULT,
+	KW_DELETE,
+	KW_DESCENDING,
+	KW_DESCRIBE,
+	KW_DESCRIPTOR,
+	KW_DIALECT,
+	KW_DISCONNECT,
+	KW_DISPLAYING,
+	KW_DISTINCT,
+	KW_DOT,
+	KW_DOT_DOT,
+	KW_DROP,
+	KW_END_EXEC,
+	KW_ENTREE_LENGTH,
+	KW_ENTREE_TEXT,
+	KW_ENTREE_VALUE,
+	KW_ENTRY_POINT,
+	KW_EQ,
+	KW_EQUALS,
+	KW_ERROR,
+	KW_EVENT,
+	KW_EXACTCASE,
+	KW_EXCLUSIVE,
+	KW_EXECUTE,
+	KW_EXISTS,
+	KW_EXTERN,
+	KW_FILE,
+	KW_FILENAME,
+	KW_FILTER,
+	KW_FIRST,
+	KW_FOREIGN,
+	KW_FORM,
+	KW_FORM_HANDLE,
+	KW_FORWARD,
+	KW_FOUND,
+	KW_FROM,
+	KW_FULL,
+	KW_GE,
+	KW_GEN_ID,
+	KW_GENERATOR,
+	KW_GLOBAL,
+	KW_GO,
+	KW_GOTO,
+	KW_GRANT,
+	KW_GROUP,
+	KW_GROUP_COMMIT_WAIT,
+	KW_GT,
+	KW_HANDLES,
+	KW_HAVING,
+	KW_HEIGHT,
+	KW_HORIZONTAL,
+	KW_HOUR,
+	KW_IMMEDIATE,
+	KW_IN,
+	KW_INC,
+	KW_INCLUDE,
+	KW_INDEX,
+	KW_INDICATOR,
+	KW_INIT,
+	KW_INNER,
+	KW_INPUT,
+	KW_INPUT_TYPE,
+	KW_INSERT, KW_INTEGER, KW_INTERNAL, KW_INTO, KW_IS, KW_ISOLATION, KW_JOIN,
+#ifdef SCROLLABLE_CURSORS
+	KW_LAST,
+#endif
+	KW_LC_CTYPE,
+	KW_LC_MESSAGES,
+	KW_LE,
+	KW_LEFT,
+	KW_LEFT_PAREN,
+	KW_LENGTH,
+	KW_LEVEL,
+	KW_LIKE,
+	KW_LOCK,
+	KW_LOG_BUF_SIZE,
+	KW_LOG_FILE,
+	KW_LT,
+	KW_L_BRCKET,
+	KW_MAIN,
+	KW_MANUAL,
+	KW_MATCHES,
+	KW_MAX,
+	KW_MAX_SEGMENT,
+	KW_MENU_HANDLE,
+	KW_MERGE,
+	KW_MIN,
+	KW_MINUTE,
+	KW_MINUS,
+	KW_MISSING, KW_MODULE_NAME, KW_NAME, KW_NAMES, KW_NATURAL, KW_NE,
+#ifdef SCROLLABLE_CURSORS
+	KW_NEXT,
+#endif
+	KW_NO,
+	KW_NOT,
+	KW_NO_AUTO_UNDO,
+	KW_NO_WAIT,
+	KW_NULL,
+	KW_NUMERIC,
+	KW_NUM_LOG_BUFS,
+	KW_OF,
+	KW_ONLY,
+	KW_OPAQUE,
+	KW_OPEN,
+	KW_OPTION,
+	KW_OPTIONS,
+	KW_OR,
+	KW_OR1,
+	KW_ORDER,
+	KW_OUTER,
+	KW_OUTPUT,
+	KW_OUTPUT_TYPE,
+	KW_OVER,
+	KW_OVERFLOW,
+	KW_OVERRIDING,
+	KW_PAGE,
+	KW_PAGES,
+	KW_PAGESIZE,
+	KW_PAGE_SIZE,
+	KW_PARAMETER,
+	KW_PASSWORD,
+	KW_PATHNAME, KW_PLAN, KW_PLUS, KW_POINTS, KW_PRECISION, KW_PRIMARY,
+#ifdef SCROLLABLE_CURSORS
+	KW_PRIOR,
+#endif
+	KW_PRIVILEGES,
+	KW_PROTECTED,
+	KW_PUBLIC,
+	KW_QUAD,
+	KW_RAW_PARTITIONS,
+	KW_READ,
+	KW_READ_COMMITTED,
+	KW_READ_ONLY, KW_READ_WRITE, KW_REAL, KW_REDUCED, KW_REFERENCES,
+#ifdef SCROLLABLE_CURSORS
+	KW_RELATIVE,
+#endif
+	KW_REM,
+	KW_REQUEST_HANDLE,
+	KW_RESERVING,
+	KW_RESOURCE,
+	KW_RESTRICT,
+	KW_RETAIN,
+	KW_RETURNS,
+	KW_REVOKE,
+	KW_RIGHT,
+	KW_RIGHT_PAREN,
+	KW_ROUTINE_PTR,
+	KW_RUN, KW_RUNTIME, KW_R_BRCKET, KW_SCALE, KW_SCHEDULE, KW_SCHEMA,
+#ifdef SCROLLABLE_CURSORS
+	KW_SCROLL,
+#endif
+	KW_SECOND, KW_SECTION, KW_SEGMENT, KW_SELECT, KW_SEMI_COLON, KW_SET, KW_SHARED, KW_SHADOW, KW_SINGULAR, KW_SIZE, KW_SLASH, KW_SMALLINT, KW_SNAPSHOT, KW_SORT, KW_SORTED, KW_SQL, KW_SQLERROR, KW_SQLWARNING, KW_STABILITY, KW_STARTING, KW_STARTING_WITH, KW_STARTS, KW_STATE, KW_STATEMENT, KW_STATIC, KW_STOGROUP, KW_STREAM, KW_STRING, KW_SUB_TYPE, KW_SUM, KW_SYNONYM, KW_TABLE, KW_TABLESPACE, KW_TAG, KW_TERMINATING_FIELD, KW_TERMINATOR, KW_TIME, KW_TIMESTAMP, KW_TITLE_LENGTH, KW_TITLE_TEXT, KW_TO, KW_TOTAL, KW_TRANSACTION, KW_TRANSACTION_HANDLE, KW_TRANSPARENT, KW_TRIGGER, KW_UNCOMMITTED, KW_UNION, KW_UNIQUE, KW_UPDATE, KW_UPPER,	/* SQL UPPER operation */
+	KW_UPPERCASE,
+	KW_USER,
+	KW_USERS,
+	KW_USER_NAME,
+	KW_USING,
+	KW_VALUE,
+	KW_VALUES,
+	KW_VAL_PARAM,
+	KW_VARCHAR,
+	KW_VARIABLE,
+	KW_VARYING,
+	KW_VERSION,
+	KW_VERTICAL,
+	KW_VIEW,
+	KW_WAIT,
+	KW_WAKING,
+	KW_WARNING,
+	KW_WEEKDAY,
+	KW_WHENEVER, KW_WIDTH, KW_WITH, KW_WORK, KW_WRITE, KW_YEAR, KW_YEARDAY,
diff --git a/src/include/fb_blk.h b/src/include/fb_blk.h
new file mode 100644
index 0000000000..fc853fe7e0
--- /dev/null
+++ b/src/include/fb_blk.h
@@ -0,0 +1,24 @@
+#ifndef INCLUDE_FB_BLK
+#define INCLUDE_FB_BLK
+
+#ifndef JRD_COMMON_H
+#include "../jrd/common.h"
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+typedef struct blk
+{
+	UCHAR	blk_type;
+	UCHAR	blk_pool_id;
+	USHORT	blk_length;
+} *BLK;
+
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif	/* INCLUDE_FB_BLK */
diff --git a/src/include/fb_macros.h b/src/include/fb_macros.h
new file mode 100644
index 0000000000..e1535812cb
--- /dev/null
+++ b/src/include/fb_macros.h
@@ -0,0 +1,9 @@
+#ifndef INCLUDE_FB_MACROS_H
+#define INCLUDE_FB_MACROS_H
+
+#define FB_COMPILER_MESSAGE_STR(x) #x
+#define FB_COMPILER_MESSAGE_STR2(x)   FB_COMPILER_MESSAGE_STR(x)
+#define FB_COMPILER_MESSAGE(desc) message(__FILE__ "("	\
+									FB_COMPILER_MESSAGE_STR2(__LINE__) "):" desc)
+
+#endif
diff --git a/src/include/fb_types.h b/src/include/fb_types.h
new file mode 100644
index 0000000000..5ed0981a34
--- /dev/null
+++ b/src/include/fb_types.h
@@ -0,0 +1,23 @@
+#ifndef INCLUDE_FB_TYPES_H
+#define INCLUDE_FB_TYPES_H
+
+#ifndef JRD_COMMON_H
+#include "../jrd/common.h"
+#endif
+
+
+#ifndef DEFINED_GDS_QUAD
+#define DEFINED_GDS_QUAD
+
+struct GDS_QUAD_t {
+	SLONG gds_quad_high;
+	ULONG gds_quad_low;
+};
+
+typedef struct GDS_QUAD_t GDS_QUAD;
+typedef struct GDS_QUAD_t ISC_QUAD;
+
+#endif /* DEFINED_GDS_QUAD */
+
+
+#endif /* INCLUDE_FB_TYPES_H */
diff --git a/src/include/iberror.h b/src/include/iberror.h
new file mode 100644
index 0000000000..78caa046b3
--- /dev/null
+++ b/src/include/iberror.h
@@ -0,0 +1,726 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+/*
+ *	MODULE:		iberror.h
+ *	DESCRIPTION:	ISC error codes
+ *
+ */
+
+
+
+/***********************/
+/*   ISC Error Codes   */
+/***********************/
+
+#define isc_arith_except                     335544321L
+#define isc_bad_dbkey                        335544322L
+#define isc_bad_db_format                    335544323L
+#define isc_bad_db_handle                    335544324L
+#define isc_bad_dpb_content                  335544325L
+#define isc_bad_dpb_form                     335544326L
+#define isc_bad_req_handle                   335544327L
+#define isc_bad_segstr_handle                335544328L
+#define isc_bad_segstr_id                    335544329L
+#define isc_bad_tpb_content                  335544330L
+#define isc_bad_tpb_form                     335544331L
+#define isc_bad_trans_handle                 335544332L
+#define isc_bug_check                        335544333L
+#define isc_convert_error                    335544334L
+#define isc_db_corrupt                       335544335L
+#define isc_deadlock                         335544336L
+#define isc_excess_trans                     335544337L
+#define isc_from_no_match                    335544338L
+#define isc_infinap                          335544339L
+#define isc_infona                           335544340L
+#define isc_infunk                           335544341L
+#define isc_integ_fail                       335544342L
+#define isc_invalid_blr                      335544343L
+#define isc_io_error                         335544344L
+#define isc_lock_conflict                    335544345L
+#define isc_metadata_corrupt                 335544346L
+#define isc_not_valid                        335544347L
+#define isc_no_cur_rec                       335544348L
+#define isc_no_dup                           335544349L
+#define isc_no_finish                        335544350L
+#define isc_no_meta_update                   335544351L
+#define isc_no_priv                          335544352L
+#define isc_no_recon                         335544353L
+#define isc_no_record                        335544354L
+#define isc_no_segstr_close                  335544355L
+#define isc_obsolete_metadata                335544356L
+#define isc_open_trans                       335544357L
+#define isc_port_len                         335544358L
+#define isc_read_only_field                  335544359L
+#define isc_read_only_rel                    335544360L
+#define isc_read_only_trans                  335544361L
+#define isc_read_only_view                   335544362L
+#define isc_req_no_trans                     335544363L
+#define isc_req_sync                         335544364L
+#define isc_req_wrong_db                     335544365L
+#define isc_segment                          335544366L
+#define isc_segstr_eof                       335544367L
+#define isc_segstr_no_op                     335544368L
+#define isc_segstr_no_read                   335544369L
+#define isc_segstr_no_trans                  335544370L
+#define isc_segstr_no_write                  335544371L
+#define isc_segstr_wrong_db                  335544372L
+#define isc_sys_request                      335544373L
+#define isc_stream_eof                       335544374L
+#define isc_unavailable                      335544375L
+#define isc_unres_rel                        335544376L
+#define isc_uns_ext                          335544377L
+#define isc_wish_list                        335544378L
+#define isc_wrong_ods                        335544379L
+#define isc_wronumarg                        335544380L
+#define isc_imp_exc                          335544381L
+#define isc_random                           335544382L
+#define isc_fatal_conflict                   335544383L
+#define isc_badblk                           335544384L
+#define isc_invpoolcl                        335544385L
+#define isc_nopoolids                        335544386L
+#define isc_relbadblk                        335544387L
+#define isc_blktoobig                        335544388L
+#define isc_bufexh                           335544389L
+#define isc_syntaxerr                        335544390L
+#define isc_bufinuse                         335544391L
+#define isc_bdbincon                         335544392L
+#define isc_reqinuse                         335544393L
+#define isc_badodsver                        335544394L
+#define isc_relnotdef                        335544395L
+#define isc_fldnotdef                        335544396L
+#define isc_dirtypage                        335544397L
+#define isc_waifortra                        335544398L
+#define isc_doubleloc                        335544399L
+#define isc_nodnotfnd                        335544400L
+#define isc_dupnodfnd                        335544401L
+#define isc_locnotmar                        335544402L
+#define isc_badpagtyp                        335544403L
+#define isc_corrupt                          335544404L
+#define isc_badpage                          335544405L
+#define isc_badindex                         335544406L
+#define isc_dbbnotzer                        335544407L
+#define isc_tranotzer                        335544408L
+#define isc_trareqmis                        335544409L
+#define isc_badhndcnt                        335544410L
+#define isc_wrotpbver                        335544411L
+#define isc_wroblrver                        335544412L
+#define isc_wrodpbver                        335544413L
+#define isc_blobnotsup                       335544414L
+#define isc_badrelation                      335544415L
+#define isc_nodetach                         335544416L
+#define isc_notremote                        335544417L
+#define isc_trainlim                         335544418L
+#define isc_notinlim                         335544419L
+#define isc_traoutsta                        335544420L
+#define isc_connect_reject                   335544421L
+#define isc_dbfile                           335544422L
+#define isc_orphan                           335544423L
+#define isc_no_lock_mgr                      335544424L
+#define isc_ctxinuse                         335544425L
+#define isc_ctxnotdef                        335544426L
+#define isc_datnotsup                        335544427L
+#define isc_badmsgnum                        335544428L
+#define isc_badparnum                        335544429L
+#define isc_virmemexh                        335544430L
+#define isc_blocking_signal                  335544431L
+#define isc_lockmanerr                       335544432L
+#define isc_journerr                         335544433L
+#define isc_keytoobig                        335544434L
+#define isc_nullsegkey                       335544435L
+#define isc_sqlerr                           335544436L
+#define isc_wrodynver                        335544437L
+#define isc_funnotdef                        335544438L
+#define isc_funmismat                        335544439L
+#define isc_bad_msg_vec                      335544440L
+#define isc_bad_detach                       335544441L
+#define isc_noargacc_read                    335544442L
+#define isc_noargacc_write                   335544443L
+#define isc_read_only                        335544444L
+#define isc_ext_err                          335544445L
+#define isc_non_updatable                    335544446L
+#define isc_no_rollback                      335544447L
+#define isc_bad_sec_info                     335544448L
+#define isc_invalid_sec_info                 335544449L
+#define isc_misc_interpreted                 335544450L
+#define isc_update_conflict                  335544451L
+#define isc_unlicensed                       335544452L
+#define isc_obj_in_use                       335544453L
+#define isc_nofilter                         335544454L
+#define isc_shadow_accessed                  335544455L
+#define isc_invalid_sdl                      335544456L
+#define isc_out_of_bounds                    335544457L
+#define isc_invalid_dimension                335544458L
+#define isc_rec_in_limbo                     335544459L
+#define isc_shadow_missing                   335544460L
+#define isc_cant_validate                    335544461L
+#define isc_cant_start_journal               335544462L
+#define isc_gennotdef                        335544463L
+#define isc_cant_start_logging               335544464L
+#define isc_bad_segstr_type                  335544465L
+#define isc_foreign_key                      335544466L
+#define isc_high_minor                       335544467L
+#define isc_tra_state                        335544468L
+#define isc_trans_invalid                    335544469L
+#define isc_buf_invalid                      335544470L
+#define isc_indexnotdefined                  335544471L
+#define isc_login                            335544472L
+#define isc_invalid_bookmark                 335544473L
+#define isc_bad_lock_level                   335544474L
+#define isc_relation_lock                    335544475L
+#define isc_record_lock                      335544476L
+#define isc_max_idx                          335544477L
+#define isc_jrn_enable                       335544478L
+#define isc_old_failure                      335544479L
+#define isc_old_in_progress                  335544480L
+#define isc_old_no_space                     335544481L
+#define isc_no_wal_no_jrn                    335544482L
+#define isc_num_old_files                    335544483L
+#define isc_wal_file_open                    335544484L
+#define isc_bad_stmt_handle                  335544485L
+#define isc_wal_failure                      335544486L
+#define isc_walw_err                         335544487L
+#define isc_logh_small                       335544488L
+#define isc_logh_inv_version                 335544489L
+#define isc_logh_open_flag                   335544490L
+#define isc_logh_open_flag2                  335544491L
+#define isc_logh_diff_dbname                 335544492L
+#define isc_logf_unexpected_eof              335544493L
+#define isc_logr_incomplete                  335544494L
+#define isc_logr_header_small                335544495L
+#define isc_logb_small                       335544496L
+#define isc_wal_illegal_attach               335544497L
+#define isc_wal_invalid_wpb                  335544498L
+#define isc_wal_err_rollover                 335544499L
+#define isc_no_wal                           335544500L
+#define isc_drop_wal                         335544501L
+#define isc_stream_not_defined               335544502L
+#define isc_wal_subsys_error                 335544503L
+#define isc_wal_subsys_corrupt               335544504L
+#define isc_no_archive                       335544505L
+#define isc_shutinprog                       335544506L
+#define isc_range_in_use                     335544507L
+#define isc_range_not_found                  335544508L
+#define isc_charset_not_found                335544509L
+#define isc_lock_timeout                     335544510L
+#define isc_prcnotdef                        335544511L
+#define isc_prcmismat                        335544512L
+#define isc_wal_bugcheck                     335544513L
+#define isc_wal_cant_expand                  335544514L
+#define isc_codnotdef                        335544515L
+#define isc_xcpnotdef                        335544516L
+#define isc_except                           335544517L
+#define isc_cache_restart                    335544518L
+#define isc_bad_lock_handle                  335544519L
+#define isc_jrn_present                      335544520L
+#define isc_wal_err_rollover2                335544521L
+#define isc_wal_err_logwrite                 335544522L
+#define isc_wal_err_jrn_comm                 335544523L
+#define isc_wal_err_expansion                335544524L
+#define isc_wal_err_setup                    335544525L
+#define isc_wal_err_ww_sync                  335544526L
+#define isc_wal_err_ww_start                 335544527L
+#define isc_shutdown                         335544528L
+#define isc_existing_priv_mod                335544529L
+#define isc_primary_key_ref                  335544530L
+#define isc_primary_key_notnull              335544531L
+#define isc_ref_cnstrnt_notfound             335544532L
+#define isc_foreign_key_notfound             335544533L
+#define isc_ref_cnstrnt_update               335544534L
+#define isc_check_cnstrnt_update             335544535L
+#define isc_check_cnstrnt_del                335544536L
+#define isc_integ_index_seg_del              335544537L
+#define isc_integ_index_seg_mod              335544538L
+#define isc_integ_index_del                  335544539L
+#define isc_integ_index_mod                  335544540L
+#define isc_check_trig_del                   335544541L
+#define isc_check_trig_update                335544542L
+#define isc_cnstrnt_fld_del                  335544543L
+#define isc_cnstrnt_fld_rename               335544544L
+#define isc_rel_cnstrnt_update               335544545L
+#define isc_constaint_on_view                335544546L
+#define isc_invld_cnstrnt_type               335544547L
+#define isc_primary_key_exists               335544548L
+#define isc_systrig_update                   335544549L
+#define isc_not_rel_owner                    335544550L
+#define isc_grant_obj_notfound               335544551L
+#define isc_grant_fld_notfound               335544552L
+#define isc_grant_nopriv                     335544553L
+#define isc_nonsql_security_rel              335544554L
+#define isc_nonsql_security_fld              335544555L
+#define isc_wal_cache_err                    335544556L
+#define isc_shutfail                         335544557L
+#define isc_check_constraint                 335544558L
+#define isc_bad_svc_handle                   335544559L
+#define isc_shutwarn                         335544560L
+#define isc_wrospbver                        335544561L
+#define isc_bad_spb_form                     335544562L
+#define isc_svcnotdef                        335544563L
+#define isc_no_jrn                           335544564L
+#define isc_transliteration_failed           335544565L
+#define isc_start_cm_for_wal                 335544566L
+#define isc_wal_ovflow_log_required          335544567L
+#define isc_text_subtype                     335544568L
+#define isc_dsql_error                       335544569L
+#define isc_dsql_command_err                 335544570L
+#define isc_dsql_constant_err                335544571L
+#define isc_dsql_cursor_err                  335544572L
+#define isc_dsql_datatype_err                335544573L
+#define isc_dsql_decl_err                    335544574L
+#define isc_dsql_cursor_update_err           335544575L
+#define isc_dsql_cursor_open_err             335544576L
+#define isc_dsql_cursor_close_err            335544577L
+#define isc_dsql_field_err                   335544578L
+#define isc_dsql_internal_err                335544579L
+#define isc_dsql_relation_err                335544580L
+#define isc_dsql_procedure_err               335544581L
+#define isc_dsql_request_err                 335544582L
+#define isc_dsql_sqlda_err                   335544583L
+#define isc_dsql_var_count_err               335544584L
+#define isc_dsql_stmt_handle                 335544585L
+#define isc_dsql_function_err                335544586L
+#define isc_dsql_blob_err                    335544587L
+#define isc_collation_not_found              335544588L
+#define isc_collation_not_for_charset        335544589L
+#define isc_dsql_dup_option                  335544590L
+#define isc_dsql_tran_err                    335544591L
+#define isc_dsql_invalid_array               335544592L
+#define isc_dsql_max_arr_dim_exceeded        335544593L
+#define isc_dsql_arr_range_error             335544594L
+#define isc_dsql_trigger_err                 335544595L
+#define isc_dsql_subselect_err               335544596L
+#define isc_dsql_crdb_prepare_err            335544597L
+#define isc_specify_field_err                335544598L
+#define isc_num_field_err                    335544599L
+#define isc_col_name_err                     335544600L
+#define isc_where_err                        335544601L
+#define isc_table_view_err                   335544602L
+#define isc_distinct_err                     335544603L
+#define isc_key_field_count_err              335544604L
+#define isc_subquery_err                     335544605L
+#define isc_expression_eval_err              335544606L
+#define isc_node_err                         335544607L
+#define isc_command_end_err                  335544608L
+#define isc_index_name                       335544609L
+#define isc_exception_name                   335544610L
+#define isc_field_name                       335544611L
+#define isc_token_err                        335544612L
+#define isc_union_err                        335544613L
+#define isc_dsql_construct_err               335544614L
+#define isc_field_aggregate_err              335544615L
+#define isc_field_ref_err                    335544616L
+#define isc_order_by_err                     335544617L
+#define isc_return_mode_err                  335544618L
+#define isc_extern_func_err                  335544619L
+#define isc_alias_conflict_err               335544620L
+#define isc_procedure_conflict_error         335544621L
+#define isc_relation_conflict_err            335544622L
+#define isc_dsql_domain_err                  335544623L
+#define isc_idx_seg_err                      335544624L
+#define isc_node_name_err                    335544625L
+#define isc_table_name                       335544626L
+#define isc_proc_name                        335544627L
+#define isc_idx_create_err                   335544628L
+#define isc_wal_shadow_err                   335544629L
+#define isc_dependency                       335544630L
+#define isc_idx_key_err                      335544631L
+#define isc_dsql_file_length_err             335544632L
+#define isc_dsql_shadow_number_err           335544633L
+#define isc_dsql_token_unk_err               335544634L
+#define isc_dsql_no_relation_alias           335544635L
+#define isc_indexname                        335544636L
+#define isc_no_stream_plan                   335544637L
+#define isc_stream_twice                     335544638L
+#define isc_stream_not_found                 335544639L
+#define isc_collation_requires_text          335544640L
+#define isc_dsql_domain_not_found            335544641L
+#define isc_index_unused                     335544642L
+#define isc_dsql_self_join                   335544643L
+#define isc_stream_bof                       335544644L
+#define isc_stream_crack                     335544645L
+#define isc_db_or_file_exists                335544646L
+#define isc_invalid_operator                 335544647L
+#define isc_conn_lost                        335544648L
+#define isc_bad_checksum                     335544649L
+#define isc_page_type_err                    335544650L
+#define isc_ext_readonly_err                 335544651L
+#define isc_sing_select_err                  335544652L
+#define isc_psw_attach                       335544653L
+#define isc_psw_start_trans                  335544654L
+#define isc_invalid_direction                335544655L
+#define isc_dsql_var_conflict                335544656L
+#define isc_dsql_no_blob_array               335544657L
+#define isc_dsql_base_table                  335544658L
+#define isc_duplicate_base_table             335544659L
+#define isc_view_alias                       335544660L
+#define isc_index_root_page_full             335544661L
+#define isc_dsql_blob_type_unknown           335544662L
+#define isc_req_max_clones_exceeded          335544663L
+#define isc_dsql_duplicate_spec              335544664L
+#define isc_unique_key_violation             335544665L
+#define isc_srvr_version_too_old             335544666L
+#define isc_drdb_completed_with_errs         335544667L
+#define isc_dsql_procedure_use_err           335544668L
+#define isc_dsql_count_mismatch              335544669L
+#define isc_blob_idx_err                     335544670L
+#define isc_array_idx_err                    335544671L
+#define isc_key_field_err                    335544672L
+#define isc_no_delete                        335544673L
+#define isc_del_last_field                   335544674L
+#define isc_sort_err                         335544675L
+#define isc_sort_mem_err                     335544676L
+#define isc_version_err                      335544677L
+#define isc_inval_key_posn                   335544678L
+#define isc_no_segments_err                  335544679L
+#define isc_crrp_data_err                    335544680L
+#define isc_rec_size_err                     335544681L
+#define isc_dsql_field_ref                   335544682L
+#define isc_req_depth_exceeded               335544683L
+#define isc_no_field_access                  335544684L
+#define isc_no_dbkey                         335544685L
+#define isc_jrn_format_err                   335544686L
+#define isc_jrn_file_full                    335544687L
+#define isc_dsql_open_cursor_request         335544688L
+#define isc_ib_error                         335544689L
+#define isc_cache_redef                      335544690L
+#define isc_cache_too_small                  335544691L
+#define isc_log_redef                        335544692L
+#define isc_log_too_small                    335544693L
+#define isc_partition_too_small              335544694L
+#define isc_partition_not_supp               335544695L
+#define isc_log_length_spec                  335544696L
+#define isc_precision_err                    335544697L
+#define isc_scale_nogt                       335544698L
+#define isc_expec_short                      335544699L
+#define isc_expec_long                       335544700L
+#define isc_expec_ushort                     335544701L
+#define isc_like_escape_invalid              335544702L
+#define isc_svcnoexe                         335544703L
+#define isc_net_lookup_err                   335544704L
+#define isc_service_unknown                  335544705L
+#define isc_host_unknown                     335544706L
+#define isc_grant_nopriv_on_base             335544707L
+#define isc_dyn_fld_ambiguous                335544708L
+#define isc_dsql_agg_ref_err                 335544709L
+#define isc_complex_view                     335544710L
+#define isc_unprepared_stmt                  335544711L
+#define isc_expec_positive                   335544712L
+#define isc_dsql_sqlda_value_err             335544713L
+#define isc_invalid_array_id                 335544714L
+#define isc_extfile_uns_op                   335544715L
+#define isc_svc_in_use                       335544716L
+#define isc_err_stack_limit                  335544717L
+#define isc_invalid_key                      335544718L
+#define isc_net_init_error                   335544719L
+#define isc_loadlib_failure                  335544720L
+#define isc_network_error                    335544721L
+#define isc_net_connect_err                  335544722L
+#define isc_net_connect_listen_err           335544723L
+#define isc_net_event_connect_err            335544724L
+#define isc_net_event_listen_err             335544725L
+#define isc_net_read_err                     335544726L
+#define isc_net_write_err                    335544727L
+#define isc_integ_index_deactivate           335544728L
+#define isc_integ_deactivate_primary         335544729L
+#define isc_cse_not_supported                335544730L
+#define isc_tra_must_sweep                   335544731L
+#define isc_unsupported_network_drive        335544732L
+#define isc_io_create_err                    335544733L
+#define isc_io_open_err                      335544734L
+#define isc_io_close_err                     335544735L
+#define isc_io_read_err                      335544736L
+#define isc_io_write_err                     335544737L
+#define isc_io_delete_err                    335544738L
+#define isc_io_access_err                    335544739L
+#define isc_udf_exception                    335544740L
+#define isc_lost_db_connection               335544741L
+#define isc_no_write_user_priv               335544742L
+#define isc_token_too_long                   335544743L
+#define isc_max_att_exceeded                 335544744L
+#define isc_login_same_as_role_name          335544745L
+#define isc_reftable_requires_pk             335544746L
+#define isc_usrname_too_long                 335544747L
+#define isc_password_too_long                335544748L
+#define isc_usrname_required                 335544749L
+#define isc_password_required                335544750L
+#define isc_bad_protocol                     335544751L
+#define isc_dup_usrname_found                335544752L
+#define isc_usrname_not_found                335544753L
+#define isc_error_adding_sec_record          335544754L
+#define isc_error_modifying_sec_record       335544755L
+#define isc_error_deleting_sec_record        335544756L
+#define isc_error_updating_sec_db            335544757L
+#define isc_sort_rec_size_err                335544758L
+#define isc_bad_default_value                335544759L
+#define isc_invalid_clause                   335544760L
+#define isc_too_many_handles                 335544761L
+#define isc_optimizer_blk_exc                335544762L
+#define isc_invalid_string_constant          335544763L
+#define isc_transitional_date                335544764L
+#define isc_read_only_database               335544765L
+#define isc_must_be_dialect_2_and_up         335544766L
+#define isc_blob_filter_exception            335544767L
+#define isc_exception_access_violation       335544768L
+#define isc_exception_datatype_missalignment 335544769L
+#define isc_exception_array_bounds_exceeded  335544770L
+#define isc_exception_float_denormal_operand 335544771L
+#define isc_exception_float_divide_by_zero   335544772L
+#define isc_exception_float_inexact_result   335544773L
+#define isc_exception_float_invalid_operand  335544774L
+#define isc_exception_float_overflow         335544775L
+#define isc_exception_float_stack_check      335544776L
+#define isc_exception_float_underflow        335544777L
+#define isc_exception_integer_divide_by_zero 335544778L
+#define isc_exception_integer_overflow       335544779L
+#define isc_exception_unknown                335544780L
+#define isc_exception_stack_overflow         335544781L
+#define isc_exception_sigsegv                335544782L
+#define isc_exception_sigill                 335544783L
+#define isc_exception_sigbus                 335544784L
+#define isc_exception_sigfpe                 335544785L
+#define isc_ext_file_delete                  335544786L
+#define isc_ext_file_modify                  335544787L
+#define isc_adm_task_denied                  335544788L
+#define isc_extract_input_mismatch           335544789L
+#define isc_insufficient_svc_privileges      335544790L
+#define isc_file_in_use                      335544791L
+#define isc_service_att_err                  335544792L
+#define isc_ddl_not_allowed_by_db_sql_dial   335544793L
+#define isc_cancelled                        335544794L
+#define isc_unexp_spb_form                   335544795L
+#define isc_sql_dialect_datatype_unsupport   335544796L
+#define isc_svcnouser                        335544797L
+#define isc_depend_on_uncommitted_rel        335544798L
+#define isc_svc_name_missing                 335544799L
+#define isc_too_many_contexts                335544800L
+#define isc_datype_notsup                    335544801L
+#define isc_dialect_reset_warning            335544802L
+#define isc_dialect_not_changed              335544803L
+#define isc_database_create_failed           335544804L
+#define isc_inv_dialect_specified            335544805L
+#define isc_valid_db_dialects                335544806L
+#define isc_sqlwarn                          335544807L
+#define isc_dtype_renamed                    335544808L
+#define isc_extern_func_dir_error            335544809L
+#define isc_date_range_exceeded              335544810L
+#define isc_inv_client_dialect_specified     335544811L
+#define isc_valid_client_dialects            335544812L
+#define isc_optimizer_between_err            335544813L
+#define isc_service_not_supported            335544814L
+#define isc_gfix_db_name                     335740929L
+#define isc_gfix_invalid_sw                  335740930L
+#define isc_gfix_incmp_sw                    335740932L
+#define isc_gfix_replay_req                  335740933L
+#define isc_gfix_pgbuf_req                   335740934L
+#define isc_gfix_val_req                     335740935L
+#define isc_gfix_pval_req                    335740936L
+#define isc_gfix_trn_req                     335740937L
+#define isc_gfix_full_req                    335740940L
+#define isc_gfix_usrname_req                 335740941L
+#define isc_gfix_pass_req                    335740942L
+#define isc_gfix_subs_name                   335740943L
+#define isc_gfix_wal_req                     335740944L
+#define isc_gfix_sec_req                     335740945L
+#define isc_gfix_nval_req                    335740946L
+#define isc_gfix_type_shut                   335740947L
+#define isc_gfix_retry                       335740948L
+#define isc_gfix_retry_db                    335740951L
+#define isc_gfix_exceed_max                  335740991L
+#define isc_gfix_corrupt_pool                335740992L
+#define isc_gfix_mem_exhausted               335740993L
+#define isc_gfix_bad_pool                    335740994L
+#define isc_gfix_trn_not_valid               335740995L
+#define isc_gfix_unexp_eoi                   335741012L
+#define isc_gfix_recon_fail                  335741018L
+#define isc_gfix_trn_unknown                 335741036L
+#define isc_gfix_mode_req                    335741038L
+#define isc_gfix_opt_SQL_dialect             335741039L
+#define isc_dsql_dbkey_from_non_table        336003074L
+#define isc_dsql_transitional_numeric        336003075L
+#define isc_dsql_dialect_warning_expr        336003076L
+#define isc_sql_db_dialect_dtype_unsupport   336003077L
+#define isc_isc_sql_dialect_conflict_num     336003079L
+#define isc_dsql_warning_number_ambiguous    336003080L
+#define isc_dsql_warning_number_ambiguous1   336003081L
+#define isc_dsql_warn_precision_ambiguous    336003082L
+#define isc_dsql_warn_precision_ambiguous1   336003083L
+#define isc_dsql_warn_precision_ambiguous2   336003084L
+#define isc_dyn_role_does_not_exist          336068796L
+#define isc_dyn_no_grant_admin_opt           336068797L
+#define isc_dyn_user_not_role_member         336068798L
+#define isc_dyn_delete_role_failed           336068799L
+#define isc_dyn_grant_role_to_user           336068800L
+#define isc_dyn_inv_sql_role_name            336068801L
+#define isc_dyn_dup_sql_role                 336068802L
+#define isc_dyn_kywd_spec_for_role           336068803L
+#define isc_dyn_roles_not_supported          336068804L
+#define isc_dyn_domain_name_exists           336068812L
+#define isc_dyn_field_name_exists            336068813L
+#define isc_dyn_dependency_exists            336068814L
+#define isc_dyn_dtype_invalid                336068815L
+#define isc_dyn_char_fld_too_small           336068816L
+#define isc_dyn_invalid_dtype_conversion     336068817L
+#define isc_dyn_dtype_conv_invalid           336068818L
+#define isc_gbak_unknown_switch              336330753L
+#define isc_gbak_page_size_missing           336330754L
+#define isc_gbak_page_size_toobig            336330755L
+#define isc_gbak_redir_ouput_missing         336330756L
+#define isc_gbak_switches_conflict           336330757L
+#define isc_gbak_unknown_device              336330758L
+#define isc_gbak_no_protection               336330759L
+#define isc_gbak_page_size_not_allowed       336330760L
+#define isc_gbak_multi_source_dest           336330761L
+#define isc_gbak_filename_missing            336330762L
+#define isc_gbak_dup_inout_names             336330763L
+#define isc_gbak_inv_page_size               336330764L
+#define isc_gbak_db_specified                336330765L
+#define isc_gbak_db_exists                   336330766L
+#define isc_gbak_unk_device                  336330767L
+#define isc_gbak_blob_info_failed            336330772L
+#define isc_gbak_unk_blob_item               336330773L
+#define isc_gbak_get_seg_failed              336330774L
+#define isc_gbak_close_blob_failed           336330775L
+#define isc_gbak_open_blob_failed            336330776L
+#define isc_gbak_put_blr_gen_id_failed       336330777L
+#define isc_gbak_unk_type                    336330778L
+#define isc_gbak_comp_req_failed             336330779L
+#define isc_gbak_start_req_failed            336330780L
+#define isc_gbak_rec_failed                  336330781L
+#define isc_gbak_rel_req_failed              336330782L
+#define isc_gbak_db_info_failed              336330783L
+#define isc_gbak_no_db_desc                  336330784L
+#define isc_gbak_db_create_failed            336330785L
+#define isc_gbak_decomp_len_error            336330786L
+#define isc_gbak_tbl_missing                 336330787L
+#define isc_gbak_blob_col_missing            336330788L
+#define isc_gbak_create_blob_failed          336330789L
+#define isc_gbak_put_seg_failed              336330790L
+#define isc_gbak_rec_len_exp                 336330791L
+#define isc_gbak_inv_rec_len                 336330792L
+#define isc_gbak_exp_data_type               336330793L
+#define isc_gbak_gen_id_failed               336330794L
+#define isc_gbak_unk_rec_type                336330795L
+#define isc_gbak_inv_bkup_ver                336330796L
+#define isc_gbak_missing_bkup_desc           336330797L
+#define isc_gbak_string_trunc                336330798L
+#define isc_gbak_cant_rest_record            336330799L
+#define isc_gbak_send_failed                 336330800L
+#define isc_gbak_no_tbl_name                 336330801L
+#define isc_gbak_unexp_eof                   336330802L
+#define isc_gbak_db_format_too_old           336330803L
+#define isc_gbak_inv_array_dim               336330804L
+#define isc_gbak_xdr_len_expected            336330807L
+#define isc_gbak_open_bkup_error             336330817L
+#define isc_gbak_open_error                  336330818L
+#define isc_gbak_missing_block_fac           336330934L
+#define isc_gbak_inv_block_fac               336330935L
+#define isc_gbak_block_fac_specified         336330936L
+#define isc_gbak_missing_username            336330940L
+#define isc_gbak_missing_password            336330941L
+#define isc_gbak_missing_skipped_bytes       336330952L
+#define isc_gbak_inv_skipped_bytes           336330953L
+#define isc_gbak_err_restore_charset         336330965L
+#define isc_gbak_err_restore_collation       336330967L
+#define isc_gbak_read_error                  336330972L
+#define isc_gbak_write_error                 336330973L
+#define isc_gbak_db_in_use                   336330985L
+#define isc_gbak_sysmemex                    336330990L
+#define isc_gbak_restore_role_failed         336331002L
+#define isc_gbak_role_op_missing             336331005L
+#define isc_gbak_page_buffers_missing        336331010L
+#define isc_gbak_page_buffers_wrong_param    336331011L
+#define isc_gbak_page_buffers_restore        336331012L
+#define isc_gbak_inv_size                    336331014L
+#define isc_gbak_file_outof_sequence         336331015L
+#define isc_gbak_join_file_missing           336331016L
+#define isc_gbak_stdin_not_supptd            336331017L
+#define isc_gbak_stdout_not_supptd           336331018L
+#define isc_gbak_bkup_corrupt                336331019L
+#define isc_gbak_unk_db_file_spec            336331020L
+#define isc_gbak_hdr_write_failed            336331021L
+#define isc_gbak_disk_space_ex               336331022L
+#define isc_gbak_size_lt_min                 336331023L
+#define isc_gbak_svc_name_missing            336331025L
+#define isc_gbak_not_ownr                    336331026L
+#define isc_gbak_mode_req                    336331031L
+#define isc_gsec_cant_open_db                336723983L
+#define isc_gsec_switches_error              336723984L
+#define isc_gsec_no_op_spec                  336723985L
+#define isc_gsec_no_usr_name                 336723986L
+#define isc_gsec_err_add                     336723987L
+#define isc_gsec_err_modify                  336723988L
+#define isc_gsec_err_find_mod                336723989L
+#define isc_gsec_err_rec_not_found           336723990L
+#define isc_gsec_err_delete                  336723991L
+#define isc_gsec_err_find_del                336723992L
+#define isc_gsec_err_find_disp               336723996L
+#define isc_gsec_inv_param                   336723997L
+#define isc_gsec_op_specified                336723998L
+#define isc_gsec_pw_specified                336723999L
+#define isc_gsec_uid_specified               336724000L
+#define isc_gsec_gid_specified               336724001L
+#define isc_gsec_proj_specified              336724002L
+#define isc_gsec_org_specified               336724003L
+#define isc_gsec_fname_specified             336724004L
+#define isc_gsec_mname_specified             336724005L
+#define isc_gsec_lname_specified             336724006L
+#define isc_gsec_inv_switch                  336724008L
+#define isc_gsec_amb_switch                  336724009L
+#define isc_gsec_no_op_specified             336724010L
+#define isc_gsec_params_not_allowed          336724011L
+#define isc_gsec_incompat_switch             336724012L
+#define isc_gsec_inv_username                336724044L
+#define isc_gsec_inv_pw_length               336724045L
+#define isc_gsec_db_specified                336724046L
+#define isc_gsec_db_admin_specified          336724047L
+#define isc_gsec_db_admin_pw_specified       336724048L
+#define isc_gsec_sql_role_specified          336724049L
+#define isc_license_no_file                  336789504L
+#define isc_license_op_specified             336789523L
+#define isc_license_op_missing               336789524L
+#define isc_license_inv_switch               336789525L
+#define isc_license_inv_switch_combo         336789526L
+#define isc_license_inv_op_combo             336789527L
+#define isc_license_amb_switch               336789528L
+#define isc_license_inv_parameter            336789529L
+#define isc_license_param_specified          336789530L
+#define isc_license_param_req                336789531L
+#define isc_license_syntx_error              336789532L
+#define isc_license_dup_id                   336789534L
+#define isc_license_inv_id_key               336789535L
+#define isc_license_err_remove               336789536L
+#define isc_license_err_update               336789537L
+#define isc_license_err_convert              336789538L
+#define isc_license_err_unk                  336789539L
+#define isc_license_svc_err_add              336789540L
+#define isc_license_svc_err_remove           336789541L
+#define isc_license_eval_exists              336789563L
+#define isc_gstat_unknown_switch             336920577L
+#define isc_gstat_retry                      336920578L
+#define isc_gstat_wrong_ods                  336920579L
+#define isc_gstat_unexpected_eof             336920580L
+#define isc_gstat_open_err                   336920605L
+#define isc_gstat_read_err                   336920606L
+#define isc_gstat_sysmemex                   336920607L
+#define isc_err_max                          689
diff --git a/src/include/jrd/gds.h b/src/include/jrd/gds.h
new file mode 100644
index 0000000000..61c031beaa
--- /dev/null
+++ b/src/include/jrd/gds.h
@@ -0,0 +1,7 @@
+#ifndef INCLUDE_JRD_GDS_H
+#define INCLUDE_JRD_GDS_H
+
+#include "../../jrd/ibase.h"
+#include "../../jrd/gdsold.h"
+
+#endif
diff --git a/src/intl/ancyrr.h b/src/intl/ancyrr.h
new file mode 100644
index 0000000000..5eb5b46201
--- /dev/null
+++ b/src/intl/ancyrr.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 00ancyrr -----------*/
+/*----------- On      Tue Jun 14 12:10:17 1994 -----------*/
+
+/*  ancyrr.def */
+/*  Generated on Tue Jun 14 12:10:11 1994
+ */
+/*  from input file 'cfg/ancyrr.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxwRUSSIAN
+
+
+#define LDRV_CTRYLANGID             RUSSIA
+
+
+#define LDRV_PRIMARYCPID            1251
+
+
+#define LDRV_PID                    PDOXWIN
+
+
+#define LDRV_ALTCPID                866
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Pdx ANSI Cyrillic"
+
+
+#define LDRV_FNAME                  "ancyrr"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/ancyrr.def */
+
+#define MAX_NCO_PRIMARY  	196
+#define MAX_NCO_SECONDARY	  1
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	168,						/* ¸ 184 -> ¨ 168 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	215,						/* ÷ 247 -> × 215 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	223							/*   255 -> ß 223 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	184,						/* ¨ 168 -> ¸ 184 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	247,						/* × 215 -> ÷ 247 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	255,						/* ß 223 ->   255 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 104, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 109, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 111, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 112, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 113, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 114, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 115, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 116, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 117, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 118, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 119, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 120, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 121, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 122, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 104, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 109, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 111, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 112, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 113, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 114, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 115, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 116, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 117, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 118, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 119, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 120, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 121, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 122, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_1251.h"
+#endif
+/* End of File : Language driver ancyrr */
diff --git a/src/intl/anczech.h b/src/intl/anczech.h
new file mode 100644
index 0000000000..941a2efa8e
--- /dev/null
+++ b/src/intl/anczech.h
@@ -0,0 +1,981 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): Karel Brichnac <brichna@atlas.cz>
+ *                       ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 0anczech -----------*/
+/*----------- On      Mon May 16 11:04:07 1994 -----------*/
+
+/*  anczech.def */
+/*  Generated on Mon May 16 11:04:00 1994
+ */
+/*  from input file 'cfg/anczech.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxwCZECH
+
+
+#define LDRV_CTRYLANGID             CZECH
+
+
+#define LDRV_PRIMARYCPID            1250
+
+
+#define LDRV_PID                    PDOXWIN
+
+
+#define LDRV_ALTCPID                852
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox ANSI Czech"
+
+
+#define LDRV_FNAME                  "anczech"
+
+
+#define NUM_EXPAND_CHARS            4
+
+
+#define NUM_COMPRESS_CHARS          4
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/anczech.def */
+
+#define MAX_NCO_PRIMARY  	153
+#define MAX_NCO_SECONDARY	 11
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	138,						/*   154 ->   138 */
+	155,						/*   155 ->   155 */
+	140,						/*   156 ->   140 */
+	141,						/*   157 ->   141 */
+	142,						/*   158 ->   142 */
+	143,						/*   159 ->   143 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	163,						/* ³ 179 -> £ 163 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	165,						/* ¹ 185 -> ¥ 165 */
+	170,						/* º 186 -> ª 170 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	188,						/* ¾ 190 -> ¼ 188 */
+	175,						/* ¿ 191 -> ¯ 175 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	154,						/*   138 ->   154 */
+	139,						/*   139 ->   139 */
+	156,						/*   140 ->   156 */
+	157,						/*   141 ->   157 */
+	158,						/*   142 ->   158 */
+	159,						/*   143 ->   159 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	179,						/* £ 163 -> ³ 179 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	185,						/* ¥ 165 -> ¹ 185 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	186,						/* ª 170 -> º 186 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	191,						/* ¯ 175 -> ¿ 191 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	190,						/* ¼ 188 -> ¾ 190 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{223, 115, 115},			/* ß -> ss */
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{225, 115, 115},			/* á -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	
+		{{99, 104},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},
+	{{67, 104},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},
+	{{99, 72}, {FIRST_PRIMARY + 74, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},
+	{{67, 72}, {FIRST_PRIMARY + 74, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0}},
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  67 C */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/*  99 c */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 6, NULL_TERTIARY, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_1250.h"
+#endif
+/* End of File : Language driver anczech */
diff --git a/src/intl/angreek1.h b/src/intl/angreek1.h
new file mode 100644
index 0000000000..b1b2825024
--- /dev/null
+++ b/src/intl/angreek1.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from angreek1 -----------*/
+/*----------- On      Mon May 16 11:19:53 1994 -----------*/
+
+/*  angreek1.def */
+/*  Generated on Mon May 16 11:19:46 1994
+ */
+/*  from input file 'cfg/angreek1.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxwGREEK
+
+
+#define LDRV_CTRYLANGID             GREECE
+
+
+#define LDRV_PRIMARYCPID            1253
+
+
+#define LDRV_PID                    PDOXWIN
+
+
+#define LDRV_ALTCPID                430
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox ANSI Greek"
+
+
+#define LDRV_FNAME                  "angreek1"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/angreek1.def */
+
+#define MAX_NCO_PRIMARY  	184
+#define MAX_NCO_SECONDARY	  6
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	218,						/* À 192 -> Ú 218 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	162,						/* Ü 220 -> ¢ 162 */
+	184,						/* Ý 221 -> ¸ 184 */
+	185,						/* Þ 222 -> ¹ 185 */
+	186,						/* ß 223 -> º 186 */
+	219,						/* à 224 -> Û 219 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	211,						/* ò 242 -> Ó 211 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	215,						/* ÷ 247 -> × 215 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	188,						/* ü 252 -> ¼ 188 */
+	190,						/* ý 253 -> ¾ 190 */
+	191,						/* þ 254 -> ¿ 191 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	220,						/* ¢ 162 -> Ü 220 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	221,						/* ¸ 184 -> Ý 221 */
+	222,						/* ¹ 185 -> Þ 222 */
+	223,						/* º 186 -> ß 223 */
+	187,						/* » 187 -> » 187 */
+	252,						/* ¼ 188 -> ü 252 */
+	189,						/* ½ 189 -> ½ 189 */
+	253,						/* ¾ 190 -> ý 253 */
+	254,						/* ¿ 191 -> þ 254 */
+	192,						/* À 192 -> À 192 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	210,						/* Ò 210 -> Ò 210 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	247,						/* × 215 -> ÷ 247 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 114, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 104, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 109, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 111, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 112, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 113, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 114, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 104, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 109, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 111, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 112, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 113, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 114, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 114, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_1253.h"
+#endif
+/* End of File : Language driver angreek1 */
diff --git a/src/intl/anhundc.h b/src/intl/anhundc.h
new file mode 100644
index 0000000000..20ba02f660
--- /dev/null
+++ b/src/intl/anhundc.h
@@ -0,0 +1,1033 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 0anhundc -----------*/
+/*----------- On      Tue Jun 14 12:11:29 1994 -----------*/
+
+/*  anhundc.def */
+/*  Generated on Tue Jun 14 12:11:22 1994
+ */
+/*  from input file 'cfg/anhundc.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxwHUNGARIAN
+
+
+#define LDRV_CTRYLANGID             HUNGARY
+
+
+#define LDRV_PRIMARYCPID            1250
+
+
+#define LDRV_PID                    PDOXWIN
+
+
+#define LDRV_ALTCPID                852
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Pdox Hun ANSI DC"
+
+
+#define LDRV_FNAME                  "anhundc"
+
+
+#define NUM_EXPAND_CHARS            3
+
+
+#define NUM_COMPRESS_CHARS          24
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/anhundc.def */
+
+#define MAX_NCO_PRIMARY  	211
+#define MAX_NCO_SECONDARY	 10
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	193,						/* á 225 -> Á 193 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	201,						/* é 233 -> É 201 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	205,						/* í 237 -> Í 205 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	211,						/* ó 243 -> Ó 211 */
+	244,						/* ô 244 -> ô 244 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	225,						/* Á 193 -> á 225 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	233,						/* É 201 -> é 233 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	237,						/* Í 205 -> í 237 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	243,						/* Ó 211 -> ó 243 */
+	212,						/* Ô 212 -> Ô 212 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{225, 115, 115},			/* á -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	
+		{{99, 115},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* cs */
+	{{67, 115},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Cs */
+	{{67, 83}, {FIRST_PRIMARY + 68, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* CS */
+	{{100, 122},
+	 {FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* dz */
+	{{68, 122},
+	 {FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Dz */
+	{{68, 90}, {FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* DZ */
+	{{103, 121},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* gy */
+	{{71, 121},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Gy */
+	{{71, 89}, {FIRST_PRIMARY + 74, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* GY */
+	{{108, 121},
+	 {FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ly */
+	{{76, 121},
+	 {FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Ly */
+	{{76, 89}, {FIRST_PRIMARY + 80, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 80, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* LY */
+	{{110, 121},
+	 {FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ny */
+	{{78, 121},
+	 {FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Ny */
+	{{78, 89}, {FIRST_PRIMARY + 83, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 83, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* NY */
+	{{115, 122},
+	 {FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* sz */
+	{{83, 122},
+	 {FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Sz */
+	{{83, 90}, {FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* SZ */
+	{{116, 121},
+	 {FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ty */
+	{{84, 121},
+	 {FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Ty */
+	{{84, 89}, {FIRST_PRIMARY + 91, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 91, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* TY */
+	{{122, 115},
+	 {FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* zs */
+	{{90, 115},
+	 {FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Zs */
+	{{90, 83}, {FIRST_PRIMARY + 98, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 98, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* ZS */
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  67 C */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  68 D */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  71 G */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  76 L */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  78 N */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  83 S */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  84 T */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  90 Z */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/*  99 c */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 100 d */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 103 g */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 108 l */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 110 n */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 115 s */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 116 t */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 122 z */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 201, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 202, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 203, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 204, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 205, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 206, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 207, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 208, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 209, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 210, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 211, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_1250.h"
+#endif
+/* End of File : Language driver anhundc */
diff --git a/src/intl/anpolish.h b/src/intl/anpolish.h
new file mode 100644
index 0000000000..87f87e65f6
--- /dev/null
+++ b/src/intl/anpolish.h
@@ -0,0 +1,968 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from anpolish -----------*/
+/*----------- On      Mon May 16 11:13:41 1994 -----------*/
+
+/*  anpolish.def */
+/*  Generated on Mon May 16 11:13:35 1994
+ */
+/*  from input file 'cfg/anpolish.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxwPOLISH
+
+
+#define LDRV_CTRYLANGID             POLAND
+
+
+#define LDRV_PRIMARYCPID            1250
+
+
+#define LDRV_PID                    PDOXWIN
+
+
+#define LDRV_ALTCPID                852
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox ANSI Polish"
+
+
+#define LDRV_FNAME                  "anpolish"
+
+
+#define NUM_EXPAND_CHARS            3
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/anpolish.def */
+
+#define MAX_NCO_PRIMARY  	168
+#define MAX_NCO_SECONDARY	  9
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	138,						/*   154 ->   138 */
+	155,						/*   155 ->   155 */
+	140,						/*   156 ->   140 */
+	141,						/*   157 ->   141 */
+	142,						/*   158 ->   142 */
+	143,						/*   159 ->   143 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	163,						/* ³ 179 -> £ 163 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	165,						/* ¹ 185 -> ¥ 165 */
+	170,						/* º 186 -> ª 170 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	188,						/* ¾ 190 -> ¼ 188 */
+	175,						/* ¿ 191 -> ¯ 175 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	154,						/*   138 ->   154 */
+	139,						/*   139 ->   139 */
+	156,						/*   140 ->   156 */
+	157,						/*   141 ->   157 */
+	158,						/*   142 ->   158 */
+	159,						/*   143 ->   159 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	179,						/* £ 163 -> ³ 179 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	185,						/* ¥ 165 -> ¹ 185 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	186,						/* ª 170 -> º 186 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	191,						/* ¯ 175 -> ¿ 191 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	190,						/* ¼ 188 -> ¾ 190 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{225, 115, 115},			/* á -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 104, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 104, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 109, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 109, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_1250.h"
+#endif
+/* End of File : Language driver anpolish */
diff --git a/src/intl/ansii850.h b/src/intl/ansii850.h
new file mode 100644
index 0000000000..c0c109d97a
--- /dev/null
+++ b/src/intl/ansii850.h
@@ -0,0 +1,976 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from ansii850 -----------*/
+/*----------- On      Tue Jun 14 11:38:37 1994 -----------*/
+
+/*  ansii850.def */
+/*  Generated on Tue Jun 14 11:38:31 1994
+ */
+/*  from input file 'cfg/ansii850.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxwINTL2
+
+
+#define LDRV_CTRYLANGID             INTL2
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    PDOXWIN
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Pdox ANSI INTL850"
+
+
+#define LDRV_FNAME                  "ansii850"
+
+
+#define NUM_EXPAND_CHARS            11
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          2
+
+
+/* End of langdrv/ansii850.def */
+
+#define MAX_NCO_PRIMARY  	165
+#define MAX_NCO_SECONDARY	 15
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{228, 97, 101},				/* ä -> ae */
+	{196, 65, 69},				/* Ä -> AE */
+	{246, 111, 101},			/* ö -> oe */
+	{214, 79, 69},				/* Ö -> OE */
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{252, 117, 101},			/* ü -> ue */
+	{220, 85, 69},				/* Ü -> UE */
+	{198, 65, 69},				/* Æ -> AE */
+	{230, 97, 101},				/* æ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 12, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 14, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 15, NULL_TERTIARY, 1, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 13, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 13, NULL_TERTIARY, 1, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 12, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 8, NULL_TERTIARY, 1, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 15, NULL_TERTIARY, 1, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 13, NULL_TERTIARY, 1, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 8, NULL_TERTIARY, 1, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_1252.h"
+#endif
+/* End of File : Language driver ansii850 */
diff --git a/src/intl/ansiintl.h b/src/intl/ansiintl.h
new file mode 100644
index 0000000000..18d3ed17f6
--- /dev/null
+++ b/src/intl/ansiintl.h
@@ -0,0 +1,976 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from ansiintl -----------*/
+/*----------- On      Tue Jun 14 11:36:28 1994 -----------*/
+
+/*  ansiintl.def */
+/*  Generated on Tue Jun 14 11:36:22 1994
+ */
+/*  from input file 'cfg/ansiintl.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxwINTL
+
+
+#define LDRV_CTRYLANGID             INTL
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    PDOXWIN
+
+
+#define LDRV_ALTCPID                437
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox ANSI INTL"
+
+
+#define LDRV_FNAME                  "ansiintl"
+
+
+#define NUM_EXPAND_CHARS            11
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          2
+
+
+/* End of langdrv/ansiintl.def */
+
+#define MAX_NCO_PRIMARY  	171
+#define MAX_NCO_SECONDARY	 12
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	65,							/* à 224 -> A  65 */
+	65,							/* á 225 -> A  65 */
+	65,							/* â 226 -> A  65 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	69,							/* è 232 -> E  69 */
+	69,							/* é 233 -> E  69 */
+	69,							/* ê 234 -> E  69 */
+	69,							/* ë 235 -> E  69 */
+	73,							/* ì 236 -> I  73 */
+	73,							/* í 237 -> I  73 */
+	73,							/* î 238 -> I  73 */
+	73,							/* ï 239 -> I  73 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	79,							/* ò 242 -> O  79 */
+	79,							/* ó 243 -> O  79 */
+	79,							/* ô 244 -> O  79 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	85,							/* ù 249 -> U  85 */
+	85,							/* ú 250 -> U  85 */
+	85,							/* û 251 -> U  85 */
+	220,						/* ü 252 -> Ü 220 */
+	89,							/* ý 253 -> Y  89 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{228, 97, 101},				/* ä -> ae */
+	{196, 65, 69},				/* Ä -> AE */
+	{246, 111, 101},			/* ö -> oe */
+	{214, 79, 69},				/* Ö -> OE */
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{252, 117, 101},			/* ü -> ue */
+	{220, 85, 69},				/* Ü -> UE */
+	{198, 65, 69},				/* Æ -> AE */
+	{230, 97, 101},				/* æ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 10, NULL_TERTIARY, 1, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 12, NULL_TERTIARY, 1, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 8, NULL_TERTIARY, 1, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 10, NULL_TERTIARY, 1, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 12, NULL_TERTIARY, 1, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 8, NULL_TERTIARY, 1, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_1252.h"
+#endif
+/* End of File : Language driver ansiintl */
diff --git a/src/intl/ansinor4.h b/src/intl/ansinor4.h
new file mode 100644
index 0000000000..ed0ecc5e30
--- /dev/null
+++ b/src/intl/ansinor4.h
@@ -0,0 +1,970 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from ansinor4 -----------*/
+/*----------- On      Tue Jun 14 12:03:57 1994 -----------*/
+
+/*  ansinor4.def */
+/*  Generated on Tue Jun 14 12:03:51 1994
+ */
+/*  from input file 'cfg/ansinor4.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxwNORDAN4
+
+
+#define LDRV_CTRYLANGID             NORDAN
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    PDOXWIN
+
+
+#define LDRV_ALTCPID                865
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Pdox ANSI NORDAN4"
+
+
+#define LDRV_FNAME                  "ansinor4"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          2
+
+
+/* End of langdrv/ansinor4.def */
+
+#define MAX_NCO_PRIMARY  	171
+#define MAX_NCO_SECONDARY	  9
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	65,							/* à 224 -> A  65 */
+	65,							/* á 225 -> A  65 */
+	65,							/* â 226 -> A  65 */
+	227,						/* ã 227 -> ã 227 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	69,							/* è 232 -> E  69 */
+	69,							/* é 233 -> E  69 */
+	69,							/* ê 234 -> E  69 */
+	69,							/* ë 235 -> E  69 */
+	73,							/* ì 236 -> I  73 */
+	73,							/* í 237 -> I  73 */
+	73,							/* î 238 -> I  73 */
+	73,							/* ï 239 -> I  73 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	79,							/* ò 242 -> O  79 */
+	79,							/* ó 243 -> O  79 */
+	79,							/* ô 244 -> O  79 */
+	245,						/* õ 245 -> õ 245 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	85,							/* ù 249 -> U  85 */
+	85,							/* ú 250 -> U  85 */
+	85,							/* û 251 -> U  85 */
+	220,						/* ü 252 -> Ü 220 */
+	89,							/* ý 253 -> Y  89 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{222, 84, 72},				/* Þ -> TH */
+	{254, 116, 104},			/* þ -> th */
+	{198, 65, 69},				/* Æ -> AE */
+	{230, 97, 101},				/* æ -> ae */
+	{223, 115, 115},			/* ß -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_1252.h"
+#endif
+/* End of File : Language driver ansinor4 */
diff --git a/src/intl/ansislov.h b/src/intl/ansislov.h
new file mode 100644
index 0000000000..5d98a792ce
--- /dev/null
+++ b/src/intl/ansislov.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from ansislov -----------*/
+/*----------- On      Tue Jun 14 10:53:10 1994 -----------*/
+
+/*  ansislov.def */
+/*  Generated on Tue Jun 14 10:53:04 1994
+ */
+/*  from input file 'cfg/ansislov.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxwSLOVENE
+
+
+#define LDRV_CTRYLANGID             YUGOSLAVIA
+
+
+#define LDRV_PRIMARYCPID            1250
+
+
+#define LDRV_PID                    PDOXWIN
+
+
+#define LDRV_ALTCPID                852
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Pdox ANSI Slovene"
+
+
+#define LDRV_FNAME                  "ansislov"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/ansislov.def */
+
+#define MAX_NCO_PRIMARY  	153
+#define MAX_NCO_SECONDARY	 11
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	138,						/*   154 ->   138 */
+	155,						/*   155 ->   155 */
+	140,						/*   156 ->   140 */
+	141,						/*   157 ->   141 */
+	142,						/*   158 ->   142 */
+	143,						/*   159 ->   143 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	163,						/* ³ 179 -> £ 163 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	165,						/* ¹ 185 -> ¥ 165 */
+	170,						/* º 186 -> ª 170 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	188,						/* ¾ 190 -> ¼ 188 */
+	175,						/* ¿ 191 -> ¯ 175 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	154,						/*   138 ->   154 */
+	139,						/*   139 ->   139 */
+	156,						/*   140 ->   156 */
+	157,						/*   141 ->   157 */
+	158,						/*   142 ->   158 */
+	159,						/*   143 ->   159 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	179,						/* £ 163 -> ³ 179 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	185,						/* ¥ 165 -> ¹ 185 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	186,						/* ª 170 -> º 186 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	191,						/* ¯ 175 -> ¿ 191 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	190,						/* ¼ 188 -> ¾ 190 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_1250.h"
+#endif
+/* End of File : Language driver ansislov */
diff --git a/src/intl/ansispan.h b/src/intl/ansispan.h
new file mode 100644
index 0000000000..0cf6b92f9e
--- /dev/null
+++ b/src/intl/ansispan.h
@@ -0,0 +1,985 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from ansispan -----------*/
+/*----------- On      Tue Jun 14 11:40:05 1994 -----------*/
+
+/*  ansispan.def */
+/*  Generated on Tue Jun 14 11:39:59 1994
+ */
+/*  from input file 'cfg/ansispan.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxwSPANISH
+
+
+#define LDRV_CTRYLANGID             SPAIN2
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    PDOXWIN
+
+
+#define LDRV_ALTCPID                437
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Pdox ESP ANSI"
+
+
+#define LDRV_FNAME                  "ansispan"
+
+
+#define NUM_EXPAND_CHARS            3
+
+
+#define NUM_COMPRESS_CHARS          6
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          2
+
+
+/* End of langdrv/ansispan.def */
+
+#define MAX_NCO_PRIMARY  	166
+#define MAX_NCO_SECONDARY	 15
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	65,							/* à 224 -> A  65 */
+	65,							/* á 225 -> A  65 */
+	65,							/* â 226 -> A  65 */
+	227,						/* ã 227 -> ã 227 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	69,							/* è 232 -> E  69 */
+	69,							/* é 233 -> E  69 */
+	69,							/* ê 234 -> E  69 */
+	69,							/* ë 235 -> E  69 */
+	73,							/* ì 236 -> I  73 */
+	73,							/* í 237 -> I  73 */
+	73,							/* î 238 -> I  73 */
+	73,							/* ï 239 -> I  73 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	79,							/* ò 242 -> O  79 */
+	79,							/* ó 243 -> O  79 */
+	79,							/* ô 244 -> O  79 */
+	245,						/* õ 245 -> õ 245 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	85,							/* ù 249 -> U  85 */
+	85,							/* ú 250 -> U  85 */
+	85,							/* û 251 -> U  85 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{230, 97, 101},				/* æ -> ae */
+	{198, 65, 69},				/* Æ -> AE */
+	{223, 115, 115},			/* ß -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	
+		{{99, 104},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ch */
+	{{67, 104},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Ch */
+	{{67, 72}, {FIRST_PRIMARY + 68, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* CH */
+	{{108, 108},
+	 {FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ll */
+	{{76, 108},
+	 {FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Ll */
+	{{76, 76}, {FIRST_PRIMARY + 78, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 78, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* LL */
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 1},	/*  67 C */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  76 L */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/*  99 c */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 108 l */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 63, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 12, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 13, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 14, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 15, NULL_TERTIARY, 1, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 13, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 12, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 14, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 15, NULL_TERTIARY, 1, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_1252.h"
+#endif
+/* End of File : Language driver ansispan */
diff --git a/src/intl/ansiswfn.h b/src/intl/ansiswfn.h
new file mode 100644
index 0000000000..870e564009
--- /dev/null
+++ b/src/intl/ansiswfn.h
@@ -0,0 +1,970 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from ansiswfn -----------*/
+/*----------- On      Tue Jun 14 12:02:32 1994 -----------*/
+
+/*  ansiswfn.def */
+/*  Generated on Tue Jun 14 12:02:26 1994
+ */
+/*  from input file 'cfg/ansiswfn.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxwSWEDFIN
+
+
+#define LDRV_CTRYLANGID             SWEDFIN
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    PDOXWIN
+
+
+#define LDRV_ALTCPID                437
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Pdox ANSI SWEDFIN"
+
+
+#define LDRV_FNAME                  "ansiswfn"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          2
+
+
+/* End of langdrv/ansiswfn.def */
+
+#define MAX_NCO_PRIMARY  	177
+#define MAX_NCO_SECONDARY	  9
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	65,							/* à 224 -> A  65 */
+	65,							/* á 225 -> A  65 */
+	65,							/* â 226 -> A  65 */
+	227,						/* ã 227 -> ã 227 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	69,							/* è 232 -> E  69 */
+	201,						/* é 233 -> É 201 */
+	69,							/* ê 234 -> E  69 */
+	69,							/* ë 235 -> E  69 */
+	73,							/* ì 236 -> I  73 */
+	73,							/* í 237 -> I  73 */
+	73,							/* î 238 -> I  73 */
+	73,							/* ï 239 -> I  73 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	79,							/* ò 242 -> O  79 */
+	79,							/* ó 243 -> O  79 */
+	79,							/* ô 244 -> O  79 */
+	245,						/* õ 245 -> õ 245 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	85,							/* ù 249 -> U  85 */
+	85,							/* ú 250 -> U  85 */
+	85,							/* û 251 -> U  85 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{198, 65, 69},				/* Æ -> AE */
+	{230, 97, 101},				/* æ -> ae */
+	{223, 115, 115},			/* ß -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_1252.h"
+#endif
+/* End of File : Language driver ansiswfn */
diff --git a/src/intl/anturk.h b/src/intl/anturk.h
new file mode 100644
index 0000000000..4d1d743be3
--- /dev/null
+++ b/src/intl/anturk.h
@@ -0,0 +1,970 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 00anturk -----------*/
+/*----------- On      Mon May 16 11:22:27 1994 -----------*/
+
+/*  anturk.def */
+/*  Generated on Mon May 16 11:22:21 1994
+ */
+/*  from input file 'cfg/anturk.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxwTURK
+
+
+#define LDRV_CTRYLANGID             TURKEY
+
+
+#define LDRV_PRIMARYCPID            1254
+
+
+#define LDRV_PID                    PDOXWIN
+
+
+#define LDRV_ALTCPID                857
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox ANSI 'turk'"
+
+
+#define LDRV_FNAME                  "anturk"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/anturk.def */
+
+#define MAX_NCO_PRIMARY  	175
+#define MAX_NCO_SECONDARY	 14
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	221,						/* i 105 -> Ý 221 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	73,							/* ý 253 -> I  73 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	253,						/* I  73 -> ý 253 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	105,						/* Ý 221 -> i 105 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{228, 97, 101},				/* ä -> ae */
+	{196, 65, 69},				/* Ä -> AE */
+	{223, 83, 115},				/* ß -> Ss */
+	{198, 65, 69},				/* Æ -> AE */
+	{230, 97, 101},				/* æ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 12, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 14, NULL_TERTIARY, 1, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 13, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 14, NULL_TERTIARY, 1, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_1254.h"
+#endif
+/* End of File : Language driver anturk */
diff --git a/src/intl/ascii.h b/src/intl/ascii.h
new file mode 100644
index 0000000000..c759e1d88b
--- /dev/null
+++ b/src/intl/ascii.h
@@ -0,0 +1,1486 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 000ascii -----------*/
+/*----------- On      Thu Aug 20 14:17:49 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  ascii.DEF */
+/* */
+/*  Generated on Tue Aug 04 16:15:05 1992 */
+/*  from input file 'ASCII.CFG' */
+/* */
+/*  by LDCFG Version 1.0 */
+/* */
+/*  Language Driver/API version 1.0 */
+/* */
+
+#define LDRV_DRIVERID               pxUS
+
+
+#define LDRV_CTRYLANGID             US
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    PDOX
+
+
+#define LDRV_ALTCPID                0
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               ASCII_SORT
+
+
+#define LDRV_NAME                   "Paradox 'ascii'"
+
+
+#define LDRV_FNAME                  "ascii"
+
+
+#define NUM_EXPAND_CHARS            2
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/ascii.def */
+
+#define MAX_NCO_PRIMARY  	229
+#define MAX_NCO_SECONDARY	  0
+#define MAX_NCO_TERTIARY 	  1
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*  127 ->  127 */
+	128,						/* € 128 -> € 128 */
+	154,						/* � 129 -> š 154 */
+	144,						/* ‚ 130 -> � 144 */
+	65,							/* ƒ 131 -> A  65 */
+	142,						/* „ 132 -> Ž 142 */
+	65,							/* … 133 -> A  65 */
+	143,						/* † 134 -> � 143 */
+	128,						/* ‡ 135 -> € 128 */
+	69,							/* ˆ 136 -> E  69 */
+	69,							/* ‰ 137 -> E  69 */
+	69,							/* Š 138 -> E  69 */
+	73,							/* ‹ 139 -> I  73 */
+	73,							/* Π140 -> I  73 */
+	73,							/* � 141 -> I  73 */
+	142,						/* Ž 142 -> Ž 142 */
+	143,						/* � 143 -> � 143 */
+	144,						/* � 144 -> � 144 */
+	146,						/* ‘ 145 -> ’ 146 */
+	146,						/* ’ 146 -> ’ 146 */
+	79,							/* “ 147 -> O  79 */
+	153,						/* ” 148 -> ™ 153 */
+	79,							/* • 149 -> O  79 */
+	85,							/* – 150 -> U  85 */
+	85,							/* — 151 -> U  85 */
+	89,							/* ˜ 152 -> Y  89 */
+	153,						/* ™ 153 -> ™ 153 */
+	154,						/* š 154 -> š 154 */
+	155,						/* › 155 -> › 155 */
+	156,						/* œ 156 -> œ 156 */
+	157,						/* � 157 -> � 157 */
+	158,						/* ž 158 -> ž 158 */
+	159,						/* Ÿ 159 -> Ÿ 159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	65,							/* ¦ 166 -> A  65 */
+	79,							/* § 167 -> O  79 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*  127 ->  127 */
+	135,						/* € 128 -> ‡ 135 */
+	129,						/* � 129 -> � 129 */
+	130,						/* ‚ 130 -> ‚ 130 */
+	131,						/* ƒ 131 -> ƒ 131 */
+	132,						/* „ 132 -> „ 132 */
+	133,						/* … 133 -> … 133 */
+	134,						/* † 134 -> † 134 */
+	135,						/* ‡ 135 -> ‡ 135 */
+	136,						/* ˆ 136 -> ˆ 136 */
+	137,						/* ‰ 137 -> ‰ 137 */
+	138,						/* Š 138 -> Š 138 */
+	139,						/* ‹ 139 -> ‹ 139 */
+	140,						/* Π140 -> Π140 */
+	141,						/* � 141 -> � 141 */
+	132,						/* Ž 142 -> „ 132 */
+	134,						/* � 143 -> † 134 */
+	130,						/* � 144 -> ‚ 130 */
+	145,						/* ‘ 145 -> ‘ 145 */
+	145,						/* ’ 146 -> ‘ 145 */
+	147,						/* “ 147 -> “ 147 */
+	148,						/* ” 148 -> ” 148 */
+	149,						/* • 149 -> • 149 */
+	150,						/* – 150 -> – 150 */
+	151,						/* — 151 -> — 151 */
+	152,						/* ˜ 152 -> ˜ 152 */
+	148,						/* ™ 153 -> ” 148 */
+	129,						/* š 154 -> � 129 */
+	155,						/* › 155 -> › 155 */
+	156,						/* œ 156 -> œ 156 */
+	157,						/* � 157 -> � 157 */
+	158,						/* ž 158 -> ž 158 */
+	159,						/* Ÿ 159 -> Ÿ 159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127  */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128 € */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129 � */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130 ‚ */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131 ƒ */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132 „ */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133 … */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134 † */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135 ‡ */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136 ˆ */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137 ‰ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138 Š */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139 ‹ */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140 Π*/
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141 � */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142 Ž */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143 � */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144 � */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145 ‘ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146 ’ */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147 “ */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148 ” */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149 • */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150 – */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151 — */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152 ˜ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153 ™ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154 š */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155 › */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156 œ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157 � */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158 ž */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159 Ÿ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 201, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 202, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 203, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 204, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 205, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 206, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 207, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 208, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 209, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 210, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 211, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 212, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 213, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 214, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 215, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 216, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 217, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 218, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 219, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 220, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 221, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 222, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 223, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 224, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 225, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 226, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 227, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 228, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 229, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x263A, "WHITE SMILING FACE"},
+/* 02 */  {
+	0x263B, "BLACK SMILING FACE"},
+/* 03 */  {
+	0x2665, "BLACK HEART SUIT"},
+/* 04 */  {
+	0x2666, "BLACK DIAMOND SUIT"},
+/* 05 */  {
+	0x2663, "BLACK CLUB SUIT"},
+/* 06 */  {
+	0x2660, "BLACK SPADE SUIT"},
+/* 07 */  {
+	0x2022, "BULLET"},
+/* 08 */  {
+	0x25D8, "INVERSE BULLET"},
+/* 09 */  {
+	0x25CB, "WHITE CIRCLE"},
+/* 0A */  {
+	0x25D9, "INVERSE WHITE CIRCLE"},
+/* 0B */  {
+	0x2642, "MALE SIGN"},
+/* 0C */  {
+	0x2640, "FEMALE SIGN"},
+/* 0D */  {
+	0x266A, "EIGHTH NOTE"},
+/* 0E */  {
+	0x266B, "BARRED EIGHTH NOTES"},
+/* 0F */  {
+	0x263C, "WHITE SUN WITH RAYS"},
+/* 10 */  {
+	0x25BA, "BLACK RIGHT POINTING POINTER"},
+/* 11 */  {
+	0x25C4, "BLACK LEFT POINTING POINTER"},
+/* 12 */  {
+	0x2195, "UP DOWN ARROW"},
+/* 13 */  {
+	0x203C, "DOUBLE EXCLAMATION MARK"},
+/* 14 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* 15 */  {
+	0x00A7, "SECTION SIGN"},
+/* 16 */  {
+	0x25AC, "BLACK RECTANGLE"},
+/* 17 */  {
+	0x21A8, "UP DOWN ARROW WITH BASE"},
+/* 18 */  {
+	0x2191, "UP ARROW"},
+/* 19 */  {
+	0x2193, "DOWN ARROW"},
+/* 1A */  {
+	0x2192, "RIGHT ARROW"},
+/* 1B */  {
+	0x2190, "LEFT ARROW"},
+/* 1C */  {
+	0x221F, "RIGHT ANGLE"},
+/* 1D */  {
+	0x2194, "LEFT RIGHT ARROW"},
+/* 1E */  {
+	0x25B2, "BLACK UP POINTING TRIANGLE"},
+/* 1F */  {
+	0x25BC, "BLACK DOWN POINTING TRIANGLE"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x2302, "HOUSE"},
+/* 80 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* 81 */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* 82 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* 83 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* 84 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* 85 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* 86 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* 87 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* 88 */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* 89 */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* 8A */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* 8B */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* 8C */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* 8D */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* 8E */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* 8F */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* 90 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* 91 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* 92 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* 93 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* 94 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* 95 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* 96 */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* 97 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* 98 */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"},
+/* 99 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* 9A */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* 9B */  {
+	0x00A2, "CENT SIGN"},
+/* 9C */  {
+	0x00A3, "POUND SIGN"},
+/* 9D */  {
+	0x00A5, "YEN SIGN"},
+/* 9E */  {
+	0x20A7, "PESETA SIGN"},
+/* 9F */  {
+	0x0192, "LATIN SMALL LETTER SCRIPT F"},
+/* A0 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* A1 */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* A2 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* A3 */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* A4 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* A5 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* A6 */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* A7 */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* A8 */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* A9 */  {
+	0x2310, "REVERSED NOT SIGN"},
+/* AA */  {
+	0x00AC, "NOT SIGN"},
+/* AB */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* AC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* AD */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* AE */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AF */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* B0 */  {
+	0x2591, "LIGHT SHADE"},
+/* B1 */  {
+	0x2592, "MEDIUM SHADE"},
+/* B2 */  {
+	0x2593, "DARK SHADE"},
+/* B3 */  {
+	0x2502, "FORMS LIGHT VERTICAL"},
+/* B4 */  {
+	0x2524, "FORMS LIGHT VERTICAL AND LEFT"},
+/* B5 */  {
+	0x2561, "FORMS VERTICAL SINGLE AND LEFT DOUBLE"},
+/* B6 */  {
+	0x2562, "FORMS VERTICAL DOUBLE AND LEFT SINGLE"},
+/* B7 */  {
+	0x2556, "FORMS DOWN DOUBLE AND LEFT SINGLE"},
+/* B8 */  {
+	0x2555, "FORMS DOWN SINGLE AND LEFT DOUBLE"},
+/* B9 */  {
+	0x2563, "FORMS DOUBLE VERTICAL AND LEFT"},
+/* BA */  {
+	0x2551, "FORMS DOUBLE VERTICAL"},
+/* BB */  {
+	0x2557, "FORMS DOUBLE DOWN AND LEFT"},
+/* BC */  {
+	0x255D, "FORMS DOUBLE UP AND LEFT"},
+/* BD */  {
+	0x255C, "FORMS UP DOUBLE AND LEFT SINGLE"},
+/* BE */  {
+	0x255B, "FORMS UP SINGLE AND LEFT DOUBLE"},
+/* BF */  {
+	0x2510, "FORMS LIGHT DOWN AND LEFT"},
+/* C0 */  {
+	0x2514, "FORMS LIGHT UP AND RIGHT"},
+/* C1 */  {
+	0x2534, "FORMS LIGHT UP AND HORIZONTAL"},
+/* C2 */  {
+	0x252C, "FORMS LIGHT DOWN AND HORIZONTAL"},
+/* C3 */  {
+	0x251C, "FORMS LIGHT VERTICAL AND RIGHT"},
+/* C4 */  {
+	0x2500, "FORMS LIGHT HORIZONTAL"},
+/* C5 */  {
+	0x253C, "FORMS LIGHT VERTICAL AND HORIZONTAL"},
+/* C6 */  {
+	0x255E, "FORMS VERTICAL SINGLE AND RIGHT DOUBLE"},
+/* C7 */  {
+	0x255F, "FORMS VERTICAL DOUBLE AND RIGHT SINGLE"},
+/* C8 */  {
+	0x255A, "FORMS DOUBLE UP AND RIGHT"},
+/* C9 */  {
+	0x2554, "FORMS DOUBLE DOWN AND RIGHT"},
+/* CA */  {
+	0x2569, "FORMS DOUBLE UP AND HORIZONTAL"},
+/* CB */  {
+	0x2566, "FORMS DOUBLE DOWN AND HORIZONTAL"},
+/* CC */  {
+	0x2560, "FORMS DOUBLE VERTICAL AND RIGHT"},
+/* CD */  {
+	0x2550, "FORMS DOUBLE HORIZONTAL"},
+/* CE */  {
+	0x256C, "FORMS DOUBLE VERTICAL AND HORIZONTAL"},
+/* CF */  {
+	0x2567, "FORMS UP SINGLE AND HORIZONTAL DOUBLE"},
+/* D0 */  {
+	0x2568, "FORMS UP DOUBLE AND HORIZONTAL SINGLE"},
+/* D1 */  {
+	0x2564, "FORMS DOWN SINGLE AND HORIZONTAL DOUBLE"},
+/* D2 */  {
+	0x2565, "FORMS DOWN DOUBLE AND HORIZONTAL SINGLE"},
+/* D3 */  {
+	0x2559, "FORMS UP DOUBLE AND RIGHT SINGLE"},
+/* D4 */  {
+	0x2558, "FORMS UP SINGLE AND RIGHT DOUBLE"},
+/* D5 */  {
+	0x2552, "FORMS DOWN SINGLE AND RIGHT DOUBLE"},
+/* D6 */  {
+	0x2553, "FORMS DOWN DOUBLE AND RIGHT SINGLE"},
+/* D7 */  {
+	0x256B, "FORMS VERTICAL DOUBLE AND HORIZONTAL SINGLE"},
+/* D8 */  {
+	0x256A, "FORMS VERTICAL SINGLE AND HORIZONTAL DOUBLE"},
+/* D9 */  {
+	0x2518, "FORMS LIGHT UP AND LEFT"},
+/* DA */  {
+	0x250C, "FORMS LIGHT DOWN AND RIGHT"},
+/* DB */  {
+	0x2588, "FULL BLOCK"},
+/* DC */  {
+	0x2584, "LOWER HALF BLOCK"},
+/* DD */  {
+	0x258C, "LEFT HALF BLOCK"},
+/* DE */  {
+	0x2590, "RIGHT HALF BLOCK"},
+/* DF */  {
+	0x2580, "UPPER HALF BLOCK"},
+/* E0 */  {
+	0x03B1, "GREEK SMALL LETTER ALPHA"},
+/* E1 */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E2 */  {
+	0x0393, "GREEK CAPITAL LETTER GAMMA"},
+/* E3 */  {
+	0x03C0, "GREEK SMALL LETTER PI"},
+/* E4 */  {
+	0x03A3, "GREEK CAPITAL LETTER SIGMA"},
+/* E5 */  {
+	0x03C3, "GREEK SMALL LETTER SIGMA"},
+/* E6 */  {
+	0x00B5, "MICRO SIGN"},
+/* E7 */  {
+	0x03C4, "GREEK SMALL LETTER TAU"},
+/* E8 */  {
+	0x03A6, "GREEK CAPITAL LETTER PHI"},
+/* E9 */  {
+	0x0398, "GREEK CAPITAL LETTER THETA"},
+/* EA */  {
+	0x03A9, "GREEK CAPITAL LETTER OMEGA"},
+/* EB */  {
+	0x03B4, "GREEK SMALL LETTER DELTA"},
+/* EC */  {
+	0x221E, "INFINITY"},
+/* ED */  {
+	0x03C6, "GREEK SMALL LETTER PHI"},
+/* EE */  {
+	0x03B5, "GREEK SMALL LETTER EPSILON"},
+/* EF */  {
+	0x2229, "INTERSECTION"},
+/* F0 */  {
+	0x2261, "IDENTICAL TO"},
+/* F1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* F2 */  {
+	0x2265, "GREATER THAN OR EQUAL TO"},
+/* F3 */  {
+	0x2264, "LESS THAN OR EQUAL TO"},
+/* F4 */  {
+	0x2320, "TOP HALF INTEGRAL"},
+/* F5 */  {
+	0x2321, "BOTTOM HALF INTEGRAL"},
+/* F6 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F7 */  {
+	0x2248, "ALMOST EQUAL TO"},
+/* F8 */  {
+	0x00B0, "DEGREE SIGN"},
+/* F9 */  {
+	0x2219, "BULLET OPERATOR"},
+/* FA */  {
+	0x00B7, "MIDDLE DOT"},
+/* FB */  {
+	0x221A, "SQUARE ROOT"},
+/* FC */  {
+	0x207F, "SUPERSCRIPT LATIN SMALL LETTER N"},
+/* FD */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* FE */  {
+	0x25A0, "BLACK SQUARE"},
+/* FF */  {
+	0x00A0, "NON-BREAKING SPACE"}
+};
+#endif
diff --git a/src/intl/ascii2.h b/src/intl/ascii2.h
new file mode 100644
index 0000000000..ede2b36781
--- /dev/null
+++ b/src/intl/ascii2.h
@@ -0,0 +1,691 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 000ascii -----------*/
+/*----------- On      Thu Aug 20 14:17:49 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  ascii.DEF */
+/* */
+/*  Generated on Tue Aug 04 16:15:05 1992 */
+/*  from input file 'ASCII.CFG' */
+/* */
+/*  by LDCFG Version 1.0 */
+/* */
+/*  Language Driver/API version 1.0 */
+/* */
+
+#define LDRV_DRIVERID               pxUS
+
+
+#define LDRV_CTRYLANGID             US
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    PDOX
+
+
+#define LDRV_ALTCPID                0
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               ASCII_SORT
+
+
+#define LDRV_NAME                   "Paradox 'ascii'"
+
+
+#define LDRV_FNAME                  "ascii"
+
+
+#define NUM_EXPAND_CHARS            2
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/ascii.def */
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x263A, "WHITE SMILING FACE"},
+/* 02 */  {
+	0x263B, "BLACK SMILING FACE"},
+/* 03 */  {
+	0x2665, "BLACK HEART SUIT"},
+/* 04 */  {
+	0x2666, "BLACK DIAMOND SUIT"},
+/* 05 */  {
+	0x2663, "BLACK CLUB SUIT"},
+/* 06 */  {
+	0x2660, "BLACK SPADE SUIT"},
+/* 07 */  {
+	0x2022, "BULLET"},
+/* 08 */  {
+	0x25D8, "INVERSE BULLET"},
+/* 09 */  {
+	0x25CB, "WHITE CIRCLE"},
+/* 0A */  {
+	0x25D9, "INVERSE WHITE CIRCLE"},
+/* 0B */  {
+	0x2642, "MALE SIGN"},
+/* 0C */  {
+	0x2640, "FEMALE SIGN"},
+/* 0D */  {
+	0x266A, "EIGHTH NOTE"},
+/* 0E */  {
+	0x266B, "BARRED EIGHTH NOTES"},
+/* 0F */  {
+	0x263C, "WHITE SUN WITH RAYS"},
+/* 10 */  {
+	0x25BA, "BLACK RIGHT POINTING POINTER"},
+/* 11 */  {
+	0x25C4, "BLACK LEFT POINTING POINTER"},
+/* 12 */  {
+	0x2195, "UP DOWN ARROW"},
+/* 13 */  {
+	0x203C, "DOUBLE EXCLAMATION MARK"},
+/* 14 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* 15 */  {
+	0x00A7, "SECTION SIGN"},
+/* 16 */  {
+	0x25AC, "BLACK RECTANGLE"},
+/* 17 */  {
+	0x21A8, "UP DOWN ARROW WITH BASE"},
+/* 18 */  {
+	0x2191, "UP ARROW"},
+/* 19 */  {
+	0x2193, "DOWN ARROW"},
+/* 1A */  {
+	0x2192, "RIGHT ARROW"},
+/* 1B */  {
+	0x2190, "LEFT ARROW"},
+/* 1C */  {
+	0x221F, "RIGHT ANGLE"},
+/* 1D */  {
+	0x2194, "LEFT RIGHT ARROW"},
+/* 1E */  {
+	0x25B2, "BLACK UP POINTING TRIANGLE"},
+/* 1F */  {
+	0x25BC, "BLACK DOWN POINTING TRIANGLE"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x2302, "HOUSE"},
+/* 80 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* 81 */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* 82 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* 83 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* 84 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* 85 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* 86 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* 87 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* 88 */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* 89 */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* 8A */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* 8B */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* 8C */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* 8D */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* 8E */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* 8F */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* 90 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* 91 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* 92 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* 93 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* 94 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* 95 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* 96 */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* 97 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* 98 */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"},
+/* 99 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* 9A */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* 9B */  {
+	0x00A2, "CENT SIGN"},
+/* 9C */  {
+	0x00A3, "POUND SIGN"},
+/* 9D */  {
+	0x00A5, "YEN SIGN"},
+/* 9E */  {
+	0x20A7, "PESETA SIGN"},
+/* 9F */  {
+	0x0192, "LATIN SMALL LETTER SCRIPT F"},
+/* A0 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* A1 */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* A2 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* A3 */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* A4 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* A5 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* A6 */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* A7 */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* A8 */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* A9 */  {
+	0x2310, "REVERSED NOT SIGN"},
+/* AA */  {
+	0x00AC, "NOT SIGN"},
+/* AB */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* AC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* AD */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* AE */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AF */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* B0 */  {
+	0x2591, "LIGHT SHADE"},
+/* B1 */  {
+	0x2592, "MEDIUM SHADE"},
+/* B2 */  {
+	0x2593, "DARK SHADE"},
+/* B3 */  {
+	0x2502, "FORMS LIGHT VERTICAL"},
+/* B4 */  {
+	0x2524, "FORMS LIGHT VERTICAL AND LEFT"},
+/* B5 */  {
+	0x2561, "FORMS VERTICAL SINGLE AND LEFT DOUBLE"},
+/* B6 */  {
+	0x2562, "FORMS VERTICAL DOUBLE AND LEFT SINGLE"},
+/* B7 */  {
+	0x2556, "FORMS DOWN DOUBLE AND LEFT SINGLE"},
+/* B8 */  {
+	0x2555, "FORMS DOWN SINGLE AND LEFT DOUBLE"},
+/* B9 */  {
+	0x2563, "FORMS DOUBLE VERTICAL AND LEFT"},
+/* BA */  {
+	0x2551, "FORMS DOUBLE VERTICAL"},
+/* BB */  {
+	0x2557, "FORMS DOUBLE DOWN AND LEFT"},
+/* BC */  {
+	0x255D, "FORMS DOUBLE UP AND LEFT"},
+/* BD */  {
+	0x255C, "FORMS UP DOUBLE AND LEFT SINGLE"},
+/* BE */  {
+	0x255B, "FORMS UP SINGLE AND LEFT DOUBLE"},
+/* BF */  {
+	0x2510, "FORMS LIGHT DOWN AND LEFT"},
+/* C0 */  {
+	0x2514, "FORMS LIGHT UP AND RIGHT"},
+/* C1 */  {
+	0x2534, "FORMS LIGHT UP AND HORIZONTAL"},
+/* C2 */  {
+	0x252C, "FORMS LIGHT DOWN AND HORIZONTAL"},
+/* C3 */  {
+	0x251C, "FORMS LIGHT VERTICAL AND RIGHT"},
+/* C4 */  {
+	0x2500, "FORMS LIGHT HORIZONTAL"},
+/* C5 */  {
+	0x253C, "FORMS LIGHT VERTICAL AND HORIZONTAL"},
+/* C6 */  {
+	0x255E, "FORMS VERTICAL SINGLE AND RIGHT DOUBLE"},
+/* C7 */  {
+	0x255F, "FORMS VERTICAL DOUBLE AND RIGHT SINGLE"},
+/* C8 */  {
+	0x255A, "FORMS DOUBLE UP AND RIGHT"},
+/* C9 */  {
+	0x2554, "FORMS DOUBLE DOWN AND RIGHT"},
+/* CA */  {
+	0x2569, "FORMS DOUBLE UP AND HORIZONTAL"},
+/* CB */  {
+	0x2566, "FORMS DOUBLE DOWN AND HORIZONTAL"},
+/* CC */  {
+	0x2560, "FORMS DOUBLE VERTICAL AND RIGHT"},
+/* CD */  {
+	0x2550, "FORMS DOUBLE HORIZONTAL"},
+/* CE */  {
+	0x256C, "FORMS DOUBLE VERTICAL AND HORIZONTAL"},
+/* CF */  {
+	0x2567, "FORMS UP SINGLE AND HORIZONTAL DOUBLE"},
+/* D0 */  {
+	0x2568, "FORMS UP DOUBLE AND HORIZONTAL SINGLE"},
+/* D1 */  {
+	0x2564, "FORMS DOWN SINGLE AND HORIZONTAL DOUBLE"},
+/* D2 */  {
+	0x2565, "FORMS DOWN DOUBLE AND HORIZONTAL SINGLE"},
+/* D3 */  {
+	0x2559, "FORMS UP DOUBLE AND RIGHT SINGLE"},
+/* D4 */  {
+	0x2558, "FORMS UP SINGLE AND RIGHT DOUBLE"},
+/* D5 */  {
+	0x2552, "FORMS DOWN SINGLE AND RIGHT DOUBLE"},
+/* D6 */  {
+	0x2553, "FORMS DOWN DOUBLE AND RIGHT SINGLE"},
+/* D7 */  {
+	0x256B, "FORMS VERTICAL DOUBLE AND HORIZONTAL SINGLE"},
+/* D8 */  {
+	0x256A, "FORMS VERTICAL SINGLE AND HORIZONTAL DOUBLE"},
+/* D9 */  {
+	0x2518, "FORMS LIGHT UP AND LEFT"},
+/* DA */  {
+	0x250C, "FORMS LIGHT DOWN AND RIGHT"},
+/* DB */  {
+	0x2588, "FULL BLOCK"},
+/* DC */  {
+	0x2584, "LOWER HALF BLOCK"},
+/* DD */  {
+	0x258C, "LEFT HALF BLOCK"},
+/* DE */  {
+	0x2590, "RIGHT HALF BLOCK"},
+/* DF */  {
+	0x2580, "UPPER HALF BLOCK"},
+/* E0 */  {
+	0x03B1, "GREEK SMALL LETTER ALPHA"},
+/* E1 */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E2 */  {
+	0x0393, "GREEK CAPITAL LETTER GAMMA"},
+/* E3 */  {
+	0x03C0, "GREEK SMALL LETTER PI"},
+/* E4 */  {
+	0x03A3, "GREEK CAPITAL LETTER SIGMA"},
+/* E5 */  {
+	0x03C3, "GREEK SMALL LETTER SIGMA"},
+/* E6 */  {
+	0x00B5, "MICRO SIGN"},
+/* E7 */  {
+	0x03C4, "GREEK SMALL LETTER TAU"},
+/* E8 */  {
+	0x03A6, "GREEK CAPITAL LETTER PHI"},
+/* E9 */  {
+	0x0398, "GREEK CAPITAL LETTER THETA"},
+/* EA */  {
+	0x03A9, "GREEK CAPITAL LETTER OMEGA"},
+/* EB */  {
+	0x03B4, "GREEK SMALL LETTER DELTA"},
+/* EC */  {
+	0x221E, "INFINITY"},
+/* ED */  {
+	0x03C6, "GREEK SMALL LETTER PHI"},
+/* EE */  {
+	0x03B5, "GREEK SMALL LETTER EPSILON"},
+/* EF */  {
+	0x2229, "INTERSECTION"},
+/* F0 */  {
+	0x2261, "IDENTICAL TO"},
+/* F1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* F2 */  {
+	0x2265, "GREATER THAN OR EQUAL TO"},
+/* F3 */  {
+	0x2264, "LESS THAN OR EQUAL TO"},
+/* F4 */  {
+	0x2320, "TOP HALF INTEGRAL"},
+/* F5 */  {
+	0x2321, "BOTTOM HALF INTEGRAL"},
+/* F6 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F7 */  {
+	0x2248, "ALMOST EQUAL TO"},
+/* F8 */  {
+	0x00B0, "DEGREE SIGN"},
+/* F9 */  {
+	0x2219, "BULLET OPERATOR"},
+/* FA */  {
+	0x00B7, "MIDDLE DOT"},
+/* FB */  {
+	0x221A, "SQUARE ROOT"},
+/* FC */  {
+	0x207F, "SUPERSCRIPT LATIN SMALL LETTER N"},
+/* FD */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* FE */  {
+	0x25A0, "BLACK SQUARE"},
+/* FF */  {
+	0x00A0, "NON-BREAKING SPACE"}
+};
+#endif
diff --git a/src/intl/bllt1ca0.h b/src/intl/bllt1ca0.h
new file mode 100644
index 0000000000..e022305e48
--- /dev/null
+++ b/src/intl/bllt1ca0.h
@@ -0,0 +1,1491 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1ca0 -----------*/
+/*----------- On      Fri Nov 13 10:35:54 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1CA0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:09 1992 */
+/*  from input file 'BLLT1CA0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlCANADIAN
+
+
+#define LDRV_CTRYLANGID             CANADA
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland FRC Latin-1 "
+
+
+#define LDRV_FNAME                  "BLLT1CA0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY + REVERSE
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1ca0.def */
+
+#define MAX_NCO_PRIMARY  	 36
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{230, 97, 101},				/* æ -> ae */
+	{198, 65, 69},				/* Æ -> AE */
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1da0.h b/src/intl/bllt1da0.h
new file mode 100644
index 0000000000..d21ddcac9b
--- /dev/null
+++ b/src/intl/bllt1da0.h
@@ -0,0 +1,1504 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1da0 -----------*/
+/*----------- On      Wed Nov 25 11:33:38 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1DA0.DEF */
+/* */
+/*  Generated on Wed Nov 25 11:27:28 1992 */
+/*  from input file 'BLLT1DA0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlDANISH
+
+
+#define LDRV_CTRYLANGID             DENMARK
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland DAN Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1DA0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          4
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1da0.def */
+
+#define MAX_NCO_PRIMARY  	 39
+#define MAX_NCO_SECONDARY	  5
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{223, 115, 115},			/* ß -> ss */
+	{222, 84, 72},				/* Þ -> TH */
+	{254, 116, 104},			/* þ -> th */
+	{198, 65, 69},				/* Æ -> AE */
+	{230, 97, 101},				/* æ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	
+		{{65, 97},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},
+		 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0}},	/* Aa */
+	{{97, 97},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0}},	/* aa */
+	{{65, 65},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}},	/* AA */
+	{{97, 65},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0}},	/* aA */
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 1},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 1},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 37, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 39, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 37, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 37, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 39, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 37, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1de0.h b/src/intl/bllt1de0.h
new file mode 100644
index 0000000000..4b13a8d0b5
--- /dev/null
+++ b/src/intl/bllt1de0.h
@@ -0,0 +1,1491 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1de0 -----------*/
+/*----------- On      Fri Nov 13 10:36:09 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1DE0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:12 1992 */
+/*  from input file 'BLLT1DE0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlGERMAN
+
+
+#define LDRV_CTRYLANGID             GERMANY
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland DEU Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1DE0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY + REVERSE
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1de0.def */
+
+#define MAX_NCO_PRIMARY  	 36
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{230, 97, 101},				/* æ -> ae */
+	{198, 65, 69},				/* Æ -> AE */
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1es0.h b/src/intl/bllt1es0.h
new file mode 100644
index 0000000000..2ce16fa897
--- /dev/null
+++ b/src/intl/bllt1es0.h
@@ -0,0 +1,1516 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1es0 -----------*/
+/*----------- On      Fri Nov 13 10:36:18 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1ES0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:14 1992 */
+/*  from input file 'BLLT1ES0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlSPANISH
+
+
+#define LDRV_CTRYLANGID             SPAIN
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland ESP Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1ES0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          8
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1es0.def */
+
+#define MAX_NCO_PRIMARY  	 39
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{230, 97, 101},				/* æ -> ae */
+	{198, 65, 69},				/* Æ -> AE */
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	
+		{{99, 104},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},
+		 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0}},	/* ch */
+	{{99, 72},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0}},	/* cH */
+	{{67, 104},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0}},	/* Ch */
+	{{67, 72},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0}},	/* CH */
+	{{108, 108},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0}},	/* ll */
+	{{108, 76},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0}},	/* lL */
+	{{76, 108},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0}},	/* Ll */
+	{{76, 76},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0}},	/* LL */
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 1},	/*  67 C */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 1},	/*  76 L */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 1},	/*  99 c */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 1},	/* 108 l */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1fi0.h b/src/intl/bllt1fi0.h
new file mode 100644
index 0000000000..e6cf7dc6cf
--- /dev/null
+++ b/src/intl/bllt1fi0.h
@@ -0,0 +1,1491 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1fi0 -----------*/
+/*----------- On      Fri Nov 13 10:36:26 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1FI0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:16 1992 */
+/*  from input file 'BLLT1FI0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlFINNISH
+
+
+#define LDRV_CTRYLANGID             FINLAND
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland FIN Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1FI0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1fi0.def */
+
+#define MAX_NCO_PRIMARY  	 39
+#define MAX_NCO_SECONDARY	  5
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{198, 65, 69},				/* Æ -> AE */
+	{230, 97, 101},				/* æ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 39, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 39, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 39, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 39, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1fr0.h b/src/intl/bllt1fr0.h
new file mode 100644
index 0000000000..334b1c308a
--- /dev/null
+++ b/src/intl/bllt1fr0.h
@@ -0,0 +1,1491 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1fr0 -----------*/
+/*----------- On      Fri Nov 13 10:36:34 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1FR0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:18 1992 */
+/*  from input file 'BLLT1FR0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlFRENCH
+
+
+#define LDRV_CTRYLANGID             FRANCE
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland FRA Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1FR0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY + REVERSE
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1fr0.def */
+
+#define MAX_NCO_PRIMARY  	 36
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	65,							/* à 224 -> A  65 */
+	65,							/* á 225 -> A  65 */
+	65,							/* â 226 -> A  65 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	67,							/* ç 231 -> C  67 */
+	69,							/* è 232 -> E  69 */
+	69,							/* é 233 -> E  69 */
+	69,							/* ê 234 -> E  69 */
+	69,							/* ë 235 -> E  69 */
+	73,							/* ì 236 -> I  73 */
+	73,							/* í 237 -> I  73 */
+	73,							/* î 238 -> I  73 */
+	73,							/* ï 239 -> I  73 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	79,							/* ò 242 -> O  79 */
+	79,							/* ó 243 -> O  79 */
+	79,							/* ô 244 -> O  79 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	85,							/* ù 249 -> U  85 */
+	85,							/* ú 250 -> U  85 */
+	85,							/* û 251 -> U  85 */
+	85,							/* ü 252 -> U  85 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{230, 97, 101},				/* æ -> ae */
+	{198, 65, 69},				/* Æ -> AE */
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1is0.h b/src/intl/bllt1is0.h
new file mode 100644
index 0000000000..c264e9cddd
--- /dev/null
+++ b/src/intl/bllt1is0.h
@@ -0,0 +1,1491 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1is0 -----------*/
+/*----------- On      Fri Nov 13 10:36:41 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1IS0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:21 1992 */
+/*  from input file 'BLLT1IS0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlICELANDIC
+
+
+#define LDRV_CTRYLANGID             ICELAND
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland ISL Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1IS0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1is0.def */
+
+#define MAX_NCO_PRIMARY  	 46
+#define MAX_NCO_SECONDARY	  6
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{223, 115, 115},			/* ß -> ss */
+	{198, 65, 69},				/* Æ -> AE */
+	{230, 97, 101},				/* æ -> ae */
+	{222, 84, 72},				/* Þ -> TH */
+	{254, 116, 104},			/* þ -> th */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 41, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 41, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 46, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 46, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 46, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 46, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 41, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1it0.h b/src/intl/bllt1it0.h
new file mode 100644
index 0000000000..1422c3408b
--- /dev/null
+++ b/src/intl/bllt1it0.h
@@ -0,0 +1,1491 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1it0 -----------*/
+/*----------- On      Fri Nov 13 10:36:50 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1IT0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:23 1992 */
+/*  from input file 'BLLT1IT0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlITALIAN
+
+
+#define LDRV_CTRYLANGID             ITALY
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland ITA Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1IT0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY + REVERSE
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1it0.def */
+
+#define MAX_NCO_PRIMARY  	 36
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{230, 97, 101},				/* æ -> ae */
+	{198, 65, 69},				/* Æ -> AE */
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1nl0.h b/src/intl/bllt1nl0.h
new file mode 100644
index 0000000000..46794c3bb2
--- /dev/null
+++ b/src/intl/bllt1nl0.h
@@ -0,0 +1,1491 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1nl0 -----------*/
+/*----------- On      Fri Nov 13 10:36:58 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1NL0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:25 1992 */
+/*  from input file 'BLLT1NL0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlDUTCH
+
+
+#define LDRV_CTRYLANGID             NEDERLANDS
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland NLD Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1NL0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY + REVERSE
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1nl0.def */
+
+#define MAX_NCO_PRIMARY  	 36
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{230, 97, 101},				/* æ -> ae */
+	{198, 65, 69},				/* Æ -> AE */
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1no0.h b/src/intl/bllt1no0.h
new file mode 100644
index 0000000000..47503dbada
--- /dev/null
+++ b/src/intl/bllt1no0.h
@@ -0,0 +1,1504 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1no0 -----------*/
+/*----------- On      Fri Nov 13 10:37:06 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1NO0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:27 1992 */
+/*  from input file 'BLLT1NO0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlNORWEGIAN
+
+
+#define LDRV_CTRYLANGID             NORWAY
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland NOR Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1NO0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          4
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1no0.def */
+
+#define MAX_NCO_PRIMARY  	 39
+#define MAX_NCO_SECONDARY	  6
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{198, 65, 69},				/* Æ -> AE */
+	{230, 97, 101},				/* æ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	
+		{{97, 97},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},
+		 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0}},	/* aa */
+	{{65, 97},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0}},	/* Aa */
+	{{97, 65},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}},	/* aA */
+	{{65, 65},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},
+	 {FIRST_PRIMARY + 39, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0}},	/* AA */
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 1},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 1},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 39, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 39, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1pt0.h b/src/intl/bllt1pt0.h
new file mode 100644
index 0000000000..c63c285fc3
--- /dev/null
+++ b/src/intl/bllt1pt0.h
@@ -0,0 +1,1491 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1pt0 -----------*/
+/*----------- On      Fri Nov 13 10:37:13 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1PT0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:29 1992 */
+/*  from input file 'BLLT1PT0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlPORTUGUESE
+
+
+#define LDRV_CTRYLANGID             PORTUGAL
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland PTG Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1PT0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY + REVERSE
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1pt0.def */
+
+#define MAX_NCO_PRIMARY  	 36
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{230, 97, 101},				/* æ -> ae */
+	{198, 65, 69},				/* Æ -> AE */
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1sv0.h b/src/intl/bllt1sv0.h
new file mode 100644
index 0000000000..c20e2cc4cb
--- /dev/null
+++ b/src/intl/bllt1sv0.h
@@ -0,0 +1,1491 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1sv0 -----------*/
+/*----------- On      Fri Nov 13 10:37:23 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1SV0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:30 1992 */
+/*  from input file 'BLLT1SV0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlSWEDISH
+
+
+#define LDRV_CTRYLANGID             SWEDEN
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland SVE Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1SV0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1sv0.def */
+
+#define MAX_NCO_PRIMARY  	 39
+#define MAX_NCO_SECONDARY	  5
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{198, 65, 69},				/* Æ -> AE */
+	{230, 97, 101},				/* æ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 39, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 39, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 39, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 39, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1uk0.h b/src/intl/bllt1uk0.h
new file mode 100644
index 0000000000..7a476be1f9
--- /dev/null
+++ b/src/intl/bllt1uk0.h
@@ -0,0 +1,1491 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1uk0 -----------*/
+/*----------- On      Fri Nov 13 10:37:30 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1UK0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:32 1992 */
+/*  from input file 'BLLT1UK0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlUK
+
+
+#define LDRV_CTRYLANGID             UK
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                850
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Borland ENG Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1UK0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY + REVERSE
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/bllt1uk0.def */
+
+#define MAX_NCO_PRIMARY  	 36
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	122
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{230, 97, 101},				/* æ -> ae */
+	{198, 65, 69},				/* Æ -> AE */
+	{223, 115, 115},			/* ß -> ss */
+	{254, 116, 104},			/* þ -> th */
+	{222, 84, 72},				/* Þ -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 128   */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 129   */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 130   */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 131   */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 132   */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 133   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 134   */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 135   */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 136   */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 137   */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 138   */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 139   */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 140   */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 141   */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 142   */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 143   */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 144   */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 145   */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 146   */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 147   */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 148   */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 149   */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 150   */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 151   */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 152   */
+	{FIRST_IGNORE + 116, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 153   */
+	{FIRST_IGNORE + 117, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 154   */
+	{FIRST_IGNORE + 118, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 155   */
+	{FIRST_IGNORE + 119, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 156   */
+	{FIRST_IGNORE + 120, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 121, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 122, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 174 ® */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 175 ¯ */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 179 ³ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 215 × */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 247 ÷ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/bllt1us0.h b/src/intl/bllt1us0.h
new file mode 100644
index 0000000000..629cb29749
--- /dev/null
+++ b/src/intl/bllt1us0.h
@@ -0,0 +1,1491 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from bllt1us0 -----------*/
+/*----------- On      Fri Nov 13 10:37:38 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  BLLT1US0.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:34 1992 */
+/*  from input file 'BLLT1US0.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               BorlUS
+
+
+#define LDRV_CTRYLANGID             US
+
+
+#define LDRV_PRIMARYCPID            1252
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID                437
+
+
+#define LDRV_PRIMPLAT               ANSI_CP
+
+
+#define LDRV_ALTPLAT                OEM_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT	/* Binary? XXX */
+
+
+#define LDRV_NAME                   "Borland ENU Latin-1"
+
+
+#define LDRV_FNAME                  "BLLT1US0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          2
+
+
+/* End of langdrv/bllt1us0.def */
+
+#define MAX_NCO_PRIMARY  	229
+#define MAX_NCO_SECONDARY	  0
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	192,						/* à 224 -> À 192 */
+	193,						/* á 225 -> Á 193 */
+	194,						/* â 226 -> Â 194 */
+	195,						/* ã 227 -> Ã 195 */
+	196,						/* ä 228 -> Ä 196 */
+	197,						/* å 229 -> Å 197 */
+	198,						/* æ 230 -> Æ 198 */
+	199,						/* ç 231 -> Ç 199 */
+	200,						/* è 232 -> È 200 */
+	201,						/* é 233 -> É 201 */
+	202,						/* ê 234 -> Ê 202 */
+	203,						/* ë 235 -> Ë 203 */
+	204,						/* ì 236 -> Ì 204 */
+	205,						/* í 237 -> Í 205 */
+	206,						/* î 238 -> Î 206 */
+	207,						/* ï 239 -> Ï 207 */
+	208,						/* ð 240 -> Ð 208 */
+	209,						/* ñ 241 -> Ñ 209 */
+	210,						/* ò 242 -> Ò 210 */
+	211,						/* ó 243 -> Ó 211 */
+	212,						/* ô 244 -> Ô 212 */
+	213,						/* õ 245 -> Õ 213 */
+	214,						/* ö 246 -> Ö 214 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	216,						/* ø 248 -> Ø 216 */
+	217,						/* ù 249 -> Ù 217 */
+	218,						/* ú 250 -> Ú 218 */
+	219,						/* û 251 -> Û 219 */
+	220,						/* ü 252 -> Ü 220 */
+	221,						/* ý 253 -> Ý 221 */
+	222,						/* þ 254 -> Þ 222 */
+	89							/*   255 -> Y  89 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	224,						/* À 192 -> à 224 */
+	225,						/* Á 193 -> á 225 */
+	226,						/* Â 194 -> â 226 */
+	227,						/* Ã 195 -> ã 227 */
+	228,						/* Ä 196 -> ä 228 */
+	229,						/* Å 197 -> å 229 */
+	230,						/* Æ 198 -> æ 230 */
+	231,						/* Ç 199 -> ç 231 */
+	232,						/* È 200 -> è 232 */
+	233,						/* É 201 -> é 233 */
+	234,						/* Ê 202 -> ê 234 */
+	235,						/* Ë 203 -> ë 235 */
+	236,						/* Ì 204 -> ì 236 */
+	237,						/* Í 205 -> í 237 */
+	238,						/* Î 206 -> î 238 */
+	239,						/* Ï 207 -> ï 239 */
+	240,						/* Ð 208 -> ð 240 */
+	241,						/* Ñ 209 -> ñ 241 */
+	242,						/* Ò 210 -> ò 242 */
+	243,						/* Ó 211 -> ó 243 */
+	244,						/* Ô 212 -> ô 244 */
+	245,						/* Õ 213 -> õ 245 */
+	246,						/* Ö 214 -> ö 246 */
+	215,						/* × 215 -> × 215 */
+	248,						/* Ø 216 -> ø 248 */
+	249,						/* Ù 217 -> ù 249 */
+	250,						/* Ú 218 -> ú 250 */
+	251,						/* Û 219 -> û 251 */
+	252,						/* Ü 220 -> ü 252 */
+	253,						/* Ý 221 -> ý 253 */
+	254,						/* Þ 222 -> þ 254 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{198, 65, 69},				/* Æ -> AE */
+	{230, 97, 101},				/* æ -> ae */
+	{223, 115, 115},			/* ß -> ss */
+	{222, 84, 72},				/* Þ -> TH */
+	{254, 116, 104},			/* þ -> th */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 201, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 202, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 203, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 204, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 205, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 206, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 207, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 208, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 209, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 210, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 211, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 212, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 213, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 214, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 215, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 216, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 217, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 218, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 219, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 220, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 221, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 222, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 223, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 224, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 225, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 226, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 227, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 228, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 229, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x0080, "RESERVED - CTRL 80"},
+/* 81 */  {
+	0x0081, "RESERVED - CTRL 81"},
+/* 82 */  {
+	0x0082, "RESERVED - CTRL 82"},
+/* 83 */  {
+	0x0083, "RESERVED - CTRL 83"},
+/* 84 */  {
+	0x0084, "RESERVED - CTRL 84"},
+/* 85 */  {
+	0x0085, "RESERVED - CTRL 85"},
+/* 86 */  {
+	0x0086, "RESERVED - CTRL 86"},
+/* 87 */  {
+	0x0087, "RESERVED - CTRL 87"},
+/* 88 */  {
+	0x0088, "RESERVED - CTRL 88"},
+/* 89 */  {
+	0x0089, "RESERVED - CTRL 89"},
+/* 8A */  {
+	0x008A, "RESERVED - CTRL 8A"},
+/* 8B */  {
+	0x008B, "RESERVED - CTRL 8B"},
+/* 8C */  {
+	0x008C, "RESERVED - CTRL 8C"},
+/* 8D */  {
+	0x008D, "RESERVED - CTRL 8D"},
+/* 8E */  {
+	0x008E, "RESERVED - CTRL 8E"},
+/* 8F */  {
+	0x008F, "RESERVED - CTRL 8F"},
+/* 90 */  {
+	0x0090, "RESERVED - CTRL 90"},
+/* 91 */  {
+	0x0091, "RESERVED - CTRL 91"},
+/* 92 */  {
+	0x0092, "RESERVED - CTRL 92"},
+/* 93 */  {
+	0x0093, "RESERVED - CTRL 93"},
+/* 94 */  {
+	0x0094, "RESERVED - CTRL 94"},
+/* 95 */  {
+	0x0095, "RESERVED - CTRL 95"},
+/* 96 */  {
+	0x0096, "RESERVED - CTRL 96"},
+/* 97 */  {
+	0x0097, "RESERVED - CTRL 97"},
+/* 98 */  {
+	0x0098, "RESERVED - CTRL 98"},
+/* 99 */  {
+	0x0099, "RESERVED - CTRL 99"},
+/* 9A */  {
+	0x009A, "RESERVED - CTRL 9A"},
+/* 9B */  {
+	0x009B, "RESERVED - CTRL 9B"},
+/* 9C */  {
+	0x009C, "RESERVED - CTRL 9C"},
+/* 9D */  {
+	0x009D, "RESERVED - CTRL 9D"},
+/* 9E */  {
+	0x009E, "RESERVED - CTRL 9E"},
+/* 9F */  {
+	0x009F, "RESERVED - CTRL 9F"},
+/* A0 */  {
+	0x00A0, "NON-BREAKING SPACE"},
+/* A1 */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* A2 */  {
+	0x00A2, "CENT SIGN"},
+/* A3 */  {
+	0x00A3, "POUND SIGN"},
+/* A4 */  {
+	0x00A4, "CURRENCY SIGN"},
+/* A5 */  {
+	0x00A5, "YEN SIGN"},
+/* A6 */  {
+	0x00A6, "BROKEN VERTICAL BAR"},
+/* A7 */  {
+	0x00A7, "SECTION SIGN"},
+/* A8 */  {
+	0x00A8, "SPACING DIAERESIS"},
+/* A9 */  {
+	0x00A9, "COPYRIGHT SIGN"},
+/* AA */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* AB */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AC */  {
+	0x00AC, "NOT SIGN"},
+/* AD */  {
+	0x00AD, "SOFT HYPHEN"},
+/* AE */  {
+	0x00AE, "REGISTERED TRADE MARK SIGN"},
+/* AF */  {
+	0x00AF, "SPACING MACRON"},
+/* B0 */  {
+	0x00B0, "DEGREE SIGN"},
+/* B1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* B2 */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* B3 */  {
+	0x00B3, "SUPERSCRIPT DIGIT THREE"},
+/* B4 */  {
+	0x00B4, "SPACING ACUTE"},
+/* B5 */  {
+	0x00B5, "MICRO SIGN"},
+/* B6 */  {
+	0x00B6, "PARAGRAPH SIGN"},
+/* B7 */  {
+	0x00B7, "MIDDLE DOT"},
+/* B8 */  {
+	0x00B8, "SPACING CEDILLA"},
+/* B9 */  {
+	0x00B9, "SUPERSCRIPT DIGIT ONE"},
+/* BA */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* BB */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* BC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* BD */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* BE */  {
+	0x00BE, "FRACTION THREE QUARTERS"},
+/* BF */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* C0 */  {
+	0x00C0, "LATIN CAPITAL LETTER A GRAVE"},
+/* C1 */  {
+	0x00C1, "LATIN CAPITAL LETTER A ACUTE"},
+/* C2 */  {
+	0x00C2, "LATIN CAPITAL LETTER A CIRCUMFLEX"},
+/* C3 */  {
+	0x00C3, "LATIN CAPITAL LETTER A TILDE"},
+/* C4 */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* C5 */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* C6 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* C7 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* C8 */  {
+	0x00C8, "LATIN CAPITAL LETTER E GRAVE"},
+/* C9 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* CA */  {
+	0x00CA, "LATIN CAPITAL LETTER E CIRCUMFLEX"},
+/* CB */  {
+	0x00CB, "LATIN CAPITAL LETTER E DIAERESIS"},
+/* CC */  {
+	0x00CC, "LATIN CAPITAL LETTER I GRAVE"},
+/* CD */  {
+	0x00CD, "LATIN CAPITAL LETTER I ACUTE"},
+/* CE */  {
+	0x00CE, "LATIN CAPITAL LETTER I CIRCUMFLEX"},
+/* CF */  {
+	0x00CF, "LATIN CAPITAL LETTER I DIAERESIS"},
+/* D0 */  {
+	0x00D0, "LATIN CAPITAL LETTER ETH"},
+/* D1 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* D2 */  {
+	0x00D2, "LATIN CAPITAL LETTER O GRAVE"},
+/* D3 */  {
+	0x00D3, "LATIN CAPITAL LETTER O ACUTE"},
+/* D4 */  {
+	0x00D4, "LATIN CAPITAL LETTER O CIRCUMFLEX"},
+/* D5 */  {
+	0x00D5, "LATIN CAPITAL LETTER O TILDE"},
+/* D6 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* D7 */  {
+	0x00D7, "MULTIPLICATION SIGN"},
+/* D8 */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* D9 */  {
+	0x00D9, "LATIN CAPITAL LETTER U GRAVE"},
+/* DA */  {
+	0x00DA, "LATIN CAPITAL LETTER U ACUTE"},
+/* DB */  {
+	0x00DB, "LATIN CAPITAL LETTER U CIRCUMFLEX"},
+/* DC */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* DD */  {
+	0x00DD, "LATIN CAPITAL LETTER Y ACUTE"},
+/* DE */  {
+	0x00DE, "LATIN CAPITAL LETTER THORN"},
+/* DF */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E0 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* E1 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* E2 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* E3 */  {
+	0x00E3, "LATIN SMALL LETTER A TILDE"},
+/* E4 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* E5 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* E6 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* E7 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* E8 */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* E9 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* EA */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* EB */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* EC */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* ED */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* EE */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* EF */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* F0 */  {
+	0x00F0, "LATIN SMALL LETTER ETH"},
+/* F1 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* F2 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* F3 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* F4 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* F5 */  {
+	0x00F5, "LATIN SMALL LETTER O TILDE"},
+/* F6 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* F7 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F8 */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* F9 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* FA */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* FB */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* FC */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* FD */  {
+	0x00FD, "LATIN SMALL LETTER Y ACUTE"},
+/* FE */  {
+	0x00FE, "LATIN SMALL LETTER THORN"},
+/* FF */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"}
+};
+#endif
diff --git a/src/intl/blnxtde0.h b/src/intl/blnxtde0.h
new file mode 100644
index 0000000000..fe169fb558
--- /dev/null
+++ b/src/intl/blnxtde0.h
@@ -0,0 +1,974 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from blnxtde0 -----------*/
+/*----------- On      Thu Jun 24 18:18:12 1993 -----------*/
+
+/*  BLNXTDE0.def */
+/*  Generated on Thu Jun 24 18:18:07 1993
+ */
+/*  from input file 'cfg/blnxtde0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               BorlNeXTGERMAN
+
+
+#define LDRV_CTRYLANGID             GERMANY
+
+
+#define LDRV_PRIMARYCPID            0
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID
+
+
+#define LDRV_PRIMPLAT               NeXT_CP
+
+
+#define LDRV_ALTPLAT
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "DEU NeXT"
+
+
+#define LDRV_FNAME                  "BLNXTDE0"
+
+
+#define NUM_EXPAND_CHARS            9
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY + REVERSE
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/blnxtde0.def */
+
+#define MAX_NCO_PRIMARY  	 36
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	115
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	129,						/* Õ 213 ->   129 */
+	130,						/* Ö 214 ->   130 */
+	131,						/* × 215 ->   131 */
+	132,						/* Ø 216 ->   132 */
+	133,						/* Ù 217 ->   133 */
+	134,						/* Ú 218 ->   134 */
+	135,						/* Û 219 ->   135 */
+	136,						/* Ü 220 ->   136 */
+	137,						/* Ý 221 ->   137 */
+	138,						/* Þ 222 ->   138 */
+	139,						/* ß 223 ->   139 */
+	140,						/* à 224 ->   140 */
+	225,						/* á 225 -> á 225 */
+	141,						/* â 226 ->   141 */
+	227,						/* ã 227 -> ã 227 */
+	142,						/* ä 228 ->   142 */
+	143,						/* å 229 ->   143 */
+	144,						/* æ 230 ->   144 */
+	145,						/* ç 231 ->   145 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	146,						/* ì 236 ->   146 */
+	147,						/* í 237 ->   147 */
+	148,						/* î 238 ->   148 */
+	149,						/* ï 239 ->   149 */
+	150,						/* ð 240 ->   150 */
+	225,						/* ñ 241 -> á 225 */
+	151,						/* ò 242 ->   151 */
+	152,						/* ó 243 ->   152 */
+	153,						/* ô 244 ->   153 */
+	245,						/* õ 245 -> õ 245 */
+	154,						/* ö 246 ->   154 */
+	155,						/* ÷ 247 ->   155 */
+	248,						/* ø 248 -> ø 248 */
+	233,						/* ù 249 -> é 233 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	156,						/* ü 252 ->   156 */
+	89,							/* ý 253 -> Y  89 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	213,						/*   129 -> Õ 213 */
+	214,						/*   130 -> Ö 214 */
+	215,						/*   131 -> × 215 */
+	216,						/*   132 -> Ø 216 */
+	217,						/*   133 -> Ù 217 */
+	218,						/*   134 -> Ú 218 */
+	219,						/*   135 -> Û 219 */
+	220,						/*   136 -> Ü 220 */
+	221,						/*   137 -> Ý 221 */
+	222,						/*   138 -> Þ 222 */
+	223,						/*   139 -> ß 223 */
+	224,						/*   140 -> à 224 */
+	226,						/*   141 -> â 226 */
+	228,						/*   142 -> ä 228 */
+	229,						/*   143 -> å 229 */
+	230,						/*   144 -> æ 230 */
+	231,						/*   145 -> ç 231 */
+	236,						/*   146 -> ì 236 */
+	237,						/*   147 -> í 237 */
+	238,						/*   148 -> î 238 */
+	239,						/*   149 -> ï 239 */
+	240,						/*   150 -> ð 240 */
+	242,						/*   151 -> ò 242 */
+	243,						/*   152 -> ó 243 */
+	244,						/*   153 -> ô 244 */
+	246,						/*   154 -> ö 246 */
+	247,						/*   155 -> ÷ 247 */
+	252,						/*   156 -> ü 252 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	241,						/* á 225 -> ñ 241 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	248,						/* è 232 -> ø 248 */
+	249,						/* é 233 -> ù 249 */
+	250,						/* ê 234 -> ú 250 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{241, 97, 101},				/* ñ -> ae */
+	{225, 65, 69},				/* á -> AE */
+	{174, 102, 105},			/* ® -> fi */
+	{175, 102, 108},			/* ¯ -> fl */
+	{250, 111, 101},			/* ú -> oe */
+	{234, 79, 69},				/* ê -> OE */
+	{251, 115, 115},			/* û -> ss */
+	{252, 116, 104},			/* ü -> th */
+	{156, 84, 72},				/* œ -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 156   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 175 ¯ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 178 ² */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 179 ³ */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 185 ¹ */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 188 ¼ */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 189 ½ */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 193 Á */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 194 Â */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 195 Ã */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 196 Ä */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 197 Å */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 198 Æ */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 199 Ç */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 200 È */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 202 Ê */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 203 Ë */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 205 Í */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 206 Î */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 207 Ï */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 208 Ð */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 209 Ñ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 251 û */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 254 þ */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_0.h"
+#endif
+/* End of File : Language driver blnxtde0 */
diff --git a/src/intl/blnxtes0.h b/src/intl/blnxtes0.h
new file mode 100644
index 0000000000..1cbf4860a1
--- /dev/null
+++ b/src/intl/blnxtes0.h
@@ -0,0 +1,999 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from blnxtes0 -----------*/
+/*----------- On      Thu Jun 24 18:18:49 1993 -----------*/
+
+/*  BLNXTES0.def */
+/*  Generated on Thu Jun 24 18:18:45 1993
+ */
+/*  from input file 'cfg/blnxtes0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               BorlNeXTSPANISH
+
+
+#define LDRV_CTRYLANGID             SPAIN
+
+
+#define LDRV_PRIMARYCPID            0
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID
+
+
+#define LDRV_PRIMPLAT               NeXT_CP
+
+
+#define LDRV_ALTPLAT
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "ESP NeXT"
+
+
+#define LDRV_FNAME                  "BLNXTES0"
+
+
+#define NUM_EXPAND_CHARS            9
+
+
+#define NUM_COMPRESS_CHARS          8
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/blnxtes0.def */
+
+#define MAX_NCO_PRIMARY  	 39
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	115
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	129,						/* Õ 213 ->   129 */
+	130,						/* Ö 214 ->   130 */
+	131,						/* × 215 ->   131 */
+	132,						/* Ø 216 ->   132 */
+	133,						/* Ù 217 ->   133 */
+	134,						/* Ú 218 ->   134 */
+	135,						/* Û 219 ->   135 */
+	136,						/* Ü 220 ->   136 */
+	137,						/* Ý 221 ->   137 */
+	138,						/* Þ 222 ->   138 */
+	139,						/* ß 223 ->   139 */
+	140,						/* à 224 ->   140 */
+	225,						/* á 225 -> á 225 */
+	141,						/* â 226 ->   141 */
+	227,						/* ã 227 -> ã 227 */
+	142,						/* ä 228 ->   142 */
+	143,						/* å 229 ->   143 */
+	144,						/* æ 230 ->   144 */
+	145,						/* ç 231 ->   145 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	146,						/* ì 236 ->   146 */
+	147,						/* í 237 ->   147 */
+	148,						/* î 238 ->   148 */
+	149,						/* ï 239 ->   149 */
+	150,						/* ð 240 ->   150 */
+	225,						/* ñ 241 -> á 225 */
+	151,						/* ò 242 ->   151 */
+	152,						/* ó 243 ->   152 */
+	153,						/* ô 244 ->   153 */
+	245,						/* õ 245 -> õ 245 */
+	154,						/* ö 246 ->   154 */
+	155,						/* ÷ 247 ->   155 */
+	248,						/* ø 248 -> ø 248 */
+	233,						/* ù 249 -> é 233 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	156,						/* ü 252 ->   156 */
+	89,							/* ý 253 -> Y  89 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	213,						/*   129 -> Õ 213 */
+	214,						/*   130 -> Ö 214 */
+	215,						/*   131 -> × 215 */
+	216,						/*   132 -> Ø 216 */
+	217,						/*   133 -> Ù 217 */
+	218,						/*   134 -> Ú 218 */
+	219,						/*   135 -> Û 219 */
+	220,						/*   136 -> Ü 220 */
+	221,						/*   137 -> Ý 221 */
+	222,						/*   138 -> Þ 222 */
+	223,						/*   139 -> ß 223 */
+	224,						/*   140 -> à 224 */
+	226,						/*   141 -> â 226 */
+	228,						/*   142 -> ä 228 */
+	229,						/*   143 -> å 229 */
+	230,						/*   144 -> æ 230 */
+	231,						/*   145 -> ç 231 */
+	236,						/*   146 -> ì 236 */
+	237,						/*   147 -> í 237 */
+	238,						/*   148 -> î 238 */
+	239,						/*   149 -> ï 239 */
+	240,						/*   150 -> ð 240 */
+	242,						/*   151 -> ò 242 */
+	243,						/*   152 -> ó 243 */
+	244,						/*   153 -> ô 244 */
+	246,						/*   154 -> ö 246 */
+	247,						/*   155 -> ÷ 247 */
+	252,						/*   156 -> ü 252 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	241,						/* á 225 -> ñ 241 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	248,						/* è 232 -> ø 248 */
+	249,						/* é 233 -> ù 249 */
+	250,						/* ê 234 -> ú 250 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{241, 97, 101},				/* ñ -> ae */
+	{225, 65, 69},				/* á -> AE */
+	{174, 102, 105},			/* ® -> fi */
+	{175, 102, 108},			/* ¯ -> fl */
+	{250, 111, 101},			/* ú -> oe */
+	{234, 79, 69},				/* ê -> OE */
+	{251, 115, 115},			/* û -> ss */
+	{252, 116, 104},			/* ü -> th */
+	{156, 84, 72},				/* œ -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	
+		{{99, 104},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},
+		 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0}},	/* ch */
+	{{99, 72},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0}},	/* cH */
+	{{67, 104},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0}},	/* Ch */
+	{{67, 72},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0}},	/* CH */
+	{{108, 108},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0}},	/* ll */
+	{{108, 76},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0}},	/* lL */
+	{{76, 108},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0}},	/* Ll */
+	{{76, 76},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0}},	/* LL */
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 1},	/*  67 C */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 23, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 1},	/*  76 L */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 1},	/*  99 c */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 23, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 1},	/* 108 l */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 156   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 175 ¯ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 178 ² */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 179 ³ */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 185 ¹ */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 188 ¼ */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 189 ½ */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 193 Á */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 194 Â */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 195 Ã */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 196 Ä */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 197 Å */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 198 Æ */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 199 Ç */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 200 È */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 202 Ê */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 203 Ë */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 205 Í */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 206 Î */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 207 Ï */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 208 Ð */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 209 Ñ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 23, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 23, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 251 û */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 254 þ */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_0.h"
+#endif
+/* End of File : Language driver blnxtes0 */
diff --git a/src/intl/blnxtfr0.h b/src/intl/blnxtfr0.h
new file mode 100644
index 0000000000..3c396848ca
--- /dev/null
+++ b/src/intl/blnxtfr0.h
@@ -0,0 +1,974 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from blnxtfr0 -----------*/
+/*----------- On      Thu Jun 24 18:18:28 1993 -----------*/
+
+/*  BLNXTFR0.def */
+/*  Generated on Thu Jun 24 18:18:23 1993
+ */
+/*  from input file 'cfg/blnxtfr0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               BorlNeXTFRENCH
+
+
+#define LDRV_CTRYLANGID             FRANCE
+
+
+#define LDRV_PRIMARYCPID            0
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID
+
+
+#define LDRV_PRIMPLAT               NeXT_CP
+
+
+#define LDRV_ALTPLAT
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "FRA NeXT"
+
+
+#define LDRV_FNAME                  "BLNXTFR0"
+
+
+#define NUM_EXPAND_CHARS            9
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY + REVERSE
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/blnxtfr0.def */
+
+#define MAX_NCO_PRIMARY  	 36
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	115
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	65,							/* Õ 213 -> A  65 */
+	65,							/* Ö 214 -> A  65 */
+	65,							/* × 215 -> A  65 */
+	132,						/* Ø 216 ->   132 */
+	133,						/* Ù 217 ->   133 */
+	134,						/* Ú 218 ->   134 */
+	67,							/* Û 219 -> C  67 */
+	69,							/* Ü 220 -> E  69 */
+	69,							/* Ý 221 -> E  69 */
+	69,							/* Þ 222 -> E  69 */
+	69,							/* ß 223 -> E  69 */
+	73,							/* à 224 -> I  73 */
+	225,						/* á 225 -> á 225 */
+	73,							/* â 226 -> I  73 */
+	227,						/* ã 227 -> ã 227 */
+	73,							/* ä 228 -> I  73 */
+	73,							/* å 229 -> I  73 */
+	144,						/* æ 230 ->   144 */
+	145,						/* ç 231 ->   145 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	79,							/* ì 236 -> O  79 */
+	79,							/* í 237 -> O  79 */
+	79,							/* î 238 -> O  79 */
+	149,						/* ï 239 ->   149 */
+	150,						/* ð 240 ->   150 */
+	225,						/* ñ 241 -> á 225 */
+	85,							/* ò 242 -> U  85 */
+	85,							/* ó 243 -> U  85 */
+	85,							/* ô 244 -> U  85 */
+	245,						/* õ 245 -> õ 245 */
+	85,							/* ö 246 -> U  85 */
+	155,						/* ÷ 247 ->   155 */
+	248,						/* ø 248 -> ø 248 */
+	233,						/* ù 249 -> é 233 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	156,						/* ü 252 ->   156 */
+	89,							/* ý 253 -> Y  89 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	213,						/*   129 -> Õ 213 */
+	214,						/*   130 -> Ö 214 */
+	215,						/*   131 -> × 215 */
+	216,						/*   132 -> Ø 216 */
+	217,						/*   133 -> Ù 217 */
+	218,						/*   134 -> Ú 218 */
+	219,						/*   135 -> Û 219 */
+	220,						/*   136 -> Ü 220 */
+	221,						/*   137 -> Ý 221 */
+	222,						/*   138 -> Þ 222 */
+	223,						/*   139 -> ß 223 */
+	224,						/*   140 -> à 224 */
+	226,						/*   141 -> â 226 */
+	228,						/*   142 -> ä 228 */
+	229,						/*   143 -> å 229 */
+	230,						/*   144 -> æ 230 */
+	231,						/*   145 -> ç 231 */
+	236,						/*   146 -> ì 236 */
+	237,						/*   147 -> í 237 */
+	238,						/*   148 -> î 238 */
+	239,						/*   149 -> ï 239 */
+	240,						/*   150 -> ð 240 */
+	242,						/*   151 -> ò 242 */
+	243,						/*   152 -> ó 243 */
+	244,						/*   153 -> ô 244 */
+	246,						/*   154 -> ö 246 */
+	247,						/*   155 -> ÷ 247 */
+	252,						/*   156 -> ü 252 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	241,						/* á 225 -> ñ 241 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	248,						/* è 232 -> ø 248 */
+	249,						/* é 233 -> ù 249 */
+	250,						/* ê 234 -> ú 250 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{241, 97, 101},				/* ñ -> ae */
+	{225, 65, 69},				/* á -> AE */
+	{174, 102, 105},			/* ® -> fi */
+	{175, 102, 108},			/* ¯ -> fl */
+	{250, 111, 101},			/* ú -> oe */
+	{234, 79, 69},				/* ê -> OE */
+	{251, 115, 115},			/* û -> ss */
+	{252, 116, 104},			/* ü -> th */
+	{156, 84, 72},				/* œ -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 156   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 175 ¯ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 178 ² */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 179 ³ */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 185 ¹ */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 188 ¼ */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 189 ½ */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 193 Á */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 194 Â */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 195 Ã */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 196 Ä */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 197 Å */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 198 Æ */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 199 Ç */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 200 È */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 202 Ê */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 203 Ë */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 205 Í */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 206 Î */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 207 Ï */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 208 Ð */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 209 Ñ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 251 û */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 254 þ */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_0.h"
+#endif
+/* End of File : Language driver blnxtfr0 */
diff --git a/src/intl/blnxtit0.h b/src/intl/blnxtit0.h
new file mode 100644
index 0000000000..fa80f459f0
--- /dev/null
+++ b/src/intl/blnxtit0.h
@@ -0,0 +1,974 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from blnxtit0 -----------*/
+/*----------- On      Thu Jun 24 18:19:07 1993 -----------*/
+
+/*  BLNXTIT0.def */
+/*  Generated on Thu Jun 24 18:19:02 1993
+ */
+/*  from input file 'cfg/blnxtit0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               BorlNeXTITALIAN
+
+
+#define LDRV_CTRYLANGID             ITALY
+
+
+#define LDRV_PRIMARYCPID            0
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID
+
+
+#define LDRV_PRIMPLAT               NeXT_CP
+
+
+#define LDRV_ALTPLAT
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "ITA NeXT"
+
+
+#define LDRV_FNAME                  "BLNXTIT0"
+
+
+#define NUM_EXPAND_CHARS            9
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY + REVERSE
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/blnxtit0.def */
+
+#define MAX_NCO_PRIMARY  	 36
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	115
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	129,						/* Õ 213 ->   129 */
+	130,						/* Ö 214 ->   130 */
+	131,						/* × 215 ->   131 */
+	132,						/* Ø 216 ->   132 */
+	133,						/* Ù 217 ->   133 */
+	134,						/* Ú 218 ->   134 */
+	135,						/* Û 219 ->   135 */
+	136,						/* Ü 220 ->   136 */
+	137,						/* Ý 221 ->   137 */
+	138,						/* Þ 222 ->   138 */
+	139,						/* ß 223 ->   139 */
+	140,						/* à 224 ->   140 */
+	225,						/* á 225 -> á 225 */
+	141,						/* â 226 ->   141 */
+	227,						/* ã 227 -> ã 227 */
+	142,						/* ä 228 ->   142 */
+	143,						/* å 229 ->   143 */
+	144,						/* æ 230 ->   144 */
+	145,						/* ç 231 ->   145 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	146,						/* ì 236 ->   146 */
+	147,						/* í 237 ->   147 */
+	148,						/* î 238 ->   148 */
+	149,						/* ï 239 ->   149 */
+	150,						/* ð 240 ->   150 */
+	225,						/* ñ 241 -> á 225 */
+	151,						/* ò 242 ->   151 */
+	152,						/* ó 243 ->   152 */
+	153,						/* ô 244 ->   153 */
+	245,						/* õ 245 -> õ 245 */
+	154,						/* ö 246 ->   154 */
+	155,						/* ÷ 247 ->   155 */
+	248,						/* ø 248 -> ø 248 */
+	233,						/* ù 249 -> é 233 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	156,						/* ü 252 ->   156 */
+	89,							/* ý 253 -> Y  89 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	213,						/*   129 -> Õ 213 */
+	214,						/*   130 -> Ö 214 */
+	215,						/*   131 -> × 215 */
+	216,						/*   132 -> Ø 216 */
+	217,						/*   133 -> Ù 217 */
+	218,						/*   134 -> Ú 218 */
+	219,						/*   135 -> Û 219 */
+	220,						/*   136 -> Ü 220 */
+	221,						/*   137 -> Ý 221 */
+	222,						/*   138 -> Þ 222 */
+	223,						/*   139 -> ß 223 */
+	224,						/*   140 -> à 224 */
+	226,						/*   141 -> â 226 */
+	228,						/*   142 -> ä 228 */
+	229,						/*   143 -> å 229 */
+	230,						/*   144 -> æ 230 */
+	231,						/*   145 -> ç 231 */
+	236,						/*   146 -> ì 236 */
+	237,						/*   147 -> í 237 */
+	238,						/*   148 -> î 238 */
+	239,						/*   149 -> ï 239 */
+	240,						/*   150 -> ð 240 */
+	242,						/*   151 -> ò 242 */
+	243,						/*   152 -> ó 243 */
+	244,						/*   153 -> ô 244 */
+	246,						/*   154 -> ö 246 */
+	247,						/*   155 -> ÷ 247 */
+	252,						/*   156 -> ü 252 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	241,						/* á 225 -> ñ 241 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	248,						/* è 232 -> ø 248 */
+	249,						/* é 233 -> ù 249 */
+	250,						/* ê 234 -> ú 250 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{241, 97, 101},				/* ñ -> ae */
+	{225, 65, 69},				/* á -> AE */
+	{174, 102, 105},			/* ® -> fi */
+	{175, 102, 108},			/* ¯ -> fl */
+	{250, 111, 101},			/* ú -> oe */
+	{234, 79, 69},				/* ê -> OE */
+	{251, 115, 115},			/* û -> ss */
+	{252, 116, 104},			/* ü -> th */
+	{156, 84, 72},				/* œ -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_IGNORE + 0, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   0   */
+	{FIRST_IGNORE + 1, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   1   */
+	{FIRST_IGNORE + 2, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   2   */
+	{FIRST_IGNORE + 3, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   3   */
+	{FIRST_IGNORE + 4, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   4   */
+	{FIRST_IGNORE + 5, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   5   */
+	{FIRST_IGNORE + 6, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   6   */
+	{FIRST_IGNORE + 7, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   7   */
+	{FIRST_IGNORE + 8, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   8   */
+	{FIRST_IGNORE + 9, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*   9   */
+	{FIRST_IGNORE + 10, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  10   */
+	{FIRST_IGNORE + 11, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  11   */
+	{FIRST_IGNORE + 12, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  12   */
+	{FIRST_IGNORE + 13, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  13   */
+	{FIRST_IGNORE + 14, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  14   */
+	{FIRST_IGNORE + 15, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  15   */
+	{FIRST_IGNORE + 16, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  16   */
+	{FIRST_IGNORE + 17, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  17   */
+	{FIRST_IGNORE + 18, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  18   */
+	{FIRST_IGNORE + 19, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  19   */
+	{FIRST_IGNORE + 20, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  20   */
+	{FIRST_IGNORE + 21, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  21   */
+	{FIRST_IGNORE + 22, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  22   */
+	{FIRST_IGNORE + 23, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  23   */
+	{FIRST_IGNORE + 24, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  24   */
+	{FIRST_IGNORE + 25, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  25   */
+	{FIRST_IGNORE + 26, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  26   */
+	{FIRST_IGNORE + 27, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  27   */
+	{FIRST_IGNORE + 28, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  28   */
+	{FIRST_IGNORE + 29, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  29   */
+	{FIRST_IGNORE + 30, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  30   */
+	{FIRST_IGNORE + 31, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  31   */
+	{FIRST_IGNORE + 32, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  32   */
+	{FIRST_IGNORE + 40, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  33 ! */
+	{FIRST_IGNORE + 54, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  34 " */
+	{FIRST_IGNORE + 84, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  35 # */
+	{FIRST_IGNORE + 75, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  36 $ */
+	{FIRST_IGNORE + 85, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  37 % */
+	{FIRST_IGNORE + 83, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  38 & */
+	{FIRST_IGNORE + 51, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  39 ' */
+	{FIRST_IGNORE + 62, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  40 ( */
+	{FIRST_IGNORE + 63, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  41 ) */
+	{FIRST_IGNORE + 79, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  42 * */
+	{FIRST_IGNORE + 87, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  43 + */
+	{FIRST_IGNORE + 37, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  44 , */
+	{FIRST_IGNORE + 34, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  45 - */
+	{FIRST_IGNORE + 44, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  46 . */
+	{FIRST_IGNORE + 81, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_IGNORE + 39, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  58 : */
+	{FIRST_IGNORE + 38, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  59 ; */
+	{FIRST_IGNORE + 91, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  60 < */
+	{FIRST_IGNORE + 92, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  61 = */
+	{FIRST_IGNORE + 93, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  62 > */
+	{FIRST_IGNORE + 42, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  63 ? */
+	{FIRST_IGNORE + 72, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_IGNORE + 64, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  91 [ */
+	{FIRST_IGNORE + 80, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  92 \ */
+	{FIRST_IGNORE + 65, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  93 ] */
+	{FIRST_IGNORE + 47, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  94 ^ */
+	{FIRST_IGNORE + 33, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  95 _ */
+	{FIRST_IGNORE + 46, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_IGNORE + 66, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 123 { */
+	{FIRST_IGNORE + 95, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 124 | */
+	{FIRST_IGNORE + 67, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 125 } */
+	{FIRST_IGNORE + 48, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 126 ~ */
+	{FIRST_IGNORE + 113, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 127   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 1, 0},	/* 156   */
+	{FIRST_IGNORE + 97, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 157   */
+	{FIRST_IGNORE + 90, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 158   */
+	{FIRST_IGNORE + 89, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 159   */
+	{FIRST_IGNORE + 70, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 160   */
+	{FIRST_IGNORE + 41, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 161 ¡ */
+	{FIRST_IGNORE + 74, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 162 ¢ */
+	{FIRST_IGNORE + 76, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 163 £ */
+	{FIRST_IGNORE + 82, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 164 ¤ */
+	{FIRST_IGNORE + 77, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 165 ¥ */
+	{FIRST_IGNORE + 78, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 166 ¦ */
+	{FIRST_IGNORE + 68, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 167 § */
+	{FIRST_IGNORE + 73, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 168 ¨ */
+	{FIRST_IGNORE + 52, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 169 © */
+	{FIRST_IGNORE + 57, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 170 ª */
+	{FIRST_IGNORE + 55, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 171 « */
+	{FIRST_IGNORE + 60, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 172 ¬ */
+	{FIRST_IGNORE + 61, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 173 ­ */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 175 ¯ */
+	{FIRST_IGNORE + 71, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 176 ° */
+	{FIRST_IGNORE + 35, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 177 ± */
+	{FIRST_IGNORE + 98, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 178 ² */
+	{FIRST_IGNORE + 99, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 179 ³ */
+	{FIRST_IGNORE + 49, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 180 ´ */
+	{FIRST_IGNORE + 96, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 181 µ */
+	{FIRST_IGNORE + 69, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 182 ¶ */
+	{FIRST_IGNORE + 50, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 183 · */
+	{FIRST_IGNORE + 53, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 184 ¸ */
+	{FIRST_IGNORE + 59, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 185 ¹ */
+	{FIRST_IGNORE + 58, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 186 º */
+	{FIRST_IGNORE + 56, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 187 » */
+	{FIRST_IGNORE + 45, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 188 ¼ */
+	{FIRST_IGNORE + 86, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 189 ½ */
+	{FIRST_IGNORE + 94, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 190 ¾ */
+	{FIRST_IGNORE + 43, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 191 ¿ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 192 À */
+	{FIRST_IGNORE + 100, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 193 Á */
+	{FIRST_IGNORE + 101, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 194 Â */
+	{FIRST_IGNORE + 102, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 195 Ã */
+	{FIRST_IGNORE + 103, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 196 Ä */
+	{FIRST_IGNORE + 104, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 197 Å */
+	{FIRST_IGNORE + 105, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 198 Æ */
+	{FIRST_IGNORE + 106, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 199 Ç */
+	{FIRST_IGNORE + 107, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 200 È */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 201 É */
+	{FIRST_IGNORE + 108, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 202 Ê */
+	{FIRST_IGNORE + 109, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 203 Ë */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 204 Ì */
+	{FIRST_IGNORE + 110, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 205 Í */
+	{FIRST_IGNORE + 111, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 206 Î */
+	{FIRST_IGNORE + 112, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 207 Ï */
+	{FIRST_IGNORE + 36, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 208 Ð */
+	{FIRST_IGNORE + 88, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 209 Ñ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 8, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 1, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 1, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 251 û */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 253 ý */
+	{FIRST_IGNORE + 114, NULL_SECONDARY, NULL_TERTIARY, 1, 1},	/* 254 þ */
+	{FIRST_IGNORE + 115, NULL_SECONDARY, NULL_TERTIARY, 1, 1}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_0.h"
+#endif
+/* End of File : Language driver blnxtit0 */
diff --git a/src/intl/blnxtus0.h b/src/intl/blnxtus0.h
new file mode 100644
index 0000000000..43beb1fa5c
--- /dev/null
+++ b/src/intl/blnxtus0.h
@@ -0,0 +1,974 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from blnxtus0 -----------*/
+/*----------- On      Thu Jun 24 18:17:54 1993 -----------*/
+
+/*  BLNXTUS0.def */
+/*  Generated on Thu Jun 24 18:17:49 1993
+ */
+/*  from input file 'cfg/blnxtus0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               BorlNeXTUS
+
+
+#define LDRV_CTRYLANGID             US
+
+
+#define LDRV_PRIMARYCPID            0
+
+
+#define LDRV_PID                    BORLAND
+
+
+#define LDRV_ALTCPID
+
+
+#define LDRV_PRIMPLAT               NeXT_CP
+
+
+#define LDRV_ALTPLAT
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "ENU NeXT"
+
+
+#define LDRV_FNAME                  "BLNXTUS0"
+
+
+#define NUM_EXPAND_CHARS            9
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          2
+
+
+/* End of langdrv/blnxtus0.def */
+
+#define MAX_NCO_PRIMARY  	229
+#define MAX_NCO_SECONDARY	  0
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	129,						/* Õ 213 ->   129 */
+	130,						/* Ö 214 ->   130 */
+	131,						/* × 215 ->   131 */
+	132,						/* Ø 216 ->   132 */
+	133,						/* Ù 217 ->   133 */
+	134,						/* Ú 218 ->   134 */
+	135,						/* Û 219 ->   135 */
+	136,						/* Ü 220 ->   136 */
+	137,						/* Ý 221 ->   137 */
+	138,						/* Þ 222 ->   138 */
+	139,						/* ß 223 ->   139 */
+	140,						/* à 224 ->   140 */
+	225,						/* á 225 -> á 225 */
+	141,						/* â 226 ->   141 */
+	227,						/* ã 227 -> ã 227 */
+	142,						/* ä 228 ->   142 */
+	143,						/* å 229 ->   143 */
+	144,						/* æ 230 ->   144 */
+	145,						/* ç 231 ->   145 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	146,						/* ì 236 ->   146 */
+	147,						/* í 237 ->   147 */
+	148,						/* î 238 ->   148 */
+	149,						/* ï 239 ->   149 */
+	150,						/* ð 240 ->   150 */
+	225,						/* ñ 241 -> á 225 */
+	151,						/* ò 242 ->   151 */
+	152,						/* ó 243 ->   152 */
+	153,						/* ô 244 ->   153 */
+	245,						/* õ 245 -> õ 245 */
+	154,						/* ö 246 ->   154 */
+	155,						/* ÷ 247 ->   155 */
+	248,						/* ø 248 -> ø 248 */
+	233,						/* ù 249 -> é 233 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	156,						/* ü 252 ->   156 */
+	89,							/* ý 253 -> Y  89 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	213,						/*   129 -> Õ 213 */
+	214,						/*   130 -> Ö 214 */
+	215,						/*   131 -> × 215 */
+	216,						/*   132 -> Ø 216 */
+	217,						/*   133 -> Ù 217 */
+	218,						/*   134 -> Ú 218 */
+	219,						/*   135 -> Û 219 */
+	220,						/*   136 -> Ü 220 */
+	221,						/*   137 -> Ý 221 */
+	222,						/*   138 -> Þ 222 */
+	223,						/*   139 -> ß 223 */
+	224,						/*   140 -> à 224 */
+	226,						/*   141 -> â 226 */
+	228,						/*   142 -> ä 228 */
+	229,						/*   143 -> å 229 */
+	230,						/*   144 -> æ 230 */
+	231,						/*   145 -> ç 231 */
+	236,						/*   146 -> ì 236 */
+	237,						/*   147 -> í 237 */
+	238,						/*   148 -> î 238 */
+	239,						/*   149 -> ï 239 */
+	240,						/*   150 -> ð 240 */
+	242,						/*   151 -> ò 242 */
+	243,						/*   152 -> ó 243 */
+	244,						/*   153 -> ô 244 */
+	246,						/*   154 -> ö 246 */
+	247,						/*   155 -> ÷ 247 */
+	252,						/*   156 -> ü 252 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	241,						/* á 225 -> ñ 241 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	248,						/* è 232 -> ø 248 */
+	249,						/* é 233 -> ù 249 */
+	250,						/* ê 234 -> ú 250 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{225, 65, 69},				/* á -> AE */
+	{241, 97, 101},				/* ñ -> ae */
+	{251, 115, 115},			/* û -> ss */
+	{156, 84, 72},				/* œ -> TH */
+	{252, 116, 104},			/* ü -> th */
+	{250, 111, 101},			/* ú -> oe */
+	{234, 79, 69},				/* ê -> OE */
+	{174, 102, 105},			/* ® -> fi */
+	{175, 102, 108},			/* ¯ -> fl */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 201, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 202, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 203, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 204, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 205, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 206, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 207, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 208, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 209, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 210, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 211, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 212, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 213, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 214, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 215, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 216, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 217, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 218, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 219, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 220, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 221, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 222, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 223, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 224, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 225, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 226, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 227, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 228, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 229, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_0.h"
+#endif
+/* End of File : Language driver blnxtus0 */
diff --git a/src/intl/charsets.h b/src/intl/charsets.h
new file mode 100644
index 0000000000..26ab7a4097
--- /dev/null
+++ b/src/intl/charsets.h
@@ -0,0 +1,87 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef INTL_CHARSETS_H
+#define INTL_CHARSETS_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#define   CS_NONE               0	/* No Character Set */
+#define   CS_BINARY             1	/* BINARY BYTES     */
+#define   CS_ASCII              2	/* ASCII            */
+#define   CS_UNICODE_FSS        3	/* UNICODE in FSS format */
+#define	  CS_reserved4          4	/* reserved for future internal use */
+
+#define   CS_SJIS               5	/* SJIS             */
+#define   CS_EUCJ               6	/* EUC-J            */
+
+#define   CS_JIS_0208		7	/* JIS 0208; 1990   */
+#define   CS_UNICODE_110        8	/* UNICODE v 1.10   */
+
+#define   CS_DOS_437            10	/* DOS CP 437       */
+#define   CS_DOS_850            11	/* DOS CP 850       */
+#define   CS_DOS_865            12	/* DOS CP 865       */
+#define   CS_DOS_860            13	/* DOS CP 860       */
+#define   CS_DOS_863            14	/* DOS CP 863       */
+#define   CS_NeXTSTEP           19	/* NeXTSTEP OS native charset */
+
+#define   CS_LATIN1             21	/* ISO-8859.1       */
+#define   CS_LATIN2             22	/* ISO-8859.2       */
+#define   CS_LATIN3             23	/* ISO-8859.3       */
+#define   CS_LATIN4             34	/* ISO-8859.4       */
+#define   CS_LATIN5             35	/* ISO-8859.5       */
+#define   CS_LATIN6             36	/* ISO-8859.6       */
+#define   CS_LATIN7             37	/* ISO-8859.7       */
+#define   CS_LATIN8             38	/* ISO-8859.8       */
+#define   CS_LATIN9             39	/* ISO-8859.9       */
+
+#define   CS_ANSI               40	/* ANSI             */
+#define   CS_KSC5601            44	/* KOREAN STANDARD 5601 */
+
+#define   CS_DOS_852		45	/* DOS CP 852   */
+#define   CS_DOS_857		46	/* DOS CP 857   */
+#define   CS_DOS_861		47	/* DOS CP 861   */
+
+#define   CS_CYRL		50
+#define   CS_WIN1250		51	/* Windows cp 1250  */
+#define   CS_WIN1251		52	/* Windows cp 1251  */
+#define   CS_WIN1252		53	/* Windows cp 1252  */
+#define   CS_WIN1253		54	/* Windows cp 1253  */
+#define   CS_WIN1254		55	/* Windows cp 1254  */
+
+#define	  CS_BIG5		56		/* Big Five unicode cs */
+#define	  CS_GB2312		57		/* GB 2312-80 cs */
+
+#define   CS_dynamic           127	/* Pseudo number for runtime charset */
+
+#define   CS_MAX_CS_NUMBER	58
+
+/* Alias name */
+
+#define   CS_UNICODE		CS_UNICODE_110
+#define   CS_UNICODE101	        CS_UNICODE_110	/* temporary rename */
+#define   CS_UNICODE110	        CS_UNICODE_110	/* temporary rename */
+#define   CS_NEXT		CS_NeXTSTEP	/* NeXT charset   */
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* INTL_CHARSETS_H */
diff --git a/src/intl/countries.h b/src/intl/countries.h
new file mode 100644
index 0000000000..893c397ec1
--- /dev/null
+++ b/src/intl/countries.h
@@ -0,0 +1,48 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef _INTL_COUNTRIES_H_
+#define _INTL_COUNTRIES_H_
+
+#define   US                    1	/* USA              */
+#define   FRENCHCAN             2	/* FRENCHCAN        */
+#define   LATINAMER             3	/* LATINAMER        */
+#define   NEDERLANDS            31	/* NEDERLANDS       */
+#define   BELGIUM               32	/* BELGIUM          */
+#define   FRANCE                33	/* FRANCE           */
+#define   SPAIN                 34	/* SPAIN            */
+#define   HUNGARY               36	/* HUNGARY          */
+#define   YUGOSLAVIA            38	/* YUGOSLAVIA       */
+#define   ITALY                 39	/* ITALY            */
+#define   SWITZ                 41	/* SWITZ            */
+#define   CZECH                 42	/* CZECH            */
+#define   UK                    44	/* UK               */
+#define   DENMARK               45	/* DENMARK          */
+#define   SWEDEN                46	/* SWEDEN           */
+#define   NORWAY                47	/* NORWAY           */
+#define   POLAND                48	/* POLAND           */
+#define   GERMANY               49	/* GERMANY          */
+#define   BRAZIL                55	/* BRAZIL           */
+#define   INTL                  61	/* INTL             */
+#define   JAPAN                 81	/* JAPAN            */
+#define   PORTUGAL              351	/* PORTUGAL         */
+#define   ICELAND               354	/* ICELAND          */
+#define   FINLAND               358	/* FINLAND          */
+#define   KOREA                 82	/* KOREA            */
+
+#endif /* _INTL_COUNTRIES_H_ */
diff --git a/src/intl/country_codes.h b/src/intl/country_codes.h
new file mode 100644
index 0000000000..187ace5013
--- /dev/null
+++ b/src/intl/country_codes.h
@@ -0,0 +1,64 @@
+/* 93-Jan-05
+ * CC_<country> ===> CountryCode_<country> 
+ * Assigned codes are related to telephone system country dialling codes
+ * but not exact, for instance FRENCHCAN == CANADA has a unique
+ * ID, but shares a dialling code with US.  Former parts of YUGOSLAVIA
+ * can be assigned codes, but don't have their own dialling codes.
+ * INTL is a "generic International" code, not corresponding to any
+ * Territory.
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _INTL_COUNTRY_CODES_H_
+#define _INTL_COUNTRY_CODES_H_
+
+#define   CC_C                     0	/* 'C' Language locale */
+
+#define   CC_US                    1	/* USA              */
+#define   CC_FRENCHCAN             2	/* FRENCHCAN        */
+#define   CC_LATINAMER             3	/* LATINAMER        */
+#define   CC_NEDERLANDS            31	/* NEDERLANDS       */
+#define   CC_BELGIUM               32	/* BELGIUM          */
+#define   CC_FRANCE                33	/* FRANCE           */
+#define   CC_SPAIN                 34	/* SPAIN            */
+#define   CC_HUNGARY               36	/* HUNGARY          */
+#define   CC_YUGOSLAVIA            38	/* YUGOSLAVIA       */
+#define   CC_ITALY                 39	/* ITALY            */
+#define   CC_SWITZ                 41	/* SWITZ            */
+#define   CC_CZECH                 42	/* CZECH            */
+#define   CC_UK                    44	/* UK               */
+#define   CC_DENMARK               45	/* DENMARK          */
+#define   CC_SWEDEN                46	/* SWEDEN           */
+#define   CC_NORWAY                47	/* NORWAY           */
+#define   CC_POLAND                48	/* POLAND           */
+#define   CC_GERMANY               49	/* GERMANY          */
+#define   CC_BRAZIL                55	/* BRAZIL           */
+#define   CC_INTL                  61	/* INTL             */
+#define   CC_JAPAN                 81	/* JAPAN            */
+#define   CC_PORTUGAL              351	/* PORTUGAL         */
+#define   CC_ICELAND               354	/* ICELAND          */
+#define   CC_FINLAND               358	/* FINLAND          */
+#define   CC_KOREA                 82	/* KOREA            */
+#define   CC_GREECE                30	/* TURKEY           */
+#define   CC_TURKEY                90	/* TURKEY           */
+#define   CC_RUSSIA                07	/* RUSSIA           */
+
+#define   CC_NORDAN                92	/* NORDAY + DENMARK */
+#define   CC_SWEDFIN               404	/* SWEDIN + FINLAND */
+
+#endif /* _INTL_COUNTRY_CODES_H_ */
diff --git a/src/intl/cs_437.h b/src/intl/cs_437.h
new file mode 100644
index 0000000000..6144d0833a
--- /dev/null
+++ b/src/intl/cs_437.h
@@ -0,0 +1,4661 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/PC/CP437.TXT 
+
+#
+#    Name:     cp437_DOSLatinUS to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/24/96
+#    Authors:       Lori Brownell <loribr@microsoft.com>
+#                   K.D. Chang    <a-kchang@microsoft.com>
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp437_DOSLatinUS code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp437_DOSLatinUS order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0a	0x000a	#LINE FEED
+0x0b	0x000b	#VERTICAL TABULATION
+0x0c	0x000c	#FORM FEED
+0x0d	0x000d	#CARRIAGE RETURN
+0x0e	0x000e	#SHIFT OUT
+0x0f	0x000f	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1a	0x001a	#SUBSTITUTE
+0x1b	0x001b	#ESCAPE
+0x1c	0x001c	#FILE SEPARATOR
+0x1d	0x001d	#GROUP SEPARATOR
+0x1e	0x001e	#RECORD SEPARATOR
+0x1f	0x001f	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2a	0x002a	#ASTERISK
+0x2b	0x002b	#PLUS SIGN
+0x2c	0x002c	#COMMA
+0x2d	0x002d	#HYPHEN-MINUS
+0x2e	0x002e	#FULL STOP
+0x2f	0x002f	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3a	0x003a	#COLON
+0x3b	0x003b	#SEMICOLON
+0x3c	0x003c	#LESS-THAN SIGN
+0x3d	0x003d	#EQUALS SIGN
+0x3e	0x003e	#GREATER-THAN SIGN
+0x3f	0x003f	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4a	0x004a	#LATIN CAPITAL LETTER J
+0x4b	0x004b	#LATIN CAPITAL LETTER K
+0x4c	0x004c	#LATIN CAPITAL LETTER L
+0x4d	0x004d	#LATIN CAPITAL LETTER M
+0x4e	0x004e	#LATIN CAPITAL LETTER N
+0x4f	0x004f	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5a	0x005a	#LATIN CAPITAL LETTER Z
+0x5b	0x005b	#LEFT SQUARE BRACKET
+0x5c	0x005c	#REVERSE SOLIDUS
+0x5d	0x005d	#RIGHT SQUARE BRACKET
+0x5e	0x005e	#CIRCUMFLEX ACCENT
+0x5f	0x005f	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6a	0x006a	#LATIN SMALL LETTER J
+0x6b	0x006b	#LATIN SMALL LETTER K
+0x6c	0x006c	#LATIN SMALL LETTER L
+0x6d	0x006d	#LATIN SMALL LETTER M
+0x6e	0x006e	#LATIN SMALL LETTER N
+0x6f	0x006f	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7a	0x007a	#LATIN SMALL LETTER Z
+0x7b	0x007b	#LEFT CURLY BRACKET
+0x7c	0x007c	#VERTICAL LINE
+0x7d	0x007d	#RIGHT CURLY BRACKET
+0x7e	0x007e	#TILDE
+0x7f	0x007f	#DELETE
+0x80	0x00c7	#LATIN CAPITAL LETTER C WITH CEDILLA
+0x81	0x00fc	#LATIN SMALL LETTER U WITH DIAERESIS
+0x82	0x00e9	#LATIN SMALL LETTER E WITH ACUTE
+0x83	0x00e2	#LATIN SMALL LETTER A WITH CIRCUMFLEX
+0x84	0x00e4	#LATIN SMALL LETTER A WITH DIAERESIS
+0x85	0x00e0	#LATIN SMALL LETTER A WITH GRAVE
+0x86	0x00e5	#LATIN SMALL LETTER A WITH RING ABOVE
+0x87	0x00e7	#LATIN SMALL LETTER C WITH CEDILLA
+0x88	0x00ea	#LATIN SMALL LETTER E WITH CIRCUMFLEX
+0x89	0x00eb	#LATIN SMALL LETTER E WITH DIAERESIS
+0x8a	0x00e8	#LATIN SMALL LETTER E WITH GRAVE
+0x8b	0x00ef	#LATIN SMALL LETTER I WITH DIAERESIS
+0x8c	0x00ee	#LATIN SMALL LETTER I WITH CIRCUMFLEX
+0x8d	0x00ec	#LATIN SMALL LETTER I WITH GRAVE
+0x8e	0x00c4	#LATIN CAPITAL LETTER A WITH DIAERESIS
+0x8f	0x00c5	#LATIN CAPITAL LETTER A WITH RING ABOVE
+0x90	0x00c9	#LATIN CAPITAL LETTER E WITH ACUTE
+0x91	0x00e6	#LATIN SMALL LIGATURE AE
+0x92	0x00c6	#LATIN CAPITAL LIGATURE AE
+0x93	0x00f4	#LATIN SMALL LETTER O WITH CIRCUMFLEX
+0x94	0x00f6	#LATIN SMALL LETTER O WITH DIAERESIS
+0x95	0x00f2	#LATIN SMALL LETTER O WITH GRAVE
+0x96	0x00fb	#LATIN SMALL LETTER U WITH CIRCUMFLEX
+0x97	0x00f9	#LATIN SMALL LETTER U WITH GRAVE
+0x98	0x00ff	#LATIN SMALL LETTER Y WITH DIAERESIS
+0x99	0x00d6	#LATIN CAPITAL LETTER O WITH DIAERESIS
+0x9a	0x00dc	#LATIN CAPITAL LETTER U WITH DIAERESIS
+0x9b	0x00a2	#CENT SIGN
+0x9c	0x00a3	#POUND SIGN
+0x9d	0x00a5	#YEN SIGN
+0x9e	0x20a7	#PESETA SIGN
+0x9f	0x0192	#LATIN SMALL LETTER F WITH HOOK
+0xa0	0x00e1	#LATIN SMALL LETTER A WITH ACUTE
+0xa1	0x00ed	#LATIN SMALL LETTER I WITH ACUTE
+0xa2	0x00f3	#LATIN SMALL LETTER O WITH ACUTE
+0xa3	0x00fa	#LATIN SMALL LETTER U WITH ACUTE
+0xa4	0x00f1	#LATIN SMALL LETTER N WITH TILDE
+0xa5	0x00d1	#LATIN CAPITAL LETTER N WITH TILDE
+0xa6	0x00aa	#FEMININE ORDINAL INDICATOR
+0xa7	0x00ba	#MASCULINE ORDINAL INDICATOR
+0xa8	0x00bf	#INVERTED QUESTION MARK
+0xa9	0x2310	#REVERSED NOT SIGN
+0xaa	0x00ac	#NOT SIGN
+0xab	0x00bd	#VULGAR FRACTION ONE HALF
+0xac	0x00bc	#VULGAR FRACTION ONE QUARTER
+0xad	0x00a1	#INVERTED EXCLAMATION MARK
+0xae	0x00ab	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xaf	0x00bb	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xb0	0x2591	#LIGHT SHADE
+0xb1	0x2592	#MEDIUM SHADE
+0xb2	0x2593	#DARK SHADE
+0xb3	0x2502	#BOX DRAWINGS LIGHT VERTICAL
+0xb4	0x2524	#BOX DRAWINGS LIGHT VERTICAL AND LEFT
+0xb5	0x2561	#BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
+0xb6	0x2562	#BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
+0xb7	0x2556	#BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
+0xb8	0x2555	#BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
+0xb9	0x2563	#BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+0xba	0x2551	#BOX DRAWINGS DOUBLE VERTICAL
+0xbb	0x2557	#BOX DRAWINGS DOUBLE DOWN AND LEFT
+0xbc	0x255d	#BOX DRAWINGS DOUBLE UP AND LEFT
+0xbd	0x255c	#BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
+0xbe	0x255b	#BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
+0xbf	0x2510	#BOX DRAWINGS LIGHT DOWN AND LEFT
+0xc0	0x2514	#BOX DRAWINGS LIGHT UP AND RIGHT
+0xc1	0x2534	#BOX DRAWINGS LIGHT UP AND HORIZONTAL
+0xc2	0x252c	#BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+0xc3	0x251c	#BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+0xc4	0x2500	#BOX DRAWINGS LIGHT HORIZONTAL
+0xc5	0x253c	#BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+0xc6	0x255e	#BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
+0xc7	0x255f	#BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
+0xc8	0x255a	#BOX DRAWINGS DOUBLE UP AND RIGHT
+0xc9	0x2554	#BOX DRAWINGS DOUBLE DOWN AND RIGHT
+0xca	0x2569	#BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+0xcb	0x2566	#BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+0xcc	0x2560	#BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+0xcd	0x2550	#BOX DRAWINGS DOUBLE HORIZONTAL
+0xce	0x256c	#BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+0xcf	0x2567	#BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
+0xd0	0x2568	#BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
+0xd1	0x2564	#BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
+0xd2	0x2565	#BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
+0xd3	0x2559	#BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
+0xd4	0x2558	#BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
+0xd5	0x2552	#BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
+0xd6	0x2553	#BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
+0xd7	0x256b	#BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
+0xd8	0x256a	#BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
+0xd9	0x2518	#BOX DRAWINGS LIGHT UP AND LEFT
+0xda	0x250c	#BOX DRAWINGS LIGHT DOWN AND RIGHT
+0xdb	0x2588	#FULL BLOCK
+0xdc	0x2584	#LOWER HALF BLOCK
+0xdd	0x258c	#LEFT HALF BLOCK
+0xde	0x2590	#RIGHT HALF BLOCK
+0xdf	0x2580	#UPPER HALF BLOCK
+0xe0	0x03b1	#GREEK SMALL LETTER ALPHA
+0xe1	0x00df	#LATIN SMALL LETTER SHARP S
+0xe2	0x0393	#GREEK CAPITAL LETTER GAMMA
+0xe3	0x03c0	#GREEK SMALL LETTER PI
+0xe4	0x03a3	#GREEK CAPITAL LETTER SIGMA
+0xe5	0x03c3	#GREEK SMALL LETTER SIGMA
+0xe6	0x00b5	#MICRO SIGN
+0xe7	0x03c4	#GREEK SMALL LETTER TAU
+0xe8	0x03a6	#GREEK CAPITAL LETTER PHI
+0xe9	0x0398	#GREEK CAPITAL LETTER THETA
+0xea	0x03a9	#GREEK CAPITAL LETTER OMEGA
+0xeb	0x03b4	#GREEK SMALL LETTER DELTA
+0xec	0x221e	#INFINITY
+0xed	0x03c6	#GREEK SMALL LETTER PHI
+0xee	0x03b5	#GREEK SMALL LETTER EPSILON
+0xef	0x2229	#INTERSECTION
+0xf0	0x2261	#IDENTICAL TO
+0xf1	0x00b1	#PLUS-MINUS SIGN
+0xf2	0x2265	#GREATER-THAN OR EQUAL TO
+0xf3	0x2264	#LESS-THAN OR EQUAL TO
+0xf4	0x2320	#TOP HALF INTEGRAL
+0xf5	0x2321	#BOTTOM HALF INTEGRAL
+0xf6	0x00f7	#DIVISION SIGN
+0xf7	0x2248	#ALMOST EQUAL TO
+0xf8	0x00b0	#DEGREE SIGN
+0xf9	0x2219	#BULLET OPERATOR
+0xfa	0x00b7	#MIDDLE DOT
+0xfb	0x221a	#SQUARE ROOT
+0xfc	0x207f	#SUPERSCRIPT LATIN SMALL LETTER N
+0xfd	0x00b2	#SUPERSCRIPT TWO
+0xfe	0x25a0	#BLACK SQUARE
+0xff	0x00a0	#NO-BREAK SPACE
+
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x00C7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,
+	/* 81 */ 0x00FC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,
+	/* 82 */ 0x00E9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,
+	/* 83 */ 0x00E2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,
+	/* 84 */ 0x00E4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,
+	/* 85 */ 0x00E0 /*               LATIN SMALL LETTER A WITH GRAVE */ ,
+	/* 86 */ 0x00E5 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,
+	/* 87 */ 0x00E7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,
+	/* 88 */ 0x00EA /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,
+	/* 89 */ 0x00EB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,
+	/* 8A */ 0x00E8 /*               LATIN SMALL LETTER E WITH GRAVE */ ,
+	/* 8B */ 0x00EF /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,
+	/* 8C */ 0x00EE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,
+	/* 8D */ 0x00EC /*               LATIN SMALL LETTER I WITH GRAVE */ ,
+	/* 8E */ 0x00C4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,
+	/* 8F */ 0x00C5 /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,
+	/* 90 */ 0x00C9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,
+	/* 91 */ 0x00E6 /*                       LATIN SMALL LIGATURE AE */ ,
+	/* 92 */ 0x00C6 /*                     LATIN CAPITAL LIGATURE AE */ ,
+	/* 93 */ 0x00F4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,
+	/* 94 */ 0x00F6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,
+	/* 95 */ 0x00F2 /*               LATIN SMALL LETTER O WITH GRAVE */ ,
+	/* 96 */ 0x00FB /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,
+	/* 97 */ 0x00F9 /*               LATIN SMALL LETTER U WITH GRAVE */ ,
+	/* 98 */ 0x00FF /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,
+	/* 99 */ 0x00D6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,
+	/* 9A */ 0x00DC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,
+	/* 9B */ 0x00A2 /*                                     CENT SIGN */ ,
+	/* 9C */ 0x00A3 /*                                    POUND SIGN */ ,
+	/* 9D */ 0x00A5 /*                                      YEN SIGN */ ,
+	/* 9E */ 0x20A7 /*                                   PESETA SIGN */ ,
+	/* 9F */ 0x0192 /*                LATIN SMALL LETTER F WITH HOOK */ ,
+	/* A0 */ 0x00E1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,
+	/* A1 */ 0x00ED /*               LATIN SMALL LETTER I WITH ACUTE */ ,
+	/* A2 */ 0x00F3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,
+	/* A3 */ 0x00FA /*               LATIN SMALL LETTER U WITH ACUTE */ ,
+	/* A4 */ 0x00F1 /*               LATIN SMALL LETTER N WITH TILDE */ ,
+	/* A5 */ 0x00D1 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,
+	/* A6 */ 0x00AA /*                    FEMININE ORDINAL INDICATOR */ ,
+	/* A7 */ 0x00BA /*                   MASCULINE ORDINAL INDICATOR */ ,
+	/* A8 */ 0x00BF /*                        INVERTED QUESTION MARK */ ,
+	/* A9 */ 0x2310 /*                             REVERSED NOT SIGN */ ,
+	/* AA */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AB */ 0x00BD /*                      VULGAR FRACTION ONE HALF */ ,
+	/* AC */ 0x00BC /*                   VULGAR FRACTION ONE QUARTER */ ,
+	/* AD */ 0x00A1 /*                     INVERTED EXCLAMATION MARK */ ,
+	/* AE */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AF */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* B0 */ 0x2591 /*                                   LIGHT SHADE */ ,
+	/* B1 */ 0x2592 /*                                  MEDIUM SHADE */ ,
+	/* B2 */ 0x2593 /*                                    DARK SHADE */ ,
+	/* B3 */ 0x2502 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,
+	/* B4 */ 0x2524 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,
+	/* B5 */ 0x2561 /*  BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE */ ,
+	/* B6 */ 0x2562 /*  BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE */ ,
+	/* B7 */ 0x2556 /*      BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE */ ,
+	/* B8 */ 0x2555 /*      BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE */ ,
+	/* B9 */ 0x2563 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,
+	/* BA */ 0x2551 /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,
+	/* BB */ 0x2557 /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,
+	/* BC */ 0x255D /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,
+	/* BD */ 0x255C /*        BOX DRAWINGS UP DOUBLE AND LEFT SINGLE */ ,
+	/* BE */ 0x255B /*        BOX DRAWINGS UP SINGLE AND LEFT DOUBLE */ ,
+	/* BF */ 0x2510 /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,
+	/* C0 */ 0x2514 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,
+	/* C1 */ 0x2534 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,
+	/* C2 */ 0x252C /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,
+	/* C3 */ 0x251C /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,
+	/* C4 */ 0x2500 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,
+	/* C5 */ 0x253C /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,
+	/* C6 */ 0x255E /* BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE */ ,
+	/* C7 */ 0x255F /* BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE */ ,
+	/* C8 */ 0x255A /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,
+	/* C9 */ 0x2554 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,
+	/* CA */ 0x2569 /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,
+	/* CB */ 0x2566 /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,
+	/* CC */ 0x2560 /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,
+	/* CD */ 0x2550 /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,
+	/* CE */ 0x256C /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,
+	/* CF */ 0x2567 /*  BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D0 */ 0x2568 /*  BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D1 */ 0x2564 /* BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D2 */ 0x2565 /* BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D3 */ 0x2559 /*       BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE */ ,
+	/* D4 */ 0x2558 /*       BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE */ ,
+	/* D5 */ 0x2552 /*     BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE */ ,
+	/* D6 */ 0x2553 /*     BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE */ ,
+	/* D7 */ 0x256B /* BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D8 */ 0x256A /* BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D9 */ 0x2518 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,
+	/* DA */ 0x250C /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,
+	/* DB */ 0x2588 /*                                    FULL BLOCK */ ,
+	/* DC */ 0x2584 /*                              LOWER HALF BLOCK */ ,
+	/* DD */ 0x258C /*                               LEFT HALF BLOCK */ ,
+	/* DE */ 0x2590 /*                              RIGHT HALF BLOCK */ ,
+	/* DF */ 0x2580 /*                              UPPER HALF BLOCK */ ,
+	/* E0 */ 0x03B1 /*                      GREEK SMALL LETTER ALPHA */ ,
+	/* E1 */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* E2 */ 0x0393 /*                    GREEK CAPITAL LETTER GAMMA */ ,
+	/* E3 */ 0x03C0 /*                         GREEK SMALL LETTER PI */ ,
+	/* E4 */ 0x03A3 /*                    GREEK CAPITAL LETTER SIGMA */ ,
+	/* E5 */ 0x03C3 /*                      GREEK SMALL LETTER SIGMA */ ,
+	/* E6 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* E7 */ 0x03C4 /*                        GREEK SMALL LETTER TAU */ ,
+	/* E8 */ 0x03A6 /*                      GREEK CAPITAL LETTER PHI */ ,
+	/* E9 */ 0x0398 /*                    GREEK CAPITAL LETTER THETA */ ,
+	/* EA */ 0x03A9 /*                    GREEK CAPITAL LETTER OMEGA */ ,
+	/* EB */ 0x03B4 /*                      GREEK SMALL LETTER DELTA */ ,
+	/* EC */ 0x221E /*                                      INFINITY */ ,
+	/* ED */ 0x03C6 /*                        GREEK SMALL LETTER PHI */ ,
+	/* EE */ 0x03B5 /*                    GREEK SMALL LETTER EPSILON */ ,
+	/* EF */ 0x2229 /*                                  INTERSECTION */ ,
+	/* F0 */ 0x2261 /*                                  IDENTICAL TO */ ,
+	/* F1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* F2 */ 0x2265 /*                      GREATER-THAN OR EQUAL TO */ ,
+	/* F3 */ 0x2264 /*                         LESS-THAN OR EQUAL TO */ ,
+	/* F4 */ 0x2320 /*                             TOP HALF INTEGRAL */ ,
+	/* F5 */ 0x2321 /*                          BOTTOM HALF INTEGRAL */ ,
+	/* F6 */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* F7 */ 0x2248 /*                               ALMOST EQUAL TO */ ,
+	/* F8 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* F9 */ 0x2219 /*                               BULLET OPERATOR */ ,
+	/* FA */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* FB */ 0x221A /*                                   SQUARE ROOT */ ,
+	/* FC */ 0x207F /*              SUPERSCRIPT LATIN SMALL LETTER N */ ,
+	/* FD */ 0x00B2 /*                               SUPERSCRIPT TWO */ ,
+	/* FE */ 0x25A0 /*                                  BLACK SQUARE */ ,
+	/* FF */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xFF /*                                NO-BREAK SPACE */ ,	/* 416 */
+	/* U+00A1 */ 0xAD /*                     INVERTED EXCLAMATION MARK */ ,	/* 417 */
+	/* U+00A2 */ 0x9B /*                                     CENT SIGN */ ,	/* 418 */
+	/* U+00A3 */ 0x9C /*                                    POUND SIGN */ ,	/* 419 */
+										/* U+00A4 */ CANT_MAP_CHARACTER,
+										/* 420 */
+	/* U+00A5 */ 0x9D /*                                      YEN SIGN */ ,	/* 421 */
+										/* U+00A6 */ CANT_MAP_CHARACTER,
+										/* 422 */
+										/* U+00A7 */ CANT_MAP_CHARACTER,
+										/* 423 */
+										/* U+00A8 */ CANT_MAP_CHARACTER,
+										/* 424 */
+										/* U+00A9 */ CANT_MAP_CHARACTER,
+										/* 425 */
+	/* U+00AA */ 0xA6 /*                    FEMININE ORDINAL INDICATOR */ ,	/* 426 */
+	/* U+00AB */ 0xAE /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAA /*                                      NOT SIGN */ ,	/* 428 */
+										/* U+00AD */ CANT_MAP_CHARACTER,
+										/* 429 */
+										/* U+00AE */ CANT_MAP_CHARACTER,
+										/* 430 */
+										/* U+00AF */ CANT_MAP_CHARACTER,
+										/* 431 */
+	/* U+00B0 */ 0xF8 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xF1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+	/* U+00B2 */ 0xFD /*                               SUPERSCRIPT TWO */ ,	/* 434 */
+										/* U+00B3 */ CANT_MAP_CHARACTER,
+										/* 435 */
+										/* U+00B4 */ CANT_MAP_CHARACTER,
+										/* 436 */
+	/* U+00B5 */ 0xE6 /*                                    MICRO SIGN */ ,	/* 437 */
+										/* U+00B6 */ CANT_MAP_CHARACTER,
+										/* 438 */
+	/* U+00B7 */ 0xFA /*                                    MIDDLE DOT */ ,	/* 439 */
+										/* U+00B8 */ CANT_MAP_CHARACTER,
+										/* 440 */
+										/* U+00B9 */ CANT_MAP_CHARACTER,
+										/* 441 */
+	/* U+00BA */ 0xA7 /*                   MASCULINE ORDINAL INDICATOR */ ,	/* 442 */
+	/* U+00BB */ 0xAF /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+	/* U+00BC */ 0xAC /*                   VULGAR FRACTION ONE QUARTER */ ,	/* 444 */
+	/* U+00BD */ 0xAB /*                      VULGAR FRACTION ONE HALF */ ,	/* 445 */
+										/* U+00BE */ CANT_MAP_CHARACTER,
+										/* 446 */
+	/* U+00BF */ 0xA8 /*                        INVERTED QUESTION MARK */ ,	/* 447 */
+										/* U+00C0 */ CANT_MAP_CHARACTER,
+										/* 448 */
+										/* U+00C1 */ CANT_MAP_CHARACTER,
+										/* 449 */
+										/* U+00C2 */ CANT_MAP_CHARACTER,
+										/* 450 */
+										/* U+00C3 */ CANT_MAP_CHARACTER,
+										/* 451 */
+	/* U+00C4 */ 0x8E /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,	/* 452 */
+	/* U+00C5 */ 0x8F /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,	/* 453 */
+	/* U+00C6 */ 0x92 /*                     LATIN CAPITAL LIGATURE AE */ ,	/* 454 */
+	/* U+00C7 */ 0x80 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,	/* 455 */
+										/* U+00C8 */ CANT_MAP_CHARACTER,
+										/* 456 */
+	/* U+00C9 */ 0x90 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,	/* 457 */
+										/* U+00CA */ CANT_MAP_CHARACTER,
+										/* 458 */
+										/* U+00CB */ CANT_MAP_CHARACTER,
+										/* 459 */
+										/* U+00CC */ CANT_MAP_CHARACTER,
+										/* 460 */
+										/* U+00CD */ CANT_MAP_CHARACTER,
+										/* 461 */
+										/* U+00CE */ CANT_MAP_CHARACTER,
+										/* 462 */
+										/* U+00CF */ CANT_MAP_CHARACTER,
+										/* 463 */
+										/* U+00D0 */ CANT_MAP_CHARACTER,
+										/* 464 */
+	/* U+00D1 */ 0xA5 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,	/* 465 */
+										/* U+00D2 */ CANT_MAP_CHARACTER,
+										/* 466 */
+										/* U+00D3 */ CANT_MAP_CHARACTER,
+										/* 467 */
+										/* U+00D4 */ CANT_MAP_CHARACTER,
+										/* 468 */
+										/* U+00D5 */ CANT_MAP_CHARACTER,
+										/* 469 */
+	/* U+00D6 */ 0x99 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,	/* 470 */
+										/* U+00D7 */ CANT_MAP_CHARACTER,
+										/* 471 */
+										/* U+00D8 */ CANT_MAP_CHARACTER,
+										/* 472 */
+										/* U+00D9 */ CANT_MAP_CHARACTER,
+										/* 473 */
+										/* U+00DA */ CANT_MAP_CHARACTER,
+										/* 474 */
+										/* U+00DB */ CANT_MAP_CHARACTER,
+										/* 475 */
+	/* U+00DC */ 0x9A /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,	/* 476 */
+										/* U+00DD */ CANT_MAP_CHARACTER,
+										/* 477 */
+										/* U+00DE */ CANT_MAP_CHARACTER,
+										/* 478 */
+	/* U+00DF */ 0xE1 /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+	/* U+00E0 */ 0x85 /*               LATIN SMALL LETTER A WITH GRAVE */ ,	/* 480 */
+	/* U+00E1 */ 0xA0 /*               LATIN SMALL LETTER A WITH ACUTE */ ,	/* 481 */
+	/* U+00E2 */ 0x83 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,	/* 482 */
+										/* U+00E3 */ CANT_MAP_CHARACTER,
+										/* 483 */
+	/* U+00E4 */ 0x84 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,	/* 484 */
+	/* U+00E5 */ 0x86 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,	/* 485 */
+	/* U+00E6 */ 0x91 /*                       LATIN SMALL LIGATURE AE */ ,	/* 486 */
+	/* U+00E7 */ 0x87 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,	/* 487 */
+	/* U+00E8 */ 0x8A /*               LATIN SMALL LETTER E WITH GRAVE */ ,	/* 488 */
+	/* U+00E9 */ 0x82 /*               LATIN SMALL LETTER E WITH ACUTE */ ,	/* 489 */
+	/* U+00EA */ 0x88 /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,	/* 490 */
+	/* U+00EB */ 0x89 /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,	/* 491 */
+	/* U+00EC */ 0x8D /*               LATIN SMALL LETTER I WITH GRAVE */ ,	/* 492 */
+	/* U+00ED */ 0xA1 /*               LATIN SMALL LETTER I WITH ACUTE */ ,	/* 493 */
+	/* U+00EE */ 0x8C /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,	/* 494 */
+	/* U+00EF */ 0x8B /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,	/* 495 */
+										/* U+00F0 */ CANT_MAP_CHARACTER,
+										/* 496 */
+	/* U+00F1 */ 0xA4 /*               LATIN SMALL LETTER N WITH TILDE */ ,	/* 497 */
+	/* U+00F2 */ 0x95 /*               LATIN SMALL LETTER O WITH GRAVE */ ,	/* 498 */
+	/* U+00F3 */ 0xA2 /*               LATIN SMALL LETTER O WITH ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0x93 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,	/* 500 */
+										/* U+00F5 */ CANT_MAP_CHARACTER,
+										/* 501 */
+	/* U+00F6 */ 0x94 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,	/* 502 */
+	/* U+00F7 */ 0xF6 /*                                 DIVISION SIGN */ ,	/* 503 */
+										/* U+00F8 */ CANT_MAP_CHARACTER,
+										/* 504 */
+	/* U+00F9 */ 0x97 /*               LATIN SMALL LETTER U WITH GRAVE */ ,	/* 505 */
+	/* U+00FA */ 0xA3 /*               LATIN SMALL LETTER U WITH ACUTE */ ,	/* 506 */
+	/* U+00FB */ 0x96 /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,	/* 507 */
+	/* U+00FC */ 0x81 /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,	/* 508 */
+										/* U+00FD */ CANT_MAP_CHARACTER,
+										/* 509 */
+										/* U+00FE */ CANT_MAP_CHARACTER,
+										/* 510 */
+	/* U+00FF */ 0x98 /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,	/* 511 */
+										/* U+0100 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0101 */ CANT_MAP_CHARACTER,
+										/* 513 */
+										/* U+0102 */ CANT_MAP_CHARACTER,
+										/* 514 */
+										/* U+0103 */ CANT_MAP_CHARACTER,
+										/* 515 */
+										/* U+0104 */ CANT_MAP_CHARACTER,
+										/* 516 */
+										/* U+0105 */ CANT_MAP_CHARACTER,
+										/* 517 */
+										/* U+0106 */ CANT_MAP_CHARACTER,
+										/* 518 */
+										/* U+0107 */ CANT_MAP_CHARACTER,
+										/* 519 */
+										/* U+0108 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0109 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+010A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+010B */ CANT_MAP_CHARACTER,
+										/* 523 */
+										/* U+010C */ CANT_MAP_CHARACTER,
+										/* 524 */
+										/* U+010D */ CANT_MAP_CHARACTER,
+										/* 525 */
+										/* U+010E */ CANT_MAP_CHARACTER,
+										/* 526 */
+										/* U+010F */ CANT_MAP_CHARACTER,
+										/* 527 */
+										/* U+0110 */ CANT_MAP_CHARACTER,
+										/* 528 */
+										/* U+0111 */ CANT_MAP_CHARACTER,
+										/* 529 */
+										/* U+0112 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0113 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0114 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0115 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0116 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0117 */ CANT_MAP_CHARACTER,
+										/* 535 */
+										/* U+0118 */ CANT_MAP_CHARACTER,
+										/* 536 */
+										/* U+0119 */ CANT_MAP_CHARACTER,
+										/* 537 */
+										/* U+011A */ CANT_MAP_CHARACTER,
+										/* 538 */
+										/* U+011B */ CANT_MAP_CHARACTER,
+										/* 539 */
+										/* U+011C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+011D */ CANT_MAP_CHARACTER,
+										/* 541 */
+										/* U+011E */ CANT_MAP_CHARACTER,
+										/* 542 */
+										/* U+011F */ CANT_MAP_CHARACTER,
+										/* 543 */
+										/* U+0120 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0121 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0122 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0123 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0124 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0125 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0126 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0127 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0128 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0129 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+012A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+012B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+012C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+012D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+012E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+012F */ CANT_MAP_CHARACTER,
+										/* 559 */
+										/* U+0130 */ CANT_MAP_CHARACTER,
+										/* 560 */
+										/* U+0131 */ CANT_MAP_CHARACTER,
+										/* 561 */
+										/* U+0132 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0133 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0134 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0135 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0136 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0137 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0138 */ CANT_MAP_CHARACTER,
+										/* 568 */
+										/* U+0139 */ CANT_MAP_CHARACTER,
+										/* 569 */
+										/* U+013A */ CANT_MAP_CHARACTER,
+										/* 570 */
+										/* U+013B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+013C */ CANT_MAP_CHARACTER,
+										/* 572 */
+										/* U+013D */ CANT_MAP_CHARACTER,
+										/* 573 */
+										/* U+013E */ CANT_MAP_CHARACTER,
+										/* 574 */
+										/* U+013F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0140 */ CANT_MAP_CHARACTER,
+										/* 576 */
+										/* U+0141 */ CANT_MAP_CHARACTER,
+										/* 577 */
+										/* U+0142 */ CANT_MAP_CHARACTER,
+										/* 578 */
+										/* U+0143 */ CANT_MAP_CHARACTER,
+										/* 579 */
+										/* U+0144 */ CANT_MAP_CHARACTER,
+										/* 580 */
+										/* U+0145 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0146 */ CANT_MAP_CHARACTER,
+										/* 582 */
+										/* U+0147 */ CANT_MAP_CHARACTER,
+										/* 583 */
+										/* U+0148 */ CANT_MAP_CHARACTER,
+										/* 584 */
+										/* U+0149 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+014A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+014B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+014C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+014D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+014E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+014F */ CANT_MAP_CHARACTER,
+										/* 591 */
+										/* U+0150 */ CANT_MAP_CHARACTER,
+										/* 592 */
+										/* U+0151 */ CANT_MAP_CHARACTER,
+										/* 593 */
+										/* U+0152 */ CANT_MAP_CHARACTER,
+										/* 594 */
+										/* U+0153 */ CANT_MAP_CHARACTER,
+										/* 595 */
+										/* U+0154 */ CANT_MAP_CHARACTER,
+										/* 596 */
+										/* U+0155 */ CANT_MAP_CHARACTER,
+										/* 597 */
+										/* U+0156 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0157 */ CANT_MAP_CHARACTER,
+										/* 599 */
+										/* U+0158 */ CANT_MAP_CHARACTER,
+										/* 600 */
+										/* U+0159 */ CANT_MAP_CHARACTER,
+										/* 601 */
+										/* U+015A */ CANT_MAP_CHARACTER,
+										/* 602 */
+										/* U+015B */ CANT_MAP_CHARACTER,
+										/* 603 */
+										/* U+015C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+015D */ CANT_MAP_CHARACTER,
+										/* 605 */
+										/* U+015E */ CANT_MAP_CHARACTER,
+										/* 606 */
+										/* U+015F */ CANT_MAP_CHARACTER,
+										/* 607 */
+										/* U+0160 */ CANT_MAP_CHARACTER,
+										/* 608 */
+										/* U+0161 */ CANT_MAP_CHARACTER,
+										/* 609 */
+										/* U+0162 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0163 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0164 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0165 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0166 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0167 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0168 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0169 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+016A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+016B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+016C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+016D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+016E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+016F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0170 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0171 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0172 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0173 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0174 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0175 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0176 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0177 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0178 */ CANT_MAP_CHARACTER,
+										/* 632 */
+										/* U+0179 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+017A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+017B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+017C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+017D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+017E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+017F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0180 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0181 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0182 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0183 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0184 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0185 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0186 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0187 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0188 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0189 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+018A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+018B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+018C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+018D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+018E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+018F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0190 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0191 */ CANT_MAP_CHARACTER,
+										/* 657 */
+	/* U+0192 */ 0x9F /*                LATIN SMALL LETTER F WITH HOOK */ ,	/* 658 */
+										/* U+0193 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0194 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0195 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0196 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0197 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0198 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0199 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+019A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+019B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+019C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+019D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+019E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+019F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+01A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+01A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+01A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+01A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+01A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+01A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+01A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+01A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+01A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+01A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+01AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+01AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+01AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+01AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+01AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+01AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+01B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+01B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+01B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+01B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+01B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+01B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+01B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+01B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+01B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+01B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+01BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+01BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+01BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+01BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+01BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+01BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+01C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+01C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+01C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+01C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+01C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+01C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+01C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+01C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+01C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+01C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+01CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+01CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+01CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+01CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+01CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+01CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+01D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+01D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+01D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+01D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+01D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+01D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+01D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+01D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+01D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+01D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+01DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+01DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+01DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+01DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+01DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+01DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+01E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+01E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+01E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+01E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+01E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+01E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+01E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+01E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+01E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+01E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+01EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+01EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+01EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+01ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+01EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+01EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+01F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+01F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+01F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+01F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+01F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+01F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+01F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+01F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+01F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+01F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+01FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+01FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+01FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+01FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+01FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+01FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+0300 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+0301 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+0302 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+0303 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+0304 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+0305 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+0306 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+0307 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+0308 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+0309 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+030A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+030B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+030C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+030D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+030E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+030F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+0310 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+0311 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+0312 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+0313 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+0314 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+0315 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+0316 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+0317 */ CANT_MAP_CHARACTER,
+										/* 791 */
+										/* U+0318 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+0319 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+031A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+031B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+031C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+031D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+031E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+031F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+0320 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+0321 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+0322 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+0323 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+0324 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+0325 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+0326 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+0327 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+0328 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+0329 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+032A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+032B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+032C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+032D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+032E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+032F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+0330 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+0331 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+0332 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+0333 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+0334 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+0335 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+0336 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+0337 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+0338 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+0339 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+033A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+033B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+033C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+033D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+033E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+033F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+0340 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+0341 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+0342 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+0343 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+0344 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+0345 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+0346 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+0347 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+0348 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+0349 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+034A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+034B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+034C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+034D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+034E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+034F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+0350 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+0351 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+0352 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+0353 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+0354 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+0355 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+0356 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+0357 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+0358 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+0359 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+035A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+035B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+035C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+035D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+035E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+035F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+0360 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+0361 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+0362 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+0363 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+0364 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+0365 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+0366 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+0367 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+0368 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+0369 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+036A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+036B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+036C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+036D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+036E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+036F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+0370 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+0371 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+0372 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+0373 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+0374 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+0375 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+0376 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+0377 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+0378 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+0379 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+037A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+037B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+037C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+037D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+037E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+037F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+0380 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+0381 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+0382 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+0383 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+0384 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+0385 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+0386 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+0387 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+0388 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+0389 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+038A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+038B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+038C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+038D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+038E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+038F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+0390 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+0391 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+0392 */ CANT_MAP_CHARACTER,
+										/* 914 */
+	/* U+0393 */ 0xE2 /*                    GREEK CAPITAL LETTER GAMMA */ ,	/* 915 */
+										/* U+0394 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+0395 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+0396 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+0397 */ CANT_MAP_CHARACTER,
+										/* 919 */
+	/* U+0398 */ 0xE9 /*                    GREEK CAPITAL LETTER THETA */ ,	/* 920 */
+										/* U+0399 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+039A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+039B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+039C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+039D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+039E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+039F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+03A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+03A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+03A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+	/* U+03A3 */ 0xE4 /*                    GREEK CAPITAL LETTER SIGMA */ ,	/* 931 */
+										/* U+03A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+03A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+	/* U+03A6 */ 0xE8 /*                      GREEK CAPITAL LETTER PHI */ ,	/* 934 */
+										/* U+03A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+03A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+	/* U+03A9 */ 0xEA /*                    GREEK CAPITAL LETTER OMEGA */ ,	/* 937 */
+										/* U+03AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+03AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+03AC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+03AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+03AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+03AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+03B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+	/* U+03B1 */ 0xE0 /*                      GREEK SMALL LETTER ALPHA */ ,	/* 945 */
+										/* U+03B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+03B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+	/* U+03B4 */ 0xEB /*                      GREEK SMALL LETTER DELTA */ ,	/* 948 */
+	/* U+03B5 */ 0xEE /*                    GREEK SMALL LETTER EPSILON */ ,	/* 949 */
+										/* U+03B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+03B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+03B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+03B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+03BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+03BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+03BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+03BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+03BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+03BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+	/* U+03C0 */ 0xE3 /*                         GREEK SMALL LETTER PI */ ,	/* 960 */
+										/* U+03C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+03C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+	/* U+03C3 */ 0xE5 /*                      GREEK SMALL LETTER SIGMA */ ,	/* 963 */
+	/* U+03C4 */ 0xE7 /*                        GREEK SMALL LETTER TAU */ ,	/* 964 */
+										/* U+03C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+	/* U+03C6 */ 0xED /*                        GREEK SMALL LETTER PHI */ ,	/* 966 */
+										/* U+03C7 */ CANT_MAP_CHARACTER,
+										/* 967 */
+										/* U+03C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+03C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+03CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+03CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+03CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+03CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+03CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+03CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+03D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+03D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+03D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+03D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+03D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+03D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+03D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+03D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+03D8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+03D9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+03DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+03DB */ CANT_MAP_CHARACTER,
+										/* 987 */
+										/* U+03DC */ CANT_MAP_CHARACTER,
+										/* 988 */
+										/* U+03DD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+03DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+03DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+03E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+03E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+03E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+03E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+03E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+03E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+03E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+03E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+03E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+03E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+03EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+03EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+03EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+03ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+03EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+03EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+03F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+03F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+03F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+03F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+03F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+03F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+03F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+03F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+03F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+03F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+03FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+03FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+03FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+03FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+03FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+03FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 1024 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 1026 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 1036 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 1040 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+										/* U+2013 */ CANT_MAP_CHARACTER,
+										/* 1043 */
+										/* U+2014 */ CANT_MAP_CHARACTER,
+										/* 1044 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 1046 */
+										/* U+2017 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+										/* U+2018 */ CANT_MAP_CHARACTER,
+										/* 1048 */
+										/* U+2019 */ CANT_MAP_CHARACTER,
+										/* 1049 */
+										/* U+201A */ CANT_MAP_CHARACTER,
+										/* 1050 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+										/* U+201C */ CANT_MAP_CHARACTER,
+										/* 1052 */
+										/* U+201D */ CANT_MAP_CHARACTER,
+										/* 1053 */
+										/* U+201E */ CANT_MAP_CHARACTER,
+										/* 1054 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+										/* U+2020 */ CANT_MAP_CHARACTER,
+										/* 1056 */
+										/* U+2021 */ CANT_MAP_CHARACTER,
+										/* 1057 */
+										/* U+2022 */ CANT_MAP_CHARACTER,
+										/* 1058 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 1060 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+										/* U+2026 */ CANT_MAP_CHARACTER,
+										/* 1062 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 1068 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+										/* U+2030 */ CANT_MAP_CHARACTER,
+										/* 1072 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 1076 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+										/* U+2039 */ CANT_MAP_CHARACTER,
+										/* 1081 */
+										/* U+203A */ CANT_MAP_CHARACTER,
+										/* 1082 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 1084 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 1104 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 1105 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 1108 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 1111 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 1114 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 1117 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 1120 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 1123 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 1126 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 1129 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 1132 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+	/* U+207F */ 0xFC /*              SUPERSCRIPT LATIN SMALL LETTER N */ ,	/* 1151 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 1152 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 1156 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 1160 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 1169 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 1170 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 1171 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 1184 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+	/* U+20A7 */ 0x9E /*                                   PESETA SIGN */ ,	/* 1191 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+										/* U+20AC */ CANT_MAP_CHARACTER,
+										/* 1196 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+										/* U+2200 */ CANT_MAP_CHARACTER,
+										/* 1280 */
+										/* U+2201 */ CANT_MAP_CHARACTER,
+										/* 1281 */
+										/* U+2202 */ CANT_MAP_CHARACTER,
+										/* 1282 */
+										/* U+2203 */ CANT_MAP_CHARACTER,
+										/* 1283 */
+										/* U+2204 */ CANT_MAP_CHARACTER,
+										/* 1284 */
+										/* U+2205 */ CANT_MAP_CHARACTER,
+										/* 1285 */
+										/* U+2206 */ CANT_MAP_CHARACTER,
+										/* 1286 */
+										/* U+2207 */ CANT_MAP_CHARACTER,
+										/* 1287 */
+										/* U+2208 */ CANT_MAP_CHARACTER,
+										/* 1288 */
+										/* U+2209 */ CANT_MAP_CHARACTER,
+										/* 1289 */
+										/* U+220A */ CANT_MAP_CHARACTER,
+										/* 1290 */
+										/* U+220B */ CANT_MAP_CHARACTER,
+										/* 1291 */
+										/* U+220C */ CANT_MAP_CHARACTER,
+										/* 1292 */
+										/* U+220D */ CANT_MAP_CHARACTER,
+										/* 1293 */
+										/* U+220E */ CANT_MAP_CHARACTER,
+										/* 1294 */
+										/* U+220F */ CANT_MAP_CHARACTER,
+										/* 1295 */
+										/* U+2210 */ CANT_MAP_CHARACTER,
+										/* 1296 */
+										/* U+2211 */ CANT_MAP_CHARACTER,
+										/* 1297 */
+										/* U+2212 */ CANT_MAP_CHARACTER,
+										/* 1298 */
+										/* U+2213 */ CANT_MAP_CHARACTER,
+										/* 1299 */
+										/* U+2214 */ CANT_MAP_CHARACTER,
+										/* 1300 */
+										/* U+2215 */ CANT_MAP_CHARACTER,
+										/* 1301 */
+										/* U+2216 */ CANT_MAP_CHARACTER,
+										/* 1302 */
+										/* U+2217 */ CANT_MAP_CHARACTER,
+										/* 1303 */
+										/* U+2218 */ CANT_MAP_CHARACTER,
+										/* 1304 */
+	/* U+2219 */ 0xF9 /*                               BULLET OPERATOR */ ,	/* 1305 */
+	/* U+221A */ 0xFB /*                                   SQUARE ROOT */ ,	/* 1306 */
+										/* U+221B */ CANT_MAP_CHARACTER,
+										/* 1307 */
+										/* U+221C */ CANT_MAP_CHARACTER,
+										/* 1308 */
+										/* U+221D */ CANT_MAP_CHARACTER,
+										/* 1309 */
+	/* U+221E */ 0xEC /*                                      INFINITY */ ,	/* 1310 */
+										/* U+221F */ CANT_MAP_CHARACTER,
+										/* 1311 */
+										/* U+2220 */ CANT_MAP_CHARACTER,
+										/* 1312 */
+										/* U+2221 */ CANT_MAP_CHARACTER,
+										/* 1313 */
+										/* U+2222 */ CANT_MAP_CHARACTER,
+										/* 1314 */
+										/* U+2223 */ CANT_MAP_CHARACTER,
+										/* 1315 */
+										/* U+2224 */ CANT_MAP_CHARACTER,
+										/* 1316 */
+										/* U+2225 */ CANT_MAP_CHARACTER,
+										/* 1317 */
+										/* U+2226 */ CANT_MAP_CHARACTER,
+										/* 1318 */
+										/* U+2227 */ CANT_MAP_CHARACTER,
+										/* 1319 */
+										/* U+2228 */ CANT_MAP_CHARACTER,
+										/* 1320 */
+	/* U+2229 */ 0xEF /*                                  INTERSECTION */ ,	/* 1321 */
+										/* U+222A */ CANT_MAP_CHARACTER,
+										/* 1322 */
+										/* U+222B */ CANT_MAP_CHARACTER,
+										/* 1323 */
+										/* U+222C */ CANT_MAP_CHARACTER,
+										/* 1324 */
+										/* U+222D */ CANT_MAP_CHARACTER,
+										/* 1325 */
+										/* U+222E */ CANT_MAP_CHARACTER,
+										/* 1326 */
+										/* U+222F */ CANT_MAP_CHARACTER,
+										/* 1327 */
+										/* U+2230 */ CANT_MAP_CHARACTER,
+										/* 1328 */
+										/* U+2231 */ CANT_MAP_CHARACTER,
+										/* 1329 */
+										/* U+2232 */ CANT_MAP_CHARACTER,
+										/* 1330 */
+										/* U+2233 */ CANT_MAP_CHARACTER,
+										/* 1331 */
+										/* U+2234 */ CANT_MAP_CHARACTER,
+										/* 1332 */
+										/* U+2235 */ CANT_MAP_CHARACTER,
+										/* 1333 */
+										/* U+2236 */ CANT_MAP_CHARACTER,
+										/* 1334 */
+										/* U+2237 */ CANT_MAP_CHARACTER,
+										/* 1335 */
+										/* U+2238 */ CANT_MAP_CHARACTER,
+										/* 1336 */
+										/* U+2239 */ CANT_MAP_CHARACTER,
+										/* 1337 */
+										/* U+223A */ CANT_MAP_CHARACTER,
+										/* 1338 */
+										/* U+223B */ CANT_MAP_CHARACTER,
+										/* 1339 */
+										/* U+223C */ CANT_MAP_CHARACTER,
+										/* 1340 */
+										/* U+223D */ CANT_MAP_CHARACTER,
+										/* 1341 */
+										/* U+223E */ CANT_MAP_CHARACTER,
+										/* 1342 */
+										/* U+223F */ CANT_MAP_CHARACTER,
+										/* 1343 */
+										/* U+2240 */ CANT_MAP_CHARACTER,
+										/* 1344 */
+										/* U+2241 */ CANT_MAP_CHARACTER,
+										/* 1345 */
+										/* U+2242 */ CANT_MAP_CHARACTER,
+										/* 1346 */
+										/* U+2243 */ CANT_MAP_CHARACTER,
+										/* 1347 */
+										/* U+2244 */ CANT_MAP_CHARACTER,
+										/* 1348 */
+										/* U+2245 */ CANT_MAP_CHARACTER,
+										/* 1349 */
+										/* U+2246 */ CANT_MAP_CHARACTER,
+										/* 1350 */
+										/* U+2247 */ CANT_MAP_CHARACTER,
+										/* 1351 */
+	/* U+2248 */ 0xF7 /*                               ALMOST EQUAL TO */ ,	/* 1352 */
+										/* U+2249 */ CANT_MAP_CHARACTER,
+										/* 1353 */
+										/* U+224A */ CANT_MAP_CHARACTER,
+										/* 1354 */
+										/* U+224B */ CANT_MAP_CHARACTER,
+										/* 1355 */
+										/* U+224C */ CANT_MAP_CHARACTER,
+										/* 1356 */
+										/* U+224D */ CANT_MAP_CHARACTER,
+										/* 1357 */
+										/* U+224E */ CANT_MAP_CHARACTER,
+										/* 1358 */
+										/* U+224F */ CANT_MAP_CHARACTER,
+										/* 1359 */
+										/* U+2250 */ CANT_MAP_CHARACTER,
+										/* 1360 */
+										/* U+2251 */ CANT_MAP_CHARACTER,
+										/* 1361 */
+										/* U+2252 */ CANT_MAP_CHARACTER,
+										/* 1362 */
+										/* U+2253 */ CANT_MAP_CHARACTER,
+										/* 1363 */
+										/* U+2254 */ CANT_MAP_CHARACTER,
+										/* 1364 */
+										/* U+2255 */ CANT_MAP_CHARACTER,
+										/* 1365 */
+										/* U+2256 */ CANT_MAP_CHARACTER,
+										/* 1366 */
+										/* U+2257 */ CANT_MAP_CHARACTER,
+										/* 1367 */
+										/* U+2258 */ CANT_MAP_CHARACTER,
+										/* 1368 */
+										/* U+2259 */ CANT_MAP_CHARACTER,
+										/* 1369 */
+										/* U+225A */ CANT_MAP_CHARACTER,
+										/* 1370 */
+										/* U+225B */ CANT_MAP_CHARACTER,
+										/* 1371 */
+										/* U+225C */ CANT_MAP_CHARACTER,
+										/* 1372 */
+										/* U+225D */ CANT_MAP_CHARACTER,
+										/* 1373 */
+										/* U+225E */ CANT_MAP_CHARACTER,
+										/* 1374 */
+										/* U+225F */ CANT_MAP_CHARACTER,
+										/* 1375 */
+										/* U+2260 */ CANT_MAP_CHARACTER,
+										/* 1376 */
+	/* U+2261 */ 0xF0 /*                                  IDENTICAL TO */ ,	/* 1377 */
+										/* U+2262 */ CANT_MAP_CHARACTER,
+										/* 1378 */
+										/* U+2263 */ CANT_MAP_CHARACTER,
+										/* 1379 */
+	/* U+2264 */ 0xF3 /*                         LESS-THAN OR EQUAL TO */ ,	/* 1380 */
+	/* U+2265 */ 0xF2 /*                      GREATER-THAN OR EQUAL TO */ ,	/* 1381 */
+										/* U+2266 */ CANT_MAP_CHARACTER,
+										/* 1382 */
+										/* U+2267 */ CANT_MAP_CHARACTER,
+										/* 1383 */
+										/* U+2268 */ CANT_MAP_CHARACTER,
+										/* 1384 */
+										/* U+2269 */ CANT_MAP_CHARACTER,
+										/* 1385 */
+										/* U+226A */ CANT_MAP_CHARACTER,
+										/* 1386 */
+										/* U+226B */ CANT_MAP_CHARACTER,
+										/* 1387 */
+										/* U+226C */ CANT_MAP_CHARACTER,
+										/* 1388 */
+										/* U+226D */ CANT_MAP_CHARACTER,
+										/* 1389 */
+										/* U+226E */ CANT_MAP_CHARACTER,
+										/* 1390 */
+										/* U+226F */ CANT_MAP_CHARACTER,
+										/* 1391 */
+										/* U+2270 */ CANT_MAP_CHARACTER,
+										/* 1392 */
+										/* U+2271 */ CANT_MAP_CHARACTER,
+										/* 1393 */
+										/* U+2272 */ CANT_MAP_CHARACTER,
+										/* 1394 */
+										/* U+2273 */ CANT_MAP_CHARACTER,
+										/* 1395 */
+										/* U+2274 */ CANT_MAP_CHARACTER,
+										/* 1396 */
+										/* U+2275 */ CANT_MAP_CHARACTER,
+										/* 1397 */
+										/* U+2276 */ CANT_MAP_CHARACTER,
+										/* 1398 */
+										/* U+2277 */ CANT_MAP_CHARACTER,
+										/* 1399 */
+										/* U+2278 */ CANT_MAP_CHARACTER,
+										/* 1400 */
+										/* U+2279 */ CANT_MAP_CHARACTER,
+										/* 1401 */
+										/* U+227A */ CANT_MAP_CHARACTER,
+										/* 1402 */
+										/* U+227B */ CANT_MAP_CHARACTER,
+										/* 1403 */
+										/* U+227C */ CANT_MAP_CHARACTER,
+										/* 1404 */
+										/* U+227D */ CANT_MAP_CHARACTER,
+										/* 1405 */
+										/* U+227E */ CANT_MAP_CHARACTER,
+										/* 1406 */
+										/* U+227F */ CANT_MAP_CHARACTER,
+										/* 1407 */
+										/* U+2280 */ CANT_MAP_CHARACTER,
+										/* 1408 */
+										/* U+2281 */ CANT_MAP_CHARACTER,
+										/* 1409 */
+										/* U+2282 */ CANT_MAP_CHARACTER,
+										/* 1410 */
+										/* U+2283 */ CANT_MAP_CHARACTER,
+										/* 1411 */
+										/* U+2284 */ CANT_MAP_CHARACTER,
+										/* 1412 */
+										/* U+2285 */ CANT_MAP_CHARACTER,
+										/* 1413 */
+										/* U+2286 */ CANT_MAP_CHARACTER,
+										/* 1414 */
+										/* U+2287 */ CANT_MAP_CHARACTER,
+										/* 1415 */
+										/* U+2288 */ CANT_MAP_CHARACTER,
+										/* 1416 */
+										/* U+2289 */ CANT_MAP_CHARACTER,
+										/* 1417 */
+										/* U+228A */ CANT_MAP_CHARACTER,
+										/* 1418 */
+										/* U+228B */ CANT_MAP_CHARACTER,
+										/* 1419 */
+										/* U+228C */ CANT_MAP_CHARACTER,
+										/* 1420 */
+										/* U+228D */ CANT_MAP_CHARACTER,
+										/* 1421 */
+										/* U+228E */ CANT_MAP_CHARACTER,
+										/* 1422 */
+										/* U+228F */ CANT_MAP_CHARACTER,
+										/* 1423 */
+										/* U+2290 */ CANT_MAP_CHARACTER,
+										/* 1424 */
+										/* U+2291 */ CANT_MAP_CHARACTER,
+										/* 1425 */
+										/* U+2292 */ CANT_MAP_CHARACTER,
+										/* 1426 */
+										/* U+2293 */ CANT_MAP_CHARACTER,
+										/* 1427 */
+										/* U+2294 */ CANT_MAP_CHARACTER,
+										/* 1428 */
+										/* U+2295 */ CANT_MAP_CHARACTER,
+										/* 1429 */
+										/* U+2296 */ CANT_MAP_CHARACTER,
+										/* 1430 */
+										/* U+2297 */ CANT_MAP_CHARACTER,
+										/* 1431 */
+										/* U+2298 */ CANT_MAP_CHARACTER,
+										/* 1432 */
+										/* U+2299 */ CANT_MAP_CHARACTER,
+										/* 1433 */
+										/* U+229A */ CANT_MAP_CHARACTER,
+										/* 1434 */
+										/* U+229B */ CANT_MAP_CHARACTER,
+										/* 1435 */
+										/* U+229C */ CANT_MAP_CHARACTER,
+										/* 1436 */
+										/* U+229D */ CANT_MAP_CHARACTER,
+										/* 1437 */
+										/* U+229E */ CANT_MAP_CHARACTER,
+										/* 1438 */
+										/* U+229F */ CANT_MAP_CHARACTER,
+										/* 1439 */
+										/* U+22A0 */ CANT_MAP_CHARACTER,
+										/* 1440 */
+										/* U+22A1 */ CANT_MAP_CHARACTER,
+										/* 1441 */
+										/* U+22A2 */ CANT_MAP_CHARACTER,
+										/* 1442 */
+										/* U+22A3 */ CANT_MAP_CHARACTER,
+										/* 1443 */
+										/* U+22A4 */ CANT_MAP_CHARACTER,
+										/* 1444 */
+										/* U+22A5 */ CANT_MAP_CHARACTER,
+										/* 1445 */
+										/* U+22A6 */ CANT_MAP_CHARACTER,
+										/* 1446 */
+										/* U+22A7 */ CANT_MAP_CHARACTER,
+										/* 1447 */
+										/* U+22A8 */ CANT_MAP_CHARACTER,
+										/* 1448 */
+										/* U+22A9 */ CANT_MAP_CHARACTER,
+										/* 1449 */
+										/* U+22AA */ CANT_MAP_CHARACTER,
+										/* 1450 */
+										/* U+22AB */ CANT_MAP_CHARACTER,
+										/* 1451 */
+										/* U+22AC */ CANT_MAP_CHARACTER,
+										/* 1452 */
+										/* U+22AD */ CANT_MAP_CHARACTER,
+										/* 1453 */
+										/* U+22AE */ CANT_MAP_CHARACTER,
+										/* 1454 */
+										/* U+22AF */ CANT_MAP_CHARACTER,
+										/* 1455 */
+										/* U+22B0 */ CANT_MAP_CHARACTER,
+										/* 1456 */
+										/* U+22B1 */ CANT_MAP_CHARACTER,
+										/* 1457 */
+										/* U+22B2 */ CANT_MAP_CHARACTER,
+										/* 1458 */
+										/* U+22B3 */ CANT_MAP_CHARACTER,
+										/* 1459 */
+										/* U+22B4 */ CANT_MAP_CHARACTER,
+										/* 1460 */
+										/* U+22B5 */ CANT_MAP_CHARACTER,
+										/* 1461 */
+										/* U+22B6 */ CANT_MAP_CHARACTER,
+										/* 1462 */
+										/* U+22B7 */ CANT_MAP_CHARACTER,
+										/* 1463 */
+										/* U+22B8 */ CANT_MAP_CHARACTER,
+										/* 1464 */
+										/* U+22B9 */ CANT_MAP_CHARACTER,
+										/* 1465 */
+										/* U+22BA */ CANT_MAP_CHARACTER,
+										/* 1466 */
+										/* U+22BB */ CANT_MAP_CHARACTER,
+										/* 1467 */
+										/* U+22BC */ CANT_MAP_CHARACTER,
+										/* 1468 */
+										/* U+22BD */ CANT_MAP_CHARACTER,
+										/* 1469 */
+										/* U+22BE */ CANT_MAP_CHARACTER,
+										/* 1470 */
+										/* U+22BF */ CANT_MAP_CHARACTER,
+										/* 1471 */
+										/* U+22C0 */ CANT_MAP_CHARACTER,
+										/* 1472 */
+										/* U+22C1 */ CANT_MAP_CHARACTER,
+										/* 1473 */
+										/* U+22C2 */ CANT_MAP_CHARACTER,
+										/* 1474 */
+										/* U+22C3 */ CANT_MAP_CHARACTER,
+										/* 1475 */
+										/* U+22C4 */ CANT_MAP_CHARACTER,
+										/* 1476 */
+										/* U+22C5 */ CANT_MAP_CHARACTER,
+										/* 1477 */
+										/* U+22C6 */ CANT_MAP_CHARACTER,
+										/* 1478 */
+										/* U+22C7 */ CANT_MAP_CHARACTER,
+										/* 1479 */
+										/* U+22C8 */ CANT_MAP_CHARACTER,
+										/* 1480 */
+										/* U+22C9 */ CANT_MAP_CHARACTER,
+										/* 1481 */
+										/* U+22CA */ CANT_MAP_CHARACTER,
+										/* 1482 */
+										/* U+22CB */ CANT_MAP_CHARACTER,
+										/* 1483 */
+										/* U+22CC */ CANT_MAP_CHARACTER,
+										/* 1484 */
+										/* U+22CD */ CANT_MAP_CHARACTER,
+										/* 1485 */
+										/* U+22CE */ CANT_MAP_CHARACTER,
+										/* 1486 */
+										/* U+22CF */ CANT_MAP_CHARACTER,
+										/* 1487 */
+										/* U+22D0 */ CANT_MAP_CHARACTER,
+										/* 1488 */
+										/* U+22D1 */ CANT_MAP_CHARACTER,
+										/* 1489 */
+										/* U+22D2 */ CANT_MAP_CHARACTER,
+										/* 1490 */
+										/* U+22D3 */ CANT_MAP_CHARACTER,
+										/* 1491 */
+										/* U+22D4 */ CANT_MAP_CHARACTER,
+										/* 1492 */
+										/* U+22D5 */ CANT_MAP_CHARACTER,
+										/* 1493 */
+										/* U+22D6 */ CANT_MAP_CHARACTER,
+										/* 1494 */
+										/* U+22D7 */ CANT_MAP_CHARACTER,
+										/* 1495 */
+										/* U+22D8 */ CANT_MAP_CHARACTER,
+										/* 1496 */
+										/* U+22D9 */ CANT_MAP_CHARACTER,
+										/* 1497 */
+										/* U+22DA */ CANT_MAP_CHARACTER,
+										/* 1498 */
+										/* U+22DB */ CANT_MAP_CHARACTER,
+										/* 1499 */
+										/* U+22DC */ CANT_MAP_CHARACTER,
+										/* 1500 */
+										/* U+22DD */ CANT_MAP_CHARACTER,
+										/* 1501 */
+										/* U+22DE */ CANT_MAP_CHARACTER,
+										/* 1502 */
+										/* U+22DF */ CANT_MAP_CHARACTER,
+										/* 1503 */
+										/* U+22E0 */ CANT_MAP_CHARACTER,
+										/* 1504 */
+										/* U+22E1 */ CANT_MAP_CHARACTER,
+										/* 1505 */
+										/* U+22E2 */ CANT_MAP_CHARACTER,
+										/* 1506 */
+										/* U+22E3 */ CANT_MAP_CHARACTER,
+										/* 1507 */
+										/* U+22E4 */ CANT_MAP_CHARACTER,
+										/* 1508 */
+										/* U+22E5 */ CANT_MAP_CHARACTER,
+										/* 1509 */
+										/* U+22E6 */ CANT_MAP_CHARACTER,
+										/* 1510 */
+										/* U+22E7 */ CANT_MAP_CHARACTER,
+										/* 1511 */
+										/* U+22E8 */ CANT_MAP_CHARACTER,
+										/* 1512 */
+										/* U+22E9 */ CANT_MAP_CHARACTER,
+										/* 1513 */
+										/* U+22EA */ CANT_MAP_CHARACTER,
+										/* 1514 */
+										/* U+22EB */ CANT_MAP_CHARACTER,
+										/* 1515 */
+										/* U+22EC */ CANT_MAP_CHARACTER,
+										/* 1516 */
+										/* U+22ED */ CANT_MAP_CHARACTER,
+										/* 1517 */
+										/* U+22EE */ CANT_MAP_CHARACTER,
+										/* 1518 */
+										/* U+22EF */ CANT_MAP_CHARACTER,
+										/* 1519 */
+										/* U+22F0 */ CANT_MAP_CHARACTER,
+										/* 1520 */
+										/* U+22F1 */ CANT_MAP_CHARACTER,
+										/* 1521 */
+										/* U+22F2 */ CANT_MAP_CHARACTER,
+										/* 1522 */
+										/* U+22F3 */ CANT_MAP_CHARACTER,
+										/* 1523 */
+										/* U+22F4 */ CANT_MAP_CHARACTER,
+										/* 1524 */
+										/* U+22F5 */ CANT_MAP_CHARACTER,
+										/* 1525 */
+										/* U+22F6 */ CANT_MAP_CHARACTER,
+										/* 1526 */
+										/* U+22F7 */ CANT_MAP_CHARACTER,
+										/* 1527 */
+										/* U+22F8 */ CANT_MAP_CHARACTER,
+										/* 1528 */
+										/* U+22F9 */ CANT_MAP_CHARACTER,
+										/* 1529 */
+										/* U+22FA */ CANT_MAP_CHARACTER,
+										/* 1530 */
+										/* U+22FB */ CANT_MAP_CHARACTER,
+										/* 1531 */
+										/* U+22FC */ CANT_MAP_CHARACTER,
+										/* 1532 */
+										/* U+22FD */ CANT_MAP_CHARACTER,
+										/* 1533 */
+										/* U+22FE */ CANT_MAP_CHARACTER,
+										/* 1534 */
+										/* U+22FF */ CANT_MAP_CHARACTER,
+										/* 1535 */
+										/* U+2300 */ CANT_MAP_CHARACTER,
+										/* 1536 */
+										/* U+2301 */ CANT_MAP_CHARACTER,
+										/* 1537 */
+										/* U+2302 */ CANT_MAP_CHARACTER,
+										/* 1538 */
+										/* U+2303 */ CANT_MAP_CHARACTER,
+										/* 1539 */
+										/* U+2304 */ CANT_MAP_CHARACTER,
+										/* 1540 */
+										/* U+2305 */ CANT_MAP_CHARACTER,
+										/* 1541 */
+										/* U+2306 */ CANT_MAP_CHARACTER,
+										/* 1542 */
+										/* U+2307 */ CANT_MAP_CHARACTER,
+										/* 1543 */
+										/* U+2308 */ CANT_MAP_CHARACTER,
+										/* 1544 */
+										/* U+2309 */ CANT_MAP_CHARACTER,
+										/* 1545 */
+										/* U+230A */ CANT_MAP_CHARACTER,
+										/* 1546 */
+										/* U+230B */ CANT_MAP_CHARACTER,
+										/* 1547 */
+										/* U+230C */ CANT_MAP_CHARACTER,
+										/* 1548 */
+										/* U+230D */ CANT_MAP_CHARACTER,
+										/* 1549 */
+										/* U+230E */ CANT_MAP_CHARACTER,
+										/* 1550 */
+										/* U+230F */ CANT_MAP_CHARACTER,
+										/* 1551 */
+	/* U+2310 */ 0xA9 /*                             REVERSED NOT SIGN */ ,	/* 1552 */
+										/* U+2311 */ CANT_MAP_CHARACTER,
+										/* 1553 */
+										/* U+2312 */ CANT_MAP_CHARACTER,
+										/* 1554 */
+										/* U+2313 */ CANT_MAP_CHARACTER,
+										/* 1555 */
+										/* U+2314 */ CANT_MAP_CHARACTER,
+										/* 1556 */
+										/* U+2315 */ CANT_MAP_CHARACTER,
+										/* 1557 */
+										/* U+2316 */ CANT_MAP_CHARACTER,
+										/* 1558 */
+										/* U+2317 */ CANT_MAP_CHARACTER,
+										/* 1559 */
+										/* U+2318 */ CANT_MAP_CHARACTER,
+										/* 1560 */
+										/* U+2319 */ CANT_MAP_CHARACTER,
+										/* 1561 */
+										/* U+231A */ CANT_MAP_CHARACTER,
+										/* 1562 */
+										/* U+231B */ CANT_MAP_CHARACTER,
+										/* 1563 */
+										/* U+231C */ CANT_MAP_CHARACTER,
+										/* 1564 */
+										/* U+231D */ CANT_MAP_CHARACTER,
+										/* 1565 */
+										/* U+231E */ CANT_MAP_CHARACTER,
+										/* 1566 */
+										/* U+231F */ CANT_MAP_CHARACTER,
+										/* 1567 */
+	/* U+2320 */ 0xF4 /*                             TOP HALF INTEGRAL */ ,	/* 1568 */
+	/* U+2321 */ 0xF5 /*                          BOTTOM HALF INTEGRAL */ ,	/* 1569 */
+										/* U+2322 */ CANT_MAP_CHARACTER,
+										/* 1570 */
+										/* U+2323 */ CANT_MAP_CHARACTER,
+										/* 1571 */
+										/* U+2324 */ CANT_MAP_CHARACTER,
+										/* 1572 */
+										/* U+2325 */ CANT_MAP_CHARACTER,
+										/* 1573 */
+										/* U+2326 */ CANT_MAP_CHARACTER,
+										/* 1574 */
+										/* U+2327 */ CANT_MAP_CHARACTER,
+										/* 1575 */
+										/* U+2328 */ CANT_MAP_CHARACTER,
+										/* 1576 */
+										/* U+2329 */ CANT_MAP_CHARACTER,
+										/* 1577 */
+										/* U+232A */ CANT_MAP_CHARACTER,
+										/* 1578 */
+										/* U+232B */ CANT_MAP_CHARACTER,
+										/* 1579 */
+										/* U+232C */ CANT_MAP_CHARACTER,
+										/* 1580 */
+										/* U+232D */ CANT_MAP_CHARACTER,
+										/* 1581 */
+										/* U+232E */ CANT_MAP_CHARACTER,
+										/* 1582 */
+										/* U+232F */ CANT_MAP_CHARACTER,
+										/* 1583 */
+										/* U+2330 */ CANT_MAP_CHARACTER,
+										/* 1584 */
+										/* U+2331 */ CANT_MAP_CHARACTER,
+										/* 1585 */
+										/* U+2332 */ CANT_MAP_CHARACTER,
+										/* 1586 */
+										/* U+2333 */ CANT_MAP_CHARACTER,
+										/* 1587 */
+										/* U+2334 */ CANT_MAP_CHARACTER,
+										/* 1588 */
+										/* U+2335 */ CANT_MAP_CHARACTER,
+										/* 1589 */
+										/* U+2336 */ CANT_MAP_CHARACTER,
+										/* 1590 */
+										/* U+2337 */ CANT_MAP_CHARACTER,
+										/* 1591 */
+										/* U+2338 */ CANT_MAP_CHARACTER,
+										/* 1592 */
+										/* U+2339 */ CANT_MAP_CHARACTER,
+										/* 1593 */
+										/* U+233A */ CANT_MAP_CHARACTER,
+										/* 1594 */
+										/* U+233B */ CANT_MAP_CHARACTER,
+										/* 1595 */
+										/* U+233C */ CANT_MAP_CHARACTER,
+										/* 1596 */
+										/* U+233D */ CANT_MAP_CHARACTER,
+										/* 1597 */
+										/* U+233E */ CANT_MAP_CHARACTER,
+										/* 1598 */
+										/* U+233F */ CANT_MAP_CHARACTER,
+										/* 1599 */
+										/* U+2340 */ CANT_MAP_CHARACTER,
+										/* 1600 */
+										/* U+2341 */ CANT_MAP_CHARACTER,
+										/* 1601 */
+										/* U+2342 */ CANT_MAP_CHARACTER,
+										/* 1602 */
+										/* U+2343 */ CANT_MAP_CHARACTER,
+										/* 1603 */
+										/* U+2344 */ CANT_MAP_CHARACTER,
+										/* 1604 */
+										/* U+2345 */ CANT_MAP_CHARACTER,
+										/* 1605 */
+										/* U+2346 */ CANT_MAP_CHARACTER,
+										/* 1606 */
+										/* U+2347 */ CANT_MAP_CHARACTER,
+										/* 1607 */
+										/* U+2348 */ CANT_MAP_CHARACTER,
+										/* 1608 */
+										/* U+2349 */ CANT_MAP_CHARACTER,
+										/* 1609 */
+										/* U+234A */ CANT_MAP_CHARACTER,
+										/* 1610 */
+										/* U+234B */ CANT_MAP_CHARACTER,
+										/* 1611 */
+										/* U+234C */ CANT_MAP_CHARACTER,
+										/* 1612 */
+										/* U+234D */ CANT_MAP_CHARACTER,
+										/* 1613 */
+										/* U+234E */ CANT_MAP_CHARACTER,
+										/* 1614 */
+										/* U+234F */ CANT_MAP_CHARACTER,
+										/* 1615 */
+										/* U+2350 */ CANT_MAP_CHARACTER,
+										/* 1616 */
+										/* U+2351 */ CANT_MAP_CHARACTER,
+										/* 1617 */
+										/* U+2352 */ CANT_MAP_CHARACTER,
+										/* 1618 */
+										/* U+2353 */ CANT_MAP_CHARACTER,
+										/* 1619 */
+										/* U+2354 */ CANT_MAP_CHARACTER,
+										/* 1620 */
+										/* U+2355 */ CANT_MAP_CHARACTER,
+										/* 1621 */
+										/* U+2356 */ CANT_MAP_CHARACTER,
+										/* 1622 */
+										/* U+2357 */ CANT_MAP_CHARACTER,
+										/* 1623 */
+										/* U+2358 */ CANT_MAP_CHARACTER,
+										/* 1624 */
+										/* U+2359 */ CANT_MAP_CHARACTER,
+										/* 1625 */
+										/* U+235A */ CANT_MAP_CHARACTER,
+										/* 1626 */
+										/* U+235B */ CANT_MAP_CHARACTER,
+										/* 1627 */
+										/* U+235C */ CANT_MAP_CHARACTER,
+										/* 1628 */
+										/* U+235D */ CANT_MAP_CHARACTER,
+										/* 1629 */
+										/* U+235E */ CANT_MAP_CHARACTER,
+										/* 1630 */
+										/* U+235F */ CANT_MAP_CHARACTER,
+										/* 1631 */
+										/* U+2360 */ CANT_MAP_CHARACTER,
+										/* 1632 */
+										/* U+2361 */ CANT_MAP_CHARACTER,
+										/* 1633 */
+										/* U+2362 */ CANT_MAP_CHARACTER,
+										/* 1634 */
+										/* U+2363 */ CANT_MAP_CHARACTER,
+										/* 1635 */
+										/* U+2364 */ CANT_MAP_CHARACTER,
+										/* 1636 */
+										/* U+2365 */ CANT_MAP_CHARACTER,
+										/* 1637 */
+										/* U+2366 */ CANT_MAP_CHARACTER,
+										/* 1638 */
+										/* U+2367 */ CANT_MAP_CHARACTER,
+										/* 1639 */
+										/* U+2368 */ CANT_MAP_CHARACTER,
+										/* 1640 */
+										/* U+2369 */ CANT_MAP_CHARACTER,
+										/* 1641 */
+										/* U+236A */ CANT_MAP_CHARACTER,
+										/* 1642 */
+										/* U+236B */ CANT_MAP_CHARACTER,
+										/* 1643 */
+										/* U+236C */ CANT_MAP_CHARACTER,
+										/* 1644 */
+										/* U+236D */ CANT_MAP_CHARACTER,
+										/* 1645 */
+										/* U+236E */ CANT_MAP_CHARACTER,
+										/* 1646 */
+										/* U+236F */ CANT_MAP_CHARACTER,
+										/* 1647 */
+										/* U+2370 */ CANT_MAP_CHARACTER,
+										/* 1648 */
+										/* U+2371 */ CANT_MAP_CHARACTER,
+										/* 1649 */
+										/* U+2372 */ CANT_MAP_CHARACTER,
+										/* 1650 */
+										/* U+2373 */ CANT_MAP_CHARACTER,
+										/* 1651 */
+										/* U+2374 */ CANT_MAP_CHARACTER,
+										/* 1652 */
+										/* U+2375 */ CANT_MAP_CHARACTER,
+										/* 1653 */
+										/* U+2376 */ CANT_MAP_CHARACTER,
+										/* 1654 */
+										/* U+2377 */ CANT_MAP_CHARACTER,
+										/* 1655 */
+										/* U+2378 */ CANT_MAP_CHARACTER,
+										/* 1656 */
+										/* U+2379 */ CANT_MAP_CHARACTER,
+										/* 1657 */
+										/* U+237A */ CANT_MAP_CHARACTER,
+										/* 1658 */
+										/* U+237B */ CANT_MAP_CHARACTER,
+										/* 1659 */
+										/* U+237C */ CANT_MAP_CHARACTER,
+										/* 1660 */
+										/* U+237D */ CANT_MAP_CHARACTER,
+										/* 1661 */
+										/* U+237E */ CANT_MAP_CHARACTER,
+										/* 1662 */
+										/* U+237F */ CANT_MAP_CHARACTER,
+										/* 1663 */
+										/* U+2380 */ CANT_MAP_CHARACTER,
+										/* 1664 */
+										/* U+2381 */ CANT_MAP_CHARACTER,
+										/* 1665 */
+										/* U+2382 */ CANT_MAP_CHARACTER,
+										/* 1666 */
+										/* U+2383 */ CANT_MAP_CHARACTER,
+										/* 1667 */
+										/* U+2384 */ CANT_MAP_CHARACTER,
+										/* 1668 */
+										/* U+2385 */ CANT_MAP_CHARACTER,
+										/* 1669 */
+										/* U+2386 */ CANT_MAP_CHARACTER,
+										/* 1670 */
+										/* U+2387 */ CANT_MAP_CHARACTER,
+										/* 1671 */
+										/* U+2388 */ CANT_MAP_CHARACTER,
+										/* 1672 */
+										/* U+2389 */ CANT_MAP_CHARACTER,
+										/* 1673 */
+										/* U+238A */ CANT_MAP_CHARACTER,
+										/* 1674 */
+										/* U+238B */ CANT_MAP_CHARACTER,
+										/* 1675 */
+										/* U+238C */ CANT_MAP_CHARACTER,
+										/* 1676 */
+										/* U+238D */ CANT_MAP_CHARACTER,
+										/* 1677 */
+										/* U+238E */ CANT_MAP_CHARACTER,
+										/* 1678 */
+										/* U+238F */ CANT_MAP_CHARACTER,
+										/* 1679 */
+										/* U+2390 */ CANT_MAP_CHARACTER,
+										/* 1680 */
+										/* U+2391 */ CANT_MAP_CHARACTER,
+										/* 1681 */
+										/* U+2392 */ CANT_MAP_CHARACTER,
+										/* 1682 */
+										/* U+2393 */ CANT_MAP_CHARACTER,
+										/* 1683 */
+										/* U+2394 */ CANT_MAP_CHARACTER,
+										/* 1684 */
+										/* U+2395 */ CANT_MAP_CHARACTER,
+										/* 1685 */
+										/* U+2396 */ CANT_MAP_CHARACTER,
+										/* 1686 */
+										/* U+2397 */ CANT_MAP_CHARACTER,
+										/* 1687 */
+										/* U+2398 */ CANT_MAP_CHARACTER,
+										/* 1688 */
+										/* U+2399 */ CANT_MAP_CHARACTER,
+										/* 1689 */
+										/* U+239A */ CANT_MAP_CHARACTER,
+										/* 1690 */
+										/* U+239B */ CANT_MAP_CHARACTER,
+										/* 1691 */
+										/* U+239C */ CANT_MAP_CHARACTER,
+										/* 1692 */
+										/* U+239D */ CANT_MAP_CHARACTER,
+										/* 1693 */
+										/* U+239E */ CANT_MAP_CHARACTER,
+										/* 1694 */
+										/* U+239F */ CANT_MAP_CHARACTER,
+										/* 1695 */
+										/* U+23A0 */ CANT_MAP_CHARACTER,
+										/* 1696 */
+										/* U+23A1 */ CANT_MAP_CHARACTER,
+										/* 1697 */
+										/* U+23A2 */ CANT_MAP_CHARACTER,
+										/* 1698 */
+										/* U+23A3 */ CANT_MAP_CHARACTER,
+										/* 1699 */
+										/* U+23A4 */ CANT_MAP_CHARACTER,
+										/* 1700 */
+										/* U+23A5 */ CANT_MAP_CHARACTER,
+										/* 1701 */
+										/* U+23A6 */ CANT_MAP_CHARACTER,
+										/* 1702 */
+										/* U+23A7 */ CANT_MAP_CHARACTER,
+										/* 1703 */
+										/* U+23A8 */ CANT_MAP_CHARACTER,
+										/* 1704 */
+										/* U+23A9 */ CANT_MAP_CHARACTER,
+										/* 1705 */
+										/* U+23AA */ CANT_MAP_CHARACTER,
+										/* 1706 */
+										/* U+23AB */ CANT_MAP_CHARACTER,
+										/* 1707 */
+										/* U+23AC */ CANT_MAP_CHARACTER,
+										/* 1708 */
+										/* U+23AD */ CANT_MAP_CHARACTER,
+										/* 1709 */
+										/* U+23AE */ CANT_MAP_CHARACTER,
+										/* 1710 */
+										/* U+23AF */ CANT_MAP_CHARACTER,
+										/* 1711 */
+										/* U+23B0 */ CANT_MAP_CHARACTER,
+										/* 1712 */
+										/* U+23B1 */ CANT_MAP_CHARACTER,
+										/* 1713 */
+										/* U+23B2 */ CANT_MAP_CHARACTER,
+										/* 1714 */
+										/* U+23B3 */ CANT_MAP_CHARACTER,
+										/* 1715 */
+										/* U+23B4 */ CANT_MAP_CHARACTER,
+										/* 1716 */
+										/* U+23B5 */ CANT_MAP_CHARACTER,
+										/* 1717 */
+										/* U+23B6 */ CANT_MAP_CHARACTER,
+										/* 1718 */
+										/* U+23B7 */ CANT_MAP_CHARACTER,
+										/* 1719 */
+										/* U+23B8 */ CANT_MAP_CHARACTER,
+										/* 1720 */
+										/* U+23B9 */ CANT_MAP_CHARACTER,
+										/* 1721 */
+										/* U+23BA */ CANT_MAP_CHARACTER,
+										/* 1722 */
+										/* U+23BB */ CANT_MAP_CHARACTER,
+										/* 1723 */
+										/* U+23BC */ CANT_MAP_CHARACTER,
+										/* 1724 */
+										/* U+23BD */ CANT_MAP_CHARACTER,
+										/* 1725 */
+										/* U+23BE */ CANT_MAP_CHARACTER,
+										/* 1726 */
+										/* U+23BF */ CANT_MAP_CHARACTER,
+										/* 1727 */
+										/* U+23C0 */ CANT_MAP_CHARACTER,
+										/* 1728 */
+										/* U+23C1 */ CANT_MAP_CHARACTER,
+										/* 1729 */
+										/* U+23C2 */ CANT_MAP_CHARACTER,
+										/* 1730 */
+										/* U+23C3 */ CANT_MAP_CHARACTER,
+										/* 1731 */
+										/* U+23C4 */ CANT_MAP_CHARACTER,
+										/* 1732 */
+										/* U+23C5 */ CANT_MAP_CHARACTER,
+										/* 1733 */
+										/* U+23C6 */ CANT_MAP_CHARACTER,
+										/* 1734 */
+										/* U+23C7 */ CANT_MAP_CHARACTER,
+										/* 1735 */
+										/* U+23C8 */ CANT_MAP_CHARACTER,
+										/* 1736 */
+										/* U+23C9 */ CANT_MAP_CHARACTER,
+										/* 1737 */
+										/* U+23CA */ CANT_MAP_CHARACTER,
+										/* 1738 */
+										/* U+23CB */ CANT_MAP_CHARACTER,
+										/* 1739 */
+										/* U+23CC */ CANT_MAP_CHARACTER,
+										/* 1740 */
+										/* U+23CD */ CANT_MAP_CHARACTER,
+										/* 1741 */
+										/* U+23CE */ CANT_MAP_CHARACTER,
+										/* 1742 */
+										/* U+23CF */ CANT_MAP_CHARACTER,
+										/* 1743 */
+										/* U+23D0 */ CANT_MAP_CHARACTER,
+										/* 1744 */
+										/* U+23D1 */ CANT_MAP_CHARACTER,
+										/* 1745 */
+										/* U+23D2 */ CANT_MAP_CHARACTER,
+										/* 1746 */
+										/* U+23D3 */ CANT_MAP_CHARACTER,
+										/* 1747 */
+										/* U+23D4 */ CANT_MAP_CHARACTER,
+										/* 1748 */
+										/* U+23D5 */ CANT_MAP_CHARACTER,
+										/* 1749 */
+										/* U+23D6 */ CANT_MAP_CHARACTER,
+										/* 1750 */
+										/* U+23D7 */ CANT_MAP_CHARACTER,
+										/* 1751 */
+										/* U+23D8 */ CANT_MAP_CHARACTER,
+										/* 1752 */
+										/* U+23D9 */ CANT_MAP_CHARACTER,
+										/* 1753 */
+										/* U+23DA */ CANT_MAP_CHARACTER,
+										/* 1754 */
+										/* U+23DB */ CANT_MAP_CHARACTER,
+										/* 1755 */
+										/* U+23DC */ CANT_MAP_CHARACTER,
+										/* 1756 */
+										/* U+23DD */ CANT_MAP_CHARACTER,
+										/* 1757 */
+										/* U+23DE */ CANT_MAP_CHARACTER,
+										/* 1758 */
+										/* U+23DF */ CANT_MAP_CHARACTER,
+										/* 1759 */
+										/* U+23E0 */ CANT_MAP_CHARACTER,
+										/* 1760 */
+										/* U+23E1 */ CANT_MAP_CHARACTER,
+										/* 1761 */
+										/* U+23E2 */ CANT_MAP_CHARACTER,
+										/* 1762 */
+										/* U+23E3 */ CANT_MAP_CHARACTER,
+										/* 1763 */
+										/* U+23E4 */ CANT_MAP_CHARACTER,
+										/* 1764 */
+										/* U+23E5 */ CANT_MAP_CHARACTER,
+										/* 1765 */
+										/* U+23E6 */ CANT_MAP_CHARACTER,
+										/* 1766 */
+										/* U+23E7 */ CANT_MAP_CHARACTER,
+										/* 1767 */
+										/* U+23E8 */ CANT_MAP_CHARACTER,
+										/* 1768 */
+										/* U+23E9 */ CANT_MAP_CHARACTER,
+										/* 1769 */
+										/* U+23EA */ CANT_MAP_CHARACTER,
+										/* 1770 */
+										/* U+23EB */ CANT_MAP_CHARACTER,
+										/* 1771 */
+										/* U+23EC */ CANT_MAP_CHARACTER,
+										/* 1772 */
+										/* U+23ED */ CANT_MAP_CHARACTER,
+										/* 1773 */
+										/* U+23EE */ CANT_MAP_CHARACTER,
+										/* 1774 */
+										/* U+23EF */ CANT_MAP_CHARACTER,
+										/* 1775 */
+										/* U+23F0 */ CANT_MAP_CHARACTER,
+										/* 1776 */
+										/* U+23F1 */ CANT_MAP_CHARACTER,
+										/* 1777 */
+										/* U+23F2 */ CANT_MAP_CHARACTER,
+										/* 1778 */
+										/* U+23F3 */ CANT_MAP_CHARACTER,
+										/* 1779 */
+										/* U+23F4 */ CANT_MAP_CHARACTER,
+										/* 1780 */
+										/* U+23F5 */ CANT_MAP_CHARACTER,
+										/* 1781 */
+										/* U+23F6 */ CANT_MAP_CHARACTER,
+										/* 1782 */
+										/* U+23F7 */ CANT_MAP_CHARACTER,
+										/* 1783 */
+										/* U+23F8 */ CANT_MAP_CHARACTER,
+										/* 1784 */
+										/* U+23F9 */ CANT_MAP_CHARACTER,
+										/* 1785 */
+										/* U+23FA */ CANT_MAP_CHARACTER,
+										/* 1786 */
+										/* U+23FB */ CANT_MAP_CHARACTER,
+										/* 1787 */
+										/* U+23FC */ CANT_MAP_CHARACTER,
+										/* 1788 */
+										/* U+23FD */ CANT_MAP_CHARACTER,
+										/* 1789 */
+										/* U+23FE */ CANT_MAP_CHARACTER,
+										/* 1790 */
+										/* U+23FF */ CANT_MAP_CHARACTER,
+										/* 1791 */
+	/* U+2500 */ 0xC4 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,	/* 1792 */
+										/* U+2501 */ CANT_MAP_CHARACTER,
+										/* 1793 */
+	/* U+2502 */ 0xB3 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,	/* 1794 */
+										/* U+2503 */ CANT_MAP_CHARACTER,
+										/* 1795 */
+										/* U+2504 */ CANT_MAP_CHARACTER,
+										/* 1796 */
+										/* U+2505 */ CANT_MAP_CHARACTER,
+										/* 1797 */
+										/* U+2506 */ CANT_MAP_CHARACTER,
+										/* 1798 */
+										/* U+2507 */ CANT_MAP_CHARACTER,
+										/* 1799 */
+										/* U+2508 */ CANT_MAP_CHARACTER,
+										/* 1800 */
+										/* U+2509 */ CANT_MAP_CHARACTER,
+										/* 1801 */
+										/* U+250A */ CANT_MAP_CHARACTER,
+										/* 1802 */
+										/* U+250B */ CANT_MAP_CHARACTER,
+										/* 1803 */
+	/* U+250C */ 0xDA /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,	/* 1804 */
+										/* U+250D */ CANT_MAP_CHARACTER,
+										/* 1805 */
+										/* U+250E */ CANT_MAP_CHARACTER,
+										/* 1806 */
+										/* U+250F */ CANT_MAP_CHARACTER,
+										/* 1807 */
+	/* U+2510 */ 0xBF /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,	/* 1808 */
+										/* U+2511 */ CANT_MAP_CHARACTER,
+										/* 1809 */
+										/* U+2512 */ CANT_MAP_CHARACTER,
+										/* 1810 */
+										/* U+2513 */ CANT_MAP_CHARACTER,
+										/* 1811 */
+	/* U+2514 */ 0xC0 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,	/* 1812 */
+										/* U+2515 */ CANT_MAP_CHARACTER,
+										/* 1813 */
+										/* U+2516 */ CANT_MAP_CHARACTER,
+										/* 1814 */
+										/* U+2517 */ CANT_MAP_CHARACTER,
+										/* 1815 */
+	/* U+2518 */ 0xD9 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,	/* 1816 */
+										/* U+2519 */ CANT_MAP_CHARACTER,
+										/* 1817 */
+										/* U+251A */ CANT_MAP_CHARACTER,
+										/* 1818 */
+										/* U+251B */ CANT_MAP_CHARACTER,
+										/* 1819 */
+	/* U+251C */ 0xC3 /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,	/* 1820 */
+										/* U+251D */ CANT_MAP_CHARACTER,
+										/* 1821 */
+										/* U+251E */ CANT_MAP_CHARACTER,
+										/* 1822 */
+										/* U+251F */ CANT_MAP_CHARACTER,
+										/* 1823 */
+										/* U+2520 */ CANT_MAP_CHARACTER,
+										/* 1824 */
+										/* U+2521 */ CANT_MAP_CHARACTER,
+										/* 1825 */
+										/* U+2522 */ CANT_MAP_CHARACTER,
+										/* 1826 */
+										/* U+2523 */ CANT_MAP_CHARACTER,
+										/* 1827 */
+	/* U+2524 */ 0xB4 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,	/* 1828 */
+										/* U+2525 */ CANT_MAP_CHARACTER,
+										/* 1829 */
+										/* U+2526 */ CANT_MAP_CHARACTER,
+										/* 1830 */
+										/* U+2527 */ CANT_MAP_CHARACTER,
+										/* 1831 */
+										/* U+2528 */ CANT_MAP_CHARACTER,
+										/* 1832 */
+										/* U+2529 */ CANT_MAP_CHARACTER,
+										/* 1833 */
+										/* U+252A */ CANT_MAP_CHARACTER,
+										/* 1834 */
+										/* U+252B */ CANT_MAP_CHARACTER,
+										/* 1835 */
+	/* U+252C */ 0xC2 /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,	/* 1836 */
+										/* U+252D */ CANT_MAP_CHARACTER,
+										/* 1837 */
+										/* U+252E */ CANT_MAP_CHARACTER,
+										/* 1838 */
+										/* U+252F */ CANT_MAP_CHARACTER,
+										/* 1839 */
+										/* U+2530 */ CANT_MAP_CHARACTER,
+										/* 1840 */
+										/* U+2531 */ CANT_MAP_CHARACTER,
+										/* 1841 */
+										/* U+2532 */ CANT_MAP_CHARACTER,
+										/* 1842 */
+										/* U+2533 */ CANT_MAP_CHARACTER,
+										/* 1843 */
+	/* U+2534 */ 0xC1 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,	/* 1844 */
+										/* U+2535 */ CANT_MAP_CHARACTER,
+										/* 1845 */
+										/* U+2536 */ CANT_MAP_CHARACTER,
+										/* 1846 */
+										/* U+2537 */ CANT_MAP_CHARACTER,
+										/* 1847 */
+										/* U+2538 */ CANT_MAP_CHARACTER,
+										/* 1848 */
+										/* U+2539 */ CANT_MAP_CHARACTER,
+										/* 1849 */
+										/* U+253A */ CANT_MAP_CHARACTER,
+										/* 1850 */
+										/* U+253B */ CANT_MAP_CHARACTER,
+										/* 1851 */
+	/* U+253C */ 0xC5 /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,	/* 1852 */
+										/* U+253D */ CANT_MAP_CHARACTER,
+										/* 1853 */
+										/* U+253E */ CANT_MAP_CHARACTER,
+										/* 1854 */
+										/* U+253F */ CANT_MAP_CHARACTER,
+										/* 1855 */
+										/* U+2540 */ CANT_MAP_CHARACTER,
+										/* 1856 */
+										/* U+2541 */ CANT_MAP_CHARACTER,
+										/* 1857 */
+										/* U+2542 */ CANT_MAP_CHARACTER,
+										/* 1858 */
+										/* U+2543 */ CANT_MAP_CHARACTER,
+										/* 1859 */
+										/* U+2544 */ CANT_MAP_CHARACTER,
+										/* 1860 */
+										/* U+2545 */ CANT_MAP_CHARACTER,
+										/* 1861 */
+										/* U+2546 */ CANT_MAP_CHARACTER,
+										/* 1862 */
+										/* U+2547 */ CANT_MAP_CHARACTER,
+										/* 1863 */
+										/* U+2548 */ CANT_MAP_CHARACTER,
+										/* 1864 */
+										/* U+2549 */ CANT_MAP_CHARACTER,
+										/* 1865 */
+										/* U+254A */ CANT_MAP_CHARACTER,
+										/* 1866 */
+										/* U+254B */ CANT_MAP_CHARACTER,
+										/* 1867 */
+										/* U+254C */ CANT_MAP_CHARACTER,
+										/* 1868 */
+										/* U+254D */ CANT_MAP_CHARACTER,
+										/* 1869 */
+										/* U+254E */ CANT_MAP_CHARACTER,
+										/* 1870 */
+										/* U+254F */ CANT_MAP_CHARACTER,
+										/* 1871 */
+	/* U+2550 */ 0xCD /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,	/* 1872 */
+	/* U+2551 */ 0xBA /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,	/* 1873 */
+	/* U+2552 */ 0xD5 /*     BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE */ ,	/* 1874 */
+	/* U+2553 */ 0xD6 /*     BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE */ ,	/* 1875 */
+	/* U+2554 */ 0xC9 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,	/* 1876 */
+	/* U+2555 */ 0xB8 /*      BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE */ ,	/* 1877 */
+	/* U+2556 */ 0xB7 /*      BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE */ ,	/* 1878 */
+	/* U+2557 */ 0xBB /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,	/* 1879 */
+	/* U+2558 */ 0xD4 /*       BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE */ ,	/* 1880 */
+	/* U+2559 */ 0xD3 /*       BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE */ ,	/* 1881 */
+	/* U+255A */ 0xC8 /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,	/* 1882 */
+	/* U+255B */ 0xBE /*        BOX DRAWINGS UP SINGLE AND LEFT DOUBLE */ ,	/* 1883 */
+	/* U+255C */ 0xBD /*        BOX DRAWINGS UP DOUBLE AND LEFT SINGLE */ ,	/* 1884 */
+	/* U+255D */ 0xBC /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,	/* 1885 */
+	/* U+255E */ 0xC6 /* BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE */ ,	/* 1886 */
+	/* U+255F */ 0xC7 /* BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE */ ,	/* 1887 */
+	/* U+2560 */ 0xCC /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,	/* 1888 */
+	/* U+2561 */ 0xB5 /*  BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE */ ,	/* 1889 */
+	/* U+2562 */ 0xB6 /*  BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE */ ,	/* 1890 */
+	/* U+2563 */ 0xB9 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,	/* 1891 */
+	/* U+2564 */ 0xD1 /* BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1892 */
+	/* U+2565 */ 0xD2 /* BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1893 */
+	/* U+2566 */ 0xCB /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,	/* 1894 */
+	/* U+2567 */ 0xCF /*  BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1895 */
+	/* U+2568 */ 0xD0 /*  BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1896 */
+	/* U+2569 */ 0xCA /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,	/* 1897 */
+	/* U+256A */ 0xD8 /* BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1898 */
+	/* U+256B */ 0xD7 /* BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1899 */
+	/* U+256C */ 0xCE /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,	/* 1900 */
+										/* U+256D */ CANT_MAP_CHARACTER,
+										/* 1901 */
+										/* U+256E */ CANT_MAP_CHARACTER,
+										/* 1902 */
+										/* U+256F */ CANT_MAP_CHARACTER,
+										/* 1903 */
+										/* U+2570 */ CANT_MAP_CHARACTER,
+										/* 1904 */
+										/* U+2571 */ CANT_MAP_CHARACTER,
+										/* 1905 */
+										/* U+2572 */ CANT_MAP_CHARACTER,
+										/* 1906 */
+										/* U+2573 */ CANT_MAP_CHARACTER,
+										/* 1907 */
+										/* U+2574 */ CANT_MAP_CHARACTER,
+										/* 1908 */
+										/* U+2575 */ CANT_MAP_CHARACTER,
+										/* 1909 */
+										/* U+2576 */ CANT_MAP_CHARACTER,
+										/* 1910 */
+										/* U+2577 */ CANT_MAP_CHARACTER,
+										/* 1911 */
+										/* U+2578 */ CANT_MAP_CHARACTER,
+										/* 1912 */
+										/* U+2579 */ CANT_MAP_CHARACTER,
+										/* 1913 */
+										/* U+257A */ CANT_MAP_CHARACTER,
+										/* 1914 */
+										/* U+257B */ CANT_MAP_CHARACTER,
+										/* 1915 */
+										/* U+257C */ CANT_MAP_CHARACTER,
+										/* 1916 */
+										/* U+257D */ CANT_MAP_CHARACTER,
+										/* 1917 */
+										/* U+257E */ CANT_MAP_CHARACTER,
+										/* 1918 */
+										/* U+257F */ CANT_MAP_CHARACTER,
+										/* 1919 */
+	/* U+2580 */ 0xDF /*                              UPPER HALF BLOCK */ ,	/* 1920 */
+										/* U+2581 */ CANT_MAP_CHARACTER,
+										/* 1921 */
+										/* U+2582 */ CANT_MAP_CHARACTER,
+										/* 1922 */
+										/* U+2583 */ CANT_MAP_CHARACTER,
+										/* 1923 */
+	/* U+2584 */ 0xDC /*                              LOWER HALF BLOCK */ ,	/* 1924 */
+										/* U+2585 */ CANT_MAP_CHARACTER,
+										/* 1925 */
+										/* U+2586 */ CANT_MAP_CHARACTER,
+										/* 1926 */
+										/* U+2587 */ CANT_MAP_CHARACTER,
+										/* 1927 */
+	/* U+2588 */ 0xDB /*                                    FULL BLOCK */ ,	/* 1928 */
+										/* U+2589 */ CANT_MAP_CHARACTER,
+										/* 1929 */
+										/* U+258A */ CANT_MAP_CHARACTER,
+										/* 1930 */
+										/* U+258B */ CANT_MAP_CHARACTER,
+										/* 1931 */
+	/* U+258C */ 0xDD /*                               LEFT HALF BLOCK */ ,	/* 1932 */
+										/* U+258D */ CANT_MAP_CHARACTER,
+										/* 1933 */
+										/* U+258E */ CANT_MAP_CHARACTER,
+										/* 1934 */
+										/* U+258F */ CANT_MAP_CHARACTER,
+										/* 1935 */
+	/* U+2590 */ 0xDE /*                              RIGHT HALF BLOCK */ ,	/* 1936 */
+	/* U+2591 */ 0xB0 /*                                   LIGHT SHADE */ ,	/* 1937 */
+	/* U+2592 */ 0xB1 /*                                  MEDIUM SHADE */ ,	/* 1938 */
+	/* U+2593 */ 0xB2 /*                                    DARK SHADE */ ,	/* 1939 */
+										/* U+2594 */ CANT_MAP_CHARACTER,
+										/* 1940 */
+										/* U+2595 */ CANT_MAP_CHARACTER,
+										/* 1941 */
+										/* U+2596 */ CANT_MAP_CHARACTER,
+										/* 1942 */
+										/* U+2597 */ CANT_MAP_CHARACTER,
+										/* 1943 */
+										/* U+2598 */ CANT_MAP_CHARACTER,
+										/* 1944 */
+										/* U+2599 */ CANT_MAP_CHARACTER,
+										/* 1945 */
+										/* U+259A */ CANT_MAP_CHARACTER,
+										/* 1946 */
+										/* U+259B */ CANT_MAP_CHARACTER,
+										/* 1947 */
+										/* U+259C */ CANT_MAP_CHARACTER,
+										/* 1948 */
+										/* U+259D */ CANT_MAP_CHARACTER,
+										/* 1949 */
+										/* U+259E */ CANT_MAP_CHARACTER,
+										/* 1950 */
+										/* U+259F */ CANT_MAP_CHARACTER,
+										/* 1951 */
+	/* U+25A0 */ 0xFE /*                                  BLACK SQUARE */ ,	/* 1952 */
+										/* U+25A1 */ CANT_MAP_CHARACTER,
+										/* 1953 */
+										/* U+25A2 */ CANT_MAP_CHARACTER,
+										/* 1954 */
+										/* U+25A3 */ CANT_MAP_CHARACTER,
+										/* 1955 */
+										/* U+25A4 */ CANT_MAP_CHARACTER,
+										/* 1956 */
+										/* U+25A5 */ CANT_MAP_CHARACTER,
+										/* 1957 */
+										/* U+25A6 */ CANT_MAP_CHARACTER,
+										/* 1958 */
+										/* U+25A7 */ CANT_MAP_CHARACTER,
+										/* 1959 */
+										/* U+25A8 */ CANT_MAP_CHARACTER,
+										/* 1960 */
+										/* U+25A9 */ CANT_MAP_CHARACTER,
+										/* 1961 */
+										/* U+25AA */ CANT_MAP_CHARACTER,
+										/* 1962 */
+										/* U+25AB */ CANT_MAP_CHARACTER,
+										/* 1963 */
+										/* U+25AC */ CANT_MAP_CHARACTER,
+										/* 1964 */
+										/* U+25AD */ CANT_MAP_CHARACTER,
+										/* 1965 */
+										/* U+25AE */ CANT_MAP_CHARACTER,
+										/* 1966 */
+										/* U+25AF */ CANT_MAP_CHARACTER,
+										/* 1967 */
+										/* U+25B0 */ CANT_MAP_CHARACTER,
+										/* 1968 */
+										/* U+25B1 */ CANT_MAP_CHARACTER,
+										/* 1969 */
+										/* U+25B2 */ CANT_MAP_CHARACTER,
+										/* 1970 */
+										/* U+25B3 */ CANT_MAP_CHARACTER,
+										/* 1971 */
+										/* U+25B4 */ CANT_MAP_CHARACTER,
+										/* 1972 */
+										/* U+25B5 */ CANT_MAP_CHARACTER,
+										/* 1973 */
+										/* U+25B6 */ CANT_MAP_CHARACTER,
+										/* 1974 */
+										/* U+25B7 */ CANT_MAP_CHARACTER,
+										/* 1975 */
+										/* U+25B8 */ CANT_MAP_CHARACTER,
+										/* 1976 */
+										/* U+25B9 */ CANT_MAP_CHARACTER,
+										/* 1977 */
+										/* U+25BA */ CANT_MAP_CHARACTER,
+										/* 1978 */
+										/* U+25BB */ CANT_MAP_CHARACTER,
+										/* 1979 */
+										/* U+25BC */ CANT_MAP_CHARACTER,
+										/* 1980 */
+										/* U+25BD */ CANT_MAP_CHARACTER,
+										/* 1981 */
+										/* U+25BE */ CANT_MAP_CHARACTER,
+										/* 1982 */
+										/* U+25BF */ CANT_MAP_CHARACTER,
+										/* 1983 */
+										/* U+25C0 */ CANT_MAP_CHARACTER,
+										/* 1984 */
+										/* U+25C1 */ CANT_MAP_CHARACTER,
+										/* 1985 */
+										/* U+25C2 */ CANT_MAP_CHARACTER,
+										/* 1986 */
+										/* U+25C3 */ CANT_MAP_CHARACTER,
+										/* 1987 */
+										/* U+25C4 */ CANT_MAP_CHARACTER,
+										/* 1988 */
+										/* U+25C5 */ CANT_MAP_CHARACTER,
+										/* 1989 */
+										/* U+25C6 */ CANT_MAP_CHARACTER,
+										/* 1990 */
+										/* U+25C7 */ CANT_MAP_CHARACTER,
+										/* 1991 */
+										/* U+25C8 */ CANT_MAP_CHARACTER,
+										/* 1992 */
+										/* U+25C9 */ CANT_MAP_CHARACTER,
+										/* 1993 */
+										/* U+25CA */ CANT_MAP_CHARACTER,
+										/* 1994 */
+										/* U+25CB */ CANT_MAP_CHARACTER,
+										/* 1995 */
+										/* U+25CC */ CANT_MAP_CHARACTER,
+										/* 1996 */
+										/* U+25CD */ CANT_MAP_CHARACTER,
+										/* 1997 */
+										/* U+25CE */ CANT_MAP_CHARACTER,
+										/* 1998 */
+										/* U+25CF */ CANT_MAP_CHARACTER,
+										/* 1999 */
+										/* U+25D0 */ CANT_MAP_CHARACTER,
+										/* 2000 */
+										/* U+25D1 */ CANT_MAP_CHARACTER,
+										/* 2001 */
+										/* U+25D2 */ CANT_MAP_CHARACTER,
+										/* 2002 */
+										/* U+25D3 */ CANT_MAP_CHARACTER,
+										/* 2003 */
+										/* U+25D4 */ CANT_MAP_CHARACTER,
+										/* 2004 */
+										/* U+25D5 */ CANT_MAP_CHARACTER,
+										/* 2005 */
+										/* U+25D6 */ CANT_MAP_CHARACTER,
+										/* 2006 */
+										/* U+25D7 */ CANT_MAP_CHARACTER,
+										/* 2007 */
+										/* U+25D8 */ CANT_MAP_CHARACTER,
+										/* 2008 */
+										/* U+25D9 */ CANT_MAP_CHARACTER,
+										/* 2009 */
+										/* U+25DA */ CANT_MAP_CHARACTER,
+										/* 2010 */
+										/* U+25DB */ CANT_MAP_CHARACTER,
+										/* 2011 */
+										/* U+25DC */ CANT_MAP_CHARACTER,
+										/* 2012 */
+										/* U+25DD */ CANT_MAP_CHARACTER,
+										/* 2013 */
+										/* U+25DE */ CANT_MAP_CHARACTER,
+										/* 2014 */
+										/* U+25DF */ CANT_MAP_CHARACTER,
+										/* 2015 */
+										/* U+25E0 */ CANT_MAP_CHARACTER,
+										/* 2016 */
+										/* U+25E1 */ CANT_MAP_CHARACTER,
+										/* 2017 */
+										/* U+25E2 */ CANT_MAP_CHARACTER,
+										/* 2018 */
+										/* U+25E3 */ CANT_MAP_CHARACTER,
+										/* 2019 */
+										/* U+25E4 */ CANT_MAP_CHARACTER,
+										/* 2020 */
+										/* U+25E5 */ CANT_MAP_CHARACTER,
+										/* 2021 */
+										/* U+25E6 */ CANT_MAP_CHARACTER,
+										/* 2022 */
+										/* U+25E7 */ CANT_MAP_CHARACTER,
+										/* 2023 */
+										/* U+25E8 */ CANT_MAP_CHARACTER,
+										/* 2024 */
+										/* U+25E9 */ CANT_MAP_CHARACTER,
+										/* 2025 */
+										/* U+25EA */ CANT_MAP_CHARACTER,
+										/* 2026 */
+										/* U+25EB */ CANT_MAP_CHARACTER,
+										/* 2027 */
+										/* U+25EC */ CANT_MAP_CHARACTER,
+										/* 2028 */
+										/* U+25ED */ CANT_MAP_CHARACTER,
+										/* 2029 */
+										/* U+25EE */ CANT_MAP_CHARACTER,
+										/* 2030 */
+										/* U+25EF */ CANT_MAP_CHARACTER,
+										/* 2031 */
+										/* U+25F0 */ CANT_MAP_CHARACTER,
+										/* 2032 */
+										/* U+25F1 */ CANT_MAP_CHARACTER,
+										/* 2033 */
+										/* U+25F2 */ CANT_MAP_CHARACTER,
+										/* 2034 */
+										/* U+25F3 */ CANT_MAP_CHARACTER,
+										/* 2035 */
+										/* U+25F4 */ CANT_MAP_CHARACTER,
+										/* 2036 */
+										/* U+25F5 */ CANT_MAP_CHARACTER,
+										/* 2037 */
+										/* U+25F6 */ CANT_MAP_CHARACTER,
+										/* 2038 */
+										/* U+25F7 */ CANT_MAP_CHARACTER,
+										/* 2039 */
+										/* U+25F8 */ CANT_MAP_CHARACTER,
+										/* 2040 */
+										/* U+25F9 */ CANT_MAP_CHARACTER,
+										/* 2041 */
+										/* U+25FA */ CANT_MAP_CHARACTER,
+										/* 2042 */
+										/* U+25FB */ CANT_MAP_CHARACTER,
+										/* 2043 */
+										/* U+25FC */ CANT_MAP_CHARACTER,
+										/* 2044 */
+										/* U+25FD */ CANT_MAP_CHARACTER,
+										/* 2045 */
+										/* U+25FE */ CANT_MAP_CHARACTER,
+										/* 2046 */
+										/* U+25FF */ CANT_MAP_CHARACTER,
+										/* 2047 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 512,
+/* U+02-- */ 0,
+/* U+03-- */ 768,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 1024,
+/* U+21-- */ 0,
+/* U+22-- */ 1280,
+/* U+23-- */ 1536,
+/* U+24-- */ 0,
+/* U+25-- */ 1792,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_850.h b/src/intl/cs_850.h
new file mode 100644
index 0000000000..15f6237117
--- /dev/null
+++ b/src/intl/cs_850.h
@@ -0,0 +1,3125 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/PC/CP850.TXT 
+
+#
+#    Name:     cp850_DOSLatin1 to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/24/96
+#    Authors:       Lori Brownell <loribr@microsoft.com>
+#                   K.D. Chang    <a-kchang@microsoft.com>
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp850_DOSLatin1 code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp850_DOSLatin1 order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0a	0x000a	#LINE FEED
+0x0b	0x000b	#VERTICAL TABULATION
+0x0c	0x000c	#FORM FEED
+0x0d	0x000d	#CARRIAGE RETURN
+0x0e	0x000e	#SHIFT OUT
+0x0f	0x000f	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1a	0x001a	#SUBSTITUTE
+0x1b	0x001b	#ESCAPE
+0x1c	0x001c	#FILE SEPARATOR
+0x1d	0x001d	#GROUP SEPARATOR
+0x1e	0x001e	#RECORD SEPARATOR
+0x1f	0x001f	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2a	0x002a	#ASTERISK
+0x2b	0x002b	#PLUS SIGN
+0x2c	0x002c	#COMMA
+0x2d	0x002d	#HYPHEN-MINUS
+0x2e	0x002e	#FULL STOP
+0x2f	0x002f	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3a	0x003a	#COLON
+0x3b	0x003b	#SEMICOLON
+0x3c	0x003c	#LESS-THAN SIGN
+0x3d	0x003d	#EQUALS SIGN
+0x3e	0x003e	#GREATER-THAN SIGN
+0x3f	0x003f	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4a	0x004a	#LATIN CAPITAL LETTER J
+0x4b	0x004b	#LATIN CAPITAL LETTER K
+0x4c	0x004c	#LATIN CAPITAL LETTER L
+0x4d	0x004d	#LATIN CAPITAL LETTER M
+0x4e	0x004e	#LATIN CAPITAL LETTER N
+0x4f	0x004f	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5a	0x005a	#LATIN CAPITAL LETTER Z
+0x5b	0x005b	#LEFT SQUARE BRACKET
+0x5c	0x005c	#REVERSE SOLIDUS
+0x5d	0x005d	#RIGHT SQUARE BRACKET
+0x5e	0x005e	#CIRCUMFLEX ACCENT
+0x5f	0x005f	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6a	0x006a	#LATIN SMALL LETTER J
+0x6b	0x006b	#LATIN SMALL LETTER K
+0x6c	0x006c	#LATIN SMALL LETTER L
+0x6d	0x006d	#LATIN SMALL LETTER M
+0x6e	0x006e	#LATIN SMALL LETTER N
+0x6f	0x006f	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7a	0x007a	#LATIN SMALL LETTER Z
+0x7b	0x007b	#LEFT CURLY BRACKET
+0x7c	0x007c	#VERTICAL LINE
+0x7d	0x007d	#RIGHT CURLY BRACKET
+0x7e	0x007e	#TILDE
+0x7f	0x007f	#DELETE
+0x80	0x00c7	#LATIN CAPITAL LETTER C WITH CEDILLA
+0x81	0x00fc	#LATIN SMALL LETTER U WITH DIAERESIS
+0x82	0x00e9	#LATIN SMALL LETTER E WITH ACUTE
+0x83	0x00e2	#LATIN SMALL LETTER A WITH CIRCUMFLEX
+0x84	0x00e4	#LATIN SMALL LETTER A WITH DIAERESIS
+0x85	0x00e0	#LATIN SMALL LETTER A WITH GRAVE
+0x86	0x00e5	#LATIN SMALL LETTER A WITH RING ABOVE
+0x87	0x00e7	#LATIN SMALL LETTER C WITH CEDILLA
+0x88	0x00ea	#LATIN SMALL LETTER E WITH CIRCUMFLEX
+0x89	0x00eb	#LATIN SMALL LETTER E WITH DIAERESIS
+0x8a	0x00e8	#LATIN SMALL LETTER E WITH GRAVE
+0x8b	0x00ef	#LATIN SMALL LETTER I WITH DIAERESIS
+0x8c	0x00ee	#LATIN SMALL LETTER I WITH CIRCUMFLEX
+0x8d	0x00ec	#LATIN SMALL LETTER I WITH GRAVE
+0x8e	0x00c4	#LATIN CAPITAL LETTER A WITH DIAERESIS
+0x8f	0x00c5	#LATIN CAPITAL LETTER A WITH RING ABOVE
+0x90	0x00c9	#LATIN CAPITAL LETTER E WITH ACUTE
+0x91	0x00e6	#LATIN SMALL LIGATURE AE
+0x92	0x00c6	#LATIN CAPITAL LIGATURE AE
+0x93	0x00f4	#LATIN SMALL LETTER O WITH CIRCUMFLEX
+0x94	0x00f6	#LATIN SMALL LETTER O WITH DIAERESIS
+0x95	0x00f2	#LATIN SMALL LETTER O WITH GRAVE
+0x96	0x00fb	#LATIN SMALL LETTER U WITH CIRCUMFLEX
+0x97	0x00f9	#LATIN SMALL LETTER U WITH GRAVE
+0x98	0x00ff	#LATIN SMALL LETTER Y WITH DIAERESIS
+0x99	0x00d6	#LATIN CAPITAL LETTER O WITH DIAERESIS
+0x9a	0x00dc	#LATIN CAPITAL LETTER U WITH DIAERESIS
+0x9b	0x00f8	#LATIN SMALL LETTER O WITH STROKE
+0x9c	0x00a3	#POUND SIGN
+0x9d	0x00d8	#LATIN CAPITAL LETTER O WITH STROKE
+0x9e	0x00d7	#MULTIPLICATION SIGN
+0x9f	0x0192	#LATIN SMALL LETTER F WITH HOOK
+0xa0	0x00e1	#LATIN SMALL LETTER A WITH ACUTE
+0xa1	0x00ed	#LATIN SMALL LETTER I WITH ACUTE
+0xa2	0x00f3	#LATIN SMALL LETTER O WITH ACUTE
+0xa3	0x00fa	#LATIN SMALL LETTER U WITH ACUTE
+0xa4	0x00f1	#LATIN SMALL LETTER N WITH TILDE
+0xa5	0x00d1	#LATIN CAPITAL LETTER N WITH TILDE
+0xa6	0x00aa	#FEMININE ORDINAL INDICATOR
+0xa7	0x00ba	#MASCULINE ORDINAL INDICATOR
+0xa8	0x00bf	#INVERTED QUESTION MARK
+0xa9	0x00ae	#REGISTERED SIGN
+0xaa	0x00ac	#NOT SIGN
+0xab	0x00bd	#VULGAR FRACTION ONE HALF
+0xac	0x00bc	#VULGAR FRACTION ONE QUARTER
+0xad	0x00a1	#INVERTED EXCLAMATION MARK
+0xae	0x00ab	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xaf	0x00bb	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xb0	0x2591	#LIGHT SHADE
+0xb1	0x2592	#MEDIUM SHADE
+0xb2	0x2593	#DARK SHADE
+0xb3	0x2502	#BOX DRAWINGS LIGHT VERTICAL
+0xb4	0x2524	#BOX DRAWINGS LIGHT VERTICAL AND LEFT
+0xb5	0x00c1	#LATIN CAPITAL LETTER A WITH ACUTE
+0xb6	0x00c2	#LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0xb7	0x00c0	#LATIN CAPITAL LETTER A WITH GRAVE
+0xb8	0x00a9	#COPYRIGHT SIGN
+0xb9	0x2563	#BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+0xba	0x2551	#BOX DRAWINGS DOUBLE VERTICAL
+0xbb	0x2557	#BOX DRAWINGS DOUBLE DOWN AND LEFT
+0xbc	0x255d	#BOX DRAWINGS DOUBLE UP AND LEFT
+0xbd	0x00a2	#CENT SIGN
+0xbe	0x00a5	#YEN SIGN
+0xbf	0x2510	#BOX DRAWINGS LIGHT DOWN AND LEFT
+0xc0	0x2514	#BOX DRAWINGS LIGHT UP AND RIGHT
+0xc1	0x2534	#BOX DRAWINGS LIGHT UP AND HORIZONTAL
+0xc2	0x252c	#BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+0xc3	0x251c	#BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+0xc4	0x2500	#BOX DRAWINGS LIGHT HORIZONTAL
+0xc5	0x253c	#BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+0xc6	0x00e3	#LATIN SMALL LETTER A WITH TILDE
+0xc7	0x00c3	#LATIN CAPITAL LETTER A WITH TILDE
+0xc8	0x255a	#BOX DRAWINGS DOUBLE UP AND RIGHT
+0xc9	0x2554	#BOX DRAWINGS DOUBLE DOWN AND RIGHT
+0xca	0x2569	#BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+0xcb	0x2566	#BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+0xcc	0x2560	#BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+0xcd	0x2550	#BOX DRAWINGS DOUBLE HORIZONTAL
+0xce	0x256c	#BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+0xcf	0x00a4	#CURRENCY SIGN
+0xd0	0x00f0	#LATIN SMALL LETTER ETH
+0xd1	0x00d0	#LATIN CAPITAL LETTER ETH
+0xd2	0x00ca	#LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0xd3	0x00cb	#LATIN CAPITAL LETTER E WITH DIAERESIS
+0xd4	0x00c8	#LATIN CAPITAL LETTER E WITH GRAVE
+0xd5	0x0131	#LATIN SMALL LETTER DOTLESS I
+0xd6	0x00cd	#LATIN CAPITAL LETTER I WITH ACUTE
+0xd7	0x00ce	#LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+0xd8	0x00cf	#LATIN CAPITAL LETTER I WITH DIAERESIS
+0xd9	0x2518	#BOX DRAWINGS LIGHT UP AND LEFT
+0xda	0x250c	#BOX DRAWINGS LIGHT DOWN AND RIGHT
+0xdb	0x2588	#FULL BLOCK
+0xdc	0x2584	#LOWER HALF BLOCK
+0xdd	0x00a6	#BROKEN BAR
+0xde	0x00cc	#LATIN CAPITAL LETTER I WITH GRAVE
+0xdf	0x2580	#UPPER HALF BLOCK
+0xe0	0x00d3	#LATIN CAPITAL LETTER O WITH ACUTE
+0xe1	0x00df	#LATIN SMALL LETTER SHARP S
+0xe2	0x00d4	#LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+0xe3	0x00d2	#LATIN CAPITAL LETTER O WITH GRAVE
+0xe4	0x00f5	#LATIN SMALL LETTER O WITH TILDE
+0xe5	0x00d5	#LATIN CAPITAL LETTER O WITH TILDE
+0xe6	0x00b5	#MICRO SIGN
+0xe7	0x00fe	#LATIN SMALL LETTER THORN
+0xe8	0x00de	#LATIN CAPITAL LETTER THORN
+0xe9	0x00da	#LATIN CAPITAL LETTER U WITH ACUTE
+0xea	0x00db	#LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+0xeb	0x00d9	#LATIN CAPITAL LETTER U WITH GRAVE
+0xec	0x00fd	#LATIN SMALL LETTER Y WITH ACUTE
+0xed	0x00dd	#LATIN CAPITAL LETTER Y WITH ACUTE
+0xee	0x00af	#MACRON
+0xef	0x00b4	#ACUTE ACCENT
+0xf0	0x00ad	#SOFT HYPHEN
+0xf1	0x00b1	#PLUS-MINUS SIGN
+0xf2	0x2017	#DOUBLE LOW LINE
+0xf3	0x00be	#VULGAR FRACTION THREE QUARTERS
+0xf4	0x00b6	#PILCROW SIGN
+0xf5	0x00a7	#SECTION SIGN
+0xf6	0x00f7	#DIVISION SIGN
+0xf7	0x00b8	#CEDILLA
+0xf8	0x00b0	#DEGREE SIGN
+0xf9	0x00a8	#DIAERESIS
+0xfa	0x00b7	#MIDDLE DOT
+0xfb	0x00b9	#SUPERSCRIPT ONE
+0xfc	0x00b3	#SUPERSCRIPT THREE
+0xfd	0x00b2	#SUPERSCRIPT TWO
+0xfe	0x25a0	#BLACK SQUARE
+0xff	0x00a0	#NO-BREAK SPACE
+
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x00C7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,
+	/* 81 */ 0x00FC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,
+	/* 82 */ 0x00E9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,
+	/* 83 */ 0x00E2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,
+	/* 84 */ 0x00E4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,
+	/* 85 */ 0x00E0 /*               LATIN SMALL LETTER A WITH GRAVE */ ,
+	/* 86 */ 0x00E5 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,
+	/* 87 */ 0x00E7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,
+	/* 88 */ 0x00EA /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,
+	/* 89 */ 0x00EB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,
+	/* 8A */ 0x00E8 /*               LATIN SMALL LETTER E WITH GRAVE */ ,
+	/* 8B */ 0x00EF /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,
+	/* 8C */ 0x00EE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,
+	/* 8D */ 0x00EC /*               LATIN SMALL LETTER I WITH GRAVE */ ,
+	/* 8E */ 0x00C4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,
+	/* 8F */ 0x00C5 /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,
+	/* 90 */ 0x00C9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,
+	/* 91 */ 0x00E6 /*                       LATIN SMALL LIGATURE AE */ ,
+	/* 92 */ 0x00C6 /*                     LATIN CAPITAL LIGATURE AE */ ,
+	/* 93 */ 0x00F4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,
+	/* 94 */ 0x00F6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,
+	/* 95 */ 0x00F2 /*               LATIN SMALL LETTER O WITH GRAVE */ ,
+	/* 96 */ 0x00FB /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,
+	/* 97 */ 0x00F9 /*               LATIN SMALL LETTER U WITH GRAVE */ ,
+	/* 98 */ 0x00FF /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,
+	/* 99 */ 0x00D6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,
+	/* 9A */ 0x00DC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,
+	/* 9B */ 0x00F8 /*              LATIN SMALL LETTER O WITH STROKE */ ,
+	/* 9C */ 0x00A3 /*                                    POUND SIGN */ ,
+	/* 9D */ 0x00D8 /*            LATIN CAPITAL LETTER O WITH STROKE */ ,
+	/* 9E */ 0x00D7 /*                           MULTIPLICATION SIGN */ ,
+	/* 9F */ 0x0192 /*                LATIN SMALL LETTER F WITH HOOK */ ,
+	/* A0 */ 0x00E1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,
+	/* A1 */ 0x00ED /*               LATIN SMALL LETTER I WITH ACUTE */ ,
+	/* A2 */ 0x00F3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,
+	/* A3 */ 0x00FA /*               LATIN SMALL LETTER U WITH ACUTE */ ,
+	/* A4 */ 0x00F1 /*               LATIN SMALL LETTER N WITH TILDE */ ,
+	/* A5 */ 0x00D1 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,
+	/* A6 */ 0x00AA /*                    FEMININE ORDINAL INDICATOR */ ,
+	/* A7 */ 0x00BA /*                   MASCULINE ORDINAL INDICATOR */ ,
+	/* A8 */ 0x00BF /*                        INVERTED QUESTION MARK */ ,
+	/* A9 */ 0x00AE /*                               REGISTERED SIGN */ ,
+	/* AA */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AB */ 0x00BD /*                      VULGAR FRACTION ONE HALF */ ,
+	/* AC */ 0x00BC /*                   VULGAR FRACTION ONE QUARTER */ ,
+	/* AD */ 0x00A1 /*                     INVERTED EXCLAMATION MARK */ ,
+	/* AE */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AF */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* B0 */ 0x2591 /*                                   LIGHT SHADE */ ,
+	/* B1 */ 0x2592 /*                                  MEDIUM SHADE */ ,
+	/* B2 */ 0x2593 /*                                    DARK SHADE */ ,
+	/* B3 */ 0x2502 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,
+	/* B4 */ 0x2524 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,
+	/* B5 */ 0x00C1 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,
+	/* B6 */ 0x00C2 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,
+	/* B7 */ 0x00C0 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,
+	/* B8 */ 0x00A9 /*                                COPYRIGHT SIGN */ ,
+	/* B9 */ 0x2563 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,
+	/* BA */ 0x2551 /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,
+	/* BB */ 0x2557 /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,
+	/* BC */ 0x255D /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,
+	/* BD */ 0x00A2 /*                                     CENT SIGN */ ,
+	/* BE */ 0x00A5 /*                                      YEN SIGN */ ,
+	/* BF */ 0x2510 /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,
+	/* C0 */ 0x2514 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,
+	/* C1 */ 0x2534 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,
+	/* C2 */ 0x252C /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,
+	/* C3 */ 0x251C /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,
+	/* C4 */ 0x2500 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,
+	/* C5 */ 0x253C /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,
+	/* C6 */ 0x00E3 /*               LATIN SMALL LETTER A WITH TILDE */ ,
+	/* C7 */ 0x00C3 /*             LATIN CAPITAL LETTER A WITH TILDE */ ,
+	/* C8 */ 0x255A /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,
+	/* C9 */ 0x2554 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,
+	/* CA */ 0x2569 /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,
+	/* CB */ 0x2566 /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,
+	/* CC */ 0x2560 /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,
+	/* CD */ 0x2550 /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,
+	/* CE */ 0x256C /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,
+	/* CF */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* D0 */ 0x00F0 /*                        LATIN SMALL LETTER ETH */ ,
+	/* D1 */ 0x00D0 /*                      LATIN CAPITAL LETTER ETH */ ,
+	/* D2 */ 0x00CA /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,
+	/* D3 */ 0x00CB /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,
+	/* D4 */ 0x00C8 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,
+	/* D5 */ 0x0131 /*                  LATIN SMALL LETTER DOTLESS I */ ,
+	/* D6 */ 0x00CD /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,
+	/* D7 */ 0x00CE /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,
+	/* D8 */ 0x00CF /*         LATIN CAPITAL LETTER I WITH DIAERESIS */ ,
+	/* D9 */ 0x2518 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,
+	/* DA */ 0x250C /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,
+	/* DB */ 0x2588 /*                                    FULL BLOCK */ ,
+	/* DC */ 0x2584 /*                              LOWER HALF BLOCK */ ,
+	/* DD */ 0x00A6 /*                                    BROKEN BAR */ ,
+	/* DE */ 0x00CC /*             LATIN CAPITAL LETTER I WITH GRAVE */ ,
+	/* DF */ 0x2580 /*                              UPPER HALF BLOCK */ ,
+	/* E0 */ 0x00D3 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,
+	/* E1 */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* E2 */ 0x00D4 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,
+	/* E3 */ 0x00D2 /*             LATIN CAPITAL LETTER O WITH GRAVE */ ,
+	/* E4 */ 0x00F5 /*               LATIN SMALL LETTER O WITH TILDE */ ,
+	/* E5 */ 0x00D5 /*             LATIN CAPITAL LETTER O WITH TILDE */ ,
+	/* E6 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* E7 */ 0x00FE /*                      LATIN SMALL LETTER THORN */ ,
+	/* E8 */ 0x00DE /*                    LATIN CAPITAL LETTER THORN */ ,
+	/* E9 */ 0x00DA /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,
+	/* EA */ 0x00DB /*        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ ,
+	/* EB */ 0x00D9 /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,
+	/* EC */ 0x00FD /*               LATIN SMALL LETTER Y WITH ACUTE */ ,
+	/* ED */ 0x00DD /*             LATIN CAPITAL LETTER Y WITH ACUTE */ ,
+	/* EE */ 0x00AF /*                                        MACRON */ ,
+	/* EF */ 0x00B4 /*                                  ACUTE ACCENT */ ,
+	/* F0 */ 0x00AD /*                                   SOFT HYPHEN */ ,
+	/* F1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* F2 */ 0x2017 /*                               DOUBLE LOW LINE */ ,
+	/* F3 */ 0x00BE /*                VULGAR FRACTION THREE QUARTERS */ ,
+	/* F4 */ 0x00B6 /*                                  PILCROW SIGN */ ,
+	/* F5 */ 0x00A7 /*                                  SECTION SIGN */ ,
+	/* F6 */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* F7 */ 0x00B8 /*                                       CEDILLA */ ,
+	/* F8 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* F9 */ 0x00A8 /*                                     DIAERESIS */ ,
+	/* FA */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* FB */ 0x00B9 /*                               SUPERSCRIPT ONE */ ,
+	/* FC */ 0x00B3 /*                             SUPERSCRIPT THREE */ ,
+	/* FD */ 0x00B2 /*                               SUPERSCRIPT TWO */ ,
+	/* FE */ 0x25A0 /*                                  BLACK SQUARE */ ,
+	/* FF */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xFF /*                                NO-BREAK SPACE */ ,	/* 416 */
+	/* U+00A1 */ 0xAD /*                     INVERTED EXCLAMATION MARK */ ,	/* 417 */
+	/* U+00A2 */ 0xBD /*                                     CENT SIGN */ ,	/* 418 */
+	/* U+00A3 */ 0x9C /*                                    POUND SIGN */ ,	/* 419 */
+	/* U+00A4 */ 0xCF /*                                 CURRENCY SIGN */ ,	/* 420 */
+	/* U+00A5 */ 0xBE /*                                      YEN SIGN */ ,	/* 421 */
+	/* U+00A6 */ 0xDD /*                                    BROKEN BAR */ ,	/* 422 */
+	/* U+00A7 */ 0xF5 /*                                  SECTION SIGN */ ,	/* 423 */
+	/* U+00A8 */ 0xF9 /*                                     DIAERESIS */ ,	/* 424 */
+	/* U+00A9 */ 0xB8 /*                                COPYRIGHT SIGN */ ,	/* 425 */
+	/* U+00AA */ 0xA6 /*                    FEMININE ORDINAL INDICATOR */ ,	/* 426 */
+	/* U+00AB */ 0xAE /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAA /*                                      NOT SIGN */ ,	/* 428 */
+	/* U+00AD */ 0xF0 /*                                   SOFT HYPHEN */ ,	/* 429 */
+	/* U+00AE */ 0xA9 /*                               REGISTERED SIGN */ ,	/* 430 */
+	/* U+00AF */ 0xEE /*                                        MACRON */ ,	/* 431 */
+	/* U+00B0 */ 0xF8 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xF1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+	/* U+00B2 */ 0xFD /*                               SUPERSCRIPT TWO */ ,	/* 434 */
+	/* U+00B3 */ 0xFC /*                             SUPERSCRIPT THREE */ ,	/* 435 */
+	/* U+00B4 */ 0xEF /*                                  ACUTE ACCENT */ ,	/* 436 */
+	/* U+00B5 */ 0xE6 /*                                    MICRO SIGN */ ,	/* 437 */
+	/* U+00B6 */ 0xF4 /*                                  PILCROW SIGN */ ,	/* 438 */
+	/* U+00B7 */ 0xFA /*                                    MIDDLE DOT */ ,	/* 439 */
+	/* U+00B8 */ 0xF7 /*                                       CEDILLA */ ,	/* 440 */
+	/* U+00B9 */ 0xFB /*                               SUPERSCRIPT ONE */ ,	/* 441 */
+	/* U+00BA */ 0xA7 /*                   MASCULINE ORDINAL INDICATOR */ ,	/* 442 */
+	/* U+00BB */ 0xAF /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+	/* U+00BC */ 0xAC /*                   VULGAR FRACTION ONE QUARTER */ ,	/* 444 */
+	/* U+00BD */ 0xAB /*                      VULGAR FRACTION ONE HALF */ ,	/* 445 */
+	/* U+00BE */ 0xF3 /*                VULGAR FRACTION THREE QUARTERS */ ,	/* 446 */
+	/* U+00BF */ 0xA8 /*                        INVERTED QUESTION MARK */ ,	/* 447 */
+	/* U+00C0 */ 0xB7 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,	/* 448 */
+	/* U+00C1 */ 0xB5 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,	/* 449 */
+	/* U+00C2 */ 0xB6 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,	/* 450 */
+	/* U+00C3 */ 0xC7 /*             LATIN CAPITAL LETTER A WITH TILDE */ ,	/* 451 */
+	/* U+00C4 */ 0x8E /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,	/* 452 */
+	/* U+00C5 */ 0x8F /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,	/* 453 */
+	/* U+00C6 */ 0x92 /*                     LATIN CAPITAL LIGATURE AE */ ,	/* 454 */
+	/* U+00C7 */ 0x80 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,	/* 455 */
+	/* U+00C8 */ 0xD4 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,	/* 456 */
+	/* U+00C9 */ 0x90 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,	/* 457 */
+	/* U+00CA */ 0xD2 /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,	/* 458 */
+	/* U+00CB */ 0xD3 /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,	/* 459 */
+	/* U+00CC */ 0xDE /*             LATIN CAPITAL LETTER I WITH GRAVE */ ,	/* 460 */
+	/* U+00CD */ 0xD6 /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,	/* 461 */
+	/* U+00CE */ 0xD7 /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,	/* 462 */
+	/* U+00CF */ 0xD8 /*         LATIN CAPITAL LETTER I WITH DIAERESIS */ ,	/* 463 */
+	/* U+00D0 */ 0xD1 /*                      LATIN CAPITAL LETTER ETH */ ,	/* 464 */
+	/* U+00D1 */ 0xA5 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,	/* 465 */
+	/* U+00D2 */ 0xE3 /*             LATIN CAPITAL LETTER O WITH GRAVE */ ,	/* 466 */
+	/* U+00D3 */ 0xE0 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,	/* 467 */
+	/* U+00D4 */ 0xE2 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,	/* 468 */
+	/* U+00D5 */ 0xE5 /*             LATIN CAPITAL LETTER O WITH TILDE */ ,	/* 469 */
+	/* U+00D6 */ 0x99 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,	/* 470 */
+	/* U+00D7 */ 0x9E /*                           MULTIPLICATION SIGN */ ,	/* 471 */
+	/* U+00D8 */ 0x9D /*            LATIN CAPITAL LETTER O WITH STROKE */ ,	/* 472 */
+	/* U+00D9 */ 0xEB /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,	/* 473 */
+	/* U+00DA */ 0xE9 /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,	/* 474 */
+	/* U+00DB */ 0xEA /*        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ ,	/* 475 */
+	/* U+00DC */ 0x9A /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,	/* 476 */
+	/* U+00DD */ 0xED /*             LATIN CAPITAL LETTER Y WITH ACUTE */ ,	/* 477 */
+	/* U+00DE */ 0xE8 /*                    LATIN CAPITAL LETTER THORN */ ,	/* 478 */
+	/* U+00DF */ 0xE1 /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+	/* U+00E0 */ 0x85 /*               LATIN SMALL LETTER A WITH GRAVE */ ,	/* 480 */
+	/* U+00E1 */ 0xA0 /*               LATIN SMALL LETTER A WITH ACUTE */ ,	/* 481 */
+	/* U+00E2 */ 0x83 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,	/* 482 */
+	/* U+00E3 */ 0xC6 /*               LATIN SMALL LETTER A WITH TILDE */ ,	/* 483 */
+	/* U+00E4 */ 0x84 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,	/* 484 */
+	/* U+00E5 */ 0x86 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,	/* 485 */
+	/* U+00E6 */ 0x91 /*                       LATIN SMALL LIGATURE AE */ ,	/* 486 */
+	/* U+00E7 */ 0x87 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,	/* 487 */
+	/* U+00E8 */ 0x8A /*               LATIN SMALL LETTER E WITH GRAVE */ ,	/* 488 */
+	/* U+00E9 */ 0x82 /*               LATIN SMALL LETTER E WITH ACUTE */ ,	/* 489 */
+	/* U+00EA */ 0x88 /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,	/* 490 */
+	/* U+00EB */ 0x89 /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,	/* 491 */
+	/* U+00EC */ 0x8D /*               LATIN SMALL LETTER I WITH GRAVE */ ,	/* 492 */
+	/* U+00ED */ 0xA1 /*               LATIN SMALL LETTER I WITH ACUTE */ ,	/* 493 */
+	/* U+00EE */ 0x8C /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,	/* 494 */
+	/* U+00EF */ 0x8B /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,	/* 495 */
+	/* U+00F0 */ 0xD0 /*                        LATIN SMALL LETTER ETH */ ,	/* 496 */
+	/* U+00F1 */ 0xA4 /*               LATIN SMALL LETTER N WITH TILDE */ ,	/* 497 */
+	/* U+00F2 */ 0x95 /*               LATIN SMALL LETTER O WITH GRAVE */ ,	/* 498 */
+	/* U+00F3 */ 0xA2 /*               LATIN SMALL LETTER O WITH ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0x93 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,	/* 500 */
+	/* U+00F5 */ 0xE4 /*               LATIN SMALL LETTER O WITH TILDE */ ,	/* 501 */
+	/* U+00F6 */ 0x94 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,	/* 502 */
+	/* U+00F7 */ 0xF6 /*                                 DIVISION SIGN */ ,	/* 503 */
+	/* U+00F8 */ 0x9B /*              LATIN SMALL LETTER O WITH STROKE */ ,	/* 504 */
+	/* U+00F9 */ 0x97 /*               LATIN SMALL LETTER U WITH GRAVE */ ,	/* 505 */
+	/* U+00FA */ 0xA3 /*               LATIN SMALL LETTER U WITH ACUTE */ ,	/* 506 */
+	/* U+00FB */ 0x96 /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,	/* 507 */
+	/* U+00FC */ 0x81 /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,	/* 508 */
+	/* U+00FD */ 0xEC /*               LATIN SMALL LETTER Y WITH ACUTE */ ,	/* 509 */
+	/* U+00FE */ 0xE7 /*                      LATIN SMALL LETTER THORN */ ,	/* 510 */
+	/* U+00FF */ 0x98 /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,	/* 511 */
+										/* U+0100 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0101 */ CANT_MAP_CHARACTER,
+										/* 513 */
+										/* U+0102 */ CANT_MAP_CHARACTER,
+										/* 514 */
+										/* U+0103 */ CANT_MAP_CHARACTER,
+										/* 515 */
+										/* U+0104 */ CANT_MAP_CHARACTER,
+										/* 516 */
+										/* U+0105 */ CANT_MAP_CHARACTER,
+										/* 517 */
+										/* U+0106 */ CANT_MAP_CHARACTER,
+										/* 518 */
+										/* U+0107 */ CANT_MAP_CHARACTER,
+										/* 519 */
+										/* U+0108 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0109 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+010A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+010B */ CANT_MAP_CHARACTER,
+										/* 523 */
+										/* U+010C */ CANT_MAP_CHARACTER,
+										/* 524 */
+										/* U+010D */ CANT_MAP_CHARACTER,
+										/* 525 */
+										/* U+010E */ CANT_MAP_CHARACTER,
+										/* 526 */
+										/* U+010F */ CANT_MAP_CHARACTER,
+										/* 527 */
+										/* U+0110 */ CANT_MAP_CHARACTER,
+										/* 528 */
+										/* U+0111 */ CANT_MAP_CHARACTER,
+										/* 529 */
+										/* U+0112 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0113 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0114 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0115 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0116 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0117 */ CANT_MAP_CHARACTER,
+										/* 535 */
+										/* U+0118 */ CANT_MAP_CHARACTER,
+										/* 536 */
+										/* U+0119 */ CANT_MAP_CHARACTER,
+										/* 537 */
+										/* U+011A */ CANT_MAP_CHARACTER,
+										/* 538 */
+										/* U+011B */ CANT_MAP_CHARACTER,
+										/* 539 */
+										/* U+011C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+011D */ CANT_MAP_CHARACTER,
+										/* 541 */
+										/* U+011E */ CANT_MAP_CHARACTER,
+										/* 542 */
+										/* U+011F */ CANT_MAP_CHARACTER,
+										/* 543 */
+										/* U+0120 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0121 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0122 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0123 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0124 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0125 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0126 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0127 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0128 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0129 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+012A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+012B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+012C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+012D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+012E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+012F */ CANT_MAP_CHARACTER,
+										/* 559 */
+										/* U+0130 */ CANT_MAP_CHARACTER,
+										/* 560 */
+	/* U+0131 */ 0xD5 /*                  LATIN SMALL LETTER DOTLESS I */ ,	/* 561 */
+										/* U+0132 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0133 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0134 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0135 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0136 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0137 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0138 */ CANT_MAP_CHARACTER,
+										/* 568 */
+										/* U+0139 */ CANT_MAP_CHARACTER,
+										/* 569 */
+										/* U+013A */ CANT_MAP_CHARACTER,
+										/* 570 */
+										/* U+013B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+013C */ CANT_MAP_CHARACTER,
+										/* 572 */
+										/* U+013D */ CANT_MAP_CHARACTER,
+										/* 573 */
+										/* U+013E */ CANT_MAP_CHARACTER,
+										/* 574 */
+										/* U+013F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0140 */ CANT_MAP_CHARACTER,
+										/* 576 */
+										/* U+0141 */ CANT_MAP_CHARACTER,
+										/* 577 */
+										/* U+0142 */ CANT_MAP_CHARACTER,
+										/* 578 */
+										/* U+0143 */ CANT_MAP_CHARACTER,
+										/* 579 */
+										/* U+0144 */ CANT_MAP_CHARACTER,
+										/* 580 */
+										/* U+0145 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0146 */ CANT_MAP_CHARACTER,
+										/* 582 */
+										/* U+0147 */ CANT_MAP_CHARACTER,
+										/* 583 */
+										/* U+0148 */ CANT_MAP_CHARACTER,
+										/* 584 */
+										/* U+0149 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+014A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+014B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+014C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+014D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+014E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+014F */ CANT_MAP_CHARACTER,
+										/* 591 */
+										/* U+0150 */ CANT_MAP_CHARACTER,
+										/* 592 */
+										/* U+0151 */ CANT_MAP_CHARACTER,
+										/* 593 */
+										/* U+0152 */ CANT_MAP_CHARACTER,
+										/* 594 */
+										/* U+0153 */ CANT_MAP_CHARACTER,
+										/* 595 */
+										/* U+0154 */ CANT_MAP_CHARACTER,
+										/* 596 */
+										/* U+0155 */ CANT_MAP_CHARACTER,
+										/* 597 */
+										/* U+0156 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0157 */ CANT_MAP_CHARACTER,
+										/* 599 */
+										/* U+0158 */ CANT_MAP_CHARACTER,
+										/* 600 */
+										/* U+0159 */ CANT_MAP_CHARACTER,
+										/* 601 */
+										/* U+015A */ CANT_MAP_CHARACTER,
+										/* 602 */
+										/* U+015B */ CANT_MAP_CHARACTER,
+										/* 603 */
+										/* U+015C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+015D */ CANT_MAP_CHARACTER,
+										/* 605 */
+										/* U+015E */ CANT_MAP_CHARACTER,
+										/* 606 */
+										/* U+015F */ CANT_MAP_CHARACTER,
+										/* 607 */
+										/* U+0160 */ CANT_MAP_CHARACTER,
+										/* 608 */
+										/* U+0161 */ CANT_MAP_CHARACTER,
+										/* 609 */
+										/* U+0162 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0163 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0164 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0165 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0166 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0167 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0168 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0169 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+016A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+016B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+016C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+016D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+016E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+016F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0170 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0171 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0172 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0173 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0174 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0175 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0176 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0177 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0178 */ CANT_MAP_CHARACTER,
+										/* 632 */
+										/* U+0179 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+017A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+017B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+017C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+017D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+017E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+017F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0180 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0181 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0182 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0183 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0184 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0185 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0186 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0187 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0188 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0189 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+018A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+018B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+018C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+018D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+018E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+018F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0190 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0191 */ CANT_MAP_CHARACTER,
+										/* 657 */
+	/* U+0192 */ 0x9F /*                LATIN SMALL LETTER F WITH HOOK */ ,	/* 658 */
+										/* U+0193 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0194 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0195 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0196 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0197 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0198 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0199 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+019A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+019B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+019C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+019D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+019E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+019F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+01A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+01A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+01A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+01A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+01A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+01A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+01A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+01A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+01A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+01A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+01AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+01AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+01AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+01AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+01AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+01AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+01B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+01B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+01B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+01B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+01B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+01B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+01B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+01B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+01B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+01B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+01BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+01BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+01BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+01BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+01BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+01BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+01C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+01C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+01C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+01C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+01C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+01C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+01C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+01C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+01C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+01C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+01CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+01CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+01CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+01CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+01CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+01CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+01D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+01D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+01D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+01D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+01D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+01D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+01D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+01D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+01D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+01D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+01DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+01DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+01DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+01DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+01DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+01DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+01E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+01E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+01E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+01E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+01E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+01E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+01E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+01E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+01E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+01E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+01EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+01EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+01EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+01ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+01EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+01EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+01F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+01F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+01F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+01F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+01F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+01F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+01F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+01F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+01F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+01F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+01FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+01FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+01FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+01FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+01FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+01FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+2013 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+2014 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 790 */
+	/* U+2017 */ 0xF2 /*                               DOUBLE LOW LINE */ ,	/* 791 */
+										/* U+2018 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+2019 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+201A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+201C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+201D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+201E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+2020 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+2021 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+2022 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+2026 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+2030 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+2039 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+203A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+207F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 914 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 915 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 919 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 920 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 931 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 934 */
+										/* U+20A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 937 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+20AC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 945 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 948 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 949 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 960 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 963 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 964 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 966 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 967 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 987 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 988 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+	/* U+2500 */ 0xC4 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,	/* 1024 */
+										/* U+2501 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+	/* U+2502 */ 0xB3 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,	/* 1026 */
+										/* U+2503 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2504 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2505 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2506 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2507 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2508 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2509 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+250A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+250B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+	/* U+250C */ 0xDA /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,	/* 1036 */
+										/* U+250D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+250E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+250F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+	/* U+2510 */ 0xBF /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,	/* 1040 */
+										/* U+2511 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2512 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+										/* U+2513 */ CANT_MAP_CHARACTER,
+										/* 1043 */
+	/* U+2514 */ 0xC0 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,	/* 1044 */
+										/* U+2515 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+										/* U+2516 */ CANT_MAP_CHARACTER,
+										/* 1046 */
+										/* U+2517 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+	/* U+2518 */ 0xD9 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,	/* 1048 */
+										/* U+2519 */ CANT_MAP_CHARACTER,
+										/* 1049 */
+										/* U+251A */ CANT_MAP_CHARACTER,
+										/* 1050 */
+										/* U+251B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+	/* U+251C */ 0xC3 /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,	/* 1052 */
+										/* U+251D */ CANT_MAP_CHARACTER,
+										/* 1053 */
+										/* U+251E */ CANT_MAP_CHARACTER,
+										/* 1054 */
+										/* U+251F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+										/* U+2520 */ CANT_MAP_CHARACTER,
+										/* 1056 */
+										/* U+2521 */ CANT_MAP_CHARACTER,
+										/* 1057 */
+										/* U+2522 */ CANT_MAP_CHARACTER,
+										/* 1058 */
+										/* U+2523 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+	/* U+2524 */ 0xB4 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,	/* 1060 */
+										/* U+2525 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+										/* U+2526 */ CANT_MAP_CHARACTER,
+										/* 1062 */
+										/* U+2527 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2528 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2529 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+252A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+252B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+	/* U+252C */ 0xC2 /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,	/* 1068 */
+										/* U+252D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+252E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+252F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+										/* U+2530 */ CANT_MAP_CHARACTER,
+										/* 1072 */
+										/* U+2531 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2532 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2533 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+	/* U+2534 */ 0xC1 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,	/* 1076 */
+										/* U+2535 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2536 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2537 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2538 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+										/* U+2539 */ CANT_MAP_CHARACTER,
+										/* 1081 */
+										/* U+253A */ CANT_MAP_CHARACTER,
+										/* 1082 */
+										/* U+253B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+	/* U+253C */ 0xC5 /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,	/* 1084 */
+										/* U+253D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+253E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+253F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2540 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2541 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2542 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2543 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2544 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2545 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2546 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2547 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2548 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2549 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+254A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+254B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+254C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+254D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+254E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+254F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+	/* U+2550 */ 0xCD /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,	/* 1104 */
+	/* U+2551 */ 0xBA /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,	/* 1105 */
+										/* U+2552 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2553 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+	/* U+2554 */ 0xC9 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,	/* 1108 */
+										/* U+2555 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2556 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+	/* U+2557 */ 0xBB /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,	/* 1111 */
+										/* U+2558 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2559 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+	/* U+255A */ 0xC8 /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,	/* 1114 */
+										/* U+255B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+255C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+	/* U+255D */ 0xBC /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,	/* 1117 */
+										/* U+255E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+255F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+	/* U+2560 */ 0xCC /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,	/* 1120 */
+										/* U+2561 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2562 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+	/* U+2563 */ 0xB9 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,	/* 1123 */
+										/* U+2564 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2565 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+	/* U+2566 */ 0xCB /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,	/* 1126 */
+										/* U+2567 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2568 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+	/* U+2569 */ 0xCA /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,	/* 1129 */
+										/* U+256A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+256B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+	/* U+256C */ 0xCE /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,	/* 1132 */
+										/* U+256D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+256E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+256F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2570 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2571 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2572 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2573 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2574 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2575 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2576 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2577 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2578 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2579 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+257A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+257B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+257C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+257D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+257E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+										/* U+257F */ CANT_MAP_CHARACTER,
+										/* 1151 */
+	/* U+2580 */ 0xDF /*                              UPPER HALF BLOCK */ ,	/* 1152 */
+										/* U+2581 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2582 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2583 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+	/* U+2584 */ 0xDC /*                              LOWER HALF BLOCK */ ,	/* 1156 */
+										/* U+2585 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2586 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2587 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+	/* U+2588 */ 0xDB /*                                    FULL BLOCK */ ,	/* 1160 */
+										/* U+2589 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+258A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+258B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+258C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+258D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+258E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+258F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2590 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+	/* U+2591 */ 0xB0 /*                                   LIGHT SHADE */ ,	/* 1169 */
+	/* U+2592 */ 0xB1 /*                                  MEDIUM SHADE */ ,	/* 1170 */
+	/* U+2593 */ 0xB2 /*                                    DARK SHADE */ ,	/* 1171 */
+										/* U+2594 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2595 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2596 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2597 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2598 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2599 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+259A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+259B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+259C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+259D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+259E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+259F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+	/* U+25A0 */ 0xFE /*                                  BLACK SQUARE */ ,	/* 1184 */
+										/* U+25A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+25A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+25A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+25A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+25A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+25A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+										/* U+25A7 */ CANT_MAP_CHARACTER,
+										/* 1191 */
+										/* U+25A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+25A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+25AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+25AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+										/* U+25AC */ CANT_MAP_CHARACTER,
+										/* 1196 */
+										/* U+25AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+25AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+25AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+25B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+25B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+25B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+25B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+25B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+25B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+25B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+25B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+25B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+25B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+25BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+25BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+25BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+25BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+25BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+25BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+25C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+25C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+25C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+25C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+25C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+25C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+25C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+25C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+25C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+25C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+25CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+25CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+25CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+25CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+25CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+25CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+25D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+25D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+25D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+25D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+25D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+25D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+25D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+25D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+25D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+25D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+25DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+25DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+25DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+25DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+25DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+25DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+25E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+25E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+25E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+25E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+25E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+25E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+25E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+25E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+25E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+25E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+25EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+25EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+25EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+25ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+25EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+25EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+25F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+25F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+25F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+25F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+25F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+25F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+25F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+25F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+25F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+25F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+25FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+25FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+25FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+25FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+25FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+25FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 512,
+/* U+02-- */ 0,
+/* U+03-- */ 0,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 768,
+/* U+21-- */ 0,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 1024,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_852.h b/src/intl/cs_852.h
new file mode 100644
index 0000000000..cfb1af164e
--- /dev/null
+++ b/src/intl/cs_852.h
@@ -0,0 +1,3125 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/PC/CP852.TXT 
+
+#
+#    Name:     cp852_DOSLatin2 to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/24/96
+#    Authors:       Lori Brownell <loribr@microsoft.com>
+#                   K.D. Chang    <a-kchang@microsoft.com>
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp852_DOSLatin2 code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp852_DOSLatin2 order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0a	0x000a	#LINE FEED
+0x0b	0x000b	#VERTICAL TABULATION
+0x0c	0x000c	#FORM FEED
+0x0d	0x000d	#CARRIAGE RETURN
+0x0e	0x000e	#SHIFT OUT
+0x0f	0x000f	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1a	0x001a	#SUBSTITUTE
+0x1b	0x001b	#ESCAPE
+0x1c	0x001c	#FILE SEPARATOR
+0x1d	0x001d	#GROUP SEPARATOR
+0x1e	0x001e	#RECORD SEPARATOR
+0x1f	0x001f	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2a	0x002a	#ASTERISK
+0x2b	0x002b	#PLUS SIGN
+0x2c	0x002c	#COMMA
+0x2d	0x002d	#HYPHEN-MINUS
+0x2e	0x002e	#FULL STOP
+0x2f	0x002f	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3a	0x003a	#COLON
+0x3b	0x003b	#SEMICOLON
+0x3c	0x003c	#LESS-THAN SIGN
+0x3d	0x003d	#EQUALS SIGN
+0x3e	0x003e	#GREATER-THAN SIGN
+0x3f	0x003f	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4a	0x004a	#LATIN CAPITAL LETTER J
+0x4b	0x004b	#LATIN CAPITAL LETTER K
+0x4c	0x004c	#LATIN CAPITAL LETTER L
+0x4d	0x004d	#LATIN CAPITAL LETTER M
+0x4e	0x004e	#LATIN CAPITAL LETTER N
+0x4f	0x004f	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5a	0x005a	#LATIN CAPITAL LETTER Z
+0x5b	0x005b	#LEFT SQUARE BRACKET
+0x5c	0x005c	#REVERSE SOLIDUS
+0x5d	0x005d	#RIGHT SQUARE BRACKET
+0x5e	0x005e	#CIRCUMFLEX ACCENT
+0x5f	0x005f	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6a	0x006a	#LATIN SMALL LETTER J
+0x6b	0x006b	#LATIN SMALL LETTER K
+0x6c	0x006c	#LATIN SMALL LETTER L
+0x6d	0x006d	#LATIN SMALL LETTER M
+0x6e	0x006e	#LATIN SMALL LETTER N
+0x6f	0x006f	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7a	0x007a	#LATIN SMALL LETTER Z
+0x7b	0x007b	#LEFT CURLY BRACKET
+0x7c	0x007c	#VERTICAL LINE
+0x7d	0x007d	#RIGHT CURLY BRACKET
+0x7e	0x007e	#TILDE
+0x7f	0x007f	#DELETE
+0x80	0x00c7	#LATIN CAPITAL LETTER C WITH CEDILLA
+0x81	0x00fc	#LATIN SMALL LETTER U WITH DIAERESIS
+0x82	0x00e9	#LATIN SMALL LETTER E WITH ACUTE
+0x83	0x00e2	#LATIN SMALL LETTER A WITH CIRCUMFLEX
+0x84	0x00e4	#LATIN SMALL LETTER A WITH DIAERESIS
+0x85	0x016f	#LATIN SMALL LETTER U WITH RING ABOVE
+0x86	0x0107	#LATIN SMALL LETTER C WITH ACUTE
+0x87	0x00e7	#LATIN SMALL LETTER C WITH CEDILLA
+0x88	0x0142	#LATIN SMALL LETTER L WITH STROKE
+0x89	0x00eb	#LATIN SMALL LETTER E WITH DIAERESIS
+0x8a	0x0150	#LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+0x8b	0x0151	#LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0x8c	0x00ee	#LATIN SMALL LETTER I WITH CIRCUMFLEX
+0x8d	0x0179	#LATIN CAPITAL LETTER Z WITH ACUTE
+0x8e	0x00c4	#LATIN CAPITAL LETTER A WITH DIAERESIS
+0x8f	0x0106	#LATIN CAPITAL LETTER C WITH ACUTE
+0x90	0x00c9	#LATIN CAPITAL LETTER E WITH ACUTE
+0x91	0x0139	#LATIN CAPITAL LETTER L WITH ACUTE
+0x92	0x013a	#LATIN SMALL LETTER L WITH ACUTE
+0x93	0x00f4	#LATIN SMALL LETTER O WITH CIRCUMFLEX
+0x94	0x00f6	#LATIN SMALL LETTER O WITH DIAERESIS
+0x95	0x013d	#LATIN CAPITAL LETTER L WITH CARON
+0x96	0x013e	#LATIN SMALL LETTER L WITH CARON
+0x97	0x015a	#LATIN CAPITAL LETTER S WITH ACUTE
+0x98	0x015b	#LATIN SMALL LETTER S WITH ACUTE
+0x99	0x00d6	#LATIN CAPITAL LETTER O WITH DIAERESIS
+0x9a	0x00dc	#LATIN CAPITAL LETTER U WITH DIAERESIS
+0x9b	0x0164	#LATIN CAPITAL LETTER T WITH CARON
+0x9c	0x0165	#LATIN SMALL LETTER T WITH CARON
+0x9d	0x0141	#LATIN CAPITAL LETTER L WITH STROKE
+0x9e	0x00d7	#MULTIPLICATION SIGN
+0x9f	0x010d	#LATIN SMALL LETTER C WITH CARON
+0xa0	0x00e1	#LATIN SMALL LETTER A WITH ACUTE
+0xa1	0x00ed	#LATIN SMALL LETTER I WITH ACUTE
+0xa2	0x00f3	#LATIN SMALL LETTER O WITH ACUTE
+0xa3	0x00fa	#LATIN SMALL LETTER U WITH ACUTE
+0xa4	0x0104	#LATIN CAPITAL LETTER A WITH OGONEK
+0xa5	0x0105	#LATIN SMALL LETTER A WITH OGONEK
+0xa6	0x017d	#LATIN CAPITAL LETTER Z WITH CARON
+0xa7	0x017e	#LATIN SMALL LETTER Z WITH CARON
+0xa8	0x0118	#LATIN CAPITAL LETTER E WITH OGONEK
+0xa9	0x0119	#LATIN SMALL LETTER E WITH OGONEK
+0xaa	0x00ac	#NOT SIGN
+0xab	0x017a	#LATIN SMALL LETTER Z WITH ACUTE
+0xac	0x010c	#LATIN CAPITAL LETTER C WITH CARON
+0xad	0x015f	#LATIN SMALL LETTER S WITH CEDILLA
+0xae	0x00ab	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xaf	0x00bb	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xb0	0x2591	#LIGHT SHADE
+0xb1	0x2592	#MEDIUM SHADE
+0xb2	0x2593	#DARK SHADE
+0xb3	0x2502	#BOX DRAWINGS LIGHT VERTICAL
+0xb4	0x2524	#BOX DRAWINGS LIGHT VERTICAL AND LEFT
+0xb5	0x00c1	#LATIN CAPITAL LETTER A WITH ACUTE
+0xb6	0x00c2	#LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0xb7	0x011a	#LATIN CAPITAL LETTER E WITH CARON
+0xb8	0x015e	#LATIN CAPITAL LETTER S WITH CEDILLA
+0xb9	0x2563	#BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+0xba	0x2551	#BOX DRAWINGS DOUBLE VERTICAL
+0xbb	0x2557	#BOX DRAWINGS DOUBLE DOWN AND LEFT
+0xbc	0x255d	#BOX DRAWINGS DOUBLE UP AND LEFT
+0xbd	0x017b	#LATIN CAPITAL LETTER Z WITH DOT ABOVE
+0xbe	0x017c	#LATIN SMALL LETTER Z WITH DOT ABOVE
+0xbf	0x2510	#BOX DRAWINGS LIGHT DOWN AND LEFT
+0xc0	0x2514	#BOX DRAWINGS LIGHT UP AND RIGHT
+0xc1	0x2534	#BOX DRAWINGS LIGHT UP AND HORIZONTAL
+0xc2	0x252c	#BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+0xc3	0x251c	#BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+0xc4	0x2500	#BOX DRAWINGS LIGHT HORIZONTAL
+0xc5	0x253c	#BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+0xc6	0x0102	#LATIN CAPITAL LETTER A WITH BREVE
+0xc7	0x0103	#LATIN SMALL LETTER A WITH BREVE
+0xc8	0x255a	#BOX DRAWINGS DOUBLE UP AND RIGHT
+0xc9	0x2554	#BOX DRAWINGS DOUBLE DOWN AND RIGHT
+0xca	0x2569	#BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+0xcb	0x2566	#BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+0xcc	0x2560	#BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+0xcd	0x2550	#BOX DRAWINGS DOUBLE HORIZONTAL
+0xce	0x256c	#BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+0xcf	0x00a4	#CURRENCY SIGN
+0xd0	0x0111	#LATIN SMALL LETTER D WITH STROKE
+0xd1	0x0110	#LATIN CAPITAL LETTER D WITH STROKE
+0xd2	0x010e	#LATIN CAPITAL LETTER D WITH CARON
+0xd3	0x00cb	#LATIN CAPITAL LETTER E WITH DIAERESIS
+0xd4	0x010f	#LATIN SMALL LETTER D WITH CARON
+0xd5	0x0147	#LATIN CAPITAL LETTER N WITH CARON
+0xd6	0x00cd	#LATIN CAPITAL LETTER I WITH ACUTE
+0xd7	0x00ce	#LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+0xd8	0x011b	#LATIN SMALL LETTER E WITH CARON
+0xd9	0x2518	#BOX DRAWINGS LIGHT UP AND LEFT
+0xda	0x250c	#BOX DRAWINGS LIGHT DOWN AND RIGHT
+0xdb	0x2588	#FULL BLOCK
+0xdc	0x2584	#LOWER HALF BLOCK
+0xdd	0x0162	#LATIN CAPITAL LETTER T WITH CEDILLA
+0xde	0x016e	#LATIN CAPITAL LETTER U WITH RING ABOVE
+0xdf	0x2580	#UPPER HALF BLOCK
+0xe0	0x00d3	#LATIN CAPITAL LETTER O WITH ACUTE
+0xe1	0x00df	#LATIN SMALL LETTER SHARP S
+0xe2	0x00d4	#LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+0xe3	0x0143	#LATIN CAPITAL LETTER N WITH ACUTE
+0xe4	0x0144	#LATIN SMALL LETTER N WITH ACUTE
+0xe5	0x0148	#LATIN SMALL LETTER N WITH CARON
+0xe6	0x0160	#LATIN CAPITAL LETTER S WITH CARON
+0xe7	0x0161	#LATIN SMALL LETTER S WITH CARON
+0xe8	0x0154	#LATIN CAPITAL LETTER R WITH ACUTE
+0xe9	0x00da	#LATIN CAPITAL LETTER U WITH ACUTE
+0xea	0x0155	#LATIN SMALL LETTER R WITH ACUTE
+0xeb	0x0170	#LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0xec	0x00fd	#LATIN SMALL LETTER Y WITH ACUTE
+0xed	0x00dd	#LATIN CAPITAL LETTER Y WITH ACUTE
+0xee	0x0163	#LATIN SMALL LETTER T WITH CEDILLA
+0xef	0x00b4	#ACUTE ACCENT
+0xf0	0x00ad	#SOFT HYPHEN
+0xf1	0x02dd	#DOUBLE ACUTE ACCENT
+0xf2	0x02db	#OGONEK
+0xf3	0x02c7	#CARON
+0xf4	0x02d8	#BREVE
+0xf5	0x00a7	#SECTION SIGN
+0xf6	0x00f7	#DIVISION SIGN
+0xf7	0x00b8	#CEDILLA
+0xf8	0x00b0	#DEGREE SIGN
+0xf9	0x00a8	#DIAERESIS
+0xfa	0x02d9	#DOT ABOVE
+0xfb	0x0171	#LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0xfc	0x0158	#LATIN CAPITAL LETTER R WITH CARON
+0xfd	0x0159	#LATIN SMALL LETTER R WITH CARON
+0xfe	0x25a0	#BLACK SQUARE
+0xff	0x00a0	#NO-BREAK SPACE
+
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x00C7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,
+	/* 81 */ 0x00FC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,
+	/* 82 */ 0x00E9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,
+	/* 83 */ 0x00E2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,
+	/* 84 */ 0x00E4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,
+	/* 85 */ 0x016F /*          LATIN SMALL LETTER U WITH RING ABOVE */ ,
+	/* 86 */ 0x0107 /*               LATIN SMALL LETTER C WITH ACUTE */ ,
+	/* 87 */ 0x00E7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,
+	/* 88 */ 0x0142 /*              LATIN SMALL LETTER L WITH STROKE */ ,
+	/* 89 */ 0x00EB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,
+	/* 8A */ 0x0150 /*      LATIN CAPITAL LETTER O WITH DOUBLE ACUTE */ ,
+	/* 8B */ 0x0151 /*        LATIN SMALL LETTER O WITH DOUBLE ACUTE */ ,
+	/* 8C */ 0x00EE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,
+	/* 8D */ 0x0179 /*             LATIN CAPITAL LETTER Z WITH ACUTE */ ,
+	/* 8E */ 0x00C4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,
+	/* 8F */ 0x0106 /*             LATIN CAPITAL LETTER C WITH ACUTE */ ,
+	/* 90 */ 0x00C9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,
+	/* 91 */ 0x0139 /*             LATIN CAPITAL LETTER L WITH ACUTE */ ,
+	/* 92 */ 0x013A /*               LATIN SMALL LETTER L WITH ACUTE */ ,
+	/* 93 */ 0x00F4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,
+	/* 94 */ 0x00F6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,
+	/* 95 */ 0x013D /*             LATIN CAPITAL LETTER L WITH CARON */ ,
+	/* 96 */ 0x013E /*               LATIN SMALL LETTER L WITH CARON */ ,
+	/* 97 */ 0x015A /*             LATIN CAPITAL LETTER S WITH ACUTE */ ,
+	/* 98 */ 0x015B /*               LATIN SMALL LETTER S WITH ACUTE */ ,
+	/* 99 */ 0x00D6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,
+	/* 9A */ 0x00DC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,
+	/* 9B */ 0x0164 /*             LATIN CAPITAL LETTER T WITH CARON */ ,
+	/* 9C */ 0x0165 /*               LATIN SMALL LETTER T WITH CARON */ ,
+	/* 9D */ 0x0141 /*            LATIN CAPITAL LETTER L WITH STROKE */ ,
+	/* 9E */ 0x00D7 /*                           MULTIPLICATION SIGN */ ,
+	/* 9F */ 0x010D /*               LATIN SMALL LETTER C WITH CARON */ ,
+	/* A0 */ 0x00E1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,
+	/* A1 */ 0x00ED /*               LATIN SMALL LETTER I WITH ACUTE */ ,
+	/* A2 */ 0x00F3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,
+	/* A3 */ 0x00FA /*               LATIN SMALL LETTER U WITH ACUTE */ ,
+	/* A4 */ 0x0104 /*            LATIN CAPITAL LETTER A WITH OGONEK */ ,
+	/* A5 */ 0x0105 /*              LATIN SMALL LETTER A WITH OGONEK */ ,
+	/* A6 */ 0x017D /*             LATIN CAPITAL LETTER Z WITH CARON */ ,
+	/* A7 */ 0x017E /*               LATIN SMALL LETTER Z WITH CARON */ ,
+	/* A8 */ 0x0118 /*            LATIN CAPITAL LETTER E WITH OGONEK */ ,
+	/* A9 */ 0x0119 /*              LATIN SMALL LETTER E WITH OGONEK */ ,
+	/* AA */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AB */ 0x017A /*               LATIN SMALL LETTER Z WITH ACUTE */ ,
+	/* AC */ 0x010C /*             LATIN CAPITAL LETTER C WITH CARON */ ,
+	/* AD */ 0x015F /*             LATIN SMALL LETTER S WITH CEDILLA */ ,
+	/* AE */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AF */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* B0 */ 0x2591 /*                                   LIGHT SHADE */ ,
+	/* B1 */ 0x2592 /*                                  MEDIUM SHADE */ ,
+	/* B2 */ 0x2593 /*                                    DARK SHADE */ ,
+	/* B3 */ 0x2502 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,
+	/* B4 */ 0x2524 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,
+	/* B5 */ 0x00C1 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,
+	/* B6 */ 0x00C2 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,
+	/* B7 */ 0x011A /*             LATIN CAPITAL LETTER E WITH CARON */ ,
+	/* B8 */ 0x015E /*           LATIN CAPITAL LETTER S WITH CEDILLA */ ,
+	/* B9 */ 0x2563 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,
+	/* BA */ 0x2551 /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,
+	/* BB */ 0x2557 /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,
+	/* BC */ 0x255D /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,
+	/* BD */ 0x017B /*         LATIN CAPITAL LETTER Z WITH DOT ABOVE */ ,
+	/* BE */ 0x017C /*           LATIN SMALL LETTER Z WITH DOT ABOVE */ ,
+	/* BF */ 0x2510 /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,
+	/* C0 */ 0x2514 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,
+	/* C1 */ 0x2534 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,
+	/* C2 */ 0x252C /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,
+	/* C3 */ 0x251C /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,
+	/* C4 */ 0x2500 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,
+	/* C5 */ 0x253C /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,
+	/* C6 */ 0x0102 /*             LATIN CAPITAL LETTER A WITH BREVE */ ,
+	/* C7 */ 0x0103 /*               LATIN SMALL LETTER A WITH BREVE */ ,
+	/* C8 */ 0x255A /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,
+	/* C9 */ 0x2554 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,
+	/* CA */ 0x2569 /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,
+	/* CB */ 0x2566 /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,
+	/* CC */ 0x2560 /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,
+	/* CD */ 0x2550 /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,
+	/* CE */ 0x256C /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,
+	/* CF */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* D0 */ 0x0111 /*              LATIN SMALL LETTER D WITH STROKE */ ,
+	/* D1 */ 0x0110 /*            LATIN CAPITAL LETTER D WITH STROKE */ ,
+	/* D2 */ 0x010E /*             LATIN CAPITAL LETTER D WITH CARON */ ,
+	/* D3 */ 0x00CB /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,
+	/* D4 */ 0x010F /*               LATIN SMALL LETTER D WITH CARON */ ,
+	/* D5 */ 0x0147 /*             LATIN CAPITAL LETTER N WITH CARON */ ,
+	/* D6 */ 0x00CD /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,
+	/* D7 */ 0x00CE /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,
+	/* D8 */ 0x011B /*               LATIN SMALL LETTER E WITH CARON */ ,
+	/* D9 */ 0x2518 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,
+	/* DA */ 0x250C /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,
+	/* DB */ 0x2588 /*                                    FULL BLOCK */ ,
+	/* DC */ 0x2584 /*                              LOWER HALF BLOCK */ ,
+	/* DD */ 0x0162 /*           LATIN CAPITAL LETTER T WITH CEDILLA */ ,
+	/* DE */ 0x016E /*        LATIN CAPITAL LETTER U WITH RING ABOVE */ ,
+	/* DF */ 0x2580 /*                              UPPER HALF BLOCK */ ,
+	/* E0 */ 0x00D3 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,
+	/* E1 */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* E2 */ 0x00D4 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,
+	/* E3 */ 0x0143 /*             LATIN CAPITAL LETTER N WITH ACUTE */ ,
+	/* E4 */ 0x0144 /*               LATIN SMALL LETTER N WITH ACUTE */ ,
+	/* E5 */ 0x0148 /*               LATIN SMALL LETTER N WITH CARON */ ,
+	/* E6 */ 0x0160 /*             LATIN CAPITAL LETTER S WITH CARON */ ,
+	/* E7 */ 0x0161 /*               LATIN SMALL LETTER S WITH CARON */ ,
+	/* E8 */ 0x0154 /*             LATIN CAPITAL LETTER R WITH ACUTE */ ,
+	/* E9 */ 0x00DA /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,
+	/* EA */ 0x0155 /*               LATIN SMALL LETTER R WITH ACUTE */ ,
+	/* EB */ 0x0170 /*      LATIN CAPITAL LETTER U WITH DOUBLE ACUTE */ ,
+	/* EC */ 0x00FD /*               LATIN SMALL LETTER Y WITH ACUTE */ ,
+	/* ED */ 0x00DD /*             LATIN CAPITAL LETTER Y WITH ACUTE */ ,
+	/* EE */ 0x0163 /*             LATIN SMALL LETTER T WITH CEDILLA */ ,
+	/* EF */ 0x00B4 /*                                  ACUTE ACCENT */ ,
+	/* F0 */ 0x00AD /*                                   SOFT HYPHEN */ ,
+	/* F1 */ 0x02DD /*                           DOUBLE ACUTE ACCENT */ ,
+	/* F2 */ 0x02DB /*                                        OGONEK */ ,
+	/* F3 */ 0x02C7 /*                                         CARON */ ,
+	/* F4 */ 0x02D8 /*                                         BREVE */ ,
+	/* F5 */ 0x00A7 /*                                  SECTION SIGN */ ,
+	/* F6 */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* F7 */ 0x00B8 /*                                       CEDILLA */ ,
+	/* F8 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* F9 */ 0x00A8 /*                                     DIAERESIS */ ,
+	/* FA */ 0x02D9 /*                                     DOT ABOVE */ ,
+	/* FB */ 0x0171 /*        LATIN SMALL LETTER U WITH DOUBLE ACUTE */ ,
+	/* FC */ 0x0158 /*             LATIN CAPITAL LETTER R WITH CARON */ ,
+	/* FD */ 0x0159 /*               LATIN SMALL LETTER R WITH CARON */ ,
+	/* FE */ 0x25A0 /*                                  BLACK SQUARE */ ,
+	/* FF */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xFF /*                                NO-BREAK SPACE */ ,	/* 416 */
+										/* U+00A1 */ CANT_MAP_CHARACTER,
+										/* 417 */
+										/* U+00A2 */ CANT_MAP_CHARACTER,
+										/* 418 */
+										/* U+00A3 */ CANT_MAP_CHARACTER,
+										/* 419 */
+	/* U+00A4 */ 0xCF /*                                 CURRENCY SIGN */ ,	/* 420 */
+										/* U+00A5 */ CANT_MAP_CHARACTER,
+										/* 421 */
+										/* U+00A6 */ CANT_MAP_CHARACTER,
+										/* 422 */
+	/* U+00A7 */ 0xF5 /*                                  SECTION SIGN */ ,	/* 423 */
+	/* U+00A8 */ 0xF9 /*                                     DIAERESIS */ ,	/* 424 */
+										/* U+00A9 */ CANT_MAP_CHARACTER,
+										/* 425 */
+										/* U+00AA */ CANT_MAP_CHARACTER,
+										/* 426 */
+	/* U+00AB */ 0xAE /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAA /*                                      NOT SIGN */ ,	/* 428 */
+	/* U+00AD */ 0xF0 /*                                   SOFT HYPHEN */ ,	/* 429 */
+										/* U+00AE */ CANT_MAP_CHARACTER,
+										/* 430 */
+										/* U+00AF */ CANT_MAP_CHARACTER,
+										/* 431 */
+	/* U+00B0 */ 0xF8 /*                                   DEGREE SIGN */ ,	/* 432 */
+										/* U+00B1 */ CANT_MAP_CHARACTER,
+										/* 433 */
+										/* U+00B2 */ CANT_MAP_CHARACTER,
+										/* 434 */
+										/* U+00B3 */ CANT_MAP_CHARACTER,
+										/* 435 */
+	/* U+00B4 */ 0xEF /*                                  ACUTE ACCENT */ ,	/* 436 */
+										/* U+00B5 */ CANT_MAP_CHARACTER,
+										/* 437 */
+										/* U+00B6 */ CANT_MAP_CHARACTER,
+										/* 438 */
+										/* U+00B7 */ CANT_MAP_CHARACTER,
+										/* 439 */
+	/* U+00B8 */ 0xF7 /*                                       CEDILLA */ ,	/* 440 */
+										/* U+00B9 */ CANT_MAP_CHARACTER,
+										/* 441 */
+										/* U+00BA */ CANT_MAP_CHARACTER,
+										/* 442 */
+	/* U+00BB */ 0xAF /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+										/* U+00BC */ CANT_MAP_CHARACTER,
+										/* 444 */
+										/* U+00BD */ CANT_MAP_CHARACTER,
+										/* 445 */
+										/* U+00BE */ CANT_MAP_CHARACTER,
+										/* 446 */
+										/* U+00BF */ CANT_MAP_CHARACTER,
+										/* 447 */
+										/* U+00C0 */ CANT_MAP_CHARACTER,
+										/* 448 */
+	/* U+00C1 */ 0xB5 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,	/* 449 */
+	/* U+00C2 */ 0xB6 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,	/* 450 */
+										/* U+00C3 */ CANT_MAP_CHARACTER,
+										/* 451 */
+	/* U+00C4 */ 0x8E /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,	/* 452 */
+										/* U+00C5 */ CANT_MAP_CHARACTER,
+										/* 453 */
+										/* U+00C6 */ CANT_MAP_CHARACTER,
+										/* 454 */
+	/* U+00C7 */ 0x80 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,	/* 455 */
+										/* U+00C8 */ CANT_MAP_CHARACTER,
+										/* 456 */
+	/* U+00C9 */ 0x90 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,	/* 457 */
+										/* U+00CA */ CANT_MAP_CHARACTER,
+										/* 458 */
+	/* U+00CB */ 0xD3 /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,	/* 459 */
+										/* U+00CC */ CANT_MAP_CHARACTER,
+										/* 460 */
+	/* U+00CD */ 0xD6 /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,	/* 461 */
+	/* U+00CE */ 0xD7 /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,	/* 462 */
+										/* U+00CF */ CANT_MAP_CHARACTER,
+										/* 463 */
+										/* U+00D0 */ CANT_MAP_CHARACTER,
+										/* 464 */
+										/* U+00D1 */ CANT_MAP_CHARACTER,
+										/* 465 */
+										/* U+00D2 */ CANT_MAP_CHARACTER,
+										/* 466 */
+	/* U+00D3 */ 0xE0 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,	/* 467 */
+	/* U+00D4 */ 0xE2 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,	/* 468 */
+										/* U+00D5 */ CANT_MAP_CHARACTER,
+										/* 469 */
+	/* U+00D6 */ 0x99 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,	/* 470 */
+	/* U+00D7 */ 0x9E /*                           MULTIPLICATION SIGN */ ,	/* 471 */
+										/* U+00D8 */ CANT_MAP_CHARACTER,
+										/* 472 */
+										/* U+00D9 */ CANT_MAP_CHARACTER,
+										/* 473 */
+	/* U+00DA */ 0xE9 /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,	/* 474 */
+										/* U+00DB */ CANT_MAP_CHARACTER,
+										/* 475 */
+	/* U+00DC */ 0x9A /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,	/* 476 */
+	/* U+00DD */ 0xED /*             LATIN CAPITAL LETTER Y WITH ACUTE */ ,	/* 477 */
+										/* U+00DE */ CANT_MAP_CHARACTER,
+										/* 478 */
+	/* U+00DF */ 0xE1 /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+										/* U+00E0 */ CANT_MAP_CHARACTER,
+										/* 480 */
+	/* U+00E1 */ 0xA0 /*               LATIN SMALL LETTER A WITH ACUTE */ ,	/* 481 */
+	/* U+00E2 */ 0x83 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,	/* 482 */
+										/* U+00E3 */ CANT_MAP_CHARACTER,
+										/* 483 */
+	/* U+00E4 */ 0x84 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,	/* 484 */
+										/* U+00E5 */ CANT_MAP_CHARACTER,
+										/* 485 */
+										/* U+00E6 */ CANT_MAP_CHARACTER,
+										/* 486 */
+	/* U+00E7 */ 0x87 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,	/* 487 */
+										/* U+00E8 */ CANT_MAP_CHARACTER,
+										/* 488 */
+	/* U+00E9 */ 0x82 /*               LATIN SMALL LETTER E WITH ACUTE */ ,	/* 489 */
+										/* U+00EA */ CANT_MAP_CHARACTER,
+										/* 490 */
+	/* U+00EB */ 0x89 /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,	/* 491 */
+										/* U+00EC */ CANT_MAP_CHARACTER,
+										/* 492 */
+	/* U+00ED */ 0xA1 /*               LATIN SMALL LETTER I WITH ACUTE */ ,	/* 493 */
+	/* U+00EE */ 0x8C /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,	/* 494 */
+										/* U+00EF */ CANT_MAP_CHARACTER,
+										/* 495 */
+										/* U+00F0 */ CANT_MAP_CHARACTER,
+										/* 496 */
+										/* U+00F1 */ CANT_MAP_CHARACTER,
+										/* 497 */
+										/* U+00F2 */ CANT_MAP_CHARACTER,
+										/* 498 */
+	/* U+00F3 */ 0xA2 /*               LATIN SMALL LETTER O WITH ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0x93 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,	/* 500 */
+										/* U+00F5 */ CANT_MAP_CHARACTER,
+										/* 501 */
+	/* U+00F6 */ 0x94 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,	/* 502 */
+	/* U+00F7 */ 0xF6 /*                                 DIVISION SIGN */ ,	/* 503 */
+										/* U+00F8 */ CANT_MAP_CHARACTER,
+										/* 504 */
+										/* U+00F9 */ CANT_MAP_CHARACTER,
+										/* 505 */
+	/* U+00FA */ 0xA3 /*               LATIN SMALL LETTER U WITH ACUTE */ ,	/* 506 */
+										/* U+00FB */ CANT_MAP_CHARACTER,
+										/* 507 */
+	/* U+00FC */ 0x81 /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,	/* 508 */
+	/* U+00FD */ 0xEC /*               LATIN SMALL LETTER Y WITH ACUTE */ ,	/* 509 */
+										/* U+00FE */ CANT_MAP_CHARACTER,
+										/* 510 */
+										/* U+00FF */ CANT_MAP_CHARACTER,
+										/* 511 */
+										/* U+0100 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0101 */ CANT_MAP_CHARACTER,
+										/* 513 */
+	/* U+0102 */ 0xC6 /*             LATIN CAPITAL LETTER A WITH BREVE */ ,	/* 514 */
+	/* U+0103 */ 0xC7 /*               LATIN SMALL LETTER A WITH BREVE */ ,	/* 515 */
+	/* U+0104 */ 0xA4 /*            LATIN CAPITAL LETTER A WITH OGONEK */ ,	/* 516 */
+	/* U+0105 */ 0xA5 /*              LATIN SMALL LETTER A WITH OGONEK */ ,	/* 517 */
+	/* U+0106 */ 0x8F /*             LATIN CAPITAL LETTER C WITH ACUTE */ ,	/* 518 */
+	/* U+0107 */ 0x86 /*               LATIN SMALL LETTER C WITH ACUTE */ ,	/* 519 */
+										/* U+0108 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0109 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+010A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+010B */ CANT_MAP_CHARACTER,
+										/* 523 */
+	/* U+010C */ 0xAC /*             LATIN CAPITAL LETTER C WITH CARON */ ,	/* 524 */
+	/* U+010D */ 0x9F /*               LATIN SMALL LETTER C WITH CARON */ ,	/* 525 */
+	/* U+010E */ 0xD2 /*             LATIN CAPITAL LETTER D WITH CARON */ ,	/* 526 */
+	/* U+010F */ 0xD4 /*               LATIN SMALL LETTER D WITH CARON */ ,	/* 527 */
+	/* U+0110 */ 0xD1 /*            LATIN CAPITAL LETTER D WITH STROKE */ ,	/* 528 */
+	/* U+0111 */ 0xD0 /*              LATIN SMALL LETTER D WITH STROKE */ ,	/* 529 */
+										/* U+0112 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0113 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0114 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0115 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0116 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0117 */ CANT_MAP_CHARACTER,
+										/* 535 */
+	/* U+0118 */ 0xA8 /*            LATIN CAPITAL LETTER E WITH OGONEK */ ,	/* 536 */
+	/* U+0119 */ 0xA9 /*              LATIN SMALL LETTER E WITH OGONEK */ ,	/* 537 */
+	/* U+011A */ 0xB7 /*             LATIN CAPITAL LETTER E WITH CARON */ ,	/* 538 */
+	/* U+011B */ 0xD8 /*               LATIN SMALL LETTER E WITH CARON */ ,	/* 539 */
+										/* U+011C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+011D */ CANT_MAP_CHARACTER,
+										/* 541 */
+										/* U+011E */ CANT_MAP_CHARACTER,
+										/* 542 */
+										/* U+011F */ CANT_MAP_CHARACTER,
+										/* 543 */
+										/* U+0120 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0121 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0122 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0123 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0124 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0125 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0126 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0127 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0128 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0129 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+012A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+012B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+012C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+012D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+012E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+012F */ CANT_MAP_CHARACTER,
+										/* 559 */
+										/* U+0130 */ CANT_MAP_CHARACTER,
+										/* 560 */
+										/* U+0131 */ CANT_MAP_CHARACTER,
+										/* 561 */
+										/* U+0132 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0133 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0134 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0135 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0136 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0137 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0138 */ CANT_MAP_CHARACTER,
+										/* 568 */
+	/* U+0139 */ 0x91 /*             LATIN CAPITAL LETTER L WITH ACUTE */ ,	/* 569 */
+	/* U+013A */ 0x92 /*               LATIN SMALL LETTER L WITH ACUTE */ ,	/* 570 */
+										/* U+013B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+013C */ CANT_MAP_CHARACTER,
+										/* 572 */
+	/* U+013D */ 0x95 /*             LATIN CAPITAL LETTER L WITH CARON */ ,	/* 573 */
+	/* U+013E */ 0x96 /*               LATIN SMALL LETTER L WITH CARON */ ,	/* 574 */
+										/* U+013F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0140 */ CANT_MAP_CHARACTER,
+										/* 576 */
+	/* U+0141 */ 0x9D /*            LATIN CAPITAL LETTER L WITH STROKE */ ,	/* 577 */
+	/* U+0142 */ 0x88 /*              LATIN SMALL LETTER L WITH STROKE */ ,	/* 578 */
+	/* U+0143 */ 0xE3 /*             LATIN CAPITAL LETTER N WITH ACUTE */ ,	/* 579 */
+	/* U+0144 */ 0xE4 /*               LATIN SMALL LETTER N WITH ACUTE */ ,	/* 580 */
+										/* U+0145 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0146 */ CANT_MAP_CHARACTER,
+										/* 582 */
+	/* U+0147 */ 0xD5 /*             LATIN CAPITAL LETTER N WITH CARON */ ,	/* 583 */
+	/* U+0148 */ 0xE5 /*               LATIN SMALL LETTER N WITH CARON */ ,	/* 584 */
+										/* U+0149 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+014A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+014B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+014C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+014D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+014E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+014F */ CANT_MAP_CHARACTER,
+										/* 591 */
+	/* U+0150 */ 0x8A /*      LATIN CAPITAL LETTER O WITH DOUBLE ACUTE */ ,	/* 592 */
+	/* U+0151 */ 0x8B /*        LATIN SMALL LETTER O WITH DOUBLE ACUTE */ ,	/* 593 */
+										/* U+0152 */ CANT_MAP_CHARACTER,
+										/* 594 */
+										/* U+0153 */ CANT_MAP_CHARACTER,
+										/* 595 */
+	/* U+0154 */ 0xE8 /*             LATIN CAPITAL LETTER R WITH ACUTE */ ,	/* 596 */
+	/* U+0155 */ 0xEA /*               LATIN SMALL LETTER R WITH ACUTE */ ,	/* 597 */
+										/* U+0156 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0157 */ CANT_MAP_CHARACTER,
+										/* 599 */
+	/* U+0158 */ 0xFC /*             LATIN CAPITAL LETTER R WITH CARON */ ,	/* 600 */
+	/* U+0159 */ 0xFD /*               LATIN SMALL LETTER R WITH CARON */ ,	/* 601 */
+	/* U+015A */ 0x97 /*             LATIN CAPITAL LETTER S WITH ACUTE */ ,	/* 602 */
+	/* U+015B */ 0x98 /*               LATIN SMALL LETTER S WITH ACUTE */ ,	/* 603 */
+										/* U+015C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+015D */ CANT_MAP_CHARACTER,
+										/* 605 */
+	/* U+015E */ 0xB8 /*           LATIN CAPITAL LETTER S WITH CEDILLA */ ,	/* 606 */
+	/* U+015F */ 0xAD /*             LATIN SMALL LETTER S WITH CEDILLA */ ,	/* 607 */
+	/* U+0160 */ 0xE6 /*             LATIN CAPITAL LETTER S WITH CARON */ ,	/* 608 */
+	/* U+0161 */ 0xE7 /*               LATIN SMALL LETTER S WITH CARON */ ,	/* 609 */
+	/* U+0162 */ 0xDD /*           LATIN CAPITAL LETTER T WITH CEDILLA */ ,	/* 610 */
+	/* U+0163 */ 0xEE /*             LATIN SMALL LETTER T WITH CEDILLA */ ,	/* 611 */
+	/* U+0164 */ 0x9B /*             LATIN CAPITAL LETTER T WITH CARON */ ,	/* 612 */
+	/* U+0165 */ 0x9C /*               LATIN SMALL LETTER T WITH CARON */ ,	/* 613 */
+										/* U+0166 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0167 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0168 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0169 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+016A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+016B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+016C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+016D */ CANT_MAP_CHARACTER,
+										/* 621 */
+	/* U+016E */ 0xDE /*        LATIN CAPITAL LETTER U WITH RING ABOVE */ ,	/* 622 */
+	/* U+016F */ 0x85 /*          LATIN SMALL LETTER U WITH RING ABOVE */ ,	/* 623 */
+	/* U+0170 */ 0xEB /*      LATIN CAPITAL LETTER U WITH DOUBLE ACUTE */ ,	/* 624 */
+	/* U+0171 */ 0xFB /*        LATIN SMALL LETTER U WITH DOUBLE ACUTE */ ,	/* 625 */
+										/* U+0172 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0173 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0174 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0175 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0176 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0177 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0178 */ CANT_MAP_CHARACTER,
+										/* 632 */
+	/* U+0179 */ 0x8D /*             LATIN CAPITAL LETTER Z WITH ACUTE */ ,	/* 633 */
+	/* U+017A */ 0xAB /*               LATIN SMALL LETTER Z WITH ACUTE */ ,	/* 634 */
+	/* U+017B */ 0xBD /*         LATIN CAPITAL LETTER Z WITH DOT ABOVE */ ,	/* 635 */
+	/* U+017C */ 0xBE /*           LATIN SMALL LETTER Z WITH DOT ABOVE */ ,	/* 636 */
+	/* U+017D */ 0xA6 /*             LATIN CAPITAL LETTER Z WITH CARON */ ,	/* 637 */
+	/* U+017E */ 0xA7 /*               LATIN SMALL LETTER Z WITH CARON */ ,	/* 638 */
+										/* U+017F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0180 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0181 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0182 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0183 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0184 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0185 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0186 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0187 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0188 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0189 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+018A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+018B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+018C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+018D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+018E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+018F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0190 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0191 */ CANT_MAP_CHARACTER,
+										/* 657 */
+										/* U+0192 */ CANT_MAP_CHARACTER,
+										/* 658 */
+										/* U+0193 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0194 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0195 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0196 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0197 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0198 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0199 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+019A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+019B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+019C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+019D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+019E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+019F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+01A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+01A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+01A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+01A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+01A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+01A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+01A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+01A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+01A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+01A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+01AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+01AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+01AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+01AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+01AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+01AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+01B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+01B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+01B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+01B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+01B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+01B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+01B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+01B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+01B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+01B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+01BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+01BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+01BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+01BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+01BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+01BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+01C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+01C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+01C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+01C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+01C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+01C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+01C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+01C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+01C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+01C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+01CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+01CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+01CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+01CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+01CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+01CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+01D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+01D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+01D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+01D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+01D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+01D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+01D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+01D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+01D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+01D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+01DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+01DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+01DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+01DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+01DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+01DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+01E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+01E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+01E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+01E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+01E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+01E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+01E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+01E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+01E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+01E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+01EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+01EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+01EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+01ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+01EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+01EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+01F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+01F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+01F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+01F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+01F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+01F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+01F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+01F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+01F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+01F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+01FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+01FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+01FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+01FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+01FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+01FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+0200 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+0201 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+0202 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+0203 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+0204 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+0205 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+0206 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+0207 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+0208 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+0209 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+020A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+020B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+020C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+020D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+020E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+020F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+0210 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+0211 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+0212 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+0213 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+0214 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+0215 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+0216 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+0217 */ CANT_MAP_CHARACTER,
+										/* 791 */
+										/* U+0218 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+0219 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+021A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+021B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+021C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+021D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+021E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+021F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+0220 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+0221 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+0222 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+0223 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+0224 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+0225 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+0226 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+0227 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+0228 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+0229 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+022A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+022B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+022C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+022D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+022E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+022F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+0230 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+0231 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+0232 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+0233 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+0234 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+0235 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+0236 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+0237 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+0238 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+0239 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+023A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+023B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+023C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+023D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+023E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+023F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+0240 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+0241 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+0242 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+0243 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+0244 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+0245 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+0246 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+0247 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+0248 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+0249 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+024A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+024B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+024C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+024D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+024E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+024F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+0250 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+0251 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+0252 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+0253 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+0254 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+0255 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+0256 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+0257 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+0258 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+0259 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+025A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+025B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+025C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+025D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+025E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+025F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+0260 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+0261 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+0262 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+0263 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+0264 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+0265 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+0266 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+0267 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+0268 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+0269 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+026A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+026B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+026C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+026D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+026E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+026F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+0270 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+0271 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+0272 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+0273 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+0274 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+0275 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+0276 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+0277 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+0278 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+0279 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+027A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+027B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+027C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+027D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+027E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+027F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+0280 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+0281 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+0282 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+0283 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+0284 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+0285 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+0286 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+0287 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+0288 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+0289 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+028A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+028B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+028C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+028D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+028E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+028F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+0290 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+0291 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+0292 */ CANT_MAP_CHARACTER,
+										/* 914 */
+										/* U+0293 */ CANT_MAP_CHARACTER,
+										/* 915 */
+										/* U+0294 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+0295 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+0296 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+0297 */ CANT_MAP_CHARACTER,
+										/* 919 */
+										/* U+0298 */ CANT_MAP_CHARACTER,
+										/* 920 */
+										/* U+0299 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+029A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+029B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+029C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+029D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+029E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+029F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+02A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+02A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+02A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+										/* U+02A3 */ CANT_MAP_CHARACTER,
+										/* 931 */
+										/* U+02A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+02A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+										/* U+02A6 */ CANT_MAP_CHARACTER,
+										/* 934 */
+										/* U+02A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+02A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+										/* U+02A9 */ CANT_MAP_CHARACTER,
+										/* 937 */
+										/* U+02AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+02AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+02AC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+02AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+02AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+02AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+02B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+										/* U+02B1 */ CANT_MAP_CHARACTER,
+										/* 945 */
+										/* U+02B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+02B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+										/* U+02B4 */ CANT_MAP_CHARACTER,
+										/* 948 */
+										/* U+02B5 */ CANT_MAP_CHARACTER,
+										/* 949 */
+										/* U+02B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+02B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+02B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+02B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+02BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+02BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+02BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+02BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+02BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+02BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+										/* U+02C0 */ CANT_MAP_CHARACTER,
+										/* 960 */
+										/* U+02C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+02C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+										/* U+02C3 */ CANT_MAP_CHARACTER,
+										/* 963 */
+										/* U+02C4 */ CANT_MAP_CHARACTER,
+										/* 964 */
+										/* U+02C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+										/* U+02C6 */ CANT_MAP_CHARACTER,
+										/* 966 */
+	/* U+02C7 */ 0xF3 /*                                         CARON */ ,	/* 967 */
+										/* U+02C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+02C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+02CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+02CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+02CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+02CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+02CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+02CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+02D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+02D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+02D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+02D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+02D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+02D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+02D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+02D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+	/* U+02D8 */ 0xF4 /*                                         BREVE */ ,	/* 984 */
+	/* U+02D9 */ 0xFA /*                                     DOT ABOVE */ ,	/* 985 */
+										/* U+02DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+	/* U+02DB */ 0xF2 /*                                        OGONEK */ ,	/* 987 */
+										/* U+02DC */ CANT_MAP_CHARACTER,
+										/* 988 */
+	/* U+02DD */ 0xF1 /*                           DOUBLE ACUTE ACCENT */ ,	/* 989 */
+										/* U+02DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+02DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+02E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+02E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+02E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+02E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+02E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+02E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+02E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+02E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+02E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+02E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+02EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+02EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+02EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+02ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+02EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+02EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+02F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+02F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+02F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+02F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+02F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+02F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+02F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+02F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+02F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+02F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+02FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+02FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+02FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+02FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+02FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+02FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+	/* U+2500 */ 0xC4 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,	/* 1024 */
+										/* U+2501 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+	/* U+2502 */ 0xB3 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,	/* 1026 */
+										/* U+2503 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2504 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2505 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2506 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2507 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2508 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2509 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+250A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+250B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+	/* U+250C */ 0xDA /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,	/* 1036 */
+										/* U+250D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+250E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+250F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+	/* U+2510 */ 0xBF /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,	/* 1040 */
+										/* U+2511 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2512 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+										/* U+2513 */ CANT_MAP_CHARACTER,
+										/* 1043 */
+	/* U+2514 */ 0xC0 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,	/* 1044 */
+										/* U+2515 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+										/* U+2516 */ CANT_MAP_CHARACTER,
+										/* 1046 */
+										/* U+2517 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+	/* U+2518 */ 0xD9 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,	/* 1048 */
+										/* U+2519 */ CANT_MAP_CHARACTER,
+										/* 1049 */
+										/* U+251A */ CANT_MAP_CHARACTER,
+										/* 1050 */
+										/* U+251B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+	/* U+251C */ 0xC3 /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,	/* 1052 */
+										/* U+251D */ CANT_MAP_CHARACTER,
+										/* 1053 */
+										/* U+251E */ CANT_MAP_CHARACTER,
+										/* 1054 */
+										/* U+251F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+										/* U+2520 */ CANT_MAP_CHARACTER,
+										/* 1056 */
+										/* U+2521 */ CANT_MAP_CHARACTER,
+										/* 1057 */
+										/* U+2522 */ CANT_MAP_CHARACTER,
+										/* 1058 */
+										/* U+2523 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+	/* U+2524 */ 0xB4 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,	/* 1060 */
+										/* U+2525 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+										/* U+2526 */ CANT_MAP_CHARACTER,
+										/* 1062 */
+										/* U+2527 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2528 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2529 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+252A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+252B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+	/* U+252C */ 0xC2 /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,	/* 1068 */
+										/* U+252D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+252E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+252F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+										/* U+2530 */ CANT_MAP_CHARACTER,
+										/* 1072 */
+										/* U+2531 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2532 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2533 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+	/* U+2534 */ 0xC1 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,	/* 1076 */
+										/* U+2535 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2536 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2537 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2538 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+										/* U+2539 */ CANT_MAP_CHARACTER,
+										/* 1081 */
+										/* U+253A */ CANT_MAP_CHARACTER,
+										/* 1082 */
+										/* U+253B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+	/* U+253C */ 0xC5 /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,	/* 1084 */
+										/* U+253D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+253E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+253F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2540 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2541 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2542 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2543 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2544 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2545 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2546 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2547 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2548 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2549 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+254A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+254B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+254C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+254D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+254E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+254F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+	/* U+2550 */ 0xCD /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,	/* 1104 */
+	/* U+2551 */ 0xBA /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,	/* 1105 */
+										/* U+2552 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2553 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+	/* U+2554 */ 0xC9 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,	/* 1108 */
+										/* U+2555 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2556 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+	/* U+2557 */ 0xBB /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,	/* 1111 */
+										/* U+2558 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2559 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+	/* U+255A */ 0xC8 /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,	/* 1114 */
+										/* U+255B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+255C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+	/* U+255D */ 0xBC /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,	/* 1117 */
+										/* U+255E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+255F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+	/* U+2560 */ 0xCC /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,	/* 1120 */
+										/* U+2561 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2562 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+	/* U+2563 */ 0xB9 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,	/* 1123 */
+										/* U+2564 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2565 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+	/* U+2566 */ 0xCB /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,	/* 1126 */
+										/* U+2567 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2568 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+	/* U+2569 */ 0xCA /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,	/* 1129 */
+										/* U+256A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+256B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+	/* U+256C */ 0xCE /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,	/* 1132 */
+										/* U+256D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+256E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+256F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2570 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2571 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2572 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2573 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2574 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2575 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2576 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2577 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2578 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2579 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+257A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+257B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+257C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+257D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+257E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+										/* U+257F */ CANT_MAP_CHARACTER,
+										/* 1151 */
+	/* U+2580 */ 0xDF /*                              UPPER HALF BLOCK */ ,	/* 1152 */
+										/* U+2581 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2582 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2583 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+	/* U+2584 */ 0xDC /*                              LOWER HALF BLOCK */ ,	/* 1156 */
+										/* U+2585 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2586 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2587 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+	/* U+2588 */ 0xDB /*                                    FULL BLOCK */ ,	/* 1160 */
+										/* U+2589 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+258A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+258B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+258C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+258D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+258E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+258F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2590 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+	/* U+2591 */ 0xB0 /*                                   LIGHT SHADE */ ,	/* 1169 */
+	/* U+2592 */ 0xB1 /*                                  MEDIUM SHADE */ ,	/* 1170 */
+	/* U+2593 */ 0xB2 /*                                    DARK SHADE */ ,	/* 1171 */
+										/* U+2594 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2595 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2596 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2597 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2598 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2599 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+259A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+259B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+259C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+259D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+259E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+259F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+	/* U+25A0 */ 0xFE /*                                  BLACK SQUARE */ ,	/* 1184 */
+										/* U+25A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+25A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+25A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+25A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+25A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+25A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+										/* U+25A7 */ CANT_MAP_CHARACTER,
+										/* 1191 */
+										/* U+25A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+25A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+25AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+25AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+										/* U+25AC */ CANT_MAP_CHARACTER,
+										/* 1196 */
+										/* U+25AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+25AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+25AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+25B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+25B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+25B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+25B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+25B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+25B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+25B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+25B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+25B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+25B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+25BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+25BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+25BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+25BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+25BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+25BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+25C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+25C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+25C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+25C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+25C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+25C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+25C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+25C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+25C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+25C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+25CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+25CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+25CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+25CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+25CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+25CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+25D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+25D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+25D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+25D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+25D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+25D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+25D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+25D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+25D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+25D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+25DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+25DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+25DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+25DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+25DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+25DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+25E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+25E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+25E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+25E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+25E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+25E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+25E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+25E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+25E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+25E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+25EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+25EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+25EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+25ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+25EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+25EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+25F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+25F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+25F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+25F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+25F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+25F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+25F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+25F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+25F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+25F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+25FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+25FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+25FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+25FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+25FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+25FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 512,
+/* U+02-- */ 768,
+/* U+03-- */ 0,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 0,
+/* U+21-- */ 0,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 1024,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_857.h b/src/intl/cs_857.h
new file mode 100644
index 0000000000..2beea45a1b
--- /dev/null
+++ b/src/intl/cs_857.h
@@ -0,0 +1,2617 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/PC/CP857.TXT 
+
+#
+#    Name:     cp857_DOSTurkish to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/24/96
+#    Authors:       Lori Brownell <loribr@microsoft.com>
+#                   K.D. Chang    <a-kchang@microsoft.com>
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp857_DOSTurkish code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp857_DOSTurkish order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0a	0x000a	#LINE FEED
+0x0b	0x000b	#VERTICAL TABULATION
+0x0c	0x000c	#FORM FEED
+0x0d	0x000d	#CARRIAGE RETURN
+0x0e	0x000e	#SHIFT OUT
+0x0f	0x000f	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1a	0x001a	#SUBSTITUTE
+0x1b	0x001b	#ESCAPE
+0x1c	0x001c	#FILE SEPARATOR
+0x1d	0x001d	#GROUP SEPARATOR
+0x1e	0x001e	#RECORD SEPARATOR
+0x1f	0x001f	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2a	0x002a	#ASTERISK
+0x2b	0x002b	#PLUS SIGN
+0x2c	0x002c	#COMMA
+0x2d	0x002d	#HYPHEN-MINUS
+0x2e	0x002e	#FULL STOP
+0x2f	0x002f	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3a	0x003a	#COLON
+0x3b	0x003b	#SEMICOLON
+0x3c	0x003c	#LESS-THAN SIGN
+0x3d	0x003d	#EQUALS SIGN
+0x3e	0x003e	#GREATER-THAN SIGN
+0x3f	0x003f	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4a	0x004a	#LATIN CAPITAL LETTER J
+0x4b	0x004b	#LATIN CAPITAL LETTER K
+0x4c	0x004c	#LATIN CAPITAL LETTER L
+0x4d	0x004d	#LATIN CAPITAL LETTER M
+0x4e	0x004e	#LATIN CAPITAL LETTER N
+0x4f	0x004f	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5a	0x005a	#LATIN CAPITAL LETTER Z
+0x5b	0x005b	#LEFT SQUARE BRACKET
+0x5c	0x005c	#REVERSE SOLIDUS
+0x5d	0x005d	#RIGHT SQUARE BRACKET
+0x5e	0x005e	#CIRCUMFLEX ACCENT
+0x5f	0x005f	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6a	0x006a	#LATIN SMALL LETTER J
+0x6b	0x006b	#LATIN SMALL LETTER K
+0x6c	0x006c	#LATIN SMALL LETTER L
+0x6d	0x006d	#LATIN SMALL LETTER M
+0x6e	0x006e	#LATIN SMALL LETTER N
+0x6f	0x006f	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7a	0x007a	#LATIN SMALL LETTER Z
+0x7b	0x007b	#LEFT CURLY BRACKET
+0x7c	0x007c	#VERTICAL LINE
+0x7d	0x007d	#RIGHT CURLY BRACKET
+0x7e	0x007e	#TILDE
+0x7f	0x007f	#DELETE
+0x80	0x00c7	#LATIN CAPITAL LETTER C WITH CEDILLA
+0x81	0x00fc	#LATIN SMALL LETTER U WITH DIAERESIS
+0x82	0x00e9	#LATIN SMALL LETTER E WITH ACUTE
+0x83	0x00e2	#LATIN SMALL LETTER A WITH CIRCUMFLEX
+0x84	0x00e4	#LATIN SMALL LETTER A WITH DIAERESIS
+0x85	0x00e0	#LATIN SMALL LETTER A WITH GRAVE
+0x86	0x00e5	#LATIN SMALL LETTER A WITH RING ABOVE
+0x87	0x00e7	#LATIN SMALL LETTER C WITH CEDILLA
+0x88	0x00ea	#LATIN SMALL LETTER E WITH CIRCUMFLEX
+0x89	0x00eb	#LATIN SMALL LETTER E WITH DIAERESIS
+0x8a	0x00e8	#LATIN SMALL LETTER E WITH GRAVE
+0x8b	0x00ef	#LATIN SMALL LETTER I WITH DIAERESIS
+0x8c	0x00ee	#LATIN SMALL LETTER I WITH CIRCUMFLEX
+0x8d	0x0131	#LATIN SMALL LETTER DOTLESS I
+0x8e	0x00c4	#LATIN CAPITAL LETTER A WITH DIAERESIS
+0x8f	0x00c5	#LATIN CAPITAL LETTER A WITH RING ABOVE
+0x90	0x00c9	#LATIN CAPITAL LETTER E WITH ACUTE
+0x91	0x00e6	#LATIN SMALL LIGATURE AE
+0x92	0x00c6	#LATIN CAPITAL LIGATURE AE
+0x93	0x00f4	#LATIN SMALL LETTER O WITH CIRCUMFLEX
+0x94	0x00f6	#LATIN SMALL LETTER O WITH DIAERESIS
+0x95	0x00f2	#LATIN SMALL LETTER O WITH GRAVE
+0x96	0x00fb	#LATIN SMALL LETTER U WITH CIRCUMFLEX
+0x97	0x00f9	#LATIN SMALL LETTER U WITH GRAVE
+0x98	0x0130	#LATIN CAPITAL LETTER I WITH DOT ABOVE
+0x99	0x00d6	#LATIN CAPITAL LETTER O WITH DIAERESIS
+0x9a	0x00dc	#LATIN CAPITAL LETTER U WITH DIAERESIS
+0x9b	0x00f8	#LATIN SMALL LETTER O WITH STROKE
+0x9c	0x00a3	#POUND SIGN
+0x9d	0x00d8	#LATIN CAPITAL LETTER O WITH STROKE
+0x9e	0x015e	#LATIN CAPITAL LETTER S WITH CEDILLA
+0x9f	0x015f	#LATIN SMALL LETTER S WITH CEDILLA
+0xa0	0x00e1	#LATIN SMALL LETTER A WITH ACUTE
+0xa1	0x00ed	#LATIN SMALL LETTER I WITH ACUTE
+0xa2	0x00f3	#LATIN SMALL LETTER O WITH ACUTE
+0xa3	0x00fa	#LATIN SMALL LETTER U WITH ACUTE
+0xa4	0x00f1	#LATIN SMALL LETTER N WITH TILDE
+0xa5	0x00d1	#LATIN CAPITAL LETTER N WITH TILDE
+0xa6	0x011e	#LATIN CAPITAL LETTER G WITH BREVE
+0xa7	0x011f	#LATIN SMALL LETTER G WITH BREVE
+0xa8	0x00bf	#INVERTED QUESTION MARK
+0xa9	0x00ae	#REGISTERED SIGN
+0xaa	0x00ac	#NOT SIGN
+0xab	0x00bd	#VULGAR FRACTION ONE HALF
+0xac	0x00bc	#VULGAR FRACTION ONE QUARTER
+0xad	0x00a1	#INVERTED EXCLAMATION MARK
+0xae	0x00ab	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xaf	0x00bb	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xb0	0x2591	#LIGHT SHADE
+0xb1	0x2592	#MEDIUM SHADE
+0xb2	0x2593	#DARK SHADE
+0xb3	0x2502	#BOX DRAWINGS LIGHT VERTICAL
+0xb4	0x2524	#BOX DRAWINGS LIGHT VERTICAL AND LEFT
+0xb5	0x00c1	#LATIN CAPITAL LETTER A WITH ACUTE
+0xb6	0x00c2	#LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0xb7	0x00c0	#LATIN CAPITAL LETTER A WITH GRAVE
+0xb8	0x00a9	#COPYRIGHT SIGN
+0xb9	0x2563	#BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+0xba	0x2551	#BOX DRAWINGS DOUBLE VERTICAL
+0xbb	0x2557	#BOX DRAWINGS DOUBLE DOWN AND LEFT
+0xbc	0x255d	#BOX DRAWINGS DOUBLE UP AND LEFT
+0xbd	0x00a2	#CENT SIGN
+0xbe	0x00a5	#YEN SIGN
+0xbf	0x2510	#BOX DRAWINGS LIGHT DOWN AND LEFT
+0xc0	0x2514	#BOX DRAWINGS LIGHT UP AND RIGHT
+0xc1	0x2534	#BOX DRAWINGS LIGHT UP AND HORIZONTAL
+0xc2	0x252c	#BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+0xc3	0x251c	#BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+0xc4	0x2500	#BOX DRAWINGS LIGHT HORIZONTAL
+0xc5	0x253c	#BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+0xc6	0x00e3	#LATIN SMALL LETTER A WITH TILDE
+0xc7	0x00c3	#LATIN CAPITAL LETTER A WITH TILDE
+0xc8	0x255a	#BOX DRAWINGS DOUBLE UP AND RIGHT
+0xc9	0x2554	#BOX DRAWINGS DOUBLE DOWN AND RIGHT
+0xca	0x2569	#BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+0xcb	0x2566	#BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+0xcc	0x2560	#BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+0xcd	0x2550	#BOX DRAWINGS DOUBLE HORIZONTAL
+0xce	0x256c	#BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+0xcf	0x00a4	#CURRENCY SIGN
+0xd0	0x00ba	#MASCULINE ORDINAL INDICATOR
+0xd1	0x00aa	#FEMININE ORDINAL INDICATOR
+0xd2	0x00ca	#LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0xd3	0x00cb	#LATIN CAPITAL LETTER E WITH DIAERESIS
+0xd4	0x00c8	#LATIN CAPITAL LETTER E WITH GRAVE
+0xd5		#UNDEFINED
+0xd6	0x00cd	#LATIN CAPITAL LETTER I WITH ACUTE
+0xd7	0x00ce	#LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+0xd8	0x00cf	#LATIN CAPITAL LETTER I WITH DIAERESIS
+0xd9	0x2518	#BOX DRAWINGS LIGHT UP AND LEFT
+0xda	0x250c	#BOX DRAWINGS LIGHT DOWN AND RIGHT
+0xdb	0x2588	#FULL BLOCK
+0xdc	0x2584	#LOWER HALF BLOCK
+0xdd	0x00a6	#BROKEN BAR
+0xde	0x00cc	#LATIN CAPITAL LETTER I WITH GRAVE
+0xdf	0x2580	#UPPER HALF BLOCK
+0xe0	0x00d3	#LATIN CAPITAL LETTER O WITH ACUTE
+0xe1	0x00df	#LATIN SMALL LETTER SHARP S
+0xe2	0x00d4	#LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+0xe3	0x00d2	#LATIN CAPITAL LETTER O WITH GRAVE
+0xe4	0x00f5	#LATIN SMALL LETTER O WITH TILDE
+0xe5	0x00d5	#LATIN CAPITAL LETTER O WITH TILDE
+0xe6	0x00b5	#MICRO SIGN
+0xe7		#UNDEFINED
+0xe8	0x00d7	#MULTIPLICATION SIGN
+0xe9	0x00da	#LATIN CAPITAL LETTER U WITH ACUTE
+0xea	0x00db	#LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+0xeb	0x00d9	#LATIN CAPITAL LETTER U WITH GRAVE
+0xec	0x00ec	#LATIN SMALL LETTER I WITH GRAVE
+0xed	0x00ff	#LATIN SMALL LETTER Y WITH DIAERESIS
+0xee	0x00af	#MACRON
+0xef	0x00b4	#ACUTE ACCENT
+0xf0	0x00ad	#SOFT HYPHEN
+0xf1	0x00b1	#PLUS-MINUS SIGN
+0xf2		#UNDEFINED
+0xf3	0x00be	#VULGAR FRACTION THREE QUARTERS
+0xf4	0x00b6	#PILCROW SIGN
+0xf5	0x00a7	#SECTION SIGN
+0xf6	0x00f7	#DIVISION SIGN
+0xf7	0x00b8	#CEDILLA
+0xf8	0x00b0	#DEGREE SIGN
+0xf9	0x00a8	#DIAERESIS
+0xfa	0x00b7	#MIDDLE DOT
+0xfb	0x00b9	#SUPERSCRIPT ONE
+0xfc	0x00b3	#SUPERSCRIPT THREE
+0xfd	0x00b2	#SUPERSCRIPT TWO
+0xfe	0x25a0	#BLACK SQUARE
+0xff	0x00a0	#NO-BREAK SPACE
+
+
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x00C7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,
+	/* 81 */ 0x00FC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,
+	/* 82 */ 0x00E9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,
+	/* 83 */ 0x00E2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,
+	/* 84 */ 0x00E4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,
+	/* 85 */ 0x00E0 /*               LATIN SMALL LETTER A WITH GRAVE */ ,
+	/* 86 */ 0x00E5 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,
+	/* 87 */ 0x00E7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,
+	/* 88 */ 0x00EA /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,
+	/* 89 */ 0x00EB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,
+	/* 8A */ 0x00E8 /*               LATIN SMALL LETTER E WITH GRAVE */ ,
+	/* 8B */ 0x00EF /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,
+	/* 8C */ 0x00EE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,
+	/* 8D */ 0x0131 /*                  LATIN SMALL LETTER DOTLESS I */ ,
+	/* 8E */ 0x00C4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,
+	/* 8F */ 0x00C5 /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,
+	/* 90 */ 0x00C9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,
+	/* 91 */ 0x00E6 /*                       LATIN SMALL LIGATURE AE */ ,
+	/* 92 */ 0x00C6 /*                     LATIN CAPITAL LIGATURE AE */ ,
+	/* 93 */ 0x00F4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,
+	/* 94 */ 0x00F6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,
+	/* 95 */ 0x00F2 /*               LATIN SMALL LETTER O WITH GRAVE */ ,
+	/* 96 */ 0x00FB /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,
+	/* 97 */ 0x00F9 /*               LATIN SMALL LETTER U WITH GRAVE */ ,
+	/* 98 */ 0x0130 /*         LATIN CAPITAL LETTER I WITH DOT ABOVE */ ,
+	/* 99 */ 0x00D6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,
+	/* 9A */ 0x00DC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,
+	/* 9B */ 0x00F8 /*              LATIN SMALL LETTER O WITH STROKE */ ,
+	/* 9C */ 0x00A3 /*                                    POUND SIGN */ ,
+	/* 9D */ 0x00D8 /*            LATIN CAPITAL LETTER O WITH STROKE */ ,
+	/* 9E */ 0x015E /*           LATIN CAPITAL LETTER S WITH CEDILLA */ ,
+	/* 9F */ 0x015F /*             LATIN SMALL LETTER S WITH CEDILLA */ ,
+	/* A0 */ 0x00E1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,
+	/* A1 */ 0x00ED /*               LATIN SMALL LETTER I WITH ACUTE */ ,
+	/* A2 */ 0x00F3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,
+	/* A3 */ 0x00FA /*               LATIN SMALL LETTER U WITH ACUTE */ ,
+	/* A4 */ 0x00F1 /*               LATIN SMALL LETTER N WITH TILDE */ ,
+	/* A5 */ 0x00D1 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,
+	/* A6 */ 0x011E /*             LATIN CAPITAL LETTER G WITH BREVE */ ,
+	/* A7 */ 0x011F /*               LATIN SMALL LETTER G WITH BREVE */ ,
+	/* A8 */ 0x00BF /*                        INVERTED QUESTION MARK */ ,
+	/* A9 */ 0x00AE /*                               REGISTERED SIGN */ ,
+	/* AA */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AB */ 0x00BD /*                      VULGAR FRACTION ONE HALF */ ,
+	/* AC */ 0x00BC /*                   VULGAR FRACTION ONE QUARTER */ ,
+	/* AD */ 0x00A1 /*                     INVERTED EXCLAMATION MARK */ ,
+	/* AE */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AF */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* B0 */ 0x2591 /*                                   LIGHT SHADE */ ,
+	/* B1 */ 0x2592 /*                                  MEDIUM SHADE */ ,
+	/* B2 */ 0x2593 /*                                    DARK SHADE */ ,
+	/* B3 */ 0x2502 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,
+	/* B4 */ 0x2524 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,
+	/* B5 */ 0x00C1 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,
+	/* B6 */ 0x00C2 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,
+	/* B7 */ 0x00C0 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,
+	/* B8 */ 0x00A9 /*                                COPYRIGHT SIGN */ ,
+	/* B9 */ 0x2563 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,
+	/* BA */ 0x2551 /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,
+	/* BB */ 0x2557 /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,
+	/* BC */ 0x255D /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,
+	/* BD */ 0x00A2 /*                                     CENT SIGN */ ,
+	/* BE */ 0x00A5 /*                                      YEN SIGN */ ,
+	/* BF */ 0x2510 /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,
+	/* C0 */ 0x2514 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,
+	/* C1 */ 0x2534 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,
+	/* C2 */ 0x252C /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,
+	/* C3 */ 0x251C /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,
+	/* C4 */ 0x2500 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,
+	/* C5 */ 0x253C /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,
+	/* C6 */ 0x00E3 /*               LATIN SMALL LETTER A WITH TILDE */ ,
+	/* C7 */ 0x00C3 /*             LATIN CAPITAL LETTER A WITH TILDE */ ,
+	/* C8 */ 0x255A /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,
+	/* C9 */ 0x2554 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,
+	/* CA */ 0x2569 /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,
+	/* CB */ 0x2566 /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,
+	/* CC */ 0x2560 /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,
+	/* CD */ 0x2550 /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,
+	/* CE */ 0x256C /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,
+	/* CF */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* D0 */ 0x00BA /*                   MASCULINE ORDINAL INDICATOR */ ,
+	/* D1 */ 0x00AA /*                    FEMININE ORDINAL INDICATOR */ ,
+	/* D2 */ 0x00CA /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,
+	/* D3 */ 0x00CB /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,
+	/* D4 */ 0x00C8 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,
+/* D5 */ CANT_MAP_CHARACTER,
+	/* D6 */ 0x00CD /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,
+	/* D7 */ 0x00CE /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,
+	/* D8 */ 0x00CF /*         LATIN CAPITAL LETTER I WITH DIAERESIS */ ,
+	/* D9 */ 0x2518 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,
+	/* DA */ 0x250C /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,
+	/* DB */ 0x2588 /*                                    FULL BLOCK */ ,
+	/* DC */ 0x2584 /*                              LOWER HALF BLOCK */ ,
+	/* DD */ 0x00A6 /*                                    BROKEN BAR */ ,
+	/* DE */ 0x00CC /*             LATIN CAPITAL LETTER I WITH GRAVE */ ,
+	/* DF */ 0x2580 /*                              UPPER HALF BLOCK */ ,
+	/* E0 */ 0x00D3 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,
+	/* E1 */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* E2 */ 0x00D4 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,
+	/* E3 */ 0x00D2 /*             LATIN CAPITAL LETTER O WITH GRAVE */ ,
+	/* E4 */ 0x00F5 /*               LATIN SMALL LETTER O WITH TILDE */ ,
+	/* E5 */ 0x00D5 /*             LATIN CAPITAL LETTER O WITH TILDE */ ,
+	/* E6 */ 0x00B5 /*                                    MICRO SIGN */ ,
+/* E7 */ CANT_MAP_CHARACTER,
+	/* E8 */ 0x00D7 /*                           MULTIPLICATION SIGN */ ,
+	/* E9 */ 0x00DA /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,
+	/* EA */ 0x00DB /*        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ ,
+	/* EB */ 0x00D9 /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,
+	/* EC */ 0x00EC /*               LATIN SMALL LETTER I WITH GRAVE */ ,
+	/* ED */ 0x00FF /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,
+	/* EE */ 0x00AF /*                                        MACRON */ ,
+	/* EF */ 0x00B4 /*                                  ACUTE ACCENT */ ,
+	/* F0 */ 0x00AD /*                                   SOFT HYPHEN */ ,
+	/* F1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+/* F2 */ CANT_MAP_CHARACTER,
+	/* F3 */ 0x00BE /*                VULGAR FRACTION THREE QUARTERS */ ,
+	/* F4 */ 0x00B6 /*                                  PILCROW SIGN */ ,
+	/* F5 */ 0x00A7 /*                                  SECTION SIGN */ ,
+	/* F6 */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* F7 */ 0x00B8 /*                                       CEDILLA */ ,
+	/* F8 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* F9 */ 0x00A8 /*                                     DIAERESIS */ ,
+	/* FA */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* FB */ 0x00B9 /*                               SUPERSCRIPT ONE */ ,
+	/* FC */ 0x00B3 /*                             SUPERSCRIPT THREE */ ,
+	/* FD */ 0x00B2 /*                               SUPERSCRIPT TWO */ ,
+	/* FE */ 0x25A0 /*                                  BLACK SQUARE */ ,
+	/* FF */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xFF /*                                NO-BREAK SPACE */ ,	/* 416 */
+	/* U+00A1 */ 0xAD /*                     INVERTED EXCLAMATION MARK */ ,	/* 417 */
+	/* U+00A2 */ 0xBD /*                                     CENT SIGN */ ,	/* 418 */
+	/* U+00A3 */ 0x9C /*                                    POUND SIGN */ ,	/* 419 */
+	/* U+00A4 */ 0xCF /*                                 CURRENCY SIGN */ ,	/* 420 */
+	/* U+00A5 */ 0xBE /*                                      YEN SIGN */ ,	/* 421 */
+	/* U+00A6 */ 0xDD /*                                    BROKEN BAR */ ,	/* 422 */
+	/* U+00A7 */ 0xF5 /*                                  SECTION SIGN */ ,	/* 423 */
+	/* U+00A8 */ 0xF9 /*                                     DIAERESIS */ ,	/* 424 */
+	/* U+00A9 */ 0xB8 /*                                COPYRIGHT SIGN */ ,	/* 425 */
+	/* U+00AA */ 0xD1 /*                    FEMININE ORDINAL INDICATOR */ ,	/* 426 */
+	/* U+00AB */ 0xAE /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAA /*                                      NOT SIGN */ ,	/* 428 */
+	/* U+00AD */ 0xF0 /*                                   SOFT HYPHEN */ ,	/* 429 */
+	/* U+00AE */ 0xA9 /*                               REGISTERED SIGN */ ,	/* 430 */
+	/* U+00AF */ 0xEE /*                                        MACRON */ ,	/* 431 */
+	/* U+00B0 */ 0xF8 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xF1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+	/* U+00B2 */ 0xFD /*                               SUPERSCRIPT TWO */ ,	/* 434 */
+	/* U+00B3 */ 0xFC /*                             SUPERSCRIPT THREE */ ,	/* 435 */
+	/* U+00B4 */ 0xEF /*                                  ACUTE ACCENT */ ,	/* 436 */
+	/* U+00B5 */ 0xE6 /*                                    MICRO SIGN */ ,	/* 437 */
+	/* U+00B6 */ 0xF4 /*                                  PILCROW SIGN */ ,	/* 438 */
+	/* U+00B7 */ 0xFA /*                                    MIDDLE DOT */ ,	/* 439 */
+	/* U+00B8 */ 0xF7 /*                                       CEDILLA */ ,	/* 440 */
+	/* U+00B9 */ 0xFB /*                               SUPERSCRIPT ONE */ ,	/* 441 */
+	/* U+00BA */ 0xD0 /*                   MASCULINE ORDINAL INDICATOR */ ,	/* 442 */
+	/* U+00BB */ 0xAF /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+	/* U+00BC */ 0xAC /*                   VULGAR FRACTION ONE QUARTER */ ,	/* 444 */
+	/* U+00BD */ 0xAB /*                      VULGAR FRACTION ONE HALF */ ,	/* 445 */
+	/* U+00BE */ 0xF3 /*                VULGAR FRACTION THREE QUARTERS */ ,	/* 446 */
+	/* U+00BF */ 0xA8 /*                        INVERTED QUESTION MARK */ ,	/* 447 */
+	/* U+00C0 */ 0xB7 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,	/* 448 */
+	/* U+00C1 */ 0xB5 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,	/* 449 */
+	/* U+00C2 */ 0xB6 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,	/* 450 */
+	/* U+00C3 */ 0xC7 /*             LATIN CAPITAL LETTER A WITH TILDE */ ,	/* 451 */
+	/* U+00C4 */ 0x8E /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,	/* 452 */
+	/* U+00C5 */ 0x8F /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,	/* 453 */
+	/* U+00C6 */ 0x92 /*                     LATIN CAPITAL LIGATURE AE */ ,	/* 454 */
+	/* U+00C7 */ 0x80 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,	/* 455 */
+	/* U+00C8 */ 0xD4 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,	/* 456 */
+	/* U+00C9 */ 0x90 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,	/* 457 */
+	/* U+00CA */ 0xD2 /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,	/* 458 */
+	/* U+00CB */ 0xD3 /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,	/* 459 */
+	/* U+00CC */ 0xDE /*             LATIN CAPITAL LETTER I WITH GRAVE */ ,	/* 460 */
+	/* U+00CD */ 0xD6 /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,	/* 461 */
+	/* U+00CE */ 0xD7 /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,	/* 462 */
+	/* U+00CF */ 0xD8 /*         LATIN CAPITAL LETTER I WITH DIAERESIS */ ,	/* 463 */
+										/* U+00D0 */ CANT_MAP_CHARACTER,
+										/* 464 */
+	/* U+00D1 */ 0xA5 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,	/* 465 */
+	/* U+00D2 */ 0xE3 /*             LATIN CAPITAL LETTER O WITH GRAVE */ ,	/* 466 */
+	/* U+00D3 */ 0xE0 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,	/* 467 */
+	/* U+00D4 */ 0xE2 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,	/* 468 */
+	/* U+00D5 */ 0xE5 /*             LATIN CAPITAL LETTER O WITH TILDE */ ,	/* 469 */
+	/* U+00D6 */ 0x99 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,	/* 470 */
+	/* U+00D7 */ 0xE8 /*                           MULTIPLICATION SIGN */ ,	/* 471 */
+	/* U+00D8 */ 0x9D /*            LATIN CAPITAL LETTER O WITH STROKE */ ,	/* 472 */
+	/* U+00D9 */ 0xEB /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,	/* 473 */
+	/* U+00DA */ 0xE9 /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,	/* 474 */
+	/* U+00DB */ 0xEA /*        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ ,	/* 475 */
+	/* U+00DC */ 0x9A /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,	/* 476 */
+										/* U+00DD */ CANT_MAP_CHARACTER,
+										/* 477 */
+										/* U+00DE */ CANT_MAP_CHARACTER,
+										/* 478 */
+	/* U+00DF */ 0xE1 /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+	/* U+00E0 */ 0x85 /*               LATIN SMALL LETTER A WITH GRAVE */ ,	/* 480 */
+	/* U+00E1 */ 0xA0 /*               LATIN SMALL LETTER A WITH ACUTE */ ,	/* 481 */
+	/* U+00E2 */ 0x83 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,	/* 482 */
+	/* U+00E3 */ 0xC6 /*               LATIN SMALL LETTER A WITH TILDE */ ,	/* 483 */
+	/* U+00E4 */ 0x84 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,	/* 484 */
+	/* U+00E5 */ 0x86 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,	/* 485 */
+	/* U+00E6 */ 0x91 /*                       LATIN SMALL LIGATURE AE */ ,	/* 486 */
+	/* U+00E7 */ 0x87 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,	/* 487 */
+	/* U+00E8 */ 0x8A /*               LATIN SMALL LETTER E WITH GRAVE */ ,	/* 488 */
+	/* U+00E9 */ 0x82 /*               LATIN SMALL LETTER E WITH ACUTE */ ,	/* 489 */
+	/* U+00EA */ 0x88 /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,	/* 490 */
+	/* U+00EB */ 0x89 /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,	/* 491 */
+	/* U+00EC */ 0xEC /*               LATIN SMALL LETTER I WITH GRAVE */ ,	/* 492 */
+	/* U+00ED */ 0xA1 /*               LATIN SMALL LETTER I WITH ACUTE */ ,	/* 493 */
+	/* U+00EE */ 0x8C /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,	/* 494 */
+	/* U+00EF */ 0x8B /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,	/* 495 */
+										/* U+00F0 */ CANT_MAP_CHARACTER,
+										/* 496 */
+	/* U+00F1 */ 0xA4 /*               LATIN SMALL LETTER N WITH TILDE */ ,	/* 497 */
+	/* U+00F2 */ 0x95 /*               LATIN SMALL LETTER O WITH GRAVE */ ,	/* 498 */
+	/* U+00F3 */ 0xA2 /*               LATIN SMALL LETTER O WITH ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0x93 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,	/* 500 */
+	/* U+00F5 */ 0xE4 /*               LATIN SMALL LETTER O WITH TILDE */ ,	/* 501 */
+	/* U+00F6 */ 0x94 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,	/* 502 */
+	/* U+00F7 */ 0xF6 /*                                 DIVISION SIGN */ ,	/* 503 */
+	/* U+00F8 */ 0x9B /*              LATIN SMALL LETTER O WITH STROKE */ ,	/* 504 */
+	/* U+00F9 */ 0x97 /*               LATIN SMALL LETTER U WITH GRAVE */ ,	/* 505 */
+	/* U+00FA */ 0xA3 /*               LATIN SMALL LETTER U WITH ACUTE */ ,	/* 506 */
+	/* U+00FB */ 0x96 /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,	/* 507 */
+	/* U+00FC */ 0x81 /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,	/* 508 */
+										/* U+00FD */ CANT_MAP_CHARACTER,
+										/* 509 */
+										/* U+00FE */ CANT_MAP_CHARACTER,
+										/* 510 */
+	/* U+00FF */ 0xED /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,	/* 511 */
+										/* U+0100 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0101 */ CANT_MAP_CHARACTER,
+										/* 513 */
+										/* U+0102 */ CANT_MAP_CHARACTER,
+										/* 514 */
+										/* U+0103 */ CANT_MAP_CHARACTER,
+										/* 515 */
+										/* U+0104 */ CANT_MAP_CHARACTER,
+										/* 516 */
+										/* U+0105 */ CANT_MAP_CHARACTER,
+										/* 517 */
+										/* U+0106 */ CANT_MAP_CHARACTER,
+										/* 518 */
+										/* U+0107 */ CANT_MAP_CHARACTER,
+										/* 519 */
+										/* U+0108 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0109 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+010A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+010B */ CANT_MAP_CHARACTER,
+										/* 523 */
+										/* U+010C */ CANT_MAP_CHARACTER,
+										/* 524 */
+										/* U+010D */ CANT_MAP_CHARACTER,
+										/* 525 */
+										/* U+010E */ CANT_MAP_CHARACTER,
+										/* 526 */
+										/* U+010F */ CANT_MAP_CHARACTER,
+										/* 527 */
+										/* U+0110 */ CANT_MAP_CHARACTER,
+										/* 528 */
+										/* U+0111 */ CANT_MAP_CHARACTER,
+										/* 529 */
+										/* U+0112 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0113 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0114 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0115 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0116 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0117 */ CANT_MAP_CHARACTER,
+										/* 535 */
+										/* U+0118 */ CANT_MAP_CHARACTER,
+										/* 536 */
+										/* U+0119 */ CANT_MAP_CHARACTER,
+										/* 537 */
+										/* U+011A */ CANT_MAP_CHARACTER,
+										/* 538 */
+										/* U+011B */ CANT_MAP_CHARACTER,
+										/* 539 */
+										/* U+011C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+011D */ CANT_MAP_CHARACTER,
+										/* 541 */
+	/* U+011E */ 0xA6 /*             LATIN CAPITAL LETTER G WITH BREVE */ ,	/* 542 */
+	/* U+011F */ 0xA7 /*               LATIN SMALL LETTER G WITH BREVE */ ,	/* 543 */
+										/* U+0120 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0121 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0122 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0123 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0124 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0125 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0126 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0127 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0128 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0129 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+012A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+012B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+012C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+012D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+012E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+012F */ CANT_MAP_CHARACTER,
+										/* 559 */
+	/* U+0130 */ 0x98 /*         LATIN CAPITAL LETTER I WITH DOT ABOVE */ ,	/* 560 */
+	/* U+0131 */ 0x8D /*                  LATIN SMALL LETTER DOTLESS I */ ,	/* 561 */
+										/* U+0132 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0133 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0134 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0135 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0136 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0137 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0138 */ CANT_MAP_CHARACTER,
+										/* 568 */
+										/* U+0139 */ CANT_MAP_CHARACTER,
+										/* 569 */
+										/* U+013A */ CANT_MAP_CHARACTER,
+										/* 570 */
+										/* U+013B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+013C */ CANT_MAP_CHARACTER,
+										/* 572 */
+										/* U+013D */ CANT_MAP_CHARACTER,
+										/* 573 */
+										/* U+013E */ CANT_MAP_CHARACTER,
+										/* 574 */
+										/* U+013F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0140 */ CANT_MAP_CHARACTER,
+										/* 576 */
+										/* U+0141 */ CANT_MAP_CHARACTER,
+										/* 577 */
+										/* U+0142 */ CANT_MAP_CHARACTER,
+										/* 578 */
+										/* U+0143 */ CANT_MAP_CHARACTER,
+										/* 579 */
+										/* U+0144 */ CANT_MAP_CHARACTER,
+										/* 580 */
+										/* U+0145 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0146 */ CANT_MAP_CHARACTER,
+										/* 582 */
+										/* U+0147 */ CANT_MAP_CHARACTER,
+										/* 583 */
+										/* U+0148 */ CANT_MAP_CHARACTER,
+										/* 584 */
+										/* U+0149 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+014A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+014B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+014C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+014D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+014E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+014F */ CANT_MAP_CHARACTER,
+										/* 591 */
+										/* U+0150 */ CANT_MAP_CHARACTER,
+										/* 592 */
+										/* U+0151 */ CANT_MAP_CHARACTER,
+										/* 593 */
+										/* U+0152 */ CANT_MAP_CHARACTER,
+										/* 594 */
+										/* U+0153 */ CANT_MAP_CHARACTER,
+										/* 595 */
+										/* U+0154 */ CANT_MAP_CHARACTER,
+										/* 596 */
+										/* U+0155 */ CANT_MAP_CHARACTER,
+										/* 597 */
+										/* U+0156 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0157 */ CANT_MAP_CHARACTER,
+										/* 599 */
+										/* U+0158 */ CANT_MAP_CHARACTER,
+										/* 600 */
+										/* U+0159 */ CANT_MAP_CHARACTER,
+										/* 601 */
+										/* U+015A */ CANT_MAP_CHARACTER,
+										/* 602 */
+										/* U+015B */ CANT_MAP_CHARACTER,
+										/* 603 */
+										/* U+015C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+015D */ CANT_MAP_CHARACTER,
+										/* 605 */
+	/* U+015E */ 0x9E /*           LATIN CAPITAL LETTER S WITH CEDILLA */ ,	/* 606 */
+	/* U+015F */ 0x9F /*             LATIN SMALL LETTER S WITH CEDILLA */ ,	/* 607 */
+										/* U+0160 */ CANT_MAP_CHARACTER,
+										/* 608 */
+										/* U+0161 */ CANT_MAP_CHARACTER,
+										/* 609 */
+										/* U+0162 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0163 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0164 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0165 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0166 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0167 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0168 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0169 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+016A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+016B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+016C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+016D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+016E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+016F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0170 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0171 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0172 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0173 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0174 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0175 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0176 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0177 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0178 */ CANT_MAP_CHARACTER,
+										/* 632 */
+										/* U+0179 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+017A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+017B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+017C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+017D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+017E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+017F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0180 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0181 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0182 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0183 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0184 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0185 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0186 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0187 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0188 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0189 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+018A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+018B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+018C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+018D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+018E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+018F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0190 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0191 */ CANT_MAP_CHARACTER,
+										/* 657 */
+										/* U+0192 */ CANT_MAP_CHARACTER,
+										/* 658 */
+										/* U+0193 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0194 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0195 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0196 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0197 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0198 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0199 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+019A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+019B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+019C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+019D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+019E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+019F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+01A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+01A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+01A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+01A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+01A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+01A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+01A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+01A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+01A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+01A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+01AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+01AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+01AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+01AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+01AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+01AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+01B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+01B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+01B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+01B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+01B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+01B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+01B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+01B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+01B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+01B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+01BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+01BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+01BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+01BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+01BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+01BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+01C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+01C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+01C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+01C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+01C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+01C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+01C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+01C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+01C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+01C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+01CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+01CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+01CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+01CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+01CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+01CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+01D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+01D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+01D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+01D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+01D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+01D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+01D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+01D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+01D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+01D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+01DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+01DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+01DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+01DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+01DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+01DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+01E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+01E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+01E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+01E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+01E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+01E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+01E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+01E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+01E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+01E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+01EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+01EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+01EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+01ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+01EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+01EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+01F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+01F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+01F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+01F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+01F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+01F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+01F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+01F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+01F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+01F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+01FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+01FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+01FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+01FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+01FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+01FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+	/* U+2500 */ 0xC4 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,	/* 768 */
+										/* U+2501 */ CANT_MAP_CHARACTER,
+										/* 769 */
+	/* U+2502 */ 0xB3 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,	/* 770 */
+										/* U+2503 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+2504 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+2505 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+2506 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+2507 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+2508 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+2509 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+250A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+250B */ CANT_MAP_CHARACTER,
+										/* 779 */
+	/* U+250C */ 0xDA /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,	/* 780 */
+										/* U+250D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+250E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+250F */ CANT_MAP_CHARACTER,
+										/* 783 */
+	/* U+2510 */ 0xBF /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,	/* 784 */
+										/* U+2511 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+2512 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+2513 */ CANT_MAP_CHARACTER,
+										/* 787 */
+	/* U+2514 */ 0xC0 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,	/* 788 */
+										/* U+2515 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+2516 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+2517 */ CANT_MAP_CHARACTER,
+										/* 791 */
+	/* U+2518 */ 0xD9 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,	/* 792 */
+										/* U+2519 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+251A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+251B */ CANT_MAP_CHARACTER,
+										/* 795 */
+	/* U+251C */ 0xC3 /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,	/* 796 */
+										/* U+251D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+251E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+251F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+2520 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+2521 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+2522 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+2523 */ CANT_MAP_CHARACTER,
+										/* 803 */
+	/* U+2524 */ 0xB4 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,	/* 804 */
+										/* U+2525 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+2526 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+2527 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+2528 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+2529 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+252A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+252B */ CANT_MAP_CHARACTER,
+										/* 811 */
+	/* U+252C */ 0xC2 /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,	/* 812 */
+										/* U+252D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+252E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+252F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+2530 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+2531 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+2532 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+2533 */ CANT_MAP_CHARACTER,
+										/* 819 */
+	/* U+2534 */ 0xC1 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,	/* 820 */
+										/* U+2535 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+2536 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+2537 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+2538 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+2539 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+253A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+253B */ CANT_MAP_CHARACTER,
+										/* 827 */
+	/* U+253C */ 0xC5 /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,	/* 828 */
+										/* U+253D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+253E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+253F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+2540 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+2541 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+2542 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+2543 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+2544 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+2545 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+2546 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+2547 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+2548 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+2549 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+254A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+254B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+254C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+254D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+254E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+254F */ CANT_MAP_CHARACTER,
+										/* 847 */
+	/* U+2550 */ 0xCD /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,	/* 848 */
+	/* U+2551 */ 0xBA /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,	/* 849 */
+										/* U+2552 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+2553 */ CANT_MAP_CHARACTER,
+										/* 851 */
+	/* U+2554 */ 0xC9 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,	/* 852 */
+										/* U+2555 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+2556 */ CANT_MAP_CHARACTER,
+										/* 854 */
+	/* U+2557 */ 0xBB /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,	/* 855 */
+										/* U+2558 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+2559 */ CANT_MAP_CHARACTER,
+										/* 857 */
+	/* U+255A */ 0xC8 /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,	/* 858 */
+										/* U+255B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+255C */ CANT_MAP_CHARACTER,
+										/* 860 */
+	/* U+255D */ 0xBC /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,	/* 861 */
+										/* U+255E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+255F */ CANT_MAP_CHARACTER,
+										/* 863 */
+	/* U+2560 */ 0xCC /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,	/* 864 */
+										/* U+2561 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+2562 */ CANT_MAP_CHARACTER,
+										/* 866 */
+	/* U+2563 */ 0xB9 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,	/* 867 */
+										/* U+2564 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+2565 */ CANT_MAP_CHARACTER,
+										/* 869 */
+	/* U+2566 */ 0xCB /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,	/* 870 */
+										/* U+2567 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+2568 */ CANT_MAP_CHARACTER,
+										/* 872 */
+	/* U+2569 */ 0xCA /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,	/* 873 */
+										/* U+256A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+256B */ CANT_MAP_CHARACTER,
+										/* 875 */
+	/* U+256C */ 0xCE /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,	/* 876 */
+										/* U+256D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+256E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+256F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+2570 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+2571 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+2572 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+2573 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+2574 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+2575 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+2576 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+2577 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+2578 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+2579 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+257A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+257B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+257C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+257D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+257E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+257F */ CANT_MAP_CHARACTER,
+										/* 895 */
+	/* U+2580 */ 0xDF /*                              UPPER HALF BLOCK */ ,	/* 896 */
+										/* U+2581 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+2582 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+2583 */ CANT_MAP_CHARACTER,
+										/* 899 */
+	/* U+2584 */ 0xDC /*                              LOWER HALF BLOCK */ ,	/* 900 */
+										/* U+2585 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+2586 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+2587 */ CANT_MAP_CHARACTER,
+										/* 903 */
+	/* U+2588 */ 0xDB /*                                    FULL BLOCK */ ,	/* 904 */
+										/* U+2589 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+258A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+258B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+258C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+258D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+258E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+258F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+2590 */ CANT_MAP_CHARACTER,
+										/* 912 */
+	/* U+2591 */ 0xB0 /*                                   LIGHT SHADE */ ,	/* 913 */
+	/* U+2592 */ 0xB1 /*                                  MEDIUM SHADE */ ,	/* 914 */
+	/* U+2593 */ 0xB2 /*                                    DARK SHADE */ ,	/* 915 */
+										/* U+2594 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+2595 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+2596 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+2597 */ CANT_MAP_CHARACTER,
+										/* 919 */
+										/* U+2598 */ CANT_MAP_CHARACTER,
+										/* 920 */
+										/* U+2599 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+259A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+259B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+259C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+259D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+259E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+259F */ CANT_MAP_CHARACTER,
+										/* 927 */
+	/* U+25A0 */ 0xFE /*                                  BLACK SQUARE */ ,	/* 928 */
+										/* U+25A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+25A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+										/* U+25A3 */ CANT_MAP_CHARACTER,
+										/* 931 */
+										/* U+25A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+25A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+										/* U+25A6 */ CANT_MAP_CHARACTER,
+										/* 934 */
+										/* U+25A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+25A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+										/* U+25A9 */ CANT_MAP_CHARACTER,
+										/* 937 */
+										/* U+25AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+25AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+25AC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+25AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+25AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+25AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+25B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+										/* U+25B1 */ CANT_MAP_CHARACTER,
+										/* 945 */
+										/* U+25B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+25B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+										/* U+25B4 */ CANT_MAP_CHARACTER,
+										/* 948 */
+										/* U+25B5 */ CANT_MAP_CHARACTER,
+										/* 949 */
+										/* U+25B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+25B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+25B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+25B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+25BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+25BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+25BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+25BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+25BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+25BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+										/* U+25C0 */ CANT_MAP_CHARACTER,
+										/* 960 */
+										/* U+25C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+25C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+										/* U+25C3 */ CANT_MAP_CHARACTER,
+										/* 963 */
+										/* U+25C4 */ CANT_MAP_CHARACTER,
+										/* 964 */
+										/* U+25C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+										/* U+25C6 */ CANT_MAP_CHARACTER,
+										/* 966 */
+										/* U+25C7 */ CANT_MAP_CHARACTER,
+										/* 967 */
+										/* U+25C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+25C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+25CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+25CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+25CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+25CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+25CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+25CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+25D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+25D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+25D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+25D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+25D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+25D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+25D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+25D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+25D8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+25D9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+25DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+25DB */ CANT_MAP_CHARACTER,
+										/* 987 */
+										/* U+25DC */ CANT_MAP_CHARACTER,
+										/* 988 */
+										/* U+25DD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+25DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+25DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+25E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+25E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+25E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+25E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+25E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+25E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+25E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+25E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+25E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+25E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+25EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+25EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+25EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+25ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+25EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+25EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+25F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+25F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+25F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+25F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+25F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+25F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+25F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+25F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+25F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+25F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+25FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+25FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+25FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+25FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+25FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+25FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 512,
+/* U+02-- */ 0,
+/* U+03-- */ 0,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 0,
+/* U+21-- */ 0,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 768,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_860.h b/src/intl/cs_860.h
new file mode 100644
index 0000000000..db98d10d5e
--- /dev/null
+++ b/src/intl/cs_860.h
@@ -0,0 +1,4150 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/PC/CP860.TXT 
+
+#
+#    Name:     cp860_DOSPortuguese to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/24/96
+#    Authors:       Lori Brownell <loribr@microsoft.com>
+#                   K.D. Chang    <a-kchang@microsoft.com>
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp860_DOSPortuguese code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp860_DOSPortuguese order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0a	0x000a	#LINE FEED
+0x0b	0x000b	#VERTICAL TABULATION
+0x0c	0x000c	#FORM FEED
+0x0d	0x000d	#CARRIAGE RETURN
+0x0e	0x000e	#SHIFT OUT
+0x0f	0x000f	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1a	0x001a	#SUBSTITUTE
+0x1b	0x001b	#ESCAPE
+0x1c	0x001c	#FILE SEPARATOR
+0x1d	0x001d	#GROUP SEPARATOR
+0x1e	0x001e	#RECORD SEPARATOR
+0x1f	0x001f	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2a	0x002a	#ASTERISK
+0x2b	0x002b	#PLUS SIGN
+0x2c	0x002c	#COMMA
+0x2d	0x002d	#HYPHEN-MINUS
+0x2e	0x002e	#FULL STOP
+0x2f	0x002f	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3a	0x003a	#COLON
+0x3b	0x003b	#SEMICOLON
+0x3c	0x003c	#LESS-THAN SIGN
+0x3d	0x003d	#EQUALS SIGN
+0x3e	0x003e	#GREATER-THAN SIGN
+0x3f	0x003f	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4a	0x004a	#LATIN CAPITAL LETTER J
+0x4b	0x004b	#LATIN CAPITAL LETTER K
+0x4c	0x004c	#LATIN CAPITAL LETTER L
+0x4d	0x004d	#LATIN CAPITAL LETTER M
+0x4e	0x004e	#LATIN CAPITAL LETTER N
+0x4f	0x004f	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5a	0x005a	#LATIN CAPITAL LETTER Z
+0x5b	0x005b	#LEFT SQUARE BRACKET
+0x5c	0x005c	#REVERSE SOLIDUS
+0x5d	0x005d	#RIGHT SQUARE BRACKET
+0x5e	0x005e	#CIRCUMFLEX ACCENT
+0x5f	0x005f	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6a	0x006a	#LATIN SMALL LETTER J
+0x6b	0x006b	#LATIN SMALL LETTER K
+0x6c	0x006c	#LATIN SMALL LETTER L
+0x6d	0x006d	#LATIN SMALL LETTER M
+0x6e	0x006e	#LATIN SMALL LETTER N
+0x6f	0x006f	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7a	0x007a	#LATIN SMALL LETTER Z
+0x7b	0x007b	#LEFT CURLY BRACKET
+0x7c	0x007c	#VERTICAL LINE
+0x7d	0x007d	#RIGHT CURLY BRACKET
+0x7e	0x007e	#TILDE
+0x7f	0x007f	#DELETE
+0x80	0x00c7	#LATIN CAPITAL LETTER C WITH CEDILLA
+0x81	0x00fc	#LATIN SMALL LETTER U WITH DIAERESIS
+0x82	0x00e9	#LATIN SMALL LETTER E WITH ACUTE
+0x83	0x00e2	#LATIN SMALL LETTER A WITH CIRCUMFLEX
+0x84	0x00e3	#LATIN SMALL LETTER A WITH TILDE
+0x85	0x00e0	#LATIN SMALL LETTER A WITH GRAVE
+0x86	0x00c1	#LATIN CAPITAL LETTER A WITH ACUTE
+0x87	0x00e7	#LATIN SMALL LETTER C WITH CEDILLA
+0x88	0x00ea	#LATIN SMALL LETTER E WITH CIRCUMFLEX
+0x89	0x00ca	#LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0x8a	0x00e8	#LATIN SMALL LETTER E WITH GRAVE
+0x8b	0x00cd	#LATIN CAPITAL LETTER I WITH ACUTE
+0x8c	0x00d4	#LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+0x8d	0x00ec	#LATIN SMALL LETTER I WITH GRAVE
+0x8e	0x00c3	#LATIN CAPITAL LETTER A WITH TILDE
+0x8f	0x00c2	#LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0x90	0x00c9	#LATIN CAPITAL LETTER E WITH ACUTE
+0x91	0x00c0	#LATIN CAPITAL LETTER A WITH GRAVE
+0x92	0x00c8	#LATIN CAPITAL LETTER E WITH GRAVE
+0x93	0x00f4	#LATIN SMALL LETTER O WITH CIRCUMFLEX
+0x94	0x00f5	#LATIN SMALL LETTER O WITH TILDE
+0x95	0x00f2	#LATIN SMALL LETTER O WITH GRAVE
+0x96	0x00da	#LATIN CAPITAL LETTER U WITH ACUTE
+0x97	0x00f9	#LATIN SMALL LETTER U WITH GRAVE
+0x98	0x00cc	#LATIN CAPITAL LETTER I WITH GRAVE
+0x99	0x00d5	#LATIN CAPITAL LETTER O WITH TILDE
+0x9a	0x00dc	#LATIN CAPITAL LETTER U WITH DIAERESIS
+0x9b	0x00a2	#CENT SIGN
+0x9c	0x00a3	#POUND SIGN
+0x9d	0x00d9	#LATIN CAPITAL LETTER U WITH GRAVE
+0x9e	0x20a7	#PESETA SIGN
+0x9f	0x00d3	#LATIN CAPITAL LETTER O WITH ACUTE
+0xa0	0x00e1	#LATIN SMALL LETTER A WITH ACUTE
+0xa1	0x00ed	#LATIN SMALL LETTER I WITH ACUTE
+0xa2	0x00f3	#LATIN SMALL LETTER O WITH ACUTE
+0xa3	0x00fa	#LATIN SMALL LETTER U WITH ACUTE
+0xa4	0x00f1	#LATIN SMALL LETTER N WITH TILDE
+0xa5	0x00d1	#LATIN CAPITAL LETTER N WITH TILDE
+0xa6	0x00aa	#FEMININE ORDINAL INDICATOR
+0xa7	0x00ba	#MASCULINE ORDINAL INDICATOR
+0xa8	0x00bf	#INVERTED QUESTION MARK
+0xa9	0x00d2	#LATIN CAPITAL LETTER O WITH GRAVE
+0xaa	0x00ac	#NOT SIGN
+0xab	0x00bd	#VULGAR FRACTION ONE HALF
+0xac	0x00bc	#VULGAR FRACTION ONE QUARTER
+0xad	0x00a1	#INVERTED EXCLAMATION MARK
+0xae	0x00ab	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xaf	0x00bb	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xb0	0x2591	#LIGHT SHADE
+0xb1	0x2592	#MEDIUM SHADE
+0xb2	0x2593	#DARK SHADE
+0xb3	0x2502	#BOX DRAWINGS LIGHT VERTICAL
+0xb4	0x2524	#BOX DRAWINGS LIGHT VERTICAL AND LEFT
+0xb5	0x2561	#BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
+0xb6	0x2562	#BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
+0xb7	0x2556	#BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
+0xb8	0x2555	#BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
+0xb9	0x2563	#BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+0xba	0x2551	#BOX DRAWINGS DOUBLE VERTICAL
+0xbb	0x2557	#BOX DRAWINGS DOUBLE DOWN AND LEFT
+0xbc	0x255d	#BOX DRAWINGS DOUBLE UP AND LEFT
+0xbd	0x255c	#BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
+0xbe	0x255b	#BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
+0xbf	0x2510	#BOX DRAWINGS LIGHT DOWN AND LEFT
+0xc0	0x2514	#BOX DRAWINGS LIGHT UP AND RIGHT
+0xc1	0x2534	#BOX DRAWINGS LIGHT UP AND HORIZONTAL
+0xc2	0x252c	#BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+0xc3	0x251c	#BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+0xc4	0x2500	#BOX DRAWINGS LIGHT HORIZONTAL
+0xc5	0x253c	#BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+0xc6	0x255e	#BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
+0xc7	0x255f	#BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
+0xc8	0x255a	#BOX DRAWINGS DOUBLE UP AND RIGHT
+0xc9	0x2554	#BOX DRAWINGS DOUBLE DOWN AND RIGHT
+0xca	0x2569	#BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+0xcb	0x2566	#BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+0xcc	0x2560	#BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+0xcd	0x2550	#BOX DRAWINGS DOUBLE HORIZONTAL
+0xce	0x256c	#BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+0xcf	0x2567	#BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
+0xd0	0x2568	#BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
+0xd1	0x2564	#BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
+0xd2	0x2565	#BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
+0xd3	0x2559	#BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
+0xd4	0x2558	#BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
+0xd5	0x2552	#BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
+0xd6	0x2553	#BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
+0xd7	0x256b	#BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
+0xd8	0x256a	#BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
+0xd9	0x2518	#BOX DRAWINGS LIGHT UP AND LEFT
+0xda	0x250c	#BOX DRAWINGS LIGHT DOWN AND RIGHT
+0xdb	0x2588	#FULL BLOCK
+0xdc	0x2584	#LOWER HALF BLOCK
+0xdd	0x258c	#LEFT HALF BLOCK
+0xde	0x2590	#RIGHT HALF BLOCK
+0xdf	0x2580	#UPPER HALF BLOCK
+0xe0	0x03b1	#GREEK SMALL LETTER ALPHA
+0xe1	0x00df	#LATIN SMALL LETTER SHARP S
+0xe2	0x0393	#GREEK CAPITAL LETTER GAMMA
+0xe3	0x03c0	#GREEK SMALL LETTER PI
+0xe4	0x03a3	#GREEK CAPITAL LETTER SIGMA
+0xe5	0x03c3	#GREEK SMALL LETTER SIGMA
+0xe6	0x00b5	#MICRO SIGN
+0xe7	0x03c4	#GREEK SMALL LETTER TAU
+0xe8	0x03a6	#GREEK CAPITAL LETTER PHI
+0xe9	0x0398	#GREEK CAPITAL LETTER THETA
+0xea	0x03a9	#GREEK CAPITAL LETTER OMEGA
+0xeb	0x03b4	#GREEK SMALL LETTER DELTA
+0xec	0x221e	#INFINITY
+0xed	0x03c6	#GREEK SMALL LETTER PHI
+0xee	0x03b5	#GREEK SMALL LETTER EPSILON
+0xef	0x2229	#INTERSECTION
+0xf0	0x2261	#IDENTICAL TO
+0xf1	0x00b1	#PLUS-MINUS SIGN
+0xf2	0x2265	#GREATER-THAN OR EQUAL TO
+0xf3	0x2264	#LESS-THAN OR EQUAL TO
+0xf4	0x2320	#TOP HALF INTEGRAL
+0xf5	0x2321	#BOTTOM HALF INTEGRAL
+0xf6	0x00f7	#DIVISION SIGN
+0xf7	0x2248	#ALMOST EQUAL TO
+0xf8	0x00b0	#DEGREE SIGN
+0xf9	0x2219	#BULLET OPERATOR
+0xfa	0x00b7	#MIDDLE DOT
+0xfb	0x221a	#SQUARE ROOT
+0xfc	0x207f	#SUPERSCRIPT LATIN SMALL LETTER N
+0xfd	0x00b2	#SUPERSCRIPT TWO
+0xfe	0x25a0	#BLACK SQUARE
+0xff	0x00a0	#NO-BREAK SPACE
+
+
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x00C7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,
+	/* 81 */ 0x00FC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,
+	/* 82 */ 0x00E9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,
+	/* 83 */ 0x00E2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,
+	/* 84 */ 0x00E3 /*               LATIN SMALL LETTER A WITH TILDE */ ,
+	/* 85 */ 0x00E0 /*               LATIN SMALL LETTER A WITH GRAVE */ ,
+	/* 86 */ 0x00C1 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,
+	/* 87 */ 0x00E7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,
+	/* 88 */ 0x00EA /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,
+	/* 89 */ 0x00CA /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,
+	/* 8A */ 0x00E8 /*               LATIN SMALL LETTER E WITH GRAVE */ ,
+	/* 8B */ 0x00CD /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,
+	/* 8C */ 0x00D4 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,
+	/* 8D */ 0x00EC /*               LATIN SMALL LETTER I WITH GRAVE */ ,
+	/* 8E */ 0x00C3 /*             LATIN CAPITAL LETTER A WITH TILDE */ ,
+	/* 8F */ 0x00C2 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,
+	/* 90 */ 0x00C9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,
+	/* 91 */ 0x00C0 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,
+	/* 92 */ 0x00C8 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,
+	/* 93 */ 0x00F4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,
+	/* 94 */ 0x00F5 /*               LATIN SMALL LETTER O WITH TILDE */ ,
+	/* 95 */ 0x00F2 /*               LATIN SMALL LETTER O WITH GRAVE */ ,
+	/* 96 */ 0x00DA /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,
+	/* 97 */ 0x00F9 /*               LATIN SMALL LETTER U WITH GRAVE */ ,
+	/* 98 */ 0x00CC /*             LATIN CAPITAL LETTER I WITH GRAVE */ ,
+	/* 99 */ 0x00D5 /*             LATIN CAPITAL LETTER O WITH TILDE */ ,
+	/* 9A */ 0x00DC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,
+	/* 9B */ 0x00A2 /*                                     CENT SIGN */ ,
+	/* 9C */ 0x00A3 /*                                    POUND SIGN */ ,
+	/* 9D */ 0x00D9 /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,
+	/* 9E */ 0x20A7 /*                                   PESETA SIGN */ ,
+	/* 9F */ 0x00D3 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,
+	/* A0 */ 0x00E1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,
+	/* A1 */ 0x00ED /*               LATIN SMALL LETTER I WITH ACUTE */ ,
+	/* A2 */ 0x00F3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,
+	/* A3 */ 0x00FA /*               LATIN SMALL LETTER U WITH ACUTE */ ,
+	/* A4 */ 0x00F1 /*               LATIN SMALL LETTER N WITH TILDE */ ,
+	/* A5 */ 0x00D1 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,
+	/* A6 */ 0x00AA /*                    FEMININE ORDINAL INDICATOR */ ,
+	/* A7 */ 0x00BA /*                   MASCULINE ORDINAL INDICATOR */ ,
+	/* A8 */ 0x00BF /*                        INVERTED QUESTION MARK */ ,
+	/* A9 */ 0x00D2 /*             LATIN CAPITAL LETTER O WITH GRAVE */ ,
+	/* AA */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AB */ 0x00BD /*                      VULGAR FRACTION ONE HALF */ ,
+	/* AC */ 0x00BC /*                   VULGAR FRACTION ONE QUARTER */ ,
+	/* AD */ 0x00A1 /*                     INVERTED EXCLAMATION MARK */ ,
+	/* AE */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AF */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* B0 */ 0x2591 /*                                   LIGHT SHADE */ ,
+	/* B1 */ 0x2592 /*                                  MEDIUM SHADE */ ,
+	/* B2 */ 0x2593 /*                                    DARK SHADE */ ,
+	/* B3 */ 0x2502 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,
+	/* B4 */ 0x2524 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,
+	/* B5 */ 0x2561 /*  BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE */ ,
+	/* B6 */ 0x2562 /*  BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE */ ,
+	/* B7 */ 0x2556 /*      BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE */ ,
+	/* B8 */ 0x2555 /*      BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE */ ,
+	/* B9 */ 0x2563 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,
+	/* BA */ 0x2551 /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,
+	/* BB */ 0x2557 /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,
+	/* BC */ 0x255D /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,
+	/* BD */ 0x255C /*        BOX DRAWINGS UP DOUBLE AND LEFT SINGLE */ ,
+	/* BE */ 0x255B /*        BOX DRAWINGS UP SINGLE AND LEFT DOUBLE */ ,
+	/* BF */ 0x2510 /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,
+	/* C0 */ 0x2514 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,
+	/* C1 */ 0x2534 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,
+	/* C2 */ 0x252C /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,
+	/* C3 */ 0x251C /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,
+	/* C4 */ 0x2500 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,
+	/* C5 */ 0x253C /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,
+	/* C6 */ 0x255E /* BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE */ ,
+	/* C7 */ 0x255F /* BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE */ ,
+	/* C8 */ 0x255A /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,
+	/* C9 */ 0x2554 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,
+	/* CA */ 0x2569 /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,
+	/* CB */ 0x2566 /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,
+	/* CC */ 0x2560 /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,
+	/* CD */ 0x2550 /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,
+	/* CE */ 0x256C /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,
+	/* CF */ 0x2567 /*  BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D0 */ 0x2568 /*  BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D1 */ 0x2564 /* BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D2 */ 0x2565 /* BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D3 */ 0x2559 /*       BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE */ ,
+	/* D4 */ 0x2558 /*       BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE */ ,
+	/* D5 */ 0x2552 /*     BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE */ ,
+	/* D6 */ 0x2553 /*     BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE */ ,
+	/* D7 */ 0x256B /* BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D8 */ 0x256A /* BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D9 */ 0x2518 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,
+	/* DA */ 0x250C /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,
+	/* DB */ 0x2588 /*                                    FULL BLOCK */ ,
+	/* DC */ 0x2584 /*                              LOWER HALF BLOCK */ ,
+	/* DD */ 0x258C /*                               LEFT HALF BLOCK */ ,
+	/* DE */ 0x2590 /*                              RIGHT HALF BLOCK */ ,
+	/* DF */ 0x2580 /*                              UPPER HALF BLOCK */ ,
+	/* E0 */ 0x03B1 /*                      GREEK SMALL LETTER ALPHA */ ,
+	/* E1 */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* E2 */ 0x0393 /*                    GREEK CAPITAL LETTER GAMMA */ ,
+	/* E3 */ 0x03C0 /*                         GREEK SMALL LETTER PI */ ,
+	/* E4 */ 0x03A3 /*                    GREEK CAPITAL LETTER SIGMA */ ,
+	/* E5 */ 0x03C3 /*                      GREEK SMALL LETTER SIGMA */ ,
+	/* E6 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* E7 */ 0x03C4 /*                        GREEK SMALL LETTER TAU */ ,
+	/* E8 */ 0x03A6 /*                      GREEK CAPITAL LETTER PHI */ ,
+	/* E9 */ 0x0398 /*                    GREEK CAPITAL LETTER THETA */ ,
+	/* EA */ 0x03A9 /*                    GREEK CAPITAL LETTER OMEGA */ ,
+	/* EB */ 0x03B4 /*                      GREEK SMALL LETTER DELTA */ ,
+	/* EC */ 0x221E /*                                      INFINITY */ ,
+	/* ED */ 0x03C6 /*                        GREEK SMALL LETTER PHI */ ,
+	/* EE */ 0x03B5 /*                    GREEK SMALL LETTER EPSILON */ ,
+	/* EF */ 0x2229 /*                                  INTERSECTION */ ,
+	/* F0 */ 0x2261 /*                                  IDENTICAL TO */ ,
+	/* F1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* F2 */ 0x2265 /*                      GREATER-THAN OR EQUAL TO */ ,
+	/* F3 */ 0x2264 /*                         LESS-THAN OR EQUAL TO */ ,
+	/* F4 */ 0x2320 /*                             TOP HALF INTEGRAL */ ,
+	/* F5 */ 0x2321 /*                          BOTTOM HALF INTEGRAL */ ,
+	/* F6 */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* F7 */ 0x2248 /*                               ALMOST EQUAL TO */ ,
+	/* F8 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* F9 */ 0x2219 /*                               BULLET OPERATOR */ ,
+	/* FA */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* FB */ 0x221A /*                                   SQUARE ROOT */ ,
+	/* FC */ 0x207F /*              SUPERSCRIPT LATIN SMALL LETTER N */ ,
+	/* FD */ 0x00B2 /*                               SUPERSCRIPT TWO */ ,
+	/* FE */ 0x25A0 /*                                  BLACK SQUARE */ ,
+	/* FF */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xFF /*                                NO-BREAK SPACE */ ,	/* 416 */
+	/* U+00A1 */ 0xAD /*                     INVERTED EXCLAMATION MARK */ ,	/* 417 */
+	/* U+00A2 */ 0x9B /*                                     CENT SIGN */ ,	/* 418 */
+	/* U+00A3 */ 0x9C /*                                    POUND SIGN */ ,	/* 419 */
+										/* U+00A4 */ CANT_MAP_CHARACTER,
+										/* 420 */
+										/* U+00A5 */ CANT_MAP_CHARACTER,
+										/* 421 */
+										/* U+00A6 */ CANT_MAP_CHARACTER,
+										/* 422 */
+										/* U+00A7 */ CANT_MAP_CHARACTER,
+										/* 423 */
+										/* U+00A8 */ CANT_MAP_CHARACTER,
+										/* 424 */
+										/* U+00A9 */ CANT_MAP_CHARACTER,
+										/* 425 */
+	/* U+00AA */ 0xA6 /*                    FEMININE ORDINAL INDICATOR */ ,	/* 426 */
+	/* U+00AB */ 0xAE /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAA /*                                      NOT SIGN */ ,	/* 428 */
+										/* U+00AD */ CANT_MAP_CHARACTER,
+										/* 429 */
+										/* U+00AE */ CANT_MAP_CHARACTER,
+										/* 430 */
+										/* U+00AF */ CANT_MAP_CHARACTER,
+										/* 431 */
+	/* U+00B0 */ 0xF8 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xF1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+	/* U+00B2 */ 0xFD /*                               SUPERSCRIPT TWO */ ,	/* 434 */
+										/* U+00B3 */ CANT_MAP_CHARACTER,
+										/* 435 */
+										/* U+00B4 */ CANT_MAP_CHARACTER,
+										/* 436 */
+	/* U+00B5 */ 0xE6 /*                                    MICRO SIGN */ ,	/* 437 */
+										/* U+00B6 */ CANT_MAP_CHARACTER,
+										/* 438 */
+	/* U+00B7 */ 0xFA /*                                    MIDDLE DOT */ ,	/* 439 */
+										/* U+00B8 */ CANT_MAP_CHARACTER,
+										/* 440 */
+										/* U+00B9 */ CANT_MAP_CHARACTER,
+										/* 441 */
+	/* U+00BA */ 0xA7 /*                   MASCULINE ORDINAL INDICATOR */ ,	/* 442 */
+	/* U+00BB */ 0xAF /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+	/* U+00BC */ 0xAC /*                   VULGAR FRACTION ONE QUARTER */ ,	/* 444 */
+	/* U+00BD */ 0xAB /*                      VULGAR FRACTION ONE HALF */ ,	/* 445 */
+										/* U+00BE */ CANT_MAP_CHARACTER,
+										/* 446 */
+	/* U+00BF */ 0xA8 /*                        INVERTED QUESTION MARK */ ,	/* 447 */
+	/* U+00C0 */ 0x91 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,	/* 448 */
+	/* U+00C1 */ 0x86 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,	/* 449 */
+	/* U+00C2 */ 0x8F /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,	/* 450 */
+	/* U+00C3 */ 0x8E /*             LATIN CAPITAL LETTER A WITH TILDE */ ,	/* 451 */
+										/* U+00C4 */ CANT_MAP_CHARACTER,
+										/* 452 */
+										/* U+00C5 */ CANT_MAP_CHARACTER,
+										/* 453 */
+										/* U+00C6 */ CANT_MAP_CHARACTER,
+										/* 454 */
+	/* U+00C7 */ 0x80 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,	/* 455 */
+	/* U+00C8 */ 0x92 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,	/* 456 */
+	/* U+00C9 */ 0x90 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,	/* 457 */
+	/* U+00CA */ 0x89 /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,	/* 458 */
+										/* U+00CB */ CANT_MAP_CHARACTER,
+										/* 459 */
+	/* U+00CC */ 0x98 /*             LATIN CAPITAL LETTER I WITH GRAVE */ ,	/* 460 */
+	/* U+00CD */ 0x8B /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,	/* 461 */
+										/* U+00CE */ CANT_MAP_CHARACTER,
+										/* 462 */
+										/* U+00CF */ CANT_MAP_CHARACTER,
+										/* 463 */
+										/* U+00D0 */ CANT_MAP_CHARACTER,
+										/* 464 */
+	/* U+00D1 */ 0xA5 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,	/* 465 */
+	/* U+00D2 */ 0xA9 /*             LATIN CAPITAL LETTER O WITH GRAVE */ ,	/* 466 */
+	/* U+00D3 */ 0x9F /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,	/* 467 */
+	/* U+00D4 */ 0x8C /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,	/* 468 */
+	/* U+00D5 */ 0x99 /*             LATIN CAPITAL LETTER O WITH TILDE */ ,	/* 469 */
+										/* U+00D6 */ CANT_MAP_CHARACTER,
+										/* 470 */
+										/* U+00D7 */ CANT_MAP_CHARACTER,
+										/* 471 */
+										/* U+00D8 */ CANT_MAP_CHARACTER,
+										/* 472 */
+	/* U+00D9 */ 0x9D /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,	/* 473 */
+	/* U+00DA */ 0x96 /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,	/* 474 */
+										/* U+00DB */ CANT_MAP_CHARACTER,
+										/* 475 */
+	/* U+00DC */ 0x9A /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,	/* 476 */
+										/* U+00DD */ CANT_MAP_CHARACTER,
+										/* 477 */
+										/* U+00DE */ CANT_MAP_CHARACTER,
+										/* 478 */
+	/* U+00DF */ 0xE1 /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+	/* U+00E0 */ 0x85 /*               LATIN SMALL LETTER A WITH GRAVE */ ,	/* 480 */
+	/* U+00E1 */ 0xA0 /*               LATIN SMALL LETTER A WITH ACUTE */ ,	/* 481 */
+	/* U+00E2 */ 0x83 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,	/* 482 */
+	/* U+00E3 */ 0x84 /*               LATIN SMALL LETTER A WITH TILDE */ ,	/* 483 */
+										/* U+00E4 */ CANT_MAP_CHARACTER,
+										/* 484 */
+										/* U+00E5 */ CANT_MAP_CHARACTER,
+										/* 485 */
+										/* U+00E6 */ CANT_MAP_CHARACTER,
+										/* 486 */
+	/* U+00E7 */ 0x87 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,	/* 487 */
+	/* U+00E8 */ 0x8A /*               LATIN SMALL LETTER E WITH GRAVE */ ,	/* 488 */
+	/* U+00E9 */ 0x82 /*               LATIN SMALL LETTER E WITH ACUTE */ ,	/* 489 */
+	/* U+00EA */ 0x88 /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,	/* 490 */
+										/* U+00EB */ CANT_MAP_CHARACTER,
+										/* 491 */
+	/* U+00EC */ 0x8D /*               LATIN SMALL LETTER I WITH GRAVE */ ,	/* 492 */
+	/* U+00ED */ 0xA1 /*               LATIN SMALL LETTER I WITH ACUTE */ ,	/* 493 */
+										/* U+00EE */ CANT_MAP_CHARACTER,
+										/* 494 */
+										/* U+00EF */ CANT_MAP_CHARACTER,
+										/* 495 */
+										/* U+00F0 */ CANT_MAP_CHARACTER,
+										/* 496 */
+	/* U+00F1 */ 0xA4 /*               LATIN SMALL LETTER N WITH TILDE */ ,	/* 497 */
+	/* U+00F2 */ 0x95 /*               LATIN SMALL LETTER O WITH GRAVE */ ,	/* 498 */
+	/* U+00F3 */ 0xA2 /*               LATIN SMALL LETTER O WITH ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0x93 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,	/* 500 */
+	/* U+00F5 */ 0x94 /*               LATIN SMALL LETTER O WITH TILDE */ ,	/* 501 */
+										/* U+00F6 */ CANT_MAP_CHARACTER,
+										/* 502 */
+	/* U+00F7 */ 0xF6 /*                                 DIVISION SIGN */ ,	/* 503 */
+										/* U+00F8 */ CANT_MAP_CHARACTER,
+										/* 504 */
+	/* U+00F9 */ 0x97 /*               LATIN SMALL LETTER U WITH GRAVE */ ,	/* 505 */
+	/* U+00FA */ 0xA3 /*               LATIN SMALL LETTER U WITH ACUTE */ ,	/* 506 */
+										/* U+00FB */ CANT_MAP_CHARACTER,
+										/* 507 */
+	/* U+00FC */ 0x81 /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,	/* 508 */
+										/* U+00FD */ CANT_MAP_CHARACTER,
+										/* 509 */
+										/* U+00FE */ CANT_MAP_CHARACTER,
+										/* 510 */
+										/* U+00FF */ CANT_MAP_CHARACTER,
+										/* 511 */
+										/* U+0300 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0301 */ CANT_MAP_CHARACTER,
+										/* 513 */
+										/* U+0302 */ CANT_MAP_CHARACTER,
+										/* 514 */
+										/* U+0303 */ CANT_MAP_CHARACTER,
+										/* 515 */
+										/* U+0304 */ CANT_MAP_CHARACTER,
+										/* 516 */
+										/* U+0305 */ CANT_MAP_CHARACTER,
+										/* 517 */
+										/* U+0306 */ CANT_MAP_CHARACTER,
+										/* 518 */
+										/* U+0307 */ CANT_MAP_CHARACTER,
+										/* 519 */
+										/* U+0308 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0309 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+030A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+030B */ CANT_MAP_CHARACTER,
+										/* 523 */
+										/* U+030C */ CANT_MAP_CHARACTER,
+										/* 524 */
+										/* U+030D */ CANT_MAP_CHARACTER,
+										/* 525 */
+										/* U+030E */ CANT_MAP_CHARACTER,
+										/* 526 */
+										/* U+030F */ CANT_MAP_CHARACTER,
+										/* 527 */
+										/* U+0310 */ CANT_MAP_CHARACTER,
+										/* 528 */
+										/* U+0311 */ CANT_MAP_CHARACTER,
+										/* 529 */
+										/* U+0312 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0313 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0314 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0315 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0316 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0317 */ CANT_MAP_CHARACTER,
+										/* 535 */
+										/* U+0318 */ CANT_MAP_CHARACTER,
+										/* 536 */
+										/* U+0319 */ CANT_MAP_CHARACTER,
+										/* 537 */
+										/* U+031A */ CANT_MAP_CHARACTER,
+										/* 538 */
+										/* U+031B */ CANT_MAP_CHARACTER,
+										/* 539 */
+										/* U+031C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+031D */ CANT_MAP_CHARACTER,
+										/* 541 */
+										/* U+031E */ CANT_MAP_CHARACTER,
+										/* 542 */
+										/* U+031F */ CANT_MAP_CHARACTER,
+										/* 543 */
+										/* U+0320 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0321 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0322 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0323 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0324 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0325 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0326 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0327 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0328 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0329 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+032A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+032B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+032C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+032D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+032E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+032F */ CANT_MAP_CHARACTER,
+										/* 559 */
+										/* U+0330 */ CANT_MAP_CHARACTER,
+										/* 560 */
+										/* U+0331 */ CANT_MAP_CHARACTER,
+										/* 561 */
+										/* U+0332 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0333 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0334 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0335 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0336 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0337 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0338 */ CANT_MAP_CHARACTER,
+										/* 568 */
+										/* U+0339 */ CANT_MAP_CHARACTER,
+										/* 569 */
+										/* U+033A */ CANT_MAP_CHARACTER,
+										/* 570 */
+										/* U+033B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+033C */ CANT_MAP_CHARACTER,
+										/* 572 */
+										/* U+033D */ CANT_MAP_CHARACTER,
+										/* 573 */
+										/* U+033E */ CANT_MAP_CHARACTER,
+										/* 574 */
+										/* U+033F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0340 */ CANT_MAP_CHARACTER,
+										/* 576 */
+										/* U+0341 */ CANT_MAP_CHARACTER,
+										/* 577 */
+										/* U+0342 */ CANT_MAP_CHARACTER,
+										/* 578 */
+										/* U+0343 */ CANT_MAP_CHARACTER,
+										/* 579 */
+										/* U+0344 */ CANT_MAP_CHARACTER,
+										/* 580 */
+										/* U+0345 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0346 */ CANT_MAP_CHARACTER,
+										/* 582 */
+										/* U+0347 */ CANT_MAP_CHARACTER,
+										/* 583 */
+										/* U+0348 */ CANT_MAP_CHARACTER,
+										/* 584 */
+										/* U+0349 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+034A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+034B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+034C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+034D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+034E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+034F */ CANT_MAP_CHARACTER,
+										/* 591 */
+										/* U+0350 */ CANT_MAP_CHARACTER,
+										/* 592 */
+										/* U+0351 */ CANT_MAP_CHARACTER,
+										/* 593 */
+										/* U+0352 */ CANT_MAP_CHARACTER,
+										/* 594 */
+										/* U+0353 */ CANT_MAP_CHARACTER,
+										/* 595 */
+										/* U+0354 */ CANT_MAP_CHARACTER,
+										/* 596 */
+										/* U+0355 */ CANT_MAP_CHARACTER,
+										/* 597 */
+										/* U+0356 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0357 */ CANT_MAP_CHARACTER,
+										/* 599 */
+										/* U+0358 */ CANT_MAP_CHARACTER,
+										/* 600 */
+										/* U+0359 */ CANT_MAP_CHARACTER,
+										/* 601 */
+										/* U+035A */ CANT_MAP_CHARACTER,
+										/* 602 */
+										/* U+035B */ CANT_MAP_CHARACTER,
+										/* 603 */
+										/* U+035C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+035D */ CANT_MAP_CHARACTER,
+										/* 605 */
+										/* U+035E */ CANT_MAP_CHARACTER,
+										/* 606 */
+										/* U+035F */ CANT_MAP_CHARACTER,
+										/* 607 */
+										/* U+0360 */ CANT_MAP_CHARACTER,
+										/* 608 */
+										/* U+0361 */ CANT_MAP_CHARACTER,
+										/* 609 */
+										/* U+0362 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0363 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0364 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0365 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0366 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0367 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0368 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0369 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+036A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+036B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+036C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+036D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+036E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+036F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0370 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0371 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0372 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0373 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0374 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0375 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0376 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0377 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0378 */ CANT_MAP_CHARACTER,
+										/* 632 */
+										/* U+0379 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+037A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+037B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+037C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+037D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+037E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+037F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0380 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0381 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0382 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0383 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0384 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0385 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0386 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0387 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0388 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0389 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+038A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+038B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+038C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+038D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+038E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+038F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0390 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0391 */ CANT_MAP_CHARACTER,
+										/* 657 */
+										/* U+0392 */ CANT_MAP_CHARACTER,
+										/* 658 */
+	/* U+0393 */ 0xE2 /*                    GREEK CAPITAL LETTER GAMMA */ ,	/* 659 */
+										/* U+0394 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0395 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0396 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0397 */ CANT_MAP_CHARACTER,
+										/* 663 */
+	/* U+0398 */ 0xE9 /*                    GREEK CAPITAL LETTER THETA */ ,	/* 664 */
+										/* U+0399 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+039A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+039B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+039C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+039D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+039E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+039F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+03A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+03A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+03A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+	/* U+03A3 */ 0xE4 /*                    GREEK CAPITAL LETTER SIGMA */ ,	/* 675 */
+										/* U+03A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+03A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+	/* U+03A6 */ 0xE8 /*                      GREEK CAPITAL LETTER PHI */ ,	/* 678 */
+										/* U+03A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+03A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+	/* U+03A9 */ 0xEA /*                    GREEK CAPITAL LETTER OMEGA */ ,	/* 681 */
+										/* U+03AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+03AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+03AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+03AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+03AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+03AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+03B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+	/* U+03B1 */ 0xE0 /*                      GREEK SMALL LETTER ALPHA */ ,	/* 689 */
+										/* U+03B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+03B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+	/* U+03B4 */ 0xEB /*                      GREEK SMALL LETTER DELTA */ ,	/* 692 */
+	/* U+03B5 */ 0xEE /*                    GREEK SMALL LETTER EPSILON */ ,	/* 693 */
+										/* U+03B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+03B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+03B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+03B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+03BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+03BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+03BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+03BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+03BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+03BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+	/* U+03C0 */ 0xE3 /*                         GREEK SMALL LETTER PI */ ,	/* 704 */
+										/* U+03C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+03C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+	/* U+03C3 */ 0xE5 /*                      GREEK SMALL LETTER SIGMA */ ,	/* 707 */
+	/* U+03C4 */ 0xE7 /*                        GREEK SMALL LETTER TAU */ ,	/* 708 */
+										/* U+03C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+	/* U+03C6 */ 0xED /*                        GREEK SMALL LETTER PHI */ ,	/* 710 */
+										/* U+03C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+03C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+03C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+03CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+03CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+03CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+03CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+03CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+03CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+03D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+03D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+03D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+03D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+03D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+03D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+03D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+03D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+03D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+03D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+03DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+03DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+03DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+03DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+03DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+03DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+03E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+03E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+03E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+03E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+03E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+03E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+03E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+03E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+03E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+03E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+03EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+03EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+03EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+03ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+03EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+03EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+03F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+03F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+03F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+03F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+03F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+03F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+03F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+03F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+03F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+03F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+03FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+03FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+03FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+03FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+03FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+03FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+2013 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+2014 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+2017 */ CANT_MAP_CHARACTER,
+										/* 791 */
+										/* U+2018 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+2019 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+201A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+201C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+201D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+201E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+2020 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+2021 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+2022 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+2026 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+2030 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+2039 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+203A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 894 */
+	/* U+207F */ 0xFC /*              SUPERSCRIPT LATIN SMALL LETTER N */ ,	/* 895 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 914 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 915 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 919 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 920 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 931 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 934 */
+	/* U+20A7 */ 0x9E /*                                   PESETA SIGN */ ,	/* 935 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 937 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+20AC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 945 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 948 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 949 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 960 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 963 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 964 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 966 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 967 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 987 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 988 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+										/* U+2200 */ CANT_MAP_CHARACTER,
+										/* 1024 */
+										/* U+2201 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+										/* U+2202 */ CANT_MAP_CHARACTER,
+										/* 1026 */
+										/* U+2203 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2204 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2205 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2206 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2207 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2208 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2209 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+220A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+220B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+										/* U+220C */ CANT_MAP_CHARACTER,
+										/* 1036 */
+										/* U+220D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+220E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+220F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+										/* U+2210 */ CANT_MAP_CHARACTER,
+										/* 1040 */
+										/* U+2211 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2212 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+										/* U+2213 */ CANT_MAP_CHARACTER,
+										/* 1043 */
+										/* U+2214 */ CANT_MAP_CHARACTER,
+										/* 1044 */
+										/* U+2215 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+										/* U+2216 */ CANT_MAP_CHARACTER,
+										/* 1046 */
+										/* U+2217 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+										/* U+2218 */ CANT_MAP_CHARACTER,
+										/* 1048 */
+	/* U+2219 */ 0xF9 /*                               BULLET OPERATOR */ ,	/* 1049 */
+	/* U+221A */ 0xFB /*                                   SQUARE ROOT */ ,	/* 1050 */
+										/* U+221B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+										/* U+221C */ CANT_MAP_CHARACTER,
+										/* 1052 */
+										/* U+221D */ CANT_MAP_CHARACTER,
+										/* 1053 */
+	/* U+221E */ 0xEC /*                                      INFINITY */ ,	/* 1054 */
+										/* U+221F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+										/* U+2220 */ CANT_MAP_CHARACTER,
+										/* 1056 */
+										/* U+2221 */ CANT_MAP_CHARACTER,
+										/* 1057 */
+										/* U+2222 */ CANT_MAP_CHARACTER,
+										/* 1058 */
+										/* U+2223 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+										/* U+2224 */ CANT_MAP_CHARACTER,
+										/* 1060 */
+										/* U+2225 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+										/* U+2226 */ CANT_MAP_CHARACTER,
+										/* 1062 */
+										/* U+2227 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2228 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+	/* U+2229 */ 0xEF /*                                  INTERSECTION */ ,	/* 1065 */
+										/* U+222A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+222B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+										/* U+222C */ CANT_MAP_CHARACTER,
+										/* 1068 */
+										/* U+222D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+222E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+222F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+										/* U+2230 */ CANT_MAP_CHARACTER,
+										/* 1072 */
+										/* U+2231 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2232 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2233 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+										/* U+2234 */ CANT_MAP_CHARACTER,
+										/* 1076 */
+										/* U+2235 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2236 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2237 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2238 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+										/* U+2239 */ CANT_MAP_CHARACTER,
+										/* 1081 */
+										/* U+223A */ CANT_MAP_CHARACTER,
+										/* 1082 */
+										/* U+223B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+										/* U+223C */ CANT_MAP_CHARACTER,
+										/* 1084 */
+										/* U+223D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+223E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+223F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2240 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2241 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2242 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2243 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2244 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2245 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2246 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2247 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+	/* U+2248 */ 0xF7 /*                               ALMOST EQUAL TO */ ,	/* 1096 */
+										/* U+2249 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+224A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+224B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+224C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+224D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+224E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+224F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+										/* U+2250 */ CANT_MAP_CHARACTER,
+										/* 1104 */
+										/* U+2251 */ CANT_MAP_CHARACTER,
+										/* 1105 */
+										/* U+2252 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2253 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+										/* U+2254 */ CANT_MAP_CHARACTER,
+										/* 1108 */
+										/* U+2255 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2256 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+										/* U+2257 */ CANT_MAP_CHARACTER,
+										/* 1111 */
+										/* U+2258 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2259 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+										/* U+225A */ CANT_MAP_CHARACTER,
+										/* 1114 */
+										/* U+225B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+225C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+										/* U+225D */ CANT_MAP_CHARACTER,
+										/* 1117 */
+										/* U+225E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+225F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+										/* U+2260 */ CANT_MAP_CHARACTER,
+										/* 1120 */
+	/* U+2261 */ 0xF0 /*                                  IDENTICAL TO */ ,	/* 1121 */
+										/* U+2262 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+										/* U+2263 */ CANT_MAP_CHARACTER,
+										/* 1123 */
+	/* U+2264 */ 0xF3 /*                         LESS-THAN OR EQUAL TO */ ,	/* 1124 */
+	/* U+2265 */ 0xF2 /*                      GREATER-THAN OR EQUAL TO */ ,	/* 1125 */
+										/* U+2266 */ CANT_MAP_CHARACTER,
+										/* 1126 */
+										/* U+2267 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2268 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+										/* U+2269 */ CANT_MAP_CHARACTER,
+										/* 1129 */
+										/* U+226A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+226B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+										/* U+226C */ CANT_MAP_CHARACTER,
+										/* 1132 */
+										/* U+226D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+226E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+226F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2270 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2271 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2272 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2273 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2274 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2275 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2276 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2277 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2278 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2279 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+227A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+227B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+227C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+227D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+227E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+										/* U+227F */ CANT_MAP_CHARACTER,
+										/* 1151 */
+										/* U+2280 */ CANT_MAP_CHARACTER,
+										/* 1152 */
+										/* U+2281 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2282 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2283 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+										/* U+2284 */ CANT_MAP_CHARACTER,
+										/* 1156 */
+										/* U+2285 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2286 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2287 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+										/* U+2288 */ CANT_MAP_CHARACTER,
+										/* 1160 */
+										/* U+2289 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+228A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+228B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+228C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+228D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+228E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+228F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2290 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+										/* U+2291 */ CANT_MAP_CHARACTER,
+										/* 1169 */
+										/* U+2292 */ CANT_MAP_CHARACTER,
+										/* 1170 */
+										/* U+2293 */ CANT_MAP_CHARACTER,
+										/* 1171 */
+										/* U+2294 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2295 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2296 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2297 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2298 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2299 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+229A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+229B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+229C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+229D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+229E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+229F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+										/* U+22A0 */ CANT_MAP_CHARACTER,
+										/* 1184 */
+										/* U+22A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+22A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+22A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+22A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+22A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+22A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+										/* U+22A7 */ CANT_MAP_CHARACTER,
+										/* 1191 */
+										/* U+22A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+22A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+22AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+22AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+										/* U+22AC */ CANT_MAP_CHARACTER,
+										/* 1196 */
+										/* U+22AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+22AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+22AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+22B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+22B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+22B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+22B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+22B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+22B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+22B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+22B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+22B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+22B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+22BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+22BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+22BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+22BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+22BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+22BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+22C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+22C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+22C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+22C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+22C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+22C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+22C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+22C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+22C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+22C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+22CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+22CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+22CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+22CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+22CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+22CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+22D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+22D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+22D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+22D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+22D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+22D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+22D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+22D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+22D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+22D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+22DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+22DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+22DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+22DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+22DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+22DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+22E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+22E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+22E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+22E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+22E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+22E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+22E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+22E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+22E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+22E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+22EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+22EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+22EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+22ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+22EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+22EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+22F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+22F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+22F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+22F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+22F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+22F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+22F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+22F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+22F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+22F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+22FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+22FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+22FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+22FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+22FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+22FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+										/* U+2300 */ CANT_MAP_CHARACTER,
+										/* 1280 */
+										/* U+2301 */ CANT_MAP_CHARACTER,
+										/* 1281 */
+										/* U+2302 */ CANT_MAP_CHARACTER,
+										/* 1282 */
+										/* U+2303 */ CANT_MAP_CHARACTER,
+										/* 1283 */
+										/* U+2304 */ CANT_MAP_CHARACTER,
+										/* 1284 */
+										/* U+2305 */ CANT_MAP_CHARACTER,
+										/* 1285 */
+										/* U+2306 */ CANT_MAP_CHARACTER,
+										/* 1286 */
+										/* U+2307 */ CANT_MAP_CHARACTER,
+										/* 1287 */
+										/* U+2308 */ CANT_MAP_CHARACTER,
+										/* 1288 */
+										/* U+2309 */ CANT_MAP_CHARACTER,
+										/* 1289 */
+										/* U+230A */ CANT_MAP_CHARACTER,
+										/* 1290 */
+										/* U+230B */ CANT_MAP_CHARACTER,
+										/* 1291 */
+										/* U+230C */ CANT_MAP_CHARACTER,
+										/* 1292 */
+										/* U+230D */ CANT_MAP_CHARACTER,
+										/* 1293 */
+										/* U+230E */ CANT_MAP_CHARACTER,
+										/* 1294 */
+										/* U+230F */ CANT_MAP_CHARACTER,
+										/* 1295 */
+										/* U+2310 */ CANT_MAP_CHARACTER,
+										/* 1296 */
+										/* U+2311 */ CANT_MAP_CHARACTER,
+										/* 1297 */
+										/* U+2312 */ CANT_MAP_CHARACTER,
+										/* 1298 */
+										/* U+2313 */ CANT_MAP_CHARACTER,
+										/* 1299 */
+										/* U+2314 */ CANT_MAP_CHARACTER,
+										/* 1300 */
+										/* U+2315 */ CANT_MAP_CHARACTER,
+										/* 1301 */
+										/* U+2316 */ CANT_MAP_CHARACTER,
+										/* 1302 */
+										/* U+2317 */ CANT_MAP_CHARACTER,
+										/* 1303 */
+										/* U+2318 */ CANT_MAP_CHARACTER,
+										/* 1304 */
+										/* U+2319 */ CANT_MAP_CHARACTER,
+										/* 1305 */
+										/* U+231A */ CANT_MAP_CHARACTER,
+										/* 1306 */
+										/* U+231B */ CANT_MAP_CHARACTER,
+										/* 1307 */
+										/* U+231C */ CANT_MAP_CHARACTER,
+										/* 1308 */
+										/* U+231D */ CANT_MAP_CHARACTER,
+										/* 1309 */
+										/* U+231E */ CANT_MAP_CHARACTER,
+										/* 1310 */
+										/* U+231F */ CANT_MAP_CHARACTER,
+										/* 1311 */
+	/* U+2320 */ 0xF4 /*                             TOP HALF INTEGRAL */ ,	/* 1312 */
+	/* U+2321 */ 0xF5 /*                          BOTTOM HALF INTEGRAL */ ,	/* 1313 */
+										/* U+2322 */ CANT_MAP_CHARACTER,
+										/* 1314 */
+										/* U+2323 */ CANT_MAP_CHARACTER,
+										/* 1315 */
+										/* U+2324 */ CANT_MAP_CHARACTER,
+										/* 1316 */
+										/* U+2325 */ CANT_MAP_CHARACTER,
+										/* 1317 */
+										/* U+2326 */ CANT_MAP_CHARACTER,
+										/* 1318 */
+										/* U+2327 */ CANT_MAP_CHARACTER,
+										/* 1319 */
+										/* U+2328 */ CANT_MAP_CHARACTER,
+										/* 1320 */
+										/* U+2329 */ CANT_MAP_CHARACTER,
+										/* 1321 */
+										/* U+232A */ CANT_MAP_CHARACTER,
+										/* 1322 */
+										/* U+232B */ CANT_MAP_CHARACTER,
+										/* 1323 */
+										/* U+232C */ CANT_MAP_CHARACTER,
+										/* 1324 */
+										/* U+232D */ CANT_MAP_CHARACTER,
+										/* 1325 */
+										/* U+232E */ CANT_MAP_CHARACTER,
+										/* 1326 */
+										/* U+232F */ CANT_MAP_CHARACTER,
+										/* 1327 */
+										/* U+2330 */ CANT_MAP_CHARACTER,
+										/* 1328 */
+										/* U+2331 */ CANT_MAP_CHARACTER,
+										/* 1329 */
+										/* U+2332 */ CANT_MAP_CHARACTER,
+										/* 1330 */
+										/* U+2333 */ CANT_MAP_CHARACTER,
+										/* 1331 */
+										/* U+2334 */ CANT_MAP_CHARACTER,
+										/* 1332 */
+										/* U+2335 */ CANT_MAP_CHARACTER,
+										/* 1333 */
+										/* U+2336 */ CANT_MAP_CHARACTER,
+										/* 1334 */
+										/* U+2337 */ CANT_MAP_CHARACTER,
+										/* 1335 */
+										/* U+2338 */ CANT_MAP_CHARACTER,
+										/* 1336 */
+										/* U+2339 */ CANT_MAP_CHARACTER,
+										/* 1337 */
+										/* U+233A */ CANT_MAP_CHARACTER,
+										/* 1338 */
+										/* U+233B */ CANT_MAP_CHARACTER,
+										/* 1339 */
+										/* U+233C */ CANT_MAP_CHARACTER,
+										/* 1340 */
+										/* U+233D */ CANT_MAP_CHARACTER,
+										/* 1341 */
+										/* U+233E */ CANT_MAP_CHARACTER,
+										/* 1342 */
+										/* U+233F */ CANT_MAP_CHARACTER,
+										/* 1343 */
+										/* U+2340 */ CANT_MAP_CHARACTER,
+										/* 1344 */
+										/* U+2341 */ CANT_MAP_CHARACTER,
+										/* 1345 */
+										/* U+2342 */ CANT_MAP_CHARACTER,
+										/* 1346 */
+										/* U+2343 */ CANT_MAP_CHARACTER,
+										/* 1347 */
+										/* U+2344 */ CANT_MAP_CHARACTER,
+										/* 1348 */
+										/* U+2345 */ CANT_MAP_CHARACTER,
+										/* 1349 */
+										/* U+2346 */ CANT_MAP_CHARACTER,
+										/* 1350 */
+										/* U+2347 */ CANT_MAP_CHARACTER,
+										/* 1351 */
+										/* U+2348 */ CANT_MAP_CHARACTER,
+										/* 1352 */
+										/* U+2349 */ CANT_MAP_CHARACTER,
+										/* 1353 */
+										/* U+234A */ CANT_MAP_CHARACTER,
+										/* 1354 */
+										/* U+234B */ CANT_MAP_CHARACTER,
+										/* 1355 */
+										/* U+234C */ CANT_MAP_CHARACTER,
+										/* 1356 */
+										/* U+234D */ CANT_MAP_CHARACTER,
+										/* 1357 */
+										/* U+234E */ CANT_MAP_CHARACTER,
+										/* 1358 */
+										/* U+234F */ CANT_MAP_CHARACTER,
+										/* 1359 */
+										/* U+2350 */ CANT_MAP_CHARACTER,
+										/* 1360 */
+										/* U+2351 */ CANT_MAP_CHARACTER,
+										/* 1361 */
+										/* U+2352 */ CANT_MAP_CHARACTER,
+										/* 1362 */
+										/* U+2353 */ CANT_MAP_CHARACTER,
+										/* 1363 */
+										/* U+2354 */ CANT_MAP_CHARACTER,
+										/* 1364 */
+										/* U+2355 */ CANT_MAP_CHARACTER,
+										/* 1365 */
+										/* U+2356 */ CANT_MAP_CHARACTER,
+										/* 1366 */
+										/* U+2357 */ CANT_MAP_CHARACTER,
+										/* 1367 */
+										/* U+2358 */ CANT_MAP_CHARACTER,
+										/* 1368 */
+										/* U+2359 */ CANT_MAP_CHARACTER,
+										/* 1369 */
+										/* U+235A */ CANT_MAP_CHARACTER,
+										/* 1370 */
+										/* U+235B */ CANT_MAP_CHARACTER,
+										/* 1371 */
+										/* U+235C */ CANT_MAP_CHARACTER,
+										/* 1372 */
+										/* U+235D */ CANT_MAP_CHARACTER,
+										/* 1373 */
+										/* U+235E */ CANT_MAP_CHARACTER,
+										/* 1374 */
+										/* U+235F */ CANT_MAP_CHARACTER,
+										/* 1375 */
+										/* U+2360 */ CANT_MAP_CHARACTER,
+										/* 1376 */
+										/* U+2361 */ CANT_MAP_CHARACTER,
+										/* 1377 */
+										/* U+2362 */ CANT_MAP_CHARACTER,
+										/* 1378 */
+										/* U+2363 */ CANT_MAP_CHARACTER,
+										/* 1379 */
+										/* U+2364 */ CANT_MAP_CHARACTER,
+										/* 1380 */
+										/* U+2365 */ CANT_MAP_CHARACTER,
+										/* 1381 */
+										/* U+2366 */ CANT_MAP_CHARACTER,
+										/* 1382 */
+										/* U+2367 */ CANT_MAP_CHARACTER,
+										/* 1383 */
+										/* U+2368 */ CANT_MAP_CHARACTER,
+										/* 1384 */
+										/* U+2369 */ CANT_MAP_CHARACTER,
+										/* 1385 */
+										/* U+236A */ CANT_MAP_CHARACTER,
+										/* 1386 */
+										/* U+236B */ CANT_MAP_CHARACTER,
+										/* 1387 */
+										/* U+236C */ CANT_MAP_CHARACTER,
+										/* 1388 */
+										/* U+236D */ CANT_MAP_CHARACTER,
+										/* 1389 */
+										/* U+236E */ CANT_MAP_CHARACTER,
+										/* 1390 */
+										/* U+236F */ CANT_MAP_CHARACTER,
+										/* 1391 */
+										/* U+2370 */ CANT_MAP_CHARACTER,
+										/* 1392 */
+										/* U+2371 */ CANT_MAP_CHARACTER,
+										/* 1393 */
+										/* U+2372 */ CANT_MAP_CHARACTER,
+										/* 1394 */
+										/* U+2373 */ CANT_MAP_CHARACTER,
+										/* 1395 */
+										/* U+2374 */ CANT_MAP_CHARACTER,
+										/* 1396 */
+										/* U+2375 */ CANT_MAP_CHARACTER,
+										/* 1397 */
+										/* U+2376 */ CANT_MAP_CHARACTER,
+										/* 1398 */
+										/* U+2377 */ CANT_MAP_CHARACTER,
+										/* 1399 */
+										/* U+2378 */ CANT_MAP_CHARACTER,
+										/* 1400 */
+										/* U+2379 */ CANT_MAP_CHARACTER,
+										/* 1401 */
+										/* U+237A */ CANT_MAP_CHARACTER,
+										/* 1402 */
+										/* U+237B */ CANT_MAP_CHARACTER,
+										/* 1403 */
+										/* U+237C */ CANT_MAP_CHARACTER,
+										/* 1404 */
+										/* U+237D */ CANT_MAP_CHARACTER,
+										/* 1405 */
+										/* U+237E */ CANT_MAP_CHARACTER,
+										/* 1406 */
+										/* U+237F */ CANT_MAP_CHARACTER,
+										/* 1407 */
+										/* U+2380 */ CANT_MAP_CHARACTER,
+										/* 1408 */
+										/* U+2381 */ CANT_MAP_CHARACTER,
+										/* 1409 */
+										/* U+2382 */ CANT_MAP_CHARACTER,
+										/* 1410 */
+										/* U+2383 */ CANT_MAP_CHARACTER,
+										/* 1411 */
+										/* U+2384 */ CANT_MAP_CHARACTER,
+										/* 1412 */
+										/* U+2385 */ CANT_MAP_CHARACTER,
+										/* 1413 */
+										/* U+2386 */ CANT_MAP_CHARACTER,
+										/* 1414 */
+										/* U+2387 */ CANT_MAP_CHARACTER,
+										/* 1415 */
+										/* U+2388 */ CANT_MAP_CHARACTER,
+										/* 1416 */
+										/* U+2389 */ CANT_MAP_CHARACTER,
+										/* 1417 */
+										/* U+238A */ CANT_MAP_CHARACTER,
+										/* 1418 */
+										/* U+238B */ CANT_MAP_CHARACTER,
+										/* 1419 */
+										/* U+238C */ CANT_MAP_CHARACTER,
+										/* 1420 */
+										/* U+238D */ CANT_MAP_CHARACTER,
+										/* 1421 */
+										/* U+238E */ CANT_MAP_CHARACTER,
+										/* 1422 */
+										/* U+238F */ CANT_MAP_CHARACTER,
+										/* 1423 */
+										/* U+2390 */ CANT_MAP_CHARACTER,
+										/* 1424 */
+										/* U+2391 */ CANT_MAP_CHARACTER,
+										/* 1425 */
+										/* U+2392 */ CANT_MAP_CHARACTER,
+										/* 1426 */
+										/* U+2393 */ CANT_MAP_CHARACTER,
+										/* 1427 */
+										/* U+2394 */ CANT_MAP_CHARACTER,
+										/* 1428 */
+										/* U+2395 */ CANT_MAP_CHARACTER,
+										/* 1429 */
+										/* U+2396 */ CANT_MAP_CHARACTER,
+										/* 1430 */
+										/* U+2397 */ CANT_MAP_CHARACTER,
+										/* 1431 */
+										/* U+2398 */ CANT_MAP_CHARACTER,
+										/* 1432 */
+										/* U+2399 */ CANT_MAP_CHARACTER,
+										/* 1433 */
+										/* U+239A */ CANT_MAP_CHARACTER,
+										/* 1434 */
+										/* U+239B */ CANT_MAP_CHARACTER,
+										/* 1435 */
+										/* U+239C */ CANT_MAP_CHARACTER,
+										/* 1436 */
+										/* U+239D */ CANT_MAP_CHARACTER,
+										/* 1437 */
+										/* U+239E */ CANT_MAP_CHARACTER,
+										/* 1438 */
+										/* U+239F */ CANT_MAP_CHARACTER,
+										/* 1439 */
+										/* U+23A0 */ CANT_MAP_CHARACTER,
+										/* 1440 */
+										/* U+23A1 */ CANT_MAP_CHARACTER,
+										/* 1441 */
+										/* U+23A2 */ CANT_MAP_CHARACTER,
+										/* 1442 */
+										/* U+23A3 */ CANT_MAP_CHARACTER,
+										/* 1443 */
+										/* U+23A4 */ CANT_MAP_CHARACTER,
+										/* 1444 */
+										/* U+23A5 */ CANT_MAP_CHARACTER,
+										/* 1445 */
+										/* U+23A6 */ CANT_MAP_CHARACTER,
+										/* 1446 */
+										/* U+23A7 */ CANT_MAP_CHARACTER,
+										/* 1447 */
+										/* U+23A8 */ CANT_MAP_CHARACTER,
+										/* 1448 */
+										/* U+23A9 */ CANT_MAP_CHARACTER,
+										/* 1449 */
+										/* U+23AA */ CANT_MAP_CHARACTER,
+										/* 1450 */
+										/* U+23AB */ CANT_MAP_CHARACTER,
+										/* 1451 */
+										/* U+23AC */ CANT_MAP_CHARACTER,
+										/* 1452 */
+										/* U+23AD */ CANT_MAP_CHARACTER,
+										/* 1453 */
+										/* U+23AE */ CANT_MAP_CHARACTER,
+										/* 1454 */
+										/* U+23AF */ CANT_MAP_CHARACTER,
+										/* 1455 */
+										/* U+23B0 */ CANT_MAP_CHARACTER,
+										/* 1456 */
+										/* U+23B1 */ CANT_MAP_CHARACTER,
+										/* 1457 */
+										/* U+23B2 */ CANT_MAP_CHARACTER,
+										/* 1458 */
+										/* U+23B3 */ CANT_MAP_CHARACTER,
+										/* 1459 */
+										/* U+23B4 */ CANT_MAP_CHARACTER,
+										/* 1460 */
+										/* U+23B5 */ CANT_MAP_CHARACTER,
+										/* 1461 */
+										/* U+23B6 */ CANT_MAP_CHARACTER,
+										/* 1462 */
+										/* U+23B7 */ CANT_MAP_CHARACTER,
+										/* 1463 */
+										/* U+23B8 */ CANT_MAP_CHARACTER,
+										/* 1464 */
+										/* U+23B9 */ CANT_MAP_CHARACTER,
+										/* 1465 */
+										/* U+23BA */ CANT_MAP_CHARACTER,
+										/* 1466 */
+										/* U+23BB */ CANT_MAP_CHARACTER,
+										/* 1467 */
+										/* U+23BC */ CANT_MAP_CHARACTER,
+										/* 1468 */
+										/* U+23BD */ CANT_MAP_CHARACTER,
+										/* 1469 */
+										/* U+23BE */ CANT_MAP_CHARACTER,
+										/* 1470 */
+										/* U+23BF */ CANT_MAP_CHARACTER,
+										/* 1471 */
+										/* U+23C0 */ CANT_MAP_CHARACTER,
+										/* 1472 */
+										/* U+23C1 */ CANT_MAP_CHARACTER,
+										/* 1473 */
+										/* U+23C2 */ CANT_MAP_CHARACTER,
+										/* 1474 */
+										/* U+23C3 */ CANT_MAP_CHARACTER,
+										/* 1475 */
+										/* U+23C4 */ CANT_MAP_CHARACTER,
+										/* 1476 */
+										/* U+23C5 */ CANT_MAP_CHARACTER,
+										/* 1477 */
+										/* U+23C6 */ CANT_MAP_CHARACTER,
+										/* 1478 */
+										/* U+23C7 */ CANT_MAP_CHARACTER,
+										/* 1479 */
+										/* U+23C8 */ CANT_MAP_CHARACTER,
+										/* 1480 */
+										/* U+23C9 */ CANT_MAP_CHARACTER,
+										/* 1481 */
+										/* U+23CA */ CANT_MAP_CHARACTER,
+										/* 1482 */
+										/* U+23CB */ CANT_MAP_CHARACTER,
+										/* 1483 */
+										/* U+23CC */ CANT_MAP_CHARACTER,
+										/* 1484 */
+										/* U+23CD */ CANT_MAP_CHARACTER,
+										/* 1485 */
+										/* U+23CE */ CANT_MAP_CHARACTER,
+										/* 1486 */
+										/* U+23CF */ CANT_MAP_CHARACTER,
+										/* 1487 */
+										/* U+23D0 */ CANT_MAP_CHARACTER,
+										/* 1488 */
+										/* U+23D1 */ CANT_MAP_CHARACTER,
+										/* 1489 */
+										/* U+23D2 */ CANT_MAP_CHARACTER,
+										/* 1490 */
+										/* U+23D3 */ CANT_MAP_CHARACTER,
+										/* 1491 */
+										/* U+23D4 */ CANT_MAP_CHARACTER,
+										/* 1492 */
+										/* U+23D5 */ CANT_MAP_CHARACTER,
+										/* 1493 */
+										/* U+23D6 */ CANT_MAP_CHARACTER,
+										/* 1494 */
+										/* U+23D7 */ CANT_MAP_CHARACTER,
+										/* 1495 */
+										/* U+23D8 */ CANT_MAP_CHARACTER,
+										/* 1496 */
+										/* U+23D9 */ CANT_MAP_CHARACTER,
+										/* 1497 */
+										/* U+23DA */ CANT_MAP_CHARACTER,
+										/* 1498 */
+										/* U+23DB */ CANT_MAP_CHARACTER,
+										/* 1499 */
+										/* U+23DC */ CANT_MAP_CHARACTER,
+										/* 1500 */
+										/* U+23DD */ CANT_MAP_CHARACTER,
+										/* 1501 */
+										/* U+23DE */ CANT_MAP_CHARACTER,
+										/* 1502 */
+										/* U+23DF */ CANT_MAP_CHARACTER,
+										/* 1503 */
+										/* U+23E0 */ CANT_MAP_CHARACTER,
+										/* 1504 */
+										/* U+23E1 */ CANT_MAP_CHARACTER,
+										/* 1505 */
+										/* U+23E2 */ CANT_MAP_CHARACTER,
+										/* 1506 */
+										/* U+23E3 */ CANT_MAP_CHARACTER,
+										/* 1507 */
+										/* U+23E4 */ CANT_MAP_CHARACTER,
+										/* 1508 */
+										/* U+23E5 */ CANT_MAP_CHARACTER,
+										/* 1509 */
+										/* U+23E6 */ CANT_MAP_CHARACTER,
+										/* 1510 */
+										/* U+23E7 */ CANT_MAP_CHARACTER,
+										/* 1511 */
+										/* U+23E8 */ CANT_MAP_CHARACTER,
+										/* 1512 */
+										/* U+23E9 */ CANT_MAP_CHARACTER,
+										/* 1513 */
+										/* U+23EA */ CANT_MAP_CHARACTER,
+										/* 1514 */
+										/* U+23EB */ CANT_MAP_CHARACTER,
+										/* 1515 */
+										/* U+23EC */ CANT_MAP_CHARACTER,
+										/* 1516 */
+										/* U+23ED */ CANT_MAP_CHARACTER,
+										/* 1517 */
+										/* U+23EE */ CANT_MAP_CHARACTER,
+										/* 1518 */
+										/* U+23EF */ CANT_MAP_CHARACTER,
+										/* 1519 */
+										/* U+23F0 */ CANT_MAP_CHARACTER,
+										/* 1520 */
+										/* U+23F1 */ CANT_MAP_CHARACTER,
+										/* 1521 */
+										/* U+23F2 */ CANT_MAP_CHARACTER,
+										/* 1522 */
+										/* U+23F3 */ CANT_MAP_CHARACTER,
+										/* 1523 */
+										/* U+23F4 */ CANT_MAP_CHARACTER,
+										/* 1524 */
+										/* U+23F5 */ CANT_MAP_CHARACTER,
+										/* 1525 */
+										/* U+23F6 */ CANT_MAP_CHARACTER,
+										/* 1526 */
+										/* U+23F7 */ CANT_MAP_CHARACTER,
+										/* 1527 */
+										/* U+23F8 */ CANT_MAP_CHARACTER,
+										/* 1528 */
+										/* U+23F9 */ CANT_MAP_CHARACTER,
+										/* 1529 */
+										/* U+23FA */ CANT_MAP_CHARACTER,
+										/* 1530 */
+										/* U+23FB */ CANT_MAP_CHARACTER,
+										/* 1531 */
+										/* U+23FC */ CANT_MAP_CHARACTER,
+										/* 1532 */
+										/* U+23FD */ CANT_MAP_CHARACTER,
+										/* 1533 */
+										/* U+23FE */ CANT_MAP_CHARACTER,
+										/* 1534 */
+										/* U+23FF */ CANT_MAP_CHARACTER,
+										/* 1535 */
+	/* U+2500 */ 0xC4 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,	/* 1536 */
+										/* U+2501 */ CANT_MAP_CHARACTER,
+										/* 1537 */
+	/* U+2502 */ 0xB3 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,	/* 1538 */
+										/* U+2503 */ CANT_MAP_CHARACTER,
+										/* 1539 */
+										/* U+2504 */ CANT_MAP_CHARACTER,
+										/* 1540 */
+										/* U+2505 */ CANT_MAP_CHARACTER,
+										/* 1541 */
+										/* U+2506 */ CANT_MAP_CHARACTER,
+										/* 1542 */
+										/* U+2507 */ CANT_MAP_CHARACTER,
+										/* 1543 */
+										/* U+2508 */ CANT_MAP_CHARACTER,
+										/* 1544 */
+										/* U+2509 */ CANT_MAP_CHARACTER,
+										/* 1545 */
+										/* U+250A */ CANT_MAP_CHARACTER,
+										/* 1546 */
+										/* U+250B */ CANT_MAP_CHARACTER,
+										/* 1547 */
+	/* U+250C */ 0xDA /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,	/* 1548 */
+										/* U+250D */ CANT_MAP_CHARACTER,
+										/* 1549 */
+										/* U+250E */ CANT_MAP_CHARACTER,
+										/* 1550 */
+										/* U+250F */ CANT_MAP_CHARACTER,
+										/* 1551 */
+	/* U+2510 */ 0xBF /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,	/* 1552 */
+										/* U+2511 */ CANT_MAP_CHARACTER,
+										/* 1553 */
+										/* U+2512 */ CANT_MAP_CHARACTER,
+										/* 1554 */
+										/* U+2513 */ CANT_MAP_CHARACTER,
+										/* 1555 */
+	/* U+2514 */ 0xC0 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,	/* 1556 */
+										/* U+2515 */ CANT_MAP_CHARACTER,
+										/* 1557 */
+										/* U+2516 */ CANT_MAP_CHARACTER,
+										/* 1558 */
+										/* U+2517 */ CANT_MAP_CHARACTER,
+										/* 1559 */
+	/* U+2518 */ 0xD9 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,	/* 1560 */
+										/* U+2519 */ CANT_MAP_CHARACTER,
+										/* 1561 */
+										/* U+251A */ CANT_MAP_CHARACTER,
+										/* 1562 */
+										/* U+251B */ CANT_MAP_CHARACTER,
+										/* 1563 */
+	/* U+251C */ 0xC3 /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,	/* 1564 */
+										/* U+251D */ CANT_MAP_CHARACTER,
+										/* 1565 */
+										/* U+251E */ CANT_MAP_CHARACTER,
+										/* 1566 */
+										/* U+251F */ CANT_MAP_CHARACTER,
+										/* 1567 */
+										/* U+2520 */ CANT_MAP_CHARACTER,
+										/* 1568 */
+										/* U+2521 */ CANT_MAP_CHARACTER,
+										/* 1569 */
+										/* U+2522 */ CANT_MAP_CHARACTER,
+										/* 1570 */
+										/* U+2523 */ CANT_MAP_CHARACTER,
+										/* 1571 */
+	/* U+2524 */ 0xB4 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,	/* 1572 */
+										/* U+2525 */ CANT_MAP_CHARACTER,
+										/* 1573 */
+										/* U+2526 */ CANT_MAP_CHARACTER,
+										/* 1574 */
+										/* U+2527 */ CANT_MAP_CHARACTER,
+										/* 1575 */
+										/* U+2528 */ CANT_MAP_CHARACTER,
+										/* 1576 */
+										/* U+2529 */ CANT_MAP_CHARACTER,
+										/* 1577 */
+										/* U+252A */ CANT_MAP_CHARACTER,
+										/* 1578 */
+										/* U+252B */ CANT_MAP_CHARACTER,
+										/* 1579 */
+	/* U+252C */ 0xC2 /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,	/* 1580 */
+										/* U+252D */ CANT_MAP_CHARACTER,
+										/* 1581 */
+										/* U+252E */ CANT_MAP_CHARACTER,
+										/* 1582 */
+										/* U+252F */ CANT_MAP_CHARACTER,
+										/* 1583 */
+										/* U+2530 */ CANT_MAP_CHARACTER,
+										/* 1584 */
+										/* U+2531 */ CANT_MAP_CHARACTER,
+										/* 1585 */
+										/* U+2532 */ CANT_MAP_CHARACTER,
+										/* 1586 */
+										/* U+2533 */ CANT_MAP_CHARACTER,
+										/* 1587 */
+	/* U+2534 */ 0xC1 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,	/* 1588 */
+										/* U+2535 */ CANT_MAP_CHARACTER,
+										/* 1589 */
+										/* U+2536 */ CANT_MAP_CHARACTER,
+										/* 1590 */
+										/* U+2537 */ CANT_MAP_CHARACTER,
+										/* 1591 */
+										/* U+2538 */ CANT_MAP_CHARACTER,
+										/* 1592 */
+										/* U+2539 */ CANT_MAP_CHARACTER,
+										/* 1593 */
+										/* U+253A */ CANT_MAP_CHARACTER,
+										/* 1594 */
+										/* U+253B */ CANT_MAP_CHARACTER,
+										/* 1595 */
+	/* U+253C */ 0xC5 /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,	/* 1596 */
+										/* U+253D */ CANT_MAP_CHARACTER,
+										/* 1597 */
+										/* U+253E */ CANT_MAP_CHARACTER,
+										/* 1598 */
+										/* U+253F */ CANT_MAP_CHARACTER,
+										/* 1599 */
+										/* U+2540 */ CANT_MAP_CHARACTER,
+										/* 1600 */
+										/* U+2541 */ CANT_MAP_CHARACTER,
+										/* 1601 */
+										/* U+2542 */ CANT_MAP_CHARACTER,
+										/* 1602 */
+										/* U+2543 */ CANT_MAP_CHARACTER,
+										/* 1603 */
+										/* U+2544 */ CANT_MAP_CHARACTER,
+										/* 1604 */
+										/* U+2545 */ CANT_MAP_CHARACTER,
+										/* 1605 */
+										/* U+2546 */ CANT_MAP_CHARACTER,
+										/* 1606 */
+										/* U+2547 */ CANT_MAP_CHARACTER,
+										/* 1607 */
+										/* U+2548 */ CANT_MAP_CHARACTER,
+										/* 1608 */
+										/* U+2549 */ CANT_MAP_CHARACTER,
+										/* 1609 */
+										/* U+254A */ CANT_MAP_CHARACTER,
+										/* 1610 */
+										/* U+254B */ CANT_MAP_CHARACTER,
+										/* 1611 */
+										/* U+254C */ CANT_MAP_CHARACTER,
+										/* 1612 */
+										/* U+254D */ CANT_MAP_CHARACTER,
+										/* 1613 */
+										/* U+254E */ CANT_MAP_CHARACTER,
+										/* 1614 */
+										/* U+254F */ CANT_MAP_CHARACTER,
+										/* 1615 */
+	/* U+2550 */ 0xCD /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,	/* 1616 */
+	/* U+2551 */ 0xBA /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,	/* 1617 */
+	/* U+2552 */ 0xD5 /*     BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE */ ,	/* 1618 */
+	/* U+2553 */ 0xD6 /*     BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE */ ,	/* 1619 */
+	/* U+2554 */ 0xC9 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,	/* 1620 */
+	/* U+2555 */ 0xB8 /*      BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE */ ,	/* 1621 */
+	/* U+2556 */ 0xB7 /*      BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE */ ,	/* 1622 */
+	/* U+2557 */ 0xBB /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,	/* 1623 */
+	/* U+2558 */ 0xD4 /*       BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE */ ,	/* 1624 */
+	/* U+2559 */ 0xD3 /*       BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE */ ,	/* 1625 */
+	/* U+255A */ 0xC8 /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,	/* 1626 */
+	/* U+255B */ 0xBE /*        BOX DRAWINGS UP SINGLE AND LEFT DOUBLE */ ,	/* 1627 */
+	/* U+255C */ 0xBD /*        BOX DRAWINGS UP DOUBLE AND LEFT SINGLE */ ,	/* 1628 */
+	/* U+255D */ 0xBC /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,	/* 1629 */
+	/* U+255E */ 0xC6 /* BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE */ ,	/* 1630 */
+	/* U+255F */ 0xC7 /* BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE */ ,	/* 1631 */
+	/* U+2560 */ 0xCC /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,	/* 1632 */
+	/* U+2561 */ 0xB5 /*  BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE */ ,	/* 1633 */
+	/* U+2562 */ 0xB6 /*  BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE */ ,	/* 1634 */
+	/* U+2563 */ 0xB9 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,	/* 1635 */
+	/* U+2564 */ 0xD1 /* BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1636 */
+	/* U+2565 */ 0xD2 /* BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1637 */
+	/* U+2566 */ 0xCB /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,	/* 1638 */
+	/* U+2567 */ 0xCF /*  BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1639 */
+	/* U+2568 */ 0xD0 /*  BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1640 */
+	/* U+2569 */ 0xCA /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,	/* 1641 */
+	/* U+256A */ 0xD8 /* BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1642 */
+	/* U+256B */ 0xD7 /* BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1643 */
+	/* U+256C */ 0xCE /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,	/* 1644 */
+										/* U+256D */ CANT_MAP_CHARACTER,
+										/* 1645 */
+										/* U+256E */ CANT_MAP_CHARACTER,
+										/* 1646 */
+										/* U+256F */ CANT_MAP_CHARACTER,
+										/* 1647 */
+										/* U+2570 */ CANT_MAP_CHARACTER,
+										/* 1648 */
+										/* U+2571 */ CANT_MAP_CHARACTER,
+										/* 1649 */
+										/* U+2572 */ CANT_MAP_CHARACTER,
+										/* 1650 */
+										/* U+2573 */ CANT_MAP_CHARACTER,
+										/* 1651 */
+										/* U+2574 */ CANT_MAP_CHARACTER,
+										/* 1652 */
+										/* U+2575 */ CANT_MAP_CHARACTER,
+										/* 1653 */
+										/* U+2576 */ CANT_MAP_CHARACTER,
+										/* 1654 */
+										/* U+2577 */ CANT_MAP_CHARACTER,
+										/* 1655 */
+										/* U+2578 */ CANT_MAP_CHARACTER,
+										/* 1656 */
+										/* U+2579 */ CANT_MAP_CHARACTER,
+										/* 1657 */
+										/* U+257A */ CANT_MAP_CHARACTER,
+										/* 1658 */
+										/* U+257B */ CANT_MAP_CHARACTER,
+										/* 1659 */
+										/* U+257C */ CANT_MAP_CHARACTER,
+										/* 1660 */
+										/* U+257D */ CANT_MAP_CHARACTER,
+										/* 1661 */
+										/* U+257E */ CANT_MAP_CHARACTER,
+										/* 1662 */
+										/* U+257F */ CANT_MAP_CHARACTER,
+										/* 1663 */
+	/* U+2580 */ 0xDF /*                              UPPER HALF BLOCK */ ,	/* 1664 */
+										/* U+2581 */ CANT_MAP_CHARACTER,
+										/* 1665 */
+										/* U+2582 */ CANT_MAP_CHARACTER,
+										/* 1666 */
+										/* U+2583 */ CANT_MAP_CHARACTER,
+										/* 1667 */
+	/* U+2584 */ 0xDC /*                              LOWER HALF BLOCK */ ,	/* 1668 */
+										/* U+2585 */ CANT_MAP_CHARACTER,
+										/* 1669 */
+										/* U+2586 */ CANT_MAP_CHARACTER,
+										/* 1670 */
+										/* U+2587 */ CANT_MAP_CHARACTER,
+										/* 1671 */
+	/* U+2588 */ 0xDB /*                                    FULL BLOCK */ ,	/* 1672 */
+										/* U+2589 */ CANT_MAP_CHARACTER,
+										/* 1673 */
+										/* U+258A */ CANT_MAP_CHARACTER,
+										/* 1674 */
+										/* U+258B */ CANT_MAP_CHARACTER,
+										/* 1675 */
+	/* U+258C */ 0xDD /*                               LEFT HALF BLOCK */ ,	/* 1676 */
+										/* U+258D */ CANT_MAP_CHARACTER,
+										/* 1677 */
+										/* U+258E */ CANT_MAP_CHARACTER,
+										/* 1678 */
+										/* U+258F */ CANT_MAP_CHARACTER,
+										/* 1679 */
+	/* U+2590 */ 0xDE /*                              RIGHT HALF BLOCK */ ,	/* 1680 */
+	/* U+2591 */ 0xB0 /*                                   LIGHT SHADE */ ,	/* 1681 */
+	/* U+2592 */ 0xB1 /*                                  MEDIUM SHADE */ ,	/* 1682 */
+	/* U+2593 */ 0xB2 /*                                    DARK SHADE */ ,	/* 1683 */
+										/* U+2594 */ CANT_MAP_CHARACTER,
+										/* 1684 */
+										/* U+2595 */ CANT_MAP_CHARACTER,
+										/* 1685 */
+										/* U+2596 */ CANT_MAP_CHARACTER,
+										/* 1686 */
+										/* U+2597 */ CANT_MAP_CHARACTER,
+										/* 1687 */
+										/* U+2598 */ CANT_MAP_CHARACTER,
+										/* 1688 */
+										/* U+2599 */ CANT_MAP_CHARACTER,
+										/* 1689 */
+										/* U+259A */ CANT_MAP_CHARACTER,
+										/* 1690 */
+										/* U+259B */ CANT_MAP_CHARACTER,
+										/* 1691 */
+										/* U+259C */ CANT_MAP_CHARACTER,
+										/* 1692 */
+										/* U+259D */ CANT_MAP_CHARACTER,
+										/* 1693 */
+										/* U+259E */ CANT_MAP_CHARACTER,
+										/* 1694 */
+										/* U+259F */ CANT_MAP_CHARACTER,
+										/* 1695 */
+	/* U+25A0 */ 0xFE /*                                  BLACK SQUARE */ ,	/* 1696 */
+										/* U+25A1 */ CANT_MAP_CHARACTER,
+										/* 1697 */
+										/* U+25A2 */ CANT_MAP_CHARACTER,
+										/* 1698 */
+										/* U+25A3 */ CANT_MAP_CHARACTER,
+										/* 1699 */
+										/* U+25A4 */ CANT_MAP_CHARACTER,
+										/* 1700 */
+										/* U+25A5 */ CANT_MAP_CHARACTER,
+										/* 1701 */
+										/* U+25A6 */ CANT_MAP_CHARACTER,
+										/* 1702 */
+										/* U+25A7 */ CANT_MAP_CHARACTER,
+										/* 1703 */
+										/* U+25A8 */ CANT_MAP_CHARACTER,
+										/* 1704 */
+										/* U+25A9 */ CANT_MAP_CHARACTER,
+										/* 1705 */
+										/* U+25AA */ CANT_MAP_CHARACTER,
+										/* 1706 */
+										/* U+25AB */ CANT_MAP_CHARACTER,
+										/* 1707 */
+										/* U+25AC */ CANT_MAP_CHARACTER,
+										/* 1708 */
+										/* U+25AD */ CANT_MAP_CHARACTER,
+										/* 1709 */
+										/* U+25AE */ CANT_MAP_CHARACTER,
+										/* 1710 */
+										/* U+25AF */ CANT_MAP_CHARACTER,
+										/* 1711 */
+										/* U+25B0 */ CANT_MAP_CHARACTER,
+										/* 1712 */
+										/* U+25B1 */ CANT_MAP_CHARACTER,
+										/* 1713 */
+										/* U+25B2 */ CANT_MAP_CHARACTER,
+										/* 1714 */
+										/* U+25B3 */ CANT_MAP_CHARACTER,
+										/* 1715 */
+										/* U+25B4 */ CANT_MAP_CHARACTER,
+										/* 1716 */
+										/* U+25B5 */ CANT_MAP_CHARACTER,
+										/* 1717 */
+										/* U+25B6 */ CANT_MAP_CHARACTER,
+										/* 1718 */
+										/* U+25B7 */ CANT_MAP_CHARACTER,
+										/* 1719 */
+										/* U+25B8 */ CANT_MAP_CHARACTER,
+										/* 1720 */
+										/* U+25B9 */ CANT_MAP_CHARACTER,
+										/* 1721 */
+										/* U+25BA */ CANT_MAP_CHARACTER,
+										/* 1722 */
+										/* U+25BB */ CANT_MAP_CHARACTER,
+										/* 1723 */
+										/* U+25BC */ CANT_MAP_CHARACTER,
+										/* 1724 */
+										/* U+25BD */ CANT_MAP_CHARACTER,
+										/* 1725 */
+										/* U+25BE */ CANT_MAP_CHARACTER,
+										/* 1726 */
+										/* U+25BF */ CANT_MAP_CHARACTER,
+										/* 1727 */
+										/* U+25C0 */ CANT_MAP_CHARACTER,
+										/* 1728 */
+										/* U+25C1 */ CANT_MAP_CHARACTER,
+										/* 1729 */
+										/* U+25C2 */ CANT_MAP_CHARACTER,
+										/* 1730 */
+										/* U+25C3 */ CANT_MAP_CHARACTER,
+										/* 1731 */
+										/* U+25C4 */ CANT_MAP_CHARACTER,
+										/* 1732 */
+										/* U+25C5 */ CANT_MAP_CHARACTER,
+										/* 1733 */
+										/* U+25C6 */ CANT_MAP_CHARACTER,
+										/* 1734 */
+										/* U+25C7 */ CANT_MAP_CHARACTER,
+										/* 1735 */
+										/* U+25C8 */ CANT_MAP_CHARACTER,
+										/* 1736 */
+										/* U+25C9 */ CANT_MAP_CHARACTER,
+										/* 1737 */
+										/* U+25CA */ CANT_MAP_CHARACTER,
+										/* 1738 */
+										/* U+25CB */ CANT_MAP_CHARACTER,
+										/* 1739 */
+										/* U+25CC */ CANT_MAP_CHARACTER,
+										/* 1740 */
+										/* U+25CD */ CANT_MAP_CHARACTER,
+										/* 1741 */
+										/* U+25CE */ CANT_MAP_CHARACTER,
+										/* 1742 */
+										/* U+25CF */ CANT_MAP_CHARACTER,
+										/* 1743 */
+										/* U+25D0 */ CANT_MAP_CHARACTER,
+										/* 1744 */
+										/* U+25D1 */ CANT_MAP_CHARACTER,
+										/* 1745 */
+										/* U+25D2 */ CANT_MAP_CHARACTER,
+										/* 1746 */
+										/* U+25D3 */ CANT_MAP_CHARACTER,
+										/* 1747 */
+										/* U+25D4 */ CANT_MAP_CHARACTER,
+										/* 1748 */
+										/* U+25D5 */ CANT_MAP_CHARACTER,
+										/* 1749 */
+										/* U+25D6 */ CANT_MAP_CHARACTER,
+										/* 1750 */
+										/* U+25D7 */ CANT_MAP_CHARACTER,
+										/* 1751 */
+										/* U+25D8 */ CANT_MAP_CHARACTER,
+										/* 1752 */
+										/* U+25D9 */ CANT_MAP_CHARACTER,
+										/* 1753 */
+										/* U+25DA */ CANT_MAP_CHARACTER,
+										/* 1754 */
+										/* U+25DB */ CANT_MAP_CHARACTER,
+										/* 1755 */
+										/* U+25DC */ CANT_MAP_CHARACTER,
+										/* 1756 */
+										/* U+25DD */ CANT_MAP_CHARACTER,
+										/* 1757 */
+										/* U+25DE */ CANT_MAP_CHARACTER,
+										/* 1758 */
+										/* U+25DF */ CANT_MAP_CHARACTER,
+										/* 1759 */
+										/* U+25E0 */ CANT_MAP_CHARACTER,
+										/* 1760 */
+										/* U+25E1 */ CANT_MAP_CHARACTER,
+										/* 1761 */
+										/* U+25E2 */ CANT_MAP_CHARACTER,
+										/* 1762 */
+										/* U+25E3 */ CANT_MAP_CHARACTER,
+										/* 1763 */
+										/* U+25E4 */ CANT_MAP_CHARACTER,
+										/* 1764 */
+										/* U+25E5 */ CANT_MAP_CHARACTER,
+										/* 1765 */
+										/* U+25E6 */ CANT_MAP_CHARACTER,
+										/* 1766 */
+										/* U+25E7 */ CANT_MAP_CHARACTER,
+										/* 1767 */
+										/* U+25E8 */ CANT_MAP_CHARACTER,
+										/* 1768 */
+										/* U+25E9 */ CANT_MAP_CHARACTER,
+										/* 1769 */
+										/* U+25EA */ CANT_MAP_CHARACTER,
+										/* 1770 */
+										/* U+25EB */ CANT_MAP_CHARACTER,
+										/* 1771 */
+										/* U+25EC */ CANT_MAP_CHARACTER,
+										/* 1772 */
+										/* U+25ED */ CANT_MAP_CHARACTER,
+										/* 1773 */
+										/* U+25EE */ CANT_MAP_CHARACTER,
+										/* 1774 */
+										/* U+25EF */ CANT_MAP_CHARACTER,
+										/* 1775 */
+										/* U+25F0 */ CANT_MAP_CHARACTER,
+										/* 1776 */
+										/* U+25F1 */ CANT_MAP_CHARACTER,
+										/* 1777 */
+										/* U+25F2 */ CANT_MAP_CHARACTER,
+										/* 1778 */
+										/* U+25F3 */ CANT_MAP_CHARACTER,
+										/* 1779 */
+										/* U+25F4 */ CANT_MAP_CHARACTER,
+										/* 1780 */
+										/* U+25F5 */ CANT_MAP_CHARACTER,
+										/* 1781 */
+										/* U+25F6 */ CANT_MAP_CHARACTER,
+										/* 1782 */
+										/* U+25F7 */ CANT_MAP_CHARACTER,
+										/* 1783 */
+										/* U+25F8 */ CANT_MAP_CHARACTER,
+										/* 1784 */
+										/* U+25F9 */ CANT_MAP_CHARACTER,
+										/* 1785 */
+										/* U+25FA */ CANT_MAP_CHARACTER,
+										/* 1786 */
+										/* U+25FB */ CANT_MAP_CHARACTER,
+										/* 1787 */
+										/* U+25FC */ CANT_MAP_CHARACTER,
+										/* 1788 */
+										/* U+25FD */ CANT_MAP_CHARACTER,
+										/* 1789 */
+										/* U+25FE */ CANT_MAP_CHARACTER,
+										/* 1790 */
+										/* U+25FF */ CANT_MAP_CHARACTER,
+										/* 1791 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 0,
+/* U+02-- */ 0,
+/* U+03-- */ 512,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 768,
+/* U+21-- */ 0,
+/* U+22-- */ 1024,
+/* U+23-- */ 1280,
+/* U+24-- */ 0,
+/* U+25-- */ 1536,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_861.h b/src/intl/cs_861.h
new file mode 100644
index 0000000000..58619a140b
--- /dev/null
+++ b/src/intl/cs_861.h
@@ -0,0 +1,4662 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/PC/CP861.TXT 
+
+#
+#    Name:     cp861_DOSIcelandic to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/24/96
+#    Authors:       Lori Brownell <loribr@microsoft.com>
+#                   K.D. Chang    <a-kchang@microsoft.com>
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp861_DOSIcelandic code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp861_DOSIcelandic order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0a	0x000a	#LINE FEED
+0x0b	0x000b	#VERTICAL TABULATION
+0x0c	0x000c	#FORM FEED
+0x0d	0x000d	#CARRIAGE RETURN
+0x0e	0x000e	#SHIFT OUT
+0x0f	0x000f	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1a	0x001a	#SUBSTITUTE
+0x1b	0x001b	#ESCAPE
+0x1c	0x001c	#FILE SEPARATOR
+0x1d	0x001d	#GROUP SEPARATOR
+0x1e	0x001e	#RECORD SEPARATOR
+0x1f	0x001f	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2a	0x002a	#ASTERISK
+0x2b	0x002b	#PLUS SIGN
+0x2c	0x002c	#COMMA
+0x2d	0x002d	#HYPHEN-MINUS
+0x2e	0x002e	#FULL STOP
+0x2f	0x002f	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3a	0x003a	#COLON
+0x3b	0x003b	#SEMICOLON
+0x3c	0x003c	#LESS-THAN SIGN
+0x3d	0x003d	#EQUALS SIGN
+0x3e	0x003e	#GREATER-THAN SIGN
+0x3f	0x003f	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4a	0x004a	#LATIN CAPITAL LETTER J
+0x4b	0x004b	#LATIN CAPITAL LETTER K
+0x4c	0x004c	#LATIN CAPITAL LETTER L
+0x4d	0x004d	#LATIN CAPITAL LETTER M
+0x4e	0x004e	#LATIN CAPITAL LETTER N
+0x4f	0x004f	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5a	0x005a	#LATIN CAPITAL LETTER Z
+0x5b	0x005b	#LEFT SQUARE BRACKET
+0x5c	0x005c	#REVERSE SOLIDUS
+0x5d	0x005d	#RIGHT SQUARE BRACKET
+0x5e	0x005e	#CIRCUMFLEX ACCENT
+0x5f	0x005f	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6a	0x006a	#LATIN SMALL LETTER J
+0x6b	0x006b	#LATIN SMALL LETTER K
+0x6c	0x006c	#LATIN SMALL LETTER L
+0x6d	0x006d	#LATIN SMALL LETTER M
+0x6e	0x006e	#LATIN SMALL LETTER N
+0x6f	0x006f	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7a	0x007a	#LATIN SMALL LETTER Z
+0x7b	0x007b	#LEFT CURLY BRACKET
+0x7c	0x007c	#VERTICAL LINE
+0x7d	0x007d	#RIGHT CURLY BRACKET
+0x7e	0x007e	#TILDE
+0x7f	0x007f	#DELETE
+0x80	0x00c7	#LATIN CAPITAL LETTER C WITH CEDILLA
+0x81	0x00fc	#LATIN SMALL LETTER U WITH DIAERESIS
+0x82	0x00e9	#LATIN SMALL LETTER E WITH ACUTE
+0x83	0x00e2	#LATIN SMALL LETTER A WITH CIRCUMFLEX
+0x84	0x00e4	#LATIN SMALL LETTER A WITH DIAERESIS
+0x85	0x00e0	#LATIN SMALL LETTER A WITH GRAVE
+0x86	0x00e5	#LATIN SMALL LETTER A WITH RING ABOVE
+0x87	0x00e7	#LATIN SMALL LETTER C WITH CEDILLA
+0x88	0x00ea	#LATIN SMALL LETTER E WITH CIRCUMFLEX
+0x89	0x00eb	#LATIN SMALL LETTER E WITH DIAERESIS
+0x8a	0x00e8	#LATIN SMALL LETTER E WITH GRAVE
+0x8b	0x00d0	#LATIN CAPITAL LETTER ETH
+0x8c	0x00f0	#LATIN SMALL LETTER ETH
+0x8d	0x00de	#LATIN CAPITAL LETTER THORN
+0x8e	0x00c4	#LATIN CAPITAL LETTER A WITH DIAERESIS
+0x8f	0x00c5	#LATIN CAPITAL LETTER A WITH RING ABOVE
+0x90	0x00c9	#LATIN CAPITAL LETTER E WITH ACUTE
+0x91	0x00e6	#LATIN SMALL LIGATURE AE
+0x92	0x00c6	#LATIN CAPITAL LIGATURE AE
+0x93	0x00f4	#LATIN SMALL LETTER O WITH CIRCUMFLEX
+0x94	0x00f6	#LATIN SMALL LETTER O WITH DIAERESIS
+0x95	0x00fe	#LATIN SMALL LETTER THORN
+0x96	0x00fb	#LATIN SMALL LETTER U WITH CIRCUMFLEX
+0x97	0x00dd	#LATIN CAPITAL LETTER Y WITH ACUTE
+0x98	0x00fd	#LATIN SMALL LETTER Y WITH ACUTE
+0x99	0x00d6	#LATIN CAPITAL LETTER O WITH DIAERESIS
+0x9a	0x00dc	#LATIN CAPITAL LETTER U WITH DIAERESIS
+0x9b	0x00f8	#LATIN SMALL LETTER O WITH STROKE
+0x9c	0x00a3	#POUND SIGN
+0x9d	0x00d8	#LATIN CAPITAL LETTER O WITH STROKE
+0x9e	0x20a7	#PESETA SIGN
+0x9f	0x0192	#LATIN SMALL LETTER F WITH HOOK
+0xa0	0x00e1	#LATIN SMALL LETTER A WITH ACUTE
+0xa1	0x00ed	#LATIN SMALL LETTER I WITH ACUTE
+0xa2	0x00f3	#LATIN SMALL LETTER O WITH ACUTE
+0xa3	0x00fa	#LATIN SMALL LETTER U WITH ACUTE
+0xa4	0x00c1	#LATIN CAPITAL LETTER A WITH ACUTE
+0xa5	0x00cd	#LATIN CAPITAL LETTER I WITH ACUTE
+0xa6	0x00d3	#LATIN CAPITAL LETTER O WITH ACUTE
+0xa7	0x00da	#LATIN CAPITAL LETTER U WITH ACUTE
+0xa8	0x00bf	#INVERTED QUESTION MARK
+0xa9	0x2310	#REVERSED NOT SIGN
+0xaa	0x00ac	#NOT SIGN
+0xab	0x00bd	#VULGAR FRACTION ONE HALF
+0xac	0x00bc	#VULGAR FRACTION ONE QUARTER
+0xad	0x00a1	#INVERTED EXCLAMATION MARK
+0xae	0x00ab	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xaf	0x00bb	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xb0	0x2591	#LIGHT SHADE
+0xb1	0x2592	#MEDIUM SHADE
+0xb2	0x2593	#DARK SHADE
+0xb3	0x2502	#BOX DRAWINGS LIGHT VERTICAL
+0xb4	0x2524	#BOX DRAWINGS LIGHT VERTICAL AND LEFT
+0xb5	0x2561	#BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
+0xb6	0x2562	#BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
+0xb7	0x2556	#BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
+0xb8	0x2555	#BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
+0xb9	0x2563	#BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+0xba	0x2551	#BOX DRAWINGS DOUBLE VERTICAL
+0xbb	0x2557	#BOX DRAWINGS DOUBLE DOWN AND LEFT
+0xbc	0x255d	#BOX DRAWINGS DOUBLE UP AND LEFT
+0xbd	0x255c	#BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
+0xbe	0x255b	#BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
+0xbf	0x2510	#BOX DRAWINGS LIGHT DOWN AND LEFT
+0xc0	0x2514	#BOX DRAWINGS LIGHT UP AND RIGHT
+0xc1	0x2534	#BOX DRAWINGS LIGHT UP AND HORIZONTAL
+0xc2	0x252c	#BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+0xc3	0x251c	#BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+0xc4	0x2500	#BOX DRAWINGS LIGHT HORIZONTAL
+0xc5	0x253c	#BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+0xc6	0x255e	#BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
+0xc7	0x255f	#BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
+0xc8	0x255a	#BOX DRAWINGS DOUBLE UP AND RIGHT
+0xc9	0x2554	#BOX DRAWINGS DOUBLE DOWN AND RIGHT
+0xca	0x2569	#BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+0xcb	0x2566	#BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+0xcc	0x2560	#BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+0xcd	0x2550	#BOX DRAWINGS DOUBLE HORIZONTAL
+0xce	0x256c	#BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+0xcf	0x2567	#BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
+0xd0	0x2568	#BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
+0xd1	0x2564	#BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
+0xd2	0x2565	#BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
+0xd3	0x2559	#BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
+0xd4	0x2558	#BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
+0xd5	0x2552	#BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
+0xd6	0x2553	#BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
+0xd7	0x256b	#BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
+0xd8	0x256a	#BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
+0xd9	0x2518	#BOX DRAWINGS LIGHT UP AND LEFT
+0xda	0x250c	#BOX DRAWINGS LIGHT DOWN AND RIGHT
+0xdb	0x2588	#FULL BLOCK
+0xdc	0x2584	#LOWER HALF BLOCK
+0xdd	0x258c	#LEFT HALF BLOCK
+0xde	0x2590	#RIGHT HALF BLOCK
+0xdf	0x2580	#UPPER HALF BLOCK
+0xe0	0x03b1	#GREEK SMALL LETTER ALPHA
+0xe1	0x00df	#LATIN SMALL LETTER SHARP S
+0xe2	0x0393	#GREEK CAPITAL LETTER GAMMA
+0xe3	0x03c0	#GREEK SMALL LETTER PI
+0xe4	0x03a3	#GREEK CAPITAL LETTER SIGMA
+0xe5	0x03c3	#GREEK SMALL LETTER SIGMA
+0xe6	0x00b5	#MICRO SIGN
+0xe7	0x03c4	#GREEK SMALL LETTER TAU
+0xe8	0x03a6	#GREEK CAPITAL LETTER PHI
+0xe9	0x0398	#GREEK CAPITAL LETTER THETA
+0xea	0x03a9	#GREEK CAPITAL LETTER OMEGA
+0xeb	0x03b4	#GREEK SMALL LETTER DELTA
+0xec	0x221e	#INFINITY
+0xed	0x03c6	#GREEK SMALL LETTER PHI
+0xee	0x03b5	#GREEK SMALL LETTER EPSILON
+0xef	0x2229	#INTERSECTION
+0xf0	0x2261	#IDENTICAL TO
+0xf1	0x00b1	#PLUS-MINUS SIGN
+0xf2	0x2265	#GREATER-THAN OR EQUAL TO
+0xf3	0x2264	#LESS-THAN OR EQUAL TO
+0xf4	0x2320	#TOP HALF INTEGRAL
+0xf5	0x2321	#BOTTOM HALF INTEGRAL
+0xf6	0x00f7	#DIVISION SIGN
+0xf7	0x2248	#ALMOST EQUAL TO
+0xf8	0x00b0	#DEGREE SIGN
+0xf9	0x2219	#BULLET OPERATOR
+0xfa	0x00b7	#MIDDLE DOT
+0xfb	0x221a	#SQUARE ROOT
+0xfc	0x207f	#SUPERSCRIPT LATIN SMALL LETTER N
+0xfd	0x00b2	#SUPERSCRIPT TWO
+0xfe	0x25a0	#BLACK SQUARE
+0xff	0x00a0	#NO-BREAK SPACE
+
+
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x00C7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,
+	/* 81 */ 0x00FC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,
+	/* 82 */ 0x00E9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,
+	/* 83 */ 0x00E2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,
+	/* 84 */ 0x00E4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,
+	/* 85 */ 0x00E0 /*               LATIN SMALL LETTER A WITH GRAVE */ ,
+	/* 86 */ 0x00E5 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,
+	/* 87 */ 0x00E7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,
+	/* 88 */ 0x00EA /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,
+	/* 89 */ 0x00EB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,
+	/* 8A */ 0x00E8 /*               LATIN SMALL LETTER E WITH GRAVE */ ,
+	/* 8B */ 0x00D0 /*                      LATIN CAPITAL LETTER ETH */ ,
+	/* 8C */ 0x00F0 /*                        LATIN SMALL LETTER ETH */ ,
+	/* 8D */ 0x00DE /*                    LATIN CAPITAL LETTER THORN */ ,
+	/* 8E */ 0x00C4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,
+	/* 8F */ 0x00C5 /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,
+	/* 90 */ 0x00C9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,
+	/* 91 */ 0x00E6 /*                       LATIN SMALL LIGATURE AE */ ,
+	/* 92 */ 0x00C6 /*                     LATIN CAPITAL LIGATURE AE */ ,
+	/* 93 */ 0x00F4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,
+	/* 94 */ 0x00F6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,
+	/* 95 */ 0x00FE /*                      LATIN SMALL LETTER THORN */ ,
+	/* 96 */ 0x00FB /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,
+	/* 97 */ 0x00DD /*             LATIN CAPITAL LETTER Y WITH ACUTE */ ,
+	/* 98 */ 0x00FD /*               LATIN SMALL LETTER Y WITH ACUTE */ ,
+	/* 99 */ 0x00D6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,
+	/* 9A */ 0x00DC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,
+	/* 9B */ 0x00F8 /*              LATIN SMALL LETTER O WITH STROKE */ ,
+	/* 9C */ 0x00A3 /*                                    POUND SIGN */ ,
+	/* 9D */ 0x00D8 /*            LATIN CAPITAL LETTER O WITH STROKE */ ,
+	/* 9E */ 0x20A7 /*                                   PESETA SIGN */ ,
+	/* 9F */ 0x0192 /*                LATIN SMALL LETTER F WITH HOOK */ ,
+	/* A0 */ 0x00E1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,
+	/* A1 */ 0x00ED /*               LATIN SMALL LETTER I WITH ACUTE */ ,
+	/* A2 */ 0x00F3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,
+	/* A3 */ 0x00FA /*               LATIN SMALL LETTER U WITH ACUTE */ ,
+	/* A4 */ 0x00C1 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,
+	/* A5 */ 0x00CD /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,
+	/* A6 */ 0x00D3 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,
+	/* A7 */ 0x00DA /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,
+	/* A8 */ 0x00BF /*                        INVERTED QUESTION MARK */ ,
+	/* A9 */ 0x2310 /*                             REVERSED NOT SIGN */ ,
+	/* AA */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AB */ 0x00BD /*                      VULGAR FRACTION ONE HALF */ ,
+	/* AC */ 0x00BC /*                   VULGAR FRACTION ONE QUARTER */ ,
+	/* AD */ 0x00A1 /*                     INVERTED EXCLAMATION MARK */ ,
+	/* AE */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AF */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* B0 */ 0x2591 /*                                   LIGHT SHADE */ ,
+	/* B1 */ 0x2592 /*                                  MEDIUM SHADE */ ,
+	/* B2 */ 0x2593 /*                                    DARK SHADE */ ,
+	/* B3 */ 0x2502 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,
+	/* B4 */ 0x2524 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,
+	/* B5 */ 0x2561 /*  BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE */ ,
+	/* B6 */ 0x2562 /*  BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE */ ,
+	/* B7 */ 0x2556 /*      BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE */ ,
+	/* B8 */ 0x2555 /*      BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE */ ,
+	/* B9 */ 0x2563 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,
+	/* BA */ 0x2551 /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,
+	/* BB */ 0x2557 /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,
+	/* BC */ 0x255D /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,
+	/* BD */ 0x255C /*        BOX DRAWINGS UP DOUBLE AND LEFT SINGLE */ ,
+	/* BE */ 0x255B /*        BOX DRAWINGS UP SINGLE AND LEFT DOUBLE */ ,
+	/* BF */ 0x2510 /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,
+	/* C0 */ 0x2514 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,
+	/* C1 */ 0x2534 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,
+	/* C2 */ 0x252C /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,
+	/* C3 */ 0x251C /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,
+	/* C4 */ 0x2500 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,
+	/* C5 */ 0x253C /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,
+	/* C6 */ 0x255E /* BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE */ ,
+	/* C7 */ 0x255F /* BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE */ ,
+	/* C8 */ 0x255A /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,
+	/* C9 */ 0x2554 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,
+	/* CA */ 0x2569 /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,
+	/* CB */ 0x2566 /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,
+	/* CC */ 0x2560 /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,
+	/* CD */ 0x2550 /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,
+	/* CE */ 0x256C /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,
+	/* CF */ 0x2567 /*  BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D0 */ 0x2568 /*  BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D1 */ 0x2564 /* BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D2 */ 0x2565 /* BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D3 */ 0x2559 /*       BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE */ ,
+	/* D4 */ 0x2558 /*       BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE */ ,
+	/* D5 */ 0x2552 /*     BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE */ ,
+	/* D6 */ 0x2553 /*     BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE */ ,
+	/* D7 */ 0x256B /* BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D8 */ 0x256A /* BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D9 */ 0x2518 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,
+	/* DA */ 0x250C /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,
+	/* DB */ 0x2588 /*                                    FULL BLOCK */ ,
+	/* DC */ 0x2584 /*                              LOWER HALF BLOCK */ ,
+	/* DD */ 0x258C /*                               LEFT HALF BLOCK */ ,
+	/* DE */ 0x2590 /*                              RIGHT HALF BLOCK */ ,
+	/* DF */ 0x2580 /*                              UPPER HALF BLOCK */ ,
+	/* E0 */ 0x03B1 /*                      GREEK SMALL LETTER ALPHA */ ,
+	/* E1 */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* E2 */ 0x0393 /*                    GREEK CAPITAL LETTER GAMMA */ ,
+	/* E3 */ 0x03C0 /*                         GREEK SMALL LETTER PI */ ,
+	/* E4 */ 0x03A3 /*                    GREEK CAPITAL LETTER SIGMA */ ,
+	/* E5 */ 0x03C3 /*                      GREEK SMALL LETTER SIGMA */ ,
+	/* E6 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* E7 */ 0x03C4 /*                        GREEK SMALL LETTER TAU */ ,
+	/* E8 */ 0x03A6 /*                      GREEK CAPITAL LETTER PHI */ ,
+	/* E9 */ 0x0398 /*                    GREEK CAPITAL LETTER THETA */ ,
+	/* EA */ 0x03A9 /*                    GREEK CAPITAL LETTER OMEGA */ ,
+	/* EB */ 0x03B4 /*                      GREEK SMALL LETTER DELTA */ ,
+	/* EC */ 0x221E /*                                      INFINITY */ ,
+	/* ED */ 0x03C6 /*                        GREEK SMALL LETTER PHI */ ,
+	/* EE */ 0x03B5 /*                    GREEK SMALL LETTER EPSILON */ ,
+	/* EF */ 0x2229 /*                                  INTERSECTION */ ,
+	/* F0 */ 0x2261 /*                                  IDENTICAL TO */ ,
+	/* F1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* F2 */ 0x2265 /*                      GREATER-THAN OR EQUAL TO */ ,
+	/* F3 */ 0x2264 /*                         LESS-THAN OR EQUAL TO */ ,
+	/* F4 */ 0x2320 /*                             TOP HALF INTEGRAL */ ,
+	/* F5 */ 0x2321 /*                          BOTTOM HALF INTEGRAL */ ,
+	/* F6 */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* F7 */ 0x2248 /*                               ALMOST EQUAL TO */ ,
+	/* F8 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* F9 */ 0x2219 /*                               BULLET OPERATOR */ ,
+	/* FA */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* FB */ 0x221A /*                                   SQUARE ROOT */ ,
+	/* FC */ 0x207F /*              SUPERSCRIPT LATIN SMALL LETTER N */ ,
+	/* FD */ 0x00B2 /*                               SUPERSCRIPT TWO */ ,
+	/* FE */ 0x25A0 /*                                  BLACK SQUARE */ ,
+	/* FF */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xFF /*                                NO-BREAK SPACE */ ,	/* 416 */
+	/* U+00A1 */ 0xAD /*                     INVERTED EXCLAMATION MARK */ ,	/* 417 */
+										/* U+00A2 */ CANT_MAP_CHARACTER,
+										/* 418 */
+	/* U+00A3 */ 0x9C /*                                    POUND SIGN */ ,	/* 419 */
+										/* U+00A4 */ CANT_MAP_CHARACTER,
+										/* 420 */
+										/* U+00A5 */ CANT_MAP_CHARACTER,
+										/* 421 */
+										/* U+00A6 */ CANT_MAP_CHARACTER,
+										/* 422 */
+										/* U+00A7 */ CANT_MAP_CHARACTER,
+										/* 423 */
+										/* U+00A8 */ CANT_MAP_CHARACTER,
+										/* 424 */
+										/* U+00A9 */ CANT_MAP_CHARACTER,
+										/* 425 */
+										/* U+00AA */ CANT_MAP_CHARACTER,
+										/* 426 */
+	/* U+00AB */ 0xAE /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAA /*                                      NOT SIGN */ ,	/* 428 */
+										/* U+00AD */ CANT_MAP_CHARACTER,
+										/* 429 */
+										/* U+00AE */ CANT_MAP_CHARACTER,
+										/* 430 */
+										/* U+00AF */ CANT_MAP_CHARACTER,
+										/* 431 */
+	/* U+00B0 */ 0xF8 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xF1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+	/* U+00B2 */ 0xFD /*                               SUPERSCRIPT TWO */ ,	/* 434 */
+										/* U+00B3 */ CANT_MAP_CHARACTER,
+										/* 435 */
+										/* U+00B4 */ CANT_MAP_CHARACTER,
+										/* 436 */
+	/* U+00B5 */ 0xE6 /*                                    MICRO SIGN */ ,	/* 437 */
+										/* U+00B6 */ CANT_MAP_CHARACTER,
+										/* 438 */
+	/* U+00B7 */ 0xFA /*                                    MIDDLE DOT */ ,	/* 439 */
+										/* U+00B8 */ CANT_MAP_CHARACTER,
+										/* 440 */
+										/* U+00B9 */ CANT_MAP_CHARACTER,
+										/* 441 */
+										/* U+00BA */ CANT_MAP_CHARACTER,
+										/* 442 */
+	/* U+00BB */ 0xAF /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+	/* U+00BC */ 0xAC /*                   VULGAR FRACTION ONE QUARTER */ ,	/* 444 */
+	/* U+00BD */ 0xAB /*                      VULGAR FRACTION ONE HALF */ ,	/* 445 */
+										/* U+00BE */ CANT_MAP_CHARACTER,
+										/* 446 */
+	/* U+00BF */ 0xA8 /*                        INVERTED QUESTION MARK */ ,	/* 447 */
+										/* U+00C0 */ CANT_MAP_CHARACTER,
+										/* 448 */
+	/* U+00C1 */ 0xA4 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,	/* 449 */
+										/* U+00C2 */ CANT_MAP_CHARACTER,
+										/* 450 */
+										/* U+00C3 */ CANT_MAP_CHARACTER,
+										/* 451 */
+	/* U+00C4 */ 0x8E /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,	/* 452 */
+	/* U+00C5 */ 0x8F /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,	/* 453 */
+	/* U+00C6 */ 0x92 /*                     LATIN CAPITAL LIGATURE AE */ ,	/* 454 */
+	/* U+00C7 */ 0x80 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,	/* 455 */
+										/* U+00C8 */ CANT_MAP_CHARACTER,
+										/* 456 */
+	/* U+00C9 */ 0x90 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,	/* 457 */
+										/* U+00CA */ CANT_MAP_CHARACTER,
+										/* 458 */
+										/* U+00CB */ CANT_MAP_CHARACTER,
+										/* 459 */
+										/* U+00CC */ CANT_MAP_CHARACTER,
+										/* 460 */
+	/* U+00CD */ 0xA5 /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,	/* 461 */
+										/* U+00CE */ CANT_MAP_CHARACTER,
+										/* 462 */
+										/* U+00CF */ CANT_MAP_CHARACTER,
+										/* 463 */
+	/* U+00D0 */ 0x8B /*                      LATIN CAPITAL LETTER ETH */ ,	/* 464 */
+										/* U+00D1 */ CANT_MAP_CHARACTER,
+										/* 465 */
+										/* U+00D2 */ CANT_MAP_CHARACTER,
+										/* 466 */
+	/* U+00D3 */ 0xA6 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,	/* 467 */
+										/* U+00D4 */ CANT_MAP_CHARACTER,
+										/* 468 */
+										/* U+00D5 */ CANT_MAP_CHARACTER,
+										/* 469 */
+	/* U+00D6 */ 0x99 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,	/* 470 */
+										/* U+00D7 */ CANT_MAP_CHARACTER,
+										/* 471 */
+	/* U+00D8 */ 0x9D /*            LATIN CAPITAL LETTER O WITH STROKE */ ,	/* 472 */
+										/* U+00D9 */ CANT_MAP_CHARACTER,
+										/* 473 */
+	/* U+00DA */ 0xA7 /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,	/* 474 */
+										/* U+00DB */ CANT_MAP_CHARACTER,
+										/* 475 */
+	/* U+00DC */ 0x9A /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,	/* 476 */
+	/* U+00DD */ 0x97 /*             LATIN CAPITAL LETTER Y WITH ACUTE */ ,	/* 477 */
+	/* U+00DE */ 0x8D /*                    LATIN CAPITAL LETTER THORN */ ,	/* 478 */
+	/* U+00DF */ 0xE1 /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+	/* U+00E0 */ 0x85 /*               LATIN SMALL LETTER A WITH GRAVE */ ,	/* 480 */
+	/* U+00E1 */ 0xA0 /*               LATIN SMALL LETTER A WITH ACUTE */ ,	/* 481 */
+	/* U+00E2 */ 0x83 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,	/* 482 */
+										/* U+00E3 */ CANT_MAP_CHARACTER,
+										/* 483 */
+	/* U+00E4 */ 0x84 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,	/* 484 */
+	/* U+00E5 */ 0x86 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,	/* 485 */
+	/* U+00E6 */ 0x91 /*                       LATIN SMALL LIGATURE AE */ ,	/* 486 */
+	/* U+00E7 */ 0x87 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,	/* 487 */
+	/* U+00E8 */ 0x8A /*               LATIN SMALL LETTER E WITH GRAVE */ ,	/* 488 */
+	/* U+00E9 */ 0x82 /*               LATIN SMALL LETTER E WITH ACUTE */ ,	/* 489 */
+	/* U+00EA */ 0x88 /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,	/* 490 */
+	/* U+00EB */ 0x89 /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,	/* 491 */
+										/* U+00EC */ CANT_MAP_CHARACTER,
+										/* 492 */
+	/* U+00ED */ 0xA1 /*               LATIN SMALL LETTER I WITH ACUTE */ ,	/* 493 */
+										/* U+00EE */ CANT_MAP_CHARACTER,
+										/* 494 */
+										/* U+00EF */ CANT_MAP_CHARACTER,
+										/* 495 */
+	/* U+00F0 */ 0x8C /*                        LATIN SMALL LETTER ETH */ ,	/* 496 */
+										/* U+00F1 */ CANT_MAP_CHARACTER,
+										/* 497 */
+										/* U+00F2 */ CANT_MAP_CHARACTER,
+										/* 498 */
+	/* U+00F3 */ 0xA2 /*               LATIN SMALL LETTER O WITH ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0x93 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,	/* 500 */
+										/* U+00F5 */ CANT_MAP_CHARACTER,
+										/* 501 */
+	/* U+00F6 */ 0x94 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,	/* 502 */
+	/* U+00F7 */ 0xF6 /*                                 DIVISION SIGN */ ,	/* 503 */
+	/* U+00F8 */ 0x9B /*              LATIN SMALL LETTER O WITH STROKE */ ,	/* 504 */
+										/* U+00F9 */ CANT_MAP_CHARACTER,
+										/* 505 */
+	/* U+00FA */ 0xA3 /*               LATIN SMALL LETTER U WITH ACUTE */ ,	/* 506 */
+	/* U+00FB */ 0x96 /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,	/* 507 */
+	/* U+00FC */ 0x81 /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,	/* 508 */
+	/* U+00FD */ 0x98 /*               LATIN SMALL LETTER Y WITH ACUTE */ ,	/* 509 */
+	/* U+00FE */ 0x95 /*                      LATIN SMALL LETTER THORN */ ,	/* 510 */
+										/* U+00FF */ CANT_MAP_CHARACTER,
+										/* 511 */
+										/* U+0100 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0101 */ CANT_MAP_CHARACTER,
+										/* 513 */
+										/* U+0102 */ CANT_MAP_CHARACTER,
+										/* 514 */
+										/* U+0103 */ CANT_MAP_CHARACTER,
+										/* 515 */
+										/* U+0104 */ CANT_MAP_CHARACTER,
+										/* 516 */
+										/* U+0105 */ CANT_MAP_CHARACTER,
+										/* 517 */
+										/* U+0106 */ CANT_MAP_CHARACTER,
+										/* 518 */
+										/* U+0107 */ CANT_MAP_CHARACTER,
+										/* 519 */
+										/* U+0108 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0109 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+010A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+010B */ CANT_MAP_CHARACTER,
+										/* 523 */
+										/* U+010C */ CANT_MAP_CHARACTER,
+										/* 524 */
+										/* U+010D */ CANT_MAP_CHARACTER,
+										/* 525 */
+										/* U+010E */ CANT_MAP_CHARACTER,
+										/* 526 */
+										/* U+010F */ CANT_MAP_CHARACTER,
+										/* 527 */
+										/* U+0110 */ CANT_MAP_CHARACTER,
+										/* 528 */
+										/* U+0111 */ CANT_MAP_CHARACTER,
+										/* 529 */
+										/* U+0112 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0113 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0114 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0115 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0116 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0117 */ CANT_MAP_CHARACTER,
+										/* 535 */
+										/* U+0118 */ CANT_MAP_CHARACTER,
+										/* 536 */
+										/* U+0119 */ CANT_MAP_CHARACTER,
+										/* 537 */
+										/* U+011A */ CANT_MAP_CHARACTER,
+										/* 538 */
+										/* U+011B */ CANT_MAP_CHARACTER,
+										/* 539 */
+										/* U+011C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+011D */ CANT_MAP_CHARACTER,
+										/* 541 */
+										/* U+011E */ CANT_MAP_CHARACTER,
+										/* 542 */
+										/* U+011F */ CANT_MAP_CHARACTER,
+										/* 543 */
+										/* U+0120 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0121 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0122 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0123 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0124 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0125 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0126 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0127 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0128 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0129 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+012A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+012B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+012C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+012D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+012E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+012F */ CANT_MAP_CHARACTER,
+										/* 559 */
+										/* U+0130 */ CANT_MAP_CHARACTER,
+										/* 560 */
+										/* U+0131 */ CANT_MAP_CHARACTER,
+										/* 561 */
+										/* U+0132 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0133 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0134 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0135 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0136 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0137 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0138 */ CANT_MAP_CHARACTER,
+										/* 568 */
+										/* U+0139 */ CANT_MAP_CHARACTER,
+										/* 569 */
+										/* U+013A */ CANT_MAP_CHARACTER,
+										/* 570 */
+										/* U+013B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+013C */ CANT_MAP_CHARACTER,
+										/* 572 */
+										/* U+013D */ CANT_MAP_CHARACTER,
+										/* 573 */
+										/* U+013E */ CANT_MAP_CHARACTER,
+										/* 574 */
+										/* U+013F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0140 */ CANT_MAP_CHARACTER,
+										/* 576 */
+										/* U+0141 */ CANT_MAP_CHARACTER,
+										/* 577 */
+										/* U+0142 */ CANT_MAP_CHARACTER,
+										/* 578 */
+										/* U+0143 */ CANT_MAP_CHARACTER,
+										/* 579 */
+										/* U+0144 */ CANT_MAP_CHARACTER,
+										/* 580 */
+										/* U+0145 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0146 */ CANT_MAP_CHARACTER,
+										/* 582 */
+										/* U+0147 */ CANT_MAP_CHARACTER,
+										/* 583 */
+										/* U+0148 */ CANT_MAP_CHARACTER,
+										/* 584 */
+										/* U+0149 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+014A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+014B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+014C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+014D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+014E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+014F */ CANT_MAP_CHARACTER,
+										/* 591 */
+										/* U+0150 */ CANT_MAP_CHARACTER,
+										/* 592 */
+										/* U+0151 */ CANT_MAP_CHARACTER,
+										/* 593 */
+										/* U+0152 */ CANT_MAP_CHARACTER,
+										/* 594 */
+										/* U+0153 */ CANT_MAP_CHARACTER,
+										/* 595 */
+										/* U+0154 */ CANT_MAP_CHARACTER,
+										/* 596 */
+										/* U+0155 */ CANT_MAP_CHARACTER,
+										/* 597 */
+										/* U+0156 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0157 */ CANT_MAP_CHARACTER,
+										/* 599 */
+										/* U+0158 */ CANT_MAP_CHARACTER,
+										/* 600 */
+										/* U+0159 */ CANT_MAP_CHARACTER,
+										/* 601 */
+										/* U+015A */ CANT_MAP_CHARACTER,
+										/* 602 */
+										/* U+015B */ CANT_MAP_CHARACTER,
+										/* 603 */
+										/* U+015C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+015D */ CANT_MAP_CHARACTER,
+										/* 605 */
+										/* U+015E */ CANT_MAP_CHARACTER,
+										/* 606 */
+										/* U+015F */ CANT_MAP_CHARACTER,
+										/* 607 */
+										/* U+0160 */ CANT_MAP_CHARACTER,
+										/* 608 */
+										/* U+0161 */ CANT_MAP_CHARACTER,
+										/* 609 */
+										/* U+0162 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0163 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0164 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0165 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0166 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0167 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0168 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0169 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+016A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+016B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+016C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+016D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+016E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+016F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0170 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0171 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0172 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0173 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0174 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0175 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0176 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0177 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0178 */ CANT_MAP_CHARACTER,
+										/* 632 */
+										/* U+0179 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+017A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+017B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+017C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+017D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+017E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+017F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0180 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0181 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0182 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0183 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0184 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0185 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0186 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0187 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0188 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0189 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+018A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+018B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+018C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+018D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+018E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+018F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0190 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0191 */ CANT_MAP_CHARACTER,
+										/* 657 */
+	/* U+0192 */ 0x9F /*                LATIN SMALL LETTER F WITH HOOK */ ,	/* 658 */
+										/* U+0193 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0194 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0195 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0196 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0197 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0198 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0199 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+019A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+019B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+019C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+019D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+019E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+019F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+01A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+01A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+01A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+01A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+01A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+01A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+01A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+01A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+01A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+01A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+01AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+01AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+01AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+01AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+01AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+01AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+01B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+01B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+01B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+01B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+01B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+01B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+01B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+01B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+01B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+01B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+01BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+01BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+01BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+01BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+01BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+01BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+01C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+01C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+01C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+01C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+01C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+01C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+01C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+01C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+01C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+01C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+01CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+01CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+01CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+01CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+01CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+01CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+01D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+01D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+01D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+01D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+01D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+01D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+01D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+01D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+01D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+01D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+01DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+01DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+01DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+01DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+01DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+01DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+01E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+01E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+01E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+01E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+01E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+01E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+01E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+01E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+01E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+01E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+01EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+01EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+01EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+01ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+01EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+01EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+01F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+01F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+01F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+01F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+01F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+01F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+01F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+01F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+01F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+01F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+01FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+01FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+01FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+01FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+01FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+01FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+0300 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+0301 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+0302 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+0303 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+0304 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+0305 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+0306 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+0307 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+0308 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+0309 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+030A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+030B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+030C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+030D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+030E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+030F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+0310 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+0311 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+0312 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+0313 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+0314 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+0315 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+0316 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+0317 */ CANT_MAP_CHARACTER,
+										/* 791 */
+										/* U+0318 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+0319 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+031A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+031B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+031C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+031D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+031E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+031F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+0320 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+0321 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+0322 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+0323 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+0324 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+0325 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+0326 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+0327 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+0328 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+0329 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+032A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+032B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+032C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+032D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+032E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+032F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+0330 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+0331 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+0332 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+0333 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+0334 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+0335 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+0336 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+0337 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+0338 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+0339 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+033A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+033B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+033C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+033D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+033E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+033F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+0340 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+0341 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+0342 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+0343 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+0344 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+0345 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+0346 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+0347 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+0348 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+0349 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+034A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+034B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+034C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+034D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+034E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+034F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+0350 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+0351 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+0352 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+0353 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+0354 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+0355 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+0356 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+0357 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+0358 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+0359 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+035A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+035B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+035C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+035D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+035E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+035F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+0360 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+0361 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+0362 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+0363 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+0364 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+0365 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+0366 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+0367 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+0368 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+0369 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+036A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+036B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+036C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+036D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+036E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+036F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+0370 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+0371 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+0372 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+0373 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+0374 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+0375 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+0376 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+0377 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+0378 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+0379 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+037A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+037B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+037C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+037D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+037E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+037F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+0380 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+0381 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+0382 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+0383 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+0384 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+0385 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+0386 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+0387 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+0388 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+0389 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+038A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+038B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+038C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+038D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+038E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+038F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+0390 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+0391 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+0392 */ CANT_MAP_CHARACTER,
+										/* 914 */
+	/* U+0393 */ 0xE2 /*                    GREEK CAPITAL LETTER GAMMA */ ,	/* 915 */
+										/* U+0394 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+0395 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+0396 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+0397 */ CANT_MAP_CHARACTER,
+										/* 919 */
+	/* U+0398 */ 0xE9 /*                    GREEK CAPITAL LETTER THETA */ ,	/* 920 */
+										/* U+0399 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+039A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+039B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+039C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+039D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+039E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+039F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+03A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+03A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+03A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+	/* U+03A3 */ 0xE4 /*                    GREEK CAPITAL LETTER SIGMA */ ,	/* 931 */
+										/* U+03A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+03A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+	/* U+03A6 */ 0xE8 /*                      GREEK CAPITAL LETTER PHI */ ,	/* 934 */
+										/* U+03A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+03A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+	/* U+03A9 */ 0xEA /*                    GREEK CAPITAL LETTER OMEGA */ ,	/* 937 */
+										/* U+03AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+03AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+03AC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+03AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+03AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+03AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+03B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+	/* U+03B1 */ 0xE0 /*                      GREEK SMALL LETTER ALPHA */ ,	/* 945 */
+										/* U+03B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+03B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+	/* U+03B4 */ 0xEB /*                      GREEK SMALL LETTER DELTA */ ,	/* 948 */
+	/* U+03B5 */ 0xEE /*                    GREEK SMALL LETTER EPSILON */ ,	/* 949 */
+										/* U+03B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+03B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+03B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+03B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+03BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+03BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+03BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+03BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+03BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+03BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+	/* U+03C0 */ 0xE3 /*                         GREEK SMALL LETTER PI */ ,	/* 960 */
+										/* U+03C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+03C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+	/* U+03C3 */ 0xE5 /*                      GREEK SMALL LETTER SIGMA */ ,	/* 963 */
+	/* U+03C4 */ 0xE7 /*                        GREEK SMALL LETTER TAU */ ,	/* 964 */
+										/* U+03C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+	/* U+03C6 */ 0xED /*                        GREEK SMALL LETTER PHI */ ,	/* 966 */
+										/* U+03C7 */ CANT_MAP_CHARACTER,
+										/* 967 */
+										/* U+03C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+03C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+03CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+03CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+03CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+03CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+03CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+03CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+03D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+03D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+03D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+03D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+03D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+03D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+03D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+03D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+03D8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+03D9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+03DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+03DB */ CANT_MAP_CHARACTER,
+										/* 987 */
+										/* U+03DC */ CANT_MAP_CHARACTER,
+										/* 988 */
+										/* U+03DD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+03DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+03DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+03E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+03E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+03E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+03E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+03E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+03E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+03E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+03E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+03E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+03E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+03EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+03EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+03EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+03ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+03EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+03EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+03F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+03F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+03F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+03F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+03F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+03F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+03F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+03F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+03F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+03F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+03FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+03FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+03FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+03FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+03FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+03FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 1024 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 1026 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 1036 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 1040 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+										/* U+2013 */ CANT_MAP_CHARACTER,
+										/* 1043 */
+										/* U+2014 */ CANT_MAP_CHARACTER,
+										/* 1044 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 1046 */
+										/* U+2017 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+										/* U+2018 */ CANT_MAP_CHARACTER,
+										/* 1048 */
+										/* U+2019 */ CANT_MAP_CHARACTER,
+										/* 1049 */
+										/* U+201A */ CANT_MAP_CHARACTER,
+										/* 1050 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+										/* U+201C */ CANT_MAP_CHARACTER,
+										/* 1052 */
+										/* U+201D */ CANT_MAP_CHARACTER,
+										/* 1053 */
+										/* U+201E */ CANT_MAP_CHARACTER,
+										/* 1054 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+										/* U+2020 */ CANT_MAP_CHARACTER,
+										/* 1056 */
+										/* U+2021 */ CANT_MAP_CHARACTER,
+										/* 1057 */
+										/* U+2022 */ CANT_MAP_CHARACTER,
+										/* 1058 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 1060 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+										/* U+2026 */ CANT_MAP_CHARACTER,
+										/* 1062 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 1068 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+										/* U+2030 */ CANT_MAP_CHARACTER,
+										/* 1072 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 1076 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+										/* U+2039 */ CANT_MAP_CHARACTER,
+										/* 1081 */
+										/* U+203A */ CANT_MAP_CHARACTER,
+										/* 1082 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 1084 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 1104 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 1105 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 1108 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 1111 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 1114 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 1117 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 1120 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 1123 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 1126 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 1129 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 1132 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+	/* U+207F */ 0xFC /*              SUPERSCRIPT LATIN SMALL LETTER N */ ,	/* 1151 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 1152 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 1156 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 1160 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 1169 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 1170 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 1171 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 1184 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+	/* U+20A7 */ 0x9E /*                                   PESETA SIGN */ ,	/* 1191 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+										/* U+20AC */ CANT_MAP_CHARACTER,
+										/* 1196 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+										/* U+2200 */ CANT_MAP_CHARACTER,
+										/* 1280 */
+										/* U+2201 */ CANT_MAP_CHARACTER,
+										/* 1281 */
+										/* U+2202 */ CANT_MAP_CHARACTER,
+										/* 1282 */
+										/* U+2203 */ CANT_MAP_CHARACTER,
+										/* 1283 */
+										/* U+2204 */ CANT_MAP_CHARACTER,
+										/* 1284 */
+										/* U+2205 */ CANT_MAP_CHARACTER,
+										/* 1285 */
+										/* U+2206 */ CANT_MAP_CHARACTER,
+										/* 1286 */
+										/* U+2207 */ CANT_MAP_CHARACTER,
+										/* 1287 */
+										/* U+2208 */ CANT_MAP_CHARACTER,
+										/* 1288 */
+										/* U+2209 */ CANT_MAP_CHARACTER,
+										/* 1289 */
+										/* U+220A */ CANT_MAP_CHARACTER,
+										/* 1290 */
+										/* U+220B */ CANT_MAP_CHARACTER,
+										/* 1291 */
+										/* U+220C */ CANT_MAP_CHARACTER,
+										/* 1292 */
+										/* U+220D */ CANT_MAP_CHARACTER,
+										/* 1293 */
+										/* U+220E */ CANT_MAP_CHARACTER,
+										/* 1294 */
+										/* U+220F */ CANT_MAP_CHARACTER,
+										/* 1295 */
+										/* U+2210 */ CANT_MAP_CHARACTER,
+										/* 1296 */
+										/* U+2211 */ CANT_MAP_CHARACTER,
+										/* 1297 */
+										/* U+2212 */ CANT_MAP_CHARACTER,
+										/* 1298 */
+										/* U+2213 */ CANT_MAP_CHARACTER,
+										/* 1299 */
+										/* U+2214 */ CANT_MAP_CHARACTER,
+										/* 1300 */
+										/* U+2215 */ CANT_MAP_CHARACTER,
+										/* 1301 */
+										/* U+2216 */ CANT_MAP_CHARACTER,
+										/* 1302 */
+										/* U+2217 */ CANT_MAP_CHARACTER,
+										/* 1303 */
+										/* U+2218 */ CANT_MAP_CHARACTER,
+										/* 1304 */
+	/* U+2219 */ 0xF9 /*                               BULLET OPERATOR */ ,	/* 1305 */
+	/* U+221A */ 0xFB /*                                   SQUARE ROOT */ ,	/* 1306 */
+										/* U+221B */ CANT_MAP_CHARACTER,
+										/* 1307 */
+										/* U+221C */ CANT_MAP_CHARACTER,
+										/* 1308 */
+										/* U+221D */ CANT_MAP_CHARACTER,
+										/* 1309 */
+	/* U+221E */ 0xEC /*                                      INFINITY */ ,	/* 1310 */
+										/* U+221F */ CANT_MAP_CHARACTER,
+										/* 1311 */
+										/* U+2220 */ CANT_MAP_CHARACTER,
+										/* 1312 */
+										/* U+2221 */ CANT_MAP_CHARACTER,
+										/* 1313 */
+										/* U+2222 */ CANT_MAP_CHARACTER,
+										/* 1314 */
+										/* U+2223 */ CANT_MAP_CHARACTER,
+										/* 1315 */
+										/* U+2224 */ CANT_MAP_CHARACTER,
+										/* 1316 */
+										/* U+2225 */ CANT_MAP_CHARACTER,
+										/* 1317 */
+										/* U+2226 */ CANT_MAP_CHARACTER,
+										/* 1318 */
+										/* U+2227 */ CANT_MAP_CHARACTER,
+										/* 1319 */
+										/* U+2228 */ CANT_MAP_CHARACTER,
+										/* 1320 */
+	/* U+2229 */ 0xEF /*                                  INTERSECTION */ ,	/* 1321 */
+										/* U+222A */ CANT_MAP_CHARACTER,
+										/* 1322 */
+										/* U+222B */ CANT_MAP_CHARACTER,
+										/* 1323 */
+										/* U+222C */ CANT_MAP_CHARACTER,
+										/* 1324 */
+										/* U+222D */ CANT_MAP_CHARACTER,
+										/* 1325 */
+										/* U+222E */ CANT_MAP_CHARACTER,
+										/* 1326 */
+										/* U+222F */ CANT_MAP_CHARACTER,
+										/* 1327 */
+										/* U+2230 */ CANT_MAP_CHARACTER,
+										/* 1328 */
+										/* U+2231 */ CANT_MAP_CHARACTER,
+										/* 1329 */
+										/* U+2232 */ CANT_MAP_CHARACTER,
+										/* 1330 */
+										/* U+2233 */ CANT_MAP_CHARACTER,
+										/* 1331 */
+										/* U+2234 */ CANT_MAP_CHARACTER,
+										/* 1332 */
+										/* U+2235 */ CANT_MAP_CHARACTER,
+										/* 1333 */
+										/* U+2236 */ CANT_MAP_CHARACTER,
+										/* 1334 */
+										/* U+2237 */ CANT_MAP_CHARACTER,
+										/* 1335 */
+										/* U+2238 */ CANT_MAP_CHARACTER,
+										/* 1336 */
+										/* U+2239 */ CANT_MAP_CHARACTER,
+										/* 1337 */
+										/* U+223A */ CANT_MAP_CHARACTER,
+										/* 1338 */
+										/* U+223B */ CANT_MAP_CHARACTER,
+										/* 1339 */
+										/* U+223C */ CANT_MAP_CHARACTER,
+										/* 1340 */
+										/* U+223D */ CANT_MAP_CHARACTER,
+										/* 1341 */
+										/* U+223E */ CANT_MAP_CHARACTER,
+										/* 1342 */
+										/* U+223F */ CANT_MAP_CHARACTER,
+										/* 1343 */
+										/* U+2240 */ CANT_MAP_CHARACTER,
+										/* 1344 */
+										/* U+2241 */ CANT_MAP_CHARACTER,
+										/* 1345 */
+										/* U+2242 */ CANT_MAP_CHARACTER,
+										/* 1346 */
+										/* U+2243 */ CANT_MAP_CHARACTER,
+										/* 1347 */
+										/* U+2244 */ CANT_MAP_CHARACTER,
+										/* 1348 */
+										/* U+2245 */ CANT_MAP_CHARACTER,
+										/* 1349 */
+										/* U+2246 */ CANT_MAP_CHARACTER,
+										/* 1350 */
+										/* U+2247 */ CANT_MAP_CHARACTER,
+										/* 1351 */
+	/* U+2248 */ 0xF7 /*                               ALMOST EQUAL TO */ ,	/* 1352 */
+										/* U+2249 */ CANT_MAP_CHARACTER,
+										/* 1353 */
+										/* U+224A */ CANT_MAP_CHARACTER,
+										/* 1354 */
+										/* U+224B */ CANT_MAP_CHARACTER,
+										/* 1355 */
+										/* U+224C */ CANT_MAP_CHARACTER,
+										/* 1356 */
+										/* U+224D */ CANT_MAP_CHARACTER,
+										/* 1357 */
+										/* U+224E */ CANT_MAP_CHARACTER,
+										/* 1358 */
+										/* U+224F */ CANT_MAP_CHARACTER,
+										/* 1359 */
+										/* U+2250 */ CANT_MAP_CHARACTER,
+										/* 1360 */
+										/* U+2251 */ CANT_MAP_CHARACTER,
+										/* 1361 */
+										/* U+2252 */ CANT_MAP_CHARACTER,
+										/* 1362 */
+										/* U+2253 */ CANT_MAP_CHARACTER,
+										/* 1363 */
+										/* U+2254 */ CANT_MAP_CHARACTER,
+										/* 1364 */
+										/* U+2255 */ CANT_MAP_CHARACTER,
+										/* 1365 */
+										/* U+2256 */ CANT_MAP_CHARACTER,
+										/* 1366 */
+										/* U+2257 */ CANT_MAP_CHARACTER,
+										/* 1367 */
+										/* U+2258 */ CANT_MAP_CHARACTER,
+										/* 1368 */
+										/* U+2259 */ CANT_MAP_CHARACTER,
+										/* 1369 */
+										/* U+225A */ CANT_MAP_CHARACTER,
+										/* 1370 */
+										/* U+225B */ CANT_MAP_CHARACTER,
+										/* 1371 */
+										/* U+225C */ CANT_MAP_CHARACTER,
+										/* 1372 */
+										/* U+225D */ CANT_MAP_CHARACTER,
+										/* 1373 */
+										/* U+225E */ CANT_MAP_CHARACTER,
+										/* 1374 */
+										/* U+225F */ CANT_MAP_CHARACTER,
+										/* 1375 */
+										/* U+2260 */ CANT_MAP_CHARACTER,
+										/* 1376 */
+	/* U+2261 */ 0xF0 /*                                  IDENTICAL TO */ ,	/* 1377 */
+										/* U+2262 */ CANT_MAP_CHARACTER,
+										/* 1378 */
+										/* U+2263 */ CANT_MAP_CHARACTER,
+										/* 1379 */
+	/* U+2264 */ 0xF3 /*                         LESS-THAN OR EQUAL TO */ ,	/* 1380 */
+	/* U+2265 */ 0xF2 /*                      GREATER-THAN OR EQUAL TO */ ,	/* 1381 */
+										/* U+2266 */ CANT_MAP_CHARACTER,
+										/* 1382 */
+										/* U+2267 */ CANT_MAP_CHARACTER,
+										/* 1383 */
+										/* U+2268 */ CANT_MAP_CHARACTER,
+										/* 1384 */
+										/* U+2269 */ CANT_MAP_CHARACTER,
+										/* 1385 */
+										/* U+226A */ CANT_MAP_CHARACTER,
+										/* 1386 */
+										/* U+226B */ CANT_MAP_CHARACTER,
+										/* 1387 */
+										/* U+226C */ CANT_MAP_CHARACTER,
+										/* 1388 */
+										/* U+226D */ CANT_MAP_CHARACTER,
+										/* 1389 */
+										/* U+226E */ CANT_MAP_CHARACTER,
+										/* 1390 */
+										/* U+226F */ CANT_MAP_CHARACTER,
+										/* 1391 */
+										/* U+2270 */ CANT_MAP_CHARACTER,
+										/* 1392 */
+										/* U+2271 */ CANT_MAP_CHARACTER,
+										/* 1393 */
+										/* U+2272 */ CANT_MAP_CHARACTER,
+										/* 1394 */
+										/* U+2273 */ CANT_MAP_CHARACTER,
+										/* 1395 */
+										/* U+2274 */ CANT_MAP_CHARACTER,
+										/* 1396 */
+										/* U+2275 */ CANT_MAP_CHARACTER,
+										/* 1397 */
+										/* U+2276 */ CANT_MAP_CHARACTER,
+										/* 1398 */
+										/* U+2277 */ CANT_MAP_CHARACTER,
+										/* 1399 */
+										/* U+2278 */ CANT_MAP_CHARACTER,
+										/* 1400 */
+										/* U+2279 */ CANT_MAP_CHARACTER,
+										/* 1401 */
+										/* U+227A */ CANT_MAP_CHARACTER,
+										/* 1402 */
+										/* U+227B */ CANT_MAP_CHARACTER,
+										/* 1403 */
+										/* U+227C */ CANT_MAP_CHARACTER,
+										/* 1404 */
+										/* U+227D */ CANT_MAP_CHARACTER,
+										/* 1405 */
+										/* U+227E */ CANT_MAP_CHARACTER,
+										/* 1406 */
+										/* U+227F */ CANT_MAP_CHARACTER,
+										/* 1407 */
+										/* U+2280 */ CANT_MAP_CHARACTER,
+										/* 1408 */
+										/* U+2281 */ CANT_MAP_CHARACTER,
+										/* 1409 */
+										/* U+2282 */ CANT_MAP_CHARACTER,
+										/* 1410 */
+										/* U+2283 */ CANT_MAP_CHARACTER,
+										/* 1411 */
+										/* U+2284 */ CANT_MAP_CHARACTER,
+										/* 1412 */
+										/* U+2285 */ CANT_MAP_CHARACTER,
+										/* 1413 */
+										/* U+2286 */ CANT_MAP_CHARACTER,
+										/* 1414 */
+										/* U+2287 */ CANT_MAP_CHARACTER,
+										/* 1415 */
+										/* U+2288 */ CANT_MAP_CHARACTER,
+										/* 1416 */
+										/* U+2289 */ CANT_MAP_CHARACTER,
+										/* 1417 */
+										/* U+228A */ CANT_MAP_CHARACTER,
+										/* 1418 */
+										/* U+228B */ CANT_MAP_CHARACTER,
+										/* 1419 */
+										/* U+228C */ CANT_MAP_CHARACTER,
+										/* 1420 */
+										/* U+228D */ CANT_MAP_CHARACTER,
+										/* 1421 */
+										/* U+228E */ CANT_MAP_CHARACTER,
+										/* 1422 */
+										/* U+228F */ CANT_MAP_CHARACTER,
+										/* 1423 */
+										/* U+2290 */ CANT_MAP_CHARACTER,
+										/* 1424 */
+										/* U+2291 */ CANT_MAP_CHARACTER,
+										/* 1425 */
+										/* U+2292 */ CANT_MAP_CHARACTER,
+										/* 1426 */
+										/* U+2293 */ CANT_MAP_CHARACTER,
+										/* 1427 */
+										/* U+2294 */ CANT_MAP_CHARACTER,
+										/* 1428 */
+										/* U+2295 */ CANT_MAP_CHARACTER,
+										/* 1429 */
+										/* U+2296 */ CANT_MAP_CHARACTER,
+										/* 1430 */
+										/* U+2297 */ CANT_MAP_CHARACTER,
+										/* 1431 */
+										/* U+2298 */ CANT_MAP_CHARACTER,
+										/* 1432 */
+										/* U+2299 */ CANT_MAP_CHARACTER,
+										/* 1433 */
+										/* U+229A */ CANT_MAP_CHARACTER,
+										/* 1434 */
+										/* U+229B */ CANT_MAP_CHARACTER,
+										/* 1435 */
+										/* U+229C */ CANT_MAP_CHARACTER,
+										/* 1436 */
+										/* U+229D */ CANT_MAP_CHARACTER,
+										/* 1437 */
+										/* U+229E */ CANT_MAP_CHARACTER,
+										/* 1438 */
+										/* U+229F */ CANT_MAP_CHARACTER,
+										/* 1439 */
+										/* U+22A0 */ CANT_MAP_CHARACTER,
+										/* 1440 */
+										/* U+22A1 */ CANT_MAP_CHARACTER,
+										/* 1441 */
+										/* U+22A2 */ CANT_MAP_CHARACTER,
+										/* 1442 */
+										/* U+22A3 */ CANT_MAP_CHARACTER,
+										/* 1443 */
+										/* U+22A4 */ CANT_MAP_CHARACTER,
+										/* 1444 */
+										/* U+22A5 */ CANT_MAP_CHARACTER,
+										/* 1445 */
+										/* U+22A6 */ CANT_MAP_CHARACTER,
+										/* 1446 */
+										/* U+22A7 */ CANT_MAP_CHARACTER,
+										/* 1447 */
+										/* U+22A8 */ CANT_MAP_CHARACTER,
+										/* 1448 */
+										/* U+22A9 */ CANT_MAP_CHARACTER,
+										/* 1449 */
+										/* U+22AA */ CANT_MAP_CHARACTER,
+										/* 1450 */
+										/* U+22AB */ CANT_MAP_CHARACTER,
+										/* 1451 */
+										/* U+22AC */ CANT_MAP_CHARACTER,
+										/* 1452 */
+										/* U+22AD */ CANT_MAP_CHARACTER,
+										/* 1453 */
+										/* U+22AE */ CANT_MAP_CHARACTER,
+										/* 1454 */
+										/* U+22AF */ CANT_MAP_CHARACTER,
+										/* 1455 */
+										/* U+22B0 */ CANT_MAP_CHARACTER,
+										/* 1456 */
+										/* U+22B1 */ CANT_MAP_CHARACTER,
+										/* 1457 */
+										/* U+22B2 */ CANT_MAP_CHARACTER,
+										/* 1458 */
+										/* U+22B3 */ CANT_MAP_CHARACTER,
+										/* 1459 */
+										/* U+22B4 */ CANT_MAP_CHARACTER,
+										/* 1460 */
+										/* U+22B5 */ CANT_MAP_CHARACTER,
+										/* 1461 */
+										/* U+22B6 */ CANT_MAP_CHARACTER,
+										/* 1462 */
+										/* U+22B7 */ CANT_MAP_CHARACTER,
+										/* 1463 */
+										/* U+22B8 */ CANT_MAP_CHARACTER,
+										/* 1464 */
+										/* U+22B9 */ CANT_MAP_CHARACTER,
+										/* 1465 */
+										/* U+22BA */ CANT_MAP_CHARACTER,
+										/* 1466 */
+										/* U+22BB */ CANT_MAP_CHARACTER,
+										/* 1467 */
+										/* U+22BC */ CANT_MAP_CHARACTER,
+										/* 1468 */
+										/* U+22BD */ CANT_MAP_CHARACTER,
+										/* 1469 */
+										/* U+22BE */ CANT_MAP_CHARACTER,
+										/* 1470 */
+										/* U+22BF */ CANT_MAP_CHARACTER,
+										/* 1471 */
+										/* U+22C0 */ CANT_MAP_CHARACTER,
+										/* 1472 */
+										/* U+22C1 */ CANT_MAP_CHARACTER,
+										/* 1473 */
+										/* U+22C2 */ CANT_MAP_CHARACTER,
+										/* 1474 */
+										/* U+22C3 */ CANT_MAP_CHARACTER,
+										/* 1475 */
+										/* U+22C4 */ CANT_MAP_CHARACTER,
+										/* 1476 */
+										/* U+22C5 */ CANT_MAP_CHARACTER,
+										/* 1477 */
+										/* U+22C6 */ CANT_MAP_CHARACTER,
+										/* 1478 */
+										/* U+22C7 */ CANT_MAP_CHARACTER,
+										/* 1479 */
+										/* U+22C8 */ CANT_MAP_CHARACTER,
+										/* 1480 */
+										/* U+22C9 */ CANT_MAP_CHARACTER,
+										/* 1481 */
+										/* U+22CA */ CANT_MAP_CHARACTER,
+										/* 1482 */
+										/* U+22CB */ CANT_MAP_CHARACTER,
+										/* 1483 */
+										/* U+22CC */ CANT_MAP_CHARACTER,
+										/* 1484 */
+										/* U+22CD */ CANT_MAP_CHARACTER,
+										/* 1485 */
+										/* U+22CE */ CANT_MAP_CHARACTER,
+										/* 1486 */
+										/* U+22CF */ CANT_MAP_CHARACTER,
+										/* 1487 */
+										/* U+22D0 */ CANT_MAP_CHARACTER,
+										/* 1488 */
+										/* U+22D1 */ CANT_MAP_CHARACTER,
+										/* 1489 */
+										/* U+22D2 */ CANT_MAP_CHARACTER,
+										/* 1490 */
+										/* U+22D3 */ CANT_MAP_CHARACTER,
+										/* 1491 */
+										/* U+22D4 */ CANT_MAP_CHARACTER,
+										/* 1492 */
+										/* U+22D5 */ CANT_MAP_CHARACTER,
+										/* 1493 */
+										/* U+22D6 */ CANT_MAP_CHARACTER,
+										/* 1494 */
+										/* U+22D7 */ CANT_MAP_CHARACTER,
+										/* 1495 */
+										/* U+22D8 */ CANT_MAP_CHARACTER,
+										/* 1496 */
+										/* U+22D9 */ CANT_MAP_CHARACTER,
+										/* 1497 */
+										/* U+22DA */ CANT_MAP_CHARACTER,
+										/* 1498 */
+										/* U+22DB */ CANT_MAP_CHARACTER,
+										/* 1499 */
+										/* U+22DC */ CANT_MAP_CHARACTER,
+										/* 1500 */
+										/* U+22DD */ CANT_MAP_CHARACTER,
+										/* 1501 */
+										/* U+22DE */ CANT_MAP_CHARACTER,
+										/* 1502 */
+										/* U+22DF */ CANT_MAP_CHARACTER,
+										/* 1503 */
+										/* U+22E0 */ CANT_MAP_CHARACTER,
+										/* 1504 */
+										/* U+22E1 */ CANT_MAP_CHARACTER,
+										/* 1505 */
+										/* U+22E2 */ CANT_MAP_CHARACTER,
+										/* 1506 */
+										/* U+22E3 */ CANT_MAP_CHARACTER,
+										/* 1507 */
+										/* U+22E4 */ CANT_MAP_CHARACTER,
+										/* 1508 */
+										/* U+22E5 */ CANT_MAP_CHARACTER,
+										/* 1509 */
+										/* U+22E6 */ CANT_MAP_CHARACTER,
+										/* 1510 */
+										/* U+22E7 */ CANT_MAP_CHARACTER,
+										/* 1511 */
+										/* U+22E8 */ CANT_MAP_CHARACTER,
+										/* 1512 */
+										/* U+22E9 */ CANT_MAP_CHARACTER,
+										/* 1513 */
+										/* U+22EA */ CANT_MAP_CHARACTER,
+										/* 1514 */
+										/* U+22EB */ CANT_MAP_CHARACTER,
+										/* 1515 */
+										/* U+22EC */ CANT_MAP_CHARACTER,
+										/* 1516 */
+										/* U+22ED */ CANT_MAP_CHARACTER,
+										/* 1517 */
+										/* U+22EE */ CANT_MAP_CHARACTER,
+										/* 1518 */
+										/* U+22EF */ CANT_MAP_CHARACTER,
+										/* 1519 */
+										/* U+22F0 */ CANT_MAP_CHARACTER,
+										/* 1520 */
+										/* U+22F1 */ CANT_MAP_CHARACTER,
+										/* 1521 */
+										/* U+22F2 */ CANT_MAP_CHARACTER,
+										/* 1522 */
+										/* U+22F3 */ CANT_MAP_CHARACTER,
+										/* 1523 */
+										/* U+22F4 */ CANT_MAP_CHARACTER,
+										/* 1524 */
+										/* U+22F5 */ CANT_MAP_CHARACTER,
+										/* 1525 */
+										/* U+22F6 */ CANT_MAP_CHARACTER,
+										/* 1526 */
+										/* U+22F7 */ CANT_MAP_CHARACTER,
+										/* 1527 */
+										/* U+22F8 */ CANT_MAP_CHARACTER,
+										/* 1528 */
+										/* U+22F9 */ CANT_MAP_CHARACTER,
+										/* 1529 */
+										/* U+22FA */ CANT_MAP_CHARACTER,
+										/* 1530 */
+										/* U+22FB */ CANT_MAP_CHARACTER,
+										/* 1531 */
+										/* U+22FC */ CANT_MAP_CHARACTER,
+										/* 1532 */
+										/* U+22FD */ CANT_MAP_CHARACTER,
+										/* 1533 */
+										/* U+22FE */ CANT_MAP_CHARACTER,
+										/* 1534 */
+										/* U+22FF */ CANT_MAP_CHARACTER,
+										/* 1535 */
+										/* U+2300 */ CANT_MAP_CHARACTER,
+										/* 1536 */
+										/* U+2301 */ CANT_MAP_CHARACTER,
+										/* 1537 */
+										/* U+2302 */ CANT_MAP_CHARACTER,
+										/* 1538 */
+										/* U+2303 */ CANT_MAP_CHARACTER,
+										/* 1539 */
+										/* U+2304 */ CANT_MAP_CHARACTER,
+										/* 1540 */
+										/* U+2305 */ CANT_MAP_CHARACTER,
+										/* 1541 */
+										/* U+2306 */ CANT_MAP_CHARACTER,
+										/* 1542 */
+										/* U+2307 */ CANT_MAP_CHARACTER,
+										/* 1543 */
+										/* U+2308 */ CANT_MAP_CHARACTER,
+										/* 1544 */
+										/* U+2309 */ CANT_MAP_CHARACTER,
+										/* 1545 */
+										/* U+230A */ CANT_MAP_CHARACTER,
+										/* 1546 */
+										/* U+230B */ CANT_MAP_CHARACTER,
+										/* 1547 */
+										/* U+230C */ CANT_MAP_CHARACTER,
+										/* 1548 */
+										/* U+230D */ CANT_MAP_CHARACTER,
+										/* 1549 */
+										/* U+230E */ CANT_MAP_CHARACTER,
+										/* 1550 */
+										/* U+230F */ CANT_MAP_CHARACTER,
+										/* 1551 */
+	/* U+2310 */ 0xA9 /*                             REVERSED NOT SIGN */ ,	/* 1552 */
+										/* U+2311 */ CANT_MAP_CHARACTER,
+										/* 1553 */
+										/* U+2312 */ CANT_MAP_CHARACTER,
+										/* 1554 */
+										/* U+2313 */ CANT_MAP_CHARACTER,
+										/* 1555 */
+										/* U+2314 */ CANT_MAP_CHARACTER,
+										/* 1556 */
+										/* U+2315 */ CANT_MAP_CHARACTER,
+										/* 1557 */
+										/* U+2316 */ CANT_MAP_CHARACTER,
+										/* 1558 */
+										/* U+2317 */ CANT_MAP_CHARACTER,
+										/* 1559 */
+										/* U+2318 */ CANT_MAP_CHARACTER,
+										/* 1560 */
+										/* U+2319 */ CANT_MAP_CHARACTER,
+										/* 1561 */
+										/* U+231A */ CANT_MAP_CHARACTER,
+										/* 1562 */
+										/* U+231B */ CANT_MAP_CHARACTER,
+										/* 1563 */
+										/* U+231C */ CANT_MAP_CHARACTER,
+										/* 1564 */
+										/* U+231D */ CANT_MAP_CHARACTER,
+										/* 1565 */
+										/* U+231E */ CANT_MAP_CHARACTER,
+										/* 1566 */
+										/* U+231F */ CANT_MAP_CHARACTER,
+										/* 1567 */
+	/* U+2320 */ 0xF4 /*                             TOP HALF INTEGRAL */ ,	/* 1568 */
+	/* U+2321 */ 0xF5 /*                          BOTTOM HALF INTEGRAL */ ,	/* 1569 */
+										/* U+2322 */ CANT_MAP_CHARACTER,
+										/* 1570 */
+										/* U+2323 */ CANT_MAP_CHARACTER,
+										/* 1571 */
+										/* U+2324 */ CANT_MAP_CHARACTER,
+										/* 1572 */
+										/* U+2325 */ CANT_MAP_CHARACTER,
+										/* 1573 */
+										/* U+2326 */ CANT_MAP_CHARACTER,
+										/* 1574 */
+										/* U+2327 */ CANT_MAP_CHARACTER,
+										/* 1575 */
+										/* U+2328 */ CANT_MAP_CHARACTER,
+										/* 1576 */
+										/* U+2329 */ CANT_MAP_CHARACTER,
+										/* 1577 */
+										/* U+232A */ CANT_MAP_CHARACTER,
+										/* 1578 */
+										/* U+232B */ CANT_MAP_CHARACTER,
+										/* 1579 */
+										/* U+232C */ CANT_MAP_CHARACTER,
+										/* 1580 */
+										/* U+232D */ CANT_MAP_CHARACTER,
+										/* 1581 */
+										/* U+232E */ CANT_MAP_CHARACTER,
+										/* 1582 */
+										/* U+232F */ CANT_MAP_CHARACTER,
+										/* 1583 */
+										/* U+2330 */ CANT_MAP_CHARACTER,
+										/* 1584 */
+										/* U+2331 */ CANT_MAP_CHARACTER,
+										/* 1585 */
+										/* U+2332 */ CANT_MAP_CHARACTER,
+										/* 1586 */
+										/* U+2333 */ CANT_MAP_CHARACTER,
+										/* 1587 */
+										/* U+2334 */ CANT_MAP_CHARACTER,
+										/* 1588 */
+										/* U+2335 */ CANT_MAP_CHARACTER,
+										/* 1589 */
+										/* U+2336 */ CANT_MAP_CHARACTER,
+										/* 1590 */
+										/* U+2337 */ CANT_MAP_CHARACTER,
+										/* 1591 */
+										/* U+2338 */ CANT_MAP_CHARACTER,
+										/* 1592 */
+										/* U+2339 */ CANT_MAP_CHARACTER,
+										/* 1593 */
+										/* U+233A */ CANT_MAP_CHARACTER,
+										/* 1594 */
+										/* U+233B */ CANT_MAP_CHARACTER,
+										/* 1595 */
+										/* U+233C */ CANT_MAP_CHARACTER,
+										/* 1596 */
+										/* U+233D */ CANT_MAP_CHARACTER,
+										/* 1597 */
+										/* U+233E */ CANT_MAP_CHARACTER,
+										/* 1598 */
+										/* U+233F */ CANT_MAP_CHARACTER,
+										/* 1599 */
+										/* U+2340 */ CANT_MAP_CHARACTER,
+										/* 1600 */
+										/* U+2341 */ CANT_MAP_CHARACTER,
+										/* 1601 */
+										/* U+2342 */ CANT_MAP_CHARACTER,
+										/* 1602 */
+										/* U+2343 */ CANT_MAP_CHARACTER,
+										/* 1603 */
+										/* U+2344 */ CANT_MAP_CHARACTER,
+										/* 1604 */
+										/* U+2345 */ CANT_MAP_CHARACTER,
+										/* 1605 */
+										/* U+2346 */ CANT_MAP_CHARACTER,
+										/* 1606 */
+										/* U+2347 */ CANT_MAP_CHARACTER,
+										/* 1607 */
+										/* U+2348 */ CANT_MAP_CHARACTER,
+										/* 1608 */
+										/* U+2349 */ CANT_MAP_CHARACTER,
+										/* 1609 */
+										/* U+234A */ CANT_MAP_CHARACTER,
+										/* 1610 */
+										/* U+234B */ CANT_MAP_CHARACTER,
+										/* 1611 */
+										/* U+234C */ CANT_MAP_CHARACTER,
+										/* 1612 */
+										/* U+234D */ CANT_MAP_CHARACTER,
+										/* 1613 */
+										/* U+234E */ CANT_MAP_CHARACTER,
+										/* 1614 */
+										/* U+234F */ CANT_MAP_CHARACTER,
+										/* 1615 */
+										/* U+2350 */ CANT_MAP_CHARACTER,
+										/* 1616 */
+										/* U+2351 */ CANT_MAP_CHARACTER,
+										/* 1617 */
+										/* U+2352 */ CANT_MAP_CHARACTER,
+										/* 1618 */
+										/* U+2353 */ CANT_MAP_CHARACTER,
+										/* 1619 */
+										/* U+2354 */ CANT_MAP_CHARACTER,
+										/* 1620 */
+										/* U+2355 */ CANT_MAP_CHARACTER,
+										/* 1621 */
+										/* U+2356 */ CANT_MAP_CHARACTER,
+										/* 1622 */
+										/* U+2357 */ CANT_MAP_CHARACTER,
+										/* 1623 */
+										/* U+2358 */ CANT_MAP_CHARACTER,
+										/* 1624 */
+										/* U+2359 */ CANT_MAP_CHARACTER,
+										/* 1625 */
+										/* U+235A */ CANT_MAP_CHARACTER,
+										/* 1626 */
+										/* U+235B */ CANT_MAP_CHARACTER,
+										/* 1627 */
+										/* U+235C */ CANT_MAP_CHARACTER,
+										/* 1628 */
+										/* U+235D */ CANT_MAP_CHARACTER,
+										/* 1629 */
+										/* U+235E */ CANT_MAP_CHARACTER,
+										/* 1630 */
+										/* U+235F */ CANT_MAP_CHARACTER,
+										/* 1631 */
+										/* U+2360 */ CANT_MAP_CHARACTER,
+										/* 1632 */
+										/* U+2361 */ CANT_MAP_CHARACTER,
+										/* 1633 */
+										/* U+2362 */ CANT_MAP_CHARACTER,
+										/* 1634 */
+										/* U+2363 */ CANT_MAP_CHARACTER,
+										/* 1635 */
+										/* U+2364 */ CANT_MAP_CHARACTER,
+										/* 1636 */
+										/* U+2365 */ CANT_MAP_CHARACTER,
+										/* 1637 */
+										/* U+2366 */ CANT_MAP_CHARACTER,
+										/* 1638 */
+										/* U+2367 */ CANT_MAP_CHARACTER,
+										/* 1639 */
+										/* U+2368 */ CANT_MAP_CHARACTER,
+										/* 1640 */
+										/* U+2369 */ CANT_MAP_CHARACTER,
+										/* 1641 */
+										/* U+236A */ CANT_MAP_CHARACTER,
+										/* 1642 */
+										/* U+236B */ CANT_MAP_CHARACTER,
+										/* 1643 */
+										/* U+236C */ CANT_MAP_CHARACTER,
+										/* 1644 */
+										/* U+236D */ CANT_MAP_CHARACTER,
+										/* 1645 */
+										/* U+236E */ CANT_MAP_CHARACTER,
+										/* 1646 */
+										/* U+236F */ CANT_MAP_CHARACTER,
+										/* 1647 */
+										/* U+2370 */ CANT_MAP_CHARACTER,
+										/* 1648 */
+										/* U+2371 */ CANT_MAP_CHARACTER,
+										/* 1649 */
+										/* U+2372 */ CANT_MAP_CHARACTER,
+										/* 1650 */
+										/* U+2373 */ CANT_MAP_CHARACTER,
+										/* 1651 */
+										/* U+2374 */ CANT_MAP_CHARACTER,
+										/* 1652 */
+										/* U+2375 */ CANT_MAP_CHARACTER,
+										/* 1653 */
+										/* U+2376 */ CANT_MAP_CHARACTER,
+										/* 1654 */
+										/* U+2377 */ CANT_MAP_CHARACTER,
+										/* 1655 */
+										/* U+2378 */ CANT_MAP_CHARACTER,
+										/* 1656 */
+										/* U+2379 */ CANT_MAP_CHARACTER,
+										/* 1657 */
+										/* U+237A */ CANT_MAP_CHARACTER,
+										/* 1658 */
+										/* U+237B */ CANT_MAP_CHARACTER,
+										/* 1659 */
+										/* U+237C */ CANT_MAP_CHARACTER,
+										/* 1660 */
+										/* U+237D */ CANT_MAP_CHARACTER,
+										/* 1661 */
+										/* U+237E */ CANT_MAP_CHARACTER,
+										/* 1662 */
+										/* U+237F */ CANT_MAP_CHARACTER,
+										/* 1663 */
+										/* U+2380 */ CANT_MAP_CHARACTER,
+										/* 1664 */
+										/* U+2381 */ CANT_MAP_CHARACTER,
+										/* 1665 */
+										/* U+2382 */ CANT_MAP_CHARACTER,
+										/* 1666 */
+										/* U+2383 */ CANT_MAP_CHARACTER,
+										/* 1667 */
+										/* U+2384 */ CANT_MAP_CHARACTER,
+										/* 1668 */
+										/* U+2385 */ CANT_MAP_CHARACTER,
+										/* 1669 */
+										/* U+2386 */ CANT_MAP_CHARACTER,
+										/* 1670 */
+										/* U+2387 */ CANT_MAP_CHARACTER,
+										/* 1671 */
+										/* U+2388 */ CANT_MAP_CHARACTER,
+										/* 1672 */
+										/* U+2389 */ CANT_MAP_CHARACTER,
+										/* 1673 */
+										/* U+238A */ CANT_MAP_CHARACTER,
+										/* 1674 */
+										/* U+238B */ CANT_MAP_CHARACTER,
+										/* 1675 */
+										/* U+238C */ CANT_MAP_CHARACTER,
+										/* 1676 */
+										/* U+238D */ CANT_MAP_CHARACTER,
+										/* 1677 */
+										/* U+238E */ CANT_MAP_CHARACTER,
+										/* 1678 */
+										/* U+238F */ CANT_MAP_CHARACTER,
+										/* 1679 */
+										/* U+2390 */ CANT_MAP_CHARACTER,
+										/* 1680 */
+										/* U+2391 */ CANT_MAP_CHARACTER,
+										/* 1681 */
+										/* U+2392 */ CANT_MAP_CHARACTER,
+										/* 1682 */
+										/* U+2393 */ CANT_MAP_CHARACTER,
+										/* 1683 */
+										/* U+2394 */ CANT_MAP_CHARACTER,
+										/* 1684 */
+										/* U+2395 */ CANT_MAP_CHARACTER,
+										/* 1685 */
+										/* U+2396 */ CANT_MAP_CHARACTER,
+										/* 1686 */
+										/* U+2397 */ CANT_MAP_CHARACTER,
+										/* 1687 */
+										/* U+2398 */ CANT_MAP_CHARACTER,
+										/* 1688 */
+										/* U+2399 */ CANT_MAP_CHARACTER,
+										/* 1689 */
+										/* U+239A */ CANT_MAP_CHARACTER,
+										/* 1690 */
+										/* U+239B */ CANT_MAP_CHARACTER,
+										/* 1691 */
+										/* U+239C */ CANT_MAP_CHARACTER,
+										/* 1692 */
+										/* U+239D */ CANT_MAP_CHARACTER,
+										/* 1693 */
+										/* U+239E */ CANT_MAP_CHARACTER,
+										/* 1694 */
+										/* U+239F */ CANT_MAP_CHARACTER,
+										/* 1695 */
+										/* U+23A0 */ CANT_MAP_CHARACTER,
+										/* 1696 */
+										/* U+23A1 */ CANT_MAP_CHARACTER,
+										/* 1697 */
+										/* U+23A2 */ CANT_MAP_CHARACTER,
+										/* 1698 */
+										/* U+23A3 */ CANT_MAP_CHARACTER,
+										/* 1699 */
+										/* U+23A4 */ CANT_MAP_CHARACTER,
+										/* 1700 */
+										/* U+23A5 */ CANT_MAP_CHARACTER,
+										/* 1701 */
+										/* U+23A6 */ CANT_MAP_CHARACTER,
+										/* 1702 */
+										/* U+23A7 */ CANT_MAP_CHARACTER,
+										/* 1703 */
+										/* U+23A8 */ CANT_MAP_CHARACTER,
+										/* 1704 */
+										/* U+23A9 */ CANT_MAP_CHARACTER,
+										/* 1705 */
+										/* U+23AA */ CANT_MAP_CHARACTER,
+										/* 1706 */
+										/* U+23AB */ CANT_MAP_CHARACTER,
+										/* 1707 */
+										/* U+23AC */ CANT_MAP_CHARACTER,
+										/* 1708 */
+										/* U+23AD */ CANT_MAP_CHARACTER,
+										/* 1709 */
+										/* U+23AE */ CANT_MAP_CHARACTER,
+										/* 1710 */
+										/* U+23AF */ CANT_MAP_CHARACTER,
+										/* 1711 */
+										/* U+23B0 */ CANT_MAP_CHARACTER,
+										/* 1712 */
+										/* U+23B1 */ CANT_MAP_CHARACTER,
+										/* 1713 */
+										/* U+23B2 */ CANT_MAP_CHARACTER,
+										/* 1714 */
+										/* U+23B3 */ CANT_MAP_CHARACTER,
+										/* 1715 */
+										/* U+23B4 */ CANT_MAP_CHARACTER,
+										/* 1716 */
+										/* U+23B5 */ CANT_MAP_CHARACTER,
+										/* 1717 */
+										/* U+23B6 */ CANT_MAP_CHARACTER,
+										/* 1718 */
+										/* U+23B7 */ CANT_MAP_CHARACTER,
+										/* 1719 */
+										/* U+23B8 */ CANT_MAP_CHARACTER,
+										/* 1720 */
+										/* U+23B9 */ CANT_MAP_CHARACTER,
+										/* 1721 */
+										/* U+23BA */ CANT_MAP_CHARACTER,
+										/* 1722 */
+										/* U+23BB */ CANT_MAP_CHARACTER,
+										/* 1723 */
+										/* U+23BC */ CANT_MAP_CHARACTER,
+										/* 1724 */
+										/* U+23BD */ CANT_MAP_CHARACTER,
+										/* 1725 */
+										/* U+23BE */ CANT_MAP_CHARACTER,
+										/* 1726 */
+										/* U+23BF */ CANT_MAP_CHARACTER,
+										/* 1727 */
+										/* U+23C0 */ CANT_MAP_CHARACTER,
+										/* 1728 */
+										/* U+23C1 */ CANT_MAP_CHARACTER,
+										/* 1729 */
+										/* U+23C2 */ CANT_MAP_CHARACTER,
+										/* 1730 */
+										/* U+23C3 */ CANT_MAP_CHARACTER,
+										/* 1731 */
+										/* U+23C4 */ CANT_MAP_CHARACTER,
+										/* 1732 */
+										/* U+23C5 */ CANT_MAP_CHARACTER,
+										/* 1733 */
+										/* U+23C6 */ CANT_MAP_CHARACTER,
+										/* 1734 */
+										/* U+23C7 */ CANT_MAP_CHARACTER,
+										/* 1735 */
+										/* U+23C8 */ CANT_MAP_CHARACTER,
+										/* 1736 */
+										/* U+23C9 */ CANT_MAP_CHARACTER,
+										/* 1737 */
+										/* U+23CA */ CANT_MAP_CHARACTER,
+										/* 1738 */
+										/* U+23CB */ CANT_MAP_CHARACTER,
+										/* 1739 */
+										/* U+23CC */ CANT_MAP_CHARACTER,
+										/* 1740 */
+										/* U+23CD */ CANT_MAP_CHARACTER,
+										/* 1741 */
+										/* U+23CE */ CANT_MAP_CHARACTER,
+										/* 1742 */
+										/* U+23CF */ CANT_MAP_CHARACTER,
+										/* 1743 */
+										/* U+23D0 */ CANT_MAP_CHARACTER,
+										/* 1744 */
+										/* U+23D1 */ CANT_MAP_CHARACTER,
+										/* 1745 */
+										/* U+23D2 */ CANT_MAP_CHARACTER,
+										/* 1746 */
+										/* U+23D3 */ CANT_MAP_CHARACTER,
+										/* 1747 */
+										/* U+23D4 */ CANT_MAP_CHARACTER,
+										/* 1748 */
+										/* U+23D5 */ CANT_MAP_CHARACTER,
+										/* 1749 */
+										/* U+23D6 */ CANT_MAP_CHARACTER,
+										/* 1750 */
+										/* U+23D7 */ CANT_MAP_CHARACTER,
+										/* 1751 */
+										/* U+23D8 */ CANT_MAP_CHARACTER,
+										/* 1752 */
+										/* U+23D9 */ CANT_MAP_CHARACTER,
+										/* 1753 */
+										/* U+23DA */ CANT_MAP_CHARACTER,
+										/* 1754 */
+										/* U+23DB */ CANT_MAP_CHARACTER,
+										/* 1755 */
+										/* U+23DC */ CANT_MAP_CHARACTER,
+										/* 1756 */
+										/* U+23DD */ CANT_MAP_CHARACTER,
+										/* 1757 */
+										/* U+23DE */ CANT_MAP_CHARACTER,
+										/* 1758 */
+										/* U+23DF */ CANT_MAP_CHARACTER,
+										/* 1759 */
+										/* U+23E0 */ CANT_MAP_CHARACTER,
+										/* 1760 */
+										/* U+23E1 */ CANT_MAP_CHARACTER,
+										/* 1761 */
+										/* U+23E2 */ CANT_MAP_CHARACTER,
+										/* 1762 */
+										/* U+23E3 */ CANT_MAP_CHARACTER,
+										/* 1763 */
+										/* U+23E4 */ CANT_MAP_CHARACTER,
+										/* 1764 */
+										/* U+23E5 */ CANT_MAP_CHARACTER,
+										/* 1765 */
+										/* U+23E6 */ CANT_MAP_CHARACTER,
+										/* 1766 */
+										/* U+23E7 */ CANT_MAP_CHARACTER,
+										/* 1767 */
+										/* U+23E8 */ CANT_MAP_CHARACTER,
+										/* 1768 */
+										/* U+23E9 */ CANT_MAP_CHARACTER,
+										/* 1769 */
+										/* U+23EA */ CANT_MAP_CHARACTER,
+										/* 1770 */
+										/* U+23EB */ CANT_MAP_CHARACTER,
+										/* 1771 */
+										/* U+23EC */ CANT_MAP_CHARACTER,
+										/* 1772 */
+										/* U+23ED */ CANT_MAP_CHARACTER,
+										/* 1773 */
+										/* U+23EE */ CANT_MAP_CHARACTER,
+										/* 1774 */
+										/* U+23EF */ CANT_MAP_CHARACTER,
+										/* 1775 */
+										/* U+23F0 */ CANT_MAP_CHARACTER,
+										/* 1776 */
+										/* U+23F1 */ CANT_MAP_CHARACTER,
+										/* 1777 */
+										/* U+23F2 */ CANT_MAP_CHARACTER,
+										/* 1778 */
+										/* U+23F3 */ CANT_MAP_CHARACTER,
+										/* 1779 */
+										/* U+23F4 */ CANT_MAP_CHARACTER,
+										/* 1780 */
+										/* U+23F5 */ CANT_MAP_CHARACTER,
+										/* 1781 */
+										/* U+23F6 */ CANT_MAP_CHARACTER,
+										/* 1782 */
+										/* U+23F7 */ CANT_MAP_CHARACTER,
+										/* 1783 */
+										/* U+23F8 */ CANT_MAP_CHARACTER,
+										/* 1784 */
+										/* U+23F9 */ CANT_MAP_CHARACTER,
+										/* 1785 */
+										/* U+23FA */ CANT_MAP_CHARACTER,
+										/* 1786 */
+										/* U+23FB */ CANT_MAP_CHARACTER,
+										/* 1787 */
+										/* U+23FC */ CANT_MAP_CHARACTER,
+										/* 1788 */
+										/* U+23FD */ CANT_MAP_CHARACTER,
+										/* 1789 */
+										/* U+23FE */ CANT_MAP_CHARACTER,
+										/* 1790 */
+										/* U+23FF */ CANT_MAP_CHARACTER,
+										/* 1791 */
+	/* U+2500 */ 0xC4 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,	/* 1792 */
+										/* U+2501 */ CANT_MAP_CHARACTER,
+										/* 1793 */
+	/* U+2502 */ 0xB3 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,	/* 1794 */
+										/* U+2503 */ CANT_MAP_CHARACTER,
+										/* 1795 */
+										/* U+2504 */ CANT_MAP_CHARACTER,
+										/* 1796 */
+										/* U+2505 */ CANT_MAP_CHARACTER,
+										/* 1797 */
+										/* U+2506 */ CANT_MAP_CHARACTER,
+										/* 1798 */
+										/* U+2507 */ CANT_MAP_CHARACTER,
+										/* 1799 */
+										/* U+2508 */ CANT_MAP_CHARACTER,
+										/* 1800 */
+										/* U+2509 */ CANT_MAP_CHARACTER,
+										/* 1801 */
+										/* U+250A */ CANT_MAP_CHARACTER,
+										/* 1802 */
+										/* U+250B */ CANT_MAP_CHARACTER,
+										/* 1803 */
+	/* U+250C */ 0xDA /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,	/* 1804 */
+										/* U+250D */ CANT_MAP_CHARACTER,
+										/* 1805 */
+										/* U+250E */ CANT_MAP_CHARACTER,
+										/* 1806 */
+										/* U+250F */ CANT_MAP_CHARACTER,
+										/* 1807 */
+	/* U+2510 */ 0xBF /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,	/* 1808 */
+										/* U+2511 */ CANT_MAP_CHARACTER,
+										/* 1809 */
+										/* U+2512 */ CANT_MAP_CHARACTER,
+										/* 1810 */
+										/* U+2513 */ CANT_MAP_CHARACTER,
+										/* 1811 */
+	/* U+2514 */ 0xC0 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,	/* 1812 */
+										/* U+2515 */ CANT_MAP_CHARACTER,
+										/* 1813 */
+										/* U+2516 */ CANT_MAP_CHARACTER,
+										/* 1814 */
+										/* U+2517 */ CANT_MAP_CHARACTER,
+										/* 1815 */
+	/* U+2518 */ 0xD9 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,	/* 1816 */
+										/* U+2519 */ CANT_MAP_CHARACTER,
+										/* 1817 */
+										/* U+251A */ CANT_MAP_CHARACTER,
+										/* 1818 */
+										/* U+251B */ CANT_MAP_CHARACTER,
+										/* 1819 */
+	/* U+251C */ 0xC3 /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,	/* 1820 */
+										/* U+251D */ CANT_MAP_CHARACTER,
+										/* 1821 */
+										/* U+251E */ CANT_MAP_CHARACTER,
+										/* 1822 */
+										/* U+251F */ CANT_MAP_CHARACTER,
+										/* 1823 */
+										/* U+2520 */ CANT_MAP_CHARACTER,
+										/* 1824 */
+										/* U+2521 */ CANT_MAP_CHARACTER,
+										/* 1825 */
+										/* U+2522 */ CANT_MAP_CHARACTER,
+										/* 1826 */
+										/* U+2523 */ CANT_MAP_CHARACTER,
+										/* 1827 */
+	/* U+2524 */ 0xB4 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,	/* 1828 */
+										/* U+2525 */ CANT_MAP_CHARACTER,
+										/* 1829 */
+										/* U+2526 */ CANT_MAP_CHARACTER,
+										/* 1830 */
+										/* U+2527 */ CANT_MAP_CHARACTER,
+										/* 1831 */
+										/* U+2528 */ CANT_MAP_CHARACTER,
+										/* 1832 */
+										/* U+2529 */ CANT_MAP_CHARACTER,
+										/* 1833 */
+										/* U+252A */ CANT_MAP_CHARACTER,
+										/* 1834 */
+										/* U+252B */ CANT_MAP_CHARACTER,
+										/* 1835 */
+	/* U+252C */ 0xC2 /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,	/* 1836 */
+										/* U+252D */ CANT_MAP_CHARACTER,
+										/* 1837 */
+										/* U+252E */ CANT_MAP_CHARACTER,
+										/* 1838 */
+										/* U+252F */ CANT_MAP_CHARACTER,
+										/* 1839 */
+										/* U+2530 */ CANT_MAP_CHARACTER,
+										/* 1840 */
+										/* U+2531 */ CANT_MAP_CHARACTER,
+										/* 1841 */
+										/* U+2532 */ CANT_MAP_CHARACTER,
+										/* 1842 */
+										/* U+2533 */ CANT_MAP_CHARACTER,
+										/* 1843 */
+	/* U+2534 */ 0xC1 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,	/* 1844 */
+										/* U+2535 */ CANT_MAP_CHARACTER,
+										/* 1845 */
+										/* U+2536 */ CANT_MAP_CHARACTER,
+										/* 1846 */
+										/* U+2537 */ CANT_MAP_CHARACTER,
+										/* 1847 */
+										/* U+2538 */ CANT_MAP_CHARACTER,
+										/* 1848 */
+										/* U+2539 */ CANT_MAP_CHARACTER,
+										/* 1849 */
+										/* U+253A */ CANT_MAP_CHARACTER,
+										/* 1850 */
+										/* U+253B */ CANT_MAP_CHARACTER,
+										/* 1851 */
+	/* U+253C */ 0xC5 /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,	/* 1852 */
+										/* U+253D */ CANT_MAP_CHARACTER,
+										/* 1853 */
+										/* U+253E */ CANT_MAP_CHARACTER,
+										/* 1854 */
+										/* U+253F */ CANT_MAP_CHARACTER,
+										/* 1855 */
+										/* U+2540 */ CANT_MAP_CHARACTER,
+										/* 1856 */
+										/* U+2541 */ CANT_MAP_CHARACTER,
+										/* 1857 */
+										/* U+2542 */ CANT_MAP_CHARACTER,
+										/* 1858 */
+										/* U+2543 */ CANT_MAP_CHARACTER,
+										/* 1859 */
+										/* U+2544 */ CANT_MAP_CHARACTER,
+										/* 1860 */
+										/* U+2545 */ CANT_MAP_CHARACTER,
+										/* 1861 */
+										/* U+2546 */ CANT_MAP_CHARACTER,
+										/* 1862 */
+										/* U+2547 */ CANT_MAP_CHARACTER,
+										/* 1863 */
+										/* U+2548 */ CANT_MAP_CHARACTER,
+										/* 1864 */
+										/* U+2549 */ CANT_MAP_CHARACTER,
+										/* 1865 */
+										/* U+254A */ CANT_MAP_CHARACTER,
+										/* 1866 */
+										/* U+254B */ CANT_MAP_CHARACTER,
+										/* 1867 */
+										/* U+254C */ CANT_MAP_CHARACTER,
+										/* 1868 */
+										/* U+254D */ CANT_MAP_CHARACTER,
+										/* 1869 */
+										/* U+254E */ CANT_MAP_CHARACTER,
+										/* 1870 */
+										/* U+254F */ CANT_MAP_CHARACTER,
+										/* 1871 */
+	/* U+2550 */ 0xCD /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,	/* 1872 */
+	/* U+2551 */ 0xBA /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,	/* 1873 */
+	/* U+2552 */ 0xD5 /*     BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE */ ,	/* 1874 */
+	/* U+2553 */ 0xD6 /*     BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE */ ,	/* 1875 */
+	/* U+2554 */ 0xC9 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,	/* 1876 */
+	/* U+2555 */ 0xB8 /*      BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE */ ,	/* 1877 */
+	/* U+2556 */ 0xB7 /*      BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE */ ,	/* 1878 */
+	/* U+2557 */ 0xBB /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,	/* 1879 */
+	/* U+2558 */ 0xD4 /*       BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE */ ,	/* 1880 */
+	/* U+2559 */ 0xD3 /*       BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE */ ,	/* 1881 */
+	/* U+255A */ 0xC8 /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,	/* 1882 */
+	/* U+255B */ 0xBE /*        BOX DRAWINGS UP SINGLE AND LEFT DOUBLE */ ,	/* 1883 */
+	/* U+255C */ 0xBD /*        BOX DRAWINGS UP DOUBLE AND LEFT SINGLE */ ,	/* 1884 */
+	/* U+255D */ 0xBC /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,	/* 1885 */
+	/* U+255E */ 0xC6 /* BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE */ ,	/* 1886 */
+	/* U+255F */ 0xC7 /* BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE */ ,	/* 1887 */
+	/* U+2560 */ 0xCC /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,	/* 1888 */
+	/* U+2561 */ 0xB5 /*  BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE */ ,	/* 1889 */
+	/* U+2562 */ 0xB6 /*  BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE */ ,	/* 1890 */
+	/* U+2563 */ 0xB9 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,	/* 1891 */
+	/* U+2564 */ 0xD1 /* BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1892 */
+	/* U+2565 */ 0xD2 /* BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1893 */
+	/* U+2566 */ 0xCB /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,	/* 1894 */
+	/* U+2567 */ 0xCF /*  BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1895 */
+	/* U+2568 */ 0xD0 /*  BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1896 */
+	/* U+2569 */ 0xCA /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,	/* 1897 */
+	/* U+256A */ 0xD8 /* BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1898 */
+	/* U+256B */ 0xD7 /* BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1899 */
+	/* U+256C */ 0xCE /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,	/* 1900 */
+										/* U+256D */ CANT_MAP_CHARACTER,
+										/* 1901 */
+										/* U+256E */ CANT_MAP_CHARACTER,
+										/* 1902 */
+										/* U+256F */ CANT_MAP_CHARACTER,
+										/* 1903 */
+										/* U+2570 */ CANT_MAP_CHARACTER,
+										/* 1904 */
+										/* U+2571 */ CANT_MAP_CHARACTER,
+										/* 1905 */
+										/* U+2572 */ CANT_MAP_CHARACTER,
+										/* 1906 */
+										/* U+2573 */ CANT_MAP_CHARACTER,
+										/* 1907 */
+										/* U+2574 */ CANT_MAP_CHARACTER,
+										/* 1908 */
+										/* U+2575 */ CANT_MAP_CHARACTER,
+										/* 1909 */
+										/* U+2576 */ CANT_MAP_CHARACTER,
+										/* 1910 */
+										/* U+2577 */ CANT_MAP_CHARACTER,
+										/* 1911 */
+										/* U+2578 */ CANT_MAP_CHARACTER,
+										/* 1912 */
+										/* U+2579 */ CANT_MAP_CHARACTER,
+										/* 1913 */
+										/* U+257A */ CANT_MAP_CHARACTER,
+										/* 1914 */
+										/* U+257B */ CANT_MAP_CHARACTER,
+										/* 1915 */
+										/* U+257C */ CANT_MAP_CHARACTER,
+										/* 1916 */
+										/* U+257D */ CANT_MAP_CHARACTER,
+										/* 1917 */
+										/* U+257E */ CANT_MAP_CHARACTER,
+										/* 1918 */
+										/* U+257F */ CANT_MAP_CHARACTER,
+										/* 1919 */
+	/* U+2580 */ 0xDF /*                              UPPER HALF BLOCK */ ,	/* 1920 */
+										/* U+2581 */ CANT_MAP_CHARACTER,
+										/* 1921 */
+										/* U+2582 */ CANT_MAP_CHARACTER,
+										/* 1922 */
+										/* U+2583 */ CANT_MAP_CHARACTER,
+										/* 1923 */
+	/* U+2584 */ 0xDC /*                              LOWER HALF BLOCK */ ,	/* 1924 */
+										/* U+2585 */ CANT_MAP_CHARACTER,
+										/* 1925 */
+										/* U+2586 */ CANT_MAP_CHARACTER,
+										/* 1926 */
+										/* U+2587 */ CANT_MAP_CHARACTER,
+										/* 1927 */
+	/* U+2588 */ 0xDB /*                                    FULL BLOCK */ ,	/* 1928 */
+										/* U+2589 */ CANT_MAP_CHARACTER,
+										/* 1929 */
+										/* U+258A */ CANT_MAP_CHARACTER,
+										/* 1930 */
+										/* U+258B */ CANT_MAP_CHARACTER,
+										/* 1931 */
+	/* U+258C */ 0xDD /*                               LEFT HALF BLOCK */ ,	/* 1932 */
+										/* U+258D */ CANT_MAP_CHARACTER,
+										/* 1933 */
+										/* U+258E */ CANT_MAP_CHARACTER,
+										/* 1934 */
+										/* U+258F */ CANT_MAP_CHARACTER,
+										/* 1935 */
+	/* U+2590 */ 0xDE /*                              RIGHT HALF BLOCK */ ,	/* 1936 */
+	/* U+2591 */ 0xB0 /*                                   LIGHT SHADE */ ,	/* 1937 */
+	/* U+2592 */ 0xB1 /*                                  MEDIUM SHADE */ ,	/* 1938 */
+	/* U+2593 */ 0xB2 /*                                    DARK SHADE */ ,	/* 1939 */
+										/* U+2594 */ CANT_MAP_CHARACTER,
+										/* 1940 */
+										/* U+2595 */ CANT_MAP_CHARACTER,
+										/* 1941 */
+										/* U+2596 */ CANT_MAP_CHARACTER,
+										/* 1942 */
+										/* U+2597 */ CANT_MAP_CHARACTER,
+										/* 1943 */
+										/* U+2598 */ CANT_MAP_CHARACTER,
+										/* 1944 */
+										/* U+2599 */ CANT_MAP_CHARACTER,
+										/* 1945 */
+										/* U+259A */ CANT_MAP_CHARACTER,
+										/* 1946 */
+										/* U+259B */ CANT_MAP_CHARACTER,
+										/* 1947 */
+										/* U+259C */ CANT_MAP_CHARACTER,
+										/* 1948 */
+										/* U+259D */ CANT_MAP_CHARACTER,
+										/* 1949 */
+										/* U+259E */ CANT_MAP_CHARACTER,
+										/* 1950 */
+										/* U+259F */ CANT_MAP_CHARACTER,
+										/* 1951 */
+	/* U+25A0 */ 0xFE /*                                  BLACK SQUARE */ ,	/* 1952 */
+										/* U+25A1 */ CANT_MAP_CHARACTER,
+										/* 1953 */
+										/* U+25A2 */ CANT_MAP_CHARACTER,
+										/* 1954 */
+										/* U+25A3 */ CANT_MAP_CHARACTER,
+										/* 1955 */
+										/* U+25A4 */ CANT_MAP_CHARACTER,
+										/* 1956 */
+										/* U+25A5 */ CANT_MAP_CHARACTER,
+										/* 1957 */
+										/* U+25A6 */ CANT_MAP_CHARACTER,
+										/* 1958 */
+										/* U+25A7 */ CANT_MAP_CHARACTER,
+										/* 1959 */
+										/* U+25A8 */ CANT_MAP_CHARACTER,
+										/* 1960 */
+										/* U+25A9 */ CANT_MAP_CHARACTER,
+										/* 1961 */
+										/* U+25AA */ CANT_MAP_CHARACTER,
+										/* 1962 */
+										/* U+25AB */ CANT_MAP_CHARACTER,
+										/* 1963 */
+										/* U+25AC */ CANT_MAP_CHARACTER,
+										/* 1964 */
+										/* U+25AD */ CANT_MAP_CHARACTER,
+										/* 1965 */
+										/* U+25AE */ CANT_MAP_CHARACTER,
+										/* 1966 */
+										/* U+25AF */ CANT_MAP_CHARACTER,
+										/* 1967 */
+										/* U+25B0 */ CANT_MAP_CHARACTER,
+										/* 1968 */
+										/* U+25B1 */ CANT_MAP_CHARACTER,
+										/* 1969 */
+										/* U+25B2 */ CANT_MAP_CHARACTER,
+										/* 1970 */
+										/* U+25B3 */ CANT_MAP_CHARACTER,
+										/* 1971 */
+										/* U+25B4 */ CANT_MAP_CHARACTER,
+										/* 1972 */
+										/* U+25B5 */ CANT_MAP_CHARACTER,
+										/* 1973 */
+										/* U+25B6 */ CANT_MAP_CHARACTER,
+										/* 1974 */
+										/* U+25B7 */ CANT_MAP_CHARACTER,
+										/* 1975 */
+										/* U+25B8 */ CANT_MAP_CHARACTER,
+										/* 1976 */
+										/* U+25B9 */ CANT_MAP_CHARACTER,
+										/* 1977 */
+										/* U+25BA */ CANT_MAP_CHARACTER,
+										/* 1978 */
+										/* U+25BB */ CANT_MAP_CHARACTER,
+										/* 1979 */
+										/* U+25BC */ CANT_MAP_CHARACTER,
+										/* 1980 */
+										/* U+25BD */ CANT_MAP_CHARACTER,
+										/* 1981 */
+										/* U+25BE */ CANT_MAP_CHARACTER,
+										/* 1982 */
+										/* U+25BF */ CANT_MAP_CHARACTER,
+										/* 1983 */
+										/* U+25C0 */ CANT_MAP_CHARACTER,
+										/* 1984 */
+										/* U+25C1 */ CANT_MAP_CHARACTER,
+										/* 1985 */
+										/* U+25C2 */ CANT_MAP_CHARACTER,
+										/* 1986 */
+										/* U+25C3 */ CANT_MAP_CHARACTER,
+										/* 1987 */
+										/* U+25C4 */ CANT_MAP_CHARACTER,
+										/* 1988 */
+										/* U+25C5 */ CANT_MAP_CHARACTER,
+										/* 1989 */
+										/* U+25C6 */ CANT_MAP_CHARACTER,
+										/* 1990 */
+										/* U+25C7 */ CANT_MAP_CHARACTER,
+										/* 1991 */
+										/* U+25C8 */ CANT_MAP_CHARACTER,
+										/* 1992 */
+										/* U+25C9 */ CANT_MAP_CHARACTER,
+										/* 1993 */
+										/* U+25CA */ CANT_MAP_CHARACTER,
+										/* 1994 */
+										/* U+25CB */ CANT_MAP_CHARACTER,
+										/* 1995 */
+										/* U+25CC */ CANT_MAP_CHARACTER,
+										/* 1996 */
+										/* U+25CD */ CANT_MAP_CHARACTER,
+										/* 1997 */
+										/* U+25CE */ CANT_MAP_CHARACTER,
+										/* 1998 */
+										/* U+25CF */ CANT_MAP_CHARACTER,
+										/* 1999 */
+										/* U+25D0 */ CANT_MAP_CHARACTER,
+										/* 2000 */
+										/* U+25D1 */ CANT_MAP_CHARACTER,
+										/* 2001 */
+										/* U+25D2 */ CANT_MAP_CHARACTER,
+										/* 2002 */
+										/* U+25D3 */ CANT_MAP_CHARACTER,
+										/* 2003 */
+										/* U+25D4 */ CANT_MAP_CHARACTER,
+										/* 2004 */
+										/* U+25D5 */ CANT_MAP_CHARACTER,
+										/* 2005 */
+										/* U+25D6 */ CANT_MAP_CHARACTER,
+										/* 2006 */
+										/* U+25D7 */ CANT_MAP_CHARACTER,
+										/* 2007 */
+										/* U+25D8 */ CANT_MAP_CHARACTER,
+										/* 2008 */
+										/* U+25D9 */ CANT_MAP_CHARACTER,
+										/* 2009 */
+										/* U+25DA */ CANT_MAP_CHARACTER,
+										/* 2010 */
+										/* U+25DB */ CANT_MAP_CHARACTER,
+										/* 2011 */
+										/* U+25DC */ CANT_MAP_CHARACTER,
+										/* 2012 */
+										/* U+25DD */ CANT_MAP_CHARACTER,
+										/* 2013 */
+										/* U+25DE */ CANT_MAP_CHARACTER,
+										/* 2014 */
+										/* U+25DF */ CANT_MAP_CHARACTER,
+										/* 2015 */
+										/* U+25E0 */ CANT_MAP_CHARACTER,
+										/* 2016 */
+										/* U+25E1 */ CANT_MAP_CHARACTER,
+										/* 2017 */
+										/* U+25E2 */ CANT_MAP_CHARACTER,
+										/* 2018 */
+										/* U+25E3 */ CANT_MAP_CHARACTER,
+										/* 2019 */
+										/* U+25E4 */ CANT_MAP_CHARACTER,
+										/* 2020 */
+										/* U+25E5 */ CANT_MAP_CHARACTER,
+										/* 2021 */
+										/* U+25E6 */ CANT_MAP_CHARACTER,
+										/* 2022 */
+										/* U+25E7 */ CANT_MAP_CHARACTER,
+										/* 2023 */
+										/* U+25E8 */ CANT_MAP_CHARACTER,
+										/* 2024 */
+										/* U+25E9 */ CANT_MAP_CHARACTER,
+										/* 2025 */
+										/* U+25EA */ CANT_MAP_CHARACTER,
+										/* 2026 */
+										/* U+25EB */ CANT_MAP_CHARACTER,
+										/* 2027 */
+										/* U+25EC */ CANT_MAP_CHARACTER,
+										/* 2028 */
+										/* U+25ED */ CANT_MAP_CHARACTER,
+										/* 2029 */
+										/* U+25EE */ CANT_MAP_CHARACTER,
+										/* 2030 */
+										/* U+25EF */ CANT_MAP_CHARACTER,
+										/* 2031 */
+										/* U+25F0 */ CANT_MAP_CHARACTER,
+										/* 2032 */
+										/* U+25F1 */ CANT_MAP_CHARACTER,
+										/* 2033 */
+										/* U+25F2 */ CANT_MAP_CHARACTER,
+										/* 2034 */
+										/* U+25F3 */ CANT_MAP_CHARACTER,
+										/* 2035 */
+										/* U+25F4 */ CANT_MAP_CHARACTER,
+										/* 2036 */
+										/* U+25F5 */ CANT_MAP_CHARACTER,
+										/* 2037 */
+										/* U+25F6 */ CANT_MAP_CHARACTER,
+										/* 2038 */
+										/* U+25F7 */ CANT_MAP_CHARACTER,
+										/* 2039 */
+										/* U+25F8 */ CANT_MAP_CHARACTER,
+										/* 2040 */
+										/* U+25F9 */ CANT_MAP_CHARACTER,
+										/* 2041 */
+										/* U+25FA */ CANT_MAP_CHARACTER,
+										/* 2042 */
+										/* U+25FB */ CANT_MAP_CHARACTER,
+										/* 2043 */
+										/* U+25FC */ CANT_MAP_CHARACTER,
+										/* 2044 */
+										/* U+25FD */ CANT_MAP_CHARACTER,
+										/* 2045 */
+										/* U+25FE */ CANT_MAP_CHARACTER,
+										/* 2046 */
+										/* U+25FF */ CANT_MAP_CHARACTER,
+										/* 2047 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 512,
+/* U+02-- */ 0,
+/* U+03-- */ 768,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 1024,
+/* U+21-- */ 0,
+/* U+22-- */ 1280,
+/* U+23-- */ 1536,
+/* U+24-- */ 0,
+/* U+25-- */ 1792,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_863.h b/src/intl/cs_863.h
new file mode 100644
index 0000000000..57df33dffe
--- /dev/null
+++ b/src/intl/cs_863.h
@@ -0,0 +1,4662 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/PC/CP863.TXT 
+
+#
+#    Name:     cp863_DOSCanadaF to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/24/96
+#    Authors:       Lori Brownell <loribr@microsoft.com>
+#                   K.D. Chang    <a-kchang@microsoft.com>
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp863_DOSCanadaF code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp863_DOSCanadaF order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0a	0x000a	#LINE FEED
+0x0b	0x000b	#VERTICAL TABULATION
+0x0c	0x000c	#FORM FEED
+0x0d	0x000d	#CARRIAGE RETURN
+0x0e	0x000e	#SHIFT OUT
+0x0f	0x000f	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1a	0x001a	#SUBSTITUTE
+0x1b	0x001b	#ESCAPE
+0x1c	0x001c	#FILE SEPARATOR
+0x1d	0x001d	#GROUP SEPARATOR
+0x1e	0x001e	#RECORD SEPARATOR
+0x1f	0x001f	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2a	0x002a	#ASTERISK
+0x2b	0x002b	#PLUS SIGN
+0x2c	0x002c	#COMMA
+0x2d	0x002d	#HYPHEN-MINUS
+0x2e	0x002e	#FULL STOP
+0x2f	0x002f	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3a	0x003a	#COLON
+0x3b	0x003b	#SEMICOLON
+0x3c	0x003c	#LESS-THAN SIGN
+0x3d	0x003d	#EQUALS SIGN
+0x3e	0x003e	#GREATER-THAN SIGN
+0x3f	0x003f	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4a	0x004a	#LATIN CAPITAL LETTER J
+0x4b	0x004b	#LATIN CAPITAL LETTER K
+0x4c	0x004c	#LATIN CAPITAL LETTER L
+0x4d	0x004d	#LATIN CAPITAL LETTER M
+0x4e	0x004e	#LATIN CAPITAL LETTER N
+0x4f	0x004f	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5a	0x005a	#LATIN CAPITAL LETTER Z
+0x5b	0x005b	#LEFT SQUARE BRACKET
+0x5c	0x005c	#REVERSE SOLIDUS
+0x5d	0x005d	#RIGHT SQUARE BRACKET
+0x5e	0x005e	#CIRCUMFLEX ACCENT
+0x5f	0x005f	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6a	0x006a	#LATIN SMALL LETTER J
+0x6b	0x006b	#LATIN SMALL LETTER K
+0x6c	0x006c	#LATIN SMALL LETTER L
+0x6d	0x006d	#LATIN SMALL LETTER M
+0x6e	0x006e	#LATIN SMALL LETTER N
+0x6f	0x006f	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7a	0x007a	#LATIN SMALL LETTER Z
+0x7b	0x007b	#LEFT CURLY BRACKET
+0x7c	0x007c	#VERTICAL LINE
+0x7d	0x007d	#RIGHT CURLY BRACKET
+0x7e	0x007e	#TILDE
+0x7f	0x007f	#DELETE
+0x80	0x00c7	#LATIN CAPITAL LETTER C WITH CEDILLA
+0x81	0x00fc	#LATIN SMALL LETTER U WITH DIAERESIS
+0x82	0x00e9	#LATIN SMALL LETTER E WITH ACUTE
+0x83	0x00e2	#LATIN SMALL LETTER A WITH CIRCUMFLEX
+0x84	0x00c2	#LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0x85	0x00e0	#LATIN SMALL LETTER A WITH GRAVE
+0x86	0x00b6	#PILCROW SIGN
+0x87	0x00e7	#LATIN SMALL LETTER C WITH CEDILLA
+0x88	0x00ea	#LATIN SMALL LETTER E WITH CIRCUMFLEX
+0x89	0x00eb	#LATIN SMALL LETTER E WITH DIAERESIS
+0x8a	0x00e8	#LATIN SMALL LETTER E WITH GRAVE
+0x8b	0x00ef	#LATIN SMALL LETTER I WITH DIAERESIS
+0x8c	0x00ee	#LATIN SMALL LETTER I WITH CIRCUMFLEX
+0x8d	0x2017	#DOUBLE LOW LINE
+0x8e	0x00c0	#LATIN CAPITAL LETTER A WITH GRAVE
+0x8f	0x00a7	#SECTION SIGN
+0x90	0x00c9	#LATIN CAPITAL LETTER E WITH ACUTE
+0x91	0x00c8	#LATIN CAPITAL LETTER E WITH GRAVE
+0x92	0x00ca	#LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0x93	0x00f4	#LATIN SMALL LETTER O WITH CIRCUMFLEX
+0x94	0x00cb	#LATIN CAPITAL LETTER E WITH DIAERESIS
+0x95	0x00cf	#LATIN CAPITAL LETTER I WITH DIAERESIS
+0x96	0x00fb	#LATIN SMALL LETTER U WITH CIRCUMFLEX
+0x97	0x00f9	#LATIN SMALL LETTER U WITH GRAVE
+0x98	0x00a4	#CURRENCY SIGN
+0x99	0x00d4	#LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+0x9a	0x00dc	#LATIN CAPITAL LETTER U WITH DIAERESIS
+0x9b	0x00a2	#CENT SIGN
+0x9c	0x00a3	#POUND SIGN
+0x9d	0x00d9	#LATIN CAPITAL LETTER U WITH GRAVE
+0x9e	0x00db	#LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+0x9f	0x0192	#LATIN SMALL LETTER F WITH HOOK
+0xa0	0x00a6	#BROKEN BAR
+0xa1	0x00b4	#ACUTE ACCENT
+0xa2	0x00f3	#LATIN SMALL LETTER O WITH ACUTE
+0xa3	0x00fa	#LATIN SMALL LETTER U WITH ACUTE
+0xa4	0x00a8	#DIAERESIS
+0xa5	0x00b8	#CEDILLA
+0xa6	0x00b3	#SUPERSCRIPT THREE
+0xa7	0x00af	#MACRON
+0xa8	0x00ce	#LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+0xa9	0x2310	#REVERSED NOT SIGN
+0xaa	0x00ac	#NOT SIGN
+0xab	0x00bd	#VULGAR FRACTION ONE HALF
+0xac	0x00bc	#VULGAR FRACTION ONE QUARTER
+0xad	0x00be	#VULGAR FRACTION THREE QUARTERS
+0xae	0x00ab	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xaf	0x00bb	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xb0	0x2591	#LIGHT SHADE
+0xb1	0x2592	#MEDIUM SHADE
+0xb2	0x2593	#DARK SHADE
+0xb3	0x2502	#BOX DRAWINGS LIGHT VERTICAL
+0xb4	0x2524	#BOX DRAWINGS LIGHT VERTICAL AND LEFT
+0xb5	0x2561	#BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
+0xb6	0x2562	#BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
+0xb7	0x2556	#BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
+0xb8	0x2555	#BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
+0xb9	0x2563	#BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+0xba	0x2551	#BOX DRAWINGS DOUBLE VERTICAL
+0xbb	0x2557	#BOX DRAWINGS DOUBLE DOWN AND LEFT
+0xbc	0x255d	#BOX DRAWINGS DOUBLE UP AND LEFT
+0xbd	0x255c	#BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
+0xbe	0x255b	#BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
+0xbf	0x2510	#BOX DRAWINGS LIGHT DOWN AND LEFT
+0xc0	0x2514	#BOX DRAWINGS LIGHT UP AND RIGHT
+0xc1	0x2534	#BOX DRAWINGS LIGHT UP AND HORIZONTAL
+0xc2	0x252c	#BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+0xc3	0x251c	#BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+0xc4	0x2500	#BOX DRAWINGS LIGHT HORIZONTAL
+0xc5	0x253c	#BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+0xc6	0x255e	#BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
+0xc7	0x255f	#BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
+0xc8	0x255a	#BOX DRAWINGS DOUBLE UP AND RIGHT
+0xc9	0x2554	#BOX DRAWINGS DOUBLE DOWN AND RIGHT
+0xca	0x2569	#BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+0xcb	0x2566	#BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+0xcc	0x2560	#BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+0xcd	0x2550	#BOX DRAWINGS DOUBLE HORIZONTAL
+0xce	0x256c	#BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+0xcf	0x2567	#BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
+0xd0	0x2568	#BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
+0xd1	0x2564	#BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
+0xd2	0x2565	#BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
+0xd3	0x2559	#BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
+0xd4	0x2558	#BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
+0xd5	0x2552	#BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
+0xd6	0x2553	#BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
+0xd7	0x256b	#BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
+0xd8	0x256a	#BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
+0xd9	0x2518	#BOX DRAWINGS LIGHT UP AND LEFT
+0xda	0x250c	#BOX DRAWINGS LIGHT DOWN AND RIGHT
+0xdb	0x2588	#FULL BLOCK
+0xdc	0x2584	#LOWER HALF BLOCK
+0xdd	0x258c	#LEFT HALF BLOCK
+0xde	0x2590	#RIGHT HALF BLOCK
+0xdf	0x2580	#UPPER HALF BLOCK
+0xe0	0x03b1	#GREEK SMALL LETTER ALPHA
+0xe1	0x00df	#LATIN SMALL LETTER SHARP S
+0xe2	0x0393	#GREEK CAPITAL LETTER GAMMA
+0xe3	0x03c0	#GREEK SMALL LETTER PI
+0xe4	0x03a3	#GREEK CAPITAL LETTER SIGMA
+0xe5	0x03c3	#GREEK SMALL LETTER SIGMA
+0xe6	0x00b5	#MICRO SIGN
+0xe7	0x03c4	#GREEK SMALL LETTER TAU
+0xe8	0x03a6	#GREEK CAPITAL LETTER PHI
+0xe9	0x0398	#GREEK CAPITAL LETTER THETA
+0xea	0x03a9	#GREEK CAPITAL LETTER OMEGA
+0xeb	0x03b4	#GREEK SMALL LETTER DELTA
+0xec	0x221e	#INFINITY
+0xed	0x03c6	#GREEK SMALL LETTER PHI
+0xee	0x03b5	#GREEK SMALL LETTER EPSILON
+0xef	0x2229	#INTERSECTION
+0xf0	0x2261	#IDENTICAL TO
+0xf1	0x00b1	#PLUS-MINUS SIGN
+0xf2	0x2265	#GREATER-THAN OR EQUAL TO
+0xf3	0x2264	#LESS-THAN OR EQUAL TO
+0xf4	0x2320	#TOP HALF INTEGRAL
+0xf5	0x2321	#BOTTOM HALF INTEGRAL
+0xf6	0x00f7	#DIVISION SIGN
+0xf7	0x2248	#ALMOST EQUAL TO
+0xf8	0x00b0	#DEGREE SIGN
+0xf9	0x2219	#BULLET OPERATOR
+0xfa	0x00b7	#MIDDLE DOT
+0xfb	0x221a	#SQUARE ROOT
+0xfc	0x207f	#SUPERSCRIPT LATIN SMALL LETTER N
+0xfd	0x00b2	#SUPERSCRIPT TWO
+0xfe	0x25a0	#BLACK SQUARE
+0xff	0x00a0	#NO-BREAK SPACE
+
+
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x00C7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,
+	/* 81 */ 0x00FC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,
+	/* 82 */ 0x00E9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,
+	/* 83 */ 0x00E2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,
+	/* 84 */ 0x00C2 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,
+	/* 85 */ 0x00E0 /*               LATIN SMALL LETTER A WITH GRAVE */ ,
+	/* 86 */ 0x00B6 /*                                  PILCROW SIGN */ ,
+	/* 87 */ 0x00E7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,
+	/* 88 */ 0x00EA /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,
+	/* 89 */ 0x00EB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,
+	/* 8A */ 0x00E8 /*               LATIN SMALL LETTER E WITH GRAVE */ ,
+	/* 8B */ 0x00EF /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,
+	/* 8C */ 0x00EE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,
+	/* 8D */ 0x2017 /*                               DOUBLE LOW LINE */ ,
+	/* 8E */ 0x00C0 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,
+	/* 8F */ 0x00A7 /*                                  SECTION SIGN */ ,
+	/* 90 */ 0x00C9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,
+	/* 91 */ 0x00C8 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,
+	/* 92 */ 0x00CA /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,
+	/* 93 */ 0x00F4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,
+	/* 94 */ 0x00CB /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,
+	/* 95 */ 0x00CF /*         LATIN CAPITAL LETTER I WITH DIAERESIS */ ,
+	/* 96 */ 0x00FB /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,
+	/* 97 */ 0x00F9 /*               LATIN SMALL LETTER U WITH GRAVE */ ,
+	/* 98 */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* 99 */ 0x00D4 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,
+	/* 9A */ 0x00DC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,
+	/* 9B */ 0x00A2 /*                                     CENT SIGN */ ,
+	/* 9C */ 0x00A3 /*                                    POUND SIGN */ ,
+	/* 9D */ 0x00D9 /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,
+	/* 9E */ 0x00DB /*        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ ,
+	/* 9F */ 0x0192 /*                LATIN SMALL LETTER F WITH HOOK */ ,
+	/* A0 */ 0x00A6 /*                                    BROKEN BAR */ ,
+	/* A1 */ 0x00B4 /*                                  ACUTE ACCENT */ ,
+	/* A2 */ 0x00F3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,
+	/* A3 */ 0x00FA /*               LATIN SMALL LETTER U WITH ACUTE */ ,
+	/* A4 */ 0x00A8 /*                                     DIAERESIS */ ,
+	/* A5 */ 0x00B8 /*                                       CEDILLA */ ,
+	/* A6 */ 0x00B3 /*                             SUPERSCRIPT THREE */ ,
+	/* A7 */ 0x00AF /*                                        MACRON */ ,
+	/* A8 */ 0x00CE /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,
+	/* A9 */ 0x2310 /*                             REVERSED NOT SIGN */ ,
+	/* AA */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AB */ 0x00BD /*                      VULGAR FRACTION ONE HALF */ ,
+	/* AC */ 0x00BC /*                   VULGAR FRACTION ONE QUARTER */ ,
+	/* AD */ 0x00BE /*                VULGAR FRACTION THREE QUARTERS */ ,
+	/* AE */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AF */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* B0 */ 0x2591 /*                                   LIGHT SHADE */ ,
+	/* B1 */ 0x2592 /*                                  MEDIUM SHADE */ ,
+	/* B2 */ 0x2593 /*                                    DARK SHADE */ ,
+	/* B3 */ 0x2502 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,
+	/* B4 */ 0x2524 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,
+	/* B5 */ 0x2561 /*  BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE */ ,
+	/* B6 */ 0x2562 /*  BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE */ ,
+	/* B7 */ 0x2556 /*      BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE */ ,
+	/* B8 */ 0x2555 /*      BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE */ ,
+	/* B9 */ 0x2563 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,
+	/* BA */ 0x2551 /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,
+	/* BB */ 0x2557 /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,
+	/* BC */ 0x255D /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,
+	/* BD */ 0x255C /*        BOX DRAWINGS UP DOUBLE AND LEFT SINGLE */ ,
+	/* BE */ 0x255B /*        BOX DRAWINGS UP SINGLE AND LEFT DOUBLE */ ,
+	/* BF */ 0x2510 /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,
+	/* C0 */ 0x2514 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,
+	/* C1 */ 0x2534 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,
+	/* C2 */ 0x252C /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,
+	/* C3 */ 0x251C /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,
+	/* C4 */ 0x2500 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,
+	/* C5 */ 0x253C /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,
+	/* C6 */ 0x255E /* BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE */ ,
+	/* C7 */ 0x255F /* BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE */ ,
+	/* C8 */ 0x255A /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,
+	/* C9 */ 0x2554 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,
+	/* CA */ 0x2569 /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,
+	/* CB */ 0x2566 /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,
+	/* CC */ 0x2560 /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,
+	/* CD */ 0x2550 /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,
+	/* CE */ 0x256C /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,
+	/* CF */ 0x2567 /*  BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D0 */ 0x2568 /*  BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D1 */ 0x2564 /* BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D2 */ 0x2565 /* BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D3 */ 0x2559 /*       BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE */ ,
+	/* D4 */ 0x2558 /*       BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE */ ,
+	/* D5 */ 0x2552 /*     BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE */ ,
+	/* D6 */ 0x2553 /*     BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE */ ,
+	/* D7 */ 0x256B /* BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D8 */ 0x256A /* BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D9 */ 0x2518 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,
+	/* DA */ 0x250C /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,
+	/* DB */ 0x2588 /*                                    FULL BLOCK */ ,
+	/* DC */ 0x2584 /*                              LOWER HALF BLOCK */ ,
+	/* DD */ 0x258C /*                               LEFT HALF BLOCK */ ,
+	/* DE */ 0x2590 /*                              RIGHT HALF BLOCK */ ,
+	/* DF */ 0x2580 /*                              UPPER HALF BLOCK */ ,
+	/* E0 */ 0x03B1 /*                      GREEK SMALL LETTER ALPHA */ ,
+	/* E1 */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* E2 */ 0x0393 /*                    GREEK CAPITAL LETTER GAMMA */ ,
+	/* E3 */ 0x03C0 /*                         GREEK SMALL LETTER PI */ ,
+	/* E4 */ 0x03A3 /*                    GREEK CAPITAL LETTER SIGMA */ ,
+	/* E5 */ 0x03C3 /*                      GREEK SMALL LETTER SIGMA */ ,
+	/* E6 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* E7 */ 0x03C4 /*                        GREEK SMALL LETTER TAU */ ,
+	/* E8 */ 0x03A6 /*                      GREEK CAPITAL LETTER PHI */ ,
+	/* E9 */ 0x0398 /*                    GREEK CAPITAL LETTER THETA */ ,
+	/* EA */ 0x03A9 /*                    GREEK CAPITAL LETTER OMEGA */ ,
+	/* EB */ 0x03B4 /*                      GREEK SMALL LETTER DELTA */ ,
+	/* EC */ 0x221E /*                                      INFINITY */ ,
+	/* ED */ 0x03C6 /*                        GREEK SMALL LETTER PHI */ ,
+	/* EE */ 0x03B5 /*                    GREEK SMALL LETTER EPSILON */ ,
+	/* EF */ 0x2229 /*                                  INTERSECTION */ ,
+	/* F0 */ 0x2261 /*                                  IDENTICAL TO */ ,
+	/* F1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* F2 */ 0x2265 /*                      GREATER-THAN OR EQUAL TO */ ,
+	/* F3 */ 0x2264 /*                         LESS-THAN OR EQUAL TO */ ,
+	/* F4 */ 0x2320 /*                             TOP HALF INTEGRAL */ ,
+	/* F5 */ 0x2321 /*                          BOTTOM HALF INTEGRAL */ ,
+	/* F6 */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* F7 */ 0x2248 /*                               ALMOST EQUAL TO */ ,
+	/* F8 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* F9 */ 0x2219 /*                               BULLET OPERATOR */ ,
+	/* FA */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* FB */ 0x221A /*                                   SQUARE ROOT */ ,
+	/* FC */ 0x207F /*              SUPERSCRIPT LATIN SMALL LETTER N */ ,
+	/* FD */ 0x00B2 /*                               SUPERSCRIPT TWO */ ,
+	/* FE */ 0x25A0 /*                                  BLACK SQUARE */ ,
+	/* FF */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xFF /*                                NO-BREAK SPACE */ ,	/* 416 */
+										/* U+00A1 */ CANT_MAP_CHARACTER,
+										/* 417 */
+	/* U+00A2 */ 0x9B /*                                     CENT SIGN */ ,	/* 418 */
+	/* U+00A3 */ 0x9C /*                                    POUND SIGN */ ,	/* 419 */
+	/* U+00A4 */ 0x98 /*                                 CURRENCY SIGN */ ,	/* 420 */
+										/* U+00A5 */ CANT_MAP_CHARACTER,
+										/* 421 */
+	/* U+00A6 */ 0xA0 /*                                    BROKEN BAR */ ,	/* 422 */
+	/* U+00A7 */ 0x8F /*                                  SECTION SIGN */ ,	/* 423 */
+	/* U+00A8 */ 0xA4 /*                                     DIAERESIS */ ,	/* 424 */
+										/* U+00A9 */ CANT_MAP_CHARACTER,
+										/* 425 */
+										/* U+00AA */ CANT_MAP_CHARACTER,
+										/* 426 */
+	/* U+00AB */ 0xAE /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAA /*                                      NOT SIGN */ ,	/* 428 */
+										/* U+00AD */ CANT_MAP_CHARACTER,
+										/* 429 */
+										/* U+00AE */ CANT_MAP_CHARACTER,
+										/* 430 */
+	/* U+00AF */ 0xA7 /*                                        MACRON */ ,	/* 431 */
+	/* U+00B0 */ 0xF8 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xF1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+	/* U+00B2 */ 0xFD /*                               SUPERSCRIPT TWO */ ,	/* 434 */
+	/* U+00B3 */ 0xA6 /*                             SUPERSCRIPT THREE */ ,	/* 435 */
+	/* U+00B4 */ 0xA1 /*                                  ACUTE ACCENT */ ,	/* 436 */
+	/* U+00B5 */ 0xE6 /*                                    MICRO SIGN */ ,	/* 437 */
+	/* U+00B6 */ 0x86 /*                                  PILCROW SIGN */ ,	/* 438 */
+	/* U+00B7 */ 0xFA /*                                    MIDDLE DOT */ ,	/* 439 */
+	/* U+00B8 */ 0xA5 /*                                       CEDILLA */ ,	/* 440 */
+										/* U+00B9 */ CANT_MAP_CHARACTER,
+										/* 441 */
+										/* U+00BA */ CANT_MAP_CHARACTER,
+										/* 442 */
+	/* U+00BB */ 0xAF /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+	/* U+00BC */ 0xAC /*                   VULGAR FRACTION ONE QUARTER */ ,	/* 444 */
+	/* U+00BD */ 0xAB /*                      VULGAR FRACTION ONE HALF */ ,	/* 445 */
+	/* U+00BE */ 0xAD /*                VULGAR FRACTION THREE QUARTERS */ ,	/* 446 */
+										/* U+00BF */ CANT_MAP_CHARACTER,
+										/* 447 */
+	/* U+00C0 */ 0x8E /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,	/* 448 */
+										/* U+00C1 */ CANT_MAP_CHARACTER,
+										/* 449 */
+	/* U+00C2 */ 0x84 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,	/* 450 */
+										/* U+00C3 */ CANT_MAP_CHARACTER,
+										/* 451 */
+										/* U+00C4 */ CANT_MAP_CHARACTER,
+										/* 452 */
+										/* U+00C5 */ CANT_MAP_CHARACTER,
+										/* 453 */
+										/* U+00C6 */ CANT_MAP_CHARACTER,
+										/* 454 */
+	/* U+00C7 */ 0x80 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,	/* 455 */
+	/* U+00C8 */ 0x91 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,	/* 456 */
+	/* U+00C9 */ 0x90 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,	/* 457 */
+	/* U+00CA */ 0x92 /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,	/* 458 */
+	/* U+00CB */ 0x94 /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,	/* 459 */
+										/* U+00CC */ CANT_MAP_CHARACTER,
+										/* 460 */
+										/* U+00CD */ CANT_MAP_CHARACTER,
+										/* 461 */
+	/* U+00CE */ 0xA8 /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,	/* 462 */
+	/* U+00CF */ 0x95 /*         LATIN CAPITAL LETTER I WITH DIAERESIS */ ,	/* 463 */
+										/* U+00D0 */ CANT_MAP_CHARACTER,
+										/* 464 */
+										/* U+00D1 */ CANT_MAP_CHARACTER,
+										/* 465 */
+										/* U+00D2 */ CANT_MAP_CHARACTER,
+										/* 466 */
+										/* U+00D3 */ CANT_MAP_CHARACTER,
+										/* 467 */
+	/* U+00D4 */ 0x99 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,	/* 468 */
+										/* U+00D5 */ CANT_MAP_CHARACTER,
+										/* 469 */
+										/* U+00D6 */ CANT_MAP_CHARACTER,
+										/* 470 */
+										/* U+00D7 */ CANT_MAP_CHARACTER,
+										/* 471 */
+										/* U+00D8 */ CANT_MAP_CHARACTER,
+										/* 472 */
+	/* U+00D9 */ 0x9D /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,	/* 473 */
+										/* U+00DA */ CANT_MAP_CHARACTER,
+										/* 474 */
+	/* U+00DB */ 0x9E /*        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ ,	/* 475 */
+	/* U+00DC */ 0x9A /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,	/* 476 */
+										/* U+00DD */ CANT_MAP_CHARACTER,
+										/* 477 */
+										/* U+00DE */ CANT_MAP_CHARACTER,
+										/* 478 */
+	/* U+00DF */ 0xE1 /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+	/* U+00E0 */ 0x85 /*               LATIN SMALL LETTER A WITH GRAVE */ ,	/* 480 */
+										/* U+00E1 */ CANT_MAP_CHARACTER,
+										/* 481 */
+	/* U+00E2 */ 0x83 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,	/* 482 */
+										/* U+00E3 */ CANT_MAP_CHARACTER,
+										/* 483 */
+										/* U+00E4 */ CANT_MAP_CHARACTER,
+										/* 484 */
+										/* U+00E5 */ CANT_MAP_CHARACTER,
+										/* 485 */
+										/* U+00E6 */ CANT_MAP_CHARACTER,
+										/* 486 */
+	/* U+00E7 */ 0x87 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,	/* 487 */
+	/* U+00E8 */ 0x8A /*               LATIN SMALL LETTER E WITH GRAVE */ ,	/* 488 */
+	/* U+00E9 */ 0x82 /*               LATIN SMALL LETTER E WITH ACUTE */ ,	/* 489 */
+	/* U+00EA */ 0x88 /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,	/* 490 */
+	/* U+00EB */ 0x89 /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,	/* 491 */
+										/* U+00EC */ CANT_MAP_CHARACTER,
+										/* 492 */
+										/* U+00ED */ CANT_MAP_CHARACTER,
+										/* 493 */
+	/* U+00EE */ 0x8C /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,	/* 494 */
+	/* U+00EF */ 0x8B /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,	/* 495 */
+										/* U+00F0 */ CANT_MAP_CHARACTER,
+										/* 496 */
+										/* U+00F1 */ CANT_MAP_CHARACTER,
+										/* 497 */
+										/* U+00F2 */ CANT_MAP_CHARACTER,
+										/* 498 */
+	/* U+00F3 */ 0xA2 /*               LATIN SMALL LETTER O WITH ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0x93 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,	/* 500 */
+										/* U+00F5 */ CANT_MAP_CHARACTER,
+										/* 501 */
+										/* U+00F6 */ CANT_MAP_CHARACTER,
+										/* 502 */
+	/* U+00F7 */ 0xF6 /*                                 DIVISION SIGN */ ,	/* 503 */
+										/* U+00F8 */ CANT_MAP_CHARACTER,
+										/* 504 */
+	/* U+00F9 */ 0x97 /*               LATIN SMALL LETTER U WITH GRAVE */ ,	/* 505 */
+	/* U+00FA */ 0xA3 /*               LATIN SMALL LETTER U WITH ACUTE */ ,	/* 506 */
+	/* U+00FB */ 0x96 /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,	/* 507 */
+	/* U+00FC */ 0x81 /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,	/* 508 */
+										/* U+00FD */ CANT_MAP_CHARACTER,
+										/* 509 */
+										/* U+00FE */ CANT_MAP_CHARACTER,
+										/* 510 */
+										/* U+00FF */ CANT_MAP_CHARACTER,
+										/* 511 */
+										/* U+0100 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0101 */ CANT_MAP_CHARACTER,
+										/* 513 */
+										/* U+0102 */ CANT_MAP_CHARACTER,
+										/* 514 */
+										/* U+0103 */ CANT_MAP_CHARACTER,
+										/* 515 */
+										/* U+0104 */ CANT_MAP_CHARACTER,
+										/* 516 */
+										/* U+0105 */ CANT_MAP_CHARACTER,
+										/* 517 */
+										/* U+0106 */ CANT_MAP_CHARACTER,
+										/* 518 */
+										/* U+0107 */ CANT_MAP_CHARACTER,
+										/* 519 */
+										/* U+0108 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0109 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+010A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+010B */ CANT_MAP_CHARACTER,
+										/* 523 */
+										/* U+010C */ CANT_MAP_CHARACTER,
+										/* 524 */
+										/* U+010D */ CANT_MAP_CHARACTER,
+										/* 525 */
+										/* U+010E */ CANT_MAP_CHARACTER,
+										/* 526 */
+										/* U+010F */ CANT_MAP_CHARACTER,
+										/* 527 */
+										/* U+0110 */ CANT_MAP_CHARACTER,
+										/* 528 */
+										/* U+0111 */ CANT_MAP_CHARACTER,
+										/* 529 */
+										/* U+0112 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0113 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0114 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0115 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0116 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0117 */ CANT_MAP_CHARACTER,
+										/* 535 */
+										/* U+0118 */ CANT_MAP_CHARACTER,
+										/* 536 */
+										/* U+0119 */ CANT_MAP_CHARACTER,
+										/* 537 */
+										/* U+011A */ CANT_MAP_CHARACTER,
+										/* 538 */
+										/* U+011B */ CANT_MAP_CHARACTER,
+										/* 539 */
+										/* U+011C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+011D */ CANT_MAP_CHARACTER,
+										/* 541 */
+										/* U+011E */ CANT_MAP_CHARACTER,
+										/* 542 */
+										/* U+011F */ CANT_MAP_CHARACTER,
+										/* 543 */
+										/* U+0120 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0121 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0122 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0123 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0124 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0125 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0126 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0127 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0128 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0129 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+012A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+012B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+012C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+012D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+012E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+012F */ CANT_MAP_CHARACTER,
+										/* 559 */
+										/* U+0130 */ CANT_MAP_CHARACTER,
+										/* 560 */
+										/* U+0131 */ CANT_MAP_CHARACTER,
+										/* 561 */
+										/* U+0132 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0133 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0134 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0135 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0136 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0137 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0138 */ CANT_MAP_CHARACTER,
+										/* 568 */
+										/* U+0139 */ CANT_MAP_CHARACTER,
+										/* 569 */
+										/* U+013A */ CANT_MAP_CHARACTER,
+										/* 570 */
+										/* U+013B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+013C */ CANT_MAP_CHARACTER,
+										/* 572 */
+										/* U+013D */ CANT_MAP_CHARACTER,
+										/* 573 */
+										/* U+013E */ CANT_MAP_CHARACTER,
+										/* 574 */
+										/* U+013F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0140 */ CANT_MAP_CHARACTER,
+										/* 576 */
+										/* U+0141 */ CANT_MAP_CHARACTER,
+										/* 577 */
+										/* U+0142 */ CANT_MAP_CHARACTER,
+										/* 578 */
+										/* U+0143 */ CANT_MAP_CHARACTER,
+										/* 579 */
+										/* U+0144 */ CANT_MAP_CHARACTER,
+										/* 580 */
+										/* U+0145 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0146 */ CANT_MAP_CHARACTER,
+										/* 582 */
+										/* U+0147 */ CANT_MAP_CHARACTER,
+										/* 583 */
+										/* U+0148 */ CANT_MAP_CHARACTER,
+										/* 584 */
+										/* U+0149 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+014A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+014B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+014C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+014D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+014E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+014F */ CANT_MAP_CHARACTER,
+										/* 591 */
+										/* U+0150 */ CANT_MAP_CHARACTER,
+										/* 592 */
+										/* U+0151 */ CANT_MAP_CHARACTER,
+										/* 593 */
+										/* U+0152 */ CANT_MAP_CHARACTER,
+										/* 594 */
+										/* U+0153 */ CANT_MAP_CHARACTER,
+										/* 595 */
+										/* U+0154 */ CANT_MAP_CHARACTER,
+										/* 596 */
+										/* U+0155 */ CANT_MAP_CHARACTER,
+										/* 597 */
+										/* U+0156 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0157 */ CANT_MAP_CHARACTER,
+										/* 599 */
+										/* U+0158 */ CANT_MAP_CHARACTER,
+										/* 600 */
+										/* U+0159 */ CANT_MAP_CHARACTER,
+										/* 601 */
+										/* U+015A */ CANT_MAP_CHARACTER,
+										/* 602 */
+										/* U+015B */ CANT_MAP_CHARACTER,
+										/* 603 */
+										/* U+015C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+015D */ CANT_MAP_CHARACTER,
+										/* 605 */
+										/* U+015E */ CANT_MAP_CHARACTER,
+										/* 606 */
+										/* U+015F */ CANT_MAP_CHARACTER,
+										/* 607 */
+										/* U+0160 */ CANT_MAP_CHARACTER,
+										/* 608 */
+										/* U+0161 */ CANT_MAP_CHARACTER,
+										/* 609 */
+										/* U+0162 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0163 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0164 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0165 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0166 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0167 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0168 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0169 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+016A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+016B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+016C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+016D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+016E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+016F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0170 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0171 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0172 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0173 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0174 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0175 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0176 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0177 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0178 */ CANT_MAP_CHARACTER,
+										/* 632 */
+										/* U+0179 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+017A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+017B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+017C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+017D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+017E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+017F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0180 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0181 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0182 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0183 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0184 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0185 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0186 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0187 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0188 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0189 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+018A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+018B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+018C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+018D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+018E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+018F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0190 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0191 */ CANT_MAP_CHARACTER,
+										/* 657 */
+	/* U+0192 */ 0x9F /*                LATIN SMALL LETTER F WITH HOOK */ ,	/* 658 */
+										/* U+0193 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0194 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0195 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0196 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0197 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0198 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0199 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+019A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+019B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+019C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+019D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+019E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+019F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+01A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+01A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+01A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+01A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+01A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+01A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+01A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+01A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+01A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+01A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+01AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+01AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+01AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+01AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+01AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+01AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+01B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+01B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+01B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+01B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+01B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+01B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+01B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+01B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+01B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+01B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+01BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+01BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+01BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+01BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+01BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+01BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+01C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+01C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+01C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+01C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+01C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+01C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+01C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+01C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+01C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+01C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+01CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+01CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+01CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+01CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+01CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+01CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+01D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+01D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+01D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+01D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+01D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+01D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+01D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+01D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+01D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+01D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+01DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+01DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+01DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+01DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+01DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+01DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+01E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+01E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+01E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+01E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+01E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+01E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+01E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+01E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+01E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+01E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+01EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+01EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+01EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+01ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+01EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+01EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+01F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+01F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+01F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+01F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+01F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+01F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+01F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+01F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+01F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+01F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+01FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+01FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+01FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+01FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+01FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+01FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+0300 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+0301 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+0302 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+0303 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+0304 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+0305 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+0306 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+0307 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+0308 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+0309 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+030A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+030B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+030C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+030D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+030E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+030F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+0310 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+0311 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+0312 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+0313 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+0314 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+0315 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+0316 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+0317 */ CANT_MAP_CHARACTER,
+										/* 791 */
+										/* U+0318 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+0319 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+031A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+031B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+031C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+031D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+031E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+031F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+0320 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+0321 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+0322 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+0323 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+0324 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+0325 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+0326 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+0327 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+0328 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+0329 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+032A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+032B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+032C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+032D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+032E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+032F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+0330 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+0331 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+0332 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+0333 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+0334 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+0335 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+0336 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+0337 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+0338 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+0339 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+033A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+033B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+033C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+033D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+033E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+033F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+0340 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+0341 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+0342 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+0343 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+0344 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+0345 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+0346 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+0347 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+0348 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+0349 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+034A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+034B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+034C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+034D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+034E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+034F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+0350 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+0351 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+0352 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+0353 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+0354 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+0355 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+0356 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+0357 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+0358 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+0359 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+035A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+035B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+035C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+035D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+035E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+035F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+0360 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+0361 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+0362 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+0363 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+0364 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+0365 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+0366 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+0367 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+0368 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+0369 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+036A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+036B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+036C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+036D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+036E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+036F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+0370 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+0371 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+0372 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+0373 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+0374 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+0375 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+0376 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+0377 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+0378 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+0379 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+037A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+037B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+037C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+037D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+037E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+037F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+0380 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+0381 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+0382 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+0383 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+0384 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+0385 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+0386 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+0387 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+0388 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+0389 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+038A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+038B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+038C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+038D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+038E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+038F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+0390 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+0391 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+0392 */ CANT_MAP_CHARACTER,
+										/* 914 */
+	/* U+0393 */ 0xE2 /*                    GREEK CAPITAL LETTER GAMMA */ ,	/* 915 */
+										/* U+0394 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+0395 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+0396 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+0397 */ CANT_MAP_CHARACTER,
+										/* 919 */
+	/* U+0398 */ 0xE9 /*                    GREEK CAPITAL LETTER THETA */ ,	/* 920 */
+										/* U+0399 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+039A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+039B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+039C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+039D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+039E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+039F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+03A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+03A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+03A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+	/* U+03A3 */ 0xE4 /*                    GREEK CAPITAL LETTER SIGMA */ ,	/* 931 */
+										/* U+03A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+03A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+	/* U+03A6 */ 0xE8 /*                      GREEK CAPITAL LETTER PHI */ ,	/* 934 */
+										/* U+03A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+03A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+	/* U+03A9 */ 0xEA /*                    GREEK CAPITAL LETTER OMEGA */ ,	/* 937 */
+										/* U+03AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+03AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+03AC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+03AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+03AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+03AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+03B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+	/* U+03B1 */ 0xE0 /*                      GREEK SMALL LETTER ALPHA */ ,	/* 945 */
+										/* U+03B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+03B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+	/* U+03B4 */ 0xEB /*                      GREEK SMALL LETTER DELTA */ ,	/* 948 */
+	/* U+03B5 */ 0xEE /*                    GREEK SMALL LETTER EPSILON */ ,	/* 949 */
+										/* U+03B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+03B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+03B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+03B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+03BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+03BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+03BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+03BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+03BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+03BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+	/* U+03C0 */ 0xE3 /*                         GREEK SMALL LETTER PI */ ,	/* 960 */
+										/* U+03C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+03C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+	/* U+03C3 */ 0xE5 /*                      GREEK SMALL LETTER SIGMA */ ,	/* 963 */
+	/* U+03C4 */ 0xE7 /*                        GREEK SMALL LETTER TAU */ ,	/* 964 */
+										/* U+03C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+	/* U+03C6 */ 0xED /*                        GREEK SMALL LETTER PHI */ ,	/* 966 */
+										/* U+03C7 */ CANT_MAP_CHARACTER,
+										/* 967 */
+										/* U+03C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+03C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+03CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+03CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+03CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+03CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+03CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+03CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+03D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+03D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+03D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+03D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+03D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+03D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+03D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+03D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+03D8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+03D9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+03DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+03DB */ CANT_MAP_CHARACTER,
+										/* 987 */
+										/* U+03DC */ CANT_MAP_CHARACTER,
+										/* 988 */
+										/* U+03DD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+03DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+03DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+03E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+03E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+03E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+03E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+03E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+03E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+03E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+03E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+03E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+03E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+03EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+03EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+03EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+03ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+03EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+03EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+03F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+03F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+03F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+03F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+03F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+03F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+03F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+03F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+03F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+03F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+03FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+03FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+03FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+03FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+03FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+03FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 1024 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 1026 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 1036 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 1040 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+										/* U+2013 */ CANT_MAP_CHARACTER,
+										/* 1043 */
+										/* U+2014 */ CANT_MAP_CHARACTER,
+										/* 1044 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 1046 */
+	/* U+2017 */ 0x8D /*                               DOUBLE LOW LINE */ ,	/* 1047 */
+										/* U+2018 */ CANT_MAP_CHARACTER,
+										/* 1048 */
+										/* U+2019 */ CANT_MAP_CHARACTER,
+										/* 1049 */
+										/* U+201A */ CANT_MAP_CHARACTER,
+										/* 1050 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+										/* U+201C */ CANT_MAP_CHARACTER,
+										/* 1052 */
+										/* U+201D */ CANT_MAP_CHARACTER,
+										/* 1053 */
+										/* U+201E */ CANT_MAP_CHARACTER,
+										/* 1054 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+										/* U+2020 */ CANT_MAP_CHARACTER,
+										/* 1056 */
+										/* U+2021 */ CANT_MAP_CHARACTER,
+										/* 1057 */
+										/* U+2022 */ CANT_MAP_CHARACTER,
+										/* 1058 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 1060 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+										/* U+2026 */ CANT_MAP_CHARACTER,
+										/* 1062 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 1068 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+										/* U+2030 */ CANT_MAP_CHARACTER,
+										/* 1072 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 1076 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+										/* U+2039 */ CANT_MAP_CHARACTER,
+										/* 1081 */
+										/* U+203A */ CANT_MAP_CHARACTER,
+										/* 1082 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 1084 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 1104 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 1105 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 1108 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 1111 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 1114 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 1117 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 1120 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 1123 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 1126 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 1129 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 1132 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+	/* U+207F */ 0xFC /*              SUPERSCRIPT LATIN SMALL LETTER N */ ,	/* 1151 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 1152 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 1156 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 1160 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 1169 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 1170 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 1171 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 1184 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+										/* U+20A7 */ CANT_MAP_CHARACTER,
+										/* 1191 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+										/* U+20AC */ CANT_MAP_CHARACTER,
+										/* 1196 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+										/* U+2200 */ CANT_MAP_CHARACTER,
+										/* 1280 */
+										/* U+2201 */ CANT_MAP_CHARACTER,
+										/* 1281 */
+										/* U+2202 */ CANT_MAP_CHARACTER,
+										/* 1282 */
+										/* U+2203 */ CANT_MAP_CHARACTER,
+										/* 1283 */
+										/* U+2204 */ CANT_MAP_CHARACTER,
+										/* 1284 */
+										/* U+2205 */ CANT_MAP_CHARACTER,
+										/* 1285 */
+										/* U+2206 */ CANT_MAP_CHARACTER,
+										/* 1286 */
+										/* U+2207 */ CANT_MAP_CHARACTER,
+										/* 1287 */
+										/* U+2208 */ CANT_MAP_CHARACTER,
+										/* 1288 */
+										/* U+2209 */ CANT_MAP_CHARACTER,
+										/* 1289 */
+										/* U+220A */ CANT_MAP_CHARACTER,
+										/* 1290 */
+										/* U+220B */ CANT_MAP_CHARACTER,
+										/* 1291 */
+										/* U+220C */ CANT_MAP_CHARACTER,
+										/* 1292 */
+										/* U+220D */ CANT_MAP_CHARACTER,
+										/* 1293 */
+										/* U+220E */ CANT_MAP_CHARACTER,
+										/* 1294 */
+										/* U+220F */ CANT_MAP_CHARACTER,
+										/* 1295 */
+										/* U+2210 */ CANT_MAP_CHARACTER,
+										/* 1296 */
+										/* U+2211 */ CANT_MAP_CHARACTER,
+										/* 1297 */
+										/* U+2212 */ CANT_MAP_CHARACTER,
+										/* 1298 */
+										/* U+2213 */ CANT_MAP_CHARACTER,
+										/* 1299 */
+										/* U+2214 */ CANT_MAP_CHARACTER,
+										/* 1300 */
+										/* U+2215 */ CANT_MAP_CHARACTER,
+										/* 1301 */
+										/* U+2216 */ CANT_MAP_CHARACTER,
+										/* 1302 */
+										/* U+2217 */ CANT_MAP_CHARACTER,
+										/* 1303 */
+										/* U+2218 */ CANT_MAP_CHARACTER,
+										/* 1304 */
+	/* U+2219 */ 0xF9 /*                               BULLET OPERATOR */ ,	/* 1305 */
+	/* U+221A */ 0xFB /*                                   SQUARE ROOT */ ,	/* 1306 */
+										/* U+221B */ CANT_MAP_CHARACTER,
+										/* 1307 */
+										/* U+221C */ CANT_MAP_CHARACTER,
+										/* 1308 */
+										/* U+221D */ CANT_MAP_CHARACTER,
+										/* 1309 */
+	/* U+221E */ 0xEC /*                                      INFINITY */ ,	/* 1310 */
+										/* U+221F */ CANT_MAP_CHARACTER,
+										/* 1311 */
+										/* U+2220 */ CANT_MAP_CHARACTER,
+										/* 1312 */
+										/* U+2221 */ CANT_MAP_CHARACTER,
+										/* 1313 */
+										/* U+2222 */ CANT_MAP_CHARACTER,
+										/* 1314 */
+										/* U+2223 */ CANT_MAP_CHARACTER,
+										/* 1315 */
+										/* U+2224 */ CANT_MAP_CHARACTER,
+										/* 1316 */
+										/* U+2225 */ CANT_MAP_CHARACTER,
+										/* 1317 */
+										/* U+2226 */ CANT_MAP_CHARACTER,
+										/* 1318 */
+										/* U+2227 */ CANT_MAP_CHARACTER,
+										/* 1319 */
+										/* U+2228 */ CANT_MAP_CHARACTER,
+										/* 1320 */
+	/* U+2229 */ 0xEF /*                                  INTERSECTION */ ,	/* 1321 */
+										/* U+222A */ CANT_MAP_CHARACTER,
+										/* 1322 */
+										/* U+222B */ CANT_MAP_CHARACTER,
+										/* 1323 */
+										/* U+222C */ CANT_MAP_CHARACTER,
+										/* 1324 */
+										/* U+222D */ CANT_MAP_CHARACTER,
+										/* 1325 */
+										/* U+222E */ CANT_MAP_CHARACTER,
+										/* 1326 */
+										/* U+222F */ CANT_MAP_CHARACTER,
+										/* 1327 */
+										/* U+2230 */ CANT_MAP_CHARACTER,
+										/* 1328 */
+										/* U+2231 */ CANT_MAP_CHARACTER,
+										/* 1329 */
+										/* U+2232 */ CANT_MAP_CHARACTER,
+										/* 1330 */
+										/* U+2233 */ CANT_MAP_CHARACTER,
+										/* 1331 */
+										/* U+2234 */ CANT_MAP_CHARACTER,
+										/* 1332 */
+										/* U+2235 */ CANT_MAP_CHARACTER,
+										/* 1333 */
+										/* U+2236 */ CANT_MAP_CHARACTER,
+										/* 1334 */
+										/* U+2237 */ CANT_MAP_CHARACTER,
+										/* 1335 */
+										/* U+2238 */ CANT_MAP_CHARACTER,
+										/* 1336 */
+										/* U+2239 */ CANT_MAP_CHARACTER,
+										/* 1337 */
+										/* U+223A */ CANT_MAP_CHARACTER,
+										/* 1338 */
+										/* U+223B */ CANT_MAP_CHARACTER,
+										/* 1339 */
+										/* U+223C */ CANT_MAP_CHARACTER,
+										/* 1340 */
+										/* U+223D */ CANT_MAP_CHARACTER,
+										/* 1341 */
+										/* U+223E */ CANT_MAP_CHARACTER,
+										/* 1342 */
+										/* U+223F */ CANT_MAP_CHARACTER,
+										/* 1343 */
+										/* U+2240 */ CANT_MAP_CHARACTER,
+										/* 1344 */
+										/* U+2241 */ CANT_MAP_CHARACTER,
+										/* 1345 */
+										/* U+2242 */ CANT_MAP_CHARACTER,
+										/* 1346 */
+										/* U+2243 */ CANT_MAP_CHARACTER,
+										/* 1347 */
+										/* U+2244 */ CANT_MAP_CHARACTER,
+										/* 1348 */
+										/* U+2245 */ CANT_MAP_CHARACTER,
+										/* 1349 */
+										/* U+2246 */ CANT_MAP_CHARACTER,
+										/* 1350 */
+										/* U+2247 */ CANT_MAP_CHARACTER,
+										/* 1351 */
+	/* U+2248 */ 0xF7 /*                               ALMOST EQUAL TO */ ,	/* 1352 */
+										/* U+2249 */ CANT_MAP_CHARACTER,
+										/* 1353 */
+										/* U+224A */ CANT_MAP_CHARACTER,
+										/* 1354 */
+										/* U+224B */ CANT_MAP_CHARACTER,
+										/* 1355 */
+										/* U+224C */ CANT_MAP_CHARACTER,
+										/* 1356 */
+										/* U+224D */ CANT_MAP_CHARACTER,
+										/* 1357 */
+										/* U+224E */ CANT_MAP_CHARACTER,
+										/* 1358 */
+										/* U+224F */ CANT_MAP_CHARACTER,
+										/* 1359 */
+										/* U+2250 */ CANT_MAP_CHARACTER,
+										/* 1360 */
+										/* U+2251 */ CANT_MAP_CHARACTER,
+										/* 1361 */
+										/* U+2252 */ CANT_MAP_CHARACTER,
+										/* 1362 */
+										/* U+2253 */ CANT_MAP_CHARACTER,
+										/* 1363 */
+										/* U+2254 */ CANT_MAP_CHARACTER,
+										/* 1364 */
+										/* U+2255 */ CANT_MAP_CHARACTER,
+										/* 1365 */
+										/* U+2256 */ CANT_MAP_CHARACTER,
+										/* 1366 */
+										/* U+2257 */ CANT_MAP_CHARACTER,
+										/* 1367 */
+										/* U+2258 */ CANT_MAP_CHARACTER,
+										/* 1368 */
+										/* U+2259 */ CANT_MAP_CHARACTER,
+										/* 1369 */
+										/* U+225A */ CANT_MAP_CHARACTER,
+										/* 1370 */
+										/* U+225B */ CANT_MAP_CHARACTER,
+										/* 1371 */
+										/* U+225C */ CANT_MAP_CHARACTER,
+										/* 1372 */
+										/* U+225D */ CANT_MAP_CHARACTER,
+										/* 1373 */
+										/* U+225E */ CANT_MAP_CHARACTER,
+										/* 1374 */
+										/* U+225F */ CANT_MAP_CHARACTER,
+										/* 1375 */
+										/* U+2260 */ CANT_MAP_CHARACTER,
+										/* 1376 */
+	/* U+2261 */ 0xF0 /*                                  IDENTICAL TO */ ,	/* 1377 */
+										/* U+2262 */ CANT_MAP_CHARACTER,
+										/* 1378 */
+										/* U+2263 */ CANT_MAP_CHARACTER,
+										/* 1379 */
+	/* U+2264 */ 0xF3 /*                         LESS-THAN OR EQUAL TO */ ,	/* 1380 */
+	/* U+2265 */ 0xF2 /*                      GREATER-THAN OR EQUAL TO */ ,	/* 1381 */
+										/* U+2266 */ CANT_MAP_CHARACTER,
+										/* 1382 */
+										/* U+2267 */ CANT_MAP_CHARACTER,
+										/* 1383 */
+										/* U+2268 */ CANT_MAP_CHARACTER,
+										/* 1384 */
+										/* U+2269 */ CANT_MAP_CHARACTER,
+										/* 1385 */
+										/* U+226A */ CANT_MAP_CHARACTER,
+										/* 1386 */
+										/* U+226B */ CANT_MAP_CHARACTER,
+										/* 1387 */
+										/* U+226C */ CANT_MAP_CHARACTER,
+										/* 1388 */
+										/* U+226D */ CANT_MAP_CHARACTER,
+										/* 1389 */
+										/* U+226E */ CANT_MAP_CHARACTER,
+										/* 1390 */
+										/* U+226F */ CANT_MAP_CHARACTER,
+										/* 1391 */
+										/* U+2270 */ CANT_MAP_CHARACTER,
+										/* 1392 */
+										/* U+2271 */ CANT_MAP_CHARACTER,
+										/* 1393 */
+										/* U+2272 */ CANT_MAP_CHARACTER,
+										/* 1394 */
+										/* U+2273 */ CANT_MAP_CHARACTER,
+										/* 1395 */
+										/* U+2274 */ CANT_MAP_CHARACTER,
+										/* 1396 */
+										/* U+2275 */ CANT_MAP_CHARACTER,
+										/* 1397 */
+										/* U+2276 */ CANT_MAP_CHARACTER,
+										/* 1398 */
+										/* U+2277 */ CANT_MAP_CHARACTER,
+										/* 1399 */
+										/* U+2278 */ CANT_MAP_CHARACTER,
+										/* 1400 */
+										/* U+2279 */ CANT_MAP_CHARACTER,
+										/* 1401 */
+										/* U+227A */ CANT_MAP_CHARACTER,
+										/* 1402 */
+										/* U+227B */ CANT_MAP_CHARACTER,
+										/* 1403 */
+										/* U+227C */ CANT_MAP_CHARACTER,
+										/* 1404 */
+										/* U+227D */ CANT_MAP_CHARACTER,
+										/* 1405 */
+										/* U+227E */ CANT_MAP_CHARACTER,
+										/* 1406 */
+										/* U+227F */ CANT_MAP_CHARACTER,
+										/* 1407 */
+										/* U+2280 */ CANT_MAP_CHARACTER,
+										/* 1408 */
+										/* U+2281 */ CANT_MAP_CHARACTER,
+										/* 1409 */
+										/* U+2282 */ CANT_MAP_CHARACTER,
+										/* 1410 */
+										/* U+2283 */ CANT_MAP_CHARACTER,
+										/* 1411 */
+										/* U+2284 */ CANT_MAP_CHARACTER,
+										/* 1412 */
+										/* U+2285 */ CANT_MAP_CHARACTER,
+										/* 1413 */
+										/* U+2286 */ CANT_MAP_CHARACTER,
+										/* 1414 */
+										/* U+2287 */ CANT_MAP_CHARACTER,
+										/* 1415 */
+										/* U+2288 */ CANT_MAP_CHARACTER,
+										/* 1416 */
+										/* U+2289 */ CANT_MAP_CHARACTER,
+										/* 1417 */
+										/* U+228A */ CANT_MAP_CHARACTER,
+										/* 1418 */
+										/* U+228B */ CANT_MAP_CHARACTER,
+										/* 1419 */
+										/* U+228C */ CANT_MAP_CHARACTER,
+										/* 1420 */
+										/* U+228D */ CANT_MAP_CHARACTER,
+										/* 1421 */
+										/* U+228E */ CANT_MAP_CHARACTER,
+										/* 1422 */
+										/* U+228F */ CANT_MAP_CHARACTER,
+										/* 1423 */
+										/* U+2290 */ CANT_MAP_CHARACTER,
+										/* 1424 */
+										/* U+2291 */ CANT_MAP_CHARACTER,
+										/* 1425 */
+										/* U+2292 */ CANT_MAP_CHARACTER,
+										/* 1426 */
+										/* U+2293 */ CANT_MAP_CHARACTER,
+										/* 1427 */
+										/* U+2294 */ CANT_MAP_CHARACTER,
+										/* 1428 */
+										/* U+2295 */ CANT_MAP_CHARACTER,
+										/* 1429 */
+										/* U+2296 */ CANT_MAP_CHARACTER,
+										/* 1430 */
+										/* U+2297 */ CANT_MAP_CHARACTER,
+										/* 1431 */
+										/* U+2298 */ CANT_MAP_CHARACTER,
+										/* 1432 */
+										/* U+2299 */ CANT_MAP_CHARACTER,
+										/* 1433 */
+										/* U+229A */ CANT_MAP_CHARACTER,
+										/* 1434 */
+										/* U+229B */ CANT_MAP_CHARACTER,
+										/* 1435 */
+										/* U+229C */ CANT_MAP_CHARACTER,
+										/* 1436 */
+										/* U+229D */ CANT_MAP_CHARACTER,
+										/* 1437 */
+										/* U+229E */ CANT_MAP_CHARACTER,
+										/* 1438 */
+										/* U+229F */ CANT_MAP_CHARACTER,
+										/* 1439 */
+										/* U+22A0 */ CANT_MAP_CHARACTER,
+										/* 1440 */
+										/* U+22A1 */ CANT_MAP_CHARACTER,
+										/* 1441 */
+										/* U+22A2 */ CANT_MAP_CHARACTER,
+										/* 1442 */
+										/* U+22A3 */ CANT_MAP_CHARACTER,
+										/* 1443 */
+										/* U+22A4 */ CANT_MAP_CHARACTER,
+										/* 1444 */
+										/* U+22A5 */ CANT_MAP_CHARACTER,
+										/* 1445 */
+										/* U+22A6 */ CANT_MAP_CHARACTER,
+										/* 1446 */
+										/* U+22A7 */ CANT_MAP_CHARACTER,
+										/* 1447 */
+										/* U+22A8 */ CANT_MAP_CHARACTER,
+										/* 1448 */
+										/* U+22A9 */ CANT_MAP_CHARACTER,
+										/* 1449 */
+										/* U+22AA */ CANT_MAP_CHARACTER,
+										/* 1450 */
+										/* U+22AB */ CANT_MAP_CHARACTER,
+										/* 1451 */
+										/* U+22AC */ CANT_MAP_CHARACTER,
+										/* 1452 */
+										/* U+22AD */ CANT_MAP_CHARACTER,
+										/* 1453 */
+										/* U+22AE */ CANT_MAP_CHARACTER,
+										/* 1454 */
+										/* U+22AF */ CANT_MAP_CHARACTER,
+										/* 1455 */
+										/* U+22B0 */ CANT_MAP_CHARACTER,
+										/* 1456 */
+										/* U+22B1 */ CANT_MAP_CHARACTER,
+										/* 1457 */
+										/* U+22B2 */ CANT_MAP_CHARACTER,
+										/* 1458 */
+										/* U+22B3 */ CANT_MAP_CHARACTER,
+										/* 1459 */
+										/* U+22B4 */ CANT_MAP_CHARACTER,
+										/* 1460 */
+										/* U+22B5 */ CANT_MAP_CHARACTER,
+										/* 1461 */
+										/* U+22B6 */ CANT_MAP_CHARACTER,
+										/* 1462 */
+										/* U+22B7 */ CANT_MAP_CHARACTER,
+										/* 1463 */
+										/* U+22B8 */ CANT_MAP_CHARACTER,
+										/* 1464 */
+										/* U+22B9 */ CANT_MAP_CHARACTER,
+										/* 1465 */
+										/* U+22BA */ CANT_MAP_CHARACTER,
+										/* 1466 */
+										/* U+22BB */ CANT_MAP_CHARACTER,
+										/* 1467 */
+										/* U+22BC */ CANT_MAP_CHARACTER,
+										/* 1468 */
+										/* U+22BD */ CANT_MAP_CHARACTER,
+										/* 1469 */
+										/* U+22BE */ CANT_MAP_CHARACTER,
+										/* 1470 */
+										/* U+22BF */ CANT_MAP_CHARACTER,
+										/* 1471 */
+										/* U+22C0 */ CANT_MAP_CHARACTER,
+										/* 1472 */
+										/* U+22C1 */ CANT_MAP_CHARACTER,
+										/* 1473 */
+										/* U+22C2 */ CANT_MAP_CHARACTER,
+										/* 1474 */
+										/* U+22C3 */ CANT_MAP_CHARACTER,
+										/* 1475 */
+										/* U+22C4 */ CANT_MAP_CHARACTER,
+										/* 1476 */
+										/* U+22C5 */ CANT_MAP_CHARACTER,
+										/* 1477 */
+										/* U+22C6 */ CANT_MAP_CHARACTER,
+										/* 1478 */
+										/* U+22C7 */ CANT_MAP_CHARACTER,
+										/* 1479 */
+										/* U+22C8 */ CANT_MAP_CHARACTER,
+										/* 1480 */
+										/* U+22C9 */ CANT_MAP_CHARACTER,
+										/* 1481 */
+										/* U+22CA */ CANT_MAP_CHARACTER,
+										/* 1482 */
+										/* U+22CB */ CANT_MAP_CHARACTER,
+										/* 1483 */
+										/* U+22CC */ CANT_MAP_CHARACTER,
+										/* 1484 */
+										/* U+22CD */ CANT_MAP_CHARACTER,
+										/* 1485 */
+										/* U+22CE */ CANT_MAP_CHARACTER,
+										/* 1486 */
+										/* U+22CF */ CANT_MAP_CHARACTER,
+										/* 1487 */
+										/* U+22D0 */ CANT_MAP_CHARACTER,
+										/* 1488 */
+										/* U+22D1 */ CANT_MAP_CHARACTER,
+										/* 1489 */
+										/* U+22D2 */ CANT_MAP_CHARACTER,
+										/* 1490 */
+										/* U+22D3 */ CANT_MAP_CHARACTER,
+										/* 1491 */
+										/* U+22D4 */ CANT_MAP_CHARACTER,
+										/* 1492 */
+										/* U+22D5 */ CANT_MAP_CHARACTER,
+										/* 1493 */
+										/* U+22D6 */ CANT_MAP_CHARACTER,
+										/* 1494 */
+										/* U+22D7 */ CANT_MAP_CHARACTER,
+										/* 1495 */
+										/* U+22D8 */ CANT_MAP_CHARACTER,
+										/* 1496 */
+										/* U+22D9 */ CANT_MAP_CHARACTER,
+										/* 1497 */
+										/* U+22DA */ CANT_MAP_CHARACTER,
+										/* 1498 */
+										/* U+22DB */ CANT_MAP_CHARACTER,
+										/* 1499 */
+										/* U+22DC */ CANT_MAP_CHARACTER,
+										/* 1500 */
+										/* U+22DD */ CANT_MAP_CHARACTER,
+										/* 1501 */
+										/* U+22DE */ CANT_MAP_CHARACTER,
+										/* 1502 */
+										/* U+22DF */ CANT_MAP_CHARACTER,
+										/* 1503 */
+										/* U+22E0 */ CANT_MAP_CHARACTER,
+										/* 1504 */
+										/* U+22E1 */ CANT_MAP_CHARACTER,
+										/* 1505 */
+										/* U+22E2 */ CANT_MAP_CHARACTER,
+										/* 1506 */
+										/* U+22E3 */ CANT_MAP_CHARACTER,
+										/* 1507 */
+										/* U+22E4 */ CANT_MAP_CHARACTER,
+										/* 1508 */
+										/* U+22E5 */ CANT_MAP_CHARACTER,
+										/* 1509 */
+										/* U+22E6 */ CANT_MAP_CHARACTER,
+										/* 1510 */
+										/* U+22E7 */ CANT_MAP_CHARACTER,
+										/* 1511 */
+										/* U+22E8 */ CANT_MAP_CHARACTER,
+										/* 1512 */
+										/* U+22E9 */ CANT_MAP_CHARACTER,
+										/* 1513 */
+										/* U+22EA */ CANT_MAP_CHARACTER,
+										/* 1514 */
+										/* U+22EB */ CANT_MAP_CHARACTER,
+										/* 1515 */
+										/* U+22EC */ CANT_MAP_CHARACTER,
+										/* 1516 */
+										/* U+22ED */ CANT_MAP_CHARACTER,
+										/* 1517 */
+										/* U+22EE */ CANT_MAP_CHARACTER,
+										/* 1518 */
+										/* U+22EF */ CANT_MAP_CHARACTER,
+										/* 1519 */
+										/* U+22F0 */ CANT_MAP_CHARACTER,
+										/* 1520 */
+										/* U+22F1 */ CANT_MAP_CHARACTER,
+										/* 1521 */
+										/* U+22F2 */ CANT_MAP_CHARACTER,
+										/* 1522 */
+										/* U+22F3 */ CANT_MAP_CHARACTER,
+										/* 1523 */
+										/* U+22F4 */ CANT_MAP_CHARACTER,
+										/* 1524 */
+										/* U+22F5 */ CANT_MAP_CHARACTER,
+										/* 1525 */
+										/* U+22F6 */ CANT_MAP_CHARACTER,
+										/* 1526 */
+										/* U+22F7 */ CANT_MAP_CHARACTER,
+										/* 1527 */
+										/* U+22F8 */ CANT_MAP_CHARACTER,
+										/* 1528 */
+										/* U+22F9 */ CANT_MAP_CHARACTER,
+										/* 1529 */
+										/* U+22FA */ CANT_MAP_CHARACTER,
+										/* 1530 */
+										/* U+22FB */ CANT_MAP_CHARACTER,
+										/* 1531 */
+										/* U+22FC */ CANT_MAP_CHARACTER,
+										/* 1532 */
+										/* U+22FD */ CANT_MAP_CHARACTER,
+										/* 1533 */
+										/* U+22FE */ CANT_MAP_CHARACTER,
+										/* 1534 */
+										/* U+22FF */ CANT_MAP_CHARACTER,
+										/* 1535 */
+										/* U+2300 */ CANT_MAP_CHARACTER,
+										/* 1536 */
+										/* U+2301 */ CANT_MAP_CHARACTER,
+										/* 1537 */
+										/* U+2302 */ CANT_MAP_CHARACTER,
+										/* 1538 */
+										/* U+2303 */ CANT_MAP_CHARACTER,
+										/* 1539 */
+										/* U+2304 */ CANT_MAP_CHARACTER,
+										/* 1540 */
+										/* U+2305 */ CANT_MAP_CHARACTER,
+										/* 1541 */
+										/* U+2306 */ CANT_MAP_CHARACTER,
+										/* 1542 */
+										/* U+2307 */ CANT_MAP_CHARACTER,
+										/* 1543 */
+										/* U+2308 */ CANT_MAP_CHARACTER,
+										/* 1544 */
+										/* U+2309 */ CANT_MAP_CHARACTER,
+										/* 1545 */
+										/* U+230A */ CANT_MAP_CHARACTER,
+										/* 1546 */
+										/* U+230B */ CANT_MAP_CHARACTER,
+										/* 1547 */
+										/* U+230C */ CANT_MAP_CHARACTER,
+										/* 1548 */
+										/* U+230D */ CANT_MAP_CHARACTER,
+										/* 1549 */
+										/* U+230E */ CANT_MAP_CHARACTER,
+										/* 1550 */
+										/* U+230F */ CANT_MAP_CHARACTER,
+										/* 1551 */
+	/* U+2310 */ 0xA9 /*                             REVERSED NOT SIGN */ ,	/* 1552 */
+										/* U+2311 */ CANT_MAP_CHARACTER,
+										/* 1553 */
+										/* U+2312 */ CANT_MAP_CHARACTER,
+										/* 1554 */
+										/* U+2313 */ CANT_MAP_CHARACTER,
+										/* 1555 */
+										/* U+2314 */ CANT_MAP_CHARACTER,
+										/* 1556 */
+										/* U+2315 */ CANT_MAP_CHARACTER,
+										/* 1557 */
+										/* U+2316 */ CANT_MAP_CHARACTER,
+										/* 1558 */
+										/* U+2317 */ CANT_MAP_CHARACTER,
+										/* 1559 */
+										/* U+2318 */ CANT_MAP_CHARACTER,
+										/* 1560 */
+										/* U+2319 */ CANT_MAP_CHARACTER,
+										/* 1561 */
+										/* U+231A */ CANT_MAP_CHARACTER,
+										/* 1562 */
+										/* U+231B */ CANT_MAP_CHARACTER,
+										/* 1563 */
+										/* U+231C */ CANT_MAP_CHARACTER,
+										/* 1564 */
+										/* U+231D */ CANT_MAP_CHARACTER,
+										/* 1565 */
+										/* U+231E */ CANT_MAP_CHARACTER,
+										/* 1566 */
+										/* U+231F */ CANT_MAP_CHARACTER,
+										/* 1567 */
+	/* U+2320 */ 0xF4 /*                             TOP HALF INTEGRAL */ ,	/* 1568 */
+	/* U+2321 */ 0xF5 /*                          BOTTOM HALF INTEGRAL */ ,	/* 1569 */
+										/* U+2322 */ CANT_MAP_CHARACTER,
+										/* 1570 */
+										/* U+2323 */ CANT_MAP_CHARACTER,
+										/* 1571 */
+										/* U+2324 */ CANT_MAP_CHARACTER,
+										/* 1572 */
+										/* U+2325 */ CANT_MAP_CHARACTER,
+										/* 1573 */
+										/* U+2326 */ CANT_MAP_CHARACTER,
+										/* 1574 */
+										/* U+2327 */ CANT_MAP_CHARACTER,
+										/* 1575 */
+										/* U+2328 */ CANT_MAP_CHARACTER,
+										/* 1576 */
+										/* U+2329 */ CANT_MAP_CHARACTER,
+										/* 1577 */
+										/* U+232A */ CANT_MAP_CHARACTER,
+										/* 1578 */
+										/* U+232B */ CANT_MAP_CHARACTER,
+										/* 1579 */
+										/* U+232C */ CANT_MAP_CHARACTER,
+										/* 1580 */
+										/* U+232D */ CANT_MAP_CHARACTER,
+										/* 1581 */
+										/* U+232E */ CANT_MAP_CHARACTER,
+										/* 1582 */
+										/* U+232F */ CANT_MAP_CHARACTER,
+										/* 1583 */
+										/* U+2330 */ CANT_MAP_CHARACTER,
+										/* 1584 */
+										/* U+2331 */ CANT_MAP_CHARACTER,
+										/* 1585 */
+										/* U+2332 */ CANT_MAP_CHARACTER,
+										/* 1586 */
+										/* U+2333 */ CANT_MAP_CHARACTER,
+										/* 1587 */
+										/* U+2334 */ CANT_MAP_CHARACTER,
+										/* 1588 */
+										/* U+2335 */ CANT_MAP_CHARACTER,
+										/* 1589 */
+										/* U+2336 */ CANT_MAP_CHARACTER,
+										/* 1590 */
+										/* U+2337 */ CANT_MAP_CHARACTER,
+										/* 1591 */
+										/* U+2338 */ CANT_MAP_CHARACTER,
+										/* 1592 */
+										/* U+2339 */ CANT_MAP_CHARACTER,
+										/* 1593 */
+										/* U+233A */ CANT_MAP_CHARACTER,
+										/* 1594 */
+										/* U+233B */ CANT_MAP_CHARACTER,
+										/* 1595 */
+										/* U+233C */ CANT_MAP_CHARACTER,
+										/* 1596 */
+										/* U+233D */ CANT_MAP_CHARACTER,
+										/* 1597 */
+										/* U+233E */ CANT_MAP_CHARACTER,
+										/* 1598 */
+										/* U+233F */ CANT_MAP_CHARACTER,
+										/* 1599 */
+										/* U+2340 */ CANT_MAP_CHARACTER,
+										/* 1600 */
+										/* U+2341 */ CANT_MAP_CHARACTER,
+										/* 1601 */
+										/* U+2342 */ CANT_MAP_CHARACTER,
+										/* 1602 */
+										/* U+2343 */ CANT_MAP_CHARACTER,
+										/* 1603 */
+										/* U+2344 */ CANT_MAP_CHARACTER,
+										/* 1604 */
+										/* U+2345 */ CANT_MAP_CHARACTER,
+										/* 1605 */
+										/* U+2346 */ CANT_MAP_CHARACTER,
+										/* 1606 */
+										/* U+2347 */ CANT_MAP_CHARACTER,
+										/* 1607 */
+										/* U+2348 */ CANT_MAP_CHARACTER,
+										/* 1608 */
+										/* U+2349 */ CANT_MAP_CHARACTER,
+										/* 1609 */
+										/* U+234A */ CANT_MAP_CHARACTER,
+										/* 1610 */
+										/* U+234B */ CANT_MAP_CHARACTER,
+										/* 1611 */
+										/* U+234C */ CANT_MAP_CHARACTER,
+										/* 1612 */
+										/* U+234D */ CANT_MAP_CHARACTER,
+										/* 1613 */
+										/* U+234E */ CANT_MAP_CHARACTER,
+										/* 1614 */
+										/* U+234F */ CANT_MAP_CHARACTER,
+										/* 1615 */
+										/* U+2350 */ CANT_MAP_CHARACTER,
+										/* 1616 */
+										/* U+2351 */ CANT_MAP_CHARACTER,
+										/* 1617 */
+										/* U+2352 */ CANT_MAP_CHARACTER,
+										/* 1618 */
+										/* U+2353 */ CANT_MAP_CHARACTER,
+										/* 1619 */
+										/* U+2354 */ CANT_MAP_CHARACTER,
+										/* 1620 */
+										/* U+2355 */ CANT_MAP_CHARACTER,
+										/* 1621 */
+										/* U+2356 */ CANT_MAP_CHARACTER,
+										/* 1622 */
+										/* U+2357 */ CANT_MAP_CHARACTER,
+										/* 1623 */
+										/* U+2358 */ CANT_MAP_CHARACTER,
+										/* 1624 */
+										/* U+2359 */ CANT_MAP_CHARACTER,
+										/* 1625 */
+										/* U+235A */ CANT_MAP_CHARACTER,
+										/* 1626 */
+										/* U+235B */ CANT_MAP_CHARACTER,
+										/* 1627 */
+										/* U+235C */ CANT_MAP_CHARACTER,
+										/* 1628 */
+										/* U+235D */ CANT_MAP_CHARACTER,
+										/* 1629 */
+										/* U+235E */ CANT_MAP_CHARACTER,
+										/* 1630 */
+										/* U+235F */ CANT_MAP_CHARACTER,
+										/* 1631 */
+										/* U+2360 */ CANT_MAP_CHARACTER,
+										/* 1632 */
+										/* U+2361 */ CANT_MAP_CHARACTER,
+										/* 1633 */
+										/* U+2362 */ CANT_MAP_CHARACTER,
+										/* 1634 */
+										/* U+2363 */ CANT_MAP_CHARACTER,
+										/* 1635 */
+										/* U+2364 */ CANT_MAP_CHARACTER,
+										/* 1636 */
+										/* U+2365 */ CANT_MAP_CHARACTER,
+										/* 1637 */
+										/* U+2366 */ CANT_MAP_CHARACTER,
+										/* 1638 */
+										/* U+2367 */ CANT_MAP_CHARACTER,
+										/* 1639 */
+										/* U+2368 */ CANT_MAP_CHARACTER,
+										/* 1640 */
+										/* U+2369 */ CANT_MAP_CHARACTER,
+										/* 1641 */
+										/* U+236A */ CANT_MAP_CHARACTER,
+										/* 1642 */
+										/* U+236B */ CANT_MAP_CHARACTER,
+										/* 1643 */
+										/* U+236C */ CANT_MAP_CHARACTER,
+										/* 1644 */
+										/* U+236D */ CANT_MAP_CHARACTER,
+										/* 1645 */
+										/* U+236E */ CANT_MAP_CHARACTER,
+										/* 1646 */
+										/* U+236F */ CANT_MAP_CHARACTER,
+										/* 1647 */
+										/* U+2370 */ CANT_MAP_CHARACTER,
+										/* 1648 */
+										/* U+2371 */ CANT_MAP_CHARACTER,
+										/* 1649 */
+										/* U+2372 */ CANT_MAP_CHARACTER,
+										/* 1650 */
+										/* U+2373 */ CANT_MAP_CHARACTER,
+										/* 1651 */
+										/* U+2374 */ CANT_MAP_CHARACTER,
+										/* 1652 */
+										/* U+2375 */ CANT_MAP_CHARACTER,
+										/* 1653 */
+										/* U+2376 */ CANT_MAP_CHARACTER,
+										/* 1654 */
+										/* U+2377 */ CANT_MAP_CHARACTER,
+										/* 1655 */
+										/* U+2378 */ CANT_MAP_CHARACTER,
+										/* 1656 */
+										/* U+2379 */ CANT_MAP_CHARACTER,
+										/* 1657 */
+										/* U+237A */ CANT_MAP_CHARACTER,
+										/* 1658 */
+										/* U+237B */ CANT_MAP_CHARACTER,
+										/* 1659 */
+										/* U+237C */ CANT_MAP_CHARACTER,
+										/* 1660 */
+										/* U+237D */ CANT_MAP_CHARACTER,
+										/* 1661 */
+										/* U+237E */ CANT_MAP_CHARACTER,
+										/* 1662 */
+										/* U+237F */ CANT_MAP_CHARACTER,
+										/* 1663 */
+										/* U+2380 */ CANT_MAP_CHARACTER,
+										/* 1664 */
+										/* U+2381 */ CANT_MAP_CHARACTER,
+										/* 1665 */
+										/* U+2382 */ CANT_MAP_CHARACTER,
+										/* 1666 */
+										/* U+2383 */ CANT_MAP_CHARACTER,
+										/* 1667 */
+										/* U+2384 */ CANT_MAP_CHARACTER,
+										/* 1668 */
+										/* U+2385 */ CANT_MAP_CHARACTER,
+										/* 1669 */
+										/* U+2386 */ CANT_MAP_CHARACTER,
+										/* 1670 */
+										/* U+2387 */ CANT_MAP_CHARACTER,
+										/* 1671 */
+										/* U+2388 */ CANT_MAP_CHARACTER,
+										/* 1672 */
+										/* U+2389 */ CANT_MAP_CHARACTER,
+										/* 1673 */
+										/* U+238A */ CANT_MAP_CHARACTER,
+										/* 1674 */
+										/* U+238B */ CANT_MAP_CHARACTER,
+										/* 1675 */
+										/* U+238C */ CANT_MAP_CHARACTER,
+										/* 1676 */
+										/* U+238D */ CANT_MAP_CHARACTER,
+										/* 1677 */
+										/* U+238E */ CANT_MAP_CHARACTER,
+										/* 1678 */
+										/* U+238F */ CANT_MAP_CHARACTER,
+										/* 1679 */
+										/* U+2390 */ CANT_MAP_CHARACTER,
+										/* 1680 */
+										/* U+2391 */ CANT_MAP_CHARACTER,
+										/* 1681 */
+										/* U+2392 */ CANT_MAP_CHARACTER,
+										/* 1682 */
+										/* U+2393 */ CANT_MAP_CHARACTER,
+										/* 1683 */
+										/* U+2394 */ CANT_MAP_CHARACTER,
+										/* 1684 */
+										/* U+2395 */ CANT_MAP_CHARACTER,
+										/* 1685 */
+										/* U+2396 */ CANT_MAP_CHARACTER,
+										/* 1686 */
+										/* U+2397 */ CANT_MAP_CHARACTER,
+										/* 1687 */
+										/* U+2398 */ CANT_MAP_CHARACTER,
+										/* 1688 */
+										/* U+2399 */ CANT_MAP_CHARACTER,
+										/* 1689 */
+										/* U+239A */ CANT_MAP_CHARACTER,
+										/* 1690 */
+										/* U+239B */ CANT_MAP_CHARACTER,
+										/* 1691 */
+										/* U+239C */ CANT_MAP_CHARACTER,
+										/* 1692 */
+										/* U+239D */ CANT_MAP_CHARACTER,
+										/* 1693 */
+										/* U+239E */ CANT_MAP_CHARACTER,
+										/* 1694 */
+										/* U+239F */ CANT_MAP_CHARACTER,
+										/* 1695 */
+										/* U+23A0 */ CANT_MAP_CHARACTER,
+										/* 1696 */
+										/* U+23A1 */ CANT_MAP_CHARACTER,
+										/* 1697 */
+										/* U+23A2 */ CANT_MAP_CHARACTER,
+										/* 1698 */
+										/* U+23A3 */ CANT_MAP_CHARACTER,
+										/* 1699 */
+										/* U+23A4 */ CANT_MAP_CHARACTER,
+										/* 1700 */
+										/* U+23A5 */ CANT_MAP_CHARACTER,
+										/* 1701 */
+										/* U+23A6 */ CANT_MAP_CHARACTER,
+										/* 1702 */
+										/* U+23A7 */ CANT_MAP_CHARACTER,
+										/* 1703 */
+										/* U+23A8 */ CANT_MAP_CHARACTER,
+										/* 1704 */
+										/* U+23A9 */ CANT_MAP_CHARACTER,
+										/* 1705 */
+										/* U+23AA */ CANT_MAP_CHARACTER,
+										/* 1706 */
+										/* U+23AB */ CANT_MAP_CHARACTER,
+										/* 1707 */
+										/* U+23AC */ CANT_MAP_CHARACTER,
+										/* 1708 */
+										/* U+23AD */ CANT_MAP_CHARACTER,
+										/* 1709 */
+										/* U+23AE */ CANT_MAP_CHARACTER,
+										/* 1710 */
+										/* U+23AF */ CANT_MAP_CHARACTER,
+										/* 1711 */
+										/* U+23B0 */ CANT_MAP_CHARACTER,
+										/* 1712 */
+										/* U+23B1 */ CANT_MAP_CHARACTER,
+										/* 1713 */
+										/* U+23B2 */ CANT_MAP_CHARACTER,
+										/* 1714 */
+										/* U+23B3 */ CANT_MAP_CHARACTER,
+										/* 1715 */
+										/* U+23B4 */ CANT_MAP_CHARACTER,
+										/* 1716 */
+										/* U+23B5 */ CANT_MAP_CHARACTER,
+										/* 1717 */
+										/* U+23B6 */ CANT_MAP_CHARACTER,
+										/* 1718 */
+										/* U+23B7 */ CANT_MAP_CHARACTER,
+										/* 1719 */
+										/* U+23B8 */ CANT_MAP_CHARACTER,
+										/* 1720 */
+										/* U+23B9 */ CANT_MAP_CHARACTER,
+										/* 1721 */
+										/* U+23BA */ CANT_MAP_CHARACTER,
+										/* 1722 */
+										/* U+23BB */ CANT_MAP_CHARACTER,
+										/* 1723 */
+										/* U+23BC */ CANT_MAP_CHARACTER,
+										/* 1724 */
+										/* U+23BD */ CANT_MAP_CHARACTER,
+										/* 1725 */
+										/* U+23BE */ CANT_MAP_CHARACTER,
+										/* 1726 */
+										/* U+23BF */ CANT_MAP_CHARACTER,
+										/* 1727 */
+										/* U+23C0 */ CANT_MAP_CHARACTER,
+										/* 1728 */
+										/* U+23C1 */ CANT_MAP_CHARACTER,
+										/* 1729 */
+										/* U+23C2 */ CANT_MAP_CHARACTER,
+										/* 1730 */
+										/* U+23C3 */ CANT_MAP_CHARACTER,
+										/* 1731 */
+										/* U+23C4 */ CANT_MAP_CHARACTER,
+										/* 1732 */
+										/* U+23C5 */ CANT_MAP_CHARACTER,
+										/* 1733 */
+										/* U+23C6 */ CANT_MAP_CHARACTER,
+										/* 1734 */
+										/* U+23C7 */ CANT_MAP_CHARACTER,
+										/* 1735 */
+										/* U+23C8 */ CANT_MAP_CHARACTER,
+										/* 1736 */
+										/* U+23C9 */ CANT_MAP_CHARACTER,
+										/* 1737 */
+										/* U+23CA */ CANT_MAP_CHARACTER,
+										/* 1738 */
+										/* U+23CB */ CANT_MAP_CHARACTER,
+										/* 1739 */
+										/* U+23CC */ CANT_MAP_CHARACTER,
+										/* 1740 */
+										/* U+23CD */ CANT_MAP_CHARACTER,
+										/* 1741 */
+										/* U+23CE */ CANT_MAP_CHARACTER,
+										/* 1742 */
+										/* U+23CF */ CANT_MAP_CHARACTER,
+										/* 1743 */
+										/* U+23D0 */ CANT_MAP_CHARACTER,
+										/* 1744 */
+										/* U+23D1 */ CANT_MAP_CHARACTER,
+										/* 1745 */
+										/* U+23D2 */ CANT_MAP_CHARACTER,
+										/* 1746 */
+										/* U+23D3 */ CANT_MAP_CHARACTER,
+										/* 1747 */
+										/* U+23D4 */ CANT_MAP_CHARACTER,
+										/* 1748 */
+										/* U+23D5 */ CANT_MAP_CHARACTER,
+										/* 1749 */
+										/* U+23D6 */ CANT_MAP_CHARACTER,
+										/* 1750 */
+										/* U+23D7 */ CANT_MAP_CHARACTER,
+										/* 1751 */
+										/* U+23D8 */ CANT_MAP_CHARACTER,
+										/* 1752 */
+										/* U+23D9 */ CANT_MAP_CHARACTER,
+										/* 1753 */
+										/* U+23DA */ CANT_MAP_CHARACTER,
+										/* 1754 */
+										/* U+23DB */ CANT_MAP_CHARACTER,
+										/* 1755 */
+										/* U+23DC */ CANT_MAP_CHARACTER,
+										/* 1756 */
+										/* U+23DD */ CANT_MAP_CHARACTER,
+										/* 1757 */
+										/* U+23DE */ CANT_MAP_CHARACTER,
+										/* 1758 */
+										/* U+23DF */ CANT_MAP_CHARACTER,
+										/* 1759 */
+										/* U+23E0 */ CANT_MAP_CHARACTER,
+										/* 1760 */
+										/* U+23E1 */ CANT_MAP_CHARACTER,
+										/* 1761 */
+										/* U+23E2 */ CANT_MAP_CHARACTER,
+										/* 1762 */
+										/* U+23E3 */ CANT_MAP_CHARACTER,
+										/* 1763 */
+										/* U+23E4 */ CANT_MAP_CHARACTER,
+										/* 1764 */
+										/* U+23E5 */ CANT_MAP_CHARACTER,
+										/* 1765 */
+										/* U+23E6 */ CANT_MAP_CHARACTER,
+										/* 1766 */
+										/* U+23E7 */ CANT_MAP_CHARACTER,
+										/* 1767 */
+										/* U+23E8 */ CANT_MAP_CHARACTER,
+										/* 1768 */
+										/* U+23E9 */ CANT_MAP_CHARACTER,
+										/* 1769 */
+										/* U+23EA */ CANT_MAP_CHARACTER,
+										/* 1770 */
+										/* U+23EB */ CANT_MAP_CHARACTER,
+										/* 1771 */
+										/* U+23EC */ CANT_MAP_CHARACTER,
+										/* 1772 */
+										/* U+23ED */ CANT_MAP_CHARACTER,
+										/* 1773 */
+										/* U+23EE */ CANT_MAP_CHARACTER,
+										/* 1774 */
+										/* U+23EF */ CANT_MAP_CHARACTER,
+										/* 1775 */
+										/* U+23F0 */ CANT_MAP_CHARACTER,
+										/* 1776 */
+										/* U+23F1 */ CANT_MAP_CHARACTER,
+										/* 1777 */
+										/* U+23F2 */ CANT_MAP_CHARACTER,
+										/* 1778 */
+										/* U+23F3 */ CANT_MAP_CHARACTER,
+										/* 1779 */
+										/* U+23F4 */ CANT_MAP_CHARACTER,
+										/* 1780 */
+										/* U+23F5 */ CANT_MAP_CHARACTER,
+										/* 1781 */
+										/* U+23F6 */ CANT_MAP_CHARACTER,
+										/* 1782 */
+										/* U+23F7 */ CANT_MAP_CHARACTER,
+										/* 1783 */
+										/* U+23F8 */ CANT_MAP_CHARACTER,
+										/* 1784 */
+										/* U+23F9 */ CANT_MAP_CHARACTER,
+										/* 1785 */
+										/* U+23FA */ CANT_MAP_CHARACTER,
+										/* 1786 */
+										/* U+23FB */ CANT_MAP_CHARACTER,
+										/* 1787 */
+										/* U+23FC */ CANT_MAP_CHARACTER,
+										/* 1788 */
+										/* U+23FD */ CANT_MAP_CHARACTER,
+										/* 1789 */
+										/* U+23FE */ CANT_MAP_CHARACTER,
+										/* 1790 */
+										/* U+23FF */ CANT_MAP_CHARACTER,
+										/* 1791 */
+	/* U+2500 */ 0xC4 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,	/* 1792 */
+										/* U+2501 */ CANT_MAP_CHARACTER,
+										/* 1793 */
+	/* U+2502 */ 0xB3 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,	/* 1794 */
+										/* U+2503 */ CANT_MAP_CHARACTER,
+										/* 1795 */
+										/* U+2504 */ CANT_MAP_CHARACTER,
+										/* 1796 */
+										/* U+2505 */ CANT_MAP_CHARACTER,
+										/* 1797 */
+										/* U+2506 */ CANT_MAP_CHARACTER,
+										/* 1798 */
+										/* U+2507 */ CANT_MAP_CHARACTER,
+										/* 1799 */
+										/* U+2508 */ CANT_MAP_CHARACTER,
+										/* 1800 */
+										/* U+2509 */ CANT_MAP_CHARACTER,
+										/* 1801 */
+										/* U+250A */ CANT_MAP_CHARACTER,
+										/* 1802 */
+										/* U+250B */ CANT_MAP_CHARACTER,
+										/* 1803 */
+	/* U+250C */ 0xDA /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,	/* 1804 */
+										/* U+250D */ CANT_MAP_CHARACTER,
+										/* 1805 */
+										/* U+250E */ CANT_MAP_CHARACTER,
+										/* 1806 */
+										/* U+250F */ CANT_MAP_CHARACTER,
+										/* 1807 */
+	/* U+2510 */ 0xBF /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,	/* 1808 */
+										/* U+2511 */ CANT_MAP_CHARACTER,
+										/* 1809 */
+										/* U+2512 */ CANT_MAP_CHARACTER,
+										/* 1810 */
+										/* U+2513 */ CANT_MAP_CHARACTER,
+										/* 1811 */
+	/* U+2514 */ 0xC0 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,	/* 1812 */
+										/* U+2515 */ CANT_MAP_CHARACTER,
+										/* 1813 */
+										/* U+2516 */ CANT_MAP_CHARACTER,
+										/* 1814 */
+										/* U+2517 */ CANT_MAP_CHARACTER,
+										/* 1815 */
+	/* U+2518 */ 0xD9 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,	/* 1816 */
+										/* U+2519 */ CANT_MAP_CHARACTER,
+										/* 1817 */
+										/* U+251A */ CANT_MAP_CHARACTER,
+										/* 1818 */
+										/* U+251B */ CANT_MAP_CHARACTER,
+										/* 1819 */
+	/* U+251C */ 0xC3 /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,	/* 1820 */
+										/* U+251D */ CANT_MAP_CHARACTER,
+										/* 1821 */
+										/* U+251E */ CANT_MAP_CHARACTER,
+										/* 1822 */
+										/* U+251F */ CANT_MAP_CHARACTER,
+										/* 1823 */
+										/* U+2520 */ CANT_MAP_CHARACTER,
+										/* 1824 */
+										/* U+2521 */ CANT_MAP_CHARACTER,
+										/* 1825 */
+										/* U+2522 */ CANT_MAP_CHARACTER,
+										/* 1826 */
+										/* U+2523 */ CANT_MAP_CHARACTER,
+										/* 1827 */
+	/* U+2524 */ 0xB4 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,	/* 1828 */
+										/* U+2525 */ CANT_MAP_CHARACTER,
+										/* 1829 */
+										/* U+2526 */ CANT_MAP_CHARACTER,
+										/* 1830 */
+										/* U+2527 */ CANT_MAP_CHARACTER,
+										/* 1831 */
+										/* U+2528 */ CANT_MAP_CHARACTER,
+										/* 1832 */
+										/* U+2529 */ CANT_MAP_CHARACTER,
+										/* 1833 */
+										/* U+252A */ CANT_MAP_CHARACTER,
+										/* 1834 */
+										/* U+252B */ CANT_MAP_CHARACTER,
+										/* 1835 */
+	/* U+252C */ 0xC2 /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,	/* 1836 */
+										/* U+252D */ CANT_MAP_CHARACTER,
+										/* 1837 */
+										/* U+252E */ CANT_MAP_CHARACTER,
+										/* 1838 */
+										/* U+252F */ CANT_MAP_CHARACTER,
+										/* 1839 */
+										/* U+2530 */ CANT_MAP_CHARACTER,
+										/* 1840 */
+										/* U+2531 */ CANT_MAP_CHARACTER,
+										/* 1841 */
+										/* U+2532 */ CANT_MAP_CHARACTER,
+										/* 1842 */
+										/* U+2533 */ CANT_MAP_CHARACTER,
+										/* 1843 */
+	/* U+2534 */ 0xC1 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,	/* 1844 */
+										/* U+2535 */ CANT_MAP_CHARACTER,
+										/* 1845 */
+										/* U+2536 */ CANT_MAP_CHARACTER,
+										/* 1846 */
+										/* U+2537 */ CANT_MAP_CHARACTER,
+										/* 1847 */
+										/* U+2538 */ CANT_MAP_CHARACTER,
+										/* 1848 */
+										/* U+2539 */ CANT_MAP_CHARACTER,
+										/* 1849 */
+										/* U+253A */ CANT_MAP_CHARACTER,
+										/* 1850 */
+										/* U+253B */ CANT_MAP_CHARACTER,
+										/* 1851 */
+	/* U+253C */ 0xC5 /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,	/* 1852 */
+										/* U+253D */ CANT_MAP_CHARACTER,
+										/* 1853 */
+										/* U+253E */ CANT_MAP_CHARACTER,
+										/* 1854 */
+										/* U+253F */ CANT_MAP_CHARACTER,
+										/* 1855 */
+										/* U+2540 */ CANT_MAP_CHARACTER,
+										/* 1856 */
+										/* U+2541 */ CANT_MAP_CHARACTER,
+										/* 1857 */
+										/* U+2542 */ CANT_MAP_CHARACTER,
+										/* 1858 */
+										/* U+2543 */ CANT_MAP_CHARACTER,
+										/* 1859 */
+										/* U+2544 */ CANT_MAP_CHARACTER,
+										/* 1860 */
+										/* U+2545 */ CANT_MAP_CHARACTER,
+										/* 1861 */
+										/* U+2546 */ CANT_MAP_CHARACTER,
+										/* 1862 */
+										/* U+2547 */ CANT_MAP_CHARACTER,
+										/* 1863 */
+										/* U+2548 */ CANT_MAP_CHARACTER,
+										/* 1864 */
+										/* U+2549 */ CANT_MAP_CHARACTER,
+										/* 1865 */
+										/* U+254A */ CANT_MAP_CHARACTER,
+										/* 1866 */
+										/* U+254B */ CANT_MAP_CHARACTER,
+										/* 1867 */
+										/* U+254C */ CANT_MAP_CHARACTER,
+										/* 1868 */
+										/* U+254D */ CANT_MAP_CHARACTER,
+										/* 1869 */
+										/* U+254E */ CANT_MAP_CHARACTER,
+										/* 1870 */
+										/* U+254F */ CANT_MAP_CHARACTER,
+										/* 1871 */
+	/* U+2550 */ 0xCD /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,	/* 1872 */
+	/* U+2551 */ 0xBA /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,	/* 1873 */
+	/* U+2552 */ 0xD5 /*     BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE */ ,	/* 1874 */
+	/* U+2553 */ 0xD6 /*     BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE */ ,	/* 1875 */
+	/* U+2554 */ 0xC9 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,	/* 1876 */
+	/* U+2555 */ 0xB8 /*      BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE */ ,	/* 1877 */
+	/* U+2556 */ 0xB7 /*      BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE */ ,	/* 1878 */
+	/* U+2557 */ 0xBB /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,	/* 1879 */
+	/* U+2558 */ 0xD4 /*       BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE */ ,	/* 1880 */
+	/* U+2559 */ 0xD3 /*       BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE */ ,	/* 1881 */
+	/* U+255A */ 0xC8 /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,	/* 1882 */
+	/* U+255B */ 0xBE /*        BOX DRAWINGS UP SINGLE AND LEFT DOUBLE */ ,	/* 1883 */
+	/* U+255C */ 0xBD /*        BOX DRAWINGS UP DOUBLE AND LEFT SINGLE */ ,	/* 1884 */
+	/* U+255D */ 0xBC /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,	/* 1885 */
+	/* U+255E */ 0xC6 /* BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE */ ,	/* 1886 */
+	/* U+255F */ 0xC7 /* BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE */ ,	/* 1887 */
+	/* U+2560 */ 0xCC /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,	/* 1888 */
+	/* U+2561 */ 0xB5 /*  BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE */ ,	/* 1889 */
+	/* U+2562 */ 0xB6 /*  BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE */ ,	/* 1890 */
+	/* U+2563 */ 0xB9 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,	/* 1891 */
+	/* U+2564 */ 0xD1 /* BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1892 */
+	/* U+2565 */ 0xD2 /* BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1893 */
+	/* U+2566 */ 0xCB /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,	/* 1894 */
+	/* U+2567 */ 0xCF /*  BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1895 */
+	/* U+2568 */ 0xD0 /*  BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1896 */
+	/* U+2569 */ 0xCA /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,	/* 1897 */
+	/* U+256A */ 0xD8 /* BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1898 */
+	/* U+256B */ 0xD7 /* BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1899 */
+	/* U+256C */ 0xCE /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,	/* 1900 */
+										/* U+256D */ CANT_MAP_CHARACTER,
+										/* 1901 */
+										/* U+256E */ CANT_MAP_CHARACTER,
+										/* 1902 */
+										/* U+256F */ CANT_MAP_CHARACTER,
+										/* 1903 */
+										/* U+2570 */ CANT_MAP_CHARACTER,
+										/* 1904 */
+										/* U+2571 */ CANT_MAP_CHARACTER,
+										/* 1905 */
+										/* U+2572 */ CANT_MAP_CHARACTER,
+										/* 1906 */
+										/* U+2573 */ CANT_MAP_CHARACTER,
+										/* 1907 */
+										/* U+2574 */ CANT_MAP_CHARACTER,
+										/* 1908 */
+										/* U+2575 */ CANT_MAP_CHARACTER,
+										/* 1909 */
+										/* U+2576 */ CANT_MAP_CHARACTER,
+										/* 1910 */
+										/* U+2577 */ CANT_MAP_CHARACTER,
+										/* 1911 */
+										/* U+2578 */ CANT_MAP_CHARACTER,
+										/* 1912 */
+										/* U+2579 */ CANT_MAP_CHARACTER,
+										/* 1913 */
+										/* U+257A */ CANT_MAP_CHARACTER,
+										/* 1914 */
+										/* U+257B */ CANT_MAP_CHARACTER,
+										/* 1915 */
+										/* U+257C */ CANT_MAP_CHARACTER,
+										/* 1916 */
+										/* U+257D */ CANT_MAP_CHARACTER,
+										/* 1917 */
+										/* U+257E */ CANT_MAP_CHARACTER,
+										/* 1918 */
+										/* U+257F */ CANT_MAP_CHARACTER,
+										/* 1919 */
+	/* U+2580 */ 0xDF /*                              UPPER HALF BLOCK */ ,	/* 1920 */
+										/* U+2581 */ CANT_MAP_CHARACTER,
+										/* 1921 */
+										/* U+2582 */ CANT_MAP_CHARACTER,
+										/* 1922 */
+										/* U+2583 */ CANT_MAP_CHARACTER,
+										/* 1923 */
+	/* U+2584 */ 0xDC /*                              LOWER HALF BLOCK */ ,	/* 1924 */
+										/* U+2585 */ CANT_MAP_CHARACTER,
+										/* 1925 */
+										/* U+2586 */ CANT_MAP_CHARACTER,
+										/* 1926 */
+										/* U+2587 */ CANT_MAP_CHARACTER,
+										/* 1927 */
+	/* U+2588 */ 0xDB /*                                    FULL BLOCK */ ,	/* 1928 */
+										/* U+2589 */ CANT_MAP_CHARACTER,
+										/* 1929 */
+										/* U+258A */ CANT_MAP_CHARACTER,
+										/* 1930 */
+										/* U+258B */ CANT_MAP_CHARACTER,
+										/* 1931 */
+	/* U+258C */ 0xDD /*                               LEFT HALF BLOCK */ ,	/* 1932 */
+										/* U+258D */ CANT_MAP_CHARACTER,
+										/* 1933 */
+										/* U+258E */ CANT_MAP_CHARACTER,
+										/* 1934 */
+										/* U+258F */ CANT_MAP_CHARACTER,
+										/* 1935 */
+	/* U+2590 */ 0xDE /*                              RIGHT HALF BLOCK */ ,	/* 1936 */
+	/* U+2591 */ 0xB0 /*                                   LIGHT SHADE */ ,	/* 1937 */
+	/* U+2592 */ 0xB1 /*                                  MEDIUM SHADE */ ,	/* 1938 */
+	/* U+2593 */ 0xB2 /*                                    DARK SHADE */ ,	/* 1939 */
+										/* U+2594 */ CANT_MAP_CHARACTER,
+										/* 1940 */
+										/* U+2595 */ CANT_MAP_CHARACTER,
+										/* 1941 */
+										/* U+2596 */ CANT_MAP_CHARACTER,
+										/* 1942 */
+										/* U+2597 */ CANT_MAP_CHARACTER,
+										/* 1943 */
+										/* U+2598 */ CANT_MAP_CHARACTER,
+										/* 1944 */
+										/* U+2599 */ CANT_MAP_CHARACTER,
+										/* 1945 */
+										/* U+259A */ CANT_MAP_CHARACTER,
+										/* 1946 */
+										/* U+259B */ CANT_MAP_CHARACTER,
+										/* 1947 */
+										/* U+259C */ CANT_MAP_CHARACTER,
+										/* 1948 */
+										/* U+259D */ CANT_MAP_CHARACTER,
+										/* 1949 */
+										/* U+259E */ CANT_MAP_CHARACTER,
+										/* 1950 */
+										/* U+259F */ CANT_MAP_CHARACTER,
+										/* 1951 */
+	/* U+25A0 */ 0xFE /*                                  BLACK SQUARE */ ,	/* 1952 */
+										/* U+25A1 */ CANT_MAP_CHARACTER,
+										/* 1953 */
+										/* U+25A2 */ CANT_MAP_CHARACTER,
+										/* 1954 */
+										/* U+25A3 */ CANT_MAP_CHARACTER,
+										/* 1955 */
+										/* U+25A4 */ CANT_MAP_CHARACTER,
+										/* 1956 */
+										/* U+25A5 */ CANT_MAP_CHARACTER,
+										/* 1957 */
+										/* U+25A6 */ CANT_MAP_CHARACTER,
+										/* 1958 */
+										/* U+25A7 */ CANT_MAP_CHARACTER,
+										/* 1959 */
+										/* U+25A8 */ CANT_MAP_CHARACTER,
+										/* 1960 */
+										/* U+25A9 */ CANT_MAP_CHARACTER,
+										/* 1961 */
+										/* U+25AA */ CANT_MAP_CHARACTER,
+										/* 1962 */
+										/* U+25AB */ CANT_MAP_CHARACTER,
+										/* 1963 */
+										/* U+25AC */ CANT_MAP_CHARACTER,
+										/* 1964 */
+										/* U+25AD */ CANT_MAP_CHARACTER,
+										/* 1965 */
+										/* U+25AE */ CANT_MAP_CHARACTER,
+										/* 1966 */
+										/* U+25AF */ CANT_MAP_CHARACTER,
+										/* 1967 */
+										/* U+25B0 */ CANT_MAP_CHARACTER,
+										/* 1968 */
+										/* U+25B1 */ CANT_MAP_CHARACTER,
+										/* 1969 */
+										/* U+25B2 */ CANT_MAP_CHARACTER,
+										/* 1970 */
+										/* U+25B3 */ CANT_MAP_CHARACTER,
+										/* 1971 */
+										/* U+25B4 */ CANT_MAP_CHARACTER,
+										/* 1972 */
+										/* U+25B5 */ CANT_MAP_CHARACTER,
+										/* 1973 */
+										/* U+25B6 */ CANT_MAP_CHARACTER,
+										/* 1974 */
+										/* U+25B7 */ CANT_MAP_CHARACTER,
+										/* 1975 */
+										/* U+25B8 */ CANT_MAP_CHARACTER,
+										/* 1976 */
+										/* U+25B9 */ CANT_MAP_CHARACTER,
+										/* 1977 */
+										/* U+25BA */ CANT_MAP_CHARACTER,
+										/* 1978 */
+										/* U+25BB */ CANT_MAP_CHARACTER,
+										/* 1979 */
+										/* U+25BC */ CANT_MAP_CHARACTER,
+										/* 1980 */
+										/* U+25BD */ CANT_MAP_CHARACTER,
+										/* 1981 */
+										/* U+25BE */ CANT_MAP_CHARACTER,
+										/* 1982 */
+										/* U+25BF */ CANT_MAP_CHARACTER,
+										/* 1983 */
+										/* U+25C0 */ CANT_MAP_CHARACTER,
+										/* 1984 */
+										/* U+25C1 */ CANT_MAP_CHARACTER,
+										/* 1985 */
+										/* U+25C2 */ CANT_MAP_CHARACTER,
+										/* 1986 */
+										/* U+25C3 */ CANT_MAP_CHARACTER,
+										/* 1987 */
+										/* U+25C4 */ CANT_MAP_CHARACTER,
+										/* 1988 */
+										/* U+25C5 */ CANT_MAP_CHARACTER,
+										/* 1989 */
+										/* U+25C6 */ CANT_MAP_CHARACTER,
+										/* 1990 */
+										/* U+25C7 */ CANT_MAP_CHARACTER,
+										/* 1991 */
+										/* U+25C8 */ CANT_MAP_CHARACTER,
+										/* 1992 */
+										/* U+25C9 */ CANT_MAP_CHARACTER,
+										/* 1993 */
+										/* U+25CA */ CANT_MAP_CHARACTER,
+										/* 1994 */
+										/* U+25CB */ CANT_MAP_CHARACTER,
+										/* 1995 */
+										/* U+25CC */ CANT_MAP_CHARACTER,
+										/* 1996 */
+										/* U+25CD */ CANT_MAP_CHARACTER,
+										/* 1997 */
+										/* U+25CE */ CANT_MAP_CHARACTER,
+										/* 1998 */
+										/* U+25CF */ CANT_MAP_CHARACTER,
+										/* 1999 */
+										/* U+25D0 */ CANT_MAP_CHARACTER,
+										/* 2000 */
+										/* U+25D1 */ CANT_MAP_CHARACTER,
+										/* 2001 */
+										/* U+25D2 */ CANT_MAP_CHARACTER,
+										/* 2002 */
+										/* U+25D3 */ CANT_MAP_CHARACTER,
+										/* 2003 */
+										/* U+25D4 */ CANT_MAP_CHARACTER,
+										/* 2004 */
+										/* U+25D5 */ CANT_MAP_CHARACTER,
+										/* 2005 */
+										/* U+25D6 */ CANT_MAP_CHARACTER,
+										/* 2006 */
+										/* U+25D7 */ CANT_MAP_CHARACTER,
+										/* 2007 */
+										/* U+25D8 */ CANT_MAP_CHARACTER,
+										/* 2008 */
+										/* U+25D9 */ CANT_MAP_CHARACTER,
+										/* 2009 */
+										/* U+25DA */ CANT_MAP_CHARACTER,
+										/* 2010 */
+										/* U+25DB */ CANT_MAP_CHARACTER,
+										/* 2011 */
+										/* U+25DC */ CANT_MAP_CHARACTER,
+										/* 2012 */
+										/* U+25DD */ CANT_MAP_CHARACTER,
+										/* 2013 */
+										/* U+25DE */ CANT_MAP_CHARACTER,
+										/* 2014 */
+										/* U+25DF */ CANT_MAP_CHARACTER,
+										/* 2015 */
+										/* U+25E0 */ CANT_MAP_CHARACTER,
+										/* 2016 */
+										/* U+25E1 */ CANT_MAP_CHARACTER,
+										/* 2017 */
+										/* U+25E2 */ CANT_MAP_CHARACTER,
+										/* 2018 */
+										/* U+25E3 */ CANT_MAP_CHARACTER,
+										/* 2019 */
+										/* U+25E4 */ CANT_MAP_CHARACTER,
+										/* 2020 */
+										/* U+25E5 */ CANT_MAP_CHARACTER,
+										/* 2021 */
+										/* U+25E6 */ CANT_MAP_CHARACTER,
+										/* 2022 */
+										/* U+25E7 */ CANT_MAP_CHARACTER,
+										/* 2023 */
+										/* U+25E8 */ CANT_MAP_CHARACTER,
+										/* 2024 */
+										/* U+25E9 */ CANT_MAP_CHARACTER,
+										/* 2025 */
+										/* U+25EA */ CANT_MAP_CHARACTER,
+										/* 2026 */
+										/* U+25EB */ CANT_MAP_CHARACTER,
+										/* 2027 */
+										/* U+25EC */ CANT_MAP_CHARACTER,
+										/* 2028 */
+										/* U+25ED */ CANT_MAP_CHARACTER,
+										/* 2029 */
+										/* U+25EE */ CANT_MAP_CHARACTER,
+										/* 2030 */
+										/* U+25EF */ CANT_MAP_CHARACTER,
+										/* 2031 */
+										/* U+25F0 */ CANT_MAP_CHARACTER,
+										/* 2032 */
+										/* U+25F1 */ CANT_MAP_CHARACTER,
+										/* 2033 */
+										/* U+25F2 */ CANT_MAP_CHARACTER,
+										/* 2034 */
+										/* U+25F3 */ CANT_MAP_CHARACTER,
+										/* 2035 */
+										/* U+25F4 */ CANT_MAP_CHARACTER,
+										/* 2036 */
+										/* U+25F5 */ CANT_MAP_CHARACTER,
+										/* 2037 */
+										/* U+25F6 */ CANT_MAP_CHARACTER,
+										/* 2038 */
+										/* U+25F7 */ CANT_MAP_CHARACTER,
+										/* 2039 */
+										/* U+25F8 */ CANT_MAP_CHARACTER,
+										/* 2040 */
+										/* U+25F9 */ CANT_MAP_CHARACTER,
+										/* 2041 */
+										/* U+25FA */ CANT_MAP_CHARACTER,
+										/* 2042 */
+										/* U+25FB */ CANT_MAP_CHARACTER,
+										/* 2043 */
+										/* U+25FC */ CANT_MAP_CHARACTER,
+										/* 2044 */
+										/* U+25FD */ CANT_MAP_CHARACTER,
+										/* 2045 */
+										/* U+25FE */ CANT_MAP_CHARACTER,
+										/* 2046 */
+										/* U+25FF */ CANT_MAP_CHARACTER,
+										/* 2047 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 512,
+/* U+02-- */ 0,
+/* U+03-- */ 768,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 1024,
+/* U+21-- */ 0,
+/* U+22-- */ 1280,
+/* U+23-- */ 1536,
+/* U+24-- */ 0,
+/* U+25-- */ 1792,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_865.h b/src/intl/cs_865.h
new file mode 100644
index 0000000000..ebcf0f43db
--- /dev/null
+++ b/src/intl/cs_865.h
@@ -0,0 +1,4662 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/PC/CP865.TXT 
+
+#
+#    Name:     cp865_DOSNordic to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/24/96
+#    Authors:       Lori Brownell <loribr@microsoft.com>
+#                   K.D. Chang    <a-kchang@microsoft.com>
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp865_DOSNordic code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp865_DOSNordic order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0a	0x000a	#LINE FEED
+0x0b	0x000b	#VERTICAL TABULATION
+0x0c	0x000c	#FORM FEED
+0x0d	0x000d	#CARRIAGE RETURN
+0x0e	0x000e	#SHIFT OUT
+0x0f	0x000f	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1a	0x001a	#SUBSTITUTE
+0x1b	0x001b	#ESCAPE
+0x1c	0x001c	#FILE SEPARATOR
+0x1d	0x001d	#GROUP SEPARATOR
+0x1e	0x001e	#RECORD SEPARATOR
+0x1f	0x001f	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2a	0x002a	#ASTERISK
+0x2b	0x002b	#PLUS SIGN
+0x2c	0x002c	#COMMA
+0x2d	0x002d	#HYPHEN-MINUS
+0x2e	0x002e	#FULL STOP
+0x2f	0x002f	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3a	0x003a	#COLON
+0x3b	0x003b	#SEMICOLON
+0x3c	0x003c	#LESS-THAN SIGN
+0x3d	0x003d	#EQUALS SIGN
+0x3e	0x003e	#GREATER-THAN SIGN
+0x3f	0x003f	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4a	0x004a	#LATIN CAPITAL LETTER J
+0x4b	0x004b	#LATIN CAPITAL LETTER K
+0x4c	0x004c	#LATIN CAPITAL LETTER L
+0x4d	0x004d	#LATIN CAPITAL LETTER M
+0x4e	0x004e	#LATIN CAPITAL LETTER N
+0x4f	0x004f	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5a	0x005a	#LATIN CAPITAL LETTER Z
+0x5b	0x005b	#LEFT SQUARE BRACKET
+0x5c	0x005c	#REVERSE SOLIDUS
+0x5d	0x005d	#RIGHT SQUARE BRACKET
+0x5e	0x005e	#CIRCUMFLEX ACCENT
+0x5f	0x005f	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6a	0x006a	#LATIN SMALL LETTER J
+0x6b	0x006b	#LATIN SMALL LETTER K
+0x6c	0x006c	#LATIN SMALL LETTER L
+0x6d	0x006d	#LATIN SMALL LETTER M
+0x6e	0x006e	#LATIN SMALL LETTER N
+0x6f	0x006f	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7a	0x007a	#LATIN SMALL LETTER Z
+0x7b	0x007b	#LEFT CURLY BRACKET
+0x7c	0x007c	#VERTICAL LINE
+0x7d	0x007d	#RIGHT CURLY BRACKET
+0x7e	0x007e	#TILDE
+0x7f	0x007f	#DELETE
+0x80	0x00c7	#LATIN CAPITAL LETTER C WITH CEDILLA
+0x81	0x00fc	#LATIN SMALL LETTER U WITH DIAERESIS
+0x82	0x00e9	#LATIN SMALL LETTER E WITH ACUTE
+0x83	0x00e2	#LATIN SMALL LETTER A WITH CIRCUMFLEX
+0x84	0x00e4	#LATIN SMALL LETTER A WITH DIAERESIS
+0x85	0x00e0	#LATIN SMALL LETTER A WITH GRAVE
+0x86	0x00e5	#LATIN SMALL LETTER A WITH RING ABOVE
+0x87	0x00e7	#LATIN SMALL LETTER C WITH CEDILLA
+0x88	0x00ea	#LATIN SMALL LETTER E WITH CIRCUMFLEX
+0x89	0x00eb	#LATIN SMALL LETTER E WITH DIAERESIS
+0x8a	0x00e8	#LATIN SMALL LETTER E WITH GRAVE
+0x8b	0x00ef	#LATIN SMALL LETTER I WITH DIAERESIS
+0x8c	0x00ee	#LATIN SMALL LETTER I WITH CIRCUMFLEX
+0x8d	0x00ec	#LATIN SMALL LETTER I WITH GRAVE
+0x8e	0x00c4	#LATIN CAPITAL LETTER A WITH DIAERESIS
+0x8f	0x00c5	#LATIN CAPITAL LETTER A WITH RING ABOVE
+0x90	0x00c9	#LATIN CAPITAL LETTER E WITH ACUTE
+0x91	0x00e6	#LATIN SMALL LIGATURE AE
+0x92	0x00c6	#LATIN CAPITAL LIGATURE AE
+0x93	0x00f4	#LATIN SMALL LETTER O WITH CIRCUMFLEX
+0x94	0x00f6	#LATIN SMALL LETTER O WITH DIAERESIS
+0x95	0x00f2	#LATIN SMALL LETTER O WITH GRAVE
+0x96	0x00fb	#LATIN SMALL LETTER U WITH CIRCUMFLEX
+0x97	0x00f9	#LATIN SMALL LETTER U WITH GRAVE
+0x98	0x00ff	#LATIN SMALL LETTER Y WITH DIAERESIS
+0x99	0x00d6	#LATIN CAPITAL LETTER O WITH DIAERESIS
+0x9a	0x00dc	#LATIN CAPITAL LETTER U WITH DIAERESIS
+0x9b	0x00f8	#LATIN SMALL LETTER O WITH STROKE
+0x9c	0x00a3	#POUND SIGN
+0x9d	0x00d8	#LATIN CAPITAL LETTER O WITH STROKE
+0x9e	0x20a7	#PESETA SIGN
+0x9f	0x0192	#LATIN SMALL LETTER F WITH HOOK
+0xa0	0x00e1	#LATIN SMALL LETTER A WITH ACUTE
+0xa1	0x00ed	#LATIN SMALL LETTER I WITH ACUTE
+0xa2	0x00f3	#LATIN SMALL LETTER O WITH ACUTE
+0xa3	0x00fa	#LATIN SMALL LETTER U WITH ACUTE
+0xa4	0x00f1	#LATIN SMALL LETTER N WITH TILDE
+0xa5	0x00d1	#LATIN CAPITAL LETTER N WITH TILDE
+0xa6	0x00aa	#FEMININE ORDINAL INDICATOR
+0xa7	0x00ba	#MASCULINE ORDINAL INDICATOR
+0xa8	0x00bf	#INVERTED QUESTION MARK
+0xa9	0x2310	#REVERSED NOT SIGN
+0xaa	0x00ac	#NOT SIGN
+0xab	0x00bd	#VULGAR FRACTION ONE HALF
+0xac	0x00bc	#VULGAR FRACTION ONE QUARTER
+0xad	0x00a1	#INVERTED EXCLAMATION MARK
+0xae	0x00ab	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xaf	0x00a4	#CURRENCY SIGN
+0xb0	0x2591	#LIGHT SHADE
+0xb1	0x2592	#MEDIUM SHADE
+0xb2	0x2593	#DARK SHADE
+0xb3	0x2502	#BOX DRAWINGS LIGHT VERTICAL
+0xb4	0x2524	#BOX DRAWINGS LIGHT VERTICAL AND LEFT
+0xb5	0x2561	#BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
+0xb6	0x2562	#BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
+0xb7	0x2556	#BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
+0xb8	0x2555	#BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
+0xb9	0x2563	#BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+0xba	0x2551	#BOX DRAWINGS DOUBLE VERTICAL
+0xbb	0x2557	#BOX DRAWINGS DOUBLE DOWN AND LEFT
+0xbc	0x255d	#BOX DRAWINGS DOUBLE UP AND LEFT
+0xbd	0x255c	#BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
+0xbe	0x255b	#BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
+0xbf	0x2510	#BOX DRAWINGS LIGHT DOWN AND LEFT
+0xc0	0x2514	#BOX DRAWINGS LIGHT UP AND RIGHT
+0xc1	0x2534	#BOX DRAWINGS LIGHT UP AND HORIZONTAL
+0xc2	0x252c	#BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+0xc3	0x251c	#BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+0xc4	0x2500	#BOX DRAWINGS LIGHT HORIZONTAL
+0xc5	0x253c	#BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+0xc6	0x255e	#BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
+0xc7	0x255f	#BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
+0xc8	0x255a	#BOX DRAWINGS DOUBLE UP AND RIGHT
+0xc9	0x2554	#BOX DRAWINGS DOUBLE DOWN AND RIGHT
+0xca	0x2569	#BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+0xcb	0x2566	#BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+0xcc	0x2560	#BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+0xcd	0x2550	#BOX DRAWINGS DOUBLE HORIZONTAL
+0xce	0x256c	#BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+0xcf	0x2567	#BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
+0xd0	0x2568	#BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
+0xd1	0x2564	#BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
+0xd2	0x2565	#BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
+0xd3	0x2559	#BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
+0xd4	0x2558	#BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
+0xd5	0x2552	#BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
+0xd6	0x2553	#BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
+0xd7	0x256b	#BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
+0xd8	0x256a	#BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
+0xd9	0x2518	#BOX DRAWINGS LIGHT UP AND LEFT
+0xda	0x250c	#BOX DRAWINGS LIGHT DOWN AND RIGHT
+0xdb	0x2588	#FULL BLOCK
+0xdc	0x2584	#LOWER HALF BLOCK
+0xdd	0x258c	#LEFT HALF BLOCK
+0xde	0x2590	#RIGHT HALF BLOCK
+0xdf	0x2580	#UPPER HALF BLOCK
+0xe0	0x03b1	#GREEK SMALL LETTER ALPHA
+0xe1	0x00df	#LATIN SMALL LETTER SHARP S
+0xe2	0x0393	#GREEK CAPITAL LETTER GAMMA
+0xe3	0x03c0	#GREEK SMALL LETTER PI
+0xe4	0x03a3	#GREEK CAPITAL LETTER SIGMA
+0xe5	0x03c3	#GREEK SMALL LETTER SIGMA
+0xe6	0x00b5	#MICRO SIGN
+0xe7	0x03c4	#GREEK SMALL LETTER TAU
+0xe8	0x03a6	#GREEK CAPITAL LETTER PHI
+0xe9	0x0398	#GREEK CAPITAL LETTER THETA
+0xea	0x03a9	#GREEK CAPITAL LETTER OMEGA
+0xeb	0x03b4	#GREEK SMALL LETTER DELTA
+0xec	0x221e	#INFINITY
+0xed	0x03c6	#GREEK SMALL LETTER PHI
+0xee	0x03b5	#GREEK SMALL LETTER EPSILON
+0xef	0x2229	#INTERSECTION
+0xf0	0x2261	#IDENTICAL TO
+0xf1	0x00b1	#PLUS-MINUS SIGN
+0xf2	0x2265	#GREATER-THAN OR EQUAL TO
+0xf3	0x2264	#LESS-THAN OR EQUAL TO
+0xf4	0x2320	#TOP HALF INTEGRAL
+0xf5	0x2321	#BOTTOM HALF INTEGRAL
+0xf6	0x00f7	#DIVISION SIGN
+0xf7	0x2248	#ALMOST EQUAL TO
+0xf8	0x00b0	#DEGREE SIGN
+0xf9	0x2219	#BULLET OPERATOR
+0xfa	0x00b7	#MIDDLE DOT
+0xfb	0x221a	#SQUARE ROOT
+0xfc	0x207f	#SUPERSCRIPT LATIN SMALL LETTER N
+0xfd	0x00b2	#SUPERSCRIPT TWO
+0xfe	0x25a0	#BLACK SQUARE
+0xff	0x00a0	#NO-BREAK SPACE
+
+
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x00C7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,
+	/* 81 */ 0x00FC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,
+	/* 82 */ 0x00E9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,
+	/* 83 */ 0x00E2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,
+	/* 84 */ 0x00E4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,
+	/* 85 */ 0x00E0 /*               LATIN SMALL LETTER A WITH GRAVE */ ,
+	/* 86 */ 0x00E5 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,
+	/* 87 */ 0x00E7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,
+	/* 88 */ 0x00EA /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,
+	/* 89 */ 0x00EB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,
+	/* 8A */ 0x00E8 /*               LATIN SMALL LETTER E WITH GRAVE */ ,
+	/* 8B */ 0x00EF /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,
+	/* 8C */ 0x00EE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,
+	/* 8D */ 0x00EC /*               LATIN SMALL LETTER I WITH GRAVE */ ,
+	/* 8E */ 0x00C4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,
+	/* 8F */ 0x00C5 /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,
+	/* 90 */ 0x00C9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,
+	/* 91 */ 0x00E6 /*                       LATIN SMALL LIGATURE AE */ ,
+	/* 92 */ 0x00C6 /*                     LATIN CAPITAL LIGATURE AE */ ,
+	/* 93 */ 0x00F4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,
+	/* 94 */ 0x00F6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,
+	/* 95 */ 0x00F2 /*               LATIN SMALL LETTER O WITH GRAVE */ ,
+	/* 96 */ 0x00FB /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,
+	/* 97 */ 0x00F9 /*               LATIN SMALL LETTER U WITH GRAVE */ ,
+	/* 98 */ 0x00FF /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,
+	/* 99 */ 0x00D6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,
+	/* 9A */ 0x00DC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,
+	/* 9B */ 0x00F8 /*              LATIN SMALL LETTER O WITH STROKE */ ,
+	/* 9C */ 0x00A3 /*                                    POUND SIGN */ ,
+	/* 9D */ 0x00D8 /*            LATIN CAPITAL LETTER O WITH STROKE */ ,
+	/* 9E */ 0x20A7 /*                                   PESETA SIGN */ ,
+	/* 9F */ 0x0192 /*                LATIN SMALL LETTER F WITH HOOK */ ,
+	/* A0 */ 0x00E1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,
+	/* A1 */ 0x00ED /*               LATIN SMALL LETTER I WITH ACUTE */ ,
+	/* A2 */ 0x00F3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,
+	/* A3 */ 0x00FA /*               LATIN SMALL LETTER U WITH ACUTE */ ,
+	/* A4 */ 0x00F1 /*               LATIN SMALL LETTER N WITH TILDE */ ,
+	/* A5 */ 0x00D1 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,
+	/* A6 */ 0x00AA /*                    FEMININE ORDINAL INDICATOR */ ,
+	/* A7 */ 0x00BA /*                   MASCULINE ORDINAL INDICATOR */ ,
+	/* A8 */ 0x00BF /*                        INVERTED QUESTION MARK */ ,
+	/* A9 */ 0x2310 /*                             REVERSED NOT SIGN */ ,
+	/* AA */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AB */ 0x00BD /*                      VULGAR FRACTION ONE HALF */ ,
+	/* AC */ 0x00BC /*                   VULGAR FRACTION ONE QUARTER */ ,
+	/* AD */ 0x00A1 /*                     INVERTED EXCLAMATION MARK */ ,
+	/* AE */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AF */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* B0 */ 0x2591 /*                                   LIGHT SHADE */ ,
+	/* B1 */ 0x2592 /*                                  MEDIUM SHADE */ ,
+	/* B2 */ 0x2593 /*                                    DARK SHADE */ ,
+	/* B3 */ 0x2502 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,
+	/* B4 */ 0x2524 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,
+	/* B5 */ 0x2561 /*  BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE */ ,
+	/* B6 */ 0x2562 /*  BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE */ ,
+	/* B7 */ 0x2556 /*      BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE */ ,
+	/* B8 */ 0x2555 /*      BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE */ ,
+	/* B9 */ 0x2563 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,
+	/* BA */ 0x2551 /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,
+	/* BB */ 0x2557 /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,
+	/* BC */ 0x255D /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,
+	/* BD */ 0x255C /*        BOX DRAWINGS UP DOUBLE AND LEFT SINGLE */ ,
+	/* BE */ 0x255B /*        BOX DRAWINGS UP SINGLE AND LEFT DOUBLE */ ,
+	/* BF */ 0x2510 /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,
+	/* C0 */ 0x2514 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,
+	/* C1 */ 0x2534 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,
+	/* C2 */ 0x252C /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,
+	/* C3 */ 0x251C /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,
+	/* C4 */ 0x2500 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,
+	/* C5 */ 0x253C /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,
+	/* C6 */ 0x255E /* BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE */ ,
+	/* C7 */ 0x255F /* BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE */ ,
+	/* C8 */ 0x255A /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,
+	/* C9 */ 0x2554 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,
+	/* CA */ 0x2569 /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,
+	/* CB */ 0x2566 /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,
+	/* CC */ 0x2560 /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,
+	/* CD */ 0x2550 /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,
+	/* CE */ 0x256C /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,
+	/* CF */ 0x2567 /*  BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D0 */ 0x2568 /*  BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D1 */ 0x2564 /* BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D2 */ 0x2565 /* BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D3 */ 0x2559 /*       BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE */ ,
+	/* D4 */ 0x2558 /*       BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE */ ,
+	/* D5 */ 0x2552 /*     BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE */ ,
+	/* D6 */ 0x2553 /*     BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE */ ,
+	/* D7 */ 0x256B /* BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE */ ,
+	/* D8 */ 0x256A /* BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE */ ,
+	/* D9 */ 0x2518 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,
+	/* DA */ 0x250C /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,
+	/* DB */ 0x2588 /*                                    FULL BLOCK */ ,
+	/* DC */ 0x2584 /*                              LOWER HALF BLOCK */ ,
+	/* DD */ 0x258C /*                               LEFT HALF BLOCK */ ,
+	/* DE */ 0x2590 /*                              RIGHT HALF BLOCK */ ,
+	/* DF */ 0x2580 /*                              UPPER HALF BLOCK */ ,
+	/* E0 */ 0x03B1 /*                      GREEK SMALL LETTER ALPHA */ ,
+	/* E1 */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* E2 */ 0x0393 /*                    GREEK CAPITAL LETTER GAMMA */ ,
+	/* E3 */ 0x03C0 /*                         GREEK SMALL LETTER PI */ ,
+	/* E4 */ 0x03A3 /*                    GREEK CAPITAL LETTER SIGMA */ ,
+	/* E5 */ 0x03C3 /*                      GREEK SMALL LETTER SIGMA */ ,
+	/* E6 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* E7 */ 0x03C4 /*                        GREEK SMALL LETTER TAU */ ,
+	/* E8 */ 0x03A6 /*                      GREEK CAPITAL LETTER PHI */ ,
+	/* E9 */ 0x0398 /*                    GREEK CAPITAL LETTER THETA */ ,
+	/* EA */ 0x03A9 /*                    GREEK CAPITAL LETTER OMEGA */ ,
+	/* EB */ 0x03B4 /*                      GREEK SMALL LETTER DELTA */ ,
+	/* EC */ 0x221E /*                                      INFINITY */ ,
+	/* ED */ 0x03C6 /*                        GREEK SMALL LETTER PHI */ ,
+	/* EE */ 0x03B5 /*                    GREEK SMALL LETTER EPSILON */ ,
+	/* EF */ 0x2229 /*                                  INTERSECTION */ ,
+	/* F0 */ 0x2261 /*                                  IDENTICAL TO */ ,
+	/* F1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* F2 */ 0x2265 /*                      GREATER-THAN OR EQUAL TO */ ,
+	/* F3 */ 0x2264 /*                         LESS-THAN OR EQUAL TO */ ,
+	/* F4 */ 0x2320 /*                             TOP HALF INTEGRAL */ ,
+	/* F5 */ 0x2321 /*                          BOTTOM HALF INTEGRAL */ ,
+	/* F6 */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* F7 */ 0x2248 /*                               ALMOST EQUAL TO */ ,
+	/* F8 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* F9 */ 0x2219 /*                               BULLET OPERATOR */ ,
+	/* FA */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* FB */ 0x221A /*                                   SQUARE ROOT */ ,
+	/* FC */ 0x207F /*              SUPERSCRIPT LATIN SMALL LETTER N */ ,
+	/* FD */ 0x00B2 /*                               SUPERSCRIPT TWO */ ,
+	/* FE */ 0x25A0 /*                                  BLACK SQUARE */ ,
+	/* FF */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xFF /*                                NO-BREAK SPACE */ ,	/* 416 */
+	/* U+00A1 */ 0xAD /*                     INVERTED EXCLAMATION MARK */ ,	/* 417 */
+										/* U+00A2 */ CANT_MAP_CHARACTER,
+										/* 418 */
+	/* U+00A3 */ 0x9C /*                                    POUND SIGN */ ,	/* 419 */
+	/* U+00A4 */ 0xAF /*                                 CURRENCY SIGN */ ,	/* 420 */
+										/* U+00A5 */ CANT_MAP_CHARACTER,
+										/* 421 */
+										/* U+00A6 */ CANT_MAP_CHARACTER,
+										/* 422 */
+										/* U+00A7 */ CANT_MAP_CHARACTER,
+										/* 423 */
+										/* U+00A8 */ CANT_MAP_CHARACTER,
+										/* 424 */
+										/* U+00A9 */ CANT_MAP_CHARACTER,
+										/* 425 */
+	/* U+00AA */ 0xA6 /*                    FEMININE ORDINAL INDICATOR */ ,	/* 426 */
+	/* U+00AB */ 0xAE /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAA /*                                      NOT SIGN */ ,	/* 428 */
+										/* U+00AD */ CANT_MAP_CHARACTER,
+										/* 429 */
+										/* U+00AE */ CANT_MAP_CHARACTER,
+										/* 430 */
+										/* U+00AF */ CANT_MAP_CHARACTER,
+										/* 431 */
+	/* U+00B0 */ 0xF8 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xF1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+	/* U+00B2 */ 0xFD /*                               SUPERSCRIPT TWO */ ,	/* 434 */
+										/* U+00B3 */ CANT_MAP_CHARACTER,
+										/* 435 */
+										/* U+00B4 */ CANT_MAP_CHARACTER,
+										/* 436 */
+	/* U+00B5 */ 0xE6 /*                                    MICRO SIGN */ ,	/* 437 */
+										/* U+00B6 */ CANT_MAP_CHARACTER,
+										/* 438 */
+	/* U+00B7 */ 0xFA /*                                    MIDDLE DOT */ ,	/* 439 */
+										/* U+00B8 */ CANT_MAP_CHARACTER,
+										/* 440 */
+										/* U+00B9 */ CANT_MAP_CHARACTER,
+										/* 441 */
+	/* U+00BA */ 0xA7 /*                   MASCULINE ORDINAL INDICATOR */ ,	/* 442 */
+										/* U+00BB */ CANT_MAP_CHARACTER,
+										/* 443 */
+	/* U+00BC */ 0xAC /*                   VULGAR FRACTION ONE QUARTER */ ,	/* 444 */
+	/* U+00BD */ 0xAB /*                      VULGAR FRACTION ONE HALF */ ,	/* 445 */
+										/* U+00BE */ CANT_MAP_CHARACTER,
+										/* 446 */
+	/* U+00BF */ 0xA8 /*                        INVERTED QUESTION MARK */ ,	/* 447 */
+										/* U+00C0 */ CANT_MAP_CHARACTER,
+										/* 448 */
+										/* U+00C1 */ CANT_MAP_CHARACTER,
+										/* 449 */
+										/* U+00C2 */ CANT_MAP_CHARACTER,
+										/* 450 */
+										/* U+00C3 */ CANT_MAP_CHARACTER,
+										/* 451 */
+	/* U+00C4 */ 0x8E /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,	/* 452 */
+	/* U+00C5 */ 0x8F /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,	/* 453 */
+	/* U+00C6 */ 0x92 /*                     LATIN CAPITAL LIGATURE AE */ ,	/* 454 */
+	/* U+00C7 */ 0x80 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,	/* 455 */
+										/* U+00C8 */ CANT_MAP_CHARACTER,
+										/* 456 */
+	/* U+00C9 */ 0x90 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,	/* 457 */
+										/* U+00CA */ CANT_MAP_CHARACTER,
+										/* 458 */
+										/* U+00CB */ CANT_MAP_CHARACTER,
+										/* 459 */
+										/* U+00CC */ CANT_MAP_CHARACTER,
+										/* 460 */
+										/* U+00CD */ CANT_MAP_CHARACTER,
+										/* 461 */
+										/* U+00CE */ CANT_MAP_CHARACTER,
+										/* 462 */
+										/* U+00CF */ CANT_MAP_CHARACTER,
+										/* 463 */
+										/* U+00D0 */ CANT_MAP_CHARACTER,
+										/* 464 */
+	/* U+00D1 */ 0xA5 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,	/* 465 */
+										/* U+00D2 */ CANT_MAP_CHARACTER,
+										/* 466 */
+										/* U+00D3 */ CANT_MAP_CHARACTER,
+										/* 467 */
+										/* U+00D4 */ CANT_MAP_CHARACTER,
+										/* 468 */
+										/* U+00D5 */ CANT_MAP_CHARACTER,
+										/* 469 */
+	/* U+00D6 */ 0x99 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,	/* 470 */
+										/* U+00D7 */ CANT_MAP_CHARACTER,
+										/* 471 */
+	/* U+00D8 */ 0x9D /*            LATIN CAPITAL LETTER O WITH STROKE */ ,	/* 472 */
+										/* U+00D9 */ CANT_MAP_CHARACTER,
+										/* 473 */
+										/* U+00DA */ CANT_MAP_CHARACTER,
+										/* 474 */
+										/* U+00DB */ CANT_MAP_CHARACTER,
+										/* 475 */
+	/* U+00DC */ 0x9A /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,	/* 476 */
+										/* U+00DD */ CANT_MAP_CHARACTER,
+										/* 477 */
+										/* U+00DE */ CANT_MAP_CHARACTER,
+										/* 478 */
+	/* U+00DF */ 0xE1 /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+	/* U+00E0 */ 0x85 /*               LATIN SMALL LETTER A WITH GRAVE */ ,	/* 480 */
+	/* U+00E1 */ 0xA0 /*               LATIN SMALL LETTER A WITH ACUTE */ ,	/* 481 */
+	/* U+00E2 */ 0x83 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,	/* 482 */
+										/* U+00E3 */ CANT_MAP_CHARACTER,
+										/* 483 */
+	/* U+00E4 */ 0x84 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,	/* 484 */
+	/* U+00E5 */ 0x86 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,	/* 485 */
+	/* U+00E6 */ 0x91 /*                       LATIN SMALL LIGATURE AE */ ,	/* 486 */
+	/* U+00E7 */ 0x87 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,	/* 487 */
+	/* U+00E8 */ 0x8A /*               LATIN SMALL LETTER E WITH GRAVE */ ,	/* 488 */
+	/* U+00E9 */ 0x82 /*               LATIN SMALL LETTER E WITH ACUTE */ ,	/* 489 */
+	/* U+00EA */ 0x88 /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,	/* 490 */
+	/* U+00EB */ 0x89 /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,	/* 491 */
+	/* U+00EC */ 0x8D /*               LATIN SMALL LETTER I WITH GRAVE */ ,	/* 492 */
+	/* U+00ED */ 0xA1 /*               LATIN SMALL LETTER I WITH ACUTE */ ,	/* 493 */
+	/* U+00EE */ 0x8C /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,	/* 494 */
+	/* U+00EF */ 0x8B /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,	/* 495 */
+										/* U+00F0 */ CANT_MAP_CHARACTER,
+										/* 496 */
+	/* U+00F1 */ 0xA4 /*               LATIN SMALL LETTER N WITH TILDE */ ,	/* 497 */
+	/* U+00F2 */ 0x95 /*               LATIN SMALL LETTER O WITH GRAVE */ ,	/* 498 */
+	/* U+00F3 */ 0xA2 /*               LATIN SMALL LETTER O WITH ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0x93 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,	/* 500 */
+										/* U+00F5 */ CANT_MAP_CHARACTER,
+										/* 501 */
+	/* U+00F6 */ 0x94 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,	/* 502 */
+	/* U+00F7 */ 0xF6 /*                                 DIVISION SIGN */ ,	/* 503 */
+	/* U+00F8 */ 0x9B /*              LATIN SMALL LETTER O WITH STROKE */ ,	/* 504 */
+	/* U+00F9 */ 0x97 /*               LATIN SMALL LETTER U WITH GRAVE */ ,	/* 505 */
+	/* U+00FA */ 0xA3 /*               LATIN SMALL LETTER U WITH ACUTE */ ,	/* 506 */
+	/* U+00FB */ 0x96 /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,	/* 507 */
+	/* U+00FC */ 0x81 /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,	/* 508 */
+										/* U+00FD */ CANT_MAP_CHARACTER,
+										/* 509 */
+										/* U+00FE */ CANT_MAP_CHARACTER,
+										/* 510 */
+	/* U+00FF */ 0x98 /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,	/* 511 */
+										/* U+0100 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0101 */ CANT_MAP_CHARACTER,
+										/* 513 */
+										/* U+0102 */ CANT_MAP_CHARACTER,
+										/* 514 */
+										/* U+0103 */ CANT_MAP_CHARACTER,
+										/* 515 */
+										/* U+0104 */ CANT_MAP_CHARACTER,
+										/* 516 */
+										/* U+0105 */ CANT_MAP_CHARACTER,
+										/* 517 */
+										/* U+0106 */ CANT_MAP_CHARACTER,
+										/* 518 */
+										/* U+0107 */ CANT_MAP_CHARACTER,
+										/* 519 */
+										/* U+0108 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0109 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+010A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+010B */ CANT_MAP_CHARACTER,
+										/* 523 */
+										/* U+010C */ CANT_MAP_CHARACTER,
+										/* 524 */
+										/* U+010D */ CANT_MAP_CHARACTER,
+										/* 525 */
+										/* U+010E */ CANT_MAP_CHARACTER,
+										/* 526 */
+										/* U+010F */ CANT_MAP_CHARACTER,
+										/* 527 */
+										/* U+0110 */ CANT_MAP_CHARACTER,
+										/* 528 */
+										/* U+0111 */ CANT_MAP_CHARACTER,
+										/* 529 */
+										/* U+0112 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0113 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0114 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0115 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0116 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0117 */ CANT_MAP_CHARACTER,
+										/* 535 */
+										/* U+0118 */ CANT_MAP_CHARACTER,
+										/* 536 */
+										/* U+0119 */ CANT_MAP_CHARACTER,
+										/* 537 */
+										/* U+011A */ CANT_MAP_CHARACTER,
+										/* 538 */
+										/* U+011B */ CANT_MAP_CHARACTER,
+										/* 539 */
+										/* U+011C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+011D */ CANT_MAP_CHARACTER,
+										/* 541 */
+										/* U+011E */ CANT_MAP_CHARACTER,
+										/* 542 */
+										/* U+011F */ CANT_MAP_CHARACTER,
+										/* 543 */
+										/* U+0120 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0121 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0122 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0123 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0124 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0125 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0126 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0127 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0128 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0129 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+012A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+012B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+012C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+012D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+012E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+012F */ CANT_MAP_CHARACTER,
+										/* 559 */
+										/* U+0130 */ CANT_MAP_CHARACTER,
+										/* 560 */
+										/* U+0131 */ CANT_MAP_CHARACTER,
+										/* 561 */
+										/* U+0132 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0133 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0134 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0135 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0136 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0137 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0138 */ CANT_MAP_CHARACTER,
+										/* 568 */
+										/* U+0139 */ CANT_MAP_CHARACTER,
+										/* 569 */
+										/* U+013A */ CANT_MAP_CHARACTER,
+										/* 570 */
+										/* U+013B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+013C */ CANT_MAP_CHARACTER,
+										/* 572 */
+										/* U+013D */ CANT_MAP_CHARACTER,
+										/* 573 */
+										/* U+013E */ CANT_MAP_CHARACTER,
+										/* 574 */
+										/* U+013F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0140 */ CANT_MAP_CHARACTER,
+										/* 576 */
+										/* U+0141 */ CANT_MAP_CHARACTER,
+										/* 577 */
+										/* U+0142 */ CANT_MAP_CHARACTER,
+										/* 578 */
+										/* U+0143 */ CANT_MAP_CHARACTER,
+										/* 579 */
+										/* U+0144 */ CANT_MAP_CHARACTER,
+										/* 580 */
+										/* U+0145 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0146 */ CANT_MAP_CHARACTER,
+										/* 582 */
+										/* U+0147 */ CANT_MAP_CHARACTER,
+										/* 583 */
+										/* U+0148 */ CANT_MAP_CHARACTER,
+										/* 584 */
+										/* U+0149 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+014A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+014B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+014C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+014D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+014E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+014F */ CANT_MAP_CHARACTER,
+										/* 591 */
+										/* U+0150 */ CANT_MAP_CHARACTER,
+										/* 592 */
+										/* U+0151 */ CANT_MAP_CHARACTER,
+										/* 593 */
+										/* U+0152 */ CANT_MAP_CHARACTER,
+										/* 594 */
+										/* U+0153 */ CANT_MAP_CHARACTER,
+										/* 595 */
+										/* U+0154 */ CANT_MAP_CHARACTER,
+										/* 596 */
+										/* U+0155 */ CANT_MAP_CHARACTER,
+										/* 597 */
+										/* U+0156 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0157 */ CANT_MAP_CHARACTER,
+										/* 599 */
+										/* U+0158 */ CANT_MAP_CHARACTER,
+										/* 600 */
+										/* U+0159 */ CANT_MAP_CHARACTER,
+										/* 601 */
+										/* U+015A */ CANT_MAP_CHARACTER,
+										/* 602 */
+										/* U+015B */ CANT_MAP_CHARACTER,
+										/* 603 */
+										/* U+015C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+015D */ CANT_MAP_CHARACTER,
+										/* 605 */
+										/* U+015E */ CANT_MAP_CHARACTER,
+										/* 606 */
+										/* U+015F */ CANT_MAP_CHARACTER,
+										/* 607 */
+										/* U+0160 */ CANT_MAP_CHARACTER,
+										/* 608 */
+										/* U+0161 */ CANT_MAP_CHARACTER,
+										/* 609 */
+										/* U+0162 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0163 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0164 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0165 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0166 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0167 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0168 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0169 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+016A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+016B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+016C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+016D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+016E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+016F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0170 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0171 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0172 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0173 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0174 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0175 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0176 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0177 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0178 */ CANT_MAP_CHARACTER,
+										/* 632 */
+										/* U+0179 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+017A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+017B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+017C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+017D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+017E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+017F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0180 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0181 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0182 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0183 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0184 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0185 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0186 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0187 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0188 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0189 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+018A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+018B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+018C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+018D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+018E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+018F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0190 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0191 */ CANT_MAP_CHARACTER,
+										/* 657 */
+	/* U+0192 */ 0x9F /*                LATIN SMALL LETTER F WITH HOOK */ ,	/* 658 */
+										/* U+0193 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0194 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0195 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0196 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0197 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0198 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0199 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+019A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+019B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+019C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+019D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+019E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+019F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+01A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+01A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+01A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+01A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+01A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+01A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+01A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+01A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+01A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+01A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+01AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+01AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+01AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+01AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+01AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+01AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+01B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+01B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+01B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+01B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+01B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+01B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+01B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+01B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+01B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+01B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+01BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+01BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+01BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+01BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+01BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+01BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+01C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+01C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+01C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+01C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+01C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+01C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+01C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+01C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+01C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+01C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+01CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+01CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+01CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+01CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+01CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+01CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+01D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+01D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+01D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+01D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+01D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+01D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+01D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+01D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+01D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+01D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+01DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+01DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+01DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+01DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+01DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+01DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+01E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+01E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+01E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+01E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+01E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+01E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+01E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+01E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+01E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+01E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+01EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+01EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+01EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+01ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+01EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+01EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+01F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+01F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+01F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+01F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+01F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+01F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+01F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+01F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+01F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+01F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+01FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+01FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+01FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+01FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+01FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+01FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+0300 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+0301 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+0302 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+0303 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+0304 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+0305 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+0306 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+0307 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+0308 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+0309 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+030A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+030B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+030C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+030D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+030E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+030F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+0310 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+0311 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+0312 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+0313 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+0314 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+0315 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+0316 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+0317 */ CANT_MAP_CHARACTER,
+										/* 791 */
+										/* U+0318 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+0319 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+031A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+031B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+031C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+031D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+031E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+031F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+0320 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+0321 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+0322 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+0323 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+0324 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+0325 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+0326 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+0327 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+0328 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+0329 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+032A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+032B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+032C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+032D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+032E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+032F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+0330 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+0331 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+0332 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+0333 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+0334 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+0335 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+0336 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+0337 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+0338 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+0339 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+033A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+033B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+033C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+033D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+033E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+033F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+0340 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+0341 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+0342 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+0343 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+0344 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+0345 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+0346 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+0347 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+0348 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+0349 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+034A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+034B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+034C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+034D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+034E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+034F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+0350 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+0351 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+0352 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+0353 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+0354 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+0355 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+0356 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+0357 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+0358 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+0359 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+035A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+035B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+035C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+035D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+035E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+035F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+0360 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+0361 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+0362 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+0363 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+0364 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+0365 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+0366 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+0367 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+0368 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+0369 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+036A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+036B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+036C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+036D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+036E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+036F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+0370 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+0371 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+0372 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+0373 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+0374 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+0375 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+0376 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+0377 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+0378 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+0379 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+037A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+037B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+037C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+037D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+037E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+037F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+0380 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+0381 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+0382 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+0383 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+0384 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+0385 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+0386 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+0387 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+0388 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+0389 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+038A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+038B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+038C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+038D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+038E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+038F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+0390 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+0391 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+0392 */ CANT_MAP_CHARACTER,
+										/* 914 */
+	/* U+0393 */ 0xE2 /*                    GREEK CAPITAL LETTER GAMMA */ ,	/* 915 */
+										/* U+0394 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+0395 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+0396 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+0397 */ CANT_MAP_CHARACTER,
+										/* 919 */
+	/* U+0398 */ 0xE9 /*                    GREEK CAPITAL LETTER THETA */ ,	/* 920 */
+										/* U+0399 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+039A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+039B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+039C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+039D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+039E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+039F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+03A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+03A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+03A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+	/* U+03A3 */ 0xE4 /*                    GREEK CAPITAL LETTER SIGMA */ ,	/* 931 */
+										/* U+03A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+03A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+	/* U+03A6 */ 0xE8 /*                      GREEK CAPITAL LETTER PHI */ ,	/* 934 */
+										/* U+03A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+03A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+	/* U+03A9 */ 0xEA /*                    GREEK CAPITAL LETTER OMEGA */ ,	/* 937 */
+										/* U+03AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+03AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+03AC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+03AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+03AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+03AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+03B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+	/* U+03B1 */ 0xE0 /*                      GREEK SMALL LETTER ALPHA */ ,	/* 945 */
+										/* U+03B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+03B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+	/* U+03B4 */ 0xEB /*                      GREEK SMALL LETTER DELTA */ ,	/* 948 */
+	/* U+03B5 */ 0xEE /*                    GREEK SMALL LETTER EPSILON */ ,	/* 949 */
+										/* U+03B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+03B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+03B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+03B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+03BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+03BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+03BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+03BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+03BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+03BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+	/* U+03C0 */ 0xE3 /*                         GREEK SMALL LETTER PI */ ,	/* 960 */
+										/* U+03C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+03C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+	/* U+03C3 */ 0xE5 /*                      GREEK SMALL LETTER SIGMA */ ,	/* 963 */
+	/* U+03C4 */ 0xE7 /*                        GREEK SMALL LETTER TAU */ ,	/* 964 */
+										/* U+03C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+	/* U+03C6 */ 0xED /*                        GREEK SMALL LETTER PHI */ ,	/* 966 */
+										/* U+03C7 */ CANT_MAP_CHARACTER,
+										/* 967 */
+										/* U+03C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+03C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+03CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+03CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+03CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+03CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+03CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+03CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+03D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+03D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+03D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+03D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+03D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+03D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+03D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+03D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+03D8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+03D9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+03DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+03DB */ CANT_MAP_CHARACTER,
+										/* 987 */
+										/* U+03DC */ CANT_MAP_CHARACTER,
+										/* 988 */
+										/* U+03DD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+03DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+03DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+03E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+03E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+03E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+03E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+03E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+03E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+03E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+03E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+03E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+03E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+03EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+03EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+03EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+03ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+03EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+03EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+03F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+03F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+03F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+03F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+03F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+03F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+03F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+03F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+03F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+03F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+03FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+03FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+03FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+03FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+03FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+03FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 1024 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 1026 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 1036 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 1040 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+										/* U+2013 */ CANT_MAP_CHARACTER,
+										/* 1043 */
+										/* U+2014 */ CANT_MAP_CHARACTER,
+										/* 1044 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 1046 */
+										/* U+2017 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+										/* U+2018 */ CANT_MAP_CHARACTER,
+										/* 1048 */
+										/* U+2019 */ CANT_MAP_CHARACTER,
+										/* 1049 */
+										/* U+201A */ CANT_MAP_CHARACTER,
+										/* 1050 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+										/* U+201C */ CANT_MAP_CHARACTER,
+										/* 1052 */
+										/* U+201D */ CANT_MAP_CHARACTER,
+										/* 1053 */
+										/* U+201E */ CANT_MAP_CHARACTER,
+										/* 1054 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+										/* U+2020 */ CANT_MAP_CHARACTER,
+										/* 1056 */
+										/* U+2021 */ CANT_MAP_CHARACTER,
+										/* 1057 */
+										/* U+2022 */ CANT_MAP_CHARACTER,
+										/* 1058 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 1060 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+										/* U+2026 */ CANT_MAP_CHARACTER,
+										/* 1062 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 1068 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+										/* U+2030 */ CANT_MAP_CHARACTER,
+										/* 1072 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 1076 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+										/* U+2039 */ CANT_MAP_CHARACTER,
+										/* 1081 */
+										/* U+203A */ CANT_MAP_CHARACTER,
+										/* 1082 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 1084 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 1104 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 1105 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 1108 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 1111 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 1114 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 1117 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 1120 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 1123 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 1126 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 1129 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 1132 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+	/* U+207F */ 0xFC /*              SUPERSCRIPT LATIN SMALL LETTER N */ ,	/* 1151 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 1152 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 1156 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 1160 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 1169 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 1170 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 1171 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 1184 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+	/* U+20A7 */ 0x9E /*                                   PESETA SIGN */ ,	/* 1191 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+										/* U+20AC */ CANT_MAP_CHARACTER,
+										/* 1196 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+										/* U+2200 */ CANT_MAP_CHARACTER,
+										/* 1280 */
+										/* U+2201 */ CANT_MAP_CHARACTER,
+										/* 1281 */
+										/* U+2202 */ CANT_MAP_CHARACTER,
+										/* 1282 */
+										/* U+2203 */ CANT_MAP_CHARACTER,
+										/* 1283 */
+										/* U+2204 */ CANT_MAP_CHARACTER,
+										/* 1284 */
+										/* U+2205 */ CANT_MAP_CHARACTER,
+										/* 1285 */
+										/* U+2206 */ CANT_MAP_CHARACTER,
+										/* 1286 */
+										/* U+2207 */ CANT_MAP_CHARACTER,
+										/* 1287 */
+										/* U+2208 */ CANT_MAP_CHARACTER,
+										/* 1288 */
+										/* U+2209 */ CANT_MAP_CHARACTER,
+										/* 1289 */
+										/* U+220A */ CANT_MAP_CHARACTER,
+										/* 1290 */
+										/* U+220B */ CANT_MAP_CHARACTER,
+										/* 1291 */
+										/* U+220C */ CANT_MAP_CHARACTER,
+										/* 1292 */
+										/* U+220D */ CANT_MAP_CHARACTER,
+										/* 1293 */
+										/* U+220E */ CANT_MAP_CHARACTER,
+										/* 1294 */
+										/* U+220F */ CANT_MAP_CHARACTER,
+										/* 1295 */
+										/* U+2210 */ CANT_MAP_CHARACTER,
+										/* 1296 */
+										/* U+2211 */ CANT_MAP_CHARACTER,
+										/* 1297 */
+										/* U+2212 */ CANT_MAP_CHARACTER,
+										/* 1298 */
+										/* U+2213 */ CANT_MAP_CHARACTER,
+										/* 1299 */
+										/* U+2214 */ CANT_MAP_CHARACTER,
+										/* 1300 */
+										/* U+2215 */ CANT_MAP_CHARACTER,
+										/* 1301 */
+										/* U+2216 */ CANT_MAP_CHARACTER,
+										/* 1302 */
+										/* U+2217 */ CANT_MAP_CHARACTER,
+										/* 1303 */
+										/* U+2218 */ CANT_MAP_CHARACTER,
+										/* 1304 */
+	/* U+2219 */ 0xF9 /*                               BULLET OPERATOR */ ,	/* 1305 */
+	/* U+221A */ 0xFB /*                                   SQUARE ROOT */ ,	/* 1306 */
+										/* U+221B */ CANT_MAP_CHARACTER,
+										/* 1307 */
+										/* U+221C */ CANT_MAP_CHARACTER,
+										/* 1308 */
+										/* U+221D */ CANT_MAP_CHARACTER,
+										/* 1309 */
+	/* U+221E */ 0xEC /*                                      INFINITY */ ,	/* 1310 */
+										/* U+221F */ CANT_MAP_CHARACTER,
+										/* 1311 */
+										/* U+2220 */ CANT_MAP_CHARACTER,
+										/* 1312 */
+										/* U+2221 */ CANT_MAP_CHARACTER,
+										/* 1313 */
+										/* U+2222 */ CANT_MAP_CHARACTER,
+										/* 1314 */
+										/* U+2223 */ CANT_MAP_CHARACTER,
+										/* 1315 */
+										/* U+2224 */ CANT_MAP_CHARACTER,
+										/* 1316 */
+										/* U+2225 */ CANT_MAP_CHARACTER,
+										/* 1317 */
+										/* U+2226 */ CANT_MAP_CHARACTER,
+										/* 1318 */
+										/* U+2227 */ CANT_MAP_CHARACTER,
+										/* 1319 */
+										/* U+2228 */ CANT_MAP_CHARACTER,
+										/* 1320 */
+	/* U+2229 */ 0xEF /*                                  INTERSECTION */ ,	/* 1321 */
+										/* U+222A */ CANT_MAP_CHARACTER,
+										/* 1322 */
+										/* U+222B */ CANT_MAP_CHARACTER,
+										/* 1323 */
+										/* U+222C */ CANT_MAP_CHARACTER,
+										/* 1324 */
+										/* U+222D */ CANT_MAP_CHARACTER,
+										/* 1325 */
+										/* U+222E */ CANT_MAP_CHARACTER,
+										/* 1326 */
+										/* U+222F */ CANT_MAP_CHARACTER,
+										/* 1327 */
+										/* U+2230 */ CANT_MAP_CHARACTER,
+										/* 1328 */
+										/* U+2231 */ CANT_MAP_CHARACTER,
+										/* 1329 */
+										/* U+2232 */ CANT_MAP_CHARACTER,
+										/* 1330 */
+										/* U+2233 */ CANT_MAP_CHARACTER,
+										/* 1331 */
+										/* U+2234 */ CANT_MAP_CHARACTER,
+										/* 1332 */
+										/* U+2235 */ CANT_MAP_CHARACTER,
+										/* 1333 */
+										/* U+2236 */ CANT_MAP_CHARACTER,
+										/* 1334 */
+										/* U+2237 */ CANT_MAP_CHARACTER,
+										/* 1335 */
+										/* U+2238 */ CANT_MAP_CHARACTER,
+										/* 1336 */
+										/* U+2239 */ CANT_MAP_CHARACTER,
+										/* 1337 */
+										/* U+223A */ CANT_MAP_CHARACTER,
+										/* 1338 */
+										/* U+223B */ CANT_MAP_CHARACTER,
+										/* 1339 */
+										/* U+223C */ CANT_MAP_CHARACTER,
+										/* 1340 */
+										/* U+223D */ CANT_MAP_CHARACTER,
+										/* 1341 */
+										/* U+223E */ CANT_MAP_CHARACTER,
+										/* 1342 */
+										/* U+223F */ CANT_MAP_CHARACTER,
+										/* 1343 */
+										/* U+2240 */ CANT_MAP_CHARACTER,
+										/* 1344 */
+										/* U+2241 */ CANT_MAP_CHARACTER,
+										/* 1345 */
+										/* U+2242 */ CANT_MAP_CHARACTER,
+										/* 1346 */
+										/* U+2243 */ CANT_MAP_CHARACTER,
+										/* 1347 */
+										/* U+2244 */ CANT_MAP_CHARACTER,
+										/* 1348 */
+										/* U+2245 */ CANT_MAP_CHARACTER,
+										/* 1349 */
+										/* U+2246 */ CANT_MAP_CHARACTER,
+										/* 1350 */
+										/* U+2247 */ CANT_MAP_CHARACTER,
+										/* 1351 */
+	/* U+2248 */ 0xF7 /*                               ALMOST EQUAL TO */ ,	/* 1352 */
+										/* U+2249 */ CANT_MAP_CHARACTER,
+										/* 1353 */
+										/* U+224A */ CANT_MAP_CHARACTER,
+										/* 1354 */
+										/* U+224B */ CANT_MAP_CHARACTER,
+										/* 1355 */
+										/* U+224C */ CANT_MAP_CHARACTER,
+										/* 1356 */
+										/* U+224D */ CANT_MAP_CHARACTER,
+										/* 1357 */
+										/* U+224E */ CANT_MAP_CHARACTER,
+										/* 1358 */
+										/* U+224F */ CANT_MAP_CHARACTER,
+										/* 1359 */
+										/* U+2250 */ CANT_MAP_CHARACTER,
+										/* 1360 */
+										/* U+2251 */ CANT_MAP_CHARACTER,
+										/* 1361 */
+										/* U+2252 */ CANT_MAP_CHARACTER,
+										/* 1362 */
+										/* U+2253 */ CANT_MAP_CHARACTER,
+										/* 1363 */
+										/* U+2254 */ CANT_MAP_CHARACTER,
+										/* 1364 */
+										/* U+2255 */ CANT_MAP_CHARACTER,
+										/* 1365 */
+										/* U+2256 */ CANT_MAP_CHARACTER,
+										/* 1366 */
+										/* U+2257 */ CANT_MAP_CHARACTER,
+										/* 1367 */
+										/* U+2258 */ CANT_MAP_CHARACTER,
+										/* 1368 */
+										/* U+2259 */ CANT_MAP_CHARACTER,
+										/* 1369 */
+										/* U+225A */ CANT_MAP_CHARACTER,
+										/* 1370 */
+										/* U+225B */ CANT_MAP_CHARACTER,
+										/* 1371 */
+										/* U+225C */ CANT_MAP_CHARACTER,
+										/* 1372 */
+										/* U+225D */ CANT_MAP_CHARACTER,
+										/* 1373 */
+										/* U+225E */ CANT_MAP_CHARACTER,
+										/* 1374 */
+										/* U+225F */ CANT_MAP_CHARACTER,
+										/* 1375 */
+										/* U+2260 */ CANT_MAP_CHARACTER,
+										/* 1376 */
+	/* U+2261 */ 0xF0 /*                                  IDENTICAL TO */ ,	/* 1377 */
+										/* U+2262 */ CANT_MAP_CHARACTER,
+										/* 1378 */
+										/* U+2263 */ CANT_MAP_CHARACTER,
+										/* 1379 */
+	/* U+2264 */ 0xF3 /*                         LESS-THAN OR EQUAL TO */ ,	/* 1380 */
+	/* U+2265 */ 0xF2 /*                      GREATER-THAN OR EQUAL TO */ ,	/* 1381 */
+										/* U+2266 */ CANT_MAP_CHARACTER,
+										/* 1382 */
+										/* U+2267 */ CANT_MAP_CHARACTER,
+										/* 1383 */
+										/* U+2268 */ CANT_MAP_CHARACTER,
+										/* 1384 */
+										/* U+2269 */ CANT_MAP_CHARACTER,
+										/* 1385 */
+										/* U+226A */ CANT_MAP_CHARACTER,
+										/* 1386 */
+										/* U+226B */ CANT_MAP_CHARACTER,
+										/* 1387 */
+										/* U+226C */ CANT_MAP_CHARACTER,
+										/* 1388 */
+										/* U+226D */ CANT_MAP_CHARACTER,
+										/* 1389 */
+										/* U+226E */ CANT_MAP_CHARACTER,
+										/* 1390 */
+										/* U+226F */ CANT_MAP_CHARACTER,
+										/* 1391 */
+										/* U+2270 */ CANT_MAP_CHARACTER,
+										/* 1392 */
+										/* U+2271 */ CANT_MAP_CHARACTER,
+										/* 1393 */
+										/* U+2272 */ CANT_MAP_CHARACTER,
+										/* 1394 */
+										/* U+2273 */ CANT_MAP_CHARACTER,
+										/* 1395 */
+										/* U+2274 */ CANT_MAP_CHARACTER,
+										/* 1396 */
+										/* U+2275 */ CANT_MAP_CHARACTER,
+										/* 1397 */
+										/* U+2276 */ CANT_MAP_CHARACTER,
+										/* 1398 */
+										/* U+2277 */ CANT_MAP_CHARACTER,
+										/* 1399 */
+										/* U+2278 */ CANT_MAP_CHARACTER,
+										/* 1400 */
+										/* U+2279 */ CANT_MAP_CHARACTER,
+										/* 1401 */
+										/* U+227A */ CANT_MAP_CHARACTER,
+										/* 1402 */
+										/* U+227B */ CANT_MAP_CHARACTER,
+										/* 1403 */
+										/* U+227C */ CANT_MAP_CHARACTER,
+										/* 1404 */
+										/* U+227D */ CANT_MAP_CHARACTER,
+										/* 1405 */
+										/* U+227E */ CANT_MAP_CHARACTER,
+										/* 1406 */
+										/* U+227F */ CANT_MAP_CHARACTER,
+										/* 1407 */
+										/* U+2280 */ CANT_MAP_CHARACTER,
+										/* 1408 */
+										/* U+2281 */ CANT_MAP_CHARACTER,
+										/* 1409 */
+										/* U+2282 */ CANT_MAP_CHARACTER,
+										/* 1410 */
+										/* U+2283 */ CANT_MAP_CHARACTER,
+										/* 1411 */
+										/* U+2284 */ CANT_MAP_CHARACTER,
+										/* 1412 */
+										/* U+2285 */ CANT_MAP_CHARACTER,
+										/* 1413 */
+										/* U+2286 */ CANT_MAP_CHARACTER,
+										/* 1414 */
+										/* U+2287 */ CANT_MAP_CHARACTER,
+										/* 1415 */
+										/* U+2288 */ CANT_MAP_CHARACTER,
+										/* 1416 */
+										/* U+2289 */ CANT_MAP_CHARACTER,
+										/* 1417 */
+										/* U+228A */ CANT_MAP_CHARACTER,
+										/* 1418 */
+										/* U+228B */ CANT_MAP_CHARACTER,
+										/* 1419 */
+										/* U+228C */ CANT_MAP_CHARACTER,
+										/* 1420 */
+										/* U+228D */ CANT_MAP_CHARACTER,
+										/* 1421 */
+										/* U+228E */ CANT_MAP_CHARACTER,
+										/* 1422 */
+										/* U+228F */ CANT_MAP_CHARACTER,
+										/* 1423 */
+										/* U+2290 */ CANT_MAP_CHARACTER,
+										/* 1424 */
+										/* U+2291 */ CANT_MAP_CHARACTER,
+										/* 1425 */
+										/* U+2292 */ CANT_MAP_CHARACTER,
+										/* 1426 */
+										/* U+2293 */ CANT_MAP_CHARACTER,
+										/* 1427 */
+										/* U+2294 */ CANT_MAP_CHARACTER,
+										/* 1428 */
+										/* U+2295 */ CANT_MAP_CHARACTER,
+										/* 1429 */
+										/* U+2296 */ CANT_MAP_CHARACTER,
+										/* 1430 */
+										/* U+2297 */ CANT_MAP_CHARACTER,
+										/* 1431 */
+										/* U+2298 */ CANT_MAP_CHARACTER,
+										/* 1432 */
+										/* U+2299 */ CANT_MAP_CHARACTER,
+										/* 1433 */
+										/* U+229A */ CANT_MAP_CHARACTER,
+										/* 1434 */
+										/* U+229B */ CANT_MAP_CHARACTER,
+										/* 1435 */
+										/* U+229C */ CANT_MAP_CHARACTER,
+										/* 1436 */
+										/* U+229D */ CANT_MAP_CHARACTER,
+										/* 1437 */
+										/* U+229E */ CANT_MAP_CHARACTER,
+										/* 1438 */
+										/* U+229F */ CANT_MAP_CHARACTER,
+										/* 1439 */
+										/* U+22A0 */ CANT_MAP_CHARACTER,
+										/* 1440 */
+										/* U+22A1 */ CANT_MAP_CHARACTER,
+										/* 1441 */
+										/* U+22A2 */ CANT_MAP_CHARACTER,
+										/* 1442 */
+										/* U+22A3 */ CANT_MAP_CHARACTER,
+										/* 1443 */
+										/* U+22A4 */ CANT_MAP_CHARACTER,
+										/* 1444 */
+										/* U+22A5 */ CANT_MAP_CHARACTER,
+										/* 1445 */
+										/* U+22A6 */ CANT_MAP_CHARACTER,
+										/* 1446 */
+										/* U+22A7 */ CANT_MAP_CHARACTER,
+										/* 1447 */
+										/* U+22A8 */ CANT_MAP_CHARACTER,
+										/* 1448 */
+										/* U+22A9 */ CANT_MAP_CHARACTER,
+										/* 1449 */
+										/* U+22AA */ CANT_MAP_CHARACTER,
+										/* 1450 */
+										/* U+22AB */ CANT_MAP_CHARACTER,
+										/* 1451 */
+										/* U+22AC */ CANT_MAP_CHARACTER,
+										/* 1452 */
+										/* U+22AD */ CANT_MAP_CHARACTER,
+										/* 1453 */
+										/* U+22AE */ CANT_MAP_CHARACTER,
+										/* 1454 */
+										/* U+22AF */ CANT_MAP_CHARACTER,
+										/* 1455 */
+										/* U+22B0 */ CANT_MAP_CHARACTER,
+										/* 1456 */
+										/* U+22B1 */ CANT_MAP_CHARACTER,
+										/* 1457 */
+										/* U+22B2 */ CANT_MAP_CHARACTER,
+										/* 1458 */
+										/* U+22B3 */ CANT_MAP_CHARACTER,
+										/* 1459 */
+										/* U+22B4 */ CANT_MAP_CHARACTER,
+										/* 1460 */
+										/* U+22B5 */ CANT_MAP_CHARACTER,
+										/* 1461 */
+										/* U+22B6 */ CANT_MAP_CHARACTER,
+										/* 1462 */
+										/* U+22B7 */ CANT_MAP_CHARACTER,
+										/* 1463 */
+										/* U+22B8 */ CANT_MAP_CHARACTER,
+										/* 1464 */
+										/* U+22B9 */ CANT_MAP_CHARACTER,
+										/* 1465 */
+										/* U+22BA */ CANT_MAP_CHARACTER,
+										/* 1466 */
+										/* U+22BB */ CANT_MAP_CHARACTER,
+										/* 1467 */
+										/* U+22BC */ CANT_MAP_CHARACTER,
+										/* 1468 */
+										/* U+22BD */ CANT_MAP_CHARACTER,
+										/* 1469 */
+										/* U+22BE */ CANT_MAP_CHARACTER,
+										/* 1470 */
+										/* U+22BF */ CANT_MAP_CHARACTER,
+										/* 1471 */
+										/* U+22C0 */ CANT_MAP_CHARACTER,
+										/* 1472 */
+										/* U+22C1 */ CANT_MAP_CHARACTER,
+										/* 1473 */
+										/* U+22C2 */ CANT_MAP_CHARACTER,
+										/* 1474 */
+										/* U+22C3 */ CANT_MAP_CHARACTER,
+										/* 1475 */
+										/* U+22C4 */ CANT_MAP_CHARACTER,
+										/* 1476 */
+										/* U+22C5 */ CANT_MAP_CHARACTER,
+										/* 1477 */
+										/* U+22C6 */ CANT_MAP_CHARACTER,
+										/* 1478 */
+										/* U+22C7 */ CANT_MAP_CHARACTER,
+										/* 1479 */
+										/* U+22C8 */ CANT_MAP_CHARACTER,
+										/* 1480 */
+										/* U+22C9 */ CANT_MAP_CHARACTER,
+										/* 1481 */
+										/* U+22CA */ CANT_MAP_CHARACTER,
+										/* 1482 */
+										/* U+22CB */ CANT_MAP_CHARACTER,
+										/* 1483 */
+										/* U+22CC */ CANT_MAP_CHARACTER,
+										/* 1484 */
+										/* U+22CD */ CANT_MAP_CHARACTER,
+										/* 1485 */
+										/* U+22CE */ CANT_MAP_CHARACTER,
+										/* 1486 */
+										/* U+22CF */ CANT_MAP_CHARACTER,
+										/* 1487 */
+										/* U+22D0 */ CANT_MAP_CHARACTER,
+										/* 1488 */
+										/* U+22D1 */ CANT_MAP_CHARACTER,
+										/* 1489 */
+										/* U+22D2 */ CANT_MAP_CHARACTER,
+										/* 1490 */
+										/* U+22D3 */ CANT_MAP_CHARACTER,
+										/* 1491 */
+										/* U+22D4 */ CANT_MAP_CHARACTER,
+										/* 1492 */
+										/* U+22D5 */ CANT_MAP_CHARACTER,
+										/* 1493 */
+										/* U+22D6 */ CANT_MAP_CHARACTER,
+										/* 1494 */
+										/* U+22D7 */ CANT_MAP_CHARACTER,
+										/* 1495 */
+										/* U+22D8 */ CANT_MAP_CHARACTER,
+										/* 1496 */
+										/* U+22D9 */ CANT_MAP_CHARACTER,
+										/* 1497 */
+										/* U+22DA */ CANT_MAP_CHARACTER,
+										/* 1498 */
+										/* U+22DB */ CANT_MAP_CHARACTER,
+										/* 1499 */
+										/* U+22DC */ CANT_MAP_CHARACTER,
+										/* 1500 */
+										/* U+22DD */ CANT_MAP_CHARACTER,
+										/* 1501 */
+										/* U+22DE */ CANT_MAP_CHARACTER,
+										/* 1502 */
+										/* U+22DF */ CANT_MAP_CHARACTER,
+										/* 1503 */
+										/* U+22E0 */ CANT_MAP_CHARACTER,
+										/* 1504 */
+										/* U+22E1 */ CANT_MAP_CHARACTER,
+										/* 1505 */
+										/* U+22E2 */ CANT_MAP_CHARACTER,
+										/* 1506 */
+										/* U+22E3 */ CANT_MAP_CHARACTER,
+										/* 1507 */
+										/* U+22E4 */ CANT_MAP_CHARACTER,
+										/* 1508 */
+										/* U+22E5 */ CANT_MAP_CHARACTER,
+										/* 1509 */
+										/* U+22E6 */ CANT_MAP_CHARACTER,
+										/* 1510 */
+										/* U+22E7 */ CANT_MAP_CHARACTER,
+										/* 1511 */
+										/* U+22E8 */ CANT_MAP_CHARACTER,
+										/* 1512 */
+										/* U+22E9 */ CANT_MAP_CHARACTER,
+										/* 1513 */
+										/* U+22EA */ CANT_MAP_CHARACTER,
+										/* 1514 */
+										/* U+22EB */ CANT_MAP_CHARACTER,
+										/* 1515 */
+										/* U+22EC */ CANT_MAP_CHARACTER,
+										/* 1516 */
+										/* U+22ED */ CANT_MAP_CHARACTER,
+										/* 1517 */
+										/* U+22EE */ CANT_MAP_CHARACTER,
+										/* 1518 */
+										/* U+22EF */ CANT_MAP_CHARACTER,
+										/* 1519 */
+										/* U+22F0 */ CANT_MAP_CHARACTER,
+										/* 1520 */
+										/* U+22F1 */ CANT_MAP_CHARACTER,
+										/* 1521 */
+										/* U+22F2 */ CANT_MAP_CHARACTER,
+										/* 1522 */
+										/* U+22F3 */ CANT_MAP_CHARACTER,
+										/* 1523 */
+										/* U+22F4 */ CANT_MAP_CHARACTER,
+										/* 1524 */
+										/* U+22F5 */ CANT_MAP_CHARACTER,
+										/* 1525 */
+										/* U+22F6 */ CANT_MAP_CHARACTER,
+										/* 1526 */
+										/* U+22F7 */ CANT_MAP_CHARACTER,
+										/* 1527 */
+										/* U+22F8 */ CANT_MAP_CHARACTER,
+										/* 1528 */
+										/* U+22F9 */ CANT_MAP_CHARACTER,
+										/* 1529 */
+										/* U+22FA */ CANT_MAP_CHARACTER,
+										/* 1530 */
+										/* U+22FB */ CANT_MAP_CHARACTER,
+										/* 1531 */
+										/* U+22FC */ CANT_MAP_CHARACTER,
+										/* 1532 */
+										/* U+22FD */ CANT_MAP_CHARACTER,
+										/* 1533 */
+										/* U+22FE */ CANT_MAP_CHARACTER,
+										/* 1534 */
+										/* U+22FF */ CANT_MAP_CHARACTER,
+										/* 1535 */
+										/* U+2300 */ CANT_MAP_CHARACTER,
+										/* 1536 */
+										/* U+2301 */ CANT_MAP_CHARACTER,
+										/* 1537 */
+										/* U+2302 */ CANT_MAP_CHARACTER,
+										/* 1538 */
+										/* U+2303 */ CANT_MAP_CHARACTER,
+										/* 1539 */
+										/* U+2304 */ CANT_MAP_CHARACTER,
+										/* 1540 */
+										/* U+2305 */ CANT_MAP_CHARACTER,
+										/* 1541 */
+										/* U+2306 */ CANT_MAP_CHARACTER,
+										/* 1542 */
+										/* U+2307 */ CANT_MAP_CHARACTER,
+										/* 1543 */
+										/* U+2308 */ CANT_MAP_CHARACTER,
+										/* 1544 */
+										/* U+2309 */ CANT_MAP_CHARACTER,
+										/* 1545 */
+										/* U+230A */ CANT_MAP_CHARACTER,
+										/* 1546 */
+										/* U+230B */ CANT_MAP_CHARACTER,
+										/* 1547 */
+										/* U+230C */ CANT_MAP_CHARACTER,
+										/* 1548 */
+										/* U+230D */ CANT_MAP_CHARACTER,
+										/* 1549 */
+										/* U+230E */ CANT_MAP_CHARACTER,
+										/* 1550 */
+										/* U+230F */ CANT_MAP_CHARACTER,
+										/* 1551 */
+	/* U+2310 */ 0xA9 /*                             REVERSED NOT SIGN */ ,	/* 1552 */
+										/* U+2311 */ CANT_MAP_CHARACTER,
+										/* 1553 */
+										/* U+2312 */ CANT_MAP_CHARACTER,
+										/* 1554 */
+										/* U+2313 */ CANT_MAP_CHARACTER,
+										/* 1555 */
+										/* U+2314 */ CANT_MAP_CHARACTER,
+										/* 1556 */
+										/* U+2315 */ CANT_MAP_CHARACTER,
+										/* 1557 */
+										/* U+2316 */ CANT_MAP_CHARACTER,
+										/* 1558 */
+										/* U+2317 */ CANT_MAP_CHARACTER,
+										/* 1559 */
+										/* U+2318 */ CANT_MAP_CHARACTER,
+										/* 1560 */
+										/* U+2319 */ CANT_MAP_CHARACTER,
+										/* 1561 */
+										/* U+231A */ CANT_MAP_CHARACTER,
+										/* 1562 */
+										/* U+231B */ CANT_MAP_CHARACTER,
+										/* 1563 */
+										/* U+231C */ CANT_MAP_CHARACTER,
+										/* 1564 */
+										/* U+231D */ CANT_MAP_CHARACTER,
+										/* 1565 */
+										/* U+231E */ CANT_MAP_CHARACTER,
+										/* 1566 */
+										/* U+231F */ CANT_MAP_CHARACTER,
+										/* 1567 */
+	/* U+2320 */ 0xF4 /*                             TOP HALF INTEGRAL */ ,	/* 1568 */
+	/* U+2321 */ 0xF5 /*                          BOTTOM HALF INTEGRAL */ ,	/* 1569 */
+										/* U+2322 */ CANT_MAP_CHARACTER,
+										/* 1570 */
+										/* U+2323 */ CANT_MAP_CHARACTER,
+										/* 1571 */
+										/* U+2324 */ CANT_MAP_CHARACTER,
+										/* 1572 */
+										/* U+2325 */ CANT_MAP_CHARACTER,
+										/* 1573 */
+										/* U+2326 */ CANT_MAP_CHARACTER,
+										/* 1574 */
+										/* U+2327 */ CANT_MAP_CHARACTER,
+										/* 1575 */
+										/* U+2328 */ CANT_MAP_CHARACTER,
+										/* 1576 */
+										/* U+2329 */ CANT_MAP_CHARACTER,
+										/* 1577 */
+										/* U+232A */ CANT_MAP_CHARACTER,
+										/* 1578 */
+										/* U+232B */ CANT_MAP_CHARACTER,
+										/* 1579 */
+										/* U+232C */ CANT_MAP_CHARACTER,
+										/* 1580 */
+										/* U+232D */ CANT_MAP_CHARACTER,
+										/* 1581 */
+										/* U+232E */ CANT_MAP_CHARACTER,
+										/* 1582 */
+										/* U+232F */ CANT_MAP_CHARACTER,
+										/* 1583 */
+										/* U+2330 */ CANT_MAP_CHARACTER,
+										/* 1584 */
+										/* U+2331 */ CANT_MAP_CHARACTER,
+										/* 1585 */
+										/* U+2332 */ CANT_MAP_CHARACTER,
+										/* 1586 */
+										/* U+2333 */ CANT_MAP_CHARACTER,
+										/* 1587 */
+										/* U+2334 */ CANT_MAP_CHARACTER,
+										/* 1588 */
+										/* U+2335 */ CANT_MAP_CHARACTER,
+										/* 1589 */
+										/* U+2336 */ CANT_MAP_CHARACTER,
+										/* 1590 */
+										/* U+2337 */ CANT_MAP_CHARACTER,
+										/* 1591 */
+										/* U+2338 */ CANT_MAP_CHARACTER,
+										/* 1592 */
+										/* U+2339 */ CANT_MAP_CHARACTER,
+										/* 1593 */
+										/* U+233A */ CANT_MAP_CHARACTER,
+										/* 1594 */
+										/* U+233B */ CANT_MAP_CHARACTER,
+										/* 1595 */
+										/* U+233C */ CANT_MAP_CHARACTER,
+										/* 1596 */
+										/* U+233D */ CANT_MAP_CHARACTER,
+										/* 1597 */
+										/* U+233E */ CANT_MAP_CHARACTER,
+										/* 1598 */
+										/* U+233F */ CANT_MAP_CHARACTER,
+										/* 1599 */
+										/* U+2340 */ CANT_MAP_CHARACTER,
+										/* 1600 */
+										/* U+2341 */ CANT_MAP_CHARACTER,
+										/* 1601 */
+										/* U+2342 */ CANT_MAP_CHARACTER,
+										/* 1602 */
+										/* U+2343 */ CANT_MAP_CHARACTER,
+										/* 1603 */
+										/* U+2344 */ CANT_MAP_CHARACTER,
+										/* 1604 */
+										/* U+2345 */ CANT_MAP_CHARACTER,
+										/* 1605 */
+										/* U+2346 */ CANT_MAP_CHARACTER,
+										/* 1606 */
+										/* U+2347 */ CANT_MAP_CHARACTER,
+										/* 1607 */
+										/* U+2348 */ CANT_MAP_CHARACTER,
+										/* 1608 */
+										/* U+2349 */ CANT_MAP_CHARACTER,
+										/* 1609 */
+										/* U+234A */ CANT_MAP_CHARACTER,
+										/* 1610 */
+										/* U+234B */ CANT_MAP_CHARACTER,
+										/* 1611 */
+										/* U+234C */ CANT_MAP_CHARACTER,
+										/* 1612 */
+										/* U+234D */ CANT_MAP_CHARACTER,
+										/* 1613 */
+										/* U+234E */ CANT_MAP_CHARACTER,
+										/* 1614 */
+										/* U+234F */ CANT_MAP_CHARACTER,
+										/* 1615 */
+										/* U+2350 */ CANT_MAP_CHARACTER,
+										/* 1616 */
+										/* U+2351 */ CANT_MAP_CHARACTER,
+										/* 1617 */
+										/* U+2352 */ CANT_MAP_CHARACTER,
+										/* 1618 */
+										/* U+2353 */ CANT_MAP_CHARACTER,
+										/* 1619 */
+										/* U+2354 */ CANT_MAP_CHARACTER,
+										/* 1620 */
+										/* U+2355 */ CANT_MAP_CHARACTER,
+										/* 1621 */
+										/* U+2356 */ CANT_MAP_CHARACTER,
+										/* 1622 */
+										/* U+2357 */ CANT_MAP_CHARACTER,
+										/* 1623 */
+										/* U+2358 */ CANT_MAP_CHARACTER,
+										/* 1624 */
+										/* U+2359 */ CANT_MAP_CHARACTER,
+										/* 1625 */
+										/* U+235A */ CANT_MAP_CHARACTER,
+										/* 1626 */
+										/* U+235B */ CANT_MAP_CHARACTER,
+										/* 1627 */
+										/* U+235C */ CANT_MAP_CHARACTER,
+										/* 1628 */
+										/* U+235D */ CANT_MAP_CHARACTER,
+										/* 1629 */
+										/* U+235E */ CANT_MAP_CHARACTER,
+										/* 1630 */
+										/* U+235F */ CANT_MAP_CHARACTER,
+										/* 1631 */
+										/* U+2360 */ CANT_MAP_CHARACTER,
+										/* 1632 */
+										/* U+2361 */ CANT_MAP_CHARACTER,
+										/* 1633 */
+										/* U+2362 */ CANT_MAP_CHARACTER,
+										/* 1634 */
+										/* U+2363 */ CANT_MAP_CHARACTER,
+										/* 1635 */
+										/* U+2364 */ CANT_MAP_CHARACTER,
+										/* 1636 */
+										/* U+2365 */ CANT_MAP_CHARACTER,
+										/* 1637 */
+										/* U+2366 */ CANT_MAP_CHARACTER,
+										/* 1638 */
+										/* U+2367 */ CANT_MAP_CHARACTER,
+										/* 1639 */
+										/* U+2368 */ CANT_MAP_CHARACTER,
+										/* 1640 */
+										/* U+2369 */ CANT_MAP_CHARACTER,
+										/* 1641 */
+										/* U+236A */ CANT_MAP_CHARACTER,
+										/* 1642 */
+										/* U+236B */ CANT_MAP_CHARACTER,
+										/* 1643 */
+										/* U+236C */ CANT_MAP_CHARACTER,
+										/* 1644 */
+										/* U+236D */ CANT_MAP_CHARACTER,
+										/* 1645 */
+										/* U+236E */ CANT_MAP_CHARACTER,
+										/* 1646 */
+										/* U+236F */ CANT_MAP_CHARACTER,
+										/* 1647 */
+										/* U+2370 */ CANT_MAP_CHARACTER,
+										/* 1648 */
+										/* U+2371 */ CANT_MAP_CHARACTER,
+										/* 1649 */
+										/* U+2372 */ CANT_MAP_CHARACTER,
+										/* 1650 */
+										/* U+2373 */ CANT_MAP_CHARACTER,
+										/* 1651 */
+										/* U+2374 */ CANT_MAP_CHARACTER,
+										/* 1652 */
+										/* U+2375 */ CANT_MAP_CHARACTER,
+										/* 1653 */
+										/* U+2376 */ CANT_MAP_CHARACTER,
+										/* 1654 */
+										/* U+2377 */ CANT_MAP_CHARACTER,
+										/* 1655 */
+										/* U+2378 */ CANT_MAP_CHARACTER,
+										/* 1656 */
+										/* U+2379 */ CANT_MAP_CHARACTER,
+										/* 1657 */
+										/* U+237A */ CANT_MAP_CHARACTER,
+										/* 1658 */
+										/* U+237B */ CANT_MAP_CHARACTER,
+										/* 1659 */
+										/* U+237C */ CANT_MAP_CHARACTER,
+										/* 1660 */
+										/* U+237D */ CANT_MAP_CHARACTER,
+										/* 1661 */
+										/* U+237E */ CANT_MAP_CHARACTER,
+										/* 1662 */
+										/* U+237F */ CANT_MAP_CHARACTER,
+										/* 1663 */
+										/* U+2380 */ CANT_MAP_CHARACTER,
+										/* 1664 */
+										/* U+2381 */ CANT_MAP_CHARACTER,
+										/* 1665 */
+										/* U+2382 */ CANT_MAP_CHARACTER,
+										/* 1666 */
+										/* U+2383 */ CANT_MAP_CHARACTER,
+										/* 1667 */
+										/* U+2384 */ CANT_MAP_CHARACTER,
+										/* 1668 */
+										/* U+2385 */ CANT_MAP_CHARACTER,
+										/* 1669 */
+										/* U+2386 */ CANT_MAP_CHARACTER,
+										/* 1670 */
+										/* U+2387 */ CANT_MAP_CHARACTER,
+										/* 1671 */
+										/* U+2388 */ CANT_MAP_CHARACTER,
+										/* 1672 */
+										/* U+2389 */ CANT_MAP_CHARACTER,
+										/* 1673 */
+										/* U+238A */ CANT_MAP_CHARACTER,
+										/* 1674 */
+										/* U+238B */ CANT_MAP_CHARACTER,
+										/* 1675 */
+										/* U+238C */ CANT_MAP_CHARACTER,
+										/* 1676 */
+										/* U+238D */ CANT_MAP_CHARACTER,
+										/* 1677 */
+										/* U+238E */ CANT_MAP_CHARACTER,
+										/* 1678 */
+										/* U+238F */ CANT_MAP_CHARACTER,
+										/* 1679 */
+										/* U+2390 */ CANT_MAP_CHARACTER,
+										/* 1680 */
+										/* U+2391 */ CANT_MAP_CHARACTER,
+										/* 1681 */
+										/* U+2392 */ CANT_MAP_CHARACTER,
+										/* 1682 */
+										/* U+2393 */ CANT_MAP_CHARACTER,
+										/* 1683 */
+										/* U+2394 */ CANT_MAP_CHARACTER,
+										/* 1684 */
+										/* U+2395 */ CANT_MAP_CHARACTER,
+										/* 1685 */
+										/* U+2396 */ CANT_MAP_CHARACTER,
+										/* 1686 */
+										/* U+2397 */ CANT_MAP_CHARACTER,
+										/* 1687 */
+										/* U+2398 */ CANT_MAP_CHARACTER,
+										/* 1688 */
+										/* U+2399 */ CANT_MAP_CHARACTER,
+										/* 1689 */
+										/* U+239A */ CANT_MAP_CHARACTER,
+										/* 1690 */
+										/* U+239B */ CANT_MAP_CHARACTER,
+										/* 1691 */
+										/* U+239C */ CANT_MAP_CHARACTER,
+										/* 1692 */
+										/* U+239D */ CANT_MAP_CHARACTER,
+										/* 1693 */
+										/* U+239E */ CANT_MAP_CHARACTER,
+										/* 1694 */
+										/* U+239F */ CANT_MAP_CHARACTER,
+										/* 1695 */
+										/* U+23A0 */ CANT_MAP_CHARACTER,
+										/* 1696 */
+										/* U+23A1 */ CANT_MAP_CHARACTER,
+										/* 1697 */
+										/* U+23A2 */ CANT_MAP_CHARACTER,
+										/* 1698 */
+										/* U+23A3 */ CANT_MAP_CHARACTER,
+										/* 1699 */
+										/* U+23A4 */ CANT_MAP_CHARACTER,
+										/* 1700 */
+										/* U+23A5 */ CANT_MAP_CHARACTER,
+										/* 1701 */
+										/* U+23A6 */ CANT_MAP_CHARACTER,
+										/* 1702 */
+										/* U+23A7 */ CANT_MAP_CHARACTER,
+										/* 1703 */
+										/* U+23A8 */ CANT_MAP_CHARACTER,
+										/* 1704 */
+										/* U+23A9 */ CANT_MAP_CHARACTER,
+										/* 1705 */
+										/* U+23AA */ CANT_MAP_CHARACTER,
+										/* 1706 */
+										/* U+23AB */ CANT_MAP_CHARACTER,
+										/* 1707 */
+										/* U+23AC */ CANT_MAP_CHARACTER,
+										/* 1708 */
+										/* U+23AD */ CANT_MAP_CHARACTER,
+										/* 1709 */
+										/* U+23AE */ CANT_MAP_CHARACTER,
+										/* 1710 */
+										/* U+23AF */ CANT_MAP_CHARACTER,
+										/* 1711 */
+										/* U+23B0 */ CANT_MAP_CHARACTER,
+										/* 1712 */
+										/* U+23B1 */ CANT_MAP_CHARACTER,
+										/* 1713 */
+										/* U+23B2 */ CANT_MAP_CHARACTER,
+										/* 1714 */
+										/* U+23B3 */ CANT_MAP_CHARACTER,
+										/* 1715 */
+										/* U+23B4 */ CANT_MAP_CHARACTER,
+										/* 1716 */
+										/* U+23B5 */ CANT_MAP_CHARACTER,
+										/* 1717 */
+										/* U+23B6 */ CANT_MAP_CHARACTER,
+										/* 1718 */
+										/* U+23B7 */ CANT_MAP_CHARACTER,
+										/* 1719 */
+										/* U+23B8 */ CANT_MAP_CHARACTER,
+										/* 1720 */
+										/* U+23B9 */ CANT_MAP_CHARACTER,
+										/* 1721 */
+										/* U+23BA */ CANT_MAP_CHARACTER,
+										/* 1722 */
+										/* U+23BB */ CANT_MAP_CHARACTER,
+										/* 1723 */
+										/* U+23BC */ CANT_MAP_CHARACTER,
+										/* 1724 */
+										/* U+23BD */ CANT_MAP_CHARACTER,
+										/* 1725 */
+										/* U+23BE */ CANT_MAP_CHARACTER,
+										/* 1726 */
+										/* U+23BF */ CANT_MAP_CHARACTER,
+										/* 1727 */
+										/* U+23C0 */ CANT_MAP_CHARACTER,
+										/* 1728 */
+										/* U+23C1 */ CANT_MAP_CHARACTER,
+										/* 1729 */
+										/* U+23C2 */ CANT_MAP_CHARACTER,
+										/* 1730 */
+										/* U+23C3 */ CANT_MAP_CHARACTER,
+										/* 1731 */
+										/* U+23C4 */ CANT_MAP_CHARACTER,
+										/* 1732 */
+										/* U+23C5 */ CANT_MAP_CHARACTER,
+										/* 1733 */
+										/* U+23C6 */ CANT_MAP_CHARACTER,
+										/* 1734 */
+										/* U+23C7 */ CANT_MAP_CHARACTER,
+										/* 1735 */
+										/* U+23C8 */ CANT_MAP_CHARACTER,
+										/* 1736 */
+										/* U+23C9 */ CANT_MAP_CHARACTER,
+										/* 1737 */
+										/* U+23CA */ CANT_MAP_CHARACTER,
+										/* 1738 */
+										/* U+23CB */ CANT_MAP_CHARACTER,
+										/* 1739 */
+										/* U+23CC */ CANT_MAP_CHARACTER,
+										/* 1740 */
+										/* U+23CD */ CANT_MAP_CHARACTER,
+										/* 1741 */
+										/* U+23CE */ CANT_MAP_CHARACTER,
+										/* 1742 */
+										/* U+23CF */ CANT_MAP_CHARACTER,
+										/* 1743 */
+										/* U+23D0 */ CANT_MAP_CHARACTER,
+										/* 1744 */
+										/* U+23D1 */ CANT_MAP_CHARACTER,
+										/* 1745 */
+										/* U+23D2 */ CANT_MAP_CHARACTER,
+										/* 1746 */
+										/* U+23D3 */ CANT_MAP_CHARACTER,
+										/* 1747 */
+										/* U+23D4 */ CANT_MAP_CHARACTER,
+										/* 1748 */
+										/* U+23D5 */ CANT_MAP_CHARACTER,
+										/* 1749 */
+										/* U+23D6 */ CANT_MAP_CHARACTER,
+										/* 1750 */
+										/* U+23D7 */ CANT_MAP_CHARACTER,
+										/* 1751 */
+										/* U+23D8 */ CANT_MAP_CHARACTER,
+										/* 1752 */
+										/* U+23D9 */ CANT_MAP_CHARACTER,
+										/* 1753 */
+										/* U+23DA */ CANT_MAP_CHARACTER,
+										/* 1754 */
+										/* U+23DB */ CANT_MAP_CHARACTER,
+										/* 1755 */
+										/* U+23DC */ CANT_MAP_CHARACTER,
+										/* 1756 */
+										/* U+23DD */ CANT_MAP_CHARACTER,
+										/* 1757 */
+										/* U+23DE */ CANT_MAP_CHARACTER,
+										/* 1758 */
+										/* U+23DF */ CANT_MAP_CHARACTER,
+										/* 1759 */
+										/* U+23E0 */ CANT_MAP_CHARACTER,
+										/* 1760 */
+										/* U+23E1 */ CANT_MAP_CHARACTER,
+										/* 1761 */
+										/* U+23E2 */ CANT_MAP_CHARACTER,
+										/* 1762 */
+										/* U+23E3 */ CANT_MAP_CHARACTER,
+										/* 1763 */
+										/* U+23E4 */ CANT_MAP_CHARACTER,
+										/* 1764 */
+										/* U+23E5 */ CANT_MAP_CHARACTER,
+										/* 1765 */
+										/* U+23E6 */ CANT_MAP_CHARACTER,
+										/* 1766 */
+										/* U+23E7 */ CANT_MAP_CHARACTER,
+										/* 1767 */
+										/* U+23E8 */ CANT_MAP_CHARACTER,
+										/* 1768 */
+										/* U+23E9 */ CANT_MAP_CHARACTER,
+										/* 1769 */
+										/* U+23EA */ CANT_MAP_CHARACTER,
+										/* 1770 */
+										/* U+23EB */ CANT_MAP_CHARACTER,
+										/* 1771 */
+										/* U+23EC */ CANT_MAP_CHARACTER,
+										/* 1772 */
+										/* U+23ED */ CANT_MAP_CHARACTER,
+										/* 1773 */
+										/* U+23EE */ CANT_MAP_CHARACTER,
+										/* 1774 */
+										/* U+23EF */ CANT_MAP_CHARACTER,
+										/* 1775 */
+										/* U+23F0 */ CANT_MAP_CHARACTER,
+										/* 1776 */
+										/* U+23F1 */ CANT_MAP_CHARACTER,
+										/* 1777 */
+										/* U+23F2 */ CANT_MAP_CHARACTER,
+										/* 1778 */
+										/* U+23F3 */ CANT_MAP_CHARACTER,
+										/* 1779 */
+										/* U+23F4 */ CANT_MAP_CHARACTER,
+										/* 1780 */
+										/* U+23F5 */ CANT_MAP_CHARACTER,
+										/* 1781 */
+										/* U+23F6 */ CANT_MAP_CHARACTER,
+										/* 1782 */
+										/* U+23F7 */ CANT_MAP_CHARACTER,
+										/* 1783 */
+										/* U+23F8 */ CANT_MAP_CHARACTER,
+										/* 1784 */
+										/* U+23F9 */ CANT_MAP_CHARACTER,
+										/* 1785 */
+										/* U+23FA */ CANT_MAP_CHARACTER,
+										/* 1786 */
+										/* U+23FB */ CANT_MAP_CHARACTER,
+										/* 1787 */
+										/* U+23FC */ CANT_MAP_CHARACTER,
+										/* 1788 */
+										/* U+23FD */ CANT_MAP_CHARACTER,
+										/* 1789 */
+										/* U+23FE */ CANT_MAP_CHARACTER,
+										/* 1790 */
+										/* U+23FF */ CANT_MAP_CHARACTER,
+										/* 1791 */
+	/* U+2500 */ 0xC4 /*                 BOX DRAWINGS LIGHT HORIZONTAL */ ,	/* 1792 */
+										/* U+2501 */ CANT_MAP_CHARACTER,
+										/* 1793 */
+	/* U+2502 */ 0xB3 /*                   BOX DRAWINGS LIGHT VERTICAL */ ,	/* 1794 */
+										/* U+2503 */ CANT_MAP_CHARACTER,
+										/* 1795 */
+										/* U+2504 */ CANT_MAP_CHARACTER,
+										/* 1796 */
+										/* U+2505 */ CANT_MAP_CHARACTER,
+										/* 1797 */
+										/* U+2506 */ CANT_MAP_CHARACTER,
+										/* 1798 */
+										/* U+2507 */ CANT_MAP_CHARACTER,
+										/* 1799 */
+										/* U+2508 */ CANT_MAP_CHARACTER,
+										/* 1800 */
+										/* U+2509 */ CANT_MAP_CHARACTER,
+										/* 1801 */
+										/* U+250A */ CANT_MAP_CHARACTER,
+										/* 1802 */
+										/* U+250B */ CANT_MAP_CHARACTER,
+										/* 1803 */
+	/* U+250C */ 0xDA /*             BOX DRAWINGS LIGHT DOWN AND RIGHT */ ,	/* 1804 */
+										/* U+250D */ CANT_MAP_CHARACTER,
+										/* 1805 */
+										/* U+250E */ CANT_MAP_CHARACTER,
+										/* 1806 */
+										/* U+250F */ CANT_MAP_CHARACTER,
+										/* 1807 */
+	/* U+2510 */ 0xBF /*              BOX DRAWINGS LIGHT DOWN AND LEFT */ ,	/* 1808 */
+										/* U+2511 */ CANT_MAP_CHARACTER,
+										/* 1809 */
+										/* U+2512 */ CANT_MAP_CHARACTER,
+										/* 1810 */
+										/* U+2513 */ CANT_MAP_CHARACTER,
+										/* 1811 */
+	/* U+2514 */ 0xC0 /*               BOX DRAWINGS LIGHT UP AND RIGHT */ ,	/* 1812 */
+										/* U+2515 */ CANT_MAP_CHARACTER,
+										/* 1813 */
+										/* U+2516 */ CANT_MAP_CHARACTER,
+										/* 1814 */
+										/* U+2517 */ CANT_MAP_CHARACTER,
+										/* 1815 */
+	/* U+2518 */ 0xD9 /*                BOX DRAWINGS LIGHT UP AND LEFT */ ,	/* 1816 */
+										/* U+2519 */ CANT_MAP_CHARACTER,
+										/* 1817 */
+										/* U+251A */ CANT_MAP_CHARACTER,
+										/* 1818 */
+										/* U+251B */ CANT_MAP_CHARACTER,
+										/* 1819 */
+	/* U+251C */ 0xC3 /*         BOX DRAWINGS LIGHT VERTICAL AND RIGHT */ ,	/* 1820 */
+										/* U+251D */ CANT_MAP_CHARACTER,
+										/* 1821 */
+										/* U+251E */ CANT_MAP_CHARACTER,
+										/* 1822 */
+										/* U+251F */ CANT_MAP_CHARACTER,
+										/* 1823 */
+										/* U+2520 */ CANT_MAP_CHARACTER,
+										/* 1824 */
+										/* U+2521 */ CANT_MAP_CHARACTER,
+										/* 1825 */
+										/* U+2522 */ CANT_MAP_CHARACTER,
+										/* 1826 */
+										/* U+2523 */ CANT_MAP_CHARACTER,
+										/* 1827 */
+	/* U+2524 */ 0xB4 /*          BOX DRAWINGS LIGHT VERTICAL AND LEFT */ ,	/* 1828 */
+										/* U+2525 */ CANT_MAP_CHARACTER,
+										/* 1829 */
+										/* U+2526 */ CANT_MAP_CHARACTER,
+										/* 1830 */
+										/* U+2527 */ CANT_MAP_CHARACTER,
+										/* 1831 */
+										/* U+2528 */ CANT_MAP_CHARACTER,
+										/* 1832 */
+										/* U+2529 */ CANT_MAP_CHARACTER,
+										/* 1833 */
+										/* U+252A */ CANT_MAP_CHARACTER,
+										/* 1834 */
+										/* U+252B */ CANT_MAP_CHARACTER,
+										/* 1835 */
+	/* U+252C */ 0xC2 /*        BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */ ,	/* 1836 */
+										/* U+252D */ CANT_MAP_CHARACTER,
+										/* 1837 */
+										/* U+252E */ CANT_MAP_CHARACTER,
+										/* 1838 */
+										/* U+252F */ CANT_MAP_CHARACTER,
+										/* 1839 */
+										/* U+2530 */ CANT_MAP_CHARACTER,
+										/* 1840 */
+										/* U+2531 */ CANT_MAP_CHARACTER,
+										/* 1841 */
+										/* U+2532 */ CANT_MAP_CHARACTER,
+										/* 1842 */
+										/* U+2533 */ CANT_MAP_CHARACTER,
+										/* 1843 */
+	/* U+2534 */ 0xC1 /*          BOX DRAWINGS LIGHT UP AND HORIZONTAL */ ,	/* 1844 */
+										/* U+2535 */ CANT_MAP_CHARACTER,
+										/* 1845 */
+										/* U+2536 */ CANT_MAP_CHARACTER,
+										/* 1846 */
+										/* U+2537 */ CANT_MAP_CHARACTER,
+										/* 1847 */
+										/* U+2538 */ CANT_MAP_CHARACTER,
+										/* 1848 */
+										/* U+2539 */ CANT_MAP_CHARACTER,
+										/* 1849 */
+										/* U+253A */ CANT_MAP_CHARACTER,
+										/* 1850 */
+										/* U+253B */ CANT_MAP_CHARACTER,
+										/* 1851 */
+	/* U+253C */ 0xC5 /*    BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */ ,	/* 1852 */
+										/* U+253D */ CANT_MAP_CHARACTER,
+										/* 1853 */
+										/* U+253E */ CANT_MAP_CHARACTER,
+										/* 1854 */
+										/* U+253F */ CANT_MAP_CHARACTER,
+										/* 1855 */
+										/* U+2540 */ CANT_MAP_CHARACTER,
+										/* 1856 */
+										/* U+2541 */ CANT_MAP_CHARACTER,
+										/* 1857 */
+										/* U+2542 */ CANT_MAP_CHARACTER,
+										/* 1858 */
+										/* U+2543 */ CANT_MAP_CHARACTER,
+										/* 1859 */
+										/* U+2544 */ CANT_MAP_CHARACTER,
+										/* 1860 */
+										/* U+2545 */ CANT_MAP_CHARACTER,
+										/* 1861 */
+										/* U+2546 */ CANT_MAP_CHARACTER,
+										/* 1862 */
+										/* U+2547 */ CANT_MAP_CHARACTER,
+										/* 1863 */
+										/* U+2548 */ CANT_MAP_CHARACTER,
+										/* 1864 */
+										/* U+2549 */ CANT_MAP_CHARACTER,
+										/* 1865 */
+										/* U+254A */ CANT_MAP_CHARACTER,
+										/* 1866 */
+										/* U+254B */ CANT_MAP_CHARACTER,
+										/* 1867 */
+										/* U+254C */ CANT_MAP_CHARACTER,
+										/* 1868 */
+										/* U+254D */ CANT_MAP_CHARACTER,
+										/* 1869 */
+										/* U+254E */ CANT_MAP_CHARACTER,
+										/* 1870 */
+										/* U+254F */ CANT_MAP_CHARACTER,
+										/* 1871 */
+	/* U+2550 */ 0xCD /*                BOX DRAWINGS DOUBLE HORIZONTAL */ ,	/* 1872 */
+	/* U+2551 */ 0xBA /*                  BOX DRAWINGS DOUBLE VERTICAL */ ,	/* 1873 */
+	/* U+2552 */ 0xD5 /*     BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE */ ,	/* 1874 */
+	/* U+2553 */ 0xD6 /*     BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE */ ,	/* 1875 */
+	/* U+2554 */ 0xC9 /*            BOX DRAWINGS DOUBLE DOWN AND RIGHT */ ,	/* 1876 */
+	/* U+2555 */ 0xB8 /*      BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE */ ,	/* 1877 */
+	/* U+2556 */ 0xB7 /*      BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE */ ,	/* 1878 */
+	/* U+2557 */ 0xBB /*             BOX DRAWINGS DOUBLE DOWN AND LEFT */ ,	/* 1879 */
+	/* U+2558 */ 0xD4 /*       BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE */ ,	/* 1880 */
+	/* U+2559 */ 0xD3 /*       BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE */ ,	/* 1881 */
+	/* U+255A */ 0xC8 /*              BOX DRAWINGS DOUBLE UP AND RIGHT */ ,	/* 1882 */
+	/* U+255B */ 0xBE /*        BOX DRAWINGS UP SINGLE AND LEFT DOUBLE */ ,	/* 1883 */
+	/* U+255C */ 0xBD /*        BOX DRAWINGS UP DOUBLE AND LEFT SINGLE */ ,	/* 1884 */
+	/* U+255D */ 0xBC /*               BOX DRAWINGS DOUBLE UP AND LEFT */ ,	/* 1885 */
+	/* U+255E */ 0xC6 /* BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE */ ,	/* 1886 */
+	/* U+255F */ 0xC7 /* BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE */ ,	/* 1887 */
+	/* U+2560 */ 0xCC /*        BOX DRAWINGS DOUBLE VERTICAL AND RIGHT */ ,	/* 1888 */
+	/* U+2561 */ 0xB5 /*  BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE */ ,	/* 1889 */
+	/* U+2562 */ 0xB6 /*  BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE */ ,	/* 1890 */
+	/* U+2563 */ 0xB9 /*         BOX DRAWINGS DOUBLE VERTICAL AND LEFT */ ,	/* 1891 */
+	/* U+2564 */ 0xD1 /* BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1892 */
+	/* U+2565 */ 0xD2 /* BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1893 */
+	/* U+2566 */ 0xCB /*       BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL */ ,	/* 1894 */
+	/* U+2567 */ 0xCF /*  BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1895 */
+	/* U+2568 */ 0xD0 /*  BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1896 */
+	/* U+2569 */ 0xCA /*         BOX DRAWINGS DOUBLE UP AND HORIZONTAL */ ,	/* 1897 */
+	/* U+256A */ 0xD8 /* BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE */ ,	/* 1898 */
+	/* U+256B */ 0xD7 /* BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE */ ,	/* 1899 */
+	/* U+256C */ 0xCE /*   BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL */ ,	/* 1900 */
+										/* U+256D */ CANT_MAP_CHARACTER,
+										/* 1901 */
+										/* U+256E */ CANT_MAP_CHARACTER,
+										/* 1902 */
+										/* U+256F */ CANT_MAP_CHARACTER,
+										/* 1903 */
+										/* U+2570 */ CANT_MAP_CHARACTER,
+										/* 1904 */
+										/* U+2571 */ CANT_MAP_CHARACTER,
+										/* 1905 */
+										/* U+2572 */ CANT_MAP_CHARACTER,
+										/* 1906 */
+										/* U+2573 */ CANT_MAP_CHARACTER,
+										/* 1907 */
+										/* U+2574 */ CANT_MAP_CHARACTER,
+										/* 1908 */
+										/* U+2575 */ CANT_MAP_CHARACTER,
+										/* 1909 */
+										/* U+2576 */ CANT_MAP_CHARACTER,
+										/* 1910 */
+										/* U+2577 */ CANT_MAP_CHARACTER,
+										/* 1911 */
+										/* U+2578 */ CANT_MAP_CHARACTER,
+										/* 1912 */
+										/* U+2579 */ CANT_MAP_CHARACTER,
+										/* 1913 */
+										/* U+257A */ CANT_MAP_CHARACTER,
+										/* 1914 */
+										/* U+257B */ CANT_MAP_CHARACTER,
+										/* 1915 */
+										/* U+257C */ CANT_MAP_CHARACTER,
+										/* 1916 */
+										/* U+257D */ CANT_MAP_CHARACTER,
+										/* 1917 */
+										/* U+257E */ CANT_MAP_CHARACTER,
+										/* 1918 */
+										/* U+257F */ CANT_MAP_CHARACTER,
+										/* 1919 */
+	/* U+2580 */ 0xDF /*                              UPPER HALF BLOCK */ ,	/* 1920 */
+										/* U+2581 */ CANT_MAP_CHARACTER,
+										/* 1921 */
+										/* U+2582 */ CANT_MAP_CHARACTER,
+										/* 1922 */
+										/* U+2583 */ CANT_MAP_CHARACTER,
+										/* 1923 */
+	/* U+2584 */ 0xDC /*                              LOWER HALF BLOCK */ ,	/* 1924 */
+										/* U+2585 */ CANT_MAP_CHARACTER,
+										/* 1925 */
+										/* U+2586 */ CANT_MAP_CHARACTER,
+										/* 1926 */
+										/* U+2587 */ CANT_MAP_CHARACTER,
+										/* 1927 */
+	/* U+2588 */ 0xDB /*                                    FULL BLOCK */ ,	/* 1928 */
+										/* U+2589 */ CANT_MAP_CHARACTER,
+										/* 1929 */
+										/* U+258A */ CANT_MAP_CHARACTER,
+										/* 1930 */
+										/* U+258B */ CANT_MAP_CHARACTER,
+										/* 1931 */
+	/* U+258C */ 0xDD /*                               LEFT HALF BLOCK */ ,	/* 1932 */
+										/* U+258D */ CANT_MAP_CHARACTER,
+										/* 1933 */
+										/* U+258E */ CANT_MAP_CHARACTER,
+										/* 1934 */
+										/* U+258F */ CANT_MAP_CHARACTER,
+										/* 1935 */
+	/* U+2590 */ 0xDE /*                              RIGHT HALF BLOCK */ ,	/* 1936 */
+	/* U+2591 */ 0xB0 /*                                   LIGHT SHADE */ ,	/* 1937 */
+	/* U+2592 */ 0xB1 /*                                  MEDIUM SHADE */ ,	/* 1938 */
+	/* U+2593 */ 0xB2 /*                                    DARK SHADE */ ,	/* 1939 */
+										/* U+2594 */ CANT_MAP_CHARACTER,
+										/* 1940 */
+										/* U+2595 */ CANT_MAP_CHARACTER,
+										/* 1941 */
+										/* U+2596 */ CANT_MAP_CHARACTER,
+										/* 1942 */
+										/* U+2597 */ CANT_MAP_CHARACTER,
+										/* 1943 */
+										/* U+2598 */ CANT_MAP_CHARACTER,
+										/* 1944 */
+										/* U+2599 */ CANT_MAP_CHARACTER,
+										/* 1945 */
+										/* U+259A */ CANT_MAP_CHARACTER,
+										/* 1946 */
+										/* U+259B */ CANT_MAP_CHARACTER,
+										/* 1947 */
+										/* U+259C */ CANT_MAP_CHARACTER,
+										/* 1948 */
+										/* U+259D */ CANT_MAP_CHARACTER,
+										/* 1949 */
+										/* U+259E */ CANT_MAP_CHARACTER,
+										/* 1950 */
+										/* U+259F */ CANT_MAP_CHARACTER,
+										/* 1951 */
+	/* U+25A0 */ 0xFE /*                                  BLACK SQUARE */ ,	/* 1952 */
+										/* U+25A1 */ CANT_MAP_CHARACTER,
+										/* 1953 */
+										/* U+25A2 */ CANT_MAP_CHARACTER,
+										/* 1954 */
+										/* U+25A3 */ CANT_MAP_CHARACTER,
+										/* 1955 */
+										/* U+25A4 */ CANT_MAP_CHARACTER,
+										/* 1956 */
+										/* U+25A5 */ CANT_MAP_CHARACTER,
+										/* 1957 */
+										/* U+25A6 */ CANT_MAP_CHARACTER,
+										/* 1958 */
+										/* U+25A7 */ CANT_MAP_CHARACTER,
+										/* 1959 */
+										/* U+25A8 */ CANT_MAP_CHARACTER,
+										/* 1960 */
+										/* U+25A9 */ CANT_MAP_CHARACTER,
+										/* 1961 */
+										/* U+25AA */ CANT_MAP_CHARACTER,
+										/* 1962 */
+										/* U+25AB */ CANT_MAP_CHARACTER,
+										/* 1963 */
+										/* U+25AC */ CANT_MAP_CHARACTER,
+										/* 1964 */
+										/* U+25AD */ CANT_MAP_CHARACTER,
+										/* 1965 */
+										/* U+25AE */ CANT_MAP_CHARACTER,
+										/* 1966 */
+										/* U+25AF */ CANT_MAP_CHARACTER,
+										/* 1967 */
+										/* U+25B0 */ CANT_MAP_CHARACTER,
+										/* 1968 */
+										/* U+25B1 */ CANT_MAP_CHARACTER,
+										/* 1969 */
+										/* U+25B2 */ CANT_MAP_CHARACTER,
+										/* 1970 */
+										/* U+25B3 */ CANT_MAP_CHARACTER,
+										/* 1971 */
+										/* U+25B4 */ CANT_MAP_CHARACTER,
+										/* 1972 */
+										/* U+25B5 */ CANT_MAP_CHARACTER,
+										/* 1973 */
+										/* U+25B6 */ CANT_MAP_CHARACTER,
+										/* 1974 */
+										/* U+25B7 */ CANT_MAP_CHARACTER,
+										/* 1975 */
+										/* U+25B8 */ CANT_MAP_CHARACTER,
+										/* 1976 */
+										/* U+25B9 */ CANT_MAP_CHARACTER,
+										/* 1977 */
+										/* U+25BA */ CANT_MAP_CHARACTER,
+										/* 1978 */
+										/* U+25BB */ CANT_MAP_CHARACTER,
+										/* 1979 */
+										/* U+25BC */ CANT_MAP_CHARACTER,
+										/* 1980 */
+										/* U+25BD */ CANT_MAP_CHARACTER,
+										/* 1981 */
+										/* U+25BE */ CANT_MAP_CHARACTER,
+										/* 1982 */
+										/* U+25BF */ CANT_MAP_CHARACTER,
+										/* 1983 */
+										/* U+25C0 */ CANT_MAP_CHARACTER,
+										/* 1984 */
+										/* U+25C1 */ CANT_MAP_CHARACTER,
+										/* 1985 */
+										/* U+25C2 */ CANT_MAP_CHARACTER,
+										/* 1986 */
+										/* U+25C3 */ CANT_MAP_CHARACTER,
+										/* 1987 */
+										/* U+25C4 */ CANT_MAP_CHARACTER,
+										/* 1988 */
+										/* U+25C5 */ CANT_MAP_CHARACTER,
+										/* 1989 */
+										/* U+25C6 */ CANT_MAP_CHARACTER,
+										/* 1990 */
+										/* U+25C7 */ CANT_MAP_CHARACTER,
+										/* 1991 */
+										/* U+25C8 */ CANT_MAP_CHARACTER,
+										/* 1992 */
+										/* U+25C9 */ CANT_MAP_CHARACTER,
+										/* 1993 */
+										/* U+25CA */ CANT_MAP_CHARACTER,
+										/* 1994 */
+										/* U+25CB */ CANT_MAP_CHARACTER,
+										/* 1995 */
+										/* U+25CC */ CANT_MAP_CHARACTER,
+										/* 1996 */
+										/* U+25CD */ CANT_MAP_CHARACTER,
+										/* 1997 */
+										/* U+25CE */ CANT_MAP_CHARACTER,
+										/* 1998 */
+										/* U+25CF */ CANT_MAP_CHARACTER,
+										/* 1999 */
+										/* U+25D0 */ CANT_MAP_CHARACTER,
+										/* 2000 */
+										/* U+25D1 */ CANT_MAP_CHARACTER,
+										/* 2001 */
+										/* U+25D2 */ CANT_MAP_CHARACTER,
+										/* 2002 */
+										/* U+25D3 */ CANT_MAP_CHARACTER,
+										/* 2003 */
+										/* U+25D4 */ CANT_MAP_CHARACTER,
+										/* 2004 */
+										/* U+25D5 */ CANT_MAP_CHARACTER,
+										/* 2005 */
+										/* U+25D6 */ CANT_MAP_CHARACTER,
+										/* 2006 */
+										/* U+25D7 */ CANT_MAP_CHARACTER,
+										/* 2007 */
+										/* U+25D8 */ CANT_MAP_CHARACTER,
+										/* 2008 */
+										/* U+25D9 */ CANT_MAP_CHARACTER,
+										/* 2009 */
+										/* U+25DA */ CANT_MAP_CHARACTER,
+										/* 2010 */
+										/* U+25DB */ CANT_MAP_CHARACTER,
+										/* 2011 */
+										/* U+25DC */ CANT_MAP_CHARACTER,
+										/* 2012 */
+										/* U+25DD */ CANT_MAP_CHARACTER,
+										/* 2013 */
+										/* U+25DE */ CANT_MAP_CHARACTER,
+										/* 2014 */
+										/* U+25DF */ CANT_MAP_CHARACTER,
+										/* 2015 */
+										/* U+25E0 */ CANT_MAP_CHARACTER,
+										/* 2016 */
+										/* U+25E1 */ CANT_MAP_CHARACTER,
+										/* 2017 */
+										/* U+25E2 */ CANT_MAP_CHARACTER,
+										/* 2018 */
+										/* U+25E3 */ CANT_MAP_CHARACTER,
+										/* 2019 */
+										/* U+25E4 */ CANT_MAP_CHARACTER,
+										/* 2020 */
+										/* U+25E5 */ CANT_MAP_CHARACTER,
+										/* 2021 */
+										/* U+25E6 */ CANT_MAP_CHARACTER,
+										/* 2022 */
+										/* U+25E7 */ CANT_MAP_CHARACTER,
+										/* 2023 */
+										/* U+25E8 */ CANT_MAP_CHARACTER,
+										/* 2024 */
+										/* U+25E9 */ CANT_MAP_CHARACTER,
+										/* 2025 */
+										/* U+25EA */ CANT_MAP_CHARACTER,
+										/* 2026 */
+										/* U+25EB */ CANT_MAP_CHARACTER,
+										/* 2027 */
+										/* U+25EC */ CANT_MAP_CHARACTER,
+										/* 2028 */
+										/* U+25ED */ CANT_MAP_CHARACTER,
+										/* 2029 */
+										/* U+25EE */ CANT_MAP_CHARACTER,
+										/* 2030 */
+										/* U+25EF */ CANT_MAP_CHARACTER,
+										/* 2031 */
+										/* U+25F0 */ CANT_MAP_CHARACTER,
+										/* 2032 */
+										/* U+25F1 */ CANT_MAP_CHARACTER,
+										/* 2033 */
+										/* U+25F2 */ CANT_MAP_CHARACTER,
+										/* 2034 */
+										/* U+25F3 */ CANT_MAP_CHARACTER,
+										/* 2035 */
+										/* U+25F4 */ CANT_MAP_CHARACTER,
+										/* 2036 */
+										/* U+25F5 */ CANT_MAP_CHARACTER,
+										/* 2037 */
+										/* U+25F6 */ CANT_MAP_CHARACTER,
+										/* 2038 */
+										/* U+25F7 */ CANT_MAP_CHARACTER,
+										/* 2039 */
+										/* U+25F8 */ CANT_MAP_CHARACTER,
+										/* 2040 */
+										/* U+25F9 */ CANT_MAP_CHARACTER,
+										/* 2041 */
+										/* U+25FA */ CANT_MAP_CHARACTER,
+										/* 2042 */
+										/* U+25FB */ CANT_MAP_CHARACTER,
+										/* 2043 */
+										/* U+25FC */ CANT_MAP_CHARACTER,
+										/* 2044 */
+										/* U+25FD */ CANT_MAP_CHARACTER,
+										/* 2045 */
+										/* U+25FE */ CANT_MAP_CHARACTER,
+										/* 2046 */
+										/* U+25FF */ CANT_MAP_CHARACTER,
+										/* 2047 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 512,
+/* U+02-- */ 0,
+/* U+03-- */ 768,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 1024,
+/* U+21-- */ 0,
+/* U+22-- */ 1280,
+/* U+23-- */ 1536,
+/* U+24-- */ 0,
+/* U+25-- */ 1792,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_big5.c b/src/intl/cs_big5.c
new file mode 100644
index 0000000000..e351a6e0a5
--- /dev/null
+++ b/src/intl/cs_big5.c
@@ -0,0 +1,56 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		cs_big5.c
+ *	DESCRIPTION:	Character Set definitions for BIG5 family.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+
+extern USHORT CVBIG5_big5_to_unicode();
+extern USHORT CVBIG5_unicode_to_big5();
+extern USHORT CVBIG5_check_big5();
+extern void CV_convert_init();
+
+
+CHARSET_ENTRY(CS_big_5)
+{
+#include "../intl/cs_big5.h"
+	static CONST ASCII POSIX[] = "BIG_5";
+
+	csptr->charset_version = 40;
+	csptr->charset_id = CS_BIG5;
+	csptr->charset_name = (ASCII *) POSIX;
+	csptr->charset_flags = 0;
+	csptr->charset_min_bytes_per_char = 1;
+	csptr->charset_max_bytes_per_char = 2;
+	csptr->charset_space_length = 1;
+	csptr->charset_space_character = (BYTE *) " ";
+	csptr->charset_well_formed = (FPTR_SHORT) CVBIG5_check_big5;
+
+	CV_convert_init(&csptr->charset_to_unicode, CS_UNICODE, CS_BIG5,
+					CVBIG5_big5_to_unicode, to_unicode_mapping_array,
+					to_unicode_map);
+	CV_convert_init(&csptr->charset_from_unicode, CS_BIG5, CS_UNICODE,
+					CVBIG5_unicode_to_big5, from_unicode_mapping_array,
+					from_unicode_map);
+
+	CHARSET_RETURN;
+}
diff --git a/src/intl/cs_big5.h b/src/intl/cs_big5.h
new file mode 100644
index 0000000000..773f434510
--- /dev/null
+++ b/src/intl/cs_big5.h
@@ -0,0 +1,49271 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen4.c
+     mapgen4 -condense asia/OTHER/BIG5.TXT 
+
+    Unicode mapping table generated from file asia/OTHER/BIG5.TXT 
+
+#
+#	Name:             BIG5 to Unicode table (complete)
+#	Unicode version:  1.1
+#	Table version:    0.0d3
+#	Table format:     Format A
+#	Date:             11 February 1994
+#	Authors:          Glenn Adams <glenn@metis.com>
+#                     John H. Jenkins <John_Jenkins@taligent.com>
+#
+#
+#	This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
+#	No claims are made as to fitness for any particular purpose.  No
+#	warranties of any kind are expressed or implied.  The recipient
+#	agrees to determine applicability of information provided.  If this
+#	file has been provided on magnetic media by Unicode, Inc., the sole
+#	remedy for any claim will be exchange of defective media within 90
+#	days of receipt.
+#
+#	Recipient is granted the right to make copies in any form for
+#	internal distribution and to freely use the information supplied
+#	in the creation of products supporting Unicode.  Unicode, Inc.
+#	specifically excludes the right to re-distribute this file directly
+#	to third parties or other organizations whether for profit or not.
+#
+#	General notes:
+#
+#	This table contains the data Metis and Taligent currently have on how
+#       BIG5 characters map into Unicode.
+#
+#	WARNING!  It is currently impossible to provide round-trip compatibility
+#		between BIG5 and Unicode.  
+#
+#	A number of characters are not currently mapped because
+#		of conflicts with other mappings.  They are as follows:
+#
+#       BIG5        Description                    Comments
+#
+#       0xA15A      SPACING UNDERSCORE             duplicates A1C4
+#       0xA1C3      SPACING HEAVY OVERSCORE        not in Unicode
+#       0xA1C5      SPACING HEAVY UNDERSCORE       not in Unicode
+#       0xA1FE      LT DIAG UP RIGHT TO LOW LEFT   duplicates A2AC
+#       0xA240      LT DIAG UP LEFT TO LOW RIGHT   duplicates A2AD
+#       0xA2CC      HANGZHOU NUMERAL TEN           conflicts with A451 mapping
+#       0xA2CE      HANGZHOU NUMERAL THIRTY        conflicts with A4CA mapping
+#
+#	We currently map all of these characters to U+FFFD REPLACEMENT CHARACTER.
+#		It is also possible to map these characters to their duplicates, or to
+#		the user zone.  
+#	
+#	Notes:
+#
+#	1. In addition to the above, there is some uncertainty about the
+#       mappings in the range C6A1 - C8FE, and F9DD - F9FE.  The ETEN
+#		version of BIG5 organizes the former range differently, and adds
+#		additional characters in the latter range.  The correct mappings
+#		these ranges need to be determined.
+#
+#	2.  There is an uncertainty in the mapping of the Big Five character
+#		0xA3BC.  This character occurs within the Big Five block of tone marks
+#		for bopomofo and is intended to be the tone mark for the first tone in
+#		Mandarin Chinese.  We have selected the mapping U+02C9 MODIFIER LETTER
+#		MACRON (Mandarin Chinese first tone) to reflect this semantic.  
+#		However, because bopomofo uses the absense of a tone mark to indicate
+#		the first Mandarin tone, most implementations of Big Five represent
+#		this character with a blank space, and so a mapping such as U+2003 EM SPACE
+#		might be preferred.  
+#		
+#			
+#
+#	Any comments or problems, contact <John_Jenkins@taligent.com>
+
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+
+/*
+    TMN: 02 Aug 2000
+    Preprocessed and stripped lots of comments from this file.
+    The original file can be found in the InterBase 6.0 source
+    archive at www.interbase.com.
+    The following macro was expanded during the preprocessing of this file.
+
+#ifndef UNICODE_REPLACEMENT_CHARACTER
+#define UNICODE_REPLACEMENT_CHARACTER 0xFFFD
+#endif
+*/
+
+static CONST USHORT FAR_VARIABLE to_unicode_mapping_array[] = {
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0000,
+0x0001,
+0x0002,
+0x0003,
+0x0004,
+0x0005,
+0x0006,
+0x0007,
+0x0008,
+0x0009,
+0x000A,
+0x000B,
+0x000C,
+0x000D,
+0x000E,
+0x000F,
+0x0010,
+0x0011,
+0x0012,
+0x0013,
+0x0014,
+0x0015,
+0x0016,
+0x0017,
+0x0018,
+0x0019,
+0x001A,
+0x001B,
+0x001C,
+0x001D,
+0x001E,
+0x001F,
+0x0020,
+0x0021,
+0x0022,
+0x0023,
+0x0024,
+0x0025,
+0x0026,
+0x0027,
+0x0028,
+0x0029,
+0x002A,
+0x002B,
+0x002C,
+0x002D,
+0x002E,
+0x002F,
+0x0030,
+0x0031,
+0x0032,
+0x0033,
+0x0034,
+0x0035,
+0x0036,
+0x0037,
+0x0038,
+0x0039,
+0x003A,
+0x003B,
+0x003C,
+0x003D,
+0x003E,
+0x003F,
+0x0040,
+0x0041,
+0x0042,
+0x0043,
+0x0044,
+0x0045,
+0x0046,
+0x0047,
+0x0048,
+0x0049,
+0x004A,
+0x004B,
+0x004C,
+0x004D,
+0x004E,
+0x004F,
+0x0050,
+0x0051,
+0x0052,
+0x0053,
+0x0054,
+0x0055,
+0x0056,
+0x0057,
+0x0058,
+0x0059,
+0x005A,
+0x005B,
+0x005C,
+0x005D,
+0x005E,
+0x005F,
+0x0060,
+0x0061,
+0x0062,
+0x0063,
+0x0064,
+0x0065,
+0x0066,
+0x0067,
+0x0068,
+0x0069,
+0x006A,
+0x006B,
+0x006C,
+0x006D,
+0x006E,
+0x006F,
+0x0070,
+0x0071,
+0x0072,
+0x0073,
+0x0074,
+0x0075,
+0x0076,
+0x0077,
+0x0078,
+0x0079,
+0x007A,
+0x007B,
+0x007C,
+0x007D,
+0x007E,
+0x007F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x3000,
+0xFF0C,
+0x3001,
+0x3002,
+0xFF0E,
+0x2022,
+0xFF1B,
+0xFF1A,
+0xFF1F,
+0xFF01,
+0xFE30,
+0x2026,
+0x2025,
+0xFE50,
+0xFF64,
+0xFE52,
+0x00B7,
+0xFE54,
+0xFE55,
+0xFE56,
+0xFE57,
+0xFF5C,
+0x2013,
+0xFE31,
+0x2014,
+0xFE33,
+0xFFFD,
+0xFE34,
+0xFE4F,
+0xFF08,
+0xFF09,
+0xFE35,
+0xFE36,
+0xFF5B,
+0xFF5D,
+0xFE37,
+0xFE38,
+0x3014,
+0x3015,
+0xFE39,
+0xFE3A,
+0x3010,
+0x3011,
+0xFE3B,
+0xFE3C,
+0x300A,
+0x300B,
+0xFE3D,
+0xFE3E,
+0x3008,
+0x3009,
+0xFE3F,
+0xFE40,
+0x300C,
+0x300D,
+0xFE41,
+0xFE42,
+0x300E,
+0x300F,
+0xFE43,
+0xFE44,
+0xFE59,
+0xFE5A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFE5B,
+0xFE5C,
+0xFE5D,
+0xFE5E,
+0x2018,
+0x2019,
+0x201C,
+0x201D,
+0x301D,
+0x301E,
+0x2035,
+0x2032,
+0xFF03,
+0xFF06,
+0xFF0A,
+0x203B,
+0x00A7,
+0x3003,
+0x25CB,
+0x25CF,
+0x25B3,
+0x25B2,
+0x25CE,
+0x2606,
+0x2605,
+0x25C7,
+0x25C6,
+0x25A1,
+0x25A0,
+0x25BD,
+0x25BC,
+0x32A3,
+0x2105,
+0x203E,
+0xFFFD,
+0xFF3F,
+0xFFFD,
+0xFE49,
+0xFE4A,
+0xFE4D,
+0xFE4E,
+0xFE4B,
+0xFE4C,
+0xFE5F,
+0xFE60,
+0xFE61,
+0xFF0B,
+0xFF0D,
+0x00D7,
+0x00F7,
+0x00B1,
+0x221A,
+0xFF1C,
+0xFF1E,
+0xFF1D,
+0x2266,
+0x2267,
+0x2260,
+0x221E,
+0x2252,
+0x2261,
+0xFE62,
+0xFE63,
+0xFE64,
+0xFE65,
+0xFE66,
+0x223C,
+0x2229,
+0x222A,
+0x22A5,
+0x2220,
+0x221F,
+0x22BF,
+0x33D2,
+0x33D1,
+0x222B,
+0x222E,
+0x2235,
+0x2234,
+0x2640,
+0x2642,
+0x2641,
+0x2609,
+0x2191,
+0x2193,
+0x2190,
+0x2192,
+0x2196,
+0x2197,
+0x2199,
+0x2198,
+0x2225,
+0x2223,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFF0F,
+0xFF3C,
+0xFF04,
+0x00A5,
+0x3012,
+0x00A2,
+0x00A3,
+0xFF05,
+0xFF20,
+0x2103,
+0x2109,
+0xFE69,
+0xFE6A,
+0xFE6B,
+0x33D5,
+0x339C,
+0x339D,
+0x339E,
+0x33CE,
+0x33A1,
+0x338E,
+0x338F,
+0x33C4,
+0x00B0,
+0x5159,
+0x515B,
+0x515E,
+0x515D,
+0x5161,
+0x5163,
+0x55E7,
+0x74E9,
+0x7CCE,
+0x2581,
+0x2582,
+0x2583,
+0x2584,
+0x2585,
+0x2586,
+0x2587,
+0x2588,
+0x258F,
+0x258E,
+0x258D,
+0x258C,
+0x258B,
+0x258A,
+0x2589,
+0x253C,
+0x2534,
+0x252C,
+0x2524,
+0x251C,
+0x2594,
+0x2500,
+0x2502,
+0x2595,
+0x250C,
+0x2510,
+0x2514,
+0x2518,
+0x256D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x256E,
+0x2570,
+0x256F,
+0x2550,
+0x255E,
+0x256A,
+0x2561,
+0x25E2,
+0x25E3,
+0x25E5,
+0x25E4,
+0x2571,
+0x2572,
+0x2573,
+0xFF10,
+0xFF11,
+0xFF12,
+0xFF13,
+0xFF14,
+0xFF15,
+0xFF16,
+0xFF17,
+0xFF18,
+0xFF19,
+0x2160,
+0x2161,
+0x2162,
+0x2163,
+0x2164,
+0x2165,
+0x2166,
+0x2167,
+0x2168,
+0x2169,
+0x3021,
+0x3022,
+0x3023,
+0x3024,
+0x3025,
+0x3026,
+0x3027,
+0x3028,
+0x3029,
+0xFFFD,
+0x5344,
+0xFFFD,
+0xFF21,
+0xFF22,
+0xFF23,
+0xFF24,
+0xFF25,
+0xFF26,
+0xFF27,
+0xFF28,
+0xFF29,
+0xFF2A,
+0xFF2B,
+0xFF2C,
+0xFF2D,
+0xFF2E,
+0xFF2F,
+0xFF30,
+0xFF31,
+0xFF32,
+0xFF33,
+0xFF34,
+0xFF35,
+0xFF36,
+0xFF37,
+0xFF38,
+0xFF39,
+0xFF3A,
+0xFF41,
+0xFF42,
+0xFF43,
+0xFF44,
+0xFF45,
+0xFF46,
+0xFF47,
+0xFF48,
+0xFF49,
+0xFF4A,
+0xFF4B,
+0xFF4C,
+0xFF4D,
+0xFF4E,
+0xFF4F,
+0xFF50,
+0xFF51,
+0xFF52,
+0xFF53,
+0xFF54,
+0xFF55,
+0xFF56,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFF57,
+0xFF58,
+0xFF59,
+0xFF5A,
+0x0391,
+0x0392,
+0x0393,
+0x0394,
+0x0395,
+0x0396,
+0x0397,
+0x0398,
+0x0399,
+0x039A,
+0x039B,
+0x039C,
+0x039D,
+0x039E,
+0x039F,
+0x03A0,
+0x03A1,
+0x03A3,
+0x03A4,
+0x03A5,
+0x03A6,
+0x03A7,
+0x03A8,
+0x03A9,
+0x03B1,
+0x03B2,
+0x03B3,
+0x03B4,
+0x03B5,
+0x03B6,
+0x03B7,
+0x03B8,
+0x03B9,
+0x03BA,
+0x03BB,
+0x03BC,
+0x03BD,
+0x03BE,
+0x03BF,
+0x03C0,
+0x03C1,
+0x03C3,
+0x03C4,
+0x03C5,
+0x03C6,
+0x03C7,
+0x03C8,
+0x03C9,
+0x3105,
+0x3106,
+0x3107,
+0x3108,
+0x3109,
+0x310A,
+0x310B,
+0x310C,
+0x310D,
+0x310E,
+0x310F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x3110,
+0x3111,
+0x3112,
+0x3113,
+0x3114,
+0x3115,
+0x3116,
+0x3117,
+0x3118,
+0x3119,
+0x311A,
+0x311B,
+0x311C,
+0x311D,
+0x311E,
+0x311F,
+0x3120,
+0x3121,
+0x3122,
+0x3123,
+0x3124,
+0x3125,
+0x3126,
+0x3127,
+0x3128,
+0x3129,
+0x02D9,
+0x02C9,
+0x02CA,
+0x02C7,
+0x02CB,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4E00,
+0x4E59,
+0x4E01,
+0x4E03,
+0x4E43,
+0x4E5D,
+0x4E86,
+0x4E8C,
+0x4EBA,
+0x513F,
+0x5165,
+0x516B,
+0x51E0,
+0x5200,
+0x5201,
+0x529B,
+0x5315,
+0x5341,
+0x535C,
+0x53C8,
+0x4E09,
+0x4E0B,
+0x4E08,
+0x4E0A,
+0x4E2B,
+0x4E38,
+0x51E1,
+0x4E45,
+0x4E48,
+0x4E5F,
+0x4E5E,
+0x4E8E,
+0x4EA1,
+0x5140,
+0x5203,
+0x52FA,
+0x5343,
+0x53C9,
+0x53E3,
+0x571F,
+0x58EB,
+0x5915,
+0x5927,
+0x5973,
+0x5B50,
+0x5B51,
+0x5B53,
+0x5BF8,
+0x5C0F,
+0x5C22,
+0x5C38,
+0x5C71,
+0x5DDD,
+0x5DE5,
+0x5DF1,
+0x5DF2,
+0x5DF3,
+0x5DFE,
+0x5E72,
+0x5EFE,
+0x5F0B,
+0x5F13,
+0x624D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4E11,
+0x4E10,
+0x4E0D,
+0x4E2D,
+0x4E30,
+0x4E39,
+0x4E4B,
+0x5C39,
+0x4E88,
+0x4E91,
+0x4E95,
+0x4E92,
+0x4E94,
+0x4EA2,
+0x4EC1,
+0x4EC0,
+0x4EC3,
+0x4EC6,
+0x4EC7,
+0x4ECD,
+0x4ECA,
+0x4ECB,
+0x4EC4,
+0x5143,
+0x5141,
+0x5167,
+0x516D,
+0x516E,
+0x516C,
+0x5197,
+0x51F6,
+0x5206,
+0x5207,
+0x5208,
+0x52FB,
+0x52FE,
+0x52FF,
+0x5316,
+0x5339,
+0x5348,
+0x5347,
+0x5345,
+0x535E,
+0x5384,
+0x53CB,
+0x53CA,
+0x53CD,
+0x58EC,
+0x5929,
+0x592B,
+0x592A,
+0x592D,
+0x5B54,
+0x5C11,
+0x5C24,
+0x5C3A,
+0x5C6F,
+0x5DF4,
+0x5E7B,
+0x5EFF,
+0x5F14,
+0x5F15,
+0x5FC3,
+0x6208,
+0x6236,
+0x624B,
+0x624E,
+0x652F,
+0x6587,
+0x6597,
+0x65A4,
+0x65B9,
+0x65E5,
+0x66F0,
+0x6708,
+0x6728,
+0x6B20,
+0x6B62,
+0x6B79,
+0x6BCB,
+0x6BD4,
+0x6BDB,
+0x6C0F,
+0x6C34,
+0x706B,
+0x722A,
+0x7236,
+0x723B,
+0x7247,
+0x7259,
+0x725B,
+0x72AC,
+0x738B,
+0x4E19,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4E16,
+0x4E15,
+0x4E14,
+0x4E18,
+0x4E3B,
+0x4E4D,
+0x4E4F,
+0x4E4E,
+0x4EE5,
+0x4ED8,
+0x4ED4,
+0x4ED5,
+0x4ED6,
+0x4ED7,
+0x4EE3,
+0x4EE4,
+0x4ED9,
+0x4EDE,
+0x5145,
+0x5144,
+0x5189,
+0x518A,
+0x51AC,
+0x51F9,
+0x51FA,
+0x51F8,
+0x520A,
+0x52A0,
+0x529F,
+0x5305,
+0x5306,
+0x5317,
+0x531D,
+0x4EDF,
+0x534A,
+0x5349,
+0x5361,
+0x5360,
+0x536F,
+0x536E,
+0x53BB,
+0x53EF,
+0x53E4,
+0x53F3,
+0x53EC,
+0x53EE,
+0x53E9,
+0x53E8,
+0x53FC,
+0x53F8,
+0x53F5,
+0x53EB,
+0x53E6,
+0x53EA,
+0x53F2,
+0x53F1,
+0x53F0,
+0x53E5,
+0x53ED,
+0x53FB,
+0x56DB,
+0x56DA,
+0x5916,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x592E,
+0x5931,
+0x5974,
+0x5976,
+0x5B55,
+0x5B83,
+0x5C3C,
+0x5DE8,
+0x5DE7,
+0x5DE6,
+0x5E02,
+0x5E03,
+0x5E73,
+0x5E7C,
+0x5F01,
+0x5F18,
+0x5F17,
+0x5FC5,
+0x620A,
+0x6253,
+0x6254,
+0x6252,
+0x6251,
+0x65A5,
+0x65E6,
+0x672E,
+0x672C,
+0x672A,
+0x672B,
+0x672D,
+0x6B63,
+0x6BCD,
+0x6C11,
+0x6C10,
+0x6C38,
+0x6C41,
+0x6C40,
+0x6C3E,
+0x72AF,
+0x7384,
+0x7389,
+0x74DC,
+0x74E6,
+0x7518,
+0x751F,
+0x7528,
+0x7529,
+0x7530,
+0x7531,
+0x7532,
+0x7533,
+0x758B,
+0x767D,
+0x76AE,
+0x76BF,
+0x76EE,
+0x77DB,
+0x77E2,
+0x77F3,
+0x793A,
+0x79BE,
+0x7A74,
+0x7ACB,
+0x4E1E,
+0x4E1F,
+0x4E52,
+0x4E53,
+0x4E69,
+0x4E99,
+0x4EA4,
+0x4EA6,
+0x4EA5,
+0x4EFF,
+0x4F09,
+0x4F19,
+0x4F0A,
+0x4F15,
+0x4F0D,
+0x4F10,
+0x4F11,
+0x4F0F,
+0x4EF2,
+0x4EF6,
+0x4EFB,
+0x4EF0,
+0x4EF3,
+0x4EFD,
+0x4F01,
+0x4F0B,
+0x5149,
+0x5147,
+0x5146,
+0x5148,
+0x5168,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5171,
+0x518D,
+0x51B0,
+0x5217,
+0x5211,
+0x5212,
+0x520E,
+0x5216,
+0x52A3,
+0x5308,
+0x5321,
+0x5320,
+0x5370,
+0x5371,
+0x5409,
+0x540F,
+0x540C,
+0x540A,
+0x5410,
+0x5401,
+0x540B,
+0x5404,
+0x5411,
+0x540D,
+0x5408,
+0x5403,
+0x540E,
+0x5406,
+0x5412,
+0x56E0,
+0x56DE,
+0x56DD,
+0x5733,
+0x5730,
+0x5728,
+0x572D,
+0x572C,
+0x572F,
+0x5729,
+0x5919,
+0x591A,
+0x5937,
+0x5938,
+0x5984,
+0x5978,
+0x5983,
+0x597D,
+0x5979,
+0x5982,
+0x5981,
+0x5B57,
+0x5B58,
+0x5B87,
+0x5B88,
+0x5B85,
+0x5B89,
+0x5BFA,
+0x5C16,
+0x5C79,
+0x5DDE,
+0x5E06,
+0x5E76,
+0x5E74,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5F0F,
+0x5F1B,
+0x5FD9,
+0x5FD6,
+0x620E,
+0x620C,
+0x620D,
+0x6210,
+0x6263,
+0x625B,
+0x6258,
+0x6536,
+0x65E9,
+0x65E8,
+0x65EC,
+0x65ED,
+0x66F2,
+0x66F3,
+0x6709,
+0x673D,
+0x6734,
+0x6731,
+0x6735,
+0x6B21,
+0x6B64,
+0x6B7B,
+0x6C16,
+0x6C5D,
+0x6C57,
+0x6C59,
+0x6C5F,
+0x6C60,
+0x6C50,
+0x6C55,
+0x6C61,
+0x6C5B,
+0x6C4D,
+0x6C4E,
+0x7070,
+0x725F,
+0x725D,
+0x767E,
+0x7AF9,
+0x7C73,
+0x7CF8,
+0x7F36,
+0x7F8A,
+0x7FBD,
+0x8001,
+0x8003,
+0x800C,
+0x8012,
+0x8033,
+0x807F,
+0x8089,
+0x808B,
+0x808C,
+0x81E3,
+0x81EA,
+0x81F3,
+0x81FC,
+0x820C,
+0x821B,
+0x821F,
+0x826E,
+0x8272,
+0x827E,
+0x866B,
+0x8840,
+0x884C,
+0x8863,
+0x897F,
+0x9621,
+0x4E32,
+0x4EA8,
+0x4F4D,
+0x4F4F,
+0x4F47,
+0x4F57,
+0x4F5E,
+0x4F34,
+0x4F5B,
+0x4F55,
+0x4F30,
+0x4F50,
+0x4F51,
+0x4F3D,
+0x4F3A,
+0x4F38,
+0x4F43,
+0x4F54,
+0x4F3C,
+0x4F46,
+0x4F63,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4F5C,
+0x4F60,
+0x4F2F,
+0x4F4E,
+0x4F36,
+0x4F59,
+0x4F5D,
+0x4F48,
+0x4F5A,
+0x514C,
+0x514B,
+0x514D,
+0x5175,
+0x51B6,
+0x51B7,
+0x5225,
+0x5224,
+0x5229,
+0x522A,
+0x5228,
+0x52AB,
+0x52A9,
+0x52AA,
+0x52AC,
+0x5323,
+0x5373,
+0x5375,
+0x541D,
+0x542D,
+0x541E,
+0x543E,
+0x5426,
+0x544E,
+0x5427,
+0x5446,
+0x5443,
+0x5433,
+0x5448,
+0x5442,
+0x541B,
+0x5429,
+0x544A,
+0x5439,
+0x543B,
+0x5438,
+0x542E,
+0x5435,
+0x5436,
+0x5420,
+0x543C,
+0x5440,
+0x5431,
+0x542B,
+0x541F,
+0x542C,
+0x56EA,
+0x56F0,
+0x56E4,
+0x56EB,
+0x574A,
+0x5751,
+0x5740,
+0x574D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5747,
+0x574E,
+0x573E,
+0x5750,
+0x574F,
+0x573B,
+0x58EF,
+0x593E,
+0x599D,
+0x5992,
+0x59A8,
+0x599E,
+0x59A3,
+0x5999,
+0x5996,
+0x598D,
+0x59A4,
+0x5993,
+0x598A,
+0x59A5,
+0x5B5D,
+0x5B5C,
+0x5B5A,
+0x5B5B,
+0x5B8C,
+0x5B8B,
+0x5B8F,
+0x5C2C,
+0x5C40,
+0x5C41,
+0x5C3F,
+0x5C3E,
+0x5C90,
+0x5C91,
+0x5C94,
+0x5C8C,
+0x5DEB,
+0x5E0C,
+0x5E8F,
+0x5E87,
+0x5E8A,
+0x5EF7,
+0x5F04,
+0x5F1F,
+0x5F64,
+0x5F62,
+0x5F77,
+0x5F79,
+0x5FD8,
+0x5FCC,
+0x5FD7,
+0x5FCD,
+0x5FF1,
+0x5FEB,
+0x5FF8,
+0x5FEA,
+0x6212,
+0x6211,
+0x6284,
+0x6297,
+0x6296,
+0x6280,
+0x6276,
+0x6289,
+0x626D,
+0x628A,
+0x627C,
+0x627E,
+0x6279,
+0x6273,
+0x6292,
+0x626F,
+0x6298,
+0x626E,
+0x6295,
+0x6293,
+0x6291,
+0x6286,
+0x6539,
+0x653B,
+0x6538,
+0x65F1,
+0x66F4,
+0x675F,
+0x674E,
+0x674F,
+0x6750,
+0x6751,
+0x675C,
+0x6756,
+0x675E,
+0x6749,
+0x6746,
+0x6760,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6753,
+0x6757,
+0x6B65,
+0x6BCF,
+0x6C42,
+0x6C5E,
+0x6C99,
+0x6C81,
+0x6C88,
+0x6C89,
+0x6C85,
+0x6C9B,
+0x6C6A,
+0x6C7A,
+0x6C90,
+0x6C70,
+0x6C8C,
+0x6C68,
+0x6C96,
+0x6C92,
+0x6C7D,
+0x6C83,
+0x6C72,
+0x6C7E,
+0x6C74,
+0x6C86,
+0x6C76,
+0x6C8D,
+0x6C94,
+0x6C98,
+0x6C82,
+0x7076,
+0x707C,
+0x707D,
+0x7078,
+0x7262,
+0x7261,
+0x7260,
+0x72C4,
+0x72C2,
+0x7396,
+0x752C,
+0x752B,
+0x7537,
+0x7538,
+0x7682,
+0x76EF,
+0x77E3,
+0x79C1,
+0x79C0,
+0x79BF,
+0x7A76,
+0x7CFB,
+0x7F55,
+0x8096,
+0x8093,
+0x809D,
+0x8098,
+0x809B,
+0x809A,
+0x80B2,
+0x826F,
+0x8292,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x828B,
+0x828D,
+0x898B,
+0x89D2,
+0x8A00,
+0x8C37,
+0x8C46,
+0x8C55,
+0x8C9D,
+0x8D64,
+0x8D70,
+0x8DB3,
+0x8EAB,
+0x8ECA,
+0x8F9B,
+0x8FB0,
+0x8FC2,
+0x8FC6,
+0x8FC5,
+0x8FC4,
+0x5DE1,
+0x9091,
+0x90A2,
+0x90AA,
+0x90A6,
+0x90A3,
+0x9149,
+0x91C6,
+0x91CC,
+0x9632,
+0x962E,
+0x9631,
+0x962A,
+0x962C,
+0x4E26,
+0x4E56,
+0x4E73,
+0x4E8B,
+0x4E9B,
+0x4E9E,
+0x4EAB,
+0x4EAC,
+0x4F6F,
+0x4F9D,
+0x4F8D,
+0x4F73,
+0x4F7F,
+0x4F6C,
+0x4F9B,
+0x4F8B,
+0x4F86,
+0x4F83,
+0x4F70,
+0x4F75,
+0x4F88,
+0x4F69,
+0x4F7B,
+0x4F96,
+0x4F7E,
+0x4F8F,
+0x4F91,
+0x4F7A,
+0x5154,
+0x5152,
+0x5155,
+0x5169,
+0x5177,
+0x5176,
+0x5178,
+0x51BD,
+0x51FD,
+0x523B,
+0x5238,
+0x5237,
+0x523A,
+0x5230,
+0x522E,
+0x5236,
+0x5241,
+0x52BE,
+0x52BB,
+0x5352,
+0x5354,
+0x5353,
+0x5351,
+0x5366,
+0x5377,
+0x5378,
+0x5379,
+0x53D6,
+0x53D4,
+0x53D7,
+0x5473,
+0x5475,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5496,
+0x5478,
+0x5495,
+0x5480,
+0x547B,
+0x5477,
+0x5484,
+0x5492,
+0x5486,
+0x547C,
+0x5490,
+0x5471,
+0x5476,
+0x548C,
+0x549A,
+0x5462,
+0x5468,
+0x548B,
+0x547D,
+0x548E,
+0x56FA,
+0x5783,
+0x5777,
+0x576A,
+0x5769,
+0x5761,
+0x5766,
+0x5764,
+0x577C,
+0x591C,
+0x5949,
+0x5947,
+0x5948,
+0x5944,
+0x5954,
+0x59BE,
+0x59BB,
+0x59D4,
+0x59B9,
+0x59AE,
+0x59D1,
+0x59C6,
+0x59D0,
+0x59CD,
+0x59CB,
+0x59D3,
+0x59CA,
+0x59AF,
+0x59B3,
+0x59D2,
+0x59C5,
+0x5B5F,
+0x5B64,
+0x5B63,
+0x5B97,
+0x5B9A,
+0x5B98,
+0x5B9C,
+0x5B99,
+0x5B9B,
+0x5C1A,
+0x5C48,
+0x5C45,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5C46,
+0x5CB7,
+0x5CA1,
+0x5CB8,
+0x5CA9,
+0x5CAB,
+0x5CB1,
+0x5CB3,
+0x5E18,
+0x5E1A,
+0x5E16,
+0x5E15,
+0x5E1B,
+0x5E11,
+0x5E78,
+0x5E9A,
+0x5E97,
+0x5E9C,
+0x5E95,
+0x5E96,
+0x5EF6,
+0x5F26,
+0x5F27,
+0x5F29,
+0x5F80,
+0x5F81,
+0x5F7F,
+0x5F7C,
+0x5FDD,
+0x5FE0,
+0x5FFD,
+0x5FF5,
+0x5FFF,
+0x600F,
+0x6014,
+0x602F,
+0x6035,
+0x6016,
+0x602A,
+0x6015,
+0x6021,
+0x6027,
+0x6029,
+0x602B,
+0x601B,
+0x6216,
+0x6215,
+0x623F,
+0x623E,
+0x6240,
+0x627F,
+0x62C9,
+0x62CC,
+0x62C4,
+0x62BF,
+0x62C2,
+0x62B9,
+0x62D2,
+0x62DB,
+0x62AB,
+0x62D3,
+0x62D4,
+0x62CB,
+0x62C8,
+0x62A8,
+0x62BD,
+0x62BC,
+0x62D0,
+0x62D9,
+0x62C7,
+0x62CD,
+0x62B5,
+0x62DA,
+0x62B1,
+0x62D8,
+0x62D6,
+0x62D7,
+0x62C6,
+0x62AC,
+0x62CE,
+0x653E,
+0x65A7,
+0x65BC,
+0x65FA,
+0x6614,
+0x6613,
+0x660C,
+0x6606,
+0x6602,
+0x660E,
+0x6600,
+0x660F,
+0x6615,
+0x660A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6607,
+0x670D,
+0x670B,
+0x676D,
+0x678B,
+0x6795,
+0x6771,
+0x679C,
+0x6773,
+0x6777,
+0x6787,
+0x679D,
+0x6797,
+0x676F,
+0x6770,
+0x677F,
+0x6789,
+0x677E,
+0x6790,
+0x6775,
+0x679A,
+0x6793,
+0x677C,
+0x676A,
+0x6772,
+0x6B23,
+0x6B66,
+0x6B67,
+0x6B7F,
+0x6C13,
+0x6C1B,
+0x6CE3,
+0x6CE8,
+0x6CF3,
+0x6CB1,
+0x6CCC,
+0x6CE5,
+0x6CB3,
+0x6CBD,
+0x6CBE,
+0x6CBC,
+0x6CE2,
+0x6CAB,
+0x6CD5,
+0x6CD3,
+0x6CB8,
+0x6CC4,
+0x6CB9,
+0x6CC1,
+0x6CAE,
+0x6CD7,
+0x6CC5,
+0x6CF1,
+0x6CBF,
+0x6CBB,
+0x6CE1,
+0x6CDB,
+0x6CCA,
+0x6CAC,
+0x6CEF,
+0x6CDC,
+0x6CD6,
+0x6CE0,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7095,
+0x708E,
+0x7092,
+0x708A,
+0x7099,
+0x722C,
+0x722D,
+0x7238,
+0x7248,
+0x7267,
+0x7269,
+0x72C0,
+0x72CE,
+0x72D9,
+0x72D7,
+0x72D0,
+0x73A9,
+0x73A8,
+0x739F,
+0x73AB,
+0x73A5,
+0x753D,
+0x759D,
+0x7599,
+0x759A,
+0x7684,
+0x76C2,
+0x76F2,
+0x76F4,
+0x77E5,
+0x77FD,
+0x793E,
+0x7940,
+0x7941,
+0x79C9,
+0x79C8,
+0x7A7A,
+0x7A79,
+0x7AFA,
+0x7CFE,
+0x7F54,
+0x7F8C,
+0x7F8B,
+0x8005,
+0x80BA,
+0x80A5,
+0x80A2,
+0x80B1,
+0x80A1,
+0x80AB,
+0x80A9,
+0x80B4,
+0x80AA,
+0x80AF,
+0x81E5,
+0x81FE,
+0x820D,
+0x82B3,
+0x829D,
+0x8299,
+0x82AD,
+0x82BD,
+0x829F,
+0x82B9,
+0x82B1,
+0x82AC,
+0x82A5,
+0x82AF,
+0x82B8,
+0x82A3,
+0x82B0,
+0x82BE,
+0x82B7,
+0x864E,
+0x8671,
+0x521D,
+0x8868,
+0x8ECB,
+0x8FCE,
+0x8FD4,
+0x8FD1,
+0x90B5,
+0x90B8,
+0x90B1,
+0x90B6,
+0x91C7,
+0x91D1,
+0x9577,
+0x9580,
+0x961C,
+0x9640,
+0x963F,
+0x963B,
+0x9644,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9642,
+0x96B9,
+0x96E8,
+0x9752,
+0x975E,
+0x4E9F,
+0x4EAD,
+0x4EAE,
+0x4FE1,
+0x4FB5,
+0x4FAF,
+0x4FBF,
+0x4FE0,
+0x4FD1,
+0x4FCF,
+0x4FDD,
+0x4FC3,
+0x4FB6,
+0x4FD8,
+0x4FDF,
+0x4FCA,
+0x4FD7,
+0x4FAE,
+0x4FD0,
+0x4FC4,
+0x4FC2,
+0x4FDA,
+0x4FCE,
+0x4FDE,
+0x4FB7,
+0x5157,
+0x5192,
+0x5191,
+0x51A0,
+0x524E,
+0x5243,
+0x524A,
+0x524D,
+0x524C,
+0x524B,
+0x5247,
+0x52C7,
+0x52C9,
+0x52C3,
+0x52C1,
+0x530D,
+0x5357,
+0x537B,
+0x539A,
+0x53DB,
+0x54AC,
+0x54C0,
+0x54A8,
+0x54CE,
+0x54C9,
+0x54B8,
+0x54A6,
+0x54B3,
+0x54C7,
+0x54C2,
+0x54BD,
+0x54AA,
+0x54C1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x54C4,
+0x54C8,
+0x54AF,
+0x54AB,
+0x54B1,
+0x54BB,
+0x54A9,
+0x54A7,
+0x54BF,
+0x56FF,
+0x5782,
+0x578B,
+0x57A0,
+0x57A3,
+0x57A2,
+0x57CE,
+0x57AE,
+0x5793,
+0x5955,
+0x5951,
+0x594F,
+0x594E,
+0x5950,
+0x59DC,
+0x59D8,
+0x59FF,
+0x59E3,
+0x59E8,
+0x5A03,
+0x59E5,
+0x59EA,
+0x59DA,
+0x59E6,
+0x5A01,
+0x59FB,
+0x5B69,
+0x5BA3,
+0x5BA6,
+0x5BA4,
+0x5BA2,
+0x5BA5,
+0x5C01,
+0x5C4E,
+0x5C4F,
+0x5C4D,
+0x5C4B,
+0x5CD9,
+0x5CD2,
+0x5DF7,
+0x5E1D,
+0x5E25,
+0x5E1F,
+0x5E7D,
+0x5EA0,
+0x5EA6,
+0x5EFA,
+0x5F08,
+0x5F2D,
+0x5F65,
+0x5F88,
+0x5F85,
+0x5F8A,
+0x5F8B,
+0x5F87,
+0x5F8C,
+0x5F89,
+0x6012,
+0x601D,
+0x6020,
+0x6025,
+0x600E,
+0x6028,
+0x604D,
+0x6070,
+0x6068,
+0x6062,
+0x6046,
+0x6043,
+0x606C,
+0x606B,
+0x606A,
+0x6064,
+0x6241,
+0x62DC,
+0x6316,
+0x6309,
+0x62FC,
+0x62ED,
+0x6301,
+0x62EE,
+0x62FD,
+0x6307,
+0x62F1,
+0x62F7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x62EF,
+0x62EC,
+0x62FE,
+0x62F4,
+0x6311,
+0x6302,
+0x653F,
+0x6545,
+0x65AB,
+0x65BD,
+0x65E2,
+0x6625,
+0x662D,
+0x6620,
+0x6627,
+0x662F,
+0x661F,
+0x6628,
+0x6631,
+0x6624,
+0x66F7,
+0x67FF,
+0x67D3,
+0x67F1,
+0x67D4,
+0x67D0,
+0x67EC,
+0x67B6,
+0x67AF,
+0x67F5,
+0x67E9,
+0x67EF,
+0x67C4,
+0x67D1,
+0x67B4,
+0x67DA,
+0x67E5,
+0x67B8,
+0x67CF,
+0x67DE,
+0x67F3,
+0x67B0,
+0x67D9,
+0x67E2,
+0x67DD,
+0x67D2,
+0x6B6A,
+0x6B83,
+0x6B86,
+0x6BB5,
+0x6BD2,
+0x6BD7,
+0x6C1F,
+0x6CC9,
+0x6D0B,
+0x6D32,
+0x6D2A,
+0x6D41,
+0x6D25,
+0x6D0C,
+0x6D31,
+0x6D1E,
+0x6D17,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6D3B,
+0x6D3D,
+0x6D3E,
+0x6D36,
+0x6D1B,
+0x6CF5,
+0x6D39,
+0x6D27,
+0x6D38,
+0x6D29,
+0x6D2E,
+0x6D35,
+0x6D0E,
+0x6D2B,
+0x70AB,
+0x70BA,
+0x70B3,
+0x70AC,
+0x70AF,
+0x70AD,
+0x70B8,
+0x70AE,
+0x70A4,
+0x7230,
+0x7272,
+0x726F,
+0x7274,
+0x72E9,
+0x72E0,
+0x72E1,
+0x73B7,
+0x73CA,
+0x73BB,
+0x73B2,
+0x73CD,
+0x73C0,
+0x73B3,
+0x751A,
+0x752D,
+0x754F,
+0x754C,
+0x754E,
+0x754B,
+0x75AB,
+0x75A4,
+0x75A5,
+0x75A2,
+0x75A3,
+0x7678,
+0x7686,
+0x7687,
+0x7688,
+0x76C8,
+0x76C6,
+0x76C3,
+0x76C5,
+0x7701,
+0x76F9,
+0x76F8,
+0x7709,
+0x770B,
+0x76FE,
+0x76FC,
+0x7707,
+0x77DC,
+0x7802,
+0x7814,
+0x780C,
+0x780D,
+0x7946,
+0x7949,
+0x7948,
+0x7947,
+0x79B9,
+0x79BA,
+0x79D1,
+0x79D2,
+0x79CB,
+0x7A7F,
+0x7A81,
+0x7AFF,
+0x7AFD,
+0x7C7D,
+0x7D02,
+0x7D05,
+0x7D00,
+0x7D09,
+0x7D07,
+0x7D04,
+0x7D06,
+0x7F38,
+0x7F8E,
+0x7FBF,
+0x8004,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8010,
+0x800D,
+0x8011,
+0x8036,
+0x80D6,
+0x80E5,
+0x80DA,
+0x80C3,
+0x80C4,
+0x80CC,
+0x80E1,
+0x80DB,
+0x80CE,
+0x80DE,
+0x80E4,
+0x80DD,
+0x81F4,
+0x8222,
+0x82E7,
+0x8303,
+0x8305,
+0x82E3,
+0x82DB,
+0x82E6,
+0x8304,
+0x82E5,
+0x8302,
+0x8309,
+0x82D2,
+0x82D7,
+0x82F1,
+0x8301,
+0x82DC,
+0x82D4,
+0x82D1,
+0x82DE,
+0x82D3,
+0x82DF,
+0x82EF,
+0x8306,
+0x8650,
+0x8679,
+0x867B,
+0x867A,
+0x884D,
+0x886B,
+0x8981,
+0x89D4,
+0x8A08,
+0x8A02,
+0x8A03,
+0x8C9E,
+0x8CA0,
+0x8D74,
+0x8D73,
+0x8DB4,
+0x8ECD,
+0x8ECC,
+0x8FF0,
+0x8FE6,
+0x8FE2,
+0x8FEA,
+0x8FE5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8FED,
+0x8FEB,
+0x8FE4,
+0x8FE8,
+0x90CA,
+0x90CE,
+0x90C1,
+0x90C3,
+0x914B,
+0x914A,
+0x91CD,
+0x9582,
+0x9650,
+0x964B,
+0x964C,
+0x964D,
+0x9762,
+0x9769,
+0x97CB,
+0x97ED,
+0x97F3,
+0x9801,
+0x98A8,
+0x98DB,
+0x98DF,
+0x9996,
+0x9999,
+0x4E58,
+0x4EB3,
+0x500C,
+0x500D,
+0x5023,
+0x4FEF,
+0x5026,
+0x5025,
+0x4FF8,
+0x5029,
+0x5016,
+0x5006,
+0x503C,
+0x501F,
+0x501A,
+0x5012,
+0x5011,
+0x4FFA,
+0x5000,
+0x5014,
+0x5028,
+0x4FF1,
+0x5021,
+0x500B,
+0x5019,
+0x5018,
+0x4FF3,
+0x4FEE,
+0x502D,
+0x502A,
+0x4FFE,
+0x502B,
+0x5009,
+0x517C,
+0x51A4,
+0x51A5,
+0x51A2,
+0x51CD,
+0x51CC,
+0x51C6,
+0x51CB,
+0x5256,
+0x525C,
+0x5254,
+0x525B,
+0x525D,
+0x532A,
+0x537F,
+0x539F,
+0x539D,
+0x53DF,
+0x54E8,
+0x5510,
+0x5501,
+0x5537,
+0x54FC,
+0x54E5,
+0x54F2,
+0x5506,
+0x54FA,
+0x5514,
+0x54E9,
+0x54ED,
+0x54E1,
+0x5509,
+0x54EE,
+0x54EA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x54E6,
+0x5527,
+0x5507,
+0x54FD,
+0x550F,
+0x5703,
+0x5704,
+0x57C2,
+0x57D4,
+0x57CB,
+0x57C3,
+0x5809,
+0x590F,
+0x5957,
+0x5958,
+0x595A,
+0x5A11,
+0x5A18,
+0x5A1C,
+0x5A1F,
+0x5A1B,
+0x5A13,
+0x59EC,
+0x5A20,
+0x5A23,
+0x5A29,
+0x5A25,
+0x5A0C,
+0x5A09,
+0x5B6B,
+0x5C58,
+0x5BB0,
+0x5BB3,
+0x5BB6,
+0x5BB4,
+0x5BAE,
+0x5BB5,
+0x5BB9,
+0x5BB8,
+0x5C04,
+0x5C51,
+0x5C55,
+0x5C50,
+0x5CED,
+0x5CFD,
+0x5CFB,
+0x5CEA,
+0x5CE8,
+0x5CF0,
+0x5CF6,
+0x5D01,
+0x5CF4,
+0x5DEE,
+0x5E2D,
+0x5E2B,
+0x5EAB,
+0x5EAD,
+0x5EA7,
+0x5F31,
+0x5F92,
+0x5F91,
+0x5F90,
+0x6059,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6063,
+0x6065,
+0x6050,
+0x6055,
+0x606D,
+0x6069,
+0x606F,
+0x6084,
+0x609F,
+0x609A,
+0x608D,
+0x6094,
+0x608C,
+0x6085,
+0x6096,
+0x6247,
+0x62F3,
+0x6308,
+0x62FF,
+0x634E,
+0x633E,
+0x632F,
+0x6355,
+0x6342,
+0x6346,
+0x634F,
+0x6349,
+0x633A,
+0x6350,
+0x633D,
+0x632A,
+0x632B,
+0x6328,
+0x634D,
+0x634C,
+0x6548,
+0x6549,
+0x6599,
+0x65C1,
+0x65C5,
+0x6642,
+0x6649,
+0x664F,
+0x6643,
+0x6652,
+0x664C,
+0x6645,
+0x6641,
+0x66F8,
+0x6714,
+0x6715,
+0x6717,
+0x6821,
+0x6838,
+0x6848,
+0x6846,
+0x6853,
+0x6839,
+0x6842,
+0x6854,
+0x6829,
+0x68B3,
+0x6817,
+0x684C,
+0x6851,
+0x683D,
+0x67F4,
+0x6850,
+0x6840,
+0x683C,
+0x6843,
+0x682A,
+0x6845,
+0x6813,
+0x6818,
+0x6841,
+0x6B8A,
+0x6B89,
+0x6BB7,
+0x6C23,
+0x6C27,
+0x6C28,
+0x6C26,
+0x6C24,
+0x6CF0,
+0x6D6A,
+0x6D95,
+0x6D88,
+0x6D87,
+0x6D66,
+0x6D78,
+0x6D77,
+0x6D59,
+0x6D93,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6D6C,
+0x6D89,
+0x6D6E,
+0x6D5A,
+0x6D74,
+0x6D69,
+0x6D8C,
+0x6D8A,
+0x6D79,
+0x6D85,
+0x6D65,
+0x6D94,
+0x70CA,
+0x70D8,
+0x70E4,
+0x70D9,
+0x70C8,
+0x70CF,
+0x7239,
+0x7279,
+0x72FC,
+0x72F9,
+0x72FD,
+0x72F8,
+0x72F7,
+0x7386,
+0x73ED,
+0x7409,
+0x73EE,
+0x73E0,
+0x73EA,
+0x73DE,
+0x7554,
+0x755D,
+0x755C,
+0x755A,
+0x7559,
+0x75BE,
+0x75C5,
+0x75C7,
+0x75B2,
+0x75B3,
+0x75BD,
+0x75BC,
+0x75B9,
+0x75C2,
+0x75B8,
+0x768B,
+0x76B0,
+0x76CA,
+0x76CD,
+0x76CE,
+0x7729,
+0x771F,
+0x7720,
+0x7728,
+0x77E9,
+0x7830,
+0x7827,
+0x7838,
+0x781D,
+0x7834,
+0x7837,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7825,
+0x782D,
+0x7820,
+0x781F,
+0x7832,
+0x7955,
+0x7950,
+0x7960,
+0x795F,
+0x7956,
+0x795E,
+0x795D,
+0x7957,
+0x795A,
+0x79E4,
+0x79E3,
+0x79E7,
+0x79DF,
+0x79E6,
+0x79E9,
+0x79D8,
+0x7A84,
+0x7A88,
+0x7AD9,
+0x7B06,
+0x7B11,
+0x7C89,
+0x7D21,
+0x7D17,
+0x7D0B,
+0x7D0A,
+0x7D20,
+0x7D22,
+0x7D14,
+0x7D10,
+0x7D15,
+0x7D1A,
+0x7D1C,
+0x7D0D,
+0x7D19,
+0x7D1B,
+0x7F3A,
+0x7F5F,
+0x7F94,
+0x7FC5,
+0x7FC1,
+0x8006,
+0x8018,
+0x8015,
+0x8019,
+0x8017,
+0x803D,
+0x803F,
+0x80F1,
+0x8102,
+0x80F0,
+0x8105,
+0x80ED,
+0x80F4,
+0x8106,
+0x80F8,
+0x80F3,
+0x8108,
+0x80FD,
+0x810A,
+0x80FC,
+0x80EF,
+0x81ED,
+0x81EC,
+0x8200,
+0x8210,
+0x822A,
+0x822B,
+0x8228,
+0x822C,
+0x82BB,
+0x832B,
+0x8352,
+0x8354,
+0x834A,
+0x8338,
+0x8350,
+0x8349,
+0x8335,
+0x8334,
+0x834F,
+0x8332,
+0x8339,
+0x8336,
+0x8317,
+0x8340,
+0x8331,
+0x8328,
+0x8343,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8654,
+0x868A,
+0x86AA,
+0x8693,
+0x86A4,
+0x86A9,
+0x868C,
+0x86A3,
+0x869C,
+0x8870,
+0x8877,
+0x8881,
+0x8882,
+0x887D,
+0x8879,
+0x8A18,
+0x8A10,
+0x8A0E,
+0x8A0C,
+0x8A15,
+0x8A0A,
+0x8A17,
+0x8A13,
+0x8A16,
+0x8A0F,
+0x8A11,
+0x8C48,
+0x8C7A,
+0x8C79,
+0x8CA1,
+0x8CA2,
+0x8D77,
+0x8EAC,
+0x8ED2,
+0x8ED4,
+0x8ECF,
+0x8FB1,
+0x9001,
+0x9006,
+0x8FF7,
+0x9000,
+0x8FFA,
+0x8FF4,
+0x9003,
+0x8FFD,
+0x9005,
+0x8FF8,
+0x9095,
+0x90E1,
+0x90DD,
+0x90E2,
+0x9152,
+0x914D,
+0x914C,
+0x91D8,
+0x91DD,
+0x91D7,
+0x91DC,
+0x91D9,
+0x9583,
+0x9662,
+0x9663,
+0x9661,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x965B,
+0x965D,
+0x9664,
+0x9658,
+0x965E,
+0x96BB,
+0x98E2,
+0x99AC,
+0x9AA8,
+0x9AD8,
+0x9B25,
+0x9B32,
+0x9B3C,
+0x4E7E,
+0x507A,
+0x507D,
+0x505C,
+0x5047,
+0x5043,
+0x504C,
+0x505A,
+0x5049,
+0x5065,
+0x5076,
+0x504E,
+0x5055,
+0x5075,
+0x5074,
+0x5077,
+0x504F,
+0x500F,
+0x506F,
+0x506D,
+0x515C,
+0x5195,
+0x51F0,
+0x526A,
+0x526F,
+0x52D2,
+0x52D9,
+0x52D8,
+0x52D5,
+0x5310,
+0x530F,
+0x5319,
+0x533F,
+0x5340,
+0x533E,
+0x53C3,
+0x66FC,
+0x5546,
+0x556A,
+0x5566,
+0x5544,
+0x555E,
+0x5561,
+0x5543,
+0x554A,
+0x5531,
+0x5556,
+0x554F,
+0x5555,
+0x552F,
+0x5564,
+0x5538,
+0x552E,
+0x555C,
+0x552C,
+0x5563,
+0x5533,
+0x5541,
+0x5557,
+0x5708,
+0x570B,
+0x5709,
+0x57DF,
+0x5805,
+0x580A,
+0x5806,
+0x57E0,
+0x57E4,
+0x57FA,
+0x5802,
+0x5835,
+0x57F7,
+0x57F9,
+0x5920,
+0x5962,
+0x5A36,
+0x5A41,
+0x5A49,
+0x5A66,
+0x5A6A,
+0x5A40,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5A3C,
+0x5A62,
+0x5A5A,
+0x5A46,
+0x5A4A,
+0x5B70,
+0x5BC7,
+0x5BC5,
+0x5BC4,
+0x5BC2,
+0x5BBF,
+0x5BC6,
+0x5C09,
+0x5C08,
+0x5C07,
+0x5C60,
+0x5C5C,
+0x5C5D,
+0x5D07,
+0x5D06,
+0x5D0E,
+0x5D1B,
+0x5D16,
+0x5D22,
+0x5D11,
+0x5D29,
+0x5D14,
+0x5D19,
+0x5D24,
+0x5D27,
+0x5D17,
+0x5DE2,
+0x5E38,
+0x5E36,
+0x5E33,
+0x5E37,
+0x5EB7,
+0x5EB8,
+0x5EB6,
+0x5EB5,
+0x5EBE,
+0x5F35,
+0x5F37,
+0x5F57,
+0x5F6C,
+0x5F69,
+0x5F6B,
+0x5F97,
+0x5F99,
+0x5F9E,
+0x5F98,
+0x5FA1,
+0x5FA0,
+0x5F9C,
+0x607F,
+0x60A3,
+0x6089,
+0x60A0,
+0x60A8,
+0x60CB,
+0x60B4,
+0x60E6,
+0x60BD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x60C5,
+0x60BB,
+0x60B5,
+0x60DC,
+0x60BC,
+0x60D8,
+0x60D5,
+0x60C6,
+0x60DF,
+0x60B8,
+0x60DA,
+0x60C7,
+0x621A,
+0x621B,
+0x6248,
+0x63A0,
+0x63A7,
+0x6372,
+0x6396,
+0x63A2,
+0x63A5,
+0x6377,
+0x6367,
+0x6398,
+0x63AA,
+0x6371,
+0x63A9,
+0x6389,
+0x6383,
+0x639B,
+0x636B,
+0x63A8,
+0x6384,
+0x6388,
+0x6399,
+0x63A1,
+0x63AC,
+0x6392,
+0x638F,
+0x6380,
+0x637B,
+0x6369,
+0x6368,
+0x637A,
+0x655D,
+0x6556,
+0x6551,
+0x6559,
+0x6557,
+0x555F,
+0x654F,
+0x6558,
+0x6555,
+0x6554,
+0x659C,
+0x659B,
+0x65AC,
+0x65CF,
+0x65CB,
+0x65CC,
+0x65CE,
+0x665D,
+0x665A,
+0x6664,
+0x6668,
+0x6666,
+0x665E,
+0x66F9,
+0x52D7,
+0x671B,
+0x6881,
+0x68AF,
+0x68A2,
+0x6893,
+0x68B5,
+0x687F,
+0x6876,
+0x68B1,
+0x68A7,
+0x6897,
+0x68B0,
+0x6883,
+0x68C4,
+0x68AD,
+0x6886,
+0x6885,
+0x6894,
+0x689D,
+0x68A8,
+0x689F,
+0x68A1,
+0x6882,
+0x6B32,
+0x6BBA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6BEB,
+0x6BEC,
+0x6C2B,
+0x6D8E,
+0x6DBC,
+0x6DF3,
+0x6DD9,
+0x6DB2,
+0x6DE1,
+0x6DCC,
+0x6DE4,
+0x6DFB,
+0x6DFA,
+0x6E05,
+0x6DC7,
+0x6DCB,
+0x6DAF,
+0x6DD1,
+0x6DAE,
+0x6DDE,
+0x6DF9,
+0x6DB8,
+0x6DF7,
+0x6DF5,
+0x6DC5,
+0x6DD2,
+0x6E1A,
+0x6DB5,
+0x6DDA,
+0x6DEB,
+0x6DD8,
+0x6DEA,
+0x6DF1,
+0x6DEE,
+0x6DE8,
+0x6DC6,
+0x6DC4,
+0x6DAA,
+0x6DEC,
+0x6DBF,
+0x6DE6,
+0x70F9,
+0x7109,
+0x710A,
+0x70FD,
+0x70EF,
+0x723D,
+0x727D,
+0x7281,
+0x731C,
+0x731B,
+0x7316,
+0x7313,
+0x7319,
+0x7387,
+0x7405,
+0x740A,
+0x7403,
+0x7406,
+0x73FE,
+0x740D,
+0x74E0,
+0x74F6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x74F7,
+0x751C,
+0x7522,
+0x7565,
+0x7566,
+0x7562,
+0x7570,
+0x758F,
+0x75D4,
+0x75D5,
+0x75B5,
+0x75CA,
+0x75CD,
+0x768E,
+0x76D4,
+0x76D2,
+0x76DB,
+0x7737,
+0x773E,
+0x773C,
+0x7736,
+0x7738,
+0x773A,
+0x786B,
+0x7843,
+0x784E,
+0x7965,
+0x7968,
+0x796D,
+0x79FB,
+0x7A92,
+0x7A95,
+0x7B20,
+0x7B28,
+0x7B1B,
+0x7B2C,
+0x7B26,
+0x7B19,
+0x7B1E,
+0x7B2E,
+0x7C92,
+0x7C97,
+0x7C95,
+0x7D46,
+0x7D43,
+0x7D71,
+0x7D2E,
+0x7D39,
+0x7D3C,
+0x7D40,
+0x7D30,
+0x7D33,
+0x7D44,
+0x7D2F,
+0x7D42,
+0x7D32,
+0x7D31,
+0x7F3D,
+0x7F9E,
+0x7F9A,
+0x7FCC,
+0x7FCE,
+0x7FD2,
+0x801C,
+0x804A,
+0x8046,
+0x812F,
+0x8116,
+0x8123,
+0x812B,
+0x8129,
+0x8130,
+0x8124,
+0x8202,
+0x8235,
+0x8237,
+0x8236,
+0x8239,
+0x838E,
+0x839E,
+0x8398,
+0x8378,
+0x83A2,
+0x8396,
+0x83BD,
+0x83AB,
+0x8392,
+0x838A,
+0x8393,
+0x8389,
+0x83A0,
+0x8377,
+0x837B,
+0x837C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8386,
+0x83A7,
+0x8655,
+0x5F6A,
+0x86C7,
+0x86C0,
+0x86B6,
+0x86C4,
+0x86B5,
+0x86C6,
+0x86CB,
+0x86B1,
+0x86AF,
+0x86C9,
+0x8853,
+0x889E,
+0x8888,
+0x88AB,
+0x8892,
+0x8896,
+0x888D,
+0x888B,
+0x8993,
+0x898F,
+0x8A2A,
+0x8A1D,
+0x8A23,
+0x8A25,
+0x8A31,
+0x8A2D,
+0x8A1F,
+0x8A1B,
+0x8A22,
+0x8C49,
+0x8C5A,
+0x8CA9,
+0x8CAC,
+0x8CAB,
+0x8CA8,
+0x8CAA,
+0x8CA7,
+0x8D67,
+0x8D66,
+0x8DBE,
+0x8DBA,
+0x8EDB,
+0x8EDF,
+0x9019,
+0x900D,
+0x901A,
+0x9017,
+0x9023,
+0x901F,
+0x901D,
+0x9010,
+0x9015,
+0x901E,
+0x9020,
+0x900F,
+0x9022,
+0x9016,
+0x901B,
+0x9014,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x90E8,
+0x90ED,
+0x90FD,
+0x9157,
+0x91CE,
+0x91F5,
+0x91E6,
+0x91E3,
+0x91E7,
+0x91ED,
+0x91E9,
+0x9589,
+0x966A,
+0x9675,
+0x9673,
+0x9678,
+0x9670,
+0x9674,
+0x9676,
+0x9677,
+0x966C,
+0x96C0,
+0x96EA,
+0x96E9,
+0x7AE0,
+0x7ADF,
+0x9802,
+0x9803,
+0x9B5A,
+0x9CE5,
+0x9E75,
+0x9E7F,
+0x9EA5,
+0x9EBB,
+0x50A2,
+0x508D,
+0x5085,
+0x5099,
+0x5091,
+0x5080,
+0x5096,
+0x5098,
+0x509A,
+0x6700,
+0x51F1,
+0x5272,
+0x5274,
+0x5275,
+0x5269,
+0x52DE,
+0x52DD,
+0x52DB,
+0x535A,
+0x53A5,
+0x557B,
+0x5580,
+0x55A7,
+0x557C,
+0x558A,
+0x559D,
+0x5598,
+0x5582,
+0x559C,
+0x55AA,
+0x5594,
+0x5587,
+0x558B,
+0x5583,
+0x55B3,
+0x55AE,
+0x559F,
+0x553E,
+0x55B2,
+0x559A,
+0x55BB,
+0x55AC,
+0x55B1,
+0x557E,
+0x5589,
+0x55AB,
+0x5599,
+0x570D,
+0x582F,
+0x582A,
+0x5834,
+0x5824,
+0x5830,
+0x5831,
+0x5821,
+0x581D,
+0x5820,
+0x58F9,
+0x58FA,
+0x5960,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5A77,
+0x5A9A,
+0x5A7F,
+0x5A92,
+0x5A9B,
+0x5AA7,
+0x5B73,
+0x5B71,
+0x5BD2,
+0x5BCC,
+0x5BD3,
+0x5BD0,
+0x5C0A,
+0x5C0B,
+0x5C31,
+0x5D4C,
+0x5D50,
+0x5D34,
+0x5D47,
+0x5DFD,
+0x5E45,
+0x5E3D,
+0x5E40,
+0x5E43,
+0x5E7E,
+0x5ECA,
+0x5EC1,
+0x5EC2,
+0x5EC4,
+0x5F3C,
+0x5F6D,
+0x5FA9,
+0x5FAA,
+0x5FA8,
+0x60D1,
+0x60E1,
+0x60B2,
+0x60B6,
+0x60E0,
+0x611C,
+0x6123,
+0x60FA,
+0x6115,
+0x60F0,
+0x60FB,
+0x60F4,
+0x6168,
+0x60F1,
+0x610E,
+0x60F6,
+0x6109,
+0x6100,
+0x6112,
+0x621F,
+0x6249,
+0x63A3,
+0x638C,
+0x63CF,
+0x63C0,
+0x63E9,
+0x63C9,
+0x63C6,
+0x63CD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x63D2,
+0x63E3,
+0x63D0,
+0x63E1,
+0x63D6,
+0x63ED,
+0x63EE,
+0x6376,
+0x63F4,
+0x63EA,
+0x63DB,
+0x6452,
+0x63DA,
+0x63F9,
+0x655E,
+0x6566,
+0x6562,
+0x6563,
+0x6591,
+0x6590,
+0x65AF,
+0x666E,
+0x6670,
+0x6674,
+0x6676,
+0x666F,
+0x6691,
+0x667A,
+0x667E,
+0x6677,
+0x66FE,
+0x66FF,
+0x671F,
+0x671D,
+0x68FA,
+0x68D5,
+0x68E0,
+0x68D8,
+0x68D7,
+0x6905,
+0x68DF,
+0x68F5,
+0x68EE,
+0x68E7,
+0x68F9,
+0x68D2,
+0x68F2,
+0x68E3,
+0x68CB,
+0x68CD,
+0x690D,
+0x6912,
+0x690E,
+0x68C9,
+0x68DA,
+0x696E,
+0x68FB,
+0x6B3E,
+0x6B3A,
+0x6B3D,
+0x6B98,
+0x6B96,
+0x6BBC,
+0x6BEF,
+0x6C2E,
+0x6C2F,
+0x6C2C,
+0x6E2F,
+0x6E38,
+0x6E54,
+0x6E21,
+0x6E32,
+0x6E67,
+0x6E4A,
+0x6E20,
+0x6E25,
+0x6E23,
+0x6E1B,
+0x6E5B,
+0x6E58,
+0x6E24,
+0x6E56,
+0x6E6E,
+0x6E2D,
+0x6E26,
+0x6E6F,
+0x6E34,
+0x6E4D,
+0x6E3A,
+0x6E2C,
+0x6E43,
+0x6E1D,
+0x6E3E,
+0x6ECB,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6E89,
+0x6E19,
+0x6E4E,
+0x6E63,
+0x6E44,
+0x6E72,
+0x6E69,
+0x6E5F,
+0x7119,
+0x711A,
+0x7126,
+0x7130,
+0x7121,
+0x7136,
+0x716E,
+0x711C,
+0x724C,
+0x7284,
+0x7280,
+0x7336,
+0x7325,
+0x7334,
+0x7329,
+0x743A,
+0x742A,
+0x7433,
+0x7422,
+0x7425,
+0x7435,
+0x7436,
+0x7434,
+0x742F,
+0x741B,
+0x7426,
+0x7428,
+0x7525,
+0x7526,
+0x756B,
+0x756A,
+0x75E2,
+0x75DB,
+0x75E3,
+0x75D9,
+0x75D8,
+0x75DE,
+0x75E0,
+0x767B,
+0x767C,
+0x7696,
+0x7693,
+0x76B4,
+0x76DC,
+0x774F,
+0x77ED,
+0x785D,
+0x786C,
+0x786F,
+0x7A0D,
+0x7A08,
+0x7A0B,
+0x7A05,
+0x7A00,
+0x7A98,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7A97,
+0x7A96,
+0x7AE5,
+0x7AE3,
+0x7B49,
+0x7B56,
+0x7B46,
+0x7B50,
+0x7B52,
+0x7B54,
+0x7B4D,
+0x7B4B,
+0x7B4F,
+0x7B51,
+0x7C9F,
+0x7CA5,
+0x7D5E,
+0x7D50,
+0x7D68,
+0x7D55,
+0x7D2B,
+0x7D6E,
+0x7D72,
+0x7D61,
+0x7D66,
+0x7D62,
+0x7D70,
+0x7D73,
+0x5584,
+0x7FD4,
+0x7FD5,
+0x800B,
+0x8052,
+0x8085,
+0x8155,
+0x8154,
+0x814B,
+0x8151,
+0x814E,
+0x8139,
+0x8146,
+0x813E,
+0x814C,
+0x8153,
+0x8174,
+0x8212,
+0x821C,
+0x83E9,
+0x8403,
+0x83F8,
+0x840D,
+0x83E0,
+0x83C5,
+0x840B,
+0x83C1,
+0x83EF,
+0x83F1,
+0x83F4,
+0x8457,
+0x840A,
+0x83F0,
+0x840C,
+0x83CC,
+0x83FD,
+0x83F2,
+0x83CA,
+0x8438,
+0x840E,
+0x8404,
+0x83DC,
+0x8407,
+0x83D4,
+0x83DF,
+0x865B,
+0x86DF,
+0x86D9,
+0x86ED,
+0x86D4,
+0x86DB,
+0x86E4,
+0x86D0,
+0x86DE,
+0x8857,
+0x88C1,
+0x88C2,
+0x88B1,
+0x8983,
+0x8996,
+0x8A3B,
+0x8A60,
+0x8A55,
+0x8A5E,
+0x8A3C,
+0x8A41,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8A54,
+0x8A5B,
+0x8A50,
+0x8A46,
+0x8A34,
+0x8A3A,
+0x8A36,
+0x8A56,
+0x8C61,
+0x8C82,
+0x8CAF,
+0x8CBC,
+0x8CB3,
+0x8CBD,
+0x8CC1,
+0x8CBB,
+0x8CC0,
+0x8CB4,
+0x8CB7,
+0x8CB6,
+0x8CBF,
+0x8CB8,
+0x8D8A,
+0x8D85,
+0x8D81,
+0x8DCE,
+0x8DDD,
+0x8DCB,
+0x8DDA,
+0x8DD1,
+0x8DCC,
+0x8DDB,
+0x8DC6,
+0x8EFB,
+0x8EF8,
+0x8EFC,
+0x8F9C,
+0x902E,
+0x9035,
+0x9031,
+0x9038,
+0x9032,
+0x9036,
+0x9102,
+0x90F5,
+0x9109,
+0x90FE,
+0x9163,
+0x9165,
+0x91CF,
+0x9214,
+0x9215,
+0x9223,
+0x9209,
+0x921E,
+0x920D,
+0x9210,
+0x9207,
+0x9211,
+0x9594,
+0x958F,
+0x958B,
+0x9591,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9593,
+0x9592,
+0x958E,
+0x968A,
+0x968E,
+0x968B,
+0x967D,
+0x9685,
+0x9686,
+0x968D,
+0x9672,
+0x9684,
+0x96C1,
+0x96C5,
+0x96C4,
+0x96C6,
+0x96C7,
+0x96EF,
+0x96F2,
+0x97CC,
+0x9805,
+0x9806,
+0x9808,
+0x98E7,
+0x98EA,
+0x98EF,
+0x98E9,
+0x98F2,
+0x98ED,
+0x99AE,
+0x99AD,
+0x9EC3,
+0x9ECD,
+0x9ED1,
+0x4E82,
+0x50AD,
+0x50B5,
+0x50B2,
+0x50B3,
+0x50C5,
+0x50BE,
+0x50AC,
+0x50B7,
+0x50BB,
+0x50AF,
+0x50C7,
+0x527F,
+0x5277,
+0x527D,
+0x52DF,
+0x52E6,
+0x52E4,
+0x52E2,
+0x52E3,
+0x532F,
+0x55DF,
+0x55E8,
+0x55D3,
+0x55E6,
+0x55CE,
+0x55DC,
+0x55C7,
+0x55D1,
+0x55E3,
+0x55E4,
+0x55EF,
+0x55DA,
+0x55E1,
+0x55C5,
+0x55C6,
+0x55E5,
+0x55C9,
+0x5712,
+0x5713,
+0x585E,
+0x5851,
+0x5858,
+0x5857,
+0x585A,
+0x5854,
+0x586B,
+0x584C,
+0x586D,
+0x584A,
+0x5862,
+0x5852,
+0x584B,
+0x5967,
+0x5AC1,
+0x5AC9,
+0x5ACC,
+0x5ABE,
+0x5ABD,
+0x5ABC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5AB3,
+0x5AC2,
+0x5AB2,
+0x5D69,
+0x5D6F,
+0x5E4C,
+0x5E79,
+0x5EC9,
+0x5EC8,
+0x5F12,
+0x5F59,
+0x5FAC,
+0x5FAE,
+0x611A,
+0x610F,
+0x6148,
+0x611F,
+0x60F3,
+0x611B,
+0x60F9,
+0x6101,
+0x6108,
+0x614E,
+0x614C,
+0x6144,
+0x614D,
+0x613E,
+0x6134,
+0x6127,
+0x610D,
+0x6106,
+0x6137,
+0x6221,
+0x6222,
+0x6413,
+0x643E,
+0x641E,
+0x642A,
+0x642D,
+0x643D,
+0x642C,
+0x640F,
+0x641C,
+0x6414,
+0x640D,
+0x6436,
+0x6416,
+0x6417,
+0x6406,
+0x656C,
+0x659F,
+0x65B0,
+0x6697,
+0x6689,
+0x6687,
+0x6688,
+0x6696,
+0x6684,
+0x6698,
+0x668D,
+0x6703,
+0x6994,
+0x696D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x695A,
+0x6977,
+0x6960,
+0x6954,
+0x6975,
+0x6930,
+0x6982,
+0x694A,
+0x6968,
+0x696B,
+0x695E,
+0x6953,
+0x6979,
+0x6986,
+0x695D,
+0x6963,
+0x695B,
+0x6B47,
+0x6B72,
+0x6BC0,
+0x6BBF,
+0x6BD3,
+0x6BFD,
+0x6EA2,
+0x6EAF,
+0x6ED3,
+0x6EB6,
+0x6EC2,
+0x6E90,
+0x6E9D,
+0x6EC7,
+0x6EC5,
+0x6EA5,
+0x6E98,
+0x6EBC,
+0x6EBA,
+0x6EAB,
+0x6ED1,
+0x6E96,
+0x6E9C,
+0x6EC4,
+0x6ED4,
+0x6EAA,
+0x6EA7,
+0x6EB4,
+0x714E,
+0x7159,
+0x7169,
+0x7164,
+0x7149,
+0x7167,
+0x715C,
+0x716C,
+0x7166,
+0x714C,
+0x7165,
+0x715E,
+0x7146,
+0x7168,
+0x7156,
+0x723A,
+0x7252,
+0x7337,
+0x7345,
+0x733F,
+0x733E,
+0x746F,
+0x745A,
+0x7455,
+0x745F,
+0x745E,
+0x7441,
+0x743F,
+0x7459,
+0x745B,
+0x745C,
+0x7576,
+0x7578,
+0x7600,
+0x75F0,
+0x7601,
+0x75F2,
+0x75F1,
+0x75FA,
+0x75FF,
+0x75F4,
+0x75F3,
+0x76DE,
+0x76DF,
+0x775B,
+0x776B,
+0x7766,
+0x775E,
+0x7763,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7779,
+0x776A,
+0x776C,
+0x775C,
+0x7765,
+0x7768,
+0x7762,
+0x77EE,
+0x788E,
+0x78B0,
+0x7897,
+0x7898,
+0x788C,
+0x7889,
+0x787C,
+0x7891,
+0x7893,
+0x787F,
+0x797A,
+0x797F,
+0x7981,
+0x842C,
+0x79BD,
+0x7A1C,
+0x7A1A,
+0x7A20,
+0x7A14,
+0x7A1F,
+0x7A1E,
+0x7A9F,
+0x7AA0,
+0x7B77,
+0x7BC0,
+0x7B60,
+0x7B6E,
+0x7B67,
+0x7CB1,
+0x7CB3,
+0x7CB5,
+0x7D93,
+0x7D79,
+0x7D91,
+0x7D81,
+0x7D8F,
+0x7D5B,
+0x7F6E,
+0x7F69,
+0x7F6A,
+0x7F72,
+0x7FA9,
+0x7FA8,
+0x7FA4,
+0x8056,
+0x8058,
+0x8086,
+0x8084,
+0x8171,
+0x8170,
+0x8178,
+0x8165,
+0x816E,
+0x8173,
+0x816B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8179,
+0x817A,
+0x8166,
+0x8205,
+0x8247,
+0x8482,
+0x8477,
+0x843D,
+0x8431,
+0x8475,
+0x8466,
+0x846B,
+0x8449,
+0x846C,
+0x845B,
+0x843C,
+0x8435,
+0x8461,
+0x8463,
+0x8469,
+0x846D,
+0x8446,
+0x865E,
+0x865C,
+0x865F,
+0x86F9,
+0x8713,
+0x8708,
+0x8707,
+0x8700,
+0x86FE,
+0x86FB,
+0x8702,
+0x8703,
+0x8706,
+0x870A,
+0x8859,
+0x88DF,
+0x88D4,
+0x88D9,
+0x88DC,
+0x88D8,
+0x88DD,
+0x88E1,
+0x88CA,
+0x88D5,
+0x88D2,
+0x899C,
+0x89E3,
+0x8A6B,
+0x8A72,
+0x8A73,
+0x8A66,
+0x8A69,
+0x8A70,
+0x8A87,
+0x8A7C,
+0x8A63,
+0x8AA0,
+0x8A71,
+0x8A85,
+0x8A6D,
+0x8A62,
+0x8A6E,
+0x8A6C,
+0x8A79,
+0x8A7B,
+0x8A3E,
+0x8A68,
+0x8C62,
+0x8C8A,
+0x8C89,
+0x8CCA,
+0x8CC7,
+0x8CC8,
+0x8CC4,
+0x8CB2,
+0x8CC3,
+0x8CC2,
+0x8CC5,
+0x8DE1,
+0x8DDF,
+0x8DE8,
+0x8DEF,
+0x8DF3,
+0x8DFA,
+0x8DEA,
+0x8DE4,
+0x8DE6,
+0x8EB2,
+0x8F03,
+0x8F09,
+0x8EFE,
+0x8F0A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8F9F,
+0x8FB2,
+0x904B,
+0x904A,
+0x9053,
+0x9042,
+0x9054,
+0x903C,
+0x9055,
+0x9050,
+0x9047,
+0x904F,
+0x904E,
+0x904D,
+0x9051,
+0x903E,
+0x9041,
+0x9112,
+0x9117,
+0x916C,
+0x916A,
+0x9169,
+0x91C9,
+0x9237,
+0x9257,
+0x9238,
+0x923D,
+0x9240,
+0x923E,
+0x925B,
+0x924B,
+0x9264,
+0x9251,
+0x9234,
+0x9249,
+0x924D,
+0x9245,
+0x9239,
+0x923F,
+0x925A,
+0x9598,
+0x9698,
+0x9694,
+0x9695,
+0x96CD,
+0x96CB,
+0x96C9,
+0x96CA,
+0x96F7,
+0x96FB,
+0x96F9,
+0x96F6,
+0x9756,
+0x9774,
+0x9776,
+0x9810,
+0x9811,
+0x9813,
+0x980A,
+0x9812,
+0x980C,
+0x98FC,
+0x98F4,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x98FD,
+0x98FE,
+0x99B3,
+0x99B1,
+0x99B4,
+0x9AE1,
+0x9CE9,
+0x9E82,
+0x9F0E,
+0x9F13,
+0x9F20,
+0x50E7,
+0x50EE,
+0x50E5,
+0x50D6,
+0x50ED,
+0x50DA,
+0x50D5,
+0x50CF,
+0x50D1,
+0x50F1,
+0x50CE,
+0x50E9,
+0x5162,
+0x51F3,
+0x5283,
+0x5282,
+0x5331,
+0x53AD,
+0x55FE,
+0x5600,
+0x561B,
+0x5617,
+0x55FD,
+0x5614,
+0x5606,
+0x5609,
+0x560D,
+0x560E,
+0x55F7,
+0x5616,
+0x561F,
+0x5608,
+0x5610,
+0x55F6,
+0x5718,
+0x5716,
+0x5875,
+0x587E,
+0x5883,
+0x5893,
+0x588A,
+0x5879,
+0x5885,
+0x587D,
+0x58FD,
+0x5925,
+0x5922,
+0x5924,
+0x596A,
+0x5969,
+0x5AE1,
+0x5AE6,
+0x5AE9,
+0x5AD7,
+0x5AD6,
+0x5AD8,
+0x5AE3,
+0x5B75,
+0x5BDE,
+0x5BE7,
+0x5BE1,
+0x5BE5,
+0x5BE6,
+0x5BE8,
+0x5BE2,
+0x5BE4,
+0x5BDF,
+0x5C0D,
+0x5C62,
+0x5D84,
+0x5D87,
+0x5E5B,
+0x5E63,
+0x5E55,
+0x5E57,
+0x5E54,
+0x5ED3,
+0x5ED6,
+0x5F0A,
+0x5F46,
+0x5F70,
+0x5FB9,
+0x6147,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x613F,
+0x614B,
+0x6177,
+0x6162,
+0x6163,
+0x615F,
+0x615A,
+0x6158,
+0x6175,
+0x622A,
+0x6487,
+0x6458,
+0x6454,
+0x64A4,
+0x6478,
+0x645F,
+0x647A,
+0x6451,
+0x6467,
+0x6434,
+0x646D,
+0x647B,
+0x6572,
+0x65A1,
+0x65D7,
+0x65D6,
+0x66A2,
+0x66A8,
+0x669D,
+0x699C,
+0x69A8,
+0x6995,
+0x69C1,
+0x69AE,
+0x69D3,
+0x69CB,
+0x699B,
+0x69B7,
+0x69BB,
+0x69AB,
+0x69B4,
+0x69D0,
+0x69CD,
+0x69AD,
+0x69CC,
+0x69A6,
+0x69C3,
+0x69A3,
+0x6B49,
+0x6B4C,
+0x6C33,
+0x6F33,
+0x6F14,
+0x6EFE,
+0x6F13,
+0x6EF4,
+0x6F29,
+0x6F3E,
+0x6F20,
+0x6F2C,
+0x6F0F,
+0x6F02,
+0x6F22,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6EFF,
+0x6EEF,
+0x6F06,
+0x6F31,
+0x6F38,
+0x6F32,
+0x6F23,
+0x6F15,
+0x6F2B,
+0x6F2F,
+0x6F88,
+0x6F2A,
+0x6EEC,
+0x6F01,
+0x6EF2,
+0x6ECC,
+0x6EF7,
+0x7194,
+0x7199,
+0x717D,
+0x718A,
+0x7184,
+0x7192,
+0x723E,
+0x7292,
+0x7296,
+0x7344,
+0x7350,
+0x7464,
+0x7463,
+0x746A,
+0x7470,
+0x746D,
+0x7504,
+0x7591,
+0x7627,
+0x760D,
+0x760B,
+0x7609,
+0x7613,
+0x76E1,
+0x76E3,
+0x7784,
+0x777D,
+0x777F,
+0x7761,
+0x78C1,
+0x789F,
+0x78A7,
+0x78B3,
+0x78A9,
+0x78A3,
+0x798E,
+0x798F,
+0x798D,
+0x7A2E,
+0x7A31,
+0x7AAA,
+0x7AA9,
+0x7AED,
+0x7AEF,
+0x7BA1,
+0x7B95,
+0x7B8B,
+0x7B75,
+0x7B97,
+0x7B9D,
+0x7B94,
+0x7B8F,
+0x7BB8,
+0x7B87,
+0x7B84,
+0x7CB9,
+0x7CBD,
+0x7CBE,
+0x7DBB,
+0x7DB0,
+0x7D9C,
+0x7DBD,
+0x7DBE,
+0x7DA0,
+0x7DCA,
+0x7DB4,
+0x7DB2,
+0x7DB1,
+0x7DBA,
+0x7DA2,
+0x7DBF,
+0x7DB5,
+0x7DB8,
+0x7DAD,
+0x7DD2,
+0x7DC7,
+0x7DAC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7F70,
+0x7FE0,
+0x7FE1,
+0x7FDF,
+0x805E,
+0x805A,
+0x8087,
+0x8150,
+0x8180,
+0x818F,
+0x8188,
+0x818A,
+0x817F,
+0x8182,
+0x81E7,
+0x81FA,
+0x8207,
+0x8214,
+0x821E,
+0x824B,
+0x84C9,
+0x84BF,
+0x84C6,
+0x84C4,
+0x8499,
+0x849E,
+0x84B2,
+0x849C,
+0x84CB,
+0x84B8,
+0x84C0,
+0x84D3,
+0x8490,
+0x84BC,
+0x84D1,
+0x84CA,
+0x873F,
+0x871C,
+0x873B,
+0x8722,
+0x8725,
+0x8734,
+0x8718,
+0x8755,
+0x8737,
+0x8729,
+0x88F3,
+0x8902,
+0x88F4,
+0x88F9,
+0x88F8,
+0x88FD,
+0x88E8,
+0x891A,
+0x88EF,
+0x8AA6,
+0x8A8C,
+0x8A9E,
+0x8AA3,
+0x8A8D,
+0x8AA1,
+0x8A93,
+0x8AA4,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8AAA,
+0x8AA5,
+0x8AA8,
+0x8A98,
+0x8A91,
+0x8A9A,
+0x8AA7,
+0x8C6A,
+0x8C8D,
+0x8C8C,
+0x8CD3,
+0x8CD1,
+0x8CD2,
+0x8D6B,
+0x8D99,
+0x8D95,
+0x8DFC,
+0x8F14,
+0x8F12,
+0x8F15,
+0x8F13,
+0x8FA3,
+0x9060,
+0x9058,
+0x905C,
+0x9063,
+0x9059,
+0x905E,
+0x9062,
+0x905D,
+0x905B,
+0x9119,
+0x9118,
+0x911E,
+0x9175,
+0x9178,
+0x9177,
+0x9174,
+0x9278,
+0x9280,
+0x9285,
+0x9298,
+0x9296,
+0x927B,
+0x9293,
+0x929C,
+0x92A8,
+0x927C,
+0x9291,
+0x95A1,
+0x95A8,
+0x95A9,
+0x95A3,
+0x95A5,
+0x95A4,
+0x9699,
+0x969C,
+0x969B,
+0x96CC,
+0x96D2,
+0x9700,
+0x977C,
+0x9785,
+0x97F6,
+0x9817,
+0x9818,
+0x98AF,
+0x98B1,
+0x9903,
+0x9905,
+0x990C,
+0x9909,
+0x99C1,
+0x9AAF,
+0x9AB0,
+0x9AE6,
+0x9B41,
+0x9B42,
+0x9CF4,
+0x9CF6,
+0x9CF3,
+0x9EBC,
+0x9F3B,
+0x9F4A,
+0x5104,
+0x5100,
+0x50FB,
+0x50F5,
+0x50F9,
+0x5102,
+0x5108,
+0x5109,
+0x5105,
+0x51DC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5287,
+0x5288,
+0x5289,
+0x528D,
+0x528A,
+0x52F0,
+0x53B2,
+0x562E,
+0x563B,
+0x5639,
+0x5632,
+0x563F,
+0x5634,
+0x5629,
+0x5653,
+0x564E,
+0x5657,
+0x5674,
+0x5636,
+0x562F,
+0x5630,
+0x5880,
+0x589F,
+0x589E,
+0x58B3,
+0x589C,
+0x58AE,
+0x58A9,
+0x58A6,
+0x596D,
+0x5B09,
+0x5AFB,
+0x5B0B,
+0x5AF5,
+0x5B0C,
+0x5B08,
+0x5BEE,
+0x5BEC,
+0x5BE9,
+0x5BEB,
+0x5C64,
+0x5C65,
+0x5D9D,
+0x5D94,
+0x5E62,
+0x5E5F,
+0x5E61,
+0x5EE2,
+0x5EDA,
+0x5EDF,
+0x5EDD,
+0x5EE3,
+0x5EE0,
+0x5F48,
+0x5F71,
+0x5FB7,
+0x5FB5,
+0x6176,
+0x6167,
+0x616E,
+0x615D,
+0x6155,
+0x6182,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x617C,
+0x6170,
+0x616B,
+0x617E,
+0x61A7,
+0x6190,
+0x61AB,
+0x618E,
+0x61AC,
+0x619A,
+0x61A4,
+0x6194,
+0x61AE,
+0x622E,
+0x6469,
+0x646F,
+0x6479,
+0x649E,
+0x64B2,
+0x6488,
+0x6490,
+0x64B0,
+0x64A5,
+0x6493,
+0x6495,
+0x64A9,
+0x6492,
+0x64AE,
+0x64AD,
+0x64AB,
+0x649A,
+0x64AC,
+0x6499,
+0x64A2,
+0x64B3,
+0x6575,
+0x6577,
+0x6578,
+0x66AE,
+0x66AB,
+0x66B4,
+0x66B1,
+0x6A23,
+0x6A1F,
+0x69E8,
+0x6A01,
+0x6A1E,
+0x6A19,
+0x69FD,
+0x6A21,
+0x6A13,
+0x6A0A,
+0x69F3,
+0x6A02,
+0x6A05,
+0x69ED,
+0x6A11,
+0x6B50,
+0x6B4E,
+0x6BA4,
+0x6BC5,
+0x6BC6,
+0x6F3F,
+0x6F7C,
+0x6F84,
+0x6F51,
+0x6F66,
+0x6F54,
+0x6F86,
+0x6F6D,
+0x6F5B,
+0x6F78,
+0x6F6E,
+0x6F8E,
+0x6F7A,
+0x6F70,
+0x6F64,
+0x6F97,
+0x6F58,
+0x6ED5,
+0x6F6F,
+0x6F60,
+0x6F5F,
+0x719F,
+0x71AC,
+0x71B1,
+0x71A8,
+0x7256,
+0x729B,
+0x734E,
+0x7357,
+0x7469,
+0x748B,
+0x7483,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x747E,
+0x7480,
+0x757F,
+0x7620,
+0x7629,
+0x761F,
+0x7624,
+0x7626,
+0x7621,
+0x7622,
+0x769A,
+0x76BA,
+0x76E4,
+0x778E,
+0x7787,
+0x778C,
+0x7791,
+0x778B,
+0x78CB,
+0x78C5,
+0x78BA,
+0x78CA,
+0x78BE,
+0x78D5,
+0x78BC,
+0x78D0,
+0x7A3F,
+0x7A3C,
+0x7A40,
+0x7A3D,
+0x7A37,
+0x7A3B,
+0x7AAF,
+0x7AAE,
+0x7BAD,
+0x7BB1,
+0x7BC4,
+0x7BB4,
+0x7BC6,
+0x7BC7,
+0x7BC1,
+0x7BA0,
+0x7BCC,
+0x7CCA,
+0x7DE0,
+0x7DF4,
+0x7DEF,
+0x7DFB,
+0x7DD8,
+0x7DEC,
+0x7DDD,
+0x7DE8,
+0x7DE3,
+0x7DDA,
+0x7DDE,
+0x7DE9,
+0x7D9E,
+0x7DD9,
+0x7DF2,
+0x7DF9,
+0x7F75,
+0x7F77,
+0x7FAF,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7FE9,
+0x8026,
+0x819B,
+0x819C,
+0x819D,
+0x81A0,
+0x819A,
+0x8198,
+0x8517,
+0x853D,
+0x851A,
+0x84EE,
+0x852C,
+0x852D,
+0x8513,
+0x8511,
+0x8523,
+0x8521,
+0x8514,
+0x84EC,
+0x8525,
+0x84FF,
+0x8506,
+0x8782,
+0x8774,
+0x8776,
+0x8760,
+0x8766,
+0x8778,
+0x8768,
+0x8759,
+0x8757,
+0x874C,
+0x8753,
+0x885B,
+0x885D,
+0x8910,
+0x8907,
+0x8912,
+0x8913,
+0x8915,
+0x890A,
+0x8ABC,
+0x8AD2,
+0x8AC7,
+0x8AC4,
+0x8A95,
+0x8ACB,
+0x8AF8,
+0x8AB2,
+0x8AC9,
+0x8AC2,
+0x8ABF,
+0x8AB0,
+0x8AD6,
+0x8ACD,
+0x8AB6,
+0x8AB9,
+0x8ADB,
+0x8C4C,
+0x8C4E,
+0x8C6C,
+0x8CE0,
+0x8CDE,
+0x8CE6,
+0x8CE4,
+0x8CEC,
+0x8CED,
+0x8CE2,
+0x8CE3,
+0x8CDC,
+0x8CEA,
+0x8CE1,
+0x8D6D,
+0x8D9F,
+0x8DA3,
+0x8E2B,
+0x8E10,
+0x8E1D,
+0x8E22,
+0x8E0F,
+0x8E29,
+0x8E1F,
+0x8E21,
+0x8E1E,
+0x8EBA,
+0x8F1D,
+0x8F1B,
+0x8F1F,
+0x8F29,
+0x8F26,
+0x8F2A,
+0x8F1C,
+0x8F1E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8F25,
+0x9069,
+0x906E,
+0x9068,
+0x906D,
+0x9077,
+0x9130,
+0x912D,
+0x9127,
+0x9131,
+0x9187,
+0x9189,
+0x918B,
+0x9183,
+0x92C5,
+0x92BB,
+0x92B7,
+0x92EA,
+0x92AC,
+0x92E4,
+0x92C1,
+0x92B3,
+0x92BC,
+0x92D2,
+0x92C7,
+0x92F0,
+0x92B2,
+0x95AD,
+0x95B1,
+0x9704,
+0x9706,
+0x9707,
+0x9709,
+0x9760,
+0x978D,
+0x978B,
+0x978F,
+0x9821,
+0x982B,
+0x981C,
+0x98B3,
+0x990A,
+0x9913,
+0x9912,
+0x9918,
+0x99DD,
+0x99D0,
+0x99DF,
+0x99DB,
+0x99D1,
+0x99D5,
+0x99D2,
+0x99D9,
+0x9AB7,
+0x9AEE,
+0x9AEF,
+0x9B27,
+0x9B45,
+0x9B44,
+0x9B77,
+0x9B6F,
+0x9D06,
+0x9D09,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9D03,
+0x9EA9,
+0x9EBE,
+0x9ECE,
+0x58A8,
+0x9F52,
+0x5112,
+0x5118,
+0x5114,
+0x5110,
+0x5115,
+0x5180,
+0x51AA,
+0x51DD,
+0x5291,
+0x5293,
+0x52F3,
+0x5659,
+0x566B,
+0x5679,
+0x5669,
+0x5664,
+0x5678,
+0x566A,
+0x5668,
+0x5665,
+0x5671,
+0x566F,
+0x566C,
+0x5662,
+0x5676,
+0x58C1,
+0x58BE,
+0x58C7,
+0x58C5,
+0x596E,
+0x5B1D,
+0x5B34,
+0x5B78,
+0x5BF0,
+0x5C0E,
+0x5F4A,
+0x61B2,
+0x6191,
+0x61A9,
+0x618A,
+0x61CD,
+0x61B6,
+0x61BE,
+0x61CA,
+0x61C8,
+0x6230,
+0x64C5,
+0x64C1,
+0x64CB,
+0x64BB,
+0x64BC,
+0x64DA,
+0x64C4,
+0x64C7,
+0x64C2,
+0x64CD,
+0x64BF,
+0x64D2,
+0x64D4,
+0x64BE,
+0x6574,
+0x66C6,
+0x66C9,
+0x66B9,
+0x66C4,
+0x66C7,
+0x66B8,
+0x6A3D,
+0x6A38,
+0x6A3A,
+0x6A59,
+0x6A6B,
+0x6A58,
+0x6A39,
+0x6A44,
+0x6A62,
+0x6A61,
+0x6A4B,
+0x6A47,
+0x6A35,
+0x6A5F,
+0x6A48,
+0x6B59,
+0x6B77,
+0x6C05,
+0x6FC2,
+0x6FB1,
+0x6FA1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6FC3,
+0x6FA4,
+0x6FC1,
+0x6FA7,
+0x6FB3,
+0x6FC0,
+0x6FB9,
+0x6FB6,
+0x6FA6,
+0x6FA0,
+0x6FB4,
+0x71BE,
+0x71C9,
+0x71D0,
+0x71D2,
+0x71C8,
+0x71D5,
+0x71B9,
+0x71CE,
+0x71D9,
+0x71DC,
+0x71C3,
+0x71C4,
+0x7368,
+0x749C,
+0x74A3,
+0x7498,
+0x749F,
+0x749E,
+0x74E2,
+0x750C,
+0x750D,
+0x7634,
+0x7638,
+0x763A,
+0x76E7,
+0x76E5,
+0x77A0,
+0x779E,
+0x779F,
+0x77A5,
+0x78E8,
+0x78DA,
+0x78EC,
+0x78E7,
+0x79A6,
+0x7A4D,
+0x7A4E,
+0x7A46,
+0x7A4C,
+0x7A4B,
+0x7ABA,
+0x7BD9,
+0x7C11,
+0x7BC9,
+0x7BE4,
+0x7BDB,
+0x7BE1,
+0x7BE9,
+0x7BE6,
+0x7CD5,
+0x7CD6,
+0x7E0A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7E11,
+0x7E08,
+0x7E1B,
+0x7E23,
+0x7E1E,
+0x7E1D,
+0x7E09,
+0x7E10,
+0x7F79,
+0x7FB2,
+0x7FF0,
+0x7FF1,
+0x7FEE,
+0x8028,
+0x81B3,
+0x81A9,
+0x81A8,
+0x81FB,
+0x8208,
+0x8258,
+0x8259,
+0x854A,
+0x8559,
+0x8548,
+0x8568,
+0x8569,
+0x8543,
+0x8549,
+0x856D,
+0x856A,
+0x855E,
+0x8783,
+0x879F,
+0x879E,
+0x87A2,
+0x878D,
+0x8861,
+0x892A,
+0x8932,
+0x8925,
+0x892B,
+0x8921,
+0x89AA,
+0x89A6,
+0x8AE6,
+0x8AFA,
+0x8AEB,
+0x8AF1,
+0x8B00,
+0x8ADC,
+0x8AE7,
+0x8AEE,
+0x8AFE,
+0x8B01,
+0x8B02,
+0x8AF7,
+0x8AED,
+0x8AF3,
+0x8AF6,
+0x8AFC,
+0x8C6B,
+0x8C6D,
+0x8C93,
+0x8CF4,
+0x8E44,
+0x8E31,
+0x8E34,
+0x8E42,
+0x8E39,
+0x8E35,
+0x8F3B,
+0x8F2F,
+0x8F38,
+0x8F33,
+0x8FA8,
+0x8FA6,
+0x9075,
+0x9074,
+0x9078,
+0x9072,
+0x907C,
+0x907A,
+0x9134,
+0x9192,
+0x9320,
+0x9336,
+0x92F8,
+0x9333,
+0x932F,
+0x9322,
+0x92FC,
+0x932B,
+0x9304,
+0x931A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9310,
+0x9326,
+0x9321,
+0x9315,
+0x932E,
+0x9319,
+0x95BB,
+0x96A7,
+0x96A8,
+0x96AA,
+0x96D5,
+0x970E,
+0x9711,
+0x9716,
+0x970D,
+0x9713,
+0x970F,
+0x975B,
+0x975C,
+0x9766,
+0x9798,
+0x9830,
+0x9838,
+0x983B,
+0x9837,
+0x982D,
+0x9839,
+0x9824,
+0x9910,
+0x9928,
+0x991E,
+0x991B,
+0x9921,
+0x991A,
+0x99ED,
+0x99E2,
+0x99F1,
+0x9AB8,
+0x9ABC,
+0x9AFB,
+0x9AED,
+0x9B28,
+0x9B91,
+0x9D15,
+0x9D23,
+0x9D26,
+0x9D28,
+0x9D12,
+0x9D1B,
+0x9ED8,
+0x9ED4,
+0x9F8D,
+0x9F9C,
+0x512A,
+0x511F,
+0x5121,
+0x5132,
+0x52F5,
+0x568E,
+0x5680,
+0x5690,
+0x5685,
+0x5687,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x568F,
+0x58D5,
+0x58D3,
+0x58D1,
+0x58CE,
+0x5B30,
+0x5B2A,
+0x5B24,
+0x5B7A,
+0x5C37,
+0x5C68,
+0x5DBC,
+0x5DBA,
+0x5DBD,
+0x5DB8,
+0x5E6B,
+0x5F4C,
+0x5FBD,
+0x61C9,
+0x61C2,
+0x61C7,
+0x61E6,
+0x61CB,
+0x6232,
+0x6234,
+0x64CE,
+0x64CA,
+0x64D8,
+0x64E0,
+0x64F0,
+0x64E6,
+0x64EC,
+0x64F1,
+0x64E2,
+0x64ED,
+0x6582,
+0x6583,
+0x66D9,
+0x66D6,
+0x6A80,
+0x6A94,
+0x6A84,
+0x6AA2,
+0x6A9C,
+0x6ADB,
+0x6AA3,
+0x6A7E,
+0x6A97,
+0x6A90,
+0x6AA0,
+0x6B5C,
+0x6BAE,
+0x6BDA,
+0x6C08,
+0x6FD8,
+0x6FF1,
+0x6FDF,
+0x6FE0,
+0x6FDB,
+0x6FE4,
+0x6FEB,
+0x6FEF,
+0x6F80,
+0x6FEC,
+0x6FE1,
+0x6FE9,
+0x6FD5,
+0x6FEE,
+0x6FF0,
+0x71E7,
+0x71DF,
+0x71EE,
+0x71E6,
+0x71E5,
+0x71ED,
+0x71EC,
+0x71F4,
+0x71E0,
+0x7235,
+0x7246,
+0x7370,
+0x7372,
+0x74A9,
+0x74B0,
+0x74A6,
+0x74A8,
+0x7646,
+0x7642,
+0x764C,
+0x76EA,
+0x77B3,
+0x77AA,
+0x77B0,
+0x77AC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x77A7,
+0x77AD,
+0x77EF,
+0x78F7,
+0x78FA,
+0x78F4,
+0x78EF,
+0x7901,
+0x79A7,
+0x79AA,
+0x7A57,
+0x7ABF,
+0x7C07,
+0x7C0D,
+0x7BFE,
+0x7BF7,
+0x7C0C,
+0x7BE0,
+0x7CE0,
+0x7CDC,
+0x7CDE,
+0x7CE2,
+0x7CDF,
+0x7CD9,
+0x7CDD,
+0x7E2E,
+0x7E3E,
+0x7E46,
+0x7E37,
+0x7E32,
+0x7E43,
+0x7E2B,
+0x7E3D,
+0x7E31,
+0x7E45,
+0x7E41,
+0x7E34,
+0x7E39,
+0x7E48,
+0x7E35,
+0x7E3F,
+0x7E2F,
+0x7F44,
+0x7FF3,
+0x7FFC,
+0x8071,
+0x8072,
+0x8070,
+0x806F,
+0x8073,
+0x81C6,
+0x81C3,
+0x81BA,
+0x81C2,
+0x81C0,
+0x81BF,
+0x81BD,
+0x81C9,
+0x81BE,
+0x81E8,
+0x8209,
+0x8271,
+0x85AA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8584,
+0x857E,
+0x859C,
+0x8591,
+0x8594,
+0x85AF,
+0x859B,
+0x8587,
+0x85A8,
+0x858A,
+0x8667,
+0x87C0,
+0x87D1,
+0x87B3,
+0x87D2,
+0x87C6,
+0x87AB,
+0x87BB,
+0x87BA,
+0x87C8,
+0x87CB,
+0x893B,
+0x8936,
+0x8944,
+0x8938,
+0x893D,
+0x89AC,
+0x8B0E,
+0x8B17,
+0x8B19,
+0x8B1B,
+0x8B0A,
+0x8B20,
+0x8B1D,
+0x8B04,
+0x8B10,
+0x8C41,
+0x8C3F,
+0x8C73,
+0x8CFA,
+0x8CFD,
+0x8CFC,
+0x8CF8,
+0x8CFB,
+0x8DA8,
+0x8E49,
+0x8E4B,
+0x8E48,
+0x8E4A,
+0x8F44,
+0x8F3E,
+0x8F42,
+0x8F45,
+0x8F3F,
+0x907F,
+0x907D,
+0x9084,
+0x9081,
+0x9082,
+0x9080,
+0x9139,
+0x91A3,
+0x919E,
+0x919C,
+0x934D,
+0x9382,
+0x9328,
+0x9375,
+0x934A,
+0x9365,
+0x934B,
+0x9318,
+0x937E,
+0x936C,
+0x935B,
+0x9370,
+0x935A,
+0x9354,
+0x95CA,
+0x95CB,
+0x95CC,
+0x95C8,
+0x95C6,
+0x96B1,
+0x96B8,
+0x96D6,
+0x971C,
+0x971E,
+0x97A0,
+0x97D3,
+0x9846,
+0x98B6,
+0x9935,
+0x9A01,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x99FF,
+0x9BAE,
+0x9BAB,
+0x9BAA,
+0x9BAD,
+0x9D3B,
+0x9D3F,
+0x9E8B,
+0x9ECF,
+0x9EDE,
+0x9EDC,
+0x9EDD,
+0x9EDB,
+0x9F3E,
+0x9F4B,
+0x53E2,
+0x5695,
+0x56AE,
+0x58D9,
+0x58D8,
+0x5B38,
+0x5F5D,
+0x61E3,
+0x6233,
+0x64F4,
+0x64F2,
+0x64FE,
+0x6506,
+0x64FA,
+0x64FB,
+0x64F7,
+0x65B7,
+0x66DC,
+0x6726,
+0x6AB3,
+0x6AAC,
+0x6AC3,
+0x6ABB,
+0x6AB8,
+0x6AC2,
+0x6AAE,
+0x6AAF,
+0x6B5F,
+0x6B78,
+0x6BAF,
+0x7009,
+0x700B,
+0x6FFE,
+0x7006,
+0x6FFA,
+0x7011,
+0x700F,
+0x71FB,
+0x71FC,
+0x71FE,
+0x71F8,
+0x7377,
+0x7375,
+0x74A7,
+0x74BF,
+0x7515,
+0x7656,
+0x7658,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7652,
+0x77BD,
+0x77BF,
+0x77BB,
+0x77BC,
+0x790E,
+0x79AE,
+0x7A61,
+0x7A62,
+0x7A60,
+0x7AC4,
+0x7AC5,
+0x7C2B,
+0x7C27,
+0x7C2A,
+0x7C1E,
+0x7C23,
+0x7C21,
+0x7CE7,
+0x7E54,
+0x7E55,
+0x7E5E,
+0x7E5A,
+0x7E61,
+0x7E52,
+0x7E59,
+0x7F48,
+0x7FF9,
+0x7FFB,
+0x8077,
+0x8076,
+0x81CD,
+0x81CF,
+0x820A,
+0x85CF,
+0x85A9,
+0x85CD,
+0x85D0,
+0x85C9,
+0x85B0,
+0x85BA,
+0x85B9,
+0x85A6,
+0x87EF,
+0x87EC,
+0x87F2,
+0x87E0,
+0x8986,
+0x89B2,
+0x89F4,
+0x8B28,
+0x8B39,
+0x8B2C,
+0x8B2B,
+0x8C50,
+0x8D05,
+0x8E59,
+0x8E63,
+0x8E66,
+0x8E64,
+0x8E5F,
+0x8E55,
+0x8EC0,
+0x8F49,
+0x8F4D,
+0x9087,
+0x9083,
+0x9088,
+0x91AB,
+0x91AC,
+0x91D0,
+0x9394,
+0x938A,
+0x9396,
+0x93A2,
+0x93B3,
+0x93AE,
+0x93AC,
+0x93B0,
+0x9398,
+0x939A,
+0x9397,
+0x95D4,
+0x95D6,
+0x95D0,
+0x95D5,
+0x96E2,
+0x96DC,
+0x96D9,
+0x96DB,
+0x96DE,
+0x9724,
+0x97A3,
+0x97A6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x97AD,
+0x97F9,
+0x984D,
+0x984F,
+0x984C,
+0x984E,
+0x9853,
+0x98BA,
+0x993E,
+0x993F,
+0x993D,
+0x992E,
+0x99A5,
+0x9A0E,
+0x9AC1,
+0x9B03,
+0x9B06,
+0x9B4F,
+0x9B4E,
+0x9B4D,
+0x9BCA,
+0x9BC9,
+0x9BFD,
+0x9BC8,
+0x9BC0,
+0x9D51,
+0x9D5D,
+0x9D60,
+0x9EE0,
+0x9F15,
+0x9F2C,
+0x5133,
+0x56A5,
+0x58DE,
+0x58DF,
+0x58E2,
+0x5BF5,
+0x9F90,
+0x5EEC,
+0x61F2,
+0x61F7,
+0x61F6,
+0x61F5,
+0x6500,
+0x650F,
+0x66E0,
+0x66DD,
+0x6AE5,
+0x6ADD,
+0x6ADA,
+0x6AD3,
+0x701B,
+0x701F,
+0x7028,
+0x701A,
+0x701D,
+0x7015,
+0x7018,
+0x7206,
+0x720D,
+0x7258,
+0x72A2,
+0x7378,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x737A,
+0x74BD,
+0x74CA,
+0x74E3,
+0x7587,
+0x7586,
+0x765F,
+0x7661,
+0x77C7,
+0x7919,
+0x79B1,
+0x7A6B,
+0x7A69,
+0x7C3E,
+0x7C3F,
+0x7C38,
+0x7C3D,
+0x7C37,
+0x7C40,
+0x7E6B,
+0x7E6D,
+0x7E79,
+0x7E69,
+0x7E6A,
+0x7F85,
+0x7E73,
+0x7FB6,
+0x7FB9,
+0x7FB8,
+0x81D8,
+0x85E9,
+0x85DD,
+0x85EA,
+0x85D5,
+0x85E4,
+0x85E5,
+0x85F7,
+0x87FB,
+0x8805,
+0x880D,
+0x87F9,
+0x87FE,
+0x8960,
+0x895F,
+0x8956,
+0x895E,
+0x8B41,
+0x8B5C,
+0x8B58,
+0x8B49,
+0x8B5A,
+0x8B4E,
+0x8B4F,
+0x8B46,
+0x8B59,
+0x8D08,
+0x8D0A,
+0x8E7C,
+0x8E72,
+0x8E87,
+0x8E76,
+0x8E6C,
+0x8E7A,
+0x8E74,
+0x8F54,
+0x8F4E,
+0x8FAD,
+0x908A,
+0x908B,
+0x91B1,
+0x91AE,
+0x93E1,
+0x93D1,
+0x93DF,
+0x93C3,
+0x93C8,
+0x93DC,
+0x93DD,
+0x93D6,
+0x93E2,
+0x93CD,
+0x93D8,
+0x93E4,
+0x93D7,
+0x93E8,
+0x95DC,
+0x96B4,
+0x96E3,
+0x972A,
+0x9727,
+0x9761,
+0x97DC,
+0x97FB,
+0x985E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9858,
+0x985B,
+0x98BC,
+0x9945,
+0x9949,
+0x9A16,
+0x9A19,
+0x9B0D,
+0x9BE8,
+0x9BE7,
+0x9BD6,
+0x9BDB,
+0x9D89,
+0x9D61,
+0x9D72,
+0x9D6A,
+0x9D6C,
+0x9E92,
+0x9E97,
+0x9E93,
+0x9EB4,
+0x52F8,
+0x56A8,
+0x56B7,
+0x56B6,
+0x56B4,
+0x56BC,
+0x58E4,
+0x5B40,
+0x5B43,
+0x5B7D,
+0x5BF6,
+0x5DC9,
+0x61F8,
+0x61FA,
+0x6518,
+0x6514,
+0x6519,
+0x66E6,
+0x6727,
+0x6AEC,
+0x703E,
+0x7030,
+0x7032,
+0x7210,
+0x737B,
+0x74CF,
+0x7662,
+0x7665,
+0x7926,
+0x792A,
+0x792C,
+0x792B,
+0x7AC7,
+0x7AF6,
+0x7C4C,
+0x7C43,
+0x7C4D,
+0x7CEF,
+0x7CF0,
+0x8FAE,
+0x7E7D,
+0x7E7C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7E82,
+0x7F4C,
+0x8000,
+0x81DA,
+0x8266,
+0x85FB,
+0x85F9,
+0x8611,
+0x85FA,
+0x8606,
+0x860B,
+0x8607,
+0x860A,
+0x8814,
+0x8815,
+0x8964,
+0x89BA,
+0x89F8,
+0x8B70,
+0x8B6C,
+0x8B66,
+0x8B6F,
+0x8B5F,
+0x8B6B,
+0x8D0F,
+0x8D0D,
+0x8E89,
+0x8E81,
+0x8E85,
+0x8E82,
+0x91B4,
+0x91CB,
+0x9418,
+0x9403,
+0x93FD,
+0x95E1,
+0x9730,
+0x98C4,
+0x9952,
+0x9951,
+0x99A8,
+0x9A2B,
+0x9A30,
+0x9A37,
+0x9A35,
+0x9C13,
+0x9C0D,
+0x9E79,
+0x9EB5,
+0x9EE8,
+0x9F2F,
+0x9F5F,
+0x9F63,
+0x9F61,
+0x5137,
+0x5138,
+0x56C1,
+0x56C0,
+0x56C2,
+0x5914,
+0x5C6C,
+0x5DCD,
+0x61FC,
+0x61FE,
+0x651D,
+0x651C,
+0x6595,
+0x66E9,
+0x6AFB,
+0x6B04,
+0x6AFA,
+0x6BB2,
+0x704C,
+0x721B,
+0x72A7,
+0x74D6,
+0x74D4,
+0x7669,
+0x77D3,
+0x7C50,
+0x7E8F,
+0x7E8C,
+0x7FBC,
+0x8617,
+0x862D,
+0x861A,
+0x8823,
+0x8822,
+0x8821,
+0x881F,
+0x896A,
+0x896C,
+0x89BD,
+0x8B74,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8B77,
+0x8B7D,
+0x8D13,
+0x8E8A,
+0x8E8D,
+0x8E8B,
+0x8F5F,
+0x8FAF,
+0x91BA,
+0x942E,
+0x9433,
+0x9435,
+0x943A,
+0x9438,
+0x9432,
+0x942B,
+0x95E2,
+0x9738,
+0x9739,
+0x9732,
+0x97FF,
+0x9867,
+0x9865,
+0x9957,
+0x9A45,
+0x9A43,
+0x9A40,
+0x9A3E,
+0x9ACF,
+0x9B54,
+0x9B51,
+0x9C2D,
+0x9C25,
+0x9DAF,
+0x9DB4,
+0x9DC2,
+0x9DB8,
+0x9E9D,
+0x9EEF,
+0x9F19,
+0x9F5C,
+0x9F66,
+0x9F67,
+0x513C,
+0x513B,
+0x56C8,
+0x56CA,
+0x56C9,
+0x5B7F,
+0x5DD4,
+0x5DD2,
+0x5F4E,
+0x61FF,
+0x6524,
+0x6B0A,
+0x6B61,
+0x7051,
+0x7058,
+0x7380,
+0x74E4,
+0x758A,
+0x766E,
+0x766C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x79B3,
+0x7C60,
+0x7C5F,
+0x807E,
+0x807D,
+0x81DF,
+0x8972,
+0x896F,
+0x89FC,
+0x8B80,
+0x8D16,
+0x8D17,
+0x8E91,
+0x8E93,
+0x8F61,
+0x9148,
+0x9444,
+0x9451,
+0x9452,
+0x973D,
+0x973E,
+0x97C3,
+0x97C1,
+0x986B,
+0x9955,
+0x9A55,
+0x9A4D,
+0x9AD2,
+0x9B1A,
+0x9C49,
+0x9C31,
+0x9C3E,
+0x9C3B,
+0x9DD3,
+0x9DD7,
+0x9F34,
+0x9F6C,
+0x9F6A,
+0x9F94,
+0x56CC,
+0x5DD6,
+0x6200,
+0x6523,
+0x652B,
+0x652A,
+0x66EC,
+0x6B10,
+0x74DA,
+0x7ACA,
+0x7C64,
+0x7C63,
+0x7C65,
+0x7E93,
+0x7E96,
+0x7E94,
+0x81E2,
+0x8638,
+0x863F,
+0x8831,
+0x8B8A,
+0x9090,
+0x908F,
+0x9463,
+0x9460,
+0x9464,
+0x9768,
+0x986F,
+0x995C,
+0x9A5A,
+0x9A5B,
+0x9A57,
+0x9AD3,
+0x9AD4,
+0x9AD1,
+0x9C54,
+0x9C57,
+0x9C56,
+0x9DE5,
+0x9E9F,
+0x9EF4,
+0x56D1,
+0x58E9,
+0x652C,
+0x705E,
+0x7671,
+0x7672,
+0x77D7,
+0x7F50,
+0x7F88,
+0x8836,
+0x8839,
+0x8862,
+0x8B93,
+0x8B92,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8B96,
+0x8277,
+0x8D1B,
+0x91C0,
+0x946A,
+0x9742,
+0x9748,
+0x9744,
+0x97C6,
+0x9870,
+0x9A5F,
+0x9B22,
+0x9B58,
+0x9C5F,
+0x9DF9,
+0x9DFA,
+0x9E7C,
+0x9E7D,
+0x9F07,
+0x9F77,
+0x9F72,
+0x5EF3,
+0x6B16,
+0x7063,
+0x7C6C,
+0x7C6E,
+0x883B,
+0x89C0,
+0x8EA1,
+0x91C1,
+0x9472,
+0x9470,
+0x9871,
+0x995E,
+0x9AD6,
+0x9B23,
+0x9ECC,
+0x7064,
+0x77DA,
+0x8B9A,
+0x9477,
+0x97C9,
+0x9A62,
+0x9A65,
+0x7E9C,
+0x8B9C,
+0x8EAA,
+0x91C5,
+0x947D,
+0x947E,
+0x947C,
+0x9C77,
+0x9C78,
+0x9EF7,
+0x8C54,
+0x947F,
+0x9E1A,
+0x7228,
+0x9A6A,
+0x9B31,
+0x9E1B,
+0x9E1E,
+0x7C72,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x30FE,
+0x309D,
+0x309E,
+0x3005,
+0x3041,
+0x3042,
+0x3043,
+0x3044,
+0x3045,
+0x3046,
+0x3047,
+0x3048,
+0x3049,
+0x304A,
+0x304B,
+0x304C,
+0x304D,
+0x304E,
+0x304F,
+0x3050,
+0x3051,
+0x3052,
+0x3053,
+0x3054,
+0x3055,
+0x3056,
+0x3057,
+0x3058,
+0x3059,
+0x305A,
+0x305B,
+0x305C,
+0x305D,
+0x305E,
+0x305F,
+0x3060,
+0x3061,
+0x3062,
+0x3063,
+0x3064,
+0x3065,
+0x3066,
+0x3067,
+0x3068,
+0x3069,
+0x306A,
+0x306B,
+0x306C,
+0x306D,
+0x306E,
+0x306F,
+0x3070,
+0x3071,
+0x3072,
+0x3073,
+0x3074,
+0x3075,
+0x3076,
+0x3077,
+0x3078,
+0x3079,
+0x307A,
+0x307B,
+0x307C,
+0x307D,
+0x307E,
+0x307F,
+0x3080,
+0x3081,
+0x3082,
+0x3083,
+0x3084,
+0x3085,
+0x3086,
+0x3087,
+0x3088,
+0x3089,
+0x308A,
+0x308B,
+0x308C,
+0x308D,
+0x308E,
+0x308F,
+0x3090,
+0x3091,
+0x3092,
+0x3093,
+0x30A1,
+0x30A2,
+0x30A3,
+0x30A4,
+0x30A5,
+0x30A6,
+0x30A7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x30A8,
+0x30A9,
+0x30AA,
+0x30AB,
+0x30AC,
+0x30AD,
+0x30AE,
+0x30AF,
+0x30B0,
+0x30B1,
+0x30B2,
+0x30B3,
+0x30B4,
+0x30B5,
+0x30B6,
+0x30B7,
+0x30B8,
+0x30B9,
+0x30BA,
+0x30BB,
+0x30BC,
+0x30BD,
+0x30BE,
+0x30BF,
+0x30C0,
+0x30C1,
+0x30C2,
+0x30C3,
+0x30C4,
+0x30C5,
+0x30C6,
+0x30C7,
+0x30C8,
+0x30C9,
+0x30CA,
+0x30CB,
+0x30CC,
+0x30CD,
+0x30CE,
+0x30CF,
+0x30D0,
+0x30D1,
+0x30D2,
+0x30D3,
+0x30D4,
+0x30D5,
+0x30D6,
+0x30D7,
+0x30D8,
+0x30D9,
+0x30DA,
+0x30DB,
+0x30DC,
+0x30DD,
+0x30DE,
+0x30DF,
+0x30E0,
+0x30E1,
+0x30E2,
+0x30E3,
+0x30E4,
+0x30E5,
+0x30E6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x30E7,
+0x30E8,
+0x30E9,
+0x30EA,
+0x30EB,
+0x30EC,
+0x30ED,
+0x30EE,
+0x30EF,
+0x30F0,
+0x30F1,
+0x30F2,
+0x30F3,
+0x30F4,
+0x30F5,
+0x30F6,
+0x0414,
+0x0415,
+0x0401,
+0x0416,
+0x0417,
+0x0418,
+0x0419,
+0x041A,
+0x041B,
+0x041C,
+0x0423,
+0x0424,
+0x0425,
+0x0426,
+0x0427,
+0x0428,
+0x0429,
+0x042A,
+0x042B,
+0x042C,
+0x042D,
+0x042E,
+0x042F,
+0x0430,
+0x0431,
+0x0432,
+0x0433,
+0x0434,
+0x0435,
+0x0451,
+0x0436,
+0x0437,
+0x0438,
+0x0439,
+0x043A,
+0x043B,
+0x043C,
+0x043D,
+0x043E,
+0x043F,
+0x0440,
+0x0441,
+0x0442,
+0x0443,
+0x0444,
+0x0445,
+0x0446,
+0x0447,
+0x0448,
+0x0449,
+0x044A,
+0x044B,
+0x044C,
+0x044D,
+0x044E,
+0x044F,
+0x2460,
+0x2461,
+0x2462,
+0x2463,
+0x2464,
+0x2465,
+0x2466,
+0x2467,
+0x2468,
+0x2469,
+0x2474,
+0x2475,
+0x2476,
+0x2477,
+0x2478,
+0x2479,
+0x247A,
+0x247B,
+0x247C,
+0x247D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4E42,
+0x4E5C,
+0x51F5,
+0x531A,
+0x5382,
+0x4E07,
+0x4E0C,
+0x4E47,
+0x4E8D,
+0x56D7,
+0xFA0C,
+0x5C6E,
+0x5F73,
+0x4E0F,
+0x5187,
+0x4E0E,
+0x4E2E,
+0x4E93,
+0x4EC2,
+0x4EC9,
+0x4EC8,
+0x5198,
+0x52FC,
+0x536C,
+0x53B9,
+0x5720,
+0x5903,
+0x592C,
+0x5C10,
+0x5DFF,
+0x65E1,
+0x6BB3,
+0x6BCC,
+0x6C14,
+0x723F,
+0x4E31,
+0x4E3C,
+0x4EE8,
+0x4EDC,
+0x4EE9,
+0x4EE1,
+0x4EDD,
+0x4EDA,
+0x520C,
+0x531C,
+0x534C,
+0x5722,
+0x5723,
+0x5917,
+0x592F,
+0x5B81,
+0x5B84,
+0x5C12,
+0x5C3B,
+0x5C74,
+0x5C73,
+0x5E04,
+0x5E80,
+0x5E82,
+0x5FC9,
+0x6209,
+0x6250,
+0x6C15,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6C36,
+0x6C43,
+0x6C3F,
+0x6C3B,
+0x72AE,
+0x72B0,
+0x738A,
+0x79B8,
+0x808A,
+0x961E,
+0x4F0E,
+0x4F18,
+0x4F2C,
+0x4EF5,
+0x4F14,
+0x4EF1,
+0x4F00,
+0x4EF7,
+0x4F08,
+0x4F1D,
+0x4F02,
+0x4F05,
+0x4F22,
+0x4F13,
+0x4F04,
+0x4EF4,
+0x4F12,
+0x51B1,
+0x5213,
+0x5209,
+0x5210,
+0x52A6,
+0x5322,
+0x531F,
+0x534D,
+0x538A,
+0x5407,
+0x56E1,
+0x56DF,
+0x572E,
+0x572A,
+0x5734,
+0x593C,
+0x5980,
+0x597C,
+0x5985,
+0x597B,
+0x597E,
+0x5977,
+0x597F,
+0x5B56,
+0x5C15,
+0x5C25,
+0x5C7C,
+0x5C7A,
+0x5C7B,
+0x5C7E,
+0x5DDF,
+0x5E75,
+0x5E84,
+0x5F02,
+0x5F1A,
+0x5F74,
+0x5FD5,
+0x5FD4,
+0x5FCF,
+0x625C,
+0x625E,
+0x6264,
+0x6261,
+0x6266,
+0x6262,
+0x6259,
+0x6260,
+0x625A,
+0x6265,
+0x65EF,
+0x65EE,
+0x673E,
+0x6739,
+0x6738,
+0x673B,
+0x673A,
+0x673F,
+0x673C,
+0x6733,
+0x6C18,
+0x6C46,
+0x6C52,
+0x6C5C,
+0x6C4F,
+0x6C4A,
+0x6C54,
+0x6C4B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6C4C,
+0x7071,
+0x725E,
+0x72B4,
+0x72B5,
+0x738E,
+0x752A,
+0x767F,
+0x7A75,
+0x7F51,
+0x8278,
+0x827C,
+0x8280,
+0x827D,
+0x827F,
+0x864D,
+0x897E,
+0x9099,
+0x9097,
+0x9098,
+0x909B,
+0x9094,
+0x9622,
+0x9624,
+0x9620,
+0x9623,
+0x4F56,
+0x4F3B,
+0x4F62,
+0x4F49,
+0x4F53,
+0x4F64,
+0x4F3E,
+0x4F67,
+0x4F52,
+0x4F5F,
+0x4F41,
+0x4F58,
+0x4F2D,
+0x4F33,
+0x4F3F,
+0x4F61,
+0x518F,
+0x51B9,
+0x521C,
+0x521E,
+0x5221,
+0x52AD,
+0x52AE,
+0x5309,
+0x5363,
+0x5372,
+0x538E,
+0x538F,
+0x5430,
+0x5437,
+0x542A,
+0x5454,
+0x5445,
+0x5419,
+0x541C,
+0x5425,
+0x5418,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x543D,
+0x544F,
+0x5441,
+0x5428,
+0x5424,
+0x5447,
+0x56EE,
+0x56E7,
+0x56E5,
+0x5741,
+0x5745,
+0x574C,
+0x5749,
+0x574B,
+0x5752,
+0x5906,
+0x5940,
+0x59A6,
+0x5998,
+0x59A0,
+0x5997,
+0x598E,
+0x59A2,
+0x5990,
+0x598F,
+0x59A7,
+0x59A1,
+0x5B8E,
+0x5B92,
+0x5C28,
+0x5C2A,
+0x5C8D,
+0x5C8F,
+0x5C88,
+0x5C8B,
+0x5C89,
+0x5C92,
+0x5C8A,
+0x5C86,
+0x5C93,
+0x5C95,
+0x5DE0,
+0x5E0A,
+0x5E0E,
+0x5E8B,
+0x5E89,
+0x5E8C,
+0x5E88,
+0x5E8D,
+0x5F05,
+0x5F1D,
+0x5F78,
+0x5F76,
+0x5FD2,
+0x5FD1,
+0x5FD0,
+0x5FED,
+0x5FE8,
+0x5FEE,
+0x5FF3,
+0x5FE1,
+0x5FE4,
+0x5FE3,
+0x5FFA,
+0x5FEF,
+0x5FF7,
+0x5FFB,
+0x6000,
+0x5FF4,
+0x623A,
+0x6283,
+0x628C,
+0x628E,
+0x628F,
+0x6294,
+0x6287,
+0x6271,
+0x627B,
+0x627A,
+0x6270,
+0x6281,
+0x6288,
+0x6277,
+0x627D,
+0x6272,
+0x6274,
+0x6537,
+0x65F0,
+0x65F4,
+0x65F3,
+0x65F2,
+0x65F5,
+0x6745,
+0x6747,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6759,
+0x6755,
+0x674C,
+0x6748,
+0x675D,
+0x674D,
+0x675A,
+0x674B,
+0x6BD0,
+0x6C19,
+0x6C1A,
+0x6C78,
+0x6C67,
+0x6C6B,
+0x6C84,
+0x6C8B,
+0x6C8F,
+0x6C71,
+0x6C6F,
+0x6C69,
+0x6C9A,
+0x6C6D,
+0x6C87,
+0x6C95,
+0x6C9C,
+0x6C66,
+0x6C73,
+0x6C65,
+0x6C7B,
+0x6C8E,
+0x7074,
+0x707A,
+0x7263,
+0x72BF,
+0x72BD,
+0x72C3,
+0x72C6,
+0x72C1,
+0x72BA,
+0x72C5,
+0x7395,
+0x7397,
+0x7393,
+0x7394,
+0x7392,
+0x753A,
+0x7539,
+0x7594,
+0x7595,
+0x7681,
+0x793D,
+0x8034,
+0x8095,
+0x8099,
+0x8090,
+0x8092,
+0x809C,
+0x8290,
+0x828F,
+0x8285,
+0x828E,
+0x8291,
+0x8293,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x828A,
+0x8283,
+0x8284,
+0x8C78,
+0x8FC9,
+0x8FBF,
+0x909F,
+0x90A1,
+0x90A5,
+0x909E,
+0x90A7,
+0x90A0,
+0x9630,
+0x9628,
+0x962F,
+0x962D,
+0x4E33,
+0x4F98,
+0x4F7C,
+0x4F85,
+0x4F7D,
+0x4F80,
+0x4F87,
+0x4F76,
+0x4F74,
+0x4F89,
+0x4F84,
+0x4F77,
+0x4F4C,
+0x4F97,
+0x4F6A,
+0x4F9A,
+0x4F79,
+0x4F81,
+0x4F78,
+0x4F90,
+0x4F9C,
+0x4F94,
+0x4F9E,
+0x4F92,
+0x4F82,
+0x4F95,
+0x4F6B,
+0x4F6E,
+0x519E,
+0x51BC,
+0x51BE,
+0x5235,
+0x5232,
+0x5233,
+0x5246,
+0x5231,
+0x52BC,
+0x530A,
+0x530B,
+0x533C,
+0x5392,
+0x5394,
+0x5487,
+0x547F,
+0x5481,
+0x5491,
+0x5482,
+0x5488,
+0x546B,
+0x547A,
+0x547E,
+0x5465,
+0x546C,
+0x5474,
+0x5466,
+0x548D,
+0x546F,
+0x5461,
+0x5460,
+0x5498,
+0x5463,
+0x5467,
+0x5464,
+0x56F7,
+0x56F9,
+0x576F,
+0x5772,
+0x576D,
+0x576B,
+0x5771,
+0x5770,
+0x5776,
+0x5780,
+0x5775,
+0x577B,
+0x5773,
+0x5774,
+0x5762,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5768,
+0x577D,
+0x590C,
+0x5945,
+0x59B5,
+0x59BA,
+0x59CF,
+0x59CE,
+0x59B2,
+0x59CC,
+0x59C1,
+0x59B6,
+0x59BC,
+0x59C3,
+0x59D6,
+0x59B1,
+0x59BD,
+0x59C0,
+0x59C8,
+0x59B4,
+0x59C7,
+0x5B62,
+0x5B65,
+0x5B93,
+0x5B95,
+0x5C44,
+0x5C47,
+0x5CAE,
+0x5CA4,
+0x5CA0,
+0x5CB5,
+0x5CAF,
+0x5CA8,
+0x5CAC,
+0x5C9F,
+0x5CA3,
+0x5CAD,
+0x5CA2,
+0x5CAA,
+0x5CA7,
+0x5C9D,
+0x5CA5,
+0x5CB6,
+0x5CB0,
+0x5CA6,
+0x5E17,
+0x5E14,
+0x5E19,
+0x5F28,
+0x5F22,
+0x5F23,
+0x5F24,
+0x5F54,
+0x5F82,
+0x5F7E,
+0x5F7D,
+0x5FDE,
+0x5FE5,
+0x602D,
+0x6026,
+0x6019,
+0x6032,
+0x600B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6034,
+0x600A,
+0x6017,
+0x6033,
+0x601A,
+0x601E,
+0x602C,
+0x6022,
+0x600D,
+0x6010,
+0x602E,
+0x6013,
+0x6011,
+0x600C,
+0x6009,
+0x601C,
+0x6214,
+0x623D,
+0x62AD,
+0x62B4,
+0x62D1,
+0x62BE,
+0x62AA,
+0x62B6,
+0x62CA,
+0x62AE,
+0x62B3,
+0x62AF,
+0x62BB,
+0x62A9,
+0x62B0,
+0x62B8,
+0x653D,
+0x65A8,
+0x65BB,
+0x6609,
+0x65FC,
+0x6604,
+0x6612,
+0x6608,
+0x65FB,
+0x6603,
+0x660B,
+0x660D,
+0x6605,
+0x65FD,
+0x6611,
+0x6610,
+0x66F6,
+0x670A,
+0x6785,
+0x676C,
+0x678E,
+0x6792,
+0x6776,
+0x677B,
+0x6798,
+0x6786,
+0x6784,
+0x6774,
+0x678D,
+0x678C,
+0x677A,
+0x679F,
+0x6791,
+0x6799,
+0x6783,
+0x677D,
+0x6781,
+0x6778,
+0x6779,
+0x6794,
+0x6B25,
+0x6B80,
+0x6B7E,
+0x6BDE,
+0x6C1D,
+0x6C93,
+0x6CEC,
+0x6CEB,
+0x6CEE,
+0x6CD9,
+0x6CB6,
+0x6CD4,
+0x6CAD,
+0x6CE7,
+0x6CB7,
+0x6CD0,
+0x6CC2,
+0x6CBA,
+0x6CC3,
+0x6CC6,
+0x6CED,
+0x6CF2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6CD2,
+0x6CDD,
+0x6CB4,
+0x6C8A,
+0x6C9D,
+0x6C80,
+0x6CDE,
+0x6CC0,
+0x6D30,
+0x6CCD,
+0x6CC7,
+0x6CB0,
+0x6CF9,
+0x6CCF,
+0x6CE9,
+0x6CD1,
+0x7094,
+0x7098,
+0x7085,
+0x7093,
+0x7086,
+0x7084,
+0x7091,
+0x7096,
+0x7082,
+0x709A,
+0x7083,
+0x726A,
+0x72D6,
+0x72CB,
+0x72D8,
+0x72C9,
+0x72DC,
+0x72D2,
+0x72D4,
+0x72DA,
+0x72CC,
+0x72D1,
+0x73A4,
+0x73A1,
+0x73AD,
+0x73A6,
+0x73A2,
+0x73A0,
+0x73AC,
+0x739D,
+0x74DD,
+0x74E8,
+0x753F,
+0x7540,
+0x753E,
+0x758C,
+0x7598,
+0x76AF,
+0x76F3,
+0x76F1,
+0x76F0,
+0x76F5,
+0x77F8,
+0x77FC,
+0x77F9,
+0x77FB,
+0x77FA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x77F7,
+0x7942,
+0x793F,
+0x79C5,
+0x7A78,
+0x7A7B,
+0x7AFB,
+0x7C75,
+0x7CFD,
+0x8035,
+0x808F,
+0x80AE,
+0x80A3,
+0x80B8,
+0x80B5,
+0x80AD,
+0x8220,
+0x82A0,
+0x82C0,
+0x82AB,
+0x829A,
+0x8298,
+0x829B,
+0x82B5,
+0x82A7,
+0x82AE,
+0x82BC,
+0x829E,
+0x82BA,
+0x82B4,
+0x82A8,
+0x82A1,
+0x82A9,
+0x82C2,
+0x82A4,
+0x82C3,
+0x82B6,
+0x82A2,
+0x8670,
+0x866F,
+0x866D,
+0x866E,
+0x8C56,
+0x8FD2,
+0x8FCB,
+0x8FD3,
+0x8FCD,
+0x8FD6,
+0x8FD5,
+0x8FD7,
+0x90B2,
+0x90B4,
+0x90AF,
+0x90B3,
+0x90B0,
+0x9639,
+0x963D,
+0x963C,
+0x963A,
+0x9643,
+0x4FCD,
+0x4FC5,
+0x4FD3,
+0x4FB2,
+0x4FC9,
+0x4FCB,
+0x4FC1,
+0x4FD4,
+0x4FDC,
+0x4FD9,
+0x4FBB,
+0x4FB3,
+0x4FDB,
+0x4FC7,
+0x4FD6,
+0x4FBA,
+0x4FC0,
+0x4FB9,
+0x4FEC,
+0x5244,
+0x5249,
+0x52C0,
+0x52C2,
+0x533D,
+0x537C,
+0x5397,
+0x5396,
+0x5399,
+0x5398,
+0x54BA,
+0x54A1,
+0x54AD,
+0x54A5,
+0x54CF,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x54C3,
+0x830D,
+0x54B7,
+0x54AE,
+0x54D6,
+0x54B6,
+0x54C5,
+0x54C6,
+0x54A0,
+0x5470,
+0x54BC,
+0x54A2,
+0x54BE,
+0x5472,
+0x54DE,
+0x54B0,
+0x57B5,
+0x579E,
+0x579F,
+0x57A4,
+0x578C,
+0x5797,
+0x579D,
+0x579B,
+0x5794,
+0x5798,
+0x578F,
+0x5799,
+0x57A5,
+0x579A,
+0x5795,
+0x58F4,
+0x590D,
+0x5953,
+0x59E1,
+0x59DE,
+0x59EE,
+0x5A00,
+0x59F1,
+0x59DD,
+0x59FA,
+0x59FD,
+0x59FC,
+0x59F6,
+0x59E4,
+0x59F2,
+0x59F7,
+0x59DB,
+0x59E9,
+0x59F3,
+0x59F5,
+0x59E0,
+0x59FE,
+0x59F4,
+0x59ED,
+0x5BA8,
+0x5C4C,
+0x5CD0,
+0x5CD8,
+0x5CCC,
+0x5CD7,
+0x5CCB,
+0x5CDB,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5CDE,
+0x5CDA,
+0x5CC9,
+0x5CC7,
+0x5CCA,
+0x5CD6,
+0x5CD3,
+0x5CD4,
+0x5CCF,
+0x5CC8,
+0x5CC6,
+0x5CCE,
+0x5CDF,
+0x5CF8,
+0x5DF9,
+0x5E21,
+0x5E22,
+0x5E23,
+0x5E20,
+0x5E24,
+0x5EB0,
+0x5EA4,
+0x5EA2,
+0x5E9B,
+0x5EA3,
+0x5EA5,
+0x5F07,
+0x5F2E,
+0x5F56,
+0x5F86,
+0x6037,
+0x6039,
+0x6054,
+0x6072,
+0x605E,
+0x6045,
+0x6053,
+0x6047,
+0x6049,
+0x605B,
+0x604C,
+0x6040,
+0x6042,
+0x605F,
+0x6024,
+0x6044,
+0x6058,
+0x6066,
+0x606E,
+0x6242,
+0x6243,
+0x62CF,
+0x630D,
+0x630B,
+0x62F5,
+0x630E,
+0x6303,
+0x62EB,
+0x62F9,
+0x630F,
+0x630C,
+0x62F8,
+0x62F6,
+0x6300,
+0x6313,
+0x6314,
+0x62FA,
+0x6315,
+0x62FB,
+0x62F0,
+0x6541,
+0x6543,
+0x65AA,
+0x65BF,
+0x6636,
+0x6621,
+0x6632,
+0x6635,
+0x661C,
+0x6626,
+0x6622,
+0x6633,
+0x662B,
+0x663A,
+0x661D,
+0x6634,
+0x6639,
+0x662E,
+0x670F,
+0x6710,
+0x67C1,
+0x67F2,
+0x67C8,
+0x67BA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x67DC,
+0x67BB,
+0x67F8,
+0x67D8,
+0x67C0,
+0x67B7,
+0x67C5,
+0x67EB,
+0x67E4,
+0x67DF,
+0x67B5,
+0x67CD,
+0x67B3,
+0x67F7,
+0x67F6,
+0x67EE,
+0x67E3,
+0x67C2,
+0x67B9,
+0x67CE,
+0x67E7,
+0x67F0,
+0x67B2,
+0x67FC,
+0x67C6,
+0x67ED,
+0x67CC,
+0x67AE,
+0x67E6,
+0x67DB,
+0x67FA,
+0x67C9,
+0x67CA,
+0x67C3,
+0x67EA,
+0x67CB,
+0x6B28,
+0x6B82,
+0x6B84,
+0x6BB6,
+0x6BD6,
+0x6BD8,
+0x6BE0,
+0x6C20,
+0x6C21,
+0x6D28,
+0x6D34,
+0x6D2D,
+0x6D1F,
+0x6D3C,
+0x6D3F,
+0x6D12,
+0x6D0A,
+0x6CDA,
+0x6D33,
+0x6D04,
+0x6D19,
+0x6D3A,
+0x6D1A,
+0x6D11,
+0x6D00,
+0x6D1D,
+0x6D42,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6D01,
+0x6D18,
+0x6D37,
+0x6D03,
+0x6D0F,
+0x6D40,
+0x6D07,
+0x6D20,
+0x6D2C,
+0x6D08,
+0x6D22,
+0x6D09,
+0x6D10,
+0x70B7,
+0x709F,
+0x70BE,
+0x70B1,
+0x70B0,
+0x70A1,
+0x70B4,
+0x70B5,
+0x70A9,
+0x7241,
+0x7249,
+0x724A,
+0x726C,
+0x7270,
+0x7273,
+0x726E,
+0x72CA,
+0x72E4,
+0x72E8,
+0x72EB,
+0x72DF,
+0x72EA,
+0x72E6,
+0x72E3,
+0x7385,
+0x73CC,
+0x73C2,
+0x73C8,
+0x73C5,
+0x73B9,
+0x73B6,
+0x73B5,
+0x73B4,
+0x73EB,
+0x73BF,
+0x73C7,
+0x73BE,
+0x73C3,
+0x73C6,
+0x73B8,
+0x73CB,
+0x74EC,
+0x74EE,
+0x752E,
+0x7547,
+0x7548,
+0x75A7,
+0x75AA,
+0x7679,
+0x76C4,
+0x7708,
+0x7703,
+0x7704,
+0x7705,
+0x770A,
+0x76F7,
+0x76FB,
+0x76FA,
+0x77E7,
+0x77E8,
+0x7806,
+0x7811,
+0x7812,
+0x7805,
+0x7810,
+0x780F,
+0x780E,
+0x7809,
+0x7803,
+0x7813,
+0x794A,
+0x794C,
+0x794B,
+0x7945,
+0x7944,
+0x79D5,
+0x79CD,
+0x79CF,
+0x79D6,
+0x79CE,
+0x7A80,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7A7E,
+0x7AD1,
+0x7B00,
+0x7B01,
+0x7C7A,
+0x7C78,
+0x7C79,
+0x7C7F,
+0x7C80,
+0x7C81,
+0x7D03,
+0x7D08,
+0x7D01,
+0x7F58,
+0x7F91,
+0x7F8D,
+0x7FBE,
+0x8007,
+0x800E,
+0x800F,
+0x8014,
+0x8037,
+0x80D8,
+0x80C7,
+0x80E0,
+0x80D1,
+0x80C8,
+0x80C2,
+0x80D0,
+0x80C5,
+0x80E3,
+0x80D9,
+0x80DC,
+0x80CA,
+0x80D5,
+0x80C9,
+0x80CF,
+0x80D7,
+0x80E6,
+0x80CD,
+0x81FF,
+0x8221,
+0x8294,
+0x82D9,
+0x82FE,
+0x82F9,
+0x8307,
+0x82E8,
+0x8300,
+0x82D5,
+0x833A,
+0x82EB,
+0x82D6,
+0x82F4,
+0x82EC,
+0x82E1,
+0x82F2,
+0x82F5,
+0x830C,
+0x82FB,
+0x82F6,
+0x82F0,
+0x82EA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x82E4,
+0x82E0,
+0x82FA,
+0x82F3,
+0x82ED,
+0x8677,
+0x8674,
+0x867C,
+0x8673,
+0x8841,
+0x884E,
+0x8867,
+0x886A,
+0x8869,
+0x89D3,
+0x8A04,
+0x8A07,
+0x8D72,
+0x8FE3,
+0x8FE1,
+0x8FEE,
+0x8FE0,
+0x90F1,
+0x90BD,
+0x90BF,
+0x90D5,
+0x90C5,
+0x90BE,
+0x90C7,
+0x90CB,
+0x90C8,
+0x91D4,
+0x91D3,
+0x9654,
+0x964F,
+0x9651,
+0x9653,
+0x964A,
+0x964E,
+0x501E,
+0x5005,
+0x5007,
+0x5013,
+0x5022,
+0x5030,
+0x501B,
+0x4FF5,
+0x4FF4,
+0x5033,
+0x5037,
+0x502C,
+0x4FF6,
+0x4FF7,
+0x5017,
+0x501C,
+0x5020,
+0x5027,
+0x5035,
+0x502F,
+0x5031,
+0x500E,
+0x515A,
+0x5194,
+0x5193,
+0x51CA,
+0x51C4,
+0x51C5,
+0x51C8,
+0x51CE,
+0x5261,
+0x525A,
+0x5252,
+0x525E,
+0x525F,
+0x5255,
+0x5262,
+0x52CD,
+0x530E,
+0x539E,
+0x5526,
+0x54E2,
+0x5517,
+0x5512,
+0x54E7,
+0x54F3,
+0x54E4,
+0x551A,
+0x54FF,
+0x5504,
+0x5508,
+0x54EB,
+0x5511,
+0x5505,
+0x54F1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x550A,
+0x54FB,
+0x54F7,
+0x54F8,
+0x54E0,
+0x550E,
+0x5503,
+0x550B,
+0x5701,
+0x5702,
+0x57CC,
+0x5832,
+0x57D5,
+0x57D2,
+0x57BA,
+0x57C6,
+0x57BD,
+0x57BC,
+0x57B8,
+0x57B6,
+0x57BF,
+0x57C7,
+0x57D0,
+0x57B9,
+0x57C1,
+0x590E,
+0x594A,
+0x5A19,
+0x5A16,
+0x5A2D,
+0x5A2E,
+0x5A15,
+0x5A0F,
+0x5A17,
+0x5A0A,
+0x5A1E,
+0x5A33,
+0x5B6C,
+0x5BA7,
+0x5BAD,
+0x5BAC,
+0x5C03,
+0x5C56,
+0x5C54,
+0x5CEC,
+0x5CFF,
+0x5CEE,
+0x5CF1,
+0x5CF7,
+0x5D00,
+0x5CF9,
+0x5E29,
+0x5E28,
+0x5EA8,
+0x5EAE,
+0x5EAA,
+0x5EAC,
+0x5F33,
+0x5F30,
+0x5F67,
+0x605D,
+0x605A,
+0x6067,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6041,
+0x60A2,
+0x6088,
+0x6080,
+0x6092,
+0x6081,
+0x609D,
+0x6083,
+0x6095,
+0x609B,
+0x6097,
+0x6087,
+0x609C,
+0x608E,
+0x6219,
+0x6246,
+0x62F2,
+0x6310,
+0x6356,
+0x632C,
+0x6344,
+0x6345,
+0x6336,
+0x6343,
+0x63E4,
+0x6339,
+0x634B,
+0x634A,
+0x633C,
+0x6329,
+0x6341,
+0x6334,
+0x6358,
+0x6354,
+0x6359,
+0x632D,
+0x6347,
+0x6333,
+0x635A,
+0x6351,
+0x6338,
+0x6357,
+0x6340,
+0x6348,
+0x654A,
+0x6546,
+0x65C6,
+0x65C3,
+0x65C4,
+0x65C2,
+0x664A,
+0x665F,
+0x6647,
+0x6651,
+0x6712,
+0x6713,
+0x681F,
+0x681A,
+0x6849,
+0x6832,
+0x6833,
+0x683B,
+0x684B,
+0x684F,
+0x6816,
+0x6831,
+0x681C,
+0x6835,
+0x682B,
+0x682D,
+0x682F,
+0x684E,
+0x6844,
+0x6834,
+0x681D,
+0x6812,
+0x6814,
+0x6826,
+0x6828,
+0x682E,
+0x684D,
+0x683A,
+0x6825,
+0x6820,
+0x6B2C,
+0x6B2F,
+0x6B2D,
+0x6B31,
+0x6B34,
+0x6B6D,
+0x8082,
+0x6B88,
+0x6BE6,
+0x6BE4,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6BE8,
+0x6BE3,
+0x6BE2,
+0x6BE7,
+0x6C25,
+0x6D7A,
+0x6D63,
+0x6D64,
+0x6D76,
+0x6D0D,
+0x6D61,
+0x6D92,
+0x6D58,
+0x6D62,
+0x6D6D,
+0x6D6F,
+0x6D91,
+0x6D8D,
+0x6DEF,
+0x6D7F,
+0x6D86,
+0x6D5E,
+0x6D67,
+0x6D60,
+0x6D97,
+0x6D70,
+0x6D7C,
+0x6D5F,
+0x6D82,
+0x6D98,
+0x6D2F,
+0x6D68,
+0x6D8B,
+0x6D7E,
+0x6D80,
+0x6D84,
+0x6D16,
+0x6D83,
+0x6D7B,
+0x6D7D,
+0x6D75,
+0x6D90,
+0x70DC,
+0x70D3,
+0x70D1,
+0x70DD,
+0x70CB,
+0x7F39,
+0x70E2,
+0x70D7,
+0x70D2,
+0x70DE,
+0x70E0,
+0x70D4,
+0x70CD,
+0x70C5,
+0x70C6,
+0x70C7,
+0x70DA,
+0x70CE,
+0x70E1,
+0x7242,
+0x7278,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7277,
+0x7276,
+0x7300,
+0x72FA,
+0x72F4,
+0x72FE,
+0x72F6,
+0x72F3,
+0x72FB,
+0x7301,
+0x73D3,
+0x73D9,
+0x73E5,
+0x73D6,
+0x73BC,
+0x73E7,
+0x73E3,
+0x73E9,
+0x73DC,
+0x73D2,
+0x73DB,
+0x73D4,
+0x73DD,
+0x73DA,
+0x73D7,
+0x73D8,
+0x73E8,
+0x74DE,
+0x74DF,
+0x74F4,
+0x74F5,
+0x7521,
+0x755B,
+0x755F,
+0x75B0,
+0x75C1,
+0x75BB,
+0x75C4,
+0x75C0,
+0x75BF,
+0x75B6,
+0x75BA,
+0x768A,
+0x76C9,
+0x771D,
+0x771B,
+0x7710,
+0x7713,
+0x7712,
+0x7723,
+0x7711,
+0x7715,
+0x7719,
+0x771A,
+0x7722,
+0x7727,
+0x7823,
+0x782C,
+0x7822,
+0x7835,
+0x782F,
+0x7828,
+0x782E,
+0x782B,
+0x7821,
+0x7829,
+0x7833,
+0x782A,
+0x7831,
+0x7954,
+0x795B,
+0x794F,
+0x795C,
+0x7953,
+0x7952,
+0x7951,
+0x79EB,
+0x79EC,
+0x79E0,
+0x79EE,
+0x79ED,
+0x79EA,
+0x79DC,
+0x79DE,
+0x79DD,
+0x7A86,
+0x7A89,
+0x7A85,
+0x7A8B,
+0x7A8C,
+0x7A8A,
+0x7A87,
+0x7AD8,
+0x7B10,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7B04,
+0x7B13,
+0x7B05,
+0x7B0F,
+0x7B08,
+0x7B0A,
+0x7B0E,
+0x7B09,
+0x7B12,
+0x7C84,
+0x7C91,
+0x7C8A,
+0x7C8C,
+0x7C88,
+0x7C8D,
+0x7C85,
+0x7D1E,
+0x7D1D,
+0x7D11,
+0x7D0E,
+0x7D18,
+0x7D16,
+0x7D13,
+0x7D1F,
+0x7D12,
+0x7D0F,
+0x7D0C,
+0x7F5C,
+0x7F61,
+0x7F5E,
+0x7F60,
+0x7F5D,
+0x7F5B,
+0x7F96,
+0x7F92,
+0x7FC3,
+0x7FC2,
+0x7FC0,
+0x8016,
+0x803E,
+0x8039,
+0x80FA,
+0x80F2,
+0x80F9,
+0x80F5,
+0x8101,
+0x80FB,
+0x8100,
+0x8201,
+0x822F,
+0x8225,
+0x8333,
+0x832D,
+0x8344,
+0x8319,
+0x8351,
+0x8325,
+0x8356,
+0x833F,
+0x8341,
+0x8326,
+0x831C,
+0x8322,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8342,
+0x834E,
+0x831B,
+0x832A,
+0x8308,
+0x833C,
+0x834D,
+0x8316,
+0x8324,
+0x8320,
+0x8337,
+0x832F,
+0x8329,
+0x8347,
+0x8345,
+0x834C,
+0x8353,
+0x831E,
+0x832C,
+0x834B,
+0x8327,
+0x8348,
+0x8653,
+0x8652,
+0x86A2,
+0x86A8,
+0x8696,
+0x868D,
+0x8691,
+0x869E,
+0x8687,
+0x8697,
+0x8686,
+0x868B,
+0x869A,
+0x8685,
+0x86A5,
+0x8699,
+0x86A1,
+0x86A7,
+0x8695,
+0x8698,
+0x868E,
+0x869D,
+0x8690,
+0x8694,
+0x8843,
+0x8844,
+0x886D,
+0x8875,
+0x8876,
+0x8872,
+0x8880,
+0x8871,
+0x887F,
+0x886F,
+0x8883,
+0x887E,
+0x8874,
+0x887C,
+0x8A12,
+0x8C47,
+0x8C57,
+0x8C7B,
+0x8CA4,
+0x8CA3,
+0x8D76,
+0x8D78,
+0x8DB5,
+0x8DB7,
+0x8DB6,
+0x8ED1,
+0x8ED3,
+0x8FFE,
+0x8FF5,
+0x9002,
+0x8FFF,
+0x8FFB,
+0x9004,
+0x8FFC,
+0x8FF6,
+0x90D6,
+0x90E0,
+0x90D9,
+0x90DA,
+0x90E3,
+0x90DF,
+0x90E5,
+0x90D8,
+0x90DB,
+0x90D7,
+0x90DC,
+0x90E4,
+0x9150,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x914E,
+0x914F,
+0x91D5,
+0x91E2,
+0x91DA,
+0x965C,
+0x965F,
+0x96BC,
+0x98E3,
+0x9ADF,
+0x9B2F,
+0x4E7F,
+0x5070,
+0x506A,
+0x5061,
+0x505E,
+0x5060,
+0x5053,
+0x504B,
+0x505D,
+0x5072,
+0x5048,
+0x504D,
+0x5041,
+0x505B,
+0x504A,
+0x5062,
+0x5015,
+0x5045,
+0x505F,
+0x5069,
+0x506B,
+0x5063,
+0x5064,
+0x5046,
+0x5040,
+0x506E,
+0x5073,
+0x5057,
+0x5051,
+0x51D0,
+0x526B,
+0x526D,
+0x526C,
+0x526E,
+0x52D6,
+0x52D3,
+0x532D,
+0x539C,
+0x5575,
+0x5576,
+0x553C,
+0x554D,
+0x5550,
+0x5534,
+0x552A,
+0x5551,
+0x5562,
+0x5536,
+0x5535,
+0x5530,
+0x5552,
+0x5545,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x550C,
+0x5532,
+0x5565,
+0x554E,
+0x5539,
+0x5548,
+0x552D,
+0x553B,
+0x5540,
+0x554B,
+0x570A,
+0x5707,
+0x57FB,
+0x5814,
+0x57E2,
+0x57F6,
+0x57DC,
+0x57F4,
+0x5800,
+0x57ED,
+0x57FD,
+0x5808,
+0x57F8,
+0x580B,
+0x57F3,
+0x57CF,
+0x5807,
+0x57EE,
+0x57E3,
+0x57F2,
+0x57E5,
+0x57EC,
+0x57E1,
+0x580E,
+0x57FC,
+0x5810,
+0x57E7,
+0x5801,
+0x580C,
+0x57F1,
+0x57E9,
+0x57F0,
+0x580D,
+0x5804,
+0x595C,
+0x5A60,
+0x5A58,
+0x5A55,
+0x5A67,
+0x5A5E,
+0x5A38,
+0x5A35,
+0x5A6D,
+0x5A50,
+0x5A5F,
+0x5A65,
+0x5A6C,
+0x5A53,
+0x5A64,
+0x5A57,
+0x5A43,
+0x5A5D,
+0x5A52,
+0x5A44,
+0x5A5B,
+0x5A48,
+0x5A8E,
+0x5A3E,
+0x5A4D,
+0x5A39,
+0x5A4C,
+0x5A70,
+0x5A69,
+0x5A47,
+0x5A51,
+0x5A56,
+0x5A42,
+0x5A5C,
+0x5B72,
+0x5B6E,
+0x5BC1,
+0x5BC0,
+0x5C59,
+0x5D1E,
+0x5D0B,
+0x5D1D,
+0x5D1A,
+0x5D20,
+0x5D0C,
+0x5D28,
+0x5D0D,
+0x5D26,
+0x5D25,
+0x5D0F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5D30,
+0x5D12,
+0x5D23,
+0x5D1F,
+0x5D2E,
+0x5E3E,
+0x5E34,
+0x5EB1,
+0x5EB4,
+0x5EB9,
+0x5EB2,
+0x5EB3,
+0x5F36,
+0x5F38,
+0x5F9B,
+0x5F96,
+0x5F9F,
+0x608A,
+0x6090,
+0x6086,
+0x60BE,
+0x60B0,
+0x60BA,
+0x60D3,
+0x60D4,
+0x60CF,
+0x60E4,
+0x60D9,
+0x60DD,
+0x60C8,
+0x60B1,
+0x60DB,
+0x60B7,
+0x60CA,
+0x60BF,
+0x60C3,
+0x60CD,
+0x60C0,
+0x6332,
+0x6365,
+0x638A,
+0x6382,
+0x637D,
+0x63BD,
+0x639E,
+0x63AD,
+0x639D,
+0x6397,
+0x63AB,
+0x638E,
+0x636F,
+0x6387,
+0x6390,
+0x636E,
+0x63AF,
+0x6375,
+0x639C,
+0x636D,
+0x63AE,
+0x637C,
+0x63A4,
+0x633B,
+0x639F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6378,
+0x6385,
+0x6381,
+0x6391,
+0x638D,
+0x6370,
+0x6553,
+0x65CD,
+0x6665,
+0x6661,
+0x665B,
+0x6659,
+0x665C,
+0x6662,
+0x6718,
+0x6879,
+0x6887,
+0x6890,
+0x689C,
+0x686D,
+0x686E,
+0x68AE,
+0x68AB,
+0x6956,
+0x686F,
+0x68A3,
+0x68AC,
+0x68A9,
+0x6875,
+0x6874,
+0x68B2,
+0x688F,
+0x6877,
+0x6892,
+0x687C,
+0x686B,
+0x6872,
+0x68AA,
+0x6880,
+0x6871,
+0x687E,
+0x689B,
+0x6896,
+0x688B,
+0x68A0,
+0x6889,
+0x68A4,
+0x6878,
+0x687B,
+0x6891,
+0x688C,
+0x688A,
+0x687D,
+0x6B36,
+0x6B33,
+0x6B37,
+0x6B38,
+0x6B91,
+0x6B8F,
+0x6B8D,
+0x6B8E,
+0x6B8C,
+0x6C2A,
+0x6DC0,
+0x6DAB,
+0x6DB4,
+0x6DB3,
+0x6E74,
+0x6DAC,
+0x6DE9,
+0x6DE2,
+0x6DB7,
+0x6DF6,
+0x6DD4,
+0x6E00,
+0x6DC8,
+0x6DE0,
+0x6DDF,
+0x6DD6,
+0x6DBE,
+0x6DE5,
+0x6DDC,
+0x6DDD,
+0x6DDB,
+0x6DF4,
+0x6DCA,
+0x6DBD,
+0x6DED,
+0x6DF0,
+0x6DBA,
+0x6DD5,
+0x6DC2,
+0x6DCF,
+0x6DC9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6DD0,
+0x6DF2,
+0x6DD3,
+0x6DFD,
+0x6DD7,
+0x6DCD,
+0x6DE3,
+0x6DBB,
+0x70FA,
+0x710D,
+0x70F7,
+0x7117,
+0x70F4,
+0x710C,
+0x70F0,
+0x7104,
+0x70F3,
+0x7110,
+0x70FC,
+0x70FF,
+0x7106,
+0x7113,
+0x7100,
+0x70F8,
+0x70F6,
+0x710B,
+0x7102,
+0x710E,
+0x727E,
+0x727B,
+0x727C,
+0x727F,
+0x731D,
+0x7317,
+0x7307,
+0x7311,
+0x7318,
+0x730A,
+0x7308,
+0x72FF,
+0x730F,
+0x731E,
+0x7388,
+0x73F6,
+0x73F8,
+0x73F5,
+0x7404,
+0x7401,
+0x73FD,
+0x7407,
+0x7400,
+0x73FA,
+0x73FC,
+0x73FF,
+0x740C,
+0x740B,
+0x73F4,
+0x7408,
+0x7564,
+0x7563,
+0x75CE,
+0x75D2,
+0x75CF,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x75CB,
+0x75CC,
+0x75D1,
+0x75D0,
+0x768F,
+0x7689,
+0x76D3,
+0x7739,
+0x772F,
+0x772D,
+0x7731,
+0x7732,
+0x7734,
+0x7733,
+0x773D,
+0x7725,
+0x773B,
+0x7735,
+0x7848,
+0x7852,
+0x7849,
+0x784D,
+0x784A,
+0x784C,
+0x7826,
+0x7845,
+0x7850,
+0x7964,
+0x7967,
+0x7969,
+0x796A,
+0x7963,
+0x796B,
+0x7961,
+0x79BB,
+0x79FA,
+0x79F8,
+0x79F6,
+0x79F7,
+0x7A8F,
+0x7A94,
+0x7A90,
+0x7B35,
+0x7B47,
+0x7B34,
+0x7B25,
+0x7B30,
+0x7B22,
+0x7B24,
+0x7B33,
+0x7B18,
+0x7B2A,
+0x7B1D,
+0x7B31,
+0x7B2B,
+0x7B2D,
+0x7B2F,
+0x7B32,
+0x7B38,
+0x7B1A,
+0x7B23,
+0x7C94,
+0x7C98,
+0x7C96,
+0x7CA3,
+0x7D35,
+0x7D3D,
+0x7D38,
+0x7D36,
+0x7D3A,
+0x7D45,
+0x7D2C,
+0x7D29,
+0x7D41,
+0x7D47,
+0x7D3E,
+0x7D3F,
+0x7D4A,
+0x7D3B,
+0x7D28,
+0x7F63,
+0x7F95,
+0x7F9C,
+0x7F9D,
+0x7F9B,
+0x7FCA,
+0x7FCB,
+0x7FCD,
+0x7FD0,
+0x7FD1,
+0x7FC7,
+0x7FCF,
+0x7FC9,
+0x801F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x801E,
+0x801B,
+0x8047,
+0x8043,
+0x8048,
+0x8118,
+0x8125,
+0x8119,
+0x811B,
+0x812D,
+0x811F,
+0x812C,
+0x811E,
+0x8121,
+0x8115,
+0x8127,
+0x811D,
+0x8122,
+0x8211,
+0x8238,
+0x8233,
+0x823A,
+0x8234,
+0x8232,
+0x8274,
+0x8390,
+0x83A3,
+0x83A8,
+0x838D,
+0x837A,
+0x8373,
+0x83A4,
+0x8374,
+0x838F,
+0x8381,
+0x8395,
+0x8399,
+0x8375,
+0x8394,
+0x83A9,
+0x837D,
+0x8383,
+0x838C,
+0x839D,
+0x839B,
+0x83AA,
+0x838B,
+0x837E,
+0x83A5,
+0x83AF,
+0x8388,
+0x8397,
+0x83B0,
+0x837F,
+0x83A6,
+0x8387,
+0x83AE,
+0x8376,
+0x839A,
+0x8659,
+0x8656,
+0x86BF,
+0x86B7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x86C2,
+0x86C1,
+0x86C5,
+0x86BA,
+0x86B0,
+0x86C8,
+0x86B9,
+0x86B3,
+0x86B8,
+0x86CC,
+0x86B4,
+0x86BB,
+0x86BC,
+0x86C3,
+0x86BD,
+0x86BE,
+0x8852,
+0x8889,
+0x8895,
+0x88A8,
+0x88A2,
+0x88AA,
+0x889A,
+0x8891,
+0x88A1,
+0x889F,
+0x8898,
+0x88A7,
+0x8899,
+0x889B,
+0x8897,
+0x88A4,
+0x88AC,
+0x888C,
+0x8893,
+0x888E,
+0x8982,
+0x89D6,
+0x89D9,
+0x89D5,
+0x8A30,
+0x8A27,
+0x8A2C,
+0x8A1E,
+0x8C39,
+0x8C3B,
+0x8C5C,
+0x8C5D,
+0x8C7D,
+0x8CA5,
+0x8D7D,
+0x8D7B,
+0x8D79,
+0x8DBC,
+0x8DC2,
+0x8DB9,
+0x8DBF,
+0x8DC1,
+0x8ED8,
+0x8EDE,
+0x8EDD,
+0x8EDC,
+0x8ED7,
+0x8EE0,
+0x8EE1,
+0x9024,
+0x900B,
+0x9011,
+0x901C,
+0x900C,
+0x9021,
+0x90EF,
+0x90EA,
+0x90F0,
+0x90F4,
+0x90F2,
+0x90F3,
+0x90D4,
+0x90EB,
+0x90EC,
+0x90E9,
+0x9156,
+0x9158,
+0x915A,
+0x9153,
+0x9155,
+0x91EC,
+0x91F4,
+0x91F1,
+0x91F3,
+0x91F8,
+0x91E4,
+0x91F9,
+0x91EA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x91EB,
+0x91F7,
+0x91E8,
+0x91EE,
+0x957A,
+0x9586,
+0x9588,
+0x967C,
+0x966D,
+0x966B,
+0x9671,
+0x966F,
+0x96BF,
+0x976A,
+0x9804,
+0x98E5,
+0x9997,
+0x509B,
+0x5095,
+0x5094,
+0x509E,
+0x508B,
+0x50A3,
+0x5083,
+0x508C,
+0x508E,
+0x509D,
+0x5068,
+0x509C,
+0x5092,
+0x5082,
+0x5087,
+0x515F,
+0x51D4,
+0x5312,
+0x5311,
+0x53A4,
+0x53A7,
+0x5591,
+0x55A8,
+0x55A5,
+0x55AD,
+0x5577,
+0x5645,
+0x55A2,
+0x5593,
+0x5588,
+0x558F,
+0x55B5,
+0x5581,
+0x55A3,
+0x5592,
+0x55A4,
+0x557D,
+0x558C,
+0x55A6,
+0x557F,
+0x5595,
+0x55A1,
+0x558E,
+0x570C,
+0x5829,
+0x5837,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5819,
+0x581E,
+0x5827,
+0x5823,
+0x5828,
+0x57F5,
+0x5848,
+0x5825,
+0x581C,
+0x581B,
+0x5833,
+0x583F,
+0x5836,
+0x582E,
+0x5839,
+0x5838,
+0x582D,
+0x582C,
+0x583B,
+0x5961,
+0x5AAF,
+0x5A94,
+0x5A9F,
+0x5A7A,
+0x5AA2,
+0x5A9E,
+0x5A78,
+0x5AA6,
+0x5A7C,
+0x5AA5,
+0x5AAC,
+0x5A95,
+0x5AAE,
+0x5A37,
+0x5A84,
+0x5A8A,
+0x5A97,
+0x5A83,
+0x5A8B,
+0x5AA9,
+0x5A7B,
+0x5A7D,
+0x5A8C,
+0x5A9C,
+0x5A8F,
+0x5A93,
+0x5A9D,
+0x5BEA,
+0x5BCD,
+0x5BCB,
+0x5BD4,
+0x5BD1,
+0x5BCA,
+0x5BCE,
+0x5C0C,
+0x5C30,
+0x5D37,
+0x5D43,
+0x5D6B,
+0x5D41,
+0x5D4B,
+0x5D3F,
+0x5D35,
+0x5D51,
+0x5D4E,
+0x5D55,
+0x5D33,
+0x5D3A,
+0x5D52,
+0x5D3D,
+0x5D31,
+0x5D59,
+0x5D42,
+0x5D39,
+0x5D49,
+0x5D38,
+0x5D3C,
+0x5D32,
+0x5D36,
+0x5D40,
+0x5D45,
+0x5E44,
+0x5E41,
+0x5F58,
+0x5FA6,
+0x5FA5,
+0x5FAB,
+0x60C9,
+0x60B9,
+0x60CC,
+0x60E2,
+0x60CE,
+0x60C4,
+0x6114,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x60F2,
+0x610A,
+0x6116,
+0x6105,
+0x60F5,
+0x6113,
+0x60F8,
+0x60FC,
+0x60FE,
+0x60C1,
+0x6103,
+0x6118,
+0x611D,
+0x6110,
+0x60FF,
+0x6104,
+0x610B,
+0x624A,
+0x6394,
+0x63B1,
+0x63B0,
+0x63CE,
+0x63E5,
+0x63E8,
+0x63EF,
+0x63C3,
+0x649D,
+0x63F3,
+0x63CA,
+0x63E0,
+0x63F6,
+0x63D5,
+0x63F2,
+0x63F5,
+0x6461,
+0x63DF,
+0x63BE,
+0x63DD,
+0x63DC,
+0x63C4,
+0x63D8,
+0x63D3,
+0x63C2,
+0x63C7,
+0x63CC,
+0x63CB,
+0x63C8,
+0x63F0,
+0x63D7,
+0x63D9,
+0x6532,
+0x6567,
+0x656A,
+0x6564,
+0x655C,
+0x6568,
+0x6565,
+0x658C,
+0x659D,
+0x659E,
+0x65AE,
+0x65D0,
+0x65D2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x667C,
+0x666C,
+0x667B,
+0x6680,
+0x6671,
+0x6679,
+0x666A,
+0x6672,
+0x6701,
+0x690C,
+0x68D3,
+0x6904,
+0x68DC,
+0x692A,
+0x68EC,
+0x68EA,
+0x68F1,
+0x690F,
+0x68D6,
+0x68F7,
+0x68EB,
+0x68E4,
+0x68F6,
+0x6913,
+0x6910,
+0x68F3,
+0x68E1,
+0x6907,
+0x68CC,
+0x6908,
+0x6970,
+0x68B4,
+0x6911,
+0x68EF,
+0x68C6,
+0x6914,
+0x68F8,
+0x68D0,
+0x68FD,
+0x68FC,
+0x68E8,
+0x690B,
+0x690A,
+0x6917,
+0x68CE,
+0x68C8,
+0x68DD,
+0x68DE,
+0x68E6,
+0x68F4,
+0x68D1,
+0x6906,
+0x68D4,
+0x68E9,
+0x6915,
+0x6925,
+0x68C7,
+0x6B39,
+0x6B3B,
+0x6B3F,
+0x6B3C,
+0x6B94,
+0x6B97,
+0x6B99,
+0x6B95,
+0x6BBD,
+0x6BF0,
+0x6BF2,
+0x6BF3,
+0x6C30,
+0x6DFC,
+0x6E46,
+0x6E47,
+0x6E1F,
+0x6E49,
+0x6E88,
+0x6E3C,
+0x6E3D,
+0x6E45,
+0x6E62,
+0x6E2B,
+0x6E3F,
+0x6E41,
+0x6E5D,
+0x6E73,
+0x6E1C,
+0x6E33,
+0x6E4B,
+0x6E40,
+0x6E51,
+0x6E3B,
+0x6E03,
+0x6E2E,
+0x6E5E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6E68,
+0x6E5C,
+0x6E61,
+0x6E31,
+0x6E28,
+0x6E60,
+0x6E71,
+0x6E6B,
+0x6E39,
+0x6E22,
+0x6E30,
+0x6E53,
+0x6E65,
+0x6E27,
+0x6E78,
+0x6E64,
+0x6E77,
+0x6E55,
+0x6E79,
+0x6E52,
+0x6E66,
+0x6E35,
+0x6E36,
+0x6E5A,
+0x7120,
+0x711E,
+0x712F,
+0x70FB,
+0x712E,
+0x7131,
+0x7123,
+0x7125,
+0x7122,
+0x7132,
+0x711F,
+0x7128,
+0x713A,
+0x711B,
+0x724B,
+0x725A,
+0x7288,
+0x7289,
+0x7286,
+0x7285,
+0x728B,
+0x7312,
+0x730B,
+0x7330,
+0x7322,
+0x7331,
+0x7333,
+0x7327,
+0x7332,
+0x732D,
+0x7326,
+0x7323,
+0x7335,
+0x730C,
+0x742E,
+0x742C,
+0x7430,
+0x742B,
+0x7416,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x741A,
+0x7421,
+0x742D,
+0x7431,
+0x7424,
+0x7423,
+0x741D,
+0x7429,
+0x7420,
+0x7432,
+0x74FB,
+0x752F,
+0x756F,
+0x756C,
+0x75E7,
+0x75DA,
+0x75E1,
+0x75E6,
+0x75DD,
+0x75DF,
+0x75E4,
+0x75D7,
+0x7695,
+0x7692,
+0x76DA,
+0x7746,
+0x7747,
+0x7744,
+0x774D,
+0x7745,
+0x774A,
+0x774E,
+0x774B,
+0x774C,
+0x77DE,
+0x77EC,
+0x7860,
+0x7864,
+0x7865,
+0x785C,
+0x786D,
+0x7871,
+0x786A,
+0x786E,
+0x7870,
+0x7869,
+0x7868,
+0x785E,
+0x7862,
+0x7974,
+0x7973,
+0x7972,
+0x7970,
+0x7A02,
+0x7A0A,
+0x7A03,
+0x7A0C,
+0x7A04,
+0x7A99,
+0x7AE6,
+0x7AE4,
+0x7B4A,
+0x7B3B,
+0x7B44,
+0x7B48,
+0x7B4C,
+0x7B4E,
+0x7B40,
+0x7B58,
+0x7B45,
+0x7CA2,
+0x7C9E,
+0x7CA8,
+0x7CA1,
+0x7D58,
+0x7D6F,
+0x7D63,
+0x7D53,
+0x7D56,
+0x7D67,
+0x7D6A,
+0x7D4F,
+0x7D6D,
+0x7D5C,
+0x7D6B,
+0x7D52,
+0x7D54,
+0x7D69,
+0x7D51,
+0x7D5F,
+0x7D4E,
+0x7F3E,
+0x7F3F,
+0x7F65,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7F66,
+0x7FA2,
+0x7FA0,
+0x7FA1,
+0x7FD7,
+0x8051,
+0x804F,
+0x8050,
+0x80FE,
+0x80D4,
+0x8143,
+0x814A,
+0x8152,
+0x814F,
+0x8147,
+0x813D,
+0x814D,
+0x813A,
+0x81E6,
+0x81EE,
+0x81F7,
+0x81F8,
+0x81F9,
+0x8204,
+0x823C,
+0x823D,
+0x823F,
+0x8275,
+0x833B,
+0x83CF,
+0x83F9,
+0x8423,
+0x83C0,
+0x83E8,
+0x8412,
+0x83E7,
+0x83E4,
+0x83FC,
+0x83F6,
+0x8410,
+0x83C6,
+0x83C8,
+0x83EB,
+0x83E3,
+0x83BF,
+0x8401,
+0x83DD,
+0x83E5,
+0x83D8,
+0x83FF,
+0x83E1,
+0x83CB,
+0x83CE,
+0x83D6,
+0x83F5,
+0x83C9,
+0x8409,
+0x840F,
+0x83DE,
+0x8411,
+0x8406,
+0x83C2,
+0x83F3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x83D5,
+0x83FA,
+0x83C7,
+0x83D1,
+0x83EA,
+0x8413,
+0x83C3,
+0x83EC,
+0x83EE,
+0x83C4,
+0x83FB,
+0x83D7,
+0x83E2,
+0x841B,
+0x83DB,
+0x83FE,
+0x86D8,
+0x86E2,
+0x86E6,
+0x86D3,
+0x86E3,
+0x86DA,
+0x86EA,
+0x86DD,
+0x86EB,
+0x86DC,
+0x86EC,
+0x86E9,
+0x86D7,
+0x86E8,
+0x86D1,
+0x8848,
+0x8856,
+0x8855,
+0x88BA,
+0x88D7,
+0x88B9,
+0x88B8,
+0x88C0,
+0x88BE,
+0x88B6,
+0x88BC,
+0x88B7,
+0x88BD,
+0x88B2,
+0x8901,
+0x88C9,
+0x8995,
+0x8998,
+0x8997,
+0x89DD,
+0x89DA,
+0x89DB,
+0x8A4E,
+0x8A4D,
+0x8A39,
+0x8A59,
+0x8A40,
+0x8A57,
+0x8A58,
+0x8A44,
+0x8A45,
+0x8A52,
+0x8A48,
+0x8A51,
+0x8A4A,
+0x8A4C,
+0x8A4F,
+0x8C5F,
+0x8C81,
+0x8C80,
+0x8CBA,
+0x8CBE,
+0x8CB0,
+0x8CB9,
+0x8CB5,
+0x8D84,
+0x8D80,
+0x8D89,
+0x8DD8,
+0x8DD3,
+0x8DCD,
+0x8DC7,
+0x8DD6,
+0x8DDC,
+0x8DCF,
+0x8DD5,
+0x8DD9,
+0x8DC8,
+0x8DD7,
+0x8DC5,
+0x8EEF,
+0x8EF7,
+0x8EFA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8EF9,
+0x8EE6,
+0x8EEE,
+0x8EE5,
+0x8EF5,
+0x8EE7,
+0x8EE8,
+0x8EF6,
+0x8EEB,
+0x8EF1,
+0x8EEC,
+0x8EF4,
+0x8EE9,
+0x902D,
+0x9034,
+0x902F,
+0x9106,
+0x912C,
+0x9104,
+0x90FF,
+0x90FC,
+0x9108,
+0x90F9,
+0x90FB,
+0x9101,
+0x9100,
+0x9107,
+0x9105,
+0x9103,
+0x9161,
+0x9164,
+0x915F,
+0x9162,
+0x9160,
+0x9201,
+0x920A,
+0x9225,
+0x9203,
+0x921A,
+0x9226,
+0x920F,
+0x920C,
+0x9200,
+0x9212,
+0x91FF,
+0x91FD,
+0x9206,
+0x9204,
+0x9227,
+0x9202,
+0x921C,
+0x9224,
+0x9219,
+0x9217,
+0x9205,
+0x9216,
+0x957B,
+0x958D,
+0x958C,
+0x9590,
+0x9687,
+0x967E,
+0x9688,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9689,
+0x9683,
+0x9680,
+0x96C2,
+0x96C8,
+0x96C3,
+0x96F1,
+0x96F0,
+0x976C,
+0x9770,
+0x976E,
+0x9807,
+0x98A9,
+0x98EB,
+0x9CE6,
+0x9EF9,
+0x4E83,
+0x4E84,
+0x4EB6,
+0x50BD,
+0x50BF,
+0x50C6,
+0x50AE,
+0x50C4,
+0x50CA,
+0x50B4,
+0x50C8,
+0x50C2,
+0x50B0,
+0x50C1,
+0x50BA,
+0x50B1,
+0x50CB,
+0x50C9,
+0x50B6,
+0x50B8,
+0x51D7,
+0x527A,
+0x5278,
+0x527B,
+0x527C,
+0x55C3,
+0x55DB,
+0x55CC,
+0x55D0,
+0x55CB,
+0x55CA,
+0x55DD,
+0x55C0,
+0x55D4,
+0x55C4,
+0x55E9,
+0x55BF,
+0x55D2,
+0x558D,
+0x55CF,
+0x55D5,
+0x55E2,
+0x55D6,
+0x55C8,
+0x55F2,
+0x55CD,
+0x55D9,
+0x55C2,
+0x5714,
+0x5853,
+0x5868,
+0x5864,
+0x584F,
+0x584D,
+0x5849,
+0x586F,
+0x5855,
+0x584E,
+0x585D,
+0x5859,
+0x5865,
+0x585B,
+0x583D,
+0x5863,
+0x5871,
+0x58FC,
+0x5AC7,
+0x5AC4,
+0x5ACB,
+0x5ABA,
+0x5AB8,
+0x5AB1,
+0x5AB5,
+0x5AB0,
+0x5ABF,
+0x5AC8,
+0x5ABB,
+0x5AC6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5AB7,
+0x5AC0,
+0x5ACA,
+0x5AB4,
+0x5AB6,
+0x5ACD,
+0x5AB9,
+0x5A90,
+0x5BD6,
+0x5BD8,
+0x5BD9,
+0x5C1F,
+0x5C33,
+0x5D71,
+0x5D63,
+0x5D4A,
+0x5D65,
+0x5D72,
+0x5D6C,
+0x5D5E,
+0x5D68,
+0x5D67,
+0x5D62,
+0x5DF0,
+0x5E4F,
+0x5E4E,
+0x5E4A,
+0x5E4D,
+0x5E4B,
+0x5EC5,
+0x5ECC,
+0x5EC6,
+0x5ECB,
+0x5EC7,
+0x5F40,
+0x5FAF,
+0x5FAD,
+0x60F7,
+0x6149,
+0x614A,
+0x612B,
+0x6145,
+0x6136,
+0x6132,
+0x612E,
+0x6146,
+0x612F,
+0x614F,
+0x6129,
+0x6140,
+0x6220,
+0x9168,
+0x6223,
+0x6225,
+0x6224,
+0x63C5,
+0x63F1,
+0x63EB,
+0x6410,
+0x6412,
+0x6409,
+0x6420,
+0x6424,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6433,
+0x6443,
+0x641F,
+0x6415,
+0x6418,
+0x6439,
+0x6437,
+0x6422,
+0x6423,
+0x640C,
+0x6426,
+0x6430,
+0x6428,
+0x6441,
+0x6435,
+0x642F,
+0x640A,
+0x641A,
+0x6440,
+0x6425,
+0x6427,
+0x640B,
+0x63E7,
+0x641B,
+0x642E,
+0x6421,
+0x640E,
+0x656F,
+0x6592,
+0x65D3,
+0x6686,
+0x668C,
+0x6695,
+0x6690,
+0x668B,
+0x668A,
+0x6699,
+0x6694,
+0x6678,
+0x6720,
+0x6966,
+0x695F,
+0x6938,
+0x694E,
+0x6962,
+0x6971,
+0x693F,
+0x6945,
+0x696A,
+0x6939,
+0x6942,
+0x6957,
+0x6959,
+0x697A,
+0x6948,
+0x6949,
+0x6935,
+0x696C,
+0x6933,
+0x693D,
+0x6965,
+0x68F0,
+0x6978,
+0x6934,
+0x6969,
+0x6940,
+0x696F,
+0x6944,
+0x6976,
+0x6958,
+0x6941,
+0x6974,
+0x694C,
+0x693B,
+0x694B,
+0x6937,
+0x695C,
+0x694F,
+0x6951,
+0x6932,
+0x6952,
+0x692F,
+0x697B,
+0x693C,
+0x6B46,
+0x6B45,
+0x6B43,
+0x6B42,
+0x6B48,
+0x6B41,
+0x6B9B,
+0xFA0D,
+0x6BFB,
+0x6BFC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6BF9,
+0x6BF7,
+0x6BF8,
+0x6E9B,
+0x6ED6,
+0x6EC8,
+0x6E8F,
+0x6EC0,
+0x6E9F,
+0x6E93,
+0x6E94,
+0x6EA0,
+0x6EB1,
+0x6EB9,
+0x6EC6,
+0x6ED2,
+0x6EBD,
+0x6EC1,
+0x6E9E,
+0x6EC9,
+0x6EB7,
+0x6EB0,
+0x6ECD,
+0x6EA6,
+0x6ECF,
+0x6EB2,
+0x6EBE,
+0x6EC3,
+0x6EDC,
+0x6ED8,
+0x6E99,
+0x6E92,
+0x6E8E,
+0x6E8D,
+0x6EA4,
+0x6EA1,
+0x6EBF,
+0x6EB3,
+0x6ED0,
+0x6ECA,
+0x6E97,
+0x6EAE,
+0x6EA3,
+0x7147,
+0x7154,
+0x7152,
+0x7163,
+0x7160,
+0x7141,
+0x715D,
+0x7162,
+0x7172,
+0x7178,
+0x716A,
+0x7161,
+0x7142,
+0x7158,
+0x7143,
+0x714B,
+0x7170,
+0x715F,
+0x7150,
+0x7153,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7144,
+0x714D,
+0x715A,
+0x724F,
+0x728D,
+0x728C,
+0x7291,
+0x7290,
+0x728E,
+0x733C,
+0x7342,
+0x733B,
+0x733A,
+0x7340,
+0x734A,
+0x7349,
+0x7444,
+0x744A,
+0x744B,
+0x7452,
+0x7451,
+0x7457,
+0x7440,
+0x744F,
+0x7450,
+0x744E,
+0x7442,
+0x7446,
+0x744D,
+0x7454,
+0x74E1,
+0x74FF,
+0x74FE,
+0x74FD,
+0x751D,
+0x7579,
+0x7577,
+0x6983,
+0x75EF,
+0x760F,
+0x7603,
+0x75F7,
+0x75FE,
+0x75FC,
+0x75F9,
+0x75F8,
+0x7610,
+0x75FB,
+0x75F6,
+0x75ED,
+0x75F5,
+0x75FD,
+0x7699,
+0x76B5,
+0x76DD,
+0x7755,
+0x775F,
+0x7760,
+0x7752,
+0x7756,
+0x775A,
+0x7769,
+0x7767,
+0x7754,
+0x7759,
+0x776D,
+0x77E0,
+0x7887,
+0x789A,
+0x7894,
+0x788F,
+0x7884,
+0x7895,
+0x7885,
+0x7886,
+0x78A1,
+0x7883,
+0x7879,
+0x7899,
+0x7880,
+0x7896,
+0x787B,
+0x797C,
+0x7982,
+0x797D,
+0x7979,
+0x7A11,
+0x7A18,
+0x7A19,
+0x7A12,
+0x7A17,
+0x7A15,
+0x7A22,
+0x7A13,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7A1B,
+0x7A10,
+0x7AA3,
+0x7AA2,
+0x7A9E,
+0x7AEB,
+0x7B66,
+0x7B64,
+0x7B6D,
+0x7B74,
+0x7B69,
+0x7B72,
+0x7B65,
+0x7B73,
+0x7B71,
+0x7B70,
+0x7B61,
+0x7B78,
+0x7B76,
+0x7B63,
+0x7CB2,
+0x7CB4,
+0x7CAF,
+0x7D88,
+0x7D86,
+0x7D80,
+0x7D8D,
+0x7D7F,
+0x7D85,
+0x7D7A,
+0x7D8E,
+0x7D7B,
+0x7D83,
+0x7D7C,
+0x7D8C,
+0x7D94,
+0x7D84,
+0x7D7D,
+0x7D92,
+0x7F6D,
+0x7F6B,
+0x7F67,
+0x7F68,
+0x7F6C,
+0x7FA6,
+0x7FA5,
+0x7FA7,
+0x7FDB,
+0x7FDC,
+0x8021,
+0x8164,
+0x8160,
+0x8177,
+0x815C,
+0x8169,
+0x815B,
+0x8162,
+0x8172,
+0x6721,
+0x815E,
+0x8176,
+0x8167,
+0x816F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8144,
+0x8161,
+0x821D,
+0x8249,
+0x8244,
+0x8240,
+0x8242,
+0x8245,
+0x84F1,
+0x843F,
+0x8456,
+0x8476,
+0x8479,
+0x848F,
+0x848D,
+0x8465,
+0x8451,
+0x8440,
+0x8486,
+0x8467,
+0x8430,
+0x844D,
+0x847D,
+0x845A,
+0x8459,
+0x8474,
+0x8473,
+0x845D,
+0x8507,
+0x845E,
+0x8437,
+0x843A,
+0x8434,
+0x847A,
+0x8443,
+0x8478,
+0x8432,
+0x8445,
+0x8429,
+0x83D9,
+0x844B,
+0x842F,
+0x8442,
+0x842D,
+0x845F,
+0x8470,
+0x8439,
+0x844E,
+0x844C,
+0x8452,
+0x846F,
+0x84C5,
+0x848E,
+0x843B,
+0x8447,
+0x8436,
+0x8433,
+0x8468,
+0x847E,
+0x8444,
+0x842B,
+0x8460,
+0x8454,
+0x846E,
+0x8450,
+0x870B,
+0x8704,
+0x86F7,
+0x870C,
+0x86FA,
+0x86D6,
+0x86F5,
+0x874D,
+0x86F8,
+0x870E,
+0x8709,
+0x8701,
+0x86F6,
+0x870D,
+0x8705,
+0x88D6,
+0x88CB,
+0x88CD,
+0x88CE,
+0x88DE,
+0x88DB,
+0x88DA,
+0x88CC,
+0x88D0,
+0x8985,
+0x899B,
+0x89DF,
+0x89E5,
+0x89E4,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x89E1,
+0x89E0,
+0x89E2,
+0x89DC,
+0x89E6,
+0x8A76,
+0x8A86,
+0x8A7F,
+0x8A61,
+0x8A3F,
+0x8A77,
+0x8A82,
+0x8A84,
+0x8A75,
+0x8A83,
+0x8A81,
+0x8A74,
+0x8A7A,
+0x8C3C,
+0x8C4B,
+0x8C4A,
+0x8C65,
+0x8C64,
+0x8C66,
+0x8C86,
+0x8C84,
+0x8C85,
+0x8CCC,
+0x8D68,
+0x8D69,
+0x8D91,
+0x8D8C,
+0x8D8E,
+0x8D8F,
+0x8D8D,
+0x8D93,
+0x8D94,
+0x8D90,
+0x8D92,
+0x8DF0,
+0x8DE0,
+0x8DEC,
+0x8DF1,
+0x8DEE,
+0x8DD0,
+0x8DE9,
+0x8DE3,
+0x8DE2,
+0x8DE7,
+0x8DF2,
+0x8DEB,
+0x8DF4,
+0x8F06,
+0x8EFF,
+0x8F01,
+0x8F00,
+0x8F05,
+0x8F07,
+0x8F08,
+0x8F02,
+0x8F0B,
+0x9052,
+0x903F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9044,
+0x9049,
+0x903D,
+0x9110,
+0x910D,
+0x910F,
+0x9111,
+0x9116,
+0x9114,
+0x910B,
+0x910E,
+0x916E,
+0x916F,
+0x9248,
+0x9252,
+0x9230,
+0x923A,
+0x9266,
+0x9233,
+0x9265,
+0x925E,
+0x9283,
+0x922E,
+0x924A,
+0x9246,
+0x926D,
+0x926C,
+0x924F,
+0x9260,
+0x9267,
+0x926F,
+0x9236,
+0x9261,
+0x9270,
+0x9231,
+0x9254,
+0x9263,
+0x9250,
+0x9272,
+0x924E,
+0x9253,
+0x924C,
+0x9256,
+0x9232,
+0x959F,
+0x959C,
+0x959E,
+0x959B,
+0x9692,
+0x9693,
+0x9691,
+0x9697,
+0x96CE,
+0x96FA,
+0x96FD,
+0x96F8,
+0x96F5,
+0x9773,
+0x9777,
+0x9778,
+0x9772,
+0x980F,
+0x980D,
+0x980E,
+0x98AC,
+0x98F6,
+0x98F9,
+0x99AF,
+0x99B2,
+0x99B0,
+0x99B5,
+0x9AAD,
+0x9AAB,
+0x9B5B,
+0x9CEA,
+0x9CED,
+0x9CE7,
+0x9E80,
+0x9EFD,
+0x50E6,
+0x50D4,
+0x50D7,
+0x50E8,
+0x50F3,
+0x50DB,
+0x50EA,
+0x50DD,
+0x50E4,
+0x50D3,
+0x50EC,
+0x50F0,
+0x50EF,
+0x50E3,
+0x50E0,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x51D8,
+0x5280,
+0x5281,
+0x52E9,
+0x52EB,
+0x5330,
+0x53AC,
+0x5627,
+0x5615,
+0x560C,
+0x5612,
+0x55FC,
+0x560F,
+0x561C,
+0x5601,
+0x5613,
+0x5602,
+0x55FA,
+0x561D,
+0x5604,
+0x55FF,
+0x55F9,
+0x5889,
+0x587C,
+0x5890,
+0x5898,
+0x5886,
+0x5881,
+0x587F,
+0x5874,
+0x588B,
+0x587A,
+0x5887,
+0x5891,
+0x588E,
+0x5876,
+0x5882,
+0x5888,
+0x587B,
+0x5894,
+0x588F,
+0x58FE,
+0x596B,
+0x5ADC,
+0x5AEE,
+0x5AE5,
+0x5AD5,
+0x5AEA,
+0x5ADA,
+0x5AED,
+0x5AEB,
+0x5AF3,
+0x5AE2,
+0x5AE0,
+0x5ADB,
+0x5AEC,
+0x5ADE,
+0x5ADD,
+0x5AD9,
+0x5AE8,
+0x5ADF,
+0x5B77,
+0x5BE0,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5BE3,
+0x5C63,
+0x5D82,
+0x5D80,
+0x5D7D,
+0x5D86,
+0x5D7A,
+0x5D81,
+0x5D77,
+0x5D8A,
+0x5D89,
+0x5D88,
+0x5D7E,
+0x5D7C,
+0x5D8D,
+0x5D79,
+0x5D7F,
+0x5E58,
+0x5E59,
+0x5E53,
+0x5ED8,
+0x5ED1,
+0x5ED7,
+0x5ECE,
+0x5EDC,
+0x5ED5,
+0x5ED9,
+0x5ED2,
+0x5ED4,
+0x5F44,
+0x5F43,
+0x5F6F,
+0x5FB6,
+0x612C,
+0x6128,
+0x6141,
+0x615E,
+0x6171,
+0x6173,
+0x6152,
+0x6153,
+0x6172,
+0x616C,
+0x6180,
+0x6174,
+0x6154,
+0x617A,
+0x615B,
+0x6165,
+0x613B,
+0x616A,
+0x6161,
+0x6156,
+0x6229,
+0x6227,
+0x622B,
+0x642B,
+0x644D,
+0x645B,
+0x645D,
+0x6474,
+0x6476,
+0x6472,
+0x6473,
+0x647D,
+0x6475,
+0x6466,
+0x64A6,
+0x644E,
+0x6482,
+0x645E,
+0x645C,
+0x644B,
+0x6453,
+0x6460,
+0x6450,
+0x647F,
+0x643F,
+0x646C,
+0x646B,
+0x6459,
+0x6465,
+0x6477,
+0x6573,
+0x65A0,
+0x66A1,
+0x66A0,
+0x669F,
+0x6705,
+0x6704,
+0x6722,
+0x69B1,
+0x69B6,
+0x69C9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x69A0,
+0x69CE,
+0x6996,
+0x69B0,
+0x69AC,
+0x69BC,
+0x6991,
+0x6999,
+0x698E,
+0x69A7,
+0x698D,
+0x69A9,
+0x69BE,
+0x69AF,
+0x69BF,
+0x69C4,
+0x69BD,
+0x69A4,
+0x69D4,
+0x69B9,
+0x69CA,
+0x699A,
+0x69CF,
+0x69B3,
+0x6993,
+0x69AA,
+0x69A1,
+0x699E,
+0x69D9,
+0x6997,
+0x6990,
+0x69C2,
+0x69B5,
+0x69A5,
+0x69C6,
+0x6B4A,
+0x6B4D,
+0x6B4B,
+0x6B9E,
+0x6B9F,
+0x6BA0,
+0x6BC3,
+0x6BC4,
+0x6BFE,
+0x6ECE,
+0x6EF5,
+0x6EF1,
+0x6F03,
+0x6F25,
+0x6EF8,
+0x6F37,
+0x6EFB,
+0x6F2E,
+0x6F09,
+0x6F4E,
+0x6F19,
+0x6F1A,
+0x6F27,
+0x6F18,
+0x6F3B,
+0x6F12,
+0x6EED,
+0x6F0A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6F36,
+0x6F73,
+0x6EF9,
+0x6EEE,
+0x6F2D,
+0x6F40,
+0x6F30,
+0x6F3C,
+0x6F35,
+0x6EEB,
+0x6F07,
+0x6F0E,
+0x6F43,
+0x6F05,
+0x6EFD,
+0x6EF6,
+0x6F39,
+0x6F1C,
+0x6EFC,
+0x6F3A,
+0x6F1F,
+0x6F0D,
+0x6F1E,
+0x6F08,
+0x6F21,
+0x7187,
+0x7190,
+0x7189,
+0x7180,
+0x7185,
+0x7182,
+0x718F,
+0x717B,
+0x7186,
+0x7181,
+0x7197,
+0x7244,
+0x7253,
+0x7297,
+0x7295,
+0x7293,
+0x7343,
+0x734D,
+0x7351,
+0x734C,
+0x7462,
+0x7473,
+0x7471,
+0x7475,
+0x7472,
+0x7467,
+0x746E,
+0x7500,
+0x7502,
+0x7503,
+0x757D,
+0x7590,
+0x7616,
+0x7608,
+0x760C,
+0x7615,
+0x7611,
+0x760A,
+0x7614,
+0x76B8,
+0x7781,
+0x777C,
+0x7785,
+0x7782,
+0x776E,
+0x7780,
+0x776F,
+0x777E,
+0x7783,
+0x78B2,
+0x78AA,
+0x78B4,
+0x78AD,
+0x78A8,
+0x787E,
+0x78AB,
+0x789E,
+0x78A5,
+0x78A0,
+0x78AC,
+0x78A2,
+0x78A4,
+0x7998,
+0x798A,
+0x798B,
+0x7996,
+0x7995,
+0x7994,
+0x7993,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7997,
+0x7988,
+0x7992,
+0x7990,
+0x7A2B,
+0x7A4A,
+0x7A30,
+0x7A2F,
+0x7A28,
+0x7A26,
+0x7AA8,
+0x7AAB,
+0x7AAC,
+0x7AEE,
+0x7B88,
+0x7B9C,
+0x7B8A,
+0x7B91,
+0x7B90,
+0x7B96,
+0x7B8D,
+0x7B8C,
+0x7B9B,
+0x7B8E,
+0x7B85,
+0x7B98,
+0x5284,
+0x7B99,
+0x7BA4,
+0x7B82,
+0x7CBB,
+0x7CBF,
+0x7CBC,
+0x7CBA,
+0x7DA7,
+0x7DB7,
+0x7DC2,
+0x7DA3,
+0x7DAA,
+0x7DC1,
+0x7DC0,
+0x7DC5,
+0x7D9D,
+0x7DCE,
+0x7DC4,
+0x7DC6,
+0x7DCB,
+0x7DCC,
+0x7DAF,
+0x7DB9,
+0x7D96,
+0x7DBC,
+0x7D9F,
+0x7DA6,
+0x7DAE,
+0x7DA9,
+0x7DA1,
+0x7DC9,
+0x7F73,
+0x7FE2,
+0x7FE3,
+0x7FE5,
+0x7FDE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8024,
+0x805D,
+0x805C,
+0x8189,
+0x8186,
+0x8183,
+0x8187,
+0x818D,
+0x818C,
+0x818B,
+0x8215,
+0x8497,
+0x84A4,
+0x84A1,
+0x849F,
+0x84BA,
+0x84CE,
+0x84C2,
+0x84AC,
+0x84AE,
+0x84AB,
+0x84B9,
+0x84B4,
+0x84C1,
+0x84CD,
+0x84AA,
+0x849A,
+0x84B1,
+0x84D0,
+0x849D,
+0x84A7,
+0x84BB,
+0x84A2,
+0x8494,
+0x84C7,
+0x84CC,
+0x849B,
+0x84A9,
+0x84AF,
+0x84A8,
+0x84D6,
+0x8498,
+0x84B6,
+0x84CF,
+0x84A0,
+0x84D7,
+0x84D4,
+0x84D2,
+0x84DB,
+0x84B0,
+0x8491,
+0x8661,
+0x8733,
+0x8723,
+0x8728,
+0x876B,
+0x8740,
+0x872E,
+0x871E,
+0x8721,
+0x8719,
+0x871B,
+0x8743,
+0x872C,
+0x8741,
+0x873E,
+0x8746,
+0x8720,
+0x8732,
+0x872A,
+0x872D,
+0x873C,
+0x8712,
+0x873A,
+0x8731,
+0x8735,
+0x8742,
+0x8726,
+0x8727,
+0x8738,
+0x8724,
+0x871A,
+0x8730,
+0x8711,
+0x88F7,
+0x88E7,
+0x88F1,
+0x88F2,
+0x88FA,
+0x88FE,
+0x88EE,
+0x88FC,
+0x88F6,
+0x88FB,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x88F0,
+0x88EC,
+0x88EB,
+0x899D,
+0x89A1,
+0x899F,
+0x899E,
+0x89E9,
+0x89EB,
+0x89E8,
+0x8AAB,
+0x8A99,
+0x8A8B,
+0x8A92,
+0x8A8F,
+0x8A96,
+0x8C3D,
+0x8C68,
+0x8C69,
+0x8CD5,
+0x8CCF,
+0x8CD7,
+0x8D96,
+0x8E09,
+0x8E02,
+0x8DFF,
+0x8E0D,
+0x8DFD,
+0x8E0A,
+0x8E03,
+0x8E07,
+0x8E06,
+0x8E05,
+0x8DFE,
+0x8E00,
+0x8E04,
+0x8F10,
+0x8F11,
+0x8F0E,
+0x8F0D,
+0x9123,
+0x911C,
+0x9120,
+0x9122,
+0x911F,
+0x911D,
+0x911A,
+0x9124,
+0x9121,
+0x911B,
+0x917A,
+0x9172,
+0x9179,
+0x9173,
+0x92A5,
+0x92A4,
+0x9276,
+0x929B,
+0x927A,
+0x92A0,
+0x9294,
+0x92AA,
+0x928D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x92A6,
+0x929A,
+0x92AB,
+0x9279,
+0x9297,
+0x927F,
+0x92A3,
+0x92EE,
+0x928E,
+0x9282,
+0x9295,
+0x92A2,
+0x927D,
+0x9288,
+0x92A1,
+0x928A,
+0x9286,
+0x928C,
+0x9299,
+0x92A7,
+0x927E,
+0x9287,
+0x92A9,
+0x929D,
+0x928B,
+0x922D,
+0x969E,
+0x96A1,
+0x96FF,
+0x9758,
+0x977D,
+0x977A,
+0x977E,
+0x9783,
+0x9780,
+0x9782,
+0x977B,
+0x9784,
+0x9781,
+0x977F,
+0x97CE,
+0x97CD,
+0x9816,
+0x98AD,
+0x98AE,
+0x9902,
+0x9900,
+0x9907,
+0x999D,
+0x999C,
+0x99C3,
+0x99B9,
+0x99BB,
+0x99BA,
+0x99C2,
+0x99BD,
+0x99C7,
+0x9AB1,
+0x9AE3,
+0x9AE7,
+0x9B3E,
+0x9B3F,
+0x9B60,
+0x9B61,
+0x9B5F,
+0x9CF1,
+0x9CF2,
+0x9CF5,
+0x9EA7,
+0x50FF,
+0x5103,
+0x5130,
+0x50F8,
+0x5106,
+0x5107,
+0x50F6,
+0x50FE,
+0x510B,
+0x510C,
+0x50FD,
+0x510A,
+0x528B,
+0x528C,
+0x52F1,
+0x52EF,
+0x5648,
+0x5642,
+0x564C,
+0x5635,
+0x5641,
+0x564A,
+0x5649,
+0x5646,
+0x5658,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x565A,
+0x5640,
+0x5633,
+0x563D,
+0x562C,
+0x563E,
+0x5638,
+0x562A,
+0x563A,
+0x571A,
+0x58AB,
+0x589D,
+0x58B1,
+0x58A0,
+0x58A3,
+0x58AF,
+0x58AC,
+0x58A5,
+0x58A1,
+0x58FF,
+0x5AFF,
+0x5AF4,
+0x5AFD,
+0x5AF7,
+0x5AF6,
+0x5B03,
+0x5AF8,
+0x5B02,
+0x5AF9,
+0x5B01,
+0x5B07,
+0x5B05,
+0x5B0F,
+0x5C67,
+0x5D99,
+0x5D97,
+0x5D9F,
+0x5D92,
+0x5DA2,
+0x5D93,
+0x5D95,
+0x5DA0,
+0x5D9C,
+0x5DA1,
+0x5D9A,
+0x5D9E,
+0x5E69,
+0x5E5D,
+0x5E60,
+0x5E5C,
+0x7DF3,
+0x5EDB,
+0x5EDE,
+0x5EE1,
+0x5F49,
+0x5FB2,
+0x618B,
+0x6183,
+0x6179,
+0x61B1,
+0x61B0,
+0x61A2,
+0x6189,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x619B,
+0x6193,
+0x61AF,
+0x61AD,
+0x619F,
+0x6192,
+0x61AA,
+0x61A1,
+0x618D,
+0x6166,
+0x61B3,
+0x622D,
+0x646E,
+0x6470,
+0x6496,
+0x64A0,
+0x6485,
+0x6497,
+0x649C,
+0x648F,
+0x648B,
+0x648A,
+0x648C,
+0x64A3,
+0x649F,
+0x6468,
+0x64B1,
+0x6498,
+0x6576,
+0x657A,
+0x6579,
+0x657B,
+0x65B2,
+0x65B3,
+0x66B5,
+0x66B0,
+0x66A9,
+0x66B2,
+0x66B7,
+0x66AA,
+0x66AF,
+0x6A00,
+0x6A06,
+0x6A17,
+0x69E5,
+0x69F8,
+0x6A15,
+0x69F1,
+0x69E4,
+0x6A20,
+0x69FF,
+0x69EC,
+0x69E2,
+0x6A1B,
+0x6A1D,
+0x69FE,
+0x6A27,
+0x69F2,
+0x69EE,
+0x6A14,
+0x69F7,
+0x69E7,
+0x6A40,
+0x6A08,
+0x69E6,
+0x69FB,
+0x6A0D,
+0x69FC,
+0x69EB,
+0x6A09,
+0x6A04,
+0x6A18,
+0x6A25,
+0x6A0F,
+0x69F6,
+0x6A26,
+0x6A07,
+0x69F4,
+0x6A16,
+0x6B51,
+0x6BA5,
+0x6BA3,
+0x6BA2,
+0x6BA6,
+0x6C01,
+0x6C00,
+0x6BFF,
+0x6C02,
+0x6F41,
+0x6F26,
+0x6F7E,
+0x6F87,
+0x6FC6,
+0x6F92,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6F8D,
+0x6F89,
+0x6F8C,
+0x6F62,
+0x6F4F,
+0x6F85,
+0x6F5A,
+0x6F96,
+0x6F76,
+0x6F6C,
+0x6F82,
+0x6F55,
+0x6F72,
+0x6F52,
+0x6F50,
+0x6F57,
+0x6F94,
+0x6F93,
+0x6F5D,
+0x6F00,
+0x6F61,
+0x6F6B,
+0x6F7D,
+0x6F67,
+0x6F90,
+0x6F53,
+0x6F8B,
+0x6F69,
+0x6F7F,
+0x6F95,
+0x6F63,
+0x6F77,
+0x6F6A,
+0x6F7B,
+0x71B2,
+0x71AF,
+0x719B,
+0x71B0,
+0x71A0,
+0x719A,
+0x71A9,
+0x71B5,
+0x719D,
+0x71A5,
+0x719E,
+0x71A4,
+0x71A1,
+0x71AA,
+0x719C,
+0x71A7,
+0x71B3,
+0x7298,
+0x729A,
+0x7358,
+0x7352,
+0x735E,
+0x735F,
+0x7360,
+0x735D,
+0x735B,
+0x7361,
+0x735A,
+0x7359,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7362,
+0x7487,
+0x7489,
+0x748A,
+0x7486,
+0x7481,
+0x747D,
+0x7485,
+0x7488,
+0x747C,
+0x7479,
+0x7508,
+0x7507,
+0x757E,
+0x7625,
+0x761E,
+0x7619,
+0x761D,
+0x761C,
+0x7623,
+0x761A,
+0x7628,
+0x761B,
+0x769C,
+0x769D,
+0x769E,
+0x769B,
+0x778D,
+0x778F,
+0x7789,
+0x7788,
+0x78CD,
+0x78BB,
+0x78CF,
+0x78CC,
+0x78D1,
+0x78CE,
+0x78D4,
+0x78C8,
+0x78C3,
+0x78C4,
+0x78C9,
+0x799A,
+0x79A1,
+0x79A0,
+0x799C,
+0x79A2,
+0x799B,
+0x6B76,
+0x7A39,
+0x7AB2,
+0x7AB4,
+0x7AB3,
+0x7BB7,
+0x7BCB,
+0x7BBE,
+0x7BAC,
+0x7BCE,
+0x7BAF,
+0x7BB9,
+0x7BCA,
+0x7BB5,
+0x7CC5,
+0x7CC8,
+0x7CCC,
+0x7CCB,
+0x7DF7,
+0x7DDB,
+0x7DEA,
+0x7DE7,
+0x7DD7,
+0x7DE1,
+0x7E03,
+0x7DFA,
+0x7DE6,
+0x7DF6,
+0x7DF1,
+0x7DF0,
+0x7DEE,
+0x7DDF,
+0x7F76,
+0x7FAC,
+0x7FB0,
+0x7FAD,
+0x7FED,
+0x7FEB,
+0x7FEA,
+0x7FEC,
+0x7FE6,
+0x7FE8,
+0x8064,
+0x8067,
+0x81A3,
+0x819F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x819E,
+0x8195,
+0x81A2,
+0x8199,
+0x8197,
+0x8216,
+0x824F,
+0x8253,
+0x8252,
+0x8250,
+0x824E,
+0x8251,
+0x8524,
+0x853B,
+0x850F,
+0x8500,
+0x8529,
+0x850E,
+0x8509,
+0x850D,
+0x851F,
+0x850A,
+0x8527,
+0x851C,
+0x84FB,
+0x852B,
+0x84FA,
+0x8508,
+0x850C,
+0x84F4,
+0x852A,
+0x84F2,
+0x8515,
+0x84F7,
+0x84EB,
+0x84F3,
+0x84FC,
+0x8512,
+0x84EA,
+0x84E9,
+0x8516,
+0x84FE,
+0x8528,
+0x851D,
+0x852E,
+0x8502,
+0x84FD,
+0x851E,
+0x84F6,
+0x8531,
+0x8526,
+0x84E7,
+0x84E8,
+0x84F0,
+0x84EF,
+0x84F9,
+0x8518,
+0x8520,
+0x8530,
+0x850B,
+0x8519,
+0x852F,
+0x8662,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8756,
+0x8763,
+0x8764,
+0x8777,
+0x87E1,
+0x8773,
+0x8758,
+0x8754,
+0x875B,
+0x8752,
+0x8761,
+0x875A,
+0x8751,
+0x875E,
+0x876D,
+0x876A,
+0x8750,
+0x874E,
+0x875F,
+0x875D,
+0x876F,
+0x876C,
+0x877A,
+0x876E,
+0x875C,
+0x8765,
+0x874F,
+0x877B,
+0x8775,
+0x8762,
+0x8767,
+0x8769,
+0x885A,
+0x8905,
+0x890C,
+0x8914,
+0x890B,
+0x8917,
+0x8918,
+0x8919,
+0x8906,
+0x8916,
+0x8911,
+0x890E,
+0x8909,
+0x89A2,
+0x89A4,
+0x89A3,
+0x89ED,
+0x89F0,
+0x89EC,
+0x8ACF,
+0x8AC6,
+0x8AB8,
+0x8AD3,
+0x8AD1,
+0x8AD4,
+0x8AD5,
+0x8ABB,
+0x8AD7,
+0x8ABE,
+0x8AC0,
+0x8AC5,
+0x8AD8,
+0x8AC3,
+0x8ABA,
+0x8ABD,
+0x8AD9,
+0x8C3E,
+0x8C4D,
+0x8C8F,
+0x8CE5,
+0x8CDF,
+0x8CD9,
+0x8CE8,
+0x8CDA,
+0x8CDD,
+0x8CE7,
+0x8DA0,
+0x8D9C,
+0x8DA1,
+0x8D9B,
+0x8E20,
+0x8E23,
+0x8E25,
+0x8E24,
+0x8E2E,
+0x8E15,
+0x8E1B,
+0x8E16,
+0x8E11,
+0x8E19,
+0x8E26,
+0x8E27,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8E14,
+0x8E12,
+0x8E18,
+0x8E13,
+0x8E1C,
+0x8E17,
+0x8E1A,
+0x8F2C,
+0x8F24,
+0x8F18,
+0x8F1A,
+0x8F20,
+0x8F23,
+0x8F16,
+0x8F17,
+0x9073,
+0x9070,
+0x906F,
+0x9067,
+0x906B,
+0x912F,
+0x912B,
+0x9129,
+0x912A,
+0x9132,
+0x9126,
+0x912E,
+0x9185,
+0x9186,
+0x918A,
+0x9181,
+0x9182,
+0x9184,
+0x9180,
+0x92D0,
+0x92C3,
+0x92C4,
+0x92C0,
+0x92D9,
+0x92B6,
+0x92CF,
+0x92F1,
+0x92DF,
+0x92D8,
+0x92E9,
+0x92D7,
+0x92DD,
+0x92CC,
+0x92EF,
+0x92C2,
+0x92E8,
+0x92CA,
+0x92C8,
+0x92CE,
+0x92E6,
+0x92CD,
+0x92D5,
+0x92C9,
+0x92E0,
+0x92DE,
+0x92E7,
+0x92D1,
+0x92D3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x92B5,
+0x92E1,
+0x92C6,
+0x92B4,
+0x957C,
+0x95AC,
+0x95AB,
+0x95AE,
+0x95B0,
+0x96A4,
+0x96A2,
+0x96D3,
+0x9705,
+0x9708,
+0x9702,
+0x975A,
+0x978A,
+0x978E,
+0x9788,
+0x97D0,
+0x97CF,
+0x981E,
+0x981D,
+0x9826,
+0x9829,
+0x9828,
+0x9820,
+0x981B,
+0x9827,
+0x98B2,
+0x9908,
+0x98FA,
+0x9911,
+0x9914,
+0x9916,
+0x9917,
+0x9915,
+0x99DC,
+0x99CD,
+0x99CF,
+0x99D3,
+0x99D4,
+0x99CE,
+0x99C9,
+0x99D6,
+0x99D8,
+0x99CB,
+0x99D7,
+0x99CC,
+0x9AB3,
+0x9AEC,
+0x9AEB,
+0x9AF3,
+0x9AF2,
+0x9AF1,
+0x9B46,
+0x9B43,
+0x9B67,
+0x9B74,
+0x9B71,
+0x9B66,
+0x9B76,
+0x9B75,
+0x9B70,
+0x9B68,
+0x9B64,
+0x9B6C,
+0x9CFC,
+0x9CFA,
+0x9CFD,
+0x9CFF,
+0x9CF7,
+0x9D07,
+0x9D00,
+0x9CF9,
+0x9CFB,
+0x9D08,
+0x9D05,
+0x9D04,
+0x9E83,
+0x9ED3,
+0x9F0F,
+0x9F10,
+0x511C,
+0x5113,
+0x5117,
+0x511A,
+0x5111,
+0x51DE,
+0x5334,
+0x53E1,
+0x5670,
+0x5660,
+0x566E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5673,
+0x5666,
+0x5663,
+0x566D,
+0x5672,
+0x565E,
+0x5677,
+0x571C,
+0x571B,
+0x58C8,
+0x58BD,
+0x58C9,
+0x58BF,
+0x58BA,
+0x58C2,
+0x58BC,
+0x58C6,
+0x5B17,
+0x5B19,
+0x5B1B,
+0x5B21,
+0x5B14,
+0x5B13,
+0x5B10,
+0x5B16,
+0x5B28,
+0x5B1A,
+0x5B20,
+0x5B1E,
+0x5BEF,
+0x5DAC,
+0x5DB1,
+0x5DA9,
+0x5DA7,
+0x5DB5,
+0x5DB0,
+0x5DAE,
+0x5DAA,
+0x5DA8,
+0x5DB2,
+0x5DAD,
+0x5DAF,
+0x5DB4,
+0x5E67,
+0x5E68,
+0x5E66,
+0x5E6F,
+0x5EE9,
+0x5EE7,
+0x5EE6,
+0x5EE8,
+0x5EE5,
+0x5F4B,
+0x5FBC,
+0x619D,
+0x61A8,
+0x6196,
+0x61C5,
+0x61B4,
+0x61C6,
+0x61C1,
+0x61CC,
+0x61BA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x61BF,
+0x61B8,
+0x618C,
+0x64D7,
+0x64D6,
+0x64D0,
+0x64CF,
+0x64C9,
+0x64BD,
+0x6489,
+0x64C3,
+0x64DB,
+0x64F3,
+0x64D9,
+0x6533,
+0x657F,
+0x657C,
+0x65A2,
+0x66C8,
+0x66BE,
+0x66C0,
+0x66CA,
+0x66CB,
+0x66CF,
+0x66BD,
+0x66BB,
+0x66BA,
+0x66CC,
+0x6723,
+0x6A34,
+0x6A66,
+0x6A49,
+0x6A67,
+0x6A32,
+0x6A68,
+0x6A3E,
+0x6A5D,
+0x6A6D,
+0x6A76,
+0x6A5B,
+0x6A51,
+0x6A28,
+0x6A5A,
+0x6A3B,
+0x6A3F,
+0x6A41,
+0x6A6A,
+0x6A64,
+0x6A50,
+0x6A4F,
+0x6A54,
+0x6A6F,
+0x6A69,
+0x6A60,
+0x6A3C,
+0x6A5E,
+0x6A56,
+0x6A55,
+0x6A4D,
+0x6A4E,
+0x6A46,
+0x6B55,
+0x6B54,
+0x6B56,
+0x6BA7,
+0x6BAA,
+0x6BAB,
+0x6BC8,
+0x6BC7,
+0x6C04,
+0x6C03,
+0x6C06,
+0x6FAD,
+0x6FCB,
+0x6FA3,
+0x6FC7,
+0x6FBC,
+0x6FCE,
+0x6FC8,
+0x6F5E,
+0x6FC4,
+0x6FBD,
+0x6F9E,
+0x6FCA,
+0x6FA8,
+0x7004,
+0x6FA5,
+0x6FAE,
+0x6FBA,
+0x6FAC,
+0x6FAA,
+0x6FCF,
+0x6FBF,
+0x6FB8,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6FA2,
+0x6FC9,
+0x6FAB,
+0x6FCD,
+0x6FAF,
+0x6FB2,
+0x6FB0,
+0x71C5,
+0x71C2,
+0x71BF,
+0x71B8,
+0x71D6,
+0x71C0,
+0x71C1,
+0x71CB,
+0x71D4,
+0x71CA,
+0x71C7,
+0x71CF,
+0x71BD,
+0x71D8,
+0x71BC,
+0x71C6,
+0x71DA,
+0x71DB,
+0x729D,
+0x729E,
+0x7369,
+0x7366,
+0x7367,
+0x736C,
+0x7365,
+0x736B,
+0x736A,
+0x747F,
+0x749A,
+0x74A0,
+0x7494,
+0x7492,
+0x7495,
+0x74A1,
+0x750B,
+0x7580,
+0x762F,
+0x762D,
+0x7631,
+0x763D,
+0x7633,
+0x763C,
+0x7635,
+0x7632,
+0x7630,
+0x76BB,
+0x76E6,
+0x779A,
+0x779D,
+0x77A1,
+0x779C,
+0x779B,
+0x77A2,
+0x77A3,
+0x7795,
+0x7799,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7797,
+0x78DD,
+0x78E9,
+0x78E5,
+0x78EA,
+0x78DE,
+0x78E3,
+0x78DB,
+0x78E1,
+0x78E2,
+0x78ED,
+0x78DF,
+0x78E0,
+0x79A4,
+0x7A44,
+0x7A48,
+0x7A47,
+0x7AB6,
+0x7AB8,
+0x7AB5,
+0x7AB1,
+0x7AB7,
+0x7BDE,
+0x7BE3,
+0x7BE7,
+0x7BDD,
+0x7BD5,
+0x7BE5,
+0x7BDA,
+0x7BE8,
+0x7BF9,
+0x7BD4,
+0x7BEA,
+0x7BE2,
+0x7BDC,
+0x7BEB,
+0x7BD8,
+0x7BDF,
+0x7CD2,
+0x7CD4,
+0x7CD7,
+0x7CD0,
+0x7CD1,
+0x7E12,
+0x7E21,
+0x7E17,
+0x7E0C,
+0x7E1F,
+0x7E20,
+0x7E13,
+0x7E0E,
+0x7E1C,
+0x7E15,
+0x7E1A,
+0x7E22,
+0x7E0B,
+0x7E0F,
+0x7E16,
+0x7E0D,
+0x7E14,
+0x7E25,
+0x7E24,
+0x7F43,
+0x7F7B,
+0x7F7C,
+0x7F7A,
+0x7FB1,
+0x7FEF,
+0x802A,
+0x8029,
+0x806C,
+0x81B1,
+0x81A6,
+0x81AE,
+0x81B9,
+0x81B5,
+0x81AB,
+0x81B0,
+0x81AC,
+0x81B4,
+0x81B2,
+0x81B7,
+0x81A7,
+0x81F2,
+0x8255,
+0x8256,
+0x8257,
+0x8556,
+0x8545,
+0x856B,
+0x854D,
+0x8553,
+0x8561,
+0x8558,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8540,
+0x8546,
+0x8564,
+0x8541,
+0x8562,
+0x8544,
+0x8551,
+0x8547,
+0x8563,
+0x853E,
+0x855B,
+0x8571,
+0x854E,
+0x856E,
+0x8575,
+0x8555,
+0x8567,
+0x8560,
+0x858C,
+0x8566,
+0x855D,
+0x8554,
+0x8565,
+0x856C,
+0x8663,
+0x8665,
+0x8664,
+0x879B,
+0x878F,
+0x8797,
+0x8793,
+0x8792,
+0x8788,
+0x8781,
+0x8796,
+0x8798,
+0x8779,
+0x8787,
+0x87A3,
+0x8785,
+0x8790,
+0x8791,
+0x879D,
+0x8784,
+0x8794,
+0x879C,
+0x879A,
+0x8789,
+0x891E,
+0x8926,
+0x8930,
+0x892D,
+0x892E,
+0x8927,
+0x8931,
+0x8922,
+0x8929,
+0x8923,
+0x892F,
+0x892C,
+0x891F,
+0x89F1,
+0x8AE0,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8AE2,
+0x8AF2,
+0x8AF4,
+0x8AF5,
+0x8ADD,
+0x8B14,
+0x8AE4,
+0x8ADF,
+0x8AF0,
+0x8AC8,
+0x8ADE,
+0x8AE1,
+0x8AE8,
+0x8AFF,
+0x8AEF,
+0x8AFB,
+0x8C91,
+0x8C92,
+0x8C90,
+0x8CF5,
+0x8CEE,
+0x8CF1,
+0x8CF0,
+0x8CF3,
+0x8D6C,
+0x8D6E,
+0x8DA5,
+0x8DA7,
+0x8E33,
+0x8E3E,
+0x8E38,
+0x8E40,
+0x8E45,
+0x8E36,
+0x8E3C,
+0x8E3D,
+0x8E41,
+0x8E30,
+0x8E3F,
+0x8EBD,
+0x8F36,
+0x8F2E,
+0x8F35,
+0x8F32,
+0x8F39,
+0x8F37,
+0x8F34,
+0x9076,
+0x9079,
+0x907B,
+0x9086,
+0x90FA,
+0x9133,
+0x9135,
+0x9136,
+0x9193,
+0x9190,
+0x9191,
+0x918D,
+0x918F,
+0x9327,
+0x931E,
+0x9308,
+0x931F,
+0x9306,
+0x930F,
+0x937A,
+0x9338,
+0x933C,
+0x931B,
+0x9323,
+0x9312,
+0x9301,
+0x9346,
+0x932D,
+0x930E,
+0x930D,
+0x92CB,
+0x931D,
+0x92FA,
+0x9325,
+0x9313,
+0x92F9,
+0x92F7,
+0x9334,
+0x9302,
+0x9324,
+0x92FF,
+0x9329,
+0x9339,
+0x9335,
+0x932A,
+0x9314,
+0x930C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x930B,
+0x92FE,
+0x9309,
+0x9300,
+0x92FB,
+0x9316,
+0x95BC,
+0x95CD,
+0x95BE,
+0x95B9,
+0x95BA,
+0x95B6,
+0x95BF,
+0x95B5,
+0x95BD,
+0x96A9,
+0x96D4,
+0x970B,
+0x9712,
+0x9710,
+0x9799,
+0x9797,
+0x9794,
+0x97F0,
+0x97F8,
+0x9835,
+0x982F,
+0x9832,
+0x9924,
+0x991F,
+0x9927,
+0x9929,
+0x999E,
+0x99EE,
+0x99EC,
+0x99E5,
+0x99E4,
+0x99F0,
+0x99E3,
+0x99EA,
+0x99E9,
+0x99E7,
+0x9AB9,
+0x9ABF,
+0x9AB4,
+0x9ABB,
+0x9AF6,
+0x9AFA,
+0x9AF9,
+0x9AF7,
+0x9B33,
+0x9B80,
+0x9B85,
+0x9B87,
+0x9B7C,
+0x9B7E,
+0x9B7B,
+0x9B82,
+0x9B93,
+0x9B92,
+0x9B90,
+0x9B7A,
+0x9B95,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9B7D,
+0x9B88,
+0x9D25,
+0x9D17,
+0x9D20,
+0x9D1E,
+0x9D14,
+0x9D29,
+0x9D1D,
+0x9D18,
+0x9D22,
+0x9D10,
+0x9D19,
+0x9D1F,
+0x9E88,
+0x9E86,
+0x9E87,
+0x9EAE,
+0x9EAD,
+0x9ED5,
+0x9ED6,
+0x9EFA,
+0x9F12,
+0x9F3D,
+0x5126,
+0x5125,
+0x5122,
+0x5124,
+0x5120,
+0x5129,
+0x52F4,
+0x5693,
+0x568C,
+0x568D,
+0x5686,
+0x5684,
+0x5683,
+0x567E,
+0x5682,
+0x567F,
+0x5681,
+0x58D6,
+0x58D4,
+0x58CF,
+0x58D2,
+0x5B2D,
+0x5B25,
+0x5B32,
+0x5B23,
+0x5B2C,
+0x5B27,
+0x5B26,
+0x5B2F,
+0x5B2E,
+0x5B7B,
+0x5BF1,
+0x5BF2,
+0x5DB7,
+0x5E6C,
+0x5E6A,
+0x5FBE,
+0x5FBB,
+0x61C3,
+0x61B5,
+0x61BC,
+0x61E7,
+0x61E0,
+0x61E5,
+0x61E4,
+0x61E8,
+0x61DE,
+0x64EF,
+0x64E9,
+0x64E3,
+0x64EB,
+0x64E4,
+0x64E8,
+0x6581,
+0x6580,
+0x65B6,
+0x65DA,
+0x66D2,
+0x6A8D,
+0x6A96,
+0x6A81,
+0x6AA5,
+0x6A89,
+0x6A9F,
+0x6A9B,
+0x6AA1,
+0x6A9E,
+0x6A87,
+0x6A93,
+0x6A8E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6A95,
+0x6A83,
+0x6AA8,
+0x6AA4,
+0x6A91,
+0x6A7F,
+0x6AA6,
+0x6A9A,
+0x6A85,
+0x6A8C,
+0x6A92,
+0x6B5B,
+0x6BAD,
+0x6C09,
+0x6FCC,
+0x6FA9,
+0x6FF4,
+0x6FD4,
+0x6FE3,
+0x6FDC,
+0x6FED,
+0x6FE7,
+0x6FE6,
+0x6FDE,
+0x6FF2,
+0x6FDD,
+0x6FE2,
+0x6FE8,
+0x71E1,
+0x71F1,
+0x71E8,
+0x71F2,
+0x71E4,
+0x71F0,
+0x71E2,
+0x7373,
+0x736E,
+0x736F,
+0x7497,
+0x74B2,
+0x74AB,
+0x7490,
+0x74AA,
+0x74AD,
+0x74B1,
+0x74A5,
+0x74AF,
+0x7510,
+0x7511,
+0x7512,
+0x750F,
+0x7584,
+0x7643,
+0x7648,
+0x7649,
+0x7647,
+0x76A4,
+0x76E9,
+0x77B5,
+0x77AB,
+0x77B2,
+0x77B7,
+0x77B6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x77B4,
+0x77B1,
+0x77A8,
+0x77F0,
+0x78F3,
+0x78FD,
+0x7902,
+0x78FB,
+0x78FC,
+0x78F2,
+0x7905,
+0x78F9,
+0x78FE,
+0x7904,
+0x79AB,
+0x79A8,
+0x7A5C,
+0x7A5B,
+0x7A56,
+0x7A58,
+0x7A54,
+0x7A5A,
+0x7ABE,
+0x7AC0,
+0x7AC1,
+0x7C05,
+0x7C0F,
+0x7BF2,
+0x7C00,
+0x7BFF,
+0x7BFB,
+0x7C0E,
+0x7BF4,
+0x7C0B,
+0x7BF3,
+0x7C02,
+0x7C09,
+0x7C03,
+0x7C01,
+0x7BF8,
+0x7BFD,
+0x7C06,
+0x7BF0,
+0x7BF1,
+0x7C10,
+0x7C0A,
+0x7CE8,
+0x7E2D,
+0x7E3C,
+0x7E42,
+0x7E33,
+0x9848,
+0x7E38,
+0x7E2A,
+0x7E49,
+0x7E40,
+0x7E47,
+0x7E29,
+0x7E4C,
+0x7E30,
+0x7E3B,
+0x7E36,
+0x7E44,
+0x7E3A,
+0x7F45,
+0x7F7F,
+0x7F7E,
+0x7F7D,
+0x7FF4,
+0x7FF2,
+0x802C,
+0x81BB,
+0x81C4,
+0x81CC,
+0x81CA,
+0x81C5,
+0x81C7,
+0x81BC,
+0x81E9,
+0x825B,
+0x825A,
+0x825C,
+0x8583,
+0x8580,
+0x858F,
+0x85A7,
+0x8595,
+0x85A0,
+0x858B,
+0x85A3,
+0x857B,
+0x85A4,
+0x859A,
+0x859E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8577,
+0x857C,
+0x8589,
+0x85A1,
+0x857A,
+0x8578,
+0x8557,
+0x858E,
+0x8596,
+0x8586,
+0x858D,
+0x8599,
+0x859D,
+0x8581,
+0x85A2,
+0x8582,
+0x8588,
+0x8585,
+0x8579,
+0x8576,
+0x8598,
+0x8590,
+0x859F,
+0x8668,
+0x87BE,
+0x87AA,
+0x87AD,
+0x87C5,
+0x87B0,
+0x87AC,
+0x87B9,
+0x87B5,
+0x87BC,
+0x87AE,
+0x87C9,
+0x87C3,
+0x87C2,
+0x87CC,
+0x87B7,
+0x87AF,
+0x87C4,
+0x87CA,
+0x87B4,
+0x87B6,
+0x87BF,
+0x87B8,
+0x87BD,
+0x87DE,
+0x87B2,
+0x8935,
+0x8933,
+0x893C,
+0x893E,
+0x8941,
+0x8952,
+0x8937,
+0x8942,
+0x89AD,
+0x89AF,
+0x89AE,
+0x89F2,
+0x89F3,
+0x8B1E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8B18,
+0x8B16,
+0x8B11,
+0x8B05,
+0x8B0B,
+0x8B22,
+0x8B0F,
+0x8B12,
+0x8B15,
+0x8B07,
+0x8B0D,
+0x8B08,
+0x8B06,
+0x8B1C,
+0x8B13,
+0x8B1A,
+0x8C4F,
+0x8C70,
+0x8C72,
+0x8C71,
+0x8C6F,
+0x8C95,
+0x8C94,
+0x8CF9,
+0x8D6F,
+0x8E4E,
+0x8E4D,
+0x8E53,
+0x8E50,
+0x8E4C,
+0x8E47,
+0x8F43,
+0x8F40,
+0x9085,
+0x907E,
+0x9138,
+0x919A,
+0x91A2,
+0x919B,
+0x9199,
+0x919F,
+0x91A1,
+0x919D,
+0x91A0,
+0x93A1,
+0x9383,
+0x93AF,
+0x9364,
+0x9356,
+0x9347,
+0x937C,
+0x9358,
+0x935C,
+0x9376,
+0x9349,
+0x9350,
+0x9351,
+0x9360,
+0x936D,
+0x938F,
+0x934C,
+0x936A,
+0x9379,
+0x9357,
+0x9355,
+0x9352,
+0x934F,
+0x9371,
+0x9377,
+0x937B,
+0x9361,
+0x935E,
+0x9363,
+0x9367,
+0x9380,
+0x934E,
+0x9359,
+0x95C7,
+0x95C0,
+0x95C9,
+0x95C3,
+0x95C5,
+0x95B7,
+0x96AE,
+0x96B0,
+0x96AC,
+0x9720,
+0x971F,
+0x9718,
+0x971D,
+0x9719,
+0x979A,
+0x97A1,
+0x979C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x979E,
+0x979D,
+0x97D5,
+0x97D4,
+0x97F1,
+0x9841,
+0x9844,
+0x984A,
+0x9849,
+0x9845,
+0x9843,
+0x9925,
+0x992B,
+0x992C,
+0x992A,
+0x9933,
+0x9932,
+0x992F,
+0x992D,
+0x9931,
+0x9930,
+0x9998,
+0x99A3,
+0x99A1,
+0x9A02,
+0x99FA,
+0x99F4,
+0x99F7,
+0x99F9,
+0x99F8,
+0x99F6,
+0x99FB,
+0x99FD,
+0x99FE,
+0x99FC,
+0x9A03,
+0x9ABE,
+0x9AFE,
+0x9AFD,
+0x9B01,
+0x9AFC,
+0x9B48,
+0x9B9A,
+0x9BA8,
+0x9B9E,
+0x9B9B,
+0x9BA6,
+0x9BA1,
+0x9BA5,
+0x9BA4,
+0x9B86,
+0x9BA2,
+0x9BA0,
+0x9BAF,
+0x9D33,
+0x9D41,
+0x9D67,
+0x9D36,
+0x9D2E,
+0x9D2F,
+0x9D31,
+0x9D38,
+0x9D30,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9D45,
+0x9D42,
+0x9D43,
+0x9D3E,
+0x9D37,
+0x9D40,
+0x9D3D,
+0x7FF5,
+0x9D2D,
+0x9E8A,
+0x9E89,
+0x9E8D,
+0x9EB0,
+0x9EC8,
+0x9EDA,
+0x9EFB,
+0x9EFF,
+0x9F24,
+0x9F23,
+0x9F22,
+0x9F54,
+0x9FA0,
+0x5131,
+0x512D,
+0x512E,
+0x5698,
+0x569C,
+0x5697,
+0x569A,
+0x569D,
+0x5699,
+0x5970,
+0x5B3C,
+0x5C69,
+0x5C6A,
+0x5DC0,
+0x5E6D,
+0x5E6E,
+0x61D8,
+0x61DF,
+0x61ED,
+0x61EE,
+0x61F1,
+0x61EA,
+0x61F0,
+0x61EB,
+0x61D6,
+0x61E9,
+0x64FF,
+0x6504,
+0x64FD,
+0x64F8,
+0x6501,
+0x6503,
+0x64FC,
+0x6594,
+0x65DB,
+0x66DA,
+0x66DB,
+0x66D8,
+0x6AC5,
+0x6AB9,
+0x6ABD,
+0x6AE1,
+0x6AC6,
+0x6ABA,
+0x6AB6,
+0x6AB7,
+0x6AC7,
+0x6AB4,
+0x6AAD,
+0x6B5E,
+0x6BC9,
+0x6C0B,
+0x7007,
+0x700C,
+0x700D,
+0x7001,
+0x7005,
+0x7014,
+0x700E,
+0x6FFF,
+0x7000,
+0x6FFB,
+0x7026,
+0x6FFC,
+0x6FF7,
+0x700A,
+0x7201,
+0x71FF,
+0x71F9,
+0x7203,
+0x71FD,
+0x7376,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x74B8,
+0x74C0,
+0x74B5,
+0x74C1,
+0x74BE,
+0x74B6,
+0x74BB,
+0x74C2,
+0x7514,
+0x7513,
+0x765C,
+0x7664,
+0x7659,
+0x7650,
+0x7653,
+0x7657,
+0x765A,
+0x76A6,
+0x76BD,
+0x76EC,
+0x77C2,
+0x77BA,
+0x78FF,
+0x790C,
+0x7913,
+0x7914,
+0x7909,
+0x7910,
+0x7912,
+0x7911,
+0x79AD,
+0x79AC,
+0x7A5F,
+0x7C1C,
+0x7C29,
+0x7C19,
+0x7C20,
+0x7C1F,
+0x7C2D,
+0x7C1D,
+0x7C26,
+0x7C28,
+0x7C22,
+0x7C25,
+0x7C30,
+0x7E5C,
+0x7E50,
+0x7E56,
+0x7E63,
+0x7E58,
+0x7E62,
+0x7E5F,
+0x7E51,
+0x7E60,
+0x7E57,
+0x7E53,
+0x7FB5,
+0x7FB3,
+0x7FF7,
+0x7FF8,
+0x8075,
+0x81D1,
+0x81D2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x81D0,
+0x825F,
+0x825E,
+0x85B4,
+0x85C6,
+0x85C0,
+0x85C3,
+0x85C2,
+0x85B3,
+0x85B5,
+0x85BD,
+0x85C7,
+0x85C4,
+0x85BF,
+0x85CB,
+0x85CE,
+0x85C8,
+0x85C5,
+0x85B1,
+0x85B6,
+0x85D2,
+0x8624,
+0x85B8,
+0x85B7,
+0x85BE,
+0x8669,
+0x87E7,
+0x87E6,
+0x87E2,
+0x87DB,
+0x87EB,
+0x87EA,
+0x87E5,
+0x87DF,
+0x87F3,
+0x87E4,
+0x87D4,
+0x87DC,
+0x87D3,
+0x87ED,
+0x87D8,
+0x87E3,
+0x87A4,
+0x87D7,
+0x87D9,
+0x8801,
+0x87F4,
+0x87E8,
+0x87DD,
+0x8953,
+0x894B,
+0x894F,
+0x894C,
+0x8946,
+0x8950,
+0x8951,
+0x8949,
+0x8B2A,
+0x8B27,
+0x8B23,
+0x8B33,
+0x8B30,
+0x8B35,
+0x8B47,
+0x8B2F,
+0x8B3C,
+0x8B3E,
+0x8B31,
+0x8B25,
+0x8B37,
+0x8B26,
+0x8B36,
+0x8B2E,
+0x8B24,
+0x8B3B,
+0x8B3D,
+0x8B3A,
+0x8C42,
+0x8C75,
+0x8C99,
+0x8C98,
+0x8C97,
+0x8CFE,
+0x8D04,
+0x8D02,
+0x8D00,
+0x8E5C,
+0x8E62,
+0x8E60,
+0x8E57,
+0x8E56,
+0x8E5E,
+0x8E65,
+0x8E67,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8E5B,
+0x8E5A,
+0x8E61,
+0x8E5D,
+0x8E69,
+0x8E54,
+0x8F46,
+0x8F47,
+0x8F48,
+0x8F4B,
+0x9128,
+0x913A,
+0x913B,
+0x913E,
+0x91A8,
+0x91A5,
+0x91A7,
+0x91AF,
+0x91AA,
+0x93B5,
+0x938C,
+0x9392,
+0x93B7,
+0x939B,
+0x939D,
+0x9389,
+0x93A7,
+0x938E,
+0x93AA,
+0x939E,
+0x93A6,
+0x9395,
+0x9388,
+0x9399,
+0x939F,
+0x938D,
+0x93B1,
+0x9391,
+0x93B2,
+0x93A4,
+0x93A8,
+0x93B4,
+0x93A3,
+0x93A5,
+0x95D2,
+0x95D3,
+0x95D1,
+0x96B3,
+0x96D7,
+0x96DA,
+0x5DC2,
+0x96DF,
+0x96D8,
+0x96DD,
+0x9723,
+0x9722,
+0x9725,
+0x97AC,
+0x97AE,
+0x97A8,
+0x97AB,
+0x97A4,
+0x97AA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x97A2,
+0x97A5,
+0x97D7,
+0x97D9,
+0x97D6,
+0x97D8,
+0x97FA,
+0x9850,
+0x9851,
+0x9852,
+0x98B8,
+0x9941,
+0x993C,
+0x993A,
+0x9A0F,
+0x9A0B,
+0x9A09,
+0x9A0D,
+0x9A04,
+0x9A11,
+0x9A0A,
+0x9A05,
+0x9A07,
+0x9A06,
+0x9AC0,
+0x9ADC,
+0x9B08,
+0x9B04,
+0x9B05,
+0x9B29,
+0x9B35,
+0x9B4A,
+0x9B4C,
+0x9B4B,
+0x9BC7,
+0x9BC6,
+0x9BC3,
+0x9BBF,
+0x9BC1,
+0x9BB5,
+0x9BB8,
+0x9BD3,
+0x9BB6,
+0x9BC4,
+0x9BB9,
+0x9BBD,
+0x9D5C,
+0x9D53,
+0x9D4F,
+0x9D4A,
+0x9D5B,
+0x9D4B,
+0x9D59,
+0x9D56,
+0x9D4C,
+0x9D57,
+0x9D52,
+0x9D54,
+0x9D5F,
+0x9D58,
+0x9D5A,
+0x9E8E,
+0x9E8C,
+0x9EDF,
+0x9F01,
+0x9F00,
+0x9F16,
+0x9F25,
+0x9F2B,
+0x9F2A,
+0x9F29,
+0x9F28,
+0x9F4C,
+0x9F55,
+0x5134,
+0x5135,
+0x5296,
+0x52F7,
+0x53B4,
+0x56AB,
+0x56AD,
+0x56A6,
+0x56A7,
+0x56AA,
+0x56AC,
+0x58DA,
+0x58DD,
+0x58DB,
+0x5912,
+0x5B3D,
+0x5B3E,
+0x5B3F,
+0x5DC3,
+0x5E70,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5FBF,
+0x61FB,
+0x6507,
+0x6510,
+0x650D,
+0x6509,
+0x650C,
+0x650E,
+0x6584,
+0x65DE,
+0x65DD,
+0x66DE,
+0x6AE7,
+0x6AE0,
+0x6ACC,
+0x6AD1,
+0x6AD9,
+0x6ACB,
+0x6ADF,
+0x6ADC,
+0x6AD0,
+0x6AEB,
+0x6ACF,
+0x6ACD,
+0x6ADE,
+0x6B60,
+0x6BB0,
+0x6C0C,
+0x7019,
+0x7027,
+0x7020,
+0x7016,
+0x702B,
+0x7021,
+0x7022,
+0x7023,
+0x7029,
+0x7017,
+0x7024,
+0x701C,
+0x702A,
+0x720C,
+0x720A,
+0x7207,
+0x7202,
+0x7205,
+0x72A5,
+0x72A6,
+0x72A4,
+0x72A3,
+0x72A1,
+0x74CB,
+0x74C5,
+0x74B7,
+0x74C3,
+0x7516,
+0x7660,
+0x77C9,
+0x77CA,
+0x77C4,
+0x77F1,
+0x791D,
+0x791B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7921,
+0x791C,
+0x7917,
+0x791E,
+0x79B0,
+0x7A67,
+0x7A68,
+0x7C33,
+0x7C3C,
+0x7C39,
+0x7C2C,
+0x7C3B,
+0x7CEC,
+0x7CEA,
+0x7E76,
+0x7E75,
+0x7E78,
+0x7E70,
+0x7E77,
+0x7E6F,
+0x7E7A,
+0x7E72,
+0x7E74,
+0x7E68,
+0x7F4B,
+0x7F4A,
+0x7F83,
+0x7F86,
+0x7FB7,
+0x7FFD,
+0x7FFE,
+0x8078,
+0x81D7,
+0x81D5,
+0x8264,
+0x8261,
+0x8263,
+0x85EB,
+0x85F1,
+0x85ED,
+0x85D9,
+0x85E1,
+0x85E8,
+0x85DA,
+0x85D7,
+0x85EC,
+0x85F2,
+0x85F8,
+0x85D8,
+0x85DF,
+0x85E3,
+0x85DC,
+0x85D1,
+0x85F0,
+0x85E6,
+0x85EF,
+0x85DE,
+0x85E2,
+0x8800,
+0x87FA,
+0x8803,
+0x87F6,
+0x87F7,
+0x8809,
+0x880C,
+0x880B,
+0x8806,
+0x87FC,
+0x8808,
+0x87FF,
+0x880A,
+0x8802,
+0x8962,
+0x895A,
+0x895B,
+0x8957,
+0x8961,
+0x895C,
+0x8958,
+0x895D,
+0x8959,
+0x8988,
+0x89B7,
+0x89B6,
+0x89F6,
+0x8B50,
+0x8B48,
+0x8B4A,
+0x8B40,
+0x8B53,
+0x8B56,
+0x8B54,
+0x8B4B,
+0x8B55,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8B51,
+0x8B42,
+0x8B52,
+0x8B57,
+0x8C43,
+0x8C77,
+0x8C76,
+0x8C9A,
+0x8D06,
+0x8D07,
+0x8D09,
+0x8DAC,
+0x8DAA,
+0x8DAD,
+0x8DAB,
+0x8E6D,
+0x8E78,
+0x8E73,
+0x8E6A,
+0x8E6F,
+0x8E7B,
+0x8EC2,
+0x8F52,
+0x8F51,
+0x8F4F,
+0x8F50,
+0x8F53,
+0x8FB4,
+0x9140,
+0x913F,
+0x91B0,
+0x91AD,
+0x93DE,
+0x93C7,
+0x93CF,
+0x93C2,
+0x93DA,
+0x93D0,
+0x93F9,
+0x93EC,
+0x93CC,
+0x93D9,
+0x93A9,
+0x93E6,
+0x93CA,
+0x93D4,
+0x93EE,
+0x93E3,
+0x93D5,
+0x93C4,
+0x93CE,
+0x93C0,
+0x93D2,
+0x93E7,
+0x957D,
+0x95DA,
+0x95DB,
+0x96E1,
+0x9729,
+0x972B,
+0x972C,
+0x9728,
+0x9726,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x97B3,
+0x97B7,
+0x97B6,
+0x97DD,
+0x97DE,
+0x97DF,
+0x985C,
+0x9859,
+0x985D,
+0x9857,
+0x98BF,
+0x98BD,
+0x98BB,
+0x98BE,
+0x9948,
+0x9947,
+0x9943,
+0x99A6,
+0x99A7,
+0x9A1A,
+0x9A15,
+0x9A25,
+0x9A1D,
+0x9A24,
+0x9A1B,
+0x9A22,
+0x9A20,
+0x9A27,
+0x9A23,
+0x9A1E,
+0x9A1C,
+0x9A14,
+0x9AC2,
+0x9B0B,
+0x9B0A,
+0x9B0E,
+0x9B0C,
+0x9B37,
+0x9BEA,
+0x9BEB,
+0x9BE0,
+0x9BDE,
+0x9BE4,
+0x9BE6,
+0x9BE2,
+0x9BF0,
+0x9BD4,
+0x9BD7,
+0x9BEC,
+0x9BDC,
+0x9BD9,
+0x9BE5,
+0x9BD5,
+0x9BE1,
+0x9BDA,
+0x9D77,
+0x9D81,
+0x9D8A,
+0x9D84,
+0x9D88,
+0x9D71,
+0x9D80,
+0x9D78,
+0x9D86,
+0x9D8B,
+0x9D8C,
+0x9D7D,
+0x9D6B,
+0x9D74,
+0x9D75,
+0x9D70,
+0x9D69,
+0x9D85,
+0x9D73,
+0x9D7B,
+0x9D82,
+0x9D6F,
+0x9D79,
+0x9D7F,
+0x9D87,
+0x9D68,
+0x9E94,
+0x9E91,
+0x9EC0,
+0x9EFC,
+0x9F2D,
+0x9F40,
+0x9F41,
+0x9F4D,
+0x9F56,
+0x9F57,
+0x9F58,
+0x5337,
+0x56B2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x56B5,
+0x56B3,
+0x58E3,
+0x5B45,
+0x5DC6,
+0x5DC7,
+0x5EEE,
+0x5EEF,
+0x5FC0,
+0x5FC1,
+0x61F9,
+0x6517,
+0x6516,
+0x6515,
+0x6513,
+0x65DF,
+0x66E8,
+0x66E3,
+0x66E4,
+0x6AF3,
+0x6AF0,
+0x6AEA,
+0x6AE8,
+0x6AF9,
+0x6AF1,
+0x6AEE,
+0x6AEF,
+0x703C,
+0x7035,
+0x702F,
+0x7037,
+0x7034,
+0x7031,
+0x7042,
+0x7038,
+0x703F,
+0x703A,
+0x7039,
+0x7040,
+0x703B,
+0x7033,
+0x7041,
+0x7213,
+0x7214,
+0x72A8,
+0x737D,
+0x737C,
+0x74BA,
+0x76AB,
+0x76AA,
+0x76BE,
+0x76ED,
+0x77CC,
+0x77CE,
+0x77CF,
+0x77CD,
+0x77F2,
+0x7925,
+0x7923,
+0x7927,
+0x7928,
+0x7924,
+0x7929,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x79B2,
+0x7A6E,
+0x7A6C,
+0x7A6D,
+0x7AF7,
+0x7C49,
+0x7C48,
+0x7C4A,
+0x7C47,
+0x7C45,
+0x7CEE,
+0x7E7B,
+0x7E7E,
+0x7E81,
+0x7E80,
+0x7FBA,
+0x7FFF,
+0x8079,
+0x81DB,
+0x81D9,
+0x820B,
+0x8268,
+0x8269,
+0x8622,
+0x85FF,
+0x8601,
+0x85FE,
+0x861B,
+0x8600,
+0x85F6,
+0x8604,
+0x8609,
+0x8605,
+0x860C,
+0x85FD,
+0x8819,
+0x8810,
+0x8811,
+0x8817,
+0x8813,
+0x8816,
+0x8963,
+0x8966,
+0x89B9,
+0x89F7,
+0x8B60,
+0x8B6A,
+0x8B5D,
+0x8B68,
+0x8B63,
+0x8B65,
+0x8B67,
+0x8B6D,
+0x8DAE,
+0x8E86,
+0x8E88,
+0x8E84,
+0x8F59,
+0x8F56,
+0x8F57,
+0x8F55,
+0x8F58,
+0x8F5A,
+0x908D,
+0x9143,
+0x9141,
+0x91B7,
+0x91B5,
+0x91B2,
+0x91B3,
+0x940B,
+0x9413,
+0x93FB,
+0x9420,
+0x940F,
+0x9414,
+0x93FE,
+0x9415,
+0x9410,
+0x9428,
+0x9419,
+0x940D,
+0x93F5,
+0x9400,
+0x93F7,
+0x9407,
+0x940E,
+0x9416,
+0x9412,
+0x93FA,
+0x9409,
+0x93F8,
+0x940A,
+0x93FF,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x93FC,
+0x940C,
+0x93F6,
+0x9411,
+0x9406,
+0x95DE,
+0x95E0,
+0x95DF,
+0x972E,
+0x972F,
+0x97B9,
+0x97BB,
+0x97FD,
+0x97FE,
+0x9860,
+0x9862,
+0x9863,
+0x985F,
+0x98C1,
+0x98C2,
+0x9950,
+0x994E,
+0x9959,
+0x994C,
+0x994B,
+0x9953,
+0x9A32,
+0x9A34,
+0x9A31,
+0x9A2C,
+0x9A2A,
+0x9A36,
+0x9A29,
+0x9A2E,
+0x9A38,
+0x9A2D,
+0x9AC7,
+0x9ACA,
+0x9AC6,
+0x9B10,
+0x9B12,
+0x9B11,
+0x9C0B,
+0x9C08,
+0x9BF7,
+0x9C05,
+0x9C12,
+0x9BF8,
+0x9C40,
+0x9C07,
+0x9C0E,
+0x9C06,
+0x9C17,
+0x9C14,
+0x9C09,
+0x9D9F,
+0x9D99,
+0x9DA4,
+0x9D9D,
+0x9D92,
+0x9D98,
+0x9D90,
+0x9D9B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9DA0,
+0x9D94,
+0x9D9C,
+0x9DAA,
+0x9D97,
+0x9DA1,
+0x9D9A,
+0x9DA2,
+0x9DA8,
+0x9D9E,
+0x9DA3,
+0x9DBF,
+0x9DA9,
+0x9D96,
+0x9DA6,
+0x9DA7,
+0x9E99,
+0x9E9B,
+0x9E9A,
+0x9EE5,
+0x9EE4,
+0x9EE7,
+0x9EE6,
+0x9F30,
+0x9F2E,
+0x9F5B,
+0x9F60,
+0x9F5E,
+0x9F5D,
+0x9F59,
+0x9F91,
+0x513A,
+0x5139,
+0x5298,
+0x5297,
+0x56C3,
+0x56BD,
+0x56BE,
+0x5B48,
+0x5B47,
+0x5DCB,
+0x5DCF,
+0x5EF1,
+0x61FD,
+0x651B,
+0x6B02,
+0x6AFC,
+0x6B03,
+0x6AF8,
+0x6B00,
+0x7043,
+0x7044,
+0x704A,
+0x7048,
+0x7049,
+0x7045,
+0x7046,
+0x721D,
+0x721A,
+0x7219,
+0x737E,
+0x7517,
+0x766A,
+0x77D0,
+0x792D,
+0x7931,
+0x792F,
+0x7C54,
+0x7C53,
+0x7CF2,
+0x7E8A,
+0x7E87,
+0x7E88,
+0x7E8B,
+0x7E86,
+0x7E8D,
+0x7F4D,
+0x7FBB,
+0x8030,
+0x81DD,
+0x8618,
+0x862A,
+0x8626,
+0x861F,
+0x8623,
+0x861C,
+0x8619,
+0x8627,
+0x862E,
+0x8621,
+0x8620,
+0x8629,
+0x861E,
+0x8625,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8829,
+0x881D,
+0x881B,
+0x8820,
+0x8824,
+0x881C,
+0x882B,
+0x884A,
+0x896D,
+0x8969,
+0x896E,
+0x896B,
+0x89FA,
+0x8B79,
+0x8B78,
+0x8B45,
+0x8B7A,
+0x8B7B,
+0x8D10,
+0x8D14,
+0x8DAF,
+0x8E8E,
+0x8E8C,
+0x8F5E,
+0x8F5B,
+0x8F5D,
+0x9146,
+0x9144,
+0x9145,
+0x91B9,
+0x943F,
+0x943B,
+0x9436,
+0x9429,
+0x943D,
+0x943C,
+0x9430,
+0x9439,
+0x942A,
+0x9437,
+0x942C,
+0x9440,
+0x9431,
+0x95E5,
+0x95E4,
+0x95E3,
+0x9735,
+0x973A,
+0x97BF,
+0x97E1,
+0x9864,
+0x98C9,
+0x98C6,
+0x98C0,
+0x9958,
+0x9956,
+0x9A39,
+0x9A3D,
+0x9A46,
+0x9A44,
+0x9A42,
+0x9A41,
+0x9A3A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9A3F,
+0x9ACD,
+0x9B15,
+0x9B17,
+0x9B18,
+0x9B16,
+0x9B3A,
+0x9B52,
+0x9C2B,
+0x9C1D,
+0x9C1C,
+0x9C2C,
+0x9C23,
+0x9C28,
+0x9C29,
+0x9C24,
+0x9C21,
+0x9DB7,
+0x9DB6,
+0x9DBC,
+0x9DC1,
+0x9DC7,
+0x9DCA,
+0x9DCF,
+0x9DBE,
+0x9DC5,
+0x9DC3,
+0x9DBB,
+0x9DB5,
+0x9DCE,
+0x9DB9,
+0x9DBA,
+0x9DAC,
+0x9DC8,
+0x9DB1,
+0x9DAD,
+0x9DCC,
+0x9DB3,
+0x9DCD,
+0x9DB2,
+0x9E7A,
+0x9E9C,
+0x9EEB,
+0x9EEE,
+0x9EED,
+0x9F1B,
+0x9F18,
+0x9F1A,
+0x9F31,
+0x9F4E,
+0x9F65,
+0x9F64,
+0x9F92,
+0x4EB9,
+0x56C6,
+0x56C5,
+0x56CB,
+0x5971,
+0x5B4B,
+0x5B4C,
+0x5DD5,
+0x5DD1,
+0x5EF2,
+0x6521,
+0x6520,
+0x6526,
+0x6522,
+0x6B0B,
+0x6B08,
+0x6B09,
+0x6C0D,
+0x7055,
+0x7056,
+0x7057,
+0x7052,
+0x721E,
+0x721F,
+0x72A9,
+0x737F,
+0x74D8,
+0x74D5,
+0x74D9,
+0x74D7,
+0x766D,
+0x76AD,
+0x7935,
+0x79B4,
+0x7A70,
+0x7A71,
+0x7C57,
+0x7C5C,
+0x7C59,
+0x7C5B,
+0x7C5A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7CF4,
+0x7CF1,
+0x7E91,
+0x7F4F,
+0x7F87,
+0x81DE,
+0x826B,
+0x8634,
+0x8635,
+0x8633,
+0x862C,
+0x8632,
+0x8636,
+0x882C,
+0x8828,
+0x8826,
+0x882A,
+0x8825,
+0x8971,
+0x89BF,
+0x89BE,
+0x89FB,
+0x8B7E,
+0x8B84,
+0x8B82,
+0x8B86,
+0x8B85,
+0x8B7F,
+0x8D15,
+0x8E95,
+0x8E94,
+0x8E9A,
+0x8E92,
+0x8E90,
+0x8E96,
+0x8E97,
+0x8F60,
+0x8F62,
+0x9147,
+0x944C,
+0x9450,
+0x944A,
+0x944B,
+0x944F,
+0x9447,
+0x9445,
+0x9448,
+0x9449,
+0x9446,
+0x973F,
+0x97E3,
+0x986A,
+0x9869,
+0x98CB,
+0x9954,
+0x995B,
+0x9A4E,
+0x9A53,
+0x9A54,
+0x9A4C,
+0x9A4F,
+0x9A48,
+0x9A4A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9A49,
+0x9A52,
+0x9A50,
+0x9AD0,
+0x9B19,
+0x9B2B,
+0x9B3B,
+0x9B56,
+0x9B55,
+0x9C46,
+0x9C48,
+0x9C3F,
+0x9C44,
+0x9C39,
+0x9C33,
+0x9C41,
+0x9C3C,
+0x9C37,
+0x9C34,
+0x9C32,
+0x9C3D,
+0x9C36,
+0x9DDB,
+0x9DD2,
+0x9DDE,
+0x9DDA,
+0x9DCB,
+0x9DD0,
+0x9DDC,
+0x9DD1,
+0x9DDF,
+0x9DE9,
+0x9DD9,
+0x9DD8,
+0x9DD6,
+0x9DF5,
+0x9DD5,
+0x9DDD,
+0x9EB6,
+0x9EF0,
+0x9F35,
+0x9F33,
+0x9F32,
+0x9F42,
+0x9F6B,
+0x9F95,
+0x9FA2,
+0x513D,
+0x5299,
+0x58E8,
+0x58E7,
+0x5972,
+0x5B4D,
+0x5DD8,
+0x882F,
+0x5F4F,
+0x6201,
+0x6203,
+0x6204,
+0x6529,
+0x6525,
+0x6596,
+0x66EB,
+0x6B11,
+0x6B12,
+0x6B0F,
+0x6BCA,
+0x705B,
+0x705A,
+0x7222,
+0x7382,
+0x7381,
+0x7383,
+0x7670,
+0x77D4,
+0x7C67,
+0x7C66,
+0x7E95,
+0x826C,
+0x863A,
+0x8640,
+0x8639,
+0x863C,
+0x8631,
+0x863B,
+0x863E,
+0x8830,
+0x8832,
+0x882E,
+0x8833,
+0x8976,
+0x8974,
+0x8973,
+0x89FE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8B8C,
+0x8B8E,
+0x8B8B,
+0x8B88,
+0x8C45,
+0x8D19,
+0x8E98,
+0x8F64,
+0x8F63,
+0x91BC,
+0x9462,
+0x9455,
+0x945D,
+0x9457,
+0x945E,
+0x97C4,
+0x97C5,
+0x9800,
+0x9A56,
+0x9A59,
+0x9B1E,
+0x9B1F,
+0x9B20,
+0x9C52,
+0x9C58,
+0x9C50,
+0x9C4A,
+0x9C4D,
+0x9C4B,
+0x9C55,
+0x9C59,
+0x9C4C,
+0x9C4E,
+0x9DFB,
+0x9DF7,
+0x9DEF,
+0x9DE3,
+0x9DEB,
+0x9DF8,
+0x9DE4,
+0x9DF6,
+0x9DE1,
+0x9DEE,
+0x9DE6,
+0x9DF2,
+0x9DF0,
+0x9DE2,
+0x9DEC,
+0x9DF4,
+0x9DF3,
+0x9DE8,
+0x9DED,
+0x9EC2,
+0x9ED0,
+0x9EF2,
+0x9EF3,
+0x9F06,
+0x9F1C,
+0x9F38,
+0x9F37,
+0x9F36,
+0x9F43,
+0x9F4F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9F71,
+0x9F70,
+0x9F6E,
+0x9F6F,
+0x56D3,
+0x56CD,
+0x5B4E,
+0x5C6D,
+0x652D,
+0x66ED,
+0x66EE,
+0x6B13,
+0x705F,
+0x7061,
+0x705D,
+0x7060,
+0x7223,
+0x74DB,
+0x74E5,
+0x77D5,
+0x7938,
+0x79B7,
+0x79B6,
+0x7C6A,
+0x7E97,
+0x7F89,
+0x826D,
+0x8643,
+0x8838,
+0x8837,
+0x8835,
+0x884B,
+0x8B94,
+0x8B95,
+0x8E9E,
+0x8E9F,
+0x8EA0,
+0x8E9D,
+0x91BE,
+0x91BD,
+0x91C2,
+0x946B,
+0x9468,
+0x9469,
+0x96E5,
+0x9746,
+0x9743,
+0x9747,
+0x97C7,
+0x97E5,
+0x9A5E,
+0x9AD5,
+0x9B59,
+0x9C63,
+0x9C67,
+0x9C66,
+0x9C62,
+0x9C5E,
+0x9C60,
+0x9E02,
+0x9DFE,
+0x9E07,
+0x9E03,
+0x9E06,
+0x9E05,
+0x9E00,
+0x9E01,
+0x9E09,
+0x9DFF,
+0x9DFD,
+0x9E04,
+0x9EA0,
+0x9F1E,
+0x9F46,
+0x9F74,
+0x9F75,
+0x9F76,
+0x56D4,
+0x652E,
+0x65B8,
+0x6B18,
+0x6B19,
+0x6B17,
+0x6B1A,
+0x7062,
+0x7226,
+0x72AA,
+0x77D8,
+0x77D9,
+0x7939,
+0x7C69,
+0x7C6B,
+0x7CF6,
+0x7E9A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7E98,
+0x7E9B,
+0x7E99,
+0x81E0,
+0x81E1,
+0x8646,
+0x8647,
+0x8648,
+0x8979,
+0x897A,
+0x897C,
+0x897B,
+0x89FF,
+0x8B98,
+0x8B99,
+0x8EA5,
+0x8EA4,
+0x8EA3,
+0x946E,
+0x946D,
+0x946F,
+0x9471,
+0x9473,
+0x9749,
+0x9872,
+0x995F,
+0x9C68,
+0x9C6E,
+0x9C6D,
+0x9E0B,
+0x9E0D,
+0x9E10,
+0x9E0F,
+0x9E12,
+0x9E11,
+0x9EA1,
+0x9EF5,
+0x9F09,
+0x9F47,
+0x9F78,
+0x9F7B,
+0x9F7A,
+0x9F79,
+0x571E,
+0x7066,
+0x7C6F,
+0x883C,
+0x8DB2,
+0x8EA6,
+0x91C3,
+0x9474,
+0x9478,
+0x9476,
+0x9475,
+0x9A60,
+0x9C74,
+0x9C73,
+0x9C71,
+0x9C75,
+0x9E14,
+0x9E13,
+0x9EF6,
+0x9F0A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9FA4,
+0x7068,
+0x7065,
+0x7CF7,
+0x866A,
+0x883E,
+0x883D,
+0x883F,
+0x8B9E,
+0x8C9C,
+0x8EA9,
+0x8EC9,
+0x974B,
+0x9873,
+0x9874,
+0x98CC,
+0x9961,
+0x99AB,
+0x9A64,
+0x9A66,
+0x9A67,
+0x9B24,
+0x9E15,
+0x9E17,
+0x9F48,
+0x6207,
+0x6B1E,
+0x7227,
+0x864C,
+0x8EA8,
+0x9482,
+0x9480,
+0x9481,
+0x9A69,
+0x9A68,
+0x9B2E,
+0x9E19,
+0x7229,
+0x864B,
+0x8B9F,
+0x9483,
+0x9C79,
+0x9EB7,
+0x7675,
+0x9A6B,
+0x9C7A,
+0x9E1D,
+0x7069,
+0x706A,
+0x9EA4,
+0x9F7E,
+0x9F49,
+0x9F98,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0
+};
+static CONST USHORT to_unicode_map[256] = {
+256,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+512,
+768,
+1024,
+1280,
+1536,
+1792,
+2048,
+2304,
+2560,
+2816,
+3072,
+3328,
+3584,
+3840,
+4096,
+4352,
+4608,
+4864,
+5120,
+5376,
+5632,
+5888,
+6144,
+6400,
+6656,
+6912,
+7168,
+7424,
+7680,
+7936,
+8192,
+8448,
+8704,
+8960,
+9216,
+9472,
+9728,
+9984,
+10240,
+0,
+10496,
+10752,
+11008,
+11264,
+11520,
+11776,
+12032,
+12288,
+12544,
+12800,
+13056,
+13312,
+13568,
+13824,
+14080,
+14336,
+14592,
+14848,
+15104,
+15360,
+15616,
+15872,
+16128,
+16384,
+16640,
+16896,
+17152,
+17408,
+17664,
+17920,
+18176,
+18432,
+18688,
+18944,
+19200,
+19456,
+19712,
+19968,
+20224,
+20480,
+20736,
+20992,
+21248,
+21504,
+21760,
+22016,
+22272,
+22528,
+22784,
+0,
+0,
+0,
+0,
+0,
+0,
+};
+
+
+static CONST USHORT FAR_VARIABLE from_unicode_mapping_array[] = {
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x0000,
+0x0001,
+0x0002,
+0x0003,
+0x0004,
+0x0005,
+0x0006,
+0x0007,
+0x0008,
+0x0009,
+0x000A,
+0x000B,
+0x000C,
+0x000D,
+0x000E,
+0x000F,
+0x0010,
+0x0011,
+0x0012,
+0x0013,
+0x0014,
+0x0015,
+0x0016,
+0x0017,
+0x0018,
+0x0019,
+0x001A,
+0x001B,
+0x001C,
+0x001D,
+0x001E,
+0x001F,
+0x0020,
+0x0021,
+0x0022,
+0x0023,
+0x0024,
+0x0025,
+0x0026,
+0x0027,
+0x0028,
+0x0029,
+0x002A,
+0x002B,
+0x002C,
+0x002D,
+0x002E,
+0x002F,
+0x0030,
+0x0031,
+0x0032,
+0x0033,
+0x0034,
+0x0035,
+0x0036,
+0x0037,
+0x0038,
+0x0039,
+0x003A,
+0x003B,
+0x003C,
+0x003D,
+0x003E,
+0x003F,
+0x0040,
+0x0041,
+0x0042,
+0x0043,
+0x0044,
+0x0045,
+0x0046,
+0x0047,
+0x0048,
+0x0049,
+0x004A,
+0x004B,
+0x004C,
+0x004D,
+0x004E,
+0x004F,
+0x0050,
+0x0051,
+0x0052,
+0x0053,
+0x0054,
+0x0055,
+0x0056,
+0x0057,
+0x0058,
+0x0059,
+0x005A,
+0x005B,
+0x005C,
+0x005D,
+0x005E,
+0x005F,
+0x0060,
+0x0061,
+0x0062,
+0x0063,
+0x0064,
+0x0065,
+0x0066,
+0x0067,
+0x0068,
+0x0069,
+0x006A,
+0x006B,
+0x006C,
+0x006D,
+0x006E,
+0x006F,
+0x0070,
+0x0071,
+0x0072,
+0x0073,
+0x0074,
+0x0075,
+0x0076,
+0x0077,
+0x0078,
+0x0079,
+0x007A,
+0x007B,
+0x007C,
+0x007D,
+0x007E,
+0x007F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA246,
+0xA247,
+0,
+0xA244,
+0,
+0xA1B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA258,
+0xA1D3,
+0,
+0,
+0,
+0,
+0,
+0xA150,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1D2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA3BE,
+0,
+0xA3BC,
+0xA3BD,
+0xA3BF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA3BB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA344,
+0xA345,
+0xA346,
+0xA347,
+0xA348,
+0xA349,
+0xA34A,
+0xA34B,
+0xA34C,
+0xA34D,
+0xA34E,
+0xA34F,
+0xA350,
+0xA351,
+0xA352,
+0xA353,
+0xA354,
+0,
+0xA355,
+0xA356,
+0xA357,
+0xA358,
+0xA359,
+0xA35A,
+0xA35B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA35C,
+0xA35D,
+0xA35E,
+0xA35F,
+0xA360,
+0xA361,
+0xA362,
+0xA363,
+0xA364,
+0xA365,
+0xA366,
+0xA367,
+0xA368,
+0xA369,
+0xA36A,
+0xA36B,
+0xA36C,
+0,
+0xA36D,
+0xA36E,
+0xA36F,
+0xA370,
+0xA371,
+0xA372,
+0xA373,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7B1,
+0xC7B2,
+0xC7B4,
+0xC7B5,
+0xC7B6,
+0xC7B7,
+0xC7B8,
+0xC7B9,
+0xC7BA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7BB,
+0xC7BC,
+0xC7BD,
+0xC7BE,
+0xC7BF,
+0xC7C0,
+0xC7C1,
+0xC7C2,
+0xC7C3,
+0xC7C4,
+0xC7C5,
+0xC7C6,
+0xC7C7,
+0xC7C8,
+0xC7C9,
+0xC7CA,
+0xC7CB,
+0xC7CC,
+0xC7CD,
+0xC7CF,
+0xC7D0,
+0xC7D1,
+0xC7D2,
+0xC7D3,
+0xC7D4,
+0xC7D5,
+0xC7D6,
+0xC7D7,
+0xC7D8,
+0xC7D9,
+0xC7DA,
+0xC7DB,
+0xC7DC,
+0xC7DD,
+0xC7DE,
+0xC7DF,
+0xC7E0,
+0xC7E1,
+0xC7E2,
+0xC7E3,
+0xC7E4,
+0xC7E5,
+0xC7E6,
+0xC7E7,
+0xC7E8,
+0,
+0xC7CE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA156,
+0xA158,
+0,
+0,
+0,
+0xA1A5,
+0xA1A6,
+0,
+0,
+0xA1A7,
+0xA1A8,
+0,
+0,
+0,
+0,
+0xA145,
+0,
+0,
+0xA14C,
+0xA14B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1AC,
+0,
+0,
+0xA1AB,
+0,
+0,
+0,
+0,
+0,
+0xA1B0,
+0,
+0,
+0xA1C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA24A,
+0,
+0xA1C1,
+0,
+0,
+0,
+0xA24B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2B9,
+0xA2BA,
+0xA2BB,
+0xA2BC,
+0xA2BD,
+0xA2BE,
+0xA2BF,
+0xA2C0,
+0xA2C1,
+0xA2C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1F6,
+0xA1F4,
+0xA1F7,
+0xA1F5,
+0,
+0,
+0xA1F8,
+0xA1F9,
+0xA1FB,
+0xA1FA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1D4,
+0,
+0,
+0,
+0xA1DB,
+0xA1E8,
+0xA1E7,
+0,
+0,
+0xA1FD,
+0,
+0xA1FC,
+0,
+0,
+0,
+0xA1E4,
+0xA1E5,
+0xA1EC,
+0,
+0,
+0xA1ED,
+0,
+0,
+0,
+0,
+0,
+0xA1EF,
+0xA1EE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1E3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1DA,
+0xA1DD,
+0,
+0,
+0,
+0,
+0xA1D8,
+0xA1D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1E6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1E9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7E9,
+0xC7EA,
+0xC7EB,
+0xC7EC,
+0xC7ED,
+0xC7EE,
+0xC7EF,
+0xC7F0,
+0xC7F1,
+0xC7F2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7F3,
+0xC7F4,
+0xC7F5,
+0xC7F6,
+0xC7F7,
+0xC7F8,
+0xC7F9,
+0xC7FA,
+0xC7FB,
+0xC7FC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA277,
+0,
+0xA278,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA27A,
+0,
+0,
+0,
+0xA27B,
+0,
+0,
+0,
+0xA27C,
+0,
+0,
+0,
+0xA27D,
+0,
+0,
+0,
+0xA275,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA274,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA273,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA272,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA271,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2A5,
+0,
+0,
+0xA2A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2A6,
+0,
+0,
+0xA27E,
+0xA2A1,
+0xA2A3,
+0xA2A2,
+0xA2AC,
+0xA2AD,
+0xA2AE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA262,
+0xA263,
+0xA264,
+0xA265,
+0xA266,
+0xA267,
+0xA268,
+0xA269,
+0xA270,
+0xA26F,
+0xA26E,
+0xA26D,
+0xA26C,
+0xA26B,
+0xA26A,
+0,
+0,
+0,
+0,
+0xA276,
+0xA279,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1BD,
+0xA1BC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1B6,
+0xA1B5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1BF,
+0xA1BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1BB,
+0xA1BA,
+0,
+0,
+0,
+0xA1B3,
+0,
+0,
+0xA1B7,
+0xA1B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2A8,
+0xA2A9,
+0xA2AB,
+0xA2AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1B9,
+0xA1B8,
+0,
+0,
+0xA1F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1F0,
+0xA1F2,
+0xA1F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA140,
+0xA142,
+0xA143,
+0xA1B2,
+0,
+0xC6A4,
+0,
+0,
+0xA171,
+0xA172,
+0xA16D,
+0xA16E,
+0xA175,
+0xA176,
+0xA179,
+0xA17A,
+0xA169,
+0xA16A,
+0xA245,
+0,
+0xA165,
+0xA166,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1A9,
+0xA1AA,
+0,
+0,
+0xA2C3,
+0xA2C4,
+0xA2C5,
+0xA2C6,
+0xA2C7,
+0xA2C8,
+0xA2C9,
+0xA2CA,
+0xA2CB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC6A5,
+0xC6A6,
+0xC6A7,
+0xC6A8,
+0xC6A9,
+0xC6AA,
+0xC6AB,
+0xC6AC,
+0xC6AD,
+0xC6AE,
+0xC6AF,
+0xC6B0,
+0xC6B1,
+0xC6B2,
+0xC6B3,
+0xC6B4,
+0xC6B5,
+0xC6B6,
+0xC6B7,
+0xC6B8,
+0xC6B9,
+0xC6BA,
+0xC6BB,
+0xC6BC,
+0xC6BD,
+0xC6BE,
+0xC6BF,
+0xC6C0,
+0xC6C1,
+0xC6C2,
+0xC6C3,
+0xC6C4,
+0xC6C5,
+0xC6C6,
+0xC6C7,
+0xC6C8,
+0xC6C9,
+0xC6CA,
+0xC6CB,
+0xC6CC,
+0xC6CD,
+0xC6CE,
+0xC6CF,
+0xC6D0,
+0xC6D1,
+0xC6D2,
+0xC6D3,
+0xC6D4,
+0xC6D5,
+0xC6D6,
+0xC6D7,
+0xC6D8,
+0xC6D9,
+0xC6DA,
+0xC6DB,
+0xC6DC,
+0xC6DD,
+0xC6DE,
+0xC6DF,
+0xC6E0,
+0xC6E1,
+0xC6E2,
+0xC6E3,
+0xC6E4,
+0xC6E5,
+0xC6E6,
+0xC6E7,
+0xC6E8,
+0xC6E9,
+0xC6EA,
+0xC6EB,
+0xC6EC,
+0xC6ED,
+0xC6EE,
+0xC6EF,
+0xC6F0,
+0xC6F1,
+0xC6F2,
+0xC6F3,
+0xC6F4,
+0xC6F5,
+0xC6F6,
+0xC6F7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC6A2,
+0xC6A3,
+0,
+0,
+0xC6F8,
+0xC6F9,
+0xC6FA,
+0xC6FB,
+0xC6FC,
+0xC6FD,
+0xC6FE,
+0xC740,
+0xC741,
+0xC742,
+0xC743,
+0xC744,
+0xC745,
+0xC746,
+0xC747,
+0xC748,
+0xC749,
+0xC74A,
+0xC74B,
+0xC74C,
+0xC74D,
+0xC74E,
+0xC74F,
+0xC750,
+0xC751,
+0xC752,
+0xC753,
+0xC754,
+0xC755,
+0xC756,
+0xC757,
+0xC758,
+0xC759,
+0xC75A,
+0xC75B,
+0xC75C,
+0xC75D,
+0xC75E,
+0xC75F,
+0xC760,
+0xC761,
+0xC762,
+0xC763,
+0xC764,
+0xC765,
+0xC766,
+0xC767,
+0xC768,
+0xC769,
+0xC76A,
+0xC76B,
+0xC76C,
+0xC76D,
+0xC76E,
+0xC76F,
+0xC770,
+0xC771,
+0xC772,
+0xC773,
+0xC774,
+0xC775,
+0xC776,
+0xC777,
+0xC778,
+0xC779,
+0xC77A,
+0xC77B,
+0xC77C,
+0xC77D,
+0xC77E,
+0xC7A1,
+0xC7A2,
+0xC7A3,
+0xC7A4,
+0xC7A5,
+0xC7A6,
+0xC7A7,
+0xC7A8,
+0xC7A9,
+0xC7AA,
+0xC7AB,
+0xC7AC,
+0xC7AD,
+0xC7AE,
+0xC7AF,
+0xC7B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC6A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA374,
+0xA375,
+0xA376,
+0xA377,
+0xA378,
+0xA379,
+0xA37A,
+0xA37B,
+0xA37C,
+0xA37D,
+0xA37E,
+0xA3A1,
+0xA3A2,
+0xA3A3,
+0xA3A4,
+0xA3A5,
+0xA3A6,
+0xA3A7,
+0xA3A8,
+0xA3A9,
+0xA3AA,
+0xA3AB,
+0xA3AC,
+0xA3AD,
+0xA3AE,
+0xA3AF,
+0xA3B0,
+0xA3B1,
+0xA3B2,
+0xA3B3,
+0xA3B4,
+0xA3B5,
+0xA3B6,
+0xA3B7,
+0xA3B8,
+0xA3B9,
+0xA3BA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1C0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA255,
+0xA256,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA250,
+0xA251,
+0xA252,
+0,
+0,
+0xA254,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA257,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA253,
+0,
+0,
+0xA1EB,
+0xA1EA,
+0,
+0,
+0xA24F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA440,
+0xA442,
+0,
+0xA443,
+0,
+0,
+0,
+0xC945,
+0xA456,
+0xA454,
+0xA457,
+0xA455,
+0xC946,
+0xA4A3,
+0xC94F,
+0xC94D,
+0xA4A2,
+0xA4A1,
+0,
+0,
+0xA542,
+0xA541,
+0xA540,
+0,
+0xA543,
+0xA4FE,
+0,
+0,
+0,
+0,
+0xA5E0,
+0xA5E1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8C3,
+0,
+0,
+0,
+0,
+0xA458,
+0,
+0xA4A4,
+0xC950,
+0,
+0xA4A5,
+0xC963,
+0xA6EA,
+0xCBB1,
+0,
+0,
+0,
+0,
+0xA459,
+0xA4A6,
+0,
+0xA544,
+0xC964,
+0,
+0,
+0,
+0,
+0,
+0xC940,
+0xA444,
+0,
+0xA45B,
+0,
+0xC947,
+0xA45C,
+0,
+0,
+0xA4A7,
+0,
+0xA545,
+0xA547,
+0xA546,
+0,
+0,
+0xA5E2,
+0xA5E3,
+0,
+0,
+0xA8C4,
+0,
+0xADBC,
+0xA441,
+0,
+0,
+0xC941,
+0xA445,
+0xA45E,
+0xA45D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA5E4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB0AE,
+0xD44B,
+0,
+0,
+0xB6C3,
+0xDCB1,
+0xDCB2,
+0,
+0xA446,
+0,
+0xA4A9,
+0,
+0,
+0xA8C6,
+0xA447,
+0xC948,
+0xA45F,
+0,
+0,
+0xA4AA,
+0xA4AC,
+0xC951,
+0xA4AD,
+0xA4AB,
+0,
+0,
+0,
+0xA5E5,
+0,
+0xA8C7,
+0,
+0,
+0xA8C8,
+0xAB45,
+0,
+0xA460,
+0xA4AE,
+0,
+0xA5E6,
+0xA5E8,
+0xA5E7,
+0,
+0xA6EB,
+0,
+0,
+0xA8C9,
+0xA8CA,
+0xAB46,
+0xAB47,
+0,
+0,
+0,
+0,
+0xADBD,
+0,
+0,
+0xDCB3,
+0,
+0,
+0xF6D6,
+0xA448,
+0,
+0,
+0,
+0,
+0,
+0xA4B0,
+0xA4AF,
+0xC952,
+0xA4B1,
+0xA4B7,
+0,
+0xA4B2,
+0xA4B3,
+0xC954,
+0xC953,
+0xA4B5,
+0xA4B6,
+0,
+0xA4B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA54A,
+0xA54B,
+0xA54C,
+0xA54D,
+0xA549,
+0xA550,
+0xC96A,
+0,
+0xC966,
+0xC969,
+0xA551,
+0xA561,
+0,
+0xC968,
+0,
+0xA54E,
+0xA54F,
+0xA548,
+0,
+0,
+0xC965,
+0xC967,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA5F5,
+0xC9B0,
+0xA5F2,
+0xA5F6,
+0xC9BA,
+0xC9AE,
+0xA5F3,
+0xC9B2,
+0,
+0,
+0,
+0xA5F4,
+0,
+0xA5F7,
+0,
+0xA5E9,
+0xC9B1,
+0xA5F8,
+0xC9B5,
+0,
+0xC9B9,
+0xC9B6,
+0,
+0,
+0xC9B3,
+0xA5EA,
+0xA5EC,
+0xA5F9,
+0,
+0xA5EE,
+0xC9AB,
+0xA5F1,
+0xA5EF,
+0xA5F0,
+0xC9BB,
+0xC9B8,
+0xC9AF,
+0xA5ED,
+0,
+0,
+0xC9AC,
+0xA5EB,
+0,
+0,
+0,
+0xC9B4,
+0,
+0,
+0,
+0,
+0xC9B7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC9AD,
+0xCA66,
+0,
+0xA742,
+0xA6F4,
+0,
+0,
+0xCA67,
+0xA6F1,
+0,
+0xA744,
+0,
+0xA6F9,
+0,
+0xA6F8,
+0xCA5B,
+0xA6FC,
+0xA6F7,
+0xCA60,
+0xCA68,
+0,
+0xCA64,
+0,
+0xA6FA,
+0,
+0,
+0xA6FD,
+0xA6EE,
+0xA747,
+0xCA5D,
+0,
+0,
+0xCBBD,
+0xA6EC,
+0xA743,
+0xA6ED,
+0xA6F5,
+0xA6F6,
+0xCA62,
+0xCA5E,
+0xA6FB,
+0xA6F3,
+0xCA5A,
+0xA6EF,
+0xCA65,
+0xA745,
+0xA748,
+0xA6F2,
+0xA740,
+0xA746,
+0xA6F0,
+0xCA63,
+0xA741,
+0xCA69,
+0xCA5C,
+0xA6FE,
+0xCA5F,
+0,
+0,
+0xCA61,
+0,
+0xA8D8,
+0xCBBF,
+0xCBCB,
+0xA8D0,
+0,
+0xCBCC,
+0xA8CB,
+0xA8D5,
+0,
+0,
+0xA8CE,
+0xCBB9,
+0xA8D6,
+0xCBB8,
+0xCBBC,
+0xCBC3,
+0xCBC1,
+0xA8DE,
+0xA8D9,
+0xCBB3,
+0xCBB5,
+0xA8DB,
+0xA8CF,
+0xCBB6,
+0xCBC2,
+0xCBC9,
+0xA8D4,
+0xCBBB,
+0xCBB4,
+0xA8D3,
+0xCBB7,
+0xA8D7,
+0xCBBA,
+0,
+0xA8D2,
+0,
+0xA8CD,
+0,
+0xA8DC,
+0xCBC4,
+0xA8DD,
+0xCBC8,
+0,
+0xCBC6,
+0xCBCA,
+0xA8DA,
+0xCBBE,
+0xCBB2,
+0,
+0xCBC0,
+0xA8D1,
+0xCBC5,
+0xA8CC,
+0xCBC7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAB56,
+0xAB4A,
+0,
+0,
+0xCDE0,
+0xCDE8,
+0,
+0xAB49,
+0xAB51,
+0xAB5D,
+0,
+0xCDEE,
+0xCDEC,
+0xCDE7,
+0,
+0,
+0,
+0xAB4B,
+0xCDED,
+0xCDE3,
+0xAB59,
+0xAB50,
+0xAB58,
+0xCDDE,
+0,
+0xCDEA,
+0,
+0xCDE1,
+0xAB54,
+0xCDE2,
+0,
+0xCDDD,
+0xAB5B,
+0xAB4E,
+0xAB57,
+0xAB4D,
+0,
+0xCDDF,
+0xCDE4,
+0,
+0xCDEB,
+0xAB55,
+0xAB52,
+0xCDE6,
+0xAB5A,
+0xCDE9,
+0xCDE5,
+0xAB4F,
+0xAB5C,
+0xAB53,
+0xAB4C,
+0xAB48,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDEF,
+0,
+0xADD7,
+0xADC1,
+0,
+0xADD1,
+0,
+0xADD6,
+0xD0D0,
+0xD0CF,
+0xD0D4,
+0xD0D5,
+0xADC4,
+0,
+0xADCD,
+0,
+0,
+0,
+0xADDA,
+0,
+0xADCE,
+0,
+0,
+0,
+0,
+0xD0C9,
+0xADC7,
+0xD0CA,
+0,
+0xADDC,
+0,
+0xADD3,
+0xADBE,
+0xADBF,
+0xD0DD,
+0xB0BF,
+0,
+0xADCC,
+0xADCB,
+0xD0CB,
+0xADCF,
+0xD45B,
+0xADC6,
+0xD0D6,
+0xADD5,
+0xADD4,
+0xADCA,
+0xD0CE,
+0xD0D7,
+0,
+0xD0C8,
+0xADC9,
+0xD0D8,
+0xADD2,
+0xD0CC,
+0xADC0,
+0,
+0xADC3,
+0xADC2,
+0xD0D9,
+0xADD0,
+0xADC5,
+0xADD9,
+0xADDB,
+0xD0D3,
+0xADD8,
+0,
+0xD0DB,
+0xD0CD,
+0xD0DC,
+0,
+0xD0D1,
+0,
+0xD0DA,
+0,
+0xD0D2,
+0,
+0,
+0,
+0,
+0xADC8,
+0,
+0,
+0,
+0xD463,
+0xD457,
+0,
+0xB0B3,
+0,
+0xD45C,
+0xD462,
+0xB0B2,
+0xD455,
+0xB0B6,
+0xD459,
+0xD452,
+0xB0B4,
+0xD456,
+0xB0B9,
+0xB0BE,
+0,
+0xD467,
+0,
+0xD451,
+0,
+0xB0BA,
+0,
+0xD466,
+0,
+0,
+0xB0B5,
+0xD458,
+0xB0B1,
+0xD453,
+0xD44F,
+0xD45D,
+0xD450,
+0xD44E,
+0xD45A,
+0xD460,
+0xD461,
+0xB0B7,
+0,
+0,
+0xD85B,
+0xD45E,
+0xD44D,
+0xD45F,
+0,
+0xB0C1,
+0xD464,
+0xB0C0,
+0xD44C,
+0,
+0xD454,
+0xD465,
+0xB0BC,
+0xB0BB,
+0xB0B8,
+0xB0BD,
+0,
+0,
+0xB0AF,
+0,
+0,
+0xB0B0,
+0,
+0,
+0xB3C8,
+0,
+0xD85E,
+0xD857,
+0,
+0xB3C5,
+0,
+0xD85F,
+0,
+0,
+0,
+0xD855,
+0xD858,
+0xB3C4,
+0xD859,
+0,
+0,
+0xB3C7,
+0xD85D,
+0,
+0xD853,
+0xD852,
+0xB3C9,
+0,
+0xB3CA,
+0xB3C6,
+0xB3CB,
+0xD851,
+0xD85C,
+0xD85A,
+0xD854,
+0,
+0,
+0,
+0xB3C3,
+0xD856,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB6CA,
+0xB6C4,
+0xDCB7,
+0xB6CD,
+0xDCBD,
+0xDCC0,
+0xB6C6,
+0xB6C7,
+0xDCBA,
+0xB6C5,
+0xDCC3,
+0xB6CB,
+0xDCC4,
+0,
+0xDCBF,
+0xB6CC,
+0,
+0xDCB4,
+0xB6C9,
+0xDCB5,
+0,
+0xDCBE,
+0xDCBC,
+0,
+0xDCB8,
+0xB6C8,
+0xDCB6,
+0xB6CE,
+0xDCBB,
+0xDCC2,
+0xDCB9,
+0xDCC1,
+0,
+0,
+0xB9B6,
+0xB9B3,
+0,
+0xB9B4,
+0,
+0xE0F9,
+0xE0F1,
+0xB9B2,
+0xB9AF,
+0xE0F2,
+0,
+0,
+0xB9B1,
+0xE0F5,
+0,
+0xE0F7,
+0,
+0,
+0xE0FE,
+0,
+0,
+0xE0FD,
+0xE0F8,
+0xB9AE,
+0xE0F0,
+0xB9AC,
+0xE0F3,
+0xB9B7,
+0xE0F6,
+0,
+0xE0FA,
+0xB9B0,
+0xB9AD,
+0xE0FC,
+0xE0FB,
+0xB9B5,
+0,
+0xE0F4,
+0,
+0xBBF8,
+0xE4EC,
+0,
+0xE4E9,
+0xBBF9,
+0,
+0xBBF7,
+0,
+0xE4F0,
+0xE4ED,
+0xE4E6,
+0xBBF6,
+0,
+0xBBFA,
+0xE4E7,
+0xBBF5,
+0xBBFD,
+0xE4EA,
+0xE4EB,
+0xBBFB,
+0xBBFC,
+0xE4F1,
+0xE4EE,
+0xE4EF,
+0,
+0,
+0,
+0xBEAA,
+0xE8F8,
+0xBEA7,
+0xE8F5,
+0xBEA9,
+0xBEAB,
+0,
+0xE8F6,
+0xBEA8,
+0,
+0xE8F7,
+0,
+0xE8F4,
+0,
+0,
+0xC076,
+0xECBD,
+0xC077,
+0xECBB,
+0,
+0xECBC,
+0xECBA,
+0xECB9,
+0,
+0,
+0xECBE,
+0xC075,
+0,
+0,
+0xEFB8,
+0xEFB9,
+0,
+0xE4E8,
+0xEFB7,
+0xC078,
+0xC35F,
+0xF1EB,
+0xF1EC,
+0,
+0xC4D7,
+0xC4D8,
+0xF5C1,
+0xF5C0,
+0xC56C,
+0xC56B,
+0xF7D0,
+0,
+0xA449,
+0xA461,
+0xA4B9,
+0,
+0xA4B8,
+0xA553,
+0xA552,
+0xA5FC,
+0xA5FB,
+0xA5FD,
+0xA5FA,
+0,
+0xA74A,
+0xA749,
+0xA74B,
+0,
+0,
+0,
+0,
+0xA8E0,
+0,
+0xA8DF,
+0xA8E1,
+0,
+0xAB5E,
+0,
+0xA259,
+0xD0DE,
+0xA25A,
+0xB0C2,
+0xA25C,
+0xA25B,
+0xD860,
+0,
+0xA25D,
+0xB9B8,
+0xA25E,
+0,
+0xA44A,
+0,
+0xA4BA,
+0xA5FE,
+0xA8E2,
+0,
+0xA44B,
+0xA4BD,
+0xA4BB,
+0xA4BC,
+0,
+0,
+0xA640,
+0,
+0,
+0,
+0xA74C,
+0xA8E4,
+0xA8E3,
+0xA8E5,
+0,
+0,
+0,
+0xADDD,
+0,
+0,
+0,
+0xBEAC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC94E,
+0,
+0xA554,
+0xA555,
+0,
+0,
+0xA641,
+0,
+0xCA6A,
+0,
+0xAB60,
+0xAB5F,
+0xD0E0,
+0xD0DF,
+0xB0C3,
+0,
+0xA4BE,
+0xC955,
+0,
+0,
+0,
+0,
+0,
+0xCBCD,
+0,
+0xAB61,
+0,
+0xADE0,
+0,
+0xADDE,
+0xADDF,
+0,
+0,
+0,
+0,
+0xBEAD,
+0,
+0xA556,
+0,
+0,
+0,
+0xA642,
+0xC9BC,
+0,
+0,
+0,
+0,
+0xA74D,
+0xA74E,
+0,
+0xCA6B,
+0,
+0,
+0xCBCE,
+0xA8E6,
+0xCBCF,
+0,
+0,
+0,
+0,
+0,
+0xD0E2,
+0xD0E3,
+0xADE3,
+0,
+0xD0E4,
+0,
+0xD0E1,
+0xADE4,
+0xADE2,
+0xADE1,
+0xD0E5,
+0,
+0xD468,
+0,
+0,
+0,
+0xD861,
+0,
+0,
+0xDCC5,
+0xE140,
+0,
+0,
+0,
+0xBBFE,
+0xBEAE,
+0xE8F9,
+0,
+0xA44C,
+0xA45A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB0C4,
+0xB3CD,
+0,
+0xB9B9,
+0,
+0xC942,
+0xA4BF,
+0,
+0xA559,
+0xA557,
+0xA558,
+0,
+0,
+0xA8E7,
+0,
+0,
+0xA44D,
+0xA44E,
+0,
+0xA462,
+0,
+0,
+0xA4C0,
+0xA4C1,
+0xA4C2,
+0xC9BE,
+0xA55A,
+0,
+0xC96B,
+0,
+0xA646,
+0,
+0xC9BF,
+0xA644,
+0xA645,
+0xC9BD,
+0,
+0,
+0xA647,
+0xA643,
+0,
+0,
+0,
+0,
+0xCA6C,
+0xAAEC,
+0xCA6D,
+0,
+0,
+0xCA6E,
+0,
+0,
+0xA750,
+0xA74F,
+0,
+0,
+0xA753,
+0xA751,
+0xA752,
+0,
+0,
+0,
+0xA8ED,
+0,
+0xA8EC,
+0xCBD4,
+0xCBD1,
+0xCBD2,
+0,
+0xCBD0,
+0xA8EE,
+0xA8EA,
+0xA8E9,
+0,
+0xA8EB,
+0xA8E8,
+0,
+0,
+0,
+0,
+0,
+0xA8EF,
+0,
+0xAB63,
+0xCDF0,
+0,
+0xCBD3,
+0xAB68,
+0,
+0xCDF1,
+0xAB64,
+0xAB67,
+0xAB66,
+0xAB65,
+0xAB62,
+0,
+0,
+0,
+0xD0E8,
+0,
+0xADE7,
+0xD0EB,
+0xADE5,
+0,
+0,
+0,
+0xD0E7,
+0xADE8,
+0xADE6,
+0xADE9,
+0xD0E9,
+0xD0EA,
+0,
+0xD0E6,
+0xD0EC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB3D1,
+0xB0C5,
+0xD469,
+0xD46B,
+0xD46A,
+0xD46C,
+0xB0C6,
+0,
+0,
+0xB3CE,
+0,
+0xB3CF,
+0xB3D0,
+0,
+0xB6D0,
+0xDCC7,
+0,
+0xDCC6,
+0xDCC8,
+0xDCC9,
+0xB6D1,
+0,
+0xB6CF,
+0xE141,
+0xE142,
+0xB9BB,
+0xB9BA,
+0xE35A,
+0,
+0,
+0xBC40,
+0xBC41,
+0xBC42,
+0xBC44,
+0xE4F2,
+0xE4F3,
+0xBC43,
+0,
+0,
+0,
+0xBEAF,
+0,
+0xBEB0,
+0,
+0,
+0xF1ED,
+0xF5C3,
+0xF5C2,
+0xF7D1,
+0,
+0xA44F,
+0,
+0,
+0,
+0xA55C,
+0xA55B,
+0,
+0,
+0xA648,
+0,
+0,
+0xC9C0,
+0,
+0,
+0xA755,
+0xA756,
+0xA754,
+0xA757,
+0xCA6F,
+0xCA70,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8F1,
+0xCBD5,
+0,
+0xA8F0,
+0,
+0xCDF2,
+0xAB6C,
+0xCDF3,
+0xAB6B,
+0,
+0,
+0,
+0xAB69,
+0,
+0xAB6A,
+0,
+0,
+0,
+0xD0ED,
+0,
+0,
+0,
+0,
+0xB0C7,
+0xD46E,
+0,
+0xB0CA,
+0xD46D,
+0xB1E5,
+0xB0C9,
+0xB0C8,
+0,
+0xB3D4,
+0,
+0xB3D3,
+0xB3D2,
+0xB6D2,
+0,
+0,
+0xB6D5,
+0xB6D6,
+0xB6D4,
+0,
+0xB6D3,
+0,
+0,
+0xE143,
+0,
+0xE144,
+0,
+0,
+0,
+0xE4F5,
+0xBC45,
+0xE4F4,
+0,
+0xBEB1,
+0xECBF,
+0xC079,
+0,
+0xF1EE,
+0xC455,
+0,
+0xA463,
+0xA4C3,
+0xC956,
+0,
+0xA4C4,
+0xA4C5,
+0,
+0,
+0,
+0,
+0,
+0xA55D,
+0xA55E,
+0,
+0xA649,
+0xCA71,
+0xCBD6,
+0xCBD7,
+0,
+0xAB6D,
+0xD0EE,
+0xB0CC,
+0xB0CB,
+0xD863,
+0xD862,
+0,
+0,
+0xA450,
+0xA4C6,
+0xA55F,
+0,
+0xB0CD,
+0xC943,
+0,
+0xC96C,
+0xA560,
+0,
+0xC9C2,
+0xA64B,
+0xA64A,
+0xC9C1,
+0xA758,
+0,
+0,
+0,
+0,
+0,
+0,
+0xADEA,
+0,
+0,
+0xD46F,
+0,
+0xB6D7,
+0xE145,
+0xB9BC,
+0,
+0,
+0xE8FA,
+0,
+0,
+0xF3FD,
+0,
+0xA4C7,
+0,
+0,
+0xCBD8,
+0xCDF4,
+0xB0D0,
+0xB0CE,
+0xB0CF,
+0xA451,
+0,
+0xA464,
+0xA2CD,
+0xA4CA,
+0,
+0xA4C9,
+0xA4C8,
+0xA563,
+0xA562,
+0,
+0xC96D,
+0xC9C3,
+0,
+0,
+0,
+0xA8F5,
+0xA8F2,
+0xA8F4,
+0xA8F3,
+0,
+0,
+0xAB6E,
+0,
+0,
+0xB3D5,
+0,
+0xA452,
+0,
+0xA4CB,
+0,
+0xA565,
+0xA564,
+0,
+0xCA72,
+0,
+0,
+0xA8F6,
+0,
+0,
+0,
+0,
+0,
+0xC957,
+0,
+0xA567,
+0xA566,
+0xA64C,
+0xA64D,
+0xCA73,
+0xA759,
+0,
+0xA75A,
+0,
+0xA8F7,
+0xA8F8,
+0xA8F9,
+0,
+0xAB6F,
+0xCDF5,
+0,
+0,
+0xADEB,
+0,
+0,
+0xC944,
+0,
+0xA4CC,
+0,
+0,
+0,
+0,
+0,
+0xC9C4,
+0,
+0,
+0,
+0xCA74,
+0xCA75,
+0,
+0,
+0xCBD9,
+0,
+0xCBDA,
+0,
+0xCDF7,
+0xCDF6,
+0xCDF9,
+0xCDF8,
+0xAB70,
+0,
+0xD470,
+0xADED,
+0xD0EF,
+0xADEC,
+0,
+0,
+0,
+0,
+0xD864,
+0xB3D6,
+0,
+0xD865,
+0,
+0,
+0,
+0,
+0xE146,
+0xB9BD,
+0,
+0,
+0,
+0,
+0xBC46,
+0,
+0xF1EF,
+0,
+0,
+0,
+0,
+0xC958,
+0,
+0xA568,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB0D1,
+0,
+0,
+0,
+0,
+0xA453,
+0xA465,
+0xA4CE,
+0xA4CD,
+0,
+0xA4CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8FB,
+0,
+0xA8FA,
+0xA8FC,
+0,
+0,
+0,
+0xAB71,
+0,
+0,
+0,
+0xADEE,
+0,
+0xE8FB,
+0xC24F,
+0xA466,
+0xA56A,
+0xA579,
+0xA574,
+0,
+0xA56F,
+0xA56E,
+0xA575,
+0xA573,
+0xA56C,
+0xA57A,
+0xA56D,
+0xA569,
+0xA578,
+0xA577,
+0xA576,
+0xA56B,
+0,
+0xA572,
+0,
+0,
+0xA571,
+0,
+0,
+0xA57B,
+0xA570,
+0,
+0,
+0,
+0,
+0xA653,
+0,
+0xA659,
+0xA655,
+0,
+0xA65B,
+0xC9C5,
+0xA658,
+0xA64E,
+0xA651,
+0xA654,
+0xA650,
+0xA657,
+0xA65A,
+0xA64F,
+0xA652,
+0xA656,
+0xA65C,
+0,
+0,
+0,
+0,
+0,
+0xCA7E,
+0xCA7B,
+0,
+0xA767,
+0xCA7C,
+0xA75B,
+0xA75D,
+0xA775,
+0xA770,
+0,
+0,
+0,
+0xCAA5,
+0xCA7D,
+0xA75F,
+0xA761,
+0xCAA4,
+0xA768,
+0xCA78,
+0xA774,
+0xA776,
+0xA75C,
+0xA76D,
+0,
+0xCA76,
+0xA773,
+0,
+0xA764,
+0,
+0xA76E,
+0xA76F,
+0xCA77,
+0xA76C,
+0xA76A,
+0,
+0xA76B,
+0xA771,
+0xCAA1,
+0xA75E,
+0,
+0xA772,
+0xCAA3,
+0xA766,
+0xA763,
+0,
+0xCA7A,
+0xA762,
+0xCAA6,
+0xA765,
+0,
+0xA769,
+0,
+0,
+0,
+0xA760,
+0xCAA2,
+0,
+0,
+0,
+0,
+0xCA79,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBEB,
+0xCBEA,
+0xA94F,
+0xCBED,
+0xCBEF,
+0xCBE4,
+0xCBE7,
+0xCBEE,
+0xA950,
+0,
+0,
+0xCBE1,
+0xCBE5,
+0,
+0,
+0xCBE9,
+0xCE49,
+0xA94B,
+0xCE4D,
+0xA8FD,
+0xCBE6,
+0xA8FE,
+0xA94C,
+0xA945,
+0xA941,
+0,
+0xCBE2,
+0xA944,
+0xA949,
+0xA952,
+0xCBE3,
+0xCBDC,
+0xA943,
+0xCBDD,
+0xCBDF,
+0,
+0xA946,
+0,
+0xA948,
+0xCBDB,
+0xCBE0,
+0,
+0,
+0xA951,
+0xA94D,
+0xCBE8,
+0xA953,
+0,
+0xA94A,
+0xCBDE,
+0xA947,
+0,
+0,
+0xA942,
+0xA940,
+0,
+0xCBEC,
+0,
+0xA94E,
+0,
+0,
+0,
+0,
+0,
+0xCE48,
+0xCDFB,
+0xCE4B,
+0,
+0,
+0xCDFD,
+0xAB78,
+0xABA8,
+0xAB74,
+0xABA7,
+0xAB7D,
+0xABA4,
+0xAB72,
+0xCDFC,
+0xCE43,
+0xABA3,
+0xCE4F,
+0xABA5,
+0,
+0xAB79,
+0,
+0,
+0xCE45,
+0xCE42,
+0xAB77,
+0,
+0xCDFA,
+0xABA6,
+0xCE4A,
+0xAB7C,
+0xCE4C,
+0xABA9,
+0xAB73,
+0xAB7E,
+0xAB7B,
+0xCE40,
+0xABA1,
+0xCE46,
+0xCE47,
+0xAB7A,
+0xABA2,
+0xAB76,
+0,
+0,
+0,
+0,
+0xAB75,
+0xCDFE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCE44,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCE4E,
+0,
+0xD144,
+0xADFB,
+0xD0F1,
+0,
+0xD0F6,
+0xADF4,
+0xAE40,
+0xD0F4,
+0xADEF,
+0xADF9,
+0xADFE,
+0xD0FB,
+0,
+0xADFA,
+0xADFD,
+0,
+0,
+0xD0FE,
+0xADF5,
+0xD0F5,
+0,
+0,
+0,
+0xD142,
+0xD143,
+0,
+0xADF7,
+0xD141,
+0xADF3,
+0xAE43,
+0,
+0xD0F8,
+0,
+0xADF1,
+0,
+0xD146,
+0xD0F9,
+0xD0FD,
+0xADF6,
+0xAE42,
+0xD0FA,
+0xADFC,
+0xD140,
+0xD147,
+0xD4A1,
+0,
+0xD145,
+0xAE44,
+0xADF0,
+0xD0FC,
+0xD0F3,
+0,
+0xADF8,
+0,
+0,
+0xD0F2,
+0,
+0,
+0xD0F7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0F0,
+0xAE41,
+0,
+0,
+0xD477,
+0,
+0xB0E4,
+0xD4A7,
+0xB0E2,
+0xB0DF,
+0xD47C,
+0xB0DB,
+0xD4A2,
+0xB0E6,
+0xD476,
+0xD47B,
+0xD47A,
+0xADF2,
+0xB0E1,
+0xD4A5,
+0,
+0xD4A8,
+0xD473,
+0,
+0xB3E8,
+0,
+0xD4A9,
+0xB0E7,
+0,
+0xB0D9,
+0xB0D6,
+0xD47E,
+0xB0D3,
+0,
+0xD4A6,
+0,
+0xB0DA,
+0xD4AA,
+0,
+0xD474,
+0xD4A4,
+0xB0DD,
+0xD475,
+0xD478,
+0xD47D,
+0,
+0,
+0xB0DE,
+0xB0DC,
+0xB0E8,
+0,
+0,
+0,
+0,
+0xB0E3,
+0,
+0xB0D7,
+0xB1D2,
+0,
+0xB0D8,
+0xD479,
+0xB0E5,
+0xB0E0,
+0xD4A3,
+0xB0D5,
+0,
+0,
+0,
+0xB0D4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD471,
+0xD472,
+0xD86A,
+0,
+0,
+0,
+0xB3D7,
+0xB3DA,
+0xD875,
+0xB3EE,
+0xD878,
+0xB3D8,
+0xD871,
+0xB3DE,
+0xB3E4,
+0xB5BD,
+0,
+0,
+0xB3E2,
+0xD86E,
+0xB3EF,
+0xB3DB,
+0xB3E3,
+0xD876,
+0xDCD7,
+0xD87B,
+0xD86F,
+0,
+0xD866,
+0xD873,
+0xD86D,
+0xB3E1,
+0xD879,
+0,
+0,
+0xB3DD,
+0xB3F1,
+0xB3EA,
+0,
+0xB3DF,
+0xB3DC,
+0,
+0xB3E7,
+0,
+0xD87A,
+0xD86C,
+0xD872,
+0xD874,
+0xD868,
+0xD877,
+0xB3D9,
+0xD867,
+0,
+0xB3E0,
+0xB3F0,
+0xB3EC,
+0xD869,
+0xB3E6,
+0,
+0,
+0xB3ED,
+0xB3E9,
+0xB3E5,
+0,
+0xD870,
+0,
+0,
+0,
+0,
+0,
+0xB3EB,
+0,
+0,
+0,
+0xDCD5,
+0xDCD1,
+0,
+0xDCE0,
+0xDCCA,
+0xDCD3,
+0xB6E5,
+0xB6E6,
+0xB6DE,
+0xDCDC,
+0xB6E8,
+0xDCCF,
+0xDCCE,
+0xDCCC,
+0xDCDE,
+0xB6DC,
+0xDCD8,
+0xDCCD,
+0xB6DF,
+0xDCD6,
+0xB6DA,
+0xDCD2,
+0xDCD9,
+0xDCDB,
+0,
+0,
+0xDCDF,
+0xB6E3,
+0xDCCB,
+0xB6DD,
+0xDCD0,
+0,
+0xB6D8,
+0,
+0xB6E4,
+0xDCDA,
+0xB6E0,
+0xB6E1,
+0xB6E7,
+0xB6DB,
+0xA25F,
+0xB6D9,
+0xDCD4,
+0,
+0,
+0,
+0,
+0,
+0xB6E2,
+0,
+0,
+0xDCDD,
+0,
+0,
+0,
+0xB9CD,
+0xB9C8,
+0,
+0xE155,
+0xE151,
+0,
+0xE14B,
+0xB9C2,
+0xB9BE,
+0xE154,
+0xB9BF,
+0xE14E,
+0xE150,
+0,
+0xE153,
+0,
+0xB9C4,
+0,
+0xB9CB,
+0xB9C5,
+0,
+0,
+0xE149,
+0xB9C6,
+0xB9C7,
+0xE14C,
+0xB9CC,
+0,
+0xE14A,
+0xE14F,
+0xB9C3,
+0xE148,
+0xB9C9,
+0xB9C1,
+0,
+0,
+0,
+0xB9C0,
+0xE14D,
+0xE152,
+0,
+0xB9CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE147,
+0,
+0xBC4D,
+0xE547,
+0,
+0xE544,
+0,
+0xBC47,
+0xBC53,
+0xBC54,
+0,
+0xBC4A,
+0xE542,
+0xBC4C,
+0xE4F9,
+0xBC52,
+0,
+0xE546,
+0xBC49,
+0xE548,
+0xBC48,
+0,
+0xE543,
+0xE545,
+0xBC4B,
+0xE541,
+0xE4FA,
+0xE4F7,
+0,
+0,
+0xD86B,
+0xE4FD,
+0,
+0xE4F6,
+0xE4FC,
+0xE4FB,
+0,
+0xE4F8,
+0,
+0xBC4F,
+0,
+0,
+0,
+0,
+0xBC4E,
+0,
+0,
+0,
+0xBC50,
+0xE4FE,
+0xBEB2,
+0xE540,
+0,
+0,
+0,
+0xE945,
+0,
+0xE8FD,
+0,
+0xBEBE,
+0xE942,
+0xBEB6,
+0xBEBA,
+0xE941,
+0,
+0xBEB9,
+0xBEB5,
+0xBEB8,
+0xBEB3,
+0xBEBD,
+0xE943,
+0xE8FE,
+0xBEBC,
+0xE8FC,
+0xBEBB,
+0xE944,
+0xE940,
+0xBC51,
+0,
+0xBEBF,
+0xE946,
+0xBEB7,
+0xBEB4,
+0,
+0,
+0,
+0,
+0xECC6,
+0xECC8,
+0xC07B,
+0xECC9,
+0xECC7,
+0xECC5,
+0xECC4,
+0xC07D,
+0xECC3,
+0xC07E,
+0,
+0,
+0,
+0,
+0xECC1,
+0xECC2,
+0xC07A,
+0xC0A1,
+0xC07C,
+0,
+0,
+0xECC0,
+0,
+0xC250,
+0,
+0xEFBC,
+0xEFBA,
+0xEFBF,
+0xEFBD,
+0,
+0xEFBB,
+0xEFBE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC360,
+0xF1F2,
+0xF1F3,
+0xC456,
+0,
+0xF1F4,
+0xF1F0,
+0xF1F5,
+0xF1F1,
+0xC251,
+0,
+0,
+0,
+0xF3FE,
+0xF441,
+0xC459,
+0xF440,
+0xC458,
+0xC457,
+0,
+0,
+0,
+0,
+0xC45A,
+0xF5C5,
+0xF5C6,
+0,
+0xC4DA,
+0xC4D9,
+0xC4DB,
+0xF5C4,
+0,
+0xF6D8,
+0xF6D7,
+0,
+0xC56D,
+0xC56F,
+0xC56E,
+0xF6D9,
+0xC5C8,
+0xF8A6,
+0,
+0,
+0,
+0xC5F1,
+0,
+0xF8A5,
+0xF8EE,
+0,
+0,
+0xC949,
+0,
+0,
+0xA57D,
+0xA57C,
+0,
+0xA65F,
+0xA65E,
+0xC9C7,
+0xA65D,
+0xC9C6,
+0,
+0,
+0xA779,
+0xCAA9,
+0,
+0xCAA8,
+0,
+0,
+0xA777,
+0xA77A,
+0,
+0,
+0xCAA7,
+0,
+0xA778,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBF0,
+0,
+0xCBF1,
+0xA954,
+0,
+0,
+0,
+0,
+0xABAA,
+0,
+0xD148,
+0xD149,
+0xAE45,
+0xAE46,
+0,
+0,
+0xD4AC,
+0xB0E9,
+0xB0EB,
+0xD4AB,
+0xB0EA,
+0xD87C,
+0xB3F2,
+0,
+0,
+0,
+0,
+0xB6E9,
+0xB6EA,
+0xDCE1,
+0,
+0xB9CF,
+0,
+0xB9CE,
+0,
+0xE549,
+0xE948,
+0xE947,
+0,
+0xF96B,
+0xA467,
+0xC959,
+0,
+0xC96E,
+0xC96F,
+0,
+0,
+0,
+0,
+0xA662,
+0xA666,
+0xC9C9,
+0,
+0xA664,
+0xA663,
+0xC9C8,
+0xA665,
+0xA661,
+0,
+0,
+0xA660,
+0xC9CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA7A6,
+0,
+0,
+0xA7A3,
+0,
+0xA77D,
+0xCAAA,
+0,
+0,
+0,
+0xCAAB,
+0,
+0xA7A1,
+0,
+0xCAAD,
+0xA77B,
+0xCAAE,
+0xCAAC,
+0xA77E,
+0xA7A2,
+0xA7A5,
+0xA7A4,
+0xA77C,
+0xCAAF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA959,
+0xCBFE,
+0,
+0xA95B,
+0,
+0xA95A,
+0,
+0xCC40,
+0xA958,
+0xA957,
+0xCBF5,
+0,
+0xCBF4,
+0,
+0xCBF2,
+0xCBF7,
+0xCBF6,
+0xCBF3,
+0xCBFC,
+0xCBFD,
+0xCBFA,
+0xCBF8,
+0xA956,
+0,
+0,
+0,
+0xCBFB,
+0xA95C,
+0xCC41,
+0,
+0,
+0xCBF9,
+0,
+0xABAB,
+0xA955,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xABAC,
+0xCE54,
+0,
+0,
+0xCE5A,
+0,
+0,
+0,
+0xABB2,
+0xCE58,
+0xCE5E,
+0,
+0xCE55,
+0xCE59,
+0xCE5B,
+0xCE5D,
+0xCE57,
+0,
+0xCE56,
+0xCE51,
+0xCE52,
+0xABAD,
+0,
+0xABAF,
+0xABAE,
+0xCE53,
+0xCE5C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xABB1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCE50,
+0xD153,
+0,
+0xD152,
+0xD157,
+0xD14E,
+0,
+0xD151,
+0xD150,
+0,
+0xD154,
+0,
+0xD158,
+0xAE47,
+0xAE4A,
+0,
+0,
+0xD14F,
+0xD155,
+0,
+0,
+0,
+0xAE49,
+0xD14A,
+0,
+0xABB0,
+0xD4BA,
+0xD156,
+0,
+0xD14D,
+0,
+0xAE48,
+0xD14C,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4B1,
+0,
+0,
+0xB0EC,
+0xB0F0,
+0xD4C1,
+0xD4AF,
+0xD4BD,
+0xB0F1,
+0xD4BF,
+0,
+0xD4C5,
+0,
+0xD4C9,
+0,
+0,
+0xD4C0,
+0xD4B4,
+0xD4BC,
+0,
+0xD4CA,
+0xD4C8,
+0xD4BE,
+0xD4B9,
+0xD4B2,
+0xD8A6,
+0xD4B0,
+0xB0F5,
+0xD4B7,
+0xB0F6,
+0xB0F2,
+0xD4AD,
+0xD4C3,
+0xD4B5,
+0,
+0,
+0xD4B3,
+0xD4C6,
+0xB0F3,
+0,
+0xD4CC,
+0xB0ED,
+0xB0EF,
+0xD4BB,
+0xD4B6,
+0xAE4B,
+0xB0EE,
+0xD4B8,
+0xD4C7,
+0xD4CB,
+0xD4C2,
+0,
+0xD4C4,
+0,
+0,
+0,
+0xD4AE,
+0,
+0,
+0,
+0,
+0xD8A1,
+0,
+0xD8AA,
+0xD8A9,
+0xB3FA,
+0xD8A2,
+0,
+0xB3FB,
+0xB3F9,
+0,
+0xD8A4,
+0xB3F6,
+0xD8A8,
+0,
+0xD8A3,
+0xD8A5,
+0xD87D,
+0xB3F4,
+0,
+0xD8B2,
+0xD8B1,
+0xD8AE,
+0xB3F3,
+0xB3F7,
+0xB3F8,
+0xD14B,
+0xD8AB,
+0xB3F5,
+0xB0F4,
+0xD8AD,
+0xD87E,
+0xD8B0,
+0xD8AF,
+0,
+0xD8B3,
+0,
+0xDCEF,
+0,
+0xD8AC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8A7,
+0xDCE7,
+0xB6F4,
+0xB6F7,
+0xB6F2,
+0xDCE6,
+0xDCEA,
+0xDCE5,
+0,
+0xB6EC,
+0xB6F6,
+0xDCE2,
+0xB6F0,
+0xDCE9,
+0,
+0xB6EE,
+0xB6ED,
+0xDCEC,
+0xB6EF,
+0xDCEE,
+0,
+0xDCEB,
+0xB6EB,
+0,
+0,
+0,
+0xB6F5,
+0xDCF0,
+0xDCE4,
+0xDCED,
+0,
+0,
+0xDCE3,
+0,
+0,
+0xB6F1,
+0,
+0xB6F3,
+0,
+0xDCE8,
+0,
+0xDCF1,
+0,
+0,
+0xE15D,
+0xB9D0,
+0xE163,
+0,
+0,
+0xB9D5,
+0xE15F,
+0xE166,
+0xE157,
+0xB9D7,
+0xB9D1,
+0xE15C,
+0xBC55,
+0xE15B,
+0xE164,
+0xB9D2,
+0,
+0xB9D6,
+0xE15A,
+0xE160,
+0xE165,
+0xE156,
+0xB9D4,
+0xE15E,
+0,
+0,
+0xE162,
+0xE168,
+0xE158,
+0xE161,
+0,
+0xB9D3,
+0xE167,
+0,
+0,
+0,
+0xE159,
+0,
+0,
+0,
+0xBC59,
+0xE54B,
+0xBC57,
+0xBC56,
+0xE54D,
+0xE552,
+0,
+0xE54E,
+0,
+0xE551,
+0xBC5C,
+0,
+0xBEA5,
+0xBC5B,
+0,
+0xE54A,
+0xE550,
+0,
+0xBC5A,
+0xE54F,
+0,
+0xE54C,
+0,
+0xBC58,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE94D,
+0,
+0xE94F,
+0xE94A,
+0xBEC1,
+0xE94C,
+0,
+0xBEC0,
+0xE94E,
+0,
+0,
+0xBEC3,
+0xE950,
+0xBEC2,
+0xE949,
+0xE94B,
+0,
+0,
+0,
+0,
+0xC0A5,
+0xECCC,
+0,
+0xC0A4,
+0xECCD,
+0xC0A3,
+0xECCB,
+0xC0A2,
+0xECCA,
+0,
+0xC253,
+0xC252,
+0xF1F6,
+0xF1F8,
+0,
+0xF1F7,
+0xC361,
+0xC362,
+0,
+0,
+0xC363,
+0xF442,
+0xC45B,
+0,
+0,
+0xF7D3,
+0xF7D2,
+0xC5F2,
+0,
+0xA468,
+0xA4D0,
+0,
+0,
+0xA7A7,
+0,
+0,
+0,
+0,
+0xCE5F,
+0,
+0,
+0,
+0,
+0xB3FC,
+0xB3FD,
+0,
+0xDCF2,
+0xB9D8,
+0xE169,
+0xE553,
+0,
+0,
+0,
+0xC95A,
+0,
+0,
+0xCAB0,
+0,
+0,
+0,
+0,
+0,
+0xCC42,
+0xCE60,
+0xD159,
+0xAE4C,
+0,
+0,
+0xF1F9,
+0,
+0xC4DC,
+0xA469,
+0xA57E,
+0xC970,
+0,
+0xA667,
+0xA668,
+0,
+0xA95D,
+0,
+0,
+0,
+0xB0F7,
+0,
+0xB9DA,
+0,
+0xB9DB,
+0xB9D9,
+0,
+0xA46A,
+0,
+0xA4D1,
+0xA4D3,
+0xA4D2,
+0xC95B,
+0xA4D4,
+0xA5A1,
+0xC971,
+0,
+0xA5A2,
+0,
+0,
+0,
+0,
+0,
+0xA669,
+0xA66A,
+0,
+0,
+0,
+0xC9CB,
+0,
+0xA7A8,
+0,
+0xCAB1,
+0,
+0,
+0,
+0xA961,
+0xCC43,
+0,
+0xA95F,
+0xA960,
+0xA95E,
+0xD15A,
+0,
+0,
+0,
+0xABB6,
+0xABB5,
+0xABB7,
+0xABB4,
+0,
+0xCE61,
+0xA962,
+0xABB3,
+0,
+0xAE4D,
+0xAE4E,
+0,
+0xAE4F,
+0,
+0xD4CD,
+0,
+0,
+0,
+0xB3FE,
+0xD8B4,
+0xB0F8,
+0,
+0,
+0,
+0,
+0xB6F8,
+0,
+0xB9DD,
+0xB9DC,
+0xE16A,
+0,
+0xBC5D,
+0xBEC4,
+0,
+0xEFC0,
+0xF6DA,
+0xF7D4,
+0xA46B,
+0xA5A3,
+0,
+0xA5A4,
+0xC9D1,
+0xA66C,
+0xA66F,
+0,
+0xC9CF,
+0xC9CD,
+0xA66E,
+0xC9D0,
+0xC9D2,
+0xC9CC,
+0xA671,
+0xA670,
+0xA66D,
+0xA66B,
+0xC9CE,
+0,
+0,
+0,
+0,
+0xA7B3,
+0,
+0,
+0xA7B0,
+0xCAB6,
+0xCAB9,
+0xCAB8,
+0,
+0xA7AA,
+0xA7B2,
+0,
+0,
+0xA7AF,
+0xCAB5,
+0xCAB3,
+0xA7AE,
+0,
+0,
+0,
+0xA7A9,
+0xA7AC,
+0,
+0xCAB4,
+0xCABB,
+0xCAB7,
+0xA7AD,
+0xA7B1,
+0xA7B4,
+0xCAB2,
+0xCABA,
+0xA7AB,
+0,
+0,
+0,
+0,
+0,
+0xA967,
+0xA96F,
+0,
+0xCC4F,
+0xCC48,
+0xA970,
+0xCC53,
+0xCC44,
+0xCC4B,
+0,
+0,
+0xA966,
+0xCC45,
+0xA964,
+0xCC4C,
+0xCC50,
+0xA963,
+0,
+0xCC51,
+0xCC4A,
+0,
+0xCC4D,
+0,
+0xA972,
+0xA969,
+0xCC54,
+0xCC52,
+0,
+0xA96E,
+0xA96C,
+0xCC49,
+0xA96B,
+0xCC47,
+0xCC46,
+0xA96A,
+0xA968,
+0xA971,
+0xA96D,
+0xA965,
+0,
+0xCC4E,
+0,
+0xABB9,
+0,
+0xABC0,
+0xCE6F,
+0xABB8,
+0xCE67,
+0xCE63,
+0,
+0xCE73,
+0xCE62,
+0,
+0xABBB,
+0xCE6C,
+0xABBE,
+0xABC1,
+0,
+0xABBC,
+0xCE70,
+0xABBF,
+0,
+0xAE56,
+0xCE76,
+0xCE64,
+0,
+0,
+0xCE66,
+0xCE6D,
+0xCE71,
+0xCE75,
+0xCE72,
+0xCE6B,
+0xCE6E,
+0,
+0,
+0xCE68,
+0xABC3,
+0xCE6A,
+0xCE69,
+0xCE74,
+0xABBA,
+0xCE65,
+0xABC2,
+0,
+0xABBD,
+0,
+0,
+0,
+0,
+0,
+0xAE5C,
+0xD162,
+0,
+0xAE5B,
+0,
+0,
+0xD160,
+0,
+0xAE50,
+0,
+0xAE55,
+0,
+0xD15F,
+0xD15C,
+0xD161,
+0xAE51,
+0xD15B,
+0,
+0xAE54,
+0xAE52,
+0,
+0xD163,
+0xAE53,
+0xAE57,
+0,
+0,
+0xAE58,
+0,
+0xAE5A,
+0,
+0,
+0,
+0xAE59,
+0,
+0,
+0,
+0xD15D,
+0xD15E,
+0,
+0,
+0,
+0,
+0xD164,
+0,
+0xD4D4,
+0xB0F9,
+0xD8C2,
+0xD4D3,
+0xD4E6,
+0,
+0,
+0xB140,
+0,
+0xD4E4,
+0,
+0xB0FE,
+0xB0FA,
+0xD4ED,
+0xD4DD,
+0xD4E0,
+0,
+0xB143,
+0xD4EA,
+0xD4E2,
+0xB0FB,
+0xB144,
+0,
+0xD4E7,
+0xD4E5,
+0,
+0,
+0xD4D6,
+0xD4EB,
+0xD4DF,
+0xD4DA,
+0,
+0xD4D0,
+0xD4EC,
+0xD4DC,
+0xD4CF,
+0,
+0xB142,
+0xD4E1,
+0xD4EE,
+0xD4DE,
+0xD4D2,
+0xD4D7,
+0xD4CE,
+0,
+0xB141,
+0,
+0xD4DB,
+0xD4D8,
+0xB0FC,
+0xD4D1,
+0,
+0xD4E9,
+0xB0FD,
+0,
+0xD4D9,
+0xD4D5,
+0,
+0,
+0xD4E8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB440,
+0xD8BB,
+0,
+0xD8B8,
+0xD8C9,
+0xD8BD,
+0xD8CA,
+0,
+0xB442,
+0,
+0,
+0,
+0xD8C6,
+0xD8C3,
+0,
+0,
+0,
+0,
+0,
+0xD8C4,
+0xD8C7,
+0xD8CB,
+0,
+0xD4E3,
+0xD8CD,
+0xDD47,
+0,
+0xB443,
+0xD8CE,
+0xD8B6,
+0xD8C0,
+0,
+0xD8C5,
+0,
+0,
+0xB441,
+0xB444,
+0xD8CC,
+0xD8CF,
+0xD8BA,
+0xD8B7,
+0,
+0,
+0xD8B9,
+0,
+0,
+0xD8BE,
+0xD8BC,
+0xB445,
+0,
+0xD8C8,
+0,
+0,
+0xD8BF,
+0,
+0xD8C1,
+0xD8B5,
+0xDCFA,
+0xDCF8,
+0xB742,
+0xB740,
+0xDD43,
+0xDCF9,
+0xDD44,
+0xDD40,
+0xDCF7,
+0xDD46,
+0xDCF6,
+0xDCFD,
+0xB6FE,
+0xB6FD,
+0xB6FC,
+0xDCFB,
+0xDD41,
+0xB6F9,
+0xB741,
+0,
+0xDCF4,
+0,
+0xDCFE,
+0xDCF3,
+0xDCFC,
+0xB6FA,
+0xDD42,
+0xDCF5,
+0xB6FB,
+0xDD45,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE16E,
+0xB9E2,
+0xB9E1,
+0xB9E3,
+0xE17A,
+0xE170,
+0xE176,
+0xE16B,
+0xE179,
+0xE178,
+0xE17C,
+0xE175,
+0xB9DE,
+0xE174,
+0xB9E4,
+0,
+0xE16D,
+0xB9DF,
+0,
+0xE17B,
+0xB9E0,
+0xE16F,
+0xE172,
+0xE177,
+0xE171,
+0xE16C,
+0,
+0,
+0,
+0,
+0xE173,
+0xE555,
+0xBC61,
+0xE558,
+0xE557,
+0xE55A,
+0xE55C,
+0,
+0xBC5F,
+0,
+0xE556,
+0,
+0xE554,
+0,
+0xE55D,
+0xE55B,
+0xE559,
+0,
+0xE55F,
+0,
+0xE55E,
+0xBC63,
+0xBC5E,
+0,
+0xBC60,
+0xBC62,
+0,
+0,
+0xE560,
+0xE957,
+0,
+0,
+0xE956,
+0xE955,
+0,
+0xE958,
+0xE951,
+0,
+0xE952,
+0xE95A,
+0xE953,
+0,
+0xBEC5,
+0xE95C,
+0,
+0xE95B,
+0xE954,
+0,
+0xECD1,
+0xC0A8,
+0xECCF,
+0xECD4,
+0xECD3,
+0xE959,
+0,
+0xC0A7,
+0,
+0xECD2,
+0xECCE,
+0xECD6,
+0xECD5,
+0xC0A6,
+0,
+0xECD0,
+0,
+0xBEC6,
+0,
+0,
+0,
+0xC254,
+0,
+0,
+0,
+0xEFC1,
+0xF1FA,
+0xF1FB,
+0xF1FC,
+0xC45C,
+0,
+0,
+0xC45D,
+0,
+0xF443,
+0,
+0xF5C8,
+0xF5C7,
+0,
+0,
+0xF6DB,
+0xF6DC,
+0xF7D5,
+0xF8A7,
+0,
+0xA46C,
+0xA46D,
+0,
+0xA46E,
+0xA4D5,
+0xA5A5,
+0xC9D3,
+0xA672,
+0xA673,
+0,
+0xA7B7,
+0xA7B8,
+0xA7B6,
+0xA7B5,
+0,
+0xA973,
+0,
+0,
+0xCC55,
+0xA975,
+0xA974,
+0xCC56,
+0,
+0,
+0,
+0xABC4,
+0,
+0xAE5D,
+0xD165,
+0,
+0xD4F0,
+0,
+0xB145,
+0xB447,
+0xD4EF,
+0xB446,
+0,
+0xB9E5,
+0,
+0xE17D,
+0xBEC7,
+0,
+0xC0A9,
+0xECD7,
+0,
+0xC45E,
+0,
+0xC570,
+0,
+0xC972,
+0,
+0xA5A6,
+0xC973,
+0xA676,
+0,
+0xA674,
+0xA675,
+0xA677,
+0,
+0xA7BA,
+0xA7B9,
+0,
+0xCABC,
+0xA7BB,
+0,
+0,
+0xCABD,
+0xCC57,
+0,
+0xCC58,
+0,
+0xA976,
+0xA978,
+0xA97A,
+0xA977,
+0xA97B,
+0xA979,
+0,
+0,
+0,
+0,
+0,
+0xABC8,
+0xABC5,
+0xABC7,
+0xABC9,
+0xABC6,
+0xD166,
+0xCE77,
+0,
+0,
+0,
+0xD168,
+0xD167,
+0xAE63,
+0,
+0xAE5F,
+0,
+0,
+0xAE60,
+0xAE62,
+0xAE64,
+0xAE61,
+0,
+0xAE66,
+0xAE65,
+0,
+0,
+0,
+0,
+0,
+0xB14A,
+0xD4F2,
+0xD4F1,
+0xB149,
+0,
+0xB148,
+0xB147,
+0xB14B,
+0xB146,
+0,
+0,
+0xD8D5,
+0xD8D2,
+0xB449,
+0xD8D1,
+0xD8D6,
+0,
+0xB44B,
+0xD8D4,
+0xB448,
+0xB44A,
+0xD8D3,
+0,
+0xDD48,
+0,
+0xDD49,
+0xDD4A,
+0,
+0,
+0,
+0,
+0xB9E6,
+0xB9EE,
+0xE17E,
+0xB9E8,
+0xB9EC,
+0xE1A1,
+0xB9ED,
+0xB9E9,
+0xB9EA,
+0xB9E7,
+0xB9EB,
+0xBC66,
+0xD8D0,
+0xBC67,
+0xBC65,
+0,
+0xBC64,
+0xE95D,
+0xBEC8,
+0xECD8,
+0xECD9,
+0,
+0,
+0xC364,
+0xC45F,
+0,
+0xA46F,
+0,
+0xA678,
+0,
+0,
+0,
+0,
+0,
+0,
+0xABCA,
+0,
+0xD169,
+0xAE67,
+0,
+0,
+0xB14E,
+0xB14D,
+0xB14C,
+0xB44C,
+0xB44D,
+0xD8D7,
+0xB9EF,
+0xBEC9,
+0xA470,
+0xC95C,
+0xA4D6,
+0xC974,
+0,
+0,
+0xC9D4,
+0xA679,
+0,
+0,
+0,
+0xA97C,
+0,
+0,
+0,
+0,
+0xDD4B,
+0,
+0,
+0xA471,
+0,
+0xA4D7,
+0xC9D5,
+0,
+0,
+0xCABE,
+0,
+0xCABF,
+0,
+0xA7BC,
+0,
+0,
+0,
+0xD8D8,
+0xB44E,
+0,
+0xDD4C,
+0,
+0,
+0,
+0xC0AA,
+0xA472,
+0xA4A8,
+0xA4D8,
+0xC975,
+0xA5A7,
+0,
+0xA7C0,
+0xA7BF,
+0xA7BD,
+0xA7BE,
+0,
+0,
+0xCC59,
+0xA97E,
+0xA9A1,
+0xCC5A,
+0xA97D,
+0,
+0,
+0xABCE,
+0xCE78,
+0xABCD,
+0xABCB,
+0xABCC,
+0xAE6A,
+0xAE68,
+0,
+0,
+0xD16B,
+0xAE69,
+0xD16A,
+0,
+0xAE5E,
+0xD4F3,
+0,
+0,
+0xB150,
+0xB151,
+0,
+0,
+0xB14F,
+0,
+0xB9F0,
+0xE1A2,
+0xBC68,
+0xBC69,
+0,
+0xE561,
+0xC0AB,
+0xEFC2,
+0xEFC3,
+0,
+0xC4DD,
+0xF8A8,
+0xC94B,
+0xA4D9,
+0,
+0xA473,
+0,
+0xC977,
+0xC976,
+0,
+0,
+0,
+0,
+0xA67A,
+0xC9D7,
+0xC9D8,
+0xC9D6,
+0,
+0xC9D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAC7,
+0,
+0xCAC2,
+0xCAC4,
+0xCAC6,
+0xCAC3,
+0xA7C4,
+0xCAC0,
+0,
+0xCAC1,
+0xA7C1,
+0xA7C2,
+0xCAC5,
+0xCAC8,
+0xA7C3,
+0xCAC9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCC68,
+0,
+0xCC62,
+0xCC5D,
+0xA9A3,
+0xCC65,
+0xCC63,
+0xCC5C,
+0xCC69,
+0xCC6C,
+0xCC67,
+0xCC60,
+0xA9A5,
+0xCC66,
+0xA9A6,
+0xCC61,
+0xCC64,
+0xCC5B,
+0xCC5F,
+0xCC6B,
+0xA9A7,
+0,
+0xA9A8,
+0,
+0xCC5E,
+0xCC6A,
+0xA9A2,
+0xA9A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEAB,
+0xCEA4,
+0xCEAA,
+0xCEA3,
+0xCEA5,
+0xCE7D,
+0xCE7B,
+0,
+0xCEAC,
+0xCEA9,
+0xCE79,
+0,
+0xABD0,
+0xCEA7,
+0xCEA8,
+0,
+0xCEA6,
+0xCE7C,
+0xCE7A,
+0xABCF,
+0xCEA2,
+0xCE7E,
+0,
+0,
+0xCEA1,
+0xCEAD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAE6F,
+0,
+0xAE6E,
+0,
+0xD16C,
+0xAE6B,
+0xD16E,
+0,
+0xAE70,
+0xD16F,
+0,
+0,
+0xAE73,
+0,
+0xAE71,
+0xD170,
+0xCEAE,
+0xD172,
+0,
+0xAE6D,
+0,
+0xAE6C,
+0,
+0xD16D,
+0xD171,
+0xAE72,
+0,
+0,
+0,
+0,
+0xB153,
+0xB152,
+0,
+0,
+0,
+0xD4F5,
+0xD4F9,
+0xD4FB,
+0xB154,
+0xD4FE,
+0,
+0xB158,
+0xD541,
+0,
+0xB15A,
+0,
+0xB156,
+0xB15E,
+0,
+0xB15B,
+0xD4F7,
+0xB155,
+0,
+0xD4F6,
+0xD4F4,
+0xD543,
+0xD4F8,
+0,
+0xB157,
+0xD542,
+0xB15C,
+0xD4FD,
+0xD4FC,
+0xB15D,
+0xD4FA,
+0xB159,
+0,
+0,
+0,
+0,
+0xD544,
+0,
+0xD540,
+0xD8E7,
+0xD8EE,
+0xD8E3,
+0xB451,
+0xD8DF,
+0xD8EF,
+0xD8D9,
+0xD8EC,
+0xD8EA,
+0xD8E4,
+0,
+0xD8ED,
+0xD8E6,
+0,
+0xD8DE,
+0xD8F0,
+0xD8DC,
+0xD8E9,
+0xD8DA,
+0,
+0xD8F1,
+0,
+0xB452,
+0,
+0xD8EB,
+0xDD4F,
+0xD8DD,
+0xB44F,
+0,
+0xD8E1,
+0,
+0xB450,
+0xD8E0,
+0xD8E5,
+0,
+0,
+0xD8E2,
+0,
+0,
+0,
+0xD8E8,
+0,
+0,
+0,
+0,
+0xDD53,
+0,
+0,
+0,
+0xDD56,
+0xDD4E,
+0,
+0xDD50,
+0,
+0xDD55,
+0xDD54,
+0xB743,
+0,
+0xD8DB,
+0xDD52,
+0,
+0,
+0xB744,
+0,
+0xDD4D,
+0xDD51,
+0,
+0,
+0,
+0,
+0xE1A9,
+0,
+0xE1B0,
+0xE1A7,
+0,
+0xE1AE,
+0xE1A5,
+0xE1AD,
+0xE1B1,
+0xE1A4,
+0xE1A8,
+0xE1A3,
+0,
+0xB9F1,
+0,
+0xE1A6,
+0xB9F2,
+0xE1AC,
+0xE1AB,
+0xE1AA,
+0,
+0,
+0xE1AF,
+0,
+0,
+0,
+0,
+0xE565,
+0xE567,
+0xBC6B,
+0xE568,
+0,
+0xE563,
+0,
+0xE562,
+0xE56C,
+0,
+0xE56A,
+0xBC6A,
+0xE56D,
+0xE564,
+0xE569,
+0xE56B,
+0xE566,
+0,
+0,
+0,
+0,
+0xE961,
+0xE966,
+0xE960,
+0xE965,
+0,
+0xE95E,
+0xE968,
+0xE964,
+0xE969,
+0xE963,
+0xE95F,
+0xE967,
+0,
+0xE96A,
+0xE962,
+0,
+0xECDA,
+0xC0AF,
+0,
+0xC0AD,
+0,
+0xC0AC,
+0xC0AE,
+0,
+0,
+0xEFC4,
+0,
+0xF172,
+0xF1FD,
+0,
+0,
+0xF444,
+0xF445,
+0,
+0xC460,
+0,
+0xF5C9,
+0,
+0xC4DE,
+0,
+0xF5CA,
+0,
+0xF6DE,
+0xC572,
+0,
+0xC571,
+0xF6DD,
+0xC5C9,
+0,
+0xF7D6,
+0,
+0,
+0,
+0,
+0xA474,
+0xA67B,
+0xC9DA,
+0xCACA,
+0xA8B5,
+0xB15F,
+0,
+0,
+0xA475,
+0xA5AA,
+0xA5A9,
+0xA5A8,
+0,
+0,
+0xA7C5,
+0,
+0,
+0xAE74,
+0,
+0xDD57,
+0xA476,
+0xA477,
+0xA478,
+0xA4DA,
+0,
+0,
+0xABD1,
+0,
+0xCEAF,
+0,
+0,
+0,
+0xB453,
+0xA479,
+0xC95D,
+0,
+0,
+0xA5AB,
+0xA5AC,
+0xC978,
+0,
+0xA67C,
+0,
+0,
+0,
+0xCACB,
+0,
+0xA7C6,
+0,
+0xCACC,
+0,
+0,
+0xA9AE,
+0,
+0,
+0xCC6E,
+0xA9AC,
+0xA9AB,
+0xCC6D,
+0xA9A9,
+0xCC6F,
+0xA9AA,
+0xA9AD,
+0,
+0xABD2,
+0,
+0xABD4,
+0xCEB3,
+0xCEB0,
+0xCEB1,
+0xCEB2,
+0xCEB4,
+0xABD3,
+0,
+0,
+0xD174,
+0xD173,
+0,
+0xAE76,
+0,
+0xAE75,
+0,
+0,
+0,
+0,
+0,
+0xB162,
+0xD546,
+0,
+0xB161,
+0xB163,
+0xB160,
+0,
+0,
+0,
+0,
+0xB455,
+0xD545,
+0,
+0xB456,
+0xD8F3,
+0,
+0xB457,
+0xD8F2,
+0xB454,
+0,
+0,
+0,
+0,
+0xDD5A,
+0xDD5C,
+0xB745,
+0xDD5B,
+0xDD59,
+0xDD58,
+0,
+0,
+0,
+0xE1B4,
+0xB9F7,
+0xB9F5,
+0,
+0xB9F6,
+0xE1B2,
+0xE1B3,
+0,
+0xB9F3,
+0xE571,
+0xE56F,
+0,
+0xBC6D,
+0xE570,
+0xBC6E,
+0xBC6C,
+0xB9F4,
+0,
+0,
+0xE96D,
+0xE96B,
+0xE96C,
+0xE56E,
+0xECDC,
+0xC0B0,
+0xECDB,
+0xEFC5,
+0xEFC6,
+0xE96E,
+0xF1FE,
+0,
+0xA47A,
+0xA5AD,
+0xA67E,
+0xC9DB,
+0xA67D,
+0,
+0xA9AF,
+0xB746,
+0,
+0xA4DB,
+0xA5AE,
+0xABD5,
+0xB458,
+0,
+0xC979,
+0,
+0xC97A,
+0,
+0xC9DC,
+0,
+0,
+0xA7C8,
+0xCAD0,
+0xCACE,
+0xA7C9,
+0xCACD,
+0xCACF,
+0xCAD1,
+0,
+0xA7C7,
+0,
+0,
+0,
+0,
+0,
+0xA9B3,
+0xA9B4,
+0xA9B1,
+0,
+0,
+0xA9B0,
+0xCEB8,
+0xA9B2,
+0,
+0,
+0,
+0xABD6,
+0,
+0xCEB7,
+0xCEB9,
+0xCEB6,
+0xCEBA,
+0xABD7,
+0xAE79,
+0xD175,
+0,
+0xD177,
+0xAE77,
+0xD178,
+0xAE78,
+0xD176,
+0,
+0xCEB5,
+0xD547,
+0xD54A,
+0xD54B,
+0xD548,
+0xB167,
+0xB166,
+0xB164,
+0xB165,
+0xD549,
+0,
+0,
+0,
+0,
+0xB168,
+0,
+0,
+0xB45A,
+0xB45B,
+0,
+0xB45C,
+0xDD5D,
+0xDD5F,
+0xDD61,
+0xB748,
+0xB747,
+0xB459,
+0xDD60,
+0xDD5E,
+0,
+0xE1B8,
+0,
+0,
+0xE1B6,
+0xE1BC,
+0xB9F8,
+0xE1BD,
+0xE1BA,
+0xB9F9,
+0xE1B7,
+0xE1B5,
+0xE1BB,
+0xBC70,
+0xE573,
+0xE1B9,
+0xBC72,
+0xE574,
+0xBC71,
+0xBC74,
+0xE575,
+0xBC6F,
+0xBC73,
+0,
+0xE973,
+0xE971,
+0xE970,
+0xE972,
+0xE96F,
+0,
+0,
+0xC366,
+0,
+0xF446,
+0xF447,
+0,
+0xF5CB,
+0xF6DF,
+0xC655,
+0,
+0,
+0xA9B5,
+0xA7CA,
+0,
+0,
+0xABD8,
+0,
+0,
+0,
+0xA47B,
+0xA4DC,
+0,
+0xA5AF,
+0xC9DD,
+0,
+0xA7CB,
+0xCAD2,
+0,
+0xCEBB,
+0xABD9,
+0,
+0xB9FA,
+0xA47C,
+0,
+0,
+0,
+0xA6A1,
+0,
+0,
+0xB749,
+0xA47D,
+0xA4DD,
+0xA4DE,
+0,
+0xA5B1,
+0xA5B0,
+0,
+0xC9DE,
+0xA6A2,
+0,
+0xCAD3,
+0,
+0xA7CC,
+0,
+0,
+0xCC71,
+0xCC72,
+0xCC73,
+0,
+0xA9B6,
+0xA9B7,
+0xCC70,
+0xA9B8,
+0,
+0,
+0,
+0xABDA,
+0xCEBC,
+0,
+0xD17A,
+0xAE7A,
+0,
+0xD179,
+0,
+0xB169,
+0xD54C,
+0xB16A,
+0xD54D,
+0,
+0,
+0,
+0xB45D,
+0,
+0,
+0,
+0xDD62,
+0,
+0,
+0xE1BF,
+0xE1BE,
+0,
+0xB9FB,
+0,
+0xBC75,
+0xE576,
+0xBECA,
+0xE974,
+0xC0B1,
+0,
+0xC573,
+0xF7D8,
+0,
+0,
+0,
+0,
+0xCC74,
+0,
+0xCEBD,
+0xB16B,
+0xD8F4,
+0xB74A,
+0,
+0,
+0,
+0xC255,
+0,
+0,
+0,
+0,
+0xA7CE,
+0,
+0xA7CD,
+0xABDB,
+0,
+0xD17B,
+0,
+0xB16D,
+0xB343,
+0xB16E,
+0xB16C,
+0xB45E,
+0,
+0xE1C0,
+0xB9FC,
+0xBC76,
+0,
+0xC94C,
+0xC9DF,
+0,
+0xCAD5,
+0xA7CF,
+0xCAD4,
+0xA7D0,
+0,
+0,
+0xA9BC,
+0xCC77,
+0xCC76,
+0xA9BB,
+0xA9B9,
+0xA9BA,
+0xCC75,
+0,
+0,
+0xABDD,
+0xCEBE,
+0xABE0,
+0xABDC,
+0xABE2,
+0xABDE,
+0xABDF,
+0xABE1,
+0,
+0,
+0,
+0xAE7D,
+0xAE7C,
+0xAE7B,
+0,
+0,
+0,
+0xD54F,
+0xB16F,
+0xB172,
+0xB170,
+0,
+0xD54E,
+0xB175,
+0,
+0xB171,
+0xD550,
+0xB174,
+0xB173,
+0,
+0,
+0,
+0xD8F6,
+0xD8F5,
+0,
+0xB461,
+0xB45F,
+0xB460,
+0xD8F7,
+0xB74B,
+0xDD64,
+0xB74C,
+0xDD63,
+0,
+0,
+0xE577,
+0,
+0,
+0xBC78,
+0xE1C1,
+0xBC77,
+0,
+0xB9FD,
+0,
+0xECDE,
+0xE975,
+0xC0B2,
+0xECDD,
+0xF240,
+0xF448,
+0xF449,
+0,
+0xA4DF,
+0,
+0xA5B2,
+0,
+0,
+0,
+0xC97B,
+0,
+0,
+0xA7D2,
+0xA7D4,
+0,
+0xC9E2,
+0xCAD8,
+0xCAD7,
+0xCAD6,
+0,
+0xC9E1,
+0xC9E0,
+0xA6A4,
+0xA7D3,
+0xA7D1,
+0xA6A3,
+0,
+0,
+0,
+0xA9BD,
+0xCC78,
+0,
+0xA9BE,
+0xCADD,
+0,
+0xCADF,
+0xCADE,
+0xCC79,
+0,
+0,
+0xCADA,
+0,
+0xA7D8,
+0xA7D6,
+0,
+0xCAD9,
+0xCADB,
+0xCAE1,
+0,
+0xA7D5,
+0,
+0xCADC,
+0xCAE5,
+0xA9C0,
+0,
+0xCAE2,
+0xA7D7,
+0,
+0xCAE0,
+0xCAE3,
+0,
+0xA9BF,
+0,
+0xA9C1,
+0xCAE4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCAF,
+0xCCA2,
+0xCC7E,
+0xCCAE,
+0xCCA9,
+0xABE7,
+0xA9C2,
+0xCCAA,
+0xCCAD,
+0xABE3,
+0xCCAC,
+0xA9C3,
+0xA9C8,
+0xA9C6,
+0xCCA3,
+0,
+0xCC7C,
+0xCCA5,
+0xA9CD,
+0xCCB0,
+0xABE4,
+0xCCA6,
+0,
+0xABE5,
+0xA9C9,
+0xCCA8,
+0,
+0xCECD,
+0xABE6,
+0xCC7B,
+0xA9CA,
+0xABE8,
+0xA9CB,
+0xA9C7,
+0xA9CC,
+0xCCA7,
+0xCC7A,
+0xCCAB,
+0xA9C4,
+0,
+0,
+0xCC7D,
+0xCCA4,
+0xCCA1,
+0xA9C5,
+0,
+0xCEBF,
+0,
+0xCEC0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCECA,
+0xD1A1,
+0xCECB,
+0xABEE,
+0xCECE,
+0xCEC4,
+0xABED,
+0xCEC6,
+0,
+0xCEC7,
+0,
+0,
+0xCEC9,
+0xABE9,
+0,
+0,
+0xAEA3,
+0,
+0,
+0xCEC5,
+0xCEC1,
+0xAEA4,
+0,
+0,
+0xCECF,
+0xAE7E,
+0xD17D,
+0xCEC8,
+0,
+0xD17C,
+0xCEC3,
+0xCECC,
+0,
+0,
+0xABEC,
+0xAEA1,
+0xABF2,
+0xAEA2,
+0xCED0,
+0xD17E,
+0xABEB,
+0xAEA6,
+0xABF1,
+0xABF0,
+0xABEF,
+0xAEA5,
+0xCED1,
+0xAEA7,
+0xABEA,
+0,
+0xCEC2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB176,
+0xD1A4,
+0xD1A6,
+0,
+0xD1A8,
+0xAEA8,
+0xAEAE,
+0xD553,
+0xD1AC,
+0xD1A3,
+0xB178,
+0xD551,
+0,
+0xAEAD,
+0xAEAB,
+0xD1AE,
+0,
+0xD552,
+0,
+0xD1A5,
+0,
+0xAEAC,
+0xD1A9,
+0xAEAF,
+0xD1AB,
+0,
+0,
+0xAEAA,
+0xD1AA,
+0xD1AD,
+0xD1A7,
+0,
+0xAEA9,
+0xB179,
+0,
+0xD1A2,
+0xB177,
+0,
+0,
+0,
+0,
+0xB17A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD555,
+0xD55E,
+0xB464,
+0,
+0xB17C,
+0xB1A3,
+0xB465,
+0xD560,
+0xB1AA,
+0xD8F9,
+0xD556,
+0xB1A2,
+0xB1A5,
+0xB17E,
+0xD554,
+0xD562,
+0xD565,
+0xD949,
+0,
+0xD563,
+0xD8FD,
+0xB1A1,
+0xB1A8,
+0xB1AC,
+0xD55D,
+0xD8F8,
+0xD561,
+0xB17B,
+0xD8FA,
+0xD564,
+0xD8FC,
+0xD559,
+0,
+0xB462,
+0,
+0xD557,
+0xD558,
+0xB1A7,
+0,
+0,
+0xB1A6,
+0xD55B,
+0xB1AB,
+0xD55F,
+0xB1A4,
+0xD55C,
+0,
+0xB1A9,
+0xB466,
+0xB463,
+0xD8FB,
+0,
+0xD55A,
+0,
+0xB17D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB46B,
+0xB46F,
+0xD940,
+0xB751,
+0xB46D,
+0xD944,
+0xB471,
+0xDD65,
+0xD946,
+0xB753,
+0xB469,
+0xB46C,
+0xD947,
+0,
+0xD948,
+0xD94E,
+0xB473,
+0xB754,
+0,
+0xD94A,
+0xD94F,
+0xD943,
+0xB75E,
+0,
+0xB755,
+0xB472,
+0xD941,
+0xD950,
+0,
+0xB75D,
+0xB470,
+0xB74E,
+0xD94D,
+0,
+0xB474,
+0xD945,
+0xD8FE,
+0xB46A,
+0xD942,
+0,
+0xD94B,
+0,
+0xB74D,
+0xB752,
+0xB467,
+0xD94C,
+0,
+0xB750,
+0,
+0,
+0,
+0xB468,
+0,
+0,
+0,
+0xB75C,
+0xE1C3,
+0xDD70,
+0,
+0xDD68,
+0xE1C2,
+0,
+0xDD6C,
+0xDD6E,
+0,
+0,
+0xDD6B,
+0,
+0xB75B,
+0,
+0xDD6A,
+0xB75F,
+0,
+0,
+0,
+0xE1D2,
+0,
+0,
+0xB75A,
+0xBA40,
+0xDD71,
+0xE1C4,
+0,
+0,
+0xB758,
+0xDD69,
+0xDD6D,
+0xB9FE,
+0xB74F,
+0xDD66,
+0xDD67,
+0xBA41,
+0xB757,
+0xB759,
+0xB756,
+0xDD6F,
+0,
+0,
+0xE1C8,
+0xE1C9,
+0xE1CE,
+0xBC7D,
+0xE1D5,
+0,
+0xBA47,
+0,
+0xBA46,
+0xE1D0,
+0,
+0xBC7C,
+0xE1C5,
+0xBA45,
+0,
+0xE1D4,
+0xBA43,
+0xBA44,
+0,
+0xE1D1,
+0xE5AA,
+0xBC7A,
+0xB46E,
+0,
+0xE1D3,
+0xBCA3,
+0xE1CB,
+0,
+0xBC7B,
+0,
+0xBCA2,
+0xE1C6,
+0xE1CA,
+0xE1C7,
+0xE1CD,
+0xBA48,
+0xBC79,
+0xBA42,
+0,
+0xE57A,
+0xE1CF,
+0,
+0xBCA1,
+0,
+0xBCA4,
+0,
+0xE1CC,
+0,
+0xBC7E,
+0xE579,
+0,
+0,
+0,
+0,
+0,
+0xE57E,
+0xBECE,
+0xE578,
+0xE9A3,
+0xE5A9,
+0xBCA8,
+0,
+0xBCA6,
+0xBECC,
+0xE5A6,
+0xE5A2,
+0xBCAC,
+0,
+0xE978,
+0,
+0,
+0,
+0xBCAA,
+0xE5A1,
+0,
+0xE976,
+0,
+0xE5A5,
+0,
+0xE5A8,
+0xE57D,
+0,
+0xBCAB,
+0,
+0,
+0xBCA5,
+0xE977,
+0xBECD,
+0xE5A7,
+0xBCA7,
+0xBCA9,
+0xE5A4,
+0xBCAD,
+0xE5A3,
+0xE57C,
+0xE57B,
+0xBECB,
+0xE5AB,
+0xE97A,
+0xECE0,
+0xBED0,
+0,
+0xE9A2,
+0,
+0xE97E,
+0,
+0xECE1,
+0,
+0xBED1,
+0xE9A1,
+0,
+0xE97C,
+0xC0B4,
+0xECDF,
+0,
+0xE979,
+0xE97B,
+0xC0B5,
+0xBED3,
+0xC0B3,
+0xBED2,
+0xC0B7,
+0xE97D,
+0xBECF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFCF,
+0,
+0xEFC7,
+0,
+0,
+0,
+0,
+0,
+0xECE7,
+0xEFC8,
+0xECE3,
+0,
+0,
+0xC256,
+0xECE5,
+0xECE4,
+0xC0B6,
+0xECE2,
+0xECE6,
+0xEFD0,
+0xEFCC,
+0xEFCE,
+0,
+0xEFC9,
+0xEFCA,
+0,
+0xEFCD,
+0xEFCB,
+0xC367,
+0,
+0,
+0xC36A,
+0xC369,
+0xC368,
+0xC461,
+0xF44A,
+0xC462,
+0xF241,
+0xC4DF,
+0xF5CC,
+0xC4E0,
+0xC574,
+0xC5CA,
+0xF7D9,
+0,
+0xF7DA,
+0xF7DB,
+0,
+0,
+0xF9BA,
+0xA4E0,
+0xC97C,
+0xA5B3,
+0,
+0xA6A6,
+0xA6A7,
+0xA6A5,
+0,
+0xA6A8,
+0xA7DA,
+0xA7D9,
+0,
+0xCCB1,
+0xA9CF,
+0xA9CE,
+0,
+0,
+0xD1AF,
+0xB1AD,
+0xB1AE,
+0,
+0,
+0,
+0xB475,
+0xDD72,
+0xB760,
+0xB761,
+0xDD74,
+0xDD76,
+0xDD75,
+0,
+0xE1D7,
+0,
+0xE1D6,
+0xBA49,
+0xE1D8,
+0,
+0xE5AC,
+0xBCAE,
+0,
+0xBED4,
+0,
+0xC0B8,
+0xC257,
+0xC0B9,
+0,
+0xA4E1,
+0,
+0,
+0,
+0xCAE6,
+0,
+0,
+0xCCB2,
+0xA9D1,
+0xA9D0,
+0xA9D2,
+0xABF3,
+0xCED2,
+0xCED3,
+0,
+0,
+0xD1B0,
+0xAEB0,
+0xB1AF,
+0xB476,
+0xD951,
+0xA4E2,
+0,
+0xA47E,
+0xA4E3,
+0,
+0xC97D,
+0xA5B7,
+0xA5B6,
+0xA5B4,
+0xA5B5,
+0,
+0,
+0,
+0xA6AB,
+0xC9E9,
+0xC9EB,
+0xA6AA,
+0xC9E3,
+0,
+0xC9E4,
+0,
+0xC9EA,
+0xC9E6,
+0xC9E8,
+0xA6A9,
+0xC9E5,
+0xC9EC,
+0xC9E7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA7E1,
+0xA7EA,
+0xA7E8,
+0xCAF0,
+0xCAED,
+0xCAF5,
+0xA7E6,
+0xCAF6,
+0,
+0xA7DF,
+0xCAF3,
+0,
+0xA7E5,
+0xCAEF,
+0xCAEE,
+0xA7E3,
+0xCAF4,
+0xA7E4,
+0xA9D3,
+0xA7DE,
+0xCAF1,
+0,
+0xCAE7,
+0xA7DB,
+0,
+0xA7EE,
+0xCAEC,
+0xCAF2,
+0xA7E0,
+0xA7E2,
+0,
+0xCAE8,
+0,
+0xCAE9,
+0xCAEA,
+0,
+0xA7ED,
+0xA7E7,
+0xA7EC,
+0xCAEB,
+0xA7EB,
+0xA7DD,
+0xA7DC,
+0xA7E9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA9E1,
+0xCCBE,
+0xCCB7,
+0xA9DC,
+0xA9EF,
+0xCCB3,
+0xCCBA,
+0xCCBC,
+0xCCBF,
+0xA9EA,
+0,
+0xCCBB,
+0xCCB4,
+0xA9E8,
+0xCCB8,
+0,
+0xCCC0,
+0xA9D9,
+0,
+0xCCBD,
+0xA9E3,
+0xA9E2,
+0xCCB6,
+0xA9D7,
+0,
+0,
+0xA9D8,
+0,
+0xA9D6,
+0,
+0xA9EE,
+0xA9E6,
+0xA9E0,
+0xA9D4,
+0xCCB9,
+0xA9DF,
+0xA9D5,
+0xA9E7,
+0xA9F0,
+0xCED4,
+0xA9E4,
+0xCCB5,
+0xA9DA,
+0xA9DD,
+0xA9DE,
+0,
+0xA9EC,
+0xA9ED,
+0xA9EB,
+0xA9E5,
+0xA9E9,
+0xA9DB,
+0xABF4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEDA,
+0xAC41,
+0xABF8,
+0xABFA,
+0xAC40,
+0xCEE6,
+0xABFD,
+0xD1B1,
+0xAEB1,
+0xAC43,
+0xCED7,
+0xCEDF,
+0xABFE,
+0xCEDE,
+0xCEDB,
+0xCEE3,
+0xCEE5,
+0xABF7,
+0xABFB,
+0xAC42,
+0xAEB3,
+0xCEE0,
+0xABF9,
+0xAC45,
+0xCED9,
+0,
+0,
+0,
+0xABFC,
+0xAEB2,
+0xABF6,
+0,
+0xCED6,
+0xCEDD,
+0xCED5,
+0xCED8,
+0xCEDC,
+0xD1B2,
+0xAC44,
+0,
+0xCEE1,
+0xCEE2,
+0xCEE4,
+0xABF5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAEC1,
+0xD1BE,
+0xAEBF,
+0xAEC0,
+0xD1B4,
+0xD1C4,
+0,
+0xAEB6,
+0,
+0,
+0xD566,
+0xD1C6,
+0xD1C0,
+0,
+0xD1B7,
+0,
+0xD1C9,
+0xD1BA,
+0xAEBC,
+0xD57D,
+0xD1BD,
+0xAEBE,
+0xAEB5,
+0,
+0xD1CB,
+0xD1BF,
+0xAEB8,
+0xD1B8,
+0xD1B5,
+0xD1B6,
+0xAEB9,
+0xD1C5,
+0xD1CC,
+0xAEBB,
+0xD1BC,
+0xD1BB,
+0xAEC3,
+0xAEC2,
+0xAEB4,
+0xAEBA,
+0xAEBD,
+0xD1C8,
+0,
+0,
+0xD1C2,
+0xAEB7,
+0xD1B3,
+0xD1CA,
+0xD1C1,
+0xD1C3,
+0xD1C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD567,
+0,
+0xB1B7,
+0xB1CB,
+0xB1CA,
+0,
+0xB1BF,
+0,
+0xD579,
+0xD575,
+0xD572,
+0xD5A6,
+0xB1BA,
+0xB1B2,
+0,
+0,
+0xD577,
+0xB4A8,
+0xB1B6,
+0xD5A1,
+0,
+0xB1CC,
+0xB1C9,
+0xD57B,
+0xD56A,
+0,
+0,
+0xB1C8,
+0xD5A3,
+0xD569,
+0xB1BD,
+0xB1C1,
+0xD5A2,
+0,
+0xD573,
+0xB1C2,
+0xB1BC,
+0xD568,
+0,
+0xB478,
+0xD5A5,
+0xD571,
+0xB1C7,
+0xD574,
+0xD5A4,
+0xB1C6,
+0,
+0xD952,
+0,
+0xB1B3,
+0xD56F,
+0xB1B8,
+0xB1C3,
+0,
+0xB1BE,
+0xD578,
+0xD56E,
+0xD56C,
+0xD57E,
+0xB1B0,
+0xB1C4,
+0xB1B4,
+0xB477,
+0xD57C,
+0xB1B5,
+0,
+0xB1B1,
+0xB1C0,
+0xB1BB,
+0xB1B9,
+0xD570,
+0xB1C5,
+0xD56D,
+0xD57A,
+0xD576,
+0xD954,
+0xD953,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD56B,
+0xD964,
+0,
+0xB47A,
+0,
+0xD96A,
+0xD959,
+0xD967,
+0xDD77,
+0xB47D,
+0xD96B,
+0xD96E,
+0xB47C,
+0xD95C,
+0xD96D,
+0xD96C,
+0xB47E,
+0xD955,
+0xB479,
+0xB4A3,
+0,
+0xB4A1,
+0xD969,
+0,
+0xD95F,
+0xB4A5,
+0xD970,
+0xD968,
+0xD971,
+0xB4AD,
+0xB4AB,
+0xD966,
+0xD965,
+0,
+0xD963,
+0xD95D,
+0xB4A4,
+0,
+0xB4A2,
+0xD1B9,
+0xD956,
+0,
+0xDDB7,
+0xD957,
+0xB47B,
+0xB4AA,
+0xDD79,
+0,
+0xB4A6,
+0xB4A7,
+0xD958,
+0xD96F,
+0xDD78,
+0xD960,
+0xD95B,
+0xB4A9,
+0xD961,
+0xD95E,
+0,
+0,
+0xB4AE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB770,
+0,
+0,
+0xDD7C,
+0xDDB1,
+0xDDB6,
+0xDDAA,
+0xB76C,
+0xDDBB,
+0xB769,
+0xDD7A,
+0,
+0xDD7B,
+0xB762,
+0xB76B,
+0xDDA4,
+0xB76E,
+0xB76F,
+0xDDA5,
+0,
+0xDDB2,
+0xDDB8,
+0xB76A,
+0,
+0xB764,
+0xDDA3,
+0xDD7D,
+0xDDBA,
+0xDDA8,
+0xDDA9,
+0xDD7E,
+0xDDB4,
+0xDDAB,
+0xDDB5,
+0xDDAD,
+0,
+0xB765,
+0xE1D9,
+0xB768,
+0xB766,
+0xDDB9,
+0xDDB0,
+0xDDAC,
+0,
+0,
+0xDDA1,
+0xBA53,
+0xDDAF,
+0xB76D,
+0xDDA7,
+0,
+0xDDA6,
+0,
+0,
+0,
+0xB767,
+0xB763,
+0xE1EE,
+0xDDB3,
+0xDDAE,
+0,
+0xDDA2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1E9,
+0,
+0xE1DA,
+0xE1E5,
+0,
+0xE1EC,
+0xBA51,
+0xB4AC,
+0xE1EA,
+0xBA4C,
+0,
+0,
+0,
+0xBA4B,
+0xE1F1,
+0,
+0xE1DB,
+0xE1E8,
+0xE1DC,
+0xE1E7,
+0xBA4F,
+0xE1EB,
+0xD962,
+0,
+0,
+0,
+0xE1F2,
+0xE1E3,
+0xBA52,
+0xE5BA,
+0xBCAF,
+0,
+0xE1F0,
+0xE1EF,
+0xBA54,
+0xE5AD,
+0xBCB0,
+0xE5AE,
+0,
+0xE1DF,
+0xE1E0,
+0xE1DD,
+0xE1E2,
+0xE1DE,
+0xE1F3,
+0xBA4E,
+0xBCB1,
+0xBA50,
+0xBA55,
+0,
+0xE1E1,
+0,
+0xE1ED,
+0,
+0,
+0xE1E6,
+0,
+0,
+0xE5B1,
+0,
+0xBA4A,
+0xBCB4,
+0xE9AA,
+0xE5B6,
+0xE5B5,
+0xE5B7,
+0,
+0,
+0xE5B4,
+0xBCB5,
+0,
+0xBCBB,
+0xBCB8,
+0,
+0xBCB9,
+0xE5AF,
+0xE5B2,
+0xE5BC,
+0xBCC1,
+0xBCBF,
+0,
+0xE5B3,
+0xD95A,
+0xBCB2,
+0xE5B9,
+0xE5B0,
+0,
+0xBCC2,
+0xE5B8,
+0xBA4D,
+0xBCB7,
+0xE1E4,
+0,
+0,
+0xBCBA,
+0,
+0xBCBE,
+0xBCC0,
+0xBCBD,
+0xBCBC,
+0,
+0xBCB6,
+0xE5BB,
+0xBCB3,
+0xBCC3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBED8,
+0xBED9,
+0xE9A9,
+0xBEE2,
+0xBEDF,
+0,
+0xBED6,
+0xBEDD,
+0xE9AB,
+0xBEDB,
+0xBED5,
+0,
+0xBEDC,
+0,
+0xE9A8,
+0xC0BB,
+0xBED7,
+0,
+0xBEDE,
+0xC0BA,
+0xE9A7,
+0xE9A6,
+0,
+0xBEE0,
+0,
+0xBEE1,
+0,
+0xE9A5,
+0xE9A4,
+0xC0BC,
+0xE9AE,
+0xBEDA,
+0xE9AC,
+0,
+0,
+0,
+0,
+0xC0BD,
+0,
+0xC0C2,
+0xECEA,
+0xECEC,
+0,
+0xC0BF,
+0,
+0xECED,
+0xECE9,
+0,
+0xECEB,
+0xC0C0,
+0xC0C3,
+0,
+0xECE8,
+0xC0BE,
+0xC0C1,
+0xC259,
+0xE9AD,
+0xC258,
+0,
+0,
+0xC25E,
+0xEFD4,
+0,
+0xC25C,
+0xC25D,
+0xEFD7,
+0xEFD3,
+0xC25A,
+0xEFD1,
+0xC36B,
+0xEFD5,
+0,
+0xEFD6,
+0xEFD2,
+0,
+0xC25B,
+0xF242,
+0,
+0xF245,
+0,
+0,
+0xF246,
+0xF244,
+0xF247,
+0xC36C,
+0xF243,
+0,
+0,
+0xF44E,
+0xC464,
+0xF44D,
+0xF44C,
+0xF44B,
+0xC463,
+0xC465,
+0,
+0xF5CD,
+0xC4E2,
+0xC4E1,
+0,
+0,
+0xF6E1,
+0xF6E0,
+0xF6E3,
+0xC5CB,
+0xC575,
+0xF7DD,
+0xF6E2,
+0,
+0,
+0xF7DC,
+0xC5CD,
+0xC5CC,
+0xC5F3,
+0xF8A9,
+0xF8EF,
+0xA4E4,
+0,
+0,
+0xD972,
+0xE9AF,
+0,
+0,
+0xA6AC,
+0xCAF7,
+0xA7F1,
+0xA7EF,
+0,
+0xA7F0,
+0,
+0xCCC1,
+0xA9F1,
+0xAC46,
+0,
+0xCEE7,
+0,
+0xCEE8,
+0,
+0xAC47,
+0xD1CE,
+0,
+0xAEC4,
+0xAEC5,
+0xD1CD,
+0,
+0,
+0,
+0,
+0xB1D3,
+0,
+0xB1CF,
+0,
+0xD5A7,
+0xB1D6,
+0xB1D5,
+0xB1CE,
+0xB1D1,
+0xB1D4,
+0xB1D0,
+0,
+0,
+0xD976,
+0xB1CD,
+0xB4AF,
+0,
+0,
+0,
+0xB4B1,
+0xB4B2,
+0xD975,
+0xD978,
+0xB4B0,
+0xD973,
+0xD977,
+0,
+0xD974,
+0,
+0xB771,
+0,
+0,
+0xDDBC,
+0,
+0,
+0xBA56,
+0xE1F4,
+0xBEE3,
+0xBCC4,
+0xE5BD,
+0xBCC5,
+0xBCC6,
+0xE5BF,
+0xE5BE,
+0xE5C0,
+0xE9B1,
+0,
+0,
+0xE9B0,
+0xECEF,
+0xECEE,
+0xC0C4,
+0xC0C5,
+0xF248,
+0,
+0,
+0xA4E5,
+0,
+0,
+0,
+0,
+0xD979,
+0,
+0,
+0,
+0xB4B4,
+0xB4B3,
+0xDDBD,
+0,
+0xEFD8,
+0xC4E3,
+0xF7DE,
+0xA4E6,
+0,
+0xAEC6,
+0,
+0xB1D8,
+0xB1D7,
+0xD97A,
+0xD97B,
+0xB772,
+0xE1F5,
+0xBA57,
+0xE9B2,
+0,
+0xA4E7,
+0xA5B8,
+0,
+0xA9F2,
+0xCCC2,
+0,
+0xCEE9,
+0xAC48,
+0xB1D9,
+0,
+0xD97C,
+0xB4B5,
+0xB773,
+0,
+0xE5C1,
+0xE5C2,
+0,
+0,
+0xECF0,
+0xC25F,
+0xF8F0,
+0xA4E8,
+0,
+0xCCC3,
+0xA9F3,
+0xAC49,
+0,
+0xCEEA,
+0,
+0xAEC7,
+0xD1D2,
+0xD1D0,
+0xD1D1,
+0xAEC8,
+0xD1CF,
+0,
+0,
+0,
+0,
+0xB1DB,
+0xB1DC,
+0xD5A8,
+0xB1DD,
+0xB1DA,
+0xD97D,
+0,
+0xD97E,
+0xDDBE,
+0,
+0,
+0xBA59,
+0xBA58,
+0,
+0,
+0xECF1,
+0xEFD9,
+0,
+0xF24A,
+0xF249,
+0xF44F,
+0,
+0xC95E,
+0xAC4A,
+0,
+0,
+0xA4E9,
+0xA5B9,
+0,
+0xA6AE,
+0xA6AD,
+0,
+0,
+0xA6AF,
+0xA6B0,
+0xC9EE,
+0xC9ED,
+0xCAF8,
+0xA7F2,
+0xCAFB,
+0xCAFA,
+0xCAF9,
+0xCAFC,
+0,
+0,
+0,
+0,
+0xA9F4,
+0xCCC9,
+0xCCC5,
+0xCCCE,
+0,
+0,
+0xA9FB,
+0,
+0xA9F9,
+0xCCCA,
+0xCCC6,
+0xCCCD,
+0xA9F8,
+0xAA40,
+0xCCC8,
+0xCCC4,
+0xA9FE,
+0xCCCB,
+0xA9F7,
+0xCCCC,
+0xA9FA,
+0xA9FC,
+0xCCD0,
+0xCCCF,
+0xCCC7,
+0xA9F6,
+0xA9F5,
+0xA9FD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEEF,
+0xCEF5,
+0,
+0xAC50,
+0xAC4D,
+0xCEEC,
+0xCEF1,
+0,
+0xAC53,
+0xAC4B,
+0xCEF0,
+0xAC4E,
+0xAC51,
+0,
+0,
+0xCEF3,
+0,
+0xAC4C,
+0xCEF8,
+0xAC4F,
+0,
+0xAC52,
+0xCEED,
+0xCEF2,
+0xCEF6,
+0xCEEE,
+0xCEEB,
+0,
+0,
+0xCEF7,
+0xCEF4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAED0,
+0xAEC9,
+0xAECC,
+0,
+0xAECF,
+0,
+0xD1D5,
+0,
+0xAECA,
+0xD1D3,
+0,
+0xAECE,
+0,
+0,
+0xAECB,
+0,
+0xD1D6,
+0xAECD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5AC,
+0xB1DF,
+0xD5AB,
+0xD5AD,
+0xB1DE,
+0xB1E3,
+0xD1D4,
+0,
+0xD5AA,
+0xD5AE,
+0,
+0xB1E0,
+0xD5A9,
+0xB1E2,
+0,
+0xB1E1,
+0,
+0xD9A7,
+0,
+0xD9A2,
+0,
+0xB4B6,
+0xB4BA,
+0xB4B7,
+0xD9A5,
+0xD9A8,
+0,
+0xB4B8,
+0,
+0xB4B9,
+0xB4BE,
+0xDDC7,
+0xD9A6,
+0xB4BC,
+0xD9A3,
+0xD9A1,
+0,
+0xB4BD,
+0,
+0xD9A4,
+0,
+0,
+0,
+0xB779,
+0,
+0xDDBF,
+0xB776,
+0xB777,
+0xB775,
+0xDDC4,
+0xDDC3,
+0xDDC0,
+0xB77B,
+0,
+0,
+0xDDC2,
+0xB4BB,
+0,
+0,
+0xDDC6,
+0xDDC1,
+0xB778,
+0xB774,
+0xB77A,
+0xDDC5,
+0,
+0,
+0,
+0xBA5C,
+0,
+0xE1F8,
+0xE1F7,
+0xE1F6,
+0xBA5A,
+0,
+0,
+0,
+0,
+0,
+0xBA5B,
+0xE5C5,
+0xE5C8,
+0xBCC8,
+0,
+0,
+0xBCC7,
+0xE5C9,
+0xE5C4,
+0xBCCA,
+0xE5C6,
+0,
+0xBCC9,
+0xE5C3,
+0,
+0xE5C7,
+0xBEE9,
+0xBEE6,
+0xE9BB,
+0xE9BA,
+0,
+0xE9B9,
+0xE9B4,
+0,
+0xE9B5,
+0,
+0,
+0,
+0xBEE7,
+0,
+0xBEE4,
+0xBEE8,
+0xE9B3,
+0xBEE5,
+0xE9B6,
+0xE9B7,
+0xE9BC,
+0,
+0,
+0xE9B8,
+0,
+0,
+0xECF2,
+0,
+0,
+0,
+0xC0C7,
+0,
+0xEFDC,
+0xC0C6,
+0xEFDA,
+0xEFDB,
+0xC260,
+0xC36E,
+0xF24B,
+0,
+0xC36D,
+0,
+0,
+0xF451,
+0xF452,
+0,
+0xC466,
+0,
+0xF450,
+0xC4E4,
+0,
+0xF7DF,
+0xC5CE,
+0xF8AA,
+0xF8AB,
+0,
+0xA4EA,
+0,
+0xA6B1,
+0xA6B2,
+0xA7F3,
+0,
+0xCCD1,
+0xAC54,
+0xAED1,
+0xB1E4,
+0,
+0,
+0xB0D2,
+0,
+0xB4BF,
+0xB4C0,
+0xB3CC,
+0xD9A9,
+0,
+0xB77C,
+0xE1FA,
+0xE1F9,
+0,
+0,
+0xA4EB,
+0xA6B3,
+0xCCD2,
+0xAA42,
+0,
+0xAA41,
+0,
+0xCEF9,
+0xCEFA,
+0,
+0xD1D7,
+0xD1D8,
+0xAED2,
+0xAED3,
+0,
+0xAED4,
+0xD5AF,
+0,
+0,
+0xB1E6,
+0,
+0xB4C2,
+0,
+0xB4C1,
+0xDDC8,
+0xDF7A,
+0xE1FB,
+0xE9BD,
+0,
+0,
+0xC261,
+0xC467,
+0xA4EC,
+0,
+0xA5BC,
+0xA5BD,
+0xA5BB,
+0xA5BE,
+0xA5BA,
+0,
+0,
+0xA6B6,
+0,
+0xC9F6,
+0xA6B5,
+0xA6B7,
+0,
+0,
+0xC9F1,
+0xC9F0,
+0xC9F3,
+0xC9F2,
+0xC9F5,
+0xA6B4,
+0xC9EF,
+0xC9F4,
+0,
+0,
+0,
+0,
+0,
+0xCAFD,
+0xA7FD,
+0xCAFE,
+0xCB43,
+0xA7FC,
+0,
+0xCB47,
+0xCB42,
+0xCB45,
+0xA7F5,
+0xA7F6,
+0xA7F7,
+0xA7F8,
+0,
+0xA840,
+0,
+0xCB41,
+0xA7FA,
+0xA841,
+0,
+0xCB40,
+0xCB46,
+0,
+0xA7F9,
+0xCB44,
+0xA7FB,
+0xA7F4,
+0xA7FE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAA57,
+0,
+0xCCD4,
+0xAA43,
+0,
+0xAA4D,
+0xAA4E,
+0xAA46,
+0xAA58,
+0xAA48,
+0xCCDC,
+0xAA53,
+0xCCD7,
+0xAA49,
+0xCCE6,
+0xCCE7,
+0xCCDF,
+0xCCD8,
+0xAA56,
+0xCCE4,
+0xAA51,
+0xAA4F,
+0,
+0xCCE5,
+0,
+0xCCE3,
+0xCCDB,
+0xCCD3,
+0xCCDA,
+0xAA4A,
+0,
+0xAA50,
+0,
+0xAA44,
+0xCCDE,
+0xCCDD,
+0xCCD5,
+0,
+0xAA52,
+0xCCE1,
+0xCCD6,
+0xAA55,
+0xCCE8,
+0xAA45,
+0,
+0xAA4C,
+0xCCD9,
+0xCCE2,
+0xAA54,
+0,
+0xAA47,
+0xAA4B,
+0,
+0xCCE0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCF5B,
+0xAC5C,
+0xAC69,
+0,
+0xCF56,
+0xCF4C,
+0xAC62,
+0xCF4A,
+0xAC5B,
+0xCF45,
+0xAC65,
+0xCF52,
+0xCEFE,
+0xCF41,
+0,
+0,
+0,
+0,
+0xCF44,
+0xCEFB,
+0xCF51,
+0xCF61,
+0xAC60,
+0xCF46,
+0xCF58,
+0,
+0xCEFD,
+0xCF5F,
+0xCF60,
+0xCF63,
+0xCF5A,
+0xCF4B,
+0xCF53,
+0xAC66,
+0xAC59,
+0xAC61,
+0xAC6D,
+0xAC56,
+0xAC58,
+0,
+0,
+0,
+0xCF43,
+0xAC6A,
+0xAC63,
+0xCF5D,
+0xCF40,
+0xAC6C,
+0xAC67,
+0xCF49,
+0,
+0,
+0xAC6B,
+0xCF50,
+0xCF48,
+0xAC64,
+0xCF5C,
+0xCF54,
+0,
+0xAC5E,
+0xCF62,
+0xCF47,
+0xAC5A,
+0xCF59,
+0xCF4F,
+0xAC5F,
+0xCF55,
+0xAC57,
+0xCEFC,
+0xAC68,
+0xAEE3,
+0xAC5D,
+0xCF4E,
+0xCF4D,
+0xCF42,
+0,
+0xCF5E,
+0,
+0xCF57,
+0,
+0,
+0xAC55,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1EC,
+0xAEEA,
+0xD1ED,
+0,
+0xD1E1,
+0xAEDF,
+0xAEEB,
+0,
+0xD1DA,
+0,
+0xD1E3,
+0xD1EB,
+0,
+0xD1D9,
+0xD1F4,
+0xAED5,
+0,
+0,
+0,
+0xD1F3,
+0xD1EE,
+0,
+0xD1EF,
+0xAEDD,
+0xAEE8,
+0xD1E5,
+0,
+0xD1E6,
+0xD1F0,
+0xD1E7,
+0,
+0xD1E2,
+0xD1DC,
+0xD1DD,
+0xD1EA,
+0xD1E4,
+0,
+0,
+0xAED6,
+0xAEDA,
+0xD1F2,
+0xD1DE,
+0xAEE6,
+0xAEE2,
+0,
+0,
+0xAEE5,
+0xAEEC,
+0xAEDB,
+0xAEE7,
+0xD1E9,
+0xAEE9,
+0xAED8,
+0,
+0xAED7,
+0xD1DB,
+0,
+0xD1DF,
+0xAEE0,
+0xD1F1,
+0xD1E8,
+0xD1E0,
+0xAEE4,
+0xAEE1,
+0,
+0xAED9,
+0xAEDC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5C4,
+0,
+0xD5B4,
+0xD5B5,
+0xD5B9,
+0,
+0xD5C8,
+0xD5C5,
+0,
+0xD5BE,
+0xD5BD,
+0xB1ED,
+0xD5C1,
+0xD5D0,
+0xD5B0,
+0,
+0xD5D1,
+0xD5C3,
+0xD5D5,
+0xD5C9,
+0xB1EC,
+0xD5C7,
+0xB1E7,
+0xB1FC,
+0xB1F2,
+0,
+0xB1F6,
+0xB1F5,
+0xD5B1,
+0,
+0xD5CE,
+0xD5D4,
+0xD5CC,
+0xD5D3,
+0,
+0,
+0xD5C0,
+0xD5B2,
+0xD5D2,
+0xD5C2,
+0xB1EA,
+0xB1F7,
+0,
+0xD5CB,
+0xB1F0,
+0,
+0,
+0,
+0xD5CA,
+0xD5B3,
+0xB1F8,
+0,
+0xB1FA,
+0xD5CD,
+0xB1FB,
+0xB1E9,
+0xD5BA,
+0xD5CF,
+0,
+0,
+0xB1EF,
+0xB1F9,
+0xD5BC,
+0xD5C6,
+0xD5B7,
+0xD5BB,
+0xB1F4,
+0xD5B6,
+0xB1E8,
+0xB1F1,
+0xB1EE,
+0xD5BF,
+0xAEDE,
+0xD9C0,
+0xB1EB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB1F3,
+0,
+0xD9C3,
+0xD9D9,
+0xD9CE,
+0xB4D6,
+0,
+0xB4D1,
+0xD9BD,
+0xB4D2,
+0xD9CD,
+0,
+0xD9C6,
+0xD9D3,
+0xB4CE,
+0xD9AB,
+0xD9D5,
+0xB4C4,
+0xD9B3,
+0xB4C7,
+0xB4C6,
+0,
+0xB4D7,
+0,
+0xD9AD,
+0xD9CF,
+0xD9D0,
+0xB4C9,
+0xB4C5,
+0xD9BB,
+0,
+0xB4D0,
+0xD9B6,
+0,
+0xD9D1,
+0xB4CC,
+0xD9C9,
+0xD9D6,
+0xD9B0,
+0xD9B5,
+0xD9AF,
+0,
+0xB4CB,
+0xD9C2,
+0xDDDE,
+0xD9B1,
+0xB4CF,
+0xD9BA,
+0xD9D2,
+0xB4CA,
+0xD9B7,
+0xD9B4,
+0xD9C5,
+0xB4CD,
+0xB4C3,
+0xB4D9,
+0xD9C8,
+0xD9C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9AC,
+0xB4C8,
+0xD9D4,
+0xD9BC,
+0xD9BE,
+0,
+0xD9CB,
+0xD9CA,
+0xD9AA,
+0xB4D3,
+0xB4D5,
+0xD9B2,
+0xD9B9,
+0xD9C1,
+0xB4D4,
+0xD9B8,
+0xD9C4,
+0xD9D7,
+0,
+0xD9CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9D8,
+0,
+0,
+0,
+0,
+0xD9AE,
+0,
+0,
+0,
+0,
+0xDDF2,
+0xB7A6,
+0,
+0xDDF0,
+0xDDDB,
+0xDDE0,
+0xDDD9,
+0,
+0xDDEC,
+0xDDCB,
+0xDDD2,
+0,
+0xDDEA,
+0xDDF4,
+0xDDDC,
+0,
+0xDDCF,
+0xDDE2,
+0xDDE7,
+0xDDD3,
+0,
+0xDDE4,
+0xDDD0,
+0,
+0,
+0xDDD7,
+0xDDD8,
+0xB7A8,
+0xDDEB,
+0xDDE9,
+0,
+0xDDCC,
+0xDDEE,
+0,
+0xDDEF,
+0xDDF1,
+0xB7AC,
+0xB7A4,
+0,
+0xD5B8,
+0xDDD4,
+0xDDE6,
+0xDDD5,
+0xB7A1,
+0xB7B1,
+0xDDED,
+0xB7AF,
+0xB7AB,
+0xDDCA,
+0xB7A3,
+0,
+0xDDCD,
+0xB7B0,
+0,
+0xDDDD,
+0xDDC9,
+0,
+0xB7A9,
+0xDDE1,
+0xDDD1,
+0xB7AA,
+0xDDDA,
+0xB77E,
+0xB4D8,
+0xDDE3,
+0xD9BF,
+0xDDCE,
+0,
+0,
+0xDDE8,
+0xB7A5,
+0xDDE5,
+0xB7A2,
+0xDDDF,
+0xB7AD,
+0xDDD6,
+0xDDF3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB7A7,
+0xDEC6,
+0,
+0,
+0xB7AE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE24A,
+0xE248,
+0,
+0xE25E,
+0xE246,
+0,
+0xE258,
+0xB77D,
+0xBA5F,
+0xE242,
+0xE25D,
+0,
+0xE247,
+0xE255,
+0xBA64,
+0xBA5D,
+0,
+0xE25B,
+0,
+0xE240,
+0xE25A,
+0,
+0xBA6F,
+0xE251,
+0xE261,
+0xBA6D,
+0xE249,
+0xBA5E,
+0xE24B,
+0xE259,
+0xBA67,
+0xE244,
+0xBA6B,
+0xBA61,
+0xE24D,
+0xE243,
+0xE1FC,
+0,
+0xE257,
+0xBA68,
+0xE260,
+0xE1FD,
+0xBA65,
+0,
+0xE253,
+0,
+0xBA66,
+0xE245,
+0xE250,
+0xE24C,
+0xE24E,
+0,
+0xBA60,
+0xE25F,
+0xBA6E,
+0xE24F,
+0,
+0xE262,
+0,
+0,
+0xE1FE,
+0xE254,
+0xBA63,
+0xBA6C,
+0xBA6A,
+0xE241,
+0xE256,
+0xBA69,
+0,
+0,
+0xBA62,
+0xE252,
+0,
+0,
+0,
+0,
+0xE25C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5D5,
+0,
+0xE5D1,
+0xE5CD,
+0xE5E1,
+0xE5DE,
+0xBCCD,
+0,
+0,
+0xE5E5,
+0xE5D4,
+0xBCD8,
+0xE5DB,
+0,
+0,
+0xE5D0,
+0xE5DA,
+0xBCD5,
+0xE5EE,
+0,
+0xE5EB,
+0xE5DD,
+0xE5CE,
+0,
+0,
+0xE5E2,
+0xE5E4,
+0xBCD1,
+0xE5D8,
+0xE5D3,
+0xE5CA,
+0xBCCE,
+0xBCD6,
+0,
+0xE5E7,
+0xBCD7,
+0xE5CB,
+0xE5ED,
+0xE5E0,
+0xE5E6,
+0xBCD4,
+0,
+0,
+0xE5E3,
+0,
+0xE5EA,
+0,
+0xBCD9,
+0,
+0xBCD3,
+0xE5DC,
+0xE5CF,
+0xE5EF,
+0xE5CC,
+0xE5E8,
+0xBCD0,
+0,
+0xE5D6,
+0,
+0xE5D7,
+0xBCCF,
+0xBCCC,
+0xE5D2,
+0xBCD2,
+0,
+0xBCCB,
+0,
+0xE5E9,
+0xE5EC,
+0xE5D9,
+0xE9CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9C2,
+0,
+0xE9BE,
+0xBEF6,
+0,
+0,
+0xBEEB,
+0xBEF0,
+0xBEEC,
+0xE9CC,
+0xE9D7,
+0xBEEA,
+0xE9C4,
+0xE9CD,
+0xE5DF,
+0xE9CE,
+0,
+0,
+0xBEF1,
+0,
+0xE9DD,
+0xBEF5,
+0xBEF8,
+0xE9C0,
+0,
+0xBEF4,
+0,
+0xE9DB,
+0xE9DC,
+0xE9D2,
+0xE9D1,
+0xE9C9,
+0,
+0,
+0xE9D3,
+0xE9DA,
+0xE9D9,
+0,
+0xBEEF,
+0xBEED,
+0xE9CB,
+0xE9C8,
+0,
+0xE9C5,
+0xE9D8,
+0xBEF7,
+0xE9D6,
+0xBEF3,
+0xBEF2,
+0,
+0xE9D0,
+0,
+0xE9BF,
+0xE9C1,
+0xE9C3,
+0xE9D5,
+0xE9CF,
+0xBEEE,
+0,
+0xE9C6,
+0,
+0xE9D4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC0CF,
+0xED45,
+0xC0C8,
+0xECF5,
+0,
+0xED41,
+0xC0CA,
+0xED48,
+0,
+0xECFC,
+0,
+0xECF7,
+0,
+0,
+0xED49,
+0xECF3,
+0xECFE,
+0,
+0xC0D1,
+0xED44,
+0xED4A,
+0xECFD,
+0xC0C9,
+0xED40,
+0xECF4,
+0xC0D0,
+0,
+0,
+0xED47,
+0xECF9,
+0xC0CC,
+0,
+0xECFB,
+0xECF8,
+0xC0D2,
+0xECFA,
+0xC0CB,
+0xC0CE,
+0xED43,
+0xECF6,
+0xED46,
+0,
+0xED42,
+0,
+0,
+0,
+0xC263,
+0xEFE7,
+0xC268,
+0xC269,
+0,
+0,
+0,
+0xC262,
+0xEFE6,
+0,
+0xEFE3,
+0xEFE4,
+0xC266,
+0xEFDE,
+0xEFE2,
+0xC265,
+0,
+0xEFDF,
+0,
+0,
+0,
+0,
+0xC267,
+0xC264,
+0,
+0xEFDD,
+0xEFE1,
+0xEFE5,
+0,
+0,
+0,
+0xF251,
+0xF24E,
+0xF257,
+0,
+0xF256,
+0xF254,
+0xF24F,
+0,
+0xC372,
+0,
+0,
+0,
+0,
+0,
+0xF250,
+0xC371,
+0xC0CD,
+0xF253,
+0xC370,
+0xF258,
+0xF252,
+0xF24D,
+0xEFE0,
+0,
+0,
+0,
+0xC36F,
+0,
+0xF24C,
+0xF456,
+0,
+0xF455,
+0xF255,
+0xC468,
+0,
+0xF459,
+0xF45A,
+0xF454,
+0xF458,
+0,
+0xF453,
+0,
+0,
+0,
+0,
+0xF5D1,
+0xF457,
+0xC4E7,
+0xC4E5,
+0xF5CF,
+0,
+0,
+0,
+0xF5D2,
+0,
+0xF5CE,
+0xF5D0,
+0xC4E6,
+0,
+0,
+0,
+0xF6E5,
+0xF6E6,
+0xC576,
+0xF6E4,
+0,
+0,
+0,
+0xF7E2,
+0xC5CF,
+0xF7E0,
+0xF7E1,
+0xF8AC,
+0,
+0,
+0xC656,
+0xF8F3,
+0xF8F1,
+0xF8F2,
+0xF8F4,
+0,
+0,
+0,
+0xF9BB,
+0,
+0xA4ED,
+0xA6B8,
+0,
+0xAA59,
+0,
+0xCCE9,
+0,
+0,
+0xCF64,
+0,
+0,
+0,
+0xD1F5,
+0xD1F7,
+0,
+0xD1F6,
+0,
+0xD1F8,
+0xB1FD,
+0xD5D7,
+0xD1F9,
+0,
+0xD5D6,
+0xD5D8,
+0xD5D9,
+0xD9DA,
+0xB4DB,
+0xD9DB,
+0xD9DD,
+0xB4DC,
+0xB4DA,
+0xD9DC,
+0,
+0xDDFA,
+0xDDF8,
+0xDDF7,
+0,
+0xDDF6,
+0xDDF5,
+0xB7B2,
+0xDDF9,
+0xBA70,
+0xE263,
+0xE265,
+0xBA71,
+0xE264,
+0xBCDB,
+0,
+0xBCDA,
+0xE5F0,
+0,
+0,
+0xE9DF,
+0xE9DE,
+0xE9E0,
+0,
+0,
+0xBEF9,
+0,
+0xED4B,
+0xC0D3,
+0,
+0xEFE8,
+0xC26A,
+0xF259,
+0xC577,
+0xA4EE,
+0xA5BF,
+0xA6B9,
+0xA842,
+0xAA5A,
+0xAA5B,
+0,
+0,
+0xAC6E,
+0,
+0,
+0xD1FA,
+0,
+0,
+0,
+0,
+0xB7B3,
+0,
+0,
+0,
+0xE6D1,
+0xBEFA,
+0xC26B,
+0xA4EF,
+0,
+0xA6BA,
+0,
+0,
+0xCCEB,
+0xAA5C,
+0xCCEA,
+0,
+0xCF65,
+0xAC6F,
+0xCF66,
+0,
+0xAC70,
+0,
+0xD1FC,
+0xAEEE,
+0xAEED,
+0,
+0xD5DE,
+0xD5DC,
+0xD5DD,
+0xD5DB,
+0,
+0xD5DA,
+0,
+0,
+0xD9DE,
+0xD9E1,
+0xB4DE,
+0xD9DF,
+0xB4DD,
+0xD9E0,
+0,
+0xDDFB,
+0,
+0,
+0xE266,
+0xE267,
+0xE268,
+0,
+0xE5F3,
+0xE5F2,
+0xBCDC,
+0xE5F1,
+0xE5F4,
+0xE9E1,
+0,
+0,
+0xE9E2,
+0xE9E3,
+0,
+0xED4C,
+0xC0D4,
+0xC26C,
+0xF25A,
+0,
+0xC4E8,
+0xC95F,
+0,
+0xAC71,
+0xCF67,
+0xAEEF,
+0,
+0,
+0xB1FE,
+0,
+0xB4DF,
+0xD9E2,
+0,
+0xB7B5,
+0xB7B4,
+0,
+0,
+0xE269,
+0xE26A,
+0xBCDD,
+0xBCDE,
+0xE9E5,
+0xE9E4,
+0xEFE9,
+0xF7E3,
+0xA4F0,
+0xC960,
+0xA5C0,
+0,
+0xA843,
+0xCB48,
+0,
+0xAC72,
+0xB7B6,
+0xA4F1,
+0,
+0xCF68,
+0xAC73,
+0xCF69,
+0,
+0xC0D5,
+0xA4F2,
+0,
+0,
+0xCCEC,
+0,
+0xCF6A,
+0,
+0xD242,
+0xD241,
+0xD1FE,
+0,
+0xD1FD,
+0xD243,
+0xD240,
+0,
+0,
+0xB240,
+0xB241,
+0,
+0,
+0xB4E0,
+0xD9E3,
+0,
+0xD9E4,
+0xD9E5,
+0,
+0,
+0,
+0xDE41,
+0xDE42,
+0xDE40,
+0,
+0xDDFD,
+0xDDFE,
+0xB7B7,
+0xE26B,
+0xE5F7,
+0xE5F6,
+0xE5F5,
+0xE5F8,
+0xE9E7,
+0xE9E6,
+0xBEFB,
+0xE9E8,
+0,
+0xC0D6,
+0xED4D,
+0,
+0xEFEA,
+0xF25B,
+0xF6E7,
+0,
+0xA4F3,
+0xA5C2,
+0xA5C1,
+0,
+0xAA5D,
+0xC961,
+0xC97E,
+0xA6BB,
+0,
+0xC9F7,
+0xCB49,
+0xCB4A,
+0xAA5E,
+0,
+0xCCED,
+0,
+0xAC74,
+0xCF6B,
+0xCF6C,
+0,
+0xAEF0,
+0xAEF4,
+0xD244,
+0xAEF3,
+0xAEF1,
+0xAEF2,
+0,
+0xD5DF,
+0xB242,
+0xB4E3,
+0,
+0xB4E1,
+0xB4E2,
+0xD9E6,
+0,
+0,
+0xBA72,
+0xA4F4,
+0,
+0xC9A1,
+0,
+0xA5C3,
+0,
+0,
+0xC9A4,
+0,
+0,
+0xA5C6,
+0xC9A3,
+0xA5C5,
+0xA5C4,
+0xA844,
+0xC9A2,
+0,
+0,
+0xC9F8,
+0,
+0,
+0,
+0xC9FC,
+0xC9FE,
+0xCA40,
+0xA6C5,
+0xA6C6,
+0xC9FB,
+0xA6C1,
+0,
+0xC9F9,
+0,
+0xC9FD,
+0xA6C2,
+0,
+0xA6BD,
+0,
+0xA6BE,
+0,
+0xA6C4,
+0xC9FA,
+0xA6BC,
+0xA845,
+0xA6BF,
+0xA6C0,
+0xA6C3,
+0,
+0,
+0,
+0xCB5B,
+0xCB59,
+0xCB4C,
+0xA851,
+0xCB53,
+0xA84C,
+0xCB4D,
+0,
+0xCB55,
+0,
+0xCB52,
+0xA84F,
+0xCB51,
+0xA856,
+0xCB5A,
+0xA858,
+0,
+0xA85A,
+0,
+0xCB4B,
+0,
+0xA84D,
+0xCB5C,
+0,
+0xA854,
+0xA857,
+0,
+0xCD45,
+0xA847,
+0xA85E,
+0xA855,
+0xCB4E,
+0xA84A,
+0xA859,
+0xCB56,
+0xA848,
+0xA849,
+0xCD43,
+0xCB4F,
+0xA850,
+0xA85B,
+0xCB5D,
+0xCB50,
+0xA84E,
+0,
+0xA853,
+0xCCEE,
+0xA85C,
+0xCB57,
+0xA852,
+0,
+0xA85D,
+0xA846,
+0xCB54,
+0xA84B,
+0xCB58,
+0xCD44,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAA6A,
+0xAA7A,
+0xCCF5,
+0xAA71,
+0,
+0xCD4B,
+0xAA62,
+0,
+0xAA65,
+0xCD42,
+0,
+0xCCF3,
+0xCCF7,
+0xAA6D,
+0xAA6F,
+0xCCFA,
+0xAA76,
+0xAA68,
+0xAA66,
+0xAA67,
+0xAA75,
+0xCD47,
+0xAA70,
+0xCCF9,
+0xCCFB,
+0xAA6E,
+0xAA73,
+0xCCFC,
+0xCD4A,
+0,
+0xAC75,
+0xAA79,
+0,
+0xAA63,
+0xCD49,
+0,
+0xCD4D,
+0xCCF8,
+0xCD4F,
+0xCD40,
+0xAA6C,
+0xCCF4,
+0xAA6B,
+0xAA7D,
+0xAA72,
+0,
+0xCCF2,
+0xCF75,
+0xAA78,
+0xAA7C,
+0xCD41,
+0xCD46,
+0,
+0xAA7E,
+0xAA77,
+0xAA69,
+0xAA5F,
+0,
+0xAA64,
+0,
+0xCCF6,
+0xAA60,
+0xCD4E,
+0,
+0xCCF0,
+0xCCEF,
+0xCCFD,
+0xCCF1,
+0xAA7B,
+0xAEF5,
+0xAA74,
+0xCCFE,
+0xAA61,
+0,
+0xACA6,
+0,
+0,
+0,
+0xCD4C,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCF7C,
+0xCFA1,
+0,
+0xCFA4,
+0xCF77,
+0,
+0,
+0xCFA7,
+0xCFAA,
+0xCFAC,
+0xCF74,
+0xAC76,
+0xAC7B,
+0xD249,
+0xACAD,
+0xCFA5,
+0xCFAD,
+0xCF7B,
+0xCF73,
+0,
+0,
+0,
+0xD264,
+0xAC7E,
+0xCFA2,
+0xCF78,
+0xCF7A,
+0xACA5,
+0,
+0xCF7D,
+0xAC7D,
+0xCF70,
+0xCFA8,
+0,
+0xCFAB,
+0,
+0,
+0xAC7A,
+0,
+0xACA8,
+0xCF6D,
+0xACAA,
+0xAC78,
+0xACAE,
+0xCFA9,
+0xCF6F,
+0xACAB,
+0xD25E,
+0xCD48,
+0xAC7C,
+0xAC77,
+0xCF76,
+0xCF6E,
+0xACAC,
+0xACA4,
+0xCFA3,
+0xACA9,
+0xACA7,
+0xCF79,
+0xACA1,
+0xCF71,
+0xACA2,
+0xACA3,
+0xCF72,
+0xCFA6,
+0xAC79,
+0xCF7E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD24C,
+0xAEFD,
+0xAF43,
+0,
+0,
+0,
+0xD255,
+0xD25B,
+0xD257,
+0xD24A,
+0xD24D,
+0xD246,
+0xD247,
+0xAF4A,
+0xAEFA,
+0xD256,
+0xD25F,
+0xAF45,
+0xAEF6,
+0,
+0xAF40,
+0xD24E,
+0xAF42,
+0xD24F,
+0xD259,
+0,
+0,
+0,
+0xAF44,
+0xD268,
+0xD248,
+0xAEFC,
+0xAEFB,
+0xAF48,
+0xD245,
+0xD266,
+0xD25A,
+0xD267,
+0xD261,
+0xD253,
+0xD262,
+0,
+0xD25C,
+0xD265,
+0xD263,
+0xAF49,
+0xD254,
+0xAEF9,
+0xAEF8,
+0xAF41,
+0xAF47,
+0xD260,
+0xAF46,
+0xD251,
+0xB243,
+0,
+0xD269,
+0xD250,
+0xD24B,
+0xAEFE,
+0xAF4B,
+0xAEF7,
+0,
+0xD258,
+0xD25D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB265,
+0xD5E1,
+0xD5E5,
+0,
+0xB252,
+0xB250,
+0,
+0,
+0xB247,
+0xD5E3,
+0xD5E2,
+0xB25B,
+0,
+0xD5E8,
+0xB255,
+0,
+0xD5FA,
+0xD647,
+0xB244,
+0xD5F7,
+0xD5F0,
+0xB267,
+0xD5E0,
+0,
+0xD5FC,
+0,
+0xB264,
+0xB258,
+0xB263,
+0xB24E,
+0xD5EC,
+0xD5FE,
+0xD5F6,
+0xB24F,
+0xB249,
+0xD645,
+0,
+0xD5FD,
+0xD640,
+0xB251,
+0xB259,
+0xD642,
+0xD5EA,
+0xD5FB,
+0xD5EF,
+0xD644,
+0xB25E,
+0xB246,
+0xB25C,
+0xD5F4,
+0xD5F2,
+0xD5F3,
+0xB253,
+0xD5EE,
+0xD5ED,
+0xB248,
+0xD5E7,
+0xD646,
+0xB24A,
+0xD5F1,
+0xB268,
+0,
+0xB262,
+0xD5E6,
+0xB25F,
+0xB25D,
+0xB266,
+0xD5F8,
+0xB261,
+0xD252,
+0xD5F9,
+0xB260,
+0xD641,
+0xB245,
+0xD5F5,
+0xB257,
+0xD5E9,
+0xB256,
+0,
+0xB254,
+0xB24C,
+0xB24B,
+0xD9E7,
+0xD643,
+0,
+0,
+0xD5EB,
+0,
+0,
+0xD9FC,
+0,
+0xB24D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB541,
+0xB25A,
+0xB4EE,
+0xD9F6,
+0xB4FC,
+0,
+0xD9EA,
+0xB4EB,
+0xB4E7,
+0xDA49,
+0xB4ED,
+0xB4F1,
+0xB4EC,
+0xB4F5,
+0xDA4D,
+0xDA44,
+0,
+0,
+0xD9F1,
+0xB4FA,
+0xB4F4,
+0xD9FD,
+0xB4E4,
+0xDA4A,
+0xDA43,
+0xB4E8,
+0xD9F7,
+0xB4F7,
+0xDA55,
+0xDA56,
+0,
+0xB4E5,
+0xDA48,
+0xB4F9,
+0xD9FB,
+0xD9ED,
+0xD9EE,
+0xB4FD,
+0xD9F2,
+0xD9F9,
+0xD9F3,
+0,
+0xB4FB,
+0xB544,
+0xD9EF,
+0xD9E8,
+0xD9E9,
+0,
+0xD9EB,
+0xB4EA,
+0xD9F8,
+0,
+0xB4F8,
+0xB542,
+0,
+0,
+0xD9FA,
+0xDA53,
+0xDA4B,
+0xB4E6,
+0xDA51,
+0xB4F2,
+0,
+0xB4F0,
+0,
+0xDA57,
+0xB4EF,
+0xDA41,
+0xD9F4,
+0xD9FE,
+0xB547,
+0xDA45,
+0xDA42,
+0xD9F0,
+0xB543,
+0xDA4F,
+0xDA4C,
+0xDA54,
+0xB4E9,
+0xDA40,
+0xB546,
+0,
+0xDA47,
+0,
+0,
+0xB4F3,
+0xB4F6,
+0,
+0xDA46,
+0xB545,
+0xD9F5,
+0xD5E4,
+0,
+0,
+0xDA50,
+0xDA4E,
+0xDA52,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9EC,
+0xB540,
+0,
+0,
+0,
+0xDE61,
+0xDE60,
+0xDE46,
+0xB7BD,
+0,
+0xDE5F,
+0xDE49,
+0xDE4A,
+0,
+0xB7C7,
+0xDE68,
+0xB7C2,
+0xDE5E,
+0,
+0xDE43,
+0xB7C8,
+0xB7BE,
+0xDE52,
+0xDE48,
+0xDE4B,
+0xDE63,
+0xB7B8,
+0xDE6A,
+0xDE62,
+0xB7C1,
+0xDE57,
+0xB7CC,
+0,
+0,
+0xB7CB,
+0xB7C5,
+0,
+0,
+0xDE69,
+0xB7B9,
+0xDE55,
+0xDE4C,
+0xDE59,
+0xDE65,
+0xB7CD,
+0,
+0xB7BB,
+0xDE54,
+0,
+0xDE4D,
+0xB7C4,
+0,
+0xB7C3,
+0xDE50,
+0xDE5A,
+0xDE64,
+0xDE47,
+0xDE51,
+0xB7BC,
+0xDE5B,
+0xB7C9,
+0xB7C0,
+0xDE4E,
+0xB7BF,
+0xDE45,
+0xDE53,
+0xDE67,
+0xB4FE,
+0xBAB0,
+0xDE56,
+0xE26C,
+0xDE58,
+0xDE66,
+0xB7C6,
+0xDE4F,
+0xB7BA,
+0xB7CA,
+0xBCF0,
+0xDE44,
+0,
+0xDE5D,
+0,
+0,
+0,
+0xDE5C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2AA,
+0xBAAD,
+0xE27D,
+0xE2A4,
+0xBAA2,
+0,
+0xE26E,
+0xBAAF,
+0,
+0xBA77,
+0xE26D,
+0xE2B0,
+0xBAB1,
+0xE271,
+0xE2A3,
+0,
+0xE273,
+0xE2B3,
+0xE2AF,
+0xBA75,
+0xBAA1,
+0xE653,
+0xBAAE,
+0xBA7D,
+0xE26F,
+0,
+0xE2AE,
+0xBAA3,
+0xE2AB,
+0xE2B8,
+0xE275,
+0xE27E,
+0,
+0,
+0xE2B6,
+0xE2AC,
+0xBA7C,
+0,
+0,
+0xE27C,
+0xBA76,
+0xBA74,
+0xBAA8,
+0,
+0,
+0xE27A,
+0xE277,
+0xE278,
+0,
+0xE2B2,
+0,
+0xE2B7,
+0xE2B5,
+0xBA7A,
+0xE2B9,
+0xBA7E,
+0xBAA7,
+0,
+0xE270,
+0xE5FA,
+0xE279,
+0,
+0xBA78,
+0xBAAC,
+0xBAA9,
+0xBA7B,
+0xE2A5,
+0xE274,
+0xBAAA,
+0xE2A7,
+0xBAA4,
+0xBAA6,
+0xBA73,
+0,
+0xE2A9,
+0xE2A1,
+0xE272,
+0xBAA5,
+0xE2B1,
+0xE2B4,
+0xE27B,
+0xE2A8,
+0,
+0xBA79,
+0xBCDF,
+0xE2A6,
+0xE5F9,
+0,
+0xE2AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE276,
+0xE644,
+0xE64E,
+0xBCE2,
+0xE64D,
+0xE659,
+0xBCE4,
+0xE64B,
+0,
+0xE64F,
+0xBCEF,
+0,
+0xE646,
+0xBCE7,
+0,
+0xE652,
+0xE9F0,
+0xBCF3,
+0xBCF2,
+0xE654,
+0xE643,
+0xE65E,
+0xBCED,
+0,
+0xBCE3,
+0xE657,
+0,
+0xE65B,
+0xE660,
+0xE655,
+0xE649,
+0xBCE6,
+0xBCE9,
+0xBCF1,
+0xBCEC,
+0,
+0xE64C,
+0xE2A2,
+0,
+0,
+0xE648,
+0xE65F,
+0xBCE8,
+0,
+0xBCEB,
+0xE661,
+0xBCE0,
+0xE656,
+0xE5FB,
+0xE65C,
+0xC0DF,
+0,
+0xE64A,
+0,
+0xBCE1,
+0xE645,
+0xBCE5,
+0xE5FC,
+0xBAAB,
+0xE641,
+0,
+0xE65A,
+0xE642,
+0xE640,
+0xBCEA,
+0,
+0xE658,
+0,
+0xE5FE,
+0xE651,
+0xE650,
+0xE65D,
+0xE647,
+0xBCEE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9F3,
+0,
+0xBF49,
+0xBEFE,
+0xEA40,
+0xE9EB,
+0xBF41,
+0xE9F7,
+0xBF48,
+0xBF43,
+0xE9F5,
+0xED4F,
+0xE9FB,
+0xEA42,
+0xE9FA,
+0xE9E9,
+0xE9F8,
+0xEA44,
+0xEA46,
+0xBEFD,
+0xEA45,
+0xBF44,
+0xBF4A,
+0,
+0xBF47,
+0,
+0xE9FE,
+0xBF46,
+0xE9F9,
+0,
+0xE9ED,
+0xE9F2,
+0,
+0xE9FD,
+0xBF45,
+0xBF42,
+0xBEFC,
+0xBF40,
+0xE9F1,
+0,
+0xE5FD,
+0xE9EC,
+0xE9EF,
+0xEA41,
+0xE9F4,
+0xE9EA,
+0xED4E,
+0xEA43,
+0xE9EE,
+0xE9FC,
+0,
+0,
+0,
+0,
+0xED51,
+0xC0E3,
+0,
+0,
+0xC0D7,
+0,
+0,
+0xC0DB,
+0xED53,
+0xED59,
+0xED57,
+0xC0D9,
+0xC0DA,
+0xC0E1,
+0xED5A,
+0xED52,
+0xC0DC,
+0,
+0xED56,
+0xED55,
+0xED5B,
+0xC0E2,
+0,
+0xC0DD,
+0xC0E0,
+0xED54,
+0xC0E4,
+0xC0DE,
+0xC0E5,
+0xC0D8,
+0xED58,
+0,
+0xED50,
+0,
+0,
+0xEFF7,
+0,
+0,
+0xC271,
+0xEFF4,
+0xEFF6,
+0,
+0xC26F,
+0xEFF2,
+0xEFF3,
+0xEFEE,
+0,
+0,
+0xE9F6,
+0xEFEF,
+0xC270,
+0xEFEB,
+0,
+0xC26D,
+0xEFF8,
+0xC26E,
+0xEFEC,
+0xEFED,
+0xEFF1,
+0xC273,
+0,
+0xC272,
+0,
+0,
+0xEFF0,
+0xC378,
+0xF25F,
+0xF265,
+0xC379,
+0xF25C,
+0xC376,
+0xC373,
+0xF267,
+0xC377,
+0,
+0xC374,
+0xF25E,
+0xF261,
+0xF262,
+0xF263,
+0xF266,
+0,
+0xEFF5,
+0xF25D,
+0xC375,
+0xF264,
+0xF268,
+0xF260,
+0,
+0,
+0,
+0xF45D,
+0xC46A,
+0xF460,
+0xC46B,
+0xF468,
+0xF45F,
+0xF45C,
+0,
+0xF45E,
+0xF462,
+0xF465,
+0xF464,
+0xF467,
+0xF45B,
+0,
+0xC469,
+0xF463,
+0xF466,
+0xF469,
+0xF461,
+0xF5D3,
+0xF5D4,
+0xF5D8,
+0xF5D9,
+0,
+0xF5D6,
+0xF5D7,
+0xF5D5,
+0,
+0xC4E9,
+0,
+0,
+0,
+0,
+0xC578,
+0xF6EB,
+0,
+0,
+0xF6E8,
+0xF6E9,
+0xF6EA,
+0xC579,
+0,
+0xF7E5,
+0xF7E4,
+0,
+0xF8AF,
+0xC5F4,
+0xF8AD,
+0xF8B0,
+0xF8AE,
+0xF8F5,
+0xC657,
+0xC665,
+0xF9A3,
+0xF96C,
+0,
+0xF9A2,
+0xF9D0,
+0xF9D1,
+0xA4F5,
+0,
+0,
+0,
+0,
+0xA6C7,
+0xCA41,
+0,
+0,
+0xCB5E,
+0,
+0xA85F,
+0,
+0xA862,
+0,
+0xCB5F,
+0,
+0xA860,
+0xA861,
+0,
+0,
+0,
+0,
+0xCD58,
+0xCD5A,
+0xCD55,
+0xCD52,
+0xCD54,
+0,
+0,
+0,
+0xAAA4,
+0,
+0,
+0,
+0xAAA2,
+0,
+0,
+0xCD56,
+0xAAA3,
+0xCD53,
+0xCD50,
+0xAAA1,
+0xCD57,
+0,
+0xCD51,
+0xAAA5,
+0xCD59,
+0,
+0,
+0,
+0,
+0xCFAF,
+0,
+0xCFB3,
+0,
+0,
+0xACB7,
+0,
+0,
+0,
+0,
+0xCFB6,
+0,
+0xACAF,
+0xACB2,
+0xACB4,
+0xACB6,
+0xACB3,
+0xCFB2,
+0xCFB1,
+0,
+0xACB1,
+0xCFB4,
+0xCFB5,
+0,
+0xCFAE,
+0xACB5,
+0,
+0xACB0,
+0,
+0,
+0,
+0xCFB0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD277,
+0xD278,
+0xD279,
+0xAF50,
+0,
+0xAF4C,
+0xD26E,
+0,
+0xD276,
+0xD27B,
+0xAF51,
+0,
+0xD26C,
+0xD272,
+0xD26B,
+0xD275,
+0,
+0,
+0xD271,
+0xAF4D,
+0xAF4F,
+0xD27A,
+0,
+0xD26A,
+0xD26D,
+0xD273,
+0,
+0xD274,
+0xD27C,
+0xD270,
+0,
+0xAF4E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB26D,
+0xD64E,
+0,
+0,
+0xD650,
+0xD64C,
+0,
+0xD658,
+0xD64A,
+0xD657,
+0xB269,
+0xD648,
+0xDA5B,
+0xD652,
+0xB26C,
+0,
+0xD653,
+0xD656,
+0,
+0xD65A,
+0,
+0xD64F,
+0,
+0xD654,
+0,
+0,
+0xB26A,
+0xB26B,
+0xD659,
+0xD64D,
+0xD649,
+0xD65B,
+0,
+0xD651,
+0,
+0,
+0xD655,
+0,
+0,
+0,
+0xD64B,
+0,
+0xB548,
+0xB549,
+0xDA65,
+0xB54F,
+0,
+0xDA59,
+0xDA62,
+0xDA58,
+0xB54C,
+0xDA60,
+0xDA5E,
+0,
+0xDA5F,
+0xB54A,
+0,
+0xDA63,
+0,
+0,
+0,
+0,
+0,
+0xDA5C,
+0xDA5A,
+0xB54B,
+0xDA5D,
+0xDA61,
+0,
+0,
+0,
+0xB54D,
+0,
+0,
+0,
+0xDA64,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDE70,
+0xDE77,
+0xDE79,
+0xDEA1,
+0,
+0xB7DA,
+0xDE6B,
+0,
+0xB7D2,
+0,
+0xDE7A,
+0xB7D7,
+0xDEA2,
+0xB7CE,
+0,
+0xDE7D,
+0,
+0xDE6D,
+0xDE7E,
+0xDE6C,
+0,
+0xB7DC,
+0,
+0xDE78,
+0xB7CF,
+0xDEA3,
+0,
+0xB7D4,
+0xDE71,
+0xB7D9,
+0xDE7C,
+0xDE6F,
+0xDE76,
+0xDE72,
+0xDE6E,
+0xB7D1,
+0xB7D8,
+0xB7D6,
+0xB7D3,
+0xB7DB,
+0xB7D0,
+0xDE75,
+0,
+0xB7D5,
+0,
+0xB54E,
+0,
+0xDE7B,
+0,
+0xDE73,
+0,
+0,
+0,
+0,
+0,
+0xDE74,
+0,
+0,
+0xE2C1,
+0,
+0xBAB4,
+0,
+0,
+0xE2BD,
+0xE2C3,
+0xE2BF,
+0,
+0xBAB6,
+0xE2BE,
+0xE2C2,
+0xE2BA,
+0,
+0xE2BC,
+0xBAB5,
+0,
+0,
+0,
+0,
+0xE2C0,
+0xE2BB,
+0,
+0xBAB7,
+0,
+0xBAB2,
+0,
+0,
+0xE2C4,
+0,
+0xBAB3,
+0xE667,
+0xE664,
+0xE670,
+0xE66A,
+0xE66C,
+0xBCF4,
+0xE666,
+0xE66E,
+0,
+0,
+0xE66D,
+0xE66B,
+0,
+0xE671,
+0xBCF7,
+0xE668,
+0xE66F,
+0,
+0xBCF5,
+0,
+0,
+0xE663,
+0xE665,
+0xBCF6,
+0xE662,
+0xE672,
+0,
+0xE669,
+0,
+0,
+0xEA4A,
+0xBF51,
+0,
+0,
+0xEA55,
+0xEA53,
+0xBF4B,
+0xEA49,
+0xEA4C,
+0xEA4D,
+0xEA48,
+0xBF55,
+0xBF56,
+0xEA47,
+0xEA56,
+0xEA51,
+0xBF4F,
+0xBF4C,
+0xEA50,
+0xEA4E,
+0,
+0,
+0xBF52,
+0xEA52,
+0xBF4D,
+0,
+0xBF4E,
+0,
+0xEA4F,
+0xBF50,
+0xEA4B,
+0,
+0xEA54,
+0xBF53,
+0xEA57,
+0xEA58,
+0xBF54,
+0,
+0,
+0xC0E7,
+0xC0EE,
+0xED5C,
+0xED62,
+0,
+0xED60,
+0xC0EA,
+0xC0E9,
+0xC0E6,
+0xED5E,
+0,
+0,
+0,
+0xC0EC,
+0xC0EB,
+0xC0E8,
+0,
+0xED61,
+0xED5D,
+0xED5F,
+0,
+0xC0ED,
+0,
+0,
+0,
+0xC277,
+0xEFFB,
+0,
+0xC274,
+0xC275,
+0xEFFD,
+0xC276,
+0xEFFA,
+0,
+0xEFF9,
+0xF26C,
+0xEFFC,
+0,
+0xF26D,
+0xC37A,
+0xF26B,
+0,
+0,
+0xF26A,
+0,
+0xF269,
+0xC37B,
+0,
+0,
+0xC46C,
+0,
+0,
+0xF46A,
+0xF46B,
+0,
+0,
+0,
+0,
+0xF5DC,
+0xF5DB,
+0xC4EA,
+0,
+0xF5DA,
+0xF6EC,
+0xF6ED,
+0,
+0,
+0xF7E6,
+0xF8B1,
+0,
+0,
+0xF8F6,
+0xF9BC,
+0xC679,
+0xF9C6,
+0xA4F6,
+0,
+0xAAA6,
+0xAAA7,
+0,
+0,
+0xACB8,
+0,
+0,
+0,
+0,
+0xC0EF,
+0xA4F7,
+0,
+0xAAA8,
+0xAF52,
+0xB7DD,
+0xA4F8,
+0,
+0xB26E,
+0xBAB8,
+0xC962,
+0,
+0xCFB7,
+0xD27D,
+0,
+0xE2C5,
+0,
+0xC0F0,
+0xA4F9,
+0xAAA9,
+0xCFB8,
+0xCFB9,
+0xDA66,
+0xB550,
+0,
+0,
+0xDEA4,
+0,
+0,
+0xB7DE,
+0xE2C6,
+0,
+0,
+0xBCF8,
+0,
+0xC37C,
+0xA4FA,
+0xDA67,
+0xA4FB,
+0,
+0xA6C9,
+0xCA42,
+0xA6C8,
+0xA865,
+0xA864,
+0xA863,
+0xCB60,
+0,
+0,
+0,
+0xAAAA,
+0,
+0xAAAB,
+0xCD5B,
+0,
+0xCFBA,
+0,
+0xCFBD,
+0xACBA,
+0xCFBB,
+0,
+0xACB9,
+0xCFBC,
+0xACBB,
+0,
+0xD2A2,
+0xD2A1,
+0xD27E,
+0xAF53,
+0,
+0xD65D,
+0xD65E,
+0xB26F,
+0xD65C,
+0xD65F,
+0xB552,
+0xB270,
+0,
+0,
+0xB551,
+0xDA6B,
+0xDA6A,
+0,
+0xDA68,
+0xDA69,
+0,
+0xDA6C,
+0xDEA6,
+0xDEA5,
+0xDEA9,
+0,
+0xDEA8,
+0xDEA7,
+0xBAB9,
+0xE2C9,
+0,
+0xE2C8,
+0xBABA,
+0xE2C7,
+0xE673,
+0,
+0xE674,
+0xBCF9,
+0,
+0xEA59,
+0xEA5A,
+0,
+0,
+0xF272,
+0xC37D,
+0xF271,
+0xF270,
+0xF26E,
+0xF26F,
+0xC4EB,
+0xF46C,
+0xF6EE,
+0xF8F7,
+0,
+0xA4FC,
+0,
+0xC9A5,
+0xA5C7,
+0xC9A6,
+0,
+0,
+0,
+0xCA43,
+0xCA44,
+0,
+0,
+0,
+0,
+0xCB66,
+0,
+0,
+0xCB62,
+0,
+0xCB61,
+0xAAAC,
+0xCB65,
+0xA867,
+0xCB63,
+0xA866,
+0xCB67,
+0xCB64,
+0,
+0,
+0xCD5F,
+0xCFBE,
+0xCD5D,
+0xCD64,
+0,
+0xAAAD,
+0,
+0xAAB0,
+0xCD65,
+0xCD61,
+0,
+0xCD62,
+0,
+0xCD5C,
+0xAAAF,
+0xCD5E,
+0xAAAE,
+0xCD63,
+0,
+0xCD60,
+0,
+0,
+0xCFC2,
+0xACBD,
+0xACBE,
+0,
+0xCFC5,
+0xCFBF,
+0,
+0xCFC4,
+0,
+0xCFC0,
+0xACBC,
+0xCFC3,
+0xCFC1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD2A8,
+0xD2A5,
+0,
+0xD2A7,
+0xAF58,
+0xAF57,
+0xAF55,
+0xD2A4,
+0xD2A9,
+0xAF54,
+0xAF56,
+0xD2A6,
+0xD667,
+0xD2A3,
+0xD2AA,
+0,
+0,
+0,
+0,
+0,
+0xD662,
+0xD666,
+0,
+0xD665,
+0xDA6E,
+0xDA79,
+0,
+0,
+0xD668,
+0,
+0xD663,
+0xDA6D,
+0xB274,
+0,
+0,
+0xB273,
+0xD661,
+0xD664,
+0xB275,
+0,
+0xB272,
+0xB271,
+0xD660,
+0xD669,
+0,
+0,
+0,
+0xDA70,
+0xDA77,
+0,
+0xB554,
+0xDA76,
+0xDA73,
+0,
+0xB556,
+0,
+0,
+0,
+0xDA75,
+0,
+0,
+0xDA6F,
+0xDA71,
+0xDA74,
+0xDA72,
+0xB555,
+0xDA78,
+0xB553,
+0xB7DF,
+0,
+0,
+0xDEAD,
+0xDEAC,
+0xDEAA,
+0,
+0xB7E2,
+0xB7E1,
+0xDEAE,
+0,
+0xDEAB,
+0xE2CA,
+0xBABB,
+0xB7E0,
+0,
+0,
+0,
+0xDEB0,
+0xDEAF,
+0,
+0xE2CD,
+0xE2CB,
+0xBCFA,
+0,
+0xBABC,
+0xE2CC,
+0xE676,
+0,
+0,
+0,
+0,
+0xBCFB,
+0xE675,
+0xE67E,
+0xE67D,
+0xE67B,
+0,
+0xE67A,
+0xE677,
+0xE678,
+0xE679,
+0xE67C,
+0xE6A1,
+0,
+0,
+0xEA5F,
+0xEA5C,
+0xEA5D,
+0xBF57,
+0xEA5B,
+0xEA61,
+0xEA60,
+0xEA5E,
+0,
+0xED64,
+0xED65,
+0xC0F1,
+0,
+0xC0F2,
+0xED63,
+0,
+0xC279,
+0xEFFE,
+0xC278,
+0xC37E,
+0,
+0xC3A1,
+0xC46D,
+0xF46E,
+0xF46D,
+0xF5DD,
+0xF6EF,
+0xC57A,
+0xF7E8,
+0xF7E7,
+0xF7E9,
+0xA5C8,
+0xCFC6,
+0xAF59,
+0xB276,
+0xD66A,
+0xA5C9,
+0xC9A7,
+0xA4FD,
+0,
+0,
+0xCA45,
+0,
+0,
+0,
+0xCB6C,
+0xCB6A,
+0xCB6B,
+0xCB68,
+0xA868,
+0xCB69,
+0,
+0,
+0,
+0,
+0,
+0xCD6D,
+0,
+0xAAB3,
+0xCD6B,
+0xCD67,
+0xCD6A,
+0,
+0xCD66,
+0xAAB5,
+0xCD69,
+0,
+0xAAB2,
+0xAAB1,
+0,
+0xAAB4,
+0xCD6C,
+0xCD68,
+0,
+0,
+0,
+0,
+0xACC2,
+0xACC5,
+0xCFCE,
+0xCFCD,
+0xCFCC,
+0xACBF,
+0xCFD5,
+0xCFCB,
+0,
+0xACC1,
+0xD2AF,
+0,
+0xCFD2,
+0xCFD0,
+0xACC4,
+0,
+0xCFC8,
+0xCFD3,
+0,
+0xCFCA,
+0xCFD4,
+0xCFD1,
+0xCFC9,
+0,
+0xACC0,
+0xCFD6,
+0xCFC7,
+0xACC3,
+0,
+0,
+0,
+0,
+0xD2B4,
+0xD2AB,
+0xD2B6,
+0,
+0xD2AE,
+0xD2B9,
+0xD2BA,
+0xD2AC,
+0xD2B8,
+0xD2B5,
+0xD2B3,
+0xD2B7,
+0xAF5F,
+0,
+0xAF5D,
+0,
+0,
+0xD2B1,
+0,
+0xD2AD,
+0,
+0xD2B0,
+0xD2BB,
+0xD2B2,
+0xAF5E,
+0xCFCF,
+0,
+0xAF5A,
+0xAF5C,
+0,
+0,
+0,
+0,
+0,
+0xD678,
+0xD66D,
+0xD66B,
+0,
+0xD66C,
+0,
+0xD673,
+0,
+0xD674,
+0xD670,
+0xB27B,
+0xD675,
+0xD672,
+0xD66F,
+0,
+0xB279,
+0xD66E,
+0xB277,
+0xB27A,
+0xD671,
+0xD679,
+0xAF5B,
+0xB278,
+0xD677,
+0xD676,
+0xB27C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDA7E,
+0,
+0,
+0,
+0xDAA1,
+0xB560,
+0,
+0xDAA7,
+0,
+0,
+0xDAA9,
+0xDAA2,
+0xB55A,
+0xDAA6,
+0xDAA5,
+0xB55B,
+0xB561,
+0,
+0xB562,
+0xDAA8,
+0xB558,
+0xDA7D,
+0xDA7B,
+0xDAA3,
+0xDA7A,
+0xB55F,
+0xDA7C,
+0xDAA4,
+0xDAAA,
+0xB559,
+0xB55E,
+0xB55C,
+0xB55D,
+0,
+0,
+0,
+0xB557,
+0,
+0,
+0,
+0,
+0xB7E9,
+0xDEB7,
+0xB7E8,
+0xDEBB,
+0,
+0xDEB1,
+0,
+0xDEBC,
+0,
+0,
+0,
+0xDEB2,
+0xDEB3,
+0,
+0xDEBD,
+0xDEBA,
+0xDEB8,
+0xDEB9,
+0xDEB5,
+0xDEB4,
+0,
+0xDEBE,
+0xB7E5,
+0,
+0xDEB6,
+0,
+0xB7EA,
+0xB7E4,
+0xB7EB,
+0xB7EC,
+0,
+0xB7E7,
+0xB7E6,
+0,
+0,
+0xE2CE,
+0xBABE,
+0xBABD,
+0,
+0,
+0xE2D3,
+0,
+0xBCFC,
+0xBABF,
+0,
+0,
+0xBAC1,
+0xE2D4,
+0xB7E3,
+0xBAC0,
+0xE2D0,
+0xE2D2,
+0xE2CF,
+0,
+0xE2D1,
+0,
+0,
+0,
+0xE6AB,
+0,
+0,
+0xE6AA,
+0xE6A7,
+0xBD40,
+0xEA62,
+0xBD41,
+0xE6A6,
+0,
+0xBCFE,
+0,
+0xE6A8,
+0xE6A5,
+0xE6A2,
+0xE6A9,
+0xE6A3,
+0xE6A4,
+0xBCFD,
+0,
+0,
+0,
+0,
+0xED69,
+0,
+0xEA66,
+0,
+0xEA65,
+0xEA67,
+0,
+0xED66,
+0xBF5A,
+0,
+0xEA63,
+0,
+0xBF58,
+0,
+0xBF5C,
+0xBF5B,
+0xEA64,
+0xEA68,
+0,
+0xBF59,
+0,
+0xED6D,
+0xC0F5,
+0xC27A,
+0xC0F6,
+0xC0F3,
+0xED6A,
+0xED68,
+0,
+0xED6B,
+0,
+0xED6E,
+0xC0F4,
+0xED6C,
+0xED67,
+0,
+0,
+0xF042,
+0xF045,
+0xF275,
+0xF040,
+0,
+0xF46F,
+0xF046,
+0,
+0xC3A2,
+0xF044,
+0xC27B,
+0xF041,
+0xF043,
+0xF047,
+0xF276,
+0,
+0xF274,
+0,
+0,
+0,
+0,
+0xC3A3,
+0xF273,
+0,
+0,
+0,
+0xC46E,
+0,
+0,
+0,
+0,
+0xC4ED,
+0xF6F1,
+0xC4EC,
+0xF6F3,
+0xF6F0,
+0xF6F2,
+0xC5D0,
+0xF8B2,
+0xA5CA,
+0xCD6E,
+0xD2BC,
+0xD2BD,
+0xB27D,
+0xDEBF,
+0xBF5D,
+0xC3A4,
+0xC57B,
+0xF8B3,
+0xA5CB,
+0,
+0xCD6F,
+0xA260,
+0,
+0,
+0xCFD7,
+0,
+0xCFD8,
+0,
+0,
+0,
+0,
+0,
+0xD2BE,
+0xD2BF,
+0xB27E,
+0xB2A1,
+0,
+0,
+0,
+0xDAAB,
+0,
+0xDEC2,
+0xDEC1,
+0xDEC0,
+0xE2D5,
+0,
+0xE2D6,
+0xE2D7,
+0xBAC2,
+0,
+0,
+0xE6AD,
+0xE6AC,
+0,
+0,
+0xEA69,
+0xBF5E,
+0xBF5F,
+0,
+0xED72,
+0xED6F,
+0xED70,
+0xED71,
+0xF049,
+0xF048,
+0xC27C,
+0xF277,
+0xF5DE,
+0xA5CC,
+0,
+0xACC6,
+0,
+0xB2A2,
+0xDEC3,
+0,
+0xA5CD,
+0,
+0xD2C0,
+0xB2A3,
+0,
+0,
+0xB563,
+0xB564,
+0,
+0xA5CE,
+0xA5CF,
+0xCA46,
+0xA86A,
+0xA869,
+0xACC7,
+0xCFD9,
+0xDAAC,
+0xA5D0,
+0xA5D1,
+0xA5D2,
+0xA5D3,
+0,
+0,
+0,
+0xA86B,
+0xA86C,
+0xCB6E,
+0xCB6D,
+0,
+0,
+0xAAB6,
+0xCD72,
+0xCD70,
+0xCD71,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFDA,
+0xCFDB,
+0,
+0,
+0xACCB,
+0xACC9,
+0,
+0xACCA,
+0xACC8,
+0,
+0,
+0,
+0,
+0xAF60,
+0,
+0,
+0,
+0,
+0xAF64,
+0xAF63,
+0xD2C1,
+0xAF62,
+0xAF61,
+0,
+0xD2C2,
+0,
+0,
+0xB2A6,
+0xD67B,
+0xD67A,
+0xB2A4,
+0xB2A5,
+0,
+0,
+0,
+0xB566,
+0xB565,
+0xDAAE,
+0,
+0,
+0xDAAD,
+0xB2A7,
+0,
+0,
+0,
+0,
+0,
+0xB7ED,
+0xDEC5,
+0xB7EE,
+0xDEC4,
+0,
+0,
+0,
+0xE2D8,
+0xE6AE,
+0xBD42,
+0xEA6A,
+0,
+0,
+0,
+0xED73,
+0,
+0xC3A6,
+0xC3A5,
+0,
+0,
+0xC57C,
+0xA5D4,
+0xCD73,
+0,
+0,
+0xB2A8,
+0xE2D9,
+0xBAC3,
+0,
+0,
+0xCB6F,
+0xCB70,
+0,
+0,
+0xCD74,
+0xAAB8,
+0xAAB9,
+0,
+0,
+0xAAB7,
+0,
+0,
+0,
+0,
+0xACCF,
+0xACD0,
+0xACCD,
+0xACCE,
+0,
+0xCFDC,
+0,
+0,
+0xCFDD,
+0xACCC,
+0,
+0,
+0,
+0,
+0xD2C3,
+0,
+0xAF68,
+0xAF69,
+0,
+0xB2AB,
+0xD2C9,
+0,
+0xAF6E,
+0xAF6C,
+0xD2CA,
+0xD2C5,
+0xAF6B,
+0xAF6A,
+0xAF65,
+0xD2C8,
+0xD2C7,
+0xD2C4,
+0xAF6D,
+0,
+0xD2C6,
+0xAF66,
+0,
+0xAF67,
+0,
+0,
+0xB2AC,
+0xD6A1,
+0xD6A2,
+0xB2AD,
+0xD67C,
+0xD67E,
+0xD6A4,
+0xD6A3,
+0xD67D,
+0,
+0xB2A9,
+0xB2AA,
+0,
+0xDAB6,
+0xB56B,
+0xB56A,
+0xDAB0,
+0xB568,
+0,
+0xDAB3,
+0xB56C,
+0xDAB4,
+0xB56D,
+0xDAB1,
+0xB567,
+0xB569,
+0xDAB5,
+0,
+0xDAB2,
+0xDAAF,
+0,
+0,
+0,
+0,
+0,
+0xDED2,
+0,
+0xDEC7,
+0xB7F0,
+0xB7F3,
+0xB7F2,
+0xB7F7,
+0xB7F6,
+0xDED3,
+0xDED1,
+0xDECA,
+0xDECE,
+0xDECD,
+0xB7F4,
+0xDED0,
+0xDECC,
+0xDED4,
+0xDECB,
+0xB7F5,
+0xB7EF,
+0xB7F1,
+0,
+0xDEC9,
+0,
+0,
+0,
+0,
+0xE2DB,
+0xBAC7,
+0xE2DF,
+0xBAC6,
+0xE2DC,
+0xBAC5,
+0,
+0xDEC8,
+0xDECF,
+0xE2DE,
+0,
+0xBAC8,
+0xE2E0,
+0xE2DD,
+0xE2DA,
+0,
+0,
+0xE6B1,
+0xE6B5,
+0xE6B7,
+0xE6B3,
+0xE6B2,
+0xE6B0,
+0xBD45,
+0xBD43,
+0xBD48,
+0xBD49,
+0xE6B4,
+0xBD46,
+0xE6AF,
+0xBD47,
+0xBAC4,
+0xE6B6,
+0xBD44,
+0,
+0,
+0,
+0xEA6C,
+0,
+0xEA6B,
+0xEA73,
+0xEA6D,
+0xEA72,
+0xEA6F,
+0xBF60,
+0xEA71,
+0,
+0,
+0xBF61,
+0,
+0xBF62,
+0,
+0xEA70,
+0xEA6E,
+0,
+0,
+0,
+0,
+0xC0F8,
+0xED74,
+0,
+0,
+0xC0F7,
+0xED77,
+0xED75,
+0xED76,
+0,
+0,
+0xC0F9,
+0,
+0,
+0,
+0xF04D,
+0,
+0xC2A1,
+0xF04E,
+0,
+0,
+0xC27D,
+0xF04F,
+0xC27E,
+0xF04C,
+0xF050,
+0,
+0xF04A,
+0,
+0,
+0xC3A7,
+0xF278,
+0xC3A8,
+0xC46F,
+0,
+0xF04B,
+0xC470,
+0,
+0,
+0,
+0xC4EE,
+0xF5DF,
+0,
+0xC57E,
+0xF6F4,
+0xC57D,
+0,
+0xF7EA,
+0xC5F5,
+0xC5F6,
+0,
+0,
+0xF9CC,
+0,
+0,
+0xACD1,
+0xCFDE,
+0,
+0xB56E,
+0xB56F,
+0xA5D5,
+0xA6CA,
+0xCA47,
+0,
+0xCB71,
+0xA86D,
+0,
+0xAABA,
+0,
+0xACD2,
+0xACD3,
+0xACD4,
+0xD6A6,
+0xD2CB,
+0xAF6F,
+0,
+0,
+0xB2AE,
+0xD6A5,
+0,
+0,
+0xDAB8,
+0xB571,
+0,
+0xDAB7,
+0xB570,
+0,
+0,
+0xDED5,
+0xBD4A,
+0xE6BB,
+0xE6B8,
+0xE6B9,
+0xE6BA,
+0,
+0,
+0,
+0,
+0,
+0xED78,
+0,
+0xF051,
+0,
+0,
+0,
+0xF471,
+0xF470,
+0,
+0xF6F5,
+0xA5D6,
+0xCD75,
+0xAF70,
+0,
+0,
+0,
+0xB572,
+0xDED6,
+0,
+0,
+0xE2E1,
+0,
+0xBD4B,
+0xEA74,
+0,
+0xF052,
+0xF472,
+0xA5D7,
+0,
+0,
+0xAABB,
+0xACD7,
+0xCFDF,
+0xACD8,
+0xACD6,
+0,
+0xACD5,
+0xD2CC,
+0xAF71,
+0,
+0,
+0xAF72,
+0xAF73,
+0,
+0,
+0,
+0xB2B0,
+0xD6A7,
+0xB2AF,
+0,
+0,
+0,
+0,
+0,
+0xDAB9,
+0xB2B1,
+0xB573,
+0xDED7,
+0xB7F8,
+0xB7F9,
+0,
+0xBAC9,
+0,
+0xBACA,
+0xBD4C,
+0xBF64,
+0xEA75,
+0xBF63,
+0,
+0xED79,
+0xC0FA,
+0,
+0xF053,
+0xF473,
+0xA5D8,
+0xA86E,
+0xCD78,
+0xCD77,
+0xAABC,
+0xCD76,
+0xAABD,
+0xCD79,
+0,
+0xCFE5,
+0xACDB,
+0xACDA,
+0xCFE7,
+0xCFE6,
+0xACDF,
+0,
+0xACDE,
+0,
+0,
+0xACD9,
+0,
+0xCFE1,
+0xCFE2,
+0xCFE3,
+0,
+0xACE0,
+0xCFE0,
+0xACDC,
+0xCFE4,
+0xACDD,
+0,
+0,
+0,
+0,
+0xD2CF,
+0xD2D3,
+0xD2D1,
+0xD2D0,
+0,
+0xD2D4,
+0,
+0,
+0,
+0xD2D5,
+0xD2D6,
+0xD2CE,
+0,
+0xD2CD,
+0,
+0xAF75,
+0xAF76,
+0,
+0xD2D7,
+0xD2D2,
+0,
+0xD6B0,
+0,
+0xD2D8,
+0xAF77,
+0xAF74,
+0,
+0,
+0,
+0xD6AA,
+0,
+0xD6A9,
+0,
+0xD6AB,
+0xD6AC,
+0xD6AE,
+0xD6AD,
+0xD6B2,
+0xB2B5,
+0xB2B2,
+0xB2B6,
+0xD6A8,
+0xB2B7,
+0xD6B1,
+0xB2B4,
+0xD6AF,
+0xB2B3,
+0,
+0,
+0,
+0,
+0,
+0xDABC,
+0xDABE,
+0xDABA,
+0xDABB,
+0,
+0,
+0xDABF,
+0xDAC1,
+0xDAC2,
+0xDABD,
+0xDAC0,
+0xB574,
+0,
+0,
+0xDEDB,
+0,
+0xDEE0,
+0xDED8,
+0xDEDC,
+0,
+0,
+0xDEE1,
+0xDEDD,
+0xB7FA,
+0xB843,
+0,
+0xB7FD,
+0xDED9,
+0xDEDA,
+0xBACE,
+0xB846,
+0xB7FE,
+0,
+0xB844,
+0xB7FC,
+0xDEDF,
+0xB845,
+0xDEDE,
+0xB841,
+0xB7FB,
+0xB842,
+0xDEE2,
+0xE2E6,
+0xE2E8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB840,
+0,
+0,
+0xE2E3,
+0xBACC,
+0xE2E9,
+0xBACD,
+0xE2E7,
+0xE2E2,
+0xE2E5,
+0xE2EA,
+0xBACB,
+0xE2E4,
+0,
+0xBD4E,
+0xE6BF,
+0xE6BE,
+0,
+0xBD51,
+0xBD4F,
+0xE6BC,
+0xBD4D,
+0xE6BD,
+0,
+0xBD50,
+0,
+0,
+0,
+0xEA7D,
+0,
+0xEAA1,
+0,
+0xEA7E,
+0xEA76,
+0xEA7A,
+0xEA79,
+0xEA77,
+0xBF66,
+0xBF67,
+0xBF65,
+0xEA78,
+0xEA7B,
+0xEA7C,
+0,
+0xBF68,
+0,
+0xC140,
+0xEDA3,
+0,
+0xC0FC,
+0xED7B,
+0xC0FE,
+0xC141,
+0,
+0,
+0xC0FD,
+0xEDA2,
+0xED7C,
+0xC0FB,
+0xEDA1,
+0xED7A,
+0xED7E,
+0xED7D,
+0,
+0,
+0xF055,
+0xC2A4,
+0xC2A5,
+0xC2A2,
+0,
+0xC2A3,
+0,
+0,
+0xF054,
+0,
+0xF27B,
+0,
+0,
+0xC3A9,
+0,
+0xF279,
+0xF27A,
+0,
+0xF474,
+0xF477,
+0xF475,
+0xF476,
+0xF5E0,
+0,
+0,
+0xC4EF,
+0xF7EB,
+0xF8B4,
+0,
+0xC5F7,
+0xF8F8,
+0xF8F9,
+0xC666,
+0xA5D9,
+0xACE1,
+0,
+0xDAC3,
+0,
+0xDEE3,
+0,
+0xA5DA,
+0xA86F,
+0,
+0xAABE,
+0,
+0xCFE8,
+0xCFE9,
+0xAF78,
+0,
+0,
+0xDAC4,
+0xB575,
+0xB847,
+0xC142,
+0xEDA4,
+0xF27C,
+0xF478,
+0xA5DB,
+0,
+0,
+0,
+0xCDA1,
+0xCD7A,
+0xCD7C,
+0xCD7E,
+0xCD7D,
+0xCD7B,
+0xAABF,
+0,
+0,
+0,
+0,
+0xACE2,
+0xCFF2,
+0,
+0xCFED,
+0xCFEA,
+0,
+0,
+0xCFF1,
+0,
+0,
+0xACE4,
+0xACE5,
+0xCFF0,
+0xCFEF,
+0xCFEE,
+0xCFEB,
+0xCFEC,
+0xCFF3,
+0xACE3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAF7C,
+0,
+0xAFA4,
+0xAFA3,
+0xD2E1,
+0xD2DB,
+0xD2D9,
+0,
+0xAFA1,
+0xD6B9,
+0xAF7A,
+0xD2DE,
+0xD2E2,
+0xD2E4,
+0xD2E0,
+0xD2DA,
+0xAFA2,
+0xD2DF,
+0xD2DD,
+0xAF79,
+0xD2E5,
+0xAFA5,
+0xD2E3,
+0xAF7D,
+0xD2DC,
+0,
+0xAF7E,
+0xAF7B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB2B9,
+0,
+0xD6BA,
+0,
+0,
+0xD6B3,
+0xD6B5,
+0xD6B7,
+0,
+0xD6B8,
+0xD6B6,
+0xB2BA,
+0,
+0xD6BB,
+0,
+0xD6B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAC8,
+0xB576,
+0xDAD0,
+0,
+0xDAC5,
+0,
+0xDAD1,
+0,
+0xDAC6,
+0xDAC7,
+0,
+0,
+0xDACF,
+0xDACE,
+0xDACB,
+0xB2B8,
+0xB577,
+0xDAC9,
+0xDACC,
+0xB578,
+0xDACD,
+0xDACA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEEE,
+0,
+0xDEF2,
+0xB84E,
+0,
+0xE2F0,
+0xB851,
+0xDEF0,
+0,
+0,
+0xDEED,
+0xDEE8,
+0xDEEA,
+0xDEEB,
+0xDEE4,
+0,
+0xB84D,
+0,
+0,
+0xB84C,
+0,
+0xB848,
+0xDEE7,
+0,
+0xB84F,
+0,
+0xB850,
+0xDEE6,
+0xDEE9,
+0xDEF1,
+0xB84A,
+0xB84B,
+0xDEEF,
+0xDEE5,
+0,
+0,
+0,
+0xE2F2,
+0xBAD0,
+0xE2F4,
+0xDEEC,
+0xE2F6,
+0xBAD4,
+0xE2F7,
+0xE2F3,
+0,
+0xBAD1,
+0xE2EF,
+0xBAD3,
+0xE2EC,
+0xE2F1,
+0xE2F5,
+0xE2EE,
+0,
+0,
+0xB849,
+0,
+0xE2EB,
+0xBAD2,
+0xE2ED,
+0,
+0,
+0,
+0,
+0,
+0xBD54,
+0xE6C1,
+0xBD58,
+0,
+0xBD56,
+0,
+0,
+0xBACF,
+0,
+0xE6C8,
+0xE6C9,
+0xBD53,
+0,
+0,
+0xE6C7,
+0xE6CA,
+0xBD55,
+0xBD52,
+0xE6C3,
+0xE6C0,
+0xE6C5,
+0xE6C2,
+0xBD59,
+0xE6C4,
+0,
+0,
+0xE6C6,
+0xBD57,
+0,
+0,
+0,
+0,
+0xBF6A,
+0xEAA8,
+0,
+0xEAA2,
+0xEAA6,
+0xEAAC,
+0xEAAD,
+0xEAA9,
+0xEAAA,
+0xEAA7,
+0,
+0xEAA4,
+0,
+0xBF6C,
+0xBF69,
+0xEAA3,
+0xEAA5,
+0,
+0xBF6B,
+0xEAAB,
+0,
+0xC146,
+0,
+0,
+0xEDAA,
+0xEDA5,
+0xC145,
+0,
+0,
+0xC143,
+0,
+0xEDAC,
+0xC144,
+0xEDA8,
+0xEDA9,
+0xEDA6,
+0xEDAD,
+0xF056,
+0,
+0xC147,
+0xEDA7,
+0,
+0xEDAE,
+0xEDAB,
+0,
+0,
+0,
+0xF05A,
+0,
+0,
+0xF057,
+0,
+0xC2A6,
+0,
+0xF05B,
+0xF05D,
+0xF05C,
+0xF058,
+0xF059,
+0,
+0,
+0xF2A3,
+0,
+0xC3AA,
+0,
+0xF27E,
+0xF2A2,
+0xF27D,
+0xF2A4,
+0,
+0,
+0xF2A1,
+0,
+0xF47A,
+0xF47D,
+0xF479,
+0xC471,
+0xF47B,
+0xF47C,
+0xF47E,
+0xC472,
+0xC474,
+0xC473,
+0xF5E1,
+0,
+0xF5E3,
+0,
+0xF5E2,
+0,
+0,
+0,
+0xF6F6,
+0,
+0,
+0xF8B5,
+0xF8FA,
+0xA5DC,
+0,
+0,
+0xCB72,
+0xAAC0,
+0xCDA3,
+0xAAC1,
+0xAAC2,
+0xCDA2,
+0,
+0xCFF8,
+0xCFF7,
+0xACE6,
+0xACE9,
+0xACE8,
+0xACE7,
+0xCFF4,
+0xCFF6,
+0xCFF5,
+0,
+0,
+0xD2E8,
+0xAFA7,
+0xD2EC,
+0xD2EB,
+0xD2EA,
+0xD2E6,
+0xAFA6,
+0xAFAA,
+0xAFAD,
+0,
+0,
+0xAFAE,
+0xD2E7,
+0xD2E9,
+0xAFAC,
+0xAFAB,
+0xAFA9,
+0xAFA8,
+0xD6C2,
+0,
+0xD6C0,
+0xD6BC,
+0xB2BB,
+0,
+0xD6BD,
+0xB2BC,
+0xD6BE,
+0xD6BF,
+0xD6C1,
+0,
+0xB2BD,
+0,
+0,
+0xDAD5,
+0,
+0xDAD4,
+0xDAD3,
+0xDAD2,
+0,
+0,
+0,
+0,
+0xDEF6,
+0xB852,
+0,
+0xDEF3,
+0xDEF5,
+0,
+0xB853,
+0,
+0xB854,
+0xDEF4,
+0,
+0,
+0,
+0,
+0,
+0xE341,
+0,
+0xE2F9,
+0xE2FA,
+0,
+0xBAD7,
+0xBAD5,
+0xBAD6,
+0xE343,
+0,
+0xE342,
+0xE2FE,
+0xE2FD,
+0xE2FC,
+0xE2FB,
+0xE340,
+0xE2F8,
+0,
+0xE6CB,
+0xE6D0,
+0xE6CE,
+0,
+0,
+0,
+0xE6CD,
+0xE6CC,
+0xE6CF,
+0,
+0xEAAE,
+0,
+0xBF6D,
+0xC148,
+0xEDB0,
+0,
+0xC149,
+0xEDAF,
+0xF05F,
+0xF05E,
+0xC2A7,
+0,
+0xF2A5,
+0xC3AB,
+0xF4A1,
+0xC5A1,
+0xF6F7,
+0,
+0xF8B7,
+0xF8B6,
+0xC9A8,
+0xACEA,
+0xACEB,
+0xD6C3,
+0,
+0xB856,
+0xA5DD,
+0xA872,
+0xA871,
+0xA870,
+0,
+0,
+0,
+0xCDA4,
+0,
+0,
+0xAAC4,
+0xAAC3,
+0,
+0xACEE,
+0,
+0xCFFA,
+0xCFFD,
+0xCFFB,
+0,
+0xACEC,
+0xACED,
+0,
+0,
+0xCFF9,
+0xCFFC,
+0,
+0xAFB5,
+0,
+0,
+0,
+0xD2F3,
+0xD2F5,
+0xD2F4,
+0xAFB2,
+0xD2EF,
+0,
+0,
+0xAFB0,
+0xAFAF,
+0,
+0xAFB3,
+0xAFB1,
+0,
+0xAFB4,
+0xD2F2,
+0xD2ED,
+0xD2EE,
+0xD2F1,
+0xD2F0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6C6,
+0xD6C7,
+0xD6C5,
+0,
+0xD6C4,
+0xB2BE,
+0,
+0,
+0,
+0,
+0xB57D,
+0,
+0xDAD6,
+0xDAD8,
+0xDADA,
+0xB57C,
+0,
+0,
+0xB57A,
+0,
+0xDAD7,
+0xB57B,
+0xDAD9,
+0xB579,
+0,
+0,
+0xDF41,
+0xDEF7,
+0xDEFA,
+0xDEFE,
+0xB85A,
+0xDEFC,
+0,
+0xDEFB,
+0xDEF8,
+0xDEF9,
+0xB858,
+0xDF40,
+0xB857,
+0,
+0xB85C,
+0xB85B,
+0xB859,
+0,
+0xDEFD,
+0,
+0,
+0,
+0xE349,
+0,
+0xE348,
+0,
+0,
+0xE344,
+0,
+0,
+0xBAD8,
+0xE347,
+0xE346,
+0xBAD9,
+0,
+0,
+0,
+0,
+0,
+0xBD5E,
+0,
+0xE6D2,
+0,
+0xBD5F,
+0xBD5B,
+0xBD5D,
+0,
+0xBD5A,
+0xBD5C,
+0,
+0,
+0,
+0xEAAF,
+0,
+0xBF70,
+0xEAB1,
+0xEAB0,
+0,
+0xE345,
+0xBF72,
+0xBF71,
+0xBF6E,
+0xBF6F,
+0,
+0,
+0,
+0,
+0,
+0xEDB5,
+0,
+0xEDB3,
+0xC14A,
+0xEDB4,
+0,
+0xEDB6,
+0xEDB2,
+0xEDB1,
+0,
+0,
+0xF060,
+0xC2AA,
+0xC2A8,
+0xC2A9,
+0,
+0,
+0,
+0,
+0xF2A6,
+0xF2A7,
+0xC3AD,
+0,
+0xC3AC,
+0xF4A3,
+0xF4A4,
+0xF4A2,
+0,
+0xF6F8,
+0xF6F9,
+0,
+0,
+0xA5DE,
+0xCA48,
+0xA873,
+0,
+0xCDA5,
+0xAAC6,
+0xAAC5,
+0xCDA6,
+0,
+0,
+0xD040,
+0xACEF,
+0xCFFE,
+0xACF0,
+0,
+0,
+0xAFB6,
+0xD2F8,
+0xD2F6,
+0xD2FC,
+0xAFB7,
+0xD2F7,
+0xD2FB,
+0xD2F9,
+0xD2FA,
+0,
+0,
+0xD6C8,
+0xD6CA,
+0,
+0xB2BF,
+0,
+0xD6C9,
+0xB2C0,
+0xB5A2,
+0xB5A1,
+0xB57E,
+0xDADB,
+0,
+0,
+0,
+0,
+0xDF44,
+0xB85D,
+0xB85E,
+0,
+0xDF43,
+0xDF42,
+0,
+0,
+0,
+0,
+0xE34A,
+0xBADB,
+0xBADA,
+0xE34B,
+0xE34C,
+0,
+0xBD61,
+0xBD60,
+0,
+0xEAB5,
+0xE6D3,
+0xE6D5,
+0xE6D4,
+0xEAB4,
+0xEAB2,
+0xEAB6,
+0xEAB3,
+0,
+0xBF73,
+0,
+0,
+0,
+0xEDB7,
+0xC14B,
+0xEDB8,
+0xEDB9,
+0,
+0,
+0xC2AB,
+0xC2AC,
+0,
+0xC475,
+0,
+0,
+0xC5D1,
+0xA5DF,
+0,
+0,
+0,
+0,
+0,
+0xD041,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD2FD,
+0xAFB8,
+0,
+0,
+0,
+0,
+0,
+0xB3BA,
+0xB3B9,
+0,
+0,
+0xB5A4,
+0xDADD,
+0xB5A3,
+0xDADC,
+0,
+0,
+0,
+0,
+0xDF45,
+0,
+0xBADC,
+0xE34D,
+0xBADD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC476,
+0xF4A5,
+0,
+0xA6CB,
+0xAAC7,
+0xCDA7,
+0,
+0xACF2,
+0,
+0xACF1,
+0xD042,
+0xD043,
+0,
+0,
+0xD340,
+0xD342,
+0xAFB9,
+0,
+0xD344,
+0xD347,
+0xD345,
+0,
+0,
+0,
+0xD346,
+0xD343,
+0xD2FE,
+0xAFBA,
+0xD348,
+0xD341,
+0,
+0,
+0,
+0,
+0xD6D3,
+0xB2C6,
+0xD6DC,
+0xB2C3,
+0,
+0xD6D5,
+0xB2C7,
+0,
+0xB2C1,
+0,
+0xD6D0,
+0xD6DD,
+0xD6D1,
+0xD6CE,
+0xB2C5,
+0,
+0xB2C2,
+0,
+0xD6D4,
+0xD6D7,
+0xB2C4,
+0xD6D8,
+0xB2C8,
+0xD6D9,
+0xD6CF,
+0xD6D6,
+0xD6DA,
+0xD6D2,
+0xD6CD,
+0xD6CB,
+0,
+0,
+0xD6DB,
+0,
+0,
+0xDADF,
+0,
+0,
+0,
+0,
+0xDAE4,
+0,
+0,
+0,
+0xDAE0,
+0xDAE6,
+0xB5A7,
+0xD6CC,
+0xDAE1,
+0xB5A5,
+0xDADE,
+0xB5AC,
+0xDAE2,
+0xB5AB,
+0xDAE3,
+0xB5AD,
+0xB5A8,
+0xB5AE,
+0xB5A9,
+0,
+0xB5AA,
+0,
+0xB5A6,
+0,
+0xDAE5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB861,
+0xDF50,
+0,
+0xDF53,
+0xDF47,
+0xDF4C,
+0xDF46,
+0xB863,
+0,
+0xDF4A,
+0,
+0,
+0,
+0xDF48,
+0xB862,
+0,
+0xDF4F,
+0xDF4E,
+0xDF4B,
+0xDF4D,
+0xDF49,
+0xBAE1,
+0xDF52,
+0xB85F,
+0xDF51,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE35D,
+0,
+0xBAE8,
+0xE358,
+0,
+0xBAE7,
+0xE34E,
+0,
+0xE350,
+0xBAE0,
+0xE355,
+0xE354,
+0xE357,
+0xBAE5,
+0xE352,
+0xE351,
+0,
+0,
+0xBAE4,
+0xBADF,
+0xE353,
+0xBAE2,
+0xE359,
+0xE35B,
+0,
+0xE356,
+0xE34F,
+0xBAE3,
+0,
+0,
+0xBD69,
+0xBADE,
+0,
+0,
+0xE35C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6D9,
+0xBD62,
+0,
+0xE6DB,
+0,
+0xBD63,
+0,
+0,
+0xBD65,
+0xE6DE,
+0,
+0xE6D6,
+0xBAE6,
+0xE6DC,
+0,
+0,
+0,
+0,
+0xE6D8,
+0,
+0xB860,
+0xBD68,
+0,
+0,
+0xBD64,
+0,
+0xBD66,
+0xBD67,
+0,
+0xBF76,
+0xE6DD,
+0xE6D7,
+0xBD6A,
+0,
+0xE6DA,
+0,
+0,
+0,
+0,
+0,
+0xEAC0,
+0xEABB,
+0,
+0,
+0xEAC5,
+0xBF74,
+0xEABD,
+0xBF78,
+0xEAC3,
+0xEABA,
+0xEAB7,
+0xEAC6,
+0xC151,
+0xBF79,
+0xEAC2,
+0xEAB8,
+0xBF77,
+0xEABC,
+0xBF7B,
+0xEAB9,
+0xEABE,
+0xBF7A,
+0xEAC1,
+0xEAC4,
+0,
+0,
+0,
+0,
+0xEDCB,
+0xEDCC,
+0xEDBC,
+0xEDC3,
+0xEDC1,
+0,
+0,
+0xC14F,
+0xEDC8,
+0xEABF,
+0,
+0xEDBF,
+0,
+0xEDC9,
+0xC14E,
+0xEDBE,
+0xEDBD,
+0xEDC7,
+0xEDC4,
+0xEDC6,
+0,
+0xEDBA,
+0xEDCA,
+0xC14C,
+0,
+0xEDC5,
+0xEDCE,
+0xEDC2,
+0xC150,
+0xC14D,
+0xEDC0,
+0xEDBB,
+0xEDCD,
+0xBF75,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF063,
+0,
+0,
+0xF061,
+0xF067,
+0xC2B0,
+0xF065,
+0xF064,
+0xC2B2,
+0xF06A,
+0xC2B1,
+0,
+0xF06B,
+0xF068,
+0xC2AE,
+0xF069,
+0xF062,
+0xC2AF,
+0xC2AD,
+0xF2AB,
+0xF066,
+0,
+0,
+0xF06C,
+0,
+0,
+0xF2A8,
+0,
+0,
+0,
+0xC3B2,
+0xC3B0,
+0xF2AA,
+0,
+0xF2AC,
+0xF2A9,
+0xC3B1,
+0xC3AE,
+0xC3AF,
+0xC3B3,
+0,
+0,
+0xC478,
+0,
+0xF4AA,
+0,
+0xF4A9,
+0xF4A7,
+0xF4A6,
+0xF4A8,
+0,
+0xC477,
+0xC479,
+0,
+0,
+0xC4F0,
+0,
+0,
+0xF5E5,
+0xF5E4,
+0,
+0,
+0xF6FA,
+0,
+0xF6FC,
+0xF6FE,
+0xF6FD,
+0xF6FB,
+0,
+0,
+0xC5A3,
+0xC5A2,
+0,
+0,
+0xC5D3,
+0xC5D2,
+0xC5D4,
+0xF7ED,
+0xF7EC,
+0,
+0xF8FB,
+0xF8B8,
+0xF8FC,
+0xC658,
+0,
+0xC659,
+0xF96D,
+0,
+0,
+0xC67E,
+0xA6CC,
+0,
+0xCDA8,
+0,
+0,
+0xD045,
+0xD046,
+0xD044,
+0,
+0,
+0xACF3,
+0,
+0xD047,
+0xD048,
+0xD049,
+0,
+0,
+0xD349,
+0xD34F,
+0,
+0,
+0xD34D,
+0xAFBB,
+0xD34B,
+0,
+0xD34C,
+0xD34E,
+0,
+0,
+0,
+0xD34A,
+0xB2C9,
+0,
+0xD6DE,
+0xB2CB,
+0xD6E0,
+0xB2CA,
+0xD6DF,
+0,
+0,
+0,
+0,
+0,
+0xDAE8,
+0xB5AF,
+0,
+0xDAEA,
+0xDAE7,
+0xD6E1,
+0,
+0xB5B0,
+0,
+0,
+0xDAE9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDF56,
+0,
+0xB864,
+0xDF54,
+0xB865,
+0xDF55,
+0xB866,
+0,
+0,
+0,
+0xBAE9,
+0xE361,
+0xE35E,
+0xE360,
+0xBAEA,
+0xBAEB,
+0xE35F,
+0,
+0,
+0,
+0,
+0,
+0xE6DF,
+0,
+0,
+0xE6E0,
+0,
+0xBD6B,
+0xE6E2,
+0xE6E1,
+0,
+0xA261,
+0,
+0xEACA,
+0xEACB,
+0xEAC7,
+0,
+0xEAC8,
+0xBF7C,
+0xBF7D,
+0xEAC9,
+0,
+0xC157,
+0,
+0,
+0xC153,
+0xC158,
+0xC154,
+0xC156,
+0xC152,
+0,
+0xC155,
+0,
+0,
+0,
+0,
+0xC2B3,
+0xEDCF,
+0,
+0xF2AE,
+0,
+0xF2AD,
+0,
+0xF4AB,
+0xC47A,
+0xC47B,
+0xF741,
+0xF5E6,
+0,
+0xF740,
+0,
+0xF8FD,
+0xF9A4,
+0xA6CD,
+0,
+0,
+0xA874,
+0,
+0xCDA9,
+0xAAC8,
+0,
+0xACF6,
+0xD04C,
+0xACF4,
+0xD04A,
+0xACF9,
+0xACF5,
+0xACFA,
+0xACF8,
+0xD04B,
+0xACF7,
+0xAFBF,
+0xAFBE,
+0xD35A,
+0xAFC7,
+0xD353,
+0xD359,
+0xAFC3,
+0xD352,
+0xD358,
+0xD356,
+0xAFC2,
+0xAFC4,
+0xD355,
+0xAFBD,
+0xD354,
+0xAFC8,
+0xAFC5,
+0xAFC9,
+0xAFC6,
+0xD351,
+0xD350,
+0xD357,
+0xAFC0,
+0xAFBC,
+0xAFC1,
+0,
+0,
+0,
+0,
+0,
+0xD6F0,
+0xD6E9,
+0,
+0xB5B5,
+0xD6E8,
+0,
+0xB2CF,
+0xB2D6,
+0xB2D3,
+0xB2D9,
+0xB2D8,
+0xB2D4,
+0,
+0xD6E2,
+0xD6E5,
+0,
+0xD6E4,
+0xB2D0,
+0xD6E6,
+0xD6EF,
+0xB2D1,
+0xD6E3,
+0xD6EC,
+0xD6ED,
+0xB2D2,
+0xD6EA,
+0xB2D7,
+0xB2CD,
+0xB2D5,
+0xD6E7,
+0xB2CC,
+0xD6EB,
+0,
+0,
+0xD6EE,
+0,
+0,
+0,
+0xDAFB,
+0xDAF2,
+0xB5B2,
+0xDAF9,
+0xDAF6,
+0xDAEE,
+0xDAF7,
+0xB5B4,
+0xDAEF,
+0,
+0xDAEB,
+0,
+0,
+0xB86C,
+0xDAF4,
+0,
+0xB5B1,
+0xDAFA,
+0,
+0xB5B8,
+0xB5BA,
+0xDAED,
+0,
+0,
+0xB5B9,
+0xDAF0,
+0xB5B3,
+0xDAF8,
+0xDAF1,
+0xDAF5,
+0,
+0xDAF3,
+0xB5B6,
+0xDAEC,
+0xB5BB,
+0xB2CE,
+0xB5B7,
+0xB5BC,
+0,
+0,
+0,
+0,
+0,
+0xB868,
+0xDF5D,
+0xDF5F,
+0xDF61,
+0xDF65,
+0,
+0xDF5B,
+0xDF59,
+0xB86A,
+0,
+0xDF60,
+0xDF64,
+0xDF5C,
+0xDF58,
+0,
+0xDF57,
+0,
+0,
+0,
+0xDF62,
+0xDF5A,
+0xDF5E,
+0xB86B,
+0,
+0xB869,
+0xDF66,
+0xB867,
+0xDF63,
+0,
+0xE372,
+0,
+0,
+0,
+0,
+0,
+0xBAEE,
+0xE36A,
+0xBD78,
+0xE374,
+0xBAF1,
+0xE378,
+0xBAF7,
+0xE365,
+0,
+0,
+0xE375,
+0xE362,
+0,
+0xE377,
+0xE366,
+0,
+0xBAFE,
+0xBAFB,
+0xE376,
+0xE370,
+0xBAED,
+0xBAF5,
+0xBAF4,
+0,
+0xBAF3,
+0xBAF9,
+0,
+0xE363,
+0xBAFA,
+0xE371,
+0xBAF6,
+0xBAEC,
+0xE373,
+0xBAEF,
+0xBAF0,
+0xBAF8,
+0xE368,
+0xE367,
+0xE364,
+0,
+0xE36C,
+0xE369,
+0xE36D,
+0xBAFD,
+0,
+0xE379,
+0xBAF2,
+0xE36E,
+0xE36F,
+0,
+0xE36B,
+0,
+0,
+0,
+0xBAFC,
+0,
+0,
+0,
+0,
+0xE6E7,
+0xBD70,
+0xBD79,
+0xBD75,
+0xE6E4,
+0,
+0xBD72,
+0xBD76,
+0xE6F0,
+0xBD6C,
+0xE6E8,
+0,
+0xBD74,
+0,
+0,
+0xE6EB,
+0xE6E6,
+0xBD73,
+0xBD77,
+0xE6E5,
+0,
+0xBD71,
+0,
+0xE6EF,
+0xBD6E,
+0xE6EE,
+0xE6ED,
+0xBD7A,
+0xE572,
+0xBD6D,
+0,
+0xE6EC,
+0xE6E3,
+0,
+0xBD7B,
+0xE6EA,
+0xBD6F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6E9,
+0,
+0,
+0,
+0,
+0xBFA2,
+0xBFA7,
+0xBF7E,
+0xEAD8,
+0xEACF,
+0xEADB,
+0xEAD3,
+0xEAD9,
+0xBFA8,
+0xBFA1,
+0xEACC,
+0xEAD2,
+0xEADC,
+0xEAD5,
+0xEADA,
+0xEACE,
+0,
+0,
+0xEAD6,
+0xBFA3,
+0xEAD4,
+0xBFA6,
+0xBFA5,
+0xEAD0,
+0xEAD1,
+0xEACD,
+0xEAD7,
+0xBFA4,
+0xEADE,
+0xEADD,
+0,
+0,
+0,
+0xEDDA,
+0xEDD6,
+0xC15F,
+0,
+0xEDD0,
+0xC159,
+0xC169,
+0xEDDC,
+0xC161,
+0xC15D,
+0xEDD3,
+0xC164,
+0xC167,
+0xEDDE,
+0xC15C,
+0xEDD5,
+0xC165,
+0xEDE0,
+0xEDDD,
+0xEDD1,
+0xC160,
+0xC15A,
+0xC168,
+0xEDD8,
+0xC163,
+0xEDD2,
+0xC15E,
+0xEDDF,
+0xC162,
+0xC15B,
+0xEDD9,
+0xC166,
+0xEDD7,
+0,
+0,
+0xEDDB,
+0,
+0,
+0,
+0xF06E,
+0xF074,
+0xC2B9,
+0xF077,
+0xC2B4,
+0xC2B5,
+0xF06F,
+0xF076,
+0xF071,
+0xC2BA,
+0xC2B7,
+0,
+0xF06D,
+0,
+0xC2B6,
+0xF073,
+0xF075,
+0xC2B8,
+0xF072,
+0xF070,
+0,
+0,
+0,
+0,
+0xF2B8,
+0xC3B7,
+0xC3B8,
+0xC3B4,
+0,
+0xC3B5,
+0,
+0xF2B4,
+0xF2B2,
+0,
+0xF2B6,
+0xC3BA,
+0xF2B7,
+0xF2B0,
+0xF2AF,
+0xF2B3,
+0xF2B1,
+0xC3B6,
+0xF2B5,
+0xF4AC,
+0xC47E,
+0xC47D,
+0xF4AD,
+0,
+0xF4AF,
+0xF4AE,
+0xC4A1,
+0,
+0,
+0,
+0xF5EB,
+0xF5E8,
+0xF5E9,
+0,
+0xF5E7,
+0xF5EA,
+0xC4F2,
+0xF5EC,
+0,
+0xC4F1,
+0,
+0xF742,
+0,
+0xC5D5,
+0xC5D7,
+0xF7EE,
+0xC5D6,
+0xF8B9,
+0xF940,
+0xF942,
+0xF8FE,
+0xF941,
+0xC66C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA6CE,
+0,
+0xACFB,
+0xD26F,
+0xAFCA,
+0,
+0,
+0xB2DA,
+0xDAFC,
+0xDAFD,
+0,
+0,
+0,
+0xEADF,
+0xC16A,
+0xEDE1,
+0,
+0,
+0xC2BB,
+0,
+0xF2BA,
+0xF2B9,
+0xC4A2,
+0xF5ED,
+0,
+0xF743,
+0xC5F8,
+0xCA49,
+0,
+0,
+0xAAC9,
+0xA875,
+0,
+0,
+0xD04D,
+0,
+0,
+0xD360,
+0xD35B,
+0xD35F,
+0xD35D,
+0xAFCB,
+0xD35E,
+0xD35C,
+0,
+0xD6F1,
+0,
+0xDAFE,
+0xDB40,
+0xDF69,
+0xDF6A,
+0xB86E,
+0xB86F,
+0xDF68,
+0xDF6B,
+0xDF67,
+0xB86D,
+0,
+0xBB40,
+0,
+0xB870,
+0xE37A,
+0,
+0xBD7C,
+0xE6F1,
+0xBD7D,
+0,
+0xBFA9,
+0xEAE2,
+0xEAE0,
+0xEAE1,
+0xEDE4,
+0xEDE3,
+0xEDE2,
+0,
+0,
+0,
+0xF2BB,
+0,
+0xC3B9,
+0xF2BC,
+0xF744,
+0xC5F9,
+0xF8BA,
+0xA6CF,
+0xAACB,
+0xAACA,
+0xD04F,
+0xACFC,
+0,
+0,
+0xD04E,
+0xD362,
+0,
+0xAFCC,
+0xD6F2,
+0xD361,
+0,
+0,
+0,
+0xB2DC,
+0xD6F5,
+0xD6F3,
+0xD6F4,
+0xB2DB,
+0,
+0xDB42,
+0xDB43,
+0xDB41,
+0,
+0xB873,
+0xDF6D,
+0xDF6C,
+0xDF6E,
+0xB872,
+0xB871,
+0,
+0,
+0xE6F2,
+0xE6F4,
+0,
+0xBD7E,
+0xE6F3,
+0xEAE3,
+0xBFAA,
+0xF079,
+0,
+0xF078,
+0xC3BB,
+0xF2BD,
+0xC3BD,
+0xC3BC,
+0xF4B0,
+0xF5EE,
+0xC4F3,
+0xA6D0,
+0xD050,
+0xACFD,
+0xD365,
+0xAFCE,
+0xD364,
+0xD363,
+0,
+0xAFCD,
+0,
+0xD6FB,
+0,
+0xD6FD,
+0xD6F6,
+0xD6F7,
+0xB2DD,
+0xD6F8,
+0xB2DE,
+0xD6FC,
+0xD6F9,
+0xD6FA,
+0xB2DF,
+0,
+0xB5BE,
+0xB5BF,
+0,
+0xDB44,
+0,
+0,
+0,
+0xDF6F,
+0xDF70,
+0,
+0xE37E,
+0xBB43,
+0xBB41,
+0xBB42,
+0xE37B,
+0xE37C,
+0,
+0xE37D,
+0xE6F9,
+0,
+0xE6FA,
+0xBDA1,
+0xE6F7,
+0xE6F6,
+0xE6F8,
+0xE6F5,
+0xBFAD,
+0xEAE4,
+0xBFAB,
+0xBFAC,
+0xEDE6,
+0xC16B,
+0xEDE5,
+0xEFA8,
+0,
+0xF07A,
+0xF07B,
+0xC2BC,
+0,
+0xC2BD,
+0xC16C,
+0xF2BE,
+0xF2BF,
+0xF4B1,
+0xC4A3,
+0xA6D1,
+0,
+0xA6D2,
+0xACFE,
+0xAACC,
+0xAFCF,
+0xD051,
+0,
+0,
+0,
+0xB5C0,
+0xA6D3,
+0xAD41,
+0xD052,
+0xD053,
+0xAD40,
+0xAD42,
+0xA6D4,
+0,
+0xD054,
+0xAFD1,
+0xD366,
+0xAFD3,
+0xAFD0,
+0xAFD2,
+0,
+0xD741,
+0xB2E0,
+0,
+0xD740,
+0xD6FE,
+0,
+0xDF71,
+0,
+0,
+0xE3A1,
+0,
+0xBDA2,
+0,
+0xBFAE,
+0xEAE6,
+0xEAE5,
+0,
+0xEDE7,
+0,
+0,
+0,
+0xF5EF,
+0,
+0,
+0xA6D5,
+0xCB73,
+0xCDAA,
+0xAD43,
+0xD055,
+0,
+0xD368,
+0,
+0,
+0,
+0xAFD4,
+0xD367,
+0xAFD5,
+0,
+0,
+0,
+0xD743,
+0,
+0,
+0xB2E2,
+0xD742,
+0xD744,
+0,
+0xB2E1,
+0,
+0,
+0,
+0,
+0xDB46,
+0xDB47,
+0xDB45,
+0xB5C1,
+0,
+0,
+0,
+0xB874,
+0,
+0xB875,
+0,
+0xBB45,
+0,
+0xE3A3,
+0xE3A2,
+0xBB44,
+0,
+0,
+0,
+0,
+0,
+0xE6FB,
+0,
+0,
+0xE6FC,
+0,
+0,
+0,
+0,
+0xEAE7,
+0,
+0,
+0xC170,
+0xC16F,
+0xC16D,
+0xC16E,
+0xC171,
+0,
+0xF07C,
+0xC2BF,
+0xC2BE,
+0xF2C0,
+0xF4B2,
+0,
+0,
+0,
+0xC5A5,
+0xC5A4,
+0xA6D6,
+0,
+0,
+0xD1FB,
+0,
+0xB877,
+0xB5C2,
+0xB876,
+0xBB46,
+0,
+0xA6D7,
+0xC9A9,
+0xA6D8,
+0xA6D9,
+0,
+0,
+0xCDAB,
+0xCB76,
+0,
+0xCB77,
+0xA877,
+0,
+0xCB74,
+0xA876,
+0,
+0xA879,
+0xCB75,
+0xA87B,
+0xA87A,
+0xCB78,
+0xA878,
+0,
+0,
+0,
+0xAAD1,
+0xAACF,
+0xCDAD,
+0,
+0xAACE,
+0,
+0,
+0,
+0xAAD3,
+0xAAD5,
+0xAAD2,
+0,
+0xCDB0,
+0xCDAC,
+0xAAD6,
+0,
+0xAAD0,
+0xA87C,
+0,
+0xAAD4,
+0xCDAF,
+0,
+0,
+0xCDAE,
+0,
+0xAACD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD05B,
+0xAD47,
+0xAD48,
+0xD05D,
+0,
+0xD057,
+0xD05A,
+0xD063,
+0xD061,
+0,
+0xAD49,
+0xD067,
+0xAD4C,
+0xD064,
+0xD05C,
+0xD059,
+0,
+0,
+0xDB49,
+0xD062,
+0xAD44,
+0xD065,
+0xD056,
+0xD05F,
+0xAD46,
+0xAD4B,
+0xD060,
+0xAD4F,
+0xAD4D,
+0,
+0xD058,
+0xAD4A,
+0,
+0xD05E,
+0xAD4E,
+0xAD45,
+0xD066,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAFDA,
+0,
+0xAFE3,
+0xAFD8,
+0xAFD6,
+0xD36A,
+0xAFDE,
+0xAFDB,
+0xD36C,
+0,
+0,
+0xAFDD,
+0xD36B,
+0xD369,
+0xD36E,
+0xAFE2,
+0xAFE0,
+0xDB48,
+0,
+0xD36F,
+0xD36D,
+0xAFD7,
+0,
+0,
+0xAFD9,
+0xAFDC,
+0,
+0xAFDF,
+0,
+0xAFE1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD74E,
+0xB2E4,
+0,
+0xD745,
+0xD747,
+0,
+0xD748,
+0,
+0xD750,
+0xD74C,
+0xD74A,
+0,
+0xD74D,
+0xD751,
+0xB2E5,
+0xB2E9,
+0xD746,
+0,
+0xD74F,
+0,
+0xB2E7,
+0,
+0xB2E6,
+0xD74B,
+0xD749,
+0,
+0xB2E3,
+0xB2E8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB5C8,
+0xDB51,
+0,
+0,
+0xDB4F,
+0xB5CA,
+0,
+0,
+0,
+0,
+0xDB4A,
+0xDFA1,
+0,
+0xB5C9,
+0xDB4E,
+0,
+0,
+0xDB4B,
+0xB5C5,
+0xB5CB,
+0xDB50,
+0xB5C7,
+0xDB4D,
+0xBB47,
+0xB5C6,
+0xDB4C,
+0xB5CC,
+0xB5C4,
+0xB5C3,
+0,
+0,
+0,
+0,
+0,
+0xDF77,
+0xDF75,
+0,
+0xDF7B,
+0,
+0xDF73,
+0xDFA2,
+0xDF78,
+0,
+0xDF72,
+0xB87B,
+0xB8A3,
+0xDF7D,
+0,
+0xDF76,
+0,
+0xB87E,
+0,
+0,
+0xB87C,
+0xDF7E,
+0xB879,
+0xB878,
+0xDF79,
+0xB87D,
+0xB5CD,
+0,
+0xDF7C,
+0xDF74,
+0xB87A,
+0xB8A1,
+0xB8A2,
+0,
+0,
+0,
+0,
+0xBB4C,
+0xBB48,
+0,
+0xBB4D,
+0xE3A6,
+0,
+0,
+0xE3A5,
+0xE3A7,
+0xBB4A,
+0xE3A4,
+0xBB4B,
+0xE3AA,
+0xE3A9,
+0xE3A8,
+0,
+0xBB49,
+0,
+0,
+0,
+0,
+0,
+0xE741,
+0,
+0xE744,
+0xBDA8,
+0xE743,
+0xBDA7,
+0xBDA3,
+0xBDA4,
+0xBDA5,
+0xE740,
+0xE6FE,
+0xBDA6,
+0,
+0xE742,
+0xE6FD,
+0,
+0,
+0xEAE9,
+0xEAF3,
+0xBFB1,
+0xBFB0,
+0,
+0xEAED,
+0xEAEF,
+0,
+0xEAEA,
+0,
+0xEAEE,
+0xEAE8,
+0xEAF1,
+0xBFAF,
+0xEAF0,
+0xEAEC,
+0,
+0xEAF2,
+0,
+0xEAEB,
+0xC174,
+0xEDE8,
+0xEDEE,
+0xC178,
+0xC17A,
+0xC177,
+0xC176,
+0,
+0xC175,
+0xC173,
+0xEDE9,
+0xEDEC,
+0xC172,
+0xEDED,
+0,
+0xC179,
+0xEDEB,
+0,
+0xEDEA,
+0xC2C0,
+0,
+0xC2C1,
+0xF0A1,
+0xF07D,
+0xF07E,
+0,
+0,
+0xF2C2,
+0,
+0xF2C1,
+0xC3BE,
+0xF4B4,
+0xC4A4,
+0xF4B3,
+0,
+0xF5F0,
+0xF745,
+0xC5A6,
+0xF943,
+0xF944,
+0xC5D8,
+0xA6DA,
+0,
+0xAAD7,
+0xDB52,
+0xBB4E,
+0xC17B,
+0xEDEF,
+0xA6DB,
+0,
+0xAFE5,
+0xAFE4,
+0xDB53,
+0,
+0,
+0,
+0xEAF4,
+0xA6DC,
+0xAD50,
+0,
+0,
+0xDB54,
+0xDB55,
+0xDB56,
+0xBB4F,
+0xBFB2,
+0xA6DD,
+0,
+0xAAD8,
+0xD068,
+0xAFE6,
+0xD370,
+0xB2EA,
+0,
+0xDB57,
+0xB8A4,
+0,
+0xBB50,
+0xBFB3,
+0xC17C,
+0xC2C2,
+0xF4B5,
+0xA6DE,
+0xAAD9,
+0,
+0,
+0xAFE7,
+0xD752,
+0xB5CE,
+0,
+0xBB51,
+0xE3AB,
+0xE745,
+0,
+0,
+0,
+0,
+0xA6DF,
+0xB5CF,
+0xDFA3,
+0xBB52,
+0xA6E0,
+0xCDB1,
+0xD069,
+0xAD51,
+0,
+0,
+0xD372,
+0,
+0,
+0xAFEA,
+0,
+0xAFE8,
+0xAFE9,
+0xAFEB,
+0,
+0,
+0xD371,
+0,
+0,
+0xD757,
+0xD754,
+0xD756,
+0xB2EB,
+0xB2ED,
+0xB2EC,
+0xD753,
+0xB2EE,
+0xD755,
+0,
+0xDB58,
+0xDB59,
+0,
+0xDB5A,
+0xDFA6,
+0,
+0xDFA7,
+0,
+0xDFA5,
+0xDFA8,
+0,
+0xB8A5,
+0,
+0xDFA4,
+0,
+0xBB53,
+0,
+0,
+0xE74A,
+0xE746,
+0xE749,
+0xE74B,
+0xE748,
+0xE747,
+0,
+0xEAF5,
+0xEAF6,
+0xEAF7,
+0xBFB4,
+0xBFB5,
+0xEDF1,
+0xEDF0,
+0xEDF2,
+0,
+0xF0A3,
+0xF0A2,
+0,
+0xF2C4,
+0,
+0xF2C5,
+0xF2C3,
+0,
+0xC4A5,
+0,
+0xF4B6,
+0xF4B7,
+0,
+0xF746,
+0xF7EF,
+0xF8BB,
+0xA6E1,
+0xA87D,
+0,
+0xC17D,
+0xA6E2,
+0,
+0xD758,
+0xDB5B,
+0,
+0xC641,
+0xCA4A,
+0,
+0,
+0,
+0xCA4B,
+0xCA4D,
+0xA6E3,
+0xCA4E,
+0xCA4C,
+0,
+0,
+0xCBA2,
+0xCBA3,
+0xCB7B,
+0,
+0,
+0,
+0,
+0xCBA1,
+0xA8A1,
+0,
+0xA8A2,
+0xCB7C,
+0xCB7A,
+0xCB79,
+0xCB7D,
+0xA87E,
+0xCB7E,
+0xD06A,
+0,
+0,
+0,
+0xCDB6,
+0xAADC,
+0xCDB5,
+0xCDB7,
+0,
+0xAADB,
+0xCDBC,
+0xAADF,
+0xCDB2,
+0xCDC0,
+0xCDC6,
+0xAAE6,
+0xCDC3,
+0xAAE3,
+0,
+0xCDB9,
+0xCDBF,
+0xCDC1,
+0,
+0xCDB4,
+0xAAE2,
+0xAADD,
+0xCDBA,
+0xAAE4,
+0xAAE7,
+0xAAE1,
+0,
+0xAADA,
+0xCDBE,
+0xCDB8,
+0xCDC5,
+0xAAE9,
+0xAAE5,
+0xAAE0,
+0xCDBD,
+0xAFEC,
+0xCDBB,
+0xAADE,
+0xAAE8,
+0,
+0xCDB3,
+0,
+0xCDC2,
+0xCDC4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAD62,
+0xAD5C,
+0xAD64,
+0xAD61,
+0xD071,
+0xD074,
+0xAD5D,
+0,
+0xD06B,
+0,
+0xAD56,
+0xAD60,
+0,
+0xAD63,
+0xAD65,
+0xD0A2,
+0xD077,
+0,
+0xAD55,
+0xD0A1,
+0xAD59,
+0xAD57,
+0xAD52,
+0xD06F,
+0,
+0xD07E,
+0xD073,
+0xD076,
+0xD0A5,
+0,
+0xAD66,
+0xD07D,
+0xAD5E,
+0xD078,
+0xD0A4,
+0xD075,
+0xD079,
+0xD07C,
+0,
+0,
+0xD06D,
+0xD0A3,
+0xD07B,
+0,
+0,
+0xD06C,
+0,
+0xD070,
+0xAD5F,
+0xAD5A,
+0xAD53,
+0xAD58,
+0xAD54,
+0xAD67,
+0xD06E,
+0xD3A5,
+0xAD5B,
+0,
+0,
+0xD07A,
+0xCE41,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3A8,
+0xAFFA,
+0,
+0xD376,
+0,
+0xD3A3,
+0xD37D,
+0,
+0xD3B2,
+0,
+0xD3AA,
+0,
+0xD37E,
+0,
+0xD3A9,
+0xD378,
+0xD37C,
+0xD3B5,
+0xAFFD,
+0xD3AD,
+0xD3A4,
+0xAFED,
+0xD3B3,
+0xD374,
+0,
+0xD3AC,
+0,
+0xAFFC,
+0xAFF7,
+0xD373,
+0xAFF5,
+0xAFF4,
+0xAFF9,
+0xD3AB,
+0xAFF1,
+0xAFF8,
+0xD072,
+0xDB5C,
+0xD3A6,
+0,
+0,
+0xD37A,
+0xAFFB,
+0xD37B,
+0xD3A1,
+0xAFFE,
+0xD375,
+0xD3AF,
+0,
+0xD3AE,
+0xD3B6,
+0xAFF3,
+0xAFF0,
+0xD3B4,
+0xD3B0,
+0xD3A7,
+0xD3A2,
+0xAFF6,
+0xAFF2,
+0xD377,
+0xAFEE,
+0xD3B1,
+0xAFEF,
+0,
+0xD379,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD75E,
+0xD760,
+0xD765,
+0xD779,
+0xB2FC,
+0xB2F2,
+0,
+0xD75D,
+0xB2FD,
+0xB2FE,
+0xD768,
+0xD76F,
+0xD775,
+0,
+0xD762,
+0,
+0xD769,
+0,
+0,
+0xB340,
+0xD777,
+0xD772,
+0xB2FA,
+0xB2F8,
+0xD76E,
+0xD76A,
+0xD75C,
+0xB2EF,
+0xD761,
+0xD759,
+0,
+0xB2F7,
+0xB2F9,
+0xD766,
+0xD763,
+0xB2F4,
+0xD773,
+0xB2F1,
+0xD764,
+0xD77A,
+0xD76C,
+0,
+0xD76B,
+0xB2F0,
+0,
+0xB2FB,
+0,
+0xB2F3,
+0xD75A,
+0xD75F,
+0xD770,
+0xD776,
+0xB341,
+0xD75B,
+0xD767,
+0xD76D,
+0xB2F6,
+0,
+0,
+0xD778,
+0xD771,
+0xD774,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB2F5,
+0,
+0xDB6C,
+0xDB60,
+0xB5D7,
+0xDB7D,
+0xDBA7,
+0xDBAA,
+0xB5D5,
+0xDB68,
+0xDBA3,
+0xDB69,
+0xDB77,
+0xB5E2,
+0xDB73,
+0xB5DF,
+0,
+0xDB74,
+0xDB5D,
+0,
+0xDBA4,
+0,
+0,
+0xB5E8,
+0xDBA1,
+0xDB75,
+0xDBAC,
+0xDB70,
+0xDFC8,
+0,
+0xDBAF,
+0xB5E6,
+0xDB6E,
+0xDB7A,
+0xB5E9,
+0xB5D4,
+0xDB72,
+0xDBAD,
+0xDB6B,
+0xDB64,
+0xDB6F,
+0,
+0xDB63,
+0xDB61,
+0xB5D0,
+0xDBA5,
+0xDB6A,
+0xDBA8,
+0,
+0xDBA9,
+0xB5D8,
+0xB5DD,
+0xB5D9,
+0xB5E1,
+0xDB7E,
+0xB5DA,
+0xDB76,
+0xDB66,
+0,
+0xB5D2,
+0xDB5E,
+0xDBA2,
+0xDBAB,
+0xDB65,
+0xB5E0,
+0xDBB0,
+0xDB71,
+0,
+0xDB6D,
+0,
+0xB5D1,
+0xB5E5,
+0,
+0xDB7C,
+0xB5E7,
+0,
+0xDB78,
+0xB5DC,
+0xB5D6,
+0xB5DE,
+0xB5D3,
+0xB5E4,
+0xDB79,
+0xDB67,
+0xDB7B,
+0xDB62,
+0xDBA6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBAE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDB5F,
+0,
+0,
+0,
+0,
+0,
+0xDFC7,
+0,
+0xDFDD,
+0xB855,
+0xDFCC,
+0,
+0xDFCA,
+0xDFB5,
+0xB8A9,
+0xDFC5,
+0xDFD9,
+0xDFC1,
+0xB8B1,
+0xDFD8,
+0xDFBF,
+0xB5E3,
+0xDFCF,
+0xDFC0,
+0xDFD6,
+0xB8B0,
+0xB8A8,
+0,
+0xDFAA,
+0xDFB2,
+0,
+0xDFCB,
+0xDFC3,
+0xDFDC,
+0xDFC6,
+0xB8B6,
+0xDFD7,
+0,
+0xB8AD,
+0,
+0xDFC9,
+0xDFD1,
+0xDFB6,
+0xDFD0,
+0,
+0xDFE1,
+0xDFB1,
+0xDFD2,
+0,
+0xDFDF,
+0,
+0xDFAB,
+0xB5DB,
+0,
+0xDFB9,
+0xDFB8,
+0xB8AF,
+0,
+0xDFBC,
+0xDFBE,
+0xDFCD,
+0xDFDE,
+0xB8B2,
+0,
+0xB8B3,
+0,
+0xDFB0,
+0xB8AB,
+0xDFB4,
+0xDFDA,
+0xB8B4,
+0,
+0xB8AC,
+0xB8AE,
+0xB8B5,
+0xDFE0,
+0xDFD3,
+0xDFCE,
+0,
+0,
+0xDFBB,
+0xDFBA,
+0xB8AA,
+0xDFAC,
+0xB8A7,
+0xDFC4,
+0xDFAD,
+0xDFC2,
+0,
+0,
+0xDFB7,
+0xDFDB,
+0,
+0,
+0,
+0xB8A6,
+0,
+0,
+0,
+0xDFB3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFAF,
+0xDFD5,
+0xDFAE,
+0xBB60,
+0xE3D3,
+0,
+0,
+0xE3C2,
+0,
+0,
+0xE3AC,
+0xE3CA,
+0xBB58,
+0xE3BB,
+0xE3C5,
+0xBB5B,
+0xE3BE,
+0xBB59,
+0xE3AF,
+0xE3CD,
+0xE3AE,
+0xE3C1,
+0,
+0xE3AD,
+0,
+0,
+0xE3BF,
+0xE3C8,
+0xE3C6,
+0xE3BA,
+0xE3B5,
+0xE3B3,
+0,
+0xE3B4,
+0xE3C7,
+0xE3D2,
+0xE3BC,
+0xBB5A,
+0,
+0xE3B7,
+0,
+0xE3CB,
+0,
+0xBB5D,
+0xE3B6,
+0xE3B0,
+0xE3C0,
+0xBB61,
+0,
+0,
+0xBB55,
+0xBB5E,
+0xE3B8,
+0xE3B2,
+0,
+0xBB57,
+0xDFD4,
+0xBB56,
+0xE3C3,
+0,
+0xBB54,
+0xBB63,
+0xBB5C,
+0xE3C4,
+0xE3B9,
+0xE3B1,
+0xE3CC,
+0xE3BD,
+0xBB62,
+0xE3D0,
+0xBB5F,
+0xE3CF,
+0,
+0xE3C9,
+0xE3CE,
+0,
+0,
+0,
+0xE3D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE773,
+0xE774,
+0xE767,
+0xE766,
+0xE762,
+0xBDB4,
+0,
+0xBDAC,
+0xE776,
+0xE775,
+0xDFA9,
+0xE75F,
+0xE763,
+0xE75D,
+0,
+0xE770,
+0xE761,
+0,
+0xE777,
+0xE75A,
+0xE758,
+0xE764,
+0xE76E,
+0xE769,
+0xBDB6,
+0xE74F,
+0,
+0xE76D,
+0,
+0,
+0,
+0xBDB7,
+0xDFBD,
+0xE75B,
+0xE752,
+0xE755,
+0xE77B,
+0xE75C,
+0xE753,
+0xE751,
+0xE74E,
+0,
+0xBDB0,
+0xE765,
+0xBDAF,
+0xBDB3,
+0xE760,
+0xE768,
+0xBDA9,
+0xE778,
+0xE77C,
+0xBDAB,
+0,
+0xE757,
+0xE76B,
+0xE76F,
+0xE754,
+0xE779,
+0xBDB2,
+0,
+0xBDB1,
+0xE74C,
+0xBDB5,
+0xE772,
+0xE756,
+0xE76A,
+0xE750,
+0xE75E,
+0xE759,
+0xBDAD,
+0xBDAE,
+0xE76C,
+0xE77D,
+0xE77A,
+0xE771,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE74D,
+0,
+0xBDAA,
+0xEB49,
+0,
+0xEB40,
+0xEB43,
+0,
+0xBFBB,
+0xEB45,
+0xEAF9,
+0xEB41,
+0xEB47,
+0xBFB8,
+0xBFBC,
+0xBFB6,
+0,
+0,
+0xEAFB,
+0xEB4C,
+0,
+0,
+0xEB46,
+0,
+0xEAFC,
+0xEB55,
+0xEB4F,
+0xEAF8,
+0xEE46,
+0xEAFE,
+0xBFB7,
+0,
+0xEB4A,
+0,
+0xEB54,
+0xBFBF,
+0,
+0xEB51,
+0xEAFD,
+0xEB44,
+0xEB48,
+0xEB42,
+0xEB56,
+0xEB53,
+0xEB50,
+0xBFB9,
+0xBFBA,
+0xBFBE,
+0xEAFA,
+0xEB57,
+0xBFBD,
+0xEB4D,
+0,
+0,
+0xEB4B,
+0,
+0,
+0,
+0xEB4E,
+0xEE53,
+0xEE40,
+0xEE45,
+0xEE52,
+0xEE44,
+0xEDFB,
+0xEE41,
+0,
+0xC1A2,
+0,
+0xEDF4,
+0xEE4D,
+0xEE4F,
+0xEDF3,
+0xC1A1,
+0xEE51,
+0xEE49,
+0xC1A8,
+0xEE50,
+0xEE42,
+0xC1AA,
+0xEDF9,
+0xEB52,
+0xEE4A,
+0xEE47,
+0xEDF5,
+0xEE55,
+0xC1A4,
+0,
+0,
+0xC1A5,
+0xEDF7,
+0xEE48,
+0,
+0xEE54,
+0xEE4B,
+0xEDFD,
+0xC1A7,
+0xC1A3,
+0xEE4C,
+0xEDFE,
+0xEE56,
+0xEDF8,
+0xEE43,
+0xEE4E,
+0xEDFA,
+0xEDFC,
+0,
+0xC2CB,
+0xEDF6,
+0xC1A9,
+0xC2C4,
+0xC17E,
+0,
+0,
+0,
+0,
+0xC1A6,
+0xC2C8,
+0xF0B3,
+0,
+0xF0A9,
+0xF0A4,
+0xF0AA,
+0xF0B4,
+0xF0B8,
+0xF0B7,
+0xC2CA,
+0xC2C9,
+0,
+0,
+0xF0AB,
+0xF0B9,
+0xF0AE,
+0xF0A6,
+0,
+0xF0A8,
+0xF0A7,
+0xF0AD,
+0xF0B2,
+0xF0A5,
+0xF0AC,
+0xF0B1,
+0xC2C7,
+0,
+0xF0AF,
+0,
+0xC2C5,
+0xF0B0,
+0xC2C3,
+0xC2C6,
+0xF2D5,
+0xF0B5,
+0,
+0,
+0xC3C2,
+0,
+0xF2CD,
+0xF2D1,
+0xF2C9,
+0xF2CC,
+0,
+0xF2D4,
+0xC3C0,
+0xF2D9,
+0xF2D2,
+0,
+0xF2CA,
+0xF2DA,
+0xF2D3,
+0xC3C3,
+0xC3C4,
+0xF2D7,
+0,
+0xF2CB,
+0xC3BF,
+0xC3C1,
+0xF2C6,
+0xF2CE,
+0xF2C8,
+0,
+0xF2D8,
+0xF2D6,
+0xF2C7,
+0xF2CF,
+0,
+0,
+0,
+0xF4BE,
+0xC3C5,
+0xF2D0,
+0xC4A7,
+0xC4A9,
+0xC4A6,
+0,
+0xF4C3,
+0xF4BB,
+0xF4B9,
+0xF4BD,
+0xF4BA,
+0,
+0,
+0xF4BF,
+0xF4C1,
+0xC4AA,
+0xC4AC,
+0,
+0xF4C0,
+0xC4AD,
+0xC4AB,
+0xF4C2,
+0,
+0,
+0,
+0,
+0xC4A8,
+0,
+0,
+0,
+0,
+0,
+0xC4F4,
+0xF5F1,
+0xF5F7,
+0xC4F6,
+0xF4BC,
+0xF5F6,
+0,
+0xF5FD,
+0xF5F4,
+0xF5FB,
+0xF5FA,
+0xF4B8,
+0xF5F5,
+0xF0B6,
+0xF5FE,
+0xF5F3,
+0xF5F8,
+0,
+0xF5FC,
+0xF5F2,
+0,
+0xF74A,
+0xC4F5,
+0xF5F9,
+0,
+0,
+0xF7F4,
+0xF74B,
+0xF749,
+0xF747,
+0xF748,
+0xF74C,
+0,
+0xC5D9,
+0xF7F2,
+0xF7F0,
+0xF7F5,
+0xF7F3,
+0,
+0xF7F6,
+0xC5DA,
+0xF7F1,
+0,
+0,
+0xF8BC,
+0,
+0,
+0xF945,
+0xF946,
+0xF947,
+0,
+0,
+0xF9C7,
+0xF9BD,
+0xCA4F,
+0xAAEA,
+0,
+0xAD68,
+0,
+0xD3B8,
+0xD3B7,
+0xB040,
+0xB342,
+0xD77C,
+0,
+0,
+0xD77B,
+0,
+0xB5EA,
+0xB8B8,
+0,
+0xB8B7,
+0xB8B9,
+0,
+0xE3D4,
+0xE77E,
+0xEB58,
+0xEB5A,
+0xEB59,
+0,
+0xC1AB,
+0xEE57,
+0xF0BA,
+0xF9A5,
+0xA6E4,
+0,
+0xCDC9,
+0xCDCA,
+0xCDC8,
+0xCDC7,
+0xAAEB,
+0,
+0xD0A9,
+0xD0A7,
+0,
+0,
+0xD0A6,
+0,
+0xAD69,
+0xAD6B,
+0xAD6A,
+0xD0A8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3C4,
+0xD3C1,
+0xD3BF,
+0,
+0,
+0xB041,
+0xD3C2,
+0xB046,
+0xD3BC,
+0xD3CB,
+0,
+0xD3CD,
+0xD3BD,
+0,
+0xB043,
+0xD3CE,
+0xD3C9,
+0xD3BB,
+0xD3C0,
+0xD3CA,
+0xD3C6,
+0xD3C3,
+0,
+0xB048,
+0xD3CC,
+0xD3BE,
+0,
+0,
+0xD3C7,
+0xD3B9,
+0xB047,
+0xB044,
+0xD3C5,
+0,
+0xD3C8,
+0xD3BA,
+0xB045,
+0xB042,
+0,
+0,
+0,
+0,
+0xB34C,
+0xD7A5,
+0xB34B,
+0,
+0xD7A8,
+0xD7AB,
+0xB348,
+0xB346,
+0xD77E,
+0xD7A9,
+0xD7A7,
+0xD7A4,
+0xD7AC,
+0xD7AD,
+0xD7AF,
+0xD7B0,
+0xD77D,
+0xB345,
+0xD7A2,
+0xD7A1,
+0xD7AE,
+0xB347,
+0xD7A3,
+0xB349,
+0xB344,
+0xD7A6,
+0xB34D,
+0,
+0xB34A,
+0xD7AA,
+0,
+0,
+0,
+0xB5F1,
+0xDBBF,
+0,
+0xDBB4,
+0xB5EE,
+0,
+0xDFE7,
+0xDBBD,
+0xDBB1,
+0xB5EC,
+0xDBB6,
+0xB5EF,
+0xDBBA,
+0xDBB8,
+0xB5F2,
+0xB5EB,
+0,
+0,
+0xDBB2,
+0xDBB5,
+0xB5F0,
+0,
+0xDBB3,
+0,
+0xDBBE,
+0xDBBC,
+0xDBB7,
+0xDBB9,
+0xDBBB,
+0xB5ED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFE8,
+0xDFEE,
+0xDFE4,
+0xDFEA,
+0xB8BA,
+0xDFE6,
+0xB8C0,
+0,
+0,
+0xB8BF,
+0,
+0xB8BE,
+0xDFED,
+0xB8C1,
+0xB8C2,
+0xDFE3,
+0xDFF0,
+0xB8C3,
+0xB8BD,
+0xB8BC,
+0xDFEC,
+0xB8C4,
+0xDFE2,
+0xDFE5,
+0xDFEF,
+0xDFEB,
+0,
+0,
+0xE3F4,
+0xE3E9,
+0xB8BB,
+0,
+0,
+0,
+0,
+0xBB6A,
+0xE3DD,
+0xE3F2,
+0xE3DE,
+0xBB65,
+0,
+0xE3DB,
+0,
+0xE3E4,
+0xE3DC,
+0xBB67,
+0xE3D6,
+0xE3F1,
+0xBB68,
+0xE3EE,
+0xE3EF,
+0xE3D7,
+0xBB6D,
+0xE3E6,
+0,
+0xE3E0,
+0xE3E7,
+0xE3DA,
+0,
+0xE3F3,
+0xE3EB,
+0xE3E5,
+0xE3D5,
+0xBB69,
+0xE3EC,
+0,
+0xBB6C,
+0xE3F0,
+0,
+0xE3EA,
+0xBB66,
+0xE3E8,
+0,
+0xE3E2,
+0xBB64,
+0xE3D9,
+0xE3E1,
+0xE3ED,
+0xE3DF,
+0,
+0,
+0xE3E3,
+0,
+0,
+0,
+0,
+0,
+0xBDC1,
+0xDFE9,
+0xE7B2,
+0xE7BB,
+0xE7B1,
+0xE7AD,
+0xE7AA,
+0xBDC2,
+0xE7A8,
+0xBB6B,
+0xE7A1,
+0xBDC0,
+0xE7A7,
+0xBDBF,
+0xE7AC,
+0xE7A9,
+0xE7B9,
+0xE7B4,
+0xE7AE,
+0xE7B3,
+0xBDBB,
+0xE7AB,
+0xE7BE,
+0xE7A2,
+0xE7A3,
+0xE7BA,
+0xBDBC,
+0xE7BF,
+0xBDBE,
+0xE7C0,
+0xE7B0,
+0xE3D8,
+0xE7B6,
+0xE7AF,
+0xE7B8,
+0xE7B5,
+0,
+0,
+0,
+0xE7A6,
+0xBDB9,
+0xE7BD,
+0xBDBA,
+0xE7A4,
+0xBDBD,
+0xEB64,
+0xE7B7,
+0xE7BC,
+0,
+0,
+0,
+0,
+0,
+0xEB61,
+0xBDB8,
+0xBFC0,
+0xEB6B,
+0xEB67,
+0,
+0xEB65,
+0xEB60,
+0xEB6F,
+0,
+0,
+0,
+0xBFC4,
+0,
+0xEB5C,
+0xEB68,
+0xEB69,
+0xEB5F,
+0xEB5E,
+0xEB6C,
+0,
+0xEB62,
+0xEB5D,
+0xEB63,
+0,
+0xEB6E,
+0xEB5B,
+0xEB6D,
+0xEB6A,
+0xBFC2,
+0xBFC1,
+0,
+0,
+0xBFC3,
+0xEB66,
+0xF0CB,
+0,
+0,
+0,
+0,
+0,
+0xEE59,
+0xC1B1,
+0xEE5D,
+0xEE5A,
+0xEE61,
+0xEE67,
+0xEE5C,
+0,
+0xEE70,
+0xC1AE,
+0xEE6A,
+0xEE5F,
+0xEE6B,
+0xEE66,
+0xEE6D,
+0xEE5E,
+0xC1B3,
+0xC1B2,
+0xEE60,
+0xEE6E,
+0xEE58,
+0xEE6C,
+0xC1AC,
+0,
+0xEE64,
+0xEE63,
+0xEE68,
+0xEE5B,
+0xC1B0,
+0,
+0xC1B4,
+0xEE62,
+0xEE69,
+0xC1B5,
+0xEE65,
+0,
+0,
+0,
+0,
+0xC1AD,
+0xC1AF,
+0xF0C7,
+0xF0C5,
+0,
+0,
+0xF0CC,
+0xF0C9,
+0xF0CD,
+0,
+0xF0BE,
+0xF0C6,
+0xF0D1,
+0xEE6F,
+0xF0C2,
+0xC2CF,
+0xE7A5,
+0xF0BD,
+0xF0CA,
+0xF0C4,
+0xF0C1,
+0xF0BC,
+0xF0BB,
+0xF0D0,
+0,
+0xF0C0,
+0xF0BF,
+0xC2CD,
+0xF0C8,
+0,
+0xC2CC,
+0,
+0,
+0xC2CE,
+0xF0C3,
+0xF0CF,
+0,
+0xF2DE,
+0xF2DF,
+0,
+0xC3C9,
+0xF2DC,
+0xC3C6,
+0xF2E4,
+0,
+0xC3CA,
+0xF2E6,
+0xF2DB,
+0xF0CE,
+0xF2E8,
+0xF2DD,
+0,
+0xC3C7,
+0xF2E3,
+0,
+0xF2E5,
+0xF2E0,
+0xF2E7,
+0xF2E2,
+0xF2E1,
+0xC3C8,
+0,
+0,
+0xF4C5,
+0xF4C6,
+0,
+0xF4C8,
+0xC4AE,
+0xC4AF,
+0xF4C9,
+0xF4C7,
+0,
+0xF4C4,
+0,
+0xF642,
+0xF645,
+0xF641,
+0,
+0xC4FA,
+0xF643,
+0xC4F9,
+0xC4F8,
+0xC4F7,
+0xF644,
+0xF751,
+0xF74F,
+0,
+0xF74E,
+0xF640,
+0xF750,
+0xF646,
+0xF74D,
+0,
+0xF7F9,
+0xF7D7,
+0xF7F7,
+0xC5DB,
+0xF7F8,
+0xF7FA,
+0,
+0xF8BF,
+0xC5FA,
+0xF8BE,
+0xF8BD,
+0xC5FB,
+0,
+0xC65A,
+0xF96E,
+0xF9A7,
+0xF9A6,
+0xF9A8,
+0xA6E5,
+0xD0AA,
+0,
+0xD3CF,
+0xD3D0,
+0,
+0,
+0,
+0xDBC0,
+0,
+0xF647,
+0xF8C0,
+0xA6E6,
+0xAD6C,
+0xD0AB,
+0,
+0,
+0,
+0xD7B1,
+0xB34E,
+0,
+0xDBC2,
+0xDBC1,
+0xB5F3,
+0,
+0xB8C5,
+0xE7C1,
+0xBDC3,
+0,
+0xBDC4,
+0,
+0,
+0,
+0xBFC5,
+0xC5FC,
+0xA6E7,
+0,
+0,
+0,
+0xD0AC,
+0xAAED,
+0xD0AE,
+0xD0AD,
+0xAD6D,
+0,
+0xD3D1,
+0,
+0xD3D8,
+0xB049,
+0xD3D6,
+0xD3D4,
+0,
+0xD3DB,
+0xD3D2,
+0xD3D3,
+0xB04A,
+0,
+0xB04E,
+0,
+0,
+0xD3DC,
+0xB04D,
+0xD3DA,
+0xD3D7,
+0xD3D5,
+0xB04B,
+0xB04C,
+0xD3D9,
+0,
+0,
+0,
+0,
+0xB350,
+0xD7B2,
+0,
+0xB355,
+0xD7C2,
+0xB354,
+0xD7C4,
+0,
+0,
+0xD7B8,
+0xB352,
+0xD7C3,
+0,
+0xD7B3,
+0xB353,
+0xD7BF,
+0xD7BB,
+0xD7BD,
+0xD7B7,
+0xD7BE,
+0,
+0,
+0xB34F,
+0xD7BA,
+0,
+0xD7B9,
+0xD7B5,
+0,
+0xD7C0,
+0,
+0,
+0xD7BC,
+0xD7B4,
+0,
+0xD7B6,
+0xB351,
+0xD7C1,
+0,
+0,
+0,
+0,
+0xB5F6,
+0xDBCD,
+0,
+0,
+0,
+0xDBC9,
+0xDBCB,
+0xDBC6,
+0xDBC5,
+0xDBC3,
+0,
+0xDBCA,
+0xDBCC,
+0xDBC8,
+0,
+0xDBC7,
+0xB5F4,
+0xB5F5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBCF,
+0xB8CD,
+0xDFF2,
+0xDFF8,
+0xDFF3,
+0xDFF4,
+0,
+0xDFF9,
+0,
+0xB8CF,
+0,
+0xB8C7,
+0xB8CE,
+0xDFF1,
+0xDBC4,
+0xB8CA,
+0xB8C8,
+0xDFF7,
+0xDFF6,
+0xB8C9,
+0xB8CB,
+0xDFF5,
+0xB8C6,
+0,
+0xB8CC,
+0,
+0,
+0,
+0,
+0,
+0xE3F6,
+0xBB74,
+0,
+0,
+0xE442,
+0xE441,
+0,
+0xE3FB,
+0xBB76,
+0xE440,
+0xE3F7,
+0xE3F8,
+0xBB6E,
+0xBB70,
+0,
+0xE3FD,
+0xE3F5,
+0xBB72,
+0xBB71,
+0xE3F9,
+0xE3FE,
+0xE3FC,
+0xBB73,
+0xE3FA,
+0,
+0,
+0xDBCE,
+0xBB6F,
+0,
+0,
+0xE7C2,
+0xE7C9,
+0xBDC6,
+0,
+0xE7CD,
+0xBDCA,
+0xE7C5,
+0xE7C3,
+0,
+0xE7CC,
+0,
+0xBDC5,
+0xE7CB,
+0xBDC7,
+0xBDC8,
+0xE7C4,
+0xBDC9,
+0xE7CA,
+0xE7C6,
+0xE7C7,
+0xE7C8,
+0xBB75,
+0,
+0,
+0,
+0xEB70,
+0xEB7C,
+0,
+0xBFCA,
+0xEB77,
+0xEB79,
+0,
+0xBFC8,
+0xEB71,
+0xEB75,
+0,
+0xEB78,
+0xBFC6,
+0xBFC9,
+0xEB7B,
+0xEB73,
+0xEB74,
+0xEB7A,
+0xEB72,
+0xEB76,
+0xBFC7,
+0xEE72,
+0,
+0xEE71,
+0xC1B7,
+0xEE77,
+0xC1B9,
+0,
+0,
+0xC1B6,
+0xEE73,
+0xC1BA,
+0xEE74,
+0,
+0,
+0xEE75,
+0xEE78,
+0,
+0xC1B8,
+0,
+0xF0D6,
+0,
+0,
+0xF0D9,
+0,
+0xF0D3,
+0xF0D5,
+0,
+0,
+0xF0D4,
+0xF0D7,
+0xF0D8,
+0xEE76,
+0xF0D2,
+0,
+0,
+0xC3CD,
+0xF2EC,
+0xF2EF,
+0xF2F1,
+0xF2EA,
+0xF2EB,
+0xF2EE,
+0xF2F0,
+0xC3CE,
+0xC3CC,
+0xC3CB,
+0xF2ED,
+0xF2E9,
+0xF4CA,
+0xC4B0,
+0,
+0xF4CB,
+0,
+0,
+0xF649,
+0xC4FB,
+0xF64B,
+0xC4FC,
+0xF648,
+0xF64A,
+0xC5A8,
+0,
+0xF752,
+0xC5A7,
+0xF7FD,
+0xF7FC,
+0,
+0xF7FB,
+0,
+0,
+0xF948,
+0xF949,
+0xF94B,
+0xF94A,
+0,
+0xCA50,
+0xA6E8,
+0,
+0xAD6E,
+0xD7C5,
+0xB5F7,
+0,
+0xDFFA,
+0xC2D0,
+0,
+0xF2F2,
+0,
+0,
+0xA8A3,
+0,
+0,
+0,
+0xB357,
+0,
+0,
+0,
+0xB356,
+0,
+0xDBD0,
+0xB5F8,
+0xDBD2,
+0xDBD1,
+0,
+0,
+0xDFFB,
+0xB8D0,
+0xE443,
+0xE446,
+0xE445,
+0,
+0xE444,
+0xE7CE,
+0xE7D0,
+0xE7CF,
+0,
+0xBFCC,
+0,
+0,
+0,
+0xBFCB,
+0,
+0xC1BB,
+0xEE79,
+0xEE7B,
+0xEE7A,
+0,
+0,
+0xC2D1,
+0,
+0,
+0,
+0xF2F4,
+0xF2F3,
+0,
+0xF4CC,
+0xC4B1,
+0,
+0,
+0xC4FD,
+0xF754,
+0xF753,
+0xC65B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8A4,
+0xD0AF,
+0xAD6F,
+0xD7C8,
+0xD7C6,
+0,
+0,
+0xD7C7,
+0xDBD4,
+0xDBD5,
+0xE043,
+0xDBD3,
+0,
+0xDFFC,
+0xE041,
+0xE040,
+0xE042,
+0xB8D1,
+0xDFFE,
+0xDFFD,
+0xE044,
+0,
+0xE449,
+0xE447,
+0,
+0xE448,
+0xE7D3,
+0xE7D1,
+0,
+0,
+0xE7D2,
+0xEB7D,
+0xEE7C,
+0xEE7D,
+0xC2D2,
+0,
+0xF2F5,
+0xF4CD,
+0xC4B2,
+0,
+0xF64C,
+0xF755,
+0xC5A9,
+0,
+0xF7FE,
+0xF94C,
+0xA8A5,
+0,
+0xAD71,
+0xAD72,
+0xD0B0,
+0,
+0,
+0xD0B1,
+0xAD70,
+0,
+0xB054,
+0,
+0xB052,
+0,
+0xB051,
+0xB058,
+0xB050,
+0xB059,
+0xD3DD,
+0xB056,
+0,
+0xB053,
+0xB057,
+0xB055,
+0xB04F,
+0,
+0,
+0xB35F,
+0,
+0xB359,
+0xD7CC,
+0xB35E,
+0,
+0,
+0xB360,
+0xB35A,
+0,
+0xB35B,
+0,
+0xD7CA,
+0,
+0,
+0xB358,
+0,
+0xD7CB,
+0xB35D,
+0,
+0,
+0xD7C9,
+0xB35C,
+0,
+0,
+0xB644,
+0,
+0xB646,
+0,
+0,
+0xDBD8,
+0xB645,
+0xB5F9,
+0xB5FD,
+0,
+0xB8E4,
+0xE049,
+0xDBDA,
+0xB5FE,
+0,
+0,
+0xDBDD,
+0xDBDE,
+0xB643,
+0,
+0xDBE0,
+0,
+0xDBE2,
+0,
+0xDBE3,
+0xDBD7,
+0xDBD6,
+0xDBE4,
+0xB642,
+0xDBE1,
+0xDBDF,
+0,
+0xB640,
+0xB5FB,
+0xB647,
+0xDBDB,
+0xDBDC,
+0xDBD9,
+0,
+0xB641,
+0,
+0,
+0xB5FC,
+0,
+0xB5FA,
+0xE048,
+0xB8DF,
+0xB8DA,
+0,
+0,
+0xB8D5,
+0,
+0xB8E5,
+0xB8D6,
+0,
+0xB8D2,
+0xB8E1,
+0xB8DE,
+0xB8E0,
+0,
+0xB8D7,
+0xB8DC,
+0xB8D3,
+0xB8D4,
+0xE050,
+0xE04D,
+0xE045,
+0xE04A,
+0,
+0xB8E2,
+0xE051,
+0xB8E3,
+0xB8D9,
+0,
+0,
+0xE047,
+0,
+0xE04F,
+0xE04B,
+0xE04E,
+0xE04C,
+0xB8DD,
+0xE046,
+0xB8D8,
+0,
+0,
+0,
+0xE44C,
+0xBB78,
+0xBB7B,
+0,
+0xE44E,
+0,
+0xBBA5,
+0xE44D,
+0xBB7D,
+0,
+0xBDCF,
+0xE44F,
+0,
+0xBBA4,
+0xE44B,
+0xBBA6,
+0,
+0,
+0,
+0xBB79,
+0,
+0xB8DB,
+0xBB7C,
+0,
+0xBB7A,
+0xBB7E,
+0xBBA2,
+0xBB77,
+0xBBA7,
+0xBBA3,
+0,
+0xBBA1,
+0xE44A,
+0,
+0,
+0,
+0,
+0xBDD6,
+0,
+0xBDD2,
+0,
+0,
+0,
+0xBDD9,
+0,
+0xE7D6,
+0xBDDA,
+0xE7E2,
+0xE7DB,
+0xBDCB,
+0xE7E3,
+0xE7DD,
+0xBDD5,
+0xE7DE,
+0,
+0xBDD4,
+0xE7E1,
+0xBDCE,
+0xE7DF,
+0xE7D5,
+0xBDCD,
+0xEBAA,
+0xBDD3,
+0,
+0xBDD0,
+0,
+0xBDD8,
+0,
+0xE7D4,
+0,
+0xE7D8,
+0xBDCC,
+0xE7D7,
+0xE7D9,
+0xE7DA,
+0xBDD7,
+0xE7DC,
+0xE7E0,
+0xE7E4,
+0,
+0xBDDB,
+0xBFD2,
+0xEBA5,
+0xEBAB,
+0xEBA8,
+0xEB7E,
+0xEBAC,
+0xEBA1,
+0,
+0xEBA7,
+0,
+0xBFCD,
+0xBFD3,
+0xEBAD,
+0,
+0,
+0xBFCF,
+0,
+0xBFD9,
+0xBFD4,
+0xEBAF,
+0xEBA9,
+0xBFD0,
+0xEBA2,
+0xBFDA,
+0xEBA3,
+0xEBA4,
+0xBFDB,
+0xBFD8,
+0xBDD1,
+0,
+0xBFCE,
+0xEBB0,
+0xBFDC,
+0,
+0xBFD5,
+0xEBAE,
+0xBFD1,
+0xBFD6,
+0xBFD7,
+0,
+0xC1C3,
+0xEEA4,
+0xEEAD,
+0xEEAA,
+0xEEAC,
+0,
+0xC1C0,
+0xEEA5,
+0,
+0xEEAB,
+0xC1BC,
+0xEEA7,
+0xC1C4,
+0xEEA3,
+0xEEA8,
+0xEEAF,
+0xEBA6,
+0xEEA9,
+0xEEA2,
+0xC1BD,
+0xEEA1,
+0xC1BE,
+0xEEB0,
+0xC1BF,
+0xEEAE,
+0xC1C2,
+0xEE7E,
+0,
+0xC1C1,
+0,
+0xEEA6,
+0xF0DC,
+0xF0EA,
+0xF0E5,
+0xF0E7,
+0xF0DB,
+0xC2D3,
+0,
+0xF0DA,
+0xC2D6,
+0xC2D5,
+0,
+0xF0E9,
+0xF0E1,
+0xF0DE,
+0xF0E4,
+0,
+0xF0DD,
+0,
+0xF0DF,
+0xF0E8,
+0xF0E6,
+0,
+0xC2D4,
+0xF0ED,
+0xF0EB,
+0xF0E2,
+0xF0EC,
+0xF0E3,
+0,
+0xF2F9,
+0xC3CF,
+0xF341,
+0,
+0,
+0xF64F,
+0xC3D6,
+0xF0E0,
+0xF2F7,
+0xC3D2,
+0xF2F8,
+0xF2FD,
+0,
+0,
+0xC3D4,
+0xC3D5,
+0xF2F6,
+0xF340,
+0xF342,
+0xF2FA,
+0xF2FC,
+0xF2FE,
+0xF2FB,
+0xF343,
+0xC3D1,
+0xC3D7,
+0xC3D3,
+0,
+0xC3D0,
+0xF4D0,
+0,
+0xC4B7,
+0xF4CE,
+0,
+0,
+0xF4D2,
+0,
+0xF4D3,
+0xC4B5,
+0xF4D4,
+0xF4D1,
+0,
+0xF4CF,
+0xC4B8,
+0xC4B4,
+0xF4D5,
+0,
+0xC4B6,
+0xC4B3,
+0,
+0,
+0,
+0xC4FE,
+0,
+0,
+0xC540,
+0xF64E,
+0xF64D,
+0xF650,
+0xF651,
+0,
+0xC541,
+0xF756,
+0xF75B,
+0xC5AA,
+0,
+0xF758,
+0,
+0xF757,
+0xF75A,
+0xF759,
+0,
+0xF843,
+0,
+0xC5DC,
+0xF842,
+0xF840,
+0,
+0xF841,
+0,
+0,
+0,
+0xC5FE,
+0xC5FD,
+0xF8C1,
+0xF8C2,
+0xC640,
+0,
+0xF94D,
+0xF94E,
+0xC667,
+0,
+0xC66D,
+0,
+0xF9A9,
+0xF9C8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8A6,
+0,
+0xD7CD,
+0,
+0xD7CE,
+0xE052,
+0xE450,
+0xE7E5,
+0xC1C6,
+0,
+0xC1C5,
+0xF0EE,
+0xF344,
+0,
+0xF844,
+0xA8A7,
+0xD3DE,
+0xB05A,
+0xB361,
+0xE054,
+0xE053,
+0xBDDC,
+0xE7E6,
+0xBDDD,
+0xEEB1,
+0xC2D7,
+0,
+0,
+0,
+0xC676,
+0xA8A8,
+0xCDCB,
+0xD3DF,
+0,
+0,
+0xB362,
+0,
+0xD7CF,
+0xD7D0,
+0,
+0xDBE5,
+0,
+0xB648,
+0xB8E6,
+0,
+0xE056,
+0xE055,
+0xE057,
+0,
+0xE451,
+0xE452,
+0xBBA8,
+0xBFDD,
+0xBDDE,
+0xBFDE,
+0,
+0xEEB5,
+0xEEB2,
+0xEEB4,
+0xEEB3,
+0xC1C7,
+0,
+0xF0EF,
+0xF346,
+0xF345,
+0xCBA4,
+0xB05C,
+0xB05B,
+0xD3E0,
+0,
+0xD7D1,
+0,
+0,
+0xDBE7,
+0xDBE6,
+0xB649,
+0,
+0xE059,
+0xE05A,
+0xE058,
+0,
+0,
+0xB8E8,
+0xB8E7,
+0,
+0xBBAA,
+0xBBA9,
+0,
+0xE7E7,
+0xEBB3,
+0xEBB1,
+0xEBB2,
+0xBFDF,
+0xEEB7,
+0xEEB6,
+0,
+0xF0F2,
+0xF0F1,
+0xF0F0,
+0xF347,
+0,
+0xF9AA,
+0xA8A9,
+0xAD73,
+0,
+0xAD74,
+0xB05D,
+0xB05E,
+0xD3E2,
+0xD3E1,
+0xD7D2,
+0,
+0xB368,
+0xB366,
+0xB363,
+0xB367,
+0xB365,
+0xB364,
+0,
+0,
+0xB64A,
+0xDBEA,
+0,
+0xB8ED,
+0xB64C,
+0xB651,
+0xDBEC,
+0xB653,
+0xB652,
+0xB655,
+0xDBEB,
+0xDBE8,
+0xB64F,
+0xB64B,
+0xB64D,
+0xDBE9,
+0xB654,
+0xB650,
+0xB64E,
+0xB8EF,
+0xB8EE,
+0xB8EC,
+0xB8F0,
+0,
+0xB8EA,
+0xB8EB,
+0,
+0xB8E9,
+0,
+0xE05B,
+0,
+0,
+0xE454,
+0,
+0xBBAC,
+0xBBAD,
+0xBBAB,
+0,
+0xE453,
+0,
+0xE455,
+0,
+0xE7EA,
+0xE7EC,
+0,
+0xBDE7,
+0xE7ED,
+0xBDE0,
+0xE7E9,
+0xBDDF,
+0xBDE9,
+0xBDE5,
+0xBDE6,
+0xBDE2,
+0xE7E8,
+0xBDE1,
+0xE7EE,
+0xE7EB,
+0,
+0xBDE8,
+0,
+0xBDE3,
+0xBDE4,
+0xEBB5,
+0,
+0xEBB7,
+0xEBB6,
+0,
+0xEBB8,
+0xBFE0,
+0xEBB4,
+0,
+0,
+0xC1CB,
+0xEEB8,
+0xC1C8,
+0xC1CC,
+0xC1CA,
+0xC1C9,
+0xF0F3,
+0,
+0xF0F6,
+0,
+0xF0F5,
+0,
+0xF0F4,
+0xC2D8,
+0xF348,
+0xF349,
+0xC3D8,
+0xF34A,
+0xC3D9,
+0,
+0,
+0xC4BA,
+0,
+0xC4B9,
+0xF652,
+0,
+0,
+0xC542,
+0xF653,
+0xF75C,
+0xC5AB,
+0xC5AC,
+0,
+0xF845,
+0,
+0xC642,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8AA,
+0,
+0xB36A,
+0xB369,
+0xE05C,
+0xE05D,
+0,
+0xBBAE,
+0xEBB9,
+0xBDEA,
+0xEBBA,
+0xEEB9,
+0xA8AB,
+0,
+0xD0B2,
+0xAD76,
+0xAD75,
+0,
+0xD3E3,
+0xB05F,
+0xD3E4,
+0xD7D5,
+0,
+0xD7D4,
+0,
+0xD7D3,
+0,
+0,
+0xDBEE,
+0xB658,
+0,
+0,
+0xDBED,
+0xB657,
+0,
+0,
+0,
+0xDBEF,
+0xB656,
+0,
+0xE05F,
+0xE062,
+0xE060,
+0xE061,
+0xE065,
+0xE05E,
+0xE066,
+0xE063,
+0xE064,
+0xBBB0,
+0xE456,
+0,
+0,
+0xBBAF,
+0,
+0xE7F2,
+0xE7F0,
+0,
+0,
+0xBDEB,
+0xE7EF,
+0xE7F1,
+0,
+0xBDEC,
+0,
+0xEBBB,
+0,
+0xEBBC,
+0xC1CD,
+0,
+0xF34C,
+0xF34E,
+0xF34B,
+0xF34D,
+0xF4D6,
+0xF654,
+0,
+0,
+0xF96F,
+0xA8AC,
+0xAD77,
+0xD3E5,
+0xD3E7,
+0xD3E6,
+0,
+0xD7D8,
+0xB36C,
+0,
+0xD7D6,
+0,
+0xB36B,
+0xD7D9,
+0,
+0xD7DA,
+0xD7D7,
+0,
+0,
+0xDBFB,
+0xB660,
+0xDBF3,
+0xDBF9,
+0,
+0,
+0xB65B,
+0xB65E,
+0xDBF2,
+0xB659,
+0xDBF6,
+0xE06C,
+0xB65D,
+0,
+0xDBF1,
+0,
+0xDBF7,
+0xDBF4,
+0xDBFA,
+0xDBF0,
+0xDBF8,
+0xB65C,
+0xB65F,
+0xDBF5,
+0xB65A,
+0,
+0xB8F2,
+0xE068,
+0xB8F1,
+0xE06F,
+0xE06E,
+0xB8F8,
+0,
+0xB8F9,
+0xE070,
+0xB8F3,
+0xE06D,
+0xB8F7,
+0xE072,
+0xE069,
+0,
+0xE06B,
+0xB8F4,
+0xE067,
+0xE06A,
+0xE071,
+0xB8F5,
+0xE073,
+0,
+0,
+0,
+0,
+0,
+0xB8F6,
+0,
+0xBBB1,
+0xE45B,
+0xE461,
+0xE459,
+0xE462,
+0,
+0xE458,
+0xE45D,
+0xE463,
+0xE460,
+0xE45F,
+0xE45E,
+0,
+0xE457,
+0xE45C,
+0,
+0,
+0xE45A,
+0,
+0xBDF1,
+0xBDEE,
+0xE7FB,
+0xE841,
+0xE843,
+0xE840,
+0xE7F8,
+0xE7FA,
+0xE845,
+0xE842,
+0xE7FC,
+0xE846,
+0xE7F9,
+0xE844,
+0xBDEF,
+0xBDF5,
+0xBDF3,
+0xE7F3,
+0xBDF4,
+0xBDF0,
+0xE7F4,
+0xE7F6,
+0xE7F5,
+0xE7FD,
+0xE7FE,
+0,
+0xBDF2,
+0,
+0xBDED,
+0,
+0,
+0xE7F7,
+0,
+0xEBC6,
+0xBFE2,
+0,
+0xEBBD,
+0xBFE3,
+0xBFE6,
+0xEBC2,
+0,
+0xEBBF,
+0xBFE5,
+0,
+0,
+0xEBC3,
+0xEBC4,
+0xEBBE,
+0xEBC7,
+0xEBC0,
+0xEBC5,
+0xBFE4,
+0,
+0xBFE1,
+0xEBC1,
+0,
+0xEEBF,
+0xC1D0,
+0xC1CE,
+0xC1D1,
+0xC1CF,
+0xEEBE,
+0xEEBB,
+0xEEBA,
+0,
+0xEEBD,
+0,
+0,
+0xEEBC,
+0xF145,
+0xC2DE,
+0xF0FB,
+0xF0FA,
+0,
+0xC2D9,
+0xF141,
+0xF140,
+0xF0F7,
+0xF143,
+0xF0FC,
+0xC2DD,
+0xF0F9,
+0xF142,
+0xF0F8,
+0xC2DA,
+0xC2DC,
+0xF0FD,
+0xC2DB,
+0xF0FE,
+0,
+0xF144,
+0xF352,
+0,
+0xC3DE,
+0xF34F,
+0,
+0xF353,
+0,
+0,
+0xC3DB,
+0xF351,
+0xC3E0,
+0,
+0xC3DD,
+0,
+0xF350,
+0,
+0xC3DF,
+0xF354,
+0xC3DA,
+0,
+0,
+0,
+0,
+0xC4BC,
+0xC4BE,
+0,
+0xF4D9,
+0xC4BD,
+0xF4D7,
+0xC3DC,
+0xF4D8,
+0xC4BB,
+0xC543,
+0xC545,
+0xF656,
+0xC544,
+0xF655,
+0,
+0xF761,
+0xC5AD,
+0xF760,
+0xC5AE,
+0xF75E,
+0xF75D,
+0xF762,
+0xF763,
+0xF846,
+0,
+0xF75F,
+0,
+0,
+0xF8C6,
+0xF8C3,
+0xF8C4,
+0xF8C5,
+0xC65C,
+0,
+0xF951,
+0xF950,
+0xF94F,
+0xF970,
+0,
+0xF9BE,
+0xF9AB,
+0xC66E,
+0xA8AD,
+0xB060,
+0,
+0,
+0,
+0,
+0,
+0xB8FA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBDF6,
+0,
+0,
+0xEBC8,
+0,
+0,
+0xC2DF,
+0,
+0xF355,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9AC,
+0xA8AE,
+0xAAEE,
+0xAD79,
+0xAD78,
+0,
+0xB063,
+0,
+0xD3E8,
+0xB061,
+0xD3E9,
+0xB062,
+0,
+0,
+0xD7DF,
+0xD7DB,
+0,
+0,
+0xB36D,
+0xD7DE,
+0xD7DD,
+0xD7DC,
+0xB36E,
+0xD7E0,
+0xD7E1,
+0,
+0,
+0,
+0xDC43,
+0xDC41,
+0xDC45,
+0xDC46,
+0xDC4C,
+0,
+0xDC48,
+0xDC4A,
+0,
+0xDC42,
+0xDBFC,
+0,
+0xDC49,
+0,
+0,
+0xDC4B,
+0xDC44,
+0xDC47,
+0xDBFD,
+0xB662,
+0xDC40,
+0xDBFE,
+0xB661,
+0xB663,
+0,
+0xB8FD,
+0xE075,
+0xE077,
+0xE076,
+0xE07B,
+0xB8FB,
+0,
+0xE078,
+0xE074,
+0xE079,
+0xE07A,
+0xB8FC,
+0xB8FE,
+0xE07C,
+0,
+0xE467,
+0xE466,
+0,
+0xE464,
+0xE465,
+0xBBB3,
+0xBBB5,
+0xBBB2,
+0xBBB4,
+0xE84D,
+0xE84E,
+0xE849,
+0,
+0xE84A,
+0xBDF8,
+0xBDFD,
+0xBDF7,
+0xBDFE,
+0xBDF9,
+0xE84B,
+0,
+0,
+0xE84C,
+0xE848,
+0xBE40,
+0xBDFB,
+0,
+0,
+0xBDFA,
+0xBDFC,
+0,
+0xE847,
+0,
+0xEBCA,
+0xBFE8,
+0,
+0,
+0xEBCC,
+0xBFEA,
+0xEBCF,
+0xEBCB,
+0xEBC9,
+0xEBCE,
+0xBFE9,
+0xEBCD,
+0,
+0xBFE7,
+0,
+0,
+0xC1D3,
+0xC1D6,
+0xEEC1,
+0,
+0xC1D4,
+0xEEC0,
+0xC1D2,
+0xC1D5,
+0xF146,
+0xF147,
+0xF148,
+0xC2E0,
+0,
+0xF149,
+0,
+0xC2E1,
+0xC3E2,
+0xF358,
+0xF359,
+0xF357,
+0xF356,
+0xF35A,
+0xC3E1,
+0xF4DD,
+0xF4DB,
+0xF4DC,
+0xF4DE,
+0xF4DA,
+0xF4DF,
+0xF658,
+0,
+0xF659,
+0xF657,
+0xC546,
+0xF764,
+0xC5AF,
+0xF765,
+0xF848,
+0xF847,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8AF,
+0xB664,
+0,
+0,
+0xB940,
+0,
+0,
+0,
+0xBBB6,
+0,
+0,
+0xBFEC,
+0,
+0xBFEB,
+0,
+0,
+0,
+0,
+0xC3E3,
+0xC47C,
+0xC547,
+0xA8B0,
+0xB064,
+0xB941,
+0,
+0xF35B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBA6,
+0,
+0,
+0xA8B1,
+0,
+0xA8B4,
+0xA8B3,
+0xA8B2,
+0,
+0,
+0xCBA5,
+0,
+0xCDCD,
+0,
+0xCDCF,
+0xAAEF,
+0,
+0,
+0xAAF1,
+0xCDCC,
+0xCDCE,
+0xAAF0,
+0xCDD1,
+0xCDD0,
+0xCDD2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0B6,
+0xD0B4,
+0xAD7C,
+0xD0B3,
+0xADA3,
+0xAD7E,
+0xAD7B,
+0,
+0xADA4,
+0,
+0xAD7D,
+0xADA2,
+0,
+0xADA1,
+0xD0B5,
+0,
+0xAD7A,
+0,
+0,
+0,
+0xB06A,
+0xD3EB,
+0xD3F1,
+0xB067,
+0xB06E,
+0,
+0xB069,
+0xD3EE,
+0xD3F0,
+0xB06C,
+0xD3EA,
+0xD3ED,
+0xB068,
+0xB065,
+0xD3EC,
+0xB06B,
+0xD3EF,
+0xB06D,
+0xB066,
+0,
+0,
+0,
+0,
+0xD7E3,
+0xD7E6,
+0xB370,
+0,
+0xB37A,
+0xB376,
+0xD7E4,
+0,
+0,
+0xB37E,
+0xB377,
+0xB37C,
+0xB372,
+0,
+0xB36F,
+0xB371,
+0xB37D,
+0xD7E5,
+0xB375,
+0xB378,
+0xB374,
+0xB379,
+0xD7E7,
+0xB37B,
+0xB373,
+0xD7E2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDC4D,
+0xB665,
+0xDC4F,
+0,
+0xB667,
+0xB669,
+0,
+0xDC4E,
+0xB666,
+0xB66A,
+0,
+0xB668,
+0,
+0,
+0,
+0xB947,
+0xE0A3,
+0xB94F,
+0xE07E,
+0,
+0xB950,
+0xB945,
+0,
+0xE0A1,
+0,
+0,
+0xB94A,
+0,
+0xE0A2,
+0xB943,
+0xB942,
+0,
+0xB94D,
+0xB94C,
+0xB94B,
+0xB949,
+0xB94E,
+0xE07D,
+0xB944,
+0xB946,
+0xB948,
+0,
+0,
+0xBBB8,
+0xBBBB,
+0,
+0xBBBF,
+0xBBB9,
+0xBBBE,
+0xBBBC,
+0,
+0xBBB7,
+0,
+0xBBBD,
+0xBBBA,
+0,
+0,
+0,
+0xE852,
+0xBE43,
+0xBE41,
+0,
+0xE853,
+0,
+0xBE44,
+0xBE42,
+0xE851,
+0xE850,
+0,
+0xBFF0,
+0xE84F,
+0xBFEE,
+0xBFED,
+0xEBD0,
+0xBE45,
+0xBFEF,
+0xEBD1,
+0xBFF2,
+0xEBD2,
+0xBFF1,
+0xC1D8,
+0xEEC3,
+0xC1D7,
+0xC1DC,
+0xC1DA,
+0xC1DB,
+0xC2E3,
+0xC1D9,
+0xEEC2,
+0xEBD3,
+0xC2E2,
+0xC2E4,
+0,
+0xC3E4,
+0xC3E5,
+0,
+0xF4E0,
+0,
+0xC5DE,
+0xC5DD,
+0xA8B6,
+0,
+0,
+0xCA55,
+0xB06F,
+0,
+0xCA52,
+0xCA53,
+0xCA51,
+0,
+0xCA54,
+0,
+0,
+0xCBAA,
+0xCBA7,
+0xCBAC,
+0xCBA8,
+0xA8B7,
+0xA8BA,
+0,
+0xCBA9,
+0xA8B9,
+0xCBAB,
+0,
+0,
+0xA8B8,
+0,
+0,
+0,
+0,
+0xCDD5,
+0xCDD7,
+0xAAF4,
+0xCDD3,
+0xCDD6,
+0xCDD4,
+0xAAF2,
+0xAAF5,
+0,
+0xAAF3,
+0,
+0,
+0,
+0,
+0xD0B8,
+0xD0BC,
+0xD0B9,
+0,
+0xADA7,
+0,
+0xADA8,
+0,
+0xD0BB,
+0,
+0xD0BD,
+0xD0BF,
+0,
+0xADA5,
+0xD0BE,
+0,
+0,
+0xADA6,
+0,
+0,
+0,
+0,
+0,
+0xD7EE,
+0xD0BA,
+0xD3F2,
+0xD3FB,
+0xD3F9,
+0xD3F4,
+0xD3F5,
+0xD3FA,
+0xD3FC,
+0xB071,
+0,
+0xD3F7,
+0xD3F3,
+0xB070,
+0xB072,
+0xD3F6,
+0xD3FD,
+0xD3F8,
+0,
+0,
+0xB3A1,
+0xD7F1,
+0xD7E9,
+0xD7EF,
+0xD7F0,
+0xB3A2,
+0,
+0xD7E8,
+0xD7EA,
+0xD0B7,
+0xD7EC,
+0xD7ED,
+0xD7EB,
+0xB66C,
+0,
+0,
+0,
+0xDC56,
+0xEBD4,
+0xDC57,
+0xDC54,
+0xB3A3,
+0xB66E,
+0xDC53,
+0xDC59,
+0xDC58,
+0xB66B,
+0xDC5C,
+0xDC52,
+0xDC5B,
+0xDC50,
+0xDC5A,
+0xDC55,
+0xB66D,
+0,
+0xE0AA,
+0,
+0xE0A5,
+0xE0AB,
+0xE0A6,
+0xE0A4,
+0xE0A7,
+0xB951,
+0,
+0xE0A9,
+0,
+0xE0A8,
+0xB952,
+0xBBC1,
+0xBBC0,
+0xE46E,
+0xE471,
+0xE469,
+0xE46D,
+0xBBC2,
+0xE46C,
+0xE46A,
+0xE470,
+0xE46B,
+0xE468,
+0xE46F,
+0,
+0xE859,
+0xBE48,
+0xF14A,
+0xE856,
+0xE857,
+0xE855,
+0xDC51,
+0xBE47,
+0xE85A,
+0xE854,
+0xBE46,
+0xBE49,
+0xE858,
+0xEBD5,
+0xBFF3,
+0xEBD6,
+0xEBD7,
+0,
+0xEEC4,
+0xC1DD,
+0xF14B,
+0xF14C,
+0,
+0,
+0xF14D,
+0xF35D,
+0xF35C,
+0xF4E2,
+0,
+0xF4E1,
+0xF65B,
+0xF65C,
+0xF65A,
+0xF766,
+0xC5B0,
+0xA8BB,
+0xADAA,
+0xADA9,
+0xB075,
+0xB074,
+0xD440,
+0xD441,
+0xD3FE,
+0,
+0xB073,
+0xD7F5,
+0,
+0xD7F6,
+0xD7F2,
+0xB3A4,
+0xD7F3,
+0,
+0xD7F4,
+0,
+0,
+0,
+0,
+0xDC5F,
+0xDC61,
+0xDC5D,
+0xDC60,
+0xB66F,
+0xDC5E,
+0xB670,
+0,
+0,
+0xDD73,
+0xB955,
+0xB954,
+0,
+0xB953,
+0,
+0xE0AC,
+0xE0AD,
+0,
+0,
+0xE473,
+0xE475,
+0xBBC6,
+0xBBC3,
+0,
+0xBBC5,
+0xBBC4,
+0xE474,
+0xE472,
+0,
+0,
+0,
+0,
+0,
+0xE861,
+0xE85E,
+0xE85F,
+0xBE4D,
+0xE860,
+0xE85B,
+0xE85C,
+0xBE4A,
+0,
+0xBE4B,
+0xE85D,
+0xBE4C,
+0,
+0xEBDB,
+0,
+0xEBDC,
+0xEBD9,
+0xEBDA,
+0xBFF4,
+0xEBD8,
+0,
+0,
+0,
+0,
+0,
+0xEEC8,
+0xEEC5,
+0xEEC7,
+0xC1E0,
+0xEECB,
+0xC1DF,
+0xEEC9,
+0xEECC,
+0xEECA,
+0xEEC6,
+0xC1DE,
+0,
+0xF14F,
+0,
+0xF150,
+0xF14E,
+0,
+0xF152,
+0xC2E5,
+0xC2E6,
+0xF35F,
+0xC3E7,
+0xF151,
+0xF35E,
+0xC3E6,
+0xF4E5,
+0xF4E6,
+0xC4BF,
+0xF4E4,
+0,
+0xF4E3,
+0,
+0xF65D,
+0xC548,
+0,
+0xF849,
+0xF8C8,
+0xF8C7,
+0,
+0xC643,
+0xC65D,
+0xF8C9,
+0xF971,
+0,
+0xC66F,
+0xA8BC,
+0xAAF6,
+0,
+0xB956,
+0,
+0xC4C0,
+0xA8BD,
+0xADAB,
+0xB3A5,
+0xB671,
+0xC2E7,
+0xAAF7,
+0,
+0xD0C1,
+0xD0C0,
+0xD442,
+0,
+0xB078,
+0xB076,
+0xB07A,
+0xD444,
+0,
+0xB079,
+0xB077,
+0,
+0,
+0,
+0,
+0xD443,
+0xB3A8,
+0xD7FC,
+0,
+0xB3A7,
+0xB3A9,
+0xD842,
+0xB3AB,
+0xD7FE,
+0xD840,
+0xD7F7,
+0xB3AA,
+0xD843,
+0,
+0,
+0xD7F9,
+0,
+0xD7FA,
+0xD7F8,
+0xB3A6,
+0,
+0xD841,
+0xD7FB,
+0xD7FD,
+0,
+0,
+0,
+0xDC6D,
+0,
+0xDC6C,
+0xDC6A,
+0xDC62,
+0xDC71,
+0xDC65,
+0xDC6F,
+0xDC76,
+0xDC6E,
+0xB679,
+0,
+0xB675,
+0xDC63,
+0,
+0xDC69,
+0xB677,
+0,
+0xDC68,
+0xB678,
+0xB67A,
+0xDC6B,
+0,
+0xB672,
+0xB673,
+0xDC77,
+0xDC75,
+0,
+0xDC74,
+0xDC66,
+0,
+0xDC72,
+0,
+0xB676,
+0,
+0,
+0,
+0,
+0xB674,
+0xDC73,
+0xDC64,
+0xDC67,
+0xDC70,
+0,
+0,
+0,
+0,
+0,
+0xE4BA,
+0xE0B7,
+0,
+0xE0B0,
+0xE0C3,
+0xE0CC,
+0xE0B3,
+0xB961,
+0,
+0xE0C0,
+0xB957,
+0xB959,
+0xB965,
+0xE0B1,
+0,
+0,
+0xB95A,
+0xB95C,
+0xB966,
+0xB95B,
+0,
+0,
+0,
+0,
+0xB964,
+0xE0B9,
+0,
+0xE0AE,
+0xB962,
+0xE0B8,
+0xB95E,
+0xE0CA,
+0xB963,
+0xE0C8,
+0xE0BC,
+0xE0C6,
+0xB960,
+0xE0AF,
+0xE0C9,
+0xE0C4,
+0,
+0xE0CB,
+0xB958,
+0,
+0,
+0xB967,
+0xB95D,
+0,
+0,
+0xE0B5,
+0,
+0xE0BD,
+0xE0C1,
+0,
+0xE0C5,
+0xB95F,
+0xE0B4,
+0xE0B2,
+0xE0BE,
+0,
+0,
+0,
+0,
+0xE0BB,
+0xE0BA,
+0,
+0xE0BF,
+0xE0C2,
+0,
+0xE0C7,
+0,
+0,
+0,
+0xE478,
+0,
+0xBBC7,
+0xE4A4,
+0xE47A,
+0xBBCC,
+0xBBD0,
+0xE4AD,
+0xE4B5,
+0xE4A6,
+0xBBC8,
+0,
+0xE4AA,
+0xE0B6,
+0,
+0xBBC9,
+0xE4B1,
+0xE4B6,
+0xE4AE,
+0,
+0xE4B0,
+0xE4B9,
+0xE4B2,
+0xE47E,
+0xE4A9,
+0,
+0,
+0xBBD1,
+0,
+0xBBCD,
+0xE47C,
+0xE4AB,
+0xBBCB,
+0xE4A5,
+0xBBCA,
+0xE4B3,
+0xE4A2,
+0xE479,
+0xBBCE,
+0xE4B8,
+0,
+0,
+0xE47B,
+0xE4AF,
+0xE4AC,
+0xE4A7,
+0xE477,
+0xE476,
+0xE4A1,
+0xE4B4,
+0xBBCF,
+0xE4B7,
+0xE47D,
+0xE4A3,
+0xBE52,
+0,
+0,
+0,
+0,
+0,
+0xBE5A,
+0xBE55,
+0xE8A4,
+0xE8A1,
+0xE867,
+0xBE50,
+0,
+0,
+0,
+0xBE4F,
+0xBE56,
+0,
+0,
+0,
+0xE865,
+0xBE54,
+0xE871,
+0xE863,
+0xE864,
+0xBE4E,
+0xE8A3,
+0xBE58,
+0xE874,
+0xE879,
+0xE873,
+0xEBEE,
+0xE86F,
+0xE877,
+0xE875,
+0xE868,
+0xE862,
+0xE87D,
+0xBE57,
+0xE87E,
+0,
+0xE878,
+0,
+0xE86D,
+0xE86B,
+0xE866,
+0,
+0,
+0,
+0xE86E,
+0xE87B,
+0xE86A,
+0xE87A,
+0xE8A2,
+0,
+0,
+0xBE53,
+0,
+0xE876,
+0xE87C,
+0xE872,
+0xE86C,
+0xBE51,
+0,
+0,
+0,
+0xE4A8,
+0xE870,
+0xBE59,
+0xE869,
+0,
+0,
+0,
+0,
+0,
+0xEBF4,
+0xBFF7,
+0xEBF3,
+0xEBF0,
+0xEC44,
+0xBFFB,
+0,
+0xEC41,
+0xEBF8,
+0xEC43,
+0xEBE9,
+0xEBF6,
+0,
+0xBFFD,
+0,
+0xEBE1,
+0,
+0xEBDF,
+0xEC42,
+0,
+0xEC40,
+0xEBFE,
+0xEBED,
+0xEBEC,
+0xEBE2,
+0xC040,
+0,
+0xEBE8,
+0xEBF2,
+0xEBFD,
+0xC043,
+0xEC45,
+0,
+0xC1E8,
+0xC045,
+0xBFFE,
+0xEBE6,
+0,
+0xEBEF,
+0xEBDE,
+0xEBE0,
+0xBFF5,
+0xC042,
+0xBFFA,
+0xEBE7,
+0xEBF7,
+0xEBF1,
+0xC041,
+0xEBDD,
+0xC1E3,
+0xEBF9,
+0xEBFC,
+0xBFFC,
+0,
+0xEBEB,
+0xC044,
+0xBFF9,
+0,
+0,
+0,
+0xBFF8,
+0xEBF5,
+0xEBFB,
+0xBFF6,
+0,
+0xEBE4,
+0xEBFA,
+0,
+0,
+0xEBE5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBEA,
+0xEED2,
+0,
+0xEED7,
+0xC1E5,
+0xC1E7,
+0xEEDD,
+0xC1E1,
+0xEEEC,
+0xEEE3,
+0xEED8,
+0xEED9,
+0xEEE2,
+0,
+0xC1EE,
+0xEEE1,
+0xEED1,
+0xEEE0,
+0xEED4,
+0xEEED,
+0xC1ED,
+0xC1EB,
+0xEED5,
+0,
+0xEEE8,
+0,
+0xEEDA,
+0xEEE7,
+0,
+0xEEE9,
+0xEED0,
+0xC1E6,
+0,
+0xEEEA,
+0,
+0,
+0xEEDE,
+0,
+0xC1EA,
+0xEEDB,
+0,
+0,
+0xC1EC,
+0xEEE4,
+0,
+0,
+0,
+0xC1E4,
+0xEED6,
+0xEEE5,
+0,
+0xEEDF,
+0xEBE3,
+0xEEE6,
+0xEED3,
+0,
+0xC1E9,
+0,
+0xEEEB,
+0,
+0xC1E2,
+0xEECE,
+0,
+0,
+0,
+0,
+0xF160,
+0xF159,
+0xC2E9,
+0,
+0xF154,
+0xF163,
+0xF15B,
+0xEEDC,
+0,
+0xF165,
+0xF155,
+0,
+0xC2E8,
+0xF15F,
+0xC2EA,
+0xC2F2,
+0xC2F0,
+0xF161,
+0xC2F1,
+0xF157,
+0,
+0xF158,
+0xF15D,
+0xF162,
+0,
+0xEECD,
+0xC2EB,
+0xF16A,
+0xF167,
+0xF16B,
+0xF15E,
+0xF15A,
+0xF168,
+0xF36A,
+0xF15C,
+0,
+0xC2EE,
+0,
+0xC2ED,
+0xEECF,
+0xC2EF,
+0xF164,
+0xF166,
+0xC2EC,
+0xF169,
+0xF153,
+0,
+0xF156,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF373,
+0,
+0xF363,
+0xC3EB,
+0xF371,
+0,
+0,
+0xF361,
+0xC3EC,
+0,
+0xF36C,
+0,
+0xF368,
+0xC3F1,
+0xF372,
+0xF362,
+0xF365,
+0xC3E9,
+0xF374,
+0,
+0xF36D,
+0xF370,
+0xC3EF,
+0xC3F4,
+0xC3F2,
+0xF369,
+0xF364,
+0,
+0xC3ED,
+0xC3EE,
+0xF360,
+0xC3EA,
+0,
+0xC3E8,
+0xC3F0,
+0xF36F,
+0xC3F3,
+0,
+0xF36B,
+0xF375,
+0xC3F5,
+0,
+0,
+0,
+0xF367,
+0,
+0xF36E,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4F3,
+0xF542,
+0xF4F5,
+0xF4FC,
+0xF366,
+0xF4FA,
+0xF4E9,
+0xF540,
+0xC4C3,
+0xF4ED,
+0xF4FE,
+0xF4F4,
+0,
+0,
+0xC4C2,
+0,
+0,
+0xF544,
+0xF4F6,
+0,
+0xF4FB,
+0xF4FD,
+0xF4E7,
+0xF541,
+0xF4F2,
+0xF4F7,
+0xF4EB,
+0xF4EF,
+0xF543,
+0xF4F9,
+0xF4E8,
+0xF4EC,
+0xF4EE,
+0xF4F8,
+0,
+0xC4C1,
+0xF4F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4F0,
+0xF661,
+0xF666,
+0xC54F,
+0xF668,
+0,
+0xC549,
+0,
+0xF664,
+0xF66A,
+0xC54E,
+0xC54A,
+0,
+0xC54B,
+0xF660,
+0xF667,
+0xC54D,
+0xF665,
+0xC54C,
+0xF65F,
+0xF663,
+0xF662,
+0,
+0xF65E,
+0xF669,
+0,
+0,
+0,
+0xC5B1,
+0xF76D,
+0xF770,
+0xF76C,
+0xF76E,
+0xF76F,
+0xF769,
+0xF76A,
+0xF767,
+0,
+0,
+0xF76B,
+0xF768,
+0xC5B2,
+0xC5B3,
+0,
+0,
+0xF84B,
+0,
+0xF84D,
+0,
+0,
+0,
+0,
+0,
+0xF84C,
+0xF84E,
+0,
+0xC5E0,
+0,
+0xF84A,
+0xC5DF,
+0xC5E1,
+0,
+0,
+0,
+0xF8CB,
+0xF8CC,
+0xC644,
+0xF8CA,
+0,
+0xF953,
+0xF952,
+0xF954,
+0xC65F,
+0xF955,
+0xC65E,
+0xF956,
+0xF972,
+0xF975,
+0xF974,
+0xC668,
+0xF973,
+0,
+0,
+0,
+0xC672,
+0xC670,
+0xC671,
+0xC677,
+0xF9C0,
+0xF9C1,
+0xF9BF,
+0xF9C9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAAF8,
+0,
+0,
+0xD844,
+0xDC78,
+0xE8A5,
+0xF376,
+0,
+0,
+0xAAF9,
+0,
+0xADAC,
+0xB07B,
+0,
+0,
+0xD845,
+0,
+0xD846,
+0xB3AC,
+0,
+0xB67D,
+0xDC7A,
+0xDC79,
+0xB6A3,
+0xB67C,
+0xDC7B,
+0xB67E,
+0xB6A2,
+0xB6A1,
+0xB67B,
+0,
+0,
+0,
+0xB968,
+0,
+0,
+0xE0D0,
+0xE0CE,
+0,
+0xE0CF,
+0xE0CD,
+0,
+0xBBD2,
+0,
+0xBBD5,
+0xBBD7,
+0xBBD6,
+0,
+0,
+0xBBD3,
+0xBBD4,
+0,
+0xE8A7,
+0xE8A6,
+0xBE5B,
+0xE8A8,
+0,
+0xE8A9,
+0xBE5C,
+0,
+0,
+0,
+0xEC4D,
+0xEC4B,
+0xEEF3,
+0,
+0xEC49,
+0xEC4A,
+0xC046,
+0xEC46,
+0xEC4E,
+0xEC48,
+0xEC4C,
+0xEEEF,
+0,
+0,
+0xEEF1,
+0,
+0xEEF2,
+0xC1F3,
+0xEEEE,
+0xC1F2,
+0xEEF0,
+0xC1EF,
+0xC1F0,
+0xC1F1,
+0xEC47,
+0,
+0,
+0xC2F5,
+0xF16E,
+0xF16C,
+0xF16D,
+0xC2F3,
+0xC2F6,
+0xC2F4,
+0,
+0,
+0,
+0xF377,
+0xF378,
+0xC3F6,
+0,
+0xF545,
+0xF547,
+0xF546,
+0xC4C4,
+0xC550,
+0xF66D,
+0xF66C,
+0xF66B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAAFA,
+0,
+0xC9AA,
+0,
+0xCA58,
+0xA6E9,
+0xCA56,
+0xCA59,
+0xCA57,
+0,
+0,
+0,
+0xCBAE,
+0,
+0xA8C1,
+0,
+0xA8C2,
+0xCBB0,
+0xA8BF,
+0xCBAF,
+0xCBAD,
+0xA8C0,
+0xA8BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDD8,
+0xCDDB,
+0xAAFD,
+0xCDDA,
+0xCDD9,
+0,
+0xAAFC,
+0xAAFB,
+0,
+0xAB40,
+0xCDDC,
+0xAAFE,
+0,
+0,
+0,
+0,
+0,
+0xD0C6,
+0xADAE,
+0xADAF,
+0xADB0,
+0xD0C7,
+0xD0C3,
+0xADAD,
+0xD0C4,
+0,
+0xD0C5,
+0xD0C2,
+0,
+0,
+0,
+0xB0A4,
+0,
+0,
+0xB0A1,
+0xD445,
+0xB0A2,
+0xB0A5,
+0xD446,
+0,
+0xB07E,
+0xB07C,
+0xB07D,
+0xB0A3,
+0,
+0,
+0,
+0,
+0,
+0xB3AD,
+0xD849,
+0xB3B5,
+0xD848,
+0,
+0xD84B,
+0xB3B1,
+0xD84A,
+0xB6AB,
+0xB3AF,
+0xB3B2,
+0xB3AE,
+0xB3B3,
+0xB3B4,
+0xB3B0,
+0,
+0,
+0,
+0xD847,
+0xB6A7,
+0xDC7D,
+0,
+0xDCA3,
+0,
+0,
+0xDCA2,
+0xB6AC,
+0xB6A8,
+0xB6A9,
+0xDC7C,
+0xDC7E,
+0xDCA1,
+0xB6A4,
+0xB6A6,
+0,
+0xB6AA,
+0xB6A5,
+0,
+0,
+0xE0D3,
+0xE0D1,
+0xE0D2,
+0xB96A,
+0xB96B,
+0,
+0xE0D4,
+0xB969,
+0xBBD8,
+0,
+0xBBDA,
+0xBBD9,
+0,
+0xE4BB,
+0,
+0,
+0xE4BC,
+0xE8AB,
+0,
+0xE8AA,
+0,
+0,
+0xC047,
+0xC048,
+0xEC4F,
+0xC049,
+0,
+0xEEF6,
+0,
+0xEEF4,
+0,
+0xEEF5,
+0xC1F4,
+0,
+0xF16F,
+0xC3F7,
+0,
+0,
+0,
+0xC1F5,
+0xAB41,
+0,
+0xB0A6,
+0xD447,
+0,
+0,
+0xD84C,
+0xB3B6,
+0xB6AD,
+0xDCA4,
+0xDCA6,
+0xB6AF,
+0xB6AE,
+0xB6B0,
+0xB6B1,
+0xDCA5,
+0xB96E,
+0xB96F,
+0xB96D,
+0xBBDB,
+0xB96C,
+0xE0D5,
+0,
+0,
+0,
+0xBBDC,
+0xE8AC,
+0xEC50,
+0xC04A,
+0xC1F6,
+0xF170,
+0xF174,
+0xC2F9,
+0xF171,
+0xC2FA,
+0xC2F8,
+0xF175,
+0xC2FB,
+0xF173,
+0,
+0xF379,
+0xC2F7,
+0xC3F8,
+0,
+0xF8CD,
+0,
+0,
+0xAB42,
+0xB3B8,
+0xB3B7,
+0,
+0,
+0,
+0,
+0xB6B2,
+0xDCA8,
+0xDCA7,
+0xB6B3,
+0,
+0,
+0xE0D9,
+0xB973,
+0xB970,
+0xE0D8,
+0xB972,
+0xE0D6,
+0xB971,
+0,
+0xE0D7,
+0,
+0xE4BD,
+0xBBDD,
+0,
+0xE8AF,
+0,
+0xBE5D,
+0xE8AD,
+0xBE5E,
+0xBE5F,
+0xE8AE,
+0xBE60,
+0,
+0xEC51,
+0,
+0xC04E,
+0xC04B,
+0xC050,
+0xEC53,
+0xC04C,
+0xEC52,
+0xC04F,
+0,
+0,
+0xC04D,
+0,
+0xEEF9,
+0xEEFB,
+0,
+0,
+0xC1F7,
+0xEEFA,
+0xC1F8,
+0xEEF8,
+0xEEF7,
+0,
+0xF177,
+0xF176,
+0xC2FC,
+0xF178,
+0xF37E,
+0xC3FA,
+0xF37D,
+0xF37A,
+0xC3F9,
+0xF37B,
+0xF37C,
+0,
+0xF548,
+0xF549,
+0xC4C5,
+0,
+0xC553,
+0,
+0,
+0xF66E,
+0,
+0,
+0xC551,
+0xC552,
+0xF66F,
+0,
+0,
+0xC5B4,
+0xC5B5,
+0xF771,
+0,
+0,
+0xC645,
+0xF8CF,
+0xC647,
+0,
+0xF8CE,
+0xF8D0,
+0xC646,
+0xF957,
+0,
+0xF9AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAB43,
+0,
+0,
+0,
+0xB974,
+0,
+0xE4BE,
+0,
+0xE8B0,
+0xC051,
+0xC052,
+0,
+0xAB44,
+0,
+0xBE61,
+0xC3FB,
+0xADB1,
+0,
+0,
+0,
+0xC053,
+0,
+0xC5E2,
+0xADB2,
+0xD84D,
+0,
+0xDCA9,
+0,
+0xDCAB,
+0,
+0xDCAA,
+0,
+0xE0DD,
+0xE0DA,
+0xB975,
+0,
+0xB976,
+0xE0DB,
+0xE0DC,
+0,
+0xE4C0,
+0xE4C5,
+0xBBDE,
+0xE4BF,
+0xE4C1,
+0xE4C8,
+0xE4C3,
+0xE4C7,
+0xE4C4,
+0xE4C2,
+0xE4C6,
+0xBBDF,
+0,
+0,
+0xE8B3,
+0,
+0xE8B1,
+0xBE63,
+0,
+0xBE62,
+0xE8B2,
+0xBE64,
+0,
+0,
+0,
+0,
+0xEC56,
+0,
+0,
+0xEC55,
+0xC054,
+0xEC54,
+0xEEFC,
+0,
+0xEEFE,
+0xEF41,
+0xEF40,
+0,
+0xC1F9,
+0xEEFD,
+0xF1A1,
+0xC2FD,
+0xF17D,
+0xF1A2,
+0xC2FE,
+0,
+0xF17B,
+0,
+0xF17E,
+0xF17C,
+0xF179,
+0xC340,
+0xF17A,
+0,
+0,
+0,
+0,
+0xF3A1,
+0,
+0,
+0xF3A3,
+0xF3A2,
+0,
+0xF54A,
+0,
+0xF54B,
+0,
+0,
+0,
+0xF670,
+0,
+0xC5B7,
+0,
+0xC5B6,
+0xF84F,
+0xF850,
+0xC648,
+0xF8D1,
+0,
+0xC669,
+0,
+0xADB3,
+0xB6B4,
+0xE4CA,
+0xE4C9,
+0xE8B5,
+0xE8B4,
+0,
+0,
+0xC1FA,
+0xEF43,
+0xEF42,
+0xF1A5,
+0xF1A3,
+0xF1A6,
+0xF1A4,
+0,
+0,
+0xC3FC,
+0xF3A4,
+0xF3A5,
+0xF3A6,
+0,
+0xF671,
+0,
+0xF772,
+0,
+0xF8D2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xADB4,
+0,
+0,
+0xEC57,
+0xEF44,
+0,
+0xADB5,
+0,
+0,
+0xBBE0,
+0,
+0xEC58,
+0xC341,
+0xF1A7,
+0xC3FD,
+0,
+0xF54C,
+0xF54D,
+0xC554,
+0xF851,
+0xADB6,
+0xB3BB,
+0xB3BC,
+0xD84E,
+0xB6B5,
+0xB6B6,
+0xDCAC,
+0xB6B7,
+0,
+0xB97A,
+0,
+0xB97C,
+0xE0DF,
+0xE0E0,
+0xE0DE,
+0xB977,
+0xB978,
+0xB97B,
+0xB979,
+0,
+0,
+0xE4CB,
+0xBBE1,
+0xBBE2,
+0,
+0,
+0xE8BC,
+0xBE67,
+0xE8B7,
+0xE8B6,
+0,
+0xE8BB,
+0xBE65,
+0,
+0,
+0xC05B,
+0,
+0xE8B8,
+0xE8BD,
+0xE8BA,
+0xE8B9,
+0,
+0xBE66,
+0,
+0xC059,
+0,
+0xEC5A,
+0xC055,
+0,
+0xEC5B,
+0,
+0,
+0xEC59,
+0,
+0xC058,
+0xC056,
+0xC05A,
+0,
+0xC057,
+0,
+0,
+0,
+0,
+0,
+0xEF45,
+0,
+0xEF4A,
+0xEF46,
+0xEF49,
+0xC1FB,
+0,
+0xEDD4,
+0xEF48,
+0xEF47,
+0,
+0xC344,
+0xC342,
+0xC345,
+0xC343,
+0xF1A8,
+0xF1A9,
+0xF1AA,
+0xC346,
+0,
+0,
+0,
+0xF3AA,
+0xC440,
+0xF3A8,
+0,
+0xC441,
+0xF3A7,
+0xF3A9,
+0xC3FE,
+0xF551,
+0xF54E,
+0,
+0xF54F,
+0xF550,
+0xF672,
+0xC556,
+0,
+0xC555,
+0,
+0xF774,
+0xF773,
+0xC5B8,
+0,
+0,
+0,
+0xC5E3,
+0xC649,
+0xC660,
+0xF958,
+0xF9AE,
+0xF9AF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xADB7,
+0xDCAD,
+0,
+0,
+0xE0E1,
+0xE4CC,
+0xE4CD,
+0xBBE3,
+0,
+0xBBE4,
+0xE8BE,
+0xBE68,
+0,
+0,
+0xC1FC,
+0,
+0xF1AB,
+0,
+0xC347,
+0xF3AD,
+0xC442,
+0xF3AC,
+0xF3AE,
+0xF3AB,
+0xF675,
+0xF552,
+0xF553,
+0,
+0xC4C6,
+0,
+0xF674,
+0,
+0,
+0xF673,
+0,
+0xF775,
+0xF9B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xADB8,
+0,
+0,
+0,
+0xADB9,
+0,
+0,
+0xB0A7,
+0xD448,
+0,
+0xD84F,
+0,
+0xB6B8,
+0,
+0xB6BB,
+0xB6B9,
+0xDCAE,
+0,
+0xB6BD,
+0,
+0xB6BA,
+0,
+0,
+0xB6BC,
+0,
+0xB97E,
+0,
+0xE0E2,
+0,
+0,
+0xE0E3,
+0xE8C0,
+0,
+0xB97D,
+0xB9A1,
+0xB9A2,
+0,
+0xE4CF,
+0,
+0xE4CE,
+0xBBE5,
+0,
+0xBBE6,
+0,
+0xE4D0,
+0xE8BF,
+0xBBE8,
+0xBE69,
+0,
+0xBBE7,
+0,
+0,
+0,
+0xC05C,
+0xE8C1,
+0xBE6B,
+0xBE6A,
+0xE8C2,
+0xE8C5,
+0xE8C3,
+0xE8C4,
+0xBE6C,
+0,
+0xC061,
+0xC05F,
+0,
+0,
+0xC05E,
+0xEC5D,
+0,
+0xC060,
+0,
+0,
+0xEC5C,
+0xEF4B,
+0,
+0xEC5E,
+0xC05D,
+0xEC5F,
+0xEF4E,
+0xEF4C,
+0xEF4D,
+0xEF52,
+0xC34B,
+0xEF51,
+0xEF54,
+0xEF53,
+0xEF50,
+0xEF4F,
+0,
+0xC1FD,
+0,
+0,
+0,
+0,
+0xF1AE,
+0,
+0xF1AD,
+0xC34A,
+0xC348,
+0xC349,
+0,
+0xF1AC,
+0,
+0xF3B1,
+0,
+0xC443,
+0,
+0xF3B0,
+0xF3AF,
+0xC444,
+0,
+0xF558,
+0xF557,
+0,
+0xF555,
+0,
+0xF554,
+0xC4C8,
+0xC4C7,
+0xF559,
+0xF776,
+0xC5B9,
+0xF677,
+0xC557,
+0xF676,
+0xF556,
+0,
+0xF777,
+0xC5E4,
+0,
+0xC661,
+0xF959,
+0,
+0xF9B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xADBA,
+0xD850,
+0xEF55,
+0xADBB,
+0,
+0,
+0xE4D2,
+0xE4D1,
+0xEC60,
+0,
+0,
+0xEF57,
+0,
+0xEF56,
+0,
+0xC34C,
+0xF3B2,
+0xF3B3,
+0xC4C9,
+0,
+0,
+0xF9B2,
+0xB0A8,
+0xB6BF,
+0xB6BE,
+0xE0E4,
+0xE0E6,
+0xB9A4,
+0xE0E5,
+0xB9A3,
+0xB9A5,
+0xE0E7,
+0,
+0,
+0,
+0xE4D4,
+0xE4D6,
+0xE4D5,
+0,
+0xE4D8,
+0,
+0,
+0,
+0xBBE9,
+0xE4D7,
+0xE4D3,
+0,
+0,
+0,
+0xE4D9,
+0,
+0xE8CC,
+0,
+0xE8CF,
+0xE8D1,
+0xE8C7,
+0xE8CB,
+0xE8C8,
+0xBE6E,
+0xBE71,
+0xBE73,
+0xE8C9,
+0xE8CA,
+0xBE72,
+0xE8CD,
+0xE8D0,
+0xE8CE,
+0xBE74,
+0,
+0xBE70,
+0xE8C6,
+0xBE6D,
+0,
+0xBE6F,
+0,
+0,
+0xC063,
+0xEC66,
+0xEC64,
+0xEC63,
+0,
+0xEC69,
+0,
+0xEC68,
+0xEC67,
+0,
+0xEC62,
+0xC062,
+0xEC61,
+0,
+0xEC65,
+0xC064,
+0,
+0,
+0xEF5A,
+0,
+0xEF5E,
+0xEF5B,
+0xEF5D,
+0xEF5C,
+0xEF59,
+0xEF5F,
+0xEF62,
+0xEF60,
+0xEF61,
+0xC240,
+0,
+0xC1FE,
+0xEF58,
+0xEF63,
+0xF1B3,
+0xF1B6,
+0xF1B8,
+0xF1B7,
+0,
+0xF1B1,
+0xF1B5,
+0xF1B0,
+0,
+0xF1B2,
+0xC34D,
+0xF1AF,
+0,
+0xF1B4,
+0,
+0,
+0xF3C0,
+0xF3B5,
+0xC445,
+0,
+0,
+0xC446,
+0xF3B4,
+0xF3B9,
+0xF3BF,
+0xF3B7,
+0xF3BE,
+0,
+0xF3BB,
+0,
+0xF3BA,
+0xF3BD,
+0xF3B8,
+0xF3B6,
+0,
+0xF3BC,
+0,
+0xF560,
+0xF55E,
+0xC4CA,
+0xF55D,
+0xF563,
+0xF561,
+0,
+0xC4CB,
+0xF55C,
+0xF55A,
+0,
+0xF55B,
+0xC4CD,
+0xF55F,
+0xC4CC,
+0xF562,
+0xF678,
+0xF67E,
+0,
+0,
+0xF679,
+0xC55B,
+0xF6A1,
+0xC55A,
+0xF67D,
+0xF67C,
+0xC559,
+0xF67B,
+0xC558,
+0xF67A,
+0,
+0xF77D,
+0xF7A1,
+0xF77E,
+0,
+0xF77B,
+0xC5BB,
+0xF778,
+0xF77C,
+0xF7A3,
+0,
+0xF7A2,
+0xF779,
+0xF77A,
+0xC5BA,
+0xF852,
+0xC5E7,
+0,
+0xF853,
+0xC5E5,
+0xC5E6,
+0,
+0,
+0xF8D3,
+0xC64A,
+0xF976,
+0,
+0xC66A,
+0,
+0xF9B3,
+0xC66B,
+0xF9B4,
+0xF9B5,
+0xF9C3,
+0xF9C2,
+0xC67A,
+0xF9CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB0A9,
+0,
+0,
+0xE0E9,
+0,
+0xE0E8,
+0,
+0xBBEA,
+0xBBEB,
+0xE4DA,
+0,
+0xE8D2,
+0xEC6C,
+0,
+0,
+0xBE75,
+0xC065,
+0xEC6A,
+0,
+0xEC6D,
+0xC066,
+0,
+0xEF64,
+0xEC6B,
+0xF1B9,
+0xC34E,
+0xF3C1,
+0,
+0,
+0,
+0xF566,
+0xF564,
+0,
+0,
+0xF565,
+0,
+0,
+0xF6A2,
+0,
+0xC55C,
+0xF7A4,
+0xC5EA,
+0xC5BC,
+0xC5E8,
+0xC5E9,
+0xF8D4,
+0xC662,
+0,
+0xB0AA,
+0,
+0,
+0,
+0xF1BA,
+0,
+0,
+0xD449,
+0,
+0xB9A6,
+0,
+0xE4DB,
+0,
+0,
+0xBBEC,
+0xE4DC,
+0,
+0,
+0,
+0xE8D4,
+0xE8D3,
+0xC068,
+0xBE76,
+0xBE77,
+0,
+0xE8D7,
+0xE8D6,
+0xE8D5,
+0,
+0,
+0xEC6E,
+0xEC71,
+0,
+0xEC70,
+0xEC6F,
+0xC067,
+0xEF68,
+0xEF66,
+0xEF65,
+0,
+0,
+0xEF67,
+0,
+0xC34F,
+0xF1BC,
+0xF1BD,
+0xC350,
+0,
+0xF1BB,
+0,
+0xF3C3,
+0xF3C2,
+0xF3C5,
+0xC447,
+0xF3C4,
+0,
+0xF567,
+0xF569,
+0xF568,
+0,
+0,
+0xF6A3,
+0xF6A6,
+0xF6A4,
+0xF6A5,
+0xF7A5,
+0xC5BD,
+0,
+0,
+0,
+0xF854,
+0xF855,
+0xF856,
+0,
+0xC64B,
+0xC663,
+0xF9B6,
+0xB0AB,
+0,
+0xBE78,
+0xC069,
+0xF1BE,
+0,
+0xF7A6,
+0,
+0,
+0xF9C4,
+0xD44A,
+0,
+0xC67B,
+0xB0AC,
+0xEC72,
+0,
+0xF1BF,
+0,
+0xF3C6,
+0,
+0,
+0xF6A7,
+0xF7A7,
+0xB0AD,
+0,
+0xE4DD,
+0xE4DE,
+0,
+0xBBED,
+0xBBEE,
+0xE8D9,
+0xBE7A,
+0xBE79,
+0xE8D8,
+0,
+0xEF69,
+0,
+0xF1C0,
+0xF1C2,
+0xF1C1,
+0xC353,
+0xC352,
+0xC351,
+0,
+0xC55E,
+0xF6A8,
+0,
+0xC55D,
+0xF7A9,
+0xF7A8,
+0,
+0xC64C,
+0xF8D5,
+0xB3BD,
+0xE0EA,
+0,
+0,
+0,
+0xE4E1,
+0xE4DF,
+0xE4E0,
+0,
+0,
+0xE8E2,
+0,
+0xE8DD,
+0xE8DA,
+0xE8E1,
+0,
+0,
+0,
+0xE8E3,
+0,
+0,
+0xBE7C,
+0xE8E0,
+0xE8DC,
+0,
+0,
+0xE8DB,
+0xE8DF,
+0xE8DE,
+0xBE7B,
+0,
+0,
+0xEC7D,
+0xEC78,
+0xEC76,
+0xECA1,
+0xEC77,
+0,
+0xEC73,
+0,
+0xEC79,
+0,
+0,
+0xEC74,
+0xEF72,
+0xEC75,
+0xECA2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEC7C,
+0xC06A,
+0xEC7B,
+0xEC7A,
+0,
+0xEC7E,
+0,
+0,
+0,
+0,
+0xEF6A,
+0xEF6D,
+0,
+0,
+0xEF6C,
+0,
+0xEF74,
+0xEF6F,
+0xEF73,
+0,
+0xEF71,
+0xEF70,
+0xEF6E,
+0,
+0xEF6B,
+0,
+0xC243,
+0xC242,
+0,
+0xC244,
+0xC241,
+0xEF75,
+0,
+0,
+0,
+0,
+0,
+0xF1C8,
+0xF1CB,
+0,
+0xF1C9,
+0xF1CD,
+0,
+0,
+0,
+0xF1CE,
+0,
+0xF1C6,
+0xC358,
+0xF1C7,
+0,
+0xF1C5,
+0xF1CC,
+0,
+0xF1C4,
+0xF1C3,
+0xC357,
+0xC355,
+0xC354,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1CA,
+0xF3CF,
+0xF3D5,
+0xC44A,
+0xF3D0,
+0,
+0xF3D3,
+0xF3D7,
+0xC44B,
+0xF3D2,
+0,
+0xF3CA,
+0,
+0xF3C9,
+0xF3D6,
+0xF3CD,
+0,
+0xF3CB,
+0xF3D4,
+0xF3CC,
+0xC449,
+0xC448,
+0,
+0xF3C7,
+0xF3C8,
+0xF3D1,
+0,
+0,
+0,
+0xF3CE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF56C,
+0xF56F,
+0,
+0,
+0,
+0,
+0xC356,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF56D,
+0xF573,
+0xF571,
+0xF56B,
+0xF576,
+0,
+0xF56A,
+0,
+0xC4CF,
+0xF572,
+0,
+0,
+0,
+0xF56E,
+0xC4CE,
+0xF575,
+0,
+0,
+0xF574,
+0,
+0,
+0,
+0,
+0xF6AB,
+0xF6AA,
+0,
+0,
+0,
+0xF6B1,
+0,
+0xF6AD,
+0xF6B0,
+0xC560,
+0,
+0,
+0xF6AE,
+0xF6AF,
+0,
+0xF6A9,
+0xF6AC,
+0xC55F,
+0,
+0,
+0,
+0xC5BF,
+0xF7B4,
+0xF7AF,
+0xF7B3,
+0,
+0xF7B6,
+0xF7B2,
+0,
+0xF7AE,
+0,
+0xC5C1,
+0xF7B1,
+0xF7B5,
+0xC5C0,
+0xF7AC,
+0xF570,
+0xF7B0,
+0,
+0,
+0xF7AD,
+0,
+0xF7AA,
+0,
+0xF7AB,
+0xC5BE,
+0xF85A,
+0xF85C,
+0xF85F,
+0xF85B,
+0xF860,
+0,
+0xF859,
+0,
+0xF857,
+0,
+0xC5EB,
+0xF85D,
+0xC5ED,
+0xC5EC,
+0xF858,
+0xF85E,
+0,
+0,
+0,
+0,
+0xF8DA,
+0xC64D,
+0xF8DB,
+0,
+0xF8D9,
+0xF8D6,
+0,
+0,
+0xF8D8,
+0xF8D7,
+0xF95A,
+0,
+0,
+0,
+0,
+0xF95C,
+0xF95B,
+0,
+0,
+0xF979,
+0,
+0xF978,
+0xF977,
+0xF97A,
+0,
+0xC673,
+0xC674,
+0xF9CA,
+0xF9CE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB3BE,
+0xDCAF,
+0xE0ED,
+0,
+0xB9A7,
+0xE0EB,
+0,
+0,
+0xE0EC,
+0,
+0,
+0,
+0xE4E2,
+0xE4E3,
+0xBBF1,
+0xBBEF,
+0xE4E4,
+0xBBF0,
+0xE8E8,
+0,
+0xE8EB,
+0xE8E5,
+0xE8EC,
+0xE8E4,
+0xE8E6,
+0,
+0xE8E7,
+0xE8EA,
+0,
+0,
+0xBEA1,
+0xE8EF,
+0xE8EE,
+0xBE7D,
+0xE8E9,
+0xE8ED,
+0xBE7E,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECAC,
+0,
+0xC06F,
+0,
+0xECA7,
+0xC06B,
+0,
+0xECA4,
+0xECAA,
+0xECAD,
+0,
+0xC070,
+0,
+0xECA9,
+0xECA6,
+0xECAE,
+0xECA5,
+0,
+0xECAB,
+0xC06C,
+0,
+0xECA3,
+0xC06D,
+0,
+0xC06E,
+0xECA8,
+0,
+0,
+0,
+0xEFA9,
+0xEF7A,
+0xEF7B,
+0xEF7E,
+0xEF7C,
+0,
+0xEF76,
+0,
+0,
+0xEF79,
+0xEFA5,
+0xEF7D,
+0,
+0,
+0xC245,
+0,
+0xEFA7,
+0xEFA4,
+0xC246,
+0xEFA6,
+0xEF77,
+0xEFA2,
+0xEFA3,
+0,
+0xEFA1,
+0,
+0,
+0,
+0,
+0xF1D2,
+0xF1D4,
+0xF1D7,
+0,
+0,
+0xF1D1,
+0,
+0xC359,
+0xF1D9,
+0xF1D0,
+0xF1DA,
+0,
+0xF1D6,
+0xF1D8,
+0xF1DC,
+0xF1D5,
+0xF1DD,
+0xF1D3,
+0xF1CF,
+0xC35A,
+0,
+0xF1DB,
+0xC35B,
+0xC44D,
+0,
+0,
+0,
+0,
+0,
+0xEF78,
+0xF3F1,
+0xF3E8,
+0xC44F,
+0xF3E4,
+0xC450,
+0,
+0,
+0xF3ED,
+0xF3E7,
+0xF3DD,
+0xC44E,
+0xF3EA,
+0xF3E5,
+0xF3E6,
+0,
+0xF3D8,
+0xF3DF,
+0xF3EE,
+0,
+0xF3EB,
+0,
+0xF3E3,
+0,
+0xF3EF,
+0xF3DE,
+0xF3D9,
+0xF3EC,
+0,
+0xF3DB,
+0xF3E9,
+0xF3E0,
+0xF3F0,
+0xF3DC,
+0xC44C,
+0xF3DA,
+0xF3E1,
+0xF3E2,
+0,
+0,
+0,
+0xF57D,
+0,
+0xF57B,
+0,
+0xF5A2,
+0,
+0xF5AE,
+0xF5A5,
+0xF57C,
+0xF578,
+0xF5A7,
+0xF57E,
+0xF5A3,
+0xF57A,
+0xF5AA,
+0xF577,
+0xF5A1,
+0xF5A6,
+0xF5A8,
+0xF5AB,
+0xF579,
+0,
+0xF5AF,
+0xF5B0,
+0xF5A9,
+0xF5AD,
+0xF5A4,
+0,
+0xF6C1,
+0xF6C4,
+0,
+0xC561,
+0,
+0xF6C3,
+0xF6C8,
+0xF6C6,
+0xC562,
+0xF6BD,
+0xF6B3,
+0xF6B2,
+0xC564,
+0xF6BF,
+0xF6C0,
+0xF6BC,
+0xF6B4,
+0,
+0xF6B9,
+0xF5AC,
+0,
+0xF6B5,
+0xC563,
+0xF6BB,
+0,
+0xF6BA,
+0,
+0xF6B6,
+0xF6C2,
+0,
+0xF6B7,
+0xF7BB,
+0xF6C5,
+0xF6C7,
+0xF6BE,
+0xF6B8,
+0xF7BC,
+0xF7BE,
+0xF7B8,
+0xC5C2,
+0,
+0xF7C5,
+0xF7C3,
+0xC5C3,
+0xF7C2,
+0xF7C1,
+0xF7BA,
+0xF7B7,
+0xF7BD,
+0xF7C6,
+0xF7B9,
+0xF7BF,
+0,
+0xF869,
+0xF86E,
+0xF864,
+0xF867,
+0xC5EE,
+0xF86B,
+0,
+0xF872,
+0xF7C0,
+0,
+0xF865,
+0xF86F,
+0xF873,
+0xF86A,
+0xF863,
+0xF86D,
+0,
+0xF86C,
+0xF871,
+0xF870,
+0xF7C4,
+0xF868,
+0xF862,
+0xF866,
+0xC64E,
+0xC64F,
+0xF861,
+0,
+0xF8E6,
+0xF8DD,
+0xF8E5,
+0xF8E2,
+0xF8E3,
+0xF8DC,
+0xF8DF,
+0xF8E7,
+0xF8E1,
+0xF8E0,
+0xF8DE,
+0,
+0xF8E4,
+0,
+0xF95D,
+0,
+0xF95E,
+0,
+0xF960,
+0xF95F,
+0xF962,
+0xF961,
+0xF97C,
+0xF97B,
+0xF9B7,
+0,
+0xF9B8,
+0,
+0xF9C5,
+0xC678,
+0xC67C,
+0,
+0xF9CF,
+0xC67D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB3BF,
+0,
+0,
+0,
+0xC4D0,
+0xF6C9,
+0,
+0xC650,
+0xC651,
+0,
+0xB3C0,
+0xE0EE,
+0,
+0xB9A8,
+0xE8F0,
+0,
+0,
+0xECB0,
+0xECB1,
+0xECAF,
+0xEFAB,
+0xEFAA,
+0xC247,
+0xF1DF,
+0xEFAC,
+0xF1DE,
+0,
+0,
+0xF3F3,
+0xC451,
+0xC453,
+0xF3F2,
+0,
+0,
+0xC452,
+0,
+0xF5B1,
+0xF5B3,
+0xF5B2,
+0xF6CA,
+0xC565,
+0,
+0xC5EF,
+0xF8E8,
+0xF963,
+0,
+0,
+0xF9D2,
+0xB3C1,
+0,
+0xE4E5,
+0,
+0xBEA2,
+0,
+0,
+0,
+0xECB3,
+0xECB2,
+0,
+0xEFAD,
+0,
+0,
+0,
+0xC454,
+0xC4D1,
+0xF7C7,
+0xF9CB,
+0,
+0,
+0,
+0xB3C2,
+0xBBF2,
+0,
+0xBEA3,
+0,
+0xF3F4,
+0,
+0xF874,
+0xB6C0,
+0,
+0,
+0,
+0,
+0xEFAE,
+0,
+0,
+0,
+0xC664,
+0xB6C1,
+0xBEA4,
+0xC248,
+0xF875,
+0xB6C2,
+0,
+0xE8F1,
+0xC072,
+0xECB4,
+0xECB5,
+0,
+0xC071,
+0,
+0xEFAF,
+0xC24C,
+0xC24A,
+0xC24B,
+0xC249,
+0xF1E0,
+0xC35C,
+0,
+0,
+0,
+0xF5B5,
+0xF5B4,
+0xF5B7,
+0xF5B6,
+0xC4D2,
+0,
+0,
+0xF6CB,
+0,
+0xF6CD,
+0xF6CC,
+0xC566,
+0xF7C8,
+0,
+0xF876,
+0xF877,
+0xC5F0,
+0xF964,
+0xF97D,
+0xC675,
+0,
+0xDCB0,
+0xECB6,
+0xEFB0,
+0xF3F5,
+0xE0EF,
+0,
+0xEFB1,
+0xF1E2,
+0xF1E1,
+0,
+0,
+0,
+0,
+0xF878,
+0xC652,
+0,
+0xF965,
+0xF97E,
+0,
+0,
+0,
+0xB9A9,
+0xE8F2,
+0xE8F3,
+0,
+0xECB7,
+0xB9AA,
+0,
+0xC35D,
+0xF1E3,
+0,
+0xF6CF,
+0xC567,
+0xF6D0,
+0xF6CE,
+0xF879,
+0,
+0xF8E9,
+0,
+0xB9AB,
+0,
+0xEFB4,
+0xEFB3,
+0xEFB2,
+0xF1E4,
+0,
+0,
+0xF1E8,
+0xF1E7,
+0xF1E6,
+0xF1E5,
+0xC35E,
+0xF3F6,
+0xF5B9,
+0xC4D3,
+0xF5B8,
+0xF6D1,
+0xF7CB,
+0xF7CA,
+0xC5C4,
+0xF7C9,
+0xF87C,
+0xF87B,
+0xF87A,
+0,
+0,
+0xBBF3,
+0,
+0xECB8,
+0xC24D,
+0,
+0xF3F7,
+0xF3F8,
+0xF7CC,
+0xF87D,
+0,
+0,
+0xF8EA,
+0xF966,
+0xF9B9,
+0xF9D4,
+0xBBF4,
+0xC24E,
+0xF1E9,
+0xF3F9,
+0xF6D2,
+0xF87E,
+0,
+0,
+0xBEA6,
+0,
+0xEFB5,
+0xF1EA,
+0xF3FA,
+0xF3FB,
+0xF3FC,
+0xF5BE,
+0,
+0xF5BA,
+0xC568,
+0xF5BD,
+0xF5BC,
+0xC4D4,
+0xF5BB,
+0xC4D6,
+0,
+0xC4D5,
+0xF6D4,
+0xF6D3,
+0xC569,
+0xC56A,
+0,
+0,
+0xC5C6,
+0xF7CD,
+0xC5C5,
+0,
+0xF8A3,
+0xF8A4,
+0xF8A2,
+0xF8A1,
+0xC654,
+0,
+0xF8EB,
+0xF8EC,
+0xF8ED,
+0xC653,
+0xF967,
+0xF96A,
+0xF969,
+0xF968,
+0,
+0,
+0xF9D3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC073,
+0,
+0,
+0xC365,
+0xF5BF,
+0xF6D5,
+0,
+0xC5C7,
+0xF7CE,
+0,
+0,
+0xF9D5,
+0,
+0,
+0,
+0xC074,
+0,
+0,
+0,
+0xEFB6,
+0,
+0xF7CF,
+0,
+0xF9A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC94A,
+0xDDFC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA14A,
+0xA157,
+0,
+0xA159,
+0xA15B,
+0xA15F,
+0xA160,
+0xA163,
+0xA164,
+0xA167,
+0xA168,
+0xA16B,
+0xA16C,
+0xA16F,
+0xA170,
+0xA173,
+0xA174,
+0xA177,
+0xA178,
+0xA17B,
+0xA17C,
+0,
+0,
+0,
+0,
+0xA1C6,
+0xA1C7,
+0xA1CA,
+0xA1CB,
+0xA1C8,
+0xA1C9,
+0xA15C,
+0xA14D,
+0,
+0xA14F,
+0,
+0xA151,
+0xA152,
+0xA153,
+0xA154,
+0,
+0xA17D,
+0xA17E,
+0xA1A1,
+0xA1A2,
+0xA1A3,
+0xA1A4,
+0xA1CC,
+0xA1CD,
+0xA1CE,
+0xA1DE,
+0xA1DF,
+0xA1E0,
+0xA1E1,
+0xA1E2,
+0,
+0,
+0xA24C,
+0xA24D,
+0xA24E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA149,
+0,
+0xA1AD,
+0xA243,
+0xA248,
+0xA1AE,
+0,
+0xA15D,
+0xA15E,
+0xA1AF,
+0xA1CF,
+0xA141,
+0xA1D0,
+0xA144,
+0xA241,
+0xA2AF,
+0xA2B0,
+0xA2B1,
+0xA2B2,
+0xA2B3,
+0xA2B4,
+0xA2B5,
+0xA2B6,
+0xA2B7,
+0xA2B8,
+0xA147,
+0xA146,
+0xA1D5,
+0xA1D7,
+0xA1D6,
+0xA148,
+0xA249,
+0xA2CF,
+0xA2D0,
+0xA2D1,
+0xA2D2,
+0xA2D3,
+0xA2D4,
+0xA2D5,
+0xA2D6,
+0xA2D7,
+0xA2D8,
+0xA2D9,
+0xA2DA,
+0xA2DB,
+0xA2DC,
+0xA2DD,
+0xA2DE,
+0xA2DF,
+0xA2E0,
+0xA2E1,
+0xA2E2,
+0xA2E3,
+0xA2E4,
+0xA2E5,
+0xA2E6,
+0xA2E7,
+0xA2E8,
+0,
+0xA242,
+0,
+0,
+0xA1C4,
+0,
+0xA2E9,
+0xA2EA,
+0xA2EB,
+0xA2EC,
+0xA2ED,
+0xA2EE,
+0xA2EF,
+0xA2F0,
+0xA2F1,
+0xA2F2,
+0xA2F3,
+0xA2F4,
+0xA2F5,
+0xA2F6,
+0xA2F7,
+0xA2F8,
+0xA2F9,
+0xA2FA,
+0xA2FB,
+0xA2FC,
+0xA2FD,
+0xA2FE,
+0xA340,
+0xA341,
+0xA342,
+0xA343,
+0xA161,
+0xA155,
+0xA162,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA14E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x0000,
+0,
+0,
+0
+};
+static CONST USHORT from_unicode_map[256] = {
+256,
+0,
+512,
+768,
+1024,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+1280,
+1536,
+1792,
+0,
+2048,
+2304,
+2560,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+2816,
+3072,
+3328,
+3584,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+3840,
+4096,
+4352,
+4608,
+4864,
+5120,
+5376,
+5632,
+5888,
+6144,
+6400,
+6656,
+6912,
+7168,
+7424,
+7680,
+7936,
+8192,
+8448,
+8704,
+8960,
+9216,
+9472,
+9728,
+9984,
+10240,
+10496,
+10752,
+11008,
+11264,
+11520,
+11776,
+12032,
+12288,
+12544,
+12800,
+13056,
+13312,
+13568,
+13824,
+14080,
+14336,
+14592,
+14848,
+15104,
+15360,
+15616,
+15872,
+16128,
+16384,
+16640,
+16896,
+17152,
+17408,
+17664,
+17920,
+18176,
+18432,
+18688,
+18944,
+19200,
+19456,
+19712,
+19968,
+20224,
+20480,
+20736,
+20992,
+21248,
+21504,
+21760,
+22016,
+22272,
+22528,
+22784,
+23040,
+23296,
+23552,
+23808,
+24064,
+24320,
+24576,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+24832,
+0,
+0,
+0,
+25088,
+25344,
+};
diff --git a/src/intl/cs_cyrl.h b/src/intl/cs_cyrl.h
new file mode 100644
index 0000000000..84c0999ae5
--- /dev/null
+++ b/src/intl/cs_cyrl.h
@@ -0,0 +1,3126 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/WINDOWS/CP1251.TXT 
+
+#
+#    Name:     cp1251 to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/15/98
+#
+#    Contact:       cpxlate@microsoft.com
+#
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp1251 code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp1251 order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0A	0x000A	#LINE FEED
+0x0B	0x000B	#VERTICAL TABULATION
+0x0C	0x000C	#FORM FEED
+0x0D	0x000D	#CARRIAGE RETURN
+0x0E	0x000E	#SHIFT OUT
+0x0F	0x000F	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1A	0x001A	#SUBSTITUTE
+0x1B	0x001B	#ESCAPE
+0x1C	0x001C	#FILE SEPARATOR
+0x1D	0x001D	#GROUP SEPARATOR
+0x1E	0x001E	#RECORD SEPARATOR
+0x1F	0x001F	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2A	0x002A	#ASTERISK
+0x2B	0x002B	#PLUS SIGN
+0x2C	0x002C	#COMMA
+0x2D	0x002D	#HYPHEN-MINUS
+0x2E	0x002E	#FULL STOP
+0x2F	0x002F	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3A	0x003A	#COLON
+0x3B	0x003B	#SEMICOLON
+0x3C	0x003C	#LESS-THAN SIGN
+0x3D	0x003D	#EQUALS SIGN
+0x3E	0x003E	#GREATER-THAN SIGN
+0x3F	0x003F	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4A	0x004A	#LATIN CAPITAL LETTER J
+0x4B	0x004B	#LATIN CAPITAL LETTER K
+0x4C	0x004C	#LATIN CAPITAL LETTER L
+0x4D	0x004D	#LATIN CAPITAL LETTER M
+0x4E	0x004E	#LATIN CAPITAL LETTER N
+0x4F	0x004F	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5A	0x005A	#LATIN CAPITAL LETTER Z
+0x5B	0x005B	#LEFT SQUARE BRACKET
+0x5C	0x005C	#REVERSE SOLIDUS
+0x5D	0x005D	#RIGHT SQUARE BRACKET
+0x5E	0x005E	#CIRCUMFLEX ACCENT
+0x5F	0x005F	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6A	0x006A	#LATIN SMALL LETTER J
+0x6B	0x006B	#LATIN SMALL LETTER K
+0x6C	0x006C	#LATIN SMALL LETTER L
+0x6D	0x006D	#LATIN SMALL LETTER M
+0x6E	0x006E	#LATIN SMALL LETTER N
+0x6F	0x006F	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7A	0x007A	#LATIN SMALL LETTER Z
+0x7B	0x007B	#LEFT CURLY BRACKET
+0x7C	0x007C	#VERTICAL LINE
+0x7D	0x007D	#RIGHT CURLY BRACKET
+0x7E	0x007E	#TILDE
+0x7F	0x007F	#DELETE
+0x80	0x0402	#CYRILLIC CAPITAL LETTER DJE
+0x81	0x0403	#CYRILLIC CAPITAL LETTER GJE
+0x82	0x201A	#SINGLE LOW-9 QUOTATION MARK
+0x83	0x0453	#CYRILLIC SMALL LETTER GJE
+0x84	0x201E	#DOUBLE LOW-9 QUOTATION MARK
+0x85	0x2026	#HORIZONTAL ELLIPSIS
+0x86	0x2020	#DAGGER
+0x87	0x2021	#DOUBLE DAGGER
+0x88	0x20AC	#EURO SIGN
+0x89	0x2030	#PER MILLE SIGN
+0x8A	0x0409	#CYRILLIC CAPITAL LETTER LJE
+0x8B	0x2039	#SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+0x8C	0x040A	#CYRILLIC CAPITAL LETTER NJE
+0x8D	0x040C	#CYRILLIC CAPITAL LETTER KJE
+0x8E	0x040B	#CYRILLIC CAPITAL LETTER TSHE
+0x8F	0x040F	#CYRILLIC CAPITAL LETTER DZHE
+0x90	0x0452	#CYRILLIC SMALL LETTER DJE
+0x91	0x2018	#LEFT SINGLE QUOTATION MARK
+0x92	0x2019	#RIGHT SINGLE QUOTATION MARK
+0x93	0x201C	#LEFT DOUBLE QUOTATION MARK
+0x94	0x201D	#RIGHT DOUBLE QUOTATION MARK
+0x95	0x2022	#BULLET
+0x96	0x2013	#EN DASH
+0x97	0x2014	#EM DASH
+0x98	      	#UNDEFINED
+0x99	0x2122	#TRADE MARK SIGN
+0x9A	0x0459	#CYRILLIC SMALL LETTER LJE
+0x9B	0x203A	#SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+0x9C	0x045A	#CYRILLIC SMALL LETTER NJE
+0x9D	0x045C	#CYRILLIC SMALL LETTER KJE
+0x9E	0x045B	#CYRILLIC SMALL LETTER TSHE
+0x9F	0x045F	#CYRILLIC SMALL LETTER DZHE
+0xA0	0x00A0	#NO-BREAK SPACE
+0xA1	0x040E	#CYRILLIC CAPITAL LETTER SHORT U
+0xA2	0x045E	#CYRILLIC SMALL LETTER SHORT U
+0xA3	0x0408	#CYRILLIC CAPITAL LETTER JE
+0xA4	0x00A4	#CURRENCY SIGN
+0xA5	0x0490	#CYRILLIC CAPITAL LETTER GHE WITH UPTURN
+0xA6	0x00A6	#BROKEN BAR
+0xA7	0x00A7	#SECTION SIGN
+0xA8	0x0401	#CYRILLIC CAPITAL LETTER IO
+0xA9	0x00A9	#COPYRIGHT SIGN
+0xAA	0x0404	#CYRILLIC CAPITAL LETTER UKRAINIAN IE
+0xAB	0x00AB	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xAC	0x00AC	#NOT SIGN
+0xAD	0x00AD	#SOFT HYPHEN
+0xAE	0x00AE	#REGISTERED SIGN
+0xAF	0x0407	#CYRILLIC CAPITAL LETTER YI
+0xB0	0x00B0	#DEGREE SIGN
+0xB1	0x00B1	#PLUS-MINUS SIGN
+0xB2	0x0406	#CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
+0xB3	0x0456	#CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
+0xB4	0x0491	#CYRILLIC SMALL LETTER GHE WITH UPTURN
+0xB5	0x00B5	#MICRO SIGN
+0xB6	0x00B6	#PILCROW SIGN
+0xB7	0x00B7	#MIDDLE DOT
+0xB8	0x0451	#CYRILLIC SMALL LETTER IO
+0xB9	0x2116	#NUMERO SIGN
+0xBA	0x0454	#CYRILLIC SMALL LETTER UKRAINIAN IE
+0xBB	0x00BB	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xBC	0x0458	#CYRILLIC SMALL LETTER JE
+0xBD	0x0405	#CYRILLIC CAPITAL LETTER DZE
+0xBE	0x0455	#CYRILLIC SMALL LETTER DZE
+0xBF	0x0457	#CYRILLIC SMALL LETTER YI
+0xC0	0x0410	#CYRILLIC CAPITAL LETTER A
+0xC1	0x0411	#CYRILLIC CAPITAL LETTER BE
+0xC2	0x0412	#CYRILLIC CAPITAL LETTER VE
+0xC3	0x0413	#CYRILLIC CAPITAL LETTER GHE
+0xC4	0x0414	#CYRILLIC CAPITAL LETTER DE
+0xC5	0x0415	#CYRILLIC CAPITAL LETTER IE
+0xC6	0x0416	#CYRILLIC CAPITAL LETTER ZHE
+0xC7	0x0417	#CYRILLIC CAPITAL LETTER ZE
+0xC8	0x0418	#CYRILLIC CAPITAL LETTER I
+0xC9	0x0419	#CYRILLIC CAPITAL LETTER SHORT I
+0xCA	0x041A	#CYRILLIC CAPITAL LETTER KA
+0xCB	0x041B	#CYRILLIC CAPITAL LETTER EL
+0xCC	0x041C	#CYRILLIC CAPITAL LETTER EM
+0xCD	0x041D	#CYRILLIC CAPITAL LETTER EN
+0xCE	0x041E	#CYRILLIC CAPITAL LETTER O
+0xCF	0x041F	#CYRILLIC CAPITAL LETTER PE
+0xD0	0x0420	#CYRILLIC CAPITAL LETTER ER
+0xD1	0x0421	#CYRILLIC CAPITAL LETTER ES
+0xD2	0x0422	#CYRILLIC CAPITAL LETTER TE
+0xD3	0x0423	#CYRILLIC CAPITAL LETTER U
+0xD4	0x0424	#CYRILLIC CAPITAL LETTER EF
+0xD5	0x0425	#CYRILLIC CAPITAL LETTER HA
+0xD6	0x0426	#CYRILLIC CAPITAL LETTER TSE
+0xD7	0x0427	#CYRILLIC CAPITAL LETTER CHE
+0xD8	0x0428	#CYRILLIC CAPITAL LETTER SHA
+0xD9	0x0429	#CYRILLIC CAPITAL LETTER SHCHA
+0xDA	0x042A	#CYRILLIC CAPITAL LETTER HARD SIGN
+0xDB	0x042B	#CYRILLIC CAPITAL LETTER YERU
+0xDC	0x042C	#CYRILLIC CAPITAL LETTER SOFT SIGN
+0xDD	0x042D	#CYRILLIC CAPITAL LETTER E
+0xDE	0x042E	#CYRILLIC CAPITAL LETTER YU
+0xDF	0x042F	#CYRILLIC CAPITAL LETTER YA
+0xE0	0x0430	#CYRILLIC SMALL LETTER A
+0xE1	0x0431	#CYRILLIC SMALL LETTER BE
+0xE2	0x0432	#CYRILLIC SMALL LETTER VE
+0xE3	0x0433	#CYRILLIC SMALL LETTER GHE
+0xE4	0x0434	#CYRILLIC SMALL LETTER DE
+0xE5	0x0435	#CYRILLIC SMALL LETTER IE
+0xE6	0x0436	#CYRILLIC SMALL LETTER ZHE
+0xE7	0x0437	#CYRILLIC SMALL LETTER ZE
+0xE8	0x0438	#CYRILLIC SMALL LETTER I
+0xE9	0x0439	#CYRILLIC SMALL LETTER SHORT I
+0xEA	0x043A	#CYRILLIC SMALL LETTER KA
+0xEB	0x043B	#CYRILLIC SMALL LETTER EL
+0xEC	0x043C	#CYRILLIC SMALL LETTER EM
+0xED	0x043D	#CYRILLIC SMALL LETTER EN
+0xEE	0x043E	#CYRILLIC SMALL LETTER O
+0xEF	0x043F	#CYRILLIC SMALL LETTER PE
+0xF0	0x0440	#CYRILLIC SMALL LETTER ER
+0xF1	0x0441	#CYRILLIC SMALL LETTER ES
+0xF2	0x0442	#CYRILLIC SMALL LETTER TE
+0xF3	0x0443	#CYRILLIC SMALL LETTER U
+0xF4	0x0444	#CYRILLIC SMALL LETTER EF
+0xF5	0x0445	#CYRILLIC SMALL LETTER HA
+0xF6	0x0446	#CYRILLIC SMALL LETTER TSE
+0xF7	0x0447	#CYRILLIC SMALL LETTER CHE
+0xF8	0x0448	#CYRILLIC SMALL LETTER SHA
+0xF9	0x0449	#CYRILLIC SMALL LETTER SHCHA
+0xFA	0x044A	#CYRILLIC SMALL LETTER HARD SIGN
+0xFB	0x044B	#CYRILLIC SMALL LETTER YERU
+0xFC	0x044C	#CYRILLIC SMALL LETTER SOFT SIGN
+0xFD	0x044D	#CYRILLIC SMALL LETTER E
+0xFE	0x044E	#CYRILLIC SMALL LETTER YU
+0xFF	0x044F	#CYRILLIC SMALL LETTER YA
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x0402 /*                   CYRILLIC CAPITAL LETTER DJE */ ,
+	/* 81 */ 0x0403 /*                   CYRILLIC CAPITAL LETTER GJE */ ,
+	/* 82 */ 0x201A /*                   SINGLE LOW-9 QUOTATION MARK */ ,
+	/* 83 */ 0x0453 /*                     CYRILLIC SMALL LETTER GJE */ ,
+	/* 84 */ 0x201E /*                   DOUBLE LOW-9 QUOTATION MARK */ ,
+	/* 85 */ 0x2026 /*                           HORIZONTAL ELLIPSIS */ ,
+	/* 86 */ 0x2020 /*                                        DAGGER */ ,
+	/* 87 */ 0x2021 /*                                 DOUBLE DAGGER */ ,
+	/* 88 */ 0x20AC /*                                     EURO SIGN */ ,
+	/* 89 */ 0x2030 /*                                PER MILLE SIGN */ ,
+	/* 8A */ 0x0409 /*                   CYRILLIC CAPITAL LETTER LJE */ ,
+	/* 8B */ 0x2039 /*     SINGLE LEFT-POINTING ANGLE QUOTATION MARK */ ,
+	/* 8C */ 0x040A /*                   CYRILLIC CAPITAL LETTER NJE */ ,
+	/* 8D */ 0x040C /*                   CYRILLIC CAPITAL LETTER KJE */ ,
+	/* 8E */ 0x040B /*                  CYRILLIC CAPITAL LETTER TSHE */ ,
+	/* 8F */ 0x040F /*                  CYRILLIC CAPITAL LETTER DZHE */ ,
+	/* 90 */ 0x0452 /*                     CYRILLIC SMALL LETTER DJE */ ,
+	/* 91 */ 0x2018 /*                    LEFT SINGLE QUOTATION MARK */ ,
+	/* 92 */ 0x2019 /*                   RIGHT SINGLE QUOTATION MARK */ ,
+	/* 93 */ 0x201C /*                    LEFT DOUBLE QUOTATION MARK */ ,
+	/* 94 */ 0x201D /*                   RIGHT DOUBLE QUOTATION MARK */ ,
+	/* 95 */ 0x2022 /*                                        BULLET */ ,
+	/* 96 */ 0x2013 /*                                       EN DASH */ ,
+	/* 97 */ 0x2014 /*                                       EM DASH */ ,
+/* 98 */ CANT_MAP_CHARACTER,
+	/* 99 */ 0x2122 /*                               TRADE MARK SIGN */ ,
+	/* 9A */ 0x0459 /*                     CYRILLIC SMALL LETTER LJE */ ,
+	/* 9B */ 0x203A /*    SINGLE RIGHT-POINTING ANGLE QUOTATION MARK */ ,
+	/* 9C */ 0x045A /*                     CYRILLIC SMALL LETTER NJE */ ,
+	/* 9D */ 0x045C /*                     CYRILLIC SMALL LETTER KJE */ ,
+	/* 9E */ 0x045B /*                    CYRILLIC SMALL LETTER TSHE */ ,
+	/* 9F */ 0x045F /*                    CYRILLIC SMALL LETTER DZHE */ ,
+	/* A0 */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+	/* A1 */ 0x040E /*               CYRILLIC CAPITAL LETTER SHORT U */ ,
+	/* A2 */ 0x045E /*                 CYRILLIC SMALL LETTER SHORT U */ ,
+	/* A3 */ 0x0408 /*                    CYRILLIC CAPITAL LETTER JE */ ,
+	/* A4 */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* A5 */ 0x0490 /*       CYRILLIC CAPITAL LETTER GHE WITH UPTURN */ ,
+	/* A6 */ 0x00A6 /*                                    BROKEN BAR */ ,
+	/* A7 */ 0x00A7 /*                                  SECTION SIGN */ ,
+	/* A8 */ 0x0401 /*                    CYRILLIC CAPITAL LETTER IO */ ,
+	/* A9 */ 0x00A9 /*                                COPYRIGHT SIGN */ ,
+	/* AA */ 0x0404 /*          CYRILLIC CAPITAL LETTER UKRAINIAN IE */ ,
+	/* AB */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AC */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AD */ 0x00AD /*                                   SOFT HYPHEN */ ,
+	/* AE */ 0x00AE /*                               REGISTERED SIGN */ ,
+	/* AF */ 0x0407 /*                    CYRILLIC CAPITAL LETTER YI */ ,
+	/* B0 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* B1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* B2 */ 0x0406 /* CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I */ ,
+	/* B3 */ 0x0456 /* CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I */ ,
+	/* B4 */ 0x0491 /*         CYRILLIC SMALL LETTER GHE WITH UPTURN */ ,
+	/* B5 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* B6 */ 0x00B6 /*                                  PILCROW SIGN */ ,
+	/* B7 */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* B8 */ 0x0451 /*                      CYRILLIC SMALL LETTER IO */ ,
+	/* B9 */ 0x2116 /*                                   NUMERO SIGN */ ,
+	/* BA */ 0x0454 /*            CYRILLIC SMALL LETTER UKRAINIAN IE */ ,
+	/* BB */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* BC */ 0x0458 /*                      CYRILLIC SMALL LETTER JE */ ,
+	/* BD */ 0x0405 /*                   CYRILLIC CAPITAL LETTER DZE */ ,
+	/* BE */ 0x0455 /*                     CYRILLIC SMALL LETTER DZE */ ,
+	/* BF */ 0x0457 /*                      CYRILLIC SMALL LETTER YI */ ,
+	/* C0 */ 0x0410 /*                     CYRILLIC CAPITAL LETTER A */ ,
+	/* C1 */ 0x0411 /*                    CYRILLIC CAPITAL LETTER BE */ ,
+	/* C2 */ 0x0412 /*                    CYRILLIC CAPITAL LETTER VE */ ,
+	/* C3 */ 0x0413 /*                   CYRILLIC CAPITAL LETTER GHE */ ,
+	/* C4 */ 0x0414 /*                    CYRILLIC CAPITAL LETTER DE */ ,
+	/* C5 */ 0x0415 /*                    CYRILLIC CAPITAL LETTER IE */ ,
+	/* C6 */ 0x0416 /*                   CYRILLIC CAPITAL LETTER ZHE */ ,
+	/* C7 */ 0x0417 /*                    CYRILLIC CAPITAL LETTER ZE */ ,
+	/* C8 */ 0x0418 /*                     CYRILLIC CAPITAL LETTER I */ ,
+	/* C9 */ 0x0419 /*               CYRILLIC CAPITAL LETTER SHORT I */ ,
+	/* CA */ 0x041A /*                    CYRILLIC CAPITAL LETTER KA */ ,
+	/* CB */ 0x041B /*                    CYRILLIC CAPITAL LETTER EL */ ,
+	/* CC */ 0x041C /*                    CYRILLIC CAPITAL LETTER EM */ ,
+	/* CD */ 0x041D /*                    CYRILLIC CAPITAL LETTER EN */ ,
+	/* CE */ 0x041E /*                     CYRILLIC CAPITAL LETTER O */ ,
+	/* CF */ 0x041F /*                    CYRILLIC CAPITAL LETTER PE */ ,
+	/* D0 */ 0x0420 /*                    CYRILLIC CAPITAL LETTER ER */ ,
+	/* D1 */ 0x0421 /*                    CYRILLIC CAPITAL LETTER ES */ ,
+	/* D2 */ 0x0422 /*                    CYRILLIC CAPITAL LETTER TE */ ,
+	/* D3 */ 0x0423 /*                     CYRILLIC CAPITAL LETTER U */ ,
+	/* D4 */ 0x0424 /*                    CYRILLIC CAPITAL LETTER EF */ ,
+	/* D5 */ 0x0425 /*                    CYRILLIC CAPITAL LETTER HA */ ,
+	/* D6 */ 0x0426 /*                   CYRILLIC CAPITAL LETTER TSE */ ,
+	/* D7 */ 0x0427 /*                   CYRILLIC CAPITAL LETTER CHE */ ,
+	/* D8 */ 0x0428 /*                   CYRILLIC CAPITAL LETTER SHA */ ,
+	/* D9 */ 0x0429 /*                 CYRILLIC CAPITAL LETTER SHCHA */ ,
+	/* DA */ 0x042A /*             CYRILLIC CAPITAL LETTER HARD SIGN */ ,
+	/* DB */ 0x042B /*                  CYRILLIC CAPITAL LETTER YERU */ ,
+	/* DC */ 0x042C /*             CYRILLIC CAPITAL LETTER SOFT SIGN */ ,
+	/* DD */ 0x042D /*                     CYRILLIC CAPITAL LETTER E */ ,
+	/* DE */ 0x042E /*                    CYRILLIC CAPITAL LETTER YU */ ,
+	/* DF */ 0x042F /*                    CYRILLIC CAPITAL LETTER YA */ ,
+	/* E0 */ 0x0430 /*                       CYRILLIC SMALL LETTER A */ ,
+	/* E1 */ 0x0431 /*                      CYRILLIC SMALL LETTER BE */ ,
+	/* E2 */ 0x0432 /*                      CYRILLIC SMALL LETTER VE */ ,
+	/* E3 */ 0x0433 /*                     CYRILLIC SMALL LETTER GHE */ ,
+	/* E4 */ 0x0434 /*                      CYRILLIC SMALL LETTER DE */ ,
+	/* E5 */ 0x0435 /*                      CYRILLIC SMALL LETTER IE */ ,
+	/* E6 */ 0x0436 /*                     CYRILLIC SMALL LETTER ZHE */ ,
+	/* E7 */ 0x0437 /*                      CYRILLIC SMALL LETTER ZE */ ,
+	/* E8 */ 0x0438 /*                       CYRILLIC SMALL LETTER I */ ,
+	/* E9 */ 0x0439 /*                 CYRILLIC SMALL LETTER SHORT I */ ,
+	/* EA */ 0x043A /*                      CYRILLIC SMALL LETTER KA */ ,
+	/* EB */ 0x043B /*                      CYRILLIC SMALL LETTER EL */ ,
+	/* EC */ 0x043C /*                      CYRILLIC SMALL LETTER EM */ ,
+	/* ED */ 0x043D /*                      CYRILLIC SMALL LETTER EN */ ,
+	/* EE */ 0x043E /*                       CYRILLIC SMALL LETTER O */ ,
+	/* EF */ 0x043F /*                      CYRILLIC SMALL LETTER PE */ ,
+	/* F0 */ 0x0440 /*                      CYRILLIC SMALL LETTER ER */ ,
+	/* F1 */ 0x0441 /*                      CYRILLIC SMALL LETTER ES */ ,
+	/* F2 */ 0x0442 /*                      CYRILLIC SMALL LETTER TE */ ,
+	/* F3 */ 0x0443 /*                       CYRILLIC SMALL LETTER U */ ,
+	/* F4 */ 0x0444 /*                      CYRILLIC SMALL LETTER EF */ ,
+	/* F5 */ 0x0445 /*                      CYRILLIC SMALL LETTER HA */ ,
+	/* F6 */ 0x0446 /*                     CYRILLIC SMALL LETTER TSE */ ,
+	/* F7 */ 0x0447 /*                     CYRILLIC SMALL LETTER CHE */ ,
+	/* F8 */ 0x0448 /*                     CYRILLIC SMALL LETTER SHA */ ,
+	/* F9 */ 0x0449 /*                   CYRILLIC SMALL LETTER SHCHA */ ,
+	/* FA */ 0x044A /*               CYRILLIC SMALL LETTER HARD SIGN */ ,
+	/* FB */ 0x044B /*                    CYRILLIC SMALL LETTER YERU */ ,
+	/* FC */ 0x044C /*               CYRILLIC SMALL LETTER SOFT SIGN */ ,
+	/* FD */ 0x044D /*                       CYRILLIC SMALL LETTER E */ ,
+	/* FE */ 0x044E /*                      CYRILLIC SMALL LETTER YU */ ,
+	/* FF */ 0x044F /*                      CYRILLIC SMALL LETTER YA */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xA0 /*                                NO-BREAK SPACE */ ,	/* 416 */
+										/* U+00A1 */ CANT_MAP_CHARACTER,
+										/* 417 */
+										/* U+00A2 */ CANT_MAP_CHARACTER,
+										/* 418 */
+										/* U+00A3 */ CANT_MAP_CHARACTER,
+										/* 419 */
+	/* U+00A4 */ 0xA4 /*                                 CURRENCY SIGN */ ,	/* 420 */
+										/* U+00A5 */ CANT_MAP_CHARACTER,
+										/* 421 */
+	/* U+00A6 */ 0xA6 /*                                    BROKEN BAR */ ,	/* 422 */
+	/* U+00A7 */ 0xA7 /*                                  SECTION SIGN */ ,	/* 423 */
+										/* U+00A8 */ CANT_MAP_CHARACTER,
+										/* 424 */
+	/* U+00A9 */ 0xA9 /*                                COPYRIGHT SIGN */ ,	/* 425 */
+										/* U+00AA */ CANT_MAP_CHARACTER,
+										/* 426 */
+	/* U+00AB */ 0xAB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAC /*                                      NOT SIGN */ ,	/* 428 */
+	/* U+00AD */ 0xAD /*                                   SOFT HYPHEN */ ,	/* 429 */
+	/* U+00AE */ 0xAE /*                               REGISTERED SIGN */ ,	/* 430 */
+										/* U+00AF */ CANT_MAP_CHARACTER,
+										/* 431 */
+	/* U+00B0 */ 0xB0 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xB1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+										/* U+00B2 */ CANT_MAP_CHARACTER,
+										/* 434 */
+										/* U+00B3 */ CANT_MAP_CHARACTER,
+										/* 435 */
+										/* U+00B4 */ CANT_MAP_CHARACTER,
+										/* 436 */
+	/* U+00B5 */ 0xB5 /*                                    MICRO SIGN */ ,	/* 437 */
+	/* U+00B6 */ 0xB6 /*                                  PILCROW SIGN */ ,	/* 438 */
+	/* U+00B7 */ 0xB7 /*                                    MIDDLE DOT */ ,	/* 439 */
+										/* U+00B8 */ CANT_MAP_CHARACTER,
+										/* 440 */
+										/* U+00B9 */ CANT_MAP_CHARACTER,
+										/* 441 */
+										/* U+00BA */ CANT_MAP_CHARACTER,
+										/* 442 */
+	/* U+00BB */ 0xBB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+										/* U+00BC */ CANT_MAP_CHARACTER,
+										/* 444 */
+										/* U+00BD */ CANT_MAP_CHARACTER,
+										/* 445 */
+										/* U+00BE */ CANT_MAP_CHARACTER,
+										/* 446 */
+										/* U+00BF */ CANT_MAP_CHARACTER,
+										/* 447 */
+										/* U+00C0 */ CANT_MAP_CHARACTER,
+										/* 448 */
+										/* U+00C1 */ CANT_MAP_CHARACTER,
+										/* 449 */
+										/* U+00C2 */ CANT_MAP_CHARACTER,
+										/* 450 */
+										/* U+00C3 */ CANT_MAP_CHARACTER,
+										/* 451 */
+										/* U+00C4 */ CANT_MAP_CHARACTER,
+										/* 452 */
+										/* U+00C5 */ CANT_MAP_CHARACTER,
+										/* 453 */
+										/* U+00C6 */ CANT_MAP_CHARACTER,
+										/* 454 */
+										/* U+00C7 */ CANT_MAP_CHARACTER,
+										/* 455 */
+										/* U+00C8 */ CANT_MAP_CHARACTER,
+										/* 456 */
+										/* U+00C9 */ CANT_MAP_CHARACTER,
+										/* 457 */
+										/* U+00CA */ CANT_MAP_CHARACTER,
+										/* 458 */
+										/* U+00CB */ CANT_MAP_CHARACTER,
+										/* 459 */
+										/* U+00CC */ CANT_MAP_CHARACTER,
+										/* 460 */
+										/* U+00CD */ CANT_MAP_CHARACTER,
+										/* 461 */
+										/* U+00CE */ CANT_MAP_CHARACTER,
+										/* 462 */
+										/* U+00CF */ CANT_MAP_CHARACTER,
+										/* 463 */
+										/* U+00D0 */ CANT_MAP_CHARACTER,
+										/* 464 */
+										/* U+00D1 */ CANT_MAP_CHARACTER,
+										/* 465 */
+										/* U+00D2 */ CANT_MAP_CHARACTER,
+										/* 466 */
+										/* U+00D3 */ CANT_MAP_CHARACTER,
+										/* 467 */
+										/* U+00D4 */ CANT_MAP_CHARACTER,
+										/* 468 */
+										/* U+00D5 */ CANT_MAP_CHARACTER,
+										/* 469 */
+										/* U+00D6 */ CANT_MAP_CHARACTER,
+										/* 470 */
+										/* U+00D7 */ CANT_MAP_CHARACTER,
+										/* 471 */
+										/* U+00D8 */ CANT_MAP_CHARACTER,
+										/* 472 */
+										/* U+00D9 */ CANT_MAP_CHARACTER,
+										/* 473 */
+										/* U+00DA */ CANT_MAP_CHARACTER,
+										/* 474 */
+										/* U+00DB */ CANT_MAP_CHARACTER,
+										/* 475 */
+										/* U+00DC */ CANT_MAP_CHARACTER,
+										/* 476 */
+										/* U+00DD */ CANT_MAP_CHARACTER,
+										/* 477 */
+										/* U+00DE */ CANT_MAP_CHARACTER,
+										/* 478 */
+										/* U+00DF */ CANT_MAP_CHARACTER,
+										/* 479 */
+										/* U+00E0 */ CANT_MAP_CHARACTER,
+										/* 480 */
+										/* U+00E1 */ CANT_MAP_CHARACTER,
+										/* 481 */
+										/* U+00E2 */ CANT_MAP_CHARACTER,
+										/* 482 */
+										/* U+00E3 */ CANT_MAP_CHARACTER,
+										/* 483 */
+										/* U+00E4 */ CANT_MAP_CHARACTER,
+										/* 484 */
+										/* U+00E5 */ CANT_MAP_CHARACTER,
+										/* 485 */
+										/* U+00E6 */ CANT_MAP_CHARACTER,
+										/* 486 */
+										/* U+00E7 */ CANT_MAP_CHARACTER,
+										/* 487 */
+										/* U+00E8 */ CANT_MAP_CHARACTER,
+										/* 488 */
+										/* U+00E9 */ CANT_MAP_CHARACTER,
+										/* 489 */
+										/* U+00EA */ CANT_MAP_CHARACTER,
+										/* 490 */
+										/* U+00EB */ CANT_MAP_CHARACTER,
+										/* 491 */
+										/* U+00EC */ CANT_MAP_CHARACTER,
+										/* 492 */
+										/* U+00ED */ CANT_MAP_CHARACTER,
+										/* 493 */
+										/* U+00EE */ CANT_MAP_CHARACTER,
+										/* 494 */
+										/* U+00EF */ CANT_MAP_CHARACTER,
+										/* 495 */
+										/* U+00F0 */ CANT_MAP_CHARACTER,
+										/* 496 */
+										/* U+00F1 */ CANT_MAP_CHARACTER,
+										/* 497 */
+										/* U+00F2 */ CANT_MAP_CHARACTER,
+										/* 498 */
+										/* U+00F3 */ CANT_MAP_CHARACTER,
+										/* 499 */
+										/* U+00F4 */ CANT_MAP_CHARACTER,
+										/* 500 */
+										/* U+00F5 */ CANT_MAP_CHARACTER,
+										/* 501 */
+										/* U+00F6 */ CANT_MAP_CHARACTER,
+										/* 502 */
+										/* U+00F7 */ CANT_MAP_CHARACTER,
+										/* 503 */
+										/* U+00F8 */ CANT_MAP_CHARACTER,
+										/* 504 */
+										/* U+00F9 */ CANT_MAP_CHARACTER,
+										/* 505 */
+										/* U+00FA */ CANT_MAP_CHARACTER,
+										/* 506 */
+										/* U+00FB */ CANT_MAP_CHARACTER,
+										/* 507 */
+										/* U+00FC */ CANT_MAP_CHARACTER,
+										/* 508 */
+										/* U+00FD */ CANT_MAP_CHARACTER,
+										/* 509 */
+										/* U+00FE */ CANT_MAP_CHARACTER,
+										/* 510 */
+										/* U+00FF */ CANT_MAP_CHARACTER,
+										/* 511 */
+										/* U+0400 */ CANT_MAP_CHARACTER,
+										/* 512 */
+	/* U+0401 */ 0xA8 /*                    CYRILLIC CAPITAL LETTER IO */ ,	/* 513 */
+	/* U+0402 */ 0x80 /*                   CYRILLIC CAPITAL LETTER DJE */ ,	/* 514 */
+	/* U+0403 */ 0x81 /*                   CYRILLIC CAPITAL LETTER GJE */ ,	/* 515 */
+	/* U+0404 */ 0xAA /*          CYRILLIC CAPITAL LETTER UKRAINIAN IE */ ,	/* 516 */
+	/* U+0405 */ 0xBD /*                   CYRILLIC CAPITAL LETTER DZE */ ,	/* 517 */
+	/* U+0406 */ 0xB2 /* CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I */ ,	/* 518 */
+	/* U+0407 */ 0xAF /*                    CYRILLIC CAPITAL LETTER YI */ ,	/* 519 */
+	/* U+0408 */ 0xA3 /*                    CYRILLIC CAPITAL LETTER JE */ ,	/* 520 */
+	/* U+0409 */ 0x8A /*                   CYRILLIC CAPITAL LETTER LJE */ ,	/* 521 */
+	/* U+040A */ 0x8C /*                   CYRILLIC CAPITAL LETTER NJE */ ,	/* 522 */
+	/* U+040B */ 0x8E /*                  CYRILLIC CAPITAL LETTER TSHE */ ,	/* 523 */
+	/* U+040C */ 0x8D /*                   CYRILLIC CAPITAL LETTER KJE */ ,	/* 524 */
+										/* U+040D */ CANT_MAP_CHARACTER,
+										/* 525 */
+	/* U+040E */ 0xA1 /*               CYRILLIC CAPITAL LETTER SHORT U */ ,	/* 526 */
+	/* U+040F */ 0x8F /*                  CYRILLIC CAPITAL LETTER DZHE */ ,	/* 527 */
+	/* U+0410 */ 0xC0 /*                     CYRILLIC CAPITAL LETTER A */ ,	/* 528 */
+	/* U+0411 */ 0xC1 /*                    CYRILLIC CAPITAL LETTER BE */ ,	/* 529 */
+	/* U+0412 */ 0xC2 /*                    CYRILLIC CAPITAL LETTER VE */ ,	/* 530 */
+	/* U+0413 */ 0xC3 /*                   CYRILLIC CAPITAL LETTER GHE */ ,	/* 531 */
+	/* U+0414 */ 0xC4 /*                    CYRILLIC CAPITAL LETTER DE */ ,	/* 532 */
+	/* U+0415 */ 0xC5 /*                    CYRILLIC CAPITAL LETTER IE */ ,	/* 533 */
+	/* U+0416 */ 0xC6 /*                   CYRILLIC CAPITAL LETTER ZHE */ ,	/* 534 */
+	/* U+0417 */ 0xC7 /*                    CYRILLIC CAPITAL LETTER ZE */ ,	/* 535 */
+	/* U+0418 */ 0xC8 /*                     CYRILLIC CAPITAL LETTER I */ ,	/* 536 */
+	/* U+0419 */ 0xC9 /*               CYRILLIC CAPITAL LETTER SHORT I */ ,	/* 537 */
+	/* U+041A */ 0xCA /*                    CYRILLIC CAPITAL LETTER KA */ ,	/* 538 */
+	/* U+041B */ 0xCB /*                    CYRILLIC CAPITAL LETTER EL */ ,	/* 539 */
+	/* U+041C */ 0xCC /*                    CYRILLIC CAPITAL LETTER EM */ ,	/* 540 */
+	/* U+041D */ 0xCD /*                    CYRILLIC CAPITAL LETTER EN */ ,	/* 541 */
+	/* U+041E */ 0xCE /*                     CYRILLIC CAPITAL LETTER O */ ,	/* 542 */
+	/* U+041F */ 0xCF /*                    CYRILLIC CAPITAL LETTER PE */ ,	/* 543 */
+	/* U+0420 */ 0xD0 /*                    CYRILLIC CAPITAL LETTER ER */ ,	/* 544 */
+	/* U+0421 */ 0xD1 /*                    CYRILLIC CAPITAL LETTER ES */ ,	/* 545 */
+	/* U+0422 */ 0xD2 /*                    CYRILLIC CAPITAL LETTER TE */ ,	/* 546 */
+	/* U+0423 */ 0xD3 /*                     CYRILLIC CAPITAL LETTER U */ ,	/* 547 */
+	/* U+0424 */ 0xD4 /*                    CYRILLIC CAPITAL LETTER EF */ ,	/* 548 */
+	/* U+0425 */ 0xD5 /*                    CYRILLIC CAPITAL LETTER HA */ ,	/* 549 */
+	/* U+0426 */ 0xD6 /*                   CYRILLIC CAPITAL LETTER TSE */ ,	/* 550 */
+	/* U+0427 */ 0xD7 /*                   CYRILLIC CAPITAL LETTER CHE */ ,	/* 551 */
+	/* U+0428 */ 0xD8 /*                   CYRILLIC CAPITAL LETTER SHA */ ,	/* 552 */
+	/* U+0429 */ 0xD9 /*                 CYRILLIC CAPITAL LETTER SHCHA */ ,	/* 553 */
+	/* U+042A */ 0xDA /*             CYRILLIC CAPITAL LETTER HARD SIGN */ ,	/* 554 */
+	/* U+042B */ 0xDB /*                  CYRILLIC CAPITAL LETTER YERU */ ,	/* 555 */
+	/* U+042C */ 0xDC /*             CYRILLIC CAPITAL LETTER SOFT SIGN */ ,	/* 556 */
+	/* U+042D */ 0xDD /*                     CYRILLIC CAPITAL LETTER E */ ,	/* 557 */
+	/* U+042E */ 0xDE /*                    CYRILLIC CAPITAL LETTER YU */ ,	/* 558 */
+	/* U+042F */ 0xDF /*                    CYRILLIC CAPITAL LETTER YA */ ,	/* 559 */
+	/* U+0430 */ 0xE0 /*                       CYRILLIC SMALL LETTER A */ ,	/* 560 */
+	/* U+0431 */ 0xE1 /*                      CYRILLIC SMALL LETTER BE */ ,	/* 561 */
+	/* U+0432 */ 0xE2 /*                      CYRILLIC SMALL LETTER VE */ ,	/* 562 */
+	/* U+0433 */ 0xE3 /*                     CYRILLIC SMALL LETTER GHE */ ,	/* 563 */
+	/* U+0434 */ 0xE4 /*                      CYRILLIC SMALL LETTER DE */ ,	/* 564 */
+	/* U+0435 */ 0xE5 /*                      CYRILLIC SMALL LETTER IE */ ,	/* 565 */
+	/* U+0436 */ 0xE6 /*                     CYRILLIC SMALL LETTER ZHE */ ,	/* 566 */
+	/* U+0437 */ 0xE7 /*                      CYRILLIC SMALL LETTER ZE */ ,	/* 567 */
+	/* U+0438 */ 0xE8 /*                       CYRILLIC SMALL LETTER I */ ,	/* 568 */
+	/* U+0439 */ 0xE9 /*                 CYRILLIC SMALL LETTER SHORT I */ ,	/* 569 */
+	/* U+043A */ 0xEA /*                      CYRILLIC SMALL LETTER KA */ ,	/* 570 */
+	/* U+043B */ 0xEB /*                      CYRILLIC SMALL LETTER EL */ ,	/* 571 */
+	/* U+043C */ 0xEC /*                      CYRILLIC SMALL LETTER EM */ ,	/* 572 */
+	/* U+043D */ 0xED /*                      CYRILLIC SMALL LETTER EN */ ,	/* 573 */
+	/* U+043E */ 0xEE /*                       CYRILLIC SMALL LETTER O */ ,	/* 574 */
+	/* U+043F */ 0xEF /*                      CYRILLIC SMALL LETTER PE */ ,	/* 575 */
+	/* U+0440 */ 0xF0 /*                      CYRILLIC SMALL LETTER ER */ ,	/* 576 */
+	/* U+0441 */ 0xF1 /*                      CYRILLIC SMALL LETTER ES */ ,	/* 577 */
+	/* U+0442 */ 0xF2 /*                      CYRILLIC SMALL LETTER TE */ ,	/* 578 */
+	/* U+0443 */ 0xF3 /*                       CYRILLIC SMALL LETTER U */ ,	/* 579 */
+	/* U+0444 */ 0xF4 /*                      CYRILLIC SMALL LETTER EF */ ,	/* 580 */
+	/* U+0445 */ 0xF5 /*                      CYRILLIC SMALL LETTER HA */ ,	/* 581 */
+	/* U+0446 */ 0xF6 /*                     CYRILLIC SMALL LETTER TSE */ ,	/* 582 */
+	/* U+0447 */ 0xF7 /*                     CYRILLIC SMALL LETTER CHE */ ,	/* 583 */
+	/* U+0448 */ 0xF8 /*                     CYRILLIC SMALL LETTER SHA */ ,	/* 584 */
+	/* U+0449 */ 0xF9 /*                   CYRILLIC SMALL LETTER SHCHA */ ,	/* 585 */
+	/* U+044A */ 0xFA /*               CYRILLIC SMALL LETTER HARD SIGN */ ,	/* 586 */
+	/* U+044B */ 0xFB /*                    CYRILLIC SMALL LETTER YERU */ ,	/* 587 */
+	/* U+044C */ 0xFC /*               CYRILLIC SMALL LETTER SOFT SIGN */ ,	/* 588 */
+	/* U+044D */ 0xFD /*                       CYRILLIC SMALL LETTER E */ ,	/* 589 */
+	/* U+044E */ 0xFE /*                      CYRILLIC SMALL LETTER YU */ ,	/* 590 */
+	/* U+044F */ 0xFF /*                      CYRILLIC SMALL LETTER YA */ ,	/* 591 */
+										/* U+0450 */ CANT_MAP_CHARACTER,
+										/* 592 */
+	/* U+0451 */ 0xB8 /*                      CYRILLIC SMALL LETTER IO */ ,	/* 593 */
+	/* U+0452 */ 0x90 /*                     CYRILLIC SMALL LETTER DJE */ ,	/* 594 */
+	/* U+0453 */ 0x83 /*                     CYRILLIC SMALL LETTER GJE */ ,	/* 595 */
+	/* U+0454 */ 0xBA /*            CYRILLIC SMALL LETTER UKRAINIAN IE */ ,	/* 596 */
+	/* U+0455 */ 0xBE /*                     CYRILLIC SMALL LETTER DZE */ ,	/* 597 */
+	/* U+0456 */ 0xB3 /* CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I */ ,	/* 598 */
+	/* U+0457 */ 0xBF /*                      CYRILLIC SMALL LETTER YI */ ,	/* 599 */
+	/* U+0458 */ 0xBC /*                      CYRILLIC SMALL LETTER JE */ ,	/* 600 */
+	/* U+0459 */ 0x9A /*                     CYRILLIC SMALL LETTER LJE */ ,	/* 601 */
+	/* U+045A */ 0x9C /*                     CYRILLIC SMALL LETTER NJE */ ,	/* 602 */
+	/* U+045B */ 0x9E /*                    CYRILLIC SMALL LETTER TSHE */ ,	/* 603 */
+	/* U+045C */ 0x9D /*                     CYRILLIC SMALL LETTER KJE */ ,	/* 604 */
+										/* U+045D */ CANT_MAP_CHARACTER,
+										/* 605 */
+	/* U+045E */ 0xA2 /*                 CYRILLIC SMALL LETTER SHORT U */ ,	/* 606 */
+	/* U+045F */ 0x9F /*                    CYRILLIC SMALL LETTER DZHE */ ,	/* 607 */
+										/* U+0460 */ CANT_MAP_CHARACTER,
+										/* 608 */
+										/* U+0461 */ CANT_MAP_CHARACTER,
+										/* 609 */
+										/* U+0462 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0463 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0464 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0465 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0466 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0467 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0468 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0469 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+046A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+046B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+046C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+046D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+046E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+046F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0470 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0471 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0472 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0473 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0474 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0475 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0476 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0477 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0478 */ CANT_MAP_CHARACTER,
+										/* 632 */
+										/* U+0479 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+047A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+047B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+047C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+047D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+047E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+047F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0480 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0481 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0482 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0483 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0484 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0485 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0486 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0487 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0488 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0489 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+048A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+048B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+048C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+048D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+048E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+048F */ CANT_MAP_CHARACTER,
+										/* 655 */
+	/* U+0490 */ 0xA5 /*       CYRILLIC CAPITAL LETTER GHE WITH UPTURN */ ,	/* 656 */
+	/* U+0491 */ 0xB4 /*         CYRILLIC SMALL LETTER GHE WITH UPTURN */ ,	/* 657 */
+										/* U+0492 */ CANT_MAP_CHARACTER,
+										/* 658 */
+										/* U+0493 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0494 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0495 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0496 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0497 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0498 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0499 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+049A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+049B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+049C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+049D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+049E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+049F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+04A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+04A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+04A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+04A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+04A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+04A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+04A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+04A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+04A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+04A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+04AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+04AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+04AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+04AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+04AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+04AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+04B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+04B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+04B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+04B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+04B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+04B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+04B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+04B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+04B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+04B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+04BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+04BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+04BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+04BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+04BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+04BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+04C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+04C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+04C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+04C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+04C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+04C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+04C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+04C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+04C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+04C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+04CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+04CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+04CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+04CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+04CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+04CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+04D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+04D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+04D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+04D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+04D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+04D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+04D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+04D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+04D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+04D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+04DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+04DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+04DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+04DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+04DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+04DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+04E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+04E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+04E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+04E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+04E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+04E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+04E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+04E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+04E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+04E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+04EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+04EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+04EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+04ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+04EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+04EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+04F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+04F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+04F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+04F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+04F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+04F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+04F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+04F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+04F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+04F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+04FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+04FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+04FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+04FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+04FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+04FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 786 */
+	/* U+2013 */ 0x96 /*                                       EN DASH */ ,	/* 787 */
+	/* U+2014 */ 0x97 /*                                       EM DASH */ ,	/* 788 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+2017 */ CANT_MAP_CHARACTER,
+										/* 791 */
+	/* U+2018 */ 0x91 /*                    LEFT SINGLE QUOTATION MARK */ ,	/* 792 */
+	/* U+2019 */ 0x92 /*                   RIGHT SINGLE QUOTATION MARK */ ,	/* 793 */
+	/* U+201A */ 0x82 /*                   SINGLE LOW-9 QUOTATION MARK */ ,	/* 794 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 795 */
+	/* U+201C */ 0x93 /*                    LEFT DOUBLE QUOTATION MARK */ ,	/* 796 */
+	/* U+201D */ 0x94 /*                   RIGHT DOUBLE QUOTATION MARK */ ,	/* 797 */
+	/* U+201E */ 0x84 /*                   DOUBLE LOW-9 QUOTATION MARK */ ,	/* 798 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 799 */
+	/* U+2020 */ 0x86 /*                                        DAGGER */ ,	/* 800 */
+	/* U+2021 */ 0x87 /*                                 DOUBLE DAGGER */ ,	/* 801 */
+	/* U+2022 */ 0x95 /*                                        BULLET */ ,	/* 802 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 805 */
+	/* U+2026 */ 0x85 /*                           HORIZONTAL ELLIPSIS */ ,	/* 806 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 815 */
+	/* U+2030 */ 0x89 /*                                PER MILLE SIGN */ ,	/* 816 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 824 */
+	/* U+2039 */ 0x8B /*     SINGLE LEFT-POINTING ANGLE QUOTATION MARK */ ,	/* 825 */
+	/* U+203A */ 0x9B /*    SINGLE RIGHT-POINTING ANGLE QUOTATION MARK */ ,	/* 826 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+207F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 914 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 915 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 919 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 920 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 931 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 934 */
+										/* U+20A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 937 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+	/* U+20AC */ 0x88 /*                                     EURO SIGN */ ,	/* 940 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 945 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 948 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 949 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 960 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 963 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 964 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 966 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 967 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 987 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 988 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+										/* U+2100 */ CANT_MAP_CHARACTER,
+										/* 1024 */
+										/* U+2101 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+										/* U+2102 */ CANT_MAP_CHARACTER,
+										/* 1026 */
+										/* U+2103 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2104 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2105 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2106 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2107 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2108 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2109 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+210A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+210B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+										/* U+210C */ CANT_MAP_CHARACTER,
+										/* 1036 */
+										/* U+210D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+210E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+210F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+										/* U+2110 */ CANT_MAP_CHARACTER,
+										/* 1040 */
+										/* U+2111 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2112 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+										/* U+2113 */ CANT_MAP_CHARACTER,
+										/* 1043 */
+										/* U+2114 */ CANT_MAP_CHARACTER,
+										/* 1044 */
+										/* U+2115 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+	/* U+2116 */ 0xB9 /*                                   NUMERO SIGN */ ,	/* 1046 */
+										/* U+2117 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+										/* U+2118 */ CANT_MAP_CHARACTER,
+										/* 1048 */
+										/* U+2119 */ CANT_MAP_CHARACTER,
+										/* 1049 */
+										/* U+211A */ CANT_MAP_CHARACTER,
+										/* 1050 */
+										/* U+211B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+										/* U+211C */ CANT_MAP_CHARACTER,
+										/* 1052 */
+										/* U+211D */ CANT_MAP_CHARACTER,
+										/* 1053 */
+										/* U+211E */ CANT_MAP_CHARACTER,
+										/* 1054 */
+										/* U+211F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+										/* U+2120 */ CANT_MAP_CHARACTER,
+										/* 1056 */
+										/* U+2121 */ CANT_MAP_CHARACTER,
+										/* 1057 */
+	/* U+2122 */ 0x99 /*                               TRADE MARK SIGN */ ,	/* 1058 */
+										/* U+2123 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+										/* U+2124 */ CANT_MAP_CHARACTER,
+										/* 1060 */
+										/* U+2125 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+										/* U+2126 */ CANT_MAP_CHARACTER,
+										/* 1062 */
+										/* U+2127 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2128 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2129 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+212A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+212B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+										/* U+212C */ CANT_MAP_CHARACTER,
+										/* 1068 */
+										/* U+212D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+212E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+212F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+										/* U+2130 */ CANT_MAP_CHARACTER,
+										/* 1072 */
+										/* U+2131 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2132 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2133 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+										/* U+2134 */ CANT_MAP_CHARACTER,
+										/* 1076 */
+										/* U+2135 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2136 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2137 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2138 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+										/* U+2139 */ CANT_MAP_CHARACTER,
+										/* 1081 */
+										/* U+213A */ CANT_MAP_CHARACTER,
+										/* 1082 */
+										/* U+213B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+										/* U+213C */ CANT_MAP_CHARACTER,
+										/* 1084 */
+										/* U+213D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+213E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+213F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2140 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2141 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2142 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2143 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2144 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2145 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2146 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2147 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2148 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2149 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+214A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+214B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+214C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+214D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+214E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+214F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+										/* U+2150 */ CANT_MAP_CHARACTER,
+										/* 1104 */
+										/* U+2151 */ CANT_MAP_CHARACTER,
+										/* 1105 */
+										/* U+2152 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2153 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+										/* U+2154 */ CANT_MAP_CHARACTER,
+										/* 1108 */
+										/* U+2155 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2156 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+										/* U+2157 */ CANT_MAP_CHARACTER,
+										/* 1111 */
+										/* U+2158 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2159 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+										/* U+215A */ CANT_MAP_CHARACTER,
+										/* 1114 */
+										/* U+215B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+215C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+										/* U+215D */ CANT_MAP_CHARACTER,
+										/* 1117 */
+										/* U+215E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+215F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+										/* U+2160 */ CANT_MAP_CHARACTER,
+										/* 1120 */
+										/* U+2161 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2162 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+										/* U+2163 */ CANT_MAP_CHARACTER,
+										/* 1123 */
+										/* U+2164 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2165 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+										/* U+2166 */ CANT_MAP_CHARACTER,
+										/* 1126 */
+										/* U+2167 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2168 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+										/* U+2169 */ CANT_MAP_CHARACTER,
+										/* 1129 */
+										/* U+216A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+216B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+										/* U+216C */ CANT_MAP_CHARACTER,
+										/* 1132 */
+										/* U+216D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+216E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+216F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2170 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2171 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2172 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2173 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2174 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2175 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2176 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2177 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2178 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2179 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+217A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+217B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+217C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+217D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+217E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+										/* U+217F */ CANT_MAP_CHARACTER,
+										/* 1151 */
+										/* U+2180 */ CANT_MAP_CHARACTER,
+										/* 1152 */
+										/* U+2181 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2182 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2183 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+										/* U+2184 */ CANT_MAP_CHARACTER,
+										/* 1156 */
+										/* U+2185 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2186 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2187 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+										/* U+2188 */ CANT_MAP_CHARACTER,
+										/* 1160 */
+										/* U+2189 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+218A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+218B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+218C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+218D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+218E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+218F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2190 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+										/* U+2191 */ CANT_MAP_CHARACTER,
+										/* 1169 */
+										/* U+2192 */ CANT_MAP_CHARACTER,
+										/* 1170 */
+										/* U+2193 */ CANT_MAP_CHARACTER,
+										/* 1171 */
+										/* U+2194 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2195 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2196 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2197 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2198 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2199 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+219A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+219B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+219C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+219D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+219E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+219F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+										/* U+21A0 */ CANT_MAP_CHARACTER,
+										/* 1184 */
+										/* U+21A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+21A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+21A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+21A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+21A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+21A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+										/* U+21A7 */ CANT_MAP_CHARACTER,
+										/* 1191 */
+										/* U+21A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+21A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+21AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+21AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+										/* U+21AC */ CANT_MAP_CHARACTER,
+										/* 1196 */
+										/* U+21AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+21AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+21AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+21B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+21B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+21B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+21B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+21B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+21B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+21B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+21B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+21B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+21B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+21BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+21BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+21BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+21BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+21BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+21BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+21C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+21C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+21C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+21C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+21C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+21C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+21C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+21C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+21C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+21C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+21CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+21CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+21CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+21CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+21CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+21CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+21D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+21D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+21D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+21D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+21D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+21D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+21D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+21D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+21D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+21D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+21DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+21DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+21DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+21DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+21DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+21DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+21E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+21E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+21E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+21E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+21E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+21E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+21E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+21E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+21E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+21E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+21EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+21EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+21EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+21ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+21EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+21EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+21F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+21F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+21F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+21F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+21F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+21F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+21F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+21F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+21F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+21F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+21FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+21FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+21FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+21FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+21FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+21FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 0,
+/* U+02-- */ 0,
+/* U+03-- */ 0,
+/* U+04-- */ 512,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 768,
+/* U+21-- */ 1024,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 0,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_gb2312.c b/src/intl/cs_gb2312.c
new file mode 100644
index 0000000000..58198ef953
--- /dev/null
+++ b/src/intl/cs_gb2312.c
@@ -0,0 +1,56 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		cs_gb2312.c
+ *	DESCRIPTION:	Character Set definitions for GB2312 family.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+
+extern USHORT CVGB_gb2312_to_unicode();
+extern USHORT CVGB_unicode_to_gb2312();
+extern USHORT CVGB_check_gb2312();
+extern void CV_convert_init();
+
+
+CHARSET_ENTRY(CS_gb_2312)
+{
+#include "../intl/cs_gb2312.h"
+	static CONST ASCII POSIX[] = "GB_2312";
+
+	csptr->charset_version = 40;
+	csptr->charset_id = CS_GB2312;
+	csptr->charset_name = POSIX;
+	csptr->charset_flags = 0;
+	csptr->charset_min_bytes_per_char = 1;
+	csptr->charset_max_bytes_per_char = 2;
+	csptr->charset_space_length = 1;
+	csptr->charset_space_character = (BYTE *) " ";	/* 0x20 */
+	csptr->charset_well_formed = (FPTR_SHORT) CVGB_check_gb2312;
+
+	CV_convert_init(&csptr->charset_to_unicode, CS_UNICODE, CS_GB2312,
+					CVGB_gb2312_to_unicode, to_unicode_mapping_array,
+					to_unicode_map);
+	CV_convert_init(&csptr->charset_from_unicode, CS_GB2312, CS_UNICODE,
+					CVGB_unicode_to_gb2312, from_unicode_mapping_array,
+					from_unicode_map);
+
+	CHARSET_RETURN;
+}
diff --git a/src/intl/cs_gb2312.h b/src/intl/cs_gb2312.h
new file mode 100644
index 0000000000..3a726dd4f0
--- /dev/null
+++ b/src/intl/cs_gb2312.h
@@ -0,0 +1,46935 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen4.c
+     mapgen4 -condense -euc asia/GB/GB2312.TXT 
+
+    Unicode mapping table generated from file asia/GB/GB2312.TXT 
+
+#
+#	Name:             GB2312-80 to Unicode table (complete,hex format)
+#	Unicode version:  1.1
+#	Table version:    0.0d2
+#	Table format:     Format A
+#	Date:             6 December 1993
+#	Author:           Glenn Adams <glenn@metis.com>
+#                     John H. Jenkins <John_Jenkins@taligent.com>
+#
+#
+#	This file is provided as-is by Unicode,Inc. (The Unicode Consortium).
+#	No claims are made as to fitness for any particular purpose.  No
+#	warranties of any kind are expressed or implied.  The recipient
+#	agrees to determine applicability of information provided.  If this
+#	file has been provided on magnetic media by Unicode,Inc.,the sole
+#	remedy for any claim will be exchange of defective media within 90
+#	days of receipt.
+#
+#	Recipient is granted the right to make copies in any form for
+#	internal distribution and to freely use the information supplied
+#	in the creation of products supporting Unicode.  Unicode,Inc.
+#	specifically excludes the right to re-distribute this file directly
+#	to third parties or other organizations whether for profit or not.
+#
+#	General notes:
+#
+#	The following algorithms can be used to change the hex form
+#		of GB2312 to other standard forms:
+#
+#		To change hex to EUC form,add 0x8080
+#		To change hex to kuten form,first subtract 0x2020.  Then
+#			the high and low bytes correspond to the ku and ten of
+#			the kuten form.  For example,0x2121 -> 0x0101 -> 0101;
+#			0x777E -> 0x575E -> 8794
+#
+#	Any comments or problems,contact <John_Jenkins@taligent.com>
+#
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis,WITHOUT WARRANTY OF ANY KIND,either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+
+/*
+    TMN: 02 Aug 2000
+    Preprocessed and stripped lots of comments from this file.
+    The original file can be found in the InterBase 6.0 source
+    archive at www.interbase.com.
+    The following macro was expanded during the preprocessing of this file.
+
+#ifndef UNICODE_REPLACEMENT_CHARACTER
+#define UNICODE_REPLACEMENT_CHARACTER 0xFFFD
+#endif
+*/
+
+static CONST USHORT FAR_VARIABLE to_unicode_mapping_array[] = {
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0000,
+0x0001,
+0x0002,
+0x0003,
+0x0004,
+0x0005,
+0x0006,
+0x0007,
+0x0008,
+0x0009,
+0x000A,
+0x000B,
+0x000C,
+0x000D,
+0x000E,
+0x000F,
+0x0010,
+0x0011,
+0x0012,
+0x0013,
+0x0014,
+0x0015,
+0x0016,
+0x0017,
+0x0018,
+0x0019,
+0x001A,
+0x001B,
+0x001C,
+0x001D,
+0x001E,
+0x001F,
+0x0020,
+0x0021,
+0x0022,
+0x0023,
+0x0024,
+0x0025,
+0x0026,
+0x0027,
+0x0028,
+0x0029,
+0x002A,
+0x002B,
+0x002C,
+0x002D,
+0x002E,
+0x002F,
+0x0030,
+0x0031,
+0x0032,
+0x0033,
+0x0034,
+0x0035,
+0x0036,
+0x0037,
+0x0038,
+0x0039,
+0x003A,
+0x003B,
+0x003C,
+0x003D,
+0x003E,
+0x003F,
+0x0040,
+0x0041,
+0x0042,
+0x0043,
+0x0044,
+0x0045,
+0x0046,
+0x0047,
+0x0048,
+0x0049,
+0x004A,
+0x004B,
+0x004C,
+0x004D,
+0x004E,
+0x004F,
+0x0050,
+0x0051,
+0x0052,
+0x0053,
+0x0054,
+0x0055,
+0x0056,
+0x0057,
+0x0058,
+0x0059,
+0x005A,
+0x005B,
+0x005C,
+0x005D,
+0x005E,
+0x005F,
+0x0060,
+0x0061,
+0x0062,
+0x0063,
+0x0064,
+0x0065,
+0x0066,
+0x0067,
+0x0068,
+0x0069,
+0x006A,
+0x006B,
+0x006C,
+0x006D,
+0x006E,
+0x006F,
+0x0070,
+0x0071,
+0x0072,
+0x0073,
+0x0074,
+0x0075,
+0x0076,
+0x0077,
+0x0078,
+0x0079,
+0x007A,
+0x007B,
+0x007C,
+0x007D,
+0x007E,
+0x007F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x3000,
+0x3001,
+0x3002,
+0x30FB,
+0x02C9,
+0x02C7,
+0x00A8,
+0x3003,
+0x3005,
+0x2015,
+0xFF5E,
+0x2225,
+0x2026,
+0x2018,
+0x2019,
+0x201C,
+0x201D,
+0x3014,
+0x3015,
+0x3008,
+0x3009,
+0x300A,
+0x300B,
+0x300C,
+0x300D,
+0x300E,
+0x300F,
+0x3016,
+0x3017,
+0x3010,
+0x3011,
+0x00B1,
+0x00D7,
+0x00F7,
+0x2236,
+0x2227,
+0x2228,
+0x2211,
+0x220F,
+0x222A,
+0x2229,
+0x2208,
+0x2237,
+0x221A,
+0x22A5,
+0x2225,
+0x2220,
+0x2312,
+0x2299,
+0x222B,
+0x222E,
+0x2261,
+0x224C,
+0x2248,
+0x223D,
+0x221D,
+0x2260,
+0x226E,
+0x226F,
+0x2264,
+0x2265,
+0x221E,
+0x2235,
+0x2234,
+0x2642,
+0x2640,
+0x00B0,
+0x2032,
+0x2033,
+0x2103,
+0xFF04,
+0x00A4,
+0xFFE0,
+0xFFE1,
+0x2030,
+0x00A7,
+0x2116,
+0x2606,
+0x2605,
+0x25CB,
+0x25CF,
+0x25CE,
+0x25C7,
+0x25C6,
+0x25A1,
+0x25A0,
+0x25B3,
+0x25B2,
+0x203B,
+0x2192,
+0x2190,
+0x2191,
+0x2193,
+0x3013,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x2488,
+0x2489,
+0x248A,
+0x248B,
+0x248C,
+0x248D,
+0x248E,
+0x248F,
+0x2490,
+0x2491,
+0x2492,
+0x2493,
+0x2494,
+0x2495,
+0x2496,
+0x2497,
+0x2498,
+0x2499,
+0x249A,
+0x249B,
+0x2474,
+0x2475,
+0x2476,
+0x2477,
+0x2478,
+0x2479,
+0x247A,
+0x247B,
+0x247C,
+0x247D,
+0x247E,
+0x247F,
+0x2480,
+0x2481,
+0x2482,
+0x2483,
+0x2484,
+0x2485,
+0x2486,
+0x2487,
+0x2460,
+0x2461,
+0x2462,
+0x2463,
+0x2464,
+0x2465,
+0x2466,
+0x2467,
+0x2468,
+0x2469,
+0xFFFD,
+0xFFFD,
+0x3220,
+0x3221,
+0x3222,
+0x3223,
+0x3224,
+0x3225,
+0x3226,
+0x3227,
+0x3228,
+0x3229,
+0xFFFD,
+0xFFFD,
+0x2160,
+0x2161,
+0x2162,
+0x2163,
+0x2164,
+0x2165,
+0x2166,
+0x2167,
+0x2168,
+0x2169,
+0x216A,
+0x216B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFF01,
+0xFF02,
+0xFF03,
+0xFFE5,
+0xFF05,
+0xFF06,
+0xFF07,
+0xFF08,
+0xFF09,
+0xFF0A,
+0xFF0B,
+0xFF0C,
+0xFF0D,
+0xFF0E,
+0xFF0F,
+0xFF10,
+0xFF11,
+0xFF12,
+0xFF13,
+0xFF14,
+0xFF15,
+0xFF16,
+0xFF17,
+0xFF18,
+0xFF19,
+0xFF1A,
+0xFF1B,
+0xFF1C,
+0xFF1D,
+0xFF1E,
+0xFF1F,
+0xFF20,
+0xFF21,
+0xFF22,
+0xFF23,
+0xFF24,
+0xFF25,
+0xFF26,
+0xFF27,
+0xFF28,
+0xFF29,
+0xFF2A,
+0xFF2B,
+0xFF2C,
+0xFF2D,
+0xFF2E,
+0xFF2F,
+0xFF30,
+0xFF31,
+0xFF32,
+0xFF33,
+0xFF34,
+0xFF35,
+0xFF36,
+0xFF37,
+0xFF38,
+0xFF39,
+0xFF3A,
+0xFF3B,
+0xFF3C,
+0xFF3D,
+0xFF3E,
+0xFF3F,
+0xFF40,
+0xFF41,
+0xFF42,
+0xFF43,
+0xFF44,
+0xFF45,
+0xFF46,
+0xFF47,
+0xFF48,
+0xFF49,
+0xFF4A,
+0xFF4B,
+0xFF4C,
+0xFF4D,
+0xFF4E,
+0xFF4F,
+0xFF50,
+0xFF51,
+0xFF52,
+0xFF53,
+0xFF54,
+0xFF55,
+0xFF56,
+0xFF57,
+0xFF58,
+0xFF59,
+0xFF5A,
+0xFF5B,
+0xFF5C,
+0xFF5D,
+0xFFE3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x3041,
+0x3042,
+0x3043,
+0x3044,
+0x3045,
+0x3046,
+0x3047,
+0x3048,
+0x3049,
+0x304A,
+0x304B,
+0x304C,
+0x304D,
+0x304E,
+0x304F,
+0x3050,
+0x3051,
+0x3052,
+0x3053,
+0x3054,
+0x3055,
+0x3056,
+0x3057,
+0x3058,
+0x3059,
+0x305A,
+0x305B,
+0x305C,
+0x305D,
+0x305E,
+0x305F,
+0x3060,
+0x3061,
+0x3062,
+0x3063,
+0x3064,
+0x3065,
+0x3066,
+0x3067,
+0x3068,
+0x3069,
+0x306A,
+0x306B,
+0x306C,
+0x306D,
+0x306E,
+0x306F,
+0x3070,
+0x3071,
+0x3072,
+0x3073,
+0x3074,
+0x3075,
+0x3076,
+0x3077,
+0x3078,
+0x3079,
+0x307A,
+0x307B,
+0x307C,
+0x307D,
+0x307E,
+0x307F,
+0x3080,
+0x3081,
+0x3082,
+0x3083,
+0x3084,
+0x3085,
+0x3086,
+0x3087,
+0x3088,
+0x3089,
+0x308A,
+0x308B,
+0x308C,
+0x308D,
+0x308E,
+0x308F,
+0x3090,
+0x3091,
+0x3092,
+0x3093,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x30A1,
+0x30A2,
+0x30A3,
+0x30A4,
+0x30A5,
+0x30A6,
+0x30A7,
+0x30A8,
+0x30A9,
+0x30AA,
+0x30AB,
+0x30AC,
+0x30AD,
+0x30AE,
+0x30AF,
+0x30B0,
+0x30B1,
+0x30B2,
+0x30B3,
+0x30B4,
+0x30B5,
+0x30B6,
+0x30B7,
+0x30B8,
+0x30B9,
+0x30BA,
+0x30BB,
+0x30BC,
+0x30BD,
+0x30BE,
+0x30BF,
+0x30C0,
+0x30C1,
+0x30C2,
+0x30C3,
+0x30C4,
+0x30C5,
+0x30C6,
+0x30C7,
+0x30C8,
+0x30C9,
+0x30CA,
+0x30CB,
+0x30CC,
+0x30CD,
+0x30CE,
+0x30CF,
+0x30D0,
+0x30D1,
+0x30D2,
+0x30D3,
+0x30D4,
+0x30D5,
+0x30D6,
+0x30D7,
+0x30D8,
+0x30D9,
+0x30DA,
+0x30DB,
+0x30DC,
+0x30DD,
+0x30DE,
+0x30DF,
+0x30E0,
+0x30E1,
+0x30E2,
+0x30E3,
+0x30E4,
+0x30E5,
+0x30E6,
+0x30E7,
+0x30E8,
+0x30E9,
+0x30EA,
+0x30EB,
+0x30EC,
+0x30ED,
+0x30EE,
+0x30EF,
+0x30F0,
+0x30F1,
+0x30F2,
+0x30F3,
+0x30F4,
+0x30F5,
+0x30F6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0391,
+0x0392,
+0x0393,
+0x0394,
+0x0395,
+0x0396,
+0x0397,
+0x0398,
+0x0399,
+0x039A,
+0x039B,
+0x039C,
+0x039D,
+0x039E,
+0x039F,
+0x03A0,
+0x03A1,
+0x03A3,
+0x03A4,
+0x03A5,
+0x03A6,
+0x03A7,
+0x03A8,
+0x03A9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x03B1,
+0x03B2,
+0x03B3,
+0x03B4,
+0x03B5,
+0x03B6,
+0x03B7,
+0x03B8,
+0x03B9,
+0x03BA,
+0x03BB,
+0x03BC,
+0x03BD,
+0x03BE,
+0x03BF,
+0x03C0,
+0x03C1,
+0x03C3,
+0x03C4,
+0x03C5,
+0x03C6,
+0x03C7,
+0x03C8,
+0x03C9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0410,
+0x0411,
+0x0412,
+0x0413,
+0x0414,
+0x0415,
+0x0401,
+0x0416,
+0x0417,
+0x0418,
+0x0419,
+0x041A,
+0x041B,
+0x041C,
+0x041D,
+0x041E,
+0x041F,
+0x0420,
+0x0421,
+0x0422,
+0x0423,
+0x0424,
+0x0425,
+0x0426,
+0x0427,
+0x0428,
+0x0429,
+0x042A,
+0x042B,
+0x042C,
+0x042D,
+0x042E,
+0x042F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0430,
+0x0431,
+0x0432,
+0x0433,
+0x0434,
+0x0435,
+0x0451,
+0x0436,
+0x0437,
+0x0438,
+0x0439,
+0x043A,
+0x043B,
+0x043C,
+0x043D,
+0x043E,
+0x043F,
+0x0440,
+0x0441,
+0x0442,
+0x0443,
+0x0444,
+0x0445,
+0x0446,
+0x0447,
+0x0448,
+0x0449,
+0x044A,
+0x044B,
+0x044C,
+0x044D,
+0x044E,
+0x044F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0101,
+0x00E1,
+0x01CE,
+0x00E0,
+0x0113,
+0x00E9,
+0x011B,
+0x00E8,
+0x012B,
+0x00ED,
+0x01D0,
+0x00EC,
+0x014D,
+0x00F3,
+0x01D2,
+0x00F2,
+0x016B,
+0x00FA,
+0x01D4,
+0x00F9,
+0x01D6,
+0x01D8,
+0x01DA,
+0x01DC,
+0x00FC,
+0x00EA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x3105,
+0x3106,
+0x3107,
+0x3108,
+0x3109,
+0x310A,
+0x310B,
+0x310C,
+0x310D,
+0x310E,
+0x310F,
+0x3110,
+0x3111,
+0x3112,
+0x3113,
+0x3114,
+0x3115,
+0x3116,
+0x3117,
+0x3118,
+0x3119,
+0x311A,
+0x311B,
+0x311C,
+0x311D,
+0x311E,
+0x311F,
+0x3120,
+0x3121,
+0x3122,
+0x3123,
+0x3124,
+0x3125,
+0x3126,
+0x3127,
+0x3128,
+0x3129,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x2500,
+0x2501,
+0x2502,
+0x2503,
+0x2504,
+0x2505,
+0x2506,
+0x2507,
+0x2508,
+0x2509,
+0x250A,
+0x250B,
+0x250C,
+0x250D,
+0x250E,
+0x250F,
+0x2510,
+0x2511,
+0x2512,
+0x2513,
+0x2514,
+0x2515,
+0x2516,
+0x2517,
+0x2518,
+0x2519,
+0x251A,
+0x251B,
+0x251C,
+0x251D,
+0x251E,
+0x251F,
+0x2520,
+0x2521,
+0x2522,
+0x2523,
+0x2524,
+0x2525,
+0x2526,
+0x2527,
+0x2528,
+0x2529,
+0x252A,
+0x252B,
+0x252C,
+0x252D,
+0x252E,
+0x252F,
+0x2530,
+0x2531,
+0x2532,
+0x2533,
+0x2534,
+0x2535,
+0x2536,
+0x2537,
+0x2538,
+0x2539,
+0x253A,
+0x253B,
+0x253C,
+0x253D,
+0x253E,
+0x253F,
+0x2540,
+0x2541,
+0x2542,
+0x2543,
+0x2544,
+0x2545,
+0x2546,
+0x2547,
+0x2548,
+0x2549,
+0x254A,
+0x254B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x554A,
+0x963F,
+0x57C3,
+0x6328,
+0x54CE,
+0x5509,
+0x54C0,
+0x7691,
+0x764C,
+0x853C,
+0x77EE,
+0x827E,
+0x788D,
+0x7231,
+0x9698,
+0x978D,
+0x6C28,
+0x5B89,
+0x4FFA,
+0x6309,
+0x6697,
+0x5CB8,
+0x80FA,
+0x6848,
+0x80AE,
+0x6602,
+0x76CE,
+0x51F9,
+0x6556,
+0x71AC,
+0x7FF1,
+0x8884,
+0x50B2,
+0x5965,
+0x61CA,
+0x6FB3,
+0x82AD,
+0x634C,
+0x6252,
+0x53ED,
+0x5427,
+0x7B06,
+0x516B,
+0x75A4,
+0x5DF4,
+0x62D4,
+0x8DCB,
+0x9776,
+0x628A,
+0x8019,
+0x575D,
+0x9738,
+0x7F62,
+0x7238,
+0x767D,
+0x67CF,
+0x767E,
+0x6446,
+0x4F70,
+0x8D25,
+0x62DC,
+0x7A17,
+0x6591,
+0x73ED,
+0x642C,
+0x6273,
+0x822C,
+0x9881,
+0x677F,
+0x7248,
+0x626E,
+0x62CC,
+0x4F34,
+0x74E3,
+0x534A,
+0x529E,
+0x7ECA,
+0x90A6,
+0x5E2E,
+0x6886,
+0x699C,
+0x8180,
+0x7ED1,
+0x68D2,
+0x78C5,
+0x868C,
+0x9551,
+0x508D,
+0x8C24,
+0x82DE,
+0x80DE,
+0x5305,
+0x8912,
+0x5265,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8584,
+0x96F9,
+0x4FDD,
+0x5821,
+0x9971,
+0x5B9D,
+0x62B1,
+0x62A5,
+0x66B4,
+0x8C79,
+0x9C8D,
+0x7206,
+0x676F,
+0x7891,
+0x60B2,
+0x5351,
+0x5317,
+0x8F88,
+0x80CC,
+0x8D1D,
+0x94A1,
+0x500D,
+0x72C8,
+0x5907,
+0x60EB,
+0x7119,
+0x88AB,
+0x5954,
+0x82EF,
+0x672C,
+0x7B28,
+0x5D29,
+0x7EF7,
+0x752D,
+0x6CF5,
+0x8E66,
+0x8FF8,
+0x903C,
+0x9F3B,
+0x6BD4,
+0x9119,
+0x7B14,
+0x5F7C,
+0x78A7,
+0x84D6,
+0x853D,
+0x6BD5,
+0x6BD9,
+0x6BD6,
+0x5E01,
+0x5E87,
+0x75F9,
+0x95ED,
+0x655D,
+0x5F0A,
+0x5FC5,
+0x8F9F,
+0x58C1,
+0x81C2,
+0x907F,
+0x965B,
+0x97AD,
+0x8FB9,
+0x7F16,
+0x8D2C,
+0x6241,
+0x4FBF,
+0x53D8,
+0x535E,
+0x8FA8,
+0x8FA9,
+0x8FAB,
+0x904D,
+0x6807,
+0x5F6A,
+0x8198,
+0x8868,
+0x9CD6,
+0x618B,
+0x522B,
+0x762A,
+0x5F6C,
+0x658C,
+0x6FD2,
+0x6EE8,
+0x5BBE,
+0x6448,
+0x5175,
+0x51B0,
+0x67C4,
+0x4E19,
+0x79C9,
+0x997C,
+0x70B3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x75C5,
+0x5E76,
+0x73BB,
+0x83E0,
+0x64AD,
+0x62E8,
+0x94B5,
+0x6CE2,
+0x535A,
+0x52C3,
+0x640F,
+0x94C2,
+0x7B94,
+0x4F2F,
+0x5E1B,
+0x8236,
+0x8116,
+0x818A,
+0x6E24,
+0x6CCA,
+0x9A73,
+0x6355,
+0x535C,
+0x54FA,
+0x8865,
+0x57E0,
+0x4E0D,
+0x5E03,
+0x6B65,
+0x7C3F,
+0x90E8,
+0x6016,
+0x64E6,
+0x731C,
+0x88C1,
+0x6750,
+0x624D,
+0x8D22,
+0x776C,
+0x8E29,
+0x91C7,
+0x5F69,
+0x83DC,
+0x8521,
+0x9910,
+0x53C2,
+0x8695,
+0x6B8B,
+0x60ED,
+0x60E8,
+0x707F,
+0x82CD,
+0x8231,
+0x4ED3,
+0x6CA7,
+0x85CF,
+0x64CD,
+0x7CD9,
+0x69FD,
+0x66F9,
+0x8349,
+0x5395,
+0x7B56,
+0x4FA7,
+0x518C,
+0x6D4B,
+0x5C42,
+0x8E6D,
+0x63D2,
+0x53C9,
+0x832C,
+0x8336,
+0x67E5,
+0x78B4,
+0x643D,
+0x5BDF,
+0x5C94,
+0x5DEE,
+0x8BE7,
+0x62C6,
+0x67F4,
+0x8C7A,
+0x6400,
+0x63BA,
+0x8749,
+0x998B,
+0x8C17,
+0x7F20,
+0x94F2,
+0x4EA7,
+0x9610,
+0x98A4,
+0x660C,
+0x7316,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x573A,
+0x5C1D,
+0x5E38,
+0x957F,
+0x507F,
+0x80A0,
+0x5382,
+0x655E,
+0x7545,
+0x5531,
+0x5021,
+0x8D85,
+0x6284,
+0x949E,
+0x671D,
+0x5632,
+0x6F6E,
+0x5DE2,
+0x5435,
+0x7092,
+0x8F66,
+0x626F,
+0x64A4,
+0x63A3,
+0x5F7B,
+0x6F88,
+0x90F4,
+0x81E3,
+0x8FB0,
+0x5C18,
+0x6668,
+0x5FF1,
+0x6C89,
+0x9648,
+0x8D81,
+0x886C,
+0x6491,
+0x79F0,
+0x57CE,
+0x6A59,
+0x6210,
+0x5448,
+0x4E58,
+0x7A0B,
+0x60E9,
+0x6F84,
+0x8BDA,
+0x627F,
+0x901E,
+0x9A8B,
+0x79E4,
+0x5403,
+0x75F4,
+0x6301,
+0x5319,
+0x6C60,
+0x8FDF,
+0x5F1B,
+0x9A70,
+0x803B,
+0x9F7F,
+0x4F88,
+0x5C3A,
+0x8D64,
+0x7FC5,
+0x65A5,
+0x70BD,
+0x5145,
+0x51B2,
+0x866B,
+0x5D07,
+0x5BA0,
+0x62BD,
+0x916C,
+0x7574,
+0x8E0C,
+0x7A20,
+0x6101,
+0x7B79,
+0x4EC7,
+0x7EF8,
+0x7785,
+0x4E11,
+0x81ED,
+0x521D,
+0x51FA,
+0x6A71,
+0x53A8,
+0x8E87,
+0x9504,
+0x96CF,
+0x6EC1,
+0x9664,
+0x695A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7840,
+0x50A8,
+0x77D7,
+0x6410,
+0x89E6,
+0x5904,
+0x63E3,
+0x5DDD,
+0x7A7F,
+0x693D,
+0x4F20,
+0x8239,
+0x5598,
+0x4E32,
+0x75AE,
+0x7A97,
+0x5E62,
+0x5E8A,
+0x95EF,
+0x521B,
+0x5439,
+0x708A,
+0x6376,
+0x9524,
+0x5782,
+0x6625,
+0x693F,
+0x9187,
+0x5507,
+0x6DF3,
+0x7EAF,
+0x8822,
+0x6233,
+0x7EF0,
+0x75B5,
+0x8328,
+0x78C1,
+0x96CC,
+0x8F9E,
+0x6148,
+0x74F7,
+0x8BCD,
+0x6B64,
+0x523A,
+0x8D50,
+0x6B21,
+0x806A,
+0x8471,
+0x56F1,
+0x5306,
+0x4ECE,
+0x4E1B,
+0x51D1,
+0x7C97,
+0x918B,
+0x7C07,
+0x4FC3,
+0x8E7F,
+0x7BE1,
+0x7A9C,
+0x6467,
+0x5D14,
+0x50AC,
+0x8106,
+0x7601,
+0x7CB9,
+0x6DEC,
+0x7FE0,
+0x6751,
+0x5B58,
+0x5BF8,
+0x78CB,
+0x64AE,
+0x6413,
+0x63AA,
+0x632B,
+0x9519,
+0x642D,
+0x8FBE,
+0x7B54,
+0x7629,
+0x6253,
+0x5927,
+0x5446,
+0x6B79,
+0x50A3,
+0x6234,
+0x5E26,
+0x6B86,
+0x4EE3,
+0x8D37,
+0x888B,
+0x5F85,
+0x902E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6020,
+0x803D,
+0x62C5,
+0x4E39,
+0x5355,
+0x90F8,
+0x63B8,
+0x80C6,
+0x65E6,
+0x6C2E,
+0x4F46,
+0x60EE,
+0x6DE1,
+0x8BDE,
+0x5F39,
+0x86CB,
+0x5F53,
+0x6321,
+0x515A,
+0x8361,
+0x6863,
+0x5200,
+0x6363,
+0x8E48,
+0x5012,
+0x5C9B,
+0x7977,
+0x5BFC,
+0x5230,
+0x7A3B,
+0x60BC,
+0x9053,
+0x76D7,
+0x5FB7,
+0x5F97,
+0x7684,
+0x8E6C,
+0x706F,
+0x767B,
+0x7B49,
+0x77AA,
+0x51F3,
+0x9093,
+0x5824,
+0x4F4E,
+0x6EF4,
+0x8FEA,
+0x654C,
+0x7B1B,
+0x72C4,
+0x6DA4,
+0x7FDF,
+0x5AE1,
+0x62B5,
+0x5E95,
+0x5730,
+0x8482,
+0x7B2C,
+0x5E1D,
+0x5F1F,
+0x9012,
+0x7F14,
+0x98A0,
+0x6382,
+0x6EC7,
+0x7898,
+0x70B9,
+0x5178,
+0x975B,
+0x57AB,
+0x7535,
+0x4F43,
+0x7538,
+0x5E97,
+0x60E6,
+0x5960,
+0x6DC0,
+0x6BBF,
+0x7889,
+0x53FC,
+0x96D5,
+0x51CB,
+0x5201,
+0x6389,
+0x540A,
+0x9493,
+0x8C03,
+0x8DCC,
+0x7239,
+0x789F,
+0x8776,
+0x8FED,
+0x8C0D,
+0x53E0,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4E01,
+0x76EF,
+0x53EE,
+0x9489,
+0x9876,
+0x9F0E,
+0x952D,
+0x5B9A,
+0x8BA2,
+0x4E22,
+0x4E1C,
+0x51AC,
+0x8463,
+0x61C2,
+0x52A8,
+0x680B,
+0x4F97,
+0x606B,
+0x51BB,
+0x6D1E,
+0x515C,
+0x6296,
+0x6597,
+0x9661,
+0x8C46,
+0x9017,
+0x75D8,
+0x90FD,
+0x7763,
+0x6BD2,
+0x728A,
+0x72EC,
+0x8BFB,
+0x5835,
+0x7779,
+0x8D4C,
+0x675C,
+0x9540,
+0x809A,
+0x5EA6,
+0x6E21,
+0x5992,
+0x7AEF,
+0x77ED,
+0x953B,
+0x6BB5,
+0x65AD,
+0x7F0E,
+0x5806,
+0x5151,
+0x961F,
+0x5BF9,
+0x58A9,
+0x5428,
+0x8E72,
+0x6566,
+0x987F,
+0x56E4,
+0x949D,
+0x76FE,
+0x9041,
+0x6387,
+0x54C6,
+0x591A,
+0x593A,
+0x579B,
+0x8EB2,
+0x6735,
+0x8DFA,
+0x8235,
+0x5241,
+0x60F0,
+0x5815,
+0x86FE,
+0x5CE8,
+0x9E45,
+0x4FC4,
+0x989D,
+0x8BB9,
+0x5A25,
+0x6076,
+0x5384,
+0x627C,
+0x904F,
+0x9102,
+0x997F,
+0x6069,
+0x800C,
+0x513F,
+0x8033,
+0x5C14,
+0x9975,
+0x6D31,
+0x4E8C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8D30,
+0x53D1,
+0x7F5A,
+0x7B4F,
+0x4F10,
+0x4E4F,
+0x9600,
+0x6CD5,
+0x73D0,
+0x85E9,
+0x5E06,
+0x756A,
+0x7FFB,
+0x6A0A,
+0x77FE,
+0x9492,
+0x7E41,
+0x51E1,
+0x70E6,
+0x53CD,
+0x8FD4,
+0x8303,
+0x8D29,
+0x72AF,
+0x996D,
+0x6CDB,
+0x574A,
+0x82B3,
+0x65B9,
+0x80AA,
+0x623F,
+0x9632,
+0x59A8,
+0x4EFF,
+0x8BBF,
+0x7EBA,
+0x653E,
+0x83F2,
+0x975E,
+0x5561,
+0x98DE,
+0x80A5,
+0x532A,
+0x8BFD,
+0x5420,
+0x80BA,
+0x5E9F,
+0x6CB8,
+0x8D39,
+0x82AC,
+0x915A,
+0x5429,
+0x6C1B,
+0x5206,
+0x7EB7,
+0x575F,
+0x711A,
+0x6C7E,
+0x7C89,
+0x594B,
+0x4EFD,
+0x5FFF,
+0x6124,
+0x7CAA,
+0x4E30,
+0x5C01,
+0x67AB,
+0x8702,
+0x5CF0,
+0x950B,
+0x98CE,
+0x75AF,
+0x70FD,
+0x9022,
+0x51AF,
+0x7F1D,
+0x8BBD,
+0x5949,
+0x51E4,
+0x4F5B,
+0x5426,
+0x592B,
+0x6577,
+0x80A4,
+0x5B75,
+0x6276,
+0x62C2,
+0x8F90,
+0x5E45,
+0x6C1F,
+0x7B26,
+0x4F0F,
+0x4FD8,
+0x670D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6D6E,
+0x6DAA,
+0x798F,
+0x88B1,
+0x5F17,
+0x752B,
+0x629A,
+0x8F85,
+0x4FEF,
+0x91DC,
+0x65A7,
+0x812F,
+0x8151,
+0x5E9C,
+0x8150,
+0x8D74,
+0x526F,
+0x8986,
+0x8D4B,
+0x590D,
+0x5085,
+0x4ED8,
+0x961C,
+0x7236,
+0x8179,
+0x8D1F,
+0x5BCC,
+0x8BA3,
+0x9644,
+0x5987,
+0x7F1A,
+0x5490,
+0x5676,
+0x560E,
+0x8BE5,
+0x6539,
+0x6982,
+0x9499,
+0x76D6,
+0x6E89,
+0x5E72,
+0x7518,
+0x6746,
+0x67D1,
+0x7AFF,
+0x809D,
+0x8D76,
+0x611F,
+0x79C6,
+0x6562,
+0x8D63,
+0x5188,
+0x521A,
+0x94A2,
+0x7F38,
+0x809B,
+0x7EB2,
+0x5C97,
+0x6E2F,
+0x6760,
+0x7BD9,
+0x768B,
+0x9AD8,
+0x818F,
+0x7F94,
+0x7CD5,
+0x641E,
+0x9550,
+0x7A3F,
+0x544A,
+0x54E5,
+0x6B4C,
+0x6401,
+0x6208,
+0x9E3D,
+0x80F3,
+0x7599,
+0x5272,
+0x9769,
+0x845B,
+0x683C,
+0x86E4,
+0x9601,
+0x9694,
+0x94EC,
+0x4E2A,
+0x5404,
+0x7ED9,
+0x6839,
+0x8DDF,
+0x8015,
+0x66F4,
+0x5E9A,
+0x7FB9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x57C2,
+0x803F,
+0x6897,
+0x5DE5,
+0x653B,
+0x529F,
+0x606D,
+0x9F9A,
+0x4F9B,
+0x8EAC,
+0x516C,
+0x5BAB,
+0x5F13,
+0x5DE9,
+0x6C5E,
+0x62F1,
+0x8D21,
+0x5171,
+0x94A9,
+0x52FE,
+0x6C9F,
+0x82DF,
+0x72D7,
+0x57A2,
+0x6784,
+0x8D2D,
+0x591F,
+0x8F9C,
+0x83C7,
+0x5495,
+0x7B8D,
+0x4F30,
+0x6CBD,
+0x5B64,
+0x59D1,
+0x9F13,
+0x53E4,
+0x86CA,
+0x9AA8,
+0x8C37,
+0x80A1,
+0x6545,
+0x987E,
+0x56FA,
+0x96C7,
+0x522E,
+0x74DC,
+0x5250,
+0x5BE1,
+0x6302,
+0x8902,
+0x4E56,
+0x62D0,
+0x602A,
+0x68FA,
+0x5173,
+0x5B98,
+0x51A0,
+0x89C2,
+0x7BA1,
+0x9986,
+0x7F50,
+0x60EF,
+0x704C,
+0x8D2F,
+0x5149,
+0x5E7F,
+0x901B,
+0x7470,
+0x89C4,
+0x572D,
+0x7845,
+0x5F52,
+0x9F9F,
+0x95FA,
+0x8F68,
+0x9B3C,
+0x8BE1,
+0x7678,
+0x6842,
+0x67DC,
+0x8DEA,
+0x8D35,
+0x523D,
+0x8F8A,
+0x6EDA,
+0x68CD,
+0x9505,
+0x90ED,
+0x56FD,
+0x679C,
+0x88F9,
+0x8FC7,
+0x54C8,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9AB8,
+0x5B69,
+0x6D77,
+0x6C26,
+0x4EA5,
+0x5BB3,
+0x9A87,
+0x9163,
+0x61A8,
+0x90AF,
+0x97E9,
+0x542B,
+0x6DB5,
+0x5BD2,
+0x51FD,
+0x558A,
+0x7F55,
+0x7FF0,
+0x64BC,
+0x634D,
+0x65F1,
+0x61BE,
+0x608D,
+0x710A,
+0x6C57,
+0x6C49,
+0x592F,
+0x676D,
+0x822A,
+0x58D5,
+0x568E,
+0x8C6A,
+0x6BEB,
+0x90DD,
+0x597D,
+0x8017,
+0x53F7,
+0x6D69,
+0x5475,
+0x559D,
+0x8377,
+0x83CF,
+0x6838,
+0x79BE,
+0x548C,
+0x4F55,
+0x5408,
+0x76D2,
+0x8C89,
+0x9602,
+0x6CB3,
+0x6DB8,
+0x8D6B,
+0x8910,
+0x9E64,
+0x8D3A,
+0x563F,
+0x9ED1,
+0x75D5,
+0x5F88,
+0x72E0,
+0x6068,
+0x54FC,
+0x4EA8,
+0x6A2A,
+0x8861,
+0x6052,
+0x8F70,
+0x54C4,
+0x70D8,
+0x8679,
+0x9E3F,
+0x6D2A,
+0x5B8F,
+0x5F18,
+0x7EA2,
+0x5589,
+0x4FAF,
+0x7334,
+0x543C,
+0x539A,
+0x5019,
+0x540E,
+0x547C,
+0x4E4E,
+0x5FFD,
+0x745A,
+0x58F6,
+0x846B,
+0x80E1,
+0x8774,
+0x72D0,
+0x7CCA,
+0x6E56,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5F27,
+0x864E,
+0x552C,
+0x62A4,
+0x4E92,
+0x6CAA,
+0x6237,
+0x82B1,
+0x54D7,
+0x534E,
+0x733E,
+0x6ED1,
+0x753B,
+0x5212,
+0x5316,
+0x8BDD,
+0x69D0,
+0x5F8A,
+0x6000,
+0x6DEE,
+0x574F,
+0x6B22,
+0x73AF,
+0x6853,
+0x8FD8,
+0x7F13,
+0x6362,
+0x60A3,
+0x5524,
+0x75EA,
+0x8C62,
+0x7115,
+0x6DA3,
+0x5BA6,
+0x5E7B,
+0x8352,
+0x614C,
+0x9EC4,
+0x78FA,
+0x8757,
+0x7C27,
+0x7687,
+0x51F0,
+0x60F6,
+0x714C,
+0x6643,
+0x5E4C,
+0x604D,
+0x8C0E,
+0x7070,
+0x6325,
+0x8F89,
+0x5FBD,
+0x6062,
+0x86D4,
+0x56DE,
+0x6BC1,
+0x6094,
+0x6167,
+0x5349,
+0x60E0,
+0x6666,
+0x8D3F,
+0x79FD,
+0x4F1A,
+0x70E9,
+0x6C47,
+0x8BB3,
+0x8BF2,
+0x7ED8,
+0x8364,
+0x660F,
+0x5A5A,
+0x9B42,
+0x6D51,
+0x6DF7,
+0x8C41,
+0x6D3B,
+0x4F19,
+0x706B,
+0x83B7,
+0x6216,
+0x60D1,
+0x970D,
+0x8D27,
+0x7978,
+0x51FB,
+0x573E,
+0x57FA,
+0x673A,
+0x7578,
+0x7A3D,
+0x79EF,
+0x7B95,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x808C,
+0x9965,
+0x8FF9,
+0x6FC0,
+0x8BA5,
+0x9E21,
+0x59EC,
+0x7EE9,
+0x7F09,
+0x5409,
+0x6781,
+0x68D8,
+0x8F91,
+0x7C4D,
+0x96C6,
+0x53CA,
+0x6025,
+0x75BE,
+0x6C72,
+0x5373,
+0x5AC9,
+0x7EA7,
+0x6324,
+0x51E0,
+0x810A,
+0x5DF1,
+0x84DF,
+0x6280,
+0x5180,
+0x5B63,
+0x4F0E,
+0x796D,
+0x5242,
+0x60B8,
+0x6D4E,
+0x5BC4,
+0x5BC2,
+0x8BA1,
+0x8BB0,
+0x65E2,
+0x5FCC,
+0x9645,
+0x5993,
+0x7EE7,
+0x7EAA,
+0x5609,
+0x67B7,
+0x5939,
+0x4F73,
+0x5BB6,
+0x52A0,
+0x835A,
+0x988A,
+0x8D3E,
+0x7532,
+0x94BE,
+0x5047,
+0x7A3C,
+0x4EF7,
+0x67B6,
+0x9A7E,
+0x5AC1,
+0x6B7C,
+0x76D1,
+0x575A,
+0x5C16,
+0x7B3A,
+0x95F4,
+0x714E,
+0x517C,
+0x80A9,
+0x8270,
+0x5978,
+0x7F04,
+0x8327,
+0x68C0,
+0x67EC,
+0x78B1,
+0x7877,
+0x62E3,
+0x6361,
+0x7B80,
+0x4FED,
+0x526A,
+0x51CF,
+0x8350,
+0x69DB,
+0x9274,
+0x8DF5,
+0x8D31,
+0x89C1,
+0x952E,
+0x7BAD,
+0x4EF6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5065,
+0x8230,
+0x5251,
+0x996F,
+0x6E10,
+0x6E85,
+0x6DA7,
+0x5EFA,
+0x50F5,
+0x59DC,
+0x5C06,
+0x6D46,
+0x6C5F,
+0x7586,
+0x848B,
+0x6868,
+0x5956,
+0x8BB2,
+0x5320,
+0x9171,
+0x964D,
+0x8549,
+0x6912,
+0x7901,
+0x7126,
+0x80F6,
+0x4EA4,
+0x90CA,
+0x6D47,
+0x9A84,
+0x5A07,
+0x56BC,
+0x6405,
+0x94F0,
+0x77EB,
+0x4FA5,
+0x811A,
+0x72E1,
+0x89D2,
+0x997A,
+0x7F34,
+0x7EDE,
+0x527F,
+0x6559,
+0x9175,
+0x8F7F,
+0x8F83,
+0x53EB,
+0x7A96,
+0x63ED,
+0x63A5,
+0x7686,
+0x79F8,
+0x8857,
+0x9636,
+0x622A,
+0x52AB,
+0x8282,
+0x6854,
+0x6770,
+0x6377,
+0x776B,
+0x7AED,
+0x6D01,
+0x7ED3,
+0x89E3,
+0x59D0,
+0x6212,
+0x85C9,
+0x82A5,
+0x754C,
+0x501F,
+0x4ECB,
+0x75A5,
+0x8BEB,
+0x5C4A,
+0x5DFE,
+0x7B4B,
+0x65A4,
+0x91D1,
+0x4ECA,
+0x6D25,
+0x895F,
+0x7D27,
+0x9526,
+0x4EC5,
+0x8C28,
+0x8FDB,
+0x9773,
+0x664B,
+0x7981,
+0x8FD1,
+0x70EC,
+0x6D78,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5C3D,
+0x52B2,
+0x8346,
+0x5162,
+0x830E,
+0x775B,
+0x6676,
+0x9CB8,
+0x4EAC,
+0x60CA,
+0x7CBE,
+0x7CB3,
+0x7ECF,
+0x4E95,
+0x8B66,
+0x666F,
+0x9888,
+0x9759,
+0x5883,
+0x656C,
+0x955C,
+0x5F84,
+0x75C9,
+0x9756,
+0x7ADF,
+0x7ADE,
+0x51C0,
+0x70AF,
+0x7A98,
+0x63EA,
+0x7A76,
+0x7EA0,
+0x7396,
+0x97ED,
+0x4E45,
+0x7078,
+0x4E5D,
+0x9152,
+0x53A9,
+0x6551,
+0x65E7,
+0x81FC,
+0x8205,
+0x548E,
+0x5C31,
+0x759A,
+0x97A0,
+0x62D8,
+0x72D9,
+0x75BD,
+0x5C45,
+0x9A79,
+0x83CA,
+0x5C40,
+0x5480,
+0x77E9,
+0x4E3E,
+0x6CAE,
+0x805A,
+0x62D2,
+0x636E,
+0x5DE8,
+0x5177,
+0x8DDD,
+0x8E1E,
+0x952F,
+0x4FF1,
+0x53E5,
+0x60E7,
+0x70AC,
+0x5267,
+0x6350,
+0x9E43,
+0x5A1F,
+0x5026,
+0x7737,
+0x5377,
+0x7EE2,
+0x6485,
+0x652B,
+0x6289,
+0x6398,
+0x5014,
+0x7235,
+0x89C9,
+0x51B3,
+0x8BC0,
+0x7EDD,
+0x5747,
+0x83CC,
+0x94A7,
+0x519B,
+0x541B,
+0x5CFB,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4FCA,
+0x7AE3,
+0x6D5A,
+0x90E1,
+0x9A8F,
+0x5580,
+0x5496,
+0x5361,
+0x54AF,
+0x5F00,
+0x63E9,
+0x6977,
+0x51EF,
+0x6168,
+0x520A,
+0x582A,
+0x52D8,
+0x574E,
+0x780D,
+0x770B,
+0x5EB7,
+0x6177,
+0x7CE0,
+0x625B,
+0x6297,
+0x4EA2,
+0x7095,
+0x8003,
+0x62F7,
+0x70E4,
+0x9760,
+0x5777,
+0x82DB,
+0x67EF,
+0x68F5,
+0x78D5,
+0x9897,
+0x79D1,
+0x58F3,
+0x54B3,
+0x53EF,
+0x6E34,
+0x514B,
+0x523B,
+0x5BA2,
+0x8BFE,
+0x80AF,
+0x5543,
+0x57A6,
+0x6073,
+0x5751,
+0x542D,
+0x7A7A,
+0x6050,
+0x5B54,
+0x63A7,
+0x62A0,
+0x53E3,
+0x6263,
+0x5BC7,
+0x67AF,
+0x54ED,
+0x7A9F,
+0x82E6,
+0x9177,
+0x5E93,
+0x88E4,
+0x5938,
+0x57AE,
+0x630E,
+0x8DE8,
+0x80EF,
+0x5757,
+0x7B77,
+0x4FA9,
+0x5FEB,
+0x5BBD,
+0x6B3E,
+0x5321,
+0x7B50,
+0x72C2,
+0x6846,
+0x77FF,
+0x7736,
+0x65F7,
+0x51B5,
+0x4E8F,
+0x76D4,
+0x5CBF,
+0x7AA5,
+0x8475,
+0x594E,
+0x9B41,
+0x5080,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9988,
+0x6127,
+0x6E83,
+0x5764,
+0x6606,
+0x6346,
+0x56F0,
+0x62EC,
+0x6269,
+0x5ED3,
+0x9614,
+0x5783,
+0x62C9,
+0x5587,
+0x8721,
+0x814A,
+0x8FA3,
+0x5566,
+0x83B1,
+0x6765,
+0x8D56,
+0x84DD,
+0x5A6A,
+0x680F,
+0x62E6,
+0x7BEE,
+0x9611,
+0x5170,
+0x6F9C,
+0x8C30,
+0x63FD,
+0x89C8,
+0x61D2,
+0x7F06,
+0x70C2,
+0x6EE5,
+0x7405,
+0x6994,
+0x72FC,
+0x5ECA,
+0x90CE,
+0x6717,
+0x6D6A,
+0x635E,
+0x52B3,
+0x7262,
+0x8001,
+0x4F6C,
+0x59E5,
+0x916A,
+0x70D9,
+0x6D9D,
+0x52D2,
+0x4E50,
+0x96F7,
+0x956D,
+0x857E,
+0x78CA,
+0x7D2F,
+0x5121,
+0x5792,
+0x64C2,
+0x808B,
+0x7C7B,
+0x6CEA,
+0x68F1,
+0x695E,
+0x51B7,
+0x5398,
+0x68A8,
+0x7281,
+0x9ECE,
+0x7BF1,
+0x72F8,
+0x79BB,
+0x6F13,
+0x7406,
+0x674E,
+0x91CC,
+0x9CA4,
+0x793C,
+0x8389,
+0x8354,
+0x540F,
+0x6817,
+0x4E3D,
+0x5389,
+0x52B1,
+0x783E,
+0x5386,
+0x5229,
+0x5088,
+0x4F8B,
+0x4FD0,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x75E2,
+0x7ACB,
+0x7C92,
+0x6CA5,
+0x96B6,
+0x529B,
+0x7483,
+0x54E9,
+0x4FE9,
+0x8054,
+0x83B2,
+0x8FDE,
+0x9570,
+0x5EC9,
+0x601C,
+0x6D9F,
+0x5E18,
+0x655B,
+0x8138,
+0x94FE,
+0x604B,
+0x70BC,
+0x7EC3,
+0x7CAE,
+0x51C9,
+0x6881,
+0x7CB1,
+0x826F,
+0x4E24,
+0x8F86,
+0x91CF,
+0x667E,
+0x4EAE,
+0x8C05,
+0x64A9,
+0x804A,
+0x50DA,
+0x7597,
+0x71CE,
+0x5BE5,
+0x8FBD,
+0x6F66,
+0x4E86,
+0x6482,
+0x9563,
+0x5ED6,
+0x6599,
+0x5217,
+0x88C2,
+0x70C8,
+0x52A3,
+0x730E,
+0x7433,
+0x6797,
+0x78F7,
+0x9716,
+0x4E34,
+0x90BB,
+0x9CDE,
+0x6DCB,
+0x51DB,
+0x8D41,
+0x541D,
+0x62CE,
+0x73B2,
+0x83F1,
+0x96F6,
+0x9F84,
+0x94C3,
+0x4F36,
+0x7F9A,
+0x51CC,
+0x7075,
+0x9675,
+0x5CAD,
+0x9886,
+0x53E6,
+0x4EE4,
+0x6E9C,
+0x7409,
+0x69B4,
+0x786B,
+0x998F,
+0x7559,
+0x5218,
+0x7624,
+0x6D41,
+0x67F3,
+0x516D,
+0x9F99,
+0x804B,
+0x5499,
+0x7B3C,
+0x7ABF,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9686,
+0x5784,
+0x62E2,
+0x9647,
+0x697C,
+0x5A04,
+0x6402,
+0x7BD3,
+0x6F0F,
+0x964B,
+0x82A6,
+0x5362,
+0x9885,
+0x5E90,
+0x7089,
+0x63B3,
+0x5364,
+0x864F,
+0x9C81,
+0x9E93,
+0x788C,
+0x9732,
+0x8DEF,
+0x8D42,
+0x9E7F,
+0x6F5E,
+0x7984,
+0x5F55,
+0x9646,
+0x622E,
+0x9A74,
+0x5415,
+0x94DD,
+0x4FA3,
+0x65C5,
+0x5C65,
+0x5C61,
+0x7F15,
+0x8651,
+0x6C2F,
+0x5F8B,
+0x7387,
+0x6EE4,
+0x7EFF,
+0x5CE6,
+0x631B,
+0x5B6A,
+0x6EE6,
+0x5375,
+0x4E71,
+0x63A0,
+0x7565,
+0x62A1,
+0x8F6E,
+0x4F26,
+0x4ED1,
+0x6CA6,
+0x7EB6,
+0x8BBA,
+0x841D,
+0x87BA,
+0x7F57,
+0x903B,
+0x9523,
+0x7BA9,
+0x9AA1,
+0x88F8,
+0x843D,
+0x6D1B,
+0x9A86,
+0x7EDC,
+0x5988,
+0x9EBB,
+0x739B,
+0x7801,
+0x8682,
+0x9A6C,
+0x9A82,
+0x561B,
+0x5417,
+0x57CB,
+0x4E70,
+0x9EA6,
+0x5356,
+0x8FC8,
+0x8109,
+0x7792,
+0x9992,
+0x86EE,
+0x6EE1,
+0x8513,
+0x66FC,
+0x6162,
+0x6F2B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8C29,
+0x8292,
+0x832B,
+0x76F2,
+0x6C13,
+0x5FD9,
+0x83BD,
+0x732B,
+0x8305,
+0x951A,
+0x6BDB,
+0x77DB,
+0x94C6,
+0x536F,
+0x8302,
+0x5192,
+0x5E3D,
+0x8C8C,
+0x8D38,
+0x4E48,
+0x73AB,
+0x679A,
+0x6885,
+0x9176,
+0x9709,
+0x7164,
+0x6CA1,
+0x7709,
+0x5A92,
+0x9541,
+0x6BCF,
+0x7F8E,
+0x6627,
+0x5BD0,
+0x59B9,
+0x5A9A,
+0x95E8,
+0x95F7,
+0x4EEC,
+0x840C,
+0x8499,
+0x6AAC,
+0x76DF,
+0x9530,
+0x731B,
+0x68A6,
+0x5B5F,
+0x772F,
+0x919A,
+0x9761,
+0x7CDC,
+0x8FF7,
+0x8C1C,
+0x5F25,
+0x7C73,
+0x79D8,
+0x89C5,
+0x6CCC,
+0x871C,
+0x5BC6,
+0x5E42,
+0x68C9,
+0x7720,
+0x7EF5,
+0x5195,
+0x514D,
+0x52C9,
+0x5A29,
+0x7F05,
+0x9762,
+0x82D7,
+0x63CF,
+0x7784,
+0x85D0,
+0x79D2,
+0x6E3A,
+0x5E99,
+0x5999,
+0x8511,
+0x706D,
+0x6C11,
+0x62BF,
+0x76BF,
+0x654F,
+0x60AF,
+0x95FD,
+0x660E,
+0x879F,
+0x9E23,
+0x94ED,
+0x540D,
+0x547D,
+0x8C2C,
+0x6478,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6479,
+0x8611,
+0x6A21,
+0x819C,
+0x78E8,
+0x6469,
+0x9B54,
+0x62B9,
+0x672B,
+0x83AB,
+0x58A8,
+0x9ED8,
+0x6CAB,
+0x6F20,
+0x5BDE,
+0x964C,
+0x8C0B,
+0x725F,
+0x67D0,
+0x62C7,
+0x7261,
+0x4EA9,
+0x59C6,
+0x6BCD,
+0x5893,
+0x66AE,
+0x5E55,
+0x52DF,
+0x6155,
+0x6728,
+0x76EE,
+0x7766,
+0x7267,
+0x7A46,
+0x62FF,
+0x54EA,
+0x5450,
+0x94A0,
+0x90A3,
+0x5A1C,
+0x7EB3,
+0x6C16,
+0x4E43,
+0x5976,
+0x8010,
+0x5948,
+0x5357,
+0x7537,
+0x96BE,
+0x56CA,
+0x6320,
+0x8111,
+0x607C,
+0x95F9,
+0x6DD6,
+0x5462,
+0x9981,
+0x5185,
+0x5AE9,
+0x80FD,
+0x59AE,
+0x9713,
+0x502A,
+0x6CE5,
+0x5C3C,
+0x62DF,
+0x4F60,
+0x533F,
+0x817B,
+0x9006,
+0x6EBA,
+0x852B,
+0x62C8,
+0x5E74,
+0x78BE,
+0x64B5,
+0x637B,
+0x5FF5,
+0x5A18,
+0x917F,
+0x9E1F,
+0x5C3F,
+0x634F,
+0x8042,
+0x5B7D,
+0x556E,
+0x954A,
+0x954D,
+0x6D85,
+0x60A8,
+0x67E0,
+0x72DE,
+0x51DD,
+0x5B81,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x62E7,
+0x6CDE,
+0x725B,
+0x626D,
+0x94AE,
+0x7EBD,
+0x8113,
+0x6D53,
+0x519C,
+0x5F04,
+0x5974,
+0x52AA,
+0x6012,
+0x5973,
+0x6696,
+0x8650,
+0x759F,
+0x632A,
+0x61E6,
+0x7CEF,
+0x8BFA,
+0x54E6,
+0x6B27,
+0x9E25,
+0x6BB4,
+0x85D5,
+0x5455,
+0x5076,
+0x6CA4,
+0x556A,
+0x8DB4,
+0x722C,
+0x5E15,
+0x6015,
+0x7436,
+0x62CD,
+0x6392,
+0x724C,
+0x5F98,
+0x6E43,
+0x6D3E,
+0x6500,
+0x6F58,
+0x76D8,
+0x78D0,
+0x76FC,
+0x7554,
+0x5224,
+0x53DB,
+0x4E53,
+0x5E9E,
+0x65C1,
+0x802A,
+0x80D6,
+0x629B,
+0x5486,
+0x5228,
+0x70AE,
+0x888D,
+0x8DD1,
+0x6CE1,
+0x5478,
+0x80DA,
+0x57F9,
+0x88F4,
+0x8D54,
+0x966A,
+0x914D,
+0x4F69,
+0x6C9B,
+0x55B7,
+0x76C6,
+0x7830,
+0x62A8,
+0x70F9,
+0x6F8E,
+0x5F6D,
+0x84EC,
+0x68DA,
+0x787C,
+0x7BF7,
+0x81A8,
+0x670B,
+0x9E4F,
+0x6367,
+0x78B0,
+0x576F,
+0x7812,
+0x9739,
+0x6279,
+0x62AB,
+0x5288,
+0x7435,
+0x6BD7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5564,
+0x813E,
+0x75B2,
+0x76AE,
+0x5339,
+0x75DE,
+0x50FB,
+0x5C41,
+0x8B6C,
+0x7BC7,
+0x504F,
+0x7247,
+0x9A97,
+0x98D8,
+0x6F02,
+0x74E2,
+0x7968,
+0x6487,
+0x77A5,
+0x62FC,
+0x9891,
+0x8D2B,
+0x54C1,
+0x8058,
+0x4E52,
+0x576A,
+0x82F9,
+0x840D,
+0x5E73,
+0x51ED,
+0x74F6,
+0x8BC4,
+0x5C4F,
+0x5761,
+0x6CFC,
+0x9887,
+0x5A46,
+0x7834,
+0x9B44,
+0x8FEB,
+0x7C95,
+0x5256,
+0x6251,
+0x94FA,
+0x4EC6,
+0x8386,
+0x8461,
+0x83E9,
+0x84B2,
+0x57D4,
+0x6734,
+0x5703,
+0x666E,
+0x6D66,
+0x8C31,
+0x66DD,
+0x7011,
+0x671F,
+0x6B3A,
+0x6816,
+0x621A,
+0x59BB,
+0x4E03,
+0x51C4,
+0x6F06,
+0x67D2,
+0x6C8F,
+0x5176,
+0x68CB,
+0x5947,
+0x6B67,
+0x7566,
+0x5D0E,
+0x8110,
+0x9F50,
+0x65D7,
+0x7948,
+0x7941,
+0x9A91,
+0x8D77,
+0x5C82,
+0x4E5E,
+0x4F01,
+0x542F,
+0x5951,
+0x780C,
+0x5668,
+0x6C14,
+0x8FC4,
+0x5F03,
+0x6C7D,
+0x6CE3,
+0x8BAB,
+0x6390,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6070,
+0x6D3D,
+0x7275,
+0x6266,
+0x948E,
+0x94C5,
+0x5343,
+0x8FC1,
+0x7B7E,
+0x4EDF,
+0x8C26,
+0x4E7E,
+0x9ED4,
+0x94B1,
+0x94B3,
+0x524D,
+0x6F5C,
+0x9063,
+0x6D45,
+0x8C34,
+0x5811,
+0x5D4C,
+0x6B20,
+0x6B49,
+0x67AA,
+0x545B,
+0x8154,
+0x7F8C,
+0x5899,
+0x8537,
+0x5F3A,
+0x62A2,
+0x6A47,
+0x9539,
+0x6572,
+0x6084,
+0x6865,
+0x77A7,
+0x4E54,
+0x4FA8,
+0x5DE7,
+0x9798,
+0x64AC,
+0x7FD8,
+0x5CED,
+0x4FCF,
+0x7A8D,
+0x5207,
+0x8304,
+0x4E14,
+0x602F,
+0x7A83,
+0x94A6,
+0x4FB5,
+0x4EB2,
+0x79E6,
+0x7434,
+0x52E4,
+0x82B9,
+0x64D2,
+0x79BD,
+0x5BDD,
+0x6C81,
+0x9752,
+0x8F7B,
+0x6C22,
+0x503E,
+0x537F,
+0x6E05,
+0x64CE,
+0x6674,
+0x6C30,
+0x60C5,
+0x9877,
+0x8BF7,
+0x5E86,
+0x743C,
+0x7A77,
+0x79CB,
+0x4E18,
+0x90B1,
+0x7403,
+0x6C42,
+0x56DA,
+0x914B,
+0x6CC5,
+0x8D8B,
+0x533A,
+0x86C6,
+0x66F2,
+0x8EAF,
+0x5C48,
+0x9A71,
+0x6E20,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x53D6,
+0x5A36,
+0x9F8B,
+0x8DA3,
+0x53BB,
+0x5708,
+0x98A7,
+0x6743,
+0x919B,
+0x6CC9,
+0x5168,
+0x75CA,
+0x62F3,
+0x72AC,
+0x5238,
+0x529D,
+0x7F3A,
+0x7094,
+0x7638,
+0x5374,
+0x9E4A,
+0x69B7,
+0x786E,
+0x96C0,
+0x88D9,
+0x7FA4,
+0x7136,
+0x71C3,
+0x5189,
+0x67D3,
+0x74E4,
+0x58E4,
+0x6518,
+0x56B7,
+0x8BA9,
+0x9976,
+0x6270,
+0x7ED5,
+0x60F9,
+0x70ED,
+0x58EC,
+0x4EC1,
+0x4EBA,
+0x5FCD,
+0x97E7,
+0x4EFB,
+0x8BA4,
+0x5203,
+0x598A,
+0x7EAB,
+0x6254,
+0x4ECD,
+0x65E5,
+0x620E,
+0x8338,
+0x84C9,
+0x8363,
+0x878D,
+0x7194,
+0x6EB6,
+0x5BB9,
+0x7ED2,
+0x5197,
+0x63C9,
+0x67D4,
+0x8089,
+0x8339,
+0x8815,
+0x5112,
+0x5B7A,
+0x5982,
+0x8FB1,
+0x4E73,
+0x6C5D,
+0x5165,
+0x8925,
+0x8F6F,
+0x962E,
+0x854A,
+0x745E,
+0x9510,
+0x95F0,
+0x6DA6,
+0x82E5,
+0x5F31,
+0x6492,
+0x6D12,
+0x8428,
+0x816E,
+0x9CC3,
+0x585E,
+0x8D5B,
+0x4E09,
+0x53C1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4F1E,
+0x6563,
+0x6851,
+0x55D3,
+0x4E27,
+0x6414,
+0x9A9A,
+0x626B,
+0x5AC2,
+0x745F,
+0x8272,
+0x6DA9,
+0x68EE,
+0x50E7,
+0x838E,
+0x7802,
+0x6740,
+0x5239,
+0x6C99,
+0x7EB1,
+0x50BB,
+0x5565,
+0x715E,
+0x7B5B,
+0x6652,
+0x73CA,
+0x82EB,
+0x6749,
+0x5C71,
+0x5220,
+0x717D,
+0x886B,
+0x95EA,
+0x9655,
+0x64C5,
+0x8D61,
+0x81B3,
+0x5584,
+0x6C55,
+0x6247,
+0x7F2E,
+0x5892,
+0x4F24,
+0x5546,
+0x8D4F,
+0x664C,
+0x4E0A,
+0x5C1A,
+0x88F3,
+0x68A2,
+0x634E,
+0x7A0D,
+0x70E7,
+0x828D,
+0x52FA,
+0x97F6,
+0x5C11,
+0x54E8,
+0x90B5,
+0x7ECD,
+0x5962,
+0x8D4A,
+0x86C7,
+0x820C,
+0x820D,
+0x8D66,
+0x6444,
+0x5C04,
+0x6151,
+0x6D89,
+0x793E,
+0x8BBE,
+0x7837,
+0x7533,
+0x547B,
+0x4F38,
+0x8EAB,
+0x6DF1,
+0x5A20,
+0x7EC5,
+0x795E,
+0x6C88,
+0x5BA1,
+0x5A76,
+0x751A,
+0x80BE,
+0x614E,
+0x6E17,
+0x58F0,
+0x751F,
+0x7525,
+0x7272,
+0x5347,
+0x7EF3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7701,
+0x76DB,
+0x5269,
+0x80DC,
+0x5723,
+0x5E08,
+0x5931,
+0x72EE,
+0x65BD,
+0x6E7F,
+0x8BD7,
+0x5C38,
+0x8671,
+0x5341,
+0x77F3,
+0x62FE,
+0x65F6,
+0x4EC0,
+0x98DF,
+0x8680,
+0x5B9E,
+0x8BC6,
+0x53F2,
+0x77E2,
+0x4F7F,
+0x5C4E,
+0x9A76,
+0x59CB,
+0x5F0F,
+0x793A,
+0x58EB,
+0x4E16,
+0x67FF,
+0x4E8B,
+0x62ED,
+0x8A93,
+0x901D,
+0x52BF,
+0x662F,
+0x55DC,
+0x566C,
+0x9002,
+0x4ED5,
+0x4F8D,
+0x91CA,
+0x9970,
+0x6C0F,
+0x5E02,
+0x6043,
+0x5BA4,
+0x89C6,
+0x8BD5,
+0x6536,
+0x624B,
+0x9996,
+0x5B88,
+0x5BFF,
+0x6388,
+0x552E,
+0x53D7,
+0x7626,
+0x517D,
+0x852C,
+0x67A2,
+0x68B3,
+0x6B8A,
+0x6292,
+0x8F93,
+0x53D4,
+0x8212,
+0x6DD1,
+0x758F,
+0x4E66,
+0x8D4E,
+0x5B70,
+0x719F,
+0x85AF,
+0x6691,
+0x66D9,
+0x7F72,
+0x8700,
+0x9ECD,
+0x9F20,
+0x5C5E,
+0x672F,
+0x8FF0,
+0x6811,
+0x675F,
+0x620D,
+0x7AD6,
+0x5885,
+0x5EB6,
+0x6570,
+0x6F31,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6055,
+0x5237,
+0x800D,
+0x6454,
+0x8870,
+0x7529,
+0x5E05,
+0x6813,
+0x62F4,
+0x971C,
+0x53CC,
+0x723D,
+0x8C01,
+0x6C34,
+0x7761,
+0x7A0E,
+0x542E,
+0x77AC,
+0x987A,
+0x821C,
+0x8BF4,
+0x7855,
+0x6714,
+0x70C1,
+0x65AF,
+0x6495,
+0x5636,
+0x601D,
+0x79C1,
+0x53F8,
+0x4E1D,
+0x6B7B,
+0x8086,
+0x5BFA,
+0x55E3,
+0x56DB,
+0x4F3A,
+0x4F3C,
+0x9972,
+0x5DF3,
+0x677E,
+0x8038,
+0x6002,
+0x9882,
+0x9001,
+0x5B8B,
+0x8BBC,
+0x8BF5,
+0x641C,
+0x8258,
+0x64DE,
+0x55FD,
+0x82CF,
+0x9165,
+0x4FD7,
+0x7D20,
+0x901F,
+0x7C9F,
+0x50F3,
+0x5851,
+0x6EAF,
+0x5BBF,
+0x8BC9,
+0x8083,
+0x9178,
+0x849C,
+0x7B97,
+0x867D,
+0x968B,
+0x968F,
+0x7EE5,
+0x9AD3,
+0x788E,
+0x5C81,
+0x7A57,
+0x9042,
+0x96A7,
+0x795F,
+0x5B59,
+0x635F,
+0x7B0B,
+0x84D1,
+0x68AD,
+0x5506,
+0x7F29,
+0x7410,
+0x7D22,
+0x9501,
+0x6240,
+0x584C,
+0x4ED6,
+0x5B83,
+0x5979,
+0x5854,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x736D,
+0x631E,
+0x8E4B,
+0x8E0F,
+0x80CE,
+0x82D4,
+0x62AC,
+0x53F0,
+0x6CF0,
+0x915E,
+0x592A,
+0x6001,
+0x6C70,
+0x574D,
+0x644A,
+0x8D2A,
+0x762B,
+0x6EE9,
+0x575B,
+0x6A80,
+0x75F0,
+0x6F6D,
+0x8C2D,
+0x8C08,
+0x5766,
+0x6BEF,
+0x8892,
+0x78B3,
+0x63A2,
+0x53F9,
+0x70AD,
+0x6C64,
+0x5858,
+0x642A,
+0x5802,
+0x68E0,
+0x819B,
+0x5510,
+0x7CD6,
+0x5018,
+0x8EBA,
+0x6DCC,
+0x8D9F,
+0x70EB,
+0x638F,
+0x6D9B,
+0x6ED4,
+0x7EE6,
+0x8404,
+0x6843,
+0x9003,
+0x6DD8,
+0x9676,
+0x8BA8,
+0x5957,
+0x7279,
+0x85E4,
+0x817E,
+0x75BC,
+0x8A8A,
+0x68AF,
+0x5254,
+0x8E22,
+0x9511,
+0x63D0,
+0x9898,
+0x8E44,
+0x557C,
+0x4F53,
+0x66FF,
+0x568F,
+0x60D5,
+0x6D95,
+0x5243,
+0x5C49,
+0x5929,
+0x6DFB,
+0x586B,
+0x7530,
+0x751C,
+0x606C,
+0x8214,
+0x8146,
+0x6311,
+0x6761,
+0x8FE2,
+0x773A,
+0x8DF3,
+0x8D34,
+0x94C1,
+0x5E16,
+0x5385,
+0x542C,
+0x70C3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6C40,
+0x5EF7,
+0x505C,
+0x4EAD,
+0x5EAD,
+0x633A,
+0x8247,
+0x901A,
+0x6850,
+0x916E,
+0x77B3,
+0x540C,
+0x94DC,
+0x5F64,
+0x7AE5,
+0x6876,
+0x6345,
+0x7B52,
+0x7EDF,
+0x75DB,
+0x5077,
+0x6295,
+0x5934,
+0x900F,
+0x51F8,
+0x79C3,
+0x7A81,
+0x56FE,
+0x5F92,
+0x9014,
+0x6D82,
+0x5C60,
+0x571F,
+0x5410,
+0x5154,
+0x6E4D,
+0x56E2,
+0x63A8,
+0x9893,
+0x817F,
+0x8715,
+0x892A,
+0x9000,
+0x541E,
+0x5C6F,
+0x81C0,
+0x62D6,
+0x6258,
+0x8131,
+0x9E35,
+0x9640,
+0x9A6E,
+0x9A7C,
+0x692D,
+0x59A5,
+0x62D3,
+0x553E,
+0x6316,
+0x54C7,
+0x86D9,
+0x6D3C,
+0x5A03,
+0x74E6,
+0x889C,
+0x6B6A,
+0x5916,
+0x8C4C,
+0x5F2F,
+0x6E7E,
+0x73A9,
+0x987D,
+0x4E38,
+0x70F7,
+0x5B8C,
+0x7897,
+0x633D,
+0x665A,
+0x7696,
+0x60CB,
+0x5B9B,
+0x5A49,
+0x4E07,
+0x8155,
+0x6C6A,
+0x738B,
+0x4EA1,
+0x6789,
+0x7F51,
+0x5F80,
+0x65FA,
+0x671B,
+0x5FD8,
+0x5984,
+0x5A01,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5DCD,
+0x5FAE,
+0x5371,
+0x97E6,
+0x8FDD,
+0x6845,
+0x56F4,
+0x552F,
+0x60DF,
+0x4E3A,
+0x6F4D,
+0x7EF4,
+0x82C7,
+0x840E,
+0x59D4,
+0x4F1F,
+0x4F2A,
+0x5C3E,
+0x7EAC,
+0x672A,
+0x851A,
+0x5473,
+0x754F,
+0x80C3,
+0x5582,
+0x9B4F,
+0x4F4D,
+0x6E2D,
+0x8C13,
+0x5C09,
+0x6170,
+0x536B,
+0x761F,
+0x6E29,
+0x868A,
+0x6587,
+0x95FB,
+0x7EB9,
+0x543B,
+0x7A33,
+0x7D0A,
+0x95EE,
+0x55E1,
+0x7FC1,
+0x74EE,
+0x631D,
+0x8717,
+0x6DA1,
+0x7A9D,
+0x6211,
+0x65A1,
+0x5367,
+0x63E1,
+0x6C83,
+0x5DEB,
+0x545C,
+0x94A8,
+0x4E4C,
+0x6C61,
+0x8BEC,
+0x5C4B,
+0x65E0,
+0x829C,
+0x68A7,
+0x543E,
+0x5434,
+0x6BCB,
+0x6B66,
+0x4E94,
+0x6342,
+0x5348,
+0x821E,
+0x4F0D,
+0x4FAE,
+0x575E,
+0x620A,
+0x96FE,
+0x6664,
+0x7269,
+0x52FF,
+0x52A1,
+0x609F,
+0x8BEF,
+0x6614,
+0x7199,
+0x6790,
+0x897F,
+0x7852,
+0x77FD,
+0x6670,
+0x563B,
+0x5438,
+0x9521,
+0x727A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7A00,
+0x606F,
+0x5E0C,
+0x6089,
+0x819D,
+0x5915,
+0x60DC,
+0x7184,
+0x70EF,
+0x6EAA,
+0x6C50,
+0x7280,
+0x6A84,
+0x88AD,
+0x5E2D,
+0x4E60,
+0x5AB3,
+0x559C,
+0x94E3,
+0x6D17,
+0x7CFB,
+0x9699,
+0x620F,
+0x7EC6,
+0x778E,
+0x867E,
+0x5323,
+0x971E,
+0x8F96,
+0x6687,
+0x5CE1,
+0x4FA0,
+0x72ED,
+0x4E0B,
+0x53A6,
+0x590F,
+0x5413,
+0x6380,
+0x9528,
+0x5148,
+0x4ED9,
+0x9C9C,
+0x7EA4,
+0x54B8,
+0x8D24,
+0x8854,
+0x8237,
+0x95F2,
+0x6D8E,
+0x5F26,
+0x5ACC,
+0x663E,
+0x9669,
+0x73B0,
+0x732E,
+0x53BF,
+0x817A,
+0x9985,
+0x7FA1,
+0x5BAA,
+0x9677,
+0x9650,
+0x7EBF,
+0x76F8,
+0x53A2,
+0x9576,
+0x9999,
+0x7BB1,
+0x8944,
+0x6E58,
+0x4E61,
+0x7FD4,
+0x7965,
+0x8BE6,
+0x60F3,
+0x54CD,
+0x4EAB,
+0x9879,
+0x5DF7,
+0x6A61,
+0x50CF,
+0x5411,
+0x8C61,
+0x8427,
+0x785D,
+0x9704,
+0x524A,
+0x54EE,
+0x56A3,
+0x9500,
+0x6D88,
+0x5BB5,
+0x6DC6,
+0x6653,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5C0F,
+0x5B5D,
+0x6821,
+0x8096,
+0x5578,
+0x7B11,
+0x6548,
+0x6954,
+0x4E9B,
+0x6B47,
+0x874E,
+0x978B,
+0x534F,
+0x631F,
+0x643A,
+0x90AA,
+0x659C,
+0x80C1,
+0x8C10,
+0x5199,
+0x68B0,
+0x5378,
+0x87F9,
+0x61C8,
+0x6CC4,
+0x6CFB,
+0x8C22,
+0x5C51,
+0x85AA,
+0x82AF,
+0x950C,
+0x6B23,
+0x8F9B,
+0x65B0,
+0x5FFB,
+0x5FC3,
+0x4FE1,
+0x8845,
+0x661F,
+0x8165,
+0x7329,
+0x60FA,
+0x5174,
+0x5211,
+0x578B,
+0x5F62,
+0x90A2,
+0x884C,
+0x9192,
+0x5E78,
+0x674F,
+0x6027,
+0x59D3,
+0x5144,
+0x51F6,
+0x80F8,
+0x5308,
+0x6C79,
+0x96C4,
+0x718A,
+0x4F11,
+0x4FEE,
+0x7F9E,
+0x673D,
+0x55C5,
+0x9508,
+0x79C0,
+0x8896,
+0x7EE3,
+0x589F,
+0x620C,
+0x9700,
+0x865A,
+0x5618,
+0x987B,
+0x5F90,
+0x8BB8,
+0x84C4,
+0x9157,
+0x53D9,
+0x65ED,
+0x5E8F,
+0x755C,
+0x6064,
+0x7D6E,
+0x5A7F,
+0x7EEA,
+0x7EED,
+0x8F69,
+0x55A7,
+0x5BA3,
+0x60AC,
+0x65CB,
+0x7384,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9009,
+0x7663,
+0x7729,
+0x7EDA,
+0x9774,
+0x859B,
+0x5B66,
+0x7A74,
+0x96EA,
+0x8840,
+0x52CB,
+0x718F,
+0x5FAA,
+0x65EC,
+0x8BE2,
+0x5BFB,
+0x9A6F,
+0x5DE1,
+0x6B89,
+0x6C5B,
+0x8BAD,
+0x8BAF,
+0x900A,
+0x8FC5,
+0x538B,
+0x62BC,
+0x9E26,
+0x9E2D,
+0x5440,
+0x4E2B,
+0x82BD,
+0x7259,
+0x869C,
+0x5D16,
+0x8859,
+0x6DAF,
+0x96C5,
+0x54D1,
+0x4E9A,
+0x8BB6,
+0x7109,
+0x54BD,
+0x9609,
+0x70DF,
+0x6DF9,
+0x76D0,
+0x4E25,
+0x7814,
+0x8712,
+0x5CA9,
+0x5EF6,
+0x8A00,
+0x989C,
+0x960E,
+0x708E,
+0x6CBF,
+0x5944,
+0x63A9,
+0x773C,
+0x884D,
+0x6F14,
+0x8273,
+0x5830,
+0x71D5,
+0x538C,
+0x781A,
+0x96C1,
+0x5501,
+0x5F66,
+0x7130,
+0x5BB4,
+0x8C1A,
+0x9A8C,
+0x6B83,
+0x592E,
+0x9E2F,
+0x79E7,
+0x6768,
+0x626C,
+0x4F6F,
+0x75A1,
+0x7F8A,
+0x6D0B,
+0x9633,
+0x6C27,
+0x4EF0,
+0x75D2,
+0x517B,
+0x6837,
+0x6F3E,
+0x9080,
+0x8170,
+0x5996,
+0x7476,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6447,
+0x5C27,
+0x9065,
+0x7A91,
+0x8C23,
+0x59DA,
+0x54AC,
+0x8200,
+0x836F,
+0x8981,
+0x8000,
+0x6930,
+0x564E,
+0x8036,
+0x7237,
+0x91CE,
+0x51B6,
+0x4E5F,
+0x9875,
+0x6396,
+0x4E1A,
+0x53F6,
+0x66F3,
+0x814B,
+0x591C,
+0x6DB2,
+0x4E00,
+0x58F9,
+0x533B,
+0x63D6,
+0x94F1,
+0x4F9D,
+0x4F0A,
+0x8863,
+0x9890,
+0x5937,
+0x9057,
+0x79FB,
+0x4EEA,
+0x80F0,
+0x7591,
+0x6C82,
+0x5B9C,
+0x59E8,
+0x5F5D,
+0x6905,
+0x8681,
+0x501A,
+0x5DF2,
+0x4E59,
+0x77E3,
+0x4EE5,
+0x827A,
+0x6291,
+0x6613,
+0x9091,
+0x5C79,
+0x4EBF,
+0x5F79,
+0x81C6,
+0x9038,
+0x8084,
+0x75AB,
+0x4EA6,
+0x88D4,
+0x610F,
+0x6BC5,
+0x5FC6,
+0x4E49,
+0x76CA,
+0x6EA2,
+0x8BE3,
+0x8BAE,
+0x8C0A,
+0x8BD1,
+0x5F02,
+0x7FFC,
+0x7FCC,
+0x7ECE,
+0x8335,
+0x836B,
+0x56E0,
+0x6BB7,
+0x97F3,
+0x9634,
+0x59FB,
+0x541F,
+0x94F6,
+0x6DEB,
+0x5BC5,
+0x996E,
+0x5C39,
+0x5F15,
+0x9690,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5370,
+0x82F1,
+0x6A31,
+0x5A74,
+0x9E70,
+0x5E94,
+0x7F28,
+0x83B9,
+0x8424,
+0x8425,
+0x8367,
+0x8747,
+0x8FCE,
+0x8D62,
+0x76C8,
+0x5F71,
+0x9896,
+0x786C,
+0x6620,
+0x54DF,
+0x62E5,
+0x4F63,
+0x81C3,
+0x75C8,
+0x5EB8,
+0x96CD,
+0x8E0A,
+0x86F9,
+0x548F,
+0x6CF3,
+0x6D8C,
+0x6C38,
+0x607F,
+0x52C7,
+0x7528,
+0x5E7D,
+0x4F18,
+0x60A0,
+0x5FE7,
+0x5C24,
+0x7531,
+0x90AE,
+0x94C0,
+0x72B9,
+0x6CB9,
+0x6E38,
+0x9149,
+0x6709,
+0x53CB,
+0x53F3,
+0x4F51,
+0x91C9,
+0x8BF1,
+0x53C8,
+0x5E7C,
+0x8FC2,
+0x6DE4,
+0x4E8E,
+0x76C2,
+0x6986,
+0x865E,
+0x611A,
+0x8206,
+0x4F59,
+0x4FDE,
+0x903E,
+0x9C7C,
+0x6109,
+0x6E1D,
+0x6E14,
+0x9685,
+0x4E88,
+0x5A31,
+0x96E8,
+0x4E0E,
+0x5C7F,
+0x79B9,
+0x5B87,
+0x8BED,
+0x7FBD,
+0x7389,
+0x57DF,
+0x828B,
+0x90C1,
+0x5401,
+0x9047,
+0x55BB,
+0x5CEA,
+0x5FA1,
+0x6108,
+0x6B32,
+0x72F1,
+0x80B2,
+0x8A89,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6D74,
+0x5BD3,
+0x88D5,
+0x9884,
+0x8C6B,
+0x9A6D,
+0x9E33,
+0x6E0A,
+0x51A4,
+0x5143,
+0x57A3,
+0x8881,
+0x539F,
+0x63F4,
+0x8F95,
+0x56ED,
+0x5458,
+0x5706,
+0x733F,
+0x6E90,
+0x7F18,
+0x8FDC,
+0x82D1,
+0x613F,
+0x6028,
+0x9662,
+0x66F0,
+0x7EA6,
+0x8D8A,
+0x8DC3,
+0x94A5,
+0x5CB3,
+0x7CA4,
+0x6708,
+0x60A6,
+0x9605,
+0x8018,
+0x4E91,
+0x90E7,
+0x5300,
+0x9668,
+0x5141,
+0x8FD0,
+0x8574,
+0x915D,
+0x6655,
+0x97F5,
+0x5B55,
+0x531D,
+0x7838,
+0x6742,
+0x683D,
+0x54C9,
+0x707E,
+0x5BB0,
+0x8F7D,
+0x518D,
+0x5728,
+0x54B1,
+0x6512,
+0x6682,
+0x8D5E,
+0x8D43,
+0x810F,
+0x846C,
+0x906D,
+0x7CDF,
+0x51FF,
+0x85FB,
+0x67A3,
+0x65E9,
+0x6FA1,
+0x86A4,
+0x8E81,
+0x566A,
+0x9020,
+0x7682,
+0x7076,
+0x71E5,
+0x8D23,
+0x62E9,
+0x5219,
+0x6CFD,
+0x8D3C,
+0x600E,
+0x589E,
+0x618E,
+0x66FE,
+0x8D60,
+0x624E,
+0x55B3,
+0x6E23,
+0x672D,
+0x8F67,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x94E1,
+0x95F8,
+0x7728,
+0x6805,
+0x69A8,
+0x548B,
+0x4E4D,
+0x70B8,
+0x8BC8,
+0x6458,
+0x658B,
+0x5B85,
+0x7A84,
+0x503A,
+0x5BE8,
+0x77BB,
+0x6BE1,
+0x8A79,
+0x7C98,
+0x6CBE,
+0x76CF,
+0x65A9,
+0x8F97,
+0x5D2D,
+0x5C55,
+0x8638,
+0x6808,
+0x5360,
+0x6218,
+0x7AD9,
+0x6E5B,
+0x7EFD,
+0x6A1F,
+0x7AE0,
+0x5F70,
+0x6F33,
+0x5F20,
+0x638C,
+0x6DA8,
+0x6756,
+0x4E08,
+0x5E10,
+0x8D26,
+0x4ED7,
+0x80C0,
+0x7634,
+0x969C,
+0x62DB,
+0x662D,
+0x627E,
+0x6CBC,
+0x8D75,
+0x7167,
+0x7F69,
+0x5146,
+0x8087,
+0x53EC,
+0x906E,
+0x6298,
+0x54F2,
+0x86F0,
+0x8F99,
+0x8005,
+0x9517,
+0x8517,
+0x8FD9,
+0x6D59,
+0x73CD,
+0x659F,
+0x771F,
+0x7504,
+0x7827,
+0x81FB,
+0x8D1E,
+0x9488,
+0x4FA6,
+0x6795,
+0x75B9,
+0x8BCA,
+0x9707,
+0x632F,
+0x9547,
+0x9635,
+0x84B8,
+0x6323,
+0x7741,
+0x5F81,
+0x72F0,
+0x4E89,
+0x6014,
+0x6574,
+0x62EF,
+0x6B63,
+0x653F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5E27,
+0x75C7,
+0x90D1,
+0x8BC1,
+0x829D,
+0x679D,
+0x652F,
+0x5431,
+0x8718,
+0x77E5,
+0x80A2,
+0x8102,
+0x6C41,
+0x4E4B,
+0x7EC7,
+0x804C,
+0x76F4,
+0x690D,
+0x6B96,
+0x6267,
+0x503C,
+0x4F84,
+0x5740,
+0x6307,
+0x6B62,
+0x8DBE,
+0x53EA,
+0x65E8,
+0x7EB8,
+0x5FD7,
+0x631A,
+0x63B7,
+0x81F3,
+0x81F4,
+0x7F6E,
+0x5E1C,
+0x5CD9,
+0x5236,
+0x667A,
+0x79E9,
+0x7A1A,
+0x8D28,
+0x7099,
+0x75D4,
+0x6EDE,
+0x6CBB,
+0x7A92,
+0x4E2D,
+0x76C5,
+0x5FE0,
+0x949F,
+0x8877,
+0x7EC8,
+0x79CD,
+0x80BF,
+0x91CD,
+0x4EF2,
+0x4F17,
+0x821F,
+0x5468,
+0x5DDE,
+0x6D32,
+0x8BCC,
+0x7CA5,
+0x8F74,
+0x8098,
+0x5E1A,
+0x5492,
+0x76B1,
+0x5B99,
+0x663C,
+0x9AA4,
+0x73E0,
+0x682A,
+0x86DB,
+0x6731,
+0x732A,
+0x8BF8,
+0x8BDB,
+0x9010,
+0x7AF9,
+0x70DB,
+0x716E,
+0x62C4,
+0x77A9,
+0x5631,
+0x4E3B,
+0x8457,
+0x67F1,
+0x52A9,
+0x86C0,
+0x8D2E,
+0x94F8,
+0x7B51,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4F4F,
+0x6CE8,
+0x795D,
+0x9A7B,
+0x6293,
+0x722A,
+0x62FD,
+0x4E13,
+0x7816,
+0x8F6C,
+0x64B0,
+0x8D5A,
+0x7BC6,
+0x6869,
+0x5E84,
+0x88C5,
+0x5986,
+0x649E,
+0x58EE,
+0x72B6,
+0x690E,
+0x9525,
+0x8FFD,
+0x8D58,
+0x5760,
+0x7F00,
+0x8C06,
+0x51C6,
+0x6349,
+0x62D9,
+0x5353,
+0x684C,
+0x7422,
+0x8301,
+0x914C,
+0x5544,
+0x7740,
+0x707C,
+0x6D4A,
+0x5179,
+0x54A8,
+0x8D44,
+0x59FF,
+0x6ECB,
+0x6DC4,
+0x5B5C,
+0x7D2B,
+0x4ED4,
+0x7C7D,
+0x6ED3,
+0x5B50,
+0x81EA,
+0x6E0D,
+0x5B57,
+0x9B03,
+0x68D5,
+0x8E2A,
+0x5B97,
+0x7EFC,
+0x603B,
+0x7EB5,
+0x90B9,
+0x8D70,
+0x594F,
+0x63CD,
+0x79DF,
+0x8DB3,
+0x5352,
+0x65CF,
+0x7956,
+0x8BC5,
+0x963B,
+0x7EC4,
+0x94BB,
+0x7E82,
+0x5634,
+0x9189,
+0x6700,
+0x7F6A,
+0x5C0A,
+0x9075,
+0x6628,
+0x5DE6,
+0x4F50,
+0x67DE,
+0x505A,
+0x4F5C,
+0x5750,
+0x5EA7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4E8D,
+0x4E0C,
+0x5140,
+0x4E10,
+0x5EFF,
+0x5345,
+0x4E15,
+0x4E98,
+0x4E1E,
+0x9B32,
+0x5B6C,
+0x5669,
+0x4E28,
+0x79BA,
+0x4E3F,
+0x5315,
+0x4E47,
+0x592D,
+0x723B,
+0x536E,
+0x6C10,
+0x56DF,
+0x80E4,
+0x9997,
+0x6BD3,
+0x777E,
+0x9F17,
+0x4E36,
+0x4E9F,
+0x9F10,
+0x4E5C,
+0x4E69,
+0x4E93,
+0x8288,
+0x5B5B,
+0x556C,
+0x560F,
+0x4EC4,
+0x538D,
+0x539D,
+0x53A3,
+0x53A5,
+0x53AE,
+0x9765,
+0x8D5D,
+0x531A,
+0x53F5,
+0x5326,
+0x532E,
+0x533E,
+0x8D5C,
+0x5366,
+0x5363,
+0x5202,
+0x5208,
+0x520E,
+0x522D,
+0x5233,
+0x523F,
+0x5240,
+0x524C,
+0x525E,
+0x5261,
+0x525C,
+0x84AF,
+0x527D,
+0x5282,
+0x5281,
+0x5290,
+0x5293,
+0x5182,
+0x7F54,
+0x4EBB,
+0x4EC3,
+0x4EC9,
+0x4EC2,
+0x4EE8,
+0x4EE1,
+0x4EEB,
+0x4EDE,
+0x4F1B,
+0x4EF3,
+0x4F22,
+0x4F64,
+0x4EF5,
+0x4F25,
+0x4F27,
+0x4F09,
+0x4F2B,
+0x4F5E,
+0x4F67,
+0x6538,
+0x4F5A,
+0x4F5D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4F5F,
+0x4F57,
+0x4F32,
+0x4F3D,
+0x4F76,
+0x4F74,
+0x4F91,
+0x4F89,
+0x4F83,
+0x4F8F,
+0x4F7E,
+0x4F7B,
+0x4FAA,
+0x4F7C,
+0x4FAC,
+0x4F94,
+0x4FE6,
+0x4FE8,
+0x4FEA,
+0x4FC5,
+0x4FDA,
+0x4FE3,
+0x4FDC,
+0x4FD1,
+0x4FDF,
+0x4FF8,
+0x5029,
+0x504C,
+0x4FF3,
+0x502C,
+0x500F,
+0x502E,
+0x502D,
+0x4FFE,
+0x501C,
+0x500C,
+0x5025,
+0x5028,
+0x507E,
+0x5043,
+0x5055,
+0x5048,
+0x504E,
+0x506C,
+0x507B,
+0x50A5,
+0x50A7,
+0x50A9,
+0x50BA,
+0x50D6,
+0x5106,
+0x50ED,
+0x50EC,
+0x50E6,
+0x50EE,
+0x5107,
+0x510B,
+0x4EDD,
+0x6C3D,
+0x4F58,
+0x4F65,
+0x4FCE,
+0x9FA0,
+0x6C46,
+0x7C74,
+0x516E,
+0x5DFD,
+0x9EC9,
+0x9998,
+0x5181,
+0x5914,
+0x52F9,
+0x530D,
+0x8A07,
+0x5310,
+0x51EB,
+0x5919,
+0x5155,
+0x4EA0,
+0x5156,
+0x4EB3,
+0x886E,
+0x88A4,
+0x4EB5,
+0x8114,
+0x88D2,
+0x7980,
+0x5B34,
+0x8803,
+0x7FB8,
+0x51AB,
+0x51B1,
+0x51BD,
+0x51BC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x51C7,
+0x5196,
+0x51A2,
+0x51A5,
+0x8BA0,
+0x8BA6,
+0x8BA7,
+0x8BAA,
+0x8BB4,
+0x8BB5,
+0x8BB7,
+0x8BC2,
+0x8BC3,
+0x8BCB,
+0x8BCF,
+0x8BCE,
+0x8BD2,
+0x8BD3,
+0x8BD4,
+0x8BD6,
+0x8BD8,
+0x8BD9,
+0x8BDC,
+0x8BDF,
+0x8BE0,
+0x8BE4,
+0x8BE8,
+0x8BE9,
+0x8BEE,
+0x8BF0,
+0x8BF3,
+0x8BF6,
+0x8BF9,
+0x8BFC,
+0x8BFF,
+0x8C00,
+0x8C02,
+0x8C04,
+0x8C07,
+0x8C0C,
+0x8C0F,
+0x8C11,
+0x8C12,
+0x8C14,
+0x8C15,
+0x8C16,
+0x8C19,
+0x8C1B,
+0x8C18,
+0x8C1D,
+0x8C1F,
+0x8C20,
+0x8C21,
+0x8C25,
+0x8C27,
+0x8C2A,
+0x8C2B,
+0x8C2E,
+0x8C2F,
+0x8C32,
+0x8C33,
+0x8C35,
+0x8C36,
+0x5369,
+0x537A,
+0x961D,
+0x9622,
+0x9621,
+0x9631,
+0x962A,
+0x963D,
+0x963C,
+0x9642,
+0x9649,
+0x9654,
+0x965F,
+0x9667,
+0x966C,
+0x9672,
+0x9674,
+0x9688,
+0x968D,
+0x9697,
+0x96B0,
+0x9097,
+0x909B,
+0x909D,
+0x9099,
+0x90AC,
+0x90A1,
+0x90B4,
+0x90B3,
+0x90B6,
+0x90BA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x90B8,
+0x90B0,
+0x90CF,
+0x90C5,
+0x90BE,
+0x90D0,
+0x90C4,
+0x90C7,
+0x90D3,
+0x90E6,
+0x90E2,
+0x90DC,
+0x90D7,
+0x90DB,
+0x90EB,
+0x90EF,
+0x90FE,
+0x9104,
+0x9122,
+0x911E,
+0x9123,
+0x9131,
+0x912F,
+0x9139,
+0x9143,
+0x9146,
+0x520D,
+0x5942,
+0x52A2,
+0x52AC,
+0x52AD,
+0x52BE,
+0x54FF,
+0x52D0,
+0x52D6,
+0x52F0,
+0x53DF,
+0x71EE,
+0x77CD,
+0x5EF4,
+0x51F5,
+0x51FC,
+0x9B2F,
+0x53B6,
+0x5F01,
+0x755A,
+0x5DEF,
+0x574C,
+0x57A9,
+0x57A1,
+0x587E,
+0x58BC,
+0x58C5,
+0x58D1,
+0x5729,
+0x572C,
+0x572A,
+0x5733,
+0x5739,
+0x572E,
+0x572F,
+0x575C,
+0x573B,
+0x5742,
+0x5769,
+0x5785,
+0x576B,
+0x5786,
+0x577C,
+0x577B,
+0x5768,
+0x576D,
+0x5776,
+0x5773,
+0x57AD,
+0x57A4,
+0x578C,
+0x57B2,
+0x57CF,
+0x57A7,
+0x57B4,
+0x5793,
+0x57A0,
+0x57D5,
+0x57D8,
+0x57DA,
+0x57D9,
+0x57D2,
+0x57B8,
+0x57F4,
+0x57EF,
+0x57F8,
+0x57E4,
+0x57DD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x580B,
+0x580D,
+0x57FD,
+0x57ED,
+0x5800,
+0x581E,
+0x5819,
+0x5844,
+0x5820,
+0x5865,
+0x586C,
+0x5881,
+0x5889,
+0x589A,
+0x5880,
+0x99A8,
+0x9F19,
+0x61FF,
+0x8279,
+0x827D,
+0x827F,
+0x828F,
+0x828A,
+0x82A8,
+0x8284,
+0x828E,
+0x8291,
+0x8297,
+0x8299,
+0x82AB,
+0x82B8,
+0x82BE,
+0x82B0,
+0x82C8,
+0x82CA,
+0x82E3,
+0x8298,
+0x82B7,
+0x82AE,
+0x82CB,
+0x82CC,
+0x82C1,
+0x82A9,
+0x82B4,
+0x82A1,
+0x82AA,
+0x829F,
+0x82C4,
+0x82CE,
+0x82A4,
+0x82E1,
+0x8309,
+0x82F7,
+0x82E4,
+0x830F,
+0x8307,
+0x82DC,
+0x82F4,
+0x82D2,
+0x82D8,
+0x830C,
+0x82FB,
+0x82D3,
+0x8311,
+0x831A,
+0x8306,
+0x8314,
+0x8315,
+0x82E0,
+0x82D5,
+0x831C,
+0x8351,
+0x835B,
+0x835C,
+0x8308,
+0x8392,
+0x833C,
+0x8334,
+0x8331,
+0x839B,
+0x835E,
+0x832F,
+0x834F,
+0x8347,
+0x8343,
+0x835F,
+0x8340,
+0x8317,
+0x8360,
+0x832D,
+0x833A,
+0x8333,
+0x8366,
+0x8365,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8368,
+0x831B,
+0x8369,
+0x836C,
+0x836A,
+0x836D,
+0x836E,
+0x83B0,
+0x8378,
+0x83B3,
+0x83B4,
+0x83A0,
+0x83AA,
+0x8393,
+0x839C,
+0x8385,
+0x837C,
+0x83B6,
+0x83A9,
+0x837D,
+0x83B8,
+0x837B,
+0x8398,
+0x839E,
+0x83A8,
+0x83BA,
+0x83BC,
+0x83C1,
+0x8401,
+0x83E5,
+0x83D8,
+0x5807,
+0x8418,
+0x840B,
+0x83DD,
+0x83FD,
+0x83D6,
+0x841C,
+0x8438,
+0x8411,
+0x8406,
+0x83D4,
+0x83DF,
+0x840F,
+0x8403,
+0x83F8,
+0x83F9,
+0x83EA,
+0x83C5,
+0x83C0,
+0x8426,
+0x83F0,
+0x83E1,
+0x845C,
+0x8451,
+0x845A,
+0x8459,
+0x8473,
+0x8487,
+0x8488,
+0x847A,
+0x8489,
+0x8478,
+0x843C,
+0x8446,
+0x8469,
+0x8476,
+0x848C,
+0x848E,
+0x8431,
+0x846D,
+0x84C1,
+0x84CD,
+0x84D0,
+0x84E6,
+0x84BD,
+0x84D3,
+0x84CA,
+0x84BF,
+0x84BA,
+0x84E0,
+0x84A1,
+0x84B9,
+0x84B4,
+0x8497,
+0x84E5,
+0x84E3,
+0x850C,
+0x750D,
+0x8538,
+0x84F0,
+0x8539,
+0x851F,
+0x853A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8556,
+0x853B,
+0x84FF,
+0x84FC,
+0x8559,
+0x8548,
+0x8568,
+0x8564,
+0x855E,
+0x857A,
+0x77A2,
+0x8543,
+0x8572,
+0x857B,
+0x85A4,
+0x85A8,
+0x8587,
+0x858F,
+0x8579,
+0x85AE,
+0x859C,
+0x8585,
+0x85B9,
+0x85B7,
+0x85B0,
+0x85D3,
+0x85C1,
+0x85DC,
+0x85FF,
+0x8627,
+0x8605,
+0x8629,
+0x8616,
+0x863C,
+0x5EFE,
+0x5F08,
+0x593C,
+0x5941,
+0x8037,
+0x5955,
+0x595A,
+0x5958,
+0x530F,
+0x5C22,
+0x5C25,
+0x5C2C,
+0x5C34,
+0x624C,
+0x626A,
+0x629F,
+0x62BB,
+0x62CA,
+0x62DA,
+0x62D7,
+0x62EE,
+0x6322,
+0x62F6,
+0x6339,
+0x634B,
+0x6343,
+0x63AD,
+0x63F6,
+0x6371,
+0x637A,
+0x638E,
+0x63B4,
+0x636D,
+0x63AC,
+0x638A,
+0x6369,
+0x63AE,
+0x63BC,
+0x63F2,
+0x63F8,
+0x63E0,
+0x63FF,
+0x63C4,
+0x63DE,
+0x63CE,
+0x6452,
+0x63C6,
+0x63BE,
+0x6445,
+0x6441,
+0x640B,
+0x641B,
+0x6420,
+0x640C,
+0x6426,
+0x6421,
+0x645E,
+0x6484,
+0x646D,
+0x6496,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x647A,
+0x64B7,
+0x64B8,
+0x6499,
+0x64BA,
+0x64C0,
+0x64D0,
+0x64D7,
+0x64E4,
+0x64E2,
+0x6509,
+0x6525,
+0x652E,
+0x5F0B,
+0x5FD2,
+0x7519,
+0x5F11,
+0x535F,
+0x53F1,
+0x53FD,
+0x53E9,
+0x53E8,
+0x53FB,
+0x5412,
+0x5416,
+0x5406,
+0x544B,
+0x5452,
+0x5453,
+0x5454,
+0x5456,
+0x5443,
+0x5421,
+0x5457,
+0x5459,
+0x5423,
+0x5432,
+0x5482,
+0x5494,
+0x5477,
+0x5471,
+0x5464,
+0x549A,
+0x549B,
+0x5484,
+0x5476,
+0x5466,
+0x549D,
+0x54D0,
+0x54AD,
+0x54C2,
+0x54B4,
+0x54D2,
+0x54A7,
+0x54A6,
+0x54D3,
+0x54D4,
+0x5472,
+0x54A3,
+0x54D5,
+0x54BB,
+0x54BF,
+0x54CC,
+0x54D9,
+0x54DA,
+0x54DC,
+0x54A9,
+0x54AA,
+0x54A4,
+0x54DD,
+0x54CF,
+0x54DE,
+0x551B,
+0x54E7,
+0x5520,
+0x54FD,
+0x5514,
+0x54F3,
+0x5522,
+0x5523,
+0x550F,
+0x5511,
+0x5527,
+0x552A,
+0x5567,
+0x558F,
+0x55B5,
+0x5549,
+0x556D,
+0x5541,
+0x5555,
+0x553F,
+0x5550,
+0x553C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5537,
+0x5556,
+0x5575,
+0x5576,
+0x5577,
+0x5533,
+0x5530,
+0x555C,
+0x558B,
+0x55D2,
+0x5583,
+0x55B1,
+0x55B9,
+0x5588,
+0x5581,
+0x559F,
+0x557E,
+0x55D6,
+0x5591,
+0x557B,
+0x55DF,
+0x55BD,
+0x55BE,
+0x5594,
+0x5599,
+0x55EA,
+0x55F7,
+0x55C9,
+0x561F,
+0x55D1,
+0x55EB,
+0x55EC,
+0x55D4,
+0x55E6,
+0x55DD,
+0x55C4,
+0x55EF,
+0x55E5,
+0x55F2,
+0x55F3,
+0x55CC,
+0x55CD,
+0x55E8,
+0x55F5,
+0x55E4,
+0x8F94,
+0x561E,
+0x5608,
+0x560C,
+0x5601,
+0x5624,
+0x5623,
+0x55FE,
+0x5600,
+0x5627,
+0x562D,
+0x5658,
+0x5639,
+0x5657,
+0x562C,
+0x564D,
+0x5662,
+0x5659,
+0x565C,
+0x564C,
+0x5654,
+0x5686,
+0x5664,
+0x5671,
+0x566B,
+0x567B,
+0x567C,
+0x5685,
+0x5693,
+0x56AF,
+0x56D4,
+0x56D7,
+0x56DD,
+0x56E1,
+0x56F5,
+0x56EB,
+0x56F9,
+0x56FF,
+0x5704,
+0x570A,
+0x5709,
+0x571C,
+0x5E0F,
+0x5E19,
+0x5E14,
+0x5E11,
+0x5E31,
+0x5E3B,
+0x5E3C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5E37,
+0x5E44,
+0x5E54,
+0x5E5B,
+0x5E5E,
+0x5E61,
+0x5C8C,
+0x5C7A,
+0x5C8D,
+0x5C90,
+0x5C96,
+0x5C88,
+0x5C98,
+0x5C99,
+0x5C91,
+0x5C9A,
+0x5C9C,
+0x5CB5,
+0x5CA2,
+0x5CBD,
+0x5CAC,
+0x5CAB,
+0x5CB1,
+0x5CA3,
+0x5CC1,
+0x5CB7,
+0x5CC4,
+0x5CD2,
+0x5CE4,
+0x5CCB,
+0x5CE5,
+0x5D02,
+0x5D03,
+0x5D27,
+0x5D26,
+0x5D2E,
+0x5D24,
+0x5D1E,
+0x5D06,
+0x5D1B,
+0x5D58,
+0x5D3E,
+0x5D34,
+0x5D3D,
+0x5D6C,
+0x5D5B,
+0x5D6F,
+0x5D5D,
+0x5D6B,
+0x5D4B,
+0x5D4A,
+0x5D69,
+0x5D74,
+0x5D82,
+0x5D99,
+0x5D9D,
+0x8C73,
+0x5DB7,
+0x5DC5,
+0x5F73,
+0x5F77,
+0x5F82,
+0x5F87,
+0x5F89,
+0x5F8C,
+0x5F95,
+0x5F99,
+0x5F9C,
+0x5FA8,
+0x5FAD,
+0x5FB5,
+0x5FBC,
+0x8862,
+0x5F61,
+0x72AD,
+0x72B0,
+0x72B4,
+0x72B7,
+0x72B8,
+0x72C3,
+0x72C1,
+0x72CE,
+0x72CD,
+0x72D2,
+0x72E8,
+0x72EF,
+0x72E9,
+0x72F2,
+0x72F4,
+0x72F7,
+0x7301,
+0x72F3,
+0x7303,
+0x72FA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x72FB,
+0x7317,
+0x7313,
+0x7321,
+0x730A,
+0x731E,
+0x731D,
+0x7315,
+0x7322,
+0x7339,
+0x7325,
+0x732C,
+0x7338,
+0x7331,
+0x7350,
+0x734D,
+0x7357,
+0x7360,
+0x736C,
+0x736F,
+0x737E,
+0x821B,
+0x5925,
+0x98E7,
+0x5924,
+0x5902,
+0x9963,
+0x9967,
+0x9968,
+0x9969,
+0x996A,
+0x996B,
+0x996C,
+0x9974,
+0x9977,
+0x997D,
+0x9980,
+0x9984,
+0x9987,
+0x998A,
+0x998D,
+0x9990,
+0x9991,
+0x9993,
+0x9994,
+0x9995,
+0x5E80,
+0x5E91,
+0x5E8B,
+0x5E96,
+0x5EA5,
+0x5EA0,
+0x5EB9,
+0x5EB5,
+0x5EBE,
+0x5EB3,
+0x8D53,
+0x5ED2,
+0x5ED1,
+0x5EDB,
+0x5EE8,
+0x5EEA,
+0x81BA,
+0x5FC4,
+0x5FC9,
+0x5FD6,
+0x5FCF,
+0x6003,
+0x5FEE,
+0x6004,
+0x5FE1,
+0x5FE4,
+0x5FFE,
+0x6005,
+0x6006,
+0x5FEA,
+0x5FED,
+0x5FF8,
+0x6019,
+0x6035,
+0x6026,
+0x601B,
+0x600F,
+0x600D,
+0x6029,
+0x602B,
+0x600A,
+0x603F,
+0x6021,
+0x6078,
+0x6079,
+0x607B,
+0x607A,
+0x6042,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x606A,
+0x607D,
+0x6096,
+0x609A,
+0x60AD,
+0x609D,
+0x6083,
+0x6092,
+0x608C,
+0x609B,
+0x60EC,
+0x60BB,
+0x60B1,
+0x60DD,
+0x60D8,
+0x60C6,
+0x60DA,
+0x60B4,
+0x6120,
+0x6126,
+0x6115,
+0x6123,
+0x60F4,
+0x6100,
+0x610E,
+0x612B,
+0x614A,
+0x6175,
+0x61AC,
+0x6194,
+0x61A7,
+0x61B7,
+0x61D4,
+0x61F5,
+0x5FDD,
+0x96B3,
+0x95E9,
+0x95EB,
+0x95F1,
+0x95F3,
+0x95F5,
+0x95F6,
+0x95FC,
+0x95FE,
+0x9603,
+0x9604,
+0x9606,
+0x9608,
+0x960A,
+0x960B,
+0x960C,
+0x960D,
+0x960F,
+0x9612,
+0x9615,
+0x9616,
+0x9617,
+0x9619,
+0x961A,
+0x4E2C,
+0x723F,
+0x6215,
+0x6C35,
+0x6C54,
+0x6C5C,
+0x6C4A,
+0x6CA3,
+0x6C85,
+0x6C90,
+0x6C94,
+0x6C8C,
+0x6C68,
+0x6C69,
+0x6C74,
+0x6C76,
+0x6C86,
+0x6CA9,
+0x6CD0,
+0x6CD4,
+0x6CAD,
+0x6CF7,
+0x6CF8,
+0x6CF1,
+0x6CD7,
+0x6CB2,
+0x6CE0,
+0x6CD6,
+0x6CFA,
+0x6CEB,
+0x6CEE,
+0x6CB1,
+0x6CD3,
+0x6CEF,
+0x6CFE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6D39,
+0x6D27,
+0x6D0C,
+0x6D43,
+0x6D48,
+0x6D07,
+0x6D04,
+0x6D19,
+0x6D0E,
+0x6D2B,
+0x6D4D,
+0x6D2E,
+0x6D35,
+0x6D1A,
+0x6D4F,
+0x6D52,
+0x6D54,
+0x6D33,
+0x6D91,
+0x6D6F,
+0x6D9E,
+0x6DA0,
+0x6D5E,
+0x6D93,
+0x6D94,
+0x6D5C,
+0x6D60,
+0x6D7C,
+0x6D63,
+0x6E1A,
+0x6DC7,
+0x6DC5,
+0x6DDE,
+0x6E0E,
+0x6DBF,
+0x6DE0,
+0x6E11,
+0x6DE6,
+0x6DDD,
+0x6DD9,
+0x6E16,
+0x6DAB,
+0x6E0C,
+0x6DAE,
+0x6E2B,
+0x6E6E,
+0x6E4E,
+0x6E6B,
+0x6EB2,
+0x6E5F,
+0x6E86,
+0x6E53,
+0x6E54,
+0x6E32,
+0x6E25,
+0x6E44,
+0x6EDF,
+0x6EB1,
+0x6E98,
+0x6EE0,
+0x6F2D,
+0x6EE2,
+0x6EA5,
+0x6EA7,
+0x6EBD,
+0x6EBB,
+0x6EB7,
+0x6ED7,
+0x6EB4,
+0x6ECF,
+0x6E8F,
+0x6EC2,
+0x6E9F,
+0x6F62,
+0x6F46,
+0x6F47,
+0x6F24,
+0x6F15,
+0x6EF9,
+0x6F2F,
+0x6F36,
+0x6F4B,
+0x6F74,
+0x6F2A,
+0x6F09,
+0x6F29,
+0x6F89,
+0x6F8D,
+0x6F8C,
+0x6F78,
+0x6F72,
+0x6F7C,
+0x6F7A,
+0x6FD1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6FC9,
+0x6FA7,
+0x6FB9,
+0x6FB6,
+0x6FC2,
+0x6FE1,
+0x6FEE,
+0x6FDE,
+0x6FE0,
+0x6FEF,
+0x701A,
+0x7023,
+0x701B,
+0x7039,
+0x7035,
+0x704F,
+0x705E,
+0x5B80,
+0x5B84,
+0x5B95,
+0x5B93,
+0x5BA5,
+0x5BB8,
+0x752F,
+0x9A9E,
+0x6434,
+0x5BE4,
+0x5BEE,
+0x8930,
+0x5BF0,
+0x8E47,
+0x8B07,
+0x8FB6,
+0x8FD3,
+0x8FD5,
+0x8FE5,
+0x8FEE,
+0x8FE4,
+0x8FE9,
+0x8FE6,
+0x8FF3,
+0x8FE8,
+0x9005,
+0x9004,
+0x900B,
+0x9026,
+0x9011,
+0x900D,
+0x9016,
+0x9021,
+0x9035,
+0x9036,
+0x902D,
+0x902F,
+0x9044,
+0x9051,
+0x9052,
+0x9050,
+0x9068,
+0x9058,
+0x9062,
+0x905B,
+0x66B9,
+0x9074,
+0x907D,
+0x9082,
+0x9088,
+0x9083,
+0x908B,
+0x5F50,
+0x5F57,
+0x5F56,
+0x5F58,
+0x5C3B,
+0x54AB,
+0x5C50,
+0x5C59,
+0x5B71,
+0x5C63,
+0x5C66,
+0x7FBC,
+0x5F2A,
+0x5F29,
+0x5F2D,
+0x8274,
+0x5F3C,
+0x9B3B,
+0x5C6E,
+0x5981,
+0x5983,
+0x598D,
+0x59A9,
+0x59AA,
+0x59A3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5997,
+0x59CA,
+0x59AB,
+0x599E,
+0x59A4,
+0x59D2,
+0x59B2,
+0x59AF,
+0x59D7,
+0x59BE,
+0x5A05,
+0x5A06,
+0x59DD,
+0x5A08,
+0x59E3,
+0x59D8,
+0x59F9,
+0x5A0C,
+0x5A09,
+0x5A32,
+0x5A34,
+0x5A11,
+0x5A23,
+0x5A13,
+0x5A40,
+0x5A67,
+0x5A4A,
+0x5A55,
+0x5A3C,
+0x5A62,
+0x5A75,
+0x80EC,
+0x5AAA,
+0x5A9B,
+0x5A77,
+0x5A7A,
+0x5ABE,
+0x5AEB,
+0x5AB2,
+0x5AD2,
+0x5AD4,
+0x5AB8,
+0x5AE0,
+0x5AE3,
+0x5AF1,
+0x5AD6,
+0x5AE6,
+0x5AD8,
+0x5ADC,
+0x5B09,
+0x5B17,
+0x5B16,
+0x5B32,
+0x5B37,
+0x5B40,
+0x5C15,
+0x5C1C,
+0x5B5A,
+0x5B65,
+0x5B73,
+0x5B51,
+0x5B53,
+0x5B62,
+0x9A75,
+0x9A77,
+0x9A78,
+0x9A7A,
+0x9A7F,
+0x9A7D,
+0x9A80,
+0x9A81,
+0x9A85,
+0x9A88,
+0x9A8A,
+0x9A90,
+0x9A92,
+0x9A93,
+0x9A96,
+0x9A98,
+0x9A9B,
+0x9A9C,
+0x9A9D,
+0x9A9F,
+0x9AA0,
+0x9AA2,
+0x9AA3,
+0x9AA5,
+0x9AA7,
+0x7E9F,
+0x7EA1,
+0x7EA3,
+0x7EA5,
+0x7EA8,
+0x7EA9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7EAD,
+0x7EB0,
+0x7EBE,
+0x7EC0,
+0x7EC1,
+0x7EC2,
+0x7EC9,
+0x7ECB,
+0x7ECC,
+0x7ED0,
+0x7ED4,
+0x7ED7,
+0x7EDB,
+0x7EE0,
+0x7EE1,
+0x7EE8,
+0x7EEB,
+0x7EEE,
+0x7EEF,
+0x7EF1,
+0x7EF2,
+0x7F0D,
+0x7EF6,
+0x7EFA,
+0x7EFB,
+0x7EFE,
+0x7F01,
+0x7F02,
+0x7F03,
+0x7F07,
+0x7F08,
+0x7F0B,
+0x7F0C,
+0x7F0F,
+0x7F11,
+0x7F12,
+0x7F17,
+0x7F19,
+0x7F1C,
+0x7F1B,
+0x7F1F,
+0x7F21,
+0x7F22,
+0x7F23,
+0x7F24,
+0x7F25,
+0x7F26,
+0x7F27,
+0x7F2A,
+0x7F2B,
+0x7F2C,
+0x7F2D,
+0x7F2F,
+0x7F30,
+0x7F31,
+0x7F32,
+0x7F33,
+0x7F35,
+0x5E7A,
+0x757F,
+0x5DDB,
+0x753E,
+0x9095,
+0x738E,
+0x7391,
+0x73AE,
+0x73A2,
+0x739F,
+0x73CF,
+0x73C2,
+0x73D1,
+0x73B7,
+0x73B3,
+0x73C0,
+0x73C9,
+0x73C8,
+0x73E5,
+0x73D9,
+0x987C,
+0x740A,
+0x73E9,
+0x73E7,
+0x73DE,
+0x73BA,
+0x73F2,
+0x740F,
+0x742A,
+0x745B,
+0x7426,
+0x7425,
+0x7428,
+0x7430,
+0x742E,
+0x742C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x741B,
+0x741A,
+0x7441,
+0x745C,
+0x7457,
+0x7455,
+0x7459,
+0x7477,
+0x746D,
+0x747E,
+0x749C,
+0x748E,
+0x7480,
+0x7481,
+0x7487,
+0x748B,
+0x749E,
+0x74A8,
+0x74A9,
+0x7490,
+0x74A7,
+0x74D2,
+0x74BA,
+0x97EA,
+0x97EB,
+0x97EC,
+0x674C,
+0x6753,
+0x675E,
+0x6748,
+0x6769,
+0x67A5,
+0x6787,
+0x676A,
+0x6773,
+0x6798,
+0x67A7,
+0x6775,
+0x67A8,
+0x679E,
+0x67AD,
+0x678B,
+0x6777,
+0x677C,
+0x67F0,
+0x6809,
+0x67D8,
+0x680A,
+0x67E9,
+0x67B0,
+0x680C,
+0x67D9,
+0x67B5,
+0x67DA,
+0x67B3,
+0x67DD,
+0x6800,
+0x67C3,
+0x67B8,
+0x67E2,
+0x680E,
+0x67C1,
+0x67FD,
+0x6832,
+0x6833,
+0x6860,
+0x6861,
+0x684E,
+0x6862,
+0x6844,
+0x6864,
+0x6883,
+0x681D,
+0x6855,
+0x6866,
+0x6841,
+0x6867,
+0x6840,
+0x683E,
+0x684A,
+0x6849,
+0x6829,
+0x68B5,
+0x688F,
+0x6874,
+0x6877,
+0x6893,
+0x686B,
+0x68C2,
+0x696E,
+0x68FC,
+0x691F,
+0x6920,
+0x68F9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6924,
+0x68F0,
+0x690B,
+0x6901,
+0x6957,
+0x68E3,
+0x6910,
+0x6971,
+0x6939,
+0x6960,
+0x6942,
+0x695D,
+0x6984,
+0x696B,
+0x6980,
+0x6998,
+0x6978,
+0x6934,
+0x69CC,
+0x6987,
+0x6988,
+0x69CE,
+0x6989,
+0x6966,
+0x6963,
+0x6979,
+0x699B,
+0x69A7,
+0x69BB,
+0x69AB,
+0x69AD,
+0x69D4,
+0x69B1,
+0x69C1,
+0x69CA,
+0x69DF,
+0x6995,
+0x69E0,
+0x698D,
+0x69FF,
+0x6A2F,
+0x69ED,
+0x6A17,
+0x6A18,
+0x6A65,
+0x69F2,
+0x6A44,
+0x6A3E,
+0x6AA0,
+0x6A50,
+0x6A5B,
+0x6A35,
+0x6A8E,
+0x6A79,
+0x6A3D,
+0x6A28,
+0x6A58,
+0x6A7C,
+0x6A91,
+0x6A90,
+0x6AA9,
+0x6A97,
+0x6AAB,
+0x7337,
+0x7352,
+0x6B81,
+0x6B82,
+0x6B87,
+0x6B84,
+0x6B92,
+0x6B93,
+0x6B8D,
+0x6B9A,
+0x6B9B,
+0x6BA1,
+0x6BAA,
+0x8F6B,
+0x8F6D,
+0x8F71,
+0x8F72,
+0x8F73,
+0x8F75,
+0x8F76,
+0x8F78,
+0x8F77,
+0x8F79,
+0x8F7A,
+0x8F7C,
+0x8F7E,
+0x8F81,
+0x8F82,
+0x8F84,
+0x8F87,
+0x8F8B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8F8D,
+0x8F8E,
+0x8F8F,
+0x8F98,
+0x8F9A,
+0x8ECE,
+0x620B,
+0x6217,
+0x621B,
+0x621F,
+0x6222,
+0x6221,
+0x6225,
+0x6224,
+0x622C,
+0x81E7,
+0x74EF,
+0x74F4,
+0x74FF,
+0x750F,
+0x7511,
+0x7513,
+0x6534,
+0x65EE,
+0x65EF,
+0x65F0,
+0x660A,
+0x6619,
+0x6772,
+0x6603,
+0x6615,
+0x6600,
+0x7085,
+0x66F7,
+0x661D,
+0x6634,
+0x6631,
+0x6636,
+0x6635,
+0x8006,
+0x665F,
+0x6654,
+0x6641,
+0x664F,
+0x6656,
+0x6661,
+0x6657,
+0x6677,
+0x6684,
+0x668C,
+0x66A7,
+0x669D,
+0x66BE,
+0x66DB,
+0x66DC,
+0x66E6,
+0x66E9,
+0x8D32,
+0x8D33,
+0x8D36,
+0x8D3B,
+0x8D3D,
+0x8D40,
+0x8D45,
+0x8D46,
+0x8D48,
+0x8D49,
+0x8D47,
+0x8D4D,
+0x8D55,
+0x8D59,
+0x89C7,
+0x89CA,
+0x89CB,
+0x89CC,
+0x89CE,
+0x89CF,
+0x89D0,
+0x89D1,
+0x726E,
+0x729F,
+0x725D,
+0x7266,
+0x726F,
+0x727E,
+0x727F,
+0x7284,
+0x728B,
+0x728D,
+0x728F,
+0x7292,
+0x6308,
+0x6332,
+0x63B0,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x643F,
+0x64D8,
+0x8004,
+0x6BEA,
+0x6BF3,
+0x6BFD,
+0x6BF5,
+0x6BF9,
+0x6C05,
+0x6C07,
+0x6C06,
+0x6C0D,
+0x6C15,
+0x6C18,
+0x6C19,
+0x6C1A,
+0x6C21,
+0x6C29,
+0x6C24,
+0x6C2A,
+0x6C32,
+0x6535,
+0x6555,
+0x656B,
+0x724D,
+0x7252,
+0x7256,
+0x7230,
+0x8662,
+0x5216,
+0x809F,
+0x809C,
+0x8093,
+0x80BC,
+0x670A,
+0x80BD,
+0x80B1,
+0x80AB,
+0x80AD,
+0x80B4,
+0x80B7,
+0x80E7,
+0x80E8,
+0x80E9,
+0x80EA,
+0x80DB,
+0x80C2,
+0x80C4,
+0x80D9,
+0x80CD,
+0x80D7,
+0x6710,
+0x80DD,
+0x80EB,
+0x80F1,
+0x80F4,
+0x80ED,
+0x810D,
+0x810E,
+0x80F2,
+0x80FC,
+0x6715,
+0x8112,
+0x8C5A,
+0x8136,
+0x811E,
+0x812C,
+0x8118,
+0x8132,
+0x8148,
+0x814C,
+0x8153,
+0x8174,
+0x8159,
+0x815A,
+0x8171,
+0x8160,
+0x8169,
+0x817C,
+0x817D,
+0x816D,
+0x8167,
+0x584D,
+0x5AB5,
+0x8188,
+0x8182,
+0x8191,
+0x6ED5,
+0x81A3,
+0x81AA,
+0x81CC,
+0x6726,
+0x81CA,
+0x81BB,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x81C1,
+0x81A6,
+0x6B24,
+0x6B37,
+0x6B39,
+0x6B43,
+0x6B46,
+0x6B59,
+0x98D1,
+0x98D2,
+0x98D3,
+0x98D5,
+0x98D9,
+0x98DA,
+0x6BB3,
+0x5F40,
+0x6BC2,
+0x89F3,
+0x6590,
+0x9F51,
+0x6593,
+0x65BC,
+0x65C6,
+0x65C4,
+0x65C3,
+0x65CC,
+0x65CE,
+0x65D2,
+0x65D6,
+0x7080,
+0x709C,
+0x7096,
+0x709D,
+0x70BB,
+0x70C0,
+0x70B7,
+0x70AB,
+0x70B1,
+0x70E8,
+0x70CA,
+0x7110,
+0x7113,
+0x7116,
+0x712F,
+0x7131,
+0x7173,
+0x715C,
+0x7168,
+0x7145,
+0x7172,
+0x714A,
+0x7178,
+0x717A,
+0x7198,
+0x71B3,
+0x71B5,
+0x71A8,
+0x71A0,
+0x71E0,
+0x71D4,
+0x71E7,
+0x71F9,
+0x721D,
+0x7228,
+0x706C,
+0x7118,
+0x7166,
+0x71B9,
+0x623E,
+0x623D,
+0x6243,
+0x6248,
+0x6249,
+0x793B,
+0x7940,
+0x7946,
+0x7949,
+0x795B,
+0x795C,
+0x7953,
+0x795A,
+0x7962,
+0x7957,
+0x7960,
+0x796F,
+0x7967,
+0x797A,
+0x7985,
+0x798A,
+0x799A,
+0x79A7,
+0x79B3,
+0x5FD1,
+0x5FD0,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x603C,
+0x605D,
+0x605A,
+0x6067,
+0x6041,
+0x6059,
+0x6063,
+0x60AB,
+0x6106,
+0x610D,
+0x615D,
+0x61A9,
+0x619D,
+0x61CB,
+0x61D1,
+0x6206,
+0x8080,
+0x807F,
+0x6C93,
+0x6CF6,
+0x6DFC,
+0x77F6,
+0x77F8,
+0x7800,
+0x7809,
+0x7817,
+0x7818,
+0x7811,
+0x65AB,
+0x782D,
+0x781C,
+0x781D,
+0x7839,
+0x783A,
+0x783B,
+0x781F,
+0x783C,
+0x7825,
+0x782C,
+0x7823,
+0x7829,
+0x784E,
+0x786D,
+0x7856,
+0x7857,
+0x7826,
+0x7850,
+0x7847,
+0x784C,
+0x786A,
+0x789B,
+0x7893,
+0x789A,
+0x7887,
+0x789C,
+0x78A1,
+0x78A3,
+0x78B2,
+0x78B9,
+0x78A5,
+0x78D4,
+0x78D9,
+0x78C9,
+0x78EC,
+0x78F2,
+0x7905,
+0x78F4,
+0x7913,
+0x7924,
+0x791E,
+0x7934,
+0x9F9B,
+0x9EF9,
+0x9EFB,
+0x9EFC,
+0x76F1,
+0x7704,
+0x770D,
+0x76F9,
+0x7707,
+0x7708,
+0x771A,
+0x7722,
+0x7719,
+0x772D,
+0x7726,
+0x7735,
+0x7738,
+0x7750,
+0x7751,
+0x7747,
+0x7743,
+0x775A,
+0x7768,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7762,
+0x7765,
+0x777F,
+0x778D,
+0x777D,
+0x7780,
+0x778C,
+0x7791,
+0x779F,
+0x77A0,
+0x77B0,
+0x77B5,
+0x77BD,
+0x753A,
+0x7540,
+0x754E,
+0x754B,
+0x7548,
+0x755B,
+0x7572,
+0x7579,
+0x7583,
+0x7F58,
+0x7F61,
+0x7F5F,
+0x8A48,
+0x7F68,
+0x7F74,
+0x7F71,
+0x7F79,
+0x7F81,
+0x7F7E,
+0x76CD,
+0x76E5,
+0x8832,
+0x9485,
+0x9486,
+0x9487,
+0x948B,
+0x948A,
+0x948C,
+0x948D,
+0x948F,
+0x9490,
+0x9494,
+0x9497,
+0x9495,
+0x949A,
+0x949B,
+0x949C,
+0x94A3,
+0x94A4,
+0x94AB,
+0x94AA,
+0x94AD,
+0x94AC,
+0x94AF,
+0x94B0,
+0x94B2,
+0x94B4,
+0x94B6,
+0x94B7,
+0x94B8,
+0x94B9,
+0x94BA,
+0x94BC,
+0x94BD,
+0x94BF,
+0x94C4,
+0x94C8,
+0x94C9,
+0x94CA,
+0x94CB,
+0x94CC,
+0x94CD,
+0x94CE,
+0x94D0,
+0x94D1,
+0x94D2,
+0x94D5,
+0x94D6,
+0x94D7,
+0x94D9,
+0x94D8,
+0x94DB,
+0x94DE,
+0x94DF,
+0x94E0,
+0x94E2,
+0x94E4,
+0x94E5,
+0x94E7,
+0x94E8,
+0x94EA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x94E9,
+0x94EB,
+0x94EE,
+0x94EF,
+0x94F3,
+0x94F4,
+0x94F5,
+0x94F7,
+0x94F9,
+0x94FC,
+0x94FD,
+0x94FF,
+0x9503,
+0x9502,
+0x9506,
+0x9507,
+0x9509,
+0x950A,
+0x950D,
+0x950E,
+0x950F,
+0x9512,
+0x9513,
+0x9514,
+0x9515,
+0x9516,
+0x9518,
+0x951B,
+0x951D,
+0x951E,
+0x951F,
+0x9522,
+0x952A,
+0x952B,
+0x9529,
+0x952C,
+0x9531,
+0x9532,
+0x9534,
+0x9536,
+0x9537,
+0x9538,
+0x953C,
+0x953E,
+0x953F,
+0x9542,
+0x9535,
+0x9544,
+0x9545,
+0x9546,
+0x9549,
+0x954C,
+0x954E,
+0x954F,
+0x9552,
+0x9553,
+0x9554,
+0x9556,
+0x9557,
+0x9558,
+0x9559,
+0x955B,
+0x955E,
+0x955F,
+0x955D,
+0x9561,
+0x9562,
+0x9564,
+0x9565,
+0x9566,
+0x9567,
+0x9568,
+0x9569,
+0x956A,
+0x956B,
+0x956C,
+0x956F,
+0x9571,
+0x9572,
+0x9573,
+0x953A,
+0x77E7,
+0x77EC,
+0x96C9,
+0x79D5,
+0x79ED,
+0x79E3,
+0x79EB,
+0x7A06,
+0x5D47,
+0x7A03,
+0x7A02,
+0x7A1E,
+0x7A14,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7A39,
+0x7A37,
+0x7A51,
+0x9ECF,
+0x99A5,
+0x7A70,
+0x7688,
+0x768E,
+0x7693,
+0x7699,
+0x76A4,
+0x74DE,
+0x74E0,
+0x752C,
+0x9E20,
+0x9E22,
+0x9E28,
+0x9E29,
+0x9E2A,
+0x9E2B,
+0x9E2C,
+0x9E32,
+0x9E31,
+0x9E36,
+0x9E38,
+0x9E37,
+0x9E39,
+0x9E3A,
+0x9E3E,
+0x9E41,
+0x9E42,
+0x9E44,
+0x9E46,
+0x9E47,
+0x9E48,
+0x9E49,
+0x9E4B,
+0x9E4C,
+0x9E4E,
+0x9E51,
+0x9E55,
+0x9E57,
+0x9E5A,
+0x9E5B,
+0x9E5C,
+0x9E5E,
+0x9E63,
+0x9E66,
+0x9E67,
+0x9E68,
+0x9E69,
+0x9E6A,
+0x9E6B,
+0x9E6C,
+0x9E71,
+0x9E6D,
+0x9E73,
+0x7592,
+0x7594,
+0x7596,
+0x75A0,
+0x759D,
+0x75AC,
+0x75A3,
+0x75B3,
+0x75B4,
+0x75B8,
+0x75C4,
+0x75B1,
+0x75B0,
+0x75C3,
+0x75C2,
+0x75D6,
+0x75CD,
+0x75E3,
+0x75E8,
+0x75E6,
+0x75E4,
+0x75EB,
+0x75E7,
+0x7603,
+0x75F1,
+0x75FC,
+0x75FF,
+0x7610,
+0x7600,
+0x7605,
+0x760C,
+0x7617,
+0x760A,
+0x7625,
+0x7618,
+0x7615,
+0x7619,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x761B,
+0x763C,
+0x7622,
+0x7620,
+0x7640,
+0x762D,
+0x7630,
+0x763F,
+0x7635,
+0x7643,
+0x763E,
+0x7633,
+0x764D,
+0x765E,
+0x7654,
+0x765C,
+0x7656,
+0x766B,
+0x766F,
+0x7FCA,
+0x7AE6,
+0x7A78,
+0x7A79,
+0x7A80,
+0x7A86,
+0x7A88,
+0x7A95,
+0x7AA6,
+0x7AA0,
+0x7AAC,
+0x7AA8,
+0x7AAD,
+0x7AB3,
+0x8864,
+0x8869,
+0x8872,
+0x887D,
+0x887F,
+0x8882,
+0x88A2,
+0x88C6,
+0x88B7,
+0x88BC,
+0x88C9,
+0x88E2,
+0x88CE,
+0x88E3,
+0x88E5,
+0x88F1,
+0x891A,
+0x88FC,
+0x88E8,
+0x88FE,
+0x88F0,
+0x8921,
+0x8919,
+0x8913,
+0x891B,
+0x890A,
+0x8934,
+0x892B,
+0x8936,
+0x8941,
+0x8966,
+0x897B,
+0x758B,
+0x80E5,
+0x76B2,
+0x76B4,
+0x77DC,
+0x8012,
+0x8014,
+0x8016,
+0x801C,
+0x8020,
+0x8022,
+0x8025,
+0x8026,
+0x8027,
+0x8029,
+0x8028,
+0x8031,
+0x800B,
+0x8035,
+0x8043,
+0x8046,
+0x804D,
+0x8052,
+0x8069,
+0x8071,
+0x8983,
+0x9878,
+0x9880,
+0x9883,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9889,
+0x988C,
+0x988D,
+0x988F,
+0x9894,
+0x989A,
+0x989B,
+0x989E,
+0x989F,
+0x98A1,
+0x98A2,
+0x98A5,
+0x98A6,
+0x864D,
+0x8654,
+0x866C,
+0x866E,
+0x867F,
+0x867A,
+0x867C,
+0x867B,
+0x86A8,
+0x868D,
+0x868B,
+0x86AC,
+0x869D,
+0x86A7,
+0x86A3,
+0x86AA,
+0x8693,
+0x86A9,
+0x86B6,
+0x86C4,
+0x86B5,
+0x86CE,
+0x86B0,
+0x86BA,
+0x86B1,
+0x86AF,
+0x86C9,
+0x86CF,
+0x86B4,
+0x86E9,
+0x86F1,
+0x86F2,
+0x86ED,
+0x86F3,
+0x86D0,
+0x8713,
+0x86DE,
+0x86F4,
+0x86DF,
+0x86D8,
+0x86D1,
+0x8703,
+0x8707,
+0x86F8,
+0x8708,
+0x870A,
+0x870D,
+0x8709,
+0x8723,
+0x873B,
+0x871E,
+0x8725,
+0x872E,
+0x871A,
+0x873E,
+0x8748,
+0x8734,
+0x8731,
+0x8729,
+0x8737,
+0x873F,
+0x8782,
+0x8722,
+0x877D,
+0x877E,
+0x877B,
+0x8760,
+0x8770,
+0x874C,
+0x876E,
+0x878B,
+0x8753,
+0x8763,
+0x877C,
+0x8764,
+0x8759,
+0x8765,
+0x8793,
+0x87AF,
+0x87A8,
+0x87D2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x87C6,
+0x8788,
+0x8785,
+0x87AD,
+0x8797,
+0x8783,
+0x87AB,
+0x87E5,
+0x87AC,
+0x87B5,
+0x87B3,
+0x87CB,
+0x87D3,
+0x87BD,
+0x87D1,
+0x87C0,
+0x87CA,
+0x87DB,
+0x87EA,
+0x87E0,
+0x87EE,
+0x8816,
+0x8813,
+0x87FE,
+0x880A,
+0x881B,
+0x8821,
+0x8839,
+0x883C,
+0x7F36,
+0x7F42,
+0x7F44,
+0x7F45,
+0x8210,
+0x7AFA,
+0x7AFD,
+0x7B08,
+0x7B03,
+0x7B04,
+0x7B15,
+0x7B0A,
+0x7B2B,
+0x7B0F,
+0x7B47,
+0x7B38,
+0x7B2A,
+0x7B19,
+0x7B2E,
+0x7B31,
+0x7B20,
+0x7B25,
+0x7B24,
+0x7B33,
+0x7B3E,
+0x7B1E,
+0x7B58,
+0x7B5A,
+0x7B45,
+0x7B75,
+0x7B4C,
+0x7B5D,
+0x7B60,
+0x7B6E,
+0x7B7B,
+0x7B62,
+0x7B72,
+0x7B71,
+0x7B90,
+0x7BA6,
+0x7BA7,
+0x7BB8,
+0x7BAC,
+0x7B9D,
+0x7BA8,
+0x7B85,
+0x7BAA,
+0x7B9C,
+0x7BA2,
+0x7BAB,
+0x7BB4,
+0x7BD1,
+0x7BC1,
+0x7BCC,
+0x7BDD,
+0x7BDA,
+0x7BE5,
+0x7BE6,
+0x7BEA,
+0x7C0C,
+0x7BFE,
+0x7BFC,
+0x7C0F,
+0x7C16,
+0x7C0B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7C1F,
+0x7C2A,
+0x7C26,
+0x7C38,
+0x7C41,
+0x7C40,
+0x81FE,
+0x8201,
+0x8202,
+0x8204,
+0x81EC,
+0x8844,
+0x8221,
+0x8222,
+0x8223,
+0x822D,
+0x822F,
+0x8228,
+0x822B,
+0x8238,
+0x823B,
+0x8233,
+0x8234,
+0x823E,
+0x8244,
+0x8249,
+0x824B,
+0x824F,
+0x825A,
+0x825F,
+0x8268,
+0x887E,
+0x8885,
+0x8888,
+0x88D8,
+0x88DF,
+0x895E,
+0x7F9D,
+0x7F9F,
+0x7FA7,
+0x7FAF,
+0x7FB0,
+0x7FB2,
+0x7C7C,
+0x6549,
+0x7C91,
+0x7C9D,
+0x7C9C,
+0x7C9E,
+0x7CA2,
+0x7CB2,
+0x7CBC,
+0x7CBD,
+0x7CC1,
+0x7CC7,
+0x7CCC,
+0x7CCD,
+0x7CC8,
+0x7CC5,
+0x7CD7,
+0x7CE8,
+0x826E,
+0x66A8,
+0x7FBF,
+0x7FCE,
+0x7FD5,
+0x7FE5,
+0x7FE1,
+0x7FE6,
+0x7FE9,
+0x7FEE,
+0x7FF3,
+0x7CF8,
+0x7D77,
+0x7DA6,
+0x7DAE,
+0x7E47,
+0x7E9B,
+0x9EB8,
+0x9EB4,
+0x8D73,
+0x8D84,
+0x8D94,
+0x8D91,
+0x8DB1,
+0x8D67,
+0x8D6D,
+0x8C47,
+0x8C49,
+0x914A,
+0x9150,
+0x914E,
+0x914F,
+0x9164,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9162,
+0x9161,
+0x9170,
+0x9169,
+0x916F,
+0x917D,
+0x917E,
+0x9172,
+0x9174,
+0x9179,
+0x918C,
+0x9185,
+0x9190,
+0x918D,
+0x9191,
+0x91A2,
+0x91A3,
+0x91AA,
+0x91AD,
+0x91AE,
+0x91AF,
+0x91B5,
+0x91B4,
+0x91BA,
+0x8C55,
+0x9E7E,
+0x8DB8,
+0x8DEB,
+0x8E05,
+0x8E59,
+0x8E69,
+0x8DB5,
+0x8DBF,
+0x8DBC,
+0x8DBA,
+0x8DC4,
+0x8DD6,
+0x8DD7,
+0x8DDA,
+0x8DDE,
+0x8DCE,
+0x8DCF,
+0x8DDB,
+0x8DC6,
+0x8DEC,
+0x8DF7,
+0x8DF8,
+0x8DE3,
+0x8DF9,
+0x8DFB,
+0x8DE4,
+0x8E09,
+0x8DFD,
+0x8E14,
+0x8E1D,
+0x8E1F,
+0x8E2C,
+0x8E2E,
+0x8E23,
+0x8E2F,
+0x8E3A,
+0x8E40,
+0x8E39,
+0x8E35,
+0x8E3D,
+0x8E31,
+0x8E49,
+0x8E41,
+0x8E42,
+0x8E51,
+0x8E52,
+0x8E4A,
+0x8E70,
+0x8E76,
+0x8E7C,
+0x8E6F,
+0x8E74,
+0x8E85,
+0x8E8F,
+0x8E94,
+0x8E90,
+0x8E9C,
+0x8E9E,
+0x8C78,
+0x8C82,
+0x8C8A,
+0x8C85,
+0x8C98,
+0x8C94,
+0x659B,
+0x89D6,
+0x89DE,
+0x89DA,
+0x89DC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x89E5,
+0x89EB,
+0x89EF,
+0x8A3E,
+0x8B26,
+0x9753,
+0x96E9,
+0x96F3,
+0x96EF,
+0x9706,
+0x9701,
+0x9708,
+0x970F,
+0x970E,
+0x972A,
+0x972D,
+0x9730,
+0x973E,
+0x9F80,
+0x9F83,
+0x9F85,
+0x9F86,
+0x9F87,
+0x9F88,
+0x9F89,
+0x9F8A,
+0x9F8C,
+0x9EFE,
+0x9F0B,
+0x9F0D,
+0x96B9,
+0x96BC,
+0x96BD,
+0x96CE,
+0x96D2,
+0x77BF,
+0x96E0,
+0x928E,
+0x92AE,
+0x92C8,
+0x933E,
+0x936A,
+0x93CA,
+0x938F,
+0x943E,
+0x946B,
+0x9C7F,
+0x9C82,
+0x9C85,
+0x9C86,
+0x9C87,
+0x9C88,
+0x7A23,
+0x9C8B,
+0x9C8E,
+0x9C90,
+0x9C91,
+0x9C92,
+0x9C94,
+0x9C95,
+0x9C9A,
+0x9C9B,
+0x9C9E,
+0x9C9F,
+0x9CA0,
+0x9CA1,
+0x9CA2,
+0x9CA3,
+0x9CA5,
+0x9CA6,
+0x9CA7,
+0x9CA8,
+0x9CA9,
+0x9CAB,
+0x9CAD,
+0x9CAE,
+0x9CB0,
+0x9CB1,
+0x9CB2,
+0x9CB3,
+0x9CB4,
+0x9CB5,
+0x9CB6,
+0x9CB7,
+0x9CBA,
+0x9CBB,
+0x9CBC,
+0x9CBD,
+0x9CC4,
+0x9CC5,
+0x9CC6,
+0x9CC7,
+0x9CCA,
+0x9CCB,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9CCC,
+0x9CCD,
+0x9CCE,
+0x9CCF,
+0x9CD0,
+0x9CD3,
+0x9CD4,
+0x9CD5,
+0x9CD7,
+0x9CD8,
+0x9CD9,
+0x9CDC,
+0x9CDD,
+0x9CDF,
+0x9CE2,
+0x977C,
+0x9785,
+0x9791,
+0x9792,
+0x9794,
+0x97AF,
+0x97AB,
+0x97A3,
+0x97B2,
+0x97B4,
+0x9AB1,
+0x9AB0,
+0x9AB7,
+0x9E58,
+0x9AB6,
+0x9ABA,
+0x9ABC,
+0x9AC1,
+0x9AC0,
+0x9AC5,
+0x9AC2,
+0x9ACB,
+0x9ACC,
+0x9AD1,
+0x9B45,
+0x9B43,
+0x9B47,
+0x9B49,
+0x9B48,
+0x9B4D,
+0x9B51,
+0x98E8,
+0x990D,
+0x992E,
+0x9955,
+0x9954,
+0x9ADF,
+0x9AE1,
+0x9AE6,
+0x9AEF,
+0x9AEB,
+0x9AFB,
+0x9AED,
+0x9AF9,
+0x9B08,
+0x9B0F,
+0x9B13,
+0x9B1F,
+0x9B23,
+0x9EBD,
+0x9EBE,
+0x7E3B,
+0x9E82,
+0x9E87,
+0x9E88,
+0x9E8B,
+0x9E92,
+0x93D6,
+0x9E9D,
+0x9E9F,
+0x9EDB,
+0x9EDC,
+0x9EDD,
+0x9EE0,
+0x9EDF,
+0x9EE2,
+0x9EE9,
+0x9EE7,
+0x9EE5,
+0x9EEA,
+0x9EEF,
+0x9F22,
+0x9F2C,
+0x9F2F,
+0x9F39,
+0x9F37,
+0x9F3D,
+0x9F3E,
+0x9F44,
+0xFFFD,
+0
+};
+static CONST USHORT to_unicode_map[256] = {
+256,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+512,
+768,
+1024,
+1280,
+1536,
+1792,
+2048,
+2304,
+2560,
+0,
+0,
+0,
+0,
+0,
+0,
+2816,
+3072,
+3328,
+3584,
+3840,
+4096,
+4352,
+4608,
+4864,
+5120,
+5376,
+5632,
+5888,
+6144,
+6400,
+6656,
+6912,
+7168,
+7424,
+7680,
+7936,
+8192,
+8448,
+8704,
+8960,
+9216,
+9472,
+9728,
+9984,
+10240,
+10496,
+10752,
+11008,
+11264,
+11520,
+11776,
+12032,
+12288,
+12544,
+12800,
+13056,
+13312,
+13568,
+13824,
+14080,
+14336,
+14592,
+14848,
+15104,
+15360,
+15616,
+15872,
+16128,
+16384,
+16640,
+16896,
+17152,
+17408,
+17664,
+17920,
+18176,
+18432,
+18688,
+18944,
+19200,
+19456,
+19712,
+19968,
+20224,
+20480,
+20736,
+20992,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+};
+
+
+
+
+static CONST USHORT FAR_VARIABLE from_unicode_mapping_array[] = {
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x0000,
+0x0001,
+0x0002,
+0x0003,
+0x0004,
+0x0005,
+0x0006,
+0x0007,
+0x0008,
+0x0009,
+0x000A,
+0x000B,
+0x000C,
+0x000D,
+0x000E,
+0x000F,
+0x0010,
+0x0011,
+0x0012,
+0x0013,
+0x0014,
+0x0015,
+0x0016,
+0x0017,
+0x0018,
+0x0019,
+0x001A,
+0x001B,
+0x001C,
+0x001D,
+0x001E,
+0x001F,
+0x0020,
+0x0021,
+0x0022,
+0x0023,
+0x0024,
+0x0025,
+0x0026,
+0x0027,
+0x0028,
+0x0029,
+0x002A,
+0x002B,
+0x002C,
+0x002D,
+0x002E,
+0x002F,
+0x0030,
+0x0031,
+0x0032,
+0x0033,
+0x0034,
+0x0035,
+0x0036,
+0x0037,
+0x0038,
+0x0039,
+0x003A,
+0x003B,
+0x003C,
+0x003D,
+0x003E,
+0x003F,
+0x0040,
+0x0041,
+0x0042,
+0x0043,
+0x0044,
+0x0045,
+0x0046,
+0x0047,
+0x0048,
+0x0049,
+0x004A,
+0x004B,
+0x004C,
+0x004D,
+0x004E,
+0x004F,
+0x0050,
+0x0051,
+0x0052,
+0x0053,
+0x0054,
+0x0055,
+0x0056,
+0x0057,
+0x0058,
+0x0059,
+0x005A,
+0x005B,
+0x005C,
+0x005D,
+0x005E,
+0x005F,
+0x0060,
+0x0061,
+0x0062,
+0x0063,
+0x0064,
+0x0065,
+0x0066,
+0x0067,
+0x0068,
+0x0069,
+0x006A,
+0x006B,
+0x006C,
+0x006D,
+0x006E,
+0x006F,
+0x0070,
+0x0071,
+0x0072,
+0x0073,
+0x0074,
+0x0075,
+0x0076,
+0x0077,
+0x0078,
+0x0079,
+0x007A,
+0x007B,
+0x007C,
+0x007D,
+0x007E,
+0x007F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1E8,
+0,
+0,
+0xA1EC,
+0xA1A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1E3,
+0xA1C0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1C1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8A4,
+0xA8A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8A8,
+0xA8A6,
+0xA8BA,
+0,
+0xA8AC,
+0xA8AA,
+0,
+0,
+0,
+0,
+0xA8B0,
+0xA8AE,
+0,
+0,
+0,
+0xA1C2,
+0,
+0xA8B4,
+0xA8B2,
+0,
+0xA8B9,
+0,
+0,
+0,
+0,
+0xA8A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8A3,
+0,
+0xA8AB,
+0,
+0xA8AF,
+0,
+0xA8B3,
+0,
+0xA8B5,
+0,
+0xA8B6,
+0,
+0xA8B7,
+0,
+0xA8B8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1A6,
+0,
+0xA1A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA6A1,
+0xA6A2,
+0xA6A3,
+0xA6A4,
+0xA6A5,
+0xA6A6,
+0xA6A7,
+0xA6A8,
+0xA6A9,
+0xA6AA,
+0xA6AB,
+0xA6AC,
+0xA6AD,
+0xA6AE,
+0xA6AF,
+0xA6B0,
+0xA6B1,
+0,
+0xA6B2,
+0xA6B3,
+0xA6B4,
+0xA6B5,
+0xA6B6,
+0xA6B7,
+0xA6B8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA6C1,
+0xA6C2,
+0xA6C3,
+0xA6C4,
+0xA6C5,
+0xA6C6,
+0xA6C7,
+0xA6C8,
+0xA6C9,
+0xA6CA,
+0xA6CB,
+0xA6CC,
+0xA6CD,
+0xA6CE,
+0xA6CF,
+0xA6D0,
+0xA6D1,
+0,
+0xA6D2,
+0xA6D3,
+0xA6D4,
+0xA6D5,
+0xA6D6,
+0xA6D7,
+0xA6D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA7A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA7A1,
+0xA7A2,
+0xA7A3,
+0xA7A4,
+0xA7A5,
+0xA7A6,
+0xA7A8,
+0xA7A9,
+0xA7AA,
+0xA7AB,
+0xA7AC,
+0xA7AD,
+0xA7AE,
+0xA7AF,
+0xA7B0,
+0xA7B1,
+0xA7B2,
+0xA7B3,
+0xA7B4,
+0xA7B5,
+0xA7B6,
+0xA7B7,
+0xA7B8,
+0xA7B9,
+0xA7BA,
+0xA7BB,
+0xA7BC,
+0xA7BD,
+0xA7BE,
+0xA7BF,
+0xA7C0,
+0xA7C1,
+0xA7D1,
+0xA7D2,
+0xA7D3,
+0xA7D4,
+0xA7D5,
+0xA7D6,
+0xA7D8,
+0xA7D9,
+0xA7DA,
+0xA7DB,
+0xA7DC,
+0xA7DD,
+0xA7DE,
+0xA7DF,
+0xA7E0,
+0xA7E1,
+0xA7E2,
+0xA7E3,
+0xA7E4,
+0xA7E5,
+0xA7E6,
+0xA7E7,
+0xA7E8,
+0xA7E9,
+0xA7EA,
+0xA7EB,
+0xA7EC,
+0xA7ED,
+0xA7EE,
+0xA7EF,
+0xA7F0,
+0xA7F1,
+0,
+0xA7D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1AA,
+0,
+0,
+0xA1AE,
+0xA1AF,
+0,
+0,
+0xA1B0,
+0xA1B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1EB,
+0,
+0xA1E4,
+0xA1E5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1E6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1ED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2F1,
+0xA2F2,
+0xA2F3,
+0xA2F4,
+0xA2F5,
+0xA2F6,
+0xA2F7,
+0xA2F8,
+0xA2F9,
+0xA2FA,
+0xA2FB,
+0xA2FC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1FB,
+0xA1FC,
+0xA1FA,
+0xA1FD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1C7,
+0,
+0xA1C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1CC,
+0,
+0,
+0xA1D8,
+0xA1DE,
+0,
+0xA1CF,
+0,
+0,
+0,
+0,
+0xA1AC,
+0,
+0xA1C4,
+0xA1C5,
+0xA1C9,
+0xA1C8,
+0xA1D2,
+0,
+0,
+0xA1D3,
+0,
+0,
+0,
+0,
+0,
+0xA1E0,
+0xA1DF,
+0xA1C3,
+0xA1CB,
+0,
+0,
+0,
+0,
+0,
+0xA1D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1D6,
+0,
+0,
+0,
+0xA1D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1D9,
+0xA1D4,
+0,
+0,
+0xA1DC,
+0xA1DD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1DA,
+0xA1DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1D0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2D9,
+0xA2DA,
+0xA2DB,
+0xA2DC,
+0xA2DD,
+0xA2DE,
+0xA2DF,
+0xA2E0,
+0xA2E1,
+0xA2E2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2C5,
+0xA2C6,
+0xA2C7,
+0xA2C8,
+0xA2C9,
+0xA2CA,
+0xA2CB,
+0xA2CC,
+0xA2CD,
+0xA2CE,
+0xA2CF,
+0xA2D0,
+0xA2D1,
+0xA2D2,
+0xA2D3,
+0xA2D4,
+0xA2D5,
+0xA2D6,
+0xA2D7,
+0xA2D8,
+0xA2B1,
+0xA2B2,
+0xA2B3,
+0xA2B4,
+0xA2B5,
+0xA2B6,
+0xA2B7,
+0xA2B8,
+0xA2B9,
+0xA2BA,
+0xA2BB,
+0xA2BC,
+0xA2BD,
+0xA2BE,
+0xA2BF,
+0xA2C0,
+0xA2C1,
+0xA2C2,
+0xA2C3,
+0xA2C4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA9A4,
+0xA9A5,
+0xA9A6,
+0xA9A7,
+0xA9A8,
+0xA9A9,
+0xA9AA,
+0xA9AB,
+0xA9AC,
+0xA9AD,
+0xA9AE,
+0xA9AF,
+0xA9B0,
+0xA9B1,
+0xA9B2,
+0xA9B3,
+0xA9B4,
+0xA9B5,
+0xA9B6,
+0xA9B7,
+0xA9B8,
+0xA9B9,
+0xA9BA,
+0xA9BB,
+0xA9BC,
+0xA9BD,
+0xA9BE,
+0xA9BF,
+0xA9C0,
+0xA9C1,
+0xA9C2,
+0xA9C3,
+0xA9C4,
+0xA9C5,
+0xA9C6,
+0xA9C7,
+0xA9C8,
+0xA9C9,
+0xA9CA,
+0xA9CB,
+0xA9CC,
+0xA9CD,
+0xA9CE,
+0xA9CF,
+0xA9D0,
+0xA9D1,
+0xA9D2,
+0xA9D3,
+0xA9D4,
+0xA9D5,
+0xA9D6,
+0xA9D7,
+0xA9D8,
+0xA9D9,
+0xA9DA,
+0xA9DB,
+0xA9DC,
+0xA9DD,
+0xA9DE,
+0xA9DF,
+0xA9E0,
+0xA9E1,
+0xA9E2,
+0xA9E3,
+0xA9E4,
+0xA9E5,
+0xA9E6,
+0xA9E7,
+0xA9E8,
+0xA9E9,
+0xA9EA,
+0xA9EB,
+0xA9EC,
+0xA9ED,
+0xA9EE,
+0xA9EF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1F6,
+0xA1F5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1F8,
+0xA1F7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1F4,
+0xA1F3,
+0,
+0,
+0,
+0xA1F0,
+0,
+0,
+0xA1F2,
+0xA1F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1EF,
+0xA1EE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1E2,
+0,
+0xA1E1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1A1,
+0xA1A2,
+0xA1A3,
+0xA1A8,
+0,
+0xA1A9,
+0,
+0,
+0xA1B4,
+0xA1B5,
+0xA1B6,
+0xA1B7,
+0xA1B8,
+0xA1B9,
+0xA1BA,
+0xA1BB,
+0xA1BE,
+0xA1BF,
+0,
+0xA1FE,
+0xA1B2,
+0xA1B3,
+0xA1BC,
+0xA1BD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA4A1,
+0xA4A2,
+0xA4A3,
+0xA4A4,
+0xA4A5,
+0xA4A6,
+0xA4A7,
+0xA4A8,
+0xA4A9,
+0xA4AA,
+0xA4AB,
+0xA4AC,
+0xA4AD,
+0xA4AE,
+0xA4AF,
+0xA4B0,
+0xA4B1,
+0xA4B2,
+0xA4B3,
+0xA4B4,
+0xA4B5,
+0xA4B6,
+0xA4B7,
+0xA4B8,
+0xA4B9,
+0xA4BA,
+0xA4BB,
+0xA4BC,
+0xA4BD,
+0xA4BE,
+0xA4BF,
+0xA4C0,
+0xA4C1,
+0xA4C2,
+0xA4C3,
+0xA4C4,
+0xA4C5,
+0xA4C6,
+0xA4C7,
+0xA4C8,
+0xA4C9,
+0xA4CA,
+0xA4CB,
+0xA4CC,
+0xA4CD,
+0xA4CE,
+0xA4CF,
+0xA4D0,
+0xA4D1,
+0xA4D2,
+0xA4D3,
+0xA4D4,
+0xA4D5,
+0xA4D6,
+0xA4D7,
+0xA4D8,
+0xA4D9,
+0xA4DA,
+0xA4DB,
+0xA4DC,
+0xA4DD,
+0xA4DE,
+0xA4DF,
+0xA4E0,
+0xA4E1,
+0xA4E2,
+0xA4E3,
+0xA4E4,
+0xA4E5,
+0xA4E6,
+0xA4E7,
+0xA4E8,
+0xA4E9,
+0xA4EA,
+0xA4EB,
+0xA4EC,
+0xA4ED,
+0xA4EE,
+0xA4EF,
+0xA4F0,
+0xA4F1,
+0xA4F2,
+0xA4F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA5A1,
+0xA5A2,
+0xA5A3,
+0xA5A4,
+0xA5A5,
+0xA5A6,
+0xA5A7,
+0xA5A8,
+0xA5A9,
+0xA5AA,
+0xA5AB,
+0xA5AC,
+0xA5AD,
+0xA5AE,
+0xA5AF,
+0xA5B0,
+0xA5B1,
+0xA5B2,
+0xA5B3,
+0xA5B4,
+0xA5B5,
+0xA5B6,
+0xA5B7,
+0xA5B8,
+0xA5B9,
+0xA5BA,
+0xA5BB,
+0xA5BC,
+0xA5BD,
+0xA5BE,
+0xA5BF,
+0xA5C0,
+0xA5C1,
+0xA5C2,
+0xA5C3,
+0xA5C4,
+0xA5C5,
+0xA5C6,
+0xA5C7,
+0xA5C8,
+0xA5C9,
+0xA5CA,
+0xA5CB,
+0xA5CC,
+0xA5CD,
+0xA5CE,
+0xA5CF,
+0xA5D0,
+0xA5D1,
+0xA5D2,
+0xA5D3,
+0xA5D4,
+0xA5D5,
+0xA5D6,
+0xA5D7,
+0xA5D8,
+0xA5D9,
+0xA5DA,
+0xA5DB,
+0xA5DC,
+0xA5DD,
+0xA5DE,
+0xA5DF,
+0xA5E0,
+0xA5E1,
+0xA5E2,
+0xA5E3,
+0xA5E4,
+0xA5E5,
+0xA5E6,
+0xA5E7,
+0xA5E8,
+0xA5E9,
+0xA5EA,
+0xA5EB,
+0xA5EC,
+0xA5ED,
+0xA5EE,
+0xA5EF,
+0xA5F0,
+0xA5F1,
+0xA5F2,
+0xA5F3,
+0xA5F4,
+0xA5F5,
+0xA5F6,
+0,
+0,
+0,
+0,
+0xA1A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8C5,
+0xA8C6,
+0xA8C7,
+0xA8C8,
+0xA8C9,
+0xA8CA,
+0xA8CB,
+0xA8CC,
+0xA8CD,
+0xA8CE,
+0xA8CF,
+0xA8D0,
+0xA8D1,
+0xA8D2,
+0xA8D3,
+0xA8D4,
+0xA8D5,
+0xA8D6,
+0xA8D7,
+0xA8D8,
+0xA8D9,
+0xA8DA,
+0xA8DB,
+0xA8DC,
+0xA8DD,
+0xA8DE,
+0xA8DF,
+0xA8E0,
+0xA8E1,
+0xA8E2,
+0xA8E3,
+0xA8E4,
+0xA8E5,
+0xA8E6,
+0xA8E7,
+0xA8E8,
+0xA8E9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2E5,
+0xA2E6,
+0xA2E7,
+0xA2E8,
+0xA2E9,
+0xA2EA,
+0xA2EB,
+0xA2EC,
+0xA2ED,
+0xA2EE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD2BB,
+0xB6A1,
+0,
+0xC6DF,
+0,
+0,
+0,
+0xCDF2,
+0xD5C9,
+0xC8FD,
+0xC9CF,
+0xCFC2,
+0xD8A2,
+0xB2BB,
+0xD3EB,
+0,
+0xD8A4,
+0xB3F3,
+0,
+0xD7A8,
+0xC7D2,
+0xD8A7,
+0xCAC0,
+0,
+0xC7F0,
+0xB1FB,
+0xD2B5,
+0xB4D4,
+0xB6AB,
+0xCBBF,
+0xD8A9,
+0,
+0,
+0,
+0xB6AA,
+0,
+0xC1BD,
+0xD1CF,
+0,
+0xC9A5,
+0xD8AD,
+0,
+0xB8F6,
+0xD1BE,
+0xE3DC,
+0xD6D0,
+0,
+0,
+0xB7E1,
+0,
+0xB4AE,
+0,
+0xC1D9,
+0,
+0xD8BC,
+0,
+0xCDE8,
+0xB5A4,
+0xCEAA,
+0xD6F7,
+0,
+0xC0F6,
+0xBED9,
+0xD8AF,
+0,
+0,
+0,
+0xC4CB,
+0,
+0xBEC3,
+0,
+0xD8B1,
+0xC3B4,
+0xD2E5,
+0,
+0xD6AE,
+0xCEDA,
+0xD5A7,
+0xBAF5,
+0xB7A6,
+0xC0D6,
+0,
+0xC6B9,
+0xC5D2,
+0xC7C7,
+0,
+0xB9D4,
+0,
+0xB3CB,
+0xD2D2,
+0,
+0,
+0xD8BF,
+0xBEC5,
+0xC6F2,
+0xD2B2,
+0xCFB0,
+0xCFE7,
+0,
+0,
+0,
+0,
+0xCAE9,
+0,
+0,
+0xD8C0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC2F2,
+0xC2D2,
+0,
+0xC8E9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7AC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC1CB,
+0,
+0xD3E8,
+0xD5F9,
+0,
+0xCAC2,
+0xB6FE,
+0xD8A1,
+0xD3DA,
+0xBFF7,
+0,
+0xD4C6,
+0xBBA5,
+0xD8C1,
+0xCEE5,
+0xBEAE,
+0,
+0,
+0xD8A8,
+0,
+0xD1C7,
+0xD0A9,
+0,
+0,
+0,
+0xD8BD,
+0xD9EF,
+0xCDF6,
+0xBFBA,
+0,
+0xBDBB,
+0xBAA5,
+0xD2E0,
+0xB2FA,
+0xBAE0,
+0xC4B6,
+0,
+0xCFED,
+0xBEA9,
+0xCDA4,
+0xC1C1,
+0,
+0,
+0,
+0xC7D7,
+0xD9F1,
+0,
+0xD9F4,
+0,
+0,
+0,
+0,
+0xC8CB,
+0xD8E9,
+0,
+0,
+0,
+0xD2DA,
+0xCAB2,
+0xC8CA,
+0xD8EC,
+0xD8EA,
+0xD8C6,
+0xBDF6,
+0xC6CD,
+0xB3F0,
+0,
+0xD8EB,
+0xBDF1,
+0xBDE9,
+0,
+0xC8D4,
+0xB4D3,
+0,
+0,
+0xC2D8,
+0,
+0xB2D6,
+0xD7D0,
+0xCACB,
+0xCBFB,
+0xD5CC,
+0xB8B6,
+0xCFC9,
+0,
+0,
+0,
+0xD9DA,
+0xD8F0,
+0xC7AA,
+0,
+0xD8EE,
+0,
+0xB4FA,
+0xC1EE,
+0xD2D4,
+0,
+0,
+0xD8ED,
+0,
+0xD2C7,
+0xD8EF,
+0xC3C7,
+0,
+0,
+0,
+0xD1F6,
+0,
+0xD6D9,
+0xD8F2,
+0,
+0xD8F5,
+0xBCFE,
+0xBCDB,
+0,
+0,
+0,
+0xC8CE,
+0,
+0xB7DD,
+0,
+0xB7C2,
+0,
+0xC6F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8F8,
+0xD2C1,
+0,
+0,
+0xCEE9,
+0xBCBF,
+0xB7FC,
+0xB7A5,
+0xD0DD,
+0,
+0,
+0,
+0,
+0,
+0xD6DA,
+0xD3C5,
+0xBBEF,
+0xBBE1,
+0xD8F1,
+0,
+0,
+0xC9A1,
+0xCEB0,
+0xB4AB,
+0,
+0xD8F3,
+0,
+0xC9CB,
+0xD8F6,
+0xC2D7,
+0xD8F7,
+0,
+0,
+0xCEB1,
+0xD8F9,
+0,
+0,
+0,
+0xB2AE,
+0xB9C0,
+0,
+0xD9A3,
+0,
+0xB0E9,
+0,
+0xC1E6,
+0,
+0xC9EC,
+0,
+0xCBC5,
+0,
+0xCBC6,
+0xD9A4,
+0,
+0,
+0,
+0,
+0,
+0xB5E8,
+0,
+0,
+0xB5AB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEBB,
+0xB5CD,
+0xD7A1,
+0xD7F4,
+0xD3D3,
+0,
+0xCCE5,
+0,
+0xBACE,
+0,
+0xD9A2,
+0xD9DC,
+0xD3E0,
+0xD8FD,
+0xB7F0,
+0xD7F7,
+0xD8FE,
+0xD8FA,
+0xD9A1,
+0xC4E3,
+0,
+0,
+0xD3B6,
+0xD8F4,
+0xD9DD,
+0,
+0xD8FB,
+0,
+0xC5E5,
+0,
+0,
+0xC0D0,
+0,
+0,
+0xD1F0,
+0xB0DB,
+0,
+0,
+0xBCD1,
+0xD9A6,
+0,
+0xD9A5,
+0,
+0,
+0,
+0,
+0xD9AC,
+0xD9AE,
+0,
+0xD9AB,
+0xCAB9,
+0,
+0,
+0,
+0xD9A9,
+0xD6B6,
+0,
+0,
+0,
+0xB3DE,
+0xD9A8,
+0,
+0xC0FD,
+0,
+0xCACC,
+0,
+0xD9AA,
+0,
+0xD9A7,
+0,
+0,
+0xD9B0,
+0,
+0,
+0xB6B1,
+0,
+0,
+0,
+0xB9A9,
+0,
+0xD2C0,
+0,
+0,
+0xCFC0,
+0,
+0,
+0xC2C2,
+0,
+0xBDC4,
+0xD5EC,
+0xB2E0,
+0xC7C8,
+0xBFEB,
+0xD9AD,
+0,
+0xD9AF,
+0,
+0xCEEA,
+0xBAEE,
+0,
+0,
+0,
+0,
+0,
+0xC7D6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB1E3,
+0,
+0,
+0,
+0xB4D9,
+0xB6ED,
+0xD9B4,
+0,
+0,
+0,
+0,
+0xBFA1,
+0,
+0,
+0,
+0xD9DE,
+0xC7CE,
+0xC0FE,
+0xD9B8,
+0,
+0,
+0,
+0,
+0,
+0xCBD7,
+0xB7FD,
+0,
+0xD9B5,
+0,
+0xD9B7,
+0xB1A3,
+0xD3E1,
+0xD9B9,
+0,
+0xD0C5,
+0,
+0xD9B6,
+0,
+0,
+0xD9B1,
+0,
+0xD9B2,
+0xC1A9,
+0xD9B3,
+0,
+0,
+0xBCF3,
+0xD0DE,
+0xB8A9,
+0,
+0xBEE3,
+0,
+0xD9BD,
+0,
+0,
+0,
+0,
+0xD9BA,
+0,
+0xB0B3,
+0,
+0,
+0,
+0xD9C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9C4,
+0xB1B6,
+0,
+0xD9BF,
+0,
+0,
+0xB5B9,
+0,
+0xBEF3,
+0,
+0,
+0,
+0xCCC8,
+0xBAF2,
+0xD2D0,
+0,
+0xD9C3,
+0,
+0,
+0xBDE8,
+0,
+0xB3AB,
+0,
+0,
+0,
+0xD9C5,
+0xBEEB,
+0,
+0xD9C6,
+0xD9BB,
+0xC4DF,
+0,
+0xD9BE,
+0xD9C1,
+0xD9C0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5AE,
+0,
+0xD6B5,
+0,
+0xC7E3,
+0,
+0,
+0,
+0,
+0xD9C8,
+0,
+0,
+0,
+0xBCD9,
+0xD9CA,
+0,
+0,
+0,
+0xD9BC,
+0,
+0xD9CB,
+0xC6AB,
+0,
+0,
+0,
+0,
+0,
+0xD9C9,
+0,
+0,
+0,
+0,
+0xD7F6,
+0,
+0xCDA3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBDA1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC5BC,
+0xCDB5,
+0,
+0,
+0,
+0xD9CD,
+0,
+0,
+0xD9C7,
+0xB3A5,
+0xBFFE,
+0,
+0,
+0,
+0,
+0xB8B5,
+0,
+0,
+0xC0FC,
+0,
+0,
+0,
+0,
+0xB0F8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB4F6,
+0,
+0xD9CE,
+0,
+0xD9CF,
+0xB4A2,
+0xD9D0,
+0,
+0,
+0xB4DF,
+0,
+0,
+0,
+0,
+0,
+0xB0C1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9D1,
+0xC9B5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFF1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9D2,
+0,
+0,
+0,
+0xC1C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9D6,
+0xC9AE,
+0,
+0,
+0,
+0,
+0xD9D5,
+0xD9D4,
+0xD9D7,
+0,
+0,
+0,
+0,
+0xCBDB,
+0,
+0xBDA9,
+0,
+0,
+0,
+0,
+0,
+0xC6A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9D3,
+0xD9D8,
+0,
+0,
+0,
+0xD9D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC8E5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC0DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB6F9,
+0xD8A3,
+0xD4CA,
+0,
+0xD4AA,
+0xD0D6,
+0xB3E4,
+0xD5D7,
+0,
+0xCFC8,
+0xB9E2,
+0,
+0xBFCB,
+0,
+0xC3E2,
+0,
+0,
+0,
+0xB6D2,
+0,
+0,
+0xCDC3,
+0xD9EE,
+0xD9F0,
+0,
+0,
+0,
+0xB5B3,
+0,
+0xB6B5,
+0,
+0,
+0,
+0,
+0,
+0xBEA4,
+0,
+0,
+0xC8EB,
+0,
+0,
+0xC8AB,
+0,
+0,
+0xB0CB,
+0xB9AB,
+0xC1F9,
+0xD9E2,
+0,
+0xC0BC,
+0xB9B2,
+0,
+0xB9D8,
+0xD0CB,
+0xB1F8,
+0xC6E4,
+0xBEDF,
+0xB5E4,
+0xD7C8,
+0,
+0xD1F8,
+0xBCE6,
+0xCADE,
+0,
+0,
+0xBCBD,
+0xD9E6,
+0xD8E7,
+0,
+0,
+0xC4DA,
+0,
+0,
+0xB8D4,
+0xC8BD,
+0,
+0,
+0xB2E1,
+0xD4D9,
+0,
+0,
+0,
+0,
+0xC3B0,
+0,
+0,
+0xC3E1,
+0xDAA2,
+0xC8DF,
+0,
+0xD0B4,
+0,
+0xBEFC,
+0xC5A9,
+0,
+0,
+0,
+0xB9DA,
+0,
+0xDAA3,
+0,
+0xD4A9,
+0xDAA4,
+0,
+0,
+0,
+0,
+0,
+0xD9FB,
+0xB6AC,
+0,
+0,
+0xB7EB,
+0xB1F9,
+0xD9FC,
+0xB3E5,
+0xBEF6,
+0,
+0xBFF6,
+0xD2B1,
+0xC0E4,
+0,
+0,
+0,
+0xB6B3,
+0xD9FE,
+0xD9FD,
+0,
+0,
+0xBEBB,
+0,
+0,
+0,
+0xC6E0,
+0,
+0xD7BC,
+0xDAA1,
+0,
+0xC1B9,
+0,
+0xB5F2,
+0xC1E8,
+0,
+0,
+0xBCF5,
+0,
+0xB4D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC1DD,
+0,
+0xC4FD,
+0,
+0,
+0xBCB8,
+0xB7B2,
+0,
+0,
+0xB7EF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9EC,
+0,
+0xC6BE,
+0,
+0xBFAD,
+0xBBCB,
+0,
+0,
+0xB5CA,
+0,
+0xDBC9,
+0xD0D7,
+0,
+0xCDB9,
+0xB0BC,
+0xB3F6,
+0xBBF7,
+0xDBCA,
+0xBAAF,
+0,
+0xD4E4,
+0xB5B6,
+0xB5F3,
+0xD8D6,
+0xC8D0,
+0,
+0,
+0xB7D6,
+0xC7D0,
+0xD8D7,
+0,
+0xBFAF,
+0,
+0,
+0xDBBB,
+0xD8D8,
+0,
+0,
+0xD0CC,
+0xBBAE,
+0,
+0,
+0,
+0xEBBE,
+0xC1D0,
+0xC1F5,
+0xD4F2,
+0xB8D5,
+0xB4B4,
+0,
+0xB3F5,
+0,
+0,
+0xC9BE,
+0,
+0,
+0,
+0xC5D0,
+0,
+0,
+0,
+0xC5D9,
+0xC0FB,
+0,
+0xB1F0,
+0,
+0xD8D9,
+0xB9CE,
+0,
+0xB5BD,
+0,
+0,
+0xD8DA,
+0,
+0,
+0xD6C6,
+0xCBA2,
+0xC8AF,
+0xC9B2,
+0xB4CC,
+0xBFCC,
+0,
+0xB9F4,
+0,
+0xD8DB,
+0xD8DC,
+0xB6E7,
+0xBCC1,
+0xCCEA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFF7,
+0,
+0xD8DD,
+0xC7B0,
+0,
+0,
+0xB9D0,
+0xBDA3,
+0,
+0,
+0xCCDE,
+0,
+0xC6CA,
+0,
+0,
+0,
+0,
+0,
+0xD8E0,
+0,
+0xD8DE,
+0,
+0,
+0xD8DF,
+0,
+0,
+0,
+0xB0FE,
+0,
+0xBEE7,
+0,
+0xCAA3,
+0xBCF4,
+0,
+0,
+0,
+0,
+0xB8B1,
+0,
+0,
+0xB8EE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8E2,
+0,
+0xBDCB,
+0,
+0xD8E4,
+0xD8E3,
+0,
+0,
+0,
+0,
+0,
+0xC5FC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8E5,
+0,
+0,
+0xD8E6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC1A6,
+0,
+0xC8B0,
+0xB0EC,
+0xB9A6,
+0xBCD3,
+0xCEF1,
+0xDBBD,
+0xC1D3,
+0,
+0,
+0,
+0,
+0xB6AF,
+0xD6FA,
+0xC5AC,
+0xBDD9,
+0xDBBE,
+0xDBBF,
+0,
+0,
+0,
+0xC0F8,
+0xBEA2,
+0xC0CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBC0,
+0xCAC6,
+0,
+0,
+0,
+0xB2AA,
+0,
+0,
+0,
+0xD3C2,
+0,
+0xC3E3,
+0,
+0xD1AB,
+0,
+0,
+0,
+0,
+0xDBC2,
+0,
+0xC0D5,
+0,
+0,
+0,
+0xDBC3,
+0,
+0xBFB1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC4BC,
+0,
+0,
+0,
+0,
+0xC7DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBC4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9E8,
+0xC9D7,
+0,
+0,
+0,
+0xB9B4,
+0xCEF0,
+0xD4C8,
+0,
+0,
+0,
+0,
+0xB0FC,
+0xB4D2,
+0,
+0xD0D9,
+0,
+0,
+0,
+0,
+0xD9E9,
+0,
+0xDECB,
+0xD9EB,
+0,
+0,
+0,
+0,
+0xD8B0,
+0xBBAF,
+0xB1B1,
+0,
+0xB3D7,
+0xD8CE,
+0,
+0,
+0xD4D1,
+0,
+0,
+0xBDB3,
+0xBFEF,
+0,
+0xCFBB,
+0,
+0,
+0xD8D0,
+0,
+0,
+0,
+0xB7CB,
+0,
+0,
+0,
+0xD8D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC6A5,
+0xC7F8,
+0xD2BD,
+0,
+0,
+0xD8D2,
+0xC4E4,
+0,
+0xCAAE,
+0,
+0xC7A7,
+0,
+0xD8A6,
+0,
+0xC9FD,
+0xCEE7,
+0xBBDC,
+0xB0EB,
+0,
+0,
+0,
+0xBBAA,
+0xD0AD,
+0,
+0xB1B0,
+0xD7E4,
+0xD7BF,
+0,
+0xB5A5,
+0xC2F4,
+0xC4CF,
+0,
+0,
+0xB2A9,
+0,
+0xB2B7,
+0,
+0xB1E5,
+0xDFB2,
+0xD5BC,
+0xBFA8,
+0xC2AC,
+0xD8D5,
+0xC2B1,
+0,
+0xD8D4,
+0xCED4,
+0,
+0xDAE0,
+0,
+0xCEC0,
+0,
+0,
+0xD8B4,
+0xC3AE,
+0xD3A1,
+0xCEA3,
+0,
+0xBCB4,
+0xC8B4,
+0xC2D1,
+0,
+0xBEED,
+0xD0B6,
+0,
+0xDAE1,
+0,
+0,
+0,
+0,
+0xC7E4,
+0,
+0,
+0xB3A7,
+0,
+0xB6F2,
+0xCCFC,
+0xC0FA,
+0,
+0,
+0xC0F7,
+0,
+0xD1B9,
+0xD1E1,
+0xD8C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB2DE,
+0,
+0,
+0xC0E5,
+0,
+0xBAF1,
+0,
+0,
+0xD8C8,
+0,
+0xD4AD,
+0,
+0,
+0xCFE1,
+0xD8C9,
+0,
+0xD8CA,
+0xCFC3,
+0,
+0xB3F8,
+0xBEC7,
+0,
+0,
+0,
+0,
+0xD8CB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBCC,
+0,
+0,
+0,
+0,
+0xC8A5,
+0,
+0,
+0,
+0xCFD8,
+0,
+0xC8FE,
+0xB2CE,
+0,
+0,
+0,
+0,
+0,
+0xD3D6,
+0xB2E6,
+0xBCB0,
+0xD3D1,
+0xCBAB,
+0xB7B4,
+0,
+0,
+0,
+0xB7A2,
+0,
+0,
+0xCAE5,
+0,
+0xC8A1,
+0xCADC,
+0xB1E4,
+0xD0F0,
+0,
+0xC5D1,
+0,
+0,
+0,
+0xDBC5,
+0xB5FE,
+0,
+0,
+0xBFDA,
+0xB9C5,
+0xBEE4,
+0xC1ED,
+0,
+0xDFB6,
+0xDFB5,
+0xD6BB,
+0xBDD0,
+0xD5D9,
+0xB0C8,
+0xB6A3,
+0xBFC9,
+0xCCA8,
+0xDFB3,
+0xCAB7,
+0xD3D2,
+0,
+0xD8CF,
+0xD2B6,
+0xBAC5,
+0xCBBE,
+0xCCBE,
+0,
+0xDFB7,
+0xB5F0,
+0xDFB4,
+0,
+0,
+0,
+0xD3F5,
+0,
+0xB3D4,
+0xB8F7,
+0,
+0xDFBA,
+0,
+0xBACF,
+0xBCAA,
+0xB5F5,
+0,
+0xCDAC,
+0xC3FB,
+0xBAF3,
+0xC0F4,
+0xCDC2,
+0xCFF2,
+0xDFB8,
+0xCFC5,
+0,
+0xC2C0,
+0xDFB9,
+0xC2F0,
+0,
+0,
+0,
+0xBEFD,
+0,
+0xC1DF,
+0xCDCC,
+0xD2F7,
+0xB7CD,
+0xDFC1,
+0,
+0xDFC4,
+0,
+0,
+0xB7F1,
+0xB0C9,
+0xB6D6,
+0xB7D4,
+0,
+0xBAAC,
+0xCCFD,
+0xBFD4,
+0xCBB1,
+0xC6F4,
+0,
+0xD6A8,
+0xDFC5,
+0,
+0xCEE2,
+0xB3B3,
+0,
+0,
+0xCEFC,
+0xB4B5,
+0,
+0xCEC7,
+0xBAF0,
+0,
+0xCEE1,
+0,
+0xD1BD,
+0,
+0,
+0xDFC0,
+0,
+0,
+0xB4F4,
+0,
+0xB3CA,
+0,
+0xB8E6,
+0xDFBB,
+0,
+0,
+0,
+0,
+0xC4C5,
+0,
+0xDFBC,
+0xDFBD,
+0xDFBE,
+0xC5BB,
+0xDFBF,
+0xDFC2,
+0xD4B1,
+0xDFC3,
+0,
+0xC7BA,
+0xCED8,
+0,
+0,
+0,
+0,
+0,
+0xC4D8,
+0,
+0xDFCA,
+0,
+0xDFCF,
+0,
+0xD6DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFC9,
+0xDFDA,
+0xCEB6,
+0,
+0xBAC7,
+0xDFCE,
+0xDFC8,
+0xC5DE,
+0,
+0,
+0xC9EB,
+0xBAF4,
+0xC3FC,
+0,
+0,
+0xBED7,
+0,
+0xDFC6,
+0,
+0xDFCD,
+0,
+0xC5D8,
+0,
+0,
+0,
+0,
+0xD5A6,
+0xBACD,
+0,
+0xBECC,
+0xD3BD,
+0xB8C0,
+0,
+0xD6E4,
+0,
+0xDFC7,
+0xB9BE,
+0xBFA7,
+0,
+0,
+0xC1FC,
+0xDFCB,
+0xDFCC,
+0,
+0xDFD0,
+0,
+0,
+0,
+0,
+0,
+0xDFDB,
+0xDFE5,
+0,
+0xDFD7,
+0xDFD6,
+0xD7C9,
+0xDFE3,
+0xDFE4,
+0xE5EB,
+0xD2A7,
+0xDFD2,
+0,
+0xBFA9,
+0,
+0xD4DB,
+0,
+0xBFC8,
+0xDFD4,
+0,
+0,
+0,
+0xCFCC,
+0,
+0,
+0xDFDD,
+0,
+0xD1CA,
+0,
+0xDFDE,
+0xB0A7,
+0xC6B7,
+0xDFD3,
+0,
+0xBAE5,
+0,
+0xB6DF,
+0xCDDB,
+0xB9FE,
+0xD4D5,
+0,
+0,
+0xDFDF,
+0xCFEC,
+0xB0A5,
+0xDFE7,
+0xDFD1,
+0xD1C6,
+0xDFD5,
+0xDFD8,
+0xDFD9,
+0xDFDC,
+0,
+0xBBA9,
+0,
+0xDFE0,
+0xDFE1,
+0,
+0xDFE2,
+0xDFE6,
+0xDFE8,
+0xD3B4,
+0,
+0,
+0,
+0,
+0,
+0xB8E7,
+0xC5B6,
+0xDFEA,
+0xC9DA,
+0xC1A8,
+0xC4C4,
+0,
+0,
+0xBFDE,
+0xCFF8,
+0,
+0,
+0,
+0xD5DC,
+0xDFEE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB2B8,
+0,
+0xBADF,
+0xDFEC,
+0,
+0xDBC1,
+0,
+0xD1E4,
+0,
+0,
+0,
+0,
+0xCBF4,
+0xB4BD,
+0,
+0xB0A6,
+0,
+0,
+0,
+0,
+0,
+0xDFF1,
+0xCCC6,
+0xDFF2,
+0,
+0,
+0xDFED,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFE9,
+0,
+0,
+0,
+0,
+0xDFEB,
+0,
+0xDFEF,
+0xDFF0,
+0xBBBD,
+0,
+0,
+0xDFF3,
+0,
+0,
+0xDFF4,
+0,
+0xBBA3,
+0,
+0xCADB,
+0xCEA8,
+0xE0A7,
+0xB3AA,
+0,
+0xE0A6,
+0,
+0,
+0,
+0xE0A1,
+0,
+0,
+0,
+0,
+0xDFFE,
+0,
+0xCDD9,
+0xDFFC,
+0,
+0xDFFA,
+0,
+0xBFD0,
+0xD7C4,
+0,
+0xC9CC,
+0,
+0,
+0xDFF8,
+0xB0A1,
+0,
+0,
+0,
+0,
+0,
+0xDFFD,
+0,
+0,
+0,
+0,
+0xDFFB,
+0xE0A2,
+0,
+0,
+0,
+0,
+0,
+0xE0A8,
+0,
+0,
+0,
+0,
+0xB7C8,
+0,
+0,
+0xC6A1,
+0xC9B6,
+0xC0B2,
+0xDFF5,
+0,
+0,
+0xC5BE,
+0,
+0xD8C4,
+0xDFF9,
+0xC4F6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0A3,
+0xE0A4,
+0xE0A5,
+0xD0A5,
+0,
+0,
+0xE0B4,
+0xCCE4,
+0,
+0xE0B1,
+0,
+0xBFA6,
+0xE0AF,
+0xCEB9,
+0xE0AB,
+0xC9C6,
+0,
+0,
+0xC0AE,
+0xE0AE,
+0xBAED,
+0xBAB0,
+0xE0A9,
+0,
+0,
+0,
+0xDFF6,
+0,
+0xE0B3,
+0,
+0,
+0xE0B8,
+0,
+0,
+0,
+0xB4AD,
+0xE0B9,
+0,
+0,
+0xCFB2,
+0xBAC8,
+0,
+0xE0B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0FA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0AC,
+0,
+0xD4FB,
+0,
+0xDFF7,
+0,
+0xC5E7,
+0,
+0xE0AD,
+0,
+0xD3F7,
+0,
+0xE0B6,
+0xE0B7,
+0,
+0,
+0,
+0,
+0,
+0xE0C4,
+0xD0E1,
+0,
+0,
+0,
+0xE0BC,
+0,
+0,
+0xE0C9,
+0xE0CA,
+0,
+0,
+0,
+0xE0BE,
+0xE0AA,
+0xC9A4,
+0xE0C1,
+0,
+0xE0B2,
+0,
+0,
+0,
+0,
+0,
+0xCAC8,
+0xE0C3,
+0,
+0xE0B5,
+0,
+0xCECB,
+0,
+0xCBC3,
+0xE0CD,
+0xE0C6,
+0xE0C2,
+0,
+0xE0CB,
+0,
+0xE0BA,
+0xE0BF,
+0xE0C0,
+0,
+0,
+0xE0C5,
+0,
+0,
+0xE0C7,
+0xE0C8,
+0,
+0xE0CC,
+0,
+0xE0BB,
+0,
+0,
+0,
+0,
+0,
+0xCBD4,
+0xE0D5,
+0,
+0xE0D6,
+0xE0D2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0D0,
+0xBCCE,
+0,
+0,
+0xE0D1,
+0,
+0xB8C2,
+0xD8C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0EA,
+0,
+0,
+0xC2EF,
+0,
+0,
+0xE0CF,
+0xE0BD,
+0,
+0,
+0,
+0xE0D4,
+0xE0D3,
+0,
+0,
+0xE0D7,
+0,
+0,
+0,
+0,
+0xE0DC,
+0xE0D8,
+0,
+0,
+0,
+0xD6F6,
+0xB3B0,
+0,
+0xD7EC,
+0,
+0xCBBB,
+0,
+0,
+0xE0DA,
+0,
+0xCEFB,
+0,
+0,
+0,
+0xBAD9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0E1,
+0xE0DD,
+0xD2AD,
+0,
+0,
+0,
+0,
+0,
+0xE0E2,
+0,
+0,
+0xE0DB,
+0xE0D9,
+0xE0DF,
+0,
+0,
+0xE0E0,
+0,
+0,
+0,
+0,
+0,
+0xE0DE,
+0,
+0xE0E4,
+0,
+0,
+0,
+0xC6F7,
+0xD8AC,
+0xD4EB,
+0xE0E6,
+0xCAC9,
+0,
+0,
+0,
+0,
+0xE0E5,
+0,
+0,
+0,
+0,
+0xB8C1,
+0,
+0,
+0,
+0,
+0xE0E7,
+0xE0E8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0E9,
+0xE0E3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBABF,
+0xCCE7,
+0,
+0,
+0,
+0xE0EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFF9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0EB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC8C2,
+0,
+0,
+0,
+0,
+0xBDC0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC4D2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0EC,
+0,
+0,
+0xE0ED,
+0,
+0,
+0xC7F4,
+0xCBC4,
+0,
+0xE0EE,
+0xBBD8,
+0xD8B6,
+0xD2F2,
+0xE0EF,
+0xCDC5,
+0,
+0xB6DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0F1,
+0,
+0xD4B0,
+0,
+0,
+0xC0A7,
+0xB4D1,
+0,
+0,
+0xCEA7,
+0xE0F0,
+0,
+0,
+0,
+0xE0F2,
+0xB9CC,
+0,
+0,
+0xB9FA,
+0xCDBC,
+0xE0F3,
+0,
+0,
+0,
+0xC6D4,
+0xE0F4,
+0,
+0xD4B2,
+0,
+0xC8A6,
+0xE0F6,
+0xE0F5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0F7,
+0,
+0,
+0xCDC1,
+0,
+0,
+0,
+0xCAA5,
+0,
+0,
+0,
+0,
+0xD4DA,
+0xDBD7,
+0xDBD9,
+0,
+0xDBD8,
+0xB9E7,
+0xDBDC,
+0xDBDD,
+0xB5D8,
+0,
+0,
+0xDBDA,
+0,
+0,
+0,
+0,
+0,
+0xDBDB,
+0xB3A1,
+0xDBDF,
+0,
+0,
+0xBBF8,
+0,
+0xD6B7,
+0,
+0xDBE0,
+0,
+0,
+0,
+0,
+0xBEF9,
+0,
+0,
+0xB7BB,
+0,
+0xDBD0,
+0xCCAE,
+0xBFB2,
+0xBBB5,
+0xD7F8,
+0xBFD3,
+0,
+0,
+0,
+0,
+0,
+0xBFE9,
+0,
+0,
+0xBCE1,
+0xCCB3,
+0xDBDE,
+0xB0D3,
+0xCEEB,
+0xB7D8,
+0xD7B9,
+0xC6C2,
+0,
+0,
+0xC0A4,
+0,
+0xCCB9,
+0,
+0xDBE7,
+0xDBE1,
+0xC6BA,
+0xDBE3,
+0,
+0xDBE8,
+0,
+0xC5F7,
+0,
+0,
+0,
+0xDBEA,
+0,
+0,
+0xDBE9,
+0xBFC0,
+0,
+0,
+0,
+0xDBE6,
+0xDBE5,
+0,
+0,
+0,
+0,
+0,
+0xB4B9,
+0xC0AC,
+0xC2A2,
+0xDBE2,
+0xDBE4,
+0,
+0,
+0,
+0,
+0xD0CD,
+0xDBED,
+0,
+0,
+0,
+0,
+0,
+0xC0DD,
+0xDBF2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB6E2,
+0,
+0,
+0,
+0,
+0xDBF3,
+0xDBD2,
+0xB9B8,
+0xD4AB,
+0xDBEC,
+0,
+0xBFD1,
+0xDBF0,
+0,
+0xDBD1,
+0,
+0xB5E6,
+0,
+0xDBEB,
+0xBFE5,
+0,
+0,
+0,
+0xDBEE,
+0,
+0xDBF1,
+0,
+0,
+0,
+0xDBF9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB9A1,
+0xB0A3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC2F1,
+0,
+0,
+0xB3C7,
+0xDBEF,
+0,
+0,
+0xDBF8,
+0,
+0xC6D2,
+0xDBF4,
+0,
+0,
+0xDBF5,
+0xDBF7,
+0xDBF6,
+0,
+0,
+0xDBFE,
+0,
+0xD3F2,
+0xB2BA,
+0,
+0,
+0,
+0xDBFD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCA4,
+0,
+0xDBFB,
+0,
+0,
+0,
+0,
+0xDBFA,
+0,
+0,
+0,
+0xDBFC,
+0xC5E0,
+0xBBF9,
+0,
+0,
+0xDCA3,
+0,
+0,
+0xDCA5,
+0,
+0xCCC3,
+0,
+0,
+0,
+0xB6D1,
+0xDDC0,
+0,
+0,
+0,
+0xDCA1,
+0,
+0xDCA2,
+0,
+0,
+0,
+0xC7B5,
+0,
+0,
+0,
+0xB6E9,
+0,
+0,
+0,
+0xDCA7,
+0,
+0,
+0,
+0,
+0xDCA6,
+0,
+0xDCA9,
+0xB1A4,
+0,
+0,
+0xB5CC,
+0,
+0,
+0,
+0,
+0,
+0xBFB0,
+0,
+0,
+0,
+0,
+0,
+0xD1DF,
+0,
+0,
+0,
+0,
+0xB6C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCA8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBFA,
+0xEBF3,
+0,
+0,
+0,
+0xCBDC,
+0,
+0,
+0xCBFE,
+0,
+0,
+0,
+0xCCC1,
+0,
+0,
+0,
+0,
+0,
+0xC8FB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCAA,
+0,
+0,
+0,
+0,
+0,
+0xCCEE,
+0xDCAB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBD3,
+0,
+0xDCAF,
+0xDCAC,
+0,
+0xBEB3,
+0,
+0xCAFB,
+0,
+0,
+0,
+0xDCAD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC9CA,
+0xC4B9,
+0,
+0,
+0,
+0,
+0,
+0xC7BD,
+0xDCAE,
+0,
+0,
+0,
+0xD4F6,
+0xD0E6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC4AB,
+0xB6D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBD4,
+0,
+0,
+0,
+0,
+0xB1DA,
+0,
+0,
+0,
+0xDBD5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBD6,
+0,
+0,
+0,
+0xBABE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC8C0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCABF,
+0xC8C9,
+0,
+0xD7B3,
+0,
+0xC9F9,
+0,
+0,
+0xBFC7,
+0,
+0,
+0xBAF8,
+0,
+0,
+0xD2BC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2BA,
+0,
+0xB4A6,
+0,
+0,
+0xB1B8,
+0,
+0,
+0,
+0,
+0,
+0xB8B4,
+0,
+0xCFC4,
+0,
+0,
+0,
+0,
+0xD9E7,
+0xCFA6,
+0xCDE2,
+0,
+0,
+0xD9ED,
+0xB6E0,
+0,
+0xD2B9,
+0,
+0,
+0xB9BB,
+0,
+0,
+0,
+0,
+0xE2B9,
+0xE2B7,
+0,
+0xB4F3,
+0,
+0xCCEC,
+0xCCAB,
+0xB7F2,
+0,
+0xD8B2,
+0xD1EB,
+0xBABB,
+0,
+0xCAA7,
+0,
+0,
+0xCDB7,
+0,
+0,
+0xD2C4,
+0xBFE4,
+0xBCD0,
+0xB6E1,
+0,
+0xDEC5,
+0,
+0,
+0,
+0,
+0xDEC6,
+0xDBBC,
+0,
+0xD1D9,
+0,
+0,
+0xC6E6,
+0xC4CE,
+0xB7EE,
+0,
+0xB7DC,
+0,
+0,
+0xBFFC,
+0xD7E0,
+0,
+0xC6F5,
+0,
+0,
+0xB1BC,
+0xDEC8,
+0xBDB1,
+0xCCD7,
+0xDECA,
+0,
+0xDEC9,
+0,
+0,
+0,
+0,
+0,
+0xB5EC,
+0,
+0xC9DD,
+0,
+0,
+0xB0C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC5AE,
+0xC5AB,
+0,
+0xC4CC,
+0,
+0xBCE9,
+0xCBFD,
+0,
+0,
+0,
+0xBAC3,
+0,
+0,
+0,
+0xE5F9,
+0xC8E7,
+0xE5FA,
+0xCDFD,
+0,
+0xD7B1,
+0xB8BE,
+0xC2E8,
+0,
+0xC8D1,
+0,
+0,
+0xE5FB,
+0,
+0,
+0,
+0,
+0xB6CA,
+0xBCCB,
+0,
+0,
+0xD1FD,
+0xE6A1,
+0,
+0xC3EE,
+0,
+0,
+0,
+0,
+0xE6A4,
+0,
+0,
+0,
+0,
+0xE5FE,
+0xE6A5,
+0xCDD7,
+0,
+0,
+0xB7C1,
+0xE5FC,
+0xE5FD,
+0xE6A3,
+0,
+0,
+0xC4DD,
+0xE6A8,
+0,
+0,
+0xE6A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC3C3,
+0,
+0xC6DE,
+0,
+0,
+0xE6AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC4B7,
+0,
+0,
+0,
+0xE6A2,
+0xCABC,
+0,
+0,
+0,
+0,
+0xBDE3,
+0xB9C3,
+0xE6A6,
+0xD0D5,
+0xCEAF,
+0,
+0,
+0xE6A9,
+0xE6B0,
+0,
+0xD2A6,
+0,
+0xBDAA,
+0xE6AD,
+0,
+0,
+0,
+0,
+0,
+0xE6AF,
+0,
+0xC0D1,
+0,
+0,
+0xD2CC,
+0,
+0,
+0,
+0xBCA7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6B1,
+0,
+0xD2F6,
+0,
+0,
+0,
+0xD7CB,
+0,
+0xCDFE,
+0,
+0xCDDE,
+0xC2A6,
+0xE6AB,
+0xE6AC,
+0xBDBF,
+0xE6AE,
+0xE6B3,
+0,
+0,
+0xE6B2,
+0,
+0,
+0,
+0,
+0xE6B6,
+0,
+0xE6B8,
+0,
+0,
+0,
+0,
+0xC4EF,
+0,
+0,
+0,
+0xC4C8,
+0,
+0,
+0xBEEA,
+0xC9EF,
+0,
+0,
+0xE6B7,
+0,
+0xB6F0,
+0,
+0,
+0,
+0xC3E4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3E9,
+0xE6B4,
+0,
+0xE6B5,
+0,
+0xC8A2,
+0,
+0,
+0,
+0,
+0,
+0xE6BD,
+0,
+0,
+0,
+0xE6B9,
+0,
+0,
+0,
+0,
+0,
+0xC6C5,
+0,
+0,
+0xCDF1,
+0xE6BB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6BC,
+0,
+0,
+0,
+0,
+0xBBE9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6BE,
+0,
+0,
+0,
+0,
+0xE6BA,
+0,
+0,
+0xC0B7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3A4,
+0xE6BF,
+0xC9F4,
+0xE6C3,
+0,
+0,
+0xE6C4,
+0,
+0,
+0,
+0,
+0xD0F6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC3BD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC3C4,
+0xE6C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6C1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6C7,
+0xCFB1,
+0,
+0xEBF4,
+0,
+0,
+0xE6CA,
+0,
+0,
+0,
+0,
+0,
+0xE6C5,
+0,
+0,
+0xBCDE,
+0xC9A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBCB5,
+0,
+0,
+0xCFD3,
+0,
+0,
+0,
+0,
+0,
+0xE6C8,
+0,
+0xE6C9,
+0,
+0xE6CE,
+0,
+0xE6D0,
+0,
+0,
+0,
+0xE6D1,
+0,
+0,
+0,
+0xE6CB,
+0xB5D5,
+0,
+0xE6CC,
+0,
+0,
+0xE6CF,
+0,
+0,
+0xC4DB,
+0,
+0xE6C6,
+0,
+0,
+0,
+0,
+0,
+0xE6CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6D2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6D4,
+0xE6D3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6D5,
+0,
+0xD9F8,
+0,
+0,
+0xE6D6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7D3,
+0xE6DD,
+0,
+0xE6DE,
+0xBFD7,
+0xD4D0,
+0,
+0xD7D6,
+0xB4E6,
+0xCBEF,
+0xE6DA,
+0xD8C3,
+0xD7CE,
+0xD0A2,
+0,
+0xC3CF,
+0,
+0,
+0xE6DF,
+0xBCBE,
+0xB9C2,
+0xE6DB,
+0xD1A7,
+0,
+0,
+0xBAA2,
+0xC2CF,
+0,
+0xD8AB,
+0,
+0,
+0,
+0xCAEB,
+0xE5EE,
+0,
+0xE6DC,
+0,
+0xB7F5,
+0,
+0,
+0,
+0,
+0xC8E6,
+0,
+0,
+0xC4F5,
+0,
+0,
+0xE5B2,
+0xC4FE,
+0,
+0xCBFC,
+0xE5B3,
+0xD5AC,
+0,
+0xD3EE,
+0xCAD8,
+0xB0B2,
+0,
+0xCBCE,
+0xCDEA,
+0,
+0,
+0xBAEA,
+0,
+0,
+0,
+0xE5B5,
+0,
+0xE5B4,
+0,
+0xD7DA,
+0xB9D9,
+0xD6E6,
+0xB6A8,
+0xCDF0,
+0xD2CB,
+0xB1A6,
+0xCAB5,
+0,
+0xB3E8,
+0xC9F3,
+0xBFCD,
+0xD0FB,
+0xCAD2,
+0xE5B6,
+0xBBC2,
+0,
+0,
+0,
+0xCFDC,
+0xB9AC,
+0,
+0,
+0,
+0,
+0xD4D7,
+0,
+0,
+0xBAA6,
+0xD1E7,
+0xCFFC,
+0xBCD2,
+0,
+0xE5B7,
+0xC8DD,
+0,
+0,
+0,
+0xBFED,
+0xB1F6,
+0xCBDE,
+0,
+0,
+0xBCC5,
+0,
+0xBCC4,
+0xD2FA,
+0xC3DC,
+0xBFDC,
+0,
+0,
+0,
+0,
+0xB8BB,
+0,
+0,
+0,
+0xC3C2,
+0,
+0xBAAE,
+0xD4A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7DE,
+0xC4AF,
+0xB2EC,
+0,
+0xB9D1,
+0,
+0,
+0xE5BB,
+0xC1C8,
+0,
+0,
+0xD5AF,
+0,
+0,
+0,
+0,
+0,
+0xE5BC,
+0,
+0xE5BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB4E7,
+0xB6D4,
+0xCBC2,
+0xD1B0,
+0xB5BC,
+0,
+0,
+0xCAD9,
+0,
+0xB7E2,
+0,
+0,
+0xC9E4,
+0,
+0xBDAB,
+0,
+0,
+0xCEBE,
+0xD7F0,
+0,
+0,
+0,
+0,
+0xD0A1,
+0,
+0xC9D9,
+0,
+0,
+0xB6FB,
+0xE6D8,
+0xBCE2,
+0,
+0xB3BE,
+0,
+0xC9D0,
+0,
+0xE6D9,
+0xB3A2,
+0,
+0,
+0,
+0,
+0xDECC,
+0,
+0xD3C8,
+0xDECD,
+0,
+0xD2A2,
+0,
+0,
+0,
+0,
+0xDECE,
+0,
+0,
+0,
+0,
+0xBECD,
+0,
+0,
+0xDECF,
+0,
+0,
+0,
+0xCAAC,
+0xD2FC,
+0xB3DF,
+0xE5EA,
+0xC4E1,
+0xBEA1,
+0xCEB2,
+0xC4F2,
+0xBED6,
+0xC6A8,
+0xB2E3,
+0,
+0,
+0xBED3,
+0,
+0,
+0xC7FC,
+0xCCEB,
+0xBDEC,
+0xCEDD,
+0,
+0,
+0xCABA,
+0xC6C1,
+0xE5EC,
+0xD0BC,
+0,
+0,
+0,
+0xD5B9,
+0,
+0,
+0,
+0xE5ED,
+0,
+0,
+0,
+0,
+0xCAF4,
+0,
+0xCDC0,
+0xC2C5,
+0,
+0xE5EF,
+0,
+0xC2C4,
+0xE5F0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5F8,
+0xCDCD,
+0,
+0xC9BD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD2D9,
+0xE1A8,
+0,
+0,
+0,
+0,
+0xD3EC,
+0,
+0xCBEA,
+0xC6F1,
+0,
+0,
+0,
+0,
+0,
+0xE1AC,
+0,
+0,
+0,
+0xE1A7,
+0xE1A9,
+0,
+0,
+0xE1AA,
+0xE1AF,
+0,
+0,
+0xB2ED,
+0,
+0xE1AB,
+0xB8DA,
+0xE1AD,
+0xE1AE,
+0xE1B0,
+0xB5BA,
+0xE1B1,
+0,
+0,
+0,
+0,
+0,
+0xE1B3,
+0xE1B8,
+0,
+0,
+0,
+0,
+0,
+0xD1D2,
+0,
+0xE1B6,
+0xE1B5,
+0xC1EB,
+0,
+0,
+0,
+0xE1B7,
+0,
+0xD4C0,
+0,
+0xE1B2,
+0,
+0xE1BA,
+0xB0B6,
+0,
+0,
+0,
+0,
+0xE1B4,
+0,
+0xBFF9,
+0,
+0xE1B9,
+0,
+0,
+0xE1BB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1BC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFBF,
+0,
+0,
+0xE1BD,
+0xE1BF,
+0xC2CD,
+0,
+0xB6EB,
+0,
+0xD3F8,
+0,
+0,
+0xC7CD,
+0,
+0,
+0xB7E5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBEFE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1C0,
+0xE1C1,
+0,
+0,
+0xE1C7,
+0xB3E7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC6E9,
+0,
+0,
+0,
+0,
+0,
+0xB4DE,
+0,
+0xD1C2,
+0,
+0,
+0,
+0,
+0xE1C8,
+0,
+0,
+0xE1C6,
+0,
+0,
+0,
+0,
+0,
+0xE1C5,
+0,
+0xE1C3,
+0xE1C2,
+0,
+0xB1C0,
+0,
+0,
+0,
+0xD5B8,
+0xE1C4,
+0,
+0,
+0,
+0,
+0,
+0xE1CB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1CC,
+0xE1CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFFA,
+0,
+0,
+0xE1D3,
+0xE1D2,
+0xC7B6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1C9,
+0,
+0,
+0xE1CE,
+0,
+0xE1D0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1D4,
+0,
+0xE1D1,
+0xE1CD,
+0,
+0,
+0xE1CF,
+0,
+0,
+0,
+0,
+0xE1D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1D6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1D7,
+0,
+0,
+0,
+0xE1D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEA1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7DD,
+0,
+0xB4A8,
+0xD6DD,
+0,
+0,
+0xD1B2,
+0xB3B2,
+0,
+0,
+0xB9A4,
+0xD7F3,
+0xC7C9,
+0xBEDE,
+0xB9AE,
+0,
+0xCED7,
+0,
+0,
+0xB2EE,
+0xDBCF,
+0,
+0xBCBA,
+0xD2D1,
+0xCBC8,
+0xB0CD,
+0,
+0,
+0xCFEF,
+0,
+0,
+0,
+0,
+0,
+0xD9E3,
+0xBDED,
+0,
+0,
+0xB1D2,
+0xCAD0,
+0xB2BC,
+0,
+0xCBA7,
+0xB7AB,
+0,
+0xCAA6,
+0,
+0,
+0,
+0xCFA3,
+0,
+0,
+0xE0F8,
+0xD5CA,
+0xE0FB,
+0,
+0,
+0xE0FA,
+0xC5C1,
+0xCCFB,
+0,
+0xC1B1,
+0xE0F9,
+0xD6E3,
+0xB2AF,
+0xD6C4,
+0xB5DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB4F8,
+0xD6A1,
+0,
+0,
+0,
+0,
+0,
+0xCFAF,
+0xB0EF,
+0,
+0,
+0xE0FC,
+0,
+0,
+0,
+0,
+0,
+0xE1A1,
+0xB3A3,
+0,
+0,
+0xE0FD,
+0xE0FE,
+0xC3B1,
+0,
+0,
+0,
+0,
+0xC3DD,
+0,
+0xE1A2,
+0xB7F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBBCF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1A3,
+0xC4BB,
+0,
+0,
+0,
+0,
+0,
+0xE1A4,
+0,
+0,
+0xE1A5,
+0,
+0,
+0xE1A6,
+0xB4B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB8C9,
+0xC6BD,
+0xC4EA,
+0,
+0xB2A2,
+0,
+0xD0D2,
+0,
+0xE7DB,
+0xBBC3,
+0xD3D7,
+0xD3C4,
+0,
+0xB9E3,
+0xE2CF,
+0,
+0,
+0,
+0xD7AF,
+0,
+0xC7EC,
+0xB1D3,
+0,
+0,
+0xB4B2,
+0xE2D1,
+0,
+0,
+0,
+0xD0F2,
+0xC2AE,
+0xE2D0,
+0,
+0xBFE2,
+0xD3A6,
+0xB5D7,
+0xE2D2,
+0xB5EA,
+0,
+0xC3ED,
+0xB8FD,
+0,
+0xB8AE,
+0,
+0xC5D3,
+0xB7CF,
+0xE2D4,
+0,
+0,
+0,
+0,
+0xE2D3,
+0xB6C8,
+0xD7F9,
+0,
+0,
+0,
+0,
+0,
+0xCDA5,
+0,
+0,
+0,
+0,
+0,
+0xE2D8,
+0,
+0xE2D6,
+0xCAFC,
+0xBFB5,
+0xD3B9,
+0xE2D5,
+0,
+0,
+0,
+0,
+0xE2D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC1AE,
+0xC0C8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2DB,
+0xE2DA,
+0xC0AA,
+0,
+0,
+0xC1CE,
+0,
+0,
+0,
+0,
+0xE2DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2DD,
+0,
+0xE2DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBC8,
+0,
+0xD1D3,
+0xCDA2,
+0,
+0,
+0xBDA8,
+0,
+0,
+0,
+0xDEC3,
+0xD8A5,
+0xBFAA,
+0xDBCD,
+0xD2EC,
+0xC6FA,
+0xC5AA,
+0,
+0,
+0,
+0xDEC4,
+0,
+0xB1D7,
+0xDFAE,
+0,
+0,
+0,
+0xCABD,
+0,
+0xDFB1,
+0,
+0xB9AD,
+0,
+0xD2FD,
+0,
+0xB8A5,
+0xBAEB,
+0,
+0,
+0xB3DA,
+0,
+0,
+0,
+0xB5DC,
+0xD5C5,
+0,
+0,
+0,
+0,
+0xC3D6,
+0xCFD2,
+0xBBA1,
+0,
+0xE5F3,
+0xE5F2,
+0,
+0,
+0xE5F4,
+0,
+0xCDE4,
+0,
+0xC8F5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB5AF,
+0xC7BF,
+0,
+0xE5F6,
+0,
+0,
+0,
+0xECB0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5E6,
+0,
+0xB9E9,
+0xB5B1,
+0,
+0xC2BC,
+0xE5E8,
+0xE5E7,
+0xE5E9,
+0,
+0,
+0,
+0,
+0xD2CD,
+0,
+0,
+0,
+0xE1EA,
+0xD0CE,
+0,
+0xCDAE,
+0,
+0xD1E5,
+0,
+0,
+0xB2CA,
+0xB1EB,
+0,
+0xB1F2,
+0xC5ED,
+0,
+0,
+0xD5C3,
+0xD3B0,
+0,
+0xE1DC,
+0,
+0,
+0,
+0xE1DD,
+0,
+0xD2DB,
+0,
+0xB3B9,
+0xB1CB,
+0,
+0,
+0,
+0xCDF9,
+0xD5F7,
+0xE1DE,
+0,
+0xBEB6,
+0xB4FD,
+0,
+0xE1DF,
+0xBADC,
+0xE1E0,
+0xBBB2,
+0xC2C9,
+0xE1E1,
+0,
+0,
+0,
+0xD0EC,
+0,
+0xCDBD,
+0,
+0,
+0xE1E2,
+0,
+0xB5C3,
+0xC5C7,
+0xE1E3,
+0,
+0,
+0xE1E4,
+0,
+0,
+0,
+0,
+0xD3F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1E5,
+0,
+0xD1AD,
+0,
+0,
+0xE1E6,
+0xCEA2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1E7,
+0,
+0xB5C2,
+0,
+0,
+0,
+0,
+0xE1E8,
+0xBBD5,
+0,
+0,
+0,
+0,
+0,
+0xD0C4,
+0xE2E0,
+0xB1D8,
+0xD2E4,
+0,
+0,
+0xE2E1,
+0,
+0,
+0xBCC9,
+0xC8CC,
+0,
+0xE2E3,
+0xECFE,
+0xECFD,
+0xDFAF,
+0,
+0,
+0,
+0xE2E2,
+0xD6BE,
+0xCDFC,
+0xC3A6,
+0,
+0,
+0,
+0xE3C3,
+0,
+0,
+0xD6D2,
+0xE2E7,
+0,
+0,
+0xE2E8,
+0,
+0,
+0xD3C7,
+0,
+0,
+0xE2EC,
+0xBFEC,
+0,
+0xE2ED,
+0xE2E5,
+0,
+0,
+0xB3C0,
+0,
+0,
+0,
+0xC4EE,
+0,
+0,
+0xE2EE,
+0,
+0,
+0xD0C3,
+0,
+0xBAF6,
+0xE2E9,
+0xB7DE,
+0xBBB3,
+0xCCAC,
+0xCBCB,
+0xE2E4,
+0xE2E6,
+0xE2EA,
+0xE2EB,
+0,
+0,
+0,
+0xE2F7,
+0,
+0,
+0xE2F4,
+0xD4F5,
+0xE2F3,
+0,
+0,
+0xC5AD,
+0,
+0xD5FA,
+0xC5C2,
+0xB2C0,
+0,
+0,
+0xE2EF,
+0,
+0xE2F2,
+0xC1AF,
+0xCBBC,
+0,
+0,
+0xB5A1,
+0xE2F9,
+0,
+0,
+0,
+0xBCB1,
+0xE2F1,
+0xD0D4,
+0xD4B9,
+0xE2F5,
+0xB9D6,
+0xE2F6,
+0,
+0,
+0,
+0xC7D3,
+0,
+0,
+0,
+0,
+0,
+0xE2F0,
+0,
+0,
+0,
+0,
+0,
+0xD7DC,
+0xEDA1,
+0,
+0,
+0xE2F8,
+0,
+0xEDA5,
+0xE2FE,
+0xCAD1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC1B5,
+0,
+0xBBD0,
+0,
+0,
+0xBFD6,
+0,
+0xBAE3,
+0,
+0,
+0xCBA1,
+0,
+0,
+0,
+0xEDA6,
+0xEDA3,
+0,
+0,
+0xEDA2,
+0,
+0,
+0,
+0,
+0xBBD6,
+0xEDA7,
+0xD0F4,
+0,
+0,
+0xEDA4,
+0xBADE,
+0xB6F7,
+0xE3A1,
+0xB6B2,
+0xCCF1,
+0xB9A7,
+0,
+0xCFA2,
+0xC7A1,
+0,
+0,
+0xBFD2,
+0,
+0,
+0xB6F1,
+0,
+0xE2FA,
+0xE2FB,
+0xE2FD,
+0xE2FC,
+0xC4D5,
+0xE3A2,
+0,
+0xD3C1,
+0,
+0,
+0,
+0xE3A7,
+0xC7C4,
+0,
+0,
+0,
+0,
+0xCFA4,
+0,
+0,
+0xE3A9,
+0xBAB7,
+0,
+0,
+0,
+0,
+0xE3A8,
+0,
+0xBBDA,
+0,
+0xE3A3,
+0,
+0,
+0,
+0xE3A4,
+0xE3AA,
+0,
+0xE3A6,
+0,
+0xCEF2,
+0xD3C6,
+0,
+0,
+0xBBBC,
+0,
+0,
+0xD4C3,
+0,
+0xC4FA,
+0,
+0,
+0xEDA8,
+0xD0FC,
+0xE3A5,
+0,
+0xC3F5,
+0,
+0xE3AD,
+0xB1AF,
+0,
+0xE3B2,
+0,
+0,
+0,
+0xBCC2,
+0,
+0,
+0xE3AC,
+0xB5BF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7E9,
+0xE3B0,
+0,
+0,
+0,
+0xBEAA,
+0xCDEF,
+0,
+0,
+0,
+0,
+0,
+0xBBF3,
+0,
+0,
+0,
+0xCCE8,
+0,
+0,
+0xE3AF,
+0,
+0xE3B1,
+0,
+0xCFA7,
+0xE3AE,
+0,
+0xCEA9,
+0xBBDD,
+0,
+0,
+0,
+0,
+0,
+0xB5EB,
+0xBEE5,
+0xB2D2,
+0xB3CD,
+0,
+0xB1B9,
+0xE3AB,
+0xB2D1,
+0xB5AC,
+0xB9DF,
+0xB6E8,
+0,
+0,
+0xCFEB,
+0xE3B7,
+0,
+0xBBCC,
+0,
+0,
+0xC8C7,
+0xD0CA,
+0,
+0,
+0,
+0,
+0,
+0xE3B8,
+0xB3EE,
+0,
+0,
+0,
+0,
+0xEDA9,
+0,
+0xD3FA,
+0xD3E4,
+0,
+0,
+0,
+0xEDAA,
+0xE3B9,
+0xD2E2,
+0,
+0,
+0,
+0,
+0,
+0xE3B5,
+0,
+0,
+0,
+0,
+0xD3DE,
+0,
+0,
+0,
+0,
+0xB8D0,
+0xE3B3,
+0,
+0,
+0xE3B6,
+0xB7DF,
+0,
+0xE3B4,
+0xC0A2,
+0,
+0,
+0,
+0xE3BA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4B8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB4C8,
+0,
+0xE3BB,
+0,
+0xBBC5,
+0,
+0xC9F7,
+0,
+0,
+0xC9E5,
+0,
+0,
+0,
+0xC4BD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDAB,
+0,
+0,
+0,
+0,
+0xC2FD,
+0,
+0,
+0,
+0,
+0xBBDB,
+0xBFAE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEBF,
+0,
+0,
+0,
+0,
+0xE3BC,
+0,
+0xBFB6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB1EF,
+0,
+0,
+0xD4F7,
+0,
+0,
+0,
+0,
+0,
+0xE3BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDAD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3BF,
+0xBAA9,
+0xEDAC,
+0,
+0,
+0xE3BD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3C0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBAB6,
+0,
+0,
+0,
+0xB6AE,
+0,
+0,
+0,
+0,
+0,
+0xD0B8,
+0,
+0xB0C3,
+0xEDAE,
+0,
+0,
+0,
+0,
+0,
+0xEDAF,
+0xC0C1,
+0,
+0xE3C1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC5B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCB2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDB0,
+0,
+0xB8EA,
+0,
+0xCEEC,
+0xEAA7,
+0xD0E7,
+0xCAF9,
+0xC8D6,
+0xCFB7,
+0xB3C9,
+0xCED2,
+0xBDE4,
+0,
+0,
+0xE3DE,
+0xBBF2,
+0xEAA8,
+0xD5BD,
+0,
+0xC6DD,
+0xEAA9,
+0,
+0,
+0,
+0xEAAA,
+0,
+0xEAAC,
+0xEAAB,
+0,
+0xEAAE,
+0xEAAD,
+0,
+0,
+0,
+0,
+0xBDD8,
+0,
+0xEAAF,
+0,
+0xC2BE,
+0,
+0,
+0,
+0,
+0xB4C1,
+0xB4F7,
+0,
+0,
+0xBBA7,
+0,
+0,
+0,
+0,
+0,
+0xECE6,
+0xECE5,
+0xB7BF,
+0xCBF9,
+0xB1E2,
+0,
+0xECE7,
+0,
+0,
+0,
+0xC9C8,
+0xECE8,
+0xECE9,
+0,
+0xCAD6,
+0xDED0,
+0xB2C5,
+0xD4FA,
+0,
+0,
+0xC6CB,
+0xB0C7,
+0xB4F2,
+0xC8D3,
+0,
+0,
+0,
+0xCDD0,
+0,
+0,
+0xBFB8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBFDB,
+0,
+0,
+0xC7A4,
+0xD6B4,
+0,
+0xC0A9,
+0xDED1,
+0xC9A8,
+0xD1EF,
+0xC5A4,
+0xB0E7,
+0xB3B6,
+0xC8C5,
+0,
+0,
+0xB0E2,
+0,
+0,
+0xB7F6,
+0,
+0,
+0xC5FA,
+0,
+0,
+0xB6F3,
+0,
+0xD5D2,
+0xB3D0,
+0xBCBC,
+0,
+0,
+0,
+0xB3AD,
+0,
+0,
+0,
+0,
+0xBEF1,
+0xB0D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD2D6,
+0xCAE3,
+0xD7A5,
+0,
+0xCDB6,
+0xB6B6,
+0xBFB9,
+0xD5DB,
+0,
+0xB8A7,
+0xC5D7,
+0,
+0,
+0,
+0xDED2,
+0xBFD9,
+0xC2D5,
+0xC7C0,
+0,
+0xBBA4,
+0xB1A8,
+0,
+0,
+0xC5EA,
+0,
+0,
+0xC5FB,
+0xCCA7,
+0,
+0,
+0,
+0,
+0xB1A7,
+0,
+0,
+0,
+0xB5D6,
+0,
+0,
+0,
+0xC4A8,
+0,
+0xDED3,
+0xD1BA,
+0xB3E9,
+0,
+0xC3F2,
+0,
+0,
+0xB7F7,
+0,
+0xD6F4,
+0xB5A3,
+0xB2F0,
+0xC4B4,
+0xC4E9,
+0xC0AD,
+0xDED4,
+0,
+0xB0E8,
+0xC5C4,
+0xC1E0,
+0,
+0xB9D5,
+0,
+0xBEDC,
+0xCDD8,
+0xB0CE,
+0,
+0xCDCF,
+0xDED6,
+0xBED0,
+0xD7BE,
+0xDED5,
+0xD5D0,
+0xB0DD,
+0,
+0,
+0xC4E2,
+0,
+0,
+0xC2A3,
+0xBCF0,
+0,
+0xD3B5,
+0xC0B9,
+0xC5A1,
+0xB2A6,
+0xD4F1,
+0,
+0,
+0xC0A8,
+0xCAC3,
+0xDED7,
+0xD5FC,
+0,
+0xB9B0,
+0,
+0xC8AD,
+0xCBA9,
+0,
+0xDED9,
+0xBFBD,
+0,
+0,
+0,
+0,
+0xC6B4,
+0xD7A7,
+0xCAB0,
+0xC4C3,
+0,
+0xB3D6,
+0xB9D2,
+0,
+0,
+0,
+0,
+0xD6B8,
+0xEAFC,
+0xB0B4,
+0,
+0,
+0,
+0,
+0xBFE6,
+0,
+0,
+0xCCF4,
+0,
+0,
+0,
+0,
+0xCDDA,
+0,
+0,
+0,
+0xD6BF,
+0xC2CE,
+0,
+0xCECE,
+0xCCA2,
+0xD0AE,
+0xC4D3,
+0xB5B2,
+0xDED8,
+0xD5F5,
+0xBCB7,
+0xBBD3,
+0,
+0,
+0xB0A4,
+0,
+0xC5B2,
+0xB4EC,
+0,
+0,
+0,
+0xD5F1,
+0,
+0,
+0xEAFD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEDA,
+0xCDA6,
+0,
+0,
+0xCDEC,
+0,
+0,
+0,
+0,
+0xCEE6,
+0xDEDC,
+0,
+0xCDB1,
+0xC0A6,
+0,
+0,
+0xD7BD,
+0,
+0xDEDB,
+0xB0C6,
+0xBAB4,
+0xC9D3,
+0xC4F3,
+0xBEE8,
+0,
+0,
+0,
+0,
+0xB2B6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC0CC,
+0xCBF0,
+0,
+0xBCF1,
+0xBBBB,
+0xB5B7,
+0,
+0,
+0,
+0xC5F5,
+0,
+0xDEE6,
+0,
+0,
+0,
+0xDEE3,
+0xBEDD,
+0,
+0,
+0xDEDF,
+0,
+0,
+0,
+0,
+0xB4B7,
+0xBDDD,
+0,
+0,
+0xDEE0,
+0xC4ED,
+0,
+0,
+0,
+0,
+0xCFC6,
+0,
+0xB5E0,
+0,
+0,
+0,
+0,
+0xB6DE,
+0xCADA,
+0xB5F4,
+0xDEE5,
+0,
+0xD5C6,
+0,
+0xDEE1,
+0xCCCD,
+0xC6FE,
+0,
+0xC5C5,
+0,
+0,
+0,
+0xD2B4,
+0,
+0xBEF2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC2D3,
+0,
+0xCCBD,
+0xB3B8,
+0,
+0xBDD3,
+0,
+0xBFD8,
+0xCDC6,
+0xD1DA,
+0xB4EB,
+0,
+0xDEE4,
+0xDEDD,
+0xDEE7,
+0,
+0xEAFE,
+0,
+0,
+0xC2B0,
+0xDEE2,
+0,
+0,
+0xD6C0,
+0xB5A7,
+0,
+0xB2F4,
+0,
+0xDEE8,
+0,
+0xDEF2,
+0,
+0,
+0,
+0,
+0,
+0xDEED,
+0,
+0xDEF1,
+0,
+0,
+0xC8E0,
+0,
+0,
+0,
+0xD7E1,
+0xDEEF,
+0xC3E8,
+0xCCE1,
+0,
+0xB2E5,
+0,
+0,
+0,
+0xD2BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEEE,
+0,
+0xDEEB,
+0xCED5,
+0,
+0xB4A7,
+0,
+0,
+0,
+0,
+0,
+0xBFAB,
+0xBEBE,
+0,
+0,
+0xBDD2,
+0,
+0,
+0,
+0,
+0xDEE9,
+0,
+0xD4AE,
+0,
+0xDEDE,
+0,
+0xDEEA,
+0,
+0,
+0,
+0,
+0xC0BF,
+0,
+0xDEEC,
+0xB2F3,
+0xB8E9,
+0xC2A7,
+0,
+0,
+0xBDC1,
+0,
+0,
+0,
+0,
+0,
+0xDEF5,
+0xDEF8,
+0,
+0,
+0xB2AB,
+0xB4A4,
+0,
+0,
+0xB4EA,
+0xC9A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEF6,
+0xCBD1,
+0,
+0xB8E3,
+0,
+0xDEF7,
+0xDEFA,
+0,
+0,
+0,
+0,
+0xDEF9,
+0,
+0,
+0,
+0xCCC2,
+0,
+0xB0E1,
+0xB4EE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5BA,
+0,
+0,
+0,
+0,
+0,
+0xD0AF,
+0,
+0,
+0xB2EB,
+0,
+0xEBA1,
+0,
+0xDEF4,
+0,
+0,
+0xC9E3,
+0xDEF3,
+0xB0DA,
+0xD2A1,
+0xB1F7,
+0,
+0xCCAF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEF0,
+0,
+0xCBA4,
+0,
+0,
+0,
+0xD5AA,
+0,
+0,
+0,
+0,
+0,
+0xDEFB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB4DD,
+0,
+0xC4A6,
+0,
+0,
+0,
+0xDEFD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC3FE,
+0xC4A1,
+0xDFA1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC1CC,
+0,
+0xDEFC,
+0xBEEF,
+0,
+0xC6B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB3C5,
+0xC8F6,
+0,
+0,
+0xCBBA,
+0xDEFE,
+0,
+0,
+0xDFA4,
+0,
+0,
+0,
+0,
+0xD7B2,
+0,
+0,
+0,
+0,
+0,
+0xB3B7,
+0,
+0,
+0,
+0,
+0xC1C3,
+0,
+0,
+0xC7CB,
+0xB2A5,
+0xB4E9,
+0,
+0xD7AB,
+0,
+0,
+0,
+0,
+0xC4EC,
+0,
+0xDFA2,
+0xDFA3,
+0,
+0xDFA5,
+0,
+0xBAB3,
+0,
+0,
+0,
+0xDFA6,
+0,
+0xC0DE,
+0,
+0,
+0xC9C3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB2D9,
+0xC7E6,
+0,
+0xDFA7,
+0,
+0xC7DC,
+0,
+0,
+0,
+0,
+0xDFA8,
+0xEBA2,
+0,
+0,
+0,
+0,
+0,
+0xCBD3,
+0,
+0,
+0,
+0xDFAA,
+0,
+0xDFA9,
+0,
+0xB2C1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC5CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFAB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4DC,
+0,
+0,
+0,
+0,
+0,
+0xC8C1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFAC,
+0,
+0,
+0,
+0,
+0,
+0xBEF0,
+0,
+0,
+0xDFAD,
+0xD6A7,
+0,
+0,
+0,
+0,
+0xEAB7,
+0xEBB6,
+0xCAD5,
+0,
+0xD8FC,
+0xB8C4,
+0,
+0xB9A5,
+0,
+0,
+0xB7C5,
+0xD5FE,
+0,
+0,
+0,
+0,
+0,
+0xB9CA,
+0,
+0,
+0xD0A7,
+0xF4CD,
+0,
+0,
+0xB5D0,
+0,
+0,
+0xC3F4,
+0,
+0xBEC8,
+0,
+0,
+0,
+0xEBB7,
+0xB0BD,
+0,
+0,
+0xBDCC,
+0,
+0xC1B2,
+0,
+0xB1D6,
+0xB3A8,
+0,
+0,
+0,
+0xB8D2,
+0xC9A2,
+0,
+0,
+0xB6D8,
+0,
+0,
+0,
+0,
+0xEBB8,
+0xBEB4,
+0,
+0,
+0,
+0xCAFD,
+0,
+0xC7C3,
+0,
+0xD5FB,
+0,
+0,
+0xB7F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEC4,
+0,
+0,
+0,
+0xD5AB,
+0xB1F3,
+0,
+0,
+0,
+0xECB3,
+0xB0DF,
+0,
+0xECB5,
+0,
+0,
+0,
+0xB6B7,
+0,
+0xC1CF,
+0,
+0xF5FA,
+0xD0B1,
+0,
+0,
+0xD5E5,
+0,
+0xCED3,
+0,
+0,
+0xBDEF,
+0xB3E2,
+0,
+0xB8AB,
+0,
+0xD5B6,
+0,
+0xEDBD,
+0,
+0xB6CF,
+0,
+0xCBB9,
+0xD0C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB7BD,
+0,
+0,
+0xECB6,
+0xCAA9,
+0,
+0,
+0,
+0xC5D4,
+0,
+0xECB9,
+0xECB8,
+0xC2C3,
+0xECB7,
+0,
+0,
+0,
+0,
+0xD0FD,
+0xECBA,
+0,
+0xECBB,
+0xD7E5,
+0,
+0,
+0xECBC,
+0,
+0,
+0,
+0xECBD,
+0xC6EC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEDE,
+0,
+0xBCC8,
+0,
+0,
+0xC8D5,
+0xB5A9,
+0xBEC9,
+0xD6BC,
+0xD4E7,
+0,
+0,
+0xD1AE,
+0xD0F1,
+0xEAB8,
+0xEAB9,
+0xEABA,
+0xBAB5,
+0,
+0,
+0,
+0,
+0xCAB1,
+0xBFF5,
+0,
+0,
+0xCDFA,
+0,
+0,
+0,
+0,
+0,
+0xEAC0,
+0,
+0xB0BA,
+0xEABE,
+0,
+0,
+0xC0A5,
+0,
+0,
+0,
+0xEABB,
+0,
+0xB2FD,
+0,
+0xC3F7,
+0xBBE8,
+0,
+0,
+0,
+0xD2D7,
+0xCEF4,
+0xEABF,
+0,
+0,
+0,
+0xEABC,
+0,
+0,
+0,
+0xEAC3,
+0,
+0xD0C7,
+0xD3B3,
+0,
+0,
+0,
+0,
+0xB4BA,
+0,
+0xC3C1,
+0xD7F2,
+0,
+0,
+0,
+0,
+0xD5D1,
+0,
+0xCAC7,
+0,
+0xEAC5,
+0,
+0,
+0xEAC4,
+0xEAC7,
+0xEAC6,
+0,
+0,
+0,
+0,
+0,
+0xD6E7,
+0,
+0xCFD4,
+0,
+0,
+0xEACB,
+0,
+0xBBCE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBDFA,
+0xC9CE,
+0,
+0,
+0xEACC,
+0,
+0,
+0xC9B9,
+0xCFFE,
+0xEACA,
+0xD4CE,
+0xEACD,
+0xEACF,
+0,
+0,
+0xCDED,
+0,
+0,
+0,
+0,
+0xEAC9,
+0,
+0xEACE,
+0,
+0,
+0xCEEE,
+0,
+0xBBDE,
+0,
+0xB3BF,
+0,
+0,
+0,
+0,
+0,
+0xC6D5,
+0xBEB0,
+0xCEFA,
+0,
+0,
+0,
+0xC7E7,
+0,
+0xBEA7,
+0xEAD0,
+0,
+0,
+0xD6C7,
+0,
+0,
+0,
+0xC1C0,
+0,
+0,
+0,
+0xD4DD,
+0,
+0xEAD1,
+0,
+0,
+0xCFBE,
+0,
+0,
+0,
+0,
+0xEAD2,
+0,
+0,
+0,
+0,
+0xCAEE,
+0,
+0,
+0,
+0,
+0xC5AF,
+0xB0B5,
+0,
+0,
+0,
+0,
+0,
+0xEAD4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAD3,
+0xF4DF,
+0,
+0,
+0,
+0,
+0,
+0xC4BA,
+0,
+0,
+0,
+0,
+0,
+0xB1A9,
+0,
+0,
+0,
+0,
+0xE5DF,
+0,
+0,
+0,
+0,
+0xEAD5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAEF,
+0,
+0xEAD6,
+0xEAD7,
+0xC6D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAD8,
+0,
+0,
+0xEAD9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4BB,
+0,
+0xC7FA,
+0xD2B7,
+0xB8FC,
+0,
+0,
+0xEAC2,
+0,
+0xB2DC,
+0,
+0,
+0xC2FC,
+0,
+0xD4F8,
+0xCCE6,
+0xD7EE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4C2,
+0xD3D0,
+0xEBC3,
+0xC5F3,
+0,
+0xB7FE,
+0,
+0,
+0xEBD4,
+0,
+0,
+0,
+0xCBB7,
+0xEBDE,
+0,
+0xC0CA,
+0,
+0,
+0,
+0xCDFB,
+0,
+0xB3AF,
+0,
+0xC6DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBFC,
+0,
+0xC4BE,
+0,
+0xCEB4,
+0xC4A9,
+0xB1BE,
+0xD4FD,
+0,
+0xCAF5,
+0,
+0xD6EC,
+0,
+0,
+0xC6D3,
+0xB6E4,
+0,
+0,
+0,
+0,
+0xBBFA,
+0,
+0,
+0xD0E0,
+0,
+0,
+0xC9B1,
+0,
+0xD4D3,
+0xC8A8,
+0,
+0,
+0xB8CB,
+0,
+0xE8BE,
+0xC9BC,
+0,
+0,
+0xE8BB,
+0,
+0xC0EE,
+0xD0D3,
+0xB2C4,
+0xB4E5,
+0,
+0xE8BC,
+0,
+0,
+0xD5C8,
+0,
+0,
+0,
+0,
+0,
+0xB6C5,
+0,
+0xE8BD,
+0xCAF8,
+0xB8DC,
+0xCCF5,
+0,
+0,
+0,
+0xC0B4,
+0,
+0,
+0xD1EE,
+0xE8BF,
+0xE8C2,
+0,
+0,
+0xBABC,
+0,
+0xB1AD,
+0xBDDC,
+0,
+0xEABD,
+0xE8C3,
+0,
+0xE8C6,
+0,
+0xE8CB,
+0,
+0,
+0,
+0,
+0xE8CC,
+0,
+0xCBC9,
+0xB0E5,
+0,
+0xBCAB,
+0,
+0,
+0xB9B9,
+0,
+0,
+0xE8C1,
+0,
+0xCDF7,
+0,
+0xE8CA,
+0,
+0,
+0,
+0,
+0xCEF6,
+0,
+0,
+0,
+0,
+0xD5ED,
+0,
+0xC1D6,
+0xE8C4,
+0,
+0xC3B6,
+0,
+0xB9FB,
+0xD6A6,
+0xE8C8,
+0,
+0,
+0,
+0xCAE0,
+0xD4E6,
+0,
+0xE8C0,
+0,
+0xE8C5,
+0xE8C7,
+0,
+0xC7B9,
+0xB7E3,
+0,
+0xE8C9,
+0,
+0xBFDD,
+0xE8D2,
+0,
+0,
+0xE8D7,
+0,
+0xE8D5,
+0xBCDC,
+0xBCCF,
+0xE8DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8DE,
+0,
+0xE8DA,
+0xB1FA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB0D8,
+0xC4B3,
+0xB8CC,
+0xC6E2,
+0xC8BE,
+0xC8E1,
+0,
+0,
+0,
+0xE8CF,
+0xE8D4,
+0xE8D6,
+0,
+0xB9F1,
+0xE8D8,
+0xD7F5,
+0,
+0xC4FB,
+0,
+0xE8DC,
+0,
+0,
+0xB2E9,
+0,
+0,
+0,
+0xE8D1,
+0,
+0,
+0xBCED,
+0,
+0,
+0xBFC2,
+0xE8CD,
+0xD6F9,
+0,
+0xC1F8,
+0xB2F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8DF,
+0,
+0xCAC1,
+0xE8D9,
+0,
+0,
+0,
+0,
+0xD5A4,
+0,
+0xB1EA,
+0xD5BB,
+0xE8CE,
+0xE8D0,
+0xB6B0,
+0xE8D3,
+0,
+0xE8DD,
+0xC0B8,
+0,
+0xCAF7,
+0,
+0xCBA8,
+0,
+0,
+0xC6DC,
+0xC0F5,
+0,
+0,
+0,
+0,
+0,
+0xE8E9,
+0,
+0,
+0,
+0xD0A3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8F2,
+0xD6EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8E0,
+0xE8E1,
+0,
+0,
+0,
+0xD1F9,
+0xBACB,
+0xB8F9,
+0,
+0,
+0xB8F1,
+0xD4D4,
+0xE8EF,
+0,
+0xE8EE,
+0xE8EC,
+0xB9F0,
+0xCCD2,
+0xE8E6,
+0xCEA6,
+0xBFF2,
+0,
+0xB0B8,
+0xE8F1,
+0xE8F0,
+0,
+0xD7C0,
+0,
+0xE8E4,
+0,
+0xCDA9,
+0xC9A3,
+0,
+0xBBB8,
+0xBDDB,
+0xE8EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8E2,
+0xE8E3,
+0xE8E5,
+0xB5B5,
+0xE8E7,
+0xC7C5,
+0xE8EB,
+0xE8ED,
+0xBDB0,
+0xD7AE,
+0,
+0xE8F8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8F5,
+0,
+0xCDB0,
+0xE8F6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC1BA,
+0,
+0xE8E8,
+0,
+0xC3B7,
+0xB0F0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8F4,
+0,
+0,
+0,
+0xE8F7,
+0,
+0,
+0,
+0xB9A3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC9D2,
+0,
+0,
+0,
+0xC3CE,
+0xCEE0,
+0xC0E6,
+0,
+0,
+0,
+0,
+0xCBF3,
+0,
+0xCCDD,
+0xD0B5,
+0,
+0,
+0xCAE1,
+0,
+0xE8F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBCEC,
+0,
+0xE8F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC3DE,
+0,
+0xC6E5,
+0,
+0xB9F7,
+0,
+0,
+0,
+0,
+0xB0F4,
+0,
+0,
+0xD7D8,
+0,
+0,
+0xBCAC,
+0,
+0xC5EF,
+0,
+0,
+0,
+0,
+0,
+0xCCC4,
+0,
+0,
+0xE9A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC9AD,
+0,
+0xE9A2,
+0xC0E2,
+0,
+0,
+0,
+0xBFC3,
+0,
+0,
+0,
+0xE8FE,
+0xB9D7,
+0,
+0xE8FB,
+0,
+0,
+0,
+0,
+0xE9A4,
+0,
+0,
+0,
+0xD2CE,
+0,
+0,
+0,
+0,
+0,
+0xE9A3,
+0,
+0xD6B2,
+0xD7B5,
+0,
+0xE9A7,
+0,
+0xBDB7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8FC,
+0xE8FD,
+0,
+0,
+0,
+0xE9A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDD6,
+0,
+0,
+0xD2AC,
+0,
+0,
+0,
+0xE9B2,
+0,
+0,
+0,
+0,
+0xE9A9,
+0,
+0,
+0,
+0xB4AA,
+0,
+0xB4BB,
+0,
+0,
+0xE9AB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0A8,
+0,
+0,
+0xE9A5,
+0,
+0,
+0xB3FE,
+0,
+0,
+0xE9AC,
+0xC0E3,
+0,
+0xE9AA,
+0,
+0,
+0xE9B9,
+0,
+0,
+0xE9B8,
+0,
+0,
+0,
+0,
+0xE9AE,
+0,
+0,
+0xE8FA,
+0,
+0,
+0xE9A8,
+0,
+0,
+0,
+0,
+0,
+0xBFAC,
+0xE9B1,
+0xE9BA,
+0,
+0,
+0xC2A5,
+0,
+0,
+0,
+0xE9AF,
+0,
+0xB8C5,
+0,
+0xE9AD,
+0,
+0xD3DC,
+0xE9B4,
+0xE9B5,
+0xE9B7,
+0,
+0,
+0,
+0xE9C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC0C6,
+0xE9C5,
+0,
+0,
+0xE9B0,
+0,
+0,
+0xE9BB,
+0xB0F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9BC,
+0xD5A5,
+0,
+0,
+0xE9BE,
+0,
+0xE9BF,
+0,
+0,
+0,
+0xE9C1,
+0,
+0,
+0xC1F1,
+0,
+0,
+0xC8B6,
+0,
+0,
+0,
+0xE9BD,
+0,
+0,
+0,
+0,
+0,
+0xE9C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9C3,
+0,
+0xE9B3,
+0,
+0xE9B6,
+0,
+0xBBB1,
+0,
+0,
+0,
+0xE9C0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBCF7,
+0,
+0,
+0,
+0xE9C4,
+0xE9C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9CA,
+0,
+0,
+0,
+0,
+0xE9CE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB2DB,
+0,
+0xE9C8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB7AE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9CB,
+0xE9CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5C1,
+0,
+0xC4A3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9D8,
+0,
+0xBAE1,
+0,
+0,
+0,
+0,
+0xE9C9,
+0,
+0xD3A3,
+0,
+0,
+0,
+0xE9D4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9D7,
+0xE9D0,
+0,
+0,
+0,
+0,
+0,
+0xE9CF,
+0,
+0,
+0xC7C1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9D2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9D9,
+0xB3C8,
+0,
+0xE9D3,
+0,
+0,
+0,
+0,
+0,
+0xCFF0,
+0,
+0,
+0,
+0xE9CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB3F7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9D6,
+0,
+0,
+0xE9DA,
+0,
+0,
+0,
+0xCCB4,
+0,
+0,
+0,
+0xCFAD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9D5,
+0,
+0xE9DC,
+0xE9DB,
+0,
+0,
+0,
+0,
+0,
+0xE9DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9DD,
+0,
+0xE9DF,
+0xC3CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7B7,
+0xB4CE,
+0xBBB6,
+0xD0C0,
+0xECA3,
+0,
+0,
+0xC5B7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3FB,
+0,
+0,
+0,
+0,
+0xECA4,
+0,
+0xECA5,
+0xC6DB,
+0,
+0,
+0,
+0xBFEE,
+0,
+0,
+0,
+0,
+0xECA6,
+0,
+0,
+0xECA7,
+0xD0AA,
+0,
+0xC7B8,
+0,
+0,
+0xB8E8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECA8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6B9,
+0xD5FD,
+0xB4CB,
+0xB2BD,
+0xCEE4,
+0xC6E7,
+0,
+0,
+0xCDE1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB4F5,
+0,
+0xCBC0,
+0xBCDF,
+0,
+0,
+0,
+0,
+0xE9E2,
+0xE9E3,
+0xD1EA,
+0xE9E5,
+0,
+0xB4F9,
+0xE9E4,
+0,
+0xD1B3,
+0xCAE2,
+0xB2D0,
+0,
+0xE9E8,
+0,
+0,
+0,
+0,
+0xE9E6,
+0xE9E7,
+0,
+0,
+0xD6B3,
+0,
+0,
+0,
+0xE9E9,
+0xE9EA,
+0,
+0,
+0,
+0,
+0,
+0xE9EB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9EC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECAF,
+0xC5B9,
+0xB6CE,
+0,
+0xD2F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB5EE,
+0,
+0xBBD9,
+0xECB1,
+0,
+0,
+0xD2E3,
+0,
+0,
+0,
+0,
+0,
+0xCEE3,
+0,
+0xC4B8,
+0,
+0xC3BF,
+0,
+0,
+0xB6BE,
+0xD8B9,
+0xB1C8,
+0xB1CF,
+0xB1D1,
+0xC5FE,
+0,
+0xB1D0,
+0,
+0xC3AB,
+0,
+0,
+0,
+0,
+0,
+0xD5B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBA4,
+0xBAC1,
+0,
+0,
+0,
+0xCCBA,
+0,
+0,
+0,
+0xEBA5,
+0,
+0xEBA7,
+0,
+0,
+0,
+0xEBA8,
+0,
+0,
+0,
+0xEBA6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBA9,
+0xEBAB,
+0xEBAA,
+0,
+0,
+0,
+0,
+0,
+0xEBAC,
+0,
+0xCACF,
+0xD8B5,
+0xC3F1,
+0,
+0xC3A5,
+0xC6F8,
+0xEBAD,
+0xC4CA,
+0,
+0xEBAE,
+0xEBAF,
+0xEBB0,
+0xB7D5,
+0,
+0,
+0,
+0xB7FA,
+0,
+0xEBB1,
+0xC7E2,
+0,
+0xEBB3,
+0,
+0xBAA4,
+0xD1F5,
+0xB0B1,
+0xEBB2,
+0xEBB4,
+0,
+0,
+0,
+0xB5AA,
+0xC2C8,
+0xC7E8,
+0,
+0xEBB5,
+0,
+0xCBAE,
+0xE3DF,
+0,
+0,
+0xD3C0,
+0,
+0,
+0,
+0,
+0xD9DB,
+0,
+0,
+0xCDA1,
+0xD6AD,
+0xC7F3,
+0,
+0,
+0,
+0xD9E0,
+0xBBE3,
+0,
+0xBABA,
+0xE3E2,
+0,
+0,
+0,
+0,
+0,
+0xCFAB,
+0,
+0,
+0,
+0xE3E0,
+0xC9C7,
+0,
+0xBAB9,
+0,
+0,
+0,
+0xD1B4,
+0xE3E1,
+0xC8EA,
+0xB9AF,
+0xBDAD,
+0xB3D8,
+0xCEDB,
+0,
+0,
+0xCCC0,
+0,
+0,
+0,
+0xE3E8,
+0xE3E9,
+0xCDF4,
+0,
+0,
+0,
+0,
+0,
+0xCCAD,
+0,
+0xBCB3,
+0,
+0xE3EA,
+0,
+0xE3EB,
+0,
+0,
+0xD0DA,
+0,
+0,
+0,
+0xC6FB,
+0xB7DA,
+0,
+0,
+0xC7DF,
+0xD2CA,
+0xCED6,
+0,
+0xE3E4,
+0xE3EC,
+0,
+0xC9F2,
+0xB3C1,
+0,
+0,
+0xE3E7,
+0,
+0,
+0xC6E3,
+0xE3E5,
+0,
+0,
+0xEDB3,
+0xE3E6,
+0,
+0,
+0,
+0,
+0xC9B3,
+0,
+0xC5E6,
+0,
+0,
+0,
+0xB9B5,
+0,
+0xC3BB,
+0,
+0xE3E3,
+0xC5BD,
+0xC1A4,
+0xC2D9,
+0xB2D7,
+0,
+0xE3ED,
+0xBBA6,
+0xC4AD,
+0,
+0xE3F0,
+0xBEDA,
+0,
+0,
+0xE3FB,
+0xE3F5,
+0xBAD3,
+0,
+0,
+0,
+0,
+0xB7D0,
+0xD3CD,
+0,
+0xD6CE,
+0xD5D3,
+0xB9C1,
+0xD5B4,
+0xD1D8,
+0,
+0,
+0,
+0,
+0xD0B9,
+0xC7F6,
+0,
+0,
+0,
+0xC8AA,
+0xB2B4,
+0,
+0xC3DA,
+0,
+0,
+0,
+0xE3EE,
+0,
+0,
+0xE3FC,
+0xE3EF,
+0xB7A8,
+0xE3F7,
+0xE3F4,
+0,
+0,
+0,
+0xB7BA,
+0,
+0,
+0xC5A2,
+0,
+0xE3F6,
+0xC5DD,
+0xB2A8,
+0xC6FC,
+0,
+0xC4E0,
+0,
+0,
+0xD7A2,
+0,
+0xC0E1,
+0xE3F9,
+0,
+0,
+0xE3FA,
+0xE3FD,
+0xCCA9,
+0xE3F3,
+0,
+0xD3BE,
+0,
+0xB1C3,
+0xEDB4,
+0xE3F1,
+0xE3F2,
+0,
+0xE3F8,
+0xD0BA,
+0xC6C3,
+0xD4F3,
+0xE3FE,
+0,
+0,
+0xBDE0,
+0,
+0,
+0xE4A7,
+0,
+0,
+0xE4A6,
+0,
+0,
+0,
+0xD1F3,
+0xE4A3,
+0,
+0xE4A9,
+0,
+0,
+0,
+0xC8F7,
+0,
+0,
+0,
+0,
+0xCFB4,
+0,
+0xE4A8,
+0xE4AE,
+0xC2E5,
+0,
+0,
+0xB6B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBDF2,
+0,
+0xE4A2,
+0,
+0,
+0xBAE9,
+0xE4AA,
+0,
+0,
+0xE4AC,
+0,
+0,
+0xB6FD,
+0xD6DE,
+0xE4B2,
+0,
+0xE4AD,
+0,
+0,
+0,
+0xE4A1,
+0,
+0xBBEE,
+0xCDDD,
+0xC7A2,
+0xC5C9,
+0,
+0,
+0xC1F7,
+0,
+0xE4A4,
+0,
+0xC7B3,
+0xBDAC,
+0xBDBD,
+0xE4A5,
+0,
+0xD7C7,
+0xB2E2,
+0,
+0xE4AB,
+0xBCC3,
+0xE4AF,
+0,
+0xBBEB,
+0xE4B0,
+0xC5A8,
+0xE4B1,
+0,
+0,
+0,
+0,
+0xD5E3,
+0xBFA3,
+0,
+0xE4BA,
+0,
+0xE4B7,
+0,
+0xE4BB,
+0,
+0,
+0xE4BD,
+0,
+0,
+0xC6D6,
+0,
+0,
+0xBAC6,
+0xC0CB,
+0,
+0,
+0,
+0xB8A1,
+0xE4B4,
+0,
+0,
+0,
+0,
+0xD4A1,
+0,
+0,
+0xBAA3,
+0xBDFE,
+0,
+0,
+0,
+0xE4BC,
+0,
+0,
+0,
+0,
+0,
+0xCDBF,
+0,
+0,
+0xC4F9,
+0,
+0,
+0xCFFB,
+0xC9E6,
+0,
+0,
+0xD3BF,
+0,
+0xCFD1,
+0,
+0,
+0xE4B3,
+0,
+0xE4B8,
+0xE4B9,
+0xCCE9,
+0,
+0,
+0,
+0,
+0,
+0xCCCE,
+0,
+0xC0D4,
+0xE4B5,
+0xC1B0,
+0xE4B6,
+0xCED0,
+0,
+0xBBC1,
+0xB5D3,
+0,
+0xC8F3,
+0xBDA7,
+0xD5C7,
+0xC9AC,
+0xB8A2,
+0xE4CA,
+0,
+0,
+0xE4CC,
+0xD1C4,
+0,
+0,
+0xD2BA,
+0,
+0,
+0xBAAD,
+0,
+0,
+0xBAD4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4C3,
+0xB5ED,
+0,
+0,
+0,
+0xD7CD,
+0xE4C0,
+0xCFFD,
+0xE4BF,
+0,
+0,
+0,
+0xC1DC,
+0xCCCA,
+0,
+0,
+0,
+0,
+0xCAE7,
+0,
+0,
+0,
+0,
+0xC4D7,
+0,
+0xCCD4,
+0xE4C8,
+0,
+0,
+0,
+0xE4C7,
+0xE4C1,
+0,
+0xE4C4,
+0xB5AD,
+0,
+0,
+0xD3D9,
+0,
+0xE4C6,
+0,
+0,
+0,
+0,
+0xD2F9,
+0xB4E3,
+0,
+0xBBB4,
+0,
+0,
+0xC9EE,
+0,
+0xB4BE,
+0,
+0,
+0,
+0xBBEC,
+0,
+0xD1CD,
+0,
+0xCCED,
+0xEDB5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7E5,
+0,
+0,
+0,
+0,
+0xD4A8,
+0,
+0xE4CB,
+0xD7D5,
+0xE4C2,
+0,
+0xBDA5,
+0xE4C5,
+0,
+0,
+0xD3E6,
+0,
+0xE4C9,
+0xC9F8,
+0,
+0,
+0xE4BE,
+0,
+0,
+0xD3E5,
+0,
+0,
+0xC7FE,
+0xB6C9,
+0,
+0xD4FC,
+0xB2B3,
+0xE4D7,
+0,
+0,
+0,
+0xCEC2,
+0,
+0xE4CD,
+0,
+0xCEBC,
+0,
+0xB8DB,
+0,
+0,
+0xE4D6,
+0,
+0xBFCA,
+0,
+0,
+0,
+0xD3CE,
+0,
+0xC3EC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC5C8,
+0xE4D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDC4,
+0xE4CF,
+0,
+0,
+0,
+0,
+0xE4D4,
+0xE4D5,
+0,
+0xBAFE,
+0,
+0xCFE6,
+0,
+0,
+0xD5BF,
+0,
+0,
+0,
+0xE4D2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4D0,
+0,
+0,
+0xE4CE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDE5,
+0xCAAA,
+0,
+0,
+0,
+0xC0A3,
+0,
+0xBDA6,
+0xE4D3,
+0,
+0,
+0xB8C8,
+0,
+0,
+0,
+0,
+0,
+0xE4E7,
+0xD4B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4DB,
+0,
+0,
+0,
+0xC1EF,
+0,
+0,
+0xE4E9,
+0,
+0,
+0xD2E7,
+0,
+0,
+0xE4DF,
+0,
+0xE4E0,
+0,
+0,
+0xCFAA,
+0,
+0,
+0,
+0,
+0xCBDD,
+0,
+0xE4DA,
+0xE4D1,
+0,
+0xE4E5,
+0,
+0xC8DC,
+0xE4E3,
+0,
+0,
+0xC4E7,
+0xE4E2,
+0,
+0xE4E1,
+0,
+0,
+0,
+0xB3FC,
+0xE4E8,
+0,
+0,
+0,
+0,
+0xB5E1,
+0,
+0,
+0,
+0xD7CC,
+0,
+0,
+0,
+0xE4E6,
+0,
+0xBBAC,
+0,
+0xD7D2,
+0xCCCF,
+0xEBF8,
+0,
+0xE4E4,
+0,
+0,
+0xB9F6,
+0,
+0,
+0,
+0xD6CD,
+0xE4D9,
+0xE4DC,
+0xC2FA,
+0xE4DE,
+0,
+0xC2CB,
+0xC0C4,
+0xC2D0,
+0,
+0xB1F5,
+0xCCB2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB5CE,
+0,
+0,
+0,
+0,
+0xE4EF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC6AF,
+0,
+0,
+0,
+0xC6E1,
+0,
+0,
+0xE4F5,
+0,
+0,
+0,
+0,
+0,
+0xC2A9,
+0,
+0,
+0,
+0xC0EC,
+0xD1DD,
+0xE4EE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC4AE,
+0,
+0,
+0,
+0xE4ED,
+0,
+0,
+0,
+0,
+0xE4F6,
+0xE4F4,
+0xC2FE,
+0,
+0xE4DD,
+0,
+0xE4F0,
+0,
+0xCAFE,
+0,
+0xD5C4,
+0,
+0,
+0xE4F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1FA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4EB,
+0xE4EC,
+0,
+0,
+0,
+0xE4F2,
+0,
+0xCEAB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC5CB,
+0,
+0,
+0,
+0xC7B1,
+0,
+0xC2BA,
+0,
+0,
+0,
+0xE4EA,
+0,
+0,
+0,
+0xC1CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCB6,
+0xB3B1,
+0,
+0,
+0,
+0xE4FB,
+0,
+0xE4F3,
+0,
+0,
+0,
+0xE4FA,
+0,
+0xE4FD,
+0,
+0xE4FC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB3CE,
+0,
+0,
+0,
+0xB3BA,
+0xE4F7,
+0,
+0,
+0xE4F9,
+0xE4F8,
+0xC5EC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC0BD,
+0,
+0,
+0,
+0,
+0xD4E8,
+0,
+0,
+0,
+0,
+0,
+0xE5A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB0C4,
+0,
+0,
+0xE5A4,
+0,
+0,
+0xE5A3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBCA4,
+0,
+0xE5A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4FE,
+0xB1F4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5A8,
+0,
+0xE5A9,
+0xE5A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5A7,
+0xE5AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC6D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5AB,
+0xE5AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5AC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5AF,
+0,
+0,
+0,
+0xE5AE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB9E0,
+0,
+0,
+0xE5B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBBF0,
+0xECE1,
+0xC3F0,
+0,
+0xB5C6,
+0xBBD2,
+0,
+0,
+0,
+0,
+0xC1E9,
+0xD4EE,
+0,
+0xBEC4,
+0,
+0,
+0,
+0xD7C6,
+0,
+0xD4D6,
+0xB2D3,
+0xECBE,
+0,
+0,
+0,
+0,
+0xEAC1,
+0,
+0,
+0,
+0xC2AF,
+0xB4B6,
+0,
+0,
+0,
+0xD1D7,
+0,
+0,
+0,
+0xB3B4,
+0,
+0xC8B2,
+0xBFBB,
+0xECC0,
+0,
+0,
+0xD6CB,
+0,
+0,
+0xECBF,
+0xECC1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECC5,
+0xBEE6,
+0xCCBF,
+0xC5DA,
+0xBEBC,
+0,
+0xECC6,
+0,
+0xB1FE,
+0,
+0,
+0,
+0xECC4,
+0xD5A8,
+0xB5E3,
+0,
+0xECC2,
+0xC1B6,
+0xB3E3,
+0,
+0,
+0xECC3,
+0xCBB8,
+0xC0C3,
+0xCCFE,
+0,
+0,
+0,
+0,
+0xC1D2,
+0,
+0xECC8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBAE6,
+0xC0D3,
+0,
+0xD6F2,
+0,
+0,
+0,
+0xD1CC,
+0,
+0,
+0,
+0,
+0xBFBE,
+0,
+0xB7B3,
+0xC9D5,
+0xECC7,
+0xBBE2,
+0,
+0xCCCC,
+0xBDFD,
+0xC8C8,
+0,
+0xCFA9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDE9,
+0,
+0xC5EB,
+0,
+0,
+0,
+0xB7E9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1C9,
+0xBAB8,
+0,
+0,
+0,
+0,
+0,
+0xECC9,
+0,
+0,
+0xECCA,
+0,
+0xBBC0,
+0xECCB,
+0,
+0xECE2,
+0xB1BA,
+0xB7D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBDB9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECCC,
+0xD1E6,
+0xECCD,
+0,
+0,
+0,
+0,
+0xC8BB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECD1,
+0,
+0,
+0,
+0,
+0xECD3,
+0,
+0xBBCD,
+0,
+0xBCE5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECCF,
+0,
+0xC9B7,
+0,
+0,
+0,
+0,
+0,
+0xC3BA,
+0,
+0xECE3,
+0xD5D5,
+0xECD0,
+0,
+0,
+0,
+0,
+0,
+0xD6F3,
+0,
+0,
+0,
+0xECD2,
+0xECCE,
+0,
+0,
+0,
+0,
+0xECD4,
+0,
+0xECD5,
+0,
+0,
+0xC9BF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFA8,
+0,
+0,
+0,
+0,
+0,
+0xD0DC,
+0,
+0,
+0,
+0,
+0xD1AC,
+0,
+0,
+0,
+0,
+0xC8DB,
+0,
+0,
+0,
+0xECD6,
+0xCEF5,
+0,
+0,
+0,
+0,
+0,
+0xCAEC,
+0xECDA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECD9,
+0,
+0,
+0,
+0xB0BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECD7,
+0,
+0xECD8,
+0,
+0,
+0,
+0xECE4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC8BC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC1C7,
+0,
+0,
+0,
+0,
+0,
+0xECDC,
+0xD1E0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECDB,
+0,
+0,
+0,
+0,
+0xD4EF,
+0,
+0xECDD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBC6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECDE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB1AC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECDF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECE0,
+0,
+0xD7A6,
+0,
+0xC5C0,
+0,
+0,
+0,
+0xEBBC,
+0xB0AE,
+0,
+0,
+0,
+0xBEF4,
+0xB8B8,
+0xD2AF,
+0xB0D6,
+0xB5F9,
+0,
+0xD8B3,
+0,
+0xCBAC,
+0,
+0xE3DD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC6AC,
+0xB0E6,
+0,
+0,
+0,
+0xC5C6,
+0xEBB9,
+0,
+0,
+0,
+0,
+0xEBBA,
+0,
+0,
+0,
+0xEBBB,
+0,
+0,
+0xD1C0,
+0,
+0xC5A3,
+0,
+0xEAF2,
+0,
+0xC4B2,
+0,
+0xC4B5,
+0xC0CE,
+0,
+0,
+0,
+0xEAF3,
+0xC4C1,
+0,
+0xCEEF,
+0,
+0,
+0,
+0,
+0xEAF0,
+0xEAF4,
+0,
+0,
+0xC9FC,
+0,
+0,
+0xC7A3,
+0,
+0,
+0,
+0xCCD8,
+0xCEFE,
+0,
+0,
+0,
+0xEAF5,
+0xEAF6,
+0xCFAC,
+0xC0E7,
+0,
+0,
+0xEAF7,
+0,
+0,
+0,
+0,
+0,
+0xB6BF,
+0xEAF8,
+0,
+0xEAF9,
+0,
+0xEAFA,
+0,
+0,
+0xEAFB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAF1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC8AE,
+0xE1EB,
+0,
+0xB7B8,
+0xE1EC,
+0,
+0,
+0,
+0xE1ED,
+0,
+0xD7B4,
+0xE1EE,
+0xE1EF,
+0xD3CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1F1,
+0xBFF1,
+0xE1F0,
+0xB5D2,
+0,
+0,
+0,
+0xB1B7,
+0,
+0,
+0,
+0,
+0xE1F3,
+0xE1F2,
+0,
+0xBAFC,
+0,
+0xE1F4,
+0,
+0,
+0,
+0,
+0xB9B7,
+0,
+0xBED1,
+0,
+0,
+0,
+0,
+0xC4FC,
+0,
+0xBADD,
+0xBDC6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1F5,
+0xE1F7,
+0,
+0,
+0xB6C0,
+0xCFC1,
+0xCAA8,
+0xE1F6,
+0xD5F8,
+0xD3FC,
+0xE1F8,
+0xE1FC,
+0xE1F9,
+0,
+0,
+0xE1FA,
+0xC0EA,
+0,
+0xE1FE,
+0xE2A1,
+0xC0C7,
+0,
+0,
+0,
+0,
+0xE1FB,
+0,
+0xE1FD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2A5,
+0,
+0,
+0,
+0xC1D4,
+0,
+0,
+0,
+0,
+0xE2A3,
+0,
+0xE2A8,
+0xB2FE,
+0xE2A2,
+0,
+0,
+0,
+0xC3CD,
+0xB2C2,
+0xE2A7,
+0xE2A6,
+0,
+0,
+0xE2A4,
+0xE2A9,
+0,
+0,
+0xE2AB,
+0,
+0,
+0,
+0xD0C9,
+0xD6ED,
+0xC3A8,
+0xE2AC,
+0,
+0xCFD7,
+0,
+0,
+0xE2AE,
+0,
+0,
+0xBAEF,
+0,
+0,
+0xE9E0,
+0xE2AD,
+0xE2AA,
+0,
+0,
+0,
+0,
+0xBBAB,
+0xD4B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2B0,
+0,
+0,
+0xE2AF,
+0,
+0xE9E1,
+0,
+0,
+0,
+0,
+0xE2B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2B3,
+0xCCA1,
+0,
+0xE2B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2B5,
+0,
+0,
+0,
+0,
+0,
+0xD0FE,
+0,
+0,
+0xC2CA,
+0,
+0xD3F1,
+0,
+0xCDF5,
+0,
+0,
+0xE7E0,
+0,
+0,
+0xE7E1,
+0,
+0,
+0,
+0,
+0xBEC1,
+0,
+0,
+0,
+0,
+0xC2EA,
+0,
+0,
+0,
+0xE7E4,
+0,
+0,
+0xE7E3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDE6,
+0,
+0xC3B5,
+0,
+0,
+0xE7E2,
+0xBBB7,
+0xCFD6,
+0,
+0xC1E1,
+0xE7E9,
+0,
+0,
+0,
+0xE7E8,
+0,
+0,
+0xE7F4,
+0xB2A3,
+0,
+0,
+0,
+0,
+0xE7EA,
+0,
+0xE7E6,
+0,
+0,
+0,
+0,
+0,
+0xE7EC,
+0xE7EB,
+0xC9BA,
+0,
+0,
+0xD5E4,
+0,
+0xE7E5,
+0xB7A9,
+0xE7E7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7EE,
+0,
+0,
+0,
+0,
+0xE7F3,
+0,
+0xD6E9,
+0,
+0,
+0,
+0,
+0xE7ED,
+0,
+0xE7F2,
+0,
+0xE7F1,
+0,
+0,
+0,
+0xB0E0,
+0,
+0,
+0,
+0,
+0xE7F5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7F2,
+0,
+0xC0C5,
+0xC0ED,
+0,
+0,
+0xC1F0,
+0xE7F0,
+0,
+0,
+0,
+0,
+0xE7F6,
+0xCBF6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8A2,
+0xE8A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7C1,
+0,
+0,
+0xE7FA,
+0xE7F9,
+0,
+0xE7FB,
+0,
+0xE7F7,
+0,
+0xE7FE,
+0,
+0xE7FD,
+0,
+0xE7FC,
+0,
+0,
+0xC1D5,
+0xC7D9,
+0xC5FD,
+0xC5C3,
+0,
+0,
+0,
+0,
+0,
+0xC7ED,
+0,
+0,
+0,
+0,
+0xE8A3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8A6,
+0,
+0xE8A5,
+0,
+0xE8A7,
+0xBAF7,
+0xE7F8,
+0xE8A4,
+0,
+0xC8F0,
+0xC9AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8A9,
+0,
+0,
+0xB9E5,
+0,
+0,
+0,
+0,
+0,
+0xD1FE,
+0xE8A8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8AA,
+0,
+0xE8AD,
+0xE8AE,
+0,
+0xC1A7,
+0,
+0,
+0,
+0xE8AF,
+0,
+0,
+0,
+0xE8B0,
+0,
+0,
+0xE8AC,
+0,
+0xE8B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8AB,
+0,
+0xE8B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8B5,
+0xE8B2,
+0xE8B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8B7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8B6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB9CF,
+0,
+0xF0AC,
+0,
+0xF0AD,
+0,
+0xC6B0,
+0xB0EA,
+0xC8BF,
+0,
+0xCDDF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCECD,
+0xEAB1,
+0,
+0,
+0,
+0,
+0xEAB2,
+0,
+0xC6BF,
+0xB4C9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAB3,
+0,
+0,
+0,
+0,
+0xD5E7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDF9,
+0,
+0xEAB4,
+0,
+0xEAB5,
+0,
+0xEAB6,
+0,
+0,
+0,
+0,
+0xB8CA,
+0xDFB0,
+0xC9F5,
+0,
+0xCCF0,
+0,
+0,
+0xC9FA,
+0,
+0,
+0,
+0,
+0,
+0xC9FB,
+0,
+0,
+0xD3C3,
+0xCBA6,
+0,
+0xB8A6,
+0xF0AE,
+0xB1C2,
+0,
+0xE5B8,
+0xCCEF,
+0xD3C9,
+0xBCD7,
+0xC9EA,
+0,
+0xB5E7,
+0,
+0xC4D0,
+0xB5E9,
+0,
+0xEEAE,
+0xBBAD,
+0,
+0,
+0xE7DE,
+0,
+0xEEAF,
+0,
+0,
+0,
+0,
+0xB3A9,
+0,
+0,
+0xEEB2,
+0,
+0,
+0xEEB1,
+0xBDE7,
+0,
+0xEEB0,
+0xCEB7,
+0,
+0,
+0,
+0,
+0xC5CF,
+0,
+0,
+0,
+0,
+0xC1F4,
+0xDBCE,
+0xEEB3,
+0xD0F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC2D4,
+0xC6E8,
+0,
+0,
+0,
+0xB7AC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEB4,
+0,
+0xB3EB,
+0,
+0,
+0,
+0xBBFB,
+0xEEB5,
+0,
+0,
+0,
+0,
+0,
+0xE7DC,
+0,
+0,
+0,
+0xEEB6,
+0,
+0,
+0xBDAE,
+0,
+0,
+0,
+0,
+0xF1E2,
+0,
+0,
+0,
+0xCAE8,
+0,
+0xD2C9,
+0xF0DA,
+0,
+0xF0DB,
+0,
+0xF0DC,
+0xC1C6,
+0,
+0xB8ED,
+0xBECE,
+0,
+0,
+0xF0DE,
+0,
+0xC5B1,
+0xF0DD,
+0xD1F1,
+0,
+0xF0E0,
+0xB0CC,
+0xBDEA,
+0,
+0,
+0,
+0,
+0,
+0xD2DF,
+0xF0DF,
+0,
+0xB4AF,
+0xB7E8,
+0xF0E6,
+0xF0E5,
+0xC6A3,
+0xF0E1,
+0xF0E2,
+0xB4C3,
+0,
+0,
+0xF0E3,
+0xD5EE,
+0,
+0,
+0xCCDB,
+0xBED2,
+0xBCB2,
+0,
+0,
+0,
+0xF0E8,
+0xF0E7,
+0xF0E4,
+0xB2A1,
+0,
+0xD6A2,
+0xD3B8,
+0xBEB7,
+0xC8AC,
+0,
+0,
+0xF0EA,
+0,
+0,
+0,
+0,
+0xD1F7,
+0,
+0xD6CC,
+0xBADB,
+0xF0E9,
+0,
+0xB6BB,
+0,
+0,
+0xCDB4,
+0,
+0,
+0xC6A6,
+0,
+0,
+0,
+0xC1A1,
+0xF0EB,
+0xF0EE,
+0,
+0xF0ED,
+0xF0F0,
+0xF0EC,
+0,
+0xBBBE,
+0xF0EF,
+0,
+0,
+0,
+0,
+0xCCB5,
+0xF0F2,
+0,
+0,
+0xB3D5,
+0,
+0,
+0,
+0,
+0xB1D4,
+0,
+0,
+0xF0F3,
+0,
+0,
+0xF0F4,
+0xF0F6,
+0xB4E1,
+0,
+0xF0F1,
+0,
+0xF0F7,
+0,
+0,
+0,
+0,
+0xF0FA,
+0,
+0xF0F8,
+0,
+0,
+0,
+0xF0F5,
+0,
+0,
+0,
+0,
+0xF0FD,
+0,
+0xF0F9,
+0xF0FC,
+0xF0FE,
+0,
+0xF1A1,
+0,
+0,
+0,
+0xCEC1,
+0xF1A4,
+0,
+0xF1A3,
+0,
+0xC1F6,
+0xF0FB,
+0xCADD,
+0,
+0,
+0xB4F1,
+0xB1F1,
+0xCCB1,
+0,
+0xF1A6,
+0,
+0,
+0xF1A7,
+0,
+0,
+0xF1AC,
+0xD5CE,
+0xF1A9,
+0,
+0,
+0xC8B3,
+0,
+0,
+0,
+0xF1A2,
+0,
+0xF1AB,
+0xF1A8,
+0xF1A5,
+0,
+0,
+0xF1AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB0A9,
+0xF1AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1AF,
+0,
+0xF1B1,
+0,
+0,
+0,
+0,
+0,
+0xF1B0,
+0,
+0xF1AE,
+0,
+0,
+0,
+0,
+0xD1A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1B2,
+0,
+0,
+0,
+0xF1B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB9EF,
+0,
+0,
+0xB5C7,
+0,
+0xB0D7,
+0xB0D9,
+0,
+0,
+0,
+0xD4ED,
+0,
+0xB5C4,
+0,
+0xBDD4,
+0xBBCA,
+0xF0A7,
+0,
+0,
+0xB8DE,
+0,
+0,
+0xF0A8,
+0,
+0,
+0xB0A8,
+0,
+0xF0A9,
+0,
+0,
+0xCDEE,
+0,
+0,
+0xF0AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0AB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC6A4,
+0,
+0,
+0xD6E5,
+0xF1E4,
+0,
+0xF1E5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC3F3,
+0,
+0,
+0xD3DB,
+0,
+0,
+0xD6D1,
+0xC5E8,
+0,
+0xD3AF,
+0,
+0xD2E6,
+0,
+0,
+0xEEC1,
+0xB0BB,
+0xD5B5,
+0xD1CE,
+0xBCE0,
+0xBAD0,
+0,
+0xBFF8,
+0,
+0xB8C7,
+0xB5C1,
+0xC5CC,
+0,
+0,
+0xCAA2,
+0,
+0,
+0,
+0xC3CB,
+0,
+0,
+0,
+0,
+0,
+0xEEC2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC4BF,
+0xB6A2,
+0,
+0xEDEC,
+0xC3A4,
+0,
+0xD6B1,
+0,
+0,
+0,
+0xCFE0,
+0xEDEF,
+0,
+0,
+0xC5CE,
+0,
+0xB6DC,
+0,
+0,
+0xCAA1,
+0,
+0,
+0xEDED,
+0,
+0,
+0xEDF0,
+0xEDF1,
+0xC3BC,
+0,
+0xBFB4,
+0,
+0xEDEE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDF4,
+0xEDF2,
+0,
+0,
+0,
+0,
+0xD5E6,
+0xC3DF,
+0,
+0xEDF3,
+0,
+0,
+0,
+0xEDF6,
+0,
+0xD5A3,
+0xD1A3,
+0,
+0,
+0,
+0xEDF5,
+0,
+0xC3D0,
+0,
+0,
+0,
+0,
+0,
+0xEDF7,
+0xBFF4,
+0xBEEC,
+0xEDF8,
+0,
+0xCCF7,
+0,
+0xD1DB,
+0,
+0,
+0,
+0xD7C5,
+0xD5F6,
+0,
+0xEDFC,
+0,
+0,
+0,
+0xEDFB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDF9,
+0xEDFA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDFD,
+0xBEA6,
+0,
+0,
+0,
+0,
+0,
+0xCBAF,
+0xEEA1,
+0xB6BD,
+0,
+0xEEA2,
+0xC4C0,
+0,
+0xEDFE,
+0,
+0,
+0xBDDE,
+0xB2C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB6C3,
+0,
+0,
+0,
+0xEEA5,
+0xD8BA,
+0xEEA3,
+0xEEA6,
+0,
+0,
+0,
+0xC3E9,
+0xB3F2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEA7,
+0xEEA4,
+0xCFB9,
+0,
+0,
+0xEEA8,
+0xC2F7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEA9,
+0xEEAA,
+0,
+0xDEAB,
+0,
+0,
+0xC6B3,
+0,
+0xC7C6,
+0,
+0xD6F5,
+0xB5C9,
+0,
+0xCBB2,
+0,
+0,
+0,
+0xEEAB,
+0,
+0,
+0xCDAB,
+0,
+0xEEAC,
+0,
+0,
+0,
+0,
+0,
+0xD5B0,
+0,
+0xEEAD,
+0,
+0xF6C4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBC7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB4A3,
+0,
+0,
+0,
+0xC3AC,
+0xF1E6,
+0,
+0,
+0,
+0,
+0,
+0xCAB8,
+0xD2D3,
+0,
+0xD6AA,
+0,
+0xEFF2,
+0,
+0xBED8,
+0,
+0xBDC3,
+0xEFF3,
+0xB6CC,
+0xB0AB,
+0,
+0,
+0,
+0,
+0xCAAF,
+0,
+0,
+0xEDB6,
+0,
+0xEDB7,
+0,
+0,
+0,
+0,
+0xCEF9,
+0xB7AF,
+0xBFF3,
+0xEDB8,
+0xC2EB,
+0xC9B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDB9,
+0,
+0,
+0xC6F6,
+0xBFB3,
+0,
+0,
+0,
+0xEDBC,
+0xC5F8,
+0,
+0xD1D0,
+0,
+0xD7A9,
+0xEDBA,
+0xEDBB,
+0,
+0xD1E2,
+0,
+0xEDBF,
+0xEDC0,
+0,
+0xEDC4,
+0,
+0,
+0,
+0xEDC8,
+0,
+0xEDC6,
+0xEDCE,
+0xD5E8,
+0,
+0xEDC9,
+0,
+0,
+0xEDC7,
+0xEDBE,
+0,
+0,
+0xC5E9,
+0,
+0,
+0,
+0xC6C6,
+0,
+0,
+0xC9E9,
+0xD4D2,
+0xEDC1,
+0xEDC2,
+0xEDC3,
+0xEDC5,
+0,
+0xC0F9,
+0,
+0xB4A1,
+0,
+0,
+0,
+0,
+0xB9E8,
+0,
+0xEDD0,
+0,
+0,
+0,
+0,
+0xEDD1,
+0,
+0xEDCA,
+0,
+0xEDCF,
+0,
+0xCEF8,
+0,
+0,
+0xCBB6,
+0xEDCC,
+0xEDCD,
+0,
+0,
+0,
+0,
+0,
+0xCFF5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDD2,
+0xC1F2,
+0xD3B2,
+0xEDCB,
+0xC8B7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBCEF,
+0,
+0,
+0,
+0,
+0xC5F0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDD6,
+0,
+0xB5EF,
+0,
+0,
+0xC2B5,
+0xB0AD,
+0xCBE9,
+0,
+0,
+0xB1AE,
+0,
+0xEDD4,
+0,
+0,
+0,
+0xCDEB,
+0xB5E2,
+0,
+0xEDD5,
+0xEDD3,
+0xEDD7,
+0,
+0,
+0xB5FA,
+0,
+0xEDD8,
+0,
+0xEDD9,
+0,
+0xEDDC,
+0,
+0xB1CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC5F6,
+0xBCEE,
+0xEDDA,
+0xCCBC,
+0xB2EA,
+0,
+0,
+0,
+0,
+0xEDDB,
+0,
+0,
+0,
+0,
+0xC4EB,
+0,
+0,
+0xB4C5,
+0,
+0,
+0,
+0xB0F5,
+0,
+0,
+0,
+0xEDDF,
+0xC0DA,
+0xB4E8,
+0,
+0,
+0,
+0,
+0xC5CD,
+0,
+0,
+0,
+0xEDDD,
+0xBFC4,
+0,
+0,
+0,
+0xEDDE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC4A5,
+0,
+0,
+0,
+0xEDE0,
+0,
+0,
+0,
+0,
+0,
+0xEDE1,
+0,
+0xEDE3,
+0,
+0,
+0xC1D7,
+0,
+0,
+0xBBC7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBDB8,
+0,
+0,
+0,
+0xEDE2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDE4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDE6,
+0,
+0,
+0,
+0,
+0,
+0xEDE5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDE7,
+0,
+0,
+0,
+0,
+0,
+0xCABE,
+0xECEA,
+0xC0F1,
+0,
+0xC9E7,
+0,
+0xECEB,
+0xC6EE,
+0,
+0,
+0,
+0,
+0xECEC,
+0,
+0xC6ED,
+0xECED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECF0,
+0,
+0,
+0xD7E6,
+0xECF3,
+0,
+0,
+0xECF1,
+0xECEE,
+0xECEF,
+0xD7A3,
+0xC9F1,
+0xCBEE,
+0xECF4,
+0,
+0xECF2,
+0,
+0,
+0xCFE9,
+0,
+0xECF6,
+0xC6B1,
+0,
+0,
+0,
+0,
+0xBCC0,
+0,
+0xECF5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB5BB,
+0xBBF6,
+0,
+0xECF7,
+0,
+0,
+0,
+0,
+0,
+0xD9F7,
+0xBDFB,
+0,
+0,
+0xC2BB,
+0xECF8,
+0,
+0,
+0,
+0,
+0xECF9,
+0,
+0,
+0,
+0,
+0xB8A3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECFA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECFB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECFC,
+0,
+0,
+0,
+0,
+0,
+0xD3ED,
+0xD8AE,
+0xC0EB,
+0,
+0xC7DD,
+0xBACC,
+0,
+0xD0E3,
+0xCBBD,
+0,
+0xCDBA,
+0,
+0,
+0xB8D1,
+0,
+0,
+0xB1FC,
+0,
+0xC7EF,
+0,
+0xD6D6,
+0,
+0,
+0,
+0xBFC6,
+0xC3EB,
+0,
+0,
+0xEFF5,
+0,
+0,
+0xC3D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7E2,
+0,
+0,
+0,
+0xEFF7,
+0xB3D3,
+0,
+0xC7D8,
+0xD1ED,
+0,
+0xD6C8,
+0,
+0xEFF8,
+0,
+0xEFF6,
+0,
+0xBBFD,
+0xB3C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBDD5,
+0,
+0,
+0xD2C6,
+0,
+0xBBE0,
+0,
+0,
+0xCFA1,
+0,
+0xEFFC,
+0xEFFB,
+0,
+0,
+0xEFF9,
+0,
+0,
+0,
+0,
+0xB3CC,
+0,
+0xC9D4,
+0xCBB0,
+0,
+0,
+0,
+0,
+0,
+0xEFFE,
+0,
+0,
+0xB0DE,
+0,
+0,
+0xD6C9,
+0,
+0,
+0,
+0xEFFD,
+0,
+0xB3ED,
+0,
+0,
+0xF6D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEC8,
+0,
+0,
+0,
+0xF0A2,
+0,
+0xF0A1,
+0,
+0xB5BE,
+0xBCDA,
+0xBBFC,
+0,
+0xB8E5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC4C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0A3,
+0,
+0,
+0,
+0,
+0,
+0xCBEB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0A6,
+0,
+0,
+0,
+0xD1A8,
+0,
+0xBEBF,
+0xC7EE,
+0xF1B6,
+0xF1B7,
+0xBFD5,
+0,
+0,
+0,
+0,
+0xB4A9,
+0xF1B8,
+0xCDBB,
+0,
+0xC7D4,
+0xD5AD,
+0,
+0xF1B9,
+0,
+0xF1BA,
+0,
+0,
+0,
+0,
+0xC7CF,
+0,
+0,
+0,
+0xD2A4,
+0xD6CF,
+0,
+0,
+0xF1BB,
+0xBDD1,
+0xB4B0,
+0xBEBD,
+0,
+0,
+0,
+0xB4DC,
+0xCED1,
+0,
+0xBFDF,
+0xF1BD,
+0,
+0,
+0,
+0,
+0xBFFA,
+0xF1BC,
+0,
+0xF1BF,
+0,
+0,
+0,
+0xF1BE,
+0xF1C0,
+0,
+0,
+0,
+0,
+0,
+0xF1C1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC1FE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC1A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAFA,
+0,
+0,
+0xD5BE,
+0,
+0,
+0,
+0,
+0xBEBA,
+0xBEB9,
+0xD5C2,
+0,
+0,
+0xBFA2,
+0,
+0xCDAF,
+0xF1B5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBDDF,
+0,
+0xB6CB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6F1,
+0xF3C3,
+0,
+0,
+0xF3C4,
+0,
+0xB8CD,
+0,
+0,
+0,
+0xF3C6,
+0xF3C7,
+0,
+0xB0CA,
+0,
+0xF3C5,
+0,
+0xF3C9,
+0xCBF1,
+0,
+0,
+0,
+0xF3CB,
+0,
+0xD0A6,
+0,
+0,
+0xB1CA,
+0xF3C8,
+0,
+0,
+0,
+0xF3CF,
+0,
+0xB5D1,
+0,
+0,
+0xF3D7,
+0,
+0xF3D2,
+0,
+0,
+0,
+0xF3D4,
+0xF3D3,
+0xB7FB,
+0,
+0xB1BF,
+0,
+0xF3CE,
+0xF3CA,
+0xB5DA,
+0,
+0xF3D0,
+0,
+0,
+0xF3D1,
+0,
+0xF3D5,
+0,
+0,
+0,
+0,
+0xF3CD,
+0,
+0xBCE3,
+0,
+0xC1FD,
+0,
+0xF3D6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3DA,
+0,
+0xF3CC,
+0,
+0xB5C8,
+0,
+0xBDEE,
+0xF3DC,
+0,
+0,
+0xB7A4,
+0xBFF0,
+0xD6FE,
+0xCDB2,
+0,
+0xB4F0,
+0,
+0xB2DF,
+0,
+0xF3D8,
+0,
+0xF3D9,
+0xC9B8,
+0,
+0xF3DD,
+0,
+0,
+0xF3DE,
+0,
+0xF3E1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3DF,
+0,
+0,
+0xF3E3,
+0xF3E2,
+0,
+0,
+0xF3DB,
+0,
+0xBFEA,
+0,
+0xB3EF,
+0,
+0xF3E0,
+0,
+0,
+0xC7A9,
+0,
+0xBCF2,
+0,
+0,
+0,
+0,
+0xF3EB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB9BF,
+0,
+0,
+0xF3E4,
+0,
+0,
+0,
+0xB2AD,
+0xBBFE,
+0,
+0xCBE3,
+0,
+0,
+0,
+0,
+0xF3ED,
+0xF3E9,
+0,
+0,
+0,
+0xB9DC,
+0xF3EE,
+0,
+0,
+0,
+0xF3E5,
+0xF3E6,
+0xF3EA,
+0xC2E1,
+0xF3EC,
+0xF3EF,
+0xF3E8,
+0xBCFD,
+0,
+0,
+0,
+0xCFE4,
+0,
+0,
+0xF3F0,
+0,
+0,
+0,
+0xF3E7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3F2,
+0,
+0,
+0,
+0,
+0xD7AD,
+0xC6AA,
+0,
+0,
+0,
+0,
+0xF3F3,
+0,
+0,
+0,
+0,
+0xF3F1,
+0,
+0xC2A8,
+0,
+0,
+0,
+0,
+0,
+0xB8DD,
+0xF3F5,
+0,
+0,
+0xF3F4,
+0,
+0,
+0,
+0xB4DB,
+0,
+0,
+0,
+0xF3F6,
+0xF3F7,
+0,
+0,
+0,
+0xF3F8,
+0,
+0,
+0,
+0xC0BA,
+0,
+0,
+0xC0E9,
+0,
+0,
+0,
+0,
+0,
+0xC5F1,
+0,
+0,
+0,
+0,
+0xF3FB,
+0,
+0xF3FA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB4D8,
+0,
+0,
+0,
+0xF3FE,
+0xF3F9,
+0,
+0,
+0xF3FC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3FD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4A3,
+0xBBC9,
+0,
+0,
+0xF4A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB2BE,
+0xF4A6,
+0xF4A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBCAE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC3D7,
+0xD9E1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC0E0,
+0xF4CC,
+0xD7D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB7DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4CE,
+0xC1A3,
+0,
+0,
+0xC6C9,
+0,
+0xB4D6,
+0xD5B3,
+0,
+0,
+0,
+0xF4D0,
+0xF4CF,
+0xF4D1,
+0xCBDA,
+0,
+0,
+0xF4D2,
+0,
+0xD4C1,
+0xD6E0,
+0,
+0,
+0,
+0,
+0xB7E0,
+0,
+0,
+0,
+0xC1B8,
+0,
+0,
+0xC1BB,
+0xF4D3,
+0xBEAC,
+0,
+0,
+0,
+0,
+0,
+0xB4E2,
+0,
+0,
+0xF4D4,
+0xF4D5,
+0xBEAB,
+0,
+0,
+0xF4D6,
+0,
+0,
+0,
+0xF4DB,
+0,
+0xF4D7,
+0xF4DA,
+0,
+0xBAFD,
+0,
+0xF4D8,
+0xF4D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB8E2,
+0xCCC7,
+0xF4DC,
+0,
+0xB2DA,
+0,
+0,
+0xC3D3,
+0,
+0,
+0xD4E3,
+0xBFB7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4DD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC5B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4E9,
+0,
+0,
+0xCFB5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEC9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBD8,
+0,
+0xCBF7,
+0,
+0,
+0,
+0,
+0xBDF4,
+0,
+0,
+0,
+0xD7CF,
+0,
+0,
+0,
+0xC0DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0F5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4EB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4EC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7E3,
+0,
+0,
+0,
+0,
+0,
+0xB7B1,
+0,
+0,
+0,
+0,
+0,
+0xF4ED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7EB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4EE,
+0,
+0,
+0,
+0xE6F9,
+0xBEC0,
+0xE6FA,
+0xBAEC,
+0xE6FB,
+0xCFCB,
+0xE6FC,
+0xD4BC,
+0xBCB6,
+0xE6FD,
+0xE6FE,
+0xBCCD,
+0xC8D2,
+0xCEB3,
+0xE7A1,
+0,
+0xB4BF,
+0xE7A2,
+0xC9B4,
+0xB8D9,
+0xC4C9,
+0,
+0xD7DD,
+0xC2DA,
+0xB7D7,
+0xD6BD,
+0xCEC6,
+0xB7C4,
+0,
+0,
+0xC5A6,
+0xE7A3,
+0xCFDF,
+0xE7A4,
+0xE7A5,
+0xE7A6,
+0xC1B7,
+0xD7E9,
+0xC9F0,
+0xCFB8,
+0xD6AF,
+0xD6D5,
+0xE7A7,
+0xB0ED,
+0xE7A8,
+0xE7A9,
+0xC9DC,
+0xD2EF,
+0xBEAD,
+0xE7AA,
+0xB0F3,
+0xC8DE,
+0xBDE1,
+0xE7AB,
+0xC8C6,
+0,
+0xE7AC,
+0xBBE6,
+0xB8F8,
+0xD1A4,
+0xE7AD,
+0xC2E7,
+0xBEF8,
+0xBDCA,
+0xCDB3,
+0xE7AE,
+0xE7AF,
+0xBEEE,
+0xD0E5,
+0,
+0xCBE7,
+0xCCD0,
+0xBCCC,
+0xE7B0,
+0xBCA8,
+0xD0F7,
+0xE7B1,
+0,
+0xD0F8,
+0xE7B2,
+0xE7B3,
+0xB4C2,
+0xE7B4,
+0xE7B5,
+0xC9FE,
+0xCEAC,
+0xC3E0,
+0xE7B7,
+0xB1C1,
+0xB3F1,
+0,
+0xE7B8,
+0xE7B9,
+0xD7DB,
+0xD5C0,
+0xE7BA,
+0xC2CC,
+0xD7BA,
+0xE7BB,
+0xE7BC,
+0xE7BD,
+0xBCEA,
+0xC3E5,
+0xC0C2,
+0xE7BE,
+0xE7BF,
+0xBCA9,
+0,
+0xE7C0,
+0xE7C1,
+0xE7B6,
+0xB6D0,
+0xE7C2,
+0,
+0xE7C3,
+0xE7C4,
+0xBBBA,
+0xB5DE,
+0xC2C6,
+0xB1E0,
+0xE7C5,
+0xD4B5,
+0xE7C6,
+0xB8BF,
+0xE7C8,
+0xE7C7,
+0xB7EC,
+0,
+0xE7C9,
+0xB2F8,
+0xE7CA,
+0xE7CB,
+0xE7CC,
+0xE7CD,
+0xE7CE,
+0xE7CF,
+0xE7D0,
+0xD3A7,
+0xCBF5,
+0xE7D1,
+0xE7D2,
+0xE7D3,
+0xE7D4,
+0xC9C9,
+0xE7D5,
+0xE7D6,
+0xE7D7,
+0xE7D8,
+0xE7D9,
+0xBDC9,
+0xE7DA,
+0xF3BE,
+0,
+0xB8D7,
+0,
+0xC8B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3BF,
+0,
+0xF3C0,
+0xF3C1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB9DE,
+0xCDF8,
+0,
+0,
+0xD8E8,
+0xBAB1,
+0,
+0xC2DE,
+0xEEB7,
+0,
+0xB7A3,
+0,
+0,
+0,
+0,
+0xEEB9,
+0,
+0xEEB8,
+0xB0D5,
+0,
+0,
+0,
+0,
+0,
+0xEEBB,
+0xD5D6,
+0xD7EF,
+0,
+0,
+0,
+0xD6C3,
+0,
+0,
+0xEEBD,
+0xCAF0,
+0,
+0xEEBC,
+0,
+0,
+0,
+0,
+0xEEBE,
+0,
+0,
+0,
+0,
+0xEEC0,
+0,
+0,
+0xEEBF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1F2,
+0,
+0xC7BC,
+0,
+0xC3C0,
+0,
+0,
+0,
+0,
+0,
+0xB8E1,
+0,
+0,
+0,
+0,
+0,
+0xC1E7,
+0,
+0,
+0xF4C6,
+0xD0DF,
+0xF4C7,
+0,
+0xCFDB,
+0,
+0,
+0xC8BA,
+0,
+0,
+0xF4C8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4C9,
+0xF4CA,
+0,
+0xF4CB,
+0,
+0,
+0,
+0,
+0,
+0xD9FA,
+0xB8FE,
+0,
+0,
+0xE5F1,
+0xD3F0,
+0,
+0xF4E0,
+0,
+0xCECC,
+0,
+0,
+0,
+0xB3E1,
+0,
+0,
+0,
+0,
+0xF1B4,
+0,
+0xD2EE,
+0,
+0xF4E1,
+0,
+0,
+0,
+0,
+0,
+0xCFE8,
+0xF4E2,
+0,
+0,
+0xC7CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB5D4,
+0xB4E4,
+0xF4E4,
+0,
+0,
+0,
+0xF4E3,
+0xF4E5,
+0,
+0,
+0xF4E6,
+0,
+0,
+0,
+0,
+0xF4E7,
+0,
+0xBAB2,
+0xB0BF,
+0,
+0xF4E8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB7AD,
+0xD2ED,
+0,
+0,
+0,
+0xD2AB,
+0xC0CF,
+0,
+0xBFBC,
+0xEBA3,
+0xD5DF,
+0xEAC8,
+0,
+0,
+0,
+0,
+0xF1F3,
+0xB6F8,
+0xCBA3,
+0,
+0,
+0xC4CD,
+0,
+0xF1E7,
+0,
+0xF1E8,
+0xB8FB,
+0xF1E9,
+0xBAC4,
+0xD4C5,
+0xB0D2,
+0,
+0,
+0xF1EA,
+0,
+0,
+0,
+0xF1EB,
+0,
+0xF1EC,
+0,
+0,
+0xF1ED,
+0xF1EE,
+0xF1EF,
+0xF1F1,
+0xF1F0,
+0xC5D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1F2,
+0,
+0xB6FA,
+0,
+0xF1F4,
+0xD2AE,
+0xDEC7,
+0xCBCA,
+0,
+0,
+0xB3DC,
+0,
+0xB5A2,
+0,
+0xB9A2,
+0,
+0,
+0xC4F4,
+0xF1F5,
+0,
+0,
+0xF1F6,
+0,
+0,
+0,
+0xC1C4,
+0xC1FB,
+0xD6B0,
+0xF1F7,
+0,
+0,
+0,
+0,
+0xF1F8,
+0,
+0xC1AA,
+0,
+0,
+0,
+0xC6B8,
+0,
+0xBEDB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1F9,
+0xB4CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1FA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDB2,
+0xEDB1,
+0,
+0,
+0xCBE0,
+0xD2DE,
+0,
+0xCBC1,
+0xD5D8,
+0,
+0xC8E2,
+0,
+0xC0DF,
+0xBCA1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBC1,
+0,
+0,
+0xD0A4,
+0,
+0xD6E2,
+0,
+0xB6C7,
+0xB8D8,
+0xEBC0,
+0xB8CE,
+0,
+0xEBBF,
+0xB3A6,
+0xB9C9,
+0xD6AB,
+0,
+0xB7F4,
+0xB7CA,
+0,
+0,
+0,
+0xBCE7,
+0xB7BE,
+0xEBC6,
+0,
+0xEBC7,
+0xB0B9,
+0xBFCF,
+0,
+0xEBC5,
+0xD3FD,
+0,
+0xEBC8,
+0,
+0,
+0xEBC9,
+0,
+0,
+0xB7CE,
+0,
+0xEBC2,
+0xEBC4,
+0xC9F6,
+0xD6D7,
+0xD5CD,
+0xD0B2,
+0xEBCF,
+0xCEB8,
+0xEBD0,
+0,
+0xB5A8,
+0,
+0,
+0,
+0,
+0,
+0xB1B3,
+0xEBD2,
+0xCCA5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC5D6,
+0xEBD3,
+0,
+0xEBD1,
+0xC5DF,
+0xEBCE,
+0xCAA4,
+0xEBD5,
+0xB0FB,
+0,
+0,
+0xBAFA,
+0,
+0,
+0xD8B7,
+0xF1E3,
+0,
+0xEBCA,
+0xEBCB,
+0xEBCC,
+0xEBCD,
+0xEBD6,
+0xE6C0,
+0xEBD9,
+0,
+0xBFE8,
+0xD2C8,
+0xEBD7,
+0xEBDC,
+0xB8EC,
+0xEBD8,
+0,
+0xBDBA,
+0,
+0xD0D8,
+0,
+0xB0B7,
+0,
+0xEBDD,
+0xC4DC,
+0,
+0,
+0,
+0,
+0xD6AC,
+0,
+0,
+0,
+0xB4E0,
+0,
+0,
+0xC2F6,
+0xBCB9,
+0,
+0,
+0xEBDA,
+0xEBDB,
+0xD4E0,
+0xC6EA,
+0xC4D4,
+0xEBDF,
+0xC5A7,
+0xD9F5,
+0,
+0xB2B1,
+0,
+0xEBE4,
+0,
+0xBDC5,
+0,
+0,
+0,
+0xEBE2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBE3,
+0,
+0,
+0xB8AC,
+0,
+0xCDD1,
+0xEBE5,
+0,
+0,
+0,
+0xEBE1,
+0,
+0xC1B3,
+0,
+0,
+0,
+0,
+0,
+0xC6A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCF3,
+0,
+0xEBE6,
+0,
+0xC0B0,
+0xD2B8,
+0xEBE7,
+0,
+0,
+0,
+0xB8AF,
+0xB8AD,
+0,
+0xEBE8,
+0xC7BB,
+0xCDF3,
+0,
+0,
+0,
+0xEBEA,
+0xEBEB,
+0,
+0,
+0,
+0,
+0,
+0xEBED,
+0,
+0,
+0,
+0,
+0xD0C8,
+0,
+0xEBF2,
+0,
+0xEBEE,
+0,
+0,
+0,
+0xEBF1,
+0xC8F9,
+0,
+0xD1FC,
+0xEBEC,
+0,
+0,
+0xEBE9,
+0,
+0,
+0,
+0,
+0xB8B9,
+0xCFD9,
+0xC4E5,
+0xEBEF,
+0xEBF0,
+0xCCDA,
+0xCDC8,
+0xB0F2,
+0,
+0xEBF6,
+0,
+0,
+0,
+0,
+0,
+0xEBF5,
+0,
+0xB2B2,
+0,
+0,
+0,
+0,
+0xB8E0,
+0,
+0xEBF7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB1EC,
+0,
+0,
+0xCCC5,
+0xC4A4,
+0xCFA5,
+0,
+0,
+0,
+0,
+0,
+0xEBF9,
+0,
+0,
+0xECA2,
+0,
+0xC5F2,
+0,
+0xEBFA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC9C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2DF,
+0xEBFE,
+0,
+0,
+0,
+0,
+0xCDCE,
+0xECA1,
+0xB1DB,
+0xD3B7,
+0,
+0,
+0xD2DC,
+0,
+0,
+0,
+0xEBFD,
+0,
+0xEBFB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB3BC,
+0,
+0,
+0,
+0xEAB0,
+0,
+0,
+0xD7D4,
+0,
+0xF4AB,
+0xB3F4,
+0,
+0,
+0,
+0,
+0,
+0xD6C1,
+0xD6C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5E9,
+0xBECA,
+0,
+0xF4A7,
+0,
+0xD2A8,
+0xF4A8,
+0xF4A9,
+0,
+0xF4AA,
+0xBECB,
+0xD3DF,
+0,
+0,
+0,
+0,
+0,
+0xC9E0,
+0xC9E1,
+0,
+0,
+0xF3C2,
+0,
+0xCAE6,
+0,
+0xCCF2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2B6,
+0xCBB4,
+0,
+0xCEE8,
+0xD6DB,
+0,
+0xF4AD,
+0xF4AE,
+0xF4AF,
+0,
+0,
+0,
+0,
+0xF4B2,
+0,
+0xBABD,
+0xF4B3,
+0xB0E3,
+0xF4B0,
+0,
+0xF4B1,
+0xBDA2,
+0xB2D5,
+0,
+0xF4B6,
+0xF4B7,
+0xB6E6,
+0xB2B0,
+0xCFCF,
+0xF4B4,
+0xB4AC,
+0,
+0xF4B5,
+0,
+0,
+0xF4B8,
+0,
+0,
+0,
+0,
+0,
+0xF4B9,
+0,
+0,
+0xCDA7,
+0,
+0xF4BA,
+0,
+0xF4BB,
+0,
+0,
+0,
+0xF4BC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBD2,
+0,
+0xF4BD,
+0,
+0,
+0,
+0,
+0xF4BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4BF,
+0,
+0,
+0,
+0,
+0,
+0xF4DE,
+0xC1BC,
+0xBCE8,
+0,
+0xC9AB,
+0xD1DE,
+0xE5F5,
+0,
+0,
+0,
+0,
+0xDCB3,
+0xD2D5,
+0,
+0,
+0xDCB4,
+0xB0AC,
+0xDCB5,
+0,
+0,
+0xBDDA,
+0,
+0xDCB9,
+0,
+0,
+0,
+0xD8C2,
+0,
+0xDCB7,
+0xD3F3,
+0,
+0xC9D6,
+0xDCBA,
+0xDCB6,
+0,
+0xDCBB,
+0xC3A2,
+0,
+0,
+0,
+0,
+0xDCBC,
+0xDCC5,
+0xDCBD,
+0,
+0,
+0xCEDF,
+0xD6A5,
+0,
+0xDCCF,
+0,
+0xDCCD,
+0,
+0,
+0xDCD2,
+0xBDE6,
+0xC2AB,
+0,
+0xDCB8,
+0xDCCB,
+0xDCCE,
+0xDCBE,
+0xB7D2,
+0xB0C5,
+0xDCC7,
+0xD0BE,
+0xDCC1,
+0xBBA8,
+0,
+0xB7BC,
+0xDCCC,
+0,
+0,
+0xDCC6,
+0xDCBF,
+0xC7DB,
+0,
+0,
+0,
+0xD1BF,
+0xDCC0,
+0,
+0,
+0xDCCA,
+0,
+0,
+0xDCD0,
+0,
+0,
+0xCEAD,
+0xDCC2,
+0,
+0xDCC3,
+0xDCC8,
+0xDCC9,
+0xB2D4,
+0xDCD1,
+0xCBD5,
+0,
+0xD4B7,
+0xDCDB,
+0xDCDF,
+0xCCA6,
+0xDCE6,
+0,
+0xC3E7,
+0xDCDC,
+0,
+0,
+0xBFC1,
+0xDCD9,
+0,
+0xB0FA,
+0xB9B6,
+0xDCE5,
+0xDCD3,
+0,
+0xDCC4,
+0xDCD6,
+0xC8F4,
+0xBFE0,
+0,
+0,
+0,
+0,
+0xC9BB,
+0,
+0,
+0,
+0xB1BD,
+0,
+0xD3A2,
+0,
+0,
+0xDCDA,
+0,
+0,
+0xDCD5,
+0,
+0xC6BB,
+0,
+0xDCDE,
+0,
+0,
+0,
+0,
+0,
+0xD7C2,
+0xC3AF,
+0xB7B6,
+0xC7D1,
+0xC3A9,
+0xDCE2,
+0xDCD8,
+0xDCEB,
+0xDCD4,
+0,
+0,
+0xDCDD,
+0,
+0xBEA5,
+0xDCD7,
+0,
+0xDCE0,
+0,
+0,
+0xDCE3,
+0xDCE4,
+0,
+0xDCF8,
+0,
+0,
+0xDCE1,
+0xDDA2,
+0xDCE7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBCEB,
+0xB4C4,
+0,
+0,
+0xC3A3,
+0xB2E7,
+0xDCFA,
+0,
+0xDCF2,
+0,
+0xDCEF,
+0,
+0xDCFC,
+0xDCEE,
+0xD2F0,
+0xB2E8,
+0,
+0xC8D7,
+0xC8E3,
+0xDCFB,
+0,
+0xDCED,
+0,
+0,
+0,
+0xDCF7,
+0,
+0,
+0xDCF5,
+0,
+0,
+0xBEA3,
+0xDCF4,
+0,
+0xB2DD,
+0,
+0,
+0,
+0,
+0,
+0xDCF3,
+0xBCF6,
+0xDCE8,
+0xBBC4,
+0,
+0xC0F3,
+0,
+0,
+0,
+0,
+0,
+0xBCD4,
+0xDCE9,
+0xDCEA,
+0,
+0xDCF1,
+0xDCF6,
+0xDCF9,
+0xB5B4,
+0,
+0xC8D9,
+0xBBE7,
+0xDCFE,
+0xDCFD,
+0xD3AB,
+0xDDA1,
+0xDDA3,
+0xDDA5,
+0xD2F1,
+0xDDA4,
+0xDDA6,
+0xDDA7,
+0xD2A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBAC9,
+0xDDA9,
+0,
+0,
+0xDDB6,
+0xDDB1,
+0xDDB4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDB0,
+0xC6CE,
+0,
+0,
+0xC0F2,
+0,
+0,
+0,
+0,
+0xC9AF,
+0,
+0,
+0,
+0xDCEC,
+0xDDAE,
+0,
+0,
+0,
+0,
+0xDDB7,
+0,
+0,
+0xDCF0,
+0xDDAF,
+0,
+0xDDB8,
+0,
+0xDDAC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDB9,
+0xDDB3,
+0xDDAD,
+0xC4AA,
+0,
+0,
+0,
+0,
+0xDDA8,
+0xC0B3,
+0xC1AB,
+0xDDAA,
+0xDDAB,
+0,
+0xDDB2,
+0xBBF1,
+0xDDB5,
+0xD3A8,
+0xDDBA,
+0,
+0xDDBB,
+0xC3A7,
+0,
+0,
+0xDDD2,
+0xDDBC,
+0,
+0,
+0,
+0xDDD1,
+0,
+0xB9BD,
+0,
+0,
+0xBED5,
+0,
+0xBEFA,
+0,
+0,
+0xBACA,
+0,
+0,
+0,
+0,
+0xDDCA,
+0,
+0xDDC5,
+0,
+0xDDBF,
+0,
+0,
+0,
+0xB2CB,
+0xDDC3,
+0,
+0xDDCB,
+0xB2A4,
+0xDDD5,
+0,
+0,
+0,
+0xDDBE,
+0,
+0,
+0,
+0xC6D0,
+0xDDD0,
+0,
+0,
+0,
+0,
+0,
+0xDDD4,
+0xC1E2,
+0xB7C6,
+0,
+0,
+0,
+0,
+0,
+0xDDCE,
+0xDDCF,
+0,
+0,
+0,
+0xDDC4,
+0,
+0,
+0,
+0xDDBD,
+0,
+0xDDCD,
+0xCCD1,
+0,
+0xDDC9,
+0,
+0,
+0,
+0,
+0xDDC2,
+0xC3C8,
+0xC6BC,
+0xCEAE,
+0xDDCC,
+0,
+0xDDC8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDC1,
+0,
+0,
+0,
+0xDDC6,
+0xC2DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3A9,
+0xD3AA,
+0xDDD3,
+0xCFF4,
+0xC8F8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDE6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDC7,
+0,
+0,
+0,
+0xDDE0,
+0xC2E4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDE1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDD7,
+0,
+0,
+0,
+0,
+0,
+0xD6F8,
+0,
+0xDDD9,
+0xDDD8,
+0xB8F0,
+0xDDD6,
+0,
+0,
+0,
+0,
+0xC6CF,
+0,
+0xB6AD,
+0,
+0,
+0,
+0,
+0,
+0xDDE2,
+0,
+0xBAF9,
+0xD4E1,
+0xDDE7,
+0,
+0,
+0,
+0xB4D0,
+0,
+0xDDDA,
+0,
+0xBFFB,
+0xDDE3,
+0,
+0xDDDF,
+0,
+0xDDDD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB5D9,
+0,
+0,
+0,
+0,
+0xDDDB,
+0xDDDC,
+0xDDDE,
+0,
+0xBDAF,
+0xDDE4,
+0,
+0xDDE5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDF5,
+0,
+0xC3C9,
+0,
+0,
+0xCBE2,
+0,
+0,
+0,
+0,
+0xDDF2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8E1,
+0,
+0,
+0xC6D1,
+0,
+0xDDF4,
+0,
+0,
+0,
+0xD5F4,
+0xDDF3,
+0xDDF0,
+0,
+0,
+0xDDEC,
+0,
+0xDDEF,
+0,
+0xDDE8,
+0,
+0,
+0xD0EE,
+0,
+0,
+0,
+0,
+0xC8D8,
+0xDDEE,
+0,
+0,
+0xDDE9,
+0,
+0,
+0xDDEA,
+0xCBF2,
+0,
+0xDDED,
+0,
+0,
+0xB1CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC0B6,
+0,
+0xBCBB,
+0xDDF1,
+0,
+0,
+0xDDF7,
+0,
+0xDDF6,
+0xDDEB,
+0,
+0,
+0,
+0,
+0,
+0xC5EE,
+0,
+0,
+0,
+0xDDFB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEA4,
+0,
+0,
+0xDEA3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDF8,
+0,
+0,
+0,
+0,
+0xC3EF,
+0,
+0xC2FB,
+0,
+0,
+0,
+0xD5E1,
+0,
+0,
+0xCEB5,
+0,
+0,
+0,
+0,
+0xDDFD,
+0,
+0xB2CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC4E8,
+0xCADF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7BE,
+0xDDFA,
+0xDDFC,
+0xDDFE,
+0xDEA2,
+0xB0AA,
+0xB1CE,
+0,
+0,
+0,
+0,
+0,
+0xDEAC,
+0,
+0,
+0,
+0,
+0xDEA6,
+0xBDB6,
+0xC8EF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEA1,
+0,
+0,
+0xDEA5,
+0,
+0,
+0,
+0,
+0xDEA9,
+0,
+0,
+0,
+0,
+0,
+0xDEA8,
+0,
+0,
+0,
+0xDEA7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEAD,
+0,
+0xD4CC,
+0,
+0,
+0,
+0,
+0xDEB3,
+0xDEAA,
+0xDEAE,
+0,
+0,
+0xC0D9,
+0,
+0,
+0,
+0,
+0,
+0xB1A1,
+0xDEB6,
+0,
+0xDEB1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEB2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1A6,
+0xDEB5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEAF,
+0,
+0,
+0,
+0xDEB0,
+0,
+0xD0BD,
+0,
+0,
+0,
+0xDEB4,
+0xCAED,
+0xDEB9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEB8,
+0,
+0xDEB7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEBB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBDE5,
+0,
+0,
+0,
+0,
+0,
+0xB2D8,
+0xC3EA,
+0,
+0,
+0xDEBA,
+0,
+0xC5BA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEBC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCD9,
+0,
+0,
+0,
+0,
+0xB7AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4E5,
+0,
+0,
+0,
+0xDEBD,
+0,
+0,
+0,
+0,
+0,
+0xDEBF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC4A2,
+0,
+0,
+0,
+0,
+0xDEC1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEBE,
+0,
+0xDEC0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5BA,
+0,
+0,
+0,
+0xDEC2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2AE,
+0xBBA2,
+0xC2B2,
+0xC5B0,
+0xC2C7,
+0,
+0,
+0xF2AF,
+0,
+0,
+0,
+0,
+0,
+0xD0E9,
+0,
+0,
+0,
+0xD3DD,
+0,
+0,
+0,
+0xEBBD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB3E6,
+0xF2B0,
+0,
+0xF2B1,
+0,
+0,
+0xCAAD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBAE7,
+0xF2B3,
+0xF2B5,
+0xF2B4,
+0xCBE4,
+0xCFBA,
+0xF2B2,
+0xCAB4,
+0xD2CF,
+0xC2EC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEC3,
+0xF2B8,
+0xB0F6,
+0xF2B7,
+0,
+0,
+0,
+0,
+0,
+0xF2BE,
+0,
+0xB2CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1C1,
+0xF2BA,
+0,
+0,
+0,
+0,
+0,
+0xF2BC,
+0xD4E9,
+0,
+0,
+0xF2BB,
+0xF2B6,
+0xF2BF,
+0xF2BD,
+0,
+0xF2B9,
+0,
+0,
+0xF2C7,
+0xF2C4,
+0xF2C6,
+0,
+0,
+0xF2CA,
+0xF2C2,
+0xF2C0,
+0,
+0,
+0,
+0xF2C5,
+0,
+0,
+0,
+0,
+0,
+0xD6FB,
+0,
+0,
+0,
+0xF2C1,
+0,
+0xC7F9,
+0xC9DF,
+0,
+0xF2C8,
+0xB9C6,
+0xB5B0,
+0,
+0,
+0xF2C3,
+0xF2C9,
+0xF2D0,
+0xF2D6,
+0,
+0,
+0xBBD7,
+0,
+0,
+0,
+0xF2D5,
+0xCDDC,
+0,
+0xD6EB,
+0,
+0,
+0xF2D2,
+0xF2D4,
+0,
+0,
+0,
+0,
+0xB8F2,
+0,
+0,
+0,
+0,
+0xF2CB,
+0,
+0,
+0,
+0xF2CE,
+0xC2F9,
+0,
+0xD5DD,
+0xF2CC,
+0xF2CD,
+0xF2CF,
+0xF2D3,
+0,
+0,
+0,
+0xF2D9,
+0xD3BC,
+0,
+0,
+0,
+0,
+0xB6EA,
+0,
+0xCAF1,
+0,
+0xB7E4,
+0xF2D7,
+0,
+0,
+0,
+0xF2D8,
+0xF2DA,
+0xF2DD,
+0xF2DB,
+0,
+0,
+0xF2DC,
+0,
+0,
+0,
+0,
+0xD1D1,
+0xF2D1,
+0,
+0xCDC9,
+0,
+0xCECF,
+0xD6A9,
+0,
+0xF2E3,
+0,
+0xC3DB,
+0,
+0xF2E0,
+0,
+0,
+0xC0AF,
+0xF2EC,
+0xF2DE,
+0,
+0xF2E1,
+0,
+0,
+0,
+0xF2E8,
+0,
+0,
+0,
+0,
+0xF2E2,
+0,
+0,
+0xF2E7,
+0,
+0,
+0xF2E6,
+0,
+0,
+0xF2E9,
+0,
+0,
+0,
+0xF2DF,
+0,
+0,
+0xF2E4,
+0xF2EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3AC,
+0xF2E5,
+0xB2F5,
+0,
+0,
+0xF2F2,
+0,
+0xD0AB,
+0,
+0,
+0,
+0,
+0xF2F5,
+0,
+0,
+0,
+0xBBC8,
+0,
+0xF2F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2F0,
+0,
+0,
+0xF2F6,
+0xF2F8,
+0xF2FA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2F3,
+0,
+0xF2F1,
+0,
+0,
+0,
+0xBAFB,
+0,
+0xB5FB,
+0,
+0,
+0,
+0,
+0xF2EF,
+0xF2F7,
+0xF2ED,
+0xF2EE,
+0,
+0,
+0,
+0xF2EB,
+0xF3A6,
+0,
+0xF3A3,
+0,
+0,
+0xF3A2,
+0,
+0,
+0xF2F4,
+0,
+0xC8DA,
+0,
+0,
+0,
+0,
+0,
+0xF2FB,
+0,
+0,
+0,
+0xF3A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC3F8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2FD,
+0,
+0,
+0xF3A7,
+0xF3A9,
+0xF3A4,
+0,
+0xF2FC,
+0,
+0,
+0,
+0xF3AB,
+0,
+0xF3AA,
+0,
+0,
+0,
+0,
+0xC2DD,
+0,
+0,
+0xF3AE,
+0,
+0,
+0xF3B0,
+0,
+0,
+0,
+0,
+0,
+0xF3A1,
+0,
+0,
+0,
+0xF3B1,
+0xF3AC,
+0,
+0,
+0,
+0,
+0,
+0xF3AF,
+0xF2FE,
+0xF3AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3B2,
+0,
+0,
+0,
+0,
+0xF3B4,
+0,
+0,
+0,
+0,
+0xF3A8,
+0,
+0,
+0,
+0,
+0xF3B3,
+0,
+0,
+0,
+0xF3B5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0B7,
+0,
+0,
+0,
+0,
+0xF3B8,
+0,
+0,
+0,
+0,
+0xD9F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3B9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3B7,
+0,
+0xC8E4,
+0xF3B6,
+0,
+0,
+0,
+0,
+0xF3BA,
+0,
+0,
+0,
+0,
+0,
+0xF3BB,
+0xB4C0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEC3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3BC,
+0,
+0,
+0xF3BD,
+0,
+0,
+0,
+0xD1AA,
+0,
+0,
+0,
+0xF4AC,
+0xD0C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0D0,
+0xD1DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFCE,
+0,
+0,
+0xBDD6,
+0,
+0xD1C3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBAE2,
+0xE1E9,
+0xD2C2,
+0xF1C2,
+0xB2B9,
+0,
+0,
+0xB1ED,
+0xF1C3,
+0,
+0xC9C0,
+0xB3C4,
+0,
+0xD9F2,
+0,
+0xCBA5,
+0,
+0xF1C4,
+0,
+0,
+0,
+0,
+0xD6D4,
+0,
+0,
+0,
+0,
+0,
+0xF1C5,
+0xF4C0,
+0xF1C6,
+0,
+0xD4AC,
+0xF1C7,
+0,
+0xB0C0,
+0xF4C1,
+0,
+0,
+0xF4C2,
+0,
+0,
+0xB4FC,
+0,
+0xC5DB,
+0,
+0,
+0,
+0,
+0xCCBB,
+0,
+0,
+0,
+0xD0E4,
+0,
+0,
+0,
+0,
+0,
+0xCDE0,
+0,
+0,
+0,
+0,
+0,
+0xF1C8,
+0,
+0xD9F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB1BB,
+0,
+0xCFAE,
+0,
+0,
+0,
+0xB8A4,
+0,
+0,
+0,
+0,
+0,
+0xF1CA,
+0,
+0,
+0,
+0,
+0xF1CB,
+0,
+0,
+0,
+0,
+0xB2C3,
+0xC1D1,
+0,
+0,
+0xD7B0,
+0xF1C9,
+0,
+0,
+0xF1CC,
+0,
+0,
+0,
+0,
+0xF1CE,
+0,
+0,
+0,
+0xD9F6,
+0,
+0xD2E1,
+0xD4A3,
+0,
+0,
+0xF4C3,
+0xC8B9,
+0,
+0,
+0,
+0,
+0,
+0xF4C4,
+0,
+0,
+0xF1CD,
+0xF1CF,
+0xBFE3,
+0xF1D0,
+0,
+0,
+0xF1D4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1D6,
+0xF1D1,
+0,
+0xC9D1,
+0xC5E1,
+0,
+0,
+0,
+0xC2E3,
+0xB9FC,
+0,
+0,
+0xF1D3,
+0,
+0xF1D5,
+0,
+0,
+0,
+0xB9D3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1DB,
+0,
+0,
+0,
+0,
+0,
+0xBAD6,
+0,
+0xB0FD,
+0xF1D9,
+0,
+0,
+0,
+0,
+0,
+0xF1D8,
+0xF1D2,
+0xF1DA,
+0,
+0,
+0,
+0,
+0,
+0xF1D7,
+0,
+0,
+0,
+0xC8EC,
+0,
+0,
+0,
+0,
+0xCDCA,
+0xF1DD,
+0,
+0,
+0,
+0,
+0xE5BD,
+0,
+0,
+0,
+0xF1DC,
+0,
+0xF1DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1DF,
+0,
+0,
+0xCFE5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4C5,
+0xBDF3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1E0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1E1,
+0,
+0,
+0,
+0xCEF7,
+0,
+0xD2AA,
+0,
+0xF1FB,
+0,
+0,
+0xB8B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBCFB,
+0xB9DB,
+0,
+0xB9E6,
+0xC3D9,
+0xCAD3,
+0xEAE8,
+0xC0C0,
+0xBEF5,
+0xEAE9,
+0xEAEA,
+0xEAEB,
+0,
+0xEAEC,
+0xEAED,
+0xEAEE,
+0xEAEF,
+0xBDC7,
+0,
+0,
+0,
+0xF5FB,
+0,
+0,
+0,
+0xF5FD,
+0,
+0xF5FE,
+0,
+0xF5FC,
+0,
+0,
+0,
+0,
+0xBDE2,
+0,
+0xF6A1,
+0xB4A5,
+0,
+0,
+0,
+0,
+0xF6A2,
+0,
+0,
+0,
+0xF6A3,
+0,
+0,
+0,
+0xECB2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1D4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEBA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3FE,
+0xCCDC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAC4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5C0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBEAF,
+0,
+0,
+0,
+0,
+0,
+0xC6A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAA5,
+0xBCC6,
+0xB6A9,
+0xB8BC,
+0xC8CF,
+0xBCA5,
+0xDAA6,
+0xDAA7,
+0xCCD6,
+0xC8C3,
+0xDAA8,
+0xC6FD,
+0,
+0xD1B5,
+0xD2E9,
+0xD1B6,
+0xBCC7,
+0,
+0xBDB2,
+0xBBE4,
+0xDAA9,
+0xDAAA,
+0xD1C8,
+0xDAAB,
+0xD0ED,
+0xB6EF,
+0xC2DB,
+0,
+0xCBCF,
+0xB7ED,
+0xC9E8,
+0xB7C3,
+0xBEF7,
+0xD6A4,
+0xDAAC,
+0xDAAD,
+0xC6C0,
+0xD7E7,
+0xCAB6,
+0,
+0xD5A9,
+0xCBDF,
+0xD5EF,
+0xDAAE,
+0xD6DF,
+0xB4CA,
+0xDAB0,
+0xDAAF,
+0,
+0xD2EB,
+0xDAB1,
+0xDAB2,
+0xDAB3,
+0xCAD4,
+0xDAB4,
+0xCAAB,
+0xDAB5,
+0xDAB6,
+0xB3CF,
+0xD6EF,
+0xDAB7,
+0xBBB0,
+0xB5AE,
+0xDAB8,
+0xDAB9,
+0xB9EE,
+0xD1AF,
+0xD2E8,
+0xDABA,
+0xB8C3,
+0xCFEA,
+0xB2EF,
+0xDABB,
+0xDABC,
+0,
+0xBDEB,
+0xCEDC,
+0xD3EF,
+0xDABD,
+0xCEF3,
+0xDABE,
+0xD3D5,
+0xBBE5,
+0xDABF,
+0xCBB5,
+0xCBD0,
+0xDAC0,
+0xC7EB,
+0xD6EE,
+0xDAC1,
+0xC5B5,
+0xB6C1,
+0xDAC2,
+0xB7CC,
+0xBFCE,
+0xDAC3,
+0xDAC4,
+0xCBAD,
+0xDAC5,
+0xB5F7,
+0xDAC6,
+0xC1C2,
+0xD7BB,
+0xDAC7,
+0xCCB8,
+0,
+0xD2EA,
+0xC4B1,
+0xDAC8,
+0xB5FD,
+0xBBD1,
+0xDAC9,
+0xD0B3,
+0xDACA,
+0xDACB,
+0xCEBD,
+0xDACC,
+0xDACD,
+0xDACE,
+0xB2F7,
+0xDAD1,
+0xDACF,
+0xD1E8,
+0xDAD0,
+0xC3D5,
+0xDAD2,
+0,
+0xDAD3,
+0xDAD4,
+0xDAD5,
+0xD0BB,
+0xD2A5,
+0xB0F9,
+0xDAD6,
+0xC7AB,
+0xDAD7,
+0xBDF7,
+0xC3A1,
+0xDAD8,
+0xDAD9,
+0xC3FD,
+0xCCB7,
+0xDADA,
+0xDADB,
+0xC0BE,
+0xC6D7,
+0xDADC,
+0xDADD,
+0xC7B4,
+0xDADE,
+0xDADF,
+0xB9C8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBBED,
+0,
+0,
+0,
+0,
+0xB6B9,
+0xF4F8,
+0,
+0xF4F9,
+0,
+0,
+0xCDE3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5B9,
+0,
+0,
+0,
+0,
+0xEBE0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFF3,
+0xBBBF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBAC0,
+0xD4A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1D9,
+0,
+0,
+0,
+0,
+0xF5F4,
+0xB1AA,
+0xB2F2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5F5,
+0,
+0,
+0xF5F7,
+0,
+0,
+0,
+0xBAD1,
+0xF5F6,
+0,
+0xC3B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5F9,
+0,
+0,
+0,
+0xF5F8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB1B4,
+0xD5EA,
+0xB8BA,
+0,
+0xB9B1,
+0xB2C6,
+0xD4F0,
+0xCFCD,
+0xB0DC,
+0xD5CB,
+0xBBF5,
+0xD6CA,
+0xB7B7,
+0xCCB0,
+0xC6B6,
+0xB1E1,
+0xB9BA,
+0xD6FC,
+0xB9E1,
+0xB7A1,
+0xBCFA,
+0xEADA,
+0xEADB,
+0xCCF9,
+0xB9F3,
+0xEADC,
+0xB4FB,
+0xC3B3,
+0xB7D1,
+0xBAD8,
+0xEADD,
+0xD4F4,
+0xEADE,
+0xBCD6,
+0xBBDF,
+0xEADF,
+0xC1DE,
+0xC2B8,
+0xD4DF,
+0xD7CA,
+0xEAE0,
+0xEAE1,
+0xEAE4,
+0xEAE2,
+0xEAE3,
+0xC9DE,
+0xB8B3,
+0xB6C4,
+0xEAE5,
+0xCAEA,
+0xC9CD,
+0xB4CD,
+0,
+0,
+0xE2D9,
+0xC5E2,
+0xEAE6,
+0xC0B5,
+0,
+0xD7B8,
+0xEAE7,
+0xD7AC,
+0xC8FC,
+0xD8D3,
+0xD8CD,
+0xD4DE,
+0,
+0xD4F9,
+0xC9C4,
+0xD3AE,
+0xB8D3,
+0xB3E0,
+0,
+0xC9E2,
+0xF4F6,
+0,
+0,
+0,
+0xBAD5,
+0,
+0xF4F7,
+0,
+0,
+0xD7DF,
+0,
+0,
+0xF4F1,
+0xB8B0,
+0xD5D4,
+0xB8CF,
+0xC6F0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB3C3,
+0,
+0,
+0xF4F2,
+0xB3AC,
+0,
+0,
+0,
+0,
+0xD4BD,
+0xC7F7,
+0,
+0,
+0,
+0,
+0,
+0xF4F4,
+0,
+0,
+0xF4F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCCB,
+0,
+0,
+0,
+0xC8A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4F5,
+0,
+0xD7E3,
+0xC5BF,
+0xF5C0,
+0,
+0,
+0xF5BB,
+0,
+0xF5C3,
+0,
+0xF5C2,
+0,
+0xD6BA,
+0xF5C1,
+0,
+0,
+0,
+0xD4BE,
+0xF5C4,
+0,
+0xF5CC,
+0,
+0,
+0,
+0,
+0xB0CF,
+0xB5F8,
+0,
+0xF5C9,
+0xF5CA,
+0,
+0xC5DC,
+0,
+0,
+0,
+0,
+0xF5C5,
+0xF5C6,
+0,
+0,
+0xF5C7,
+0xF5CB,
+0,
+0xBEE0,
+0xF5C8,
+0xB8FA,
+0,
+0,
+0,
+0xF5D0,
+0xF5D3,
+0,
+0,
+0,
+0xBFE7,
+0,
+0xB9F2,
+0xF5BC,
+0xF5CD,
+0,
+0,
+0xC2B7,
+0,
+0,
+0,
+0xCCF8,
+0,
+0xBCF9,
+0,
+0xF5CE,
+0xF5CF,
+0xF5D1,
+0xB6E5,
+0xF5D2,
+0,
+0xF5D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5BD,
+0,
+0,
+0,
+0xF5D4,
+0xD3BB,
+0,
+0xB3EC,
+0,
+0,
+0xCCA4,
+0,
+0,
+0,
+0,
+0xF5D6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5D7,
+0xBEE1,
+0xF5D8,
+0,
+0,
+0xCCDF,
+0xF5DB,
+0,
+0,
+0,
+0,
+0,
+0xB2C8,
+0xD7D9,
+0,
+0xF5D9,
+0,
+0xF5DA,
+0xF5DC,
+0,
+0xF5E2,
+0,
+0,
+0,
+0xF5E0,
+0,
+0,
+0,
+0xF5DF,
+0xF5DD,
+0,
+0,
+0xF5E1,
+0,
+0,
+0xF5DE,
+0xF5E4,
+0xF5E5,
+0,
+0xCCE3,
+0,
+0,
+0xE5BF,
+0xB5B8,
+0xF5E3,
+0xF5E8,
+0xCCA3,
+0,
+0,
+0,
+0,
+0,
+0xF5E6,
+0xF5E7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB1C4,
+0,
+0,
+0xF5BF,
+0,
+0,
+0xB5C5,
+0xB2E4,
+0,
+0xF5EC,
+0xF5E9,
+0,
+0xB6D7,
+0,
+0xF5ED,
+0,
+0xF5EA,
+0,
+0,
+0,
+0,
+0,
+0xF5EB,
+0,
+0,
+0xB4DA,
+0,
+0xD4EA,
+0,
+0,
+0,
+0xF5EE,
+0,
+0xB3F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5EF,
+0xF5F1,
+0,
+0,
+0,
+0xF5F0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5F2,
+0,
+0xF5F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC9ED,
+0xB9AA,
+0,
+0,
+0xC7FB,
+0,
+0,
+0xB6E3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCC9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAA6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB3B5,
+0xD4FE,
+0xB9EC,
+0xD0F9,
+0,
+0xE9ED,
+0xD7AA,
+0xE9EE,
+0xC2D6,
+0xC8ED,
+0xBAE4,
+0xE9EF,
+0xE9F0,
+0xE9F1,
+0xD6E1,
+0xE9F2,
+0xE9F3,
+0xE9F5,
+0xE9F4,
+0xE9F6,
+0xE9F7,
+0xC7E1,
+0xE9F8,
+0xD4D8,
+0xE9F9,
+0xBDCE,
+0,
+0xE9FA,
+0xE9FB,
+0xBDCF,
+0xE9FC,
+0xB8A8,
+0xC1BE,
+0xE9FD,
+0xB1B2,
+0xBBD4,
+0xB9F5,
+0xE9FE,
+0,
+0xEAA1,
+0xEAA2,
+0xEAA3,
+0xB7F8,
+0xBCAD,
+0,
+0xCAE4,
+0xE0CE,
+0xD4AF,
+0xCFBD,
+0xD5B7,
+0xEAA4,
+0xD5DE,
+0xEAA5,
+0xD0C1,
+0xB9BC,
+0,
+0xB4C7,
+0xB1D9,
+0,
+0,
+0,
+0xC0B1,
+0,
+0,
+0,
+0,
+0xB1E6,
+0xB1E7,
+0,
+0xB1E8,
+0,
+0,
+0,
+0,
+0xB3BD,
+0xC8E8,
+0,
+0,
+0,
+0,
+0xE5C1,
+0,
+0,
+0xB1DF,
+0,
+0,
+0,
+0xC1C9,
+0xB4EF,
+0,
+0,
+0xC7A8,
+0xD3D8,
+0,
+0xC6F9,
+0xD1B8,
+0,
+0xB9FD,
+0xC2F5,
+0,
+0,
+0,
+0,
+0,
+0xD3AD,
+0,
+0xD4CB,
+0xBDFC,
+0,
+0xE5C2,
+0xB7B5,
+0xE5C3,
+0,
+0,
+0xBBB9,
+0xD5E2,
+0,
+0xBDF8,
+0xD4B6,
+0xCEA5,
+0xC1AC,
+0xB3D9,
+0,
+0,
+0xCCF6,
+0,
+0xE5C6,
+0xE5C4,
+0xE5C8,
+0,
+0xE5CA,
+0xE5C7,
+0xB5CF,
+0xC6C8,
+0,
+0xB5FC,
+0xE5C5,
+0,
+0xCAF6,
+0,
+0,
+0xE5C9,
+0,
+0,
+0,
+0xC3D4,
+0xB1C5,
+0xBCA3,
+0,
+0,
+0,
+0xD7B7,
+0,
+0,
+0xCDCB,
+0xCBCD,
+0xCACA,
+0xCCD3,
+0xE5CC,
+0xE5CB,
+0xC4E6,
+0,
+0,
+0xD1A1,
+0xD1B7,
+0xE5CD,
+0,
+0xE5D0,
+0,
+0xCDB8,
+0xD6F0,
+0xE5CF,
+0xB5DD,
+0,
+0xCDBE,
+0,
+0xE5D1,
+0xB6BA,
+0,
+0,
+0xCDA8,
+0xB9E4,
+0,
+0xCAC5,
+0xB3D1,
+0xCBD9,
+0xD4EC,
+0xE5D2,
+0xB7EA,
+0,
+0,
+0,
+0xE5CE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5D5,
+0xB4FE,
+0xE5D6,
+0,
+0,
+0,
+0,
+0,
+0xE5D3,
+0xE5D4,
+0,
+0xD2DD,
+0,
+0,
+0xC2DF,
+0xB1C6,
+0,
+0xD3E2,
+0,
+0,
+0xB6DD,
+0xCBEC,
+0,
+0xE5D7,
+0,
+0,
+0xD3F6,
+0,
+0,
+0,
+0,
+0,
+0xB1E9,
+0,
+0xB6F4,
+0xE5DA,
+0xE5D8,
+0xE5D9,
+0xB5C0,
+0,
+0,
+0,
+0xD2C5,
+0xE5DC,
+0,
+0,
+0xE5DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5DD,
+0xC7B2,
+0,
+0xD2A3,
+0,
+0,
+0xE5DB,
+0,
+0,
+0,
+0,
+0xD4E2,
+0xD5DA,
+0,
+0,
+0,
+0,
+0,
+0xE5E0,
+0xD7F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5E1,
+0,
+0xB1DC,
+0xD1FB,
+0,
+0xE5E2,
+0xE5E4,
+0,
+0,
+0,
+0,
+0xE5E3,
+0,
+0,
+0xE5E5,
+0,
+0,
+0,
+0,
+0,
+0xD2D8,
+0,
+0xB5CB,
+0,
+0xE7DF,
+0,
+0xDAF5,
+0,
+0xDAF8,
+0,
+0xDAF6,
+0,
+0xDAF7,
+0,
+0,
+0,
+0xDAFA,
+0xD0CF,
+0xC4C7,
+0,
+0,
+0xB0EE,
+0,
+0,
+0,
+0xD0B0,
+0,
+0xDAF9,
+0,
+0xD3CA,
+0xBAAA,
+0xDBA2,
+0xC7F1,
+0,
+0xDAFC,
+0xDAFB,
+0xC9DB,
+0xDAFD,
+0,
+0xDBA1,
+0xD7DE,
+0xDAFE,
+0xC1DA,
+0,
+0,
+0xDBA5,
+0,
+0,
+0xD3F4,
+0,
+0,
+0xDBA7,
+0xDBA4,
+0,
+0xDBA8,
+0,
+0,
+0xBDBC,
+0,
+0,
+0,
+0xC0C9,
+0xDBA3,
+0xDBA6,
+0xD6A3,
+0,
+0xDBA9,
+0,
+0,
+0,
+0xDBAD,
+0,
+0,
+0,
+0xDBAE,
+0xDBAC,
+0xBAC2,
+0,
+0,
+0,
+0xBFA4,
+0xDBAB,
+0,
+0,
+0,
+0xDBAA,
+0xD4C7,
+0xB2BF,
+0,
+0,
+0xDBAF,
+0,
+0xB9F9,
+0,
+0xDBB0,
+0,
+0,
+0,
+0,
+0xB3BB,
+0,
+0,
+0,
+0xB5A6,
+0,
+0,
+0,
+0,
+0xB6BC,
+0xDBB1,
+0,
+0,
+0,
+0xB6F5,
+0,
+0xDBB2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB1C9,
+0,
+0,
+0,
+0,
+0xDBB4,
+0,
+0,
+0,
+0xDBB3,
+0xDBB5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBB7,
+0,
+0xDBB6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBB8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBB9,
+0,
+0,
+0xDBBA,
+0,
+0,
+0xD3CF,
+0xF4FA,
+0xC7F5,
+0xD7C3,
+0xC5E4,
+0xF4FC,
+0xF4FD,
+0xF4FB,
+0,
+0xBEC6,
+0,
+0,
+0,
+0,
+0xD0EF,
+0,
+0,
+0xB7D3,
+0,
+0,
+0xD4CD,
+0xCCAA,
+0,
+0,
+0xF5A2,
+0xF5A1,
+0xBAA8,
+0xF4FE,
+0xCBD6,
+0,
+0,
+0,
+0xF5A4,
+0xC0D2,
+0,
+0xB3EA,
+0,
+0xCDAA,
+0xF5A5,
+0xF5A3,
+0xBDB4,
+0xF5A8,
+0,
+0xF5A9,
+0xBDCD,
+0xC3B8,
+0xBFE1,
+0xCBE1,
+0xF5AA,
+0,
+0,
+0,
+0xF5A6,
+0xF5A7,
+0xC4F0,
+0,
+0,
+0,
+0,
+0,
+0xF5AC,
+0,
+0xB4BC,
+0,
+0xD7ED,
+0,
+0xB4D7,
+0xF5AB,
+0xF5AE,
+0,
+0,
+0xF5AD,
+0xF5AF,
+0xD0D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC3D1,
+0xC8A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5B0,
+0xF5B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5B2,
+0,
+0,
+0xF5B3,
+0xF5B4,
+0xF5B5,
+0,
+0,
+0,
+0,
+0xF5B7,
+0xF5B6,
+0,
+0,
+0,
+0,
+0xF5B8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB2C9,
+0,
+0xD3D4,
+0xCACD,
+0,
+0xC0EF,
+0xD6D8,
+0xD2B0,
+0xC1BF,
+0,
+0xBDF0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB8AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBCF8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6C8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6C9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6CB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7E9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6CE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEC4,
+0xEEC5,
+0xEEC6,
+0xD5EB,
+0xB6A4,
+0xEEC8,
+0xEEC7,
+0xEEC9,
+0xEECA,
+0xC7A5,
+0xEECB,
+0xEECC,
+0,
+0xB7B0,
+0xB5F6,
+0xEECD,
+0xEECF,
+0,
+0xEECE,
+0,
+0xB8C6,
+0xEED0,
+0xEED1,
+0xEED2,
+0xB6DB,
+0xB3AE,
+0xD6D3,
+0xC4C6,
+0xB1B5,
+0xB8D6,
+0xEED3,
+0xEED4,
+0xD4BF,
+0xC7D5,
+0xBEFB,
+0xCED9,
+0xB9B3,
+0xEED6,
+0xEED5,
+0xEED8,
+0xEED7,
+0xC5A5,
+0xEED9,
+0xEEDA,
+0xC7AE,
+0xEEDB,
+0xC7AF,
+0xEEDC,
+0xB2A7,
+0xEEDD,
+0xEEDE,
+0xEEDF,
+0xEEE0,
+0xEEE1,
+0xD7EA,
+0xEEE2,
+0xEEE3,
+0xBCD8,
+0xEEE4,
+0xD3CB,
+0xCCFA,
+0xB2AC,
+0xC1E5,
+0xEEE5,
+0xC7A6,
+0xC3AD,
+0,
+0xEEE6,
+0xEEE7,
+0xEEE8,
+0xEEE9,
+0xEEEA,
+0xEEEB,
+0xEEEC,
+0,
+0xEEED,
+0xEEEE,
+0xEEEF,
+0,
+0,
+0xEEF0,
+0xEEF1,
+0xEEF2,
+0xEEF4,
+0xEEF3,
+0,
+0xEEF5,
+0xCDAD,
+0xC2C1,
+0xEEF6,
+0xEEF7,
+0xEEF8,
+0xD5A1,
+0xEEF9,
+0xCFB3,
+0xEEFA,
+0xEEFB,
+0,
+0xEEFC,
+0xEEFD,
+0xEFA1,
+0xEEFE,
+0xEFA2,
+0xB8F5,
+0xC3FA,
+0xEFA3,
+0xEFA4,
+0xBDC2,
+0xD2BF,
+0xB2F9,
+0xEFA5,
+0xEFA6,
+0xEFA7,
+0xD2F8,
+0xEFA8,
+0xD6FD,
+0xEFA9,
+0xC6CC,
+0,
+0xEFAA,
+0xEFAB,
+0xC1B4,
+0xEFAC,
+0xCFFA,
+0xCBF8,
+0xEFAE,
+0xEFAD,
+0xB3FA,
+0xB9F8,
+0xEFAF,
+0xEFB0,
+0xD0E2,
+0xEFB1,
+0xEFB2,
+0xB7E6,
+0xD0BF,
+0xEFB3,
+0xEFB4,
+0xEFB5,
+0xC8F1,
+0xCCE0,
+0xEFB6,
+0xEFB7,
+0xEFB8,
+0xEFB9,
+0xEFBA,
+0xD5E0,
+0xEFBB,
+0xB4ED,
+0xC3AA,
+0xEFBC,
+0,
+0xEFBD,
+0xEFBE,
+0xEFBF,
+0,
+0xCEFD,
+0xEFC0,
+0xC2E0,
+0xB4B8,
+0xD7B6,
+0xBDF5,
+0,
+0xCFC7,
+0xEFC3,
+0xEFC1,
+0xEFC2,
+0xEFC4,
+0xB6A7,
+0xBCFC,
+0xBEE2,
+0xC3CC,
+0xEFC5,
+0xEFC6,
+0,
+0xEFC7,
+0xEFCF,
+0xEFC8,
+0xEFC9,
+0xEFCA,
+0xC7C2,
+0xEFF1,
+0xB6CD,
+0xEFCB,
+0,
+0xEFCC,
+0xEFCD,
+0xB6C6,
+0xC3BE,
+0xEFCE,
+0,
+0xEFD0,
+0xEFD1,
+0xEFD2,
+0xD5F2,
+0,
+0xEFD3,
+0xC4F7,
+0,
+0xEFD4,
+0xC4F8,
+0xEFD5,
+0xEFD6,
+0xB8E4,
+0xB0F7,
+0xEFD7,
+0xEFD8,
+0xEFD9,
+0,
+0xEFDA,
+0xEFDB,
+0xEFDC,
+0xEFDD,
+0,
+0xEFDE,
+0xBEB5,
+0xEFE1,
+0xEFDF,
+0xEFE0,
+0,
+0xEFE2,
+0xEFE3,
+0xC1CD,
+0xEFE4,
+0xEFE5,
+0xEFE6,
+0xEFE7,
+0xEFE8,
+0xEFE9,
+0xEFEA,
+0xEFEB,
+0xEFEC,
+0xC0D8,
+0,
+0xEFED,
+0xC1AD,
+0xEFEE,
+0xEFEF,
+0xEFF0,
+0,
+0,
+0xCFE2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB3A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC3C5,
+0xE3C5,
+0xC9C1,
+0xE3C6,
+0,
+0xB1D5,
+0xCECA,
+0xB4B3,
+0xC8F2,
+0xE3C7,
+0xCFD0,
+0xE3C8,
+0xBCE4,
+0xE3C9,
+0xE3CA,
+0xC3C6,
+0xD5A2,
+0xC4D6,
+0xB9EB,
+0xCEC5,
+0xE3CB,
+0xC3F6,
+0xE3CC,
+0,
+0xB7A7,
+0xB8F3,
+0xBAD2,
+0xE3CD,
+0xE3CE,
+0xD4C4,
+0xE3CF,
+0,
+0xE3D0,
+0xD1CB,
+0xE3D1,
+0xE3D2,
+0xE3D3,
+0xE3D4,
+0xD1D6,
+0xE3D5,
+0xB2FB,
+0xC0BB,
+0xE3D6,
+0,
+0xC0AB,
+0xE3D7,
+0xE3D8,
+0xE3D9,
+0,
+0xE3DA,
+0xE3DB,
+0,
+0xB8B7,
+0xDAE2,
+0,
+0xB6D3,
+0,
+0xDAE4,
+0xDAE3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAE6,
+0,
+0,
+0,
+0xC8EE,
+0,
+0,
+0xDAE5,
+0xB7C0,
+0xD1F4,
+0xD2F5,
+0xD5F3,
+0xBDD7,
+0,
+0,
+0,
+0,
+0xD7E8,
+0xDAE8,
+0xDAE7,
+0,
+0xB0A2,
+0xCDD3,
+0,
+0xDAE9,
+0,
+0xB8BD,
+0xBCCA,
+0xC2BD,
+0xC2A4,
+0xB3C2,
+0xDAEA,
+0,
+0xC2AA,
+0xC4B0,
+0xBDB5,
+0,
+0,
+0xCFDE,
+0,
+0,
+0,
+0xDAEB,
+0xC9C2,
+0,
+0,
+0,
+0,
+0,
+0xB1DD,
+0,
+0,
+0,
+0xDAEC,
+0,
+0xB6B8,
+0xD4BA,
+0,
+0xB3FD,
+0,
+0,
+0xDAED,
+0xD4C9,
+0xCFD5,
+0xC5E3,
+0,
+0xDAEE,
+0,
+0,
+0,
+0,
+0,
+0xDAEF,
+0,
+0xDAF0,
+0xC1EA,
+0xCCD5,
+0xCFDD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3E7,
+0xC2A1,
+0,
+0xDAF1,
+0,
+0,
+0xCBE5,
+0,
+0xDAF2,
+0,
+0xCBE6,
+0xD2FE,
+0,
+0,
+0,
+0xB8F4,
+0,
+0,
+0xDAF3,
+0xB0AF,
+0xCFB6,
+0,
+0,
+0xD5CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAF4,
+0,
+0,
+0xE3C4,
+0,
+0,
+0xC1A5,
+0,
+0,
+0xF6BF,
+0,
+0,
+0xF6C0,
+0xF6C1,
+0xC4D1,
+0,
+0xC8B8,
+0xD1E3,
+0,
+0,
+0xD0DB,
+0xD1C5,
+0xBCAF,
+0xB9CD,
+0,
+0xEFF4,
+0,
+0,
+0xB4C6,
+0xD3BA,
+0xF6C2,
+0xB3FB,
+0,
+0,
+0xF6C3,
+0,
+0,
+0xB5F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3EA,
+0xF6A7,
+0xD1A9,
+0,
+0,
+0,
+0,
+0xF6A9,
+0,
+0,
+0,
+0xF6A8,
+0,
+0,
+0xC1E3,
+0xC0D7,
+0,
+0xB1A2,
+0,
+0,
+0,
+0,
+0xCEED,
+0,
+0xD0E8,
+0xF6AB,
+0,
+0,
+0xCFF6,
+0,
+0xF6AA,
+0xD5F0,
+0xF6AC,
+0xC3B9,
+0,
+0,
+0,
+0xBBF4,
+0xF6AE,
+0xF6AD,
+0,
+0,
+0,
+0xC4DE,
+0,
+0,
+0xC1D8,
+0,
+0,
+0,
+0,
+0,
+0xCBAA,
+0,
+0xCFBC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6AF,
+0,
+0,
+0xF6B0,
+0,
+0,
+0xF6B1,
+0,
+0xC2B6,
+0,
+0,
+0,
+0,
+0,
+0xB0D4,
+0xC5F9,
+0,
+0,
+0,
+0,
+0xF6B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC7E0,
+0xF6A6,
+0,
+0,
+0xBEB8,
+0,
+0,
+0xBEB2,
+0,
+0xB5E5,
+0,
+0,
+0xB7C7,
+0,
+0xBFBF,
+0xC3D2,
+0xC3E6,
+0,
+0,
+0xD8CC,
+0,
+0,
+0,
+0xB8EF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBDF9,
+0xD1A5,
+0,
+0xB0D0,
+0,
+0,
+0,
+0,
+0,
+0xF7B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7B1,
+0,
+0,
+0,
+0,
+0,
+0xD0AC,
+0,
+0xB0B0,
+0,
+0,
+0,
+0xF7B2,
+0xF7B3,
+0,
+0xF7B4,
+0,
+0,
+0,
+0xC7CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xBECF,
+0,
+0,
+0xF7B7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7B6,
+0,
+0xB1DE,
+0,
+0xF7B5,
+0,
+0,
+0xF7B8,
+0,
+0xF7B9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEA4,
+0xC8CD,
+0,
+0xBAAB,
+0xE8B8,
+0xE8B9,
+0xE8BA,
+0xBEC2,
+0,
+0,
+0,
+0,
+0,
+0xD2F4,
+0,
+0xD4CF,
+0xC9D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD2B3,
+0xB6A5,
+0xC7EA,
+0xF1FC,
+0xCFEE,
+0xCBB3,
+0xD0EB,
+0xE7EF,
+0xCDE7,
+0xB9CB,
+0xB6D9,
+0xF1FD,
+0xB0E4,
+0xCBCC,
+0xF1FE,
+0xD4A4,
+0xC2AD,
+0xC1EC,
+0xC6C4,
+0xBEB1,
+0xF2A1,
+0xBCD5,
+0,
+0xF2A2,
+0xF2A3,
+0,
+0xF2A4,
+0xD2C3,
+0xC6B5,
+0,
+0xCDC7,
+0xF2A5,
+0,
+0xD3B1,
+0xBFC5,
+0xCCE2,
+0,
+0xF2A6,
+0xF2A7,
+0xD1D5,
+0xB6EE,
+0xF2A8,
+0xF2A9,
+0xB5DF,
+0xF2AA,
+0xF2AB,
+0,
+0xB2FC,
+0xF2AC,
+0xF2AD,
+0xC8A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB7E7,
+0,
+0,
+0xECA9,
+0xECAA,
+0xECAB,
+0,
+0xECAC,
+0,
+0,
+0xC6AE,
+0xECAD,
+0xECAE,
+0,
+0,
+0,
+0xB7C9,
+0xCAB3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2B8,
+0xF7CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7D0,
+0,
+0,
+0xB2CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7D3,
+0xF7D2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2BB,
+0,
+0xBCA2,
+0,
+0xE2BC,
+0xE2BD,
+0xE2BE,
+0xE2BF,
+0xE2C0,
+0xE2C1,
+0xB7B9,
+0xD2FB,
+0xBDA4,
+0xCACE,
+0xB1A5,
+0xCBC7,
+0,
+0xE2C2,
+0xB6FC,
+0xC8C4,
+0xE2C3,
+0,
+0,
+0xBDC8,
+0,
+0xB1FD,
+0xE2C4,
+0,
+0xB6F6,
+0xE2C5,
+0xC4D9,
+0,
+0,
+0xE2C6,
+0xCFDA,
+0xB9DD,
+0xE2C7,
+0xC0A1,
+0,
+0xE2C8,
+0xB2F6,
+0,
+0xE2C9,
+0,
+0xC1F3,
+0xE2CA,
+0xE2CB,
+0xC2F8,
+0xE2CC,
+0xE2CD,
+0xE2CE,
+0xCAD7,
+0xD8B8,
+0xD9E5,
+0xCFE3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0A5,
+0,
+0,
+0xDCB0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC2ED,
+0xD4A6,
+0xCDD4,
+0xD1B1,
+0xB3DB,
+0xC7FD,
+0,
+0xB2B5,
+0xC2BF,
+0xE6E0,
+0xCABB,
+0xE6E1,
+0xE6E2,
+0xBED4,
+0xE6E3,
+0xD7A4,
+0xCDD5,
+0xE6E5,
+0xBCDD,
+0xE6E4,
+0xE6E6,
+0xE6E7,
+0xC2EE,
+0,
+0xBDBE,
+0xE6E8,
+0xC2E6,
+0xBAA7,
+0xE6E9,
+0,
+0xE6EA,
+0xB3D2,
+0xD1E9,
+0,
+0,
+0xBFA5,
+0xE6EB,
+0xC6EF,
+0xE6EC,
+0xE6ED,
+0,
+0,
+0xE6EE,
+0xC6AD,
+0xE6EF,
+0,
+0xC9A7,
+0xE6F0,
+0xE6F1,
+0xE6F2,
+0xE5B9,
+0xE6F3,
+0xE6F4,
+0xC2E2,
+0xE6F5,
+0xE6F6,
+0xD6E8,
+0xE6F7,
+0,
+0xE6F8,
+0xB9C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7BB,
+0xF7BA,
+0,
+0,
+0,
+0,
+0xF7BE,
+0xF7BC,
+0xBAA1,
+0,
+0xF7BF,
+0,
+0xF7C0,
+0,
+0,
+0,
+0xF7C2,
+0xF7C1,
+0xF7C4,
+0,
+0,
+0xF7C3,
+0,
+0,
+0,
+0,
+0,
+0xF7C5,
+0xF7C6,
+0,
+0,
+0,
+0,
+0xF7C7,
+0,
+0xCBE8,
+0,
+0,
+0,
+0,
+0xB8DF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7D4,
+0,
+0xF7D5,
+0,
+0,
+0,
+0,
+0xF7D6,
+0,
+0,
+0,
+0,
+0xF7D8,
+0,
+0xF7DA,
+0,
+0xF7D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7DB,
+0,
+0xF7D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7D7,
+0,
+0,
+0,
+0,
+0xF7DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7DD,
+0,
+0,
+0,
+0xF7DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7DF,
+0,
+0,
+0,
+0xF7E0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBCB,
+0,
+0,
+0xD8AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5F7,
+0xB9ED,
+0,
+0,
+0,
+0,
+0xBFFD,
+0xBBEA,
+0xF7C9,
+0xC6C7,
+0xF7C8,
+0,
+0xF7CA,
+0xF7CC,
+0xF7CB,
+0,
+0,
+0,
+0xF7CD,
+0,
+0xCEBA,
+0,
+0xF7CE,
+0,
+0,
+0xC4A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3E3,
+0,
+0,
+0xF6CF,
+0,
+0xC2B3,
+0xF6D0,
+0,
+0,
+0xF6D1,
+0xF6D2,
+0xF6D3,
+0xF6D4,
+0,
+0,
+0xF6D6,
+0,
+0xB1AB,
+0xF6D7,
+0,
+0xF6D8,
+0xF6D9,
+0xF6DA,
+0,
+0xF6DB,
+0xF6DC,
+0,
+0,
+0,
+0,
+0xF6DD,
+0xF6DE,
+0xCFCA,
+0,
+0xF6DF,
+0xF6E0,
+0xF6E1,
+0xF6E2,
+0xF6E3,
+0xF6E4,
+0xC0F0,
+0xF6E5,
+0xF6E6,
+0xF6E7,
+0xF6E8,
+0xF6E9,
+0,
+0xF6EA,
+0,
+0xF6EB,
+0xF6EC,
+0,
+0xF6ED,
+0xF6EE,
+0xF6EF,
+0xF6F0,
+0xF6F1,
+0xF6F2,
+0xF6F3,
+0xF6F4,
+0xBEA8,
+0,
+0xF6F5,
+0xF6F6,
+0xF6F7,
+0xF6F8,
+0,
+0,
+0,
+0,
+0,
+0xC8FA,
+0xF6F9,
+0xF6FA,
+0xF6FB,
+0xF6FC,
+0,
+0,
+0xF6FD,
+0xF6FE,
+0xF7A1,
+0xF7A2,
+0xF7A3,
+0xF7A4,
+0xF7A5,
+0,
+0,
+0xF7A6,
+0xF7A7,
+0xF7A8,
+0xB1EE,
+0xF7A9,
+0xF7AA,
+0xF7AB,
+0,
+0,
+0xF7AC,
+0xF7AD,
+0xC1DB,
+0xF7AE,
+0,
+0,
+0xF7AF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC4F1,
+0xF0AF,
+0xBCA6,
+0xF0B0,
+0xC3F9,
+0,
+0xC5B8,
+0xD1BB,
+0,
+0xF0B1,
+0xF0B2,
+0xF0B3,
+0xF0B4,
+0xF0B5,
+0xD1BC,
+0,
+0xD1EC,
+0,
+0xF0B7,
+0xF0B6,
+0xD4A7,
+0,
+0xCDD2,
+0xF0B8,
+0xF0BA,
+0xF0B9,
+0xF0BB,
+0xF0BC,
+0,
+0,
+0xB8EB,
+0xF0BD,
+0xBAE8,
+0,
+0xF0BE,
+0xF0BF,
+0xBEE9,
+0xF0C0,
+0xB6EC,
+0xF0C1,
+0xF0C2,
+0xF0C3,
+0xF0C4,
+0xC8B5,
+0xF0C5,
+0xF0C6,
+0,
+0xF0C7,
+0xC5F4,
+0,
+0xF0C8,
+0,
+0,
+0,
+0xF0C9,
+0,
+0xF0CA,
+0xF7BD,
+0,
+0xF0CB,
+0xF0CC,
+0xF0CD,
+0,
+0xF0CE,
+0,
+0,
+0,
+0,
+0xF0CF,
+0xBAD7,
+0,
+0xF0D0,
+0xF0D1,
+0xF0D2,
+0xF0D3,
+0xF0D4,
+0xF0D5,
+0xF0D6,
+0xF0D8,
+0,
+0,
+0xD3A5,
+0xF0D7,
+0,
+0xF0D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5BA,
+0xC2B9,
+0,
+0,
+0xF7E4,
+0,
+0,
+0,
+0,
+0xF7E5,
+0xF7E6,
+0,
+0,
+0xF7E7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7E8,
+0xC2B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7EA,
+0,
+0xF7EB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC2F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4F0,
+0,
+0,
+0,
+0xF4EF,
+0,
+0,
+0xC2E9,
+0,
+0xF7E1,
+0xF7E2,
+0,
+0,
+0,
+0,
+0,
+0xBBC6,
+0,
+0,
+0,
+0,
+0xD9E4,
+0,
+0,
+0,
+0xCAF2,
+0xC0E8,
+0xF0A4,
+0,
+0xBADA,
+0,
+0,
+0xC7AD,
+0,
+0,
+0,
+0xC4AC,
+0,
+0,
+0xF7EC,
+0xF7ED,
+0xF7EE,
+0,
+0xF7F0,
+0xF7EF,
+0,
+0xF7F1,
+0,
+0,
+0xF7F4,
+0,
+0xF7F3,
+0,
+0xF7F2,
+0xF7F5,
+0,
+0,
+0,
+0,
+0xF7F6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDE9,
+0,
+0xEDEA,
+0xEDEB,
+0,
+0xF6BC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6BD,
+0,
+0xF6BE,
+0xB6A6,
+0,
+0xD8BE,
+0,
+0,
+0xB9C4,
+0,
+0,
+0,
+0xD8BB,
+0,
+0xDCB1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAF3,
+0,
+0xF7F7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7F8,
+0,
+0,
+0xF7F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7FB,
+0,
+0xF7FA,
+0,
+0xB1C7,
+0,
+0xF7FC,
+0xF7FD,
+0,
+0,
+0,
+0,
+0,
+0xF7FE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC6EB,
+0xECB4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB3DD,
+0xF6B3,
+0,
+0,
+0xF6B4,
+0xC1E4,
+0xF6B5,
+0xF6B6,
+0xF6B7,
+0xF6B8,
+0xF6B9,
+0xF6BA,
+0xC8A3,
+0xF6BB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xC1FA,
+0xB9A8,
+0xEDE8,
+0,
+0,
+0,
+0xB9EA,
+0xD9DF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA3A1,
+0xA3A2,
+0xA3A3,
+0xA1E7,
+0xA3A5,
+0xA3A6,
+0xA3A7,
+0xA3A8,
+0xA3A9,
+0xA3AA,
+0xA3AB,
+0xA3AC,
+0xA3AD,
+0xA3AE,
+0xA3AF,
+0xA3B0,
+0xA3B1,
+0xA3B2,
+0xA3B3,
+0xA3B4,
+0xA3B5,
+0xA3B6,
+0xA3B7,
+0xA3B8,
+0xA3B9,
+0xA3BA,
+0xA3BB,
+0xA3BC,
+0xA3BD,
+0xA3BE,
+0xA3BF,
+0xA3C0,
+0xA3C1,
+0xA3C2,
+0xA3C3,
+0xA3C4,
+0xA3C5,
+0xA3C6,
+0xA3C7,
+0xA3C8,
+0xA3C9,
+0xA3CA,
+0xA3CB,
+0xA3CC,
+0xA3CD,
+0xA3CE,
+0xA3CF,
+0xA3D0,
+0xA3D1,
+0xA3D2,
+0xA3D3,
+0xA3D4,
+0xA3D5,
+0xA3D6,
+0xA3D7,
+0xA3D8,
+0xA3D9,
+0xA3DA,
+0xA3DB,
+0xA3DC,
+0xA3DD,
+0xA3DE,
+0xA3DF,
+0xA3E0,
+0xA3E1,
+0xA3E2,
+0xA3E3,
+0xA3E4,
+0xA3E5,
+0xA3E6,
+0xA3E7,
+0xA3E8,
+0xA3E9,
+0xA3EA,
+0xA3EB,
+0xA3EC,
+0xA3ED,
+0xA3EE,
+0xA3EF,
+0xA3F0,
+0xA3F1,
+0xA3F2,
+0xA3F3,
+0xA3F4,
+0xA3F5,
+0xA3F6,
+0xA3F7,
+0xA3F8,
+0xA3F9,
+0xA3FA,
+0xA3FB,
+0xA3FC,
+0xA3FD,
+0xA1AB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1E9,
+0xA1EA,
+0,
+0xA3FE,
+0,
+0xA3A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0
+};
+static CONST USHORT from_unicode_map[256] = {
+256,
+512,
+768,
+1024,
+1280,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+1536,
+1792,
+2048,
+2304,
+2560,
+2816,
+3072,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+3328,
+3584,
+3840,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+4096,
+4352,
+4608,
+4864,
+5120,
+5376,
+5632,
+5888,
+6144,
+6400,
+6656,
+6912,
+7168,
+7424,
+7680,
+7936,
+8192,
+8448,
+8704,
+8960,
+9216,
+9472,
+9728,
+9984,
+10240,
+10496,
+10752,
+11008,
+11264,
+11520,
+11776,
+12032,
+12288,
+12544,
+12800,
+13056,
+13312,
+13568,
+13824,
+14080,
+14336,
+14592,
+14848,
+15104,
+15360,
+15616,
+15872,
+16128,
+16384,
+16640,
+16896,
+17152,
+17408,
+17664,
+17920,
+18176,
+18432,
+18688,
+18944,
+19200,
+19456,
+19712,
+19968,
+20224,
+20480,
+20736,
+20992,
+21248,
+21504,
+21760,
+22016,
+22272,
+22528,
+22784,
+23040,
+23296,
+23552,
+23808,
+24064,
+0,
+24320,
+24576,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+24832,
+};
diff --git a/src/intl/cs_jis.c b/src/intl/cs_jis.c
new file mode 100644
index 0000000000..21f41a155e
--- /dev/null
+++ b/src/intl/cs_jis.c
@@ -0,0 +1,89 @@
+/*
+ *      PROGRAM:        InterBase International support
+ *      MODULE:         cs_jis.c
+ *      DESCRIPTION:    Character Set definitions for JIS family.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+
+extern USHORT CV_wc_to_wc();
+extern USHORT CVJIS_sjis_to_unicode();
+extern USHORT CVJIS_unicode_to_sjis();
+extern USHORT CVJIS_eucj_to_unicode();
+extern USHORT CVJIS_unicode_to_eucj();
+
+
+
+CHARSET_ENTRY(CS_jis_0208_1990)
+{
+	static CONST WCHAR space = 0x0020;
+
+#include "../intl/cs_jis_0208_1990.h"
+
+	csptr->charset_version = 40;
+	csptr->charset_id = CS_JIS_0208;
+	csptr->charset_name = (ASCII *) "JIS_0208_1990";
+	csptr->charset_flags = 0;
+	csptr->charset_min_bytes_per_char = 2;
+	csptr->charset_max_bytes_per_char = 2;
+	csptr->charset_space_length = 2;
+	csptr->charset_space_character = (BYTE *) & space;	/* 0x20 */
+	csptr->charset_well_formed = (FPTR_SHORT) NULL;
+
+	CV_convert_init(&csptr->charset_to_unicode, CS_UNICODE101, CS_JIS_0208,
+					CV_wc_to_wc, to_unicode_mapping_array, to_unicode_map);
+	CV_convert_init(&csptr->charset_from_unicode, CS_JIS_0208, CS_UNICODE101,
+					CV_wc_to_wc, from_unicode_mapping_array,
+					from_unicode_map);
+	CHARSET_RETURN;
+}
+
+
+CHARSET_ENTRY(CS_sjis)
+{
+	CS_jis_0208_1990(csptr, cs_id, dummy);
+	csptr->charset_id = CS_SJIS;
+	csptr->charset_name = (ASCII *) "SJIS";
+	csptr->charset_min_bytes_per_char = 1;
+	csptr->charset_space_length = 1;
+	csptr->charset_space_character = (BYTE *) " ";	/* 0x20 */
+	csptr->charset_to_unicode.csconvert_from = CS_SJIS;
+	csptr->charset_to_unicode.csconvert_convert = CVJIS_sjis_to_unicode;
+	csptr->charset_from_unicode.csconvert_to = CS_SJIS;
+	csptr->charset_from_unicode.csconvert_convert = CVJIS_unicode_to_sjis;
+	CHARSET_RETURN;
+}
+
+
+CHARSET_ENTRY(CS_euc_j)
+{
+	CS_jis_0208_1990(csptr, cs_id, dummy);
+	csptr->charset_id = CS_EUCJ;
+	csptr->charset_name = (ASCII *) "EUC-J";
+	csptr->charset_min_bytes_per_char = 1;
+	csptr->charset_space_length = 1;
+	csptr->charset_space_character = (BYTE *) " ";	/* 0x20 */
+	csptr->charset_to_unicode.csconvert_from = CS_EUCJ;
+	csptr->charset_to_unicode.csconvert_convert = CVJIS_eucj_to_unicode;
+	csptr->charset_from_unicode.csconvert_to = CS_EUCJ;
+	csptr->charset_from_unicode.csconvert_convert = CVJIS_unicode_to_eucj;
+	CHARSET_RETURN;
+}
diff --git a/src/intl/cs_jis_0208_1990.h b/src/intl/cs_jis_0208_1990.h
new file mode 100644
index 0000000000..5df668eebb
--- /dev/null
+++ b/src/intl/cs_jis_0208_1990.h
@@ -0,0 +1,44888 @@
+/* -------------------------------------------- 
+    THIS FILE WAS GENERATED BY intl/mapgen4.c
+    mapgen4 -condense -sjis asia/JIS/JIS0208.TXT 
+
+   Unicode mapping table generated from file asia/JIS/JIS0208.TXT 
+
+#
+#	Name:             JIS X 0208 (1990) to Unicode
+#	Unicode version:  1.1
+#	Table version:    0.9
+#	Table format:     Format A
+#	Date:             8 March 1994
+#	Authors:          Glenn Adams <glenn@metis.com>
+#                     John H. Jenkins <John_Jenkins@taligent.com>
+#
+#
+#	This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
+#	No claims are made as to fitness for any particular purpose.  No
+#	warranties of any kind are expressed or implied.  The recipient
+#	agrees to determine applicability of information provided.  If this
+#	file has been provided on magnetic media by Unicode, Inc., the sole
+#	remedy for any claim will be exchange of defective media within 90
+#	days of receipt.
+#
+#	Recipient is granted the right to make copies in any form for
+#	internal distribution and to freely use the information supplied
+#	in the creation of products supporting Unicode.  Unicode, Inc.
+#	specifically excludes the right to re-distribute this file directly
+#	to third parties or other organizations whether for profit or not.
+#
+#	General notes:
+#
+#	The following algorithms can be used to change the hex form
+#		of JIS 0208 to other standard forms:
+#
+#		To change hex to EUC form, add 0x8080
+#		To change hex to kuten form, first subtract 0x2020.  Then
+#			the high and low bytes correspond to the ku and ten of
+#			the kuten form.  For example, 0x2121 -> 0x0101 -> 0101;
+#			0x7426 -> 0x5406 -> 8406
+#
+#   The kanji mappings are a normative part of ISO/IEC 10646.  The
+#       non-kanji mappings are provisional, pending definition of
+#       official mappings by Japanese standards bodies
+#
+#	Any comments or problems, contact <John_Jenkins@taligent.com>
+* The contents of this file are subject to the Interbase Public
+* License Version 1.0 (the "License"); you may not use this file
+* except in compliance with the License. You may obtain a copy
+* of the License at http://www.Inprise.com/IPL.html
+*
+* Software distributed under the License is distributed on an
+* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+* or implied. See the License for the specific language governing
+* rights and limitations under the License.
+*
+* The Original Code was created by Inprise Corporation
+* and its predecessors. Portions created by Inprise Corporation are
+* Copyright (C) Inprise Corporation.
+*
+* All Rights Reserved.
+* Contributor(s): ______________________________________.
+  -------------------------------------------- */
+
+/*
+   TMN: 02 Aug 2000
+    Preprocessed and stripped lots of comments from this file.
+    The original file can be found in the InterBase 6.0 source
+    archive at www.interbase.com.
+    The following macro was expanded during the preprocessing of this file.
+
+#ifndef UNICODE_REPLACEMENT_CHARACTER
+#define UNICODE_REPLACEMENT_CHARACTER 0xFFFD
+#endif
+*/
+
+static CONST USHORT FAR_VARIABLE to_unicode_mapping_array[] = {
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0000,
+0x0001,
+0x0002,
+0x0003,
+0x0004,
+0x0005,
+0x0006,
+0x0007,
+0x0008,
+0x0009,
+0x000A,
+0x000B,
+0x000C,
+0x000D,
+0x000E,
+0x000F,
+0x0010,
+0x0011,
+0x0012,
+0x0013,
+0x0014,
+0x0015,
+0x0016,
+0x0017,
+0x0018,
+0x0019,
+0x001A,
+0x001B,
+0x001C,
+0x001D,
+0x001E,
+0x001F,
+0x0020,
+0x0021,
+0x0022,
+0x0023,
+0x0024,
+0x0025,
+0x0026,
+0x0027,
+0x0028,
+0x0029,
+0x002A,
+0x002B,
+0x002C,
+0x002D,
+0x002E,
+0x002F,
+0x0030,
+0x0031,
+0x0032,
+0x0033,
+0x0034,
+0x0035,
+0x0036,
+0x0037,
+0x0038,
+0x0039,
+0x003A,
+0x003B,
+0x003C,
+0x003D,
+0x003E,
+0x003F,
+0x0040,
+0x0041,
+0x0042,
+0x0043,
+0x0044,
+0x0045,
+0x0046,
+0x0047,
+0x0048,
+0x0049,
+0x004A,
+0x004B,
+0x004C,
+0x004D,
+0x004E,
+0x004F,
+0x0050,
+0x0051,
+0x0052,
+0x0053,
+0x0054,
+0x0055,
+0x0056,
+0x0057,
+0x0058,
+0x0059,
+0x005A,
+0x005B,
+0x005C,
+0x005D,
+0x005E,
+0x005F,
+0x0060,
+0x0061,
+0x0062,
+0x0063,
+0x0064,
+0x0065,
+0x0066,
+0x0067,
+0x0068,
+0x0069,
+0x006A,
+0x006B,
+0x006C,
+0x006D,
+0x006E,
+0x006F,
+0x0070,
+0x0071,
+0x0072,
+0x0073,
+0x0074,
+0x0075,
+0x0076,
+0x0077,
+0x0078,
+0x0079,
+0x007A,
+0x007B,
+0x007C,
+0x007D,
+0x007E,
+0x007F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x3000,
+0x3001,
+0x3002,
+0xFF0C,
+0xFF0E,
+0x30FB,
+0xFF1A,
+0xFF1B,
+0xFF1F,
+0xFF01,
+0x309B,
+0x309C,
+0x00B4,
+0xFF40,
+0x00A8,
+0xFF3E,
+0xFFE3,
+0xFF3F,
+0x30FD,
+0x30FE,
+0x309D,
+0x309E,
+0x3003,
+0x4EDD,
+0x3005,
+0x3006,
+0x3007,
+0x30FC,
+0x2015,
+0x2010,
+0xFF0F,
+0x005C,
+0x301C,
+0x2016,
+0xFF5C,
+0x2026,
+0x2025,
+0x2018,
+0x2019,
+0x201C,
+0x201D,
+0xFF08,
+0xFF09,
+0x3014,
+0x3015,
+0xFF3B,
+0xFF3D,
+0xFF5B,
+0xFF5D,
+0x3008,
+0x3009,
+0x300A,
+0x300B,
+0x300C,
+0x300D,
+0x300E,
+0x300F,
+0x3010,
+0x3011,
+0xFF0B,
+0x2212,
+0x00B1,
+0x00D7,
+0x00F7,
+0xFF1D,
+0x2260,
+0xFF1C,
+0xFF1E,
+0x2266,
+0x2267,
+0x221E,
+0x2234,
+0x2642,
+0x2640,
+0x00B0,
+0x2032,
+0x2033,
+0x2103,
+0xFFE5,
+0xFF04,
+0x00A2,
+0x00A3,
+0xFF05,
+0xFF03,
+0xFF06,
+0xFF0A,
+0xFF20,
+0x00A7,
+0x2606,
+0x2605,
+0x25CB,
+0x25CF,
+0x25CE,
+0x25C7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x25C6,
+0x25A1,
+0x25A0,
+0x25B3,
+0x25B2,
+0x25BD,
+0x25BC,
+0x203B,
+0x3012,
+0x2192,
+0x2190,
+0x2191,
+0x2193,
+0x3013,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x2208,
+0x220B,
+0x2286,
+0x2287,
+0x2282,
+0x2283,
+0x222A,
+0x2229,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x2227,
+0x2228,
+0x00AC,
+0x21D2,
+0x21D4,
+0x2200,
+0x2203,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x2220,
+0x22A5,
+0x2312,
+0x2202,
+0x2207,
+0x2261,
+0x2252,
+0x226A,
+0x226B,
+0x221A,
+0x223D,
+0x221D,
+0x2235,
+0x222B,
+0x222C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x212B,
+0x2030,
+0x266F,
+0x266D,
+0x266A,
+0x2020,
+0x2021,
+0x00B6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x25EF,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFF10,
+0xFF11,
+0xFF12,
+0xFF13,
+0xFF14,
+0xFF15,
+0xFF16,
+0xFF17,
+0xFF18,
+0xFF19,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFF21,
+0xFF22,
+0xFF23,
+0xFF24,
+0xFF25,
+0xFF26,
+0xFF27,
+0xFF28,
+0xFF29,
+0xFF2A,
+0xFF2B,
+0xFF2C,
+0xFF2D,
+0xFF2E,
+0xFF2F,
+0xFF30,
+0xFF31,
+0xFF32,
+0xFF33,
+0xFF34,
+0xFF35,
+0xFF36,
+0xFF37,
+0xFF38,
+0xFF39,
+0xFF3A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFF41,
+0xFF42,
+0xFF43,
+0xFF44,
+0xFF45,
+0xFF46,
+0xFF47,
+0xFF48,
+0xFF49,
+0xFF4A,
+0xFF4B,
+0xFF4C,
+0xFF4D,
+0xFF4E,
+0xFF4F,
+0xFF50,
+0xFF51,
+0xFF52,
+0xFF53,
+0xFF54,
+0xFF55,
+0xFF56,
+0xFF57,
+0xFF58,
+0xFF59,
+0xFF5A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x3041,
+0x3042,
+0x3043,
+0x3044,
+0x3045,
+0x3046,
+0x3047,
+0x3048,
+0x3049,
+0x304A,
+0x304B,
+0x304C,
+0x304D,
+0x304E,
+0x304F,
+0x3050,
+0x3051,
+0x3052,
+0x3053,
+0x3054,
+0x3055,
+0x3056,
+0x3057,
+0x3058,
+0x3059,
+0x305A,
+0x305B,
+0x305C,
+0x305D,
+0x305E,
+0x305F,
+0x3060,
+0x3061,
+0x3062,
+0x3063,
+0x3064,
+0x3065,
+0x3066,
+0x3067,
+0x3068,
+0x3069,
+0x306A,
+0x306B,
+0x306C,
+0x306D,
+0x306E,
+0x306F,
+0x3070,
+0x3071,
+0x3072,
+0x3073,
+0x3074,
+0x3075,
+0x3076,
+0x3077,
+0x3078,
+0x3079,
+0x307A,
+0x307B,
+0x307C,
+0x307D,
+0x307E,
+0x307F,
+0x3080,
+0x3081,
+0x3082,
+0x3083,
+0x3084,
+0x3085,
+0x3086,
+0x3087,
+0x3088,
+0x3089,
+0x308A,
+0x308B,
+0x308C,
+0x308D,
+0x308E,
+0x308F,
+0x3090,
+0x3091,
+0x3092,
+0x3093,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x30A1,
+0x30A2,
+0x30A3,
+0x30A4,
+0x30A5,
+0x30A6,
+0x30A7,
+0x30A8,
+0x30A9,
+0x30AA,
+0x30AB,
+0x30AC,
+0x30AD,
+0x30AE,
+0x30AF,
+0x30B0,
+0x30B1,
+0x30B2,
+0x30B3,
+0x30B4,
+0x30B5,
+0x30B6,
+0x30B7,
+0x30B8,
+0x30B9,
+0x30BA,
+0x30BB,
+0x30BC,
+0x30BD,
+0x30BE,
+0x30BF,
+0x30C0,
+0x30C1,
+0x30C2,
+0x30C3,
+0x30C4,
+0x30C5,
+0x30C6,
+0x30C7,
+0x30C8,
+0x30C9,
+0x30CA,
+0x30CB,
+0x30CC,
+0x30CD,
+0x30CE,
+0x30CF,
+0x30D0,
+0x30D1,
+0x30D2,
+0x30D3,
+0x30D4,
+0x30D5,
+0x30D6,
+0x30D7,
+0x30D8,
+0x30D9,
+0x30DA,
+0x30DB,
+0x30DC,
+0x30DD,
+0x30DE,
+0x30DF,
+0x30E0,
+0x30E1,
+0x30E2,
+0x30E3,
+0x30E4,
+0x30E5,
+0x30E6,
+0x30E7,
+0x30E8,
+0x30E9,
+0x30EA,
+0x30EB,
+0x30EC,
+0x30ED,
+0x30EE,
+0x30EF,
+0x30F0,
+0x30F1,
+0x30F2,
+0x30F3,
+0x30F4,
+0x30F5,
+0x30F6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0391,
+0x0392,
+0x0393,
+0x0394,
+0x0395,
+0x0396,
+0x0397,
+0x0398,
+0x0399,
+0x039A,
+0x039B,
+0x039C,
+0x039D,
+0x039E,
+0x039F,
+0x03A0,
+0x03A1,
+0x03A3,
+0x03A4,
+0x03A5,
+0x03A6,
+0x03A7,
+0x03A8,
+0x03A9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x03B1,
+0x03B2,
+0x03B3,
+0x03B4,
+0x03B5,
+0x03B6,
+0x03B7,
+0x03B8,
+0x03B9,
+0x03BA,
+0x03BB,
+0x03BC,
+0x03BD,
+0x03BE,
+0x03BF,
+0x03C0,
+0x03C1,
+0x03C3,
+0x03C4,
+0x03C5,
+0x03C6,
+0x03C7,
+0x03C8,
+0x03C9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0410,
+0x0411,
+0x0412,
+0x0413,
+0x0414,
+0x0415,
+0x0401,
+0x0416,
+0x0417,
+0x0418,
+0x0419,
+0x041A,
+0x041B,
+0x041C,
+0x041D,
+0x041E,
+0x041F,
+0x0420,
+0x0421,
+0x0422,
+0x0423,
+0x0424,
+0x0425,
+0x0426,
+0x0427,
+0x0428,
+0x0429,
+0x042A,
+0x042B,
+0x042C,
+0x042D,
+0x042E,
+0x042F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0430,
+0x0431,
+0x0432,
+0x0433,
+0x0434,
+0x0435,
+0x0451,
+0x0436,
+0x0437,
+0x0438,
+0x0439,
+0x043A,
+0x043B,
+0x043C,
+0x043D,
+0x043E,
+0x043F,
+0x0440,
+0x0441,
+0x0442,
+0x0443,
+0x0444,
+0x0445,
+0x0446,
+0x0447,
+0x0448,
+0x0449,
+0x044A,
+0x044B,
+0x044C,
+0x044D,
+0x044E,
+0x044F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x2500,
+0x2502,
+0x250C,
+0x2510,
+0x2518,
+0x2514,
+0x251C,
+0x252C,
+0x2524,
+0x2534,
+0x253C,
+0x2501,
+0x2503,
+0x250F,
+0x2513,
+0x251B,
+0x2517,
+0x2523,
+0x2533,
+0x252B,
+0x253B,
+0x254B,
+0x2520,
+0x252F,
+0x2528,
+0x2537,
+0x253F,
+0x251D,
+0x2530,
+0x2525,
+0x2538,
+0x2542,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4E9C,
+0x5516,
+0x5A03,
+0x963F,
+0x54C0,
+0x611B,
+0x6328,
+0x59F6,
+0x9022,
+0x8475,
+0x831C,
+0x7A50,
+0x60AA,
+0x63E1,
+0x6E25,
+0x65ED,
+0x8466,
+0x82A6,
+0x9BF5,
+0x6893,
+0x5727,
+0x65A1,
+0x6271,
+0x5B9B,
+0x59D0,
+0x867B,
+0x98F4,
+0x7D62,
+0x7DBE,
+0x9B8E,
+0x6216,
+0x7C9F,
+0x88B7,
+0x5B89,
+0x5EB5,
+0x6309,
+0x6697,
+0x6848,
+0x95C7,
+0x978D,
+0x674F,
+0x4EE5,
+0x4F0A,
+0x4F4D,
+0x4F9D,
+0x5049,
+0x56F2,
+0x5937,
+0x59D4,
+0x5A01,
+0x5C09,
+0x60DF,
+0x610F,
+0x6170,
+0x6613,
+0x6905,
+0x70BA,
+0x754F,
+0x7570,
+0x79FB,
+0x7DAD,
+0x7DEF,
+0x80C3,
+0x840E,
+0x8863,
+0x8B02,
+0x9055,
+0x907A,
+0x533B,
+0x4E95,
+0x4EA5,
+0x57DF,
+0x80B2,
+0x90C1,
+0x78EF,
+0x4E00,
+0x58F1,
+0x6EA2,
+0x9038,
+0x7A32,
+0x8328,
+0x828B,
+0x9C2F,
+0x5141,
+0x5370,
+0x54BD,
+0x54E1,
+0x56E0,
+0x59FB,
+0x5F15,
+0x98F2,
+0x6DEB,
+0x80E4,
+0x852D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9662,
+0x9670,
+0x96A0,
+0x97FB,
+0x540B,
+0x53F3,
+0x5B87,
+0x70CF,
+0x7FBD,
+0x8FC2,
+0x96E8,
+0x536F,
+0x9D5C,
+0x7ABA,
+0x4E11,
+0x7893,
+0x81FC,
+0x6E26,
+0x5618,
+0x5504,
+0x6B1D,
+0x851A,
+0x9C3B,
+0x59E5,
+0x53A9,
+0x6D66,
+0x74DC,
+0x958F,
+0x5642,
+0x4E91,
+0x904B,
+0x96F2,
+0x834F,
+0x990C,
+0x53E1,
+0x55B6,
+0x5B30,
+0x5F71,
+0x6620,
+0x66F3,
+0x6804,
+0x6C38,
+0x6CF3,
+0x6D29,
+0x745B,
+0x76C8,
+0x7A4E,
+0x9834,
+0x82F1,
+0x885B,
+0x8A60,
+0x92ED,
+0x6DB2,
+0x75AB,
+0x76CA,
+0x99C5,
+0x60A6,
+0x8B01,
+0x8D8A,
+0x95B2,
+0x698E,
+0x53AD,
+0x5186,
+0x5712,
+0x5830,
+0x5944,
+0x5BB4,
+0x5EF6,
+0x6028,
+0x63A9,
+0x63F4,
+0x6CBF,
+0x6F14,
+0x708E,
+0x7114,
+0x7159,
+0x71D5,
+0x733F,
+0x7E01,
+0x8276,
+0x82D1,
+0x8597,
+0x9060,
+0x925B,
+0x9D1B,
+0x5869,
+0x65BC,
+0x6C5A,
+0x7525,
+0x51F9,
+0x592E,
+0x5965,
+0x5F80,
+0x5FDC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x62BC,
+0x65FA,
+0x6A2A,
+0x6B27,
+0x6BB4,
+0x738B,
+0x7FC1,
+0x8956,
+0x9D2C,
+0x9D0E,
+0x9EC4,
+0x5CA1,
+0x6C96,
+0x837B,
+0x5104,
+0x5C4B,
+0x61B6,
+0x81C6,
+0x6876,
+0x7261,
+0x4E59,
+0x4FFA,
+0x5378,
+0x6069,
+0x6E29,
+0x7A4F,
+0x97F3,
+0x4E0B,
+0x5316,
+0x4EEE,
+0x4F55,
+0x4F3D,
+0x4FA1,
+0x4F73,
+0x52A0,
+0x53EF,
+0x5609,
+0x590F,
+0x5AC1,
+0x5BB6,
+0x5BE1,
+0x79D1,
+0x6687,
+0x679C,
+0x67B6,
+0x6B4C,
+0x6CB3,
+0x706B,
+0x73C2,
+0x798D,
+0x79BE,
+0x7A3C,
+0x7B87,
+0x82B1,
+0x82DB,
+0x8304,
+0x8377,
+0x83EF,
+0x83D3,
+0x8766,
+0x8AB2,
+0x5629,
+0x8CA8,
+0x8FE6,
+0x904E,
+0x971E,
+0x868A,
+0x4FC4,
+0x5CE8,
+0x6211,
+0x7259,
+0x753B,
+0x81E5,
+0x82BD,
+0x86FE,
+0x8CC0,
+0x96C5,
+0x9913,
+0x99D5,
+0x4ECB,
+0x4F1A,
+0x89E3,
+0x56DE,
+0x584A,
+0x58CA,
+0x5EFB,
+0x5FEB,
+0x602A,
+0x6094,
+0x6062,
+0x61D0,
+0x6212,
+0x62D0,
+0x6539,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9B41,
+0x6666,
+0x68B0,
+0x6D77,
+0x7070,
+0x754C,
+0x7686,
+0x7D75,
+0x82A5,
+0x87F9,
+0x958B,
+0x968E,
+0x8C9D,
+0x51F1,
+0x52BE,
+0x5916,
+0x54B3,
+0x5BB3,
+0x5D16,
+0x6168,
+0x6982,
+0x6DAF,
+0x788D,
+0x84CB,
+0x8857,
+0x8A72,
+0x93A7,
+0x9AB8,
+0x6D6C,
+0x99A8,
+0x86D9,
+0x57A3,
+0x67FF,
+0x86CE,
+0x920E,
+0x5283,
+0x5687,
+0x5404,
+0x5ED3,
+0x62E1,
+0x64B9,
+0x683C,
+0x6838,
+0x6BBB,
+0x7372,
+0x78BA,
+0x7A6B,
+0x899A,
+0x89D2,
+0x8D6B,
+0x8F03,
+0x90ED,
+0x95A3,
+0x9694,
+0x9769,
+0x5B66,
+0x5CB3,
+0x697D,
+0x984D,
+0x984E,
+0x639B,
+0x7B20,
+0x6A2B,
+0x6A7F,
+0x68B6,
+0x9C0D,
+0x6F5F,
+0x5272,
+0x559D,
+0x6070,
+0x62EC,
+0x6D3B,
+0x6E07,
+0x6ED1,
+0x845B,
+0x8910,
+0x8F44,
+0x4E14,
+0x9C39,
+0x53F6,
+0x691B,
+0x6A3A,
+0x9784,
+0x682A,
+0x515C,
+0x7AC3,
+0x84B2,
+0x91DC,
+0x938C,
+0x565B,
+0x9D28,
+0x6822,
+0x8305,
+0x8431,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7CA5,
+0x5208,
+0x82C5,
+0x74E6,
+0x4E7E,
+0x4F83,
+0x51A0,
+0x5BD2,
+0x520A,
+0x52D8,
+0x52E7,
+0x5DFB,
+0x559A,
+0x582A,
+0x59E6,
+0x5B8C,
+0x5B98,
+0x5BDB,
+0x5E72,
+0x5E79,
+0x60A3,
+0x611F,
+0x6163,
+0x61BE,
+0x63DB,
+0x6562,
+0x67D1,
+0x6853,
+0x68FA,
+0x6B3E,
+0x6B53,
+0x6C57,
+0x6F22,
+0x6F97,
+0x6F45,
+0x74B0,
+0x7518,
+0x76E3,
+0x770B,
+0x7AFF,
+0x7BA1,
+0x7C21,
+0x7DE9,
+0x7F36,
+0x7FF0,
+0x809D,
+0x8266,
+0x839E,
+0x89B3,
+0x8ACC,
+0x8CAB,
+0x9084,
+0x9451,
+0x9593,
+0x9591,
+0x95A2,
+0x9665,
+0x97D3,
+0x9928,
+0x8218,
+0x4E38,
+0x542B,
+0x5CB8,
+0x5DCC,
+0x73A9,
+0x764C,
+0x773C,
+0x5CA9,
+0x7FEB,
+0x8D0B,
+0x96C1,
+0x9811,
+0x9854,
+0x9858,
+0x4F01,
+0x4F0E,
+0x5371,
+0x559C,
+0x5668,
+0x57FA,
+0x5947,
+0x5B09,
+0x5BC4,
+0x5C90,
+0x5E0C,
+0x5E7E,
+0x5FCC,
+0x63EE,
+0x673A,
+0x65D7,
+0x65E2,
+0x671F,
+0x68CB,
+0x68C4,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6A5F,
+0x5E30,
+0x6BC5,
+0x6C17,
+0x6C7D,
+0x757F,
+0x7948,
+0x5B63,
+0x7A00,
+0x7D00,
+0x5FBD,
+0x898F,
+0x8A18,
+0x8CB4,
+0x8D77,
+0x8ECC,
+0x8F1D,
+0x98E2,
+0x9A0E,
+0x9B3C,
+0x4E80,
+0x507D,
+0x5100,
+0x5993,
+0x5B9C,
+0x622F,
+0x6280,
+0x64EC,
+0x6B3A,
+0x72A0,
+0x7591,
+0x7947,
+0x7FA9,
+0x87FB,
+0x8ABC,
+0x8B70,
+0x63AC,
+0x83CA,
+0x97A0,
+0x5409,
+0x5403,
+0x55AB,
+0x6854,
+0x6A58,
+0x8A70,
+0x7827,
+0x6775,
+0x9ECD,
+0x5374,
+0x5BA2,
+0x811A,
+0x8650,
+0x9006,
+0x4E18,
+0x4E45,
+0x4EC7,
+0x4F11,
+0x53CA,
+0x5438,
+0x5BAE,
+0x5F13,
+0x6025,
+0x6551,
+0x673D,
+0x6C42,
+0x6C72,
+0x6CE3,
+0x7078,
+0x7403,
+0x7A76,
+0x7AAE,
+0x7B08,
+0x7D1A,
+0x7CFE,
+0x7D66,
+0x65E7,
+0x725B,
+0x53BB,
+0x5C45,
+0x5DE8,
+0x62D2,
+0x62E0,
+0x6319,
+0x6E20,
+0x865A,
+0x8A31,
+0x8DDD,
+0x92F8,
+0x6F01,
+0x79A6,
+0x9B5A,
+0x4EA8,
+0x4EAB,
+0x4EAC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4F9B,
+0x4FA0,
+0x50D1,
+0x5147,
+0x7AF6,
+0x5171,
+0x51F6,
+0x5354,
+0x5321,
+0x537F,
+0x53EB,
+0x55AC,
+0x5883,
+0x5CE1,
+0x5F37,
+0x5F4A,
+0x602F,
+0x6050,
+0x606D,
+0x631F,
+0x6559,
+0x6A4B,
+0x6CC1,
+0x72C2,
+0x72ED,
+0x77EF,
+0x80F8,
+0x8105,
+0x8208,
+0x854E,
+0x90F7,
+0x93E1,
+0x97FF,
+0x9957,
+0x9A5A,
+0x4EF0,
+0x51DD,
+0x5C2D,
+0x6681,
+0x696D,
+0x5C40,
+0x66F2,
+0x6975,
+0x7389,
+0x6850,
+0x7C81,
+0x50C5,
+0x52E4,
+0x5747,
+0x5DFE,
+0x9326,
+0x65A4,
+0x6B23,
+0x6B3D,
+0x7434,
+0x7981,
+0x79BD,
+0x7B4B,
+0x7DCA,
+0x82B9,
+0x83CC,
+0x887F,
+0x895F,
+0x8B39,
+0x8FD1,
+0x91D1,
+0x541F,
+0x9280,
+0x4E5D,
+0x5036,
+0x53E5,
+0x533A,
+0x72D7,
+0x7396,
+0x77E9,
+0x82E6,
+0x8EAF,
+0x99C6,
+0x99C8,
+0x99D2,
+0x5177,
+0x611A,
+0x865E,
+0x55B0,
+0x7A7A,
+0x5076,
+0x5BD3,
+0x9047,
+0x9685,
+0x4E32,
+0x6ADB,
+0x91E7,
+0x5C51,
+0x5C48,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6398,
+0x7A9F,
+0x6C93,
+0x9774,
+0x8F61,
+0x7AAA,
+0x718A,
+0x9688,
+0x7C82,
+0x6817,
+0x7E70,
+0x6851,
+0x936C,
+0x52F2,
+0x541B,
+0x85AB,
+0x8A13,
+0x7FA4,
+0x8ECD,
+0x90E1,
+0x5366,
+0x8888,
+0x7941,
+0x4FC2,
+0x50BE,
+0x5211,
+0x5144,
+0x5553,
+0x572D,
+0x73EA,
+0x578B,
+0x5951,
+0x5F62,
+0x5F84,
+0x6075,
+0x6176,
+0x6167,
+0x61A9,
+0x63B2,
+0x643A,
+0x656C,
+0x666F,
+0x6842,
+0x6E13,
+0x7566,
+0x7A3D,
+0x7CFB,
+0x7D4C,
+0x7D99,
+0x7E4B,
+0x7F6B,
+0x830E,
+0x834A,
+0x86CD,
+0x8A08,
+0x8A63,
+0x8B66,
+0x8EFD,
+0x981A,
+0x9D8F,
+0x82B8,
+0x8FCE,
+0x9BE8,
+0x5287,
+0x621F,
+0x6483,
+0x6FC0,
+0x9699,
+0x6841,
+0x5091,
+0x6B20,
+0x6C7A,
+0x6F54,
+0x7A74,
+0x7D50,
+0x8840,
+0x8A23,
+0x6708,
+0x4EF6,
+0x5039,
+0x5026,
+0x5065,
+0x517C,
+0x5238,
+0x5263,
+0x55A7,
+0x570F,
+0x5805,
+0x5ACC,
+0x5EFA,
+0x61B2,
+0x61F8,
+0x62F3,
+0x6372,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x691C,
+0x6A29,
+0x727D,
+0x72AC,
+0x732E,
+0x7814,
+0x786F,
+0x7D79,
+0x770C,
+0x80A9,
+0x898B,
+0x8B19,
+0x8CE2,
+0x8ED2,
+0x9063,
+0x9375,
+0x967A,
+0x9855,
+0x9A13,
+0x9E78,
+0x5143,
+0x539F,
+0x53B3,
+0x5E7B,
+0x5F26,
+0x6E1B,
+0x6E90,
+0x7384,
+0x73FE,
+0x7D43,
+0x8237,
+0x8A00,
+0x8AFA,
+0x9650,
+0x4E4E,
+0x500B,
+0x53E4,
+0x547C,
+0x56FA,
+0x59D1,
+0x5B64,
+0x5DF1,
+0x5EAB,
+0x5F27,
+0x6238,
+0x6545,
+0x67AF,
+0x6E56,
+0x72D0,
+0x7CCA,
+0x88B4,
+0x80A1,
+0x80E1,
+0x83F0,
+0x864E,
+0x8A87,
+0x8DE8,
+0x9237,
+0x96C7,
+0x9867,
+0x9F13,
+0x4E94,
+0x4E92,
+0x4F0D,
+0x5348,
+0x5449,
+0x543E,
+0x5A2F,
+0x5F8C,
+0x5FA1,
+0x609F,
+0x68A7,
+0x6A8E,
+0x745A,
+0x7881,
+0x8A9E,
+0x8AA4,
+0x8B77,
+0x9190,
+0x4E5E,
+0x9BC9,
+0x4EA4,
+0x4F7C,
+0x4FAF,
+0x5019,
+0x5016,
+0x5149,
+0x516C,
+0x529F,
+0x52B9,
+0x52FE,
+0x539A,
+0x53E3,
+0x5411,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x540E,
+0x5589,
+0x5751,
+0x57A2,
+0x597D,
+0x5B54,
+0x5B5D,
+0x5B8F,
+0x5DE5,
+0x5DE7,
+0x5DF7,
+0x5E78,
+0x5E83,
+0x5E9A,
+0x5EB7,
+0x5F18,
+0x6052,
+0x614C,
+0x6297,
+0x62D8,
+0x63A7,
+0x653B,
+0x6602,
+0x6643,
+0x66F4,
+0x676D,
+0x6821,
+0x6897,
+0x69CB,
+0x6C5F,
+0x6D2A,
+0x6D69,
+0x6E2F,
+0x6E9D,
+0x7532,
+0x7687,
+0x786C,
+0x7A3F,
+0x7CE0,
+0x7D05,
+0x7D18,
+0x7D5E,
+0x7DB1,
+0x8015,
+0x8003,
+0x80AF,
+0x80B1,
+0x8154,
+0x818F,
+0x822A,
+0x8352,
+0x884C,
+0x8861,
+0x8B1B,
+0x8CA2,
+0x8CFC,
+0x90CA,
+0x9175,
+0x9271,
+0x783F,
+0x92FC,
+0x95A4,
+0x964D,
+0x9805,
+0x9999,
+0x9AD8,
+0x9D3B,
+0x525B,
+0x52AB,
+0x53F7,
+0x5408,
+0x58D5,
+0x62F7,
+0x6FE0,
+0x8C6A,
+0x8F5F,
+0x9EB9,
+0x514B,
+0x523B,
+0x544A,
+0x56FD,
+0x7A40,
+0x9177,
+0x9D60,
+0x9ED2,
+0x7344,
+0x6F09,
+0x8170,
+0x7511,
+0x5FFD,
+0x60DA,
+0x9AA8,
+0x72DB,
+0x8FBC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6B64,
+0x9803,
+0x4ECA,
+0x56F0,
+0x5764,
+0x58BE,
+0x5A5A,
+0x6068,
+0x61C7,
+0x660F,
+0x6606,
+0x6839,
+0x68B1,
+0x6DF7,
+0x75D5,
+0x7D3A,
+0x826E,
+0x9B42,
+0x4E9B,
+0x4F50,
+0x53C9,
+0x5506,
+0x5D6F,
+0x5DE6,
+0x5DEE,
+0x67FB,
+0x6C99,
+0x7473,
+0x7802,
+0x8A50,
+0x9396,
+0x88DF,
+0x5750,
+0x5EA7,
+0x632B,
+0x50B5,
+0x50AC,
+0x518D,
+0x6700,
+0x54C9,
+0x585E,
+0x59BB,
+0x5BB0,
+0x5F69,
+0x624D,
+0x63A1,
+0x683D,
+0x6B73,
+0x6E08,
+0x707D,
+0x91C7,
+0x7280,
+0x7815,
+0x7826,
+0x796D,
+0x658E,
+0x7D30,
+0x83DC,
+0x88C1,
+0x8F09,
+0x969B,
+0x5264,
+0x5728,
+0x6750,
+0x7F6A,
+0x8CA1,
+0x51B4,
+0x5742,
+0x962A,
+0x583A,
+0x698A,
+0x80B4,
+0x54B2,
+0x5D0E,
+0x57FC,
+0x7895,
+0x9DFA,
+0x4F5C,
+0x524A,
+0x548B,
+0x643E,
+0x6628,
+0x6714,
+0x67F5,
+0x7A84,
+0x7B56,
+0x7D22,
+0x932F,
+0x685C,
+0x9BAD,
+0x7B39,
+0x5319,
+0x518A,
+0x5237,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5BDF,
+0x62F6,
+0x64AE,
+0x64E6,
+0x672D,
+0x6BBA,
+0x85A9,
+0x96D1,
+0x7690,
+0x9BD6,
+0x634C,
+0x9306,
+0x9BAB,
+0x76BF,
+0x6652,
+0x4E09,
+0x5098,
+0x53C2,
+0x5C71,
+0x60E8,
+0x6492,
+0x6563,
+0x685F,
+0x71E6,
+0x73CA,
+0x7523,
+0x7B97,
+0x7E82,
+0x8695,
+0x8B83,
+0x8CDB,
+0x9178,
+0x9910,
+0x65AC,
+0x66AB,
+0x6B8B,
+0x4ED5,
+0x4ED4,
+0x4F3A,
+0x4F7F,
+0x523A,
+0x53F8,
+0x53F2,
+0x55E3,
+0x56DB,
+0x58EB,
+0x59CB,
+0x59C9,
+0x59FF,
+0x5B50,
+0x5C4D,
+0x5E02,
+0x5E2B,
+0x5FD7,
+0x601D,
+0x6307,
+0x652F,
+0x5B5C,
+0x65AF,
+0x65BD,
+0x65E8,
+0x679D,
+0x6B62,
+0x6B7B,
+0x6C0F,
+0x7345,
+0x7949,
+0x79C1,
+0x7CF8,
+0x7D19,
+0x7D2B,
+0x80A2,
+0x8102,
+0x81F3,
+0x8996,
+0x8A5E,
+0x8A69,
+0x8A66,
+0x8A8C,
+0x8AEE,
+0x8CC7,
+0x8CDC,
+0x96CC,
+0x98FC,
+0x6B6F,
+0x4E8B,
+0x4F3C,
+0x4F8D,
+0x5150,
+0x5B57,
+0x5BFA,
+0x6148,
+0x6301,
+0x6642,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6B21,
+0x6ECB,
+0x6CBB,
+0x723E,
+0x74BD,
+0x75D4,
+0x78C1,
+0x793A,
+0x800C,
+0x8033,
+0x81EA,
+0x8494,
+0x8F9E,
+0x6C50,
+0x9E7F,
+0x5F0F,
+0x8B58,
+0x9D2B,
+0x7AFA,
+0x8EF8,
+0x5B8D,
+0x96EB,
+0x4E03,
+0x53F1,
+0x57F7,
+0x5931,
+0x5AC9,
+0x5BA4,
+0x6089,
+0x6E7F,
+0x6F06,
+0x75BE,
+0x8CEA,
+0x5B9F,
+0x8500,
+0x7BE0,
+0x5072,
+0x67F4,
+0x829D,
+0x5C61,
+0x854A,
+0x7E1E,
+0x820E,
+0x5199,
+0x5C04,
+0x6368,
+0x8D66,
+0x659C,
+0x716E,
+0x793E,
+0x7D17,
+0x8005,
+0x8B1D,
+0x8ECA,
+0x906E,
+0x86C7,
+0x90AA,
+0x501F,
+0x52FA,
+0x5C3A,
+0x6753,
+0x707C,
+0x7235,
+0x914C,
+0x91C8,
+0x932B,
+0x82E5,
+0x5BC2,
+0x5F31,
+0x60F9,
+0x4E3B,
+0x53D6,
+0x5B88,
+0x624B,
+0x6731,
+0x6B8A,
+0x72E9,
+0x73E0,
+0x7A2E,
+0x816B,
+0x8DA3,
+0x9152,
+0x9996,
+0x5112,
+0x53D7,
+0x546A,
+0x5BFF,
+0x6388,
+0x6A39,
+0x7DAC,
+0x9700,
+0x56DA,
+0x53CE,
+0x5468,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5B97,
+0x5C31,
+0x5DDE,
+0x4FEE,
+0x6101,
+0x62FE,
+0x6D32,
+0x79C0,
+0x79CB,
+0x7D42,
+0x7E4D,
+0x7FD2,
+0x81ED,
+0x821F,
+0x8490,
+0x8846,
+0x8972,
+0x8B90,
+0x8E74,
+0x8F2F,
+0x9031,
+0x914B,
+0x916C,
+0x96C6,
+0x919C,
+0x4EC0,
+0x4F4F,
+0x5145,
+0x5341,
+0x5F93,
+0x620E,
+0x67D4,
+0x6C41,
+0x6E0B,
+0x7363,
+0x7E26,
+0x91CD,
+0x9283,
+0x53D4,
+0x5919,
+0x5BBF,
+0x6DD1,
+0x795D,
+0x7E2E,
+0x7C9B,
+0x587E,
+0x719F,
+0x51FA,
+0x8853,
+0x8FF0,
+0x4FCA,
+0x5CFB,
+0x6625,
+0x77AC,
+0x7AE3,
+0x821C,
+0x99FF,
+0x51C6,
+0x5FAA,
+0x65EC,
+0x696F,
+0x6B89,
+0x6DF3,
+0x6E96,
+0x6F64,
+0x76FE,
+0x7D14,
+0x5DE1,
+0x9075,
+0x9187,
+0x9806,
+0x51E6,
+0x521D,
+0x6240,
+0x6691,
+0x66D9,
+0x6E1A,
+0x5EB6,
+0x7DD2,
+0x7F72,
+0x66F8,
+0x85AF,
+0x85F7,
+0x8AF8,
+0x52A9,
+0x53D9,
+0x5973,
+0x5E8F,
+0x5F90,
+0x6055,
+0x92E4,
+0x9664,
+0x50B7,
+0x511F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x52DD,
+0x5320,
+0x5347,
+0x53EC,
+0x54E8,
+0x5546,
+0x5531,
+0x5617,
+0x5968,
+0x59BE,
+0x5A3C,
+0x5BB5,
+0x5C06,
+0x5C0F,
+0x5C11,
+0x5C1A,
+0x5E84,
+0x5E8A,
+0x5EE0,
+0x5F70,
+0x627F,
+0x6284,
+0x62DB,
+0x638C,
+0x6377,
+0x6607,
+0x660C,
+0x662D,
+0x6676,
+0x677E,
+0x68A2,
+0x6A1F,
+0x6A35,
+0x6CBC,
+0x6D88,
+0x6E09,
+0x6E58,
+0x713C,
+0x7126,
+0x7167,
+0x75C7,
+0x7701,
+0x785D,
+0x7901,
+0x7965,
+0x79F0,
+0x7AE0,
+0x7B11,
+0x7CA7,
+0x7D39,
+0x8096,
+0x83D6,
+0x848B,
+0x8549,
+0x885D,
+0x88F3,
+0x8A1F,
+0x8A3C,
+0x8A54,
+0x8A73,
+0x8C61,
+0x8CDE,
+0x91A4,
+0x9266,
+0x937E,
+0x9418,
+0x969C,
+0x9798,
+0x4E0A,
+0x4E08,
+0x4E1E,
+0x4E57,
+0x5197,
+0x5270,
+0x57CE,
+0x5834,
+0x58CC,
+0x5B22,
+0x5E38,
+0x60C5,
+0x64FE,
+0x6761,
+0x6756,
+0x6D44,
+0x72B6,
+0x7573,
+0x7A63,
+0x84B8,
+0x8B72,
+0x91B8,
+0x9320,
+0x5631,
+0x57F4,
+0x98FE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x62ED,
+0x690D,
+0x6B96,
+0x71ED,
+0x7E54,
+0x8077,
+0x8272,
+0x89E6,
+0x98DF,
+0x8755,
+0x8FB1,
+0x5C3B,
+0x4F38,
+0x4FE1,
+0x4FB5,
+0x5507,
+0x5A20,
+0x5BDD,
+0x5BE9,
+0x5FC3,
+0x614E,
+0x632F,
+0x65B0,
+0x664B,
+0x68EE,
+0x699B,
+0x6D78,
+0x6DF1,
+0x7533,
+0x75B9,
+0x771F,
+0x795E,
+0x79E6,
+0x7D33,
+0x81E3,
+0x82AF,
+0x85AA,
+0x89AA,
+0x8A3A,
+0x8EAB,
+0x8F9B,
+0x9032,
+0x91DD,
+0x9707,
+0x4EBA,
+0x4EC1,
+0x5203,
+0x5875,
+0x58EC,
+0x5C0B,
+0x751A,
+0x5C3D,
+0x814E,
+0x8A0A,
+0x8FC5,
+0x9663,
+0x976D,
+0x7B25,
+0x8ACF,
+0x9808,
+0x9162,
+0x56F3,
+0x53A8,
+0x9017,
+0x5439,
+0x5782,
+0x5E25,
+0x63A8,
+0x6C34,
+0x708A,
+0x7761,
+0x7C8B,
+0x7FE0,
+0x8870,
+0x9042,
+0x9154,
+0x9310,
+0x9318,
+0x968F,
+0x745E,
+0x9AC4,
+0x5D07,
+0x5D69,
+0x6570,
+0x67A2,
+0x8DA8,
+0x96DB,
+0x636E,
+0x6749,
+0x6919,
+0x83C5,
+0x9817,
+0x96C0,
+0x88FE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6F84,
+0x647A,
+0x5BF8,
+0x4E16,
+0x702C,
+0x755D,
+0x662F,
+0x51C4,
+0x5236,
+0x52E2,
+0x59D3,
+0x5F81,
+0x6027,
+0x6210,
+0x653F,
+0x6574,
+0x661F,
+0x6674,
+0x68F2,
+0x6816,
+0x6B63,
+0x6E05,
+0x7272,
+0x751F,
+0x76DB,
+0x7CBE,
+0x8056,
+0x58F0,
+0x88FD,
+0x897F,
+0x8AA0,
+0x8A93,
+0x8ACB,
+0x901D,
+0x9192,
+0x9752,
+0x9759,
+0x6589,
+0x7A0E,
+0x8106,
+0x96BB,
+0x5E2D,
+0x60DC,
+0x621A,
+0x65A5,
+0x6614,
+0x6790,
+0x77F3,
+0x7A4D,
+0x7C4D,
+0x7E3E,
+0x810A,
+0x8CAC,
+0x8D64,
+0x8DE1,
+0x8E5F,
+0x78A9,
+0x5207,
+0x62D9,
+0x63A5,
+0x6442,
+0x6298,
+0x8A2D,
+0x7A83,
+0x7BC0,
+0x8AAC,
+0x96EA,
+0x7D76,
+0x820C,
+0x8749,
+0x4ED9,
+0x5148,
+0x5343,
+0x5360,
+0x5BA3,
+0x5C02,
+0x5C16,
+0x5DDD,
+0x6226,
+0x6247,
+0x64B0,
+0x6813,
+0x6834,
+0x6CC9,
+0x6D45,
+0x6D17,
+0x67D3,
+0x6F5C,
+0x714E,
+0x717D,
+0x65CB,
+0x7A7F,
+0x7BAD,
+0x7DDA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7E4A,
+0x7FA8,
+0x817A,
+0x821B,
+0x8239,
+0x85A6,
+0x8A6E,
+0x8CCE,
+0x8DF5,
+0x9078,
+0x9077,
+0x92AD,
+0x9291,
+0x9583,
+0x9BAE,
+0x524D,
+0x5584,
+0x6F38,
+0x7136,
+0x5168,
+0x7985,
+0x7E55,
+0x81B3,
+0x7CCE,
+0x564C,
+0x5851,
+0x5CA8,
+0x63AA,
+0x66FE,
+0x66FD,
+0x695A,
+0x72D9,
+0x758F,
+0x758E,
+0x790E,
+0x7956,
+0x79DF,
+0x7C97,
+0x7D20,
+0x7D44,
+0x8607,
+0x8A34,
+0x963B,
+0x9061,
+0x9F20,
+0x50E7,
+0x5275,
+0x53CC,
+0x53E2,
+0x5009,
+0x55AA,
+0x58EE,
+0x594F,
+0x723D,
+0x5B8B,
+0x5C64,
+0x531D,
+0x60E3,
+0x60F3,
+0x635C,
+0x6383,
+0x633F,
+0x63BB,
+0x64CD,
+0x65E9,
+0x66F9,
+0x5DE3,
+0x69CD,
+0x69FD,
+0x6F15,
+0x71E5,
+0x4E89,
+0x75E9,
+0x76F8,
+0x7A93,
+0x7CDF,
+0x7DCF,
+0x7D9C,
+0x8061,
+0x8349,
+0x8358,
+0x846C,
+0x84BC,
+0x85FB,
+0x88C5,
+0x8D70,
+0x9001,
+0x906D,
+0x9397,
+0x971C,
+0x9A12,
+0x50CF,
+0x5897,
+0x618E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x81D3,
+0x8535,
+0x8D08,
+0x9020,
+0x4FC3,
+0x5074,
+0x5247,
+0x5373,
+0x606F,
+0x6349,
+0x675F,
+0x6E2C,
+0x8DB3,
+0x901F,
+0x4FD7,
+0x5C5E,
+0x8CCA,
+0x65CF,
+0x7D9A,
+0x5352,
+0x8896,
+0x5176,
+0x63C3,
+0x5B58,
+0x5B6B,
+0x5C0A,
+0x640D,
+0x6751,
+0x905C,
+0x4ED6,
+0x591A,
+0x592A,
+0x6C70,
+0x8A51,
+0x553E,
+0x5815,
+0x59A5,
+0x60F0,
+0x6253,
+0x67C1,
+0x8235,
+0x6955,
+0x9640,
+0x99C4,
+0x9A28,
+0x4F53,
+0x5806,
+0x5BFE,
+0x8010,
+0x5CB1,
+0x5E2F,
+0x5F85,
+0x6020,
+0x614B,
+0x6234,
+0x66FF,
+0x6CF0,
+0x6EDE,
+0x80CE,
+0x817F,
+0x82D4,
+0x888B,
+0x8CB8,
+0x9000,
+0x902E,
+0x968A,
+0x9EDB,
+0x9BDB,
+0x4EE3,
+0x53F0,
+0x5927,
+0x7B2C,
+0x918D,
+0x984C,
+0x9DF9,
+0x6EDD,
+0x7027,
+0x5353,
+0x5544,
+0x5B85,
+0x6258,
+0x629E,
+0x62D3,
+0x6CA2,
+0x6FEF,
+0x7422,
+0x8A17,
+0x9438,
+0x6FC1,
+0x8AFE,
+0x8338,
+0x51E7,
+0x86F8,
+0x53EA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x53E9,
+0x4F46,
+0x9054,
+0x8FB0,
+0x596A,
+0x8131,
+0x5DFD,
+0x7AEA,
+0x8FBF,
+0x68DA,
+0x8C37,
+0x72F8,
+0x9C48,
+0x6A3D,
+0x8AB0,
+0x4E39,
+0x5358,
+0x5606,
+0x5766,
+0x62C5,
+0x63A2,
+0x65E6,
+0x6B4E,
+0x6DE1,
+0x6E5B,
+0x70AD,
+0x77ED,
+0x7AEF,
+0x7BAA,
+0x7DBB,
+0x803D,
+0x80C6,
+0x86CB,
+0x8A95,
+0x935B,
+0x56E3,
+0x58C7,
+0x5F3E,
+0x65AD,
+0x6696,
+0x6A80,
+0x6BB5,
+0x7537,
+0x8AC7,
+0x5024,
+0x77E5,
+0x5730,
+0x5F1B,
+0x6065,
+0x667A,
+0x6C60,
+0x75F4,
+0x7A1A,
+0x7F6E,
+0x81F4,
+0x8718,
+0x9045,
+0x99B3,
+0x7BC9,
+0x755C,
+0x7AF9,
+0x7B51,
+0x84C4,
+0x9010,
+0x79E9,
+0x7A92,
+0x8336,
+0x5AE1,
+0x7740,
+0x4E2D,
+0x4EF2,
+0x5B99,
+0x5FE0,
+0x62BD,
+0x663C,
+0x67F1,
+0x6CE8,
+0x866B,
+0x8877,
+0x8A3B,
+0x914E,
+0x92F3,
+0x99D0,
+0x6A17,
+0x7026,
+0x732A,
+0x82E7,
+0x8457,
+0x8CAF,
+0x4E01,
+0x5146,
+0x51CB,
+0x558B,
+0x5BF5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5E16,
+0x5E33,
+0x5E81,
+0x5F14,
+0x5F35,
+0x5F6B,
+0x5FB4,
+0x61F2,
+0x6311,
+0x66A2,
+0x671D,
+0x6F6E,
+0x7252,
+0x753A,
+0x773A,
+0x8074,
+0x8139,
+0x8178,
+0x8776,
+0x8ABF,
+0x8ADC,
+0x8D85,
+0x8DF3,
+0x929A,
+0x9577,
+0x9802,
+0x9CE5,
+0x52C5,
+0x6357,
+0x76F4,
+0x6715,
+0x6C88,
+0x73CD,
+0x8CC3,
+0x93AE,
+0x9673,
+0x6D25,
+0x589C,
+0x690E,
+0x69CC,
+0x8FFD,
+0x939A,
+0x75DB,
+0x901A,
+0x585A,
+0x6802,
+0x63B4,
+0x69FB,
+0x4F43,
+0x6F2C,
+0x67D8,
+0x8FBB,
+0x8526,
+0x7DB4,
+0x9354,
+0x693F,
+0x6F70,
+0x576A,
+0x58F7,
+0x5B2C,
+0x7D2C,
+0x722A,
+0x540A,
+0x91E3,
+0x9DB4,
+0x4EAD,
+0x4F4E,
+0x505C,
+0x5075,
+0x5243,
+0x8C9E,
+0x5448,
+0x5824,
+0x5B9A,
+0x5E1D,
+0x5E95,
+0x5EAD,
+0x5EF7,
+0x5F1F,
+0x608C,
+0x62B5,
+0x633A,
+0x63D0,
+0x68AF,
+0x6C40,
+0x7887,
+0x798E,
+0x7A0B,
+0x7DE0,
+0x8247,
+0x8A02,
+0x8AE6,
+0x8E44,
+0x9013,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x90B8,
+0x912D,
+0x91D8,
+0x9F0E,
+0x6CE5,
+0x6458,
+0x64E2,
+0x6575,
+0x6EF4,
+0x7684,
+0x7B1B,
+0x9069,
+0x93D1,
+0x6EBA,
+0x54F2,
+0x5FB9,
+0x64A4,
+0x8F4D,
+0x8FED,
+0x9244,
+0x5178,
+0x586B,
+0x5929,
+0x5C55,
+0x5E97,
+0x6DFB,
+0x7E8F,
+0x751C,
+0x8CBC,
+0x8EE2,
+0x985B,
+0x70B9,
+0x4F1D,
+0x6BBF,
+0x6FB1,
+0x7530,
+0x96FB,
+0x514E,
+0x5410,
+0x5835,
+0x5857,
+0x59AC,
+0x5C60,
+0x5F92,
+0x6597,
+0x675C,
+0x6E21,
+0x767B,
+0x83DF,
+0x8CED,
+0x9014,
+0x90FD,
+0x934D,
+0x7825,
+0x783A,
+0x52AA,
+0x5EA6,
+0x571F,
+0x5974,
+0x6012,
+0x5012,
+0x515A,
+0x51AC,
+0x51CD,
+0x5200,
+0x5510,
+0x5854,
+0x5858,
+0x5957,
+0x5B95,
+0x5CF6,
+0x5D8B,
+0x60BC,
+0x6295,
+0x642D,
+0x6771,
+0x6843,
+0x68BC,
+0x68DF,
+0x76D7,
+0x6DD8,
+0x6E6F,
+0x6D9B,
+0x706F,
+0x71C8,
+0x5F53,
+0x75D8,
+0x7977,
+0x7B49,
+0x7B54,
+0x7B52,
+0x7CD6,
+0x7D71,
+0x5230,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8463,
+0x8569,
+0x85E4,
+0x8A0E,
+0x8B04,
+0x8C46,
+0x8E0F,
+0x9003,
+0x900F,
+0x9419,
+0x9676,
+0x982D,
+0x9A30,
+0x95D8,
+0x50CD,
+0x52D5,
+0x540C,
+0x5802,
+0x5C0E,
+0x61A7,
+0x649E,
+0x6D1E,
+0x77B3,
+0x7AE5,
+0x80F4,
+0x8404,
+0x9053,
+0x9285,
+0x5CE0,
+0x9D07,
+0x533F,
+0x5F97,
+0x5FB3,
+0x6D9C,
+0x7279,
+0x7763,
+0x79BF,
+0x7BE4,
+0x6BD2,
+0x72EC,
+0x8AAD,
+0x6803,
+0x6A61,
+0x51F8,
+0x7A81,
+0x6934,
+0x5C4A,
+0x9CF6,
+0x82EB,
+0x5BC5,
+0x9149,
+0x701E,
+0x5678,
+0x5C6F,
+0x60C7,
+0x6566,
+0x6C8C,
+0x8C5A,
+0x9041,
+0x9813,
+0x5451,
+0x66C7,
+0x920D,
+0x5948,
+0x90A3,
+0x5185,
+0x4E4D,
+0x51EA,
+0x8599,
+0x8B0E,
+0x7058,
+0x637A,
+0x934B,
+0x6962,
+0x99B4,
+0x7E04,
+0x7577,
+0x5357,
+0x6960,
+0x8EDF,
+0x96E3,
+0x6C5D,
+0x4E8C,
+0x5C3C,
+0x5F10,
+0x8FE9,
+0x5302,
+0x8CD1,
+0x8089,
+0x8679,
+0x5EFF,
+0x65E5,
+0x4E73,
+0x5165,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5982,
+0x5C3F,
+0x97EE,
+0x4EFB,
+0x598A,
+0x5FCD,
+0x8A8D,
+0x6FE1,
+0x79B0,
+0x7962,
+0x5BE7,
+0x8471,
+0x732B,
+0x71B1,
+0x5E74,
+0x5FF5,
+0x637B,
+0x649A,
+0x71C3,
+0x7C98,
+0x4E43,
+0x5EFC,
+0x4E4B,
+0x57DC,
+0x56A2,
+0x60A9,
+0x6FC3,
+0x7D0D,
+0x80FD,
+0x8133,
+0x81BF,
+0x8FB2,
+0x8997,
+0x86A4,
+0x5DF4,
+0x628A,
+0x64AD,
+0x8987,
+0x6777,
+0x6CE2,
+0x6D3E,
+0x7436,
+0x7834,
+0x5A46,
+0x7F75,
+0x82AD,
+0x99AC,
+0x4FF3,
+0x5EC3,
+0x62DD,
+0x6392,
+0x6557,
+0x676F,
+0x76C3,
+0x724C,
+0x80CC,
+0x80BA,
+0x8F29,
+0x914D,
+0x500D,
+0x57F9,
+0x5A92,
+0x6885,
+0x6973,
+0x7164,
+0x72FD,
+0x8CB7,
+0x58F2,
+0x8CE0,
+0x966A,
+0x9019,
+0x877F,
+0x79E4,
+0x77E7,
+0x8429,
+0x4F2F,
+0x5265,
+0x535A,
+0x62CD,
+0x67CF,
+0x6CCA,
+0x767D,
+0x7B94,
+0x7C95,
+0x8236,
+0x8584,
+0x8FEB,
+0x66DD,
+0x6F20,
+0x7206,
+0x7E1B,
+0x83AB,
+0x99C1,
+0x9EA6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x51FD,
+0x7BB1,
+0x7872,
+0x7BB8,
+0x8087,
+0x7B48,
+0x6AE8,
+0x5E61,
+0x808C,
+0x7551,
+0x7560,
+0x516B,
+0x9262,
+0x6E8C,
+0x767A,
+0x9197,
+0x9AEA,
+0x4F10,
+0x7F70,
+0x629C,
+0x7B4F,
+0x95A5,
+0x9CE9,
+0x567A,
+0x5859,
+0x86E4,
+0x96BC,
+0x4F34,
+0x5224,
+0x534A,
+0x53CD,
+0x53DB,
+0x5E06,
+0x642C,
+0x6591,
+0x677F,
+0x6C3E,
+0x6C4E,
+0x7248,
+0x72AF,
+0x73ED,
+0x7554,
+0x7E41,
+0x822C,
+0x85E9,
+0x8CA9,
+0x7BC4,
+0x91C6,
+0x7169,
+0x9812,
+0x98EF,
+0x633D,
+0x6669,
+0x756A,
+0x76E4,
+0x78D0,
+0x8543,
+0x86EE,
+0x532A,
+0x5351,
+0x5426,
+0x5983,
+0x5E87,
+0x5F7C,
+0x60B2,
+0x6249,
+0x6279,
+0x62AB,
+0x6590,
+0x6BD4,
+0x6CCC,
+0x75B2,
+0x76AE,
+0x7891,
+0x79D8,
+0x7DCB,
+0x7F77,
+0x80A5,
+0x88AB,
+0x8AB9,
+0x8CBB,
+0x907F,
+0x975E,
+0x98DB,
+0x6A0B,
+0x7C38,
+0x5099,
+0x5C3E,
+0x5FAE,
+0x6787,
+0x6BD8,
+0x7435,
+0x7709,
+0x7F8E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9F3B,
+0x67CA,
+0x7A17,
+0x5339,
+0x758B,
+0x9AED,
+0x5F66,
+0x819D,
+0x83F1,
+0x8098,
+0x5F3C,
+0x5FC5,
+0x7562,
+0x7B46,
+0x903C,
+0x6867,
+0x59EB,
+0x5A9B,
+0x7D10,
+0x767E,
+0x8B2C,
+0x4FF5,
+0x5F6A,
+0x6A19,
+0x6C37,
+0x6F02,
+0x74E2,
+0x7968,
+0x8868,
+0x8A55,
+0x8C79,
+0x5EDF,
+0x63CF,
+0x75C5,
+0x79D2,
+0x82D7,
+0x9328,
+0x92F2,
+0x849C,
+0x86ED,
+0x9C2D,
+0x54C1,
+0x5F6C,
+0x658C,
+0x6D5C,
+0x7015,
+0x8CA7,
+0x8CD3,
+0x983B,
+0x654F,
+0x74F6,
+0x4E0D,
+0x4ED8,
+0x57E0,
+0x592B,
+0x5A66,
+0x5BCC,
+0x51A8,
+0x5E03,
+0x5E9C,
+0x6016,
+0x6276,
+0x6577,
+0x65A7,
+0x666E,
+0x6D6E,
+0x7236,
+0x7B26,
+0x8150,
+0x819A,
+0x8299,
+0x8B5C,
+0x8CA0,
+0x8CE6,
+0x8D74,
+0x961C,
+0x9644,
+0x4FAE,
+0x64AB,
+0x6B66,
+0x821E,
+0x8461,
+0x856A,
+0x90E8,
+0x5C01,
+0x6953,
+0x98A8,
+0x847A,
+0x8557,
+0x4F0F,
+0x526F,
+0x5FA9,
+0x5E45,
+0x670D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x798F,
+0x8179,
+0x8907,
+0x8986,
+0x6DF5,
+0x5F17,
+0x6255,
+0x6CB8,
+0x4ECF,
+0x7269,
+0x9B92,
+0x5206,
+0x543B,
+0x5674,
+0x58B3,
+0x61A4,
+0x626E,
+0x711A,
+0x596E,
+0x7C89,
+0x7CDE,
+0x7D1B,
+0x96F0,
+0x6587,
+0x805E,
+0x4E19,
+0x4F75,
+0x5175,
+0x5840,
+0x5E63,
+0x5E73,
+0x5F0A,
+0x67C4,
+0x4E26,
+0x853D,
+0x9589,
+0x965B,
+0x7C73,
+0x9801,
+0x50FB,
+0x58C1,
+0x7656,
+0x78A7,
+0x5225,
+0x77A5,
+0x8511,
+0x7B86,
+0x504F,
+0x5909,
+0x7247,
+0x7BC7,
+0x7DE8,
+0x8FBA,
+0x8FD4,
+0x904D,
+0x4FBF,
+0x52C9,
+0x5A29,
+0x5F01,
+0x97AD,
+0x4FDD,
+0x8217,
+0x92EA,
+0x5703,
+0x6355,
+0x6B69,
+0x752B,
+0x88DC,
+0x8F14,
+0x7A42,
+0x52DF,
+0x5893,
+0x6155,
+0x620A,
+0x66AE,
+0x6BCD,
+0x7C3F,
+0x83E9,
+0x5023,
+0x4FF8,
+0x5305,
+0x5446,
+0x5831,
+0x5949,
+0x5B9D,
+0x5CF0,
+0x5CEF,
+0x5D29,
+0x5E96,
+0x62B1,
+0x6367,
+0x653E,
+0x65B9,
+0x670B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6CD5,
+0x6CE1,
+0x70F9,
+0x7832,
+0x7E2B,
+0x80DE,
+0x82B3,
+0x840C,
+0x84EC,
+0x8702,
+0x8912,
+0x8A2A,
+0x8C4A,
+0x90A6,
+0x92D2,
+0x98FD,
+0x9CF3,
+0x9D6C,
+0x4E4F,
+0x4EA1,
+0x508D,
+0x5256,
+0x574A,
+0x59A8,
+0x5E3D,
+0x5FD8,
+0x5FD9,
+0x623F,
+0x66B4,
+0x671B,
+0x67D0,
+0x68D2,
+0x5192,
+0x7D21,
+0x80AA,
+0x81A8,
+0x8B00,
+0x8C8C,
+0x8CBF,
+0x927E,
+0x9632,
+0x5420,
+0x982C,
+0x5317,
+0x50D5,
+0x535C,
+0x58A8,
+0x64B2,
+0x6734,
+0x7267,
+0x7766,
+0x7A46,
+0x91E6,
+0x52C3,
+0x6CA1,
+0x6B86,
+0x5800,
+0x5E4C,
+0x5954,
+0x672C,
+0x7FFB,
+0x51E1,
+0x76C6,
+0x6469,
+0x78E8,
+0x9B54,
+0x9EBB,
+0x57CB,
+0x59B9,
+0x6627,
+0x679A,
+0x6BCE,
+0x54E9,
+0x69D9,
+0x5E55,
+0x819C,
+0x6795,
+0x9BAA,
+0x67FE,
+0x9C52,
+0x685D,
+0x4EA6,
+0x4FE3,
+0x53C8,
+0x62B9,
+0x672B,
+0x6CAB,
+0x8FC4,
+0x4FAD,
+0x7E6D,
+0x9EBF,
+0x4E07,
+0x6162,
+0x6E80,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6F2B,
+0x8513,
+0x5473,
+0x672A,
+0x9B45,
+0x5DF3,
+0x7B95,
+0x5CAC,
+0x5BC6,
+0x871C,
+0x6E4A,
+0x84D1,
+0x7A14,
+0x8108,
+0x5999,
+0x7C8D,
+0x6C11,
+0x7720,
+0x52D9,
+0x5922,
+0x7121,
+0x725F,
+0x77DB,
+0x9727,
+0x9D61,
+0x690B,
+0x5A7F,
+0x5A18,
+0x51A5,
+0x540D,
+0x547D,
+0x660E,
+0x76DF,
+0x8FF7,
+0x9298,
+0x9CF4,
+0x59EA,
+0x725D,
+0x6EC5,
+0x514D,
+0x68C9,
+0x7DBF,
+0x7DEC,
+0x9762,
+0x9EBA,
+0x6478,
+0x6A21,
+0x8302,
+0x5984,
+0x5B5F,
+0x6BDB,
+0x731B,
+0x76F2,
+0x7DB2,
+0x8017,
+0x8499,
+0x5132,
+0x6728,
+0x9ED9,
+0x76EE,
+0x6762,
+0x52FF,
+0x9905,
+0x5C24,
+0x623B,
+0x7C7E,
+0x8CB0,
+0x554F,
+0x60B6,
+0x7D0B,
+0x9580,
+0x5301,
+0x4E5F,
+0x51B6,
+0x591C,
+0x723A,
+0x8036,
+0x91CE,
+0x5F25,
+0x77E2,
+0x5384,
+0x5F79,
+0x7D04,
+0x85AC,
+0x8A33,
+0x8E8D,
+0x9756,
+0x67F3,
+0x85AE,
+0x9453,
+0x6109,
+0x6108,
+0x6CB9,
+0x7652,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8AED,
+0x8F38,
+0x552F,
+0x4F51,
+0x512A,
+0x52C7,
+0x53CB,
+0x5BA5,
+0x5E7D,
+0x60A0,
+0x6182,
+0x63D6,
+0x6709,
+0x67DA,
+0x6E67,
+0x6D8C,
+0x7336,
+0x7337,
+0x7531,
+0x7950,
+0x88D5,
+0x8A98,
+0x904A,
+0x9091,
+0x90F5,
+0x96C4,
+0x878D,
+0x5915,
+0x4E88,
+0x4F59,
+0x4E0E,
+0x8A89,
+0x8F3F,
+0x9810,
+0x50AD,
+0x5E7C,
+0x5996,
+0x5BB9,
+0x5EB8,
+0x63DA,
+0x63FA,
+0x64C1,
+0x66DC,
+0x694A,
+0x69D8,
+0x6D0B,
+0x6EB6,
+0x7194,
+0x7528,
+0x7AAF,
+0x7F8A,
+0x8000,
+0x8449,
+0x84C9,
+0x8981,
+0x8B21,
+0x8E0A,
+0x9065,
+0x967D,
+0x990A,
+0x617E,
+0x6291,
+0x6B32,
+0x6C83,
+0x6D74,
+0x7FCC,
+0x7FFC,
+0x6DC0,
+0x7F85,
+0x87BA,
+0x88F8,
+0x6765,
+0x83B1,
+0x983C,
+0x96F7,
+0x6D1B,
+0x7D61,
+0x843D,
+0x916A,
+0x4E71,
+0x5375,
+0x5D50,
+0x6B04,
+0x6FEB,
+0x85CD,
+0x862D,
+0x89A7,
+0x5229,
+0x540F,
+0x5C65,
+0x674E,
+0x68A8,
+0x7406,
+0x7483,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x75E2,
+0x88CF,
+0x88E1,
+0x91CC,
+0x96E2,
+0x9678,
+0x5F8B,
+0x7387,
+0x7ACB,
+0x844E,
+0x63A0,
+0x7565,
+0x5289,
+0x6D41,
+0x6E9C,
+0x7409,
+0x7559,
+0x786B,
+0x7C92,
+0x9686,
+0x7ADC,
+0x9F8D,
+0x4FB6,
+0x616E,
+0x65C5,
+0x865C,
+0x4E86,
+0x4EAE,
+0x50DA,
+0x4E21,
+0x51CC,
+0x5BEE,
+0x6599,
+0x6881,
+0x6DBC,
+0x731F,
+0x7642,
+0x77AD,
+0x7A1C,
+0x7CE7,
+0x826F,
+0x8AD2,
+0x907C,
+0x91CF,
+0x9675,
+0x9818,
+0x529B,
+0x7DD1,
+0x502B,
+0x5398,
+0x6797,
+0x6DCB,
+0x71D0,
+0x7433,
+0x81E8,
+0x8F2A,
+0x96A3,
+0x9C57,
+0x9E9F,
+0x7460,
+0x5841,
+0x6D99,
+0x7D2F,
+0x985E,
+0x4EE4,
+0x4F36,
+0x4F8B,
+0x51B7,
+0x52B1,
+0x5DBA,
+0x601C,
+0x73B2,
+0x793C,
+0x82D3,
+0x9234,
+0x96B7,
+0x96F6,
+0x970A,
+0x9E97,
+0x9F62,
+0x66A6,
+0x6B74,
+0x5217,
+0x52A3,
+0x70C8,
+0x88C2,
+0x5EC9,
+0x604B,
+0x6190,
+0x6F23,
+0x7149,
+0x7C3E,
+0x7DF4,
+0x806F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x84EE,
+0x9023,
+0x932C,
+0x5442,
+0x9B6F,
+0x6AD3,
+0x7089,
+0x8CC2,
+0x8DEF,
+0x9732,
+0x52B4,
+0x5A41,
+0x5ECA,
+0x5F04,
+0x6717,
+0x697C,
+0x6994,
+0x6D6A,
+0x6F0F,
+0x7262,
+0x72FC,
+0x7BED,
+0x8001,
+0x807E,
+0x874B,
+0x90CE,
+0x516D,
+0x9E93,
+0x7984,
+0x808B,
+0x9332,
+0x8AD6,
+0x502D,
+0x548C,
+0x8A71,
+0x6B6A,
+0x8CC4,
+0x8107,
+0x60D1,
+0x67A0,
+0x9DF2,
+0x4E99,
+0x4E98,
+0x9C10,
+0x8A6B,
+0x85C1,
+0x8568,
+0x6900,
+0x6E7E,
+0x7897,
+0x8155,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5F0C,
+0x4E10,
+0x4E15,
+0x4E2A,
+0x4E31,
+0x4E36,
+0x4E3C,
+0x4E3F,
+0x4E42,
+0x4E56,
+0x4E58,
+0x4E82,
+0x4E85,
+0x8C6B,
+0x4E8A,
+0x8212,
+0x5F0D,
+0x4E8E,
+0x4E9E,
+0x4E9F,
+0x4EA0,
+0x4EA2,
+0x4EB0,
+0x4EB3,
+0x4EB6,
+0x4ECE,
+0x4ECD,
+0x4EC4,
+0x4EC6,
+0x4EC2,
+0x4ED7,
+0x4EDE,
+0x4EED,
+0x4EDF,
+0x4EF7,
+0x4F09,
+0x4F5A,
+0x4F30,
+0x4F5B,
+0x4F5D,
+0x4F57,
+0x4F47,
+0x4F76,
+0x4F88,
+0x4F8F,
+0x4F98,
+0x4F7B,
+0x4F69,
+0x4F70,
+0x4F91,
+0x4F6F,
+0x4F86,
+0x4F96,
+0x5118,
+0x4FD4,
+0x4FDF,
+0x4FCE,
+0x4FD8,
+0x4FDB,
+0x4FD1,
+0x4FDA,
+0x4FD0,
+0x4FE4,
+0x4FE5,
+0x501A,
+0x5028,
+0x5014,
+0x502A,
+0x5025,
+0x5005,
+0x4F1C,
+0x4FF6,
+0x5021,
+0x5029,
+0x502C,
+0x4FFE,
+0x4FEF,
+0x5011,
+0x5006,
+0x5043,
+0x5047,
+0x6703,
+0x5055,
+0x5050,
+0x5048,
+0x505A,
+0x5056,
+0x506C,
+0x5078,
+0x5080,
+0x509A,
+0x5085,
+0x50B4,
+0x50B2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x50C9,
+0x50CA,
+0x50B3,
+0x50C2,
+0x50D6,
+0x50DE,
+0x50E5,
+0x50ED,
+0x50E3,
+0x50EE,
+0x50F9,
+0x50F5,
+0x5109,
+0x5101,
+0x5102,
+0x5116,
+0x5115,
+0x5114,
+0x511A,
+0x5121,
+0x513A,
+0x5137,
+0x513C,
+0x513B,
+0x513F,
+0x5140,
+0x5152,
+0x514C,
+0x5154,
+0x5162,
+0x7AF8,
+0x5169,
+0x516A,
+0x516E,
+0x5180,
+0x5182,
+0x56D8,
+0x518C,
+0x5189,
+0x518F,
+0x5191,
+0x5193,
+0x5195,
+0x5196,
+0x51A4,
+0x51A6,
+0x51A2,
+0x51A9,
+0x51AA,
+0x51AB,
+0x51B3,
+0x51B1,
+0x51B2,
+0x51B0,
+0x51B5,
+0x51BD,
+0x51C5,
+0x51C9,
+0x51DB,
+0x51E0,
+0x8655,
+0x51E9,
+0x51ED,
+0x51F0,
+0x51F5,
+0x51FE,
+0x5204,
+0x520B,
+0x5214,
+0x520E,
+0x5227,
+0x522A,
+0x522E,
+0x5233,
+0x5239,
+0x524F,
+0x5244,
+0x524B,
+0x524C,
+0x525E,
+0x5254,
+0x526A,
+0x5274,
+0x5269,
+0x5273,
+0x527F,
+0x527D,
+0x528D,
+0x5294,
+0x5292,
+0x5271,
+0x5288,
+0x5291,
+0x8FA8,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8FA7,
+0x52AC,
+0x52AD,
+0x52BC,
+0x52B5,
+0x52C1,
+0x52CD,
+0x52D7,
+0x52DE,
+0x52E3,
+0x52E6,
+0x98ED,
+0x52E0,
+0x52F3,
+0x52F5,
+0x52F8,
+0x52F9,
+0x5306,
+0x5308,
+0x7538,
+0x530D,
+0x5310,
+0x530F,
+0x5315,
+0x531A,
+0x5323,
+0x532F,
+0x5331,
+0x5333,
+0x5338,
+0x5340,
+0x5346,
+0x5345,
+0x4E17,
+0x5349,
+0x534D,
+0x51D6,
+0x535E,
+0x5369,
+0x536E,
+0x5918,
+0x537B,
+0x5377,
+0x5382,
+0x5396,
+0x53A0,
+0x53A6,
+0x53A5,
+0x53AE,
+0x53B0,
+0x53B6,
+0x53C3,
+0x7C12,
+0x96D9,
+0x53DF,
+0x66FC,
+0x71EE,
+0x53EE,
+0x53E8,
+0x53ED,
+0x53FA,
+0x5401,
+0x543D,
+0x5440,
+0x542C,
+0x542D,
+0x543C,
+0x542E,
+0x5436,
+0x5429,
+0x541D,
+0x544E,
+0x548F,
+0x5475,
+0x548E,
+0x545F,
+0x5471,
+0x5477,
+0x5470,
+0x5492,
+0x547B,
+0x5480,
+0x5476,
+0x5484,
+0x5490,
+0x5486,
+0x54C7,
+0x54A2,
+0x54B8,
+0x54A5,
+0x54AC,
+0x54C4,
+0x54C8,
+0x54A8,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x54AB,
+0x54C2,
+0x54A4,
+0x54BE,
+0x54BC,
+0x54D8,
+0x54E5,
+0x54E6,
+0x550F,
+0x5514,
+0x54FD,
+0x54EE,
+0x54ED,
+0x54FA,
+0x54E2,
+0x5539,
+0x5540,
+0x5563,
+0x554C,
+0x552E,
+0x555C,
+0x5545,
+0x5556,
+0x5557,
+0x5538,
+0x5533,
+0x555D,
+0x5599,
+0x5580,
+0x54AF,
+0x558A,
+0x559F,
+0x557B,
+0x557E,
+0x5598,
+0x559E,
+0x55AE,
+0x557C,
+0x5583,
+0x55A9,
+0x5587,
+0x55A8,
+0x55DA,
+0x55C5,
+0x55DF,
+0x55C4,
+0x55DC,
+0x55E4,
+0x55D4,
+0x5614,
+0x55F7,
+0x5616,
+0x55FE,
+0x55FD,
+0x561B,
+0x55F9,
+0x564E,
+0x5650,
+0x71DF,
+0x5634,
+0x5636,
+0x5632,
+0x5638,
+0x566B,
+0x5664,
+0x562F,
+0x566C,
+0x566A,
+0x5686,
+0x5680,
+0x568A,
+0x56A0,
+0x5694,
+0x568F,
+0x56A5,
+0x56AE,
+0x56B6,
+0x56B4,
+0x56C2,
+0x56BC,
+0x56C1,
+0x56C3,
+0x56C0,
+0x56C8,
+0x56CE,
+0x56D1,
+0x56D3,
+0x56D7,
+0x56EE,
+0x56F9,
+0x5700,
+0x56FF,
+0x5704,
+0x5709,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5708,
+0x570B,
+0x570D,
+0x5713,
+0x5718,
+0x5716,
+0x55C7,
+0x571C,
+0x5726,
+0x5737,
+0x5738,
+0x574E,
+0x573B,
+0x5740,
+0x574F,
+0x5769,
+0x57C0,
+0x5788,
+0x5761,
+0x577F,
+0x5789,
+0x5793,
+0x57A0,
+0x57B3,
+0x57A4,
+0x57AA,
+0x57B0,
+0x57C3,
+0x57C6,
+0x57D4,
+0x57D2,
+0x57D3,
+0x580A,
+0x57D6,
+0x57E3,
+0x580B,
+0x5819,
+0x581D,
+0x5872,
+0x5821,
+0x5862,
+0x584B,
+0x5870,
+0x6BC0,
+0x5852,
+0x583D,
+0x5879,
+0x5885,
+0x58B9,
+0x589F,
+0x58AB,
+0x58BA,
+0x58DE,
+0x58BB,
+0x58B8,
+0x58AE,
+0x58C5,
+0x58D3,
+0x58D1,
+0x58D7,
+0x58D9,
+0x58D8,
+0x58E5,
+0x58DC,
+0x58E4,
+0x58DF,
+0x58EF,
+0x58FA,
+0x58F9,
+0x58FB,
+0x58FC,
+0x58FD,
+0x5902,
+0x590A,
+0x5910,
+0x591B,
+0x68A6,
+0x5925,
+0x592C,
+0x592D,
+0x5932,
+0x5938,
+0x593E,
+0x7AD2,
+0x5955,
+0x5950,
+0x594E,
+0x595A,
+0x5958,
+0x5962,
+0x5960,
+0x5967,
+0x596C,
+0x5969,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5978,
+0x5981,
+0x599D,
+0x4F5E,
+0x4FAB,
+0x59A3,
+0x59B2,
+0x59C6,
+0x59E8,
+0x59DC,
+0x598D,
+0x59D9,
+0x59DA,
+0x5A25,
+0x5A1F,
+0x5A11,
+0x5A1C,
+0x5A09,
+0x5A1A,
+0x5A40,
+0x5A6C,
+0x5A49,
+0x5A35,
+0x5A36,
+0x5A62,
+0x5A6A,
+0x5A9A,
+0x5ABC,
+0x5ABE,
+0x5ACB,
+0x5AC2,
+0x5ABD,
+0x5AE3,
+0x5AD7,
+0x5AE6,
+0x5AE9,
+0x5AD6,
+0x5AFA,
+0x5AFB,
+0x5B0C,
+0x5B0B,
+0x5B16,
+0x5B32,
+0x5AD0,
+0x5B2A,
+0x5B36,
+0x5B3E,
+0x5B43,
+0x5B45,
+0x5B40,
+0x5B51,
+0x5B55,
+0x5B5A,
+0x5B5B,
+0x5B65,
+0x5B69,
+0x5B70,
+0x5B73,
+0x5B75,
+0x5B78,
+0x6588,
+0x5B7A,
+0x5B80,
+0x5B83,
+0x5BA6,
+0x5BB8,
+0x5BC3,
+0x5BC7,
+0x5BC9,
+0x5BD4,
+0x5BD0,
+0x5BE4,
+0x5BE6,
+0x5BE2,
+0x5BDE,
+0x5BE5,
+0x5BEB,
+0x5BF0,
+0x5BF6,
+0x5BF3,
+0x5C05,
+0x5C07,
+0x5C08,
+0x5C0D,
+0x5C13,
+0x5C20,
+0x5C22,
+0x5C28,
+0x5C38,
+0x5C39,
+0x5C41,
+0x5C46,
+0x5C4E,
+0x5C53,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5C50,
+0x5C4F,
+0x5B71,
+0x5C6C,
+0x5C6E,
+0x4E62,
+0x5C76,
+0x5C79,
+0x5C8C,
+0x5C91,
+0x5C94,
+0x599B,
+0x5CAB,
+0x5CBB,
+0x5CB6,
+0x5CBC,
+0x5CB7,
+0x5CC5,
+0x5CBE,
+0x5CC7,
+0x5CD9,
+0x5CE9,
+0x5CFD,
+0x5CFA,
+0x5CED,
+0x5D8C,
+0x5CEA,
+0x5D0B,
+0x5D15,
+0x5D17,
+0x5D5C,
+0x5D1F,
+0x5D1B,
+0x5D11,
+0x5D14,
+0x5D22,
+0x5D1A,
+0x5D19,
+0x5D18,
+0x5D4C,
+0x5D52,
+0x5D4E,
+0x5D4B,
+0x5D6C,
+0x5D73,
+0x5D76,
+0x5D87,
+0x5D84,
+0x5D82,
+0x5DA2,
+0x5D9D,
+0x5DAC,
+0x5DAE,
+0x5DBD,
+0x5D90,
+0x5DB7,
+0x5DBC,
+0x5DC9,
+0x5DCD,
+0x5DD3,
+0x5DD2,
+0x5DD6,
+0x5DDB,
+0x5DEB,
+0x5DF2,
+0x5DF5,
+0x5E0B,
+0x5E1A,
+0x5E19,
+0x5E11,
+0x5E1B,
+0x5E36,
+0x5E37,
+0x5E44,
+0x5E43,
+0x5E40,
+0x5E4E,
+0x5E57,
+0x5E54,
+0x5E5F,
+0x5E62,
+0x5E64,
+0x5E47,
+0x5E75,
+0x5E76,
+0x5E7A,
+0x9EBC,
+0x5E7F,
+0x5EA0,
+0x5EC1,
+0x5EC2,
+0x5EC8,
+0x5ED0,
+0x5ECF,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5ED6,
+0x5EE3,
+0x5EDD,
+0x5EDA,
+0x5EDB,
+0x5EE2,
+0x5EE1,
+0x5EE8,
+0x5EE9,
+0x5EEC,
+0x5EF1,
+0x5EF3,
+0x5EF0,
+0x5EF4,
+0x5EF8,
+0x5EFE,
+0x5F03,
+0x5F09,
+0x5F5D,
+0x5F5C,
+0x5F0B,
+0x5F11,
+0x5F16,
+0x5F29,
+0x5F2D,
+0x5F38,
+0x5F41,
+0x5F48,
+0x5F4C,
+0x5F4E,
+0x5F2F,
+0x5F51,
+0x5F56,
+0x5F57,
+0x5F59,
+0x5F61,
+0x5F6D,
+0x5F73,
+0x5F77,
+0x5F83,
+0x5F82,
+0x5F7F,
+0x5F8A,
+0x5F88,
+0x5F91,
+0x5F87,
+0x5F9E,
+0x5F99,
+0x5F98,
+0x5FA0,
+0x5FA8,
+0x5FAD,
+0x5FBC,
+0x5FD6,
+0x5FFB,
+0x5FE4,
+0x5FF8,
+0x5FF1,
+0x5FDD,
+0x60B3,
+0x5FFF,
+0x6021,
+0x6060,
+0x6019,
+0x6010,
+0x6029,
+0x600E,
+0x6031,
+0x601B,
+0x6015,
+0x602B,
+0x6026,
+0x600F,
+0x603A,
+0x605A,
+0x6041,
+0x606A,
+0x6077,
+0x605F,
+0x604A,
+0x6046,
+0x604D,
+0x6063,
+0x6043,
+0x6064,
+0x6042,
+0x606C,
+0x606B,
+0x6059,
+0x6081,
+0x608D,
+0x60E7,
+0x6083,
+0x609A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6084,
+0x609B,
+0x6096,
+0x6097,
+0x6092,
+0x60A7,
+0x608B,
+0x60E1,
+0x60B8,
+0x60E0,
+0x60D3,
+0x60B4,
+0x5FF0,
+0x60BD,
+0x60C6,
+0x60B5,
+0x60D8,
+0x614D,
+0x6115,
+0x6106,
+0x60F6,
+0x60F7,
+0x6100,
+0x60F4,
+0x60FA,
+0x6103,
+0x6121,
+0x60FB,
+0x60F1,
+0x610D,
+0x610E,
+0x6147,
+0x613E,
+0x6128,
+0x6127,
+0x614A,
+0x613F,
+0x613C,
+0x612C,
+0x6134,
+0x613D,
+0x6142,
+0x6144,
+0x6173,
+0x6177,
+0x6158,
+0x6159,
+0x615A,
+0x616B,
+0x6174,
+0x616F,
+0x6165,
+0x6171,
+0x615F,
+0x615D,
+0x6153,
+0x6175,
+0x6199,
+0x6196,
+0x6187,
+0x61AC,
+0x6194,
+0x619A,
+0x618A,
+0x6191,
+0x61AB,
+0x61AE,
+0x61CC,
+0x61CA,
+0x61C9,
+0x61F7,
+0x61C8,
+0x61C3,
+0x61C6,
+0x61BA,
+0x61CB,
+0x7F79,
+0x61CD,
+0x61E6,
+0x61E3,
+0x61F6,
+0x61FA,
+0x61F4,
+0x61FF,
+0x61FD,
+0x61FC,
+0x61FE,
+0x6200,
+0x6208,
+0x6209,
+0x620D,
+0x620C,
+0x6214,
+0x621B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x621E,
+0x6221,
+0x622A,
+0x622E,
+0x6230,
+0x6232,
+0x6233,
+0x6241,
+0x624E,
+0x625E,
+0x6263,
+0x625B,
+0x6260,
+0x6268,
+0x627C,
+0x6282,
+0x6289,
+0x627E,
+0x6292,
+0x6293,
+0x6296,
+0x62D4,
+0x6283,
+0x6294,
+0x62D7,
+0x62D1,
+0x62BB,
+0x62CF,
+0x62FF,
+0x62C6,
+0x64D4,
+0x62C8,
+0x62DC,
+0x62CC,
+0x62CA,
+0x62C2,
+0x62C7,
+0x629B,
+0x62C9,
+0x630C,
+0x62EE,
+0x62F1,
+0x6327,
+0x6302,
+0x6308,
+0x62EF,
+0x62F5,
+0x6350,
+0x633E,
+0x634D,
+0x641C,
+0x634F,
+0x6396,
+0x638E,
+0x6380,
+0x63AB,
+0x6376,
+0x63A3,
+0x638F,
+0x6389,
+0x639F,
+0x63B5,
+0x636B,
+0x6369,
+0x63BE,
+0x63E9,
+0x63C0,
+0x63C6,
+0x63E3,
+0x63C9,
+0x63D2,
+0x63F6,
+0x63C4,
+0x6416,
+0x6434,
+0x6406,
+0x6413,
+0x6426,
+0x6436,
+0x651D,
+0x6417,
+0x6428,
+0x640F,
+0x6467,
+0x646F,
+0x6476,
+0x644E,
+0x652A,
+0x6495,
+0x6493,
+0x64A5,
+0x64A9,
+0x6488,
+0x64BC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x64DA,
+0x64D2,
+0x64C5,
+0x64C7,
+0x64BB,
+0x64D8,
+0x64C2,
+0x64F1,
+0x64E7,
+0x8209,
+0x64E0,
+0x64E1,
+0x62AC,
+0x64E3,
+0x64EF,
+0x652C,
+0x64F6,
+0x64F4,
+0x64F2,
+0x64FA,
+0x6500,
+0x64FD,
+0x6518,
+0x651C,
+0x6505,
+0x6524,
+0x6523,
+0x652B,
+0x6534,
+0x6535,
+0x6537,
+0x6536,
+0x6538,
+0x754B,
+0x6548,
+0x6556,
+0x6555,
+0x654D,
+0x6558,
+0x655E,
+0x655D,
+0x6572,
+0x6578,
+0x6582,
+0x6583,
+0x8B8A,
+0x659B,
+0x659F,
+0x65AB,
+0x65B7,
+0x65C3,
+0x65C6,
+0x65C1,
+0x65C4,
+0x65CC,
+0x65D2,
+0x65DB,
+0x65D9,
+0x65E0,
+0x65E1,
+0x65F1,
+0x6772,
+0x660A,
+0x6603,
+0x65FB,
+0x6773,
+0x6635,
+0x6636,
+0x6634,
+0x661C,
+0x664F,
+0x6644,
+0x6649,
+0x6641,
+0x665E,
+0x665D,
+0x6664,
+0x6667,
+0x6668,
+0x665F,
+0x6662,
+0x6670,
+0x6683,
+0x6688,
+0x668E,
+0x6689,
+0x6684,
+0x6698,
+0x669D,
+0x66C1,
+0x66B9,
+0x66C9,
+0x66BE,
+0x66BC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x66C4,
+0x66B8,
+0x66D6,
+0x66DA,
+0x66E0,
+0x663F,
+0x66E6,
+0x66E9,
+0x66F0,
+0x66F5,
+0x66F7,
+0x670F,
+0x6716,
+0x671E,
+0x6726,
+0x6727,
+0x9738,
+0x672E,
+0x673F,
+0x6736,
+0x6741,
+0x6738,
+0x6737,
+0x6746,
+0x675E,
+0x6760,
+0x6759,
+0x6763,
+0x6764,
+0x6789,
+0x6770,
+0x67A9,
+0x677C,
+0x676A,
+0x678C,
+0x678B,
+0x67A6,
+0x67A1,
+0x6785,
+0x67B7,
+0x67EF,
+0x67B4,
+0x67EC,
+0x67B3,
+0x67E9,
+0x67B8,
+0x67E4,
+0x67DE,
+0x67DD,
+0x67E2,
+0x67EE,
+0x67B9,
+0x67CE,
+0x67C6,
+0x67E7,
+0x6A9C,
+0x681E,
+0x6846,
+0x6829,
+0x6840,
+0x684D,
+0x6832,
+0x684E,
+0x68B3,
+0x682B,
+0x6859,
+0x6863,
+0x6877,
+0x687F,
+0x689F,
+0x688F,
+0x68AD,
+0x6894,
+0x689D,
+0x689B,
+0x6883,
+0x6AAE,
+0x68B9,
+0x6874,
+0x68B5,
+0x68A0,
+0x68BA,
+0x690F,
+0x688D,
+0x687E,
+0x6901,
+0x68CA,
+0x6908,
+0x68D8,
+0x6922,
+0x6926,
+0x68E1,
+0x690C,
+0x68CD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x68D4,
+0x68E7,
+0x68D5,
+0x6936,
+0x6912,
+0x6904,
+0x68D7,
+0x68E3,
+0x6925,
+0x68F9,
+0x68E0,
+0x68EF,
+0x6928,
+0x692A,
+0x691A,
+0x6923,
+0x6921,
+0x68C6,
+0x6979,
+0x6977,
+0x695C,
+0x6978,
+0x696B,
+0x6954,
+0x697E,
+0x696E,
+0x6939,
+0x6974,
+0x693D,
+0x6959,
+0x6930,
+0x6961,
+0x695E,
+0x695D,
+0x6981,
+0x696A,
+0x69B2,
+0x69AE,
+0x69D0,
+0x69BF,
+0x69C1,
+0x69D3,
+0x69BE,
+0x69CE,
+0x5BE8,
+0x69CA,
+0x69DD,
+0x69BB,
+0x69C3,
+0x69A7,
+0x6A2E,
+0x6991,
+0x69A0,
+0x699C,
+0x6995,
+0x69B4,
+0x69DE,
+0x69E8,
+0x6A02,
+0x6A1B,
+0x69FF,
+0x6B0A,
+0x69F9,
+0x69F2,
+0x69E7,
+0x6A05,
+0x69B1,
+0x6A1E,
+0x69ED,
+0x6A14,
+0x69EB,
+0x6A0A,
+0x6A12,
+0x6AC1,
+0x6A23,
+0x6A13,
+0x6A44,
+0x6A0C,
+0x6A72,
+0x6A36,
+0x6A78,
+0x6A47,
+0x6A62,
+0x6A59,
+0x6A66,
+0x6A48,
+0x6A38,
+0x6A22,
+0x6A90,
+0x6A8D,
+0x6AA0,
+0x6A84,
+0x6AA2,
+0x6AA3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6A97,
+0x8617,
+0x6ABB,
+0x6AC3,
+0x6AC2,
+0x6AB8,
+0x6AB3,
+0x6AAC,
+0x6ADE,
+0x6AD1,
+0x6ADF,
+0x6AAA,
+0x6ADA,
+0x6AEA,
+0x6AFB,
+0x6B05,
+0x8616,
+0x6AFA,
+0x6B12,
+0x6B16,
+0x9B31,
+0x6B1F,
+0x6B38,
+0x6B37,
+0x76DC,
+0x6B39,
+0x98EE,
+0x6B47,
+0x6B43,
+0x6B49,
+0x6B50,
+0x6B59,
+0x6B54,
+0x6B5B,
+0x6B5F,
+0x6B61,
+0x6B78,
+0x6B79,
+0x6B7F,
+0x6B80,
+0x6B84,
+0x6B83,
+0x6B8D,
+0x6B98,
+0x6B95,
+0x6B9E,
+0x6BA4,
+0x6BAA,
+0x6BAB,
+0x6BAF,
+0x6BB2,
+0x6BB1,
+0x6BB3,
+0x6BB7,
+0x6BBC,
+0x6BC6,
+0x6BCB,
+0x6BD3,
+0x6BDF,
+0x6BEC,
+0x6BEB,
+0x6BF3,
+0x6BEF,
+0x9EBE,
+0x6C08,
+0x6C13,
+0x6C14,
+0x6C1B,
+0x6C24,
+0x6C23,
+0x6C5E,
+0x6C55,
+0x6C62,
+0x6C6A,
+0x6C82,
+0x6C8D,
+0x6C9A,
+0x6C81,
+0x6C9B,
+0x6C7E,
+0x6C68,
+0x6C73,
+0x6C92,
+0x6C90,
+0x6CC4,
+0x6CF1,
+0x6CD3,
+0x6CBD,
+0x6CD7,
+0x6CC5,
+0x6CDD,
+0x6CAE,
+0x6CB1,
+0x6CBE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6CBA,
+0x6CDB,
+0x6CEF,
+0x6CD9,
+0x6CEA,
+0x6D1F,
+0x884D,
+0x6D36,
+0x6D2B,
+0x6D3D,
+0x6D38,
+0x6D19,
+0x6D35,
+0x6D33,
+0x6D12,
+0x6D0C,
+0x6D63,
+0x6D93,
+0x6D64,
+0x6D5A,
+0x6D79,
+0x6D59,
+0x6D8E,
+0x6D95,
+0x6FE4,
+0x6D85,
+0x6DF9,
+0x6E15,
+0x6E0A,
+0x6DB5,
+0x6DC7,
+0x6DE6,
+0x6DB8,
+0x6DC6,
+0x6DEC,
+0x6DDE,
+0x6DCC,
+0x6DE8,
+0x6DD2,
+0x6DC5,
+0x6DFA,
+0x6DD9,
+0x6DE4,
+0x6DD5,
+0x6DEA,
+0x6DEE,
+0x6E2D,
+0x6E6E,
+0x6E2E,
+0x6E19,
+0x6E72,
+0x6E5F,
+0x6E3E,
+0x6E23,
+0x6E6B,
+0x6E2B,
+0x6E76,
+0x6E4D,
+0x6E1F,
+0x6E43,
+0x6E3A,
+0x6E4E,
+0x6E24,
+0x6EFF,
+0x6E1D,
+0x6E38,
+0x6E82,
+0x6EAA,
+0x6E98,
+0x6EC9,
+0x6EB7,
+0x6ED3,
+0x6EBD,
+0x6EAF,
+0x6EC4,
+0x6EB2,
+0x6ED4,
+0x6ED5,
+0x6E8F,
+0x6EA5,
+0x6EC2,
+0x6E9F,
+0x6F41,
+0x6F11,
+0x704C,
+0x6EEC,
+0x6EF8,
+0x6EFE,
+0x6F3F,
+0x6EF2,
+0x6F31,
+0x6EEF,
+0x6F32,
+0x6ECC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6F3E,
+0x6F13,
+0x6EF7,
+0x6F86,
+0x6F7A,
+0x6F78,
+0x6F81,
+0x6F80,
+0x6F6F,
+0x6F5B,
+0x6FF3,
+0x6F6D,
+0x6F82,
+0x6F7C,
+0x6F58,
+0x6F8E,
+0x6F91,
+0x6FC2,
+0x6F66,
+0x6FB3,
+0x6FA3,
+0x6FA1,
+0x6FA4,
+0x6FB9,
+0x6FC6,
+0x6FAA,
+0x6FDF,
+0x6FD5,
+0x6FEC,
+0x6FD4,
+0x6FD8,
+0x6FF1,
+0x6FEE,
+0x6FDB,
+0x7009,
+0x700B,
+0x6FFA,
+0x7011,
+0x7001,
+0x700F,
+0x6FFE,
+0x701B,
+0x701A,
+0x6F74,
+0x701D,
+0x7018,
+0x701F,
+0x7030,
+0x703E,
+0x7032,
+0x7051,
+0x7063,
+0x7099,
+0x7092,
+0x70AF,
+0x70F1,
+0x70AC,
+0x70B8,
+0x70B3,
+0x70AE,
+0x70DF,
+0x70CB,
+0x70DD,
+0x70D9,
+0x7109,
+0x70FD,
+0x711C,
+0x7119,
+0x7165,
+0x7155,
+0x7188,
+0x7166,
+0x7162,
+0x714C,
+0x7156,
+0x716C,
+0x718F,
+0x71FB,
+0x7184,
+0x7195,
+0x71A8,
+0x71AC,
+0x71D7,
+0x71B9,
+0x71BE,
+0x71D2,
+0x71C9,
+0x71D4,
+0x71CE,
+0x71E0,
+0x71EC,
+0x71E7,
+0x71F5,
+0x71FC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x71F9,
+0x71FF,
+0x720D,
+0x7210,
+0x721B,
+0x7228,
+0x722D,
+0x722C,
+0x7230,
+0x7232,
+0x723B,
+0x723C,
+0x723F,
+0x7240,
+0x7246,
+0x724B,
+0x7258,
+0x7274,
+0x727E,
+0x7282,
+0x7281,
+0x7287,
+0x7292,
+0x7296,
+0x72A2,
+0x72A7,
+0x72B9,
+0x72B2,
+0x72C3,
+0x72C6,
+0x72C4,
+0x72CE,
+0x72D2,
+0x72E2,
+0x72E0,
+0x72E1,
+0x72F9,
+0x72F7,
+0x500F,
+0x7317,
+0x730A,
+0x731C,
+0x7316,
+0x731D,
+0x7334,
+0x732F,
+0x7329,
+0x7325,
+0x733E,
+0x734E,
+0x734F,
+0x9ED8,
+0x7357,
+0x736A,
+0x7368,
+0x7370,
+0x7378,
+0x7375,
+0x737B,
+0x737A,
+0x73C8,
+0x73B3,
+0x73CE,
+0x73BB,
+0x73C0,
+0x73E5,
+0x73EE,
+0x73DE,
+0x74A2,
+0x7405,
+0x746F,
+0x7425,
+0x73F8,
+0x7432,
+0x743A,
+0x7455,
+0x743F,
+0x745F,
+0x7459,
+0x7441,
+0x745C,
+0x7469,
+0x7470,
+0x7463,
+0x746A,
+0x7476,
+0x747E,
+0x748B,
+0x749E,
+0x74A7,
+0x74CA,
+0x74CF,
+0x74D4,
+0x73F1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x74E0,
+0x74E3,
+0x74E7,
+0x74E9,
+0x74EE,
+0x74F2,
+0x74F0,
+0x74F1,
+0x74F8,
+0x74F7,
+0x7504,
+0x7503,
+0x7505,
+0x750C,
+0x750E,
+0x750D,
+0x7515,
+0x7513,
+0x751E,
+0x7526,
+0x752C,
+0x753C,
+0x7544,
+0x754D,
+0x754A,
+0x7549,
+0x755B,
+0x7546,
+0x755A,
+0x7569,
+0x7564,
+0x7567,
+0x756B,
+0x756D,
+0x7578,
+0x7576,
+0x7586,
+0x7587,
+0x7574,
+0x758A,
+0x7589,
+0x7582,
+0x7594,
+0x759A,
+0x759D,
+0x75A5,
+0x75A3,
+0x75C2,
+0x75B3,
+0x75C3,
+0x75B5,
+0x75BD,
+0x75B8,
+0x75BC,
+0x75B1,
+0x75CD,
+0x75CA,
+0x75D2,
+0x75D9,
+0x75E3,
+0x75DE,
+0x75FE,
+0x75FF,
+0x75FC,
+0x7601,
+0x75F0,
+0x75FA,
+0x75F2,
+0x75F3,
+0x760B,
+0x760D,
+0x7609,
+0x761F,
+0x7627,
+0x7620,
+0x7621,
+0x7622,
+0x7624,
+0x7634,
+0x7630,
+0x763B,
+0x7647,
+0x7648,
+0x7646,
+0x765C,
+0x7658,
+0x7661,
+0x7662,
+0x7668,
+0x7669,
+0x766A,
+0x7667,
+0x766C,
+0x7670,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7672,
+0x7676,
+0x7678,
+0x767C,
+0x7680,
+0x7683,
+0x7688,
+0x768B,
+0x768E,
+0x7696,
+0x7693,
+0x7699,
+0x769A,
+0x76B0,
+0x76B4,
+0x76B8,
+0x76B9,
+0x76BA,
+0x76C2,
+0x76CD,
+0x76D6,
+0x76D2,
+0x76DE,
+0x76E1,
+0x76E5,
+0x76E7,
+0x76EA,
+0x862F,
+0x76FB,
+0x7708,
+0x7707,
+0x7704,
+0x7729,
+0x7724,
+0x771E,
+0x7725,
+0x7726,
+0x771B,
+0x7737,
+0x7738,
+0x7747,
+0x775A,
+0x7768,
+0x776B,
+0x775B,
+0x7765,
+0x777F,
+0x777E,
+0x7779,
+0x778E,
+0x778B,
+0x7791,
+0x77A0,
+0x779E,
+0x77B0,
+0x77B6,
+0x77B9,
+0x77BF,
+0x77BC,
+0x77BD,
+0x77BB,
+0x77C7,
+0x77CD,
+0x77D7,
+0x77DA,
+0x77DC,
+0x77E3,
+0x77EE,
+0x77FC,
+0x780C,
+0x7812,
+0x7926,
+0x7820,
+0x792A,
+0x7845,
+0x788E,
+0x7874,
+0x7886,
+0x787C,
+0x789A,
+0x788C,
+0x78A3,
+0x78B5,
+0x78AA,
+0x78AF,
+0x78D1,
+0x78C6,
+0x78CB,
+0x78D4,
+0x78BE,
+0x78BC,
+0x78C5,
+0x78CA,
+0x78EC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x78E7,
+0x78DA,
+0x78FD,
+0x78F4,
+0x7907,
+0x7912,
+0x7911,
+0x7919,
+0x792C,
+0x792B,
+0x7940,
+0x7960,
+0x7957,
+0x795F,
+0x795A,
+0x7955,
+0x7953,
+0x797A,
+0x797F,
+0x798A,
+0x799D,
+0x79A7,
+0x9F4B,
+0x79AA,
+0x79AE,
+0x79B3,
+0x79B9,
+0x79BA,
+0x79C9,
+0x79D5,
+0x79E7,
+0x79EC,
+0x79E1,
+0x79E3,
+0x7A08,
+0x7A0D,
+0x7A18,
+0x7A19,
+0x7A20,
+0x7A1F,
+0x7980,
+0x7A31,
+0x7A3B,
+0x7A3E,
+0x7A37,
+0x7A43,
+0x7A57,
+0x7A49,
+0x7A61,
+0x7A62,
+0x7A69,
+0x9F9D,
+0x7A70,
+0x7A79,
+0x7A7D,
+0x7A88,
+0x7A97,
+0x7A95,
+0x7A98,
+0x7A96,
+0x7AA9,
+0x7AC8,
+0x7AB0,
+0x7AB6,
+0x7AC5,
+0x7AC4,
+0x7ABF,
+0x9083,
+0x7AC7,
+0x7ACA,
+0x7ACD,
+0x7ACF,
+0x7AD5,
+0x7AD3,
+0x7AD9,
+0x7ADA,
+0x7ADD,
+0x7AE1,
+0x7AE2,
+0x7AE6,
+0x7AED,
+0x7AF0,
+0x7B02,
+0x7B0F,
+0x7B0A,
+0x7B06,
+0x7B33,
+0x7B18,
+0x7B19,
+0x7B1E,
+0x7B35,
+0x7B28,
+0x7B36,
+0x7B50,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7B7A,
+0x7B04,
+0x7B4D,
+0x7B0B,
+0x7B4C,
+0x7B45,
+0x7B75,
+0x7B65,
+0x7B74,
+0x7B67,
+0x7B70,
+0x7B71,
+0x7B6C,
+0x7B6E,
+0x7B9D,
+0x7B98,
+0x7B9F,
+0x7B8D,
+0x7B9C,
+0x7B9A,
+0x7B8B,
+0x7B92,
+0x7B8F,
+0x7B5D,
+0x7B99,
+0x7BCB,
+0x7BC1,
+0x7BCC,
+0x7BCF,
+0x7BB4,
+0x7BC6,
+0x7BDD,
+0x7BE9,
+0x7C11,
+0x7C14,
+0x7BE6,
+0x7BE5,
+0x7C60,
+0x7C00,
+0x7C07,
+0x7C13,
+0x7BF3,
+0x7BF7,
+0x7C17,
+0x7C0D,
+0x7BF6,
+0x7C23,
+0x7C27,
+0x7C2A,
+0x7C1F,
+0x7C37,
+0x7C2B,
+0x7C3D,
+0x7C4C,
+0x7C43,
+0x7C54,
+0x7C4F,
+0x7C40,
+0x7C50,
+0x7C58,
+0x7C5F,
+0x7C64,
+0x7C56,
+0x7C65,
+0x7C6C,
+0x7C75,
+0x7C83,
+0x7C90,
+0x7CA4,
+0x7CAD,
+0x7CA2,
+0x7CAB,
+0x7CA1,
+0x7CA8,
+0x7CB3,
+0x7CB2,
+0x7CB1,
+0x7CAE,
+0x7CB9,
+0x7CBD,
+0x7CC0,
+0x7CC5,
+0x7CC2,
+0x7CD8,
+0x7CD2,
+0x7CDC,
+0x7CE2,
+0x9B3B,
+0x7CEF,
+0x7CF2,
+0x7CF4,
+0x7CF6,
+0x7CFA,
+0x7D06,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7D02,
+0x7D1C,
+0x7D15,
+0x7D0A,
+0x7D45,
+0x7D4B,
+0x7D2E,
+0x7D32,
+0x7D3F,
+0x7D35,
+0x7D46,
+0x7D73,
+0x7D56,
+0x7D4E,
+0x7D72,
+0x7D68,
+0x7D6E,
+0x7D4F,
+0x7D63,
+0x7D93,
+0x7D89,
+0x7D5B,
+0x7D8F,
+0x7D7D,
+0x7D9B,
+0x7DBA,
+0x7DAE,
+0x7DA3,
+0x7DB5,
+0x7DC7,
+0x7DBD,
+0x7DAB,
+0x7E3D,
+0x7DA2,
+0x7DAF,
+0x7DDC,
+0x7DB8,
+0x7D9F,
+0x7DB0,
+0x7DD8,
+0x7DDD,
+0x7DE4,
+0x7DDE,
+0x7DFB,
+0x7DF2,
+0x7DE1,
+0x7E05,
+0x7E0A,
+0x7E23,
+0x7E21,
+0x7E12,
+0x7E31,
+0x7E1F,
+0x7E09,
+0x7E0B,
+0x7E22,
+0x7E46,
+0x7E66,
+0x7E3B,
+0x7E35,
+0x7E39,
+0x7E43,
+0x7E37,
+0x7E32,
+0x7E3A,
+0x7E67,
+0x7E5D,
+0x7E56,
+0x7E5E,
+0x7E59,
+0x7E5A,
+0x7E79,
+0x7E6A,
+0x7E69,
+0x7E7C,
+0x7E7B,
+0x7E83,
+0x7DD5,
+0x7E7D,
+0x8FAE,
+0x7E7F,
+0x7E88,
+0x7E89,
+0x7E8C,
+0x7E92,
+0x7E90,
+0x7E93,
+0x7E94,
+0x7E96,
+0x7E8E,
+0x7E9B,
+0x7E9C,
+0x7F38,
+0x7F3A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7F45,
+0x7F4C,
+0x7F4D,
+0x7F4E,
+0x7F50,
+0x7F51,
+0x7F55,
+0x7F54,
+0x7F58,
+0x7F5F,
+0x7F60,
+0x7F68,
+0x7F69,
+0x7F67,
+0x7F78,
+0x7F82,
+0x7F86,
+0x7F83,
+0x7F88,
+0x7F87,
+0x7F8C,
+0x7F94,
+0x7F9E,
+0x7F9D,
+0x7F9A,
+0x7FA3,
+0x7FAF,
+0x7FB2,
+0x7FB9,
+0x7FAE,
+0x7FB6,
+0x7FB8,
+0x8B71,
+0x7FC5,
+0x7FC6,
+0x7FCA,
+0x7FD5,
+0x7FD4,
+0x7FE1,
+0x7FE6,
+0x7FE9,
+0x7FF3,
+0x7FF9,
+0x98DC,
+0x8006,
+0x8004,
+0x800B,
+0x8012,
+0x8018,
+0x8019,
+0x801C,
+0x8021,
+0x8028,
+0x803F,
+0x803B,
+0x804A,
+0x8046,
+0x8052,
+0x8058,
+0x805A,
+0x805F,
+0x8062,
+0x8068,
+0x8073,
+0x8072,
+0x8070,
+0x8076,
+0x8079,
+0x807D,
+0x807F,
+0x8084,
+0x8086,
+0x8085,
+0x809B,
+0x8093,
+0x809A,
+0x80AD,
+0x5190,
+0x80AC,
+0x80DB,
+0x80E5,
+0x80D9,
+0x80DD,
+0x80C4,
+0x80DA,
+0x80D6,
+0x8109,
+0x80EF,
+0x80F1,
+0x811B,
+0x8129,
+0x8123,
+0x812F,
+0x814B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x968B,
+0x8146,
+0x813E,
+0x8153,
+0x8151,
+0x80FC,
+0x8171,
+0x816E,
+0x8165,
+0x8166,
+0x8174,
+0x8183,
+0x8188,
+0x818A,
+0x8180,
+0x8182,
+0x81A0,
+0x8195,
+0x81A4,
+0x81A3,
+0x815F,
+0x8193,
+0x81A9,
+0x81B0,
+0x81B5,
+0x81BE,
+0x81B8,
+0x81BD,
+0x81C0,
+0x81C2,
+0x81BA,
+0x81C9,
+0x81CD,
+0x81D1,
+0x81D9,
+0x81D8,
+0x81C8,
+0x81DA,
+0x81DF,
+0x81E0,
+0x81E7,
+0x81FA,
+0x81FB,
+0x81FE,
+0x8201,
+0x8202,
+0x8205,
+0x8207,
+0x820A,
+0x820D,
+0x8210,
+0x8216,
+0x8229,
+0x822B,
+0x8238,
+0x8233,
+0x8240,
+0x8259,
+0x8258,
+0x825D,
+0x825A,
+0x825F,
+0x8264,
+0x8262,
+0x8268,
+0x826A,
+0x826B,
+0x822E,
+0x8271,
+0x8277,
+0x8278,
+0x827E,
+0x828D,
+0x8292,
+0x82AB,
+0x829F,
+0x82BB,
+0x82AC,
+0x82E1,
+0x82E3,
+0x82DF,
+0x82D2,
+0x82F4,
+0x82F3,
+0x82FA,
+0x8393,
+0x8303,
+0x82FB,
+0x82F9,
+0x82DE,
+0x8306,
+0x82DC,
+0x8309,
+0x82D9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8335,
+0x8334,
+0x8316,
+0x8332,
+0x8331,
+0x8340,
+0x8339,
+0x8350,
+0x8345,
+0x832F,
+0x832B,
+0x8317,
+0x8318,
+0x8385,
+0x839A,
+0x83AA,
+0x839F,
+0x83A2,
+0x8396,
+0x8323,
+0x838E,
+0x8387,
+0x838A,
+0x837C,
+0x83B5,
+0x8373,
+0x8375,
+0x83A0,
+0x8389,
+0x83A8,
+0x83F4,
+0x8413,
+0x83EB,
+0x83CE,
+0x83FD,
+0x8403,
+0x83D8,
+0x840B,
+0x83C1,
+0x83F7,
+0x8407,
+0x83E0,
+0x83F2,
+0x840D,
+0x8422,
+0x8420,
+0x83BD,
+0x8438,
+0x8506,
+0x83FB,
+0x846D,
+0x842A,
+0x843C,
+0x855A,
+0x8484,
+0x8477,
+0x846B,
+0x84AD,
+0x846E,
+0x8482,
+0x8469,
+0x8446,
+0x842C,
+0x846F,
+0x8479,
+0x8435,
+0x84CA,
+0x8462,
+0x84B9,
+0x84BF,
+0x849F,
+0x84D9,
+0x84CD,
+0x84BB,
+0x84DA,
+0x84D0,
+0x84C1,
+0x84C6,
+0x84D6,
+0x84A1,
+0x8521,
+0x84FF,
+0x84F4,
+0x8517,
+0x8518,
+0x852C,
+0x851F,
+0x8515,
+0x8514,
+0x84FC,
+0x8540,
+0x8563,
+0x8558,
+0x8548,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8541,
+0x8602,
+0x854B,
+0x8555,
+0x8580,
+0x85A4,
+0x8588,
+0x8591,
+0x858A,
+0x85A8,
+0x856D,
+0x8594,
+0x859B,
+0x85EA,
+0x8587,
+0x859C,
+0x8577,
+0x857E,
+0x8590,
+0x85C9,
+0x85BA,
+0x85CF,
+0x85B9,
+0x85D0,
+0x85D5,
+0x85DD,
+0x85E5,
+0x85DC,
+0x85F9,
+0x860A,
+0x8613,
+0x860B,
+0x85FE,
+0x85FA,
+0x8606,
+0x8622,
+0x861A,
+0x8630,
+0x863F,
+0x864D,
+0x4E55,
+0x8654,
+0x865F,
+0x8667,
+0x8671,
+0x8693,
+0x86A3,
+0x86A9,
+0x86AA,
+0x868B,
+0x868C,
+0x86B6,
+0x86AF,
+0x86C4,
+0x86C6,
+0x86B0,
+0x86C9,
+0x8823,
+0x86AB,
+0x86D4,
+0x86DE,
+0x86E9,
+0x86EC,
+0x86DF,
+0x86DB,
+0x86EF,
+0x8712,
+0x8706,
+0x8708,
+0x8700,
+0x8703,
+0x86FB,
+0x8711,
+0x8709,
+0x870D,
+0x86F9,
+0x870A,
+0x8734,
+0x873F,
+0x8737,
+0x873B,
+0x8725,
+0x8729,
+0x871A,
+0x8760,
+0x875F,
+0x8778,
+0x874C,
+0x874E,
+0x8774,
+0x8757,
+0x8768,
+0x876E,
+0x8759,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8753,
+0x8763,
+0x876A,
+0x8805,
+0x87A2,
+0x879F,
+0x8782,
+0x87AF,
+0x87CB,
+0x87BD,
+0x87C0,
+0x87D0,
+0x96D6,
+0x87AB,
+0x87C4,
+0x87B3,
+0x87C7,
+0x87C6,
+0x87BB,
+0x87EF,
+0x87F2,
+0x87E0,
+0x880F,
+0x880D,
+0x87FE,
+0x87F6,
+0x87F7,
+0x880E,
+0x87D2,
+0x8811,
+0x8816,
+0x8815,
+0x8822,
+0x8821,
+0x8831,
+0x8836,
+0x8839,
+0x8827,
+0x883B,
+0x8844,
+0x8842,
+0x8852,
+0x8859,
+0x885E,
+0x8862,
+0x886B,
+0x8881,
+0x887E,
+0x889E,
+0x8875,
+0x887D,
+0x88B5,
+0x8872,
+0x8882,
+0x8897,
+0x8892,
+0x88AE,
+0x8899,
+0x88A2,
+0x888D,
+0x88A4,
+0x88B0,
+0x88BF,
+0x88B1,
+0x88C3,
+0x88C4,
+0x88D4,
+0x88D8,
+0x88D9,
+0x88DD,
+0x88F9,
+0x8902,
+0x88FC,
+0x88F4,
+0x88E8,
+0x88F2,
+0x8904,
+0x890C,
+0x890A,
+0x8913,
+0x8943,
+0x891E,
+0x8925,
+0x892A,
+0x892B,
+0x8941,
+0x8944,
+0x893B,
+0x8936,
+0x8938,
+0x894C,
+0x891D,
+0x8960,
+0x895E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8966,
+0x8964,
+0x896D,
+0x896A,
+0x896F,
+0x8974,
+0x8977,
+0x897E,
+0x8983,
+0x8988,
+0x898A,
+0x8993,
+0x8998,
+0x89A1,
+0x89A9,
+0x89A6,
+0x89AC,
+0x89AF,
+0x89B2,
+0x89BA,
+0x89BD,
+0x89BF,
+0x89C0,
+0x89DA,
+0x89DC,
+0x89DD,
+0x89E7,
+0x89F4,
+0x89F8,
+0x8A03,
+0x8A16,
+0x8A10,
+0x8A0C,
+0x8A1B,
+0x8A1D,
+0x8A25,
+0x8A36,
+0x8A41,
+0x8A5B,
+0x8A52,
+0x8A46,
+0x8A48,
+0x8A7C,
+0x8A6D,
+0x8A6C,
+0x8A62,
+0x8A85,
+0x8A82,
+0x8A84,
+0x8AA8,
+0x8AA1,
+0x8A91,
+0x8AA5,
+0x8AA6,
+0x8A9A,
+0x8AA3,
+0x8AC4,
+0x8ACD,
+0x8AC2,
+0x8ADA,
+0x8AEB,
+0x8AF3,
+0x8AE7,
+0x8AE4,
+0x8AF1,
+0x8B14,
+0x8AE0,
+0x8AE2,
+0x8AF7,
+0x8ADE,
+0x8ADB,
+0x8B0C,
+0x8B07,
+0x8B1A,
+0x8AE1,
+0x8B16,
+0x8B10,
+0x8B17,
+0x8B20,
+0x8B33,
+0x97AB,
+0x8B26,
+0x8B2B,
+0x8B3E,
+0x8B28,
+0x8B41,
+0x8B4C,
+0x8B4F,
+0x8B4E,
+0x8B49,
+0x8B56,
+0x8B5B,
+0x8B5A,
+0x8B6B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8B5F,
+0x8B6C,
+0x8B6F,
+0x8B74,
+0x8B7D,
+0x8B80,
+0x8B8C,
+0x8B8E,
+0x8B92,
+0x8B93,
+0x8B96,
+0x8B99,
+0x8B9A,
+0x8C3A,
+0x8C41,
+0x8C3F,
+0x8C48,
+0x8C4C,
+0x8C4E,
+0x8C50,
+0x8C55,
+0x8C62,
+0x8C6C,
+0x8C78,
+0x8C7A,
+0x8C82,
+0x8C89,
+0x8C85,
+0x8C8A,
+0x8C8D,
+0x8C8E,
+0x8C94,
+0x8C7C,
+0x8C98,
+0x621D,
+0x8CAD,
+0x8CAA,
+0x8CBD,
+0x8CB2,
+0x8CB3,
+0x8CAE,
+0x8CB6,
+0x8CC8,
+0x8CC1,
+0x8CE4,
+0x8CE3,
+0x8CDA,
+0x8CFD,
+0x8CFA,
+0x8CFB,
+0x8D04,
+0x8D05,
+0x8D0A,
+0x8D07,
+0x8D0F,
+0x8D0D,
+0x8D10,
+0x9F4E,
+0x8D13,
+0x8CCD,
+0x8D14,
+0x8D16,
+0x8D67,
+0x8D6D,
+0x8D71,
+0x8D73,
+0x8D81,
+0x8D99,
+0x8DC2,
+0x8DBE,
+0x8DBA,
+0x8DCF,
+0x8DDA,
+0x8DD6,
+0x8DCC,
+0x8DDB,
+0x8DCB,
+0x8DEA,
+0x8DEB,
+0x8DDF,
+0x8DE3,
+0x8DFC,
+0x8E08,
+0x8E09,
+0x8DFF,
+0x8E1D,
+0x8E1E,
+0x8E10,
+0x8E1F,
+0x8E42,
+0x8E35,
+0x8E30,
+0x8E34,
+0x8E4A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8E47,
+0x8E49,
+0x8E4C,
+0x8E50,
+0x8E48,
+0x8E59,
+0x8E64,
+0x8E60,
+0x8E2A,
+0x8E63,
+0x8E55,
+0x8E76,
+0x8E72,
+0x8E7C,
+0x8E81,
+0x8E87,
+0x8E85,
+0x8E84,
+0x8E8B,
+0x8E8A,
+0x8E93,
+0x8E91,
+0x8E94,
+0x8E99,
+0x8EAA,
+0x8EA1,
+0x8EAC,
+0x8EB0,
+0x8EC6,
+0x8EB1,
+0x8EBE,
+0x8EC5,
+0x8EC8,
+0x8ECB,
+0x8EDB,
+0x8EE3,
+0x8EFC,
+0x8EFB,
+0x8EEB,
+0x8EFE,
+0x8F0A,
+0x8F05,
+0x8F15,
+0x8F12,
+0x8F19,
+0x8F13,
+0x8F1C,
+0x8F1F,
+0x8F1B,
+0x8F0C,
+0x8F26,
+0x8F33,
+0x8F3B,
+0x8F39,
+0x8F45,
+0x8F42,
+0x8F3E,
+0x8F4C,
+0x8F49,
+0x8F46,
+0x8F4E,
+0x8F57,
+0x8F5C,
+0x8F62,
+0x8F63,
+0x8F64,
+0x8F9C,
+0x8F9F,
+0x8FA3,
+0x8FAD,
+0x8FAF,
+0x8FB7,
+0x8FDA,
+0x8FE5,
+0x8FE2,
+0x8FEA,
+0x8FEF,
+0x9087,
+0x8FF4,
+0x9005,
+0x8FF9,
+0x8FFA,
+0x9011,
+0x9015,
+0x9021,
+0x900D,
+0x901E,
+0x9016,
+0x900B,
+0x9027,
+0x9036,
+0x9035,
+0x9039,
+0x8FF8,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x904F,
+0x9050,
+0x9051,
+0x9052,
+0x900E,
+0x9049,
+0x903E,
+0x9056,
+0x9058,
+0x905E,
+0x9068,
+0x906F,
+0x9076,
+0x96A8,
+0x9072,
+0x9082,
+0x907D,
+0x9081,
+0x9080,
+0x908A,
+0x9089,
+0x908F,
+0x90A8,
+0x90AF,
+0x90B1,
+0x90B5,
+0x90E2,
+0x90E4,
+0x6248,
+0x90DB,
+0x9102,
+0x9112,
+0x9119,
+0x9132,
+0x9130,
+0x914A,
+0x9156,
+0x9158,
+0x9163,
+0x9165,
+0x9169,
+0x9173,
+0x9172,
+0x918B,
+0x9189,
+0x9182,
+0x91A2,
+0x91AB,
+0x91AF,
+0x91AA,
+0x91B5,
+0x91B4,
+0x91BA,
+0x91C0,
+0x91C1,
+0x91C9,
+0x91CB,
+0x91D0,
+0x91D6,
+0x91DF,
+0x91E1,
+0x91DB,
+0x91FC,
+0x91F5,
+0x91F6,
+0x921E,
+0x91FF,
+0x9214,
+0x922C,
+0x9215,
+0x9211,
+0x925E,
+0x9257,
+0x9245,
+0x9249,
+0x9264,
+0x9248,
+0x9295,
+0x923F,
+0x924B,
+0x9250,
+0x929C,
+0x9296,
+0x9293,
+0x929B,
+0x925A,
+0x92CF,
+0x92B9,
+0x92B7,
+0x92E9,
+0x930F,
+0x92FA,
+0x9344,
+0x932E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9319,
+0x9322,
+0x931A,
+0x9323,
+0x933A,
+0x9335,
+0x933B,
+0x935C,
+0x9360,
+0x937C,
+0x936E,
+0x9356,
+0x93B0,
+0x93AC,
+0x93AD,
+0x9394,
+0x93B9,
+0x93D6,
+0x93D7,
+0x93E8,
+0x93E5,
+0x93D8,
+0x93C3,
+0x93DD,
+0x93D0,
+0x93C8,
+0x93E4,
+0x941A,
+0x9414,
+0x9413,
+0x9403,
+0x9407,
+0x9410,
+0x9436,
+0x942B,
+0x9435,
+0x9421,
+0x943A,
+0x9441,
+0x9452,
+0x9444,
+0x945B,
+0x9460,
+0x9462,
+0x945E,
+0x946A,
+0x9229,
+0x9470,
+0x9475,
+0x9477,
+0x947D,
+0x945A,
+0x947C,
+0x947E,
+0x9481,
+0x947F,
+0x9582,
+0x9587,
+0x958A,
+0x9594,
+0x9596,
+0x9598,
+0x9599,
+0x95A0,
+0x95A8,
+0x95A7,
+0x95AD,
+0x95BC,
+0x95BB,
+0x95B9,
+0x95BE,
+0x95CA,
+0x6FF6,
+0x95C3,
+0x95CD,
+0x95CC,
+0x95D5,
+0x95D4,
+0x95D6,
+0x95DC,
+0x95E1,
+0x95E5,
+0x95E2,
+0x9621,
+0x9628,
+0x962E,
+0x962F,
+0x9642,
+0x964C,
+0x964F,
+0x964B,
+0x9677,
+0x965C,
+0x965E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x965D,
+0x965F,
+0x9666,
+0x9672,
+0x966C,
+0x968D,
+0x9698,
+0x9695,
+0x9697,
+0x96AA,
+0x96A7,
+0x96B1,
+0x96B2,
+0x96B0,
+0x96B4,
+0x96B6,
+0x96B8,
+0x96B9,
+0x96CE,
+0x96CB,
+0x96C9,
+0x96CD,
+0x894D,
+0x96DC,
+0x970D,
+0x96D5,
+0x96F9,
+0x9704,
+0x9706,
+0x9708,
+0x9713,
+0x970E,
+0x9711,
+0x970F,
+0x9716,
+0x9719,
+0x9724,
+0x972A,
+0x9730,
+0x9739,
+0x973D,
+0x973E,
+0x9744,
+0x9746,
+0x9748,
+0x9742,
+0x9749,
+0x975C,
+0x9760,
+0x9764,
+0x9766,
+0x9768,
+0x52D2,
+0x976B,
+0x9771,
+0x9779,
+0x9785,
+0x977C,
+0x9781,
+0x977A,
+0x9786,
+0x978B,
+0x978F,
+0x9790,
+0x979C,
+0x97A8,
+0x97A6,
+0x97A3,
+0x97B3,
+0x97B4,
+0x97C3,
+0x97C6,
+0x97C8,
+0x97CB,
+0x97DC,
+0x97ED,
+0x9F4F,
+0x97F2,
+0x7ADF,
+0x97F6,
+0x97F5,
+0x980F,
+0x980C,
+0x9838,
+0x9824,
+0x9821,
+0x9837,
+0x983D,
+0x9846,
+0x984F,
+0x984B,
+0x986B,
+0x986F,
+0x9870,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9871,
+0x9874,
+0x9873,
+0x98AA,
+0x98AF,
+0x98B1,
+0x98B6,
+0x98C4,
+0x98C3,
+0x98C6,
+0x98E9,
+0x98EB,
+0x9903,
+0x9909,
+0x9912,
+0x9914,
+0x9918,
+0x9921,
+0x991D,
+0x991E,
+0x9924,
+0x9920,
+0x992C,
+0x992E,
+0x993D,
+0x993E,
+0x9942,
+0x9949,
+0x9945,
+0x9950,
+0x994B,
+0x9951,
+0x9952,
+0x994C,
+0x9955,
+0x9997,
+0x9998,
+0x99A5,
+0x99AD,
+0x99AE,
+0x99BC,
+0x99DF,
+0x99DB,
+0x99DD,
+0x99D8,
+0x99D1,
+0x99ED,
+0x99EE,
+0x99F1,
+0x99F2,
+0x99FB,
+0x99F8,
+0x9A01,
+0x9A0F,
+0x9A05,
+0x99E2,
+0x9A19,
+0x9A2B,
+0x9A37,
+0x9A45,
+0x9A42,
+0x9A40,
+0x9A43,
+0x9A3E,
+0x9A55,
+0x9A4D,
+0x9A5B,
+0x9A57,
+0x9A5F,
+0x9A62,
+0x9A65,
+0x9A64,
+0x9A69,
+0x9A6B,
+0x9A6A,
+0x9AAD,
+0x9AB0,
+0x9ABC,
+0x9AC0,
+0x9ACF,
+0x9AD1,
+0x9AD3,
+0x9AD4,
+0x9ADE,
+0x9ADF,
+0x9AE2,
+0x9AE3,
+0x9AE6,
+0x9AEF,
+0x9AEB,
+0x9AEE,
+0x9AF4,
+0x9AF1,
+0x9AF7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9AFB,
+0x9B06,
+0x9B18,
+0x9B1A,
+0x9B1F,
+0x9B22,
+0x9B23,
+0x9B25,
+0x9B27,
+0x9B28,
+0x9B29,
+0x9B2A,
+0x9B2E,
+0x9B2F,
+0x9B32,
+0x9B44,
+0x9B43,
+0x9B4F,
+0x9B4D,
+0x9B4E,
+0x9B51,
+0x9B58,
+0x9B74,
+0x9B93,
+0x9B83,
+0x9B91,
+0x9B96,
+0x9B97,
+0x9B9F,
+0x9BA0,
+0x9BA8,
+0x9BB4,
+0x9BC0,
+0x9BCA,
+0x9BB9,
+0x9BC6,
+0x9BCF,
+0x9BD1,
+0x9BD2,
+0x9BE3,
+0x9BE2,
+0x9BE4,
+0x9BD4,
+0x9BE1,
+0x9C3A,
+0x9BF2,
+0x9BF1,
+0x9BF0,
+0x9C15,
+0x9C14,
+0x9C09,
+0x9C13,
+0x9C0C,
+0x9C06,
+0x9C08,
+0x9C12,
+0x9C0A,
+0x9C04,
+0x9C2E,
+0x9C1B,
+0x9C25,
+0x9C24,
+0x9C21,
+0x9C30,
+0x9C47,
+0x9C32,
+0x9C46,
+0x9C3E,
+0x9C5A,
+0x9C60,
+0x9C67,
+0x9C76,
+0x9C78,
+0x9CE7,
+0x9CEC,
+0x9CF0,
+0x9D09,
+0x9D08,
+0x9CEB,
+0x9D03,
+0x9D06,
+0x9D2A,
+0x9D26,
+0x9DAF,
+0x9D23,
+0x9D1F,
+0x9D44,
+0x9D15,
+0x9D12,
+0x9D41,
+0x9D3F,
+0x9D3E,
+0x9D46,
+0x9D48,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9D5D,
+0x9D5E,
+0x9D64,
+0x9D51,
+0x9D50,
+0x9D59,
+0x9D72,
+0x9D89,
+0x9D87,
+0x9DAB,
+0x9D6F,
+0x9D7A,
+0x9D9A,
+0x9DA4,
+0x9DA9,
+0x9DB2,
+0x9DC4,
+0x9DC1,
+0x9DBB,
+0x9DB8,
+0x9DBA,
+0x9DC6,
+0x9DCF,
+0x9DC2,
+0x9DD9,
+0x9DD3,
+0x9DF8,
+0x9DE6,
+0x9DED,
+0x9DEF,
+0x9DFD,
+0x9E1A,
+0x9E1B,
+0x9E1E,
+0x9E75,
+0x9E79,
+0x9E7D,
+0x9E81,
+0x9E88,
+0x9E8B,
+0x9E8C,
+0x9E92,
+0x9E95,
+0x9E91,
+0x9E9D,
+0x9EA5,
+0x9EA9,
+0x9EB8,
+0x9EAA,
+0x9EAD,
+0x9761,
+0x9ECC,
+0x9ECE,
+0x9ECF,
+0x9ED0,
+0x9ED4,
+0x9EDC,
+0x9EDE,
+0x9EDD,
+0x9EE0,
+0x9EE5,
+0x9EE8,
+0x9EEF,
+0x9EF4,
+0x9EF6,
+0x9EF7,
+0x9EF9,
+0x9EFB,
+0x9EFC,
+0x9EFD,
+0x9F07,
+0x9F08,
+0x76B7,
+0x9F15,
+0x9F21,
+0x9F2C,
+0x9F3E,
+0x9F4A,
+0x9F52,
+0x9F54,
+0x9F63,
+0x9F5F,
+0x9F60,
+0x9F61,
+0x9F66,
+0x9F67,
+0x9F6C,
+0x9F6A,
+0x9F77,
+0x9F72,
+0x9F76,
+0x9F95,
+0x9F9C,
+0x9FA0,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x582F,
+0x69C7,
+0x9059,
+0x7464,
+0x51DC,
+0x7199,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0
+};
+static CONST USHORT to_unicode_map[256] = {
+256,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+512,
+768,
+1024,
+1280,
+1536,
+1792,
+2048,
+2304,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+2560,
+2816,
+3072,
+3328,
+3584,
+3840,
+4096,
+4352,
+4608,
+4864,
+5120,
+5376,
+5632,
+5888,
+6144,
+6400,
+6656,
+6912,
+7168,
+7424,
+7680,
+7936,
+8192,
+8448,
+8704,
+8960,
+9216,
+9472,
+9728,
+9984,
+10240,
+10496,
+10752,
+11008,
+11264,
+11520,
+11776,
+12032,
+12288,
+12544,
+12800,
+13056,
+13312,
+13568,
+13824,
+14080,
+14336,
+14592,
+14848,
+15104,
+15360,
+15616,
+15872,
+16128,
+16384,
+16640,
+16896,
+17152,
+17408,
+17664,
+17920,
+18176,
+18432,
+18688,
+18944,
+19200,
+19456,
+19712,
+19968,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+};
+
+
+static CONST USHORT FAR_VARIABLE from_unicode_mapping_array[] = {
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x0000,
+0x0001,
+0x0002,
+0x0003,
+0x0004,
+0x0005,
+0x0006,
+0x0007,
+0x0008,
+0x0009,
+0x000A,
+0x000B,
+0x000C,
+0x000D,
+0x000E,
+0x000F,
+0x0010,
+0x0011,
+0x0012,
+0x0013,
+0x0014,
+0x0015,
+0x0016,
+0x0017,
+0x0018,
+0x0019,
+0x001A,
+0x001B,
+0x001C,
+0x001D,
+0x001E,
+0x001F,
+0x0020,
+0x0021,
+0x0022,
+0x0023,
+0x0024,
+0x0025,
+0x0026,
+0x0027,
+0x0028,
+0x0029,
+0x002A,
+0x002B,
+0x002C,
+0x002D,
+0x002E,
+0x002F,
+0x0030,
+0x0031,
+0x0032,
+0x0033,
+0x0034,
+0x0035,
+0x0036,
+0x0037,
+0x0038,
+0x0039,
+0x003A,
+0x003B,
+0x003C,
+0x003D,
+0x003E,
+0x003F,
+0x0040,
+0x0041,
+0x0042,
+0x0043,
+0x0044,
+0x0045,
+0x0046,
+0x0047,
+0x0048,
+0x0049,
+0x004A,
+0x004B,
+0x004C,
+0x004D,
+0x004E,
+0x004F,
+0x0050,
+0x0051,
+0x0052,
+0x0053,
+0x0054,
+0x0055,
+0x0056,
+0x0057,
+0x0058,
+0x0059,
+0x005A,
+0x005B,
+0x2140,
+0x005D,
+0x005E,
+0x005F,
+0x0060,
+0x0061,
+0x0062,
+0x0063,
+0x0064,
+0x0065,
+0x0066,
+0x0067,
+0x0068,
+0x0069,
+0x006A,
+0x006B,
+0x006C,
+0x006D,
+0x006E,
+0x006F,
+0x0070,
+0x0071,
+0x0072,
+0x0073,
+0x0074,
+0x0075,
+0x0076,
+0x0077,
+0x0078,
+0x0079,
+0x007A,
+0x007B,
+0x007C,
+0x007D,
+0x007E,
+0x007F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2171,
+0x2172,
+0,
+0,
+0,
+0x2178,
+0x212F,
+0,
+0,
+0,
+0x224C,
+0,
+0,
+0,
+0x216B,
+0x215E,
+0,
+0,
+0x212D,
+0,
+0x2279,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x215F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2160,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2621,
+0x2622,
+0x2623,
+0x2624,
+0x2625,
+0x2626,
+0x2627,
+0x2628,
+0x2629,
+0x262A,
+0x262B,
+0x262C,
+0x262D,
+0x262E,
+0x262F,
+0x2630,
+0x2631,
+0,
+0x2632,
+0x2633,
+0x2634,
+0x2635,
+0x2636,
+0x2637,
+0x2638,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2641,
+0x2642,
+0x2643,
+0x2644,
+0x2645,
+0x2646,
+0x2647,
+0x2648,
+0x2649,
+0x264A,
+0x264B,
+0x264C,
+0x264D,
+0x264E,
+0x264F,
+0x2650,
+0x2651,
+0,
+0x2652,
+0x2653,
+0x2654,
+0x2655,
+0x2656,
+0x2657,
+0x2658,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2727,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2721,
+0x2722,
+0x2723,
+0x2724,
+0x2725,
+0x2726,
+0x2728,
+0x2729,
+0x272A,
+0x272B,
+0x272C,
+0x272D,
+0x272E,
+0x272F,
+0x2730,
+0x2731,
+0x2732,
+0x2733,
+0x2734,
+0x2735,
+0x2736,
+0x2737,
+0x2738,
+0x2739,
+0x273A,
+0x273B,
+0x273C,
+0x273D,
+0x273E,
+0x273F,
+0x2740,
+0x2741,
+0x2751,
+0x2752,
+0x2753,
+0x2754,
+0x2755,
+0x2756,
+0x2758,
+0x2759,
+0x275A,
+0x275B,
+0x275C,
+0x275D,
+0x275E,
+0x275F,
+0x2760,
+0x2761,
+0x2762,
+0x2763,
+0x2764,
+0x2765,
+0x2766,
+0x2767,
+0x2768,
+0x2769,
+0x276A,
+0x276B,
+0x276C,
+0x276D,
+0x276E,
+0x276F,
+0x2770,
+0x2771,
+0,
+0x2757,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x213E,
+0,
+0,
+0,
+0,
+0x213D,
+0x2142,
+0,
+0x2146,
+0x2147,
+0,
+0,
+0x2148,
+0x2149,
+0,
+0,
+0x2277,
+0x2278,
+0,
+0,
+0,
+0x2145,
+0x2144,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2273,
+0,
+0x216C,
+0x216D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2228,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x216E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2272,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x222B,
+0x222C,
+0x222A,
+0x222D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x224D,
+0,
+0x224E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x224F,
+0,
+0x225F,
+0x2250,
+0,
+0,
+0,
+0x2260,
+0x223A,
+0,
+0,
+0x223B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x215D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2265,
+0,
+0,
+0x2267,
+0x2167,
+0,
+0x225C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x224A,
+0x224B,
+0x2241,
+0x2240,
+0x2269,
+0x226A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2168,
+0x2268,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2266,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2262,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2162,
+0x2261,
+0,
+0,
+0,
+0,
+0x2165,
+0x2166,
+0,
+0,
+0x2263,
+0x2264,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x223E,
+0x223F,
+0,
+0,
+0x223C,
+0x223D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x225D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x225E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2821,
+0x282C,
+0x2822,
+0x282D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2823,
+0,
+0,
+0x282E,
+0x2824,
+0,
+0,
+0x282F,
+0x2826,
+0,
+0,
+0x2831,
+0x2825,
+0,
+0,
+0x2830,
+0x2827,
+0x283C,
+0,
+0,
+0x2837,
+0,
+0,
+0x2832,
+0x2829,
+0x283E,
+0,
+0,
+0x2839,
+0,
+0,
+0x2834,
+0x2828,
+0,
+0,
+0x2838,
+0x283D,
+0,
+0,
+0x2833,
+0x282A,
+0,
+0,
+0x283A,
+0x283F,
+0,
+0,
+0x2835,
+0x282B,
+0,
+0,
+0x283B,
+0,
+0,
+0x2840,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2836,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2223,
+0x2222,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2225,
+0x2224,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2227,
+0x2226,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2221,
+0x217E,
+0,
+0,
+0,
+0x217B,
+0,
+0,
+0x217D,
+0x217C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x227E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x217A,
+0x2179,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x216A,
+0,
+0x2169,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2276,
+0,
+0,
+0x2275,
+0,
+0x2274,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2121,
+0x2122,
+0x2123,
+0x2137,
+0,
+0x2139,
+0x213A,
+0x213B,
+0x2152,
+0x2153,
+0x2154,
+0x2155,
+0x2156,
+0x2157,
+0x2158,
+0x2159,
+0x215A,
+0x215B,
+0x2229,
+0x222E,
+0x214C,
+0x214D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2141,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2421,
+0x2422,
+0x2423,
+0x2424,
+0x2425,
+0x2426,
+0x2427,
+0x2428,
+0x2429,
+0x242A,
+0x242B,
+0x242C,
+0x242D,
+0x242E,
+0x242F,
+0x2430,
+0x2431,
+0x2432,
+0x2433,
+0x2434,
+0x2435,
+0x2436,
+0x2437,
+0x2438,
+0x2439,
+0x243A,
+0x243B,
+0x243C,
+0x243D,
+0x243E,
+0x243F,
+0x2440,
+0x2441,
+0x2442,
+0x2443,
+0x2444,
+0x2445,
+0x2446,
+0x2447,
+0x2448,
+0x2449,
+0x244A,
+0x244B,
+0x244C,
+0x244D,
+0x244E,
+0x244F,
+0x2450,
+0x2451,
+0x2452,
+0x2453,
+0x2454,
+0x2455,
+0x2456,
+0x2457,
+0x2458,
+0x2459,
+0x245A,
+0x245B,
+0x245C,
+0x245D,
+0x245E,
+0x245F,
+0x2460,
+0x2461,
+0x2462,
+0x2463,
+0x2464,
+0x2465,
+0x2466,
+0x2467,
+0x2468,
+0x2469,
+0x246A,
+0x246B,
+0x246C,
+0x246D,
+0x246E,
+0x246F,
+0x2470,
+0x2471,
+0x2472,
+0x2473,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x212B,
+0x212C,
+0x2135,
+0x2136,
+0,
+0,
+0x2521,
+0x2522,
+0x2523,
+0x2524,
+0x2525,
+0x2526,
+0x2527,
+0x2528,
+0x2529,
+0x252A,
+0x252B,
+0x252C,
+0x252D,
+0x252E,
+0x252F,
+0x2530,
+0x2531,
+0x2532,
+0x2533,
+0x2534,
+0x2535,
+0x2536,
+0x2537,
+0x2538,
+0x2539,
+0x253A,
+0x253B,
+0x253C,
+0x253D,
+0x253E,
+0x253F,
+0x2540,
+0x2541,
+0x2542,
+0x2543,
+0x2544,
+0x2545,
+0x2546,
+0x2547,
+0x2548,
+0x2549,
+0x254A,
+0x254B,
+0x254C,
+0x254D,
+0x254E,
+0x254F,
+0x2550,
+0x2551,
+0x2552,
+0x2553,
+0x2554,
+0x2555,
+0x2556,
+0x2557,
+0x2558,
+0x2559,
+0x255A,
+0x255B,
+0x255C,
+0x255D,
+0x255E,
+0x255F,
+0x2560,
+0x2561,
+0x2562,
+0x2563,
+0x2564,
+0x2565,
+0x2566,
+0x2567,
+0x2568,
+0x2569,
+0x256A,
+0x256B,
+0x256C,
+0x256D,
+0x256E,
+0x256F,
+0x2570,
+0x2571,
+0x2572,
+0x2573,
+0x2574,
+0x2575,
+0x2576,
+0,
+0,
+0,
+0,
+0x2126,
+0x213C,
+0x2133,
+0x2134,
+0,
+0x306C,
+0x437A,
+0,
+0x3C37,
+0,
+0,
+0,
+0x4B7C,
+0x3E66,
+0x3B30,
+0x3E65,
+0x323C,
+0,
+0x4954,
+0x4D3F,
+0,
+0x5022,
+0x312F,
+0,
+0,
+0x336E,
+0x5023,
+0x4024,
+0x5242,
+0x3556,
+0x4A3A,
+0,
+0,
+0,
+0,
+0x3E67,
+0,
+0,
+0x4E3E,
+0,
+0,
+0,
+0,
+0x4A42,
+0,
+0,
+0,
+0x5024,
+0,
+0,
+0x4366,
+0,
+0,
+0,
+0x5025,
+0x367A,
+0,
+0,
+0,
+0x5026,
+0,
+0x345D,
+0x4330,
+0,
+0x3C67,
+0x5027,
+0,
+0,
+0x5028,
+0,
+0,
+0x5029,
+0x4735,
+0,
+0x3557,
+0,
+0,
+0,
+0,
+0,
+0x4737,
+0,
+0x4663,
+0x3843,
+0x4B33,
+0,
+0,
+0,
+0,
+0,
+0x6949,
+0x502A,
+0x3E68,
+0x502B,
+0x3235,
+0,
+0,
+0,
+0x3665,
+0x3870,
+0x4C69,
+0,
+0,
+0x5626,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D70,
+0,
+0x467D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3425,
+0,
+0x3535,
+0,
+0x502C,
+0,
+0,
+0x502D,
+0x4E3B,
+0,
+0x4D3D,
+0x4168,
+0x502F,
+0x3B76,
+0x4673,
+0,
+0x5032,
+0,
+0,
+0x313E,
+0x385F,
+0,
+0x385E,
+0x3066,
+0,
+0,
+0x4F4B,
+0x4F4A,
+0,
+0x3A33,
+0x3021,
+0,
+0x5033,
+0x5034,
+0x5035,
+0x4B34,
+0x5036,
+0,
+0x3872,
+0x3067,
+0x4B72,
+0,
+0x357C,
+0,
+0,
+0x357D,
+0x357E,
+0x4462,
+0x4E3C,
+0,
+0x5037,
+0,
+0,
+0x5038,
+0,
+0,
+0x5039,
+0,
+0,
+0,
+0x3F4D,
+0,
+0,
+0,
+0,
+0,
+0x3D3A,
+0x3F4E,
+0x503E,
+0,
+0x503C,
+0,
+0x503D,
+0x3558,
+0,
+0,
+0x3A23,
+0x3270,
+0,
+0x503B,
+0x503A,
+0x4A29,
+0,
+0,
+0,
+0,
+0x3B46,
+0x3B45,
+0x423E,
+0x503F,
+0x4955,
+0x4067,
+0,
+0,
+0,
+0x2138,
+0x5040,
+0x5042,
+0,
+0,
+0,
+0x4265,
+0x4E61,
+0x304A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5041,
+0x323E,
+0,
+0x3644,
+0,
+0x4367,
+0,
+0,
+0,
+0x376F,
+0x5043,
+0,
+0,
+0,
+0x4724,
+0,
+0,
+0,
+0,
+0,
+0x346B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5044,
+0x304B,
+0,
+0,
+0x3860,
+0x346C,
+0x497A,
+0x4832,
+0x3559,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3271,
+0,
+0x5067,
+0x4541,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x476C,
+0x5046,
+0,
+0,
+0,
+0x483C,
+0,
+0x4E62,
+0,
+0x3F2D,
+0,
+0x3B47,
+0,
+0x3B77,
+0x3240,
+0,
+0,
+0,
+0,
+0,
+0x4451,
+0,
+0,
+0x4322,
+0x504A,
+0,
+0,
+0,
+0,
+0,
+0x304C,
+0x4463,
+0x3D3B,
+0x3A34,
+0x4D24,
+0,
+0x424E,
+0,
+0x323F,
+0,
+0x5049,
+0,
+0x4D3E,
+0x5045,
+0x5047,
+0x3A6E,
+0x5048,
+0x5524,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5050,
+0,
+0,
+0,
+0,
+0,
+0x5053,
+0x5051,
+0,
+0,
+0x3242,
+0,
+0x4A3B,
+0x504B,
+0,
+0,
+0,
+0,
+0x504F,
+0x3873,
+0,
+0,
+0x3B48,
+0,
+0,
+0,
+0x3426,
+0,
+0,
+0x5054,
+0,
+0x504C,
+0,
+0,
+0x4E63,
+0,
+0x3B78,
+0,
+0x504D,
+0,
+0x5052,
+0,
+0,
+0,
+0,
+0x5055,
+0,
+0x504E,
+0,
+0,
+0x3621,
+0,
+0x304D,
+0,
+0,
+0x3622,
+0x3241,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5525,
+0,
+0x4B79,
+0x496E,
+0x3874,
+0,
+0,
+0,
+0,
+0,
+0x3F2F,
+0x4E37,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A58,
+0,
+0,
+0x3738,
+0x4225,
+0x3264,
+0,
+0,
+0,
+0,
+0,
+0x3D53,
+0,
+0,
+0,
+0x5059,
+0,
+0x505E,
+0x505C,
+0,
+0,
+0x5057,
+0,
+0,
+0x422F,
+0x505A,
+0,
+0x505D,
+0x505B,
+0,
+0x4A5D,
+0,
+0x5058,
+0,
+0x3F2E,
+0,
+0x4B73,
+0x505F,
+0x5060,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3D24,
+0x506D,
+0,
+0,
+0,
+0x4750,
+0,
+0x4936,
+0x5068,
+0,
+0x4A70,
+0,
+0x3236,
+0,
+0,
+0,
+0x506C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5066,
+0x506F,
+0,
+0,
+0x4152,
+0,
+0x3844,
+0,
+0x475C,
+0,
+0x6047,
+0,
+0x506E,
+0x455D,
+0,
+0x5063,
+0,
+0x3876,
+0,
+0,
+0x3875,
+0x5061,
+0,
+0,
+0,
+0,
+0x3C5A,
+0,
+0x5069,
+0,
+0x4A6F,
+0x434D,
+0x5065,
+0x3771,
+0,
+0x5062,
+0x506A,
+0x5064,
+0x4E51,
+0x506B,
+0x4F41,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3666,
+0,
+0,
+0x3770,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5070,
+0,
+0,
+0,
+0x5071,
+0x5075,
+0x304E,
+0,
+0,
+0,
+0,
+0,
+0x4A50,
+0x5074,
+0,
+0,
+0,
+0,
+0x5073,
+0x5077,
+0,
+0,
+0,
+0x5076,
+0,
+0x4464,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3772,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5078,
+0,
+0,
+0,
+0,
+0,
+0x3C45,
+0,
+0x4226,
+0x4465,
+0x3676,
+0,
+0x5079,
+0,
+0,
+0,
+0,
+0x3536,
+0,
+0,
+0x507A,
+0,
+0,
+0,
+0,
+0x507C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4B35,
+0,
+0,
+0,
+0x3766,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3B31,
+0x4877,
+0x507B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3A45,
+0x4D43,
+0,
+0,
+0,
+0,
+0x507E,
+0x5123,
+0x507D,
+0x3A44,
+0,
+0x3D7D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3739,
+0,
+0,
+0,
+0x5124,
+0,
+0,
+0x364F,
+0,
+0,
+0,
+0x5121,
+0x5122,
+0,
+0,
+0x462F,
+0,
+0x417C,
+0,
+0x3623,
+0,
+0,
+0,
+0x4B4D,
+0x5125,
+0,
+0,
+0,
+0x4E3D,
+0,
+0,
+0,
+0x5126,
+0,
+0,
+0,
+0,
+0x5129,
+0,
+0x5127,
+0,
+0x414E,
+0,
+0,
+0,
+0,
+0,
+0x5128,
+0x512A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x512C,
+0,
+0,
+0,
+0x512B,
+0,
+0x4A48,
+0,
+0,
+0,
+0,
+0x3537,
+0x512E,
+0x512F,
+0,
+0x322F,
+0,
+0,
+0,
+0,
+0x512D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3C74,
+0,
+0x5132,
+0x5131,
+0x5130,
+0,
+0x5056,
+0,
+0x5133,
+0,
+0,
+0,
+0,
+0x3D7E,
+0,
+0x5134,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D25,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4C59,
+0,
+0,
+0,
+0,
+0x5136,
+0,
+0,
+0x5135,
+0x5138,
+0x5137,
+0,
+0,
+0x5139,
+0x513A,
+0x3074,
+0,
+0x3835,
+0x373B,
+0x3D3C,
+0x437B,
+0x3624,
+0x4068,
+0x3877,
+0,
+0x396E,
+0x513C,
+0x4C48,
+0x4546,
+0,
+0x3B79,
+0,
+0x513B,
+0,
+0x513D,
+0,
+0,
+0,
+0,
+0,
+0x455E,
+0,
+0x3375,
+0,
+0,
+0,
+0,
+0,
+0x513E,
+0,
+0,
+0x467E,
+0,
+0,
+0x4134,
+0x5140,
+0x5141,
+0x482C,
+0x3878,
+0x4F3B,
+0x5142,
+0,
+0,
+0x3626,
+0,
+0,
+0,
+0x4A3C,
+0x4236,
+0x3671,
+0x4535,
+0,
+0,
+0,
+0x3773,
+0,
+0,
+0,
+0x5143,
+0,
+0x5144,
+0,
+0,
+0x4662,
+0x315F,
+0,
+0,
+0x5147,
+0x3A7D,
+0,
+0x5146,
+0x3A46,
+0,
+0x5148,
+0x666E,
+0x5149,
+0x4B41,
+0x514A,
+0,
+0x514B,
+0x514C,
+0x3E69,
+0,
+0x3C4C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3427,
+0,
+0x514F,
+0,
+0x514D,
+0x4C3D,
+0x514E,
+0,
+0x495A,
+0x5150,
+0x5151,
+0x5152,
+0x455F,
+0,
+0,
+0,
+0x5156,
+0x5154,
+0x5155,
+0x5153,
+0x3A63,
+0x5157,
+0x4C6A,
+0x4E64,
+0,
+0,
+0,
+0,
+0,
+0x5158,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4028,
+0x5159,
+0x3D5A,
+0,
+0,
+0x515A,
+0,
+0x437C,
+0x4E3F,
+0x4560,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5245,
+0,
+0,
+0,
+0,
+0x515B,
+0x7425,
+0x3645,
+0,
+0,
+0x515C,
+0x4B5E,
+0,
+0,
+0,
+0,
+0x3D68,
+0x427C,
+0,
+0x515E,
+0x4664,
+0,
+0,
+0x515F,
+0,
+0,
+0x5160,
+0x332E,
+0,
+0,
+0,
+0x5161,
+0x3627,
+0,
+0x464C,
+0x317A,
+0x3D50,
+0,
+0,
+0x4821,
+0x5162,
+0,
+0x4561,
+0,
+0,
+0x3F4F,
+0x5163,
+0,
+0x4A2C,
+0x405A,
+0x3422,
+0,
+0x3429,
+0x5164,
+0,
+0,
+0x5166,
+0,
+0,
+0x373A,
+0,
+0,
+0x5165,
+0,
+0,
+0x4E73,
+0,
+0,
+0,
+0,
+0,
+0x3D69,
+0,
+0,
+0,
+0,
+0,
+0,
+0x483D,
+0x4A4C,
+0,
+0x5167,
+0,
+0x4D78,
+0x5168,
+0,
+0,
+0,
+0x5169,
+0,
+0x457E,
+0,
+0,
+0x516A,
+0,
+0,
+0x4029,
+0x3A7E,
+0x3774,
+0x516B,
+0x3B49,
+0x396F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4466,
+0x516D,
+0,
+0,
+0x4227,
+0,
+0,
+0x3A6F,
+0x516E,
+0x516F,
+0x4130,
+0,
+0x516C,
+0,
+0,
+0,
+0,
+0x5171,
+0,
+0x4B36,
+0,
+0,
+0,
+0,
+0x3964,
+0,
+0,
+0x5170,
+0,
+0,
+0,
+0,
+0x3775,
+0x3A5E,
+0x476D,
+0,
+0,
+0,
+0x5174,
+0x5172,
+0,
+0,
+0,
+0,
+0x497B,
+0x3E6A,
+0x517B,
+0x3364,
+0x5175,
+0x5173,
+0x414F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5177,
+0,
+0x5176,
+0,
+0,
+0,
+0x3344,
+0,
+0,
+0,
+0x3760,
+0x517C,
+0x4E2D,
+0,
+0,
+0,
+0x5178,
+0,
+0,
+0,
+0x517D,
+0x517A,
+0,
+0x5179,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4E4F,
+0,
+0,
+0,
+0x3879,
+0x3243,
+0,
+0,
+0x4E74,
+0,
+0,
+0,
+0,
+0,
+0x3D75,
+0x4558,
+0x3965,
+0x5222,
+0x5223,
+0,
+0,
+0,
+0x4E65,
+0,
+0,
+0x4F2B,
+0x5225,
+0,
+0,
+0,
+0x387A,
+0,
+0,
+0x5224,
+0,
+0x332F,
+0,
+0,
+0x5226,
+0,
+0x4B56,
+0,
+0x443C,
+0,
+0x4D26,
+0,
+0x4A59,
+0,
+0,
+0,
+0x5227,
+0,
+0,
+0,
+0,
+0x7055,
+0,
+0,
+0x4630,
+0,
+0x5228,
+0x342A,
+0x4C33,
+0,
+0,
+0,
+0x3E21,
+0x5229,
+0x4A67,
+0x522D,
+0,
+0x402A,
+0x522A,
+0x3650,
+0,
+0x522B,
+0x342B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x372E,
+0x522E,
+0,
+0x522F,
+0,
+0,
+0x5230,
+0x5231,
+0x3C5B,
+0,
+0,
+0,
+0x387B,
+0x4C5E,
+0,
+0x4C68,
+0x4677,
+0,
+0,
+0x4A71,
+0x5232,
+0,
+0x5233,
+0,
+0,
+0,
+0,
+0x5235,
+0,
+0x5237,
+0x5236,
+0,
+0,
+0,
+0,
+0x5238,
+0x323D,
+0x4B4C,
+0,
+0x3A7C,
+0x5239,
+0,
+0,
+0x4159,
+0,
+0,
+0x3E22,
+0x3629,
+0,
+0x523A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x485B,
+0,
+0,
+0,
+0,
+0x523B,
+0,
+0x523C,
+0,
+0x523D,
+0,
+0,
+0,
+0,
+0x523E,
+0x4924,
+0x3668,
+0x3065,
+0,
+0,
+0,
+0x463F,
+0x523F,
+0x3D3D,
+0,
+0x4069,
+0,
+0x5241,
+0x5240,
+0x3E23,
+0x3861,
+0x5243,
+0x483E,
+0,
+0,
+0x5244,
+0,
+0,
+0,
+0x485C,
+0x4234,
+0x426E,
+0x3628,
+0,
+0,
+0x466E,
+0x4331,
+0,
+0x476E,
+0,
+0x4B4E,
+0,
+0x5246,
+0,
+0x406A,
+0,
+0,
+0,
+0,
+0,
+0x3735,
+0,
+0,
+0x5247,
+0,
+0,
+0,
+0,
+0x5248,
+0x312C,
+0x3075,
+0x346D,
+0,
+0x4228,
+0x3551,
+0x4D71,
+0,
+0x524B,
+0x3237,
+0,
+0,
+0x524A,
+0,
+0,
+0,
+0x362A,
+0,
+0,
+0x524C,
+0,
+0x4C71,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x524D,
+0,
+0x4E52,
+0,
+0x387C,
+0,
+0,
+0,
+0,
+0x3836,
+0x524E,
+0,
+0,
+0,
+0,
+0x5250,
+0x524F,
+0,
+0x3F5F,
+0x3139,
+0,
+0,
+0,
+0x315E,
+0x5251,
+0,
+0x5252,
+0,
+0,
+0x3837,
+0,
+0,
+0x5253,
+0,
+0,
+0,
+0,
+0x356E,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3B32,
+0x5254,
+0,
+0,
+0,
+0,
+0x4B74,
+0x3A35,
+0x355A,
+0x4D27,
+0x4150,
+0x483F,
+0x3C7D,
+0,
+0,
+0,
+0,
+0,
+0x3D47,
+0,
+0x3C68,
+0x3C75,
+0,
+0x3D76,
+0,
+0x4840,
+0,
+0,
+0,
+0x5257,
+0,
+0x3143,
+0x4151,
+0x387D,
+0x3845,
+0x3667,
+0,
+0,
+0x525B,
+0x4321,
+0x427E,
+0x362B,
+0x3E24,
+0x525C,
+0x525A,
+0x3244,
+0x4266,
+0x3C38,
+0x3B4B,
+0x3126,
+0,
+0,
+0x3370,
+0x3966,
+0x3B4A,
+0,
+0x525D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x525E,
+0,
+0x3549,
+0x3346,
+0,
+0,
+0,
+0x3967,
+0x3548,
+0x445F,
+0x3125,
+0x4631,
+0x4C3E,
+0x3921,
+0x4D79,
+0x4547,
+0x387E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x372F,
+0,
+0x5267,
+0,
+0x3663,
+0x4B4A,
+0,
+0,
+0,
+0,
+0,
+0x485D,
+0,
+0,
+0x5266,
+0,
+0x345E,
+0x5261,
+0x5262,
+0x5264,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5265,
+0,
+0x355B,
+0x3F61,
+0,
+0x4A2D,
+0x5263,
+0x525F,
+0x3863,
+0,
+0x5260,
+0,
+0x4F24,
+0,
+0,
+0,
+0x4A72,
+0,
+0x4468,
+0x3862,
+0x3970,
+0,
+0,
+0,
+0x5268,
+0,
+0,
+0x465D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x526C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3C7E,
+0,
+0x3C76,
+0,
+0,
+0,
+0,
+0,
+0x526F,
+0x526D,
+0,
+0x4C23,
+0,
+0x526A,
+0x5273,
+0x526E,
+0,
+0,
+0,
+0x5271,
+0x3846,
+0x4C3F,
+0,
+0,
+0x5272,
+0,
+0,
+0,
+0x5274,
+0,
+0x5276,
+0,
+0,
+0,
+0,
+0x3A70,
+0x4F42,
+0,
+0x526B,
+0x5269,
+0x5275,
+0,
+0x5270,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5278,
+0,
+0x5323,
+0x527A,
+0,
+0,
+0x527E,
+0,
+0,
+0x5321,
+0x527B,
+0,
+0,
+0x533E,
+0,
+0,
+0x3A69,
+0x3331,
+0,
+0,
+0,
+0,
+0x5279,
+0,
+0,
+0,
+0x5325,
+0x3076,
+0x5324,
+0,
+0x3025,
+0x494A,
+0x5322,
+0,
+0x527C,
+0,
+0,
+0x5277,
+0x527D,
+0x3A48,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5326,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3077,
+0x532F,
+0,
+0,
+0x5327,
+0x5328,
+0,
+0x3E25,
+0x4B69,
+0,
+0,
+0,
+0x532D,
+0x532C,
+0,
+0,
+0,
+0x452F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x532E,
+0,
+0,
+0x532B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3134,
+0,
+0x3A36,
+0x3F30,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5329,
+0x4562,
+0,
+0,
+0,
+0x532A,
+0,
+0x3022,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5334,
+0x4D23,
+0,
+0x3E27,
+0,
+0x533A,
+0,
+0,
+0,
+0,
+0x5339,
+0x5330,
+0,
+0,
+0,
+0,
+0x4243,
+0,
+0x5331,
+0,
+0,
+0,
+0x426F,
+0x5336,
+0x3E26,
+0,
+0,
+0,
+0,
+0,
+0x5333,
+0,
+0,
+0x4C64,
+0,
+0,
+0,
+0x373C,
+0,
+0,
+0x5337,
+0x5338,
+0,
+0,
+0,
+0,
+0x5335,
+0x533B,
+0,
+0,
+0,
+0,
+0,
+0x5332,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5341,
+0x5346,
+0,
+0x5342,
+0,
+0x533D,
+0,
+0,
+0x5347,
+0x4131,
+0,
+0,
+0x5349,
+0,
+0x3922,
+0x533F,
+0x437D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5343,
+0x533C,
+0x342D,
+0,
+0x346E,
+0x3365,
+0x5344,
+0x5340,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3776,
+0x534A,
+0x5348,
+0x4153,
+0x354A,
+0x362C,
+0,
+0x5345,
+0,
+0x3674,
+0,
+0,
+0,
+0,
+0,
+0x3144,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x534E,
+0x534C,
+0,
+0x5427,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5351,
+0,
+0,
+0,
+0,
+0,
+0x534B,
+0,
+0x534F,
+0,
+0,
+0x534D,
+0,
+0,
+0,
+0x3B4C,
+0x5350,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5353,
+0,
+0x5358,
+0,
+0,
+0,
+0x5356,
+0x5355,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4332,
+0,
+0,
+0x3245,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5352,
+0,
+0x5354,
+0x3E28,
+0x3133,
+0,
+0,
+0x5357,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x325E,
+0,
+0,
+0,
+0,
+0,
+0x5362,
+0,
+0x3E7C,
+0x535E,
+0,
+0x535C,
+0,
+0x535D,
+0,
+0x535F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x313D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4139,
+0,
+0x5359,
+0,
+0x535A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x337A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5361,
+0,
+0,
+0,
+0x346F,
+0,
+0x5364,
+0x5360,
+0x5363,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A2E,
+0,
+0,
+0,
+0x4655,
+0,
+0x4838,
+0,
+0,
+0,
+0,
+0,
+0x5366,
+0,
+0,
+0,
+0,
+0,
+0x5365,
+0x3345,
+0,
+0,
+0x5367,
+0,
+0,
+0,
+0,
+0x536A,
+0,
+0,
+0,
+0,
+0x5369,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5368,
+0,
+0x4739,
+0,
+0,
+0x536B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x536C,
+0,
+0,
+0,
+0,
+0,
+0x536E,
+0,
+0x536D,
+0,
+0,
+0,
+0,
+0,
+0x5370,
+0,
+0,
+0,
+0x5373,
+0x5371,
+0x536F,
+0x5372,
+0,
+0,
+0,
+0,
+0x5374,
+0,
+0,
+0,
+0,
+0,
+0x5375,
+0,
+0,
+0x5376,
+0,
+0x5377,
+0,
+0,
+0,
+0x5378,
+0x5145,
+0,
+0x3C7C,
+0x3B4D,
+0,
+0,
+0x3273,
+0,
+0x3078,
+0,
+0,
+0x4344,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5379,
+0,
+0x3A24,
+0,
+0x304F,
+0x3F5E,
+0,
+0,
+0,
+0,
+0,
+0x537A,
+0x3847,
+0,
+0,
+0x3971,
+0,
+0x537C,
+0x537B,
+0,
+0,
+0x4A60,
+0x537D,
+0,
+0,
+0,
+0x5421,
+0x537E,
+0,
+0x5422,
+0,
+0x5423,
+0,
+0x3777,
+0,
+0,
+0x3160,
+0x5424,
+0,
+0,
+0x5426,
+0,
+0x5425,
+0,
+0,
+0,
+0x5428,
+0,
+0,
+0x455A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5429,
+0x3035,
+0x3A5F,
+0,
+0,
+0,
+0,
+0x373D,
+0,
+0,
+0x434F,
+0,
+0,
+0,
+0,
+0,
+0,
+0x542A,
+0x542B,
+0,
+0,
+0x542D,
+0,
+0,
+0,
+0,
+0x542E,
+0,
+0x3A64,
+0,
+0,
+0,
+0,
+0x3651,
+0,
+0,
+0x4B37,
+0,
+0,
+0,
+0x542C,
+0x542F,
+0x3A41,
+0x3923,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5433,
+0,
+0,
+0x3A25,
+0,
+0x4333,
+0,
+0,
+0x5430,
+0x445A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5434,
+0,
+0,
+0x3F62,
+0,
+0,
+0,
+0,
+0,
+0x5432,
+0x5435,
+0,
+0x373F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5436,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5437,
+0,
+0x3924,
+0x3340,
+0x5439,
+0,
+0,
+0,
+0,
+0,
+0x543A,
+0,
+0,
+0,
+0,
+0,
+0x543B,
+0,
+0,
+0x5438,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5431,
+0,
+0,
+0x543C,
+0,
+0,
+0x543D,
+0,
+0,
+0,
+0,
+0x4B64,
+0,
+0,
+0x3E6B,
+0,
+0,
+0,
+0x543F,
+0x5440,
+0x543E,
+0,
+0x5442,
+0,
+0,
+0,
+0,
+0,
+0x4738,
+0,
+0,
+0x3068,
+0x4956,
+0,
+0,
+0x5443,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3E7D,
+0,
+0,
+0x3C39,
+0,
+0x475D,
+0x3470,
+0,
+0x3A6B,
+0,
+0,
+0,
+0x4B59,
+0,
+0x4632,
+0,
+0,
+0x3778,
+0x424F,
+0,
+0,
+0,
+0x5441,
+0x5444,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4244,
+0,
+0,
+0,
+0x5445,
+0,
+0,
+0,
+0x5446,
+0,
+0,
+0,
+0x5448,
+0,
+0,
+0x4469,
+0,
+0,
+0,
+0,
+0,
+0x342E,
+0,
+0,
+0,
+0,
+0x7421,
+0x3161,
+0x4A73,
+0,
+0,
+0x3E6C,
+0x4548,
+0,
+0,
+0,
+0,
+0x3A66,
+0,
+0,
+0x544E,
+0,
+0,
+0x4A3D,
+0x4E5D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3274,
+0x544A,
+0,
+0,
+0,
+0,
+0,
+0x413A,
+0x544D,
+0,
+0x4563,
+0,
+0,
+0x4549,
+0x4564,
+0x4839,
+0x444D,
+0,
+0,
+0,
+0x3A49,
+0,
+0,
+0,
+0x5449,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3176,
+0,
+0x4536,
+0,
+0,
+0,
+0,
+0x544B,
+0,
+0x5447,
+0,
+0,
+0x3F50,
+0,
+0,
+0,
+0x544F,
+0,
+0,
+0,
+0,
+0x3D4E,
+0,
+0,
+0,
+0,
+0x362D,
+0,
+0x5450,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A68,
+0,
+0,
+0,
+0x417D,
+0,
+0,
+0,
+0,
+0x4446,
+0,
+0,
+0x5452,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4B4F,
+0,
+0,
+0x5453,
+0,
+0,
+0x5458,
+0,
+0,
+0,
+0,
+0x4A2F,
+0,
+0,
+0,
+0,
+0x5457,
+0x5451,
+0x5454,
+0x5456,
+0,
+0,
+0x3A26,
+0,
+0,
+0x4A49,
+0,
+0,
+0,
+0x5459,
+0,
+0x4345,
+0,
+0,
+0x3275,
+0,
+0x3E6D,
+0,
+0,
+0,
+0,
+0x545B,
+0,
+0x545A,
+0,
+0x3968,
+0,
+0x545C,
+0x545E,
+0x545D,
+0,
+0,
+0x5460,
+0,
+0x5455,
+0x5462,
+0,
+0,
+0,
+0,
+0x5461,
+0x545F,
+0,
+0,
+0,
+0,
+0,
+0x3B4E,
+0x3F51,
+0,
+0x4154,
+0x5463,
+0x403C,
+0x306D,
+0x4764,
+0,
+0,
+0,
+0,
+0x445B,
+0,
+0x5465,
+0x5464,
+0x5466,
+0x5467,
+0x5468,
+0,
+0,
+0,
+0,
+0x5469,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A51,
+0x546A,
+0,
+0,
+0,
+0,
+0x3246,
+0x546B,
+0,
+0,
+0,
+0,
+0x4D3C,
+0x3330,
+0,
+0x5249,
+0x3D48,
+0x423F,
+0x546C,
+0x4C6B,
+0,
+0,
+0,
+0,
+0,
+0x4C34,
+0,
+0,
+0x546E,
+0,
+0x4267,
+0,
+0x4537,
+0x4240,
+0x4957,
+0x546F,
+0x5470,
+0x317B,
+0,
+0,
+0x3C3A,
+0x5471,
+0,
+0,
+0,
+0,
+0x3050,
+0x5472,
+0,
+0,
+0,
+0,
+0,
+0x5473,
+0,
+0,
+0,
+0,
+0,
+0x3162,
+0,
+0,
+0x3471,
+0x4660,
+0x4A74,
+0,
+0,
+0,
+0,
+0x5477,
+0x4155,
+0x5476,
+0x3740,
+0,
+0,
+0x4B5B,
+0x5475,
+0,
+0x4565,
+0x5479,
+0,
+0x5478,
+0,
+0,
+0,
+0,
+0,
+0x547B,
+0,
+0x547A,
+0,
+0,
+0x317C,
+0,
+0x547C,
+0x3E29,
+0x547E,
+0x4325,
+0,
+0x547D,
+0,
+0x4A33,
+0,
+0,
+0,
+0,
+0x3D77,
+0x455B,
+0,
+0,
+0,
+0x5521,
+0,
+0,
+0,
+0,
+0x3925,
+0,
+0,
+0,
+0x5522,
+0x4721,
+0x485E,
+0x4C51,
+0,
+0,
+0,
+0,
+0,
+0x4725,
+0,
+0,
+0x552B,
+0,
+0,
+0,
+0,
+0,
+0x3538,
+0,
+0,
+0x4D45,
+0,
+0,
+0x4C2F,
+0,
+0x562C,
+0,
+0x5523,
+0,
+0,
+0,
+0,
+0,
+0x5526,
+0,
+0x4245,
+0,
+0,
+0x4B38,
+0,
+0,
+0,
+0x454A,
+0,
+0,
+0,
+0,
+0,
+0x5527,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4B65,
+0,
+0x3A4A,
+0,
+0,
+0x3E2A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5528,
+0,
+0,
+0x3B50,
+0,
+0x3B4F,
+0,
+0,
+0,
+0,
+0x3039,
+0x3848,
+0,
+0x402B,
+0x3051,
+0,
+0,
+0,
+0,
+0x552C,
+0x552D,
+0,
+0x552A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3138,
+0x342F,
+0,
+0x5529,
+0,
+0x4C45,
+0x4931,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3028,
+0,
+0,
+0,
+0,
+0x3079,
+0,
+0,
+0,
+0x3B51,
+0,
+0x3052,
+0,
+0x3023,
+0,
+0,
+0,
+0,
+0,
+0x5532,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5530,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4C3C,
+0,
+0x5533,
+0,
+0x5531,
+0,
+0,
+0x552F,
+0x3F31,
+0,
+0,
+0,
+0,
+0x552E,
+0,
+0,
+0,
+0x4A5A,
+0,
+0,
+0,
+0,
+0,
+0x3864,
+0,
+0,
+0,
+0,
+0,
+0x5537,
+0x5538,
+0,
+0,
+0,
+0,
+0,
+0x3E2B,
+0,
+0,
+0,
+0x5534,
+0x4F2C,
+0,
+0,
+0,
+0,
+0x474C,
+0,
+0,
+0x5536,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3A27,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5539,
+0,
+0,
+0,
+0x4958,
+0,
+0,
+0,
+0x553A,
+0,
+0x5535,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4C3B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x475E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x553B,
+0x4932,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x553C,
+0x5540,
+0x553D,
+0,
+0,
+0x3247,
+0x553F,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3C3B,
+0,
+0x553E,
+0x3779,
+0,
+0,
+0,
+0x554C,
+0,
+0,
+0,
+0,
+0,
+0x5545,
+0x5542,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4364,
+0,
+0x5541,
+0,
+0,
+0x5543,
+0,
+0,
+0x5544,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5546,
+0x5547,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3472,
+0,
+0x5549,
+0x5548,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x554A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3E6E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x554D,
+0,
+0x445C,
+0,
+0,
+0,
+0x3145,
+0,
+0x554B,
+0,
+0,
+0,
+0x554E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x554F,
+0,
+0x5552,
+0,
+0,
+0x5550,
+0,
+0x5551,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3B52,
+0x5553,
+0,
+0,
+0x3926,
+0x5554,
+0,
+0x3B7A,
+0x4238,
+0,
+0x5555,
+0x5556,
+0x3B5A,
+0x3927,
+0,
+0x4C52,
+0,
+0,
+0,
+0x3528,
+0x3849,
+0x5557,
+0x3358,
+0,
+0,
+0x5558,
+0,
+0x4239,
+0,
+0,
+0,
+0,
+0x5559,
+0x5623,
+0,
+0x555A,
+0,
+0x555B,
+0,
+0,
+0x555C,
+0,
+0x555E,
+0,
+0,
+0,
+0,
+0,
+0x555F,
+0,
+0,
+0x5560,
+0,
+0x4270,
+0,
+0x3127,
+0x3C69,
+0x3042,
+0,
+0x4157,
+0x3430,
+0x3C35,
+0,
+0x3928,
+0,
+0,
+0,
+0,
+0,
+0x4566,
+0,
+0x3D21,
+0x3431,
+0x4368,
+0x446A,
+0x3038,
+0x3539,
+0x4A75,
+0,
+0x3C42,
+0,
+0,
+0x3552,
+0x406B,
+0x3C3C,
+0x4D28,
+0x5561,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x355C,
+0,
+0x3A4B,
+0,
+0,
+0x3332,
+0x3163,
+0x3E2C,
+0x3248,
+0,
+0x5562,
+0x4D46,
+0,
+0,
+0,
+0,
+0,
+0x3D49,
+0,
+0,
+0x3C64,
+0x5563,
+0x3473,
+0x4652,
+0x4C29,
+0x5564,
+0,
+0x5565,
+0,
+0,
+0x4959,
+0,
+0,
+0,
+0x5567,
+0,
+0x3428,
+0x3677,
+0x5566,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3432,
+0,
+0x3F32,
+0x556B,
+0x3B21,
+0,
+0x3249,
+0x556A,
+0,
+0x5568,
+0x556C,
+0x5569,
+0x472B,
+0x5C4D,
+0x3F33,
+0,
+0x556D,
+0,
+0,
+0x4E40,
+0,
+0x556E,
+0,
+0,
+0x5570,
+0,
+0x437E,
+0x556F,
+0,
+0x4023,
+0,
+0x3B7B,
+0,
+0,
+0,
+0x4250,
+0x3C77,
+0,
+0x4975,
+0x406C,
+0,
+0x3C4D,
+0x5571,
+0x3E2D,
+0x5572,
+0x5573,
+0x3053,
+0x423A,
+0x3F52,
+0,
+0x5574,
+0x4633,
+0x3E2E,
+0,
+0x3E2F,
+0,
+0x5575,
+0,
+0,
+0x406D,
+0,
+0,
+0,
+0x3E30,
+0,
+0,
+0,
+0,
+0,
+0x5576,
+0,
+0x5577,
+0,
+0x4C60,
+0,
+0,
+0,
+0x5578,
+0,
+0,
+0,
+0,
+0x3646,
+0,
+0,
+0,
+0x3D22,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5579,
+0x557A,
+0x3C5C,
+0x3F2C,
+0x4674,
+0x3F54,
+0x4878,
+0x4722,
+0x3649,
+0x557B,
+0,
+0,
+0,
+0x356F,
+0x557C,
+0,
+0x367E,
+0,
+0x464F,
+0x3230,
+0,
+0x3B53,
+0x557D,
+0x5622,
+0x5621,
+0x367D,
+0,
+0x557E,
+0,
+0x4538,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4230,
+0,
+0x454B,
+0x3C48,
+0,
+0,
+0x4158,
+0x4D7A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5624,
+0,
+0x5625,
+0x4656,
+0,
+0x3B33,
+0,
+0,
+0,
+0,
+0x5627,
+0,
+0,
+0x5628,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5629,
+0,
+0,
+0,
+0x3474,
+0x562A,
+0,
+0,
+0x562B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x322C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x413B,
+0x3464,
+0,
+0x562D,
+0x4C28,
+0,
+0,
+0,
+0,
+0x4252,
+0,
+0x3359,
+0,
+0,
+0x562F,
+0x5631,
+0x345F,
+0,
+0,
+0x562E,
+0x5630,
+0,
+0x5633,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5632,
+0,
+0x5634,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5635,
+0,
+0,
+0,
+0,
+0,
+0,
+0x463D,
+0x362E,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3265,
+0x5636,
+0x563B,
+0,
+0,
+0x5639,
+0,
+0x4A77,
+0x4A76,
+0,
+0,
+0,
+0,
+0,
+0x4567,
+0,
+0,
+0,
+0x5638,
+0x3D54,
+0,
+0x5637,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3F72,
+0,
+0,
+0,
+0x563C,
+0,
+0,
+0x3A6A,
+0,
+0,
+0x5642,
+0,
+0,
+0x5643,
+0x563D,
+0x3333,
+0x563E,
+0x5647,
+0x5646,
+0x5645,
+0x5641,
+0,
+0,
+0,
+0x5640,
+0,
+0,
+0x5644,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A78,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x564B,
+0x5648,
+0,
+0x564A,
+0,
+0x4D72,
+0,
+0x5649,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x563F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3F73,
+0,
+0,
+0x564C,
+0,
+0,
+0x3A37,
+0,
+0,
+0,
+0x564D,
+0,
+0,
+0x564E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5651,
+0,
+0x5650,
+0,
+0,
+0x564F,
+0,
+0,
+0,
+0x4568,
+0x563A,
+0,
+0,
+0,
+0x5657,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5653,
+0,
+0,
+0,
+0,
+0x5652,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5654,
+0,
+0x5655,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5658,
+0,
+0,
+0x4E66,
+0,
+0x5659,
+0x5656,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x565A,
+0,
+0,
+0x3460,
+0x565B,
+0,
+0,
+0,
+0,
+0x565D,
+0x565C,
+0,
+0,
+0x565E,
+0,
+0,
+0,
+0,
+0x565F,
+0,
+0x406E,
+0x3D23,
+0,
+0,
+0x3D64,
+0,
+0x4163,
+0,
+0x3929,
+0x3A38,
+0x392A,
+0x3570,
+0,
+0,
+0x5660,
+0,
+0,
+0x3A39,
+0,
+0,
+0x384A,
+0x5661,
+0x4C26,
+0x4743,
+0x5662,
+0,
+0x392B,
+0,
+0,
+0,
+0x342C,
+0,
+0x4327,
+0x3652,
+0,
+0,
+0,
+0x3B54,
+0x495B,
+0,
+0,
+0x4841,
+0,
+0,
+0,
+0,
+0x5663,
+0x3475,
+0,
+0,
+0,
+0,
+0x5666,
+0,
+0,
+0,
+0,
+0x4421,
+0,
+0,
+0x5665,
+0x5664,
+0x5667,
+0,
+0x446B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3F63,
+0,
+0,
+0,
+0,
+0,
+0x3B55,
+0,
+0x404A,
+0,
+0x4253,
+0x3522,
+0,
+0,
+0x4422,
+0,
+0,
+0x5668,
+0x5669,
+0x3E6F,
+0,
+0,
+0,
+0,
+0x4B39,
+0,
+0,
+0x566C,
+0,
+0,
+0x566B,
+0x566A,
+0x497D,
+0,
+0x5673,
+0,
+0,
+0,
+0,
+0x4B5A,
+0,
+0x566D,
+0,
+0,
+0,
+0,
+0,
+0x566F,
+0x4B6B,
+0,
+0x566E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5670,
+0,
+0x4828,
+0x5671,
+0x4A3E,
+0x5672,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3433,
+0x4A3F,
+0x472F,
+0x5674,
+0x5675,
+0,
+0x392C,
+0x3434,
+0x5676,
+0x3838,
+0x4D44,
+0x4D29,
+0x3476,
+0x5678,
+0,
+0x4423,
+0,
+0x392D,
+0x3E31,
+0,
+0,
+0x485F,
+0,
+0,
+0x3E32,
+0,
+0,
+0,
+0,
+0x3D78,
+0,
+0,
+0,
+0,
+0,
+0x446C,
+0x4A79,
+0x4539,
+0,
+0,
+0x392E,
+0,
+0x495C,
+0,
+0,
+0,
+0x5679,
+0,
+0,
+0,
+0,
+0,
+0x4559,
+0x3A42,
+0,
+0,
+0,
+0x384B,
+0,
+0x446D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3043,
+0x3D6E,
+0x392F,
+0x4D47,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x567A,
+0x567B,
+0x4751,
+0,
+0,
+0,
+0,
+0x567C,
+0x4E77,
+0x4F2D,
+0,
+0,
+0,
+0,
+0x567E,
+0x567D,
+0,
+0,
+0x3347,
+0,
+0,
+0x5721,
+0,
+0,
+0,
+0x5724,
+0x5725,
+0,
+0x5723,
+0,
+0x4940,
+0x3E33,
+0x5727,
+0x5726,
+0x5722,
+0,
+0,
+0,
+0,
+0x5728,
+0x5729,
+0,
+0,
+0x572A,
+0,
+0,
+0,
+0x572D,
+0x572B,
+0,
+0x572C,
+0x572E,
+0,
+0x3164,
+0x446E,
+0x572F,
+0,
+0x377A,
+0x3276,
+0x4736,
+0,
+0x5730,
+0x467B,
+0,
+0x4A5B,
+0,
+0x5731,
+0x4F2E,
+0,
+0,
+0,
+0,
+0x5732,
+0x4A40,
+0x5735,
+0x5021,
+0x5031,
+0,
+0x3C30,
+0x4675,
+0x5736,
+0,
+0x355D,
+0x4424,
+0x307A,
+0x5737,
+0x4A26,
+0x3930,
+0,
+0,
+0x4350,
+0,
+0,
+0,
+0x446F,
+0,
+0,
+0,
+0,
+0,
+0x4C6F,
+0x3839,
+0x384C,
+0,
+0x5738,
+0,
+0,
+0,
+0x5739,
+0,
+0x573F,
+0,
+0x3C65,
+0,
+0,
+0,
+0x4425,
+0,
+0x362F,
+0x573A,
+0,
+0,
+0,
+0x492B,
+0,
+0x4346,
+0,
+0,
+0x573B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x573C,
+0,
+0x3630,
+0,
+0x573D,
+0,
+0x573E,
+0,
+0,
+0x5740,
+0,
+0x4576,
+0,
+0,
+0x5741,
+0x5742,
+0,
+0x5743,
+0,
+0,
+0x5734,
+0x5733,
+0,
+0,
+0,
+0x5744,
+0x3741,
+0,
+0,
+0,
+0x4927,
+0,
+0,
+0x3A4C,
+0x4937,
+0x4426,
+0x494B,
+0x5745,
+0,
+0,
+0x3E34,
+0x3146,
+0,
+0x5746,
+0,
+0,
+0,
+0x5747,
+0,
+0x4C72,
+0,
+0,
+0x4860,
+0,
+0,
+0x574A,
+0x317D,
+0x402C,
+0x5749,
+0x5748,
+0x3742,
+0x4254,
+0,
+0x574E,
+0x574C,
+0,
+0x574B,
+0x4E27,
+0x3865,
+0,
+0,
+0,
+0x3D79,
+0x574D,
+0x454C,
+0x3D3E,
+0,
+0,
+0,
+0x4640,
+0x5751,
+0x5750,
+0,
+0,
+0,
+0,
+0x574F,
+0,
+0x5752,
+0x3866,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5753,
+0x497C,
+0x3D5B,
+0,
+0,
+0x5754,
+0x4879,
+0,
+0,
+0,
+0,
+0x4641,
+0x4427,
+0,
+0,
+0,
+0,
+0x4530,
+0,
+0,
+0x5755,
+0x352B,
+0,
+0,
+0,
+0,
+0,
+0x3F34,
+0,
+0x492C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3477,
+0x4726,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5756,
+0x3B56,
+0x4B3A,
+0x4B3B,
+0,
+0,
+0x317E,
+0x575B,
+0,
+0,
+0x4369,
+0,
+0,
+0,
+0x5758,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3277,
+0,
+0,
+0,
+0,
+0x582D,
+0x575A,
+0,
+0,
+0,
+0x4730,
+0,
+0,
+0x5759,
+0,
+0,
+0x5757,
+0,
+0x397A,
+0,
+0x575D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5763,
+0x5769,
+0x5761,
+0,
+0x455C,
+0,
+0,
+0x5766,
+0x495D,
+0,
+0,
+0x5760,
+0,
+0x5765,
+0x4E67,
+0x3B57,
+0,
+0,
+0x4255,
+0x575E,
+0,
+0,
+0,
+0x355E,
+0x5768,
+0x402D,
+0x3165,
+0x5762,
+0x3278,
+0x5767,
+0,
+0,
+0,
+0x3631,
+0,
+0x5764,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x576A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x576C,
+0x5776,
+0x5774,
+0,
+0,
+0x5771,
+0,
+0,
+0,
+0x5770,
+0x4E78,
+0,
+0x5772,
+0,
+0,
+0x3632,
+0,
+0x3931,
+0,
+0,
+0x3D7A,
+0,
+0,
+0,
+0x5779,
+0x576B,
+0,
+0,
+0,
+0,
+0x576F,
+0x575F,
+0,
+0x327A,
+0x5773,
+0x5775,
+0x4351,
+0,
+0,
+0x3A28,
+0x3238,
+0x576D,
+0x5778,
+0x5777,
+0x3633,
+0,
+0x4229,
+0x3366,
+0,
+0,
+0,
+0,
+0x3743,
+0,
+0x576E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x577A,
+0,
+0x577D,
+0x5821,
+0,
+0,
+0,
+0,
+0x3C3D,
+0,
+0x5827,
+0x4470,
+0x577B,
+0,
+0,
+0,
+0,
+0x5825,
+0,
+0x3279,
+0,
+0x5823,
+0x5824,
+0,
+0,
+0x577E,
+0x5822,
+0,
+0,
+0,
+0x3867,
+0x4D2A,
+0,
+0,
+0x3435,
+0,
+0,
+0x3159,
+0x5826,
+0,
+0x473A,
+0x302D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4861,
+0x575C,
+0x582C,
+0x5830,
+0x4C65,
+0,
+0x5829,
+0,
+0,
+0,
+0x4569,
+0x582E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3E70,
+0x582F,
+0x4657,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4F47,
+0,
+0x582B,
+0,
+0,
+0,
+0,
+0x5831,
+0,
+0x397B,
+0,
+0x404B,
+0,
+0,
+0x3054,
+0x582A,
+0x5828,
+0,
+0x415A,
+0,
+0,
+0,
+0x577C,
+0x3B34,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4246,
+0x583D,
+0,
+0x415B,
+0x5838,
+0,
+0x5835,
+0x5836,
+0,
+0x3C66,
+0x5839,
+0x583C,
+0,
+0,
+0,
+0,
+0x5837,
+0x3D25,
+0,
+0x583A,
+0,
+0,
+0x5834,
+0,
+0x4C7C,
+0x4C7B,
+0,
+0,
+0,
+0x583E,
+0x583F,
+0x3055,
+0,
+0,
+0,
+0,
+0,
+0x5833,
+0,
+0,
+0,
+0,
+0x3672,
+0x3026,
+0,
+0,
+0,
+0x3436,
+0,
+0x583B,
+0,
+0,
+0,
+0,
+0,
+0x5843,
+0x5842,
+0,
+0,
+0,
+0x5847,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5848,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5846,
+0x5849,
+0x5841,
+0x5845,
+0,
+0,
+0x584A,
+0,
+0x584B,
+0,
+0,
+0x5840,
+0x3B7C,
+0,
+0x5844,
+0x4256,
+0x3932,
+0x5832,
+0x3F35,
+0,
+0,
+0,
+0,
+0x5858,
+0,
+0x4A69,
+0,
+0,
+0x584E,
+0x584F,
+0x5850,
+0,
+0,
+0x5857,
+0,
+0x5856,
+0,
+0,
+0x4B7D,
+0x3437,
+0,
+0x5854,
+0,
+0x3745,
+0x3334,
+0,
+0,
+0x5851,
+0,
+0,
+0x4E38,
+0x5853,
+0x3056,
+0x5855,
+0,
+0x584C,
+0x5852,
+0x5859,
+0x3744,
+0x584D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D5D,
+0,
+0,
+0,
+0x4D2B,
+0,
+0,
+0,
+0,
+0x585C,
+0,
+0,
+0x5860,
+0,
+0,
+0,
+0x417E,
+0,
+0x4E79,
+0x5861,
+0,
+0,
+0x585E,
+0,
+0x585B,
+0,
+0,
+0x585A,
+0x585F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A30,
+0,
+0,
+0x4634,
+0,
+0x3746,
+0,
+0x5862,
+0x585D,
+0,
+0x5863,
+0,
+0,
+0,
+0x377B,
+0,
+0,
+0,
+0x3231,
+0,
+0,
+0,
+0x586B,
+0,
+0,
+0,
+0x3438,
+0,
+0,
+0,
+0,
+0x5869,
+0,
+0,
+0x586A,
+0x3A29,
+0x5868,
+0x5866,
+0x5865,
+0x586C,
+0x5864,
+0x586E,
+0,
+0,
+0x327B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5870,
+0,
+0,
+0x586F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4428,
+0,
+0x5873,
+0,
+0x5871,
+0x5867,
+0x377C,
+0,
+0x5872,
+0,
+0x5876,
+0x5875,
+0x5877,
+0x5874,
+0x5878,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5879,
+0x587A,
+0x4A6A,
+0,
+0x587C,
+0x587B,
+0x3D3F,
+0,
+0x402E,
+0x3266,
+0x327C,
+0,
+0x587D,
+0,
+0x303F,
+0,
+0,
+0,
+0x404C,
+0x587E,
+0,
+0x6C43,
+0x5921,
+0x3761,
+0,
+0x5922,
+0,
+0,
+0,
+0,
+0x406F,
+0,
+0,
+0,
+0x5923,
+0,
+0,
+0,
+0x5924,
+0x353A,
+0x5925,
+0,
+0x5926,
+0x5927,
+0x4257,
+0,
+0,
+0,
+0x384D,
+0,
+0,
+0x4C61,
+0,
+0,
+0,
+0x4B3C,
+0x3D6A,
+0x5928,
+0,
+0,
+0,
+0,
+0,
+0x4070,
+0x6E3D,
+0x4862,
+0,
+0x3C6A,
+0,
+0x3A4D,
+0x5929,
+0,
+0,
+0,
+0,
+0x4247,
+0,
+0x4A27,
+0,
+0,
+0x4271,
+0,
+0,
+0x592C,
+0,
+0,
+0x592A,
+0,
+0x592D,
+0,
+0,
+0x592B,
+0,
+0,
+0,
+0,
+0x592E,
+0,
+0,
+0,
+0,
+0,
+0x4A31,
+0,
+0,
+0x3037,
+0,
+0,
+0,
+0,
+0x495E,
+0,
+0,
+0x4863,
+0,
+0,
+0x592F,
+0,
+0x5932,
+0x3E35,
+0x353B,
+0,
+0x5930,
+0x5937,
+0x3E36,
+0,
+0,
+0,
+0,
+0x5931,
+0x4744,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D5E,
+0x5933,
+0x5934,
+0x5938,
+0x456A,
+0x5935,
+0x3933,
+0x405E,
+0,
+0,
+0x5946,
+0x4834,
+0,
+0x4272,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4864,
+0x5A2D,
+0,
+0,
+0,
+0,
+0x4A7A,
+0,
+0,
+0,
+0x4471,
+0,
+0,
+0,
+0x4B75,
+0,
+0x593B,
+0x3221,
+0x436A,
+0,
+0,
+0,
+0,
+0x5944,
+0,
+0,
+0x4334,
+0x593E,
+0x5945,
+0x5940,
+0x5947,
+0x5943,
+0,
+0x5942,
+0x476F,
+0,
+0x593C,
+0x327D,
+0x593A,
+0x3571,
+0x4273,
+0x5936,
+0,
+0,
+0x5939,
+0x3934,
+0x405B,
+0,
+0x3E37,
+0x5941,
+0x4752,
+0,
+0,
+0x3572,
+0x3348,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3367,
+0x3F21,
+0x5949,
+0x594E,
+0,
+0x594A,
+0,
+0x377D,
+0,
+0x594F,
+0x3B22,
+0x3969,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3D26,
+0x593D,
+0,
+0x3B7D,
+0x594C,
+0,
+0,
+0,
+0,
+0x3B58,
+0x594D,
+0x3044,
+0,
+0,
+0x5948,
+0,
+0,
+0,
+0,
+0x4429,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3573,
+0,
+0,
+0,
+0,
+0,
+0x3634,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x594B,
+0x3027,
+0,
+0,
+0x3A43,
+0,
+0,
+0,
+0x3F36,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4472,
+0,
+0,
+0x4854,
+0x5951,
+0x415E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x422A,
+0,
+0,
+0x3B2B,
+0x5952,
+0,
+0x5954,
+0x5950,
+0,
+0,
+0,
+0,
+0x4A61,
+0,
+0x443D,
+0,
+0,
+0,
+0,
+0x415C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A7B,
+0x3C4E,
+0x5960,
+0,
+0x595F,
+0,
+0,
+0x3F78,
+0,
+0,
+0,
+0x377E,
+0,
+0,
+0,
+0x5959,
+0x3E39,
+0,
+0,
+0x4668,
+0x4731,
+0,
+0,
+0,
+0,
+0x5957,
+0,
+0,
+0x415D,
+0,
+0,
+0,
+0,
+0x3C78,
+0x595C,
+0,
+0,
+0x3E38,
+0,
+0x5956,
+0x595B,
+0,
+0,
+0x4753,
+0,
+0,
+0,
+0x5955,
+0,
+0x3721,
+0,
+0,
+0x335D,
+0,
+0,
+0,
+0x595D,
+0x4E2B,
+0x3A4E,
+0x4335,
+0x595A,
+0,
+0x405C,
+0,
+0x3935,
+0x3F64,
+0x3166,
+0x413C,
+0x5958,
+0x3545,
+0,
+0,
+0,
+0,
+0,
+0x3747,
+0,
+0x444F,
+0x595E,
+0,
+0,
+0,
+0,
+0,
+0x415F,
+0,
+0,
+0x5961,
+0,
+0x5963,
+0,
+0,
+0x4237,
+0x5969,
+0,
+0x5964,
+0,
+0,
+0x5966,
+0,
+0,
+0,
+0,
+0,
+0x4941,
+0x4473,
+0,
+0x5967,
+0,
+0,
+0,
+0x4D2C,
+0,
+0,
+0,
+0x4D48,
+0x3439,
+0,
+0,
+0,
+0,
+0,
+0x302E,
+0,
+0x5965,
+0,
+0,
+0,
+0,
+0,
+0x5962,
+0,
+0,
+0,
+0,
+0x3478,
+0,
+0,
+0,
+0,
+0,
+0x3167,
+0,
+0x5968,
+0,
+0,
+0,
+0x4D49,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x596C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x423B,
+0,
+0x5973,
+0,
+0,
+0,
+0x596D,
+0,
+0,
+0x596A,
+0x5971,
+0,
+0,
+0,
+0,
+0x5953,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x596E,
+0,
+0x5972,
+0,
+0,
+0,
+0x4842,
+0x456B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x596B,
+0,
+0x596F,
+0,
+0,
+0,
+0x3748,
+0,
+0,
+0,
+0x3A71,
+0,
+0,
+0,
+0x405D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5977,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4526,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5974,
+0,
+0x4B60,
+0,
+0,
+0,
+0,
+0,
+0x5975,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5976,
+0,
+0x4C4E,
+0,
+0x4022,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3762,
+0,
+0,
+0,
+0,
+0x597D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3B35,
+0x597A,
+0,
+0x5979,
+0,
+0,
+0,
+0,
+0x4732,
+0,
+0,
+0,
+0x4635,
+0,
+0,
+0,
+0,
+0,
+0x4531,
+0x597B,
+0,
+0,
+0,
+0x597C,
+0,
+0x496F,
+0,
+0x4745,
+0x3B23,
+0,
+0x4071,
+0,
+0x4B50,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3349,
+0,
+0x5A25,
+0x597E,
+0,
+0,
+0,
+0,
+0x4D4A,
+0x5A27,
+0,
+0,
+0x5A23,
+0,
+0x5A24,
+0,
+0,
+0,
+0,
+0,
+0x4160,
+0,
+0,
+0,
+0,
+0x5A22,
+0,
+0x593F,
+0,
+0,
+0,
+0x5A26,
+0,
+0x5A21,
+0,
+0,
+0,
+0,
+0,
+0x5A2B,
+0x5A2C,
+0x4527,
+0x5A2E,
+0,
+0,
+0x3B24,
+0x5A29,
+0,
+0,
+0,
+0,
+0x353C,
+0,
+0,
+0x5A2F,
+0,
+0x5A28,
+0x5A33,
+0,
+0x5A32,
+0,
+0x5A31,
+0,
+0,
+0,
+0x5A34,
+0,
+0,
+0x5A36,
+0x3E71,
+0,
+0x5A35,
+0,
+0,
+0,
+0,
+0x5A39,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5A37,
+0,
+0,
+0,
+0x5A38,
+0x5970,
+0,
+0,
+0,
+0,
+0,
+0x5A3B,
+0x5A3A,
+0,
+0,
+0,
+0,
+0,
+0x5978,
+0x5A3C,
+0x5A30,
+0,
+0,
+0x3B59,
+0,
+0,
+0,
+0,
+0x5A3D,
+0x5A3E,
+0x5A40,
+0x5A3F,
+0x5A41,
+0x327E,
+0,
+0x3936,
+0,
+0,
+0x4A7C,
+0x402F,
+0,
+0,
+0,
+0,
+0,
+0x384E,
+0,
+0,
+0x5A43,
+0,
+0,
+0,
+0,
+0x5A46,
+0,
+0x4952,
+0,
+0x355F,
+0,
+0,
+0,
+0x5A45,
+0x5A44,
+0x4754,
+0x5A47,
+0x3635,
+0,
+0,
+0,
+0x5A49,
+0x5A48,
+0,
+0,
+0,
+0x343A,
+0x3B36,
+0,
+0,
+0x4658,
+0,
+0,
+0,
+0,
+0,
+0x3749,
+0,
+0,
+0,
+0x3F74,
+0,
+0x5A4A,
+0,
+0x4030,
+0x4528,
+0,
+0x495F,
+0x5A4B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5A4C,
+0x5A4D,
+0,
+0,
+0,
+0x4A38,
+0x555D,
+0x4046,
+0,
+0,
+0x494C,
+0,
+0x3A58,
+0,
+0x4865,
+0x4843,
+0,
+0,
+0,
+0,
+0,
+0x454D,
+0,
+0x4E41,
+0,
+0x5A4F,
+0x3C50,
+0,
+0,
+0x5A50,
+0,
+0x3036,
+0,
+0,
+0x3654,
+0x404D,
+0,
+0x4960,
+0,
+0,
+0,
+0x5A51,
+0x3B42,
+0x4347,
+0,
+0x3B5B,
+0x3F37,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5A52,
+0,
+0x4A7D,
+0,
+0,
+0x3177,
+0x3B5C,
+0,
+0,
+0,
+0x5A55,
+0,
+0x5A53,
+0x5A56,
+0x4E39,
+0x5A54,
+0,
+0,
+0,
+0,
+0x407B,
+0x5A57,
+0,
+0,
+0x4232,
+0,
+0,
+0x5A58,
+0,
+0,
+0,
+0,
+0x347A,
+0,
+0x5A5A,
+0,
+0x5A59,
+0,
+0,
+0,
+0,
+0x5A5B,
+0x5A5C,
+0x347B,
+0,
+0,
+0x467C,
+0x4336,
+0x356C,
+0x3B5D,
+0x4161,
+0,
+0,
+0x3D5C,
+0x3030,
+0,
+0,
+0,
+0x5A5D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3222,
+0x5A61,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3937,
+0x5A60,
+0,
+0,
+0x3A2B,
+0x3E3A,
+0,
+0,
+0x5A5F,
+0,
+0x3E3B,
+0,
+0x4C40,
+0x3A2A,
+0,
+0,
+0,
+0x3057,
+0x404E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5A66,
+0,
+0,
+0x4031,
+0x3147,
+0,
+0,
+0,
+0,
+0x3D55,
+0,
+0x4B66,
+0x3A72,
+0,
+0,
+0,
+0,
+0x3E3C,
+0,
+0x4027,
+0,
+0,
+0,
+0,
+0x5A65,
+0x5A63,
+0x5A64,
+0,
+0,
+0,
+0,
+0,
+0x436B,
+0,
+0,
+0x5B26,
+0,
+0x5A6A,
+0x3B7E,
+0x3938,
+0x5A68,
+0,
+0,
+0,
+0,
+0x5A69,
+0,
+0x3F38,
+0,
+0,
+0,
+0x5A67,
+0,
+0,
+0x3B2F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5A6C,
+0x5A6B,
+0x5A70,
+0,
+0,
+0x5A71,
+0,
+0x5A6D,
+0,
+0x3322,
+0x5A6E,
+0x5A6F,
+0x4855,
+0,
+0,
+0,
+0,
+0x4961,
+0x374A,
+0x5A72,
+0,
+0,
+0,
+0x4032,
+0,
+0x3E3D,
+0,
+0,
+0,
+0x4352,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3647,
+0,
+0x5A73,
+0x5A77,
+0,
+0,
+0x324B,
+0x5A74,
+0x5A76,
+0,
+0,
+0,
+0,
+0x5A75,
+0,
+0,
+0x3D6B,
+0,
+0,
+0,
+0,
+0x4348,
+0x3045,
+0x5A78,
+0,
+0,
+0,
+0,
+0x5A79,
+0,
+0,
+0,
+0,
+0x442A,
+0,
+0,
+0,
+0x4E71,
+0,
+0,
+0,
+0,
+0x3B43,
+0,
+0,
+0x4A6B,
+0,
+0,
+0,
+0,
+0,
+0x4B3D,
+0,
+0,
+0,
+0x5B22,
+0x5A7B,
+0,
+0,
+0x5A7E,
+0,
+0x5A7D,
+0,
+0,
+0x5A7A,
+0,
+0,
+0x5B21,
+0,
+0,
+0x465E,
+0,
+0x5A7C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5B23,
+0,
+0,
+0x3D6C,
+0x5B24,
+0,
+0x4D4B,
+0x4778,
+0,
+0,
+0x5B25,
+0,
+0,
+0,
+0,
+0,
+0x5B27,
+0,
+0,
+0x5B28,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5B29,
+0,
+0x364A,
+0x3148,
+0x3939,
+0x5B2A,
+0,
+0x5B2B,
+0x3D71,
+0x4162,
+0,
+0,
+0x5258,
+0x413E,
+0x413D,
+0x4258,
+0x3A47,
+0,
+0,
+0x5072,
+0,
+0,
+0,
+0,
+0x376E,
+0x4D2D,
+0,
+0x4A7E,
+0,
+0x497E,
+0,
+0x5B2C,
+0,
+0,
+0,
+0,
+0x3A73,
+0x443F,
+0x5B2D,
+0x4F2F,
+0,
+0,
+0,
+0x4B3E,
+0,
+0x442B,
+0x5B2E,
+0x347C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5B2F,
+0x5B30,
+0x4C5A,
+0,
+0x4C24,
+0x4B76,
+0x4B5C,
+0x3B25,
+0x5B32,
+0,
+0,
+0x3C6B,
+0,
+0,
+0x4B51,
+0,
+0x5B34,
+0x5B37,
+0x5B36,
+0,
+0x3479,
+0,
+0,
+0x3560,
+0,
+0x5B33,
+0,
+0x5B35,
+0,
+0,
+0,
+0,
+0x5B38,
+0,
+0,
+0x3F79,
+0,
+0,
+0,
+0,
+0x4D7B,
+0x3049,
+0x3A60,
+0x423C,
+0,
+0x3C5D,
+0,
+0,
+0x3E73,
+0,
+0,
+0x5B3B,
+0,
+0,
+0x454E,
+0,
+0x5B39,
+0x422B,
+0x5B3A,
+0x3E72,
+0x4C5D,
+0x5B3C,
+0x5B3D,
+0x4D68,
+0,
+0,
+0,
+0,
+0x5B42,
+0,
+0,
+0x393A,
+0,
+0x4755,
+0x5B3F,
+0x456C,
+0x5A5E,
+0x5A62,
+0,
+0x354F,
+0,
+0x4747,
+0,
+0,
+0,
+0,
+0x5B41,
+0,
+0x3E3E,
+0x4844,
+0,
+0,
+0,
+0,
+0,
+0x5B47,
+0,
+0x487A,
+0,
+0x5B3E,
+0,
+0x5B44,
+0x5B43,
+0,
+0,
+0,
+0x404F,
+0,
+0,
+0,
+0,
+0x4B6D,
+0,
+0x4E53,
+0,
+0,
+0x4B67,
+0,
+0x324C,
+0x3B5E,
+0,
+0,
+0x4F48,
+0x5B46,
+0x3F75,
+0,
+0,
+0,
+0x5B45,
+0,
+0,
+0x5B40,
+0,
+0,
+0,
+0,
+0,
+0x384F,
+0,
+0,
+0,
+0x5B4C,
+0x5B4A,
+0,
+0x324D,
+0x5B48,
+0x5B4E,
+0x5B54,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4248,
+0,
+0,
+0x4A41,
+0,
+0x5B56,
+0,
+0,
+0,
+0x4922,
+0,
+0,
+0,
+0x5B55,
+0x4770,
+0x4B3F,
+0x343B,
+0,
+0x4077,
+0x3D40,
+0,
+0,
+0,
+0x4453,
+0,
+0x4D2E,
+0,
+0,
+0x5B51,
+0x5B50,
+0,
+0,
+0,
+0x5B52,
+0,
+0x5B4F,
+0,
+0,
+0x5B57,
+0,
+0x5B4D,
+0,
+0,
+0x5B4B,
+0,
+0x5B53,
+0x5B49,
+0,
+0x436C,
+0,
+0x4C78,
+0x3C46,
+0x3A74,
+0,
+0,
+0,
+0,
+0,
+0x3A3A,
+0,
+0,
+0x4B6F,
+0x3341,
+0,
+0,
+0x444E,
+0x464A,
+0x3149,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4072,
+0,
+0,
+0x4034,
+0x372A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5B59,
+0,
+0,
+0x393B,
+0x337C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5B5B,
+0x3374,
+0x5B61,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5B5E,
+0,
+0x4073,
+0,
+0,
+0,
+0x334B,
+0x3A2C,
+0,
+0,
+0x334A,
+0x3A4F,
+0,
+0,
+0x5B5C,
+0x3765,
+0x374B,
+0x456D,
+0,
+0,
+0x5B5A,
+0,
+0x3046,
+0,
+0,
+0,
+0,
+0x5B5D,
+0x5B5F,
+0,
+0x364D,
+0x372C,
+0,
+0x343C,
+0x354B,
+0,
+0,
+0,
+0,
+0x5B62,
+0,
+0,
+0x3A79,
+0x4B71,
+0,
+0x3B37,
+0,
+0,
+0,
+0x5B63,
+0,
+0,
+0,
+0x4930,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5B6F,
+0,
+0x3233,
+0x5B64,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5B75,
+0x5B65,
+0,
+0x4E42,
+0,
+0x5B6C,
+0,
+0x475F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5B74,
+0,
+0x5B67,
+0,
+0,
+0,
+0x3034,
+0x5B69,
+0,
+0,
+0x393C,
+0,
+0,
+0,
+0x5B6B,
+0,
+0x5B6A,
+0,
+0x5B66,
+0x5B71,
+0,
+0x3E3F,
+0,
+0,
+0,
+0x546D,
+0x3868,
+0x4D7C,
+0,
+0,
+0,
+0,
+0x5B68,
+0,
+0x4474,
+0x3323,
+0x3A2D,
+0,
+0x5B60,
+0,
+0x5B70,
+0x3361,
+0,
+0,
+0x5B6E,
+0x5B72,
+0,
+0x456E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x347E,
+0,
+0x5C32,
+0,
+0,
+0x4C49,
+0x5B77,
+0x347D,
+0,
+0x5B7E,
+0,
+0,
+0,
+0,
+0x4B40,
+0,
+0x5C21,
+0x5C23,
+0,
+0x5C27,
+0x5B79,
+0,
+0x432A,
+0,
+0,
+0,
+0,
+0x456F,
+0x5C2B,
+0x5B7C,
+0,
+0x5C28,
+0,
+0,
+0,
+0x5C22,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3F39,
+0x5C2C,
+0,
+0,
+0x4033,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5C2A,
+0x343D,
+0,
+0,
+0,
+0,
+0,
+0x4F50,
+0x5B76,
+0,
+0,
+0x5C26,
+0x3058,
+0,
+0,
+0x5B78,
+0,
+0,
+0x4C3A,
+0x5B7D,
+0x3F22,
+0x4447,
+0x5B73,
+0,
+0,
+0x5C25,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3F7A,
+0x5C2F,
+0x3371,
+0x3821,
+0,
+0,
+0,
+0,
+0x5C31,
+0x5B7A,
+0x5C30,
+0,
+0x5C29,
+0x5B7B,
+0,
+0x5C2D,
+0,
+0x5C2E,
+0,
+0,
+0,
+0,
+0,
+0x5C3F,
+0,
+0,
+0,
+0x464E,
+0,
+0x5C24,
+0,
+0,
+0x5C3B,
+0,
+0,
+0,
+0x5C3D,
+0,
+0x4458,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D4C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4976,
+0x5C38,
+0x424A,
+0,
+0,
+0,
+0x5C3E,
+0x413F,
+0,
+0x5C35,
+0x5C42,
+0x5C41,
+0,
+0x466F,
+0x5C40,
+0x466A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5C44,
+0x5C37,
+0,
+0x3648,
+0x5C3A,
+0x3D5D,
+0,
+0,
+0,
+0x4760,
+0x5C3C,
+0x364B,
+0,
+0x5C34,
+0x5C36,
+0x5C33,
+0,
+0,
+0x4F30,
+0x335A,
+0x5C39,
+0,
+0,
+0x5C43,
+0x3335,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3A67,
+0,
+0,
+0,
+0x315D,
+0,
+0,
+0x5C54,
+0,
+0,
+0x4F31,
+0x5C57,
+0,
+0,
+0,
+0,
+0,
+0x3F3A,
+0x5C56,
+0,
+0,
+0,
+0x5C55,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5C52,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5C46,
+0,
+0,
+0x5C63,
+0x5C45,
+0,
+0x5C58,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5C50,
+0,
+0,
+0x5C4B,
+0x5C48,
+0,
+0x5C49,
+0,
+0x5C51,
+0,
+0,
+0,
+0x7422,
+0,
+0,
+0x5C4E,
+0x393D,
+0x4448,
+0x4164,
+0x5C4C,
+0,
+0x5C47,
+0,
+0,
+0x5C4A,
+0,
+0,
+0,
+0,
+0x4D4D,
+0x4B6A,
+0,
+0,
+0,
+0x5C4F,
+0x5C59,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5C61,
+0x5C5A,
+0,
+0,
+0x5C67,
+0,
+0x5C65,
+0,
+0,
+0,
+0,
+0x5C60,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5C5F,
+0,
+0x4450,
+0,
+0x4165,
+0,
+0x5C5D,
+0,
+0,
+0x5C5B,
+0,
+0,
+0x5C62,
+0,
+0,
+0,
+0,
+0x5C68,
+0x4875,
+0x5C6E,
+0,
+0,
+0,
+0,
+0,
+0x5C69,
+0x5C6C,
+0x5C66,
+0,
+0,
+0x4374,
+0,
+0x4938,
+0,
+0x5C5C,
+0,
+0,
+0x5C64,
+0x3E40,
+0,
+0x4C4F,
+0x5C78,
+0x5C6B,
+0,
+0,
+0,
+0,
+0,
+0x3822,
+0x3223,
+0x335F,
+0,
+0,
+0x5C53,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3E41,
+0x5C70,
+0,
+0x5C77,
+0x3C79,
+0x3372,
+0,
+0,
+0x432E,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5C6D,
+0,
+0,
+0x5C72,
+0x5C76,
+0,
+0,
+0x3636,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x354C,
+0x5C74,
+0,
+0,
+0,
+0,
+0,
+0x3521,
+0,
+0x464B,
+0x5C73,
+0,
+0,
+0,
+0x5C75,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5C6F,
+0,
+0,
+0,
+0,
+0,
+0x5C71,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3360,
+0x4349,
+0,
+0,
+0,
+0x5C7C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5C7A,
+0x3869,
+0,
+0x5C79,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5D21,
+0,
+0,
+0,
+0,
+0x5B58,
+0,
+0,
+0,
+0x5C7B,
+0,
+0x5C7D,
+0x5C7E,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5D2C,
+0,
+0x5D28,
+0,
+0x5B6D,
+0,
+0,
+0,
+0,
+0x5D27,
+0,
+0,
+0,
+0,
+0x5D26,
+0,
+0,
+0x5D23,
+0,
+0,
+0,
+0,
+0,
+0x5C6A,
+0x5D25,
+0x5D24,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5D2A,
+0,
+0x4F26,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5D2D,
+0x367B,
+0,
+0,
+0x5D29,
+0x5D2B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4827,
+0,
+0x5D2E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5D32,
+0x5D2F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D73,
+0x5D30,
+0,
+0,
+0,
+0,
+0x5C5E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5D33,
+0,
+0,
+0,
+0x5D34,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3135,
+0,
+0x5D36,
+0x3767,
+0x3C21,
+0,
+0x3655,
+0,
+0,
+0,
+0x3224,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D5F,
+0,
+0,
+0,
+0,
+0x5D38,
+0x5D37,
+0x5D3A,
+0x353D,
+0,
+0,
+0x3656,
+0x343E,
+0,
+0,
+0,
+0,
+0x5D3D,
+0,
+0,
+0,
+0x5D3C,
+0,
+0x5D3E,
+0,
+0,
+0x324E,
+0,
+0x4337,
+0,
+0x5D3F,
+0,
+0,
+0x343F,
+0x5D41,
+0,
+0,
+0,
+0,
+0x5D40,
+0,
+0x5D42,
+0,
+0,
+0,
+0x5D43,
+0,
+0x5D44,
+0x3B5F,
+0x4035,
+0x3A21,
+0,
+0x4970,
+0,
+0,
+0x4A62,
+0x4F44,
+0,
+0,
+0,
+0,
+0x3B75,
+0,
+0,
+0,
+0x3A50,
+0x4E72,
+0,
+0,
+0,
+0x5D45,
+0x5D46,
+0,
+0x3B60,
+0,
+0,
+0,
+0x5D47,
+0x5D48,
+0,
+0,
+0x5D4A,
+0x5D49,
+0,
+0x4B58,
+0,
+0,
+0x3D5E,
+0x3C6C,
+0x3B44,
+0,
+0x5D4B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5D4D,
+0x3F23,
+0,
+0x5D4C,
+0,
+0,
+0,
+0,
+0,
+0x5D4E,
+0,
+0,
+0,
+0,
+0,
+0x5D4F,
+0,
+0,
+0,
+0,
+0,
+0x5D50,
+0x5D51,
+0,
+0,
+0,
+0x5D52,
+0,
+0x5D54,
+0x5D53,
+0x5D55,
+0x3225,
+0x434A,
+0,
+0x5D56,
+0,
+0,
+0x3B26,
+0x334C,
+0x5D57,
+0,
+0,
+0x4542,
+0x544C,
+0,
+0,
+0,
+0,
+0x3523,
+0x5D58,
+0,
+0,
+0,
+0,
+0x5D59,
+0,
+0x4A6C,
+0x4B68,
+0,
+0,
+0,
+0x4647,
+0x5D5A,
+0x4866,
+0,
+0,
+0,
+0x487B,
+0,
+0,
+0x4C53,
+0,
+0,
+0,
+0x5D5B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5D5D,
+0x5D5C,
+0,
+0,
+0x5D5F,
+0,
+0,
+0,
+0x5D5E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5D61,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3B61,
+0,
+0x4C31,
+0,
+0x5D62,
+0x5D63,
+0,
+0,
+0x3524,
+0,
+0,
+0,
+0x5D64,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5D66,
+0x5D65,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3F65,
+0,
+0,
+0x4939,
+0x314A,
+0,
+0,
+0,
+0,
+0,
+0x4845,
+0,
+0x4475,
+0x3D41,
+0x3561,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4846,
+0,
+0x3C2E,
+0,
+0,
+0,
+0,
+0x5D68,
+0,
+0x3440,
+0,
+0,
+0x3178,
+0,
+0,
+0x4672,
+0x5D67,
+0x393E,
+0x4353,
+0,
+0x5D69,
+0,
+0,
+0,
+0,
+0,
+0x5D71,
+0,
+0x5D6A,
+0,
+0,
+0,
+0,
+0,
+0x4241,
+0,
+0x3562,
+0x5D72,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3768,
+0,
+0,
+0x3525,
+0x5D70,
+0,
+0,
+0x5D6E,
+0x5D6B,
+0x4D60,
+0,
+0,
+0,
+0,
+0x4440,
+0,
+0,
+0,
+0x4659,
+0x5D6C,
+0,
+0,
+0x5D74,
+0,
+0x5D73,
+0x3723,
+0,
+0,
+0x322D,
+0,
+0,
+0x3A3B,
+0x5D6D,
+0x5D6F,
+0,
+0,
+0,
+0,
+0,
+0x4B57,
+0x4274,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4B77,
+0,
+0,
+0x5D7C,
+0,
+0,
+0x5D7D,
+0,
+0x324F,
+0,
+0,
+0,
+0,
+0x4A28,
+0x4C7D,
+0x5E21,
+0x3C23,
+0x3E42,
+0x5D78,
+0x5D7E,
+0x3168,
+0,
+0x3637,
+0,
+0,
+0x5D75,
+0x5D7A,
+0,
+0,
+0,
+0x4074,
+0x4771,
+0,
+0x4867,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5D77,
+0,
+0x4B21,
+0,
+0x5D79,
+0,
+0x5E24,
+0,
+0x5E22,
+0,
+0x5D7B,
+0,
+0,
+0,
+0x4B22,
+0x4748,
+0x3563,
+0,
+0x4525,
+0,
+0,
+0x436D,
+0,
+0x5E25,
+0,
+0,
+0,
+0,
+0x5E23,
+0x4259,
+0x5D76,
+0,
+0x314B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D4E,
+0x5E30,
+0,
+0,
+0,
+0,
+0,
+0x5E2F,
+0,
+0,
+0,
+0,
+0x4076,
+0,
+0x5E2C,
+0,
+0x4D6C,
+0,
+0,
+0x4636,
+0x5E26,
+0,
+0,
+0,
+0,
+0,
+0x4445,
+0,
+0,
+0,
+0x314C,
+0x393F,
+0x5E29,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3D27,
+0x5E2E,
+0,
+0x5E2D,
+0x5E28,
+0,
+0x5E2B,
+0,
+0,
+0x3368,
+0,
+0x5E2A,
+0x4749,
+0,
+0,
+0x4E2E,
+0,
+0,
+0x3E74,
+0x4075,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5E36,
+0x5E34,
+0,
+0x494D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5E31,
+0x5E33,
+0,
+0x313A,
+0,
+0,
+0x3940,
+0x4F32,
+0,
+0x333D,
+0,
+0x4962,
+0,
+0,
+0,
+0,
+0,
+0x4D61,
+0,
+0,
+0x3324,
+0x3F3B,
+0x5E35,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5E3A,
+0,
+0,
+0x3E43,
+0,
+0,
+0,
+0x4D30,
+0,
+0x5E37,
+0,
+0,
+0,
+0,
+0x5E32,
+0,
+0x5E38,
+0,
+0,
+0,
+0x4E5E,
+0,
+0x4573,
+0x4642,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3336,
+0,
+0,
+0x3155,
+0,
+0,
+0x5E3E,
+0,
+0,
+0x5E41,
+0,
+0,
+0,
+0x4E43,
+0,
+0,
+0,
+0x4D64,
+0,
+0,
+0,
+0,
+0x5E48,
+0x5E42,
+0x5E3F,
+0,
+0,
+0,
+0x4E54,
+0x5E45,
+0,
+0,
+0,
+0,
+0x3D4A,
+0x5E47,
+0,
+0,
+0x5E4C,
+0,
+0,
+0x4571,
+0x5E4A,
+0,
+0,
+0,
+0,
+0x5E44,
+0,
+0,
+0x4338,
+0,
+0,
+0x5E4B,
+0,
+0x5E40,
+0,
+0x5E46,
+0,
+0x5E4D,
+0x307C,
+0x5E43,
+0,
+0x5E4E,
+0,
+0,
+0x3F3C,
+0,
+0x3D5F,
+0,
+0x4A25,
+0,
+0x3A2E,
+0,
+0x5E3B,
+0x5E49,
+0x453A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4036,
+0,
+0x3369,
+0x3A51,
+0x3E44,
+0x5E3D,
+0x3D42,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x374C,
+0,
+0x5E3C,
+0,
+0,
+0,
+0x5E52,
+0x3D6D,
+0x383A,
+0,
+0x5E61,
+0,
+0x5E5B,
+0x3574,
+0x454F,
+0,
+0x5E56,
+0x5E5F,
+0x302F,
+0x3132,
+0,
+0,
+0x3239,
+0,
+0x5E58,
+0x422C,
+0x5E4F,
+0x5E51,
+0x3941,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5E62,
+0,
+0x5E5D,
+0,
+0,
+0,
+0x5E55,
+0,
+0,
+0,
+0,
+0x5E5C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4C2B,
+0,
+0,
+0x5E5A,
+0x5E5E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3850,
+0,
+0x3E45,
+0,
+0,
+0x4339,
+0,
+0,
+0,
+0x5E54,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D2F,
+0,
+0,
+0,
+0x5E57,
+0,
+0,
+0x5E50,
+0x4572,
+0,
+0,
+0x5E53,
+0,
+0,
+0,
+0x5E59,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4F51,
+0x3C3E,
+0x4B7E,
+0,
+0x5E63,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x482E,
+0,
+0,
+0x5E6F,
+0x383B,
+0,
+0,
+0,
+0,
+0,
+0x3D60,
+0,
+0x5E65,
+0,
+0,
+0,
+0x4E2F,
+0x3942,
+0,
+0x5E72,
+0,
+0,
+0x306E,
+0,
+0,
+0x5E70,
+0,
+0,
+0,
+0,
+0x5E64,
+0,
+0,
+0,
+0,
+0x5E6A,
+0,
+0,
+0x5E6C,
+0,
+0,
+0,
+0x4D4F,
+0x5E67,
+0,
+0,
+0x452E,
+0,
+0,
+0x5E69,
+0,
+0,
+0,
+0,
+0x5E71,
+0,
+0x5E6B,
+0x4C47,
+0,
+0,
+0,
+0x5E66,
+0,
+0x3C22,
+0x5E7E,
+0,
+0,
+0,
+0,
+0x336A,
+0,
+0x5E68,
+0x5E6D,
+0x5E6E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x426C,
+0x425A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5E76,
+0,
+0,
+0x5E7C,
+0,
+0,
+0x5E7A,
+0,
+0x4529,
+0,
+0,
+0x5F23,
+0x5E77,
+0,
+0,
+0,
+0,
+0,
+0x5E78,
+0x5E60,
+0,
+0x3579,
+0x493A,
+0,
+0,
+0,
+0x3C3F,
+0,
+0,
+0x3977,
+0,
+0,
+0,
+0,
+0,
+0x4F33,
+0,
+0x5E74,
+0,
+0x5F22,
+0x3169,
+0x4166,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4779,
+0,
+0x3441,
+0x4E7A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4C21,
+0x4452,
+0,
+0,
+0,
+0,
+0x5E7B,
+0x5E7D,
+0,
+0,
+0,
+0,
+0,
+0x4132,
+0,
+0,
+0,
+0,
+0,
+0x5F21,
+0x5E79,
+0,
+0x5E73,
+0,
+0,
+0,
+0x3443,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3769,
+0,
+0,
+0,
+0x5F2F,
+0,
+0,
+0x5F2A,
+0x4078,
+0,
+0,
+0x3363,
+0,
+0,
+0,
+0,
+0x3D61,
+0,
+0x5F33,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F2C,
+0x442C,
+0x5F29,
+0x4459,
+0,
+0,
+0,
+0x5F4C,
+0,
+0,
+0,
+0x5F26,
+0,
+0x5F25,
+0,
+0x5F2E,
+0,
+0,
+0,
+0x5F28,
+0x5F27,
+0x5F2D,
+0,
+0x4021,
+0,
+0x5F24,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F30,
+0,
+0,
+0x5F31,
+0,
+0,
+0,
+0,
+0,
+0x3442,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F36,
+0,
+0x5F35,
+0x5F37,
+0,
+0,
+0,
+0,
+0,
+0x5F3A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4543,
+0,
+0x5F34,
+0,
+0,
+0,
+0,
+0,
+0x5F38,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3763,
+0x4279,
+0x5F32,
+0x473B,
+0,
+0,
+0x5F39,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F3E,
+0x5F3C,
+0,
+0,
+0x5F3F,
+0,
+0,
+0x5F42,
+0,
+0,
+0,
+0x5F3B,
+0x396A,
+0x4728,
+0,
+0,
+0x5E39,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D74,
+0x5F3D,
+0,
+0x5F41,
+0x4275,
+0,
+0x5F40,
+0,
+0x5F2B,
+0,
+0,
+0x6F69,
+0,
+0,
+0,
+0x5F45,
+0,
+0,
+0,
+0x5F49,
+0,
+0,
+0x5F47,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F43,
+0,
+0x5F44,
+0,
+0,
+0,
+0x5F48,
+0,
+0x5F46,
+0,
+0,
+0,
+0x494E,
+0,
+0,
+0x5F4E,
+0,
+0x5F4B,
+0x5F4A,
+0,
+0x5F4D,
+0x4654,
+0x5F4F,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4375,
+0x426D,
+0,
+0,
+0,
+0,
+0x4025,
+0,
+0,
+0,
+0x5F50,
+0,
+0x5F52,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F51,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5E75,
+0,
+0,
+0,
+0,
+0x5F53,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4667,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F54,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3250,
+0,
+0,
+0,
+0x4574,
+0x3325,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3564,
+0,
+0,
+0,
+0x3C5E,
+0x3A52,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4F27,
+0x3F66,
+0,
+0,
+0,
+0x316A,
+0,
+0,
+0,
+0x5F56,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F55,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F59,
+0x433A,
+0x5F5C,
+0x5F57,
+0,
+0,
+0,
+0x5F5B,
+0,
+0,
+0,
+0,
+0x5F5A,
+0x4540,
+0x3059,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4E75,
+0,
+0,
+0x5F5E,
+0,
+0,
+0,
+0x3128,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F60,
+0,
+0,
+0,
+0x5F5F,
+0,
+0x5F5D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F58,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4B23,
+0,
+0,
+0,
+0x5F62,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F61,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x316B,
+0,
+0,
+0,
+0,
+0x5F64,
+0x4A32,
+0,
+0x5F63,
+0,
+0,
+0,
+0,
+0x4C35,
+0,
+0,
+0,
+0,
+0x3E47,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4133,
+0,
+0,
+0,
+0,
+0,
+0x3E46,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4E7B,
+0,
+0,
+0x5F6A,
+0,
+0x4079,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F66,
+0x5F6B,
+0,
+0,
+0x316C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F69,
+0,
+0x4761,
+0x5F65,
+0x5F68,
+0x3E48,
+0,
+0x4851,
+0,
+0,
+0x5F6C,
+0,
+0x3C51,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x407A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F6F,
+0,
+0,
+0,
+0x5F67,
+0,
+0x3727,
+0,
+0,
+0,
+0,
+0x5F6D,
+0,
+0,
+0,
+0,
+0x4D50,
+0x5F70,
+0,
+0,
+0,
+0x7426,
+0,
+0,
+0,
+0,
+0,
+0x3D4F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F71,
+0,
+0,
+0,
+0x5F72,
+0,
+0,
+0,
+0,
+0x472E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F74,
+0,
+0,
+0,
+0,
+0x5F75,
+0,
+0,
+0,
+0,
+0x4733,
+0,
+0,
+0,
+0,
+0x4575,
+0x5F77,
+0,
+0,
+0,
+0,
+0x5F79,
+0,
+0x4E55,
+0,
+0x5F76,
+0,
+0x5F78,
+0x316D,
+0,
+0x5F73,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x535B,
+0x5F7A,
+0,
+0,
+0,
+0,
+0x4167,
+0x3B38,
+0x5F7C,
+0,
+0,
+0,
+0,
+0x5F7B,
+0x3F24,
+0x5259,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5F7D,
+0,
+0,
+0,
+0x6021,
+0,
+0x5F6E,
+0x5F7E,
+0,
+0,
+0x6022,
+0,
+0,
+0,
+0,
+0,
+0,
+0x477A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6023,
+0,
+0,
+0x6024,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6025,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6026,
+0,
+0x445E,
+0,
+0x6028,
+0x6027,
+0,
+0,
+0x6029,
+0,
+0x602A,
+0,
+0,
+0x3C5F,
+0x4963,
+0,
+0,
+0,
+0x4C6C,
+0x602B,
+0x602C,
+0x4156,
+0x3C24,
+0x602D,
+0x602E,
+0,
+0,
+0,
+0,
+0,
+0x602F,
+0x4A52,
+0x4847,
+0,
+0,
+0x6030,
+0x4757,
+0,
+0,
+0,
+0,
+0,
+0x442D,
+0,
+0,
+0,
+0,
+0,
+0x6031,
+0x3267,
+0,
+0x356D,
+0,
+0x4C46,
+0,
+0x4C36,
+0,
+0x3234,
+0x4F34,
+0,
+0,
+0,
+0,
+0x4B52,
+0,
+0x4A2A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4037,
+0,
+0x6032,
+0,
+0,
+0,
+0,
+0x4643,
+0,
+0,
+0,
+0x3823,
+0x6033,
+0,
+0x3A54,
+0x6035,
+0x6034,
+0,
+0,
+0,
+0,
+0x6036,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6037,
+0,
+0,
+0,
+0x6038,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x353E,
+0,
+0x6039,
+0,
+0,
+0,
+0,
+0x603A,
+0,
+0,
+0,
+0,
+0x3824,
+0,
+0,
+0x4848,
+0,
+0,
+0x603C,
+0,
+0,
+0,
+0x3E75,
+0,
+0,
+0x603B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3638,
+0x603D,
+0x603F,
+0,
+0x603E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6040,
+0,
+0x3851,
+0,
+0x6041,
+0,
+0,
+0,
+0,
+0x3669,
+0,
+0x4140,
+0,
+0x397D,
+0,
+0,
+0,
+0,
+0x6043,
+0x6044,
+0x6042,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3C6D,
+0,
+0,
+0x4648,
+0x3639,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6046,
+0x432C,
+0x6045,
+0,
+0,
+0x4F35,
+0x4762,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6049,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x604B,
+0x6048,
+0,
+0,
+0,
+0x4C54,
+0x604A,
+0x604C,
+0,
+0x4E44,
+0,
+0,
+0,
+0,
+0,
+0x6050,
+0,
+0,
+0,
+0x604F,
+0x4376,
+0x472D,
+0,
+0,
+0x3825,
+0x604E,
+0,
+0,
+0,
+0,
+0x604D,
+0,
+0x4D31,
+0x4D32,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6051,
+0x316E,
+0,
+0,
+0,
+0,
+0x3976,
+0x3B62,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6052,
+0x6053,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6055,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3D43,
+0,
+0,
+0,
+0,
+0x6057,
+0,
+0x6056,
+0,
+0,
+0,
+0,
+0,
+0x6058,
+0,
+0x334D,
+0,
+0,
+0x605A,
+0,
+0,
+0x6059,
+0,
+0x605C,
+0x605B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x383C,
+0,
+0,
+0x4E28,
+0,
+0x364C,
+0,
+0x3226,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x366A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3461,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4E68,
+0x605E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6060,
+0,
+0,
+0,
+0,
+0x6061,
+0,
+0x3251,
+0,
+0,
+0,
+0,
+0,
+0x605D,
+0,
+0x3B39,
+0,
+0,
+0x4441,
+0x605F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6064,
+0,
+0x3C6E,
+0,
+0,
+0,
+0,
+0x6062,
+0,
+0,
+0,
+0,
+0x373E,
+0,
+0,
+0x4849,
+0x6063,
+0,
+0,
+0x607E,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6069,
+0,
+0,
+0,
+0,
+0,
+0x383D,
+0,
+0,
+0,
+0,
+0x3565,
+0,
+0x6066,
+0x4D7D,
+0,
+0,
+0x4E30,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4276,
+0,
+0,
+0x6068,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x606A,
+0x4E56,
+0x3657,
+0x487C,
+0x474A,
+0,
+0,
+0,
+0x606B,
+0,
+0,
+0,
+0,
+0x606D,
+0,
+0x6070,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x606C,
+0,
+0,
+0,
+0x606F,
+0x386A,
+0x314D,
+0x6071,
+0,
+0x3F70,
+0x606E,
+0x4E5C,
+0,
+0,
+0x6074,
+0x7424,
+0,
+0,
+0,
+0,
+0x6072,
+0x6075,
+0,
+0,
+0,
+0,
+0x6067,
+0x6073,
+0,
+0,
+0x3A3C,
+0,
+0,
+0x6076,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6077,
+0,
+0,
+0,
+0,
+0x4D7E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6078,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6079,
+0,
+0,
+0,
+0x6065,
+0,
+0,
+0,
+0,
+0x607A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3444,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3C25,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x607B,
+0,
+0,
+0,
+0,
+0x607C,
+0,
+0,
+0,
+0,
+0x607D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x313B,
+0,
+0,
+0,
+0x6121,
+0,
+0x493B,
+0x6122,
+0,
+0,
+0x3424,
+0x6123,
+0,
+0x6124,
+0,
+0,
+0,
+0,
+0x6125,
+0,
+0x6127,
+0x6128,
+0x6126,
+0,
+0,
+0,
+0x4953,
+0x612A,
+0x6129,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x612C,
+0x612B,
+0x612D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x612E,
+0x6130,
+0x612F,
+0,
+0,
+0x3979,
+0,
+0x6132,
+0,
+0x6131,
+0,
+0,
+0x3445,
+0,
+0x3F53,
+0,
+0x453C,
+0,
+0x6133,
+0x4038,
+0,
+0,
+0,
+0x3B3A,
+0,
+0x3179,
+0x6134,
+0,
+0x4D51,
+0,
+0,
+0x4A63,
+0x6135,
+0,
+0,
+0,
+0x4544,
+0x4D33,
+0x3943,
+0x3F3D,
+0,
+0,
+0,
+0x434B,
+0x5234,
+0,
+0x442E,
+0x3268,
+0x6136,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6137,
+0,
+0x613C,
+0,
+0,
+0x613A,
+0x6139,
+0x5A42,
+0x3326,
+0x6138,
+0,
+0x305A,
+0,
+0x482A,
+0,
+0,
+0x484A,
+0,
+0,
+0,
+0,
+0x4E31,
+0x613D,
+0x613B,
+0x435C,
+0x4026,
+0,
+0,
+0x482B,
+0,
+0x492D,
+0,
+0x613F,
+0x4E2C,
+0x374D,
+0x6140,
+0,
+0x613E,
+0x4856,
+0x6141,
+0,
+0x6142,
+0,
+0,
+0x305B,
+0,
+0,
+0x3E76,
+0x6147,
+0,
+0x6144,
+0x466D,
+0x6143,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3526,
+0,
+0,
+0x614A,
+0,
+0,
+0,
+0x6145,
+0x6146,
+0,
+0x6149,
+0x6148,
+0x4925,
+0,
+0,
+0x4142,
+0x4141,
+0,
+0x353F,
+0,
+0,
+0x614B,
+0,
+0,
+0,
+0,
+0,
+0x614C,
+0,
+0,
+0x614D,
+0,
+0,
+0,
+0,
+0,
+0x614F,
+0,
+0x614E,
+0,
+0,
+0,
+0,
+0,
+0x3156,
+0,
+0,
+0,
+0,
+0,
+0x6157,
+0x4868,
+0x6151,
+0,
+0x6153,
+0,
+0,
+0x6155,
+0x3F3E,
+0,
+0,
+0x6156,
+0x6154,
+0x3C40,
+0,
+0,
+0,
+0x6150,
+0x6152,
+0,
+0x4942,
+0,
+0x3E49,
+0,
+0,
+0x6159,
+0,
+0,
+0x6158,
+0,
+0,
+0,
+0,
+0x615A,
+0,
+0x3C26,
+0x3A2F,
+0,
+0,
+0x4577,
+0x615B,
+0,
+0x444B,
+0,
+0,
+0x615D,
+0,
+0,
+0,
+0x4E21,
+0x615C,
+0,
+0,
+0,
+0,
+0,
+0x4169,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6162,
+0,
+0x6164,
+0x6165,
+0x4354,
+0,
+0,
+0,
+0,
+0,
+0x6163,
+0,
+0x6160,
+0,
+0x615E,
+0x615F,
+0,
+0x6161,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6168,
+0,
+0x6166,
+0,
+0x6167,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6169,
+0x616B,
+0x616C,
+0x616D,
+0,
+0x616E,
+0,
+0,
+0x616A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6170,
+0,
+0,
+0,
+0x616F,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6171,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4E45,
+0,
+0,
+0,
+0x6174,
+0x6172,
+0x6173,
+0,
+0,
+0,
+0x3462,
+0,
+0,
+0,
+0,
+0,
+0x4C7E,
+0,
+0,
+0,
+0x4A4A,
+0,
+0x6176,
+0,
+0,
+0,
+0x6175,
+0,
+0,
+0,
+0,
+0x6177,
+0x6178,
+0,
+0,
+0,
+0,
+0x617C,
+0x6179,
+0x617A,
+0x617B,
+0,
+0x617D,
+0,
+0,
+0,
+0x617E,
+0,
+0x6221,
+0,
+0,
+0,
+0x6222,
+0,
+0x6223,
+0,
+0x482F,
+0x4550,
+0x6224,
+0x4772,
+0x4934,
+0,
+0x6225,
+0,
+0,
+0x6226,
+0x452A,
+0,
+0x3327,
+0x3944,
+0x6227,
+0,
+0,
+0x6228,
+0,
+0,
+0x6229,
+0,
+0x3B29,
+0,
+0,
+0x622B,
+0,
+0,
+0x622A,
+0,
+0,
+0x622C,
+0x622D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4869,
+0,
+0x622E,
+0,
+0,
+0,
+0x622F,
+0,
+0,
+0x7369,
+0x6230,
+0x6231,
+0x6232,
+0,
+0,
+0,
+0,
+0x3B2E,
+0,
+0,
+0x6233,
+0x4756,
+0,
+0,
+0x4B5F,
+0,
+0x314E,
+0,
+0x3157,
+0,
+0,
+0x6234,
+0,
+0,
+0,
+0,
+0x6236,
+0,
+0,
+0,
+0x6235,
+0x4570,
+0,
+0,
+0,
+0x4039,
+0x5D39,
+0,
+0x6237,
+0x4C41,
+0,
+0x6238,
+0,
+0x3446,
+0x4857,
+0x6239,
+0,
+0x623A,
+0,
+0,
+0x623B,
+0,
+0,
+0,
+0x4C5C,
+0,
+0,
+0,
+0x4C55,
+0,
+0x443E,
+0,
+0,
+0,
+0x416A,
+0,
+0,
+0x623D,
+0,
+0,
+0x3D62,
+0,
+0,
+0x3E4A,
+0,
+0,
+0x6240,
+0,
+0,
+0x623F,
+0x623E,
+0x487D,
+0,
+0x3447,
+0x3829,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6246,
+0,
+0,
+0x6243,
+0x3F3F,
+0x4C32,
+0,
+0,
+0,
+0x6242,
+0x6244,
+0x6245,
+0,
+0,
+0x6241,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6247,
+0x6248,
+0,
+0x442F,
+0,
+0x3463,
+0,
+0,
+0,
+0x4365,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6249,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x624A,
+0x624D,
+0,
+0,
+0,
+0,
+0,
+0x3F67,
+0,
+0x4644,
+0,
+0x624E,
+0x4B53,
+0,
+0x624B,
+0,
+0,
+0x624C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6251,
+0,
+0,
+0,
+0,
+0x6250,
+0x624F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6253,
+0,
+0,
+0x6252,
+0,
+0,
+0x6254,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6256,
+0,
+0x6255,
+0,
+0,
+0,
+0,
+0x4A4D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3D56,
+0x4E46,
+0,
+0,
+0x6257,
+0,
+0,
+0x4637,
+0,
+0,
+0x6258,
+0,
+0,
+0x6259,
+0,
+0x625D,
+0x625B,
+0x625C,
+0,
+0x625A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x625E,
+0,
+0,
+0,
+0,
+0,
+0x625F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6260,
+0,
+0,
+0x6261,
+0x4C37,
+0x6262,
+0,
+0,
+0,
+0,
+0,
+0x4C70,
+0x6263,
+0,
+0x434E,
+0,
+0x476A,
+0,
+0x366B,
+0,
+0,
+0,
+0x433B,
+0x6264,
+0x363A,
+0,
+0,
+0,
+0x4050,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6265,
+0,
+0,
+0,
+0,
+0,
+0x3A3D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6266,
+0,
+0,
+0,
+0,
+0,
+0x6267,
+0,
+0x3826,
+0x3A55,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6269,
+0,
+0,
+0,
+0,
+0x4556,
+0x3A56,
+0x354E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4B24,
+0,
+0x474B,
+0,
+0,
+0,
+0,
+0,
+0x4557,
+0,
+0,
+0,
+0,
+0x395C,
+0,
+0,
+0,
+0,
+0,
+0x626B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3E4B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4E32,
+0x3945,
+0,
+0,
+0x3827,
+0,
+0,
+0x4823,
+0,
+0x626D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x626F,
+0,
+0,
+0,
+0,
+0x386B,
+0,
+0,
+0,
+0,
+0x626E,
+0x4476,
+0,
+0,
+0,
+0,
+0x6271,
+0x3337,
+0x626C,
+0,
+0,
+0x486A,
+0,
+0x3130,
+0,
+0x3A6C,
+0,
+0x4F52,
+0,
+0,
+0x6270,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6272,
+0,
+0,
+0,
+0x4A4B,
+0,
+0x4059,
+0x6274,
+0,
+0,
+0,
+0,
+0x6275,
+0,
+0,
+0,
+0,
+0,
+0x6273,
+0,
+0,
+0,
+0,
+0x334E,
+0,
+0x627B,
+0,
+0x627A,
+0,
+0,
+0x3C27,
+0,
+0,
+0,
+0x627C,
+0x6277,
+0,
+0,
+0,
+0x627D,
+0x6278,
+0,
+0,
+0,
+0,
+0x4858,
+0x6276,
+0,
+0,
+0x6279,
+0,
+0,
+0,
+0,
+0,
+0x6322,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6321,
+0x4B61,
+0,
+0,
+0,
+0x627E,
+0,
+0,
+0x306B,
+0,
+0,
+0,
+0,
+0x6324,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6323,
+0,
+0,
+0,
+0x3E4C,
+0,
+0,
+0,
+0,
+0,
+0x6325,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4143,
+0,
+0,
+0x6327,
+0x6326,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6328,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6268,
+0,
+0,
+0,
+0x626A,
+0x632A,
+0x6329,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3C28,
+0,
+0x4E69,
+0,
+0x3C52,
+0,
+0x632B,
+0x3737,
+0,
+0,
+0,
+0,
+0,
+0x3540,
+0x3527,
+0x3B63,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D34,
+0,
+0,
+0x6331,
+0,
+0x6330,
+0x4144,
+0x632D,
+0,
+0,
+0x632F,
+0,
+0,
+0x3D4B,
+0x3F40,
+0x632E,
+0x632C,
+0,
+0x472A,
+0,
+0,
+0x3E4D,
+0,
+0,
+0x493C,
+0,
+0,
+0,
+0,
+0x3A57,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4578,
+0,
+0,
+0x6332,
+0,
+0,
+0,
+0,
+0x6333,
+0x6349,
+0x3658,
+0,
+0,
+0x4F3D,
+0x4135,
+0,
+0,
+0,
+0,
+0x6334,
+0,
+0,
+0x3252,
+0x4477,
+0x4A21,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6335,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x357A,
+0x6336,
+0,
+0,
+0x6338,
+0,
+0,
+0,
+0x6339,
+0,
+0x4729,
+0,
+0,
+0x633A,
+0,
+0,
+0,
+0,
+0,
+0x633B,
+0x633C,
+0,
+0,
+0x3659,
+0x3253,
+0x4645,
+0x3D28,
+0x3B64,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x633D,
+0,
+0x3D29,
+0,
+0,
+0,
+0,
+0,
+0x324A,
+0x4943,
+0,
+0,
+0x633E,
+0,
+0,
+0x486B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4145,
+0,
+0x6341,
+0,
+0x6342,
+0x4769,
+0,
+0x3F41,
+0x633F,
+0,
+0x4361,
+0,
+0,
+0x6340,
+0,
+0,
+0,
+0x3E4E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x305C,
+0,
+0,
+0,
+0,
+0x3529,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6343,
+0,
+0,
+0x4478,
+0,
+0x6344,
+0x4047,
+0,
+0,
+0,
+0,
+0,
+0x4C2D,
+0,
+0,
+0x4923,
+0x6345,
+0x6346,
+0x4355,
+0,
+0x4E47,
+0,
+0,
+0x6348,
+0x6347,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3C6F,
+0,
+0,
+0x634A,
+0x3070,
+0,
+0,
+0,
+0,
+0x634D,
+0,
+0,
+0,
+0x634B,
+0x3254,
+0x374E,
+0x634C,
+0x3946,
+0x3972,
+0,
+0x4A66,
+0x634E,
+0,
+0,
+0x4B54,
+0,
+0,
+0x6350,
+0,
+0,
+0,
+0x4051,
+0x314F,
+0x323A,
+0x302C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x634F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6351,
+0x6352,
+0x3E77,
+0,
+0,
+0,
+0,
+0,
+0x6353,
+0,
+0x334F,
+0,
+0,
+0,
+0,
+0x6355,
+0,
+0,
+0,
+0x376A,
+0,
+0x3566,
+0,
+0,
+0x6356,
+0x3675,
+0,
+0,
+0x6357,
+0,
+0x407C,
+0,
+0x464D,
+0,
+0x4060,
+0x3A75,
+0,
+0,
+0,
+0x6358,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4362,
+0x416B,
+0,
+0x635A,
+0x635C,
+0x6359,
+0x635B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3722,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x635D,
+0x3726,
+0,
+0,
+0,
+0x3567,
+0x4D52,
+0x635F,
+0,
+0,
+0,
+0,
+0,
+0x6360,
+0,
+0,
+0,
+0x312E,
+0,
+0,
+0,
+0,
+0x6363,
+0,
+0,
+0,
+0x3376,
+0x6362,
+0x6361,
+0,
+0x6365,
+0x635E,
+0,
+0x6366,
+0x4E29,
+0,
+0x6367,
+0,
+0x6368,
+0,
+0,
+0x5474,
+0x636A,
+0,
+0x6369,
+0,
+0,
+0,
+0x636B,
+0x636C,
+0,
+0x4E35,
+0x636D,
+0,
+0x706F,
+0x3E4F,
+0x636E,
+0x636F,
+0x3D57,
+0,
+0x4638,
+0x6370,
+0,
+0,
+0,
+0x4328,
+0,
+0,
+0x6371,
+0,
+0x433C,
+0x6372,
+0,
+0,
+0,
+0,
+0,
+0x3625,
+0,
+0x513F,
+0x435D,
+0x3C33,
+0,
+0,
+0,
+0,
+0x3448,
+0,
+0,
+0x6373,
+0,
+0x6422,
+0,
+0x6376,
+0,
+0x3568,
+0,
+0x6375,
+0x6424,
+0,
+0,
+0,
+0x6374,
+0,
+0x3E50,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6378,
+0x6379,
+0,
+0x452B,
+0,
+0,
+0x637A,
+0,
+0x335E,
+0,
+0,
+0,
+0,
+0x3F5A,
+0x4964,
+0,
+0x637C,
+0,
+0,
+0,
+0x4268,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6377,
+0,
+0x637B,
+0x637D,
+0,
+0,
+0x3A7B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6426,
+0x492E,
+0,
+0x4826,
+0x4579,
+0,
+0x365A,
+0x6425,
+0x6423,
+0,
+0x4835,
+0x637E,
+0x435E,
+0x457B,
+0,
+0x457A,
+0,
+0x3A76,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6438,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6428,
+0,
+0x642A,
+0,
+0,
+0,
+0,
+0x642D,
+0,
+0x642E,
+0,
+0x642B,
+0x642C,
+0,
+0,
+0x6429,
+0x6427,
+0,
+0,
+0,
+0,
+0x6421,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A4F,
+0x3255,
+0,
+0,
+0,
+0x6435,
+0,
+0x6432,
+0,
+0x6437,
+0,
+0,
+0x6436,
+0,
+0x4773,
+0x4C27,
+0,
+0x3B3B,
+0x6430,
+0x6439,
+0x6434,
+0,
+0x6433,
+0x642F,
+0,
+0x6431,
+0,
+0x3449,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x433D,
+0,
+0,
+0x407D,
+0,
+0,
+0,
+0x4822,
+0,
+0,
+0x643E,
+0,
+0,
+0,
+0x4824,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4061,
+0x643B,
+0,
+0,
+0x484F,
+0,
+0x643F,
+0x4A53,
+0,
+0x435B,
+0,
+0x643A,
+0x643C,
+0,
+0,
+0x643D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6440,
+0,
+0,
+0x3C44,
+0,
+0,
+0,
+0x4646,
+0x6445,
+0x6444,
+0,
+0,
+0x6441,
+0,
+0,
+0,
+0x4F36,
+0,
+0,
+0,
+0,
+0,
+0x644A,
+0,
+0,
+0x644E,
+0x644B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6447,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6448,
+0,
+0,
+0,
+0,
+0,
+0x644D,
+0,
+0,
+0,
+0x6442,
+0x5255,
+0x6449,
+0x6443,
+0,
+0,
+0x644C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6452,
+0,
+0x344A,
+0,
+0x644F,
+0,
+0,
+0,
+0x6450,
+0,
+0,
+0x6451,
+0x6454,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6453,
+0x4876,
+0,
+0,
+0,
+0,
+0x6455,
+0x4E7C,
+0x4A6D,
+0x645A,
+0,
+0,
+0x6457,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6456,
+0x4052,
+0,
+0x6459,
+0x645B,
+0,
+0,
+0,
+0x6458,
+0,
+0x645F,
+0,
+0x645C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x645D,
+0x6446,
+0,
+0,
+0,
+0x645E,
+0x6460,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6461,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A46,
+0,
+0x6462,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4C62,
+0,
+0,
+0x364E,
+0x3729,
+0x6463,
+0,
+0,
+0,
+0,
+0,
+0x4A34,
+0,
+0x3F68,
+0,
+0x4C30,
+0,
+0,
+0x6464,
+0,
+0x4E33,
+0,
+0,
+0x4774,
+0,
+0x4146,
+0x4734,
+0,
+0,
+0x3D4D,
+0,
+0,
+0,
+0x3040,
+0,
+0x6469,
+0x6467,
+0,
+0x6465,
+0x3421,
+0,
+0x3E51,
+0x646A,
+0,
+0,
+0x6468,
+0,
+0x6466,
+0x646E,
+0,
+0,
+0x646D,
+0x646C,
+0x646B,
+0,
+0,
+0,
+0,
+0,
+0x646F,
+0,
+0,
+0,
+0x6470,
+0x403A,
+0,
+0x6471,
+0,
+0x6473,
+0,
+0,
+0x6472,
+0,
+0,
+0,
+0,
+0x3852,
+0,
+0,
+0,
+0x4138,
+0,
+0,
+0,
+0x6475,
+0,
+0,
+0,
+0x457C,
+0,
+0x6474,
+0,
+0,
+0,
+0x6476,
+0,
+0x4A35,
+0x416C,
+0x3947,
+0,
+0x6477,
+0,
+0,
+0,
+0,
+0x4E48,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6479,
+0,
+0,
+0x647A,
+0,
+0x647B,
+0,
+0x647C,
+0,
+0x3B65,
+0,
+0x647D,
+0x374F,
+0,
+0,
+0x356A,
+0,
+0x352A,
+0,
+0x6521,
+0,
+0x4C73,
+0x3948,
+0x647E,
+0,
+0,
+0,
+0x6524,
+0x4C66,
+0,
+0x473C,
+0,
+0,
+0x4933,
+0,
+0,
+0,
+0x3D63,
+0x6523,
+0,
+0x3C53,
+0x3949,
+0x3B66,
+0x3569,
+0x4A36,
+0x6522,
+0,
+0,
+0,
+0x4147,
+0x4B42,
+0x3A77,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3B67,
+0x445D,
+0,
+0x6527,
+0x4E5F,
+0x3A59,
+0,
+0x6528,
+0x3F42,
+0,
+0x652A,
+0,
+0,
+0,
+0x3E52,
+0x3A30,
+0,
+0,
+0,
+0,
+0x6529,
+0,
+0,
+0x3D2A,
+0x383E,
+0x4148,
+0x6525,
+0x652B,
+0,
+0,
+0,
+0,
+0x6526,
+0x3750,
+0,
+0x652E,
+0x6532,
+0x376B,
+0,
+0,
+0,
+0,
+0,
+0x652D,
+0,
+0,
+0,
+0,
+0x6536,
+0,
+0,
+0x394A,
+0,
+0,
+0x4D6D,
+0x303C,
+0x6533,
+0,
+0,
+0x356B,
+0,
+0x6530,
+0,
+0,
+0,
+0,
+0,
+0x6531,
+0,
+0,
+0x457D,
+0x652F,
+0x652C,
+0,
+0x3328,
+0x4064,
+0,
+0,
+0x3828,
+0,
+0,
+0,
+0x6538,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6535,
+0,
+0,
+0,
+0,
+0,
+0x6537,
+0,
+0,
+0,
+0x6534,
+0,
+0,
+0,
+0,
+0,
+0x3751,
+0x4233,
+0x6539,
+0x416E,
+0,
+0,
+0x6546,
+0,
+0,
+0x6542,
+0x653C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6540,
+0x3C7A,
+0x305D,
+0x653B,
+0x6543,
+0x6547,
+0x394B,
+0x4C56,
+0,
+0x4456,
+0x653D,
+0,
+0,
+0x6545,
+0,
+0x653A,
+0x433E,
+0,
+0x653F,
+0x303D,
+0x4C4A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x653E,
+0,
+0,
+0x365B,
+0x486C,
+0,
+0,
+0,
+0x416D,
+0,
+0x4E50,
+0x3D6F,
+0,
+0,
+0x656E,
+0,
+0,
+0x6548,
+0,
+0x407E,
+0,
+0x6544,
+0x6549,
+0x654B,
+0,
+0x4479,
+0x654E,
+0,
+0,
+0x654A,
+0,
+0,
+0,
+0x4A54,
+0x344B,
+0,
+0,
+0x4C4B,
+0,
+0,
+0x305E,
+0,
+0,
+0x654D,
+0,
+0x4E7D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x654C,
+0,
+0,
+0,
+0,
+0,
+0x316F,
+0,
+0,
+0x466C,
+0x654F,
+0,
+0,
+0,
+0x6556,
+0x6550,
+0x6557,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6553,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x477B,
+0,
+0,
+0x3C4A,
+0x6555,
+0,
+0x6552,
+0x6558,
+0x6551,
+0,
+0,
+0x3D44,
+0,
+0,
+0,
+0,
+0x4B25,
+0,
+0,
+0x3D4C,
+0,
+0,
+0x6554,
+0x6560,
+0,
+0,
+0x655C,
+0,
+0x655F,
+0,
+0x655D,
+0x6561,
+0x655B,
+0,
+0x6541,
+0x4053,
+0,
+0,
+0x484B,
+0,
+0x655E,
+0,
+0,
+0x6559,
+0,
+0,
+0,
+0x4121,
+0x3752,
+0,
+0x3D2B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3F25,
+0x4136,
+0x6564,
+0,
+0,
+0x6566,
+0x6567,
+0,
+0,
+0x6563,
+0x6565,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x655A,
+0x6562,
+0,
+0x656A,
+0x6569,
+0,
+0,
+0x4B7A,
+0,
+0,
+0x372B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6568,
+0,
+0x656C,
+0x656B,
+0x656F,
+0,
+0x6571,
+0,
+0,
+0x3B3C,
+0x656D,
+0,
+0,
+0,
+0,
+0x6572,
+0x6573,
+0,
+0,
+0x6574,
+0,
+0x657A,
+0x453B,
+0x6576,
+0,
+0x6575,
+0x6577,
+0x6578,
+0,
+0x6579,
+0,
+0,
+0,
+0,
+0x657B,
+0x657C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x344C,
+0,
+0x657D,
+0,
+0x657E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6621,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6622,
+0x6623,
+0x6624,
+0,
+0x6625,
+0x6626,
+0,
+0,
+0x6628,
+0x6627,
+0,
+0,
+0x6629,
+0,
+0,
+0,
+0,
+0,
+0,
+0x662A,
+0x662B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x662E,
+0x662C,
+0x662D,
+0x3A61,
+0x3753,
+0,
+0,
+0x4356,
+0,
+0x4833,
+0,
+0x3D70,
+0,
+0,
+0x474D,
+0,
+0x486D,
+0x662F,
+0x586D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6630,
+0x6632,
+0,
+0x4D65,
+0x6631,
+0x6634,
+0x6633,
+0,
+0x4D53,
+0,
+0x6635,
+0,
+0x487E,
+0,
+0,
+0,
+0,
+0,
+0x6636,
+0,
+0,
+0,
+0,
+0,
+0x6639,
+0,
+0,
+0x6638,
+0x6637,
+0,
+0,
+0,
+0,
+0x663A,
+0x3732,
+0,
+0,
+0,
+0x4122,
+0x3541,
+0,
+0,
+0,
+0,
+0x663E,
+0x663B,
+0,
+0,
+0x663C,
+0,
+0,
+0,
+0x663F,
+0,
+0x6640,
+0x663D,
+0,
+0,
+0,
+0x3129,
+0,
+0,
+0,
+0x3227,
+0,
+0,
+0,
+0x6642,
+0x6643,
+0,
+0,
+0,
+0x6644,
+0,
+0x4D62,
+0,
+0,
+0,
+0,
+0,
+0x3D2C,
+0,
+0x6646,
+0x6645,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3F69,
+0x6647,
+0,
+0,
+0,
+0,
+0x6648,
+0,
+0,
+0x6649,
+0,
+0x3465,
+0,
+0,
+0,
+0,
+0x344D,
+0,
+0,
+0x664A,
+0,
+0,
+0,
+0,
+0,
+0x664B,
+0,
+0x4B5D,
+0x4D63,
+0,
+0,
+0,
+0x4D54,
+0x4F37,
+0,
+0x394D,
+0x664E,
+0x3C54,
+0x664D,
+0,
+0,
+0,
+0,
+0x664F,
+0x3C29,
+0,
+0,
+0,
+0x4251,
+0,
+0x6650,
+0,
+0,
+0x394C,
+0,
+0x4C57,
+0x6651,
+0x6652,
+0,
+0,
+0x6653,
+0,
+0,
+0,
+0,
+0x6654,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6655,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3C2A,
+0,
+0,
+0x4C6D,
+0,
+0,
+0,
+0,
+0x6657,
+0,
+0x433F,
+0,
+0x6656,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6659,
+0,
+0,
+0,
+0x6658,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x665A,
+0,
+0,
+0,
+0x403B,
+0,
+0x665B,
+0,
+0x665C,
+0,
+0,
+0,
+0x4A39,
+0x665D,
+0,
+0x416F,
+0x665E,
+0,
+0,
+0,
+0,
+0,
+0x665F,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4E7E,
+0x6662,
+0,
+0x6661,
+0x6660,
+0x4430,
+0,
+0x6663,
+0x3F26,
+0,
+0x6664,
+0,
+0,
+0,
+0x6665,
+0x4F38,
+0x6666,
+0,
+0,
+0,
+0,
+0x6667,
+0x6669,
+0x6668,
+0x4825,
+0,
+0x4679,
+0,
+0x4F3E,
+0x4829,
+0,
+0,
+0,
+0,
+0,
+0,
+0x666B,
+0,
+0,
+0x3E53,
+0,
+0x492A,
+0,
+0x666C,
+0x666A,
+0,
+0x344E,
+0,
+0,
+0,
+0x3854,
+0x3B68,
+0,
+0,
+0x486E,
+0,
+0,
+0,
+0x382A,
+0x4B43,
+0,
+0x666F,
+0x666D,
+0,
+0x394E,
+0,
+0x394F,
+0x3069,
+0,
+0x3A68,
+0,
+0,
+0,
+0,
+0,
+0x4759,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x305F,
+0x6674,
+0,
+0x4340,
+0,
+0,
+0,
+0,
+0,
+0x4758,
+0,
+0x425B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6676,
+0,
+0,
+0x6672,
+0x6675,
+0x6670,
+0,
+0x6673,
+0x4B26,
+0,
+0,
+0x3855,
+0,
+0,
+0x307D,
+0x6671,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6678,
+0,
+0x6679,
+0,
+0,
+0x4639,
+0,
+0,
+0,
+0x363B,
+0,
+0,
+0,
+0x6726,
+0x473D,
+0,
+0,
+0,
+0,
+0x3B69,
+0,
+0,
+0x363C,
+0x4048,
+0x4F46,
+0x4C2E,
+0x6677,
+0x4054,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3553,
+0x667A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x667C,
+0,
+0,
+0,
+0,
+0,
+0x667B,
+0,
+0,
+0,
+0,
+0,
+0x667D,
+0,
+0x4326,
+0,
+0x473E,
+0,
+0,
+0,
+0,
+0,
+0x4431,
+0,
+0,
+0,
+0,
+0x6723,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6722,
+0,
+0,
+0,
+0,
+0x667E,
+0,
+0,
+0x3F55,
+0,
+0x4965,
+0x6725,
+0,
+0x6724,
+0x3950,
+0x4F53,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6735,
+0,
+0,
+0,
+0,
+0,
+0x6729,
+0x672A,
+0,
+0,
+0,
+0,
+0x3C70,
+0,
+0,
+0x6728,
+0,
+0x3978,
+0x6727,
+0,
+0,
+0x672B,
+0,
+0,
+0,
+0x4432,
+0x4A22,
+0x4123,
+0,
+0,
+0,
+0,
+0x425C,
+0x672F,
+0,
+0x6730,
+0x672C,
+0,
+0,
+0,
+0,
+0x672D,
+0,
+0x672E,
+0,
+0,
+0,
+0,
+0x3951,
+0,
+0,
+0,
+0x6736,
+0,
+0x6732,
+0,
+0,
+0,
+0,
+0x4966,
+0,
+0x4B6C,
+0x4928,
+0,
+0,
+0x6731,
+0,
+0,
+0x6734,
+0x6733,
+0,
+0,
+0,
+0x4B44,
+0x6737,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6738,
+0,
+0,
+0x4137,
+0,
+0x6739,
+0,
+0,
+0x673B,
+0,
+0x673F,
+0,
+0,
+0x673C,
+0x673A,
+0x473F,
+0x673D,
+0,
+0x673E,
+0,
+0,
+0,
+0x3232,
+0,
+0x6745,
+0x6740,
+0,
+0,
+0,
+0x6741,
+0,
+0,
+0,
+0x6742,
+0,
+0x4221,
+0,
+0,
+0,
+0,
+0x6744,
+0x6743,
+0x6746,
+0,
+0,
+0,
+0,
+0x6747,
+0x6748,
+0,
+0,
+0x3F43,
+0,
+0x3269,
+0,
+0x6749,
+0x4E57,
+0,
+0x3C2B,
+0,
+0,
+0x3D2D,
+0,
+0,
+0,
+0,
+0,
+0x3B6A,
+0x4357,
+0,
+0,
+0,
+0,
+0,
+0x674A,
+0x674B,
+0x3131,
+0,
+0x674C,
+0,
+0,
+0x674D,
+0x674E,
+0,
+0,
+0x674F,
+0,
+0x6750,
+0x363D,
+0x5A2A,
+0x6751,
+0,
+0x4065,
+0x6752,
+0x3C4B,
+0,
+0x6753,
+0,
+0x5030,
+0,
+0,
+0,
+0x6754,
+0x4A5E,
+0x345C,
+0,
+0,
+0x4124,
+0x3D58,
+0,
+0x4971,
+0x3D2E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6755,
+0x3952,
+0x6756,
+0x484C,
+0,
+0x6764,
+0,
+0,
+0,
+0,
+0x6758,
+0,
+0x4249,
+0x4775,
+0x383F,
+0x6757,
+0x4125,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6759,
+0,
+0,
+0,
+0,
+0,
+0,
+0x447A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x675B,
+0x675A,
+0x675D,
+0,
+0,
+0x675C,
+0,
+0x675E,
+0,
+0,
+0x6760,
+0,
+0x675F,
+0,
+0x344F,
+0,
+0x6761,
+0,
+0x6762,
+0x6763,
+0,
+0,
+0x3A31,
+0x4E49,
+0,
+0x6765,
+0x3F27,
+0,
+0,
+0,
+0x3170,
+0x6766,
+0x6767,
+0,
+0,
+0,
+0,
+0,
+0x6768,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3072,
+0,
+0x6769,
+0,
+0,
+0,
+0,
+0x676A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4967,
+0,
+0,
+0,
+0x3C47,
+0,
+0x676C,
+0,
+0,
+0,
+0,
+0,
+0x3329,
+0x3032,
+0,
+0,
+0,
+0,
+0x676B,
+0x676E,
+0x474E,
+0,
+0x3F44,
+0,
+0x3256,
+0,
+0x4B27,
+0,
+0,
+0,
+0,
+0x375D,
+0x365C,
+0,
+0x676D,
+0,
+0x326A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3423,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3171,
+0x6772,
+0x4E6A,
+0x425D,
+0,
+0,
+0x4944,
+0,
+0x677E,
+0,
+0x3257,
+0x677C,
+0,
+0x677A,
+0x6771,
+0,
+0x676F,
+0,
+0x6770,
+0,
+0x3C63,
+0x366C,
+0x4377,
+0,
+0,
+0,
+0x4651,
+0,
+0,
+0,
+0,
+0,
+0x3151,
+0,
+0x6774,
+0x6773,
+0,
+0,
+0,
+0,
+0x6779,
+0x6775,
+0x6778,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4C50,
+0x6777,
+0x3258,
+0x337D,
+0x677B,
+0,
+0,
+0x677D,
+0,
+0,
+0,
+0,
+0x3754,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6823,
+0x682C,
+0x682D,
+0,
+0,
+0,
+0x302B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6834,
+0,
+0,
+0,
+0,
+0x3071,
+0,
+0,
+0x682B,
+0,
+0,
+0,
+0x682A,
+0,
+0x6825,
+0x6824,
+0,
+0x6822,
+0x6821,
+0x4363,
+0,
+0x427B,
+0x6827,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6826,
+0,
+0,
+0,
+0,
+0x6829,
+0,
+0,
+0,
+0x4170,
+0x3755,
+0,
+0,
+0,
+0,
+0x3141,
+0x6828,
+0,
+0x3953,
+0,
+0,
+0,
+0,
+0,
+0x4171,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x683A,
+0,
+0x683B,
+0,
+0x3259,
+0,
+0,
+0,
+0x322E,
+0x6838,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x682E,
+0,
+0x6836,
+0,
+0x683D,
+0x6837,
+0,
+0,
+0,
+0x6835,
+0,
+0,
+0,
+0,
+0x6776,
+0,
+0,
+0x6833,
+0,
+0,
+0,
+0x682F,
+0,
+0,
+0,
+0x3450,
+0x6831,
+0x683C,
+0,
+0x6832,
+0,
+0,
+0,
+0,
+0,
+0x683E,
+0,
+0x6830,
+0x477C,
+0,
+0,
+0,
+0,
+0,
+0x4D69,
+0,
+0,
+0,
+0x6839,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x684F,
+0,
+0,
+0,
+0x6847,
+0,
+0,
+0,
+0x3F7B,
+0,
+0,
+0,
+0,
+0x3546,
+0,
+0x365D,
+0,
+0x6842,
+0,
+0,
+0,
+0,
+0x325B,
+0,
+0,
+0x3E54,
+0,
+0x6845,
+0,
+0,
+0,
+0x3A5A,
+0,
+0,
+0x4551,
+0x684A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A6E,
+0,
+0x6841,
+0,
+0,
+0,
+0x325A,
+0x3856,
+0x4929,
+0x684B,
+0,
+0x683F,
+0,
+0,
+0x6848,
+0,
+0,
+0,
+0x6852,
+0,
+0x6843,
+0,
+0,
+0,
+0,
+0,
+0x6844,
+0x463A,
+0,
+0,
+0x6849,
+0,
+0,
+0,
+0x6846,
+0x4B28,
+0x684C,
+0x3060,
+0,
+0,
+0,
+0,
+0x6840,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x684E,
+0,
+0x684D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x476B,
+0x6854,
+0,
+0x685F,
+0,
+0,
+0,
+0,
+0x337E,
+0,
+0,
+0,
+0x6862,
+0,
+0,
+0x6850,
+0,
+0,
+0,
+0x6855,
+0x4D6E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x685E,
+0,
+0,
+0x4D55,
+0,
+0,
+0,
+0,
+0x4E2A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4378,
+0,
+0,
+0,
+0x336B,
+0,
+0,
+0,
+0,
+0,
+0x4972,
+0x6864,
+0x4621,
+0,
+0,
+0x3031,
+0,
+0,
+0x685D,
+0,
+0x6859,
+0x4172,
+0x6853,
+0x685B,
+0x6860,
+0,
+0x472C,
+0,
+0,
+0,
+0x302A,
+0,
+0x6858,
+0,
+0x6861,
+0x4978,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x685C,
+0,
+0x6857,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3E55,
+0,
+0,
+0,
+0,
+0x3D2F,
+0,
+0,
+0,
+0x3C2C,
+0,
+0,
+0,
+0,
+0x4C58,
+0,
+0,
+0x4947,
+0,
+0,
+0x6867,
+0,
+0x6870,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x685A,
+0,
+0,
+0,
+0,
+0x3377,
+0,
+0,
+0,
+0,
+0,
+0x3E78,
+0x6865,
+0,
+0x686A,
+0x4173,
+0,
+0,
+0x6866,
+0,
+0x686D,
+0,
+0,
+0x435F,
+0,
+0x686E,
+0,
+0,
+0x4D56,
+0x6863,
+0x3338,
+0,
+0x6869,
+0,
+0,
+0x686C,
+0x4C2C,
+0,
+0,
+0,
+0,
+0x686F,
+0,
+0,
+0x6868,
+0x686B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4B29,
+0,
+0x4F21,
+0,
+0,
+0,
+0,
+0,
+0x6873,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x687A,
+0,
+0,
+0x6872,
+0x3C43,
+0,
+0,
+0,
+0,
+0,
+0x6851,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A4E,
+0,
+0x4C22,
+0x6879,
+0x6878,
+0,
+0x6874,
+0x6875,
+0,
+0x3136,
+0,
+0,
+0,
+0,
+0x6877,
+0,
+0x6871,
+0,
+0,
+0,
+0,
+0x4455,
+0,
+0,
+0,
+0,
+0,
+0x6876,
+0x307E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4222,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A43,
+0,
+0,
+0x687B,
+0x6921,
+0,
+0x4859,
+0,
+0,
+0,
+0,
+0x687E,
+0x3E56,
+0x3C49,
+0x6923,
+0,
+0,
+0x363E,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6924,
+0,
+0x4979,
+0x687D,
+0,
+0x6856,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x687C,
+0,
+0,
+0,
+0,
+0x4F4F,
+0x4622,
+0x4973,
+0,
+0,
+0x692B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6931,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6932,
+0,
+0x6925,
+0,
+0,
+0,
+0x4776,
+0,
+0,
+0x692F,
+0x6927,
+0,
+0x6929,
+0,
+0,
+0,
+0,
+0,
+0x6933,
+0x6928,
+0,
+0,
+0x692C,
+0,
+0,
+0x3172,
+0,
+0x4665,
+0,
+0x692D,
+0x6930,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6926,
+0,
+0x4126,
+0,
+0x692A,
+0x3B27,
+0x3F45,
+0x3730,
+0x4C74,
+0,
+0x4C79,
+0x3D72,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6937,
+0x6935,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4F4E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6934,
+0,
+0,
+0,
+0x4D75,
+0,
+0x6936,
+0x6938,
+0,
+0,
+0,
+0,
+0x6939,
+0,
+0,
+0,
+0,
+0,
+0,
+0x693C,
+0x693A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4623,
+0x693B,
+0,
+0,
+0,
+0x484D,
+0x692E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3D73,
+0,
+0x693D,
+0x6942,
+0x4174,
+0,
+0,
+0x6941,
+0,
+0,
+0,
+0x6922,
+0,
+0,
+0,
+0x6943,
+0x4149,
+0,
+0,
+0x693E,
+0x6940,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x693F,
+0,
+0,
+0x5D31,
+0x5D22,
+0,
+0,
+0x6945,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6944,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D76,
+0,
+0x623C,
+0x6946,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6947,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6948,
+0x3857,
+0,
+0x3554,
+0,
+0,
+0,
+0x694A,
+0x515D,
+0,
+0,
+0,
+0,
+0x3575,
+0,
+0x4E3A,
+0,
+0x3673,
+0x694B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x694C,
+0,
+0,
+0,
+0x436E,
+0,
+0,
+0,
+0,
+0,
+0x694D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x467A,
+0,
+0x303A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3263,
+0x6952,
+0x6953,
+0,
+0,
+0,
+0,
+0,
+0,
+0x694E,
+0,
+0x3B3D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x694F,
+0x4742,
+0,
+0,
+0,
+0,
+0x6950,
+0x6951,
+0x695B,
+0,
+0,
+0,
+0x6955,
+0x6958,
+0,
+0,
+0,
+0,
+0,
+0x6954,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6956,
+0,
+0x6957,
+0x3C58,
+0,
+0x6959,
+0,
+0x4341,
+0,
+0x3756,
+0x3342,
+0,
+0,
+0,
+0,
+0,
+0x695C,
+0,
+0,
+0,
+0,
+0x333F,
+0,
+0x6961,
+0,
+0,
+0x695D,
+0x6960,
+0,
+0,
+0,
+0,
+0x483A,
+0,
+0,
+0,
+0,
+0x695E,
+0,
+0,
+0x695F,
+0x4948,
+0x485A,
+0x6962,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x427D,
+0x696C,
+0,
+0x6968,
+0,
+0,
+0x326B,
+0,
+0x6966,
+0,
+0x4B2A,
+0x6967,
+0,
+0,
+0x6964,
+0,
+0x6965,
+0x696A,
+0x696D,
+0,
+0,
+0x696B,
+0,
+0,
+0,
+0x6969,
+0x6963,
+0,
+0,
+0,
+0,
+0,
+0x4358,
+0,
+0x6974,
+0,
+0x4C2A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6972,
+0,
+0,
+0,
+0x6973,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x696E,
+0,
+0,
+0x6970,
+0,
+0,
+0,
+0x6971,
+0,
+0,
+0,
+0x696F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4066,
+0,
+0x4F39,
+0x6978,
+0,
+0x6979,
+0,
+0,
+0,
+0,
+0x6A21,
+0,
+0x3F2A,
+0,
+0x697B,
+0,
+0x697E,
+0,
+0,
+0,
+0,
+0,
+0x6976,
+0x6975,
+0,
+0,
+0x6A22,
+0,
+0,
+0x325C,
+0,
+0x697C,
+0,
+0x6A23,
+0,
+0,
+0,
+0x697D,
+0,
+0,
+0,
+0,
+0,
+0x697A,
+0,
+0x4433,
+0,
+0x6977,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4768,
+0,
+0,
+0x6A27,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D3B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A26,
+0,
+0,
+0x6A25,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A2E,
+0,
+0,
+0,
+0x6A28,
+0,
+0,
+0,
+0x6A30,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D66,
+0x6A33,
+0,
+0x6A2A,
+0,
+0,
+0x6A2B,
+0,
+0,
+0,
+0x6A2F,
+0,
+0x6A32,
+0x6A31,
+0,
+0,
+0,
+0x6A29,
+0,
+0,
+0,
+0,
+0x6A2C,
+0,
+0x6A3D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A36,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A34,
+0,
+0,
+0x6A35,
+0,
+0,
+0,
+0x6A3A,
+0x6A3B,
+0,
+0x332A,
+0,
+0x3542,
+0,
+0,
+0x6A39,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A24,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A38,
+0x6A3C,
+0x6A37,
+0,
+0x6A3E,
+0,
+0,
+0,
+0x6A40,
+0x6A3F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A42,
+0x6A41,
+0x695A,
+0,
+0,
+0,
+0x6A46,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A43,
+0,
+0,
+0,
+0,
+0x6A44,
+0,
+0,
+0x6A45,
+0,
+0x6A47,
+0,
+0,
+0,
+0,
+0x376C,
+0,
+0x6A49,
+0,
+0x6A48,
+0,
+0x3D30,
+0,
+0,
+0,
+0,
+0,
+0x3954,
+0x5E27,
+0,
+0,
+0,
+0,
+0x6A4A,
+0x3D51,
+0,
+0,
+0,
+0x3339,
+0,
+0x6A4B,
+0,
+0x3152,
+0,
+0x3E57,
+0x6A4C,
+0,
+0,
+0x3955,
+0x6A4D,
+0x3061,
+0,
+0,
+0,
+0,
+0x493D,
+0,
+0,
+0x6A4E,
+0,
+0,
+0,
+0,
+0x3F6A,
+0,
+0x6A55,
+0,
+0,
+0x6A52,
+0,
+0x436F,
+0,
+0,
+0,
+0,
+0,
+0x6A53,
+0x6A50,
+0x365E,
+0,
+0x6A4F,
+0x6A56,
+0,
+0,
+0,
+0,
+0,
+0x3736,
+0,
+0,
+0x425E,
+0,
+0x6A5C,
+0,
+0,
+0,
+0,
+0x6A58,
+0,
+0,
+0,
+0x4235,
+0x6A57,
+0,
+0x6A5A,
+0,
+0,
+0,
+0,
+0x6A51,
+0,
+0,
+0,
+0x6A5B,
+0,
+0x6A5D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x486F,
+0,
+0,
+0x6A59,
+0,
+0x6A5E,
+0x6A60,
+0,
+0,
+0x3853,
+0x6A54,
+0,
+0x3041,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A5F,
+0,
+0x3A5B,
+0x4E76,
+0x6A61,
+0x6A62,
+0x4175,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4E22,
+0,
+0,
+0,
+0,
+0x6A63,
+0x4D35,
+0,
+0,
+0x6A64,
+0x6A65,
+0,
+0,
+0x4A64,
+0x6A66,
+0,
+0x3A40,
+0,
+0x4E23,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A6B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A6C,
+0x3E58,
+0x6A6A,
+0,
+0,
+0,
+0x4D67,
+0x6A67,
+0,
+0,
+0x6A69,
+0x403D,
+0x3F7E,
+0,
+0,
+0,
+0x6A68,
+0,
+0x6A6D,
+0,
+0,
+0x4A23,
+0,
+0,
+0x6A6F,
+0,
+0x6A6E,
+0,
+0,
+0,
+0x336C,
+0,
+0x4B2B,
+0x6A70,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A7C,
+0x6A72,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A73,
+0,
+0,
+0,
+0,
+0x6A74,
+0x6A75,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A79,
+0,
+0x6A7A,
+0,
+0,
+0x6A78,
+0,
+0,
+0,
+0,
+0,
+0x6A76,
+0,
+0x6A71,
+0x6A77,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A7B,
+0x7037,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3228,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6A7E,
+0x365F,
+0x6A7D,
+0,
+0,
+0,
+0x6B22,
+0,
+0x6B21,
+0,
+0,
+0,
+0x6B24,
+0,
+0,
+0x6B23,
+0,
+0x6B25,
+0,
+0,
+0x3D31,
+0,
+0x6B26,
+0,
+0,
+0x6B27,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6B28,
+0x403E,
+0,
+0x4D57,
+0,
+0x6B29,
+0,
+0,
+0x4A24,
+0x4746,
+0x6B2A,
+0,
+0x6B2B,
+0x382B,
+0,
+0,
+0,
+0x352C,
+0,
+0,
+0,
+0x6B2C,
+0,
+0,
+0x3B6B,
+0x4741,
+0x6B2D,
+0,
+0x3350,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6B2E,
+0,
+0,
+0,
+0,
+0x6B30,
+0x4D77,
+0,
+0x6B2F,
+0x3F46,
+0,
+0x6B31,
+0,
+0,
+0x6B32,
+0,
+0,
+0x6B33,
+0x3451,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6B34,
+0,
+0,
+0x6B35,
+0,
+0x6B36,
+0x6B37,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3351,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6B38,
+0,
+0x6B39,
+0x6B3A,
+0,
+0,
+0,
+0,
+0,
+0x3272,
+0,
+0,
+0x3F28,
+0x6B3B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6B3C,
+0,
+0,
+0,
+0x6B3D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3840,
+0,
+0x447B,
+0x6B3E,
+0,
+0,
+0,
+0,
+0x3757,
+0,
+0x3F56,
+0,
+0x6B41,
+0,
+0x4624,
+0,
+0x6B40,
+0,
+0,
+0x3731,
+0,
+0,
+0x6B3F,
+0x4277,
+0x352D,
+0,
+0,
+0x6B42,
+0,
+0x6B43,
+0,
+0x3E59,
+0,
+0,
+0,
+0x376D,
+0,
+0x6B44,
+0,
+0,
+0,
+0,
+0x4B2C,
+0,
+0,
+0x405F,
+0,
+0,
+0,
+0x3576,
+0,
+0x4C75,
+0x414A,
+0,
+0x6B45,
+0,
+0,
+0,
+0x3F47,
+0x4370,
+0x3E5A,
+0,
+0,
+0,
+0,
+0x6B46,
+0,
+0,
+0,
+0,
+0x6B49,
+0,
+0x6B4A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3A3E,
+0x4242,
+0x6B48,
+0,
+0x3E5B,
+0x493E,
+0,
+0,
+0,
+0,
+0,
+0x6B47,
+0,
+0,
+0x3B6C,
+0,
+0x3153,
+0,
+0x6B4E,
+0x3758,
+0,
+0,
+0x3B6E,
+0,
+0,
+0x3B6D,
+0,
+0x4F4D,
+0x6B4D,
+0x6B4C,
+0x4127,
+0,
+0x354D,
+0x4F43,
+0x333A,
+0x3E5C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6B4B,
+0,
+0,
+0,
+0,
+0,
+0x6B50,
+0,
+0x6B51,
+0x6B4F,
+0,
+0x3858,
+0,
+0x4D40,
+0,
+0,
+0x3B6F,
+0x4727,
+0,
+0,
+0,
+0x6B54,
+0,
+0x4040,
+0,
+0x4342,
+0,
+0,
+0x4D36,
+0,
+0x6B57,
+0,
+0,
+0,
+0x386C,
+0,
+0x403F,
+0x6B53,
+0,
+0x6B58,
+0x386D,
+0x6B55,
+0x6B56,
+0,
+0x6B52,
+0,
+0,
+0,
+0x4062,
+0x4649,
+0,
+0,
+0x432F,
+0,
+0x325D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4870,
+0,
+0,
+0x3543,
+0,
+0,
+0x4434,
+0,
+0,
+0x6B5B,
+0,
+0x6B59,
+0,
+0,
+0x434C,
+0,
+0,
+0,
+0x4041,
+0x3452,
+0x6B5A,
+0,
+0x3F5B,
+0,
+0,
+0x4E4A,
+0,
+0,
+0,
+0x4F40,
+0,
+0,
+0,
+0x6B5C,
+0x6B67,
+0x4435,
+0,
+0x6B66,
+0,
+0x6B63,
+0x6B6B,
+0x6B64,
+0,
+0x6B60,
+0,
+0x447C,
+0x6B5F,
+0,
+0,
+0,
+0x6B5D,
+0,
+0x4D21,
+0x3B70,
+0,
+0,
+0x6B61,
+0,
+0x6B5E,
+0,
+0,
+0,
+0x6B65,
+0x3D74,
+0,
+0x3841,
+0,
+0,
+0,
+0x427A,
+0,
+0x4B45,
+0x315A,
+0x3062,
+0,
+0x4625,
+0,
+0,
+0x6B69,
+0,
+0,
+0,
+0,
+0x6B68,
+0,
+0x4666,
+0,
+0x6B6D,
+0,
+0,
+0,
+0x6B62,
+0,
+0x6B6C,
+0x6B6E,
+0,
+0x382C,
+0x6B6A,
+0x3956,
+0,
+0x3C55,
+0,
+0,
+0x6B6F,
+0x4D58,
+0,
+0,
+0,
+0,
+0x6B72,
+0,
+0x6B75,
+0,
+0,
+0x6B73,
+0x4935,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6B70,
+0,
+0,
+0,
+0,
+0,
+0x3660,
+0,
+0,
+0,
+0,
+0x6B74,
+0,
+0,
+0x6B76,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6B7A,
+0,
+0,
+0x6B77,
+0,
+0x6B79,
+0x6B78,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6B7B,
+0,
+0x3C31,
+0,
+0x6B7D,
+0x6B7C,
+0x4968,
+0,
+0,
+0x6C21,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3759,
+0,
+0,
+0,
+0,
+0x6B7E,
+0x6C22,
+0,
+0,
+0x6C23,
+0x3544,
+0x6641,
+0x3E79,
+0,
+0x6C24,
+0,
+0,
+0x386E,
+0,
+0,
+0,
+0,
+0,
+0x6C25,
+0,
+0,
+0x6C26,
+0,
+0,
+0x3B3E,
+0,
+0,
+0,
+0,
+0,
+0,
+0x5A4E,
+0,
+0x6C27,
+0,
+0x6C28,
+0,
+0x3D32,
+0,
+0x6C29,
+0x6C2A,
+0,
+0,
+0x6C2B,
+0,
+0,
+0x6C2C,
+0x6C2D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x432B,
+0,
+0,
+0x6C2E,
+0,
+0,
+0,
+0,
+0x6C30,
+0,
+0x6C2F,
+0,
+0,
+0,
+0,
+0x4626,
+0,
+0x6C31,
+0,
+0x4B2D,
+0,
+0x6C32,
+0,
+0x6C33,
+0,
+0x6C34,
+0,
+0,
+0,
+0,
+0x6C35,
+0,
+0,
+0,
+0,
+0x465A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3E5D,
+0x6C36,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x396B,
+0x502E,
+0x6C37,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C38,
+0x493F,
+0x6C39,
+0,
+0x6C41,
+0,
+0,
+0,
+0,
+0,
+0x6C3A,
+0,
+0,
+0x6C3C,
+0,
+0,
+0,
+0x6C3B,
+0x6C3D,
+0,
+0x4B46,
+0x6C3E,
+0x6C3F,
+0,
+0,
+0,
+0,
+0,
+0x6C40,
+0,
+0,
+0,
+0x6C42,
+0,
+0,
+0,
+0,
+0x332D,
+0x4467,
+0,
+0x4969,
+0x3A62,
+0x3957,
+0,
+0,
+0,
+0,
+0x494F,
+0x325F,
+0x484E,
+0x6C45,
+0x3453,
+0x4055,
+0x6C44,
+0x6C49,
+0x4379,
+0x4C63,
+0,
+0x6C47,
+0x6C48,
+0x352E,
+0,
+0x6C4A,
+0x4763,
+0x425F,
+0,
+0,
+0x4871,
+0x453D,
+0x6C46,
+0,
+0x4B47,
+0x326C,
+0x6C4C,
+0x4F28,
+0x4442,
+0x4F45,
+0,
+0,
+0x3B71,
+0x6C4B,
+0,
+0x4231,
+0,
+0,
+0x6C5C,
+0x4128,
+0,
+0,
+0x4678,
+0,
+0x4950,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C4F,
+0x3B3F,
+0x3B72,
+0,
+0x3E5E,
+0,
+0x4765,
+0,
+0x382D,
+0x6C4E,
+0x6C4D,
+0,
+0x496A,
+0,
+0,
+0,
+0x3C41,
+0,
+0,
+0x4552,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C51,
+0x6C52,
+0x3958,
+0x6C50,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C53,
+0x6C54,
+0,
+0x6C56,
+0x4223,
+0,
+0x6C55,
+0x3466,
+0,
+0x6C58,
+0,
+0x6C57,
+0x6C59,
+0,
+0,
+0x6C5B,
+0x6C5D,
+0,
+0x6C5E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4056,
+0,
+0x3C4F,
+0x6C5F,
+0,
+0,
+0,
+0x3352,
+0,
+0x6C60,
+0,
+0,
+0x4176,
+0x6C61,
+0,
+0x6C62,
+0x496B,
+0,
+0,
+0x352F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C63,
+0,
+0,
+0,
+0x4436,
+0,
+0,
+0,
+0,
+0x315B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C64,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3C71,
+0,
+0,
+0,
+0,
+0x3F76,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x422D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C67,
+0,
+0,
+0,
+0x6C66,
+0,
+0,
+0,
+0x6C65,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C6D,
+0x6C6B,
+0,
+0,
+0x6C68,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C6A,
+0,
+0,
+0,
+0x6C69,
+0x6C6C,
+0,
+0x3577,
+0,
+0x6C70,
+0,
+0x4057,
+0,
+0x6C71,
+0,
+0,
+0,
+0,
+0x3859,
+0,
+0x6C6E,
+0x6C6F,
+0,
+0,
+0,
+0x4F29,
+0,
+0,
+0,
+0x4437,
+0,
+0x4129,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C72,
+0,
+0,
+0x6C75,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C73,
+0x6C74,
+0x4D59,
+0,
+0,
+0,
+0,
+0x4627,
+0x6C78,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C76,
+0x6C77,
+0x6C79,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6D29,
+0,
+0,
+0,
+0,
+0,
+0x6C7C,
+0,
+0,
+0,
+0x6C7D,
+0x6C7B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6C7A,
+0,
+0x447D,
+0,
+0,
+0x6D21,
+0x6D25,
+0x6D22,
+0x6C7E,
+0,
+0x6D23,
+0,
+0,
+0,
+0x6D24,
+0,
+0,
+0,
+0,
+0x6D2B,
+0,
+0,
+0,
+0x6D26,
+0,
+0,
+0,
+0,
+0,
+0x4058,
+0x6D28,
+0,
+0,
+0x6D2A,
+0x6D27,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6D2D,
+0,
+0x3D33,
+0,
+0x6D2C,
+0,
+0,
+0,
+0,
+0,
+0x6D2E,
+0,
+0,
+0,
+0,
+0x6D2F,
+0,
+0,
+0x6D32,
+0x6D31,
+0,
+0x6D30,
+0,
+0,
+0x6D34,
+0x6D33,
+0,
+0x4C76,
+0,
+0,
+0,
+0x6D36,
+0,
+0x6D35,
+0x6D37,
+0,
+0,
+0,
+0,
+0x6D38,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6D3A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6D39,
+0x3F48,
+0x6D3B,
+0,
+0,
+0x366D,
+0x6D3C,
+0x6D3E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6D3F,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6D40,
+0x6D3D,
+0,
+0x6D41,
+0,
+0x3C56,
+0x6D42,
+0x3530,
+0x3733,
+0,
+0,
+0,
+0,
+0x382E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6D43,
+0,
+0,
+0,
+0x4670,
+0,
+0,
+0x453E,
+0x6D44,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6D47,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3C34,
+0,
+0,
+0x6D46,
+0x6D45,
+0x375A,
+0x6D48,
+0,
+0,
+0,
+0,
+0x3353,
+0,
+0x6D4A,
+0,
+0,
+0,
+0x3A5C,
+0x6D49,
+0,
+0x6D52,
+0,
+0,
+0,
+0,
+0,
+0x6D4C,
+0x6D4E,
+0x4A65,
+0x6D4B,
+0,
+0,
+0,
+0x6D4D,
+0,
+0x6D51,
+0x6D4F,
+0x3531,
+0,
+0x6D50,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6D53,
+0,
+0,
+0x475A,
+0x4E58,
+0,
+0,
+0,
+0,
+0x3D34,
+0,
+0,
+0,
+0x6D54,
+0,
+0,
+0,
+0,
+0x4D22,
+0x6D56,
+0,
+0x6D55,
+0,
+0,
+0x6D59,
+0x4D41,
+0,
+0,
+0x6D58,
+0,
+0x336D,
+0x6D57,
+0x6D5C,
+0,
+0,
+0x6D5B,
+0,
+0,
+0x6D5A,
+0x4532,
+0x6D5D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6D5E,
+0,
+0,
+0,
+0,
+0x6D5F,
+0,
+0,
+0x396C,
+0,
+0x3725,
+0x6D60,
+0x6D61,
+0x6D62,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3F49,
+0x6D63,
+0,
+0x3C2D,
+0x6D64,
+0,
+0,
+0,
+0x6D65,
+0,
+0,
+0,
+0x5221,
+0x517E,
+0,
+0,
+0,
+0,
+0x6D66,
+0x6570,
+0x6D67,
+0x4324,
+0x3F2B,
+0x4740,
+0,
+0,
+0,
+0,
+0x6D68,
+0,
+0,
+0x4A55,
+0x4454,
+0x397E,
+0,
+0,
+0x4329,
+0,
+0,
+0x312A,
+0,
+0x4B78,
+0x3F57,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x375E,
+0,
+0,
+0x3661,
+0,
+0,
+0x4A56,
+0,
+0,
+0,
+0,
+0,
+0x6D69,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6D6B,
+0,
+0,
+0x6D6A,
+0x3260,
+0,
+0,
+0x4676,
+0x6D6C,
+0x4777,
+0,
+0x4533,
+0,
+0x6D6D,
+0x3D52,
+0,
+0,
+0,
+0x6D6F,
+0,
+0,
+0x4C42,
+0x6D7E,
+0x6D71,
+0x6D72,
+0,
+0,
+0x4449,
+0,
+0,
+0x4260,
+0x4177,
+0,
+0x4628,
+0,
+0x6D70,
+0x3555,
+0,
+0,
+0,
+0,
+0x6D79,
+0,
+0x6D76,
+0x6E25,
+0x4629,
+0x4360,
+0x6D73,
+0,
+0x447E,
+0x4553,
+0x6D74,
+0x6D78,
+0x3F60,
+0,
+0x4767,
+0x444C,
+0,
+0,
+0x4042,
+0x6D77,
+0x422E,
+0x4224,
+0x6D75,
+0x3029,
+0x4F22,
+0,
+0,
+0,
+0x6D7A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4261,
+0,
+0,
+0x3D35,
+0x3F4A,
+0,
+0,
+0x6D7C,
+0x6D7B,
+0,
+0x306F,
+0x6D7D,
+0,
+0,
+0x492F,
+0,
+0x6E27,
+0,
+0,
+0x465B,
+0x3F6B,
+0,
+0,
+0x4359,
+0,
+0x3678,
+0,
+0x6E26,
+0x4D37,
+0x313F,
+0,
+0x4A57,
+0x3261,
+0x6E21,
+0x6E22,
+0x6E23,
+0x6E24,
+0x463B,
+0x4323,
+0x3063,
+0x6E28,
+0,
+0x6E29,
+0x7423,
+0,
+0,
+0x423D,
+0,
+0x6E2A,
+0,
+0x3173,
+0x414C,
+0,
+0x382F,
+0,
+0x4D5A,
+0,
+0,
+0x6E2B,
+0x452C,
+0,
+0,
+0,
+0x4178,
+0x3C57,
+0x6E2C,
+0,
+0,
+0x6E2F,
+0,
+0,
+0x3D65,
+0x6E2D,
+0x412B,
+0x412A,
+0,
+0x3064,
+0,
+0x4E4B,
+0x6E31,
+0,
+0x4872,
+0x6E33,
+0x6E32,
+0x6E30,
+0x6364,
+0x3454,
+0,
+0,
+0x6D6E,
+0,
+0x6E35,
+0x6E34,
+0,
+0,
+0,
+0,
+0x6E36,
+0,
+0x4D38,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4661,
+0,
+0,
+0x4B2E,
+0,
+0x6E37,
+0,
+0x3C59,
+0,
+0,
+0,
+0,
+0x6E38,
+0,
+0x6E39,
+0,
+0,
+0,
+0x6E3A,
+0,
+0,
+0x4521,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x306A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3959,
+0,
+0,
+0,
+0x4F3A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6E3E,
+0,
+0,
+0,
+0,
+0,
+0x3734,
+0x6E3B,
+0,
+0x6E3C,
+0,
+0,
+0,
+0x4974,
+0,
+0,
+0,
+0,
+0x3354,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4D39,
+0,
+0x363F,
+0,
+0,
+0,
+0,
+0,
+0x4554,
+0,
+0,
+0,
+0,
+0x6E3F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6E40,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6E41,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4522,
+0,
+0,
+0x6E43,
+0,
+0x6E42,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4653,
+0x6E44,
+0x3D36,
+0x3C60,
+0x475B,
+0x4371,
+0,
+0,
+0,
+0x3C72,
+0,
+0x3F6C,
+0,
+0x6E45,
+0,
+0x6E46,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3F5D,
+0x6E47,
+0,
+0x6E48,
+0,
+0,
+0,
+0x6E49,
+0x4D6F,
+0,
+0x3D37,
+0,
+0,
+0,
+0,
+0,
+0x6E4B,
+0x6E4A,
+0,
+0x395A,
+0,
+0x3973,
+0x3B40,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6E4E,
+0,
+0,
+0,
+0,
+0x3D66,
+0,
+0x6E4D,
+0,
+0x6E4C,
+0,
+0x4269,
+0,
+0,
+0x386F,
+0,
+0x4043,
+0,
+0,
+0,
+0,
+0x4830,
+0,
+0,
+0,
+0,
+0x3D39,
+0,
+0,
+0,
+0,
+0,
+0x6E4F,
+0,
+0x3E5F,
+0,
+0,
+0,
+0,
+0,
+0x6E52,
+0x6E50,
+0,
+0,
+0,
+0x6E51,
+0,
+0,
+0,
+0,
+0x6E54,
+0x6E53,
+0,
+0,
+0x3E7A,
+0,
+0x6E55,
+0,
+0,
+0,
+0,
+0,
+0x6E56,
+0x6E57,
+0,
+0,
+0,
+0,
+0x4850,
+0x3A53,
+0x3C61,
+0x6E58,
+0,
+0x6E59,
+0x4E24,
+0x3D45,
+0x4C6E,
+0x4E4C,
+0x6E5A,
+0x3662,
+0,
+0,
+0,
+0,
+0x6E5B,
+0,
+0x4523,
+0,
+0,
+0x6E5E,
+0x3378,
+0x3F4B,
+0,
+0x6E5C,
+0,
+0x6E5D,
+0,
+0x4460,
+0,
+0,
+0x4B55,
+0x367C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6E60,
+0x6E61,
+0,
+0,
+0,
+0,
+0,
+0x6E5F,
+0,
+0,
+0x6E63,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x465F,
+0x3343,
+0,
+0,
+0x6E67,
+0,
+0,
+0x6E64,
+0x6E66,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6E62,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F4F,
+0,
+0,
+0x6E65,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4E6B,
+0,
+0,
+0x385A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6E6F,
+0,
+0,
+0,
+0,
+0x4534,
+0x6E6A,
+0,
+0,
+0x6E6D,
+0x6E6B,
+0,
+0x6E70,
+0,
+0,
+0,
+0,
+0x6E71,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6E69,
+0,
+0,
+0x6E76,
+0x3174,
+0,
+0,
+0x6E68,
+0,
+0,
+0,
+0x482D,
+0,
+0x6E6C,
+0,
+0x3E60,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x395B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4B48,
+0,
+0x3664,
+0,
+0,
+0x3D46,
+0,
+0x463C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x412D,
+0,
+0x6E74,
+0,
+0x6E6E,
+0x6E73,
+0,
+0x4C43,
+0,
+0x4438,
+0x6E75,
+0x6E72,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x412C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6E79,
+0,
+0x6E78,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6E77,
+0,
+0,
+0x4B2F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3D7B,
+0,
+0,
+0,
+0,
+0x6E7A,
+0x4A5F,
+0,
+0,
+0x3154,
+0,
+0,
+0,
+0,
+0x4946,
+0x4372,
+0,
+0,
+0,
+0,
+0x3578,
+0,
+0x6E7C,
+0,
+0x395D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3B2C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6E7B,
+0x3F6D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3F6E,
+0x6F21,
+0x6F23,
+0,
+0,
+0,
+0,
+0,
+0x3E7B,
+0,
+0x6F22,
+0x6F24,
+0,
+0,
+0x3653,
+0,
+0x4945,
+0,
+0,
+0x3C62,
+0x4F23,
+0,
+0x6E7E,
+0x3A78,
+0,
+0,
+0x4F3F,
+0,
+0,
+0x6F26,
+0,
+0,
+0,
+0,
+0x6F25,
+0x6F27,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6E7D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4669,
+0,
+0x4555,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4457,
+0,
+0x6F2C,
+0,
+0,
+0,
+0,
+0x4343,
+0x6F28,
+0,
+0,
+0,
+0x6F29,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x372D,
+0,
+0x6F2B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3830,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F2A,
+0,
+0x3E61,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3379,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F30,
+0,
+0x3A3F,
+0x4179,
+0,
+0,
+0x444A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x333B,
+0,
+0,
+0,
+0,
+0x6F2E,
+0x6F2F,
+0x4443,
+0,
+0x6F2D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F31,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F37,
+0,
+0,
+0,
+0,
+0x6F3A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F39,
+0x452D,
+0,
+0,
+0,
+0,
+0x6F32,
+0x6F33,
+0x6F36,
+0,
+0,
+0,
+0,
+0x6F38,
+0,
+0,
+0,
+0x3640,
+0,
+0,
+0x6F3B,
+0x6F35,
+0,
+0,
+0x6F34,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F3F,
+0,
+0,
+0,
+0x6F40,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F41,
+0,
+0,
+0x6F3E,
+0x6F3D,
+0,
+0,
+0,
+0x3E62,
+0x462A,
+0x6F3C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F45,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F43,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F44,
+0x6F42,
+0,
+0x4278,
+0,
+0x6F46,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F47,
+0,
+0,
+0x6F49,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3455,
+0x6F48,
+0x4C7A,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F54,
+0x6F4A,
+0,
+0,
+0x6F4D,
+0,
+0x6F4B,
+0,
+0x6F4C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F4E,
+0,
+0,
+0,
+0,
+0,
+0x6F50,
+0,
+0,
+0,
+0,
+0x6F51,
+0,
+0x6F52,
+0,
+0,
+0,
+0,
+0x6F55,
+0x6F53,
+0x6F56,
+0x6F58,
+0,
+0x6F57,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4439,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4C67,
+0,
+0x6F59,
+0x412E,
+0,
+0,
+0,
+0x6F5A,
+0,
+0x4A44,
+0x6F5B,
+0x332B,
+0,
+0,
+0,
+0x313C,
+0,
+0x3457,
+0,
+0x3456,
+0x6F5C,
+0,
+0x6F5D,
+0,
+0x6F5E,
+0x6F5F,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F60,
+0,
+0x3458,
+0x3355,
+0x395E,
+0x4836,
+0,
+0x6F62,
+0x6F61,
+0,
+0,
+0,
+0,
+0x6F63,
+0,
+0,
+0,
+0,
+0x315C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F66,
+0,
+0x6F65,
+0x6F64,
+0,
+0x6F67,
+0,
+0,
+0,
+0,
+0x6F6A,
+0,
+0,
+0,
+0x3047,
+0,
+0,
+0x6F68,
+0,
+0x6F6C,
+0x6F6B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F6E,
+0x6F6D,
+0x6F6F,
+0,
+0x462E,
+0,
+0,
+0,
+0x6F70,
+0,
+0,
+0,
+0,
+0x6F71,
+0x6F73,
+0,
+0,
+0x6F72,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x496C,
+0,
+0,
+0,
+0,
+0x6F74,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F75,
+0,
+0x3A65,
+0,
+0,
+0,
+0x6F76,
+0x6F77,
+0,
+0,
+0x4B49,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x414B,
+0,
+0,
+0,
+0x3024,
+0x424B,
+0,
+0x6F78,
+0,
+0x496D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6F7B,
+0x6F79,
+0x395F,
+0,
+0x6F7A,
+0x3842,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4A45,
+0x6F7D,
+0x7021,
+0x6F7E,
+0x7022,
+0,
+0,
+0x3121,
+0x3F58,
+0x3D7C,
+0x3459,
+0x7023,
+0,
+0,
+0,
+0x4766,
+0,
+0x7025,
+0,
+0,
+0,
+0x3122,
+0,
+0x7024,
+0x4444,
+0,
+0x4E4D,
+0x462B,
+0x6F7C,
+0x4E26,
+0,
+0x3831,
+0,
+0,
+0x4D5B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3679,
+0x4E34,
+0,
+0x3728,
+0,
+0x4262,
+0x6721,
+0,
+0x7026,
+0x332C,
+0x3F6F,
+0,
+0,
+0,
+0,
+0x3356,
+0x7028,
+0,
+0x7029,
+0x7027,
+0x3764,
+0,
+0x3A5D,
+0x3E63,
+0,
+0,
+0,
+0x3123,
+0,
+0,
+0x4E59,
+0,
+0,
+0,
+0x702B,
+0x6E2E,
+0,
+0x702A,
+0,
+0,
+0,
+0,
+0,
+0x702E,
+0x702C,
+0x702D,
+0,
+0x702F,
+0,
+0x7030,
+0x4E6C,
+0x7031,
+0x7032,
+0,
+0x4049,
+0x483B,
+0,
+0,
+0,
+0x3F7D,
+0x3467,
+0,
+0,
+0x4D3A,
+0x326D,
+0x3D38,
+0x385B,
+0,
+0x7035,
+0,
+0x7034,
+0x3B73,
+0x7036,
+0x7033,
+0,
+0,
+0x3B28,
+0,
+0,
+0,
+0x703A,
+0x6A2D,
+0,
+0,
+0x5256,
+0,
+0x3F77,
+0x7038,
+0,
+0,
+0,
+0,
+0,
+0x4E25,
+0x4671,
+0,
+0,
+0,
+0,
+0x312B,
+0,
+0x4063,
+0x3C36,
+0,
+0,
+0,
+0,
+0x4A37,
+0,
+0x3140,
+0,
+0,
+0,
+0x4E6D,
+0x4D6B,
+0,
+0x703B,
+0,
+0x4545,
+0,
+0,
+0,
+0,
+0x3C7B,
+0,
+0,
+0,
+0x703C,
+0,
+0x703D,
+0x3F4C,
+0x703E,
+0,
+0x4E6E,
+0,
+0,
+0x7039,
+0x7040,
+0x7042,
+0,
+0x7041,
+0,
+0x703F,
+0,
+0,
+0x7043,
+0,
+0,
+0x7044,
+0,
+0,
+0x417A,
+0,
+0x3262,
+0,
+0,
+0,
+0,
+0,
+0x7045,
+0,
+0,
+0x4C38,
+0,
+0,
+0x7046,
+0,
+0,
+0,
+0,
+0,
+0x7047,
+0,
+0x4F2A,
+0,
+0,
+0,
+0,
+0,
+0x5B31,
+0x7048,
+0,
+0,
+0,
+0x7049,
+0x704A,
+0,
+0,
+0,
+0x704E,
+0,
+0x704B,
+0,
+0x704C,
+0,
+0x704D,
+0x704F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4044,
+0,
+0,
+0,
+0x4C77,
+0,
+0,
+0x4045,
+0,
+0,
+0x7050,
+0,
+0x4873,
+0,
+0x7051,
+0x7353,
+0x4C4C,
+0,
+0x7052,
+0,
+0x7053,
+0,
+0x7054,
+0x3357,
+0,
+0x7056,
+0,
+0x3F59,
+0,
+0,
+0,
+0x7057,
+0,
+0,
+0x3724,
+0,
+0,
+0,
+0,
+0x7058,
+0x705C,
+0,
+0x705A,
+0,
+0,
+0,
+0,
+0x705B,
+0,
+0,
+0x3373,
+0x7059,
+0x705D,
+0,
+0,
+0,
+0,
+0x705E,
+0,
+0x3048,
+0,
+0x705F,
+0x7060,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3E64,
+0,
+0,
+0,
+0x7061,
+0,
+0,
+0,
+0x3547,
+0,
+0,
+0x7064,
+0,
+0,
+0x7063,
+0,
+0x7062,
+0,
+0,
+0x6B71,
+0,
+0x4A5C,
+0,
+0,
+0,
+0,
+0,
+0x7065,
+0x7066,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7067,
+0,
+0,
+0x7068,
+0,
+0x7069,
+0,
+0,
+0x706A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x345A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x706B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x706C,
+0x4723,
+0,
+0,
+0,
+0x706E,
+0x323B,
+0,
+0x7071,
+0x7070,
+0,
+0,
+0,
+0,
+0x3124,
+0,
+0,
+0,
+0x3641,
+0,
+0x4A47,
+0x443A,
+0x3A22,
+0,
+0x3960,
+0x3D67,
+0,
+0x3F5C,
+0,
+0,
+0,
+0x7073,
+0,
+0,
+0x7072,
+0x4D42,
+0x3468,
+0x4852,
+0x465C,
+0,
+0,
+0,
+0x3F7C,
+0x4E4E,
+0,
+0x375B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7076,
+0,
+0,
+0x7075,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4B4B,
+0x462C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3150,
+0,
+0,
+0x7077,
+0x7074,
+0,
+0,
+0x4951,
+0x4D6A,
+0x7078,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7079,
+0,
+0,
+0,
+0,
+0x707B,
+0x426A,
+0x335B,
+0x335C,
+0x707A,
+0,
+0,
+0,
+0,
+0x3469,
+0x3832,
+0,
+0,
+0x346A,
+0,
+0,
+0x453F,
+0,
+0,
+0x4E60,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x385C,
+0,
+0,
+0,
+0x707C,
+0,
+0,
+0,
+0x707D,
+0x707E,
+0x7121,
+0,
+0x7123,
+0x7122,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4977,
+0,
+0x7124,
+0,
+0,
+0,
+0,
+0x7125,
+0,
+0x7126,
+0,
+0,
+0,
+0,
+0x7127,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7129,
+0x7128,
+0,
+0x712A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4874,
+0x664C,
+0,
+0,
+0x3F29,
+0,
+0,
+0x3532,
+0,
+0,
+0,
+0,
+0,
+0,
+0x712B,
+0,
+0x712C,
+0,
+0x522C,
+0x5D3B,
+0x4853,
+0,
+0,
+0x307B,
+0,
+0x303B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3B74,
+0x4B30,
+0x3E7E,
+0,
+0,
+0,
+0,
+0x712D,
+0,
+0x4C5F,
+0,
+0,
+0,
+0x712E,
+0x4D5C,
+0,
+0x3142,
+0,
+0,
+0,
+0x3B41,
+0,
+0x712F,
+0x326E,
+0x7130,
+0,
+0,
+0,
+0x7131,
+0,
+0,
+0,
+0,
+0x7133,
+0x7134,
+0,
+0x7136,
+0x7132,
+0,
+0,
+0x7135,
+0,
+0,
+0,
+0x345B,
+0,
+0,
+0,
+0x7137,
+0,
+0x7138,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7139,
+0x713A,
+0,
+0,
+0,
+0x713B,
+0,
+0,
+0x713D,
+0,
+0,
+0,
+0x713C,
+0,
+0x713F,
+0x7142,
+0,
+0,
+0,
+0x713E,
+0x7140,
+0x7141,
+0,
+0,
+0x7143,
+0,
+0x3642,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3C73,
+0x7144,
+0x7145,
+0x3961,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7146,
+0,
+0,
+0x333E,
+0,
+0,
+0,
+0x474F,
+0x7147,
+0x7148,
+0,
+0,
+0,
+0,
+0x435A,
+0x466B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7149,
+0,
+0,
+0,
+0,
+0x477D,
+0,
+0,
+0x424C,
+0x3158,
+0x366E,
+0,
+0x366F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4373,
+0x714E,
+0x3670,
+0,
+0,
+0x326F,
+0,
+0,
+0x714D,
+0,
+0,
+0x714B,
+0,
+0x714C,
+0,
+0x714A,
+0,
+0,
+0x7158,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x714F,
+0x7150,
+0,
+0,
+0x7151,
+0x7152,
+0,
+0,
+0,
+0,
+0,
+0x7154,
+0,
+0,
+0x7153,
+0,
+0,
+0,
+0x3D59,
+0,
+0x7155,
+0,
+0,
+0,
+0x7157,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3533,
+0x7156,
+0,
+0,
+0x417B,
+0x3833,
+0,
+0,
+0,
+0,
+0,
+0x7159,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x424D,
+0,
+0,
+0x715A,
+0,
+0,
+0,
+0,
+0x462D,
+0,
+0,
+0,
+0,
+0,
+0,
+0x715B,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7160,
+0,
+0x715E,
+0,
+0x715D,
+0x715F,
+0,
+0x715C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7162,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7161,
+0,
+0x7164,
+0,
+0,
+0x3643,
+0x7163,
+0,
+0,
+0,
+0x7165,
+0,
+0,
+0x7166,
+0,
+0x7168,
+0x7167,
+0,
+0,
+0,
+0x7169,
+0x716B,
+0x716A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x397C,
+0,
+0,
+0,
+0,
+0x716C,
+0,
+0,
+0x716D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x333C,
+0,
+0,
+0,
+0x716E,
+0,
+0,
+0,
+0x716F,
+0,
+0,
+0,
+0x3F71,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7170,
+0,
+0x7171,
+0,
+0x7172,
+0x7173,
+0,
+0,
+0,
+0x3962,
+0,
+0,
+0,
+0,
+0,
+0x7174,
+0x7175,
+0,
+0,
+0x7176,
+0x7177,
+0,
+0,
+0x7178,
+0,
+0,
+0,
+0x4831,
+0x717A,
+0,
+0x4926,
+0x717B,
+0x7179,
+0,
+0x717D,
+0,
+0,
+0x717C,
+0,
+0,
+0x717E,
+0,
+0,
+0,
+0x7221,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7222,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7223,
+0,
+0x7224,
+0,
+0,
+0,
+0,
+0x7225,
+0,
+0,
+0x7226,
+0x7227,
+0,
+0x7228,
+0,
+0x7229,
+0x722A,
+0x722B,
+0x722C,
+0,
+0,
+0,
+0x722D,
+0x722E,
+0,
+0x5D35,
+0x722F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x6478,
+0x3534,
+0,
+0,
+0,
+0,
+0x3321,
+0x3A32,
+0x7231,
+0x7230,
+0x4C25,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7233,
+0x7234,
+0x7232,
+0,
+0x7235,
+0,
+0,
+0x4B62,
+0,
+0,
+0,
+0x7236,
+0,
+0x357B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4F25,
+0,
+0,
+0,
+0,
+0x7237,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7239,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x303E,
+0,
+0,
+0x723A,
+0x4A2B,
+0x7238,
+0,
+0,
+0x723B,
+0x723C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x723D,
+0x723E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x723F,
+0,
+0x4B6E,
+0x3B2D,
+0,
+0x3A7A,
+0x412F,
+0,
+0,
+0,
+0,
+0,
+0x7240,
+0,
+0,
+0,
+0,
+0x7243,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7241,
+0,
+0,
+0,
+0,
+0,
+0x7244,
+0,
+0,
+0x3871,
+0x7242,
+0,
+0,
+0,
+0,
+0x7245,
+0,
+0x7246,
+0x7247,
+0,
+0x724B,
+0,
+0x3B2A,
+0,
+0,
+0,
+0,
+0x4264,
+0,
+0,
+0,
+0,
+0,
+0x724C,
+0x7249,
+0x7248,
+0x724A,
+0,
+0,
+0,
+0x375F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7250,
+0x724F,
+0x724E,
+0,
+0,
+0x3033,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x725A,
+0,
+0x7256,
+0,
+0x7257,
+0x7253,
+0x7259,
+0,
+0x7255,
+0x3362,
+0,
+0,
+0x4F4C,
+0,
+0x7258,
+0x7254,
+0x7252,
+0x7251,
+0,
+0,
+0,
+0,
+0,
+0x725C,
+0,
+0,
+0,
+0,
+0,
+0x725F,
+0,
+0,
+0x725E,
+0x725D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4949,
+0x725B,
+0x3073,
+0x7260,
+0,
+0x7262,
+0,
+0,
+0,
+0,
+0,
+0,
+0x336F,
+0x724D,
+0x3137,
+0,
+0,
+0x7264,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7263,
+0x7261,
+0x432D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4B70,
+0,
+0,
+0,
+0,
+0x4E5A,
+0,
+0,
+0x7265,
+0,
+0,
+0,
+0,
+0,
+0x7266,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7267,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7268,
+0,
+0x7269,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x443B,
+0,
+0x726A,
+0,
+0x4837,
+0,
+0x726F,
+0x726B,
+0,
+0,
+0,
+0x726C,
+0,
+0,
+0x4B31,
+0x4C44,
+0,
+0x4650,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7270,
+0,
+0,
+0x7271,
+0x463E,
+0x726E,
+0x726D,
+0,
+0,
+0,
+0,
+0x322A,
+0,
+0,
+0,
+0x7279,
+0,
+0,
+0x7278,
+0,
+0,
+0,
+0,
+0,
+0x3175,
+0,
+0,
+0,
+0x7276,
+0,
+0,
+0,
+0x7275,
+0,
+0,
+0x7273,
+0,
+0x337B,
+0,
+0x7272,
+0x3C32,
+0x3229,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x3963,
+0,
+0,
+0x727C,
+0x727B,
+0,
+0x727A,
+0,
+0,
+0x7277,
+0,
+0x727D,
+0,
+0x727E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7325,
+0x7324,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7326,
+0,
+0,
+0x312D,
+0x7321,
+0x7322,
+0,
+0x3974,
+0x4C39,
+0,
+0,
+0x7323,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4B32,
+0,
+0,
+0x732B,
+0,
+0,
+0x7327,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x732C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7329,
+0,
+0x7328,
+0,
+0,
+0,
+0,
+0,
+0x375C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x732D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x732E,
+0,
+0,
+0,
+0,
+0x732F,
+0,
+0x732A,
+0,
+0,
+0,
+0x7274,
+0,
+0,
+0x7330,
+0,
+0x4461,
+0,
+0,
+0,
+0x7334,
+0,
+0x7335,
+0x7333,
+0,
+0,
+0,
+0,
+0,
+0x7332,
+0x7338,
+0,
+0x7331,
+0,
+0x7336,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7337,
+0,
+0,
+0,
+0x733A,
+0,
+0,
+0,
+0,
+0,
+0x7339,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x733C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x733D,
+0,
+0x733E,
+0,
+0,
+0x4F49,
+0,
+0,
+0,
+0,
+0,
+0x733B,
+0x426B,
+0x3A6D,
+0,
+0,
+0x733F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7340,
+0x7341,
+0,
+0,
+0x7342,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7343,
+0,
+0,
+0x3834,
+0x7344,
+0,
+0,
+0,
+0x7345,
+0,
+0x3C2F,
+0,
+0x7346,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7347,
+0,
+0,
+0x7348,
+0x7349,
+0,
+0,
+0,
+0,
+0x734C,
+0x734A,
+0x4F3C,
+0,
+0x734B,
+0,
+0x4E6F,
+0,
+0,
+0,
+0,
+0,
+0x734D,
+0,
+0x4E5B,
+0,
+0,
+0,
+0,
+0,
+0x734E,
+0x477E,
+0,
+0,
+0x734F,
+0x7351,
+0,
+0,
+0x7352,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7350,
+0x396D,
+0x4C4D,
+0x4B63,
+0x5677,
+0,
+0x5D60,
+0x4B7B,
+0,
+0,
+0,
+0,
+0x322B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7354,
+0x3550,
+0x7355,
+0x7356,
+0x7357,
+0,
+0x3975,
+0,
+0x7358,
+0,
+0,
+0,
+0x6054,
+0x4C5B,
+0,
+0x4263,
+0x7359,
+0x735B,
+0x735A,
+0,
+0x735C,
+0,
+0,
+0,
+0,
+0x735D,
+0,
+0,
+0x735E,
+0,
+0,
+0,
+0,
+0,
+0,
+0x735F,
+0,
+0,
+0,
+0,
+0x7360,
+0,
+0x7361,
+0x7362,
+0,
+0x7363,
+0,
+0x7364,
+0x7365,
+0x7366,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7367,
+0x7368,
+0,
+0,
+0,
+0,
+0,
+0x4524,
+0,
+0,
+0,
+0,
+0x385D,
+0,
+0x736A,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x414D,
+0x736B,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x736C,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4921,
+0,
+0,
+0x736D,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x736E,
+0x6337,
+0,
+0,
+0x6C5A,
+0x706D,
+0,
+0,
+0x736F,
+0,
+0x7370,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x7372,
+0x7373,
+0x7374,
+0x4E70,
+0x7371,
+0,
+0,
+0x7375,
+0x7376,
+0,
+0,
+0x7378,
+0,
+0x7377,
+0,
+0,
+0,
+0,
+0,
+0x737A,
+0,
+0,
+0,
+0x737B,
+0x7379,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x4E36,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x737C,
+0,
+0,
+0,
+0,
+0,
+0,
+0x737D,
+0x6354,
+0,
+0,
+0x737E,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x212A,
+0,
+0x2174,
+0x2170,
+0x2173,
+0x2175,
+0,
+0x214A,
+0x214B,
+0x2176,
+0x215C,
+0x2124,
+0,
+0x2125,
+0x213F,
+0x2330,
+0x2331,
+0x2332,
+0x2333,
+0x2334,
+0x2335,
+0x2336,
+0x2337,
+0x2338,
+0x2339,
+0x2127,
+0x2128,
+0x2163,
+0x2161,
+0x2164,
+0x2129,
+0x2177,
+0x2341,
+0x2342,
+0x2343,
+0x2344,
+0x2345,
+0x2346,
+0x2347,
+0x2348,
+0x2349,
+0x234A,
+0x234B,
+0x234C,
+0x234D,
+0x234E,
+0x234F,
+0x2350,
+0x2351,
+0x2352,
+0x2353,
+0x2354,
+0x2355,
+0x2356,
+0x2357,
+0x2358,
+0x2359,
+0x235A,
+0x214E,
+0,
+0x214F,
+0x2130,
+0x2132,
+0x212E,
+0x2361,
+0x2362,
+0x2363,
+0x2364,
+0x2365,
+0x2366,
+0x2367,
+0x2368,
+0x2369,
+0x236A,
+0x236B,
+0x236C,
+0x236D,
+0x236E,
+0x236F,
+0x2370,
+0x2371,
+0x2372,
+0x2373,
+0x2374,
+0x2375,
+0x2376,
+0x2377,
+0x2378,
+0x2379,
+0x237A,
+0x2150,
+0x2143,
+0x2151,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x2131,
+0,
+0x216F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0
+};
+static CONST USHORT from_unicode_map[256] = {
+256,
+0,
+0,
+512,
+768,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+1024,
+1280,
+1536,
+1792,
+0,
+2048,
+2304,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+2560,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+2816,
+3072,
+3328,
+3584,
+3840,
+4096,
+4352,
+4608,
+4864,
+5120,
+5376,
+5632,
+5888,
+6144,
+6400,
+6656,
+6912,
+7168,
+7424,
+7680,
+7936,
+8192,
+8448,
+8704,
+8960,
+9216,
+9472,
+9728,
+9984,
+10240,
+10496,
+10752,
+11008,
+11264,
+11520,
+11776,
+12032,
+12288,
+12544,
+12800,
+13056,
+13312,
+13568,
+13824,
+14080,
+14336,
+14592,
+14848,
+15104,
+15360,
+15616,
+15872,
+16128,
+16384,
+16640,
+16896,
+17152,
+17408,
+17664,
+17920,
+18176,
+18432,
+18688,
+18944,
+19200,
+19456,
+19712,
+19968,
+20224,
+20480,
+20736,
+20992,
+21248,
+21504,
+21760,
+22016,
+22272,
+22528,
+22784,
+23040,
+23296,
+23552,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+23808,
+};
diff --git a/src/intl/cs_jis_20208_1990.c b/src/intl/cs_jis_20208_1990.c
new file mode 100644
index 0000000000..3378e0c3e9
--- /dev/null
+++ b/src/intl/cs_jis_20208_1990.c
@@ -0,0 +1,24201 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "../intl/ldcommon.h"
+
+USHORT *from_unicode_mapping_array;
+USHORT *from_unicode_map;
+
+
+static CONST USHORT FAR_VARIABLE from_unicode_mapping_array1[] = {
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0x0000,
+	0x0001,
+	0x0002,
+	0x0003,
+	0x0004,
+	0x0005,
+	0x0006,
+	0x0007,
+	0x0008,
+	0x0009,
+	0x000A,
+	0x000B,
+	0x000C,
+	0x000D,
+	0x000E,
+	0x000F,
+	0x0010,
+	0x0011,
+	0x0012,
+	0x0013,
+	0x0014,
+	0x0015,
+	0x0016,
+	0x0017,
+	0x0018,
+	0x0019,
+	0x001A,
+	0x001B,
+	0x001C,
+	0x001D,
+	0x001E,
+	0x001F,
+	0x0020,
+	0x0021,
+	0x0022,
+	0x0023,
+	0x0024,
+	0x0025,
+	0x0026,
+	0x0027,
+	0x0028,
+	0x0029,
+	0x002A,
+	0x002B,
+	0x002C,
+	0x002D,
+	0x002E,
+	0x002F,
+	0x0030,
+	0x0031,
+	0x0032,
+	0x0033,
+	0x0034,
+	0x0035,
+	0x0036,
+	0x0037,
+	0x0038,
+	0x0039,
+	0x003A,
+	0x003B,
+	0x003C,
+	0x003D,
+	0x003E,
+	0x003F,
+	0x0040,
+	0x0041,
+	0x0042,
+	0x0043,
+	0x0044,
+	0x0045,
+	0x0046,
+	0x0047,
+	0x0048,
+	0x0049,
+	0x004A,
+	0x004B,
+	0x004C,
+	0x004D,
+	0x004E,
+	0x004F,
+	0x0050,
+	0x0051,
+	0x0052,
+	0x0053,
+	0x0054,
+	0x0055,
+	0x0056,
+	0x0057,
+	0x0058,
+	0x0059,
+	0x005A,
+	0x005B,
+	0x005C,
+	0x005D,
+	0x005E,
+	0x005F,
+	0x0060,
+	0x0061,
+	0x0062,
+	0x0063,
+	0x0064,
+	0x0065,
+	0x0066,
+	0x0067,
+	0x0068,
+	0x0069,
+	0x006A,
+	0x006B,
+	0x006C,
+	0x006D,
+	0x006E,
+	0x006F,
+	0x0070,
+	0x0071,
+	0x0072,
+	0x0073,
+	0x0074,
+	0x0075,
+	0x0076,
+	0x0077,
+	0x0078,
+	0x0079,
+	0x007A,
+	0x007B,
+	0x007C,
+	0x007D,
+	0x007E,
+	0x007F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2171,
+	0x2172,
+	0,
+	0x216F,
+	0,
+	0x2178,
+	0x212F,
+	0,
+	0,
+	0,
+	0x224C,
+	0x213E,
+	0,
+	0,
+	0x216B,
+	0x215E,
+	0,
+	0,
+	0x212D,
+	0,
+	0x2279,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x215F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2160,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2621,
+	0x2622,
+	0x2623,
+	0x2624,
+	0x2625,
+	0x2626,
+	0x2627,
+	0x2628,
+	0x2629,
+	0x262A,
+	0x262B,
+	0x262C,
+	0x262D,
+	0x262E,
+	0x262F,
+	0x2630,
+	0x2631,
+	0,
+	0x2632,
+	0x2633,
+	0x2634,
+	0x2635,
+	0x2636,
+	0x2637,
+	0x2638,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2641,
+	0x2642,
+	0x2643,
+	0x2644,
+	0x2645,
+	0x2646,
+	0x2647,
+	0x2648,
+	0x2649,
+	0x264A,
+	0x264B,
+	0x264C,
+	0x264D,
+	0x264E,
+	0x264F,
+	0x2650,
+	0x2651,
+	0,
+	0x2652,
+	0x2653,
+	0x2654,
+	0x2655,
+	0x2656,
+	0x2657,
+	0x2658,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0x2727,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2721,
+	0x2722,
+	0x2723,
+	0x2724,
+	0x2725,
+	0x2726,
+	0x2728,
+	0x2729,
+	0x272A,
+	0x272B,
+	0x272C,
+	0x272D,
+	0x272E,
+	0x272F,
+	0x2730,
+	0x2731,
+	0x2732,
+	0x2733,
+	0x2734,
+	0x2735,
+	0x2736,
+	0x2737,
+	0x2738,
+	0x2739,
+	0x273A,
+	0x273B,
+	0x273C,
+	0x273D,
+	0x273E,
+	0x273F,
+	0x2740,
+	0x2741,
+	0x2751,
+	0x2752,
+	0x2753,
+	0x2754,
+	0x2755,
+	0x2756,
+	0x2758,
+	0x2759,
+	0x275A,
+	0x275B,
+	0x275C,
+	0x275D,
+	0x275E,
+	0x275F,
+	0x2760,
+	0x2761,
+	0x2762,
+	0x2763,
+	0x2764,
+	0x2765,
+	0x2766,
+	0x2767,
+	0x2768,
+	0x2769,
+	0x276A,
+	0x276B,
+	0x276C,
+	0x276D,
+	0x276E,
+	0x276F,
+	0x2770,
+	0x2771,
+	0,
+	0x2757,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x213D,
+	0,
+	0,
+	0x2146,
+	0x2147,
+	0,
+	0,
+	0x2148,
+	0x2149,
+	0,
+	0,
+	0x2277,
+	0x2278,
+	0,
+	0,
+	0,
+	0x2145,
+	0x2144,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2273,
+	0,
+	0x216C,
+	0x216D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2228,
+	0,
+	0,
+	0x2131,
+	0,
+	0x225E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x227E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0x216E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2272,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x222B,
+	0x222C,
+	0x222A,
+	0x222D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x224D,
+	0,
+	0x224E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0x224F,
+	0,
+	0x225F,
+	0x2250,
+	0,
+	0,
+	0,
+	0x2260,
+	0x223A,
+	0,
+	0,
+	0x223B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2265,
+	0,
+	0,
+	0x2267,
+	0x2167,
+	0,
+	0x225C,
+	0,
+	0,
+	0,
+	0,
+	0x2142,
+	0,
+	0x224A,
+	0x224B,
+	0x2241,
+	0x2240,
+	0x2269,
+	0x226A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2168,
+	0x2268,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2266,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2262,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2162,
+	0x2261,
+	0,
+	0,
+	0x2165,
+	0x2166,
+	0,
+	0,
+	0,
+	0,
+	0x2263,
+	0x2264,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x223E,
+	0x223F,
+	0,
+	0,
+	0x223C,
+	0x223D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x225D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0x2821,
+	0x282C,
+	0x2822,
+	0x282D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2823,
+	0,
+	0,
+	0x282E,
+	0x2824,
+	0,
+	0,
+	0x282F,
+	0x2826,
+	0,
+	0,
+	0x2831,
+	0x2825,
+	0,
+	0,
+	0x2830,
+	0x2827,
+	0x283C,
+	0,
+	0,
+	0x2837,
+	0,
+	0,
+	0x2832,
+	0x2829,
+	0x283E,
+	0,
+	0,
+	0x2839,
+	0,
+	0,
+	0x2834,
+	0x2828,
+	0,
+	0,
+	0x2838,
+	0x283D,
+	0,
+	0,
+	0x2833,
+	0x282A,
+	0,
+	0,
+	0x283A,
+	0x283F,
+	0,
+	0,
+	0x2835,
+	0x282B,
+	0,
+	0,
+	0x283B,
+	0,
+	0,
+	0x2840,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2836,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2223,
+	0x2222,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2225,
+	0x2224,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2227,
+	0x2226,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2221,
+	0x217E,
+	0,
+	0,
+	0,
+	0x217B,
+	0,
+	0,
+	0x217D,
+	0x217C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x217A,
+	0x2179,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x216A,
+	0,
+	0x2169,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2276,
+	0,
+	0,
+	0x2275,
+	0,
+	0x2274,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0x2121,
+	0x2122,
+	0x2123,
+	0x2137,
+	0x2138,
+	0x2139,
+	0x213A,
+	0x213B,
+	0x2152,
+	0x2153,
+	0x2154,
+	0x2155,
+	0x2156,
+	0x2157,
+	0x2158,
+	0x2159,
+	0x215A,
+	0x215B,
+	0x2229,
+	0x222E,
+	0x214C,
+	0x214D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x2421,
+	0x2422,
+	0x2423,
+	0x2424,
+	0x2425,
+	0x2426,
+	0x2427,
+	0x2428,
+	0x2429,
+	0x242A,
+	0x242B,
+	0x242C,
+	0x242D,
+	0x242E,
+	0x242F,
+	0x2430,
+	0x2431,
+	0x2432,
+	0x2433,
+	0x2434,
+	0x2435,
+	0x2436,
+	0x2437,
+	0x2438,
+	0x2439,
+	0x243A,
+	0x243B,
+	0x243C,
+	0x243D,
+	0x243E,
+	0x243F,
+	0x2440,
+	0x2441,
+	0x2442,
+	0x2443,
+	0x2444,
+	0x2445,
+	0x2446,
+	0x2447,
+	0x2448,
+	0x2449,
+	0x244A,
+	0x244B,
+	0x244C,
+	0x244D,
+	0x244E,
+	0x244F,
+	0x2450,
+	0x2451,
+	0x2452,
+	0x2453,
+	0x2454,
+	0x2455,
+	0x2456,
+	0x2457,
+	0x2458,
+	0x2459,
+	0x245A,
+	0x245B,
+	0x245C,
+	0x245D,
+	0x245E,
+	0x245F,
+	0x2460,
+	0x2461,
+	0x2462,
+	0x2463,
+	0x2464,
+	0x2465,
+	0x2466,
+	0x2467,
+	0x2468,
+	0x2469,
+	0x246A,
+	0x246B,
+	0x246C,
+	0x246D,
+	0x246E,
+	0x246F,
+	0x2470,
+	0x2471,
+	0x2472,
+	0x2473,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x212B,
+	0x212C,
+	0x2135,
+	0x2136,
+	0,
+	0,
+	0x2521,
+	0x2522,
+	0x2523,
+	0x2524,
+	0x2525,
+	0x2526,
+	0x2527,
+	0x2528,
+	0x2529,
+	0x252A,
+	0x252B,
+	0x252C,
+	0x252D,
+	0x252E,
+	0x252F,
+	0x2530,
+	0x2531,
+	0x2532,
+	0x2533,
+	0x2534,
+	0x2535,
+	0x2536,
+	0x2537,
+	0x2538,
+	0x2539,
+	0x253A,
+	0x253B,
+	0x253C,
+	0x253D,
+	0x253E,
+	0x253F,
+	0x2540,
+	0x2541,
+	0x2542,
+	0x2543,
+	0x2544,
+	0x2545,
+	0x2546,
+	0x2547,
+	0x2548,
+	0x2549,
+	0x254A,
+	0x254B,
+	0x254C,
+	0x254D,
+	0x254E,
+	0x254F,
+	0x2550,
+	0x2551,
+	0x2552,
+	0x2553,
+	0x2554,
+	0x2555,
+	0x2556,
+	0x2557,
+	0x2558,
+	0x2559,
+	0x255A,
+	0x255B,
+	0x255C,
+	0x255D,
+	0x255E,
+	0x255F,
+	0x2560,
+	0x2561,
+	0x2562,
+	0x2563,
+	0x2564,
+	0x2565,
+	0x2566,
+	0x2567,
+	0x2568,
+	0x2569,
+	0x256A,
+	0x256B,
+	0x256C,
+	0x256D,
+	0x256E,
+	0x256F,
+	0x2570,
+	0x2571,
+	0x2572,
+	0x2573,
+	0x2574,
+	0x2575,
+	0x2576,
+	0,
+	0,
+	0,
+	0,
+	0x2126,
+	0x213C,
+	0x2133,
+	0x2134,
+	0,
+
+	0x306C,
+	0x437A,
+	0,
+	0x3C37,
+	0,
+	0,
+	0,
+	0x4B7C,
+	0x3E66,
+	0x3B30,
+	0x3E65,
+	0x323C,
+	0,
+	0x4954,
+	0x4D3F,
+	0,
+	0x5022,
+	0x312F,
+	0,
+	0,
+	0x336E,
+	0x5023,
+	0x4024,
+	0x5242,
+	0x3556,
+	0x4A3A,
+	0,
+	0,
+	0,
+	0,
+	0x3E67,
+	0,
+	0,
+	0x4E3E,
+	0,
+	0,
+	0,
+	0,
+	0x4A42,
+	0,
+	0,
+	0,
+	0x5024,
+	0,
+	0,
+	0x4366,
+	0,
+	0,
+	0,
+	0x5025,
+	0x367A,
+	0,
+	0,
+	0,
+	0x5026,
+	0,
+	0x345D,
+	0x4330,
+	0,
+	0x3C67,
+	0x5027,
+	0,
+	0,
+	0x5028,
+	0,
+	0,
+	0x5029,
+	0x4735,
+	0,
+	0x3557,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4737,
+	0,
+	0x4663,
+	0x3843,
+	0x4B33,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6949,
+	0x502A,
+	0x3E68,
+	0x502B,
+	0x3235,
+	0,
+	0,
+	0,
+	0x3665,
+	0x3870,
+	0x4C69,
+	0,
+	0,
+	0x5626,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D70,
+	0,
+	0x467D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3425,
+	0,
+	0x3535,
+	0,
+	0x502C,
+	0,
+	0,
+	0x502D,
+	0x4E3B,
+	0,
+	0x4D3D,
+	0x4168,
+	0x502F,
+	0x3B76,
+	0x4673,
+	0,
+	0x5032,
+	0,
+	0,
+	0x313E,
+	0x385F,
+	0,
+	0x385E,
+	0x3066,
+	0,
+	0,
+	0x4F4B,
+	0x4F4A,
+	0,
+	0x3A33,
+	0x3021,
+	0,
+	0x5033,
+	0x5034,
+	0x5035,
+	0x4B34,
+	0x5036,
+	0,
+	0x3872,
+	0x3067,
+	0x4B72,
+	0,
+	0x357C,
+	0,
+	0,
+	0x357D,
+	0x357E,
+	0x4462,
+	0x4E3C,
+	0,
+	0x5037,
+	0,
+	0,
+	0x5038,
+	0,
+	0,
+	0x5039,
+	0,
+	0,
+	0,
+	0x3F4D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D3A,
+	0x3F4E,
+	0x503E,
+	0,
+	0x503C,
+	0,
+	0x503D,
+	0x3558,
+	0,
+	0,
+	0x3A23,
+	0x3270,
+	0,
+	0x503B,
+	0x503A,
+	0x4A29,
+	0,
+	0,
+	0,
+	0,
+	0x3B46,
+	0x3B45,
+	0x423E,
+	0x503F,
+	0x4955,
+	0x4067,
+	0,
+	0,
+	0,
+	0,
+	0x5040,
+	0x5042,
+	0,
+	0,
+	0,
+	0x4265,
+	0x4E61,
+	0x304A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5041,
+	0x323E,
+	0,
+	0x3644,
+	0,
+	0x4367,
+	0,
+	0,
+	0,
+	0x376F,
+	0x5043,
+	0,
+	0,
+	0,
+	0x4724,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0x346B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5044,
+	0x304B,
+	0,
+	0,
+	0x3860,
+	0x346C,
+	0x497A,
+	0x4832,
+	0x3559,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3271,
+	0,
+	0x5067,
+	0x4541,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x476C,
+	0x5046,
+	0,
+	0,
+	0,
+	0x483C,
+	0,
+	0x4E62,
+	0,
+	0x3F2D,
+	0,
+	0x3B47,
+	0,
+	0x3B77,
+	0x3240,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4451,
+	0,
+	0,
+	0x4322,
+	0x504A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x304C,
+	0x4463,
+	0x3D3B,
+	0x3A34,
+	0x4D24,
+	0,
+	0x424E,
+	0,
+	0x323F,
+	0,
+	0x5049,
+	0,
+	0x4D3E,
+	0x5045,
+	0x5047,
+	0x3A6E,
+	0x5048,
+	0x5524,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5050,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5053,
+	0x5051,
+	0,
+	0,
+	0x3242,
+	0,
+	0x4A3B,
+	0x504B,
+	0,
+	0,
+	0,
+	0,
+	0x504F,
+	0x3873,
+	0,
+	0,
+	0x3B48,
+	0,
+	0,
+	0,
+	0x3426,
+	0,
+	0,
+	0x5054,
+	0,
+	0x504C,
+	0,
+	0,
+	0x4E63,
+	0,
+	0x3B78,
+	0,
+	0x504D,
+	0,
+	0x5052,
+	0,
+	0,
+	0,
+	0,
+	0x5055,
+	0,
+	0x504E,
+	0,
+	0,
+	0x3621,
+	0,
+	0x304D,
+	0,
+	0,
+	0x3622,
+	0x3241,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5525,
+	0,
+	0x4B79,
+	0x496E,
+	0x3874,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F2F,
+	0x4E37,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A58,
+	0,
+	0,
+	0x3738,
+	0x4225,
+	0x3264,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D53,
+	0,
+	0,
+	0,
+	0x5059,
+	0,
+	0x505E,
+	0x505C,
+	0,
+	0,
+	0x5057,
+	0,
+	0,
+	0x422F,
+	0x505A,
+	0,
+	0x505D,
+	0x505B,
+	0,
+	0x4A5D,
+	0,
+	0x5058,
+	0,
+	0x3F2E,
+	0,
+	0x4B73,
+	0x505F,
+	0x5060,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D24,
+	0x506D,
+	0,
+	0,
+	0,
+	0x4750,
+	0,
+	0x4936,
+	0x5068,
+	0,
+	0x4A70,
+	0,
+	0x3236,
+	0,
+	0,
+	0,
+	0x506C,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5066,
+	0x506F,
+	0,
+	0,
+	0x4152,
+	0,
+	0x3844,
+	0,
+	0x475C,
+	0,
+	0x6047,
+	0,
+	0x506E,
+	0x455D,
+	0,
+	0x5063,
+	0,
+	0x3876,
+	0,
+	0,
+	0x3875,
+	0x5061,
+	0,
+	0,
+	0,
+	0,
+	0x3C5A,
+	0,
+	0x5069,
+	0,
+	0x4A6F,
+	0x434D,
+	0x5065,
+	0x3771,
+	0,
+	0x5062,
+	0x506A,
+	0x5064,
+	0x4E51,
+	0x506B,
+	0x4F41,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3666,
+	0,
+	0,
+	0x3770,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5070,
+	0,
+	0,
+	0,
+	0x5071,
+	0x5075,
+	0x304E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A50,
+	0x5074,
+	0,
+	0,
+	0,
+	0,
+	0x5073,
+	0x5077,
+	0,
+	0,
+	0,
+	0x5076,
+	0,
+	0x4464,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3772,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5078,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3C45,
+	0,
+	0x4226,
+	0x4465,
+	0x3676,
+	0,
+	0x5079,
+	0,
+	0,
+	0,
+	0,
+	0x3536,
+	0,
+	0,
+	0x507A,
+	0,
+	0,
+	0,
+	0,
+	0x507C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B35,
+	0,
+	0,
+	0,
+	0x3766,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3B31,
+	0x4877,
+	0x507B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3A45,
+	0x4D43,
+	0,
+	0,
+	0,
+	0,
+	0x507E,
+	0x5123,
+	0x507D,
+	0x3A44,
+	0,
+	0x3D7D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3739,
+	0,
+	0,
+	0,
+	0x5124,
+	0,
+	0,
+	0x364F,
+	0,
+	0,
+	0,
+	0x5121,
+	0x5122,
+	0,
+	0,
+	0x462F,
+	0,
+	0x417C,
+	0,
+	0x3623,
+	0,
+	0,
+	0,
+	0x4B4D,
+	0x5125,
+	0,
+	0,
+	0,
+	0x4E3D,
+	0,
+	0,
+	0,
+	0x5126,
+	0,
+	0,
+	0,
+	0,
+	0x5129,
+	0,
+	0x5127,
+	0,
+	0x414E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5128,
+	0x512A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x512C,
+	0,
+	0,
+	0,
+	0x512B,
+	0,
+	0x4A48,
+	0,
+	0,
+	0,
+	0,
+
+	0x3537,
+	0x512E,
+	0x512F,
+	0,
+	0x322F,
+	0,
+	0,
+	0,
+	0,
+	0x512D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3C74,
+	0,
+	0x5132,
+	0x5131,
+	0x5130,
+	0,
+	0x5056,
+	0,
+	0x5133,
+	0,
+	0,
+	0,
+	0,
+	0x3D7E,
+	0,
+	0x5134,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D25,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4C59,
+	0,
+	0,
+	0,
+	0,
+	0x5136,
+	0,
+	0,
+	0x5135,
+	0x5138,
+	0x5137,
+	0,
+	0,
+	0x5139,
+	0x513A,
+	0x3074,
+	0,
+	0x3835,
+	0x373B,
+	0x3D3C,
+	0x437B,
+	0x3624,
+	0x4068,
+	0x3877,
+	0,
+	0x396E,
+	0x513C,
+	0x4C48,
+	0x4546,
+	0,
+	0x3B79,
+	0,
+	0x513B,
+	0,
+	0x513D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x455E,
+	0,
+	0x3375,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x513E,
+	0,
+	0,
+	0x467E,
+	0,
+	0,
+	0x4134,
+	0x5140,
+	0x5141,
+	0x482C,
+	0x3878,
+	0x4F3B,
+	0x5142,
+	0,
+	0,
+	0x3626,
+	0,
+	0,
+	0,
+	0x4A3C,
+	0x4236,
+	0x3671,
+	0x4535,
+	0,
+	0,
+	0,
+	0x3773,
+	0,
+	0,
+	0,
+	0x5143,
+	0,
+	0x5144,
+	0,
+	0,
+	0x4662,
+	0x315F,
+	0,
+	0,
+	0x5147,
+	0x3A7D,
+	0,
+	0x5146,
+	0x3A46,
+	0,
+	0x5148,
+	0x666E,
+	0x5149,
+	0x4B41,
+	0x514A,
+	0,
+	0x514B,
+	0x514C,
+	0x3E69,
+	0,
+	0x3C4C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3427,
+	0,
+	0x514F,
+	0,
+	0x514D,
+	0x4C3D,
+	0x514E,
+	0,
+	0x495A,
+	0x5150,
+	0x5151,
+	0x5152,
+	0x455F,
+	0,
+	0,
+	0,
+	0x5156,
+	0x5154,
+	0x5155,
+	0x5153,
+	0x3A63,
+	0x5157,
+	0x4C6A,
+	0x4E64,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5158,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4028,
+	0x5159,
+	0x3D5A,
+	0,
+	0,
+	0x515A,
+	0,
+	0x437C,
+	0x4E3F,
+	0x4560,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5245,
+	0,
+	0,
+	0,
+	0,
+	0x515B,
+	0x7425,
+	0x3645,
+	0,
+	0,
+	0x515C,
+	0x4B5E,
+	0,
+	0,
+	0,
+	0,
+	0x3D68,
+	0x427C,
+	0,
+	0x515E,
+	0x4664,
+	0,
+	0,
+	0x515F,
+	0,
+	0,
+	0x5160,
+	0x332E,
+	0,
+	0,
+	0,
+	0x5161,
+	0x3627,
+	0,
+	0x464C,
+	0x317A,
+	0x3D50,
+	0,
+	0,
+	0x4821,
+	0x5162,
+	0,
+
+	0x4561,
+	0,
+	0,
+	0x3F4F,
+	0x5163,
+	0,
+	0x4A2C,
+	0x405A,
+	0x3422,
+	0,
+	0x3429,
+	0x5164,
+	0,
+	0,
+	0x5166,
+	0,
+	0,
+	0x373A,
+	0,
+	0,
+	0x5165,
+	0,
+	0,
+	0x4E73,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D69,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x483D,
+	0x4A4C,
+	0,
+	0x5167,
+	0,
+	0x4D78,
+	0x5168,
+	0,
+	0,
+	0,
+	0x5169,
+	0,
+	0x457E,
+	0,
+	0,
+	0x516A,
+	0,
+	0,
+	0x4029,
+	0x3A7E,
+	0x3774,
+	0x516B,
+	0x3B49,
+	0x396F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4466,
+	0x516D,
+	0,
+	0,
+	0x4227,
+	0,
+	0,
+	0x3A6F,
+	0x516E,
+	0x516F,
+	0x4130,
+	0,
+	0x516C,
+	0,
+	0,
+	0,
+	0,
+	0x5171,
+	0,
+	0x4B36,
+	0,
+	0,
+	0,
+	0,
+	0x3964,
+	0,
+	0,
+	0x5170,
+	0,
+	0,
+	0,
+	0,
+	0x3775,
+	0x3A5E,
+	0x476D,
+	0,
+	0,
+	0,
+	0x5174,
+	0x5172,
+	0,
+	0,
+	0,
+	0,
+	0x497B,
+	0x3E6A,
+	0x517B,
+	0x3364,
+	0x5175,
+	0x5173,
+	0x414F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5177,
+	0,
+	0x5176,
+	0,
+	0,
+	0,
+	0x3344,
+	0,
+	0,
+	0,
+	0x3760,
+	0x517C,
+	0x4E2D,
+	0,
+	0,
+	0,
+	0x5178,
+	0,
+	0,
+	0,
+	0x517D,
+	0x517A,
+	0,
+	0x5179,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4E4F,
+	0,
+	0,
+	0,
+	0x3879,
+	0x3243,
+	0,
+	0,
+	0x4E74,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D75,
+	0x4558,
+	0x3965,
+	0x5222,
+	0x5223,
+	0,
+	0,
+	0,
+	0x4E65,
+	0,
+	0,
+	0x4F2B,
+	0x5225,
+	0,
+	0,
+	0,
+	0x387A,
+	0,
+	0,
+	0x5224,
+	0,
+	0x332F,
+	0,
+	0,
+	0x5226,
+	0,
+	0x4B56,
+	0,
+	0x443C,
+	0,
+	0x4D26,
+	0,
+	0x4A59,
+	0,
+	0,
+	0,
+	0x5227,
+	0,
+	0,
+	0,
+	0,
+	0x7055,
+	0,
+	0,
+	0x4630,
+	0,
+	0x5228,
+	0x342A,
+	0x4C33,
+	0,
+	0,
+	0,
+	0x3E21,
+	0x5229,
+	0x4A67,
+	0x522D,
+	0,
+	0x402A,
+	0x522A,
+	0x3650,
+	0,
+	0x522B,
+	0x342B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x372E,
+	0x522E,
+	0,
+	0x522F,
+	0,
+	0,
+	0x5230,
+	0x5231,
+	0x3C5B,
+	0,
+	0,
+	0,
+	0x387B,
+	0x4C5E,
+
+	0,
+	0x4C68,
+	0x4677,
+	0,
+	0,
+	0x4A71,
+	0x5232,
+	0,
+	0x5233,
+	0,
+	0,
+	0,
+	0,
+	0x5235,
+	0,
+	0x5237,
+	0x5236,
+	0,
+	0,
+	0,
+	0,
+	0x5238,
+	0x323D,
+	0x4B4C,
+	0,
+	0x3A7C,
+	0x5239,
+	0,
+	0,
+	0x4159,
+	0,
+	0,
+	0x3E22,
+	0x3629,
+	0,
+	0x523A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x485B,
+	0,
+	0,
+	0,
+	0,
+	0x523B,
+	0,
+	0x523C,
+	0,
+	0x523D,
+	0,
+	0,
+	0,
+	0,
+	0x523E,
+	0x4924,
+	0x3668,
+	0x3065,
+	0,
+	0,
+	0,
+	0x463F,
+	0x523F,
+	0x3D3D,
+	0,
+	0x4069,
+	0,
+	0x5241,
+	0x5240,
+	0x3E23,
+	0x3861,
+	0x5243,
+	0x483E,
+	0,
+	0,
+	0x5244,
+	0,
+	0,
+	0,
+	0x485C,
+	0x4234,
+	0x426E,
+	0x3628,
+	0,
+	0,
+	0x466E,
+	0x4331,
+	0,
+	0x476E,
+	0,
+	0x4B4E,
+	0,
+	0x5246,
+	0,
+	0x406A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3735,
+	0,
+	0,
+	0x5247,
+	0,
+	0,
+	0,
+	0,
+	0x5248,
+	0x312C,
+	0x3075,
+	0x346D,
+	0,
+	0x4228,
+	0x3551,
+	0x4D71,
+	0,
+	0x524B,
+	0x3237,
+	0,
+	0,
+	0x524A,
+	0,
+	0,
+	0,
+	0x362A,
+	0,
+	0,
+	0x524C,
+	0,
+	0x4C71,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x524D,
+	0,
+	0x4E52,
+	0,
+	0x387C,
+	0,
+	0,
+	0,
+	0,
+	0x3836,
+	0x524E,
+	0,
+	0,
+	0,
+	0,
+	0x5250,
+	0x524F,
+	0,
+	0x3F5F,
+	0x3139,
+	0,
+	0,
+	0,
+	0x315E,
+	0x5251,
+	0,
+	0x5252,
+	0,
+	0,
+	0x3837,
+	0,
+	0,
+	0x5253,
+	0,
+	0,
+	0,
+	0,
+	0x356E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3B32,
+	0x5254,
+	0,
+	0,
+	0,
+	0,
+	0x4B74,
+	0x3A35,
+	0x355A,
+	0x4D27,
+	0x4150,
+	0x483F,
+	0x3C7D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D47,
+	0,
+	0x3C68,
+	0x3C75,
+	0,
+	0x3D76,
+	0,
+	0x4840,
+	0,
+	0,
+	0,
+	0x5257,
+	0,
+	0x3143,
+	0x4151,
+	0x387D,
+	0x3845,
+	0x3667,
+	0,
+	0,
+	0x525B,
+	0x4321,
+	0x427E,
+	0x362B,
+	0x3E24,
+	0x525C,
+	0x525A,
+	0x3244,
+	0x4266,
+	0x3C38,
+	0x3B4B,
+	0x3126,
+	0,
+	0,
+	0x3370,
+	0x3966,
+	0x3B4A,
+	0,
+	0x525D,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0x525E,
+	0,
+	0x3549,
+	0x3346,
+	0,
+	0,
+	0,
+	0x3967,
+	0x3548,
+	0x445F,
+	0x3125,
+	0x4631,
+	0x4C3E,
+	0x3921,
+	0x4D79,
+	0x4547,
+	0x387E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x372F,
+	0,
+	0x5267,
+	0,
+	0x3663,
+	0x4B4A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x485D,
+	0,
+	0,
+	0x5266,
+	0,
+	0x345E,
+	0x5261,
+	0x5262,
+	0x5264,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5265,
+	0,
+	0x355B,
+	0x3F61,
+	0,
+	0x4A2D,
+	0x5263,
+	0x525F,
+	0x3863,
+	0,
+	0x5260,
+	0,
+	0x4F24,
+	0,
+	0,
+	0,
+	0x4A72,
+	0,
+	0x4468,
+	0x3862,
+	0x3970,
+	0,
+	0,
+	0,
+	0x5268,
+	0,
+	0,
+	0x465D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x526C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3C7E,
+	0,
+	0x3C76,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x526F,
+	0x526D,
+	0,
+	0x4C23,
+	0,
+	0x526A,
+	0x5273,
+	0x526E,
+	0,
+	0,
+	0,
+	0x5271,
+	0x3846,
+	0x4C3F,
+	0,
+	0,
+	0x5272,
+	0,
+	0,
+	0,
+	0x5274,
+	0,
+	0x5276,
+	0,
+	0,
+	0,
+	0,
+	0x3A70,
+	0x4F42,
+	0,
+	0x526B,
+	0x5269,
+	0x5275,
+	0,
+	0x5270,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5278,
+	0,
+	0x5323,
+	0x527A,
+	0,
+	0,
+	0x527E,
+	0,
+	0,
+	0x5321,
+	0x527B,
+	0,
+	0,
+	0x533E,
+	0,
+	0,
+	0x3A69,
+	0x3331,
+	0,
+	0,
+	0,
+	0,
+	0x5279,
+	0,
+	0,
+	0,
+	0x5325,
+	0x3076,
+	0x5324,
+	0,
+	0x3025,
+	0x494A,
+	0x5322,
+	0,
+	0x527C,
+	0,
+	0,
+	0x5277,
+	0x527D,
+	0x3A48,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5326,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3077,
+	0x532F,
+	0,
+	0,
+	0x5327,
+	0x5328,
+	0,
+	0x3E25,
+	0x4B69,
+	0,
+	0,
+	0,
+	0x532D,
+	0x532C,
+	0,
+	0,
+	0,
+	0x452F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x532E,
+	0,
+	0,
+	0x532B,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0x3134,
+	0,
+	0x3A36,
+	0x3F30,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5329,
+	0x4562,
+	0,
+	0,
+	0,
+	0x532A,
+	0,
+	0x3022,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5334,
+	0x4D23,
+	0,
+	0x3E27,
+	0,
+	0x533A,
+	0,
+	0,
+	0,
+	0,
+	0x5339,
+	0x5330,
+	0,
+	0,
+	0,
+	0,
+	0x4243,
+	0,
+	0x5331,
+	0,
+	0,
+	0,
+	0x426F,
+	0x5336,
+	0x3E26,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5333,
+	0,
+	0,
+	0x4C64,
+	0,
+	0,
+	0,
+	0x373C,
+	0,
+	0,
+	0x5337,
+	0x5338,
+	0,
+	0,
+	0,
+	0,
+	0x5335,
+	0x533B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5332,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5341,
+	0x5346,
+	0,
+	0x5342,
+	0,
+	0x533D,
+	0,
+	0,
+	0x5347,
+	0x4131,
+	0,
+	0,
+	0x5349,
+	0,
+	0x3922,
+	0x533F,
+	0x437D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5343,
+	0x533C,
+	0x342D,
+	0,
+	0x346E,
+	0x3365,
+	0x5344,
+	0x5340,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3776,
+	0x534A,
+	0x5348,
+	0x4153,
+	0x354A,
+	0x362C,
+	0,
+	0x5345,
+	0,
+	0x3674,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3144,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x534E,
+	0x534C,
+	0,
+	0x5427,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5351,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x534B,
+	0,
+	0x534F,
+	0,
+	0,
+	0x534D,
+	0,
+	0,
+	0,
+	0x3B4C,
+	0x5350,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5353,
+	0,
+	0x5358,
+	0,
+	0,
+	0,
+	0x5356,
+	0x5355,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4332,
+	0,
+	0,
+	0x3245,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5352,
+	0,
+	0x5354,
+	0x3E28,
+	0x3133,
+	0,
+	0,
+	0x5357,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x325E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5362,
+	0,
+	0x3E7C,
+	0x535E,
+	0,
+	0x535C,
+	0,
+	0x535D,
+	0,
+	0x535F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x313D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4139,
+	0,
+	0x5359,
+	0,
+	0x535A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x337A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5361,
+	0,
+	0,
+	0,
+	0x346F,
+	0,
+	0x5364,
+	0x5360,
+	0x5363,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A2E,
+	0,
+	0,
+	0,
+	0x4655,
+	0,
+	0x4838,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5366,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5365,
+	0x3345,
+	0,
+	0,
+	0x5367,
+	0,
+	0,
+	0,
+	0,
+	0x536A,
+	0,
+	0,
+	0,
+	0,
+	0x5369,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5368,
+	0,
+	0x4739,
+	0,
+	0,
+	0x536B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x536C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x536E,
+	0,
+	0x536D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5370,
+	0,
+	0,
+	0,
+	0x5373,
+	0x5371,
+	0x536F,
+	0x5372,
+	0,
+	0,
+	0,
+	0,
+	0x5374,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5375,
+	0,
+	0,
+	0x5376,
+	0,
+	0x5377,
+	0,
+	0,
+	0,
+	0x5378,
+	0x5145,
+	0,
+	0x3C7C,
+	0x3B4D,
+	0,
+	0,
+	0x3273,
+	0,
+	0x3078,
+	0,
+	0,
+	0x4344,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5379,
+	0,
+	0x3A24,
+	0,
+	0x304F,
+	0x3F5E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x537A,
+	0x3847,
+	0,
+	0,
+	0x3971,
+	0,
+	0x537C,
+
+	0x537B,
+	0,
+	0,
+	0x4A60,
+	0x537D,
+	0,
+	0,
+	0,
+	0x5421,
+	0x537E,
+	0,
+	0x5422,
+	0,
+	0x5423,
+	0,
+	0x3777,
+	0,
+	0,
+	0x3160,
+	0x5424,
+	0,
+	0,
+	0x5426,
+	0,
+	0x5425,
+	0,
+	0,
+	0,
+	0x5428,
+	0,
+	0,
+	0x455A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5429,
+	0x3035,
+	0x3A5F,
+	0,
+	0,
+	0,
+	0,
+	0x373D,
+	0,
+	0,
+	0x434F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x542A,
+	0x542B,
+	0,
+	0,
+	0x542D,
+	0,
+	0,
+	0,
+	0,
+	0x542E,
+	0,
+	0x3A64,
+	0,
+	0,
+	0,
+	0,
+	0x3651,
+	0,
+	0,
+	0x4B37,
+	0,
+	0,
+	0,
+	0x542C,
+	0x542F,
+	0x3A41,
+	0x3923,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5433,
+	0,
+	0,
+	0x3A25,
+	0,
+	0x4333,
+	0,
+	0,
+	0x5430,
+	0x445A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5434,
+	0,
+	0,
+	0x3F62,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5432,
+	0x5435,
+	0,
+	0x373F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5436,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5437,
+	0,
+	0x3924,
+	0x3340,
+	0x5439,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x543A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x543B,
+	0,
+	0,
+	0x5438,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5431,
+	0,
+	0,
+	0x543C,
+	0,
+	0,
+	0x543D,
+	0,
+	0,
+	0,
+	0,
+	0x4B64,
+	0,
+	0,
+	0x3E6B,
+	0,
+	0,
+	0,
+	0x543F,
+	0x5440,
+	0x543E,
+	0,
+	0x5442,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4738,
+	0,
+	0,
+	0x3068,
+	0x4956,
+	0,
+	0,
+	0x5443,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3E7D,
+	0,
+	0,
+	0x3C39,
+	0,
+	0x475D,
+	0x3470,
+	0,
+	0x3A6B,
+	0,
+	0,
+	0,
+
+	0x4B59,
+	0,
+	0x4632,
+	0,
+	0,
+	0x3778,
+	0x424F,
+	0,
+	0,
+	0,
+	0x5441,
+	0x5444,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4244,
+	0,
+	0,
+	0,
+	0x5445,
+	0,
+	0,
+	0,
+	0x5446,
+	0,
+	0,
+	0,
+	0x5448,
+	0,
+	0,
+	0x4469,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x342E,
+	0,
+	0,
+	0,
+	0,
+	0x7421,
+	0x3161,
+	0x4A73,
+	0,
+	0,
+	0x3E6C,
+	0x4548,
+	0,
+	0,
+	0,
+	0,
+	0x3A66,
+	0,
+	0,
+	0x544E,
+	0,
+	0,
+	0x4A3D,
+	0x4E5D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3274,
+	0x544A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x413A,
+	0x544D,
+	0,
+	0x4563,
+	0,
+	0,
+	0x4549,
+	0x4564,
+	0x4839,
+	0x444D,
+	0,
+	0,
+	0,
+	0x3A49,
+	0,
+	0,
+	0,
+	0x5449,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3176,
+	0,
+	0x4536,
+	0,
+	0,
+	0,
+	0,
+	0x544B,
+	0,
+	0x5447,
+	0,
+	0,
+	0x3F50,
+	0,
+	0,
+	0,
+	0x544F,
+	0,
+	0,
+	0,
+	0,
+	0x3D4E,
+	0,
+	0,
+	0,
+	0,
+	0x362D,
+	0,
+	0x5450,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A68,
+	0,
+	0,
+	0,
+	0x417D,
+	0,
+	0,
+	0,
+	0,
+	0x4446,
+	0,
+	0,
+	0x5452,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B4F,
+	0,
+	0,
+	0x5453,
+	0,
+	0,
+	0x5458,
+	0,
+	0,
+	0,
+	0,
+	0x4A2F,
+	0,
+	0,
+	0,
+	0,
+	0x5457,
+	0x5451,
+	0x5454,
+	0x5456,
+	0,
+	0,
+	0x3A26,
+	0,
+	0,
+	0x4A49,
+	0,
+	0,
+	0,
+	0x5459,
+	0,
+	0x4345,
+	0,
+	0,
+	0x3275,
+	0,
+	0x3E6D,
+	0,
+	0,
+	0,
+	0,
+	0x545B,
+	0,
+	0x545A,
+	0,
+	0x3968,
+	0,
+	0x545C,
+	0x545E,
+	0x545D,
+	0,
+	0,
+	0x5460,
+	0,
+	0x5455,
+	0x5462,
+	0,
+	0,
+	0,
+	0,
+	0x5461,
+	0x545F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3B4E,
+	0x3F51,
+	0,
+	0x4154,
+	0x5463,
+	0x403C,
+	0x306D,
+	0x4764,
+	0,
+	0,
+	0,
+	0,
+	0x445B,
+	0,
+	0x5465,
+	0x5464,
+	0x5466,
+	0x5467,
+	0x5468,
+	0,
+	0,
+
+	0,
+	0,
+	0x5469,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A51,
+	0x546A,
+	0,
+	0,
+	0,
+	0,
+	0x3246,
+	0x546B,
+	0,
+	0,
+	0,
+	0,
+	0x4D3C,
+	0x3330,
+	0,
+	0x5249,
+	0x3D48,
+	0x423F,
+	0x546C,
+	0x4C6B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4C34,
+	0,
+	0,
+	0x546E,
+	0,
+	0x4267,
+	0,
+	0x4537,
+	0x4240,
+	0x4957,
+	0x546F,
+	0x5470,
+	0x317B,
+	0,
+	0,
+	0x3C3A,
+	0x5471,
+	0,
+	0,
+	0,
+	0,
+	0x3050,
+	0x5472,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5473,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3162,
+	0,
+	0,
+	0x3471,
+	0x4660,
+	0x4A74,
+	0,
+	0,
+	0,
+	0,
+	0x5477,
+	0x4155,
+	0x5476,
+	0x3740,
+	0,
+	0,
+	0x4B5B,
+	0x5475,
+	0,
+	0x4565,
+	0x5479,
+	0,
+	0x5478,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x547B,
+	0,
+	0x547A,
+	0,
+	0,
+	0x317C,
+	0,
+	0x547C,
+	0x3E29,
+	0x547E,
+	0x4325,
+	0,
+	0x547D,
+	0,
+	0x4A33,
+	0,
+	0,
+	0,
+	0,
+	0x3D77,
+	0x455B,
+	0,
+	0,
+	0,
+	0x5521,
+	0,
+	0,
+	0,
+	0,
+	0x3925,
+	0,
+	0,
+	0,
+	0x5522,
+	0x4721,
+	0x485E,
+	0x4C51,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4725,
+	0,
+	0,
+	0x552B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3538,
+	0,
+	0,
+	0x4D45,
+	0,
+	0,
+	0x4C2F,
+	0,
+	0x562C,
+	0,
+	0x5523,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5526,
+	0,
+	0x4245,
+	0,
+	0,
+	0x4B38,
+	0,
+	0,
+	0,
+	0x454A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5527,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B65,
+	0,
+	0x3A4A,
+	0,
+	0,
+	0x3E2A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5528,
+	0,
+	0,
+	0x3B50,
+	0,
+	0x3B4F,
+	0,
+	0,
+	0,
+	0,
+	0x3039,
+	0x3848,
+	0,
+	0x402B,
+	0x3051,
+	0,
+	0,
+	0,
+	0,
+	0x552C,
+	0x552D,
+	0,
+	0x552A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3138,
+	0x342F,
+	0,
+	0x5529,
+	0,
+	0x4C45,
+	0x4931,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3028,
+	0,
+	0,
+	0,
+	0,
+	0x3079,
+	0,
+	0,
+	0,
+	0x3B51,
+
+	0,
+	0x3052,
+	0,
+	0x3023,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5532,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5530,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4C3C,
+	0,
+	0x5533,
+	0,
+	0x5531,
+	0,
+	0,
+	0x552F,
+	0x3F31,
+	0,
+	0,
+	0,
+	0,
+	0x552E,
+	0,
+	0,
+	0,
+	0x4A5A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3864,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5537,
+	0x5538,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3E2B,
+	0,
+	0,
+	0,
+	0x5534,
+	0x4F2C,
+	0,
+	0,
+	0,
+	0,
+	0x474C,
+	0,
+	0,
+	0x5536,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3A27,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5539,
+	0,
+	0,
+	0,
+	0x4958,
+	0,
+	0,
+	0,
+	0x553A,
+	0,
+	0x5535,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4C3B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x475E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x553B,
+	0x4932,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x553C,
+	0x5540,
+	0x553D,
+	0,
+	0,
+	0x3247,
+	0x553F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3C3B,
+	0,
+	0x553E,
+	0x3779,
+	0,
+	0,
+	0,
+	0x554C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5545,
+	0x5542,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4364,
+	0,
+	0x5541,
+	0,
+	0,
+	0x5543,
+	0,
+	0,
+	0x5544,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5546,
+	0x5547,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3472,
+	0,
+	0x5549,
+	0x5548,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x554A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3E6E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x554D,
+	0,
+	0x445C,
+	0,
+	0,
+	0,
+	0x3145,
+	0,
+	0x554B,
+	0,
+	0,
+	0,
+	0x554E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x554F,
+	0,
+	0x5552,
+	0,
+	0,
+	0x5550,
+	0,
+	0x5551,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3B52,
+	0x5553,
+	0,
+	0,
+	0x3926,
+	0x5554,
+	0,
+	0x3B7A,
+	0x4238,
+	0,
+	0x5555,
+	0x5556,
+	0x3B5A,
+	0x3927,
+	0,
+	0x4C52,
+	0,
+	0,
+	0,
+	0x3528,
+	0x3849,
+	0x5557,
+	0x3358,
+	0,
+	0,
+	0x5558,
+	0,
+	0x4239,
+	0,
+	0,
+	0,
+	0,
+	0x5559,
+	0x5623,
+	0,
+	0x555A,
+	0,
+	0x555B,
+	0,
+	0,
+	0x555C,
+	0,
+	0x555E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x555F,
+	0,
+	0,
+	0x5560,
+	0,
+	0x4270,
+	0,
+	0x3127,
+	0x3C69,
+	0x3042,
+	0,
+	0x4157,
+	0x3430,
+	0x3C35,
+	0,
+	0x3928,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4566,
+	0,
+	0x3D21,
+	0x3431,
+	0x4368,
+	0x446A,
+	0x3038,
+	0x3539,
+	0x4A75,
+	0,
+	0x3C42,
+	0,
+	0,
+	0x3552,
+	0x406B,
+	0x3C3C,
+	0x4D28,
+	0x5561,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x355C,
+	0,
+	0x3A4B,
+	0,
+	0,
+	0x3332,
+	0x3163,
+	0x3E2C,
+	0x3248,
+	0,
+	0x5562,
+	0x4D46,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D49,
+	0,
+	0,
+	0x3C64,
+	0x5563,
+	0x3473,
+	0x4652,
+	0x4C29,
+	0x5564,
+	0,
+	0x5565,
+	0,
+	0,
+	0x4959,
+	0,
+	0,
+	0,
+	0x5567,
+	0,
+	0x3428,
+	0x3677,
+	0x5566,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3432,
+	0,
+	0x3F32,
+	0x556B,
+	0x3B21,
+	0,
+	0x3249,
+	0x556A,
+	0,
+	0x5568,
+	0x556C,
+	0x5569,
+	0x472B,
+	0x5C4D,
+	0x3F33,
+	0,
+	0x556D,
+	0,
+	0,
+	0x4E40,
+	0,
+	0x556E,
+	0,
+	0,
+	0x5570,
+	0,
+	0x437E,
+	0x556F,
+	0,
+	0x4023,
+	0,
+	0x3B7B,
+	0,
+	0,
+	0,
+	0x4250,
+	0x3C77,
+
+	0,
+	0x4975,
+	0x406C,
+	0,
+	0x3C4D,
+	0x5571,
+	0x3E2D,
+	0x5572,
+	0x5573,
+	0x3053,
+	0x423A,
+	0x3F52,
+	0,
+	0x5574,
+	0x4633,
+	0x3E2E,
+	0,
+	0x3E2F,
+	0,
+	0x5575,
+	0,
+	0,
+	0x406D,
+	0,
+	0,
+	0,
+	0x3E30,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5576,
+	0,
+	0x5577,
+	0,
+	0x4C60,
+	0,
+	0,
+	0,
+	0x5578,
+	0,
+	0,
+	0,
+	0,
+	0x3646,
+	0,
+	0,
+	0,
+	0x3D22,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5579,
+	0x557A,
+	0x3C5C,
+	0x3F2C,
+	0x4674,
+	0x3F54,
+	0x4878,
+	0x4722,
+	0x3649,
+	0x557B,
+	0,
+	0,
+	0,
+	0x356F,
+	0x557C,
+	0,
+	0x367E,
+	0,
+	0x464F,
+	0x3230,
+	0,
+	0x3B53,
+	0x557D,
+	0x5622,
+	0x5621,
+	0x367D,
+	0,
+	0x557E,
+	0,
+	0x4538,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4230,
+	0,
+	0x454B,
+	0x3C48,
+	0,
+	0,
+	0x4158,
+	0x4D7A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5624,
+	0,
+	0x5625,
+	0x4656,
+	0,
+	0x3B33,
+	0,
+	0,
+	0,
+	0,
+	0x5627,
+	0,
+	0,
+	0x5628,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5629,
+	0,
+	0,
+	0,
+	0x3474,
+	0x562A,
+	0,
+	0,
+	0x562B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x322C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x413B,
+	0x3464,
+	0,
+	0x562D,
+	0x4C28,
+	0,
+	0,
+	0,
+	0,
+	0x4252,
+	0,
+	0x3359,
+	0,
+	0,
+	0x562F,
+	0x5631,
+	0x345F,
+	0,
+	0,
+	0x562E,
+	0x5630,
+	0,
+	0x5633,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5632,
+	0,
+	0x5634,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5635,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x463D,
+	0x362E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3265,
+	0x5636,
+	0x563B,
+	0,
+	0,
+	0x5639,
+	0,
+	0x4A77,
+	0x4A76,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4567,
+	0,
+	0,
+	0,
+	0x5638,
+	0x3D54,
+	0,
+	0x5637,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F72,
+	0,
+	0,
+	0,
+	0x563C,
+	0,
+	0,
+	0x3A6A,
+	0,
+	0,
+	0x5642,
+	0,
+	0,
+	0x5643,
+	0x563D,
+	0x3333,
+	0x563E,
+	0x5647,
+	0x5646,
+	0x5645,
+	0x5641,
+	0,
+	0,
+	0,
+	0x5640,
+	0,
+	0,
+	0x5644,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A78,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x564B,
+	0x5648,
+	0,
+	0x564A,
+	0,
+	0x4D72,
+	0,
+	0x5649,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x563F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F73,
+	0,
+	0,
+	0x564C,
+	0,
+	0,
+	0x3A37,
+	0,
+	0,
+	0,
+	0x564D,
+	0,
+	0,
+	0x564E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5651,
+	0,
+	0x5650,
+	0,
+	0,
+	0x564F,
+	0,
+	0,
+	0,
+	0x4568,
+	0x563A,
+	0,
+	0,
+	0,
+	0x5657,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5653,
+	0,
+	0,
+	0,
+	0,
+	0x5652,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5654,
+	0,
+	0x5655,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5658,
+	0,
+	0,
+	0x4E66,
+	0,
+	0x5659,
+	0x5656,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x565A,
+	0,
+	0,
+	0x3460,
+	0x565B,
+	0,
+	0,
+	0,
+	0,
+	0x565D,
+	0x565C,
+	0,
+	0,
+	0x565E,
+	0,
+	0,
+	0,
+	0,
+	0x565F,
+	0,
+	0x406E,
+	0x3D23,
+	0,
+	0,
+	0x3D64,
+	0,
+	0x4163,
+	0,
+	0x3929,
+	0x3A38,
+	0x392A,
+	0x3570,
+	0,
+	0,
+	0x5660,
+	0,
+	0,
+	0x3A39,
+	0,
+	0,
+	0x384A,
+	0x5661,
+	0x4C26,
+	0x4743,
+	0x5662,
+	0,
+	0x392B,
+	0,
+	0,
+	0,
+	0x342C,
+	0,
+	0x4327,
+	0x3652,
+	0,
+
+	0,
+	0,
+	0x3B54,
+	0x495B,
+	0,
+	0,
+	0x4841,
+	0,
+	0,
+	0,
+	0,
+	0x5663,
+	0x3475,
+	0,
+	0,
+	0,
+	0,
+	0x5666,
+	0,
+	0,
+	0,
+	0,
+	0x4421,
+	0,
+	0,
+	0x5665,
+	0x5664,
+	0x5667,
+	0,
+	0x446B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F63,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3B55,
+	0,
+	0x404A,
+	0,
+	0x4253,
+	0x3522,
+	0,
+	0,
+	0x4422,
+	0,
+	0,
+	0x5668,
+	0x5669,
+	0x3E6F,
+	0,
+	0,
+	0,
+	0,
+	0x4B39,
+	0,
+	0,
+	0x566C,
+	0,
+	0,
+	0x566B,
+	0x566A,
+	0x497D,
+	0,
+	0x5673,
+	0,
+	0,
+	0,
+	0,
+	0x4B5A,
+	0,
+	0x566D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x566F,
+	0x4B6B,
+	0,
+	0x566E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5670,
+	0,
+	0x4828,
+	0x5671,
+	0x4A3E,
+	0x5672,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3433,
+	0x4A3F,
+	0x472F,
+	0x5674,
+	0x5675,
+	0,
+	0x392C,
+	0x3434,
+	0x5676,
+	0x3838,
+	0x4D44,
+	0x4D29,
+	0x3476,
+	0x5678,
+	0,
+	0x4423,
+	0,
+	0x392D,
+	0x3E31,
+	0,
+	0,
+	0x485F,
+	0,
+	0,
+	0x3E32,
+	0,
+	0,
+	0,
+	0,
+	0x3D78,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x446C,
+	0x4A79,
+	0x4539,
+	0,
+	0,
+	0x392E,
+	0,
+	0x495C,
+	0,
+	0,
+	0,
+	0x5679,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4559,
+	0x3A42,
+	0,
+	0,
+	0,
+	0x384B,
+	0,
+	0x446D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3043,
+	0x3D6E,
+	0x392F,
+	0x4D47,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x567A,
+	0x567B,
+	0x4751,
+	0,
+	0,
+	0,
+	0,
+	0x567C,
+	0x4E77,
+	0x4F2D,
+	0,
+	0,
+	0,
+	0,
+	0x567E,
+	0x567D,
+	0,
+	0,
+	0x3347,
+	0,
+	0,
+	0x5721,
+	0,
+	0,
+	0,
+	0x5724,
+	0x5725,
+	0,
+	0x5723,
+	0,
+	0x4940,
+	0x3E33,
+	0x5727,
+	0x5726,
+	0x5722,
+	0,
+	0,
+	0,
+	0,
+	0x5728,
+	0x5729,
+	0,
+	0,
+	0x572A,
+	0,
+	0,
+	0,
+	0x572D,
+	0x572B,
+	0,
+	0x572C,
+	0x572E,
+	0,
+	0x3164,
+	0x446E,
+	0x572F,
+	0,
+	0x377A,
+	0x3276,
+	0x4736,
+	0,
+	0x5730,
+	0x467B,
+
+	0,
+	0x4A5B,
+	0,
+	0x5731,
+	0x4F2E,
+	0,
+	0,
+	0,
+	0,
+	0x5732,
+	0x4A40,
+	0x5735,
+	0x5021,
+	0x5031,
+	0,
+	0x3C30,
+	0x4675,
+	0x5736,
+	0,
+	0x355D,
+	0x4424,
+	0x307A,
+	0x5737,
+	0x4A26,
+	0x3930,
+	0,
+	0,
+	0x4350,
+	0,
+	0,
+	0,
+	0x446F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4C6F,
+	0x3839,
+	0x384C,
+	0,
+	0x5738,
+	0,
+	0,
+	0,
+	0x5739,
+	0,
+	0x573F,
+	0,
+	0x3C65,
+	0,
+	0,
+	0,
+	0x4425,
+	0,
+	0x362F,
+	0x573A,
+	0,
+	0,
+	0,
+	0x492B,
+	0,
+	0x4346,
+	0,
+	0,
+	0x573B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x573C,
+	0,
+	0x3630,
+	0,
+	0x573D,
+	0,
+	0x573E,
+	0,
+	0,
+	0x5740,
+	0,
+	0x4576,
+	0,
+	0,
+	0x5741,
+	0x5742,
+	0,
+	0x5743,
+	0,
+	0,
+	0x5734,
+	0x5733,
+	0,
+	0,
+	0,
+	0x5744,
+	0x3741,
+	0,
+	0,
+	0,
+	0x4927,
+	0,
+	0,
+	0x3A4C,
+	0x4937,
+	0x4426,
+	0x494B,
+	0x5745,
+	0,
+	0,
+	0x3E34,
+	0x3146,
+	0,
+	0x5746,
+	0,
+	0,
+	0,
+	0x5747,
+	0,
+	0x4C72,
+	0,
+	0,
+	0x4860,
+	0,
+	0,
+	0x574A,
+	0x317D,
+	0x402C,
+	0x5749,
+	0x5748,
+	0x3742,
+	0x4254,
+	0,
+	0x574E,
+	0x574C,
+	0,
+	0x574B,
+	0x4E27,
+	0x3865,
+	0,
+	0,
+	0,
+	0x3D79,
+	0x574D,
+	0x454C,
+	0x3D3E,
+	0,
+	0,
+	0,
+	0x4640,
+	0x5751,
+	0x5750,
+	0,
+	0,
+	0,
+	0,
+	0x574F,
+	0,
+	0x5752,
+	0x3866,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5753,
+	0x497C,
+	0x3D5B,
+	0,
+	0,
+	0x5754,
+	0x4879,
+	0,
+	0,
+	0,
+	0,
+	0x4641,
+	0x4427,
+	0,
+	0,
+	0,
+	0,
+	0x4530,
+	0,
+	0,
+	0x5755,
+	0x352B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F34,
+	0,
+	0x492C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3477,
+	0x4726,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5756,
+	0x3B56,
+	0x4B3A,
+	0x4B3B,
+	0,
+	0,
+	0x317E,
+	0x575B,
+	0,
+	0,
+	0x4369,
+	0,
+	0,
+	0,
+	0x5758,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3277,
+	0,
+	0,
+	0,
+	0,
+	0x582D,
+	0x575A,
+	0,
+	0,
+	0,
+	0x4730,
+	0,
+	0,
+	0x5759,
+	0,
+	0,
+	0x5757,
+	0,
+	0x397A,
+	0,
+	0x575D,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5763,
+	0x5769,
+	0x5761,
+	0,
+	0x455C,
+	0,
+	0,
+	0x5766,
+	0x495D,
+	0,
+	0,
+	0x5760,
+	0,
+	0x5765,
+	0x4E67,
+	0x3B57,
+	0,
+	0,
+	0x4255,
+	0x575E,
+	0,
+	0,
+	0,
+	0x355E,
+	0x5768,
+	0x402D,
+	0x3165,
+	0x5762,
+	0x3278,
+	0x5767,
+	0,
+	0,
+	0,
+	0x3631,
+	0,
+	0x5764,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x576A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x576C,
+	0x5776,
+	0x5774,
+	0,
+	0,
+	0x5771,
+	0,
+	0,
+	0,
+	0x5770,
+	0x4E78,
+	0,
+	0x5772,
+	0,
+	0,
+	0x3632,
+	0,
+	0x3931,
+	0,
+	0,
+	0x3D7A,
+	0,
+	0,
+	0,
+	0x5779,
+	0x576B,
+	0,
+	0,
+	0,
+	0,
+	0x576F,
+	0x575F,
+	0,
+	0x327A,
+	0x5773,
+	0x5775,
+	0x4351,
+	0,
+	0,
+	0x3A28,
+	0x3238,
+	0x576D,
+	0x5778,
+	0x5777,
+	0x3633,
+	0,
+	0x4229,
+	0x3366,
+	0,
+	0,
+	0,
+	0,
+	0x3743,
+	0,
+	0x576E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x577A,
+	0,
+	0x577D,
+	0x5821,
+	0,
+	0,
+	0,
+	0,
+	0x3C3D,
+	0,
+	0x5827,
+	0x4470,
+	0x577B,
+	0,
+	0,
+	0,
+	0,
+	0x5825,
+	0,
+	0x3279,
+	0,
+	0x5823,
+	0x5824,
+	0,
+	0,
+	0x577E,
+	0x5822,
+	0,
+	0,
+	0,
+	0x3867,
+	0x4D2A,
+	0,
+	0,
+	0x3435,
+	0,
+	0,
+	0x3159,
+	0x5826,
+	0,
+	0x473A,
+	0x302D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4861,
+	0x575C,
+	0x582C,
+	0x5830,
+	0x4C65,
+	0,
+	0x5829,
+	0,
+	0,
+	0,
+	0x4569,
+	0x582E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3E70,
+	0x582F,
+	0x4657,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4F47,
+	0,
+	0x582B,
+	0,
+	0,
+	0,
+	0,
+	0x5831,
+	0,
+	0x397B,
+	0,
+	0x404B,
+	0,
+	0,
+	0x3054,
+	0x582A,
+	0x5828,
+	0,
+	0x415A,
+	0,
+	0,
+	0,
+	0x577C,
+	0x3B34,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4246,
+	0x583D,
+	0,
+	0x415B,
+	0x5838,
+	0,
+	0x5835,
+	0x5836,
+	0,
+	0x3C66,
+	0x5839,
+	0x583C,
+	0,
+	0,
+	0,
+	0,
+
+	0x5837,
+	0x3D25,
+	0,
+	0x583A,
+	0,
+	0,
+	0x5834,
+	0,
+	0x4C7C,
+	0x4C7B,
+	0,
+	0,
+	0,
+	0x583E,
+	0x583F,
+	0x3055,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5833,
+	0,
+	0,
+	0,
+	0,
+	0x3672,
+	0x3026,
+	0,
+	0,
+	0,
+	0x3436,
+	0,
+	0x583B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5843,
+	0x5842,
+	0,
+	0,
+	0,
+	0x5847,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5848,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5846,
+	0x5849,
+	0x5841,
+	0x5845,
+	0,
+	0,
+	0x584A,
+	0,
+	0x584B,
+	0,
+	0,
+	0x5840,
+	0x3B7C,
+	0,
+	0x5844,
+	0x4256,
+	0x3932,
+	0x5832,
+	0x3F35,
+	0,
+	0,
+	0,
+	0,
+	0x5858,
+	0,
+	0x4A69,
+	0,
+	0,
+	0x584E,
+	0x584F,
+	0x5850,
+	0,
+	0,
+	0x5857,
+	0,
+	0x5856,
+	0,
+	0,
+	0x4B7D,
+	0x3437,
+	0,
+	0x5854,
+	0,
+	0x3745,
+	0x3334,
+	0,
+	0,
+	0x5851,
+	0,
+	0,
+	0x4E38,
+	0x5853,
+	0x3056,
+	0x5855,
+	0,
+	0x584C,
+	0x5852,
+	0x5859,
+	0x3744,
+	0x584D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D5D,
+	0,
+	0,
+	0,
+	0x4D2B,
+	0,
+	0,
+	0,
+	0,
+	0x585C,
+	0,
+	0,
+	0x5860,
+	0,
+	0,
+	0,
+	0x417E,
+	0,
+	0x4E79,
+	0x5861,
+	0,
+	0,
+	0x585E,
+	0,
+	0x585B,
+	0,
+	0,
+	0x585A,
+	0x585F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A30,
+	0,
+	0,
+	0x4634,
+	0,
+	0x3746,
+	0,
+	0x5862,
+	0x585D,
+	0,
+	0x5863,
+	0,
+	0,
+	0,
+	0x377B,
+	0,
+	0,
+	0,
+	0x3231,
+	0,
+	0,
+	0,
+	0x586B,
+	0,
+	0,
+	0,
+	0x3438,
+	0,
+	0,
+	0,
+	0,
+	0x5869,
+	0,
+	0,
+	0x586A,
+	0x3A29,
+	0x5868,
+	0x5866,
+	0x5865,
+	0x586C,
+	0x5864,
+	0x586E,
+	0,
+	0,
+	0x327B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5870,
+	0,
+	0,
+	0x586F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4428,
+	0,
+	0x5873,
+	0,
+	0x5871,
+	0x5867,
+	0x377C,
+	0,
+	0x5872,
+	0,
+	0x5876,
+	0x5875,
+	0x5877,
+	0x5874,
+
+	0x5878,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5879,
+	0x587A,
+	0x4A6A,
+	0,
+	0x587C,
+	0x587B,
+	0x3D3F,
+	0,
+	0x402E,
+	0x3266,
+	0x327C,
+	0,
+	0x587D,
+	0,
+	0x303F,
+	0,
+	0,
+	0,
+	0x404C,
+	0x587E,
+	0,
+	0x6C43,
+	0x5921,
+	0x3761,
+	0,
+	0x5922,
+	0,
+	0,
+	0,
+	0,
+	0x406F,
+	0,
+	0,
+	0,
+	0x5923,
+	0,
+	0,
+	0,
+	0x5924,
+	0x353A,
+	0x5925,
+	0,
+	0x5926,
+	0x5927,
+	0x4257,
+	0,
+	0,
+	0,
+	0x384D,
+	0,
+	0,
+	0x4C61,
+	0,
+	0,
+	0,
+	0x4B3C,
+	0x3D6A,
+	0x5928,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4070,
+	0x6E3D,
+	0x4862,
+	0,
+	0x3C6A,
+	0,
+	0x3A4D,
+	0x5929,
+	0,
+	0,
+	0,
+	0,
+	0x4247,
+	0,
+	0x4A27,
+	0,
+	0,
+	0x4271,
+	0,
+	0,
+	0x592C,
+	0,
+	0,
+	0x592A,
+	0,
+	0x592D,
+	0,
+	0,
+	0x592B,
+	0,
+	0,
+	0,
+	0,
+	0x592E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A31,
+	0,
+	0,
+	0x3037,
+	0,
+	0,
+	0,
+	0,
+	0x495E,
+	0,
+	0,
+	0x4863,
+	0,
+	0,
+	0x592F,
+	0,
+	0x5932,
+	0x3E35,
+	0x353B,
+	0,
+	0x5930,
+	0x5937,
+	0x3E36,
+	0,
+	0,
+	0,
+	0,
+	0x5931,
+	0x4744,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D5E,
+	0x5933,
+	0x5934,
+	0x5938,
+	0x456A,
+	0x5935,
+	0x3933,
+	0x405E,
+	0,
+	0,
+	0x5946,
+	0x4834,
+	0,
+	0x4272,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4864,
+	0x5A2D,
+	0,
+	0,
+	0,
+	0,
+	0x4A7A,
+	0,
+	0,
+	0,
+	0x4471,
+	0,
+	0,
+	0,
+	0x4B75,
+	0,
+	0x593B,
+	0x3221,
+	0x436A,
+	0,
+	0,
+	0,
+	0,
+	0x5944,
+	0,
+	0,
+	0x4334,
+	0x593E,
+	0x5945,
+	0x5940,
+	0x5947,
+	0x5943,
+	0,
+	0x5942,
+	0x476F,
+	0,
+	0x593C,
+	0x327D,
+	0x593A,
+	0x3571,
+	0x4273,
+	0x5936,
+	0,
+	0,
+	0x5939,
+	0x3934,
+	0x405B,
+	0,
+	0x3E37,
+	0x5941,
+	0x4752,
+	0,
+	0,
+	0x3572,
+	0x3348,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3367,
+	0x3F21,
+	0x5949,
+	0x594E,
+	0,
+	0x594A,
+	0,
+	0x377D,
+	0,
+	0x594F,
+	0x3B22,
+	0x3969,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D26,
+	0x593D,
+
+	0,
+	0x3B7D,
+	0x594C,
+	0,
+	0,
+	0,
+	0,
+	0x3B58,
+	0x594D,
+	0x3044,
+	0,
+	0,
+	0x5948,
+	0,
+	0,
+	0,
+	0,
+	0x4429,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3573,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3634,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x594B,
+	0x3027,
+	0,
+	0,
+	0x3A43,
+	0,
+	0,
+	0,
+	0x3F36,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4472,
+	0,
+	0,
+	0x4854,
+	0x5951,
+	0x415E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x422A,
+	0,
+	0,
+	0x3B2B,
+	0x5952,
+	0,
+	0x5954,
+	0x5950,
+	0,
+	0,
+	0,
+	0,
+	0x4A61,
+	0,
+	0x443D,
+	0,
+	0,
+	0,
+	0,
+	0x415C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A7B,
+	0x3C4E,
+	0x5960,
+	0,
+	0x595F,
+	0,
+	0,
+	0x3F78,
+	0,
+	0,
+	0,
+	0x377E,
+	0,
+	0,
+	0,
+	0x5959,
+	0x3E39,
+	0,
+	0,
+	0x4668,
+	0x4731,
+	0,
+	0,
+	0,
+	0,
+	0x5957,
+	0,
+	0,
+	0x415D,
+	0,
+	0,
+	0,
+	0,
+	0x3C78,
+	0x595C,
+	0,
+	0,
+	0x3E38,
+	0,
+	0x5956,
+	0x595B,
+	0,
+	0,
+	0x4753,
+	0,
+	0,
+	0,
+	0x5955,
+	0,
+	0x3721,
+	0,
+	0,
+	0x335D,
+	0,
+	0,
+	0,
+	0x595D,
+	0x4E2B,
+	0x3A4E,
+	0x4335,
+	0x595A,
+	0,
+	0x405C,
+	0,
+	0x3935,
+	0x3F64,
+	0x3166,
+	0x413C,
+	0x5958,
+	0x3545,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3747,
+	0,
+	0x444F,
+	0x595E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x415F,
+	0,
+	0,
+	0x5961,
+	0,
+	0x5963,
+	0,
+	0,
+	0x4237,
+	0x5969,
+	0,
+	0x5964,
+	0,
+	0,
+	0x5966,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4941,
+	0x4473,
+	0,
+	0x5967,
+	0,
+	0,
+	0,
+	0x4D2C,
+	0,
+	0,
+	0,
+	0x4D48,
+	0x3439,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x302E,
+	0,
+	0x5965,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5962,
+	0,
+	0,
+	0,
+	0,
+	0x3478,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3167,
+	0,
+	0x5968,
+	0,
+	0,
+	0,
+	0x4D49,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x596C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x423B,
+	0,
+	0x5973,
+	0,
+	0,
+	0,
+	0x596D,
+	0,
+	0,
+	0x596A,
+	0x5971,
+	0,
+	0,
+	0,
+	0,
+	0x5953,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x596E,
+	0,
+	0x5972,
+	0,
+	0,
+	0,
+	0x4842,
+	0x456B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x596B,
+	0,
+	0x596F,
+	0,
+	0,
+	0,
+	0x3748,
+	0,
+	0,
+	0,
+	0x3A71,
+	0,
+	0,
+	0,
+	0x405D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5977,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4526,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5974,
+	0,
+	0x4B60,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5975,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5976,
+	0,
+	0x4C4E,
+	0,
+	0x4022,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3762,
+	0,
+	0,
+	0,
+	0,
+	0x597D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3B35,
+	0x597A,
+	0,
+	0x5979,
+	0,
+	0,
+	0,
+	0,
+	0x4732,
+	0,
+	0,
+	0,
+	0x4635,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4531,
+	0x597B,
+	0,
+	0,
+	0,
+	0x597C,
+	0,
+	0x496F,
+	0,
+	0x4745,
+	0x3B23,
+	0,
+	0x4071,
+	0,
+	0x4B50,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3349,
+	0,
+	0x5A25,
+	0x597E,
+	0,
+	0,
+	0,
+	0,
+	0x4D4A,
+	0x5A27,
+	0,
+	0,
+	0x5A23,
+	0,
+	0x5A24,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4160,
+	0,
+	0,
+	0,
+	0,
+	0x5A22,
+	0,
+	0x593F,
+	0,
+	0,
+	0,
+	0x5A26,
+	0,
+	0x5A21,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5A2B,
+	0x5A2C,
+	0x4527,
+	0x5A2E,
+	0,
+	0,
+	0x3B24,
+	0x5A29,
+	0,
+	0,
+	0,
+	0,
+	0x353C,
+	0,
+	0,
+	0x5A2F,
+	0,
+	0x5A28,
+	0x5A33,
+	0,
+	0x5A32,
+	0,
+	0x5A31,
+	0,
+	0,
+	0,
+	0x5A34,
+	0,
+	0,
+	0x5A36,
+	0x3E71,
+	0,
+
+	0x5A35,
+	0,
+	0,
+	0,
+	0,
+	0x5A39,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5A37,
+	0,
+	0,
+	0,
+	0x5A38,
+	0x5970,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5A3B,
+	0x5A3A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5978,
+	0x5A3C,
+	0x5A30,
+	0,
+	0,
+	0x3B59,
+	0,
+	0,
+	0,
+	0,
+	0x5A3D,
+	0x5A3E,
+	0x5A40,
+	0x5A3F,
+	0x5A41,
+	0x327E,
+	0,
+	0x3936,
+	0,
+	0,
+	0x4A7C,
+	0x402F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x384E,
+	0,
+	0,
+	0x5A43,
+	0,
+	0,
+	0,
+	0,
+	0x5A46,
+	0,
+	0x4952,
+	0,
+	0x355F,
+	0,
+	0,
+	0,
+	0x5A45,
+	0x5A44,
+	0x4754,
+	0x5A47,
+	0x3635,
+	0,
+	0,
+	0,
+	0x5A49,
+	0x5A48,
+	0,
+	0,
+	0,
+	0x343A,
+	0x3B36,
+	0,
+	0,
+	0x4658,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3749,
+	0,
+	0,
+	0,
+	0x3F74,
+	0,
+	0x5A4A,
+	0,
+	0x4030,
+	0x4528,
+	0,
+	0x495F,
+	0x5A4B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5A4C,
+	0x5A4D,
+	0,
+	0,
+	0,
+	0x4A38,
+	0x555D,
+	0x4046,
+	0,
+	0,
+	0x494C,
+	0,
+	0x3A58,
+	0,
+	0x4865,
+	0x4843,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x454D,
+	0,
+	0x4E41,
+	0,
+	0x5A4F,
+	0x3C50,
+	0,
+	0,
+	0x5A50,
+	0,
+	0x3036,
+	0,
+	0,
+	0x3654,
+	0x404D,
+	0,
+	0x4960,
+	0,
+	0,
+	0,
+	0x5A51,
+	0x3B42,
+	0x4347,
+	0,
+	0x3B5B,
+	0x3F37,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5A52,
+	0,
+	0x4A7D,
+	0,
+	0,
+	0x3177,
+	0x3B5C,
+	0,
+	0,
+	0,
+	0x5A55,
+	0,
+	0x5A53,
+	0x5A56,
+	0x4E39,
+	0x5A54,
+	0,
+	0,
+	0,
+	0,
+	0x407B,
+	0x5A57,
+	0,
+	0,
+	0x4232,
+	0,
+	0,
+	0x5A58,
+	0,
+	0,
+	0,
+	0,
+	0x347A,
+	0,
+	0x5A5A,
+	0,
+	0x5A59,
+	0,
+	0,
+	0,
+	0,
+	0x5A5B,
+	0x5A5C,
+	0x347B,
+	0,
+	0,
+	0x467C,
+	0x4336,
+	0x356C,
+	0x3B5D,
+	0x4161,
+	0,
+	0,
+	0x3D5C,
+	0x3030,
+	0,
+	0,
+	0,
+	0x5A5D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3222,
+	0x5A61,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0x3937,
+	0x5A60,
+	0,
+	0,
+	0x3A2B,
+	0x3E3A,
+	0,
+	0,
+	0x5A5F,
+	0,
+	0x3E3B,
+	0,
+	0x4C40,
+	0x3A2A,
+	0,
+	0,
+	0,
+	0x3057,
+	0x404E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5A66,
+	0,
+	0,
+	0x4031,
+	0x3147,
+	0,
+	0,
+	0,
+	0,
+	0x3D55,
+	0,
+	0x4B66,
+	0x3A72,
+	0,
+	0,
+	0,
+	0,
+	0x3E3C,
+	0,
+	0x4027,
+	0,
+	0,
+	0,
+	0,
+	0x5A65,
+	0x5A63,
+	0x5A64,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x436B,
+	0,
+	0,
+	0x5B26,
+	0,
+	0x5A6A,
+	0x3B7E,
+	0x3938,
+	0x5A68,
+	0,
+	0,
+	0,
+	0,
+	0x5A69,
+	0,
+	0x3F38,
+	0,
+	0,
+	0,
+	0x5A67,
+	0,
+	0,
+	0x3B2F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5A6C,
+	0x5A6B,
+	0x5A70,
+	0,
+	0,
+	0x5A71,
+	0,
+	0x5A6D,
+	0,
+	0x3322,
+	0x5A6E,
+	0x5A6F,
+	0x4855,
+	0,
+	0,
+	0,
+	0,
+	0x4961,
+	0x374A,
+	0x5A72,
+	0,
+	0,
+	0,
+	0x4032,
+	0,
+	0x3E3D,
+	0,
+	0,
+	0,
+	0x4352,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3647,
+	0,
+	0x5A73,
+	0x5A77,
+	0,
+	0,
+	0x324B,
+	0x5A74,
+	0x5A76,
+	0,
+	0,
+	0,
+	0,
+	0x5A75,
+	0,
+	0,
+	0x3D6B,
+	0,
+	0,
+	0,
+	0,
+	0x4348,
+	0x3045,
+	0x5A78,
+	0,
+	0,
+	0,
+	0,
+	0x5A79,
+	0,
+	0,
+	0,
+	0,
+	0x442A,
+	0,
+	0,
+	0,
+	0x4E71,
+	0,
+	0,
+	0,
+	0,
+	0x3B43,
+	0,
+	0,
+	0x4A6B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B3D,
+	0,
+	0,
+	0,
+	0x5B22,
+	0x5A7B,
+	0,
+	0,
+	0x5A7E,
+	0,
+	0x5A7D,
+	0,
+	0,
+	0x5A7A,
+	0,
+	0,
+	0x5B21,
+	0,
+	0,
+	0x465E,
+	0,
+	0x5A7C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5B23,
+	0,
+	0,
+	0x3D6C,
+	0x5B24,
+	0,
+	0x4D4B,
+	0x4778,
+	0,
+	0,
+	0x5B25,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5B27,
+	0,
+	0,
+	0x5B28,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5B29,
+	0,
+	0x364A,
+	0x3148,
+	0x3939,
+	0x5B2A,
+	0,
+	0x5B2B,
+	0x3D71,
+	0x4162,
+	0,
+	0,
+	0x5258,
+	0x413E,
+	0x413D,
+	0x4258,
+
+	0x3A47,
+	0,
+	0,
+	0x5072,
+	0,
+	0,
+	0,
+	0,
+	0x376E,
+	0x4D2D,
+	0,
+	0x4A7E,
+	0,
+	0x497E,
+	0,
+	0x5B2C,
+	0,
+	0,
+	0,
+	0,
+	0x3A73,
+	0x443F,
+	0x5B2D,
+	0x4F2F,
+	0,
+	0,
+	0,
+	0x4B3E,
+	0,
+	0x442B,
+	0x5B2E,
+	0x347C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5B2F,
+	0x5B30,
+	0x4C5A,
+	0,
+	0x4C24,
+	0x4B76,
+	0x4B5C,
+	0x3B25,
+	0x5B32,
+	0,
+	0,
+	0x3C6B,
+	0,
+	0,
+	0x4B51,
+	0,
+	0x5B34,
+	0x5B37,
+	0x5B36,
+	0,
+	0x3479,
+	0,
+	0,
+	0x3560,
+	0,
+	0x5B33,
+	0,
+	0x5B35,
+	0,
+	0,
+	0,
+	0,
+	0x5B38,
+	0,
+	0,
+	0x3F79,
+	0,
+	0,
+	0,
+	0,
+	0x4D7B,
+	0x3049,
+	0x3A60,
+	0x423C,
+	0,
+	0x3C5D,
+	0,
+	0,
+	0x3E73,
+	0,
+	0,
+	0x5B3B,
+	0,
+	0,
+	0x454E,
+	0,
+	0x5B39,
+	0x422B,
+	0x5B3A,
+	0x3E72,
+	0x4C5D,
+	0x5B3C,
+	0x5B3D,
+	0x4D68,
+	0,
+	0,
+	0,
+	0,
+	0x5B42,
+	0,
+	0,
+	0x393A,
+	0,
+	0x4755,
+	0x5B3F,
+	0x456C,
+	0x5A5E,
+	0x5A62,
+	0,
+	0x354F,
+	0,
+	0x4747,
+	0,
+	0,
+	0,
+	0,
+	0x5B41,
+	0,
+	0x3E3E,
+	0x4844,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5B47,
+	0,
+	0x487A,
+	0,
+	0x5B3E,
+	0,
+	0x5B44,
+	0x5B43,
+	0,
+	0,
+	0,
+	0x404F,
+	0,
+	0,
+	0,
+	0,
+	0x4B6D,
+	0,
+	0x4E53,
+	0,
+	0,
+	0x4B67,
+	0,
+	0x324C,
+	0x3B5E,
+	0,
+	0,
+	0x4F48,
+	0x5B46,
+	0x3F75,
+	0,
+	0,
+	0,
+	0x5B45,
+	0,
+	0,
+	0x5B40,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x384F,
+	0,
+	0,
+	0,
+	0x5B4C,
+	0x5B4A,
+	0,
+	0x324D,
+	0x5B48,
+	0x5B4E,
+	0x5B54,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4248,
+	0,
+	0,
+	0x4A41,
+	0,
+	0x5B56,
+	0,
+	0,
+	0,
+	0x4922,
+	0,
+	0,
+	0,
+	0x5B55,
+	0x4770,
+	0x4B3F,
+	0x343B,
+	0,
+	0x4077,
+	0x3D40,
+	0,
+	0,
+	0,
+	0x4453,
+	0,
+	0x4D2E,
+	0,
+	0,
+	0x5B51,
+	0x5B50,
+	0,
+	0,
+	0,
+	0x5B52,
+	0,
+	0x5B4F,
+	0,
+	0,
+	0x5B57,
+	0,
+	0x5B4D,
+	0,
+	0,
+	0x5B4B,
+	0,
+	0x5B53,
+	0x5B49,
+	0,
+	0x436C,
+	0,
+	0x4C78,
+	0x3C46,
+	0x3A74,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3A3A,
+	0,
+	0,
+	0x4B6F,
+	0x3341,
+
+	0,
+	0,
+	0x444E,
+	0x464A,
+	0x3149,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4072,
+	0,
+	0,
+	0x4034,
+	0x372A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5B59,
+	0,
+	0,
+	0x393B,
+	0x337C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5B5B,
+	0x3374,
+	0x5B61,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5B5E,
+	0,
+	0x4073,
+	0,
+	0,
+	0,
+	0x334B,
+	0x3A2C,
+	0,
+	0,
+	0x334A,
+	0x3A4F,
+	0,
+	0,
+	0x5B5C,
+	0x3765,
+	0x374B,
+	0x456D,
+	0,
+	0,
+	0x5B5A,
+	0,
+	0x3046,
+	0,
+	0,
+	0,
+	0,
+	0x5B5D,
+	0x5B5F,
+	0,
+	0x364D,
+	0x372C,
+	0,
+	0x343C,
+	0x354B,
+	0,
+	0,
+	0,
+	0,
+	0x5B62,
+	0,
+	0,
+	0x3A79,
+	0x4B71,
+	0,
+	0x3B37,
+	0,
+	0,
+	0,
+	0x5B63,
+	0,
+	0,
+	0,
+	0x4930,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5B6F,
+	0,
+	0x3233,
+	0x5B64,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5B75,
+	0x5B65,
+	0,
+	0x4E42,
+	0,
+	0x5B6C,
+	0,
+	0x475F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5B74,
+	0,
+	0x5B67,
+	0,
+	0,
+	0,
+	0x3034,
+	0x5B69,
+	0,
+	0,
+	0x393C,
+	0,
+	0,
+	0,
+	0x5B6B,
+	0,
+	0x5B6A,
+	0,
+	0x5B66,
+	0x5B71,
+	0,
+	0x3E3F,
+	0,
+	0,
+	0,
+	0x546D,
+	0x3868,
+	0x4D7C,
+	0,
+	0,
+	0,
+	0,
+	0x5B68,
+	0,
+	0x4474,
+	0x3323,
+	0x3A2D,
+	0,
+	0x5B60,
+	0,
+	0x5B70,
+	0x3361,
+	0,
+	0,
+	0x5B6E,
+	0x5B72,
+	0,
+	0x456E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x347E,
+	0,
+	0x5C32,
+	0,
+	0,
+	0x4C49,
+	0x5B77,
+	0x347D,
+	0,
+	0x5B7E,
+	0,
+	0,
+	0,
+	0,
+	0x4B40,
+	0,
+	0x5C21,
+	0x5C23,
+	0,
+	0x5C27,
+	0x5B79,
+	0,
+	0x432A,
+	0,
+	0,
+	0,
+	0,
+	0x456F,
+	0x5C2B,
+	0x5B7C,
+	0,
+	0x5C28,
+	0,
+	0,
+	0,
+	0x5C22,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F39,
+	0x5C2C,
+	0,
+	0,
+	0x4033,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C2A,
+	0x343D,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0x4F50,
+	0x5B76,
+	0,
+	0,
+	0x5C26,
+	0x3058,
+	0,
+	0,
+	0x5B78,
+	0,
+	0,
+	0x4C3A,
+	0x5B7D,
+	0x3F22,
+	0x4447,
+	0x5B73,
+	0,
+	0,
+	0x5C25,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F7A,
+	0x5C2F,
+	0x3371,
+	0x3821,
+	0,
+	0,
+	0,
+	0,
+	0x5C31,
+	0x5B7A,
+	0x5C30,
+	0,
+	0x5C29,
+	0x5B7B,
+	0,
+	0x5C2D,
+	0,
+	0x5C2E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C3F,
+	0,
+	0,
+	0,
+	0x464E,
+	0,
+	0x5C24,
+	0,
+	0,
+	0x5C3B,
+	0,
+	0,
+	0,
+	0x5C3D,
+	0,
+	0x4458,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D4C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4976,
+	0x5C38,
+	0x424A,
+	0,
+	0,
+	0,
+	0x5C3E,
+	0x413F,
+	0,
+	0x5C35,
+	0x5C42,
+	0x5C41,
+	0,
+	0x466F,
+	0x5C40,
+	0x466A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C44,
+	0x5C37,
+	0,
+	0x3648,
+	0x5C3A,
+	0x3D5D,
+	0,
+	0,
+	0,
+	0x4760,
+	0x5C3C,
+	0x364B,
+	0,
+	0x5C34,
+	0x5C36,
+	0x5C33,
+	0,
+	0,
+	0x4F30,
+	0x335A,
+	0x5C39,
+	0,
+	0,
+	0x5C43,
+	0x3335,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3A67,
+	0,
+	0,
+	0,
+	0x315D,
+	0,
+	0,
+	0x5C54,
+	0,
+	0,
+	0x4F31,
+	0x5C57,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F3A,
+	0x5C56,
+	0,
+	0,
+	0,
+	0x5C55,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C52,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C46,
+	0,
+	0,
+	0x5C63,
+	0x5C45,
+	0,
+	0x5C58,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C50,
+	0,
+	0,
+	0x5C4B,
+	0x5C48,
+	0,
+	0x5C49,
+	0,
+	0x5C51,
+	0,
+	0,
+	0,
+	0x7422,
+	0,
+	0,
+	0x5C4E,
+	0x393D,
+	0x4448,
+	0x4164,
+	0x5C4C,
+	0,
+	0x5C47,
+	0,
+	0,
+	0x5C4A,
+	0,
+	0,
+	0,
+	0,
+	0x4D4D,
+	0x4B6A,
+	0,
+	0,
+	0,
+	0x5C4F,
+	0x5C59,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C61,
+	0x5C5A,
+	0,
+	0,
+	0x5C67,
+	0,
+	0x5C65,
+	0,
+	0,
+	0,
+	0,
+	0x5C60,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C5F,
+	0,
+	0x4450,
+	0,
+	0x4165,
+	0,
+	0x5C5D,
+
+	0,
+	0,
+	0x5C5B,
+	0,
+	0,
+	0x5C62,
+	0,
+	0,
+	0,
+	0,
+	0x5C68,
+	0x4875,
+	0x5C6E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C69,
+	0x5C6C,
+	0x5C66,
+	0,
+	0,
+	0x4374,
+	0,
+	0x4938,
+	0,
+	0x5C5C,
+	0,
+	0,
+	0x5C64,
+	0x3E40,
+	0,
+	0x4C4F,
+	0x5C78,
+	0x5C6B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3822,
+	0x3223,
+	0x335F,
+	0,
+	0,
+	0x5C53,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3E41,
+	0x5C70,
+	0,
+	0x5C77,
+	0x3C79,
+	0x3372,
+	0,
+	0,
+	0x432E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C6D,
+	0,
+	0,
+	0x5C72,
+	0x5C76,
+	0,
+	0,
+	0x3636,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x354C,
+	0x5C74,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3521,
+	0,
+	0x464B,
+	0x5C73,
+	0,
+	0,
+	0,
+	0x5C75,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C6F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C71,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3360,
+	0x4349,
+	0,
+	0,
+	0,
+	0x5C7C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C7A,
+	0x3869,
+	0,
+	0x5C79,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D21,
+	0,
+	0,
+	0,
+	0,
+	0x5B58,
+	0,
+	0,
+	0,
+	0x5C7B,
+	0,
+	0x5C7D,
+	0x5C7E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D2C,
+	0,
+	0x5D28,
+	0,
+	0x5B6D,
+	0,
+	0,
+	0,
+	0,
+	0x5D27,
+	0,
+	0,
+	0,
+	0,
+	0x5D26,
+	0,
+	0,
+	0x5D23,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5C6A,
+	0x5D25,
+	0x5D24,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D2A,
+	0,
+	0x4F26,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D2D,
+	0x367B,
+	0,
+	0,
+	0x5D29,
+	0x5D2B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4827,
+	0,
+	0x5D2E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D32,
+	0x5D2F,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0x4D73,
+	0x5D30,
+	0,
+	0,
+	0,
+	0,
+	0x5C5E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D33,
+	0,
+	0,
+	0,
+	0x5D34,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3135,
+	0,
+	0x5D36,
+	0x3767,
+	0x3C21,
+	0,
+	0x3655,
+	0,
+	0,
+	0,
+	0x3224,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D5F,
+	0,
+	0,
+	0,
+	0,
+	0x5D38,
+	0x5D37,
+	0x5D3A,
+	0x353D,
+	0,
+	0,
+	0x3656,
+	0x343E,
+	0,
+	0,
+	0,
+	0,
+	0x5D3D,
+	0,
+	0,
+	0,
+	0x5D3C,
+	0,
+	0x5D3E,
+	0,
+	0,
+	0x324E,
+	0,
+	0x4337,
+	0,
+	0x5D3F,
+	0,
+	0,
+	0x343F,
+	0x5D41,
+	0,
+	0,
+	0,
+	0,
+	0x5D40,
+	0,
+	0x5D42,
+	0,
+	0,
+	0,
+	0x5D43,
+	0,
+	0x5D44,
+	0x3B5F,
+	0x4035,
+	0x3A21,
+	0,
+	0x4970,
+	0,
+	0,
+	0x4A62,
+	0x4F44,
+	0,
+	0,
+	0,
+	0,
+	0x3B75,
+	0,
+	0,
+	0,
+	0x3A50,
+	0x4E72,
+	0,
+	0,
+	0,
+	0x5D45,
+	0x5D46,
+	0,
+	0x3B60,
+	0,
+	0,
+	0,
+	0x5D47,
+	0x5D48,
+	0,
+	0,
+	0x5D4A,
+	0x5D49,
+	0,
+	0x4B58,
+	0,
+	0,
+	0x3D5E,
+	0x3C6C,
+	0x3B44,
+	0,
+	0x5D4B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D4D,
+	0x3F23,
+	0,
+	0x5D4C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D4E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D4F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D50,
+	0x5D51,
+	0,
+	0,
+	0,
+	0x5D52,
+	0,
+	0x5D54,
+	0x5D53,
+	0x5D55,
+	0x3225,
+	0x434A,
+	0,
+	0x5D56,
+	0,
+	0,
+	0x3B26,
+	0x334C,
+	0x5D57,
+	0,
+	0,
+	0x4542,
+	0x544C,
+	0,
+	0,
+	0,
+	0,
+	0x3523,
+	0x5D58,
+	0,
+	0,
+	0,
+	0,
+	0x5D59,
+	0,
+	0x4A6C,
+	0x4B68,
+	0,
+	0,
+	0,
+	0x4647,
+	0x5D5A,
+	0x4866,
+	0,
+	0,
+	0,
+	0x487B,
+	0,
+	0,
+	0x4C53,
+	0,
+	0,
+	0,
+	0x5D5B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D5D,
+	0x5D5C,
+	0,
+	0,
+	0x5D5F,
+	0,
+	0,
+	0,
+	0x5D5E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D61,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3B61,
+	0,
+	0x4C31,
+	0,
+	0x5D62,
+	0x5D63,
+	0,
+	0,
+	0x3524,
+	0,
+	0,
+	0,
+	0x5D64,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D66,
+	0x5D65,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F65,
+	0,
+	0,
+	0x4939,
+	0x314A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4845,
+	0,
+	0x4475,
+	0x3D41,
+	0x3561,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4846,
+	0,
+	0x3C2E,
+	0,
+	0,
+	0,
+	0,
+	0x5D68,
+	0,
+	0x3440,
+	0,
+	0,
+	0x3178,
+	0,
+	0,
+	0x4672,
+	0x5D67,
+	0x393E,
+	0x4353,
+	0,
+	0x5D69,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D71,
+	0,
+	0x5D6A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4241,
+	0,
+	0x3562,
+	0x5D72,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3768,
+	0,
+	0,
+	0x3525,
+	0x5D70,
+	0,
+	0,
+	0x5D6E,
+	0x5D6B,
+	0x4D60,
+	0,
+	0,
+	0,
+	0,
+	0x4440,
+	0,
+	0,
+	0,
+	0x4659,
+	0x5D6C,
+	0,
+	0,
+	0x5D74,
+	0,
+	0x5D73,
+	0x3723,
+	0,
+	0,
+	0x322D,
+	0,
+	0,
+	0x3A3B,
+	0x5D6D,
+	0x5D6F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B57,
+	0x4274,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B77,
+	0,
+	0,
+	0x5D7C,
+	0,
+	0,
+	0x5D7D,
+	0,
+	0x324F,
+	0,
+	0,
+	0,
+	0,
+	0x4A28,
+	0x4C7D,
+	0x5E21,
+	0x3C23,
+	0x3E42,
+	0x5D78,
+	0x5D7E,
+	0x3168,
+	0,
+	0x3637,
+	0,
+	0,
+	0x5D75,
+	0x5D7A,
+	0,
+	0,
+	0,
+	0x4074,
+	0x4771,
+	0,
+	0x4867,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5D77,
+	0,
+	0x4B21,
+	0,
+	0x5D79,
+	0,
+	0x5E24,
+	0,
+	0x5E22,
+	0,
+	0x5D7B,
+	0,
+	0,
+	0,
+	0x4B22,
+	0x4748,
+	0x3563,
+	0,
+	0x4525,
+	0,
+	0,
+	0x436D,
+	0,
+	0x5E25,
+	0,
+	0,
+	0,
+	0,
+	0x5E23,
+	0x4259,
+	0x5D76,
+	0,
+	0x314B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D4E,
+	0x5E30,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5E2F,
+	0,
+	0,
+	0,
+	0,
+	0x4076,
+	0,
+	0x5E2C,
+	0,
+	0x4D6C,
+	0,
+	0,
+	0x4636,
+	0x5E26,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4445,
+	0,
+	0,
+	0,
+	0x314C,
+	0x393F,
+	0x5E29,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D27,
+	0x5E2E,
+	0,
+	0x5E2D,
+	0x5E28,
+	0,
+	0x5E2B,
+	0,
+	0,
+	0x3368,
+	0,
+	0x5E2A,
+	0x4749,
+	0,
+	0,
+	0x4E2E,
+	0,
+	0,
+	0x3E74,
+	0x4075,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5E36,
+	0x5E34,
+	0,
+	0x494D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5E31,
+	0x5E33,
+	0,
+	0x313A,
+	0,
+	0,
+	0x3940,
+	0x4F32,
+	0,
+	0x333D,
+	0,
+	0x4962,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D61,
+	0,
+	0,
+	0x3324,
+	0x3F3B,
+	0x5E35,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5E3A,
+	0,
+	0,
+	0x3E43,
+	0,
+	0,
+	0,
+	0x4D30,
+	0,
+	0x5E37,
+	0,
+	0,
+	0,
+	0,
+	0x5E32,
+	0,
+	0x5E38,
+	0,
+	0,
+	0,
+	0x4E5E,
+	0,
+	0x4573,
+	0x4642,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3336,
+	0,
+	0,
+	0x3155,
+	0,
+	0,
+	0x5E3E,
+	0,
+	0,
+	0x5E41,
+	0,
+	0,
+	0,
+	0x4E43,
+	0,
+	0,
+	0,
+	0x4D64,
+	0,
+	0,
+	0,
+	0,
+	0x5E48,
+	0x5E42,
+	0x5E3F,
+	0,
+	0,
+	0,
+	0x4E54,
+	0x5E45,
+	0,
+	0,
+	0,
+	0,
+	0x3D4A,
+	0x5E47,
+	0,
+	0,
+	0x5E4C,
+	0,
+	0,
+	0x4571,
+	0x5E4A,
+	0,
+	0,
+	0,
+	0,
+	0x5E44,
+	0,
+	0,
+	0x4338,
+	0,
+	0,
+	0x5E4B,
+	0,
+	0x5E40,
+	0,
+	0x5E46,
+	0,
+	0x5E4D,
+	0x307C,
+	0x5E43,
+	0,
+	0x5E4E,
+	0,
+	0,
+	0x3F3C,
+	0,
+	0x3D5F,
+	0,
+	0x4A25,
+	0,
+	0x3A2E,
+	0,
+	0x5E3B,
+	0x5E49,
+	0x453A,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4036,
+	0,
+	0x3369,
+	0x3A51,
+	0x3E44,
+	0x5E3D,
+	0x3D42,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x374C,
+	0,
+	0x5E3C,
+	0,
+	0,
+	0,
+	0x5E52,
+	0x3D6D,
+	0x383A,
+	0,
+	0x5E61,
+	0,
+	0x5E5B,
+	0x3574,
+	0x454F,
+	0,
+	0x5E56,
+	0x5E5F,
+	0x302F,
+	0x3132,
+	0,
+	0,
+	0x3239,
+	0,
+	0x5E58,
+	0x422C,
+	0x5E4F,
+	0x5E51,
+	0x3941,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5E62,
+	0,
+	0x5E5D,
+	0,
+	0,
+	0,
+	0x5E55,
+	0,
+	0,
+	0,
+	0,
+	0x5E5C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4C2B,
+	0,
+	0,
+	0x5E5A,
+	0x5E5E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3850,
+	0,
+	0x3E45,
+	0,
+	0,
+	0x4339,
+	0,
+	0,
+	0,
+	0x5E54,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D2F,
+	0,
+	0,
+	0,
+	0x5E57,
+	0,
+	0,
+	0x5E50,
+	0x4572,
+	0,
+	0,
+	0x5E53,
+	0,
+	0,
+	0,
+	0x5E59,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4F51,
+	0x3C3E,
+	0x4B7E,
+	0,
+	0x5E63,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x482E,
+	0,
+	0,
+	0x5E6F,
+	0x383B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D60,
+	0,
+	0x5E65,
+	0,
+	0,
+	0,
+	0x4E2F,
+	0x3942,
+	0,
+	0x5E72,
+	0,
+	0,
+	0x306E,
+	0,
+	0,
+	0x5E70,
+	0,
+	0,
+	0,
+	0,
+	0x5E64,
+	0,
+	0,
+	0,
+	0,
+	0x5E6A,
+	0,
+	0,
+	0x5E6C,
+	0,
+	0,
+	0,
+	0x4D4F,
+	0x5E67,
+	0,
+	0,
+	0x452E,
+	0,
+	0,
+	0x5E69,
+	0,
+	0,
+	0,
+	0,
+	0x5E71,
+	0,
+	0x5E6B,
+	0x4C47,
+	0,
+	0,
+	0,
+	0x5E66,
+	0,
+	0x3C22,
+	0x5E7E,
+	0,
+	0,
+	0,
+	0,
+	0x336A,
+	0,
+	0x5E68,
+	0x5E6D,
+	0x5E6E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x426C,
+	0x425A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5E76,
+	0,
+	0,
+	0x5E7C,
+	0,
+	0,
+	0x5E7A,
+	0,
+	0x4529,
+	0,
+	0,
+	0x5F23,
+	0x5E77,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5E78,
+	0x5E60,
+
+	0,
+	0x3579,
+	0x493A,
+	0,
+	0,
+	0,
+	0x3C3F,
+	0,
+	0,
+	0x3977,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4F33,
+	0,
+	0x5E74,
+	0,
+	0x5F22,
+	0x3169,
+	0x4166,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4779,
+	0,
+	0x3441,
+	0x4E7A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4C21,
+	0x4452,
+	0,
+	0,
+	0,
+	0,
+	0x5E7B,
+	0x5E7D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4132,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F21,
+	0x5E79,
+	0,
+	0x5E73,
+	0,
+	0,
+	0,
+	0x3443,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3769,
+	0,
+	0,
+	0,
+	0x5F2F,
+	0,
+	0,
+	0x5F2A,
+	0x4078,
+	0,
+	0,
+	0x3363,
+	0,
+	0,
+	0,
+	0,
+	0x3D61,
+	0,
+	0x5F33,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F2C,
+	0x442C,
+	0x5F29,
+	0x4459,
+	0,
+	0,
+	0,
+	0x5F4C,
+	0,
+	0,
+	0,
+	0x5F26,
+	0,
+	0x5F25,
+	0,
+	0x5F2E,
+	0,
+	0,
+	0,
+	0x5F28,
+	0x5F27,
+	0x5F2D,
+	0,
+	0x4021,
+	0,
+	0x5F24,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F30,
+	0,
+	0,
+	0x5F31,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3442,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F36,
+	0,
+	0x5F35,
+	0x5F37,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F3A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4543,
+	0,
+	0x5F34,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F38,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3763,
+	0x4279,
+	0x5F32,
+	0x473B,
+	0,
+	0,
+	0x5F39,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F3E,
+	0x5F3C,
+	0,
+	0,
+	0x5F3F,
+	0,
+	0,
+	0x5F42,
+	0,
+	0,
+	0,
+	0x5F3B,
+	0x396A,
+	0x4728,
+	0,
+	0,
+	0x5E39,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D74,
+	0x5F3D,
+	0,
+	0x5F41,
+	0x4275,
+	0,
+	0x5F40,
+	0,
+	0x5F2B,
+	0,
+	0,
+	0x6F69,
+	0,
+	0,
+	0,
+	0x5F45,
+	0,
+	0,
+	0,
+	0x5F49,
+	0,
+
+	0,
+	0x5F47,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F43,
+	0,
+	0x5F44,
+	0,
+	0,
+	0,
+	0x5F48,
+	0,
+	0x5F46,
+	0,
+	0,
+	0,
+	0x494E,
+	0,
+	0,
+	0x5F4E,
+	0,
+	0x5F4B,
+	0x5F4A,
+	0,
+	0x5F4D,
+	0x4654,
+	0x5F4F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4375,
+	0x426D,
+	0,
+	0,
+	0,
+	0,
+	0x4025,
+	0,
+	0,
+	0,
+	0x5F50,
+	0,
+	0x5F52,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F51,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5E75,
+	0,
+	0,
+	0,
+	0,
+	0x5F53,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4667,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F54,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3250,
+	0,
+	0,
+	0,
+	0x4574,
+	0x3325,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3564,
+	0,
+	0,
+	0,
+	0x3C5E,
+	0x3A52,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4F27,
+	0x3F66,
+	0,
+	0,
+	0,
+	0x316A,
+	0,
+	0,
+	0,
+	0x5F56,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F55,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F59,
+	0x433A,
+	0x5F5C,
+	0x5F57,
+	0,
+	0,
+	0,
+	0x5F5B,
+	0,
+	0,
+	0,
+	0,
+	0x5F5A,
+	0x4540,
+	0x3059,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4E75,
+	0,
+	0,
+	0x5F5E,
+	0,
+	0,
+	0,
+	0x3128,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F60,
+	0,
+	0,
+	0,
+	0x5F5F,
+	0,
+	0x5F5D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F58,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B23,
+	0,
+	0,
+	0,
+	0x5F62,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F61,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x316B,
+	0,
+	0,
+	0,
+	0,
+	0x5F64,
+	0x4A32,
+	0,
+	0x5F63,
+	0,
+	0,
+	0,
+	0,
+	0x4C35,
+	0,
+	0,
+	0,
+	0,
+	0x3E47,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4133,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3E46,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4E7B,
+	0,
+	0,
+	0x5F6A,
+	0,
+	0x4079,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F66,
+	0x5F6B,
+	0,
+	0,
+	0x316C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F69,
+	0,
+	0x4761,
+	0x5F65,
+	0x5F68,
+	0x3E48,
+	0,
+	0x4851,
+	0,
+	0,
+	0x5F6C,
+	0,
+	0x3C51,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x407A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F6F,
+	0,
+	0,
+	0,
+	0x5F67,
+	0,
+	0x3727,
+	0,
+	0,
+	0,
+	0,
+	0x5F6D,
+	0,
+	0,
+	0,
+	0,
+	0x4D50,
+	0x5F70,
+	0,
+	0,
+	0,
+	0x7426,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D4F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F71,
+	0,
+	0,
+	0,
+	0x5F72,
+	0,
+	0,
+	0,
+	0,
+	0x472E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F74,
+	0,
+	0,
+	0,
+	0,
+	0x5F75,
+	0,
+	0,
+	0,
+	0,
+	0x4733,
+	0,
+	0,
+	0,
+	0,
+	0x4575,
+	0x5F77,
+	0,
+	0,
+	0,
+	0,
+	0x5F79,
+	0,
+	0x4E55,
+	0,
+	0x5F76,
+	0,
+	0x5F78,
+	0x316D,
+	0,
+	0x5F73,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x535B,
+	0x5F7A,
+	0,
+	0,
+	0,
+	0,
+	0x4167,
+	0x3B38,
+	0x5F7C,
+	0,
+	0,
+	0,
+	0,
+	0x5F7B,
+	0x3F24,
+	0x5259,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5F7D,
+	0,
+	0,
+	0,
+	0x6021,
+	0,
+	0x5F6E,
+	0x5F7E,
+	0,
+	0,
+	0x6022,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x477A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6023,
+	0,
+	0,
+	0x6024,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6025,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6026,
+	0,
+	0x445E,
+	0,
+	0x6028,
+	0x6027,
+	0,
+	0,
+	0x6029,
+	0,
+	0x602A,
+	0,
+	0,
+	0x3C5F,
+	0x4963,
+	0,
+	0,
+	0,
+	0x4C6C,
+	0x602B,
+	0x602C,
+	0x4156,
+	0x3C24,
+	0x602D,
+	0x602E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x602F,
+	0x4A52,
+	0x4847,
+	0,
+	0,
+	0x6030,
+	0x4757,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x442D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6031,
+	0x3267,
+	0,
+	0x356D,
+	0,
+	0x4C46,
+	0,
+	0x4C36,
+	0,
+	0x3234,
+	0x4F34,
+	0,
+	0,
+	0,
+	0,
+	0x4B52,
+	0,
+	0x4A2A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4037,
+	0,
+	0x6032,
+	0,
+	0,
+	0,
+	0,
+	0x4643,
+	0,
+	0,
+	0,
+	0x3823,
+	0x6033,
+	0,
+	0x3A54,
+	0x6035,
+	0x6034,
+	0,
+	0,
+	0,
+	0,
+	0x6036,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6037,
+	0,
+	0,
+	0,
+	0x6038,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x353E,
+	0,
+	0x6039,
+	0,
+	0,
+	0,
+	0,
+	0x603A,
+	0,
+	0,
+	0,
+	0,
+	0x3824,
+	0,
+	0,
+	0x4848,
+	0,
+	0,
+	0x603C,
+	0,
+	0,
+	0,
+	0x3E75,
+	0,
+	0,
+	0x603B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3638,
+	0x603D,
+	0x603F,
+	0,
+	0x603E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6040,
+	0,
+	0x3851,
+	0,
+	0x6041,
+	0,
+	0,
+	0,
+	0,
+	0x3669,
+	0,
+	0x4140,
+	0,
+	0x397D,
+	0,
+	0,
+	0,
+	0,
+	0x6043,
+	0x6044,
+	0x6042,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3C6D,
+	0,
+	0,
+	0x4648,
+	0x3639,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6046,
+	0x432C,
+	0x6045,
+	0,
+	0,
+	0x4F35,
+	0x4762,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6049,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x604B,
+	0x6048,
+	0,
+	0,
+	0,
+	0x4C54,
+	0x604A,
+	0x604C,
+	0,
+	0x4E44,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6050,
+	0,
+	0,
+	0,
+	0x604F,
+	0x4376,
+	0x472D,
+	0,
+	0,
+	0x3825,
+	0x604E,
+	0,
+	0,
+	0,
+	0,
+	0x604D,
+	0,
+	0x4D31,
+	0x4D32,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6051,
+	0x316E,
+	0,
+	0,
+	0,
+	0,
+	0x3976,
+	0x3B62,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6052,
+	0x6053,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6055,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D43,
+	0,
+	0,
+	0,
+	0,
+	0x6057,
+	0,
+	0x6056,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6058,
+	0,
+	0x334D,
+	0,
+	0,
+	0x605A,
+	0,
+	0,
+	0x6059,
+	0,
+	0x605C,
+	0x605B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x383C,
+	0,
+	0,
+	0x4E28,
+	0,
+	0x364C,
+	0,
+	0x3226,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x366A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3461,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4E68,
+	0x605E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6060,
+	0,
+	0,
+	0,
+	0,
+	0x6061,
+	0,
+	0x3251,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x605D,
+	0,
+	0x3B39,
+	0,
+	0,
+	0x4441,
+	0x605F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6064,
+	0,
+	0x3C6E,
+	0,
+	0,
+	0,
+	0,
+	0x6062,
+	0,
+	0,
+	0,
+	0,
+	0x373E,
+	0,
+	0,
+	0x4849,
+	0x6063,
+	0,
+	0,
+	0x607E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6069,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x383D,
+	0,
+
+	0,
+	0,
+	0,
+	0x3565,
+	0,
+	0x6066,
+	0x4D7D,
+	0,
+	0,
+	0x4E30,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4276,
+	0,
+	0,
+	0x6068,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x606A,
+	0x4E56,
+	0x3657,
+	0x487C,
+	0x474A,
+	0,
+	0,
+	0,
+	0x606B,
+	0,
+	0,
+	0,
+	0,
+	0x606D,
+	0,
+	0x6070,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x606C,
+	0,
+	0,
+	0,
+	0x606F,
+	0x386A,
+	0x314D,
+	0x6071,
+	0,
+	0x3F70,
+	0x606E,
+	0x4E5C,
+	0,
+	0,
+	0x6074,
+	0x7424,
+	0,
+	0,
+	0,
+	0,
+	0x6072,
+	0x6075,
+	0,
+	0,
+	0,
+	0,
+	0x6067,
+	0x6073,
+	0,
+	0,
+	0x3A3C,
+	0,
+	0,
+	0x6076,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6077,
+	0,
+	0,
+	0,
+	0,
+	0x4D7E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6078,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6079,
+	0,
+	0,
+	0,
+	0x6065,
+	0,
+	0,
+	0,
+	0,
+	0x607A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3444,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3C25,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x607B,
+	0,
+	0,
+	0,
+	0,
+	0x607C,
+	0,
+	0,
+	0,
+	0,
+	0x607D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x313B,
+	0,
+	0,
+	0,
+	0x6121,
+	0,
+	0x493B,
+	0x6122,
+	0,
+	0,
+	0x3424,
+	0x6123,
+	0,
+	0x6124,
+	0,
+	0,
+	0,
+	0,
+	0x6125,
+	0,
+	0x6127,
+	0x6128,
+	0x6126,
+	0,
+	0,
+	0,
+	0x4953,
+	0x612A,
+	0x6129,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0x612C,
+	0x612B,
+	0x612D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x612E,
+	0x6130,
+	0x612F,
+	0,
+	0,
+	0x3979,
+	0,
+	0x6132,
+	0,
+	0x6131,
+	0,
+	0,
+	0x3445,
+	0,
+	0x3F53,
+	0,
+	0x453C,
+	0,
+	0x6133,
+	0x4038,
+	0,
+	0,
+	0,
+	0x3B3A,
+	0,
+	0x3179,
+	0x6134,
+	0,
+	0x4D51,
+	0,
+	0,
+	0x4A63,
+	0x6135,
+	0,
+	0,
+	0,
+	0x4544,
+	0x4D33,
+	0x3943,
+	0x3F3D,
+	0,
+	0,
+	0,
+	0x434B,
+	0x5234,
+	0,
+	0x442E,
+	0x3268,
+	0x6136,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6137,
+	0,
+	0x613C,
+	0,
+	0,
+	0x613A,
+	0x6139,
+	0x5A42,
+	0x3326,
+	0x6138,
+	0,
+	0x305A,
+	0,
+	0x482A,
+	0,
+	0,
+	0x484A,
+	0,
+	0,
+	0,
+	0,
+	0x4E31,
+	0x613D,
+	0x613B,
+	0x435C,
+	0x4026,
+	0,
+	0,
+	0x482B,
+	0,
+	0x492D,
+	0,
+	0x613F,
+	0x4E2C,
+	0x374D,
+	0x6140,
+	0,
+	0x613E,
+	0x4856,
+	0x6141,
+	0,
+	0x6142,
+	0,
+	0,
+	0x305B,
+	0,
+	0,
+	0x3E76,
+	0x6147,
+	0,
+	0x6144,
+	0x466D,
+	0x6143,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3526,
+	0,
+	0,
+	0x614A,
+	0,
+	0,
+	0,
+	0x6145,
+	0x6146,
+	0,
+	0x6149,
+	0x6148,
+	0x4925,
+	0,
+	0,
+	0x4142,
+	0x4141,
+	0,
+	0x353F,
+	0,
+	0,
+	0x614B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x614C,
+	0,
+	0,
+	0x614D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x614F,
+	0,
+	0x614E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3156,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6157,
+	0x4868,
+	0x6151,
+	0,
+	0x6153,
+	0,
+	0,
+	0x6155,
+	0x3F3E,
+	0,
+	0,
+	0x6156,
+	0x6154,
+	0x3C40,
+	0,
+	0,
+	0,
+	0x6150,
+	0x6152,
+	0,
+	0x4942,
+	0,
+	0x3E49,
+	0,
+	0,
+	0x6159,
+	0,
+	0,
+	0x6158,
+	0,
+	0,
+	0,
+	0,
+	0x615A,
+	0,
+	0x3C26,
+	0x3A2F,
+	0,
+	0,
+	0x4577,
+	0x615B,
+	0,
+	0x444B,
+	0,
+	0,
+	0x615D,
+	0,
+	0,
+	0,
+	0x4E21,
+	0x615C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4169,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6162,
+	0,
+	0x6164,
+	0x6165,
+	0x4354,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6163,
+	0,
+	0x6160,
+	0,
+	0x615E,
+	0x615F,
+
+	0,
+	0x6161,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6168,
+	0,
+	0x6166,
+	0,
+	0x6167,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6169,
+	0x616B,
+	0x616C,
+	0x616D,
+	0,
+	0x616E,
+	0,
+	0,
+	0x616A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6170,
+	0,
+	0,
+	0,
+	0x616F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6171,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4E45,
+	0,
+	0,
+	0,
+	0x6174,
+	0x6172,
+	0x6173,
+	0,
+	0,
+	0,
+	0x3462,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4C7E,
+	0,
+	0,
+	0,
+	0x4A4A,
+	0,
+	0x6176,
+	0,
+	0,
+	0,
+	0x6175,
+	0,
+	0,
+	0,
+	0,
+	0x6177,
+	0x6178,
+	0,
+	0,
+	0,
+	0,
+	0x617C,
+	0x6179,
+	0x617A,
+	0x617B,
+	0,
+	0x617D,
+	0,
+	0,
+	0,
+	0x617E,
+	0,
+	0x6221,
+	0,
+	0,
+	0,
+	0x6222,
+	0,
+	0x6223,
+	0,
+	0x482F,
+	0x4550,
+	0x6224,
+	0x4772,
+	0x4934,
+	0,
+	0x6225,
+	0,
+	0,
+	0x6226,
+	0x452A,
+	0,
+	0x3327,
+	0x3944,
+	0x6227,
+	0,
+	0,
+	0x6228,
+	0,
+	0,
+	0x6229,
+	0,
+	0x3B29,
+	0,
+	0,
+	0x622B,
+	0,
+	0,
+	0x622A,
+	0,
+	0,
+	0x622C,
+	0x622D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4869,
+	0,
+	0x622E,
+	0,
+	0,
+	0,
+	0x622F,
+	0,
+	0,
+	0x7369,
+	0x6230,
+	0x6231,
+	0x6232,
+	0,
+	0,
+	0,
+	0,
+	0x3B2E,
+	0,
+	0,
+	0x6233,
+	0x4756,
+	0,
+	0,
+	0x4B5F,
+	0,
+	0x314E,
+	0,
+	0x3157,
+	0,
+	0,
+	0x6234,
+	0,
+	0,
+	0,
+	0,
+	0x6236,
+	0,
+	0,
+	0,
+	0x6235,
+	0x4570,
+	0,
+	0,
+	0,
+	0x4039,
+	0x5D39,
+	0,
+	0x6237,
+	0x4C41,
+	0,
+	0x6238,
+	0,
+	0x3446,
+	0x4857,
+	0x6239,
+	0,
+	0x623A,
+	0,
+	0,
+	0x623B,
+	0,
+	0,
+	0,
+	0x4C5C,
+	0,
+	0,
+	0,
+	0x4C55,
+	0,
+	0x443E,
+	0,
+	0,
+	0,
+	0x416A,
+	0,
+	0,
+	0x623D,
+	0,
+	0,
+	0x3D62,
+	0,
+
+	0,
+	0x3E4A,
+	0,
+	0,
+	0x6240,
+	0,
+	0,
+	0x623F,
+	0x623E,
+	0x487D,
+	0,
+	0x3447,
+	0x3829,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6246,
+	0,
+	0,
+	0x6243,
+	0x3F3F,
+	0x4C32,
+	0,
+	0,
+	0,
+	0x6242,
+	0x6244,
+	0x6245,
+	0,
+	0,
+	0x6241,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6247,
+	0x6248,
+	0,
+	0x442F,
+	0,
+	0x3463,
+	0,
+	0,
+	0,
+	0x4365,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6249,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x624A,
+	0x624D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F67,
+	0,
+	0x4644,
+	0,
+	0x624E,
+	0x4B53,
+	0,
+	0x624B,
+	0,
+	0,
+	0x624C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6251,
+	0,
+	0,
+	0,
+	0,
+	0x6250,
+	0x624F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6253,
+	0,
+	0,
+	0x6252,
+	0,
+	0,
+	0x6254,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6256,
+	0,
+	0x6255,
+	0,
+	0,
+	0,
+	0,
+	0x4A4D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D56,
+	0x4E46,
+	0,
+	0,
+	0x6257,
+	0,
+	0,
+	0x4637,
+	0,
+	0,
+	0x6258,
+	0,
+	0,
+	0x6259,
+	0,
+	0x625D,
+	0x625B,
+	0x625C,
+	0,
+	0x625A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x625E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x625F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6260,
+	0,
+	0,
+	0x6261,
+	0x4C37,
+	0x6262,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4C70,
+	0x6263,
+	0,
+	0x434E,
+	0,
+	0x476A,
+	0,
+	0x366B,
+	0,
+	0,
+	0,
+	0x433B,
+	0x6264,
+	0x363A,
+	0,
+	0,
+	0,
+	0x4050,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6265,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0x3A3D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6266,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6267,
+	0,
+	0x3826,
+	0x3A55,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6269,
+	0,
+	0,
+	0,
+	0,
+	0x4556,
+	0x3A56,
+	0x354E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B24,
+	0,
+	0x474B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4557,
+	0,
+	0,
+	0,
+	0,
+	0x395C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x626B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3E4B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4E32,
+	0x3945,
+	0,
+	0,
+	0x3827,
+	0,
+	0,
+	0x4823,
+	0,
+	0x626D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x626F,
+	0,
+	0,
+	0,
+	0,
+	0x386B,
+	0,
+	0,
+	0,
+	0,
+	0x626E,
+	0x4476,
+	0,
+	0,
+	0,
+	0,
+	0x6271,
+	0x3337,
+	0x626C,
+	0,
+	0,
+	0x486A,
+	0,
+	0x3130,
+	0,
+	0x3A6C,
+	0,
+	0x4F52,
+	0,
+	0,
+	0x6270,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6272,
+	0,
+	0,
+	0,
+	0x4A4B,
+	0,
+	0x4059,
+	0x6274,
+	0,
+	0,
+	0,
+	0,
+	0x6275,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6273,
+	0,
+	0,
+	0,
+	0,
+	0x334E,
+	0,
+	0x627B,
+	0,
+	0x627A,
+	0,
+	0,
+	0x3C27,
+	0,
+	0,
+	0,
+	0x627C,
+	0x6277,
+	0,
+	0,
+	0,
+	0x627D,
+	0x6278,
+	0,
+	0,
+	0,
+	0,
+	0x4858,
+	0x6276,
+	0,
+	0,
+	0x6279,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6322,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6321,
+	0x4B61,
+	0,
+	0,
+	0,
+	0x627E,
+	0,
+	0,
+	0x306B,
+	0,
+	0,
+	0,
+	0,
+	0x6324,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6323,
+	0,
+	0,
+
+	0,
+	0x3E4C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6325,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4143,
+	0,
+	0,
+	0x6327,
+	0x6326,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6328,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6268,
+	0,
+	0,
+	0,
+	0x626A,
+	0x632A,
+	0x6329,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3C28,
+	0,
+	0x4E69,
+	0,
+	0x3C52,
+	0,
+	0x632B,
+	0x3737,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3540,
+	0x3527,
+	0x3B63,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D34,
+	0,
+	0,
+	0x6331,
+	0,
+	0x6330,
+	0x4144,
+	0x632D,
+	0,
+	0,
+	0x632F,
+	0,
+	0,
+	0x3D4B,
+	0x3F40,
+	0x632E,
+	0x632C,
+	0,
+	0x472A,
+	0,
+	0,
+	0x3E4D,
+	0,
+	0,
+	0x493C,
+	0,
+	0,
+	0,
+	0,
+	0x3A57,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4578,
+	0,
+	0,
+	0x6332,
+	0,
+	0,
+	0,
+	0,
+	0x6333,
+	0x6349,
+	0x3658,
+	0,
+	0,
+	0x4F3D,
+	0x4135,
+	0,
+	0,
+	0,
+	0,
+	0x6334,
+	0,
+	0,
+	0x3252,
+	0x4477,
+	0x4A21,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6335,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x357A,
+	0x6336,
+	0,
+	0,
+	0x6338,
+	0,
+	0,
+	0,
+	0x6339,
+	0,
+	0x4729,
+	0,
+	0,
+	0x633A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x633B,
+	0x633C,
+	0,
+	0,
+	0x3659,
+	0x3253,
+	0x4645,
+	0x3D28,
+	0x3B64,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x633D,
+	0,
+	0x3D29,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x324A,
+	0x4943,
+	0,
+	0,
+	0x633E,
+	0,
+	0,
+	0x486B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4145,
+	0,
+	0x6341,
+	0,
+	0x6342,
+	0x4769,
+	0,
+	0x3F41,
+	0x633F,
+	0,
+	0x4361,
+	0,
+	0,
+	0x6340,
+	0,
+	0,
+	0,
+	0x3E4E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x305C,
+	0,
+	0,
+	0,
+	0,
+
+	0x3529,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6343,
+	0,
+	0,
+	0x4478,
+	0,
+	0x6344,
+	0x4047,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4C2D,
+	0,
+	0,
+	0x4923,
+	0x6345,
+	0x6346,
+	0x4355,
+	0,
+	0x4E47,
+	0,
+	0,
+	0x6348,
+	0x6347,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3C6F,
+	0,
+	0,
+	0x634A,
+	0x3070,
+	0,
+	0,
+	0,
+	0,
+	0x634D,
+	0,
+	0,
+	0,
+	0x634B,
+	0x3254,
+	0x374E,
+	0x634C,
+	0x3946,
+	0x3972,
+	0,
+	0x4A66,
+	0x634E,
+	0,
+	0,
+	0x4B54,
+	0,
+	0,
+	0x6350,
+	0,
+	0,
+	0,
+	0x4051,
+	0x314F,
+	0x323A,
+	0x302C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x634F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6351,
+	0x6352,
+	0x3E77,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6353,
+	0,
+	0x334F,
+	0,
+	0,
+	0,
+	0,
+	0x6355,
+	0,
+	0,
+	0,
+	0x376A,
+	0,
+	0x3566,
+	0,
+	0,
+	0x6356,
+	0x3675,
+	0,
+	0,
+	0x6357,
+	0,
+	0x407C,
+	0,
+	0x464D,
+	0,
+	0x4060,
+	0x3A75,
+	0,
+	0,
+	0,
+	0x6358,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4362,
+	0x416B,
+	0,
+	0x635A,
+	0x635C,
+	0x6359,
+	0x635B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3722,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x635D,
+	0x3726,
+	0,
+	0,
+	0,
+	0x3567,
+	0x4D52,
+	0x635F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6360,
+	0,
+	0,
+	0,
+	0x312E,
+	0,
+	0,
+	0,
+	0,
+	0x6363,
+	0,
+	0,
+	0,
+	0x3376,
+	0x6362,
+	0x6361,
+	0,
+	0x6365,
+	0x635E,
+	0,
+	0x6366,
+	0x4E29,
+	0,
+	0x6367,
+	0,
+	0x6368,
+	0,
+	0,
+	0x5474,
+	0x636A,
+	0,
+	0x6369,
+	0,
+	0,
+	0,
+	0x636B,
+	0x636C,
+	0,
+	0x4E35,
+	0x636D,
+	0,
+	0x706F,
+	0x3E4F,
+	0x636E,
+	0x636F,
+	0x3D57,
+	0,
+	0x4638,
+	0x6370,
+	0,
+	0,
+	0,
+	0x4328,
+	0,
+	0,
+	0x6371,
+	0,
+	0x433C,
+	0x6372,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3625,
+	0,
+	0x513F,
+	0x435D,
+	0x3C33,
+	0,
+	0,
+	0,
+	0,
+	0x3448,
+
+	0,
+	0,
+	0x6373,
+	0,
+	0x6422,
+	0,
+	0x6376,
+	0,
+	0x3568,
+	0,
+	0x6375,
+	0x6424,
+	0,
+	0,
+	0,
+	0x6374,
+	0,
+	0x3E50,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6378,
+	0x6379,
+	0,
+	0x452B,
+	0,
+	0,
+	0x637A,
+	0,
+	0x335E,
+	0,
+	0,
+	0,
+	0,
+	0x3F5A,
+	0x4964,
+	0,
+	0x637C,
+	0,
+	0,
+	0,
+	0x4268,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6377,
+	0,
+	0x637B,
+	0x637D,
+	0,
+	0,
+	0x3A7B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6426,
+	0x492E,
+	0,
+	0x4826,
+	0x4579,
+	0,
+	0x365A,
+	0x6425,
+	0x6423,
+	0,
+	0x4835,
+	0x637E,
+	0x435E,
+	0x457B,
+	0,
+	0x457A,
+	0,
+	0x3A76,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6438,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6428,
+	0,
+	0x642A,
+	0,
+	0,
+	0,
+	0,
+	0x642D,
+	0,
+	0x642E,
+	0,
+	0x642B,
+	0x642C,
+	0,
+	0,
+	0x6429,
+	0x6427,
+	0,
+	0,
+	0,
+	0,
+	0x6421,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A4F,
+	0x3255,
+	0,
+	0,
+	0,
+	0x6435,
+	0,
+	0x6432,
+	0,
+	0x6437,
+	0,
+	0,
+	0x6436,
+	0,
+	0x4773,
+	0x4C27,
+	0,
+	0x3B3B,
+	0x6430,
+	0x6439,
+	0x6434,
+	0,
+	0x6433,
+	0x642F,
+	0,
+	0x6431,
+	0,
+	0x3449,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x433D,
+	0,
+	0,
+	0x407D,
+	0,
+	0,
+	0,
+	0x4822,
+	0,
+	0,
+	0x643E,
+	0,
+	0,
+	0,
+	0x4824,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4061,
+	0x643B,
+	0,
+	0,
+	0x484F,
+	0,
+	0x643F,
+	0x4A53,
+	0,
+	0x435B,
+	0,
+	0x643A,
+	0x643C,
+	0,
+	0,
+	0x643D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6440,
+	0,
+	0,
+	0x3C44,
+	0,
+	0,
+	0,
+	0x4646,
+	0x6445,
+	0x6444,
+	0,
+	0,
+	0x6441,
+	0,
+	0,
+	0,
+	0x4F36,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x644A,
+	0,
+	0,
+	0x644E,
+	0x644B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0x6447,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6448,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x644D,
+	0,
+	0,
+	0,
+	0x6442,
+	0x5255,
+	0x6449,
+	0x6443,
+	0,
+	0,
+	0x644C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6452,
+	0,
+	0x344A,
+	0,
+	0x644F,
+	0,
+	0,
+	0,
+	0x6450,
+	0,
+	0,
+	0x6451,
+	0x6454,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6453,
+	0x4876,
+	0,
+	0,
+	0,
+	0,
+	0x6455,
+	0x4E7C,
+	0x4A6D,
+	0x645A,
+	0,
+	0,
+	0x6457,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6456,
+	0x4052,
+	0,
+	0x6459,
+	0x645B,
+	0,
+	0,
+	0,
+	0x6458,
+	0,
+	0x645F,
+	0,
+	0x645C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x645D,
+	0x6446,
+	0,
+	0,
+	0,
+	0x645E,
+	0x6460,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6461,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A46,
+	0,
+	0x6462,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4C62,
+	0,
+	0,
+	0x364E,
+	0x3729,
+	0x6463,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A34,
+	0,
+	0x3F68,
+	0,
+	0x4C30,
+	0,
+	0,
+	0x6464,
+	0,
+	0x4E33,
+	0,
+	0,
+	0x4774,
+	0,
+	0x4146,
+	0x4734,
+	0,
+	0,
+	0x3D4D,
+	0,
+	0,
+	0,
+	0x3040,
+	0,
+	0x6469,
+	0x6467,
+	0,
+	0x6465,
+	0x3421,
+	0,
+	0x3E51,
+	0x646A,
+	0,
+	0,
+	0x6468,
+	0,
+	0x6466,
+	0x646E,
+	0,
+	0,
+	0x646D,
+	0x646C,
+	0x646B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x646F,
+	0,
+	0,
+	0,
+	0x6470,
+	0x403A,
+	0,
+	0x6471,
+	0,
+	0x6473,
+	0,
+	0,
+	0x6472,
+	0,
+	0,
+	0,
+	0,
+	0x3852,
+	0,
+	0,
+	0,
+	0x4138,
+	0,
+	0,
+	0,
+	0x6475,
+	0,
+	0,
+	0,
+	0x457C,
+	0,
+	0x6474,
+	0,
+	0,
+	0,
+	0x6476,
+	0,
+	0x4A35,
+	0x416C,
+	0x3947,
+	0,
+	0x6477,
+	0,
+	0,
+	0,
+	0,
+	0x4E48,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6479,
+	0,
+	0,
+	0x647A,
+	0,
+	0x647B,
+	0,
+	0x647C,
+	0,
+	0x3B65,
+	0,
+	0x647D,
+	0x374F,
+	0,
+	0,
+	0x356A,
+	0,
+
+	0x352A,
+	0,
+	0x6521,
+	0,
+	0x4C73,
+	0x3948,
+	0x647E,
+	0,
+	0,
+	0,
+	0x6524,
+	0x4C66,
+	0,
+	0x473C,
+	0,
+	0,
+	0x4933,
+	0,
+	0,
+	0,
+	0x3D63,
+	0x6523,
+	0,
+	0x3C53,
+	0x3949,
+	0x3B66,
+	0x3569,
+	0x4A36,
+	0x6522,
+	0,
+	0,
+	0,
+	0x4147,
+	0x4B42,
+	0x3A77,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3B67,
+	0x445D,
+	0,
+	0x6527,
+	0x4E5F,
+	0x3A59,
+	0,
+	0x6528,
+	0x3F42,
+	0,
+	0x652A,
+	0,
+	0,
+	0,
+	0x3E52,
+	0x3A30,
+	0,
+	0,
+	0,
+	0,
+	0x6529,
+	0,
+	0,
+	0x3D2A,
+	0x383E,
+	0x4148,
+	0x6525,
+	0x652B,
+	0,
+	0,
+	0,
+	0,
+	0x6526,
+	0x3750,
+	0,
+	0x652E,
+	0x6532,
+	0x376B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x652D,
+	0,
+	0,
+	0,
+	0,
+	0x6536,
+	0,
+	0,
+	0x394A,
+	0,
+	0,
+	0x4D6D,
+	0x303C,
+	0x6533,
+	0,
+	0,
+	0x356B,
+	0,
+	0x6530,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6531,
+	0,
+	0,
+	0x457D,
+	0x652F,
+	0x652C,
+	0,
+	0x3328,
+	0x4064,
+	0,
+	0,
+	0x3828,
+	0,
+	0,
+	0,
+	0x6538,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6535,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6537,
+	0,
+	0,
+	0,
+	0x6534,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3751,
+	0x4233,
+	0x6539,
+	0x416E,
+	0,
+	0,
+	0x6546,
+	0,
+	0,
+	0x6542,
+	0x653C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6540,
+	0x3C7A,
+	0x305D,
+	0x653B,
+	0x6543,
+	0x6547,
+	0x394B,
+	0x4C56,
+	0,
+	0x4456,
+	0x653D,
+	0,
+	0,
+	0x6545,
+	0,
+	0x653A,
+	0x433E,
+	0,
+	0x653F,
+	0x303D,
+	0x4C4A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x653E,
+	0,
+	0,
+	0x365B,
+	0x486C,
+	0,
+	0,
+	0,
+	0x416D,
+	0,
+	0x4E50,
+	0x3D6F,
+	0,
+	0,
+	0x656E,
+	0,
+	0,
+	0x6548,
+	0,
+	0x407E,
+	0,
+	0x6544,
+	0x6549,
+	0x654B,
+	0,
+	0x4479,
+	0x654E,
+	0,
+	0,
+	0x654A,
+	0,
+	0,
+	0,
+	0x4A54,
+	0x344B,
+	0,
+	0,
+	0x4C4B,
+	0,
+	0,
+	0x305E,
+	0,
+	0,
+	0x654D,
+	0,
+	0x4E7D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x654C,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0x316F,
+	0,
+	0,
+	0x466C,
+	0x654F,
+	0,
+	0,
+	0,
+	0x6556,
+	0x6550,
+	0x6557,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6553,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x477B,
+	0,
+	0,
+	0x3C4A,
+	0x6555,
+	0,
+	0x6552,
+	0x6558,
+	0x6551,
+	0,
+	0,
+	0x3D44,
+	0,
+	0,
+	0,
+	0,
+	0x4B25,
+	0,
+	0,
+	0x3D4C,
+	0,
+	0,
+	0x6554,
+	0x6560,
+	0,
+	0,
+	0x655C,
+	0,
+	0x655F,
+	0,
+	0x655D,
+	0x6561,
+	0x655B,
+	0,
+	0x6541,
+	0x4053,
+	0,
+	0,
+	0x484B,
+	0,
+	0x655E,
+	0,
+	0,
+	0x6559,
+	0,
+	0,
+	0,
+	0x4121,
+	0x3752,
+	0,
+	0x3D2B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F25,
+	0x4136,
+	0x6564,
+	0,
+	0,
+	0x6566,
+	0x6567,
+	0,
+	0,
+	0x6563,
+	0x6565,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x655A,
+	0x6562,
+	0,
+	0x656A,
+	0x6569,
+	0,
+	0,
+	0x4B7A,
+	0,
+	0,
+	0x372B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6568,
+	0,
+	0x656C,
+	0x656B,
+	0x656F,
+	0,
+	0x6571,
+	0,
+	0,
+	0x3B3C,
+	0x656D,
+	0,
+	0,
+	0,
+	0,
+	0x6572,
+	0x6573,
+	0,
+	0,
+	0x6574,
+	0,
+	0x657A,
+	0x453B,
+	0x6576,
+	0,
+	0x6575,
+	0x6577,
+	0x6578,
+	0,
+	0x6579,
+	0,
+	0,
+	0,
+	0,
+	0x657B,
+	0x657C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x344C,
+	0,
+	0x657D,
+	0,
+	0x657E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6621,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6622,
+	0x6623,
+	0x6624,
+	0,
+	0x6625,
+	0x6626,
+	0,
+	0,
+	0x6628,
+	0x6627,
+	0,
+	0,
+	0x6629,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x662A,
+	0x662B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x662E,
+	0x662C,
+	0x662D,
+	0x3A61,
+	0x3753,
+	0,
+	0,
+	0x4356,
+	0,
+	0x4833,
+	0,
+	0x3D70,
+	0,
+	0,
+	0x474D,
+	0,
+	0x486D,
+	0x662F,
+	0x586D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6630,
+	0x6632,
+	0,
+	0x4D65,
+	0x6631,
+	0x6634,
+	0x6633,
+	0,
+	0x4D53,
+	0,
+	0x6635,
+	0,
+	0x487E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6636,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6639,
+	0,
+	0,
+	0x6638,
+	0x6637,
+	0,
+	0,
+	0,
+	0,
+	0x663A,
+	0x3732,
+	0,
+	0,
+	0,
+	0x4122,
+	0x3541,
+	0,
+	0,
+	0,
+	0,
+	0x663E,
+	0x663B,
+	0,
+	0,
+	0x663C,
+	0,
+	0,
+	0,
+	0x663F,
+	0,
+	0x6640,
+	0x663D,
+	0,
+	0,
+	0,
+	0x3129,
+	0,
+	0,
+	0,
+	0x3227,
+	0,
+	0,
+	0,
+	0x6642,
+	0x6643,
+	0,
+	0,
+	0,
+	0x6644,
+	0,
+	0x4D62,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D2C,
+	0,
+	0x6646,
+	0x6645,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F69,
+	0x6647,
+	0,
+	0,
+	0,
+	0,
+	0x6648,
+	0,
+	0,
+	0x6649,
+	0,
+	0x3465,
+	0,
+	0,
+	0,
+	0,
+	0x344D,
+	0,
+	0,
+	0x664A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x664B,
+	0,
+	0x4B5D,
+	0x4D63,
+	0,
+	0,
+	0,
+
+	0x4D54,
+	0x4F37,
+	0,
+	0x394D,
+	0x664E,
+	0x3C54,
+	0x664D,
+	0,
+	0,
+	0,
+	0,
+	0x664F,
+	0x3C29,
+	0,
+	0,
+	0,
+	0x4251,
+	0,
+	0x6650,
+	0,
+	0,
+	0x394C,
+	0,
+	0x4C57,
+	0x6651,
+	0x6652,
+	0,
+	0,
+	0x6653,
+	0,
+	0,
+	0,
+	0,
+	0x6654,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6655,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3C2A,
+	0,
+	0,
+	0x4C6D,
+	0,
+	0,
+	0,
+	0,
+	0x6657,
+	0,
+	0x433F,
+	0,
+	0x6656,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6659,
+	0,
+	0,
+	0,
+	0x6658,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x665A,
+	0,
+	0,
+	0,
+	0x403B,
+	0,
+	0x665B,
+	0,
+	0x665C,
+	0,
+	0,
+	0,
+	0x4A39,
+	0x665D,
+	0,
+	0x416F,
+	0x665E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x665F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4E7E,
+	0x6662,
+	0,
+	0x6661,
+	0x6660,
+	0x4430,
+	0,
+	0x6663,
+	0x3F26,
+	0,
+	0x6664,
+	0,
+	0,
+	0,
+	0x6665,
+	0x4F38,
+	0x6666,
+	0,
+	0,
+	0,
+	0,
+	0x6667,
+	0x6669,
+	0x6668,
+	0x4825,
+	0,
+	0x4679,
+	0,
+	0x4F3E,
+	0x4829,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x666B,
+	0,
+	0,
+	0x3E53,
+	0,
+	0x492A,
+	0,
+	0x666C,
+	0x666A,
+	0,
+	0x344E,
+	0,
+	0,
+	0,
+	0x3854,
+	0x3B68,
+	0,
+	0,
+	0x486E,
+	0,
+	0,
+	0,
+	0x382A,
+	0x4B43,
+	0,
+	0x666F,
+	0x666D,
+	0,
+	0x394E,
+	0,
+	0x394F,
+	0x3069,
+	0,
+	0x3A68,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4759,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x305F,
+	0x6674,
+	0,
+	0x4340,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4758,
+	0,
+	0x425B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6676,
+	0,
+	0,
+	0x6672,
+	0x6675,
+	0x6670,
+	0,
+	0x6673,
+	0x4B26,
+	0,
+	0,
+	0x3855,
+	0,
+	0,
+	0x307D,
+	0x6671,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6678,
+	0,
+	0x6679,
+	0,
+	0,
+	0x4639,
+	0,
+	0,
+	0,
+	0x363B,
+	0,
+	0,
+	0,
+	0x6726,
+	0x473D,
+	0,
+	0,
+
+	0,
+	0,
+	0x3B69,
+	0,
+	0,
+	0x363C,
+	0x4048,
+	0x4F46,
+	0x4C2E,
+	0x6677,
+	0x4054,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3553,
+	0x667A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x667C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x667B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x667D,
+	0,
+	0x4326,
+	0,
+	0x473E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4431,
+	0,
+	0,
+	0,
+	0,
+	0x6723,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6722,
+	0,
+	0,
+	0,
+	0,
+	0x667E,
+	0,
+	0,
+	0x3F55,
+	0,
+	0x4965,
+	0x6725,
+	0,
+	0x6724,
+	0x3950,
+	0x4F53,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6735,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6729,
+	0x672A,
+	0,
+	0,
+	0,
+	0,
+	0x3C70,
+	0,
+	0,
+	0x6728,
+	0,
+	0x3978,
+	0x6727,
+	0,
+	0,
+	0x672B,
+	0,
+	0,
+	0,
+	0x4432,
+	0x4A22,
+	0x4123,
+	0,
+	0,
+	0,
+	0,
+	0x425C,
+	0x672F,
+	0,
+	0x6730,
+	0x672C,
+	0,
+	0,
+	0,
+	0,
+	0x672D,
+	0,
+	0x672E,
+	0,
+	0,
+	0,
+	0,
+	0x3951,
+	0,
+	0,
+	0,
+	0x6736,
+	0,
+	0x6732,
+	0,
+	0,
+	0,
+	0,
+	0x4966,
+	0,
+	0x4B6C,
+	0x4928,
+	0,
+	0,
+	0x6731,
+	0,
+	0,
+	0x6734,
+	0x6733,
+	0,
+	0,
+	0,
+	0x4B44,
+	0x6737,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6738,
+	0,
+	0,
+	0x4137,
+	0,
+	0x6739,
+	0,
+	0,
+	0x673B,
+	0,
+	0x673F,
+	0,
+	0,
+	0x673C,
+	0x673A,
+	0x473F,
+	0x673D,
+	0,
+	0x673E,
+	0,
+	0,
+	0,
+	0x3232,
+	0,
+	0x6745,
+	0x6740,
+	0,
+	0,
+	0,
+	0x6741,
+	0,
+	0,
+	0,
+	0x6742,
+	0,
+	0x4221,
+	0,
+	0,
+	0,
+	0,
+	0x6744,
+	0x6743,
+	0x6746,
+	0,
+	0,
+	0,
+	0,
+	0x6747,
+	0x6748,
+	0,
+	0,
+	0x3F43,
+	0,
+	0x3269,
+	0,
+	0x6749,
+	0x4E57,
+	0,
+	0x3C2B,
+	0,
+	0,
+	0x3D2D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3B6A,
+	0x4357,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x674A,
+	0x674B,
+	0x3131,
+	0,
+	0x674C,
+	0,
+
+	0,
+	0x674D,
+	0x674E,
+	0,
+	0,
+	0x674F,
+	0,
+	0x6750,
+	0x363D,
+	0x5A2A,
+	0x6751,
+	0,
+	0x4065,
+	0x6752,
+	0x3C4B,
+	0,
+	0x6753,
+	0,
+	0x5030,
+	0,
+	0,
+	0,
+	0x6754,
+	0x4A5E,
+	0x345C,
+	0,
+	0,
+	0x4124,
+	0x3D58,
+	0,
+	0x4971,
+	0x3D2E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6755,
+	0x3952,
+	0x6756,
+	0x484C,
+	0,
+	0x6764,
+	0,
+	0,
+	0,
+	0,
+	0x6758,
+	0,
+	0x4249,
+	0x4775,
+	0x383F,
+	0x6757,
+	0x4125,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6759,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x447A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x675B,
+	0x675A,
+	0x675D,
+	0,
+	0,
+	0x675C,
+	0,
+	0x675E,
+	0,
+	0,
+	0x6760,
+	0,
+	0x675F,
+	0,
+	0x344F,
+	0,
+	0x6761,
+	0,
+	0x6762,
+	0x6763,
+	0,
+	0,
+	0x3A31,
+	0x4E49,
+	0,
+	0x6765,
+	0x3F27,
+	0,
+	0,
+	0,
+	0x3170,
+	0x6766,
+	0x6767,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6768,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3072,
+	0,
+	0x6769,
+	0,
+	0,
+	0,
+	0,
+	0x676A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4967,
+	0,
+	0,
+	0,
+	0x3C47,
+	0,
+	0x676C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3329,
+	0x3032,
+	0,
+	0,
+	0,
+	0,
+	0x676B,
+	0x676E,
+	0x474E,
+	0,
+	0x3F44,
+	0,
+	0x3256,
+	0,
+	0x4B27,
+	0,
+	0,
+	0,
+	0,
+	0x375D,
+	0x365C,
+	0,
+	0x676D,
+	0,
+	0x326A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3423,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3171,
+	0x6772,
+	0x4E6A,
+	0x425D,
+	0,
+	0,
+	0x4944,
+	0,
+	0x677E,
+	0,
+	0x3257,
+	0x677C,
+	0,
+	0x677A,
+	0x6771,
+	0,
+	0x676F,
+	0,
+	0x6770,
+	0,
+	0x3C63,
+	0x366C,
+	0x4377,
+	0,
+	0,
+	0,
+	0x4651,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3151,
+	0,
+	0x6774,
+	0x6773,
+	0,
+	0,
+	0,
+	0,
+	0x6779,
+	0x6775,
+	0x6778,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0x4C50,
+	0x6777,
+	0x3258,
+	0x337D,
+	0x677B,
+	0,
+	0,
+	0x677D,
+	0,
+	0,
+	0,
+	0,
+	0x3754,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6823,
+	0x682C,
+	0x682D,
+	0,
+	0,
+	0,
+	0x302B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6834,
+	0,
+	0,
+	0,
+	0,
+	0x3071,
+	0,
+	0,
+	0x682B,
+	0,
+	0,
+	0,
+	0x682A,
+	0,
+	0x6825,
+	0x6824,
+	0,
+	0x6822,
+	0x6821,
+	0x4363,
+	0,
+	0x427B,
+	0x6827,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6826,
+	0,
+	0,
+	0,
+	0,
+	0x6829,
+	0,
+	0,
+	0,
+	0x4170,
+	0x3755,
+	0,
+	0,
+	0,
+	0,
+	0x3141,
+	0x6828,
+	0,
+	0x3953,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4171,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x683A,
+	0,
+	0x683B,
+	0,
+	0x3259,
+	0,
+	0,
+	0,
+	0x322E,
+	0x6838,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x682E,
+	0,
+	0x6836,
+	0,
+	0x683D,
+	0x6837,
+	0,
+	0,
+	0,
+	0x6835,
+	0,
+	0,
+	0,
+	0,
+	0x6776,
+	0,
+	0,
+	0x6833,
+	0,
+	0,
+	0,
+	0x682F,
+	0,
+	0,
+	0,
+	0x3450,
+	0x6831,
+	0x683C,
+	0,
+	0x6832,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x683E,
+	0,
+	0x6830,
+	0x477C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D69,
+	0,
+	0,
+	0,
+	0x6839,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x684F,
+	0,
+	0,
+	0,
+	0x6847,
+	0,
+	0,
+	0,
+	0x3F7B,
+	0,
+	0,
+	0,
+	0,
+	0x3546,
+	0,
+	0x365D,
+	0,
+	0x6842,
+	0,
+	0,
+	0,
+	0,
+	0x325B,
+	0,
+	0,
+	0x3E54,
+	0,
+	0x6845,
+	0,
+	0,
+	0,
+	0x3A5A,
+	0,
+	0,
+	0x4551,
+	0x684A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A6E,
+	0,
+	0x6841,
+	0,
+	0,
+	0,
+	0x325A,
+	0x3856,
+	0x4929,
+	0x684B,
+	0,
+	0x683F,
+	0,
+	0,
+	0x6848,
+	0,
+	0,
+	0,
+	0x6852,
+	0,
+	0x6843,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0x6844,
+	0x463A,
+	0,
+	0,
+	0x6849,
+	0,
+	0,
+	0,
+	0x6846,
+	0x4B28,
+	0x684C,
+	0x3060,
+	0,
+	0,
+	0,
+	0,
+	0x6840,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x684E,
+	0,
+	0x684D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x476B,
+	0x6854,
+	0,
+	0x685F,
+	0,
+	0,
+	0,
+	0,
+	0x337E,
+	0,
+	0,
+	0,
+	0x6862,
+	0,
+	0,
+	0x6850,
+	0,
+	0,
+	0,
+	0x6855,
+	0x4D6E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x685E,
+	0,
+	0,
+	0x4D55,
+	0,
+	0,
+	0,
+	0,
+	0x4E2A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4378,
+	0,
+	0,
+	0,
+	0x336B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4972,
+	0x6864,
+	0x4621,
+	0,
+	0,
+	0x3031,
+	0,
+	0,
+	0x685D,
+	0,
+	0x6859,
+	0x4172,
+	0x6853,
+	0x685B,
+	0x6860,
+	0,
+	0x472C,
+	0,
+	0,
+	0,
+	0x302A,
+	0,
+	0x6858,
+	0,
+	0x6861,
+	0x4978,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x685C,
+	0,
+	0x6857,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3E55,
+	0,
+	0,
+	0,
+	0,
+	0x3D2F,
+	0,
+	0,
+	0,
+	0x3C2C,
+	0,
+	0,
+	0,
+	0,
+	0x4C58,
+	0,
+	0,
+	0x4947,
+	0,
+	0,
+	0x6867,
+	0,
+	0x6870,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x685A,
+	0,
+	0,
+	0,
+	0,
+	0x3377,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3E78,
+	0x6865,
+	0,
+	0x686A,
+	0x4173,
+	0,
+	0,
+	0x6866,
+	0,
+	0x686D,
+	0,
+	0,
+	0x435F,
+	0,
+	0x686E,
+	0,
+	0,
+	0x4D56,
+	0x6863,
+	0x3338,
+	0,
+	0x6869,
+	0,
+	0,
+	0x686C,
+	0x4C2C,
+	0,
+	0,
+	0,
+	0,
+	0x686F,
+	0,
+	0,
+	0x6868,
+	0x686B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B29,
+	0,
+	0x4F21,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6873,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x687A,
+	0,
+	0,
+	0x6872,
+
+	0x3C43,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6851,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A4E,
+	0,
+	0x4C22,
+	0x6879,
+	0x6878,
+	0,
+	0x6874,
+	0x6875,
+	0,
+	0x3136,
+	0,
+	0,
+	0,
+	0,
+	0x6877,
+	0,
+	0x6871,
+	0,
+	0,
+	0,
+	0,
+	0x4455,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6876,
+	0x307E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4222,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A43,
+	0,
+	0,
+	0x687B,
+	0x6921,
+	0,
+	0x4859,
+	0,
+	0,
+	0,
+	0,
+	0x687E,
+	0x3E56,
+	0x3C49,
+	0x6923,
+	0,
+	0,
+	0x363E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6924,
+	0,
+	0x4979,
+	0x687D,
+	0,
+	0x6856,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x687C,
+	0,
+	0,
+	0,
+	0,
+	0x4F4F,
+	0x4622,
+	0x4973,
+	0,
+	0,
+	0x692B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6931,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6932,
+	0,
+	0x6925,
+	0,
+	0,
+	0,
+	0x4776,
+	0,
+	0,
+	0x692F,
+	0x6927,
+	0,
+	0x6929,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6933,
+	0x6928,
+	0,
+	0,
+	0x692C,
+	0,
+	0,
+	0x3172,
+	0,
+	0x4665,
+	0,
+	0x692D,
+	0x6930,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6926,
+	0,
+	0x4126,
+	0,
+	0x692A,
+	0x3B27,
+	0x3F45,
+	0x3730,
+	0x4C74,
+	0,
+	0x4C79,
+	0x3D72,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6937,
+	0x6935,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4F4E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6934,
+	0,
+	0,
+	0,
+	0x4D75,
+	0,
+	0x6936,
+	0x6938,
+	0,
+	0,
+	0,
+	0,
+	0x6939,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x693C,
+	0x693A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4623,
+	0x693B,
+	0,
+	0,
+	0,
+	0x484D,
+	0x692E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D73,
+	0,
+	0x693D,
+	0x6942,
+	0x4174,
+	0,
+	0,
+	0x6941,
+	0,
+
+	0,
+	0,
+	0x6922,
+	0,
+	0,
+	0,
+	0x6943,
+	0x4149,
+	0,
+	0,
+	0x693E,
+	0x6940,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x693F,
+	0,
+	0,
+	0x5D31,
+	0x5D22,
+	0,
+	0,
+	0x6945,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6944,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D76,
+	0,
+	0x623C,
+	0x6946,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6947,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6948,
+	0x3857,
+	0,
+	0x3554,
+	0,
+	0,
+	0,
+	0x694A,
+	0x515D,
+	0,
+	0,
+	0,
+	0,
+	0x3575,
+	0,
+	0x4E3A,
+	0,
+	0x3673,
+	0x694B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x694C,
+	0,
+	0,
+	0,
+	0x436E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x694D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x467A,
+	0,
+	0x303A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3263,
+	0x6952,
+	0x6953,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x694E,
+	0,
+	0x3B3D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x694F,
+	0x4742,
+	0,
+	0,
+	0,
+	0,
+	0x6950,
+	0x6951,
+	0x695B,
+	0,
+	0,
+	0,
+	0x6955,
+	0x6958,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6954,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6956,
+	0,
+	0x6957,
+	0x3C58,
+	0,
+	0x6959,
+	0,
+	0x4341,
+	0,
+	0x3756,
+	0x3342,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x695C,
+	0,
+	0,
+	0,
+	0,
+	0x333F,
+	0,
+	0x6961,
+	0,
+	0,
+	0x695D,
+	0x6960,
+	0,
+	0,
+	0,
+	0,
+	0x483A,
+	0,
+	0,
+	0,
+	0,
+	0x695E,
+	0,
+	0,
+	0x695F,
+	0x4948,
+	0x485A,
+	0x6962,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x427D,
+	0x696C,
+	0,
+	0x6968,
+	0,
+	0,
+	0x326B,
+	0,
+
+	0x6966,
+	0,
+	0x4B2A,
+	0x6967,
+	0,
+	0,
+	0x6964,
+	0,
+	0x6965,
+	0x696A,
+	0x696D,
+	0,
+	0,
+	0x696B,
+	0,
+	0,
+	0,
+	0x6969,
+	0x6963,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4358,
+	0,
+	0x6974,
+	0,
+	0x4C2A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6972,
+	0,
+	0,
+	0,
+	0x6973,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x696E,
+	0,
+	0,
+	0x6970,
+	0,
+	0,
+	0,
+	0x6971,
+	0,
+	0,
+	0,
+	0x696F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4066,
+	0,
+	0x4F39,
+	0x6978,
+	0,
+	0x6979,
+	0,
+	0,
+	0,
+	0,
+	0x6A21,
+	0,
+	0x3F2A,
+	0,
+	0x697B,
+	0,
+	0x697E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6976,
+	0x6975,
+	0,
+	0,
+	0x6A22,
+	0,
+	0,
+	0x325C,
+	0,
+	0x697C,
+	0,
+	0x6A23,
+	0,
+	0,
+	0,
+	0x697D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x697A,
+	0,
+	0x4433,
+	0,
+	0x6977,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4768,
+	0,
+	0,
+	0x6A27,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D3B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A26,
+	0,
+	0,
+	0x6A25,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A2E,
+	0,
+	0,
+	0,
+	0x6A28,
+	0,
+	0,
+	0,
+	0x6A30,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D66,
+	0x6A33,
+	0,
+	0x6A2A,
+	0,
+	0,
+	0x6A2B,
+	0,
+	0,
+	0,
+	0x6A2F,
+	0,
+	0x6A32,
+	0x6A31,
+	0,
+	0,
+	0,
+	0x6A29,
+	0,
+	0,
+	0,
+	0,
+	0x6A2C,
+	0,
+	0x6A3D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A36,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A34,
+	0,
+	0,
+	0x6A35,
+	0,
+	0,
+	0,
+	0x6A3A,
+	0x6A3B,
+	0,
+	0x332A,
+	0,
+	0x3542,
+	0,
+	0,
+	0x6A39,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A24,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A38,
+	0x6A3C,
+	0x6A37,
+	0,
+	0x6A3E,
+	0,
+	0,
+	0,
+	0x6A40,
+	0x6A3F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A42,
+	0x6A41,
+	0x695A,
+	0,
+	0,
+	0,
+	0x6A46,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A43,
+	0,
+	0,
+	0,
+	0,
+	0x6A44,
+	0,
+	0,
+	0x6A45,
+	0,
+	0x6A47,
+	0,
+	0,
+	0,
+	0,
+	0x376C,
+	0,
+	0x6A49,
+	0,
+	0x6A48,
+	0,
+	0x3D30,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3954,
+	0x5E27,
+	0,
+	0,
+	0,
+	0,
+	0x6A4A,
+	0x3D51,
+	0,
+	0,
+	0,
+	0x3339,
+	0,
+	0x6A4B,
+	0,
+	0x3152,
+	0,
+	0x3E57,
+	0x6A4C,
+	0,
+	0,
+	0x3955,
+	0x6A4D,
+	0x3061,
+	0,
+	0,
+	0,
+	0,
+	0x493D,
+	0,
+	0,
+	0x6A4E,
+	0,
+	0,
+	0,
+	0,
+	0x3F6A,
+	0,
+	0x6A55,
+	0,
+	0,
+	0x6A52,
+	0,
+	0x436F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A53,
+	0x6A50,
+	0x365E,
+	0,
+	0x6A4F,
+	0x6A56,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3736,
+	0,
+	0,
+	0x425E,
+	0,
+	0x6A5C,
+	0,
+	0,
+	0,
+	0,
+	0x6A58,
+	0,
+	0,
+	0,
+	0x4235,
+	0x6A57,
+	0,
+	0x6A5A,
+	0,
+	0,
+	0,
+	0,
+	0x6A51,
+	0,
+	0,
+	0,
+	0x6A5B,
+	0,
+	0x6A5D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x486F,
+	0,
+	0,
+	0x6A59,
+	0,
+	0x6A5E,
+	0x6A60,
+	0,
+	0,
+	0x3853,
+	0x6A54,
+	0,
+	0x3041,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A5F,
+	0,
+	0x3A5B,
+	0x4E76,
+	0x6A61,
+	0x6A62,
+	0x4175,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4E22,
+	0,
+	0,
+	0,
+	0,
+	0x6A63,
+	0x4D35,
+	0,
+	0,
+	0x6A64,
+	0x6A65,
+	0,
+	0,
+	0x4A64,
+	0x6A66,
+	0,
+	0x3A40,
+	0,
+	0x4E23,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A6B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A6C,
+	0x3E58,
+	0x6A6A,
+	0,
+	0,
+	0,
+	0x4D67,
+	0x6A67,
+	0,
+	0,
+	0x6A69,
+	0x403D,
+	0x3F7E,
+	0,
+
+	0,
+	0,
+	0x6A68,
+	0,
+	0x6A6D,
+	0,
+	0,
+	0x4A23,
+	0,
+	0,
+	0x6A6F,
+	0,
+	0x6A6E,
+	0,
+	0,
+	0,
+	0x336C,
+	0,
+	0x4B2B,
+	0x6A70,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A7C,
+	0x6A72,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A73,
+	0,
+	0,
+	0,
+	0,
+	0x6A74,
+	0x6A75,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A79,
+	0,
+	0x6A7A,
+	0,
+	0,
+	0x6A78,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A76,
+	0,
+	0x6A71,
+	0x6A77,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A7B,
+	0x7037,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3228,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6A7E,
+	0x365F,
+	0x6A7D,
+	0,
+	0,
+	0,
+	0x6B22,
+	0,
+	0x6B21,
+	0,
+	0,
+	0,
+	0x6B24,
+	0,
+	0,
+	0x6B23,
+	0,
+	0x6B25,
+	0,
+	0,
+	0x3D31,
+	0,
+	0x6B26,
+	0,
+	0,
+	0x6B27,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6B28,
+	0x403E,
+	0,
+	0x4D57,
+	0,
+	0x6B29,
+	0,
+	0,
+	0x4A24,
+	0x4746,
+	0x6B2A,
+	0,
+	0x6B2B,
+	0x382B,
+	0,
+	0,
+	0,
+	0x352C,
+	0,
+	0,
+	0,
+	0x6B2C,
+	0,
+	0,
+	0x3B6B,
+	0x4741,
+	0x6B2D,
+	0,
+	0x3350,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6B2E,
+	0,
+	0,
+	0,
+	0,
+	0x6B30,
+	0x4D77,
+	0,
+	0x6B2F,
+	0x3F46,
+	0,
+	0x6B31,
+	0,
+	0,
+	0x6B32,
+	0,
+	0,
+	0x6B33,
+	0x3451,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6B34,
+	0,
+	0,
+	0x6B35,
+	0,
+	0x6B36,
+	0x6B37,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3351,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6B38,
+	0,
+	0x6B39,
+	0x6B3A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3272,
+	0,
+	0,
+	0x3F28,
+	0x6B3B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6B3C,
+	0,
+	0,
+	0,
+	0x6B3D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0x3840,
+	0,
+	0x447B,
+	0x6B3E,
+	0,
+	0,
+	0,
+	0,
+	0x3757,
+	0,
+	0x3F56,
+	0,
+	0x6B41,
+	0,
+	0x4624,
+	0,
+	0x6B40,
+	0,
+	0,
+	0x3731,
+	0,
+	0,
+	0x6B3F,
+	0x4277,
+	0x352D,
+	0,
+	0,
+	0x6B42,
+	0,
+	0x6B43,
+	0,
+	0x3E59,
+	0,
+	0,
+	0,
+	0x376D,
+	0,
+	0x6B44,
+	0,
+	0,
+	0,
+	0,
+	0x4B2C,
+	0,
+	0,
+	0x405F,
+	0,
+	0,
+	0,
+	0x3576,
+	0,
+	0x4C75,
+	0x414A,
+	0,
+	0x6B45,
+	0,
+	0,
+	0,
+	0x3F47,
+	0x4370,
+	0x3E5A,
+	0,
+	0,
+	0,
+	0,
+	0x6B46,
+	0,
+	0,
+	0,
+	0,
+	0x6B49,
+	0,
+	0x6B4A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3A3E,
+	0x4242,
+	0x6B48,
+	0,
+	0x3E5B,
+	0x493E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6B47,
+	0,
+	0,
+	0x3B6C,
+	0,
+	0x3153,
+	0,
+	0x6B4E,
+	0x3758,
+	0,
+	0,
+	0x3B6E,
+	0,
+	0,
+	0x3B6D,
+	0,
+	0x4F4D,
+	0x6B4D,
+	0x6B4C,
+	0x4127,
+	0,
+	0x354D,
+	0x4F43,
+	0x333A,
+	0x3E5C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6B4B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6B50,
+	0,
+	0x6B51,
+	0x6B4F,
+	0,
+	0x3858,
+	0,
+	0x4D40,
+	0,
+	0,
+	0x3B6F,
+	0x4727,
+	0,
+	0,
+	0,
+	0x6B54,
+	0,
+	0x4040,
+	0,
+	0x4342,
+	0,
+	0,
+	0x4D36,
+	0,
+	0x6B57,
+	0,
+	0,
+	0,
+	0x386C,
+	0,
+	0x403F,
+	0x6B53,
+	0,
+	0x6B58,
+	0x386D,
+	0x6B55,
+	0x6B56,
+	0,
+	0x6B52,
+	0,
+	0,
+	0,
+	0x4062,
+	0x4649,
+	0,
+	0,
+	0x432F,
+	0,
+	0x325D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4870,
+	0,
+	0,
+	0x3543,
+	0,
+	0,
+	0x4434,
+	0,
+	0,
+	0x6B5B,
+	0,
+	0x6B59,
+	0,
+	0,
+	0x434C,
+	0,
+	0,
+	0,
+	0x4041,
+	0x3452,
+	0x6B5A,
+	0,
+	0x3F5B,
+	0,
+	0,
+	0x4E4A,
+	0,
+	0,
+	0,
+	0x4F40,
+	0,
+	0,
+	0,
+	0x6B5C,
+	0x6B67,
+	0x4435,
+	0,
+	0x6B66,
+	0,
+	0x6B63,
+	0x6B6B,
+	0x6B64,
+	0,
+	0x6B60,
+	0,
+	0x447C,
+	0x6B5F,
+	0,
+	0,
+	0,
+	0x6B5D,
+	0,
+	0x4D21,
+	0x3B70,
+	0,
+	0,
+	0x6B61,
+	0,
+	0x6B5E,
+	0,
+	0,
+	0,
+	0x6B65,
+	0x3D74,
+	0,
+	0x3841,
+	0,
+	0,
+	0,
+	0x427A,
+	0,
+
+	0x4B45,
+	0x315A,
+	0x3062,
+	0,
+	0x4625,
+	0,
+	0,
+	0x6B69,
+	0,
+	0,
+	0,
+	0,
+	0x6B68,
+	0,
+	0x4666,
+	0,
+	0x6B6D,
+	0,
+	0,
+	0,
+	0x6B62,
+	0,
+	0x6B6C,
+	0x6B6E,
+	0,
+	0x382C,
+	0x6B6A,
+	0x3956,
+	0,
+	0x3C55,
+	0,
+	0,
+	0x6B6F,
+	0x4D58,
+	0,
+	0,
+	0,
+	0,
+	0x6B72,
+	0,
+	0x6B75,
+	0,
+	0,
+	0x6B73,
+	0x4935,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6B70,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3660,
+	0,
+	0,
+	0,
+	0,
+	0x6B74,
+	0,
+	0,
+	0x6B76,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6B7A,
+	0,
+	0,
+	0x6B77,
+	0,
+	0x6B79,
+	0x6B78,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6B7B,
+	0,
+	0x3C31,
+	0,
+	0x6B7D,
+	0x6B7C,
+	0x4968,
+	0,
+	0,
+	0x6C21,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3759,
+	0,
+	0,
+	0,
+	0,
+	0x6B7E,
+	0x6C22,
+	0,
+	0,
+	0x6C23,
+	0x3544,
+	0x6641,
+	0x3E79,
+	0,
+	0x6C24,
+	0,
+	0,
+	0x386E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C25,
+	0,
+	0,
+	0x6C26,
+	0,
+	0,
+	0x3B3E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5A4E,
+	0,
+	0x6C27,
+	0,
+	0x6C28,
+	0,
+	0x3D32,
+	0,
+	0x6C29,
+	0x6C2A,
+	0,
+	0,
+	0x6C2B,
+	0,
+	0,
+	0x6C2C,
+	0x6C2D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x432B,
+	0,
+	0,
+	0x6C2E,
+	0,
+	0,
+	0,
+	0,
+	0x6C30,
+	0,
+	0x6C2F,
+	0,
+	0,
+	0,
+	0,
+	0x4626,
+	0,
+	0x6C31,
+	0,
+	0x4B2D,
+	0,
+	0x6C32,
+	0,
+	0x6C33,
+	0,
+	0x6C34,
+	0,
+	0,
+	0,
+	0,
+	0x6C35,
+	0,
+	0,
+	0,
+	0,
+	0x465A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3E5D,
+	0x6C36,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x396B,
+	0x502E,
+	0x6C37,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C38,
+	0x493F,
+	0x6C39,
+	0,
+	0x6C41,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C3A,
+	0,
+	0,
+	0x6C3C,
+	0,
+	0,
+	0,
+	0x6C3B,
+	0x6C3D,
+	0,
+	0x4B46,
+	0x6C3E,
+	0x6C3F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C40,
+	0,
+	0,
+	0,
+	0x6C42,
+	0,
+	0,
+	0,
+	0,
+	0x332D,
+	0x4467,
+	0,
+	0x4969,
+	0x3A62,
+	0x3957,
+	0,
+	0,
+	0,
+	0,
+	0x494F,
+	0x325F,
+	0x484E,
+	0x6C45,
+	0x3453,
+	0x4055,
+	0x6C44,
+	0x6C49,
+	0x4379,
+	0x4C63,
+	0,
+	0x6C47,
+	0x6C48,
+	0x352E,
+	0,
+	0x6C4A,
+	0x4763,
+	0x425F,
+	0,
+	0,
+	0x4871,
+	0x453D,
+	0x6C46,
+	0,
+	0x4B47,
+	0x326C,
+	0x6C4C,
+	0x4F28,
+	0x4442,
+	0x4F45,
+	0,
+	0,
+	0x3B71,
+	0x6C4B,
+	0,
+	0x4231,
+	0,
+	0,
+	0x6C5C,
+	0x4128,
+	0,
+	0,
+	0x4678,
+	0,
+	0x4950,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C4F,
+	0x3B3F,
+	0x3B72,
+	0,
+	0x3E5E,
+	0,
+	0x4765,
+	0,
+	0x382D,
+	0x6C4E,
+	0x6C4D,
+	0,
+	0x496A,
+	0,
+	0,
+	0,
+	0x3C41,
+	0,
+	0,
+	0x4552,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C51,
+	0x6C52,
+	0x3958,
+	0x6C50,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0x6C53,
+	0x6C54,
+	0,
+	0x6C56,
+	0x4223,
+	0,
+	0x6C55,
+	0x3466,
+	0,
+	0x6C58,
+	0,
+	0x6C57,
+	0x6C59,
+	0,
+	0,
+	0x6C5B,
+	0x6C5D,
+	0,
+	0x6C5E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4056,
+	0,
+	0x3C4F,
+	0x6C5F,
+	0,
+	0,
+	0,
+	0x3352,
+	0,
+	0x6C60,
+	0,
+	0,
+	0x4176,
+	0x6C61,
+	0,
+	0x6C62,
+	0x496B,
+	0,
+	0,
+	0x352F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C63,
+	0,
+	0,
+	0,
+	0x4436,
+	0,
+	0,
+	0,
+	0,
+	0x315B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C64,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3C71,
+	0,
+	0,
+	0,
+	0,
+	0x3F76,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x422D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C67,
+	0,
+	0,
+	0,
+	0x6C66,
+	0,
+	0,
+	0,
+	0x6C65,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C6D,
+	0x6C6B,
+	0,
+	0,
+	0x6C68,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C6A,
+	0,
+	0,
+	0,
+	0x6C69,
+	0x6C6C,
+	0,
+	0x3577,
+	0,
+	0x6C70,
+	0,
+	0x4057,
+	0,
+	0x6C71,
+	0,
+	0,
+	0,
+	0,
+	0x3859,
+	0,
+	0x6C6E,
+	0x6C6F,
+	0,
+	0,
+	0,
+	0x4F29,
+	0,
+	0,
+	0,
+	0x4437,
+	0,
+	0x4129,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C72,
+	0,
+	0,
+	0x6C75,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C73,
+	0x6C74,
+	0x4D59,
+	0,
+	0,
+	0,
+	0,
+	0x4627,
+	0x6C78,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C76,
+	0x6C77,
+	0x6C79,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D29,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C7C,
+	0,
+	0,
+	0,
+	0x6C7D,
+	0x6C7B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6C7A,
+	0,
+	0x447D,
+	0,
+	0,
+	0x6D21,
+	0x6D25,
+	0x6D22,
+	0x6C7E,
+	0,
+	0x6D23,
+	0,
+	0,
+	0,
+	0x6D24,
+	0,
+	0,
+	0,
+	0,
+	0x6D2B,
+	0,
+	0,
+	0,
+	0x6D26,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4058,
+	0x6D28,
+	0,
+	0,
+	0x6D2A,
+	0x6D27,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D2D,
+	0,
+	0x3D33,
+	0,
+	0x6D2C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D2E,
+	0,
+	0,
+	0,
+	0,
+	0x6D2F,
+	0,
+	0,
+	0x6D32,
+	0x6D31,
+	0,
+	0x6D30,
+	0,
+	0,
+	0x6D34,
+	0x6D33,
+	0,
+	0x4C76,
+	0,
+	0,
+	0,
+	0x6D36,
+	0,
+	0x6D35,
+	0x6D37,
+	0,
+	0,
+	0,
+	0,
+	0x6D38,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D3A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D39,
+	0x3F48,
+	0x6D3B,
+	0,
+	0,
+	0x366D,
+	0x6D3C,
+	0x6D3E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D3F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D40,
+	0x6D3D,
+	0,
+	0x6D41,
+	0,
+	0x3C56,
+	0x6D42,
+	0x3530,
+	0x3733,
+	0,
+	0,
+	0,
+	0,
+	0x382E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D43,
+	0,
+	0,
+	0,
+	0x4670,
+	0,
+	0,
+	0x453E,
+	0x6D44,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D47,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3C34,
+	0,
+	0,
+	0x6D46,
+	0x6D45,
+	0x375A,
+	0x6D48,
+	0,
+
+	0,
+	0,
+	0,
+	0x3353,
+	0,
+	0x6D4A,
+	0,
+	0,
+	0,
+	0x3A5C,
+	0x6D49,
+	0,
+	0x6D52,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D4C,
+	0x6D4E,
+	0x4A65,
+	0x6D4B,
+	0,
+	0,
+	0,
+	0x6D4D,
+	0,
+	0x6D51,
+	0x6D4F,
+	0x3531,
+	0,
+	0x6D50,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D53,
+	0,
+	0,
+	0x475A,
+	0x4E58,
+	0,
+	0,
+	0,
+	0,
+	0x3D34,
+	0,
+	0,
+	0,
+	0x6D54,
+	0,
+	0,
+	0,
+	0,
+	0x4D22,
+	0x6D56,
+	0,
+	0x6D55,
+	0,
+	0,
+	0x6D59,
+	0x4D41,
+	0,
+	0,
+	0x6D58,
+	0,
+	0x336D,
+	0x6D57,
+	0x6D5C,
+	0,
+	0,
+	0x6D5B,
+	0,
+	0,
+	0x6D5A,
+	0x4532,
+	0x6D5D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D5E,
+	0,
+	0,
+	0,
+	0,
+	0x6D5F,
+	0,
+	0,
+	0x396C,
+	0,
+	0x3725,
+	0x6D60,
+	0x6D61,
+	0x6D62,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F49,
+	0x6D63,
+	0,
+	0x3C2D,
+	0x6D64,
+	0,
+	0,
+	0,
+	0x6D65,
+	0,
+	0,
+	0,
+	0x5221,
+	0x517E,
+	0,
+	0,
+	0,
+	0,
+	0x6D66,
+	0x6570,
+	0x6D67,
+	0x4324,
+	0x3F2B,
+	0x4740,
+	0,
+	0,
+	0,
+	0,
+	0x6D68,
+	0,
+	0,
+	0x4A55,
+	0x4454,
+	0x397E,
+	0,
+	0,
+	0x4329,
+	0,
+	0,
+	0x312A,
+	0,
+	0x4B78,
+	0x3F57,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x375E,
+	0,
+	0,
+	0x3661,
+	0,
+	0,
+	0x4A56,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D69,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6D6B,
+	0,
+	0,
+	0x6D6A,
+	0x3260,
+	0,
+	0,
+	0x4676,
+	0x6D6C,
+	0x4777,
+	0,
+	0x4533,
+	0,
+	0x6D6D,
+	0x3D52,
+	0,
+	0,
+	0,
+	0x6D6F,
+	0,
+	0,
+	0x4C42,
+	0x6D7E,
+	0x6D71,
+	0x6D72,
+	0,
+	0,
+	0x4449,
+	0,
+	0,
+
+	0x4260,
+	0x4177,
+	0,
+	0x4628,
+	0,
+	0x6D70,
+	0x3555,
+	0,
+	0,
+	0,
+	0,
+	0x6D79,
+	0,
+	0x6D76,
+	0x6E25,
+	0x4629,
+	0x4360,
+	0x6D73,
+	0,
+	0x447E,
+	0x4553,
+	0x6D74,
+	0x6D78,
+	0x3F60,
+	0,
+	0x4767,
+	0x444C,
+	0,
+	0,
+	0x4042,
+	0x6D77,
+	0x422E,
+	0x4224,
+	0x6D75,
+	0x3029,
+	0x4F22,
+	0,
+	0,
+	0,
+	0x6D7A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4261,
+	0,
+	0,
+	0x3D35,
+	0x3F4A,
+	0,
+	0,
+	0x6D7C,
+	0x6D7B,
+	0,
+	0x306F,
+	0x6D7D,
+	0,
+	0,
+	0x492F,
+	0,
+	0x6E27,
+	0,
+	0,
+	0x465B,
+	0x3F6B,
+	0,
+	0,
+	0x4359,
+	0,
+	0x3678,
+	0,
+	0x6E26,
+	0x4D37,
+	0x313F,
+	0,
+	0x4A57,
+	0x3261,
+	0x6E21,
+	0x6E22,
+	0x6E23,
+	0x6E24,
+	0x463B,
+	0x4323,
+	0x3063,
+	0x6E28,
+	0,
+	0x6E29,
+	0x7423,
+	0,
+	0,
+	0x423D,
+	0,
+	0x6E2A,
+	0,
+	0x3173,
+	0x414C,
+	0,
+	0x382F,
+	0,
+	0x4D5A,
+	0,
+	0,
+	0x6E2B,
+	0x452C,
+	0,
+	0,
+	0,
+	0x4178,
+	0x3C57,
+	0x6E2C,
+	0,
+	0,
+	0x6E2F,
+	0,
+	0,
+	0x3D65,
+	0x6E2D,
+	0x412B,
+	0x412A,
+	0,
+	0x3064,
+	0,
+	0x4E4B,
+	0x6E31,
+	0,
+	0x4872,
+	0x6E33,
+	0x6E32,
+	0x6E30,
+	0x6364,
+	0x3454,
+	0,
+	0,
+	0x6D6E,
+	0,
+	0x6E35,
+	0x6E34,
+	0,
+	0,
+	0,
+	0,
+	0x6E36,
+	0,
+	0x4D38,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4661,
+	0,
+	0,
+	0x4B2E,
+	0,
+	0x6E37,
+	0,
+	0x3C59,
+	0,
+	0,
+	0,
+	0,
+	0x6E38,
+	0,
+	0x6E39,
+	0,
+	0,
+	0,
+	0x6E3A,
+	0,
+	0,
+	0x4521,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x306A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3959,
+	0,
+	0,
+	0,
+	0x4F3A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E3E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3734,
+	0x6E3B,
+	0,
+	0x6E3C,
+	0,
+	0,
+	0,
+	0x4974,
+	0,
+	0,
+	0,
+	0,
+	0x3354,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4D39,
+	0,
+	0x363F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4554,
+	0,
+	0,
+
+	0,
+	0,
+	0x6E3F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E40,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E41,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4522,
+	0,
+	0,
+	0x6E43,
+	0,
+	0x6E42,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4653,
+	0x6E44,
+	0x3D36,
+	0x3C60,
+	0x475B,
+	0x4371,
+	0,
+	0,
+	0,
+	0x3C72,
+	0,
+	0x3F6C,
+	0,
+	0x6E45,
+	0,
+	0x6E46,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F5D,
+	0x6E47,
+	0,
+	0x6E48,
+	0,
+	0,
+	0,
+	0x6E49,
+	0x4D6F,
+	0,
+	0x3D37,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E4B,
+	0x6E4A,
+	0,
+	0x395A,
+	0,
+	0x3973,
+	0x3B40,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E4E,
+	0,
+	0,
+	0,
+	0,
+	0x3D66,
+	0,
+	0x6E4D,
+	0,
+	0x6E4C,
+	0,
+	0x4269,
+	0,
+	0,
+	0x386F,
+	0,
+	0x4043,
+	0,
+	0,
+	0,
+	0,
+	0x4830,
+	0,
+	0,
+	0,
+	0,
+	0x3D39,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E4F,
+	0,
+	0x3E5F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E52,
+	0x6E50,
+	0,
+	0,
+	0,
+	0x6E51,
+	0,
+	0,
+	0,
+	0,
+	0x6E54,
+	0x6E53,
+	0,
+	0,
+	0x3E7A,
+	0,
+	0x6E55,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E56,
+	0x6E57,
+	0,
+	0,
+	0,
+	0,
+	0x4850,
+	0x3A53,
+	0x3C61,
+	0x6E58,
+	0,
+	0x6E59,
+	0x4E24,
+	0x3D45,
+	0x4C6E,
+	0x4E4C,
+	0x6E5A,
+	0x3662,
+	0,
+	0,
+	0,
+	0,
+	0x6E5B,
+	0,
+	0x4523,
+	0,
+	0,
+	0x6E5E,
+	0x3378,
+	0x3F4B,
+	0,
+	0x6E5C,
+	0,
+	0x6E5D,
+	0,
+	0x4460,
+	0,
+	0,
+	0x4B55,
+	0x367C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E60,
+	0x6E61,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E5F,
+	0,
+	0,
+	0x6E63,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x465F,
+	0x3343,
+	0,
+	0,
+	0x6E67,
+	0,
+	0,
+	0x6E64,
+	0x6E66,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E62,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F4F,
+	0,
+	0,
+	0x6E65,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4E6B,
+	0,
+	0,
+	0x385A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E6F,
+	0,
+	0,
+	0,
+	0,
+	0x4534,
+	0x6E6A,
+	0,
+	0,
+	0x6E6D,
+	0x6E6B,
+	0,
+	0x6E70,
+	0,
+	0,
+	0,
+	0,
+	0x6E71,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E69,
+	0,
+	0,
+	0x6E76,
+	0x3174,
+	0,
+	0,
+	0x6E68,
+	0,
+	0,
+	0,
+	0x482D,
+	0,
+	0x6E6C,
+	0,
+	0x3E60,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x395B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B48,
+	0,
+	0x3664,
+	0,
+	0,
+	0x3D46,
+	0,
+	0x463C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x412D,
+	0,
+	0x6E74,
+	0,
+	0x6E6E,
+	0x6E73,
+	0,
+	0x4C43,
+	0,
+	0x4438,
+	0x6E75,
+	0x6E72,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x412C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E79,
+	0,
+	0x6E78,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E77,
+	0,
+	0,
+	0x4B2F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3D7B,
+	0,
+	0,
+	0,
+	0,
+	0x6E7A,
+	0x4A5F,
+	0,
+	0,
+	0x3154,
+	0,
+	0,
+	0,
+	0,
+	0x4946,
+	0x4372,
+	0,
+	0,
+	0,
+	0,
+	0x3578,
+	0,
+	0x6E7C,
+	0,
+	0x395D,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3B2C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E7B,
+	0x3F6D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3F6E,
+	0x6F21,
+	0x6F23,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3E7B,
+	0,
+	0x6F22,
+	0x6F24,
+	0,
+	0,
+	0x3653,
+	0,
+	0x4945,
+	0,
+	0,
+	0x3C62,
+	0x4F23,
+	0,
+	0x6E7E,
+	0x3A78,
+	0,
+	0,
+	0x4F3F,
+	0,
+	0,
+	0x6F26,
+	0,
+	0,
+	0,
+	0,
+	0x6F25,
+	0x6F27,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6E7D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4669,
+	0,
+	0x4555,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4457,
+	0,
+	0x6F2C,
+	0,
+	0,
+	0,
+	0,
+	0x4343,
+	0x6F28,
+	0,
+	0,
+	0,
+	0x6F29,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x372D,
+	0,
+	0x6F2B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3830,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F2A,
+	0,
+	0x3E61,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3379,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F30,
+	0,
+	0x3A3F,
+	0x4179,
+	0,
+	0,
+	0x444A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x333B,
+	0,
+	0,
+	0,
+	0,
+	0x6F2E,
+	0x6F2F,
+	0x4443,
+	0,
+	0x6F2D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F31,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F37,
+	0,
+	0,
+	0,
+	0,
+	0x6F3A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F39,
+	0x452D,
+	0,
+	0,
+	0,
+	0,
+	0x6F32,
+	0x6F33,
+	0x6F36,
+	0,
+	0,
+	0,
+	0,
+	0x6F38,
+	0,
+	0,
+	0,
+	0x3640,
+	0,
+	0,
+	0x6F3B,
+	0x6F35,
+	0,
+	0,
+	0x6F34,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0x6F3F,
+	0,
+	0,
+	0,
+	0x6F40,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F41,
+	0,
+	0,
+	0x6F3E,
+	0x6F3D,
+	0,
+	0,
+	0,
+	0x3E62,
+	0x462A,
+	0x6F3C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F45,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F43,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F44,
+	0x6F42,
+	0,
+	0x4278,
+	0,
+	0x6F46,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F47,
+	0,
+	0,
+	0x6F49,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3455,
+	0x6F48,
+	0x4C7A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F54,
+	0x6F4A,
+	0,
+	0,
+	0x6F4D,
+	0,
+	0x6F4B,
+	0,
+	0x6F4C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F4E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F50,
+	0,
+	0,
+	0,
+	0,
+	0x6F51,
+	0,
+	0x6F52,
+	0,
+	0,
+	0,
+	0,
+	0x6F55,
+	0x6F53,
+	0x6F56,
+	0x6F58,
+	0,
+	0x6F57,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4439,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4C67,
+	0,
+	0x6F59,
+	0x412E,
+	0,
+	0,
+	0,
+	0x6F5A,
+	0,
+	0x4A44,
+	0x6F5B,
+	0x332B,
+	0,
+	0,
+	0,
+	0x313C,
+	0,
+	0x3457,
+	0,
+	0x3456,
+	0x6F5C,
+	0,
+	0x6F5D,
+	0,
+	0x6F5E,
+	0x6F5F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F60,
+	0,
+	0x3458,
+	0x3355,
+	0x395E,
+	0x4836,
+	0,
+	0x6F62,
+	0x6F61,
+	0,
+	0,
+	0,
+	0,
+	0x6F63,
+	0,
+	0,
+	0,
+	0,
+	0x315C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F66,
+	0,
+	0x6F65,
+	0x6F64,
+	0,
+	0x6F67,
+	0,
+	0,
+	0,
+	0,
+	0x6F6A,
+	0,
+	0,
+	0,
+	0x3047,
+	0,
+	0,
+	0x6F68,
+	0,
+	0x6F6C,
+	0x6F6B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F6E,
+	0x6F6D,
+	0x6F6F,
+	0,
+	0x462E,
+	0,
+	0,
+	0,
+	0x6F70,
+	0,
+	0,
+	0,
+	0,
+	0x6F71,
+	0x6F73,
+	0,
+	0,
+	0x6F72,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x496C,
+	0,
+	0,
+	0,
+	0,
+	0x6F74,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F75,
+	0,
+	0x3A65,
+	0,
+	0,
+	0,
+	0x6F76,
+	0x6F77,
+	0,
+	0,
+	0x4B49,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x414B,
+	0,
+	0,
+	0,
+	0x3024,
+	0x424B,
+	0,
+	0x6F78,
+	0,
+	0x496D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6F7B,
+	0x6F79,
+	0x395F,
+	0,
+	0x6F7A,
+	0x3842,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4A45,
+	0x6F7D,
+	0x7021,
+	0x6F7E,
+	0x7022,
+	0,
+	0,
+	0x3121,
+	0x3F58,
+	0x3D7C,
+	0x3459,
+	0x7023,
+	0,
+	0,
+	0,
+	0x4766,
+	0,
+	0x7025,
+	0,
+	0,
+	0,
+	0x3122,
+	0,
+	0x7024,
+	0x4444,
+	0,
+	0x4E4D,
+	0x462B,
+	0x6F7C,
+	0x4E26,
+	0,
+	0x3831,
+	0,
+	0,
+	0x4D5B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3679,
+	0x4E34,
+	0,
+	0x3728,
+	0,
+	0x4262,
+	0x6721,
+	0,
+	0x7026,
+	0x332C,
+	0x3F6F,
+	0,
+	0,
+	0,
+	0,
+	0x3356,
+	0x7028,
+	0,
+	0x7029,
+	0x7027,
+	0x3764,
+	0,
+	0x3A5D,
+	0x3E63,
+	0,
+	0,
+	0,
+	0x3123,
+	0,
+	0,
+	0x4E59,
+	0,
+	0,
+	0,
+	0x702B,
+	0x6E2E,
+	0,
+	0x702A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x702E,
+	0x702C,
+	0x702D,
+	0,
+	0x702F,
+	0,
+	0x7030,
+	0x4E6C,
+	0x7031,
+	0x7032,
+	0,
+	0x4049,
+	0x483B,
+	0,
+	0,
+	0,
+	0x3F7D,
+	0x3467,
+	0,
+	0,
+	0x4D3A,
+	0x326D,
+	0x3D38,
+	0x385B,
+	0,
+	0x7035,
+	0,
+	0x7034,
+	0x3B73,
+	0x7036,
+	0x7033,
+	0,
+	0,
+	0x3B28,
+	0,
+	0,
+	0,
+	0x703A,
+	0x6A2D,
+	0,
+	0,
+	0x5256,
+	0,
+	0x3F77,
+	0x7038,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4E25,
+	0x4671,
+	0,
+	0,
+	0,
+	0,
+	0x312B,
+	0,
+	0x4063,
+	0x3C36,
+	0,
+	0,
+	0,
+	0,
+	0x4A37,
+	0,
+	0x3140,
+	0,
+	0,
+	0,
+	0x4E6D,
+	0x4D6B,
+	0,
+	0x703B,
+	0,
+	0x4545,
+	0,
+	0,
+	0,
+	0,
+
+	0x3C7B,
+	0,
+	0,
+	0,
+	0x703C,
+	0,
+	0x703D,
+	0x3F4C,
+	0x703E,
+	0,
+	0x4E6E,
+	0,
+	0,
+	0x7039,
+	0x7040,
+	0x7042,
+	0,
+	0x7041,
+	0,
+	0x703F,
+	0,
+	0,
+	0x7043,
+	0,
+	0,
+	0x7044,
+	0,
+	0,
+	0x417A,
+	0,
+	0x3262,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7045,
+	0,
+	0,
+	0x4C38,
+	0,
+	0,
+	0x7046,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7047,
+	0,
+	0x4F2A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x5B31,
+	0x7048,
+	0,
+	0,
+	0,
+	0x7049,
+	0x704A,
+	0,
+	0,
+	0,
+	0x704E,
+	0,
+	0x704B,
+	0,
+	0x704C,
+	0,
+	0x704D,
+	0x704F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4044,
+	0,
+	0,
+	0,
+	0x4C77,
+	0,
+	0,
+	0x4045,
+	0,
+	0,
+	0x7050,
+	0,
+	0x4873,
+	0,
+	0x7051,
+	0x7353,
+	0x4C4C,
+	0,
+	0x7052,
+	0,
+	0x7053,
+	0,
+	0x7054,
+	0x3357,
+	0,
+	0x7056,
+	0,
+	0x3F59,
+	0,
+	0,
+	0,
+	0x7057,
+	0,
+	0,
+	0x3724,
+	0,
+	0,
+	0,
+	0,
+	0x7058,
+	0x705C,
+	0,
+	0x705A,
+	0,
+	0,
+	0,
+	0,
+	0x705B,
+	0,
+	0,
+	0x3373,
+	0x7059,
+	0x705D,
+	0,
+	0,
+	0,
+	0,
+	0x705E,
+	0,
+	0x3048,
+	0,
+	0x705F,
+	0x7060,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3E64,
+	0,
+	0,
+	0,
+	0x7061,
+	0,
+	0,
+	0,
+	0x3547,
+	0,
+	0,
+	0x7064,
+	0,
+	0,
+	0x7063,
+	0,
+	0x7062,
+	0,
+	0,
+	0x6B71,
+	0,
+	0x4A5C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7065,
+	0x7066,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7067,
+	0,
+	0,
+	0x7068,
+	0,
+	0x7069,
+	0,
+	0,
+	0x706A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x345A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x706B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x706C,
+	0x4723,
+	0,
+	0,
+	0,
+	0x706E,
+	0x323B,
+	0,
+	0x7071,
+	0x7070,
+	0,
+	0,
+	0,
+	0,
+	0x3124,
+	0,
+	0,
+	0,
+	0x3641,
+
+	0,
+	0x4A47,
+	0x443A,
+	0x3A22,
+	0,
+	0x3960,
+	0x3D67,
+	0,
+	0x3F5C,
+	0,
+	0,
+	0,
+	0x7073,
+	0,
+	0,
+	0x7072,
+	0x4D42,
+	0x3468,
+	0x4852,
+	0x465C,
+	0,
+	0,
+	0,
+	0x3F7C,
+	0x4E4E,
+	0,
+	0x375B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7076,
+	0,
+	0,
+	0x7075,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B4B,
+	0x462C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3150,
+	0,
+	0,
+	0x7077,
+	0x7074,
+	0,
+	0,
+	0x4951,
+	0x4D6A,
+	0x7078,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7079,
+	0,
+	0,
+	0,
+	0,
+	0x707B,
+	0x426A,
+	0x335B,
+	0x335C,
+	0x707A,
+	0,
+	0,
+	0,
+	0,
+	0x3469,
+	0x3832,
+	0,
+	0,
+	0x346A,
+	0,
+	0,
+	0x453F,
+	0,
+	0,
+	0x4E60,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x385C,
+	0,
+	0,
+	0,
+	0x707C,
+	0,
+	0,
+	0,
+	0x707D,
+	0x707E,
+	0x7121,
+	0,
+	0x7123,
+	0x7122,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4977,
+	0,
+	0x7124,
+	0,
+	0,
+	0,
+	0,
+	0x7125,
+	0,
+	0x7126,
+	0,
+	0,
+	0,
+	0,
+	0x7127,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7129,
+	0x7128,
+	0,
+	0x712A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4874,
+	0x664C,
+	0,
+	0,
+	0x3F29,
+	0,
+	0,
+	0x3532,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x712B,
+	0,
+	0x712C,
+	0,
+	0x522C,
+	0x5D3B,
+	0x4853,
+	0,
+	0,
+	0x307B,
+	0,
+	0x303B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3B74,
+	0x4B30,
+	0x3E7E,
+	0,
+
+	0,
+	0,
+	0,
+	0x712D,
+	0,
+	0x4C5F,
+	0,
+	0,
+	0,
+	0x712E,
+	0x4D5C,
+	0,
+	0x3142,
+	0,
+	0,
+	0,
+	0x3B41,
+	0,
+	0x712F,
+	0x326E,
+	0x7130,
+	0,
+	0,
+	0,
+	0x7131,
+	0,
+	0,
+	0,
+	0,
+	0x7133,
+	0x7134,
+	0,
+	0x7136,
+	0x7132,
+	0,
+	0,
+	0x7135,
+	0,
+	0,
+	0,
+	0x345B,
+	0,
+	0,
+	0,
+	0x7137,
+	0,
+	0x7138,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7139,
+	0x713A,
+	0,
+	0,
+	0,
+	0x713B,
+	0,
+	0,
+	0x713D,
+	0,
+	0,
+	0,
+	0x713C,
+	0,
+	0x713F,
+	0x7142,
+	0,
+	0,
+	0,
+	0x713E,
+	0x7140,
+	0x7141,
+	0,
+	0,
+	0x7143,
+	0,
+	0x3642,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3C73,
+	0x7144,
+	0x7145,
+	0x3961,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7146,
+	0,
+	0,
+	0x333E,
+	0,
+	0,
+	0,
+	0x474F,
+	0x7147,
+	0x7148,
+	0,
+	0,
+	0,
+	0,
+	0x435A,
+	0x466B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7149,
+	0,
+	0,
+	0,
+	0,
+	0x477D,
+	0,
+	0,
+	0x424C,
+	0x3158,
+	0x366E,
+	0,
+	0x366F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4373,
+	0x714E,
+	0x3670,
+	0,
+	0,
+	0x326F,
+	0,
+	0,
+	0x714D,
+	0,
+	0,
+	0x714B,
+	0,
+	0x714C,
+	0,
+	0x714A,
+	0,
+	0,
+	0x7158,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x714F,
+	0x7150,
+	0,
+	0,
+	0x7151,
+	0x7152,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7154,
+	0,
+	0,
+	0x7153,
+	0,
+	0,
+	0,
+	0x3D59,
+
+	0,
+	0x7155,
+	0,
+	0,
+	0,
+	0x7157,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3533,
+	0x7156,
+	0,
+	0,
+	0x417B,
+	0x3833,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7159,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x424D,
+	0,
+	0,
+	0x715A,
+	0,
+	0,
+	0,
+	0,
+	0x462D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x715B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7160,
+	0,
+	0x715E,
+	0,
+	0x715D,
+	0x715F,
+	0,
+	0x715C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7162,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7161,
+	0,
+	0x7164,
+	0,
+	0,
+	0x3643,
+	0x7163,
+	0,
+	0,
+	0,
+	0x7165,
+	0,
+	0,
+	0x7166,
+	0,
+	0x7168,
+	0x7167,
+	0,
+	0,
+	0,
+	0x7169,
+	0x716B,
+	0x716A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x397C,
+	0,
+	0,
+	0,
+	0,
+	0x716C,
+	0,
+	0,
+	0x716D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x333C,
+	0,
+	0,
+	0,
+	0x716E,
+	0,
+	0,
+	0,
+	0x716F,
+	0,
+	0,
+	0,
+	0x3F71,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7170,
+	0,
+	0x7171,
+	0,
+	0x7172,
+	0x7173,
+	0,
+	0,
+	0,
+	0x3962,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7174,
+	0x7175,
+	0,
+	0,
+	0x7176,
+	0x7177,
+	0,
+	0,
+	0x7178,
+	0,
+	0,
+	0,
+	0x4831,
+	0x717A,
+	0,
+	0x4926,
+	0x717B,
+	0x7179,
+	0,
+	0x717D,
+	0,
+	0,
+	0x717C,
+	0,
+	0,
+	0x717E,
+	0,
+	0,
+	0,
+	0x7221,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7222,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7223,
+	0,
+	0x7224,
+	0,
+	0,
+	0,
+	0,
+	0x7225,
+	0,
+	0,
+	0x7226,
+	0x7227,
+	0,
+	0x7228,
+	0,
+	0x7229,
+	0x722A,
+	0x722B,
+	0x722C,
+	0,
+	0,
+	0,
+	0x722D,
+	0x722E,
+	0,
+	0x5D35,
+	0x722F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x6478,
+	0x3534,
+	0,
+	0,
+	0,
+	0,
+	0x3321,
+	0x3A32,
+	0x7231,
+	0x7230,
+	0x4C25,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7233,
+	0x7234,
+	0x7232,
+	0,
+	0x7235,
+	0,
+	0,
+	0x4B62,
+	0,
+	0,
+	0,
+	0x7236,
+	0,
+	0x357B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4F25,
+	0,
+	0,
+	0,
+	0,
+	0x7237,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7239,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x303E,
+	0,
+	0,
+	0x723A,
+	0x4A2B,
+	0x7238,
+	0,
+	0,
+	0x723B,
+	0x723C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x723D,
+	0x723E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x723F,
+	0,
+	0x4B6E,
+	0x3B2D,
+	0,
+	0x3A7A,
+	0x412F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7240,
+	0,
+	0,
+	0,
+	0,
+	0x7243,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7241,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7244,
+	0,
+	0,
+	0x3871,
+	0x7242,
+	0,
+	0,
+	0,
+	0,
+	0x7245,
+	0,
+	0x7246,
+	0x7247,
+	0,
+	0x724B,
+	0,
+	0x3B2A,
+	0,
+	0,
+	0,
+	0,
+	0x4264,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x724C,
+	0x7249,
+	0x7248,
+	0x724A,
+	0,
+	0,
+	0,
+	0x375F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7250,
+	0x724F,
+	0x724E,
+	0,
+	0,
+	0x3033,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0x725A,
+	0,
+	0x7256,
+	0,
+	0x7257,
+	0x7253,
+	0x7259,
+	0,
+	0x7255,
+	0x3362,
+	0,
+	0,
+	0x4F4C,
+	0,
+	0x7258,
+	0x7254,
+	0x7252,
+	0x7251,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x725C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x725F,
+	0,
+	0,
+	0x725E,
+	0x725D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4949,
+	0x725B,
+	0x3073,
+	0x7260,
+	0,
+	0x7262,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x336F,
+	0x724D,
+	0x3137,
+	0,
+	0,
+	0x7264,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7263,
+	0x7261,
+	0x432D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B70,
+	0,
+	0,
+	0,
+	0,
+	0x4E5A,
+	0,
+	0,
+	0x7265,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7266,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7267,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7268,
+	0,
+	0x7269,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x443B,
+	0,
+	0x726A,
+	0,
+	0x4837,
+	0,
+	0x726F,
+	0x726B,
+	0,
+	0,
+	0,
+	0x726C,
+	0,
+	0,
+	0x4B31,
+	0x4C44,
+	0,
+	0x4650,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0x7270,
+	0,
+	0,
+	0x7271,
+	0x463E,
+	0x726E,
+	0x726D,
+	0,
+	0,
+	0,
+	0,
+	0x322A,
+	0,
+	0,
+	0,
+	0x7279,
+	0,
+	0,
+	0x7278,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3175,
+	0,
+	0,
+	0,
+	0x7276,
+	0,
+	0,
+	0,
+	0x7275,
+	0,
+	0,
+	0x7273,
+	0,
+	0x337B,
+	0,
+	0x7272,
+	0x3C32,
+	0x3229,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x3963,
+	0,
+	0,
+	0x727C,
+	0x727B,
+	0,
+	0x727A,
+	0,
+	0,
+	0x7277,
+	0,
+	0x727D,
+	0,
+	0x727E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7325,
+	0x7324,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7326,
+	0,
+	0,
+	0x312D,
+	0x7321,
+	0x7322,
+	0,
+	0x3974,
+	0x4C39,
+	0,
+	0,
+	0x7323,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4B32,
+	0,
+	0,
+	0x732B,
+	0,
+	0,
+	0x7327,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x732C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7329,
+	0,
+	0x7328,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x375C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x732D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x732E,
+	0,
+	0,
+	0,
+	0,
+	0x732F,
+	0,
+	0x732A,
+	0,
+	0,
+	0,
+	0x7274,
+	0,
+	0,
+	0x7330,
+	0,
+	0x4461,
+	0,
+	0,
+	0,
+	0x7334,
+	0,
+	0x7335,
+	0x7333,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7332,
+	0x7338,
+	0,
+	0x7331,
+	0,
+	0x7336,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7337,
+	0,
+	0,
+	0,
+	0x733A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7339,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x733C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x733D,
+	0,
+	0x733E,
+	0,
+	0,
+	0x4F49,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x733B,
+	0x426B,
+	0x3A6D,
+	0,
+	0,
+	0x733F,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7340,
+	0x7341,
+	0,
+	0,
+	0x7342,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7343,
+	0,
+	0,
+	0x3834,
+	0x7344,
+	0,
+	0,
+	0,
+	0x7345,
+	0,
+	0x3C2F,
+	0,
+	0x7346,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7347,
+	0,
+	0,
+	0x7348,
+	0x7349,
+	0,
+	0,
+	0,
+	0,
+	0x734C,
+	0x734A,
+	0x4F3C,
+	0,
+	0x734B,
+	0,
+	0x4E6F,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x734D,
+	0,
+	0x4E5B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x734E,
+	0x477E,
+	0,
+	0,
+	0x734F,
+	0x7351,
+	0,
+	0,
+	0x7352,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7350,
+	0x396D,
+	0x4C4D,
+	0x4B63,
+	0x5677,
+	0,
+	0x5D60,
+	0x4B7B,
+	0,
+	0,
+	0,
+	0,
+	0x322B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7354,
+	0x3550,
+	0x7355,
+	0x7356,
+	0x7357,
+	0,
+	0x3975,
+	0,
+	0x7358,
+	0,
+	0,
+	0,
+	0x6054,
+	0x4C5B,
+	0,
+	0x4263,
+	0x7359,
+	0x735B,
+	0x735A,
+	0,
+	0x735C,
+	0,
+	0,
+	0,
+	0,
+	0x735D,
+	0,
+	0,
+	0x735E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x735F,
+	0,
+	0,
+	0,
+	0,
+	0x7360,
+	0,
+	0x7361,
+	0x7362,
+	0,
+	0x7363,
+	0,
+	0x7364,
+	0x7365,
+	0x7366,
+	0,
+	0,
+
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7367,
+	0x7368,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4524,
+	0,
+	0,
+	0,
+	0,
+	0x385D,
+	0,
+	0x736A,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x414D,
+	0x736B,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x736C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4921,
+	0,
+	0,
+	0x736D,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x736E,
+	0x6337,
+	0,
+	0,
+	0x6C5A,
+	0x706D,
+	0,
+	0,
+	0x736F,
+	0,
+	0x7370,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x7372,
+	0x7373,
+	0x7374,
+	0x4E70,
+	0x7371,
+	0,
+	0,
+	0x7375,
+	0x7376,
+	0,
+	0,
+	0x7378,
+	0,
+	0x7377,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x737A,
+	0,
+	0,
+	0,
+	0x737B,
+	0x7379,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x4E36,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x737C,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0x737D,
+	0x6354,
+	0,
+	0,
+	0x737E,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+
+	0,
+	0x212A,
+	0,
+	0x2174,
+	0x2170,
+	0x2173,
+	0x2175,
+	0,
+	0x214A,
+	0x214B,
+	0x2176,
+	0x215C,
+	0x2124,
+	0x215D,
+	0x2125,
+	0x213F,
+	0x2330,
+	0x2331,
+	0x2332,
+	0x2333,
+	0x2334,
+	0x2335,
+	0x2336,
+	0x2337,
+	0x2338,
+	0x2339,
+	0x2127,
+	0x2128,
+	0x2163,
+	0x2161,
+	0x2164,
+	0x2129,
+	0x2177,
+	0x2341,
+	0x2342,
+	0x2343,
+	0x2344,
+	0x2345,
+	0x2346,
+	0x2347,
+	0x2348,
+	0x2349,
+	0x234A,
+	0x234B,
+	0x234C,
+	0x234D,
+	0x234E,
+	0x234F,
+	0x2350,
+	0x2351,
+	0x2352,
+	0x2353,
+	0x2354,
+	0x2355,
+	0x2356,
+	0x2357,
+	0x2358,
+	0x2359,
+	0x235A,
+	0x214E,
+	0x2140,
+	0x214F,
+	0x2130,
+	0x2132,
+	0x212E,
+	0x2361,
+	0x2362,
+	0x2363,
+	0x2364,
+	0x2365,
+	0x2366,
+	0x2367,
+	0x2368,
+	0x2369,
+	0x236A,
+	0x236B,
+	0x236C,
+	0x236D,
+	0x236E,
+	0x236F,
+	0x2370,
+	0x2371,
+	0x2372,
+	0x2373,
+	0x2374,
+	0x2375,
+	0x2376,
+	0x2377,
+	0x2378,
+	0x2379,
+	0x237A,
+	0x2150,
+	0x2143,
+	0x2151,
+	0x2141,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0
+};
+static CONST USHORT FAR_VARIABLE from_unicode_map1[256] = {
+	256,
+	0,
+	0,
+	512,
+	768,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	1024,
+	1280,
+	1536,
+	0,
+	0,
+	1792,
+	2048,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	2304,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	2560,
+	2816,
+	3072,
+	3328,
+	3584,
+	3840,
+	4096,
+	4352,
+	4608,
+	4864,
+	5120,
+	5376,
+	5632,
+	5888,
+	6144,
+	6400,
+	6656,
+	6912,
+	7168,
+	7424,
+	7680,
+	7936,
+	8192,
+	8448,
+	8704,
+	8960,
+	9216,
+	9472,
+	9728,
+	9984,
+	10240,
+	10496,
+	10752,
+	11008,
+	11264,
+	11520,
+	11776,
+	12032,
+	12288,
+	12544,
+	12800,
+	13056,
+	13312,
+	13568,
+	13824,
+	14080,
+	14336,
+	14592,
+	14848,
+	15104,
+	15360,
+	15616,
+	15872,
+	16128,
+	16384,
+	16640,
+	16896,
+	17152,
+	17408,
+	17664,
+	17920,
+	18176,
+	18432,
+	18688,
+	18944,
+	19200,
+	19456,
+	19712,
+	19968,
+	20224,
+	20480,
+	20736,
+	20992,
+	21248,
+	21504,
+	21760,
+	22016,
+	22272,
+	22528,
+	22784,
+	23040,
+	23296,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	23552
+};
+
+void unicode_init(void)
+{
+/**************************************
+ *
+ *	u n i c o d e _ i n i t 
+ *
+ **************************************
+ *
+ * Initialize unicode mapping tables
+ *
+ **************************************/
+	from_unicode_mapping_array = from_unicode_mapping_array1;
+	from_unicode_map = from_unicode_map1;
+	return;
+}
diff --git a/src/intl/cs_ksc.c b/src/intl/cs_ksc.c
new file mode 100644
index 0000000000..a850f13185
--- /dev/null
+++ b/src/intl/cs_ksc.c
@@ -0,0 +1,54 @@
+/*
+ *	PROGRAM:        InterBase International support
+ *	MODULE: 	cs_ksc.c
+ *	DESCRIPTION:	Character set definitions for KSC-5601.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../intl/ldcommon.h"
+
+extern USHORT CVKSC_ksc_to_unicode();
+extern USHORT CVKSC_unicode_to_ksc();
+extern USHORT CVKSC_check_ksc();
+
+CHARSET_ENTRY(CS_ksc_5601)
+{
+	static CONST char space = 0x20;
+
+#include "../intl/cs_ksc5601.h"
+
+	csptr->charset_version = 40;
+	csptr->charset_id = CS_KSC5601;
+	csptr->charset_name = (ASCII *) "KSC_5601";
+	csptr->charset_flags = 0;
+	csptr->charset_min_bytes_per_char = 1;
+	csptr->charset_max_bytes_per_char = 2;
+	csptr->charset_space_length = 1;
+	csptr->charset_space_character = (BYTE *) & space;
+	csptr->charset_well_formed = (FPTR_SHORT) CVKSC_check_ksc;
+
+	CV_convert_init(&csptr->charset_to_unicode, CS_UNICODE, CS_KSC5601,
+					CVKSC_ksc_to_unicode, to_unicode_mapping_array,
+					to_unicode_map);
+	CV_convert_init(&csptr->charset_from_unicode, CS_KSC5601, CS_UNICODE,
+					CVKSC_unicode_to_ksc, from_unicode_mapping_array,
+					from_unicode_map);
+
+	CHARSET_RETURN;
+}
diff --git a/src/intl/cs_ksc5601.h b/src/intl/cs_ksc5601.h
new file mode 100644
index 0000000000..8ab585ecc6
--- /dev/null
+++ b/src/intl/cs_ksc5601.h
@@ -0,0 +1,70207 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen4.c
+     mapgen4 -condense asia/KSC/KSC5601.TXT 
+
+    Unicode mapping table generated from file asia/KSC/KSC5601.TXT 
+
+#
+#    Name:     Unified Hangeul(KSC5601-1992) to Unicode table
+#    Unicode version: 2.0
+#    Table version: 1.0
+#    Table format:  Format A
+#    Date:          07/24/95
+#    Authors:       Lori Hoerth <lorih@microsoft.com>
+#                   K.D.Chang   <a-kchang@microsoft.com>
+#    General notes: none
+#
+
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+
+/*
+    TMN: 02 Aug 2000
+    Preprocessed and stripped lots of comments from this file.
+    The original file can be found in the InterBase 6.0 source
+    archive at www.interbase.com.
+    The following macro was expanded during the preprocessing of this file.
+
+#ifndef UNICODE_REPLACEMENT_CHARACTER
+#define UNICODE_REPLACEMENT_CHARACTER 0xFFFD
+#endif
+*/
+
+static CONST USHORT FAR_VARIABLE to_unicode_mapping_array[] = {
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0000,
+0x0001,
+0x0002,
+0x0003,
+0x0004,
+0x0005,
+0x0006,
+0x0007,
+0x0008,
+0x0009,
+0x000A,
+0x000B,
+0x000C,
+0x000D,
+0x000E,
+0x000F,
+0x0010,
+0x0011,
+0x0012,
+0x0013,
+0x0014,
+0x0015,
+0x0016,
+0x0017,
+0x0018,
+0x0019,
+0x001A,
+0x001B,
+0x001C,
+0x001D,
+0x001E,
+0x001F,
+0x0020,
+0x0021,
+0x0022,
+0x0023,
+0x0024,
+0x0025,
+0x0026,
+0x0027,
+0x0028,
+0x0029,
+0x002A,
+0x002B,
+0x002C,
+0x002D,
+0x002E,
+0x002F,
+0x0030,
+0x0031,
+0x0032,
+0x0033,
+0x0034,
+0x0035,
+0x0036,
+0x0037,
+0x0038,
+0x0039,
+0x003A,
+0x003B,
+0x003C,
+0x003D,
+0x003E,
+0x003F,
+0x0040,
+0x0041,
+0x0042,
+0x0043,
+0x0044,
+0x0045,
+0x0046,
+0x0047,
+0x0048,
+0x0049,
+0x004A,
+0x004B,
+0x004C,
+0x004D,
+0x004E,
+0x004F,
+0x0050,
+0x0051,
+0x0052,
+0x0053,
+0x0054,
+0x0055,
+0x0056,
+0x0057,
+0x0058,
+0x0059,
+0x005A,
+0x005B,
+0x005C,
+0x005D,
+0x005E,
+0x005F,
+0x0060,
+0x0061,
+0x0062,
+0x0063,
+0x0064,
+0x0065,
+0x0066,
+0x0067,
+0x0068,
+0x0069,
+0x006A,
+0x006B,
+0x006C,
+0x006D,
+0x006E,
+0x006F,
+0x0070,
+0x0071,
+0x0072,
+0x0073,
+0x0074,
+0x0075,
+0x0076,
+0x0077,
+0x0078,
+0x0079,
+0x007A,
+0x007B,
+0x007C,
+0x007D,
+0x007E,
+0x007F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAC02,
+0xAC03,
+0xAC05,
+0xAC06,
+0xAC0B,
+0xAC0C,
+0xAC0D,
+0xAC0E,
+0xAC0F,
+0xAC18,
+0xAC1E,
+0xAC1F,
+0xAC21,
+0xAC22,
+0xAC23,
+0xAC25,
+0xAC26,
+0xAC27,
+0xAC28,
+0xAC29,
+0xAC2A,
+0xAC2B,
+0xAC2E,
+0xAC32,
+0xAC33,
+0xAC34,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAC35,
+0xAC36,
+0xAC37,
+0xAC3A,
+0xAC3B,
+0xAC3D,
+0xAC3E,
+0xAC3F,
+0xAC41,
+0xAC42,
+0xAC43,
+0xAC44,
+0xAC45,
+0xAC46,
+0xAC47,
+0xAC48,
+0xAC49,
+0xAC4A,
+0xAC4C,
+0xAC4E,
+0xAC4F,
+0xAC50,
+0xAC51,
+0xAC52,
+0xAC53,
+0xAC55,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAC56,
+0xAC57,
+0xAC59,
+0xAC5A,
+0xAC5B,
+0xAC5D,
+0xAC5E,
+0xAC5F,
+0xAC60,
+0xAC61,
+0xAC62,
+0xAC63,
+0xAC64,
+0xAC65,
+0xAC66,
+0xAC67,
+0xAC68,
+0xAC69,
+0xAC6A,
+0xAC6B,
+0xAC6C,
+0xAC6D,
+0xAC6E,
+0xAC6F,
+0xAC72,
+0xAC73,
+0xAC75,
+0xAC76,
+0xAC79,
+0xAC7B,
+0xAC7C,
+0xAC7D,
+0xAC7E,
+0xAC7F,
+0xAC82,
+0xAC87,
+0xAC88,
+0xAC8D,
+0xAC8E,
+0xAC8F,
+0xAC91,
+0xAC92,
+0xAC93,
+0xAC95,
+0xAC96,
+0xAC97,
+0xAC98,
+0xAC99,
+0xAC9A,
+0xAC9B,
+0xAC9E,
+0xACA2,
+0xACA3,
+0xACA4,
+0xACA5,
+0xACA6,
+0xACA7,
+0xACAB,
+0xACAD,
+0xACAE,
+0xACB1,
+0xACB2,
+0xACB3,
+0xACB4,
+0xACB5,
+0xACB6,
+0xACB7,
+0xACBA,
+0xACBE,
+0xACBF,
+0xACC0,
+0xACC2,
+0xACC3,
+0xACC5,
+0xACC6,
+0xACC7,
+0xACC9,
+0xACCA,
+0xACCB,
+0xACCD,
+0xACCE,
+0xACCF,
+0xACD0,
+0xACD1,
+0xACD2,
+0xACD3,
+0xACD4,
+0xACD6,
+0xACD8,
+0xACD9,
+0xACDA,
+0xACDB,
+0xACDC,
+0xACDD,
+0xACDE,
+0xACDF,
+0xACE2,
+0xACE3,
+0xACE5,
+0xACE6,
+0xACE9,
+0xACEB,
+0xACED,
+0xACEE,
+0xACF2,
+0xACF4,
+0xACF7,
+0xACF8,
+0xACF9,
+0xACFA,
+0xACFB,
+0xACFE,
+0xACFF,
+0xAD01,
+0xAD02,
+0xAD03,
+0xAD05,
+0xAD07,
+0xAD08,
+0xAD09,
+0xAD0A,
+0xAD0B,
+0xAD0E,
+0xAD10,
+0xAD12,
+0xAD13,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAD14,
+0xAD15,
+0xAD16,
+0xAD17,
+0xAD19,
+0xAD1A,
+0xAD1B,
+0xAD1D,
+0xAD1E,
+0xAD1F,
+0xAD21,
+0xAD22,
+0xAD23,
+0xAD24,
+0xAD25,
+0xAD26,
+0xAD27,
+0xAD28,
+0xAD2A,
+0xAD2B,
+0xAD2E,
+0xAD2F,
+0xAD30,
+0xAD31,
+0xAD32,
+0xAD33,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAD36,
+0xAD37,
+0xAD39,
+0xAD3A,
+0xAD3B,
+0xAD3D,
+0xAD3E,
+0xAD3F,
+0xAD40,
+0xAD41,
+0xAD42,
+0xAD43,
+0xAD46,
+0xAD48,
+0xAD4A,
+0xAD4B,
+0xAD4C,
+0xAD4D,
+0xAD4E,
+0xAD4F,
+0xAD51,
+0xAD52,
+0xAD53,
+0xAD55,
+0xAD56,
+0xAD57,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAD59,
+0xAD5A,
+0xAD5B,
+0xAD5C,
+0xAD5D,
+0xAD5E,
+0xAD5F,
+0xAD60,
+0xAD62,
+0xAD64,
+0xAD65,
+0xAD66,
+0xAD67,
+0xAD68,
+0xAD69,
+0xAD6A,
+0xAD6B,
+0xAD6E,
+0xAD6F,
+0xAD71,
+0xAD72,
+0xAD77,
+0xAD78,
+0xAD79,
+0xAD7A,
+0xAD7E,
+0xAD80,
+0xAD83,
+0xAD84,
+0xAD85,
+0xAD86,
+0xAD87,
+0xAD8A,
+0xAD8B,
+0xAD8D,
+0xAD8E,
+0xAD8F,
+0xAD91,
+0xAD92,
+0xAD93,
+0xAD94,
+0xAD95,
+0xAD96,
+0xAD97,
+0xAD98,
+0xAD99,
+0xAD9A,
+0xAD9B,
+0xAD9E,
+0xAD9F,
+0xADA0,
+0xADA1,
+0xADA2,
+0xADA3,
+0xADA5,
+0xADA6,
+0xADA7,
+0xADA8,
+0xADA9,
+0xADAA,
+0xADAB,
+0xADAC,
+0xADAD,
+0xADAE,
+0xADAF,
+0xADB0,
+0xADB1,
+0xADB2,
+0xADB3,
+0xADB4,
+0xADB5,
+0xADB6,
+0xADB8,
+0xADB9,
+0xADBA,
+0xADBB,
+0xADBC,
+0xADBD,
+0xADBE,
+0xADBF,
+0xADC2,
+0xADC3,
+0xADC5,
+0xADC6,
+0xADC7,
+0xADC9,
+0xADCA,
+0xADCB,
+0xADCC,
+0xADCD,
+0xADCE,
+0xADCF,
+0xADD2,
+0xADD4,
+0xADD5,
+0xADD6,
+0xADD7,
+0xADD8,
+0xADD9,
+0xADDA,
+0xADDB,
+0xADDD,
+0xADDE,
+0xADDF,
+0xADE1,
+0xADE2,
+0xADE3,
+0xADE5,
+0xADE6,
+0xADE7,
+0xADE8,
+0xADE9,
+0xADEA,
+0xADEB,
+0xADEC,
+0xADED,
+0xADEE,
+0xADEF,
+0xADF0,
+0xADF1,
+0xADF2,
+0xADF3,
+0xADF4,
+0xADF5,
+0xADF6,
+0xADF7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xADFA,
+0xADFB,
+0xADFD,
+0xADFE,
+0xAE02,
+0xAE03,
+0xAE04,
+0xAE05,
+0xAE06,
+0xAE07,
+0xAE0A,
+0xAE0C,
+0xAE0E,
+0xAE0F,
+0xAE10,
+0xAE11,
+0xAE12,
+0xAE13,
+0xAE15,
+0xAE16,
+0xAE17,
+0xAE18,
+0xAE19,
+0xAE1A,
+0xAE1B,
+0xAE1C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAE1D,
+0xAE1E,
+0xAE1F,
+0xAE20,
+0xAE21,
+0xAE22,
+0xAE23,
+0xAE24,
+0xAE25,
+0xAE26,
+0xAE27,
+0xAE28,
+0xAE29,
+0xAE2A,
+0xAE2B,
+0xAE2C,
+0xAE2D,
+0xAE2E,
+0xAE2F,
+0xAE32,
+0xAE33,
+0xAE35,
+0xAE36,
+0xAE39,
+0xAE3B,
+0xAE3C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAE3D,
+0xAE3E,
+0xAE3F,
+0xAE42,
+0xAE44,
+0xAE47,
+0xAE48,
+0xAE49,
+0xAE4B,
+0xAE4F,
+0xAE51,
+0xAE52,
+0xAE53,
+0xAE55,
+0xAE57,
+0xAE58,
+0xAE59,
+0xAE5A,
+0xAE5B,
+0xAE5E,
+0xAE62,
+0xAE63,
+0xAE64,
+0xAE66,
+0xAE67,
+0xAE6A,
+0xAE6B,
+0xAE6D,
+0xAE6E,
+0xAE6F,
+0xAE71,
+0xAE72,
+0xAE73,
+0xAE74,
+0xAE75,
+0xAE76,
+0xAE77,
+0xAE7A,
+0xAE7E,
+0xAE7F,
+0xAE80,
+0xAE81,
+0xAE82,
+0xAE83,
+0xAE86,
+0xAE87,
+0xAE88,
+0xAE89,
+0xAE8A,
+0xAE8B,
+0xAE8D,
+0xAE8E,
+0xAE8F,
+0xAE90,
+0xAE91,
+0xAE92,
+0xAE93,
+0xAE94,
+0xAE95,
+0xAE96,
+0xAE97,
+0xAE98,
+0xAE99,
+0xAE9A,
+0xAE9B,
+0xAE9C,
+0xAE9D,
+0xAE9E,
+0xAE9F,
+0xAEA0,
+0xAEA1,
+0xAEA2,
+0xAEA3,
+0xAEA4,
+0xAEA5,
+0xAEA6,
+0xAEA7,
+0xAEA8,
+0xAEA9,
+0xAEAA,
+0xAEAB,
+0xAEAC,
+0xAEAD,
+0xAEAE,
+0xAEAF,
+0xAEB0,
+0xAEB1,
+0xAEB2,
+0xAEB3,
+0xAEB4,
+0xAEB5,
+0xAEB6,
+0xAEB7,
+0xAEB8,
+0xAEB9,
+0xAEBA,
+0xAEBB,
+0xAEBF,
+0xAEC1,
+0xAEC2,
+0xAEC3,
+0xAEC5,
+0xAEC6,
+0xAEC7,
+0xAEC8,
+0xAEC9,
+0xAECA,
+0xAECB,
+0xAECE,
+0xAED2,
+0xAED3,
+0xAED4,
+0xAED5,
+0xAED6,
+0xAED7,
+0xAEDA,
+0xAEDB,
+0xAEDD,
+0xAEDE,
+0xAEDF,
+0xAEE0,
+0xAEE1,
+0xAEE2,
+0xAEE3,
+0xAEE4,
+0xAEE5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAEE6,
+0xAEE7,
+0xAEE9,
+0xAEEA,
+0xAEEC,
+0xAEEE,
+0xAEEF,
+0xAEF0,
+0xAEF1,
+0xAEF2,
+0xAEF3,
+0xAEF5,
+0xAEF6,
+0xAEF7,
+0xAEF9,
+0xAEFA,
+0xAEFB,
+0xAEFD,
+0xAEFE,
+0xAEFF,
+0xAF00,
+0xAF01,
+0xAF02,
+0xAF03,
+0xAF04,
+0xAF05,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAF06,
+0xAF09,
+0xAF0A,
+0xAF0B,
+0xAF0C,
+0xAF0E,
+0xAF0F,
+0xAF11,
+0xAF12,
+0xAF13,
+0xAF14,
+0xAF15,
+0xAF16,
+0xAF17,
+0xAF18,
+0xAF19,
+0xAF1A,
+0xAF1B,
+0xAF1C,
+0xAF1D,
+0xAF1E,
+0xAF1F,
+0xAF20,
+0xAF21,
+0xAF22,
+0xAF23,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAF24,
+0xAF25,
+0xAF26,
+0xAF27,
+0xAF28,
+0xAF29,
+0xAF2A,
+0xAF2B,
+0xAF2E,
+0xAF2F,
+0xAF31,
+0xAF33,
+0xAF35,
+0xAF36,
+0xAF37,
+0xAF38,
+0xAF39,
+0xAF3A,
+0xAF3B,
+0xAF3E,
+0xAF40,
+0xAF44,
+0xAF45,
+0xAF46,
+0xAF47,
+0xAF4A,
+0xAF4B,
+0xAF4C,
+0xAF4D,
+0xAF4E,
+0xAF4F,
+0xAF51,
+0xAF52,
+0xAF53,
+0xAF54,
+0xAF55,
+0xAF56,
+0xAF57,
+0xAF58,
+0xAF59,
+0xAF5A,
+0xAF5B,
+0xAF5E,
+0xAF5F,
+0xAF60,
+0xAF61,
+0xAF62,
+0xAF63,
+0xAF66,
+0xAF67,
+0xAF68,
+0xAF69,
+0xAF6A,
+0xAF6B,
+0xAF6C,
+0xAF6D,
+0xAF6E,
+0xAF6F,
+0xAF70,
+0xAF71,
+0xAF72,
+0xAF73,
+0xAF74,
+0xAF75,
+0xAF76,
+0xAF77,
+0xAF78,
+0xAF7A,
+0xAF7B,
+0xAF7C,
+0xAF7D,
+0xAF7E,
+0xAF7F,
+0xAF81,
+0xAF82,
+0xAF83,
+0xAF85,
+0xAF86,
+0xAF87,
+0xAF89,
+0xAF8A,
+0xAF8B,
+0xAF8C,
+0xAF8D,
+0xAF8E,
+0xAF8F,
+0xAF92,
+0xAF93,
+0xAF94,
+0xAF96,
+0xAF97,
+0xAF98,
+0xAF99,
+0xAF9A,
+0xAF9B,
+0xAF9D,
+0xAF9E,
+0xAF9F,
+0xAFA0,
+0xAFA1,
+0xAFA2,
+0xAFA3,
+0xAFA4,
+0xAFA5,
+0xAFA6,
+0xAFA7,
+0xAFA8,
+0xAFA9,
+0xAFAA,
+0xAFAB,
+0xAFAC,
+0xAFAD,
+0xAFAE,
+0xAFAF,
+0xAFB0,
+0xAFB1,
+0xAFB2,
+0xAFB3,
+0xAFB4,
+0xAFB5,
+0xAFB6,
+0xAFB7,
+0xAFBA,
+0xAFBB,
+0xAFBD,
+0xAFBE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAFBF,
+0xAFC1,
+0xAFC2,
+0xAFC3,
+0xAFC4,
+0xAFC5,
+0xAFC6,
+0xAFCA,
+0xAFCC,
+0xAFCF,
+0xAFD0,
+0xAFD1,
+0xAFD2,
+0xAFD3,
+0xAFD5,
+0xAFD6,
+0xAFD7,
+0xAFD8,
+0xAFD9,
+0xAFDA,
+0xAFDB,
+0xAFDD,
+0xAFDE,
+0xAFDF,
+0xAFE0,
+0xAFE1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xAFE2,
+0xAFE3,
+0xAFE4,
+0xAFE5,
+0xAFE6,
+0xAFE7,
+0xAFEA,
+0xAFEB,
+0xAFEC,
+0xAFED,
+0xAFEE,
+0xAFEF,
+0xAFF2,
+0xAFF3,
+0xAFF5,
+0xAFF6,
+0xAFF7,
+0xAFF9,
+0xAFFA,
+0xAFFB,
+0xAFFC,
+0xAFFD,
+0xAFFE,
+0xAFFF,
+0xB002,
+0xB003,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB005,
+0xB006,
+0xB007,
+0xB008,
+0xB009,
+0xB00A,
+0xB00B,
+0xB00D,
+0xB00E,
+0xB00F,
+0xB011,
+0xB012,
+0xB013,
+0xB015,
+0xB016,
+0xB017,
+0xB018,
+0xB019,
+0xB01A,
+0xB01B,
+0xB01E,
+0xB01F,
+0xB020,
+0xB021,
+0xB022,
+0xB023,
+0xB024,
+0xB025,
+0xB026,
+0xB027,
+0xB029,
+0xB02A,
+0xB02B,
+0xB02C,
+0xB02D,
+0xB02E,
+0xB02F,
+0xB030,
+0xB031,
+0xB032,
+0xB033,
+0xB034,
+0xB035,
+0xB036,
+0xB037,
+0xB038,
+0xB039,
+0xB03A,
+0xB03B,
+0xB03C,
+0xB03D,
+0xB03E,
+0xB03F,
+0xB040,
+0xB041,
+0xB042,
+0xB043,
+0xB046,
+0xB047,
+0xB049,
+0xB04B,
+0xB04D,
+0xB04F,
+0xB050,
+0xB051,
+0xB052,
+0xB056,
+0xB058,
+0xB05A,
+0xB05B,
+0xB05C,
+0xB05E,
+0xB05F,
+0xB060,
+0xB061,
+0xB062,
+0xB063,
+0xB064,
+0xB065,
+0xB066,
+0xB067,
+0xB068,
+0xB069,
+0xB06A,
+0xB06B,
+0xB06C,
+0xB06D,
+0xB06E,
+0xB06F,
+0xB070,
+0xB071,
+0xB072,
+0xB073,
+0xB074,
+0xB075,
+0xB076,
+0xB077,
+0xB078,
+0xB079,
+0xB07A,
+0xB07B,
+0xB07E,
+0xB07F,
+0xB081,
+0xB082,
+0xB083,
+0xB085,
+0xB086,
+0xB087,
+0xB088,
+0xB089,
+0xB08A,
+0xB08B,
+0xB08E,
+0xB090,
+0xB092,
+0xB093,
+0xB094,
+0xB095,
+0xB096,
+0xB097,
+0xB09B,
+0xB09D,
+0xB09E,
+0xB0A3,
+0xB0A4,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB0A5,
+0xB0A6,
+0xB0A7,
+0xB0AA,
+0xB0B0,
+0xB0B2,
+0xB0B6,
+0xB0B7,
+0xB0B9,
+0xB0BA,
+0xB0BB,
+0xB0BD,
+0xB0BE,
+0xB0BF,
+0xB0C0,
+0xB0C1,
+0xB0C2,
+0xB0C3,
+0xB0C6,
+0xB0CA,
+0xB0CB,
+0xB0CC,
+0xB0CD,
+0xB0CE,
+0xB0CF,
+0xB0D2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB0D3,
+0xB0D5,
+0xB0D6,
+0xB0D7,
+0xB0D9,
+0xB0DA,
+0xB0DB,
+0xB0DC,
+0xB0DD,
+0xB0DE,
+0xB0DF,
+0xB0E1,
+0xB0E2,
+0xB0E3,
+0xB0E4,
+0xB0E6,
+0xB0E7,
+0xB0E8,
+0xB0E9,
+0xB0EA,
+0xB0EB,
+0xB0EC,
+0xB0ED,
+0xB0EE,
+0xB0EF,
+0xB0F0,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB0F1,
+0xB0F2,
+0xB0F3,
+0xB0F4,
+0xB0F5,
+0xB0F6,
+0xB0F7,
+0xB0F8,
+0xB0F9,
+0xB0FA,
+0xB0FB,
+0xB0FC,
+0xB0FD,
+0xB0FE,
+0xB0FF,
+0xB100,
+0xB101,
+0xB102,
+0xB103,
+0xB104,
+0xB105,
+0xB106,
+0xB107,
+0xB10A,
+0xB10D,
+0xB10E,
+0xB10F,
+0xB111,
+0xB114,
+0xB115,
+0xB116,
+0xB117,
+0xB11A,
+0xB11E,
+0xB11F,
+0xB120,
+0xB121,
+0xB122,
+0xB126,
+0xB127,
+0xB129,
+0xB12A,
+0xB12B,
+0xB12D,
+0xB12E,
+0xB12F,
+0xB130,
+0xB131,
+0xB132,
+0xB133,
+0xB136,
+0xB13A,
+0xB13B,
+0xB13C,
+0xB13D,
+0xB13E,
+0xB13F,
+0xB142,
+0xB143,
+0xB145,
+0xB146,
+0xB147,
+0xB149,
+0xB14A,
+0xB14B,
+0xB14C,
+0xB14D,
+0xB14E,
+0xB14F,
+0xB152,
+0xB153,
+0xB156,
+0xB157,
+0xB159,
+0xB15A,
+0xB15B,
+0xB15D,
+0xB15E,
+0xB15F,
+0xB161,
+0xB162,
+0xB163,
+0xB164,
+0xB165,
+0xB166,
+0xB167,
+0xB168,
+0xB169,
+0xB16A,
+0xB16B,
+0xB16C,
+0xB16D,
+0xB16E,
+0xB16F,
+0xB170,
+0xB171,
+0xB172,
+0xB173,
+0xB174,
+0xB175,
+0xB176,
+0xB177,
+0xB17A,
+0xB17B,
+0xB17D,
+0xB17E,
+0xB17F,
+0xB181,
+0xB183,
+0xB184,
+0xB185,
+0xB186,
+0xB187,
+0xB18A,
+0xB18C,
+0xB18E,
+0xB18F,
+0xB190,
+0xB191,
+0xB195,
+0xB196,
+0xB197,
+0xB199,
+0xB19A,
+0xB19B,
+0xB19D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB19E,
+0xB19F,
+0xB1A0,
+0xB1A1,
+0xB1A2,
+0xB1A3,
+0xB1A4,
+0xB1A5,
+0xB1A6,
+0xB1A7,
+0xB1A9,
+0xB1AA,
+0xB1AB,
+0xB1AC,
+0xB1AD,
+0xB1AE,
+0xB1AF,
+0xB1B0,
+0xB1B1,
+0xB1B2,
+0xB1B3,
+0xB1B4,
+0xB1B5,
+0xB1B6,
+0xB1B7,
+0xB1B8,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB1B9,
+0xB1BA,
+0xB1BB,
+0xB1BC,
+0xB1BD,
+0xB1BE,
+0xB1BF,
+0xB1C0,
+0xB1C1,
+0xB1C2,
+0xB1C3,
+0xB1C4,
+0xB1C5,
+0xB1C6,
+0xB1C7,
+0xB1C8,
+0xB1C9,
+0xB1CA,
+0xB1CB,
+0xB1CD,
+0xB1CE,
+0xB1CF,
+0xB1D1,
+0xB1D2,
+0xB1D3,
+0xB1D5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB1D6,
+0xB1D7,
+0xB1D8,
+0xB1D9,
+0xB1DA,
+0xB1DB,
+0xB1DE,
+0xB1E0,
+0xB1E1,
+0xB1E2,
+0xB1E3,
+0xB1E4,
+0xB1E5,
+0xB1E6,
+0xB1E7,
+0xB1EA,
+0xB1EB,
+0xB1ED,
+0xB1EE,
+0xB1EF,
+0xB1F1,
+0xB1F2,
+0xB1F3,
+0xB1F4,
+0xB1F5,
+0xB1F6,
+0xB1F7,
+0xB1F8,
+0xB1FA,
+0xB1FC,
+0xB1FE,
+0xB1FF,
+0xB200,
+0xB201,
+0xB202,
+0xB203,
+0xB206,
+0xB207,
+0xB209,
+0xB20A,
+0xB20D,
+0xB20E,
+0xB20F,
+0xB210,
+0xB211,
+0xB212,
+0xB213,
+0xB216,
+0xB218,
+0xB21A,
+0xB21B,
+0xB21C,
+0xB21D,
+0xB21E,
+0xB21F,
+0xB221,
+0xB222,
+0xB223,
+0xB224,
+0xB225,
+0xB226,
+0xB227,
+0xB228,
+0xB229,
+0xB22A,
+0xB22B,
+0xB22C,
+0xB22D,
+0xB22E,
+0xB22F,
+0xB230,
+0xB231,
+0xB232,
+0xB233,
+0xB235,
+0xB236,
+0xB237,
+0xB238,
+0xB239,
+0xB23A,
+0xB23B,
+0xB23D,
+0xB23E,
+0xB23F,
+0xB240,
+0xB241,
+0xB242,
+0xB243,
+0xB244,
+0xB245,
+0xB246,
+0xB247,
+0xB248,
+0xB249,
+0xB24A,
+0xB24B,
+0xB24C,
+0xB24D,
+0xB24E,
+0xB24F,
+0xB250,
+0xB251,
+0xB252,
+0xB253,
+0xB254,
+0xB255,
+0xB256,
+0xB257,
+0xB259,
+0xB25A,
+0xB25B,
+0xB25D,
+0xB25E,
+0xB25F,
+0xB261,
+0xB262,
+0xB263,
+0xB264,
+0xB265,
+0xB266,
+0xB267,
+0xB26A,
+0xB26B,
+0xB26C,
+0xB26D,
+0xB26E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB26F,
+0xB270,
+0xB271,
+0xB272,
+0xB273,
+0xB276,
+0xB277,
+0xB278,
+0xB279,
+0xB27A,
+0xB27B,
+0xB27D,
+0xB27E,
+0xB27F,
+0xB280,
+0xB281,
+0xB282,
+0xB283,
+0xB286,
+0xB287,
+0xB288,
+0xB28A,
+0xB28B,
+0xB28C,
+0xB28D,
+0xB28E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB28F,
+0xB292,
+0xB293,
+0xB295,
+0xB296,
+0xB297,
+0xB29B,
+0xB29C,
+0xB29D,
+0xB29E,
+0xB29F,
+0xB2A2,
+0xB2A4,
+0xB2A7,
+0xB2A8,
+0xB2A9,
+0xB2AB,
+0xB2AD,
+0xB2AE,
+0xB2AF,
+0xB2B1,
+0xB2B2,
+0xB2B3,
+0xB2B5,
+0xB2B6,
+0xB2B7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB2B8,
+0xB2B9,
+0xB2BA,
+0xB2BB,
+0xB2BC,
+0xB2BD,
+0xB2BE,
+0xB2BF,
+0xB2C0,
+0xB2C1,
+0xB2C2,
+0xB2C3,
+0xB2C4,
+0xB2C5,
+0xB2C6,
+0xB2C7,
+0xB2CA,
+0xB2CB,
+0xB2CD,
+0xB2CE,
+0xB2CF,
+0xB2D1,
+0xB2D3,
+0xB2D4,
+0xB2D5,
+0xB2D6,
+0xB2D7,
+0xB2DA,
+0xB2DC,
+0xB2DE,
+0xB2DF,
+0xB2E0,
+0xB2E1,
+0xB2E3,
+0xB2E7,
+0xB2E9,
+0xB2EA,
+0xB2F0,
+0xB2F1,
+0xB2F2,
+0xB2F6,
+0xB2FC,
+0xB2FD,
+0xB2FE,
+0xB302,
+0xB303,
+0xB305,
+0xB306,
+0xB307,
+0xB309,
+0xB30A,
+0xB30B,
+0xB30C,
+0xB30D,
+0xB30E,
+0xB30F,
+0xB312,
+0xB316,
+0xB317,
+0xB318,
+0xB319,
+0xB31A,
+0xB31B,
+0xB31D,
+0xB31E,
+0xB31F,
+0xB320,
+0xB321,
+0xB322,
+0xB323,
+0xB324,
+0xB325,
+0xB326,
+0xB327,
+0xB328,
+0xB329,
+0xB32A,
+0xB32B,
+0xB32C,
+0xB32D,
+0xB32E,
+0xB32F,
+0xB330,
+0xB331,
+0xB332,
+0xB333,
+0xB334,
+0xB335,
+0xB336,
+0xB337,
+0xB338,
+0xB339,
+0xB33A,
+0xB33B,
+0xB33C,
+0xB33D,
+0xB33E,
+0xB33F,
+0xB340,
+0xB341,
+0xB342,
+0xB343,
+0xB344,
+0xB345,
+0xB346,
+0xB347,
+0xB348,
+0xB349,
+0xB34A,
+0xB34B,
+0xB34C,
+0xB34D,
+0xB34E,
+0xB34F,
+0xB350,
+0xB351,
+0xB352,
+0xB353,
+0xB357,
+0xB359,
+0xB35A,
+0xB35D,
+0xB360,
+0xB361,
+0xB362,
+0xB363,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB366,
+0xB368,
+0xB36A,
+0xB36C,
+0xB36D,
+0xB36F,
+0xB372,
+0xB373,
+0xB375,
+0xB376,
+0xB377,
+0xB379,
+0xB37A,
+0xB37B,
+0xB37C,
+0xB37D,
+0xB37E,
+0xB37F,
+0xB382,
+0xB386,
+0xB387,
+0xB388,
+0xB389,
+0xB38A,
+0xB38B,
+0xB38D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB38E,
+0xB38F,
+0xB391,
+0xB392,
+0xB393,
+0xB395,
+0xB396,
+0xB397,
+0xB398,
+0xB399,
+0xB39A,
+0xB39B,
+0xB39C,
+0xB39D,
+0xB39E,
+0xB39F,
+0xB3A2,
+0xB3A3,
+0xB3A4,
+0xB3A5,
+0xB3A6,
+0xB3A7,
+0xB3A9,
+0xB3AA,
+0xB3AB,
+0xB3AD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB3AE,
+0xB3AF,
+0xB3B0,
+0xB3B1,
+0xB3B2,
+0xB3B3,
+0xB3B4,
+0xB3B5,
+0xB3B6,
+0xB3B7,
+0xB3B8,
+0xB3B9,
+0xB3BA,
+0xB3BB,
+0xB3BC,
+0xB3BD,
+0xB3BE,
+0xB3BF,
+0xB3C0,
+0xB3C1,
+0xB3C2,
+0xB3C3,
+0xB3C6,
+0xB3C7,
+0xB3C9,
+0xB3CA,
+0xB3CD,
+0xB3CF,
+0xB3D1,
+0xB3D2,
+0xB3D3,
+0xB3D6,
+0xB3D8,
+0xB3DA,
+0xB3DC,
+0xB3DE,
+0xB3DF,
+0xB3E1,
+0xB3E2,
+0xB3E3,
+0xB3E5,
+0xB3E6,
+0xB3E7,
+0xB3E9,
+0xB3EA,
+0xB3EB,
+0xB3EC,
+0xB3ED,
+0xB3EE,
+0xB3EF,
+0xB3F0,
+0xB3F1,
+0xB3F2,
+0xB3F3,
+0xB3F4,
+0xB3F5,
+0xB3F6,
+0xB3F7,
+0xB3F8,
+0xB3F9,
+0xB3FA,
+0xB3FB,
+0xB3FD,
+0xB3FE,
+0xB3FF,
+0xB400,
+0xB401,
+0xB402,
+0xB403,
+0xB404,
+0xB405,
+0xB406,
+0xB407,
+0xB408,
+0xB409,
+0xB40A,
+0xB40B,
+0xB40C,
+0xB40D,
+0xB40E,
+0xB40F,
+0xB411,
+0xB412,
+0xB413,
+0xB414,
+0xB415,
+0xB416,
+0xB417,
+0xB419,
+0xB41A,
+0xB41B,
+0xB41D,
+0xB41E,
+0xB41F,
+0xB421,
+0xB422,
+0xB423,
+0xB424,
+0xB425,
+0xB426,
+0xB427,
+0xB42A,
+0xB42C,
+0xB42D,
+0xB42E,
+0xB42F,
+0xB430,
+0xB431,
+0xB432,
+0xB433,
+0xB435,
+0xB436,
+0xB437,
+0xB438,
+0xB439,
+0xB43A,
+0xB43B,
+0xB43C,
+0xB43D,
+0xB43E,
+0xB43F,
+0xB440,
+0xB441,
+0xB442,
+0xB443,
+0xB444,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB445,
+0xB446,
+0xB447,
+0xB448,
+0xB449,
+0xB44A,
+0xB44B,
+0xB44C,
+0xB44D,
+0xB44E,
+0xB44F,
+0xB452,
+0xB453,
+0xB455,
+0xB456,
+0xB457,
+0xB459,
+0xB45A,
+0xB45B,
+0xB45C,
+0xB45D,
+0xB45E,
+0xB45F,
+0xB462,
+0xB464,
+0xB466,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB467,
+0xB468,
+0xB469,
+0xB46A,
+0xB46B,
+0xB46D,
+0xB46E,
+0xB46F,
+0xB470,
+0xB471,
+0xB472,
+0xB473,
+0xB474,
+0xB475,
+0xB476,
+0xB477,
+0xB478,
+0xB479,
+0xB47A,
+0xB47B,
+0xB47C,
+0xB47D,
+0xB47E,
+0xB47F,
+0xB481,
+0xB482,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB483,
+0xB484,
+0xB485,
+0xB486,
+0xB487,
+0xB489,
+0xB48A,
+0xB48B,
+0xB48C,
+0xB48D,
+0xB48E,
+0xB48F,
+0xB490,
+0xB491,
+0xB492,
+0xB493,
+0xB494,
+0xB495,
+0xB496,
+0xB497,
+0xB498,
+0xB499,
+0xB49A,
+0xB49B,
+0xB49C,
+0xB49E,
+0xB49F,
+0xB4A0,
+0xB4A1,
+0xB4A2,
+0xB4A3,
+0xB4A5,
+0xB4A6,
+0xB4A7,
+0xB4A9,
+0xB4AA,
+0xB4AB,
+0xB4AD,
+0xB4AE,
+0xB4AF,
+0xB4B0,
+0xB4B1,
+0xB4B2,
+0xB4B3,
+0xB4B4,
+0xB4B6,
+0xB4B8,
+0xB4BA,
+0xB4BB,
+0xB4BC,
+0xB4BD,
+0xB4BE,
+0xB4BF,
+0xB4C1,
+0xB4C2,
+0xB4C3,
+0xB4C5,
+0xB4C6,
+0xB4C7,
+0xB4C9,
+0xB4CA,
+0xB4CB,
+0xB4CC,
+0xB4CD,
+0xB4CE,
+0xB4CF,
+0xB4D1,
+0xB4D2,
+0xB4D3,
+0xB4D4,
+0xB4D6,
+0xB4D7,
+0xB4D8,
+0xB4D9,
+0xB4DA,
+0xB4DB,
+0xB4DE,
+0xB4DF,
+0xB4E1,
+0xB4E2,
+0xB4E5,
+0xB4E7,
+0xB4E8,
+0xB4E9,
+0xB4EA,
+0xB4EB,
+0xB4EE,
+0xB4F0,
+0xB4F2,
+0xB4F3,
+0xB4F4,
+0xB4F5,
+0xB4F6,
+0xB4F7,
+0xB4F9,
+0xB4FA,
+0xB4FB,
+0xB4FC,
+0xB4FD,
+0xB4FE,
+0xB4FF,
+0xB500,
+0xB501,
+0xB502,
+0xB503,
+0xB504,
+0xB505,
+0xB506,
+0xB507,
+0xB508,
+0xB509,
+0xB50A,
+0xB50B,
+0xB50C,
+0xB50D,
+0xB50E,
+0xB50F,
+0xB510,
+0xB511,
+0xB512,
+0xB513,
+0xB516,
+0xB517,
+0xB519,
+0xB51A,
+0xB51D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB51E,
+0xB51F,
+0xB520,
+0xB521,
+0xB522,
+0xB523,
+0xB526,
+0xB52B,
+0xB52C,
+0xB52D,
+0xB52E,
+0xB52F,
+0xB532,
+0xB533,
+0xB535,
+0xB536,
+0xB537,
+0xB539,
+0xB53A,
+0xB53B,
+0xB53C,
+0xB53D,
+0xB53E,
+0xB53F,
+0xB542,
+0xB546,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB547,
+0xB548,
+0xB549,
+0xB54A,
+0xB54E,
+0xB54F,
+0xB551,
+0xB552,
+0xB553,
+0xB555,
+0xB556,
+0xB557,
+0xB558,
+0xB559,
+0xB55A,
+0xB55B,
+0xB55E,
+0xB562,
+0xB563,
+0xB564,
+0xB565,
+0xB566,
+0xB567,
+0xB568,
+0xB569,
+0xB56A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB56B,
+0xB56C,
+0xB56D,
+0xB56E,
+0xB56F,
+0xB570,
+0xB571,
+0xB572,
+0xB573,
+0xB574,
+0xB575,
+0xB576,
+0xB577,
+0xB578,
+0xB579,
+0xB57A,
+0xB57B,
+0xB57C,
+0xB57D,
+0xB57E,
+0xB57F,
+0xB580,
+0xB581,
+0xB582,
+0xB583,
+0xB584,
+0xB585,
+0xB586,
+0xB587,
+0xB588,
+0xB589,
+0xB58A,
+0xB58B,
+0xB58C,
+0xB58D,
+0xB58E,
+0xB58F,
+0xB590,
+0xB591,
+0xB592,
+0xB593,
+0xB594,
+0xB595,
+0xB596,
+0xB597,
+0xB598,
+0xB599,
+0xB59A,
+0xB59B,
+0xB59C,
+0xB59D,
+0xB59E,
+0xB59F,
+0xB5A2,
+0xB5A3,
+0xB5A5,
+0xB5A6,
+0xB5A7,
+0xB5A9,
+0xB5AC,
+0xB5AD,
+0xB5AE,
+0xB5AF,
+0xB5B2,
+0xB5B6,
+0xB5B7,
+0xB5B8,
+0xB5B9,
+0xB5BA,
+0xB5BE,
+0xB5BF,
+0xB5C1,
+0xB5C2,
+0xB5C3,
+0xB5C5,
+0xB5C6,
+0xB5C7,
+0xB5C8,
+0xB5C9,
+0xB5CA,
+0xB5CB,
+0xB5CE,
+0xB5D2,
+0xB5D3,
+0xB5D4,
+0xB5D5,
+0xB5D6,
+0xB5D7,
+0xB5D9,
+0xB5DA,
+0xB5DB,
+0xB5DC,
+0xB5DD,
+0xB5DE,
+0xB5DF,
+0xB5E0,
+0xB5E1,
+0xB5E2,
+0xB5E3,
+0xB5E4,
+0xB5E5,
+0xB5E6,
+0xB5E7,
+0xB5E8,
+0xB5E9,
+0xB5EA,
+0xB5EB,
+0xB5ED,
+0xB5EE,
+0xB5EF,
+0xB5F0,
+0xB5F1,
+0xB5F2,
+0xB5F3,
+0xB5F4,
+0xB5F5,
+0xB5F6,
+0xB5F7,
+0xB5F8,
+0xB5F9,
+0xB5FA,
+0xB5FB,
+0xB5FC,
+0xB5FD,
+0xB5FE,
+0xB5FF,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB600,
+0xB601,
+0xB602,
+0xB603,
+0xB604,
+0xB605,
+0xB606,
+0xB607,
+0xB608,
+0xB609,
+0xB60A,
+0xB60B,
+0xB60C,
+0xB60D,
+0xB60E,
+0xB60F,
+0xB612,
+0xB613,
+0xB615,
+0xB616,
+0xB617,
+0xB619,
+0xB61A,
+0xB61B,
+0xB61C,
+0xB61D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB61E,
+0xB61F,
+0xB620,
+0xB621,
+0xB622,
+0xB623,
+0xB624,
+0xB626,
+0xB627,
+0xB628,
+0xB629,
+0xB62A,
+0xB62B,
+0xB62D,
+0xB62E,
+0xB62F,
+0xB630,
+0xB631,
+0xB632,
+0xB633,
+0xB635,
+0xB636,
+0xB637,
+0xB638,
+0xB639,
+0xB63A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB63B,
+0xB63C,
+0xB63D,
+0xB63E,
+0xB63F,
+0xB640,
+0xB641,
+0xB642,
+0xB643,
+0xB644,
+0xB645,
+0xB646,
+0xB647,
+0xB649,
+0xB64A,
+0xB64B,
+0xB64C,
+0xB64D,
+0xB64E,
+0xB64F,
+0xB650,
+0xB651,
+0xB652,
+0xB653,
+0xB654,
+0xB655,
+0xB656,
+0xB657,
+0xB658,
+0xB659,
+0xB65A,
+0xB65B,
+0xB65C,
+0xB65D,
+0xB65E,
+0xB65F,
+0xB660,
+0xB661,
+0xB662,
+0xB663,
+0xB665,
+0xB666,
+0xB667,
+0xB669,
+0xB66A,
+0xB66B,
+0xB66C,
+0xB66D,
+0xB66E,
+0xB66F,
+0xB670,
+0xB671,
+0xB672,
+0xB673,
+0xB674,
+0xB675,
+0xB676,
+0xB677,
+0xB678,
+0xB679,
+0xB67A,
+0xB67B,
+0xB67C,
+0xB67D,
+0xB67E,
+0xB67F,
+0xB680,
+0xB681,
+0xB682,
+0xB683,
+0xB684,
+0xB685,
+0xB686,
+0xB687,
+0xB688,
+0xB689,
+0xB68A,
+0xB68B,
+0xB68C,
+0xB68D,
+0xB68E,
+0xB68F,
+0xB690,
+0xB691,
+0xB692,
+0xB693,
+0xB694,
+0xB695,
+0xB696,
+0xB697,
+0xB698,
+0xB699,
+0xB69A,
+0xB69B,
+0xB69E,
+0xB69F,
+0xB6A1,
+0xB6A2,
+0xB6A3,
+0xB6A5,
+0xB6A6,
+0xB6A7,
+0xB6A8,
+0xB6A9,
+0xB6AA,
+0xB6AD,
+0xB6AE,
+0xB6AF,
+0xB6B0,
+0xB6B2,
+0xB6B3,
+0xB6B4,
+0xB6B5,
+0xB6B6,
+0xB6B7,
+0xB6B8,
+0xB6B9,
+0xB6BA,
+0xB6BB,
+0xB6BC,
+0xB6BD,
+0xB6BE,
+0xB6BF,
+0xB6C0,
+0xB6C1,
+0xB6C2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB6C3,
+0xB6C4,
+0xB6C5,
+0xB6C6,
+0xB6C7,
+0xB6C8,
+0xB6C9,
+0xB6CA,
+0xB6CB,
+0xB6CC,
+0xB6CD,
+0xB6CE,
+0xB6CF,
+0xB6D0,
+0xB6D1,
+0xB6D2,
+0xB6D3,
+0xB6D5,
+0xB6D6,
+0xB6D7,
+0xB6D8,
+0xB6D9,
+0xB6DA,
+0xB6DB,
+0xB6DC,
+0xB6DD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB6DE,
+0xB6DF,
+0xB6E0,
+0xB6E1,
+0xB6E2,
+0xB6E3,
+0xB6E4,
+0xB6E5,
+0xB6E6,
+0xB6E7,
+0xB6E8,
+0xB6E9,
+0xB6EA,
+0xB6EB,
+0xB6EC,
+0xB6ED,
+0xB6EE,
+0xB6EF,
+0xB6F1,
+0xB6F2,
+0xB6F3,
+0xB6F5,
+0xB6F6,
+0xB6F7,
+0xB6F9,
+0xB6FA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB6FB,
+0xB6FC,
+0xB6FD,
+0xB6FE,
+0xB6FF,
+0xB702,
+0xB703,
+0xB704,
+0xB706,
+0xB707,
+0xB708,
+0xB709,
+0xB70A,
+0xB70B,
+0xB70C,
+0xB70D,
+0xB70E,
+0xB70F,
+0xB710,
+0xB711,
+0xB712,
+0xB713,
+0xB714,
+0xB715,
+0xB716,
+0xB717,
+0xB718,
+0xB719,
+0xB71A,
+0xB71B,
+0xB71C,
+0xB71D,
+0xB71E,
+0xB71F,
+0xB720,
+0xB721,
+0xB722,
+0xB723,
+0xB724,
+0xB725,
+0xB726,
+0xB727,
+0xB72A,
+0xB72B,
+0xB72D,
+0xB72E,
+0xB731,
+0xB732,
+0xB733,
+0xB734,
+0xB735,
+0xB736,
+0xB737,
+0xB73A,
+0xB73C,
+0xB73D,
+0xB73E,
+0xB73F,
+0xB740,
+0xB741,
+0xB742,
+0xB743,
+0xB745,
+0xB746,
+0xB747,
+0xB749,
+0xB74A,
+0xB74B,
+0xB74D,
+0xB74E,
+0xB74F,
+0xB750,
+0xB751,
+0xB752,
+0xB753,
+0xB756,
+0xB757,
+0xB758,
+0xB759,
+0xB75A,
+0xB75B,
+0xB75C,
+0xB75D,
+0xB75E,
+0xB75F,
+0xB761,
+0xB762,
+0xB763,
+0xB765,
+0xB766,
+0xB767,
+0xB769,
+0xB76A,
+0xB76B,
+0xB76C,
+0xB76D,
+0xB76E,
+0xB76F,
+0xB772,
+0xB774,
+0xB776,
+0xB777,
+0xB778,
+0xB779,
+0xB77A,
+0xB77B,
+0xB77E,
+0xB77F,
+0xB781,
+0xB782,
+0xB783,
+0xB785,
+0xB786,
+0xB787,
+0xB788,
+0xB789,
+0xB78A,
+0xB78B,
+0xB78E,
+0xB793,
+0xB794,
+0xB795,
+0xB79A,
+0xB79B,
+0xB79D,
+0xB79E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB79F,
+0xB7A1,
+0xB7A2,
+0xB7A3,
+0xB7A4,
+0xB7A5,
+0xB7A6,
+0xB7A7,
+0xB7AA,
+0xB7AE,
+0xB7AF,
+0xB7B0,
+0xB7B1,
+0xB7B2,
+0xB7B3,
+0xB7B6,
+0xB7B7,
+0xB7B9,
+0xB7BA,
+0xB7BB,
+0xB7BC,
+0xB7BD,
+0xB7BE,
+0xB7BF,
+0xB7C0,
+0xB7C1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB7C2,
+0xB7C3,
+0xB7C4,
+0xB7C5,
+0xB7C6,
+0xB7C8,
+0xB7CA,
+0xB7CB,
+0xB7CC,
+0xB7CD,
+0xB7CE,
+0xB7CF,
+0xB7D0,
+0xB7D1,
+0xB7D2,
+0xB7D3,
+0xB7D4,
+0xB7D5,
+0xB7D6,
+0xB7D7,
+0xB7D8,
+0xB7D9,
+0xB7DA,
+0xB7DB,
+0xB7DC,
+0xB7DD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB7DE,
+0xB7DF,
+0xB7E0,
+0xB7E1,
+0xB7E2,
+0xB7E3,
+0xB7E4,
+0xB7E5,
+0xB7E6,
+0xB7E7,
+0xB7E8,
+0xB7E9,
+0xB7EA,
+0xB7EB,
+0xB7EE,
+0xB7EF,
+0xB7F1,
+0xB7F2,
+0xB7F3,
+0xB7F5,
+0xB7F6,
+0xB7F7,
+0xB7F8,
+0xB7F9,
+0xB7FA,
+0xB7FB,
+0xB7FE,
+0xB802,
+0xB803,
+0xB804,
+0xB805,
+0xB806,
+0xB80A,
+0xB80B,
+0xB80D,
+0xB80E,
+0xB80F,
+0xB811,
+0xB812,
+0xB813,
+0xB814,
+0xB815,
+0xB816,
+0xB817,
+0xB81A,
+0xB81C,
+0xB81E,
+0xB81F,
+0xB820,
+0xB821,
+0xB822,
+0xB823,
+0xB826,
+0xB827,
+0xB829,
+0xB82A,
+0xB82B,
+0xB82D,
+0xB82E,
+0xB82F,
+0xB830,
+0xB831,
+0xB832,
+0xB833,
+0xB836,
+0xB83A,
+0xB83B,
+0xB83C,
+0xB83D,
+0xB83E,
+0xB83F,
+0xB841,
+0xB842,
+0xB843,
+0xB845,
+0xB846,
+0xB847,
+0xB848,
+0xB849,
+0xB84A,
+0xB84B,
+0xB84C,
+0xB84D,
+0xB84E,
+0xB84F,
+0xB850,
+0xB852,
+0xB854,
+0xB855,
+0xB856,
+0xB857,
+0xB858,
+0xB859,
+0xB85A,
+0xB85B,
+0xB85E,
+0xB85F,
+0xB861,
+0xB862,
+0xB863,
+0xB865,
+0xB866,
+0xB867,
+0xB868,
+0xB869,
+0xB86A,
+0xB86B,
+0xB86E,
+0xB870,
+0xB872,
+0xB873,
+0xB874,
+0xB875,
+0xB876,
+0xB877,
+0xB879,
+0xB87A,
+0xB87B,
+0xB87D,
+0xB87E,
+0xB87F,
+0xB880,
+0xB881,
+0xB882,
+0xB883,
+0xB884,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB885,
+0xB886,
+0xB887,
+0xB888,
+0xB889,
+0xB88A,
+0xB88B,
+0xB88C,
+0xB88E,
+0xB88F,
+0xB890,
+0xB891,
+0xB892,
+0xB893,
+0xB894,
+0xB895,
+0xB896,
+0xB897,
+0xB898,
+0xB899,
+0xB89A,
+0xB89B,
+0xB89C,
+0xB89D,
+0xB89E,
+0xB89F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB8A0,
+0xB8A1,
+0xB8A2,
+0xB8A3,
+0xB8A4,
+0xB8A5,
+0xB8A6,
+0xB8A7,
+0xB8A9,
+0xB8AA,
+0xB8AB,
+0xB8AC,
+0xB8AD,
+0xB8AE,
+0xB8AF,
+0xB8B1,
+0xB8B2,
+0xB8B3,
+0xB8B5,
+0xB8B6,
+0xB8B7,
+0xB8B9,
+0xB8BA,
+0xB8BB,
+0xB8BC,
+0xB8BD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB8BE,
+0xB8BF,
+0xB8C2,
+0xB8C4,
+0xB8C6,
+0xB8C7,
+0xB8C8,
+0xB8C9,
+0xB8CA,
+0xB8CB,
+0xB8CD,
+0xB8CE,
+0xB8CF,
+0xB8D1,
+0xB8D2,
+0xB8D3,
+0xB8D5,
+0xB8D6,
+0xB8D7,
+0xB8D8,
+0xB8D9,
+0xB8DA,
+0xB8DB,
+0xB8DC,
+0xB8DE,
+0xB8E0,
+0xB8E2,
+0xB8E3,
+0xB8E4,
+0xB8E5,
+0xB8E6,
+0xB8E7,
+0xB8EA,
+0xB8EB,
+0xB8ED,
+0xB8EE,
+0xB8EF,
+0xB8F1,
+0xB8F2,
+0xB8F3,
+0xB8F4,
+0xB8F5,
+0xB8F6,
+0xB8F7,
+0xB8FA,
+0xB8FC,
+0xB8FE,
+0xB8FF,
+0xB900,
+0xB901,
+0xB902,
+0xB903,
+0xB905,
+0xB906,
+0xB907,
+0xB908,
+0xB909,
+0xB90A,
+0xB90B,
+0xB90C,
+0xB90D,
+0xB90E,
+0xB90F,
+0xB910,
+0xB911,
+0xB912,
+0xB913,
+0xB914,
+0xB915,
+0xB916,
+0xB917,
+0xB919,
+0xB91A,
+0xB91B,
+0xB91C,
+0xB91D,
+0xB91E,
+0xB91F,
+0xB921,
+0xB922,
+0xB923,
+0xB924,
+0xB925,
+0xB926,
+0xB927,
+0xB928,
+0xB929,
+0xB92A,
+0xB92B,
+0xB92C,
+0xB92D,
+0xB92E,
+0xB92F,
+0xB930,
+0xB931,
+0xB932,
+0xB933,
+0xB934,
+0xB935,
+0xB936,
+0xB937,
+0xB938,
+0xB939,
+0xB93A,
+0xB93B,
+0xB93E,
+0xB93F,
+0xB941,
+0xB942,
+0xB943,
+0xB945,
+0xB946,
+0xB947,
+0xB948,
+0xB949,
+0xB94A,
+0xB94B,
+0xB94D,
+0xB94E,
+0xB950,
+0xB952,
+0xB953,
+0xB954,
+0xB955,
+0xB956,
+0xB957,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB95A,
+0xB95B,
+0xB95D,
+0xB95E,
+0xB95F,
+0xB961,
+0xB962,
+0xB963,
+0xB964,
+0xB965,
+0xB966,
+0xB967,
+0xB96A,
+0xB96C,
+0xB96E,
+0xB96F,
+0xB970,
+0xB971,
+0xB972,
+0xB973,
+0xB976,
+0xB977,
+0xB979,
+0xB97A,
+0xB97B,
+0xB97D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB97E,
+0xB97F,
+0xB980,
+0xB981,
+0xB982,
+0xB983,
+0xB986,
+0xB988,
+0xB98B,
+0xB98C,
+0xB98F,
+0xB990,
+0xB991,
+0xB992,
+0xB993,
+0xB994,
+0xB995,
+0xB996,
+0xB997,
+0xB998,
+0xB999,
+0xB99A,
+0xB99B,
+0xB99C,
+0xB99D,
+0xB99E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xB99F,
+0xB9A0,
+0xB9A1,
+0xB9A2,
+0xB9A3,
+0xB9A4,
+0xB9A5,
+0xB9A6,
+0xB9A7,
+0xB9A8,
+0xB9A9,
+0xB9AA,
+0xB9AB,
+0xB9AE,
+0xB9AF,
+0xB9B1,
+0xB9B2,
+0xB9B3,
+0xB9B5,
+0xB9B6,
+0xB9B7,
+0xB9B8,
+0xB9B9,
+0xB9BA,
+0xB9BB,
+0xB9BE,
+0xB9C0,
+0xB9C2,
+0xB9C3,
+0xB9C4,
+0xB9C5,
+0xB9C6,
+0xB9C7,
+0xB9CA,
+0xB9CB,
+0xB9CD,
+0xB9D3,
+0xB9D4,
+0xB9D5,
+0xB9D6,
+0xB9D7,
+0xB9DA,
+0xB9DC,
+0xB9DF,
+0xB9E0,
+0xB9E2,
+0xB9E6,
+0xB9E7,
+0xB9E9,
+0xB9EA,
+0xB9EB,
+0xB9ED,
+0xB9EE,
+0xB9EF,
+0xB9F0,
+0xB9F1,
+0xB9F2,
+0xB9F3,
+0xB9F6,
+0xB9FB,
+0xB9FC,
+0xB9FD,
+0xB9FE,
+0xB9FF,
+0xBA02,
+0xBA03,
+0xBA04,
+0xBA05,
+0xBA06,
+0xBA07,
+0xBA09,
+0xBA0A,
+0xBA0B,
+0xBA0C,
+0xBA0D,
+0xBA0E,
+0xBA0F,
+0xBA10,
+0xBA11,
+0xBA12,
+0xBA13,
+0xBA14,
+0xBA16,
+0xBA17,
+0xBA18,
+0xBA19,
+0xBA1A,
+0xBA1B,
+0xBA1C,
+0xBA1D,
+0xBA1E,
+0xBA1F,
+0xBA20,
+0xBA21,
+0xBA22,
+0xBA23,
+0xBA24,
+0xBA25,
+0xBA26,
+0xBA27,
+0xBA28,
+0xBA29,
+0xBA2A,
+0xBA2B,
+0xBA2C,
+0xBA2D,
+0xBA2E,
+0xBA2F,
+0xBA30,
+0xBA31,
+0xBA32,
+0xBA33,
+0xBA34,
+0xBA35,
+0xBA36,
+0xBA37,
+0xBA3A,
+0xBA3B,
+0xBA3D,
+0xBA3E,
+0xBA3F,
+0xBA41,
+0xBA43,
+0xBA44,
+0xBA45,
+0xBA46,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBA47,
+0xBA4A,
+0xBA4C,
+0xBA4F,
+0xBA50,
+0xBA51,
+0xBA52,
+0xBA56,
+0xBA57,
+0xBA59,
+0xBA5A,
+0xBA5B,
+0xBA5D,
+0xBA5E,
+0xBA5F,
+0xBA60,
+0xBA61,
+0xBA62,
+0xBA63,
+0xBA66,
+0xBA6A,
+0xBA6B,
+0xBA6C,
+0xBA6D,
+0xBA6E,
+0xBA6F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBA72,
+0xBA73,
+0xBA75,
+0xBA76,
+0xBA77,
+0xBA79,
+0xBA7A,
+0xBA7B,
+0xBA7C,
+0xBA7D,
+0xBA7E,
+0xBA7F,
+0xBA80,
+0xBA81,
+0xBA82,
+0xBA86,
+0xBA88,
+0xBA89,
+0xBA8A,
+0xBA8B,
+0xBA8D,
+0xBA8E,
+0xBA8F,
+0xBA90,
+0xBA91,
+0xBA92,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBA93,
+0xBA94,
+0xBA95,
+0xBA96,
+0xBA97,
+0xBA98,
+0xBA99,
+0xBA9A,
+0xBA9B,
+0xBA9C,
+0xBA9D,
+0xBA9E,
+0xBA9F,
+0xBAA0,
+0xBAA1,
+0xBAA2,
+0xBAA3,
+0xBAA4,
+0xBAA5,
+0xBAA6,
+0xBAA7,
+0xBAAA,
+0xBAAD,
+0xBAAE,
+0xBAAF,
+0xBAB1,
+0xBAB3,
+0xBAB4,
+0xBAB5,
+0xBAB6,
+0xBAB7,
+0xBABA,
+0xBABC,
+0xBABE,
+0xBABF,
+0xBAC0,
+0xBAC1,
+0xBAC2,
+0xBAC3,
+0xBAC5,
+0xBAC6,
+0xBAC7,
+0xBAC9,
+0xBACA,
+0xBACB,
+0xBACC,
+0xBACD,
+0xBACE,
+0xBACF,
+0xBAD0,
+0xBAD1,
+0xBAD2,
+0xBAD3,
+0xBAD4,
+0xBAD5,
+0xBAD6,
+0xBAD7,
+0xBADA,
+0xBADB,
+0xBADC,
+0xBADD,
+0xBADE,
+0xBADF,
+0xBAE0,
+0xBAE1,
+0xBAE2,
+0xBAE3,
+0xBAE4,
+0xBAE5,
+0xBAE6,
+0xBAE7,
+0xBAE8,
+0xBAE9,
+0xBAEA,
+0xBAEB,
+0xBAEC,
+0xBAED,
+0xBAEE,
+0xBAEF,
+0xBAF0,
+0xBAF1,
+0xBAF2,
+0xBAF3,
+0xBAF4,
+0xBAF5,
+0xBAF6,
+0xBAF7,
+0xBAF8,
+0xBAF9,
+0xBAFA,
+0xBAFB,
+0xBAFD,
+0xBAFE,
+0xBAFF,
+0xBB01,
+0xBB02,
+0xBB03,
+0xBB05,
+0xBB06,
+0xBB07,
+0xBB08,
+0xBB09,
+0xBB0A,
+0xBB0B,
+0xBB0C,
+0xBB0E,
+0xBB10,
+0xBB12,
+0xBB13,
+0xBB14,
+0xBB15,
+0xBB16,
+0xBB17,
+0xBB19,
+0xBB1A,
+0xBB1B,
+0xBB1D,
+0xBB1E,
+0xBB1F,
+0xBB21,
+0xBB22,
+0xBB23,
+0xBB24,
+0xBB25,
+0xBB26,
+0xBB27,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBB28,
+0xBB2A,
+0xBB2C,
+0xBB2D,
+0xBB2E,
+0xBB2F,
+0xBB30,
+0xBB31,
+0xBB32,
+0xBB33,
+0xBB37,
+0xBB39,
+0xBB3A,
+0xBB3F,
+0xBB40,
+0xBB41,
+0xBB42,
+0xBB43,
+0xBB46,
+0xBB48,
+0xBB4A,
+0xBB4B,
+0xBB4C,
+0xBB4E,
+0xBB51,
+0xBB52,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBB53,
+0xBB55,
+0xBB56,
+0xBB57,
+0xBB59,
+0xBB5A,
+0xBB5B,
+0xBB5C,
+0xBB5D,
+0xBB5E,
+0xBB5F,
+0xBB60,
+0xBB62,
+0xBB64,
+0xBB65,
+0xBB66,
+0xBB67,
+0xBB68,
+0xBB69,
+0xBB6A,
+0xBB6B,
+0xBB6D,
+0xBB6E,
+0xBB6F,
+0xBB70,
+0xBB71,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBB72,
+0xBB73,
+0xBB74,
+0xBB75,
+0xBB76,
+0xBB77,
+0xBB78,
+0xBB79,
+0xBB7A,
+0xBB7B,
+0xBB7C,
+0xBB7D,
+0xBB7E,
+0xBB7F,
+0xBB80,
+0xBB81,
+0xBB82,
+0xBB83,
+0xBB84,
+0xBB85,
+0xBB86,
+0xBB87,
+0xBB89,
+0xBB8A,
+0xBB8B,
+0xBB8D,
+0xBB8E,
+0xBB8F,
+0xBB91,
+0xBB92,
+0xBB93,
+0xBB94,
+0xBB95,
+0xBB96,
+0xBB97,
+0xBB98,
+0xBB99,
+0xBB9A,
+0xBB9B,
+0xBB9C,
+0xBB9D,
+0xBB9E,
+0xBB9F,
+0xBBA0,
+0xBBA1,
+0xBBA2,
+0xBBA3,
+0xBBA5,
+0xBBA6,
+0xBBA7,
+0xBBA9,
+0xBBAA,
+0xBBAB,
+0xBBAD,
+0xBBAE,
+0xBBAF,
+0xBBB0,
+0xBBB1,
+0xBBB2,
+0xBBB3,
+0xBBB5,
+0xBBB6,
+0xBBB8,
+0xBBB9,
+0xBBBA,
+0xBBBB,
+0xBBBC,
+0xBBBD,
+0xBBBE,
+0xBBBF,
+0xBBC1,
+0xBBC2,
+0xBBC3,
+0xBBC5,
+0xBBC6,
+0xBBC7,
+0xBBC9,
+0xBBCA,
+0xBBCB,
+0xBBCC,
+0xBBCD,
+0xBBCE,
+0xBBCF,
+0xBBD1,
+0xBBD2,
+0xBBD4,
+0xBBD5,
+0xBBD6,
+0xBBD7,
+0xBBD8,
+0xBBD9,
+0xBBDA,
+0xBBDB,
+0xBBDC,
+0xBBDD,
+0xBBDE,
+0xBBDF,
+0xBBE0,
+0xBBE1,
+0xBBE2,
+0xBBE3,
+0xBBE4,
+0xBBE5,
+0xBBE6,
+0xBBE7,
+0xBBE8,
+0xBBE9,
+0xBBEA,
+0xBBEB,
+0xBBEC,
+0xBBED,
+0xBBEE,
+0xBBEF,
+0xBBF0,
+0xBBF1,
+0xBBF2,
+0xBBF3,
+0xBBF4,
+0xBBF5,
+0xBBF6,
+0xBBF7,
+0xBBFA,
+0xBBFB,
+0xBBFD,
+0xBBFE,
+0xBC01,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBC03,
+0xBC04,
+0xBC05,
+0xBC06,
+0xBC07,
+0xBC0A,
+0xBC0E,
+0xBC10,
+0xBC12,
+0xBC13,
+0xBC19,
+0xBC1A,
+0xBC20,
+0xBC21,
+0xBC22,
+0xBC23,
+0xBC26,
+0xBC28,
+0xBC2A,
+0xBC2B,
+0xBC2C,
+0xBC2E,
+0xBC2F,
+0xBC32,
+0xBC33,
+0xBC35,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBC36,
+0xBC37,
+0xBC39,
+0xBC3A,
+0xBC3B,
+0xBC3C,
+0xBC3D,
+0xBC3E,
+0xBC3F,
+0xBC42,
+0xBC46,
+0xBC47,
+0xBC48,
+0xBC4A,
+0xBC4B,
+0xBC4E,
+0xBC4F,
+0xBC51,
+0xBC52,
+0xBC53,
+0xBC54,
+0xBC55,
+0xBC56,
+0xBC57,
+0xBC58,
+0xBC59,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBC5A,
+0xBC5B,
+0xBC5C,
+0xBC5E,
+0xBC5F,
+0xBC60,
+0xBC61,
+0xBC62,
+0xBC63,
+0xBC64,
+0xBC65,
+0xBC66,
+0xBC67,
+0xBC68,
+0xBC69,
+0xBC6A,
+0xBC6B,
+0xBC6C,
+0xBC6D,
+0xBC6E,
+0xBC6F,
+0xBC70,
+0xBC71,
+0xBC72,
+0xBC73,
+0xBC74,
+0xBC75,
+0xBC76,
+0xBC77,
+0xBC78,
+0xBC79,
+0xBC7A,
+0xBC7B,
+0xBC7C,
+0xBC7D,
+0xBC7E,
+0xBC7F,
+0xBC80,
+0xBC81,
+0xBC82,
+0xBC83,
+0xBC86,
+0xBC87,
+0xBC89,
+0xBC8A,
+0xBC8D,
+0xBC8F,
+0xBC90,
+0xBC91,
+0xBC92,
+0xBC93,
+0xBC96,
+0xBC98,
+0xBC9B,
+0xBC9C,
+0xBC9D,
+0xBC9E,
+0xBC9F,
+0xBCA2,
+0xBCA3,
+0xBCA5,
+0xBCA6,
+0xBCA9,
+0xBCAA,
+0xBCAB,
+0xBCAC,
+0xBCAD,
+0xBCAE,
+0xBCAF,
+0xBCB2,
+0xBCB6,
+0xBCB7,
+0xBCB8,
+0xBCB9,
+0xBCBA,
+0xBCBB,
+0xBCBE,
+0xBCBF,
+0xBCC1,
+0xBCC2,
+0xBCC3,
+0xBCC5,
+0xBCC6,
+0xBCC7,
+0xBCC8,
+0xBCC9,
+0xBCCA,
+0xBCCB,
+0xBCCC,
+0xBCCE,
+0xBCD2,
+0xBCD3,
+0xBCD4,
+0xBCD6,
+0xBCD7,
+0xBCD9,
+0xBCDA,
+0xBCDB,
+0xBCDD,
+0xBCDE,
+0xBCDF,
+0xBCE0,
+0xBCE1,
+0xBCE2,
+0xBCE3,
+0xBCE4,
+0xBCE5,
+0xBCE6,
+0xBCE7,
+0xBCE8,
+0xBCE9,
+0xBCEA,
+0xBCEB,
+0xBCEC,
+0xBCED,
+0xBCEE,
+0xBCEF,
+0xBCF0,
+0xBCF1,
+0xBCF2,
+0xBCF3,
+0xBCF7,
+0xBCF9,
+0xBCFA,
+0xBCFB,
+0xBCFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBCFE,
+0xBCFF,
+0xBD00,
+0xBD01,
+0xBD02,
+0xBD03,
+0xBD06,
+0xBD08,
+0xBD0A,
+0xBD0B,
+0xBD0C,
+0xBD0D,
+0xBD0E,
+0xBD0F,
+0xBD11,
+0xBD12,
+0xBD13,
+0xBD15,
+0xBD16,
+0xBD17,
+0xBD18,
+0xBD19,
+0xBD1A,
+0xBD1B,
+0xBD1C,
+0xBD1D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBD1E,
+0xBD1F,
+0xBD20,
+0xBD21,
+0xBD22,
+0xBD23,
+0xBD25,
+0xBD26,
+0xBD27,
+0xBD28,
+0xBD29,
+0xBD2A,
+0xBD2B,
+0xBD2D,
+0xBD2E,
+0xBD2F,
+0xBD30,
+0xBD31,
+0xBD32,
+0xBD33,
+0xBD34,
+0xBD35,
+0xBD36,
+0xBD37,
+0xBD38,
+0xBD39,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBD3A,
+0xBD3B,
+0xBD3C,
+0xBD3D,
+0xBD3E,
+0xBD3F,
+0xBD41,
+0xBD42,
+0xBD43,
+0xBD44,
+0xBD45,
+0xBD46,
+0xBD47,
+0xBD4A,
+0xBD4B,
+0xBD4D,
+0xBD4E,
+0xBD4F,
+0xBD51,
+0xBD52,
+0xBD53,
+0xBD54,
+0xBD55,
+0xBD56,
+0xBD57,
+0xBD5A,
+0xBD5B,
+0xBD5C,
+0xBD5D,
+0xBD5E,
+0xBD5F,
+0xBD60,
+0xBD61,
+0xBD62,
+0xBD63,
+0xBD65,
+0xBD66,
+0xBD67,
+0xBD69,
+0xBD6A,
+0xBD6B,
+0xBD6C,
+0xBD6D,
+0xBD6E,
+0xBD6F,
+0xBD70,
+0xBD71,
+0xBD72,
+0xBD73,
+0xBD74,
+0xBD75,
+0xBD76,
+0xBD77,
+0xBD78,
+0xBD79,
+0xBD7A,
+0xBD7B,
+0xBD7C,
+0xBD7D,
+0xBD7E,
+0xBD7F,
+0xBD82,
+0xBD83,
+0xBD85,
+0xBD86,
+0xBD8B,
+0xBD8C,
+0xBD8D,
+0xBD8E,
+0xBD8F,
+0xBD92,
+0xBD94,
+0xBD96,
+0xBD97,
+0xBD98,
+0xBD9B,
+0xBD9D,
+0xBD9E,
+0xBD9F,
+0xBDA0,
+0xBDA1,
+0xBDA2,
+0xBDA3,
+0xBDA5,
+0xBDA6,
+0xBDA7,
+0xBDA8,
+0xBDA9,
+0xBDAA,
+0xBDAB,
+0xBDAC,
+0xBDAD,
+0xBDAE,
+0xBDAF,
+0xBDB1,
+0xBDB2,
+0xBDB3,
+0xBDB4,
+0xBDB5,
+0xBDB6,
+0xBDB7,
+0xBDB9,
+0xBDBA,
+0xBDBB,
+0xBDBC,
+0xBDBD,
+0xBDBE,
+0xBDBF,
+0xBDC0,
+0xBDC1,
+0xBDC2,
+0xBDC3,
+0xBDC4,
+0xBDC5,
+0xBDC6,
+0xBDC7,
+0xBDC8,
+0xBDC9,
+0xBDCA,
+0xBDCB,
+0xBDCC,
+0xBDCD,
+0xBDCE,
+0xBDCF,
+0xBDD0,
+0xBDD1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBDD2,
+0xBDD3,
+0xBDD6,
+0xBDD7,
+0xBDD9,
+0xBDDA,
+0xBDDB,
+0xBDDD,
+0xBDDE,
+0xBDDF,
+0xBDE0,
+0xBDE1,
+0xBDE2,
+0xBDE3,
+0xBDE4,
+0xBDE5,
+0xBDE6,
+0xBDE7,
+0xBDE8,
+0xBDEA,
+0xBDEB,
+0xBDEC,
+0xBDED,
+0xBDEE,
+0xBDEF,
+0xBDF1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBDF2,
+0xBDF3,
+0xBDF5,
+0xBDF6,
+0xBDF7,
+0xBDF9,
+0xBDFA,
+0xBDFB,
+0xBDFC,
+0xBDFD,
+0xBDFE,
+0xBDFF,
+0xBE01,
+0xBE02,
+0xBE04,
+0xBE06,
+0xBE07,
+0xBE08,
+0xBE09,
+0xBE0A,
+0xBE0B,
+0xBE0E,
+0xBE0F,
+0xBE11,
+0xBE12,
+0xBE13,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBE15,
+0xBE16,
+0xBE17,
+0xBE18,
+0xBE19,
+0xBE1A,
+0xBE1B,
+0xBE1E,
+0xBE20,
+0xBE21,
+0xBE22,
+0xBE23,
+0xBE24,
+0xBE25,
+0xBE26,
+0xBE27,
+0xBE28,
+0xBE29,
+0xBE2A,
+0xBE2B,
+0xBE2C,
+0xBE2D,
+0xBE2E,
+0xBE2F,
+0xBE30,
+0xBE31,
+0xBE32,
+0xBE33,
+0xBE34,
+0xBE35,
+0xBE36,
+0xBE37,
+0xBE38,
+0xBE39,
+0xBE3A,
+0xBE3B,
+0xBE3C,
+0xBE3D,
+0xBE3E,
+0xBE3F,
+0xBE40,
+0xBE41,
+0xBE42,
+0xBE43,
+0xBE46,
+0xBE47,
+0xBE49,
+0xBE4A,
+0xBE4B,
+0xBE4D,
+0xBE4F,
+0xBE50,
+0xBE51,
+0xBE52,
+0xBE53,
+0xBE56,
+0xBE58,
+0xBE5C,
+0xBE5D,
+0xBE5E,
+0xBE5F,
+0xBE62,
+0xBE63,
+0xBE65,
+0xBE66,
+0xBE67,
+0xBE69,
+0xBE6B,
+0xBE6C,
+0xBE6D,
+0xBE6E,
+0xBE6F,
+0xBE72,
+0xBE76,
+0xBE77,
+0xBE78,
+0xBE79,
+0xBE7A,
+0xBE7E,
+0xBE7F,
+0xBE81,
+0xBE82,
+0xBE83,
+0xBE85,
+0xBE86,
+0xBE87,
+0xBE88,
+0xBE89,
+0xBE8A,
+0xBE8B,
+0xBE8E,
+0xBE92,
+0xBE93,
+0xBE94,
+0xBE95,
+0xBE96,
+0xBE97,
+0xBE9A,
+0xBE9B,
+0xBE9C,
+0xBE9D,
+0xBE9E,
+0xBE9F,
+0xBEA0,
+0xBEA1,
+0xBEA2,
+0xBEA3,
+0xBEA4,
+0xBEA5,
+0xBEA6,
+0xBEA7,
+0xBEA9,
+0xBEAA,
+0xBEAB,
+0xBEAC,
+0xBEAD,
+0xBEAE,
+0xBEAF,
+0xBEB0,
+0xBEB1,
+0xBEB2,
+0xBEB3,
+0xBEB4,
+0xBEB5,
+0xBEB6,
+0xBEB7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBEB8,
+0xBEB9,
+0xBEBA,
+0xBEBB,
+0xBEBC,
+0xBEBD,
+0xBEBE,
+0xBEBF,
+0xBEC0,
+0xBEC1,
+0xBEC2,
+0xBEC3,
+0xBEC4,
+0xBEC5,
+0xBEC6,
+0xBEC7,
+0xBEC8,
+0xBEC9,
+0xBECA,
+0xBECB,
+0xBECC,
+0xBECD,
+0xBECE,
+0xBECF,
+0xBED2,
+0xBED3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBED5,
+0xBED6,
+0xBED9,
+0xBEDA,
+0xBEDB,
+0xBEDC,
+0xBEDD,
+0xBEDE,
+0xBEDF,
+0xBEE1,
+0xBEE2,
+0xBEE6,
+0xBEE7,
+0xBEE8,
+0xBEE9,
+0xBEEA,
+0xBEEB,
+0xBEED,
+0xBEEE,
+0xBEEF,
+0xBEF0,
+0xBEF1,
+0xBEF2,
+0xBEF3,
+0xBEF4,
+0xBEF5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBEF6,
+0xBEF7,
+0xBEF8,
+0xBEF9,
+0xBEFA,
+0xBEFB,
+0xBEFC,
+0xBEFD,
+0xBEFE,
+0xBEFF,
+0xBF00,
+0xBF02,
+0xBF03,
+0xBF04,
+0xBF05,
+0xBF06,
+0xBF07,
+0xBF0A,
+0xBF0B,
+0xBF0C,
+0xBF0D,
+0xBF0E,
+0xBF0F,
+0xBF10,
+0xBF11,
+0xBF12,
+0xBF13,
+0xBF14,
+0xBF15,
+0xBF16,
+0xBF17,
+0xBF1A,
+0xBF1E,
+0xBF1F,
+0xBF20,
+0xBF21,
+0xBF22,
+0xBF23,
+0xBF24,
+0xBF25,
+0xBF26,
+0xBF27,
+0xBF28,
+0xBF29,
+0xBF2A,
+0xBF2B,
+0xBF2C,
+0xBF2D,
+0xBF2E,
+0xBF2F,
+0xBF30,
+0xBF31,
+0xBF32,
+0xBF33,
+0xBF34,
+0xBF35,
+0xBF36,
+0xBF37,
+0xBF38,
+0xBF39,
+0xBF3A,
+0xBF3B,
+0xBF3C,
+0xBF3D,
+0xBF3E,
+0xBF3F,
+0xBF42,
+0xBF43,
+0xBF45,
+0xBF46,
+0xBF47,
+0xBF49,
+0xBF4A,
+0xBF4B,
+0xBF4C,
+0xBF4D,
+0xBF4E,
+0xBF4F,
+0xBF52,
+0xBF53,
+0xBF54,
+0xBF56,
+0xBF57,
+0xBF58,
+0xBF59,
+0xBF5A,
+0xBF5B,
+0xBF5C,
+0xBF5D,
+0xBF5E,
+0xBF5F,
+0xBF60,
+0xBF61,
+0xBF62,
+0xBF63,
+0xBF64,
+0xBF65,
+0xBF66,
+0xBF67,
+0xBF68,
+0xBF69,
+0xBF6A,
+0xBF6B,
+0xBF6C,
+0xBF6D,
+0xBF6E,
+0xBF6F,
+0xBF70,
+0xBF71,
+0xBF72,
+0xBF73,
+0xBF74,
+0xBF75,
+0xBF76,
+0xBF77,
+0xBF78,
+0xBF79,
+0xBF7A,
+0xBF7B,
+0xBF7C,
+0xBF7D,
+0xBF7E,
+0xBF7F,
+0xBF80,
+0xBF81,
+0xBF82,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBF83,
+0xBF84,
+0xBF85,
+0xBF86,
+0xBF87,
+0xBF88,
+0xBF89,
+0xBF8A,
+0xBF8B,
+0xBF8C,
+0xBF8D,
+0xBF8E,
+0xBF8F,
+0xBF90,
+0xBF91,
+0xBF92,
+0xBF93,
+0xBF95,
+0xBF96,
+0xBF97,
+0xBF98,
+0xBF99,
+0xBF9A,
+0xBF9B,
+0xBF9C,
+0xBF9D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBF9E,
+0xBF9F,
+0xBFA0,
+0xBFA1,
+0xBFA2,
+0xBFA3,
+0xBFA4,
+0xBFA5,
+0xBFA6,
+0xBFA7,
+0xBFA8,
+0xBFA9,
+0xBFAA,
+0xBFAB,
+0xBFAC,
+0xBFAD,
+0xBFAE,
+0xBFAF,
+0xBFB1,
+0xBFB2,
+0xBFB3,
+0xBFB4,
+0xBFB5,
+0xBFB6,
+0xBFB7,
+0xBFB8,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xBFB9,
+0xBFBA,
+0xBFBB,
+0xBFBC,
+0xBFBD,
+0xBFBE,
+0xBFBF,
+0xBFC0,
+0xBFC1,
+0xBFC2,
+0xBFC3,
+0xBFC4,
+0xBFC6,
+0xBFC7,
+0xBFC8,
+0xBFC9,
+0xBFCA,
+0xBFCB,
+0xBFCE,
+0xBFCF,
+0xBFD1,
+0xBFD2,
+0xBFD3,
+0xBFD5,
+0xBFD6,
+0xBFD7,
+0xBFD8,
+0xBFD9,
+0xBFDA,
+0xBFDB,
+0xBFDD,
+0xBFDE,
+0xBFE0,
+0xBFE2,
+0xBFE3,
+0xBFE4,
+0xBFE5,
+0xBFE6,
+0xBFE7,
+0xBFE8,
+0xBFE9,
+0xBFEA,
+0xBFEB,
+0xBFEC,
+0xBFED,
+0xBFEE,
+0xBFEF,
+0xBFF0,
+0xBFF1,
+0xBFF2,
+0xBFF3,
+0xBFF4,
+0xBFF5,
+0xBFF6,
+0xBFF7,
+0xBFF8,
+0xBFF9,
+0xBFFA,
+0xBFFB,
+0xBFFC,
+0xBFFD,
+0xBFFE,
+0xBFFF,
+0xC000,
+0xC001,
+0xC002,
+0xC003,
+0xC004,
+0xC005,
+0xC006,
+0xC007,
+0xC008,
+0xC009,
+0xC00A,
+0xC00B,
+0xC00C,
+0xC00D,
+0xC00E,
+0xC00F,
+0xC010,
+0xC011,
+0xC012,
+0xC013,
+0xC014,
+0xC015,
+0xC016,
+0xC017,
+0xC018,
+0xC019,
+0xC01A,
+0xC01B,
+0xC01C,
+0xC01D,
+0xC01E,
+0xC01F,
+0xC020,
+0xC021,
+0xC022,
+0xC023,
+0xC024,
+0xC025,
+0xC026,
+0xC027,
+0xC028,
+0xC029,
+0xC02A,
+0xC02B,
+0xC02C,
+0xC02D,
+0xC02E,
+0xC02F,
+0xC030,
+0xC031,
+0xC032,
+0xC033,
+0xC034,
+0xC035,
+0xC036,
+0xC037,
+0xC038,
+0xC039,
+0xC03A,
+0xC03B,
+0xC03D,
+0xC03E,
+0xC03F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC040,
+0xC041,
+0xC042,
+0xC043,
+0xC044,
+0xC045,
+0xC046,
+0xC047,
+0xC048,
+0xC049,
+0xC04A,
+0xC04B,
+0xC04C,
+0xC04D,
+0xC04E,
+0xC04F,
+0xC050,
+0xC052,
+0xC053,
+0xC054,
+0xC055,
+0xC056,
+0xC057,
+0xC059,
+0xC05A,
+0xC05B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC05D,
+0xC05E,
+0xC05F,
+0xC061,
+0xC062,
+0xC063,
+0xC064,
+0xC065,
+0xC066,
+0xC067,
+0xC06A,
+0xC06B,
+0xC06C,
+0xC06D,
+0xC06E,
+0xC06F,
+0xC070,
+0xC071,
+0xC072,
+0xC073,
+0xC074,
+0xC075,
+0xC076,
+0xC077,
+0xC078,
+0xC079,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC07A,
+0xC07B,
+0xC07C,
+0xC07D,
+0xC07E,
+0xC07F,
+0xC080,
+0xC081,
+0xC082,
+0xC083,
+0xC084,
+0xC085,
+0xC086,
+0xC087,
+0xC088,
+0xC089,
+0xC08A,
+0xC08B,
+0xC08C,
+0xC08D,
+0xC08E,
+0xC08F,
+0xC092,
+0xC093,
+0xC095,
+0xC096,
+0xC097,
+0xC099,
+0xC09A,
+0xC09B,
+0xC09C,
+0xC09D,
+0xC09E,
+0xC09F,
+0xC0A2,
+0xC0A4,
+0xC0A6,
+0xC0A7,
+0xC0A8,
+0xC0A9,
+0xC0AA,
+0xC0AB,
+0xC0AE,
+0xC0B1,
+0xC0B2,
+0xC0B7,
+0xC0B8,
+0xC0B9,
+0xC0BA,
+0xC0BB,
+0xC0BE,
+0xC0C2,
+0xC0C3,
+0xC0C4,
+0xC0C6,
+0xC0C7,
+0xC0CA,
+0xC0CB,
+0xC0CD,
+0xC0CE,
+0xC0CF,
+0xC0D1,
+0xC0D2,
+0xC0D3,
+0xC0D4,
+0xC0D5,
+0xC0D6,
+0xC0D7,
+0xC0DA,
+0xC0DE,
+0xC0DF,
+0xC0E0,
+0xC0E1,
+0xC0E2,
+0xC0E3,
+0xC0E6,
+0xC0E7,
+0xC0E9,
+0xC0EA,
+0xC0EB,
+0xC0ED,
+0xC0EE,
+0xC0EF,
+0xC0F0,
+0xC0F1,
+0xC0F2,
+0xC0F3,
+0xC0F6,
+0xC0F8,
+0xC0FA,
+0xC0FB,
+0xC0FC,
+0xC0FD,
+0xC0FE,
+0xC0FF,
+0xC101,
+0xC102,
+0xC103,
+0xC105,
+0xC106,
+0xC107,
+0xC109,
+0xC10A,
+0xC10B,
+0xC10C,
+0xC10D,
+0xC10E,
+0xC10F,
+0xC111,
+0xC112,
+0xC113,
+0xC114,
+0xC116,
+0xC117,
+0xC118,
+0xC119,
+0xC11A,
+0xC11B,
+0xC121,
+0xC122,
+0xC125,
+0xC128,
+0xC129,
+0xC12A,
+0xC12B,
+0xC12E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC132,
+0xC133,
+0xC134,
+0xC135,
+0xC137,
+0xC13A,
+0xC13B,
+0xC13D,
+0xC13E,
+0xC13F,
+0xC141,
+0xC142,
+0xC143,
+0xC144,
+0xC145,
+0xC146,
+0xC147,
+0xC14A,
+0xC14E,
+0xC14F,
+0xC150,
+0xC151,
+0xC152,
+0xC153,
+0xC156,
+0xC157,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC159,
+0xC15A,
+0xC15B,
+0xC15D,
+0xC15E,
+0xC15F,
+0xC160,
+0xC161,
+0xC162,
+0xC163,
+0xC166,
+0xC16A,
+0xC16B,
+0xC16C,
+0xC16D,
+0xC16E,
+0xC16F,
+0xC171,
+0xC172,
+0xC173,
+0xC175,
+0xC176,
+0xC177,
+0xC179,
+0xC17A,
+0xC17B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC17C,
+0xC17D,
+0xC17E,
+0xC17F,
+0xC180,
+0xC181,
+0xC182,
+0xC183,
+0xC184,
+0xC186,
+0xC187,
+0xC188,
+0xC189,
+0xC18A,
+0xC18B,
+0xC18F,
+0xC191,
+0xC192,
+0xC193,
+0xC195,
+0xC197,
+0xC198,
+0xC199,
+0xC19A,
+0xC19B,
+0xC19E,
+0xC1A0,
+0xC1A2,
+0xC1A3,
+0xC1A4,
+0xC1A6,
+0xC1A7,
+0xC1AA,
+0xC1AB,
+0xC1AD,
+0xC1AE,
+0xC1AF,
+0xC1B1,
+0xC1B2,
+0xC1B3,
+0xC1B4,
+0xC1B5,
+0xC1B6,
+0xC1B7,
+0xC1B8,
+0xC1B9,
+0xC1BA,
+0xC1BB,
+0xC1BC,
+0xC1BE,
+0xC1BF,
+0xC1C0,
+0xC1C1,
+0xC1C2,
+0xC1C3,
+0xC1C5,
+0xC1C6,
+0xC1C7,
+0xC1C9,
+0xC1CA,
+0xC1CB,
+0xC1CD,
+0xC1CE,
+0xC1CF,
+0xC1D0,
+0xC1D1,
+0xC1D2,
+0xC1D3,
+0xC1D5,
+0xC1D6,
+0xC1D9,
+0xC1DA,
+0xC1DB,
+0xC1DC,
+0xC1DD,
+0xC1DE,
+0xC1DF,
+0xC1E1,
+0xC1E2,
+0xC1E3,
+0xC1E5,
+0xC1E6,
+0xC1E7,
+0xC1E9,
+0xC1EA,
+0xC1EB,
+0xC1EC,
+0xC1ED,
+0xC1EE,
+0xC1EF,
+0xC1F2,
+0xC1F4,
+0xC1F5,
+0xC1F6,
+0xC1F7,
+0xC1F8,
+0xC1F9,
+0xC1FA,
+0xC1FB,
+0xC1FE,
+0xC1FF,
+0xC201,
+0xC202,
+0xC203,
+0xC205,
+0xC206,
+0xC207,
+0xC208,
+0xC209,
+0xC20A,
+0xC20B,
+0xC20E,
+0xC210,
+0xC212,
+0xC213,
+0xC214,
+0xC215,
+0xC216,
+0xC217,
+0xC21A,
+0xC21B,
+0xC21D,
+0xC21E,
+0xC221,
+0xC222,
+0xC223,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC224,
+0xC225,
+0xC226,
+0xC227,
+0xC22A,
+0xC22C,
+0xC22E,
+0xC230,
+0xC233,
+0xC235,
+0xC236,
+0xC237,
+0xC238,
+0xC239,
+0xC23A,
+0xC23B,
+0xC23C,
+0xC23D,
+0xC23E,
+0xC23F,
+0xC240,
+0xC241,
+0xC242,
+0xC243,
+0xC244,
+0xC245,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC246,
+0xC247,
+0xC249,
+0xC24A,
+0xC24B,
+0xC24C,
+0xC24D,
+0xC24E,
+0xC24F,
+0xC252,
+0xC253,
+0xC255,
+0xC256,
+0xC257,
+0xC259,
+0xC25A,
+0xC25B,
+0xC25C,
+0xC25D,
+0xC25E,
+0xC25F,
+0xC261,
+0xC262,
+0xC263,
+0xC264,
+0xC266,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC267,
+0xC268,
+0xC269,
+0xC26A,
+0xC26B,
+0xC26E,
+0xC26F,
+0xC271,
+0xC272,
+0xC273,
+0xC275,
+0xC276,
+0xC277,
+0xC278,
+0xC279,
+0xC27A,
+0xC27B,
+0xC27E,
+0xC280,
+0xC282,
+0xC283,
+0xC284,
+0xC285,
+0xC286,
+0xC287,
+0xC28A,
+0xC28B,
+0xC28C,
+0xC28D,
+0xC28E,
+0xC28F,
+0xC291,
+0xC292,
+0xC293,
+0xC294,
+0xC295,
+0xC296,
+0xC297,
+0xC299,
+0xC29A,
+0xC29C,
+0xC29E,
+0xC29F,
+0xC2A0,
+0xC2A1,
+0xC2A2,
+0xC2A3,
+0xC2A6,
+0xC2A7,
+0xC2A9,
+0xC2AA,
+0xC2AB,
+0xC2AE,
+0xC2AF,
+0xC2B0,
+0xC2B1,
+0xC2B2,
+0xC2B3,
+0xC2B6,
+0xC2B8,
+0xC2BA,
+0xC2BB,
+0xC2BC,
+0xC2BD,
+0xC2BE,
+0xC2BF,
+0xC2C0,
+0xC2C1,
+0xC2C2,
+0xC2C3,
+0xC2C4,
+0xC2C5,
+0xC2C6,
+0xC2C7,
+0xC2C8,
+0xC2C9,
+0xC2CA,
+0xC2CB,
+0xC2CC,
+0xC2CD,
+0xC2CE,
+0xC2CF,
+0xC2D0,
+0xC2D1,
+0xC2D2,
+0xC2D3,
+0xC2D4,
+0xC2D5,
+0xC2D6,
+0xC2D7,
+0xC2D8,
+0xC2D9,
+0xC2DA,
+0xC2DB,
+0xC2DE,
+0xC2DF,
+0xC2E1,
+0xC2E2,
+0xC2E5,
+0xC2E6,
+0xC2E7,
+0xC2E8,
+0xC2E9,
+0xC2EA,
+0xC2EE,
+0xC2F0,
+0xC2F2,
+0xC2F3,
+0xC2F4,
+0xC2F5,
+0xC2F7,
+0xC2FA,
+0xC2FD,
+0xC2FE,
+0xC2FF,
+0xC301,
+0xC302,
+0xC303,
+0xC304,
+0xC305,
+0xC306,
+0xC307,
+0xC30A,
+0xC30B,
+0xC30E,
+0xC30F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC310,
+0xC311,
+0xC312,
+0xC316,
+0xC317,
+0xC319,
+0xC31A,
+0xC31B,
+0xC31D,
+0xC31E,
+0xC31F,
+0xC320,
+0xC321,
+0xC322,
+0xC323,
+0xC326,
+0xC327,
+0xC32A,
+0xC32B,
+0xC32C,
+0xC32D,
+0xC32E,
+0xC32F,
+0xC330,
+0xC331,
+0xC332,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC333,
+0xC334,
+0xC335,
+0xC336,
+0xC337,
+0xC338,
+0xC339,
+0xC33A,
+0xC33B,
+0xC33C,
+0xC33D,
+0xC33E,
+0xC33F,
+0xC340,
+0xC341,
+0xC342,
+0xC343,
+0xC344,
+0xC346,
+0xC347,
+0xC348,
+0xC349,
+0xC34A,
+0xC34B,
+0xC34C,
+0xC34D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC34E,
+0xC34F,
+0xC350,
+0xC351,
+0xC352,
+0xC353,
+0xC354,
+0xC355,
+0xC356,
+0xC357,
+0xC358,
+0xC359,
+0xC35A,
+0xC35B,
+0xC35C,
+0xC35D,
+0xC35E,
+0xC35F,
+0xC360,
+0xC361,
+0xC362,
+0xC363,
+0xC364,
+0xC365,
+0xC366,
+0xC367,
+0xC36A,
+0xC36B,
+0xC36D,
+0xC36E,
+0xC36F,
+0xC371,
+0xC373,
+0xC374,
+0xC375,
+0xC376,
+0xC377,
+0xC37A,
+0xC37B,
+0xC37E,
+0xC37F,
+0xC380,
+0xC381,
+0xC382,
+0xC383,
+0xC385,
+0xC386,
+0xC387,
+0xC389,
+0xC38A,
+0xC38B,
+0xC38D,
+0xC38E,
+0xC38F,
+0xC390,
+0xC391,
+0xC392,
+0xC393,
+0xC394,
+0xC395,
+0xC396,
+0xC397,
+0xC398,
+0xC399,
+0xC39A,
+0xC39B,
+0xC39C,
+0xC39D,
+0xC39E,
+0xC39F,
+0xC3A0,
+0xC3A1,
+0xC3A2,
+0xC3A3,
+0xC3A4,
+0xC3A5,
+0xC3A6,
+0xC3A7,
+0xC3A8,
+0xC3A9,
+0xC3AA,
+0xC3AB,
+0xC3AC,
+0xC3AD,
+0xC3AE,
+0xC3AF,
+0xC3B0,
+0xC3B1,
+0xC3B2,
+0xC3B3,
+0xC3B4,
+0xC3B5,
+0xC3B6,
+0xC3B7,
+0xC3B8,
+0xC3B9,
+0xC3BA,
+0xC3BB,
+0xC3BC,
+0xC3BD,
+0xC3BE,
+0xC3BF,
+0xC3C1,
+0xC3C2,
+0xC3C3,
+0xC3C4,
+0xC3C5,
+0xC3C6,
+0xC3C7,
+0xC3C8,
+0xC3C9,
+0xC3CA,
+0xC3CB,
+0xC3CC,
+0xC3CD,
+0xC3CE,
+0xC3CF,
+0xC3D0,
+0xC3D1,
+0xC3D2,
+0xC3D3,
+0xC3D4,
+0xC3D5,
+0xC3D6,
+0xC3D7,
+0xC3DA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC3DB,
+0xC3DD,
+0xC3DE,
+0xC3E1,
+0xC3E3,
+0xC3E4,
+0xC3E5,
+0xC3E6,
+0xC3E7,
+0xC3EA,
+0xC3EB,
+0xC3EC,
+0xC3EE,
+0xC3EF,
+0xC3F0,
+0xC3F1,
+0xC3F2,
+0xC3F3,
+0xC3F6,
+0xC3F7,
+0xC3F9,
+0xC3FA,
+0xC3FB,
+0xC3FC,
+0xC3FD,
+0xC3FE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC3FF,
+0xC400,
+0xC401,
+0xC402,
+0xC403,
+0xC404,
+0xC405,
+0xC406,
+0xC407,
+0xC409,
+0xC40A,
+0xC40B,
+0xC40C,
+0xC40D,
+0xC40E,
+0xC40F,
+0xC411,
+0xC412,
+0xC413,
+0xC414,
+0xC415,
+0xC416,
+0xC417,
+0xC418,
+0xC419,
+0xC41A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC41B,
+0xC41C,
+0xC41D,
+0xC41E,
+0xC41F,
+0xC420,
+0xC421,
+0xC422,
+0xC423,
+0xC425,
+0xC426,
+0xC427,
+0xC428,
+0xC429,
+0xC42A,
+0xC42B,
+0xC42D,
+0xC42E,
+0xC42F,
+0xC431,
+0xC432,
+0xC433,
+0xC435,
+0xC436,
+0xC437,
+0xC438,
+0xC439,
+0xC43A,
+0xC43B,
+0xC43E,
+0xC43F,
+0xC440,
+0xC441,
+0xC442,
+0xC443,
+0xC444,
+0xC445,
+0xC446,
+0xC447,
+0xC449,
+0xC44A,
+0xC44B,
+0xC44C,
+0xC44D,
+0xC44E,
+0xC44F,
+0xC450,
+0xC451,
+0xC452,
+0xC453,
+0xC454,
+0xC455,
+0xC456,
+0xC457,
+0xC458,
+0xC459,
+0xC45A,
+0xC45B,
+0xC45C,
+0xC45D,
+0xC45E,
+0xC45F,
+0xC460,
+0xC461,
+0xC462,
+0xC463,
+0xC466,
+0xC467,
+0xC469,
+0xC46A,
+0xC46B,
+0xC46D,
+0xC46E,
+0xC46F,
+0xC470,
+0xC471,
+0xC472,
+0xC473,
+0xC476,
+0xC477,
+0xC478,
+0xC47A,
+0xC47B,
+0xC47C,
+0xC47D,
+0xC47E,
+0xC47F,
+0xC481,
+0xC482,
+0xC483,
+0xC484,
+0xC485,
+0xC486,
+0xC487,
+0xC488,
+0xC489,
+0xC48A,
+0xC48B,
+0xC48C,
+0xC48D,
+0xC48E,
+0xC48F,
+0xC490,
+0xC491,
+0xC492,
+0xC493,
+0xC495,
+0xC496,
+0xC497,
+0xC498,
+0xC499,
+0xC49A,
+0xC49B,
+0xC49D,
+0xC49E,
+0xC49F,
+0xC4A0,
+0xC4A1,
+0xC4A2,
+0xC4A3,
+0xC4A4,
+0xC4A5,
+0xC4A6,
+0xC4A7,
+0xC4A8,
+0xC4A9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC4AA,
+0xC4AB,
+0xC4AC,
+0xC4AD,
+0xC4AE,
+0xC4AF,
+0xC4B0,
+0xC4B1,
+0xC4B2,
+0xC4B3,
+0xC4B4,
+0xC4B5,
+0xC4B6,
+0xC4B7,
+0xC4B9,
+0xC4BA,
+0xC4BB,
+0xC4BD,
+0xC4BE,
+0xC4BF,
+0xC4C0,
+0xC4C1,
+0xC4C2,
+0xC4C3,
+0xC4C4,
+0xC4C5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC4C6,
+0xC4C7,
+0xC4C8,
+0xC4C9,
+0xC4CA,
+0xC4CB,
+0xC4CC,
+0xC4CD,
+0xC4CE,
+0xC4CF,
+0xC4D0,
+0xC4D1,
+0xC4D2,
+0xC4D3,
+0xC4D4,
+0xC4D5,
+0xC4D6,
+0xC4D7,
+0xC4D8,
+0xC4D9,
+0xC4DA,
+0xC4DB,
+0xC4DC,
+0xC4DD,
+0xC4DE,
+0xC4DF,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC4E0,
+0xC4E1,
+0xC4E2,
+0xC4E3,
+0xC4E4,
+0xC4E5,
+0xC4E6,
+0xC4E7,
+0xC4E8,
+0xC4EA,
+0xC4EB,
+0xC4EC,
+0xC4ED,
+0xC4EE,
+0xC4EF,
+0xC4F2,
+0xC4F3,
+0xC4F5,
+0xC4F6,
+0xC4F7,
+0xC4F9,
+0xC4FB,
+0xC4FC,
+0xC4FD,
+0xC4FE,
+0xC502,
+0xC503,
+0xC504,
+0xC505,
+0xC506,
+0xC507,
+0xC508,
+0xC509,
+0xC50A,
+0xC50B,
+0xC50D,
+0xC50E,
+0xC50F,
+0xC511,
+0xC512,
+0xC513,
+0xC515,
+0xC516,
+0xC517,
+0xC518,
+0xC519,
+0xC51A,
+0xC51B,
+0xC51D,
+0xC51E,
+0xC51F,
+0xC520,
+0xC521,
+0xC522,
+0xC523,
+0xC524,
+0xC525,
+0xC526,
+0xC527,
+0xC52A,
+0xC52B,
+0xC52D,
+0xC52E,
+0xC52F,
+0xC531,
+0xC532,
+0xC533,
+0xC534,
+0xC535,
+0xC536,
+0xC537,
+0xC53A,
+0xC53C,
+0xC53E,
+0xC53F,
+0xC540,
+0xC541,
+0xC542,
+0xC543,
+0xC546,
+0xC547,
+0xC54B,
+0xC54F,
+0xC550,
+0xC551,
+0xC552,
+0xC556,
+0xC55A,
+0xC55B,
+0xC55C,
+0xC55F,
+0xC562,
+0xC563,
+0xC565,
+0xC566,
+0xC567,
+0xC569,
+0xC56A,
+0xC56B,
+0xC56C,
+0xC56D,
+0xC56E,
+0xC56F,
+0xC572,
+0xC576,
+0xC577,
+0xC578,
+0xC579,
+0xC57A,
+0xC57B,
+0xC57E,
+0xC57F,
+0xC581,
+0xC582,
+0xC583,
+0xC585,
+0xC586,
+0xC588,
+0xC589,
+0xC58A,
+0xC58B,
+0xC58E,
+0xC590,
+0xC592,
+0xC593,
+0xC594,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC596,
+0xC599,
+0xC59A,
+0xC59B,
+0xC59D,
+0xC59E,
+0xC59F,
+0xC5A1,
+0xC5A2,
+0xC5A3,
+0xC5A4,
+0xC5A5,
+0xC5A6,
+0xC5A7,
+0xC5A8,
+0xC5AA,
+0xC5AB,
+0xC5AC,
+0xC5AD,
+0xC5AE,
+0xC5AF,
+0xC5B0,
+0xC5B1,
+0xC5B2,
+0xC5B3,
+0xC5B6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC5B7,
+0xC5BA,
+0xC5BF,
+0xC5C0,
+0xC5C1,
+0xC5C2,
+0xC5C3,
+0xC5CB,
+0xC5CD,
+0xC5CF,
+0xC5D2,
+0xC5D3,
+0xC5D5,
+0xC5D6,
+0xC5D7,
+0xC5D9,
+0xC5DA,
+0xC5DB,
+0xC5DC,
+0xC5DD,
+0xC5DE,
+0xC5DF,
+0xC5E2,
+0xC5E4,
+0xC5E6,
+0xC5E7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC5E8,
+0xC5E9,
+0xC5EA,
+0xC5EB,
+0xC5EF,
+0xC5F1,
+0xC5F2,
+0xC5F3,
+0xC5F5,
+0xC5F8,
+0xC5F9,
+0xC5FA,
+0xC5FB,
+0xC602,
+0xC603,
+0xC604,
+0xC609,
+0xC60A,
+0xC60B,
+0xC60D,
+0xC60E,
+0xC60F,
+0xC611,
+0xC612,
+0xC613,
+0xC614,
+0xC615,
+0xC616,
+0xC617,
+0xC61A,
+0xC61D,
+0xC61E,
+0xC61F,
+0xC620,
+0xC621,
+0xC622,
+0xC623,
+0xC626,
+0xC627,
+0xC629,
+0xC62A,
+0xC62B,
+0xC62F,
+0xC631,
+0xC632,
+0xC636,
+0xC638,
+0xC63A,
+0xC63C,
+0xC63D,
+0xC63E,
+0xC63F,
+0xC642,
+0xC643,
+0xC645,
+0xC646,
+0xC647,
+0xC649,
+0xC64A,
+0xC64B,
+0xC64C,
+0xC64D,
+0xC64E,
+0xC64F,
+0xC652,
+0xC656,
+0xC657,
+0xC658,
+0xC659,
+0xC65A,
+0xC65B,
+0xC65E,
+0xC65F,
+0xC661,
+0xC662,
+0xC663,
+0xC664,
+0xC665,
+0xC666,
+0xC667,
+0xC668,
+0xC669,
+0xC66A,
+0xC66B,
+0xC66D,
+0xC66E,
+0xC670,
+0xC672,
+0xC673,
+0xC674,
+0xC675,
+0xC676,
+0xC677,
+0xC67A,
+0xC67B,
+0xC67D,
+0xC67E,
+0xC67F,
+0xC681,
+0xC682,
+0xC683,
+0xC684,
+0xC685,
+0xC686,
+0xC687,
+0xC68A,
+0xC68C,
+0xC68E,
+0xC68F,
+0xC690,
+0xC691,
+0xC692,
+0xC693,
+0xC696,
+0xC697,
+0xC699,
+0xC69A,
+0xC69B,
+0xC69D,
+0xC69E,
+0xC69F,
+0xC6A0,
+0xC6A1,
+0xC6A2,
+0xC6A3,
+0xC6A6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC6A8,
+0xC6AA,
+0xC6AB,
+0xC6AC,
+0xC6AD,
+0xC6AE,
+0xC6AF,
+0xC6B2,
+0xC6B3,
+0xC6B5,
+0xC6B6,
+0xC6B7,
+0xC6BB,
+0xC6BC,
+0xC6BD,
+0xC6BE,
+0xC6BF,
+0xC6C2,
+0xC6C4,
+0xC6C6,
+0xC6C7,
+0xC6C8,
+0xC6C9,
+0xC6CA,
+0xC6CB,
+0xC6CE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC6CF,
+0xC6D1,
+0xC6D2,
+0xC6D3,
+0xC6D5,
+0xC6D6,
+0xC6D7,
+0xC6D8,
+0xC6D9,
+0xC6DA,
+0xC6DB,
+0xC6DE,
+0xC6DF,
+0xC6E2,
+0xC6E3,
+0xC6E4,
+0xC6E5,
+0xC6E6,
+0xC6E7,
+0xC6EA,
+0xC6EB,
+0xC6ED,
+0xC6EE,
+0xC6EF,
+0xC6F1,
+0xC6F2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC6F3,
+0xC6F4,
+0xC6F5,
+0xC6F6,
+0xC6F7,
+0xC6FA,
+0xC6FB,
+0xC6FC,
+0xC6FE,
+0xC6FF,
+0xC700,
+0xC701,
+0xC702,
+0xC703,
+0xC706,
+0xC707,
+0xC709,
+0xC70A,
+0xC70B,
+0xC70D,
+0xC70E,
+0xC70F,
+0xC710,
+0xC711,
+0xC712,
+0xC713,
+0xC716,
+0xC718,
+0xC71A,
+0xC71B,
+0xC71C,
+0xC71D,
+0xC71E,
+0xC71F,
+0xC722,
+0xC723,
+0xC725,
+0xC726,
+0xC727,
+0xC729,
+0xC72A,
+0xC72B,
+0xC72C,
+0xC72D,
+0xC72E,
+0xC72F,
+0xC732,
+0xC734,
+0xC736,
+0xC738,
+0xC739,
+0xC73A,
+0xC73B,
+0xC73E,
+0xC73F,
+0xC741,
+0xC742,
+0xC743,
+0xC745,
+0xC746,
+0xC747,
+0xC748,
+0xC749,
+0xC74B,
+0xC74E,
+0xC750,
+0xC759,
+0xC75A,
+0xC75B,
+0xC75D,
+0xC75E,
+0xC75F,
+0xC761,
+0xC762,
+0xC763,
+0xC764,
+0xC765,
+0xC766,
+0xC767,
+0xC769,
+0xC76A,
+0xC76C,
+0xC76D,
+0xC76E,
+0xC76F,
+0xC770,
+0xC771,
+0xC772,
+0xC773,
+0xC776,
+0xC777,
+0xC779,
+0xC77A,
+0xC77B,
+0xC77F,
+0xC780,
+0xC781,
+0xC782,
+0xC786,
+0xC78B,
+0xC78C,
+0xC78D,
+0xC78F,
+0xC792,
+0xC793,
+0xC795,
+0xC799,
+0xC79B,
+0xC79C,
+0xC79D,
+0xC79E,
+0xC79F,
+0xC7A2,
+0xC7A7,
+0xC7A8,
+0xC7A9,
+0xC7AA,
+0xC7AB,
+0xC7AE,
+0xC7AF,
+0xC7B1,
+0xC7B2,
+0xC7B3,
+0xC7B5,
+0xC7B6,
+0xC7B7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC7B8,
+0xC7B9,
+0xC7BA,
+0xC7BB,
+0xC7BE,
+0xC7C2,
+0xC7C3,
+0xC7C4,
+0xC7C5,
+0xC7C6,
+0xC7C7,
+0xC7CA,
+0xC7CB,
+0xC7CD,
+0xC7CF,
+0xC7D1,
+0xC7D2,
+0xC7D3,
+0xC7D4,
+0xC7D5,
+0xC7D6,
+0xC7D7,
+0xC7D9,
+0xC7DA,
+0xC7DB,
+0xC7DC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC7DE,
+0xC7DF,
+0xC7E0,
+0xC7E1,
+0xC7E2,
+0xC7E3,
+0xC7E5,
+0xC7E6,
+0xC7E7,
+0xC7E9,
+0xC7EA,
+0xC7EB,
+0xC7ED,
+0xC7EE,
+0xC7EF,
+0xC7F0,
+0xC7F1,
+0xC7F2,
+0xC7F3,
+0xC7F4,
+0xC7F5,
+0xC7F6,
+0xC7F7,
+0xC7F8,
+0xC7F9,
+0xC7FA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC7FB,
+0xC7FC,
+0xC7FD,
+0xC7FE,
+0xC7FF,
+0xC802,
+0xC803,
+0xC805,
+0xC806,
+0xC807,
+0xC809,
+0xC80B,
+0xC80C,
+0xC80D,
+0xC80E,
+0xC80F,
+0xC812,
+0xC814,
+0xC817,
+0xC818,
+0xC819,
+0xC81A,
+0xC81B,
+0xC81E,
+0xC81F,
+0xC821,
+0xC822,
+0xC823,
+0xC825,
+0xC826,
+0xC827,
+0xC828,
+0xC829,
+0xC82A,
+0xC82B,
+0xC82E,
+0xC830,
+0xC832,
+0xC833,
+0xC834,
+0xC835,
+0xC836,
+0xC837,
+0xC839,
+0xC83A,
+0xC83B,
+0xC83D,
+0xC83E,
+0xC83F,
+0xC841,
+0xC842,
+0xC843,
+0xC844,
+0xC845,
+0xC846,
+0xC847,
+0xC84A,
+0xC84B,
+0xC84E,
+0xC84F,
+0xC850,
+0xC851,
+0xC852,
+0xC853,
+0xC855,
+0xC856,
+0xC857,
+0xC858,
+0xC859,
+0xC85A,
+0xC85B,
+0xC85C,
+0xC85D,
+0xC85E,
+0xC85F,
+0xC860,
+0xC861,
+0xC862,
+0xC863,
+0xC864,
+0xC865,
+0xC866,
+0xC867,
+0xC868,
+0xC869,
+0xC86A,
+0xC86B,
+0xC86C,
+0xC86D,
+0xC86E,
+0xC86F,
+0xC872,
+0xC873,
+0xC875,
+0xC876,
+0xC877,
+0xC879,
+0xC87B,
+0xC87C,
+0xC87D,
+0xC87E,
+0xC87F,
+0xC882,
+0xC884,
+0xC888,
+0xC889,
+0xC88A,
+0xC88E,
+0xC88F,
+0xC890,
+0xC891,
+0xC892,
+0xC893,
+0xC895,
+0xC896,
+0xC897,
+0xC898,
+0xC899,
+0xC89A,
+0xC89B,
+0xC89C,
+0xC89E,
+0xC8A0,
+0xC8A2,
+0xC8A3,
+0xC8A4,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC8A5,
+0xC8A6,
+0xC8A7,
+0xC8A9,
+0xC8AA,
+0xC8AB,
+0xC8AC,
+0xC8AD,
+0xC8AE,
+0xC8AF,
+0xC8B0,
+0xC8B1,
+0xC8B2,
+0xC8B3,
+0xC8B4,
+0xC8B5,
+0xC8B6,
+0xC8B7,
+0xC8B8,
+0xC8B9,
+0xC8BA,
+0xC8BB,
+0xC8BE,
+0xC8BF,
+0xC8C0,
+0xC8C1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC8C2,
+0xC8C3,
+0xC8C5,
+0xC8C6,
+0xC8C7,
+0xC8C9,
+0xC8CA,
+0xC8CB,
+0xC8CD,
+0xC8CE,
+0xC8CF,
+0xC8D0,
+0xC8D1,
+0xC8D2,
+0xC8D3,
+0xC8D6,
+0xC8D8,
+0xC8DA,
+0xC8DB,
+0xC8DC,
+0xC8DD,
+0xC8DE,
+0xC8DF,
+0xC8E2,
+0xC8E3,
+0xC8E5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC8E6,
+0xC8E7,
+0xC8E8,
+0xC8E9,
+0xC8EA,
+0xC8EB,
+0xC8EC,
+0xC8ED,
+0xC8EE,
+0xC8EF,
+0xC8F0,
+0xC8F1,
+0xC8F2,
+0xC8F3,
+0xC8F4,
+0xC8F6,
+0xC8F7,
+0xC8F8,
+0xC8F9,
+0xC8FA,
+0xC8FB,
+0xC8FE,
+0xC8FF,
+0xC901,
+0xC902,
+0xC903,
+0xC907,
+0xC908,
+0xC909,
+0xC90A,
+0xC90B,
+0xC90E,
+0x3000,
+0x3001,
+0x3002,
+0x00B7,
+0x2025,
+0x2026,
+0x00A8,
+0x3003,
+0x00AD,
+0x2015,
+0x2225,
+0xFF3C,
+0x223C,
+0x2018,
+0x2019,
+0x201C,
+0x201D,
+0x3014,
+0x3015,
+0x3008,
+0x3009,
+0x300A,
+0x300B,
+0x300C,
+0x300D,
+0x300E,
+0x300F,
+0x3010,
+0x3011,
+0x00B1,
+0x00D7,
+0x00F7,
+0x2260,
+0x2264,
+0x2265,
+0x221E,
+0x2234,
+0x00B0,
+0x2032,
+0x2033,
+0x2103,
+0x212B,
+0xFFE0,
+0xFFE1,
+0xFFE5,
+0x2642,
+0x2640,
+0x2220,
+0x22A5,
+0x2312,
+0x2202,
+0x2207,
+0x2261,
+0x2252,
+0x00A7,
+0x203B,
+0x2606,
+0x2605,
+0x25CB,
+0x25CF,
+0x25CE,
+0x25C7,
+0x25C6,
+0x25A1,
+0x25A0,
+0x25B3,
+0x25B2,
+0x25BD,
+0x25BC,
+0x2192,
+0x2190,
+0x2191,
+0x2193,
+0x2194,
+0x3013,
+0x226A,
+0x226B,
+0x221A,
+0x223D,
+0x221D,
+0x2235,
+0x222B,
+0x222C,
+0x2208,
+0x220B,
+0x2286,
+0x2287,
+0x2282,
+0x2283,
+0x222A,
+0x2229,
+0x2227,
+0x2228,
+0xFFE2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC910,
+0xC912,
+0xC913,
+0xC914,
+0xC915,
+0xC916,
+0xC917,
+0xC919,
+0xC91A,
+0xC91B,
+0xC91C,
+0xC91D,
+0xC91E,
+0xC91F,
+0xC920,
+0xC921,
+0xC922,
+0xC923,
+0xC924,
+0xC925,
+0xC926,
+0xC927,
+0xC928,
+0xC929,
+0xC92A,
+0xC92B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC92D,
+0xC92E,
+0xC92F,
+0xC930,
+0xC931,
+0xC932,
+0xC933,
+0xC935,
+0xC936,
+0xC937,
+0xC938,
+0xC939,
+0xC93A,
+0xC93B,
+0xC93C,
+0xC93D,
+0xC93E,
+0xC93F,
+0xC940,
+0xC941,
+0xC942,
+0xC943,
+0xC944,
+0xC945,
+0xC946,
+0xC947,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC948,
+0xC949,
+0xC94A,
+0xC94B,
+0xC94C,
+0xC94D,
+0xC94E,
+0xC94F,
+0xC952,
+0xC953,
+0xC955,
+0xC956,
+0xC957,
+0xC959,
+0xC95A,
+0xC95B,
+0xC95C,
+0xC95D,
+0xC95E,
+0xC95F,
+0xC962,
+0xC964,
+0xC965,
+0xC966,
+0xC967,
+0xC968,
+0xC969,
+0xC96A,
+0xC96B,
+0xC96D,
+0xC96E,
+0xC96F,
+0x21D2,
+0x21D4,
+0x2200,
+0x2203,
+0x00B4,
+0xFF5E,
+0x02C7,
+0x02D8,
+0x02DD,
+0x02DA,
+0x02D9,
+0x00B8,
+0x02DB,
+0x00A1,
+0x00BF,
+0x02D0,
+0x222E,
+0x2211,
+0x220F,
+0x00A4,
+0x2109,
+0x2030,
+0x25C1,
+0x25C0,
+0x25B7,
+0x25B6,
+0x2664,
+0x2660,
+0x2661,
+0x2665,
+0x2667,
+0x2663,
+0x2299,
+0x25C8,
+0x25A3,
+0x25D0,
+0x25D1,
+0x2592,
+0x25A4,
+0x25A5,
+0x25A8,
+0x25A7,
+0x25A6,
+0x25A9,
+0x2668,
+0x260F,
+0x260E,
+0x261C,
+0x261E,
+0x00B6,
+0x2020,
+0x2021,
+0x2195,
+0x2197,
+0x2199,
+0x2196,
+0x2198,
+0x266D,
+0x2669,
+0x266A,
+0x266C,
+0x327F,
+0x321C,
+0x2116,
+0x33C7,
+0x2122,
+0x33C2,
+0x33D8,
+0x2121,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC971,
+0xC972,
+0xC973,
+0xC975,
+0xC976,
+0xC977,
+0xC978,
+0xC979,
+0xC97A,
+0xC97B,
+0xC97D,
+0xC97E,
+0xC97F,
+0xC980,
+0xC981,
+0xC982,
+0xC983,
+0xC984,
+0xC985,
+0xC986,
+0xC987,
+0xC98A,
+0xC98B,
+0xC98D,
+0xC98E,
+0xC98F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC991,
+0xC992,
+0xC993,
+0xC994,
+0xC995,
+0xC996,
+0xC997,
+0xC99A,
+0xC99C,
+0xC99E,
+0xC99F,
+0xC9A0,
+0xC9A1,
+0xC9A2,
+0xC9A3,
+0xC9A4,
+0xC9A5,
+0xC9A6,
+0xC9A7,
+0xC9A8,
+0xC9A9,
+0xC9AA,
+0xC9AB,
+0xC9AC,
+0xC9AD,
+0xC9AE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC9AF,
+0xC9B0,
+0xC9B1,
+0xC9B2,
+0xC9B3,
+0xC9B4,
+0xC9B5,
+0xC9B6,
+0xC9B7,
+0xC9B8,
+0xC9B9,
+0xC9BA,
+0xC9BB,
+0xC9BC,
+0xC9BD,
+0xC9BE,
+0xC9BF,
+0xC9C2,
+0xC9C3,
+0xC9C5,
+0xC9C6,
+0xC9C9,
+0xC9CB,
+0xC9CC,
+0xC9CD,
+0xC9CE,
+0xC9CF,
+0xC9D2,
+0xC9D4,
+0xC9D7,
+0xC9D8,
+0xC9DB,
+0xFF01,
+0xFF02,
+0xFF03,
+0xFF04,
+0xFF05,
+0xFF06,
+0xFF07,
+0xFF08,
+0xFF09,
+0xFF0A,
+0xFF0B,
+0xFF0C,
+0xFF0D,
+0xFF0E,
+0xFF0F,
+0xFF10,
+0xFF11,
+0xFF12,
+0xFF13,
+0xFF14,
+0xFF15,
+0xFF16,
+0xFF17,
+0xFF18,
+0xFF19,
+0xFF1A,
+0xFF1B,
+0xFF1C,
+0xFF1D,
+0xFF1E,
+0xFF1F,
+0xFF20,
+0xFF21,
+0xFF22,
+0xFF23,
+0xFF24,
+0xFF25,
+0xFF26,
+0xFF27,
+0xFF28,
+0xFF29,
+0xFF2A,
+0xFF2B,
+0xFF2C,
+0xFF2D,
+0xFF2E,
+0xFF2F,
+0xFF30,
+0xFF31,
+0xFF32,
+0xFF33,
+0xFF34,
+0xFF35,
+0xFF36,
+0xFF37,
+0xFF38,
+0xFF39,
+0xFF3A,
+0xFF3B,
+0xFFE6,
+0xFF3D,
+0xFF3E,
+0xFF3F,
+0xFF40,
+0xFF41,
+0xFF42,
+0xFF43,
+0xFF44,
+0xFF45,
+0xFF46,
+0xFF47,
+0xFF48,
+0xFF49,
+0xFF4A,
+0xFF4B,
+0xFF4C,
+0xFF4D,
+0xFF4E,
+0xFF4F,
+0xFF50,
+0xFF51,
+0xFF52,
+0xFF53,
+0xFF54,
+0xFF55,
+0xFF56,
+0xFF57,
+0xFF58,
+0xFF59,
+0xFF5A,
+0xFF5B,
+0xFF5C,
+0xFF5D,
+0xFFE3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xC9DE,
+0xC9DF,
+0xC9E1,
+0xC9E3,
+0xC9E5,
+0xC9E6,
+0xC9E8,
+0xC9E9,
+0xC9EA,
+0xC9EB,
+0xC9EE,
+0xC9F2,
+0xC9F3,
+0xC9F4,
+0xC9F5,
+0xC9F6,
+0xC9F7,
+0xC9FA,
+0xC9FB,
+0xC9FD,
+0xC9FE,
+0xC9FF,
+0xCA01,
+0xCA02,
+0xCA03,
+0xCA04,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCA05,
+0xCA06,
+0xCA07,
+0xCA0A,
+0xCA0E,
+0xCA0F,
+0xCA10,
+0xCA11,
+0xCA12,
+0xCA13,
+0xCA15,
+0xCA16,
+0xCA17,
+0xCA19,
+0xCA1A,
+0xCA1B,
+0xCA1C,
+0xCA1D,
+0xCA1E,
+0xCA1F,
+0xCA20,
+0xCA21,
+0xCA22,
+0xCA23,
+0xCA24,
+0xCA25,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCA26,
+0xCA27,
+0xCA28,
+0xCA2A,
+0xCA2B,
+0xCA2C,
+0xCA2D,
+0xCA2E,
+0xCA2F,
+0xCA30,
+0xCA31,
+0xCA32,
+0xCA33,
+0xCA34,
+0xCA35,
+0xCA36,
+0xCA37,
+0xCA38,
+0xCA39,
+0xCA3A,
+0xCA3B,
+0xCA3C,
+0xCA3D,
+0xCA3E,
+0xCA3F,
+0xCA40,
+0xCA41,
+0xCA42,
+0xCA43,
+0xCA44,
+0xCA45,
+0xCA46,
+0x3131,
+0x3132,
+0x3133,
+0x3134,
+0x3135,
+0x3136,
+0x3137,
+0x3138,
+0x3139,
+0x313A,
+0x313B,
+0x313C,
+0x313D,
+0x313E,
+0x313F,
+0x3140,
+0x3141,
+0x3142,
+0x3143,
+0x3144,
+0x3145,
+0x3146,
+0x3147,
+0x3148,
+0x3149,
+0x314A,
+0x314B,
+0x314C,
+0x314D,
+0x314E,
+0x314F,
+0x3150,
+0x3151,
+0x3152,
+0x3153,
+0x3154,
+0x3155,
+0x3156,
+0x3157,
+0x3158,
+0x3159,
+0x315A,
+0x315B,
+0x315C,
+0x315D,
+0x315E,
+0x315F,
+0x3160,
+0x3161,
+0x3162,
+0x3163,
+0x3164,
+0x3165,
+0x3166,
+0x3167,
+0x3168,
+0x3169,
+0x316A,
+0x316B,
+0x316C,
+0x316D,
+0x316E,
+0x316F,
+0x3170,
+0x3171,
+0x3172,
+0x3173,
+0x3174,
+0x3175,
+0x3176,
+0x3177,
+0x3178,
+0x3179,
+0x317A,
+0x317B,
+0x317C,
+0x317D,
+0x317E,
+0x317F,
+0x3180,
+0x3181,
+0x3182,
+0x3183,
+0x3184,
+0x3185,
+0x3186,
+0x3187,
+0x3188,
+0x3189,
+0x318A,
+0x318B,
+0x318C,
+0x318D,
+0x318E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCA47,
+0xCA48,
+0xCA49,
+0xCA4A,
+0xCA4B,
+0xCA4E,
+0xCA4F,
+0xCA51,
+0xCA52,
+0xCA53,
+0xCA55,
+0xCA56,
+0xCA57,
+0xCA58,
+0xCA59,
+0xCA5A,
+0xCA5B,
+0xCA5E,
+0xCA62,
+0xCA63,
+0xCA64,
+0xCA65,
+0xCA66,
+0xCA67,
+0xCA69,
+0xCA6A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCA6B,
+0xCA6C,
+0xCA6D,
+0xCA6E,
+0xCA6F,
+0xCA70,
+0xCA71,
+0xCA72,
+0xCA73,
+0xCA74,
+0xCA75,
+0xCA76,
+0xCA77,
+0xCA78,
+0xCA79,
+0xCA7A,
+0xCA7B,
+0xCA7C,
+0xCA7E,
+0xCA7F,
+0xCA80,
+0xCA81,
+0xCA82,
+0xCA83,
+0xCA85,
+0xCA86,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCA87,
+0xCA88,
+0xCA89,
+0xCA8A,
+0xCA8B,
+0xCA8C,
+0xCA8D,
+0xCA8E,
+0xCA8F,
+0xCA90,
+0xCA91,
+0xCA92,
+0xCA93,
+0xCA94,
+0xCA95,
+0xCA96,
+0xCA97,
+0xCA99,
+0xCA9A,
+0xCA9B,
+0xCA9C,
+0xCA9D,
+0xCA9E,
+0xCA9F,
+0xCAA0,
+0xCAA1,
+0xCAA2,
+0xCAA3,
+0xCAA4,
+0xCAA5,
+0xCAA6,
+0xCAA7,
+0x2170,
+0x2171,
+0x2172,
+0x2173,
+0x2174,
+0x2175,
+0x2176,
+0x2177,
+0x2178,
+0x2179,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x2160,
+0x2161,
+0x2162,
+0x2163,
+0x2164,
+0x2165,
+0x2166,
+0x2167,
+0x2168,
+0x2169,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0391,
+0x0392,
+0x0393,
+0x0394,
+0x0395,
+0x0396,
+0x0397,
+0x0398,
+0x0399,
+0x039A,
+0x039B,
+0x039C,
+0x039D,
+0x039E,
+0x039F,
+0x03A0,
+0x03A1,
+0x03A3,
+0x03A4,
+0x03A5,
+0x03A6,
+0x03A7,
+0x03A8,
+0x03A9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x03B1,
+0x03B2,
+0x03B3,
+0x03B4,
+0x03B5,
+0x03B6,
+0x03B7,
+0x03B8,
+0x03B9,
+0x03BA,
+0x03BB,
+0x03BC,
+0x03BD,
+0x03BE,
+0x03BF,
+0x03C0,
+0x03C1,
+0x03C3,
+0x03C4,
+0x03C5,
+0x03C6,
+0x03C7,
+0x03C8,
+0x03C9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCAA8,
+0xCAA9,
+0xCAAA,
+0xCAAB,
+0xCAAC,
+0xCAAD,
+0xCAAE,
+0xCAAF,
+0xCAB0,
+0xCAB1,
+0xCAB2,
+0xCAB3,
+0xCAB4,
+0xCAB5,
+0xCAB6,
+0xCAB7,
+0xCAB8,
+0xCAB9,
+0xCABA,
+0xCABB,
+0xCABE,
+0xCABF,
+0xCAC1,
+0xCAC2,
+0xCAC3,
+0xCAC5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCAC6,
+0xCAC7,
+0xCAC8,
+0xCAC9,
+0xCACA,
+0xCACB,
+0xCACE,
+0xCAD0,
+0xCAD2,
+0xCAD4,
+0xCAD5,
+0xCAD6,
+0xCAD7,
+0xCADA,
+0xCADB,
+0xCADC,
+0xCADD,
+0xCADE,
+0xCADF,
+0xCAE1,
+0xCAE2,
+0xCAE3,
+0xCAE4,
+0xCAE5,
+0xCAE6,
+0xCAE7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCAE8,
+0xCAE9,
+0xCAEA,
+0xCAEB,
+0xCAED,
+0xCAEE,
+0xCAEF,
+0xCAF0,
+0xCAF1,
+0xCAF2,
+0xCAF3,
+0xCAF5,
+0xCAF6,
+0xCAF7,
+0xCAF8,
+0xCAF9,
+0xCAFA,
+0xCAFB,
+0xCAFC,
+0xCAFD,
+0xCAFE,
+0xCAFF,
+0xCB00,
+0xCB01,
+0xCB02,
+0xCB03,
+0xCB04,
+0xCB05,
+0xCB06,
+0xCB07,
+0xCB09,
+0xCB0A,
+0x2500,
+0x2502,
+0x250C,
+0x2510,
+0x2518,
+0x2514,
+0x251C,
+0x252C,
+0x2524,
+0x2534,
+0x253C,
+0x2501,
+0x2503,
+0x250F,
+0x2513,
+0x251B,
+0x2517,
+0x2523,
+0x2533,
+0x252B,
+0x253B,
+0x254B,
+0x2520,
+0x252F,
+0x2528,
+0x2537,
+0x253F,
+0x251D,
+0x2530,
+0x2525,
+0x2538,
+0x2542,
+0x2512,
+0x2511,
+0x251A,
+0x2519,
+0x2516,
+0x2515,
+0x250E,
+0x250D,
+0x251E,
+0x251F,
+0x2521,
+0x2522,
+0x2526,
+0x2527,
+0x2529,
+0x252A,
+0x252D,
+0x252E,
+0x2531,
+0x2532,
+0x2535,
+0x2536,
+0x2539,
+0x253A,
+0x253D,
+0x253E,
+0x2540,
+0x2541,
+0x2543,
+0x2544,
+0x2545,
+0x2546,
+0x2547,
+0x2548,
+0x2549,
+0x254A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCB0B,
+0xCB0C,
+0xCB0D,
+0xCB0E,
+0xCB0F,
+0xCB11,
+0xCB12,
+0xCB13,
+0xCB15,
+0xCB16,
+0xCB17,
+0xCB19,
+0xCB1A,
+0xCB1B,
+0xCB1C,
+0xCB1D,
+0xCB1E,
+0xCB1F,
+0xCB22,
+0xCB23,
+0xCB24,
+0xCB25,
+0xCB26,
+0xCB27,
+0xCB28,
+0xCB29,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCB2A,
+0xCB2B,
+0xCB2C,
+0xCB2D,
+0xCB2E,
+0xCB2F,
+0xCB30,
+0xCB31,
+0xCB32,
+0xCB33,
+0xCB34,
+0xCB35,
+0xCB36,
+0xCB37,
+0xCB38,
+0xCB39,
+0xCB3A,
+0xCB3B,
+0xCB3C,
+0xCB3D,
+0xCB3E,
+0xCB3F,
+0xCB40,
+0xCB42,
+0xCB43,
+0xCB44,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCB45,
+0xCB46,
+0xCB47,
+0xCB4A,
+0xCB4B,
+0xCB4D,
+0xCB4E,
+0xCB4F,
+0xCB51,
+0xCB52,
+0xCB53,
+0xCB54,
+0xCB55,
+0xCB56,
+0xCB57,
+0xCB5A,
+0xCB5B,
+0xCB5C,
+0xCB5E,
+0xCB5F,
+0xCB60,
+0xCB61,
+0xCB62,
+0xCB63,
+0xCB65,
+0xCB66,
+0xCB67,
+0xCB68,
+0xCB69,
+0xCB6A,
+0xCB6B,
+0xCB6C,
+0x3395,
+0x3396,
+0x3397,
+0x2113,
+0x3398,
+0x33C4,
+0x33A3,
+0x33A4,
+0x33A5,
+0x33A6,
+0x3399,
+0x339A,
+0x339B,
+0x339C,
+0x339D,
+0x339E,
+0x339F,
+0x33A0,
+0x33A1,
+0x33A2,
+0x33CA,
+0x338D,
+0x338E,
+0x338F,
+0x33CF,
+0x3388,
+0x3389,
+0x33C8,
+0x33A7,
+0x33A8,
+0x33B0,
+0x33B1,
+0x33B2,
+0x33B3,
+0x33B4,
+0x33B5,
+0x33B6,
+0x33B7,
+0x33B8,
+0x33B9,
+0x3380,
+0x3381,
+0x3382,
+0x3383,
+0x3384,
+0x33BA,
+0x33BB,
+0x33BC,
+0x33BD,
+0x33BE,
+0x33BF,
+0x3390,
+0x3391,
+0x3392,
+0x3393,
+0x3394,
+0x2126,
+0x33C0,
+0x33C1,
+0x338A,
+0x338B,
+0x338C,
+0x33D6,
+0x33C5,
+0x33AD,
+0x33AE,
+0x33AF,
+0x33DB,
+0x33A9,
+0x33AA,
+0x33AB,
+0x33AC,
+0x33DD,
+0x33D0,
+0x33D3,
+0x33C3,
+0x33C9,
+0x33DC,
+0x33C6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCB6D,
+0xCB6E,
+0xCB6F,
+0xCB70,
+0xCB71,
+0xCB72,
+0xCB73,
+0xCB74,
+0xCB75,
+0xCB76,
+0xCB77,
+0xCB7A,
+0xCB7B,
+0xCB7C,
+0xCB7D,
+0xCB7E,
+0xCB7F,
+0xCB80,
+0xCB81,
+0xCB82,
+0xCB83,
+0xCB84,
+0xCB85,
+0xCB86,
+0xCB87,
+0xCB88,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCB89,
+0xCB8A,
+0xCB8B,
+0xCB8C,
+0xCB8D,
+0xCB8E,
+0xCB8F,
+0xCB90,
+0xCB91,
+0xCB92,
+0xCB93,
+0xCB94,
+0xCB95,
+0xCB96,
+0xCB97,
+0xCB98,
+0xCB99,
+0xCB9A,
+0xCB9B,
+0xCB9D,
+0xCB9E,
+0xCB9F,
+0xCBA0,
+0xCBA1,
+0xCBA2,
+0xCBA3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCBA4,
+0xCBA5,
+0xCBA6,
+0xCBA7,
+0xCBA8,
+0xCBA9,
+0xCBAA,
+0xCBAB,
+0xCBAC,
+0xCBAD,
+0xCBAE,
+0xCBAF,
+0xCBB0,
+0xCBB1,
+0xCBB2,
+0xCBB3,
+0xCBB4,
+0xCBB5,
+0xCBB6,
+0xCBB7,
+0xCBB9,
+0xCBBA,
+0xCBBB,
+0xCBBC,
+0xCBBD,
+0xCBBE,
+0xCBBF,
+0xCBC0,
+0xCBC1,
+0xCBC2,
+0xCBC3,
+0xCBC4,
+0x00C6,
+0x00D0,
+0x00AA,
+0x0126,
+0xFFFD,
+0x0132,
+0xFFFD,
+0x013F,
+0x0141,
+0x00D8,
+0x0152,
+0x00BA,
+0x00DE,
+0x0166,
+0x014A,
+0xFFFD,
+0x3260,
+0x3261,
+0x3262,
+0x3263,
+0x3264,
+0x3265,
+0x3266,
+0x3267,
+0x3268,
+0x3269,
+0x326A,
+0x326B,
+0x326C,
+0x326D,
+0x326E,
+0x326F,
+0x3270,
+0x3271,
+0x3272,
+0x3273,
+0x3274,
+0x3275,
+0x3276,
+0x3277,
+0x3278,
+0x3279,
+0x327A,
+0x327B,
+0x24D0,
+0x24D1,
+0x24D2,
+0x24D3,
+0x24D4,
+0x24D5,
+0x24D6,
+0x24D7,
+0x24D8,
+0x24D9,
+0x24DA,
+0x24DB,
+0x24DC,
+0x24DD,
+0x24DE,
+0x24DF,
+0x24E0,
+0x24E1,
+0x24E2,
+0x24E3,
+0x24E4,
+0x24E5,
+0x24E6,
+0x24E7,
+0x24E8,
+0x24E9,
+0x2460,
+0x2461,
+0x2462,
+0x2463,
+0x2464,
+0x2465,
+0x2466,
+0x2467,
+0x2468,
+0x2469,
+0x246A,
+0x246B,
+0x246C,
+0x246D,
+0x246E,
+0x00BD,
+0x2153,
+0x2154,
+0x00BC,
+0x00BE,
+0x215B,
+0x215C,
+0x215D,
+0x215E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCBC5,
+0xCBC6,
+0xCBC7,
+0xCBC8,
+0xCBC9,
+0xCBCA,
+0xCBCB,
+0xCBCC,
+0xCBCD,
+0xCBCE,
+0xCBCF,
+0xCBD0,
+0xCBD1,
+0xCBD2,
+0xCBD3,
+0xCBD5,
+0xCBD6,
+0xCBD7,
+0xCBD8,
+0xCBD9,
+0xCBDA,
+0xCBDB,
+0xCBDC,
+0xCBDD,
+0xCBDE,
+0xCBDF,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCBE0,
+0xCBE1,
+0xCBE2,
+0xCBE3,
+0xCBE5,
+0xCBE6,
+0xCBE8,
+0xCBEA,
+0xCBEB,
+0xCBEC,
+0xCBED,
+0xCBEE,
+0xCBEF,
+0xCBF0,
+0xCBF1,
+0xCBF2,
+0xCBF3,
+0xCBF4,
+0xCBF5,
+0xCBF6,
+0xCBF7,
+0xCBF8,
+0xCBF9,
+0xCBFA,
+0xCBFB,
+0xCBFC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCBFD,
+0xCBFE,
+0xCBFF,
+0xCC00,
+0xCC01,
+0xCC02,
+0xCC03,
+0xCC04,
+0xCC05,
+0xCC06,
+0xCC07,
+0xCC08,
+0xCC09,
+0xCC0A,
+0xCC0B,
+0xCC0E,
+0xCC0F,
+0xCC11,
+0xCC12,
+0xCC13,
+0xCC15,
+0xCC16,
+0xCC17,
+0xCC18,
+0xCC19,
+0xCC1A,
+0xCC1B,
+0xCC1E,
+0xCC1F,
+0xCC20,
+0xCC23,
+0xCC24,
+0x00E6,
+0x0111,
+0x00F0,
+0x0127,
+0x0131,
+0x0133,
+0x0138,
+0x0140,
+0x0142,
+0x00F8,
+0x0153,
+0x00DF,
+0x00FE,
+0x0167,
+0x014B,
+0x0149,
+0x3200,
+0x3201,
+0x3202,
+0x3203,
+0x3204,
+0x3205,
+0x3206,
+0x3207,
+0x3208,
+0x3209,
+0x320A,
+0x320B,
+0x320C,
+0x320D,
+0x320E,
+0x320F,
+0x3210,
+0x3211,
+0x3212,
+0x3213,
+0x3214,
+0x3215,
+0x3216,
+0x3217,
+0x3218,
+0x3219,
+0x321A,
+0x321B,
+0x249C,
+0x249D,
+0x249E,
+0x249F,
+0x24A0,
+0x24A1,
+0x24A2,
+0x24A3,
+0x24A4,
+0x24A5,
+0x24A6,
+0x24A7,
+0x24A8,
+0x24A9,
+0x24AA,
+0x24AB,
+0x24AC,
+0x24AD,
+0x24AE,
+0x24AF,
+0x24B0,
+0x24B1,
+0x24B2,
+0x24B3,
+0x24B4,
+0x24B5,
+0x2474,
+0x2475,
+0x2476,
+0x2477,
+0x2478,
+0x2479,
+0x247A,
+0x247B,
+0x247C,
+0x247D,
+0x247E,
+0x247F,
+0x2480,
+0x2481,
+0x2482,
+0x00B9,
+0x00B2,
+0x00B3,
+0x2074,
+0x207F,
+0x2081,
+0x2082,
+0x2083,
+0x2084,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCC25,
+0xCC26,
+0xCC2A,
+0xCC2B,
+0xCC2D,
+0xCC2F,
+0xCC31,
+0xCC32,
+0xCC33,
+0xCC34,
+0xCC35,
+0xCC36,
+0xCC37,
+0xCC3A,
+0xCC3F,
+0xCC40,
+0xCC41,
+0xCC42,
+0xCC43,
+0xCC46,
+0xCC47,
+0xCC49,
+0xCC4A,
+0xCC4B,
+0xCC4D,
+0xCC4E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCC4F,
+0xCC50,
+0xCC51,
+0xCC52,
+0xCC53,
+0xCC56,
+0xCC5A,
+0xCC5B,
+0xCC5C,
+0xCC5D,
+0xCC5E,
+0xCC5F,
+0xCC61,
+0xCC62,
+0xCC63,
+0xCC65,
+0xCC67,
+0xCC69,
+0xCC6A,
+0xCC6B,
+0xCC6C,
+0xCC6D,
+0xCC6E,
+0xCC6F,
+0xCC71,
+0xCC72,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCC73,
+0xCC74,
+0xCC76,
+0xCC77,
+0xCC78,
+0xCC79,
+0xCC7A,
+0xCC7B,
+0xCC7C,
+0xCC7D,
+0xCC7E,
+0xCC7F,
+0xCC80,
+0xCC81,
+0xCC82,
+0xCC83,
+0xCC84,
+0xCC85,
+0xCC86,
+0xCC87,
+0xCC88,
+0xCC89,
+0xCC8A,
+0xCC8B,
+0xCC8C,
+0xCC8D,
+0xCC8E,
+0xCC8F,
+0xCC90,
+0xCC91,
+0xCC92,
+0xCC93,
+0x3041,
+0x3042,
+0x3043,
+0x3044,
+0x3045,
+0x3046,
+0x3047,
+0x3048,
+0x3049,
+0x304A,
+0x304B,
+0x304C,
+0x304D,
+0x304E,
+0x304F,
+0x3050,
+0x3051,
+0x3052,
+0x3053,
+0x3054,
+0x3055,
+0x3056,
+0x3057,
+0x3058,
+0x3059,
+0x305A,
+0x305B,
+0x305C,
+0x305D,
+0x305E,
+0x305F,
+0x3060,
+0x3061,
+0x3062,
+0x3063,
+0x3064,
+0x3065,
+0x3066,
+0x3067,
+0x3068,
+0x3069,
+0x306A,
+0x306B,
+0x306C,
+0x306D,
+0x306E,
+0x306F,
+0x3070,
+0x3071,
+0x3072,
+0x3073,
+0x3074,
+0x3075,
+0x3076,
+0x3077,
+0x3078,
+0x3079,
+0x307A,
+0x307B,
+0x307C,
+0x307D,
+0x307E,
+0x307F,
+0x3080,
+0x3081,
+0x3082,
+0x3083,
+0x3084,
+0x3085,
+0x3086,
+0x3087,
+0x3088,
+0x3089,
+0x308A,
+0x308B,
+0x308C,
+0x308D,
+0x308E,
+0x308F,
+0x3090,
+0x3091,
+0x3092,
+0x3093,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCC94,
+0xCC95,
+0xCC96,
+0xCC97,
+0xCC9A,
+0xCC9B,
+0xCC9D,
+0xCC9E,
+0xCC9F,
+0xCCA1,
+0xCCA2,
+0xCCA3,
+0xCCA4,
+0xCCA5,
+0xCCA6,
+0xCCA7,
+0xCCAA,
+0xCCAE,
+0xCCAF,
+0xCCB0,
+0xCCB1,
+0xCCB2,
+0xCCB3,
+0xCCB6,
+0xCCB7,
+0xCCB9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCCBA,
+0xCCBB,
+0xCCBD,
+0xCCBE,
+0xCCBF,
+0xCCC0,
+0xCCC1,
+0xCCC2,
+0xCCC3,
+0xCCC6,
+0xCCC8,
+0xCCCA,
+0xCCCB,
+0xCCCC,
+0xCCCD,
+0xCCCE,
+0xCCCF,
+0xCCD1,
+0xCCD2,
+0xCCD3,
+0xCCD5,
+0xCCD6,
+0xCCD7,
+0xCCD8,
+0xCCD9,
+0xCCDA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCCDB,
+0xCCDC,
+0xCCDD,
+0xCCDE,
+0xCCDF,
+0xCCE0,
+0xCCE1,
+0xCCE2,
+0xCCE3,
+0xCCE5,
+0xCCE6,
+0xCCE7,
+0xCCE8,
+0xCCE9,
+0xCCEA,
+0xCCEB,
+0xCCED,
+0xCCEE,
+0xCCEF,
+0xCCF1,
+0xCCF2,
+0xCCF3,
+0xCCF4,
+0xCCF5,
+0xCCF6,
+0xCCF7,
+0xCCF8,
+0xCCF9,
+0xCCFA,
+0xCCFB,
+0xCCFC,
+0xCCFD,
+0x30A1,
+0x30A2,
+0x30A3,
+0x30A4,
+0x30A5,
+0x30A6,
+0x30A7,
+0x30A8,
+0x30A9,
+0x30AA,
+0x30AB,
+0x30AC,
+0x30AD,
+0x30AE,
+0x30AF,
+0x30B0,
+0x30B1,
+0x30B2,
+0x30B3,
+0x30B4,
+0x30B5,
+0x30B6,
+0x30B7,
+0x30B8,
+0x30B9,
+0x30BA,
+0x30BB,
+0x30BC,
+0x30BD,
+0x30BE,
+0x30BF,
+0x30C0,
+0x30C1,
+0x30C2,
+0x30C3,
+0x30C4,
+0x30C5,
+0x30C6,
+0x30C7,
+0x30C8,
+0x30C9,
+0x30CA,
+0x30CB,
+0x30CC,
+0x30CD,
+0x30CE,
+0x30CF,
+0x30D0,
+0x30D1,
+0x30D2,
+0x30D3,
+0x30D4,
+0x30D5,
+0x30D6,
+0x30D7,
+0x30D8,
+0x30D9,
+0x30DA,
+0x30DB,
+0x30DC,
+0x30DD,
+0x30DE,
+0x30DF,
+0x30E0,
+0x30E1,
+0x30E2,
+0x30E3,
+0x30E4,
+0x30E5,
+0x30E6,
+0x30E7,
+0x30E8,
+0x30E9,
+0x30EA,
+0x30EB,
+0x30EC,
+0x30ED,
+0x30EE,
+0x30EF,
+0x30F0,
+0x30F1,
+0x30F2,
+0x30F3,
+0x30F4,
+0x30F5,
+0x30F6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCCFE,
+0xCCFF,
+0xCD00,
+0xCD02,
+0xCD03,
+0xCD04,
+0xCD05,
+0xCD06,
+0xCD07,
+0xCD0A,
+0xCD0B,
+0xCD0D,
+0xCD0E,
+0xCD0F,
+0xCD11,
+0xCD12,
+0xCD13,
+0xCD14,
+0xCD15,
+0xCD16,
+0xCD17,
+0xCD1A,
+0xCD1C,
+0xCD1E,
+0xCD1F,
+0xCD20,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCD21,
+0xCD22,
+0xCD23,
+0xCD25,
+0xCD26,
+0xCD27,
+0xCD29,
+0xCD2A,
+0xCD2B,
+0xCD2D,
+0xCD2E,
+0xCD2F,
+0xCD30,
+0xCD31,
+0xCD32,
+0xCD33,
+0xCD34,
+0xCD35,
+0xCD36,
+0xCD37,
+0xCD38,
+0xCD3A,
+0xCD3B,
+0xCD3C,
+0xCD3D,
+0xCD3E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCD3F,
+0xCD40,
+0xCD41,
+0xCD42,
+0xCD43,
+0xCD44,
+0xCD45,
+0xCD46,
+0xCD47,
+0xCD48,
+0xCD49,
+0xCD4A,
+0xCD4B,
+0xCD4C,
+0xCD4D,
+0xCD4E,
+0xCD4F,
+0xCD50,
+0xCD51,
+0xCD52,
+0xCD53,
+0xCD54,
+0xCD55,
+0xCD56,
+0xCD57,
+0xCD58,
+0xCD59,
+0xCD5A,
+0xCD5B,
+0xCD5D,
+0xCD5E,
+0xCD5F,
+0x0410,
+0x0411,
+0x0412,
+0x0413,
+0x0414,
+0x0415,
+0x0401,
+0x0416,
+0x0417,
+0x0418,
+0x0419,
+0x041A,
+0x041B,
+0x041C,
+0x041D,
+0x041E,
+0x041F,
+0x0420,
+0x0421,
+0x0422,
+0x0423,
+0x0424,
+0x0425,
+0x0426,
+0x0427,
+0x0428,
+0x0429,
+0x042A,
+0x042B,
+0x042C,
+0x042D,
+0x042E,
+0x042F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x0430,
+0x0431,
+0x0432,
+0x0433,
+0x0434,
+0x0435,
+0x0451,
+0x0436,
+0x0437,
+0x0438,
+0x0439,
+0x043A,
+0x043B,
+0x043C,
+0x043D,
+0x043E,
+0x043F,
+0x0440,
+0x0441,
+0x0442,
+0x0443,
+0x0444,
+0x0445,
+0x0446,
+0x0447,
+0x0448,
+0x0449,
+0x044A,
+0x044B,
+0x044C,
+0x044D,
+0x044E,
+0x044F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCD61,
+0xCD62,
+0xCD63,
+0xCD65,
+0xCD66,
+0xCD67,
+0xCD68,
+0xCD69,
+0xCD6A,
+0xCD6B,
+0xCD6E,
+0xCD70,
+0xCD72,
+0xCD73,
+0xCD74,
+0xCD75,
+0xCD76,
+0xCD77,
+0xCD79,
+0xCD7A,
+0xCD7B,
+0xCD7C,
+0xCD7D,
+0xCD7E,
+0xCD7F,
+0xCD80,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCD81,
+0xCD82,
+0xCD83,
+0xCD84,
+0xCD85,
+0xCD86,
+0xCD87,
+0xCD89,
+0xCD8A,
+0xCD8B,
+0xCD8C,
+0xCD8D,
+0xCD8E,
+0xCD8F,
+0xCD90,
+0xCD91,
+0xCD92,
+0xCD93,
+0xCD96,
+0xCD97,
+0xCD99,
+0xCD9A,
+0xCD9B,
+0xCD9D,
+0xCD9E,
+0xCD9F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCDA0,
+0xCDA1,
+0xCDA2,
+0xCDA3,
+0xCDA6,
+0xCDA8,
+0xCDAA,
+0xCDAB,
+0xCDAC,
+0xCDAD,
+0xCDAE,
+0xCDAF,
+0xCDB1,
+0xCDB2,
+0xCDB3,
+0xCDB4,
+0xCDB5,
+0xCDB6,
+0xCDB7,
+0xCDB8,
+0xCDB9,
+0xCDBA,
+0xCDBB,
+0xCDBC,
+0xCDBD,
+0xCDBE,
+0xCDBF,
+0xCDC0,
+0xCDC1,
+0xCDC2,
+0xCDC3,
+0xCDC5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCDC6,
+0xCDC7,
+0xCDC8,
+0xCDC9,
+0xCDCA,
+0xCDCB,
+0xCDCD,
+0xCDCE,
+0xCDCF,
+0xCDD1,
+0xCDD2,
+0xCDD3,
+0xCDD4,
+0xCDD5,
+0xCDD6,
+0xCDD7,
+0xCDD8,
+0xCDD9,
+0xCDDA,
+0xCDDB,
+0xCDDC,
+0xCDDD,
+0xCDDE,
+0xCDDF,
+0xCDE0,
+0xCDE1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCDE2,
+0xCDE3,
+0xCDE4,
+0xCDE5,
+0xCDE6,
+0xCDE7,
+0xCDE9,
+0xCDEA,
+0xCDEB,
+0xCDED,
+0xCDEE,
+0xCDEF,
+0xCDF1,
+0xCDF2,
+0xCDF3,
+0xCDF4,
+0xCDF5,
+0xCDF6,
+0xCDF7,
+0xCDFA,
+0xCDFC,
+0xCDFE,
+0xCDFF,
+0xCE00,
+0xCE01,
+0xCE02,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCE03,
+0xCE05,
+0xCE06,
+0xCE07,
+0xCE09,
+0xCE0A,
+0xCE0B,
+0xCE0D,
+0xCE0E,
+0xCE0F,
+0xCE10,
+0xCE11,
+0xCE12,
+0xCE13,
+0xCE15,
+0xCE16,
+0xCE17,
+0xCE18,
+0xCE1A,
+0xCE1B,
+0xCE1C,
+0xCE1D,
+0xCE1E,
+0xCE1F,
+0xCE22,
+0xCE23,
+0xCE25,
+0xCE26,
+0xCE27,
+0xCE29,
+0xCE2A,
+0xCE2B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCE2C,
+0xCE2D,
+0xCE2E,
+0xCE2F,
+0xCE32,
+0xCE34,
+0xCE36,
+0xCE37,
+0xCE38,
+0xCE39,
+0xCE3A,
+0xCE3B,
+0xCE3C,
+0xCE3D,
+0xCE3E,
+0xCE3F,
+0xCE40,
+0xCE41,
+0xCE42,
+0xCE43,
+0xCE44,
+0xCE45,
+0xCE46,
+0xCE47,
+0xCE48,
+0xCE49,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCE4A,
+0xCE4B,
+0xCE4C,
+0xCE4D,
+0xCE4E,
+0xCE4F,
+0xCE50,
+0xCE51,
+0xCE52,
+0xCE53,
+0xCE54,
+0xCE55,
+0xCE56,
+0xCE57,
+0xCE5A,
+0xCE5B,
+0xCE5D,
+0xCE5E,
+0xCE62,
+0xCE63,
+0xCE64,
+0xCE65,
+0xCE66,
+0xCE67,
+0xCE6A,
+0xCE6C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCE6E,
+0xCE6F,
+0xCE70,
+0xCE71,
+0xCE72,
+0xCE73,
+0xCE76,
+0xCE77,
+0xCE79,
+0xCE7A,
+0xCE7B,
+0xCE7D,
+0xCE7E,
+0xCE7F,
+0xCE80,
+0xCE81,
+0xCE82,
+0xCE83,
+0xCE86,
+0xCE88,
+0xCE8A,
+0xCE8B,
+0xCE8C,
+0xCE8D,
+0xCE8E,
+0xCE8F,
+0xCE92,
+0xCE93,
+0xCE95,
+0xCE96,
+0xCE97,
+0xCE99,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCE9A,
+0xCE9B,
+0xCE9C,
+0xCE9D,
+0xCE9E,
+0xCE9F,
+0xCEA2,
+0xCEA6,
+0xCEA7,
+0xCEA8,
+0xCEA9,
+0xCEAA,
+0xCEAB,
+0xCEAE,
+0xCEAF,
+0xCEB0,
+0xCEB1,
+0xCEB2,
+0xCEB3,
+0xCEB4,
+0xCEB5,
+0xCEB6,
+0xCEB7,
+0xCEB8,
+0xCEB9,
+0xCEBA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCEBB,
+0xCEBC,
+0xCEBD,
+0xCEBE,
+0xCEBF,
+0xCEC0,
+0xCEC2,
+0xCEC3,
+0xCEC4,
+0xCEC5,
+0xCEC6,
+0xCEC7,
+0xCEC8,
+0xCEC9,
+0xCECA,
+0xCECB,
+0xCECC,
+0xCECD,
+0xCECE,
+0xCECF,
+0xCED0,
+0xCED1,
+0xCED2,
+0xCED3,
+0xCED4,
+0xCED5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCED6,
+0xCED7,
+0xCED8,
+0xCED9,
+0xCEDA,
+0xCEDB,
+0xCEDC,
+0xCEDD,
+0xCEDE,
+0xCEDF,
+0xCEE0,
+0xCEE1,
+0xCEE2,
+0xCEE3,
+0xCEE6,
+0xCEE7,
+0xCEE9,
+0xCEEA,
+0xCEED,
+0xCEEE,
+0xCEEF,
+0xCEF0,
+0xCEF1,
+0xCEF2,
+0xCEF3,
+0xCEF6,
+0xCEFA,
+0xCEFB,
+0xCEFC,
+0xCEFD,
+0xCEFE,
+0xCEFF,
+0xAC00,
+0xAC01,
+0xAC04,
+0xAC07,
+0xAC08,
+0xAC09,
+0xAC0A,
+0xAC10,
+0xAC11,
+0xAC12,
+0xAC13,
+0xAC14,
+0xAC15,
+0xAC16,
+0xAC17,
+0xAC19,
+0xAC1A,
+0xAC1B,
+0xAC1C,
+0xAC1D,
+0xAC20,
+0xAC24,
+0xAC2C,
+0xAC2D,
+0xAC2F,
+0xAC30,
+0xAC31,
+0xAC38,
+0xAC39,
+0xAC3C,
+0xAC40,
+0xAC4B,
+0xAC4D,
+0xAC54,
+0xAC58,
+0xAC5C,
+0xAC70,
+0xAC71,
+0xAC74,
+0xAC77,
+0xAC78,
+0xAC7A,
+0xAC80,
+0xAC81,
+0xAC83,
+0xAC84,
+0xAC85,
+0xAC86,
+0xAC89,
+0xAC8A,
+0xAC8B,
+0xAC8C,
+0xAC90,
+0xAC94,
+0xAC9C,
+0xAC9D,
+0xAC9F,
+0xACA0,
+0xACA1,
+0xACA8,
+0xACA9,
+0xACAA,
+0xACAC,
+0xACAF,
+0xACB0,
+0xACB8,
+0xACB9,
+0xACBB,
+0xACBC,
+0xACBD,
+0xACC1,
+0xACC4,
+0xACC8,
+0xACCC,
+0xACD5,
+0xACD7,
+0xACE0,
+0xACE1,
+0xACE4,
+0xACE7,
+0xACE8,
+0xACEA,
+0xACEC,
+0xACEF,
+0xACF0,
+0xACF1,
+0xACF3,
+0xACF5,
+0xACF6,
+0xACFC,
+0xACFD,
+0xAD00,
+0xAD04,
+0xAD06,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCF02,
+0xCF03,
+0xCF05,
+0xCF06,
+0xCF07,
+0xCF09,
+0xCF0A,
+0xCF0B,
+0xCF0C,
+0xCF0D,
+0xCF0E,
+0xCF0F,
+0xCF12,
+0xCF14,
+0xCF16,
+0xCF17,
+0xCF18,
+0xCF19,
+0xCF1A,
+0xCF1B,
+0xCF1D,
+0xCF1E,
+0xCF1F,
+0xCF21,
+0xCF22,
+0xCF23,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCF25,
+0xCF26,
+0xCF27,
+0xCF28,
+0xCF29,
+0xCF2A,
+0xCF2B,
+0xCF2E,
+0xCF32,
+0xCF33,
+0xCF34,
+0xCF35,
+0xCF36,
+0xCF37,
+0xCF39,
+0xCF3A,
+0xCF3B,
+0xCF3C,
+0xCF3D,
+0xCF3E,
+0xCF3F,
+0xCF40,
+0xCF41,
+0xCF42,
+0xCF43,
+0xCF44,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCF45,
+0xCF46,
+0xCF47,
+0xCF48,
+0xCF49,
+0xCF4A,
+0xCF4B,
+0xCF4C,
+0xCF4D,
+0xCF4E,
+0xCF4F,
+0xCF50,
+0xCF51,
+0xCF52,
+0xCF53,
+0xCF56,
+0xCF57,
+0xCF59,
+0xCF5A,
+0xCF5B,
+0xCF5D,
+0xCF5E,
+0xCF5F,
+0xCF60,
+0xCF61,
+0xCF62,
+0xCF63,
+0xCF66,
+0xCF68,
+0xCF6A,
+0xCF6B,
+0xCF6C,
+0xAD0C,
+0xAD0D,
+0xAD0F,
+0xAD11,
+0xAD18,
+0xAD1C,
+0xAD20,
+0xAD29,
+0xAD2C,
+0xAD2D,
+0xAD34,
+0xAD35,
+0xAD38,
+0xAD3C,
+0xAD44,
+0xAD45,
+0xAD47,
+0xAD49,
+0xAD50,
+0xAD54,
+0xAD58,
+0xAD61,
+0xAD63,
+0xAD6C,
+0xAD6D,
+0xAD70,
+0xAD73,
+0xAD74,
+0xAD75,
+0xAD76,
+0xAD7B,
+0xAD7C,
+0xAD7D,
+0xAD7F,
+0xAD81,
+0xAD82,
+0xAD88,
+0xAD89,
+0xAD8C,
+0xAD90,
+0xAD9C,
+0xAD9D,
+0xADA4,
+0xADB7,
+0xADC0,
+0xADC1,
+0xADC4,
+0xADC8,
+0xADD0,
+0xADD1,
+0xADD3,
+0xADDC,
+0xADE0,
+0xADE4,
+0xADF8,
+0xADF9,
+0xADFC,
+0xADFF,
+0xAE00,
+0xAE01,
+0xAE08,
+0xAE09,
+0xAE0B,
+0xAE0D,
+0xAE14,
+0xAE30,
+0xAE31,
+0xAE34,
+0xAE37,
+0xAE38,
+0xAE3A,
+0xAE40,
+0xAE41,
+0xAE43,
+0xAE45,
+0xAE46,
+0xAE4A,
+0xAE4C,
+0xAE4D,
+0xAE4E,
+0xAE50,
+0xAE54,
+0xAE56,
+0xAE5C,
+0xAE5D,
+0xAE5F,
+0xAE60,
+0xAE61,
+0xAE65,
+0xAE68,
+0xAE69,
+0xAE6C,
+0xAE70,
+0xAE78,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCF6D,
+0xCF6E,
+0xCF6F,
+0xCF72,
+0xCF73,
+0xCF75,
+0xCF76,
+0xCF77,
+0xCF79,
+0xCF7A,
+0xCF7B,
+0xCF7C,
+0xCF7D,
+0xCF7E,
+0xCF7F,
+0xCF81,
+0xCF82,
+0xCF83,
+0xCF84,
+0xCF86,
+0xCF87,
+0xCF88,
+0xCF89,
+0xCF8A,
+0xCF8B,
+0xCF8D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCF8E,
+0xCF8F,
+0xCF90,
+0xCF91,
+0xCF92,
+0xCF93,
+0xCF94,
+0xCF95,
+0xCF96,
+0xCF97,
+0xCF98,
+0xCF99,
+0xCF9A,
+0xCF9B,
+0xCF9C,
+0xCF9D,
+0xCF9E,
+0xCF9F,
+0xCFA0,
+0xCFA2,
+0xCFA3,
+0xCFA4,
+0xCFA5,
+0xCFA6,
+0xCFA7,
+0xCFA9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCFAA,
+0xCFAB,
+0xCFAC,
+0xCFAD,
+0xCFAE,
+0xCFAF,
+0xCFB1,
+0xCFB2,
+0xCFB3,
+0xCFB4,
+0xCFB5,
+0xCFB6,
+0xCFB7,
+0xCFB8,
+0xCFB9,
+0xCFBA,
+0xCFBB,
+0xCFBC,
+0xCFBD,
+0xCFBE,
+0xCFBF,
+0xCFC0,
+0xCFC1,
+0xCFC2,
+0xCFC3,
+0xCFC5,
+0xCFC6,
+0xCFC7,
+0xCFC8,
+0xCFC9,
+0xCFCA,
+0xCFCB,
+0xAE79,
+0xAE7B,
+0xAE7C,
+0xAE7D,
+0xAE84,
+0xAE85,
+0xAE8C,
+0xAEBC,
+0xAEBD,
+0xAEBE,
+0xAEC0,
+0xAEC4,
+0xAECC,
+0xAECD,
+0xAECF,
+0xAED0,
+0xAED1,
+0xAED8,
+0xAED9,
+0xAEDC,
+0xAEE8,
+0xAEEB,
+0xAEED,
+0xAEF4,
+0xAEF8,
+0xAEFC,
+0xAF07,
+0xAF08,
+0xAF0D,
+0xAF10,
+0xAF2C,
+0xAF2D,
+0xAF30,
+0xAF32,
+0xAF34,
+0xAF3C,
+0xAF3D,
+0xAF3F,
+0xAF41,
+0xAF42,
+0xAF43,
+0xAF48,
+0xAF49,
+0xAF50,
+0xAF5C,
+0xAF5D,
+0xAF64,
+0xAF65,
+0xAF79,
+0xAF80,
+0xAF84,
+0xAF88,
+0xAF90,
+0xAF91,
+0xAF95,
+0xAF9C,
+0xAFB8,
+0xAFB9,
+0xAFBC,
+0xAFC0,
+0xAFC7,
+0xAFC8,
+0xAFC9,
+0xAFCB,
+0xAFCD,
+0xAFCE,
+0xAFD4,
+0xAFDC,
+0xAFE8,
+0xAFE9,
+0xAFF0,
+0xAFF1,
+0xAFF4,
+0xAFF8,
+0xB000,
+0xB001,
+0xB004,
+0xB00C,
+0xB010,
+0xB014,
+0xB01C,
+0xB01D,
+0xB028,
+0xB044,
+0xB045,
+0xB048,
+0xB04A,
+0xB04C,
+0xB04E,
+0xB053,
+0xB054,
+0xB055,
+0xB057,
+0xB059,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCFCC,
+0xCFCD,
+0xCFCE,
+0xCFCF,
+0xCFD0,
+0xCFD1,
+0xCFD2,
+0xCFD3,
+0xCFD4,
+0xCFD5,
+0xCFD6,
+0xCFD7,
+0xCFD8,
+0xCFD9,
+0xCFDA,
+0xCFDB,
+0xCFDC,
+0xCFDD,
+0xCFDE,
+0xCFDF,
+0xCFE2,
+0xCFE3,
+0xCFE5,
+0xCFE6,
+0xCFE7,
+0xCFE9,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xCFEA,
+0xCFEB,
+0xCFEC,
+0xCFED,
+0xCFEE,
+0xCFEF,
+0xCFF2,
+0xCFF4,
+0xCFF6,
+0xCFF7,
+0xCFF8,
+0xCFF9,
+0xCFFA,
+0xCFFB,
+0xCFFD,
+0xCFFE,
+0xCFFF,
+0xD001,
+0xD002,
+0xD003,
+0xD005,
+0xD006,
+0xD007,
+0xD008,
+0xD009,
+0xD00A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD00B,
+0xD00C,
+0xD00D,
+0xD00E,
+0xD00F,
+0xD010,
+0xD012,
+0xD013,
+0xD014,
+0xD015,
+0xD016,
+0xD017,
+0xD019,
+0xD01A,
+0xD01B,
+0xD01C,
+0xD01D,
+0xD01E,
+0xD01F,
+0xD020,
+0xD021,
+0xD022,
+0xD023,
+0xD024,
+0xD025,
+0xD026,
+0xD027,
+0xD028,
+0xD029,
+0xD02A,
+0xD02B,
+0xD02C,
+0xB05D,
+0xB07C,
+0xB07D,
+0xB080,
+0xB084,
+0xB08C,
+0xB08D,
+0xB08F,
+0xB091,
+0xB098,
+0xB099,
+0xB09A,
+0xB09C,
+0xB09F,
+0xB0A0,
+0xB0A1,
+0xB0A2,
+0xB0A8,
+0xB0A9,
+0xB0AB,
+0xB0AC,
+0xB0AD,
+0xB0AE,
+0xB0AF,
+0xB0B1,
+0xB0B3,
+0xB0B4,
+0xB0B5,
+0xB0B8,
+0xB0BC,
+0xB0C4,
+0xB0C5,
+0xB0C7,
+0xB0C8,
+0xB0C9,
+0xB0D0,
+0xB0D1,
+0xB0D4,
+0xB0D8,
+0xB0E0,
+0xB0E5,
+0xB108,
+0xB109,
+0xB10B,
+0xB10C,
+0xB110,
+0xB112,
+0xB113,
+0xB118,
+0xB119,
+0xB11B,
+0xB11C,
+0xB11D,
+0xB123,
+0xB124,
+0xB125,
+0xB128,
+0xB12C,
+0xB134,
+0xB135,
+0xB137,
+0xB138,
+0xB139,
+0xB140,
+0xB141,
+0xB144,
+0xB148,
+0xB150,
+0xB151,
+0xB154,
+0xB155,
+0xB158,
+0xB15C,
+0xB160,
+0xB178,
+0xB179,
+0xB17C,
+0xB180,
+0xB182,
+0xB188,
+0xB189,
+0xB18B,
+0xB18D,
+0xB192,
+0xB193,
+0xB194,
+0xB198,
+0xB19C,
+0xB1A8,
+0xB1CC,
+0xB1D0,
+0xB1D4,
+0xB1DC,
+0xB1DD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD02E,
+0xD02F,
+0xD030,
+0xD031,
+0xD032,
+0xD033,
+0xD036,
+0xD037,
+0xD039,
+0xD03A,
+0xD03B,
+0xD03D,
+0xD03E,
+0xD03F,
+0xD040,
+0xD041,
+0xD042,
+0xD043,
+0xD046,
+0xD048,
+0xD04A,
+0xD04B,
+0xD04C,
+0xD04D,
+0xD04E,
+0xD04F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD051,
+0xD052,
+0xD053,
+0xD055,
+0xD056,
+0xD057,
+0xD059,
+0xD05A,
+0xD05B,
+0xD05C,
+0xD05D,
+0xD05E,
+0xD05F,
+0xD061,
+0xD062,
+0xD063,
+0xD064,
+0xD065,
+0xD066,
+0xD067,
+0xD068,
+0xD069,
+0xD06A,
+0xD06B,
+0xD06E,
+0xD06F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD071,
+0xD072,
+0xD073,
+0xD075,
+0xD076,
+0xD077,
+0xD078,
+0xD079,
+0xD07A,
+0xD07B,
+0xD07E,
+0xD07F,
+0xD080,
+0xD082,
+0xD083,
+0xD084,
+0xD085,
+0xD086,
+0xD087,
+0xD088,
+0xD089,
+0xD08A,
+0xD08B,
+0xD08C,
+0xD08D,
+0xD08E,
+0xD08F,
+0xD090,
+0xD091,
+0xD092,
+0xD093,
+0xD094,
+0xB1DF,
+0xB1E8,
+0xB1E9,
+0xB1EC,
+0xB1F0,
+0xB1F9,
+0xB1FB,
+0xB1FD,
+0xB204,
+0xB205,
+0xB208,
+0xB20B,
+0xB20C,
+0xB214,
+0xB215,
+0xB217,
+0xB219,
+0xB220,
+0xB234,
+0xB23C,
+0xB258,
+0xB25C,
+0xB260,
+0xB268,
+0xB269,
+0xB274,
+0xB275,
+0xB27C,
+0xB284,
+0xB285,
+0xB289,
+0xB290,
+0xB291,
+0xB294,
+0xB298,
+0xB299,
+0xB29A,
+0xB2A0,
+0xB2A1,
+0xB2A3,
+0xB2A5,
+0xB2A6,
+0xB2AA,
+0xB2AC,
+0xB2B0,
+0xB2B4,
+0xB2C8,
+0xB2C9,
+0xB2CC,
+0xB2D0,
+0xB2D2,
+0xB2D8,
+0xB2D9,
+0xB2DB,
+0xB2DD,
+0xB2E2,
+0xB2E4,
+0xB2E5,
+0xB2E6,
+0xB2E8,
+0xB2EB,
+0xB2EC,
+0xB2ED,
+0xB2EE,
+0xB2EF,
+0xB2F3,
+0xB2F4,
+0xB2F5,
+0xB2F7,
+0xB2F8,
+0xB2F9,
+0xB2FA,
+0xB2FB,
+0xB2FF,
+0xB300,
+0xB301,
+0xB304,
+0xB308,
+0xB310,
+0xB311,
+0xB313,
+0xB314,
+0xB315,
+0xB31C,
+0xB354,
+0xB355,
+0xB356,
+0xB358,
+0xB35B,
+0xB35C,
+0xB35E,
+0xB35F,
+0xB364,
+0xB365,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD095,
+0xD096,
+0xD097,
+0xD098,
+0xD099,
+0xD09A,
+0xD09B,
+0xD09C,
+0xD09D,
+0xD09E,
+0xD09F,
+0xD0A0,
+0xD0A1,
+0xD0A2,
+0xD0A3,
+0xD0A6,
+0xD0A7,
+0xD0A9,
+0xD0AA,
+0xD0AB,
+0xD0AD,
+0xD0AE,
+0xD0AF,
+0xD0B0,
+0xD0B1,
+0xD0B2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD0B3,
+0xD0B6,
+0xD0B8,
+0xD0BA,
+0xD0BB,
+0xD0BC,
+0xD0BD,
+0xD0BE,
+0xD0BF,
+0xD0C2,
+0xD0C3,
+0xD0C5,
+0xD0C6,
+0xD0C7,
+0xD0CA,
+0xD0CB,
+0xD0CC,
+0xD0CD,
+0xD0CE,
+0xD0CF,
+0xD0D2,
+0xD0D6,
+0xD0D7,
+0xD0D8,
+0xD0D9,
+0xD0DA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD0DB,
+0xD0DE,
+0xD0DF,
+0xD0E1,
+0xD0E2,
+0xD0E3,
+0xD0E5,
+0xD0E6,
+0xD0E7,
+0xD0E8,
+0xD0E9,
+0xD0EA,
+0xD0EB,
+0xD0EE,
+0xD0F2,
+0xD0F3,
+0xD0F4,
+0xD0F5,
+0xD0F6,
+0xD0F7,
+0xD0F9,
+0xD0FA,
+0xD0FB,
+0xD0FC,
+0xD0FD,
+0xD0FE,
+0xD0FF,
+0xD100,
+0xD101,
+0xD102,
+0xD103,
+0xD104,
+0xB367,
+0xB369,
+0xB36B,
+0xB36E,
+0xB370,
+0xB371,
+0xB374,
+0xB378,
+0xB380,
+0xB381,
+0xB383,
+0xB384,
+0xB385,
+0xB38C,
+0xB390,
+0xB394,
+0xB3A0,
+0xB3A1,
+0xB3A8,
+0xB3AC,
+0xB3C4,
+0xB3C5,
+0xB3C8,
+0xB3CB,
+0xB3CC,
+0xB3CE,
+0xB3D0,
+0xB3D4,
+0xB3D5,
+0xB3D7,
+0xB3D9,
+0xB3DB,
+0xB3DD,
+0xB3E0,
+0xB3E4,
+0xB3E8,
+0xB3FC,
+0xB410,
+0xB418,
+0xB41C,
+0xB420,
+0xB428,
+0xB429,
+0xB42B,
+0xB434,
+0xB450,
+0xB451,
+0xB454,
+0xB458,
+0xB460,
+0xB461,
+0xB463,
+0xB465,
+0xB46C,
+0xB480,
+0xB488,
+0xB49D,
+0xB4A4,
+0xB4A8,
+0xB4AC,
+0xB4B5,
+0xB4B7,
+0xB4B9,
+0xB4C0,
+0xB4C4,
+0xB4C8,
+0xB4D0,
+0xB4D5,
+0xB4DC,
+0xB4DD,
+0xB4E0,
+0xB4E3,
+0xB4E4,
+0xB4E6,
+0xB4EC,
+0xB4ED,
+0xB4EF,
+0xB4F1,
+0xB4F8,
+0xB514,
+0xB515,
+0xB518,
+0xB51B,
+0xB51C,
+0xB524,
+0xB525,
+0xB527,
+0xB528,
+0xB529,
+0xB52A,
+0xB530,
+0xB531,
+0xB534,
+0xB538,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD105,
+0xD106,
+0xD107,
+0xD108,
+0xD109,
+0xD10A,
+0xD10B,
+0xD10C,
+0xD10E,
+0xD10F,
+0xD110,
+0xD111,
+0xD112,
+0xD113,
+0xD114,
+0xD115,
+0xD116,
+0xD117,
+0xD118,
+0xD119,
+0xD11A,
+0xD11B,
+0xD11C,
+0xD11D,
+0xD11E,
+0xD11F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD120,
+0xD121,
+0xD122,
+0xD123,
+0xD124,
+0xD125,
+0xD126,
+0xD127,
+0xD128,
+0xD129,
+0xD12A,
+0xD12B,
+0xD12C,
+0xD12D,
+0xD12E,
+0xD12F,
+0xD132,
+0xD133,
+0xD135,
+0xD136,
+0xD137,
+0xD139,
+0xD13B,
+0xD13C,
+0xD13D,
+0xD13E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD13F,
+0xD142,
+0xD146,
+0xD147,
+0xD148,
+0xD149,
+0xD14A,
+0xD14B,
+0xD14E,
+0xD14F,
+0xD151,
+0xD152,
+0xD153,
+0xD155,
+0xD156,
+0xD157,
+0xD158,
+0xD159,
+0xD15A,
+0xD15B,
+0xD15E,
+0xD160,
+0xD162,
+0xD163,
+0xD164,
+0xD165,
+0xD166,
+0xD167,
+0xD169,
+0xD16A,
+0xD16B,
+0xD16D,
+0xB540,
+0xB541,
+0xB543,
+0xB544,
+0xB545,
+0xB54B,
+0xB54C,
+0xB54D,
+0xB550,
+0xB554,
+0xB55C,
+0xB55D,
+0xB55F,
+0xB560,
+0xB561,
+0xB5A0,
+0xB5A1,
+0xB5A4,
+0xB5A8,
+0xB5AA,
+0xB5AB,
+0xB5B0,
+0xB5B1,
+0xB5B3,
+0xB5B4,
+0xB5B5,
+0xB5BB,
+0xB5BC,
+0xB5BD,
+0xB5C0,
+0xB5C4,
+0xB5CC,
+0xB5CD,
+0xB5CF,
+0xB5D0,
+0xB5D1,
+0xB5D8,
+0xB5EC,
+0xB610,
+0xB611,
+0xB614,
+0xB618,
+0xB625,
+0xB62C,
+0xB634,
+0xB648,
+0xB664,
+0xB668,
+0xB69C,
+0xB69D,
+0xB6A0,
+0xB6A4,
+0xB6AB,
+0xB6AC,
+0xB6B1,
+0xB6D4,
+0xB6F0,
+0xB6F4,
+0xB6F8,
+0xB700,
+0xB701,
+0xB705,
+0xB728,
+0xB729,
+0xB72C,
+0xB72F,
+0xB730,
+0xB738,
+0xB739,
+0xB73B,
+0xB744,
+0xB748,
+0xB74C,
+0xB754,
+0xB755,
+0xB760,
+0xB764,
+0xB768,
+0xB770,
+0xB771,
+0xB773,
+0xB775,
+0xB77C,
+0xB77D,
+0xB780,
+0xB784,
+0xB78C,
+0xB78D,
+0xB78F,
+0xB790,
+0xB791,
+0xB792,
+0xB796,
+0xB797,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD16E,
+0xD16F,
+0xD170,
+0xD171,
+0xD172,
+0xD173,
+0xD174,
+0xD175,
+0xD176,
+0xD177,
+0xD178,
+0xD179,
+0xD17A,
+0xD17B,
+0xD17D,
+0xD17E,
+0xD17F,
+0xD180,
+0xD181,
+0xD182,
+0xD183,
+0xD185,
+0xD186,
+0xD187,
+0xD189,
+0xD18A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD18B,
+0xD18C,
+0xD18D,
+0xD18E,
+0xD18F,
+0xD190,
+0xD191,
+0xD192,
+0xD193,
+0xD194,
+0xD195,
+0xD196,
+0xD197,
+0xD198,
+0xD199,
+0xD19A,
+0xD19B,
+0xD19C,
+0xD19D,
+0xD19E,
+0xD19F,
+0xD1A2,
+0xD1A3,
+0xD1A5,
+0xD1A6,
+0xD1A7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD1A9,
+0xD1AA,
+0xD1AB,
+0xD1AC,
+0xD1AD,
+0xD1AE,
+0xD1AF,
+0xD1B2,
+0xD1B4,
+0xD1B6,
+0xD1B7,
+0xD1B8,
+0xD1B9,
+0xD1BB,
+0xD1BD,
+0xD1BE,
+0xD1BF,
+0xD1C1,
+0xD1C2,
+0xD1C3,
+0xD1C4,
+0xD1C5,
+0xD1C6,
+0xD1C7,
+0xD1C8,
+0xD1C9,
+0xD1CA,
+0xD1CB,
+0xD1CC,
+0xD1CD,
+0xD1CE,
+0xD1CF,
+0xB798,
+0xB799,
+0xB79C,
+0xB7A0,
+0xB7A8,
+0xB7A9,
+0xB7AB,
+0xB7AC,
+0xB7AD,
+0xB7B4,
+0xB7B5,
+0xB7B8,
+0xB7C7,
+0xB7C9,
+0xB7EC,
+0xB7ED,
+0xB7F0,
+0xB7F4,
+0xB7FC,
+0xB7FD,
+0xB7FF,
+0xB800,
+0xB801,
+0xB807,
+0xB808,
+0xB809,
+0xB80C,
+0xB810,
+0xB818,
+0xB819,
+0xB81B,
+0xB81D,
+0xB824,
+0xB825,
+0xB828,
+0xB82C,
+0xB834,
+0xB835,
+0xB837,
+0xB838,
+0xB839,
+0xB840,
+0xB844,
+0xB851,
+0xB853,
+0xB85C,
+0xB85D,
+0xB860,
+0xB864,
+0xB86C,
+0xB86D,
+0xB86F,
+0xB871,
+0xB878,
+0xB87C,
+0xB88D,
+0xB8A8,
+0xB8B0,
+0xB8B4,
+0xB8B8,
+0xB8C0,
+0xB8C1,
+0xB8C3,
+0xB8C5,
+0xB8CC,
+0xB8D0,
+0xB8D4,
+0xB8DD,
+0xB8DF,
+0xB8E1,
+0xB8E8,
+0xB8E9,
+0xB8EC,
+0xB8F0,
+0xB8F8,
+0xB8F9,
+0xB8FB,
+0xB8FD,
+0xB904,
+0xB918,
+0xB920,
+0xB93C,
+0xB93D,
+0xB940,
+0xB944,
+0xB94C,
+0xB94F,
+0xB951,
+0xB958,
+0xB959,
+0xB95C,
+0xB960,
+0xB968,
+0xB969,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD1D0,
+0xD1D1,
+0xD1D2,
+0xD1D3,
+0xD1D4,
+0xD1D5,
+0xD1D6,
+0xD1D7,
+0xD1D9,
+0xD1DA,
+0xD1DB,
+0xD1DC,
+0xD1DD,
+0xD1DE,
+0xD1DF,
+0xD1E0,
+0xD1E1,
+0xD1E2,
+0xD1E3,
+0xD1E4,
+0xD1E5,
+0xD1E6,
+0xD1E7,
+0xD1E8,
+0xD1E9,
+0xD1EA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD1EB,
+0xD1EC,
+0xD1ED,
+0xD1EE,
+0xD1EF,
+0xD1F0,
+0xD1F1,
+0xD1F2,
+0xD1F3,
+0xD1F5,
+0xD1F6,
+0xD1F7,
+0xD1F9,
+0xD1FA,
+0xD1FB,
+0xD1FC,
+0xD1FD,
+0xD1FE,
+0xD1FF,
+0xD200,
+0xD201,
+0xD202,
+0xD203,
+0xD204,
+0xD205,
+0xD206,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD208,
+0xD20A,
+0xD20B,
+0xD20C,
+0xD20D,
+0xD20E,
+0xD20F,
+0xD211,
+0xD212,
+0xD213,
+0xD214,
+0xD215,
+0xD216,
+0xD217,
+0xD218,
+0xD219,
+0xD21A,
+0xD21B,
+0xD21C,
+0xD21D,
+0xD21E,
+0xD21F,
+0xD220,
+0xD221,
+0xD222,
+0xD223,
+0xD224,
+0xD225,
+0xD226,
+0xD227,
+0xD228,
+0xD229,
+0xB96B,
+0xB96D,
+0xB974,
+0xB975,
+0xB978,
+0xB97C,
+0xB984,
+0xB985,
+0xB987,
+0xB989,
+0xB98A,
+0xB98D,
+0xB98E,
+0xB9AC,
+0xB9AD,
+0xB9B0,
+0xB9B4,
+0xB9BC,
+0xB9BD,
+0xB9BF,
+0xB9C1,
+0xB9C8,
+0xB9C9,
+0xB9CC,
+0xB9CE,
+0xB9CF,
+0xB9D0,
+0xB9D1,
+0xB9D2,
+0xB9D8,
+0xB9D9,
+0xB9DB,
+0xB9DD,
+0xB9DE,
+0xB9E1,
+0xB9E3,
+0xB9E4,
+0xB9E5,
+0xB9E8,
+0xB9EC,
+0xB9F4,
+0xB9F5,
+0xB9F7,
+0xB9F8,
+0xB9F9,
+0xB9FA,
+0xBA00,
+0xBA01,
+0xBA08,
+0xBA15,
+0xBA38,
+0xBA39,
+0xBA3C,
+0xBA40,
+0xBA42,
+0xBA48,
+0xBA49,
+0xBA4B,
+0xBA4D,
+0xBA4E,
+0xBA53,
+0xBA54,
+0xBA55,
+0xBA58,
+0xBA5C,
+0xBA64,
+0xBA65,
+0xBA67,
+0xBA68,
+0xBA69,
+0xBA70,
+0xBA71,
+0xBA74,
+0xBA78,
+0xBA83,
+0xBA84,
+0xBA85,
+0xBA87,
+0xBA8C,
+0xBAA8,
+0xBAA9,
+0xBAAB,
+0xBAAC,
+0xBAB0,
+0xBAB2,
+0xBAB8,
+0xBAB9,
+0xBABB,
+0xBABD,
+0xBAC4,
+0xBAC8,
+0xBAD8,
+0xBAD9,
+0xBAFC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD22A,
+0xD22B,
+0xD22E,
+0xD22F,
+0xD231,
+0xD232,
+0xD233,
+0xD235,
+0xD236,
+0xD237,
+0xD238,
+0xD239,
+0xD23A,
+0xD23B,
+0xD23E,
+0xD240,
+0xD242,
+0xD243,
+0xD244,
+0xD245,
+0xD246,
+0xD247,
+0xD249,
+0xD24A,
+0xD24B,
+0xD24C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD24D,
+0xD24E,
+0xD24F,
+0xD250,
+0xD251,
+0xD252,
+0xD253,
+0xD254,
+0xD255,
+0xD256,
+0xD257,
+0xD258,
+0xD259,
+0xD25A,
+0xD25B,
+0xD25D,
+0xD25E,
+0xD25F,
+0xD260,
+0xD261,
+0xD262,
+0xD263,
+0xD265,
+0xD266,
+0xD267,
+0xD268,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD269,
+0xD26A,
+0xD26B,
+0xD26C,
+0xD26D,
+0xD26E,
+0xD26F,
+0xD270,
+0xD271,
+0xD272,
+0xD273,
+0xD274,
+0xD275,
+0xD276,
+0xD277,
+0xD278,
+0xD279,
+0xD27A,
+0xD27B,
+0xD27C,
+0xD27D,
+0xD27E,
+0xD27F,
+0xD282,
+0xD283,
+0xD285,
+0xD286,
+0xD287,
+0xD289,
+0xD28A,
+0xD28B,
+0xD28C,
+0xBB00,
+0xBB04,
+0xBB0D,
+0xBB0F,
+0xBB11,
+0xBB18,
+0xBB1C,
+0xBB20,
+0xBB29,
+0xBB2B,
+0xBB34,
+0xBB35,
+0xBB36,
+0xBB38,
+0xBB3B,
+0xBB3C,
+0xBB3D,
+0xBB3E,
+0xBB44,
+0xBB45,
+0xBB47,
+0xBB49,
+0xBB4D,
+0xBB4F,
+0xBB50,
+0xBB54,
+0xBB58,
+0xBB61,
+0xBB63,
+0xBB6C,
+0xBB88,
+0xBB8C,
+0xBB90,
+0xBBA4,
+0xBBA8,
+0xBBAC,
+0xBBB4,
+0xBBB7,
+0xBBC0,
+0xBBC4,
+0xBBC8,
+0xBBD0,
+0xBBD3,
+0xBBF8,
+0xBBF9,
+0xBBFC,
+0xBBFF,
+0xBC00,
+0xBC02,
+0xBC08,
+0xBC09,
+0xBC0B,
+0xBC0C,
+0xBC0D,
+0xBC0F,
+0xBC11,
+0xBC14,
+0xBC15,
+0xBC16,
+0xBC17,
+0xBC18,
+0xBC1B,
+0xBC1C,
+0xBC1D,
+0xBC1E,
+0xBC1F,
+0xBC24,
+0xBC25,
+0xBC27,
+0xBC29,
+0xBC2D,
+0xBC30,
+0xBC31,
+0xBC34,
+0xBC38,
+0xBC40,
+0xBC41,
+0xBC43,
+0xBC44,
+0xBC45,
+0xBC49,
+0xBC4C,
+0xBC4D,
+0xBC50,
+0xBC5D,
+0xBC84,
+0xBC85,
+0xBC88,
+0xBC8B,
+0xBC8C,
+0xBC8E,
+0xBC94,
+0xBC95,
+0xBC97,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD28D,
+0xD28E,
+0xD28F,
+0xD292,
+0xD293,
+0xD294,
+0xD296,
+0xD297,
+0xD298,
+0xD299,
+0xD29A,
+0xD29B,
+0xD29D,
+0xD29E,
+0xD29F,
+0xD2A1,
+0xD2A2,
+0xD2A3,
+0xD2A5,
+0xD2A6,
+0xD2A7,
+0xD2A8,
+0xD2A9,
+0xD2AA,
+0xD2AB,
+0xD2AD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD2AE,
+0xD2AF,
+0xD2B0,
+0xD2B2,
+0xD2B3,
+0xD2B4,
+0xD2B5,
+0xD2B6,
+0xD2B7,
+0xD2BA,
+0xD2BB,
+0xD2BD,
+0xD2BE,
+0xD2C1,
+0xD2C3,
+0xD2C4,
+0xD2C5,
+0xD2C6,
+0xD2C7,
+0xD2CA,
+0xD2CC,
+0xD2CD,
+0xD2CE,
+0xD2CF,
+0xD2D0,
+0xD2D1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD2D2,
+0xD2D3,
+0xD2D5,
+0xD2D6,
+0xD2D7,
+0xD2D9,
+0xD2DA,
+0xD2DB,
+0xD2DD,
+0xD2DE,
+0xD2DF,
+0xD2E0,
+0xD2E1,
+0xD2E2,
+0xD2E3,
+0xD2E6,
+0xD2E7,
+0xD2E8,
+0xD2E9,
+0xD2EA,
+0xD2EB,
+0xD2EC,
+0xD2ED,
+0xD2EE,
+0xD2EF,
+0xD2F2,
+0xD2F3,
+0xD2F5,
+0xD2F6,
+0xD2F7,
+0xD2F9,
+0xD2FA,
+0xBC99,
+0xBC9A,
+0xBCA0,
+0xBCA1,
+0xBCA4,
+0xBCA7,
+0xBCA8,
+0xBCB0,
+0xBCB1,
+0xBCB3,
+0xBCB4,
+0xBCB5,
+0xBCBC,
+0xBCBD,
+0xBCC0,
+0xBCC4,
+0xBCCD,
+0xBCCF,
+0xBCD0,
+0xBCD1,
+0xBCD5,
+0xBCD8,
+0xBCDC,
+0xBCF4,
+0xBCF5,
+0xBCF6,
+0xBCF8,
+0xBCFC,
+0xBD04,
+0xBD05,
+0xBD07,
+0xBD09,
+0xBD10,
+0xBD14,
+0xBD24,
+0xBD2C,
+0xBD40,
+0xBD48,
+0xBD49,
+0xBD4C,
+0xBD50,
+0xBD58,
+0xBD59,
+0xBD64,
+0xBD68,
+0xBD80,
+0xBD81,
+0xBD84,
+0xBD87,
+0xBD88,
+0xBD89,
+0xBD8A,
+0xBD90,
+0xBD91,
+0xBD93,
+0xBD95,
+0xBD99,
+0xBD9A,
+0xBD9C,
+0xBDA4,
+0xBDB0,
+0xBDB8,
+0xBDD4,
+0xBDD5,
+0xBDD8,
+0xBDDC,
+0xBDE9,
+0xBDF0,
+0xBDF4,
+0xBDF8,
+0xBE00,
+0xBE03,
+0xBE05,
+0xBE0C,
+0xBE0D,
+0xBE10,
+0xBE14,
+0xBE1C,
+0xBE1D,
+0xBE1F,
+0xBE44,
+0xBE45,
+0xBE48,
+0xBE4C,
+0xBE4E,
+0xBE54,
+0xBE55,
+0xBE57,
+0xBE59,
+0xBE5A,
+0xBE5B,
+0xBE60,
+0xBE61,
+0xBE64,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD2FB,
+0xD2FC,
+0xD2FD,
+0xD2FE,
+0xD2FF,
+0xD302,
+0xD304,
+0xD306,
+0xD307,
+0xD308,
+0xD309,
+0xD30A,
+0xD30B,
+0xD30F,
+0xD311,
+0xD312,
+0xD313,
+0xD315,
+0xD317,
+0xD318,
+0xD319,
+0xD31A,
+0xD31B,
+0xD31E,
+0xD322,
+0xD323,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD324,
+0xD326,
+0xD327,
+0xD32A,
+0xD32B,
+0xD32D,
+0xD32E,
+0xD32F,
+0xD331,
+0xD332,
+0xD333,
+0xD334,
+0xD335,
+0xD336,
+0xD337,
+0xD33A,
+0xD33E,
+0xD33F,
+0xD340,
+0xD341,
+0xD342,
+0xD343,
+0xD346,
+0xD347,
+0xD348,
+0xD349,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD34A,
+0xD34B,
+0xD34C,
+0xD34D,
+0xD34E,
+0xD34F,
+0xD350,
+0xD351,
+0xD352,
+0xD353,
+0xD354,
+0xD355,
+0xD356,
+0xD357,
+0xD358,
+0xD359,
+0xD35A,
+0xD35B,
+0xD35C,
+0xD35D,
+0xD35E,
+0xD35F,
+0xD360,
+0xD361,
+0xD362,
+0xD363,
+0xD364,
+0xD365,
+0xD366,
+0xD367,
+0xD368,
+0xD369,
+0xBE68,
+0xBE6A,
+0xBE70,
+0xBE71,
+0xBE73,
+0xBE74,
+0xBE75,
+0xBE7B,
+0xBE7C,
+0xBE7D,
+0xBE80,
+0xBE84,
+0xBE8C,
+0xBE8D,
+0xBE8F,
+0xBE90,
+0xBE91,
+0xBE98,
+0xBE99,
+0xBEA8,
+0xBED0,
+0xBED1,
+0xBED4,
+0xBED7,
+0xBED8,
+0xBEE0,
+0xBEE3,
+0xBEE4,
+0xBEE5,
+0xBEEC,
+0xBF01,
+0xBF08,
+0xBF09,
+0xBF18,
+0xBF19,
+0xBF1B,
+0xBF1C,
+0xBF1D,
+0xBF40,
+0xBF41,
+0xBF44,
+0xBF48,
+0xBF50,
+0xBF51,
+0xBF55,
+0xBF94,
+0xBFB0,
+0xBFC5,
+0xBFCC,
+0xBFCD,
+0xBFD0,
+0xBFD4,
+0xBFDC,
+0xBFDF,
+0xBFE1,
+0xC03C,
+0xC051,
+0xC058,
+0xC05C,
+0xC060,
+0xC068,
+0xC069,
+0xC090,
+0xC091,
+0xC094,
+0xC098,
+0xC0A0,
+0xC0A1,
+0xC0A3,
+0xC0A5,
+0xC0AC,
+0xC0AD,
+0xC0AF,
+0xC0B0,
+0xC0B3,
+0xC0B4,
+0xC0B5,
+0xC0B6,
+0xC0BC,
+0xC0BD,
+0xC0BF,
+0xC0C0,
+0xC0C1,
+0xC0C5,
+0xC0C8,
+0xC0C9,
+0xC0CC,
+0xC0D0,
+0xC0D8,
+0xC0D9,
+0xC0DB,
+0xC0DC,
+0xC0DD,
+0xC0E4,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD36A,
+0xD36B,
+0xD36C,
+0xD36D,
+0xD36E,
+0xD36F,
+0xD370,
+0xD371,
+0xD372,
+0xD373,
+0xD374,
+0xD375,
+0xD376,
+0xD377,
+0xD378,
+0xD379,
+0xD37A,
+0xD37B,
+0xD37E,
+0xD37F,
+0xD381,
+0xD382,
+0xD383,
+0xD385,
+0xD386,
+0xD387,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD388,
+0xD389,
+0xD38A,
+0xD38B,
+0xD38E,
+0xD392,
+0xD393,
+0xD394,
+0xD395,
+0xD396,
+0xD397,
+0xD39A,
+0xD39B,
+0xD39D,
+0xD39E,
+0xD39F,
+0xD3A1,
+0xD3A2,
+0xD3A3,
+0xD3A4,
+0xD3A5,
+0xD3A6,
+0xD3A7,
+0xD3AA,
+0xD3AC,
+0xD3AE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD3AF,
+0xD3B0,
+0xD3B1,
+0xD3B2,
+0xD3B3,
+0xD3B5,
+0xD3B6,
+0xD3B7,
+0xD3B9,
+0xD3BA,
+0xD3BB,
+0xD3BD,
+0xD3BE,
+0xD3BF,
+0xD3C0,
+0xD3C1,
+0xD3C2,
+0xD3C3,
+0xD3C6,
+0xD3C7,
+0xD3CA,
+0xD3CB,
+0xD3CC,
+0xD3CD,
+0xD3CE,
+0xD3CF,
+0xD3D1,
+0xD3D2,
+0xD3D3,
+0xD3D4,
+0xD3D5,
+0xD3D6,
+0xC0E5,
+0xC0E8,
+0xC0EC,
+0xC0F4,
+0xC0F5,
+0xC0F7,
+0xC0F9,
+0xC100,
+0xC104,
+0xC108,
+0xC110,
+0xC115,
+0xC11C,
+0xC11D,
+0xC11E,
+0xC11F,
+0xC120,
+0xC123,
+0xC124,
+0xC126,
+0xC127,
+0xC12C,
+0xC12D,
+0xC12F,
+0xC130,
+0xC131,
+0xC136,
+0xC138,
+0xC139,
+0xC13C,
+0xC140,
+0xC148,
+0xC149,
+0xC14B,
+0xC14C,
+0xC14D,
+0xC154,
+0xC155,
+0xC158,
+0xC15C,
+0xC164,
+0xC165,
+0xC167,
+0xC168,
+0xC169,
+0xC170,
+0xC174,
+0xC178,
+0xC185,
+0xC18C,
+0xC18D,
+0xC18E,
+0xC190,
+0xC194,
+0xC196,
+0xC19C,
+0xC19D,
+0xC19F,
+0xC1A1,
+0xC1A5,
+0xC1A8,
+0xC1A9,
+0xC1AC,
+0xC1B0,
+0xC1BD,
+0xC1C4,
+0xC1C8,
+0xC1CC,
+0xC1D4,
+0xC1D7,
+0xC1D8,
+0xC1E0,
+0xC1E4,
+0xC1E8,
+0xC1F0,
+0xC1F1,
+0xC1F3,
+0xC1FC,
+0xC1FD,
+0xC200,
+0xC204,
+0xC20C,
+0xC20D,
+0xC20F,
+0xC211,
+0xC218,
+0xC219,
+0xC21C,
+0xC21F,
+0xC220,
+0xC228,
+0xC229,
+0xC22B,
+0xC22D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD3D7,
+0xD3D9,
+0xD3DA,
+0xD3DB,
+0xD3DC,
+0xD3DD,
+0xD3DE,
+0xD3DF,
+0xD3E0,
+0xD3E2,
+0xD3E4,
+0xD3E5,
+0xD3E6,
+0xD3E7,
+0xD3E8,
+0xD3E9,
+0xD3EA,
+0xD3EB,
+0xD3EE,
+0xD3EF,
+0xD3F1,
+0xD3F2,
+0xD3F3,
+0xD3F5,
+0xD3F6,
+0xD3F7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD3F8,
+0xD3F9,
+0xD3FA,
+0xD3FB,
+0xD3FE,
+0xD400,
+0xD402,
+0xD403,
+0xD404,
+0xD405,
+0xD406,
+0xD407,
+0xD409,
+0xD40A,
+0xD40B,
+0xD40C,
+0xD40D,
+0xD40E,
+0xD40F,
+0xD410,
+0xD411,
+0xD412,
+0xD413,
+0xD414,
+0xD415,
+0xD416,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD417,
+0xD418,
+0xD419,
+0xD41A,
+0xD41B,
+0xD41C,
+0xD41E,
+0xD41F,
+0xD420,
+0xD421,
+0xD422,
+0xD423,
+0xD424,
+0xD425,
+0xD426,
+0xD427,
+0xD428,
+0xD429,
+0xD42A,
+0xD42B,
+0xD42C,
+0xD42D,
+0xD42E,
+0xD42F,
+0xD430,
+0xD431,
+0xD432,
+0xD433,
+0xD434,
+0xD435,
+0xD436,
+0xD437,
+0xC22F,
+0xC231,
+0xC232,
+0xC234,
+0xC248,
+0xC250,
+0xC251,
+0xC254,
+0xC258,
+0xC260,
+0xC265,
+0xC26C,
+0xC26D,
+0xC270,
+0xC274,
+0xC27C,
+0xC27D,
+0xC27F,
+0xC281,
+0xC288,
+0xC289,
+0xC290,
+0xC298,
+0xC29B,
+0xC29D,
+0xC2A4,
+0xC2A5,
+0xC2A8,
+0xC2AC,
+0xC2AD,
+0xC2B4,
+0xC2B5,
+0xC2B7,
+0xC2B9,
+0xC2DC,
+0xC2DD,
+0xC2E0,
+0xC2E3,
+0xC2E4,
+0xC2EB,
+0xC2EC,
+0xC2ED,
+0xC2EF,
+0xC2F1,
+0xC2F6,
+0xC2F8,
+0xC2F9,
+0xC2FB,
+0xC2FC,
+0xC300,
+0xC308,
+0xC309,
+0xC30C,
+0xC30D,
+0xC313,
+0xC314,
+0xC315,
+0xC318,
+0xC31C,
+0xC324,
+0xC325,
+0xC328,
+0xC329,
+0xC345,
+0xC368,
+0xC369,
+0xC36C,
+0xC370,
+0xC372,
+0xC378,
+0xC379,
+0xC37C,
+0xC37D,
+0xC384,
+0xC388,
+0xC38C,
+0xC3C0,
+0xC3D8,
+0xC3D9,
+0xC3DC,
+0xC3DF,
+0xC3E0,
+0xC3E2,
+0xC3E8,
+0xC3E9,
+0xC3ED,
+0xC3F4,
+0xC3F5,
+0xC3F8,
+0xC408,
+0xC410,
+0xC424,
+0xC42C,
+0xC430,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD438,
+0xD439,
+0xD43A,
+0xD43B,
+0xD43C,
+0xD43D,
+0xD43E,
+0xD43F,
+0xD441,
+0xD442,
+0xD443,
+0xD445,
+0xD446,
+0xD447,
+0xD448,
+0xD449,
+0xD44A,
+0xD44B,
+0xD44C,
+0xD44D,
+0xD44E,
+0xD44F,
+0xD450,
+0xD451,
+0xD452,
+0xD453,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD454,
+0xD455,
+0xD456,
+0xD457,
+0xD458,
+0xD459,
+0xD45A,
+0xD45B,
+0xD45D,
+0xD45E,
+0xD45F,
+0xD461,
+0xD462,
+0xD463,
+0xD465,
+0xD466,
+0xD467,
+0xD468,
+0xD469,
+0xD46A,
+0xD46B,
+0xD46C,
+0xD46E,
+0xD470,
+0xD471,
+0xD472,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD473,
+0xD474,
+0xD475,
+0xD476,
+0xD477,
+0xD47A,
+0xD47B,
+0xD47D,
+0xD47E,
+0xD481,
+0xD483,
+0xD484,
+0xD485,
+0xD486,
+0xD487,
+0xD48A,
+0xD48C,
+0xD48E,
+0xD48F,
+0xD490,
+0xD491,
+0xD492,
+0xD493,
+0xD495,
+0xD496,
+0xD497,
+0xD498,
+0xD499,
+0xD49A,
+0xD49B,
+0xD49C,
+0xD49D,
+0xC434,
+0xC43C,
+0xC43D,
+0xC448,
+0xC464,
+0xC465,
+0xC468,
+0xC46C,
+0xC474,
+0xC475,
+0xC479,
+0xC480,
+0xC494,
+0xC49C,
+0xC4B8,
+0xC4BC,
+0xC4E9,
+0xC4F0,
+0xC4F1,
+0xC4F4,
+0xC4F8,
+0xC4FA,
+0xC4FF,
+0xC500,
+0xC501,
+0xC50C,
+0xC510,
+0xC514,
+0xC51C,
+0xC528,
+0xC529,
+0xC52C,
+0xC530,
+0xC538,
+0xC539,
+0xC53B,
+0xC53D,
+0xC544,
+0xC545,
+0xC548,
+0xC549,
+0xC54A,
+0xC54C,
+0xC54D,
+0xC54E,
+0xC553,
+0xC554,
+0xC555,
+0xC557,
+0xC558,
+0xC559,
+0xC55D,
+0xC55E,
+0xC560,
+0xC561,
+0xC564,
+0xC568,
+0xC570,
+0xC571,
+0xC573,
+0xC574,
+0xC575,
+0xC57C,
+0xC57D,
+0xC580,
+0xC584,
+0xC587,
+0xC58C,
+0xC58D,
+0xC58F,
+0xC591,
+0xC595,
+0xC597,
+0xC598,
+0xC59C,
+0xC5A0,
+0xC5A9,
+0xC5B4,
+0xC5B5,
+0xC5B8,
+0xC5B9,
+0xC5BB,
+0xC5BC,
+0xC5BD,
+0xC5BE,
+0xC5C4,
+0xC5C5,
+0xC5C6,
+0xC5C7,
+0xC5C8,
+0xC5C9,
+0xC5CA,
+0xC5CC,
+0xC5CE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD49E,
+0xD49F,
+0xD4A0,
+0xD4A1,
+0xD4A2,
+0xD4A3,
+0xD4A4,
+0xD4A5,
+0xD4A6,
+0xD4A7,
+0xD4A8,
+0xD4AA,
+0xD4AB,
+0xD4AC,
+0xD4AD,
+0xD4AE,
+0xD4AF,
+0xD4B0,
+0xD4B1,
+0xD4B2,
+0xD4B3,
+0xD4B4,
+0xD4B5,
+0xD4B6,
+0xD4B7,
+0xD4B8,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD4B9,
+0xD4BA,
+0xD4BB,
+0xD4BC,
+0xD4BD,
+0xD4BE,
+0xD4BF,
+0xD4C0,
+0xD4C1,
+0xD4C2,
+0xD4C3,
+0xD4C4,
+0xD4C5,
+0xD4C6,
+0xD4C7,
+0xD4C8,
+0xD4C9,
+0xD4CA,
+0xD4CB,
+0xD4CD,
+0xD4CE,
+0xD4CF,
+0xD4D1,
+0xD4D2,
+0xD4D3,
+0xD4D5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD4D6,
+0xD4D7,
+0xD4D8,
+0xD4D9,
+0xD4DA,
+0xD4DB,
+0xD4DD,
+0xD4DE,
+0xD4E0,
+0xD4E1,
+0xD4E2,
+0xD4E3,
+0xD4E4,
+0xD4E5,
+0xD4E6,
+0xD4E7,
+0xD4E9,
+0xD4EA,
+0xD4EB,
+0xD4ED,
+0xD4EE,
+0xD4EF,
+0xD4F1,
+0xD4F2,
+0xD4F3,
+0xD4F4,
+0xD4F5,
+0xD4F6,
+0xD4F7,
+0xD4F9,
+0xD4FA,
+0xD4FC,
+0xC5D0,
+0xC5D1,
+0xC5D4,
+0xC5D8,
+0xC5E0,
+0xC5E1,
+0xC5E3,
+0xC5E5,
+0xC5EC,
+0xC5ED,
+0xC5EE,
+0xC5F0,
+0xC5F4,
+0xC5F6,
+0xC5F7,
+0xC5FC,
+0xC5FD,
+0xC5FE,
+0xC5FF,
+0xC600,
+0xC601,
+0xC605,
+0xC606,
+0xC607,
+0xC608,
+0xC60C,
+0xC610,
+0xC618,
+0xC619,
+0xC61B,
+0xC61C,
+0xC624,
+0xC625,
+0xC628,
+0xC62C,
+0xC62D,
+0xC62E,
+0xC630,
+0xC633,
+0xC634,
+0xC635,
+0xC637,
+0xC639,
+0xC63B,
+0xC640,
+0xC641,
+0xC644,
+0xC648,
+0xC650,
+0xC651,
+0xC653,
+0xC654,
+0xC655,
+0xC65C,
+0xC65D,
+0xC660,
+0xC66C,
+0xC66F,
+0xC671,
+0xC678,
+0xC679,
+0xC67C,
+0xC680,
+0xC688,
+0xC689,
+0xC68B,
+0xC68D,
+0xC694,
+0xC695,
+0xC698,
+0xC69C,
+0xC6A4,
+0xC6A5,
+0xC6A7,
+0xC6A9,
+0xC6B0,
+0xC6B1,
+0xC6B4,
+0xC6B8,
+0xC6B9,
+0xC6BA,
+0xC6C0,
+0xC6C1,
+0xC6C3,
+0xC6C5,
+0xC6CC,
+0xC6CD,
+0xC6D0,
+0xC6D4,
+0xC6DC,
+0xC6DD,
+0xC6E0,
+0xC6E1,
+0xC6E8,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD4FE,
+0xD4FF,
+0xD500,
+0xD501,
+0xD502,
+0xD503,
+0xD505,
+0xD506,
+0xD507,
+0xD509,
+0xD50A,
+0xD50B,
+0xD50D,
+0xD50E,
+0xD50F,
+0xD510,
+0xD511,
+0xD512,
+0xD513,
+0xD516,
+0xD518,
+0xD519,
+0xD51A,
+0xD51B,
+0xD51C,
+0xD51D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD51E,
+0xD51F,
+0xD520,
+0xD521,
+0xD522,
+0xD523,
+0xD524,
+0xD525,
+0xD526,
+0xD527,
+0xD528,
+0xD529,
+0xD52A,
+0xD52B,
+0xD52C,
+0xD52D,
+0xD52E,
+0xD52F,
+0xD530,
+0xD531,
+0xD532,
+0xD533,
+0xD534,
+0xD535,
+0xD536,
+0xD537,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD538,
+0xD539,
+0xD53A,
+0xD53B,
+0xD53E,
+0xD53F,
+0xD541,
+0xD542,
+0xD543,
+0xD545,
+0xD546,
+0xD547,
+0xD548,
+0xD549,
+0xD54A,
+0xD54B,
+0xD54E,
+0xD550,
+0xD552,
+0xD553,
+0xD554,
+0xD555,
+0xD556,
+0xD557,
+0xD55A,
+0xD55B,
+0xD55D,
+0xD55E,
+0xD55F,
+0xD561,
+0xD562,
+0xD563,
+0xC6E9,
+0xC6EC,
+0xC6F0,
+0xC6F8,
+0xC6F9,
+0xC6FD,
+0xC704,
+0xC705,
+0xC708,
+0xC70C,
+0xC714,
+0xC715,
+0xC717,
+0xC719,
+0xC720,
+0xC721,
+0xC724,
+0xC728,
+0xC730,
+0xC731,
+0xC733,
+0xC735,
+0xC737,
+0xC73C,
+0xC73D,
+0xC740,
+0xC744,
+0xC74A,
+0xC74C,
+0xC74D,
+0xC74F,
+0xC751,
+0xC752,
+0xC753,
+0xC754,
+0xC755,
+0xC756,
+0xC757,
+0xC758,
+0xC75C,
+0xC760,
+0xC768,
+0xC76B,
+0xC774,
+0xC775,
+0xC778,
+0xC77C,
+0xC77D,
+0xC77E,
+0xC783,
+0xC784,
+0xC785,
+0xC787,
+0xC788,
+0xC789,
+0xC78A,
+0xC78E,
+0xC790,
+0xC791,
+0xC794,
+0xC796,
+0xC797,
+0xC798,
+0xC79A,
+0xC7A0,
+0xC7A1,
+0xC7A3,
+0xC7A4,
+0xC7A5,
+0xC7A6,
+0xC7AC,
+0xC7AD,
+0xC7B0,
+0xC7B4,
+0xC7BC,
+0xC7BD,
+0xC7BF,
+0xC7C0,
+0xC7C1,
+0xC7C8,
+0xC7C9,
+0xC7CC,
+0xC7CE,
+0xC7D0,
+0xC7D8,
+0xC7DD,
+0xC7E4,
+0xC7E8,
+0xC7EC,
+0xC800,
+0xC801,
+0xC804,
+0xC808,
+0xC80A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD564,
+0xD566,
+0xD567,
+0xD56A,
+0xD56C,
+0xD56E,
+0xD56F,
+0xD570,
+0xD571,
+0xD572,
+0xD573,
+0xD576,
+0xD577,
+0xD579,
+0xD57A,
+0xD57B,
+0xD57D,
+0xD57E,
+0xD57F,
+0xD580,
+0xD581,
+0xD582,
+0xD583,
+0xD586,
+0xD58A,
+0xD58B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD58C,
+0xD58D,
+0xD58E,
+0xD58F,
+0xD591,
+0xD592,
+0xD593,
+0xD594,
+0xD595,
+0xD596,
+0xD597,
+0xD598,
+0xD599,
+0xD59A,
+0xD59B,
+0xD59C,
+0xD59D,
+0xD59E,
+0xD59F,
+0xD5A0,
+0xD5A1,
+0xD5A2,
+0xD5A3,
+0xD5A4,
+0xD5A6,
+0xD5A7,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD5A8,
+0xD5A9,
+0xD5AA,
+0xD5AB,
+0xD5AC,
+0xD5AD,
+0xD5AE,
+0xD5AF,
+0xD5B0,
+0xD5B1,
+0xD5B2,
+0xD5B3,
+0xD5B4,
+0xD5B5,
+0xD5B6,
+0xD5B7,
+0xD5B8,
+0xD5B9,
+0xD5BA,
+0xD5BB,
+0xD5BC,
+0xD5BD,
+0xD5BE,
+0xD5BF,
+0xD5C0,
+0xD5C1,
+0xD5C2,
+0xD5C3,
+0xD5C4,
+0xD5C5,
+0xD5C6,
+0xD5C7,
+0xC810,
+0xC811,
+0xC813,
+0xC815,
+0xC816,
+0xC81C,
+0xC81D,
+0xC820,
+0xC824,
+0xC82C,
+0xC82D,
+0xC82F,
+0xC831,
+0xC838,
+0xC83C,
+0xC840,
+0xC848,
+0xC849,
+0xC84C,
+0xC84D,
+0xC854,
+0xC870,
+0xC871,
+0xC874,
+0xC878,
+0xC87A,
+0xC880,
+0xC881,
+0xC883,
+0xC885,
+0xC886,
+0xC887,
+0xC88B,
+0xC88C,
+0xC88D,
+0xC894,
+0xC89D,
+0xC89F,
+0xC8A1,
+0xC8A8,
+0xC8BC,
+0xC8BD,
+0xC8C4,
+0xC8C8,
+0xC8CC,
+0xC8D4,
+0xC8D5,
+0xC8D7,
+0xC8D9,
+0xC8E0,
+0xC8E1,
+0xC8E4,
+0xC8F5,
+0xC8FC,
+0xC8FD,
+0xC900,
+0xC904,
+0xC905,
+0xC906,
+0xC90C,
+0xC90D,
+0xC90F,
+0xC911,
+0xC918,
+0xC92C,
+0xC934,
+0xC950,
+0xC951,
+0xC954,
+0xC958,
+0xC960,
+0xC961,
+0xC963,
+0xC96C,
+0xC970,
+0xC974,
+0xC97C,
+0xC988,
+0xC989,
+0xC98C,
+0xC990,
+0xC998,
+0xC999,
+0xC99B,
+0xC99D,
+0xC9C0,
+0xC9C1,
+0xC9C4,
+0xC9C7,
+0xC9C8,
+0xC9CA,
+0xC9D0,
+0xC9D1,
+0xC9D3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD5CA,
+0xD5CB,
+0xD5CD,
+0xD5CE,
+0xD5CF,
+0xD5D1,
+0xD5D3,
+0xD5D4,
+0xD5D5,
+0xD5D6,
+0xD5D7,
+0xD5DA,
+0xD5DC,
+0xD5DE,
+0xD5DF,
+0xD5E0,
+0xD5E1,
+0xD5E2,
+0xD5E3,
+0xD5E6,
+0xD5E7,
+0xD5E9,
+0xD5EA,
+0xD5EB,
+0xD5ED,
+0xD5EE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD5EF,
+0xD5F0,
+0xD5F1,
+0xD5F2,
+0xD5F3,
+0xD5F6,
+0xD5F8,
+0xD5FA,
+0xD5FB,
+0xD5FC,
+0xD5FD,
+0xD5FE,
+0xD5FF,
+0xD602,
+0xD603,
+0xD605,
+0xD606,
+0xD607,
+0xD609,
+0xD60A,
+0xD60B,
+0xD60C,
+0xD60D,
+0xD60E,
+0xD60F,
+0xD612,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD616,
+0xD617,
+0xD618,
+0xD619,
+0xD61A,
+0xD61B,
+0xD61D,
+0xD61E,
+0xD61F,
+0xD621,
+0xD622,
+0xD623,
+0xD625,
+0xD626,
+0xD627,
+0xD628,
+0xD629,
+0xD62A,
+0xD62B,
+0xD62C,
+0xD62E,
+0xD62F,
+0xD630,
+0xD631,
+0xD632,
+0xD633,
+0xD634,
+0xD635,
+0xD636,
+0xD637,
+0xD63A,
+0xD63B,
+0xC9D5,
+0xC9D6,
+0xC9D9,
+0xC9DA,
+0xC9DC,
+0xC9DD,
+0xC9E0,
+0xC9E2,
+0xC9E4,
+0xC9E7,
+0xC9EC,
+0xC9ED,
+0xC9EF,
+0xC9F0,
+0xC9F1,
+0xC9F8,
+0xC9F9,
+0xC9FC,
+0xCA00,
+0xCA08,
+0xCA09,
+0xCA0B,
+0xCA0C,
+0xCA0D,
+0xCA14,
+0xCA18,
+0xCA29,
+0xCA4C,
+0xCA4D,
+0xCA50,
+0xCA54,
+0xCA5C,
+0xCA5D,
+0xCA5F,
+0xCA60,
+0xCA61,
+0xCA68,
+0xCA7D,
+0xCA84,
+0xCA98,
+0xCABC,
+0xCABD,
+0xCAC0,
+0xCAC4,
+0xCACC,
+0xCACD,
+0xCACF,
+0xCAD1,
+0xCAD3,
+0xCAD8,
+0xCAD9,
+0xCAE0,
+0xCAEC,
+0xCAF4,
+0xCB08,
+0xCB10,
+0xCB14,
+0xCB18,
+0xCB20,
+0xCB21,
+0xCB41,
+0xCB48,
+0xCB49,
+0xCB4C,
+0xCB50,
+0xCB58,
+0xCB59,
+0xCB5D,
+0xCB64,
+0xCB78,
+0xCB79,
+0xCB9C,
+0xCBB8,
+0xCBD4,
+0xCBE4,
+0xCBE7,
+0xCBE9,
+0xCC0C,
+0xCC0D,
+0xCC10,
+0xCC14,
+0xCC1C,
+0xCC1D,
+0xCC21,
+0xCC22,
+0xCC27,
+0xCC28,
+0xCC29,
+0xCC2C,
+0xCC2E,
+0xCC30,
+0xCC38,
+0xCC39,
+0xCC3B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD63D,
+0xD63E,
+0xD63F,
+0xD641,
+0xD642,
+0xD643,
+0xD644,
+0xD646,
+0xD647,
+0xD64A,
+0xD64C,
+0xD64E,
+0xD64F,
+0xD650,
+0xD652,
+0xD653,
+0xD656,
+0xD657,
+0xD659,
+0xD65A,
+0xD65B,
+0xD65D,
+0xD65E,
+0xD65F,
+0xD660,
+0xD661,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD662,
+0xD663,
+0xD664,
+0xD665,
+0xD666,
+0xD668,
+0xD66A,
+0xD66B,
+0xD66C,
+0xD66D,
+0xD66E,
+0xD66F,
+0xD672,
+0xD673,
+0xD675,
+0xD676,
+0xD677,
+0xD678,
+0xD679,
+0xD67A,
+0xD67B,
+0xD67C,
+0xD67D,
+0xD67E,
+0xD67F,
+0xD680,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD681,
+0xD682,
+0xD684,
+0xD686,
+0xD687,
+0xD688,
+0xD689,
+0xD68A,
+0xD68B,
+0xD68E,
+0xD68F,
+0xD691,
+0xD692,
+0xD693,
+0xD695,
+0xD696,
+0xD697,
+0xD698,
+0xD699,
+0xD69A,
+0xD69B,
+0xD69C,
+0xD69E,
+0xD6A0,
+0xD6A2,
+0xD6A3,
+0xD6A4,
+0xD6A5,
+0xD6A6,
+0xD6A7,
+0xD6A9,
+0xD6AA,
+0xCC3C,
+0xCC3D,
+0xCC3E,
+0xCC44,
+0xCC45,
+0xCC48,
+0xCC4C,
+0xCC54,
+0xCC55,
+0xCC57,
+0xCC58,
+0xCC59,
+0xCC60,
+0xCC64,
+0xCC66,
+0xCC68,
+0xCC70,
+0xCC75,
+0xCC98,
+0xCC99,
+0xCC9C,
+0xCCA0,
+0xCCA8,
+0xCCA9,
+0xCCAB,
+0xCCAC,
+0xCCAD,
+0xCCB4,
+0xCCB5,
+0xCCB8,
+0xCCBC,
+0xCCC4,
+0xCCC5,
+0xCCC7,
+0xCCC9,
+0xCCD0,
+0xCCD4,
+0xCCE4,
+0xCCEC,
+0xCCF0,
+0xCD01,
+0xCD08,
+0xCD09,
+0xCD0C,
+0xCD10,
+0xCD18,
+0xCD19,
+0xCD1B,
+0xCD1D,
+0xCD24,
+0xCD28,
+0xCD2C,
+0xCD39,
+0xCD5C,
+0xCD60,
+0xCD64,
+0xCD6C,
+0xCD6D,
+0xCD6F,
+0xCD71,
+0xCD78,
+0xCD88,
+0xCD94,
+0xCD95,
+0xCD98,
+0xCD9C,
+0xCDA4,
+0xCDA5,
+0xCDA7,
+0xCDA9,
+0xCDB0,
+0xCDC4,
+0xCDCC,
+0xCDD0,
+0xCDE8,
+0xCDEC,
+0xCDF0,
+0xCDF8,
+0xCDF9,
+0xCDFB,
+0xCDFD,
+0xCE04,
+0xCE08,
+0xCE0C,
+0xCE14,
+0xCE19,
+0xCE20,
+0xCE21,
+0xCE24,
+0xCE28,
+0xCE30,
+0xCE31,
+0xCE33,
+0xCE35,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD6AB,
+0xD6AD,
+0xD6AE,
+0xD6AF,
+0xD6B1,
+0xD6B2,
+0xD6B3,
+0xD6B4,
+0xD6B5,
+0xD6B6,
+0xD6B7,
+0xD6B8,
+0xD6BA,
+0xD6BC,
+0xD6BD,
+0xD6BE,
+0xD6BF,
+0xD6C0,
+0xD6C1,
+0xD6C2,
+0xD6C3,
+0xD6C6,
+0xD6C7,
+0xD6C9,
+0xD6CA,
+0xD6CB,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD6CD,
+0xD6CE,
+0xD6CF,
+0xD6D0,
+0xD6D2,
+0xD6D3,
+0xD6D5,
+0xD6D6,
+0xD6D8,
+0xD6DA,
+0xD6DB,
+0xD6DC,
+0xD6DD,
+0xD6DE,
+0xD6DF,
+0xD6E1,
+0xD6E2,
+0xD6E3,
+0xD6E5,
+0xD6E6,
+0xD6E7,
+0xD6E9,
+0xD6EA,
+0xD6EB,
+0xD6EC,
+0xD6ED,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD6EE,
+0xD6EF,
+0xD6F1,
+0xD6F2,
+0xD6F3,
+0xD6F4,
+0xD6F6,
+0xD6F7,
+0xD6F8,
+0xD6F9,
+0xD6FA,
+0xD6FB,
+0xD6FE,
+0xD6FF,
+0xD701,
+0xD702,
+0xD703,
+0xD705,
+0xD706,
+0xD707,
+0xD708,
+0xD709,
+0xD70A,
+0xD70B,
+0xD70C,
+0xD70D,
+0xD70E,
+0xD70F,
+0xD710,
+0xD712,
+0xD713,
+0xD714,
+0xCE58,
+0xCE59,
+0xCE5C,
+0xCE5F,
+0xCE60,
+0xCE61,
+0xCE68,
+0xCE69,
+0xCE6B,
+0xCE6D,
+0xCE74,
+0xCE75,
+0xCE78,
+0xCE7C,
+0xCE84,
+0xCE85,
+0xCE87,
+0xCE89,
+0xCE90,
+0xCE91,
+0xCE94,
+0xCE98,
+0xCEA0,
+0xCEA1,
+0xCEA3,
+0xCEA4,
+0xCEA5,
+0xCEAC,
+0xCEAD,
+0xCEC1,
+0xCEE4,
+0xCEE5,
+0xCEE8,
+0xCEEB,
+0xCEEC,
+0xCEF4,
+0xCEF5,
+0xCEF7,
+0xCEF8,
+0xCEF9,
+0xCF00,
+0xCF01,
+0xCF04,
+0xCF08,
+0xCF10,
+0xCF11,
+0xCF13,
+0xCF15,
+0xCF1C,
+0xCF20,
+0xCF24,
+0xCF2C,
+0xCF2D,
+0xCF2F,
+0xCF30,
+0xCF31,
+0xCF38,
+0xCF54,
+0xCF55,
+0xCF58,
+0xCF5C,
+0xCF64,
+0xCF65,
+0xCF67,
+0xCF69,
+0xCF70,
+0xCF71,
+0xCF74,
+0xCF78,
+0xCF80,
+0xCF85,
+0xCF8C,
+0xCFA1,
+0xCFA8,
+0xCFB0,
+0xCFC4,
+0xCFE0,
+0xCFE1,
+0xCFE4,
+0xCFE8,
+0xCFF0,
+0xCFF1,
+0xCFF3,
+0xCFF5,
+0xCFFC,
+0xD000,
+0xD004,
+0xD011,
+0xD018,
+0xD02D,
+0xD034,
+0xD035,
+0xD038,
+0xD03C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD715,
+0xD716,
+0xD717,
+0xD71A,
+0xD71B,
+0xD71D,
+0xD71E,
+0xD71F,
+0xD721,
+0xD722,
+0xD723,
+0xD724,
+0xD725,
+0xD726,
+0xD727,
+0xD72A,
+0xD72C,
+0xD72E,
+0xD72F,
+0xD730,
+0xD731,
+0xD732,
+0xD733,
+0xD736,
+0xD737,
+0xD739,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD73A,
+0xD73B,
+0xD73D,
+0xD73E,
+0xD73F,
+0xD740,
+0xD741,
+0xD742,
+0xD743,
+0xD745,
+0xD746,
+0xD748,
+0xD74A,
+0xD74B,
+0xD74C,
+0xD74D,
+0xD74E,
+0xD74F,
+0xD752,
+0xD753,
+0xD755,
+0xD75A,
+0xD75B,
+0xD75C,
+0xD75D,
+0xD75E,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD75F,
+0xD762,
+0xD764,
+0xD766,
+0xD767,
+0xD768,
+0xD76A,
+0xD76B,
+0xD76D,
+0xD76E,
+0xD76F,
+0xD771,
+0xD772,
+0xD773,
+0xD775,
+0xD776,
+0xD777,
+0xD778,
+0xD779,
+0xD77A,
+0xD77B,
+0xD77E,
+0xD77F,
+0xD780,
+0xD782,
+0xD783,
+0xD784,
+0xD785,
+0xD786,
+0xD787,
+0xD78A,
+0xD78B,
+0xD044,
+0xD045,
+0xD047,
+0xD049,
+0xD050,
+0xD054,
+0xD058,
+0xD060,
+0xD06C,
+0xD06D,
+0xD070,
+0xD074,
+0xD07C,
+0xD07D,
+0xD081,
+0xD0A4,
+0xD0A5,
+0xD0A8,
+0xD0AC,
+0xD0B4,
+0xD0B5,
+0xD0B7,
+0xD0B9,
+0xD0C0,
+0xD0C1,
+0xD0C4,
+0xD0C8,
+0xD0C9,
+0xD0D0,
+0xD0D1,
+0xD0D3,
+0xD0D4,
+0xD0D5,
+0xD0DC,
+0xD0DD,
+0xD0E0,
+0xD0E4,
+0xD0EC,
+0xD0ED,
+0xD0EF,
+0xD0F0,
+0xD0F1,
+0xD0F8,
+0xD10D,
+0xD130,
+0xD131,
+0xD134,
+0xD138,
+0xD13A,
+0xD140,
+0xD141,
+0xD143,
+0xD144,
+0xD145,
+0xD14C,
+0xD14D,
+0xD150,
+0xD154,
+0xD15C,
+0xD15D,
+0xD15F,
+0xD161,
+0xD168,
+0xD16C,
+0xD17C,
+0xD184,
+0xD188,
+0xD1A0,
+0xD1A1,
+0xD1A4,
+0xD1A8,
+0xD1B0,
+0xD1B1,
+0xD1B3,
+0xD1B5,
+0xD1BA,
+0xD1BC,
+0xD1C0,
+0xD1D8,
+0xD1F4,
+0xD1F8,
+0xD207,
+0xD209,
+0xD210,
+0xD22C,
+0xD22D,
+0xD230,
+0xD234,
+0xD23C,
+0xD23D,
+0xD23F,
+0xD241,
+0xD248,
+0xD25C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD78D,
+0xD78E,
+0xD78F,
+0xD791,
+0xD792,
+0xD793,
+0xD794,
+0xD795,
+0xD796,
+0xD797,
+0xD79A,
+0xD79C,
+0xD79E,
+0xD79F,
+0xD7A0,
+0xD7A1,
+0xD7A2,
+0xD7A3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD264,
+0xD280,
+0xD281,
+0xD284,
+0xD288,
+0xD290,
+0xD291,
+0xD295,
+0xD29C,
+0xD2A0,
+0xD2A4,
+0xD2AC,
+0xD2B1,
+0xD2B8,
+0xD2B9,
+0xD2BC,
+0xD2BF,
+0xD2C0,
+0xD2C2,
+0xD2C8,
+0xD2C9,
+0xD2CB,
+0xD2D4,
+0xD2D8,
+0xD2DC,
+0xD2E4,
+0xD2E5,
+0xD2F0,
+0xD2F1,
+0xD2F4,
+0xD2F8,
+0xD300,
+0xD301,
+0xD303,
+0xD305,
+0xD30C,
+0xD30D,
+0xD30E,
+0xD310,
+0xD314,
+0xD316,
+0xD31C,
+0xD31D,
+0xD31F,
+0xD320,
+0xD321,
+0xD325,
+0xD328,
+0xD329,
+0xD32C,
+0xD330,
+0xD338,
+0xD339,
+0xD33B,
+0xD33C,
+0xD33D,
+0xD344,
+0xD345,
+0xD37C,
+0xD37D,
+0xD380,
+0xD384,
+0xD38C,
+0xD38D,
+0xD38F,
+0xD390,
+0xD391,
+0xD398,
+0xD399,
+0xD39C,
+0xD3A0,
+0xD3A8,
+0xD3A9,
+0xD3AB,
+0xD3AD,
+0xD3B4,
+0xD3B8,
+0xD3BC,
+0xD3C4,
+0xD3C5,
+0xD3C8,
+0xD3C9,
+0xD3D0,
+0xD3D8,
+0xD3E1,
+0xD3E3,
+0xD3EC,
+0xD3ED,
+0xD3F0,
+0xD3F4,
+0xD3FC,
+0xD3FD,
+0xD3FF,
+0xD401,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD408,
+0xD41D,
+0xD440,
+0xD444,
+0xD45C,
+0xD460,
+0xD464,
+0xD46D,
+0xD46F,
+0xD478,
+0xD479,
+0xD47C,
+0xD47F,
+0xD480,
+0xD482,
+0xD488,
+0xD489,
+0xD48B,
+0xD48D,
+0xD494,
+0xD4A9,
+0xD4CC,
+0xD4D0,
+0xD4D4,
+0xD4DC,
+0xD4DF,
+0xD4E8,
+0xD4EC,
+0xD4F0,
+0xD4F8,
+0xD4FB,
+0xD4FD,
+0xD504,
+0xD508,
+0xD50C,
+0xD514,
+0xD515,
+0xD517,
+0xD53C,
+0xD53D,
+0xD540,
+0xD544,
+0xD54C,
+0xD54D,
+0xD54F,
+0xD551,
+0xD558,
+0xD559,
+0xD55C,
+0xD560,
+0xD565,
+0xD568,
+0xD569,
+0xD56B,
+0xD56D,
+0xD574,
+0xD575,
+0xD578,
+0xD57C,
+0xD584,
+0xD585,
+0xD587,
+0xD588,
+0xD589,
+0xD590,
+0xD5A5,
+0xD5C8,
+0xD5C9,
+0xD5CC,
+0xD5D0,
+0xD5D2,
+0xD5D8,
+0xD5D9,
+0xD5DB,
+0xD5DD,
+0xD5E4,
+0xD5E5,
+0xD5E8,
+0xD5EC,
+0xD5F4,
+0xD5F5,
+0xD5F7,
+0xD5F9,
+0xD600,
+0xD601,
+0xD604,
+0xD608,
+0xD610,
+0xD611,
+0xD613,
+0xD614,
+0xD615,
+0xD61C,
+0xD620,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xD624,
+0xD62D,
+0xD638,
+0xD639,
+0xD63C,
+0xD640,
+0xD645,
+0xD648,
+0xD649,
+0xD64B,
+0xD64D,
+0xD651,
+0xD654,
+0xD655,
+0xD658,
+0xD65C,
+0xD667,
+0xD669,
+0xD670,
+0xD671,
+0xD674,
+0xD683,
+0xD685,
+0xD68C,
+0xD68D,
+0xD690,
+0xD694,
+0xD69D,
+0xD69F,
+0xD6A1,
+0xD6A8,
+0xD6AC,
+0xD6B0,
+0xD6B9,
+0xD6BB,
+0xD6C4,
+0xD6C5,
+0xD6C8,
+0xD6CC,
+0xD6D1,
+0xD6D4,
+0xD6D7,
+0xD6D9,
+0xD6E0,
+0xD6E4,
+0xD6E8,
+0xD6F0,
+0xD6F5,
+0xD6FC,
+0xD6FD,
+0xD700,
+0xD704,
+0xD711,
+0xD718,
+0xD719,
+0xD71C,
+0xD720,
+0xD728,
+0xD729,
+0xD72B,
+0xD72D,
+0xD734,
+0xD735,
+0xD738,
+0xD73C,
+0xD744,
+0xD747,
+0xD749,
+0xD750,
+0xD751,
+0xD754,
+0xD756,
+0xD757,
+0xD758,
+0xD759,
+0xD760,
+0xD761,
+0xD763,
+0xD765,
+0xD769,
+0xD76C,
+0xD770,
+0xD774,
+0xD77C,
+0xD77D,
+0xD781,
+0xD788,
+0xD789,
+0xD78C,
+0xD790,
+0xD798,
+0xD799,
+0xD79B,
+0xD79D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4F3D,
+0x4F73,
+0x5047,
+0x50F9,
+0x52A0,
+0x53EF,
+0x5475,
+0x54E5,
+0x5609,
+0x5AC1,
+0x5BB6,
+0x6687,
+0x67B6,
+0x67B7,
+0x67EF,
+0x6B4C,
+0x73C2,
+0x75C2,
+0x7A3C,
+0x82DB,
+0x8304,
+0x8857,
+0x8888,
+0x8A36,
+0x8CC8,
+0x8DCF,
+0x8EFB,
+0x8FE6,
+0x99D5,
+0x523B,
+0x5374,
+0x5404,
+0x606A,
+0x6164,
+0x6BBC,
+0x73CF,
+0x811A,
+0x89BA,
+0x89D2,
+0x95A3,
+0x4F83,
+0x520A,
+0x58BE,
+0x5978,
+0x59E6,
+0x5E72,
+0x5E79,
+0x61C7,
+0x63C0,
+0x6746,
+0x67EC,
+0x687F,
+0x6F97,
+0x764E,
+0x770B,
+0x78F5,
+0x7A08,
+0x7AFF,
+0x7C21,
+0x809D,
+0x826E,
+0x8271,
+0x8AEB,
+0x9593,
+0x4E6B,
+0x559D,
+0x66F7,
+0x6E34,
+0x78A3,
+0x7AED,
+0x845B,
+0x8910,
+0x874E,
+0x97A8,
+0x52D8,
+0x574E,
+0x582A,
+0x5D4C,
+0x611F,
+0x61BE,
+0x6221,
+0x6562,
+0x67D1,
+0x6A44,
+0x6E1B,
+0x7518,
+0x75B3,
+0x76E3,
+0x77B0,
+0x7D3A,
+0x90AF,
+0x9451,
+0x9452,
+0x9F95,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5323,
+0x5CAC,
+0x7532,
+0x80DB,
+0x9240,
+0x9598,
+0x525B,
+0x5808,
+0x59DC,
+0x5CA1,
+0x5D17,
+0x5EB7,
+0x5F3A,
+0x5F4A,
+0x6177,
+0x6C5F,
+0x757A,
+0x7586,
+0x7CE0,
+0x7D73,
+0x7DB1,
+0x7F8C,
+0x8154,
+0x8221,
+0x8591,
+0x8941,
+0x8B1B,
+0x92FC,
+0x964D,
+0x9C47,
+0x4ECB,
+0x4EF7,
+0x500B,
+0x51F1,
+0x584F,
+0x6137,
+0x613E,
+0x6168,
+0x6539,
+0x69EA,
+0x6F11,
+0x75A5,
+0x7686,
+0x76D6,
+0x7B87,
+0x82A5,
+0x84CB,
+0xF900,
+0x93A7,
+0x958B,
+0x5580,
+0x5BA2,
+0x5751,
+0xF901,
+0x7CB3,
+0x7FB9,
+0x91B5,
+0x5028,
+0x53BB,
+0x5C45,
+0x5DE8,
+0x62D2,
+0x636E,
+0x64DA,
+0x64E7,
+0x6E20,
+0x70AC,
+0x795B,
+0x8DDD,
+0x8E1E,
+0xF902,
+0x907D,
+0x9245,
+0x92F8,
+0x4E7E,
+0x4EF6,
+0x5065,
+0x5DFE,
+0x5EFA,
+0x6106,
+0x6957,
+0x8171,
+0x8654,
+0x8E47,
+0x9375,
+0x9A2B,
+0x4E5E,
+0x5091,
+0x6770,
+0x6840,
+0x5109,
+0x528D,
+0x5292,
+0x6AA2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x77BC,
+0x9210,
+0x9ED4,
+0x52AB,
+0x602F,
+0x8FF2,
+0x5048,
+0x61A9,
+0x63ED,
+0x64CA,
+0x683C,
+0x6A84,
+0x6FC0,
+0x8188,
+0x89A1,
+0x9694,
+0x5805,
+0x727D,
+0x72AC,
+0x7504,
+0x7D79,
+0x7E6D,
+0x80A9,
+0x898B,
+0x8B74,
+0x9063,
+0x9D51,
+0x6289,
+0x6C7A,
+0x6F54,
+0x7D50,
+0x7F3A,
+0x8A23,
+0x517C,
+0x614A,
+0x7B9D,
+0x8B19,
+0x9257,
+0x938C,
+0x4EAC,
+0x4FD3,
+0x501E,
+0x50BE,
+0x5106,
+0x52C1,
+0x52CD,
+0x537F,
+0x5770,
+0x5883,
+0x5E9A,
+0x5F91,
+0x6176,
+0x61AC,
+0x64CE,
+0x656C,
+0x666F,
+0x66BB,
+0x66F4,
+0x6897,
+0x6D87,
+0x7085,
+0x70F1,
+0x749F,
+0x74A5,
+0x74CA,
+0x75D9,
+0x786C,
+0x78EC,
+0x7ADF,
+0x7AF6,
+0x7D45,
+0x7D93,
+0x8015,
+0x803F,
+0x811B,
+0x8396,
+0x8B66,
+0x8F15,
+0x9015,
+0x93E1,
+0x9803,
+0x9838,
+0x9A5A,
+0x9BE8,
+0x4FC2,
+0x5553,
+0x583A,
+0x5951,
+0x5B63,
+0x5C46,
+0x60B8,
+0x6212,
+0x6842,
+0x68B0,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x68E8,
+0x6EAA,
+0x754C,
+0x7678,
+0x78CE,
+0x7A3D,
+0x7CFB,
+0x7E6B,
+0x7E7C,
+0x8A08,
+0x8AA1,
+0x8C3F,
+0x968E,
+0x9DC4,
+0x53E4,
+0x53E9,
+0x544A,
+0x5471,
+0x56FA,
+0x59D1,
+0x5B64,
+0x5C3B,
+0x5EAB,
+0x62F7,
+0x6537,
+0x6545,
+0x6572,
+0x66A0,
+0x67AF,
+0x69C1,
+0x6CBD,
+0x75FC,
+0x7690,
+0x777E,
+0x7A3F,
+0x7F94,
+0x8003,
+0x80A1,
+0x818F,
+0x82E6,
+0x82FD,
+0x83F0,
+0x85C1,
+0x8831,
+0x88B4,
+0x8AA5,
+0xF903,
+0x8F9C,
+0x932E,
+0x96C7,
+0x9867,
+0x9AD8,
+0x9F13,
+0x54ED,
+0x659B,
+0x66F2,
+0x688F,
+0x7A40,
+0x8C37,
+0x9D60,
+0x56F0,
+0x5764,
+0x5D11,
+0x6606,
+0x68B1,
+0x68CD,
+0x6EFE,
+0x7428,
+0x889E,
+0x9BE4,
+0x6C68,
+0xF904,
+0x9AA8,
+0x4F9B,
+0x516C,
+0x5171,
+0x529F,
+0x5B54,
+0x5DE5,
+0x6050,
+0x606D,
+0x62F1,
+0x63A7,
+0x653B,
+0x73D9,
+0x7A7A,
+0x86A3,
+0x8CA2,
+0x978F,
+0x4E32,
+0x5BE1,
+0x6208,
+0x679C,
+0x74DC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x79D1,
+0x83D3,
+0x8A87,
+0x8AB2,
+0x8DE8,
+0x904E,
+0x934B,
+0x9846,
+0x5ED3,
+0x69E8,
+0x85FF,
+0x90ED,
+0xF905,
+0x51A0,
+0x5B98,
+0x5BEC,
+0x6163,
+0x68FA,
+0x6B3E,
+0x704C,
+0x742F,
+0x74D8,
+0x7BA1,
+0x7F50,
+0x83C5,
+0x89C0,
+0x8CAB,
+0x95DC,
+0x9928,
+0x522E,
+0x605D,
+0x62EC,
+0x9002,
+0x4F8A,
+0x5149,
+0x5321,
+0x58D9,
+0x5EE3,
+0x66E0,
+0x6D38,
+0x709A,
+0x72C2,
+0x73D6,
+0x7B50,
+0x80F1,
+0x945B,
+0x5366,
+0x639B,
+0x7F6B,
+0x4E56,
+0x5080,
+0x584A,
+0x58DE,
+0x602A,
+0x6127,
+0x62D0,
+0x69D0,
+0x9B41,
+0x5B8F,
+0x7D18,
+0x80B1,
+0x8F5F,
+0x4EA4,
+0x50D1,
+0x54AC,
+0x55AC,
+0x5B0C,
+0x5DA0,
+0x5DE7,
+0x652A,
+0x654E,
+0x6821,
+0x6A4B,
+0x72E1,
+0x768E,
+0x77EF,
+0x7D5E,
+0x7FF9,
+0x81A0,
+0x854E,
+0x86DF,
+0x8F03,
+0x8F4E,
+0x90CA,
+0x9903,
+0x9A55,
+0x9BAB,
+0x4E18,
+0x4E45,
+0x4E5D,
+0x4EC7,
+0x4FF1,
+0x5177,
+0x52FE,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5340,
+0x53E3,
+0x53E5,
+0x548E,
+0x5614,
+0x5775,
+0x57A2,
+0x5BC7,
+0x5D87,
+0x5ED0,
+0x61FC,
+0x62D8,
+0x6551,
+0x67B8,
+0x67E9,
+0x69CB,
+0x6B50,
+0x6BC6,
+0x6BEC,
+0x6C42,
+0x6E9D,
+0x7078,
+0x72D7,
+0x7396,
+0x7403,
+0x77BF,
+0x77E9,
+0x7A76,
+0x7D7F,
+0x8009,
+0x81FC,
+0x8205,
+0x820A,
+0x82DF,
+0x8862,
+0x8B33,
+0x8CFC,
+0x8EC0,
+0x9011,
+0x90B1,
+0x9264,
+0x92B6,
+0x99D2,
+0x9A45,
+0x9CE9,
+0x9DD7,
+0x9F9C,
+0x570B,
+0x5C40,
+0x83CA,
+0x97A0,
+0x97AB,
+0x9EB4,
+0x541B,
+0x7A98,
+0x7FA4,
+0x88D9,
+0x8ECD,
+0x90E1,
+0x5800,
+0x5C48,
+0x6398,
+0x7A9F,
+0x5BAE,
+0x5F13,
+0x7A79,
+0x7AAE,
+0x828E,
+0x8EAC,
+0x5026,
+0x5238,
+0x52F8,
+0x5377,
+0x5708,
+0x62F3,
+0x6372,
+0x6B0A,
+0x6DC3,
+0x7737,
+0x53A5,
+0x7357,
+0x8568,
+0x8E76,
+0x95D5,
+0x673A,
+0x6AC3,
+0x6F70,
+0x8A6D,
+0x8ECC,
+0x994B,
+0xF906,
+0x6677,
+0x6B78,
+0x8CB4,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9B3C,
+0xF907,
+0x53EB,
+0x572D,
+0x594E,
+0x63C6,
+0x69FB,
+0x73EA,
+0x7845,
+0x7ABA,
+0x7AC5,
+0x7CFE,
+0x8475,
+0x898F,
+0x8D73,
+0x9035,
+0x95A8,
+0x52FB,
+0x5747,
+0x7547,
+0x7B60,
+0x83CC,
+0x921E,
+0xF908,
+0x6A58,
+0x514B,
+0x524B,
+0x5287,
+0x621F,
+0x68D8,
+0x6975,
+0x9699,
+0x50C5,
+0x52A4,
+0x52E4,
+0x61C3,
+0x65A4,
+0x6839,
+0x69FF,
+0x747E,
+0x7B4B,
+0x82B9,
+0x83EB,
+0x89B2,
+0x8B39,
+0x8FD1,
+0x9949,
+0xF909,
+0x4ECA,
+0x5997,
+0x64D2,
+0x6611,
+0x6A8E,
+0x7434,
+0x7981,
+0x79BD,
+0x82A9,
+0x887E,
+0x887F,
+0x895F,
+0xF90A,
+0x9326,
+0x4F0B,
+0x53CA,
+0x6025,
+0x6271,
+0x6C72,
+0x7D1A,
+0x7D66,
+0x4E98,
+0x5162,
+0x77DC,
+0x80AF,
+0x4F01,
+0x4F0E,
+0x5176,
+0x5180,
+0x55DC,
+0x5668,
+0x573B,
+0x57FA,
+0x57FC,
+0x5914,
+0x5947,
+0x5993,
+0x5BC4,
+0x5C90,
+0x5D0E,
+0x5DF1,
+0x5E7E,
+0x5FCC,
+0x6280,
+0x65D7,
+0x65E3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x671E,
+0x671F,
+0x675E,
+0x68CB,
+0x68C4,
+0x6A5F,
+0x6B3A,
+0x6C23,
+0x6C7D,
+0x6C82,
+0x6DC7,
+0x7398,
+0x7426,
+0x742A,
+0x7482,
+0x74A3,
+0x7578,
+0x757F,
+0x7881,
+0x78EF,
+0x7941,
+0x7947,
+0x7948,
+0x797A,
+0x7B95,
+0x7D00,
+0x7DBA,
+0x7F88,
+0x8006,
+0x802D,
+0x808C,
+0x8A18,
+0x8B4F,
+0x8C48,
+0x8D77,
+0x9321,
+0x9324,
+0x98E2,
+0x9951,
+0x9A0E,
+0x9A0F,
+0x9A65,
+0x9E92,
+0x7DCA,
+0x4F76,
+0x5409,
+0x62EE,
+0x6854,
+0x91D1,
+0x55AB,
+0x513A,
+0xF90B,
+0xF90C,
+0x5A1C,
+0x61E6,
+0xF90D,
+0x62CF,
+0x62FF,
+0xF90E,
+0xF90F,
+0xF910,
+0xF911,
+0xF912,
+0xF913,
+0x90A3,
+0xF914,
+0xF915,
+0xF916,
+0xF917,
+0xF918,
+0x8AFE,
+0xF919,
+0xF91A,
+0xF91B,
+0xF91C,
+0x6696,
+0xF91D,
+0x7156,
+0xF91E,
+0xF91F,
+0x96E3,
+0xF920,
+0x634F,
+0x637A,
+0x5357,
+0xF921,
+0x678F,
+0x6960,
+0x6E73,
+0xF922,
+0x7537,
+0xF923,
+0xF924,
+0xF925,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7D0D,
+0xF926,
+0xF927,
+0x8872,
+0x56CA,
+0x5A18,
+0xF928,
+0xF929,
+0xF92A,
+0xF92B,
+0xF92C,
+0x4E43,
+0xF92D,
+0x5167,
+0x5948,
+0x67F0,
+0x8010,
+0xF92E,
+0x5973,
+0x5E74,
+0x649A,
+0x79CA,
+0x5FF5,
+0x606C,
+0x62C8,
+0x637B,
+0x5BE7,
+0x5BD7,
+0x52AA,
+0xF92F,
+0x5974,
+0x5F29,
+0x6012,
+0xF930,
+0xF931,
+0xF932,
+0x7459,
+0xF933,
+0xF934,
+0xF935,
+0xF936,
+0xF937,
+0xF938,
+0x99D1,
+0xF939,
+0xF93A,
+0xF93B,
+0xF93C,
+0xF93D,
+0xF93E,
+0xF93F,
+0xF940,
+0xF941,
+0xF942,
+0xF943,
+0x6FC3,
+0xF944,
+0xF945,
+0x81BF,
+0x8FB2,
+0x60F1,
+0xF946,
+0xF947,
+0x8166,
+0xF948,
+0xF949,
+0x5C3F,
+0xF94A,
+0xF94B,
+0xF94C,
+0xF94D,
+0xF94E,
+0xF94F,
+0xF950,
+0xF951,
+0x5AE9,
+0x8A25,
+0x677B,
+0x7D10,
+0xF952,
+0xF953,
+0xF954,
+0xF955,
+0xF956,
+0xF957,
+0x80FD,
+0xF958,
+0xF959,
+0x5C3C,
+0x6CE5,
+0x533F,
+0x6EBA,
+0x591A,
+0x8336,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x4E39,
+0x4EB6,
+0x4F46,
+0x55AE,
+0x5718,
+0x58C7,
+0x5F56,
+0x65B7,
+0x65E6,
+0x6A80,
+0x6BB5,
+0x6E4D,
+0x77ED,
+0x7AEF,
+0x7C1E,
+0x7DDE,
+0x86CB,
+0x8892,
+0x9132,
+0x935B,
+0x64BB,
+0x6FBE,
+0x737A,
+0x75B8,
+0x9054,
+0x5556,
+0x574D,
+0x61BA,
+0x64D4,
+0x66C7,
+0x6DE1,
+0x6E5B,
+0x6F6D,
+0x6FB9,
+0x75F0,
+0x8043,
+0x81BD,
+0x8541,
+0x8983,
+0x8AC7,
+0x8B5A,
+0x931F,
+0x6C93,
+0x7553,
+0x7B54,
+0x8E0F,
+0x905D,
+0x5510,
+0x5802,
+0x5858,
+0x5E62,
+0x6207,
+0x649E,
+0x68E0,
+0x7576,
+0x7CD6,
+0x87B3,
+0x9EE8,
+0x4EE3,
+0x5788,
+0x576E,
+0x5927,
+0x5C0D,
+0x5CB1,
+0x5E36,
+0x5F85,
+0x6234,
+0x64E1,
+0x73B3,
+0x81FA,
+0x888B,
+0x8CB8,
+0x968A,
+0x9EDB,
+0x5B85,
+0x5FB7,
+0x60B3,
+0x5012,
+0x5200,
+0x5230,
+0x5716,
+0x5835,
+0x5857,
+0x5C0E,
+0x5C60,
+0x5CF6,
+0x5D8B,
+0x5EA6,
+0x5F92,
+0x60BC,
+0x6311,
+0x6389,
+0x6417,
+0x6843,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x68F9,
+0x6AC2,
+0x6DD8,
+0x6E21,
+0x6ED4,
+0x6FE4,
+0x71FE,
+0x76DC,
+0x7779,
+0x79B1,
+0x7A3B,
+0x8404,
+0x89A9,
+0x8CED,
+0x8DF3,
+0x8E48,
+0x9003,
+0x9014,
+0x9053,
+0x90FD,
+0x934D,
+0x9676,
+0x97DC,
+0x6BD2,
+0x7006,
+0x7258,
+0x72A2,
+0x7368,
+0x7763,
+0x79BF,
+0x7BE4,
+0x7E9B,
+0x8B80,
+0x58A9,
+0x60C7,
+0x6566,
+0x65FD,
+0x66BE,
+0x6C8C,
+0x711E,
+0x71C9,
+0x8C5A,
+0x9813,
+0x4E6D,
+0x7A81,
+0x4EDD,
+0x51AC,
+0x51CD,
+0x52D5,
+0x540C,
+0x61A7,
+0x6771,
+0x6850,
+0x68DF,
+0x6D1E,
+0x6F7C,
+0x75BC,
+0x77B3,
+0x7AE5,
+0x80F4,
+0x8463,
+0x9285,
+0x515C,
+0x6597,
+0x675C,
+0x6793,
+0x75D8,
+0x7AC7,
+0x8373,
+0xF95A,
+0x8C46,
+0x9017,
+0x982D,
+0x5C6F,
+0x81C0,
+0x829A,
+0x9041,
+0x906F,
+0x920D,
+0x5F97,
+0x5D9D,
+0x6A59,
+0x71C8,
+0x767B,
+0x7B49,
+0x85E4,
+0x8B04,
+0x9127,
+0x9A30,
+0x5587,
+0x61F6,
+0xF95B,
+0x7669,
+0x7F85,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x863F,
+0x87BA,
+0x88F8,
+0x908F,
+0xF95C,
+0x6D1B,
+0x70D9,
+0x73DE,
+0x7D61,
+0x843D,
+0xF95D,
+0x916A,
+0x99F1,
+0xF95E,
+0x4E82,
+0x5375,
+0x6B04,
+0x6B12,
+0x703E,
+0x721B,
+0x862D,
+0x9E1E,
+0x524C,
+0x8FA3,
+0x5D50,
+0x64E5,
+0x652C,
+0x6B16,
+0x6FEB,
+0x7C43,
+0x7E9C,
+0x85CD,
+0x8964,
+0x89BD,
+0x62C9,
+0x81D8,
+0x881F,
+0x5ECA,
+0x6717,
+0x6D6A,
+0x72FC,
+0x7405,
+0x746F,
+0x8782,
+0x90DE,
+0x4F86,
+0x5D0D,
+0x5FA0,
+0x840A,
+0x51B7,
+0x63A0,
+0x7565,
+0x4EAE,
+0x5006,
+0x5169,
+0x51C9,
+0x6881,
+0x6A11,
+0x7CAE,
+0x7CB1,
+0x7CE7,
+0x826F,
+0x8AD2,
+0x8F1B,
+0x91CF,
+0x4FB6,
+0x5137,
+0x52F5,
+0x5442,
+0x5EEC,
+0x616E,
+0x623E,
+0x65C5,
+0x6ADA,
+0x6FFE,
+0x792A,
+0x85DC,
+0x8823,
+0x95AD,
+0x9A62,
+0x9A6A,
+0x9E97,
+0x9ECE,
+0x529B,
+0x66C6,
+0x6B77,
+0x701D,
+0x792B,
+0x8F62,
+0x9742,
+0x6190,
+0x6200,
+0x6523,
+0x6F23,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7149,
+0x7489,
+0x7DF4,
+0x806F,
+0x84EE,
+0x8F26,
+0x9023,
+0x934A,
+0x51BD,
+0x5217,
+0x52A3,
+0x6D0C,
+0x70C8,
+0x88C2,
+0x5EC9,
+0x6582,
+0x6BAE,
+0x6FC2,
+0x7C3E,
+0x7375,
+0x4EE4,
+0x4F36,
+0x56F9,
+0xF95F,
+0x5CBA,
+0x5DBA,
+0x601C,
+0x73B2,
+0x7B2D,
+0x7F9A,
+0x7FCE,
+0x8046,
+0x901E,
+0x9234,
+0x96F6,
+0x9748,
+0x9818,
+0x9F61,
+0x4F8B,
+0x6FA7,
+0x79AE,
+0x91B4,
+0x96B7,
+0x52DE,
+0xF960,
+0x6488,
+0x64C4,
+0x6AD3,
+0x6F5E,
+0x7018,
+0x7210,
+0x76E7,
+0x8001,
+0x8606,
+0x865C,
+0x8DEF,
+0x8F05,
+0x9732,
+0x9B6F,
+0x9DFA,
+0x9E75,
+0x788C,
+0x797F,
+0x7DA0,
+0x83C9,
+0x9304,
+0x9E7F,
+0x9E93,
+0x8AD6,
+0x58DF,
+0x5F04,
+0x6727,
+0x7027,
+0x74CF,
+0x7C60,
+0x807E,
+0x5121,
+0x7028,
+0x7262,
+0x78CA,
+0x8CC2,
+0x8CDA,
+0x8CF4,
+0x96F7,
+0x4E86,
+0x50DA,
+0x5BEE,
+0x5ED6,
+0x6599,
+0x71CE,
+0x7642,
+0x77AD,
+0x804A,
+0x84FC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x907C,
+0x9B27,
+0x9F8D,
+0x58D8,
+0x5A41,
+0x5C62,
+0x6A13,
+0x6DDA,
+0x6F0F,
+0x763B,
+0x7D2F,
+0x7E37,
+0x851E,
+0x8938,
+0x93E4,
+0x964B,
+0x5289,
+0x65D2,
+0x67F3,
+0x69B4,
+0x6D41,
+0x6E9C,
+0x700F,
+0x7409,
+0x7460,
+0x7559,
+0x7624,
+0x786B,
+0x8B2C,
+0x985E,
+0x516D,
+0x622E,
+0x9678,
+0x4F96,
+0x502B,
+0x5D19,
+0x6DEA,
+0x7DB8,
+0x8F2A,
+0x5F8B,
+0x6144,
+0x6817,
+0xF961,
+0x9686,
+0x52D2,
+0x808B,
+0x51DC,
+0x51CC,
+0x695E,
+0x7A1C,
+0x7DBE,
+0x83F1,
+0x9675,
+0x4FDA,
+0x5229,
+0x5398,
+0x540F,
+0x550E,
+0x5C65,
+0x60A7,
+0x674E,
+0x68A8,
+0x6D6C,
+0x7281,
+0x72F8,
+0x7406,
+0x7483,
+0xF962,
+0x75E2,
+0x7C6C,
+0x7F79,
+0x7FB8,
+0x8389,
+0x88CF,
+0x88E1,
+0x91CC,
+0x91D0,
+0x96E2,
+0x9BC9,
+0x541D,
+0x6F7E,
+0x71D0,
+0x7498,
+0x85FA,
+0x8EAA,
+0x96A3,
+0x9C57,
+0x9E9F,
+0x6797,
+0x6DCB,
+0x7433,
+0x81E8,
+0x9716,
+0x782C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7ACB,
+0x7B20,
+0x7C92,
+0x6469,
+0x746A,
+0x75F2,
+0x78BC,
+0x78E8,
+0x99AC,
+0x9B54,
+0x9EBB,
+0x5BDE,
+0x5E55,
+0x6F20,
+0x819C,
+0x83AB,
+0x9088,
+0x4E07,
+0x534D,
+0x5A29,
+0x5DD2,
+0x5F4E,
+0x6162,
+0x633D,
+0x6669,
+0x66FC,
+0x6EFF,
+0x6F2B,
+0x7063,
+0x779E,
+0x842C,
+0x8513,
+0x883B,
+0x8F13,
+0x9945,
+0x9C3B,
+0x551C,
+0x62B9,
+0x672B,
+0x6CAB,
+0x8309,
+0x896A,
+0x977A,
+0x4EA1,
+0x5984,
+0x5FD8,
+0x5FD9,
+0x671B,
+0x7DB2,
+0x7F54,
+0x8292,
+0x832B,
+0x83BD,
+0x8F1E,
+0x9099,
+0x57CB,
+0x59B9,
+0x5A92,
+0x5BD0,
+0x6627,
+0x679A,
+0x6885,
+0x6BCF,
+0x7164,
+0x7F75,
+0x8CB7,
+0x8CE3,
+0x9081,
+0x9B45,
+0x8108,
+0x8C8A,
+0x964C,
+0x9A40,
+0x9EA5,
+0x5B5F,
+0x6C13,
+0x731B,
+0x76F2,
+0x76DF,
+0x840C,
+0x51AA,
+0x8993,
+0x514D,
+0x5195,
+0x52C9,
+0x68C9,
+0x6C94,
+0x7704,
+0x7720,
+0x7DBF,
+0x7DEC,
+0x9762,
+0x9EB5,
+0x6EC5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8511,
+0x51A5,
+0x540D,
+0x547D,
+0x660E,
+0x669D,
+0x6927,
+0x6E9F,
+0x76BF,
+0x7791,
+0x8317,
+0x84C2,
+0x879F,
+0x9169,
+0x9298,
+0x9CF4,
+0x8882,
+0x4FAE,
+0x5192,
+0x52DF,
+0x59C6,
+0x5E3D,
+0x6155,
+0x6478,
+0x6479,
+0x66AE,
+0x67D0,
+0x6A21,
+0x6BCD,
+0x6BDB,
+0x725F,
+0x7261,
+0x7441,
+0x7738,
+0x77DB,
+0x8017,
+0x82BC,
+0x8305,
+0x8B00,
+0x8B28,
+0x8C8C,
+0x6728,
+0x6C90,
+0x7267,
+0x76EE,
+0x7766,
+0x7A46,
+0x9DA9,
+0x6B7F,
+0x6C92,
+0x5922,
+0x6726,
+0x8499,
+0x536F,
+0x5893,
+0x5999,
+0x5EDF,
+0x63CF,
+0x6634,
+0x6773,
+0x6E3A,
+0x732B,
+0x7AD7,
+0x82D7,
+0x9328,
+0x52D9,
+0x5DEB,
+0x61AE,
+0x61CB,
+0x620A,
+0x62C7,
+0x64AB,
+0x65E0,
+0x6959,
+0x6B66,
+0x6BCB,
+0x7121,
+0x73F7,
+0x755D,
+0x7E46,
+0x821E,
+0x8302,
+0x856A,
+0x8AA3,
+0x8CBF,
+0x9727,
+0x9D61,
+0x58A8,
+0x9ED8,
+0x5011,
+0x520E,
+0x543B,
+0x554F,
+0x6587,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6C76,
+0x7D0A,
+0x7D0B,
+0x805E,
+0x868A,
+0x9580,
+0x96EF,
+0x52FF,
+0x6C95,
+0x7269,
+0x5473,
+0x5A9A,
+0x5C3E,
+0x5D4B,
+0x5F4C,
+0x5FAE,
+0x672A,
+0x68B6,
+0x6963,
+0x6E3C,
+0x6E44,
+0x7709,
+0x7C73,
+0x7F8E,
+0x8587,
+0x8B0E,
+0x8FF7,
+0x9761,
+0x9EF4,
+0x5CB7,
+0x60B6,
+0x610D,
+0x61AB,
+0x654F,
+0x65FB,
+0x65FC,
+0x6C11,
+0x6CEF,
+0x739F,
+0x73C9,
+0x7DE1,
+0x9594,
+0x5BC6,
+0x871C,
+0x8B10,
+0x525D,
+0x535A,
+0x62CD,
+0x640F,
+0x64B2,
+0x6734,
+0x6A38,
+0x6CCA,
+0x73C0,
+0x749E,
+0x7B94,
+0x7C95,
+0x7E1B,
+0x818A,
+0x8236,
+0x8584,
+0x8FEB,
+0x96F9,
+0x99C1,
+0x4F34,
+0x534A,
+0x53CD,
+0x53DB,
+0x62CC,
+0x642C,
+0x6500,
+0x6591,
+0x69C3,
+0x6CEE,
+0x6F58,
+0x73ED,
+0x7554,
+0x7622,
+0x76E4,
+0x76FC,
+0x78D0,
+0x78FB,
+0x792C,
+0x7D46,
+0x822C,
+0x87E0,
+0x8FD4,
+0x9812,
+0x98EF,
+0x52C3,
+0x62D4,
+0x64A5,
+0x6E24,
+0x6F51,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x767C,
+0x8DCB,
+0x91B1,
+0x9262,
+0x9AEE,
+0x9B43,
+0x5023,
+0x508D,
+0x574A,
+0x59A8,
+0x5C28,
+0x5E47,
+0x5F77,
+0x623F,
+0x653E,
+0x65B9,
+0x65C1,
+0x6609,
+0x678B,
+0x699C,
+0x6EC2,
+0x78C5,
+0x7D21,
+0x80AA,
+0x8180,
+0x822B,
+0x82B3,
+0x84A1,
+0x868C,
+0x8A2A,
+0x8B17,
+0x90A6,
+0x9632,
+0x9F90,
+0x500D,
+0x4FF3,
+0xF963,
+0x57F9,
+0x5F98,
+0x62DC,
+0x6392,
+0x676F,
+0x6E43,
+0x7119,
+0x76C3,
+0x80CC,
+0x80DA,
+0x88F4,
+0x88F5,
+0x8919,
+0x8CE0,
+0x8F29,
+0x914D,
+0x966A,
+0x4F2F,
+0x4F70,
+0x5E1B,
+0x67CF,
+0x6822,
+0x767D,
+0x767E,
+0x9B44,
+0x5E61,
+0x6A0A,
+0x7169,
+0x71D4,
+0x756A,
+0xF964,
+0x7E41,
+0x8543,
+0x85E9,
+0x98DC,
+0x4F10,
+0x7B4F,
+0x7F70,
+0x95A5,
+0x51E1,
+0x5E06,
+0x68B5,
+0x6C3E,
+0x6C4E,
+0x6CDB,
+0x72AF,
+0x7BC4,
+0x8303,
+0x6CD5,
+0x743A,
+0x50FB,
+0x5288,
+0x58C1,
+0x64D8,
+0x6A97,
+0x74A7,
+0x7656,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x78A7,
+0x8617,
+0x95E2,
+0x9739,
+0xF965,
+0x535E,
+0x5F01,
+0x8B8A,
+0x8FA8,
+0x8FAF,
+0x908A,
+0x5225,
+0x77A5,
+0x9C49,
+0x9F08,
+0x4E19,
+0x5002,
+0x5175,
+0x5C5B,
+0x5E77,
+0x661E,
+0x663A,
+0x67C4,
+0x68C5,
+0x70B3,
+0x7501,
+0x75C5,
+0x79C9,
+0x7ADD,
+0x8F27,
+0x9920,
+0x9A08,
+0x4FDD,
+0x5821,
+0x5831,
+0x5BF6,
+0x666E,
+0x6B65,
+0x6D11,
+0x6E7A,
+0x6F7D,
+0x73E4,
+0x752B,
+0x83E9,
+0x88DC,
+0x8913,
+0x8B5C,
+0x8F14,
+0x4F0F,
+0x50D5,
+0x5310,
+0x535C,
+0x5B93,
+0x5FA9,
+0x670D,
+0x798F,
+0x8179,
+0x832F,
+0x8514,
+0x8907,
+0x8986,
+0x8F39,
+0x8F3B,
+0x99A5,
+0x9C12,
+0x672C,
+0x4E76,
+0x4FF8,
+0x5949,
+0x5C01,
+0x5CEF,
+0x5CF0,
+0x6367,
+0x68D2,
+0x70FD,
+0x71A2,
+0x742B,
+0x7E2B,
+0x84EC,
+0x8702,
+0x9022,
+0x92D2,
+0x9CF3,
+0x4E0D,
+0x4ED8,
+0x4FEF,
+0x5085,
+0x5256,
+0x526F,
+0x5426,
+0x5490,
+0x57E0,
+0x592B,
+0x5A66,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5B5A,
+0x5B75,
+0x5BCC,
+0x5E9C,
+0xF966,
+0x6276,
+0x6577,
+0x65A7,
+0x6D6E,
+0x6EA5,
+0x7236,
+0x7B26,
+0x7C3F,
+0x7F36,
+0x8150,
+0x8151,
+0x819A,
+0x8240,
+0x8299,
+0x83A9,
+0x8A03,
+0x8CA0,
+0x8CE6,
+0x8CFB,
+0x8D74,
+0x8DBA,
+0x90E8,
+0x91DC,
+0x961C,
+0x9644,
+0x99D9,
+0x9CE7,
+0x5317,
+0x5206,
+0x5429,
+0x5674,
+0x58B3,
+0x5954,
+0x596E,
+0x5FFF,
+0x61A4,
+0x626E,
+0x6610,
+0x6C7E,
+0x711A,
+0x76C6,
+0x7C89,
+0x7CDE,
+0x7D1B,
+0x82AC,
+0x8CC1,
+0x96F0,
+0xF967,
+0x4F5B,
+0x5F17,
+0x5F7F,
+0x62C2,
+0x5D29,
+0x670B,
+0x68DA,
+0x787C,
+0x7E43,
+0x9D6C,
+0x4E15,
+0x5099,
+0x5315,
+0x532A,
+0x5351,
+0x5983,
+0x5A62,
+0x5E87,
+0x60B2,
+0x618A,
+0x6249,
+0x6279,
+0x6590,
+0x6787,
+0x69A7,
+0x6BD4,
+0x6BD6,
+0x6BD7,
+0x6BD8,
+0x6CB8,
+0xF968,
+0x7435,
+0x75FA,
+0x7812,
+0x7891,
+0x79D5,
+0x79D8,
+0x7C83,
+0x7DCB,
+0x7FE1,
+0x80A5,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x813E,
+0x81C2,
+0x83F2,
+0x871A,
+0x88E8,
+0x8AB9,
+0x8B6C,
+0x8CBB,
+0x9119,
+0x975E,
+0x98DB,
+0x9F3B,
+0x56AC,
+0x5B2A,
+0x5F6C,
+0x658C,
+0x6AB3,
+0x6BAF,
+0x6D5C,
+0x6FF1,
+0x7015,
+0x725D,
+0x73AD,
+0x8CA7,
+0x8CD3,
+0x983B,
+0x6191,
+0x6C37,
+0x8058,
+0x9A01,
+0x4E4D,
+0x4E8B,
+0x4E9B,
+0x4ED5,
+0x4F3A,
+0x4F3C,
+0x4F7F,
+0x4FDF,
+0x50FF,
+0x53F2,
+0x53F8,
+0x5506,
+0x55E3,
+0x56DB,
+0x58EB,
+0x5962,
+0x5A11,
+0x5BEB,
+0x5BFA,
+0x5C04,
+0x5DF3,
+0x5E2B,
+0x5F99,
+0x601D,
+0x6368,
+0x659C,
+0x65AF,
+0x67F6,
+0x67FB,
+0x68AD,
+0x6B7B,
+0x6C99,
+0x6CD7,
+0x6E23,
+0x7009,
+0x7345,
+0x7802,
+0x793E,
+0x7940,
+0x7960,
+0x79C1,
+0x7BE9,
+0x7D17,
+0x7D72,
+0x8086,
+0x820D,
+0x838E,
+0x84D1,
+0x86C7,
+0x88DF,
+0x8A50,
+0x8A5E,
+0x8B1D,
+0x8CDC,
+0x8D66,
+0x8FAD,
+0x90AA,
+0x98FC,
+0x99DF,
+0x9E9D,
+0x524A,
+0xF969,
+0x6714,
+0xF96A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5098,
+0x522A,
+0x5C71,
+0x6563,
+0x6C55,
+0x73CA,
+0x7523,
+0x759D,
+0x7B97,
+0x849C,
+0x9178,
+0x9730,
+0x4E77,
+0x6492,
+0x6BBA,
+0x715E,
+0x85A9,
+0x4E09,
+0xF96B,
+0x6749,
+0x68EE,
+0x6E17,
+0x829F,
+0x8518,
+0x886B,
+0x63F7,
+0x6F81,
+0x9212,
+0x98AF,
+0x4E0A,
+0x50B7,
+0x50CF,
+0x511F,
+0x5546,
+0x55AA,
+0x5617,
+0x5B40,
+0x5C19,
+0x5CE0,
+0x5E38,
+0x5E8A,
+0x5EA0,
+0x5EC2,
+0x60F3,
+0x6851,
+0x6A61,
+0x6E58,
+0x723D,
+0x7240,
+0x72C0,
+0x76F8,
+0x7965,
+0x7BB1,
+0x7FD4,
+0x88F3,
+0x89F4,
+0x8A73,
+0x8C61,
+0x8CDE,
+0x971C,
+0x585E,
+0x74BD,
+0x8CFD,
+0x55C7,
+0xF96C,
+0x7A61,
+0x7D22,
+0x8272,
+0x7272,
+0x751F,
+0x7525,
+0xF96D,
+0x7B19,
+0x5885,
+0x58FB,
+0x5DBC,
+0x5E8F,
+0x5EB6,
+0x5F90,
+0x6055,
+0x6292,
+0x637F,
+0x654D,
+0x6691,
+0x66D9,
+0x66F8,
+0x6816,
+0x68F2,
+0x7280,
+0x745E,
+0x7B6E,
+0x7D6E,
+0x7DD6,
+0x7F72,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x80E5,
+0x8212,
+0x85AF,
+0x897F,
+0x8A93,
+0x901D,
+0x92E4,
+0x9ECD,
+0x9F20,
+0x5915,
+0x596D,
+0x5E2D,
+0x60DC,
+0x6614,
+0x6673,
+0x6790,
+0x6C50,
+0x6DC5,
+0x6F5F,
+0x77F3,
+0x78A9,
+0x84C6,
+0x91CB,
+0x932B,
+0x4ED9,
+0x50CA,
+0x5148,
+0x5584,
+0x5B0B,
+0x5BA3,
+0x6247,
+0x657E,
+0x65CB,
+0x6E32,
+0x717D,
+0x7401,
+0x7444,
+0x7487,
+0x74BF,
+0x766C,
+0x79AA,
+0x7DDA,
+0x7E55,
+0x7FA8,
+0x817A,
+0x81B3,
+0x8239,
+0x861A,
+0x87EC,
+0x8A75,
+0x8DE3,
+0x9078,
+0x9291,
+0x9425,
+0x994D,
+0x9BAE,
+0x5368,
+0x5C51,
+0x6954,
+0x6CC4,
+0x6D29,
+0x6E2B,
+0x820C,
+0x859B,
+0x893B,
+0x8A2D,
+0x8AAA,
+0x96EA,
+0x9F67,
+0x5261,
+0x66B9,
+0x6BB2,
+0x7E96,
+0x87FE,
+0x8D0D,
+0x9583,
+0x965D,
+0x651D,
+0x6D89,
+0x71EE,
+0xF96E,
+0x57CE,
+0x59D3,
+0x5BAC,
+0x6027,
+0x60FA,
+0x6210,
+0x661F,
+0x665F,
+0x7329,
+0x73F9,
+0x76DB,
+0x7701,
+0x7B6C,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8056,
+0x8072,
+0x8165,
+0x8AA0,
+0x9192,
+0x4E16,
+0x52E2,
+0x6B72,
+0x6D17,
+0x7A05,
+0x7B39,
+0x7D30,
+0xF96F,
+0x8CB0,
+0x53EC,
+0x562F,
+0x5851,
+0x5BB5,
+0x5C0F,
+0x5C11,
+0x5DE2,
+0x6240,
+0x6383,
+0x6414,
+0x662D,
+0x68B3,
+0x6CBC,
+0x6D88,
+0x6EAF,
+0x701F,
+0x70A4,
+0x71D2,
+0x7526,
+0x758F,
+0x758E,
+0x7619,
+0x7B11,
+0x7BE0,
+0x7C2B,
+0x7D20,
+0x7D39,
+0x852C,
+0x856D,
+0x8607,
+0x8A34,
+0x900D,
+0x9061,
+0x90B5,
+0x92B7,
+0x97F6,
+0x9A37,
+0x4FD7,
+0x5C6C,
+0x675F,
+0x6D91,
+0x7C9F,
+0x7E8C,
+0x8B16,
+0x8D16,
+0x901F,
+0x5B6B,
+0x5DFD,
+0x640D,
+0x84C0,
+0x905C,
+0x98E1,
+0x7387,
+0x5B8B,
+0x609A,
+0x677E,
+0x6DDE,
+0x8A1F,
+0x8AA6,
+0x9001,
+0x980C,
+0x5237,
+0xF970,
+0x7051,
+0x788E,
+0x9396,
+0x8870,
+0x91D7,
+0x4FEE,
+0x53D7,
+0x55FD,
+0x56DA,
+0x5782,
+0x58FD,
+0x5AC2,
+0x5B88,
+0x5CAB,
+0x5CC0,
+0x5E25,
+0x6101,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x620D,
+0x624B,
+0x6388,
+0x641C,
+0x6536,
+0x6578,
+0x6A39,
+0x6B8A,
+0x6C34,
+0x6D19,
+0x6F31,
+0x71E7,
+0x72E9,
+0x7378,
+0x7407,
+0x74B2,
+0x7626,
+0x7761,
+0x79C0,
+0x7A57,
+0x7AEA,
+0x7CB9,
+0x7D8F,
+0x7DAC,
+0x7E61,
+0x7F9E,
+0x8129,
+0x8331,
+0x8490,
+0x84DA,
+0x85EA,
+0x8896,
+0x8AB0,
+0x8B90,
+0x8F38,
+0x9042,
+0x9083,
+0x916C,
+0x9296,
+0x92B9,
+0x968B,
+0x96A7,
+0x96A8,
+0x96D6,
+0x9700,
+0x9808,
+0x9996,
+0x9AD3,
+0x9B1A,
+0x53D4,
+0x587E,
+0x5919,
+0x5B70,
+0x5BBF,
+0x6DD1,
+0x6F5A,
+0x719F,
+0x7421,
+0x74B9,
+0x8085,
+0x83FD,
+0x5DE1,
+0x5F87,
+0x5FAA,
+0x6042,
+0x65EC,
+0x6812,
+0x696F,
+0x6A53,
+0x6B89,
+0x6D35,
+0x6DF3,
+0x73E3,
+0x76FE,
+0x77AC,
+0x7B4D,
+0x7D14,
+0x8123,
+0x821C,
+0x8340,
+0x84F4,
+0x8563,
+0x8A62,
+0x8AC4,
+0x9187,
+0x931E,
+0x9806,
+0x99B4,
+0x620C,
+0x8853,
+0x8FF0,
+0x9265,
+0x5D07,
+0x5D27,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5D69,
+0x745F,
+0x819D,
+0x8768,
+0x6FD5,
+0x62FE,
+0x7FD2,
+0x8936,
+0x8972,
+0x4E1E,
+0x4E58,
+0x50E7,
+0x52DD,
+0x5347,
+0x627F,
+0x6607,
+0x7E69,
+0x8805,
+0x965E,
+0x4F8D,
+0x5319,
+0x5636,
+0x59CB,
+0x5AA4,
+0x5C38,
+0x5C4E,
+0x5C4D,
+0x5E02,
+0x5F11,
+0x6043,
+0x65BD,
+0x662F,
+0x6642,
+0x67BE,
+0x67F4,
+0x731C,
+0x77E2,
+0x793A,
+0x7FC5,
+0x8494,
+0x84CD,
+0x8996,
+0x8A66,
+0x8A69,
+0x8AE1,
+0x8C55,
+0x8C7A,
+0x57F4,
+0x5BD4,
+0x5F0F,
+0x606F,
+0x62ED,
+0x690D,
+0x6B96,
+0x6E5C,
+0x7184,
+0x7BD2,
+0x8755,
+0x8B58,
+0x8EFE,
+0x98DF,
+0x98FE,
+0x4F38,
+0x4F81,
+0x4FE1,
+0x547B,
+0x5A20,
+0x5BB8,
+0x613C,
+0x65B0,
+0x6668,
+0x71FC,
+0x7533,
+0x795E,
+0x7D33,
+0x814E,
+0x81E3,
+0x8398,
+0x85AA,
+0x85CE,
+0x8703,
+0x8A0A,
+0x8EAB,
+0x8F9B,
+0xF971,
+0x8FC5,
+0x5931,
+0x5BA4,
+0x5BE6,
+0x6089,
+0x5BE9,
+0x5C0B,
+0x5FC3,
+0x6C81,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xF972,
+0x6DF1,
+0x700B,
+0x751A,
+0x82AF,
+0x8AF6,
+0x4EC0,
+0x5341,
+0xF973,
+0x96D9,
+0x6C0F,
+0x4E9E,
+0x4FC4,
+0x5152,
+0x555E,
+0x5A25,
+0x5CE8,
+0x6211,
+0x7259,
+0x82BD,
+0x83AA,
+0x86FE,
+0x8859,
+0x8A1D,
+0x963F,
+0x96C5,
+0x9913,
+0x9D09,
+0x9D5D,
+0x580A,
+0x5CB3,
+0x5DBD,
+0x5E44,
+0x60E1,
+0x6115,
+0x63E1,
+0x6A02,
+0x6E25,
+0x9102,
+0x9354,
+0x984E,
+0x9C10,
+0x9F77,
+0x5B89,
+0x5CB8,
+0x6309,
+0x664F,
+0x6848,
+0x773C,
+0x96C1,
+0x978D,
+0x9854,
+0x9B9F,
+0x65A1,
+0x8B01,
+0x8ECB,
+0x95BC,
+0x5535,
+0x5CA9,
+0x5DD6,
+0x5EB5,
+0x6697,
+0x764C,
+0x83F4,
+0x95C7,
+0x58D3,
+0x62BC,
+0x72CE,
+0x9D28,
+0x4EF0,
+0x592E,
+0x600F,
+0x663B,
+0x6B83,
+0x79E7,
+0x9D26,
+0x5393,
+0x54C0,
+0x57C3,
+0x5D16,
+0x611B,
+0x66D6,
+0x6DAF,
+0x788D,
+0x827E,
+0x9698,
+0x9744,
+0x5384,
+0x627C,
+0x6396,
+0x6DB2,
+0x7E0A,
+0x814B,
+0x984D,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6AFB,
+0x7F4C,
+0x9DAF,
+0x9E1A,
+0x4E5F,
+0x503B,
+0x51B6,
+0x591C,
+0x60F9,
+0x63F6,
+0x6930,
+0x723A,
+0x8036,
+0xF974,
+0x91CE,
+0x5F31,
+0xF975,
+0xF976,
+0x7D04,
+0x82E5,
+0x846F,
+0x84BB,
+0x85E5,
+0x8E8D,
+0xF977,
+0x4F6F,
+0xF978,
+0xF979,
+0x58E4,
+0x5B43,
+0x6059,
+0x63DA,
+0x6518,
+0x656D,
+0x6698,
+0xF97A,
+0x694A,
+0x6A23,
+0x6D0B,
+0x7001,
+0x716C,
+0x75D2,
+0x760D,
+0x79B3,
+0x7A70,
+0xF97B,
+0x7F8A,
+0xF97C,
+0x8944,
+0xF97D,
+0x8B93,
+0x91C0,
+0x967D,
+0xF97E,
+0x990A,
+0x5704,
+0x5FA1,
+0x65BC,
+0x6F01,
+0x7600,
+0x79A6,
+0x8A9E,
+0x99AD,
+0x9B5A,
+0x9F6C,
+0x5104,
+0x61B6,
+0x6291,
+0x6A8D,
+0x81C6,
+0x5043,
+0x5830,
+0x5F66,
+0x7109,
+0x8A00,
+0x8AFA,
+0x5B7C,
+0x8616,
+0x4FFA,
+0x513C,
+0x56B4,
+0x5944,
+0x63A9,
+0x6DF9,
+0x5DAA,
+0x696D,
+0x5186,
+0x4E88,
+0x4F59,
+0xF97F,
+0xF980,
+0xF981,
+0x5982,
+0xF982,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xF983,
+0x6B5F,
+0x6C5D,
+0xF984,
+0x74B5,
+0x7916,
+0xF985,
+0x8207,
+0x8245,
+0x8339,
+0x8F3F,
+0x8F5D,
+0xF986,
+0x9918,
+0xF987,
+0xF988,
+0xF989,
+0x4EA6,
+0xF98A,
+0x57DF,
+0x5F79,
+0x6613,
+0xF98B,
+0xF98C,
+0x75AB,
+0x7E79,
+0x8B6F,
+0xF98D,
+0x9006,
+0x9A5B,
+0x56A5,
+0x5827,
+0x59F8,
+0x5A1F,
+0x5BB4,
+0xF98E,
+0x5EF6,
+0xF98F,
+0xF990,
+0x6350,
+0x633B,
+0xF991,
+0x693D,
+0x6C87,
+0x6CBF,
+0x6D8E,
+0x6D93,
+0x6DF5,
+0x6F14,
+0xF992,
+0x70DF,
+0x7136,
+0x7159,
+0xF993,
+0x71C3,
+0x71D5,
+0xF994,
+0x784F,
+0x786F,
+0xF995,
+0x7B75,
+0x7DE3,
+0xF996,
+0x7E2F,
+0xF997,
+0x884D,
+0x8EDF,
+0xF998,
+0xF999,
+0xF99A,
+0x925B,
+0xF99B,
+0x9CF6,
+0xF99C,
+0xF99D,
+0xF99E,
+0x6085,
+0x6D85,
+0xF99F,
+0x71B1,
+0xF9A0,
+0xF9A1,
+0x95B1,
+0x53AD,
+0xF9A2,
+0xF9A3,
+0xF9A4,
+0x67D3,
+0xF9A5,
+0x708E,
+0x7130,
+0x7430,
+0x8276,
+0x82D2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xF9A6,
+0x95BB,
+0x9AE5,
+0x9E7D,
+0x66C4,
+0xF9A7,
+0x71C1,
+0x8449,
+0xF9A8,
+0xF9A9,
+0x584B,
+0xF9AA,
+0xF9AB,
+0x5DB8,
+0x5F71,
+0xF9AC,
+0x6620,
+0x668E,
+0x6979,
+0x69AE,
+0x6C38,
+0x6CF3,
+0x6E36,
+0x6F41,
+0x6FDA,
+0x701B,
+0x702F,
+0x7150,
+0x71DF,
+0x7370,
+0xF9AD,
+0x745B,
+0xF9AE,
+0x74D4,
+0x76C8,
+0x7A4E,
+0x7E93,
+0xF9AF,
+0xF9B0,
+0x82F1,
+0x8A60,
+0x8FCE,
+0xF9B1,
+0x9348,
+0xF9B2,
+0x9719,
+0xF9B3,
+0xF9B4,
+0x4E42,
+0x502A,
+0xF9B5,
+0x5208,
+0x53E1,
+0x66F3,
+0x6C6D,
+0x6FCA,
+0x730A,
+0x777F,
+0x7A62,
+0x82AE,
+0x85DD,
+0x8602,
+0xF9B6,
+0x88D4,
+0x8A63,
+0x8B7D,
+0x8C6B,
+0xF9B7,
+0x92B3,
+0xF9B8,
+0x9713,
+0x9810,
+0x4E94,
+0x4F0D,
+0x4FC9,
+0x50B2,
+0x5348,
+0x543E,
+0x5433,
+0x55DA,
+0x5862,
+0x58BA,
+0x5967,
+0x5A1B,
+0x5BE4,
+0x609F,
+0xF9B9,
+0x61CA,
+0x6556,
+0x65FF,
+0x6664,
+0x68A7,
+0x6C5A,
+0x6FB3,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x70CF,
+0x71AC,
+0x7352,
+0x7B7D,
+0x8708,
+0x8AA4,
+0x9C32,
+0x9F07,
+0x5C4B,
+0x6C83,
+0x7344,
+0x7389,
+0x923A,
+0x6EAB,
+0x7465,
+0x761F,
+0x7A69,
+0x7E15,
+0x860A,
+0x5140,
+0x58C5,
+0x64C1,
+0x74EE,
+0x7515,
+0x7670,
+0x7FC1,
+0x9095,
+0x96CD,
+0x9954,
+0x6E26,
+0x74E6,
+0x7AA9,
+0x7AAA,
+0x81E5,
+0x86D9,
+0x8778,
+0x8A1B,
+0x5A49,
+0x5B8C,
+0x5B9B,
+0x68A1,
+0x6900,
+0x6D63,
+0x73A9,
+0x7413,
+0x742C,
+0x7897,
+0x7DE9,
+0x7FEB,
+0x8118,
+0x8155,
+0x839E,
+0x8C4C,
+0x962E,
+0x9811,
+0x66F0,
+0x5F80,
+0x65FA,
+0x6789,
+0x6C6A,
+0x738B,
+0x502D,
+0x5A03,
+0x6B6A,
+0x77EE,
+0x5916,
+0x5D6C,
+0x5DCD,
+0x7325,
+0x754F,
+0xF9BA,
+0xF9BB,
+0x50E5,
+0x51F9,
+0x582F,
+0x592D,
+0x5996,
+0x59DA,
+0x5BE5,
+0xF9BC,
+0xF9BD,
+0x5DA2,
+0x62D7,
+0x6416,
+0x6493,
+0x64FE,
+0xF9BE,
+0x66DC,
+0xF9BF,
+0x6A48,
+0xF9C0,
+0x71FF,
+0x7464,
+0xF9C1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x7A88,
+0x7AAF,
+0x7E47,
+0x7E5E,
+0x8000,
+0x8170,
+0xF9C2,
+0x87EF,
+0x8981,
+0x8B20,
+0x9059,
+0xF9C3,
+0x9080,
+0x9952,
+0x617E,
+0x6B32,
+0x6D74,
+0x7E1F,
+0x8925,
+0x8FB1,
+0x4FD1,
+0x50AD,
+0x5197,
+0x52C7,
+0x57C7,
+0x5889,
+0x5BB9,
+0x5EB8,
+0x6142,
+0x6995,
+0x6D8C,
+0x6E67,
+0x6EB6,
+0x7194,
+0x7462,
+0x7528,
+0x752C,
+0x8073,
+0x8338,
+0x84C9,
+0x8E0A,
+0x9394,
+0x93DE,
+0xF9C4,
+0x4E8E,
+0x4F51,
+0x5076,
+0x512A,
+0x53C8,
+0x53CB,
+0x53F3,
+0x5B87,
+0x5BD3,
+0x5C24,
+0x611A,
+0x6182,
+0x65F4,
+0x725B,
+0x7397,
+0x7440,
+0x76C2,
+0x7950,
+0x7991,
+0x79B9,
+0x7D06,
+0x7FBD,
+0x828B,
+0x85D5,
+0x865E,
+0x8FC2,
+0x9047,
+0x90F5,
+0x91EA,
+0x9685,
+0x96E8,
+0x96E9,
+0x52D6,
+0x5F67,
+0x65ED,
+0x6631,
+0x682F,
+0x715C,
+0x7A36,
+0x90C1,
+0x980A,
+0x4E91,
+0xF9C5,
+0x6A52,
+0x6B9E,
+0x6F90,
+0x7189,
+0x8018,
+0x82B8,
+0x8553,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x904B,
+0x9695,
+0x96F2,
+0x97FB,
+0x851A,
+0x9B31,
+0x4E90,
+0x718A,
+0x96C4,
+0x5143,
+0x539F,
+0x54E1,
+0x5713,
+0x5712,
+0x57A3,
+0x5A9B,
+0x5AC4,
+0x5BC3,
+0x6028,
+0x613F,
+0x63F4,
+0x6C85,
+0x6D39,
+0x6E72,
+0x6E90,
+0x7230,
+0x733F,
+0x7457,
+0x82D1,
+0x8881,
+0x8F45,
+0x9060,
+0xF9C6,
+0x9662,
+0x9858,
+0x9D1B,
+0x6708,
+0x8D8A,
+0x925E,
+0x4F4D,
+0x5049,
+0x50DE,
+0x5371,
+0x570D,
+0x59D4,
+0x5A01,
+0x5C09,
+0x6170,
+0x6690,
+0x6E2D,
+0x7232,
+0x744B,
+0x7DEF,
+0x80C3,
+0x840E,
+0x8466,
+0x853F,
+0x875F,
+0x885B,
+0x8918,
+0x8B02,
+0x9055,
+0x97CB,
+0x9B4F,
+0x4E73,
+0x4F91,
+0x5112,
+0x516A,
+0xF9C7,
+0x552F,
+0x55A9,
+0x5B7A,
+0x5BA5,
+0x5E7C,
+0x5E7D,
+0x5EBE,
+0x60A0,
+0x60DF,
+0x6108,
+0x6109,
+0x63C4,
+0x6538,
+0x6709,
+0xF9C8,
+0x67D4,
+0x67DA,
+0xF9C9,
+0x6961,
+0x6962,
+0x6CB9,
+0x6D27,
+0xF9CA,
+0x6E38,
+0xF9CB,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6FE1,
+0x7336,
+0x7337,
+0xF9CC,
+0x745C,
+0x7531,
+0xF9CD,
+0x7652,
+0xF9CE,
+0xF9CF,
+0x7DAD,
+0x81FE,
+0x8438,
+0x88D5,
+0x8A98,
+0x8ADB,
+0x8AED,
+0x8E30,
+0x8E42,
+0x904A,
+0x903E,
+0x907A,
+0x9149,
+0x91C9,
+0x936E,
+0xF9D0,
+0xF9D1,
+0x5809,
+0xF9D2,
+0x6BD3,
+0x8089,
+0x80B2,
+0xF9D3,
+0xF9D4,
+0x5141,
+0x596B,
+0x5C39,
+0xF9D5,
+0xF9D6,
+0x6F64,
+0x73A7,
+0x80E4,
+0x8D07,
+0xF9D7,
+0x9217,
+0x958F,
+0xF9D8,
+0xF9D9,
+0xF9DA,
+0xF9DB,
+0x807F,
+0x620E,
+0x701C,
+0x7D68,
+0x878D,
+0xF9DC,
+0x57A0,
+0x6069,
+0x6147,
+0x6BB7,
+0x8ABE,
+0x9280,
+0x96B1,
+0x4E59,
+0x541F,
+0x6DEB,
+0x852D,
+0x9670,
+0x97F3,
+0x98EE,
+0x63D6,
+0x6CE3,
+0x9091,
+0x51DD,
+0x61C9,
+0x81BA,
+0x9DF9,
+0x4F9D,
+0x501A,
+0x5100,
+0x5B9C,
+0x610F,
+0x61FF,
+0x64EC,
+0x6905,
+0x6BC5,
+0x7591,
+0x77E3,
+0x7FA9,
+0x8264,
+0x858F,
+0x87FB,
+0x8863,
+0x8ABC,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8B70,
+0x91AB,
+0x4E8C,
+0x4EE5,
+0x4F0A,
+0xF9DD,
+0xF9DE,
+0x5937,
+0x59E8,
+0xF9DF,
+0x5DF2,
+0x5F1B,
+0x5F5B,
+0x6021,
+0xF9E0,
+0xF9E1,
+0xF9E2,
+0xF9E3,
+0x723E,
+0x73E5,
+0xF9E4,
+0x7570,
+0x75CD,
+0xF9E5,
+0x79FB,
+0xF9E6,
+0x800C,
+0x8033,
+0x8084,
+0x82E1,
+0x8351,
+0xF9E7,
+0xF9E8,
+0x8CBD,
+0x8CB3,
+0x9087,
+0xF9E9,
+0xF9EA,
+0x98F4,
+0x990C,
+0xF9EB,
+0xF9EC,
+0x7037,
+0x76CA,
+0x7FCA,
+0x7FCC,
+0x7FFC,
+0x8B1A,
+0x4EBA,
+0x4EC1,
+0x5203,
+0x5370,
+0xF9ED,
+0x54BD,
+0x56E0,
+0x59FB,
+0x5BC5,
+0x5F15,
+0x5FCD,
+0x6E6E,
+0xF9EE,
+0xF9EF,
+0x7D6A,
+0x8335,
+0xF9F0,
+0x8693,
+0x8A8D,
+0xF9F1,
+0x976D,
+0x9777,
+0xF9F2,
+0xF9F3,
+0x4E00,
+0x4F5A,
+0x4F7E,
+0x58F9,
+0x65E5,
+0x6EA2,
+0x9038,
+0x93B0,
+0x99B9,
+0x4EFB,
+0x58EC,
+0x598A,
+0x59D9,
+0x6041,
+0xF9F4,
+0xF9F5,
+0x7A14,
+0xF9F6,
+0x834F,
+0x8CC3,
+0x5165,
+0x5344,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xF9F7,
+0xF9F8,
+0xF9F9,
+0x4ECD,
+0x5269,
+0x5B55,
+0x82BF,
+0x4ED4,
+0x523A,
+0x54A8,
+0x59C9,
+0x59FF,
+0x5B50,
+0x5B57,
+0x5B5C,
+0x6063,
+0x6148,
+0x6ECB,
+0x7099,
+0x716E,
+0x7386,
+0x74F7,
+0x75B5,
+0x78C1,
+0x7D2B,
+0x8005,
+0x81EA,
+0x8328,
+0x8517,
+0x85C9,
+0x8AEE,
+0x8CC7,
+0x96CC,
+0x4F5C,
+0x52FA,
+0x56BC,
+0x65AB,
+0x6628,
+0x707C,
+0x70B8,
+0x7235,
+0x7DBD,
+0x828D,
+0x914C,
+0x96C0,
+0x9D72,
+0x5B71,
+0x68E7,
+0x6B98,
+0x6F7A,
+0x76DE,
+0x5C91,
+0x66AB,
+0x6F5B,
+0x7BB4,
+0x7C2A,
+0x8836,
+0x96DC,
+0x4E08,
+0x4ED7,
+0x5320,
+0x5834,
+0x58BB,
+0x58EF,
+0x596C,
+0x5C07,
+0x5E33,
+0x5E84,
+0x5F35,
+0x638C,
+0x66B2,
+0x6756,
+0x6A1F,
+0x6AA3,
+0x6B0C,
+0x6F3F,
+0x7246,
+0xF9FA,
+0x7350,
+0x748B,
+0x7AE0,
+0x7CA7,
+0x8178,
+0x81DF,
+0x81E7,
+0x838A,
+0x846C,
+0x8523,
+0x8594,
+0x85CF,
+0x88DD,
+0x8D13,
+0x91AC,
+0x9577,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x969C,
+0x518D,
+0x54C9,
+0x5728,
+0x5BB0,
+0x624D,
+0x6750,
+0x683D,
+0x6893,
+0x6E3D,
+0x6ED3,
+0x707D,
+0x7E21,
+0x88C1,
+0x8CA1,
+0x8F09,
+0x9F4B,
+0x9F4E,
+0x722D,
+0x7B8F,
+0x8ACD,
+0x931A,
+0x4F47,
+0x4F4E,
+0x5132,
+0x5480,
+0x59D0,
+0x5E95,
+0x62B5,
+0x6775,
+0x696E,
+0x6A17,
+0x6CAE,
+0x6E1A,
+0x72D9,
+0x732A,
+0x75BD,
+0x7BB8,
+0x7D35,
+0x82E7,
+0x83F9,
+0x8457,
+0x85F7,
+0x8A5B,
+0x8CAF,
+0x8E87,
+0x9019,
+0x90B8,
+0x96CE,
+0x9F5F,
+0x52E3,
+0x540A,
+0x5AE1,
+0x5BC2,
+0x6458,
+0x6575,
+0x6EF4,
+0x72C4,
+0xF9FB,
+0x7684,
+0x7A4D,
+0x7B1B,
+0x7C4D,
+0x7E3E,
+0x7FDF,
+0x837B,
+0x8B2B,
+0x8CCA,
+0x8D64,
+0x8DE1,
+0x8E5F,
+0x8FEA,
+0x8FF9,
+0x9069,
+0x93D1,
+0x4F43,
+0x4F7A,
+0x50B3,
+0x5168,
+0x5178,
+0x524D,
+0x526A,
+0x5861,
+0x587C,
+0x5960,
+0x5C08,
+0x5C55,
+0x5EDB,
+0x609B,
+0x6230,
+0x6813,
+0x6BBF,
+0x6C08,
+0x6FB1,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x714E,
+0x7420,
+0x7530,
+0x7538,
+0x7551,
+0x7672,
+0x7B4C,
+0x7B8B,
+0x7BAD,
+0x7BC6,
+0x7E8F,
+0x8A6E,
+0x8F3E,
+0x8F49,
+0x923F,
+0x9293,
+0x9322,
+0x942B,
+0x96FB,
+0x985A,
+0x986B,
+0x991E,
+0x5207,
+0x622A,
+0x6298,
+0x6D59,
+0x7664,
+0x7ACA,
+0x7BC0,
+0x7D76,
+0x5360,
+0x5CBE,
+0x5E97,
+0x6F38,
+0x70B9,
+0x7C98,
+0x9711,
+0x9B8E,
+0x9EDE,
+0x63A5,
+0x647A,
+0x8776,
+0x4E01,
+0x4E95,
+0x4EAD,
+0x505C,
+0x5075,
+0x5448,
+0x59C3,
+0x5B9A,
+0x5E40,
+0x5EAD,
+0x5EF7,
+0x5F81,
+0x60C5,
+0x633A,
+0x653F,
+0x6574,
+0x65CC,
+0x6676,
+0x6678,
+0x67FE,
+0x6968,
+0x6A89,
+0x6B63,
+0x6C40,
+0x6DC0,
+0x6DE8,
+0x6E1F,
+0x6E5E,
+0x701E,
+0x70A1,
+0x738E,
+0x73FD,
+0x753A,
+0x775B,
+0x7887,
+0x798E,
+0x7A0B,
+0x7A7D,
+0x7CBE,
+0x7D8E,
+0x8247,
+0x8A02,
+0x8AEA,
+0x8C9E,
+0x912D,
+0x914A,
+0x91D8,
+0x9266,
+0x92CC,
+0x9320,
+0x9706,
+0x9756,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x975C,
+0x9802,
+0x9F0E,
+0x5236,
+0x5291,
+0x557C,
+0x5824,
+0x5E1D,
+0x5F1F,
+0x608C,
+0x63D0,
+0x68AF,
+0x6FDF,
+0x796D,
+0x7B2C,
+0x81CD,
+0x85BA,
+0x88FD,
+0x8AF8,
+0x8E44,
+0x918D,
+0x9664,
+0x969B,
+0x973D,
+0x984C,
+0x9F4A,
+0x4FCE,
+0x5146,
+0x51CB,
+0x52A9,
+0x5632,
+0x5F14,
+0x5F6B,
+0x63AA,
+0x64CD,
+0x65E9,
+0x6641,
+0x66FA,
+0x66F9,
+0x671D,
+0x689D,
+0x68D7,
+0x69FD,
+0x6F15,
+0x6F6E,
+0x7167,
+0x71E5,
+0x722A,
+0x74AA,
+0x773A,
+0x7956,
+0x795A,
+0x79DF,
+0x7A20,
+0x7A95,
+0x7C97,
+0x7CDF,
+0x7D44,
+0x7E70,
+0x8087,
+0x85FB,
+0x86A4,
+0x8A54,
+0x8ABF,
+0x8D99,
+0x8E81,
+0x9020,
+0x906D,
+0x91E3,
+0x963B,
+0x96D5,
+0x9CE5,
+0x65CF,
+0x7C07,
+0x8DB3,
+0x93C3,
+0x5B58,
+0x5C0A,
+0x5352,
+0x62D9,
+0x731D,
+0x5027,
+0x5B97,
+0x5F9E,
+0x60B0,
+0x616B,
+0x68D5,
+0x6DD9,
+0x742E,
+0x7A2E,
+0x7D42,
+0x7D9C,
+0x7E31,
+0x816B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8E2A,
+0x8E35,
+0x937E,
+0x9418,
+0x4F50,
+0x5750,
+0x5DE6,
+0x5EA7,
+0x632B,
+0x7F6A,
+0x4E3B,
+0x4F4F,
+0x4F8F,
+0x505A,
+0x59DD,
+0x80C4,
+0x546A,
+0x5468,
+0x55FE,
+0x594F,
+0x5B99,
+0x5DDE,
+0x5EDA,
+0x665D,
+0x6731,
+0x67F1,
+0x682A,
+0x6CE8,
+0x6D32,
+0x6E4A,
+0x6F8D,
+0x70B7,
+0x73E0,
+0x7587,
+0x7C4C,
+0x7D02,
+0x7D2C,
+0x7DA2,
+0x821F,
+0x86DB,
+0x8A3B,
+0x8A85,
+0x8D70,
+0x8E8A,
+0x8F33,
+0x9031,
+0x914E,
+0x9152,
+0x9444,
+0x99D0,
+0x7AF9,
+0x7CA5,
+0x4FCA,
+0x5101,
+0x51C6,
+0x57C8,
+0x5BEF,
+0x5CFB,
+0x6659,
+0x6A3D,
+0x6D5A,
+0x6E96,
+0x6FEC,
+0x710C,
+0x756F,
+0x7AE3,
+0x8822,
+0x9021,
+0x9075,
+0x96CB,
+0x99FF,
+0x8301,
+0x4E2D,
+0x4EF2,
+0x8846,
+0x91CD,
+0x537D,
+0x6ADB,
+0x696B,
+0x6C41,
+0x847A,
+0x589E,
+0x618E,
+0x66FE,
+0x62EF,
+0x70DD,
+0x7511,
+0x75C7,
+0x7E52,
+0x84B8,
+0x8B49,
+0x8D08,
+0x4E4B,
+0x53EA,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x54AB,
+0x5730,
+0x5740,
+0x5FD7,
+0x6301,
+0x6307,
+0x646F,
+0x652F,
+0x65E8,
+0x667A,
+0x679D,
+0x67B3,
+0x6B62,
+0x6C60,
+0x6C9A,
+0x6F2C,
+0x77E5,
+0x7825,
+0x7949,
+0x7957,
+0x7D19,
+0x80A2,
+0x8102,
+0x81F3,
+0x829D,
+0x82B7,
+0x8718,
+0x8A8C,
+0xF9FC,
+0x8D04,
+0x8DBE,
+0x9072,
+0x76F4,
+0x7A19,
+0x7A37,
+0x7E54,
+0x8077,
+0x5507,
+0x55D4,
+0x5875,
+0x632F,
+0x6422,
+0x6649,
+0x664B,
+0x686D,
+0x699B,
+0x6B84,
+0x6D25,
+0x6EB1,
+0x73CD,
+0x7468,
+0x74A1,
+0x755B,
+0x75B9,
+0x76E1,
+0x771E,
+0x778B,
+0x79E6,
+0x7E09,
+0x7E1D,
+0x81FB,
+0x852F,
+0x8897,
+0x8A3A,
+0x8CD1,
+0x8EEB,
+0x8FB0,
+0x9032,
+0x93AD,
+0x9663,
+0x9673,
+0x9707,
+0x4F84,
+0x53F1,
+0x59EA,
+0x5AC9,
+0x5E19,
+0x684E,
+0x74C6,
+0x75BE,
+0x79E9,
+0x7A92,
+0x81A3,
+0x86ED,
+0x8CEA,
+0x8DCC,
+0x8FED,
+0x659F,
+0x6715,
+0xF9FD,
+0x57F7,
+0x6F57,
+0x7DDD,
+0x8F2F,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x93F6,
+0x96C6,
+0x5FB5,
+0x61F2,
+0x6F84,
+0x4E14,
+0x4F98,
+0x501F,
+0x53C9,
+0x55DF,
+0x5D6F,
+0x5DEE,
+0x6B21,
+0x6B64,
+0x78CB,
+0x7B9A,
+0xF9FE,
+0x8E49,
+0x8ECA,
+0x906E,
+0x6349,
+0x643E,
+0x7740,
+0x7A84,
+0x932F,
+0x947F,
+0x9F6A,
+0x64B0,
+0x6FAF,
+0x71E6,
+0x74A8,
+0x74DA,
+0x7AC4,
+0x7C12,
+0x7E82,
+0x7CB2,
+0x7E98,
+0x8B9A,
+0x8D0A,
+0x947D,
+0x9910,
+0x994C,
+0x5239,
+0x5BDF,
+0x64E6,
+0x672D,
+0x7D2E,
+0x50ED,
+0x53C3,
+0x5879,
+0x6158,
+0x6159,
+0x61FA,
+0x65AC,
+0x7AD9,
+0x8B92,
+0x8B96,
+0x5009,
+0x5021,
+0x5275,
+0x5531,
+0x5A3C,
+0x5EE0,
+0x5F70,
+0x6134,
+0x655E,
+0x660C,
+0x6636,
+0x66A2,
+0x69CD,
+0x6EC4,
+0x6F32,
+0x7316,
+0x7621,
+0x7A93,
+0x8139,
+0x8259,
+0x83D6,
+0x84BC,
+0x50B5,
+0x57F0,
+0x5BC0,
+0x5BE8,
+0x5F69,
+0x63A1,
+0x7826,
+0x7DB5,
+0x83DC,
+0x8521,
+0x91C7,
+0x91F5,
+0x518A,
+0x67F5,
+0x7B56,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8CAC,
+0x51C4,
+0x59BB,
+0x60BD,
+0x8655,
+0x501C,
+0xF9FF,
+0x5254,
+0x5C3A,
+0x617D,
+0x621A,
+0x62D3,
+0x64F2,
+0x65A5,
+0x6ECC,
+0x7620,
+0x810A,
+0x8E60,
+0x965F,
+0x96BB,
+0x4EDF,
+0x5343,
+0x5598,
+0x5929,
+0x5DDD,
+0x64C5,
+0x6CC9,
+0x6DFA,
+0x7394,
+0x7A7F,
+0x821B,
+0x85A6,
+0x8CE4,
+0x8E10,
+0x9077,
+0x91E7,
+0x95E1,
+0x9621,
+0x97C6,
+0x51F8,
+0x54F2,
+0x5586,
+0x5FB9,
+0x64A4,
+0x6F88,
+0x7DB4,
+0x8F1F,
+0x8F4D,
+0x9435,
+0x50C9,
+0x5C16,
+0x6CBE,
+0x6DFB,
+0x751B,
+0x77BB,
+0x7C3D,
+0x7C64,
+0x8A79,
+0x8AC2,
+0x581E,
+0x59BE,
+0x5E16,
+0x6377,
+0x7252,
+0x758A,
+0x776B,
+0x8ADC,
+0x8CBC,
+0x8F12,
+0x5EF3,
+0x6674,
+0x6DF8,
+0x807D,
+0x83C1,
+0x8ACB,
+0x9751,
+0x9BD6,
+0xFA00,
+0x5243,
+0x66FF,
+0x6D95,
+0x6EEF,
+0x7DE0,
+0x8AE6,
+0x902E,
+0x905E,
+0x9AD4,
+0x521D,
+0x527F,
+0x54E8,
+0x6194,
+0x6284,
+0x62DB,
+0x68A2,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x6912,
+0x695A,
+0x6A35,
+0x7092,
+0x7126,
+0x785D,
+0x7901,
+0x790E,
+0x79D2,
+0x7A0D,
+0x8096,
+0x8278,
+0x82D5,
+0x8349,
+0x8549,
+0x8C82,
+0x8D85,
+0x9162,
+0x918B,
+0x91AE,
+0x4FC3,
+0x56D1,
+0x71ED,
+0x77D7,
+0x8700,
+0x89F8,
+0x5BF8,
+0x5FD6,
+0x6751,
+0x90A8,
+0x53E2,
+0x585A,
+0x5BF5,
+0x60A4,
+0x6181,
+0x6460,
+0x7E3D,
+0x8070,
+0x8525,
+0x9283,
+0x64AE,
+0x50AC,
+0x5D14,
+0x6700,
+0x589C,
+0x62BD,
+0x63A8,
+0x690E,
+0x6978,
+0x6A1E,
+0x6E6B,
+0x76BA,
+0x79CB,
+0x82BB,
+0x8429,
+0x8ACF,
+0x8DA8,
+0x8FFD,
+0x9112,
+0x914B,
+0x919C,
+0x9310,
+0x9318,
+0x939A,
+0x96DB,
+0x9A36,
+0x9C0D,
+0x4E11,
+0x755C,
+0x795D,
+0x7AFA,
+0x7B51,
+0x7BC9,
+0x7E2E,
+0x84C4,
+0x8E59,
+0x8E74,
+0x8EF8,
+0x9010,
+0x6625,
+0x693F,
+0x7443,
+0x51FA,
+0x672E,
+0x9EDC,
+0x5145,
+0x5FE0,
+0x6C96,
+0x87F2,
+0x885D,
+0x8877,
+0x60B4,
+0x81B5,
+0x8403,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x8D05,
+0x53D6,
+0x5439,
+0x5634,
+0x5A36,
+0x5C31,
+0x708A,
+0x7FE0,
+0x805A,
+0x8106,
+0x81ED,
+0x8DA3,
+0x9189,
+0x9A5F,
+0x9DF2,
+0x5074,
+0x4EC4,
+0x53A0,
+0x60FB,
+0x6E2C,
+0x5C64,
+0x4F88,
+0x5024,
+0x55E4,
+0x5CD9,
+0x5E5F,
+0x6065,
+0x6894,
+0x6CBB,
+0x6DC4,
+0x71BE,
+0x75D4,
+0x75F4,
+0x7661,
+0x7A1A,
+0x7A49,
+0x7DC7,
+0x7DFB,
+0x7F6E,
+0x81F4,
+0x86A9,
+0x8F1C,
+0x96C9,
+0x99B3,
+0x9F52,
+0x5247,
+0x52C5,
+0x98ED,
+0x89AA,
+0x4E03,
+0x67D2,
+0x6F06,
+0x4FB5,
+0x5BE2,
+0x6795,
+0x6C88,
+0x6D78,
+0x741B,
+0x7827,
+0x91DD,
+0x937C,
+0x87C4,
+0x79E4,
+0x7A31,
+0x5FEB,
+0x4ED6,
+0x54A4,
+0x553E,
+0x58AE,
+0x59A5,
+0x60F0,
+0x6253,
+0x62D6,
+0x6736,
+0x6955,
+0x8235,
+0x9640,
+0x99B1,
+0x99DD,
+0x502C,
+0x5353,
+0x5544,
+0x577C,
+0xFA01,
+0x6258,
+0xFA02,
+0x64E2,
+0x666B,
+0x67DD,
+0x6FC1,
+0x6FEF,
+0x7422,
+0x7438,
+0x8A17,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x9438,
+0x5451,
+0x5606,
+0x5766,
+0x5F48,
+0x619A,
+0x6B4E,
+0x7058,
+0x70AD,
+0x7DBB,
+0x8A95,
+0x596A,
+0x812B,
+0x63A2,
+0x7708,
+0x803D,
+0x8CAA,
+0x5854,
+0x642D,
+0x69BB,
+0x5B95,
+0x5E11,
+0x6E6F,
+0xFA03,
+0x8569,
+0x514C,
+0x53F0,
+0x592A,
+0x6020,
+0x614B,
+0x6B86,
+0x6C70,
+0x6CF0,
+0x7B1E,
+0x80CE,
+0x82D4,
+0x8DC6,
+0x90B0,
+0x98B1,
+0xFA04,
+0x64C7,
+0x6FA4,
+0x6491,
+0x6504,
+0x514E,
+0x5410,
+0x571F,
+0x8A0E,
+0x615F,
+0x6876,
+0xFA05,
+0x75DB,
+0x7B52,
+0x7D71,
+0x901A,
+0x5806,
+0x69CC,
+0x817F,
+0x892A,
+0x9000,
+0x9839,
+0x5078,
+0x5957,
+0x59AC,
+0x6295,
+0x900F,
+0x9B2A,
+0x615D,
+0x7279,
+0x95D6,
+0x5761,
+0x5A46,
+0x5DF4,
+0x628A,
+0x64AD,
+0x64FA,
+0x6777,
+0x6CE2,
+0x6D3E,
+0x722C,
+0x7436,
+0x7834,
+0x7F77,
+0x82AD,
+0x8DDB,
+0x9817,
+0x5224,
+0x5742,
+0x677F,
+0x7248,
+0x74E3,
+0x8CA9,
+0x8FA6,
+0x9211,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x962A,
+0x516B,
+0x53ED,
+0x634C,
+0x4F69,
+0x5504,
+0x6096,
+0x6557,
+0x6C9B,
+0x6D7F,
+0x724C,
+0x72FD,
+0x7A17,
+0x8987,
+0x8C9D,
+0x5F6D,
+0x6F8E,
+0x70F9,
+0x81A8,
+0x610E,
+0x4FBF,
+0x504F,
+0x6241,
+0x7247,
+0x7BC7,
+0x7DE8,
+0x7FE9,
+0x904D,
+0x97AD,
+0x9A19,
+0x8CB6,
+0x576A,
+0x5E73,
+0x67B0,
+0x840D,
+0x8A55,
+0x5420,
+0x5B16,
+0x5E63,
+0x5EE2,
+0x5F0A,
+0x6583,
+0x80BA,
+0x853D,
+0x9589,
+0x965B,
+0x4F48,
+0x5305,
+0x530D,
+0x530F,
+0x5486,
+0x54FA,
+0x5703,
+0x5E03,
+0x6016,
+0x629B,
+0x62B1,
+0x6355,
+0xFA06,
+0x6CE1,
+0x6D66,
+0x75B1,
+0x7832,
+0x80DE,
+0x812F,
+0x82DE,
+0x8461,
+0x84B2,
+0x888D,
+0x8912,
+0x900B,
+0x92EA,
+0x98FD,
+0x9B91,
+0x5E45,
+0x66B4,
+0x66DD,
+0x7011,
+0x7206,
+0xFA07,
+0x4FF5,
+0x527D,
+0x5F6A,
+0x6153,
+0x6753,
+0x6A19,
+0x6F02,
+0x74E2,
+0x7968,
+0x8868,
+0x8C79,
+0x98C7,
+0x98C4,
+0x9A43,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x54C1,
+0x7A1F,
+0x6953,
+0x8AF7,
+0x8C4A,
+0x98A8,
+0x99AE,
+0x5F7C,
+0x62AB,
+0x75B2,
+0x76AE,
+0x88AB,
+0x907F,
+0x9642,
+0x5339,
+0x5F3C,
+0x5FC5,
+0x6CCC,
+0x73CC,
+0x7562,
+0x758B,
+0x7B46,
+0x82FE,
+0x999D,
+0x4E4F,
+0x903C,
+0x4E0B,
+0x4F55,
+0x53A6,
+0x590F,
+0x5EC8,
+0x6630,
+0x6CB3,
+0x7455,
+0x8377,
+0x8766,
+0x8CC0,
+0x9050,
+0x971E,
+0x9C15,
+0x58D1,
+0x5B78,
+0x8650,
+0x8B14,
+0x9DB4,
+0x5BD2,
+0x6068,
+0x608D,
+0x65F1,
+0x6C57,
+0x6F22,
+0x6FA3,
+0x701A,
+0x7F55,
+0x7FF0,
+0x9591,
+0x9592,
+0x9650,
+0x97D3,
+0x5272,
+0x8F44,
+0x51FD,
+0x542B,
+0x54B8,
+0x5563,
+0x558A,
+0x6ABB,
+0x6DB5,
+0x7DD8,
+0x8266,
+0x929C,
+0x9677,
+0x9E79,
+0x5408,
+0x54C8,
+0x76D2,
+0x86E4,
+0x95A4,
+0x95D4,
+0x965C,
+0x4EA2,
+0x4F09,
+0x59EE,
+0x5AE6,
+0x5DF7,
+0x6052,
+0x6297,
+0x676D,
+0x6841,
+0x6C86,
+0x6E2F,
+0x7F38,
+0x809B,
+0x822A,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFA08,
+0xFA09,
+0x9805,
+0x4EA5,
+0x5055,
+0x54B3,
+0x5793,
+0x595A,
+0x5B69,
+0x5BB3,
+0x61C8,
+0x6977,
+0x6D77,
+0x7023,
+0x87F9,
+0x89E3,
+0x8A72,
+0x8AE7,
+0x9082,
+0x99ED,
+0x9AB8,
+0x52BE,
+0x6838,
+0x5016,
+0x5E78,
+0x674F,
+0x8347,
+0x884C,
+0x4EAB,
+0x5411,
+0x56AE,
+0x73E6,
+0x9115,
+0x97FF,
+0x9909,
+0x9957,
+0x9999,
+0x5653,
+0x589F,
+0x865B,
+0x8A31,
+0x61B2,
+0x6AF6,
+0x737B,
+0x8ED2,
+0x6B47,
+0x96AA,
+0x9A57,
+0x5955,
+0x7200,
+0x8D6B,
+0x9769,
+0x4FD4,
+0x5CF4,
+0x5F26,
+0x61F8,
+0x665B,
+0x6CEB,
+0x70AB,
+0x7384,
+0x73B9,
+0x73FE,
+0x7729,
+0x774D,
+0x7D43,
+0x7D62,
+0x7E23,
+0x8237,
+0x8852,
+0xFA0A,
+0x8CE2,
+0x9249,
+0x986F,
+0x5B51,
+0x7A74,
+0x8840,
+0x9801,
+0x5ACC,
+0x4FE0,
+0x5354,
+0x593E,
+0x5CFD,
+0x633E,
+0x6D79,
+0x72F9,
+0x8105,
+0x8107,
+0x83A2,
+0x92CF,
+0x9830,
+0x4EA8,
+0x5144,
+0x5211,
+0x578B,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x5F62,
+0x6CC2,
+0x6ECE,
+0x7005,
+0x7050,
+0x70AF,
+0x7192,
+0x73E9,
+0x7469,
+0x834A,
+0x87A2,
+0x8861,
+0x9008,
+0x90A2,
+0x93A3,
+0x99A8,
+0x516E,
+0x5F57,
+0x60E0,
+0x6167,
+0x66B3,
+0x8559,
+0x8E4A,
+0x91AF,
+0x978B,
+0x4E4E,
+0x4E92,
+0x547C,
+0x58D5,
+0x58FA,
+0x597D,
+0x5CB5,
+0x5F27,
+0x6236,
+0x6248,
+0x660A,
+0x6667,
+0x6BEB,
+0x6D69,
+0x6DCF,
+0x6E56,
+0x6EF8,
+0x6F94,
+0x6FE0,
+0x6FE9,
+0x705D,
+0x72D0,
+0x7425,
+0x745A,
+0x74E0,
+0x7693,
+0x795C,
+0x7CCA,
+0x7E1E,
+0x80E1,
+0x82A6,
+0x846B,
+0x84BF,
+0x864E,
+0x865F,
+0x8774,
+0x8B77,
+0x8C6A,
+0x93AC,
+0x9800,
+0x9865,
+0x60D1,
+0x6216,
+0x9177,
+0x5A5A,
+0x660F,
+0x6DF7,
+0x6E3E,
+0x743F,
+0x9B42,
+0x5FFD,
+0x60DA,
+0x7B0F,
+0x54C4,
+0x5F18,
+0x6C5E,
+0x6CD3,
+0x6D2A,
+0x70D8,
+0x7D05,
+0x8679,
+0x8A0C,
+0x9D3B,
+0x5316,
+0x548C,
+0x5B05,
+0x6A3A,
+0x706B,
+0x7575,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x798D,
+0x79BE,
+0x82B1,
+0x83EF,
+0x8A71,
+0x8B41,
+0x8CA8,
+0x9774,
+0xFA0B,
+0x64F4,
+0x652B,
+0x78BA,
+0x78BB,
+0x7A6B,
+0x4E38,
+0x559A,
+0x5950,
+0x5BA6,
+0x5E7B,
+0x60A3,
+0x63DB,
+0x6B61,
+0x6665,
+0x6853,
+0x6E19,
+0x7165,
+0x74B0,
+0x7D08,
+0x9084,
+0x9A69,
+0x9C25,
+0x6D3B,
+0x6ED1,
+0x733E,
+0x8C41,
+0x95CA,
+0x51F0,
+0x5E4C,
+0x5FA8,
+0x604D,
+0x60F6,
+0x6130,
+0x614C,
+0x6643,
+0x6644,
+0x69A5,
+0x6CC1,
+0x6E5F,
+0x6EC9,
+0x6F62,
+0x714C,
+0x749C,
+0x7687,
+0x7BC1,
+0x7C27,
+0x8352,
+0x8757,
+0x9051,
+0x968D,
+0x9EC3,
+0x532F,
+0x56DE,
+0x5EFB,
+0x5F8A,
+0x6062,
+0x6094,
+0x61F7,
+0x6666,
+0x6703,
+0x6A9C,
+0x6DEE,
+0x6FAE,
+0x7070,
+0x736A,
+0x7E6A,
+0x81BE,
+0x8334,
+0x86D4,
+0x8AA8,
+0x8CC4,
+0x5283,
+0x7372,
+0x5B96,
+0x6A6B,
+0x9404,
+0x54EE,
+0x5686,
+0x5B5D,
+0x6548,
+0x6585,
+0x66C9,
+0x689F,
+0x6D8D,
+0x6DC6,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0xFFFD,
+0x723B,
+0x80B4,
+0x9175,
+0x9A4D,
+0x4FAF,
+0x5019,
+0x539A,
+0x540E,
+0x543C,
+0x5589,
+0x55C5,
+0x5E3F,
+0x5F8C,
+0x673D,
+0x7166,
+0x73DD,
+0x9005,
+0x52DB,
+0x52F3,
+0x5864,
+0x58CE,
+0x7104,
+0x718F,
+0x71FB,
+0x85B0,
+0x8A13,
+0x6688,
+0x85A8,
+0x55A7,
+0x6684,
+0x714A,
+0x8431,
+0x5349,
+0x5599,
+0x6BC1,
+0x5F59,
+0x5FBD,
+0x63EE,
+0x6689,
+0x7147,
+0x8AF1,
+0x8F1D,
+0x9EBE,
+0x4F11,
+0x643A,
+0x70CB,
+0x7566,
+0x8667,
+0x6064,
+0x8B4E,
+0x9DF8,
+0x5147,
+0x51F6,
+0x5308,
+0x6D36,
+0x80F8,
+0x9ED1,
+0x6615,
+0x6B23,
+0x7098,
+0x75D5,
+0x5403,
+0x5C79,
+0x7D07,
+0x8A16,
+0x6B20,
+0x6B3D,
+0x6B46,
+0x5438,
+0x6070,
+0x6D3D,
+0x7FD5,
+0x8208,
+0x50D6,
+0x51DE,
+0x559C,
+0x566B,
+0x56CD,
+0x59EC,
+0x5B09,
+0x5E0C,
+0x6199,
+0x6198,
+0x6231,
+0x665E,
+0x66E6,
+0x7199,
+0x71B9,
+0x71BA,
+0x72A7,
+0x79A7,
+0x7A00,
+0x7FB2,
+0x8A70,
+0xFFFD,
+0
+};
+static CONST USHORT to_unicode_map[256] = {
+256,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+512,
+768,
+1024,
+1280,
+1536,
+1792,
+2048,
+2304,
+2560,
+2816,
+3072,
+3328,
+3584,
+3840,
+4096,
+4352,
+4608,
+4864,
+5120,
+5376,
+5632,
+5888,
+6144,
+6400,
+6656,
+6912,
+7168,
+7424,
+7680,
+7936,
+8192,
+8448,
+8704,
+8960,
+9216,
+9472,
+9728,
+9984,
+10240,
+10496,
+10752,
+11008,
+11264,
+11520,
+11776,
+12032,
+12288,
+12544,
+12800,
+13056,
+13312,
+13568,
+13824,
+14080,
+14336,
+14592,
+14848,
+15104,
+15360,
+15616,
+15872,
+16128,
+16384,
+16640,
+16896,
+17152,
+17408,
+17664,
+17920,
+18176,
+18432,
+18688,
+0,
+18944,
+19200,
+19456,
+19712,
+19968,
+20224,
+20480,
+20736,
+20992,
+21248,
+21504,
+21760,
+22016,
+22272,
+22528,
+22784,
+23040,
+23296,
+23552,
+23808,
+24064,
+24320,
+24576,
+24832,
+25088,
+25344,
+25600,
+25856,
+26112,
+26368,
+26624,
+26880,
+27136,
+27392,
+27648,
+27904,
+28160,
+28416,
+28672,
+28928,
+29184,
+29440,
+29696,
+29952,
+30208,
+30464,
+30720,
+30976,
+31232,
+31488,
+31744,
+32000,
+0,
+0
+};
+
+
+
+
+#line 49617 "cs_ksc5601.h"
+
+static CONST USHORT FAR_VARIABLE from_unicode_mapping_array[] = {
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0x0000,
+0x0001,
+0x0002,
+0x0003,
+0x0004,
+0x0005,
+0x0006,
+0x0007,
+0x0008,
+0x0009,
+0x000A,
+0x000B,
+0x000C,
+0x000D,
+0x000E,
+0x000F,
+0x0010,
+0x0011,
+0x0012,
+0x0013,
+0x0014,
+0x0015,
+0x0016,
+0x0017,
+0x0018,
+0x0019,
+0x001A,
+0x001B,
+0x001C,
+0x001D,
+0x001E,
+0x001F,
+0x0020,
+0x0021,
+0x0022,
+0x0023,
+0x0024,
+0x0025,
+0x0026,
+0x0027,
+0x0028,
+0x0029,
+0x002A,
+0x002B,
+0x002C,
+0x002D,
+0x002E,
+0x002F,
+0x0030,
+0x0031,
+0x0032,
+0x0033,
+0x0034,
+0x0035,
+0x0036,
+0x0037,
+0x0038,
+0x0039,
+0x003A,
+0x003B,
+0x003C,
+0x003D,
+0x003E,
+0x003F,
+0x0040,
+0x0041,
+0x0042,
+0x0043,
+0x0044,
+0x0045,
+0x0046,
+0x0047,
+0x0048,
+0x0049,
+0x004A,
+0x004B,
+0x004C,
+0x004D,
+0x004E,
+0x004F,
+0x0050,
+0x0051,
+0x0052,
+0x0053,
+0x0054,
+0x0055,
+0x0056,
+0x0057,
+0x0058,
+0x0059,
+0x005A,
+0x005B,
+0x005C,
+0x005D,
+0x005E,
+0x005F,
+0x0060,
+0x0061,
+0x0062,
+0x0063,
+0x0064,
+0x0065,
+0x0066,
+0x0067,
+0x0068,
+0x0069,
+0x006A,
+0x006B,
+0x006C,
+0x006D,
+0x006E,
+0x006F,
+0x0070,
+0x0071,
+0x0072,
+0x0073,
+0x0074,
+0x0075,
+0x0076,
+0x0077,
+0x0078,
+0x0079,
+0x007A,
+0x007B,
+0x007C,
+0x007D,
+0x007E,
+0x007F,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2AE,
+0,
+0,
+0xA2B4,
+0,
+0,
+0xA1D7,
+0xA1A7,
+0,
+0xA8A3,
+0,
+0,
+0xA1A9,
+0,
+0,
+0xA1C6,
+0xA1BE,
+0xA9F7,
+0xA9F8,
+0xA2A5,
+0,
+0xA2D2,
+0xA1A4,
+0xA2AC,
+0xA9F6,
+0xA8AC,
+0,
+0xA8F9,
+0xA8F6,
+0xA8FA,
+0xA2AF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1BF,
+0xA8AA,
+0,
+0,
+0,
+0,
+0,
+0xA8AD,
+0xA9AC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA9A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA9A3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1C0,
+0xA9AA,
+0,
+0,
+0,
+0,
+0,
+0xA9AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA9A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8A4,
+0xA9A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA9A5,
+0xA8A6,
+0xA9A6,
+0,
+0,
+0,
+0,
+0xA9A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8A8,
+0xA9A8,
+0xA8A9,
+0xA9A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA9B0,
+0xA8AF,
+0xA9AF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8AB,
+0xA9AB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8AE,
+0xA9AE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2A8,
+0xA2AB,
+0xA2AA,
+0xA2AD,
+0,
+0xA2A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA5C1,
+0xA5C2,
+0xA5C3,
+0xA5C4,
+0xA5C5,
+0xA5C6,
+0xA5C7,
+0xA5C8,
+0xA5C9,
+0xA5CA,
+0xA5CB,
+0xA5CC,
+0xA5CD,
+0xA5CE,
+0xA5CF,
+0xA5D0,
+0xA5D1,
+0,
+0xA5D2,
+0xA5D3,
+0xA5D4,
+0xA5D5,
+0xA5D6,
+0xA5D7,
+0xA5D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA5E1,
+0xA5E2,
+0xA5E3,
+0xA5E4,
+0xA5E5,
+0xA5E6,
+0xA5E7,
+0xA5E8,
+0xA5E9,
+0xA5EA,
+0xA5EB,
+0xA5EC,
+0xA5ED,
+0xA5EE,
+0xA5EF,
+0xA5F0,
+0xA5F1,
+0,
+0xA5F2,
+0xA5F3,
+0xA5F4,
+0xA5F5,
+0xA5F6,
+0xA5F7,
+0xA5F8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xACA7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xACA1,
+0xACA2,
+0xACA3,
+0xACA4,
+0xACA5,
+0xACA6,
+0xACA8,
+0xACA9,
+0xACAA,
+0xACAB,
+0xACAC,
+0xACAD,
+0xACAE,
+0xACAF,
+0xACB0,
+0xACB1,
+0xACB2,
+0xACB3,
+0xACB4,
+0xACB5,
+0xACB6,
+0xACB7,
+0xACB8,
+0xACB9,
+0xACBA,
+0xACBB,
+0xACBC,
+0xACBD,
+0xACBE,
+0xACBF,
+0xACC0,
+0xACC1,
+0xACD1,
+0xACD2,
+0xACD3,
+0xACD4,
+0xACD5,
+0xACD6,
+0xACD8,
+0xACD9,
+0xACDA,
+0xACDB,
+0xACDC,
+0xACDD,
+0xACDE,
+0xACDF,
+0xACE0,
+0xACE1,
+0xACE2,
+0xACE3,
+0xACE4,
+0xACE5,
+0xACE6,
+0xACE7,
+0xACE8,
+0xACE9,
+0xACEA,
+0xACEB,
+0xACEC,
+0xACED,
+0xACEE,
+0xACEF,
+0xACF0,
+0xACF1,
+0,
+0xACD7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1AA,
+0,
+0,
+0xA1AE,
+0xA1AF,
+0,
+0,
+0xA1B0,
+0xA1B1,
+0,
+0,
+0xA2D3,
+0xA2D4,
+0,
+0,
+0,
+0xA1A5,
+0xA1A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2B6,
+0,
+0xA1C7,
+0xA1C8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA9F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA9FA,
+0,
+0xA9FB,
+0xA9FC,
+0xA9FD,
+0xA9FE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1C9,
+0,
+0,
+0,
+0,
+0,
+0xA2B5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA7A4,
+0,
+0,
+0xA2E0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2E5,
+0xA2E2,
+0,
+0,
+0,
+0xA7D9,
+0,
+0,
+0,
+0,
+0xA1CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8F7,
+0xA8F8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8FB,
+0xA8FC,
+0xA8FD,
+0xA8FE,
+0,
+0xA5B0,
+0xA5B1,
+0xA5B2,
+0xA5B3,
+0xA5B4,
+0xA5B5,
+0xA5B6,
+0xA5B7,
+0xA5B8,
+0xA5B9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA5A1,
+0xA5A2,
+0xA5A3,
+0xA5A4,
+0xA5A5,
+0xA5A6,
+0xA5A7,
+0xA5A8,
+0xA5A9,
+0xA5AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1E7,
+0xA1E8,
+0xA1E6,
+0xA1E9,
+0xA1EA,
+0xA2D5,
+0xA2D8,
+0xA2D6,
+0xA2D9,
+0xA2D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2A1,
+0,
+0xA2A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2A3,
+0,
+0xA1D3,
+0xA2A4,
+0,
+0,
+0,
+0xA1D4,
+0xA1F4,
+0,
+0,
+0xA1F5,
+0,
+0,
+0,
+0xA2B3,
+0,
+0xA2B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1EE,
+0,
+0,
+0xA1F0,
+0xA1C4,
+0,
+0xA1D0,
+0,
+0,
+0,
+0,
+0xA1AB,
+0,
+0xA1FC,
+0xA1FD,
+0xA1FB,
+0xA1FA,
+0xA1F2,
+0xA1F3,
+0,
+0xA2B1,
+0,
+0,
+0,
+0,
+0,
+0xA1C5,
+0xA1F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1AD,
+0xA1EF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1D6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1C1,
+0xA1D5,
+0,
+0,
+0xA1C2,
+0xA1C3,
+0,
+0,
+0,
+0,
+0xA1EC,
+0xA1ED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1F8,
+0xA1F9,
+0,
+0,
+0xA1F6,
+0xA1F7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2C1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1D2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8E7,
+0xA8E8,
+0xA8E9,
+0xA8EA,
+0xA8EB,
+0xA8EC,
+0xA8ED,
+0xA8EE,
+0xA8EF,
+0xA8F0,
+0xA8F1,
+0xA8F2,
+0xA8F3,
+0xA8F4,
+0xA8F5,
+0,
+0,
+0,
+0,
+0,
+0xA9E7,
+0xA9E8,
+0xA9E9,
+0xA9EA,
+0xA9EB,
+0xA9EC,
+0xA9ED,
+0xA9EE,
+0xA9EF,
+0xA9F0,
+0xA9F1,
+0xA9F2,
+0xA9F3,
+0xA9F4,
+0xA9F5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA9CD,
+0xA9CE,
+0xA9CF,
+0xA9D0,
+0xA9D1,
+0xA9D2,
+0xA9D3,
+0xA9D4,
+0xA9D5,
+0xA9D6,
+0xA9D7,
+0xA9D8,
+0xA9D9,
+0xA9DA,
+0xA9DB,
+0xA9DC,
+0xA9DD,
+0xA9DE,
+0xA9DF,
+0xA9E0,
+0xA9E1,
+0xA9E2,
+0xA9E3,
+0xA9E4,
+0xA9E5,
+0xA9E6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8CD,
+0xA8CE,
+0xA8CF,
+0xA8D0,
+0xA8D1,
+0xA8D2,
+0xA8D3,
+0xA8D4,
+0xA8D5,
+0xA8D6,
+0xA8D7,
+0xA8D8,
+0xA8D9,
+0xA8DA,
+0xA8DB,
+0xA8DC,
+0xA8DD,
+0xA8DE,
+0xA8DF,
+0xA8E0,
+0xA8E1,
+0xA8E2,
+0xA8E3,
+0xA8E4,
+0xA8E5,
+0xA8E6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA6A1,
+0xA6AC,
+0xA6A2,
+0xA6AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA6A3,
+0xA6C8,
+0xA6C7,
+0xA6AE,
+0xA6A4,
+0xA6C2,
+0xA6C1,
+0xA6AF,
+0xA6A6,
+0xA6C6,
+0xA6C5,
+0xA6B1,
+0xA6A5,
+0xA6C4,
+0xA6C3,
+0xA6B0,
+0xA6A7,
+0xA6BC,
+0xA6C9,
+0xA6CA,
+0xA6B7,
+0xA6CB,
+0xA6CC,
+0xA6B2,
+0xA6A9,
+0xA6BE,
+0xA6CD,
+0xA6CE,
+0xA6B9,
+0xA6CF,
+0xA6D0,
+0xA6B4,
+0xA6A8,
+0xA6D1,
+0xA6D2,
+0xA6B8,
+0xA6BD,
+0xA6D3,
+0xA6D4,
+0xA6B3,
+0xA6AA,
+0xA6D5,
+0xA6D6,
+0xA6BA,
+0xA6BF,
+0xA6D7,
+0xA6D8,
+0xA6B5,
+0xA6AB,
+0xA6D9,
+0xA6DA,
+0xA6BB,
+0xA6DB,
+0xA6DC,
+0xA6C0,
+0xA6DD,
+0xA6DE,
+0xA6DF,
+0xA6E0,
+0xA6E1,
+0xA6E2,
+0xA6E3,
+0xA6E4,
+0xA6B6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1E1,
+0xA1E0,
+0,
+0xA2C3,
+0xA2C7,
+0xA2C8,
+0xA2CB,
+0xA2CA,
+0xA2C9,
+0xA2CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1E3,
+0xA1E2,
+0,
+0,
+0xA2BA,
+0xA2B9,
+0,
+0,
+0,
+0,
+0xA1E5,
+0xA1E4,
+0,
+0,
+0xA2B8,
+0xA2B7,
+0,
+0,
+0,
+0,
+0xA1DF,
+0xA1DE,
+0xA2C2,
+0,
+0,
+0xA1DB,
+0,
+0,
+0xA1DD,
+0xA1DC,
+0xA2C4,
+0xA2C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1DA,
+0xA1D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2CF,
+0xA2CE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2D0,
+0,
+0xA2D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1CF,
+0,
+0xA1CE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA2BC,
+0xA2BD,
+0,
+0xA2C0,
+0xA2BB,
+0xA2BE,
+0,
+0xA2BF,
+0xA2CD,
+0xA2DB,
+0xA2DC,
+0,
+0xA2DD,
+0xA2DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1A1,
+0xA1A2,
+0xA1A3,
+0xA1A8,
+0,
+0,
+0,
+0,
+0xA1B4,
+0xA1B5,
+0xA1B6,
+0xA1B7,
+0xA1B8,
+0xA1B9,
+0xA1BA,
+0xA1BB,
+0xA1BC,
+0xA1BD,
+0,
+0xA1EB,
+0xA1B2,
+0xA1B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xAAA1,
+0xAAA2,
+0xAAA3,
+0xAAA4,
+0xAAA5,
+0xAAA6,
+0xAAA7,
+0xAAA8,
+0xAAA9,
+0xAAAA,
+0xAAAB,
+0xAAAC,
+0xAAAD,
+0xAAAE,
+0xAAAF,
+0xAAB0,
+0xAAB1,
+0xAAB2,
+0xAAB3,
+0xAAB4,
+0xAAB5,
+0xAAB6,
+0xAAB7,
+0xAAB8,
+0xAAB9,
+0xAABA,
+0xAABB,
+0xAABC,
+0xAABD,
+0xAABE,
+0xAABF,
+0xAAC0,
+0xAAC1,
+0xAAC2,
+0xAAC3,
+0xAAC4,
+0xAAC5,
+0xAAC6,
+0xAAC7,
+0xAAC8,
+0xAAC9,
+0xAACA,
+0xAACB,
+0xAACC,
+0xAACD,
+0xAACE,
+0xAACF,
+0xAAD0,
+0xAAD1,
+0xAAD2,
+0xAAD3,
+0xAAD4,
+0xAAD5,
+0xAAD6,
+0xAAD7,
+0xAAD8,
+0xAAD9,
+0xAADA,
+0xAADB,
+0xAADC,
+0xAADD,
+0xAADE,
+0xAADF,
+0xAAE0,
+0xAAE1,
+0xAAE2,
+0xAAE3,
+0xAAE4,
+0xAAE5,
+0xAAE6,
+0xAAE7,
+0xAAE8,
+0xAAE9,
+0xAAEA,
+0xAAEB,
+0xAAEC,
+0xAAED,
+0xAAEE,
+0xAAEF,
+0xAAF0,
+0xAAF1,
+0xAAF2,
+0xAAF3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xABA1,
+0xABA2,
+0xABA3,
+0xABA4,
+0xABA5,
+0xABA6,
+0xABA7,
+0xABA8,
+0xABA9,
+0xABAA,
+0xABAB,
+0xABAC,
+0xABAD,
+0xABAE,
+0xABAF,
+0xABB0,
+0xABB1,
+0xABB2,
+0xABB3,
+0xABB4,
+0xABB5,
+0xABB6,
+0xABB7,
+0xABB8,
+0xABB9,
+0xABBA,
+0xABBB,
+0xABBC,
+0xABBD,
+0xABBE,
+0xABBF,
+0xABC0,
+0xABC1,
+0xABC2,
+0xABC3,
+0xABC4,
+0xABC5,
+0xABC6,
+0xABC7,
+0xABC8,
+0xABC9,
+0xABCA,
+0xABCB,
+0xABCC,
+0xABCD,
+0xABCE,
+0xABCF,
+0xABD0,
+0xABD1,
+0xABD2,
+0xABD3,
+0xABD4,
+0xABD5,
+0xABD6,
+0xABD7,
+0xABD8,
+0xABD9,
+0xABDA,
+0xABDB,
+0xABDC,
+0xABDD,
+0xABDE,
+0xABDF,
+0xABE0,
+0xABE1,
+0xABE2,
+0xABE3,
+0xABE4,
+0xABE5,
+0xABE6,
+0xABE7,
+0xABE8,
+0xABE9,
+0xABEA,
+0xABEB,
+0xABEC,
+0xABED,
+0xABEE,
+0xABEF,
+0xABF0,
+0xABF1,
+0xABF2,
+0xABF3,
+0xABF4,
+0xABF5,
+0xABF6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA4A1,
+0xA4A2,
+0xA4A3,
+0xA4A4,
+0xA4A5,
+0xA4A6,
+0xA4A7,
+0xA4A8,
+0xA4A9,
+0xA4AA,
+0xA4AB,
+0xA4AC,
+0xA4AD,
+0xA4AE,
+0xA4AF,
+0xA4B0,
+0xA4B1,
+0xA4B2,
+0xA4B3,
+0xA4B4,
+0xA4B5,
+0xA4B6,
+0xA4B7,
+0xA4B8,
+0xA4B9,
+0xA4BA,
+0xA4BB,
+0xA4BC,
+0xA4BD,
+0xA4BE,
+0xA4BF,
+0xA4C0,
+0xA4C1,
+0xA4C2,
+0xA4C3,
+0xA4C4,
+0xA4C5,
+0xA4C6,
+0xA4C7,
+0xA4C8,
+0xA4C9,
+0xA4CA,
+0xA4CB,
+0xA4CC,
+0xA4CD,
+0xA4CE,
+0xA4CF,
+0xA4D0,
+0xA4D1,
+0xA4D2,
+0xA4D3,
+0xA4D4,
+0xA4D5,
+0xA4D6,
+0xA4D7,
+0xA4D8,
+0xA4D9,
+0xA4DA,
+0xA4DB,
+0xA4DC,
+0xA4DD,
+0xA4DE,
+0xA4DF,
+0xA4E0,
+0xA4E1,
+0xA4E2,
+0xA4E3,
+0xA4E4,
+0xA4E5,
+0xA4E6,
+0xA4E7,
+0xA4E8,
+0xA4E9,
+0xA4EA,
+0xA4EB,
+0xA4EC,
+0xA4ED,
+0xA4EE,
+0xA4EF,
+0xA4F0,
+0xA4F1,
+0xA4F2,
+0xA4F3,
+0xA4F4,
+0xA4F5,
+0xA4F6,
+0xA4F7,
+0xA4F8,
+0xA4F9,
+0xA4FA,
+0xA4FB,
+0xA4FC,
+0xA4FD,
+0xA4FE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA9B1,
+0xA9B2,
+0xA9B3,
+0xA9B4,
+0xA9B5,
+0xA9B6,
+0xA9B7,
+0xA9B8,
+0xA9B9,
+0xA9BA,
+0xA9BB,
+0xA9BC,
+0xA9BD,
+0xA9BE,
+0xA9BF,
+0xA9C0,
+0xA9C1,
+0xA9C2,
+0xA9C3,
+0xA9C4,
+0xA9C5,
+0xA9C6,
+0xA9C7,
+0xA9C8,
+0xA9C9,
+0xA9CA,
+0xA9CB,
+0xA9CC,
+0xA2DF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA8B1,
+0xA8B2,
+0xA8B3,
+0xA8B4,
+0xA8B5,
+0xA8B6,
+0xA8B7,
+0xA8B8,
+0xA8B9,
+0xA8BA,
+0xA8BB,
+0xA8BC,
+0xA8BD,
+0xA8BE,
+0xA8BF,
+0xA8C0,
+0xA8C1,
+0xA8C2,
+0xA8C3,
+0xA8C4,
+0xA8C5,
+0xA8C6,
+0xA8C7,
+0xA8C8,
+0xA8C9,
+0xA8CA,
+0xA8CB,
+0xA8CC,
+0,
+0,
+0,
+0xA2DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA7C9,
+0xA7CA,
+0xA7CB,
+0xA7CC,
+0xA7CD,
+0,
+0,
+0,
+0xA7BA,
+0xA7BB,
+0xA7DC,
+0xA7DD,
+0xA7DE,
+0xA7B6,
+0xA7B7,
+0xA7B8,
+0xA7D4,
+0xA7D5,
+0xA7D6,
+0xA7D7,
+0xA7D8,
+0xA7A1,
+0xA7A2,
+0xA7A3,
+0xA7A5,
+0xA7AB,
+0xA7AC,
+0xA7AD,
+0xA7AE,
+0xA7AF,
+0xA7B0,
+0xA7B1,
+0xA7B2,
+0xA7B3,
+0xA7B4,
+0xA7A7,
+0xA7A8,
+0xA7A9,
+0xA7AA,
+0xA7BD,
+0xA7BE,
+0xA7E5,
+0xA7E6,
+0xA7E7,
+0xA7E8,
+0xA7E1,
+0xA7E2,
+0xA7E3,
+0xA7BF,
+0xA7C0,
+0xA7C1,
+0xA7C2,
+0xA7C3,
+0xA7C4,
+0xA7C5,
+0xA7C6,
+0xA7C7,
+0xA7C8,
+0xA7CE,
+0xA7CF,
+0xA7D0,
+0xA7D1,
+0xA7D2,
+0xA7D3,
+0xA7DA,
+0xA7DB,
+0xA2E3,
+0xA7EC,
+0xA7A6,
+0xA7E0,
+0xA7EF,
+0xA2E1,
+0xA7BC,
+0xA7ED,
+0xA7B5,
+0,
+0,
+0,
+0,
+0xA7B9,
+0xA7EA,
+0,
+0,
+0xA7EB,
+0,
+0,
+0xA7DF,
+0,
+0xA2E4,
+0,
+0,
+0xA7E4,
+0xA7EE,
+0xA7E9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECE9,
+0xEFCB,
+0,
+0xF6D2,
+0,
+0,
+0,
+0xD8B2,
+0xEDDB,
+0xDFB2,
+0xDFBE,
+0xF9BB,
+0,
+0xDCF4,
+0,
+0,
+0,
+0xF5E4,
+0,
+0,
+0xF3A6,
+0xDDE0,
+0xE1A6,
+0,
+0xCEF8,
+0xDCB0,
+0,
+0,
+0,
+0,
+0xE3AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1E9,
+0,
+0,
+0,
+0,
+0xCDFA,
+0,
+0,
+0,
+0,
+0,
+0xFCAF,
+0xD3A1,
+0,
+0xF1AB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7D1,
+0xD2AC,
+0,
+0xCEF9,
+0,
+0,
+0,
+0,
+0,
+0xF1FD,
+0,
+0xDEBF,
+0xFBBA,
+0xF9B9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCED2,
+0,
+0xE3AB,
+0xEBE0,
+0,
+0,
+0,
+0xCEFA,
+0xCBF7,
+0xE5A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAE1,
+0,
+0xD4CC,
+0,
+0,
+0,
+0,
+0,
+0xEAE1,
+0,
+0,
+0xDCE3,
+0xDFAD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBEB,
+0,
+0,
+0,
+0xD5AF,
+0,
+0,
+0,
+0xD6F5,
+0,
+0xE5F8,
+0,
+0,
+0xDEC0,
+0xECA3,
+0,
+0xE9CD,
+0,
+0xEAA7,
+0xE9F6,
+0xFBBB,
+0,
+0xE7E9,
+0xEFCC,
+0,
+0,
+0xD0E6,
+0,
+0,
+0xDEC1,
+0,
+0,
+0xE4AC,
+0,
+0,
+0xD8CC,
+0xF9F1,
+0,
+0xCEDF,
+0xFAA4,
+0xE6B2,
+0,
+0xFAFB,
+0,
+0,
+0xFABD,
+0xCCC8,
+0xEFCD,
+0xD5D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3A2,
+0,
+0,
+0,
+0xECD1,
+0,
+0,
+0,
+0,
+0,
+0xE4A7,
+0xECD2,
+0,
+0,
+0xF6B1,
+0,
+0,
+0xCEFB,
+0,
+0,
+0xD0D1,
+0xCBBF,
+0,
+0xEDA4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDA8,
+0xDEC2,
+0xF6E2,
+0xEDDC,
+0xDCF5,
+0xE0B9,
+0,
+0,
+0,
+0xD4CE,
+0,
+0xF4B5,
+0,
+0,
+0,
+0xD3DB,
+0xD6B5,
+0xECA4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4E6,
+0,
+0xF1EA,
+0,
+0,
+0,
+0xCBEC,
+0xCBC0,
+0,
+0,
+0,
+0xECF2,
+0,
+0,
+0,
+0,
+0,
+0xD0EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9F2,
+0xECA5,
+0xD0DF,
+0,
+0xE7EA,
+0xD0EB,
+0xDCD1,
+0xDBE9,
+0xFDCC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBD7,
+0,
+0,
+0,
+0,
+0xDAE1,
+0,
+0xD6B6,
+0,
+0xE3DF,
+0,
+0xDEC3,
+0,
+0xDEC4,
+0xCAA1,
+0,
+0,
+0,
+0,
+0,
+0xEEEC,
+0,
+0,
+0xD3A3,
+0xEEB7,
+0xF8CF,
+0,
+0,
+0,
+0,
+0xEAC8,
+0xEEB8,
+0xF1AC,
+0xF1A5,
+0xE9CE,
+0,
+0,
+0,
+0xF9BC,
+0,
+0,
+0,
+0xE5F9,
+0xECEA,
+0xDDD6,
+0xEDC2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8A5,
+0,
+0,
+0,
+0,
+0,
+0xE5BA,
+0xDBD8,
+0,
+0,
+0xCAA2,
+0,
+0,
+0xD1CD,
+0,
+0,
+0,
+0xEEED,
+0,
+0,
+0,
+0xECEB,
+0xDEC5,
+0,
+0xE3E0,
+0,
+0xCAC9,
+0xF2E9,
+0,
+0xD5CE,
+0,
+0xF6B6,
+0,
+0xCEC2,
+0xD6C7,
+0,
+0xE3B4,
+0,
+0xF1AD,
+0,
+0xEAE2,
+0,
+0,
+0,
+0,
+0xD7C2,
+0,
+0xF3A7,
+0,
+0,
+0xCDEA,
+0,
+0xEBEE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9B2,
+0xFDA5,
+0,
+0,
+0,
+0,
+0,
+0xF6D5,
+0xD5E2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8B5,
+0,
+0,
+0xCCF5,
+0xF5B5,
+0xE4AD,
+0,
+0,
+0,
+0,
+0xE7EB,
+0xF1D5,
+0,
+0,
+0,
+0xF0BB,
+0,
+0,
+0xE9B5,
+0,
+0xCCC9,
+0xFAD5,
+0,
+0,
+0xE1D4,
+0,
+0,
+0xD7D6,
+0,
+0,
+0xDCC1,
+0,
+0xDEC6,
+0xFAEF,
+0xE3E1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1F3,
+0xDCF6,
+0,
+0xCEFC,
+0,
+0xDBC4,
+0,
+0xF8F1,
+0,
+0,
+0xDCE4,
+0,
+0xE5EF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCB1,
+0,
+0,
+0,
+0xD5D6,
+0,
+0,
+0xF3DA,
+0,
+0xCBC1,
+0,
+0xDBC3,
+0,
+0,
+0,
+0xD9FA,
+0xD3EE,
+0,
+0,
+0,
+0xFAB8,
+0,
+0,
+0xFDA6,
+0xEBEF,
+0,
+0xF4A6,
+0,
+0xCCCA,
+0xF3A8,
+0,
+0xF3DB,
+0,
+0xDBA7,
+0xF6B7,
+0,
+0xCFE6,
+0xF0F2,
+0xCBDA,
+0,
+0xE7D2,
+0xD7C3,
+0xF6F0,
+0xE8DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5E7,
+0,
+0,
+0,
+0xCAA3,
+0xCCA7,
+0xEAC9,
+0,
+0,
+0,
+0,
+0,
+0xF8B6,
+0,
+0,
+0,
+0,
+0,
+0xFAA5,
+0,
+0,
+0,
+0,
+0xF1AE,
+0,
+0xEFCE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6B0,
+0xEFCF,
+0xE9CF,
+0,
+0xF7DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCED3,
+0,
+0,
+0,
+0,
+0xDCF7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBA8,
+0,
+0,
+0,
+0xCBF8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFA1,
+0xDDE1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5CA,
+0xE9B6,
+0,
+0,
+0,
+0,
+0xE7EC,
+0xEEEE,
+0,
+0xF3F0,
+0,
+0xDFBF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCCB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0C1,
+0,
+0,
+0,
+0xF4D2,
+0xE0BA,
+0,
+0,
+0,
+0,
+0xDFC0,
+0,
+0xCEE0,
+0,
+0,
+0,
+0xDCD2,
+0xFDEA,
+0,
+0,
+0,
+0xD6F6,
+0,
+0,
+0,
+0xEACA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8E9,
+0,
+0xE3AC,
+0,
+0,
+0,
+0,
+0,
+0xF3D0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAA4,
+0,
+0xDBF8,
+0,
+0,
+0,
+0xDEC7,
+0xEBF0,
+0xF1D6,
+0,
+0,
+0xE5E2,
+0,
+0xCCCC,
+0,
+0,
+0xCBFB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAE3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFC1,
+0,
+0xD6ED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9D0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEB9,
+0,
+0,
+0,
+0,
+0xD5E3,
+0,
+0,
+0xD1D3,
+0,
+0xE5F0,
+0,
+0,
+0,
+0xE8B4,
+0xEBC3,
+0,
+0xEAAA,
+0xFAFC,
+0xF5F6,
+0xF0BC,
+0xFDD4,
+0xE0BB,
+0xCEC3,
+0,
+0xD0BA,
+0xF7BA,
+0xD8F3,
+0xF7CD,
+0,
+0,
+0,
+0xE4AE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4DF,
+0,
+0,
+0,
+0,
+0,
+0xD0E7,
+0,
+0,
+0xECFD,
+0,
+0xD2AE,
+0xEEEF,
+0xD5D7,
+0xEAE4,
+0xF8A2,
+0xCDEB,
+0xD7BF,
+0xFBB1,
+0,
+0,
+0xCDEC,
+0,
+0,
+0,
+0xDCB2,
+0xD0EC,
+0xCEFD,
+0xEEF0,
+0,
+0,
+0,
+0xCCC2,
+0,
+0,
+0,
+0xD0ED,
+0,
+0,
+0,
+0,
+0,
+0xE5F7,
+0,
+0,
+0,
+0xF3FC,
+0,
+0,
+0xEEA2,
+0,
+0,
+0,
+0,
+0xD9B3,
+0,
+0,
+0xD8F4,
+0,
+0xE9B7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEAE,
+0,
+0,
+0,
+0,
+0xD9A2,
+0,
+0,
+0,
+0,
+0xD8F1,
+0,
+0xD4CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5A7,
+0xD5D2,
+0,
+0,
+0,
+0,
+0,
+0xD6A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4A2,
+0,
+0xF1D7,
+0,
+0,
+0xD5D8,
+0,
+0xF0BD,
+0xD7D0,
+0xD4D0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7CF,
+0xEBEA,
+0xFDEB,
+0,
+0,
+0xDBED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCC5,
+0xCBC2,
+0,
+0,
+0,
+0,
+0xFDD5,
+0,
+0xF4C8,
+0xE8EA,
+0xF5F3,
+0,
+0,
+0xF9DE,
+0,
+0,
+0xD3EF,
+0,
+0,
+0xECD3,
+0,
+0,
+0xDDC2,
+0xEFB7,
+0xE7D4,
+0,
+0xCACA,
+0,
+0,
+0,
+0xD9FB,
+0,
+0,
+0xFAFD,
+0,
+0,
+0,
+0,
+0,
+0xD6AA,
+0,
+0,
+0,
+0,
+0,
+0xF4F8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7F7,
+0xDCAC,
+0,
+0,
+0,
+0xD7D7,
+0xDFA2,
+0,
+0,
+0,
+0xCEBE,
+0,
+0xD3F0,
+0,
+0,
+0,
+0,
+0,
+0xF0A4,
+0xE1EC,
+0xCFE7,
+0xF3CB,
+0xEDA9,
+0xCABE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4EF,
+0,
+0,
+0,
+0xF6CE,
+0,
+0,
+0xDEFB,
+0xD0BB,
+0xD5B7,
+0xEEF1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4A8,
+0,
+0xDCF8,
+0,
+0,
+0,
+0,
+0xCBA7,
+0,
+0xDACE,
+0,
+0,
+0,
+0xE0E6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDA5,
+0xEEF2,
+0,
+0,
+0,
+0,
+0xDCF9,
+0,
+0,
+0xF9DC,
+0,
+0,
+0xF3DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8F2,
+0,
+0xF4F9,
+0,
+0,
+0,
+0xFCF1,
+0,
+0,
+0,
+0xD0BC,
+0xDBF9,
+0xD7B1,
+0,
+0,
+0,
+0xCBFC,
+0,
+0,
+0,
+0xF0A5,
+0xCBFD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5F4,
+0,
+0,
+0,
+0xCDED,
+0xCAA5,
+0,
+0,
+0xD6AB,
+0xD0C2,
+0,
+0,
+0,
+0,
+0xF0BE,
+0xD2BD,
+0xCCA4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAB6,
+0,
+0,
+0xCCCD,
+0,
+0xDAFA,
+0,
+0xF6CF,
+0,
+0xE9B8,
+0,
+0xD8F5,
+0,
+0,
+0,
+0xCCCE,
+0,
+0,
+0,
+0,
+0xD7CD,
+0,
+0,
+0xD4D1,
+0xE9ED,
+0,
+0xCAEB,
+0xD9E2,
+0,
+0xFDB2,
+0,
+0xE3AD,
+0xD6CC,
+0xD9B4,
+0,
+0,
+0xE1A7,
+0xEED3,
+0xD0C3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDB3,
+0,
+0xD5E4,
+0,
+0,
+0xCFE8,
+0,
+0xEDC3,
+0xD0B2,
+0,
+0,
+0xCEFE,
+0xDAA8,
+0,
+0,
+0,
+0,
+0,
+0xF8D0,
+0,
+0,
+0xFDD6,
+0,
+0,
+0,
+0,
+0xF8D1,
+0,
+0xF8D2,
+0xDCD3,
+0,
+0,
+0,
+0,
+0xDDE2,
+0xFBF9,
+0xDDC1,
+0,
+0xE3B5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDDD,
+0xCEC4,
+0,
+0xCBA1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDE3,
+0,
+0,
+0,
+0,
+0xFCDD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9AF,
+0,
+0,
+0,
+0,
+0,
+0xD2FB,
+0xCFA1,
+0xE4A8,
+0,
+0xF4B6,
+0xECFE,
+0,
+0,
+0xE3AE,
+0xE7ED,
+0xFDC1,
+0xDAE2,
+0,
+0,
+0xD8B3,
+0,
+0,
+0,
+0xDDE4,
+0xF0EF,
+0xF6F1,
+0xFAF0,
+0,
+0,
+0xD1F5,
+0,
+0,
+0xDACF,
+0,
+0xDCD4,
+0,
+0xDCA6,
+0,
+0xEFBF,
+0,
+0,
+0,
+0,
+0,
+0xCECF,
+0,
+0xE0D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9D6,
+0xECD4,
+0xEACB,
+0,
+0,
+0xCABF,
+0xD5B0,
+0,
+0xCFE9,
+0,
+0,
+0,
+0,
+0,
+0xF1ED,
+0,
+0xCCCF,
+0,
+0,
+0,
+0,
+0xE4F8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4ED,
+0,
+0,
+0,
+0,
+0xD7D8,
+0,
+0xFDA7,
+0,
+0,
+0,
+0,
+0xEAAB,
+0xF6B2,
+0,
+0,
+0,
+0,
+0xCFF0,
+0xF9BD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6F4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBDB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3D1,
+0,
+0,
+0,
+0,
+0xE9D1,
+0xF3A9,
+0xD0E0,
+0xE9D2,
+0,
+0xDAE3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2D2,
+0,
+0xF6A2,
+0xE1F4,
+0,
+0,
+0,
+0xDAE4,
+0,
+0,
+0,
+0,
+0,
+0xE7D5,
+0xF5BF,
+0xCFA2,
+0xCDAF,
+0xCFA3,
+0,
+0,
+0,
+0xCDB0,
+0xF1FE,
+0xD0A3,
+0xE1AF,
+0xF8A3,
+0,
+0xCAA6,
+0xF7BB,
+0xF2EA,
+0xDEC8,
+0xE9D3,
+0,
+0,
+0,
+0,
+0xDEC9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDDE,
+0xCAC0,
+0,
+0,
+0,
+0xF9EA,
+0xD1CE,
+0xEED4,
+0,
+0xD4D2,
+0xD9A3,
+0xFDA8,
+0xD7D9,
+0xF7CE,
+0xFABE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFD6,
+0,
+0xD7F0,
+0,
+0xEBE1,
+0xF8C5,
+0,
+0,
+0,
+0,
+0,
+0xDCFA,
+0,
+0,
+0xDDC3,
+0,
+0xF9DF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7EF,
+0,
+0,
+0,
+0,
+0xFDE5,
+0xF6A3,
+0,
+0xD9FC,
+0xFDA9,
+0,
+0xE7EE,
+0,
+0,
+0,
+0xD5E5,
+0,
+0,
+0,
+0,
+0,
+0xEFD0,
+0,
+0xCDB1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1B2,
+0,
+0xF1B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDB2,
+0,
+0xDAAB,
+0,
+0xCAA7,
+0,
+0,
+0,
+0,
+0,
+0xE3E2,
+0xFBBC,
+0xD9A4,
+0,
+0,
+0xEEBA,
+0,
+0,
+0,
+0,
+0,
+0xF8D3,
+0,
+0,
+0,
+0,
+0,
+0xFBFA,
+0,
+0xCFA4,
+0,
+0xDCFB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6E3,
+0,
+0,
+0,
+0xEDAA,
+0,
+0,
+0xF2A1,
+0xCEE1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAA6,
+0,
+0,
+0,
+0,
+0xF9E0,
+0,
+0,
+0,
+0,
+0xECD6,
+0,
+0,
+0xE4EE,
+0xF9A1,
+0,
+0,
+0xFBEF,
+0,
+0,
+0,
+0xF9EB,
+0xEEA3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAAC,
+0,
+0,
+0,
+0xCAA8,
+0,
+0,
+0xF4FA,
+0,
+0,
+0,
+0,
+0xCDD6,
+0xFCF6,
+0,
+0,
+0,
+0xF4C9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8D4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8A6,
+0,
+0xDECA,
+0xF2C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7DA,
+0,
+0xD3D0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAE6,
+0,
+0xF3DD,
+0,
+0,
+0,
+0xE4DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6E4,
+0,
+0,
+0,
+0,
+0,
+0xF6F2,
+0,
+0xDFC2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9FD,
+0,
+0,
+0,
+0xCCF6,
+0,
+0,
+0xD3BA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4AF,
+0,
+0,
+0,
+0,
+0xF9E1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0A6,
+0,
+0,
+0,
+0xCBD3,
+0,
+0,
+0,
+0xE0BC,
+0,
+0xF4CA,
+0xD4FA,
+0,
+0xFDAA,
+0xF9E2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4B7,
+0xFDC2,
+0xFCB0,
+0,
+0xFDEC,
+0xCAE2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDBD,
+0,
+0xEAE7,
+0xDFC3,
+0xD1D2,
+0xCEE2,
+0,
+0xD3A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDAB,
+0,
+0xDFE0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2C7,
+0,
+0,
+0,
+0,
+0,
+0xE7F0,
+0,
+0xD0EE,
+0,
+0,
+0xF3AA,
+0,
+0,
+0,
+0xDECB,
+0xF6B8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1F5,
+0xF1B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7A3,
+0,
+0,
+0xCAA9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFA5,
+0,
+0,
+0xDFC4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1B0,
+0,
+0,
+0xF0BF,
+0,
+0xF6A4,
+0,
+0xE3B6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAC6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0EF,
+0,
+0,
+0xFDED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDC4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCF7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6BF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEAD,
+0,
+0xFABF,
+0,
+0,
+0,
+0,
+0,
+0xE5F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDC4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD2A5,
+0,
+0,
+0xFDEE,
+0,
+0,
+0,
+0xF5B6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1F6,
+0xDECC,
+0,
+0,
+0xFCDE,
+0,
+0xECD7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDDD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6B7,
+0xCDB3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8D5,
+0xE5D8,
+0,
+0,
+0,
+0xCFEA,
+0,
+0,
+0xCFD0,
+0,
+0xEACC,
+0,
+0,
+0,
+0,
+0xEAAE,
+0xEAAD,
+0,
+0,
+0xD3F1,
+0,
+0xD3A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEA4,
+0,
+0,
+0,
+0,
+0xD0A4,
+0,
+0,
+0xF2A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0F0,
+0,
+0,
+0,
+0,
+0xF2A3,
+0,
+0xF7F8,
+0,
+0,
+0,
+0,
+0xD0B3,
+0,
+0,
+0xDBA9,
+0,
+0,
+0xD3BB,
+0xCAEC,
+0,
+0xF1A6,
+0xCBD5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7E7,
+0,
+0,
+0xCDDE,
+0,
+0xF7A4,
+0,
+0,
+0,
+0xF8C0,
+0,
+0,
+0,
+0xD3DD,
+0,
+0xCCD0,
+0,
+0,
+0,
+0,
+0xCFA6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6F3,
+0,
+0,
+0,
+0,
+0,
+0xE1F7,
+0,
+0,
+0,
+0,
+0,
+0xD3DC,
+0,
+0,
+0xFAFE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAA7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBD9,
+0,
+0xCFA7,
+0xEAAF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4EF,
+0,
+0,
+0,
+0xE9B9,
+0xF1D8,
+0,
+0,
+0xD8D8,
+0,
+0,
+0xE0F2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6B4,
+0xDCFC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3F1,
+0,
+0,
+0,
+0xE3D0,
+0,
+0,
+0xF2FB,
+0,
+0xDBC6,
+0xD0F1,
+0,
+0xD0F2,
+0,
+0,
+0,
+0xCFDC,
+0,
+0xD3D1,
+0,
+0,
+0xCCB1,
+0xF7D8,
+0,
+0xCBA8,
+0xEBBC,
+0xE4BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4DC,
+0,
+0,
+0xDCC2,
+0,
+0,
+0xF0A7,
+0,
+0,
+0xE6C0,
+0,
+0,
+0xCAED,
+0,
+0,
+0,
+0,
+0xE8EB,
+0xE5E8,
+0xDCC3,
+0,
+0,
+0xEDDE,
+0xD3F2,
+0,
+0,
+0,
+0,
+0xCCF7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCED4,
+0xE7AB,
+0,
+0,
+0,
+0xCBC3,
+0,
+0xE1B1,
+0,
+0,
+0xF7B2,
+0,
+0,
+0xD3F3,
+0xD3D2,
+0,
+0xF5C0,
+0,
+0,
+0,
+0xDFDD,
+0,
+0,
+0xEEF3,
+0xE7F1,
+0,
+0xFDB4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2C8,
+0,
+0,
+0,
+0xF3D2,
+0,
+0,
+0xEEF4,
+0,
+0xE2D3,
+0,
+0,
+0,
+0,
+0xCCD1,
+0,
+0xDFEA,
+0,
+0,
+0,
+0xE9BA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5CD,
+0,
+0xF1F2,
+0xFAC7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9F8,
+0xD4C2,
+0,
+0,
+0,
+0,
+0xF6E5,
+0,
+0,
+0,
+0,
+0xDDC5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7F2,
+0xEDDF,
+0,
+0,
+0xCACB,
+0,
+0,
+0xDBFA,
+0,
+0,
+0,
+0xE8B5,
+0,
+0xD3A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDB5,
+0,
+0,
+0xF9C9,
+0,
+0xE4E2,
+0,
+0xFBBD,
+0,
+0,
+0xD7A4,
+0xCEC5,
+0,
+0,
+0,
+0,
+0xCED5,
+0xD6E6,
+0,
+0,
+0,
+0,
+0xE5BD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDECD,
+0xECF3,
+0,
+0,
+0xEDE0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECEC,
+0xFBBE,
+0xDFEB,
+0,
+0xE1F8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9BE,
+0,
+0,
+0,
+0,
+0xD0F3,
+0xE0AA,
+0xE8E2,
+0,
+0,
+0xE2D4,
+0xD2FD,
+0,
+0xE5A8,
+0,
+0,
+0,
+0,
+0,
+0xD9D3,
+0,
+0,
+0,
+0,
+0xD3DE,
+0,
+0xF4B8,
+0xF7BC,
+0xDCFD,
+0,
+0xE8EC,
+0xE4E7,
+0,
+0,
+0xE3F7,
+0,
+0,
+0,
+0,
+0,
+0xECA8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAF1,
+0,
+0,
+0,
+0,
+0,
+0xE5F2,
+0,
+0,
+0xD0F4,
+0xD2AF,
+0xDCE5,
+0,
+0,
+0,
+0,
+0xD0A5,
+0xF1B4,
+0xFCB1,
+0xCCF8,
+0,
+0,
+0xDDC6,
+0xFAD1,
+0,
+0xF7DF,
+0,
+0,
+0xFAA8,
+0,
+0,
+0,
+0,
+0,
+0xEEF5,
+0,
+0xDECE,
+0,
+0,
+0,
+0,
+0xE7F3,
+0,
+0,
+0xF7AC,
+0xEBC4,
+0xEDE1,
+0xE0AB,
+0xDDC7,
+0,
+0,
+0,
+0,
+0xD2B3,
+0xD2BF,
+0,
+0,
+0,
+0xCACC,
+0,
+0,
+0,
+0,
+0xFBBF,
+0,
+0,
+0,
+0,
+0xE5FD,
+0xDDE5,
+0xD8CD,
+0,
+0,
+0,
+0,
+0,
+0xECF4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0F5,
+0,
+0,
+0xE8ED,
+0xD0D2,
+0,
+0xD9D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6E6,
+0,
+0,
+0xDBAA,
+0,
+0,
+0,
+0xF7E0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8D9,
+0,
+0xF4A3,
+0,
+0,
+0xF4DD,
+0,
+0,
+0,
+0,
+0xEFD1,
+0,
+0,
+0xD9B5,
+0,
+0,
+0xEDAB,
+0,
+0xE3B7,
+0,
+0,
+0,
+0,
+0xEEBB,
+0xCDB4,
+0,
+0xE0F3,
+0xEACD,
+0,
+0,
+0,
+0,
+0xECF5,
+0xE8EE,
+0,
+0xCBA9,
+0xF1AF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCACD,
+0,
+0xECA9,
+0,
+0xF2EB,
+0,
+0xFDEF,
+0,
+0xF9F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6C1,
+0,
+0,
+0xECD8,
+0,
+0,
+0,
+0xEDAC,
+0,
+0xEACE,
+0,
+0xE8DF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDECF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD2A6,
+0,
+0,
+0xE7F4,
+0xD1D6,
+0,
+0,
+0xE6C2,
+0xE3E3,
+0,
+0,
+0,
+0,
+0xE4B0,
+0,
+0,
+0,
+0xD8B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6A5,
+0,
+0,
+0,
+0,
+0,
+0xF3DE,
+0,
+0,
+0,
+0,
+0xD7A5,
+0,
+0,
+0,
+0,
+0xF7E8,
+0,
+0,
+0xE8C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBE6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDE6,
+0,
+0,
+0,
+0xDCFE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAAC,
+0xEAB0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3B8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAAA,
+0xE1F9,
+0,
+0xEAB1,
+0,
+0,
+0,
+0,
+0xF2EC,
+0,
+0,
+0xFAEE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEED5,
+0,
+0,
+0,
+0,
+0xF9F4,
+0,
+0,
+0xD2EC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBFB,
+0,
+0,
+0,
+0xFDF0,
+0,
+0xE0BD,
+0xCEE3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEAE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFC5,
+0,
+0,
+0xE5BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDAD,
+0xFAEA,
+0,
+0,
+0xCDEE,
+0xEDA6,
+0,
+0xEDAE,
+0xF0ED,
+0,
+0xDDA1,
+0,
+0xEDAF,
+0xFCF8,
+0,
+0xD8EB,
+0,
+0,
+0,
+0xCCF9,
+0xCDB5,
+0,
+0,
+0,
+0,
+0xFAA9,
+0,
+0xE1DD,
+0,
+0,
+0,
+0,
+0xE2D5,
+0xEDCF,
+0,
+0,
+0,
+0xDDA2,
+0,
+0,
+0xF9CA,
+0,
+0xEAE8,
+0,
+0xE5ED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3EB,
+0,
+0xE9D4,
+0xE1FA,
+0xE4CC,
+0,
+0xE1E4,
+0xE8C7,
+0,
+0,
+0xCEDB,
+0,
+0,
+0,
+0xDCD5,
+0,
+0xF7B5,
+0xFCF3,
+0xF0F3,
+0xCEAF,
+0xF1B5,
+0xEFD2,
+0xE8C8,
+0xEBF1,
+0,
+0,
+0,
+0,
+0,
+0xCBD4,
+0xE0BE,
+0xE3F8,
+0xEAE9,
+0xFCB2,
+0,
+0,
+0,
+0,
+0,
+0xE0F4,
+0,
+0xCFE0,
+0,
+0xEEA5,
+0,
+0,
+0xFAAA,
+0xE6C3,
+0xE1B2,
+0xCAAB,
+0,
+0xE3E4,
+0xE9BB,
+0,
+0,
+0,
+0,
+0,
+0xE2D6,
+0xF3F2,
+0,
+0xEED6,
+0xEAB2,
+0xD0F6,
+0xECD9,
+0xDACB,
+0xCFA8,
+0,
+0,
+0,
+0,
+0xDDA3,
+0,
+0,
+0,
+0xD8DB,
+0,
+0xF9CE,
+0xE9D5,
+0xE3D1,
+0,
+0,
+0xD2BC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8AC,
+0xF3CC,
+0,
+0xCDFB,
+0xF6D6,
+0,
+0xE7F5,
+0xE8EF,
+0xE3F9,
+0xD2BB,
+0xF3F3,
+0xE3FB,
+0,
+0xDED0,
+0xCEB0,
+0,
+0xD6F7,
+0xF1D9,
+0,
+0,
+0,
+0,
+0,
+0xF5C1,
+0xDCC4,
+0,
+0xF5BB,
+0,
+0xDED1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCE6,
+0,
+0,
+0xDED2,
+0,
+0,
+0xEDE2,
+0xEEF6,
+0xEACF,
+0xF0EE,
+0xE3FC,
+0,
+0xD3DF,
+0xD3F4,
+0xE1B3,
+0,
+0xE1B4,
+0,
+0,
+0,
+0,
+0xF4D3,
+0,
+0,
+0xDFC6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9D6,
+0,
+0,
+0,
+0xDBAB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3B9,
+0xEBC5,
+0xF4A9,
+0xCDB6,
+0xD2F9,
+0,
+0xDAAD,
+0xD2E3,
+0xCFD1,
+0,
+0,
+0,
+0,
+0xCBDC,
+0xCCFA,
+0,
+0xCFDD,
+0,
+0,
+0xE8A9,
+0,
+0xE3BB,
+0xE3BA,
+0,
+0,
+0xE0DA,
+0,
+0,
+0,
+0xEEF7,
+0,
+0,
+0,
+0,
+0,
+0xDCB3,
+0,
+0,
+0,
+0,
+0xD3F5,
+0,
+0xD7A6,
+0,
+0xF6B5,
+0xD7DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1D5,
+0,
+0,
+0xD4EA,
+0,
+0xDFA3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDDF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0F7,
+0xEDD4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBAA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4DB,
+0,
+0xE1FB,
+0xCBA2,
+0,
+0,
+0,
+0,
+0xD3E0,
+0,
+0xE4BF,
+0,
+0xFBC0,
+0,
+0xDABE,
+0xE4CD,
+0,
+0xD6B9,
+0,
+0,
+0,
+0xEFC0,
+0,
+0xE1FC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6B9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFC7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCE7,
+0xDCE8,
+0,
+0,
+0,
+0xFAD6,
+0,
+0xD3F6,
+0,
+0,
+0,
+0,
+0xF1DA,
+0,
+0xFAF2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2FD,
+0,
+0,
+0,
+0,
+0,
+0xD5CF,
+0xD0F8,
+0,
+0,
+0xCDDF,
+0,
+0,
+0xF5CB,
+0,
+0xE4F0,
+0xCBAB,
+0,
+0xD7C4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2FE,
+0,
+0xDDDA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAAE,
+0xCAEE,
+0,
+0,
+0,
+0xD5B9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3A1,
+0,
+0,
+0xE8E3,
+0,
+0,
+0xF3AB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFA9,
+0,
+0,
+0,
+0xD3F7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4F1,
+0,
+0,
+0xCEE4,
+0,
+0xE8F2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5F5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7AE,
+0,
+0xD6BA,
+0,
+0xDFEC,
+0xE4C0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8E4,
+0,
+0,
+0,
+0,
+0xD8B5,
+0,
+0,
+0,
+0xE4DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4B9,
+0xF1B6,
+0,
+0,
+0xE2DE,
+0xE1B5,
+0,
+0,
+0xCDEF,
+0xF1A7,
+0xCEE5,
+0xCBDD,
+0,
+0,
+0xD9E3,
+0,
+0,
+0xF3AC,
+0,
+0,
+0xD0F9,
+0xECAB,
+0xDED3,
+0xF7E9,
+0,
+0,
+0xF9F5,
+0,
+0,
+0,
+0,
+0,
+0xE1DE,
+0xCBEE,
+0,
+0,
+0,
+0xE3BC,
+0xF8D6,
+0,
+0,
+0xDBEE,
+0,
+0,
+0,
+0,
+0,
+0xFDF1,
+0,
+0,
+0,
+0,
+0xF7B6,
+0,
+0,
+0,
+0,
+0xF4DE,
+0,
+0,
+0xF2ED,
+0,
+0xDBD9,
+0,
+0xF0A8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1FD,
+0,
+0,
+0,
+0,
+0,
+0xDED4,
+0,
+0xE0AC,
+0,
+0,
+0,
+0,
+0,
+0xEDE3,
+0,
+0,
+0xD3E1,
+0,
+0xDFC8,
+0,
+0,
+0,
+0,
+0xD9B6,
+0,
+0xFDAC,
+0xEFD3,
+0,
+0,
+0,
+0xE4C1,
+0xF8EB,
+0,
+0xDBAC,
+0,
+0,
+0,
+0,
+0xFCC6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6BA,
+0,
+0xDBDF,
+0xD3D3,
+0xF8C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCACE,
+0xF8C1,
+0xD2B4,
+0,
+0,
+0xDCB4,
+0xFAB9,
+0xCACF,
+0,
+0xFCB3,
+0xEAEA,
+0xEAEB,
+0xD0FA,
+0,
+0,
+0,
+0,
+0,
+0xEDE4,
+0,
+0,
+0xDDE7,
+0,
+0,
+0xDFC9,
+0,
+0,
+0,
+0,
+0xDFED,
+0,
+0,
+0,
+0,
+0,
+0xEEBC,
+0,
+0xEFC1,
+0,
+0,
+0xCCD2,
+0,
+0xDDA4,
+0,
+0,
+0,
+0xDFCA,
+0,
+0,
+0,
+0,
+0,
+0xD3F8,
+0xF1A8,
+0,
+0,
+0,
+0xCDB7,
+0,
+0xEFD4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4DD,
+0xDFEE,
+0xCBAC,
+0xE9BC,
+0,
+0,
+0,
+0,
+0,
+0xEAEC,
+0,
+0,
+0,
+0xDFCB,
+0,
+0,
+0,
+0,
+0,
+0xF9BF,
+0xD6AF,
+0xD5C6,
+0,
+0,
+0,
+0,
+0,
+0xCFAA,
+0,
+0,
+0xCEA9,
+0,
+0,
+0xD6F8,
+0,
+0,
+0,
+0xF1B7,
+0xEEF8,
+0,
+0,
+0,
+0xD9D9,
+0xF3DF,
+0,
+0xF8C8,
+0xCEC6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5E6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4E6,
+0,
+0,
+0xE6C5,
+0xEFD5,
+0,
+0,
+0xCBEF,
+0xFCDF,
+0,
+0,
+0,
+0,
+0,
+0xDCA7,
+0,
+0,
+0xD6E7,
+0,
+0,
+0,
+0,
+0,
+0xF8C9,
+0,
+0,
+0,
+0,
+0xE3D2,
+0,
+0xE3BD,
+0,
+0xCFE1,
+0xF0C0,
+0xECDA,
+0,
+0xDDD7,
+0xFBF0,
+0,
+0,
+0xECAC,
+0,
+0,
+0,
+0xF0A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAD7,
+0xFBC1,
+0,
+0xD2C0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5B0,
+0,
+0,
+0,
+0xEDE5,
+0,
+0,
+0,
+0,
+0xCBAD,
+0,
+0xF9B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7A5,
+0,
+0xCBAE,
+0,
+0xDAAF,
+0,
+0xD8B6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3A7,
+0xFBB2,
+0,
+0xFDC4,
+0,
+0xECAD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBA1,
+0,
+0,
+0,
+0xE5E9,
+0xE9EE,
+0,
+0xF3F4,
+0xF8F3,
+0xF0C1,
+0xDEAF,
+0xF8B0,
+0,
+0,
+0xF3E0,
+0xE7AF,
+0,
+0,
+0,
+0,
+0,
+0xDBAD,
+0,
+0xE6B5,
+0,
+0,
+0xF9A8,
+0,
+0,
+0xDDD8,
+0xE8D9,
+0xEFD6,
+0,
+0,
+0,
+0xD3E2,
+0,
+0xE2DF,
+0,
+0,
+0xFCE0,
+0xD7C8,
+0xFDAD,
+0,
+0,
+0,
+0xDFEF,
+0xCCD3,
+0xD3F9,
+0,
+0,
+0,
+0,
+0xD4F0,
+0xDBC7,
+0xDED5,
+0,
+0,
+0,
+0,
+0xF0F4,
+0,
+0xD5D0,
+0xE5D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCC7,
+0xDCD6,
+0xE2E0,
+0,
+0,
+0,
+0xDAB0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3A3,
+0,
+0xD3EC,
+0,
+0xF4CB,
+0,
+0,
+0,
+0xFDC5,
+0,
+0,
+0,
+0,
+0,
+0xE3FD,
+0,
+0xF9B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0FB,
+0xECDB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5BC,
+0xF2A4,
+0xD8CE,
+0xD8CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5F7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6E1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD2B7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBEC,
+0,
+0xDDC8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4E8,
+0,
+0,
+0xD2C1,
+0,
+0,
+0,
+0xF8D7,
+0,
+0,
+0,
+0,
+0,
+0xD6BB,
+0xDED6,
+0,
+0,
+0xF7BD,
+0xECAE,
+0,
+0,
+0,
+0xD0E1,
+0,
+0xE0F5,
+0xEAB3,
+0,
+0xCED6,
+0,
+0,
+0,
+0,
+0xCCA5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECF6,
+0xE2E1,
+0xE3BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCC8,
+0,
+0,
+0xCDF0,
+0,
+0xF9F6,
+0,
+0,
+0xDFF0,
+0,
+0,
+0,
+0xE5BF,
+0,
+0,
+0,
+0xCEBF,
+0,
+0,
+0,
+0,
+0xFCE1,
+0xEDB0,
+0xFDD1,
+0xF6BB,
+0,
+0,
+0xF9CF,
+0xEBDA,
+0xCAC1,
+0,
+0xD2B8,
+0xCDF1,
+0,
+0xE3D3,
+0xFDE6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6ED,
+0,
+0,
+0,
+0xE3FA,
+0,
+0,
+0xF0AA,
+0xF9D0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCE2,
+0,
+0xF8A7,
+0,
+0,
+0,
+0xE1E5,
+0xEEF9,
+0,
+0,
+0,
+0xE7F6,
+0xEAED,
+0,
+0,
+0xFCB4,
+0xF5C2,
+0,
+0,
+0xD7DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0F5,
+0,
+0xDDE8,
+0xD3ED,
+0xF5FC,
+0,
+0xDABF,
+0,
+0xCCFB,
+0,
+0,
+0,
+0xD3FA,
+0xF4A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFD7,
+0,
+0xD4C3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBE3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBED,
+0,
+0xE0AD,
+0,
+0,
+0xEAEE,
+0xFBB3,
+0xE4C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6E7,
+0xD2DD,
+0,
+0xDFCC,
+0,
+0,
+0xFCC9,
+0,
+0,
+0xE5A9,
+0xE0F6,
+0xF6B3,
+0,
+0,
+0,
+0,
+0,
+0xE1FE,
+0,
+0,
+0,
+0,
+0xCBF0,
+0,
+0xEAEF,
+0xEAF0,
+0,
+0,
+0,
+0xDAC0,
+0xF8B4,
+0xEBF2,
+0,
+0,
+0,
+0,
+0,
+0xE4C3,
+0,
+0,
+0,
+0,
+0xE9D7,
+0xE4F1,
+0,
+0,
+0,
+0xCAEF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCED7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCCA,
+0,
+0,
+0,
+0xF3E1,
+0,
+0,
+0xCBC4,
+0,
+0,
+0,
+0,
+0xE3E5,
+0,
+0xCBC5,
+0xEAB4,
+0,
+0,
+0xE9BD,
+0,
+0xD7C9,
+0,
+0,
+0xEBDB,
+0xEDB1,
+0,
+0xCCC3,
+0xF7BE,
+0xFCCB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8F4,
+0,
+0xD9B7,
+0,
+0,
+0xF3D3,
+0xF3D4,
+0,
+0,
+0,
+0xF7E4,
+0,
+0xF7D1,
+0,
+0,
+0xD8B7,
+0xCEB1,
+0xCAC2,
+0,
+0,
+0xFBB4,
+0xCBC6,
+0,
+0,
+0xF0F6,
+0,
+0,
+0xD5E7,
+0,
+0xEAD0,
+0,
+0,
+0,
+0,
+0,
+0xCCD4,
+0xCBAF,
+0,
+0,
+0,
+0,
+0,
+0xF4AA,
+0xE9AF,
+0,
+0,
+0xF5C3,
+0xE9D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDE9,
+0,
+0,
+0,
+0xF1F3,
+0,
+0xD5FB,
+0xDEBB,
+0,
+0,
+0xF4FB,
+0,
+0,
+0,
+0xFDF3,
+0xFDF2,
+0xF7A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDC9,
+0,
+0,
+0xD4D3,
+0,
+0xCCA8,
+0,
+0xDAC1,
+0xCCD5,
+0,
+0xD9E4,
+0,
+0,
+0,
+0xFACA,
+0,
+0,
+0,
+0xE5E3,
+0,
+0,
+0,
+0xD3BC,
+0,
+0,
+0,
+0xCAF0,
+0,
+0,
+0,
+0,
+0xD0C4,
+0,
+0,
+0,
+0xCAD0,
+0xFAAB,
+0xEBEB,
+0xE7F8,
+0xD9E5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3A4,
+0,
+0,
+0,
+0xD4FB,
+0xFCE3,
+0xFAD8,
+0,
+0xF3D5,
+0,
+0xCFAB,
+0,
+0,
+0xEBF3,
+0xD5FC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3D4,
+0xCDFC,
+0,
+0xD9E6,
+0,
+0xE2F9,
+0xE2A1,
+0xEBD4,
+0,
+0xE0F7,
+0xE4B2,
+0xCCFC,
+0,
+0,
+0,
+0xFBE4,
+0,
+0,
+0,
+0xF4AB,
+0,
+0,
+0,
+0,
+0xD0BD,
+0,
+0xCAF1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFB8,
+0,
+0,
+0,
+0xD7C0,
+0,
+0xEEFA,
+0xFDF4,
+0,
+0,
+0xD3E3,
+0,
+0xFBC2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5E8,
+0xDBAE,
+0xE1B6,
+0xF8B7,
+0,
+0,
+0,
+0,
+0,
+0xE0BF,
+0xFBC3,
+0xDDEA,
+0,
+0xE2A2,
+0,
+0xEEA6,
+0,
+0,
+0,
+0,
+0,
+0xF6E8,
+0,
+0,
+0,
+0,
+0xF6F5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDCA,
+0,
+0,
+0xD0E2,
+0,
+0,
+0,
+0,
+0xDDA6,
+0,
+0,
+0xDDEB,
+0,
+0,
+0xE4F9,
+0,
+0,
+0xE3AF,
+0xD0FC,
+0,
+0,
+0,
+0xF4FC,
+0,
+0,
+0,
+0,
+0xCCBC,
+0xF7EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5E4,
+0xDFF1,
+0,
+0,
+0xF7E1,
+0,
+0xF9F7,
+0xEFB9,
+0,
+0,
+0xF8D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9A9,
+0,
+0,
+0,
+0,
+0,
+0xF8D9,
+0,
+0,
+0,
+0xEEBD,
+0,
+0,
+0,
+0xD8C6,
+0,
+0,
+0xE4E3,
+0xF5CE,
+0,
+0,
+0,
+0,
+0xDDD9,
+0,
+0,
+0,
+0,
+0xD9E7,
+0xD2B9,
+0xD5C3,
+0,
+0,
+0xDAE5,
+0xDAD0,
+0,
+0xD1D9,
+0xCED8,
+0,
+0xCBDE,
+0xF4AC,
+0xDAFB,
+0,
+0xF6E9,
+0xE8F3,
+0xCFAC,
+0xF0F0,
+0,
+0xF4FD,
+0xDBC8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEC0,
+0xE3D4,
+0xD1CF,
+0xF1F5,
+0,
+0xCDF2,
+0,
+0xCFEB,
+0,
+0,
+0,
+0xCDB8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3A6,
+0xD1DA,
+0,
+0xF2A5,
+0,
+0,
+0,
+0,
+0,
+0xF2A6,
+0,
+0xE4CE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3FB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1A9,
+0,
+0,
+0,
+0xF2C9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFD8,
+0xE6C9,
+0,
+0xD8B8,
+0xFAF3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3B5,
+0,
+0,
+0xF8A4,
+0,
+0,
+0xD1F3,
+0xE6C8,
+0,
+0,
+0,
+0,
+0xF8DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCE9,
+0xDED7,
+0,
+0,
+0,
+0,
+0,
+0xCBDF,
+0,
+0,
+0,
+0xCFEC,
+0,
+0,
+0,
+0,
+0xF4DF,
+0,
+0,
+0xD1F4,
+0xD2BA,
+0,
+0,
+0,
+0xDFF2,
+0,
+0,
+0,
+0xE1B7,
+0,
+0,
+0,
+0,
+0xE2A3,
+0xD3FC,
+0,
+0,
+0xEDE6,
+0,
+0,
+0,
+0,
+0,
+0xDBC9,
+0,
+0,
+0,
+0xE4FA,
+0,
+0xCFDE,
+0,
+0,
+0xCED0,
+0,
+0,
+0,
+0,
+0xD5D3,
+0xF3F5,
+0xF7AE,
+0,
+0,
+0xEFC8,
+0,
+0xCDF3,
+0xF5CF,
+0xE5F3,
+0xF0C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAD1,
+0,
+0,
+0,
+0xEAF1,
+0,
+0xD0A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9DA,
+0xF0AB,
+0,
+0,
+0,
+0,
+0,
+0xEBE7,
+0,
+0,
+0,
+0xE5C0,
+0xFCB5,
+0,
+0,
+0,
+0,
+0,
+0xE4C4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCA9,
+0xFDC6,
+0,
+0,
+0,
+0,
+0,
+0xEAB5,
+0,
+0xE5AA,
+0xDFBA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1DF,
+0,
+0xDAD1,
+0,
+0,
+0,
+0,
+0xE1B8,
+0,
+0xE8F4,
+0xD3FD,
+0,
+0,
+0,
+0,
+0xE2A4,
+0,
+0,
+0,
+0,
+0,
+0xF2CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAE6,
+0xF7B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDCD,
+0,
+0,
+0,
+0xF3B6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEED7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5C4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8A4,
+0,
+0,
+0,
+0,
+0,
+0xF2A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9B8,
+0xD9B9,
+0xEFC9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6CE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7CB,
+0xDFAE,
+0xE8F5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD2B5,
+0,
+0,
+0,
+0xD3D5,
+0,
+0,
+0,
+0,
+0,
+0xF4CC,
+0xDAFC,
+0,
+0,
+0,
+0,
+0,
+0xD9E8,
+0,
+0xF7EB,
+0xF5C9,
+0,
+0xF3BC,
+0,
+0xDAD2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3B5,
+0,
+0,
+0,
+0,
+0,
+0xE8B6,
+0,
+0,
+0xD6CF,
+0xF4BA,
+0,
+0xF7C9,
+0,
+0,
+0xCCAA,
+0,
+0,
+0xF0C3,
+0xCCD6,
+0,
+0,
+0,
+0xD0D3,
+0,
+0xD3BD,
+0,
+0,
+0,
+0xDBFB,
+0,
+0xCBE0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3E4,
+0xF6F7,
+0,
+0,
+0xD5BA,
+0xF3CD,
+0xCBE1,
+0,
+0,
+0,
+0,
+0xEBF4,
+0,
+0,
+0,
+0,
+0,
+0xF4AD,
+0,
+0xFCAA,
+0,
+0,
+0,
+0,
+0,
+0xF7EC,
+0,
+0,
+0,
+0xE8F6,
+0,
+0xDAE7,
+0,
+0,
+0,
+0xF7CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5C1,
+0,
+0,
+0,
+0,
+0xE0EE,
+0,
+0,
+0,
+0,
+0,
+0xD5FD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEE6,
+0xFCAB,
+0xD5BB,
+0,
+0,
+0xF2A8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2A5,
+0xCDB9,
+0xEAF2,
+0xCBC7,
+0,
+0xCDF4,
+0,
+0,
+0xDBAF,
+0xEFD9,
+0,
+0,
+0,
+0,
+0,
+0xCDBA,
+0,
+0,
+0xFCF9,
+0,
+0,
+0,
+0,
+0xDFF3,
+0xCEE7,
+0xDAC2,
+0,
+0xCFAD,
+0,
+0,
+0,
+0,
+0xE7F9,
+0xF8A8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3E2,
+0,
+0,
+0,
+0xCAF2,
+0xDFA4,
+0,
+0,
+0xD4C4,
+0,
+0,
+0,
+0,
+0,
+0xCCD7,
+0xE5C2,
+0,
+0,
+0,
+0,
+0xCDBB,
+0,
+0xEFDA,
+0xEED8,
+0,
+0xDDA7,
+0xE2A6,
+0,
+0,
+0,
+0,
+0,
+0xE0C0,
+0,
+0,
+0,
+0xD6B0,
+0xF8CA,
+0,
+0xFCFA,
+0,
+0xD9FE,
+0,
+0,
+0,
+0,
+0xDEB0,
+0,
+0,
+0,
+0xDDEC,
+0xDAE8,
+0,
+0,
+0,
+0,
+0,
+0xD4E0,
+0,
+0xD6F9,
+0,
+0xCDD7,
+0xDED8,
+0,
+0,
+0xF2F8,
+0,
+0xE4D6,
+0,
+0,
+0xD0C5,
+0xF4AE,
+0,
+0xDDA8,
+0,
+0,
+0,
+0xEDC5,
+0xF3D6,
+0,
+0,
+0xDED9,
+0xE3E6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3A8,
+0,
+0xDBB0,
+0,
+0,
+0xE5DA,
+0xE3BF,
+0,
+0,
+0,
+0xDBB1,
+0,
+0,
+0,
+0xD5E9,
+0,
+0,
+0,
+0,
+0,
+0xE0C1,
+0xEFDB,
+0,
+0,
+0xF0E9,
+0,
+0,
+0xD7B2,
+0,
+0,
+0,
+0,
+0xD0FD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9E9,
+0,
+0,
+0xD0FE,
+0,
+0xECED,
+0xD3A9,
+0,
+0xF2A9,
+0xF0C4,
+0,
+0,
+0xE2E2,
+0xE9EF,
+0,
+0,
+0,
+0xF9D1,
+0,
+0,
+0xE9D9,
+0,
+0,
+0,
+0,
+0,
+0xE8DA,
+0xDAC3,
+0xDAC4,
+0xD4C5,
+0,
+0xE7FA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDE0,
+0xE3B0,
+0,
+0xDBB2,
+0xFBC4,
+0,
+0xF3E3,
+0,
+0xD9A5,
+0xFBE7,
+0xDDCB,
+0xD0D4,
+0,
+0xE6B6,
+0xE0AE,
+0xFDDA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCB5,
+0xE0F8,
+0xE7B1,
+0,
+0,
+0,
+0,
+0xF5F0,
+0,
+0xD8DC,
+0xEDC6,
+0,
+0,
+0,
+0,
+0xE1B9,
+0,
+0xE3C0,
+0xF9C0,
+0xE9F0,
+0,
+0,
+0xD9DB,
+0,
+0xF3E4,
+0,
+0,
+0,
+0xDCB6,
+0xE4E9,
+0,
+0,
+0,
+0,
+0,
+0xF0C5,
+0xE3C1,
+0xFCCC,
+0xFCCD,
+0,
+0,
+0,
+0,
+0xF2CB,
+0,
+0xF2CC,
+0,
+0,
+0,
+0xE4CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1DB,
+0,
+0xFAD9,
+0,
+0xF1B8,
+0xFDF5,
+0xE0F9,
+0,
+0,
+0,
+0,
+0xE7FB,
+0xFCB7,
+0xFCE4,
+0xFBC5,
+0xE3E7,
+0xD8B9,
+0,
+0xF6F8,
+0,
+0,
+0xDCC5,
+0xCCD8,
+0,
+0,
+0,
+0xE0AF,
+0xF4E7,
+0,
+0xEFDC,
+0xCFFC,
+0xEFDD,
+0,
+0xF2AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDBE,
+0,
+0,
+0xCAAC,
+0xFDBB,
+0xFDC7,
+0,
+0,
+0,
+0,
+0xE7B2,
+0,
+0xEAD1,
+0xDFF4,
+0,
+0,
+0,
+0,
+0xD1EC,
+0xE4DE,
+0xE5C3,
+0,
+0,
+0,
+0,
+0xD9A6,
+0,
+0,
+0xCDBC,
+0,
+0xF3E5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDD5,
+0,
+0,
+0xD9BA,
+0,
+0,
+0,
+0xEDE7,
+0xFBB5,
+0xF8EC,
+0,
+0,
+0,
+0,
+0xE0E7,
+0,
+0xCCD9,
+0,
+0,
+0xD4C6,
+0,
+0,
+0,
+0,
+0,
+0xE7A5,
+0,
+0xD5F5,
+0xD3BE,
+0,
+0xFCFB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4F2,
+0,
+0,
+0xDFF5,
+0,
+0,
+0xE8F8,
+0xF8ED,
+0,
+0,
+0xCEC7,
+0,
+0,
+0,
+0,
+0,
+0xFDF6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8D8,
+0,
+0xCDD8,
+0xE7D6,
+0xCCDA,
+0,
+0,
+0xCAE3,
+0xDFF6,
+0xF0C7,
+0xF0C6,
+0,
+0xD8BA,
+0,
+0xF1F4,
+0xF4F0,
+0xF5CC,
+0,
+0,
+0xFCE5,
+0,
+0,
+0,
+0,
+0xEAC5,
+0xEAF3,
+0,
+0xDDDB,
+0,
+0xDCD7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEFD,
+0xF2F9,
+0,
+0xD5C7,
+0,
+0,
+0,
+0xD8D0,
+0,
+0xF0C8,
+0xD1A1,
+0xD1A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9D4,
+0xD6E8,
+0xD9CA,
+0,
+0xDAB1,
+0xD8C7,
+0xDCE2,
+0xF3CE,
+0xF5F4,
+0,
+0,
+0xF1B9,
+0,
+0,
+0xDAD3,
+0,
+0xF6EA,
+0,
+0,
+0,
+0xCFF5,
+0,
+0,
+0xFDAE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAD2,
+0,
+0,
+0xDFB4,
+0,
+0,
+0,
+0,
+0xD7DD,
+0xFABA,
+0xEEA7,
+0xF5BD,
+0,
+0xF8F5,
+0,
+0,
+0xEDE8,
+0,
+0,
+0,
+0,
+0,
+0xD4E1,
+0,
+0xD1A3,
+0xE1D6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9F8,
+0,
+0xDBCA,
+0xCBF9,
+0xD4D4,
+0,
+0xD9DC,
+0,
+0xEEBE,
+0,
+0xF7ED,
+0,
+0,
+0,
+0xD2EE,
+0,
+0,
+0xE1E6,
+0xF7F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDED,
+0,
+0xE8DB,
+0,
+0xDBB3,
+0,
+0,
+0,
+0xD1F7,
+0xE0B0,
+0,
+0,
+0xD4E2,
+0,
+0xF6D7,
+0,
+0xD7F9,
+0,
+0,
+0xD8DD,
+0,
+0xCDFD,
+0xF2AB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDBD,
+0xF8C2,
+0,
+0,
+0xF2AC,
+0,
+0,
+0xCAAD,
+0xCAAE,
+0xCFAE,
+0,
+0,
+0,
+0,
+0,
+0xE3C2,
+0,
+0,
+0,
+0,
+0,
+0xDCB7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBDA,
+0xD9BB,
+0xCAF3,
+0xF6D3,
+0xE6F8,
+0xEAF5,
+0,
+0,
+0,
+0,
+0,
+0xEAF6,
+0,
+0,
+0xF6F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFAF,
+0,
+0,
+0xCAD3,
+0,
+0,
+0xCAAF,
+0xD2B0,
+0xF1BA,
+0,
+0xD7B3,
+0xE3C3,
+0xF3FD,
+0xDEDA,
+0,
+0,
+0,
+0,
+0xDEDB,
+0,
+0,
+0xEFDE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2E3,
+0xEEFB,
+0,
+0,
+0xDFF7,
+0xD7CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEE8,
+0xDBDB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1BB,
+0,
+0,
+0,
+0,
+0xE9F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAB7,
+0xD0C6,
+0,
+0,
+0xCCAB,
+0xEEA8,
+0,
+0,
+0xCBFA,
+0xF9F9,
+0xCCFD,
+0xD3FE,
+0,
+0,
+0,
+0,
+0xE4D0,
+0,
+0,
+0,
+0,
+0,
+0xF2EE,
+0,
+0xD4D5,
+0xDFCD,
+0,
+0xFCB8,
+0xD1D0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7D2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAD4,
+0,
+0xD5D9,
+0,
+0,
+0,
+0xD8DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDD9,
+0,
+0,
+0,
+0xEEA9,
+0xF6BC,
+0,
+0,
+0xCCDB,
+0,
+0,
+0,
+0,
+0,
+0xF0C9,
+0,
+0xFCFC,
+0,
+0xE8C9,
+0xF4FE,
+0,
+0,
+0,
+0,
+0xE7FC,
+0xD7DE,
+0,
+0,
+0,
+0,
+0xDEDC,
+0,
+0xF0AC,
+0xCCFE,
+0xCDE1,
+0,
+0xE1BA,
+0,
+0xDBEF,
+0xDAB2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1A5,
+0xDCB8,
+0,
+0,
+0,
+0xD8F6,
+0,
+0xD1A4,
+0,
+0xCDE2,
+0,
+0,
+0,
+0,
+0xDCEA,
+0,
+0,
+0xF0F7,
+0,
+0xF0CA,
+0xD0BE,
+0,
+0xDDDC,
+0,
+0,
+0,
+0,
+0xD4D6,
+0xD3D6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDD0,
+0xCDA1,
+0,
+0,
+0,
+0,
+0,
+0xDFB5,
+0,
+0,
+0,
+0xDFF8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4A1,
+0xCEB2,
+0,
+0,
+0,
+0,
+0,
+0xE8CA,
+0,
+0,
+0,
+0,
+0xEBF5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3D5,
+0xF5D0,
+0,
+0,
+0,
+0xF5A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5AB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6CB,
+0,
+0xF5F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9A3,
+0xE0DB,
+0xF6EB,
+0,
+0xCBF1,
+0,
+0xD9EA,
+0xF5A2,
+0,
+0,
+0,
+0xD7D1,
+0,
+0xD1F8,
+0xEAF8,
+0xEAF9,
+0xDAB3,
+0,
+0,
+0,
+0,
+0xEFDF,
+0,
+0,
+0xF1EF,
+0,
+0xE5F6,
+0xEEBF,
+0xE2E4,
+0,
+0,
+0,
+0,
+0,
+0xD0BF,
+0,
+0xFAAC,
+0xF5D1,
+0xE7B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9BE,
+0,
+0,
+0,
+0,
+0,
+0xF2CE,
+0xDBB4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCCE,
+0,
+0xDDEE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7B4,
+0,
+0,
+0,
+0,
+0,
+0xD7B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7B4,
+0,
+0,
+0,
+0,
+0,
+0xCDBE,
+0,
+0xDAE9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFB0,
+0xF7D9,
+0xF3E6,
+0,
+0,
+0xCED9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEAA,
+0,
+0xCBC8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0A7,
+0,
+0xF0CB,
+0,
+0xD0C7,
+0,
+0,
+0xE4C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBE0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5DA,
+0,
+0xD7A7,
+0,
+0,
+0,
+0xEEC0,
+0,
+0xF8F6,
+0,
+0,
+0,
+0,
+0xF5D2,
+0xEDE9,
+0,
+0xD9BC,
+0,
+0xE5C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5A3,
+0,
+0,
+0xDAD4,
+0xE2A7,
+0xFBFC,
+0,
+0,
+0xF1DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAF4,
+0,
+0,
+0,
+0xE8FA,
+0,
+0,
+0xCEE9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9F8,
+0xE2E5,
+0,
+0,
+0,
+0,
+0xD0B9,
+0xD4F2,
+0,
+0,
+0,
+0,
+0,
+0xD1A6,
+0,
+0xDFCE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCF4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3AA,
+0,
+0,
+0,
+0xCCAC,
+0,
+0,
+0,
+0,
+0xEFE0,
+0,
+0,
+0,
+0xE5E5,
+0xD0D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBFC,
+0,
+0,
+0,
+0,
+0xFCE6,
+0,
+0,
+0,
+0,
+0,
+0xCBFE,
+0xEDEA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEB1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9E3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4A2,
+0xCFF6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6D0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5EA,
+0xF1EE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFACB,
+0,
+0,
+0,
+0,
+0xE5A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5B1,
+0,
+0,
+0,
+0,
+0,
+0xCFED,
+0,
+0xEDEB,
+0,
+0,
+0,
+0,
+0,
+0xD5B2,
+0,
+0,
+0,
+0xD5BC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDE2,
+0xF3AD,
+0,
+0xFDDB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1A7,
+0,
+0,
+0xFDE3,
+0xCEB3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDE4,
+0xFACE,
+0,
+0,
+0,
+0,
+0xCAB0,
+0,
+0xF7A7,
+0,
+0xCFB1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6A2,
+0,
+0xFCB6,
+0xF2AD,
+0xEFE1,
+0xF3AE,
+0xDCC6,
+0xD9EB,
+0,
+0,
+0,
+0xE8E0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1A8,
+0,
+0,
+0,
+0,
+0xD5F6,
+0xCFFD,
+0,
+0,
+0xDEDD,
+0,
+0,
+0,
+0xD9D1,
+0,
+0,
+0,
+0xE4EA,
+0xF2CF,
+0,
+0xF7BF,
+0,
+0,
+0xE2E6,
+0xE2A8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3D6,
+0,
+0xEDD1,
+0,
+0,
+0,
+0,
+0,
+0xE9F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6B1,
+0xDEB2,
+0,
+0,
+0xE0E8,
+0,
+0,
+0xD3AB,
+0,
+0xEBDC,
+0,
+0,
+0xDFAF,
+0,
+0xCAC3,
+0,
+0,
+0xEEFC,
+0,
+0xFDC3,
+0,
+0,
+0,
+0xEBF6,
+0xCFB2,
+0,
+0,
+0,
+0,
+0xD9EC,
+0,
+0xD9BD,
+0,
+0xD8DF,
+0,
+0,
+0xD4B8,
+0xEBBE,
+0xDDEF,
+0,
+0xDDF0,
+0xDDF1,
+0xDDF2,
+0,
+0,
+0xD9BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBC6,
+0xCFB3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEFD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4AB,
+0,
+0xDAC5,
+0,
+0xD8EC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1A8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2A9,
+0,
+0,
+0xDEBC,
+0xE7B5,
+0,
+0,
+0,
+0,
+0,
+0xDBF0,
+0,
+0xEFE2,
+0xF1F0,
+0xCFB4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBF1,
+0,
+0xE0B1,
+0,
+0,
+0,
+0,
+0xDFA5,
+0,
+0xF9D2,
+0,
+0,
+0xE7FD,
+0,
+0,
+0xE6A3,
+0xFBF1,
+0xCBB0,
+0xF2AE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDE7,
+0,
+0xE8DC,
+0,
+0,
+0xE7D7,
+0,
+0,
+0xF7C0,
+0,
+0xD0E3,
+0,
+0,
+0,
+0xDAA1,
+0,
+0,
+0,
+0xCCBD,
+0,
+0,
+0xD1A9,
+0xDDCC,
+0,
+0,
+0xE3FE,
+0xD1AA,
+0xE8AA,
+0,
+0xEAB6,
+0xF9FA,
+0xE6CC,
+0xF6D8,
+0,
+0,
+0,
+0xD4C7,
+0,
+0,
+0,
+0xD9CB,
+0,
+0xD9D2,
+0xD3CB,
+0xD8F7,
+0xDAA9,
+0xF5F8,
+0,
+0,
+0xDEDE,
+0xF2AF,
+0xF8A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8C8,
+0,
+0,
+0xEEC1,
+0,
+0,
+0,
+0,
+0xF9C1,
+0,
+0,
+0,
+0,
+0xDDF3,
+0xEAFA,
+0,
+0xF6BD,
+0xE1BB,
+0xCDBF,
+0xF4D4,
+0xE6CD,
+0,
+0xFCCF,
+0xFBA2,
+0,
+0xE0DC,
+0,
+0,
+0,
+0,
+0xF4BB,
+0xDAD5,
+0,
+0xF9B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBF2,
+0,
+0xDBF6,
+0,
+0xDEDF,
+0,
+0,
+0,
+0xDBF2,
+0,
+0,
+0,
+0,
+0,
+0xF8DC,
+0xF7EE,
+0xEBE8,
+0,
+0xD2FA,
+0,
+0,
+0xF1BC,
+0,
+0,
+0xFADA,
+0,
+0,
+0xDAEA,
+0xDAC6,
+0xF7C1,
+0,
+0,
+0xE7B6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5C7,
+0xD6AC,
+0,
+0,
+0,
+0,
+0xDCC7,
+0,
+0,
+0,
+0,
+0,
+0xE1A9,
+0,
+0xE2AA,
+0,
+0xD5A6,
+0,
+0,
+0xD4D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2D0,
+0,
+0xEAFB,
+0,
+0xE0DD,
+0xFBF3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1BD,
+0,
+0,
+0xE2E7,
+0xFDD7,
+0,
+0xCEC8,
+0xEAB7,
+0,
+0xFCC0,
+0,
+0xFDE7,
+0xF7EF,
+0,
+0,
+0xD7B5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFBA,
+0xF1DD,
+0,
+0xDEB3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8CB,
+0,
+0,
+0xF8DD,
+0,
+0,
+0xFBC7,
+0xD5C8,
+0,
+0xD7DF,
+0,
+0xDDA9,
+0,
+0,
+0,
+0,
+0,
+0xE9B1,
+0,
+0,
+0xFAAD,
+0xF6D9,
+0xFAF4,
+0,
+0,
+0,
+0,
+0,
+0xF8AA,
+0,
+0,
+0,
+0,
+0,
+0xE6EE,
+0,
+0xCCDC,
+0xE1BC,
+0xE0EF,
+0,
+0,
+0xE9BF,
+0xFCFD,
+0xE6CE,
+0,
+0,
+0xE1D7,
+0,
+0xE6CF,
+0,
+0xF4F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4F3,
+0,
+0,
+0xE4FB,
+0,
+0,
+0xF9E4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFE3,
+0,
+0,
+0xCFEE,
+0xF6BE,
+0xE0B2,
+0xFCFE,
+0xD1AB,
+0,
+0,
+0,
+0xD7FA,
+0,
+0,
+0,
+0xFBC8,
+0,
+0xE2D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4A3,
+0xF0F8,
+0xD7A8,
+0,
+0,
+0,
+0xE1E7,
+0,
+0,
+0xD3BF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFE4,
+0,
+0xD7C5,
+0xEBE2,
+0,
+0,
+0xFCE7,
+0,
+0,
+0xE4A2,
+0,
+0xE2E8,
+0,
+0xE6D0,
+0,
+0xFBE8,
+0xF4E8,
+0xE5F4,
+0xF4BC,
+0xF4D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFB6,
+0,
+0xFCB9,
+0xEEC2,
+0xCAF5,
+0,
+0,
+0,
+0xEFE5,
+0xCBE2,
+0xD4A4,
+0,
+0xDEE0,
+0xDAFD,
+0xE4C6,
+0xE8BE,
+0,
+0,
+0,
+0,
+0xE0DE,
+0xF6B4,
+0xEAD2,
+0,
+0xF9FB,
+0,
+0,
+0xE0C2,
+0,
+0xCAE4,
+0,
+0xE7B7,
+0,
+0xEAFD,
+0,
+0xD9DD,
+0,
+0xDAB4,
+0xEEAA,
+0xFBE9,
+0,
+0,
+0,
+0,
+0xDBCB,
+0xDAB5,
+0,
+0,
+0,
+0,
+0,
+0xF1BE,
+0,
+0,
+0xD3AC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBC9,
+0,
+0xDFCF,
+0,
+0,
+0xD3C0,
+0xE3D7,
+0,
+0xEFE6,
+0xFCD0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9C0,
+0,
+0,
+0,
+0xF5D3,
+0,
+0,
+0xECDC,
+0xF7B7,
+0,
+0,
+0xEAB8,
+0xD1F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCC8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAB9,
+0,
+0,
+0,
+0,
+0,
+0xF1DE,
+0,
+0,
+0,
+0,
+0,
+0xD7B6,
+0xCFB5,
+0,
+0xD9A8,
+0,
+0,
+0xECEE,
+0,
+0,
+0xDDAA,
+0,
+0,
+0,
+0,
+0xCDA2,
+0xE8AE,
+0,
+0,
+0,
+0xE1BD,
+0,
+0xF2D1,
+0,
+0,
+0,
+0,
+0xE9C1,
+0,
+0,
+0,
+0xD2FC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBB5,
+0,
+0xF3E7,
+0xD8FE,
+0,
+0,
+0,
+0xFCD1,
+0,
+0xEDB2,
+0xF4AF,
+0,
+0xFBA3,
+0,
+0,
+0xFCC1,
+0,
+0xEEAB,
+0xD4A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4F2,
+0,
+0,
+0,
+0,
+0xEED9,
+0,
+0,
+0,
+0xFBCA,
+0,
+0,
+0,
+0,
+0,
+0xCDE3,
+0xD8BB,
+0,
+0xE5DB,
+0xF8F7,
+0,
+0,
+0,
+0xF6D4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7A9,
+0,
+0xCBC9,
+0,
+0,
+0xE6D1,
+0xF0CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8AE,
+0,
+0xF9D3,
+0xD5FE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8BC,
+0xF2B0,
+0,
+0,
+0,
+0,
+0xE2AB,
+0xF3E8,
+0,
+0,
+0,
+0,
+0,
+0xEFC2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDEC,
+0,
+0xE7B8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAFE,
+0,
+0,
+0xCCBE,
+0,
+0,
+0xF2FC,
+0xDAEB,
+0,
+0xE2D8,
+0xEDD6,
+0,
+0,
+0xD6D1,
+0xE0B3,
+0,
+0,
+0xFCD2,
+0,
+0xEBC8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3C1,
+0xF0CD,
+0,
+0xCFF7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDD2,
+0,
+0xD4D8,
+0xDCC9,
+0xD7F1,
+0,
+0,
+0xDFBB,
+0,
+0,
+0xF3A5,
+0,
+0,
+0,
+0xF4CD,
+0,
+0,
+0,
+0,
+0xF1BF,
+0xF8B1,
+0,
+0xE9FA,
+0,
+0,
+0,
+0xFBCB,
+0,
+0,
+0xCAD5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9D4,
+0xF7CA,
+0,
+0,
+0xD6C8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCE8,
+0xF3BD,
+0,
+0xEEFE,
+0,
+0xE7FE,
+0,
+0,
+0,
+0,
+0,
+0xD3C2,
+0,
+0,
+0,
+0,
+0xD3B6,
+0,
+0xCCAD,
+0xF6FA,
+0xD6B2,
+0xD2D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3A5,
+0,
+0,
+0,
+0,
+0xE7B9,
+0,
+0,
+0,
+0,
+0xF0AD,
+0xFBCC,
+0xEBA1,
+0,
+0,
+0xD4A6,
+0,
+0,
+0,
+0,
+0xFBCD,
+0,
+0xD5BD,
+0xF1DF,
+0,
+0,
+0xF6FB,
+0,
+0xDEB4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5EB,
+0,
+0,
+0xE5C8,
+0,
+0,
+0,
+0xFBA4,
+0xD4B9,
+0,
+0,
+0xDEE1,
+0,
+0xE4A3,
+0,
+0,
+0,
+0xD7B7,
+0,
+0xF8EE,
+0,
+0,
+0,
+0xDEB5,
+0,
+0,
+0xD6D2,
+0,
+0xF9D5,
+0xE7BA,
+0xEBD5,
+0xD5F7,
+0xEFE7,
+0xE1BE,
+0,
+0,
+0,
+0xFAAE,
+0,
+0,
+0,
+0xD6E9,
+0xD6EE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7BB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECCB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEB4,
+0,
+0,
+0,
+0xFBA5,
+0xE1EE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7A8,
+0,
+0,
+0,
+0,
+0xFBCE,
+0,
+0,
+0,
+0,
+0,
+0xD8BD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBFD,
+0,
+0,
+0,
+0,
+0xFCE9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFB6,
+0,
+0,
+0,
+0xEDC7,
+0xEEAC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCDD,
+0,
+0,
+0,
+0,
+0xF6A7,
+0,
+0,
+0,
+0xE6FA,
+0,
+0,
+0,
+0xF5A4,
+0,
+0,
+0,
+0,
+0,
+0xFDDC,
+0xEDB3,
+0xCEC9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFE8,
+0,
+0,
+0xE1BF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFADB,
+0xCBE3,
+0xF7A9,
+0,
+0xFBA6,
+0,
+0,
+0,
+0xDCB9,
+0,
+0,
+0,
+0xF1C0,
+0xEDC8,
+0xEFC3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6AD,
+0,
+0,
+0xFDCE,
+0,
+0,
+0,
+0xE8A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBF4,
+0xD5A7,
+0,
+0,
+0,
+0xF1F6,
+0,
+0xE6D3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCDE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8B2,
+0,
+0,
+0,
+0xDCEB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDB6,
+0,
+0,
+0,
+0,
+0xE5EA,
+0,
+0,
+0xF1E0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBCC,
+0xDDCD,
+0,
+0,
+0,
+0xD4C8,
+0,
+0,
+0xD9ED,
+0,
+0,
+0,
+0,
+0xF5A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6FB,
+0,
+0,
+0,
+0,
+0,
+0xE6D4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDC8,
+0,
+0xD6A1,
+0xFDBF,
+0,
+0xFCD3,
+0,
+0xEFA1,
+0,
+0xE7BC,
+0,
+0,
+0,
+0,
+0,
+0xD1EE,
+0,
+0,
+0xE6D5,
+0,
+0,
+0xE9F2,
+0,
+0xDFB0,
+0,
+0,
+0,
+0,
+0,
+0xD8E0,
+0xFCBA,
+0xFDAF,
+0xF0CE,
+0,
+0xDBE1,
+0,
+0,
+0xE5C9,
+0,
+0xEDB4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0C3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3D8,
+0,
+0,
+0,
+0,
+0xE9FB,
+0xEAA8,
+0,
+0,
+0,
+0,
+0xFDB7,
+0,
+0,
+0xFBA7,
+0,
+0xE9C2,
+0,
+0,
+0,
+0,
+0xFDF7,
+0,
+0,
+0,
+0,
+0,
+0xE2D9,
+0,
+0,
+0xDCEC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8A2,
+0,
+0,
+0,
+0,
+0xE6F0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDF8,
+0xFDF9,
+0,
+0,
+0,
+0xF6BF,
+0,
+0,
+0xE7A7,
+0,
+0xE6D7,
+0,
+0,
+0,
+0,
+0xD4F3,
+0xD4C9,
+0,
+0,
+0,
+0,
+0xD6FA,
+0,
+0xD7F2,
+0,
+0xE1C0,
+0,
+0xDBE2,
+0xE6D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7BD,
+0,
+0,
+0,
+0,
+0,
+0xF0CF,
+0xF3BE,
+0xE2AC,
+0,
+0,
+0,
+0,
+0,
+0xF5B7,
+0xE0F0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDB8,
+0xE3E8,
+0,
+0xD4A7,
+0xE8FC,
+0xFAD2,
+0,
+0,
+0,
+0,
+0,
+0xF8EF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6D3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0D0,
+0,
+0xF7F0,
+0xEEB3,
+0,
+0,
+0xEABA,
+0,
+0xEAD3,
+0,
+0,
+0xEDC9,
+0xDDAB,
+0,
+0,
+0,
+0xE5AC,
+0xFDA1,
+0,
+0xDFD0,
+0xECB3,
+0,
+0xDFD1,
+0,
+0,
+0,
+0,
+0,
+0xEDED,
+0xF8B8,
+0xF7FA,
+0,
+0,
+0,
+0xF8AB,
+0,
+0,
+0,
+0,
+0,
+0xF4E0,
+0,
+0,
+0,
+0,
+0,
+0xD4BA,
+0xE4B3,
+0,
+0xE9DA,
+0,
+0xDEB6,
+0,
+0xD9BF,
+0,
+0xD9C0,
+0xD6EF,
+0,
+0,
+0,
+0,
+0xD9CC,
+0,
+0xDAAA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFE5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7E5,
+0,
+0,
+0,
+0xCCB2,
+0,
+0,
+0xDFF9,
+0xD7E0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4BB,
+0,
+0,
+0,
+0,
+0xFDFA,
+0,
+0,
+0,
+0,
+0xCCB3,
+0,
+0,
+0xDBF3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFD2,
+0,
+0xCECA,
+0,
+0xEEDA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4E4,
+0,
+0xFBCF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFB7,
+0,
+0xEEC3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEEA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7E1,
+0xFAF5,
+0,
+0,
+0xD5C9,
+0xF8AC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3E9,
+0,
+0,
+0,
+0,
+0xD8ED,
+0xE3C4,
+0xF0F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8E5,
+0,
+0,
+0,
+0xE0FA,
+0xEEC4,
+0xD9DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBA2,
+0xEBA3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCC2,
+0xEABB,
+0,
+0,
+0,
+0,
+0xE8AB,
+0xDEE2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDEF,
+0,
+0xE8A3,
+0,
+0,
+0,
+0,
+0xCFF1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4BC,
+0,
+0xFCEA,
+0,
+0,
+0,
+0,
+0,
+0xE7BE,
+0,
+0xFCF2,
+0,
+0,
+0xD6B4,
+0,
+0,
+0xE2AE,
+0,
+0xD3B7,
+0xFACC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFADC,
+0,
+0xEDB5,
+0xE1E3,
+0,
+0xE8AC,
+0,
+0xE8DD,
+0,
+0,
+0xEFE9,
+0,
+0,
+0,
+0,
+0,
+0xF4BD,
+0,
+0xCFB8,
+0xE9DB,
+0xD1AC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAC7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBC9,
+0,
+0xE8CC,
+0,
+0,
+0,
+0xDEB7,
+0,
+0,
+0,
+0,
+0xD6BC,
+0xD3E5,
+0,
+0,
+0,
+0,
+0,
+0xFADD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAD6,
+0,
+0xCAB1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAC8,
+0xDFA6,
+0,
+0xF9B3,
+0xF2D2,
+0,
+0xCAC4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCECB,
+0,
+0,
+0xCDF5,
+0,
+0,
+0,
+0xFDB0,
+0xD5A8,
+0,
+0xF1C1,
+0,
+0,
+0xE2E9,
+0xDCCA,
+0xECB4,
+0xFAC0,
+0,
+0,
+0xFBA8,
+0xD0A8,
+0,
+0,
+0xDAEC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9EE,
+0,
+0xE0FB,
+0,
+0,
+0,
+0xEFEA,
+0xFADE,
+0,
+0,
+0xE0C4,
+0,
+0xCFB9,
+0,
+0xD5CA,
+0xD7E2,
+0xE2AF,
+0,
+0xD7B8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6DA,
+0,
+0,
+0,
+0,
+0xEFA2,
+0xE2DA,
+0xF6FC,
+0,
+0,
+0xFBD0,
+0xD1AD,
+0,
+0xCDE4,
+0,
+0xD1AE,
+0xDCED,
+0xE8CE,
+0,
+0xF0F9,
+0xCEB5,
+0xE6FC,
+0,
+0,
+0xD7FB,
+0xD0D6,
+0xDDF5,
+0xF7F1,
+0,
+0xF6FD,
+0,
+0xDBF7,
+0,
+0,
+0,
+0,
+0xFBEA,
+0xE9DC,
+0xD9C1,
+0,
+0xF5F2,
+0xE0C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAD4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9C2,
+0,
+0xEABC,
+0,
+0xD2C5,
+0xFBD1,
+0xE7C0,
+0xEBA5,
+0,
+0xDFFA,
+0xE3A2,
+0xD7B9,
+0,
+0xE9C3,
+0,
+0xE8FD,
+0xE8AF,
+0,
+0,
+0xF2D3,
+0xFBA9,
+0xD8A5,
+0,
+0,
+0,
+0,
+0xD5CB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0C8,
+0,
+0,
+0,
+0xD1AF,
+0xD7E3,
+0,
+0,
+0,
+0xE0C6,
+0,
+0xD6A2,
+0,
+0xEDF0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7F3,
+0,
+0,
+0,
+0xFCD4,
+0,
+0xDAD7,
+0xCCDF,
+0,
+0xF2D4,
+0,
+0xD1B0,
+0,
+0xCCE0,
+0,
+0xDBFD,
+0xF3BF,
+0,
+0xF0D1,
+0,
+0,
+0,
+0,
+0,
+0xFCBB,
+0,
+0xE2B0,
+0,
+0,
+0xE6A5,
+0,
+0,
+0,
+0xE2DB,
+0,
+0,
+0,
+0xDFDE,
+0,
+0xE0C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2EF,
+0,
+0,
+0,
+0xCCE1,
+0,
+0,
+0,
+0,
+0xD6EA,
+0,
+0,
+0,
+0,
+0xE7C2,
+0,
+0,
+0,
+0xCEB6,
+0,
+0xF3C0,
+0,
+0xCDFE,
+0,
+0,
+0,
+0xFBD2,
+0,
+0xF8F8,
+0xF7FB,
+0,
+0,
+0xE8BF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8B7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDB6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCBA,
+0,
+0,
+0xCCB4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1F7,
+0,
+0,
+0,
+0xE8B8,
+0,
+0,
+0xCAF6,
+0,
+0xE4A4,
+0xF4D6,
+0,
+0,
+0,
+0xDFE6,
+0,
+0,
+0,
+0xDFA7,
+0,
+0xDFE7,
+0xE1C1,
+0,
+0xE9C4,
+0,
+0,
+0xDCCB,
+0xE9C5,
+0,
+0,
+0,
+0xEFA3,
+0xEBA6,
+0xCBA3,
+0xE3E9,
+0,
+0,
+0,
+0xD1FB,
+0xEFA4,
+0,
+0xEFEB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0B4,
+0,
+0,
+0,
+0,
+0xCDA3,
+0,
+0,
+0xE8E6,
+0,
+0xEFA5,
+0,
+0xD3CC,
+0xDAED,
+0,
+0,
+0,
+0,
+0xD7BA,
+0,
+0xF2D5,
+0xF5E5,
+0xD9EF,
+0,
+0,
+0,
+0,
+0xF9B4,
+0,
+0,
+0xD5D4,
+0xFDCF,
+0,
+0,
+0,
+0xDBE3,
+0,
+0,
+0,
+0,
+0xF1E1,
+0xECB6,
+0,
+0,
+0,
+0,
+0xFBFE,
+0xD3D7,
+0,
+0xD1B1,
+0,
+0xCBB1,
+0,
+0,
+0,
+0,
+0xD1B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBB2,
+0xF1C2,
+0,
+0,
+0xF4E1,
+0xF9B5,
+0,
+0,
+0xE1C3,
+0xE1C2,
+0,
+0xEBF7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFA8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBCA,
+0,
+0,
+0,
+0,
+0,
+0xE6B9,
+0,
+0,
+0,
+0,
+0,
+0xF8DE,
+0xF9AA,
+0xCAF7,
+0,
+0xEDB7,
+0,
+0,
+0xD3B8,
+0xF2D6,
+0,
+0,
+0xD4D9,
+0xEEC5,
+0xF2F0,
+0,
+0,
+0,
+0xCAB2,
+0,
+0,
+0xDCBB,
+0,
+0xF1F8,
+0,
+0,
+0,
+0,
+0,
+0xECB7,
+0,
+0,
+0,
+0,
+0xE5CA,
+0,
+0xF6C0,
+0xFDDD,
+0,
+0,
+0xD4E3,
+0xCCE2,
+0,
+0xF7D4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7E5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3C3,
+0,
+0xD8A6,
+0,
+0xF6C1,
+0,
+0,
+0,
+0,
+0,
+0xDDF6,
+0,
+0xCDC0,
+0,
+0,
+0,
+0xE5DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5CB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1C4,
+0,
+0,
+0,
+0,
+0,
+0xE8B0,
+0xF4B0,
+0xF3EA,
+0xDAEE,
+0,
+0xD7BB,
+0,
+0xE2B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6FB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4DF,
+0,
+0xCAD6,
+0,
+0,
+0,
+0xEBA8,
+0,
+0,
+0,
+0xDBFE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6C2,
+0,
+0,
+0xEFBB,
+0,
+0,
+0,
+0,
+0xD4FD,
+0,
+0,
+0xE0C8,
+0,
+0,
+0,
+0xE8B9,
+0,
+0xEFA6,
+0,
+0,
+0,
+0,
+0,
+0xCDA4,
+0,
+0,
+0xD4F4,
+0xDBA1,
+0xDBDC,
+0xDBDD,
+0,
+0,
+0,
+0,
+0,
+0xEEDC,
+0,
+0xCBCB,
+0xFCD5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEEB,
+0,
+0xCDC1,
+0,
+0,
+0xFBD3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9AB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5D4,
+0,
+0,
+0,
+0,
+0xD9A9,
+0,
+0,
+0xE9DD,
+0xDBCD,
+0,
+0,
+0xDDCE,
+0,
+0xE7C3,
+0,
+0xECCC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9EC,
+0,
+0,
+0,
+0xCBCC,
+0,
+0,
+0,
+0,
+0xE0FC,
+0xD4A8,
+0,
+0xEDD3,
+0xD8EF,
+0,
+0xF2D7,
+0,
+0xCAF8,
+0xDAEF,
+0,
+0,
+0xD6D4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9CD,
+0,
+0,
+0,
+0xD8EE,
+0,
+0xF2C1,
+0,
+0,
+0,
+0xDFD3,
+0,
+0,
+0,
+0xDAF0,
+0,
+0xE2EA,
+0,
+0,
+0xE0FD,
+0,
+0,
+0xD8F8,
+0,
+0,
+0,
+0xF7AF,
+0xDAB6,
+0,
+0xCAD7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2D8,
+0,
+0xD8F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFADF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFEF,
+0xD9C2,
+0,
+0xF0D2,
+0,
+0xE4D1,
+0,
+0,
+0,
+0xF3B7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAE0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFEC,
+0,
+0,
+0,
+0,
+0,
+0xE2B2,
+0,
+0xD4BD,
+0,
+0,
+0xD9CE,
+0,
+0,
+0,
+0,
+0xF4E2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4A9,
+0,
+0,
+0,
+0,
+0xCDC2,
+0xE7DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2D9,
+0,
+0,
+0,
+0,
+0,
+0xD9AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCAD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2EB,
+0xD6FC,
+0,
+0,
+0xCAF9,
+0,
+0,
+0xD4DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4D7,
+0xCCA1,
+0,
+0,
+0xCFBA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5B8,
+0,
+0,
+0,
+0xD9C3,
+0xD0E8,
+0,
+0,
+0,
+0,
+0,
+0xE3C5,
+0xEBF8,
+0,
+0xF2B1,
+0,
+0,
+0,
+0xCFBB,
+0,
+0,
+0,
+0xD3AD,
+0xE8E1,
+0xCEEC,
+0,
+0,
+0,
+0xE0B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEE3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDF7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2B2,
+0xF3F6,
+0xF6DB,
+0,
+0,
+0,
+0,
+0xD7FE,
+0,
+0,
+0,
+0,
+0,
+0xF8DF,
+0,
+0xF7F2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7BC,
+0xCCE3,
+0,
+0,
+0xE6DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDDD,
+0,
+0,
+0,
+0,
+0xD1B3,
+0,
+0,
+0,
+0,
+0,
+0xEFED,
+0,
+0,
+0,
+0,
+0xD6DE,
+0xE4F4,
+0xE1EF,
+0,
+0,
+0xDDF8,
+0,
+0,
+0,
+0,
+0,
+0xE8CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAE5,
+0,
+0,
+0,
+0xDCA1,
+0,
+0xE0B5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCAC,
+0xFCAD,
+0xD8A7,
+0,
+0,
+0,
+0,
+0xEDB8,
+0,
+0,
+0,
+0xDBB6,
+0,
+0,
+0,
+0,
+0xD6F0,
+0xF3AF,
+0,
+0,
+0xCDA5,
+0,
+0xDAF1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8A8,
+0,
+0,
+0,
+0xCCE4,
+0,
+0,
+0xD1B4,
+0,
+0,
+0,
+0,
+0,
+0xCAD8,
+0,
+0,
+0,
+0,
+0,
+0xDAF2,
+0,
+0,
+0,
+0,
+0,
+0xF5A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5A8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5EC,
+0xD5F8,
+0xDAF3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3C6,
+0,
+0,
+0,
+0xDEE4,
+0,
+0xDEE5,
+0xD1B5,
+0,
+0,
+0,
+0,
+0,
+0xD1B6,
+0xD1B7,
+0xF2B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9DE,
+0,
+0,
+0,
+0,
+0,
+0xF0D3,
+0xF2B4,
+0,
+0,
+0xF0D4,
+0xCBE4,
+0xFBD4,
+0xF5E6,
+0xE3EA,
+0,
+0xDEE6,
+0,
+0,
+0,
+0,
+0xDFD4,
+0,
+0,
+0xF8F9,
+0,
+0,
+0,
+0,
+0xF0AE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1B8,
+0,
+0,
+0,
+0,
+0xD6DF,
+0,
+0xD0D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCA1,
+0xEFEE,
+0xDCD8,
+0,
+0xE9DF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5DD,
+0xFDFB,
+0,
+0,
+0xE0C9,
+0,
+0,
+0,
+0xD6C9,
+0,
+0,
+0xD4AA,
+0,
+0xE5CC,
+0,
+0,
+0,
+0,
+0,
+0xE9E0,
+0,
+0,
+0,
+0xD0D8,
+0xFCA2,
+0xD4BE,
+0xE2B3,
+0xDEE7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCBC,
+0xD2B6,
+0xF5D5,
+0,
+0,
+0,
+0,
+0,
+0xCEA1,
+0xF5A9,
+0,
+0,
+0xDDF9,
+0,
+0,
+0xDDFA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0D5,
+0,
+0,
+0,
+0,
+0xF6DF,
+0,
+0xF2DA,
+0xE4EB,
+0,
+0xF2F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECB9,
+0,
+0,
+0,
+0,
+0xFDFC,
+0,
+0,
+0,
+0,
+0xE1AA,
+0,
+0,
+0xCAD9,
+0,
+0,
+0xEFEF,
+0,
+0xF5AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECF9,
+0,
+0,
+0xF8AD,
+0,
+0xF2C2,
+0xF6C3,
+0,
+0xD7D2,
+0,
+0,
+0xF9A2,
+0xF0D6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0FA,
+0,
+0,
+0xF6E0,
+0,
+0,
+0,
+0,
+0xE9F3,
+0xF2C3,
+0,
+0,
+0,
+0xD4AB,
+0xCAB3,
+0xCDA6,
+0,
+0xCDC3,
+0xCDDA,
+0,
+0,
+0,
+0,
+0,
+0xD9CF,
+0,
+0,
+0xF6C4,
+0,
+0,
+0,
+0xEEDD,
+0xE7C4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFE2,
+0xE7DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8B1,
+0,
+0xFCAE,
+0,
+0,
+0,
+0,
+0xE5CD,
+0,
+0,
+0,
+0xFAEB,
+0,
+0xCFBC,
+0,
+0,
+0xCFE2,
+0xCDF6,
+0,
+0,
+0xEFF0,
+0,
+0xF4BE,
+0,
+0xD4CD,
+0,
+0,
+0xF3B8,
+0,
+0,
+0,
+0xE9A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2F2,
+0xF3EB,
+0,
+0xF0D7,
+0,
+0,
+0xCFD7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFDF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8C0,
+0xE8C1,
+0,
+0,
+0,
+0xCFE3,
+0xE9A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3C1,
+0xD0AB,
+0,
+0xD4E4,
+0,
+0,
+0xEFBC,
+0xD8A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9DF,
+0,
+0xF3D7,
+0,
+0,
+0,
+0xDCBD,
+0,
+0xCCE5,
+0xEDF1,
+0,
+0,
+0xF1E2,
+0,
+0xD4DB,
+0,
+0,
+0,
+0,
+0xE2B5,
+0,
+0,
+0xCAE6,
+0,
+0xD3AE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCE6,
+0,
+0,
+0xF1D3,
+0xF5E7,
+0,
+0,
+0,
+0,
+0xCADA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBEE,
+0,
+0xE1C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFE9,
+0,
+0xEEDE,
+0,
+0,
+0xF7C2,
+0,
+0xD8A2,
+0,
+0,
+0,
+0,
+0,
+0xDDAC,
+0,
+0,
+0,
+0,
+0,
+0xF0AF,
+0xD6BD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1AB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9B6,
+0,
+0,
+0xD4F5,
+0,
+0xD0C9,
+0xEFA7,
+0xE2EC,
+0,
+0xDBEA,
+0xCECC,
+0xF5E8,
+0xF7D5,
+0,
+0xD3CD,
+0,
+0xF3FE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0B5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0FE,
+0,
+0xDFFB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6DD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBCD,
+0,
+0,
+0,
+0xEFA8,
+0,
+0,
+0,
+0xEEB4,
+0,
+0,
+0,
+0,
+0xDAD8,
+0xD1B9,
+0,
+0xDFA9,
+0,
+0,
+0xF3B0,
+0,
+0,
+0xCCC4,
+0,
+0,
+0,
+0xCEB7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFA9,
+0,
+0,
+0,
+0xDFD5,
+0,
+0,
+0xEDD7,
+0,
+0,
+0,
+0xEEC6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFBD,
+0xFCD6,
+0,
+0,
+0xDBF4,
+0,
+0xEFAA,
+0xF8B9,
+0,
+0xF5E9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1C6,
+0,
+0,
+0,
+0xD4BF,
+0,
+0,
+0,
+0,
+0xDEE8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3AF,
+0,
+0,
+0xCADB,
+0,
+0,
+0,
+0,
+0,
+0xFCD7,
+0,
+0,
+0xEDD8,
+0xE1C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4D8,
+0xD6B3,
+0xDDAD,
+0,
+0,
+0,
+0xD5BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1C3,
+0xEEDF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6EB,
+0,
+0,
+0,
+0xF4D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7E6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAB7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDFB,
+0,
+0,
+0,
+0,
+0,
+0xDDCF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8A3,
+0,
+0,
+0xDAD9,
+0,
+0xF0D8,
+0xEFC4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1D8,
+0,
+0,
+0,
+0,
+0,
+0xF1D4,
+0,
+0xEDF2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5DB,
+0,
+0,
+0xD5DC,
+0xF3C4,
+0xCBD7,
+0,
+0,
+0,
+0,
+0,
+0xE2B6,
+0,
+0,
+0,
+0,
+0xEFF1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBD5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDD0,
+0xF0D9,
+0xCBB3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5DD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDA7,
+0,
+0,
+0xD0AC,
+0,
+0xD1BA,
+0,
+0xF1C4,
+0,
+0xE5B3,
+0xFBF5,
+0xE9E1,
+0xFDE0,
+0xFCBC,
+0,
+0xDAA2,
+0xDAA3,
+0,
+0xD2A1,
+0,
+0,
+0xD2EF,
+0,
+0,
+0,
+0xE2ED,
+0,
+0,
+0xDEE9,
+0xCEDC,
+0xF2B5,
+0xD0E4,
+0xDDD1,
+0,
+0,
+0,
+0,
+0xE1C8,
+0xDBB7,
+0xDFE3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDB9,
+0xF1C5,
+0,
+0xF3CF,
+0xD7AB,
+0xE1AC,
+0,
+0,
+0xE3EB,
+0,
+0xEEC7,
+0,
+0,
+0,
+0xE1C9,
+0xCAFA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0FB,
+0xFAE1,
+0xF0DA,
+0xCCE7,
+0xDAF4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCBF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEED,
+0,
+0,
+0xD5A9,
+0xFAE2,
+0,
+0,
+0,
+0xD0E5,
+0,
+0xEBD6,
+0,
+0xECDF,
+0,
+0,
+0,
+0xDFFC,
+0,
+0,
+0xF7D6,
+0xDEEA,
+0xCBB4,
+0,
+0,
+0xEFBE,
+0,
+0,
+0xCCB5,
+0,
+0,
+0,
+0,
+0,
+0xCFBD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFF2,
+0xE2B7,
+0,
+0,
+0,
+0xCCE8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0FC,
+0,
+0,
+0,
+0xD6E0,
+0,
+0xF1C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2B8,
+0xEBAB,
+0,
+0,
+0,
+0xCBB5,
+0xD8D1,
+0,
+0xF4CE,
+0xF3F7,
+0,
+0,
+0xD7C6,
+0,
+0xD1BB,
+0xF7AA,
+0,
+0xEDCA,
+0xD7D3,
+0xD8FA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6C5,
+0,
+0,
+0xD1CC,
+0xDDFC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFFD,
+0,
+0xF9E5,
+0,
+0xE0CA,
+0,
+0,
+0xF2FD,
+0xD3B0,
+0,
+0xF4F3,
+0xDAC9,
+0,
+0xE6DE,
+0,
+0,
+0,
+0,
+0xF8BA,
+0xE8D0,
+0,
+0,
+0xD8FB,
+0,
+0,
+0xEAD5,
+0,
+0,
+0,
+0,
+0xD6A3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2DB,
+0xE4FC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8B2,
+0,
+0,
+0,
+0,
+0,
+0xDADA,
+0,
+0xF2DC,
+0xFBD6,
+0xE9B2,
+0,
+0xEEAD,
+0,
+0xFAE3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCEE,
+0,
+0,
+0xF5EA,
+0xE6E0,
+0,
+0xF0FD,
+0,
+0,
+0,
+0,
+0,
+0xD7AC,
+0,
+0,
+0,
+0,
+0,
+0xF5C5,
+0xEEE0,
+0,
+0,
+0xDBE5,
+0,
+0xDDDE,
+0,
+0,
+0xD9F0,
+0xE9A3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1F9,
+0,
+0xF2C4,
+0xE0CB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9A4,
+0,
+0,
+0xE2B9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3B1,
+0xFCEB,
+0xCDA8,
+0,
+0xCCB6,
+0,
+0,
+0xF0DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6BA,
+0,
+0,
+0xCDA9,
+0,
+0,
+0,
+0,
+0,
+0xF3C3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1D9,
+0,
+0,
+0xEFAB,
+0,
+0,
+0,
+0xE7C5,
+0,
+0,
+0xE0E9,
+0,
+0xF3C5,
+0,
+0,
+0xD4C0,
+0xD5BF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDAE,
+0,
+0xF9FC,
+0,
+0xCCC0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5A2,
+0,
+0,
+0,
+0xCEB8,
+0,
+0,
+0,
+0xD8D2,
+0xF9D6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1AA,
+0xCED1,
+0,
+0,
+0xF6C7,
+0,
+0xDBEB,
+0,
+0xDFFE,
+0,
+0,
+0xD8E1,
+0,
+0xF7F3,
+0,
+0xD7E7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4FE,
+0,
+0,
+0xD1BC,
+0,
+0xE5CF,
+0,
+0xCBB6,
+0,
+0xDAB8,
+0,
+0,
+0,
+0,
+0,
+0xCDC4,
+0,
+0,
+0,
+0,
+0,
+0xD6BE,
+0,
+0,
+0,
+0xE2BA,
+0,
+0,
+0,
+0,
+0,
+0xCFD8,
+0,
+0,
+0,
+0xE0CC,
+0xEBF9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDFD,
+0,
+0,
+0,
+0,
+0,
+0xD7E8,
+0xCBD8,
+0,
+0,
+0,
+0xE9E2,
+0,
+0,
+0,
+0xE8BA,
+0,
+0,
+0,
+0xE3C7,
+0,
+0,
+0,
+0,
+0xECCD,
+0,
+0xECCE,
+0,
+0xD6BF,
+0,
+0,
+0,
+0xE3A7,
+0,
+0xDFD6,
+0xFDE8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEE1,
+0xF6A8,
+0xDDFD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8BB,
+0,
+0xE8D1,
+0,
+0,
+0,
+0,
+0xF9D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEEE,
+0,
+0,
+0xECCF,
+0,
+0,
+0,
+0xE9A5,
+0xD6D5,
+0,
+0xCDC5,
+0,
+0xEDBA,
+0xD1BD,
+0,
+0,
+0xCFBE,
+0,
+0,
+0xECBB,
+0,
+0,
+0,
+0xD2B1,
+0,
+0,
+0,
+0,
+0xCCE9,
+0,
+0xD9C4,
+0xE9FC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1BE,
+0,
+0,
+0,
+0,
+0,
+0xECBC,
+0,
+0,
+0xE5AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7B0,
+0,
+0xCCEA,
+0,
+0,
+0,
+0xD3C4,
+0,
+0,
+0xD6C0,
+0,
+0,
+0,
+0xD6FD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1A1,
+0,
+0xDEBD,
+0,
+0xF6A9,
+0,
+0,
+0,
+0xDAA4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6A4,
+0xF5C6,
+0,
+0xE1A2,
+0xE9C6,
+0,
+0,
+0,
+0xF2C5,
+0,
+0,
+0,
+0,
+0,
+0xF4E9,
+0xD6EC,
+0xEBD3,
+0,
+0,
+0,
+0,
+0xECBD,
+0xE2DC,
+0xDEEB,
+0xF0DC,
+0,
+0xEBBF,
+0,
+0xD7CE,
+0xD1BF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5AB,
+0,
+0,
+0,
+0,
+0xF9FD,
+0,
+0xCADC,
+0,
+0,
+0,
+0xCDC6,
+0xF2B6,
+0,
+0,
+0xDDFE,
+0,
+0,
+0,
+0xCCB7,
+0xDBB8,
+0,
+0,
+0,
+0,
+0xD0E9,
+0,
+0xCEDD,
+0xEBC0,
+0,
+0xFDA2,
+0,
+0,
+0,
+0,
+0,
+0xF8CB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAD6,
+0xF1B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBCE,
+0,
+0xF7C3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBCF,
+0xCBA4,
+0,
+0,
+0xF8E0,
+0,
+0,
+0xFBD7,
+0,
+0,
+0xEBCA,
+0xE0A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCECD,
+0,
+0,
+0xD4DC,
+0,
+0,
+0,
+0xFDD8,
+0,
+0,
+0,
+0,
+0xD2F6,
+0,
+0,
+0,
+0,
+0xF2B7,
+0,
+0,
+0xFAF6,
+0xF6AA,
+0xFAF7,
+0xD8E6,
+0,
+0xF4B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8D2,
+0,
+0xCAC5,
+0xCCEB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2EE,
+0,
+0,
+0,
+0,
+0,
+0xE2BB,
+0,
+0xF7AD,
+0,
+0,
+0,
+0xF8E1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3EC,
+0,
+0,
+0,
+0,
+0xDEA1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4FD,
+0,
+0,
+0xE3EC,
+0,
+0xDDAF,
+0xDDB0,
+0,
+0,
+0xCBB7,
+0xE8D3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1A3,
+0xD2E0,
+0,
+0,
+0,
+0,
+0xF0FE,
+0,
+0,
+0,
+0,
+0xE9A6,
+0xCBF2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDF3,
+0xDCD9,
+0xE0CD,
+0,
+0,
+0,
+0,
+0xF7DA,
+0xDBB9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCAE,
+0,
+0xDADB,
+0,
+0,
+0,
+0,
+0xCDC7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDB1,
+0,
+0xD8AF,
+0xE3A3,
+0,
+0,
+0xCEEF,
+0,
+0,
+0xF2F3,
+0,
+0,
+0,
+0,
+0xF8B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0CE,
+0,
+0xF5FD,
+0,
+0,
+0,
+0,
+0xEBEC,
+0,
+0,
+0xD3C5,
+0xFCEC,
+0xD2DB,
+0xD4EB,
+0,
+0xDEA2,
+0,
+0,
+0,
+0xE5E6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5C4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDF4,
+0,
+0,
+0,
+0xE3ED,
+0,
+0xE8C2,
+0,
+0xEDF5,
+0xD7FC,
+0,
+0xEDBB,
+0,
+0,
+0xF6AB,
+0,
+0,
+0,
+0,
+0,
+0xF2B8,
+0xF6C8,
+0,
+0,
+0,
+0,
+0,
+0xD3E6,
+0xF2DD,
+0xCFBF,
+0,
+0xEBAC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFC0,
+0,
+0xE6A8,
+0xFDE9,
+0,
+0xCFC1,
+0,
+0xE0DF,
+0xDEEC,
+0,
+0,
+0,
+0,
+0xE0A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4BF,
+0xE2EF,
+0,
+0xD9F1,
+0xF1C7,
+0,
+0xCBB8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9FE,
+0xDBBA,
+0xDAF5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6EC,
+0xDADC,
+0xFAE4,
+0,
+0xE0CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDB2,
+0,
+0,
+0,
+0,
+0xE6A9,
+0,
+0xEFF3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3ED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBFA,
+0,
+0xF9E6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCADD,
+0xD5DE,
+0,
+0xCADE,
+0xDFE4,
+0,
+0,
+0,
+0xE6FD,
+0,
+0xF5AC,
+0,
+0,
+0,
+0,
+0,
+0xE4F5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9E3,
+0,
+0xEDCB,
+0xCFE4,
+0,
+0,
+0,
+0xD8D3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDB3,
+0xD4EC,
+0,
+0,
+0xF2B9,
+0,
+0xDFB7,
+0,
+0,
+0,
+0,
+0,
+0xCBCE,
+0xFBD8,
+0,
+0,
+0xD0D9,
+0,
+0,
+0xDDD2,
+0xF7F4,
+0xE7DC,
+0xE4A5,
+0,
+0xFCA3,
+0,
+0xDBBB,
+0,
+0,
+0,
+0xF2BA,
+0xE9FD,
+0xD0CA,
+0,
+0xF5D6,
+0xD9C5,
+0xE4B4,
+0,
+0xEDA7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEABD,
+0xE6FE,
+0,
+0xF7C4,
+0xF5AD,
+0,
+0xD9E0,
+0,
+0,
+0,
+0xCAB4,
+0,
+0,
+0xF8E2,
+0xCFC2,
+0,
+0xECBE,
+0,
+0,
+0,
+0xE5B4,
+0xCDC8,
+0xEEC8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7C8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDC9,
+0xF9B7,
+0,
+0,
+0xF1E8,
+0xD9F2,
+0xDBF5,
+0xCAB5,
+0xD9C6,
+0,
+0,
+0,
+0xD8C9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9AB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDBC,
+0,
+0,
+0xD8D4,
+0,
+0,
+0,
+0xDCDA,
+0,
+0xE2BC,
+0,
+0,
+0xFCED,
+0xECE0,
+0xD2FE,
+0,
+0xE9C7,
+0xE6AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2F0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFABB,
+0,
+0xF5AE,
+0xFBAA,
+0,
+0,
+0,
+0,
+0xECFB,
+0,
+0xECBF,
+0xFCD8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4E5,
+0,
+0,
+0,
+0xF9C3,
+0,
+0,
+0,
+0xEEE2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7E9,
+0xEDF6,
+0,
+0,
+0,
+0xDEED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCEC,
+0,
+0xE3EE,
+0,
+0,
+0,
+0,
+0,
+0xE8D4,
+0,
+0,
+0,
+0xFAF8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDB4,
+0xE4B5,
+0xD8B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8D5,
+0,
+0,
+0,
+0xF4EA,
+0,
+0,
+0,
+0xCEB9,
+0,
+0,
+0,
+0xD6E1,
+0xCFD2,
+0,
+0xD0B6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEA2,
+0,
+0,
+0xF3EE,
+0,
+0,
+0,
+0,
+0,
+0xF3F8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCCC,
+0,
+0xD0CB,
+0,
+0,
+0,
+0xFCA4,
+0xCDCA,
+0xD7D4,
+0xDEA3,
+0,
+0xE4E0,
+0,
+0,
+0,
+0,
+0xEEC9,
+0,
+0,
+0,
+0xE2DD,
+0,
+0,
+0,
+0,
+0,
+0xF5FE,
+0xD4AC,
+0,
+0,
+0,
+0,
+0,
+0xD5D1,
+0,
+0xD8F0,
+0xF8C3,
+0xEAD7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5D7,
+0,
+0,
+0xD8BF,
+0,
+0,
+0,
+0,
+0xFDC0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBAD,
+0,
+0,
+0,
+0,
+0xD5AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7A8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEECA,
+0,
+0,
+0,
+0xCAE7,
+0,
+0,
+0,
+0,
+0,
+0xF8E3,
+0,
+0xD4DD,
+0,
+0,
+0xEAD8,
+0,
+0,
+0,
+0,
+0xFBD9,
+0xEDF7,
+0,
+0,
+0xE5B5,
+0,
+0,
+0,
+0,
+0,
+0xD0AD,
+0,
+0,
+0,
+0,
+0xF1F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2BD,
+0,
+0,
+0,
+0xE3C8,
+0,
+0,
+0,
+0,
+0xD9D5,
+0,
+0,
+0xDFAA,
+0,
+0,
+0,
+0,
+0xDBBC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8E4,
+0,
+0,
+0,
+0,
+0,
+0xF1FA,
+0,
+0,
+0xE5B6,
+0xF3EF,
+0,
+0,
+0xFBDA,
+0xE1E0,
+0,
+0xD9AC,
+0,
+0xF5EB,
+0,
+0xE0B6,
+0,
+0,
+0xE9C8,
+0,
+0xCBCF,
+0,
+0xE3C9,
+0,
+0,
+0,
+0xDEEE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCEF,
+0,
+0xD6A5,
+0,
+0,
+0,
+0,
+0,
+0xE2F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6FE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9A1,
+0,
+0xD8C0,
+0xDCDB,
+0,
+0,
+0xEDBD,
+0xDFB8,
+0,
+0xEAA5,
+0,
+0,
+0,
+0xD7AD,
+0,
+0,
+0xF3F9,
+0,
+0xEDF8,
+0,
+0xF5C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE1CA,
+0xEBE3,
+0,
+0xF2DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8CC,
+0,
+0xEAD9,
+0,
+0xD3C6,
+0,
+0xDBE6,
+0,
+0,
+0,
+0,
+0,
+0xF5AF,
+0,
+0,
+0,
+0,
+0xCEF0,
+0,
+0,
+0,
+0,
+0xE9FE,
+0,
+0,
+0,
+0,
+0,
+0xFBB6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2F2,
+0,
+0,
+0,
+0,
+0xCFF2,
+0xF7B9,
+0xD9F3,
+0,
+0,
+0xE1CB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDADD,
+0,
+0,
+0xDAB9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBFB,
+0,
+0xCBB9,
+0,
+0,
+0xEDF9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0E0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4C0,
+0,
+0xFDBC,
+0xDFB1,
+0xE3EF,
+0,
+0,
+0,
+0,
+0xE0A3,
+0xFDB9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDCB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDBE,
+0,
+0,
+0,
+0xD5C0,
+0xE3F0,
+0xEDFA,
+0,
+0,
+0,
+0,
+0,
+0xE9E4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5ED,
+0xE7DD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4F6,
+0xE5B7,
+0,
+0,
+0,
+0xDBE7,
+0xE2BF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEECB,
+0,
+0,
+0xD7F4,
+0xF0DD,
+0,
+0,
+0,
+0xCEAB,
+0,
+0,
+0xE7DE,
+0,
+0,
+0,
+0xD6D6,
+0xE1CC,
+0,
+0,
+0xE8B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5EE,
+0xDCA2,
+0,
+0,
+0xE0D0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5B5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBDB,
+0,
+0xF9CB,
+0,
+0,
+0,
+0xCBF3,
+0xF4A5,
+0,
+0,
+0,
+0,
+0,
+0xFAC8,
+0xD6D7,
+0,
+0xE9E5,
+0xFBDC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDD0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBF6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAA5,
+0,
+0xDBBD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECE2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDF7,
+0xF0DE,
+0,
+0,
+0,
+0,
+0xF6C9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEEF,
+0,
+0,
+0,
+0xD3B1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCEE,
+0,
+0,
+0,
+0,
+0xE8C3,
+0,
+0xF1C8,
+0,
+0,
+0,
+0xCEF1,
+0,
+0,
+0,
+0,
+0xF9ED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2F4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4B6,
+0,
+0xF5B9,
+0,
+0xDCF0,
+0xE3F1,
+0,
+0,
+0,
+0,
+0xE8A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2BB,
+0,
+0xDEA4,
+0,
+0xDACC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAE9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3DA,
+0,
+0xFCD9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEADA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9C4,
+0,
+0xE3A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBDD,
+0,
+0xEFCA,
+0,
+0xE8C4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBD7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9AD,
+0,
+0,
+0xFBAB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAF6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0D1,
+0,
+0,
+0xE9A8,
+0,
+0,
+0xF5F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAAF,
+0,
+0xEBFC,
+0,
+0,
+0xE0EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5C5,
+0,
+0,
+0xF1E3,
+0xD5EE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDCC,
+0,
+0,
+0,
+0,
+0xEDD9,
+0,
+0,
+0,
+0,
+0xD8C1,
+0,
+0,
+0,
+0,
+0xFAEC,
+0,
+0,
+0,
+0,
+0,
+0xF1EB,
+0,
+0,
+0,
+0,
+0,
+0xFABC,
+0xE6E2,
+0,
+0,
+0,
+0,
+0xFAE5,
+0xE2FA,
+0,
+0,
+0,
+0xCAB6,
+0,
+0xE4B7,
+0,
+0xEADB,
+0,
+0xF5FA,
+0,
+0,
+0,
+0xFBAC,
+0xCFC3,
+0xEBFD,
+0,
+0,
+0,
+0,
+0xF8FA,
+0,
+0,
+0xDFB9,
+0,
+0,
+0,
+0,
+0xE1F1,
+0,
+0xD2A4,
+0,
+0,
+0,
+0,
+0xF5FB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0DA,
+0xD0DB,
+0,
+0xEABE,
+0xD9B1,
+0,
+0,
+0,
+0,
+0,
+0xCAB7,
+0,
+0,
+0xD3E7,
+0,
+0xF8E5,
+0,
+0,
+0,
+0,
+0xD3B2,
+0,
+0,
+0,
+0xE2C0,
+0xF2DF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDE5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9AC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDCD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEAE,
+0xD6AE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7EA,
+0,
+0,
+0,
+0,
+0xE7E0,
+0xEBAE,
+0,
+0,
+0,
+0xCFD9,
+0,
+0,
+0xDCCD,
+0xEDFB,
+0,
+0xDEF0,
+0,
+0xD7EB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEA5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFD7,
+0xDBD0,
+0xDBD1,
+0,
+0,
+0xD5A3,
+0,
+0,
+0,
+0,
+0xF0B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCDC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAE8,
+0,
+0xF8E6,
+0xDCCE,
+0,
+0,
+0,
+0,
+0xEADC,
+0xDBD2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9B3,
+0,
+0,
+0,
+0,
+0xF7DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3A8,
+0,
+0xD7AE,
+0,
+0,
+0xE0E1,
+0,
+0,
+0,
+0,
+0,
+0xCBBA,
+0,
+0,
+0xE5D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0DC,
+0,
+0,
+0,
+0,
+0xD5C1,
+0,
+0,
+0,
+0,
+0,
+0xD8CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0A4,
+0,
+0xE9A9,
+0,
+0xD3C7,
+0,
+0,
+0xDCDD,
+0xF8AE,
+0,
+0,
+0,
+0xCCB8,
+0,
+0,
+0,
+0xD0AE,
+0,
+0,
+0,
+0xD8F2,
+0,
+0,
+0xE3CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCAF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4AD,
+0xF6D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0CC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAC6,
+0,
+0,
+0xD5C2,
+0,
+0,
+0xCEBA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAC7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAB0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFD8,
+0,
+0,
+0,
+0xF5BA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5EB,
+0,
+0xEFF4,
+0xDDB5,
+0,
+0,
+0,
+0,
+0xCDAA,
+0,
+0xE3F2,
+0,
+0xFBF7,
+0,
+0xF7D0,
+0,
+0,
+0,
+0,
+0xFDBA,
+0,
+0,
+0xFDE1,
+0xF6FE,
+0xD1C0,
+0,
+0,
+0xE8C5,
+0,
+0xE4B8,
+0,
+0xE1E8,
+0,
+0,
+0,
+0xCCC1,
+0,
+0xD2ED,
+0,
+0,
+0,
+0,
+0xDBBE,
+0,
+0,
+0xE0E2,
+0,
+0,
+0,
+0xFAC9,
+0,
+0,
+0xE1CD,
+0,
+0xCAB8,
+0,
+0,
+0,
+0xF2E0,
+0xF1C9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEF1,
+0,
+0,
+0,
+0xF0DF,
+0xF8C4,
+0,
+0,
+0,
+0,
+0,
+0xEECC,
+0,
+0,
+0xDEF2,
+0,
+0xE7C9,
+0,
+0xE2F3,
+0xE7E1,
+0,
+0,
+0xE3CB,
+0,
+0,
+0xE3CC,
+0,
+0,
+0,
+0xCFF8,
+0xEFAC,
+0,
+0xFDFE,
+0xFCA5,
+0xFAB1,
+0xDFD9,
+0,
+0xE0D2,
+0,
+0,
+0,
+0xF4DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1CA,
+0,
+0xCEA3,
+0,
+0,
+0,
+0,
+0xF2BC,
+0xECE3,
+0,
+0,
+0,
+0,
+0,
+0xE0A5,
+0,
+0xF7AB,
+0,
+0,
+0xEBAF,
+0,
+0,
+0,
+0,
+0,
+0xE5DE,
+0,
+0xE1A4,
+0xCDAB,
+0,
+0xD9F4,
+0xE8A6,
+0xCDCE,
+0xE1E9,
+0,
+0xFCEF,
+0,
+0xE0E3,
+0,
+0,
+0,
+0,
+0,
+0xE2C1,
+0,
+0xCEA4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEA6,
+0,
+0,
+0xEBFE,
+0,
+0xEBDD,
+0xF0E0,
+0,
+0,
+0xF4DB,
+0,
+0xE2F4,
+0,
+0,
+0xD3C8,
+0,
+0,
+0,
+0xF4EB,
+0,
+0xEEB5,
+0,
+0xF5D8,
+0,
+0,
+0xD5DF,
+0,
+0,
+0,
+0xD6E5,
+0,
+0,
+0,
+0,
+0xEBB0,
+0xF4E3,
+0,
+0,
+0,
+0,
+0xE3CD,
+0,
+0,
+0,
+0,
+0xF4F4,
+0xFAB2,
+0,
+0,
+0xEFF5,
+0xCADF,
+0,
+0xEBB1,
+0xEDBF,
+0,
+0,
+0xFDC9,
+0,
+0,
+0,
+0,
+0xE4A6,
+0xF9A4,
+0xF0B3,
+0,
+0xE5EC,
+0,
+0,
+0,
+0xD1E7,
+0,
+0xD9C7,
+0xE4D7,
+0xEADD,
+0,
+0xD4F7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDABA,
+0,
+0xDACD,
+0,
+0,
+0,
+0xF9CC,
+0,
+0xE1DA,
+0xDBBF,
+0,
+0xCCC5,
+0xECD0,
+0xCBBB,
+0,
+0xDEF3,
+0,
+0,
+0xE9AA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9C8,
+0,
+0,
+0xEEE3,
+0xD7BD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFC4,
+0,
+0,
+0,
+0,
+0,
+0xD0CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCA6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1FB,
+0,
+0,
+0,
+0,
+0xFDD2,
+0xD1C1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3DB,
+0,
+0xD3C9,
+0,
+0xDCCF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCED,
+0,
+0,
+0,
+0,
+0,
+0xDEA7,
+0,
+0,
+0xE6BB,
+0xECA1,
+0,
+0,
+0,
+0xCCB9,
+0,
+0,
+0xFBDE,
+0,
+0,
+0,
+0,
+0,
+0xE7E2,
+0,
+0,
+0xD4C1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCA8,
+0,
+0,
+0,
+0,
+0,
+0xE2C2,
+0,
+0xF3D8,
+0xE5D3,
+0,
+0,
+0xF3D9,
+0,
+0,
+0,
+0xF3C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDDB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDAC,
+0,
+0xFCC3,
+0,
+0,
+0,
+0,
+0xD4E7,
+0,
+0xD1C2,
+0,
+0xF9A5,
+0,
+0xE8D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3CE,
+0,
+0,
+0,
+0,
+0xD4CA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFDA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBDF,
+0xE7E3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8FB,
+0xE3CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5B0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8E7,
+0,
+0xD9C9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8AF,
+0xEFF6,
+0,
+0xDDB6,
+0xEEAF,
+0xCDF8,
+0,
+0,
+0,
+0,
+0xDEB8,
+0xFCA7,
+0xF7FC,
+0xF7B1,
+0xCEBB,
+0xF4A1,
+0,
+0,
+0xEECD,
+0xE1AE,
+0,
+0,
+0xECC3,
+0xCFFE,
+0,
+0xF8BF,
+0xD8E2,
+0xD3E8,
+0,
+0,
+0xDEA8,
+0xF4E4,
+0xECC2,
+0,
+0xD9F5,
+0xF9C5,
+0xDDD3,
+0xD6F1,
+0xECFC,
+0xFCF0,
+0,
+0,
+0xEDC0,
+0xCAB9,
+0,
+0xEEE4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2E1,
+0,
+0xDEB9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6F2,
+0,
+0xDEF4,
+0,
+0xDFDB,
+0,
+0xDBD3,
+0,
+0xFAE7,
+0xD8E3,
+0xF4C1,
+0,
+0xDDB7,
+0,
+0,
+0,
+0xF2F5,
+0,
+0,
+0xD4AE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDB8,
+0xCFC5,
+0xDFDF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2BE,
+0xF6A1,
+0,
+0xEBCB,
+0xF1FC,
+0,
+0xF3C7,
+0,
+0,
+0xE0EB,
+0,
+0,
+0,
+0,
+0,
+0xEDFC,
+0,
+0,
+0xE1DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEE5,
+0,
+0xDEF5,
+0,
+0,
+0,
+0,
+0xFAD3,
+0,
+0,
+0,
+0,
+0xF1CB,
+0,
+0,
+0xD0AF,
+0xDDB9,
+0,
+0,
+0xD1C3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5B1,
+0,
+0,
+0,
+0,
+0xEAC6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0E1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6AC,
+0,
+0,
+0,
+0,
+0xF5D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0EB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDBA,
+0,
+0,
+0,
+0xF2BF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7C5,
+0,
+0,
+0,
+0,
+0xDBA2,
+0xF2F6,
+0,
+0,
+0xCABA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF7F5,
+0,
+0xCBE5,
+0,
+0,
+0,
+0xEEE6,
+0,
+0xE0D3,
+0,
+0,
+0,
+0,
+0xCEA5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6D8,
+0,
+0,
+0,
+0xD4AF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9C9,
+0,
+0,
+0,
+0,
+0xD3CE,
+0xF4C2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBE6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1A1,
+0,
+0,
+0,
+0,
+0,
+0xEBB2,
+0,
+0,
+0,
+0,
+0xF1A2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBB3,
+0,
+0xF0B4,
+0,
+0,
+0xCBF4,
+0xD4B0,
+0xF3B2,
+0xFBB7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5EC,
+0,
+0,
+0,
+0,
+0,
+0xEEE7,
+0xF4B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5ED,
+0,
+0xCFF3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0E2,
+0,
+0,
+0,
+0,
+0,
+0xEECE,
+0,
+0,
+0xF1CC,
+0,
+0,
+0xE5B8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7F5,
+0xE3F3,
+0xCFE5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFC6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3B3,
+0xE4D8,
+0xCFF9,
+0xCFDA,
+0,
+0,
+0,
+0,
+0xFACD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6E3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF2E2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5EE,
+0,
+0,
+0xCABB,
+0,
+0,
+0xE3DC,
+0,
+0,
+0,
+0,
+0xCEF2,
+0,
+0xD6D9,
+0,
+0,
+0,
+0xEEB0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4E5,
+0xD8C2,
+0xDCD0,
+0xCCEE,
+0,
+0,
+0,
+0,
+0,
+0xD5E0,
+0xF6CA,
+0xFDCA,
+0xD8D6,
+0xF4CF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6A6,
+0xDCBE,
+0,
+0xDBD4,
+0xD7C7,
+0,
+0,
+0,
+0,
+0xF2FE,
+0,
+0,
+0,
+0xF1CD,
+0,
+0,
+0,
+0,
+0xE2C3,
+0xDCDE,
+0,
+0xDCDF,
+0,
+0,
+0xEFAD,
+0xE6AB,
+0,
+0,
+0,
+0,
+0xF9DD,
+0xEABF,
+0,
+0,
+0,
+0xEFAE,
+0,
+0,
+0,
+0xF4D0,
+0xCEF3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE6AC,
+0,
+0xCEDE,
+0,
+0,
+0xD5F9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE3F4,
+0xCDD0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5B8,
+0,
+0,
+0xF7FD,
+0,
+0xDCA9,
+0,
+0,
+0,
+0,
+0xDEF6,
+0,
+0xDCAA,
+0xF2E3,
+0xE9B4,
+0xD2DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9E6,
+0,
+0,
+0xE3F6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7CA,
+0,
+0,
+0xD0CE,
+0,
+0,
+0xDAF7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCABC,
+0,
+0,
+0,
+0xEEE8,
+0xDADE,
+0,
+0xF2F7,
+0,
+0,
+0xE2FB,
+0,
+0xCCA6,
+0,
+0,
+0,
+0,
+0xDABB,
+0,
+0xEEE9,
+0,
+0,
+0,
+0xF5DA,
+0,
+0,
+0xF7DC,
+0xE1EA,
+0xCEC1,
+0xD4B1,
+0,
+0xFDB1,
+0xE6BD,
+0,
+0xFBAD,
+0,
+0,
+0xF8E7,
+0,
+0xE1CE,
+0,
+0xF7E2,
+0xF5EF,
+0xCFC7,
+0,
+0,
+0xD4B2,
+0xCCEF,
+0,
+0xD4E8,
+0,
+0xEECF,
+0xF7D7,
+0,
+0,
+0xE0A6,
+0xD6C1,
+0xE1DC,
+0xF0E3,
+0xF1E4,
+0xDCF1,
+0xD6A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4F5,
+0,
+0,
+0xF1CE,
+0xF2E4,
+0,
+0,
+0xD0B0,
+0,
+0,
+0xECEF,
+0,
+0,
+0,
+0xF9BA,
+0,
+0xEBB5,
+0,
+0,
+0xD4ED,
+0xE2C4,
+0,
+0,
+0,
+0,
+0xE9E7,
+0,
+0,
+0xEBB4,
+0xEAA1,
+0,
+0xF8BC,
+0xCEA6,
+0,
+0xF9C6,
+0xFCDA,
+0,
+0xD4B3,
+0xD3B9,
+0xEADE,
+0,
+0,
+0,
+0xE9AB,
+0,
+0,
+0xE1E1,
+0xD3CF,
+0xF4F6,
+0,
+0xEAC0,
+0xE1CF,
+0,
+0xCCBA,
+0,
+0,
+0,
+0,
+0,
+0xEEEA,
+0,
+0,
+0,
+0xF0E4,
+0xF3B4,
+0xD4EE,
+0,
+0,
+0xF2C0,
+0,
+0,
+0xF1E5,
+0,
+0xF4C3,
+0xE0D4,
+0,
+0xEBB6,
+0,
+0xD7A1,
+0xCBE8,
+0,
+0xF9AD,
+0xE9AD,
+0xD8E4,
+0xFAB3,
+0xE2C5,
+0xFCBD,
+0,
+0,
+0xECC4,
+0xD8B1,
+0,
+0xDCAB,
+0,
+0,
+0,
+0,
+0xD5A4,
+0,
+0xEBE9,
+0,
+0,
+0,
+0xE8BB,
+0,
+0,
+0,
+0xD8D7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBAE,
+0xD1E1,
+0,
+0,
+0xDBC0,
+0,
+0xF5BE,
+0,
+0xDEF7,
+0,
+0,
+0,
+0,
+0xCAFB,
+0xF7C6,
+0xCFC8,
+0,
+0,
+0,
+0xE1D0,
+0,
+0,
+0xEED0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9F4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEF4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD5CD,
+0,
+0,
+0xCFDB,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDBB,
+0,
+0,
+0,
+0,
+0xCEAC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9E8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4B4,
+0,
+0,
+0,
+0,
+0xE4C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5DB,
+0,
+0,
+0xFAC1,
+0,
+0,
+0,
+0xDEA9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4F8,
+0,
+0,
+0,
+0,
+0,
+0xEFF7,
+0,
+0,
+0,
+0,
+0xD3B3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBB7,
+0xEFF8,
+0xF5DC,
+0xEDCC,
+0xDBD5,
+0xF1CF,
+0,
+0,
+0,
+0xF1D0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5B2,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9AE,
+0xD5AC,
+0,
+0xE2C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDA3,
+0,
+0xFBE5,
+0xDFAB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2F5,
+0,
+0xF6AD,
+0,
+0xF5B3,
+0,
+0xF0B5,
+0,
+0,
+0,
+0,
+0xE1A5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5DD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xECA2,
+0xEDFD,
+0,
+0xF5B4,
+0xFBB8,
+0,
+0xDBA3,
+0,
+0,
+0xD6CA,
+0xCBD9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5D4,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3FA,
+0,
+0xEBB8,
+0,
+0xE0B7,
+0xD7EC,
+0xF1EC,
+0xE5AF,
+0xD5E1,
+0xD7ED,
+0xD1D1,
+0,
+0,
+0,
+0,
+0,
+0xE1F2,
+0xEFF9,
+0,
+0,
+0,
+0xDDBC,
+0xF6DC,
+0,
+0,
+0,
+0,
+0,
+0xF0E5,
+0,
+0,
+0,
+0xF4C4,
+0,
+0,
+0xE9E9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3FB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4EF,
+0,
+0,
+0xCCA2,
+0xF7FE,
+0xDFBC,
+0,
+0,
+0,
+0,
+0xEBCD,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0B7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6C2,
+0,
+0,
+0,
+0,
+0,
+0xE8AD,
+0,
+0,
+0,
+0,
+0xEFAF,
+0xCBA5,
+0,
+0,
+0,
+0,
+0xCBE9,
+0,
+0,
+0,
+0xFAE8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCC6,
+0,
+0,
+0,
+0xE6E7,
+0,
+0,
+0xEAC7,
+0,
+0,
+0,
+0xDBA4,
+0,
+0xCFC9,
+0xE2FC,
+0xEFFA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBDE,
+0,
+0,
+0xF5C8,
+0,
+0xD4DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0D5,
+0,
+0xEFB0,
+0,
+0,
+0xE2C7,
+0,
+0xD9AF,
+0,
+0,
+0,
+0xF9E7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7E5,
+0,
+0,
+0xCFCA,
+0xE1D1,
+0,
+0xE2C8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFFB,
+0,
+0,
+0xFAF9,
+0,
+0,
+0xDCF2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0A7,
+0,
+0,
+0,
+0,
+0,
+0xF8E8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBEA,
+0,
+0,
+0,
+0xCBBC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6E2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5DE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5DF,
+0,
+0xEEB6,
+0,
+0,
+0,
+0xE2F6,
+0xD3CA,
+0xEFFC,
+0xD1C4,
+0xEFB1,
+0,
+0xD1C5,
+0,
+0xD0DE,
+0,
+0xD9E1,
+0,
+0,
+0xE0B8,
+0,
+0,
+0xCDD1,
+0xF3B9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7CC,
+0,
+0xD6A8,
+0xCEA7,
+0,
+0xD4B5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4C8,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3B4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBB9,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBF5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6DD,
+0,
+0xF1A3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCC7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9CA,
+0,
+0xE1F0,
+0,
+0,
+0,
+0xF5E0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBAF,
+0,
+0,
+0,
+0xCBD1,
+0,
+0,
+0,
+0,
+0xFBE0,
+0xF2E5,
+0,
+0,
+0xECF0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0EC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEEEB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9CB,
+0,
+0,
+0xCCF0,
+0,
+0,
+0xD7AF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCF5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1A4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0D6,
+0,
+0,
+0,
+0,
+0,
+0xEFB2,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4D1,
+0,
+0,
+0xF7A1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAFC,
+0xCAFD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCECE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF3C8,
+0,
+0xF3BA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEDFE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAA6,
+0,
+0,
+0xE0EC,
+0,
+0,
+0,
+0,
+0,
+0xF8CD,
+0,
+0xCBD2,
+0,
+0,
+0,
+0xEBCE,
+0,
+0xF9D8,
+0xF9D9,
+0xCAE0,
+0xDACA,
+0,
+0,
+0,
+0xCBA6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAC8,
+0xF9EE,
+0xDBEC,
+0,
+0,
+0xD0B1,
+0,
+0,
+0,
+0,
+0xD5EF,
+0,
+0,
+0,
+0xE6F3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7A2,
+0xE4D9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4E1,
+0,
+0,
+0xFCC4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9EF,
+0xCFF4,
+0xF7E6,
+0,
+0,
+0,
+0,
+0,
+0xCEBC,
+0,
+0,
+0,
+0,
+0xF4C5,
+0xDCA3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDBD,
+0,
+0,
+0,
+0,
+0xF4C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8A1,
+0,
+0,
+0,
+0xE8D6,
+0,
+0,
+0,
+0xDBC1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0E6,
+0,
+0,
+0,
+0xE4B9,
+0xF6ED,
+0,
+0xF9AE,
+0,
+0xDDBE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7B0,
+0xD8E8,
+0xCBBD,
+0,
+0,
+0xF9DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8CE,
+0xF9F0,
+0xE0ED,
+0xE3B3,
+0xF4B3,
+0,
+0,
+0xEAC2,
+0xF2E6,
+0xF0B6,
+0,
+0,
+0,
+0,
+0,
+0xDBD6,
+0,
+0,
+0,
+0,
+0,
+0xEBE4,
+0,
+0,
+0xF2E7,
+0,
+0xD7D5,
+0xD4B6,
+0xF9E8,
+0xD7C1,
+0,
+0,
+0,
+0,
+0xE5D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE9EA,
+0xD7CC,
+0,
+0,
+0,
+0xD3E9,
+0xE2C9,
+0,
+0xFCDB,
+0xCDAD,
+0,
+0,
+0,
+0,
+0,
+0xCCB0,
+0xEAA2,
+0,
+0,
+0xE4F6,
+0xD0C0,
+0,
+0xF0B7,
+0xEEA1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7F6,
+0,
+0,
+0,
+0xE2CA,
+0xE2CB,
+0,
+0xFACF,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBDF,
+0,
+0,
+0,
+0,
+0,
+0xD6CB,
+0,
+0,
+0,
+0xF4B4,
+0,
+0,
+0,
+0,
+0xEDCD,
+0xE4D2,
+0,
+0,
+0xEAA9,
+0xE4BA,
+0xF3A2,
+0xCDD2,
+0,
+0xF6CB,
+0,
+0xF1E6,
+0xEDC1,
+0xE8BC,
+0xEED1,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0E7,
+0xE2CC,
+0,
+0,
+0xE4AA,
+0,
+0xF5E1,
+0xEDDA,
+0,
+0,
+0,
+0,
+0,
+0xD7EE,
+0xD1F1,
+0,
+0,
+0,
+0,
+0xE9EB,
+0xE9EC,
+0xE0E4,
+0,
+0,
+0,
+0,
+0xDAA7,
+0xDDD4,
+0,
+0xEAA3,
+0,
+0,
+0,
+0xD6C3,
+0xD6F4,
+0,
+0xDADF,
+0,
+0xEFB3,
+0,
+0,
+0,
+0,
+0xE2CD,
+0,
+0,
+0,
+0,
+0,
+0xEFFD,
+0xF2E8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFC5,
+0,
+0xE7E7,
+0,
+0,
+0xD7FD,
+0,
+0,
+0xE7CE,
+0,
+0,
+0xDFDC,
+0,
+0xF9C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9F6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFAC,
+0,
+0xD6DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCA4,
+0,
+0,
+0,
+0xF0B8,
+0,
+0,
+0,
+0,
+0xD5FA,
+0,
+0xE4F7,
+0,
+0,
+0,
+0xD6C4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4EC,
+0,
+0,
+0,
+0,
+0xEFFE,
+0,
+0,
+0,
+0,
+0,
+0xF0A1,
+0,
+0xDEAA,
+0,
+0,
+0xDABC,
+0xD8FC,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAD4,
+0,
+0,
+0,
+0xECE5,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCA8,
+0,
+0,
+0xECE6,
+0,
+0,
+0xD8CB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBB9,
+0,
+0xE4D3,
+0,
+0xCDF9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFD3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCAEA,
+0,
+0,
+0xCFD4,
+0,
+0xF8BD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4C7,
+0,
+0,
+0,
+0,
+0xEADF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4B7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEBE5,
+0,
+0,
+0xE1D2,
+0,
+0,
+0,
+0,
+0xEAA4,
+0,
+0,
+0,
+0xFAC2,
+0xFBE1,
+0xFAED,
+0xF0A2,
+0xCCF1,
+0,
+0xFAA3,
+0xE2F7,
+0,
+0xE2CE,
+0,
+0xE9F5,
+0,
+0xE1EB,
+0,
+0,
+0,
+0xE7E8,
+0xE8D7,
+0xDAF8,
+0xD4CB,
+0,
+0,
+0,
+0xF7F6,
+0xD6C5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD4E9,
+0,
+0,
+0xFAFA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCF2,
+0xF7DD,
+0,
+0xDEBA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEA8,
+0,
+0,
+0,
+0,
+0,
+0xF0B9,
+0xE4FE,
+0xE4C9,
+0,
+0,
+0,
+0,
+0,
+0xE4D4,
+0,
+0,
+0,
+0xEAC3,
+0,
+0xEFB4,
+0,
+0,
+0,
+0xD7BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBE2,
+0,
+0xCDD3,
+0,
+0,
+0,
+0xEFB5,
+0,
+0,
+0,
+0xFAE9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF9A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDFBD,
+0,
+0xF7C7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8FD,
+0,
+0,
+0xF8FC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEAB,
+0xDBE8,
+0,
+0,
+0xE3DD,
+0,
+0xE1E2,
+0xD1C6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6D0,
+0xEBE6,
+0xDAF9,
+0,
+0,
+0,
+0,
+0xECC7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEF8,
+0xF8E9,
+0xE3DE,
+0,
+0,
+0,
+0,
+0xCEF5,
+0,
+0,
+0,
+0,
+0,
+0xFAC3,
+0xE5D7,
+0,
+0xECC8,
+0,
+0,
+0,
+0xF3C9,
+0,
+0,
+0xE4BB,
+0,
+0,
+0,
+0,
+0xE6AE,
+0,
+0,
+0,
+0,
+0,
+0xEFB6,
+0,
+0xDCBF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEBD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8C3,
+0,
+0,
+0,
+0xD0CF,
+0,
+0xCFFA,
+0xF3CA,
+0xE0D7,
+0,
+0,
+0,
+0xD1C7,
+0xE9AE,
+0,
+0xE8BD,
+0,
+0,
+0xFAC4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2CF,
+0,
+0,
+0xFAC5,
+0,
+0,
+0,
+0xF9B8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCE0,
+0,
+0,
+0xFBB0,
+0,
+0,
+0,
+0xD8A9,
+0xE5DF,
+0xF9A7,
+0,
+0,
+0xF6EE,
+0,
+0xF6CC,
+0xE2F8,
+0,
+0,
+0,
+0,
+0xECF1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDAE0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1D2,
+0xD2CC,
+0xCFCB,
+0,
+0,
+0xCABD,
+0,
+0,
+0,
+0xDDBF,
+0,
+0,
+0,
+0xF6EF,
+0,
+0xDEF9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAB4,
+0,
+0,
+0,
+0xD5AD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF1E7,
+0,
+0xDEBE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCC0,
+0,
+0,
+0,
+0,
+0,
+0xD1C8,
+0xD1C9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF8BE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBF6,
+0,
+0,
+0,
+0,
+0xD4F9,
+0,
+0,
+0,
+0,
+0,
+0xF5E2,
+0xE1D3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8E9,
+0,
+0,
+0xF8FE,
+0,
+0xCFCC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFDA4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEF6,
+0,
+0xFAD0,
+0,
+0,
+0xCCF3,
+0xE6BE,
+0,
+0,
+0,
+0xF6AE,
+0,
+0,
+0xD5F0,
+0,
+0,
+0xD1CA,
+0,
+0,
+0,
+0xFCBE,
+0xD5F1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDE9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFAB5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2D0,
+0xF4F7,
+0,
+0,
+0,
+0xCDD4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE7A3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDBA5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE2D1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7A2,
+0,
+0,
+0xF7E3,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAA6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD0A1,
+0,
+0,
+0,
+0,
+0xCEDA,
+0xFBEB,
+0xDBA6,
+0xDBDE,
+0xD8E5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAE0,
+0,
+0,
+0,
+0,
+0xD8AA,
+0,
+0,
+0,
+0,
+0,
+0xE5E0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6DB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEFC6,
+0,
+0,
+0xF8EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4D5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCEF7,
+0,
+0,
+0xE0D8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7EF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF4ED,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDE6,
+0,
+0,
+0,
+0xCCF4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF5E3,
+0,
+0,
+0xE4CA,
+0,
+0xDCE1,
+0,
+0,
+0xF9C8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFCBF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8A7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD8C4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBBE,
+0,
+0xDCAE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7F7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0E8,
+0,
+0xDDC0,
+0,
+0xCFCD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDCF3,
+0xD9B0,
+0,
+0xE6E9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4BC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEAC4,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4EC,
+0,
+0xE4E5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xFBF8,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCCBB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4BD,
+0,
+0,
+0xCDDC,
+0xD9F7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDDDF,
+0,
+0,
+0,
+0,
+0,
+0xEDCE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD9D0,
+0,
+0,
+0,
+0,
+0,
+0xE5A3,
+0,
+0,
+0,
+0,
+0xF9CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCDAE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFCE,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF6AF,
+0,
+0,
+0,
+0,
+0,
+0xFDD3,
+0xEBED,
+0xD6DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE5A4,
+0,
+0,
+0,
+0xD5B6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD6DD,
+0,
+0,
+0,
+0xF9E9,
+0,
+0,
+0,
+0xE7A4,
+0,
+0xD6E3,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD1CB,
+0xD6E4,
+0,
+0,
+0,
+0xD5F2,
+0,
+0,
+0,
+0,
+0,
+0xDEFA,
+0,
+0xD7F8,
+0,
+0,
+0,
+0,
+0,
+0xD8EA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFD5,
+0xD8FD,
+0,
+0,
+0,
+0,
+0,
+0xD8AB,
+0,
+0,
+0xFDCB,
+0,
+0,
+0,
+0,
+0xFCDC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0A8,
+0xD5F3,
+0,
+0,
+0xFDD9,
+0,
+0,
+0xCCA3,
+0,
+0,
+0,
+0xD9F9,
+0,
+0,
+0xD3EA,
+0xF5F5,
+0,
+0xEFC7,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD3DA,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDABD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE8A8,
+0xDCAF,
+0,
+0,
+0,
+0,
+0,
+0xF0A3,
+0,
+0,
+0,
+0,
+0xCDD5,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE0A9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xDEAC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xF0BA,
+0xEEB1,
+0,
+0,
+0xEEB2,
+0,
+0,
+0,
+0xF6CD,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xEED2,
+0,
+0xD6C6,
+0,
+0,
+0,
+0,
+0,
+0xE0E5,
+0,
+0,
+0xF3BB,
+0,
+0xE5E1,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xE4CB,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xD7A3,
+0,
+0,
+0xDBC2,
+0,
+0,
+0,
+0,
+0xCAFE,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCFCF,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xB0A1,
+0xB0A2,
+0x8141,
+0x8142,
+0xB0A3,
+0x8143,
+0x8144,
+0xB0A4,
+0xB0A5,
+0xB0A6,
+0xB0A7,
+0x8145,
+0x8146,
+0x8147,
+0x8148,
+0x8149,
+0xB0A8,
+0xB0A9,
+0xB0AA,
+0xB0AB,
+0xB0AC,
+0xB0AD,
+0xB0AE,
+0xB0AF,
+0x814A,
+0xB0B0,
+0xB0B1,
+0xB0B2,
+0xB0B3,
+0xB0B4,
+0x814B,
+0x814C,
+0xB0B5,
+0x814D,
+0x814E,
+0x814F,
+0xB0B6,
+0x8150,
+0x8151,
+0x8152,
+0x8153,
+0x8154,
+0x8155,
+0x8156,
+0xB0B7,
+0xB0B8,
+0x8157,
+0xB0B9,
+0xB0BA,
+0xB0BB,
+0x8158,
+0x8159,
+0x815A,
+0x8161,
+0x8162,
+0x8163,
+0xB0BC,
+0xB0BD,
+0x8164,
+0x8165,
+0xB0BE,
+0x8166,
+0x8167,
+0x8168,
+0xB0BF,
+0x8169,
+0x816A,
+0x816B,
+0x816C,
+0x816D,
+0x816E,
+0x816F,
+0x8170,
+0x8171,
+0x8172,
+0xB0C0,
+0x8173,
+0xB0C1,
+0x8174,
+0x8175,
+0x8176,
+0x8177,
+0x8178,
+0x8179,
+0xB0C2,
+0x817A,
+0x8181,
+0x8182,
+0xB0C3,
+0x8183,
+0x8184,
+0x8185,
+0xB0C4,
+0x8186,
+0x8187,
+0x8188,
+0x8189,
+0x818A,
+0x818B,
+0x818C,
+0x818D,
+0x818E,
+0x818F,
+0x8190,
+0x8191,
+0x8192,
+0x8193,
+0x8194,
+0x8195,
+0x8196,
+0x8197,
+0x8198,
+0xB0C5,
+0xB0C6,
+0x8199,
+0x819A,
+0xB0C7,
+0x819B,
+0x819C,
+0xB0C8,
+0xB0C9,
+0x819D,
+0xB0CA,
+0x819E,
+0x819F,
+0x81A0,
+0x81A1,
+0x81A2,
+0xB0CB,
+0xB0CC,
+0x81A3,
+0xB0CD,
+0xB0CE,
+0xB0CF,
+0xB0D0,
+0x81A4,
+0x81A5,
+0xB0D1,
+0xB0D2,
+0xB0D3,
+0xB0D4,
+0x81A6,
+0x81A7,
+0x81A8,
+0xB0D5,
+0x81A9,
+0x81AA,
+0x81AB,
+0xB0D6,
+0x81AC,
+0x81AD,
+0x81AE,
+0x81AF,
+0x81B0,
+0x81B1,
+0x81B2,
+0xB0D7,
+0xB0D8,
+0x81B3,
+0xB0D9,
+0xB0DA,
+0xB0DB,
+0x81B4,
+0x81B5,
+0x81B6,
+0x81B7,
+0x81B8,
+0x81B9,
+0xB0DC,
+0xB0DD,
+0xB0DE,
+0x81BA,
+0xB0DF,
+0x81BB,
+0x81BC,
+0xB0E0,
+0xB0E1,
+0x81BD,
+0x81BE,
+0x81BF,
+0x81C0,
+0x81C1,
+0x81C2,
+0x81C3,
+0xB0E2,
+0xB0E3,
+0x81C4,
+0xB0E4,
+0xB0E5,
+0xB0E6,
+0x81C5,
+0x81C6,
+0x81C7,
+0xB0E7,
+0x81C8,
+0x81C9,
+0xB0E8,
+0x81CA,
+0x81CB,
+0x81CC,
+0xB0E9,
+0x81CD,
+0x81CE,
+0x81CF,
+0xB0EA,
+0x81D0,
+0x81D1,
+0x81D2,
+0x81D3,
+0x81D4,
+0x81D5,
+0x81D6,
+0x81D7,
+0xB0EB,
+0x81D8,
+0xB0EC,
+0x81D9,
+0x81DA,
+0x81DB,
+0x81DC,
+0x81DD,
+0x81DE,
+0x81DF,
+0x81E0,
+0xB0ED,
+0xB0EE,
+0x81E1,
+0x81E2,
+0xB0EF,
+0x81E3,
+0x81E4,
+0xB0F0,
+0xB0F1,
+0x81E5,
+0xB0F2,
+0x81E6,
+0xB0F3,
+0x81E7,
+0x81E8,
+0xB0F4,
+0xB0F5,
+0xB0F6,
+0x81E9,
+0xB0F7,
+0x81EA,
+0xB0F8,
+0xB0F9,
+0x81EB,
+0x81EC,
+0x81ED,
+0x81EE,
+0x81EF,
+0xB0FA,
+0xB0FB,
+0x81F0,
+0x81F1,
+0xB0FC,
+0x81F2,
+0x81F3,
+0x81F4,
+0xB0FD,
+0x81F5,
+0xB0FE,
+0x81F6,
+0x81F7,
+0x81F8,
+0x81F9,
+0x81FA,
+0xB1A1,
+0xB1A2,
+0x81FB,
+0xB1A3,
+0x81FC,
+0xB1A4,
+0x81FD,
+0x81FE,
+0x8241,
+0x8242,
+0x8243,
+0x8244,
+0xB1A5,
+0x8245,
+0x8246,
+0x8247,
+0xB1A6,
+0x8248,
+0x8249,
+0x824A,
+0xB1A7,
+0x824B,
+0x824C,
+0x824D,
+0x824E,
+0x824F,
+0x8250,
+0x8251,
+0x8252,
+0xB1A8,
+0x8253,
+0x8254,
+0xB1A9,
+0xB1AA,
+0x8255,
+0x8256,
+0x8257,
+0x8258,
+0x8259,
+0x825A,
+0xB1AB,
+0xB1AC,
+0x8261,
+0x8262,
+0xB1AD,
+0x8263,
+0x8264,
+0x8265,
+0xB1AE,
+0x8266,
+0x8267,
+0x8268,
+0x8269,
+0x826A,
+0x826B,
+0x826C,
+0xB1AF,
+0xB1B0,
+0x826D,
+0xB1B1,
+0x826E,
+0xB1B2,
+0x826F,
+0x8270,
+0x8271,
+0x8272,
+0x8273,
+0x8274,
+0xB1B3,
+0x8275,
+0x8276,
+0x8277,
+0xB1B4,
+0x8278,
+0x8279,
+0x827A,
+0xB1B5,
+0x8281,
+0x8282,
+0x8283,
+0x8284,
+0x8285,
+0x8286,
+0x8287,
+0x8288,
+0xB1B6,
+0x8289,
+0xB1B7,
+0x828A,
+0x828B,
+0x828C,
+0x828D,
+0x828E,
+0x828F,
+0x8290,
+0x8291,
+0xB1B8,
+0xB1B9,
+0x8292,
+0x8293,
+0xB1BA,
+0x8294,
+0x8295,
+0xB1BB,
+0xB1BC,
+0xB1BD,
+0xB1BE,
+0x8296,
+0x8297,
+0x8298,
+0x8299,
+0xB1BF,
+0xB1C0,
+0xB1C1,
+0x829A,
+0xB1C2,
+0x829B,
+0xB1C3,
+0xB1C4,
+0x829C,
+0x829D,
+0x829E,
+0x829F,
+0x82A0,
+0xB1C5,
+0xB1C6,
+0x82A1,
+0x82A2,
+0xB1C7,
+0x82A3,
+0x82A4,
+0x82A5,
+0xB1C8,
+0x82A6,
+0x82A7,
+0x82A8,
+0x82A9,
+0x82AA,
+0x82AB,
+0x82AC,
+0x82AD,
+0x82AE,
+0x82AF,
+0x82B0,
+0xB1C9,
+0xB1CA,
+0x82B1,
+0x82B2,
+0x82B3,
+0x82B4,
+0x82B5,
+0x82B6,
+0xB1CB,
+0x82B7,
+0x82B8,
+0x82B9,
+0x82BA,
+0x82BB,
+0x82BC,
+0x82BD,
+0x82BE,
+0x82BF,
+0x82C0,
+0x82C1,
+0x82C2,
+0x82C3,
+0x82C4,
+0x82C5,
+0x82C6,
+0x82C7,
+0x82C8,
+0xB1CC,
+0x82C9,
+0x82CA,
+0x82CB,
+0x82CC,
+0x82CD,
+0x82CE,
+0x82CF,
+0x82D0,
+0xB1CD,
+0xB1CE,
+0x82D1,
+0x82D2,
+0xB1CF,
+0x82D3,
+0x82D4,
+0x82D5,
+0xB1D0,
+0x82D6,
+0x82D7,
+0x82D8,
+0x82D9,
+0x82DA,
+0x82DB,
+0x82DC,
+0xB1D1,
+0xB1D2,
+0x82DD,
+0xB1D3,
+0x82DE,
+0x82DF,
+0x82E0,
+0x82E1,
+0x82E2,
+0x82E3,
+0x82E4,
+0x82E5,
+0xB1D4,
+0x82E6,
+0x82E7,
+0x82E8,
+0xB1D5,
+0x82E9,
+0x82EA,
+0x82EB,
+0xB1D6,
+0x82EC,
+0x82ED,
+0x82EE,
+0x82EF,
+0x82F0,
+0x82F1,
+0x82F2,
+0x82F3,
+0x82F4,
+0x82F5,
+0x82F6,
+0x82F7,
+0x82F8,
+0x82F9,
+0x82FA,
+0x82FB,
+0x82FC,
+0x82FD,
+0x82FE,
+0xB1D7,
+0xB1D8,
+0x8341,
+0x8342,
+0xB1D9,
+0x8343,
+0x8344,
+0xB1DA,
+0xB1DB,
+0xB1DC,
+0x8345,
+0x8346,
+0x8347,
+0x8348,
+0x8349,
+0x834A,
+0xB1DD,
+0xB1DE,
+0x834B,
+0xB1DF,
+0x834C,
+0xB1E0,
+0x834D,
+0x834E,
+0x834F,
+0x8350,
+0x8351,
+0x8352,
+0xB1E1,
+0x8353,
+0x8354,
+0x8355,
+0x8356,
+0x8357,
+0x8358,
+0x8359,
+0x835A,
+0x8361,
+0x8362,
+0x8363,
+0x8364,
+0x8365,
+0x8366,
+0x8367,
+0x8368,
+0x8369,
+0x836A,
+0x836B,
+0x836C,
+0x836D,
+0x836E,
+0x836F,
+0x8370,
+0x8371,
+0x8372,
+0x8373,
+0xB1E2,
+0xB1E3,
+0x8374,
+0x8375,
+0xB1E4,
+0x8376,
+0x8377,
+0xB1E5,
+0xB1E6,
+0x8378,
+0xB1E7,
+0x8379,
+0x837A,
+0x8381,
+0x8382,
+0x8383,
+0xB1E8,
+0xB1E9,
+0x8384,
+0xB1EA,
+0x8385,
+0xB1EB,
+0xB1EC,
+0x8386,
+0x8387,
+0x8388,
+0xB1ED,
+0x8389,
+0xB1EE,
+0xB1EF,
+0xB1F0,
+0x838A,
+0xB1F1,
+0x838B,
+0x838C,
+0x838D,
+0xB1F2,
+0x838E,
+0xB1F3,
+0x838F,
+0x8390,
+0x8391,
+0x8392,
+0x8393,
+0xB1F4,
+0xB1F5,
+0x8394,
+0xB1F6,
+0xB1F7,
+0xB1F8,
+0x8395,
+0x8396,
+0x8397,
+0xB1F9,
+0x8398,
+0x8399,
+0xB1FA,
+0xB1FB,
+0x839A,
+0x839B,
+0xB1FC,
+0x839C,
+0x839D,
+0x839E,
+0xB1FD,
+0x839F,
+0x83A0,
+0x83A1,
+0x83A2,
+0x83A3,
+0x83A4,
+0x83A5,
+0xB1FE,
+0xB2A1,
+0x83A6,
+0xB2A2,
+0xB2A3,
+0xB2A4,
+0x83A7,
+0x83A8,
+0x83A9,
+0x83AA,
+0x83AB,
+0x83AC,
+0xB2A5,
+0xB2A6,
+0x83AD,
+0x83AE,
+0x83AF,
+0x83B0,
+0x83B1,
+0x83B2,
+0xB2A7,
+0x83B3,
+0x83B4,
+0x83B5,
+0x83B6,
+0x83B7,
+0x83B8,
+0x83B9,
+0x83BA,
+0x83BB,
+0x83BC,
+0x83BD,
+0x83BE,
+0x83BF,
+0x83C0,
+0x83C1,
+0x83C2,
+0x83C3,
+0x83C4,
+0x83C5,
+0x83C6,
+0x83C7,
+0x83C8,
+0x83C9,
+0x83CA,
+0x83CB,
+0x83CC,
+0x83CD,
+0x83CE,
+0x83CF,
+0x83D0,
+0x83D1,
+0x83D2,
+0x83D3,
+0x83D4,
+0x83D5,
+0x83D6,
+0x83D7,
+0x83D8,
+0x83D9,
+0x83DA,
+0x83DB,
+0x83DC,
+0x83DD,
+0x83DE,
+0x83DF,
+0x83E0,
+0x83E1,
+0xB2A8,
+0xB2A9,
+0xB2AA,
+0x83E2,
+0xB2AB,
+0x83E3,
+0x83E4,
+0x83E5,
+0xB2AC,
+0x83E6,
+0x83E7,
+0x83E8,
+0x83E9,
+0x83EA,
+0x83EB,
+0x83EC,
+0xB2AD,
+0xB2AE,
+0x83ED,
+0xB2AF,
+0xB2B0,
+0xB2B1,
+0x83EE,
+0x83EF,
+0x83F0,
+0x83F1,
+0x83F2,
+0x83F3,
+0xB2B2,
+0xB2B3,
+0x83F4,
+0x83F5,
+0xB2B4,
+0x83F6,
+0x83F7,
+0x83F8,
+0x83F9,
+0x83FA,
+0x83FB,
+0x83FC,
+0x83FD,
+0x83FE,
+0x8441,
+0x8442,
+0xB2B5,
+0x8443,
+0x8444,
+0xB2B6,
+0x8445,
+0xB2B7,
+0x8446,
+0x8447,
+0x8448,
+0x8449,
+0x844A,
+0x844B,
+0xB2B8,
+0x844C,
+0x844D,
+0x844E,
+0xB2B9,
+0x844F,
+0x8450,
+0x8451,
+0xB2BA,
+0x8452,
+0x8453,
+0x8454,
+0x8455,
+0x8456,
+0x8457,
+0x8458,
+0x8459,
+0x845A,
+0x8461,
+0xB2BB,
+0xB2BC,
+0x8462,
+0x8463,
+0x8464,
+0x8465,
+0xB2BD,
+0x8466,
+0x8467,
+0xB2BE,
+0x8468,
+0x8469,
+0x846A,
+0x846B,
+0x846C,
+0x846D,
+0x846E,
+0x846F,
+0x8470,
+0x8471,
+0x8472,
+0x8473,
+0x8474,
+0x8475,
+0x8476,
+0x8477,
+0x8478,
+0x8479,
+0x847A,
+0x8481,
+0x8482,
+0x8483,
+0x8484,
+0x8485,
+0x8486,
+0x8487,
+0x8488,
+0xB2BF,
+0xB2C0,
+0x8489,
+0x848A,
+0xB2C1,
+0x848B,
+0xB2C2,
+0x848C,
+0xB2C3,
+0x848D,
+0x848E,
+0x848F,
+0x8490,
+0x8491,
+0x8492,
+0x8493,
+0xB2C4,
+0xB2C5,
+0x8494,
+0xB2C6,
+0x8495,
+0xB2C7,
+0xB2C8,
+0xB2C9,
+0x8496,
+0x8497,
+0x8498,
+0x8499,
+0xB2CA,
+0xB2CB,
+0x849A,
+0x849B,
+0x849C,
+0x849D,
+0x849E,
+0x849F,
+0xB2CC,
+0x84A0,
+0x84A1,
+0x84A2,
+0x84A3,
+0x84A4,
+0x84A5,
+0x84A6,
+0x84A7,
+0x84A8,
+0x84A9,
+0x84AA,
+0xB2CD,
+0xB2CE,
+0x84AB,
+0x84AC,
+0x84AD,
+0x84AE,
+0x84AF,
+0x84B0,
+0xB2CF,
+0xB2D0,
+0x84B1,
+0x84B2,
+0x84B3,
+0x84B4,
+0x84B5,
+0x84B6,
+0x84B7,
+0x84B8,
+0x84B9,
+0x84BA,
+0x84BB,
+0x84BC,
+0x84BD,
+0x84BE,
+0x84BF,
+0x84C0,
+0x84C1,
+0x84C2,
+0x84C3,
+0xB2D1,
+0x84C4,
+0x84C5,
+0x84C6,
+0x84C7,
+0x84C8,
+0x84C9,
+0xB2D2,
+0x84CA,
+0x84CB,
+0x84CC,
+0xB2D3,
+0x84CD,
+0x84CE,
+0x84CF,
+0xB2D4,
+0x84D0,
+0x84D1,
+0x84D2,
+0x84D3,
+0x84D4,
+0x84D5,
+0x84D6,
+0xB2D5,
+0xB2D6,
+0x84D7,
+0x84D8,
+0x84D9,
+0xB2D7,
+0x84DA,
+0x84DB,
+0x84DC,
+0x84DD,
+0x84DE,
+0x84DF,
+0xB2D8,
+0x84E0,
+0x84E1,
+0x84E2,
+0x84E3,
+0x84E4,
+0x84E5,
+0x84E6,
+0x84E7,
+0x84E8,
+0x84E9,
+0x84EA,
+0x84EB,
+0x84EC,
+0x84ED,
+0x84EE,
+0x84EF,
+0x84F0,
+0x84F1,
+0x84F2,
+0x84F3,
+0x84F4,
+0x84F5,
+0x84F6,
+0x84F7,
+0x84F8,
+0x84F9,
+0x84FA,
+0xB2D9,
+0xB2DA,
+0x84FB,
+0x84FC,
+0xB2DB,
+0x84FD,
+0x84FE,
+0x8541,
+0xB2DC,
+0x8542,
+0x8543,
+0x8544,
+0x8545,
+0x8546,
+0x8547,
+0xB2DD,
+0xB2DE,
+0xB2DF,
+0x8548,
+0xB2E0,
+0x8549,
+0xB2E1,
+0xB2E2,
+0x854A,
+0x854B,
+0x854C,
+0x854D,
+0x854E,
+0xB2E3,
+0x854F,
+0x8550,
+0x8551,
+0x8552,
+0x8553,
+0x8554,
+0x8555,
+0xB2E4,
+0x8556,
+0x8557,
+0x8558,
+0x8559,
+0x855A,
+0x8561,
+0x8562,
+0x8563,
+0x8564,
+0x8565,
+0x8566,
+0xB2E5,
+0xB2E6,
+0x8567,
+0x8568,
+0x8569,
+0x856A,
+0x856B,
+0x856C,
+0xB2E7,
+0xB2E8,
+0x856D,
+0x856E,
+0xB2E9,
+0x856F,
+0x8570,
+0x8571,
+0xB2EA,
+0x8572,
+0x8573,
+0x8574,
+0x8575,
+0x8576,
+0x8577,
+0x8578,
+0xB2EB,
+0xB2EC,
+0x8579,
+0x857A,
+0xB2ED,
+0x8581,
+0x8582,
+0x8583,
+0x8584,
+0x8585,
+0x8586,
+0x8587,
+0xB2EE,
+0x8588,
+0x8589,
+0x858A,
+0xB2EF,
+0x858B,
+0x858C,
+0x858D,
+0xB2F0,
+0x858E,
+0x858F,
+0x8590,
+0x8591,
+0x8592,
+0x8593,
+0x8594,
+0xB2F1,
+0xB2F2,
+0x8595,
+0x8596,
+0x8597,
+0x8598,
+0x8599,
+0x859A,
+0x859B,
+0x859C,
+0x859D,
+0x859E,
+0xB2F3,
+0x859F,
+0x85A0,
+0x85A1,
+0x85A2,
+0x85A3,
+0x85A4,
+0x85A5,
+0x85A6,
+0x85A7,
+0x85A8,
+0x85A9,
+0x85AA,
+0x85AB,
+0x85AC,
+0x85AD,
+0x85AE,
+0x85AF,
+0x85B0,
+0x85B1,
+0x85B2,
+0x85B3,
+0x85B4,
+0x85B5,
+0x85B6,
+0x85B7,
+0x85B8,
+0x85B9,
+0xB2F4,
+0xB2F5,
+0x85BA,
+0x85BB,
+0xB2F6,
+0x85BC,
+0xB2F7,
+0x85BD,
+0xB2F8,
+0x85BE,
+0xB2F9,
+0x85BF,
+0x85C0,
+0x85C1,
+0x85C2,
+0xB2FA,
+0xB2FB,
+0xB2FC,
+0x85C3,
+0xB2FD,
+0x85C4,
+0xB2FE,
+0x85C5,
+0x85C6,
+0x85C7,
+0xB3A1,
+0x85C8,
+0x85C9,
+0x85CA,
+0x85CB,
+0x85CC,
+0x85CD,
+0x85CE,
+0x85CF,
+0x85D0,
+0x85D1,
+0x85D2,
+0x85D3,
+0x85D4,
+0x85D5,
+0x85D6,
+0x85D7,
+0x85D8,
+0x85D9,
+0x85DA,
+0x85DB,
+0x85DC,
+0x85DD,
+0x85DE,
+0x85DF,
+0x85E0,
+0x85E1,
+0x85E2,
+0x85E3,
+0x85E4,
+0x85E5,
+0xB3A2,
+0xB3A3,
+0x85E6,
+0x85E7,
+0xB3A4,
+0x85E8,
+0x85E9,
+0x85EA,
+0xB3A5,
+0x85EB,
+0x85EC,
+0x85ED,
+0x85EE,
+0x85EF,
+0x85F0,
+0x85F1,
+0xB3A6,
+0xB3A7,
+0x85F2,
+0xB3A8,
+0x85F3,
+0xB3A9,
+0x85F4,
+0x85F5,
+0x85F6,
+0x85F7,
+0x85F8,
+0x85F9,
+0xB3AA,
+0xB3AB,
+0xB3AC,
+0x85FA,
+0xB3AD,
+0x85FB,
+0x85FC,
+0xB3AE,
+0xB3AF,
+0xB3B0,
+0xB3B1,
+0x85FD,
+0x85FE,
+0x8641,
+0x8642,
+0x8643,
+0xB3B2,
+0xB3B3,
+0x8644,
+0xB3B4,
+0xB3B5,
+0xB3B6,
+0xB3B7,
+0xB3B8,
+0x8645,
+0xB3B9,
+0x8646,
+0xB3BA,
+0xB3BB,
+0xB3BC,
+0x8647,
+0x8648,
+0xB3BD,
+0x8649,
+0x864A,
+0x864B,
+0xB3BE,
+0x864C,
+0x864D,
+0x864E,
+0x864F,
+0x8650,
+0x8651,
+0x8652,
+0xB3BF,
+0xB3C0,
+0x8653,
+0xB3C1,
+0xB3C2,
+0xB3C3,
+0x8654,
+0x8655,
+0x8656,
+0x8657,
+0x8658,
+0x8659,
+0xB3C4,
+0xB3C5,
+0x865A,
+0x8661,
+0xB3C6,
+0x8662,
+0x8663,
+0x8664,
+0xB3C7,
+0x8665,
+0x8666,
+0x8667,
+0x8668,
+0x8669,
+0x866A,
+0x866B,
+0xB3C8,
+0x866C,
+0x866D,
+0x866E,
+0x866F,
+0xB3C9,
+0x8670,
+0x8671,
+0x8672,
+0x8673,
+0x8674,
+0x8675,
+0x8676,
+0x8677,
+0x8678,
+0x8679,
+0x867A,
+0x8681,
+0x8682,
+0x8683,
+0x8684,
+0x8685,
+0x8686,
+0x8687,
+0x8688,
+0x8689,
+0x868A,
+0x868B,
+0x868C,
+0x868D,
+0x868E,
+0x868F,
+0x8690,
+0x8691,
+0x8692,
+0x8693,
+0x8694,
+0x8695,
+0x8696,
+0x8697,
+0xB3CA,
+0xB3CB,
+0x8698,
+0xB3CC,
+0xB3CD,
+0x8699,
+0x869A,
+0x869B,
+0xB3CE,
+0x869C,
+0xB3CF,
+0xB3D0,
+0x869D,
+0x869E,
+0x869F,
+0x86A0,
+0xB3D1,
+0xB3D2,
+0x86A1,
+0xB3D3,
+0xB3D4,
+0xB3D5,
+0x86A2,
+0x86A3,
+0x86A4,
+0x86A5,
+0x86A6,
+0xB3D6,
+0xB3D7,
+0xB3D8,
+0x86A7,
+0x86A8,
+0xB3D9,
+0x86A9,
+0x86AA,
+0x86AB,
+0xB3DA,
+0x86AC,
+0x86AD,
+0x86AE,
+0x86AF,
+0x86B0,
+0x86B1,
+0x86B2,
+0xB3DB,
+0xB3DC,
+0x86B3,
+0xB3DD,
+0xB3DE,
+0xB3DF,
+0x86B4,
+0x86B5,
+0x86B6,
+0x86B7,
+0x86B8,
+0x86B9,
+0xB3E0,
+0xB3E1,
+0x86BA,
+0x86BB,
+0xB3E2,
+0x86BC,
+0x86BD,
+0x86BE,
+0xB3E3,
+0x86BF,
+0x86C0,
+0x86C1,
+0x86C2,
+0x86C3,
+0x86C4,
+0x86C5,
+0xB3E4,
+0xB3E5,
+0x86C6,
+0x86C7,
+0xB3E6,
+0xB3E7,
+0x86C8,
+0x86C9,
+0xB3E8,
+0x86CA,
+0x86CB,
+0x86CC,
+0xB3E9,
+0x86CD,
+0x86CE,
+0x86CF,
+0xB3EA,
+0x86D0,
+0x86D1,
+0x86D2,
+0x86D3,
+0x86D4,
+0x86D5,
+0x86D6,
+0x86D7,
+0x86D8,
+0x86D9,
+0x86DA,
+0x86DB,
+0x86DC,
+0x86DD,
+0x86DE,
+0x86DF,
+0x86E0,
+0x86E1,
+0x86E2,
+0x86E3,
+0x86E4,
+0x86E5,
+0x86E6,
+0xB3EB,
+0xB3EC,
+0x86E7,
+0x86E8,
+0xB3ED,
+0x86E9,
+0x86EA,
+0x86EB,
+0xB3EE,
+0x86EC,
+0xB3EF,
+0x86ED,
+0x86EE,
+0x86EF,
+0x86F0,
+0x86F1,
+0xB3F0,
+0xB3F1,
+0x86F2,
+0xB3F2,
+0x86F3,
+0xB3F3,
+0x86F4,
+0x86F5,
+0x86F6,
+0x86F7,
+0xB3F4,
+0xB3F5,
+0xB3F6,
+0x86F8,
+0x86F9,
+0x86FA,
+0xB3F7,
+0x86FB,
+0x86FC,
+0x86FD,
+0xB3F8,
+0x86FE,
+0x8741,
+0x8742,
+0x8743,
+0x8744,
+0x8745,
+0x8746,
+0x8747,
+0x8748,
+0x8749,
+0x874A,
+0xB3F9,
+0x874B,
+0x874C,
+0x874D,
+0x874E,
+0x874F,
+0x8750,
+0x8751,
+0x8752,
+0x8753,
+0x8754,
+0x8755,
+0x8756,
+0x8757,
+0x8758,
+0x8759,
+0x875A,
+0x8761,
+0x8762,
+0x8763,
+0x8764,
+0x8765,
+0x8766,
+0x8767,
+0x8768,
+0x8769,
+0x876A,
+0x876B,
+0x876C,
+0x876D,
+0x876E,
+0x876F,
+0x8770,
+0x8771,
+0x8772,
+0x8773,
+0xB3FA,
+0x8774,
+0x8775,
+0x8776,
+0xB3FB,
+0x8777,
+0x8778,
+0x8779,
+0xB3FC,
+0x877A,
+0x8781,
+0x8782,
+0x8783,
+0x8784,
+0x8785,
+0x8786,
+0xB3FD,
+0xB3FE,
+0x8787,
+0xB4A1,
+0x8788,
+0x8789,
+0x878A,
+0x878B,
+0x878C,
+0x878D,
+0x878E,
+0x878F,
+0xB4A2,
+0xB4A3,
+0x8790,
+0x8791,
+0xB4A4,
+0x8792,
+0x8793,
+0x8794,
+0xB4A5,
+0x8795,
+0x8796,
+0x8797,
+0x8798,
+0x8799,
+0x879A,
+0x879B,
+0x879C,
+0xB4A6,
+0x879D,
+0xB4A7,
+0x879E,
+0xB4A8,
+0x879F,
+0x87A0,
+0x87A1,
+0x87A2,
+0x87A3,
+0x87A4,
+0xB4A9,
+0xB4AA,
+0x87A5,
+0x87A6,
+0xB4AB,
+0x87A7,
+0x87A8,
+0xB4AC,
+0xB4AD,
+0x87A9,
+0x87AA,
+0x87AB,
+0x87AC,
+0x87AD,
+0x87AE,
+0x87AF,
+0xB4AE,
+0xB4AF,
+0x87B0,
+0xB4B0,
+0x87B1,
+0xB4B1,
+0x87B2,
+0x87B3,
+0x87B4,
+0x87B5,
+0x87B6,
+0x87B7,
+0xB4B2,
+0x87B8,
+0x87B9,
+0x87BA,
+0x87BB,
+0x87BC,
+0x87BD,
+0x87BE,
+0x87BF,
+0x87C0,
+0x87C1,
+0x87C2,
+0x87C3,
+0x87C4,
+0x87C5,
+0x87C6,
+0x87C7,
+0x87C8,
+0x87C9,
+0x87CA,
+0xB4B3,
+0x87CB,
+0x87CC,
+0x87CD,
+0x87CE,
+0x87CF,
+0x87D0,
+0x87D1,
+0xB4B4,
+0x87D2,
+0x87D3,
+0x87D4,
+0x87D5,
+0x87D6,
+0x87D7,
+0x87D8,
+0x87D9,
+0x87DA,
+0x87DB,
+0x87DC,
+0x87DD,
+0x87DE,
+0x87DF,
+0x87E0,
+0x87E1,
+0x87E2,
+0x87E3,
+0x87E4,
+0x87E5,
+0x87E6,
+0x87E7,
+0x87E8,
+0x87E9,
+0x87EA,
+0x87EB,
+0x87EC,
+0xB4B5,
+0x87ED,
+0x87EE,
+0x87EF,
+0xB4B6,
+0x87F0,
+0x87F1,
+0x87F2,
+0xB4B7,
+0x87F3,
+0x87F4,
+0x87F5,
+0x87F6,
+0x87F7,
+0x87F8,
+0x87F9,
+0xB4B8,
+0xB4B9,
+0x87FA,
+0x87FB,
+0x87FC,
+0x87FD,
+0x87FE,
+0x8841,
+0x8842,
+0x8843,
+0x8844,
+0x8845,
+0xB4BA,
+0xB4BB,
+0x8846,
+0x8847,
+0x8848,
+0x8849,
+0x884A,
+0x884B,
+0xB4BC,
+0x884C,
+0x884D,
+0x884E,
+0x884F,
+0x8850,
+0x8851,
+0x8852,
+0xB4BD,
+0xB4BE,
+0x8853,
+0x8854,
+0x8855,
+0xB4BF,
+0x8856,
+0x8857,
+0x8858,
+0x8859,
+0x885A,
+0x8861,
+0xB4C0,
+0xB4C1,
+0x8862,
+0x8863,
+0xB4C2,
+0x8864,
+0x8865,
+0x8866,
+0xB4C3,
+0xB4C4,
+0xB4C5,
+0x8867,
+0x8868,
+0x8869,
+0x886A,
+0x886B,
+0xB4C6,
+0xB4C7,
+0x886C,
+0xB4C8,
+0x886D,
+0xB4C9,
+0xB4CA,
+0x886E,
+0x886F,
+0x8870,
+0xB4CB,
+0x8871,
+0xB4CC,
+0x8872,
+0x8873,
+0x8874,
+0xB4CD,
+0x8875,
+0x8876,
+0x8877,
+0xB4CE,
+0x8878,
+0x8879,
+0x887A,
+0x8881,
+0x8882,
+0x8883,
+0x8884,
+0x8885,
+0x8886,
+0x8887,
+0x8888,
+0x8889,
+0x888A,
+0x888B,
+0x888C,
+0x888D,
+0x888E,
+0x888F,
+0x8890,
+0xB4CF,
+0xB4D0,
+0x8891,
+0x8892,
+0xB4D1,
+0x8893,
+0x8894,
+0x8895,
+0xB4D2,
+0x8896,
+0xB4D3,
+0x8897,
+0x8898,
+0x8899,
+0x889A,
+0x889B,
+0xB4D4,
+0xB4D5,
+0x889C,
+0xB4D6,
+0x889D,
+0xB4D7,
+0x889E,
+0x889F,
+0x88A0,
+0x88A1,
+0xB4D8,
+0x88A2,
+0xB4D9,
+0xB4DA,
+0xB4DB,
+0x88A3,
+0xB4DC,
+0x88A4,
+0x88A5,
+0xB4DD,
+0xB4DE,
+0xB4DF,
+0xB4E0,
+0xB4E1,
+0x88A6,
+0x88A7,
+0x88A8,
+0xB4E2,
+0xB4E3,
+0xB4E4,
+0x88A9,
+0xB4E5,
+0xB4E6,
+0xB4E7,
+0xB4E8,
+0xB4E9,
+0x88AA,
+0x88AB,
+0x88AC,
+0xB4EA,
+0xB4EB,
+0xB4EC,
+0x88AD,
+0x88AE,
+0xB4ED,
+0x88AF,
+0x88B0,
+0x88B1,
+0xB4EE,
+0x88B2,
+0x88B3,
+0x88B4,
+0x88B5,
+0x88B6,
+0x88B7,
+0x88B8,
+0xB4EF,
+0xB4F0,
+0x88B9,
+0xB4F1,
+0xB4F2,
+0xB4F3,
+0x88BA,
+0x88BB,
+0x88BC,
+0x88BD,
+0x88BE,
+0x88BF,
+0xB4F4,
+0x88C0,
+0x88C1,
+0x88C2,
+0x88C3,
+0x88C4,
+0x88C5,
+0x88C6,
+0x88C7,
+0x88C8,
+0x88C9,
+0x88CA,
+0x88CB,
+0x88CC,
+0x88CD,
+0x88CE,
+0x88CF,
+0x88D0,
+0x88D1,
+0x88D2,
+0x88D3,
+0x88D4,
+0x88D5,
+0x88D6,
+0x88D7,
+0x88D8,
+0x88D9,
+0x88DA,
+0x88DB,
+0x88DC,
+0x88DD,
+0x88DE,
+0x88DF,
+0x88E0,
+0x88E1,
+0x88E2,
+0x88E3,
+0x88E4,
+0x88E5,
+0x88E6,
+0x88E7,
+0x88E8,
+0x88E9,
+0x88EA,
+0x88EB,
+0x88EC,
+0x88ED,
+0x88EE,
+0x88EF,
+0x88F0,
+0x88F1,
+0x88F2,
+0x88F3,
+0x88F4,
+0x88F5,
+0x88F6,
+0xB4F5,
+0xB4F6,
+0xB4F7,
+0x88F7,
+0xB4F8,
+0x88F8,
+0x88F9,
+0xB4F9,
+0xB4FA,
+0x88FA,
+0xB4FB,
+0xB4FC,
+0x88FB,
+0x88FC,
+0x88FD,
+0x88FE,
+0xB4FD,
+0xB4FE,
+0x8941,
+0xB5A1,
+0x8942,
+0xB5A2,
+0x8943,
+0xB5A3,
+0x8944,
+0x8945,
+0xB5A4,
+0x8946,
+0xB5A5,
+0xB5A6,
+0x8947,
+0x8948,
+0xB5A7,
+0x8949,
+0x894A,
+0x894B,
+0xB5A8,
+0x894C,
+0x894D,
+0x894E,
+0x894F,
+0x8950,
+0x8951,
+0x8952,
+0xB5A9,
+0xB5AA,
+0x8953,
+0xB5AB,
+0xB5AC,
+0xB5AD,
+0x8954,
+0x8955,
+0x8956,
+0x8957,
+0x8958,
+0x8959,
+0xB5AE,
+0x895A,
+0x8961,
+0x8962,
+0xB5AF,
+0x8963,
+0x8964,
+0x8965,
+0xB5B0,
+0x8966,
+0x8967,
+0x8968,
+0x8969,
+0x896A,
+0x896B,
+0x896C,
+0x896D,
+0x896E,
+0x896F,
+0x8970,
+0xB5B1,
+0xB5B2,
+0x8971,
+0x8972,
+0x8973,
+0x8974,
+0x8975,
+0x8976,
+0xB5B3,
+0x8977,
+0x8978,
+0x8979,
+0xB5B4,
+0x897A,
+0x8981,
+0x8982,
+0x8983,
+0x8984,
+0x8985,
+0x8986,
+0x8987,
+0x8988,
+0x8989,
+0x898A,
+0x898B,
+0x898C,
+0x898D,
+0x898E,
+0x898F,
+0x8990,
+0x8991,
+0x8992,
+0x8993,
+0x8994,
+0x8995,
+0x8996,
+0xB5B5,
+0xB5B6,
+0x8997,
+0x8998,
+0xB5B7,
+0x8999,
+0x899A,
+0xB5B8,
+0xB5B9,
+0x899B,
+0xB5BA,
+0x899C,
+0xB5BB,
+0x899D,
+0x899E,
+0x899F,
+0xB5BC,
+0xB5BD,
+0x89A0,
+0xB5BE,
+0x89A1,
+0xB5BF,
+0x89A2,
+0xB5C0,
+0x89A3,
+0xB5C1,
+0x89A4,
+0x89A5,
+0xB5C2,
+0x89A6,
+0x89A7,
+0x89A8,
+0xB5C3,
+0x89A9,
+0x89AA,
+0x89AB,
+0xB5C4,
+0x89AC,
+0x89AD,
+0x89AE,
+0x89AF,
+0x89B0,
+0x89B1,
+0x89B2,
+0x89B3,
+0x89B4,
+0x89B5,
+0x89B6,
+0x89B7,
+0x89B8,
+0x89B9,
+0x89BA,
+0x89BB,
+0x89BC,
+0x89BD,
+0x89BE,
+0xB5C5,
+0x89BF,
+0x89C0,
+0x89C1,
+0x89C2,
+0x89C3,
+0x89C4,
+0x89C5,
+0x89C6,
+0x89C7,
+0x89C8,
+0x89C9,
+0x89CA,
+0x89CB,
+0x89CC,
+0x89CD,
+0x89CE,
+0x89CF,
+0x89D0,
+0x89D1,
+0xB5C6,
+0x89D2,
+0x89D3,
+0x89D4,
+0x89D5,
+0x89D6,
+0x89D7,
+0x89D8,
+0xB5C7,
+0x89D9,
+0x89DA,
+0x89DB,
+0xB5C8,
+0x89DC,
+0x89DD,
+0x89DE,
+0xB5C9,
+0x89DF,
+0x89E0,
+0x89E1,
+0x89E2,
+0x89E3,
+0x89E4,
+0x89E5,
+0xB5CA,
+0xB5CB,
+0x89E6,
+0xB5CC,
+0x89E7,
+0x89E8,
+0x89E9,
+0x89EA,
+0x89EB,
+0x89EC,
+0x89ED,
+0x89EE,
+0xB5CD,
+0x89EF,
+0x89F0,
+0x89F1,
+0x89F2,
+0x89F3,
+0x89F4,
+0x89F5,
+0x89F6,
+0x89F7,
+0x89F8,
+0x89F9,
+0x89FA,
+0x89FB,
+0x89FC,
+0x89FD,
+0x89FE,
+0x8A41,
+0x8A42,
+0x8A43,
+0x8A44,
+0x8A45,
+0x8A46,
+0x8A47,
+0x8A48,
+0x8A49,
+0x8A4A,
+0x8A4B,
+0xB5CE,
+0xB5CF,
+0x8A4C,
+0x8A4D,
+0xB5D0,
+0x8A4E,
+0x8A4F,
+0x8A50,
+0xB5D1,
+0x8A51,
+0x8A52,
+0x8A53,
+0x8A54,
+0x8A55,
+0x8A56,
+0x8A57,
+0xB5D2,
+0xB5D3,
+0x8A58,
+0xB5D4,
+0x8A59,
+0xB5D5,
+0x8A5A,
+0x8A61,
+0x8A62,
+0x8A63,
+0x8A64,
+0x8A65,
+0xB5D6,
+0x8A66,
+0x8A67,
+0x8A68,
+0x8A69,
+0x8A6A,
+0x8A6B,
+0x8A6C,
+0x8A6D,
+0x8A6E,
+0x8A6F,
+0x8A70,
+0x8A71,
+0x8A72,
+0x8A73,
+0x8A74,
+0x8A75,
+0x8A76,
+0x8A77,
+0x8A78,
+0xB5D7,
+0x8A79,
+0x8A7A,
+0x8A81,
+0x8A82,
+0x8A83,
+0x8A84,
+0x8A85,
+0xB5D8,
+0x8A86,
+0x8A87,
+0x8A88,
+0x8A89,
+0x8A8A,
+0x8A8B,
+0x8A8C,
+0x8A8D,
+0x8A8E,
+0x8A8F,
+0x8A90,
+0x8A91,
+0x8A92,
+0x8A93,
+0x8A94,
+0x8A95,
+0x8A96,
+0x8A97,
+0x8A98,
+0x8A99,
+0xB5D9,
+0x8A9A,
+0x8A9B,
+0x8A9C,
+0x8A9D,
+0x8A9E,
+0x8A9F,
+0xB5DA,
+0x8AA0,
+0x8AA1,
+0x8AA2,
+0xB5DB,
+0x8AA3,
+0x8AA4,
+0x8AA5,
+0xB5DC,
+0x8AA6,
+0x8AA7,
+0x8AA8,
+0x8AA9,
+0x8AAA,
+0x8AAB,
+0x8AAC,
+0x8AAD,
+0xB5DD,
+0x8AAE,
+0xB5DE,
+0x8AAF,
+0xB5DF,
+0x8AB0,
+0x8AB1,
+0x8AB2,
+0x8AB3,
+0x8AB4,
+0x8AB5,
+0xB5E0,
+0x8AB6,
+0x8AB7,
+0x8AB8,
+0xB5E1,
+0x8AB9,
+0x8ABA,
+0x8ABB,
+0xB5E2,
+0x8ABC,
+0x8ABD,
+0x8ABE,
+0x8ABF,
+0x8AC0,
+0x8AC1,
+0x8AC2,
+0xB5E3,
+0x8AC3,
+0x8AC4,
+0x8AC5,
+0x8AC6,
+0xB5E4,
+0x8AC7,
+0x8AC8,
+0x8AC9,
+0x8ACA,
+0x8ACB,
+0x8ACC,
+0xB5E5,
+0xB5E6,
+0x8ACD,
+0x8ACE,
+0xB5E7,
+0x8ACF,
+0x8AD0,
+0xB5E8,
+0xB5E9,
+0x8AD1,
+0xB5EA,
+0x8AD2,
+0x8AD3,
+0x8AD4,
+0x8AD5,
+0x8AD6,
+0xB5EB,
+0xB5EC,
+0x8AD7,
+0xB5ED,
+0x8AD8,
+0xB5EE,
+0x8AD9,
+0x8ADA,
+0x8ADB,
+0x8ADC,
+0x8ADD,
+0x8ADE,
+0xB5EF,
+0x8ADF,
+0x8AE0,
+0x8AE1,
+0x8AE2,
+0x8AE3,
+0x8AE4,
+0x8AE5,
+0x8AE6,
+0x8AE7,
+0x8AE8,
+0x8AE9,
+0x8AEA,
+0x8AEB,
+0x8AEC,
+0x8AED,
+0x8AEE,
+0x8AEF,
+0x8AF0,
+0x8AF1,
+0x8AF2,
+0x8AF3,
+0x8AF4,
+0x8AF5,
+0x8AF6,
+0x8AF7,
+0x8AF8,
+0x8AF9,
+0xB5F0,
+0xB5F1,
+0x8AFA,
+0x8AFB,
+0xB5F2,
+0x8AFC,
+0x8AFD,
+0xB5F3,
+0xB5F4,
+0x8AFE,
+0x8B41,
+0x8B42,
+0x8B43,
+0x8B44,
+0x8B45,
+0x8B46,
+0xB5F5,
+0xB5F6,
+0x8B47,
+0xB5F7,
+0xB5F8,
+0xB5F9,
+0xB5FA,
+0x8B48,
+0x8B49,
+0x8B4A,
+0x8B4B,
+0x8B4C,
+0xB5FB,
+0xB5FC,
+0x8B4D,
+0x8B4E,
+0xB5FD,
+0x8B4F,
+0x8B50,
+0x8B51,
+0xB5FE,
+0x8B52,
+0x8B53,
+0x8B54,
+0x8B55,
+0x8B56,
+0x8B57,
+0x8B58,
+0xB6A1,
+0xB6A2,
+0x8B59,
+0xB6A3,
+0xB6A4,
+0xB6A5,
+0x8B5A,
+0x8B61,
+0x8B62,
+0x8B63,
+0x8B64,
+0xB6A6,
+0xB6A7,
+0xB6A8,
+0x8B65,
+0x8B66,
+0xB6A9,
+0x8B67,
+0x8B68,
+0x8B69,
+0xB6AA,
+0x8B6A,
+0x8B6B,
+0x8B6C,
+0x8B6D,
+0x8B6E,
+0x8B6F,
+0x8B70,
+0xB6AB,
+0xB6AC,
+0x8B71,
+0xB6AD,
+0xB6AE,
+0xB6AF,
+0x8B72,
+0x8B73,
+0x8B74,
+0x8B75,
+0x8B76,
+0x8B77,
+0x8B78,
+0x8B79,
+0x8B7A,
+0x8B81,
+0x8B82,
+0x8B83,
+0x8B84,
+0x8B85,
+0x8B86,
+0x8B87,
+0x8B88,
+0x8B89,
+0x8B8A,
+0x8B8B,
+0x8B8C,
+0x8B8D,
+0x8B8E,
+0x8B8F,
+0x8B90,
+0x8B91,
+0x8B92,
+0x8B93,
+0x8B94,
+0x8B95,
+0x8B96,
+0x8B97,
+0x8B98,
+0x8B99,
+0x8B9A,
+0x8B9B,
+0x8B9C,
+0x8B9D,
+0x8B9E,
+0x8B9F,
+0x8BA0,
+0x8BA1,
+0x8BA2,
+0x8BA3,
+0x8BA4,
+0x8BA5,
+0x8BA6,
+0x8BA7,
+0x8BA8,
+0x8BA9,
+0x8BAA,
+0x8BAB,
+0x8BAC,
+0x8BAD,
+0x8BAE,
+0x8BAF,
+0x8BB0,
+0x8BB1,
+0x8BB2,
+0x8BB3,
+0x8BB4,
+0x8BB5,
+0xB6B0,
+0xB6B1,
+0x8BB6,
+0x8BB7,
+0xB6B2,
+0x8BB8,
+0x8BB9,
+0x8BBA,
+0xB6B3,
+0x8BBB,
+0xB6B4,
+0xB6B5,
+0x8BBC,
+0x8BBD,
+0x8BBE,
+0x8BBF,
+0xB6B6,
+0xB6B7,
+0x8BC0,
+0xB6B8,
+0xB6B9,
+0xB6BA,
+0x8BC1,
+0x8BC2,
+0x8BC3,
+0x8BC4,
+0x8BC5,
+0xB6BB,
+0xB6BC,
+0xB6BD,
+0x8BC6,
+0x8BC7,
+0xB6BE,
+0x8BC8,
+0x8BC9,
+0x8BCA,
+0xB6BF,
+0x8BCB,
+0x8BCC,
+0x8BCD,
+0x8BCE,
+0x8BCF,
+0x8BD0,
+0x8BD1,
+0xB6C0,
+0xB6C1,
+0x8BD2,
+0xB6C2,
+0xB6C3,
+0xB6C4,
+0x8BD3,
+0x8BD4,
+0x8BD5,
+0x8BD6,
+0x8BD7,
+0x8BD8,
+0xB6C5,
+0x8BD9,
+0x8BDA,
+0x8BDB,
+0x8BDC,
+0x8BDD,
+0x8BDE,
+0x8BDF,
+0x8BE0,
+0x8BE1,
+0x8BE2,
+0x8BE3,
+0x8BE4,
+0x8BE5,
+0x8BE6,
+0x8BE7,
+0x8BE8,
+0x8BE9,
+0x8BEA,
+0x8BEB,
+0xB6C6,
+0x8BEC,
+0x8BED,
+0x8BEE,
+0x8BEF,
+0x8BF0,
+0x8BF1,
+0x8BF2,
+0x8BF3,
+0x8BF4,
+0x8BF5,
+0x8BF6,
+0x8BF7,
+0x8BF8,
+0x8BF9,
+0x8BFA,
+0x8BFB,
+0x8BFC,
+0x8BFD,
+0x8BFE,
+0x8C41,
+0x8C42,
+0x8C43,
+0x8C44,
+0x8C45,
+0x8C46,
+0x8C47,
+0x8C48,
+0x8C49,
+0x8C4A,
+0x8C4B,
+0x8C4C,
+0x8C4D,
+0x8C4E,
+0x8C4F,
+0x8C50,
+0xB6C7,
+0xB6C8,
+0x8C51,
+0x8C52,
+0xB6C9,
+0x8C53,
+0x8C54,
+0x8C55,
+0xB6CA,
+0x8C56,
+0x8C57,
+0x8C58,
+0x8C59,
+0x8C5A,
+0x8C61,
+0x8C62,
+0x8C63,
+0x8C64,
+0x8C65,
+0x8C66,
+0x8C67,
+0xB6CB,
+0x8C68,
+0x8C69,
+0x8C6A,
+0x8C6B,
+0x8C6C,
+0x8C6D,
+0xB6CC,
+0x8C6E,
+0x8C6F,
+0x8C70,
+0x8C71,
+0x8C72,
+0x8C73,
+0x8C74,
+0xB6CD,
+0x8C75,
+0x8C76,
+0x8C77,
+0x8C78,
+0x8C79,
+0x8C7A,
+0x8C81,
+0x8C82,
+0x8C83,
+0x8C84,
+0x8C85,
+0x8C86,
+0x8C87,
+0x8C88,
+0x8C89,
+0x8C8A,
+0x8C8B,
+0x8C8C,
+0x8C8D,
+0xB6CE,
+0x8C8E,
+0x8C8F,
+0x8C90,
+0x8C91,
+0x8C92,
+0x8C93,
+0x8C94,
+0x8C95,
+0x8C96,
+0x8C97,
+0x8C98,
+0x8C99,
+0x8C9A,
+0x8C9B,
+0x8C9C,
+0x8C9D,
+0x8C9E,
+0x8C9F,
+0x8CA0,
+0x8CA1,
+0x8CA2,
+0x8CA3,
+0x8CA4,
+0x8CA5,
+0x8CA6,
+0x8CA7,
+0x8CA8,
+0xB6CF,
+0x8CA9,
+0x8CAA,
+0x8CAB,
+0xB6D0,
+0x8CAC,
+0x8CAD,
+0x8CAE,
+0x8CAF,
+0x8CB0,
+0x8CB1,
+0x8CB2,
+0x8CB3,
+0x8CB4,
+0x8CB5,
+0x8CB6,
+0x8CB7,
+0x8CB8,
+0x8CB9,
+0x8CBA,
+0x8CBB,
+0x8CBC,
+0x8CBD,
+0x8CBE,
+0x8CBF,
+0x8CC0,
+0x8CC1,
+0x8CC2,
+0x8CC3,
+0x8CC4,
+0x8CC5,
+0x8CC6,
+0x8CC7,
+0x8CC8,
+0x8CC9,
+0x8CCA,
+0x8CCB,
+0x8CCC,
+0x8CCD,
+0x8CCE,
+0x8CCF,
+0x8CD0,
+0x8CD1,
+0x8CD2,
+0x8CD3,
+0x8CD4,
+0x8CD5,
+0x8CD6,
+0x8CD7,
+0x8CD8,
+0x8CD9,
+0x8CDA,
+0x8CDB,
+0x8CDC,
+0x8CDD,
+0x8CDE,
+0xB6D1,
+0xB6D2,
+0x8CDF,
+0x8CE0,
+0xB6D3,
+0x8CE1,
+0x8CE2,
+0x8CE3,
+0xB6D4,
+0x8CE4,
+0x8CE5,
+0x8CE6,
+0x8CE7,
+0x8CE8,
+0x8CE9,
+0xB6D5,
+0xB6D6,
+0x8CEA,
+0x8CEB,
+0x8CEC,
+0x8CED,
+0xB6D7,
+0x8CEE,
+0x8CEF,
+0x8CF0,
+0x8CF1,
+0x8CF2,
+0x8CF3,
+0x8CF4,
+0x8CF5,
+0x8CF6,
+0x8CF7,
+0x8CF8,
+0x8CF9,
+0x8CFA,
+0x8CFB,
+0x8CFC,
+0x8CFD,
+0x8CFE,
+0x8D41,
+0x8D42,
+0x8D43,
+0x8D44,
+0x8D45,
+0x8D46,
+0x8D47,
+0x8D48,
+0x8D49,
+0x8D4A,
+0x8D4B,
+0x8D4C,
+0x8D4D,
+0x8D4E,
+0x8D4F,
+0x8D50,
+0x8D51,
+0xB6D8,
+0x8D52,
+0x8D53,
+0x8D54,
+0x8D55,
+0x8D56,
+0x8D57,
+0x8D58,
+0x8D59,
+0x8D5A,
+0x8D61,
+0x8D62,
+0x8D63,
+0x8D64,
+0x8D65,
+0x8D66,
+0x8D67,
+0x8D68,
+0x8D69,
+0x8D6A,
+0x8D6B,
+0x8D6C,
+0x8D6D,
+0x8D6E,
+0x8D6F,
+0x8D70,
+0x8D71,
+0x8D72,
+0xB6D9,
+0x8D73,
+0x8D74,
+0x8D75,
+0xB6DA,
+0x8D76,
+0x8D77,
+0x8D78,
+0xB6DB,
+0x8D79,
+0x8D7A,
+0x8D81,
+0x8D82,
+0x8D83,
+0x8D84,
+0x8D85,
+0xB6DC,
+0xB6DD,
+0x8D86,
+0x8D87,
+0x8D88,
+0xB6DE,
+0x8D89,
+0x8D8A,
+0x8D8B,
+0x8D8C,
+0x8D8D,
+0x8D8E,
+0x8D8F,
+0x8D90,
+0x8D91,
+0x8D92,
+0x8D93,
+0x8D94,
+0x8D95,
+0x8D96,
+0x8D97,
+0x8D98,
+0x8D99,
+0x8D9A,
+0x8D9B,
+0x8D9C,
+0x8D9D,
+0x8D9E,
+0x8D9F,
+0x8DA0,
+0x8DA1,
+0x8DA2,
+0x8DA3,
+0x8DA4,
+0x8DA5,
+0x8DA6,
+0x8DA7,
+0x8DA8,
+0x8DA9,
+0x8DAA,
+0xB6DF,
+0xB6E0,
+0x8DAB,
+0x8DAC,
+0xB6E1,
+0x8DAD,
+0x8DAE,
+0xB6E2,
+0xB6E3,
+0x8DAF,
+0x8DB0,
+0x8DB1,
+0x8DB2,
+0x8DB3,
+0x8DB4,
+0x8DB5,
+0xB6E4,
+0xB6E5,
+0x8DB6,
+0xB6E6,
+0x8DB7,
+0x8DB8,
+0x8DB9,
+0x8DBA,
+0x8DBB,
+0x8DBC,
+0x8DBD,
+0x8DBE,
+0xB6E7,
+0x8DBF,
+0x8DC0,
+0x8DC1,
+0xB6E8,
+0x8DC2,
+0x8DC3,
+0x8DC4,
+0xB6E9,
+0x8DC5,
+0x8DC6,
+0x8DC7,
+0x8DC8,
+0x8DC9,
+0x8DCA,
+0x8DCB,
+0xB6EA,
+0xB6EB,
+0x8DCC,
+0x8DCD,
+0x8DCE,
+0x8DCF,
+0x8DD0,
+0x8DD1,
+0x8DD2,
+0x8DD3,
+0x8DD4,
+0x8DD5,
+0xB6EC,
+0x8DD6,
+0x8DD7,
+0x8DD8,
+0xB6ED,
+0x8DD9,
+0x8DDA,
+0x8DDB,
+0xB6EE,
+0x8DDC,
+0x8DDD,
+0x8DDE,
+0x8DDF,
+0x8DE0,
+0x8DE1,
+0x8DE2,
+0xB6EF,
+0xB6F0,
+0x8DE3,
+0xB6F1,
+0x8DE4,
+0xB6F2,
+0x8DE5,
+0x8DE6,
+0x8DE7,
+0x8DE8,
+0x8DE9,
+0x8DEA,
+0xB6F3,
+0xB6F4,
+0x8DEB,
+0x8DEC,
+0xB6F5,
+0x8DED,
+0x8DEE,
+0x8DEF,
+0xB6F6,
+0x8DF0,
+0x8DF1,
+0x8DF2,
+0x8DF3,
+0x8DF4,
+0x8DF5,
+0x8DF6,
+0xB6F7,
+0xB6F8,
+0x8DF7,
+0xB6F9,
+0xB6FA,
+0xB6FB,
+0xB6FC,
+0x8DF8,
+0x8DF9,
+0x8DFA,
+0xB6FD,
+0xB6FE,
+0xB7A1,
+0xB7A2,
+0x8DFB,
+0x8DFC,
+0xB7A3,
+0x8DFD,
+0x8DFE,
+0x8E41,
+0xB7A4,
+0x8E42,
+0x8E43,
+0x8E44,
+0x8E45,
+0x8E46,
+0x8E47,
+0x8E48,
+0xB7A5,
+0xB7A6,
+0x8E49,
+0xB7A7,
+0xB7A8,
+0xB7A9,
+0x8E4A,
+0x8E4B,
+0x8E4C,
+0x8E4D,
+0x8E4E,
+0x8E4F,
+0xB7AA,
+0xB7AB,
+0x8E50,
+0x8E51,
+0xB7AC,
+0x8E52,
+0x8E53,
+0x8E54,
+0x8E55,
+0x8E56,
+0x8E57,
+0x8E58,
+0x8E59,
+0x8E5A,
+0x8E61,
+0x8E62,
+0x8E63,
+0x8E64,
+0x8E65,
+0xB7AD,
+0x8E66,
+0xB7AE,
+0x8E67,
+0x8E68,
+0x8E69,
+0x8E6A,
+0x8E6B,
+0x8E6C,
+0x8E6D,
+0x8E6E,
+0x8E6F,
+0x8E70,
+0x8E71,
+0x8E72,
+0x8E73,
+0x8E74,
+0x8E75,
+0x8E76,
+0x8E77,
+0x8E78,
+0x8E79,
+0x8E7A,
+0x8E81,
+0x8E82,
+0x8E83,
+0x8E84,
+0x8E85,
+0x8E86,
+0x8E87,
+0x8E88,
+0x8E89,
+0x8E8A,
+0x8E8B,
+0x8E8C,
+0x8E8D,
+0x8E8E,
+0xB7AF,
+0xB7B0,
+0x8E8F,
+0x8E90,
+0xB7B1,
+0x8E91,
+0x8E92,
+0x8E93,
+0xB7B2,
+0x8E94,
+0x8E95,
+0x8E96,
+0x8E97,
+0x8E98,
+0x8E99,
+0x8E9A,
+0xB7B3,
+0xB7B4,
+0x8E9B,
+0xB7B5,
+0xB7B6,
+0xB7B7,
+0x8E9C,
+0x8E9D,
+0x8E9E,
+0x8E9F,
+0x8EA0,
+0xB7B8,
+0xB7B9,
+0xB7BA,
+0x8EA1,
+0x8EA2,
+0xB7BB,
+0x8EA3,
+0x8EA4,
+0x8EA5,
+0xB7BC,
+0x8EA6,
+0x8EA7,
+0x8EA8,
+0x8EA9,
+0x8EAA,
+0x8EAB,
+0x8EAC,
+0xB7BD,
+0xB7BE,
+0x8EAD,
+0xB7BF,
+0x8EAE,
+0xB7C0,
+0x8EAF,
+0x8EB0,
+0x8EB1,
+0x8EB2,
+0x8EB3,
+0x8EB4,
+0xB7C1,
+0xB7C2,
+0x8EB5,
+0x8EB6,
+0xB7C3,
+0x8EB7,
+0x8EB8,
+0x8EB9,
+0xB7C4,
+0x8EBA,
+0x8EBB,
+0x8EBC,
+0x8EBD,
+0x8EBE,
+0x8EBF,
+0x8EC0,
+0xB7C5,
+0xB7C6,
+0x8EC1,
+0xB7C7,
+0xB7C8,
+0xB7C9,
+0x8EC2,
+0x8EC3,
+0x8EC4,
+0x8EC5,
+0x8EC6,
+0x8EC7,
+0xB7CA,
+0x8EC8,
+0x8EC9,
+0x8ECA,
+0xB7CB,
+0x8ECB,
+0x8ECC,
+0x8ECD,
+0x8ECE,
+0x8ECF,
+0x8ED0,
+0x8ED1,
+0x8ED2,
+0x8ED3,
+0x8ED4,
+0x8ED5,
+0x8ED6,
+0xB7CC,
+0x8ED7,
+0xB7CD,
+0x8ED8,
+0x8ED9,
+0x8EDA,
+0x8EDB,
+0x8EDC,
+0x8EDD,
+0x8EDE,
+0x8EDF,
+0xB7CE,
+0xB7CF,
+0x8EE0,
+0x8EE1,
+0xB7D0,
+0x8EE2,
+0x8EE3,
+0x8EE4,
+0xB7D1,
+0x8EE5,
+0x8EE6,
+0x8EE7,
+0x8EE8,
+0x8EE9,
+0x8EEA,
+0x8EEB,
+0xB7D2,
+0xB7D3,
+0x8EEC,
+0xB7D4,
+0x8EED,
+0xB7D5,
+0x8EEE,
+0x8EEF,
+0x8EF0,
+0x8EF1,
+0x8EF2,
+0x8EF3,
+0xB7D6,
+0x8EF4,
+0x8EF5,
+0x8EF6,
+0xB7D7,
+0x8EF7,
+0x8EF8,
+0x8EF9,
+0x8EFA,
+0x8EFB,
+0x8EFC,
+0x8EFD,
+0x8EFE,
+0x8F41,
+0x8F42,
+0x8F43,
+0x8F44,
+0x8F45,
+0x8F46,
+0x8F47,
+0x8F48,
+0xB7D8,
+0x8F49,
+0x8F4A,
+0x8F4B,
+0x8F4C,
+0x8F4D,
+0x8F4E,
+0x8F4F,
+0x8F50,
+0x8F51,
+0x8F52,
+0x8F53,
+0x8F54,
+0x8F55,
+0x8F56,
+0x8F57,
+0x8F58,
+0x8F59,
+0x8F5A,
+0x8F61,
+0x8F62,
+0x8F63,
+0x8F64,
+0x8F65,
+0x8F66,
+0x8F67,
+0x8F68,
+0xB7D9,
+0x8F69,
+0x8F6A,
+0x8F6B,
+0x8F6C,
+0x8F6D,
+0x8F6E,
+0x8F6F,
+0xB7DA,
+0x8F70,
+0x8F71,
+0x8F72,
+0xB7DB,
+0x8F73,
+0x8F74,
+0x8F75,
+0xB7DC,
+0x8F76,
+0x8F77,
+0x8F78,
+0x8F79,
+0x8F7A,
+0x8F81,
+0x8F82,
+0xB7DD,
+0xB7DE,
+0x8F83,
+0xB7DF,
+0x8F84,
+0xB7E0,
+0x8F85,
+0x8F86,
+0x8F87,
+0x8F88,
+0x8F89,
+0x8F8A,
+0xB7E1,
+0x8F8B,
+0x8F8C,
+0x8F8D,
+0xB7E2,
+0x8F8E,
+0x8F8F,
+0x8F90,
+0xB7E3,
+0x8F91,
+0x8F92,
+0x8F93,
+0x8F94,
+0x8F95,
+0x8F96,
+0x8F97,
+0x8F98,
+0xB7E4,
+0x8F99,
+0xB7E5,
+0x8F9A,
+0xB7E6,
+0x8F9B,
+0x8F9C,
+0x8F9D,
+0x8F9E,
+0x8F9F,
+0x8FA0,
+0xB7E7,
+0xB7E8,
+0x8FA1,
+0x8FA2,
+0xB7E9,
+0x8FA3,
+0x8FA4,
+0x8FA5,
+0xB7EA,
+0x8FA6,
+0x8FA7,
+0x8FA8,
+0x8FA9,
+0x8FAA,
+0x8FAB,
+0x8FAC,
+0xB7EB,
+0xB7EC,
+0x8FAD,
+0xB7ED,
+0x8FAE,
+0xB7EE,
+0x8FAF,
+0x8FB0,
+0x8FB1,
+0x8FB2,
+0x8FB3,
+0x8FB4,
+0xB7EF,
+0x8FB5,
+0x8FB6,
+0x8FB7,
+0x8FB8,
+0x8FB9,
+0x8FBA,
+0x8FBB,
+0x8FBC,
+0x8FBD,
+0x8FBE,
+0x8FBF,
+0x8FC0,
+0x8FC1,
+0x8FC2,
+0x8FC3,
+0x8FC4,
+0x8FC5,
+0x8FC6,
+0x8FC7,
+0xB7F0,
+0x8FC8,
+0x8FC9,
+0x8FCA,
+0x8FCB,
+0x8FCC,
+0x8FCD,
+0x8FCE,
+0xB7F1,
+0x8FCF,
+0x8FD0,
+0x8FD1,
+0x8FD2,
+0x8FD3,
+0x8FD4,
+0x8FD5,
+0x8FD6,
+0x8FD7,
+0x8FD8,
+0x8FD9,
+0x8FDA,
+0x8FDB,
+0x8FDC,
+0x8FDD,
+0x8FDE,
+0x8FDF,
+0x8FE0,
+0x8FE1,
+0x8FE2,
+0x8FE3,
+0x8FE4,
+0x8FE5,
+0x8FE6,
+0x8FE7,
+0x8FE8,
+0x8FE9,
+0xB7F2,
+0xB7F3,
+0x8FEA,
+0x8FEB,
+0xB7F4,
+0x8FEC,
+0x8FED,
+0x8FEE,
+0xB7F5,
+0x8FEF,
+0x8FF0,
+0x8FF1,
+0x8FF2,
+0x8FF3,
+0x8FF4,
+0x8FF5,
+0xB7F6,
+0x8FF6,
+0x8FF7,
+0xB7F7,
+0x8FF8,
+0xB7F8,
+0x8FF9,
+0x8FFA,
+0x8FFB,
+0x8FFC,
+0x8FFD,
+0x8FFE,
+0xB7F9,
+0xB7FA,
+0x9041,
+0x9042,
+0xB7FB,
+0x9043,
+0x9044,
+0x9045,
+0xB7FC,
+0x9046,
+0x9047,
+0x9048,
+0x9049,
+0x904A,
+0x904B,
+0x904C,
+0xB7FD,
+0xB7FE,
+0x904D,
+0xB8A1,
+0x904E,
+0xB8A2,
+0x904F,
+0x9050,
+0x9051,
+0x9052,
+0x9053,
+0x9054,
+0xB8A3,
+0xB8A4,
+0x9055,
+0x9056,
+0xB8A5,
+0x9057,
+0x9058,
+0x9059,
+0xB8A6,
+0x905A,
+0x9061,
+0x9062,
+0x9063,
+0x9064,
+0x9065,
+0x9066,
+0xB8A7,
+0xB8A8,
+0x9067,
+0xB8A9,
+0x9068,
+0xB8AA,
+0xB8AB,
+0x9069,
+0x906A,
+0xB8AC,
+0xB8AD,
+0x906B,
+0x906C,
+0x906D,
+0x906E,
+0x906F,
+0x9070,
+0x9071,
+0x9072,
+0x9073,
+0x9074,
+0x9075,
+0x9076,
+0x9077,
+0x9078,
+0x9079,
+0x907A,
+0x9081,
+0x9082,
+0x9083,
+0x9084,
+0x9085,
+0x9086,
+0x9087,
+0x9088,
+0x9089,
+0x908A,
+0x908B,
+0x908C,
+0x908D,
+0xB8AE,
+0xB8AF,
+0x908E,
+0x908F,
+0xB8B0,
+0x9090,
+0x9091,
+0x9092,
+0xB8B1,
+0x9093,
+0x9094,
+0x9095,
+0x9096,
+0x9097,
+0x9098,
+0x9099,
+0xB8B2,
+0xB8B3,
+0x909A,
+0xB8B4,
+0x909B,
+0xB8B5,
+0x909C,
+0x909D,
+0x909E,
+0x909F,
+0x90A0,
+0x90A1,
+0xB8B6,
+0xB8B7,
+0x90A2,
+0x90A3,
+0xB8B8,
+0x90A4,
+0xB8B9,
+0xB8BA,
+0xB8BB,
+0xB8BC,
+0xB8BD,
+0x90A5,
+0x90A6,
+0x90A7,
+0x90A8,
+0x90A9,
+0xB8BE,
+0xB8BF,
+0x90AA,
+0xB8C0,
+0x90AB,
+0xB8C1,
+0xB8C2,
+0x90AC,
+0x90AD,
+0xB8C3,
+0x90AE,
+0xB8C4,
+0xB8C5,
+0xB8C6,
+0x90AF,
+0x90B0,
+0xB8C7,
+0x90B1,
+0x90B2,
+0x90B3,
+0xB8C8,
+0x90B4,
+0x90B5,
+0x90B6,
+0x90B7,
+0x90B8,
+0x90B9,
+0x90BA,
+0xB8C9,
+0xB8CA,
+0x90BB,
+0xB8CB,
+0xB8CC,
+0xB8CD,
+0xB8CE,
+0x90BC,
+0x90BD,
+0x90BE,
+0x90BF,
+0x90C0,
+0xB8CF,
+0xB8D0,
+0x90C1,
+0x90C2,
+0x90C3,
+0x90C4,
+0x90C5,
+0x90C6,
+0xB8D1,
+0x90C7,
+0x90C8,
+0x90C9,
+0x90CA,
+0x90CB,
+0x90CC,
+0x90CD,
+0x90CE,
+0x90CF,
+0x90D0,
+0x90D1,
+0x90D2,
+0xB8D2,
+0x90D3,
+0x90D4,
+0x90D5,
+0x90D6,
+0x90D7,
+0x90D8,
+0x90D9,
+0x90DA,
+0x90DB,
+0x90DC,
+0x90DD,
+0x90DE,
+0x90DF,
+0x90E0,
+0x90E1,
+0x90E2,
+0x90E3,
+0x90E4,
+0x90E5,
+0x90E6,
+0x90E7,
+0x90E8,
+0x90E9,
+0x90EA,
+0x90EB,
+0x90EC,
+0x90ED,
+0x90EE,
+0x90EF,
+0x90F0,
+0x90F1,
+0x90F2,
+0x90F3,
+0x90F4,
+0xB8D3,
+0xB8D4,
+0x90F5,
+0x90F6,
+0xB8D5,
+0x90F7,
+0x90F8,
+0x90F9,
+0xB8D6,
+0x90FA,
+0xB8D7,
+0x90FB,
+0x90FC,
+0x90FD,
+0x90FE,
+0x9141,
+0xB8D8,
+0xB8D9,
+0x9142,
+0xB8DA,
+0x9143,
+0xB8DB,
+0xB8DC,
+0x9144,
+0x9145,
+0x9146,
+0x9147,
+0xB8DD,
+0xB8DE,
+0xB8DF,
+0x9148,
+0x9149,
+0xB8E0,
+0x914A,
+0x914B,
+0x914C,
+0xB8E1,
+0x914D,
+0x914E,
+0x914F,
+0x9150,
+0x9151,
+0x9152,
+0x9153,
+0xB8E2,
+0xB8E3,
+0x9154,
+0xB8E4,
+0xB8E5,
+0xB8E6,
+0x9155,
+0x9156,
+0x9157,
+0x9158,
+0x9159,
+0x915A,
+0xB8E7,
+0xB8E8,
+0x9161,
+0x9162,
+0xB8E9,
+0x9163,
+0x9164,
+0x9165,
+0xB8EA,
+0x9166,
+0x9167,
+0x9168,
+0x9169,
+0x916A,
+0x916B,
+0x916C,
+0x916D,
+0x916E,
+0x916F,
+0xB8EB,
+0xB8EC,
+0xB8ED,
+0x9170,
+0xB8EE,
+0x9171,
+0x9172,
+0x9173,
+0x9174,
+0xB8EF,
+0x9175,
+0x9176,
+0x9177,
+0x9178,
+0x9179,
+0x917A,
+0x9181,
+0x9182,
+0x9183,
+0x9184,
+0x9185,
+0x9186,
+0x9187,
+0x9188,
+0x9189,
+0x918A,
+0x918B,
+0x918C,
+0x918D,
+0x918E,
+0x918F,
+0x9190,
+0x9191,
+0x9192,
+0x9193,
+0x9194,
+0x9195,
+0xB8F0,
+0xB8F1,
+0x9196,
+0xB8F2,
+0xB8F3,
+0x9197,
+0x9198,
+0x9199,
+0xB8F4,
+0x919A,
+0xB8F5,
+0x919B,
+0x919C,
+0x919D,
+0x919E,
+0x919F,
+0xB8F6,
+0xB8F7,
+0x91A0,
+0xB8F8,
+0x91A1,
+0xB8F9,
+0x91A2,
+0x91A3,
+0x91A4,
+0x91A5,
+0x91A6,
+0x91A7,
+0xB8FA,
+0x91A8,
+0x91A9,
+0x91AA,
+0xB8FB,
+0x91AB,
+0x91AC,
+0x91AD,
+0x91AE,
+0x91AF,
+0x91B0,
+0x91B1,
+0x91B2,
+0x91B3,
+0x91B4,
+0x91B5,
+0x91B6,
+0x91B7,
+0x91B8,
+0x91B9,
+0xB8FC,
+0xB8FD,
+0x91BA,
+0x91BB,
+0x91BC,
+0x91BD,
+0x91BE,
+0x91BF,
+0x91C0,
+0x91C1,
+0x91C2,
+0x91C3,
+0x91C4,
+0x91C5,
+0x91C6,
+0x91C7,
+0x91C8,
+0x91C9,
+0x91CA,
+0x91CB,
+0x91CC,
+0x91CD,
+0x91CE,
+0x91CF,
+0x91D0,
+0x91D1,
+0x91D2,
+0x91D3,
+0x91D4,
+0x91D5,
+0x91D6,
+0x91D7,
+0x91D8,
+0x91D9,
+0x91DA,
+0x91DB,
+0xB8FE,
+0x91DC,
+0x91DD,
+0x91DE,
+0xB9A1,
+0x91DF,
+0x91E0,
+0x91E1,
+0xB9A2,
+0x91E2,
+0x91E3,
+0x91E4,
+0x91E5,
+0x91E6,
+0x91E7,
+0x91E8,
+0x91E9,
+0xB9A3,
+0x91EA,
+0xB9A4,
+0x91EB,
+0xB9A5,
+0x91EC,
+0x91ED,
+0x91EE,
+0x91EF,
+0x91F0,
+0x91F1,
+0xB9A6,
+0x91F2,
+0x91F3,
+0x91F4,
+0xB9A7,
+0x91F5,
+0x91F6,
+0x91F7,
+0xB9A8,
+0x91F8,
+0x91F9,
+0x91FA,
+0x91FB,
+0x91FC,
+0x91FD,
+0x91FE,
+0x9241,
+0xB9A9,
+0x9242,
+0xB9AA,
+0x9243,
+0x9244,
+0x9245,
+0x9246,
+0x9247,
+0x9248,
+0x9249,
+0x924A,
+0xB9AB,
+0xB9AC,
+0xB9AD,
+0x924B,
+0xB9AE,
+0x924C,
+0x924D,
+0xB9AF,
+0xB9B0,
+0xB9B1,
+0xB9B2,
+0x924E,
+0x924F,
+0x9250,
+0x9251,
+0x9252,
+0xB9B3,
+0xB9B4,
+0x9253,
+0xB9B5,
+0x9254,
+0xB9B6,
+0x9255,
+0x9256,
+0x9257,
+0xB9B7,
+0x9258,
+0xB9B8,
+0xB9B9,
+0x9259,
+0x925A,
+0x9261,
+0xB9BA,
+0x9262,
+0x9263,
+0x9264,
+0xB9BB,
+0x9265,
+0x9266,
+0x9267,
+0x9268,
+0x9269,
+0x926A,
+0x926B,
+0x926C,
+0xB9BC,
+0x926D,
+0xB9BD,
+0x926E,
+0x926F,
+0x9270,
+0x9271,
+0x9272,
+0x9273,
+0x9274,
+0x9275,
+0xB9BE,
+0x9276,
+0x9277,
+0x9278,
+0x9279,
+0x927A,
+0x9281,
+0x9282,
+0x9283,
+0x9284,
+0x9285,
+0x9286,
+0x9287,
+0x9288,
+0x9289,
+0x928A,
+0x928B,
+0x928C,
+0x928D,
+0x928E,
+0x928F,
+0x9290,
+0x9291,
+0x9292,
+0x9293,
+0x9294,
+0x9295,
+0x9296,
+0xB9BF,
+0x9297,
+0x9298,
+0x9299,
+0xB9C0,
+0x929A,
+0x929B,
+0x929C,
+0xB9C1,
+0x929D,
+0x929E,
+0x929F,
+0x92A0,
+0x92A1,
+0x92A2,
+0x92A3,
+0x92A4,
+0x92A5,
+0x92A6,
+0x92A7,
+0x92A8,
+0x92A9,
+0x92AA,
+0x92AB,
+0x92AC,
+0x92AD,
+0x92AE,
+0x92AF,
+0xB9C2,
+0x92B0,
+0x92B1,
+0x92B2,
+0xB9C3,
+0x92B3,
+0x92B4,
+0x92B5,
+0xB9C4,
+0x92B6,
+0x92B7,
+0x92B8,
+0x92B9,
+0x92BA,
+0x92BB,
+0x92BC,
+0xB9C5,
+0x92BD,
+0x92BE,
+0xB9C6,
+0x92BF,
+0x92C0,
+0x92C1,
+0x92C2,
+0x92C3,
+0x92C4,
+0x92C5,
+0x92C6,
+0xB9C7,
+0x92C7,
+0x92C8,
+0x92C9,
+0xB9C8,
+0x92CA,
+0x92CB,
+0x92CC,
+0xB9C9,
+0x92CD,
+0x92CE,
+0x92CF,
+0x92D0,
+0x92D1,
+0x92D2,
+0x92D3,
+0xB9CA,
+0x92D4,
+0x92D5,
+0xB9CB,
+0x92D6,
+0x92D7,
+0x92D8,
+0x92D9,
+0x92DA,
+0x92DB,
+0x92DC,
+0x92DD,
+0x92DE,
+0x92DF,
+0x92E0,
+0x92E1,
+0x92E2,
+0x92E3,
+0x92E4,
+0x92E5,
+0x92E6,
+0x92E7,
+0x92E8,
+0x92E9,
+0x92EA,
+0x92EB,
+0x92EC,
+0x92ED,
+0x92EE,
+0x92EF,
+0x92F0,
+0x92F1,
+0x92F2,
+0x92F3,
+0x92F4,
+0x92F5,
+0x92F6,
+0x92F7,
+0x92F8,
+0x92F9,
+0xB9CC,
+0xB9CD,
+0x92FA,
+0x92FB,
+0xB9CE,
+0x92FC,
+0x92FD,
+0xB9CF,
+0xB9D0,
+0x92FE,
+0xB9D1,
+0x9341,
+0x9342,
+0x9343,
+0x9344,
+0x9345,
+0xB9D2,
+0xB9D3,
+0x9346,
+0xB9D4,
+0xB9D5,
+0xB9D6,
+0x9347,
+0xB9D7,
+0x9348,
+0xB9D8,
+0x9349,
+0x934A,
+0xB9D9,
+0xB9DA,
+0xB9DB,
+0xB9DC,
+0xB9DD,
+0x934B,
+0x934C,
+0xB9DE,
+0xB9DF,
+0xB9E0,
+0xB9E1,
+0xB9E2,
+0x934D,
+0x934E,
+0x934F,
+0x9350,
+0xB9E3,
+0xB9E4,
+0x9351,
+0xB9E5,
+0x9352,
+0xB9E6,
+0x9353,
+0x9354,
+0x9355,
+0xB9E7,
+0x9356,
+0x9357,
+0xB9E8,
+0xB9E9,
+0x9358,
+0x9359,
+0xB9EA,
+0x935A,
+0x9361,
+0x9362,
+0xB9EB,
+0x9363,
+0x9364,
+0x9365,
+0x9366,
+0x9367,
+0x9368,
+0x9369,
+0xB9EC,
+0xB9ED,
+0x936A,
+0xB9EE,
+0xB9EF,
+0xB9F0,
+0x936B,
+0x936C,
+0x936D,
+0xB9F1,
+0x936E,
+0x936F,
+0xB9F2,
+0xB9F3,
+0x9370,
+0x9371,
+0xB9F4,
+0x9372,
+0x9373,
+0x9374,
+0x9375,
+0x9376,
+0x9377,
+0x9378,
+0x9379,
+0x937A,
+0x9381,
+0x9382,
+0x9383,
+0xB9F5,
+0x9384,
+0x9385,
+0x9386,
+0x9387,
+0x9388,
+0x9389,
+0x938A,
+0x938B,
+0x938C,
+0x938D,
+0x938E,
+0x938F,
+0x9390,
+0x9391,
+0x9392,
+0x9393,
+0x9394,
+0x9395,
+0x9396,
+0x9397,
+0x9398,
+0x9399,
+0x939A,
+0x939B,
+0x939C,
+0x939D,
+0x939E,
+0x939F,
+0x93A0,
+0x93A1,
+0x93A2,
+0x93A3,
+0x93A4,
+0x93A5,
+0x93A6,
+0x93A7,
+0x93A8,
+0x93A9,
+0xB9F6,
+0xB9F7,
+0x93AA,
+0x93AB,
+0xB9F8,
+0x93AC,
+0x93AD,
+0xB9F9,
+0xB9FA,
+0x93AE,
+0xB9FB,
+0x93AF,
+0x93B0,
+0x93B1,
+0x93B2,
+0x93B3,
+0xB9FC,
+0xB9FD,
+0x93B4,
+0xB9FE,
+0x93B5,
+0xBAA1,
+0xBAA2,
+0x93B6,
+0x93B7,
+0x93B8,
+0x93B9,
+0x93BA,
+0xBAA3,
+0xBAA4,
+0x93BB,
+0x93BC,
+0xBAA5,
+0x93BD,
+0x93BE,
+0xBAA6,
+0xBAA7,
+0x93BF,
+0x93C0,
+0x93C1,
+0x93C2,
+0x93C3,
+0x93C4,
+0x93C5,
+0xBAA8,
+0xBAA9,
+0x93C6,
+0xBAAA,
+0xBAAB,
+0xBAAC,
+0x93C7,
+0x93C8,
+0x93C9,
+0x93CA,
+0x93CB,
+0x93CC,
+0xBAAD,
+0xBAAE,
+0x93CD,
+0x93CE,
+0xBAAF,
+0x93CF,
+0x93D0,
+0x93D1,
+0xBAB0,
+0x93D2,
+0x93D3,
+0x93D4,
+0x93D5,
+0x93D6,
+0x93D7,
+0x93D8,
+0x93D9,
+0xBAB1,
+0x93DA,
+0xBAB2,
+0xBAB3,
+0xBAB4,
+0x93DB,
+0x93DC,
+0x93DD,
+0xBAB5,
+0x93DE,
+0x93DF,
+0xBAB6,
+0x93E0,
+0x93E1,
+0x93E2,
+0xBAB7,
+0x93E3,
+0x93E4,
+0x93E5,
+0x93E6,
+0x93E7,
+0x93E8,
+0x93E9,
+0x93EA,
+0x93EB,
+0x93EC,
+0x93ED,
+0x93EE,
+0x93EF,
+0x93F0,
+0x93F1,
+0x93F2,
+0x93F3,
+0x93F4,
+0x93F5,
+0x93F6,
+0x93F7,
+0x93F8,
+0x93F9,
+0xBAB8,
+0xBAB9,
+0xBABA,
+0x93FA,
+0xBABB,
+0x93FB,
+0x93FC,
+0x93FD,
+0xBABC,
+0x93FE,
+0x9441,
+0x9442,
+0x9443,
+0x9444,
+0x9445,
+0x9446,
+0xBABD,
+0xBABE,
+0x9447,
+0xBABF,
+0x9448,
+0xBAC0,
+0x9449,
+0x944A,
+0x944B,
+0x944C,
+0x944D,
+0x944E,
+0xBAC1,
+0x944F,
+0x9450,
+0x9451,
+0xBAC2,
+0x9452,
+0x9453,
+0x9454,
+0x9455,
+0x9456,
+0x9457,
+0x9458,
+0x9459,
+0x945A,
+0x9461,
+0x9462,
+0x9463,
+0x9464,
+0x9465,
+0x9466,
+0xBAC3,
+0x9467,
+0x9468,
+0x9469,
+0x946A,
+0x946B,
+0x946C,
+0x946D,
+0xBAC4,
+0x946E,
+0x946F,
+0x9470,
+0x9471,
+0x9472,
+0x9473,
+0x9474,
+0x9475,
+0x9476,
+0x9477,
+0x9478,
+0x9479,
+0x947A,
+0x9481,
+0x9482,
+0x9483,
+0x9484,
+0x9485,
+0x9486,
+0xBAC5,
+0x9487,
+0x9488,
+0x9489,
+0x948A,
+0x948B,
+0x948C,
+0x948D,
+0xBAC6,
+0xBAC7,
+0x948E,
+0x948F,
+0xBAC8,
+0x9490,
+0x9491,
+0x9492,
+0xBAC9,
+0x9493,
+0x9494,
+0x9495,
+0x9496,
+0x9497,
+0x9498,
+0x9499,
+0xBACA,
+0xBACB,
+0x949A,
+0x949B,
+0x949C,
+0x949D,
+0x949E,
+0x949F,
+0x94A0,
+0x94A1,
+0x94A2,
+0x94A3,
+0xBACC,
+0x94A4,
+0x94A5,
+0x94A6,
+0xBACD,
+0x94A7,
+0x94A8,
+0x94A9,
+0x94AA,
+0x94AB,
+0x94AC,
+0x94AD,
+0x94AE,
+0x94AF,
+0x94B0,
+0x94B1,
+0x94B2,
+0x94B3,
+0x94B4,
+0x94B5,
+0x94B6,
+0x94B7,
+0x94B8,
+0x94B9,
+0x94BA,
+0x94BB,
+0x94BC,
+0x94BD,
+0xBACE,
+0xBACF,
+0x94BE,
+0x94BF,
+0xBAD0,
+0x94C0,
+0x94C1,
+0xBAD1,
+0xBAD2,
+0xBAD3,
+0xBAD4,
+0x94C2,
+0x94C3,
+0x94C4,
+0x94C5,
+0x94C6,
+0xBAD5,
+0xBAD6,
+0x94C7,
+0xBAD7,
+0x94C8,
+0xBAD8,
+0x94C9,
+0x94CA,
+0x94CB,
+0xBAD9,
+0xBADA,
+0x94CC,
+0xBADB,
+0x94CD,
+0x94CE,
+0x94CF,
+0x94D0,
+0x94D1,
+0x94D2,
+0x94D3,
+0xBADC,
+0x94D4,
+0x94D5,
+0x94D6,
+0x94D7,
+0x94D8,
+0x94D9,
+0x94DA,
+0x94DB,
+0x94DC,
+0x94DD,
+0x94DE,
+0xBADD,
+0x94DF,
+0x94E0,
+0x94E1,
+0x94E2,
+0x94E3,
+0x94E4,
+0x94E5,
+0xBADE,
+0x94E6,
+0x94E7,
+0x94E8,
+0x94E9,
+0x94EA,
+0x94EB,
+0x94EC,
+0x94ED,
+0x94EE,
+0x94EF,
+0x94F0,
+0x94F1,
+0x94F2,
+0x94F3,
+0x94F4,
+0x94F5,
+0x94F6,
+0x94F7,
+0x94F8,
+0x94F9,
+0x94FA,
+0x94FB,
+0x94FC,
+0x94FD,
+0x94FE,
+0x9541,
+0x9542,
+0xBADF,
+0xBAE0,
+0x9543,
+0x9544,
+0xBAE1,
+0x9545,
+0x9546,
+0x9547,
+0xBAE2,
+0x9548,
+0x9549,
+0x954A,
+0x954B,
+0x954C,
+0x954D,
+0x954E,
+0x954F,
+0x9550,
+0x9551,
+0x9552,
+0x9553,
+0xBAE3,
+0x9554,
+0x9555,
+0x9556,
+0x9557,
+0x9558,
+0x9559,
+0xBAE4,
+0x955A,
+0x9561,
+0x9562,
+0xBAE5,
+0x9563,
+0x9564,
+0x9565,
+0xBAE6,
+0x9566,
+0x9567,
+0x9568,
+0x9569,
+0x956A,
+0x956B,
+0x956C,
+0xBAE7,
+0x956D,
+0x956E,
+0xBAE8,
+0x956F,
+0xBAE9,
+0x9570,
+0x9571,
+0x9572,
+0x9573,
+0x9574,
+0x9575,
+0xBAEA,
+0xBAEB,
+0x9576,
+0x9577,
+0xBAEC,
+0x9578,
+0x9579,
+0x957A,
+0xBAED,
+0x9581,
+0x9582,
+0x9583,
+0x9584,
+0x9585,
+0x9586,
+0x9587,
+0xBAEE,
+0xBAEF,
+0x9588,
+0xBAF0,
+0x9589,
+0x958A,
+0x958B,
+0x958C,
+0x958D,
+0x958E,
+0x958F,
+0x9590,
+0x9591,
+0x9592,
+0x9593,
+0x9594,
+0x9595,
+0x9596,
+0x9597,
+0x9598,
+0x9599,
+0x959A,
+0x959B,
+0x959C,
+0x959D,
+0x959E,
+0x959F,
+0x95A0,
+0x95A1,
+0x95A2,
+0x95A3,
+0x95A4,
+0x95A5,
+0x95A6,
+0x95A7,
+0x95A8,
+0x95A9,
+0x95AA,
+0x95AB,
+0x95AC,
+0xBAF1,
+0xBAF2,
+0x95AD,
+0x95AE,
+0xBAF3,
+0x95AF,
+0x95B0,
+0x95B1,
+0xBAF4,
+0x95B2,
+0xBAF5,
+0x95B3,
+0x95B4,
+0x95B5,
+0x95B6,
+0x95B7,
+0xBAF6,
+0xBAF7,
+0x95B8,
+0xBAF8,
+0x95B9,
+0xBAF9,
+0xBAFA,
+0xBAFB,
+0x95BA,
+0x95BB,
+0x95BC,
+0x95BD,
+0xBAFC,
+0xBAFD,
+0x95BE,
+0x95BF,
+0xBAFE,
+0x95C0,
+0x95C1,
+0x95C2,
+0xBBA1,
+0x95C3,
+0xBBA2,
+0x95C4,
+0x95C5,
+0x95C6,
+0x95C7,
+0x95C8,
+0xBBA3,
+0xBBA4,
+0x95C9,
+0xBBA5,
+0xBBA6,
+0xBBA7,
+0x95CA,
+0x95CB,
+0x95CC,
+0x95CD,
+0x95CE,
+0xBBA8,
+0xBBA9,
+0xBBAA,
+0x95CF,
+0x95D0,
+0xBBAB,
+0x95D1,
+0x95D2,
+0x95D3,
+0xBBAC,
+0x95D4,
+0x95D5,
+0x95D6,
+0x95D7,
+0x95D8,
+0x95D9,
+0x95DA,
+0xBBAD,
+0xBBAE,
+0x95DB,
+0xBBAF,
+0xBBB0,
+0xBBB1,
+0x95DC,
+0x95DD,
+0x95DE,
+0x95DF,
+0x95E0,
+0x95E1,
+0xBBB2,
+0xBBB3,
+0x95E2,
+0x95E3,
+0x95E4,
+0x95E5,
+0x95E6,
+0x95E7,
+0x95E8,
+0x95E9,
+0x95EA,
+0x95EB,
+0x95EC,
+0x95ED,
+0x95EE,
+0x95EF,
+0xBBB4,
+0x95F0,
+0x95F1,
+0x95F2,
+0x95F3,
+0x95F4,
+0x95F5,
+0x95F6,
+0x95F7,
+0x95F8,
+0x95F9,
+0x95FA,
+0x95FB,
+0x95FC,
+0x95FD,
+0x95FE,
+0x9641,
+0x9642,
+0x9643,
+0x9644,
+0x9645,
+0x9646,
+0x9647,
+0x9648,
+0x9649,
+0x964A,
+0x964B,
+0x964C,
+0x964D,
+0x964E,
+0x964F,
+0x9650,
+0x9651,
+0x9652,
+0x9653,
+0x9654,
+0x9655,
+0x9656,
+0x9657,
+0x9658,
+0xBBB5,
+0xBBB6,
+0x9659,
+0x965A,
+0xBBB7,
+0x9661,
+0x9662,
+0xBBB8,
+0xBBB9,
+0x9663,
+0x9664,
+0x9665,
+0x9666,
+0x9667,
+0x9668,
+0x9669,
+0xBBBA,
+0x966A,
+0x966B,
+0xBBBB,
+0xBBBC,
+0xBBBD,
+0x966C,
+0x966D,
+0x966E,
+0x966F,
+0x9670,
+0x9671,
+0xBBBE,
+0x9672,
+0x9673,
+0x9674,
+0x9675,
+0x9676,
+0x9677,
+0x9678,
+0x9679,
+0x967A,
+0x9681,
+0x9682,
+0x9683,
+0x9684,
+0x9685,
+0x9686,
+0x9687,
+0x9688,
+0x9689,
+0x968A,
+0x968B,
+0xBBBF,
+0x968C,
+0x968D,
+0x968E,
+0x968F,
+0x9690,
+0x9691,
+0xBBC0,
+0xBBC1,
+0x9692,
+0x9693,
+0x9694,
+0x9695,
+0x9696,
+0x9697,
+0x9698,
+0x9699,
+0x969A,
+0x969B,
+0x969C,
+0x969D,
+0x969E,
+0x969F,
+0xBBC2,
+0xBBC3,
+0x96A0,
+0xBBC4,
+0xBBC5,
+0xBBC6,
+0x96A1,
+0x96A2,
+0x96A3,
+0x96A4,
+0x96A5,
+0x96A6,
+0x96A7,
+0x96A8,
+0x96A9,
+0x96AA,
+0x96AB,
+0x96AC,
+0x96AD,
+0x96AE,
+0x96AF,
+0x96B0,
+0x96B1,
+0x96B2,
+0x96B3,
+0x96B4,
+0x96B5,
+0x96B6,
+0x96B7,
+0x96B8,
+0x96B9,
+0x96BA,
+0x96BB,
+0x96BC,
+0x96BD,
+0x96BE,
+0x96BF,
+0x96C0,
+0x96C1,
+0x96C2,
+0xBBC7,
+0xBBC8,
+0x96C3,
+0x96C4,
+0xBBC9,
+0x96C5,
+0x96C6,
+0x96C7,
+0xBBCA,
+0x96C8,
+0x96C9,
+0x96CA,
+0x96CB,
+0x96CC,
+0x96CD,
+0x96CE,
+0xBBCB,
+0xBBCC,
+0x96CF,
+0x96D0,
+0x96D1,
+0xBBCD,
+0x96D2,
+0x96D3,
+0x96D4,
+0x96D5,
+0x96D6,
+0x96D7,
+0x96D8,
+0x96D9,
+0x96DA,
+0x96DB,
+0x96DC,
+0x96DD,
+0x96DE,
+0x96DF,
+0x96E0,
+0x96E1,
+0x96E2,
+0x96E3,
+0x96E4,
+0x96E5,
+0x96E6,
+0x96E7,
+0x96E8,
+0x96E9,
+0x96EA,
+0x96EB,
+0x96EC,
+0x96ED,
+0x96EE,
+0x96EF,
+0x96F0,
+0x96F1,
+0x96F2,
+0x96F3,
+0x96F4,
+0x96F5,
+0x96F6,
+0x96F7,
+0x96F8,
+0x96F9,
+0x96FA,
+0x96FB,
+0x96FC,
+0x96FD,
+0x96FE,
+0x9741,
+0x9742,
+0x9743,
+0x9744,
+0x9745,
+0x9746,
+0x9747,
+0x9748,
+0x9749,
+0x974A,
+0x974B,
+0x974C,
+0x974D,
+0x974E,
+0x974F,
+0x9750,
+0x9751,
+0xBBCE,
+0x9752,
+0x9753,
+0x9754,
+0x9755,
+0x9756,
+0x9757,
+0x9758,
+0x9759,
+0x975A,
+0x9761,
+0x9762,
+0x9763,
+0x9764,
+0x9765,
+0x9766,
+0x9767,
+0x9768,
+0x9769,
+0x976A,
+0x976B,
+0x976C,
+0x976D,
+0x976E,
+0x976F,
+0x9770,
+0x9771,
+0x9772,
+0xBBCF,
+0x9773,
+0x9774,
+0x9775,
+0x9776,
+0x9777,
+0x9778,
+0x9779,
+0x977A,
+0x9781,
+0x9782,
+0x9783,
+0x9784,
+0x9785,
+0x9786,
+0x9787,
+0x9788,
+0x9789,
+0x978A,
+0x978B,
+0x978C,
+0xBBD0,
+0x978D,
+0x978E,
+0x978F,
+0x9790,
+0x9791,
+0x9792,
+0xBBD1,
+0xBBD2,
+0x9793,
+0x9794,
+0xBBD3,
+0x9795,
+0x9796,
+0x9797,
+0xBBD4,
+0x9798,
+0x9799,
+0x979A,
+0x979B,
+0x979C,
+0x979D,
+0x979E,
+0xBBD5,
+0x979F,
+0x97A0,
+0xBBD6,
+0x97A1,
+0xBBD7,
+0x97A2,
+0x97A3,
+0x97A4,
+0x97A5,
+0x97A6,
+0x97A7,
+0x97A8,
+0x97A9,
+0x97AA,
+0x97AB,
+0x97AC,
+0x97AD,
+0x97AE,
+0x97AF,
+0x97B0,
+0x97B1,
+0x97B2,
+0x97B3,
+0x97B4,
+0x97B5,
+0x97B6,
+0x97B7,
+0x97B8,
+0x97B9,
+0x97BA,
+0x97BB,
+0x97BC,
+0x97BD,
+0x97BE,
+0x97BF,
+0x97C0,
+0x97C1,
+0x97C2,
+0x97C3,
+0x97C4,
+0x97C5,
+0x97C6,
+0x97C7,
+0x97C8,
+0x97C9,
+0x97CA,
+0x97CB,
+0x97CC,
+0x97CD,
+0x97CE,
+0x97CF,
+0x97D0,
+0x97D1,
+0x97D2,
+0x97D3,
+0x97D4,
+0x97D5,
+0x97D6,
+0x97D7,
+0x97D8,
+0x97D9,
+0x97DA,
+0x97DB,
+0x97DC,
+0x97DD,
+0x97DE,
+0x97DF,
+0x97E0,
+0x97E1,
+0x97E2,
+0x97E3,
+0x97E4,
+0x97E5,
+0x97E6,
+0x97E7,
+0x97E8,
+0x97E9,
+0x97EA,
+0x97EB,
+0x97EC,
+0x97ED,
+0x97EE,
+0x97EF,
+0x97F0,
+0x97F1,
+0x97F2,
+0x97F3,
+0x97F4,
+0x97F5,
+0x97F6,
+0x97F7,
+0x97F8,
+0x97F9,
+0x97FA,
+0x97FB,
+0xBBD8,
+0x97FC,
+0x97FD,
+0x97FE,
+0x9841,
+0x9842,
+0x9843,
+0x9844,
+0x9845,
+0x9846,
+0x9847,
+0x9848,
+0x9849,
+0x984A,
+0x984B,
+0x984C,
+0x984D,
+0x984E,
+0x984F,
+0x9850,
+0x9851,
+0xBBD9,
+0x9852,
+0x9853,
+0x9854,
+0x9855,
+0x9856,
+0x9857,
+0xBBDA,
+0x9858,
+0x9859,
+0x985A,
+0xBBDB,
+0x9861,
+0x9862,
+0x9863,
+0xBBDC,
+0x9864,
+0x9865,
+0x9866,
+0x9867,
+0x9868,
+0x9869,
+0x986A,
+0xBBDD,
+0xBBDE,
+0x986B,
+0x986C,
+0x986D,
+0x986E,
+0x986F,
+0x9870,
+0x9871,
+0x9872,
+0x9873,
+0x9874,
+0x9875,
+0x9876,
+0x9877,
+0x9878,
+0x9879,
+0x987A,
+0x9881,
+0x9882,
+0x9883,
+0x9884,
+0x9885,
+0x9886,
+0x9887,
+0x9888,
+0x9889,
+0x988A,
+0x988B,
+0x988C,
+0x988D,
+0x988E,
+0x988F,
+0x9890,
+0x9891,
+0x9892,
+0x9893,
+0x9894,
+0x9895,
+0x9896,
+0xBBDF,
+0xBBE0,
+0x9897,
+0x9898,
+0xBBE1,
+0x9899,
+0x989A,
+0x989B,
+0xBBE2,
+0x989C,
+0x989D,
+0x989E,
+0x989F,
+0x98A0,
+0x98A1,
+0x98A2,
+0xBBE3,
+0xBBE4,
+0x98A3,
+0xBBE5,
+0x98A4,
+0xBBE6,
+0x98A5,
+0x98A6,
+0x98A7,
+0x98A8,
+0x98A9,
+0x98AA,
+0xBBE7,
+0xBBE8,
+0x98AB,
+0xBBE9,
+0xBBEA,
+0x98AC,
+0x98AD,
+0xBBEB,
+0xBBEC,
+0xBBED,
+0xBBEE,
+0x98AE,
+0x98AF,
+0x98B0,
+0x98B1,
+0x98B2,
+0xBBEF,
+0xBBF0,
+0x98B3,
+0xBBF1,
+0xBBF2,
+0xBBF3,
+0x98B4,
+0x98B5,
+0x98B6,
+0xBBF4,
+0x98B7,
+0x98B8,
+0xBBF5,
+0xBBF6,
+0x98B9,
+0x98BA,
+0xBBF7,
+0x98BB,
+0x98BC,
+0x98BD,
+0xBBF8,
+0x98BE,
+0x98BF,
+0x98C0,
+0x98C1,
+0x98C2,
+0x98C3,
+0x98C4,
+0xBBF9,
+0xBBFA,
+0x98C5,
+0xBBFB,
+0xBBFC,
+0xBBFD,
+0x98C6,
+0x98C7,
+0x98C8,
+0x98C9,
+0x98CA,
+0x98CB,
+0xBBFE,
+0xBCA1,
+0x98CC,
+0x98CD,
+0xBCA2,
+0x98CE,
+0x98CF,
+0x98D0,
+0xBCA3,
+0x98D1,
+0x98D2,
+0x98D3,
+0x98D4,
+0x98D5,
+0x98D6,
+0x98D7,
+0xBCA4,
+0xBCA5,
+0x98D8,
+0xBCA6,
+0x98D9,
+0xBCA7,
+0x98DA,
+0x98DB,
+0x98DC,
+0x98DD,
+0x98DE,
+0x98DF,
+0xBCA8,
+0x98E0,
+0x98E1,
+0x98E2,
+0xBCA9,
+0x98E3,
+0x98E4,
+0x98E5,
+0xBCAA,
+0x98E6,
+0x98E7,
+0x98E8,
+0x98E9,
+0x98EA,
+0x98EB,
+0x98EC,
+0xBCAB,
+0x98ED,
+0x98EE,
+0x98EF,
+0x98F0,
+0xBCAC,
+0x98F1,
+0x98F2,
+0x98F3,
+0x98F4,
+0x98F5,
+0x98F6,
+0xBCAD,
+0xBCAE,
+0xBCAF,
+0xBCB0,
+0xBCB1,
+0x98F7,
+0x98F8,
+0xBCB2,
+0xBCB3,
+0x98F9,
+0xBCB4,
+0xBCB5,
+0x98FA,
+0x98FB,
+0x98FC,
+0x98FD,
+0xBCB6,
+0xBCB7,
+0x98FE,
+0xBCB8,
+0xBCB9,
+0xBCBA,
+0x9941,
+0x9942,
+0x9943,
+0x9944,
+0xBCBB,
+0x9945,
+0xBCBC,
+0xBCBD,
+0x9946,
+0x9947,
+0xBCBE,
+0x9948,
+0x9949,
+0x994A,
+0xBCBF,
+0x994B,
+0x994C,
+0x994D,
+0x994E,
+0x994F,
+0x9950,
+0x9951,
+0xBCC0,
+0xBCC1,
+0x9952,
+0xBCC2,
+0xBCC3,
+0xBCC4,
+0x9953,
+0x9954,
+0x9955,
+0x9956,
+0x9957,
+0x9958,
+0xBCC5,
+0xBCC6,
+0x9959,
+0x995A,
+0xBCC7,
+0x9961,
+0x9962,
+0x9963,
+0xBCC8,
+0x9964,
+0x9965,
+0x9966,
+0x9967,
+0x9968,
+0x9969,
+0x996A,
+0xBCC9,
+0xBCCA,
+0x996B,
+0xBCCB,
+0xBCCC,
+0xBCCD,
+0x996C,
+0x996D,
+0x996E,
+0x996F,
+0x9970,
+0x9971,
+0xBCCE,
+0x9972,
+0x9973,
+0x9974,
+0xBCCF,
+0x9975,
+0x9976,
+0x9977,
+0xBCD0,
+0x9978,
+0x9979,
+0x997A,
+0x9981,
+0x9982,
+0x9983,
+0x9984,
+0x9985,
+0x9986,
+0x9987,
+0x9988,
+0x9989,
+0xBCD1,
+0x998A,
+0x998B,
+0x998C,
+0x998D,
+0x998E,
+0x998F,
+0xBCD2,
+0xBCD3,
+0xBCD4,
+0x9990,
+0xBCD5,
+0x9991,
+0x9992,
+0x9993,
+0xBCD6,
+0x9994,
+0xBCD7,
+0x9995,
+0x9996,
+0x9997,
+0x9998,
+0x9999,
+0xBCD8,
+0xBCD9,
+0x999A,
+0xBCDA,
+0x999B,
+0xBCDB,
+0x999C,
+0x999D,
+0x999E,
+0xBCDC,
+0x999F,
+0x99A0,
+0xBCDD,
+0xBCDE,
+0x99A1,
+0x99A2,
+0xBCDF,
+0x99A3,
+0x99A4,
+0x99A5,
+0xBCE0,
+0x99A6,
+0x99A7,
+0x99A8,
+0x99A9,
+0x99AA,
+0x99AB,
+0x99AC,
+0x99AD,
+0x99AE,
+0x99AF,
+0x99B0,
+0x99B1,
+0xBCE1,
+0x99B2,
+0x99B3,
+0x99B4,
+0x99B5,
+0x99B6,
+0x99B7,
+0xBCE2,
+0x99B8,
+0x99B9,
+0x99BA,
+0xBCE3,
+0x99BB,
+0x99BC,
+0x99BD,
+0xBCE4,
+0x99BE,
+0x99BF,
+0x99C0,
+0x99C1,
+0x99C2,
+0x99C3,
+0x99C4,
+0xBCE5,
+0x99C5,
+0x99C6,
+0xBCE6,
+0xBCE7,
+0x99C7,
+0x99C8,
+0x99C9,
+0x99CA,
+0x99CB,
+0x99CC,
+0x99CD,
+0xBCE8,
+0x99CE,
+0x99CF,
+0x99D0,
+0xBCE9,
+0x99D1,
+0x99D2,
+0x99D3,
+0xBCEA,
+0x99D4,
+0x99D5,
+0x99D6,
+0x99D7,
+0x99D8,
+0x99D9,
+0x99DA,
+0xBCEB,
+0xBCEC,
+0x99DB,
+0xBCED,
+0x99DC,
+0x99DD,
+0x99DE,
+0x99DF,
+0x99E0,
+0x99E1,
+0x99E2,
+0x99E3,
+0xBCEE,
+0xBCEF,
+0x99E4,
+0x99E5,
+0xBCF0,
+0x99E6,
+0x99E7,
+0x99E8,
+0xBCF1,
+0x99E9,
+0x99EA,
+0x99EB,
+0x99EC,
+0x99ED,
+0x99EE,
+0x99EF,
+0xBCF2,
+0xBCF3,
+0x99F0,
+0xBCF4,
+0x99F1,
+0xBCF5,
+0x99F2,
+0x99F3,
+0x99F4,
+0x99F5,
+0x99F6,
+0x99F7,
+0xBCF6,
+0xBCF7,
+0x99F8,
+0x99F9,
+0xBCF8,
+0x99FA,
+0x99FB,
+0xBCF9,
+0xBCFA,
+0x99FC,
+0x99FD,
+0x99FE,
+0x9A41,
+0x9A42,
+0x9A43,
+0x9A44,
+0xBCFB,
+0xBCFC,
+0x9A45,
+0xBCFD,
+0x9A46,
+0xBCFE,
+0x9A47,
+0xBDA1,
+0x9A48,
+0xBDA2,
+0xBDA3,
+0x9A49,
+0xBDA4,
+0x9A4A,
+0x9A4B,
+0x9A4C,
+0x9A4D,
+0x9A4E,
+0x9A4F,
+0x9A50,
+0x9A51,
+0x9A52,
+0x9A53,
+0x9A54,
+0x9A55,
+0x9A56,
+0x9A57,
+0x9A58,
+0x9A59,
+0x9A5A,
+0x9A61,
+0x9A62,
+0xBDA5,
+0x9A63,
+0x9A64,
+0x9A65,
+0x9A66,
+0x9A67,
+0x9A68,
+0x9A69,
+0xBDA6,
+0xBDA7,
+0x9A6A,
+0x9A6B,
+0xBDA8,
+0x9A6C,
+0x9A6D,
+0x9A6E,
+0xBDA9,
+0x9A6F,
+0x9A70,
+0x9A71,
+0x9A72,
+0x9A73,
+0x9A74,
+0x9A75,
+0xBDAA,
+0x9A76,
+0x9A77,
+0x9A78,
+0x9A79,
+0xBDAB,
+0x9A7A,
+0x9A81,
+0x9A82,
+0x9A83,
+0x9A84,
+0x9A85,
+0xBDAC,
+0xBDAD,
+0x9A86,
+0x9A87,
+0xBDAE,
+0x9A88,
+0x9A89,
+0x9A8A,
+0xBDAF,
+0x9A8B,
+0x9A8C,
+0x9A8D,
+0x9A8E,
+0x9A8F,
+0x9A90,
+0x9A91,
+0xBDB0,
+0xBDB1,
+0x9A92,
+0xBDB2,
+0x9A93,
+0xBDB3,
+0x9A94,
+0x9A95,
+0x9A96,
+0x9A97,
+0x9A98,
+0x9A99,
+0xBDB4,
+0xBDB5,
+0x9A9A,
+0x9A9B,
+0x9A9C,
+0x9A9D,
+0x9A9E,
+0x9A9F,
+0xBDB6,
+0x9AA0,
+0x9AA1,
+0x9AA2,
+0x9AA3,
+0x9AA4,
+0x9AA5,
+0x9AA6,
+0xBDB7,
+0x9AA7,
+0x9AA8,
+0xBDB8,
+0x9AA9,
+0xBDB9,
+0x9AAA,
+0x9AAB,
+0x9AAC,
+0x9AAD,
+0x9AAE,
+0x9AAF,
+0xBDBA,
+0xBDBB,
+0x9AB0,
+0x9AB1,
+0xBDBC,
+0x9AB2,
+0x9AB3,
+0x9AB4,
+0xBDBD,
+0xBDBE,
+0x9AB5,
+0x9AB6,
+0x9AB7,
+0x9AB8,
+0x9AB9,
+0x9ABA,
+0xBDBF,
+0xBDC0,
+0x9ABB,
+0xBDC1,
+0x9ABC,
+0xBDC2,
+0x9ABD,
+0x9ABE,
+0x9ABF,
+0x9AC0,
+0x9AC1,
+0x9AC2,
+0x9AC3,
+0x9AC4,
+0x9AC5,
+0x9AC6,
+0x9AC7,
+0x9AC8,
+0x9AC9,
+0x9ACA,
+0x9ACB,
+0x9ACC,
+0x9ACD,
+0x9ACE,
+0x9ACF,
+0x9AD0,
+0x9AD1,
+0x9AD2,
+0x9AD3,
+0x9AD4,
+0x9AD5,
+0x9AD6,
+0x9AD7,
+0x9AD8,
+0x9AD9,
+0x9ADA,
+0x9ADB,
+0x9ADC,
+0x9ADD,
+0x9ADE,
+0xBDC3,
+0xBDC4,
+0x9ADF,
+0x9AE0,
+0xBDC5,
+0x9AE1,
+0x9AE2,
+0xBDC6,
+0xBDC7,
+0x9AE3,
+0x9AE4,
+0x9AE5,
+0x9AE6,
+0x9AE7,
+0x9AE8,
+0xBDC8,
+0xBDC9,
+0xBDCA,
+0x9AE9,
+0xBDCB,
+0x9AEA,
+0xBDCC,
+0x9AEB,
+0x9AEC,
+0x9AED,
+0x9AEE,
+0xBDCD,
+0x9AEF,
+0xBDCE,
+0xBDCF,
+0x9AF0,
+0xBDD0,
+0xBDD1,
+0x9AF1,
+0x9AF2,
+0x9AF3,
+0xBDD2,
+0x9AF4,
+0x9AF5,
+0x9AF6,
+0x9AF7,
+0x9AF8,
+0x9AF9,
+0x9AFA,
+0xBDD3,
+0xBDD4,
+0x9AFB,
+0x9AFC,
+0xBDD5,
+0xBDD6,
+0x9AFD,
+0x9AFE,
+0x9B41,
+0x9B42,
+0x9B43,
+0xBDD7,
+0xBDD8,
+0xBDD9,
+0x9B44,
+0x9B45,
+0xBDDA,
+0x9B46,
+0x9B47,
+0x9B48,
+0xBDDB,
+0x9B49,
+0x9B4A,
+0x9B4B,
+0x9B4C,
+0x9B4D,
+0x9B4E,
+0x9B4F,
+0xBDDC,
+0xBDDD,
+0x9B50,
+0x9B51,
+0xBDDE,
+0xBDDF,
+0x9B52,
+0x9B53,
+0x9B54,
+0x9B55,
+0x9B56,
+0x9B57,
+0x9B58,
+0x9B59,
+0x9B5A,
+0x9B61,
+0x9B62,
+0x9B63,
+0x9B64,
+0x9B65,
+0x9B66,
+0x9B67,
+0x9B68,
+0x9B69,
+0x9B6A,
+0x9B6B,
+0x9B6C,
+0x9B6D,
+0x9B6E,
+0x9B6F,
+0x9B70,
+0x9B71,
+0x9B72,
+0xBDE0,
+0x9B73,
+0x9B74,
+0x9B75,
+0x9B76,
+0x9B77,
+0x9B78,
+0x9B79,
+0x9B7A,
+0x9B81,
+0x9B82,
+0x9B83,
+0x9B84,
+0x9B85,
+0x9B86,
+0x9B87,
+0x9B88,
+0x9B89,
+0x9B8A,
+0x9B8B,
+0x9B8C,
+0x9B8D,
+0x9B8E,
+0x9B8F,
+0x9B90,
+0x9B91,
+0x9B92,
+0x9B93,
+0x9B94,
+0x9B95,
+0x9B96,
+0x9B97,
+0x9B98,
+0x9B99,
+0x9B9A,
+0xBDE1,
+0xBDE2,
+0x9B9B,
+0x9B9C,
+0xBDE3,
+0x9B9D,
+0x9B9E,
+0x9B9F,
+0xBDE4,
+0x9BA0,
+0xBDE5,
+0x9BA1,
+0x9BA2,
+0x9BA3,
+0x9BA4,
+0x9BA5,
+0xBDE6,
+0xBDE7,
+0x9BA6,
+0x9BA7,
+0xBDE8,
+0xBDE9,
+0x9BA8,
+0x9BA9,
+0x9BAA,
+0x9BAB,
+0x9BAC,
+0x9BAD,
+0xBDEA,
+0x9BAE,
+0x9BAF,
+0x9BB0,
+0xBDEB,
+0x9BB1,
+0x9BB2,
+0x9BB3,
+0xBDEC,
+0x9BB4,
+0x9BB5,
+0x9BB6,
+0x9BB7,
+0x9BB8,
+0x9BB9,
+0x9BBA,
+0x9BBB,
+0x9BBC,
+0x9BBD,
+0x9BBE,
+0x9BBF,
+0x9BC0,
+0x9BC1,
+0x9BC2,
+0x9BC3,
+0x9BC4,
+0x9BC5,
+0x9BC6,
+0x9BC7,
+0x9BC8,
+0x9BC9,
+0x9BCA,
+0x9BCB,
+0x9BCC,
+0x9BCD,
+0x9BCE,
+0x9BCF,
+0x9BD0,
+0x9BD1,
+0x9BD2,
+0x9BD3,
+0x9BD4,
+0x9BD5,
+0x9BD6,
+0x9BD7,
+0x9BD8,
+0x9BD9,
+0x9BDA,
+0x9BDB,
+0x9BDC,
+0x9BDD,
+0x9BDE,
+0x9BDF,
+0x9BE0,
+0x9BE1,
+0x9BE2,
+0x9BE3,
+0x9BE4,
+0x9BE5,
+0x9BE6,
+0xBDED,
+0x9BE7,
+0x9BE8,
+0x9BE9,
+0x9BEA,
+0x9BEB,
+0x9BEC,
+0x9BED,
+0x9BEE,
+0x9BEF,
+0x9BF0,
+0x9BF1,
+0x9BF2,
+0x9BF3,
+0x9BF4,
+0x9BF5,
+0x9BF6,
+0x9BF7,
+0x9BF8,
+0x9BF9,
+0x9BFA,
+0x9BFB,
+0x9BFC,
+0x9BFD,
+0xBDEE,
+0xBDEF,
+0x9BFE,
+0x9C41,
+0xBDF0,
+0x9C42,
+0x9C43,
+0xBDF1,
+0xBDF2,
+0x9C44,
+0xBDF3,
+0x9C45,
+0x9C46,
+0x9C47,
+0x9C48,
+0x9C49,
+0xBDF4,
+0xBDF5,
+0x9C4A,
+0x9C4B,
+0x9C4C,
+0xBDF6,
+0x9C4D,
+0x9C4E,
+0x9C4F,
+0x9C50,
+0x9C51,
+0x9C52,
+0xBDF7,
+0xBDF8,
+0x9C53,
+0x9C54,
+0xBDF9,
+0x9C55,
+0x9C56,
+0x9C57,
+0x9C58,
+0x9C59,
+0x9C5A,
+0x9C61,
+0x9C62,
+0x9C63,
+0x9C64,
+0x9C65,
+0x9C66,
+0x9C67,
+0x9C68,
+0x9C69,
+0xBDFA,
+0x9C6A,
+0x9C6B,
+0x9C6C,
+0x9C6D,
+0x9C6E,
+0x9C6F,
+0x9C70,
+0xBDFB,
+0x9C71,
+0x9C72,
+0x9C73,
+0x9C74,
+0x9C75,
+0x9C76,
+0x9C77,
+0x9C78,
+0x9C79,
+0x9C7A,
+0x9C81,
+0x9C82,
+0x9C83,
+0x9C84,
+0x9C85,
+0x9C86,
+0x9C87,
+0x9C88,
+0x9C89,
+0xBDFC,
+0x9C8A,
+0x9C8B,
+0x9C8C,
+0x9C8D,
+0x9C8E,
+0x9C8F,
+0x9C90,
+0xBDFD,
+0x9C91,
+0x9C92,
+0x9C93,
+0xBDFE,
+0x9C94,
+0x9C95,
+0x9C96,
+0xBEA1,
+0x9C97,
+0x9C98,
+0x9C99,
+0x9C9A,
+0x9C9B,
+0x9C9C,
+0x9C9D,
+0xBEA2,
+0xBEA3,
+0x9C9E,
+0x9C9F,
+0x9CA0,
+0x9CA1,
+0x9CA2,
+0x9CA3,
+0x9CA4,
+0x9CA5,
+0x9CA6,
+0x9CA7,
+0xBEA4,
+0x9CA8,
+0x9CA9,
+0x9CAA,
+0x9CAB,
+0x9CAC,
+0x9CAD,
+0x9CAE,
+0x9CAF,
+0x9CB0,
+0x9CB1,
+0x9CB2,
+0x9CB3,
+0x9CB4,
+0x9CB5,
+0x9CB6,
+0x9CB7,
+0x9CB8,
+0x9CB9,
+0x9CBA,
+0x9CBB,
+0x9CBC,
+0x9CBD,
+0x9CBE,
+0x9CBF,
+0x9CC0,
+0x9CC1,
+0x9CC2,
+0xBEA5,
+0xBEA6,
+0x9CC3,
+0x9CC4,
+0xBEA7,
+0x9CC5,
+0x9CC6,
+0x9CC7,
+0xBEA8,
+0x9CC8,
+0x9CC9,
+0x9CCA,
+0x9CCB,
+0x9CCC,
+0x9CCD,
+0x9CCE,
+0xBEA9,
+0xBEAA,
+0x9CCF,
+0x9CD0,
+0x9CD1,
+0xBEAB,
+0x9CD2,
+0x9CD3,
+0x9CD4,
+0x9CD5,
+0x9CD6,
+0x9CD7,
+0xBEAC,
+0x9CD8,
+0x9CD9,
+0x9CDA,
+0x9CDB,
+0x9CDC,
+0x9CDD,
+0x9CDE,
+0x9CDF,
+0x9CE0,
+0x9CE1,
+0x9CE2,
+0x9CE3,
+0x9CE4,
+0x9CE5,
+0x9CE6,
+0x9CE7,
+0x9CE8,
+0x9CE9,
+0x9CEA,
+0xBEAD,
+0x9CEB,
+0x9CEC,
+0x9CED,
+0x9CEE,
+0x9CEF,
+0x9CF0,
+0x9CF1,
+0xBEAE,
+0x9CF2,
+0x9CF3,
+0x9CF4,
+0x9CF5,
+0x9CF6,
+0x9CF7,
+0x9CF8,
+0x9CF9,
+0x9CFA,
+0x9CFB,
+0x9CFC,
+0x9CFD,
+0x9CFE,
+0x9D41,
+0x9D42,
+0x9D43,
+0x9D44,
+0x9D45,
+0x9D46,
+0x9D47,
+0x9D48,
+0x9D49,
+0x9D4A,
+0x9D4B,
+0x9D4C,
+0x9D4D,
+0x9D4E,
+0xBEAF,
+0x9D4F,
+0x9D50,
+0x9D51,
+0xBEB0,
+0x9D52,
+0x9D53,
+0x9D54,
+0x9D55,
+0x9D56,
+0x9D57,
+0x9D58,
+0x9D59,
+0x9D5A,
+0x9D61,
+0x9D62,
+0x9D63,
+0x9D64,
+0x9D65,
+0x9D66,
+0x9D67,
+0x9D68,
+0x9D69,
+0x9D6A,
+0x9D6B,
+0x9D6C,
+0x9D6D,
+0x9D6E,
+0x9D6F,
+0x9D70,
+0x9D71,
+0x9D72,
+0x9D73,
+0x9D74,
+0x9D75,
+0x9D76,
+0x9D77,
+0x9D78,
+0x9D79,
+0x9D7A,
+0x9D81,
+0x9D82,
+0x9D83,
+0x9D84,
+0x9D85,
+0x9D86,
+0x9D87,
+0x9D88,
+0x9D89,
+0xBEB1,
+0x9D8A,
+0x9D8B,
+0x9D8C,
+0x9D8D,
+0x9D8E,
+0x9D8F,
+0xBEB2,
+0xBEB3,
+0x9D90,
+0x9D91,
+0xBEB4,
+0x9D92,
+0x9D93,
+0x9D94,
+0xBEB5,
+0x9D95,
+0xBEB6,
+0x9D96,
+0x9D97,
+0x9D98,
+0x9D99,
+0xBEB7,
+0xBEB8,
+0xBEB9,
+0x9D9A,
+0x9D9B,
+0x9D9C,
+0x9D9D,
+0x9D9E,
+0x9D9F,
+0x9DA0,
+0x9DA1,
+0x9DA2,
+0x9DA3,
+0xBEBA,
+0x9DA4,
+0x9DA5,
+0x9DA6,
+0xBEBB,
+0x9DA7,
+0x9DA8,
+0x9DA9,
+0xBEBC,
+0x9DAA,
+0x9DAB,
+0x9DAC,
+0x9DAD,
+0x9DAE,
+0x9DAF,
+0x9DB0,
+0xBEBD,
+0x9DB1,
+0x9DB2,
+0x9DB3,
+0x9DB4,
+0x9DB5,
+0x9DB6,
+0x9DB7,
+0x9DB8,
+0x9DB9,
+0x9DBA,
+0x9DBB,
+0xBEBE,
+0xBEBF,
+0x9DBC,
+0x9DBD,
+0xBEC0,
+0x9DBE,
+0x9DBF,
+0x9DC0,
+0xBEC1,
+0x9DC1,
+0x9DC2,
+0x9DC3,
+0x9DC4,
+0x9DC5,
+0x9DC6,
+0x9DC7,
+0xBEC2,
+0xBEC3,
+0x9DC8,
+0xBEC4,
+0x9DC9,
+0xBEC5,
+0x9DCA,
+0x9DCB,
+0x9DCC,
+0x9DCD,
+0x9DCE,
+0x9DCF,
+0xBEC6,
+0xBEC7,
+0x9DD0,
+0x9DD1,
+0xBEC8,
+0xBEC9,
+0xBECA,
+0x9DD2,
+0xBECB,
+0xBECC,
+0xBECD,
+0x9DD3,
+0x9DD4,
+0x9DD5,
+0x9DD6,
+0xBECE,
+0xBECF,
+0xBED0,
+0x9DD7,
+0xBED1,
+0xBED2,
+0xBED3,
+0x9DD8,
+0x9DD9,
+0x9DDA,
+0xBED4,
+0xBED5,
+0x9DDB,
+0xBED6,
+0xBED7,
+0x9DDC,
+0x9DDD,
+0xBED8,
+0x9DDE,
+0x9DDF,
+0x9DE0,
+0xBED9,
+0x9DE1,
+0x9DE2,
+0x9DE3,
+0x9DE4,
+0x9DE5,
+0x9DE6,
+0x9DE7,
+0xBEDA,
+0xBEDB,
+0x9DE8,
+0xBEDC,
+0xBEDD,
+0xBEDE,
+0x9DE9,
+0x9DEA,
+0x9DEB,
+0x9DEC,
+0x9DED,
+0x9DEE,
+0xBEDF,
+0xBEE0,
+0x9DEF,
+0x9DF0,
+0xBEE1,
+0x9DF1,
+0x9DF2,
+0x9DF3,
+0xBEE2,
+0x9DF4,
+0x9DF5,
+0xBEE3,
+0x9DF6,
+0x9DF7,
+0x9DF8,
+0x9DF9,
+0xBEE4,
+0xBEE5,
+0x9DFA,
+0xBEE6,
+0x9DFB,
+0xBEE7,
+0x9DFC,
+0x9DFD,
+0x9DFE,
+0xBEE8,
+0x9E41,
+0xBEE9,
+0xBEEA,
+0x9E42,
+0x9E43,
+0x9E44,
+0xBEEB,
+0x9E45,
+0x9E46,
+0x9E47,
+0xBEEC,
+0x9E48,
+0x9E49,
+0x9E4A,
+0x9E4B,
+0x9E4C,
+0x9E4D,
+0x9E4E,
+0x9E4F,
+0xBEED,
+0x9E50,
+0x9E51,
+0x9E52,
+0x9E53,
+0x9E54,
+0x9E55,
+0x9E56,
+0x9E57,
+0x9E58,
+0x9E59,
+0xBEEE,
+0xBEEF,
+0x9E5A,
+0x9E61,
+0xBEF0,
+0xBEF1,
+0x9E62,
+0xBEF2,
+0xBEF3,
+0xBEF4,
+0xBEF5,
+0x9E63,
+0x9E64,
+0x9E65,
+0x9E66,
+0x9E67,
+0xBEF6,
+0xBEF7,
+0xBEF8,
+0xBEF9,
+0xBEFA,
+0xBEFB,
+0xBEFC,
+0x9E68,
+0xBEFD,
+0x9E69,
+0xBEFE,
+0x9E6A,
+0xBFA1,
+0xBFA2,
+0x9E6B,
+0x9E6C,
+0xBFA3,
+0x9E6D,
+0x9E6E,
+0x9E6F,
+0xBFA4,
+0x9E70,
+0x9E71,
+0x9E72,
+0x9E73,
+0x9E74,
+0x9E75,
+0x9E76,
+0xBFA5,
+0xBFA6,
+0x9E77,
+0xBFA7,
+0x9E78,
+0xBFA8,
+0x9E79,
+0x9E7A,
+0x9E81,
+0x9E82,
+0x9E83,
+0x9E84,
+0xBFA9,
+0xBFAA,
+0xBFAB,
+0x9E85,
+0xBFAC,
+0x9E86,
+0x9E87,
+0x9E88,
+0xBFAD,
+0x9E89,
+0xBFAE,
+0xBFAF,
+0x9E8A,
+0x9E8B,
+0x9E8C,
+0x9E8D,
+0xBFB0,
+0xBFB1,
+0xBFB2,
+0xBFB3,
+0xBFB4,
+0xBFB5,
+0x9E8E,
+0x9E8F,
+0x9E90,
+0xBFB6,
+0xBFB7,
+0xBFB8,
+0xBFB9,
+0x9E91,
+0x9E92,
+0x9E93,
+0xBFBA,
+0x9E94,
+0x9E95,
+0x9E96,
+0xBFBB,
+0x9E97,
+0x9E98,
+0x9E99,
+0x9E9A,
+0x9E9B,
+0x9E9C,
+0x9E9D,
+0xBFBC,
+0xBFBD,
+0x9E9E,
+0xBFBE,
+0xBFBF,
+0x9E9F,
+0x9EA0,
+0x9EA1,
+0x9EA2,
+0x9EA3,
+0x9EA4,
+0x9EA5,
+0xBFC0,
+0xBFC1,
+0x9EA6,
+0x9EA7,
+0xBFC2,
+0x9EA8,
+0x9EA9,
+0x9EAA,
+0xBFC3,
+0xBFC4,
+0xBFC5,
+0x9EAB,
+0xBFC6,
+0x9EAC,
+0x9EAD,
+0xBFC7,
+0xBFC8,
+0xBFC9,
+0x9EAE,
+0xBFCA,
+0x9EAF,
+0xBFCB,
+0x9EB0,
+0xBFCC,
+0x9EB1,
+0x9EB2,
+0x9EB3,
+0x9EB4,
+0xBFCD,
+0xBFCE,
+0x9EB5,
+0x9EB6,
+0xBFCF,
+0x9EB7,
+0x9EB8,
+0x9EB9,
+0xBFD0,
+0x9EBA,
+0x9EBB,
+0x9EBC,
+0x9EBD,
+0x9EBE,
+0x9EBF,
+0x9EC0,
+0xBFD1,
+0xBFD2,
+0x9EC1,
+0xBFD3,
+0xBFD4,
+0xBFD5,
+0x9EC2,
+0x9EC3,
+0x9EC4,
+0x9EC5,
+0x9EC6,
+0x9EC7,
+0xBFD6,
+0xBFD7,
+0x9EC8,
+0x9EC9,
+0xBFD8,
+0x9ECA,
+0x9ECB,
+0x9ECC,
+0x9ECD,
+0x9ECE,
+0x9ECF,
+0x9ED0,
+0x9ED1,
+0x9ED2,
+0x9ED3,
+0x9ED4,
+0xBFD9,
+0x9ED5,
+0x9ED6,
+0xBFDA,
+0x9ED7,
+0xBFDB,
+0x9ED8,
+0x9ED9,
+0x9EDA,
+0x9EDB,
+0x9EDC,
+0x9EDD,
+0xBFDC,
+0xBFDD,
+0x9EDE,
+0x9EDF,
+0xBFDE,
+0x9EE0,
+0x9EE1,
+0x9EE2,
+0xBFDF,
+0x9EE3,
+0x9EE4,
+0x9EE5,
+0x9EE6,
+0x9EE7,
+0x9EE8,
+0x9EE9,
+0xBFE0,
+0xBFE1,
+0x9EEA,
+0xBFE2,
+0x9EEB,
+0xBFE3,
+0x9EEC,
+0x9EED,
+0x9EEE,
+0x9EEF,
+0x9EF0,
+0x9EF1,
+0xBFE4,
+0xBFE5,
+0x9EF2,
+0x9EF3,
+0xBFE6,
+0x9EF4,
+0x9EF5,
+0x9EF6,
+0xBFE7,
+0x9EF7,
+0x9EF8,
+0x9EF9,
+0x9EFA,
+0x9EFB,
+0x9EFC,
+0x9EFD,
+0xBFE8,
+0xBFE9,
+0x9EFE,
+0xBFEA,
+0x9F41,
+0xBFEB,
+0x9F42,
+0x9F43,
+0x9F44,
+0x9F45,
+0x9F46,
+0x9F47,
+0xBFEC,
+0xBFED,
+0x9F48,
+0x9F49,
+0xBFEE,
+0x9F4A,
+0x9F4B,
+0x9F4C,
+0xBFEF,
+0xBFF0,
+0xBFF1,
+0x9F4D,
+0x9F4E,
+0x9F4F,
+0x9F50,
+0x9F51,
+0xBFF2,
+0xBFF3,
+0x9F52,
+0xBFF4,
+0x9F53,
+0xBFF5,
+0x9F54,
+0x9F55,
+0x9F56,
+0x9F57,
+0x9F58,
+0x9F59,
+0xBFF6,
+0xBFF7,
+0x9F5A,
+0x9F61,
+0xBFF8,
+0x9F62,
+0x9F63,
+0x9F64,
+0xBFF9,
+0x9F65,
+0x9F66,
+0x9F67,
+0x9F68,
+0x9F69,
+0x9F6A,
+0x9F6B,
+0xBFFA,
+0xBFFB,
+0x9F6C,
+0x9F6D,
+0xBFFC,
+0xBFFD,
+0x9F6E,
+0x9F6F,
+0x9F70,
+0x9F71,
+0x9F72,
+0x9F73,
+0xBFFE,
+0xC0A1,
+0x9F74,
+0x9F75,
+0xC0A2,
+0x9F76,
+0x9F77,
+0x9F78,
+0xC0A3,
+0x9F79,
+0x9F7A,
+0x9F81,
+0x9F82,
+0x9F83,
+0x9F84,
+0x9F85,
+0xC0A4,
+0xC0A5,
+0x9F86,
+0x9F87,
+0x9F88,
+0xC0A6,
+0x9F89,
+0x9F8A,
+0x9F8B,
+0x9F8C,
+0x9F8D,
+0x9F8E,
+0xC0A7,
+0xC0A8,
+0x9F8F,
+0x9F90,
+0xC0A9,
+0x9F91,
+0x9F92,
+0x9F93,
+0xC0AA,
+0x9F94,
+0x9F95,
+0x9F96,
+0x9F97,
+0x9F98,
+0x9F99,
+0x9F9A,
+0xC0AB,
+0xC0AC,
+0x9F9B,
+0xC0AD,
+0x9F9C,
+0xC0AE,
+0x9F9D,
+0x9F9E,
+0x9F9F,
+0x9FA0,
+0x9FA1,
+0x9FA2,
+0xC0AF,
+0xC0B0,
+0x9FA3,
+0x9FA4,
+0xC0B1,
+0x9FA5,
+0x9FA6,
+0x9FA7,
+0xC0B2,
+0x9FA8,
+0x9FA9,
+0x9FAA,
+0x9FAB,
+0x9FAC,
+0x9FAD,
+0x9FAE,
+0xC0B3,
+0xC0B4,
+0x9FAF,
+0xC0B5,
+0x9FB0,
+0xC0B6,
+0x9FB1,
+0xC0B7,
+0x9FB2,
+0x9FB3,
+0x9FB4,
+0x9FB5,
+0xC0B8,
+0xC0B9,
+0x9FB6,
+0x9FB7,
+0xC0BA,
+0x9FB8,
+0x9FB9,
+0x9FBA,
+0xC0BB,
+0x9FBB,
+0x9FBC,
+0x9FBD,
+0x9FBE,
+0x9FBF,
+0xC0BC,
+0x9FC0,
+0xC0BD,
+0xC0BE,
+0x9FC1,
+0xC0BF,
+0x9FC2,
+0xC0C0,
+0xC0C1,
+0xC0C2,
+0xC0C3,
+0xC0C4,
+0xC0C5,
+0xC0C6,
+0xC0C7,
+0x9FC3,
+0x9FC4,
+0x9FC5,
+0xC0C8,
+0x9FC6,
+0x9FC7,
+0x9FC8,
+0xC0C9,
+0x9FC9,
+0x9FCA,
+0x9FCB,
+0x9FCC,
+0x9FCD,
+0x9FCE,
+0x9FCF,
+0xC0CA,
+0x9FD0,
+0x9FD1,
+0xC0CB,
+0x9FD2,
+0x9FD3,
+0x9FD4,
+0x9FD5,
+0x9FD6,
+0x9FD7,
+0x9FD8,
+0x9FD9,
+0xC0CC,
+0xC0CD,
+0x9FDA,
+0x9FDB,
+0xC0CE,
+0x9FDC,
+0x9FDD,
+0x9FDE,
+0xC0CF,
+0xC0D0,
+0xC0D1,
+0x9FDF,
+0x9FE0,
+0x9FE1,
+0x9FE2,
+0xC0D2,
+0xC0D3,
+0xC0D4,
+0x9FE3,
+0xC0D5,
+0xC0D6,
+0xC0D7,
+0xC0D8,
+0x9FE4,
+0x9FE5,
+0x9FE6,
+0xC0D9,
+0x9FE7,
+0xC0DA,
+0xC0DB,
+0x9FE8,
+0x9FE9,
+0xC0DC,
+0x9FEA,
+0xC0DD,
+0xC0DE,
+0xC0DF,
+0x9FEB,
+0xC0E0,
+0x9FEC,
+0x9FED,
+0x9FEE,
+0x9FEF,
+0x9FF0,
+0xC0E1,
+0xC0E2,
+0x9FF1,
+0xC0E3,
+0xC0E4,
+0xC0E5,
+0xC0E6,
+0x9FF2,
+0x9FF3,
+0x9FF4,
+0x9FF5,
+0x9FF6,
+0xC0E7,
+0xC0E8,
+0x9FF7,
+0x9FF8,
+0xC0E9,
+0x9FF9,
+0x9FFA,
+0x9FFB,
+0xC0EA,
+0x9FFC,
+0x9FFD,
+0x9FFE,
+0xA041,
+0xA042,
+0xA043,
+0xA044,
+0xC0EB,
+0xC0EC,
+0xA045,
+0xC0ED,
+0xC0EE,
+0xC0EF,
+0xA046,
+0xA047,
+0xA048,
+0xA049,
+0xA04A,
+0xA04B,
+0xC0F0,
+0xC0F1,
+0xA04C,
+0xA04D,
+0xC0F2,
+0xA04E,
+0xC0F3,
+0xA04F,
+0xC0F4,
+0xA050,
+0xA051,
+0xA052,
+0xA053,
+0xA054,
+0xA055,
+0xA056,
+0xC0F5,
+0xA057,
+0xA058,
+0xA059,
+0xA05A,
+0xC0F6,
+0xA061,
+0xA062,
+0xA063,
+0xA064,
+0xA065,
+0xA066,
+0xC0F7,
+0xA067,
+0xA068,
+0xA069,
+0xC0F8,
+0xA06A,
+0xA06B,
+0xA06C,
+0xC0F9,
+0xA06D,
+0xA06E,
+0xA06F,
+0xA070,
+0xA071,
+0xA072,
+0xA073,
+0xA074,
+0xA075,
+0xA076,
+0xA077,
+0xA078,
+0xA079,
+0xA07A,
+0xA081,
+0xA082,
+0xA083,
+0xA084,
+0xA085,
+0xC0FA,
+0xC0FB,
+0xA086,
+0xA087,
+0xC0FC,
+0xA088,
+0xA089,
+0xA08A,
+0xC0FD,
+0xA08B,
+0xC0FE,
+0xA08C,
+0xA08D,
+0xA08E,
+0xA08F,
+0xA090,
+0xC1A1,
+0xC1A2,
+0xA091,
+0xC1A3,
+0xA092,
+0xC1A4,
+0xC1A5,
+0xA093,
+0xA094,
+0xA095,
+0xA096,
+0xA097,
+0xC1A6,
+0xC1A7,
+0xA098,
+0xA099,
+0xC1A8,
+0xA09A,
+0xA09B,
+0xA09C,
+0xC1A9,
+0xA09D,
+0xA09E,
+0xA09F,
+0xA0A0,
+0xA0A1,
+0xA0A2,
+0xA0A3,
+0xC1AA,
+0xC1AB,
+0xA0A4,
+0xC1AC,
+0xA0A5,
+0xC1AD,
+0xA0A6,
+0xA0A7,
+0xA0A8,
+0xA0A9,
+0xA0AA,
+0xA0AB,
+0xC1AE,
+0xA0AC,
+0xA0AD,
+0xA0AE,
+0xC1AF,
+0xA0AF,
+0xA0B0,
+0xA0B1,
+0xC1B0,
+0xA0B2,
+0xA0B3,
+0xA0B4,
+0xA0B5,
+0xA0B6,
+0xA0B7,
+0xA0B8,
+0xC1B1,
+0xC1B2,
+0xA0B9,
+0xA0BA,
+0xC1B3,
+0xC1B4,
+0xA0BB,
+0xA0BC,
+0xA0BD,
+0xA0BE,
+0xA0BF,
+0xA0C0,
+0xC1B5,
+0xA0C1,
+0xA0C2,
+0xA0C3,
+0xA0C4,
+0xA0C5,
+0xA0C6,
+0xA0C7,
+0xA0C8,
+0xA0C9,
+0xA0CA,
+0xA0CB,
+0xA0CC,
+0xA0CD,
+0xA0CE,
+0xA0CF,
+0xA0D0,
+0xA0D1,
+0xA0D2,
+0xA0D3,
+0xA0D4,
+0xA0D5,
+0xA0D6,
+0xA0D7,
+0xA0D8,
+0xA0D9,
+0xA0DA,
+0xA0DB,
+0xC1B6,
+0xC1B7,
+0xA0DC,
+0xA0DD,
+0xC1B8,
+0xA0DE,
+0xA0DF,
+0xA0E0,
+0xC1B9,
+0xA0E1,
+0xC1BA,
+0xA0E2,
+0xA0E3,
+0xA0E4,
+0xA0E5,
+0xA0E6,
+0xC1BB,
+0xC1BC,
+0xA0E7,
+0xC1BD,
+0xA0E8,
+0xC1BE,
+0xC1BF,
+0xC1C0,
+0xA0E9,
+0xA0EA,
+0xA0EB,
+0xC1C1,
+0xC1C2,
+0xC1C3,
+0xA0EC,
+0xA0ED,
+0xA0EE,
+0xA0EF,
+0xA0F0,
+0xA0F1,
+0xC1C4,
+0xA0F2,
+0xA0F3,
+0xA0F4,
+0xA0F5,
+0xA0F6,
+0xA0F7,
+0xA0F8,
+0xA0F9,
+0xC1C5,
+0xA0FA,
+0xC1C6,
+0xA0FB,
+0xC1C7,
+0xA0FC,
+0xA0FD,
+0xA0FE,
+0xA141,
+0xA142,
+0xA143,
+0xC1C8,
+0xA144,
+0xA145,
+0xA146,
+0xA147,
+0xA148,
+0xA149,
+0xA14A,
+0xA14B,
+0xA14C,
+0xA14D,
+0xA14E,
+0xA14F,
+0xA150,
+0xA151,
+0xA152,
+0xA153,
+0xA154,
+0xA155,
+0xA156,
+0xC1C9,
+0xC1CA,
+0xA157,
+0xA158,
+0xA159,
+0xA15A,
+0xA161,
+0xA162,
+0xC1CB,
+0xA163,
+0xA164,
+0xA165,
+0xC1CC,
+0xA166,
+0xA167,
+0xA168,
+0xC1CD,
+0xA169,
+0xA16A,
+0xA16B,
+0xA16C,
+0xA16D,
+0xA16E,
+0xA16F,
+0xC1CE,
+0xC1CF,
+0xA170,
+0xC1D0,
+0xA171,
+0xC1D1,
+0xA172,
+0xA173,
+0xA174,
+0xA175,
+0xA176,
+0xA177,
+0xC1D2,
+0xC1D3,
+0xA178,
+0xA179,
+0xC1D4,
+0xA17A,
+0xA181,
+0xA182,
+0xA183,
+0xA184,
+0xA185,
+0xA186,
+0xA187,
+0xA188,
+0xA189,
+0xA18A,
+0xA18B,
+0xA18C,
+0xA18D,
+0xA18E,
+0xA18F,
+0xC1D5,
+0xA190,
+0xA191,
+0xA192,
+0xA193,
+0xA194,
+0xA195,
+0xC1D6,
+0xC1D7,
+0xA196,
+0xA197,
+0xC1D8,
+0xA198,
+0xA199,
+0xA19A,
+0xC1D9,
+0xC1DA,
+0xC1DB,
+0xA19B,
+0xA19C,
+0xA19D,
+0xA19E,
+0xA19F,
+0xC1DC,
+0xC1DD,
+0xA1A0,
+0xC1DE,
+0xA241,
+0xC1DF,
+0xA242,
+0xA243,
+0xA244,
+0xA245,
+0xA246,
+0xA247,
+0xC1E0,
+0xA248,
+0xA249,
+0xA24A,
+0xA24B,
+0xA24C,
+0xA24D,
+0xA24E,
+0xA24F,
+0xA250,
+0xA251,
+0xA252,
+0xA253,
+0xA254,
+0xA255,
+0xA256,
+0xA257,
+0xA258,
+0xA259,
+0xA25A,
+0xC1E1,
+0xA261,
+0xA262,
+0xA263,
+0xA264,
+0xA265,
+0xA266,
+0xA267,
+0xC1E2,
+0xA268,
+0xA269,
+0xA26A,
+0xA26B,
+0xA26C,
+0xA26D,
+0xA26E,
+0xA26F,
+0xA270,
+0xA271,
+0xA272,
+0xA273,
+0xA274,
+0xA275,
+0xA276,
+0xA277,
+0xA278,
+0xA279,
+0xA27A,
+0xA281,
+0xA282,
+0xA283,
+0xA284,
+0xA285,
+0xA286,
+0xA287,
+0xA288,
+0xC1E3,
+0xC1E4,
+0xA289,
+0xA28A,
+0xC1E5,
+0xA28B,
+0xA28C,
+0xA28D,
+0xC1E6,
+0xA28E,
+0xA28F,
+0xA290,
+0xA291,
+0xA292,
+0xA293,
+0xA294,
+0xC1E7,
+0xC1E8,
+0xA295,
+0xC1E9,
+0xA296,
+0xA297,
+0xA298,
+0xA299,
+0xA29A,
+0xA29B,
+0xA29C,
+0xA29D,
+0xC1EA,
+0xA29E,
+0xA29F,
+0xA2A0,
+0xC1EB,
+0xA341,
+0xA342,
+0xA343,
+0xC1EC,
+0xA344,
+0xA345,
+0xA346,
+0xA347,
+0xA348,
+0xA349,
+0xA34A,
+0xC1ED,
+0xA34B,
+0xA34C,
+0xA34D,
+0xA34E,
+0xA34F,
+0xA350,
+0xA351,
+0xA352,
+0xA353,
+0xA354,
+0xA355,
+0xC1EE,
+0xC1EF,
+0xA356,
+0xA357,
+0xC1F0,
+0xA358,
+0xA359,
+0xA35A,
+0xC1F1,
+0xA361,
+0xA362,
+0xA363,
+0xA364,
+0xA365,
+0xA366,
+0xA367,
+0xC1F2,
+0xC1F3,
+0xA368,
+0xC1F4,
+0xA369,
+0xC1F5,
+0xA36A,
+0xA36B,
+0xA36C,
+0xA36D,
+0xA36E,
+0xA36F,
+0xA370,
+0xA371,
+0xA372,
+0xA373,
+0xA374,
+0xA375,
+0xA376,
+0xA377,
+0xA378,
+0xA379,
+0xA37A,
+0xA381,
+0xA382,
+0xA383,
+0xA384,
+0xA385,
+0xA386,
+0xA387,
+0xA388,
+0xA389,
+0xA38A,
+0xA38B,
+0xA38C,
+0xA38D,
+0xA38E,
+0xA38F,
+0xA390,
+0xA391,
+0xC1F6,
+0xC1F7,
+0xA392,
+0xA393,
+0xC1F8,
+0xA394,
+0xA395,
+0xC1F9,
+0xC1FA,
+0xA396,
+0xC1FB,
+0xA397,
+0xA398,
+0xA399,
+0xA39A,
+0xA39B,
+0xC1FC,
+0xC1FD,
+0xA39C,
+0xC1FE,
+0xA39D,
+0xC2A1,
+0xC2A2,
+0xA39E,
+0xA39F,
+0xC2A3,
+0xC2A4,
+0xA3A0,
+0xC2A5,
+0xC2A6,
+0xA441,
+0xA442,
+0xC2A7,
+0xA443,
+0xC2A8,
+0xA444,
+0xC2A9,
+0xA445,
+0xA446,
+0xC2AA,
+0xA447,
+0xA448,
+0xA449,
+0xA44A,
+0xC2AB,
+0xC2AC,
+0xA44B,
+0xC2AD,
+0xC2AE,
+0xC2AF,
+0xA44C,
+0xA44D,
+0xA44E,
+0xA44F,
+0xA450,
+0xA451,
+0xC2B0,
+0xC2B1,
+0xA452,
+0xA453,
+0xC2B2,
+0xA454,
+0xA455,
+0xA456,
+0xC2B3,
+0xA457,
+0xA458,
+0xA459,
+0xA45A,
+0xA461,
+0xA462,
+0xA463,
+0xC2B4,
+0xC2B5,
+0xA464,
+0xC2B6,
+0xC2B7,
+0xC2B8,
+0xA465,
+0xA466,
+0xA467,
+0xA468,
+0xA469,
+0xA46A,
+0xC2B9,
+0xA46B,
+0xA46C,
+0xA46D,
+0xC2BA,
+0xA46E,
+0xA46F,
+0xA470,
+0xA471,
+0xA472,
+0xA473,
+0xA474,
+0xA475,
+0xA476,
+0xA477,
+0xA478,
+0xA479,
+0xA47A,
+0xA481,
+0xA482,
+0xA483,
+0xC2BB,
+0xA484,
+0xA485,
+0xA486,
+0xA487,
+0xA488,
+0xA489,
+0xA48A,
+0xA48B,
+0xA48C,
+0xA48D,
+0xA48E,
+0xA48F,
+0xA490,
+0xA491,
+0xA492,
+0xA493,
+0xA494,
+0xA495,
+0xA496,
+0xA497,
+0xA498,
+0xA499,
+0xA49A,
+0xA49B,
+0xA49C,
+0xA49D,
+0xA49E,
+0xA49F,
+0xA4A0,
+0xA541,
+0xA542,
+0xA543,
+0xA544,
+0xA545,
+0xC2BC,
+0xC2BD,
+0xA546,
+0xA547,
+0xC2BE,
+0xA548,
+0xA549,
+0xA54A,
+0xC2BF,
+0xA54B,
+0xA54C,
+0xA54D,
+0xA54E,
+0xA54F,
+0xA550,
+0xA551,
+0xC2C0,
+0xC2C1,
+0xA552,
+0xC2C2,
+0xC2C3,
+0xC2C4,
+0xA553,
+0xA554,
+0xA555,
+0xA556,
+0xA557,
+0xA558,
+0xC2C5,
+0xA559,
+0xA55A,
+0xA561,
+0xA562,
+0xA563,
+0xA564,
+0xA565,
+0xA566,
+0xA567,
+0xA568,
+0xA569,
+0xA56A,
+0xA56B,
+0xA56C,
+0xA56D,
+0xA56E,
+0xA56F,
+0xA570,
+0xA571,
+0xA572,
+0xC2C6,
+0xA573,
+0xA574,
+0xA575,
+0xA576,
+0xA577,
+0xA578,
+0xC2C7,
+0xA579,
+0xA57A,
+0xA581,
+0xA582,
+0xA583,
+0xA584,
+0xA585,
+0xA586,
+0xA587,
+0xA588,
+0xA589,
+0xA58A,
+0xA58B,
+0xA58C,
+0xA58D,
+0xA58E,
+0xA58F,
+0xA590,
+0xA591,
+0xC2C8,
+0xA592,
+0xA593,
+0xA594,
+0xA595,
+0xA596,
+0xA597,
+0xA598,
+0xA599,
+0xA59A,
+0xA59B,
+0xA59C,
+0xA59D,
+0xA59E,
+0xA59F,
+0xA5A0,
+0xA641,
+0xA642,
+0xA643,
+0xA644,
+0xA645,
+0xA646,
+0xA647,
+0xA648,
+0xA649,
+0xA64A,
+0xA64B,
+0xA64C,
+0xA64D,
+0xA64E,
+0xA64F,
+0xA650,
+0xA651,
+0xA652,
+0xA653,
+0xA654,
+0xC2C9,
+0xC2CA,
+0xA655,
+0xA656,
+0xC2CB,
+0xA657,
+0xA658,
+0xA659,
+0xC2CC,
+0xA65A,
+0xA661,
+0xA662,
+0xA663,
+0xA664,
+0xA665,
+0xA666,
+0xC2CD,
+0xC2CE,
+0xA667,
+0xC2CF,
+0xA668,
+0xC2D0,
+0xA669,
+0xC2D1,
+0xA66A,
+0xA66B,
+0xA66C,
+0xA66D,
+0xC2D2,
+0xC2D3,
+0xA66E,
+0xA66F,
+0xA670,
+0xA671,
+0xA672,
+0xA673,
+0xC2D4,
+0xA674,
+0xA675,
+0xA676,
+0xA677,
+0xA678,
+0xA679,
+0xA67A,
+0xA681,
+0xA682,
+0xA683,
+0xA684,
+0xC2D5,
+0xA685,
+0xA686,
+0xA687,
+0xA688,
+0xA689,
+0xA68A,
+0xA68B,
+0xC2D6,
+0xA68C,
+0xA68D,
+0xA68E,
+0xA68F,
+0xA690,
+0xA691,
+0xA692,
+0xA693,
+0xA694,
+0xA695,
+0xA696,
+0xA697,
+0xA698,
+0xA699,
+0xA69A,
+0xA69B,
+0xA69C,
+0xA69D,
+0xA69E,
+0xC2D7,
+0xA69F,
+0xA6A0,
+0xA741,
+0xA742,
+0xA743,
+0xA744,
+0xA745,
+0xC2D8,
+0xA746,
+0xA747,
+0xA748,
+0xC2D9,
+0xA749,
+0xA74A,
+0xA74B,
+0xC2DA,
+0xA74C,
+0xA74D,
+0xA74E,
+0xA74F,
+0xA750,
+0xA751,
+0xA752,
+0xC2DB,
+0xC2DC,
+0xA753,
+0xA754,
+0xA755,
+0xA756,
+0xA757,
+0xA758,
+0xA759,
+0xA75A,
+0xA761,
+0xA762,
+0xA763,
+0xA764,
+0xA765,
+0xA766,
+0xA767,
+0xA768,
+0xA769,
+0xA76A,
+0xA76B,
+0xA76C,
+0xA76D,
+0xA76E,
+0xA76F,
+0xA770,
+0xA771,
+0xA772,
+0xA773,
+0xA774,
+0xA775,
+0xA776,
+0xA777,
+0xC2DD,
+0xA778,
+0xA779,
+0xA77A,
+0xA781,
+0xA782,
+0xA783,
+0xC2DE,
+0xC2DF,
+0xA784,
+0xA785,
+0xC2E0,
+0xA786,
+0xA787,
+0xA788,
+0xC2E1,
+0xA789,
+0xA78A,
+0xA78B,
+0xA78C,
+0xA78D,
+0xA78E,
+0xA78F,
+0xC2E2,
+0xC2E3,
+0xA790,
+0xA791,
+0xA792,
+0xC2E4,
+0xA793,
+0xA794,
+0xA795,
+0xA796,
+0xA797,
+0xA798,
+0xC2E5,
+0xA799,
+0xA79A,
+0xA79B,
+0xA79C,
+0xA79D,
+0xA79E,
+0xA79F,
+0xA7A0,
+0xA841,
+0xA842,
+0xA843,
+0xA844,
+0xA845,
+0xA846,
+0xA847,
+0xA848,
+0xA849,
+0xA84A,
+0xA84B,
+0xC2E6,
+0xC2E7,
+0xA84C,
+0xA84D,
+0xA84E,
+0xA84F,
+0xA850,
+0xA851,
+0xA852,
+0xA853,
+0xA854,
+0xA855,
+0xA856,
+0xA857,
+0xA858,
+0xA859,
+0xA85A,
+0xA861,
+0xA862,
+0xA863,
+0xA864,
+0xA865,
+0xA866,
+0xA867,
+0xA868,
+0xA869,
+0xA86A,
+0xA86B,
+0xA86C,
+0xA86D,
+0xA86E,
+0xA86F,
+0xA870,
+0xA871,
+0xA872,
+0xA873,
+0xC2E8,
+0xA874,
+0xA875,
+0xA876,
+0xA877,
+0xA878,
+0xA879,
+0xA87A,
+0xA881,
+0xA882,
+0xA883,
+0xA884,
+0xA885,
+0xA886,
+0xA887,
+0xA888,
+0xA889,
+0xA88A,
+0xA88B,
+0xA88C,
+0xA88D,
+0xA88E,
+0xA88F,
+0xA890,
+0xA891,
+0xA892,
+0xA893,
+0xA894,
+0xC2E9,
+0xA895,
+0xA896,
+0xA897,
+0xA898,
+0xA899,
+0xA89A,
+0xA89B,
+0xA89C,
+0xA89D,
+0xA89E,
+0xA89F,
+0xA8A0,
+0xA941,
+0xA942,
+0xA943,
+0xA944,
+0xA945,
+0xA946,
+0xA947,
+0xA948,
+0xA949,
+0xA94A,
+0xA94B,
+0xA94C,
+0xA94D,
+0xA94E,
+0xA94F,
+0xC2EA,
+0xA950,
+0xA951,
+0xA952,
+0xA953,
+0xA954,
+0xA955,
+0xA956,
+0xA957,
+0xA958,
+0xA959,
+0xA95A,
+0xA961,
+0xA962,
+0xA963,
+0xA964,
+0xC2EB,
+0xA965,
+0xA966,
+0xC2EC,
+0xA967,
+0xC2ED,
+0xA968,
+0xA969,
+0xA96A,
+0xA96B,
+0xA96C,
+0xA96D,
+0xA96E,
+0xA96F,
+0xA970,
+0xA971,
+0xA972,
+0xA973,
+0xA974,
+0xA975,
+0xA976,
+0xA977,
+0xA978,
+0xA979,
+0xA97A,
+0xA981,
+0xA982,
+0xA983,
+0xA984,
+0xA985,
+0xA986,
+0xA987,
+0xA988,
+0xA989,
+0xA98A,
+0xA98B,
+0xA98C,
+0xA98D,
+0xA98E,
+0xA98F,
+0xC2EE,
+0xC2EF,
+0xA990,
+0xA991,
+0xC2F0,
+0xA992,
+0xA993,
+0xA994,
+0xC2F1,
+0xA995,
+0xA996,
+0xA997,
+0xA998,
+0xA999,
+0xA99A,
+0xA99B,
+0xC2F2,
+0xC2F3,
+0xA99C,
+0xA99D,
+0xA99E,
+0xC2F4,
+0xC2F5,
+0xA99F,
+0xA9A0,
+0xAA41,
+0xAA42,
+0xC2F6,
+0xC2F7,
+0xC2F8,
+0xAA43,
+0xAA44,
+0xC2F9,
+0xAA45,
+0xC2FA,
+0xAA46,
+0xC2FB,
+0xAA47,
+0xAA48,
+0xAA49,
+0xAA4A,
+0xAA4B,
+0xAA4C,
+0xAA4D,
+0xC2FC,
+0xC2FD,
+0xAA4E,
+0xC2FE,
+0xC3A1,
+0xC3A2,
+0xC3A3,
+0xAA4F,
+0xAA50,
+0xAA51,
+0xAA52,
+0xAA53,
+0xC3A4,
+0xC3A5,
+0xAA54,
+0xAA55,
+0xC3A6,
+0xAA56,
+0xAA57,
+0xAA58,
+0xC3A7,
+0xAA59,
+0xAA5A,
+0xAA61,
+0xAA62,
+0xAA63,
+0xAA64,
+0xAA65,
+0xC3A8,
+0xC3A9,
+0xAA66,
+0xC3AA,
+0xC3AB,
+0xC3AC,
+0xAA67,
+0xAA68,
+0xAA69,
+0xAA6A,
+0xAA6B,
+0xAA6C,
+0xC3AD,
+0xAA6D,
+0xAA6E,
+0xAA6F,
+0xC3AE,
+0xAA70,
+0xC3AF,
+0xAA71,
+0xC3B0,
+0xAA72,
+0xAA73,
+0xAA74,
+0xAA75,
+0xAA76,
+0xAA77,
+0xAA78,
+0xC3B1,
+0xAA79,
+0xAA7A,
+0xAA81,
+0xAA82,
+0xC3B2,
+0xAA83,
+0xAA84,
+0xAA85,
+0xAA86,
+0xAA87,
+0xAA88,
+0xAA89,
+0xAA8A,
+0xAA8B,
+0xAA8C,
+0xAA8D,
+0xAA8E,
+0xAA8F,
+0xAA90,
+0xAA91,
+0xAA92,
+0xAA93,
+0xAA94,
+0xAA95,
+0xAA96,
+0xAA97,
+0xAA98,
+0xAA99,
+0xAA9A,
+0xAA9B,
+0xAA9C,
+0xAA9D,
+0xAA9E,
+0xAA9F,
+0xAAA0,
+0xAB41,
+0xAB42,
+0xAB43,
+0xAB44,
+0xC3B3,
+0xC3B4,
+0xAB45,
+0xAB46,
+0xC3B5,
+0xAB47,
+0xAB48,
+0xAB49,
+0xC3B6,
+0xAB4A,
+0xAB4B,
+0xAB4C,
+0xAB4D,
+0xAB4E,
+0xAB4F,
+0xAB50,
+0xC3B7,
+0xC3B8,
+0xAB51,
+0xC3B9,
+0xC3BA,
+0xC3BB,
+0xAB52,
+0xAB53,
+0xAB54,
+0xAB55,
+0xAB56,
+0xAB57,
+0xC3BC,
+0xC3BD,
+0xAB58,
+0xAB59,
+0xC3BE,
+0xAB5A,
+0xAB61,
+0xAB62,
+0xC3BF,
+0xAB63,
+0xAB64,
+0xAB65,
+0xAB66,
+0xAB67,
+0xAB68,
+0xAB69,
+0xC3C0,
+0xC3C1,
+0xAB6A,
+0xC3C2,
+0xAB6B,
+0xC3C3,
+0xAB6C,
+0xAB6D,
+0xAB6E,
+0xAB6F,
+0xAB70,
+0xAB71,
+0xC3C4,
+0xAB72,
+0xAB73,
+0xAB74,
+0xC3C5,
+0xAB75,
+0xAB76,
+0xAB77,
+0xAB78,
+0xAB79,
+0xAB7A,
+0xAB81,
+0xAB82,
+0xAB83,
+0xAB84,
+0xAB85,
+0xAB86,
+0xAB87,
+0xAB88,
+0xAB89,
+0xC3C6,
+0xAB8A,
+0xAB8B,
+0xAB8C,
+0xAB8D,
+0xAB8E,
+0xAB8F,
+0xAB90,
+0xC3C7,
+0xAB91,
+0xAB92,
+0xAB93,
+0xC3C8,
+0xAB94,
+0xAB95,
+0xAB96,
+0xAB97,
+0xAB98,
+0xAB99,
+0xAB9A,
+0xAB9B,
+0xAB9C,
+0xAB9D,
+0xAB9E,
+0xAB9F,
+0xABA0,
+0xAC41,
+0xAC42,
+0xAC43,
+0xC3C9,
+0xAC44,
+0xAC45,
+0xAC46,
+0xAC47,
+0xAC48,
+0xAC49,
+0xC3CA,
+0xC3CB,
+0xAC4A,
+0xAC4B,
+0xC3CC,
+0xAC4C,
+0xAC4D,
+0xAC4E,
+0xC3CD,
+0xAC4F,
+0xAC50,
+0xAC51,
+0xAC52,
+0xAC53,
+0xAC54,
+0xAC55,
+0xC3CE,
+0xC3CF,
+0xAC56,
+0xC3D0,
+0xAC57,
+0xC3D1,
+0xAC58,
+0xAC59,
+0xAC5A,
+0xAC61,
+0xAC62,
+0xAC63,
+0xC3D2,
+0xAC64,
+0xAC65,
+0xAC66,
+0xC3D3,
+0xAC67,
+0xAC68,
+0xAC69,
+0xC3D4,
+0xAC6A,
+0xAC6B,
+0xAC6C,
+0xAC6D,
+0xAC6E,
+0xAC6F,
+0xAC70,
+0xAC71,
+0xAC72,
+0xAC73,
+0xAC74,
+0xAC75,
+0xC3D5,
+0xAC76,
+0xAC77,
+0xAC78,
+0xAC79,
+0xAC7A,
+0xAC81,
+0xAC82,
+0xAC83,
+0xAC84,
+0xAC85,
+0xAC86,
+0xAC87,
+0xAC88,
+0xAC89,
+0xAC8A,
+0xAC8B,
+0xAC8C,
+0xAC8D,
+0xAC8E,
+0xAC8F,
+0xAC90,
+0xAC91,
+0xAC92,
+0xAC93,
+0xAC94,
+0xAC95,
+0xAC96,
+0xAC97,
+0xAC98,
+0xAC99,
+0xAC9A,
+0xAC9B,
+0xAC9C,
+0xAC9D,
+0xC3D6,
+0xAC9E,
+0xAC9F,
+0xACA0,
+0xC3D7,
+0xAD41,
+0xAD42,
+0xAD43,
+0xC3D8,
+0xAD44,
+0xAD45,
+0xAD46,
+0xAD47,
+0xAD48,
+0xAD49,
+0xAD4A,
+0xC3D9,
+0xC3DA,
+0xAD4B,
+0xC3DB,
+0xAD4C,
+0xC3DC,
+0xAD4D,
+0xAD4E,
+0xAD4F,
+0xAD50,
+0xAD51,
+0xAD52,
+0xC3DD,
+0xAD53,
+0xAD54,
+0xAD55,
+0xAD56,
+0xAD57,
+0xAD58,
+0xAD59,
+0xAD5A,
+0xAD61,
+0xAD62,
+0xAD63,
+0xAD64,
+0xAD65,
+0xAD66,
+0xAD67,
+0xC3DE,
+0xAD68,
+0xAD69,
+0xAD6A,
+0xAD6B,
+0xAD6C,
+0xAD6D,
+0xAD6E,
+0xAD6F,
+0xAD70,
+0xAD71,
+0xAD72,
+0xC3DF,
+0xC3E0,
+0xAD73,
+0xAD74,
+0xC3E1,
+0xAD75,
+0xAD76,
+0xAD77,
+0xC3E2,
+0xAD78,
+0xAD79,
+0xAD7A,
+0xAD81,
+0xAD82,
+0xAD83,
+0xAD84,
+0xC3E3,
+0xC3E4,
+0xAD85,
+0xC3E5,
+0xAD86,
+0xC3E6,
+0xAD87,
+0xAD88,
+0xAD89,
+0xAD8A,
+0xAD8B,
+0xAD8C,
+0xC3E7,
+0xAD8D,
+0xAD8E,
+0xAD8F,
+0xAD90,
+0xAD91,
+0xAD92,
+0xAD93,
+0xAD94,
+0xAD95,
+0xAD96,
+0xAD97,
+0xAD98,
+0xAD99,
+0xAD9A,
+0xAD9B,
+0xAD9C,
+0xAD9D,
+0xAD9E,
+0xAD9F,
+0xC3E8,
+0xADA0,
+0xAE41,
+0xAE42,
+0xAE43,
+0xAE44,
+0xAE45,
+0xAE46,
+0xC3E9,
+0xAE47,
+0xAE48,
+0xAE49,
+0xC3EA,
+0xAE4A,
+0xAE4B,
+0xAE4C,
+0xAE4D,
+0xAE4E,
+0xAE4F,
+0xAE50,
+0xAE51,
+0xAE52,
+0xAE53,
+0xAE54,
+0xAE55,
+0xAE56,
+0xAE57,
+0xAE58,
+0xAE59,
+0xAE5A,
+0xAE61,
+0xAE62,
+0xAE63,
+0xAE64,
+0xAE65,
+0xAE66,
+0xC3EB,
+0xAE67,
+0xAE68,
+0xAE69,
+0xC3EC,
+0xAE6A,
+0xAE6B,
+0xAE6C,
+0xC3ED,
+0xAE6D,
+0xAE6E,
+0xAE6F,
+0xAE70,
+0xAE71,
+0xAE72,
+0xAE73,
+0xC3EE,
+0xC3EF,
+0xAE74,
+0xC3F0,
+0xAE75,
+0xC3F1,
+0xAE76,
+0xAE77,
+0xAE78,
+0xAE79,
+0xAE7A,
+0xAE81,
+0xC3F2,
+0xAE82,
+0xAE83,
+0xAE84,
+0xC3F3,
+0xAE85,
+0xAE86,
+0xAE87,
+0xC3F4,
+0xAE88,
+0xAE89,
+0xAE8A,
+0xAE8B,
+0xAE8C,
+0xAE8D,
+0xAE8E,
+0xC3F5,
+0xAE8F,
+0xAE90,
+0xAE91,
+0xAE92,
+0xC3F6,
+0xAE93,
+0xAE94,
+0xAE95,
+0xAE96,
+0xAE97,
+0xAE98,
+0xC3F7,
+0xC3F8,
+0xAE99,
+0xAE9A,
+0xC3F9,
+0xAE9B,
+0xAE9C,
+0xAE9D,
+0xC3FA,
+0xAE9E,
+0xAE9F,
+0xAEA0,
+0xAF41,
+0xAF42,
+0xAF43,
+0xAF44,
+0xC3FB,
+0xC3FC,
+0xAF45,
+0xC3FD,
+0xAF46,
+0xC3FE,
+0xAF47,
+0xAF48,
+0xAF49,
+0xAF4A,
+0xAF4B,
+0xAF4C,
+0xAF4D,
+0xAF4E,
+0xAF4F,
+0xAF50,
+0xAF51,
+0xAF52,
+0xAF53,
+0xAF54,
+0xAF55,
+0xAF56,
+0xAF57,
+0xAF58,
+0xAF59,
+0xAF5A,
+0xAF61,
+0xAF62,
+0xAF63,
+0xAF64,
+0xAF65,
+0xAF66,
+0xAF67,
+0xAF68,
+0xAF69,
+0xAF6A,
+0xAF6B,
+0xAF6C,
+0xAF6D,
+0xAF6E,
+0xC4A1,
+0xC4A2,
+0xAF6F,
+0xAF70,
+0xC4A3,
+0xAF71,
+0xAF72,
+0xC4A4,
+0xC4A5,
+0xC4A6,
+0xAF73,
+0xAF74,
+0xAF75,
+0xAF76,
+0xAF77,
+0xAF78,
+0xC4A7,
+0xC4A8,
+0xAF79,
+0xC4A9,
+0xAF7A,
+0xC4AA,
+0xAF81,
+0xAF82,
+0xAF83,
+0xAF84,
+0xAF85,
+0xAF86,
+0xC4AB,
+0xC4AC,
+0xAF87,
+0xAF88,
+0xC4AD,
+0xAF89,
+0xAF8A,
+0xAF8B,
+0xC4AE,
+0xAF8C,
+0xAF8D,
+0xAF8E,
+0xAF8F,
+0xAF90,
+0xAF91,
+0xAF92,
+0xC4AF,
+0xC4B0,
+0xAF93,
+0xC4B1,
+0xAF94,
+0xC4B2,
+0xAF95,
+0xAF96,
+0xAF97,
+0xAF98,
+0xAF99,
+0xAF9A,
+0xC4B3,
+0xC4B4,
+0xAF9B,
+0xAF9C,
+0xC4B5,
+0xAF9D,
+0xAF9E,
+0xAF9F,
+0xC4B6,
+0xAFA0,
+0xB041,
+0xB042,
+0xB043,
+0xB044,
+0xB045,
+0xB046,
+0xC4B7,
+0xC4B8,
+0xB047,
+0xC4B9,
+0xC4BA,
+0xC4BB,
+0xB048,
+0xB049,
+0xB04A,
+0xB04B,
+0xB04C,
+0xB04D,
+0xC4BC,
+0xC4BD,
+0xB04E,
+0xB04F,
+0xB050,
+0xB051,
+0xB052,
+0xB053,
+0xB054,
+0xB055,
+0xB056,
+0xB057,
+0xB058,
+0xB059,
+0xB05A,
+0xB061,
+0xB062,
+0xB063,
+0xB064,
+0xB065,
+0xB066,
+0xC4BE,
+0xB067,
+0xB068,
+0xB069,
+0xB06A,
+0xB06B,
+0xB06C,
+0xB06D,
+0xB06E,
+0xB06F,
+0xB070,
+0xB071,
+0xB072,
+0xB073,
+0xB074,
+0xB075,
+0xB076,
+0xB077,
+0xB078,
+0xB079,
+0xB07A,
+0xB081,
+0xB082,
+0xB083,
+0xB084,
+0xB085,
+0xB086,
+0xB087,
+0xB088,
+0xB089,
+0xB08A,
+0xB08B,
+0xB08C,
+0xB08D,
+0xB08E,
+0xC4BF,
+0xC4C0,
+0xB08F,
+0xB090,
+0xC4C1,
+0xB091,
+0xB092,
+0xC4C2,
+0xC4C3,
+0xB093,
+0xB094,
+0xB095,
+0xB096,
+0xB097,
+0xB098,
+0xB099,
+0xC4C4,
+0xC4C5,
+0xB09A,
+0xC4C6,
+0xC4C7,
+0xC4C8,
+0xB09B,
+0xB09C,
+0xB09D,
+0xB09E,
+0xB09F,
+0xB0A0,
+0xC4C9,
+0xC4CA,
+0xB141,
+0xB142,
+0xC4CB,
+0xB143,
+0xB144,
+0xB145,
+0xC4CC,
+0xB146,
+0xB147,
+0xB148,
+0xB149,
+0xB14A,
+0xB14B,
+0xB14C,
+0xC4CD,
+0xC4CE,
+0xB14D,
+0xC4CF,
+0xB14E,
+0xC4D0,
+0xB14F,
+0xB150,
+0xB151,
+0xB152,
+0xB153,
+0xB154,
+0xC4D1,
+0xB155,
+0xB156,
+0xB157,
+0xC4D2,
+0xB158,
+0xB159,
+0xB15A,
+0xC4D3,
+0xB161,
+0xB162,
+0xB163,
+0xB164,
+0xB165,
+0xB166,
+0xB167,
+0xC4D4,
+0xC4D5,
+0xB168,
+0xC4D6,
+0xC4D7,
+0xC4D8,
+0xB169,
+0xB16A,
+0xB16B,
+0xB16C,
+0xB16D,
+0xB16E,
+0xC4D9,
+0xB16F,
+0xB170,
+0xB171,
+0xB172,
+0xB173,
+0xB174,
+0xB175,
+0xB176,
+0xB177,
+0xB178,
+0xB179,
+0xB17A,
+0xB181,
+0xB182,
+0xB183,
+0xB184,
+0xB185,
+0xB186,
+0xB187,
+0xB188,
+0xB189,
+0xB18A,
+0xB18B,
+0xB18C,
+0xB18D,
+0xB18E,
+0xB18F,
+0xC4DA,
+0xC4DB,
+0xB190,
+0xB191,
+0xC4DC,
+0xB192,
+0xB193,
+0xB194,
+0xC4DD,
+0xB195,
+0xB196,
+0xB197,
+0xB198,
+0xB199,
+0xB19A,
+0xB19B,
+0xC4DE,
+0xC4DF,
+0xB19C,
+0xC4E0,
+0xB19D,
+0xC4E1,
+0xB19E,
+0xB19F,
+0xB1A0,
+0xB241,
+0xB242,
+0xB243,
+0xC4E2,
+0xC4E3,
+0xB244,
+0xB245,
+0xC4E4,
+0xB246,
+0xB247,
+0xB248,
+0xC4E5,
+0xB249,
+0xB24A,
+0xB24B,
+0xB24C,
+0xB24D,
+0xB24E,
+0xB24F,
+0xC4E6,
+0xB250,
+0xB251,
+0xB252,
+0xB253,
+0xC4E7,
+0xB254,
+0xB255,
+0xB256,
+0xB257,
+0xB258,
+0xB259,
+0xC4E8,
+0xB25A,
+0xB261,
+0xB262,
+0xB263,
+0xB264,
+0xB265,
+0xB266,
+0xB267,
+0xB268,
+0xB269,
+0xB26A,
+0xB26B,
+0xB26C,
+0xB26D,
+0xB26E,
+0xB26F,
+0xB270,
+0xB271,
+0xB272,
+0xB273,
+0xC4E9,
+0xB274,
+0xB275,
+0xB276,
+0xB277,
+0xB278,
+0xB279,
+0xC4EA,
+0xB27A,
+0xB281,
+0xB282,
+0xB283,
+0xB284,
+0xB285,
+0xB286,
+0xC4EB,
+0xB287,
+0xB288,
+0xB289,
+0xB28A,
+0xB28B,
+0xB28C,
+0xB28D,
+0xB28E,
+0xB28F,
+0xB290,
+0xB291,
+0xB292,
+0xB293,
+0xB294,
+0xB295,
+0xB296,
+0xB297,
+0xB298,
+0xB299,
+0xC4EC,
+0xB29A,
+0xB29B,
+0xB29C,
+0xB29D,
+0xB29E,
+0xB29F,
+0xB2A0,
+0xB341,
+0xB342,
+0xB343,
+0xB344,
+0xB345,
+0xB346,
+0xB347,
+0xB348,
+0xB349,
+0xB34A,
+0xB34B,
+0xB34C,
+0xB34D,
+0xB34E,
+0xB34F,
+0xB350,
+0xB351,
+0xB352,
+0xB353,
+0xB354,
+0xC4ED,
+0xC4EE,
+0xB355,
+0xB356,
+0xC4EF,
+0xB357,
+0xB358,
+0xB359,
+0xC4F0,
+0xB35A,
+0xB361,
+0xB362,
+0xB363,
+0xB364,
+0xB365,
+0xB366,
+0xC4F1,
+0xC4F2,
+0xB367,
+0xC4F3,
+0xB368,
+0xC4F4,
+0xB369,
+0xB36A,
+0xB36B,
+0xB36C,
+0xB36D,
+0xB36E,
+0xC4F5,
+0xB36F,
+0xB370,
+0xB371,
+0xC4F6,
+0xB372,
+0xB373,
+0xB374,
+0xC4F7,
+0xB375,
+0xB376,
+0xB377,
+0xB378,
+0xB379,
+0xB37A,
+0xB381,
+0xB382,
+0xB383,
+0xB384,
+0xB385,
+0xB386,
+0xC4F8,
+0xB387,
+0xB388,
+0xB389,
+0xB38A,
+0xB38B,
+0xB38C,
+0xC4F9,
+0xB38D,
+0xB38E,
+0xB38F,
+0xB390,
+0xB391,
+0xB392,
+0xB393,
+0xB394,
+0xB395,
+0xB396,
+0xB397,
+0xB398,
+0xB399,
+0xB39A,
+0xB39B,
+0xB39C,
+0xB39D,
+0xB39E,
+0xB39F,
+0xB3A0,
+0xC4FA,
+0xB441,
+0xB442,
+0xB443,
+0xB444,
+0xB445,
+0xB446,
+0xC4FB,
+0xC4FC,
+0xB447,
+0xB448,
+0xC4FD,
+0xB449,
+0xB44A,
+0xB44B,
+0xC4FE,
+0xB44C,
+0xB44D,
+0xB44E,
+0xB44F,
+0xB450,
+0xB451,
+0xB452,
+0xC5A1,
+0xC5A2,
+0xB453,
+0xC5A3,
+0xB454,
+0xC5A4,
+0xB455,
+0xB456,
+0xB457,
+0xB458,
+0xB459,
+0xB45A,
+0xC5A5,
+0xB461,
+0xB462,
+0xB463,
+0xC5A6,
+0xB464,
+0xB465,
+0xB466,
+0xC5A7,
+0xB467,
+0xB468,
+0xB469,
+0xB46A,
+0xB46B,
+0xB46C,
+0xB46D,
+0xC5A8,
+0xB46E,
+0xB46F,
+0xB470,
+0xB471,
+0xB472,
+0xB473,
+0xB474,
+0xB475,
+0xB476,
+0xB477,
+0xB478,
+0xC5A9,
+0xC5AA,
+0xB479,
+0xB47A,
+0xC5AB,
+0xB481,
+0xB482,
+0xB483,
+0xC5AC,
+0xB484,
+0xB485,
+0xB486,
+0xB487,
+0xB488,
+0xB489,
+0xB48A,
+0xC5AD,
+0xC5AE,
+0xB48B,
+0xB48C,
+0xB48D,
+0xC5AF,
+0xB48E,
+0xB48F,
+0xB490,
+0xB491,
+0xB492,
+0xB493,
+0xB494,
+0xB495,
+0xB496,
+0xB497,
+0xB498,
+0xB499,
+0xB49A,
+0xB49B,
+0xB49C,
+0xB49D,
+0xB49E,
+0xB49F,
+0xB4A0,
+0xB541,
+0xB542,
+0xB543,
+0xB544,
+0xB545,
+0xB546,
+0xB547,
+0xB548,
+0xB549,
+0xB54A,
+0xB54B,
+0xB54C,
+0xB54D,
+0xB54E,
+0xB54F,
+0xC5B0,
+0xC5B1,
+0xB550,
+0xB551,
+0xC5B2,
+0xB552,
+0xB553,
+0xB554,
+0xC5B3,
+0xB555,
+0xB556,
+0xB557,
+0xB558,
+0xB559,
+0xB55A,
+0xB561,
+0xC5B4,
+0xC5B5,
+0xB562,
+0xC5B6,
+0xB563,
+0xC5B7,
+0xB564,
+0xB565,
+0xB566,
+0xB567,
+0xB568,
+0xB569,
+0xC5B8,
+0xC5B9,
+0xB56A,
+0xB56B,
+0xC5BA,
+0xB56C,
+0xB56D,
+0xB56E,
+0xC5BB,
+0xC5BC,
+0xB56F,
+0xB570,
+0xB571,
+0xB572,
+0xB573,
+0xB574,
+0xC5BD,
+0xC5BE,
+0xB575,
+0xC5BF,
+0xC5C0,
+0xC5C1,
+0xB576,
+0xB577,
+0xB578,
+0xB579,
+0xB57A,
+0xB581,
+0xC5C2,
+0xC5C3,
+0xB582,
+0xB583,
+0xC5C4,
+0xB584,
+0xB585,
+0xB586,
+0xC5C5,
+0xB587,
+0xB588,
+0xB589,
+0xB58A,
+0xB58B,
+0xB58C,
+0xB58D,
+0xC5C6,
+0xC5C7,
+0xB58E,
+0xC5C8,
+0xC5C9,
+0xC5CA,
+0xB58F,
+0xB590,
+0xB591,
+0xB592,
+0xB593,
+0xB594,
+0xC5CB,
+0xB595,
+0xB596,
+0xB597,
+0xB598,
+0xB599,
+0xB59A,
+0xB59B,
+0xB59C,
+0xB59D,
+0xB59E,
+0xB59F,
+0xB5A0,
+0xB641,
+0xB642,
+0xB643,
+0xB644,
+0xB645,
+0xB646,
+0xB647,
+0xB648,
+0xC5CC,
+0xB649,
+0xB64A,
+0xB64B,
+0xB64C,
+0xB64D,
+0xB64E,
+0xB64F,
+0xB650,
+0xB651,
+0xB652,
+0xB653,
+0xB654,
+0xB655,
+0xB656,
+0xB657,
+0xB658,
+0xB659,
+0xB65A,
+0xB661,
+0xB662,
+0xB663,
+0xB664,
+0xB665,
+0xB666,
+0xB667,
+0xB668,
+0xB669,
+0xB66A,
+0xB66B,
+0xB66C,
+0xB66D,
+0xB66E,
+0xB66F,
+0xB670,
+0xC5CD,
+0xC5CE,
+0xB671,
+0xB672,
+0xC5CF,
+0xB673,
+0xB674,
+0xB675,
+0xC5D0,
+0xB676,
+0xC5D1,
+0xB677,
+0xB678,
+0xB679,
+0xB67A,
+0xB681,
+0xC5D2,
+0xC5D3,
+0xB682,
+0xC5D4,
+0xC5D5,
+0xC5D6,
+0xB683,
+0xB684,
+0xB685,
+0xB686,
+0xB687,
+0xB688,
+0xC5D7,
+0xC5D8,
+0xB689,
+0xB68A,
+0xC5D9,
+0xB68B,
+0xB68C,
+0xB68D,
+0xC5DA,
+0xB68E,
+0xB68F,
+0xB690,
+0xB691,
+0xB692,
+0xB693,
+0xB694,
+0xC5DB,
+0xC5DC,
+0xB695,
+0xC5DD,
+0xB696,
+0xC5DE,
+0xB697,
+0xB698,
+0xB699,
+0xB69A,
+0xB69B,
+0xB69C,
+0xC5DF,
+0xB69D,
+0xB69E,
+0xB69F,
+0xC5E0,
+0xB6A0,
+0xB741,
+0xB742,
+0xB743,
+0xB744,
+0xB745,
+0xB746,
+0xB747,
+0xB748,
+0xB749,
+0xB74A,
+0xB74B,
+0xB74C,
+0xB74D,
+0xB74E,
+0xC5E1,
+0xB74F,
+0xB750,
+0xB751,
+0xB752,
+0xB753,
+0xB754,
+0xB755,
+0xC5E2,
+0xB756,
+0xB757,
+0xB758,
+0xC5E3,
+0xB759,
+0xB75A,
+0xB761,
+0xB762,
+0xB763,
+0xB764,
+0xB765,
+0xB766,
+0xB767,
+0xB768,
+0xB769,
+0xB76A,
+0xB76B,
+0xB76C,
+0xB76D,
+0xB76E,
+0xB76F,
+0xB770,
+0xB771,
+0xB772,
+0xB773,
+0xB774,
+0xB775,
+0xC5E4,
+0xC5E5,
+0xB776,
+0xB777,
+0xC5E6,
+0xB778,
+0xB779,
+0xB77A,
+0xC5E7,
+0xB781,
+0xB782,
+0xB783,
+0xB784,
+0xB785,
+0xB786,
+0xB787,
+0xC5E8,
+0xC5E9,
+0xB788,
+0xC5EA,
+0xB789,
+0xC5EB,
+0xB78A,
+0xB78B,
+0xB78C,
+0xB78D,
+0xC5EC,
+0xB78E,
+0xC5ED,
+0xB78F,
+0xB790,
+0xB791,
+0xC5EE,
+0xB792,
+0xB793,
+0xB794,
+0xB795,
+0xB796,
+0xB797,
+0xB798,
+0xB799,
+0xB79A,
+0xB79B,
+0xB79C,
+0xB79D,
+0xB79E,
+0xB79F,
+0xB7A0,
+0xB841,
+0xB842,
+0xB843,
+0xB844,
+0xB845,
+0xB846,
+0xB847,
+0xB848,
+0xC5EF,
+0xB849,
+0xB84A,
+0xB84B,
+0xB84C,
+0xB84D,
+0xB84E,
+0xB84F,
+0xB850,
+0xB851,
+0xB852,
+0xB853,
+0xB854,
+0xB855,
+0xB856,
+0xB857,
+0xB858,
+0xB859,
+0xB85A,
+0xB861,
+0xB862,
+0xB863,
+0xB864,
+0xB865,
+0xB866,
+0xB867,
+0xB868,
+0xB869,
+0xC5F0,
+0xB86A,
+0xB86B,
+0xB86C,
+0xC5F1,
+0xB86D,
+0xB86E,
+0xB86F,
+0xB870,
+0xB871,
+0xB872,
+0xB873,
+0xB874,
+0xB875,
+0xB876,
+0xB877,
+0xB878,
+0xB879,
+0xB87A,
+0xC5F2,
+0xB881,
+0xC5F3,
+0xB882,
+0xB883,
+0xB884,
+0xB885,
+0xB886,
+0xB887,
+0xC5F4,
+0xB888,
+0xB889,
+0xB88A,
+0xB88B,
+0xB88C,
+0xB88D,
+0xB88E,
+0xB88F,
+0xB890,
+0xB891,
+0xB892,
+0xB893,
+0xB894,
+0xB895,
+0xB896,
+0xB897,
+0xB898,
+0xB899,
+0xB89A,
+0xB89B,
+0xB89C,
+0xB89D,
+0xB89E,
+0xB89F,
+0xB8A0,
+0xB941,
+0xB942,
+0xC5F5,
+0xC5F6,
+0xB943,
+0xB944,
+0xC5F7,
+0xB945,
+0xB946,
+0xB947,
+0xC5F8,
+0xB948,
+0xB949,
+0xB94A,
+0xB94B,
+0xB94C,
+0xB94D,
+0xB94E,
+0xC5F9,
+0xC5FA,
+0xB94F,
+0xC5FB,
+0xB950,
+0xC5FC,
+0xB951,
+0xB952,
+0xB953,
+0xB954,
+0xB955,
+0xB956,
+0xC5FD,
+0xB957,
+0xB958,
+0xB959,
+0xB95A,
+0xB961,
+0xB962,
+0xB963,
+0xB964,
+0xB965,
+0xB966,
+0xB967,
+0xB968,
+0xB969,
+0xB96A,
+0xB96B,
+0xB96C,
+0xB96D,
+0xB96E,
+0xB96F,
+0xC5FE,
+0xB970,
+0xB971,
+0xB972,
+0xB973,
+0xB974,
+0xB975,
+0xB976,
+0xC6A1,
+0xB977,
+0xB978,
+0xB979,
+0xB97A,
+0xB981,
+0xB982,
+0xB983,
+0xB984,
+0xB985,
+0xB986,
+0xB987,
+0xB988,
+0xB989,
+0xB98A,
+0xB98B,
+0xB98C,
+0xB98D,
+0xB98E,
+0xB98F,
+0xB990,
+0xB991,
+0xB992,
+0xB993,
+0xB994,
+0xB995,
+0xB996,
+0xB997,
+0xC6A2,
+0xC6A3,
+0xB998,
+0xB999,
+0xC6A4,
+0xB99A,
+0xB99B,
+0xB99C,
+0xC6A5,
+0xB99D,
+0xB99E,
+0xB99F,
+0xB9A0,
+0xBA41,
+0xBA42,
+0xBA43,
+0xC6A6,
+0xC6A7,
+0xBA44,
+0xBA45,
+0xBA46,
+0xC6A8,
+0xBA47,
+0xBA48,
+0xBA49,
+0xBA4A,
+0xBA4B,
+0xBA4C,
+0xC6A9,
+0xBA4D,
+0xBA4E,
+0xBA4F,
+0xC6AA,
+0xBA50,
+0xBA51,
+0xBA52,
+0xC6AB,
+0xBA53,
+0xBA54,
+0xBA55,
+0xBA56,
+0xBA57,
+0xBA58,
+0xBA59,
+0xC6AC,
+0xBA5A,
+0xBA61,
+0xBA62,
+0xBA63,
+0xC6AD,
+0xBA64,
+0xBA65,
+0xBA66,
+0xBA67,
+0xBA68,
+0xBA69,
+0xC6AE,
+0xC6AF,
+0xBA6A,
+0xBA6B,
+0xC6B0,
+0xBA6C,
+0xBA6D,
+0xC6B1,
+0xC6B2,
+0xBA6E,
+0xC6B3,
+0xBA6F,
+0xBA70,
+0xBA71,
+0xBA72,
+0xBA73,
+0xC6B4,
+0xC6B5,
+0xBA74,
+0xC6B6,
+0xBA75,
+0xBA76,
+0xBA77,
+0xBA78,
+0xBA79,
+0xBA7A,
+0xBA81,
+0xBA82,
+0xC6B7,
+0xBA83,
+0xBA84,
+0xBA85,
+0xC6B8,
+0xBA86,
+0xBA87,
+0xBA88,
+0xC6B9,
+0xBA89,
+0xBA8A,
+0xBA8B,
+0xBA8C,
+0xBA8D,
+0xBA8E,
+0xBA8F,
+0xC6BA,
+0xC6BB,
+0xBA90,
+0xBA91,
+0xBA92,
+0xBA93,
+0xBA94,
+0xBA95,
+0xBA96,
+0xBA97,
+0xBA98,
+0xBA99,
+0xC6BC,
+0xC6BD,
+0xBA9A,
+0xBA9B,
+0xC6BE,
+0xBA9C,
+0xBA9D,
+0xBA9E,
+0xC6BF,
+0xBA9F,
+0xBAA0,
+0xBB41,
+0xBB42,
+0xBB43,
+0xBB44,
+0xBB45,
+0xC6C0,
+0xC6C1,
+0xBB46,
+0xC6C2,
+0xBB47,
+0xC6C3,
+0xBB48,
+0xBB49,
+0xBB4A,
+0xBB4B,
+0xBB4C,
+0xBB4D,
+0xC6C4,
+0xC6C5,
+0xC6C6,
+0xBB4E,
+0xC6C7,
+0xBB4F,
+0xBB50,
+0xBB51,
+0xC6C8,
+0xBB52,
+0xC6C9,
+0xBB53,
+0xBB54,
+0xBB55,
+0xBB56,
+0xBB57,
+0xC6CA,
+0xC6CB,
+0xBB58,
+0xC6CC,
+0xC6CD,
+0xC6CE,
+0xBB59,
+0xBB5A,
+0xBB61,
+0xC6CF,
+0xBB62,
+0xBB63,
+0xC6D0,
+0xC6D1,
+0xBB64,
+0xBB65,
+0xC6D2,
+0xBB66,
+0xBB67,
+0xBB68,
+0xC6D3,
+0xBB69,
+0xBB6A,
+0xBB6B,
+0xBB6C,
+0xBB6D,
+0xBB6E,
+0xBB6F,
+0xC6D4,
+0xC6D5,
+0xBB70,
+0xC6D6,
+0xC6D7,
+0xC6D8,
+0xBB71,
+0xBB72,
+0xBB73,
+0xBB74,
+0xBB75,
+0xBB76,
+0xC6D9,
+0xC6DA,
+0xBB77,
+0xBB78,
+0xBB79,
+0xBB7A,
+0xBB81,
+0xBB82,
+0xBB83,
+0xBB84,
+0xBB85,
+0xBB86,
+0xBB87,
+0xBB88,
+0xBB89,
+0xBB8A,
+0xBB8B,
+0xBB8C,
+0xBB8D,
+0xBB8E,
+0xBB8F,
+0xBB90,
+0xBB91,
+0xBB92,
+0xBB93,
+0xBB94,
+0xBB95,
+0xBB96,
+0xBB97,
+0xBB98,
+0xBB99,
+0xBB9A,
+0xBB9B,
+0xBB9C,
+0xBB9D,
+0xBB9E,
+0xBB9F,
+0xBBA0,
+0xBC41,
+0xBC42,
+0xBC43,
+0xBC44,
+0xBC45,
+0xBC46,
+0xBC47,
+0xBC48,
+0xBC49,
+0xBC4A,
+0xBC4B,
+0xBC4C,
+0xBC4D,
+0xBC4E,
+0xBC4F,
+0xBC50,
+0xBC51,
+0xBC52,
+0xC6DB,
+0xC6DC,
+0xBC53,
+0xBC54,
+0xC6DD,
+0xBC55,
+0xBC56,
+0xBC57,
+0xC6DE,
+0xBC58,
+0xBC59,
+0xBC5A,
+0xBC61,
+0xBC62,
+0xBC63,
+0xBC64,
+0xC6DF,
+0xC6E0,
+0xBC65,
+0xC6E1,
+0xC6E2,
+0xC6E3,
+0xBC66,
+0xBC67,
+0xBC68,
+0xBC69,
+0xBC6A,
+0xBC6B,
+0xC6E4,
+0xC6E5,
+0xBC6C,
+0xBC6D,
+0xC6E6,
+0xBC6E,
+0xBC6F,
+0xBC70,
+0xC6E7,
+0xBC71,
+0xBC72,
+0xBC73,
+0xBC74,
+0xBC75,
+0xBC76,
+0xBC77,
+0xC6E8,
+0xC6E9,
+0xBC78,
+0xC6EA,
+0xBC79,
+0xC6EB,
+0xBC7A,
+0xBC81,
+0xBC82,
+0xBC83,
+0xBC84,
+0xBC85,
+0xC6EC,
+0xBC86,
+0xBC87,
+0xBC88,
+0xC6ED,
+0xBC89,
+0xBC8A,
+0xBC8B,
+0xC6EE,
+0xBC8C,
+0xBC8D,
+0xBC8E,
+0xBC8F,
+0xBC90,
+0xBC91,
+0xBC92,
+0xC6EF,
+0xC6F0,
+0xBC93,
+0xBC94,
+0xC6F1,
+0xC6F2,
+0xBC95,
+0xBC96,
+0xBC97,
+0xBC98,
+0xBC99,
+0xBC9A,
+0xC6F3,
+0xBC9B,
+0xBC9C,
+0xBC9D,
+0xBC9E,
+0xBC9F,
+0xBCA0,
+0xBD41,
+0xC6F4,
+0xBD42,
+0xBD43,
+0xBD44,
+0xBD45,
+0xBD46,
+0xBD47,
+0xBD48,
+0xBD49,
+0xC6F5,
+0xBD4A,
+0xC6F6,
+0xBD4B,
+0xBD4C,
+0xBD4D,
+0xBD4E,
+0xBD4F,
+0xBD50,
+0xBD51,
+0xBD52,
+0xC6F7,
+0xC6F8,
+0xBD53,
+0xBD54,
+0xC6F9,
+0xBD55,
+0xBD56,
+0xBD57,
+0xC6FA,
+0xBD58,
+0xBD59,
+0xBD5A,
+0xBD61,
+0xBD62,
+0xBD63,
+0xBD64,
+0xC6FB,
+0xC6FC,
+0xBD65,
+0xC6FD,
+0xBD66,
+0xC6FE,
+0xBD67,
+0xBD68,
+0xBD69,
+0xBD6A,
+0xBD6B,
+0xBD6C,
+0xC7A1,
+0xBD6D,
+0xBD6E,
+0xBD6F,
+0xBD70,
+0xBD71,
+0xBD72,
+0xBD73,
+0xBD74,
+0xBD75,
+0xBD76,
+0xBD77,
+0xBD78,
+0xBD79,
+0xBD7A,
+0xBD81,
+0xBD82,
+0xBD83,
+0xBD84,
+0xBD85,
+0xBD86,
+0xC7A2,
+0xBD87,
+0xBD88,
+0xBD89,
+0xBD8A,
+0xBD8B,
+0xBD8C,
+0xBD8D,
+0xBD8E,
+0xBD8F,
+0xBD90,
+0xBD91,
+0xBD92,
+0xBD93,
+0xBD94,
+0xBD95,
+0xBD96,
+0xBD97,
+0xBD98,
+0xBD99,
+0xBD9A,
+0xBD9B,
+0xBD9C,
+0xBD9D,
+0xBD9E,
+0xBD9F,
+0xBDA0,
+0xBE41,
+0xBE42,
+0xBE43,
+0xBE44,
+0xBE45,
+0xBE46,
+0xBE47,
+0xBE48,
+0xC7A3,
+0xBE49,
+0xBE4A,
+0xBE4B,
+0xC7A4,
+0xBE4C,
+0xBE4D,
+0xBE4E,
+0xBE4F,
+0xBE50,
+0xBE51,
+0xBE52,
+0xBE53,
+0xBE54,
+0xBE55,
+0xBE56,
+0xBE57,
+0xBE58,
+0xBE59,
+0xBE5A,
+0xBE61,
+0xBE62,
+0xBE63,
+0xBE64,
+0xBE65,
+0xBE66,
+0xBE67,
+0xBE68,
+0xC7A5,
+0xBE69,
+0xBE6A,
+0xBE6B,
+0xC7A6,
+0xBE6C,
+0xBE6D,
+0xBE6E,
+0xC7A7,
+0xBE6F,
+0xBE70,
+0xBE71,
+0xBE72,
+0xBE73,
+0xBE74,
+0xBE75,
+0xBE76,
+0xC7A8,
+0xBE77,
+0xC7A9,
+0xBE78,
+0xBE79,
+0xBE7A,
+0xBE81,
+0xBE82,
+0xBE83,
+0xBE84,
+0xBE85,
+0xC7AA,
+0xC7AB,
+0xBE86,
+0xBE87,
+0xC7AC,
+0xBE88,
+0xBE89,
+0xC7AD,
+0xC7AE,
+0xBE8A,
+0xC7AF,
+0xBE8B,
+0xBE8C,
+0xBE8D,
+0xBE8E,
+0xBE8F,
+0xC7B0,
+0xC7B1,
+0xBE90,
+0xC7B2,
+0xBE91,
+0xC7B3,
+0xBE92,
+0xBE93,
+0xBE94,
+0xBE95,
+0xBE96,
+0xBE97,
+0xC7B4,
+0xBE98,
+0xBE99,
+0xBE9A,
+0xBE9B,
+0xBE9C,
+0xBE9D,
+0xBE9E,
+0xBE9F,
+0xBEA0,
+0xBF41,
+0xBF42,
+0xBF43,
+0xBF44,
+0xBF45,
+0xBF46,
+0xBF47,
+0xBF48,
+0xBF49,
+0xBF4A,
+0xBF4B,
+0xC7B5,
+0xBF4C,
+0xBF4D,
+0xBF4E,
+0xBF4F,
+0xBF50,
+0xBF51,
+0xBF52,
+0xBF53,
+0xBF54,
+0xBF55,
+0xBF56,
+0xBF57,
+0xBF58,
+0xBF59,
+0xBF5A,
+0xBF61,
+0xBF62,
+0xBF63,
+0xBF64,
+0xBF65,
+0xBF66,
+0xBF67,
+0xBF68,
+0xBF69,
+0xBF6A,
+0xBF6B,
+0xBF6C,
+0xBF6D,
+0xBF6E,
+0xBF6F,
+0xBF70,
+0xBF71,
+0xBF72,
+0xBF73,
+0xC7B6,
+0xBF74,
+0xBF75,
+0xBF76,
+0xC7B7,
+0xBF77,
+0xBF78,
+0xBF79,
+0xC7B8,
+0xBF7A,
+0xBF81,
+0xBF82,
+0xBF83,
+0xBF84,
+0xBF85,
+0xBF86,
+0xC7B9,
+0xBF87,
+0xBF88,
+0xC7BA,
+0xBF89,
+0xBF8A,
+0xBF8B,
+0xBF8C,
+0xBF8D,
+0xBF8E,
+0xBF8F,
+0xBF90,
+0xC7BB,
+0xBF91,
+0xBF92,
+0xBF93,
+0xC7BC,
+0xBF94,
+0xBF95,
+0xBF96,
+0xC7BD,
+0xBF97,
+0xBF98,
+0xBF99,
+0xBF9A,
+0xBF9B,
+0xBF9C,
+0xBF9D,
+0xC7BE,
+0xBF9E,
+0xBF9F,
+0xC7BF,
+0xBFA0,
+0xC7C0,
+0xC041,
+0xC042,
+0xC043,
+0xC044,
+0xC045,
+0xC046,
+0xC7C1,
+0xC047,
+0xC048,
+0xC049,
+0xC7C2,
+0xC04A,
+0xC04B,
+0xC04C,
+0xC7C3,
+0xC04D,
+0xC04E,
+0xC04F,
+0xC050,
+0xC051,
+0xC052,
+0xC053,
+0xC7C4,
+0xC7C5,
+0xC054,
+0xC7C6,
+0xC055,
+0xC056,
+0xC057,
+0xC058,
+0xC059,
+0xC05A,
+0xC061,
+0xC062,
+0xC063,
+0xC064,
+0xC065,
+0xC066,
+0xC067,
+0xC068,
+0xC069,
+0xC06A,
+0xC06B,
+0xC06C,
+0xC06D,
+0xC06E,
+0xC06F,
+0xC070,
+0xC071,
+0xC072,
+0xC073,
+0xC074,
+0xC075,
+0xC076,
+0xC077,
+0xC078,
+0xC079,
+0xC07A,
+0xC081,
+0xC082,
+0xC083,
+0xC084,
+0xC7C7,
+0xC7C8,
+0xC085,
+0xC086,
+0xC7C9,
+0xC087,
+0xC088,
+0xC089,
+0xC7CA,
+0xC08A,
+0xC08B,
+0xC08C,
+0xC08D,
+0xC08E,
+0xC08F,
+0xC090,
+0xC7CB,
+0xC7CC,
+0xC091,
+0xC7CD,
+0xC092,
+0xC7CE,
+0xC093,
+0xC094,
+0xC095,
+0xC096,
+0xC097,
+0xC098,
+0xC7CF,
+0xC7D0,
+0xC099,
+0xC09A,
+0xC7D1,
+0xC09B,
+0xC09C,
+0xC09D,
+0xC7D2,
+0xC09E,
+0xC09F,
+0xC0A0,
+0xC141,
+0xC7D3,
+0xC142,
+0xC143,
+0xC7D4,
+0xC7D5,
+0xC144,
+0xC7D6,
+0xC145,
+0xC7D7,
+0xC146,
+0xC147,
+0xC148,
+0xC149,
+0xC14A,
+0xC14B,
+0xC7D8,
+0xC7D9,
+0xC14C,
+0xC14D,
+0xC7DA,
+0xC14E,
+0xC14F,
+0xC150,
+0xC7DB,
+0xC151,
+0xC152,
+0xC153,
+0xC154,
+0xC155,
+0xC156,
+0xC157,
+0xC7DC,
+0xC7DD,
+0xC158,
+0xC7DE,
+0xC7DF,
+0xC7E0,
+0xC159,
+0xC15A,
+0xC161,
+0xC162,
+0xC163,
+0xC164,
+0xC7E1,
+0xC165,
+0xC166,
+0xC167,
+0xC168,
+0xC169,
+0xC16A,
+0xC16B,
+0xC16C,
+0xC16D,
+0xC16E,
+0xC16F,
+0xC170,
+0xC171,
+0xC172,
+0xC173,
+0xC174,
+0xC175,
+0xC176,
+0xC177,
+0xC178,
+0xC7E2,
+0xC179,
+0xC17A,
+0xC181,
+0xC182,
+0xC183,
+0xC184,
+0xC185,
+0xC186,
+0xC187,
+0xC188,
+0xC189,
+0xC18A,
+0xC18B,
+0xC18C,
+0xC18D,
+0xC18E,
+0xC18F,
+0xC190,
+0xC191,
+0xC192,
+0xC193,
+0xC194,
+0xC195,
+0xC196,
+0xC197,
+0xC198,
+0xC199,
+0xC19A,
+0xC19B,
+0xC19C,
+0xC19D,
+0xC19E,
+0xC19F,
+0xC1A0,
+0xC7E3,
+0xC7E4,
+0xC241,
+0xC242,
+0xC7E5,
+0xC243,
+0xC244,
+0xC245,
+0xC7E6,
+0xC246,
+0xC7E7,
+0xC247,
+0xC248,
+0xC249,
+0xC24A,
+0xC24B,
+0xC7E8,
+0xC7E9,
+0xC24C,
+0xC7EA,
+0xC24D,
+0xC7EB,
+0xC24E,
+0xC24F,
+0xC250,
+0xC251,
+0xC252,
+0xC253,
+0xC7EC,
+0xC7ED,
+0xC254,
+0xC255,
+0xC7EE,
+0xC256,
+0xC257,
+0xC258,
+0xC7EF,
+0xC259,
+0xC25A,
+0xC261,
+0xC262,
+0xC263,
+0xC264,
+0xC265,
+0xC7F0,
+0xC7F1,
+0xC266,
+0xC7F2,
+0xC267,
+0xC7F3,
+0xC268,
+0xC269,
+0xC26A,
+0xC26B,
+0xC26C,
+0xC26D,
+0xC7F4,
+0xC7F5,
+0xC26E,
+0xC26F,
+0xC7F6,
+0xC270,
+0xC271,
+0xC272,
+0xC7F7,
+0xC273,
+0xC274,
+0xC275,
+0xC276,
+0xC277,
+0xC278,
+0xC279,
+0xC7F8,
+0xC7F9,
+0xC27A,
+0xC7FA,
+0xC7FB,
+0xC7FC,
+0xC281,
+0xC282,
+0xC283,
+0xC284,
+0xC285,
+0xC286,
+0xC7FD,
+0xC287,
+0xC288,
+0xC289,
+0xC7FE,
+0xC28A,
+0xC28B,
+0xC28C,
+0xC8A1,
+0xC28D,
+0xC28E,
+0xC28F,
+0xC290,
+0xC291,
+0xC292,
+0xC293,
+0xC294,
+0xC8A2,
+0xC295,
+0xC296,
+0xC297,
+0xC298,
+0xC299,
+0xC29A,
+0xC29B,
+0xC29C,
+0xC29D,
+0xC29E,
+0xC8A3,
+0xC8A4,
+0xC29F,
+0xC2A0,
+0xC8A5,
+0xC341,
+0xC342,
+0xC343,
+0xC8A6,
+0xC344,
+0xC345,
+0xC346,
+0xC347,
+0xC8A7,
+0xC348,
+0xC349,
+0xC8A8,
+0xC8A9,
+0xC34A,
+0xC8AA,
+0xC34B,
+0xC8AB,
+0xC34C,
+0xC34D,
+0xC34E,
+0xC8AC,
+0xC34F,
+0xC350,
+0xC8AD,
+0xC8AE,
+0xC351,
+0xC352,
+0xC8AF,
+0xC353,
+0xC354,
+0xC355,
+0xC8B0,
+0xC356,
+0xC357,
+0xC358,
+0xC359,
+0xC35A,
+0xC361,
+0xC362,
+0xC363,
+0xC364,
+0xC365,
+0xC8B1,
+0xC366,
+0xC8B2,
+0xC367,
+0xC368,
+0xC369,
+0xC36A,
+0xC36B,
+0xC36C,
+0xC8B3,
+0xC8B4,
+0xC36D,
+0xC36E,
+0xC8B5,
+0xC36F,
+0xC370,
+0xC371,
+0xC372,
+0xC373,
+0xC374,
+0xC375,
+0xC376,
+0xC377,
+0xC378,
+0xC379,
+0xC37A,
+0xC381,
+0xC382,
+0xC8B6,
+0xC383,
+0xC8B7,
+0xC384,
+0xC385,
+0xC386,
+0xC387,
+0xC388,
+0xC389,
+0xC8B8,
+0xC8B9,
+0xC38A,
+0xC38B,
+0xC8BA,
+0xC38C,
+0xC38D,
+0xC38E,
+0xC8BB,
+0xC38F,
+0xC390,
+0xC391,
+0xC392,
+0xC393,
+0xC394,
+0xC395,
+0xC396,
+0xC8BC,
+0xC397,
+0xC8BD,
+0xC398,
+0xC8BE,
+0xC399,
+0xC39A,
+0xC39B,
+0xC39C,
+0xC39D,
+0xC39E,
+0xC8BF,
+0xC39F,
+0xC3A0,
+0xC441,
+0xC8C0,
+0xC442,
+0xC443,
+0xC444,
+0xC8C1,
+0xC445,
+0xC446,
+0xC447,
+0xC448,
+0xC449,
+0xC44A,
+0xC44B,
+0xC44C,
+0xC8C2,
+0xC44D,
+0xC8C3,
+0xC44E,
+0xC44F,
+0xC450,
+0xC451,
+0xC452,
+0xC453,
+0xC454,
+0xC455,
+0xC8C4,
+0xC8C5,
+0xC456,
+0xC457,
+0xC8C6,
+0xC458,
+0xC459,
+0xC45A,
+0xC8C7,
+0xC461,
+0xC462,
+0xC463,
+0xC464,
+0xC8C8,
+0xC465,
+0xC466,
+0xC8C9,
+0xC467,
+0xC468,
+0xC8CA,
+0xC469,
+0xC8CB,
+0xC46A,
+0xC46B,
+0xC46C,
+0xC46D,
+0xC46E,
+0xC46F,
+0xC8CC,
+0xC470,
+0xC471,
+0xC472,
+0xC8CD,
+0xC473,
+0xC474,
+0xC475,
+0xC8CE,
+0xC476,
+0xC477,
+0xC478,
+0xC479,
+0xC47A,
+0xC481,
+0xC482,
+0xC8CF,
+0xC483,
+0xC484,
+0xC485,
+0xC486,
+0xC8D0,
+0xC487,
+0xC488,
+0xC489,
+0xC48A,
+0xC48B,
+0xC48C,
+0xC8D1,
+0xC8D2,
+0xC48D,
+0xC48E,
+0xC8D3,
+0xC48F,
+0xC490,
+0xC491,
+0xC8D4,
+0xC492,
+0xC493,
+0xC494,
+0xC495,
+0xC496,
+0xC497,
+0xC498,
+0xC499,
+0xC49A,
+0xC49B,
+0xC49C,
+0xC49D,
+0xC8D5,
+0xC49E,
+0xC49F,
+0xC4A0,
+0xC541,
+0xC542,
+0xC543,
+0xC8D6,
+0xC8D7,
+0xC544,
+0xC545,
+0xC8D8,
+0xC546,
+0xC547,
+0xC548,
+0xC8D9,
+0xC549,
+0xC54A,
+0xC54B,
+0xC54C,
+0xC54D,
+0xC54E,
+0xC54F,
+0xC8DA,
+0xC8DB,
+0xC550,
+0xC8DC,
+0xC551,
+0xC8DD,
+0xC552,
+0xC553,
+0xC554,
+0xC555,
+0xC556,
+0xC557,
+0xC8DE,
+0xC8DF,
+0xC558,
+0xC559,
+0xC8E0,
+0xC55A,
+0xC561,
+0xC562,
+0xC8E1,
+0xC563,
+0xC564,
+0xC565,
+0xC566,
+0xC567,
+0xC568,
+0xC569,
+0xC8E2,
+0xC56A,
+0xC56B,
+0xC8E3,
+0xC56C,
+0xC8E4,
+0xC56D,
+0xC56E,
+0xC56F,
+0xC570,
+0xC571,
+0xC572,
+0xC8E5,
+0xC8E6,
+0xC573,
+0xC574,
+0xC8E7,
+0xC575,
+0xC8E8,
+0xC8E9,
+0xC8EA,
+0xC8EB,
+0xC576,
+0xC577,
+0xC578,
+0xC579,
+0xC57A,
+0xC581,
+0xC8EC,
+0xC8ED,
+0xC582,
+0xC8EE,
+0xC583,
+0xC8EF,
+0xC584,
+0xC585,
+0xC586,
+0xC8F0,
+0xC587,
+0xC588,
+0xC8F1,
+0xC589,
+0xC58A,
+0xC58B,
+0xC8F2,
+0xC58C,
+0xC58D,
+0xC58E,
+0xC8F3,
+0xC58F,
+0xC590,
+0xC591,
+0xC592,
+0xC593,
+0xC594,
+0xC595,
+0xC8F4,
+0xC8F5,
+0xC596,
+0xC597,
+0xC598,
+0xC8F6,
+0xC599,
+0xC59A,
+0xC59B,
+0xC59C,
+0xC59D,
+0xC59E,
+0xC8F7,
+0xC8F8,
+0xC59F,
+0xC5A0,
+0xC8F9,
+0xC641,
+0xC642,
+0xC643,
+0xC8FA,
+0xC644,
+0xC645,
+0xC646,
+0xC647,
+0xC648,
+0xC649,
+0xC64A,
+0xC8FB,
+0xC8FC,
+0xC64B,
+0xC8FD,
+0xC64C,
+0xC8FE,
+0xC64D,
+0xC64E,
+0xC64F,
+0xC650,
+0xC651,
+0xC652,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xCBD0,
+0xCBD6,
+0xCBE7,
+0xCDCF,
+0xCDE8,
+0xCEAD,
+0xCFFB,
+0xD0A2,
+0xD0B8,
+0xD0D0,
+0xD0DD,
+0xD1D4,
+0xD1D5,
+0xD1D8,
+0xD1DB,
+0xD1DC,
+0xD1DD,
+0xD1DE,
+0xD1DF,
+0xD1E0,
+0xD1E2,
+0xD1E3,
+0xD1E4,
+0xD1E5,
+0xD1E6,
+0xD1E8,
+0xD1E9,
+0xD1EA,
+0xD1EB,
+0xD1ED,
+0xD1EF,
+0xD1F0,
+0xD1F2,
+0xD1F6,
+0xD1FA,
+0xD1FC,
+0xD1FD,
+0xD1FE,
+0xD2A2,
+0xD2A3,
+0xD2A7,
+0xD2A8,
+0xD2A9,
+0xD2AA,
+0xD2AB,
+0xD2AD,
+0xD2B2,
+0xD2BE,
+0xD2C2,
+0xD2C3,
+0xD2C4,
+0xD2C6,
+0xD2C7,
+0xD2C8,
+0xD2C9,
+0xD2CA,
+0xD2CB,
+0xD2CD,
+0xD2CE,
+0xD2CF,
+0xD2D0,
+0xD2D1,
+0xD2D2,
+0xD2D3,
+0xD2D4,
+0xD2D5,
+0xD2D6,
+0xD2D7,
+0xD2D9,
+0xD2DA,
+0xD2DE,
+0xD2DF,
+0xD2E1,
+0xD2E2,
+0xD2E4,
+0xD2E5,
+0xD2E6,
+0xD2E7,
+0xD2E8,
+0xD2E9,
+0xD2EA,
+0xD2EB,
+0xD2F0,
+0xD2F1,
+0xD2F2,
+0xD2F3,
+0xD2F4,
+0xD2F5,
+0xD2F7,
+0xD2F8,
+0xD4E6,
+0xD4FC,
+0xD5A5,
+0xD5AB,
+0xD5AE,
+0xD6B8,
+0xD6CD,
+0xD7CB,
+0xD7E4,
+0xDBC5,
+0xDBE4,
+0xDCA5,
+0xDDA5,
+0xDDD5,
+0xDDF4,
+0xDEFC,
+0xDEFE,
+0xDFB3,
+0xDFE1,
+0xDFE8,
+0xE0F1,
+0xE1AD,
+0xE1ED,
+0xE3F5,
+0xE4A1,
+0xE4A9,
+0xE5AE,
+0xE5B1,
+0xE5B2,
+0xE5B9,
+0xE5BB,
+0xE5BC,
+0xE5C4,
+0xE5CE,
+0xE5D0,
+0xE5D2,
+0xE5D6,
+0xE5FA,
+0xE5FB,
+0xE5FC,
+0xE5FE,
+0xE6A1,
+0xE6A4,
+0xE6A7,
+0xE6AD,
+0xE6AF,
+0xE6B0,
+0xE6B1,
+0xE6B3,
+0xE6B7,
+0xE6B8,
+0xE6BC,
+0xE6C4,
+0xE6C6,
+0xE6C7,
+0xE6CA,
+0xE6D2,
+0xE6D6,
+0xE6D9,
+0xE6DC,
+0xE6DF,
+0xE6E1,
+0xE6E4,
+0xE6E5,
+0xE6E6,
+0xE6E8,
+0xE6EA,
+0xE6EB,
+0xE6EC,
+0xE6EF,
+0xE6F1,
+0xE6F2,
+0xE6F5,
+0xE6F6,
+0xE6F7,
+0xE6F9,
+0xE7A1,
+0xE7A6,
+0xE7A9,
+0xE7AA,
+0xE7AC,
+0xE7AD,
+0xE7B0,
+0xE7BF,
+0xE7C1,
+0xE7C6,
+0xE7C7,
+0xE7CB,
+0xE7CD,
+0xE7CF,
+0xE7D0,
+0xE7D3,
+0xE7DF,
+0xE7E4,
+0xE7E6,
+0xE7F7,
+0xE8E7,
+0xE8E8,
+0xE8F0,
+0xE8F1,
+0xE8F7,
+0xE8F9,
+0xE8FB,
+0xE8FE,
+0xE9A7,
+0xE9AC,
+0xE9CC,
+0xE9F7,
+0xEAC1,
+0xEAE5,
+0xEAF4,
+0xEAF7,
+0xEAFC,
+0xEAFE,
+0xEBA4,
+0xEBA7,
+0xEBA9,
+0xEBAA,
+0xEBBA,
+0xEBBB,
+0xEBBD,
+0xEBC1,
+0xEBC2,
+0xEBC6,
+0xEBC7,
+0xEBCC,
+0xEBCF,
+0xEBD0,
+0xEBD1,
+0xEBD2,
+0xEBD8,
+0xECA6,
+0xECA7,
+0xECAA,
+0xECAF,
+0xECB0,
+0xECB1,
+0xECB2,
+0xECB5,
+0xECB8,
+0xECBA,
+0xECC0,
+0xECC1,
+0xECC5,
+0xECC6,
+0xECC9,
+0xECCA,
+0xECD5,
+0xECDD,
+0xECDE,
+0xECE1,
+0xECE4,
+0xECE7,
+0xECE8,
+0xECF7,
+0xECF8,
+0xECFA,
+0xEDA1,
+0xEDA2,
+0xEDA3,
+0xEDEE,
+0xEEDB,
+0xF2BD,
+0xF2FA,
+0xF3B1,
+0xF4A7,
+0xF4EE,
+0xF6F4,
+0xF6F6,
+0xF7B8,
+0xF7C8,
+0xF7D3,
+0xF8DB,
+0xF8F0,
+0xFAA1,
+0xFAA2,
+0xFAE6,
+0xFCA9,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA3A1,
+0xA3A2,
+0xA3A3,
+0xA3A4,
+0xA3A5,
+0xA3A6,
+0xA3A7,
+0xA3A8,
+0xA3A9,
+0xA3AA,
+0xA3AB,
+0xA3AC,
+0xA3AD,
+0xA3AE,
+0xA3AF,
+0xA3B0,
+0xA3B1,
+0xA3B2,
+0xA3B3,
+0xA3B4,
+0xA3B5,
+0xA3B6,
+0xA3B7,
+0xA3B8,
+0xA3B9,
+0xA3BA,
+0xA3BB,
+0xA3BC,
+0xA3BD,
+0xA3BE,
+0xA3BF,
+0xA3C0,
+0xA3C1,
+0xA3C2,
+0xA3C3,
+0xA3C4,
+0xA3C5,
+0xA3C6,
+0xA3C7,
+0xA3C8,
+0xA3C9,
+0xA3CA,
+0xA3CB,
+0xA3CC,
+0xA3CD,
+0xA3CE,
+0xA3CF,
+0xA3D0,
+0xA3D1,
+0xA3D2,
+0xA3D3,
+0xA3D4,
+0xA3D5,
+0xA3D6,
+0xA3D7,
+0xA3D8,
+0xA3D9,
+0xA3DA,
+0xA3DB,
+0xA1AC,
+0xA3DD,
+0xA3DE,
+0xA3DF,
+0xA3E0,
+0xA3E1,
+0xA3E2,
+0xA3E3,
+0xA3E4,
+0xA3E5,
+0xA3E6,
+0xA3E7,
+0xA3E8,
+0xA3E9,
+0xA3EA,
+0xA3EB,
+0xA3EC,
+0xA3ED,
+0xA3EE,
+0xA3EF,
+0xA3F0,
+0xA3F1,
+0xA3F2,
+0xA3F3,
+0xA3F4,
+0xA3F5,
+0xA3F6,
+0xA3F7,
+0xA3F8,
+0xA3F9,
+0xA3FA,
+0xA3FB,
+0xA3FC,
+0xA3FD,
+0xA2A6,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0xA1CB,
+0xA1CC,
+0xA1FE,
+0xA3FE,
+0,
+0xA1CD,
+0xA3DC,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0
+};
+static CONST USHORT from_unicode_map[256] = {
+256,
+512,
+768,
+1024,
+1280,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+1536,
+1792,
+2048,
+2304,
+2560,
+2816,
+3072,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+3328,
+3584,
+3840,
+4096,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+4352,
+4608,
+4864,
+5120,
+5376,
+5632,
+5888,
+6144,
+6400,
+6656,
+6912,
+7168,
+7424,
+7680,
+7936,
+8192,
+8448,
+8704,
+8960,
+9216,
+9472,
+9728,
+9984,
+10240,
+10496,
+10752,
+11008,
+11264,
+11520,
+11776,
+12032,
+12288,
+12544,
+12800,
+13056,
+13312,
+13568,
+13824,
+14080,
+14336,
+14592,
+14848,
+15104,
+15360,
+15616,
+15872,
+16128,
+16384,
+16640,
+16896,
+17152,
+17408,
+17664,
+17920,
+18176,
+18432,
+18688,
+18944,
+19200,
+19456,
+19712,
+19968,
+20224,
+20480,
+20736,
+20992,
+21248,
+21504,
+21760,
+22016,
+22272,
+22528,
+22784,
+23040,
+23296,
+23552,
+23808,
+24064,
+24320,
+24576,
+24832,
+25088,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+25344,
+25600,
+25856,
+26112,
+26368,
+26624,
+26880,
+27136,
+27392,
+27648,
+27904,
+28160,
+28416,
+28672,
+28928,
+29184,
+29440,
+29696,
+29952,
+30208,
+30464,
+30720,
+30976,
+31232,
+31488,
+31744,
+32000,
+32256,
+32512,
+32768,
+33024,
+33280,
+33536,
+33792,
+34048,
+34304,
+34560,
+34816,
+35072,
+35328,
+35584,
+35840,
+36096,
+36352,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+0,
+36608,
+36864,
+0,
+0,
+0,
+0,
+37120
+};
diff --git a/src/intl/cs_latin1.h b/src/intl/cs_latin1.h
new file mode 100644
index 0000000000..779e742855
--- /dev/null
+++ b/src/intl/cs_latin1.h
@@ -0,0 +1,1323 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by gencvt40.e by      daves ------*/
+/*----------- On      Tue Feb  2 14:58:24 1993 -----------*/
+
+
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                              APOSTROPHE-QUOTE */ ,
+	/* 28 */ 0x0028 /*                           OPENING PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                           CLOSING PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                        PERIOD */ ,
+	/* 2F */ 0x002F /*                                         SLASH */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                        OPENING SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                                     BACKSLASH */ ,
+	/* 5D */ 0x005D /*                        CLOSING SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                            SPACING CIRCUMFLEX */ ,
+	/* 5F */ 0x005F /*                            SPACING UNDERSCORE */ ,
+	/* 60 */ 0x0060 /*                                 SPACING GRAVE */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                         OPENING CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                  VERTICAL BAR */ ,
+	/* 7D */ 0x007D /*                         CLOSING CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x0080 /*                            RESERVED - CTRL 80 */ ,
+	/* 81 */ 0x0081 /*                            RESERVED - CTRL 81 */ ,
+	/* 82 */ 0x0082 /*                            RESERVED - CTRL 82 */ ,
+	/* 83 */ 0x0083 /*                            RESERVED - CTRL 83 */ ,
+	/* 84 */ 0x0084 /*                            RESERVED - CTRL 84 */ ,
+	/* 85 */ 0x0085 /*                            RESERVED - CTRL 85 */ ,
+	/* 86 */ 0x0086 /*                            RESERVED - CTRL 86 */ ,
+	/* 87 */ 0x0087 /*                            RESERVED - CTRL 87 */ ,
+	/* 88 */ 0x0088 /*                            RESERVED - CTRL 88 */ ,
+	/* 89 */ 0x0089 /*                            RESERVED - CTRL 89 */ ,
+	/* 8A */ 0x008A /*                            RESERVED - CTRL 8A */ ,
+	/* 8B */ 0x008B /*                            RESERVED - CTRL 8B */ ,
+	/* 8C */ 0x008C /*                            RESERVED - CTRL 8C */ ,
+	/* 8D */ 0x008D /*                            RESERVED - CTRL 8D */ ,
+	/* 8E */ 0x008E /*                            RESERVED - CTRL 8E */ ,
+	/* 8F */ 0x008F /*                            RESERVED - CTRL 8F */ ,
+	/* 90 */ 0x0090 /*                            RESERVED - CTRL 90 */ ,
+	/* 91 */ 0x0091 /*                            RESERVED - CTRL 91 */ ,
+	/* 92 */ 0x0092 /*                            RESERVED - CTRL 92 */ ,
+	/* 93 */ 0x0093 /*                            RESERVED - CTRL 93 */ ,
+	/* 94 */ 0x0094 /*                            RESERVED - CTRL 94 */ ,
+	/* 95 */ 0x0095 /*                            RESERVED - CTRL 95 */ ,
+	/* 96 */ 0x0096 /*                            RESERVED - CTRL 96 */ ,
+	/* 97 */ 0x0097 /*                            RESERVED - CTRL 97 */ ,
+	/* 98 */ 0x0098 /*                            RESERVED - CTRL 98 */ ,
+	/* 99 */ 0x0099 /*                            RESERVED - CTRL 99 */ ,
+	/* 9A */ 0x009A /*                            RESERVED - CTRL 9A */ ,
+	/* 9B */ 0x009B /*                            RESERVED - CTRL 9B */ ,
+	/* 9C */ 0x009C /*                            RESERVED - CTRL 9C */ ,
+	/* 9D */ 0x009D /*                            RESERVED - CTRL 9D */ ,
+	/* 9E */ 0x009E /*                            RESERVED - CTRL 9E */ ,
+	/* 9F */ 0x009F /*                            RESERVED - CTRL 9F */ ,
+	/* A0 */ 0x00A0 /*                            NON-BREAKING SPACE */ ,
+	/* A1 */ 0x00A1 /*                     INVERTED EXCLAMATION MARK */ ,
+	/* A2 */ 0x00A2 /*                                     CENT SIGN */ ,
+	/* A3 */ 0x00A3 /*                                    POUND SIGN */ ,
+	/* A4 */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* A5 */ 0x00A5 /*                                      YEN SIGN */ ,
+	/* A6 */ 0x00A6 /*                           BROKEN VERTICAL BAR */ ,
+	/* A7 */ 0x00A7 /*                                  SECTION SIGN */ ,
+	/* A8 */ 0x00A8 /*                             SPACING DIAERESIS */ ,
+	/* A9 */ 0x00A9 /*                                COPYRIGHT SIGN */ ,
+	/* AA */ 0x00AA /*                    FEMININE ORDINAL INDICATOR */ ,
+	/* AB */ 0x00AB /*                       LEFT POINTING GUILLEMET */ ,
+	/* AC */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AD */ 0x00AD /*                                   SOFT HYPHEN */ ,
+	/* AE */ 0x00AE /*                    REGISTERED TRADE MARK SIGN */ ,
+	/* AF */ 0x00AF /*                                SPACING MACRON */ ,
+	/* B0 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* B1 */ 0x00B1 /*                            PLUS-OR-MINUS SIGN */ ,
+	/* B2 */ 0x00B2 /*                         SUPERSCRIPT DIGIT TWO */ ,
+	/* B3 */ 0x00B3 /*                       SUPERSCRIPT DIGIT THREE */ ,
+	/* B4 */ 0x00B4 /*                                 SPACING ACUTE */ ,
+	/* B5 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* B6 */ 0x00B6 /*                                PARAGRAPH SIGN */ ,
+	/* B7 */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* B8 */ 0x00B8 /*                               SPACING CEDILLA */ ,
+	/* B9 */ 0x00B9 /*                         SUPERSCRIPT DIGIT ONE */ ,
+	/* BA */ 0x00BA /*                   MASCULINE ORDINAL INDICATOR */ ,
+	/* BB */ 0x00BB /*                      RIGHT POINTING GUILLEMET */ ,
+	/* BC */ 0x00BC /*                          FRACTION ONE QUARTER */ ,
+	/* BD */ 0x00BD /*                             FRACTION ONE HALF */ ,
+	/* BE */ 0x00BE /*                       FRACTION THREE QUARTERS */ ,
+	/* BF */ 0x00BF /*                        INVERTED QUESTION MARK */ ,
+	/* C0 */ 0x00C0 /*                  LATIN CAPITAL LETTER A GRAVE */ ,
+	/* C1 */ 0x00C1 /*                  LATIN CAPITAL LETTER A ACUTE */ ,
+	/* C2 */ 0x00C2 /*             LATIN CAPITAL LETTER A CIRCUMFLEX */ ,
+	/* C3 */ 0x00C3 /*                  LATIN CAPITAL LETTER A TILDE */ ,
+	/* C4 */ 0x00C4 /*              LATIN CAPITAL LETTER A DIAERESIS */ ,
+	/* C5 */ 0x00C5 /*                   LATIN CAPITAL LETTER A RING */ ,
+	/* C6 */ 0x00C6 /*                      LATIN CAPITAL LETTER A E */ ,
+	/* C7 */ 0x00C7 /*                LATIN CAPITAL LETTER C CEDILLA */ ,
+	/* C8 */ 0x00C8 /*                  LATIN CAPITAL LETTER E GRAVE */ ,
+	/* C9 */ 0x00C9 /*                  LATIN CAPITAL LETTER E ACUTE */ ,
+	/* CA */ 0x00CA /*             LATIN CAPITAL LETTER E CIRCUMFLEX */ ,
+	/* CB */ 0x00CB /*              LATIN CAPITAL LETTER E DIAERESIS */ ,
+	/* CC */ 0x00CC /*                  LATIN CAPITAL LETTER I GRAVE */ ,
+	/* CD */ 0x00CD /*                  LATIN CAPITAL LETTER I ACUTE */ ,
+	/* CE */ 0x00CE /*             LATIN CAPITAL LETTER I CIRCUMFLEX */ ,
+	/* CF */ 0x00CF /*              LATIN CAPITAL LETTER I DIAERESIS */ ,
+	/* D0 */ 0x00D0 /*                      LATIN CAPITAL LETTER ETH */ ,
+	/* D1 */ 0x00D1 /*                  LATIN CAPITAL LETTER N TILDE */ ,
+	/* D2 */ 0x00D2 /*                  LATIN CAPITAL LETTER O GRAVE */ ,
+	/* D3 */ 0x00D3 /*                  LATIN CAPITAL LETTER O ACUTE */ ,
+	/* D4 */ 0x00D4 /*             LATIN CAPITAL LETTER O CIRCUMFLEX */ ,
+	/* D5 */ 0x00D5 /*                  LATIN CAPITAL LETTER O TILDE */ ,
+	/* D6 */ 0x00D6 /*              LATIN CAPITAL LETTER O DIAERESIS */ ,
+	/* D7 */ 0x00D7 /*                           MULTIPLICATION SIGN */ ,
+	/* D8 */ 0x00D8 /*                  LATIN CAPITAL LETTER O SLASH */ ,
+	/* D9 */ 0x00D9 /*                  LATIN CAPITAL LETTER U GRAVE */ ,
+	/* DA */ 0x00DA /*                  LATIN CAPITAL LETTER U ACUTE */ ,
+	/* DB */ 0x00DB /*             LATIN CAPITAL LETTER U CIRCUMFLEX */ ,
+	/* DC */ 0x00DC /*              LATIN CAPITAL LETTER U DIAERESIS */ ,
+	/* DD */ 0x00DD /*                  LATIN CAPITAL LETTER Y ACUTE */ ,
+	/* DE */ 0x00DE /*                    LATIN CAPITAL LETTER THORN */ ,
+	/* DF */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* E0 */ 0x00E0 /*                    LATIN SMALL LETTER A GRAVE */ ,
+	/* E1 */ 0x00E1 /*                    LATIN SMALL LETTER A ACUTE */ ,
+	/* E2 */ 0x00E2 /*               LATIN SMALL LETTER A CIRCUMFLEX */ ,
+	/* E3 */ 0x00E3 /*                    LATIN SMALL LETTER A TILDE */ ,
+	/* E4 */ 0x00E4 /*                LATIN SMALL LETTER A DIAERESIS */ ,
+	/* E5 */ 0x00E5 /*                     LATIN SMALL LETTER A RING */ ,
+	/* E6 */ 0x00E6 /*                        LATIN SMALL LETTER A E */ ,
+	/* E7 */ 0x00E7 /*                  LATIN SMALL LETTER C CEDILLA */ ,
+	/* E8 */ 0x00E8 /*                    LATIN SMALL LETTER E GRAVE */ ,
+	/* E9 */ 0x00E9 /*                    LATIN SMALL LETTER E ACUTE */ ,
+	/* EA */ 0x00EA /*               LATIN SMALL LETTER E CIRCUMFLEX */ ,
+	/* EB */ 0x00EB /*                LATIN SMALL LETTER E DIAERESIS */ ,
+	/* EC */ 0x00EC /*                    LATIN SMALL LETTER I GRAVE */ ,
+	/* ED */ 0x00ED /*                    LATIN SMALL LETTER I ACUTE */ ,
+	/* EE */ 0x00EE /*               LATIN SMALL LETTER I CIRCUMFLEX */ ,
+	/* EF */ 0x00EF /*                LATIN SMALL LETTER I DIAERESIS */ ,
+	/* F0 */ 0x00F0 /*                        LATIN SMALL LETTER ETH */ ,
+	/* F1 */ 0x00F1 /*                    LATIN SMALL LETTER N TILDE */ ,
+	/* F2 */ 0x00F2 /*                    LATIN SMALL LETTER O GRAVE */ ,
+	/* F3 */ 0x00F3 /*                    LATIN SMALL LETTER O ACUTE */ ,
+	/* F4 */ 0x00F4 /*               LATIN SMALL LETTER O CIRCUMFLEX */ ,
+	/* F5 */ 0x00F5 /*                    LATIN SMALL LETTER O TILDE */ ,
+	/* F6 */ 0x00F6 /*                LATIN SMALL LETTER O DIAERESIS */ ,
+	/* F7 */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* F8 */ 0x00F8 /*                    LATIN SMALL LETTER O SLASH */ ,
+	/* F9 */ 0x00F9 /*                    LATIN SMALL LETTER U GRAVE */ ,
+	/* FA */ 0x00FA /*                    LATIN SMALL LETTER U ACUTE */ ,
+	/* FB */ 0x00FB /*               LATIN SMALL LETTER U CIRCUMFLEX */ ,
+	/* FC */ 0x00FC /*                LATIN SMALL LETTER U DIAERESIS */ ,
+	/* FD */ 0x00FD /*                    LATIN SMALL LETTER Y ACUTE */ ,
+	/* FE */ 0x00FE /*                      LATIN SMALL LETTER THORN */ ,
+								/* FF */ 0x00FF
+								/*                LATIN SMALL LETTER Y DIAERESIS */
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                              APOSTROPHE-QUOTE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                           OPENING PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                           CLOSING PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                        PERIOD */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                         SLASH */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                        OPENING SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                                     BACKSLASH */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                        CLOSING SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                            SPACING CIRCUMFLEX */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                            SPACING UNDERSCORE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                 SPACING GRAVE */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                         OPENING CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                  VERTICAL BAR */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                         CLOSING CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+	/* U+0080 */ 0x80 /*                            RESERVED - CTRL 80 */ ,	/* 384 */
+	/* U+0081 */ 0x81 /*                            RESERVED - CTRL 81 */ ,	/* 385 */
+	/* U+0082 */ 0x82 /*                            RESERVED - CTRL 82 */ ,	/* 386 */
+	/* U+0083 */ 0x83 /*                            RESERVED - CTRL 83 */ ,	/* 387 */
+	/* U+0084 */ 0x84 /*                            RESERVED - CTRL 84 */ ,	/* 388 */
+	/* U+0085 */ 0x85 /*                            RESERVED - CTRL 85 */ ,	/* 389 */
+	/* U+0086 */ 0x86 /*                            RESERVED - CTRL 86 */ ,	/* 390 */
+	/* U+0087 */ 0x87 /*                            RESERVED - CTRL 87 */ ,	/* 391 */
+	/* U+0088 */ 0x88 /*                            RESERVED - CTRL 88 */ ,	/* 392 */
+	/* U+0089 */ 0x89 /*                            RESERVED - CTRL 89 */ ,	/* 393 */
+	/* U+008A */ 0x8A /*                            RESERVED - CTRL 8A */ ,	/* 394 */
+	/* U+008B */ 0x8B /*                            RESERVED - CTRL 8B */ ,	/* 395 */
+	/* U+008C */ 0x8C /*                            RESERVED - CTRL 8C */ ,	/* 396 */
+	/* U+008D */ 0x8D /*                            RESERVED - CTRL 8D */ ,	/* 397 */
+	/* U+008E */ 0x8E /*                            RESERVED - CTRL 8E */ ,	/* 398 */
+	/* U+008F */ 0x8F /*                            RESERVED - CTRL 8F */ ,	/* 399 */
+	/* U+0090 */ 0x90 /*                            RESERVED - CTRL 90 */ ,	/* 400 */
+	/* U+0091 */ 0x91 /*                            RESERVED - CTRL 91 */ ,	/* 401 */
+	/* U+0092 */ 0x92 /*                            RESERVED - CTRL 92 */ ,	/* 402 */
+	/* U+0093 */ 0x93 /*                            RESERVED - CTRL 93 */ ,	/* 403 */
+	/* U+0094 */ 0x94 /*                            RESERVED - CTRL 94 */ ,	/* 404 */
+	/* U+0095 */ 0x95 /*                            RESERVED - CTRL 95 */ ,	/* 405 */
+	/* U+0096 */ 0x96 /*                            RESERVED - CTRL 96 */ ,	/* 406 */
+	/* U+0097 */ 0x97 /*                            RESERVED - CTRL 97 */ ,	/* 407 */
+	/* U+0098 */ 0x98 /*                            RESERVED - CTRL 98 */ ,	/* 408 */
+	/* U+0099 */ 0x99 /*                            RESERVED - CTRL 99 */ ,	/* 409 */
+	/* U+009A */ 0x9A /*                            RESERVED - CTRL 9A */ ,	/* 410 */
+	/* U+009B */ 0x9B /*                            RESERVED - CTRL 9B */ ,	/* 411 */
+	/* U+009C */ 0x9C /*                            RESERVED - CTRL 9C */ ,	/* 412 */
+	/* U+009D */ 0x9D /*                            RESERVED - CTRL 9D */ ,	/* 413 */
+	/* U+009E */ 0x9E /*                            RESERVED - CTRL 9E */ ,	/* 414 */
+	/* U+009F */ 0x9F /*                            RESERVED - CTRL 9F */ ,	/* 415 */
+	/* U+00A0 */ 0xA0 /*                            NON-BREAKING SPACE */ ,	/* 416 */
+	/* U+00A1 */ 0xA1 /*                     INVERTED EXCLAMATION MARK */ ,	/* 417 */
+	/* U+00A2 */ 0xA2 /*                                     CENT SIGN */ ,	/* 418 */
+	/* U+00A3 */ 0xA3 /*                                    POUND SIGN */ ,	/* 419 */
+	/* U+00A4 */ 0xA4 /*                                 CURRENCY SIGN */ ,	/* 420 */
+	/* U+00A5 */ 0xA5 /*                                      YEN SIGN */ ,	/* 421 */
+	/* U+00A6 */ 0xA6 /*                           BROKEN VERTICAL BAR */ ,	/* 422 */
+	/* U+00A7 */ 0xA7 /*                                  SECTION SIGN */ ,	/* 423 */
+	/* U+00A8 */ 0xA8 /*                             SPACING DIAERESIS */ ,	/* 424 */
+	/* U+00A9 */ 0xA9 /*                                COPYRIGHT SIGN */ ,	/* 425 */
+	/* U+00AA */ 0xAA /*                    FEMININE ORDINAL INDICATOR */ ,	/* 426 */
+	/* U+00AB */ 0xAB /*                       LEFT POINTING GUILLEMET */ ,	/* 427 */
+	/* U+00AC */ 0xAC /*                                      NOT SIGN */ ,	/* 428 */
+	/* U+00AD */ 0xAD /*                                   SOFT HYPHEN */ ,	/* 429 */
+	/* U+00AE */ 0xAE /*                    REGISTERED TRADE MARK SIGN */ ,	/* 430 */
+	/* U+00AF */ 0xAF /*                                SPACING MACRON */ ,	/* 431 */
+	/* U+00B0 */ 0xB0 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xB1 /*                            PLUS-OR-MINUS SIGN */ ,	/* 433 */
+	/* U+00B2 */ 0xB2 /*                         SUPERSCRIPT DIGIT TWO */ ,	/* 434 */
+	/* U+00B3 */ 0xB3 /*                       SUPERSCRIPT DIGIT THREE */ ,	/* 435 */
+	/* U+00B4 */ 0xB4 /*                                 SPACING ACUTE */ ,	/* 436 */
+	/* U+00B5 */ 0xB5 /*                                    MICRO SIGN */ ,	/* 437 */
+	/* U+00B6 */ 0xB6 /*                                PARAGRAPH SIGN */ ,	/* 438 */
+	/* U+00B7 */ 0xB7 /*                                    MIDDLE DOT */ ,	/* 439 */
+	/* U+00B8 */ 0xB8 /*                               SPACING CEDILLA */ ,	/* 440 */
+	/* U+00B9 */ 0xB9 /*                         SUPERSCRIPT DIGIT ONE */ ,	/* 441 */
+	/* U+00BA */ 0xBA /*                   MASCULINE ORDINAL INDICATOR */ ,	/* 442 */
+	/* U+00BB */ 0xBB /*                      RIGHT POINTING GUILLEMET */ ,	/* 443 */
+	/* U+00BC */ 0xBC /*                          FRACTION ONE QUARTER */ ,	/* 444 */
+	/* U+00BD */ 0xBD /*                             FRACTION ONE HALF */ ,	/* 445 */
+	/* U+00BE */ 0xBE /*                       FRACTION THREE QUARTERS */ ,	/* 446 */
+	/* U+00BF */ 0xBF /*                        INVERTED QUESTION MARK */ ,	/* 447 */
+	/* U+00C0 */ 0xC0 /*                  LATIN CAPITAL LETTER A GRAVE */ ,	/* 448 */
+	/* U+00C1 */ 0xC1 /*                  LATIN CAPITAL LETTER A ACUTE */ ,	/* 449 */
+	/* U+00C2 */ 0xC2 /*             LATIN CAPITAL LETTER A CIRCUMFLEX */ ,	/* 450 */
+	/* U+00C3 */ 0xC3 /*                  LATIN CAPITAL LETTER A TILDE */ ,	/* 451 */
+	/* U+00C4 */ 0xC4 /*              LATIN CAPITAL LETTER A DIAERESIS */ ,	/* 452 */
+	/* U+00C5 */ 0xC5 /*                   LATIN CAPITAL LETTER A RING */ ,	/* 453 */
+	/* U+00C6 */ 0xC6 /*                      LATIN CAPITAL LETTER A E */ ,	/* 454 */
+	/* U+00C7 */ 0xC7 /*                LATIN CAPITAL LETTER C CEDILLA */ ,	/* 455 */
+	/* U+00C8 */ 0xC8 /*                  LATIN CAPITAL LETTER E GRAVE */ ,	/* 456 */
+	/* U+00C9 */ 0xC9 /*                  LATIN CAPITAL LETTER E ACUTE */ ,	/* 457 */
+	/* U+00CA */ 0xCA /*             LATIN CAPITAL LETTER E CIRCUMFLEX */ ,	/* 458 */
+	/* U+00CB */ 0xCB /*              LATIN CAPITAL LETTER E DIAERESIS */ ,	/* 459 */
+	/* U+00CC */ 0xCC /*                  LATIN CAPITAL LETTER I GRAVE */ ,	/* 460 */
+	/* U+00CD */ 0xCD /*                  LATIN CAPITAL LETTER I ACUTE */ ,	/* 461 */
+	/* U+00CE */ 0xCE /*             LATIN CAPITAL LETTER I CIRCUMFLEX */ ,	/* 462 */
+	/* U+00CF */ 0xCF /*              LATIN CAPITAL LETTER I DIAERESIS */ ,	/* 463 */
+	/* U+00D0 */ 0xD0 /*                      LATIN CAPITAL LETTER ETH */ ,	/* 464 */
+	/* U+00D1 */ 0xD1 /*                  LATIN CAPITAL LETTER N TILDE */ ,	/* 465 */
+	/* U+00D2 */ 0xD2 /*                  LATIN CAPITAL LETTER O GRAVE */ ,	/* 466 */
+	/* U+00D3 */ 0xD3 /*                  LATIN CAPITAL LETTER O ACUTE */ ,	/* 467 */
+	/* U+00D4 */ 0xD4 /*             LATIN CAPITAL LETTER O CIRCUMFLEX */ ,	/* 468 */
+	/* U+00D5 */ 0xD5 /*                  LATIN CAPITAL LETTER O TILDE */ ,	/* 469 */
+	/* U+00D6 */ 0xD6 /*              LATIN CAPITAL LETTER O DIAERESIS */ ,	/* 470 */
+	/* U+00D7 */ 0xD7 /*                           MULTIPLICATION SIGN */ ,	/* 471 */
+	/* U+00D8 */ 0xD8 /*                  LATIN CAPITAL LETTER O SLASH */ ,	/* 472 */
+	/* U+00D9 */ 0xD9 /*                  LATIN CAPITAL LETTER U GRAVE */ ,	/* 473 */
+	/* U+00DA */ 0xDA /*                  LATIN CAPITAL LETTER U ACUTE */ ,	/* 474 */
+	/* U+00DB */ 0xDB /*             LATIN CAPITAL LETTER U CIRCUMFLEX */ ,	/* 475 */
+	/* U+00DC */ 0xDC /*              LATIN CAPITAL LETTER U DIAERESIS */ ,	/* 476 */
+	/* U+00DD */ 0xDD /*                  LATIN CAPITAL LETTER Y ACUTE */ ,	/* 477 */
+	/* U+00DE */ 0xDE /*                    LATIN CAPITAL LETTER THORN */ ,	/* 478 */
+	/* U+00DF */ 0xDF /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+	/* U+00E0 */ 0xE0 /*                    LATIN SMALL LETTER A GRAVE */ ,	/* 480 */
+	/* U+00E1 */ 0xE1 /*                    LATIN SMALL LETTER A ACUTE */ ,	/* 481 */
+	/* U+00E2 */ 0xE2 /*               LATIN SMALL LETTER A CIRCUMFLEX */ ,	/* 482 */
+	/* U+00E3 */ 0xE3 /*                    LATIN SMALL LETTER A TILDE */ ,	/* 483 */
+	/* U+00E4 */ 0xE4 /*                LATIN SMALL LETTER A DIAERESIS */ ,	/* 484 */
+	/* U+00E5 */ 0xE5 /*                     LATIN SMALL LETTER A RING */ ,	/* 485 */
+	/* U+00E6 */ 0xE6 /*                        LATIN SMALL LETTER A E */ ,	/* 486 */
+	/* U+00E7 */ 0xE7 /*                  LATIN SMALL LETTER C CEDILLA */ ,	/* 487 */
+	/* U+00E8 */ 0xE8 /*                    LATIN SMALL LETTER E GRAVE */ ,	/* 488 */
+	/* U+00E9 */ 0xE9 /*                    LATIN SMALL LETTER E ACUTE */ ,	/* 489 */
+	/* U+00EA */ 0xEA /*               LATIN SMALL LETTER E CIRCUMFLEX */ ,	/* 490 */
+	/* U+00EB */ 0xEB /*                LATIN SMALL LETTER E DIAERESIS */ ,	/* 491 */
+	/* U+00EC */ 0xEC /*                    LATIN SMALL LETTER I GRAVE */ ,	/* 492 */
+	/* U+00ED */ 0xED /*                    LATIN SMALL LETTER I ACUTE */ ,	/* 493 */
+	/* U+00EE */ 0xEE /*               LATIN SMALL LETTER I CIRCUMFLEX */ ,	/* 494 */
+	/* U+00EF */ 0xEF /*                LATIN SMALL LETTER I DIAERESIS */ ,	/* 495 */
+	/* U+00F0 */ 0xF0 /*                        LATIN SMALL LETTER ETH */ ,	/* 496 */
+	/* U+00F1 */ 0xF1 /*                    LATIN SMALL LETTER N TILDE */ ,	/* 497 */
+	/* U+00F2 */ 0xF2 /*                    LATIN SMALL LETTER O GRAVE */ ,	/* 498 */
+	/* U+00F3 */ 0xF3 /*                    LATIN SMALL LETTER O ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0xF4 /*               LATIN SMALL LETTER O CIRCUMFLEX */ ,	/* 500 */
+	/* U+00F5 */ 0xF5 /*                    LATIN SMALL LETTER O TILDE */ ,	/* 501 */
+	/* U+00F6 */ 0xF6 /*                LATIN SMALL LETTER O DIAERESIS */ ,	/* 502 */
+	/* U+00F7 */ 0xF7 /*                                 DIVISION SIGN */ ,	/* 503 */
+	/* U+00F8 */ 0xF8 /*                    LATIN SMALL LETTER O SLASH */ ,	/* 504 */
+	/* U+00F9 */ 0xF9 /*                    LATIN SMALL LETTER U GRAVE */ ,	/* 505 */
+	/* U+00FA */ 0xFA /*                    LATIN SMALL LETTER U ACUTE */ ,	/* 506 */
+	/* U+00FB */ 0xFB /*               LATIN SMALL LETTER U CIRCUMFLEX */ ,	/* 507 */
+	/* U+00FC */ 0xFC /*                LATIN SMALL LETTER U DIAERESIS */ ,	/* 508 */
+	/* U+00FD */ 0xFD /*                    LATIN SMALL LETTER Y ACUTE */ ,	/* 509 */
+	/* U+00FE */ 0xFE /*                      LATIN SMALL LETTER THORN */ ,	/* 510 */
+	/* U+00FF */ 0xFF /*                LATIN SMALL LETTER Y DIAERESIS */ ,	/* 511 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 0,
+/* U+02-- */ 0,
+/* U+03-- */ 0,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 0,
+/* U+21-- */ 0,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 0,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0
+};
diff --git a/src/intl/cs_narrow.c b/src/intl/cs_narrow.c
new file mode 100644
index 0000000000..12aead2dca
--- /dev/null
+++ b/src/intl/cs_narrow.c
@@ -0,0 +1,199 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		cs_narrow.c
+ *	DESCRIPTION:	Character set definitions for narrow character sets.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+
+extern USHORT CV_nc_to_unicode();
+extern USHORT CV_unicode_to_nc();
+
+
+
+static void common_8bit_init(csptr, id, name, to_unicode_tbl,
+							 from_unicode_tbl1, from_unicode_tbl2)
+	 CHARSET csptr;
+	 SSHORT id;
+	 ASCII *name;
+	 BYTE *to_unicode_tbl;
+	 BYTE *from_unicode_tbl1;
+	 BYTE *from_unicode_tbl2;
+{
+	csptr->charset_version = 40;
+	csptr->charset_id = id;
+	csptr->charset_name = name;
+	csptr->charset_flags = 0;
+	csptr->charset_min_bytes_per_char = 1;
+	csptr->charset_max_bytes_per_char = 1;
+	csptr->charset_space_length = 1;
+	csptr->charset_space_character = (BYTE *) " ";
+	csptr->charset_well_formed = (FPTR_SHORT) NULL;
+	CV_convert_init(&csptr->charset_to_unicode, CS_UNICODE101, id,
+					CV_nc_to_unicode, to_unicode_tbl, NULL);
+	CV_convert_init(&csptr->charset_from_unicode, id, CS_UNICODE101,
+					CV_unicode_to_nc, from_unicode_tbl1, from_unicode_tbl2);
+}
+
+
+CHARSET_ENTRY(CS_iso_latin1)
+{
+#include "../intl/cs_latin1.h"
+
+	common_8bit_init(csptr, CS_LATIN1, "LATIN1", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_dos_437)
+{
+#include "../intl/cs_437.h"
+
+	common_8bit_init(csptr, CS_DOS_437, "DOS437", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_dos_865)
+{
+#include "../intl/cs_865.h"
+
+	common_8bit_init(csptr, CS_DOS_865, "DOS865", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_dos_850)
+{
+#include "../intl/cs_850.h"
+
+	common_8bit_init(csptr, CS_DOS_850, "DOS850", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_dos_852)
+{
+#include "../intl/cs_852.h"
+
+	common_8bit_init(csptr, CS_DOS_852, "DOS852", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_dos_857)
+{
+#include "../intl/cs_857.h"
+
+	common_8bit_init(csptr, CS_DOS_857, "DOS857", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_dos_860)
+{
+#include "../intl/cs_860.h"
+
+	common_8bit_init(csptr, CS_DOS_860, "DOS860", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_dos_861)
+{
+#include "../intl/cs_861.h"
+
+	common_8bit_init(csptr, CS_DOS_861, "DOS861", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_dos_863)
+{
+#include "../intl/cs_863.h"
+
+	common_8bit_init(csptr, CS_DOS_863, "DOS863", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_cyrl)
+{
+#include "../intl/cs_cyrl.h"
+
+	common_8bit_init(csptr, CS_CYRL, "CYRL", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_win1250)
+{
+#include "../intl/cs_w1250.h"
+
+	common_8bit_init(csptr, CS_WIN1250, "WIN1250", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_win1251)
+{
+#include "../intl/cs_w1251.h"
+
+	common_8bit_init(csptr, CS_WIN1251, "WIN1251", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_win1252)
+{
+#include "../intl/cs_w1252.h"
+
+	common_8bit_init(csptr, CS_WIN1252, "WIN1252", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_win1253)
+{
+#include "../intl/cs_w1253.h"
+
+	common_8bit_init(csptr, CS_WIN1253, "WIN1253", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_win1254)
+{
+#include "../intl/cs_w1254.h"
+
+	common_8bit_init(csptr, CS_WIN1254, "WIN1254", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
+
+CHARSET_ENTRY(CS_next)
+{
+#include "../intl/cs_next.h"
+
+	common_8bit_init(csptr, CS_NEXT, "NEXT", to_unicode_map,
+					 from_unicode_mapping_array, from_unicode_map);
+	CHARSET_RETURN;
+}
diff --git a/src/intl/cs_next.h b/src/intl/cs_next.h
new file mode 100644
index 0000000000..3ba5c59be6
--- /dev/null
+++ b/src/intl/cs_next.h
@@ -0,0 +1,4171 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file NEXTSTEP.TXT 
+
+#
+#       Name:             NextStep Encoding to Unicode
+#       Unicode version:  1.1
+#       Table version:    0.1
+#       Table format:     Format A
+#       Date:             14 February 1995
+#       Authors:          Rick McGowan (rick@unicode.org)
+#
+#
+#       This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
+#       No claims are made as to fitness for any particular purpose.  No
+#       warranties of any kind are expressed or implied.  The recipient
+#       agrees to determine applicability of information provided.  If this
+#       file has been provided on magnetic media by Unicode, Inc., the sole
+#       remedy for any claim will be exchange of defective media within 90
+#       days of receipt.
+#
+#       Recipient is granted the right to make copies in any form for
+#       internal distribution and to freely use the information supplied
+#       in the creation of products supporting Unicode.  Unicode, Inc.
+#       specifically excludes the right to re-distribute this file directly
+#       to third parties or other organizations whether for profit or not.
+#
+#       General notes:
+#
+#       This table contains the data the Unicode Consortium has on how
+#       NextStep Encoding characters map into Unicode.  Since the first
+#	128 characters (0x0 - 0x7f) are identical to ASCII and Unicode,
+#	this table only maps the NextStep range from 0x80 - 0xFF.
+#
+#       Format:  Three tab-separated columns
+#                Column #1 is the NextStep code (in hex as 0xXX)
+#                Column #2 is the Unicode (in hex as 0xXXXX)
+#                Column #3 NextStep name, Unicode name (follows a comment sign, '#')
+#
+#       The entries are in NextStep order
+#
+#       Any comments or problems, contact rick@unicode.org
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0a	0x000a	#LINE FEED
+0x0b	0x000b	#VERTICAL TABULATION
+0x0c	0x000c	#FORM FEED
+0x0d	0x000d	#CARRIAGE RETURN
+0x0e	0x000e	#SHIFT OUT
+0x0f	0x000f	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1a	0x001a	#SUBSTITUTE
+0x1b	0x001b	#ESCAPE
+0x1c	0x001c	#FILE SEPARATOR
+0x1d	0x001d	#GROUP SEPARATOR
+0x1e	0x001e	#RECORD SEPARATOR
+0x1f	0x001f	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2a	0x002a	#ASTERISK
+0x2b	0x002b	#PLUS SIGN
+0x2c	0x002c	#COMMA
+0x2d	0x002d	#HYPHEN-MINUS
+0x2e	0x002e	#FULL STOP
+0x2f	0x002f	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3a	0x003a	#COLON
+0x3b	0x003b	#SEMICOLON
+0x3c	0x003c	#LESS-THAN SIGN
+0x3d	0x003d	#EQUALS SIGN
+0x3e	0x003e	#GREATER-THAN SIGN
+0x3f	0x003f	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4a	0x004a	#LATIN CAPITAL LETTER J
+0x4b	0x004b	#LATIN CAPITAL LETTER K
+0x4c	0x004c	#LATIN CAPITAL LETTER L
+0x4d	0x004d	#LATIN CAPITAL LETTER M
+0x4e	0x004e	#LATIN CAPITAL LETTER N
+0x4f	0x004f	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5a	0x005a	#LATIN CAPITAL LETTER Z
+0x5b	0x005b	#LEFT SQUARE BRACKET
+0x5c	0x005c	#REVERSE SOLIDUS
+0x5d	0x005d	#RIGHT SQUARE BRACKET
+0x5e	0x005e	#CIRCUMFLEX ACCENT
+0x5f	0x005f	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6a	0x006a	#LATIN SMALL LETTER J
+0x6b	0x006b	#LATIN SMALL LETTER K
+0x6c	0x006c	#LATIN SMALL LETTER L
+0x6d	0x006d	#LATIN SMALL LETTER M
+0x6e	0x006e	#LATIN SMALL LETTER N
+0x6f	0x006f	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7a	0x007a	#LATIN SMALL LETTER Z
+0x7b	0x007b	#LEFT CURLY BRACKET
+0x7c	0x007c	#VERTICAL LINE
+0x7d	0x007d	#RIGHT CURLY BRACKET
+0x7e	0x007e	#TILDE
+0x7f	0x007f	#DELETE
+0x80	0x00a0	# NO-BREAK SPACE
+0x81	0x00c0	# LATIN CAPITAL LETTER A WITH GRAVE
+0x82	0x00c1	# LATIN CAPITAL LETTER A WITH ACUTE
+0x83	0x00c2	# LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0x84	0x00c3	# LATIN CAPITAL LETTER A WITH TILDE
+0x85	0x00c4	# LATIN CAPITAL LETTER A WITH DIAERESIS
+0x86	0x00c5	# LATIN CAPITAL LETTER A WITH RING
+0x87	0x00c7	# LATIN CAPITAL LETTER C WITH CEDILLA
+0x88	0x00c8	# LATIN CAPITAL LETTER E WITH GRAVE
+0x89	0x00c9	# LATIN CAPITAL LETTER E WITH ACUTE
+0x8a	0x00ca	# LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0x8b	0x00cb	# LATIN CAPITAL LETTER E WITH DIAERESIS
+0x8c	0x00cc	# LATIN CAPITAL LETTER I WITH GRAVE
+0x8d	0x00cd	# LATIN CAPITAL LETTER I WITH ACUTE
+0x8e	0x00ce	# LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+0x8f	0x00cf	# LATIN CAPITAL LETTER I WITH DIAERESIS
+0x90	0x00d0	# LATIN CAPITAL LETTER ETH
+0x91	0x00d1	# LATIN CAPITAL LETTER N WITH TILDE
+0x92	0x00d2	# LATIN CAPITAL LETTER O WITH GRAVE
+0x93	0x00d3	# LATIN CAPITAL LETTER O WITH ACUTE
+0x94	0x00d4	# LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+0x95	0x00d5	# LATIN CAPITAL LETTER O WITH TILDE
+0x96	0x00d6	# LATIN CAPITAL LETTER O WITH DIAERESIS
+0x97	0x00d9	# LATIN CAPITAL LETTER U WITH GRAVE
+0x98	0x00da	# LATIN CAPITAL LETTER U WITH ACUTE
+0x99	0x00db	# LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+0x9a	0x00dc	# LATIN CAPITAL LETTER U WITH DIAERESIS
+0x9b	0x00dd	# LATIN CAPITAL LETTER Y WITH ACUTE
+0x9c	0x00de	# LATIN CAPITAL LETTER THORN
+0x9d	0x00b5	# MICRO SIGN 
+0x9e	0x00d7	# MULTIPLICATION SIGN
+0x9f	0x00f7	# DIVISION SIGN
+0xa0	0x00a9	# COPYRIGHT SIGN
+0xa1	0x00a1	# INVERTED EXCLAMATION MARK
+0xa2	0x00a2	# CENT SIGN
+0xa3	0x00a3	# POUND SIGN
+0xa4	0x2044	# FRACTION SLASH
+0xa5	0x00a5	# YEN SIGN
+0xa6	0x0192	# LATIN SMALL LETTER F WITH HOOK
+0xa7	0x00a7	# SECTION SIGN
+0xa8	0x00a4	# CURRENCY SIGN
+0xa9	0x2019	# RIGHT SINGLE QUOTATION MARK
+0xaa	0x201c	# LEFT DOUBLE QUOTATION MARK
+0xab	0x00ab	# LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xac	0x2039	# LATIN SMALL LETTER
+0xad	0x203a	# LATIN SMALL LETTER
+0xae	0xfb01	# LATIN SMALL LIGATURE FI
+0xaf	0xfb02	# LATIN SMALL LIGATURE FL
+0xb0	0x00ae	# REGISTERED SIGN
+0xb1	0x2013	# EN DASH
+0xb2	0x2020	# DAGGER
+0xb3	0x2021	# DOUBLE DAGGER
+0xb4	0x00b7	# MIDDLE DOT
+0xb5	0x00a6	# BROKEN BAR
+0xb6	0x00b6	# PILCROW SIGN
+0xb7	0x2022	# BULLET
+0xb8	0x201a	# SINGLE LOW-9 QUOTATION MARK
+0xb9	0x201e	# DOUBLE LOW-9 QUOTATION MARK
+0xba	0x201d	# RIGHT DOUBLE QUOTATION MARK
+0xbb	0x00bb	# RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xbc	0x2026	# HORIZONTAL ELLIPSIS
+0xbd	0x2030	# PER MILLE SIGN
+0xbe	0x00ac	# NOT SIGN
+0xbf	0x00bf	# INVERTED QUESTION MARK
+0xc0	0x00b9	# SUPERSCRIPT ONE
+0xc1	0x02cb	# MODIFIER LETTER GRAVE ACCENT
+0xc2	0x00b4	# ACUTE ACCENT
+0xc3	0x02c6	# MODIFIER LETTER CIRCUMFLEX ACCENT
+0xc4	0x02dc	# SMALL TILDE
+0xc5	0x00af	# MACRON
+0xc6	0x02d8	# BREVE
+0xc7	0x02d9	# DOT ABOVE
+0xc8	0x00a8	# DIAERESIS
+0xc9	0x00b2	# SUPERSCRIPT TWO
+0xca	0x02da	# RING ABOVE
+0xcb	0x00b8	# CEDILLA
+0xcc	0x00b3	# SUPERSCRIPT THREE
+0xcd	0x02dd	# DOUBLE ACUTE ACCENT
+0xce	0x02db	# OGONEK
+0xcf	0x02c7	# CARON
+0xd0	0x2014	# EM DASH
+0xd1	0x00b1	# PLUS-MINUS SIGN
+0xd2	0x00bc	# VULGAR FRACTION ONE QUARTER
+0xd3	0x00bd	# VULGAR FRACTION ONE HALF
+0xd4	0x00be	# VULGAR FRACTION THREE QUARTERS
+0xd5	0x00e0	# LATIN SMALL LETTER A WITH GRAVE
+0xd6	0x00e1	# LATIN SMALL LETTER A WITH ACUTE
+0xd7	0x00e2	# LATIN SMALL LETTER A WITH CIRCUMFLEX
+0xd8	0x00e3	# LATIN SMALL LETTER A WITH TILDE
+0xd9	0x00e4	# LATIN SMALL LETTER A WITH DIAERESIS
+0xda	0x00e5	# LATIN SMALL LETTER A WITH RING ABOVE
+0xdb	0x00e7	# LATIN SMALL LETTER C WITH CEDILLA
+0xdc	0x00e8	# LATIN SMALL LETTER E WITH GRAVE
+0xdd	0x00e9	# LATIN SMALL LETTER E WITH ACUTE
+0xde	0x00ea	# LATIN SMALL LETTER E WITH CIRCUMFLEX
+0xdf	0x00eb	# LATIN SMALL LETTER E WITH DIAERESIS
+0xe0	0x00ec	# LATIN SMALL LETTER I WITH GRAVE
+0xe1	0x00c6	# LATIN CAPITAL LETTER AE
+0xe2	0x00ed	# LATIN SMALL LETTER I WITH ACUTE
+0xe3	0x00aa	# FEMININE ORDINAL INDICATOR
+0xe4	0x00ee	# LATIN SMALL LETTER I WITH CIRCUMFLEX
+0xe5	0x00ef	# LATIN SMALL LETTER I WITH DIAERESIS
+0xe6	0x00f0	# LATIN SMALL LETTER ETH
+0xe7	0x00f1	# LATIN SMALL LETTER N WITH TILDE
+0xe8	0x0141	# LATIN CAPITAL LETTER L WITH STROKE
+0xe9	0x00d8	# LATIN CAPITAL LETTER O WITH STROKE
+0xea	0x0152	# LATIN CAPITAL LIGATURE OE
+0xeb	0x00ba	# MASCULINE ORDINAL INDICATOR
+0xec	0x00f2	# LATIN SMALL LETTER O WITH GRAVE
+0xed	0x00f3	# LATIN SMALL LETTER O WITH ACUTE
+0xee	0x00f4	# LATIN SMALL LETTER O WITH CIRCUMFLEX
+0xef	0x00f5	# LATIN SMALL LETTER O WITH TILDE
+0xf0	0x00f6	# LATIN SMALL LETTER O WITH DIAERESIS
+0xf1	0x00e6	# LATIN SMALL LETTER AE
+0xf2	0x00f9	# LATIN SMALL LETTER U WITH GRAVE
+0xf3	0x00fa	# LATIN SMALL LETTER U WITH ACUTE
+0xf4	0x00fb	# LATIN SMALL LETTER U WITH CIRCUMFLEX
+0xf5	0x0131	# LATIN SMALL LETTER DOTLESS I
+0xf6	0x00fc	# LATIN SMALL LETTER U WITH DIAERESIS
+0xf7	0x00fd	# LATIN SMALL LETTER Y WITH ACUTE
+0xf8	0x0142	# LATIN SMALL LETTER L WITH STROKE
+0xf9	0x00f8	# LATIN SMALL LETTER O WITH STROKE
+0xfa	0x0153	# LATIN SMALL LIGATURE OE
+0xfb	0x00df	# LATIN SMALL LETTER SHARP S
+0xfc	0x00fe	# LATIN SMALL LETTER THORN
+0xfd	0x00ff	# LATIN SMALL LETTER Y WITH DIAERESIS
+0xfe	0xfffd	# .notdef, REPLACEMENT CHARACTER
+0xff	0xfffd	# .notdef, REPLACEMENT CHARACTER
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+	/* 81 */ 0x00C0 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,
+	/* 82 */ 0x00C1 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,
+	/* 83 */ 0x00C2 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,
+	/* 84 */ 0x00C3 /*             LATIN CAPITAL LETTER A WITH TILDE */ ,
+	/* 85 */ 0x00C4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,
+	/* 86 */ 0x00C5 /*              LATIN CAPITAL LETTER A WITH RING */ ,
+	/* 87 */ 0x00C7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,
+	/* 88 */ 0x00C8 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,
+	/* 89 */ 0x00C9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,
+	/* 8A */ 0x00CA /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,
+	/* 8B */ 0x00CB /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,
+	/* 8C */ 0x00CC /*             LATIN CAPITAL LETTER I WITH GRAVE */ ,
+	/* 8D */ 0x00CD /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,
+	/* 8E */ 0x00CE /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,
+	/* 8F */ 0x00CF /*         LATIN CAPITAL LETTER I WITH DIAERESIS */ ,
+	/* 90 */ 0x00D0 /*                      LATIN CAPITAL LETTER ETH */ ,
+	/* 91 */ 0x00D1 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,
+	/* 92 */ 0x00D2 /*             LATIN CAPITAL LETTER O WITH GRAVE */ ,
+	/* 93 */ 0x00D3 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,
+	/* 94 */ 0x00D4 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,
+	/* 95 */ 0x00D5 /*             LATIN CAPITAL LETTER O WITH TILDE */ ,
+	/* 96 */ 0x00D6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,
+	/* 97 */ 0x00D9 /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,
+	/* 98 */ 0x00DA /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,
+	/* 99 */ 0x00DB /*        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ ,
+	/* 9A */ 0x00DC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,
+	/* 9B */ 0x00DD /*             LATIN CAPITAL LETTER Y WITH ACUTE */ ,
+	/* 9C */ 0x00DE /*                    LATIN CAPITAL LETTER THORN */ ,
+	/* 9D */ 0x00B5 /*                                   MICRO SIGN  */ ,
+	/* 9E */ 0x00D7 /*                           MULTIPLICATION SIGN */ ,
+	/* 9F */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* A0 */ 0x00A9 /*                                COPYRIGHT SIGN */ ,
+	/* A1 */ 0x00A1 /*                     INVERTED EXCLAMATION MARK */ ,
+	/* A2 */ 0x00A2 /*                                     CENT SIGN */ ,
+	/* A3 */ 0x00A3 /*                                    POUND SIGN */ ,
+	/* A4 */ 0x2044 /*                                FRACTION SLASH */ ,
+	/* A5 */ 0x00A5 /*                                      YEN SIGN */ ,
+	/* A6 */ 0x0192 /*                LATIN SMALL LETTER F WITH HOOK */ ,
+	/* A7 */ 0x00A7 /*                                  SECTION SIGN */ ,
+	/* A8 */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* A9 */ 0x2019 /*                   RIGHT SINGLE QUOTATION MARK */ ,
+	/* AA */ 0x201C /*                    LEFT DOUBLE QUOTATION MARK */ ,
+	/* AB */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AC */ 0x2039 /*                            LATIN SMALL LETTER */ ,
+	/* AD */ 0x203A /*                            LATIN SMALL LETTER */ ,
+	/* AE */ 0xFB01 /*                       LATIN SMALL LIGATURE FI */ ,
+	/* AF */ 0xFB02 /*                       LATIN SMALL LIGATURE FL */ ,
+	/* B0 */ 0x00AE /*                               REGISTERED SIGN */ ,
+	/* B1 */ 0x2013 /*                                       EN DASH */ ,
+	/* B2 */ 0x2020 /*                                        DAGGER */ ,
+	/* B3 */ 0x2021 /*                                 DOUBLE DAGGER */ ,
+	/* B4 */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* B5 */ 0x00A6 /*                                    BROKEN BAR */ ,
+	/* B6 */ 0x00B6 /*                                  PILCROW SIGN */ ,
+	/* B7 */ 0x2022 /*                                        BULLET */ ,
+	/* B8 */ 0x201A /*                   SINGLE LOW-9 QUOTATION MARK */ ,
+	/* B9 */ 0x201E /*                   DOUBLE LOW-9 QUOTATION MARK */ ,
+	/* BA */ 0x201D /*                   RIGHT DOUBLE QUOTATION MARK */ ,
+	/* BB */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* BC */ 0x2026 /*                           HORIZONTAL ELLIPSIS */ ,
+	/* BD */ 0x2030 /*                                PER MILLE SIGN */ ,
+	/* BE */ 0x00AC /*                                      NOT SIGN */ ,
+	/* BF */ 0x00BF /*                        INVERTED QUESTION MARK */ ,
+	/* C0 */ 0x00B9 /*                               SUPERSCRIPT ONE */ ,
+	/* C1 */ 0x02CB /*                  MODIFIER LETTER GRAVE ACCENT */ ,
+	/* C2 */ 0x00B4 /*                                  ACUTE ACCENT */ ,
+	/* C3 */ 0x02C6 /*             MODIFIER LETTER CIRCUMFLEX ACCENT */ ,
+	/* C4 */ 0x02DC /*                                   SMALL TILDE */ ,
+	/* C5 */ 0x00AF /*                                        MACRON */ ,
+	/* C6 */ 0x02D8 /*                                         BREVE */ ,
+	/* C7 */ 0x02D9 /*                                     DOT ABOVE */ ,
+	/* C8 */ 0x00A8 /*                                     DIAERESIS */ ,
+	/* C9 */ 0x00B2 /*                               SUPERSCRIPT TWO */ ,
+	/* CA */ 0x02DA /*                                    RING ABOVE */ ,
+	/* CB */ 0x00B8 /*                                       CEDILLA */ ,
+	/* CC */ 0x00B3 /*                             SUPERSCRIPT THREE */ ,
+	/* CD */ 0x02DD /*                           DOUBLE ACUTE ACCENT */ ,
+	/* CE */ 0x02DB /*                                        OGONEK */ ,
+	/* CF */ 0x02C7 /*                                         CARON */ ,
+	/* D0 */ 0x2014 /*                                       EM DASH */ ,
+	/* D1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* D2 */ 0x00BC /*                   VULGAR FRACTION ONE QUARTER */ ,
+	/* D3 */ 0x00BD /*                      VULGAR FRACTION ONE HALF */ ,
+	/* D4 */ 0x00BE /*                VULGAR FRACTION THREE QUARTERS */ ,
+	/* D5 */ 0x00E0 /*               LATIN SMALL LETTER A WITH GRAVE */ ,
+	/* D6 */ 0x00E1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,
+	/* D7 */ 0x00E2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,
+	/* D8 */ 0x00E3 /*               LATIN SMALL LETTER A WITH TILDE */ ,
+	/* D9 */ 0x00E4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,
+	/* DA */ 0x00E5 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,
+	/* DB */ 0x00E7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,
+	/* DC */ 0x00E8 /*               LATIN SMALL LETTER E WITH GRAVE */ ,
+	/* DD */ 0x00E9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,
+	/* DE */ 0x00EA /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,
+	/* DF */ 0x00EB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,
+	/* E0 */ 0x00EC /*               LATIN SMALL LETTER I WITH GRAVE */ ,
+	/* E1 */ 0x00C6 /*                       LATIN CAPITAL LETTER AE */ ,
+	/* E2 */ 0x00ED /*               LATIN SMALL LETTER I WITH ACUTE */ ,
+	/* E3 */ 0x00AA /*                    FEMININE ORDINAL INDICATOR */ ,
+	/* E4 */ 0x00EE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,
+	/* E5 */ 0x00EF /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,
+	/* E6 */ 0x00F0 /*                        LATIN SMALL LETTER ETH */ ,
+	/* E7 */ 0x00F1 /*               LATIN SMALL LETTER N WITH TILDE */ ,
+	/* E8 */ 0x0141 /*            LATIN CAPITAL LETTER L WITH STROKE */ ,
+	/* E9 */ 0x00D8 /*            LATIN CAPITAL LETTER O WITH STROKE */ ,
+	/* EA */ 0x0152 /*                     LATIN CAPITAL LIGATURE OE */ ,
+	/* EB */ 0x00BA /*                   MASCULINE ORDINAL INDICATOR */ ,
+	/* EC */ 0x00F2 /*               LATIN SMALL LETTER O WITH GRAVE */ ,
+	/* ED */ 0x00F3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,
+	/* EE */ 0x00F4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,
+	/* EF */ 0x00F5 /*               LATIN SMALL LETTER O WITH TILDE */ ,
+	/* F0 */ 0x00F6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,
+	/* F1 */ 0x00E6 /*                         LATIN SMALL LETTER AE */ ,
+	/* F2 */ 0x00F9 /*               LATIN SMALL LETTER U WITH GRAVE */ ,
+	/* F3 */ 0x00FA /*               LATIN SMALL LETTER U WITH ACUTE */ ,
+	/* F4 */ 0x00FB /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,
+	/* F5 */ 0x0131 /*                  LATIN SMALL LETTER DOTLESS I */ ,
+	/* F6 */ 0x00FC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,
+	/* F7 */ 0x00FD /*               LATIN SMALL LETTER Y WITH ACUTE */ ,
+	/* F8 */ 0x0142 /*              LATIN SMALL LETTER L WITH STROKE */ ,
+	/* F9 */ 0x00F8 /*              LATIN SMALL LETTER O WITH STROKE */ ,
+	/* FA */ 0x0153 /*                       LATIN SMALL LIGATURE OE */ ,
+	/* FB */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* FC */ 0x00FE /*                      LATIN SMALL LETTER THORN */ ,
+	/* FD */ 0x00FF /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,
+	/* FE */ 0xFFFD /*                .notdef, REPLACEMENT CHARACTER */ ,
+	/* FF */ 0xFFFD /*                .notdef, REPLACEMENT CHARACTER */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0x80 /*                                NO-BREAK SPACE */ ,	/* 416 */
+	/* U+00A1 */ 0xA1 /*                     INVERTED EXCLAMATION MARK */ ,	/* 417 */
+	/* U+00A2 */ 0xA2 /*                                     CENT SIGN */ ,	/* 418 */
+	/* U+00A3 */ 0xA3 /*                                    POUND SIGN */ ,	/* 419 */
+	/* U+00A4 */ 0xA8 /*                                 CURRENCY SIGN */ ,	/* 420 */
+	/* U+00A5 */ 0xA5 /*                                      YEN SIGN */ ,	/* 421 */
+	/* U+00A6 */ 0xB5 /*                                    BROKEN BAR */ ,	/* 422 */
+	/* U+00A7 */ 0xA7 /*                                  SECTION SIGN */ ,	/* 423 */
+	/* U+00A8 */ 0xC8 /*                                     DIAERESIS */ ,	/* 424 */
+	/* U+00A9 */ 0xA0 /*                                COPYRIGHT SIGN */ ,	/* 425 */
+	/* U+00AA */ 0xE3 /*                    FEMININE ORDINAL INDICATOR */ ,	/* 426 */
+	/* U+00AB */ 0xAB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xBE /*                                      NOT SIGN */ ,	/* 428 */
+										/* U+00AD */ CANT_MAP_CHARACTER,
+										/* 429 */
+	/* U+00AE */ 0xB0 /*                               REGISTERED SIGN */ ,	/* 430 */
+	/* U+00AF */ 0xC5 /*                                        MACRON */ ,	/* 431 */
+										/* U+00B0 */ CANT_MAP_CHARACTER,
+										/* 432 */
+	/* U+00B1 */ 0xD1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+	/* U+00B2 */ 0xC9 /*                               SUPERSCRIPT TWO */ ,	/* 434 */
+	/* U+00B3 */ 0xCC /*                             SUPERSCRIPT THREE */ ,	/* 435 */
+	/* U+00B4 */ 0xC2 /*                                  ACUTE ACCENT */ ,	/* 436 */
+	/* U+00B5 */ 0x9D /*                                   MICRO SIGN  */ ,	/* 437 */
+	/* U+00B6 */ 0xB6 /*                                  PILCROW SIGN */ ,	/* 438 */
+	/* U+00B7 */ 0xB4 /*                                    MIDDLE DOT */ ,	/* 439 */
+	/* U+00B8 */ 0xCB /*                                       CEDILLA */ ,	/* 440 */
+	/* U+00B9 */ 0xC0 /*                               SUPERSCRIPT ONE */ ,	/* 441 */
+	/* U+00BA */ 0xEB /*                   MASCULINE ORDINAL INDICATOR */ ,	/* 442 */
+	/* U+00BB */ 0xBB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+	/* U+00BC */ 0xD2 /*                   VULGAR FRACTION ONE QUARTER */ ,	/* 444 */
+	/* U+00BD */ 0xD3 /*                      VULGAR FRACTION ONE HALF */ ,	/* 445 */
+	/* U+00BE */ 0xD4 /*                VULGAR FRACTION THREE QUARTERS */ ,	/* 446 */
+	/* U+00BF */ 0xBF /*                        INVERTED QUESTION MARK */ ,	/* 447 */
+	/* U+00C0 */ 0x81 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,	/* 448 */
+	/* U+00C1 */ 0x82 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,	/* 449 */
+	/* U+00C2 */ 0x83 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,	/* 450 */
+	/* U+00C3 */ 0x84 /*             LATIN CAPITAL LETTER A WITH TILDE */ ,	/* 451 */
+	/* U+00C4 */ 0x85 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,	/* 452 */
+	/* U+00C5 */ 0x86 /*              LATIN CAPITAL LETTER A WITH RING */ ,	/* 453 */
+	/* U+00C6 */ 0xE1 /*                       LATIN CAPITAL LETTER AE */ ,	/* 454 */
+	/* U+00C7 */ 0x87 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,	/* 455 */
+	/* U+00C8 */ 0x88 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,	/* 456 */
+	/* U+00C9 */ 0x89 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,	/* 457 */
+	/* U+00CA */ 0x8A /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,	/* 458 */
+	/* U+00CB */ 0x8B /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,	/* 459 */
+	/* U+00CC */ 0x8C /*             LATIN CAPITAL LETTER I WITH GRAVE */ ,	/* 460 */
+	/* U+00CD */ 0x8D /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,	/* 461 */
+	/* U+00CE */ 0x8E /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,	/* 462 */
+	/* U+00CF */ 0x8F /*         LATIN CAPITAL LETTER I WITH DIAERESIS */ ,	/* 463 */
+	/* U+00D0 */ 0x90 /*                      LATIN CAPITAL LETTER ETH */ ,	/* 464 */
+	/* U+00D1 */ 0x91 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,	/* 465 */
+	/* U+00D2 */ 0x92 /*             LATIN CAPITAL LETTER O WITH GRAVE */ ,	/* 466 */
+	/* U+00D3 */ 0x93 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,	/* 467 */
+	/* U+00D4 */ 0x94 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,	/* 468 */
+	/* U+00D5 */ 0x95 /*             LATIN CAPITAL LETTER O WITH TILDE */ ,	/* 469 */
+	/* U+00D6 */ 0x96 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,	/* 470 */
+	/* U+00D7 */ 0x9E /*                           MULTIPLICATION SIGN */ ,	/* 471 */
+	/* U+00D8 */ 0xE9 /*            LATIN CAPITAL LETTER O WITH STROKE */ ,	/* 472 */
+	/* U+00D9 */ 0x97 /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,	/* 473 */
+	/* U+00DA */ 0x98 /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,	/* 474 */
+	/* U+00DB */ 0x99 /*        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ ,	/* 475 */
+	/* U+00DC */ 0x9A /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,	/* 476 */
+	/* U+00DD */ 0x9B /*             LATIN CAPITAL LETTER Y WITH ACUTE */ ,	/* 477 */
+	/* U+00DE */ 0x9C /*                    LATIN CAPITAL LETTER THORN */ ,	/* 478 */
+	/* U+00DF */ 0xFB /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+	/* U+00E0 */ 0xD5 /*               LATIN SMALL LETTER A WITH GRAVE */ ,	/* 480 */
+	/* U+00E1 */ 0xD6 /*               LATIN SMALL LETTER A WITH ACUTE */ ,	/* 481 */
+	/* U+00E2 */ 0xD7 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,	/* 482 */
+	/* U+00E3 */ 0xD8 /*               LATIN SMALL LETTER A WITH TILDE */ ,	/* 483 */
+	/* U+00E4 */ 0xD9 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,	/* 484 */
+	/* U+00E5 */ 0xDA /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,	/* 485 */
+	/* U+00E6 */ 0xF1 /*                         LATIN SMALL LETTER AE */ ,	/* 486 */
+	/* U+00E7 */ 0xDB /*             LATIN SMALL LETTER C WITH CEDILLA */ ,	/* 487 */
+	/* U+00E8 */ 0xDC /*               LATIN SMALL LETTER E WITH GRAVE */ ,	/* 488 */
+	/* U+00E9 */ 0xDD /*               LATIN SMALL LETTER E WITH ACUTE */ ,	/* 489 */
+	/* U+00EA */ 0xDE /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,	/* 490 */
+	/* U+00EB */ 0xDF /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,	/* 491 */
+	/* U+00EC */ 0xE0 /*               LATIN SMALL LETTER I WITH GRAVE */ ,	/* 492 */
+	/* U+00ED */ 0xE2 /*               LATIN SMALL LETTER I WITH ACUTE */ ,	/* 493 */
+	/* U+00EE */ 0xE4 /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,	/* 494 */
+	/* U+00EF */ 0xE5 /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,	/* 495 */
+	/* U+00F0 */ 0xE6 /*                        LATIN SMALL LETTER ETH */ ,	/* 496 */
+	/* U+00F1 */ 0xE7 /*               LATIN SMALL LETTER N WITH TILDE */ ,	/* 497 */
+	/* U+00F2 */ 0xEC /*               LATIN SMALL LETTER O WITH GRAVE */ ,	/* 498 */
+	/* U+00F3 */ 0xED /*               LATIN SMALL LETTER O WITH ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0xEE /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,	/* 500 */
+	/* U+00F5 */ 0xEF /*               LATIN SMALL LETTER O WITH TILDE */ ,	/* 501 */
+	/* U+00F6 */ 0xF0 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,	/* 502 */
+	/* U+00F7 */ 0x9F /*                                 DIVISION SIGN */ ,	/* 503 */
+	/* U+00F8 */ 0xF9 /*              LATIN SMALL LETTER O WITH STROKE */ ,	/* 504 */
+	/* U+00F9 */ 0xF2 /*               LATIN SMALL LETTER U WITH GRAVE */ ,	/* 505 */
+	/* U+00FA */ 0xF3 /*               LATIN SMALL LETTER U WITH ACUTE */ ,	/* 506 */
+	/* U+00FB */ 0xF4 /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,	/* 507 */
+	/* U+00FC */ 0xF6 /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,	/* 508 */
+	/* U+00FD */ 0xF7 /*               LATIN SMALL LETTER Y WITH ACUTE */ ,	/* 509 */
+	/* U+00FE */ 0xFC /*                      LATIN SMALL LETTER THORN */ ,	/* 510 */
+	/* U+00FF */ 0xFD /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,	/* 511 */
+										/* U+0100 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0101 */ CANT_MAP_CHARACTER,
+										/* 513 */
+										/* U+0102 */ CANT_MAP_CHARACTER,
+										/* 514 */
+										/* U+0103 */ CANT_MAP_CHARACTER,
+										/* 515 */
+										/* U+0104 */ CANT_MAP_CHARACTER,
+										/* 516 */
+										/* U+0105 */ CANT_MAP_CHARACTER,
+										/* 517 */
+										/* U+0106 */ CANT_MAP_CHARACTER,
+										/* 518 */
+										/* U+0107 */ CANT_MAP_CHARACTER,
+										/* 519 */
+										/* U+0108 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0109 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+010A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+010B */ CANT_MAP_CHARACTER,
+										/* 523 */
+										/* U+010C */ CANT_MAP_CHARACTER,
+										/* 524 */
+										/* U+010D */ CANT_MAP_CHARACTER,
+										/* 525 */
+										/* U+010E */ CANT_MAP_CHARACTER,
+										/* 526 */
+										/* U+010F */ CANT_MAP_CHARACTER,
+										/* 527 */
+										/* U+0110 */ CANT_MAP_CHARACTER,
+										/* 528 */
+										/* U+0111 */ CANT_MAP_CHARACTER,
+										/* 529 */
+										/* U+0112 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0113 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0114 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0115 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0116 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0117 */ CANT_MAP_CHARACTER,
+										/* 535 */
+										/* U+0118 */ CANT_MAP_CHARACTER,
+										/* 536 */
+										/* U+0119 */ CANT_MAP_CHARACTER,
+										/* 537 */
+										/* U+011A */ CANT_MAP_CHARACTER,
+										/* 538 */
+										/* U+011B */ CANT_MAP_CHARACTER,
+										/* 539 */
+										/* U+011C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+011D */ CANT_MAP_CHARACTER,
+										/* 541 */
+										/* U+011E */ CANT_MAP_CHARACTER,
+										/* 542 */
+										/* U+011F */ CANT_MAP_CHARACTER,
+										/* 543 */
+										/* U+0120 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0121 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0122 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0123 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0124 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0125 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0126 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0127 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0128 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0129 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+012A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+012B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+012C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+012D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+012E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+012F */ CANT_MAP_CHARACTER,
+										/* 559 */
+										/* U+0130 */ CANT_MAP_CHARACTER,
+										/* 560 */
+	/* U+0131 */ 0xF5 /*                  LATIN SMALL LETTER DOTLESS I */ ,	/* 561 */
+										/* U+0132 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0133 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0134 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0135 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0136 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0137 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0138 */ CANT_MAP_CHARACTER,
+										/* 568 */
+										/* U+0139 */ CANT_MAP_CHARACTER,
+										/* 569 */
+										/* U+013A */ CANT_MAP_CHARACTER,
+										/* 570 */
+										/* U+013B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+013C */ CANT_MAP_CHARACTER,
+										/* 572 */
+										/* U+013D */ CANT_MAP_CHARACTER,
+										/* 573 */
+										/* U+013E */ CANT_MAP_CHARACTER,
+										/* 574 */
+										/* U+013F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0140 */ CANT_MAP_CHARACTER,
+										/* 576 */
+	/* U+0141 */ 0xE8 /*            LATIN CAPITAL LETTER L WITH STROKE */ ,	/* 577 */
+	/* U+0142 */ 0xF8 /*              LATIN SMALL LETTER L WITH STROKE */ ,	/* 578 */
+										/* U+0143 */ CANT_MAP_CHARACTER,
+										/* 579 */
+										/* U+0144 */ CANT_MAP_CHARACTER,
+										/* 580 */
+										/* U+0145 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0146 */ CANT_MAP_CHARACTER,
+										/* 582 */
+										/* U+0147 */ CANT_MAP_CHARACTER,
+										/* 583 */
+										/* U+0148 */ CANT_MAP_CHARACTER,
+										/* 584 */
+										/* U+0149 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+014A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+014B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+014C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+014D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+014E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+014F */ CANT_MAP_CHARACTER,
+										/* 591 */
+										/* U+0150 */ CANT_MAP_CHARACTER,
+										/* 592 */
+										/* U+0151 */ CANT_MAP_CHARACTER,
+										/* 593 */
+	/* U+0152 */ 0xEA /*                     LATIN CAPITAL LIGATURE OE */ ,	/* 594 */
+	/* U+0153 */ 0xFA /*                       LATIN SMALL LIGATURE OE */ ,	/* 595 */
+										/* U+0154 */ CANT_MAP_CHARACTER,
+										/* 596 */
+										/* U+0155 */ CANT_MAP_CHARACTER,
+										/* 597 */
+										/* U+0156 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0157 */ CANT_MAP_CHARACTER,
+										/* 599 */
+										/* U+0158 */ CANT_MAP_CHARACTER,
+										/* 600 */
+										/* U+0159 */ CANT_MAP_CHARACTER,
+										/* 601 */
+										/* U+015A */ CANT_MAP_CHARACTER,
+										/* 602 */
+										/* U+015B */ CANT_MAP_CHARACTER,
+										/* 603 */
+										/* U+015C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+015D */ CANT_MAP_CHARACTER,
+										/* 605 */
+										/* U+015E */ CANT_MAP_CHARACTER,
+										/* 606 */
+										/* U+015F */ CANT_MAP_CHARACTER,
+										/* 607 */
+										/* U+0160 */ CANT_MAP_CHARACTER,
+										/* 608 */
+										/* U+0161 */ CANT_MAP_CHARACTER,
+										/* 609 */
+										/* U+0162 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0163 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0164 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0165 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0166 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0167 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0168 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0169 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+016A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+016B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+016C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+016D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+016E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+016F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0170 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0171 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0172 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0173 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0174 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0175 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0176 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0177 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0178 */ CANT_MAP_CHARACTER,
+										/* 632 */
+										/* U+0179 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+017A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+017B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+017C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+017D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+017E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+017F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0180 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0181 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0182 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0183 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0184 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0185 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0186 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0187 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0188 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0189 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+018A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+018B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+018C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+018D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+018E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+018F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0190 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0191 */ CANT_MAP_CHARACTER,
+										/* 657 */
+	/* U+0192 */ 0xA6 /*                LATIN SMALL LETTER F WITH HOOK */ ,	/* 658 */
+										/* U+0193 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0194 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0195 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0196 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0197 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0198 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0199 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+019A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+019B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+019C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+019D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+019E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+019F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+01A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+01A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+01A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+01A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+01A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+01A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+01A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+01A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+01A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+01A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+01AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+01AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+01AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+01AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+01AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+01AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+01B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+01B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+01B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+01B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+01B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+01B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+01B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+01B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+01B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+01B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+01BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+01BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+01BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+01BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+01BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+01BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+01C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+01C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+01C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+01C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+01C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+01C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+01C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+01C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+01C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+01C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+01CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+01CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+01CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+01CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+01CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+01CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+01D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+01D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+01D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+01D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+01D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+01D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+01D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+01D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+01D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+01D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+01DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+01DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+01DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+01DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+01DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+01DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+01E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+01E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+01E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+01E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+01E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+01E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+01E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+01E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+01E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+01E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+01EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+01EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+01EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+01ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+01EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+01EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+01F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+01F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+01F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+01F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+01F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+01F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+01F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+01F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+01F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+01F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+01FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+01FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+01FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+01FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+01FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+01FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+0200 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+0201 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+0202 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+0203 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+0204 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+0205 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+0206 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+0207 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+0208 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+0209 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+020A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+020B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+020C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+020D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+020E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+020F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+0210 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+0211 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+0212 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+0213 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+0214 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+0215 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+0216 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+0217 */ CANT_MAP_CHARACTER,
+										/* 791 */
+										/* U+0218 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+0219 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+021A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+021B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+021C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+021D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+021E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+021F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+0220 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+0221 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+0222 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+0223 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+0224 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+0225 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+0226 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+0227 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+0228 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+0229 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+022A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+022B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+022C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+022D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+022E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+022F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+0230 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+0231 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+0232 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+0233 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+0234 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+0235 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+0236 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+0237 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+0238 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+0239 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+023A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+023B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+023C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+023D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+023E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+023F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+0240 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+0241 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+0242 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+0243 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+0244 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+0245 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+0246 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+0247 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+0248 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+0249 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+024A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+024B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+024C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+024D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+024E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+024F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+0250 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+0251 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+0252 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+0253 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+0254 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+0255 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+0256 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+0257 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+0258 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+0259 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+025A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+025B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+025C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+025D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+025E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+025F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+0260 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+0261 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+0262 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+0263 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+0264 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+0265 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+0266 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+0267 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+0268 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+0269 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+026A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+026B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+026C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+026D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+026E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+026F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+0270 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+0271 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+0272 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+0273 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+0274 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+0275 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+0276 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+0277 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+0278 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+0279 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+027A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+027B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+027C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+027D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+027E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+027F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+0280 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+0281 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+0282 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+0283 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+0284 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+0285 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+0286 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+0287 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+0288 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+0289 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+028A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+028B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+028C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+028D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+028E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+028F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+0290 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+0291 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+0292 */ CANT_MAP_CHARACTER,
+										/* 914 */
+										/* U+0293 */ CANT_MAP_CHARACTER,
+										/* 915 */
+										/* U+0294 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+0295 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+0296 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+0297 */ CANT_MAP_CHARACTER,
+										/* 919 */
+										/* U+0298 */ CANT_MAP_CHARACTER,
+										/* 920 */
+										/* U+0299 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+029A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+029B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+029C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+029D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+029E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+029F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+02A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+02A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+02A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+										/* U+02A3 */ CANT_MAP_CHARACTER,
+										/* 931 */
+										/* U+02A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+02A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+										/* U+02A6 */ CANT_MAP_CHARACTER,
+										/* 934 */
+										/* U+02A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+02A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+										/* U+02A9 */ CANT_MAP_CHARACTER,
+										/* 937 */
+										/* U+02AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+02AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+02AC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+02AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+02AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+02AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+02B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+										/* U+02B1 */ CANT_MAP_CHARACTER,
+										/* 945 */
+										/* U+02B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+02B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+										/* U+02B4 */ CANT_MAP_CHARACTER,
+										/* 948 */
+										/* U+02B5 */ CANT_MAP_CHARACTER,
+										/* 949 */
+										/* U+02B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+02B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+02B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+02B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+02BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+02BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+02BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+02BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+02BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+02BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+										/* U+02C0 */ CANT_MAP_CHARACTER,
+										/* 960 */
+										/* U+02C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+02C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+										/* U+02C3 */ CANT_MAP_CHARACTER,
+										/* 963 */
+										/* U+02C4 */ CANT_MAP_CHARACTER,
+										/* 964 */
+										/* U+02C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+	/* U+02C6 */ 0xC3 /*             MODIFIER LETTER CIRCUMFLEX ACCENT */ ,	/* 966 */
+	/* U+02C7 */ 0xCF /*                                         CARON */ ,	/* 967 */
+										/* U+02C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+02C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+02CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+	/* U+02CB */ 0xC1 /*                  MODIFIER LETTER GRAVE ACCENT */ ,	/* 971 */
+										/* U+02CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+02CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+02CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+02CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+02D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+02D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+02D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+02D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+02D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+02D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+02D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+02D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+	/* U+02D8 */ 0xC6 /*                                         BREVE */ ,	/* 984 */
+	/* U+02D9 */ 0xC7 /*                                     DOT ABOVE */ ,	/* 985 */
+	/* U+02DA */ 0xCA /*                                    RING ABOVE */ ,	/* 986 */
+	/* U+02DB */ 0xCE /*                                        OGONEK */ ,	/* 987 */
+	/* U+02DC */ 0xC4 /*                                   SMALL TILDE */ ,	/* 988 */
+	/* U+02DD */ 0xCD /*                           DOUBLE ACUTE ACCENT */ ,	/* 989 */
+										/* U+02DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+02DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+02E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+02E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+02E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+02E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+02E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+02E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+02E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+02E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+02E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+02E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+02EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+02EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+02EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+02ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+02EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+02EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+02F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+02F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+02F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+02F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+02F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+02F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+02F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+02F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+02F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+02F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+02FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+02FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+02FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+02FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+02FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+02FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 1024 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 1026 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 1036 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 1040 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+	/* U+2013 */ 0xB1 /*                                       EN DASH */ ,	/* 1043 */
+	/* U+2014 */ 0xD0 /*                                       EM DASH */ ,	/* 1044 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 1046 */
+										/* U+2017 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+										/* U+2018 */ CANT_MAP_CHARACTER,
+										/* 1048 */
+	/* U+2019 */ 0xA9 /*                   RIGHT SINGLE QUOTATION MARK */ ,	/* 1049 */
+	/* U+201A */ 0xB8 /*                   SINGLE LOW-9 QUOTATION MARK */ ,	/* 1050 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+	/* U+201C */ 0xAA /*                    LEFT DOUBLE QUOTATION MARK */ ,	/* 1052 */
+	/* U+201D */ 0xBA /*                   RIGHT DOUBLE QUOTATION MARK */ ,	/* 1053 */
+	/* U+201E */ 0xB9 /*                   DOUBLE LOW-9 QUOTATION MARK */ ,	/* 1054 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+	/* U+2020 */ 0xB2 /*                                        DAGGER */ ,	/* 1056 */
+	/* U+2021 */ 0xB3 /*                                 DOUBLE DAGGER */ ,	/* 1057 */
+	/* U+2022 */ 0xB7 /*                                        BULLET */ ,	/* 1058 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 1060 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+	/* U+2026 */ 0xBC /*                           HORIZONTAL ELLIPSIS */ ,	/* 1062 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 1068 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+	/* U+2030 */ 0xBD /*                                PER MILLE SIGN */ ,	/* 1072 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 1076 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+	/* U+2039 */ 0xAC /*                            LATIN SMALL LETTER */ ,	/* 1081 */
+	/* U+203A */ 0xAD /*                            LATIN SMALL LETTER */ ,	/* 1082 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 1084 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+	/* U+2044 */ 0xA4 /*                                FRACTION SLASH */ ,	/* 1092 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 1104 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 1105 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 1108 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 1111 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 1114 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 1117 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 1120 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 1123 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 1126 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 1129 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 1132 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+										/* U+207F */ CANT_MAP_CHARACTER,
+										/* 1151 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 1152 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 1156 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 1160 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 1169 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 1170 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 1171 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 1184 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+										/* U+20A7 */ CANT_MAP_CHARACTER,
+										/* 1191 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+										/* U+20AC */ CANT_MAP_CHARACTER,
+										/* 1196 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+										/* U+FB00 */ CANT_MAP_CHARACTER,
+										/* 1280 */
+	/* U+FB01 */ 0xAE /*                       LATIN SMALL LIGATURE FI */ ,	/* 1281 */
+	/* U+FB02 */ 0xAF /*                       LATIN SMALL LIGATURE FL */ ,	/* 1282 */
+										/* U+FB03 */ CANT_MAP_CHARACTER,
+										/* 1283 */
+										/* U+FB04 */ CANT_MAP_CHARACTER,
+										/* 1284 */
+										/* U+FB05 */ CANT_MAP_CHARACTER,
+										/* 1285 */
+										/* U+FB06 */ CANT_MAP_CHARACTER,
+										/* 1286 */
+										/* U+FB07 */ CANT_MAP_CHARACTER,
+										/* 1287 */
+										/* U+FB08 */ CANT_MAP_CHARACTER,
+										/* 1288 */
+										/* U+FB09 */ CANT_MAP_CHARACTER,
+										/* 1289 */
+										/* U+FB0A */ CANT_MAP_CHARACTER,
+										/* 1290 */
+										/* U+FB0B */ CANT_MAP_CHARACTER,
+										/* 1291 */
+										/* U+FB0C */ CANT_MAP_CHARACTER,
+										/* 1292 */
+										/* U+FB0D */ CANT_MAP_CHARACTER,
+										/* 1293 */
+										/* U+FB0E */ CANT_MAP_CHARACTER,
+										/* 1294 */
+										/* U+FB0F */ CANT_MAP_CHARACTER,
+										/* 1295 */
+										/* U+FB10 */ CANT_MAP_CHARACTER,
+										/* 1296 */
+										/* U+FB11 */ CANT_MAP_CHARACTER,
+										/* 1297 */
+										/* U+FB12 */ CANT_MAP_CHARACTER,
+										/* 1298 */
+										/* U+FB13 */ CANT_MAP_CHARACTER,
+										/* 1299 */
+										/* U+FB14 */ CANT_MAP_CHARACTER,
+										/* 1300 */
+										/* U+FB15 */ CANT_MAP_CHARACTER,
+										/* 1301 */
+										/* U+FB16 */ CANT_MAP_CHARACTER,
+										/* 1302 */
+										/* U+FB17 */ CANT_MAP_CHARACTER,
+										/* 1303 */
+										/* U+FB18 */ CANT_MAP_CHARACTER,
+										/* 1304 */
+										/* U+FB19 */ CANT_MAP_CHARACTER,
+										/* 1305 */
+										/* U+FB1A */ CANT_MAP_CHARACTER,
+										/* 1306 */
+										/* U+FB1B */ CANT_MAP_CHARACTER,
+										/* 1307 */
+										/* U+FB1C */ CANT_MAP_CHARACTER,
+										/* 1308 */
+										/* U+FB1D */ CANT_MAP_CHARACTER,
+										/* 1309 */
+										/* U+FB1E */ CANT_MAP_CHARACTER,
+										/* 1310 */
+										/* U+FB1F */ CANT_MAP_CHARACTER,
+										/* 1311 */
+										/* U+FB20 */ CANT_MAP_CHARACTER,
+										/* 1312 */
+										/* U+FB21 */ CANT_MAP_CHARACTER,
+										/* 1313 */
+										/* U+FB22 */ CANT_MAP_CHARACTER,
+										/* 1314 */
+										/* U+FB23 */ CANT_MAP_CHARACTER,
+										/* 1315 */
+										/* U+FB24 */ CANT_MAP_CHARACTER,
+										/* 1316 */
+										/* U+FB25 */ CANT_MAP_CHARACTER,
+										/* 1317 */
+										/* U+FB26 */ CANT_MAP_CHARACTER,
+										/* 1318 */
+										/* U+FB27 */ CANT_MAP_CHARACTER,
+										/* 1319 */
+										/* U+FB28 */ CANT_MAP_CHARACTER,
+										/* 1320 */
+										/* U+FB29 */ CANT_MAP_CHARACTER,
+										/* 1321 */
+										/* U+FB2A */ CANT_MAP_CHARACTER,
+										/* 1322 */
+										/* U+FB2B */ CANT_MAP_CHARACTER,
+										/* 1323 */
+										/* U+FB2C */ CANT_MAP_CHARACTER,
+										/* 1324 */
+										/* U+FB2D */ CANT_MAP_CHARACTER,
+										/* 1325 */
+										/* U+FB2E */ CANT_MAP_CHARACTER,
+										/* 1326 */
+										/* U+FB2F */ CANT_MAP_CHARACTER,
+										/* 1327 */
+										/* U+FB30 */ CANT_MAP_CHARACTER,
+										/* 1328 */
+										/* U+FB31 */ CANT_MAP_CHARACTER,
+										/* 1329 */
+										/* U+FB32 */ CANT_MAP_CHARACTER,
+										/* 1330 */
+										/* U+FB33 */ CANT_MAP_CHARACTER,
+										/* 1331 */
+										/* U+FB34 */ CANT_MAP_CHARACTER,
+										/* 1332 */
+										/* U+FB35 */ CANT_MAP_CHARACTER,
+										/* 1333 */
+										/* U+FB36 */ CANT_MAP_CHARACTER,
+										/* 1334 */
+										/* U+FB37 */ CANT_MAP_CHARACTER,
+										/* 1335 */
+										/* U+FB38 */ CANT_MAP_CHARACTER,
+										/* 1336 */
+										/* U+FB39 */ CANT_MAP_CHARACTER,
+										/* 1337 */
+										/* U+FB3A */ CANT_MAP_CHARACTER,
+										/* 1338 */
+										/* U+FB3B */ CANT_MAP_CHARACTER,
+										/* 1339 */
+										/* U+FB3C */ CANT_MAP_CHARACTER,
+										/* 1340 */
+										/* U+FB3D */ CANT_MAP_CHARACTER,
+										/* 1341 */
+										/* U+FB3E */ CANT_MAP_CHARACTER,
+										/* 1342 */
+										/* U+FB3F */ CANT_MAP_CHARACTER,
+										/* 1343 */
+										/* U+FB40 */ CANT_MAP_CHARACTER,
+										/* 1344 */
+										/* U+FB41 */ CANT_MAP_CHARACTER,
+										/* 1345 */
+										/* U+FB42 */ CANT_MAP_CHARACTER,
+										/* 1346 */
+										/* U+FB43 */ CANT_MAP_CHARACTER,
+										/* 1347 */
+										/* U+FB44 */ CANT_MAP_CHARACTER,
+										/* 1348 */
+										/* U+FB45 */ CANT_MAP_CHARACTER,
+										/* 1349 */
+										/* U+FB46 */ CANT_MAP_CHARACTER,
+										/* 1350 */
+										/* U+FB47 */ CANT_MAP_CHARACTER,
+										/* 1351 */
+										/* U+FB48 */ CANT_MAP_CHARACTER,
+										/* 1352 */
+										/* U+FB49 */ CANT_MAP_CHARACTER,
+										/* 1353 */
+										/* U+FB4A */ CANT_MAP_CHARACTER,
+										/* 1354 */
+										/* U+FB4B */ CANT_MAP_CHARACTER,
+										/* 1355 */
+										/* U+FB4C */ CANT_MAP_CHARACTER,
+										/* 1356 */
+										/* U+FB4D */ CANT_MAP_CHARACTER,
+										/* 1357 */
+										/* U+FB4E */ CANT_MAP_CHARACTER,
+										/* 1358 */
+										/* U+FB4F */ CANT_MAP_CHARACTER,
+										/* 1359 */
+										/* U+FB50 */ CANT_MAP_CHARACTER,
+										/* 1360 */
+										/* U+FB51 */ CANT_MAP_CHARACTER,
+										/* 1361 */
+										/* U+FB52 */ CANT_MAP_CHARACTER,
+										/* 1362 */
+										/* U+FB53 */ CANT_MAP_CHARACTER,
+										/* 1363 */
+										/* U+FB54 */ CANT_MAP_CHARACTER,
+										/* 1364 */
+										/* U+FB55 */ CANT_MAP_CHARACTER,
+										/* 1365 */
+										/* U+FB56 */ CANT_MAP_CHARACTER,
+										/* 1366 */
+										/* U+FB57 */ CANT_MAP_CHARACTER,
+										/* 1367 */
+										/* U+FB58 */ CANT_MAP_CHARACTER,
+										/* 1368 */
+										/* U+FB59 */ CANT_MAP_CHARACTER,
+										/* 1369 */
+										/* U+FB5A */ CANT_MAP_CHARACTER,
+										/* 1370 */
+										/* U+FB5B */ CANT_MAP_CHARACTER,
+										/* 1371 */
+										/* U+FB5C */ CANT_MAP_CHARACTER,
+										/* 1372 */
+										/* U+FB5D */ CANT_MAP_CHARACTER,
+										/* 1373 */
+										/* U+FB5E */ CANT_MAP_CHARACTER,
+										/* 1374 */
+										/* U+FB5F */ CANT_MAP_CHARACTER,
+										/* 1375 */
+										/* U+FB60 */ CANT_MAP_CHARACTER,
+										/* 1376 */
+										/* U+FB61 */ CANT_MAP_CHARACTER,
+										/* 1377 */
+										/* U+FB62 */ CANT_MAP_CHARACTER,
+										/* 1378 */
+										/* U+FB63 */ CANT_MAP_CHARACTER,
+										/* 1379 */
+										/* U+FB64 */ CANT_MAP_CHARACTER,
+										/* 1380 */
+										/* U+FB65 */ CANT_MAP_CHARACTER,
+										/* 1381 */
+										/* U+FB66 */ CANT_MAP_CHARACTER,
+										/* 1382 */
+										/* U+FB67 */ CANT_MAP_CHARACTER,
+										/* 1383 */
+										/* U+FB68 */ CANT_MAP_CHARACTER,
+										/* 1384 */
+										/* U+FB69 */ CANT_MAP_CHARACTER,
+										/* 1385 */
+										/* U+FB6A */ CANT_MAP_CHARACTER,
+										/* 1386 */
+										/* U+FB6B */ CANT_MAP_CHARACTER,
+										/* 1387 */
+										/* U+FB6C */ CANT_MAP_CHARACTER,
+										/* 1388 */
+										/* U+FB6D */ CANT_MAP_CHARACTER,
+										/* 1389 */
+										/* U+FB6E */ CANT_MAP_CHARACTER,
+										/* 1390 */
+										/* U+FB6F */ CANT_MAP_CHARACTER,
+										/* 1391 */
+										/* U+FB70 */ CANT_MAP_CHARACTER,
+										/* 1392 */
+										/* U+FB71 */ CANT_MAP_CHARACTER,
+										/* 1393 */
+										/* U+FB72 */ CANT_MAP_CHARACTER,
+										/* 1394 */
+										/* U+FB73 */ CANT_MAP_CHARACTER,
+										/* 1395 */
+										/* U+FB74 */ CANT_MAP_CHARACTER,
+										/* 1396 */
+										/* U+FB75 */ CANT_MAP_CHARACTER,
+										/* 1397 */
+										/* U+FB76 */ CANT_MAP_CHARACTER,
+										/* 1398 */
+										/* U+FB77 */ CANT_MAP_CHARACTER,
+										/* 1399 */
+										/* U+FB78 */ CANT_MAP_CHARACTER,
+										/* 1400 */
+										/* U+FB79 */ CANT_MAP_CHARACTER,
+										/* 1401 */
+										/* U+FB7A */ CANT_MAP_CHARACTER,
+										/* 1402 */
+										/* U+FB7B */ CANT_MAP_CHARACTER,
+										/* 1403 */
+										/* U+FB7C */ CANT_MAP_CHARACTER,
+										/* 1404 */
+										/* U+FB7D */ CANT_MAP_CHARACTER,
+										/* 1405 */
+										/* U+FB7E */ CANT_MAP_CHARACTER,
+										/* 1406 */
+										/* U+FB7F */ CANT_MAP_CHARACTER,
+										/* 1407 */
+										/* U+FB80 */ CANT_MAP_CHARACTER,
+										/* 1408 */
+										/* U+FB81 */ CANT_MAP_CHARACTER,
+										/* 1409 */
+										/* U+FB82 */ CANT_MAP_CHARACTER,
+										/* 1410 */
+										/* U+FB83 */ CANT_MAP_CHARACTER,
+										/* 1411 */
+										/* U+FB84 */ CANT_MAP_CHARACTER,
+										/* 1412 */
+										/* U+FB85 */ CANT_MAP_CHARACTER,
+										/* 1413 */
+										/* U+FB86 */ CANT_MAP_CHARACTER,
+										/* 1414 */
+										/* U+FB87 */ CANT_MAP_CHARACTER,
+										/* 1415 */
+										/* U+FB88 */ CANT_MAP_CHARACTER,
+										/* 1416 */
+										/* U+FB89 */ CANT_MAP_CHARACTER,
+										/* 1417 */
+										/* U+FB8A */ CANT_MAP_CHARACTER,
+										/* 1418 */
+										/* U+FB8B */ CANT_MAP_CHARACTER,
+										/* 1419 */
+										/* U+FB8C */ CANT_MAP_CHARACTER,
+										/* 1420 */
+										/* U+FB8D */ CANT_MAP_CHARACTER,
+										/* 1421 */
+										/* U+FB8E */ CANT_MAP_CHARACTER,
+										/* 1422 */
+										/* U+FB8F */ CANT_MAP_CHARACTER,
+										/* 1423 */
+										/* U+FB90 */ CANT_MAP_CHARACTER,
+										/* 1424 */
+										/* U+FB91 */ CANT_MAP_CHARACTER,
+										/* 1425 */
+										/* U+FB92 */ CANT_MAP_CHARACTER,
+										/* 1426 */
+										/* U+FB93 */ CANT_MAP_CHARACTER,
+										/* 1427 */
+										/* U+FB94 */ CANT_MAP_CHARACTER,
+										/* 1428 */
+										/* U+FB95 */ CANT_MAP_CHARACTER,
+										/* 1429 */
+										/* U+FB96 */ CANT_MAP_CHARACTER,
+										/* 1430 */
+										/* U+FB97 */ CANT_MAP_CHARACTER,
+										/* 1431 */
+										/* U+FB98 */ CANT_MAP_CHARACTER,
+										/* 1432 */
+										/* U+FB99 */ CANT_MAP_CHARACTER,
+										/* 1433 */
+										/* U+FB9A */ CANT_MAP_CHARACTER,
+										/* 1434 */
+										/* U+FB9B */ CANT_MAP_CHARACTER,
+										/* 1435 */
+										/* U+FB9C */ CANT_MAP_CHARACTER,
+										/* 1436 */
+										/* U+FB9D */ CANT_MAP_CHARACTER,
+										/* 1437 */
+										/* U+FB9E */ CANT_MAP_CHARACTER,
+										/* 1438 */
+										/* U+FB9F */ CANT_MAP_CHARACTER,
+										/* 1439 */
+										/* U+FBA0 */ CANT_MAP_CHARACTER,
+										/* 1440 */
+										/* U+FBA1 */ CANT_MAP_CHARACTER,
+										/* 1441 */
+										/* U+FBA2 */ CANT_MAP_CHARACTER,
+										/* 1442 */
+										/* U+FBA3 */ CANT_MAP_CHARACTER,
+										/* 1443 */
+										/* U+FBA4 */ CANT_MAP_CHARACTER,
+										/* 1444 */
+										/* U+FBA5 */ CANT_MAP_CHARACTER,
+										/* 1445 */
+										/* U+FBA6 */ CANT_MAP_CHARACTER,
+										/* 1446 */
+										/* U+FBA7 */ CANT_MAP_CHARACTER,
+										/* 1447 */
+										/* U+FBA8 */ CANT_MAP_CHARACTER,
+										/* 1448 */
+										/* U+FBA9 */ CANT_MAP_CHARACTER,
+										/* 1449 */
+										/* U+FBAA */ CANT_MAP_CHARACTER,
+										/* 1450 */
+										/* U+FBAB */ CANT_MAP_CHARACTER,
+										/* 1451 */
+										/* U+FBAC */ CANT_MAP_CHARACTER,
+										/* 1452 */
+										/* U+FBAD */ CANT_MAP_CHARACTER,
+										/* 1453 */
+										/* U+FBAE */ CANT_MAP_CHARACTER,
+										/* 1454 */
+										/* U+FBAF */ CANT_MAP_CHARACTER,
+										/* 1455 */
+										/* U+FBB0 */ CANT_MAP_CHARACTER,
+										/* 1456 */
+										/* U+FBB1 */ CANT_MAP_CHARACTER,
+										/* 1457 */
+										/* U+FBB2 */ CANT_MAP_CHARACTER,
+										/* 1458 */
+										/* U+FBB3 */ CANT_MAP_CHARACTER,
+										/* 1459 */
+										/* U+FBB4 */ CANT_MAP_CHARACTER,
+										/* 1460 */
+										/* U+FBB5 */ CANT_MAP_CHARACTER,
+										/* 1461 */
+										/* U+FBB6 */ CANT_MAP_CHARACTER,
+										/* 1462 */
+										/* U+FBB7 */ CANT_MAP_CHARACTER,
+										/* 1463 */
+										/* U+FBB8 */ CANT_MAP_CHARACTER,
+										/* 1464 */
+										/* U+FBB9 */ CANT_MAP_CHARACTER,
+										/* 1465 */
+										/* U+FBBA */ CANT_MAP_CHARACTER,
+										/* 1466 */
+										/* U+FBBB */ CANT_MAP_CHARACTER,
+										/* 1467 */
+										/* U+FBBC */ CANT_MAP_CHARACTER,
+										/* 1468 */
+										/* U+FBBD */ CANT_MAP_CHARACTER,
+										/* 1469 */
+										/* U+FBBE */ CANT_MAP_CHARACTER,
+										/* 1470 */
+										/* U+FBBF */ CANT_MAP_CHARACTER,
+										/* 1471 */
+										/* U+FBC0 */ CANT_MAP_CHARACTER,
+										/* 1472 */
+										/* U+FBC1 */ CANT_MAP_CHARACTER,
+										/* 1473 */
+										/* U+FBC2 */ CANT_MAP_CHARACTER,
+										/* 1474 */
+										/* U+FBC3 */ CANT_MAP_CHARACTER,
+										/* 1475 */
+										/* U+FBC4 */ CANT_MAP_CHARACTER,
+										/* 1476 */
+										/* U+FBC5 */ CANT_MAP_CHARACTER,
+										/* 1477 */
+										/* U+FBC6 */ CANT_MAP_CHARACTER,
+										/* 1478 */
+										/* U+FBC7 */ CANT_MAP_CHARACTER,
+										/* 1479 */
+										/* U+FBC8 */ CANT_MAP_CHARACTER,
+										/* 1480 */
+										/* U+FBC9 */ CANT_MAP_CHARACTER,
+										/* 1481 */
+										/* U+FBCA */ CANT_MAP_CHARACTER,
+										/* 1482 */
+										/* U+FBCB */ CANT_MAP_CHARACTER,
+										/* 1483 */
+										/* U+FBCC */ CANT_MAP_CHARACTER,
+										/* 1484 */
+										/* U+FBCD */ CANT_MAP_CHARACTER,
+										/* 1485 */
+										/* U+FBCE */ CANT_MAP_CHARACTER,
+										/* 1486 */
+										/* U+FBCF */ CANT_MAP_CHARACTER,
+										/* 1487 */
+										/* U+FBD0 */ CANT_MAP_CHARACTER,
+										/* 1488 */
+										/* U+FBD1 */ CANT_MAP_CHARACTER,
+										/* 1489 */
+										/* U+FBD2 */ CANT_MAP_CHARACTER,
+										/* 1490 */
+										/* U+FBD3 */ CANT_MAP_CHARACTER,
+										/* 1491 */
+										/* U+FBD4 */ CANT_MAP_CHARACTER,
+										/* 1492 */
+										/* U+FBD5 */ CANT_MAP_CHARACTER,
+										/* 1493 */
+										/* U+FBD6 */ CANT_MAP_CHARACTER,
+										/* 1494 */
+										/* U+FBD7 */ CANT_MAP_CHARACTER,
+										/* 1495 */
+										/* U+FBD8 */ CANT_MAP_CHARACTER,
+										/* 1496 */
+										/* U+FBD9 */ CANT_MAP_CHARACTER,
+										/* 1497 */
+										/* U+FBDA */ CANT_MAP_CHARACTER,
+										/* 1498 */
+										/* U+FBDB */ CANT_MAP_CHARACTER,
+										/* 1499 */
+										/* U+FBDC */ CANT_MAP_CHARACTER,
+										/* 1500 */
+										/* U+FBDD */ CANT_MAP_CHARACTER,
+										/* 1501 */
+										/* U+FBDE */ CANT_MAP_CHARACTER,
+										/* 1502 */
+										/* U+FBDF */ CANT_MAP_CHARACTER,
+										/* 1503 */
+										/* U+FBE0 */ CANT_MAP_CHARACTER,
+										/* 1504 */
+										/* U+FBE1 */ CANT_MAP_CHARACTER,
+										/* 1505 */
+										/* U+FBE2 */ CANT_MAP_CHARACTER,
+										/* 1506 */
+										/* U+FBE3 */ CANT_MAP_CHARACTER,
+										/* 1507 */
+										/* U+FBE4 */ CANT_MAP_CHARACTER,
+										/* 1508 */
+										/* U+FBE5 */ CANT_MAP_CHARACTER,
+										/* 1509 */
+										/* U+FBE6 */ CANT_MAP_CHARACTER,
+										/* 1510 */
+										/* U+FBE7 */ CANT_MAP_CHARACTER,
+										/* 1511 */
+										/* U+FBE8 */ CANT_MAP_CHARACTER,
+										/* 1512 */
+										/* U+FBE9 */ CANT_MAP_CHARACTER,
+										/* 1513 */
+										/* U+FBEA */ CANT_MAP_CHARACTER,
+										/* 1514 */
+										/* U+FBEB */ CANT_MAP_CHARACTER,
+										/* 1515 */
+										/* U+FBEC */ CANT_MAP_CHARACTER,
+										/* 1516 */
+										/* U+FBED */ CANT_MAP_CHARACTER,
+										/* 1517 */
+										/* U+FBEE */ CANT_MAP_CHARACTER,
+										/* 1518 */
+										/* U+FBEF */ CANT_MAP_CHARACTER,
+										/* 1519 */
+										/* U+FBF0 */ CANT_MAP_CHARACTER,
+										/* 1520 */
+										/* U+FBF1 */ CANT_MAP_CHARACTER,
+										/* 1521 */
+										/* U+FBF2 */ CANT_MAP_CHARACTER,
+										/* 1522 */
+										/* U+FBF3 */ CANT_MAP_CHARACTER,
+										/* 1523 */
+										/* U+FBF4 */ CANT_MAP_CHARACTER,
+										/* 1524 */
+										/* U+FBF5 */ CANT_MAP_CHARACTER,
+										/* 1525 */
+										/* U+FBF6 */ CANT_MAP_CHARACTER,
+										/* 1526 */
+										/* U+FBF7 */ CANT_MAP_CHARACTER,
+										/* 1527 */
+										/* U+FBF8 */ CANT_MAP_CHARACTER,
+										/* 1528 */
+										/* U+FBF9 */ CANT_MAP_CHARACTER,
+										/* 1529 */
+										/* U+FBFA */ CANT_MAP_CHARACTER,
+										/* 1530 */
+										/* U+FBFB */ CANT_MAP_CHARACTER,
+										/* 1531 */
+										/* U+FBFC */ CANT_MAP_CHARACTER,
+										/* 1532 */
+										/* U+FBFD */ CANT_MAP_CHARACTER,
+										/* 1533 */
+										/* U+FBFE */ CANT_MAP_CHARACTER,
+										/* 1534 */
+										/* U+FBFF */ CANT_MAP_CHARACTER,
+										/* 1535 */
+										/* U+FF00 */ CANT_MAP_CHARACTER,
+										/* 1536 */
+										/* U+FF01 */ CANT_MAP_CHARACTER,
+										/* 1537 */
+										/* U+FF02 */ CANT_MAP_CHARACTER,
+										/* 1538 */
+										/* U+FF03 */ CANT_MAP_CHARACTER,
+										/* 1539 */
+										/* U+FF04 */ CANT_MAP_CHARACTER,
+										/* 1540 */
+										/* U+FF05 */ CANT_MAP_CHARACTER,
+										/* 1541 */
+										/* U+FF06 */ CANT_MAP_CHARACTER,
+										/* 1542 */
+										/* U+FF07 */ CANT_MAP_CHARACTER,
+										/* 1543 */
+										/* U+FF08 */ CANT_MAP_CHARACTER,
+										/* 1544 */
+										/* U+FF09 */ CANT_MAP_CHARACTER,
+										/* 1545 */
+										/* U+FF0A */ CANT_MAP_CHARACTER,
+										/* 1546 */
+										/* U+FF0B */ CANT_MAP_CHARACTER,
+										/* 1547 */
+										/* U+FF0C */ CANT_MAP_CHARACTER,
+										/* 1548 */
+										/* U+FF0D */ CANT_MAP_CHARACTER,
+										/* 1549 */
+										/* U+FF0E */ CANT_MAP_CHARACTER,
+										/* 1550 */
+										/* U+FF0F */ CANT_MAP_CHARACTER,
+										/* 1551 */
+										/* U+FF10 */ CANT_MAP_CHARACTER,
+										/* 1552 */
+										/* U+FF11 */ CANT_MAP_CHARACTER,
+										/* 1553 */
+										/* U+FF12 */ CANT_MAP_CHARACTER,
+										/* 1554 */
+										/* U+FF13 */ CANT_MAP_CHARACTER,
+										/* 1555 */
+										/* U+FF14 */ CANT_MAP_CHARACTER,
+										/* 1556 */
+										/* U+FF15 */ CANT_MAP_CHARACTER,
+										/* 1557 */
+										/* U+FF16 */ CANT_MAP_CHARACTER,
+										/* 1558 */
+										/* U+FF17 */ CANT_MAP_CHARACTER,
+										/* 1559 */
+										/* U+FF18 */ CANT_MAP_CHARACTER,
+										/* 1560 */
+										/* U+FF19 */ CANT_MAP_CHARACTER,
+										/* 1561 */
+										/* U+FF1A */ CANT_MAP_CHARACTER,
+										/* 1562 */
+										/* U+FF1B */ CANT_MAP_CHARACTER,
+										/* 1563 */
+										/* U+FF1C */ CANT_MAP_CHARACTER,
+										/* 1564 */
+										/* U+FF1D */ CANT_MAP_CHARACTER,
+										/* 1565 */
+										/* U+FF1E */ CANT_MAP_CHARACTER,
+										/* 1566 */
+										/* U+FF1F */ CANT_MAP_CHARACTER,
+										/* 1567 */
+										/* U+FF20 */ CANT_MAP_CHARACTER,
+										/* 1568 */
+										/* U+FF21 */ CANT_MAP_CHARACTER,
+										/* 1569 */
+										/* U+FF22 */ CANT_MAP_CHARACTER,
+										/* 1570 */
+										/* U+FF23 */ CANT_MAP_CHARACTER,
+										/* 1571 */
+										/* U+FF24 */ CANT_MAP_CHARACTER,
+										/* 1572 */
+										/* U+FF25 */ CANT_MAP_CHARACTER,
+										/* 1573 */
+										/* U+FF26 */ CANT_MAP_CHARACTER,
+										/* 1574 */
+										/* U+FF27 */ CANT_MAP_CHARACTER,
+										/* 1575 */
+										/* U+FF28 */ CANT_MAP_CHARACTER,
+										/* 1576 */
+										/* U+FF29 */ CANT_MAP_CHARACTER,
+										/* 1577 */
+										/* U+FF2A */ CANT_MAP_CHARACTER,
+										/* 1578 */
+										/* U+FF2B */ CANT_MAP_CHARACTER,
+										/* 1579 */
+										/* U+FF2C */ CANT_MAP_CHARACTER,
+										/* 1580 */
+										/* U+FF2D */ CANT_MAP_CHARACTER,
+										/* 1581 */
+										/* U+FF2E */ CANT_MAP_CHARACTER,
+										/* 1582 */
+										/* U+FF2F */ CANT_MAP_CHARACTER,
+										/* 1583 */
+										/* U+FF30 */ CANT_MAP_CHARACTER,
+										/* 1584 */
+										/* U+FF31 */ CANT_MAP_CHARACTER,
+										/* 1585 */
+										/* U+FF32 */ CANT_MAP_CHARACTER,
+										/* 1586 */
+										/* U+FF33 */ CANT_MAP_CHARACTER,
+										/* 1587 */
+										/* U+FF34 */ CANT_MAP_CHARACTER,
+										/* 1588 */
+										/* U+FF35 */ CANT_MAP_CHARACTER,
+										/* 1589 */
+										/* U+FF36 */ CANT_MAP_CHARACTER,
+										/* 1590 */
+										/* U+FF37 */ CANT_MAP_CHARACTER,
+										/* 1591 */
+										/* U+FF38 */ CANT_MAP_CHARACTER,
+										/* 1592 */
+										/* U+FF39 */ CANT_MAP_CHARACTER,
+										/* 1593 */
+										/* U+FF3A */ CANT_MAP_CHARACTER,
+										/* 1594 */
+										/* U+FF3B */ CANT_MAP_CHARACTER,
+										/* 1595 */
+										/* U+FF3C */ CANT_MAP_CHARACTER,
+										/* 1596 */
+										/* U+FF3D */ CANT_MAP_CHARACTER,
+										/* 1597 */
+										/* U+FF3E */ CANT_MAP_CHARACTER,
+										/* 1598 */
+										/* U+FF3F */ CANT_MAP_CHARACTER,
+										/* 1599 */
+										/* U+FF40 */ CANT_MAP_CHARACTER,
+										/* 1600 */
+										/* U+FF41 */ CANT_MAP_CHARACTER,
+										/* 1601 */
+										/* U+FF42 */ CANT_MAP_CHARACTER,
+										/* 1602 */
+										/* U+FF43 */ CANT_MAP_CHARACTER,
+										/* 1603 */
+										/* U+FF44 */ CANT_MAP_CHARACTER,
+										/* 1604 */
+										/* U+FF45 */ CANT_MAP_CHARACTER,
+										/* 1605 */
+										/* U+FF46 */ CANT_MAP_CHARACTER,
+										/* 1606 */
+										/* U+FF47 */ CANT_MAP_CHARACTER,
+										/* 1607 */
+										/* U+FF48 */ CANT_MAP_CHARACTER,
+										/* 1608 */
+										/* U+FF49 */ CANT_MAP_CHARACTER,
+										/* 1609 */
+										/* U+FF4A */ CANT_MAP_CHARACTER,
+										/* 1610 */
+										/* U+FF4B */ CANT_MAP_CHARACTER,
+										/* 1611 */
+										/* U+FF4C */ CANT_MAP_CHARACTER,
+										/* 1612 */
+										/* U+FF4D */ CANT_MAP_CHARACTER,
+										/* 1613 */
+										/* U+FF4E */ CANT_MAP_CHARACTER,
+										/* 1614 */
+										/* U+FF4F */ CANT_MAP_CHARACTER,
+										/* 1615 */
+										/* U+FF50 */ CANT_MAP_CHARACTER,
+										/* 1616 */
+										/* U+FF51 */ CANT_MAP_CHARACTER,
+										/* 1617 */
+										/* U+FF52 */ CANT_MAP_CHARACTER,
+										/* 1618 */
+										/* U+FF53 */ CANT_MAP_CHARACTER,
+										/* 1619 */
+										/* U+FF54 */ CANT_MAP_CHARACTER,
+										/* 1620 */
+										/* U+FF55 */ CANT_MAP_CHARACTER,
+										/* 1621 */
+										/* U+FF56 */ CANT_MAP_CHARACTER,
+										/* 1622 */
+										/* U+FF57 */ CANT_MAP_CHARACTER,
+										/* 1623 */
+										/* U+FF58 */ CANT_MAP_CHARACTER,
+										/* 1624 */
+										/* U+FF59 */ CANT_MAP_CHARACTER,
+										/* 1625 */
+										/* U+FF5A */ CANT_MAP_CHARACTER,
+										/* 1626 */
+										/* U+FF5B */ CANT_MAP_CHARACTER,
+										/* 1627 */
+										/* U+FF5C */ CANT_MAP_CHARACTER,
+										/* 1628 */
+										/* U+FF5D */ CANT_MAP_CHARACTER,
+										/* 1629 */
+										/* U+FF5E */ CANT_MAP_CHARACTER,
+										/* 1630 */
+										/* U+FF5F */ CANT_MAP_CHARACTER,
+										/* 1631 */
+										/* U+FF60 */ CANT_MAP_CHARACTER,
+										/* 1632 */
+										/* U+FF61 */ CANT_MAP_CHARACTER,
+										/* 1633 */
+										/* U+FF62 */ CANT_MAP_CHARACTER,
+										/* 1634 */
+										/* U+FF63 */ CANT_MAP_CHARACTER,
+										/* 1635 */
+										/* U+FF64 */ CANT_MAP_CHARACTER,
+										/* 1636 */
+										/* U+FF65 */ CANT_MAP_CHARACTER,
+										/* 1637 */
+										/* U+FF66 */ CANT_MAP_CHARACTER,
+										/* 1638 */
+										/* U+FF67 */ CANT_MAP_CHARACTER,
+										/* 1639 */
+										/* U+FF68 */ CANT_MAP_CHARACTER,
+										/* 1640 */
+										/* U+FF69 */ CANT_MAP_CHARACTER,
+										/* 1641 */
+										/* U+FF6A */ CANT_MAP_CHARACTER,
+										/* 1642 */
+										/* U+FF6B */ CANT_MAP_CHARACTER,
+										/* 1643 */
+										/* U+FF6C */ CANT_MAP_CHARACTER,
+										/* 1644 */
+										/* U+FF6D */ CANT_MAP_CHARACTER,
+										/* 1645 */
+										/* U+FF6E */ CANT_MAP_CHARACTER,
+										/* 1646 */
+										/* U+FF6F */ CANT_MAP_CHARACTER,
+										/* 1647 */
+										/* U+FF70 */ CANT_MAP_CHARACTER,
+										/* 1648 */
+										/* U+FF71 */ CANT_MAP_CHARACTER,
+										/* 1649 */
+										/* U+FF72 */ CANT_MAP_CHARACTER,
+										/* 1650 */
+										/* U+FF73 */ CANT_MAP_CHARACTER,
+										/* 1651 */
+										/* U+FF74 */ CANT_MAP_CHARACTER,
+										/* 1652 */
+										/* U+FF75 */ CANT_MAP_CHARACTER,
+										/* 1653 */
+										/* U+FF76 */ CANT_MAP_CHARACTER,
+										/* 1654 */
+										/* U+FF77 */ CANT_MAP_CHARACTER,
+										/* 1655 */
+										/* U+FF78 */ CANT_MAP_CHARACTER,
+										/* 1656 */
+										/* U+FF79 */ CANT_MAP_CHARACTER,
+										/* 1657 */
+										/* U+FF7A */ CANT_MAP_CHARACTER,
+										/* 1658 */
+										/* U+FF7B */ CANT_MAP_CHARACTER,
+										/* 1659 */
+										/* U+FF7C */ CANT_MAP_CHARACTER,
+										/* 1660 */
+										/* U+FF7D */ CANT_MAP_CHARACTER,
+										/* 1661 */
+										/* U+FF7E */ CANT_MAP_CHARACTER,
+										/* 1662 */
+										/* U+FF7F */ CANT_MAP_CHARACTER,
+										/* 1663 */
+										/* U+FF80 */ CANT_MAP_CHARACTER,
+										/* 1664 */
+										/* U+FF81 */ CANT_MAP_CHARACTER,
+										/* 1665 */
+										/* U+FF82 */ CANT_MAP_CHARACTER,
+										/* 1666 */
+										/* U+FF83 */ CANT_MAP_CHARACTER,
+										/* 1667 */
+										/* U+FF84 */ CANT_MAP_CHARACTER,
+										/* 1668 */
+										/* U+FF85 */ CANT_MAP_CHARACTER,
+										/* 1669 */
+										/* U+FF86 */ CANT_MAP_CHARACTER,
+										/* 1670 */
+										/* U+FF87 */ CANT_MAP_CHARACTER,
+										/* 1671 */
+										/* U+FF88 */ CANT_MAP_CHARACTER,
+										/* 1672 */
+										/* U+FF89 */ CANT_MAP_CHARACTER,
+										/* 1673 */
+										/* U+FF8A */ CANT_MAP_CHARACTER,
+										/* 1674 */
+										/* U+FF8B */ CANT_MAP_CHARACTER,
+										/* 1675 */
+										/* U+FF8C */ CANT_MAP_CHARACTER,
+										/* 1676 */
+										/* U+FF8D */ CANT_MAP_CHARACTER,
+										/* 1677 */
+										/* U+FF8E */ CANT_MAP_CHARACTER,
+										/* 1678 */
+										/* U+FF8F */ CANT_MAP_CHARACTER,
+										/* 1679 */
+										/* U+FF90 */ CANT_MAP_CHARACTER,
+										/* 1680 */
+										/* U+FF91 */ CANT_MAP_CHARACTER,
+										/* 1681 */
+										/* U+FF92 */ CANT_MAP_CHARACTER,
+										/* 1682 */
+										/* U+FF93 */ CANT_MAP_CHARACTER,
+										/* 1683 */
+										/* U+FF94 */ CANT_MAP_CHARACTER,
+										/* 1684 */
+										/* U+FF95 */ CANT_MAP_CHARACTER,
+										/* 1685 */
+										/* U+FF96 */ CANT_MAP_CHARACTER,
+										/* 1686 */
+										/* U+FF97 */ CANT_MAP_CHARACTER,
+										/* 1687 */
+										/* U+FF98 */ CANT_MAP_CHARACTER,
+										/* 1688 */
+										/* U+FF99 */ CANT_MAP_CHARACTER,
+										/* 1689 */
+										/* U+FF9A */ CANT_MAP_CHARACTER,
+										/* 1690 */
+										/* U+FF9B */ CANT_MAP_CHARACTER,
+										/* 1691 */
+										/* U+FF9C */ CANT_MAP_CHARACTER,
+										/* 1692 */
+										/* U+FF9D */ CANT_MAP_CHARACTER,
+										/* 1693 */
+										/* U+FF9E */ CANT_MAP_CHARACTER,
+										/* 1694 */
+										/* U+FF9F */ CANT_MAP_CHARACTER,
+										/* 1695 */
+										/* U+FFA0 */ CANT_MAP_CHARACTER,
+										/* 1696 */
+										/* U+FFA1 */ CANT_MAP_CHARACTER,
+										/* 1697 */
+										/* U+FFA2 */ CANT_MAP_CHARACTER,
+										/* 1698 */
+										/* U+FFA3 */ CANT_MAP_CHARACTER,
+										/* 1699 */
+										/* U+FFA4 */ CANT_MAP_CHARACTER,
+										/* 1700 */
+										/* U+FFA5 */ CANT_MAP_CHARACTER,
+										/* 1701 */
+										/* U+FFA6 */ CANT_MAP_CHARACTER,
+										/* 1702 */
+										/* U+FFA7 */ CANT_MAP_CHARACTER,
+										/* 1703 */
+										/* U+FFA8 */ CANT_MAP_CHARACTER,
+										/* 1704 */
+										/* U+FFA9 */ CANT_MAP_CHARACTER,
+										/* 1705 */
+										/* U+FFAA */ CANT_MAP_CHARACTER,
+										/* 1706 */
+										/* U+FFAB */ CANT_MAP_CHARACTER,
+										/* 1707 */
+										/* U+FFAC */ CANT_MAP_CHARACTER,
+										/* 1708 */
+										/* U+FFAD */ CANT_MAP_CHARACTER,
+										/* 1709 */
+										/* U+FFAE */ CANT_MAP_CHARACTER,
+										/* 1710 */
+										/* U+FFAF */ CANT_MAP_CHARACTER,
+										/* 1711 */
+										/* U+FFB0 */ CANT_MAP_CHARACTER,
+										/* 1712 */
+										/* U+FFB1 */ CANT_MAP_CHARACTER,
+										/* 1713 */
+										/* U+FFB2 */ CANT_MAP_CHARACTER,
+										/* 1714 */
+										/* U+FFB3 */ CANT_MAP_CHARACTER,
+										/* 1715 */
+										/* U+FFB4 */ CANT_MAP_CHARACTER,
+										/* 1716 */
+										/* U+FFB5 */ CANT_MAP_CHARACTER,
+										/* 1717 */
+										/* U+FFB6 */ CANT_MAP_CHARACTER,
+										/* 1718 */
+										/* U+FFB7 */ CANT_MAP_CHARACTER,
+										/* 1719 */
+										/* U+FFB8 */ CANT_MAP_CHARACTER,
+										/* 1720 */
+										/* U+FFB9 */ CANT_MAP_CHARACTER,
+										/* 1721 */
+										/* U+FFBA */ CANT_MAP_CHARACTER,
+										/* 1722 */
+										/* U+FFBB */ CANT_MAP_CHARACTER,
+										/* 1723 */
+										/* U+FFBC */ CANT_MAP_CHARACTER,
+										/* 1724 */
+										/* U+FFBD */ CANT_MAP_CHARACTER,
+										/* 1725 */
+										/* U+FFBE */ CANT_MAP_CHARACTER,
+										/* 1726 */
+										/* U+FFBF */ CANT_MAP_CHARACTER,
+										/* 1727 */
+										/* U+FFC0 */ CANT_MAP_CHARACTER,
+										/* 1728 */
+										/* U+FFC1 */ CANT_MAP_CHARACTER,
+										/* 1729 */
+										/* U+FFC2 */ CANT_MAP_CHARACTER,
+										/* 1730 */
+										/* U+FFC3 */ CANT_MAP_CHARACTER,
+										/* 1731 */
+										/* U+FFC4 */ CANT_MAP_CHARACTER,
+										/* 1732 */
+										/* U+FFC5 */ CANT_MAP_CHARACTER,
+										/* 1733 */
+										/* U+FFC6 */ CANT_MAP_CHARACTER,
+										/* 1734 */
+										/* U+FFC7 */ CANT_MAP_CHARACTER,
+										/* 1735 */
+										/* U+FFC8 */ CANT_MAP_CHARACTER,
+										/* 1736 */
+										/* U+FFC9 */ CANT_MAP_CHARACTER,
+										/* 1737 */
+										/* U+FFCA */ CANT_MAP_CHARACTER,
+										/* 1738 */
+										/* U+FFCB */ CANT_MAP_CHARACTER,
+										/* 1739 */
+										/* U+FFCC */ CANT_MAP_CHARACTER,
+										/* 1740 */
+										/* U+FFCD */ CANT_MAP_CHARACTER,
+										/* 1741 */
+										/* U+FFCE */ CANT_MAP_CHARACTER,
+										/* 1742 */
+										/* U+FFCF */ CANT_MAP_CHARACTER,
+										/* 1743 */
+										/* U+FFD0 */ CANT_MAP_CHARACTER,
+										/* 1744 */
+										/* U+FFD1 */ CANT_MAP_CHARACTER,
+										/* 1745 */
+										/* U+FFD2 */ CANT_MAP_CHARACTER,
+										/* 1746 */
+										/* U+FFD3 */ CANT_MAP_CHARACTER,
+										/* 1747 */
+										/* U+FFD4 */ CANT_MAP_CHARACTER,
+										/* 1748 */
+										/* U+FFD5 */ CANT_MAP_CHARACTER,
+										/* 1749 */
+										/* U+FFD6 */ CANT_MAP_CHARACTER,
+										/* 1750 */
+										/* U+FFD7 */ CANT_MAP_CHARACTER,
+										/* 1751 */
+										/* U+FFD8 */ CANT_MAP_CHARACTER,
+										/* 1752 */
+										/* U+FFD9 */ CANT_MAP_CHARACTER,
+										/* 1753 */
+										/* U+FFDA */ CANT_MAP_CHARACTER,
+										/* 1754 */
+										/* U+FFDB */ CANT_MAP_CHARACTER,
+										/* 1755 */
+										/* U+FFDC */ CANT_MAP_CHARACTER,
+										/* 1756 */
+										/* U+FFDD */ CANT_MAP_CHARACTER,
+										/* 1757 */
+										/* U+FFDE */ CANT_MAP_CHARACTER,
+										/* 1758 */
+										/* U+FFDF */ CANT_MAP_CHARACTER,
+										/* 1759 */
+										/* U+FFE0 */ CANT_MAP_CHARACTER,
+										/* 1760 */
+										/* U+FFE1 */ CANT_MAP_CHARACTER,
+										/* 1761 */
+										/* U+FFE2 */ CANT_MAP_CHARACTER,
+										/* 1762 */
+										/* U+FFE3 */ CANT_MAP_CHARACTER,
+										/* 1763 */
+										/* U+FFE4 */ CANT_MAP_CHARACTER,
+										/* 1764 */
+										/* U+FFE5 */ CANT_MAP_CHARACTER,
+										/* 1765 */
+										/* U+FFE6 */ CANT_MAP_CHARACTER,
+										/* 1766 */
+										/* U+FFE7 */ CANT_MAP_CHARACTER,
+										/* 1767 */
+										/* U+FFE8 */ CANT_MAP_CHARACTER,
+										/* 1768 */
+										/* U+FFE9 */ CANT_MAP_CHARACTER,
+										/* 1769 */
+										/* U+FFEA */ CANT_MAP_CHARACTER,
+										/* 1770 */
+										/* U+FFEB */ CANT_MAP_CHARACTER,
+										/* 1771 */
+										/* U+FFEC */ CANT_MAP_CHARACTER,
+										/* 1772 */
+										/* U+FFED */ CANT_MAP_CHARACTER,
+										/* 1773 */
+										/* U+FFEE */ CANT_MAP_CHARACTER,
+										/* 1774 */
+										/* U+FFEF */ CANT_MAP_CHARACTER,
+										/* 1775 */
+										/* U+FFF0 */ CANT_MAP_CHARACTER,
+										/* 1776 */
+										/* U+FFF1 */ CANT_MAP_CHARACTER,
+										/* 1777 */
+										/* U+FFF2 */ CANT_MAP_CHARACTER,
+										/* 1778 */
+										/* U+FFF3 */ CANT_MAP_CHARACTER,
+										/* 1779 */
+										/* U+FFF4 */ CANT_MAP_CHARACTER,
+										/* 1780 */
+										/* U+FFF5 */ CANT_MAP_CHARACTER,
+										/* 1781 */
+										/* U+FFF6 */ CANT_MAP_CHARACTER,
+										/* 1782 */
+										/* U+FFF7 */ CANT_MAP_CHARACTER,
+										/* 1783 */
+										/* U+FFF8 */ CANT_MAP_CHARACTER,
+										/* 1784 */
+										/* U+FFF9 */ CANT_MAP_CHARACTER,
+										/* 1785 */
+										/* U+FFFA */ CANT_MAP_CHARACTER,
+										/* 1786 */
+										/* U+FFFB */ CANT_MAP_CHARACTER,
+										/* 1787 */
+										/* U+FFFC */ CANT_MAP_CHARACTER,
+										/* 1788 */
+	/* U+FFFD */ 0xFE /*                .notdef, REPLACEMENT CHARACTER */ ,	/* 1789 */
+										/* U+FFFE */ CANT_MAP_CHARACTER,
+										/* 1790 */
+										/* U+FFFF */ CANT_MAP_CHARACTER,
+										/* 1791 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 512,
+/* U+02-- */ 768,
+/* U+03-- */ 0,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 1024,
+/* U+21-- */ 0,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 0,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 1280,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 1536,
+};
diff --git a/src/intl/cs_sjis.h b/src/intl/cs_sjis.h
new file mode 100644
index 0000000000..e770ac074a
--- /dev/null
+++ b/src/intl/cs_sjis.h
@@ -0,0 +1,3510 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen4.c
+     mapgen4 SHIFTJIS.TXT 
+
+    Unicode mapping table generated from file SHIFTJIS.TXT 
+
+#
+# --- This is a trunctated version of the SHIFTJIS.TXT file
+# --- Provided by Unicode, Inc.  This version contains only
+# --- The shift-JIS codes in 0x80 .. 0xFF which are not also
+# --- part of JIS (eg: the half-width Katakana)
+# --- David B. Schnepper 
+
+#
+#	Name:             Shift-JIS to Unicode
+#	Unicode version:  1.1
+#	Table version:    0.9
+#	Table format:     Format A
+#	Date:             8 March 1994
+#	Authors:          Glenn Adams <glenn@metis.com>
+#                     John H. Jenkins <John_Jenkins@taligent.com>
+#
+#
+#	This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
+#	No claims are made as to fitness for any particular purpose.  No
+#	warranties of any kind are expressed or implied.  The recipient
+#	agrees to determine applicability of information provided.  If this
+#	file has been provided on magnetic media by Unicode, Inc., the sole
+#	remedy for any claim will be exchange of defective media within 90
+#	days of receipt.
+#
+#	Recipient is granted the right to make copies in any form for
+#	internal distribution and to freely use the information supplied
+#	in the creation of products supporting Unicode.  Unicode, Inc.
+#	specifically excludes the right to re-distribute this file directly
+#	to third parties or other organizations whether for profit or not.
+#
+#	General notes:
+#
+#	This table contains the data the Unicode Consortium has on how
+#       Shift-JIS (a combination of JIS 0201 and JIS 0208) maps into Unicode.
+#
+#	Format:  Three tab-separated columns
+#		 Column #1 is the shift-JIS code (in hex)
+#		 Column #2 is the Unicode (in hex as 0xXXXX)
+#		 Column #3 the Unicode name (follows a comment sign, '#')
+#					The official names for Unicode characters U+4E00
+#					to U+9FA5, inclusive, is "CJK UNIFIED IDEOGRAPH-XXXX",
+#					where XXXX is the code point.  Including all these
+#					names in this file increases its size substantially
+#					and needlessly.  The token "<CJK>" is used for the
+#					name of these characters.  If necessary, it can be
+#					expanded algorithmically by a parser or editor.
+#
+#	The entries are ordered by their Shift-JIS codes as follows:
+#		Single-byte characters precede double-byte characters
+#		The single-byte and double-byte blocks are in ascending
+#		hexadecimal order
+#	There is an alternative order some people might be preferred,
+#		where all the entries are in order of the top (or only) byte.
+#		This alternate order can be generated from the one given here
+#		by a simple sort.  
+#
+#   The kanji mappings are a normative part of ISO/IEC 10646.  The
+#       non-kanji mappings are provisional, pending definition of
+#       official mappings by Japanese standards bodies
+#
+#	Any comments or problems, contact <John_Jenkins@taligent.com>
+#
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0a	0x000a	#LINE FEED
+0x0b	0x000b	#VERTICAL TABULATION
+0x0c	0x000c	#FORM FEED
+0x0d	0x000d	#CARRIAGE RETURN
+0x0e	0x000e	#SHIFT OUT
+0x0f	0x000f	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1a	0x001a	#SUBSTITUTE
+0x1b	0x001b	#ESCAPE
+0x1c	0x001c	#FILE SEPARATOR
+0x1d	0x001d	#GROUP SEPARATOR
+0x1e	0x001e	#RECORD SEPARATOR
+0x1f	0x001f	#UNIT SEPARATOR
+#
+# --- Start of actual lines from SHIFTJIS.TXT
+#
+0x20	0x0020	# SPACE
+0x21	0x0021	# EXCLAMATION MARK
+0x22	0x0022	# QUOTATION MARK
+0x23	0x0023	# NUMBER SIGN
+0x24	0x0024	# DOLLAR SIGN
+0x25	0x0025	# PERCENT SIGN
+0x26	0x0026	# AMPERSAND
+0x27	0x0027	# APOSTROPHE
+0x28	0x0028	# LEFT PARENTHESIS
+0x29	0x0029	# RIGHT PARENTHESIS
+0x2A	0x002A	# ASTERISK
+0x2B	0x002B	# PLUS SIGN
+0x2C	0x002C	# COMMA
+0x2D	0x002D	# HYPHEN-MINUS
+0x2E	0x002E	# FULL STOP
+0x2F	0x002F	# SOLIDUS
+0x30	0x0030	# DIGIT ZERO
+0x31	0x0031	# DIGIT ONE
+0x32	0x0032	# DIGIT TWO
+0x33	0x0033	# DIGIT THREE
+0x34	0x0034	# DIGIT FOUR
+0x35	0x0035	# DIGIT FIVE
+0x36	0x0036	# DIGIT SIX
+0x37	0x0037	# DIGIT SEVEN
+0x38	0x0038	# DIGIT EIGHT
+0x39	0x0039	# DIGIT NINE
+0x3A	0x003A	# COLON
+0x3B	0x003B	# SEMICOLON
+0x3C	0x003C	# LESS-THAN SIGN
+0x3D	0x003D	# EQUALS SIGN
+0x3E	0x003E	# GREATER-THAN SIGN
+0x3F	0x003F	# QUESTION MARK
+0x40	0x0040	# COMMERCIAL AT
+0x41	0x0041	# LATIN CAPITAL LETTER A
+0x42	0x0042	# LATIN CAPITAL LETTER B
+0x43	0x0043	# LATIN CAPITAL LETTER C
+0x44	0x0044	# LATIN CAPITAL LETTER D
+0x45	0x0045	# LATIN CAPITAL LETTER E
+0x46	0x0046	# LATIN CAPITAL LETTER F
+0x47	0x0047	# LATIN CAPITAL LETTER G
+0x48	0x0048	# LATIN CAPITAL LETTER H
+0x49	0x0049	# LATIN CAPITAL LETTER I
+0x4A	0x004A	# LATIN CAPITAL LETTER J
+0x4B	0x004B	# LATIN CAPITAL LETTER K
+0x4C	0x004C	# LATIN CAPITAL LETTER L
+0x4D	0x004D	# LATIN CAPITAL LETTER M
+0x4E	0x004E	# LATIN CAPITAL LETTER N
+0x4F	0x004F	# LATIN CAPITAL LETTER O
+0x50	0x0050	# LATIN CAPITAL LETTER P
+0x51	0x0051	# LATIN CAPITAL LETTER Q
+0x52	0x0052	# LATIN CAPITAL LETTER R
+0x53	0x0053	# LATIN CAPITAL LETTER S
+0x54	0x0054	# LATIN CAPITAL LETTER T
+0x55	0x0055	# LATIN CAPITAL LETTER U
+0x56	0x0056	# LATIN CAPITAL LETTER V
+0x57	0x0057	# LATIN CAPITAL LETTER W
+0x58	0x0058	# LATIN CAPITAL LETTER X
+0x59	0x0059	# LATIN CAPITAL LETTER Y
+0x5A	0x005A	# LATIN CAPITAL LETTER Z
+0x5B	0x005B	# LEFT SQUARE BRACKET
+0x5C	0x00A5	# YEN SIGN
+0x5D	0x005D	# RIGHT SQUARE BRACKET
+0x5E	0x005E	# CIRCUMFLEX ACCENT
+0x5F	0x005F	# LOW LINE
+0x60	0x0060	# GRAVE ACCENT
+0x61	0x0061	# LATIN SMALL LETTER A
+0x62	0x0062	# LATIN SMALL LETTER B
+0x63	0x0063	# LATIN SMALL LETTER C
+0x64	0x0064	# LATIN SMALL LETTER D
+0x65	0x0065	# LATIN SMALL LETTER E
+0x66	0x0066	# LATIN SMALL LETTER F
+0x67	0x0067	# LATIN SMALL LETTER G
+0x68	0x0068	# LATIN SMALL LETTER H
+0x69	0x0069	# LATIN SMALL LETTER I
+0x6A	0x006A	# LATIN SMALL LETTER J
+0x6B	0x006B	# LATIN SMALL LETTER K
+0x6C	0x006C	# LATIN SMALL LETTER L
+0x6D	0x006D	# LATIN SMALL LETTER M
+0x6E	0x006E	# LATIN SMALL LETTER N
+0x6F	0x006F	# LATIN SMALL LETTER O
+0x70	0x0070	# LATIN SMALL LETTER P
+0x71	0x0071	# LATIN SMALL LETTER Q
+0x72	0x0072	# LATIN SMALL LETTER R
+0x73	0x0073	# LATIN SMALL LETTER S
+0x74	0x0074	# LATIN SMALL LETTER T
+0x75	0x0075	# LATIN SMALL LETTER U
+0x76	0x0076	# LATIN SMALL LETTER V
+0x77	0x0077	# LATIN SMALL LETTER W
+0x78	0x0078	# LATIN SMALL LETTER X
+0x79	0x0079	# LATIN SMALL LETTER Y
+0x7A	0x007A	# LATIN SMALL LETTER Z
+0x7B	0x007B	# LEFT CURLY BRACKET
+0x7C	0x007C	# VERTICAL LINE
+0x7D	0x007D	# RIGHT CURLY BRACKET
+0x7E	0x203E	# OVERLINE
+#
+# --- Kanji mappings from SHIFTJIS.TXT removed
+#
+0xA1	0xFF61	# HALFWIDTH IDEOGRAPHIC FULL STOP
+0xA2	0xFF62	# HALFWIDTH LEFT CORNER BRACKET
+0xA3	0xFF63	# HALFWIDTH RIGHT CORNER BRACKET
+0xA4	0xFF64	# HALFWIDTH IDEOGRAPHIC COMMA
+0xA5	0xFF65	# HALFWIDTH KATAKANA MIDDLE DOT
+0xA6	0xFF66	# HALFWIDTH KATAKANA LETTER WO
+0xA7	0xFF67	# HALFWIDTH KATAKANA LETTER SMALL A
+0xA8	0xFF68	# HALFWIDTH KATAKANA LETTER SMALL I
+0xA9	0xFF69	# HALFWIDTH KATAKANA LETTER SMALL U
+0xAA	0xFF6A	# HALFWIDTH KATAKANA LETTER SMALL E
+0xAB	0xFF6B	# HALFWIDTH KATAKANA LETTER SMALL O
+0xAC	0xFF6C	# HALFWIDTH KATAKANA LETTER SMALL YA
+0xAD	0xFF6D	# HALFWIDTH KATAKANA LETTER SMALL YU
+0xAE	0xFF6E	# HALFWIDTH KATAKANA LETTER SMALL YO
+0xAF	0xFF6F	# HALFWIDTH KATAKANA LETTER SMALL TU
+0xB0	0xFF70	# HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK
+0xB1	0xFF71	# HALFWIDTH KATAKANA LETTER A
+0xB2	0xFF72	# HALFWIDTH KATAKANA LETTER I
+0xB3	0xFF73	# HALFWIDTH KATAKANA LETTER U
+0xB4	0xFF74	# HALFWIDTH KATAKANA LETTER E
+0xB5	0xFF75	# HALFWIDTH KATAKANA LETTER O
+0xB6	0xFF76	# HALFWIDTH KATAKANA LETTER KA
+0xB7	0xFF77	# HALFWIDTH KATAKANA LETTER KI
+0xB8	0xFF78	# HALFWIDTH KATAKANA LETTER KU
+0xB9	0xFF79	# HALFWIDTH KATAKANA LETTER KE
+0xBA	0xFF7A	# HALFWIDTH KATAKANA LETTER KO
+0xBB	0xFF7B	# HALFWIDTH KATAKANA LETTER SA
+0xBC	0xFF7C	# HALFWIDTH KATAKANA LETTER SI
+0xBD	0xFF7D	# HALFWIDTH KATAKANA LETTER SU
+0xBE	0xFF7E	# HALFWIDTH KATAKANA LETTER SE
+0xBF	0xFF7F	# HALFWIDTH KATAKANA LETTER SO
+0xC0	0xFF80	# HALFWIDTH KATAKANA LETTER TA
+0xC1	0xFF81	# HALFWIDTH KATAKANA LETTER TI
+0xC2	0xFF82	# HALFWIDTH KATAKANA LETTER TU
+0xC3	0xFF83	# HALFWIDTH KATAKANA LETTER TE
+0xC4	0xFF84	# HALFWIDTH KATAKANA LETTER TO
+0xC5	0xFF85	# HALFWIDTH KATAKANA LETTER NA
+0xC6	0xFF86	# HALFWIDTH KATAKANA LETTER NI
+0xC7	0xFF87	# HALFWIDTH KATAKANA LETTER NU
+0xC8	0xFF88	# HALFWIDTH KATAKANA LETTER NE
+0xC9	0xFF89	# HALFWIDTH KATAKANA LETTER NO
+0xCA	0xFF8A	# HALFWIDTH KATAKANA LETTER HA
+0xCB	0xFF8B	# HALFWIDTH KATAKANA LETTER HI
+0xCC	0xFF8C	# HALFWIDTH KATAKANA LETTER HU
+0xCD	0xFF8D	# HALFWIDTH KATAKANA LETTER HE
+0xCE	0xFF8E	# HALFWIDTH KATAKANA LETTER HO
+0xCF	0xFF8F	# HALFWIDTH KATAKANA LETTER MA
+0xD0	0xFF90	# HALFWIDTH KATAKANA LETTER MI
+0xD1	0xFF91	# HALFWIDTH KATAKANA LETTER MU
+0xD2	0xFF92	# HALFWIDTH KATAKANA LETTER ME
+0xD3	0xFF93	# HALFWIDTH KATAKANA LETTER MO
+0xD4	0xFF94	# HALFWIDTH KATAKANA LETTER YA
+0xD5	0xFF95	# HALFWIDTH KATAKANA LETTER YU
+0xD6	0xFF96	# HALFWIDTH KATAKANA LETTER YO
+0xD7	0xFF97	# HALFWIDTH KATAKANA LETTER RA
+0xD8	0xFF98	# HALFWIDTH KATAKANA LETTER RI
+0xD9	0xFF99	# HALFWIDTH KATAKANA LETTER RU
+0xDA	0xFF9A	# HALFWIDTH KATAKANA LETTER RE
+0xDB	0xFF9B	# HALFWIDTH KATAKANA LETTER RO
+0xDC	0xFF9C	# HALFWIDTH KATAKANA LETTER WA
+0xDD	0xFF9D	# HALFWIDTH KATAKANA LETTER N
+0xDE	0xFF9E	# HALFWIDTH KATAKANA VOICED SOUND MARK
+0xDF	0xFF9F	# HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK
+#
+# --- Kanji mappings from SHIFTJIS.TXT removed
+#
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+
+
+#ifndef UNICODE_REPLACEMENT_CHARACTER
+#define UNICODE_REPLACEMENT_CHARACTER 0xFFFD
+#endif
+
+static CONST USHORT FAR_VARIABLE sjis_to_unicode_mapping_array[] = {
+												/* U+XX00 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 0 */
+												/* U+XX01 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 1 */
+												/* U+XX02 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 2 */
+												/* U+XX03 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 3 */
+												/* U+XX04 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 4 */
+												/* U+XX05 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 5 */
+												/* U+XX06 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 6 */
+												/* U+XX07 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 7 */
+												/* U+XX08 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 8 */
+												/* U+XX09 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 9 */
+												/* U+XX0A */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 10 */
+												/* U+XX0B */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 11 */
+												/* U+XX0C */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 12 */
+												/* U+XX0D */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 13 */
+												/* U+XX0E */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 14 */
+												/* U+XX0F */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 15 */
+												/* U+XX10 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 16 */
+												/* U+XX11 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 17 */
+												/* U+XX12 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 18 */
+												/* U+XX13 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 19 */
+												/* U+XX14 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 20 */
+												/* U+XX15 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 21 */
+												/* U+XX16 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 22 */
+												/* U+XX17 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 23 */
+												/* U+XX18 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 24 */
+												/* U+XX19 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 25 */
+												/* U+XX1A */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 26 */
+												/* U+XX1B */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 27 */
+												/* U+XX1C */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 28 */
+												/* U+XX1D */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 29 */
+												/* U+XX1E */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 30 */
+												/* U+XX1F */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 31 */
+												/* U+XX20 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 32 */
+												/* U+XX21 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 33 */
+												/* U+XX22 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 34 */
+												/* U+XX23 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 35 */
+												/* U+XX24 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 36 */
+												/* U+XX25 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 37 */
+												/* U+XX26 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 38 */
+												/* U+XX27 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 39 */
+												/* U+XX28 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 40 */
+												/* U+XX29 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 41 */
+												/* U+XX2A */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 42 */
+												/* U+XX2B */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 43 */
+												/* U+XX2C */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 44 */
+												/* U+XX2D */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 45 */
+												/* U+XX2E */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 46 */
+												/* U+XX2F */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 47 */
+												/* U+XX30 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 48 */
+												/* U+XX31 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 49 */
+												/* U+XX32 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 50 */
+												/* U+XX33 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 51 */
+												/* U+XX34 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 52 */
+												/* U+XX35 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 53 */
+												/* U+XX36 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 54 */
+												/* U+XX37 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 55 */
+												/* U+XX38 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 56 */
+												/* U+XX39 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 57 */
+												/* U+XX3A */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 58 */
+												/* U+XX3B */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 59 */
+												/* U+XX3C */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 60 */
+												/* U+XX3D */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 61 */
+												/* U+XX3E */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 62 */
+												/* U+XX3F */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 63 */
+												/* U+XX40 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 64 */
+												/* U+XX41 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 65 */
+												/* U+XX42 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 66 */
+												/* U+XX43 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 67 */
+												/* U+XX44 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 68 */
+												/* U+XX45 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 69 */
+												/* U+XX46 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 70 */
+												/* U+XX47 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 71 */
+												/* U+XX48 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 72 */
+												/* U+XX49 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 73 */
+												/* U+XX4A */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 74 */
+												/* U+XX4B */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 75 */
+												/* U+XX4C */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 76 */
+												/* U+XX4D */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 77 */
+												/* U+XX4E */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 78 */
+												/* U+XX4F */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 79 */
+												/* U+XX50 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 80 */
+												/* U+XX51 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 81 */
+												/* U+XX52 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 82 */
+												/* U+XX53 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 83 */
+												/* U+XX54 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 84 */
+												/* U+XX55 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 85 */
+												/* U+XX56 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 86 */
+												/* U+XX57 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 87 */
+												/* U+XX58 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 88 */
+												/* U+XX59 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 89 */
+												/* U+XX5A */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 90 */
+												/* U+XX5B */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 91 */
+												/* U+XX5C */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 92 */
+												/* U+XX5D */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 93 */
+												/* U+XX5E */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 94 */
+												/* U+XX5F */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 95 */
+												/* U+XX60 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 96 */
+												/* U+XX61 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 97 */
+												/* U+XX62 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 98 */
+												/* U+XX63 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 99 */
+												/* U+XX64 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 100 */
+												/* U+XX65 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 101 */
+												/* U+XX66 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 102 */
+												/* U+XX67 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 103 */
+												/* U+XX68 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 104 */
+												/* U+XX69 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 105 */
+												/* U+XX6A */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 106 */
+												/* U+XX6B */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 107 */
+												/* U+XX6C */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 108 */
+												/* U+XX6D */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 109 */
+												/* U+XX6E */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 110 */
+												/* U+XX6F */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 111 */
+												/* U+XX70 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 112 */
+												/* U+XX71 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 113 */
+												/* U+XX72 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 114 */
+												/* U+XX73 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 115 */
+												/* U+XX74 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 116 */
+												/* U+XX75 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 117 */
+												/* U+XX76 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 118 */
+												/* U+XX77 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 119 */
+												/* U+XX78 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 120 */
+												/* U+XX79 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 121 */
+												/* U+XX7A */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 122 */
+												/* U+XX7B */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 123 */
+												/* U+XX7C */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 124 */
+												/* U+XX7D */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 125 */
+												/* U+XX7E */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 126 */
+												/* U+XX7F */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 127 */
+												/* U+XX80 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 128 */
+												/* U+XX81 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 129 */
+												/* U+XX82 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 130 */
+												/* U+XX83 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 131 */
+												/* U+XX84 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 132 */
+												/* U+XX85 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 133 */
+												/* U+XX86 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 134 */
+												/* U+XX87 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 135 */
+												/* U+XX88 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 136 */
+												/* U+XX89 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 137 */
+												/* U+XX8A */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 138 */
+												/* U+XX8B */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 139 */
+												/* U+XX8C */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 140 */
+												/* U+XX8D */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 141 */
+												/* U+XX8E */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 142 */
+												/* U+XX8F */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 143 */
+												/* U+XX90 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 144 */
+												/* U+XX91 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 145 */
+												/* U+XX92 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 146 */
+												/* U+XX93 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 147 */
+												/* U+XX94 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 148 */
+												/* U+XX95 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 149 */
+												/* U+XX96 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 150 */
+												/* U+XX97 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 151 */
+												/* U+XX98 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 152 */
+												/* U+XX99 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 153 */
+												/* U+XX9A */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 154 */
+												/* U+XX9B */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 155 */
+												/* U+XX9C */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 156 */
+												/* U+XX9D */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 157 */
+												/* U+XX9E */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 158 */
+												/* U+XX9F */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 159 */
+												/* U+XXA0 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 160 */
+												/* U+XXA1 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 161 */
+												/* U+XXA2 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 162 */
+												/* U+XXA3 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 163 */
+												/* U+XXA4 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 164 */
+												/* U+XXA5 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 165 */
+												/* U+XXA6 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 166 */
+												/* U+XXA7 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 167 */
+												/* U+XXA8 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 168 */
+												/* U+XXA9 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 169 */
+												/* U+XXAA */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 170 */
+												/* U+XXAB */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 171 */
+												/* U+XXAC */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 172 */
+												/* U+XXAD */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 173 */
+												/* U+XXAE */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 174 */
+												/* U+XXAF */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 175 */
+												/* U+XXB0 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 176 */
+												/* U+XXB1 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 177 */
+												/* U+XXB2 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 178 */
+												/* U+XXB3 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 179 */
+												/* U+XXB4 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 180 */
+												/* U+XXB5 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 181 */
+												/* U+XXB6 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 182 */
+												/* U+XXB7 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 183 */
+												/* U+XXB8 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 184 */
+												/* U+XXB9 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 185 */
+												/* U+XXBA */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 186 */
+												/* U+XXBB */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 187 */
+												/* U+XXBC */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 188 */
+												/* U+XXBD */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 189 */
+												/* U+XXBE */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 190 */
+												/* U+XXBF */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 191 */
+												/* U+XXC0 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 192 */
+												/* U+XXC1 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 193 */
+												/* U+XXC2 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 194 */
+												/* U+XXC3 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 195 */
+												/* U+XXC4 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 196 */
+												/* U+XXC5 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 197 */
+												/* U+XXC6 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 198 */
+												/* U+XXC7 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 199 */
+												/* U+XXC8 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 200 */
+												/* U+XXC9 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 201 */
+												/* U+XXCA */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 202 */
+												/* U+XXCB */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 203 */
+												/* U+XXCC */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 204 */
+												/* U+XXCD */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 205 */
+												/* U+XXCE */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 206 */
+												/* U+XXCF */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 207 */
+												/* U+XXD0 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 208 */
+												/* U+XXD1 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 209 */
+												/* U+XXD2 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 210 */
+												/* U+XXD3 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 211 */
+												/* U+XXD4 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 212 */
+												/* U+XXD5 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 213 */
+												/* U+XXD6 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 214 */
+												/* U+XXD7 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 215 */
+												/* U+XXD8 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 216 */
+												/* U+XXD9 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 217 */
+												/* U+XXDA */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 218 */
+												/* U+XXDB */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 219 */
+												/* U+XXDC */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 220 */
+												/* U+XXDD */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 221 */
+												/* U+XXDE */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 222 */
+												/* U+XXDF */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 223 */
+												/* U+XXE0 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 224 */
+												/* U+XXE1 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 225 */
+												/* U+XXE2 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 226 */
+												/* U+XXE3 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 227 */
+												/* U+XXE4 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 228 */
+												/* U+XXE5 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 229 */
+												/* U+XXE6 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 230 */
+												/* U+XXE7 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 231 */
+												/* U+XXE8 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 232 */
+												/* U+XXE9 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 233 */
+												/* U+XXEA */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 234 */
+												/* U+XXEB */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 235 */
+												/* U+XXEC */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 236 */
+												/* U+XXED */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 237 */
+												/* U+XXEE */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 238 */
+												/* U+XXEF */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 239 */
+												/* U+XXF0 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 240 */
+												/* U+XXF1 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 241 */
+												/* U+XXF2 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 242 */
+												/* U+XXF3 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 243 */
+												/* U+XXF4 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 244 */
+												/* U+XXF5 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 245 */
+												/* U+XXF6 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 246 */
+												/* U+XXF7 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 247 */
+												/* U+XXF8 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 248 */
+												/* U+XXF9 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 249 */
+												/* U+XXFA */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 250 */
+												/* U+XXFB */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 251 */
+												/* U+XXFC */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 252 */
+												/* U+XXFD */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 253 */
+												/* U+XXFE */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 254 */
+												/* U+XXFF */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 255 */
+	/* U+0000 */ 0x0000 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x0001 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x0002 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x0003 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x0004 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x0005 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x0006 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x0007 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x0008 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x000A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x000B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x000C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x000D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x000E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x000F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x0010 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x0018 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x0019 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x001A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x001B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x001C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x001D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x001E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x001F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x0020 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x0021 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x0022 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x0023 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x0024 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x0025 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x0026 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x0027 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x0028 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x002A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x002B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x002C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x002D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x002E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x002F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x0030 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x0031 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x0032 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x0033 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x0034 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x0035 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x0036 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x0037 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x0038 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x0039 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x003A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x003B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x003C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x003D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x003E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x003F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x0040 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x00A5 /*                                      YEN SIGN */ ,	/* 348 */
+	/* U+005D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x005F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x0060 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x006A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x006B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x006C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x006D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x006E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x006F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x007B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x007C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x203E /*                                      OVERLINE */ ,	/* 382 */
+	/* U+007F */ 0x007F /*                                         ASCII */ ,	/* 383 */
+												/* U+0080 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 384 */
+												/* U+0081 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 385 */
+												/* U+0082 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 386 */
+												/* U+0083 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 387 */
+												/* U+0084 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 388 */
+												/* U+0085 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 389 */
+												/* U+0086 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 390 */
+												/* U+0087 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 391 */
+												/* U+0088 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 392 */
+												/* U+0089 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 393 */
+												/* U+008A */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 394 */
+												/* U+008B */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 395 */
+												/* U+008C */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 396 */
+												/* U+008D */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 397 */
+												/* U+008E */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 398 */
+												/* U+008F */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 399 */
+												/* U+0090 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 400 */
+												/* U+0091 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 401 */
+												/* U+0092 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 402 */
+												/* U+0093 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 403 */
+												/* U+0094 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 404 */
+												/* U+0095 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 405 */
+												/* U+0096 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 406 */
+												/* U+0097 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 407 */
+												/* U+0098 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 408 */
+												/* U+0099 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 409 */
+												/* U+009A */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 410 */
+												/* U+009B */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 411 */
+												/* U+009C */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 412 */
+												/* U+009D */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 413 */
+												/* U+009E */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 414 */
+												/* U+009F */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 415 */
+												/* U+00A0 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 416 */
+	/* U+00A1 */ 0xFF61 /*               HALFWIDTH IDEOGRAPHIC FULL STOP */ ,	/* 417 */
+	/* U+00A2 */ 0xFF62 /*                 HALFWIDTH LEFT CORNER BRACKET */ ,	/* 418 */
+	/* U+00A3 */ 0xFF63 /*                HALFWIDTH RIGHT CORNER BRACKET */ ,	/* 419 */
+	/* U+00A4 */ 0xFF64 /*                   HALFWIDTH IDEOGRAPHIC COMMA */ ,	/* 420 */
+	/* U+00A5 */ 0xFF65 /*                 HALFWIDTH KATAKANA MIDDLE DOT */ ,	/* 421 */
+	/* U+00A6 */ 0xFF66 /*                  HALFWIDTH KATAKANA LETTER WO */ ,	/* 422 */
+	/* U+00A7 */ 0xFF67 /*             HALFWIDTH KATAKANA LETTER SMALL A */ ,	/* 423 */
+	/* U+00A8 */ 0xFF68 /*             HALFWIDTH KATAKANA LETTER SMALL I */ ,	/* 424 */
+	/* U+00A9 */ 0xFF69 /*             HALFWIDTH KATAKANA LETTER SMALL U */ ,	/* 425 */
+	/* U+00AA */ 0xFF6A /*             HALFWIDTH KATAKANA LETTER SMALL E */ ,	/* 426 */
+	/* U+00AB */ 0xFF6B /*             HALFWIDTH KATAKANA LETTER SMALL O */ ,	/* 427 */
+	/* U+00AC */ 0xFF6C /*            HALFWIDTH KATAKANA LETTER SMALL YA */ ,	/* 428 */
+	/* U+00AD */ 0xFF6D /*            HALFWIDTH KATAKANA LETTER SMALL YU */ ,	/* 429 */
+	/* U+00AE */ 0xFF6E /*            HALFWIDTH KATAKANA LETTER SMALL YO */ ,	/* 430 */
+	/* U+00AF */ 0xFF6F /*            HALFWIDTH KATAKANA LETTER SMALL TU */ ,	/* 431 */
+	/* U+00B0 */ 0xFF70 /*  HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK */ ,	/* 432 */
+	/* U+00B1 */ 0xFF71 /*                   HALFWIDTH KATAKANA LETTER A */ ,	/* 433 */
+	/* U+00B2 */ 0xFF72 /*                   HALFWIDTH KATAKANA LETTER I */ ,	/* 434 */
+	/* U+00B3 */ 0xFF73 /*                   HALFWIDTH KATAKANA LETTER U */ ,	/* 435 */
+	/* U+00B4 */ 0xFF74 /*                   HALFWIDTH KATAKANA LETTER E */ ,	/* 436 */
+	/* U+00B5 */ 0xFF75 /*                   HALFWIDTH KATAKANA LETTER O */ ,	/* 437 */
+	/* U+00B6 */ 0xFF76 /*                  HALFWIDTH KATAKANA LETTER KA */ ,	/* 438 */
+	/* U+00B7 */ 0xFF77 /*                  HALFWIDTH KATAKANA LETTER KI */ ,	/* 439 */
+	/* U+00B8 */ 0xFF78 /*                  HALFWIDTH KATAKANA LETTER KU */ ,	/* 440 */
+	/* U+00B9 */ 0xFF79 /*                  HALFWIDTH KATAKANA LETTER KE */ ,	/* 441 */
+	/* U+00BA */ 0xFF7A /*                  HALFWIDTH KATAKANA LETTER KO */ ,	/* 442 */
+	/* U+00BB */ 0xFF7B /*                  HALFWIDTH KATAKANA LETTER SA */ ,	/* 443 */
+	/* U+00BC */ 0xFF7C /*                  HALFWIDTH KATAKANA LETTER SI */ ,	/* 444 */
+	/* U+00BD */ 0xFF7D /*                  HALFWIDTH KATAKANA LETTER SU */ ,	/* 445 */
+	/* U+00BE */ 0xFF7E /*                  HALFWIDTH KATAKANA LETTER SE */ ,	/* 446 */
+	/* U+00BF */ 0xFF7F /*                  HALFWIDTH KATAKANA LETTER SO */ ,	/* 447 */
+	/* U+00C0 */ 0xFF80 /*                  HALFWIDTH KATAKANA LETTER TA */ ,	/* 448 */
+	/* U+00C1 */ 0xFF81 /*                  HALFWIDTH KATAKANA LETTER TI */ ,	/* 449 */
+	/* U+00C2 */ 0xFF82 /*                  HALFWIDTH KATAKANA LETTER TU */ ,	/* 450 */
+	/* U+00C3 */ 0xFF83 /*                  HALFWIDTH KATAKANA LETTER TE */ ,	/* 451 */
+	/* U+00C4 */ 0xFF84 /*                  HALFWIDTH KATAKANA LETTER TO */ ,	/* 452 */
+	/* U+00C5 */ 0xFF85 /*                  HALFWIDTH KATAKANA LETTER NA */ ,	/* 453 */
+	/* U+00C6 */ 0xFF86 /*                  HALFWIDTH KATAKANA LETTER NI */ ,	/* 454 */
+	/* U+00C7 */ 0xFF87 /*                  HALFWIDTH KATAKANA LETTER NU */ ,	/* 455 */
+	/* U+00C8 */ 0xFF88 /*                  HALFWIDTH KATAKANA LETTER NE */ ,	/* 456 */
+	/* U+00C9 */ 0xFF89 /*                  HALFWIDTH KATAKANA LETTER NO */ ,	/* 457 */
+	/* U+00CA */ 0xFF8A /*                  HALFWIDTH KATAKANA LETTER HA */ ,	/* 458 */
+	/* U+00CB */ 0xFF8B /*                  HALFWIDTH KATAKANA LETTER HI */ ,	/* 459 */
+	/* U+00CC */ 0xFF8C /*                  HALFWIDTH KATAKANA LETTER HU */ ,	/* 460 */
+	/* U+00CD */ 0xFF8D /*                  HALFWIDTH KATAKANA LETTER HE */ ,	/* 461 */
+	/* U+00CE */ 0xFF8E /*                  HALFWIDTH KATAKANA LETTER HO */ ,	/* 462 */
+	/* U+00CF */ 0xFF8F /*                  HALFWIDTH KATAKANA LETTER MA */ ,	/* 463 */
+	/* U+00D0 */ 0xFF90 /*                  HALFWIDTH KATAKANA LETTER MI */ ,	/* 464 */
+	/* U+00D1 */ 0xFF91 /*                  HALFWIDTH KATAKANA LETTER MU */ ,	/* 465 */
+	/* U+00D2 */ 0xFF92 /*                  HALFWIDTH KATAKANA LETTER ME */ ,	/* 466 */
+	/* U+00D3 */ 0xFF93 /*                  HALFWIDTH KATAKANA LETTER MO */ ,	/* 467 */
+	/* U+00D4 */ 0xFF94 /*                  HALFWIDTH KATAKANA LETTER YA */ ,	/* 468 */
+	/* U+00D5 */ 0xFF95 /*                  HALFWIDTH KATAKANA LETTER YU */ ,	/* 469 */
+	/* U+00D6 */ 0xFF96 /*                  HALFWIDTH KATAKANA LETTER YO */ ,	/* 470 */
+	/* U+00D7 */ 0xFF97 /*                  HALFWIDTH KATAKANA LETTER RA */ ,	/* 471 */
+	/* U+00D8 */ 0xFF98 /*                  HALFWIDTH KATAKANA LETTER RI */ ,	/* 472 */
+	/* U+00D9 */ 0xFF99 /*                  HALFWIDTH KATAKANA LETTER RU */ ,	/* 473 */
+	/* U+00DA */ 0xFF9A /*                  HALFWIDTH KATAKANA LETTER RE */ ,	/* 474 */
+	/* U+00DB */ 0xFF9B /*                  HALFWIDTH KATAKANA LETTER RO */ ,	/* 475 */
+	/* U+00DC */ 0xFF9C /*                  HALFWIDTH KATAKANA LETTER WA */ ,	/* 476 */
+	/* U+00DD */ 0xFF9D /*                   HALFWIDTH KATAKANA LETTER N */ ,	/* 477 */
+	/* U+00DE */ 0xFF9E /*          HALFWIDTH KATAKANA VOICED SOUND MARK */ ,	/* 478 */
+	/* U+00DF */ 0xFF9F /*     HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK */ ,	/* 479 */
+												/* U+00E0 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 480 */
+												/* U+00E1 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 481 */
+												/* U+00E2 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 482 */
+												/* U+00E3 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 483 */
+												/* U+00E4 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 484 */
+												/* U+00E5 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 485 */
+												/* U+00E6 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 486 */
+												/* U+00E7 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 487 */
+												/* U+00E8 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 488 */
+												/* U+00E9 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 489 */
+												/* U+00EA */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 490 */
+												/* U+00EB */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 491 */
+												/* U+00EC */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 492 */
+												/* U+00ED */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 493 */
+												/* U+00EE */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 494 */
+												/* U+00EF */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 495 */
+												/* U+00F0 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 496 */
+												/* U+00F1 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 497 */
+												/* U+00F2 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 498 */
+												/* U+00F3 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 499 */
+												/* U+00F4 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 500 */
+												/* U+00F5 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 501 */
+												/* U+00F6 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 502 */
+												/* U+00F7 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 503 */
+												/* U+00F8 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 504 */
+												/* U+00F9 */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 505 */
+												/* U+00FA */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 506 */
+												/* U+00FB */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 507 */
+												/* U+00FC */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 508 */
+												/* U+00FD */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 509 */
+												/* U+00FE */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 510 */
+												/* U+00FF */ UNICODE_REPLACEMENT_CHARACTER,
+												/* 511 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT sjis_to_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 0,
+/* U+02-- */ 0,
+/* U+03-- */ 0,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 0,
+/* U+21-- */ 0,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 0,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST USHORT FAR_VARIABLE sjis_from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x0000 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x0001 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x0002 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x0003 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x0004 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x0005 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x0006 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x0007 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x0008 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x000A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x000B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x000C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x000D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x000E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x000F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x0010 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x0018 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x0019 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x001A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x001B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x001C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x001D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x001E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x001F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x0020 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x0021 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x0022 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x0023 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x0024 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x0025 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x0026 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x0027 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x0028 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x002A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x002B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x002C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x002D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x002E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x002F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x0030 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x0031 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x0032 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x0033 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x0034 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x0035 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x0036 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x0037 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x0038 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x0039 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x003A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x003B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x003C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x003D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x003E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x003F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x0040 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+										/* U+005C */ CANT_MAP_CHARACTER,
+										/* 348 */
+	/* U+005D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x005F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x0060 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x006A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x006B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x006C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x006D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x006E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x006F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x007B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x007C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+										/* U+007E */ CANT_MAP_CHARACTER,
+										/* 382 */
+	/* U+007F */ 0x007F /*                                         ASCII */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+										/* U+00A0 */ CANT_MAP_CHARACTER,
+										/* 416 */
+										/* U+00A1 */ CANT_MAP_CHARACTER,
+										/* 417 */
+										/* U+00A2 */ CANT_MAP_CHARACTER,
+										/* 418 */
+										/* U+00A3 */ CANT_MAP_CHARACTER,
+										/* 419 */
+										/* U+00A4 */ CANT_MAP_CHARACTER,
+										/* 420 */
+	/* U+00A5 */ 0x005C /*                                      YEN SIGN */ ,	/* 421 */
+										/* U+00A6 */ CANT_MAP_CHARACTER,
+										/* 422 */
+										/* U+00A7 */ CANT_MAP_CHARACTER,
+										/* 423 */
+										/* U+00A8 */ CANT_MAP_CHARACTER,
+										/* 424 */
+										/* U+00A9 */ CANT_MAP_CHARACTER,
+										/* 425 */
+										/* U+00AA */ CANT_MAP_CHARACTER,
+										/* 426 */
+										/* U+00AB */ CANT_MAP_CHARACTER,
+										/* 427 */
+										/* U+00AC */ CANT_MAP_CHARACTER,
+										/* 428 */
+										/* U+00AD */ CANT_MAP_CHARACTER,
+										/* 429 */
+										/* U+00AE */ CANT_MAP_CHARACTER,
+										/* 430 */
+										/* U+00AF */ CANT_MAP_CHARACTER,
+										/* 431 */
+										/* U+00B0 */ CANT_MAP_CHARACTER,
+										/* 432 */
+										/* U+00B1 */ CANT_MAP_CHARACTER,
+										/* 433 */
+										/* U+00B2 */ CANT_MAP_CHARACTER,
+										/* 434 */
+										/* U+00B3 */ CANT_MAP_CHARACTER,
+										/* 435 */
+										/* U+00B4 */ CANT_MAP_CHARACTER,
+										/* 436 */
+										/* U+00B5 */ CANT_MAP_CHARACTER,
+										/* 437 */
+										/* U+00B6 */ CANT_MAP_CHARACTER,
+										/* 438 */
+										/* U+00B7 */ CANT_MAP_CHARACTER,
+										/* 439 */
+										/* U+00B8 */ CANT_MAP_CHARACTER,
+										/* 440 */
+										/* U+00B9 */ CANT_MAP_CHARACTER,
+										/* 441 */
+										/* U+00BA */ CANT_MAP_CHARACTER,
+										/* 442 */
+										/* U+00BB */ CANT_MAP_CHARACTER,
+										/* 443 */
+										/* U+00BC */ CANT_MAP_CHARACTER,
+										/* 444 */
+										/* U+00BD */ CANT_MAP_CHARACTER,
+										/* 445 */
+										/* U+00BE */ CANT_MAP_CHARACTER,
+										/* 446 */
+										/* U+00BF */ CANT_MAP_CHARACTER,
+										/* 447 */
+										/* U+00C0 */ CANT_MAP_CHARACTER,
+										/* 448 */
+										/* U+00C1 */ CANT_MAP_CHARACTER,
+										/* 449 */
+										/* U+00C2 */ CANT_MAP_CHARACTER,
+										/* 450 */
+										/* U+00C3 */ CANT_MAP_CHARACTER,
+										/* 451 */
+										/* U+00C4 */ CANT_MAP_CHARACTER,
+										/* 452 */
+										/* U+00C5 */ CANT_MAP_CHARACTER,
+										/* 453 */
+										/* U+00C6 */ CANT_MAP_CHARACTER,
+										/* 454 */
+										/* U+00C7 */ CANT_MAP_CHARACTER,
+										/* 455 */
+										/* U+00C8 */ CANT_MAP_CHARACTER,
+										/* 456 */
+										/* U+00C9 */ CANT_MAP_CHARACTER,
+										/* 457 */
+										/* U+00CA */ CANT_MAP_CHARACTER,
+										/* 458 */
+										/* U+00CB */ CANT_MAP_CHARACTER,
+										/* 459 */
+										/* U+00CC */ CANT_MAP_CHARACTER,
+										/* 460 */
+										/* U+00CD */ CANT_MAP_CHARACTER,
+										/* 461 */
+										/* U+00CE */ CANT_MAP_CHARACTER,
+										/* 462 */
+										/* U+00CF */ CANT_MAP_CHARACTER,
+										/* 463 */
+										/* U+00D0 */ CANT_MAP_CHARACTER,
+										/* 464 */
+										/* U+00D1 */ CANT_MAP_CHARACTER,
+										/* 465 */
+										/* U+00D2 */ CANT_MAP_CHARACTER,
+										/* 466 */
+										/* U+00D3 */ CANT_MAP_CHARACTER,
+										/* 467 */
+										/* U+00D4 */ CANT_MAP_CHARACTER,
+										/* 468 */
+										/* U+00D5 */ CANT_MAP_CHARACTER,
+										/* 469 */
+										/* U+00D6 */ CANT_MAP_CHARACTER,
+										/* 470 */
+										/* U+00D7 */ CANT_MAP_CHARACTER,
+										/* 471 */
+										/* U+00D8 */ CANT_MAP_CHARACTER,
+										/* 472 */
+										/* U+00D9 */ CANT_MAP_CHARACTER,
+										/* 473 */
+										/* U+00DA */ CANT_MAP_CHARACTER,
+										/* 474 */
+										/* U+00DB */ CANT_MAP_CHARACTER,
+										/* 475 */
+										/* U+00DC */ CANT_MAP_CHARACTER,
+										/* 476 */
+										/* U+00DD */ CANT_MAP_CHARACTER,
+										/* 477 */
+										/* U+00DE */ CANT_MAP_CHARACTER,
+										/* 478 */
+										/* U+00DF */ CANT_MAP_CHARACTER,
+										/* 479 */
+										/* U+00E0 */ CANT_MAP_CHARACTER,
+										/* 480 */
+										/* U+00E1 */ CANT_MAP_CHARACTER,
+										/* 481 */
+										/* U+00E2 */ CANT_MAP_CHARACTER,
+										/* 482 */
+										/* U+00E3 */ CANT_MAP_CHARACTER,
+										/* 483 */
+										/* U+00E4 */ CANT_MAP_CHARACTER,
+										/* 484 */
+										/* U+00E5 */ CANT_MAP_CHARACTER,
+										/* 485 */
+										/* U+00E6 */ CANT_MAP_CHARACTER,
+										/* 486 */
+										/* U+00E7 */ CANT_MAP_CHARACTER,
+										/* 487 */
+										/* U+00E8 */ CANT_MAP_CHARACTER,
+										/* 488 */
+										/* U+00E9 */ CANT_MAP_CHARACTER,
+										/* 489 */
+										/* U+00EA */ CANT_MAP_CHARACTER,
+										/* 490 */
+										/* U+00EB */ CANT_MAP_CHARACTER,
+										/* 491 */
+										/* U+00EC */ CANT_MAP_CHARACTER,
+										/* 492 */
+										/* U+00ED */ CANT_MAP_CHARACTER,
+										/* 493 */
+										/* U+00EE */ CANT_MAP_CHARACTER,
+										/* 494 */
+										/* U+00EF */ CANT_MAP_CHARACTER,
+										/* 495 */
+										/* U+00F0 */ CANT_MAP_CHARACTER,
+										/* 496 */
+										/* U+00F1 */ CANT_MAP_CHARACTER,
+										/* 497 */
+										/* U+00F2 */ CANT_MAP_CHARACTER,
+										/* 498 */
+										/* U+00F3 */ CANT_MAP_CHARACTER,
+										/* 499 */
+										/* U+00F4 */ CANT_MAP_CHARACTER,
+										/* 500 */
+										/* U+00F5 */ CANT_MAP_CHARACTER,
+										/* 501 */
+										/* U+00F6 */ CANT_MAP_CHARACTER,
+										/* 502 */
+										/* U+00F7 */ CANT_MAP_CHARACTER,
+										/* 503 */
+										/* U+00F8 */ CANT_MAP_CHARACTER,
+										/* 504 */
+										/* U+00F9 */ CANT_MAP_CHARACTER,
+										/* 505 */
+										/* U+00FA */ CANT_MAP_CHARACTER,
+										/* 506 */
+										/* U+00FB */ CANT_MAP_CHARACTER,
+										/* 507 */
+										/* U+00FC */ CANT_MAP_CHARACTER,
+										/* 508 */
+										/* U+00FD */ CANT_MAP_CHARACTER,
+										/* 509 */
+										/* U+00FE */ CANT_MAP_CHARACTER,
+										/* 510 */
+										/* U+00FF */ CANT_MAP_CHARACTER,
+										/* 511 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 513 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 514 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 515 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 516 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 517 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 518 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 519 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 523 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 524 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 525 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 526 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 527 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 528 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 529 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+2013 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+2014 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+2017 */ CANT_MAP_CHARACTER,
+										/* 535 */
+										/* U+2018 */ CANT_MAP_CHARACTER,
+										/* 536 */
+										/* U+2019 */ CANT_MAP_CHARACTER,
+										/* 537 */
+										/* U+201A */ CANT_MAP_CHARACTER,
+										/* 538 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 539 */
+										/* U+201C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+201D */ CANT_MAP_CHARACTER,
+										/* 541 */
+										/* U+201E */ CANT_MAP_CHARACTER,
+										/* 542 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 543 */
+										/* U+2020 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+2021 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+2022 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+2026 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 559 */
+										/* U+2030 */ CANT_MAP_CHARACTER,
+										/* 560 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 561 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 568 */
+										/* U+2039 */ CANT_MAP_CHARACTER,
+										/* 569 */
+										/* U+203A */ CANT_MAP_CHARACTER,
+										/* 570 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 572 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 573 */
+	/* U+203E */ 0x007E /*                                      OVERLINE */ ,	/* 574 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 576 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 577 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 578 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 579 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 580 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 582 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 583 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 584 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 591 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 592 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 593 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 594 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 595 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 596 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 597 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 599 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 600 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 601 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 602 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 603 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 605 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 606 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 607 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 608 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 609 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 632 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+207F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 657 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 658 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+20A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+20AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+FF00 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+FF01 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+FF02 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+FF03 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+FF04 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+FF05 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+FF06 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+FF07 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+FF08 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+FF09 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+FF0A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+FF0B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+FF0C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+FF0D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+FF0E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+FF0F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+FF10 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+FF11 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+FF12 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+FF13 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+FF14 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+FF15 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+FF16 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+FF17 */ CANT_MAP_CHARACTER,
+										/* 791 */
+										/* U+FF18 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+FF19 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+FF1A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+FF1B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+FF1C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+FF1D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+FF1E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+FF1F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+FF20 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+FF21 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+FF22 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+FF23 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+FF24 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+FF25 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+FF26 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+FF27 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+FF28 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+FF29 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+FF2A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+FF2B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+FF2C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+FF2D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+FF2E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+FF2F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+FF30 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+FF31 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+FF32 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+FF33 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+FF34 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+FF35 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+FF36 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+FF37 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+FF38 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+FF39 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+FF3A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+FF3B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+FF3C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+FF3D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+FF3E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+FF3F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+FF40 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+FF41 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+FF42 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+FF43 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+FF44 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+FF45 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+FF46 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+FF47 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+FF48 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+FF49 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+FF4A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+FF4B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+FF4C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+FF4D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+FF4E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+FF4F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+FF50 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+FF51 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+FF52 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+FF53 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+FF54 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+FF55 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+FF56 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+FF57 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+FF58 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+FF59 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+FF5A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+FF5B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+FF5C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+FF5D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+FF5E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+FF5F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+FF60 */ CANT_MAP_CHARACTER,
+										/* 864 */
+	/* U+FF61 */ 0x00A1 /*               HALFWIDTH IDEOGRAPHIC FULL STOP */ ,	/* 865 */
+	/* U+FF62 */ 0x00A2 /*                 HALFWIDTH LEFT CORNER BRACKET */ ,	/* 866 */
+	/* U+FF63 */ 0x00A3 /*                HALFWIDTH RIGHT CORNER BRACKET */ ,	/* 867 */
+	/* U+FF64 */ 0x00A4 /*                   HALFWIDTH IDEOGRAPHIC COMMA */ ,	/* 868 */
+	/* U+FF65 */ 0x00A5 /*                 HALFWIDTH KATAKANA MIDDLE DOT */ ,	/* 869 */
+	/* U+FF66 */ 0x00A6 /*                  HALFWIDTH KATAKANA LETTER WO */ ,	/* 870 */
+	/* U+FF67 */ 0x00A7 /*             HALFWIDTH KATAKANA LETTER SMALL A */ ,	/* 871 */
+	/* U+FF68 */ 0x00A8 /*             HALFWIDTH KATAKANA LETTER SMALL I */ ,	/* 872 */
+	/* U+FF69 */ 0x00A9 /*             HALFWIDTH KATAKANA LETTER SMALL U */ ,	/* 873 */
+	/* U+FF6A */ 0x00AA /*             HALFWIDTH KATAKANA LETTER SMALL E */ ,	/* 874 */
+	/* U+FF6B */ 0x00AB /*             HALFWIDTH KATAKANA LETTER SMALL O */ ,	/* 875 */
+	/* U+FF6C */ 0x00AC /*            HALFWIDTH KATAKANA LETTER SMALL YA */ ,	/* 876 */
+	/* U+FF6D */ 0x00AD /*            HALFWIDTH KATAKANA LETTER SMALL YU */ ,	/* 877 */
+	/* U+FF6E */ 0x00AE /*            HALFWIDTH KATAKANA LETTER SMALL YO */ ,	/* 878 */
+	/* U+FF6F */ 0x00AF /*            HALFWIDTH KATAKANA LETTER SMALL TU */ ,	/* 879 */
+	/* U+FF70 */ 0x00B0 /*  HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK */ ,	/* 880 */
+	/* U+FF71 */ 0x00B1 /*                   HALFWIDTH KATAKANA LETTER A */ ,	/* 881 */
+	/* U+FF72 */ 0x00B2 /*                   HALFWIDTH KATAKANA LETTER I */ ,	/* 882 */
+	/* U+FF73 */ 0x00B3 /*                   HALFWIDTH KATAKANA LETTER U */ ,	/* 883 */
+	/* U+FF74 */ 0x00B4 /*                   HALFWIDTH KATAKANA LETTER E */ ,	/* 884 */
+	/* U+FF75 */ 0x00B5 /*                   HALFWIDTH KATAKANA LETTER O */ ,	/* 885 */
+	/* U+FF76 */ 0x00B6 /*                  HALFWIDTH KATAKANA LETTER KA */ ,	/* 886 */
+	/* U+FF77 */ 0x00B7 /*                  HALFWIDTH KATAKANA LETTER KI */ ,	/* 887 */
+	/* U+FF78 */ 0x00B8 /*                  HALFWIDTH KATAKANA LETTER KU */ ,	/* 888 */
+	/* U+FF79 */ 0x00B9 /*                  HALFWIDTH KATAKANA LETTER KE */ ,	/* 889 */
+	/* U+FF7A */ 0x00BA /*                  HALFWIDTH KATAKANA LETTER KO */ ,	/* 890 */
+	/* U+FF7B */ 0x00BB /*                  HALFWIDTH KATAKANA LETTER SA */ ,	/* 891 */
+	/* U+FF7C */ 0x00BC /*                  HALFWIDTH KATAKANA LETTER SI */ ,	/* 892 */
+	/* U+FF7D */ 0x00BD /*                  HALFWIDTH KATAKANA LETTER SU */ ,	/* 893 */
+	/* U+FF7E */ 0x00BE /*                  HALFWIDTH KATAKANA LETTER SE */ ,	/* 894 */
+	/* U+FF7F */ 0x00BF /*                  HALFWIDTH KATAKANA LETTER SO */ ,	/* 895 */
+	/* U+FF80 */ 0x00C0 /*                  HALFWIDTH KATAKANA LETTER TA */ ,	/* 896 */
+	/* U+FF81 */ 0x00C1 /*                  HALFWIDTH KATAKANA LETTER TI */ ,	/* 897 */
+	/* U+FF82 */ 0x00C2 /*                  HALFWIDTH KATAKANA LETTER TU */ ,	/* 898 */
+	/* U+FF83 */ 0x00C3 /*                  HALFWIDTH KATAKANA LETTER TE */ ,	/* 899 */
+	/* U+FF84 */ 0x00C4 /*                  HALFWIDTH KATAKANA LETTER TO */ ,	/* 900 */
+	/* U+FF85 */ 0x00C5 /*                  HALFWIDTH KATAKANA LETTER NA */ ,	/* 901 */
+	/* U+FF86 */ 0x00C6 /*                  HALFWIDTH KATAKANA LETTER NI */ ,	/* 902 */
+	/* U+FF87 */ 0x00C7 /*                  HALFWIDTH KATAKANA LETTER NU */ ,	/* 903 */
+	/* U+FF88 */ 0x00C8 /*                  HALFWIDTH KATAKANA LETTER NE */ ,	/* 904 */
+	/* U+FF89 */ 0x00C9 /*                  HALFWIDTH KATAKANA LETTER NO */ ,	/* 905 */
+	/* U+FF8A */ 0x00CA /*                  HALFWIDTH KATAKANA LETTER HA */ ,	/* 906 */
+	/* U+FF8B */ 0x00CB /*                  HALFWIDTH KATAKANA LETTER HI */ ,	/* 907 */
+	/* U+FF8C */ 0x00CC /*                  HALFWIDTH KATAKANA LETTER HU */ ,	/* 908 */
+	/* U+FF8D */ 0x00CD /*                  HALFWIDTH KATAKANA LETTER HE */ ,	/* 909 */
+	/* U+FF8E */ 0x00CE /*                  HALFWIDTH KATAKANA LETTER HO */ ,	/* 910 */
+	/* U+FF8F */ 0x00CF /*                  HALFWIDTH KATAKANA LETTER MA */ ,	/* 911 */
+	/* U+FF90 */ 0x00D0 /*                  HALFWIDTH KATAKANA LETTER MI */ ,	/* 912 */
+	/* U+FF91 */ 0x00D1 /*                  HALFWIDTH KATAKANA LETTER MU */ ,	/* 913 */
+	/* U+FF92 */ 0x00D2 /*                  HALFWIDTH KATAKANA LETTER ME */ ,	/* 914 */
+	/* U+FF93 */ 0x00D3 /*                  HALFWIDTH KATAKANA LETTER MO */ ,	/* 915 */
+	/* U+FF94 */ 0x00D4 /*                  HALFWIDTH KATAKANA LETTER YA */ ,	/* 916 */
+	/* U+FF95 */ 0x00D5 /*                  HALFWIDTH KATAKANA LETTER YU */ ,	/* 917 */
+	/* U+FF96 */ 0x00D6 /*                  HALFWIDTH KATAKANA LETTER YO */ ,	/* 918 */
+	/* U+FF97 */ 0x00D7 /*                  HALFWIDTH KATAKANA LETTER RA */ ,	/* 919 */
+	/* U+FF98 */ 0x00D8 /*                  HALFWIDTH KATAKANA LETTER RI */ ,	/* 920 */
+	/* U+FF99 */ 0x00D9 /*                  HALFWIDTH KATAKANA LETTER RU */ ,	/* 921 */
+	/* U+FF9A */ 0x00DA /*                  HALFWIDTH KATAKANA LETTER RE */ ,	/* 922 */
+	/* U+FF9B */ 0x00DB /*                  HALFWIDTH KATAKANA LETTER RO */ ,	/* 923 */
+	/* U+FF9C */ 0x00DC /*                  HALFWIDTH KATAKANA LETTER WA */ ,	/* 924 */
+	/* U+FF9D */ 0x00DD /*                   HALFWIDTH KATAKANA LETTER N */ ,	/* 925 */
+	/* U+FF9E */ 0x00DE /*          HALFWIDTH KATAKANA VOICED SOUND MARK */ ,	/* 926 */
+	/* U+FF9F */ 0x00DF /*     HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK */ ,	/* 927 */
+										/* U+FFA0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+FFA1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+FFA2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+										/* U+FFA3 */ CANT_MAP_CHARACTER,
+										/* 931 */
+										/* U+FFA4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+FFA5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+										/* U+FFA6 */ CANT_MAP_CHARACTER,
+										/* 934 */
+										/* U+FFA7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+FFA8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+										/* U+FFA9 */ CANT_MAP_CHARACTER,
+										/* 937 */
+										/* U+FFAA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+FFAB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+FFAC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+FFAD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+FFAE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+FFAF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+FFB0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+										/* U+FFB1 */ CANT_MAP_CHARACTER,
+										/* 945 */
+										/* U+FFB2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+FFB3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+										/* U+FFB4 */ CANT_MAP_CHARACTER,
+										/* 948 */
+										/* U+FFB5 */ CANT_MAP_CHARACTER,
+										/* 949 */
+										/* U+FFB6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+FFB7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+FFB8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+FFB9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+FFBA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+FFBB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+FFBC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+FFBD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+FFBE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+FFBF */ CANT_MAP_CHARACTER,
+										/* 959 */
+										/* U+FFC0 */ CANT_MAP_CHARACTER,
+										/* 960 */
+										/* U+FFC1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+FFC2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+										/* U+FFC3 */ CANT_MAP_CHARACTER,
+										/* 963 */
+										/* U+FFC4 */ CANT_MAP_CHARACTER,
+										/* 964 */
+										/* U+FFC5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+										/* U+FFC6 */ CANT_MAP_CHARACTER,
+										/* 966 */
+										/* U+FFC7 */ CANT_MAP_CHARACTER,
+										/* 967 */
+										/* U+FFC8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+FFC9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+FFCA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+FFCB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+FFCC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+FFCD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+FFCE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+FFCF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+FFD0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+FFD1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+FFD2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+FFD3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+FFD4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+FFD5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+FFD6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+FFD7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+FFD8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+FFD9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+FFDA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+FFDB */ CANT_MAP_CHARACTER,
+										/* 987 */
+										/* U+FFDC */ CANT_MAP_CHARACTER,
+										/* 988 */
+										/* U+FFDD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+FFDE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+FFDF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+FFE0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+FFE1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+FFE2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+FFE3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+FFE4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+FFE5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+FFE6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+FFE7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+FFE8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+FFE9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+FFEA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+FFEB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+FFEC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+FFED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+FFEE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+FFEF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+FFF0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+FFF1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+FFF2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+FFF3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+FFF4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+FFF5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+FFF6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+FFF7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+FFF8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+FFF9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+FFFA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+FFFB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+FFFC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+FFFD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+FFFE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+FFFF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT sjis_from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 0,
+/* U+02-- */ 0,
+/* U+03-- */ 0,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 512,
+/* U+21-- */ 0,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 0,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 768,
+};
diff --git a/src/intl/cs_unicode.c b/src/intl/cs_unicode.c
new file mode 100644
index 0000000000..ea12bd96ed
--- /dev/null
+++ b/src/intl/cs_unicode.c
@@ -0,0 +1,50 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		cs_unicode.c
+ *	DESCRIPTION:	Character set definition for Unicode
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+
+
+extern USHORT CV_wc_copy();
+
+
+
+CHARSET_ENTRY(CS_unicode_101)
+{
+	static CONST WCHAR space = 0x0020;
+
+	csptr->charset_version = 40;
+	csptr->charset_id = CS_UNICODE101;
+	csptr->charset_name = (ASCII *) "UNICODE";
+	csptr->charset_flags = 0;
+	csptr->charset_min_bytes_per_char = 2;
+	csptr->charset_max_bytes_per_char = 2;
+	csptr->charset_space_length = sizeof(space);
+	csptr->charset_space_character = (BYTE *) & space;	/* 0x0020 */
+	csptr->charset_well_formed = (FPTR_SHORT) NULL;
+	CV_convert_init(&csptr->charset_to_unicode, CS_UNICODE101, CS_UNICODE101,
+					CV_wc_copy, NULL, NULL);
+	CV_convert_init(&csptr->charset_from_unicode, CS_UNICODE101,
+					CS_UNICODE101, CV_wc_copy, NULL, NULL);
+	CHARSET_RETURN;
+}
diff --git a/src/intl/cs_utffss.c b/src/intl/cs_utffss.c
new file mode 100644
index 0000000000..453ace664a
--- /dev/null
+++ b/src/intl/cs_utffss.c
@@ -0,0 +1,401 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		cs_utffss.c
+ *	DESCRIPTION:	Character set definition for Unicode FSS format
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+ /* Note: all routines have cousins in jrd/intl.c */
+
+
+#include "../intl/ldcommon.h"
+
+
+extern USHORT CS_UTFFSS_unicode_to_fss();
+extern USHORT CS_UTFFSS_fss_to_unicode();
+
+typedef USHORT fss_wchar_t;
+typedef SLONG fss_size_t;
+
+static fss_size_t fss_mbtowc(fss_wchar_t *, char *, fss_size_t);
+
+
+
+CHARSET_ENTRY(CS_unicode_fss)
+{
+	csptr->charset_version = 40;
+	csptr->charset_id = CS_UNICODE_FSS;
+	csptr->charset_name = (ASCII *) "UNICODE_FSS";
+	csptr->charset_flags = 0;
+	csptr->charset_min_bytes_per_char = 1;
+	csptr->charset_max_bytes_per_char = 3;
+	csptr->charset_space_length = 1;
+	csptr->charset_space_character = (BYTE *) " ";	/* 0x20 */
+	csptr->charset_well_formed = (FPTR_SHORT) NULL;
+	CV_convert_init(&csptr->charset_to_unicode, CS_UNICODE101, CS_UNICODE_FSS,
+					CS_UTFFSS_fss_to_unicode, NULL, NULL);
+	CV_convert_init(&csptr->charset_from_unicode, CS_UNICODE_FSS,
+					CS_UNICODE101, CS_UTFFSS_unicode_to_fss, NULL, NULL);
+	CHARSET_RETURN;
+}
+
+
+SSHORT CS_UTFFSS_fss_mbtowc(obj, wc, p, n)
+	 TEXTTYPE *obj;
+	 WCHAR *wc;
+	 NCHAR *p;
+	 USHORT n;
+{
+/**************************************
+ *
+ *	I N T L _ f s s _ m b t o w c
+ *
+ **************************************
+ *
+ * Functional description
+ *	InterBase interface to mbtowc function for Unicode
+ *	text in FSS bytestream format.
+ *
+ * Return:	(common to all mbtowc routines)
+ *	-1	Error in parsing next character
+ *	<n>	Count of characters consumed.
+ *	*wc	Next character from byte steam (if wc <> NULL)
+ *
+ * Note: This routine has a cousin in jrd/intl.c
+ *
+ **************************************/
+	assert(obj);
+	assert(wc);
+	assert(p);
+
+	return fss_mbtowc(wc, p, n);
+}
+
+
+
+/*
+ * The following was provided by Ken Thompson of AT&T Bell Laboratories,
+ * <ken@research.att.com>, on Tue, 8 Sep 92 03:22:07 EDT, to the X/Open
+ * Joint Internationalization Group.  Some minor formatting changes have
+ * been made by Glenn Adams, <glenn@metis.com>.
+ *
+ * -------------------------------------------------------------------------
+ *  File System Safe Universal Character Set Transformation Format (FSS-UTF)
+ * -------------------------------------------------------------------------
+ *
+ * With the approval of ISO/IEC 10646 (Unicode) as an international
+ * standard and the anticipated wide spread use of this universal coded
+ * character set (UCS), it is necessary for historically ASCII based
+ * operating systems to devise ways to cope with representation and
+ * handling of the large number of characters that are possible to be
+ * encoded by this new standard.
+ *
+ * There are several challenges presented by UCS which must be dealt with
+ * by historical operating systems and the C-language programming
+ * environment.  The most significant of these challenges is the encoding
+ * scheme used by UCS. More precisely, the challenge is the marrying of
+ * the UCS standard with existing programming languages and existing
+ * operating systems and utilities.
+ *
+ * The challenges of the programming languages and the UCS standard are
+ * being dealt with by other activities in the industry.  However, we are
+ * still faced with the handling of UCS by historical operating systems
+ * and utilities.  Prominent among the operating system UCS handling
+ * concerns is the representation of the data within the file system.  An
+ * underlying assumption is that there is an absolute requirement to
+ * maintain the existing operating system software investment while at
+ * the same time taking advantage of the use the large number of
+ * characters provided by the UCS.
+ *
+ * UCS provides the capability to encode multi-lingual text within a
+ * single coded character set.  However, UCS and its UTF variant do not
+ * protect null bytes and/or the ASCII slash ("/") making these character
+ * encodings incompatible with existing Unix implementations.  The
+ * following proposal provides a Unix compatible transformation format of
+ * UCS such that Unix systems can support multi-lingual text in a single
+ * encoding.  This transformation format encoding is intended to be used
+ * as a file code.  This transformation format encoding of UCS is
+ * intended as an intermediate step towards full UCS support.  However,
+ * since nearly all Unix implementations face the same obstacles in
+ * supporting UCS, this proposal is intended to provide a common and
+ * compatible encoding during this transition stage.
+ *
+ * Goal/Objective
+ * --------------
+ *
+ * With the assumption that most, if not all, of the issues surrounding
+ * the handling and storing of UCS in historical operating system file
+ * systems are understood, the objective is to define a UCS
+ * transformation format which also meets the requirement of being usable
+ * on a historical operating system file system in a non-disruptive
+ * manner.  The intent is that UCS will be the process code for the
+ * transformation format, which is usable as a file code.
+ *
+ * Criteria for the Transformation Format
+ * --------------------------------------
+ *
+ * Below are the guidelines that were used in defining the UCS
+ * transformation format:
+ *
+ *	1) Compatibility with historical file systems:
+ *
+ *	Historical file systems disallow the null byte and the ASCII
+ *	slash character as a part of the file name.
+ *
+ *	2) Compatibility with existing programs:
+ *
+ *	The existing model for multibyte processing is that ASCII does
+ *	not occur anywhere in a multibyte encoding.  There should be
+ *	no ASCII code values for any part of a transformation format
+ *	representation of a character that was not in the ASCII
+ *	character set in the UCS representation of the character.
+ *
+ *	3) Ease of conversion from/to UCS.
+ *
+ *	4) The first byte should indicate the number of bytes to
+ *	follow in a multibyte sequence.
+ *
+ *	5) The transformation format should not be extravagant in
+ *	terms of number of bytes used for encoding.
+ *
+ *	6) It should be possible to find the start of a character
+ *	efficiently starting from an arbitrary location in a byte
+ *	stream.
+ *
+ * Proposed FSS-UTF
+ * ----------------
+ *
+ * The proposed UCS transformation format encodes UCS values in the range
+ * [0,0x7fffffff] using multibyte characters of lengths 1, 2, 3, 4, 5,
+ * and 6 bytes.  For all encodings of more than one byte, the initial
+ * byte determines the number of bytes used and the high-order bit in
+ * each byte is set.  Every byte that does not start 10xxxxxx is the
+ * start of a UCS character sequence.
+ *
+ * An easy way to remember this transformation format is to note that the
+ * number of high-order 1's in the first byte signifies the number of
+ * bytes in the multibyte character:
+ *
+ * Bits  Hex Min  Hex Max  Byte Sequence in Binary
+ *   7  00000000 0000007f 0vvvvvvv
+ *  11  00000080 000007FF 110vvvvv 10vvvvvv
+ *  16  00000800 0000FFFF 1110vvvv 10vvvvvv 10vvvvvv
+ *  21  00010000 001FFFFF 11110vvv 10vvvvvv 10vvvvvv 10vvvvvv
+ *  26  00200000 03FFFFFF 111110vv 10vvvvvv 10vvvvvv 10vvvvvv 10vvvvvv
+ *  31  04000000 7FFFFFFF 1111110v 10vvvvvv 10vvvvvv 10vvvvvv 10vvvvvv 10vvvvvv
+ *
+ * The UCS value is just the concatenation of the v bits in the multibyte
+ * encoding.  When there are multiple ways to encode a value, for example
+ * UCS 0, only the shortest encoding is legal.
+ *
+ * Below are sample implementations of the C standard wctomb() and
+ * mbtowc() functions which demonstrate the algorithms for converting
+ * from UCS to the transformation format and converting from the
+ * transformation format to UCS. The sample implementations include error
+ * checks, some of which may not be necessary for conformance:
+ *
+ */
+
+typedef struct {
+	int cmask;
+	int cval;
+	int shift;
+	long lmask;
+	long lval;
+} Tab;
+
+static CONST Tab tab[] = {
+	0x80, 0x00, 0 * 6, 0x7F, 0,	/* 1 byte sequence */
+	0xE0, 0xC0, 1 * 6, 0x7FF, 0x80,	/* 2 byte sequence */
+	0xF0, 0xE0, 2 * 6, 0xFFFF, 0x800,	/* 3 byte sequence */
+	0xF8, 0xF0, 3 * 6, 0x1FFFFF, 0x10000,	/* 4 byte sequence */
+	0xFC, 0xF8, 4 * 6, 0x3FFFFFF, 0x200000,	/* 5 byte sequence */
+	0xFE, 0xFC, 5 * 6, 0x7FFFFFFF, 0x4000000,	/* 6 byte sequence */
+	0,							/* end of table    */
+};
+
+
+static fss_size_t fss_mbtowc( fss_wchar_t * p, char *s, fss_size_t n)
+{
+	long l;
+	int c0, c, nc;
+	Tab *t;
+
+	if (s == 0)
+		return 0;
+
+	nc = 0;
+	if (n <= nc)
+		return -1;
+	c0 = *s & 0xff;
+	l = c0;
+	for (t = tab; t->cmask; t++) {
+		nc++;
+		if ((c0 & t->cmask) == t->cval) {
+			l &= t->lmask;
+			if (l < t->lval)
+				return -1;
+			*p = l;
+			return nc;
+		}
+		if (n <= nc)
+			return -1;
+		s++;
+		c = (*s ^ 0x80) & 0xFF;
+		if (c & 0xC0)
+			return -1;
+		l = (l << 6) | c;
+	}
+	return -1;
+}
+
+
+static fss_size_t fss_wctomb(s, wc)
+	 char *s;
+	 fss_wchar_t wc;
+{
+	long l;
+	int c, nc;
+	Tab *t;
+
+	if (s == 0)
+		return 0;
+
+	l = wc;
+	nc = 0;
+	for (t = tab; t->cmask; t++) {
+		nc++;
+		if (l <= t->lmask) {
+			c = t->shift;
+			*s = t->cval | (l >> c);
+			while (c > 0) {
+				c -= 6;
+				s++;
+				*s = 0x80 | ((l >> c) & 0x3F);
+			}
+			return nc;
+		}
+	}
+	return -1;
+}
+
+
+USHORT CS_UTFFSS_fss_to_unicode(obj, dest_ptr, dest_len, src_ptr, src_len,
+								err_code, err_position)
+	 CSCONVERT obj;
+	 UNICODE *dest_ptr;
+	 USHORT dest_len;			/* BYTE count */
+	 NCHAR *src_ptr;
+	 USHORT src_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	UNICODE *start;
+	USHORT src_start = src_len;
+	fss_size_t res;
+
+	assert(src_ptr != NULL || dest_ptr == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CS_UTFFSS_fss_to_unicode ||
+		   ((TEXTTYPE) obj)->texttype_fn_to_wc == CS_UTFFSS_fss_to_unicode);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (dest_ptr == NULL)
+		return (src_len * 2);	/* All single byte narrow characters */
+
+	start = dest_ptr;
+	src_start = src_len;
+	while ((src_len) && (dest_len >= sizeof(*dest_ptr))) {
+		res = fss_mbtowc(dest_ptr, src_ptr, src_len);
+		if (res == -1) {
+			*err_code = CS_BAD_INPUT;
+			break;
+		}
+		assert(res <= src_len);
+		dest_ptr++;
+		dest_len -= sizeof(*dest_ptr);
+		src_ptr += res;
+		src_len -= res;
+	}
+	if (src_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = src_start - src_len;
+	return ((dest_ptr - start) * sizeof(*dest_ptr));
+}
+
+
+USHORT CS_UTFFSS_unicode_to_fss(obj, fss_str, fss_len, unicode_str,
+								unicode_len, err_code, err_position)
+	 CSCONVERT obj;
+	 MBCHAR *fss_str;
+	 USHORT fss_len;
+	 UNICODE *unicode_str;
+	 USHORT unicode_len;		/* BYTE count */
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	MBCHAR *start;
+	USHORT src_start = unicode_len;
+	MBCHAR tmp_buffer[6];
+	MBCHAR *p;
+	fss_size_t res;
+
+	assert(unicode_str != NULL || fss_str == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CS_UTFFSS_unicode_to_fss);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (fss_str == NULL)
+		return ((USHORT) (unicode_len + 1) / 2 * 3);	/* worst case - all han character input */
+
+	start = fss_str;
+	while ((fss_len) && (unicode_len >= sizeof(*unicode_str))) {
+		/* Convert the wide character into temp buffer */
+		res = fss_wctomb(tmp_buffer, *unicode_str);
+		if (res == -1) {
+			*err_code = CS_BAD_INPUT;
+			break;
+		}
+		/* will the mb sequence fit into space left? */
+		if (res > fss_len) {
+			*err_code = CS_TRUNCATION_ERROR;
+			break;
+		}
+		/* copy the converted bytes into the destination */
+		p = tmp_buffer;
+		for (; res; res--, fss_len--)
+			*fss_str++ = *p++;
+		unicode_len -= sizeof(*unicode_str);
+		unicode_str++;
+	}
+	if (unicode_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = src_start - unicode_len;
+	return ((fss_str - start) * sizeof(*fss_str));
+}
diff --git a/src/intl/cs_w1250.h b/src/intl/cs_w1250.h
new file mode 100644
index 0000000000..9bb49f2f59
--- /dev/null
+++ b/src/intl/cs_w1250.h
@@ -0,0 +1,3642 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/WINDOWS/CP1250.TXT 
+
+#
+#    Name:     cp1250 to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/15/98
+#
+#    Contact:       cpxlate@microsoft.com
+#
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp1250 code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp1250 order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0A	0x000A	#LINE FEED
+0x0B	0x000B	#VERTICAL TABULATION
+0x0C	0x000C	#FORM FEED
+0x0D	0x000D	#CARRIAGE RETURN
+0x0E	0x000E	#SHIFT OUT
+0x0F	0x000F	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1A	0x001A	#SUBSTITUTE
+0x1B	0x001B	#ESCAPE
+0x1C	0x001C	#FILE SEPARATOR
+0x1D	0x001D	#GROUP SEPARATOR
+0x1E	0x001E	#RECORD SEPARATOR
+0x1F	0x001F	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2A	0x002A	#ASTERISK
+0x2B	0x002B	#PLUS SIGN
+0x2C	0x002C	#COMMA
+0x2D	0x002D	#HYPHEN-MINUS
+0x2E	0x002E	#FULL STOP
+0x2F	0x002F	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3A	0x003A	#COLON
+0x3B	0x003B	#SEMICOLON
+0x3C	0x003C	#LESS-THAN SIGN
+0x3D	0x003D	#EQUALS SIGN
+0x3E	0x003E	#GREATER-THAN SIGN
+0x3F	0x003F	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4A	0x004A	#LATIN CAPITAL LETTER J
+0x4B	0x004B	#LATIN CAPITAL LETTER K
+0x4C	0x004C	#LATIN CAPITAL LETTER L
+0x4D	0x004D	#LATIN CAPITAL LETTER M
+0x4E	0x004E	#LATIN CAPITAL LETTER N
+0x4F	0x004F	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5A	0x005A	#LATIN CAPITAL LETTER Z
+0x5B	0x005B	#LEFT SQUARE BRACKET
+0x5C	0x005C	#REVERSE SOLIDUS
+0x5D	0x005D	#RIGHT SQUARE BRACKET
+0x5E	0x005E	#CIRCUMFLEX ACCENT
+0x5F	0x005F	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6A	0x006A	#LATIN SMALL LETTER J
+0x6B	0x006B	#LATIN SMALL LETTER K
+0x6C	0x006C	#LATIN SMALL LETTER L
+0x6D	0x006D	#LATIN SMALL LETTER M
+0x6E	0x006E	#LATIN SMALL LETTER N
+0x6F	0x006F	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7A	0x007A	#LATIN SMALL LETTER Z
+0x7B	0x007B	#LEFT CURLY BRACKET
+0x7C	0x007C	#VERTICAL LINE
+0x7D	0x007D	#RIGHT CURLY BRACKET
+0x7E	0x007E	#TILDE
+0x7F	0x007F	#DELETE
+0x80	0x20AC	#EURO SIGN
+0x81	      	#UNDEFINED
+0x82	0x201A	#SINGLE LOW-9 QUOTATION MARK
+0x83	      	#UNDEFINED
+0x84	0x201E	#DOUBLE LOW-9 QUOTATION MARK
+0x85	0x2026	#HORIZONTAL ELLIPSIS
+0x86	0x2020	#DAGGER
+0x87	0x2021	#DOUBLE DAGGER
+0x88	      	#UNDEFINED
+0x89	0x2030	#PER MILLE SIGN
+0x8A	0x0160	#LATIN CAPITAL LETTER S WITH CARON
+0x8B	0x2039	#SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+0x8C	0x015A	#LATIN CAPITAL LETTER S WITH ACUTE
+0x8D	0x0164	#LATIN CAPITAL LETTER T WITH CARON
+0x8E	0x017D	#LATIN CAPITAL LETTER Z WITH CARON
+0x8F	0x0179	#LATIN CAPITAL LETTER Z WITH ACUTE
+0x90	      	#UNDEFINED
+0x91	0x2018	#LEFT SINGLE QUOTATION MARK
+0x92	0x2019	#RIGHT SINGLE QUOTATION MARK
+0x93	0x201C	#LEFT DOUBLE QUOTATION MARK
+0x94	0x201D	#RIGHT DOUBLE QUOTATION MARK
+0x95	0x2022	#BULLET
+0x96	0x2013	#EN DASH
+0x97	0x2014	#EM DASH
+0x98	      	#UNDEFINED
+0x99	0x2122	#TRADE MARK SIGN
+0x9A	0x0161	#LATIN SMALL LETTER S WITH CARON
+0x9B	0x203A	#SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+0x9C	0x015B	#LATIN SMALL LETTER S WITH ACUTE
+0x9D	0x0165	#LATIN SMALL LETTER T WITH CARON
+0x9E	0x017E	#LATIN SMALL LETTER Z WITH CARON
+0x9F	0x017A	#LATIN SMALL LETTER Z WITH ACUTE
+0xA0	0x00A0	#NO-BREAK SPACE
+0xA1	0x02C7	#CARON
+0xA2	0x02D8	#BREVE
+0xA3	0x0141	#LATIN CAPITAL LETTER L WITH STROKE
+0xA4	0x00A4	#CURRENCY SIGN
+0xA5	0x0104	#LATIN CAPITAL LETTER A WITH OGONEK
+0xA6	0x00A6	#BROKEN BAR
+0xA7	0x00A7	#SECTION SIGN
+0xA8	0x00A8	#DIAERESIS
+0xA9	0x00A9	#COPYRIGHT SIGN
+0xAA	0x015E	#LATIN CAPITAL LETTER S WITH CEDILLA
+0xAB	0x00AB	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xAC	0x00AC	#NOT SIGN
+0xAD	0x00AD	#SOFT HYPHEN
+0xAE	0x00AE	#REGISTERED SIGN
+0xAF	0x017B	#LATIN CAPITAL LETTER Z WITH DOT ABOVE
+0xB0	0x00B0	#DEGREE SIGN
+0xB1	0x00B1	#PLUS-MINUS SIGN
+0xB2	0x02DB	#OGONEK
+0xB3	0x0142	#LATIN SMALL LETTER L WITH STROKE
+0xB4	0x00B4	#ACUTE ACCENT
+0xB5	0x00B5	#MICRO SIGN
+0xB6	0x00B6	#PILCROW SIGN
+0xB7	0x00B7	#MIDDLE DOT
+0xB8	0x00B8	#CEDILLA
+0xB9	0x0105	#LATIN SMALL LETTER A WITH OGONEK
+0xBA	0x015F	#LATIN SMALL LETTER S WITH CEDILLA
+0xBB	0x00BB	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xBC	0x013D	#LATIN CAPITAL LETTER L WITH CARON
+0xBD	0x02DD	#DOUBLE ACUTE ACCENT
+0xBE	0x013E	#LATIN SMALL LETTER L WITH CARON
+0xBF	0x017C	#LATIN SMALL LETTER Z WITH DOT ABOVE
+0xC0	0x0154	#LATIN CAPITAL LETTER R WITH ACUTE
+0xC1	0x00C1	#LATIN CAPITAL LETTER A WITH ACUTE
+0xC2	0x00C2	#LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0xC3	0x0102	#LATIN CAPITAL LETTER A WITH BREVE
+0xC4	0x00C4	#LATIN CAPITAL LETTER A WITH DIAERESIS
+0xC5	0x0139	#LATIN CAPITAL LETTER L WITH ACUTE
+0xC6	0x0106	#LATIN CAPITAL LETTER C WITH ACUTE
+0xC7	0x00C7	#LATIN CAPITAL LETTER C WITH CEDILLA
+0xC8	0x010C	#LATIN CAPITAL LETTER C WITH CARON
+0xC9	0x00C9	#LATIN CAPITAL LETTER E WITH ACUTE
+0xCA	0x0118	#LATIN CAPITAL LETTER E WITH OGONEK
+0xCB	0x00CB	#LATIN CAPITAL LETTER E WITH DIAERESIS
+0xCC	0x011A	#LATIN CAPITAL LETTER E WITH CARON
+0xCD	0x00CD	#LATIN CAPITAL LETTER I WITH ACUTE
+0xCE	0x00CE	#LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+0xCF	0x010E	#LATIN CAPITAL LETTER D WITH CARON
+0xD0	0x0110	#LATIN CAPITAL LETTER D WITH STROKE
+0xD1	0x0143	#LATIN CAPITAL LETTER N WITH ACUTE
+0xD2	0x0147	#LATIN CAPITAL LETTER N WITH CARON
+0xD3	0x00D3	#LATIN CAPITAL LETTER O WITH ACUTE
+0xD4	0x00D4	#LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+0xD5	0x0150	#LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+0xD6	0x00D6	#LATIN CAPITAL LETTER O WITH DIAERESIS
+0xD7	0x00D7	#MULTIPLICATION SIGN
+0xD8	0x0158	#LATIN CAPITAL LETTER R WITH CARON
+0xD9	0x016E	#LATIN CAPITAL LETTER U WITH RING ABOVE
+0xDA	0x00DA	#LATIN CAPITAL LETTER U WITH ACUTE
+0xDB	0x0170	#LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0xDC	0x00DC	#LATIN CAPITAL LETTER U WITH DIAERESIS
+0xDD	0x00DD	#LATIN CAPITAL LETTER Y WITH ACUTE
+0xDE	0x0162	#LATIN CAPITAL LETTER T WITH CEDILLA
+0xDF	0x00DF	#LATIN SMALL LETTER SHARP S
+0xE0	0x0155	#LATIN SMALL LETTER R WITH ACUTE
+0xE1	0x00E1	#LATIN SMALL LETTER A WITH ACUTE
+0xE2	0x00E2	#LATIN SMALL LETTER A WITH CIRCUMFLEX
+0xE3	0x0103	#LATIN SMALL LETTER A WITH BREVE
+0xE4	0x00E4	#LATIN SMALL LETTER A WITH DIAERESIS
+0xE5	0x013A	#LATIN SMALL LETTER L WITH ACUTE
+0xE6	0x0107	#LATIN SMALL LETTER C WITH ACUTE
+0xE7	0x00E7	#LATIN SMALL LETTER C WITH CEDILLA
+0xE8	0x010D	#LATIN SMALL LETTER C WITH CARON
+0xE9	0x00E9	#LATIN SMALL LETTER E WITH ACUTE
+0xEA	0x0119	#LATIN SMALL LETTER E WITH OGONEK
+0xEB	0x00EB	#LATIN SMALL LETTER E WITH DIAERESIS
+0xEC	0x011B	#LATIN SMALL LETTER E WITH CARON
+0xED	0x00ED	#LATIN SMALL LETTER I WITH ACUTE
+0xEE	0x00EE	#LATIN SMALL LETTER I WITH CIRCUMFLEX
+0xEF	0x010F	#LATIN SMALL LETTER D WITH CARON
+0xF0	0x0111	#LATIN SMALL LETTER D WITH STROKE
+0xF1	0x0144	#LATIN SMALL LETTER N WITH ACUTE
+0xF2	0x0148	#LATIN SMALL LETTER N WITH CARON
+0xF3	0x00F3	#LATIN SMALL LETTER O WITH ACUTE
+0xF4	0x00F4	#LATIN SMALL LETTER O WITH CIRCUMFLEX
+0xF5	0x0151	#LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0xF6	0x00F6	#LATIN SMALL LETTER O WITH DIAERESIS
+0xF7	0x00F7	#DIVISION SIGN
+0xF8	0x0159	#LATIN SMALL LETTER R WITH CARON
+0xF9	0x016F	#LATIN SMALL LETTER U WITH RING ABOVE
+0xFA	0x00FA	#LATIN SMALL LETTER U WITH ACUTE
+0xFB	0x0171	#LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0xFC	0x00FC	#LATIN SMALL LETTER U WITH DIAERESIS
+0xFD	0x00FD	#LATIN SMALL LETTER Y WITH ACUTE
+0xFE	0x0163	#LATIN SMALL LETTER T WITH CEDILLA
+0xFF	0x02D9	#DOT ABOVE
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x20AC /*                                     EURO SIGN */ ,
+/* 81 */ CANT_MAP_CHARACTER,
+	/* 82 */ 0x201A /*                   SINGLE LOW-9 QUOTATION MARK */ ,
+/* 83 */ CANT_MAP_CHARACTER,
+	/* 84 */ 0x201E /*                   DOUBLE LOW-9 QUOTATION MARK */ ,
+	/* 85 */ 0x2026 /*                           HORIZONTAL ELLIPSIS */ ,
+	/* 86 */ 0x2020 /*                                        DAGGER */ ,
+	/* 87 */ 0x2021 /*                                 DOUBLE DAGGER */ ,
+/* 88 */ CANT_MAP_CHARACTER,
+	/* 89 */ 0x2030 /*                                PER MILLE SIGN */ ,
+	/* 8A */ 0x0160 /*             LATIN CAPITAL LETTER S WITH CARON */ ,
+	/* 8B */ 0x2039 /*     SINGLE LEFT-POINTING ANGLE QUOTATION MARK */ ,
+	/* 8C */ 0x015A /*             LATIN CAPITAL LETTER S WITH ACUTE */ ,
+	/* 8D */ 0x0164 /*             LATIN CAPITAL LETTER T WITH CARON */ ,
+	/* 8E */ 0x017D /*             LATIN CAPITAL LETTER Z WITH CARON */ ,
+	/* 8F */ 0x0179 /*             LATIN CAPITAL LETTER Z WITH ACUTE */ ,
+/* 90 */ CANT_MAP_CHARACTER,
+	/* 91 */ 0x2018 /*                    LEFT SINGLE QUOTATION MARK */ ,
+	/* 92 */ 0x2019 /*                   RIGHT SINGLE QUOTATION MARK */ ,
+	/* 93 */ 0x201C /*                    LEFT DOUBLE QUOTATION MARK */ ,
+	/* 94 */ 0x201D /*                   RIGHT DOUBLE QUOTATION MARK */ ,
+	/* 95 */ 0x2022 /*                                        BULLET */ ,
+	/* 96 */ 0x2013 /*                                       EN DASH */ ,
+	/* 97 */ 0x2014 /*                                       EM DASH */ ,
+/* 98 */ CANT_MAP_CHARACTER,
+	/* 99 */ 0x2122 /*                               TRADE MARK SIGN */ ,
+	/* 9A */ 0x0161 /*               LATIN SMALL LETTER S WITH CARON */ ,
+	/* 9B */ 0x203A /*    SINGLE RIGHT-POINTING ANGLE QUOTATION MARK */ ,
+	/* 9C */ 0x015B /*               LATIN SMALL LETTER S WITH ACUTE */ ,
+	/* 9D */ 0x0165 /*               LATIN SMALL LETTER T WITH CARON */ ,
+	/* 9E */ 0x017E /*               LATIN SMALL LETTER Z WITH CARON */ ,
+	/* 9F */ 0x017A /*               LATIN SMALL LETTER Z WITH ACUTE */ ,
+	/* A0 */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+	/* A1 */ 0x02C7 /*                                         CARON */ ,
+	/* A2 */ 0x02D8 /*                                         BREVE */ ,
+	/* A3 */ 0x0141 /*            LATIN CAPITAL LETTER L WITH STROKE */ ,
+	/* A4 */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* A5 */ 0x0104 /*            LATIN CAPITAL LETTER A WITH OGONEK */ ,
+	/* A6 */ 0x00A6 /*                                    BROKEN BAR */ ,
+	/* A7 */ 0x00A7 /*                                  SECTION SIGN */ ,
+	/* A8 */ 0x00A8 /*                                     DIAERESIS */ ,
+	/* A9 */ 0x00A9 /*                                COPYRIGHT SIGN */ ,
+	/* AA */ 0x015E /*           LATIN CAPITAL LETTER S WITH CEDILLA */ ,
+	/* AB */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AC */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AD */ 0x00AD /*                                   SOFT HYPHEN */ ,
+	/* AE */ 0x00AE /*                               REGISTERED SIGN */ ,
+	/* AF */ 0x017B /*         LATIN CAPITAL LETTER Z WITH DOT ABOVE */ ,
+	/* B0 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* B1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* B2 */ 0x02DB /*                                        OGONEK */ ,
+	/* B3 */ 0x0142 /*              LATIN SMALL LETTER L WITH STROKE */ ,
+	/* B4 */ 0x00B4 /*                                  ACUTE ACCENT */ ,
+	/* B5 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* B6 */ 0x00B6 /*                                  PILCROW SIGN */ ,
+	/* B7 */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* B8 */ 0x00B8 /*                                       CEDILLA */ ,
+	/* B9 */ 0x0105 /*              LATIN SMALL LETTER A WITH OGONEK */ ,
+	/* BA */ 0x015F /*             LATIN SMALL LETTER S WITH CEDILLA */ ,
+	/* BB */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* BC */ 0x013D /*             LATIN CAPITAL LETTER L WITH CARON */ ,
+	/* BD */ 0x02DD /*                           DOUBLE ACUTE ACCENT */ ,
+	/* BE */ 0x013E /*               LATIN SMALL LETTER L WITH CARON */ ,
+	/* BF */ 0x017C /*           LATIN SMALL LETTER Z WITH DOT ABOVE */ ,
+	/* C0 */ 0x0154 /*             LATIN CAPITAL LETTER R WITH ACUTE */ ,
+	/* C1 */ 0x00C1 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,
+	/* C2 */ 0x00C2 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,
+	/* C3 */ 0x0102 /*             LATIN CAPITAL LETTER A WITH BREVE */ ,
+	/* C4 */ 0x00C4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,
+	/* C5 */ 0x0139 /*             LATIN CAPITAL LETTER L WITH ACUTE */ ,
+	/* C6 */ 0x0106 /*             LATIN CAPITAL LETTER C WITH ACUTE */ ,
+	/* C7 */ 0x00C7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,
+	/* C8 */ 0x010C /*             LATIN CAPITAL LETTER C WITH CARON */ ,
+	/* C9 */ 0x00C9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,
+	/* CA */ 0x0118 /*            LATIN CAPITAL LETTER E WITH OGONEK */ ,
+	/* CB */ 0x00CB /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,
+	/* CC */ 0x011A /*             LATIN CAPITAL LETTER E WITH CARON */ ,
+	/* CD */ 0x00CD /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,
+	/* CE */ 0x00CE /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,
+	/* CF */ 0x010E /*             LATIN CAPITAL LETTER D WITH CARON */ ,
+	/* D0 */ 0x0110 /*            LATIN CAPITAL LETTER D WITH STROKE */ ,
+	/* D1 */ 0x0143 /*             LATIN CAPITAL LETTER N WITH ACUTE */ ,
+	/* D2 */ 0x0147 /*             LATIN CAPITAL LETTER N WITH CARON */ ,
+	/* D3 */ 0x00D3 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,
+	/* D4 */ 0x00D4 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,
+	/* D5 */ 0x0150 /*      LATIN CAPITAL LETTER O WITH DOUBLE ACUTE */ ,
+	/* D6 */ 0x00D6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,
+	/* D7 */ 0x00D7 /*                           MULTIPLICATION SIGN */ ,
+	/* D8 */ 0x0158 /*             LATIN CAPITAL LETTER R WITH CARON */ ,
+	/* D9 */ 0x016E /*        LATIN CAPITAL LETTER U WITH RING ABOVE */ ,
+	/* DA */ 0x00DA /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,
+	/* DB */ 0x0170 /*      LATIN CAPITAL LETTER U WITH DOUBLE ACUTE */ ,
+	/* DC */ 0x00DC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,
+	/* DD */ 0x00DD /*             LATIN CAPITAL LETTER Y WITH ACUTE */ ,
+	/* DE */ 0x0162 /*           LATIN CAPITAL LETTER T WITH CEDILLA */ ,
+	/* DF */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* E0 */ 0x0155 /*               LATIN SMALL LETTER R WITH ACUTE */ ,
+	/* E1 */ 0x00E1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,
+	/* E2 */ 0x00E2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,
+	/* E3 */ 0x0103 /*               LATIN SMALL LETTER A WITH BREVE */ ,
+	/* E4 */ 0x00E4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,
+	/* E5 */ 0x013A /*               LATIN SMALL LETTER L WITH ACUTE */ ,
+	/* E6 */ 0x0107 /*               LATIN SMALL LETTER C WITH ACUTE */ ,
+	/* E7 */ 0x00E7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,
+	/* E8 */ 0x010D /*               LATIN SMALL LETTER C WITH CARON */ ,
+	/* E9 */ 0x00E9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,
+	/* EA */ 0x0119 /*              LATIN SMALL LETTER E WITH OGONEK */ ,
+	/* EB */ 0x00EB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,
+	/* EC */ 0x011B /*               LATIN SMALL LETTER E WITH CARON */ ,
+	/* ED */ 0x00ED /*               LATIN SMALL LETTER I WITH ACUTE */ ,
+	/* EE */ 0x00EE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,
+	/* EF */ 0x010F /*               LATIN SMALL LETTER D WITH CARON */ ,
+	/* F0 */ 0x0111 /*              LATIN SMALL LETTER D WITH STROKE */ ,
+	/* F1 */ 0x0144 /*               LATIN SMALL LETTER N WITH ACUTE */ ,
+	/* F2 */ 0x0148 /*               LATIN SMALL LETTER N WITH CARON */ ,
+	/* F3 */ 0x00F3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,
+	/* F4 */ 0x00F4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,
+	/* F5 */ 0x0151 /*        LATIN SMALL LETTER O WITH DOUBLE ACUTE */ ,
+	/* F6 */ 0x00F6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,
+	/* F7 */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* F8 */ 0x0159 /*               LATIN SMALL LETTER R WITH CARON */ ,
+	/* F9 */ 0x016F /*          LATIN SMALL LETTER U WITH RING ABOVE */ ,
+	/* FA */ 0x00FA /*               LATIN SMALL LETTER U WITH ACUTE */ ,
+	/* FB */ 0x0171 /*        LATIN SMALL LETTER U WITH DOUBLE ACUTE */ ,
+	/* FC */ 0x00FC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,
+	/* FD */ 0x00FD /*               LATIN SMALL LETTER Y WITH ACUTE */ ,
+	/* FE */ 0x0163 /*             LATIN SMALL LETTER T WITH CEDILLA */ ,
+	/* FF */ 0x02D9 /*                                     DOT ABOVE */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xA0 /*                                NO-BREAK SPACE */ ,	/* 416 */
+										/* U+00A1 */ CANT_MAP_CHARACTER,
+										/* 417 */
+										/* U+00A2 */ CANT_MAP_CHARACTER,
+										/* 418 */
+										/* U+00A3 */ CANT_MAP_CHARACTER,
+										/* 419 */
+	/* U+00A4 */ 0xA4 /*                                 CURRENCY SIGN */ ,	/* 420 */
+										/* U+00A5 */ CANT_MAP_CHARACTER,
+										/* 421 */
+	/* U+00A6 */ 0xA6 /*                                    BROKEN BAR */ ,	/* 422 */
+	/* U+00A7 */ 0xA7 /*                                  SECTION SIGN */ ,	/* 423 */
+	/* U+00A8 */ 0xA8 /*                                     DIAERESIS */ ,	/* 424 */
+	/* U+00A9 */ 0xA9 /*                                COPYRIGHT SIGN */ ,	/* 425 */
+										/* U+00AA */ CANT_MAP_CHARACTER,
+										/* 426 */
+	/* U+00AB */ 0xAB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAC /*                                      NOT SIGN */ ,	/* 428 */
+	/* U+00AD */ 0xAD /*                                   SOFT HYPHEN */ ,	/* 429 */
+	/* U+00AE */ 0xAE /*                               REGISTERED SIGN */ ,	/* 430 */
+										/* U+00AF */ CANT_MAP_CHARACTER,
+										/* 431 */
+	/* U+00B0 */ 0xB0 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xB1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+										/* U+00B2 */ CANT_MAP_CHARACTER,
+										/* 434 */
+										/* U+00B3 */ CANT_MAP_CHARACTER,
+										/* 435 */
+	/* U+00B4 */ 0xB4 /*                                  ACUTE ACCENT */ ,	/* 436 */
+	/* U+00B5 */ 0xB5 /*                                    MICRO SIGN */ ,	/* 437 */
+	/* U+00B6 */ 0xB6 /*                                  PILCROW SIGN */ ,	/* 438 */
+	/* U+00B7 */ 0xB7 /*                                    MIDDLE DOT */ ,	/* 439 */
+	/* U+00B8 */ 0xB8 /*                                       CEDILLA */ ,	/* 440 */
+										/* U+00B9 */ CANT_MAP_CHARACTER,
+										/* 441 */
+										/* U+00BA */ CANT_MAP_CHARACTER,
+										/* 442 */
+	/* U+00BB */ 0xBB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+										/* U+00BC */ CANT_MAP_CHARACTER,
+										/* 444 */
+										/* U+00BD */ CANT_MAP_CHARACTER,
+										/* 445 */
+										/* U+00BE */ CANT_MAP_CHARACTER,
+										/* 446 */
+										/* U+00BF */ CANT_MAP_CHARACTER,
+										/* 447 */
+										/* U+00C0 */ CANT_MAP_CHARACTER,
+										/* 448 */
+	/* U+00C1 */ 0xC1 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,	/* 449 */
+	/* U+00C2 */ 0xC2 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,	/* 450 */
+										/* U+00C3 */ CANT_MAP_CHARACTER,
+										/* 451 */
+	/* U+00C4 */ 0xC4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,	/* 452 */
+										/* U+00C5 */ CANT_MAP_CHARACTER,
+										/* 453 */
+										/* U+00C6 */ CANT_MAP_CHARACTER,
+										/* 454 */
+	/* U+00C7 */ 0xC7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,	/* 455 */
+										/* U+00C8 */ CANT_MAP_CHARACTER,
+										/* 456 */
+	/* U+00C9 */ 0xC9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,	/* 457 */
+										/* U+00CA */ CANT_MAP_CHARACTER,
+										/* 458 */
+	/* U+00CB */ 0xCB /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,	/* 459 */
+										/* U+00CC */ CANT_MAP_CHARACTER,
+										/* 460 */
+	/* U+00CD */ 0xCD /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,	/* 461 */
+	/* U+00CE */ 0xCE /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,	/* 462 */
+										/* U+00CF */ CANT_MAP_CHARACTER,
+										/* 463 */
+										/* U+00D0 */ CANT_MAP_CHARACTER,
+										/* 464 */
+										/* U+00D1 */ CANT_MAP_CHARACTER,
+										/* 465 */
+										/* U+00D2 */ CANT_MAP_CHARACTER,
+										/* 466 */
+	/* U+00D3 */ 0xD3 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,	/* 467 */
+	/* U+00D4 */ 0xD4 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,	/* 468 */
+										/* U+00D5 */ CANT_MAP_CHARACTER,
+										/* 469 */
+	/* U+00D6 */ 0xD6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,	/* 470 */
+	/* U+00D7 */ 0xD7 /*                           MULTIPLICATION SIGN */ ,	/* 471 */
+										/* U+00D8 */ CANT_MAP_CHARACTER,
+										/* 472 */
+										/* U+00D9 */ CANT_MAP_CHARACTER,
+										/* 473 */
+	/* U+00DA */ 0xDA /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,	/* 474 */
+										/* U+00DB */ CANT_MAP_CHARACTER,
+										/* 475 */
+	/* U+00DC */ 0xDC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,	/* 476 */
+	/* U+00DD */ 0xDD /*             LATIN CAPITAL LETTER Y WITH ACUTE */ ,	/* 477 */
+										/* U+00DE */ CANT_MAP_CHARACTER,
+										/* 478 */
+	/* U+00DF */ 0xDF /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+										/* U+00E0 */ CANT_MAP_CHARACTER,
+										/* 480 */
+	/* U+00E1 */ 0xE1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,	/* 481 */
+	/* U+00E2 */ 0xE2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,	/* 482 */
+										/* U+00E3 */ CANT_MAP_CHARACTER,
+										/* 483 */
+	/* U+00E4 */ 0xE4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,	/* 484 */
+										/* U+00E5 */ CANT_MAP_CHARACTER,
+										/* 485 */
+										/* U+00E6 */ CANT_MAP_CHARACTER,
+										/* 486 */
+	/* U+00E7 */ 0xE7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,	/* 487 */
+										/* U+00E8 */ CANT_MAP_CHARACTER,
+										/* 488 */
+	/* U+00E9 */ 0xE9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,	/* 489 */
+										/* U+00EA */ CANT_MAP_CHARACTER,
+										/* 490 */
+	/* U+00EB */ 0xEB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,	/* 491 */
+										/* U+00EC */ CANT_MAP_CHARACTER,
+										/* 492 */
+	/* U+00ED */ 0xED /*               LATIN SMALL LETTER I WITH ACUTE */ ,	/* 493 */
+	/* U+00EE */ 0xEE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,	/* 494 */
+										/* U+00EF */ CANT_MAP_CHARACTER,
+										/* 495 */
+										/* U+00F0 */ CANT_MAP_CHARACTER,
+										/* 496 */
+										/* U+00F1 */ CANT_MAP_CHARACTER,
+										/* 497 */
+										/* U+00F2 */ CANT_MAP_CHARACTER,
+										/* 498 */
+	/* U+00F3 */ 0xF3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0xF4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,	/* 500 */
+										/* U+00F5 */ CANT_MAP_CHARACTER,
+										/* 501 */
+	/* U+00F6 */ 0xF6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,	/* 502 */
+	/* U+00F7 */ 0xF7 /*                                 DIVISION SIGN */ ,	/* 503 */
+										/* U+00F8 */ CANT_MAP_CHARACTER,
+										/* 504 */
+										/* U+00F9 */ CANT_MAP_CHARACTER,
+										/* 505 */
+	/* U+00FA */ 0xFA /*               LATIN SMALL LETTER U WITH ACUTE */ ,	/* 506 */
+										/* U+00FB */ CANT_MAP_CHARACTER,
+										/* 507 */
+	/* U+00FC */ 0xFC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,	/* 508 */
+	/* U+00FD */ 0xFD /*               LATIN SMALL LETTER Y WITH ACUTE */ ,	/* 509 */
+										/* U+00FE */ CANT_MAP_CHARACTER,
+										/* 510 */
+										/* U+00FF */ CANT_MAP_CHARACTER,
+										/* 511 */
+										/* U+0100 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0101 */ CANT_MAP_CHARACTER,
+										/* 513 */
+	/* U+0102 */ 0xC3 /*             LATIN CAPITAL LETTER A WITH BREVE */ ,	/* 514 */
+	/* U+0103 */ 0xE3 /*               LATIN SMALL LETTER A WITH BREVE */ ,	/* 515 */
+	/* U+0104 */ 0xA5 /*            LATIN CAPITAL LETTER A WITH OGONEK */ ,	/* 516 */
+	/* U+0105 */ 0xB9 /*              LATIN SMALL LETTER A WITH OGONEK */ ,	/* 517 */
+	/* U+0106 */ 0xC6 /*             LATIN CAPITAL LETTER C WITH ACUTE */ ,	/* 518 */
+	/* U+0107 */ 0xE6 /*               LATIN SMALL LETTER C WITH ACUTE */ ,	/* 519 */
+										/* U+0108 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0109 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+010A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+010B */ CANT_MAP_CHARACTER,
+										/* 523 */
+	/* U+010C */ 0xC8 /*             LATIN CAPITAL LETTER C WITH CARON */ ,	/* 524 */
+	/* U+010D */ 0xE8 /*               LATIN SMALL LETTER C WITH CARON */ ,	/* 525 */
+	/* U+010E */ 0xCF /*             LATIN CAPITAL LETTER D WITH CARON */ ,	/* 526 */
+	/* U+010F */ 0xEF /*               LATIN SMALL LETTER D WITH CARON */ ,	/* 527 */
+	/* U+0110 */ 0xD0 /*            LATIN CAPITAL LETTER D WITH STROKE */ ,	/* 528 */
+	/* U+0111 */ 0xF0 /*              LATIN SMALL LETTER D WITH STROKE */ ,	/* 529 */
+										/* U+0112 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0113 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0114 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0115 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0116 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0117 */ CANT_MAP_CHARACTER,
+										/* 535 */
+	/* U+0118 */ 0xCA /*            LATIN CAPITAL LETTER E WITH OGONEK */ ,	/* 536 */
+	/* U+0119 */ 0xEA /*              LATIN SMALL LETTER E WITH OGONEK */ ,	/* 537 */
+	/* U+011A */ 0xCC /*             LATIN CAPITAL LETTER E WITH CARON */ ,	/* 538 */
+	/* U+011B */ 0xEC /*               LATIN SMALL LETTER E WITH CARON */ ,	/* 539 */
+										/* U+011C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+011D */ CANT_MAP_CHARACTER,
+										/* 541 */
+										/* U+011E */ CANT_MAP_CHARACTER,
+										/* 542 */
+										/* U+011F */ CANT_MAP_CHARACTER,
+										/* 543 */
+										/* U+0120 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0121 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0122 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0123 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0124 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0125 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0126 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0127 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0128 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0129 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+012A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+012B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+012C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+012D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+012E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+012F */ CANT_MAP_CHARACTER,
+										/* 559 */
+										/* U+0130 */ CANT_MAP_CHARACTER,
+										/* 560 */
+										/* U+0131 */ CANT_MAP_CHARACTER,
+										/* 561 */
+										/* U+0132 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0133 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0134 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0135 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0136 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0137 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0138 */ CANT_MAP_CHARACTER,
+										/* 568 */
+	/* U+0139 */ 0xC5 /*             LATIN CAPITAL LETTER L WITH ACUTE */ ,	/* 569 */
+	/* U+013A */ 0xE5 /*               LATIN SMALL LETTER L WITH ACUTE */ ,	/* 570 */
+										/* U+013B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+013C */ CANT_MAP_CHARACTER,
+										/* 572 */
+	/* U+013D */ 0xBC /*             LATIN CAPITAL LETTER L WITH CARON */ ,	/* 573 */
+	/* U+013E */ 0xBE /*               LATIN SMALL LETTER L WITH CARON */ ,	/* 574 */
+										/* U+013F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0140 */ CANT_MAP_CHARACTER,
+										/* 576 */
+	/* U+0141 */ 0xA3 /*            LATIN CAPITAL LETTER L WITH STROKE */ ,	/* 577 */
+	/* U+0142 */ 0xB3 /*              LATIN SMALL LETTER L WITH STROKE */ ,	/* 578 */
+	/* U+0143 */ 0xD1 /*             LATIN CAPITAL LETTER N WITH ACUTE */ ,	/* 579 */
+	/* U+0144 */ 0xF1 /*               LATIN SMALL LETTER N WITH ACUTE */ ,	/* 580 */
+										/* U+0145 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0146 */ CANT_MAP_CHARACTER,
+										/* 582 */
+	/* U+0147 */ 0xD2 /*             LATIN CAPITAL LETTER N WITH CARON */ ,	/* 583 */
+	/* U+0148 */ 0xF2 /*               LATIN SMALL LETTER N WITH CARON */ ,	/* 584 */
+										/* U+0149 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+014A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+014B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+014C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+014D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+014E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+014F */ CANT_MAP_CHARACTER,
+										/* 591 */
+	/* U+0150 */ 0xD5 /*      LATIN CAPITAL LETTER O WITH DOUBLE ACUTE */ ,	/* 592 */
+	/* U+0151 */ 0xF5 /*        LATIN SMALL LETTER O WITH DOUBLE ACUTE */ ,	/* 593 */
+										/* U+0152 */ CANT_MAP_CHARACTER,
+										/* 594 */
+										/* U+0153 */ CANT_MAP_CHARACTER,
+										/* 595 */
+	/* U+0154 */ 0xC0 /*             LATIN CAPITAL LETTER R WITH ACUTE */ ,	/* 596 */
+	/* U+0155 */ 0xE0 /*               LATIN SMALL LETTER R WITH ACUTE */ ,	/* 597 */
+										/* U+0156 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0157 */ CANT_MAP_CHARACTER,
+										/* 599 */
+	/* U+0158 */ 0xD8 /*             LATIN CAPITAL LETTER R WITH CARON */ ,	/* 600 */
+	/* U+0159 */ 0xF8 /*               LATIN SMALL LETTER R WITH CARON */ ,	/* 601 */
+	/* U+015A */ 0x8C /*             LATIN CAPITAL LETTER S WITH ACUTE */ ,	/* 602 */
+	/* U+015B */ 0x9C /*               LATIN SMALL LETTER S WITH ACUTE */ ,	/* 603 */
+										/* U+015C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+015D */ CANT_MAP_CHARACTER,
+										/* 605 */
+	/* U+015E */ 0xAA /*           LATIN CAPITAL LETTER S WITH CEDILLA */ ,	/* 606 */
+	/* U+015F */ 0xBA /*             LATIN SMALL LETTER S WITH CEDILLA */ ,	/* 607 */
+	/* U+0160 */ 0x8A /*             LATIN CAPITAL LETTER S WITH CARON */ ,	/* 608 */
+	/* U+0161 */ 0x9A /*               LATIN SMALL LETTER S WITH CARON */ ,	/* 609 */
+	/* U+0162 */ 0xDE /*           LATIN CAPITAL LETTER T WITH CEDILLA */ ,	/* 610 */
+	/* U+0163 */ 0xFE /*             LATIN SMALL LETTER T WITH CEDILLA */ ,	/* 611 */
+	/* U+0164 */ 0x8D /*             LATIN CAPITAL LETTER T WITH CARON */ ,	/* 612 */
+	/* U+0165 */ 0x9D /*               LATIN SMALL LETTER T WITH CARON */ ,	/* 613 */
+										/* U+0166 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0167 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0168 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0169 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+016A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+016B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+016C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+016D */ CANT_MAP_CHARACTER,
+										/* 621 */
+	/* U+016E */ 0xD9 /*        LATIN CAPITAL LETTER U WITH RING ABOVE */ ,	/* 622 */
+	/* U+016F */ 0xF9 /*          LATIN SMALL LETTER U WITH RING ABOVE */ ,	/* 623 */
+	/* U+0170 */ 0xDB /*      LATIN CAPITAL LETTER U WITH DOUBLE ACUTE */ ,	/* 624 */
+	/* U+0171 */ 0xFB /*        LATIN SMALL LETTER U WITH DOUBLE ACUTE */ ,	/* 625 */
+										/* U+0172 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0173 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0174 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0175 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0176 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0177 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0178 */ CANT_MAP_CHARACTER,
+										/* 632 */
+	/* U+0179 */ 0x8F /*             LATIN CAPITAL LETTER Z WITH ACUTE */ ,	/* 633 */
+	/* U+017A */ 0x9F /*               LATIN SMALL LETTER Z WITH ACUTE */ ,	/* 634 */
+	/* U+017B */ 0xAF /*         LATIN CAPITAL LETTER Z WITH DOT ABOVE */ ,	/* 635 */
+	/* U+017C */ 0xBF /*           LATIN SMALL LETTER Z WITH DOT ABOVE */ ,	/* 636 */
+	/* U+017D */ 0x8E /*             LATIN CAPITAL LETTER Z WITH CARON */ ,	/* 637 */
+	/* U+017E */ 0x9E /*               LATIN SMALL LETTER Z WITH CARON */ ,	/* 638 */
+										/* U+017F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0180 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0181 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0182 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0183 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0184 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0185 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0186 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0187 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0188 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0189 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+018A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+018B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+018C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+018D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+018E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+018F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0190 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0191 */ CANT_MAP_CHARACTER,
+										/* 657 */
+										/* U+0192 */ CANT_MAP_CHARACTER,
+										/* 658 */
+										/* U+0193 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0194 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0195 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0196 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0197 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0198 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0199 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+019A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+019B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+019C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+019D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+019E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+019F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+01A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+01A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+01A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+01A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+01A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+01A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+01A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+01A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+01A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+01A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+01AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+01AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+01AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+01AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+01AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+01AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+01B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+01B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+01B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+01B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+01B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+01B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+01B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+01B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+01B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+01B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+01BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+01BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+01BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+01BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+01BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+01BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+01C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+01C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+01C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+01C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+01C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+01C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+01C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+01C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+01C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+01C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+01CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+01CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+01CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+01CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+01CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+01CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+01D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+01D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+01D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+01D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+01D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+01D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+01D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+01D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+01D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+01D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+01DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+01DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+01DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+01DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+01DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+01DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+01E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+01E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+01E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+01E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+01E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+01E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+01E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+01E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+01E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+01E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+01EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+01EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+01EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+01ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+01EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+01EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+01F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+01F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+01F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+01F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+01F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+01F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+01F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+01F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+01F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+01F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+01FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+01FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+01FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+01FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+01FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+01FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+0200 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+0201 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+0202 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+0203 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+0204 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+0205 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+0206 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+0207 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+0208 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+0209 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+020A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+020B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+020C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+020D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+020E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+020F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+0210 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+0211 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+0212 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+0213 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+0214 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+0215 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+0216 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+0217 */ CANT_MAP_CHARACTER,
+										/* 791 */
+										/* U+0218 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+0219 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+021A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+021B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+021C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+021D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+021E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+021F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+0220 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+0221 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+0222 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+0223 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+0224 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+0225 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+0226 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+0227 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+0228 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+0229 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+022A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+022B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+022C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+022D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+022E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+022F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+0230 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+0231 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+0232 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+0233 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+0234 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+0235 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+0236 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+0237 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+0238 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+0239 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+023A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+023B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+023C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+023D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+023E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+023F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+0240 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+0241 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+0242 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+0243 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+0244 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+0245 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+0246 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+0247 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+0248 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+0249 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+024A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+024B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+024C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+024D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+024E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+024F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+0250 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+0251 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+0252 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+0253 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+0254 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+0255 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+0256 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+0257 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+0258 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+0259 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+025A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+025B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+025C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+025D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+025E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+025F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+0260 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+0261 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+0262 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+0263 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+0264 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+0265 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+0266 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+0267 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+0268 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+0269 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+026A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+026B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+026C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+026D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+026E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+026F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+0270 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+0271 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+0272 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+0273 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+0274 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+0275 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+0276 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+0277 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+0278 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+0279 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+027A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+027B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+027C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+027D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+027E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+027F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+0280 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+0281 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+0282 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+0283 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+0284 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+0285 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+0286 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+0287 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+0288 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+0289 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+028A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+028B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+028C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+028D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+028E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+028F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+0290 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+0291 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+0292 */ CANT_MAP_CHARACTER,
+										/* 914 */
+										/* U+0293 */ CANT_MAP_CHARACTER,
+										/* 915 */
+										/* U+0294 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+0295 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+0296 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+0297 */ CANT_MAP_CHARACTER,
+										/* 919 */
+										/* U+0298 */ CANT_MAP_CHARACTER,
+										/* 920 */
+										/* U+0299 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+029A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+029B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+029C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+029D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+029E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+029F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+02A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+02A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+02A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+										/* U+02A3 */ CANT_MAP_CHARACTER,
+										/* 931 */
+										/* U+02A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+02A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+										/* U+02A6 */ CANT_MAP_CHARACTER,
+										/* 934 */
+										/* U+02A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+02A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+										/* U+02A9 */ CANT_MAP_CHARACTER,
+										/* 937 */
+										/* U+02AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+02AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+02AC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+02AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+02AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+02AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+02B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+										/* U+02B1 */ CANT_MAP_CHARACTER,
+										/* 945 */
+										/* U+02B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+02B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+										/* U+02B4 */ CANT_MAP_CHARACTER,
+										/* 948 */
+										/* U+02B5 */ CANT_MAP_CHARACTER,
+										/* 949 */
+										/* U+02B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+02B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+02B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+02B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+02BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+02BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+02BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+02BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+02BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+02BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+										/* U+02C0 */ CANT_MAP_CHARACTER,
+										/* 960 */
+										/* U+02C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+02C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+										/* U+02C3 */ CANT_MAP_CHARACTER,
+										/* 963 */
+										/* U+02C4 */ CANT_MAP_CHARACTER,
+										/* 964 */
+										/* U+02C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+										/* U+02C6 */ CANT_MAP_CHARACTER,
+										/* 966 */
+	/* U+02C7 */ 0xA1 /*                                         CARON */ ,	/* 967 */
+										/* U+02C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+02C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+02CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+02CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+02CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+02CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+02CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+02CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+02D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+02D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+02D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+02D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+02D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+02D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+02D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+02D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+	/* U+02D8 */ 0xA2 /*                                         BREVE */ ,	/* 984 */
+	/* U+02D9 */ 0xFF /*                                     DOT ABOVE */ ,	/* 985 */
+										/* U+02DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+	/* U+02DB */ 0xB2 /*                                        OGONEK */ ,	/* 987 */
+										/* U+02DC */ CANT_MAP_CHARACTER,
+										/* 988 */
+	/* U+02DD */ 0xBD /*                           DOUBLE ACUTE ACCENT */ ,	/* 989 */
+										/* U+02DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+02DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+02E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+02E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+02E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+02E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+02E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+02E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+02E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+02E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+02E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+02E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+02EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+02EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+02EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+02ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+02EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+02EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+02F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+02F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+02F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+02F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+02F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+02F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+02F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+02F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+02F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+02F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+02FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+02FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+02FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+02FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+02FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+02FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 1024 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 1026 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 1036 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 1040 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+	/* U+2013 */ 0x96 /*                                       EN DASH */ ,	/* 1043 */
+	/* U+2014 */ 0x97 /*                                       EM DASH */ ,	/* 1044 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 1046 */
+										/* U+2017 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+	/* U+2018 */ 0x91 /*                    LEFT SINGLE QUOTATION MARK */ ,	/* 1048 */
+	/* U+2019 */ 0x92 /*                   RIGHT SINGLE QUOTATION MARK */ ,	/* 1049 */
+	/* U+201A */ 0x82 /*                   SINGLE LOW-9 QUOTATION MARK */ ,	/* 1050 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+	/* U+201C */ 0x93 /*                    LEFT DOUBLE QUOTATION MARK */ ,	/* 1052 */
+	/* U+201D */ 0x94 /*                   RIGHT DOUBLE QUOTATION MARK */ ,	/* 1053 */
+	/* U+201E */ 0x84 /*                   DOUBLE LOW-9 QUOTATION MARK */ ,	/* 1054 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+	/* U+2020 */ 0x86 /*                                        DAGGER */ ,	/* 1056 */
+	/* U+2021 */ 0x87 /*                                 DOUBLE DAGGER */ ,	/* 1057 */
+	/* U+2022 */ 0x95 /*                                        BULLET */ ,	/* 1058 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 1060 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+	/* U+2026 */ 0x85 /*                           HORIZONTAL ELLIPSIS */ ,	/* 1062 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 1068 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+	/* U+2030 */ 0x89 /*                                PER MILLE SIGN */ ,	/* 1072 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 1076 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+	/* U+2039 */ 0x8B /*     SINGLE LEFT-POINTING ANGLE QUOTATION MARK */ ,	/* 1081 */
+	/* U+203A */ 0x9B /*    SINGLE RIGHT-POINTING ANGLE QUOTATION MARK */ ,	/* 1082 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 1084 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 1104 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 1105 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 1108 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 1111 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 1114 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 1117 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 1120 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 1123 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 1126 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 1129 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 1132 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+										/* U+207F */ CANT_MAP_CHARACTER,
+										/* 1151 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 1152 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 1156 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 1160 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 1169 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 1170 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 1171 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 1184 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+										/* U+20A7 */ CANT_MAP_CHARACTER,
+										/* 1191 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+	/* U+20AC */ 0x80 /*                                     EURO SIGN */ ,	/* 1196 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+										/* U+2100 */ CANT_MAP_CHARACTER,
+										/* 1280 */
+										/* U+2101 */ CANT_MAP_CHARACTER,
+										/* 1281 */
+										/* U+2102 */ CANT_MAP_CHARACTER,
+										/* 1282 */
+										/* U+2103 */ CANT_MAP_CHARACTER,
+										/* 1283 */
+										/* U+2104 */ CANT_MAP_CHARACTER,
+										/* 1284 */
+										/* U+2105 */ CANT_MAP_CHARACTER,
+										/* 1285 */
+										/* U+2106 */ CANT_MAP_CHARACTER,
+										/* 1286 */
+										/* U+2107 */ CANT_MAP_CHARACTER,
+										/* 1287 */
+										/* U+2108 */ CANT_MAP_CHARACTER,
+										/* 1288 */
+										/* U+2109 */ CANT_MAP_CHARACTER,
+										/* 1289 */
+										/* U+210A */ CANT_MAP_CHARACTER,
+										/* 1290 */
+										/* U+210B */ CANT_MAP_CHARACTER,
+										/* 1291 */
+										/* U+210C */ CANT_MAP_CHARACTER,
+										/* 1292 */
+										/* U+210D */ CANT_MAP_CHARACTER,
+										/* 1293 */
+										/* U+210E */ CANT_MAP_CHARACTER,
+										/* 1294 */
+										/* U+210F */ CANT_MAP_CHARACTER,
+										/* 1295 */
+										/* U+2110 */ CANT_MAP_CHARACTER,
+										/* 1296 */
+										/* U+2111 */ CANT_MAP_CHARACTER,
+										/* 1297 */
+										/* U+2112 */ CANT_MAP_CHARACTER,
+										/* 1298 */
+										/* U+2113 */ CANT_MAP_CHARACTER,
+										/* 1299 */
+										/* U+2114 */ CANT_MAP_CHARACTER,
+										/* 1300 */
+										/* U+2115 */ CANT_MAP_CHARACTER,
+										/* 1301 */
+										/* U+2116 */ CANT_MAP_CHARACTER,
+										/* 1302 */
+										/* U+2117 */ CANT_MAP_CHARACTER,
+										/* 1303 */
+										/* U+2118 */ CANT_MAP_CHARACTER,
+										/* 1304 */
+										/* U+2119 */ CANT_MAP_CHARACTER,
+										/* 1305 */
+										/* U+211A */ CANT_MAP_CHARACTER,
+										/* 1306 */
+										/* U+211B */ CANT_MAP_CHARACTER,
+										/* 1307 */
+										/* U+211C */ CANT_MAP_CHARACTER,
+										/* 1308 */
+										/* U+211D */ CANT_MAP_CHARACTER,
+										/* 1309 */
+										/* U+211E */ CANT_MAP_CHARACTER,
+										/* 1310 */
+										/* U+211F */ CANT_MAP_CHARACTER,
+										/* 1311 */
+										/* U+2120 */ CANT_MAP_CHARACTER,
+										/* 1312 */
+										/* U+2121 */ CANT_MAP_CHARACTER,
+										/* 1313 */
+	/* U+2122 */ 0x99 /*                               TRADE MARK SIGN */ ,	/* 1314 */
+										/* U+2123 */ CANT_MAP_CHARACTER,
+										/* 1315 */
+										/* U+2124 */ CANT_MAP_CHARACTER,
+										/* 1316 */
+										/* U+2125 */ CANT_MAP_CHARACTER,
+										/* 1317 */
+										/* U+2126 */ CANT_MAP_CHARACTER,
+										/* 1318 */
+										/* U+2127 */ CANT_MAP_CHARACTER,
+										/* 1319 */
+										/* U+2128 */ CANT_MAP_CHARACTER,
+										/* 1320 */
+										/* U+2129 */ CANT_MAP_CHARACTER,
+										/* 1321 */
+										/* U+212A */ CANT_MAP_CHARACTER,
+										/* 1322 */
+										/* U+212B */ CANT_MAP_CHARACTER,
+										/* 1323 */
+										/* U+212C */ CANT_MAP_CHARACTER,
+										/* 1324 */
+										/* U+212D */ CANT_MAP_CHARACTER,
+										/* 1325 */
+										/* U+212E */ CANT_MAP_CHARACTER,
+										/* 1326 */
+										/* U+212F */ CANT_MAP_CHARACTER,
+										/* 1327 */
+										/* U+2130 */ CANT_MAP_CHARACTER,
+										/* 1328 */
+										/* U+2131 */ CANT_MAP_CHARACTER,
+										/* 1329 */
+										/* U+2132 */ CANT_MAP_CHARACTER,
+										/* 1330 */
+										/* U+2133 */ CANT_MAP_CHARACTER,
+										/* 1331 */
+										/* U+2134 */ CANT_MAP_CHARACTER,
+										/* 1332 */
+										/* U+2135 */ CANT_MAP_CHARACTER,
+										/* 1333 */
+										/* U+2136 */ CANT_MAP_CHARACTER,
+										/* 1334 */
+										/* U+2137 */ CANT_MAP_CHARACTER,
+										/* 1335 */
+										/* U+2138 */ CANT_MAP_CHARACTER,
+										/* 1336 */
+										/* U+2139 */ CANT_MAP_CHARACTER,
+										/* 1337 */
+										/* U+213A */ CANT_MAP_CHARACTER,
+										/* 1338 */
+										/* U+213B */ CANT_MAP_CHARACTER,
+										/* 1339 */
+										/* U+213C */ CANT_MAP_CHARACTER,
+										/* 1340 */
+										/* U+213D */ CANT_MAP_CHARACTER,
+										/* 1341 */
+										/* U+213E */ CANT_MAP_CHARACTER,
+										/* 1342 */
+										/* U+213F */ CANT_MAP_CHARACTER,
+										/* 1343 */
+										/* U+2140 */ CANT_MAP_CHARACTER,
+										/* 1344 */
+										/* U+2141 */ CANT_MAP_CHARACTER,
+										/* 1345 */
+										/* U+2142 */ CANT_MAP_CHARACTER,
+										/* 1346 */
+										/* U+2143 */ CANT_MAP_CHARACTER,
+										/* 1347 */
+										/* U+2144 */ CANT_MAP_CHARACTER,
+										/* 1348 */
+										/* U+2145 */ CANT_MAP_CHARACTER,
+										/* 1349 */
+										/* U+2146 */ CANT_MAP_CHARACTER,
+										/* 1350 */
+										/* U+2147 */ CANT_MAP_CHARACTER,
+										/* 1351 */
+										/* U+2148 */ CANT_MAP_CHARACTER,
+										/* 1352 */
+										/* U+2149 */ CANT_MAP_CHARACTER,
+										/* 1353 */
+										/* U+214A */ CANT_MAP_CHARACTER,
+										/* 1354 */
+										/* U+214B */ CANT_MAP_CHARACTER,
+										/* 1355 */
+										/* U+214C */ CANT_MAP_CHARACTER,
+										/* 1356 */
+										/* U+214D */ CANT_MAP_CHARACTER,
+										/* 1357 */
+										/* U+214E */ CANT_MAP_CHARACTER,
+										/* 1358 */
+										/* U+214F */ CANT_MAP_CHARACTER,
+										/* 1359 */
+										/* U+2150 */ CANT_MAP_CHARACTER,
+										/* 1360 */
+										/* U+2151 */ CANT_MAP_CHARACTER,
+										/* 1361 */
+										/* U+2152 */ CANT_MAP_CHARACTER,
+										/* 1362 */
+										/* U+2153 */ CANT_MAP_CHARACTER,
+										/* 1363 */
+										/* U+2154 */ CANT_MAP_CHARACTER,
+										/* 1364 */
+										/* U+2155 */ CANT_MAP_CHARACTER,
+										/* 1365 */
+										/* U+2156 */ CANT_MAP_CHARACTER,
+										/* 1366 */
+										/* U+2157 */ CANT_MAP_CHARACTER,
+										/* 1367 */
+										/* U+2158 */ CANT_MAP_CHARACTER,
+										/* 1368 */
+										/* U+2159 */ CANT_MAP_CHARACTER,
+										/* 1369 */
+										/* U+215A */ CANT_MAP_CHARACTER,
+										/* 1370 */
+										/* U+215B */ CANT_MAP_CHARACTER,
+										/* 1371 */
+										/* U+215C */ CANT_MAP_CHARACTER,
+										/* 1372 */
+										/* U+215D */ CANT_MAP_CHARACTER,
+										/* 1373 */
+										/* U+215E */ CANT_MAP_CHARACTER,
+										/* 1374 */
+										/* U+215F */ CANT_MAP_CHARACTER,
+										/* 1375 */
+										/* U+2160 */ CANT_MAP_CHARACTER,
+										/* 1376 */
+										/* U+2161 */ CANT_MAP_CHARACTER,
+										/* 1377 */
+										/* U+2162 */ CANT_MAP_CHARACTER,
+										/* 1378 */
+										/* U+2163 */ CANT_MAP_CHARACTER,
+										/* 1379 */
+										/* U+2164 */ CANT_MAP_CHARACTER,
+										/* 1380 */
+										/* U+2165 */ CANT_MAP_CHARACTER,
+										/* 1381 */
+										/* U+2166 */ CANT_MAP_CHARACTER,
+										/* 1382 */
+										/* U+2167 */ CANT_MAP_CHARACTER,
+										/* 1383 */
+										/* U+2168 */ CANT_MAP_CHARACTER,
+										/* 1384 */
+										/* U+2169 */ CANT_MAP_CHARACTER,
+										/* 1385 */
+										/* U+216A */ CANT_MAP_CHARACTER,
+										/* 1386 */
+										/* U+216B */ CANT_MAP_CHARACTER,
+										/* 1387 */
+										/* U+216C */ CANT_MAP_CHARACTER,
+										/* 1388 */
+										/* U+216D */ CANT_MAP_CHARACTER,
+										/* 1389 */
+										/* U+216E */ CANT_MAP_CHARACTER,
+										/* 1390 */
+										/* U+216F */ CANT_MAP_CHARACTER,
+										/* 1391 */
+										/* U+2170 */ CANT_MAP_CHARACTER,
+										/* 1392 */
+										/* U+2171 */ CANT_MAP_CHARACTER,
+										/* 1393 */
+										/* U+2172 */ CANT_MAP_CHARACTER,
+										/* 1394 */
+										/* U+2173 */ CANT_MAP_CHARACTER,
+										/* 1395 */
+										/* U+2174 */ CANT_MAP_CHARACTER,
+										/* 1396 */
+										/* U+2175 */ CANT_MAP_CHARACTER,
+										/* 1397 */
+										/* U+2176 */ CANT_MAP_CHARACTER,
+										/* 1398 */
+										/* U+2177 */ CANT_MAP_CHARACTER,
+										/* 1399 */
+										/* U+2178 */ CANT_MAP_CHARACTER,
+										/* 1400 */
+										/* U+2179 */ CANT_MAP_CHARACTER,
+										/* 1401 */
+										/* U+217A */ CANT_MAP_CHARACTER,
+										/* 1402 */
+										/* U+217B */ CANT_MAP_CHARACTER,
+										/* 1403 */
+										/* U+217C */ CANT_MAP_CHARACTER,
+										/* 1404 */
+										/* U+217D */ CANT_MAP_CHARACTER,
+										/* 1405 */
+										/* U+217E */ CANT_MAP_CHARACTER,
+										/* 1406 */
+										/* U+217F */ CANT_MAP_CHARACTER,
+										/* 1407 */
+										/* U+2180 */ CANT_MAP_CHARACTER,
+										/* 1408 */
+										/* U+2181 */ CANT_MAP_CHARACTER,
+										/* 1409 */
+										/* U+2182 */ CANT_MAP_CHARACTER,
+										/* 1410 */
+										/* U+2183 */ CANT_MAP_CHARACTER,
+										/* 1411 */
+										/* U+2184 */ CANT_MAP_CHARACTER,
+										/* 1412 */
+										/* U+2185 */ CANT_MAP_CHARACTER,
+										/* 1413 */
+										/* U+2186 */ CANT_MAP_CHARACTER,
+										/* 1414 */
+										/* U+2187 */ CANT_MAP_CHARACTER,
+										/* 1415 */
+										/* U+2188 */ CANT_MAP_CHARACTER,
+										/* 1416 */
+										/* U+2189 */ CANT_MAP_CHARACTER,
+										/* 1417 */
+										/* U+218A */ CANT_MAP_CHARACTER,
+										/* 1418 */
+										/* U+218B */ CANT_MAP_CHARACTER,
+										/* 1419 */
+										/* U+218C */ CANT_MAP_CHARACTER,
+										/* 1420 */
+										/* U+218D */ CANT_MAP_CHARACTER,
+										/* 1421 */
+										/* U+218E */ CANT_MAP_CHARACTER,
+										/* 1422 */
+										/* U+218F */ CANT_MAP_CHARACTER,
+										/* 1423 */
+										/* U+2190 */ CANT_MAP_CHARACTER,
+										/* 1424 */
+										/* U+2191 */ CANT_MAP_CHARACTER,
+										/* 1425 */
+										/* U+2192 */ CANT_MAP_CHARACTER,
+										/* 1426 */
+										/* U+2193 */ CANT_MAP_CHARACTER,
+										/* 1427 */
+										/* U+2194 */ CANT_MAP_CHARACTER,
+										/* 1428 */
+										/* U+2195 */ CANT_MAP_CHARACTER,
+										/* 1429 */
+										/* U+2196 */ CANT_MAP_CHARACTER,
+										/* 1430 */
+										/* U+2197 */ CANT_MAP_CHARACTER,
+										/* 1431 */
+										/* U+2198 */ CANT_MAP_CHARACTER,
+										/* 1432 */
+										/* U+2199 */ CANT_MAP_CHARACTER,
+										/* 1433 */
+										/* U+219A */ CANT_MAP_CHARACTER,
+										/* 1434 */
+										/* U+219B */ CANT_MAP_CHARACTER,
+										/* 1435 */
+										/* U+219C */ CANT_MAP_CHARACTER,
+										/* 1436 */
+										/* U+219D */ CANT_MAP_CHARACTER,
+										/* 1437 */
+										/* U+219E */ CANT_MAP_CHARACTER,
+										/* 1438 */
+										/* U+219F */ CANT_MAP_CHARACTER,
+										/* 1439 */
+										/* U+21A0 */ CANT_MAP_CHARACTER,
+										/* 1440 */
+										/* U+21A1 */ CANT_MAP_CHARACTER,
+										/* 1441 */
+										/* U+21A2 */ CANT_MAP_CHARACTER,
+										/* 1442 */
+										/* U+21A3 */ CANT_MAP_CHARACTER,
+										/* 1443 */
+										/* U+21A4 */ CANT_MAP_CHARACTER,
+										/* 1444 */
+										/* U+21A5 */ CANT_MAP_CHARACTER,
+										/* 1445 */
+										/* U+21A6 */ CANT_MAP_CHARACTER,
+										/* 1446 */
+										/* U+21A7 */ CANT_MAP_CHARACTER,
+										/* 1447 */
+										/* U+21A8 */ CANT_MAP_CHARACTER,
+										/* 1448 */
+										/* U+21A9 */ CANT_MAP_CHARACTER,
+										/* 1449 */
+										/* U+21AA */ CANT_MAP_CHARACTER,
+										/* 1450 */
+										/* U+21AB */ CANT_MAP_CHARACTER,
+										/* 1451 */
+										/* U+21AC */ CANT_MAP_CHARACTER,
+										/* 1452 */
+										/* U+21AD */ CANT_MAP_CHARACTER,
+										/* 1453 */
+										/* U+21AE */ CANT_MAP_CHARACTER,
+										/* 1454 */
+										/* U+21AF */ CANT_MAP_CHARACTER,
+										/* 1455 */
+										/* U+21B0 */ CANT_MAP_CHARACTER,
+										/* 1456 */
+										/* U+21B1 */ CANT_MAP_CHARACTER,
+										/* 1457 */
+										/* U+21B2 */ CANT_MAP_CHARACTER,
+										/* 1458 */
+										/* U+21B3 */ CANT_MAP_CHARACTER,
+										/* 1459 */
+										/* U+21B4 */ CANT_MAP_CHARACTER,
+										/* 1460 */
+										/* U+21B5 */ CANT_MAP_CHARACTER,
+										/* 1461 */
+										/* U+21B6 */ CANT_MAP_CHARACTER,
+										/* 1462 */
+										/* U+21B7 */ CANT_MAP_CHARACTER,
+										/* 1463 */
+										/* U+21B8 */ CANT_MAP_CHARACTER,
+										/* 1464 */
+										/* U+21B9 */ CANT_MAP_CHARACTER,
+										/* 1465 */
+										/* U+21BA */ CANT_MAP_CHARACTER,
+										/* 1466 */
+										/* U+21BB */ CANT_MAP_CHARACTER,
+										/* 1467 */
+										/* U+21BC */ CANT_MAP_CHARACTER,
+										/* 1468 */
+										/* U+21BD */ CANT_MAP_CHARACTER,
+										/* 1469 */
+										/* U+21BE */ CANT_MAP_CHARACTER,
+										/* 1470 */
+										/* U+21BF */ CANT_MAP_CHARACTER,
+										/* 1471 */
+										/* U+21C0 */ CANT_MAP_CHARACTER,
+										/* 1472 */
+										/* U+21C1 */ CANT_MAP_CHARACTER,
+										/* 1473 */
+										/* U+21C2 */ CANT_MAP_CHARACTER,
+										/* 1474 */
+										/* U+21C3 */ CANT_MAP_CHARACTER,
+										/* 1475 */
+										/* U+21C4 */ CANT_MAP_CHARACTER,
+										/* 1476 */
+										/* U+21C5 */ CANT_MAP_CHARACTER,
+										/* 1477 */
+										/* U+21C6 */ CANT_MAP_CHARACTER,
+										/* 1478 */
+										/* U+21C7 */ CANT_MAP_CHARACTER,
+										/* 1479 */
+										/* U+21C8 */ CANT_MAP_CHARACTER,
+										/* 1480 */
+										/* U+21C9 */ CANT_MAP_CHARACTER,
+										/* 1481 */
+										/* U+21CA */ CANT_MAP_CHARACTER,
+										/* 1482 */
+										/* U+21CB */ CANT_MAP_CHARACTER,
+										/* 1483 */
+										/* U+21CC */ CANT_MAP_CHARACTER,
+										/* 1484 */
+										/* U+21CD */ CANT_MAP_CHARACTER,
+										/* 1485 */
+										/* U+21CE */ CANT_MAP_CHARACTER,
+										/* 1486 */
+										/* U+21CF */ CANT_MAP_CHARACTER,
+										/* 1487 */
+										/* U+21D0 */ CANT_MAP_CHARACTER,
+										/* 1488 */
+										/* U+21D1 */ CANT_MAP_CHARACTER,
+										/* 1489 */
+										/* U+21D2 */ CANT_MAP_CHARACTER,
+										/* 1490 */
+										/* U+21D3 */ CANT_MAP_CHARACTER,
+										/* 1491 */
+										/* U+21D4 */ CANT_MAP_CHARACTER,
+										/* 1492 */
+										/* U+21D5 */ CANT_MAP_CHARACTER,
+										/* 1493 */
+										/* U+21D6 */ CANT_MAP_CHARACTER,
+										/* 1494 */
+										/* U+21D7 */ CANT_MAP_CHARACTER,
+										/* 1495 */
+										/* U+21D8 */ CANT_MAP_CHARACTER,
+										/* 1496 */
+										/* U+21D9 */ CANT_MAP_CHARACTER,
+										/* 1497 */
+										/* U+21DA */ CANT_MAP_CHARACTER,
+										/* 1498 */
+										/* U+21DB */ CANT_MAP_CHARACTER,
+										/* 1499 */
+										/* U+21DC */ CANT_MAP_CHARACTER,
+										/* 1500 */
+										/* U+21DD */ CANT_MAP_CHARACTER,
+										/* 1501 */
+										/* U+21DE */ CANT_MAP_CHARACTER,
+										/* 1502 */
+										/* U+21DF */ CANT_MAP_CHARACTER,
+										/* 1503 */
+										/* U+21E0 */ CANT_MAP_CHARACTER,
+										/* 1504 */
+										/* U+21E1 */ CANT_MAP_CHARACTER,
+										/* 1505 */
+										/* U+21E2 */ CANT_MAP_CHARACTER,
+										/* 1506 */
+										/* U+21E3 */ CANT_MAP_CHARACTER,
+										/* 1507 */
+										/* U+21E4 */ CANT_MAP_CHARACTER,
+										/* 1508 */
+										/* U+21E5 */ CANT_MAP_CHARACTER,
+										/* 1509 */
+										/* U+21E6 */ CANT_MAP_CHARACTER,
+										/* 1510 */
+										/* U+21E7 */ CANT_MAP_CHARACTER,
+										/* 1511 */
+										/* U+21E8 */ CANT_MAP_CHARACTER,
+										/* 1512 */
+										/* U+21E9 */ CANT_MAP_CHARACTER,
+										/* 1513 */
+										/* U+21EA */ CANT_MAP_CHARACTER,
+										/* 1514 */
+										/* U+21EB */ CANT_MAP_CHARACTER,
+										/* 1515 */
+										/* U+21EC */ CANT_MAP_CHARACTER,
+										/* 1516 */
+										/* U+21ED */ CANT_MAP_CHARACTER,
+										/* 1517 */
+										/* U+21EE */ CANT_MAP_CHARACTER,
+										/* 1518 */
+										/* U+21EF */ CANT_MAP_CHARACTER,
+										/* 1519 */
+										/* U+21F0 */ CANT_MAP_CHARACTER,
+										/* 1520 */
+										/* U+21F1 */ CANT_MAP_CHARACTER,
+										/* 1521 */
+										/* U+21F2 */ CANT_MAP_CHARACTER,
+										/* 1522 */
+										/* U+21F3 */ CANT_MAP_CHARACTER,
+										/* 1523 */
+										/* U+21F4 */ CANT_MAP_CHARACTER,
+										/* 1524 */
+										/* U+21F5 */ CANT_MAP_CHARACTER,
+										/* 1525 */
+										/* U+21F6 */ CANT_MAP_CHARACTER,
+										/* 1526 */
+										/* U+21F7 */ CANT_MAP_CHARACTER,
+										/* 1527 */
+										/* U+21F8 */ CANT_MAP_CHARACTER,
+										/* 1528 */
+										/* U+21F9 */ CANT_MAP_CHARACTER,
+										/* 1529 */
+										/* U+21FA */ CANT_MAP_CHARACTER,
+										/* 1530 */
+										/* U+21FB */ CANT_MAP_CHARACTER,
+										/* 1531 */
+										/* U+21FC */ CANT_MAP_CHARACTER,
+										/* 1532 */
+										/* U+21FD */ CANT_MAP_CHARACTER,
+										/* 1533 */
+										/* U+21FE */ CANT_MAP_CHARACTER,
+										/* 1534 */
+										/* U+21FF */ CANT_MAP_CHARACTER,
+										/* 1535 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 512,
+/* U+02-- */ 768,
+/* U+03-- */ 0,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 1024,
+/* U+21-- */ 1280,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 0,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_w1251.h b/src/intl/cs_w1251.h
new file mode 100644
index 0000000000..84c0999ae5
--- /dev/null
+++ b/src/intl/cs_w1251.h
@@ -0,0 +1,3126 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/WINDOWS/CP1251.TXT 
+
+#
+#    Name:     cp1251 to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/15/98
+#
+#    Contact:       cpxlate@microsoft.com
+#
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp1251 code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp1251 order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0A	0x000A	#LINE FEED
+0x0B	0x000B	#VERTICAL TABULATION
+0x0C	0x000C	#FORM FEED
+0x0D	0x000D	#CARRIAGE RETURN
+0x0E	0x000E	#SHIFT OUT
+0x0F	0x000F	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1A	0x001A	#SUBSTITUTE
+0x1B	0x001B	#ESCAPE
+0x1C	0x001C	#FILE SEPARATOR
+0x1D	0x001D	#GROUP SEPARATOR
+0x1E	0x001E	#RECORD SEPARATOR
+0x1F	0x001F	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2A	0x002A	#ASTERISK
+0x2B	0x002B	#PLUS SIGN
+0x2C	0x002C	#COMMA
+0x2D	0x002D	#HYPHEN-MINUS
+0x2E	0x002E	#FULL STOP
+0x2F	0x002F	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3A	0x003A	#COLON
+0x3B	0x003B	#SEMICOLON
+0x3C	0x003C	#LESS-THAN SIGN
+0x3D	0x003D	#EQUALS SIGN
+0x3E	0x003E	#GREATER-THAN SIGN
+0x3F	0x003F	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4A	0x004A	#LATIN CAPITAL LETTER J
+0x4B	0x004B	#LATIN CAPITAL LETTER K
+0x4C	0x004C	#LATIN CAPITAL LETTER L
+0x4D	0x004D	#LATIN CAPITAL LETTER M
+0x4E	0x004E	#LATIN CAPITAL LETTER N
+0x4F	0x004F	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5A	0x005A	#LATIN CAPITAL LETTER Z
+0x5B	0x005B	#LEFT SQUARE BRACKET
+0x5C	0x005C	#REVERSE SOLIDUS
+0x5D	0x005D	#RIGHT SQUARE BRACKET
+0x5E	0x005E	#CIRCUMFLEX ACCENT
+0x5F	0x005F	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6A	0x006A	#LATIN SMALL LETTER J
+0x6B	0x006B	#LATIN SMALL LETTER K
+0x6C	0x006C	#LATIN SMALL LETTER L
+0x6D	0x006D	#LATIN SMALL LETTER M
+0x6E	0x006E	#LATIN SMALL LETTER N
+0x6F	0x006F	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7A	0x007A	#LATIN SMALL LETTER Z
+0x7B	0x007B	#LEFT CURLY BRACKET
+0x7C	0x007C	#VERTICAL LINE
+0x7D	0x007D	#RIGHT CURLY BRACKET
+0x7E	0x007E	#TILDE
+0x7F	0x007F	#DELETE
+0x80	0x0402	#CYRILLIC CAPITAL LETTER DJE
+0x81	0x0403	#CYRILLIC CAPITAL LETTER GJE
+0x82	0x201A	#SINGLE LOW-9 QUOTATION MARK
+0x83	0x0453	#CYRILLIC SMALL LETTER GJE
+0x84	0x201E	#DOUBLE LOW-9 QUOTATION MARK
+0x85	0x2026	#HORIZONTAL ELLIPSIS
+0x86	0x2020	#DAGGER
+0x87	0x2021	#DOUBLE DAGGER
+0x88	0x20AC	#EURO SIGN
+0x89	0x2030	#PER MILLE SIGN
+0x8A	0x0409	#CYRILLIC CAPITAL LETTER LJE
+0x8B	0x2039	#SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+0x8C	0x040A	#CYRILLIC CAPITAL LETTER NJE
+0x8D	0x040C	#CYRILLIC CAPITAL LETTER KJE
+0x8E	0x040B	#CYRILLIC CAPITAL LETTER TSHE
+0x8F	0x040F	#CYRILLIC CAPITAL LETTER DZHE
+0x90	0x0452	#CYRILLIC SMALL LETTER DJE
+0x91	0x2018	#LEFT SINGLE QUOTATION MARK
+0x92	0x2019	#RIGHT SINGLE QUOTATION MARK
+0x93	0x201C	#LEFT DOUBLE QUOTATION MARK
+0x94	0x201D	#RIGHT DOUBLE QUOTATION MARK
+0x95	0x2022	#BULLET
+0x96	0x2013	#EN DASH
+0x97	0x2014	#EM DASH
+0x98	      	#UNDEFINED
+0x99	0x2122	#TRADE MARK SIGN
+0x9A	0x0459	#CYRILLIC SMALL LETTER LJE
+0x9B	0x203A	#SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+0x9C	0x045A	#CYRILLIC SMALL LETTER NJE
+0x9D	0x045C	#CYRILLIC SMALL LETTER KJE
+0x9E	0x045B	#CYRILLIC SMALL LETTER TSHE
+0x9F	0x045F	#CYRILLIC SMALL LETTER DZHE
+0xA0	0x00A0	#NO-BREAK SPACE
+0xA1	0x040E	#CYRILLIC CAPITAL LETTER SHORT U
+0xA2	0x045E	#CYRILLIC SMALL LETTER SHORT U
+0xA3	0x0408	#CYRILLIC CAPITAL LETTER JE
+0xA4	0x00A4	#CURRENCY SIGN
+0xA5	0x0490	#CYRILLIC CAPITAL LETTER GHE WITH UPTURN
+0xA6	0x00A6	#BROKEN BAR
+0xA7	0x00A7	#SECTION SIGN
+0xA8	0x0401	#CYRILLIC CAPITAL LETTER IO
+0xA9	0x00A9	#COPYRIGHT SIGN
+0xAA	0x0404	#CYRILLIC CAPITAL LETTER UKRAINIAN IE
+0xAB	0x00AB	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xAC	0x00AC	#NOT SIGN
+0xAD	0x00AD	#SOFT HYPHEN
+0xAE	0x00AE	#REGISTERED SIGN
+0xAF	0x0407	#CYRILLIC CAPITAL LETTER YI
+0xB0	0x00B0	#DEGREE SIGN
+0xB1	0x00B1	#PLUS-MINUS SIGN
+0xB2	0x0406	#CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
+0xB3	0x0456	#CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
+0xB4	0x0491	#CYRILLIC SMALL LETTER GHE WITH UPTURN
+0xB5	0x00B5	#MICRO SIGN
+0xB6	0x00B6	#PILCROW SIGN
+0xB7	0x00B7	#MIDDLE DOT
+0xB8	0x0451	#CYRILLIC SMALL LETTER IO
+0xB9	0x2116	#NUMERO SIGN
+0xBA	0x0454	#CYRILLIC SMALL LETTER UKRAINIAN IE
+0xBB	0x00BB	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xBC	0x0458	#CYRILLIC SMALL LETTER JE
+0xBD	0x0405	#CYRILLIC CAPITAL LETTER DZE
+0xBE	0x0455	#CYRILLIC SMALL LETTER DZE
+0xBF	0x0457	#CYRILLIC SMALL LETTER YI
+0xC0	0x0410	#CYRILLIC CAPITAL LETTER A
+0xC1	0x0411	#CYRILLIC CAPITAL LETTER BE
+0xC2	0x0412	#CYRILLIC CAPITAL LETTER VE
+0xC3	0x0413	#CYRILLIC CAPITAL LETTER GHE
+0xC4	0x0414	#CYRILLIC CAPITAL LETTER DE
+0xC5	0x0415	#CYRILLIC CAPITAL LETTER IE
+0xC6	0x0416	#CYRILLIC CAPITAL LETTER ZHE
+0xC7	0x0417	#CYRILLIC CAPITAL LETTER ZE
+0xC8	0x0418	#CYRILLIC CAPITAL LETTER I
+0xC9	0x0419	#CYRILLIC CAPITAL LETTER SHORT I
+0xCA	0x041A	#CYRILLIC CAPITAL LETTER KA
+0xCB	0x041B	#CYRILLIC CAPITAL LETTER EL
+0xCC	0x041C	#CYRILLIC CAPITAL LETTER EM
+0xCD	0x041D	#CYRILLIC CAPITAL LETTER EN
+0xCE	0x041E	#CYRILLIC CAPITAL LETTER O
+0xCF	0x041F	#CYRILLIC CAPITAL LETTER PE
+0xD0	0x0420	#CYRILLIC CAPITAL LETTER ER
+0xD1	0x0421	#CYRILLIC CAPITAL LETTER ES
+0xD2	0x0422	#CYRILLIC CAPITAL LETTER TE
+0xD3	0x0423	#CYRILLIC CAPITAL LETTER U
+0xD4	0x0424	#CYRILLIC CAPITAL LETTER EF
+0xD5	0x0425	#CYRILLIC CAPITAL LETTER HA
+0xD6	0x0426	#CYRILLIC CAPITAL LETTER TSE
+0xD7	0x0427	#CYRILLIC CAPITAL LETTER CHE
+0xD8	0x0428	#CYRILLIC CAPITAL LETTER SHA
+0xD9	0x0429	#CYRILLIC CAPITAL LETTER SHCHA
+0xDA	0x042A	#CYRILLIC CAPITAL LETTER HARD SIGN
+0xDB	0x042B	#CYRILLIC CAPITAL LETTER YERU
+0xDC	0x042C	#CYRILLIC CAPITAL LETTER SOFT SIGN
+0xDD	0x042D	#CYRILLIC CAPITAL LETTER E
+0xDE	0x042E	#CYRILLIC CAPITAL LETTER YU
+0xDF	0x042F	#CYRILLIC CAPITAL LETTER YA
+0xE0	0x0430	#CYRILLIC SMALL LETTER A
+0xE1	0x0431	#CYRILLIC SMALL LETTER BE
+0xE2	0x0432	#CYRILLIC SMALL LETTER VE
+0xE3	0x0433	#CYRILLIC SMALL LETTER GHE
+0xE4	0x0434	#CYRILLIC SMALL LETTER DE
+0xE5	0x0435	#CYRILLIC SMALL LETTER IE
+0xE6	0x0436	#CYRILLIC SMALL LETTER ZHE
+0xE7	0x0437	#CYRILLIC SMALL LETTER ZE
+0xE8	0x0438	#CYRILLIC SMALL LETTER I
+0xE9	0x0439	#CYRILLIC SMALL LETTER SHORT I
+0xEA	0x043A	#CYRILLIC SMALL LETTER KA
+0xEB	0x043B	#CYRILLIC SMALL LETTER EL
+0xEC	0x043C	#CYRILLIC SMALL LETTER EM
+0xED	0x043D	#CYRILLIC SMALL LETTER EN
+0xEE	0x043E	#CYRILLIC SMALL LETTER O
+0xEF	0x043F	#CYRILLIC SMALL LETTER PE
+0xF0	0x0440	#CYRILLIC SMALL LETTER ER
+0xF1	0x0441	#CYRILLIC SMALL LETTER ES
+0xF2	0x0442	#CYRILLIC SMALL LETTER TE
+0xF3	0x0443	#CYRILLIC SMALL LETTER U
+0xF4	0x0444	#CYRILLIC SMALL LETTER EF
+0xF5	0x0445	#CYRILLIC SMALL LETTER HA
+0xF6	0x0446	#CYRILLIC SMALL LETTER TSE
+0xF7	0x0447	#CYRILLIC SMALL LETTER CHE
+0xF8	0x0448	#CYRILLIC SMALL LETTER SHA
+0xF9	0x0449	#CYRILLIC SMALL LETTER SHCHA
+0xFA	0x044A	#CYRILLIC SMALL LETTER HARD SIGN
+0xFB	0x044B	#CYRILLIC SMALL LETTER YERU
+0xFC	0x044C	#CYRILLIC SMALL LETTER SOFT SIGN
+0xFD	0x044D	#CYRILLIC SMALL LETTER E
+0xFE	0x044E	#CYRILLIC SMALL LETTER YU
+0xFF	0x044F	#CYRILLIC SMALL LETTER YA
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x0402 /*                   CYRILLIC CAPITAL LETTER DJE */ ,
+	/* 81 */ 0x0403 /*                   CYRILLIC CAPITAL LETTER GJE */ ,
+	/* 82 */ 0x201A /*                   SINGLE LOW-9 QUOTATION MARK */ ,
+	/* 83 */ 0x0453 /*                     CYRILLIC SMALL LETTER GJE */ ,
+	/* 84 */ 0x201E /*                   DOUBLE LOW-9 QUOTATION MARK */ ,
+	/* 85 */ 0x2026 /*                           HORIZONTAL ELLIPSIS */ ,
+	/* 86 */ 0x2020 /*                                        DAGGER */ ,
+	/* 87 */ 0x2021 /*                                 DOUBLE DAGGER */ ,
+	/* 88 */ 0x20AC /*                                     EURO SIGN */ ,
+	/* 89 */ 0x2030 /*                                PER MILLE SIGN */ ,
+	/* 8A */ 0x0409 /*                   CYRILLIC CAPITAL LETTER LJE */ ,
+	/* 8B */ 0x2039 /*     SINGLE LEFT-POINTING ANGLE QUOTATION MARK */ ,
+	/* 8C */ 0x040A /*                   CYRILLIC CAPITAL LETTER NJE */ ,
+	/* 8D */ 0x040C /*                   CYRILLIC CAPITAL LETTER KJE */ ,
+	/* 8E */ 0x040B /*                  CYRILLIC CAPITAL LETTER TSHE */ ,
+	/* 8F */ 0x040F /*                  CYRILLIC CAPITAL LETTER DZHE */ ,
+	/* 90 */ 0x0452 /*                     CYRILLIC SMALL LETTER DJE */ ,
+	/* 91 */ 0x2018 /*                    LEFT SINGLE QUOTATION MARK */ ,
+	/* 92 */ 0x2019 /*                   RIGHT SINGLE QUOTATION MARK */ ,
+	/* 93 */ 0x201C /*                    LEFT DOUBLE QUOTATION MARK */ ,
+	/* 94 */ 0x201D /*                   RIGHT DOUBLE QUOTATION MARK */ ,
+	/* 95 */ 0x2022 /*                                        BULLET */ ,
+	/* 96 */ 0x2013 /*                                       EN DASH */ ,
+	/* 97 */ 0x2014 /*                                       EM DASH */ ,
+/* 98 */ CANT_MAP_CHARACTER,
+	/* 99 */ 0x2122 /*                               TRADE MARK SIGN */ ,
+	/* 9A */ 0x0459 /*                     CYRILLIC SMALL LETTER LJE */ ,
+	/* 9B */ 0x203A /*    SINGLE RIGHT-POINTING ANGLE QUOTATION MARK */ ,
+	/* 9C */ 0x045A /*                     CYRILLIC SMALL LETTER NJE */ ,
+	/* 9D */ 0x045C /*                     CYRILLIC SMALL LETTER KJE */ ,
+	/* 9E */ 0x045B /*                    CYRILLIC SMALL LETTER TSHE */ ,
+	/* 9F */ 0x045F /*                    CYRILLIC SMALL LETTER DZHE */ ,
+	/* A0 */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+	/* A1 */ 0x040E /*               CYRILLIC CAPITAL LETTER SHORT U */ ,
+	/* A2 */ 0x045E /*                 CYRILLIC SMALL LETTER SHORT U */ ,
+	/* A3 */ 0x0408 /*                    CYRILLIC CAPITAL LETTER JE */ ,
+	/* A4 */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* A5 */ 0x0490 /*       CYRILLIC CAPITAL LETTER GHE WITH UPTURN */ ,
+	/* A6 */ 0x00A6 /*                                    BROKEN BAR */ ,
+	/* A7 */ 0x00A7 /*                                  SECTION SIGN */ ,
+	/* A8 */ 0x0401 /*                    CYRILLIC CAPITAL LETTER IO */ ,
+	/* A9 */ 0x00A9 /*                                COPYRIGHT SIGN */ ,
+	/* AA */ 0x0404 /*          CYRILLIC CAPITAL LETTER UKRAINIAN IE */ ,
+	/* AB */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AC */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AD */ 0x00AD /*                                   SOFT HYPHEN */ ,
+	/* AE */ 0x00AE /*                               REGISTERED SIGN */ ,
+	/* AF */ 0x0407 /*                    CYRILLIC CAPITAL LETTER YI */ ,
+	/* B0 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* B1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* B2 */ 0x0406 /* CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I */ ,
+	/* B3 */ 0x0456 /* CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I */ ,
+	/* B4 */ 0x0491 /*         CYRILLIC SMALL LETTER GHE WITH UPTURN */ ,
+	/* B5 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* B6 */ 0x00B6 /*                                  PILCROW SIGN */ ,
+	/* B7 */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* B8 */ 0x0451 /*                      CYRILLIC SMALL LETTER IO */ ,
+	/* B9 */ 0x2116 /*                                   NUMERO SIGN */ ,
+	/* BA */ 0x0454 /*            CYRILLIC SMALL LETTER UKRAINIAN IE */ ,
+	/* BB */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* BC */ 0x0458 /*                      CYRILLIC SMALL LETTER JE */ ,
+	/* BD */ 0x0405 /*                   CYRILLIC CAPITAL LETTER DZE */ ,
+	/* BE */ 0x0455 /*                     CYRILLIC SMALL LETTER DZE */ ,
+	/* BF */ 0x0457 /*                      CYRILLIC SMALL LETTER YI */ ,
+	/* C0 */ 0x0410 /*                     CYRILLIC CAPITAL LETTER A */ ,
+	/* C1 */ 0x0411 /*                    CYRILLIC CAPITAL LETTER BE */ ,
+	/* C2 */ 0x0412 /*                    CYRILLIC CAPITAL LETTER VE */ ,
+	/* C3 */ 0x0413 /*                   CYRILLIC CAPITAL LETTER GHE */ ,
+	/* C4 */ 0x0414 /*                    CYRILLIC CAPITAL LETTER DE */ ,
+	/* C5 */ 0x0415 /*                    CYRILLIC CAPITAL LETTER IE */ ,
+	/* C6 */ 0x0416 /*                   CYRILLIC CAPITAL LETTER ZHE */ ,
+	/* C7 */ 0x0417 /*                    CYRILLIC CAPITAL LETTER ZE */ ,
+	/* C8 */ 0x0418 /*                     CYRILLIC CAPITAL LETTER I */ ,
+	/* C9 */ 0x0419 /*               CYRILLIC CAPITAL LETTER SHORT I */ ,
+	/* CA */ 0x041A /*                    CYRILLIC CAPITAL LETTER KA */ ,
+	/* CB */ 0x041B /*                    CYRILLIC CAPITAL LETTER EL */ ,
+	/* CC */ 0x041C /*                    CYRILLIC CAPITAL LETTER EM */ ,
+	/* CD */ 0x041D /*                    CYRILLIC CAPITAL LETTER EN */ ,
+	/* CE */ 0x041E /*                     CYRILLIC CAPITAL LETTER O */ ,
+	/* CF */ 0x041F /*                    CYRILLIC CAPITAL LETTER PE */ ,
+	/* D0 */ 0x0420 /*                    CYRILLIC CAPITAL LETTER ER */ ,
+	/* D1 */ 0x0421 /*                    CYRILLIC CAPITAL LETTER ES */ ,
+	/* D2 */ 0x0422 /*                    CYRILLIC CAPITAL LETTER TE */ ,
+	/* D3 */ 0x0423 /*                     CYRILLIC CAPITAL LETTER U */ ,
+	/* D4 */ 0x0424 /*                    CYRILLIC CAPITAL LETTER EF */ ,
+	/* D5 */ 0x0425 /*                    CYRILLIC CAPITAL LETTER HA */ ,
+	/* D6 */ 0x0426 /*                   CYRILLIC CAPITAL LETTER TSE */ ,
+	/* D7 */ 0x0427 /*                   CYRILLIC CAPITAL LETTER CHE */ ,
+	/* D8 */ 0x0428 /*                   CYRILLIC CAPITAL LETTER SHA */ ,
+	/* D9 */ 0x0429 /*                 CYRILLIC CAPITAL LETTER SHCHA */ ,
+	/* DA */ 0x042A /*             CYRILLIC CAPITAL LETTER HARD SIGN */ ,
+	/* DB */ 0x042B /*                  CYRILLIC CAPITAL LETTER YERU */ ,
+	/* DC */ 0x042C /*             CYRILLIC CAPITAL LETTER SOFT SIGN */ ,
+	/* DD */ 0x042D /*                     CYRILLIC CAPITAL LETTER E */ ,
+	/* DE */ 0x042E /*                    CYRILLIC CAPITAL LETTER YU */ ,
+	/* DF */ 0x042F /*                    CYRILLIC CAPITAL LETTER YA */ ,
+	/* E0 */ 0x0430 /*                       CYRILLIC SMALL LETTER A */ ,
+	/* E1 */ 0x0431 /*                      CYRILLIC SMALL LETTER BE */ ,
+	/* E2 */ 0x0432 /*                      CYRILLIC SMALL LETTER VE */ ,
+	/* E3 */ 0x0433 /*                     CYRILLIC SMALL LETTER GHE */ ,
+	/* E4 */ 0x0434 /*                      CYRILLIC SMALL LETTER DE */ ,
+	/* E5 */ 0x0435 /*                      CYRILLIC SMALL LETTER IE */ ,
+	/* E6 */ 0x0436 /*                     CYRILLIC SMALL LETTER ZHE */ ,
+	/* E7 */ 0x0437 /*                      CYRILLIC SMALL LETTER ZE */ ,
+	/* E8 */ 0x0438 /*                       CYRILLIC SMALL LETTER I */ ,
+	/* E9 */ 0x0439 /*                 CYRILLIC SMALL LETTER SHORT I */ ,
+	/* EA */ 0x043A /*                      CYRILLIC SMALL LETTER KA */ ,
+	/* EB */ 0x043B /*                      CYRILLIC SMALL LETTER EL */ ,
+	/* EC */ 0x043C /*                      CYRILLIC SMALL LETTER EM */ ,
+	/* ED */ 0x043D /*                      CYRILLIC SMALL LETTER EN */ ,
+	/* EE */ 0x043E /*                       CYRILLIC SMALL LETTER O */ ,
+	/* EF */ 0x043F /*                      CYRILLIC SMALL LETTER PE */ ,
+	/* F0 */ 0x0440 /*                      CYRILLIC SMALL LETTER ER */ ,
+	/* F1 */ 0x0441 /*                      CYRILLIC SMALL LETTER ES */ ,
+	/* F2 */ 0x0442 /*                      CYRILLIC SMALL LETTER TE */ ,
+	/* F3 */ 0x0443 /*                       CYRILLIC SMALL LETTER U */ ,
+	/* F4 */ 0x0444 /*                      CYRILLIC SMALL LETTER EF */ ,
+	/* F5 */ 0x0445 /*                      CYRILLIC SMALL LETTER HA */ ,
+	/* F6 */ 0x0446 /*                     CYRILLIC SMALL LETTER TSE */ ,
+	/* F7 */ 0x0447 /*                     CYRILLIC SMALL LETTER CHE */ ,
+	/* F8 */ 0x0448 /*                     CYRILLIC SMALL LETTER SHA */ ,
+	/* F9 */ 0x0449 /*                   CYRILLIC SMALL LETTER SHCHA */ ,
+	/* FA */ 0x044A /*               CYRILLIC SMALL LETTER HARD SIGN */ ,
+	/* FB */ 0x044B /*                    CYRILLIC SMALL LETTER YERU */ ,
+	/* FC */ 0x044C /*               CYRILLIC SMALL LETTER SOFT SIGN */ ,
+	/* FD */ 0x044D /*                       CYRILLIC SMALL LETTER E */ ,
+	/* FE */ 0x044E /*                      CYRILLIC SMALL LETTER YU */ ,
+	/* FF */ 0x044F /*                      CYRILLIC SMALL LETTER YA */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xA0 /*                                NO-BREAK SPACE */ ,	/* 416 */
+										/* U+00A1 */ CANT_MAP_CHARACTER,
+										/* 417 */
+										/* U+00A2 */ CANT_MAP_CHARACTER,
+										/* 418 */
+										/* U+00A3 */ CANT_MAP_CHARACTER,
+										/* 419 */
+	/* U+00A4 */ 0xA4 /*                                 CURRENCY SIGN */ ,	/* 420 */
+										/* U+00A5 */ CANT_MAP_CHARACTER,
+										/* 421 */
+	/* U+00A6 */ 0xA6 /*                                    BROKEN BAR */ ,	/* 422 */
+	/* U+00A7 */ 0xA7 /*                                  SECTION SIGN */ ,	/* 423 */
+										/* U+00A8 */ CANT_MAP_CHARACTER,
+										/* 424 */
+	/* U+00A9 */ 0xA9 /*                                COPYRIGHT SIGN */ ,	/* 425 */
+										/* U+00AA */ CANT_MAP_CHARACTER,
+										/* 426 */
+	/* U+00AB */ 0xAB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAC /*                                      NOT SIGN */ ,	/* 428 */
+	/* U+00AD */ 0xAD /*                                   SOFT HYPHEN */ ,	/* 429 */
+	/* U+00AE */ 0xAE /*                               REGISTERED SIGN */ ,	/* 430 */
+										/* U+00AF */ CANT_MAP_CHARACTER,
+										/* 431 */
+	/* U+00B0 */ 0xB0 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xB1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+										/* U+00B2 */ CANT_MAP_CHARACTER,
+										/* 434 */
+										/* U+00B3 */ CANT_MAP_CHARACTER,
+										/* 435 */
+										/* U+00B4 */ CANT_MAP_CHARACTER,
+										/* 436 */
+	/* U+00B5 */ 0xB5 /*                                    MICRO SIGN */ ,	/* 437 */
+	/* U+00B6 */ 0xB6 /*                                  PILCROW SIGN */ ,	/* 438 */
+	/* U+00B7 */ 0xB7 /*                                    MIDDLE DOT */ ,	/* 439 */
+										/* U+00B8 */ CANT_MAP_CHARACTER,
+										/* 440 */
+										/* U+00B9 */ CANT_MAP_CHARACTER,
+										/* 441 */
+										/* U+00BA */ CANT_MAP_CHARACTER,
+										/* 442 */
+	/* U+00BB */ 0xBB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+										/* U+00BC */ CANT_MAP_CHARACTER,
+										/* 444 */
+										/* U+00BD */ CANT_MAP_CHARACTER,
+										/* 445 */
+										/* U+00BE */ CANT_MAP_CHARACTER,
+										/* 446 */
+										/* U+00BF */ CANT_MAP_CHARACTER,
+										/* 447 */
+										/* U+00C0 */ CANT_MAP_CHARACTER,
+										/* 448 */
+										/* U+00C1 */ CANT_MAP_CHARACTER,
+										/* 449 */
+										/* U+00C2 */ CANT_MAP_CHARACTER,
+										/* 450 */
+										/* U+00C3 */ CANT_MAP_CHARACTER,
+										/* 451 */
+										/* U+00C4 */ CANT_MAP_CHARACTER,
+										/* 452 */
+										/* U+00C5 */ CANT_MAP_CHARACTER,
+										/* 453 */
+										/* U+00C6 */ CANT_MAP_CHARACTER,
+										/* 454 */
+										/* U+00C7 */ CANT_MAP_CHARACTER,
+										/* 455 */
+										/* U+00C8 */ CANT_MAP_CHARACTER,
+										/* 456 */
+										/* U+00C9 */ CANT_MAP_CHARACTER,
+										/* 457 */
+										/* U+00CA */ CANT_MAP_CHARACTER,
+										/* 458 */
+										/* U+00CB */ CANT_MAP_CHARACTER,
+										/* 459 */
+										/* U+00CC */ CANT_MAP_CHARACTER,
+										/* 460 */
+										/* U+00CD */ CANT_MAP_CHARACTER,
+										/* 461 */
+										/* U+00CE */ CANT_MAP_CHARACTER,
+										/* 462 */
+										/* U+00CF */ CANT_MAP_CHARACTER,
+										/* 463 */
+										/* U+00D0 */ CANT_MAP_CHARACTER,
+										/* 464 */
+										/* U+00D1 */ CANT_MAP_CHARACTER,
+										/* 465 */
+										/* U+00D2 */ CANT_MAP_CHARACTER,
+										/* 466 */
+										/* U+00D3 */ CANT_MAP_CHARACTER,
+										/* 467 */
+										/* U+00D4 */ CANT_MAP_CHARACTER,
+										/* 468 */
+										/* U+00D5 */ CANT_MAP_CHARACTER,
+										/* 469 */
+										/* U+00D6 */ CANT_MAP_CHARACTER,
+										/* 470 */
+										/* U+00D7 */ CANT_MAP_CHARACTER,
+										/* 471 */
+										/* U+00D8 */ CANT_MAP_CHARACTER,
+										/* 472 */
+										/* U+00D9 */ CANT_MAP_CHARACTER,
+										/* 473 */
+										/* U+00DA */ CANT_MAP_CHARACTER,
+										/* 474 */
+										/* U+00DB */ CANT_MAP_CHARACTER,
+										/* 475 */
+										/* U+00DC */ CANT_MAP_CHARACTER,
+										/* 476 */
+										/* U+00DD */ CANT_MAP_CHARACTER,
+										/* 477 */
+										/* U+00DE */ CANT_MAP_CHARACTER,
+										/* 478 */
+										/* U+00DF */ CANT_MAP_CHARACTER,
+										/* 479 */
+										/* U+00E0 */ CANT_MAP_CHARACTER,
+										/* 480 */
+										/* U+00E1 */ CANT_MAP_CHARACTER,
+										/* 481 */
+										/* U+00E2 */ CANT_MAP_CHARACTER,
+										/* 482 */
+										/* U+00E3 */ CANT_MAP_CHARACTER,
+										/* 483 */
+										/* U+00E4 */ CANT_MAP_CHARACTER,
+										/* 484 */
+										/* U+00E5 */ CANT_MAP_CHARACTER,
+										/* 485 */
+										/* U+00E6 */ CANT_MAP_CHARACTER,
+										/* 486 */
+										/* U+00E7 */ CANT_MAP_CHARACTER,
+										/* 487 */
+										/* U+00E8 */ CANT_MAP_CHARACTER,
+										/* 488 */
+										/* U+00E9 */ CANT_MAP_CHARACTER,
+										/* 489 */
+										/* U+00EA */ CANT_MAP_CHARACTER,
+										/* 490 */
+										/* U+00EB */ CANT_MAP_CHARACTER,
+										/* 491 */
+										/* U+00EC */ CANT_MAP_CHARACTER,
+										/* 492 */
+										/* U+00ED */ CANT_MAP_CHARACTER,
+										/* 493 */
+										/* U+00EE */ CANT_MAP_CHARACTER,
+										/* 494 */
+										/* U+00EF */ CANT_MAP_CHARACTER,
+										/* 495 */
+										/* U+00F0 */ CANT_MAP_CHARACTER,
+										/* 496 */
+										/* U+00F1 */ CANT_MAP_CHARACTER,
+										/* 497 */
+										/* U+00F2 */ CANT_MAP_CHARACTER,
+										/* 498 */
+										/* U+00F3 */ CANT_MAP_CHARACTER,
+										/* 499 */
+										/* U+00F4 */ CANT_MAP_CHARACTER,
+										/* 500 */
+										/* U+00F5 */ CANT_MAP_CHARACTER,
+										/* 501 */
+										/* U+00F6 */ CANT_MAP_CHARACTER,
+										/* 502 */
+										/* U+00F7 */ CANT_MAP_CHARACTER,
+										/* 503 */
+										/* U+00F8 */ CANT_MAP_CHARACTER,
+										/* 504 */
+										/* U+00F9 */ CANT_MAP_CHARACTER,
+										/* 505 */
+										/* U+00FA */ CANT_MAP_CHARACTER,
+										/* 506 */
+										/* U+00FB */ CANT_MAP_CHARACTER,
+										/* 507 */
+										/* U+00FC */ CANT_MAP_CHARACTER,
+										/* 508 */
+										/* U+00FD */ CANT_MAP_CHARACTER,
+										/* 509 */
+										/* U+00FE */ CANT_MAP_CHARACTER,
+										/* 510 */
+										/* U+00FF */ CANT_MAP_CHARACTER,
+										/* 511 */
+										/* U+0400 */ CANT_MAP_CHARACTER,
+										/* 512 */
+	/* U+0401 */ 0xA8 /*                    CYRILLIC CAPITAL LETTER IO */ ,	/* 513 */
+	/* U+0402 */ 0x80 /*                   CYRILLIC CAPITAL LETTER DJE */ ,	/* 514 */
+	/* U+0403 */ 0x81 /*                   CYRILLIC CAPITAL LETTER GJE */ ,	/* 515 */
+	/* U+0404 */ 0xAA /*          CYRILLIC CAPITAL LETTER UKRAINIAN IE */ ,	/* 516 */
+	/* U+0405 */ 0xBD /*                   CYRILLIC CAPITAL LETTER DZE */ ,	/* 517 */
+	/* U+0406 */ 0xB2 /* CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I */ ,	/* 518 */
+	/* U+0407 */ 0xAF /*                    CYRILLIC CAPITAL LETTER YI */ ,	/* 519 */
+	/* U+0408 */ 0xA3 /*                    CYRILLIC CAPITAL LETTER JE */ ,	/* 520 */
+	/* U+0409 */ 0x8A /*                   CYRILLIC CAPITAL LETTER LJE */ ,	/* 521 */
+	/* U+040A */ 0x8C /*                   CYRILLIC CAPITAL LETTER NJE */ ,	/* 522 */
+	/* U+040B */ 0x8E /*                  CYRILLIC CAPITAL LETTER TSHE */ ,	/* 523 */
+	/* U+040C */ 0x8D /*                   CYRILLIC CAPITAL LETTER KJE */ ,	/* 524 */
+										/* U+040D */ CANT_MAP_CHARACTER,
+										/* 525 */
+	/* U+040E */ 0xA1 /*               CYRILLIC CAPITAL LETTER SHORT U */ ,	/* 526 */
+	/* U+040F */ 0x8F /*                  CYRILLIC CAPITAL LETTER DZHE */ ,	/* 527 */
+	/* U+0410 */ 0xC0 /*                     CYRILLIC CAPITAL LETTER A */ ,	/* 528 */
+	/* U+0411 */ 0xC1 /*                    CYRILLIC CAPITAL LETTER BE */ ,	/* 529 */
+	/* U+0412 */ 0xC2 /*                    CYRILLIC CAPITAL LETTER VE */ ,	/* 530 */
+	/* U+0413 */ 0xC3 /*                   CYRILLIC CAPITAL LETTER GHE */ ,	/* 531 */
+	/* U+0414 */ 0xC4 /*                    CYRILLIC CAPITAL LETTER DE */ ,	/* 532 */
+	/* U+0415 */ 0xC5 /*                    CYRILLIC CAPITAL LETTER IE */ ,	/* 533 */
+	/* U+0416 */ 0xC6 /*                   CYRILLIC CAPITAL LETTER ZHE */ ,	/* 534 */
+	/* U+0417 */ 0xC7 /*                    CYRILLIC CAPITAL LETTER ZE */ ,	/* 535 */
+	/* U+0418 */ 0xC8 /*                     CYRILLIC CAPITAL LETTER I */ ,	/* 536 */
+	/* U+0419 */ 0xC9 /*               CYRILLIC CAPITAL LETTER SHORT I */ ,	/* 537 */
+	/* U+041A */ 0xCA /*                    CYRILLIC CAPITAL LETTER KA */ ,	/* 538 */
+	/* U+041B */ 0xCB /*                    CYRILLIC CAPITAL LETTER EL */ ,	/* 539 */
+	/* U+041C */ 0xCC /*                    CYRILLIC CAPITAL LETTER EM */ ,	/* 540 */
+	/* U+041D */ 0xCD /*                    CYRILLIC CAPITAL LETTER EN */ ,	/* 541 */
+	/* U+041E */ 0xCE /*                     CYRILLIC CAPITAL LETTER O */ ,	/* 542 */
+	/* U+041F */ 0xCF /*                    CYRILLIC CAPITAL LETTER PE */ ,	/* 543 */
+	/* U+0420 */ 0xD0 /*                    CYRILLIC CAPITAL LETTER ER */ ,	/* 544 */
+	/* U+0421 */ 0xD1 /*                    CYRILLIC CAPITAL LETTER ES */ ,	/* 545 */
+	/* U+0422 */ 0xD2 /*                    CYRILLIC CAPITAL LETTER TE */ ,	/* 546 */
+	/* U+0423 */ 0xD3 /*                     CYRILLIC CAPITAL LETTER U */ ,	/* 547 */
+	/* U+0424 */ 0xD4 /*                    CYRILLIC CAPITAL LETTER EF */ ,	/* 548 */
+	/* U+0425 */ 0xD5 /*                    CYRILLIC CAPITAL LETTER HA */ ,	/* 549 */
+	/* U+0426 */ 0xD6 /*                   CYRILLIC CAPITAL LETTER TSE */ ,	/* 550 */
+	/* U+0427 */ 0xD7 /*                   CYRILLIC CAPITAL LETTER CHE */ ,	/* 551 */
+	/* U+0428 */ 0xD8 /*                   CYRILLIC CAPITAL LETTER SHA */ ,	/* 552 */
+	/* U+0429 */ 0xD9 /*                 CYRILLIC CAPITAL LETTER SHCHA */ ,	/* 553 */
+	/* U+042A */ 0xDA /*             CYRILLIC CAPITAL LETTER HARD SIGN */ ,	/* 554 */
+	/* U+042B */ 0xDB /*                  CYRILLIC CAPITAL LETTER YERU */ ,	/* 555 */
+	/* U+042C */ 0xDC /*             CYRILLIC CAPITAL LETTER SOFT SIGN */ ,	/* 556 */
+	/* U+042D */ 0xDD /*                     CYRILLIC CAPITAL LETTER E */ ,	/* 557 */
+	/* U+042E */ 0xDE /*                    CYRILLIC CAPITAL LETTER YU */ ,	/* 558 */
+	/* U+042F */ 0xDF /*                    CYRILLIC CAPITAL LETTER YA */ ,	/* 559 */
+	/* U+0430 */ 0xE0 /*                       CYRILLIC SMALL LETTER A */ ,	/* 560 */
+	/* U+0431 */ 0xE1 /*                      CYRILLIC SMALL LETTER BE */ ,	/* 561 */
+	/* U+0432 */ 0xE2 /*                      CYRILLIC SMALL LETTER VE */ ,	/* 562 */
+	/* U+0433 */ 0xE3 /*                     CYRILLIC SMALL LETTER GHE */ ,	/* 563 */
+	/* U+0434 */ 0xE4 /*                      CYRILLIC SMALL LETTER DE */ ,	/* 564 */
+	/* U+0435 */ 0xE5 /*                      CYRILLIC SMALL LETTER IE */ ,	/* 565 */
+	/* U+0436 */ 0xE6 /*                     CYRILLIC SMALL LETTER ZHE */ ,	/* 566 */
+	/* U+0437 */ 0xE7 /*                      CYRILLIC SMALL LETTER ZE */ ,	/* 567 */
+	/* U+0438 */ 0xE8 /*                       CYRILLIC SMALL LETTER I */ ,	/* 568 */
+	/* U+0439 */ 0xE9 /*                 CYRILLIC SMALL LETTER SHORT I */ ,	/* 569 */
+	/* U+043A */ 0xEA /*                      CYRILLIC SMALL LETTER KA */ ,	/* 570 */
+	/* U+043B */ 0xEB /*                      CYRILLIC SMALL LETTER EL */ ,	/* 571 */
+	/* U+043C */ 0xEC /*                      CYRILLIC SMALL LETTER EM */ ,	/* 572 */
+	/* U+043D */ 0xED /*                      CYRILLIC SMALL LETTER EN */ ,	/* 573 */
+	/* U+043E */ 0xEE /*                       CYRILLIC SMALL LETTER O */ ,	/* 574 */
+	/* U+043F */ 0xEF /*                      CYRILLIC SMALL LETTER PE */ ,	/* 575 */
+	/* U+0440 */ 0xF0 /*                      CYRILLIC SMALL LETTER ER */ ,	/* 576 */
+	/* U+0441 */ 0xF1 /*                      CYRILLIC SMALL LETTER ES */ ,	/* 577 */
+	/* U+0442 */ 0xF2 /*                      CYRILLIC SMALL LETTER TE */ ,	/* 578 */
+	/* U+0443 */ 0xF3 /*                       CYRILLIC SMALL LETTER U */ ,	/* 579 */
+	/* U+0444 */ 0xF4 /*                      CYRILLIC SMALL LETTER EF */ ,	/* 580 */
+	/* U+0445 */ 0xF5 /*                      CYRILLIC SMALL LETTER HA */ ,	/* 581 */
+	/* U+0446 */ 0xF6 /*                     CYRILLIC SMALL LETTER TSE */ ,	/* 582 */
+	/* U+0447 */ 0xF7 /*                     CYRILLIC SMALL LETTER CHE */ ,	/* 583 */
+	/* U+0448 */ 0xF8 /*                     CYRILLIC SMALL LETTER SHA */ ,	/* 584 */
+	/* U+0449 */ 0xF9 /*                   CYRILLIC SMALL LETTER SHCHA */ ,	/* 585 */
+	/* U+044A */ 0xFA /*               CYRILLIC SMALL LETTER HARD SIGN */ ,	/* 586 */
+	/* U+044B */ 0xFB /*                    CYRILLIC SMALL LETTER YERU */ ,	/* 587 */
+	/* U+044C */ 0xFC /*               CYRILLIC SMALL LETTER SOFT SIGN */ ,	/* 588 */
+	/* U+044D */ 0xFD /*                       CYRILLIC SMALL LETTER E */ ,	/* 589 */
+	/* U+044E */ 0xFE /*                      CYRILLIC SMALL LETTER YU */ ,	/* 590 */
+	/* U+044F */ 0xFF /*                      CYRILLIC SMALL LETTER YA */ ,	/* 591 */
+										/* U+0450 */ CANT_MAP_CHARACTER,
+										/* 592 */
+	/* U+0451 */ 0xB8 /*                      CYRILLIC SMALL LETTER IO */ ,	/* 593 */
+	/* U+0452 */ 0x90 /*                     CYRILLIC SMALL LETTER DJE */ ,	/* 594 */
+	/* U+0453 */ 0x83 /*                     CYRILLIC SMALL LETTER GJE */ ,	/* 595 */
+	/* U+0454 */ 0xBA /*            CYRILLIC SMALL LETTER UKRAINIAN IE */ ,	/* 596 */
+	/* U+0455 */ 0xBE /*                     CYRILLIC SMALL LETTER DZE */ ,	/* 597 */
+	/* U+0456 */ 0xB3 /* CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I */ ,	/* 598 */
+	/* U+0457 */ 0xBF /*                      CYRILLIC SMALL LETTER YI */ ,	/* 599 */
+	/* U+0458 */ 0xBC /*                      CYRILLIC SMALL LETTER JE */ ,	/* 600 */
+	/* U+0459 */ 0x9A /*                     CYRILLIC SMALL LETTER LJE */ ,	/* 601 */
+	/* U+045A */ 0x9C /*                     CYRILLIC SMALL LETTER NJE */ ,	/* 602 */
+	/* U+045B */ 0x9E /*                    CYRILLIC SMALL LETTER TSHE */ ,	/* 603 */
+	/* U+045C */ 0x9D /*                     CYRILLIC SMALL LETTER KJE */ ,	/* 604 */
+										/* U+045D */ CANT_MAP_CHARACTER,
+										/* 605 */
+	/* U+045E */ 0xA2 /*                 CYRILLIC SMALL LETTER SHORT U */ ,	/* 606 */
+	/* U+045F */ 0x9F /*                    CYRILLIC SMALL LETTER DZHE */ ,	/* 607 */
+										/* U+0460 */ CANT_MAP_CHARACTER,
+										/* 608 */
+										/* U+0461 */ CANT_MAP_CHARACTER,
+										/* 609 */
+										/* U+0462 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0463 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0464 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0465 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0466 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0467 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0468 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0469 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+046A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+046B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+046C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+046D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+046E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+046F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0470 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0471 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0472 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0473 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0474 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0475 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0476 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0477 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0478 */ CANT_MAP_CHARACTER,
+										/* 632 */
+										/* U+0479 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+047A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+047B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+047C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+047D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+047E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+047F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0480 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0481 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0482 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0483 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0484 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0485 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0486 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0487 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0488 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0489 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+048A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+048B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+048C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+048D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+048E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+048F */ CANT_MAP_CHARACTER,
+										/* 655 */
+	/* U+0490 */ 0xA5 /*       CYRILLIC CAPITAL LETTER GHE WITH UPTURN */ ,	/* 656 */
+	/* U+0491 */ 0xB4 /*         CYRILLIC SMALL LETTER GHE WITH UPTURN */ ,	/* 657 */
+										/* U+0492 */ CANT_MAP_CHARACTER,
+										/* 658 */
+										/* U+0493 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0494 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0495 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0496 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0497 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0498 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0499 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+049A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+049B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+049C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+049D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+049E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+049F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+04A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+04A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+04A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+04A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+04A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+04A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+04A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+04A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+04A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+04A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+04AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+04AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+04AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+04AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+04AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+04AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+04B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+04B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+04B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+04B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+04B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+04B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+04B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+04B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+04B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+04B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+04BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+04BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+04BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+04BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+04BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+04BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+04C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+04C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+04C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+04C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+04C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+04C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+04C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+04C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+04C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+04C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+04CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+04CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+04CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+04CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+04CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+04CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+04D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+04D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+04D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+04D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+04D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+04D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+04D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+04D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+04D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+04D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+04DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+04DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+04DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+04DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+04DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+04DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+04E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+04E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+04E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+04E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+04E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+04E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+04E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+04E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+04E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+04E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+04EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+04EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+04EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+04ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+04EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+04EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+04F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+04F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+04F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+04F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+04F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+04F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+04F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+04F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+04F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+04F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+04FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+04FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+04FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+04FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+04FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+04FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 786 */
+	/* U+2013 */ 0x96 /*                                       EN DASH */ ,	/* 787 */
+	/* U+2014 */ 0x97 /*                                       EM DASH */ ,	/* 788 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+2017 */ CANT_MAP_CHARACTER,
+										/* 791 */
+	/* U+2018 */ 0x91 /*                    LEFT SINGLE QUOTATION MARK */ ,	/* 792 */
+	/* U+2019 */ 0x92 /*                   RIGHT SINGLE QUOTATION MARK */ ,	/* 793 */
+	/* U+201A */ 0x82 /*                   SINGLE LOW-9 QUOTATION MARK */ ,	/* 794 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 795 */
+	/* U+201C */ 0x93 /*                    LEFT DOUBLE QUOTATION MARK */ ,	/* 796 */
+	/* U+201D */ 0x94 /*                   RIGHT DOUBLE QUOTATION MARK */ ,	/* 797 */
+	/* U+201E */ 0x84 /*                   DOUBLE LOW-9 QUOTATION MARK */ ,	/* 798 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 799 */
+	/* U+2020 */ 0x86 /*                                        DAGGER */ ,	/* 800 */
+	/* U+2021 */ 0x87 /*                                 DOUBLE DAGGER */ ,	/* 801 */
+	/* U+2022 */ 0x95 /*                                        BULLET */ ,	/* 802 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 805 */
+	/* U+2026 */ 0x85 /*                           HORIZONTAL ELLIPSIS */ ,	/* 806 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 815 */
+	/* U+2030 */ 0x89 /*                                PER MILLE SIGN */ ,	/* 816 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 824 */
+	/* U+2039 */ 0x8B /*     SINGLE LEFT-POINTING ANGLE QUOTATION MARK */ ,	/* 825 */
+	/* U+203A */ 0x9B /*    SINGLE RIGHT-POINTING ANGLE QUOTATION MARK */ ,	/* 826 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+207F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 914 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 915 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 919 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 920 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 931 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 934 */
+										/* U+20A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 937 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+	/* U+20AC */ 0x88 /*                                     EURO SIGN */ ,	/* 940 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 945 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 948 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 949 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 960 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 963 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 964 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 966 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 967 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 987 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 988 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+										/* U+2100 */ CANT_MAP_CHARACTER,
+										/* 1024 */
+										/* U+2101 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+										/* U+2102 */ CANT_MAP_CHARACTER,
+										/* 1026 */
+										/* U+2103 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2104 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2105 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2106 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2107 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2108 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2109 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+210A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+210B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+										/* U+210C */ CANT_MAP_CHARACTER,
+										/* 1036 */
+										/* U+210D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+210E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+210F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+										/* U+2110 */ CANT_MAP_CHARACTER,
+										/* 1040 */
+										/* U+2111 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2112 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+										/* U+2113 */ CANT_MAP_CHARACTER,
+										/* 1043 */
+										/* U+2114 */ CANT_MAP_CHARACTER,
+										/* 1044 */
+										/* U+2115 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+	/* U+2116 */ 0xB9 /*                                   NUMERO SIGN */ ,	/* 1046 */
+										/* U+2117 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+										/* U+2118 */ CANT_MAP_CHARACTER,
+										/* 1048 */
+										/* U+2119 */ CANT_MAP_CHARACTER,
+										/* 1049 */
+										/* U+211A */ CANT_MAP_CHARACTER,
+										/* 1050 */
+										/* U+211B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+										/* U+211C */ CANT_MAP_CHARACTER,
+										/* 1052 */
+										/* U+211D */ CANT_MAP_CHARACTER,
+										/* 1053 */
+										/* U+211E */ CANT_MAP_CHARACTER,
+										/* 1054 */
+										/* U+211F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+										/* U+2120 */ CANT_MAP_CHARACTER,
+										/* 1056 */
+										/* U+2121 */ CANT_MAP_CHARACTER,
+										/* 1057 */
+	/* U+2122 */ 0x99 /*                               TRADE MARK SIGN */ ,	/* 1058 */
+										/* U+2123 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+										/* U+2124 */ CANT_MAP_CHARACTER,
+										/* 1060 */
+										/* U+2125 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+										/* U+2126 */ CANT_MAP_CHARACTER,
+										/* 1062 */
+										/* U+2127 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2128 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2129 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+212A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+212B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+										/* U+212C */ CANT_MAP_CHARACTER,
+										/* 1068 */
+										/* U+212D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+212E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+212F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+										/* U+2130 */ CANT_MAP_CHARACTER,
+										/* 1072 */
+										/* U+2131 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2132 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2133 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+										/* U+2134 */ CANT_MAP_CHARACTER,
+										/* 1076 */
+										/* U+2135 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2136 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2137 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2138 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+										/* U+2139 */ CANT_MAP_CHARACTER,
+										/* 1081 */
+										/* U+213A */ CANT_MAP_CHARACTER,
+										/* 1082 */
+										/* U+213B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+										/* U+213C */ CANT_MAP_CHARACTER,
+										/* 1084 */
+										/* U+213D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+213E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+213F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2140 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2141 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2142 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2143 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2144 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2145 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2146 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2147 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2148 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2149 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+214A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+214B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+214C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+214D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+214E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+214F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+										/* U+2150 */ CANT_MAP_CHARACTER,
+										/* 1104 */
+										/* U+2151 */ CANT_MAP_CHARACTER,
+										/* 1105 */
+										/* U+2152 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2153 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+										/* U+2154 */ CANT_MAP_CHARACTER,
+										/* 1108 */
+										/* U+2155 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2156 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+										/* U+2157 */ CANT_MAP_CHARACTER,
+										/* 1111 */
+										/* U+2158 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2159 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+										/* U+215A */ CANT_MAP_CHARACTER,
+										/* 1114 */
+										/* U+215B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+215C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+										/* U+215D */ CANT_MAP_CHARACTER,
+										/* 1117 */
+										/* U+215E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+215F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+										/* U+2160 */ CANT_MAP_CHARACTER,
+										/* 1120 */
+										/* U+2161 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2162 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+										/* U+2163 */ CANT_MAP_CHARACTER,
+										/* 1123 */
+										/* U+2164 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2165 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+										/* U+2166 */ CANT_MAP_CHARACTER,
+										/* 1126 */
+										/* U+2167 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2168 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+										/* U+2169 */ CANT_MAP_CHARACTER,
+										/* 1129 */
+										/* U+216A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+216B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+										/* U+216C */ CANT_MAP_CHARACTER,
+										/* 1132 */
+										/* U+216D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+216E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+216F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2170 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2171 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2172 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2173 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2174 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2175 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2176 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2177 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2178 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2179 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+217A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+217B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+217C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+217D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+217E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+										/* U+217F */ CANT_MAP_CHARACTER,
+										/* 1151 */
+										/* U+2180 */ CANT_MAP_CHARACTER,
+										/* 1152 */
+										/* U+2181 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2182 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2183 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+										/* U+2184 */ CANT_MAP_CHARACTER,
+										/* 1156 */
+										/* U+2185 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2186 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2187 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+										/* U+2188 */ CANT_MAP_CHARACTER,
+										/* 1160 */
+										/* U+2189 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+218A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+218B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+218C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+218D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+218E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+218F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2190 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+										/* U+2191 */ CANT_MAP_CHARACTER,
+										/* 1169 */
+										/* U+2192 */ CANT_MAP_CHARACTER,
+										/* 1170 */
+										/* U+2193 */ CANT_MAP_CHARACTER,
+										/* 1171 */
+										/* U+2194 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2195 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2196 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2197 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2198 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2199 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+219A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+219B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+219C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+219D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+219E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+219F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+										/* U+21A0 */ CANT_MAP_CHARACTER,
+										/* 1184 */
+										/* U+21A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+21A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+21A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+21A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+21A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+21A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+										/* U+21A7 */ CANT_MAP_CHARACTER,
+										/* 1191 */
+										/* U+21A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+21A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+21AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+21AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+										/* U+21AC */ CANT_MAP_CHARACTER,
+										/* 1196 */
+										/* U+21AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+21AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+21AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+21B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+21B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+21B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+21B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+21B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+21B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+21B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+21B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+21B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+21B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+21BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+21BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+21BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+21BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+21BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+21BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+21C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+21C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+21C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+21C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+21C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+21C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+21C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+21C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+21C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+21C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+21CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+21CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+21CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+21CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+21CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+21CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+21D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+21D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+21D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+21D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+21D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+21D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+21D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+21D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+21D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+21D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+21DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+21DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+21DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+21DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+21DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+21DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+21E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+21E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+21E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+21E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+21E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+21E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+21E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+21E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+21E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+21E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+21EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+21EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+21EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+21ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+21EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+21EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+21F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+21F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+21F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+21F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+21F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+21F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+21F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+21F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+21F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+21F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+21FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+21FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+21FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+21FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+21FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+21FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 0,
+/* U+02-- */ 0,
+/* U+03-- */ 0,
+/* U+04-- */ 512,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 768,
+/* U+21-- */ 1024,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 0,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_w1252.h b/src/intl/cs_w1252.h
new file mode 100644
index 0000000000..4f5e45c3ed
--- /dev/null
+++ b/src/intl/cs_w1252.h
@@ -0,0 +1,3642 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/WINDOWS/CP1252.TXT 
+
+#
+#    Name:     cp1252 to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/15/98
+#
+#    Contact:       cpxlate@microsoft.com
+#
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp1252 code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp1252 order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0A	0x000A	#LINE FEED
+0x0B	0x000B	#VERTICAL TABULATION
+0x0C	0x000C	#FORM FEED
+0x0D	0x000D	#CARRIAGE RETURN
+0x0E	0x000E	#SHIFT OUT
+0x0F	0x000F	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1A	0x001A	#SUBSTITUTE
+0x1B	0x001B	#ESCAPE
+0x1C	0x001C	#FILE SEPARATOR
+0x1D	0x001D	#GROUP SEPARATOR
+0x1E	0x001E	#RECORD SEPARATOR
+0x1F	0x001F	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2A	0x002A	#ASTERISK
+0x2B	0x002B	#PLUS SIGN
+0x2C	0x002C	#COMMA
+0x2D	0x002D	#HYPHEN-MINUS
+0x2E	0x002E	#FULL STOP
+0x2F	0x002F	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3A	0x003A	#COLON
+0x3B	0x003B	#SEMICOLON
+0x3C	0x003C	#LESS-THAN SIGN
+0x3D	0x003D	#EQUALS SIGN
+0x3E	0x003E	#GREATER-THAN SIGN
+0x3F	0x003F	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4A	0x004A	#LATIN CAPITAL LETTER J
+0x4B	0x004B	#LATIN CAPITAL LETTER K
+0x4C	0x004C	#LATIN CAPITAL LETTER L
+0x4D	0x004D	#LATIN CAPITAL LETTER M
+0x4E	0x004E	#LATIN CAPITAL LETTER N
+0x4F	0x004F	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5A	0x005A	#LATIN CAPITAL LETTER Z
+0x5B	0x005B	#LEFT SQUARE BRACKET
+0x5C	0x005C	#REVERSE SOLIDUS
+0x5D	0x005D	#RIGHT SQUARE BRACKET
+0x5E	0x005E	#CIRCUMFLEX ACCENT
+0x5F	0x005F	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6A	0x006A	#LATIN SMALL LETTER J
+0x6B	0x006B	#LATIN SMALL LETTER K
+0x6C	0x006C	#LATIN SMALL LETTER L
+0x6D	0x006D	#LATIN SMALL LETTER M
+0x6E	0x006E	#LATIN SMALL LETTER N
+0x6F	0x006F	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7A	0x007A	#LATIN SMALL LETTER Z
+0x7B	0x007B	#LEFT CURLY BRACKET
+0x7C	0x007C	#VERTICAL LINE
+0x7D	0x007D	#RIGHT CURLY BRACKET
+0x7E	0x007E	#TILDE
+0x7F	0x007F	#DELETE
+0x80	0x20AC	#EURO SIGN
+0x81	      	#UNDEFINED
+0x82	0x201A	#SINGLE LOW-9 QUOTATION MARK
+0x83	0x0192	#LATIN SMALL LETTER F WITH HOOK
+0x84	0x201E	#DOUBLE LOW-9 QUOTATION MARK
+0x85	0x2026	#HORIZONTAL ELLIPSIS
+0x86	0x2020	#DAGGER
+0x87	0x2021	#DOUBLE DAGGER
+0x88	0x02C6	#MODIFIER LETTER CIRCUMFLEX ACCENT
+0x89	0x2030	#PER MILLE SIGN
+0x8A	0x0160	#LATIN CAPITAL LETTER S WITH CARON
+0x8B	0x2039	#SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+0x8C	0x0152	#LATIN CAPITAL LIGATURE OE
+0x8D	      	#UNDEFINED
+0x8E	0x017D	#LATIN CAPITAL LETTER Z WITH CARON
+0x8F	      	#UNDEFINED
+0x90	      	#UNDEFINED
+0x91	0x2018	#LEFT SINGLE QUOTATION MARK
+0x92	0x2019	#RIGHT SINGLE QUOTATION MARK
+0x93	0x201C	#LEFT DOUBLE QUOTATION MARK
+0x94	0x201D	#RIGHT DOUBLE QUOTATION MARK
+0x95	0x2022	#BULLET
+0x96	0x2013	#EN DASH
+0x97	0x2014	#EM DASH
+0x98	0x02DC	#SMALL TILDE
+0x99	0x2122	#TRADE MARK SIGN
+0x9A	0x0161	#LATIN SMALL LETTER S WITH CARON
+0x9B	0x203A	#SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+0x9C	0x0153	#LATIN SMALL LIGATURE OE
+0x9D	      	#UNDEFINED
+0x9E	0x017E	#LATIN SMALL LETTER Z WITH CARON
+0x9F	0x0178	#LATIN CAPITAL LETTER Y WITH DIAERESIS
+0xA0	0x00A0	#NO-BREAK SPACE
+0xA1	0x00A1	#INVERTED EXCLAMATION MARK
+0xA2	0x00A2	#CENT SIGN
+0xA3	0x00A3	#POUND SIGN
+0xA4	0x00A4	#CURRENCY SIGN
+0xA5	0x00A5	#YEN SIGN
+0xA6	0x00A6	#BROKEN BAR
+0xA7	0x00A7	#SECTION SIGN
+0xA8	0x00A8	#DIAERESIS
+0xA9	0x00A9	#COPYRIGHT SIGN
+0xAA	0x00AA	#FEMININE ORDINAL INDICATOR
+0xAB	0x00AB	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xAC	0x00AC	#NOT SIGN
+0xAD	0x00AD	#SOFT HYPHEN
+0xAE	0x00AE	#REGISTERED SIGN
+0xAF	0x00AF	#MACRON
+0xB0	0x00B0	#DEGREE SIGN
+0xB1	0x00B1	#PLUS-MINUS SIGN
+0xB2	0x00B2	#SUPERSCRIPT TWO
+0xB3	0x00B3	#SUPERSCRIPT THREE
+0xB4	0x00B4	#ACUTE ACCENT
+0xB5	0x00B5	#MICRO SIGN
+0xB6	0x00B6	#PILCROW SIGN
+0xB7	0x00B7	#MIDDLE DOT
+0xB8	0x00B8	#CEDILLA
+0xB9	0x00B9	#SUPERSCRIPT ONE
+0xBA	0x00BA	#MASCULINE ORDINAL INDICATOR
+0xBB	0x00BB	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xBC	0x00BC	#VULGAR FRACTION ONE QUARTER
+0xBD	0x00BD	#VULGAR FRACTION ONE HALF
+0xBE	0x00BE	#VULGAR FRACTION THREE QUARTERS
+0xBF	0x00BF	#INVERTED QUESTION MARK
+0xC0	0x00C0	#LATIN CAPITAL LETTER A WITH GRAVE
+0xC1	0x00C1	#LATIN CAPITAL LETTER A WITH ACUTE
+0xC2	0x00C2	#LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0xC3	0x00C3	#LATIN CAPITAL LETTER A WITH TILDE
+0xC4	0x00C4	#LATIN CAPITAL LETTER A WITH DIAERESIS
+0xC5	0x00C5	#LATIN CAPITAL LETTER A WITH RING ABOVE
+0xC6	0x00C6	#LATIN CAPITAL LETTER AE
+0xC7	0x00C7	#LATIN CAPITAL LETTER C WITH CEDILLA
+0xC8	0x00C8	#LATIN CAPITAL LETTER E WITH GRAVE
+0xC9	0x00C9	#LATIN CAPITAL LETTER E WITH ACUTE
+0xCA	0x00CA	#LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0xCB	0x00CB	#LATIN CAPITAL LETTER E WITH DIAERESIS
+0xCC	0x00CC	#LATIN CAPITAL LETTER I WITH GRAVE
+0xCD	0x00CD	#LATIN CAPITAL LETTER I WITH ACUTE
+0xCE	0x00CE	#LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+0xCF	0x00CF	#LATIN CAPITAL LETTER I WITH DIAERESIS
+0xD0	0x00D0	#LATIN CAPITAL LETTER ETH
+0xD1	0x00D1	#LATIN CAPITAL LETTER N WITH TILDE
+0xD2	0x00D2	#LATIN CAPITAL LETTER O WITH GRAVE
+0xD3	0x00D3	#LATIN CAPITAL LETTER O WITH ACUTE
+0xD4	0x00D4	#LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+0xD5	0x00D5	#LATIN CAPITAL LETTER O WITH TILDE
+0xD6	0x00D6	#LATIN CAPITAL LETTER O WITH DIAERESIS
+0xD7	0x00D7	#MULTIPLICATION SIGN
+0xD8	0x00D8	#LATIN CAPITAL LETTER O WITH STROKE
+0xD9	0x00D9	#LATIN CAPITAL LETTER U WITH GRAVE
+0xDA	0x00DA	#LATIN CAPITAL LETTER U WITH ACUTE
+0xDB	0x00DB	#LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+0xDC	0x00DC	#LATIN CAPITAL LETTER U WITH DIAERESIS
+0xDD	0x00DD	#LATIN CAPITAL LETTER Y WITH ACUTE
+0xDE	0x00DE	#LATIN CAPITAL LETTER THORN
+0xDF	0x00DF	#LATIN SMALL LETTER SHARP S
+0xE0	0x00E0	#LATIN SMALL LETTER A WITH GRAVE
+0xE1	0x00E1	#LATIN SMALL LETTER A WITH ACUTE
+0xE2	0x00E2	#LATIN SMALL LETTER A WITH CIRCUMFLEX
+0xE3	0x00E3	#LATIN SMALL LETTER A WITH TILDE
+0xE4	0x00E4	#LATIN SMALL LETTER A WITH DIAERESIS
+0xE5	0x00E5	#LATIN SMALL LETTER A WITH RING ABOVE
+0xE6	0x00E6	#LATIN SMALL LETTER AE
+0xE7	0x00E7	#LATIN SMALL LETTER C WITH CEDILLA
+0xE8	0x00E8	#LATIN SMALL LETTER E WITH GRAVE
+0xE9	0x00E9	#LATIN SMALL LETTER E WITH ACUTE
+0xEA	0x00EA	#LATIN SMALL LETTER E WITH CIRCUMFLEX
+0xEB	0x00EB	#LATIN SMALL LETTER E WITH DIAERESIS
+0xEC	0x00EC	#LATIN SMALL LETTER I WITH GRAVE
+0xED	0x00ED	#LATIN SMALL LETTER I WITH ACUTE
+0xEE	0x00EE	#LATIN SMALL LETTER I WITH CIRCUMFLEX
+0xEF	0x00EF	#LATIN SMALL LETTER I WITH DIAERESIS
+0xF0	0x00F0	#LATIN SMALL LETTER ETH
+0xF1	0x00F1	#LATIN SMALL LETTER N WITH TILDE
+0xF2	0x00F2	#LATIN SMALL LETTER O WITH GRAVE
+0xF3	0x00F3	#LATIN SMALL LETTER O WITH ACUTE
+0xF4	0x00F4	#LATIN SMALL LETTER O WITH CIRCUMFLEX
+0xF5	0x00F5	#LATIN SMALL LETTER O WITH TILDE
+0xF6	0x00F6	#LATIN SMALL LETTER O WITH DIAERESIS
+0xF7	0x00F7	#DIVISION SIGN
+0xF8	0x00F8	#LATIN SMALL LETTER O WITH STROKE
+0xF9	0x00F9	#LATIN SMALL LETTER U WITH GRAVE
+0xFA	0x00FA	#LATIN SMALL LETTER U WITH ACUTE
+0xFB	0x00FB	#LATIN SMALL LETTER U WITH CIRCUMFLEX
+0xFC	0x00FC	#LATIN SMALL LETTER U WITH DIAERESIS
+0xFD	0x00FD	#LATIN SMALL LETTER Y WITH ACUTE
+0xFE	0x00FE	#LATIN SMALL LETTER THORN
+0xFF	0x00FF	#LATIN SMALL LETTER Y WITH DIAERESIS
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x20AC /*                                     EURO SIGN */ ,
+/* 81 */ CANT_MAP_CHARACTER,
+	/* 82 */ 0x201A /*                   SINGLE LOW-9 QUOTATION MARK */ ,
+	/* 83 */ 0x0192 /*                LATIN SMALL LETTER F WITH HOOK */ ,
+	/* 84 */ 0x201E /*                   DOUBLE LOW-9 QUOTATION MARK */ ,
+	/* 85 */ 0x2026 /*                           HORIZONTAL ELLIPSIS */ ,
+	/* 86 */ 0x2020 /*                                        DAGGER */ ,
+	/* 87 */ 0x2021 /*                                 DOUBLE DAGGER */ ,
+	/* 88 */ 0x02C6 /*             MODIFIER LETTER CIRCUMFLEX ACCENT */ ,
+	/* 89 */ 0x2030 /*                                PER MILLE SIGN */ ,
+	/* 8A */ 0x0160 /*             LATIN CAPITAL LETTER S WITH CARON */ ,
+	/* 8B */ 0x2039 /*     SINGLE LEFT-POINTING ANGLE QUOTATION MARK */ ,
+	/* 8C */ 0x0152 /*                     LATIN CAPITAL LIGATURE OE */ ,
+/* 8D */ CANT_MAP_CHARACTER,
+	/* 8E */ 0x017D /*             LATIN CAPITAL LETTER Z WITH CARON */ ,
+/* 8F */ CANT_MAP_CHARACTER,
+/* 90 */ CANT_MAP_CHARACTER,
+	/* 91 */ 0x2018 /*                    LEFT SINGLE QUOTATION MARK */ ,
+	/* 92 */ 0x2019 /*                   RIGHT SINGLE QUOTATION MARK */ ,
+	/* 93 */ 0x201C /*                    LEFT DOUBLE QUOTATION MARK */ ,
+	/* 94 */ 0x201D /*                   RIGHT DOUBLE QUOTATION MARK */ ,
+	/* 95 */ 0x2022 /*                                        BULLET */ ,
+	/* 96 */ 0x2013 /*                                       EN DASH */ ,
+	/* 97 */ 0x2014 /*                                       EM DASH */ ,
+	/* 98 */ 0x02DC /*                                   SMALL TILDE */ ,
+	/* 99 */ 0x2122 /*                               TRADE MARK SIGN */ ,
+	/* 9A */ 0x0161 /*               LATIN SMALL LETTER S WITH CARON */ ,
+	/* 9B */ 0x203A /*    SINGLE RIGHT-POINTING ANGLE QUOTATION MARK */ ,
+	/* 9C */ 0x0153 /*                       LATIN SMALL LIGATURE OE */ ,
+/* 9D */ CANT_MAP_CHARACTER,
+	/* 9E */ 0x017E /*               LATIN SMALL LETTER Z WITH CARON */ ,
+	/* 9F */ 0x0178 /*         LATIN CAPITAL LETTER Y WITH DIAERESIS */ ,
+	/* A0 */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+	/* A1 */ 0x00A1 /*                     INVERTED EXCLAMATION MARK */ ,
+	/* A2 */ 0x00A2 /*                                     CENT SIGN */ ,
+	/* A3 */ 0x00A3 /*                                    POUND SIGN */ ,
+	/* A4 */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* A5 */ 0x00A5 /*                                      YEN SIGN */ ,
+	/* A6 */ 0x00A6 /*                                    BROKEN BAR */ ,
+	/* A7 */ 0x00A7 /*                                  SECTION SIGN */ ,
+	/* A8 */ 0x00A8 /*                                     DIAERESIS */ ,
+	/* A9 */ 0x00A9 /*                                COPYRIGHT SIGN */ ,
+	/* AA */ 0x00AA /*                    FEMININE ORDINAL INDICATOR */ ,
+	/* AB */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AC */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AD */ 0x00AD /*                                   SOFT HYPHEN */ ,
+	/* AE */ 0x00AE /*                               REGISTERED SIGN */ ,
+	/* AF */ 0x00AF /*                                        MACRON */ ,
+	/* B0 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* B1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* B2 */ 0x00B2 /*                               SUPERSCRIPT TWO */ ,
+	/* B3 */ 0x00B3 /*                             SUPERSCRIPT THREE */ ,
+	/* B4 */ 0x00B4 /*                                  ACUTE ACCENT */ ,
+	/* B5 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* B6 */ 0x00B6 /*                                  PILCROW SIGN */ ,
+	/* B7 */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* B8 */ 0x00B8 /*                                       CEDILLA */ ,
+	/* B9 */ 0x00B9 /*                               SUPERSCRIPT ONE */ ,
+	/* BA */ 0x00BA /*                   MASCULINE ORDINAL INDICATOR */ ,
+	/* BB */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* BC */ 0x00BC /*                   VULGAR FRACTION ONE QUARTER */ ,
+	/* BD */ 0x00BD /*                      VULGAR FRACTION ONE HALF */ ,
+	/* BE */ 0x00BE /*                VULGAR FRACTION THREE QUARTERS */ ,
+	/* BF */ 0x00BF /*                        INVERTED QUESTION MARK */ ,
+	/* C0 */ 0x00C0 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,
+	/* C1 */ 0x00C1 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,
+	/* C2 */ 0x00C2 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,
+	/* C3 */ 0x00C3 /*             LATIN CAPITAL LETTER A WITH TILDE */ ,
+	/* C4 */ 0x00C4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,
+	/* C5 */ 0x00C5 /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,
+	/* C6 */ 0x00C6 /*                       LATIN CAPITAL LETTER AE */ ,
+	/* C7 */ 0x00C7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,
+	/* C8 */ 0x00C8 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,
+	/* C9 */ 0x00C9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,
+	/* CA */ 0x00CA /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,
+	/* CB */ 0x00CB /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,
+	/* CC */ 0x00CC /*             LATIN CAPITAL LETTER I WITH GRAVE */ ,
+	/* CD */ 0x00CD /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,
+	/* CE */ 0x00CE /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,
+	/* CF */ 0x00CF /*         LATIN CAPITAL LETTER I WITH DIAERESIS */ ,
+	/* D0 */ 0x00D0 /*                      LATIN CAPITAL LETTER ETH */ ,
+	/* D1 */ 0x00D1 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,
+	/* D2 */ 0x00D2 /*             LATIN CAPITAL LETTER O WITH GRAVE */ ,
+	/* D3 */ 0x00D3 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,
+	/* D4 */ 0x00D4 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,
+	/* D5 */ 0x00D5 /*             LATIN CAPITAL LETTER O WITH TILDE */ ,
+	/* D6 */ 0x00D6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,
+	/* D7 */ 0x00D7 /*                           MULTIPLICATION SIGN */ ,
+	/* D8 */ 0x00D8 /*            LATIN CAPITAL LETTER O WITH STROKE */ ,
+	/* D9 */ 0x00D9 /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,
+	/* DA */ 0x00DA /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,
+	/* DB */ 0x00DB /*        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ ,
+	/* DC */ 0x00DC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,
+	/* DD */ 0x00DD /*             LATIN CAPITAL LETTER Y WITH ACUTE */ ,
+	/* DE */ 0x00DE /*                    LATIN CAPITAL LETTER THORN */ ,
+	/* DF */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* E0 */ 0x00E0 /*               LATIN SMALL LETTER A WITH GRAVE */ ,
+	/* E1 */ 0x00E1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,
+	/* E2 */ 0x00E2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,
+	/* E3 */ 0x00E3 /*               LATIN SMALL LETTER A WITH TILDE */ ,
+	/* E4 */ 0x00E4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,
+	/* E5 */ 0x00E5 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,
+	/* E6 */ 0x00E6 /*                         LATIN SMALL LETTER AE */ ,
+	/* E7 */ 0x00E7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,
+	/* E8 */ 0x00E8 /*               LATIN SMALL LETTER E WITH GRAVE */ ,
+	/* E9 */ 0x00E9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,
+	/* EA */ 0x00EA /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,
+	/* EB */ 0x00EB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,
+	/* EC */ 0x00EC /*               LATIN SMALL LETTER I WITH GRAVE */ ,
+	/* ED */ 0x00ED /*               LATIN SMALL LETTER I WITH ACUTE */ ,
+	/* EE */ 0x00EE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,
+	/* EF */ 0x00EF /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,
+	/* F0 */ 0x00F0 /*                        LATIN SMALL LETTER ETH */ ,
+	/* F1 */ 0x00F1 /*               LATIN SMALL LETTER N WITH TILDE */ ,
+	/* F2 */ 0x00F2 /*               LATIN SMALL LETTER O WITH GRAVE */ ,
+	/* F3 */ 0x00F3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,
+	/* F4 */ 0x00F4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,
+	/* F5 */ 0x00F5 /*               LATIN SMALL LETTER O WITH TILDE */ ,
+	/* F6 */ 0x00F6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,
+	/* F7 */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* F8 */ 0x00F8 /*              LATIN SMALL LETTER O WITH STROKE */ ,
+	/* F9 */ 0x00F9 /*               LATIN SMALL LETTER U WITH GRAVE */ ,
+	/* FA */ 0x00FA /*               LATIN SMALL LETTER U WITH ACUTE */ ,
+	/* FB */ 0x00FB /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,
+	/* FC */ 0x00FC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,
+	/* FD */ 0x00FD /*               LATIN SMALL LETTER Y WITH ACUTE */ ,
+	/* FE */ 0x00FE /*                      LATIN SMALL LETTER THORN */ ,
+	/* FF */ 0x00FF /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xA0 /*                                NO-BREAK SPACE */ ,	/* 416 */
+	/* U+00A1 */ 0xA1 /*                     INVERTED EXCLAMATION MARK */ ,	/* 417 */
+	/* U+00A2 */ 0xA2 /*                                     CENT SIGN */ ,	/* 418 */
+	/* U+00A3 */ 0xA3 /*                                    POUND SIGN */ ,	/* 419 */
+	/* U+00A4 */ 0xA4 /*                                 CURRENCY SIGN */ ,	/* 420 */
+	/* U+00A5 */ 0xA5 /*                                      YEN SIGN */ ,	/* 421 */
+	/* U+00A6 */ 0xA6 /*                                    BROKEN BAR */ ,	/* 422 */
+	/* U+00A7 */ 0xA7 /*                                  SECTION SIGN */ ,	/* 423 */
+	/* U+00A8 */ 0xA8 /*                                     DIAERESIS */ ,	/* 424 */
+	/* U+00A9 */ 0xA9 /*                                COPYRIGHT SIGN */ ,	/* 425 */
+	/* U+00AA */ 0xAA /*                    FEMININE ORDINAL INDICATOR */ ,	/* 426 */
+	/* U+00AB */ 0xAB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAC /*                                      NOT SIGN */ ,	/* 428 */
+	/* U+00AD */ 0xAD /*                                   SOFT HYPHEN */ ,	/* 429 */
+	/* U+00AE */ 0xAE /*                               REGISTERED SIGN */ ,	/* 430 */
+	/* U+00AF */ 0xAF /*                                        MACRON */ ,	/* 431 */
+	/* U+00B0 */ 0xB0 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xB1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+	/* U+00B2 */ 0xB2 /*                               SUPERSCRIPT TWO */ ,	/* 434 */
+	/* U+00B3 */ 0xB3 /*                             SUPERSCRIPT THREE */ ,	/* 435 */
+	/* U+00B4 */ 0xB4 /*                                  ACUTE ACCENT */ ,	/* 436 */
+	/* U+00B5 */ 0xB5 /*                                    MICRO SIGN */ ,	/* 437 */
+	/* U+00B6 */ 0xB6 /*                                  PILCROW SIGN */ ,	/* 438 */
+	/* U+00B7 */ 0xB7 /*                                    MIDDLE DOT */ ,	/* 439 */
+	/* U+00B8 */ 0xB8 /*                                       CEDILLA */ ,	/* 440 */
+	/* U+00B9 */ 0xB9 /*                               SUPERSCRIPT ONE */ ,	/* 441 */
+	/* U+00BA */ 0xBA /*                   MASCULINE ORDINAL INDICATOR */ ,	/* 442 */
+	/* U+00BB */ 0xBB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+	/* U+00BC */ 0xBC /*                   VULGAR FRACTION ONE QUARTER */ ,	/* 444 */
+	/* U+00BD */ 0xBD /*                      VULGAR FRACTION ONE HALF */ ,	/* 445 */
+	/* U+00BE */ 0xBE /*                VULGAR FRACTION THREE QUARTERS */ ,	/* 446 */
+	/* U+00BF */ 0xBF /*                        INVERTED QUESTION MARK */ ,	/* 447 */
+	/* U+00C0 */ 0xC0 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,	/* 448 */
+	/* U+00C1 */ 0xC1 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,	/* 449 */
+	/* U+00C2 */ 0xC2 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,	/* 450 */
+	/* U+00C3 */ 0xC3 /*             LATIN CAPITAL LETTER A WITH TILDE */ ,	/* 451 */
+	/* U+00C4 */ 0xC4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,	/* 452 */
+	/* U+00C5 */ 0xC5 /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,	/* 453 */
+	/* U+00C6 */ 0xC6 /*                       LATIN CAPITAL LETTER AE */ ,	/* 454 */
+	/* U+00C7 */ 0xC7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,	/* 455 */
+	/* U+00C8 */ 0xC8 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,	/* 456 */
+	/* U+00C9 */ 0xC9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,	/* 457 */
+	/* U+00CA */ 0xCA /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,	/* 458 */
+	/* U+00CB */ 0xCB /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,	/* 459 */
+	/* U+00CC */ 0xCC /*             LATIN CAPITAL LETTER I WITH GRAVE */ ,	/* 460 */
+	/* U+00CD */ 0xCD /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,	/* 461 */
+	/* U+00CE */ 0xCE /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,	/* 462 */
+	/* U+00CF */ 0xCF /*         LATIN CAPITAL LETTER I WITH DIAERESIS */ ,	/* 463 */
+	/* U+00D0 */ 0xD0 /*                      LATIN CAPITAL LETTER ETH */ ,	/* 464 */
+	/* U+00D1 */ 0xD1 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,	/* 465 */
+	/* U+00D2 */ 0xD2 /*             LATIN CAPITAL LETTER O WITH GRAVE */ ,	/* 466 */
+	/* U+00D3 */ 0xD3 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,	/* 467 */
+	/* U+00D4 */ 0xD4 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,	/* 468 */
+	/* U+00D5 */ 0xD5 /*             LATIN CAPITAL LETTER O WITH TILDE */ ,	/* 469 */
+	/* U+00D6 */ 0xD6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,	/* 470 */
+	/* U+00D7 */ 0xD7 /*                           MULTIPLICATION SIGN */ ,	/* 471 */
+	/* U+00D8 */ 0xD8 /*            LATIN CAPITAL LETTER O WITH STROKE */ ,	/* 472 */
+	/* U+00D9 */ 0xD9 /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,	/* 473 */
+	/* U+00DA */ 0xDA /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,	/* 474 */
+	/* U+00DB */ 0xDB /*        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ ,	/* 475 */
+	/* U+00DC */ 0xDC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,	/* 476 */
+	/* U+00DD */ 0xDD /*             LATIN CAPITAL LETTER Y WITH ACUTE */ ,	/* 477 */
+	/* U+00DE */ 0xDE /*                    LATIN CAPITAL LETTER THORN */ ,	/* 478 */
+	/* U+00DF */ 0xDF /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+	/* U+00E0 */ 0xE0 /*               LATIN SMALL LETTER A WITH GRAVE */ ,	/* 480 */
+	/* U+00E1 */ 0xE1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,	/* 481 */
+	/* U+00E2 */ 0xE2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,	/* 482 */
+	/* U+00E3 */ 0xE3 /*               LATIN SMALL LETTER A WITH TILDE */ ,	/* 483 */
+	/* U+00E4 */ 0xE4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,	/* 484 */
+	/* U+00E5 */ 0xE5 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,	/* 485 */
+	/* U+00E6 */ 0xE6 /*                         LATIN SMALL LETTER AE */ ,	/* 486 */
+	/* U+00E7 */ 0xE7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,	/* 487 */
+	/* U+00E8 */ 0xE8 /*               LATIN SMALL LETTER E WITH GRAVE */ ,	/* 488 */
+	/* U+00E9 */ 0xE9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,	/* 489 */
+	/* U+00EA */ 0xEA /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,	/* 490 */
+	/* U+00EB */ 0xEB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,	/* 491 */
+	/* U+00EC */ 0xEC /*               LATIN SMALL LETTER I WITH GRAVE */ ,	/* 492 */
+	/* U+00ED */ 0xED /*               LATIN SMALL LETTER I WITH ACUTE */ ,	/* 493 */
+	/* U+00EE */ 0xEE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,	/* 494 */
+	/* U+00EF */ 0xEF /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,	/* 495 */
+	/* U+00F0 */ 0xF0 /*                        LATIN SMALL LETTER ETH */ ,	/* 496 */
+	/* U+00F1 */ 0xF1 /*               LATIN SMALL LETTER N WITH TILDE */ ,	/* 497 */
+	/* U+00F2 */ 0xF2 /*               LATIN SMALL LETTER O WITH GRAVE */ ,	/* 498 */
+	/* U+00F3 */ 0xF3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0xF4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,	/* 500 */
+	/* U+00F5 */ 0xF5 /*               LATIN SMALL LETTER O WITH TILDE */ ,	/* 501 */
+	/* U+00F6 */ 0xF6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,	/* 502 */
+	/* U+00F7 */ 0xF7 /*                                 DIVISION SIGN */ ,	/* 503 */
+	/* U+00F8 */ 0xF8 /*              LATIN SMALL LETTER O WITH STROKE */ ,	/* 504 */
+	/* U+00F9 */ 0xF9 /*               LATIN SMALL LETTER U WITH GRAVE */ ,	/* 505 */
+	/* U+00FA */ 0xFA /*               LATIN SMALL LETTER U WITH ACUTE */ ,	/* 506 */
+	/* U+00FB */ 0xFB /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,	/* 507 */
+	/* U+00FC */ 0xFC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,	/* 508 */
+	/* U+00FD */ 0xFD /*               LATIN SMALL LETTER Y WITH ACUTE */ ,	/* 509 */
+	/* U+00FE */ 0xFE /*                      LATIN SMALL LETTER THORN */ ,	/* 510 */
+	/* U+00FF */ 0xFF /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,	/* 511 */
+										/* U+0100 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0101 */ CANT_MAP_CHARACTER,
+										/* 513 */
+										/* U+0102 */ CANT_MAP_CHARACTER,
+										/* 514 */
+										/* U+0103 */ CANT_MAP_CHARACTER,
+										/* 515 */
+										/* U+0104 */ CANT_MAP_CHARACTER,
+										/* 516 */
+										/* U+0105 */ CANT_MAP_CHARACTER,
+										/* 517 */
+										/* U+0106 */ CANT_MAP_CHARACTER,
+										/* 518 */
+										/* U+0107 */ CANT_MAP_CHARACTER,
+										/* 519 */
+										/* U+0108 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0109 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+010A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+010B */ CANT_MAP_CHARACTER,
+										/* 523 */
+										/* U+010C */ CANT_MAP_CHARACTER,
+										/* 524 */
+										/* U+010D */ CANT_MAP_CHARACTER,
+										/* 525 */
+										/* U+010E */ CANT_MAP_CHARACTER,
+										/* 526 */
+										/* U+010F */ CANT_MAP_CHARACTER,
+										/* 527 */
+										/* U+0110 */ CANT_MAP_CHARACTER,
+										/* 528 */
+										/* U+0111 */ CANT_MAP_CHARACTER,
+										/* 529 */
+										/* U+0112 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0113 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0114 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0115 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0116 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0117 */ CANT_MAP_CHARACTER,
+										/* 535 */
+										/* U+0118 */ CANT_MAP_CHARACTER,
+										/* 536 */
+										/* U+0119 */ CANT_MAP_CHARACTER,
+										/* 537 */
+										/* U+011A */ CANT_MAP_CHARACTER,
+										/* 538 */
+										/* U+011B */ CANT_MAP_CHARACTER,
+										/* 539 */
+										/* U+011C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+011D */ CANT_MAP_CHARACTER,
+										/* 541 */
+										/* U+011E */ CANT_MAP_CHARACTER,
+										/* 542 */
+										/* U+011F */ CANT_MAP_CHARACTER,
+										/* 543 */
+										/* U+0120 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0121 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0122 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0123 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0124 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0125 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0126 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0127 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0128 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0129 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+012A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+012B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+012C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+012D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+012E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+012F */ CANT_MAP_CHARACTER,
+										/* 559 */
+										/* U+0130 */ CANT_MAP_CHARACTER,
+										/* 560 */
+										/* U+0131 */ CANT_MAP_CHARACTER,
+										/* 561 */
+										/* U+0132 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0133 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0134 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0135 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0136 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0137 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0138 */ CANT_MAP_CHARACTER,
+										/* 568 */
+										/* U+0139 */ CANT_MAP_CHARACTER,
+										/* 569 */
+										/* U+013A */ CANT_MAP_CHARACTER,
+										/* 570 */
+										/* U+013B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+013C */ CANT_MAP_CHARACTER,
+										/* 572 */
+										/* U+013D */ CANT_MAP_CHARACTER,
+										/* 573 */
+										/* U+013E */ CANT_MAP_CHARACTER,
+										/* 574 */
+										/* U+013F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0140 */ CANT_MAP_CHARACTER,
+										/* 576 */
+										/* U+0141 */ CANT_MAP_CHARACTER,
+										/* 577 */
+										/* U+0142 */ CANT_MAP_CHARACTER,
+										/* 578 */
+										/* U+0143 */ CANT_MAP_CHARACTER,
+										/* 579 */
+										/* U+0144 */ CANT_MAP_CHARACTER,
+										/* 580 */
+										/* U+0145 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0146 */ CANT_MAP_CHARACTER,
+										/* 582 */
+										/* U+0147 */ CANT_MAP_CHARACTER,
+										/* 583 */
+										/* U+0148 */ CANT_MAP_CHARACTER,
+										/* 584 */
+										/* U+0149 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+014A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+014B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+014C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+014D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+014E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+014F */ CANT_MAP_CHARACTER,
+										/* 591 */
+										/* U+0150 */ CANT_MAP_CHARACTER,
+										/* 592 */
+										/* U+0151 */ CANT_MAP_CHARACTER,
+										/* 593 */
+	/* U+0152 */ 0x8C /*                     LATIN CAPITAL LIGATURE OE */ ,	/* 594 */
+	/* U+0153 */ 0x9C /*                       LATIN SMALL LIGATURE OE */ ,	/* 595 */
+										/* U+0154 */ CANT_MAP_CHARACTER,
+										/* 596 */
+										/* U+0155 */ CANT_MAP_CHARACTER,
+										/* 597 */
+										/* U+0156 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0157 */ CANT_MAP_CHARACTER,
+										/* 599 */
+										/* U+0158 */ CANT_MAP_CHARACTER,
+										/* 600 */
+										/* U+0159 */ CANT_MAP_CHARACTER,
+										/* 601 */
+										/* U+015A */ CANT_MAP_CHARACTER,
+										/* 602 */
+										/* U+015B */ CANT_MAP_CHARACTER,
+										/* 603 */
+										/* U+015C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+015D */ CANT_MAP_CHARACTER,
+										/* 605 */
+										/* U+015E */ CANT_MAP_CHARACTER,
+										/* 606 */
+										/* U+015F */ CANT_MAP_CHARACTER,
+										/* 607 */
+	/* U+0160 */ 0x8A /*             LATIN CAPITAL LETTER S WITH CARON */ ,	/* 608 */
+	/* U+0161 */ 0x9A /*               LATIN SMALL LETTER S WITH CARON */ ,	/* 609 */
+										/* U+0162 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0163 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0164 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0165 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0166 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0167 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0168 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0169 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+016A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+016B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+016C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+016D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+016E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+016F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0170 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0171 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0172 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0173 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0174 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0175 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0176 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0177 */ CANT_MAP_CHARACTER,
+										/* 631 */
+	/* U+0178 */ 0x9F /*         LATIN CAPITAL LETTER Y WITH DIAERESIS */ ,	/* 632 */
+										/* U+0179 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+017A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+017B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+017C */ CANT_MAP_CHARACTER,
+										/* 636 */
+	/* U+017D */ 0x8E /*             LATIN CAPITAL LETTER Z WITH CARON */ ,	/* 637 */
+	/* U+017E */ 0x9E /*               LATIN SMALL LETTER Z WITH CARON */ ,	/* 638 */
+										/* U+017F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0180 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0181 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0182 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0183 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0184 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0185 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0186 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0187 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0188 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0189 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+018A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+018B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+018C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+018D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+018E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+018F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0190 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0191 */ CANT_MAP_CHARACTER,
+										/* 657 */
+	/* U+0192 */ 0x83 /*                LATIN SMALL LETTER F WITH HOOK */ ,	/* 658 */
+										/* U+0193 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0194 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0195 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0196 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0197 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0198 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0199 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+019A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+019B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+019C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+019D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+019E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+019F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+01A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+01A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+01A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+01A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+01A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+01A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+01A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+01A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+01A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+01A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+01AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+01AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+01AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+01AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+01AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+01AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+01B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+01B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+01B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+01B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+01B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+01B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+01B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+01B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+01B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+01B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+01BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+01BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+01BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+01BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+01BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+01BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+01C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+01C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+01C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+01C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+01C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+01C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+01C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+01C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+01C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+01C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+01CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+01CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+01CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+01CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+01CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+01CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+01D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+01D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+01D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+01D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+01D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+01D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+01D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+01D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+01D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+01D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+01DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+01DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+01DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+01DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+01DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+01DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+01E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+01E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+01E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+01E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+01E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+01E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+01E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+01E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+01E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+01E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+01EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+01EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+01EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+01ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+01EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+01EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+01F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+01F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+01F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+01F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+01F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+01F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+01F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+01F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+01F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+01F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+01FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+01FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+01FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+01FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+01FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+01FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+0200 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+0201 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+0202 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+0203 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+0204 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+0205 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+0206 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+0207 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+0208 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+0209 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+020A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+020B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+020C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+020D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+020E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+020F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+0210 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+0211 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+0212 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+0213 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+0214 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+0215 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+0216 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+0217 */ CANT_MAP_CHARACTER,
+										/* 791 */
+										/* U+0218 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+0219 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+021A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+021B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+021C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+021D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+021E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+021F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+0220 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+0221 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+0222 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+0223 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+0224 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+0225 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+0226 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+0227 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+0228 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+0229 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+022A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+022B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+022C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+022D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+022E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+022F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+0230 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+0231 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+0232 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+0233 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+0234 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+0235 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+0236 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+0237 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+0238 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+0239 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+023A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+023B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+023C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+023D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+023E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+023F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+0240 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+0241 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+0242 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+0243 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+0244 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+0245 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+0246 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+0247 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+0248 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+0249 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+024A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+024B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+024C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+024D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+024E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+024F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+0250 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+0251 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+0252 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+0253 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+0254 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+0255 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+0256 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+0257 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+0258 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+0259 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+025A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+025B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+025C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+025D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+025E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+025F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+0260 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+0261 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+0262 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+0263 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+0264 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+0265 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+0266 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+0267 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+0268 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+0269 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+026A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+026B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+026C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+026D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+026E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+026F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+0270 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+0271 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+0272 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+0273 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+0274 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+0275 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+0276 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+0277 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+0278 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+0279 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+027A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+027B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+027C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+027D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+027E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+027F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+0280 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+0281 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+0282 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+0283 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+0284 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+0285 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+0286 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+0287 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+0288 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+0289 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+028A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+028B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+028C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+028D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+028E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+028F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+0290 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+0291 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+0292 */ CANT_MAP_CHARACTER,
+										/* 914 */
+										/* U+0293 */ CANT_MAP_CHARACTER,
+										/* 915 */
+										/* U+0294 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+0295 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+0296 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+0297 */ CANT_MAP_CHARACTER,
+										/* 919 */
+										/* U+0298 */ CANT_MAP_CHARACTER,
+										/* 920 */
+										/* U+0299 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+029A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+029B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+029C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+029D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+029E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+029F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+02A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+02A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+02A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+										/* U+02A3 */ CANT_MAP_CHARACTER,
+										/* 931 */
+										/* U+02A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+02A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+										/* U+02A6 */ CANT_MAP_CHARACTER,
+										/* 934 */
+										/* U+02A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+02A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+										/* U+02A9 */ CANT_MAP_CHARACTER,
+										/* 937 */
+										/* U+02AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+02AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+02AC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+02AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+02AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+02AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+02B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+										/* U+02B1 */ CANT_MAP_CHARACTER,
+										/* 945 */
+										/* U+02B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+02B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+										/* U+02B4 */ CANT_MAP_CHARACTER,
+										/* 948 */
+										/* U+02B5 */ CANT_MAP_CHARACTER,
+										/* 949 */
+										/* U+02B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+02B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+02B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+02B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+02BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+02BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+02BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+02BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+02BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+02BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+										/* U+02C0 */ CANT_MAP_CHARACTER,
+										/* 960 */
+										/* U+02C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+02C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+										/* U+02C3 */ CANT_MAP_CHARACTER,
+										/* 963 */
+										/* U+02C4 */ CANT_MAP_CHARACTER,
+										/* 964 */
+										/* U+02C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+	/* U+02C6 */ 0x88 /*             MODIFIER LETTER CIRCUMFLEX ACCENT */ ,	/* 966 */
+										/* U+02C7 */ CANT_MAP_CHARACTER,
+										/* 967 */
+										/* U+02C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+02C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+02CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+02CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+02CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+02CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+02CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+02CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+02D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+02D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+02D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+02D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+02D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+02D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+02D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+02D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+02D8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+02D9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+02DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+02DB */ CANT_MAP_CHARACTER,
+										/* 987 */
+	/* U+02DC */ 0x98 /*                                   SMALL TILDE */ ,	/* 988 */
+										/* U+02DD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+02DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+02DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+02E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+02E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+02E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+02E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+02E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+02E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+02E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+02E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+02E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+02E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+02EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+02EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+02EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+02ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+02EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+02EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+02F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+02F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+02F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+02F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+02F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+02F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+02F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+02F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+02F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+02F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+02FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+02FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+02FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+02FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+02FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+02FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 1024 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 1026 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 1036 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 1040 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+	/* U+2013 */ 0x96 /*                                       EN DASH */ ,	/* 1043 */
+	/* U+2014 */ 0x97 /*                                       EM DASH */ ,	/* 1044 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 1046 */
+										/* U+2017 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+	/* U+2018 */ 0x91 /*                    LEFT SINGLE QUOTATION MARK */ ,	/* 1048 */
+	/* U+2019 */ 0x92 /*                   RIGHT SINGLE QUOTATION MARK */ ,	/* 1049 */
+	/* U+201A */ 0x82 /*                   SINGLE LOW-9 QUOTATION MARK */ ,	/* 1050 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+	/* U+201C */ 0x93 /*                    LEFT DOUBLE QUOTATION MARK */ ,	/* 1052 */
+	/* U+201D */ 0x94 /*                   RIGHT DOUBLE QUOTATION MARK */ ,	/* 1053 */
+	/* U+201E */ 0x84 /*                   DOUBLE LOW-9 QUOTATION MARK */ ,	/* 1054 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+	/* U+2020 */ 0x86 /*                                        DAGGER */ ,	/* 1056 */
+	/* U+2021 */ 0x87 /*                                 DOUBLE DAGGER */ ,	/* 1057 */
+	/* U+2022 */ 0x95 /*                                        BULLET */ ,	/* 1058 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 1060 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+	/* U+2026 */ 0x85 /*                           HORIZONTAL ELLIPSIS */ ,	/* 1062 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 1068 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+	/* U+2030 */ 0x89 /*                                PER MILLE SIGN */ ,	/* 1072 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 1076 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+	/* U+2039 */ 0x8B /*     SINGLE LEFT-POINTING ANGLE QUOTATION MARK */ ,	/* 1081 */
+	/* U+203A */ 0x9B /*    SINGLE RIGHT-POINTING ANGLE QUOTATION MARK */ ,	/* 1082 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 1084 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 1104 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 1105 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 1108 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 1111 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 1114 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 1117 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 1120 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 1123 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 1126 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 1129 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 1132 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+										/* U+207F */ CANT_MAP_CHARACTER,
+										/* 1151 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 1152 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 1156 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 1160 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 1169 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 1170 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 1171 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 1184 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+										/* U+20A7 */ CANT_MAP_CHARACTER,
+										/* 1191 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+	/* U+20AC */ 0x80 /*                                     EURO SIGN */ ,	/* 1196 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+										/* U+2100 */ CANT_MAP_CHARACTER,
+										/* 1280 */
+										/* U+2101 */ CANT_MAP_CHARACTER,
+										/* 1281 */
+										/* U+2102 */ CANT_MAP_CHARACTER,
+										/* 1282 */
+										/* U+2103 */ CANT_MAP_CHARACTER,
+										/* 1283 */
+										/* U+2104 */ CANT_MAP_CHARACTER,
+										/* 1284 */
+										/* U+2105 */ CANT_MAP_CHARACTER,
+										/* 1285 */
+										/* U+2106 */ CANT_MAP_CHARACTER,
+										/* 1286 */
+										/* U+2107 */ CANT_MAP_CHARACTER,
+										/* 1287 */
+										/* U+2108 */ CANT_MAP_CHARACTER,
+										/* 1288 */
+										/* U+2109 */ CANT_MAP_CHARACTER,
+										/* 1289 */
+										/* U+210A */ CANT_MAP_CHARACTER,
+										/* 1290 */
+										/* U+210B */ CANT_MAP_CHARACTER,
+										/* 1291 */
+										/* U+210C */ CANT_MAP_CHARACTER,
+										/* 1292 */
+										/* U+210D */ CANT_MAP_CHARACTER,
+										/* 1293 */
+										/* U+210E */ CANT_MAP_CHARACTER,
+										/* 1294 */
+										/* U+210F */ CANT_MAP_CHARACTER,
+										/* 1295 */
+										/* U+2110 */ CANT_MAP_CHARACTER,
+										/* 1296 */
+										/* U+2111 */ CANT_MAP_CHARACTER,
+										/* 1297 */
+										/* U+2112 */ CANT_MAP_CHARACTER,
+										/* 1298 */
+										/* U+2113 */ CANT_MAP_CHARACTER,
+										/* 1299 */
+										/* U+2114 */ CANT_MAP_CHARACTER,
+										/* 1300 */
+										/* U+2115 */ CANT_MAP_CHARACTER,
+										/* 1301 */
+										/* U+2116 */ CANT_MAP_CHARACTER,
+										/* 1302 */
+										/* U+2117 */ CANT_MAP_CHARACTER,
+										/* 1303 */
+										/* U+2118 */ CANT_MAP_CHARACTER,
+										/* 1304 */
+										/* U+2119 */ CANT_MAP_CHARACTER,
+										/* 1305 */
+										/* U+211A */ CANT_MAP_CHARACTER,
+										/* 1306 */
+										/* U+211B */ CANT_MAP_CHARACTER,
+										/* 1307 */
+										/* U+211C */ CANT_MAP_CHARACTER,
+										/* 1308 */
+										/* U+211D */ CANT_MAP_CHARACTER,
+										/* 1309 */
+										/* U+211E */ CANT_MAP_CHARACTER,
+										/* 1310 */
+										/* U+211F */ CANT_MAP_CHARACTER,
+										/* 1311 */
+										/* U+2120 */ CANT_MAP_CHARACTER,
+										/* 1312 */
+										/* U+2121 */ CANT_MAP_CHARACTER,
+										/* 1313 */
+	/* U+2122 */ 0x99 /*                               TRADE MARK SIGN */ ,	/* 1314 */
+										/* U+2123 */ CANT_MAP_CHARACTER,
+										/* 1315 */
+										/* U+2124 */ CANT_MAP_CHARACTER,
+										/* 1316 */
+										/* U+2125 */ CANT_MAP_CHARACTER,
+										/* 1317 */
+										/* U+2126 */ CANT_MAP_CHARACTER,
+										/* 1318 */
+										/* U+2127 */ CANT_MAP_CHARACTER,
+										/* 1319 */
+										/* U+2128 */ CANT_MAP_CHARACTER,
+										/* 1320 */
+										/* U+2129 */ CANT_MAP_CHARACTER,
+										/* 1321 */
+										/* U+212A */ CANT_MAP_CHARACTER,
+										/* 1322 */
+										/* U+212B */ CANT_MAP_CHARACTER,
+										/* 1323 */
+										/* U+212C */ CANT_MAP_CHARACTER,
+										/* 1324 */
+										/* U+212D */ CANT_MAP_CHARACTER,
+										/* 1325 */
+										/* U+212E */ CANT_MAP_CHARACTER,
+										/* 1326 */
+										/* U+212F */ CANT_MAP_CHARACTER,
+										/* 1327 */
+										/* U+2130 */ CANT_MAP_CHARACTER,
+										/* 1328 */
+										/* U+2131 */ CANT_MAP_CHARACTER,
+										/* 1329 */
+										/* U+2132 */ CANT_MAP_CHARACTER,
+										/* 1330 */
+										/* U+2133 */ CANT_MAP_CHARACTER,
+										/* 1331 */
+										/* U+2134 */ CANT_MAP_CHARACTER,
+										/* 1332 */
+										/* U+2135 */ CANT_MAP_CHARACTER,
+										/* 1333 */
+										/* U+2136 */ CANT_MAP_CHARACTER,
+										/* 1334 */
+										/* U+2137 */ CANT_MAP_CHARACTER,
+										/* 1335 */
+										/* U+2138 */ CANT_MAP_CHARACTER,
+										/* 1336 */
+										/* U+2139 */ CANT_MAP_CHARACTER,
+										/* 1337 */
+										/* U+213A */ CANT_MAP_CHARACTER,
+										/* 1338 */
+										/* U+213B */ CANT_MAP_CHARACTER,
+										/* 1339 */
+										/* U+213C */ CANT_MAP_CHARACTER,
+										/* 1340 */
+										/* U+213D */ CANT_MAP_CHARACTER,
+										/* 1341 */
+										/* U+213E */ CANT_MAP_CHARACTER,
+										/* 1342 */
+										/* U+213F */ CANT_MAP_CHARACTER,
+										/* 1343 */
+										/* U+2140 */ CANT_MAP_CHARACTER,
+										/* 1344 */
+										/* U+2141 */ CANT_MAP_CHARACTER,
+										/* 1345 */
+										/* U+2142 */ CANT_MAP_CHARACTER,
+										/* 1346 */
+										/* U+2143 */ CANT_MAP_CHARACTER,
+										/* 1347 */
+										/* U+2144 */ CANT_MAP_CHARACTER,
+										/* 1348 */
+										/* U+2145 */ CANT_MAP_CHARACTER,
+										/* 1349 */
+										/* U+2146 */ CANT_MAP_CHARACTER,
+										/* 1350 */
+										/* U+2147 */ CANT_MAP_CHARACTER,
+										/* 1351 */
+										/* U+2148 */ CANT_MAP_CHARACTER,
+										/* 1352 */
+										/* U+2149 */ CANT_MAP_CHARACTER,
+										/* 1353 */
+										/* U+214A */ CANT_MAP_CHARACTER,
+										/* 1354 */
+										/* U+214B */ CANT_MAP_CHARACTER,
+										/* 1355 */
+										/* U+214C */ CANT_MAP_CHARACTER,
+										/* 1356 */
+										/* U+214D */ CANT_MAP_CHARACTER,
+										/* 1357 */
+										/* U+214E */ CANT_MAP_CHARACTER,
+										/* 1358 */
+										/* U+214F */ CANT_MAP_CHARACTER,
+										/* 1359 */
+										/* U+2150 */ CANT_MAP_CHARACTER,
+										/* 1360 */
+										/* U+2151 */ CANT_MAP_CHARACTER,
+										/* 1361 */
+										/* U+2152 */ CANT_MAP_CHARACTER,
+										/* 1362 */
+										/* U+2153 */ CANT_MAP_CHARACTER,
+										/* 1363 */
+										/* U+2154 */ CANT_MAP_CHARACTER,
+										/* 1364 */
+										/* U+2155 */ CANT_MAP_CHARACTER,
+										/* 1365 */
+										/* U+2156 */ CANT_MAP_CHARACTER,
+										/* 1366 */
+										/* U+2157 */ CANT_MAP_CHARACTER,
+										/* 1367 */
+										/* U+2158 */ CANT_MAP_CHARACTER,
+										/* 1368 */
+										/* U+2159 */ CANT_MAP_CHARACTER,
+										/* 1369 */
+										/* U+215A */ CANT_MAP_CHARACTER,
+										/* 1370 */
+										/* U+215B */ CANT_MAP_CHARACTER,
+										/* 1371 */
+										/* U+215C */ CANT_MAP_CHARACTER,
+										/* 1372 */
+										/* U+215D */ CANT_MAP_CHARACTER,
+										/* 1373 */
+										/* U+215E */ CANT_MAP_CHARACTER,
+										/* 1374 */
+										/* U+215F */ CANT_MAP_CHARACTER,
+										/* 1375 */
+										/* U+2160 */ CANT_MAP_CHARACTER,
+										/* 1376 */
+										/* U+2161 */ CANT_MAP_CHARACTER,
+										/* 1377 */
+										/* U+2162 */ CANT_MAP_CHARACTER,
+										/* 1378 */
+										/* U+2163 */ CANT_MAP_CHARACTER,
+										/* 1379 */
+										/* U+2164 */ CANT_MAP_CHARACTER,
+										/* 1380 */
+										/* U+2165 */ CANT_MAP_CHARACTER,
+										/* 1381 */
+										/* U+2166 */ CANT_MAP_CHARACTER,
+										/* 1382 */
+										/* U+2167 */ CANT_MAP_CHARACTER,
+										/* 1383 */
+										/* U+2168 */ CANT_MAP_CHARACTER,
+										/* 1384 */
+										/* U+2169 */ CANT_MAP_CHARACTER,
+										/* 1385 */
+										/* U+216A */ CANT_MAP_CHARACTER,
+										/* 1386 */
+										/* U+216B */ CANT_MAP_CHARACTER,
+										/* 1387 */
+										/* U+216C */ CANT_MAP_CHARACTER,
+										/* 1388 */
+										/* U+216D */ CANT_MAP_CHARACTER,
+										/* 1389 */
+										/* U+216E */ CANT_MAP_CHARACTER,
+										/* 1390 */
+										/* U+216F */ CANT_MAP_CHARACTER,
+										/* 1391 */
+										/* U+2170 */ CANT_MAP_CHARACTER,
+										/* 1392 */
+										/* U+2171 */ CANT_MAP_CHARACTER,
+										/* 1393 */
+										/* U+2172 */ CANT_MAP_CHARACTER,
+										/* 1394 */
+										/* U+2173 */ CANT_MAP_CHARACTER,
+										/* 1395 */
+										/* U+2174 */ CANT_MAP_CHARACTER,
+										/* 1396 */
+										/* U+2175 */ CANT_MAP_CHARACTER,
+										/* 1397 */
+										/* U+2176 */ CANT_MAP_CHARACTER,
+										/* 1398 */
+										/* U+2177 */ CANT_MAP_CHARACTER,
+										/* 1399 */
+										/* U+2178 */ CANT_MAP_CHARACTER,
+										/* 1400 */
+										/* U+2179 */ CANT_MAP_CHARACTER,
+										/* 1401 */
+										/* U+217A */ CANT_MAP_CHARACTER,
+										/* 1402 */
+										/* U+217B */ CANT_MAP_CHARACTER,
+										/* 1403 */
+										/* U+217C */ CANT_MAP_CHARACTER,
+										/* 1404 */
+										/* U+217D */ CANT_MAP_CHARACTER,
+										/* 1405 */
+										/* U+217E */ CANT_MAP_CHARACTER,
+										/* 1406 */
+										/* U+217F */ CANT_MAP_CHARACTER,
+										/* 1407 */
+										/* U+2180 */ CANT_MAP_CHARACTER,
+										/* 1408 */
+										/* U+2181 */ CANT_MAP_CHARACTER,
+										/* 1409 */
+										/* U+2182 */ CANT_MAP_CHARACTER,
+										/* 1410 */
+										/* U+2183 */ CANT_MAP_CHARACTER,
+										/* 1411 */
+										/* U+2184 */ CANT_MAP_CHARACTER,
+										/* 1412 */
+										/* U+2185 */ CANT_MAP_CHARACTER,
+										/* 1413 */
+										/* U+2186 */ CANT_MAP_CHARACTER,
+										/* 1414 */
+										/* U+2187 */ CANT_MAP_CHARACTER,
+										/* 1415 */
+										/* U+2188 */ CANT_MAP_CHARACTER,
+										/* 1416 */
+										/* U+2189 */ CANT_MAP_CHARACTER,
+										/* 1417 */
+										/* U+218A */ CANT_MAP_CHARACTER,
+										/* 1418 */
+										/* U+218B */ CANT_MAP_CHARACTER,
+										/* 1419 */
+										/* U+218C */ CANT_MAP_CHARACTER,
+										/* 1420 */
+										/* U+218D */ CANT_MAP_CHARACTER,
+										/* 1421 */
+										/* U+218E */ CANT_MAP_CHARACTER,
+										/* 1422 */
+										/* U+218F */ CANT_MAP_CHARACTER,
+										/* 1423 */
+										/* U+2190 */ CANT_MAP_CHARACTER,
+										/* 1424 */
+										/* U+2191 */ CANT_MAP_CHARACTER,
+										/* 1425 */
+										/* U+2192 */ CANT_MAP_CHARACTER,
+										/* 1426 */
+										/* U+2193 */ CANT_MAP_CHARACTER,
+										/* 1427 */
+										/* U+2194 */ CANT_MAP_CHARACTER,
+										/* 1428 */
+										/* U+2195 */ CANT_MAP_CHARACTER,
+										/* 1429 */
+										/* U+2196 */ CANT_MAP_CHARACTER,
+										/* 1430 */
+										/* U+2197 */ CANT_MAP_CHARACTER,
+										/* 1431 */
+										/* U+2198 */ CANT_MAP_CHARACTER,
+										/* 1432 */
+										/* U+2199 */ CANT_MAP_CHARACTER,
+										/* 1433 */
+										/* U+219A */ CANT_MAP_CHARACTER,
+										/* 1434 */
+										/* U+219B */ CANT_MAP_CHARACTER,
+										/* 1435 */
+										/* U+219C */ CANT_MAP_CHARACTER,
+										/* 1436 */
+										/* U+219D */ CANT_MAP_CHARACTER,
+										/* 1437 */
+										/* U+219E */ CANT_MAP_CHARACTER,
+										/* 1438 */
+										/* U+219F */ CANT_MAP_CHARACTER,
+										/* 1439 */
+										/* U+21A0 */ CANT_MAP_CHARACTER,
+										/* 1440 */
+										/* U+21A1 */ CANT_MAP_CHARACTER,
+										/* 1441 */
+										/* U+21A2 */ CANT_MAP_CHARACTER,
+										/* 1442 */
+										/* U+21A3 */ CANT_MAP_CHARACTER,
+										/* 1443 */
+										/* U+21A4 */ CANT_MAP_CHARACTER,
+										/* 1444 */
+										/* U+21A5 */ CANT_MAP_CHARACTER,
+										/* 1445 */
+										/* U+21A6 */ CANT_MAP_CHARACTER,
+										/* 1446 */
+										/* U+21A7 */ CANT_MAP_CHARACTER,
+										/* 1447 */
+										/* U+21A8 */ CANT_MAP_CHARACTER,
+										/* 1448 */
+										/* U+21A9 */ CANT_MAP_CHARACTER,
+										/* 1449 */
+										/* U+21AA */ CANT_MAP_CHARACTER,
+										/* 1450 */
+										/* U+21AB */ CANT_MAP_CHARACTER,
+										/* 1451 */
+										/* U+21AC */ CANT_MAP_CHARACTER,
+										/* 1452 */
+										/* U+21AD */ CANT_MAP_CHARACTER,
+										/* 1453 */
+										/* U+21AE */ CANT_MAP_CHARACTER,
+										/* 1454 */
+										/* U+21AF */ CANT_MAP_CHARACTER,
+										/* 1455 */
+										/* U+21B0 */ CANT_MAP_CHARACTER,
+										/* 1456 */
+										/* U+21B1 */ CANT_MAP_CHARACTER,
+										/* 1457 */
+										/* U+21B2 */ CANT_MAP_CHARACTER,
+										/* 1458 */
+										/* U+21B3 */ CANT_MAP_CHARACTER,
+										/* 1459 */
+										/* U+21B4 */ CANT_MAP_CHARACTER,
+										/* 1460 */
+										/* U+21B5 */ CANT_MAP_CHARACTER,
+										/* 1461 */
+										/* U+21B6 */ CANT_MAP_CHARACTER,
+										/* 1462 */
+										/* U+21B7 */ CANT_MAP_CHARACTER,
+										/* 1463 */
+										/* U+21B8 */ CANT_MAP_CHARACTER,
+										/* 1464 */
+										/* U+21B9 */ CANT_MAP_CHARACTER,
+										/* 1465 */
+										/* U+21BA */ CANT_MAP_CHARACTER,
+										/* 1466 */
+										/* U+21BB */ CANT_MAP_CHARACTER,
+										/* 1467 */
+										/* U+21BC */ CANT_MAP_CHARACTER,
+										/* 1468 */
+										/* U+21BD */ CANT_MAP_CHARACTER,
+										/* 1469 */
+										/* U+21BE */ CANT_MAP_CHARACTER,
+										/* 1470 */
+										/* U+21BF */ CANT_MAP_CHARACTER,
+										/* 1471 */
+										/* U+21C0 */ CANT_MAP_CHARACTER,
+										/* 1472 */
+										/* U+21C1 */ CANT_MAP_CHARACTER,
+										/* 1473 */
+										/* U+21C2 */ CANT_MAP_CHARACTER,
+										/* 1474 */
+										/* U+21C3 */ CANT_MAP_CHARACTER,
+										/* 1475 */
+										/* U+21C4 */ CANT_MAP_CHARACTER,
+										/* 1476 */
+										/* U+21C5 */ CANT_MAP_CHARACTER,
+										/* 1477 */
+										/* U+21C6 */ CANT_MAP_CHARACTER,
+										/* 1478 */
+										/* U+21C7 */ CANT_MAP_CHARACTER,
+										/* 1479 */
+										/* U+21C8 */ CANT_MAP_CHARACTER,
+										/* 1480 */
+										/* U+21C9 */ CANT_MAP_CHARACTER,
+										/* 1481 */
+										/* U+21CA */ CANT_MAP_CHARACTER,
+										/* 1482 */
+										/* U+21CB */ CANT_MAP_CHARACTER,
+										/* 1483 */
+										/* U+21CC */ CANT_MAP_CHARACTER,
+										/* 1484 */
+										/* U+21CD */ CANT_MAP_CHARACTER,
+										/* 1485 */
+										/* U+21CE */ CANT_MAP_CHARACTER,
+										/* 1486 */
+										/* U+21CF */ CANT_MAP_CHARACTER,
+										/* 1487 */
+										/* U+21D0 */ CANT_MAP_CHARACTER,
+										/* 1488 */
+										/* U+21D1 */ CANT_MAP_CHARACTER,
+										/* 1489 */
+										/* U+21D2 */ CANT_MAP_CHARACTER,
+										/* 1490 */
+										/* U+21D3 */ CANT_MAP_CHARACTER,
+										/* 1491 */
+										/* U+21D4 */ CANT_MAP_CHARACTER,
+										/* 1492 */
+										/* U+21D5 */ CANT_MAP_CHARACTER,
+										/* 1493 */
+										/* U+21D6 */ CANT_MAP_CHARACTER,
+										/* 1494 */
+										/* U+21D7 */ CANT_MAP_CHARACTER,
+										/* 1495 */
+										/* U+21D8 */ CANT_MAP_CHARACTER,
+										/* 1496 */
+										/* U+21D9 */ CANT_MAP_CHARACTER,
+										/* 1497 */
+										/* U+21DA */ CANT_MAP_CHARACTER,
+										/* 1498 */
+										/* U+21DB */ CANT_MAP_CHARACTER,
+										/* 1499 */
+										/* U+21DC */ CANT_MAP_CHARACTER,
+										/* 1500 */
+										/* U+21DD */ CANT_MAP_CHARACTER,
+										/* 1501 */
+										/* U+21DE */ CANT_MAP_CHARACTER,
+										/* 1502 */
+										/* U+21DF */ CANT_MAP_CHARACTER,
+										/* 1503 */
+										/* U+21E0 */ CANT_MAP_CHARACTER,
+										/* 1504 */
+										/* U+21E1 */ CANT_MAP_CHARACTER,
+										/* 1505 */
+										/* U+21E2 */ CANT_MAP_CHARACTER,
+										/* 1506 */
+										/* U+21E3 */ CANT_MAP_CHARACTER,
+										/* 1507 */
+										/* U+21E4 */ CANT_MAP_CHARACTER,
+										/* 1508 */
+										/* U+21E5 */ CANT_MAP_CHARACTER,
+										/* 1509 */
+										/* U+21E6 */ CANT_MAP_CHARACTER,
+										/* 1510 */
+										/* U+21E7 */ CANT_MAP_CHARACTER,
+										/* 1511 */
+										/* U+21E8 */ CANT_MAP_CHARACTER,
+										/* 1512 */
+										/* U+21E9 */ CANT_MAP_CHARACTER,
+										/* 1513 */
+										/* U+21EA */ CANT_MAP_CHARACTER,
+										/* 1514 */
+										/* U+21EB */ CANT_MAP_CHARACTER,
+										/* 1515 */
+										/* U+21EC */ CANT_MAP_CHARACTER,
+										/* 1516 */
+										/* U+21ED */ CANT_MAP_CHARACTER,
+										/* 1517 */
+										/* U+21EE */ CANT_MAP_CHARACTER,
+										/* 1518 */
+										/* U+21EF */ CANT_MAP_CHARACTER,
+										/* 1519 */
+										/* U+21F0 */ CANT_MAP_CHARACTER,
+										/* 1520 */
+										/* U+21F1 */ CANT_MAP_CHARACTER,
+										/* 1521 */
+										/* U+21F2 */ CANT_MAP_CHARACTER,
+										/* 1522 */
+										/* U+21F3 */ CANT_MAP_CHARACTER,
+										/* 1523 */
+										/* U+21F4 */ CANT_MAP_CHARACTER,
+										/* 1524 */
+										/* U+21F5 */ CANT_MAP_CHARACTER,
+										/* 1525 */
+										/* U+21F6 */ CANT_MAP_CHARACTER,
+										/* 1526 */
+										/* U+21F7 */ CANT_MAP_CHARACTER,
+										/* 1527 */
+										/* U+21F8 */ CANT_MAP_CHARACTER,
+										/* 1528 */
+										/* U+21F9 */ CANT_MAP_CHARACTER,
+										/* 1529 */
+										/* U+21FA */ CANT_MAP_CHARACTER,
+										/* 1530 */
+										/* U+21FB */ CANT_MAP_CHARACTER,
+										/* 1531 */
+										/* U+21FC */ CANT_MAP_CHARACTER,
+										/* 1532 */
+										/* U+21FD */ CANT_MAP_CHARACTER,
+										/* 1533 */
+										/* U+21FE */ CANT_MAP_CHARACTER,
+										/* 1534 */
+										/* U+21FF */ CANT_MAP_CHARACTER,
+										/* 1535 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 512,
+/* U+02-- */ 768,
+/* U+03-- */ 0,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 1024,
+/* U+21-- */ 1280,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 0,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_w1253.h b/src/intl/cs_w1253.h
new file mode 100644
index 0000000000..063eb6c14e
--- /dev/null
+++ b/src/intl/cs_w1253.h
@@ -0,0 +1,3655 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/WINDOWS/CP1253.TXT 
+
+#
+#    Name:     cp1253 to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/15/98
+#
+#    Contact:       cpxlate@microsoft.com
+#
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp1253 code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp1253 order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0A	0x000A	#LINE FEED
+0x0B	0x000B	#VERTICAL TABULATION
+0x0C	0x000C	#FORM FEED
+0x0D	0x000D	#CARRIAGE RETURN
+0x0E	0x000E	#SHIFT OUT
+0x0F	0x000F	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1A	0x001A	#SUBSTITUTE
+0x1B	0x001B	#ESCAPE
+0x1C	0x001C	#FILE SEPARATOR
+0x1D	0x001D	#GROUP SEPARATOR
+0x1E	0x001E	#RECORD SEPARATOR
+0x1F	0x001F	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2A	0x002A	#ASTERISK
+0x2B	0x002B	#PLUS SIGN
+0x2C	0x002C	#COMMA
+0x2D	0x002D	#HYPHEN-MINUS
+0x2E	0x002E	#FULL STOP
+0x2F	0x002F	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3A	0x003A	#COLON
+0x3B	0x003B	#SEMICOLON
+0x3C	0x003C	#LESS-THAN SIGN
+0x3D	0x003D	#EQUALS SIGN
+0x3E	0x003E	#GREATER-THAN SIGN
+0x3F	0x003F	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4A	0x004A	#LATIN CAPITAL LETTER J
+0x4B	0x004B	#LATIN CAPITAL LETTER K
+0x4C	0x004C	#LATIN CAPITAL LETTER L
+0x4D	0x004D	#LATIN CAPITAL LETTER M
+0x4E	0x004E	#LATIN CAPITAL LETTER N
+0x4F	0x004F	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5A	0x005A	#LATIN CAPITAL LETTER Z
+0x5B	0x005B	#LEFT SQUARE BRACKET
+0x5C	0x005C	#REVERSE SOLIDUS
+0x5D	0x005D	#RIGHT SQUARE BRACKET
+0x5E	0x005E	#CIRCUMFLEX ACCENT
+0x5F	0x005F	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6A	0x006A	#LATIN SMALL LETTER J
+0x6B	0x006B	#LATIN SMALL LETTER K
+0x6C	0x006C	#LATIN SMALL LETTER L
+0x6D	0x006D	#LATIN SMALL LETTER M
+0x6E	0x006E	#LATIN SMALL LETTER N
+0x6F	0x006F	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7A	0x007A	#LATIN SMALL LETTER Z
+0x7B	0x007B	#LEFT CURLY BRACKET
+0x7C	0x007C	#VERTICAL LINE
+0x7D	0x007D	#RIGHT CURLY BRACKET
+0x7E	0x007E	#TILDE
+0x7F	0x007F	#DELETE
+0x80	0x20AC	#EURO SIGN
+0x81	      	#UNDEFINED
+0x82	0x201A	#SINGLE LOW-9 QUOTATION MARK
+0x83	0x0192	#LATIN SMALL LETTER F WITH HOOK
+0x84	0x201E	#DOUBLE LOW-9 QUOTATION MARK
+0x85	0x2026	#HORIZONTAL ELLIPSIS
+0x86	0x2020	#DAGGER
+0x87	0x2021	#DOUBLE DAGGER
+0x88	      	#UNDEFINED
+0x89	0x2030	#PER MILLE SIGN
+0x8A	      	#UNDEFINED
+0x8B	0x2039	#SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+0x8C	      	#UNDEFINED
+0x8D	      	#UNDEFINED
+0x8E	      	#UNDEFINED
+0x8F	      	#UNDEFINED
+0x90	      	#UNDEFINED
+0x91	0x2018	#LEFT SINGLE QUOTATION MARK
+0x92	0x2019	#RIGHT SINGLE QUOTATION MARK
+0x93	0x201C	#LEFT DOUBLE QUOTATION MARK
+0x94	0x201D	#RIGHT DOUBLE QUOTATION MARK
+0x95	0x2022	#BULLET
+0x96	0x2013	#EN DASH
+0x97	0x2014	#EM DASH
+0x98	      	#UNDEFINED
+0x99	0x2122	#TRADE MARK SIGN
+0x9A	      	#UNDEFINED
+0x9B	0x203A	#SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+0x9C	      	#UNDEFINED
+0x9D	      	#UNDEFINED
+0x9E	      	#UNDEFINED
+0x9F	      	#UNDEFINED
+0xA0	0x00A0	#NO-BREAK SPACE
+0xA1	0x0385	#GREEK DIALYTIKA TONOS
+0xA2	0x0386	#GREEK CAPITAL LETTER ALPHA WITH TONOS
+0xA3	0x00A3	#POUND SIGN
+0xA4	0x00A4	#CURRENCY SIGN
+0xA5	0x00A5	#YEN SIGN
+0xA6	0x00A6	#BROKEN BAR
+0xA7	0x00A7	#SECTION SIGN
+0xA8	0x00A8	#DIAERESIS
+0xA9	0x00A9	#COPYRIGHT SIGN
+0xAA	      	#UNDEFINED
+0xAB	0x00AB	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xAC	0x00AC	#NOT SIGN
+0xAD	0x00AD	#SOFT HYPHEN
+0xAE	0x00AE	#REGISTERED SIGN
+0xAF	0x2015	#HORIZONTAL BAR
+0xB0	0x00B0	#DEGREE SIGN
+0xB1	0x00B1	#PLUS-MINUS SIGN
+0xB2	0x00B2	#SUPERSCRIPT TWO
+0xB3	0x00B3	#SUPERSCRIPT THREE
+0xB4	0x0384	#GREEK TONOS
+0xB5	0x00B5	#MICRO SIGN
+0xB6	0x00B6	#PILCROW SIGN
+0xB7	0x00B7	#MIDDLE DOT
+0xB8	0x0388	#GREEK CAPITAL LETTER EPSILON WITH TONOS
+0xB9	0x0389	#GREEK CAPITAL LETTER ETA WITH TONOS
+0xBA	0x038A	#GREEK CAPITAL LETTER IOTA WITH TONOS
+0xBB	0x00BB	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xBC	0x038C	#GREEK CAPITAL LETTER OMICRON WITH TONOS
+0xBD	0x00BD	#VULGAR FRACTION ONE HALF
+0xBE	0x038E	#GREEK CAPITAL LETTER UPSILON WITH TONOS
+0xBF	0x038F	#GREEK CAPITAL LETTER OMEGA WITH TONOS
+0xC0	0x0390	#GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
+0xC1	0x0391	#GREEK CAPITAL LETTER ALPHA
+0xC2	0x0392	#GREEK CAPITAL LETTER BETA
+0xC3	0x0393	#GREEK CAPITAL LETTER GAMMA
+0xC4	0x0394	#GREEK CAPITAL LETTER DELTA
+0xC5	0x0395	#GREEK CAPITAL LETTER EPSILON
+0xC6	0x0396	#GREEK CAPITAL LETTER ZETA
+0xC7	0x0397	#GREEK CAPITAL LETTER ETA
+0xC8	0x0398	#GREEK CAPITAL LETTER THETA
+0xC9	0x0399	#GREEK CAPITAL LETTER IOTA
+0xCA	0x039A	#GREEK CAPITAL LETTER KAPPA
+0xCB	0x039B	#GREEK CAPITAL LETTER LAMDA
+0xCC	0x039C	#GREEK CAPITAL LETTER MU
+0xCD	0x039D	#GREEK CAPITAL LETTER NU
+0xCE	0x039E	#GREEK CAPITAL LETTER XI
+0xCF	0x039F	#GREEK CAPITAL LETTER OMICRON
+0xD0	0x03A0	#GREEK CAPITAL LETTER PI
+0xD1	0x03A1	#GREEK CAPITAL LETTER RHO
+0xD2	      	#UNDEFINED
+0xD3	0x03A3	#GREEK CAPITAL LETTER SIGMA
+0xD4	0x03A4	#GREEK CAPITAL LETTER TAU
+0xD5	0x03A5	#GREEK CAPITAL LETTER UPSILON
+0xD6	0x03A6	#GREEK CAPITAL LETTER PHI
+0xD7	0x03A7	#GREEK CAPITAL LETTER CHI
+0xD8	0x03A8	#GREEK CAPITAL LETTER PSI
+0xD9	0x03A9	#GREEK CAPITAL LETTER OMEGA
+0xDA	0x03AA	#GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
+0xDB	0x03AB	#GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
+0xDC	0x03AC	#GREEK SMALL LETTER ALPHA WITH TONOS
+0xDD	0x03AD	#GREEK SMALL LETTER EPSILON WITH TONOS
+0xDE	0x03AE	#GREEK SMALL LETTER ETA WITH TONOS
+0xDF	0x03AF	#GREEK SMALL LETTER IOTA WITH TONOS
+0xE0	0x03B0	#GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
+0xE1	0x03B1	#GREEK SMALL LETTER ALPHA
+0xE2	0x03B2	#GREEK SMALL LETTER BETA
+0xE3	0x03B3	#GREEK SMALL LETTER GAMMA
+0xE4	0x03B4	#GREEK SMALL LETTER DELTA
+0xE5	0x03B5	#GREEK SMALL LETTER EPSILON
+0xE6	0x03B6	#GREEK SMALL LETTER ZETA
+0xE7	0x03B7	#GREEK SMALL LETTER ETA
+0xE8	0x03B8	#GREEK SMALL LETTER THETA
+0xE9	0x03B9	#GREEK SMALL LETTER IOTA
+0xEA	0x03BA	#GREEK SMALL LETTER KAPPA
+0xEB	0x03BB	#GREEK SMALL LETTER LAMDA
+0xEC	0x03BC	#GREEK SMALL LETTER MU
+0xED	0x03BD	#GREEK SMALL LETTER NU
+0xEE	0x03BE	#GREEK SMALL LETTER XI
+0xEF	0x03BF	#GREEK SMALL LETTER OMICRON
+0xF0	0x03C0	#GREEK SMALL LETTER PI
+0xF1	0x03C1	#GREEK SMALL LETTER RHO
+0xF2	0x03C2	#GREEK SMALL LETTER FINAL SIGMA
+0xF3	0x03C3	#GREEK SMALL LETTER SIGMA
+0xF4	0x03C4	#GREEK SMALL LETTER TAU
+0xF5	0x03C5	#GREEK SMALL LETTER UPSILON
+0xF6	0x03C6	#GREEK SMALL LETTER PHI
+0xF7	0x03C7	#GREEK SMALL LETTER CHI
+0xF8	0x03C8	#GREEK SMALL LETTER PSI
+0xF9	0x03C9	#GREEK SMALL LETTER OMEGA
+0xFA	0x03CA	#GREEK SMALL LETTER IOTA WITH DIALYTIKA
+0xFB	0x03CB	#GREEK SMALL LETTER UPSILON WITH DIALYTIKA
+0xFC	0x03CC	#GREEK SMALL LETTER OMICRON WITH TONOS
+0xFD	0x03CD	#GREEK SMALL LETTER UPSILON WITH TONOS
+0xFE	0x03CE	#GREEK SMALL LETTER OMEGA WITH TONOS
+0xFF	      	#UNDEFINED
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x20AC /*                                     EURO SIGN */ ,
+/* 81 */ CANT_MAP_CHARACTER,
+	/* 82 */ 0x201A /*                   SINGLE LOW-9 QUOTATION MARK */ ,
+	/* 83 */ 0x0192 /*                LATIN SMALL LETTER F WITH HOOK */ ,
+	/* 84 */ 0x201E /*                   DOUBLE LOW-9 QUOTATION MARK */ ,
+	/* 85 */ 0x2026 /*                           HORIZONTAL ELLIPSIS */ ,
+	/* 86 */ 0x2020 /*                                        DAGGER */ ,
+	/* 87 */ 0x2021 /*                                 DOUBLE DAGGER */ ,
+/* 88 */ CANT_MAP_CHARACTER,
+	/* 89 */ 0x2030 /*                                PER MILLE SIGN */ ,
+/* 8A */ CANT_MAP_CHARACTER,
+	/* 8B */ 0x2039 /*     SINGLE LEFT-POINTING ANGLE QUOTATION MARK */ ,
+/* 8C */ CANT_MAP_CHARACTER,
+/* 8D */ CANT_MAP_CHARACTER,
+/* 8E */ CANT_MAP_CHARACTER,
+/* 8F */ CANT_MAP_CHARACTER,
+/* 90 */ CANT_MAP_CHARACTER,
+	/* 91 */ 0x2018 /*                    LEFT SINGLE QUOTATION MARK */ ,
+	/* 92 */ 0x2019 /*                   RIGHT SINGLE QUOTATION MARK */ ,
+	/* 93 */ 0x201C /*                    LEFT DOUBLE QUOTATION MARK */ ,
+	/* 94 */ 0x201D /*                   RIGHT DOUBLE QUOTATION MARK */ ,
+	/* 95 */ 0x2022 /*                                        BULLET */ ,
+	/* 96 */ 0x2013 /*                                       EN DASH */ ,
+	/* 97 */ 0x2014 /*                                       EM DASH */ ,
+/* 98 */ CANT_MAP_CHARACTER,
+	/* 99 */ 0x2122 /*                               TRADE MARK SIGN */ ,
+/* 9A */ CANT_MAP_CHARACTER,
+	/* 9B */ 0x203A /*    SINGLE RIGHT-POINTING ANGLE QUOTATION MARK */ ,
+/* 9C */ CANT_MAP_CHARACTER,
+/* 9D */ CANT_MAP_CHARACTER,
+/* 9E */ CANT_MAP_CHARACTER,
+/* 9F */ CANT_MAP_CHARACTER,
+	/* A0 */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+	/* A1 */ 0x0385 /*                         GREEK DIALYTIKA TONOS */ ,
+	/* A2 */ 0x0386 /*         GREEK CAPITAL LETTER ALPHA WITH TONOS */ ,
+	/* A3 */ 0x00A3 /*                                    POUND SIGN */ ,
+	/* A4 */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* A5 */ 0x00A5 /*                                      YEN SIGN */ ,
+	/* A6 */ 0x00A6 /*                                    BROKEN BAR */ ,
+	/* A7 */ 0x00A7 /*                                  SECTION SIGN */ ,
+	/* A8 */ 0x00A8 /*                                     DIAERESIS */ ,
+	/* A9 */ 0x00A9 /*                                COPYRIGHT SIGN */ ,
+/* AA */ CANT_MAP_CHARACTER,
+	/* AB */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AC */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AD */ 0x00AD /*                                   SOFT HYPHEN */ ,
+	/* AE */ 0x00AE /*                               REGISTERED SIGN */ ,
+	/* AF */ 0x2015 /*                                HORIZONTAL BAR */ ,
+	/* B0 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* B1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* B2 */ 0x00B2 /*                               SUPERSCRIPT TWO */ ,
+	/* B3 */ 0x00B3 /*                             SUPERSCRIPT THREE */ ,
+	/* B4 */ 0x0384 /*                                   GREEK TONOS */ ,
+	/* B5 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* B6 */ 0x00B6 /*                                  PILCROW SIGN */ ,
+	/* B7 */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* B8 */ 0x0388 /*       GREEK CAPITAL LETTER EPSILON WITH TONOS */ ,
+	/* B9 */ 0x0389 /*           GREEK CAPITAL LETTER ETA WITH TONOS */ ,
+	/* BA */ 0x038A /*          GREEK CAPITAL LETTER IOTA WITH TONOS */ ,
+	/* BB */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* BC */ 0x038C /*       GREEK CAPITAL LETTER OMICRON WITH TONOS */ ,
+	/* BD */ 0x00BD /*                      VULGAR FRACTION ONE HALF */ ,
+	/* BE */ 0x038E /*       GREEK CAPITAL LETTER UPSILON WITH TONOS */ ,
+	/* BF */ 0x038F /*         GREEK CAPITAL LETTER OMEGA WITH TONOS */ ,
+	/* C0 */ 0x0390 /* GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS */ ,
+	/* C1 */ 0x0391 /*                    GREEK CAPITAL LETTER ALPHA */ ,
+	/* C2 */ 0x0392 /*                     GREEK CAPITAL LETTER BETA */ ,
+	/* C3 */ 0x0393 /*                    GREEK CAPITAL LETTER GAMMA */ ,
+	/* C4 */ 0x0394 /*                    GREEK CAPITAL LETTER DELTA */ ,
+	/* C5 */ 0x0395 /*                  GREEK CAPITAL LETTER EPSILON */ ,
+	/* C6 */ 0x0396 /*                     GREEK CAPITAL LETTER ZETA */ ,
+	/* C7 */ 0x0397 /*                      GREEK CAPITAL LETTER ETA */ ,
+	/* C8 */ 0x0398 /*                    GREEK CAPITAL LETTER THETA */ ,
+	/* C9 */ 0x0399 /*                     GREEK CAPITAL LETTER IOTA */ ,
+	/* CA */ 0x039A /*                    GREEK CAPITAL LETTER KAPPA */ ,
+	/* CB */ 0x039B /*                    GREEK CAPITAL LETTER LAMDA */ ,
+	/* CC */ 0x039C /*                       GREEK CAPITAL LETTER MU */ ,
+	/* CD */ 0x039D /*                       GREEK CAPITAL LETTER NU */ ,
+	/* CE */ 0x039E /*                       GREEK CAPITAL LETTER XI */ ,
+	/* CF */ 0x039F /*                  GREEK CAPITAL LETTER OMICRON */ ,
+	/* D0 */ 0x03A0 /*                       GREEK CAPITAL LETTER PI */ ,
+	/* D1 */ 0x03A1 /*                      GREEK CAPITAL LETTER RHO */ ,
+/* D2 */ CANT_MAP_CHARACTER,
+	/* D3 */ 0x03A3 /*                    GREEK CAPITAL LETTER SIGMA */ ,
+	/* D4 */ 0x03A4 /*                      GREEK CAPITAL LETTER TAU */ ,
+	/* D5 */ 0x03A5 /*                  GREEK CAPITAL LETTER UPSILON */ ,
+	/* D6 */ 0x03A6 /*                      GREEK CAPITAL LETTER PHI */ ,
+	/* D7 */ 0x03A7 /*                      GREEK CAPITAL LETTER CHI */ ,
+	/* D8 */ 0x03A8 /*                      GREEK CAPITAL LETTER PSI */ ,
+	/* D9 */ 0x03A9 /*                    GREEK CAPITAL LETTER OMEGA */ ,
+	/* DA */ 0x03AA /*      GREEK CAPITAL LETTER IOTA WITH DIALYTIKA */ ,
+	/* DB */ 0x03AB /*   GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA */ ,
+	/* DC */ 0x03AC /*           GREEK SMALL LETTER ALPHA WITH TONOS */ ,
+	/* DD */ 0x03AD /*         GREEK SMALL LETTER EPSILON WITH TONOS */ ,
+	/* DE */ 0x03AE /*             GREEK SMALL LETTER ETA WITH TONOS */ ,
+	/* DF */ 0x03AF /*            GREEK SMALL LETTER IOTA WITH TONOS */ ,
+	/* E0 */
+		0x03B0 /* GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS */ ,
+	/* E1 */ 0x03B1 /*                      GREEK SMALL LETTER ALPHA */ ,
+	/* E2 */ 0x03B2 /*                       GREEK SMALL LETTER BETA */ ,
+	/* E3 */ 0x03B3 /*                      GREEK SMALL LETTER GAMMA */ ,
+	/* E4 */ 0x03B4 /*                      GREEK SMALL LETTER DELTA */ ,
+	/* E5 */ 0x03B5 /*                    GREEK SMALL LETTER EPSILON */ ,
+	/* E6 */ 0x03B6 /*                       GREEK SMALL LETTER ZETA */ ,
+	/* E7 */ 0x03B7 /*                        GREEK SMALL LETTER ETA */ ,
+	/* E8 */ 0x03B8 /*                      GREEK SMALL LETTER THETA */ ,
+	/* E9 */ 0x03B9 /*                       GREEK SMALL LETTER IOTA */ ,
+	/* EA */ 0x03BA /*                      GREEK SMALL LETTER KAPPA */ ,
+	/* EB */ 0x03BB /*                      GREEK SMALL LETTER LAMDA */ ,
+	/* EC */ 0x03BC /*                         GREEK SMALL LETTER MU */ ,
+	/* ED */ 0x03BD /*                         GREEK SMALL LETTER NU */ ,
+	/* EE */ 0x03BE /*                         GREEK SMALL LETTER XI */ ,
+	/* EF */ 0x03BF /*                    GREEK SMALL LETTER OMICRON */ ,
+	/* F0 */ 0x03C0 /*                         GREEK SMALL LETTER PI */ ,
+	/* F1 */ 0x03C1 /*                        GREEK SMALL LETTER RHO */ ,
+	/* F2 */ 0x03C2 /*                GREEK SMALL LETTER FINAL SIGMA */ ,
+	/* F3 */ 0x03C3 /*                      GREEK SMALL LETTER SIGMA */ ,
+	/* F4 */ 0x03C4 /*                        GREEK SMALL LETTER TAU */ ,
+	/* F5 */ 0x03C5 /*                    GREEK SMALL LETTER UPSILON */ ,
+	/* F6 */ 0x03C6 /*                        GREEK SMALL LETTER PHI */ ,
+	/* F7 */ 0x03C7 /*                        GREEK SMALL LETTER CHI */ ,
+	/* F8 */ 0x03C8 /*                        GREEK SMALL LETTER PSI */ ,
+	/* F9 */ 0x03C9 /*                      GREEK SMALL LETTER OMEGA */ ,
+	/* FA */ 0x03CA /*        GREEK SMALL LETTER IOTA WITH DIALYTIKA */ ,
+	/* FB */ 0x03CB /*     GREEK SMALL LETTER UPSILON WITH DIALYTIKA */ ,
+	/* FC */ 0x03CC /*         GREEK SMALL LETTER OMICRON WITH TONOS */ ,
+	/* FD */ 0x03CD /*         GREEK SMALL LETTER UPSILON WITH TONOS */ ,
+	/* FE */ 0x03CE /*           GREEK SMALL LETTER OMEGA WITH TONOS */ ,
+/* FF */ CANT_MAP_CHARACTER,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xA0 /*                                NO-BREAK SPACE */ ,	/* 416 */
+										/* U+00A1 */ CANT_MAP_CHARACTER,
+										/* 417 */
+										/* U+00A2 */ CANT_MAP_CHARACTER,
+										/* 418 */
+	/* U+00A3 */ 0xA3 /*                                    POUND SIGN */ ,	/* 419 */
+	/* U+00A4 */ 0xA4 /*                                 CURRENCY SIGN */ ,	/* 420 */
+	/* U+00A5 */ 0xA5 /*                                      YEN SIGN */ ,	/* 421 */
+	/* U+00A6 */ 0xA6 /*                                    BROKEN BAR */ ,	/* 422 */
+	/* U+00A7 */ 0xA7 /*                                  SECTION SIGN */ ,	/* 423 */
+	/* U+00A8 */ 0xA8 /*                                     DIAERESIS */ ,	/* 424 */
+	/* U+00A9 */ 0xA9 /*                                COPYRIGHT SIGN */ ,	/* 425 */
+										/* U+00AA */ CANT_MAP_CHARACTER,
+										/* 426 */
+	/* U+00AB */ 0xAB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAC /*                                      NOT SIGN */ ,	/* 428 */
+	/* U+00AD */ 0xAD /*                                   SOFT HYPHEN */ ,	/* 429 */
+	/* U+00AE */ 0xAE /*                               REGISTERED SIGN */ ,	/* 430 */
+										/* U+00AF */ CANT_MAP_CHARACTER,
+										/* 431 */
+	/* U+00B0 */ 0xB0 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xB1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+	/* U+00B2 */ 0xB2 /*                               SUPERSCRIPT TWO */ ,	/* 434 */
+	/* U+00B3 */ 0xB3 /*                             SUPERSCRIPT THREE */ ,	/* 435 */
+										/* U+00B4 */ CANT_MAP_CHARACTER,
+										/* 436 */
+	/* U+00B5 */ 0xB5 /*                                    MICRO SIGN */ ,	/* 437 */
+	/* U+00B6 */ 0xB6 /*                                  PILCROW SIGN */ ,	/* 438 */
+	/* U+00B7 */ 0xB7 /*                                    MIDDLE DOT */ ,	/* 439 */
+										/* U+00B8 */ CANT_MAP_CHARACTER,
+										/* 440 */
+										/* U+00B9 */ CANT_MAP_CHARACTER,
+										/* 441 */
+										/* U+00BA */ CANT_MAP_CHARACTER,
+										/* 442 */
+	/* U+00BB */ 0xBB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+										/* U+00BC */ CANT_MAP_CHARACTER,
+										/* 444 */
+	/* U+00BD */ 0xBD /*                      VULGAR FRACTION ONE HALF */ ,	/* 445 */
+										/* U+00BE */ CANT_MAP_CHARACTER,
+										/* 446 */
+										/* U+00BF */ CANT_MAP_CHARACTER,
+										/* 447 */
+										/* U+00C0 */ CANT_MAP_CHARACTER,
+										/* 448 */
+										/* U+00C1 */ CANT_MAP_CHARACTER,
+										/* 449 */
+										/* U+00C2 */ CANT_MAP_CHARACTER,
+										/* 450 */
+										/* U+00C3 */ CANT_MAP_CHARACTER,
+										/* 451 */
+										/* U+00C4 */ CANT_MAP_CHARACTER,
+										/* 452 */
+										/* U+00C5 */ CANT_MAP_CHARACTER,
+										/* 453 */
+										/* U+00C6 */ CANT_MAP_CHARACTER,
+										/* 454 */
+										/* U+00C7 */ CANT_MAP_CHARACTER,
+										/* 455 */
+										/* U+00C8 */ CANT_MAP_CHARACTER,
+										/* 456 */
+										/* U+00C9 */ CANT_MAP_CHARACTER,
+										/* 457 */
+										/* U+00CA */ CANT_MAP_CHARACTER,
+										/* 458 */
+										/* U+00CB */ CANT_MAP_CHARACTER,
+										/* 459 */
+										/* U+00CC */ CANT_MAP_CHARACTER,
+										/* 460 */
+										/* U+00CD */ CANT_MAP_CHARACTER,
+										/* 461 */
+										/* U+00CE */ CANT_MAP_CHARACTER,
+										/* 462 */
+										/* U+00CF */ CANT_MAP_CHARACTER,
+										/* 463 */
+										/* U+00D0 */ CANT_MAP_CHARACTER,
+										/* 464 */
+										/* U+00D1 */ CANT_MAP_CHARACTER,
+										/* 465 */
+										/* U+00D2 */ CANT_MAP_CHARACTER,
+										/* 466 */
+										/* U+00D3 */ CANT_MAP_CHARACTER,
+										/* 467 */
+										/* U+00D4 */ CANT_MAP_CHARACTER,
+										/* 468 */
+										/* U+00D5 */ CANT_MAP_CHARACTER,
+										/* 469 */
+										/* U+00D6 */ CANT_MAP_CHARACTER,
+										/* 470 */
+										/* U+00D7 */ CANT_MAP_CHARACTER,
+										/* 471 */
+										/* U+00D8 */ CANT_MAP_CHARACTER,
+										/* 472 */
+										/* U+00D9 */ CANT_MAP_CHARACTER,
+										/* 473 */
+										/* U+00DA */ CANT_MAP_CHARACTER,
+										/* 474 */
+										/* U+00DB */ CANT_MAP_CHARACTER,
+										/* 475 */
+										/* U+00DC */ CANT_MAP_CHARACTER,
+										/* 476 */
+										/* U+00DD */ CANT_MAP_CHARACTER,
+										/* 477 */
+										/* U+00DE */ CANT_MAP_CHARACTER,
+										/* 478 */
+										/* U+00DF */ CANT_MAP_CHARACTER,
+										/* 479 */
+										/* U+00E0 */ CANT_MAP_CHARACTER,
+										/* 480 */
+										/* U+00E1 */ CANT_MAP_CHARACTER,
+										/* 481 */
+										/* U+00E2 */ CANT_MAP_CHARACTER,
+										/* 482 */
+										/* U+00E3 */ CANT_MAP_CHARACTER,
+										/* 483 */
+										/* U+00E4 */ CANT_MAP_CHARACTER,
+										/* 484 */
+										/* U+00E5 */ CANT_MAP_CHARACTER,
+										/* 485 */
+										/* U+00E6 */ CANT_MAP_CHARACTER,
+										/* 486 */
+										/* U+00E7 */ CANT_MAP_CHARACTER,
+										/* 487 */
+										/* U+00E8 */ CANT_MAP_CHARACTER,
+										/* 488 */
+										/* U+00E9 */ CANT_MAP_CHARACTER,
+										/* 489 */
+										/* U+00EA */ CANT_MAP_CHARACTER,
+										/* 490 */
+										/* U+00EB */ CANT_MAP_CHARACTER,
+										/* 491 */
+										/* U+00EC */ CANT_MAP_CHARACTER,
+										/* 492 */
+										/* U+00ED */ CANT_MAP_CHARACTER,
+										/* 493 */
+										/* U+00EE */ CANT_MAP_CHARACTER,
+										/* 494 */
+										/* U+00EF */ CANT_MAP_CHARACTER,
+										/* 495 */
+										/* U+00F0 */ CANT_MAP_CHARACTER,
+										/* 496 */
+										/* U+00F1 */ CANT_MAP_CHARACTER,
+										/* 497 */
+										/* U+00F2 */ CANT_MAP_CHARACTER,
+										/* 498 */
+										/* U+00F3 */ CANT_MAP_CHARACTER,
+										/* 499 */
+										/* U+00F4 */ CANT_MAP_CHARACTER,
+										/* 500 */
+										/* U+00F5 */ CANT_MAP_CHARACTER,
+										/* 501 */
+										/* U+00F6 */ CANT_MAP_CHARACTER,
+										/* 502 */
+										/* U+00F7 */ CANT_MAP_CHARACTER,
+										/* 503 */
+										/* U+00F8 */ CANT_MAP_CHARACTER,
+										/* 504 */
+										/* U+00F9 */ CANT_MAP_CHARACTER,
+										/* 505 */
+										/* U+00FA */ CANT_MAP_CHARACTER,
+										/* 506 */
+										/* U+00FB */ CANT_MAP_CHARACTER,
+										/* 507 */
+										/* U+00FC */ CANT_MAP_CHARACTER,
+										/* 508 */
+										/* U+00FD */ CANT_MAP_CHARACTER,
+										/* 509 */
+										/* U+00FE */ CANT_MAP_CHARACTER,
+										/* 510 */
+										/* U+00FF */ CANT_MAP_CHARACTER,
+										/* 511 */
+										/* U+0100 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0101 */ CANT_MAP_CHARACTER,
+										/* 513 */
+										/* U+0102 */ CANT_MAP_CHARACTER,
+										/* 514 */
+										/* U+0103 */ CANT_MAP_CHARACTER,
+										/* 515 */
+										/* U+0104 */ CANT_MAP_CHARACTER,
+										/* 516 */
+										/* U+0105 */ CANT_MAP_CHARACTER,
+										/* 517 */
+										/* U+0106 */ CANT_MAP_CHARACTER,
+										/* 518 */
+										/* U+0107 */ CANT_MAP_CHARACTER,
+										/* 519 */
+										/* U+0108 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0109 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+010A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+010B */ CANT_MAP_CHARACTER,
+										/* 523 */
+										/* U+010C */ CANT_MAP_CHARACTER,
+										/* 524 */
+										/* U+010D */ CANT_MAP_CHARACTER,
+										/* 525 */
+										/* U+010E */ CANT_MAP_CHARACTER,
+										/* 526 */
+										/* U+010F */ CANT_MAP_CHARACTER,
+										/* 527 */
+										/* U+0110 */ CANT_MAP_CHARACTER,
+										/* 528 */
+										/* U+0111 */ CANT_MAP_CHARACTER,
+										/* 529 */
+										/* U+0112 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0113 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0114 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0115 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0116 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0117 */ CANT_MAP_CHARACTER,
+										/* 535 */
+										/* U+0118 */ CANT_MAP_CHARACTER,
+										/* 536 */
+										/* U+0119 */ CANT_MAP_CHARACTER,
+										/* 537 */
+										/* U+011A */ CANT_MAP_CHARACTER,
+										/* 538 */
+										/* U+011B */ CANT_MAP_CHARACTER,
+										/* 539 */
+										/* U+011C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+011D */ CANT_MAP_CHARACTER,
+										/* 541 */
+										/* U+011E */ CANT_MAP_CHARACTER,
+										/* 542 */
+										/* U+011F */ CANT_MAP_CHARACTER,
+										/* 543 */
+										/* U+0120 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0121 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0122 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0123 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0124 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0125 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0126 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0127 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0128 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0129 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+012A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+012B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+012C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+012D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+012E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+012F */ CANT_MAP_CHARACTER,
+										/* 559 */
+										/* U+0130 */ CANT_MAP_CHARACTER,
+										/* 560 */
+										/* U+0131 */ CANT_MAP_CHARACTER,
+										/* 561 */
+										/* U+0132 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0133 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0134 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0135 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0136 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0137 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0138 */ CANT_MAP_CHARACTER,
+										/* 568 */
+										/* U+0139 */ CANT_MAP_CHARACTER,
+										/* 569 */
+										/* U+013A */ CANT_MAP_CHARACTER,
+										/* 570 */
+										/* U+013B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+013C */ CANT_MAP_CHARACTER,
+										/* 572 */
+										/* U+013D */ CANT_MAP_CHARACTER,
+										/* 573 */
+										/* U+013E */ CANT_MAP_CHARACTER,
+										/* 574 */
+										/* U+013F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0140 */ CANT_MAP_CHARACTER,
+										/* 576 */
+										/* U+0141 */ CANT_MAP_CHARACTER,
+										/* 577 */
+										/* U+0142 */ CANT_MAP_CHARACTER,
+										/* 578 */
+										/* U+0143 */ CANT_MAP_CHARACTER,
+										/* 579 */
+										/* U+0144 */ CANT_MAP_CHARACTER,
+										/* 580 */
+										/* U+0145 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0146 */ CANT_MAP_CHARACTER,
+										/* 582 */
+										/* U+0147 */ CANT_MAP_CHARACTER,
+										/* 583 */
+										/* U+0148 */ CANT_MAP_CHARACTER,
+										/* 584 */
+										/* U+0149 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+014A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+014B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+014C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+014D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+014E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+014F */ CANT_MAP_CHARACTER,
+										/* 591 */
+										/* U+0150 */ CANT_MAP_CHARACTER,
+										/* 592 */
+										/* U+0151 */ CANT_MAP_CHARACTER,
+										/* 593 */
+										/* U+0152 */ CANT_MAP_CHARACTER,
+										/* 594 */
+										/* U+0153 */ CANT_MAP_CHARACTER,
+										/* 595 */
+										/* U+0154 */ CANT_MAP_CHARACTER,
+										/* 596 */
+										/* U+0155 */ CANT_MAP_CHARACTER,
+										/* 597 */
+										/* U+0156 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0157 */ CANT_MAP_CHARACTER,
+										/* 599 */
+										/* U+0158 */ CANT_MAP_CHARACTER,
+										/* 600 */
+										/* U+0159 */ CANT_MAP_CHARACTER,
+										/* 601 */
+										/* U+015A */ CANT_MAP_CHARACTER,
+										/* 602 */
+										/* U+015B */ CANT_MAP_CHARACTER,
+										/* 603 */
+										/* U+015C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+015D */ CANT_MAP_CHARACTER,
+										/* 605 */
+										/* U+015E */ CANT_MAP_CHARACTER,
+										/* 606 */
+										/* U+015F */ CANT_MAP_CHARACTER,
+										/* 607 */
+										/* U+0160 */ CANT_MAP_CHARACTER,
+										/* 608 */
+										/* U+0161 */ CANT_MAP_CHARACTER,
+										/* 609 */
+										/* U+0162 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0163 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0164 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0165 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0166 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0167 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0168 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0169 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+016A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+016B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+016C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+016D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+016E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+016F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0170 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0171 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0172 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0173 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0174 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0175 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0176 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0177 */ CANT_MAP_CHARACTER,
+										/* 631 */
+										/* U+0178 */ CANT_MAP_CHARACTER,
+										/* 632 */
+										/* U+0179 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+017A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+017B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+017C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+017D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+017E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+017F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0180 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0181 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0182 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0183 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0184 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0185 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0186 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0187 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0188 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0189 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+018A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+018B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+018C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+018D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+018E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+018F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0190 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0191 */ CANT_MAP_CHARACTER,
+										/* 657 */
+	/* U+0192 */ 0x83 /*                LATIN SMALL LETTER F WITH HOOK */ ,	/* 658 */
+										/* U+0193 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0194 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0195 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0196 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0197 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0198 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0199 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+019A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+019B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+019C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+019D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+019E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+019F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+01A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+01A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+01A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+01A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+01A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+01A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+01A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+01A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+01A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+01A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+01AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+01AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+01AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+01AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+01AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+01AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+01B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+01B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+01B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+01B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+01B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+01B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+01B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+01B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+01B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+01B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+01BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+01BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+01BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+01BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+01BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+01BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+01C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+01C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+01C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+01C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+01C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+01C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+01C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+01C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+01C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+01C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+01CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+01CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+01CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+01CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+01CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+01CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+01D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+01D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+01D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+01D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+01D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+01D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+01D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+01D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+01D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+01D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+01DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+01DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+01DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+01DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+01DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+01DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+01E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+01E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+01E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+01E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+01E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+01E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+01E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+01E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+01E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+01E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+01EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+01EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+01EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+01ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+01EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+01EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+01F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+01F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+01F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+01F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+01F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+01F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+01F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+01F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+01F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+01F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+01FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+01FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+01FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+01FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+01FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+01FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+0300 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+0301 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+0302 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+0303 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+0304 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+0305 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+0306 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+0307 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+0308 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+0309 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+030A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+030B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+030C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+030D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+030E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+030F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+0310 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+0311 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+0312 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+0313 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+0314 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+0315 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+0316 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+0317 */ CANT_MAP_CHARACTER,
+										/* 791 */
+										/* U+0318 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+0319 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+031A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+031B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+031C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+031D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+031E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+031F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+0320 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+0321 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+0322 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+0323 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+0324 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+0325 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+0326 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+0327 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+0328 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+0329 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+032A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+032B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+032C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+032D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+032E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+032F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+0330 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+0331 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+0332 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+0333 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+0334 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+0335 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+0336 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+0337 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+0338 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+0339 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+033A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+033B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+033C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+033D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+033E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+033F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+0340 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+0341 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+0342 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+0343 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+0344 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+0345 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+0346 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+0347 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+0348 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+0349 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+034A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+034B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+034C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+034D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+034E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+034F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+0350 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+0351 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+0352 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+0353 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+0354 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+0355 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+0356 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+0357 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+0358 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+0359 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+035A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+035B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+035C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+035D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+035E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+035F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+0360 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+0361 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+0362 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+0363 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+0364 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+0365 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+0366 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+0367 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+0368 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+0369 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+036A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+036B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+036C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+036D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+036E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+036F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+0370 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+0371 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+0372 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+0373 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+0374 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+0375 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+0376 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+0377 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+0378 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+0379 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+037A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+037B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+037C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+037D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+037E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+037F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+0380 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+0381 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+0382 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+0383 */ CANT_MAP_CHARACTER,
+										/* 899 */
+	/* U+0384 */ 0xB4 /*                                   GREEK TONOS */ ,	/* 900 */
+	/* U+0385 */ 0xA1 /*                         GREEK DIALYTIKA TONOS */ ,	/* 901 */
+	/* U+0386 */ 0xA2 /*         GREEK CAPITAL LETTER ALPHA WITH TONOS */ ,	/* 902 */
+										/* U+0387 */ CANT_MAP_CHARACTER,
+										/* 903 */
+	/* U+0388 */ 0xB8 /*       GREEK CAPITAL LETTER EPSILON WITH TONOS */ ,	/* 904 */
+	/* U+0389 */ 0xB9 /*           GREEK CAPITAL LETTER ETA WITH TONOS */ ,	/* 905 */
+	/* U+038A */ 0xBA /*          GREEK CAPITAL LETTER IOTA WITH TONOS */ ,	/* 906 */
+										/* U+038B */ CANT_MAP_CHARACTER,
+										/* 907 */
+	/* U+038C */ 0xBC /*       GREEK CAPITAL LETTER OMICRON WITH TONOS */ ,	/* 908 */
+										/* U+038D */ CANT_MAP_CHARACTER,
+										/* 909 */
+	/* U+038E */ 0xBE /*       GREEK CAPITAL LETTER UPSILON WITH TONOS */ ,	/* 910 */
+	/* U+038F */ 0xBF /*         GREEK CAPITAL LETTER OMEGA WITH TONOS */ ,	/* 911 */
+	/* U+0390 */ 0xC0 /* GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS */ ,	/* 912 */
+	/* U+0391 */ 0xC1 /*                    GREEK CAPITAL LETTER ALPHA */ ,	/* 913 */
+	/* U+0392 */ 0xC2 /*                     GREEK CAPITAL LETTER BETA */ ,	/* 914 */
+	/* U+0393 */ 0xC3 /*                    GREEK CAPITAL LETTER GAMMA */ ,	/* 915 */
+	/* U+0394 */ 0xC4 /*                    GREEK CAPITAL LETTER DELTA */ ,	/* 916 */
+	/* U+0395 */ 0xC5 /*                  GREEK CAPITAL LETTER EPSILON */ ,	/* 917 */
+	/* U+0396 */ 0xC6 /*                     GREEK CAPITAL LETTER ZETA */ ,	/* 918 */
+	/* U+0397 */ 0xC7 /*                      GREEK CAPITAL LETTER ETA */ ,	/* 919 */
+	/* U+0398 */ 0xC8 /*                    GREEK CAPITAL LETTER THETA */ ,	/* 920 */
+	/* U+0399 */ 0xC9 /*                     GREEK CAPITAL LETTER IOTA */ ,	/* 921 */
+	/* U+039A */ 0xCA /*                    GREEK CAPITAL LETTER KAPPA */ ,	/* 922 */
+	/* U+039B */ 0xCB /*                    GREEK CAPITAL LETTER LAMDA */ ,	/* 923 */
+	/* U+039C */ 0xCC /*                       GREEK CAPITAL LETTER MU */ ,	/* 924 */
+	/* U+039D */ 0xCD /*                       GREEK CAPITAL LETTER NU */ ,	/* 925 */
+	/* U+039E */ 0xCE /*                       GREEK CAPITAL LETTER XI */ ,	/* 926 */
+	/* U+039F */ 0xCF /*                  GREEK CAPITAL LETTER OMICRON */ ,	/* 927 */
+	/* U+03A0 */ 0xD0 /*                       GREEK CAPITAL LETTER PI */ ,	/* 928 */
+	/* U+03A1 */ 0xD1 /*                      GREEK CAPITAL LETTER RHO */ ,	/* 929 */
+										/* U+03A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+	/* U+03A3 */ 0xD3 /*                    GREEK CAPITAL LETTER SIGMA */ ,	/* 931 */
+	/* U+03A4 */ 0xD4 /*                      GREEK CAPITAL LETTER TAU */ ,	/* 932 */
+	/* U+03A5 */ 0xD5 /*                  GREEK CAPITAL LETTER UPSILON */ ,	/* 933 */
+	/* U+03A6 */ 0xD6 /*                      GREEK CAPITAL LETTER PHI */ ,	/* 934 */
+	/* U+03A7 */ 0xD7 /*                      GREEK CAPITAL LETTER CHI */ ,	/* 935 */
+	/* U+03A8 */ 0xD8 /*                      GREEK CAPITAL LETTER PSI */ ,	/* 936 */
+	/* U+03A9 */ 0xD9 /*                    GREEK CAPITAL LETTER OMEGA */ ,	/* 937 */
+	/* U+03AA */ 0xDA /*      GREEK CAPITAL LETTER IOTA WITH DIALYTIKA */ ,	/* 938 */
+	/* U+03AB */ 0xDB /*   GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA */ ,	/* 939 */
+	/* U+03AC */ 0xDC /*           GREEK SMALL LETTER ALPHA WITH TONOS */ ,	/* 940 */
+	/* U+03AD */ 0xDD /*         GREEK SMALL LETTER EPSILON WITH TONOS */ ,	/* 941 */
+	/* U+03AE */ 0xDE /*             GREEK SMALL LETTER ETA WITH TONOS */ ,	/* 942 */
+	/* U+03AF */ 0xDF /*            GREEK SMALL LETTER IOTA WITH TONOS */ ,	/* 943 */
+	/* U+03B0 */ 0xE0 /* GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS */ ,	/* 944 */
+	/* U+03B1 */ 0xE1 /*                      GREEK SMALL LETTER ALPHA */ ,	/* 945 */
+	/* U+03B2 */ 0xE2 /*                       GREEK SMALL LETTER BETA */ ,	/* 946 */
+	/* U+03B3 */ 0xE3 /*                      GREEK SMALL LETTER GAMMA */ ,	/* 947 */
+	/* U+03B4 */ 0xE4 /*                      GREEK SMALL LETTER DELTA */ ,	/* 948 */
+	/* U+03B5 */ 0xE5 /*                    GREEK SMALL LETTER EPSILON */ ,	/* 949 */
+	/* U+03B6 */ 0xE6 /*                       GREEK SMALL LETTER ZETA */ ,	/* 950 */
+	/* U+03B7 */ 0xE7 /*                        GREEK SMALL LETTER ETA */ ,	/* 951 */
+	/* U+03B8 */ 0xE8 /*                      GREEK SMALL LETTER THETA */ ,	/* 952 */
+	/* U+03B9 */ 0xE9 /*                       GREEK SMALL LETTER IOTA */ ,	/* 953 */
+	/* U+03BA */ 0xEA /*                      GREEK SMALL LETTER KAPPA */ ,	/* 954 */
+	/* U+03BB */ 0xEB /*                      GREEK SMALL LETTER LAMDA */ ,	/* 955 */
+	/* U+03BC */ 0xEC /*                         GREEK SMALL LETTER MU */ ,	/* 956 */
+	/* U+03BD */ 0xED /*                         GREEK SMALL LETTER NU */ ,	/* 957 */
+	/* U+03BE */ 0xEE /*                         GREEK SMALL LETTER XI */ ,	/* 958 */
+	/* U+03BF */ 0xEF /*                    GREEK SMALL LETTER OMICRON */ ,	/* 959 */
+	/* U+03C0 */ 0xF0 /*                         GREEK SMALL LETTER PI */ ,	/* 960 */
+	/* U+03C1 */ 0xF1 /*                        GREEK SMALL LETTER RHO */ ,	/* 961 */
+	/* U+03C2 */ 0xF2 /*                GREEK SMALL LETTER FINAL SIGMA */ ,	/* 962 */
+	/* U+03C3 */ 0xF3 /*                      GREEK SMALL LETTER SIGMA */ ,	/* 963 */
+	/* U+03C4 */ 0xF4 /*                        GREEK SMALL LETTER TAU */ ,	/* 964 */
+	/* U+03C5 */ 0xF5 /*                    GREEK SMALL LETTER UPSILON */ ,	/* 965 */
+	/* U+03C6 */ 0xF6 /*                        GREEK SMALL LETTER PHI */ ,	/* 966 */
+	/* U+03C7 */ 0xF7 /*                        GREEK SMALL LETTER CHI */ ,	/* 967 */
+	/* U+03C8 */ 0xF8 /*                        GREEK SMALL LETTER PSI */ ,	/* 968 */
+	/* U+03C9 */ 0xF9 /*                      GREEK SMALL LETTER OMEGA */ ,	/* 969 */
+	/* U+03CA */ 0xFA /*        GREEK SMALL LETTER IOTA WITH DIALYTIKA */ ,	/* 970 */
+	/* U+03CB */ 0xFB /*     GREEK SMALL LETTER UPSILON WITH DIALYTIKA */ ,	/* 971 */
+	/* U+03CC */ 0xFC /*         GREEK SMALL LETTER OMICRON WITH TONOS */ ,	/* 972 */
+	/* U+03CD */ 0xFD /*         GREEK SMALL LETTER UPSILON WITH TONOS */ ,	/* 973 */
+	/* U+03CE */ 0xFE /*           GREEK SMALL LETTER OMEGA WITH TONOS */ ,	/* 974 */
+										/* U+03CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+03D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+03D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+03D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+03D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+03D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+03D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+03D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+03D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+03D8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+03D9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+03DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+03DB */ CANT_MAP_CHARACTER,
+										/* 987 */
+										/* U+03DC */ CANT_MAP_CHARACTER,
+										/* 988 */
+										/* U+03DD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+03DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+03DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+03E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+03E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+03E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+03E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+03E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+03E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+03E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+03E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+03E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+03E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+03EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+03EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+03EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+03ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+03EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+03EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+03F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+03F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+03F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+03F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+03F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+03F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+03F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+03F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+03F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+03F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+03FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+03FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+03FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+03FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+03FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+03FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 1024 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 1026 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 1036 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 1040 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+	/* U+2013 */ 0x96 /*                                       EN DASH */ ,	/* 1043 */
+	/* U+2014 */ 0x97 /*                                       EM DASH */ ,	/* 1044 */
+	/* U+2015 */ 0xAF /*                                HORIZONTAL BAR */ ,	/* 1045 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 1046 */
+										/* U+2017 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+	/* U+2018 */ 0x91 /*                    LEFT SINGLE QUOTATION MARK */ ,	/* 1048 */
+	/* U+2019 */ 0x92 /*                   RIGHT SINGLE QUOTATION MARK */ ,	/* 1049 */
+	/* U+201A */ 0x82 /*                   SINGLE LOW-9 QUOTATION MARK */ ,	/* 1050 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+	/* U+201C */ 0x93 /*                    LEFT DOUBLE QUOTATION MARK */ ,	/* 1052 */
+	/* U+201D */ 0x94 /*                   RIGHT DOUBLE QUOTATION MARK */ ,	/* 1053 */
+	/* U+201E */ 0x84 /*                   DOUBLE LOW-9 QUOTATION MARK */ ,	/* 1054 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+	/* U+2020 */ 0x86 /*                                        DAGGER */ ,	/* 1056 */
+	/* U+2021 */ 0x87 /*                                 DOUBLE DAGGER */ ,	/* 1057 */
+	/* U+2022 */ 0x95 /*                                        BULLET */ ,	/* 1058 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 1060 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+	/* U+2026 */ 0x85 /*                           HORIZONTAL ELLIPSIS */ ,	/* 1062 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 1068 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+	/* U+2030 */ 0x89 /*                                PER MILLE SIGN */ ,	/* 1072 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 1076 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+	/* U+2039 */ 0x8B /*     SINGLE LEFT-POINTING ANGLE QUOTATION MARK */ ,	/* 1081 */
+	/* U+203A */ 0x9B /*    SINGLE RIGHT-POINTING ANGLE QUOTATION MARK */ ,	/* 1082 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 1084 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 1104 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 1105 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 1108 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 1111 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 1114 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 1117 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 1120 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 1123 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 1126 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 1129 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 1132 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+										/* U+207F */ CANT_MAP_CHARACTER,
+										/* 1151 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 1152 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 1156 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 1160 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 1169 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 1170 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 1171 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 1184 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+										/* U+20A7 */ CANT_MAP_CHARACTER,
+										/* 1191 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+	/* U+20AC */ 0x80 /*                                     EURO SIGN */ ,	/* 1196 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+										/* U+2100 */ CANT_MAP_CHARACTER,
+										/* 1280 */
+										/* U+2101 */ CANT_MAP_CHARACTER,
+										/* 1281 */
+										/* U+2102 */ CANT_MAP_CHARACTER,
+										/* 1282 */
+										/* U+2103 */ CANT_MAP_CHARACTER,
+										/* 1283 */
+										/* U+2104 */ CANT_MAP_CHARACTER,
+										/* 1284 */
+										/* U+2105 */ CANT_MAP_CHARACTER,
+										/* 1285 */
+										/* U+2106 */ CANT_MAP_CHARACTER,
+										/* 1286 */
+										/* U+2107 */ CANT_MAP_CHARACTER,
+										/* 1287 */
+										/* U+2108 */ CANT_MAP_CHARACTER,
+										/* 1288 */
+										/* U+2109 */ CANT_MAP_CHARACTER,
+										/* 1289 */
+										/* U+210A */ CANT_MAP_CHARACTER,
+										/* 1290 */
+										/* U+210B */ CANT_MAP_CHARACTER,
+										/* 1291 */
+										/* U+210C */ CANT_MAP_CHARACTER,
+										/* 1292 */
+										/* U+210D */ CANT_MAP_CHARACTER,
+										/* 1293 */
+										/* U+210E */ CANT_MAP_CHARACTER,
+										/* 1294 */
+										/* U+210F */ CANT_MAP_CHARACTER,
+										/* 1295 */
+										/* U+2110 */ CANT_MAP_CHARACTER,
+										/* 1296 */
+										/* U+2111 */ CANT_MAP_CHARACTER,
+										/* 1297 */
+										/* U+2112 */ CANT_MAP_CHARACTER,
+										/* 1298 */
+										/* U+2113 */ CANT_MAP_CHARACTER,
+										/* 1299 */
+										/* U+2114 */ CANT_MAP_CHARACTER,
+										/* 1300 */
+										/* U+2115 */ CANT_MAP_CHARACTER,
+										/* 1301 */
+										/* U+2116 */ CANT_MAP_CHARACTER,
+										/* 1302 */
+										/* U+2117 */ CANT_MAP_CHARACTER,
+										/* 1303 */
+										/* U+2118 */ CANT_MAP_CHARACTER,
+										/* 1304 */
+										/* U+2119 */ CANT_MAP_CHARACTER,
+										/* 1305 */
+										/* U+211A */ CANT_MAP_CHARACTER,
+										/* 1306 */
+										/* U+211B */ CANT_MAP_CHARACTER,
+										/* 1307 */
+										/* U+211C */ CANT_MAP_CHARACTER,
+										/* 1308 */
+										/* U+211D */ CANT_MAP_CHARACTER,
+										/* 1309 */
+										/* U+211E */ CANT_MAP_CHARACTER,
+										/* 1310 */
+										/* U+211F */ CANT_MAP_CHARACTER,
+										/* 1311 */
+										/* U+2120 */ CANT_MAP_CHARACTER,
+										/* 1312 */
+										/* U+2121 */ CANT_MAP_CHARACTER,
+										/* 1313 */
+	/* U+2122 */ 0x99 /*                               TRADE MARK SIGN */ ,	/* 1314 */
+										/* U+2123 */ CANT_MAP_CHARACTER,
+										/* 1315 */
+										/* U+2124 */ CANT_MAP_CHARACTER,
+										/* 1316 */
+										/* U+2125 */ CANT_MAP_CHARACTER,
+										/* 1317 */
+										/* U+2126 */ CANT_MAP_CHARACTER,
+										/* 1318 */
+										/* U+2127 */ CANT_MAP_CHARACTER,
+										/* 1319 */
+										/* U+2128 */ CANT_MAP_CHARACTER,
+										/* 1320 */
+										/* U+2129 */ CANT_MAP_CHARACTER,
+										/* 1321 */
+										/* U+212A */ CANT_MAP_CHARACTER,
+										/* 1322 */
+										/* U+212B */ CANT_MAP_CHARACTER,
+										/* 1323 */
+										/* U+212C */ CANT_MAP_CHARACTER,
+										/* 1324 */
+										/* U+212D */ CANT_MAP_CHARACTER,
+										/* 1325 */
+										/* U+212E */ CANT_MAP_CHARACTER,
+										/* 1326 */
+										/* U+212F */ CANT_MAP_CHARACTER,
+										/* 1327 */
+										/* U+2130 */ CANT_MAP_CHARACTER,
+										/* 1328 */
+										/* U+2131 */ CANT_MAP_CHARACTER,
+										/* 1329 */
+										/* U+2132 */ CANT_MAP_CHARACTER,
+										/* 1330 */
+										/* U+2133 */ CANT_MAP_CHARACTER,
+										/* 1331 */
+										/* U+2134 */ CANT_MAP_CHARACTER,
+										/* 1332 */
+										/* U+2135 */ CANT_MAP_CHARACTER,
+										/* 1333 */
+										/* U+2136 */ CANT_MAP_CHARACTER,
+										/* 1334 */
+										/* U+2137 */ CANT_MAP_CHARACTER,
+										/* 1335 */
+										/* U+2138 */ CANT_MAP_CHARACTER,
+										/* 1336 */
+										/* U+2139 */ CANT_MAP_CHARACTER,
+										/* 1337 */
+										/* U+213A */ CANT_MAP_CHARACTER,
+										/* 1338 */
+										/* U+213B */ CANT_MAP_CHARACTER,
+										/* 1339 */
+										/* U+213C */ CANT_MAP_CHARACTER,
+										/* 1340 */
+										/* U+213D */ CANT_MAP_CHARACTER,
+										/* 1341 */
+										/* U+213E */ CANT_MAP_CHARACTER,
+										/* 1342 */
+										/* U+213F */ CANT_MAP_CHARACTER,
+										/* 1343 */
+										/* U+2140 */ CANT_MAP_CHARACTER,
+										/* 1344 */
+										/* U+2141 */ CANT_MAP_CHARACTER,
+										/* 1345 */
+										/* U+2142 */ CANT_MAP_CHARACTER,
+										/* 1346 */
+										/* U+2143 */ CANT_MAP_CHARACTER,
+										/* 1347 */
+										/* U+2144 */ CANT_MAP_CHARACTER,
+										/* 1348 */
+										/* U+2145 */ CANT_MAP_CHARACTER,
+										/* 1349 */
+										/* U+2146 */ CANT_MAP_CHARACTER,
+										/* 1350 */
+										/* U+2147 */ CANT_MAP_CHARACTER,
+										/* 1351 */
+										/* U+2148 */ CANT_MAP_CHARACTER,
+										/* 1352 */
+										/* U+2149 */ CANT_MAP_CHARACTER,
+										/* 1353 */
+										/* U+214A */ CANT_MAP_CHARACTER,
+										/* 1354 */
+										/* U+214B */ CANT_MAP_CHARACTER,
+										/* 1355 */
+										/* U+214C */ CANT_MAP_CHARACTER,
+										/* 1356 */
+										/* U+214D */ CANT_MAP_CHARACTER,
+										/* 1357 */
+										/* U+214E */ CANT_MAP_CHARACTER,
+										/* 1358 */
+										/* U+214F */ CANT_MAP_CHARACTER,
+										/* 1359 */
+										/* U+2150 */ CANT_MAP_CHARACTER,
+										/* 1360 */
+										/* U+2151 */ CANT_MAP_CHARACTER,
+										/* 1361 */
+										/* U+2152 */ CANT_MAP_CHARACTER,
+										/* 1362 */
+										/* U+2153 */ CANT_MAP_CHARACTER,
+										/* 1363 */
+										/* U+2154 */ CANT_MAP_CHARACTER,
+										/* 1364 */
+										/* U+2155 */ CANT_MAP_CHARACTER,
+										/* 1365 */
+										/* U+2156 */ CANT_MAP_CHARACTER,
+										/* 1366 */
+										/* U+2157 */ CANT_MAP_CHARACTER,
+										/* 1367 */
+										/* U+2158 */ CANT_MAP_CHARACTER,
+										/* 1368 */
+										/* U+2159 */ CANT_MAP_CHARACTER,
+										/* 1369 */
+										/* U+215A */ CANT_MAP_CHARACTER,
+										/* 1370 */
+										/* U+215B */ CANT_MAP_CHARACTER,
+										/* 1371 */
+										/* U+215C */ CANT_MAP_CHARACTER,
+										/* 1372 */
+										/* U+215D */ CANT_MAP_CHARACTER,
+										/* 1373 */
+										/* U+215E */ CANT_MAP_CHARACTER,
+										/* 1374 */
+										/* U+215F */ CANT_MAP_CHARACTER,
+										/* 1375 */
+										/* U+2160 */ CANT_MAP_CHARACTER,
+										/* 1376 */
+										/* U+2161 */ CANT_MAP_CHARACTER,
+										/* 1377 */
+										/* U+2162 */ CANT_MAP_CHARACTER,
+										/* 1378 */
+										/* U+2163 */ CANT_MAP_CHARACTER,
+										/* 1379 */
+										/* U+2164 */ CANT_MAP_CHARACTER,
+										/* 1380 */
+										/* U+2165 */ CANT_MAP_CHARACTER,
+										/* 1381 */
+										/* U+2166 */ CANT_MAP_CHARACTER,
+										/* 1382 */
+										/* U+2167 */ CANT_MAP_CHARACTER,
+										/* 1383 */
+										/* U+2168 */ CANT_MAP_CHARACTER,
+										/* 1384 */
+										/* U+2169 */ CANT_MAP_CHARACTER,
+										/* 1385 */
+										/* U+216A */ CANT_MAP_CHARACTER,
+										/* 1386 */
+										/* U+216B */ CANT_MAP_CHARACTER,
+										/* 1387 */
+										/* U+216C */ CANT_MAP_CHARACTER,
+										/* 1388 */
+										/* U+216D */ CANT_MAP_CHARACTER,
+										/* 1389 */
+										/* U+216E */ CANT_MAP_CHARACTER,
+										/* 1390 */
+										/* U+216F */ CANT_MAP_CHARACTER,
+										/* 1391 */
+										/* U+2170 */ CANT_MAP_CHARACTER,
+										/* 1392 */
+										/* U+2171 */ CANT_MAP_CHARACTER,
+										/* 1393 */
+										/* U+2172 */ CANT_MAP_CHARACTER,
+										/* 1394 */
+										/* U+2173 */ CANT_MAP_CHARACTER,
+										/* 1395 */
+										/* U+2174 */ CANT_MAP_CHARACTER,
+										/* 1396 */
+										/* U+2175 */ CANT_MAP_CHARACTER,
+										/* 1397 */
+										/* U+2176 */ CANT_MAP_CHARACTER,
+										/* 1398 */
+										/* U+2177 */ CANT_MAP_CHARACTER,
+										/* 1399 */
+										/* U+2178 */ CANT_MAP_CHARACTER,
+										/* 1400 */
+										/* U+2179 */ CANT_MAP_CHARACTER,
+										/* 1401 */
+										/* U+217A */ CANT_MAP_CHARACTER,
+										/* 1402 */
+										/* U+217B */ CANT_MAP_CHARACTER,
+										/* 1403 */
+										/* U+217C */ CANT_MAP_CHARACTER,
+										/* 1404 */
+										/* U+217D */ CANT_MAP_CHARACTER,
+										/* 1405 */
+										/* U+217E */ CANT_MAP_CHARACTER,
+										/* 1406 */
+										/* U+217F */ CANT_MAP_CHARACTER,
+										/* 1407 */
+										/* U+2180 */ CANT_MAP_CHARACTER,
+										/* 1408 */
+										/* U+2181 */ CANT_MAP_CHARACTER,
+										/* 1409 */
+										/* U+2182 */ CANT_MAP_CHARACTER,
+										/* 1410 */
+										/* U+2183 */ CANT_MAP_CHARACTER,
+										/* 1411 */
+										/* U+2184 */ CANT_MAP_CHARACTER,
+										/* 1412 */
+										/* U+2185 */ CANT_MAP_CHARACTER,
+										/* 1413 */
+										/* U+2186 */ CANT_MAP_CHARACTER,
+										/* 1414 */
+										/* U+2187 */ CANT_MAP_CHARACTER,
+										/* 1415 */
+										/* U+2188 */ CANT_MAP_CHARACTER,
+										/* 1416 */
+										/* U+2189 */ CANT_MAP_CHARACTER,
+										/* 1417 */
+										/* U+218A */ CANT_MAP_CHARACTER,
+										/* 1418 */
+										/* U+218B */ CANT_MAP_CHARACTER,
+										/* 1419 */
+										/* U+218C */ CANT_MAP_CHARACTER,
+										/* 1420 */
+										/* U+218D */ CANT_MAP_CHARACTER,
+										/* 1421 */
+										/* U+218E */ CANT_MAP_CHARACTER,
+										/* 1422 */
+										/* U+218F */ CANT_MAP_CHARACTER,
+										/* 1423 */
+										/* U+2190 */ CANT_MAP_CHARACTER,
+										/* 1424 */
+										/* U+2191 */ CANT_MAP_CHARACTER,
+										/* 1425 */
+										/* U+2192 */ CANT_MAP_CHARACTER,
+										/* 1426 */
+										/* U+2193 */ CANT_MAP_CHARACTER,
+										/* 1427 */
+										/* U+2194 */ CANT_MAP_CHARACTER,
+										/* 1428 */
+										/* U+2195 */ CANT_MAP_CHARACTER,
+										/* 1429 */
+										/* U+2196 */ CANT_MAP_CHARACTER,
+										/* 1430 */
+										/* U+2197 */ CANT_MAP_CHARACTER,
+										/* 1431 */
+										/* U+2198 */ CANT_MAP_CHARACTER,
+										/* 1432 */
+										/* U+2199 */ CANT_MAP_CHARACTER,
+										/* 1433 */
+										/* U+219A */ CANT_MAP_CHARACTER,
+										/* 1434 */
+										/* U+219B */ CANT_MAP_CHARACTER,
+										/* 1435 */
+										/* U+219C */ CANT_MAP_CHARACTER,
+										/* 1436 */
+										/* U+219D */ CANT_MAP_CHARACTER,
+										/* 1437 */
+										/* U+219E */ CANT_MAP_CHARACTER,
+										/* 1438 */
+										/* U+219F */ CANT_MAP_CHARACTER,
+										/* 1439 */
+										/* U+21A0 */ CANT_MAP_CHARACTER,
+										/* 1440 */
+										/* U+21A1 */ CANT_MAP_CHARACTER,
+										/* 1441 */
+										/* U+21A2 */ CANT_MAP_CHARACTER,
+										/* 1442 */
+										/* U+21A3 */ CANT_MAP_CHARACTER,
+										/* 1443 */
+										/* U+21A4 */ CANT_MAP_CHARACTER,
+										/* 1444 */
+										/* U+21A5 */ CANT_MAP_CHARACTER,
+										/* 1445 */
+										/* U+21A6 */ CANT_MAP_CHARACTER,
+										/* 1446 */
+										/* U+21A7 */ CANT_MAP_CHARACTER,
+										/* 1447 */
+										/* U+21A8 */ CANT_MAP_CHARACTER,
+										/* 1448 */
+										/* U+21A9 */ CANT_MAP_CHARACTER,
+										/* 1449 */
+										/* U+21AA */ CANT_MAP_CHARACTER,
+										/* 1450 */
+										/* U+21AB */ CANT_MAP_CHARACTER,
+										/* 1451 */
+										/* U+21AC */ CANT_MAP_CHARACTER,
+										/* 1452 */
+										/* U+21AD */ CANT_MAP_CHARACTER,
+										/* 1453 */
+										/* U+21AE */ CANT_MAP_CHARACTER,
+										/* 1454 */
+										/* U+21AF */ CANT_MAP_CHARACTER,
+										/* 1455 */
+										/* U+21B0 */ CANT_MAP_CHARACTER,
+										/* 1456 */
+										/* U+21B1 */ CANT_MAP_CHARACTER,
+										/* 1457 */
+										/* U+21B2 */ CANT_MAP_CHARACTER,
+										/* 1458 */
+										/* U+21B3 */ CANT_MAP_CHARACTER,
+										/* 1459 */
+										/* U+21B4 */ CANT_MAP_CHARACTER,
+										/* 1460 */
+										/* U+21B5 */ CANT_MAP_CHARACTER,
+										/* 1461 */
+										/* U+21B6 */ CANT_MAP_CHARACTER,
+										/* 1462 */
+										/* U+21B7 */ CANT_MAP_CHARACTER,
+										/* 1463 */
+										/* U+21B8 */ CANT_MAP_CHARACTER,
+										/* 1464 */
+										/* U+21B9 */ CANT_MAP_CHARACTER,
+										/* 1465 */
+										/* U+21BA */ CANT_MAP_CHARACTER,
+										/* 1466 */
+										/* U+21BB */ CANT_MAP_CHARACTER,
+										/* 1467 */
+										/* U+21BC */ CANT_MAP_CHARACTER,
+										/* 1468 */
+										/* U+21BD */ CANT_MAP_CHARACTER,
+										/* 1469 */
+										/* U+21BE */ CANT_MAP_CHARACTER,
+										/* 1470 */
+										/* U+21BF */ CANT_MAP_CHARACTER,
+										/* 1471 */
+										/* U+21C0 */ CANT_MAP_CHARACTER,
+										/* 1472 */
+										/* U+21C1 */ CANT_MAP_CHARACTER,
+										/* 1473 */
+										/* U+21C2 */ CANT_MAP_CHARACTER,
+										/* 1474 */
+										/* U+21C3 */ CANT_MAP_CHARACTER,
+										/* 1475 */
+										/* U+21C4 */ CANT_MAP_CHARACTER,
+										/* 1476 */
+										/* U+21C5 */ CANT_MAP_CHARACTER,
+										/* 1477 */
+										/* U+21C6 */ CANT_MAP_CHARACTER,
+										/* 1478 */
+										/* U+21C7 */ CANT_MAP_CHARACTER,
+										/* 1479 */
+										/* U+21C8 */ CANT_MAP_CHARACTER,
+										/* 1480 */
+										/* U+21C9 */ CANT_MAP_CHARACTER,
+										/* 1481 */
+										/* U+21CA */ CANT_MAP_CHARACTER,
+										/* 1482 */
+										/* U+21CB */ CANT_MAP_CHARACTER,
+										/* 1483 */
+										/* U+21CC */ CANT_MAP_CHARACTER,
+										/* 1484 */
+										/* U+21CD */ CANT_MAP_CHARACTER,
+										/* 1485 */
+										/* U+21CE */ CANT_MAP_CHARACTER,
+										/* 1486 */
+										/* U+21CF */ CANT_MAP_CHARACTER,
+										/* 1487 */
+										/* U+21D0 */ CANT_MAP_CHARACTER,
+										/* 1488 */
+										/* U+21D1 */ CANT_MAP_CHARACTER,
+										/* 1489 */
+										/* U+21D2 */ CANT_MAP_CHARACTER,
+										/* 1490 */
+										/* U+21D3 */ CANT_MAP_CHARACTER,
+										/* 1491 */
+										/* U+21D4 */ CANT_MAP_CHARACTER,
+										/* 1492 */
+										/* U+21D5 */ CANT_MAP_CHARACTER,
+										/* 1493 */
+										/* U+21D6 */ CANT_MAP_CHARACTER,
+										/* 1494 */
+										/* U+21D7 */ CANT_MAP_CHARACTER,
+										/* 1495 */
+										/* U+21D8 */ CANT_MAP_CHARACTER,
+										/* 1496 */
+										/* U+21D9 */ CANT_MAP_CHARACTER,
+										/* 1497 */
+										/* U+21DA */ CANT_MAP_CHARACTER,
+										/* 1498 */
+										/* U+21DB */ CANT_MAP_CHARACTER,
+										/* 1499 */
+										/* U+21DC */ CANT_MAP_CHARACTER,
+										/* 1500 */
+										/* U+21DD */ CANT_MAP_CHARACTER,
+										/* 1501 */
+										/* U+21DE */ CANT_MAP_CHARACTER,
+										/* 1502 */
+										/* U+21DF */ CANT_MAP_CHARACTER,
+										/* 1503 */
+										/* U+21E0 */ CANT_MAP_CHARACTER,
+										/* 1504 */
+										/* U+21E1 */ CANT_MAP_CHARACTER,
+										/* 1505 */
+										/* U+21E2 */ CANT_MAP_CHARACTER,
+										/* 1506 */
+										/* U+21E3 */ CANT_MAP_CHARACTER,
+										/* 1507 */
+										/* U+21E4 */ CANT_MAP_CHARACTER,
+										/* 1508 */
+										/* U+21E5 */ CANT_MAP_CHARACTER,
+										/* 1509 */
+										/* U+21E6 */ CANT_MAP_CHARACTER,
+										/* 1510 */
+										/* U+21E7 */ CANT_MAP_CHARACTER,
+										/* 1511 */
+										/* U+21E8 */ CANT_MAP_CHARACTER,
+										/* 1512 */
+										/* U+21E9 */ CANT_MAP_CHARACTER,
+										/* 1513 */
+										/* U+21EA */ CANT_MAP_CHARACTER,
+										/* 1514 */
+										/* U+21EB */ CANT_MAP_CHARACTER,
+										/* 1515 */
+										/* U+21EC */ CANT_MAP_CHARACTER,
+										/* 1516 */
+										/* U+21ED */ CANT_MAP_CHARACTER,
+										/* 1517 */
+										/* U+21EE */ CANT_MAP_CHARACTER,
+										/* 1518 */
+										/* U+21EF */ CANT_MAP_CHARACTER,
+										/* 1519 */
+										/* U+21F0 */ CANT_MAP_CHARACTER,
+										/* 1520 */
+										/* U+21F1 */ CANT_MAP_CHARACTER,
+										/* 1521 */
+										/* U+21F2 */ CANT_MAP_CHARACTER,
+										/* 1522 */
+										/* U+21F3 */ CANT_MAP_CHARACTER,
+										/* 1523 */
+										/* U+21F4 */ CANT_MAP_CHARACTER,
+										/* 1524 */
+										/* U+21F5 */ CANT_MAP_CHARACTER,
+										/* 1525 */
+										/* U+21F6 */ CANT_MAP_CHARACTER,
+										/* 1526 */
+										/* U+21F7 */ CANT_MAP_CHARACTER,
+										/* 1527 */
+										/* U+21F8 */ CANT_MAP_CHARACTER,
+										/* 1528 */
+										/* U+21F9 */ CANT_MAP_CHARACTER,
+										/* 1529 */
+										/* U+21FA */ CANT_MAP_CHARACTER,
+										/* 1530 */
+										/* U+21FB */ CANT_MAP_CHARACTER,
+										/* 1531 */
+										/* U+21FC */ CANT_MAP_CHARACTER,
+										/* 1532 */
+										/* U+21FD */ CANT_MAP_CHARACTER,
+										/* 1533 */
+										/* U+21FE */ CANT_MAP_CHARACTER,
+										/* 1534 */
+										/* U+21FF */ CANT_MAP_CHARACTER,
+										/* 1535 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 512,
+/* U+02-- */ 0,
+/* U+03-- */ 768,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 1024,
+/* U+21-- */ 1280,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 0,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/cs_w1254.h b/src/intl/cs_w1254.h
new file mode 100644
index 0000000000..28afe391d3
--- /dev/null
+++ b/src/intl/cs_w1254.h
@@ -0,0 +1,3644 @@
+/* -------------------------------------------- 
+     THIS FILE WAS GENERATED BY intl/mapgen.c
+
+    Unicode mapping table generated from file maps/WINDOWS/CP1254.TXT 
+
+#
+#    Name:     cp1254 to Unicode table
+#    Unicode version: 2.0
+#    Table version: 2.00
+#    Table format:  Format A
+#    Date:          04/15/98
+#
+#    Contact:       cpxlate@microsoft.com
+#
+#    General notes: none
+#
+#    Format: Three tab-separated columns
+#        Column #1 is the cp1254 code (in hex)
+#        Column #2 is the Unicode (in hex as 0xXXXX)
+#        Column #3 is the Unicode name (follows a comment sign, '#')
+#
+#    The entries are in cp1254 order
+#
+0x00	0x0000	#NULL
+0x01	0x0001	#START OF HEADING
+0x02	0x0002	#START OF TEXT
+0x03	0x0003	#END OF TEXT
+0x04	0x0004	#END OF TRANSMISSION
+0x05	0x0005	#ENQUIRY
+0x06	0x0006	#ACKNOWLEDGE
+0x07	0x0007	#BELL
+0x08	0x0008	#BACKSPACE
+0x09	0x0009	#HORIZONTAL TABULATION
+0x0A	0x000A	#LINE FEED
+0x0B	0x000B	#VERTICAL TABULATION
+0x0C	0x000C	#FORM FEED
+0x0D	0x000D	#CARRIAGE RETURN
+0x0E	0x000E	#SHIFT OUT
+0x0F	0x000F	#SHIFT IN
+0x10	0x0010	#DATA LINK ESCAPE
+0x11	0x0011	#DEVICE CONTROL ONE
+0x12	0x0012	#DEVICE CONTROL TWO
+0x13	0x0013	#DEVICE CONTROL THREE
+0x14	0x0014	#DEVICE CONTROL FOUR
+0x15	0x0015	#NEGATIVE ACKNOWLEDGE
+0x16	0x0016	#SYNCHRONOUS IDLE
+0x17	0x0017	#END OF TRANSMISSION BLOCK
+0x18	0x0018	#CANCEL
+0x19	0x0019	#END OF MEDIUM
+0x1A	0x001A	#SUBSTITUTE
+0x1B	0x001B	#ESCAPE
+0x1C	0x001C	#FILE SEPARATOR
+0x1D	0x001D	#GROUP SEPARATOR
+0x1E	0x001E	#RECORD SEPARATOR
+0x1F	0x001F	#UNIT SEPARATOR
+0x20	0x0020	#SPACE
+0x21	0x0021	#EXCLAMATION MARK
+0x22	0x0022	#QUOTATION MARK
+0x23	0x0023	#NUMBER SIGN
+0x24	0x0024	#DOLLAR SIGN
+0x25	0x0025	#PERCENT SIGN
+0x26	0x0026	#AMPERSAND
+0x27	0x0027	#APOSTROPHE
+0x28	0x0028	#LEFT PARENTHESIS
+0x29	0x0029	#RIGHT PARENTHESIS
+0x2A	0x002A	#ASTERISK
+0x2B	0x002B	#PLUS SIGN
+0x2C	0x002C	#COMMA
+0x2D	0x002D	#HYPHEN-MINUS
+0x2E	0x002E	#FULL STOP
+0x2F	0x002F	#SOLIDUS
+0x30	0x0030	#DIGIT ZERO
+0x31	0x0031	#DIGIT ONE
+0x32	0x0032	#DIGIT TWO
+0x33	0x0033	#DIGIT THREE
+0x34	0x0034	#DIGIT FOUR
+0x35	0x0035	#DIGIT FIVE
+0x36	0x0036	#DIGIT SIX
+0x37	0x0037	#DIGIT SEVEN
+0x38	0x0038	#DIGIT EIGHT
+0x39	0x0039	#DIGIT NINE
+0x3A	0x003A	#COLON
+0x3B	0x003B	#SEMICOLON
+0x3C	0x003C	#LESS-THAN SIGN
+0x3D	0x003D	#EQUALS SIGN
+0x3E	0x003E	#GREATER-THAN SIGN
+0x3F	0x003F	#QUESTION MARK
+0x40	0x0040	#COMMERCIAL AT
+0x41	0x0041	#LATIN CAPITAL LETTER A
+0x42	0x0042	#LATIN CAPITAL LETTER B
+0x43	0x0043	#LATIN CAPITAL LETTER C
+0x44	0x0044	#LATIN CAPITAL LETTER D
+0x45	0x0045	#LATIN CAPITAL LETTER E
+0x46	0x0046	#LATIN CAPITAL LETTER F
+0x47	0x0047	#LATIN CAPITAL LETTER G
+0x48	0x0048	#LATIN CAPITAL LETTER H
+0x49	0x0049	#LATIN CAPITAL LETTER I
+0x4A	0x004A	#LATIN CAPITAL LETTER J
+0x4B	0x004B	#LATIN CAPITAL LETTER K
+0x4C	0x004C	#LATIN CAPITAL LETTER L
+0x4D	0x004D	#LATIN CAPITAL LETTER M
+0x4E	0x004E	#LATIN CAPITAL LETTER N
+0x4F	0x004F	#LATIN CAPITAL LETTER O
+0x50	0x0050	#LATIN CAPITAL LETTER P
+0x51	0x0051	#LATIN CAPITAL LETTER Q
+0x52	0x0052	#LATIN CAPITAL LETTER R
+0x53	0x0053	#LATIN CAPITAL LETTER S
+0x54	0x0054	#LATIN CAPITAL LETTER T
+0x55	0x0055	#LATIN CAPITAL LETTER U
+0x56	0x0056	#LATIN CAPITAL LETTER V
+0x57	0x0057	#LATIN CAPITAL LETTER W
+0x58	0x0058	#LATIN CAPITAL LETTER X
+0x59	0x0059	#LATIN CAPITAL LETTER Y
+0x5A	0x005A	#LATIN CAPITAL LETTER Z
+0x5B	0x005B	#LEFT SQUARE BRACKET
+0x5C	0x005C	#REVERSE SOLIDUS
+0x5D	0x005D	#RIGHT SQUARE BRACKET
+0x5E	0x005E	#CIRCUMFLEX ACCENT
+0x5F	0x005F	#LOW LINE
+0x60	0x0060	#GRAVE ACCENT
+0x61	0x0061	#LATIN SMALL LETTER A
+0x62	0x0062	#LATIN SMALL LETTER B
+0x63	0x0063	#LATIN SMALL LETTER C
+0x64	0x0064	#LATIN SMALL LETTER D
+0x65	0x0065	#LATIN SMALL LETTER E
+0x66	0x0066	#LATIN SMALL LETTER F
+0x67	0x0067	#LATIN SMALL LETTER G
+0x68	0x0068	#LATIN SMALL LETTER H
+0x69	0x0069	#LATIN SMALL LETTER I
+0x6A	0x006A	#LATIN SMALL LETTER J
+0x6B	0x006B	#LATIN SMALL LETTER K
+0x6C	0x006C	#LATIN SMALL LETTER L
+0x6D	0x006D	#LATIN SMALL LETTER M
+0x6E	0x006E	#LATIN SMALL LETTER N
+0x6F	0x006F	#LATIN SMALL LETTER O
+0x70	0x0070	#LATIN SMALL LETTER P
+0x71	0x0071	#LATIN SMALL LETTER Q
+0x72	0x0072	#LATIN SMALL LETTER R
+0x73	0x0073	#LATIN SMALL LETTER S
+0x74	0x0074	#LATIN SMALL LETTER T
+0x75	0x0075	#LATIN SMALL LETTER U
+0x76	0x0076	#LATIN SMALL LETTER V
+0x77	0x0077	#LATIN SMALL LETTER W
+0x78	0x0078	#LATIN SMALL LETTER X
+0x79	0x0079	#LATIN SMALL LETTER Y
+0x7A	0x007A	#LATIN SMALL LETTER Z
+0x7B	0x007B	#LEFT CURLY BRACKET
+0x7C	0x007C	#VERTICAL LINE
+0x7D	0x007D	#RIGHT CURLY BRACKET
+0x7E	0x007E	#TILDE
+0x7F	0x007F	#DELETE
+0x80	0x20AC	#EURO SIGN
+0x81	      	#UNDEFINED
+0x82	0x201A	#SINGLE LOW-9 QUOTATION MARK
+0x83	0x0192	#LATIN SMALL LETTER F WITH HOOK
+0x84	0x201E	#DOUBLE LOW-9 QUOTATION MARK
+0x85	0x2026	#HORIZONTAL ELLIPSIS
+0x86	0x2020	#DAGGER
+0x87	0x2021	#DOUBLE DAGGER
+0x88	0x02C6	#MODIFIER LETTER CIRCUMFLEX ACCENT
+0x89	0x2030	#PER MILLE SIGN
+0x8A	0x0160	#LATIN CAPITAL LETTER S WITH CARON
+0x8B	0x2039	#SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+0x8C	0x0152	#LATIN CAPITAL LIGATURE OE
+0x8D	      	#UNDEFINED
+0x8E	      	#UNDEFINED
+0x8F	      	#UNDEFINED
+0x90	      	#UNDEFINED
+0x91	0x2018	#LEFT SINGLE QUOTATION MARK
+0x92	0x2019	#RIGHT SINGLE QUOTATION MARK
+0x93	0x201C	#LEFT DOUBLE QUOTATION MARK
+0x94	0x201D	#RIGHT DOUBLE QUOTATION MARK
+0x95	0x2022	#BULLET
+0x96	0x2013	#EN DASH
+0x97	0x2014	#EM DASH
+0x98	0x02DC	#SMALL TILDE
+0x99	0x2122	#TRADE MARK SIGN
+0x9A	0x0161	#LATIN SMALL LETTER S WITH CARON
+0x9B	0x203A	#SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+0x9C	0x0153	#LATIN SMALL LIGATURE OE
+0x9D	      	#UNDEFINED
+0x9E	      	#UNDEFINED
+0x9F	0x0178	#LATIN CAPITAL LETTER Y WITH DIAERESIS
+0xA0	0x00A0	#NO-BREAK SPACE
+0xA1	0x00A1	#INVERTED EXCLAMATION MARK
+0xA2	0x00A2	#CENT SIGN
+0xA3	0x00A3	#POUND SIGN
+0xA4	0x00A4	#CURRENCY SIGN
+0xA5	0x00A5	#YEN SIGN
+0xA6	0x00A6	#BROKEN BAR
+0xA7	0x00A7	#SECTION SIGN
+0xA8	0x00A8	#DIAERESIS
+0xA9	0x00A9	#COPYRIGHT SIGN
+0xAA	0x00AA	#FEMININE ORDINAL INDICATOR
+0xAB	0x00AB	#LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xAC	0x00AC	#NOT SIGN
+0xAD	0x00AD	#SOFT HYPHEN
+0xAE	0x00AE	#REGISTERED SIGN
+0xAF	0x00AF	#MACRON
+0xB0	0x00B0	#DEGREE SIGN
+0xB1	0x00B1	#PLUS-MINUS SIGN
+0xB2	0x00B2	#SUPERSCRIPT TWO
+0xB3	0x00B3	#SUPERSCRIPT THREE
+0xB4	0x00B4	#ACUTE ACCENT
+0xB5	0x00B5	#MICRO SIGN
+0xB6	0x00B6	#PILCROW SIGN
+0xB7	0x00B7	#MIDDLE DOT
+0xB8	0x00B8	#CEDILLA
+0xB9	0x00B9	#SUPERSCRIPT ONE
+0xBA	0x00BA	#MASCULINE ORDINAL INDICATOR
+0xBB	0x00BB	#RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+0xBC	0x00BC	#VULGAR FRACTION ONE QUARTER
+0xBD	0x00BD	#VULGAR FRACTION ONE HALF
+0xBE	0x00BE	#VULGAR FRACTION THREE QUARTERS
+0xBF	0x00BF	#INVERTED QUESTION MARK
+0xC0	0x00C0	#LATIN CAPITAL LETTER A WITH GRAVE
+0xC1	0x00C1	#LATIN CAPITAL LETTER A WITH ACUTE
+0xC2	0x00C2	#LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0xC3	0x00C3	#LATIN CAPITAL LETTER A WITH TILDE
+0xC4	0x00C4	#LATIN CAPITAL LETTER A WITH DIAERESIS
+0xC5	0x00C5	#LATIN CAPITAL LETTER A WITH RING ABOVE
+0xC6	0x00C6	#LATIN CAPITAL LETTER AE
+0xC7	0x00C7	#LATIN CAPITAL LETTER C WITH CEDILLA
+0xC8	0x00C8	#LATIN CAPITAL LETTER E WITH GRAVE
+0xC9	0x00C9	#LATIN CAPITAL LETTER E WITH ACUTE
+0xCA	0x00CA	#LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0xCB	0x00CB	#LATIN CAPITAL LETTER E WITH DIAERESIS
+0xCC	0x00CC	#LATIN CAPITAL LETTER I WITH GRAVE
+0xCD	0x00CD	#LATIN CAPITAL LETTER I WITH ACUTE
+0xCE	0x00CE	#LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+0xCF	0x00CF	#LATIN CAPITAL LETTER I WITH DIAERESIS
+0xD0	0x011E	#LATIN CAPITAL LETTER G WITH BREVE
+0xD1	0x00D1	#LATIN CAPITAL LETTER N WITH TILDE
+0xD2	0x00D2	#LATIN CAPITAL LETTER O WITH GRAVE
+0xD3	0x00D3	#LATIN CAPITAL LETTER O WITH ACUTE
+0xD4	0x00D4	#LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+0xD5	0x00D5	#LATIN CAPITAL LETTER O WITH TILDE
+0xD6	0x00D6	#LATIN CAPITAL LETTER O WITH DIAERESIS
+0xD7	0x00D7	#MULTIPLICATION SIGN
+0xD8	0x00D8	#LATIN CAPITAL LETTER O WITH STROKE
+0xD9	0x00D9	#LATIN CAPITAL LETTER U WITH GRAVE
+0xDA	0x00DA	#LATIN CAPITAL LETTER U WITH ACUTE
+0xDB	0x00DB	#LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+0xDC	0x00DC	#LATIN CAPITAL LETTER U WITH DIAERESIS
+0xDD	0x0130	#LATIN CAPITAL LETTER I WITH DOT ABOVE
+0xDE	0x015E	#LATIN CAPITAL LETTER S WITH CEDILLA
+0xDF	0x00DF	#LATIN SMALL LETTER SHARP S
+0xE0	0x00E0	#LATIN SMALL LETTER A WITH GRAVE
+0xE1	0x00E1	#LATIN SMALL LETTER A WITH ACUTE
+0xE2	0x00E2	#LATIN SMALL LETTER A WITH CIRCUMFLEX
+0xE3	0x00E3	#LATIN SMALL LETTER A WITH TILDE
+0xE4	0x00E4	#LATIN SMALL LETTER A WITH DIAERESIS
+0xE5	0x00E5	#LATIN SMALL LETTER A WITH RING ABOVE
+0xE6	0x00E6	#LATIN SMALL LETTER AE
+0xE7	0x00E7	#LATIN SMALL LETTER C WITH CEDILLA
+0xE8	0x00E8	#LATIN SMALL LETTER E WITH GRAVE
+0xE9	0x00E9	#LATIN SMALL LETTER E WITH ACUTE
+0xEA	0x00EA	#LATIN SMALL LETTER E WITH CIRCUMFLEX
+0xEB	0x00EB	#LATIN SMALL LETTER E WITH DIAERESIS
+0xEC	0x00EC	#LATIN SMALL LETTER I WITH GRAVE
+0xED	0x00ED	#LATIN SMALL LETTER I WITH ACUTE
+0xEE	0x00EE	#LATIN SMALL LETTER I WITH CIRCUMFLEX
+0xEF	0x00EF	#LATIN SMALL LETTER I WITH DIAERESIS
+0xF0	0x011F	#LATIN SMALL LETTER G WITH BREVE
+0xF1	0x00F1	#LATIN SMALL LETTER N WITH TILDE
+0xF2	0x00F2	#LATIN SMALL LETTER O WITH GRAVE
+0xF3	0x00F3	#LATIN SMALL LETTER O WITH ACUTE
+0xF4	0x00F4	#LATIN SMALL LETTER O WITH CIRCUMFLEX
+0xF5	0x00F5	#LATIN SMALL LETTER O WITH TILDE
+0xF6	0x00F6	#LATIN SMALL LETTER O WITH DIAERESIS
+0xF7	0x00F7	#DIVISION SIGN
+0xF8	0x00F8	#LATIN SMALL LETTER O WITH STROKE
+0xF9	0x00F9	#LATIN SMALL LETTER U WITH GRAVE
+0xFA	0x00FA	#LATIN SMALL LETTER U WITH ACUTE
+0xFB	0x00FB	#LATIN SMALL LETTER U WITH CIRCUMFLEX
+0xFC	0x00FC	#LATIN SMALL LETTER U WITH DIAERESIS
+0xFD	0x0131	#LATIN SMALL LETTER DOTLESS I
+0xFE	0x015F	#LATIN SMALL LETTER S WITH CEDILLA
+0xFF	0x00FF	#LATIN SMALL LETTER Y WITH DIAERESIS
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+   -------------------------------------------- */
+static CONST USHORT to_unicode_map[256] = {
+	/* 00 */ 0x0000 /*                                          NULL */ ,
+	/* 01 */ 0x0001 /*                              START OF HEADING */ ,
+	/* 02 */ 0x0002 /*                                 START OF TEXT */ ,
+	/* 03 */ 0x0003 /*                                   END OF TEXT */ ,
+	/* 04 */ 0x0004 /*                           END OF TRANSMISSION */ ,
+	/* 05 */ 0x0005 /*                                       ENQUIRY */ ,
+	/* 06 */ 0x0006 /*                                   ACKNOWLEDGE */ ,
+	/* 07 */ 0x0007 /*                                          BELL */ ,
+	/* 08 */ 0x0008 /*                                     BACKSPACE */ ,
+	/* 09 */ 0x0009 /*                         HORIZONTAL TABULATION */ ,
+	/* 0A */ 0x000A /*                                     LINE FEED */ ,
+	/* 0B */ 0x000B /*                           VERTICAL TABULATION */ ,
+	/* 0C */ 0x000C /*                                     FORM FEED */ ,
+	/* 0D */ 0x000D /*                               CARRIAGE RETURN */ ,
+	/* 0E */ 0x000E /*                                     SHIFT OUT */ ,
+	/* 0F */ 0x000F /*                                      SHIFT IN */ ,
+	/* 10 */ 0x0010 /*                              DATA LINK ESCAPE */ ,
+	/* 11 */ 0x0011 /*                            DEVICE CONTROL ONE */ ,
+	/* 12 */ 0x0012 /*                            DEVICE CONTROL TWO */ ,
+	/* 13 */ 0x0013 /*                          DEVICE CONTROL THREE */ ,
+	/* 14 */ 0x0014 /*                           DEVICE CONTROL FOUR */ ,
+	/* 15 */ 0x0015 /*                          NEGATIVE ACKNOWLEDGE */ ,
+	/* 16 */ 0x0016 /*                              SYNCHRONOUS IDLE */ ,
+	/* 17 */ 0x0017 /*                     END OF TRANSMISSION BLOCK */ ,
+	/* 18 */ 0x0018 /*                                        CANCEL */ ,
+	/* 19 */ 0x0019 /*                                 END OF MEDIUM */ ,
+	/* 1A */ 0x001A /*                                    SUBSTITUTE */ ,
+	/* 1B */ 0x001B /*                                        ESCAPE */ ,
+	/* 1C */ 0x001C /*                                FILE SEPARATOR */ ,
+	/* 1D */ 0x001D /*                               GROUP SEPARATOR */ ,
+	/* 1E */ 0x001E /*                              RECORD SEPARATOR */ ,
+	/* 1F */ 0x001F /*                                UNIT SEPARATOR */ ,
+	/* 20 */ 0x0020 /*                                         SPACE */ ,
+	/* 21 */ 0x0021 /*                              EXCLAMATION MARK */ ,
+	/* 22 */ 0x0022 /*                                QUOTATION MARK */ ,
+	/* 23 */ 0x0023 /*                                   NUMBER SIGN */ ,
+	/* 24 */ 0x0024 /*                                   DOLLAR SIGN */ ,
+	/* 25 */ 0x0025 /*                                  PERCENT SIGN */ ,
+	/* 26 */ 0x0026 /*                                     AMPERSAND */ ,
+	/* 27 */ 0x0027 /*                                    APOSTROPHE */ ,
+	/* 28 */ 0x0028 /*                              LEFT PARENTHESIS */ ,
+	/* 29 */ 0x0029 /*                             RIGHT PARENTHESIS */ ,
+	/* 2A */ 0x002A /*                                      ASTERISK */ ,
+	/* 2B */ 0x002B /*                                     PLUS SIGN */ ,
+	/* 2C */ 0x002C /*                                         COMMA */ ,
+	/* 2D */ 0x002D /*                                  HYPHEN-MINUS */ ,
+	/* 2E */ 0x002E /*                                     FULL STOP */ ,
+	/* 2F */ 0x002F /*                                       SOLIDUS */ ,
+	/* 30 */ 0x0030 /*                                    DIGIT ZERO */ ,
+	/* 31 */ 0x0031 /*                                     DIGIT ONE */ ,
+	/* 32 */ 0x0032 /*                                     DIGIT TWO */ ,
+	/* 33 */ 0x0033 /*                                   DIGIT THREE */ ,
+	/* 34 */ 0x0034 /*                                    DIGIT FOUR */ ,
+	/* 35 */ 0x0035 /*                                    DIGIT FIVE */ ,
+	/* 36 */ 0x0036 /*                                     DIGIT SIX */ ,
+	/* 37 */ 0x0037 /*                                   DIGIT SEVEN */ ,
+	/* 38 */ 0x0038 /*                                   DIGIT EIGHT */ ,
+	/* 39 */ 0x0039 /*                                    DIGIT NINE */ ,
+	/* 3A */ 0x003A /*                                         COLON */ ,
+	/* 3B */ 0x003B /*                                     SEMICOLON */ ,
+	/* 3C */ 0x003C /*                                LESS-THAN SIGN */ ,
+	/* 3D */ 0x003D /*                                   EQUALS SIGN */ ,
+	/* 3E */ 0x003E /*                             GREATER-THAN SIGN */ ,
+	/* 3F */ 0x003F /*                                 QUESTION MARK */ ,
+	/* 40 */ 0x0040 /*                                 COMMERCIAL AT */ ,
+	/* 41 */ 0x0041 /*                        LATIN CAPITAL LETTER A */ ,
+	/* 42 */ 0x0042 /*                        LATIN CAPITAL LETTER B */ ,
+	/* 43 */ 0x0043 /*                        LATIN CAPITAL LETTER C */ ,
+	/* 44 */ 0x0044 /*                        LATIN CAPITAL LETTER D */ ,
+	/* 45 */ 0x0045 /*                        LATIN CAPITAL LETTER E */ ,
+	/* 46 */ 0x0046 /*                        LATIN CAPITAL LETTER F */ ,
+	/* 47 */ 0x0047 /*                        LATIN CAPITAL LETTER G */ ,
+	/* 48 */ 0x0048 /*                        LATIN CAPITAL LETTER H */ ,
+	/* 49 */ 0x0049 /*                        LATIN CAPITAL LETTER I */ ,
+	/* 4A */ 0x004A /*                        LATIN CAPITAL LETTER J */ ,
+	/* 4B */ 0x004B /*                        LATIN CAPITAL LETTER K */ ,
+	/* 4C */ 0x004C /*                        LATIN CAPITAL LETTER L */ ,
+	/* 4D */ 0x004D /*                        LATIN CAPITAL LETTER M */ ,
+	/* 4E */ 0x004E /*                        LATIN CAPITAL LETTER N */ ,
+	/* 4F */ 0x004F /*                        LATIN CAPITAL LETTER O */ ,
+	/* 50 */ 0x0050 /*                        LATIN CAPITAL LETTER P */ ,
+	/* 51 */ 0x0051 /*                        LATIN CAPITAL LETTER Q */ ,
+	/* 52 */ 0x0052 /*                        LATIN CAPITAL LETTER R */ ,
+	/* 53 */ 0x0053 /*                        LATIN CAPITAL LETTER S */ ,
+	/* 54 */ 0x0054 /*                        LATIN CAPITAL LETTER T */ ,
+	/* 55 */ 0x0055 /*                        LATIN CAPITAL LETTER U */ ,
+	/* 56 */ 0x0056 /*                        LATIN CAPITAL LETTER V */ ,
+	/* 57 */ 0x0057 /*                        LATIN CAPITAL LETTER W */ ,
+	/* 58 */ 0x0058 /*                        LATIN CAPITAL LETTER X */ ,
+	/* 59 */ 0x0059 /*                        LATIN CAPITAL LETTER Y */ ,
+	/* 5A */ 0x005A /*                        LATIN CAPITAL LETTER Z */ ,
+	/* 5B */ 0x005B /*                           LEFT SQUARE BRACKET */ ,
+	/* 5C */ 0x005C /*                               REVERSE SOLIDUS */ ,
+	/* 5D */ 0x005D /*                          RIGHT SQUARE BRACKET */ ,
+	/* 5E */ 0x005E /*                             CIRCUMFLEX ACCENT */ ,
+	/* 5F */ 0x005F /*                                      LOW LINE */ ,
+	/* 60 */ 0x0060 /*                                  GRAVE ACCENT */ ,
+	/* 61 */ 0x0061 /*                          LATIN SMALL LETTER A */ ,
+	/* 62 */ 0x0062 /*                          LATIN SMALL LETTER B */ ,
+	/* 63 */ 0x0063 /*                          LATIN SMALL LETTER C */ ,
+	/* 64 */ 0x0064 /*                          LATIN SMALL LETTER D */ ,
+	/* 65 */ 0x0065 /*                          LATIN SMALL LETTER E */ ,
+	/* 66 */ 0x0066 /*                          LATIN SMALL LETTER F */ ,
+	/* 67 */ 0x0067 /*                          LATIN SMALL LETTER G */ ,
+	/* 68 */ 0x0068 /*                          LATIN SMALL LETTER H */ ,
+	/* 69 */ 0x0069 /*                          LATIN SMALL LETTER I */ ,
+	/* 6A */ 0x006A /*                          LATIN SMALL LETTER J */ ,
+	/* 6B */ 0x006B /*                          LATIN SMALL LETTER K */ ,
+	/* 6C */ 0x006C /*                          LATIN SMALL LETTER L */ ,
+	/* 6D */ 0x006D /*                          LATIN SMALL LETTER M */ ,
+	/* 6E */ 0x006E /*                          LATIN SMALL LETTER N */ ,
+	/* 6F */ 0x006F /*                          LATIN SMALL LETTER O */ ,
+	/* 70 */ 0x0070 /*                          LATIN SMALL LETTER P */ ,
+	/* 71 */ 0x0071 /*                          LATIN SMALL LETTER Q */ ,
+	/* 72 */ 0x0072 /*                          LATIN SMALL LETTER R */ ,
+	/* 73 */ 0x0073 /*                          LATIN SMALL LETTER S */ ,
+	/* 74 */ 0x0074 /*                          LATIN SMALL LETTER T */ ,
+	/* 75 */ 0x0075 /*                          LATIN SMALL LETTER U */ ,
+	/* 76 */ 0x0076 /*                          LATIN SMALL LETTER V */ ,
+	/* 77 */ 0x0077 /*                          LATIN SMALL LETTER W */ ,
+	/* 78 */ 0x0078 /*                          LATIN SMALL LETTER X */ ,
+	/* 79 */ 0x0079 /*                          LATIN SMALL LETTER Y */ ,
+	/* 7A */ 0x007A /*                          LATIN SMALL LETTER Z */ ,
+	/* 7B */ 0x007B /*                            LEFT CURLY BRACKET */ ,
+	/* 7C */ 0x007C /*                                 VERTICAL LINE */ ,
+	/* 7D */ 0x007D /*                           RIGHT CURLY BRACKET */ ,
+	/* 7E */ 0x007E /*                                         TILDE */ ,
+	/* 7F */ 0x007F /*                                        DELETE */ ,
+	/* 80 */ 0x20AC /*                                     EURO SIGN */ ,
+/* 81 */ CANT_MAP_CHARACTER,
+	/* 82 */ 0x201A /*                   SINGLE LOW-9 QUOTATION MARK */ ,
+	/* 83 */ 0x0192 /*                LATIN SMALL LETTER F WITH HOOK */ ,
+	/* 84 */ 0x201E /*                   DOUBLE LOW-9 QUOTATION MARK */ ,
+	/* 85 */ 0x2026 /*                           HORIZONTAL ELLIPSIS */ ,
+	/* 86 */ 0x2020 /*                                        DAGGER */ ,
+	/* 87 */ 0x2021 /*                                 DOUBLE DAGGER */ ,
+	/* 88 */ 0x02C6 /*             MODIFIER LETTER CIRCUMFLEX ACCENT */ ,
+	/* 89 */ 0x2030 /*                                PER MILLE SIGN */ ,
+	/* 8A */ 0x0160 /*             LATIN CAPITAL LETTER S WITH CARON */ ,
+	/* 8B */ 0x2039 /*     SINGLE LEFT-POINTING ANGLE QUOTATION MARK */ ,
+	/* 8C */ 0x0152 /*                     LATIN CAPITAL LIGATURE OE */ ,
+/* 8D */ CANT_MAP_CHARACTER,
+/* 8E */ CANT_MAP_CHARACTER,
+/* 8F */ CANT_MAP_CHARACTER,
+/* 90 */ CANT_MAP_CHARACTER,
+	/* 91 */ 0x2018 /*                    LEFT SINGLE QUOTATION MARK */ ,
+	/* 92 */ 0x2019 /*                   RIGHT SINGLE QUOTATION MARK */ ,
+	/* 93 */ 0x201C /*                    LEFT DOUBLE QUOTATION MARK */ ,
+	/* 94 */ 0x201D /*                   RIGHT DOUBLE QUOTATION MARK */ ,
+	/* 95 */ 0x2022 /*                                        BULLET */ ,
+	/* 96 */ 0x2013 /*                                       EN DASH */ ,
+	/* 97 */ 0x2014 /*                                       EM DASH */ ,
+	/* 98 */ 0x02DC /*                                   SMALL TILDE */ ,
+	/* 99 */ 0x2122 /*                               TRADE MARK SIGN */ ,
+	/* 9A */ 0x0161 /*               LATIN SMALL LETTER S WITH CARON */ ,
+	/* 9B */ 0x203A /*    SINGLE RIGHT-POINTING ANGLE QUOTATION MARK */ ,
+	/* 9C */ 0x0153 /*                       LATIN SMALL LIGATURE OE */ ,
+/* 9D */ CANT_MAP_CHARACTER,
+/* 9E */ CANT_MAP_CHARACTER,
+	/* 9F */ 0x0178 /*         LATIN CAPITAL LETTER Y WITH DIAERESIS */ ,
+	/* A0 */ 0x00A0 /*                                NO-BREAK SPACE */ ,
+	/* A1 */ 0x00A1 /*                     INVERTED EXCLAMATION MARK */ ,
+	/* A2 */ 0x00A2 /*                                     CENT SIGN */ ,
+	/* A3 */ 0x00A3 /*                                    POUND SIGN */ ,
+	/* A4 */ 0x00A4 /*                                 CURRENCY SIGN */ ,
+	/* A5 */ 0x00A5 /*                                      YEN SIGN */ ,
+	/* A6 */ 0x00A6 /*                                    BROKEN BAR */ ,
+	/* A7 */ 0x00A7 /*                                  SECTION SIGN */ ,
+	/* A8 */ 0x00A8 /*                                     DIAERESIS */ ,
+	/* A9 */ 0x00A9 /*                                COPYRIGHT SIGN */ ,
+	/* AA */ 0x00AA /*                    FEMININE ORDINAL INDICATOR */ ,
+	/* AB */ 0x00AB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* AC */ 0x00AC /*                                      NOT SIGN */ ,
+	/* AD */ 0x00AD /*                                   SOFT HYPHEN */ ,
+	/* AE */ 0x00AE /*                               REGISTERED SIGN */ ,
+	/* AF */ 0x00AF /*                                        MACRON */ ,
+	/* B0 */ 0x00B0 /*                                   DEGREE SIGN */ ,
+	/* B1 */ 0x00B1 /*                               PLUS-MINUS SIGN */ ,
+	/* B2 */ 0x00B2 /*                               SUPERSCRIPT TWO */ ,
+	/* B3 */ 0x00B3 /*                             SUPERSCRIPT THREE */ ,
+	/* B4 */ 0x00B4 /*                                  ACUTE ACCENT */ ,
+	/* B5 */ 0x00B5 /*                                    MICRO SIGN */ ,
+	/* B6 */ 0x00B6 /*                                  PILCROW SIGN */ ,
+	/* B7 */ 0x00B7 /*                                    MIDDLE DOT */ ,
+	/* B8 */ 0x00B8 /*                                       CEDILLA */ ,
+	/* B9 */ 0x00B9 /*                               SUPERSCRIPT ONE */ ,
+	/* BA */ 0x00BA /*                   MASCULINE ORDINAL INDICATOR */ ,
+	/* BB */ 0x00BB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,
+	/* BC */ 0x00BC /*                   VULGAR FRACTION ONE QUARTER */ ,
+	/* BD */ 0x00BD /*                      VULGAR FRACTION ONE HALF */ ,
+	/* BE */ 0x00BE /*                VULGAR FRACTION THREE QUARTERS */ ,
+	/* BF */ 0x00BF /*                        INVERTED QUESTION MARK */ ,
+	/* C0 */ 0x00C0 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,
+	/* C1 */ 0x00C1 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,
+	/* C2 */ 0x00C2 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,
+	/* C3 */ 0x00C3 /*             LATIN CAPITAL LETTER A WITH TILDE */ ,
+	/* C4 */ 0x00C4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,
+	/* C5 */ 0x00C5 /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,
+	/* C6 */ 0x00C6 /*                       LATIN CAPITAL LETTER AE */ ,
+	/* C7 */ 0x00C7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,
+	/* C8 */ 0x00C8 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,
+	/* C9 */ 0x00C9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,
+	/* CA */ 0x00CA /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,
+	/* CB */ 0x00CB /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,
+	/* CC */ 0x00CC /*             LATIN CAPITAL LETTER I WITH GRAVE */ ,
+	/* CD */ 0x00CD /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,
+	/* CE */ 0x00CE /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,
+	/* CF */ 0x00CF /*         LATIN CAPITAL LETTER I WITH DIAERESIS */ ,
+	/* D0 */ 0x011E /*             LATIN CAPITAL LETTER G WITH BREVE */ ,
+	/* D1 */ 0x00D1 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,
+	/* D2 */ 0x00D2 /*             LATIN CAPITAL LETTER O WITH GRAVE */ ,
+	/* D3 */ 0x00D3 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,
+	/* D4 */ 0x00D4 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,
+	/* D5 */ 0x00D5 /*             LATIN CAPITAL LETTER O WITH TILDE */ ,
+	/* D6 */ 0x00D6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,
+	/* D7 */ 0x00D7 /*                           MULTIPLICATION SIGN */ ,
+	/* D8 */ 0x00D8 /*            LATIN CAPITAL LETTER O WITH STROKE */ ,
+	/* D9 */ 0x00D9 /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,
+	/* DA */ 0x00DA /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,
+	/* DB */ 0x00DB /*        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ ,
+	/* DC */ 0x00DC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,
+	/* DD */ 0x0130 /*         LATIN CAPITAL LETTER I WITH DOT ABOVE */ ,
+	/* DE */ 0x015E /*           LATIN CAPITAL LETTER S WITH CEDILLA */ ,
+	/* DF */ 0x00DF /*                    LATIN SMALL LETTER SHARP S */ ,
+	/* E0 */ 0x00E0 /*               LATIN SMALL LETTER A WITH GRAVE */ ,
+	/* E1 */ 0x00E1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,
+	/* E2 */ 0x00E2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,
+	/* E3 */ 0x00E3 /*               LATIN SMALL LETTER A WITH TILDE */ ,
+	/* E4 */ 0x00E4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,
+	/* E5 */ 0x00E5 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,
+	/* E6 */ 0x00E6 /*                         LATIN SMALL LETTER AE */ ,
+	/* E7 */ 0x00E7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,
+	/* E8 */ 0x00E8 /*               LATIN SMALL LETTER E WITH GRAVE */ ,
+	/* E9 */ 0x00E9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,
+	/* EA */ 0x00EA /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,
+	/* EB */ 0x00EB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,
+	/* EC */ 0x00EC /*               LATIN SMALL LETTER I WITH GRAVE */ ,
+	/* ED */ 0x00ED /*               LATIN SMALL LETTER I WITH ACUTE */ ,
+	/* EE */ 0x00EE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,
+	/* EF */ 0x00EF /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,
+	/* F0 */ 0x011F /*               LATIN SMALL LETTER G WITH BREVE */ ,
+	/* F1 */ 0x00F1 /*               LATIN SMALL LETTER N WITH TILDE */ ,
+	/* F2 */ 0x00F2 /*               LATIN SMALL LETTER O WITH GRAVE */ ,
+	/* F3 */ 0x00F3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,
+	/* F4 */ 0x00F4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,
+	/* F5 */ 0x00F5 /*               LATIN SMALL LETTER O WITH TILDE */ ,
+	/* F6 */ 0x00F6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,
+	/* F7 */ 0x00F7 /*                                 DIVISION SIGN */ ,
+	/* F8 */ 0x00F8 /*              LATIN SMALL LETTER O WITH STROKE */ ,
+	/* F9 */ 0x00F9 /*               LATIN SMALL LETTER U WITH GRAVE */ ,
+	/* FA */ 0x00FA /*               LATIN SMALL LETTER U WITH ACUTE */ ,
+	/* FB */ 0x00FB /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,
+	/* FC */ 0x00FC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,
+	/* FD */ 0x0131 /*                  LATIN SMALL LETTER DOTLESS I */ ,
+	/* FE */ 0x015F /*             LATIN SMALL LETTER S WITH CEDILLA */ ,
+	/* FF */ 0x00FF /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,
+};
+
+
+#ifndef CANT_MAP_CHARACTER
+#define CANT_MAP_CHARACTER 0
+#endif
+
+static CONST UCHAR FAR_VARIABLE from_unicode_mapping_array[] = {
+										/* U+XX00 */ CANT_MAP_CHARACTER,
+										/* 0 */
+										/* U+XX01 */ CANT_MAP_CHARACTER,
+										/* 1 */
+										/* U+XX02 */ CANT_MAP_CHARACTER,
+										/* 2 */
+										/* U+XX03 */ CANT_MAP_CHARACTER,
+										/* 3 */
+										/* U+XX04 */ CANT_MAP_CHARACTER,
+										/* 4 */
+										/* U+XX05 */ CANT_MAP_CHARACTER,
+										/* 5 */
+										/* U+XX06 */ CANT_MAP_CHARACTER,
+										/* 6 */
+										/* U+XX07 */ CANT_MAP_CHARACTER,
+										/* 7 */
+										/* U+XX08 */ CANT_MAP_CHARACTER,
+										/* 8 */
+										/* U+XX09 */ CANT_MAP_CHARACTER,
+										/* 9 */
+										/* U+XX0A */ CANT_MAP_CHARACTER,
+										/* 10 */
+										/* U+XX0B */ CANT_MAP_CHARACTER,
+										/* 11 */
+										/* U+XX0C */ CANT_MAP_CHARACTER,
+										/* 12 */
+										/* U+XX0D */ CANT_MAP_CHARACTER,
+										/* 13 */
+										/* U+XX0E */ CANT_MAP_CHARACTER,
+										/* 14 */
+										/* U+XX0F */ CANT_MAP_CHARACTER,
+										/* 15 */
+										/* U+XX10 */ CANT_MAP_CHARACTER,
+										/* 16 */
+										/* U+XX11 */ CANT_MAP_CHARACTER,
+										/* 17 */
+										/* U+XX12 */ CANT_MAP_CHARACTER,
+										/* 18 */
+										/* U+XX13 */ CANT_MAP_CHARACTER,
+										/* 19 */
+										/* U+XX14 */ CANT_MAP_CHARACTER,
+										/* 20 */
+										/* U+XX15 */ CANT_MAP_CHARACTER,
+										/* 21 */
+										/* U+XX16 */ CANT_MAP_CHARACTER,
+										/* 22 */
+										/* U+XX17 */ CANT_MAP_CHARACTER,
+										/* 23 */
+										/* U+XX18 */ CANT_MAP_CHARACTER,
+										/* 24 */
+										/* U+XX19 */ CANT_MAP_CHARACTER,
+										/* 25 */
+										/* U+XX1A */ CANT_MAP_CHARACTER,
+										/* 26 */
+										/* U+XX1B */ CANT_MAP_CHARACTER,
+										/* 27 */
+										/* U+XX1C */ CANT_MAP_CHARACTER,
+										/* 28 */
+										/* U+XX1D */ CANT_MAP_CHARACTER,
+										/* 29 */
+										/* U+XX1E */ CANT_MAP_CHARACTER,
+										/* 30 */
+										/* U+XX1F */ CANT_MAP_CHARACTER,
+										/* 31 */
+										/* U+XX20 */ CANT_MAP_CHARACTER,
+										/* 32 */
+										/* U+XX21 */ CANT_MAP_CHARACTER,
+										/* 33 */
+										/* U+XX22 */ CANT_MAP_CHARACTER,
+										/* 34 */
+										/* U+XX23 */ CANT_MAP_CHARACTER,
+										/* 35 */
+										/* U+XX24 */ CANT_MAP_CHARACTER,
+										/* 36 */
+										/* U+XX25 */ CANT_MAP_CHARACTER,
+										/* 37 */
+										/* U+XX26 */ CANT_MAP_CHARACTER,
+										/* 38 */
+										/* U+XX27 */ CANT_MAP_CHARACTER,
+										/* 39 */
+										/* U+XX28 */ CANT_MAP_CHARACTER,
+										/* 40 */
+										/* U+XX29 */ CANT_MAP_CHARACTER,
+										/* 41 */
+										/* U+XX2A */ CANT_MAP_CHARACTER,
+										/* 42 */
+										/* U+XX2B */ CANT_MAP_CHARACTER,
+										/* 43 */
+										/* U+XX2C */ CANT_MAP_CHARACTER,
+										/* 44 */
+										/* U+XX2D */ CANT_MAP_CHARACTER,
+										/* 45 */
+										/* U+XX2E */ CANT_MAP_CHARACTER,
+										/* 46 */
+										/* U+XX2F */ CANT_MAP_CHARACTER,
+										/* 47 */
+										/* U+XX30 */ CANT_MAP_CHARACTER,
+										/* 48 */
+										/* U+XX31 */ CANT_MAP_CHARACTER,
+										/* 49 */
+										/* U+XX32 */ CANT_MAP_CHARACTER,
+										/* 50 */
+										/* U+XX33 */ CANT_MAP_CHARACTER,
+										/* 51 */
+										/* U+XX34 */ CANT_MAP_CHARACTER,
+										/* 52 */
+										/* U+XX35 */ CANT_MAP_CHARACTER,
+										/* 53 */
+										/* U+XX36 */ CANT_MAP_CHARACTER,
+										/* 54 */
+										/* U+XX37 */ CANT_MAP_CHARACTER,
+										/* 55 */
+										/* U+XX38 */ CANT_MAP_CHARACTER,
+										/* 56 */
+										/* U+XX39 */ CANT_MAP_CHARACTER,
+										/* 57 */
+										/* U+XX3A */ CANT_MAP_CHARACTER,
+										/* 58 */
+										/* U+XX3B */ CANT_MAP_CHARACTER,
+										/* 59 */
+										/* U+XX3C */ CANT_MAP_CHARACTER,
+										/* 60 */
+										/* U+XX3D */ CANT_MAP_CHARACTER,
+										/* 61 */
+										/* U+XX3E */ CANT_MAP_CHARACTER,
+										/* 62 */
+										/* U+XX3F */ CANT_MAP_CHARACTER,
+										/* 63 */
+										/* U+XX40 */ CANT_MAP_CHARACTER,
+										/* 64 */
+										/* U+XX41 */ CANT_MAP_CHARACTER,
+										/* 65 */
+										/* U+XX42 */ CANT_MAP_CHARACTER,
+										/* 66 */
+										/* U+XX43 */ CANT_MAP_CHARACTER,
+										/* 67 */
+										/* U+XX44 */ CANT_MAP_CHARACTER,
+										/* 68 */
+										/* U+XX45 */ CANT_MAP_CHARACTER,
+										/* 69 */
+										/* U+XX46 */ CANT_MAP_CHARACTER,
+										/* 70 */
+										/* U+XX47 */ CANT_MAP_CHARACTER,
+										/* 71 */
+										/* U+XX48 */ CANT_MAP_CHARACTER,
+										/* 72 */
+										/* U+XX49 */ CANT_MAP_CHARACTER,
+										/* 73 */
+										/* U+XX4A */ CANT_MAP_CHARACTER,
+										/* 74 */
+										/* U+XX4B */ CANT_MAP_CHARACTER,
+										/* 75 */
+										/* U+XX4C */ CANT_MAP_CHARACTER,
+										/* 76 */
+										/* U+XX4D */ CANT_MAP_CHARACTER,
+										/* 77 */
+										/* U+XX4E */ CANT_MAP_CHARACTER,
+										/* 78 */
+										/* U+XX4F */ CANT_MAP_CHARACTER,
+										/* 79 */
+										/* U+XX50 */ CANT_MAP_CHARACTER,
+										/* 80 */
+										/* U+XX51 */ CANT_MAP_CHARACTER,
+										/* 81 */
+										/* U+XX52 */ CANT_MAP_CHARACTER,
+										/* 82 */
+										/* U+XX53 */ CANT_MAP_CHARACTER,
+										/* 83 */
+										/* U+XX54 */ CANT_MAP_CHARACTER,
+										/* 84 */
+										/* U+XX55 */ CANT_MAP_CHARACTER,
+										/* 85 */
+										/* U+XX56 */ CANT_MAP_CHARACTER,
+										/* 86 */
+										/* U+XX57 */ CANT_MAP_CHARACTER,
+										/* 87 */
+										/* U+XX58 */ CANT_MAP_CHARACTER,
+										/* 88 */
+										/* U+XX59 */ CANT_MAP_CHARACTER,
+										/* 89 */
+										/* U+XX5A */ CANT_MAP_CHARACTER,
+										/* 90 */
+										/* U+XX5B */ CANT_MAP_CHARACTER,
+										/* 91 */
+										/* U+XX5C */ CANT_MAP_CHARACTER,
+										/* 92 */
+										/* U+XX5D */ CANT_MAP_CHARACTER,
+										/* 93 */
+										/* U+XX5E */ CANT_MAP_CHARACTER,
+										/* 94 */
+										/* U+XX5F */ CANT_MAP_CHARACTER,
+										/* 95 */
+										/* U+XX60 */ CANT_MAP_CHARACTER,
+										/* 96 */
+										/* U+XX61 */ CANT_MAP_CHARACTER,
+										/* 97 */
+										/* U+XX62 */ CANT_MAP_CHARACTER,
+										/* 98 */
+										/* U+XX63 */ CANT_MAP_CHARACTER,
+										/* 99 */
+										/* U+XX64 */ CANT_MAP_CHARACTER,
+										/* 100 */
+										/* U+XX65 */ CANT_MAP_CHARACTER,
+										/* 101 */
+										/* U+XX66 */ CANT_MAP_CHARACTER,
+										/* 102 */
+										/* U+XX67 */ CANT_MAP_CHARACTER,
+										/* 103 */
+										/* U+XX68 */ CANT_MAP_CHARACTER,
+										/* 104 */
+										/* U+XX69 */ CANT_MAP_CHARACTER,
+										/* 105 */
+										/* U+XX6A */ CANT_MAP_CHARACTER,
+										/* 106 */
+										/* U+XX6B */ CANT_MAP_CHARACTER,
+										/* 107 */
+										/* U+XX6C */ CANT_MAP_CHARACTER,
+										/* 108 */
+										/* U+XX6D */ CANT_MAP_CHARACTER,
+										/* 109 */
+										/* U+XX6E */ CANT_MAP_CHARACTER,
+										/* 110 */
+										/* U+XX6F */ CANT_MAP_CHARACTER,
+										/* 111 */
+										/* U+XX70 */ CANT_MAP_CHARACTER,
+										/* 112 */
+										/* U+XX71 */ CANT_MAP_CHARACTER,
+										/* 113 */
+										/* U+XX72 */ CANT_MAP_CHARACTER,
+										/* 114 */
+										/* U+XX73 */ CANT_MAP_CHARACTER,
+										/* 115 */
+										/* U+XX74 */ CANT_MAP_CHARACTER,
+										/* 116 */
+										/* U+XX75 */ CANT_MAP_CHARACTER,
+										/* 117 */
+										/* U+XX76 */ CANT_MAP_CHARACTER,
+										/* 118 */
+										/* U+XX77 */ CANT_MAP_CHARACTER,
+										/* 119 */
+										/* U+XX78 */ CANT_MAP_CHARACTER,
+										/* 120 */
+										/* U+XX79 */ CANT_MAP_CHARACTER,
+										/* 121 */
+										/* U+XX7A */ CANT_MAP_CHARACTER,
+										/* 122 */
+										/* U+XX7B */ CANT_MAP_CHARACTER,
+										/* 123 */
+										/* U+XX7C */ CANT_MAP_CHARACTER,
+										/* 124 */
+										/* U+XX7D */ CANT_MAP_CHARACTER,
+										/* 125 */
+										/* U+XX7E */ CANT_MAP_CHARACTER,
+										/* 126 */
+										/* U+XX7F */ CANT_MAP_CHARACTER,
+										/* 127 */
+										/* U+XX80 */ CANT_MAP_CHARACTER,
+										/* 128 */
+										/* U+XX81 */ CANT_MAP_CHARACTER,
+										/* 129 */
+										/* U+XX82 */ CANT_MAP_CHARACTER,
+										/* 130 */
+										/* U+XX83 */ CANT_MAP_CHARACTER,
+										/* 131 */
+										/* U+XX84 */ CANT_MAP_CHARACTER,
+										/* 132 */
+										/* U+XX85 */ CANT_MAP_CHARACTER,
+										/* 133 */
+										/* U+XX86 */ CANT_MAP_CHARACTER,
+										/* 134 */
+										/* U+XX87 */ CANT_MAP_CHARACTER,
+										/* 135 */
+										/* U+XX88 */ CANT_MAP_CHARACTER,
+										/* 136 */
+										/* U+XX89 */ CANT_MAP_CHARACTER,
+										/* 137 */
+										/* U+XX8A */ CANT_MAP_CHARACTER,
+										/* 138 */
+										/* U+XX8B */ CANT_MAP_CHARACTER,
+										/* 139 */
+										/* U+XX8C */ CANT_MAP_CHARACTER,
+										/* 140 */
+										/* U+XX8D */ CANT_MAP_CHARACTER,
+										/* 141 */
+										/* U+XX8E */ CANT_MAP_CHARACTER,
+										/* 142 */
+										/* U+XX8F */ CANT_MAP_CHARACTER,
+										/* 143 */
+										/* U+XX90 */ CANT_MAP_CHARACTER,
+										/* 144 */
+										/* U+XX91 */ CANT_MAP_CHARACTER,
+										/* 145 */
+										/* U+XX92 */ CANT_MAP_CHARACTER,
+										/* 146 */
+										/* U+XX93 */ CANT_MAP_CHARACTER,
+										/* 147 */
+										/* U+XX94 */ CANT_MAP_CHARACTER,
+										/* 148 */
+										/* U+XX95 */ CANT_MAP_CHARACTER,
+										/* 149 */
+										/* U+XX96 */ CANT_MAP_CHARACTER,
+										/* 150 */
+										/* U+XX97 */ CANT_MAP_CHARACTER,
+										/* 151 */
+										/* U+XX98 */ CANT_MAP_CHARACTER,
+										/* 152 */
+										/* U+XX99 */ CANT_MAP_CHARACTER,
+										/* 153 */
+										/* U+XX9A */ CANT_MAP_CHARACTER,
+										/* 154 */
+										/* U+XX9B */ CANT_MAP_CHARACTER,
+										/* 155 */
+										/* U+XX9C */ CANT_MAP_CHARACTER,
+										/* 156 */
+										/* U+XX9D */ CANT_MAP_CHARACTER,
+										/* 157 */
+										/* U+XX9E */ CANT_MAP_CHARACTER,
+										/* 158 */
+										/* U+XX9F */ CANT_MAP_CHARACTER,
+										/* 159 */
+										/* U+XXA0 */ CANT_MAP_CHARACTER,
+										/* 160 */
+										/* U+XXA1 */ CANT_MAP_CHARACTER,
+										/* 161 */
+										/* U+XXA2 */ CANT_MAP_CHARACTER,
+										/* 162 */
+										/* U+XXA3 */ CANT_MAP_CHARACTER,
+										/* 163 */
+										/* U+XXA4 */ CANT_MAP_CHARACTER,
+										/* 164 */
+										/* U+XXA5 */ CANT_MAP_CHARACTER,
+										/* 165 */
+										/* U+XXA6 */ CANT_MAP_CHARACTER,
+										/* 166 */
+										/* U+XXA7 */ CANT_MAP_CHARACTER,
+										/* 167 */
+										/* U+XXA8 */ CANT_MAP_CHARACTER,
+										/* 168 */
+										/* U+XXA9 */ CANT_MAP_CHARACTER,
+										/* 169 */
+										/* U+XXAA */ CANT_MAP_CHARACTER,
+										/* 170 */
+										/* U+XXAB */ CANT_MAP_CHARACTER,
+										/* 171 */
+										/* U+XXAC */ CANT_MAP_CHARACTER,
+										/* 172 */
+										/* U+XXAD */ CANT_MAP_CHARACTER,
+										/* 173 */
+										/* U+XXAE */ CANT_MAP_CHARACTER,
+										/* 174 */
+										/* U+XXAF */ CANT_MAP_CHARACTER,
+										/* 175 */
+										/* U+XXB0 */ CANT_MAP_CHARACTER,
+										/* 176 */
+										/* U+XXB1 */ CANT_MAP_CHARACTER,
+										/* 177 */
+										/* U+XXB2 */ CANT_MAP_CHARACTER,
+										/* 178 */
+										/* U+XXB3 */ CANT_MAP_CHARACTER,
+										/* 179 */
+										/* U+XXB4 */ CANT_MAP_CHARACTER,
+										/* 180 */
+										/* U+XXB5 */ CANT_MAP_CHARACTER,
+										/* 181 */
+										/* U+XXB6 */ CANT_MAP_CHARACTER,
+										/* 182 */
+										/* U+XXB7 */ CANT_MAP_CHARACTER,
+										/* 183 */
+										/* U+XXB8 */ CANT_MAP_CHARACTER,
+										/* 184 */
+										/* U+XXB9 */ CANT_MAP_CHARACTER,
+										/* 185 */
+										/* U+XXBA */ CANT_MAP_CHARACTER,
+										/* 186 */
+										/* U+XXBB */ CANT_MAP_CHARACTER,
+										/* 187 */
+										/* U+XXBC */ CANT_MAP_CHARACTER,
+										/* 188 */
+										/* U+XXBD */ CANT_MAP_CHARACTER,
+										/* 189 */
+										/* U+XXBE */ CANT_MAP_CHARACTER,
+										/* 190 */
+										/* U+XXBF */ CANT_MAP_CHARACTER,
+										/* 191 */
+										/* U+XXC0 */ CANT_MAP_CHARACTER,
+										/* 192 */
+										/* U+XXC1 */ CANT_MAP_CHARACTER,
+										/* 193 */
+										/* U+XXC2 */ CANT_MAP_CHARACTER,
+										/* 194 */
+										/* U+XXC3 */ CANT_MAP_CHARACTER,
+										/* 195 */
+										/* U+XXC4 */ CANT_MAP_CHARACTER,
+										/* 196 */
+										/* U+XXC5 */ CANT_MAP_CHARACTER,
+										/* 197 */
+										/* U+XXC6 */ CANT_MAP_CHARACTER,
+										/* 198 */
+										/* U+XXC7 */ CANT_MAP_CHARACTER,
+										/* 199 */
+										/* U+XXC8 */ CANT_MAP_CHARACTER,
+										/* 200 */
+										/* U+XXC9 */ CANT_MAP_CHARACTER,
+										/* 201 */
+										/* U+XXCA */ CANT_MAP_CHARACTER,
+										/* 202 */
+										/* U+XXCB */ CANT_MAP_CHARACTER,
+										/* 203 */
+										/* U+XXCC */ CANT_MAP_CHARACTER,
+										/* 204 */
+										/* U+XXCD */ CANT_MAP_CHARACTER,
+										/* 205 */
+										/* U+XXCE */ CANT_MAP_CHARACTER,
+										/* 206 */
+										/* U+XXCF */ CANT_MAP_CHARACTER,
+										/* 207 */
+										/* U+XXD0 */ CANT_MAP_CHARACTER,
+										/* 208 */
+										/* U+XXD1 */ CANT_MAP_CHARACTER,
+										/* 209 */
+										/* U+XXD2 */ CANT_MAP_CHARACTER,
+										/* 210 */
+										/* U+XXD3 */ CANT_MAP_CHARACTER,
+										/* 211 */
+										/* U+XXD4 */ CANT_MAP_CHARACTER,
+										/* 212 */
+										/* U+XXD5 */ CANT_MAP_CHARACTER,
+										/* 213 */
+										/* U+XXD6 */ CANT_MAP_CHARACTER,
+										/* 214 */
+										/* U+XXD7 */ CANT_MAP_CHARACTER,
+										/* 215 */
+										/* U+XXD8 */ CANT_MAP_CHARACTER,
+										/* 216 */
+										/* U+XXD9 */ CANT_MAP_CHARACTER,
+										/* 217 */
+										/* U+XXDA */ CANT_MAP_CHARACTER,
+										/* 218 */
+										/* U+XXDB */ CANT_MAP_CHARACTER,
+										/* 219 */
+										/* U+XXDC */ CANT_MAP_CHARACTER,
+										/* 220 */
+										/* U+XXDD */ CANT_MAP_CHARACTER,
+										/* 221 */
+										/* U+XXDE */ CANT_MAP_CHARACTER,
+										/* 222 */
+										/* U+XXDF */ CANT_MAP_CHARACTER,
+										/* 223 */
+										/* U+XXE0 */ CANT_MAP_CHARACTER,
+										/* 224 */
+										/* U+XXE1 */ CANT_MAP_CHARACTER,
+										/* 225 */
+										/* U+XXE2 */ CANT_MAP_CHARACTER,
+										/* 226 */
+										/* U+XXE3 */ CANT_MAP_CHARACTER,
+										/* 227 */
+										/* U+XXE4 */ CANT_MAP_CHARACTER,
+										/* 228 */
+										/* U+XXE5 */ CANT_MAP_CHARACTER,
+										/* 229 */
+										/* U+XXE6 */ CANT_MAP_CHARACTER,
+										/* 230 */
+										/* U+XXE7 */ CANT_MAP_CHARACTER,
+										/* 231 */
+										/* U+XXE8 */ CANT_MAP_CHARACTER,
+										/* 232 */
+										/* U+XXE9 */ CANT_MAP_CHARACTER,
+										/* 233 */
+										/* U+XXEA */ CANT_MAP_CHARACTER,
+										/* 234 */
+										/* U+XXEB */ CANT_MAP_CHARACTER,
+										/* 235 */
+										/* U+XXEC */ CANT_MAP_CHARACTER,
+										/* 236 */
+										/* U+XXED */ CANT_MAP_CHARACTER,
+										/* 237 */
+										/* U+XXEE */ CANT_MAP_CHARACTER,
+										/* 238 */
+										/* U+XXEF */ CANT_MAP_CHARACTER,
+										/* 239 */
+										/* U+XXF0 */ CANT_MAP_CHARACTER,
+										/* 240 */
+										/* U+XXF1 */ CANT_MAP_CHARACTER,
+										/* 241 */
+										/* U+XXF2 */ CANT_MAP_CHARACTER,
+										/* 242 */
+										/* U+XXF3 */ CANT_MAP_CHARACTER,
+										/* 243 */
+										/* U+XXF4 */ CANT_MAP_CHARACTER,
+										/* 244 */
+										/* U+XXF5 */ CANT_MAP_CHARACTER,
+										/* 245 */
+										/* U+XXF6 */ CANT_MAP_CHARACTER,
+										/* 246 */
+										/* U+XXF7 */ CANT_MAP_CHARACTER,
+										/* 247 */
+										/* U+XXF8 */ CANT_MAP_CHARACTER,
+										/* 248 */
+										/* U+XXF9 */ CANT_MAP_CHARACTER,
+										/* 249 */
+										/* U+XXFA */ CANT_MAP_CHARACTER,
+										/* 250 */
+										/* U+XXFB */ CANT_MAP_CHARACTER,
+										/* 251 */
+										/* U+XXFC */ CANT_MAP_CHARACTER,
+										/* 252 */
+										/* U+XXFD */ CANT_MAP_CHARACTER,
+										/* 253 */
+										/* U+XXFE */ CANT_MAP_CHARACTER,
+										/* 254 */
+										/* U+XXFF */ CANT_MAP_CHARACTER,
+										/* 255 */
+	/* U+0000 */ 0x00 /*                                          NULL */ ,	/* 256 */
+	/* U+0001 */ 0x01 /*                              START OF HEADING */ ,	/* 257 */
+	/* U+0002 */ 0x02 /*                                 START OF TEXT */ ,	/* 258 */
+	/* U+0003 */ 0x03 /*                                   END OF TEXT */ ,	/* 259 */
+	/* U+0004 */ 0x04 /*                           END OF TRANSMISSION */ ,	/* 260 */
+	/* U+0005 */ 0x05 /*                                       ENQUIRY */ ,	/* 261 */
+	/* U+0006 */ 0x06 /*                                   ACKNOWLEDGE */ ,	/* 262 */
+	/* U+0007 */ 0x07 /*                                          BELL */ ,	/* 263 */
+	/* U+0008 */ 0x08 /*                                     BACKSPACE */ ,	/* 264 */
+	/* U+0009 */ 0x09 /*                         HORIZONTAL TABULATION */ ,	/* 265 */
+	/* U+000A */ 0x0A /*                                     LINE FEED */ ,	/* 266 */
+	/* U+000B */ 0x0B /*                           VERTICAL TABULATION */ ,	/* 267 */
+	/* U+000C */ 0x0C /*                                     FORM FEED */ ,	/* 268 */
+	/* U+000D */ 0x0D /*                               CARRIAGE RETURN */ ,	/* 269 */
+	/* U+000E */ 0x0E /*                                     SHIFT OUT */ ,	/* 270 */
+	/* U+000F */ 0x0F /*                                      SHIFT IN */ ,	/* 271 */
+	/* U+0010 */ 0x10 /*                              DATA LINK ESCAPE */ ,	/* 272 */
+	/* U+0011 */ 0x11 /*                            DEVICE CONTROL ONE */ ,	/* 273 */
+	/* U+0012 */ 0x12 /*                            DEVICE CONTROL TWO */ ,	/* 274 */
+	/* U+0013 */ 0x13 /*                          DEVICE CONTROL THREE */ ,	/* 275 */
+	/* U+0014 */ 0x14 /*                           DEVICE CONTROL FOUR */ ,	/* 276 */
+	/* U+0015 */ 0x15 /*                          NEGATIVE ACKNOWLEDGE */ ,	/* 277 */
+	/* U+0016 */ 0x16 /*                              SYNCHRONOUS IDLE */ ,	/* 278 */
+	/* U+0017 */ 0x17 /*                     END OF TRANSMISSION BLOCK */ ,	/* 279 */
+	/* U+0018 */ 0x18 /*                                        CANCEL */ ,	/* 280 */
+	/* U+0019 */ 0x19 /*                                 END OF MEDIUM */ ,	/* 281 */
+	/* U+001A */ 0x1A /*                                    SUBSTITUTE */ ,	/* 282 */
+	/* U+001B */ 0x1B /*                                        ESCAPE */ ,	/* 283 */
+	/* U+001C */ 0x1C /*                                FILE SEPARATOR */ ,	/* 284 */
+	/* U+001D */ 0x1D /*                               GROUP SEPARATOR */ ,	/* 285 */
+	/* U+001E */ 0x1E /*                              RECORD SEPARATOR */ ,	/* 286 */
+	/* U+001F */ 0x1F /*                                UNIT SEPARATOR */ ,	/* 287 */
+	/* U+0020 */ 0x20 /*                                         SPACE */ ,	/* 288 */
+	/* U+0021 */ 0x21 /*                              EXCLAMATION MARK */ ,	/* 289 */
+	/* U+0022 */ 0x22 /*                                QUOTATION MARK */ ,	/* 290 */
+	/* U+0023 */ 0x23 /*                                   NUMBER SIGN */ ,	/* 291 */
+	/* U+0024 */ 0x24 /*                                   DOLLAR SIGN */ ,	/* 292 */
+	/* U+0025 */ 0x25 /*                                  PERCENT SIGN */ ,	/* 293 */
+	/* U+0026 */ 0x26 /*                                     AMPERSAND */ ,	/* 294 */
+	/* U+0027 */ 0x27 /*                                    APOSTROPHE */ ,	/* 295 */
+	/* U+0028 */ 0x28 /*                              LEFT PARENTHESIS */ ,	/* 296 */
+	/* U+0029 */ 0x29 /*                             RIGHT PARENTHESIS */ ,	/* 297 */
+	/* U+002A */ 0x2A /*                                      ASTERISK */ ,	/* 298 */
+	/* U+002B */ 0x2B /*                                     PLUS SIGN */ ,	/* 299 */
+	/* U+002C */ 0x2C /*                                         COMMA */ ,	/* 300 */
+	/* U+002D */ 0x2D /*                                  HYPHEN-MINUS */ ,	/* 301 */
+	/* U+002E */ 0x2E /*                                     FULL STOP */ ,	/* 302 */
+	/* U+002F */ 0x2F /*                                       SOLIDUS */ ,	/* 303 */
+	/* U+0030 */ 0x30 /*                                    DIGIT ZERO */ ,	/* 304 */
+	/* U+0031 */ 0x31 /*                                     DIGIT ONE */ ,	/* 305 */
+	/* U+0032 */ 0x32 /*                                     DIGIT TWO */ ,	/* 306 */
+	/* U+0033 */ 0x33 /*                                   DIGIT THREE */ ,	/* 307 */
+	/* U+0034 */ 0x34 /*                                    DIGIT FOUR */ ,	/* 308 */
+	/* U+0035 */ 0x35 /*                                    DIGIT FIVE */ ,	/* 309 */
+	/* U+0036 */ 0x36 /*                                     DIGIT SIX */ ,	/* 310 */
+	/* U+0037 */ 0x37 /*                                   DIGIT SEVEN */ ,	/* 311 */
+	/* U+0038 */ 0x38 /*                                   DIGIT EIGHT */ ,	/* 312 */
+	/* U+0039 */ 0x39 /*                                    DIGIT NINE */ ,	/* 313 */
+	/* U+003A */ 0x3A /*                                         COLON */ ,	/* 314 */
+	/* U+003B */ 0x3B /*                                     SEMICOLON */ ,	/* 315 */
+	/* U+003C */ 0x3C /*                                LESS-THAN SIGN */ ,	/* 316 */
+	/* U+003D */ 0x3D /*                                   EQUALS SIGN */ ,	/* 317 */
+	/* U+003E */ 0x3E /*                             GREATER-THAN SIGN */ ,	/* 318 */
+	/* U+003F */ 0x3F /*                                 QUESTION MARK */ ,	/* 319 */
+	/* U+0040 */ 0x40 /*                                 COMMERCIAL AT */ ,	/* 320 */
+	/* U+0041 */ 0x41 /*                        LATIN CAPITAL LETTER A */ ,	/* 321 */
+	/* U+0042 */ 0x42 /*                        LATIN CAPITAL LETTER B */ ,	/* 322 */
+	/* U+0043 */ 0x43 /*                        LATIN CAPITAL LETTER C */ ,	/* 323 */
+	/* U+0044 */ 0x44 /*                        LATIN CAPITAL LETTER D */ ,	/* 324 */
+	/* U+0045 */ 0x45 /*                        LATIN CAPITAL LETTER E */ ,	/* 325 */
+	/* U+0046 */ 0x46 /*                        LATIN CAPITAL LETTER F */ ,	/* 326 */
+	/* U+0047 */ 0x47 /*                        LATIN CAPITAL LETTER G */ ,	/* 327 */
+	/* U+0048 */ 0x48 /*                        LATIN CAPITAL LETTER H */ ,	/* 328 */
+	/* U+0049 */ 0x49 /*                        LATIN CAPITAL LETTER I */ ,	/* 329 */
+	/* U+004A */ 0x4A /*                        LATIN CAPITAL LETTER J */ ,	/* 330 */
+	/* U+004B */ 0x4B /*                        LATIN CAPITAL LETTER K */ ,	/* 331 */
+	/* U+004C */ 0x4C /*                        LATIN CAPITAL LETTER L */ ,	/* 332 */
+	/* U+004D */ 0x4D /*                        LATIN CAPITAL LETTER M */ ,	/* 333 */
+	/* U+004E */ 0x4E /*                        LATIN CAPITAL LETTER N */ ,	/* 334 */
+	/* U+004F */ 0x4F /*                        LATIN CAPITAL LETTER O */ ,	/* 335 */
+	/* U+0050 */ 0x50 /*                        LATIN CAPITAL LETTER P */ ,	/* 336 */
+	/* U+0051 */ 0x51 /*                        LATIN CAPITAL LETTER Q */ ,	/* 337 */
+	/* U+0052 */ 0x52 /*                        LATIN CAPITAL LETTER R */ ,	/* 338 */
+	/* U+0053 */ 0x53 /*                        LATIN CAPITAL LETTER S */ ,	/* 339 */
+	/* U+0054 */ 0x54 /*                        LATIN CAPITAL LETTER T */ ,	/* 340 */
+	/* U+0055 */ 0x55 /*                        LATIN CAPITAL LETTER U */ ,	/* 341 */
+	/* U+0056 */ 0x56 /*                        LATIN CAPITAL LETTER V */ ,	/* 342 */
+	/* U+0057 */ 0x57 /*                        LATIN CAPITAL LETTER W */ ,	/* 343 */
+	/* U+0058 */ 0x58 /*                        LATIN CAPITAL LETTER X */ ,	/* 344 */
+	/* U+0059 */ 0x59 /*                        LATIN CAPITAL LETTER Y */ ,	/* 345 */
+	/* U+005A */ 0x5A /*                        LATIN CAPITAL LETTER Z */ ,	/* 346 */
+	/* U+005B */ 0x5B /*                           LEFT SQUARE BRACKET */ ,	/* 347 */
+	/* U+005C */ 0x5C /*                               REVERSE SOLIDUS */ ,	/* 348 */
+	/* U+005D */ 0x5D /*                          RIGHT SQUARE BRACKET */ ,	/* 349 */
+	/* U+005E */ 0x5E /*                             CIRCUMFLEX ACCENT */ ,	/* 350 */
+	/* U+005F */ 0x5F /*                                      LOW LINE */ ,	/* 351 */
+	/* U+0060 */ 0x60 /*                                  GRAVE ACCENT */ ,	/* 352 */
+	/* U+0061 */ 0x61 /*                          LATIN SMALL LETTER A */ ,	/* 353 */
+	/* U+0062 */ 0x62 /*                          LATIN SMALL LETTER B */ ,	/* 354 */
+	/* U+0063 */ 0x63 /*                          LATIN SMALL LETTER C */ ,	/* 355 */
+	/* U+0064 */ 0x64 /*                          LATIN SMALL LETTER D */ ,	/* 356 */
+	/* U+0065 */ 0x65 /*                          LATIN SMALL LETTER E */ ,	/* 357 */
+	/* U+0066 */ 0x66 /*                          LATIN SMALL LETTER F */ ,	/* 358 */
+	/* U+0067 */ 0x67 /*                          LATIN SMALL LETTER G */ ,	/* 359 */
+	/* U+0068 */ 0x68 /*                          LATIN SMALL LETTER H */ ,	/* 360 */
+	/* U+0069 */ 0x69 /*                          LATIN SMALL LETTER I */ ,	/* 361 */
+	/* U+006A */ 0x6A /*                          LATIN SMALL LETTER J */ ,	/* 362 */
+	/* U+006B */ 0x6B /*                          LATIN SMALL LETTER K */ ,	/* 363 */
+	/* U+006C */ 0x6C /*                          LATIN SMALL LETTER L */ ,	/* 364 */
+	/* U+006D */ 0x6D /*                          LATIN SMALL LETTER M */ ,	/* 365 */
+	/* U+006E */ 0x6E /*                          LATIN SMALL LETTER N */ ,	/* 366 */
+	/* U+006F */ 0x6F /*                          LATIN SMALL LETTER O */ ,	/* 367 */
+	/* U+0070 */ 0x70 /*                          LATIN SMALL LETTER P */ ,	/* 368 */
+	/* U+0071 */ 0x71 /*                          LATIN SMALL LETTER Q */ ,	/* 369 */
+	/* U+0072 */ 0x72 /*                          LATIN SMALL LETTER R */ ,	/* 370 */
+	/* U+0073 */ 0x73 /*                          LATIN SMALL LETTER S */ ,	/* 371 */
+	/* U+0074 */ 0x74 /*                          LATIN SMALL LETTER T */ ,	/* 372 */
+	/* U+0075 */ 0x75 /*                          LATIN SMALL LETTER U */ ,	/* 373 */
+	/* U+0076 */ 0x76 /*                          LATIN SMALL LETTER V */ ,	/* 374 */
+	/* U+0077 */ 0x77 /*                          LATIN SMALL LETTER W */ ,	/* 375 */
+	/* U+0078 */ 0x78 /*                          LATIN SMALL LETTER X */ ,	/* 376 */
+	/* U+0079 */ 0x79 /*                          LATIN SMALL LETTER Y */ ,	/* 377 */
+	/* U+007A */ 0x7A /*                          LATIN SMALL LETTER Z */ ,	/* 378 */
+	/* U+007B */ 0x7B /*                            LEFT CURLY BRACKET */ ,	/* 379 */
+	/* U+007C */ 0x7C /*                                 VERTICAL LINE */ ,	/* 380 */
+	/* U+007D */ 0x7D /*                           RIGHT CURLY BRACKET */ ,	/* 381 */
+	/* U+007E */ 0x7E /*                                         TILDE */ ,	/* 382 */
+	/* U+007F */ 0x7F /*                                        DELETE */ ,	/* 383 */
+										/* U+0080 */ CANT_MAP_CHARACTER,
+										/* 384 */
+										/* U+0081 */ CANT_MAP_CHARACTER,
+										/* 385 */
+										/* U+0082 */ CANT_MAP_CHARACTER,
+										/* 386 */
+										/* U+0083 */ CANT_MAP_CHARACTER,
+										/* 387 */
+										/* U+0084 */ CANT_MAP_CHARACTER,
+										/* 388 */
+										/* U+0085 */ CANT_MAP_CHARACTER,
+										/* 389 */
+										/* U+0086 */ CANT_MAP_CHARACTER,
+										/* 390 */
+										/* U+0087 */ CANT_MAP_CHARACTER,
+										/* 391 */
+										/* U+0088 */ CANT_MAP_CHARACTER,
+										/* 392 */
+										/* U+0089 */ CANT_MAP_CHARACTER,
+										/* 393 */
+										/* U+008A */ CANT_MAP_CHARACTER,
+										/* 394 */
+										/* U+008B */ CANT_MAP_CHARACTER,
+										/* 395 */
+										/* U+008C */ CANT_MAP_CHARACTER,
+										/* 396 */
+										/* U+008D */ CANT_MAP_CHARACTER,
+										/* 397 */
+										/* U+008E */ CANT_MAP_CHARACTER,
+										/* 398 */
+										/* U+008F */ CANT_MAP_CHARACTER,
+										/* 399 */
+										/* U+0090 */ CANT_MAP_CHARACTER,
+										/* 400 */
+										/* U+0091 */ CANT_MAP_CHARACTER,
+										/* 401 */
+										/* U+0092 */ CANT_MAP_CHARACTER,
+										/* 402 */
+										/* U+0093 */ CANT_MAP_CHARACTER,
+										/* 403 */
+										/* U+0094 */ CANT_MAP_CHARACTER,
+										/* 404 */
+										/* U+0095 */ CANT_MAP_CHARACTER,
+										/* 405 */
+										/* U+0096 */ CANT_MAP_CHARACTER,
+										/* 406 */
+										/* U+0097 */ CANT_MAP_CHARACTER,
+										/* 407 */
+										/* U+0098 */ CANT_MAP_CHARACTER,
+										/* 408 */
+										/* U+0099 */ CANT_MAP_CHARACTER,
+										/* 409 */
+										/* U+009A */ CANT_MAP_CHARACTER,
+										/* 410 */
+										/* U+009B */ CANT_MAP_CHARACTER,
+										/* 411 */
+										/* U+009C */ CANT_MAP_CHARACTER,
+										/* 412 */
+										/* U+009D */ CANT_MAP_CHARACTER,
+										/* 413 */
+										/* U+009E */ CANT_MAP_CHARACTER,
+										/* 414 */
+										/* U+009F */ CANT_MAP_CHARACTER,
+										/* 415 */
+	/* U+00A0 */ 0xA0 /*                                NO-BREAK SPACE */ ,	/* 416 */
+	/* U+00A1 */ 0xA1 /*                     INVERTED EXCLAMATION MARK */ ,	/* 417 */
+	/* U+00A2 */ 0xA2 /*                                     CENT SIGN */ ,	/* 418 */
+	/* U+00A3 */ 0xA3 /*                                    POUND SIGN */ ,	/* 419 */
+	/* U+00A4 */ 0xA4 /*                                 CURRENCY SIGN */ ,	/* 420 */
+	/* U+00A5 */ 0xA5 /*                                      YEN SIGN */ ,	/* 421 */
+	/* U+00A6 */ 0xA6 /*                                    BROKEN BAR */ ,	/* 422 */
+	/* U+00A7 */ 0xA7 /*                                  SECTION SIGN */ ,	/* 423 */
+	/* U+00A8 */ 0xA8 /*                                     DIAERESIS */ ,	/* 424 */
+	/* U+00A9 */ 0xA9 /*                                COPYRIGHT SIGN */ ,	/* 425 */
+	/* U+00AA */ 0xAA /*                    FEMININE ORDINAL INDICATOR */ ,	/* 426 */
+	/* U+00AB */ 0xAB /*     LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 427 */
+	/* U+00AC */ 0xAC /*                                      NOT SIGN */ ,	/* 428 */
+	/* U+00AD */ 0xAD /*                                   SOFT HYPHEN */ ,	/* 429 */
+	/* U+00AE */ 0xAE /*                               REGISTERED SIGN */ ,	/* 430 */
+	/* U+00AF */ 0xAF /*                                        MACRON */ ,	/* 431 */
+	/* U+00B0 */ 0xB0 /*                                   DEGREE SIGN */ ,	/* 432 */
+	/* U+00B1 */ 0xB1 /*                               PLUS-MINUS SIGN */ ,	/* 433 */
+	/* U+00B2 */ 0xB2 /*                               SUPERSCRIPT TWO */ ,	/* 434 */
+	/* U+00B3 */ 0xB3 /*                             SUPERSCRIPT THREE */ ,	/* 435 */
+	/* U+00B4 */ 0xB4 /*                                  ACUTE ACCENT */ ,	/* 436 */
+	/* U+00B5 */ 0xB5 /*                                    MICRO SIGN */ ,	/* 437 */
+	/* U+00B6 */ 0xB6 /*                                  PILCROW SIGN */ ,	/* 438 */
+	/* U+00B7 */ 0xB7 /*                                    MIDDLE DOT */ ,	/* 439 */
+	/* U+00B8 */ 0xB8 /*                                       CEDILLA */ ,	/* 440 */
+	/* U+00B9 */ 0xB9 /*                               SUPERSCRIPT ONE */ ,	/* 441 */
+	/* U+00BA */ 0xBA /*                   MASCULINE ORDINAL INDICATOR */ ,	/* 442 */
+	/* U+00BB */ 0xBB /*    RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ ,	/* 443 */
+	/* U+00BC */ 0xBC /*                   VULGAR FRACTION ONE QUARTER */ ,	/* 444 */
+	/* U+00BD */ 0xBD /*                      VULGAR FRACTION ONE HALF */ ,	/* 445 */
+	/* U+00BE */ 0xBE /*                VULGAR FRACTION THREE QUARTERS */ ,	/* 446 */
+	/* U+00BF */ 0xBF /*                        INVERTED QUESTION MARK */ ,	/* 447 */
+	/* U+00C0 */ 0xC0 /*             LATIN CAPITAL LETTER A WITH GRAVE */ ,	/* 448 */
+	/* U+00C1 */ 0xC1 /*             LATIN CAPITAL LETTER A WITH ACUTE */ ,	/* 449 */
+	/* U+00C2 */ 0xC2 /*        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ ,	/* 450 */
+	/* U+00C3 */ 0xC3 /*             LATIN CAPITAL LETTER A WITH TILDE */ ,	/* 451 */
+	/* U+00C4 */ 0xC4 /*         LATIN CAPITAL LETTER A WITH DIAERESIS */ ,	/* 452 */
+	/* U+00C5 */ 0xC5 /*        LATIN CAPITAL LETTER A WITH RING ABOVE */ ,	/* 453 */
+	/* U+00C6 */ 0xC6 /*                       LATIN CAPITAL LETTER AE */ ,	/* 454 */
+	/* U+00C7 */ 0xC7 /*           LATIN CAPITAL LETTER C WITH CEDILLA */ ,	/* 455 */
+	/* U+00C8 */ 0xC8 /*             LATIN CAPITAL LETTER E WITH GRAVE */ ,	/* 456 */
+	/* U+00C9 */ 0xC9 /*             LATIN CAPITAL LETTER E WITH ACUTE */ ,	/* 457 */
+	/* U+00CA */ 0xCA /*        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ ,	/* 458 */
+	/* U+00CB */ 0xCB /*         LATIN CAPITAL LETTER E WITH DIAERESIS */ ,	/* 459 */
+	/* U+00CC */ 0xCC /*             LATIN CAPITAL LETTER I WITH GRAVE */ ,	/* 460 */
+	/* U+00CD */ 0xCD /*             LATIN CAPITAL LETTER I WITH ACUTE */ ,	/* 461 */
+	/* U+00CE */ 0xCE /*        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ ,	/* 462 */
+	/* U+00CF */ 0xCF /*         LATIN CAPITAL LETTER I WITH DIAERESIS */ ,	/* 463 */
+										/* U+00D0 */ CANT_MAP_CHARACTER,
+										/* 464 */
+	/* U+00D1 */ 0xD1 /*             LATIN CAPITAL LETTER N WITH TILDE */ ,	/* 465 */
+	/* U+00D2 */ 0xD2 /*             LATIN CAPITAL LETTER O WITH GRAVE */ ,	/* 466 */
+	/* U+00D3 */ 0xD3 /*             LATIN CAPITAL LETTER O WITH ACUTE */ ,	/* 467 */
+	/* U+00D4 */ 0xD4 /*        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ ,	/* 468 */
+	/* U+00D5 */ 0xD5 /*             LATIN CAPITAL LETTER O WITH TILDE */ ,	/* 469 */
+	/* U+00D6 */ 0xD6 /*         LATIN CAPITAL LETTER O WITH DIAERESIS */ ,	/* 470 */
+	/* U+00D7 */ 0xD7 /*                           MULTIPLICATION SIGN */ ,	/* 471 */
+	/* U+00D8 */ 0xD8 /*            LATIN CAPITAL LETTER O WITH STROKE */ ,	/* 472 */
+	/* U+00D9 */ 0xD9 /*             LATIN CAPITAL LETTER U WITH GRAVE */ ,	/* 473 */
+	/* U+00DA */ 0xDA /*             LATIN CAPITAL LETTER U WITH ACUTE */ ,	/* 474 */
+	/* U+00DB */ 0xDB /*        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ ,	/* 475 */
+	/* U+00DC */ 0xDC /*         LATIN CAPITAL LETTER U WITH DIAERESIS */ ,	/* 476 */
+										/* U+00DD */ CANT_MAP_CHARACTER,
+										/* 477 */
+										/* U+00DE */ CANT_MAP_CHARACTER,
+										/* 478 */
+	/* U+00DF */ 0xDF /*                    LATIN SMALL LETTER SHARP S */ ,	/* 479 */
+	/* U+00E0 */ 0xE0 /*               LATIN SMALL LETTER A WITH GRAVE */ ,	/* 480 */
+	/* U+00E1 */ 0xE1 /*               LATIN SMALL LETTER A WITH ACUTE */ ,	/* 481 */
+	/* U+00E2 */ 0xE2 /*          LATIN SMALL LETTER A WITH CIRCUMFLEX */ ,	/* 482 */
+	/* U+00E3 */ 0xE3 /*               LATIN SMALL LETTER A WITH TILDE */ ,	/* 483 */
+	/* U+00E4 */ 0xE4 /*           LATIN SMALL LETTER A WITH DIAERESIS */ ,	/* 484 */
+	/* U+00E5 */ 0xE5 /*          LATIN SMALL LETTER A WITH RING ABOVE */ ,	/* 485 */
+	/* U+00E6 */ 0xE6 /*                         LATIN SMALL LETTER AE */ ,	/* 486 */
+	/* U+00E7 */ 0xE7 /*             LATIN SMALL LETTER C WITH CEDILLA */ ,	/* 487 */
+	/* U+00E8 */ 0xE8 /*               LATIN SMALL LETTER E WITH GRAVE */ ,	/* 488 */
+	/* U+00E9 */ 0xE9 /*               LATIN SMALL LETTER E WITH ACUTE */ ,	/* 489 */
+	/* U+00EA */ 0xEA /*          LATIN SMALL LETTER E WITH CIRCUMFLEX */ ,	/* 490 */
+	/* U+00EB */ 0xEB /*           LATIN SMALL LETTER E WITH DIAERESIS */ ,	/* 491 */
+	/* U+00EC */ 0xEC /*               LATIN SMALL LETTER I WITH GRAVE */ ,	/* 492 */
+	/* U+00ED */ 0xED /*               LATIN SMALL LETTER I WITH ACUTE */ ,	/* 493 */
+	/* U+00EE */ 0xEE /*          LATIN SMALL LETTER I WITH CIRCUMFLEX */ ,	/* 494 */
+	/* U+00EF */ 0xEF /*           LATIN SMALL LETTER I WITH DIAERESIS */ ,	/* 495 */
+										/* U+00F0 */ CANT_MAP_CHARACTER,
+										/* 496 */
+	/* U+00F1 */ 0xF1 /*               LATIN SMALL LETTER N WITH TILDE */ ,	/* 497 */
+	/* U+00F2 */ 0xF2 /*               LATIN SMALL LETTER O WITH GRAVE */ ,	/* 498 */
+	/* U+00F3 */ 0xF3 /*               LATIN SMALL LETTER O WITH ACUTE */ ,	/* 499 */
+	/* U+00F4 */ 0xF4 /*          LATIN SMALL LETTER O WITH CIRCUMFLEX */ ,	/* 500 */
+	/* U+00F5 */ 0xF5 /*               LATIN SMALL LETTER O WITH TILDE */ ,	/* 501 */
+	/* U+00F6 */ 0xF6 /*           LATIN SMALL LETTER O WITH DIAERESIS */ ,	/* 502 */
+	/* U+00F7 */ 0xF7 /*                                 DIVISION SIGN */ ,	/* 503 */
+	/* U+00F8 */ 0xF8 /*              LATIN SMALL LETTER O WITH STROKE */ ,	/* 504 */
+	/* U+00F9 */ 0xF9 /*               LATIN SMALL LETTER U WITH GRAVE */ ,	/* 505 */
+	/* U+00FA */ 0xFA /*               LATIN SMALL LETTER U WITH ACUTE */ ,	/* 506 */
+	/* U+00FB */ 0xFB /*          LATIN SMALL LETTER U WITH CIRCUMFLEX */ ,	/* 507 */
+	/* U+00FC */ 0xFC /*           LATIN SMALL LETTER U WITH DIAERESIS */ ,	/* 508 */
+										/* U+00FD */ CANT_MAP_CHARACTER,
+										/* 509 */
+										/* U+00FE */ CANT_MAP_CHARACTER,
+										/* 510 */
+	/* U+00FF */ 0xFF /*           LATIN SMALL LETTER Y WITH DIAERESIS */ ,	/* 511 */
+										/* U+0100 */ CANT_MAP_CHARACTER,
+										/* 512 */
+										/* U+0101 */ CANT_MAP_CHARACTER,
+										/* 513 */
+										/* U+0102 */ CANT_MAP_CHARACTER,
+										/* 514 */
+										/* U+0103 */ CANT_MAP_CHARACTER,
+										/* 515 */
+										/* U+0104 */ CANT_MAP_CHARACTER,
+										/* 516 */
+										/* U+0105 */ CANT_MAP_CHARACTER,
+										/* 517 */
+										/* U+0106 */ CANT_MAP_CHARACTER,
+										/* 518 */
+										/* U+0107 */ CANT_MAP_CHARACTER,
+										/* 519 */
+										/* U+0108 */ CANT_MAP_CHARACTER,
+										/* 520 */
+										/* U+0109 */ CANT_MAP_CHARACTER,
+										/* 521 */
+										/* U+010A */ CANT_MAP_CHARACTER,
+										/* 522 */
+										/* U+010B */ CANT_MAP_CHARACTER,
+										/* 523 */
+										/* U+010C */ CANT_MAP_CHARACTER,
+										/* 524 */
+										/* U+010D */ CANT_MAP_CHARACTER,
+										/* 525 */
+										/* U+010E */ CANT_MAP_CHARACTER,
+										/* 526 */
+										/* U+010F */ CANT_MAP_CHARACTER,
+										/* 527 */
+										/* U+0110 */ CANT_MAP_CHARACTER,
+										/* 528 */
+										/* U+0111 */ CANT_MAP_CHARACTER,
+										/* 529 */
+										/* U+0112 */ CANT_MAP_CHARACTER,
+										/* 530 */
+										/* U+0113 */ CANT_MAP_CHARACTER,
+										/* 531 */
+										/* U+0114 */ CANT_MAP_CHARACTER,
+										/* 532 */
+										/* U+0115 */ CANT_MAP_CHARACTER,
+										/* 533 */
+										/* U+0116 */ CANT_MAP_CHARACTER,
+										/* 534 */
+										/* U+0117 */ CANT_MAP_CHARACTER,
+										/* 535 */
+										/* U+0118 */ CANT_MAP_CHARACTER,
+										/* 536 */
+										/* U+0119 */ CANT_MAP_CHARACTER,
+										/* 537 */
+										/* U+011A */ CANT_MAP_CHARACTER,
+										/* 538 */
+										/* U+011B */ CANT_MAP_CHARACTER,
+										/* 539 */
+										/* U+011C */ CANT_MAP_CHARACTER,
+										/* 540 */
+										/* U+011D */ CANT_MAP_CHARACTER,
+										/* 541 */
+	/* U+011E */ 0xD0 /*             LATIN CAPITAL LETTER G WITH BREVE */ ,	/* 542 */
+	/* U+011F */ 0xF0 /*               LATIN SMALL LETTER G WITH BREVE */ ,	/* 543 */
+										/* U+0120 */ CANT_MAP_CHARACTER,
+										/* 544 */
+										/* U+0121 */ CANT_MAP_CHARACTER,
+										/* 545 */
+										/* U+0122 */ CANT_MAP_CHARACTER,
+										/* 546 */
+										/* U+0123 */ CANT_MAP_CHARACTER,
+										/* 547 */
+										/* U+0124 */ CANT_MAP_CHARACTER,
+										/* 548 */
+										/* U+0125 */ CANT_MAP_CHARACTER,
+										/* 549 */
+										/* U+0126 */ CANT_MAP_CHARACTER,
+										/* 550 */
+										/* U+0127 */ CANT_MAP_CHARACTER,
+										/* 551 */
+										/* U+0128 */ CANT_MAP_CHARACTER,
+										/* 552 */
+										/* U+0129 */ CANT_MAP_CHARACTER,
+										/* 553 */
+										/* U+012A */ CANT_MAP_CHARACTER,
+										/* 554 */
+										/* U+012B */ CANT_MAP_CHARACTER,
+										/* 555 */
+										/* U+012C */ CANT_MAP_CHARACTER,
+										/* 556 */
+										/* U+012D */ CANT_MAP_CHARACTER,
+										/* 557 */
+										/* U+012E */ CANT_MAP_CHARACTER,
+										/* 558 */
+										/* U+012F */ CANT_MAP_CHARACTER,
+										/* 559 */
+	/* U+0130 */ 0xDD /*         LATIN CAPITAL LETTER I WITH DOT ABOVE */ ,	/* 560 */
+	/* U+0131 */ 0xFD /*                  LATIN SMALL LETTER DOTLESS I */ ,	/* 561 */
+										/* U+0132 */ CANT_MAP_CHARACTER,
+										/* 562 */
+										/* U+0133 */ CANT_MAP_CHARACTER,
+										/* 563 */
+										/* U+0134 */ CANT_MAP_CHARACTER,
+										/* 564 */
+										/* U+0135 */ CANT_MAP_CHARACTER,
+										/* 565 */
+										/* U+0136 */ CANT_MAP_CHARACTER,
+										/* 566 */
+										/* U+0137 */ CANT_MAP_CHARACTER,
+										/* 567 */
+										/* U+0138 */ CANT_MAP_CHARACTER,
+										/* 568 */
+										/* U+0139 */ CANT_MAP_CHARACTER,
+										/* 569 */
+										/* U+013A */ CANT_MAP_CHARACTER,
+										/* 570 */
+										/* U+013B */ CANT_MAP_CHARACTER,
+										/* 571 */
+										/* U+013C */ CANT_MAP_CHARACTER,
+										/* 572 */
+										/* U+013D */ CANT_MAP_CHARACTER,
+										/* 573 */
+										/* U+013E */ CANT_MAP_CHARACTER,
+										/* 574 */
+										/* U+013F */ CANT_MAP_CHARACTER,
+										/* 575 */
+										/* U+0140 */ CANT_MAP_CHARACTER,
+										/* 576 */
+										/* U+0141 */ CANT_MAP_CHARACTER,
+										/* 577 */
+										/* U+0142 */ CANT_MAP_CHARACTER,
+										/* 578 */
+										/* U+0143 */ CANT_MAP_CHARACTER,
+										/* 579 */
+										/* U+0144 */ CANT_MAP_CHARACTER,
+										/* 580 */
+										/* U+0145 */ CANT_MAP_CHARACTER,
+										/* 581 */
+										/* U+0146 */ CANT_MAP_CHARACTER,
+										/* 582 */
+										/* U+0147 */ CANT_MAP_CHARACTER,
+										/* 583 */
+										/* U+0148 */ CANT_MAP_CHARACTER,
+										/* 584 */
+										/* U+0149 */ CANT_MAP_CHARACTER,
+										/* 585 */
+										/* U+014A */ CANT_MAP_CHARACTER,
+										/* 586 */
+										/* U+014B */ CANT_MAP_CHARACTER,
+										/* 587 */
+										/* U+014C */ CANT_MAP_CHARACTER,
+										/* 588 */
+										/* U+014D */ CANT_MAP_CHARACTER,
+										/* 589 */
+										/* U+014E */ CANT_MAP_CHARACTER,
+										/* 590 */
+										/* U+014F */ CANT_MAP_CHARACTER,
+										/* 591 */
+										/* U+0150 */ CANT_MAP_CHARACTER,
+										/* 592 */
+										/* U+0151 */ CANT_MAP_CHARACTER,
+										/* 593 */
+	/* U+0152 */ 0x8C /*                     LATIN CAPITAL LIGATURE OE */ ,	/* 594 */
+	/* U+0153 */ 0x9C /*                       LATIN SMALL LIGATURE OE */ ,	/* 595 */
+										/* U+0154 */ CANT_MAP_CHARACTER,
+										/* 596 */
+										/* U+0155 */ CANT_MAP_CHARACTER,
+										/* 597 */
+										/* U+0156 */ CANT_MAP_CHARACTER,
+										/* 598 */
+										/* U+0157 */ CANT_MAP_CHARACTER,
+										/* 599 */
+										/* U+0158 */ CANT_MAP_CHARACTER,
+										/* 600 */
+										/* U+0159 */ CANT_MAP_CHARACTER,
+										/* 601 */
+										/* U+015A */ CANT_MAP_CHARACTER,
+										/* 602 */
+										/* U+015B */ CANT_MAP_CHARACTER,
+										/* 603 */
+										/* U+015C */ CANT_MAP_CHARACTER,
+										/* 604 */
+										/* U+015D */ CANT_MAP_CHARACTER,
+										/* 605 */
+	/* U+015E */ 0xDE /*           LATIN CAPITAL LETTER S WITH CEDILLA */ ,	/* 606 */
+	/* U+015F */ 0xFE /*             LATIN SMALL LETTER S WITH CEDILLA */ ,	/* 607 */
+	/* U+0160 */ 0x8A /*             LATIN CAPITAL LETTER S WITH CARON */ ,	/* 608 */
+	/* U+0161 */ 0x9A /*               LATIN SMALL LETTER S WITH CARON */ ,	/* 609 */
+										/* U+0162 */ CANT_MAP_CHARACTER,
+										/* 610 */
+										/* U+0163 */ CANT_MAP_CHARACTER,
+										/* 611 */
+										/* U+0164 */ CANT_MAP_CHARACTER,
+										/* 612 */
+										/* U+0165 */ CANT_MAP_CHARACTER,
+										/* 613 */
+										/* U+0166 */ CANT_MAP_CHARACTER,
+										/* 614 */
+										/* U+0167 */ CANT_MAP_CHARACTER,
+										/* 615 */
+										/* U+0168 */ CANT_MAP_CHARACTER,
+										/* 616 */
+										/* U+0169 */ CANT_MAP_CHARACTER,
+										/* 617 */
+										/* U+016A */ CANT_MAP_CHARACTER,
+										/* 618 */
+										/* U+016B */ CANT_MAP_CHARACTER,
+										/* 619 */
+										/* U+016C */ CANT_MAP_CHARACTER,
+										/* 620 */
+										/* U+016D */ CANT_MAP_CHARACTER,
+										/* 621 */
+										/* U+016E */ CANT_MAP_CHARACTER,
+										/* 622 */
+										/* U+016F */ CANT_MAP_CHARACTER,
+										/* 623 */
+										/* U+0170 */ CANT_MAP_CHARACTER,
+										/* 624 */
+										/* U+0171 */ CANT_MAP_CHARACTER,
+										/* 625 */
+										/* U+0172 */ CANT_MAP_CHARACTER,
+										/* 626 */
+										/* U+0173 */ CANT_MAP_CHARACTER,
+										/* 627 */
+										/* U+0174 */ CANT_MAP_CHARACTER,
+										/* 628 */
+										/* U+0175 */ CANT_MAP_CHARACTER,
+										/* 629 */
+										/* U+0176 */ CANT_MAP_CHARACTER,
+										/* 630 */
+										/* U+0177 */ CANT_MAP_CHARACTER,
+										/* 631 */
+	/* U+0178 */ 0x9F /*         LATIN CAPITAL LETTER Y WITH DIAERESIS */ ,	/* 632 */
+										/* U+0179 */ CANT_MAP_CHARACTER,
+										/* 633 */
+										/* U+017A */ CANT_MAP_CHARACTER,
+										/* 634 */
+										/* U+017B */ CANT_MAP_CHARACTER,
+										/* 635 */
+										/* U+017C */ CANT_MAP_CHARACTER,
+										/* 636 */
+										/* U+017D */ CANT_MAP_CHARACTER,
+										/* 637 */
+										/* U+017E */ CANT_MAP_CHARACTER,
+										/* 638 */
+										/* U+017F */ CANT_MAP_CHARACTER,
+										/* 639 */
+										/* U+0180 */ CANT_MAP_CHARACTER,
+										/* 640 */
+										/* U+0181 */ CANT_MAP_CHARACTER,
+										/* 641 */
+										/* U+0182 */ CANT_MAP_CHARACTER,
+										/* 642 */
+										/* U+0183 */ CANT_MAP_CHARACTER,
+										/* 643 */
+										/* U+0184 */ CANT_MAP_CHARACTER,
+										/* 644 */
+										/* U+0185 */ CANT_MAP_CHARACTER,
+										/* 645 */
+										/* U+0186 */ CANT_MAP_CHARACTER,
+										/* 646 */
+										/* U+0187 */ CANT_MAP_CHARACTER,
+										/* 647 */
+										/* U+0188 */ CANT_MAP_CHARACTER,
+										/* 648 */
+										/* U+0189 */ CANT_MAP_CHARACTER,
+										/* 649 */
+										/* U+018A */ CANT_MAP_CHARACTER,
+										/* 650 */
+										/* U+018B */ CANT_MAP_CHARACTER,
+										/* 651 */
+										/* U+018C */ CANT_MAP_CHARACTER,
+										/* 652 */
+										/* U+018D */ CANT_MAP_CHARACTER,
+										/* 653 */
+										/* U+018E */ CANT_MAP_CHARACTER,
+										/* 654 */
+										/* U+018F */ CANT_MAP_CHARACTER,
+										/* 655 */
+										/* U+0190 */ CANT_MAP_CHARACTER,
+										/* 656 */
+										/* U+0191 */ CANT_MAP_CHARACTER,
+										/* 657 */
+	/* U+0192 */ 0x83 /*                LATIN SMALL LETTER F WITH HOOK */ ,	/* 658 */
+										/* U+0193 */ CANT_MAP_CHARACTER,
+										/* 659 */
+										/* U+0194 */ CANT_MAP_CHARACTER,
+										/* 660 */
+										/* U+0195 */ CANT_MAP_CHARACTER,
+										/* 661 */
+										/* U+0196 */ CANT_MAP_CHARACTER,
+										/* 662 */
+										/* U+0197 */ CANT_MAP_CHARACTER,
+										/* 663 */
+										/* U+0198 */ CANT_MAP_CHARACTER,
+										/* 664 */
+										/* U+0199 */ CANT_MAP_CHARACTER,
+										/* 665 */
+										/* U+019A */ CANT_MAP_CHARACTER,
+										/* 666 */
+										/* U+019B */ CANT_MAP_CHARACTER,
+										/* 667 */
+										/* U+019C */ CANT_MAP_CHARACTER,
+										/* 668 */
+										/* U+019D */ CANT_MAP_CHARACTER,
+										/* 669 */
+										/* U+019E */ CANT_MAP_CHARACTER,
+										/* 670 */
+										/* U+019F */ CANT_MAP_CHARACTER,
+										/* 671 */
+										/* U+01A0 */ CANT_MAP_CHARACTER,
+										/* 672 */
+										/* U+01A1 */ CANT_MAP_CHARACTER,
+										/* 673 */
+										/* U+01A2 */ CANT_MAP_CHARACTER,
+										/* 674 */
+										/* U+01A3 */ CANT_MAP_CHARACTER,
+										/* 675 */
+										/* U+01A4 */ CANT_MAP_CHARACTER,
+										/* 676 */
+										/* U+01A5 */ CANT_MAP_CHARACTER,
+										/* 677 */
+										/* U+01A6 */ CANT_MAP_CHARACTER,
+										/* 678 */
+										/* U+01A7 */ CANT_MAP_CHARACTER,
+										/* 679 */
+										/* U+01A8 */ CANT_MAP_CHARACTER,
+										/* 680 */
+										/* U+01A9 */ CANT_MAP_CHARACTER,
+										/* 681 */
+										/* U+01AA */ CANT_MAP_CHARACTER,
+										/* 682 */
+										/* U+01AB */ CANT_MAP_CHARACTER,
+										/* 683 */
+										/* U+01AC */ CANT_MAP_CHARACTER,
+										/* 684 */
+										/* U+01AD */ CANT_MAP_CHARACTER,
+										/* 685 */
+										/* U+01AE */ CANT_MAP_CHARACTER,
+										/* 686 */
+										/* U+01AF */ CANT_MAP_CHARACTER,
+										/* 687 */
+										/* U+01B0 */ CANT_MAP_CHARACTER,
+										/* 688 */
+										/* U+01B1 */ CANT_MAP_CHARACTER,
+										/* 689 */
+										/* U+01B2 */ CANT_MAP_CHARACTER,
+										/* 690 */
+										/* U+01B3 */ CANT_MAP_CHARACTER,
+										/* 691 */
+										/* U+01B4 */ CANT_MAP_CHARACTER,
+										/* 692 */
+										/* U+01B5 */ CANT_MAP_CHARACTER,
+										/* 693 */
+										/* U+01B6 */ CANT_MAP_CHARACTER,
+										/* 694 */
+										/* U+01B7 */ CANT_MAP_CHARACTER,
+										/* 695 */
+										/* U+01B8 */ CANT_MAP_CHARACTER,
+										/* 696 */
+										/* U+01B9 */ CANT_MAP_CHARACTER,
+										/* 697 */
+										/* U+01BA */ CANT_MAP_CHARACTER,
+										/* 698 */
+										/* U+01BB */ CANT_MAP_CHARACTER,
+										/* 699 */
+										/* U+01BC */ CANT_MAP_CHARACTER,
+										/* 700 */
+										/* U+01BD */ CANT_MAP_CHARACTER,
+										/* 701 */
+										/* U+01BE */ CANT_MAP_CHARACTER,
+										/* 702 */
+										/* U+01BF */ CANT_MAP_CHARACTER,
+										/* 703 */
+										/* U+01C0 */ CANT_MAP_CHARACTER,
+										/* 704 */
+										/* U+01C1 */ CANT_MAP_CHARACTER,
+										/* 705 */
+										/* U+01C2 */ CANT_MAP_CHARACTER,
+										/* 706 */
+										/* U+01C3 */ CANT_MAP_CHARACTER,
+										/* 707 */
+										/* U+01C4 */ CANT_MAP_CHARACTER,
+										/* 708 */
+										/* U+01C5 */ CANT_MAP_CHARACTER,
+										/* 709 */
+										/* U+01C6 */ CANT_MAP_CHARACTER,
+										/* 710 */
+										/* U+01C7 */ CANT_MAP_CHARACTER,
+										/* 711 */
+										/* U+01C8 */ CANT_MAP_CHARACTER,
+										/* 712 */
+										/* U+01C9 */ CANT_MAP_CHARACTER,
+										/* 713 */
+										/* U+01CA */ CANT_MAP_CHARACTER,
+										/* 714 */
+										/* U+01CB */ CANT_MAP_CHARACTER,
+										/* 715 */
+										/* U+01CC */ CANT_MAP_CHARACTER,
+										/* 716 */
+										/* U+01CD */ CANT_MAP_CHARACTER,
+										/* 717 */
+										/* U+01CE */ CANT_MAP_CHARACTER,
+										/* 718 */
+										/* U+01CF */ CANT_MAP_CHARACTER,
+										/* 719 */
+										/* U+01D0 */ CANT_MAP_CHARACTER,
+										/* 720 */
+										/* U+01D1 */ CANT_MAP_CHARACTER,
+										/* 721 */
+										/* U+01D2 */ CANT_MAP_CHARACTER,
+										/* 722 */
+										/* U+01D3 */ CANT_MAP_CHARACTER,
+										/* 723 */
+										/* U+01D4 */ CANT_MAP_CHARACTER,
+										/* 724 */
+										/* U+01D5 */ CANT_MAP_CHARACTER,
+										/* 725 */
+										/* U+01D6 */ CANT_MAP_CHARACTER,
+										/* 726 */
+										/* U+01D7 */ CANT_MAP_CHARACTER,
+										/* 727 */
+										/* U+01D8 */ CANT_MAP_CHARACTER,
+										/* 728 */
+										/* U+01D9 */ CANT_MAP_CHARACTER,
+										/* 729 */
+										/* U+01DA */ CANT_MAP_CHARACTER,
+										/* 730 */
+										/* U+01DB */ CANT_MAP_CHARACTER,
+										/* 731 */
+										/* U+01DC */ CANT_MAP_CHARACTER,
+										/* 732 */
+										/* U+01DD */ CANT_MAP_CHARACTER,
+										/* 733 */
+										/* U+01DE */ CANT_MAP_CHARACTER,
+										/* 734 */
+										/* U+01DF */ CANT_MAP_CHARACTER,
+										/* 735 */
+										/* U+01E0 */ CANT_MAP_CHARACTER,
+										/* 736 */
+										/* U+01E1 */ CANT_MAP_CHARACTER,
+										/* 737 */
+										/* U+01E2 */ CANT_MAP_CHARACTER,
+										/* 738 */
+										/* U+01E3 */ CANT_MAP_CHARACTER,
+										/* 739 */
+										/* U+01E4 */ CANT_MAP_CHARACTER,
+										/* 740 */
+										/* U+01E5 */ CANT_MAP_CHARACTER,
+										/* 741 */
+										/* U+01E6 */ CANT_MAP_CHARACTER,
+										/* 742 */
+										/* U+01E7 */ CANT_MAP_CHARACTER,
+										/* 743 */
+										/* U+01E8 */ CANT_MAP_CHARACTER,
+										/* 744 */
+										/* U+01E9 */ CANT_MAP_CHARACTER,
+										/* 745 */
+										/* U+01EA */ CANT_MAP_CHARACTER,
+										/* 746 */
+										/* U+01EB */ CANT_MAP_CHARACTER,
+										/* 747 */
+										/* U+01EC */ CANT_MAP_CHARACTER,
+										/* 748 */
+										/* U+01ED */ CANT_MAP_CHARACTER,
+										/* 749 */
+										/* U+01EE */ CANT_MAP_CHARACTER,
+										/* 750 */
+										/* U+01EF */ CANT_MAP_CHARACTER,
+										/* 751 */
+										/* U+01F0 */ CANT_MAP_CHARACTER,
+										/* 752 */
+										/* U+01F1 */ CANT_MAP_CHARACTER,
+										/* 753 */
+										/* U+01F2 */ CANT_MAP_CHARACTER,
+										/* 754 */
+										/* U+01F3 */ CANT_MAP_CHARACTER,
+										/* 755 */
+										/* U+01F4 */ CANT_MAP_CHARACTER,
+										/* 756 */
+										/* U+01F5 */ CANT_MAP_CHARACTER,
+										/* 757 */
+										/* U+01F6 */ CANT_MAP_CHARACTER,
+										/* 758 */
+										/* U+01F7 */ CANT_MAP_CHARACTER,
+										/* 759 */
+										/* U+01F8 */ CANT_MAP_CHARACTER,
+										/* 760 */
+										/* U+01F9 */ CANT_MAP_CHARACTER,
+										/* 761 */
+										/* U+01FA */ CANT_MAP_CHARACTER,
+										/* 762 */
+										/* U+01FB */ CANT_MAP_CHARACTER,
+										/* 763 */
+										/* U+01FC */ CANT_MAP_CHARACTER,
+										/* 764 */
+										/* U+01FD */ CANT_MAP_CHARACTER,
+										/* 765 */
+										/* U+01FE */ CANT_MAP_CHARACTER,
+										/* 766 */
+										/* U+01FF */ CANT_MAP_CHARACTER,
+										/* 767 */
+										/* U+0200 */ CANT_MAP_CHARACTER,
+										/* 768 */
+										/* U+0201 */ CANT_MAP_CHARACTER,
+										/* 769 */
+										/* U+0202 */ CANT_MAP_CHARACTER,
+										/* 770 */
+										/* U+0203 */ CANT_MAP_CHARACTER,
+										/* 771 */
+										/* U+0204 */ CANT_MAP_CHARACTER,
+										/* 772 */
+										/* U+0205 */ CANT_MAP_CHARACTER,
+										/* 773 */
+										/* U+0206 */ CANT_MAP_CHARACTER,
+										/* 774 */
+										/* U+0207 */ CANT_MAP_CHARACTER,
+										/* 775 */
+										/* U+0208 */ CANT_MAP_CHARACTER,
+										/* 776 */
+										/* U+0209 */ CANT_MAP_CHARACTER,
+										/* 777 */
+										/* U+020A */ CANT_MAP_CHARACTER,
+										/* 778 */
+										/* U+020B */ CANT_MAP_CHARACTER,
+										/* 779 */
+										/* U+020C */ CANT_MAP_CHARACTER,
+										/* 780 */
+										/* U+020D */ CANT_MAP_CHARACTER,
+										/* 781 */
+										/* U+020E */ CANT_MAP_CHARACTER,
+										/* 782 */
+										/* U+020F */ CANT_MAP_CHARACTER,
+										/* 783 */
+										/* U+0210 */ CANT_MAP_CHARACTER,
+										/* 784 */
+										/* U+0211 */ CANT_MAP_CHARACTER,
+										/* 785 */
+										/* U+0212 */ CANT_MAP_CHARACTER,
+										/* 786 */
+										/* U+0213 */ CANT_MAP_CHARACTER,
+										/* 787 */
+										/* U+0214 */ CANT_MAP_CHARACTER,
+										/* 788 */
+										/* U+0215 */ CANT_MAP_CHARACTER,
+										/* 789 */
+										/* U+0216 */ CANT_MAP_CHARACTER,
+										/* 790 */
+										/* U+0217 */ CANT_MAP_CHARACTER,
+										/* 791 */
+										/* U+0218 */ CANT_MAP_CHARACTER,
+										/* 792 */
+										/* U+0219 */ CANT_MAP_CHARACTER,
+										/* 793 */
+										/* U+021A */ CANT_MAP_CHARACTER,
+										/* 794 */
+										/* U+021B */ CANT_MAP_CHARACTER,
+										/* 795 */
+										/* U+021C */ CANT_MAP_CHARACTER,
+										/* 796 */
+										/* U+021D */ CANT_MAP_CHARACTER,
+										/* 797 */
+										/* U+021E */ CANT_MAP_CHARACTER,
+										/* 798 */
+										/* U+021F */ CANT_MAP_CHARACTER,
+										/* 799 */
+										/* U+0220 */ CANT_MAP_CHARACTER,
+										/* 800 */
+										/* U+0221 */ CANT_MAP_CHARACTER,
+										/* 801 */
+										/* U+0222 */ CANT_MAP_CHARACTER,
+										/* 802 */
+										/* U+0223 */ CANT_MAP_CHARACTER,
+										/* 803 */
+										/* U+0224 */ CANT_MAP_CHARACTER,
+										/* 804 */
+										/* U+0225 */ CANT_MAP_CHARACTER,
+										/* 805 */
+										/* U+0226 */ CANT_MAP_CHARACTER,
+										/* 806 */
+										/* U+0227 */ CANT_MAP_CHARACTER,
+										/* 807 */
+										/* U+0228 */ CANT_MAP_CHARACTER,
+										/* 808 */
+										/* U+0229 */ CANT_MAP_CHARACTER,
+										/* 809 */
+										/* U+022A */ CANT_MAP_CHARACTER,
+										/* 810 */
+										/* U+022B */ CANT_MAP_CHARACTER,
+										/* 811 */
+										/* U+022C */ CANT_MAP_CHARACTER,
+										/* 812 */
+										/* U+022D */ CANT_MAP_CHARACTER,
+										/* 813 */
+										/* U+022E */ CANT_MAP_CHARACTER,
+										/* 814 */
+										/* U+022F */ CANT_MAP_CHARACTER,
+										/* 815 */
+										/* U+0230 */ CANT_MAP_CHARACTER,
+										/* 816 */
+										/* U+0231 */ CANT_MAP_CHARACTER,
+										/* 817 */
+										/* U+0232 */ CANT_MAP_CHARACTER,
+										/* 818 */
+										/* U+0233 */ CANT_MAP_CHARACTER,
+										/* 819 */
+										/* U+0234 */ CANT_MAP_CHARACTER,
+										/* 820 */
+										/* U+0235 */ CANT_MAP_CHARACTER,
+										/* 821 */
+										/* U+0236 */ CANT_MAP_CHARACTER,
+										/* 822 */
+										/* U+0237 */ CANT_MAP_CHARACTER,
+										/* 823 */
+										/* U+0238 */ CANT_MAP_CHARACTER,
+										/* 824 */
+										/* U+0239 */ CANT_MAP_CHARACTER,
+										/* 825 */
+										/* U+023A */ CANT_MAP_CHARACTER,
+										/* 826 */
+										/* U+023B */ CANT_MAP_CHARACTER,
+										/* 827 */
+										/* U+023C */ CANT_MAP_CHARACTER,
+										/* 828 */
+										/* U+023D */ CANT_MAP_CHARACTER,
+										/* 829 */
+										/* U+023E */ CANT_MAP_CHARACTER,
+										/* 830 */
+										/* U+023F */ CANT_MAP_CHARACTER,
+										/* 831 */
+										/* U+0240 */ CANT_MAP_CHARACTER,
+										/* 832 */
+										/* U+0241 */ CANT_MAP_CHARACTER,
+										/* 833 */
+										/* U+0242 */ CANT_MAP_CHARACTER,
+										/* 834 */
+										/* U+0243 */ CANT_MAP_CHARACTER,
+										/* 835 */
+										/* U+0244 */ CANT_MAP_CHARACTER,
+										/* 836 */
+										/* U+0245 */ CANT_MAP_CHARACTER,
+										/* 837 */
+										/* U+0246 */ CANT_MAP_CHARACTER,
+										/* 838 */
+										/* U+0247 */ CANT_MAP_CHARACTER,
+										/* 839 */
+										/* U+0248 */ CANT_MAP_CHARACTER,
+										/* 840 */
+										/* U+0249 */ CANT_MAP_CHARACTER,
+										/* 841 */
+										/* U+024A */ CANT_MAP_CHARACTER,
+										/* 842 */
+										/* U+024B */ CANT_MAP_CHARACTER,
+										/* 843 */
+										/* U+024C */ CANT_MAP_CHARACTER,
+										/* 844 */
+										/* U+024D */ CANT_MAP_CHARACTER,
+										/* 845 */
+										/* U+024E */ CANT_MAP_CHARACTER,
+										/* 846 */
+										/* U+024F */ CANT_MAP_CHARACTER,
+										/* 847 */
+										/* U+0250 */ CANT_MAP_CHARACTER,
+										/* 848 */
+										/* U+0251 */ CANT_MAP_CHARACTER,
+										/* 849 */
+										/* U+0252 */ CANT_MAP_CHARACTER,
+										/* 850 */
+										/* U+0253 */ CANT_MAP_CHARACTER,
+										/* 851 */
+										/* U+0254 */ CANT_MAP_CHARACTER,
+										/* 852 */
+										/* U+0255 */ CANT_MAP_CHARACTER,
+										/* 853 */
+										/* U+0256 */ CANT_MAP_CHARACTER,
+										/* 854 */
+										/* U+0257 */ CANT_MAP_CHARACTER,
+										/* 855 */
+										/* U+0258 */ CANT_MAP_CHARACTER,
+										/* 856 */
+										/* U+0259 */ CANT_MAP_CHARACTER,
+										/* 857 */
+										/* U+025A */ CANT_MAP_CHARACTER,
+										/* 858 */
+										/* U+025B */ CANT_MAP_CHARACTER,
+										/* 859 */
+										/* U+025C */ CANT_MAP_CHARACTER,
+										/* 860 */
+										/* U+025D */ CANT_MAP_CHARACTER,
+										/* 861 */
+										/* U+025E */ CANT_MAP_CHARACTER,
+										/* 862 */
+										/* U+025F */ CANT_MAP_CHARACTER,
+										/* 863 */
+										/* U+0260 */ CANT_MAP_CHARACTER,
+										/* 864 */
+										/* U+0261 */ CANT_MAP_CHARACTER,
+										/* 865 */
+										/* U+0262 */ CANT_MAP_CHARACTER,
+										/* 866 */
+										/* U+0263 */ CANT_MAP_CHARACTER,
+										/* 867 */
+										/* U+0264 */ CANT_MAP_CHARACTER,
+										/* 868 */
+										/* U+0265 */ CANT_MAP_CHARACTER,
+										/* 869 */
+										/* U+0266 */ CANT_MAP_CHARACTER,
+										/* 870 */
+										/* U+0267 */ CANT_MAP_CHARACTER,
+										/* 871 */
+										/* U+0268 */ CANT_MAP_CHARACTER,
+										/* 872 */
+										/* U+0269 */ CANT_MAP_CHARACTER,
+										/* 873 */
+										/* U+026A */ CANT_MAP_CHARACTER,
+										/* 874 */
+										/* U+026B */ CANT_MAP_CHARACTER,
+										/* 875 */
+										/* U+026C */ CANT_MAP_CHARACTER,
+										/* 876 */
+										/* U+026D */ CANT_MAP_CHARACTER,
+										/* 877 */
+										/* U+026E */ CANT_MAP_CHARACTER,
+										/* 878 */
+										/* U+026F */ CANT_MAP_CHARACTER,
+										/* 879 */
+										/* U+0270 */ CANT_MAP_CHARACTER,
+										/* 880 */
+										/* U+0271 */ CANT_MAP_CHARACTER,
+										/* 881 */
+										/* U+0272 */ CANT_MAP_CHARACTER,
+										/* 882 */
+										/* U+0273 */ CANT_MAP_CHARACTER,
+										/* 883 */
+										/* U+0274 */ CANT_MAP_CHARACTER,
+										/* 884 */
+										/* U+0275 */ CANT_MAP_CHARACTER,
+										/* 885 */
+										/* U+0276 */ CANT_MAP_CHARACTER,
+										/* 886 */
+										/* U+0277 */ CANT_MAP_CHARACTER,
+										/* 887 */
+										/* U+0278 */ CANT_MAP_CHARACTER,
+										/* 888 */
+										/* U+0279 */ CANT_MAP_CHARACTER,
+										/* 889 */
+										/* U+027A */ CANT_MAP_CHARACTER,
+										/* 890 */
+										/* U+027B */ CANT_MAP_CHARACTER,
+										/* 891 */
+										/* U+027C */ CANT_MAP_CHARACTER,
+										/* 892 */
+										/* U+027D */ CANT_MAP_CHARACTER,
+										/* 893 */
+										/* U+027E */ CANT_MAP_CHARACTER,
+										/* 894 */
+										/* U+027F */ CANT_MAP_CHARACTER,
+										/* 895 */
+										/* U+0280 */ CANT_MAP_CHARACTER,
+										/* 896 */
+										/* U+0281 */ CANT_MAP_CHARACTER,
+										/* 897 */
+										/* U+0282 */ CANT_MAP_CHARACTER,
+										/* 898 */
+										/* U+0283 */ CANT_MAP_CHARACTER,
+										/* 899 */
+										/* U+0284 */ CANT_MAP_CHARACTER,
+										/* 900 */
+										/* U+0285 */ CANT_MAP_CHARACTER,
+										/* 901 */
+										/* U+0286 */ CANT_MAP_CHARACTER,
+										/* 902 */
+										/* U+0287 */ CANT_MAP_CHARACTER,
+										/* 903 */
+										/* U+0288 */ CANT_MAP_CHARACTER,
+										/* 904 */
+										/* U+0289 */ CANT_MAP_CHARACTER,
+										/* 905 */
+										/* U+028A */ CANT_MAP_CHARACTER,
+										/* 906 */
+										/* U+028B */ CANT_MAP_CHARACTER,
+										/* 907 */
+										/* U+028C */ CANT_MAP_CHARACTER,
+										/* 908 */
+										/* U+028D */ CANT_MAP_CHARACTER,
+										/* 909 */
+										/* U+028E */ CANT_MAP_CHARACTER,
+										/* 910 */
+										/* U+028F */ CANT_MAP_CHARACTER,
+										/* 911 */
+										/* U+0290 */ CANT_MAP_CHARACTER,
+										/* 912 */
+										/* U+0291 */ CANT_MAP_CHARACTER,
+										/* 913 */
+										/* U+0292 */ CANT_MAP_CHARACTER,
+										/* 914 */
+										/* U+0293 */ CANT_MAP_CHARACTER,
+										/* 915 */
+										/* U+0294 */ CANT_MAP_CHARACTER,
+										/* 916 */
+										/* U+0295 */ CANT_MAP_CHARACTER,
+										/* 917 */
+										/* U+0296 */ CANT_MAP_CHARACTER,
+										/* 918 */
+										/* U+0297 */ CANT_MAP_CHARACTER,
+										/* 919 */
+										/* U+0298 */ CANT_MAP_CHARACTER,
+										/* 920 */
+										/* U+0299 */ CANT_MAP_CHARACTER,
+										/* 921 */
+										/* U+029A */ CANT_MAP_CHARACTER,
+										/* 922 */
+										/* U+029B */ CANT_MAP_CHARACTER,
+										/* 923 */
+										/* U+029C */ CANT_MAP_CHARACTER,
+										/* 924 */
+										/* U+029D */ CANT_MAP_CHARACTER,
+										/* 925 */
+										/* U+029E */ CANT_MAP_CHARACTER,
+										/* 926 */
+										/* U+029F */ CANT_MAP_CHARACTER,
+										/* 927 */
+										/* U+02A0 */ CANT_MAP_CHARACTER,
+										/* 928 */
+										/* U+02A1 */ CANT_MAP_CHARACTER,
+										/* 929 */
+										/* U+02A2 */ CANT_MAP_CHARACTER,
+										/* 930 */
+										/* U+02A3 */ CANT_MAP_CHARACTER,
+										/* 931 */
+										/* U+02A4 */ CANT_MAP_CHARACTER,
+										/* 932 */
+										/* U+02A5 */ CANT_MAP_CHARACTER,
+										/* 933 */
+										/* U+02A6 */ CANT_MAP_CHARACTER,
+										/* 934 */
+										/* U+02A7 */ CANT_MAP_CHARACTER,
+										/* 935 */
+										/* U+02A8 */ CANT_MAP_CHARACTER,
+										/* 936 */
+										/* U+02A9 */ CANT_MAP_CHARACTER,
+										/* 937 */
+										/* U+02AA */ CANT_MAP_CHARACTER,
+										/* 938 */
+										/* U+02AB */ CANT_MAP_CHARACTER,
+										/* 939 */
+										/* U+02AC */ CANT_MAP_CHARACTER,
+										/* 940 */
+										/* U+02AD */ CANT_MAP_CHARACTER,
+										/* 941 */
+										/* U+02AE */ CANT_MAP_CHARACTER,
+										/* 942 */
+										/* U+02AF */ CANT_MAP_CHARACTER,
+										/* 943 */
+										/* U+02B0 */ CANT_MAP_CHARACTER,
+										/* 944 */
+										/* U+02B1 */ CANT_MAP_CHARACTER,
+										/* 945 */
+										/* U+02B2 */ CANT_MAP_CHARACTER,
+										/* 946 */
+										/* U+02B3 */ CANT_MAP_CHARACTER,
+										/* 947 */
+										/* U+02B4 */ CANT_MAP_CHARACTER,
+										/* 948 */
+										/* U+02B5 */ CANT_MAP_CHARACTER,
+										/* 949 */
+										/* U+02B6 */ CANT_MAP_CHARACTER,
+										/* 950 */
+										/* U+02B7 */ CANT_MAP_CHARACTER,
+										/* 951 */
+										/* U+02B8 */ CANT_MAP_CHARACTER,
+										/* 952 */
+										/* U+02B9 */ CANT_MAP_CHARACTER,
+										/* 953 */
+										/* U+02BA */ CANT_MAP_CHARACTER,
+										/* 954 */
+										/* U+02BB */ CANT_MAP_CHARACTER,
+										/* 955 */
+										/* U+02BC */ CANT_MAP_CHARACTER,
+										/* 956 */
+										/* U+02BD */ CANT_MAP_CHARACTER,
+										/* 957 */
+										/* U+02BE */ CANT_MAP_CHARACTER,
+										/* 958 */
+										/* U+02BF */ CANT_MAP_CHARACTER,
+										/* 959 */
+										/* U+02C0 */ CANT_MAP_CHARACTER,
+										/* 960 */
+										/* U+02C1 */ CANT_MAP_CHARACTER,
+										/* 961 */
+										/* U+02C2 */ CANT_MAP_CHARACTER,
+										/* 962 */
+										/* U+02C3 */ CANT_MAP_CHARACTER,
+										/* 963 */
+										/* U+02C4 */ CANT_MAP_CHARACTER,
+										/* 964 */
+										/* U+02C5 */ CANT_MAP_CHARACTER,
+										/* 965 */
+	/* U+02C6 */ 0x88 /*             MODIFIER LETTER CIRCUMFLEX ACCENT */ ,	/* 966 */
+										/* U+02C7 */ CANT_MAP_CHARACTER,
+										/* 967 */
+										/* U+02C8 */ CANT_MAP_CHARACTER,
+										/* 968 */
+										/* U+02C9 */ CANT_MAP_CHARACTER,
+										/* 969 */
+										/* U+02CA */ CANT_MAP_CHARACTER,
+										/* 970 */
+										/* U+02CB */ CANT_MAP_CHARACTER,
+										/* 971 */
+										/* U+02CC */ CANT_MAP_CHARACTER,
+										/* 972 */
+										/* U+02CD */ CANT_MAP_CHARACTER,
+										/* 973 */
+										/* U+02CE */ CANT_MAP_CHARACTER,
+										/* 974 */
+										/* U+02CF */ CANT_MAP_CHARACTER,
+										/* 975 */
+										/* U+02D0 */ CANT_MAP_CHARACTER,
+										/* 976 */
+										/* U+02D1 */ CANT_MAP_CHARACTER,
+										/* 977 */
+										/* U+02D2 */ CANT_MAP_CHARACTER,
+										/* 978 */
+										/* U+02D3 */ CANT_MAP_CHARACTER,
+										/* 979 */
+										/* U+02D4 */ CANT_MAP_CHARACTER,
+										/* 980 */
+										/* U+02D5 */ CANT_MAP_CHARACTER,
+										/* 981 */
+										/* U+02D6 */ CANT_MAP_CHARACTER,
+										/* 982 */
+										/* U+02D7 */ CANT_MAP_CHARACTER,
+										/* 983 */
+										/* U+02D8 */ CANT_MAP_CHARACTER,
+										/* 984 */
+										/* U+02D9 */ CANT_MAP_CHARACTER,
+										/* 985 */
+										/* U+02DA */ CANT_MAP_CHARACTER,
+										/* 986 */
+										/* U+02DB */ CANT_MAP_CHARACTER,
+										/* 987 */
+	/* U+02DC */ 0x98 /*                                   SMALL TILDE */ ,	/* 988 */
+										/* U+02DD */ CANT_MAP_CHARACTER,
+										/* 989 */
+										/* U+02DE */ CANT_MAP_CHARACTER,
+										/* 990 */
+										/* U+02DF */ CANT_MAP_CHARACTER,
+										/* 991 */
+										/* U+02E0 */ CANT_MAP_CHARACTER,
+										/* 992 */
+										/* U+02E1 */ CANT_MAP_CHARACTER,
+										/* 993 */
+										/* U+02E2 */ CANT_MAP_CHARACTER,
+										/* 994 */
+										/* U+02E3 */ CANT_MAP_CHARACTER,
+										/* 995 */
+										/* U+02E4 */ CANT_MAP_CHARACTER,
+										/* 996 */
+										/* U+02E5 */ CANT_MAP_CHARACTER,
+										/* 997 */
+										/* U+02E6 */ CANT_MAP_CHARACTER,
+										/* 998 */
+										/* U+02E7 */ CANT_MAP_CHARACTER,
+										/* 999 */
+										/* U+02E8 */ CANT_MAP_CHARACTER,
+										/* 1000 */
+										/* U+02E9 */ CANT_MAP_CHARACTER,
+										/* 1001 */
+										/* U+02EA */ CANT_MAP_CHARACTER,
+										/* 1002 */
+										/* U+02EB */ CANT_MAP_CHARACTER,
+										/* 1003 */
+										/* U+02EC */ CANT_MAP_CHARACTER,
+										/* 1004 */
+										/* U+02ED */ CANT_MAP_CHARACTER,
+										/* 1005 */
+										/* U+02EE */ CANT_MAP_CHARACTER,
+										/* 1006 */
+										/* U+02EF */ CANT_MAP_CHARACTER,
+										/* 1007 */
+										/* U+02F0 */ CANT_MAP_CHARACTER,
+										/* 1008 */
+										/* U+02F1 */ CANT_MAP_CHARACTER,
+										/* 1009 */
+										/* U+02F2 */ CANT_MAP_CHARACTER,
+										/* 1010 */
+										/* U+02F3 */ CANT_MAP_CHARACTER,
+										/* 1011 */
+										/* U+02F4 */ CANT_MAP_CHARACTER,
+										/* 1012 */
+										/* U+02F5 */ CANT_MAP_CHARACTER,
+										/* 1013 */
+										/* U+02F6 */ CANT_MAP_CHARACTER,
+										/* 1014 */
+										/* U+02F7 */ CANT_MAP_CHARACTER,
+										/* 1015 */
+										/* U+02F8 */ CANT_MAP_CHARACTER,
+										/* 1016 */
+										/* U+02F9 */ CANT_MAP_CHARACTER,
+										/* 1017 */
+										/* U+02FA */ CANT_MAP_CHARACTER,
+										/* 1018 */
+										/* U+02FB */ CANT_MAP_CHARACTER,
+										/* 1019 */
+										/* U+02FC */ CANT_MAP_CHARACTER,
+										/* 1020 */
+										/* U+02FD */ CANT_MAP_CHARACTER,
+										/* 1021 */
+										/* U+02FE */ CANT_MAP_CHARACTER,
+										/* 1022 */
+										/* U+02FF */ CANT_MAP_CHARACTER,
+										/* 1023 */
+										/* U+2000 */ CANT_MAP_CHARACTER,
+										/* 1024 */
+										/* U+2001 */ CANT_MAP_CHARACTER,
+										/* 1025 */
+										/* U+2002 */ CANT_MAP_CHARACTER,
+										/* 1026 */
+										/* U+2003 */ CANT_MAP_CHARACTER,
+										/* 1027 */
+										/* U+2004 */ CANT_MAP_CHARACTER,
+										/* 1028 */
+										/* U+2005 */ CANT_MAP_CHARACTER,
+										/* 1029 */
+										/* U+2006 */ CANT_MAP_CHARACTER,
+										/* 1030 */
+										/* U+2007 */ CANT_MAP_CHARACTER,
+										/* 1031 */
+										/* U+2008 */ CANT_MAP_CHARACTER,
+										/* 1032 */
+										/* U+2009 */ CANT_MAP_CHARACTER,
+										/* 1033 */
+										/* U+200A */ CANT_MAP_CHARACTER,
+										/* 1034 */
+										/* U+200B */ CANT_MAP_CHARACTER,
+										/* 1035 */
+										/* U+200C */ CANT_MAP_CHARACTER,
+										/* 1036 */
+										/* U+200D */ CANT_MAP_CHARACTER,
+										/* 1037 */
+										/* U+200E */ CANT_MAP_CHARACTER,
+										/* 1038 */
+										/* U+200F */ CANT_MAP_CHARACTER,
+										/* 1039 */
+										/* U+2010 */ CANT_MAP_CHARACTER,
+										/* 1040 */
+										/* U+2011 */ CANT_MAP_CHARACTER,
+										/* 1041 */
+										/* U+2012 */ CANT_MAP_CHARACTER,
+										/* 1042 */
+	/* U+2013 */ 0x96 /*                                       EN DASH */ ,	/* 1043 */
+	/* U+2014 */ 0x97 /*                                       EM DASH */ ,	/* 1044 */
+										/* U+2015 */ CANT_MAP_CHARACTER,
+										/* 1045 */
+										/* U+2016 */ CANT_MAP_CHARACTER,
+										/* 1046 */
+										/* U+2017 */ CANT_MAP_CHARACTER,
+										/* 1047 */
+	/* U+2018 */ 0x91 /*                    LEFT SINGLE QUOTATION MARK */ ,	/* 1048 */
+	/* U+2019 */ 0x92 /*                   RIGHT SINGLE QUOTATION MARK */ ,	/* 1049 */
+	/* U+201A */ 0x82 /*                   SINGLE LOW-9 QUOTATION MARK */ ,	/* 1050 */
+										/* U+201B */ CANT_MAP_CHARACTER,
+										/* 1051 */
+	/* U+201C */ 0x93 /*                    LEFT DOUBLE QUOTATION MARK */ ,	/* 1052 */
+	/* U+201D */ 0x94 /*                   RIGHT DOUBLE QUOTATION MARK */ ,	/* 1053 */
+	/* U+201E */ 0x84 /*                   DOUBLE LOW-9 QUOTATION MARK */ ,	/* 1054 */
+										/* U+201F */ CANT_MAP_CHARACTER,
+										/* 1055 */
+	/* U+2020 */ 0x86 /*                                        DAGGER */ ,	/* 1056 */
+	/* U+2021 */ 0x87 /*                                 DOUBLE DAGGER */ ,	/* 1057 */
+	/* U+2022 */ 0x95 /*                                        BULLET */ ,	/* 1058 */
+										/* U+2023 */ CANT_MAP_CHARACTER,
+										/* 1059 */
+										/* U+2024 */ CANT_MAP_CHARACTER,
+										/* 1060 */
+										/* U+2025 */ CANT_MAP_CHARACTER,
+										/* 1061 */
+	/* U+2026 */ 0x85 /*                           HORIZONTAL ELLIPSIS */ ,	/* 1062 */
+										/* U+2027 */ CANT_MAP_CHARACTER,
+										/* 1063 */
+										/* U+2028 */ CANT_MAP_CHARACTER,
+										/* 1064 */
+										/* U+2029 */ CANT_MAP_CHARACTER,
+										/* 1065 */
+										/* U+202A */ CANT_MAP_CHARACTER,
+										/* 1066 */
+										/* U+202B */ CANT_MAP_CHARACTER,
+										/* 1067 */
+										/* U+202C */ CANT_MAP_CHARACTER,
+										/* 1068 */
+										/* U+202D */ CANT_MAP_CHARACTER,
+										/* 1069 */
+										/* U+202E */ CANT_MAP_CHARACTER,
+										/* 1070 */
+										/* U+202F */ CANT_MAP_CHARACTER,
+										/* 1071 */
+	/* U+2030 */ 0x89 /*                                PER MILLE SIGN */ ,	/* 1072 */
+										/* U+2031 */ CANT_MAP_CHARACTER,
+										/* 1073 */
+										/* U+2032 */ CANT_MAP_CHARACTER,
+										/* 1074 */
+										/* U+2033 */ CANT_MAP_CHARACTER,
+										/* 1075 */
+										/* U+2034 */ CANT_MAP_CHARACTER,
+										/* 1076 */
+										/* U+2035 */ CANT_MAP_CHARACTER,
+										/* 1077 */
+										/* U+2036 */ CANT_MAP_CHARACTER,
+										/* 1078 */
+										/* U+2037 */ CANT_MAP_CHARACTER,
+										/* 1079 */
+										/* U+2038 */ CANT_MAP_CHARACTER,
+										/* 1080 */
+	/* U+2039 */ 0x8B /*     SINGLE LEFT-POINTING ANGLE QUOTATION MARK */ ,	/* 1081 */
+	/* U+203A */ 0x9B /*    SINGLE RIGHT-POINTING ANGLE QUOTATION MARK */ ,	/* 1082 */
+										/* U+203B */ CANT_MAP_CHARACTER,
+										/* 1083 */
+										/* U+203C */ CANT_MAP_CHARACTER,
+										/* 1084 */
+										/* U+203D */ CANT_MAP_CHARACTER,
+										/* 1085 */
+										/* U+203E */ CANT_MAP_CHARACTER,
+										/* 1086 */
+										/* U+203F */ CANT_MAP_CHARACTER,
+										/* 1087 */
+										/* U+2040 */ CANT_MAP_CHARACTER,
+										/* 1088 */
+										/* U+2041 */ CANT_MAP_CHARACTER,
+										/* 1089 */
+										/* U+2042 */ CANT_MAP_CHARACTER,
+										/* 1090 */
+										/* U+2043 */ CANT_MAP_CHARACTER,
+										/* 1091 */
+										/* U+2044 */ CANT_MAP_CHARACTER,
+										/* 1092 */
+										/* U+2045 */ CANT_MAP_CHARACTER,
+										/* 1093 */
+										/* U+2046 */ CANT_MAP_CHARACTER,
+										/* 1094 */
+										/* U+2047 */ CANT_MAP_CHARACTER,
+										/* 1095 */
+										/* U+2048 */ CANT_MAP_CHARACTER,
+										/* 1096 */
+										/* U+2049 */ CANT_MAP_CHARACTER,
+										/* 1097 */
+										/* U+204A */ CANT_MAP_CHARACTER,
+										/* 1098 */
+										/* U+204B */ CANT_MAP_CHARACTER,
+										/* 1099 */
+										/* U+204C */ CANT_MAP_CHARACTER,
+										/* 1100 */
+										/* U+204D */ CANT_MAP_CHARACTER,
+										/* 1101 */
+										/* U+204E */ CANT_MAP_CHARACTER,
+										/* 1102 */
+										/* U+204F */ CANT_MAP_CHARACTER,
+										/* 1103 */
+										/* U+2050 */ CANT_MAP_CHARACTER,
+										/* 1104 */
+										/* U+2051 */ CANT_MAP_CHARACTER,
+										/* 1105 */
+										/* U+2052 */ CANT_MAP_CHARACTER,
+										/* 1106 */
+										/* U+2053 */ CANT_MAP_CHARACTER,
+										/* 1107 */
+										/* U+2054 */ CANT_MAP_CHARACTER,
+										/* 1108 */
+										/* U+2055 */ CANT_MAP_CHARACTER,
+										/* 1109 */
+										/* U+2056 */ CANT_MAP_CHARACTER,
+										/* 1110 */
+										/* U+2057 */ CANT_MAP_CHARACTER,
+										/* 1111 */
+										/* U+2058 */ CANT_MAP_CHARACTER,
+										/* 1112 */
+										/* U+2059 */ CANT_MAP_CHARACTER,
+										/* 1113 */
+										/* U+205A */ CANT_MAP_CHARACTER,
+										/* 1114 */
+										/* U+205B */ CANT_MAP_CHARACTER,
+										/* 1115 */
+										/* U+205C */ CANT_MAP_CHARACTER,
+										/* 1116 */
+										/* U+205D */ CANT_MAP_CHARACTER,
+										/* 1117 */
+										/* U+205E */ CANT_MAP_CHARACTER,
+										/* 1118 */
+										/* U+205F */ CANT_MAP_CHARACTER,
+										/* 1119 */
+										/* U+2060 */ CANT_MAP_CHARACTER,
+										/* 1120 */
+										/* U+2061 */ CANT_MAP_CHARACTER,
+										/* 1121 */
+										/* U+2062 */ CANT_MAP_CHARACTER,
+										/* 1122 */
+										/* U+2063 */ CANT_MAP_CHARACTER,
+										/* 1123 */
+										/* U+2064 */ CANT_MAP_CHARACTER,
+										/* 1124 */
+										/* U+2065 */ CANT_MAP_CHARACTER,
+										/* 1125 */
+										/* U+2066 */ CANT_MAP_CHARACTER,
+										/* 1126 */
+										/* U+2067 */ CANT_MAP_CHARACTER,
+										/* 1127 */
+										/* U+2068 */ CANT_MAP_CHARACTER,
+										/* 1128 */
+										/* U+2069 */ CANT_MAP_CHARACTER,
+										/* 1129 */
+										/* U+206A */ CANT_MAP_CHARACTER,
+										/* 1130 */
+										/* U+206B */ CANT_MAP_CHARACTER,
+										/* 1131 */
+										/* U+206C */ CANT_MAP_CHARACTER,
+										/* 1132 */
+										/* U+206D */ CANT_MAP_CHARACTER,
+										/* 1133 */
+										/* U+206E */ CANT_MAP_CHARACTER,
+										/* 1134 */
+										/* U+206F */ CANT_MAP_CHARACTER,
+										/* 1135 */
+										/* U+2070 */ CANT_MAP_CHARACTER,
+										/* 1136 */
+										/* U+2071 */ CANT_MAP_CHARACTER,
+										/* 1137 */
+										/* U+2072 */ CANT_MAP_CHARACTER,
+										/* 1138 */
+										/* U+2073 */ CANT_MAP_CHARACTER,
+										/* 1139 */
+										/* U+2074 */ CANT_MAP_CHARACTER,
+										/* 1140 */
+										/* U+2075 */ CANT_MAP_CHARACTER,
+										/* 1141 */
+										/* U+2076 */ CANT_MAP_CHARACTER,
+										/* 1142 */
+										/* U+2077 */ CANT_MAP_CHARACTER,
+										/* 1143 */
+										/* U+2078 */ CANT_MAP_CHARACTER,
+										/* 1144 */
+										/* U+2079 */ CANT_MAP_CHARACTER,
+										/* 1145 */
+										/* U+207A */ CANT_MAP_CHARACTER,
+										/* 1146 */
+										/* U+207B */ CANT_MAP_CHARACTER,
+										/* 1147 */
+										/* U+207C */ CANT_MAP_CHARACTER,
+										/* 1148 */
+										/* U+207D */ CANT_MAP_CHARACTER,
+										/* 1149 */
+										/* U+207E */ CANT_MAP_CHARACTER,
+										/* 1150 */
+										/* U+207F */ CANT_MAP_CHARACTER,
+										/* 1151 */
+										/* U+2080 */ CANT_MAP_CHARACTER,
+										/* 1152 */
+										/* U+2081 */ CANT_MAP_CHARACTER,
+										/* 1153 */
+										/* U+2082 */ CANT_MAP_CHARACTER,
+										/* 1154 */
+										/* U+2083 */ CANT_MAP_CHARACTER,
+										/* 1155 */
+										/* U+2084 */ CANT_MAP_CHARACTER,
+										/* 1156 */
+										/* U+2085 */ CANT_MAP_CHARACTER,
+										/* 1157 */
+										/* U+2086 */ CANT_MAP_CHARACTER,
+										/* 1158 */
+										/* U+2087 */ CANT_MAP_CHARACTER,
+										/* 1159 */
+										/* U+2088 */ CANT_MAP_CHARACTER,
+										/* 1160 */
+										/* U+2089 */ CANT_MAP_CHARACTER,
+										/* 1161 */
+										/* U+208A */ CANT_MAP_CHARACTER,
+										/* 1162 */
+										/* U+208B */ CANT_MAP_CHARACTER,
+										/* 1163 */
+										/* U+208C */ CANT_MAP_CHARACTER,
+										/* 1164 */
+										/* U+208D */ CANT_MAP_CHARACTER,
+										/* 1165 */
+										/* U+208E */ CANT_MAP_CHARACTER,
+										/* 1166 */
+										/* U+208F */ CANT_MAP_CHARACTER,
+										/* 1167 */
+										/* U+2090 */ CANT_MAP_CHARACTER,
+										/* 1168 */
+										/* U+2091 */ CANT_MAP_CHARACTER,
+										/* 1169 */
+										/* U+2092 */ CANT_MAP_CHARACTER,
+										/* 1170 */
+										/* U+2093 */ CANT_MAP_CHARACTER,
+										/* 1171 */
+										/* U+2094 */ CANT_MAP_CHARACTER,
+										/* 1172 */
+										/* U+2095 */ CANT_MAP_CHARACTER,
+										/* 1173 */
+										/* U+2096 */ CANT_MAP_CHARACTER,
+										/* 1174 */
+										/* U+2097 */ CANT_MAP_CHARACTER,
+										/* 1175 */
+										/* U+2098 */ CANT_MAP_CHARACTER,
+										/* 1176 */
+										/* U+2099 */ CANT_MAP_CHARACTER,
+										/* 1177 */
+										/* U+209A */ CANT_MAP_CHARACTER,
+										/* 1178 */
+										/* U+209B */ CANT_MAP_CHARACTER,
+										/* 1179 */
+										/* U+209C */ CANT_MAP_CHARACTER,
+										/* 1180 */
+										/* U+209D */ CANT_MAP_CHARACTER,
+										/* 1181 */
+										/* U+209E */ CANT_MAP_CHARACTER,
+										/* 1182 */
+										/* U+209F */ CANT_MAP_CHARACTER,
+										/* 1183 */
+										/* U+20A0 */ CANT_MAP_CHARACTER,
+										/* 1184 */
+										/* U+20A1 */ CANT_MAP_CHARACTER,
+										/* 1185 */
+										/* U+20A2 */ CANT_MAP_CHARACTER,
+										/* 1186 */
+										/* U+20A3 */ CANT_MAP_CHARACTER,
+										/* 1187 */
+										/* U+20A4 */ CANT_MAP_CHARACTER,
+										/* 1188 */
+										/* U+20A5 */ CANT_MAP_CHARACTER,
+										/* 1189 */
+										/* U+20A6 */ CANT_MAP_CHARACTER,
+										/* 1190 */
+										/* U+20A7 */ CANT_MAP_CHARACTER,
+										/* 1191 */
+										/* U+20A8 */ CANT_MAP_CHARACTER,
+										/* 1192 */
+										/* U+20A9 */ CANT_MAP_CHARACTER,
+										/* 1193 */
+										/* U+20AA */ CANT_MAP_CHARACTER,
+										/* 1194 */
+										/* U+20AB */ CANT_MAP_CHARACTER,
+										/* 1195 */
+	/* U+20AC */ 0x80 /*                                     EURO SIGN */ ,	/* 1196 */
+										/* U+20AD */ CANT_MAP_CHARACTER,
+										/* 1197 */
+										/* U+20AE */ CANT_MAP_CHARACTER,
+										/* 1198 */
+										/* U+20AF */ CANT_MAP_CHARACTER,
+										/* 1199 */
+										/* U+20B0 */ CANT_MAP_CHARACTER,
+										/* 1200 */
+										/* U+20B1 */ CANT_MAP_CHARACTER,
+										/* 1201 */
+										/* U+20B2 */ CANT_MAP_CHARACTER,
+										/* 1202 */
+										/* U+20B3 */ CANT_MAP_CHARACTER,
+										/* 1203 */
+										/* U+20B4 */ CANT_MAP_CHARACTER,
+										/* 1204 */
+										/* U+20B5 */ CANT_MAP_CHARACTER,
+										/* 1205 */
+										/* U+20B6 */ CANT_MAP_CHARACTER,
+										/* 1206 */
+										/* U+20B7 */ CANT_MAP_CHARACTER,
+										/* 1207 */
+										/* U+20B8 */ CANT_MAP_CHARACTER,
+										/* 1208 */
+										/* U+20B9 */ CANT_MAP_CHARACTER,
+										/* 1209 */
+										/* U+20BA */ CANT_MAP_CHARACTER,
+										/* 1210 */
+										/* U+20BB */ CANT_MAP_CHARACTER,
+										/* 1211 */
+										/* U+20BC */ CANT_MAP_CHARACTER,
+										/* 1212 */
+										/* U+20BD */ CANT_MAP_CHARACTER,
+										/* 1213 */
+										/* U+20BE */ CANT_MAP_CHARACTER,
+										/* 1214 */
+										/* U+20BF */ CANT_MAP_CHARACTER,
+										/* 1215 */
+										/* U+20C0 */ CANT_MAP_CHARACTER,
+										/* 1216 */
+										/* U+20C1 */ CANT_MAP_CHARACTER,
+										/* 1217 */
+										/* U+20C2 */ CANT_MAP_CHARACTER,
+										/* 1218 */
+										/* U+20C3 */ CANT_MAP_CHARACTER,
+										/* 1219 */
+										/* U+20C4 */ CANT_MAP_CHARACTER,
+										/* 1220 */
+										/* U+20C5 */ CANT_MAP_CHARACTER,
+										/* 1221 */
+										/* U+20C6 */ CANT_MAP_CHARACTER,
+										/* 1222 */
+										/* U+20C7 */ CANT_MAP_CHARACTER,
+										/* 1223 */
+										/* U+20C8 */ CANT_MAP_CHARACTER,
+										/* 1224 */
+										/* U+20C9 */ CANT_MAP_CHARACTER,
+										/* 1225 */
+										/* U+20CA */ CANT_MAP_CHARACTER,
+										/* 1226 */
+										/* U+20CB */ CANT_MAP_CHARACTER,
+										/* 1227 */
+										/* U+20CC */ CANT_MAP_CHARACTER,
+										/* 1228 */
+										/* U+20CD */ CANT_MAP_CHARACTER,
+										/* 1229 */
+										/* U+20CE */ CANT_MAP_CHARACTER,
+										/* 1230 */
+										/* U+20CF */ CANT_MAP_CHARACTER,
+										/* 1231 */
+										/* U+20D0 */ CANT_MAP_CHARACTER,
+										/* 1232 */
+										/* U+20D1 */ CANT_MAP_CHARACTER,
+										/* 1233 */
+										/* U+20D2 */ CANT_MAP_CHARACTER,
+										/* 1234 */
+										/* U+20D3 */ CANT_MAP_CHARACTER,
+										/* 1235 */
+										/* U+20D4 */ CANT_MAP_CHARACTER,
+										/* 1236 */
+										/* U+20D5 */ CANT_MAP_CHARACTER,
+										/* 1237 */
+										/* U+20D6 */ CANT_MAP_CHARACTER,
+										/* 1238 */
+										/* U+20D7 */ CANT_MAP_CHARACTER,
+										/* 1239 */
+										/* U+20D8 */ CANT_MAP_CHARACTER,
+										/* 1240 */
+										/* U+20D9 */ CANT_MAP_CHARACTER,
+										/* 1241 */
+										/* U+20DA */ CANT_MAP_CHARACTER,
+										/* 1242 */
+										/* U+20DB */ CANT_MAP_CHARACTER,
+										/* 1243 */
+										/* U+20DC */ CANT_MAP_CHARACTER,
+										/* 1244 */
+										/* U+20DD */ CANT_MAP_CHARACTER,
+										/* 1245 */
+										/* U+20DE */ CANT_MAP_CHARACTER,
+										/* 1246 */
+										/* U+20DF */ CANT_MAP_CHARACTER,
+										/* 1247 */
+										/* U+20E0 */ CANT_MAP_CHARACTER,
+										/* 1248 */
+										/* U+20E1 */ CANT_MAP_CHARACTER,
+										/* 1249 */
+										/* U+20E2 */ CANT_MAP_CHARACTER,
+										/* 1250 */
+										/* U+20E3 */ CANT_MAP_CHARACTER,
+										/* 1251 */
+										/* U+20E4 */ CANT_MAP_CHARACTER,
+										/* 1252 */
+										/* U+20E5 */ CANT_MAP_CHARACTER,
+										/* 1253 */
+										/* U+20E6 */ CANT_MAP_CHARACTER,
+										/* 1254 */
+										/* U+20E7 */ CANT_MAP_CHARACTER,
+										/* 1255 */
+										/* U+20E8 */ CANT_MAP_CHARACTER,
+										/* 1256 */
+										/* U+20E9 */ CANT_MAP_CHARACTER,
+										/* 1257 */
+										/* U+20EA */ CANT_MAP_CHARACTER,
+										/* 1258 */
+										/* U+20EB */ CANT_MAP_CHARACTER,
+										/* 1259 */
+										/* U+20EC */ CANT_MAP_CHARACTER,
+										/* 1260 */
+										/* U+20ED */ CANT_MAP_CHARACTER,
+										/* 1261 */
+										/* U+20EE */ CANT_MAP_CHARACTER,
+										/* 1262 */
+										/* U+20EF */ CANT_MAP_CHARACTER,
+										/* 1263 */
+										/* U+20F0 */ CANT_MAP_CHARACTER,
+										/* 1264 */
+										/* U+20F1 */ CANT_MAP_CHARACTER,
+										/* 1265 */
+										/* U+20F2 */ CANT_MAP_CHARACTER,
+										/* 1266 */
+										/* U+20F3 */ CANT_MAP_CHARACTER,
+										/* 1267 */
+										/* U+20F4 */ CANT_MAP_CHARACTER,
+										/* 1268 */
+										/* U+20F5 */ CANT_MAP_CHARACTER,
+										/* 1269 */
+										/* U+20F6 */ CANT_MAP_CHARACTER,
+										/* 1270 */
+										/* U+20F7 */ CANT_MAP_CHARACTER,
+										/* 1271 */
+										/* U+20F8 */ CANT_MAP_CHARACTER,
+										/* 1272 */
+										/* U+20F9 */ CANT_MAP_CHARACTER,
+										/* 1273 */
+										/* U+20FA */ CANT_MAP_CHARACTER,
+										/* 1274 */
+										/* U+20FB */ CANT_MAP_CHARACTER,
+										/* 1275 */
+										/* U+20FC */ CANT_MAP_CHARACTER,
+										/* 1276 */
+										/* U+20FD */ CANT_MAP_CHARACTER,
+										/* 1277 */
+										/* U+20FE */ CANT_MAP_CHARACTER,
+										/* 1278 */
+										/* U+20FF */ CANT_MAP_CHARACTER,
+										/* 1279 */
+										/* U+2100 */ CANT_MAP_CHARACTER,
+										/* 1280 */
+										/* U+2101 */ CANT_MAP_CHARACTER,
+										/* 1281 */
+										/* U+2102 */ CANT_MAP_CHARACTER,
+										/* 1282 */
+										/* U+2103 */ CANT_MAP_CHARACTER,
+										/* 1283 */
+										/* U+2104 */ CANT_MAP_CHARACTER,
+										/* 1284 */
+										/* U+2105 */ CANT_MAP_CHARACTER,
+										/* 1285 */
+										/* U+2106 */ CANT_MAP_CHARACTER,
+										/* 1286 */
+										/* U+2107 */ CANT_MAP_CHARACTER,
+										/* 1287 */
+										/* U+2108 */ CANT_MAP_CHARACTER,
+										/* 1288 */
+										/* U+2109 */ CANT_MAP_CHARACTER,
+										/* 1289 */
+										/* U+210A */ CANT_MAP_CHARACTER,
+										/* 1290 */
+										/* U+210B */ CANT_MAP_CHARACTER,
+										/* 1291 */
+										/* U+210C */ CANT_MAP_CHARACTER,
+										/* 1292 */
+										/* U+210D */ CANT_MAP_CHARACTER,
+										/* 1293 */
+										/* U+210E */ CANT_MAP_CHARACTER,
+										/* 1294 */
+										/* U+210F */ CANT_MAP_CHARACTER,
+										/* 1295 */
+										/* U+2110 */ CANT_MAP_CHARACTER,
+										/* 1296 */
+										/* U+2111 */ CANT_MAP_CHARACTER,
+										/* 1297 */
+										/* U+2112 */ CANT_MAP_CHARACTER,
+										/* 1298 */
+										/* U+2113 */ CANT_MAP_CHARACTER,
+										/* 1299 */
+										/* U+2114 */ CANT_MAP_CHARACTER,
+										/* 1300 */
+										/* U+2115 */ CANT_MAP_CHARACTER,
+										/* 1301 */
+										/* U+2116 */ CANT_MAP_CHARACTER,
+										/* 1302 */
+										/* U+2117 */ CANT_MAP_CHARACTER,
+										/* 1303 */
+										/* U+2118 */ CANT_MAP_CHARACTER,
+										/* 1304 */
+										/* U+2119 */ CANT_MAP_CHARACTER,
+										/* 1305 */
+										/* U+211A */ CANT_MAP_CHARACTER,
+										/* 1306 */
+										/* U+211B */ CANT_MAP_CHARACTER,
+										/* 1307 */
+										/* U+211C */ CANT_MAP_CHARACTER,
+										/* 1308 */
+										/* U+211D */ CANT_MAP_CHARACTER,
+										/* 1309 */
+										/* U+211E */ CANT_MAP_CHARACTER,
+										/* 1310 */
+										/* U+211F */ CANT_MAP_CHARACTER,
+										/* 1311 */
+										/* U+2120 */ CANT_MAP_CHARACTER,
+										/* 1312 */
+										/* U+2121 */ CANT_MAP_CHARACTER,
+										/* 1313 */
+	/* U+2122 */ 0x99 /*                               TRADE MARK SIGN */ ,	/* 1314 */
+										/* U+2123 */ CANT_MAP_CHARACTER,
+										/* 1315 */
+										/* U+2124 */ CANT_MAP_CHARACTER,
+										/* 1316 */
+										/* U+2125 */ CANT_MAP_CHARACTER,
+										/* 1317 */
+										/* U+2126 */ CANT_MAP_CHARACTER,
+										/* 1318 */
+										/* U+2127 */ CANT_MAP_CHARACTER,
+										/* 1319 */
+										/* U+2128 */ CANT_MAP_CHARACTER,
+										/* 1320 */
+										/* U+2129 */ CANT_MAP_CHARACTER,
+										/* 1321 */
+										/* U+212A */ CANT_MAP_CHARACTER,
+										/* 1322 */
+										/* U+212B */ CANT_MAP_CHARACTER,
+										/* 1323 */
+										/* U+212C */ CANT_MAP_CHARACTER,
+										/* 1324 */
+										/* U+212D */ CANT_MAP_CHARACTER,
+										/* 1325 */
+										/* U+212E */ CANT_MAP_CHARACTER,
+										/* 1326 */
+										/* U+212F */ CANT_MAP_CHARACTER,
+										/* 1327 */
+										/* U+2130 */ CANT_MAP_CHARACTER,
+										/* 1328 */
+										/* U+2131 */ CANT_MAP_CHARACTER,
+										/* 1329 */
+										/* U+2132 */ CANT_MAP_CHARACTER,
+										/* 1330 */
+										/* U+2133 */ CANT_MAP_CHARACTER,
+										/* 1331 */
+										/* U+2134 */ CANT_MAP_CHARACTER,
+										/* 1332 */
+										/* U+2135 */ CANT_MAP_CHARACTER,
+										/* 1333 */
+										/* U+2136 */ CANT_MAP_CHARACTER,
+										/* 1334 */
+										/* U+2137 */ CANT_MAP_CHARACTER,
+										/* 1335 */
+										/* U+2138 */ CANT_MAP_CHARACTER,
+										/* 1336 */
+										/* U+2139 */ CANT_MAP_CHARACTER,
+										/* 1337 */
+										/* U+213A */ CANT_MAP_CHARACTER,
+										/* 1338 */
+										/* U+213B */ CANT_MAP_CHARACTER,
+										/* 1339 */
+										/* U+213C */ CANT_MAP_CHARACTER,
+										/* 1340 */
+										/* U+213D */ CANT_MAP_CHARACTER,
+										/* 1341 */
+										/* U+213E */ CANT_MAP_CHARACTER,
+										/* 1342 */
+										/* U+213F */ CANT_MAP_CHARACTER,
+										/* 1343 */
+										/* U+2140 */ CANT_MAP_CHARACTER,
+										/* 1344 */
+										/* U+2141 */ CANT_MAP_CHARACTER,
+										/* 1345 */
+										/* U+2142 */ CANT_MAP_CHARACTER,
+										/* 1346 */
+										/* U+2143 */ CANT_MAP_CHARACTER,
+										/* 1347 */
+										/* U+2144 */ CANT_MAP_CHARACTER,
+										/* 1348 */
+										/* U+2145 */ CANT_MAP_CHARACTER,
+										/* 1349 */
+										/* U+2146 */ CANT_MAP_CHARACTER,
+										/* 1350 */
+										/* U+2147 */ CANT_MAP_CHARACTER,
+										/* 1351 */
+										/* U+2148 */ CANT_MAP_CHARACTER,
+										/* 1352 */
+										/* U+2149 */ CANT_MAP_CHARACTER,
+										/* 1353 */
+										/* U+214A */ CANT_MAP_CHARACTER,
+										/* 1354 */
+										/* U+214B */ CANT_MAP_CHARACTER,
+										/* 1355 */
+										/* U+214C */ CANT_MAP_CHARACTER,
+										/* 1356 */
+										/* U+214D */ CANT_MAP_CHARACTER,
+										/* 1357 */
+										/* U+214E */ CANT_MAP_CHARACTER,
+										/* 1358 */
+										/* U+214F */ CANT_MAP_CHARACTER,
+										/* 1359 */
+										/* U+2150 */ CANT_MAP_CHARACTER,
+										/* 1360 */
+										/* U+2151 */ CANT_MAP_CHARACTER,
+										/* 1361 */
+										/* U+2152 */ CANT_MAP_CHARACTER,
+										/* 1362 */
+										/* U+2153 */ CANT_MAP_CHARACTER,
+										/* 1363 */
+										/* U+2154 */ CANT_MAP_CHARACTER,
+										/* 1364 */
+										/* U+2155 */ CANT_MAP_CHARACTER,
+										/* 1365 */
+										/* U+2156 */ CANT_MAP_CHARACTER,
+										/* 1366 */
+										/* U+2157 */ CANT_MAP_CHARACTER,
+										/* 1367 */
+										/* U+2158 */ CANT_MAP_CHARACTER,
+										/* 1368 */
+										/* U+2159 */ CANT_MAP_CHARACTER,
+										/* 1369 */
+										/* U+215A */ CANT_MAP_CHARACTER,
+										/* 1370 */
+										/* U+215B */ CANT_MAP_CHARACTER,
+										/* 1371 */
+										/* U+215C */ CANT_MAP_CHARACTER,
+										/* 1372 */
+										/* U+215D */ CANT_MAP_CHARACTER,
+										/* 1373 */
+										/* U+215E */ CANT_MAP_CHARACTER,
+										/* 1374 */
+										/* U+215F */ CANT_MAP_CHARACTER,
+										/* 1375 */
+										/* U+2160 */ CANT_MAP_CHARACTER,
+										/* 1376 */
+										/* U+2161 */ CANT_MAP_CHARACTER,
+										/* 1377 */
+										/* U+2162 */ CANT_MAP_CHARACTER,
+										/* 1378 */
+										/* U+2163 */ CANT_MAP_CHARACTER,
+										/* 1379 */
+										/* U+2164 */ CANT_MAP_CHARACTER,
+										/* 1380 */
+										/* U+2165 */ CANT_MAP_CHARACTER,
+										/* 1381 */
+										/* U+2166 */ CANT_MAP_CHARACTER,
+										/* 1382 */
+										/* U+2167 */ CANT_MAP_CHARACTER,
+										/* 1383 */
+										/* U+2168 */ CANT_MAP_CHARACTER,
+										/* 1384 */
+										/* U+2169 */ CANT_MAP_CHARACTER,
+										/* 1385 */
+										/* U+216A */ CANT_MAP_CHARACTER,
+										/* 1386 */
+										/* U+216B */ CANT_MAP_CHARACTER,
+										/* 1387 */
+										/* U+216C */ CANT_MAP_CHARACTER,
+										/* 1388 */
+										/* U+216D */ CANT_MAP_CHARACTER,
+										/* 1389 */
+										/* U+216E */ CANT_MAP_CHARACTER,
+										/* 1390 */
+										/* U+216F */ CANT_MAP_CHARACTER,
+										/* 1391 */
+										/* U+2170 */ CANT_MAP_CHARACTER,
+										/* 1392 */
+										/* U+2171 */ CANT_MAP_CHARACTER,
+										/* 1393 */
+										/* U+2172 */ CANT_MAP_CHARACTER,
+										/* 1394 */
+										/* U+2173 */ CANT_MAP_CHARACTER,
+										/* 1395 */
+										/* U+2174 */ CANT_MAP_CHARACTER,
+										/* 1396 */
+										/* U+2175 */ CANT_MAP_CHARACTER,
+										/* 1397 */
+										/* U+2176 */ CANT_MAP_CHARACTER,
+										/* 1398 */
+										/* U+2177 */ CANT_MAP_CHARACTER,
+										/* 1399 */
+										/* U+2178 */ CANT_MAP_CHARACTER,
+										/* 1400 */
+										/* U+2179 */ CANT_MAP_CHARACTER,
+										/* 1401 */
+										/* U+217A */ CANT_MAP_CHARACTER,
+										/* 1402 */
+										/* U+217B */ CANT_MAP_CHARACTER,
+										/* 1403 */
+										/* U+217C */ CANT_MAP_CHARACTER,
+										/* 1404 */
+										/* U+217D */ CANT_MAP_CHARACTER,
+										/* 1405 */
+										/* U+217E */ CANT_MAP_CHARACTER,
+										/* 1406 */
+										/* U+217F */ CANT_MAP_CHARACTER,
+										/* 1407 */
+										/* U+2180 */ CANT_MAP_CHARACTER,
+										/* 1408 */
+										/* U+2181 */ CANT_MAP_CHARACTER,
+										/* 1409 */
+										/* U+2182 */ CANT_MAP_CHARACTER,
+										/* 1410 */
+										/* U+2183 */ CANT_MAP_CHARACTER,
+										/* 1411 */
+										/* U+2184 */ CANT_MAP_CHARACTER,
+										/* 1412 */
+										/* U+2185 */ CANT_MAP_CHARACTER,
+										/* 1413 */
+										/* U+2186 */ CANT_MAP_CHARACTER,
+										/* 1414 */
+										/* U+2187 */ CANT_MAP_CHARACTER,
+										/* 1415 */
+										/* U+2188 */ CANT_MAP_CHARACTER,
+										/* 1416 */
+										/* U+2189 */ CANT_MAP_CHARACTER,
+										/* 1417 */
+										/* U+218A */ CANT_MAP_CHARACTER,
+										/* 1418 */
+										/* U+218B */ CANT_MAP_CHARACTER,
+										/* 1419 */
+										/* U+218C */ CANT_MAP_CHARACTER,
+										/* 1420 */
+										/* U+218D */ CANT_MAP_CHARACTER,
+										/* 1421 */
+										/* U+218E */ CANT_MAP_CHARACTER,
+										/* 1422 */
+										/* U+218F */ CANT_MAP_CHARACTER,
+										/* 1423 */
+										/* U+2190 */ CANT_MAP_CHARACTER,
+										/* 1424 */
+										/* U+2191 */ CANT_MAP_CHARACTER,
+										/* 1425 */
+										/* U+2192 */ CANT_MAP_CHARACTER,
+										/* 1426 */
+										/* U+2193 */ CANT_MAP_CHARACTER,
+										/* 1427 */
+										/* U+2194 */ CANT_MAP_CHARACTER,
+										/* 1428 */
+										/* U+2195 */ CANT_MAP_CHARACTER,
+										/* 1429 */
+										/* U+2196 */ CANT_MAP_CHARACTER,
+										/* 1430 */
+										/* U+2197 */ CANT_MAP_CHARACTER,
+										/* 1431 */
+										/* U+2198 */ CANT_MAP_CHARACTER,
+										/* 1432 */
+										/* U+2199 */ CANT_MAP_CHARACTER,
+										/* 1433 */
+										/* U+219A */ CANT_MAP_CHARACTER,
+										/* 1434 */
+										/* U+219B */ CANT_MAP_CHARACTER,
+										/* 1435 */
+										/* U+219C */ CANT_MAP_CHARACTER,
+										/* 1436 */
+										/* U+219D */ CANT_MAP_CHARACTER,
+										/* 1437 */
+										/* U+219E */ CANT_MAP_CHARACTER,
+										/* 1438 */
+										/* U+219F */ CANT_MAP_CHARACTER,
+										/* 1439 */
+										/* U+21A0 */ CANT_MAP_CHARACTER,
+										/* 1440 */
+										/* U+21A1 */ CANT_MAP_CHARACTER,
+										/* 1441 */
+										/* U+21A2 */ CANT_MAP_CHARACTER,
+										/* 1442 */
+										/* U+21A3 */ CANT_MAP_CHARACTER,
+										/* 1443 */
+										/* U+21A4 */ CANT_MAP_CHARACTER,
+										/* 1444 */
+										/* U+21A5 */ CANT_MAP_CHARACTER,
+										/* 1445 */
+										/* U+21A6 */ CANT_MAP_CHARACTER,
+										/* 1446 */
+										/* U+21A7 */ CANT_MAP_CHARACTER,
+										/* 1447 */
+										/* U+21A8 */ CANT_MAP_CHARACTER,
+										/* 1448 */
+										/* U+21A9 */ CANT_MAP_CHARACTER,
+										/* 1449 */
+										/* U+21AA */ CANT_MAP_CHARACTER,
+										/* 1450 */
+										/* U+21AB */ CANT_MAP_CHARACTER,
+										/* 1451 */
+										/* U+21AC */ CANT_MAP_CHARACTER,
+										/* 1452 */
+										/* U+21AD */ CANT_MAP_CHARACTER,
+										/* 1453 */
+										/* U+21AE */ CANT_MAP_CHARACTER,
+										/* 1454 */
+										/* U+21AF */ CANT_MAP_CHARACTER,
+										/* 1455 */
+										/* U+21B0 */ CANT_MAP_CHARACTER,
+										/* 1456 */
+										/* U+21B1 */ CANT_MAP_CHARACTER,
+										/* 1457 */
+										/* U+21B2 */ CANT_MAP_CHARACTER,
+										/* 1458 */
+										/* U+21B3 */ CANT_MAP_CHARACTER,
+										/* 1459 */
+										/* U+21B4 */ CANT_MAP_CHARACTER,
+										/* 1460 */
+										/* U+21B5 */ CANT_MAP_CHARACTER,
+										/* 1461 */
+										/* U+21B6 */ CANT_MAP_CHARACTER,
+										/* 1462 */
+										/* U+21B7 */ CANT_MAP_CHARACTER,
+										/* 1463 */
+										/* U+21B8 */ CANT_MAP_CHARACTER,
+										/* 1464 */
+										/* U+21B9 */ CANT_MAP_CHARACTER,
+										/* 1465 */
+										/* U+21BA */ CANT_MAP_CHARACTER,
+										/* 1466 */
+										/* U+21BB */ CANT_MAP_CHARACTER,
+										/* 1467 */
+										/* U+21BC */ CANT_MAP_CHARACTER,
+										/* 1468 */
+										/* U+21BD */ CANT_MAP_CHARACTER,
+										/* 1469 */
+										/* U+21BE */ CANT_MAP_CHARACTER,
+										/* 1470 */
+										/* U+21BF */ CANT_MAP_CHARACTER,
+										/* 1471 */
+										/* U+21C0 */ CANT_MAP_CHARACTER,
+										/* 1472 */
+										/* U+21C1 */ CANT_MAP_CHARACTER,
+										/* 1473 */
+										/* U+21C2 */ CANT_MAP_CHARACTER,
+										/* 1474 */
+										/* U+21C3 */ CANT_MAP_CHARACTER,
+										/* 1475 */
+										/* U+21C4 */ CANT_MAP_CHARACTER,
+										/* 1476 */
+										/* U+21C5 */ CANT_MAP_CHARACTER,
+										/* 1477 */
+										/* U+21C6 */ CANT_MAP_CHARACTER,
+										/* 1478 */
+										/* U+21C7 */ CANT_MAP_CHARACTER,
+										/* 1479 */
+										/* U+21C8 */ CANT_MAP_CHARACTER,
+										/* 1480 */
+										/* U+21C9 */ CANT_MAP_CHARACTER,
+										/* 1481 */
+										/* U+21CA */ CANT_MAP_CHARACTER,
+										/* 1482 */
+										/* U+21CB */ CANT_MAP_CHARACTER,
+										/* 1483 */
+										/* U+21CC */ CANT_MAP_CHARACTER,
+										/* 1484 */
+										/* U+21CD */ CANT_MAP_CHARACTER,
+										/* 1485 */
+										/* U+21CE */ CANT_MAP_CHARACTER,
+										/* 1486 */
+										/* U+21CF */ CANT_MAP_CHARACTER,
+										/* 1487 */
+										/* U+21D0 */ CANT_MAP_CHARACTER,
+										/* 1488 */
+										/* U+21D1 */ CANT_MAP_CHARACTER,
+										/* 1489 */
+										/* U+21D2 */ CANT_MAP_CHARACTER,
+										/* 1490 */
+										/* U+21D3 */ CANT_MAP_CHARACTER,
+										/* 1491 */
+										/* U+21D4 */ CANT_MAP_CHARACTER,
+										/* 1492 */
+										/* U+21D5 */ CANT_MAP_CHARACTER,
+										/* 1493 */
+										/* U+21D6 */ CANT_MAP_CHARACTER,
+										/* 1494 */
+										/* U+21D7 */ CANT_MAP_CHARACTER,
+										/* 1495 */
+										/* U+21D8 */ CANT_MAP_CHARACTER,
+										/* 1496 */
+										/* U+21D9 */ CANT_MAP_CHARACTER,
+										/* 1497 */
+										/* U+21DA */ CANT_MAP_CHARACTER,
+										/* 1498 */
+										/* U+21DB */ CANT_MAP_CHARACTER,
+										/* 1499 */
+										/* U+21DC */ CANT_MAP_CHARACTER,
+										/* 1500 */
+										/* U+21DD */ CANT_MAP_CHARACTER,
+										/* 1501 */
+										/* U+21DE */ CANT_MAP_CHARACTER,
+										/* 1502 */
+										/* U+21DF */ CANT_MAP_CHARACTER,
+										/* 1503 */
+										/* U+21E0 */ CANT_MAP_CHARACTER,
+										/* 1504 */
+										/* U+21E1 */ CANT_MAP_CHARACTER,
+										/* 1505 */
+										/* U+21E2 */ CANT_MAP_CHARACTER,
+										/* 1506 */
+										/* U+21E3 */ CANT_MAP_CHARACTER,
+										/* 1507 */
+										/* U+21E4 */ CANT_MAP_CHARACTER,
+										/* 1508 */
+										/* U+21E5 */ CANT_MAP_CHARACTER,
+										/* 1509 */
+										/* U+21E6 */ CANT_MAP_CHARACTER,
+										/* 1510 */
+										/* U+21E7 */ CANT_MAP_CHARACTER,
+										/* 1511 */
+										/* U+21E8 */ CANT_MAP_CHARACTER,
+										/* 1512 */
+										/* U+21E9 */ CANT_MAP_CHARACTER,
+										/* 1513 */
+										/* U+21EA */ CANT_MAP_CHARACTER,
+										/* 1514 */
+										/* U+21EB */ CANT_MAP_CHARACTER,
+										/* 1515 */
+										/* U+21EC */ CANT_MAP_CHARACTER,
+										/* 1516 */
+										/* U+21ED */ CANT_MAP_CHARACTER,
+										/* 1517 */
+										/* U+21EE */ CANT_MAP_CHARACTER,
+										/* 1518 */
+										/* U+21EF */ CANT_MAP_CHARACTER,
+										/* 1519 */
+										/* U+21F0 */ CANT_MAP_CHARACTER,
+										/* 1520 */
+										/* U+21F1 */ CANT_MAP_CHARACTER,
+										/* 1521 */
+										/* U+21F2 */ CANT_MAP_CHARACTER,
+										/* 1522 */
+										/* U+21F3 */ CANT_MAP_CHARACTER,
+										/* 1523 */
+										/* U+21F4 */ CANT_MAP_CHARACTER,
+										/* 1524 */
+										/* U+21F5 */ CANT_MAP_CHARACTER,
+										/* 1525 */
+										/* U+21F6 */ CANT_MAP_CHARACTER,
+										/* 1526 */
+										/* U+21F7 */ CANT_MAP_CHARACTER,
+										/* 1527 */
+										/* U+21F8 */ CANT_MAP_CHARACTER,
+										/* 1528 */
+										/* U+21F9 */ CANT_MAP_CHARACTER,
+										/* 1529 */
+										/* U+21FA */ CANT_MAP_CHARACTER,
+										/* 1530 */
+										/* U+21FB */ CANT_MAP_CHARACTER,
+										/* 1531 */
+										/* U+21FC */ CANT_MAP_CHARACTER,
+										/* 1532 */
+										/* U+21FD */ CANT_MAP_CHARACTER,
+										/* 1533 */
+										/* U+21FE */ CANT_MAP_CHARACTER,
+										/* 1534 */
+										/* U+21FF */ CANT_MAP_CHARACTER,
+										/* 1535 */
+	0							/* END OF MAP TABLE */
+};
+static CONST USHORT from_unicode_map[256] = {
+/* U+00-- */ 256,
+/* U+01-- */ 512,
+/* U+02-- */ 768,
+/* U+03-- */ 0,
+/* U+04-- */ 0,
+/* U+05-- */ 0,
+/* U+06-- */ 0,
+/* U+07-- */ 0,
+/* U+08-- */ 0,
+/* U+09-- */ 0,
+/* U+0A-- */ 0,
+/* U+0B-- */ 0,
+/* U+0C-- */ 0,
+/* U+0D-- */ 0,
+/* U+0E-- */ 0,
+/* U+0F-- */ 0,
+/* U+10-- */ 0,
+/* U+11-- */ 0,
+/* U+12-- */ 0,
+/* U+13-- */ 0,
+/* U+14-- */ 0,
+/* U+15-- */ 0,
+/* U+16-- */ 0,
+/* U+17-- */ 0,
+/* U+18-- */ 0,
+/* U+19-- */ 0,
+/* U+1A-- */ 0,
+/* U+1B-- */ 0,
+/* U+1C-- */ 0,
+/* U+1D-- */ 0,
+/* U+1E-- */ 0,
+/* U+1F-- */ 0,
+/* U+20-- */ 1024,
+/* U+21-- */ 1280,
+/* U+22-- */ 0,
+/* U+23-- */ 0,
+/* U+24-- */ 0,
+/* U+25-- */ 0,
+/* U+26-- */ 0,
+/* U+27-- */ 0,
+/* U+28-- */ 0,
+/* U+29-- */ 0,
+/* U+2A-- */ 0,
+/* U+2B-- */ 0,
+/* U+2C-- */ 0,
+/* U+2D-- */ 0,
+/* U+2E-- */ 0,
+/* U+2F-- */ 0,
+/* U+30-- */ 0,
+/* U+31-- */ 0,
+/* U+32-- */ 0,
+/* U+33-- */ 0,
+/* U+34-- */ 0,
+/* U+35-- */ 0,
+/* U+36-- */ 0,
+/* U+37-- */ 0,
+/* U+38-- */ 0,
+/* U+39-- */ 0,
+/* U+3A-- */ 0,
+/* U+3B-- */ 0,
+/* U+3C-- */ 0,
+/* U+3D-- */ 0,
+/* U+3E-- */ 0,
+/* U+3F-- */ 0,
+/* U+40-- */ 0,
+/* U+41-- */ 0,
+/* U+42-- */ 0,
+/* U+43-- */ 0,
+/* U+44-- */ 0,
+/* U+45-- */ 0,
+/* U+46-- */ 0,
+/* U+47-- */ 0,
+/* U+48-- */ 0,
+/* U+49-- */ 0,
+/* U+4A-- */ 0,
+/* U+4B-- */ 0,
+/* U+4C-- */ 0,
+/* U+4D-- */ 0,
+/* U+4E-- */ 0,
+/* U+4F-- */ 0,
+/* U+50-- */ 0,
+/* U+51-- */ 0,
+/* U+52-- */ 0,
+/* U+53-- */ 0,
+/* U+54-- */ 0,
+/* U+55-- */ 0,
+/* U+56-- */ 0,
+/* U+57-- */ 0,
+/* U+58-- */ 0,
+/* U+59-- */ 0,
+/* U+5A-- */ 0,
+/* U+5B-- */ 0,
+/* U+5C-- */ 0,
+/* U+5D-- */ 0,
+/* U+5E-- */ 0,
+/* U+5F-- */ 0,
+/* U+60-- */ 0,
+/* U+61-- */ 0,
+/* U+62-- */ 0,
+/* U+63-- */ 0,
+/* U+64-- */ 0,
+/* U+65-- */ 0,
+/* U+66-- */ 0,
+/* U+67-- */ 0,
+/* U+68-- */ 0,
+/* U+69-- */ 0,
+/* U+6A-- */ 0,
+/* U+6B-- */ 0,
+/* U+6C-- */ 0,
+/* U+6D-- */ 0,
+/* U+6E-- */ 0,
+/* U+6F-- */ 0,
+/* U+70-- */ 0,
+/* U+71-- */ 0,
+/* U+72-- */ 0,
+/* U+73-- */ 0,
+/* U+74-- */ 0,
+/* U+75-- */ 0,
+/* U+76-- */ 0,
+/* U+77-- */ 0,
+/* U+78-- */ 0,
+/* U+79-- */ 0,
+/* U+7A-- */ 0,
+/* U+7B-- */ 0,
+/* U+7C-- */ 0,
+/* U+7D-- */ 0,
+/* U+7E-- */ 0,
+/* U+7F-- */ 0,
+/* U+80-- */ 0,
+/* U+81-- */ 0,
+/* U+82-- */ 0,
+/* U+83-- */ 0,
+/* U+84-- */ 0,
+/* U+85-- */ 0,
+/* U+86-- */ 0,
+/* U+87-- */ 0,
+/* U+88-- */ 0,
+/* U+89-- */ 0,
+/* U+8A-- */ 0,
+/* U+8B-- */ 0,
+/* U+8C-- */ 0,
+/* U+8D-- */ 0,
+/* U+8E-- */ 0,
+/* U+8F-- */ 0,
+/* U+90-- */ 0,
+/* U+91-- */ 0,
+/* U+92-- */ 0,
+/* U+93-- */ 0,
+/* U+94-- */ 0,
+/* U+95-- */ 0,
+/* U+96-- */ 0,
+/* U+97-- */ 0,
+/* U+98-- */ 0,
+/* U+99-- */ 0,
+/* U+9A-- */ 0,
+/* U+9B-- */ 0,
+/* U+9C-- */ 0,
+/* U+9D-- */ 0,
+/* U+9E-- */ 0,
+/* U+9F-- */ 0,
+/* U+A0-- */ 0,
+/* U+A1-- */ 0,
+/* U+A2-- */ 0,
+/* U+A3-- */ 0,
+/* U+A4-- */ 0,
+/* U+A5-- */ 0,
+/* U+A6-- */ 0,
+/* U+A7-- */ 0,
+/* U+A8-- */ 0,
+/* U+A9-- */ 0,
+/* U+AA-- */ 0,
+/* U+AB-- */ 0,
+/* U+AC-- */ 0,
+/* U+AD-- */ 0,
+/* U+AE-- */ 0,
+/* U+AF-- */ 0,
+/* U+B0-- */ 0,
+/* U+B1-- */ 0,
+/* U+B2-- */ 0,
+/* U+B3-- */ 0,
+/* U+B4-- */ 0,
+/* U+B5-- */ 0,
+/* U+B6-- */ 0,
+/* U+B7-- */ 0,
+/* U+B8-- */ 0,
+/* U+B9-- */ 0,
+/* U+BA-- */ 0,
+/* U+BB-- */ 0,
+/* U+BC-- */ 0,
+/* U+BD-- */ 0,
+/* U+BE-- */ 0,
+/* U+BF-- */ 0,
+/* U+C0-- */ 0,
+/* U+C1-- */ 0,
+/* U+C2-- */ 0,
+/* U+C3-- */ 0,
+/* U+C4-- */ 0,
+/* U+C5-- */ 0,
+/* U+C6-- */ 0,
+/* U+C7-- */ 0,
+/* U+C8-- */ 0,
+/* U+C9-- */ 0,
+/* U+CA-- */ 0,
+/* U+CB-- */ 0,
+/* U+CC-- */ 0,
+/* U+CD-- */ 0,
+/* U+CE-- */ 0,
+/* U+CF-- */ 0,
+/* U+D0-- */ 0,
+/* U+D1-- */ 0,
+/* U+D2-- */ 0,
+/* U+D3-- */ 0,
+/* U+D4-- */ 0,
+/* U+D5-- */ 0,
+/* U+D6-- */ 0,
+/* U+D7-- */ 0,
+/* U+D8-- */ 0,
+/* U+D9-- */ 0,
+/* U+DA-- */ 0,
+/* U+DB-- */ 0,
+/* U+DC-- */ 0,
+/* U+DD-- */ 0,
+/* U+DE-- */ 0,
+/* U+DF-- */ 0,
+/* U+E0-- */ 0,
+/* U+E1-- */ 0,
+/* U+E2-- */ 0,
+/* U+E3-- */ 0,
+/* U+E4-- */ 0,
+/* U+E5-- */ 0,
+/* U+E6-- */ 0,
+/* U+E7-- */ 0,
+/* U+E8-- */ 0,
+/* U+E9-- */ 0,
+/* U+EA-- */ 0,
+/* U+EB-- */ 0,
+/* U+EC-- */ 0,
+/* U+ED-- */ 0,
+/* U+EE-- */ 0,
+/* U+EF-- */ 0,
+/* U+F0-- */ 0,
+/* U+F1-- */ 0,
+/* U+F2-- */ 0,
+/* U+F3-- */ 0,
+/* U+F4-- */ 0,
+/* U+F5-- */ 0,
+/* U+F6-- */ 0,
+/* U+F7-- */ 0,
+/* U+F8-- */ 0,
+/* U+F9-- */ 0,
+/* U+FA-- */ 0,
+/* U+FB-- */ 0,
+/* U+FC-- */ 0,
+/* U+FD-- */ 0,
+/* U+FE-- */ 0,
+/* U+FF-- */ 0,
+};
diff --git a/src/intl/csjis2_p.h b/src/intl/csjis2_p.h
new file mode 100644
index 0000000000..1c8420c5b3
--- /dev/null
+++ b/src/intl/csjis2_p.h
@@ -0,0 +1,24 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef _CSJIS2_PROTO_H_
+#define _CSJIS2_PROTO_H_
+
+extern void unicode_init(void);
+
+#endif /* _CSJIS2_PROTO_H_ */
diff --git a/src/intl/cv_big5.c b/src/intl/cv_big5.c
new file mode 100644
index 0000000000..be0aa26c16
--- /dev/null
+++ b/src/intl/cv_big5.c
@@ -0,0 +1,319 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		cv_big5.c
+ *	DESCRIPTION:	Codeset conversion for BIG5 family codesets
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../intl/ldcommon.h"
+
+/* These macros have a duplicate in lc_big5.c */
+#define	BIG51(uc)	((UCHAR)((uc)&0xff)>=0xa1 && \
+			 (UCHAR)((uc)&0xff)<=0xfe)	/* BIG-5 1st-byte */
+#define	BIG52(uc)	((UCHAR)((uc)&0xff)>=0x40 && \
+			 (UCHAR)((uc)&0xff)<=0xfe)	/* BIG-5 2nd-byte */
+
+
+
+USHORT CVBIG5_big5_to_unicode(obj, dest_ptr, dest_len, src_ptr, src_len,
+							  err_code, err_position)
+	 CSCONVERT obj;
+	 USHORT *dest_ptr;
+	 USHORT dest_len;
+	 UCHAR *src_ptr;
+	 USHORT src_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	USHORT *start;
+	WCHAR ch;
+	WCHAR wide;
+	UCHAR ch1;
+	USHORT src_start = src_len;
+	USHORT this_len;
+	UCHAR c1, c2;
+
+	assert(src_ptr != NULL || dest_ptr == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CVBIG5_big5_to_unicode);
+	assert(obj->csconvert_datatable != NULL);
+	assert(obj->csconvert_misc != NULL);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (dest_ptr == NULL)
+		return (src_len * 2);
+
+	start = dest_ptr;
+	src_start = src_len;
+	while ((src_len) && (dest_len > 1)) {
+		if (*src_ptr & 0x80) {
+			c1 = *src_ptr++;
+
+			if (BIG51(c1)) {	/* first byte is Big5 */
+				if (src_len == 1) {
+					*err_code = CS_BAD_INPUT;
+					break;
+				}
+				c2 = *src_ptr++;
+				if (!(BIG52(c2))) {	/* Bad second byte */
+					*err_code = CS_BAD_INPUT;
+					break;
+				}
+				wide = (c1 << 8) + c2;
+				this_len = 2;
+			}
+			else {
+				*err_code = CS_BAD_INPUT;
+				break;
+			}
+		}
+		else {					/* it is ASCII */
+
+			wide = *src_ptr++;
+			this_len = 1;
+		}
+
+		/* Convert from BIG5 to UNICODE */
+		ch = ((USHORT *) obj->csconvert_datatable)
+			[((USHORT *) obj->csconvert_misc)[(USHORT) wide / 256]
+			 + (wide % 256)];
+
+		if ((ch == CS_CANT_MAP) && !(wide == CS_CANT_MAP)) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		}
+
+		*dest_ptr++ = ch;
+		dest_len -= 2;
+		src_len -= this_len;
+	};
+	if (src_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	};
+	*err_position = src_start - src_len;
+	return ((dest_ptr - start) * sizeof(*dest_ptr));
+}
+
+
+USHORT CVBIG5_unicode_to_big5(obj, big5_str, big5_len, unicode_str,
+							  unicode_len, err_code, err_position)
+	 CSCONVERT obj;
+	 UCHAR *big5_str;
+	 USHORT big5_len;
+	 USHORT *unicode_str;
+	 USHORT unicode_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	UCHAR *start;
+	WCHAR big5_ch;
+	WCHAR wide;
+	int tmp1, tmp2;
+	USHORT src_start = unicode_len;
+
+	assert(unicode_str != NULL || big5_str == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CVBIG5_unicode_to_big5);
+	assert(obj->csconvert_datatable != NULL);
+	assert(obj->csconvert_misc != NULL);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (big5_str == NULL)
+		return (unicode_len);	/* worst case - all han character input */
+
+	start = big5_str;
+	while ((big5_len) && (unicode_len > 1)) {
+		/* Convert from UNICODE to BIG5 code */
+		wide = *unicode_str++;
+
+		big5_ch = ((USHORT *) obj->csconvert_datatable)[
+														((USHORT *) obj->
+														 csconvert_misc)[
+																		 (USHORT)
+																		 wide
+																		 /
+																		 256]
+														+ (wide % 256)];
+		if ((big5_ch == CS_CANT_MAP) && !(wide == CS_CANT_MAP)) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		};
+
+		tmp1 = big5_ch / 256;
+		tmp2 = big5_ch % 256;
+		if (tmp1 == 0) {		/* ASCII character */
+			*big5_str++ = tmp2;
+			big5_len--;
+			unicode_len -= sizeof(*unicode_str);
+			continue;
+		};
+		if (big5_len < 2) {
+			*err_code = CS_TRUNCATION_ERROR;
+			break;
+		}
+		else {
+			assert(BIG51(tmp1));
+			assert(BIG52(tmp2));
+			*big5_str++ = tmp1;
+			*big5_str++ = tmp2;
+			unicode_len -= sizeof(*unicode_str);
+			big5_len -= 2;
+		};
+	}
+	if (unicode_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = src_start - unicode_len;
+	return ((big5_str - start) * sizeof(*big5_str));
+}
+
+
+USHORT CVBIG5_check_big5(big5_str, big5_len)
+	 UCHAR *big5_str;
+	 USHORT big5_len;
+{
+/**************************************
+ * Functional description
+ *      Make sure that the big5 string does not have any truncated 2 byte
+ *      character at the end. 
+ * If we have a truncated character then, 
+ *          return 1.  
+ *          else return(0);
+ **************************************/
+	UCHAR c1;
+
+	while (big5_len--) {
+		c1 = *big5_str;
+		if (BIG51(c1)) {		/* Is it  BIG-5 */
+			if (big5_len == 0)	/* truncated BIG-5 */
+				return (1);
+			else {
+				big5_str += 2;
+				big5_len -= 1;
+			}
+		}
+		else {					/* it is a ASCII */
+
+			big5_str++;
+		}
+	}
+	return (0);
+}
+
+
+USHORT CVBIG5_big5_byte2short(obj, dst, dst_len, src, src_len, err_code,
+							  err_position)
+	 CSCONVERT obj;
+	 UCHAR *dst;
+	 USHORT dst_len;
+	 UCHAR *src;
+	 USHORT src_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+/**************************************
+ * Functional description
+ *      Convert len number of bytes of BIG5 string in
+ *	src (char-based buffer) into dst (short-based buffer).
+ *	This routine merges:
+ *		1-byte ASCII into 1 short, and
+ *		2-byte BIG5 character into 1 short.
+ *
+ **************************************/
+	USHORT x;
+	UCHAR *dst_start;
+	USHORT src_start = src_len;
+
+	assert(src != NULL || dst == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+
+	*err_code = 0;
+/* Length estimate needed? */
+	if (dst == NULL)
+		return (2 * src_len);	/* worst case */
+
+	dst_start = dst;
+	while (src_len && (dst_len > (sizeof(USHORT) - 1))) {
+		if (BIG51(*src)) {
+			if (src_len < 2) {
+				*err_code = CS_BAD_INPUT;
+				break;
+			};
+			x = (*src << 8) + (*(src + 1));
+			src += 2;
+			src_len -= 2;
+		}
+		else {
+			x = *src++;
+			src_len--;
+		};
+		*(USHORT *) dst = x;	/* Assumes alignment */
+		dst += sizeof(USHORT);
+		dst_len -= sizeof(USHORT);
+	}
+	if (src_len && !*err_code)
+		*err_code = CS_TRUNCATION_ERROR;
+	*err_position = src_start - src_len;
+	return (dst - dst_start) * sizeof(*dst);
+}
+
+
+SSHORT CVBIG5_big5_mbtowc(obj, wc, src, src_len)
+	 CSCONVERT obj;
+	 WCHAR *wc;
+	 UCHAR *src;
+	 USHORT src_len;
+{
+/**************************************
+ * Functional description
+ *	Grab a single character from a mb stream.
+ *
+ **************************************/
+	WCHAR x;
+
+	assert(src != NULL);
+	assert(obj != NULL);
+
+	if (!src_len)
+		return -1;
+
+	if (BIG51(*src)) {
+		if (src_len < 2) {
+			return -1;
+		};
+		if (wc)
+			*wc = (*src << 8) + (*(src + 1));
+		return 2;
+	}
+	else {
+		if (wc)
+			*wc = *src++;
+		return 1;
+	};
+}
diff --git a/src/intl/cv_gb2312.c b/src/intl/cv_gb2312.c
new file mode 100644
index 0000000000..03ec48b519
--- /dev/null
+++ b/src/intl/cv_gb2312.c
@@ -0,0 +1,318 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		cv_gb2312.c
+ *	DESCRIPTION:	Codeset conversion for GB2312 family codesets
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../intl/ldcommon.h"
+
+/* These macros have a duplicate in lc_gb2312.c */
+#define	GB1(uc)	((UCHAR)((uc)&0xff)>=0xa1 && \
+			 (UCHAR)((uc)&0xff)<=0xfe)	/* GB2312 1st-byte */
+#define	GB2(uc)	((UCHAR)((uc)&0xff)>=0xa1 && \
+			 (UCHAR)((uc)&0xff)<=0xfe)	/* GB2312 2nd-byte */
+
+
+
+USHORT CVGB_gb2312_to_unicode(obj, dest_ptr, dest_len, src_ptr, src_len,
+							  err_code, err_position)
+	 CSCONVERT obj;
+	 USHORT *dest_ptr;
+	 USHORT dest_len;
+	 UCHAR *src_ptr;
+	 USHORT src_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	USHORT *start;
+	WCHAR ch;
+	WCHAR wide;
+	UCHAR ch1;
+	USHORT src_start = src_len;
+	USHORT this_len;
+	UCHAR c1, c2;
+
+	assert(src_ptr != NULL || dest_ptr == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CVGB_gb2312_to_unicode);
+	assert(obj->csconvert_datatable != NULL);
+	assert(obj->csconvert_misc != NULL);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (dest_ptr == NULL)
+		return (src_len * 2);
+
+	start = dest_ptr;
+	src_start = src_len;
+	while ((src_len) && (dest_len > 1)) {
+		if (*src_ptr & 0x80) {
+			c1 = *src_ptr++;
+
+			if (GB1(c1)) {		/* first byte is GB2312 */
+				if (src_len == 1) {
+					*err_code = CS_BAD_INPUT;
+					break;
+				}
+				c2 = *src_ptr++;
+				if (!(GB2(c2))) {	/* Bad second byte */
+					*err_code = CS_BAD_INPUT;
+					break;
+				}
+				wide = (c1 << 8) + c2;
+				this_len = 2;
+			}
+			else {
+				*err_code = CS_BAD_INPUT;
+				break;
+			}
+		}
+		else {					/* it is ASCII */
+
+			wide = *src_ptr++;
+			this_len = 1;
+		}
+
+		/* Convert from GB2312 to UNICODE */
+		ch = ((USHORT *) obj->csconvert_datatable)
+			[((USHORT *) obj->csconvert_misc)[(USHORT) wide / 256]
+			 + (wide % 256)];
+
+		if ((ch == CS_CANT_MAP) && !(wide == CS_CANT_MAP)) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		}
+
+		*dest_ptr++ = ch;
+		dest_len -= 2;
+		src_len -= this_len;
+	};
+	if (src_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	};
+	*err_position = src_start - src_len;
+	return ((dest_ptr - start) * sizeof(*dest_ptr));
+}
+
+
+USHORT CVGB_unicode_to_gb2312(obj, gb_str, gb_len, unicode_str, unicode_len,
+							  err_code, err_position)
+	 CSCONVERT obj;
+	 UCHAR *gb_str;
+	 USHORT gb_len;
+	 USHORT *unicode_str;
+	 USHORT unicode_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	UCHAR *start;
+	WCHAR gb_ch;
+	WCHAR wide;
+	int tmp1, tmp2;
+	USHORT src_start = unicode_len;
+
+	assert(unicode_str != NULL || gb_str == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CVGB_unicode_to_gb2312);
+	assert(obj->csconvert_datatable != NULL);
+	assert(obj->csconvert_misc != NULL);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (gb_str == NULL)
+		return (unicode_len);	/* worst case - all han character input */
+
+	start = gb_str;
+	while ((gb_len) && (unicode_len > 1)) {
+		/* Convert from UNICODE to GB2312 code */
+		wide = *unicode_str++;
+
+		gb_ch = ((USHORT *) obj->csconvert_datatable)[
+													  ((USHORT *) obj->
+													   csconvert_misc)[
+																	   (USHORT)
+																	   wide /
+																	   256] +
+													  (wide % 256)];
+		if ((gb_ch == CS_CANT_MAP) && !(wide == CS_CANT_MAP)) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		};
+
+		tmp1 = gb_ch / 256;
+		tmp2 = gb_ch % 256;
+		if (tmp1 == 0) {		/* ASCII character */
+			*gb_str++ = tmp2;
+			gb_len--;
+			unicode_len -= sizeof(*unicode_str);
+			continue;
+		};
+		if (gb_len < 2) {
+			*err_code = CS_TRUNCATION_ERROR;
+			break;
+		}
+		else {
+			assert(GB1(tmp1));
+			assert(GB2(tmp2));
+			*gb_str++ = tmp1;
+			*gb_str++ = tmp2;
+			unicode_len -= sizeof(*unicode_str);
+			gb_len -= 2;
+		};
+	}
+	if (unicode_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = src_start - unicode_len;
+	return ((gb_str - start) * sizeof(*gb_str));
+}
+
+
+USHORT CVGB_check_gb2312(gb_str, gb_len)
+	 UCHAR *gb_str;
+	 USHORT gb_len;
+{
+/**************************************
+ * Functional description
+ *      Make sure that the GB2312 string does not have any truncated 2 byte
+ *      character at the end. 
+ * If we have a truncated character then, 
+ *          return 1.  
+ *          else return(0);
+ **************************************/
+	UCHAR c1;
+
+	while (gb_len--) {
+		c1 = *gb_str;
+		if (GB1(c1)) {			/* Is it  GB2312 */
+			if (gb_len == 0)	/* truncated GB2312 */
+				return (1);
+			else {
+				gb_str += 2;
+				gb_len -= 1;
+			}
+		}
+		else {					/* it is a ASCII */
+
+			gb_str++;
+		}
+	}
+	return (0);
+}
+
+
+USHORT CVGB_gb2312_byte2short(obj, dst, dst_len, src, src_len, err_code,
+							  err_position)
+	 CSCONVERT obj;
+	 UCHAR *dst;
+	 USHORT dst_len;
+	 UCHAR *src;
+	 USHORT src_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+/**************************************
+ * Functional description
+ *      Convert len number of bytes of GB2312 string in
+ *	src (char-based buffer) into dst (short-based buffer).
+ *	This routine merges:
+ *		1-byte ASCII into 1 short, and
+ *		2-byte GB2312 character into 1 short.
+ *
+ **************************************/
+	USHORT x;
+	UCHAR *dst_start;
+	USHORT src_start = src_len;
+
+	assert(src != NULL || dst == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+
+	*err_code = 0;
+/* Length estimate needed? */
+	if (dst == NULL)
+		return (2 * src_len);	/* worst case */
+
+	dst_start = dst;
+	while (src_len && (dst_len > (sizeof(USHORT) - 1))) {
+		if (GB1(*src)) {
+			if (src_len < 2) {
+				*err_code = CS_BAD_INPUT;
+				break;
+			};
+			x = (*src << 8) + (*(src + 1));
+			src += 2;
+			src_len -= 2;
+		}
+		else {
+			x = *src++;
+			src_len--;
+		};
+		*(USHORT *) dst = x;	/* Assumes alignment */
+		dst += sizeof(USHORT);
+		dst_len -= sizeof(USHORT);
+	}
+	if (src_len && !*err_code)
+		*err_code = CS_TRUNCATION_ERROR;
+	*err_position = src_start - src_len;
+	return (dst - dst_start) * sizeof(*dst);
+}
+
+
+SSHORT CVGB_gb2312_mbtowc(obj, wc, src, src_len)
+	 CSCONVERT obj;
+	 WCHAR *wc;
+	 UCHAR *src;
+	 USHORT src_len;
+{
+/**************************************
+ * Functional description
+ *	Grab a single character from a mb stream.
+ *
+ **************************************/
+	WCHAR x;
+
+	assert(src != NULL);
+	assert(obj != NULL);
+
+	if (!src_len)
+		return -1;
+
+	if (GB1(*src)) {
+		if (src_len < 2) {
+			return -1;
+		};
+		if (wc)
+			*wc = (*src << 8) + (*(src + 1));
+		return 2;
+	}
+	else {
+		if (wc)
+			*wc = *src++;
+		return 1;
+	};
+}
diff --git a/src/intl/cv_jis.c b/src/intl/cv_jis.c
new file mode 100644
index 0000000000..08d11e217e
--- /dev/null
+++ b/src/intl/cv_jis.c
@@ -0,0 +1,1243 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		cv_jis.c
+ *	DESCRIPTION:	Codeset conversion for JIS family codesets
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../intl/ldcommon.h"
+#include "../intl/cs_sjis.h"
+
+
+
+USHORT CVJIS_eucj_to_unicode(obj, dest_ptr, dest_len, src_ptr, src_len,
+							 err_code, err_position)
+	 CSCONVERT obj;
+	 USHORT *dest_ptr;
+	 USHORT dest_len;
+	 UCHAR *src_ptr;
+	 USHORT src_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	USHORT *start;
+	WCHAR ch;
+	WCHAR wide;
+	UCHAR ch1;
+	USHORT src_start = src_len;
+	USHORT this_len;
+
+	assert(src_ptr != NULL || dest_ptr == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CVJIS_eucj_to_unicode);
+	assert(obj->csconvert_datatable != NULL);
+	assert(obj->csconvert_misc != NULL);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (dest_ptr == NULL)
+		return (src_len);
+
+	start = dest_ptr;
+	src_start = src_len;
+	while ((src_len) && (dest_len > 1)) {
+		ch1 = *src_ptr++;
+
+		/* Step 1: Convert from EUC to JIS */
+		if (!(ch1 & 0x80)) {	/* 1 byte SCHAR */
+			/* Plane 0 of EUC-J is defined as ASCII */
+			wide = ch1;
+			this_len = 1;
+
+			/* Step 2: Convert from ASCII to UNICODE */
+			ch = ch1;
+		}
+		else if (!src_len || !(*src_ptr & 0x80)) {
+			/* We received a multi-byte indicator, but either
+			   there isn't a 2nd byte or the 2nd byte isn't marked */
+			*err_code = CS_BAD_INPUT;
+			break;
+		}
+		else {
+			wide = ((ch1 << 8) + (*src_ptr++)) & ~0x8080;
+			this_len = 2;
+
+			/* Step 2: Convert from JIS to UNICODE */
+			ch = ((USHORT *) obj->csconvert_datatable)[
+													   ((USHORT *) obj->
+														csconvert_misc)[
+																		(USHORT)
+																		wide /
+																		256] +
+													   (wide % 256)];
+		};
+
+
+		/* No need to check for CS_CONVERT_ERROR -
+		 * EUCJ must convert to Unicode
+		 */
+
+		*dest_ptr++ = ch;
+		dest_len -= 2;
+		src_len -= this_len;
+	};
+	if (src_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	};
+	*err_position = src_start - src_len;
+	return ((dest_ptr - start) * sizeof(*dest_ptr));
+}
+
+
+#define S2E(s1, s2, j1, j2) \
+{ \
+  if (s2 >= 0x9f) { \
+    if (s1 >= 0xe0) j1 = (s1*2 - 0xe0); \
+    else j1 = (s1*2 - 0x60); \
+    j2 = (s2 + 2); \
+  } else { \
+    if (s1 >= 0xe0) j1 = (s1*2 - 0xe1); \
+    else j1 = (s1*2 - 0x61);\
+    if (s2 >= 0x7f) j2 = (s2 + 0x60); \
+    else j2 = (s2 +  0x61); \
+  } \
+}
+
+
+USHORT CVJIS_sjis_to_unicode(obj, dest_ptr, dest_len, sjis_str, sjis_len,
+							 err_code, err_position)
+	 CSCONVERT obj;
+	 USHORT *dest_ptr;
+	 USHORT dest_len;
+	 UCHAR *sjis_str;
+	 USHORT sjis_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	USHORT *start;
+	WCHAR ch;
+	WCHAR wide;
+	UCHAR c1, c2;
+	UCHAR tmp1, tmp2;
+	USHORT src_start = sjis_len;
+	USHORT this_len;
+	USHORT table;
+
+	assert(sjis_str != NULL || dest_ptr == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CVJIS_sjis_to_unicode);
+	assert(obj->csconvert_datatable != NULL);
+	assert(obj->csconvert_misc != NULL);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (dest_ptr == NULL)
+		return (sjis_len * 2);	/* worst case - all ascii input */
+
+	start = dest_ptr;
+	while ((sjis_len) && (dest_len > 1)) {
+		/* Step 1: Convert from SJIS to JIS code */
+		if (*sjis_str & 0x80) {	/* Non-Ascii - High bit set */
+			c1 = *sjis_str++;
+
+			if (SJIS1(c1)) {	/* First byte is a KANJI */
+				if (sjis_len == 1) {	/* truncated KANJI */
+					*err_code = CS_BAD_INPUT;
+					break;
+				}
+				c2 = *sjis_str++;
+				if (!(SJIS2(c2))) {	/* Bad second byte */
+					*err_code = CS_BAD_INPUT;
+					break;
+				}
+				/* Step 1b: Convert 2 byte SJIS to EUC-J */
+				S2E(c1, c2, tmp1, tmp2);
+
+				/* Step 2b: Convert 2 byte EUC-J to JIS */
+				wide = ((tmp1 << 8) + tmp2) & ~0x8080;
+				this_len = 2;
+				table = 1;
+			}
+			else if (SJIS_SINGLE(c1)) {
+				wide = c1;
+				this_len = 1;
+				table = 2;
+			}
+			else {				/* It is some bad character */
+
+				*err_code = CS_BAD_INPUT;
+				break;
+			}
+		}
+		else {					/* it is a ASCII */
+
+			wide = *sjis_str++;
+			this_len = 1;
+			table = 2;
+		}
+
+		/* Step 2: Convert from JIS code (in wide) to UNICODE */
+		if (table == 1)
+			ch = ((USHORT *) obj->csconvert_datatable)[
+													   ((USHORT *) obj->
+														csconvert_misc)[
+																		(USHORT)
+																		wide /
+																		256] +
+													   (wide % 256)];
+		else {
+			assert(table == 2);
+			assert(wide <= 255);
+			ch =
+				sjis_to_unicode_mapping_array[sjis_to_unicode_map
+											  [(USHORT) wide / 256]
+											  + (wide % 256)];
+		};
+
+		/* This is only important for bad-SJIS in input stream */
+		if ((ch == CS_CANT_MAP) && !(wide == CS_CANT_MAP)) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		};
+		*dest_ptr++ = ch;
+		dest_len -= 2;
+		sjis_len -= this_len;
+	}
+	if (sjis_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = src_start - sjis_len;
+	return ((dest_ptr - start) * sizeof(*dest_ptr));
+}
+
+
+/*
+From tate.a-t.com!uunet!Eng.Sun.COM!adobe!adobe.com!lunde Tue Nov 19 16:11:24 1991
+Return-Path: <uunet!Eng.Sun.COM!adobe!adobe.com!lunde@tate.a-t.com>
+Received: by dbase.a-t.com (/\==/\ Smail3.1.21.1 #21.5)
+	id <m0kjfXI-0004qKC@dbase.a-t.com>; Tue, 19 Nov 91 16:11 PST
+Received: by tate.a-t.com (/\==/\ Smail3.1.21.1 #21.1)
+	id <m0kjfPU-000Gf0C@tate.a-t.com>; Tue, 19 Nov 91 16:03 PST
+Received: from Sun.COM by relay1.UU.NET with SMTP 
+	(5.61/UUNET-internet-primary) id AA21144; Tue, 19 Nov 91 18:45:19 -0500
+Received: from Eng.Sun.COM (zigzag-bb.Corp.Sun.COM) by Sun.COM (4.1/SMI-4.1)
+	id AA04289; Tue, 19 Nov 91 15:40:59 PST
+Received: from cairo.Eng.Sun.COM by Eng.Sun.COM (4.1/SMI-4.1)
+	id AA12852; Tue, 19 Nov 91 15:39:48 PST
+Received: from snail.Sun.COM by cairo.Eng.Sun.COM (4.1/SMI-4.1)
+	id AA23752; Tue, 19 Nov 91 15:36:04 PST
+Received: from sun.Eng.Sun.COM by snail.Sun.COM (4.1/SMI-4.1)
+	id AA18716; Tue, 19 Nov 91 15:40:34 PST
+Received: from adobe.UUCP by sun.Eng.Sun.COM (4.1/SMI-4.1)
+	id AA25005; Tue, 19 Nov 91 15:39:21 PST
+Received: from lynton.adobe.com by adobe.com (4.0/SMI-4.0)
+	id AA22639; Tue, 19 Nov 91 15:39:57 PST
+Received: by lynton.adobe.com (4.0/SMI-4.0)
+	id AA08147; Tue, 19 Nov 91 15:39:45 PST
+Date: Tue, 19 Nov 91 15:39:45 PST
+From: tate!uunet!adobe.com!lunde (Ken Lunde)
+Message-Id: <9111192339.AA08147@lynton.adobe.com>
+To: unicode@Sun.COM
+Subject: JIS -> Shift-JIS algorithm...
+Status: OR
+
+Hi!
+
+     This posting is in response to Asmus' algorithm for converting
+JIS to Shift-JIS.
+
+
+     This is an explanation of the JIS->Shift-JIS conversion algorithm.
+I will first show my function, and then follow-up with a step-by-step
+description.
+     Note that all values listed are ASCII decimal. Here is the C coded
+function:
+
+C O D E:
+*/
+
+#define	isodd(x)	((x) & 1)
+
+static void seven2eight(p1, p2)
+	 USHORT *p1;
+	 USHORT *p2;
+{
+	if (isodd(*p1))
+		*p2 += 31;
+	else
+		*p2 += 126;
+	if ((*p2 >= 127) && (*p2 < 158))
+		(*p2)++;
+	if ((*p1 >= 33) && (*p1 <= 94)) {
+		if (isodd(*p1))
+			*p1 = ((*p1 - 1) / 2) + 113;
+		else if (!isodd(*p1))
+			*p1 = (*p1 / 2) + 112;
+	}
+	else if ((*p1 >= 95) && (*p1 <= 126)) {
+		if (isodd(*p1))
+			*p1 = ((*p1 - 1) / 2) + 177;
+		else if (!isodd(*p1))
+			*p1 = (*p1 / 2) + 176;
+	}
+}
+
+/*
+
+E X P L A N A T I O N:
+
+ORIGINAL CODE VALUES:
+JIS 1st:   76
+JIS 2nd:   36
+
+SJIS 1st: 150
+SJIS 2nd: 162
+
+STEPS:
+1) If the 1st JIS byte is odd, then add 31 to the 2nd byte. Otherwise,
+   add 126 to the 2nd byte.
+
+   EX: JIS 1st = 76 (is NOT odd), so JIS 2nd = 162 (36 + 126)
+
+   JIS 1st:   76
+   JIS 2nd:  162
+   SJIS 1st: 150
+   SJIS 2nd: 162
+
+   Note that the second byte has been converted to the target code
+   already.
+
+2) If the 2nd JIS byte is greater than or equal to 127 AND less than
+   158, then add 1 to the 2nd byte.
+
+   EX: JIS 2nd = 162 (not in the range), so nothing is done.
+
+3) If the 1st JIS byte is greater than or equal to 33 AND less than
+   or equal to 94, then do (a). Otherwise, if the 1st JIS byte
+   is greater than or equal to 95 AND less than or equal to 126, then
+   do step (b).
+
+   a) If the 1st JIS byte is odd, then subtract 1 from its value, divide
+      the result by 2, and finally add 113. Otherwise, divide the 1st JIS
+      byte by 2 and add 112.
+
+   b) If the 1st JIS byte is odd, then subtract 1 from its value, divide
+      the result by 2, and finally add 177. Otherwise, divide the 1st JIS
+      byte by 2 and add 176.
+
+EX: JIS 1st is in the range 33-94, so we execute step 3(a). JIS 1st = 76
+    (is NOT odd), so JIS 2nd = 150 ((76/2) + 112)
+   
+JIS 1st:  150
+JIS 2nd:  162
+
+SJIS 1st: 150
+SJIS 2nd: 162
+
+
+Here are the specs for JIS:
+
+                 DECIMAL            OCTAL              HEXADECIMAL
+1st Byte         033-126            041-176            21-7E
+2nd Byte         033-126            041-176            21-7E
+
+Here are the specs for Shift-JIS:
+
+                 DECIMAL            OCTAL              HEXADECIMAL
+TYPE 1:
+   1st Byte      129-159            201-237            81-9F
+   2nd Byte      064-158 (not 127)  100-236 (not 177)  40-9E (not 7F)
+TYPE 2:
+   1st Byte      224-239            340-357            E0-EF
+   2nd Byte      064-158 (not 127)  100-236 (not 177)  40-9E (not 7F)
+TYPE 3:
+   1st Byte      129-159            201-237            81-9F
+   2nd Byte      159-252            237-374            9F-FC
+TYPE 4:
+   1st Byte      224-239            340-357            E0-EF
+   2nd Byte      159-252            237-374            9F-FC
+Half-size katakana:
+   1st Byte      161-223            241-337            A1-DF
+
+I hope this helps in the discussion.
+
+-- Ken R. Lunde
+   Adobe Systems Incorporated
+   Japanese Font Production
+   lunde@adobe.com
+*/
+
+
+USHORT CVJIS_unicode_to_sjis(obj, sjis_str, sjis_len, unicode_str,
+							 unicode_len, err_code, err_position)
+	 CSCONVERT obj;
+	 UCHAR *sjis_str;
+	 USHORT sjis_len;
+	 USHORT *unicode_str;
+	 USHORT unicode_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	UCHAR *start;
+	WCHAR jis_ch;
+	WCHAR wide;
+	USHORT tmp1, tmp2;
+	USHORT src_start = unicode_len;
+
+	assert(unicode_str != NULL || sjis_str == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CVJIS_unicode_to_sjis);
+	assert(obj->csconvert_datatable != NULL);
+	assert(obj->csconvert_misc != NULL);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (sjis_str == NULL)
+		return (unicode_len);	/* worst case - all han character input */
+
+	start = sjis_str;
+	while ((sjis_len) && (unicode_len > 1)) {
+		/* Step 1: Convert from UNICODE to JIS code */
+		wide = *unicode_str++;
+
+		jis_ch = ((USHORT *) obj->csconvert_datatable)[
+													   ((USHORT *) obj->
+														csconvert_misc)[
+																		(USHORT)
+																		wide /
+																		256] +
+													   (wide % 256)];
+
+		if ((jis_ch == CS_CANT_MAP) && !(wide == CS_CANT_MAP)) {
+
+			/* Handle the non-JIS codes in SJIS (ASCII & half-width Kana) */
+			jis_ch =
+				sjis_from_unicode_mapping_array[sjis_from_unicode_map
+												[(USHORT) wide / 256]
+												+ (wide % 256)];
+			if ((jis_ch == CS_CANT_MAP) && !(wide == CS_CANT_MAP)) {
+				*err_code = CS_CONVERT_ERROR;
+				break;
+			};
+		};
+
+		/* Step 2: Convert from JIS code to SJIS */
+		tmp1 = jis_ch / 256;
+		tmp2 = jis_ch % 256;
+		if (tmp1 == 0) {		/* ASCII character */
+			*sjis_str++ = tmp2;
+			sjis_len--;
+			unicode_len -= sizeof(*unicode_str);
+			continue;
+		};
+		seven2eight(&tmp1, &tmp2);
+		if (tmp1 == 0) {		/* half-width kana ? */
+			assert(SJIS_SINGLE(tmp2));
+			*sjis_str++ = tmp2;
+			unicode_len -= sizeof(*unicode_str);
+			sjis_len--;
+		}
+		else if (sjis_len < 2) {
+			*err_code = CS_TRUNCATION_ERROR;
+			break;
+		}
+		else {
+			assert(SJIS1(tmp1));
+			assert(SJIS2(tmp2));
+			*sjis_str++ = tmp1;
+			*sjis_str++ = tmp2;
+			unicode_len -= sizeof(*unicode_str);
+			sjis_len -= 2;
+		};
+	}
+	if (unicode_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = src_start - unicode_len;
+	return ((sjis_str - start) * sizeof(*sjis_str));
+}
+
+
+USHORT CVJIS_unicode_to_eucj(obj, eucj_str, eucj_len, unicode_str,
+							 unicode_len, err_code, err_position)
+	 CSCONVERT obj;
+	 UCHAR *eucj_str;
+	 USHORT eucj_len;
+	 USHORT *unicode_str;
+	 USHORT unicode_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	UCHAR *start;
+	WCHAR jis_ch;
+	WCHAR wide;
+	USHORT tmp1, tmp2;
+	USHORT src_start = unicode_len;
+
+	assert(unicode_str != NULL || eucj_str == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CVJIS_unicode_to_eucj);
+	assert(obj->csconvert_datatable != NULL);
+	assert(obj->csconvert_misc != NULL);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (eucj_str == NULL)
+		return (unicode_len);	/* worst case - all han character input */
+
+	start = eucj_str;
+	while ((eucj_len) && (unicode_len > 1)) {
+		/* Step 1: Convert from UNICODE to JIS code */
+		wide = *unicode_str++;
+
+		/* ASCII range characters map directly -- others go to the table */
+		if (wide <= 0x007F)
+			jis_ch = wide;
+		else
+			jis_ch = ((USHORT *) obj->csconvert_datatable)[
+														   ((USHORT *) obj->
+															csconvert_misc)[
+																			(USHORT)
+																			wide
+																			/
+																			256]
+														   + (wide % 256)];
+		if ((jis_ch == CS_CANT_MAP) && !(wide == CS_CANT_MAP)) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		};
+
+		/* Step 2: Convert from JIS code to EUC-J */
+		tmp1 = jis_ch / 256;
+		tmp2 = jis_ch % 256;
+		if (tmp1 == 0) {		/* ASCII character */
+			assert(!(tmp2 & 0x80));
+			*eucj_str++ = tmp2;
+			eucj_len--;
+			unicode_len -= sizeof(*unicode_str);
+			continue;
+		};
+		if (eucj_len < 2) {
+			*err_code = CS_TRUNCATION_ERROR;
+			break;
+		}
+		else {
+			assert(!(tmp1 & 0x80));
+			assert(!(tmp2 & 0x80));
+			*eucj_str++ = tmp1 | 0x80;
+			*eucj_str++ = tmp2 | 0x80;
+			unicode_len -= sizeof(*unicode_str);
+			eucj_len -= 2;
+		};
+	}
+	if (unicode_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = src_start - unicode_len;
+	return ((eucj_str - start) * sizeof(*eucj_str));
+}
+
+
+static USHORT CVJIS_check_euc(euc_str, euc_len)
+	 UCHAR *euc_str;
+	 USHORT euc_len;
+{
+/**************************************
+ *
+ *      K A N J I _ c h e c k _ e u c 
+ *
+ **************************************
+ *
+ * Functional description
+ *	This is a cousin of the KANJI_check_sjis routine.
+ *      Make sure that the euc string does not have any truncated 2 byte
+ *      character at the end. * If we have a truncated character then, 
+ *          return 1.  
+ *          else return(0);
+ **************************************/
+	UCHAR c1, c2;
+
+
+	while (euc_len--) {
+		if (*euc_str & 0x80) {	/* Is it  EUC */
+			if (euc_len == 0) {	/* truncated kanji */
+				return (1);
+			}
+			else {
+				euc_str += 2;
+				euc_len -= 1;
+			}
+		}
+		else {					/* it is a ASCII */
+
+			euc_str++;
+		}
+	}
+	return (0);
+}
+
+
+
+static USHORT CVJIS_check_sjis(sjis_str, sjis_len)
+	 UCHAR *sjis_str;
+	 USHORT sjis_len;
+{
+/**************************************
+ *
+ *      K A N J I _ c h e c k _ s j i s
+ *
+ **************************************
+ *
+ * Functional description
+ *	This is a cousin of the KANJI_check_euc routine.
+ *      Make sure that the sjis string does not have any truncated 2 byte 
+ *	character at the end. *	If we have a truncated character then,
+ *	    return 1. 
+ *	    else return(0);
+ **************************************/
+
+	UCHAR c1;
+
+	while (sjis_len--) {
+		if (*sjis_str & 0x80) {	/* Is it  SJIS */
+			c1 = *sjis_str;
+			if (SJIS1(c1)) {	/* It is a KANJI */
+				if (sjis_len == 0) {	/* truncated KANJI */
+					return (1);
+				}
+				else {
+					sjis_str += 2;
+					sjis_len -= 1;
+				}
+			}
+			else {				/*It is a KANA */
+
+				sjis_str++;
+			}
+		}
+		else {					/* it is a ASCII */
+
+			sjis_str++;
+		}
+	}
+	return (0);
+}
+
+
+
+static USHORT CVJIS_euc2sjis(obj, sjis_str, sjis_len, euc_str, euc_len,
+							 err_code, err_position)
+	 CSCONVERT obj;
+	 UCHAR *euc_str, *sjis_str;
+	 USHORT euc_len, sjis_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+/**************************************
+ *
+ *      K A N J I _ e u c 2 s j i s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert euc_len number of bytes in euc_str to sjis_str .
+ *	sjis_len is the maximum size of the sjis buffer.
+ *
+ **************************************/
+	UCHAR c1, c2;
+	UCHAR *sjis_start;
+	USHORT src_start = euc_len;
+
+	assert(euc_str != NULL || sjis_str == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+
+	*err_code = 0;
+
+/* Length estimate needed? */
+	if (sjis_str == NULL)
+		return (euc_len);		/* worst case */
+
+	sjis_start = sjis_str;
+	while (euc_len && sjis_len) {
+		if (*euc_str & 0x80) {	/* Non-Ascii - High bit set */
+
+			c1 = *euc_str++;
+
+			if (EUC1(c1)) {		/* It is a EUC */
+				if (euc_len == 1) {
+					*err_code = CS_BAD_INPUT;	/* truncated EUC */
+					break;
+				}
+				c2 = *euc_str++;
+				if (!(EUC2(c2))) {
+					*err_code = CS_BAD_INPUT;	/* Bad EUC */
+					break;
+				}
+				if (c1 == 0x8e) {	/* Kana */
+					sjis_len--;
+					*sjis_str++ = c2;
+					euc_len -= 2;
+				}
+				else {			/* Kanji */
+
+					if (sjis_len < 2) {	/*buffer full */
+						*err_code = CS_TRUNCATION_ERROR;
+						break;
+					};
+					sjis_len -= 2;
+					euc_len -= 2;
+					c1 ^= 0x80;
+					c2 ^= 0x80;
+					*sjis_str++ =
+						(USHORT) (c1 - 0x21) / 2 +
+						((c1 <= 0x5e) ? 0x81 : 0xc1);
+					if (c1 & 1)	/* odd */
+						*sjis_str++ = c2 + ((c2 <= 0x5f) ? 0x1f : 0x20);
+					else
+						*sjis_str++ = c2 + 0x7e;
+				}
+			}
+			else {				/* It is some bad character */
+
+				*err_code = CS_BAD_INPUT;
+				break;
+			}
+		}
+		else {					/* ASCII */
+
+			euc_len--;
+			sjis_len--;
+			*sjis_str++ = *euc_str++;
+		}
+	}
+	if (euc_len && !*err_code)
+		*err_code = CS_TRUNCATION_ERROR;
+	*err_position = src_start - euc_len;
+	return (sjis_str - sjis_start);
+}
+
+
+
+USHORT CVJIS_euc_byte2short(obj, dst, dst_len, src, src_len, err_code,
+							err_position)
+	 CSCONVERT obj;
+	 UCHAR *dst;
+	 USHORT dst_len;
+	 UCHAR *src;
+	 USHORT src_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+/**************************************
+ *
+ *      C V _ K A N J I _ e u c _ b y t e 2 s h o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert len number of bytes of EUC string in
+ *	src (char-based buffer) into dst (short-based buffer).
+ *	This routine merges:
+ *		1-byte ASCII into 1 short, and
+ *		2-byte EUC kanji into 1 short.
+ *
+ **************************************/
+	USHORT x;
+	UCHAR *dst_start;
+	USHORT src_start = src_len;
+
+	assert(src != NULL || dst == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+
+	*err_code = 0;
+/* Length estimate needed? */
+	if (dst == NULL)
+		return (2 * src_len);	/* worst case */
+
+	dst_start = dst;
+	while (src_len && (dst_len > (sizeof(USHORT) - 1))) {
+		if (EUC1(*src)) {
+			if (src_len <= 1) {
+				*err_code = CS_BAD_INPUT;
+				break;
+			};
+			x = (*src << 8) + (*(src + 1));
+			src += 2;
+			src_len -= 2;
+		}
+		else {
+			x = *src++;
+			src_len--;
+		};
+		*(USHORT *) dst = x;	/* Assumes alignment */
+		dst += sizeof(USHORT);
+		dst_len -= sizeof(USHORT);
+	}
+	if (src_len && !*err_code)
+		*err_code = CS_TRUNCATION_ERROR;
+	*err_position = src_start - src_len;
+	return (dst - dst_start) * sizeof(*dst);
+}
+
+
+SSHORT CVJIS_euc_mbtowc(obj, wc, src, src_len)
+	 CSCONVERT obj;
+	 WCHAR *wc;
+	 UCHAR *src;
+	 USHORT src_len;
+{
+/**************************************
+ *
+ *      C V _ K A N J I _ e u c _ m b t o w c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Grab a single character from a mb stream.
+ *
+ **************************************/
+	WCHAR x;
+
+	assert(src != NULL);
+	assert(obj != NULL);
+
+	if (!src_len)
+		return -1;
+
+	if (EUC1(*src)) {
+		if (src_len <= 1) {
+			return -1;
+		};
+		if (wc)
+			*wc = (*src << 8) + (*(src + 1));
+		return 2;
+	}
+	else {
+		if (wc)
+			*wc = *src++;
+		return 1;
+	};
+}
+
+
+
+#ifdef NOT_NEEDED
+USHORT CVJIS_euc_len(sjis_str, sjis_len, euc_len)
+	 UCHAR *sjis_str;
+	 USHORT sjis_len, *euc_len;
+{
+/**************************************
+ *
+ *      K A N J I _ e u c _ l e n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Return the number of euc bytes corresponding to a given sjis string.
+ *	Returns 1 if invalid kanji is encountered.
+ *
+ **************************************/
+
+	UCHAR c1, c2;
+
+	*euc_len = 0;
+	while (sjis_len) {
+		if (*sjis_str & 0x80) {	/* Non-Ascii - High bit set */
+			c1 = *sjis_str++;
+			sjis_len--;
+
+			if (SJIS1(c1)) {	/* First byte is a KANJI */
+				if (sjis_len == 0)
+					return (1);	/* truncated KANJI */
+				c2 = *sjis_str++;
+				sjis_len--;
+				if (!(SJIS2(c2)))
+					return (1);	/* Bad second byte */
+				*euc_len += 2;	/* Good Kanji */
+			}
+			else if (SJIS_SINGLE(c1))
+				*euc_len += 2;	/* Kana */
+			else
+				return (1);		/* It is some bad character */
+		}
+		else {					/* it is a ASCII */
+
+			sjis_len--;
+			*euc_len += 1;
+			sjis_str++;
+		}
+	}
+	return (0);
+}
+#endif
+
+
+static USHORT CVJIS_sjis2euc(obj, euc_str, euc_len, sjis_str, sjis_len,
+							 err_code, err_position)
+	 CSCONVERT obj;
+	 UCHAR *euc_str, *sjis_str;
+	 USHORT sjis_len, euc_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+/**************************************
+ *
+ *      K A N J I _ s j i s 2 e u c
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert sjis_len number of bytes in sjis_str to euc_str .
+ *
+ **************************************/
+
+	UCHAR c1, c2;
+	UCHAR *euc_start;
+	USHORT src_start = sjis_len;
+
+	assert(sjis_str != NULL || euc_str == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+
+	*err_code = 0;
+	if (euc_str == NULL)
+		return (2 * sjis_len);	/* worst case */
+
+	euc_start = euc_str;
+	while (sjis_len && euc_len) {
+
+		if (*sjis_str & 0x80) {	/* Non-Ascii - High bit set */
+			c1 = *sjis_str++;
+			if (SJIS1(c1)) {	/* First byte is a KANJI */
+				if (sjis_len == 1) {	/* truncated KANJI */
+					*err_code = CS_BAD_INPUT;
+					break;
+				}
+				c2 = *sjis_str++;
+				if (!(SJIS2(c2))) {	/* Bad second byte */
+					*err_code = CS_BAD_INPUT;
+					break;
+				}
+				if (euc_len < 2) {	/*buffer full */
+					*err_code = CS_TRUNCATION_ERROR;
+					break;
+				};
+				S2E(c1, c2, *euc_str, *(euc_str + 1));
+				euc_str += 2;
+				euc_len -= 2;
+				sjis_len -= 2;
+			}
+			else if (SJIS_SINGLE(c1)) {
+				if (euc_len < 2) {	/*buffer full */
+					*err_code = CS_TRUNCATION_ERROR;
+					break;
+				}
+				euc_len -= 2;	/* Kana */
+				sjis_len--;
+				*euc_str++ = 0x8e;
+				*euc_str++ = c1;
+			}
+			else {				/* It is some bad character */
+
+				*err_code = CS_BAD_INPUT;
+				break;
+			}
+		}
+		else {					/* it is a ASCII */
+
+			euc_len--;
+			sjis_len--;
+			*euc_str++ = *sjis_str++;
+		}
+	}
+	if (sjis_len && !*err_code)
+		*err_code = CS_TRUNCATION_ERROR;
+	*err_position = src_start - sjis_len;
+	return (euc_str - euc_start);
+}
+
+
+
+USHORT CVJIS_sjis_byte2short(obj, dst, dst_len, src, src_len, err_code,
+							 err_position)
+	 CSCONVERT obj;
+	 UCHAR *dst;
+	 USHORT dst_len;			/* byte count */
+	 UCHAR *src;
+	 USHORT src_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+/**************************************
+ *
+ *      K A N J I _ s j i s _ b y t e 2 s h o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert len number of bytes of SJIS string in
+ *	src (char-based buffer) into dst (short-based buffer).
+ *	This routine merges:
+ *		1-byte ASCII into 1 short,
+ *		1-byte SJIS kana 1 short, and
+ *		2-byte SJIS kanji into 1 short.
+ *	Return the number of "bytes" in dst.
+ *
+ **************************************/
+	USHORT l, x;
+	UCHAR *dst_start;
+	USHORT src_start = src_len;
+
+	assert(obj != NULL);
+	assert(src != NULL || dst == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+
+	*err_code = 0;
+	if (dst == NULL)
+		return (2 * src_len);	/* worst case */
+
+	dst_start = dst;
+	while (src_len && (dst_len > (sizeof(USHORT) - 1))) {
+		if (SJIS1(*src)) {
+			if (src_len <= 1) {
+				*err_code = CS_BAD_INPUT;
+				break;
+			};
+			x = (*src << 8) + *(src + 1);
+			src_len -= 2;
+			src += 2;
+		}
+		else {
+			x = *src++;
+			src_len--;
+		}
+		*(USHORT *) dst = x;	/* assuming alignment OK */
+		dst += sizeof(USHORT);
+		dst_len -= sizeof(USHORT);
+	}
+	if (src_len && !*err_code)
+		*err_code = CS_TRUNCATION_ERROR;
+
+	*err_position = (src_start - src_len);
+	return (dst - dst_start) * sizeof(*dst);
+}
+
+
+SSHORT CVJIS_sjis_mbtowc(obj, wc, src, src_len)
+	 CSCONVERT obj;
+	 WCHAR *wc;
+	 UCHAR *src;
+	 USHORT src_len;
+{
+/**************************************
+ *
+ *      C V _ K A N J I _ s j i s _ m b t o w c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Grab a single character from a mb stream.
+ *
+ **************************************/
+
+	assert(src != NULL);
+	assert(obj != NULL);
+
+	if (!src_len)
+		return -1;
+
+	if (SJIS1(*src)) {
+		if (src_len <= 1) {
+			return -1;
+		};
+		if (wc)
+			*wc = (*src << 8) + (*(src + 1));
+		return 2;
+	}
+	else {
+		if (wc)
+			*wc = *src++;
+		return 1;
+	};
+}
+
+
+
+#ifdef NOT_NEEDED
+USHORT CVJIS_sjis2euc5(sjis_str, sjis_len, euc_str, euc_buf_len, euc_len,
+					   ib_sjis, ib_euc)
+	 UCHAR *sjis_str, *euc_str;
+	 USHORT sjis_len, euc_buf_len, *euc_len, *ib_sjis, *ib_euc;
+{
+/**************************************
+ *
+ *      K A N J I _ s j i s 2 e u c 5
+ *
+ **************************************
+ *
+ * Functional description
+ *	Similar to KANJI_sjis2euc().
+ *	Differences:
+ *	(1) when buffer is full, returns (1).
+ *	(2) when there's invalid char, returns(2).
+ *	(3) two additional parameters are:
+ *		ib_sjis		number of in-bound sjis character
+ *		ib_euc		number of in-bound euc character
+ * This function is designed to convert blob segment from SJIS to EUC
+ * on retrieval. The reason we have ib_sjis and ib_euc is to keep
+ * track of splitting fragments from segments.
+ *
+ **************************************/
+	UCHAR c1, c2;
+
+	*euc_len = 0;
+	*ib_sjis = *ib_euc = 0;
+	while (sjis_len) {
+		if (*euc_len >= euc_buf_len)	/*buffer full */
+			return (1);
+
+		if (*sjis_str & 0x80) {	/* Non-Ascii - High bit set */
+			c1 = *sjis_str++;
+			sjis_len--;
+
+			if (SJIS1(c1)) {	/* First byte is a KANJI */
+				if (sjis_len == 0)
+					return (2);	/* truncated KANJI */
+				c2 = *sjis_str++;
+				sjis_len--;
+				if (!(SJIS2(c2)))
+					return (2);	/* Bad second byte */
+				*euc_len += 2;	/* Good Kanji */
+				if (*euc_len > euc_buf_len)	/*buffer full */
+					return (1);
+				S2E(c1, c2, *euc_str, *(euc_str + 1));
+				euc_str += 2;
+				*ib_sjis += 2;
+				*ib_euc += 2;
+			}
+			else if (SJIS_SINGLE(c1)) {
+				*euc_len += 2;	/* Kana */
+				if (*euc_len > euc_buf_len)	/*buffer full */
+					return (1);
+				*euc_str++ = 0x8e;
+				*euc_str++ = c1;
+				(*ib_sjis)++;
+				*ib_euc += 2;
+			}
+			else
+				return (2);		/* It is some bad character */
+		}
+		else {					/* it is a ASCII */
+
+			*euc_len += 1;
+			sjis_len--;
+			*euc_str++ = *sjis_str++;
+			(*ib_sjis)++;
+			(*ib_euc)++;
+		}
+	}
+	return (0);
+}
+
+
+
+USHORT CVJIS_sjis_len(euc_str, euc_len, sjis_len)
+	 UCHAR *euc_str;
+	 USHORT euc_len, *sjis_len;
+{
+/**************************************
+ *
+ *      K A N J I _ s j i s _ l e n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find the number of sjis bytes corresponding to a given euc string.
+ *	Returns 1 if invalid kanji is encountered.
+ *
+ **************************************/
+
+	UCHAR c1, c2;
+
+	*sjis_len = 0;
+	while (euc_len) {
+		if (*euc_str & 0x80) {	/* Non-Ascii - High bit set */
+			c1 = *euc_str++;
+			euc_len--;
+
+			if (EUC1(c1)) {		/* It is a EUC */
+				if (euc_len == 0)
+					return (1);	/* truncated EUC */
+				c2 = *euc_str++;
+				euc_len--;
+				if (!(EUC2(c2)))
+					return (1);	/* Bad EUC */
+				if (c1 == 0x8e)
+					*sjis_len += 1;	/* Kana */
+				else
+					*sjis_len += 2;	/* Kanji */
+			}
+			else				/* It is some bad character */
+				return (1);
+		}
+		else {					/* ASCII */
+
+			euc_len--;
+			*sjis_len += 1;
+			euc_str++;
+		}
+	}
+	return (0);
+}
+
+#endif
+
+
+
+
+
+CONVERT_ENTRY(CS_SJIS, CS_EUCJ, CVJIS_sjis_x_eucj)
+{
+	if (dest_cs == CS_EUCJ)
+		CV_convert_init(csptr, dest_cs, source_cs, CVJIS_sjis2euc,
+						NULL, NULL);
+	else
+		CV_convert_init(csptr, dest_cs, source_cs, CVJIS_euc2sjis,
+						NULL, NULL);
+
+	CONVERT_RETURN;
+}
diff --git a/src/intl/cv_ksc.c b/src/intl/cv_ksc.c
new file mode 100644
index 0000000000..8463fec514
--- /dev/null
+++ b/src/intl/cv_ksc.c
@@ -0,0 +1,312 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		cv_ksc.c
+ *	DESCRIPTION:	Codeset conversion for KSC-5601 codesets
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../intl/ldcommon.h"
+
+
+
+
+/*
+*	KSC-5601 -> unicode
+*	% KSC-5601 is same to EUC cs1(codeset 1). Then converting 
+*	KSC-5601 to EUC is not needed.
+*/
+
+/* These macros have a duplicate in lc_ksc.c */
+#define	KSC1(uc)	((uc) & 0x80)
+#define	KSC2(uc)	((uc) >= 0x41)
+
+
+USHORT CVKSC_ksc_to_unicode(obj, dest_ptr, dest_len, ksc_str, ksc_len,
+							err_code, err_position)
+	 CSCONVERT obj;
+	 USHORT *dest_ptr;
+	 USHORT dest_len;
+	 UCHAR *ksc_str;
+	 USHORT ksc_len;
+	 short *err_code;
+	 USHORT *err_position;
+{
+	USHORT *start;
+	WCHAR ch;
+	WCHAR wide;
+	UCHAR c1, c2;
+	UCHAR tmp1, tmp2;
+	USHORT src_start = ksc_len;
+	USHORT this_len;
+
+	assert(ksc_str != NULL || dest_ptr == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CVKSC_ksc_to_unicode);
+	assert(obj->csconvert_datatable != NULL);
+	assert(obj->csconvert_misc != NULL);
+
+	*err_code = 0;
+
+	if (dest_ptr == NULL)
+		return (ksc_len * 2);
+
+	start = dest_ptr;
+	while (ksc_len && dest_len > 1) {
+		if (*ksc_str & 0x80) {
+			c1 = *ksc_str++;
+
+			if (KSC1(c1)) {		/* first byte is KSC */
+				if (ksc_len == 1) {
+					*err_code = CS_BAD_INPUT;
+					break;
+				}
+				c2 = *ksc_str++;
+				if (!(KSC2(c2))) {	/* Bad second byte */
+					*err_code = CS_BAD_INPUT;
+					break;
+				}
+				wide = (c1 << 8) + c2;
+				this_len = 2;
+			}
+			else {
+				*err_code = CS_BAD_INPUT;
+				break;
+			}
+		}
+		else {					/* it is ASCII */
+
+			wide = *ksc_str++;
+			this_len = 1;
+		}
+
+		ch = ((USHORT *) obj->csconvert_datatable)
+			[((USHORT *) obj->csconvert_misc)[(USHORT) wide / 256] +
+			 (wide % 256)];
+
+		if ((ch == CS_CANT_MAP) && !(wide == CS_CANT_MAP)) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		}
+		*dest_ptr++ = ch;
+		dest_len -= 2;
+		ksc_len -= this_len;
+	}
+
+	if (ksc_len && !*err_code)
+		*err_code = CS_TRUNCATION_ERROR;
+	*err_position = src_start - ksc_len;
+	return ((dest_ptr - start) * sizeof(*dest_ptr));
+}
+
+
+USHORT CVKSC_unicode_to_ksc(obj, ksc_str, ksc_len, unicode_str, unicode_len,
+							err_code, err_position)
+	 CSCONVERT obj;
+	 UCHAR *ksc_str;
+	 USHORT ksc_len;
+	 USHORT *unicode_str;
+	 USHORT unicode_len;
+	 short *err_code;
+	 USHORT *err_position;
+{
+	UCHAR *start;
+	WCHAR ksc_ch;
+	WCHAR wide;
+	int tmp1, tmp2;
+	USHORT src_start = unicode_len;
+
+	assert(unicode_str != NULL || ksc_str == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CVKSC_unicode_to_ksc);
+	assert(obj->csconvert_datatable != NULL);
+	assert(obj->csconvert_misc != NULL);
+
+	*err_code = 0;
+
+	if (ksc_str == NULL)
+		return (unicode_len);
+
+	start = ksc_str;
+	while (ksc_len && unicode_len > 1) {
+		wide = *unicode_str++;
+
+		ksc_ch = ((USHORT *) obj->csconvert_datatable)[
+													   ((USHORT *) obj->
+														csconvert_misc)[
+																		(USHORT)
+																		wide /
+																		256] +
+													   (wide % 256)];
+		if ((ksc_ch == CS_CANT_MAP) && !(wide == CS_CANT_MAP)) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		}
+		tmp1 = ksc_ch / 256;
+		tmp2 = ksc_ch % 256;
+		if (tmp1 == 0) {		/* ASCII */
+			*ksc_str++ = tmp2;
+			ksc_len--;
+			unicode_len -= sizeof(*unicode_str);
+			continue;
+		}
+		if (ksc_len < 2) {
+			*err_code = CS_TRUNCATION_ERROR;
+			break;
+		}
+		else {
+			assert(KSC1(tmp1));
+			assert(KSC2(tmp2));
+			*ksc_str++ = tmp1;
+			*ksc_str++ = tmp2;
+			unicode_len -= sizeof(*unicode_str);
+			ksc_len -= 2;
+		}
+	}							/* end-while */
+	if (unicode_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = src_start - unicode_len;
+	return ((ksc_str - start) * sizeof(*ksc_str));
+}
+
+
+USHORT CVKSC_check_ksc(ksc_str, ksc_len)
+	 UCHAR *ksc_str;
+	 USHORT ksc_len;
+{
+	UCHAR c1;
+
+	while (ksc_len--) {
+		c1 = *ksc_str;
+		if (KSC1(c1)) {			/* Is it KSC-5601 ? */
+			if (ksc_len == 0)	/* truncated KSC */
+				return (1);
+			else {
+				ksc_str += 2;
+				ksc_len -= 1;
+			}
+		}
+		else if (c1 > 0x7f)		/* error */
+			return 1;
+		else					/* ASCII */
+			ksc_str++;
+	}
+	return (0);
+}
+
+
+USHORT CVKSC_ksc_byte2short(obj, dst, dst_len, src, src_len, err_code,
+							err_position)
+	 CSCONVERT obj;
+	 USHORT *dst;
+	 USHORT dst_len;
+	 UCHAR *src;
+	 USHORT src_len;
+	 short *err_code;
+	 USHORT *err_position;
+{
+	USHORT l, x;
+	USHORT *dst_start;
+	USHORT src_start = src_len;
+
+	assert(obj != NULL);
+	assert(src != NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+
+#ifdef DEBUG
+	ib_printf("dst_len = %d, src_len = %d\n src = %s\n", dst_len, src_len,
+			  src);
+#endif
+
+	*err_code = 0;
+	if (dst == NULL)
+		return (2 * src_len);
+
+	dst_start = dst;
+	while (src_len && dst_len > 1) {
+		if (KSC1(*src)) {		/* KSC ? */
+			if (src_len < 2) {
+				*err_code = CS_BAD_INPUT;
+				break;
+			}
+			x = (*src << 8) + *(src + 1);
+			src += 2;
+			src_len -= 2;
+		}
+		else if (*src > 0x7f) {	/* error */
+			*err_code = CS_BAD_INPUT;
+			break;
+		}
+		else {					/* ASCII */
+
+			x = *src++;
+			src_len -= 1;
+		}
+		*dst = x;
+		dst++;
+		dst_len -= 2;
+	}
+	if (src_len && !*err_code)
+		*err_code = CS_TRUNCATION_ERROR;
+
+#ifdef DEBUG
+	ib_printf("dest len = %d %d characters\n",
+			  (dst - dst_start) * sizeof(*dst), dst - dst_start);
+	dump_short_hex(dst_start, (dst - dst_start) * sizeof(*dst));
+#endif
+
+	*err_position = src_start - src_len;
+	return ((dst - dst_start) * sizeof(*dst));
+}
+
+
+short CVKSC_ksc_mbtowc(obj, wc, src, src_len)
+	 CSCONVERT obj;
+	 WCHAR *wc;
+	 UCHAR *src;
+	 USHORT src_len;
+{
+	assert(src != NULL);
+	assert(obj != NULL);
+
+	if (!src_len)
+		return -1;
+
+	if (KSC1(*src)) {			/* KSC */
+		if (src_len < 2) {
+			return -1;
+		}
+		if (wc)
+			*wc = (*src << 8) + *(src + 1);
+		return 2;
+	}
+	else if (*src > 0x7f)		/* error */
+		return -1;
+	else {						/* ASCII */
+
+		if (wc)
+			*wc = *src++;
+		return 1;
+	}
+}
diff --git a/src/intl/cv_narrow.c b/src/intl/cv_narrow.c
new file mode 100644
index 0000000000..d2a54f8b9e
--- /dev/null
+++ b/src/intl/cv_narrow.c
@@ -0,0 +1,342 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		cv_narrow.c
+ *	DESCRIPTION:	Codeset conversion for narrow character sets.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+
+
+
+void CV_convert_init(csptr, to_cs, from_cs, cvt_fn, datatable, datatable2)
+	 CSCONVERT csptr;
+	 SSHORT to_cs;
+	 SSHORT from_cs;
+	 FPTR_SHORT cvt_fn;
+	 BYTE *datatable;
+	 BYTE *datatable2;
+{
+	csptr->csconvert_version = 40;
+	csptr->csconvert_name = (ASCII *) "DIRECT";
+	csptr->csconvert_from = from_cs;
+	csptr->csconvert_to = to_cs;
+	csptr->csconvert_convert = cvt_fn;
+	csptr->csconvert_datatable = datatable;
+	csptr->csconvert_misc = datatable2;
+}
+
+
+
+USHORT CV_unicode_to_nc(obj, dest_ptr, dest_len, src_ptr, src_len, err_code,
+						err_position)
+	 CSCONVERT obj;
+	 BYTE *dest_ptr;
+	 USHORT dest_len;
+	 BYTE *src_ptr;
+	 USHORT src_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	BYTE *start;
+	USHORT src_start = src_len;
+	UCHAR ch;
+	UNICODE uni;
+
+	assert(src_ptr != NULL || dest_ptr == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CV_unicode_to_nc);
+	assert(obj->csconvert_datatable != NULL);
+	assert(obj->csconvert_misc != NULL);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (dest_ptr == NULL)
+		return ((USHORT) (src_len + 1) / 2);
+
+	start = dest_ptr;
+	while ((src_len > 1) && dest_len) {
+		uni = *((UNICODE *) src_ptr);
+		ch = obj->csconvert_datatable[
+									  ((USHORT *) obj->
+									   csconvert_misc)[(USHORT) uni / 256]
+									  + (uni % 256)];
+		if ((ch == CS_CANT_MAP) && !(uni == CS_CANT_MAP)) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		}
+		*dest_ptr++ = ch;
+		src_ptr += 2;
+		src_len -= 2;
+		dest_len -= 1;
+	};
+	if (src_len && !*err_code) {
+		if (src_len == 1)
+			*err_code = CS_BAD_INPUT;
+		else
+			*err_code = CS_TRUNCATION_ERROR;
+	};
+	*err_position = src_start - src_len;
+	return (dest_ptr - start);
+}
+
+
+USHORT CV_wc_to_wc(obj, dest_ptr, dest_len, src_ptr, src_len, err_code,
+				   err_position)
+	 CSCONVERT obj;
+	 USHORT *dest_ptr;
+	 USHORT dest_len;
+	 USHORT *src_ptr;
+	 USHORT src_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	USHORT *start;
+	USHORT ch;
+	UNICODE uni;
+	USHORT src_start = src_len;
+
+	assert(src_ptr != NULL || dest_ptr == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CV_wc_to_wc);
+	assert(obj->csconvert_datatable != NULL);
+	assert(obj->csconvert_misc != NULL);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (dest_ptr == NULL)
+		return (src_len);
+
+	start = dest_ptr;
+	while ((src_len > 1) && (dest_len > 1)) {
+		uni = *((UNICODE *) src_ptr);
+		ch = ((USHORT *) obj->csconvert_datatable)[
+												   ((USHORT *) obj->
+													csconvert_misc)[(USHORT)
+																	uni / 256]
+												   + (uni % 256)];
+		if ((ch == CS_CANT_MAP) && !(uni == CS_CANT_MAP)) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		}
+		*dest_ptr++ = ch;
+		src_ptr++;
+		src_len -= 2;
+		dest_len -= 2;
+	};
+	if (src_len && !*err_code) {
+		if (src_len == 1)
+			*err_code = CS_BAD_INPUT;
+		else
+			*err_code = CS_TRUNCATION_ERROR;
+	};
+	*err_position = src_start - src_len;
+	return ((dest_ptr - start) * sizeof(*dest_ptr));
+}
+
+
+USHORT CV_nc_to_unicode(obj, dest_ptr, dest_len, src_ptr, src_len, err_code,
+						err_position)
+	 CSCONVERT obj;
+	 BYTE *dest_ptr;
+	 USHORT dest_len;
+	 BYTE *src_ptr;
+	 USHORT src_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	BYTE *start;
+	UNICODE ch;
+	USHORT src_start = src_len;
+
+	assert(src_ptr != NULL || dest_ptr == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CV_nc_to_unicode);
+	assert(obj->csconvert_datatable != NULL);
+	assert(sizeof(UNICODE) == 2);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (dest_ptr == NULL)
+		return (src_len * 2);
+
+	start = dest_ptr;
+	while (src_len && (dest_len > 1)) {
+		ch = ((UNICODE *) (obj->csconvert_datatable))[*src_ptr];
+		/* No need to check for CS_CONVERT_ERROR, all charsets
+		 * must convert to unicode.
+		 */
+
+		*((UNICODE *) dest_ptr) = ch;
+		src_ptr++;
+		src_len--;
+		dest_len -= sizeof(UNICODE);
+		dest_ptr += sizeof(UNICODE);
+	};
+	if (src_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	};
+	*err_position = src_start - src_len;
+	return (dest_ptr - start);
+}
+
+
+USHORT CV_wc_copy(obj, dest_ptr, dest_len, src_ptr, src_len, err_code,
+				  err_position)
+	 CSCONVERT obj;
+	 BYTE *dest_ptr;
+	 USHORT dest_len;			/* byte count */
+	 BYTE *src_ptr;
+	 USHORT src_len;			/* byte count */
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	BYTE *start;
+	UNICODE ch;
+	USHORT src_start = src_len;
+
+	assert(src_ptr != NULL || dest_ptr == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == CV_wc_copy);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (dest_ptr == NULL)
+		return (src_len);
+
+	start = dest_ptr;
+	while ((src_len > 1) && (dest_len > 1)) {
+		*dest_ptr++ = *src_ptr++;	/* first byte of unicode */
+		*dest_ptr++ = *src_ptr++;	/* 2nd   byte of unicode */
+		src_len -= 2;
+		dest_len -= 2;
+	};
+	if (src_len && !*err_code) {
+		if (src_len == 1)
+			*err_code = CS_BAD_INPUT;
+		else
+			*err_code = CS_TRUNCATION_ERROR;
+	};
+	*err_position = src_start - src_len;
+	return (dest_ptr - start);
+}
+
+
+static USHORT eight_bit_convert(obj, dest_ptr, dest_len, src_ptr, src_len,
+								err_code, err_position)
+	 CSCONVERT obj;
+	 BYTE *dest_ptr;
+	 USHORT dest_len;
+	 BYTE *src_ptr;
+	 USHORT src_len;
+	 SSHORT *err_code;
+	 USHORT *err_position;
+{
+	BYTE *start;
+	UCHAR ch;
+	USHORT src_start = src_len;
+
+	assert(src_ptr != NULL || dest_ptr == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == eight_bit_convert);
+	assert(obj->csconvert_datatable != NULL);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (dest_ptr == NULL)
+		return (src_len);
+
+	start = dest_ptr;
+	while (src_len && dest_len) {
+		ch = obj->csconvert_datatable[*src_ptr];
+		if ((ch == CS_CANT_MAP) && (*src_ptr != CS_CANT_MAP)) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		};
+		*dest_ptr++ = ch;
+		src_ptr++;
+		src_len--;
+		dest_len--;
+	};
+	if (src_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	};
+	*err_position = src_start - src_len;
+	return (dest_ptr - start);
+}
+
+
+
+CONVERT_ENTRY(CS_LATIN1, CS_DOS_865, CV_dos_865_x_latin1)
+{
+#include "../intl/tx865_lat1.h"
+	if (dest_cs == CS_LATIN1)
+		CV_convert_init(csptr, dest_cs, source_cs, eight_bit_convert,
+						cvt_865_to_Latin1, NULL);
+	else
+		CV_convert_init(csptr, dest_cs, source_cs, eight_bit_convert,
+						cvt_Latin1_to_865, NULL);
+	CONVERT_RETURN;
+}
+
+
+
+CONVERT_ENTRY(CS_LATIN1, CS_DOS_437, CV_dos_437_x_dos_865)
+{
+#include "../intl/tx437_865.h"
+	if (dest_cs == CS_DOS_865)
+		CV_convert_init(csptr, dest_cs, source_cs, eight_bit_convert,
+						cvt_437_to_865, NULL);
+	else
+		CV_convert_init(csptr, dest_cs, source_cs, eight_bit_convert,
+						cvt_865_to_437, NULL);
+
+	CONVERT_RETURN;
+}
+
+
+
+CONVERT_ENTRY(CS_LATIN1, CS_DOS_437, CV_dos_437_x_latin1)
+{
+#include "../intl/tx437_lat1.h"
+	if (dest_cs == CS_LATIN1)
+		CV_convert_init(csptr, dest_cs, source_cs, eight_bit_convert,
+						cvt_437_to_Latin1, NULL);
+	else
+		CV_convert_init(csptr, dest_cs, source_cs, eight_bit_convert,
+						cvt_Latin1_to_437, NULL);
+
+	CONVERT_RETURN;
+}
diff --git a/src/intl/cyrr.h b/src/intl/cyrr.h
new file mode 100644
index 0000000000..20c98e2093
--- /dev/null
+++ b/src/intl/cyrr.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 0000cyrr -----------*/
+/*----------- On      Tue Jun 14 12:07:38 1994 -----------*/
+
+/*  cyrr.def */
+/*  Generated on Tue Jun 14 12:07:32 1994
+ */
+/*  from input file 'cfg/cyrr.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxRUSSIAN
+
+
+#define LDRV_CTRYLANGID             RUSSIA
+
+
+#define LDRV_PRIMARYCPID            866
+
+
+#define LDRV_PID                    PDOX
+
+
+#define LDRV_ALTCPID                1251
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox Cyrr 866"
+
+
+#define LDRV_FNAME                  "cyrr"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/cyrr.def */
+
+#define MAX_NCO_PRIMARY  	196
+#define MAX_NCO_SECONDARY	  1
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	128,						/*   160 ->   128 */
+	129,						/* ¡ 161 ->   129 */
+	130,						/* ¢ 162 ->   130 */
+	131,						/* £ 163 ->   131 */
+	132,						/* ¤ 164 ->   132 */
+	133,						/* ¥ 165 ->   133 */
+	134,						/* ¦ 166 ->   134 */
+	135,						/* § 167 ->   135 */
+	136,						/* ¨ 168 ->   136 */
+	137,						/* © 169 ->   137 */
+	138,						/* ª 170 ->   138 */
+	139,						/* « 171 ->   139 */
+	140,						/* ¬ 172 ->   140 */
+	141,						/* ­ 173 ->   141 */
+	142,						/* ® 174 ->   142 */
+	143,						/* ¯ 175 ->   143 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	144,						/* à 224 ->   144 */
+	145,						/* á 225 ->   145 */
+	146,						/* â 226 ->   146 */
+	147,						/* ã 227 ->   147 */
+	148,						/* ä 228 ->   148 */
+	149,						/* å 229 ->   149 */
+	150,						/* æ 230 ->   150 */
+	151,						/* ç 231 ->   151 */
+	152,						/* è 232 ->   152 */
+	153,						/* é 233 ->   153 */
+	154,						/* ê 234 ->   154 */
+	155,						/* ë 235 ->   155 */
+	156,						/* ì 236 ->   156 */
+	157,						/* í 237 ->   157 */
+	158,						/* î 238 ->   158 */
+	159,						/* ï 239 ->   159 */
+	240,						/* ð 240 -> ð 240 */
+	240,						/* ñ 241 -> ð 240 */
+	242,						/* ò 242 -> ò 242 */
+	242,						/* ó 243 -> ò 242 */
+	244,						/* ô 244 -> ô 244 */
+	244,						/* õ 245 -> ô 244 */
+	246,						/* ö 246 -> ö 246 */
+	246,						/* ÷ 247 -> ö 246 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	97,							/*   128 -> a  97 */
+	161,						/*   129 -> ¡ 161 */
+	162,						/*   130 -> ¢ 162 */
+	163,						/*   131 -> £ 163 */
+	164,						/*   132 -> ¤ 164 */
+	165,						/*   133 -> ¥ 165 */
+	166,						/*   134 -> ¦ 166 */
+	167,						/*   135 -> § 167 */
+	168,						/*   136 -> ¨ 168 */
+	169,						/*   137 -> © 169 */
+	170,						/*   138 -> ª 170 */
+	171,						/*   139 -> « 171 */
+	172,						/*   140 -> ¬ 172 */
+	173,						/*   141 -> ­ 173 */
+	174,						/*   142 -> ® 174 */
+	175,						/*   143 -> ¯ 175 */
+	224,						/*   144 -> à 224 */
+	225,						/*   145 -> á 225 */
+	226,						/*   146 -> â 226 */
+	227,						/*   147 -> ã 227 */
+	228,						/*   148 -> ä 228 */
+	229,						/*   149 -> å 229 */
+	230,						/*   150 -> æ 230 */
+	231,						/*   151 -> ç 231 */
+	232,						/*   152 -> è 232 */
+	233,						/*   153 -> é 233 */
+	234,						/*   154 -> ê 234 */
+	235,						/*   155 -> ë 235 */
+	236,						/*   156 -> ì 236 */
+	237,						/*   157 -> í 237 */
+	238,						/*   158 -> î 238 */
+	239,						/*   159 -> ï 239 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	241,						/* ð 240 -> ñ 241 */
+	241,						/* ñ 241 -> ñ 241 */
+	243,						/* ò 242 -> ó 243 */
+	243,						/* ó 243 -> ó 243 */
+	245,						/* ô 244 -> õ 245 */
+	245,						/* õ 245 -> õ 245 */
+	247,						/* ö 246 -> ÷ 247 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 104, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 109, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 111, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 112, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 113, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 114, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 115, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 116, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 117, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 118, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 119, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 120, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 121, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 122, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 104, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 109, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 111, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 112, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 113, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 114, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 115, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 116, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 117, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 118, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 119, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 120, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 121, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 122, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_866.h"
+#endif
+/* End of File : Language driver cyrr */
diff --git a/src/intl/czech.h b/src/intl/czech.h
new file mode 100644
index 0000000000..b268d1c4a1
--- /dev/null
+++ b/src/intl/czech.h
@@ -0,0 +1,968 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 000czech -----------*/
+/*----------- On      Mon May 16 10:58:46 1994 -----------*/
+
+/*  czech.def */
+/*  Generated on Mon May 16 10:58:40 1994
+ */
+/*  from input file 'cfg/czech.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxCZECH
+
+
+#define LDRV_CTRYLANGID             CZECH
+
+
+#define LDRV_PRIMARYCPID            852
+
+
+#define LDRV_PID                    PDOX
+
+
+#define LDRV_ALTCPID                1250
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox Czech 852"
+
+
+#define LDRV_FNAME                  "czech"
+
+
+#define NUM_EXPAND_CHARS            3
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/czech.def */
+
+#define MAX_NCO_PRIMARY  	152
+#define MAX_NCO_SECONDARY	 11
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	222,						/*   133 -> Þ 222 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	157,						/*   136 ->   157 */
+	211,						/*   137 -> Ó 211 */
+	138,						/*   138 ->   138 */
+	138,						/*   139 ->   138 */
+	215,						/*   140 -> × 215 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	149,						/*   149 ->   149 */
+	149,						/*   150 ->   149 */
+	151,						/*   151 ->   151 */
+	151,						/*   152 ->   151 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	155,						/*   156 ->   155 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	172,						/*   159 -> ¬ 172 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	166,						/* § 167 -> ¦ 166 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	168,						/* © 169 -> ¨ 168 */
+	170,						/* ª 170 -> ª 170 */
+	141,						/* « 171 ->   141 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	184,						/* ­ 173 -> ¸ 184 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	189,						/* ¾ 190 -> ½ 189 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	210,						/* Ô 212 -> Ò 210 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	183,						/* Ø 216 -> · 183 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	227,						/* ä 228 -> ã 227 */
+	213,						/* å 229 -> Õ 213 */
+	230,						/* æ 230 -> æ 230 */
+	230,						/* ç 231 -> æ 230 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	232,						/* ê 234 -> è 232 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	221,						/* î 238 -> Ý 221 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	235,						/* û 251 -> ë 235 */
+	252,						/* ü 252 -> ü 252 */
+	252,						/* ý 253 -> ü 252 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	139,						/*   138 ->   139 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	171,						/*   141 -> « 171 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	150,						/*   149 ->   150 */
+	150,						/*   150 ->   150 */
+	152,						/*   151 ->   152 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	156,						/*   155 ->   156 */
+	156,						/*   156 ->   156 */
+	136,						/*   157 ->   136 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	167,						/* ¦ 166 -> § 167 */
+	167,						/* § 167 -> § 167 */
+	169,						/* ¨ 168 -> © 169 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	159,						/* ¬ 172 ->   159 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	216,						/* · 183 -> Ø 216 */
+	173,						/* ¸ 184 -> ­ 173 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	190,						/* ½ 189 -> ¾ 190 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	212,						/* Ò 210 -> Ô 212 */
+	137,						/* Ó 211 ->   137 */
+	212,						/* Ô 212 -> Ô 212 */
+	229,						/* Õ 213 -> å 229 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	238,						/* Ý 221 -> î 238 */
+	133,						/* Þ 222 ->   133 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	228,						/* ã 227 -> ä 228 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	231,						/* æ 230 -> ç 231 */
+	231,						/* ç 231 -> ç 231 */
+	234,						/* è 232 -> ê 234 */
+	163,						/* é 233 -> £ 163 */
+	234,						/* ê 234 -> ê 234 */
+	251,						/* ë 235 -> û 251 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	253,						/* ü 252 -> ý 253 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{225, 115, 115},			/* á -> ss */
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 6, NULL_TERTIARY, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_852.h"
+#endif
+/* End of File : Language driver czech */
diff --git a/src/intl/db437de0.h b/src/intl/db437de0.h
new file mode 100644
index 0000000000..b30388773f
--- /dev/null
+++ b/src/intl/db437de0.h
@@ -0,0 +1,966 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db437de0 -----------*/
+/*----------- On      Wed May 18 11:01:05 1994 -----------*/
+
+/*  db437de0.def */
+/*  Generated on Wed May 18 11:00:59 1994
+ */
+/*  from input file 'cfg/db437de0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbGERMAN
+
+
+#define LDRV_CTRYLANGID             GERMANY
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE DEU cp437"
+
+
+#define LDRV_FNAME                  "db437de0"
+
+
+#define NUM_EXPAND_CHARS            1
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          4
+
+
+/* End of langdrv/db437de0.def */
+
+#define MAX_NCO_PRIMARY  	193
+#define MAX_NCO_SECONDARY	  7
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{225, 115, 115},			/* á -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 170, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 181, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 182, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 186, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 188, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 192, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 170, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 181, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 182, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 186, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 188, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 192, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 170, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 188, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 170, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 182, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 182, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 182, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 188, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 188, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 192, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 182, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 188, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 182, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 188, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 181, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 181, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 182, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 186, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_437.h"
+#endif
+/* End of File : Language driver db437de0 */
diff --git a/src/intl/db437es1.h b/src/intl/db437es1.h
new file mode 100644
index 0000000000..7f7e31b6bc
--- /dev/null
+++ b/src/intl/db437es1.h
@@ -0,0 +1,981 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db437es1 -----------*/
+/*----------- On      Wed May 18 11:02:24 1994 -----------*/
+
+/*  db437es1.def */
+/*  Generated on Wed May 18 11:02:17 1994
+ */
+/*  from input file 'cfg/db437es1.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbSPANISH
+
+
+#define LDRV_CTRYLANGID             SPAIN
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE ESP cp437"
+
+
+#define LDRV_FNAME                  "db437es1"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          6
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          6
+
+
+/* End of langdrv/db437es1.def */
+
+#define MAX_NCO_PRIMARY  	202
+#define MAX_NCO_SECONDARY	  5
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	69,							/*   130 -> E  69 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	
+		{{67, 72},
+	 {FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 16, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* CH */
+	{{67, 104},
+	 {FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Ch */
+	{{76, 76}, {FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 26, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* LL */
+	{{76, 108},
+	 {FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 26, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Ll */
+	{{99, 104}, {FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ch */
+	{{108, 108}, {FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 26, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ll */
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 12, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 1},	/*  67 C */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 1},	/*  76 L */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 40, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 12, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 1},	/*  99 c */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 1},	/* 108 l */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 40, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 12, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 12, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 12, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 12, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 12, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 12, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 40, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 12, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 201, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 202, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_437.h"
+#endif
+/* End of File : Language driver db437es1 */
diff --git a/src/intl/db437fi0.h b/src/intl/db437fi0.h
new file mode 100644
index 0000000000..8592d32587
--- /dev/null
+++ b/src/intl/db437fi0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db437fi0 -----------*/
+/*----------- On      Wed May 18 11:03:03 1994 -----------*/
+
+/*  db437fi0.def */
+/*  Generated on Wed May 18 11:02:57 1994
+ */
+/*  from input file 'cfg/db437fi0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbFINNISH
+
+
+#define LDRV_CTRYLANGID             FINLAND
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE FIN cp437"
+
+
+#define LDRV_FNAME                  "db437fi0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          5
+
+
+/* End of langdrv/db437fi0.def */
+
+#define MAX_NCO_PRIMARY  	200
+#define MAX_NCO_SECONDARY	  4
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	69,							/*   130 -> E  69 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_437.h"
+#endif
+/* End of File : Language driver db437fi0 */
diff --git a/src/intl/db437fr0.h b/src/intl/db437fr0.h
new file mode 100644
index 0000000000..a647a664b4
--- /dev/null
+++ b/src/intl/db437fr0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db437fr0 -----------*/
+/*----------- On      Wed May 18 11:30:12 1994 -----------*/
+
+/*  db437fr0.def */
+/*  Generated on Wed May 18 11:30:07 1994
+ */
+/*  from input file 'cfg/db437fr0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbFRENCH
+
+
+#define LDRV_CTRYLANGID             FRANCE
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE FRA cp437"
+
+
+#define LDRV_FNAME                  "db437fr0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          5
+
+
+/* End of langdrv/db437fr0.def */
+
+#define MAX_NCO_PRIMARY  	198
+#define MAX_NCO_SECONDARY	  5
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	85,							/*   129 -> U  85 */
+	69,							/*   130 -> E  69 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	67,							/*   135 -> C  67 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_437.h"
+#endif
+/* End of File : Language driver db437fr0 */
diff --git a/src/intl/db437it0.h b/src/intl/db437it0.h
new file mode 100644
index 0000000000..c10eb56455
--- /dev/null
+++ b/src/intl/db437it0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db437it0 -----------*/
+/*----------- On      Wed May 18 11:29:06 1994 -----------*/
+
+/*  db437it0.def */
+/*  Generated on Wed May 18 11:29:00 1994
+ */
+/*  from input file 'cfg/db437it0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbITALIAN
+
+
+#define LDRV_CTRYLANGID             ITALY
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE ITA cp437"
+
+
+#define LDRV_FNAME                  "db437it0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          4
+
+
+/* End of langdrv/db437it0.def */
+
+#define MAX_NCO_PRIMARY  	198
+#define MAX_NCO_SECONDARY	  5
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	69,							/*   130 -> E  69 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_437.h"
+#endif
+/* End of File : Language driver db437it0 */
diff --git a/src/intl/db437nl0.h b/src/intl/db437nl0.h
new file mode 100644
index 0000000000..5afaf2b930
--- /dev/null
+++ b/src/intl/db437nl0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db437nl0 -----------*/
+/*----------- On      Wed May 18 11:28:00 1994 -----------*/
+
+/*  db437nl0.def */
+/*  Generated on Wed May 18 11:27:54 1994
+ */
+/*  from input file 'cfg/db437nl0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbDUTCH
+
+
+#define LDRV_CTRYLANGID             NEDERLANDS
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE NLD cp437"
+
+
+#define LDRV_FNAME                  "db437nl0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          3
+
+
+/* End of langdrv/db437nl0.def */
+
+#define MAX_NCO_PRIMARY  	198
+#define MAX_NCO_SECONDARY	  5
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_437.h"
+#endif
+/* End of File : Language driver db437nl0 */
diff --git a/src/intl/db437sv0.h b/src/intl/db437sv0.h
new file mode 100644
index 0000000000..0404b2d095
--- /dev/null
+++ b/src/intl/db437sv0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db437sv0 -----------*/
+/*----------- On      Wed May 18 11:26:27 1994 -----------*/
+
+/*  db437sv0.def */
+/*  Generated on Wed May 18 11:26:20 1994
+ */
+/*  from input file 'cfg/db437sv0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbSWEDISH
+
+
+#define LDRV_CTRYLANGID             SWEDEN
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE SVE cp437"
+
+
+#define LDRV_FNAME                  "db437sv0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          4
+
+
+/* End of langdrv/db437sv0.def */
+
+#define MAX_NCO_PRIMARY  	200
+#define MAX_NCO_SECONDARY	  4
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_437.h"
+#endif
+/* End of File : Language driver db437sv0 */
diff --git a/src/intl/db437uk0.h b/src/intl/db437uk0.h
new file mode 100644
index 0000000000..53a6b95b75
--- /dev/null
+++ b/src/intl/db437uk0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db437uk0 -----------*/
+/*----------- On      Wed May 18 11:24:34 1994 -----------*/
+
+/*  db437uk0.def */
+/*  Generated on Wed May 18 11:24:27 1994
+ */
+/*  from input file 'cfg/db437uk0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbUK
+
+
+#define LDRV_CTRYLANGID             UK
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE ENG cp437"
+
+
+#define LDRV_FNAME                  "db437uk0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          4
+
+
+/* End of langdrv/db437uk0.def */
+
+#define MAX_NCO_PRIMARY  	198
+#define MAX_NCO_SECONDARY	  5
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	69,							/*   130 -> E  69 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_437.h"
+#endif
+/* End of File : Language driver db437uk0 */
diff --git a/src/intl/db437us0.h b/src/intl/db437us0.h
new file mode 100644
index 0000000000..83da628b3d
--- /dev/null
+++ b/src/intl/db437us0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db437us0 -----------*/
+/*----------- On      Wed May 18 11:22:09 1994 -----------*/
+
+/*  db437us0.def */
+/*  Generated on Wed May 18 11:22:04 1994
+ */
+/*  from input file 'cfg/db437us0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbUS
+
+
+#define LDRV_CTRYLANGID             US
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               ASCII_SORT
+
+
+#define LDRV_NAME                   "dBASE ENU cp437"
+
+
+#define LDRV_FNAME                  "db437us0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          4
+
+
+/* End of langdrv/db437us0.def */
+
+#define MAX_NCO_PRIMARY  	229
+#define MAX_NCO_SECONDARY	  0
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 201, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 202, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 203, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 204, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 205, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 206, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 207, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 208, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 209, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 210, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 211, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 212, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 213, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 214, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 215, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 216, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 217, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 218, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 219, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 220, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 221, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 222, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 223, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 224, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 225, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 226, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 227, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 228, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 229, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_437.h"
+#endif
+/* End of File : Language driver db437us0 */
diff --git a/src/intl/db850cf0.h b/src/intl/db850cf0.h
new file mode 100644
index 0000000000..aad13de9b5
--- /dev/null
+++ b/src/intl/db850cf0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db850cf0 -----------*/
+/*----------- On      Wed May 18 10:23:54 1994 -----------*/
+
+/*  db850cf0.def */
+/*  Generated on Wed May 18 10:23:47 1994
+ */
+/*  from input file 'cfg/db850cf0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbFRENCHCAN2
+
+
+#define LDRV_CTRYLANGID             CANADA
+
+
+#define LDRV_PRIMARYCPID            850
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE FRC cp850"
+
+
+#define LDRV_FNAME                  "db850cf0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          4
+
+
+/* End of langdrv/db850cf0.def */
+
+#define MAX_NCO_PRIMARY  	176
+#define MAX_NCO_SECONDARY	  6
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	183,						/*   133 -> · 183 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	210,						/*   136 -> Ò 210 */
+	211,						/*   137 -> Ó 211 */
+	212,						/*   138 -> Ô 212 */
+	216,						/*   139 -> Ø 216 */
+	215,						/*   140 -> × 215 */
+	222,						/*   141 -> Þ 222 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	227,						/*   149 -> ã 227 */
+	234,						/*   150 -> ê 234 */
+	235,						/*   151 -> ë 235 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	229,						/* ä 228 -> å 229 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	133,						/* · 183 ->   133 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	136,						/* Ò 210 ->   136 */
+	137,						/* Ó 211 ->   137 */
+	138,						/* Ô 212 ->   138 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	139,						/* Ø 216 ->   139 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	141,						/* Þ 222 ->   141 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	149,						/* ã 227 ->   149 */
+	228,						/* ä 228 -> ä 228 */
+	228,						/* å 229 -> ä 228 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	163,						/* é 233 -> £ 163 */
+	150,						/* ê 234 ->   150 */
+	151,						/* ë 235 ->   151 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_850.h"
+#endif
+/* End of File : Language driver db850cf0 */
diff --git a/src/intl/db850de0.h b/src/intl/db850de0.h
new file mode 100644
index 0000000000..16ae582101
--- /dev/null
+++ b/src/intl/db850de0.h
@@ -0,0 +1,970 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db850de0 -----------*/
+/*----------- On      Wed May 18 10:25:47 1994 -----------*/
+
+/*  db850de0.def */
+/*  Generated on Wed May 18 10:25:41 1994
+ */
+/*  from input file 'cfg/db850de0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbGERMAN2
+
+
+#define LDRV_CTRYLANGID             GERMANY
+
+
+#define LDRV_PRIMARYCPID            850
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE DEU cp850"
+
+
+#define LDRV_FNAME                  "db850de0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/db850de0.def */
+
+#define MAX_NCO_PRIMARY  	158
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	183,						/*   133 -> · 183 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	210,						/*   136 -> Ò 210 */
+	211,						/*   137 -> Ó 211 */
+	212,						/*   138 -> Ô 212 */
+	216,						/*   139 -> Ø 216 */
+	215,						/*   140 -> × 215 */
+	222,						/*   141 -> Þ 222 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	227,						/*   149 -> ã 227 */
+	234,						/*   150 -> ê 234 */
+	235,						/*   151 -> ë 235 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	157,						/*   155 ->   157 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	73,							/* Õ 213 -> I  73 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	229,						/* ä 228 -> å 229 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	232,						/* ç 231 -> è 232 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	155,						/*   157 ->   155 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	133,						/* · 183 ->   133 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	136,						/* Ò 210 ->   136 */
+	137,						/* Ó 211 ->   137 */
+	138,						/* Ô 212 ->   138 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	139,						/* Ø 216 ->   139 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	141,						/* Þ 222 ->   141 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	149,						/* ã 227 ->   149 */
+	228,						/* ä 228 -> ä 228 */
+	228,						/* å 229 -> ä 228 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	231,						/* è 232 -> ç 231 */
+	163,						/* é 233 -> £ 163 */
+	150,						/* ê 234 ->   150 */
+	151,						/* ë 235 ->   151 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{145, 97, 101},				/* ‘ -> ae */
+	{146, 65, 69},				/* ’ -> AE */
+	{225, 115, 115},			/* á -> ss */
+	{231, 116, 104},			/* ç -> th */
+	{232, 84, 72},				/* è -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 149, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 150, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 152, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 125, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 126, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 127, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 131, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 136, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 141, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 142, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 143, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 147, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 125, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 126, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 127, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 131, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 136, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 141, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 142, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 143, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 147, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 125, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 143, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 127, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 125, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 127, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 127, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 127, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 131, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 131, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 131, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 127, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 1, 0},	/* 145   */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 1, 0},	/* 146   */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 143, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 143, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 147, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 143, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 131, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 143, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 136, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 136, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 149, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 149, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 126, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 126, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 127, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 127, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 127, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 131, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 131, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 131, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 131, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 131, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 141, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 137, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 142, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 142, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 232 è */
+	{FIRST_PRIMARY + 143, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 143, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 143, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 147, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 147, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 149, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 150, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 152, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_850.h"
+#endif
+/* End of File : Language driver db850de0 */
diff --git a/src/intl/db850es0.h b/src/intl/db850es0.h
new file mode 100644
index 0000000000..1a3fd33484
--- /dev/null
+++ b/src/intl/db850es0.h
@@ -0,0 +1,993 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db850es0 -----------*/
+/*----------- On      Wed May 18 10:27:00 1994 -----------*/
+
+/*  db850es0.def */
+/*  Generated on Wed May 18 10:26:54 1994
+ */
+/*  from input file 'cfg/db850es0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbSPANISH2
+
+
+#define LDRV_CTRYLANGID             SPAIN
+
+
+#define LDRV_PRIMARYCPID            850
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE ESP cp850"
+
+
+#define LDRV_FNAME                  "db850es0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          8
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/db850es0.def */
+
+#define MAX_NCO_PRIMARY  	156
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	183,						/*   133 -> · 183 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	210,						/*   136 -> Ò 210 */
+	211,						/*   137 -> Ó 211 */
+	212,						/*   138 -> Ô 212 */
+	216,						/*   139 -> Ø 216 */
+	215,						/*   140 -> × 215 */
+	222,						/*   141 -> Þ 222 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	227,						/*   149 -> ã 227 */
+	234,						/*   150 -> ê 234 */
+	235,						/*   151 -> ë 235 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	157,						/*   155 ->   157 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	73,							/* Õ 213 -> I  73 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	229,						/* ä 228 -> å 229 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	232,						/* ç 231 -> è 232 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	155,						/*   157 ->   155 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	133,						/* · 183 ->   133 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	136,						/* Ò 210 ->   136 */
+	137,						/* Ó 211 ->   137 */
+	138,						/* Ô 212 ->   138 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	139,						/* Ø 216 ->   139 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	141,						/* Þ 222 ->   141 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	149,						/* ã 227 ->   149 */
+	228,						/* ä 228 -> ä 228 */
+	228,						/* å 229 -> ä 228 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	231,						/* è 232 -> ç 231 */
+	163,						/* é 233 -> £ 163 */
+	150,						/* ê 234 ->   150 */
+	151,						/* ë 235 ->   151 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{145, 97, 101},				/* ‘ -> ae */
+	{146, 65, 69},				/* ’ -> AE */
+	{225, 115, 115},			/* á -> ss */
+	{231, 116, 104},			/* ç -> th */
+	{232, 84, 72},				/* è -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	
+		{{99, 104},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ch */
+	{{99, 72},
+	 {FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* cH */
+	{{67, 104},
+	 {FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* Ch */
+	{{67, 72}, {FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 14, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0}},	/* CH */
+	{{108, 108},
+	 {FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ll */
+	{{108, 76},
+	 {FIRST_PRIMARY + 28, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* lL */
+	{{76, 108},
+	 {FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* Ll */
+	{{76, 76}, {FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},
+	 {FIRST_PRIMARY + 24, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0}},	/* LL */
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 1},	/*  67 C */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 1},	/*  76 L */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 1},	/*  99 c */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 1},	/* 108 l */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 1, 0},	/* 145   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 1, 0},	/* 146   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 32, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 33, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 232 è */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 38, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 2, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 4, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_850.h"
+#endif
+/* End of File : Language driver db850es0 */
diff --git a/src/intl/db850fr0.h b/src/intl/db850fr0.h
new file mode 100644
index 0000000000..35db3431bd
--- /dev/null
+++ b/src/intl/db850fr0.h
@@ -0,0 +1,970 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db850fr0 -----------*/
+/*----------- On      Wed May 18 10:28:27 1994 -----------*/
+
+/*  db850fr0.def */
+/*  Generated on Wed May 18 10:28:22 1994
+ */
+/*  from input file 'cfg/db850fr0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbFRENCH2
+
+
+#define LDRV_CTRYLANGID             FRANCE
+
+
+#define LDRV_PRIMARYCPID            850
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE FRA cp850"
+
+
+#define LDRV_FNAME                  "db850fr0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          2
+
+
+/* End of langdrv/db850fr0.def */
+
+#define MAX_NCO_PRIMARY  	153
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	85,							/*   129 -> U  85 */
+	69,							/*   130 -> E  69 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	67,							/*   135 -> C  67 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	157,						/*   155 ->   157 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	73,							/* Õ 213 -> I  73 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	229,						/* ä 228 -> å 229 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	232,						/* ç 231 -> è 232 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	89,							/* ì 236 -> Y  89 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	155,						/*   157 ->   155 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	133,						/* · 183 ->   133 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	136,						/* Ò 210 ->   136 */
+	137,						/* Ó 211 ->   137 */
+	138,						/* Ô 212 ->   138 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	139,						/* Ø 216 ->   139 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	141,						/* Þ 222 ->   141 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	149,						/* ã 227 ->   149 */
+	228,						/* ä 228 -> ä 228 */
+	228,						/* å 229 -> ä 228 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	231,						/* è 232 -> ç 231 */
+	163,						/* é 233 -> £ 163 */
+	150,						/* ê 234 ->   150 */
+	151,						/* ë 235 ->   151 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{145, 97, 101},				/* ‘ -> ae */
+	{146, 65, 69},				/* ’ -> AE */
+	{225, 115, 115},			/* á -> ss */
+	{231, 116, 104},			/* ç -> th */
+	{232, 84, 72},				/* è -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 1, 0},	/* 145   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 1, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 232 è */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 2, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 4, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_850.h"
+#endif
+/* End of File : Language driver db850fr0 */
diff --git a/src/intl/db850it1.h b/src/intl/db850it1.h
new file mode 100644
index 0000000000..c3bf555cd3
--- /dev/null
+++ b/src/intl/db850it1.h
@@ -0,0 +1,970 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db850it1 -----------*/
+/*----------- On      Wed May 18 10:29:44 1994 -----------*/
+
+/*  db850it1.def */
+/*  Generated on Wed May 18 10:29:39 1994
+ */
+/*  from input file 'cfg/db850it1.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbITALIAN2
+
+
+#define LDRV_CTRYLANGID             ITALY
+
+
+#define LDRV_PRIMARYCPID            850
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE ITA cp850"
+
+
+#define LDRV_FNAME                  "db850it1"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/db850it1.def */
+
+#define MAX_NCO_PRIMARY  	153
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	183,						/*   133 -> · 183 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	210,						/*   136 -> Ò 210 */
+	211,						/*   137 -> Ó 211 */
+	212,						/*   138 -> Ô 212 */
+	216,						/*   139 -> Ø 216 */
+	215,						/*   140 -> × 215 */
+	222,						/*   141 -> Þ 222 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	227,						/*   149 -> ã 227 */
+	234,						/*   150 -> ê 234 */
+	235,						/*   151 -> ë 235 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	157,						/*   155 ->   157 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	73,							/* Õ 213 -> I  73 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	229,						/* ä 228 -> å 229 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	232,						/* ç 231 -> è 232 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	155,						/*   157 ->   155 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	133,						/* · 183 ->   133 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	136,						/* Ò 210 ->   136 */
+	137,						/* Ó 211 ->   137 */
+	138,						/* Ô 212 ->   138 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	139,						/* Ø 216 ->   139 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	141,						/* Þ 222 ->   141 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	149,						/* ã 227 ->   149 */
+	228,						/* ä 228 -> ä 228 */
+	228,						/* å 229 -> ä 228 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	231,						/* è 232 -> ç 231 */
+	163,						/* é 233 -> £ 163 */
+	150,						/* ê 234 ->   150 */
+	151,						/* ë 235 ->   151 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{145, 97, 101},				/* ‘ -> ae */
+	{146, 65, 69},				/* ’ -> AE */
+	{225, 115, 115},			/* á -> ss */
+	{231, 116, 104},			/* ç -> th */
+	{232, 84, 72},				/* è -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 1, 0},	/* 145   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 1, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 232 è */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 2, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 4, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_850.h"
+#endif
+/* End of File : Language driver db850it1 */
diff --git a/src/intl/db850nl0.h b/src/intl/db850nl0.h
new file mode 100644
index 0000000000..5304162a9f
--- /dev/null
+++ b/src/intl/db850nl0.h
@@ -0,0 +1,970 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db850nl0 -----------*/
+/*----------- On      Wed May 18 10:31:27 1994 -----------*/
+
+/*  db850nl0.def */
+/*  Generated on Wed May 18 10:31:22 1994
+ */
+/*  from input file 'cfg/db850nl0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbDUTCH2
+
+
+#define LDRV_CTRYLANGID             NEDERLANDS
+
+
+#define LDRV_PRIMARYCPID            850
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE NLD cp850"
+
+
+#define LDRV_FNAME                  "db850nl0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/db850nl0.def */
+
+#define MAX_NCO_PRIMARY  	153
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	183,						/*   133 -> · 183 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	210,						/*   136 -> Ò 210 */
+	211,						/*   137 -> Ó 211 */
+	212,						/*   138 -> Ô 212 */
+	216,						/*   139 -> Ø 216 */
+	215,						/*   140 -> × 215 */
+	222,						/*   141 -> Þ 222 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	227,						/*   149 -> ã 227 */
+	234,						/*   150 -> ê 234 */
+	235,						/*   151 -> ë 235 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	157,						/*   155 ->   157 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	73,							/* Õ 213 -> I  73 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	229,						/* ä 228 -> å 229 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	232,						/* ç 231 -> è 232 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	155,						/*   157 ->   155 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	133,						/* · 183 ->   133 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	136,						/* Ò 210 ->   136 */
+	137,						/* Ó 211 ->   137 */
+	138,						/* Ô 212 ->   138 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	139,						/* Ø 216 ->   139 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	141,						/* Þ 222 ->   141 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	149,						/* ã 227 ->   149 */
+	228,						/* ä 228 -> ä 228 */
+	228,						/* å 229 -> ä 228 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	231,						/* è 232 -> ç 231 */
+	163,						/* é 233 -> £ 163 */
+	150,						/* ê 234 ->   150 */
+	151,						/* ë 235 ->   151 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{145, 97, 101},				/* ‘ -> ae */
+	{146, 65, 69},				/* ’ -> AE */
+	{225, 115, 115},			/* á -> ss */
+	{231, 116, 104},			/* ç -> th */
+	{232, 84, 72},				/* è -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 1, 0},	/* 145   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 1, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 232 è */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 2, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 4, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_850.h"
+#endif
+/* End of File : Language driver db850nl0 */
diff --git a/src/intl/db850pt0.h b/src/intl/db850pt0.h
new file mode 100644
index 0000000000..7716f58975
--- /dev/null
+++ b/src/intl/db850pt0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db850pt0 -----------*/
+/*----------- On      Wed May 18 10:32:49 1994 -----------*/
+
+/*  db850pt0.def */
+/*  Generated on Wed May 18 10:32:41 1994
+ */
+/*  from input file 'cfg/db850pt0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbPORTUGUESE2
+
+
+#define LDRV_CTRYLANGID             BRAZIL
+
+
+#define LDRV_PRIMARYCPID            850
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE PTB cp850"
+
+
+#define LDRV_FNAME                  "db850pt0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          4
+
+
+/* End of langdrv/db850pt0.def */
+
+#define MAX_NCO_PRIMARY  	177
+#define MAX_NCO_SECONDARY	  6
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	183,						/*   133 -> · 183 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	210,						/*   136 -> Ò 210 */
+	211,						/*   137 -> Ó 211 */
+	212,						/*   138 -> Ô 212 */
+	216,						/*   139 -> Ø 216 */
+	215,						/*   140 -> × 215 */
+	222,						/*   141 -> Þ 222 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	227,						/*   149 -> ã 227 */
+	234,						/*   150 -> ê 234 */
+	235,						/*   151 -> ë 235 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	229,						/* ä 228 -> å 229 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	133,						/* · 183 ->   133 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	136,						/* Ò 210 ->   136 */
+	137,						/* Ó 211 ->   137 */
+	138,						/* Ô 212 ->   138 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	139,						/* Ø 216 ->   139 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	141,						/* Þ 222 ->   141 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	149,						/* ã 227 ->   149 */
+	228,						/* ä 228 -> ä 228 */
+	228,						/* å 229 -> ä 228 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	163,						/* é 233 -> £ 163 */
+	150,						/* ê 234 ->   150 */
+	151,						/* ë 235 ->   151 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 153, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 155, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 159, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 166, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 153, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 155, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 159, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 166, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 153, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 155, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 153, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 155, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 155, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 155, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 159, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 159, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 159, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 155, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 166, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 166, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 166, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 166, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 159, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 166, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 151, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 155, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 155, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 155, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 159, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 159, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 159, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 159, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 166, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 166, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 166, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 166, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 166, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_850.h"
+#endif
+/* End of File : Language driver db850pt0 */
diff --git a/src/intl/db850sv1.h b/src/intl/db850sv1.h
new file mode 100644
index 0000000000..faf29ef23f
--- /dev/null
+++ b/src/intl/db850sv1.h
@@ -0,0 +1,970 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db850sv1 -----------*/
+/*----------- On      Wed May 18 10:34:19 1994 -----------*/
+
+/*  db850sv1.def */
+/*  Generated on Wed May 18 10:34:13 1994
+ */
+/*  from input file 'cfg/db850sv1.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbSWEDISH2
+
+
+#define LDRV_CTRYLANGID             SWEDEN
+
+
+#define LDRV_PRIMARYCPID            850
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE SVE cp850"
+
+
+#define LDRV_FNAME                  "db850sv1"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/db850sv1.def */
+
+#define MAX_NCO_PRIMARY  	161
+#define MAX_NCO_SECONDARY	  5
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	183,						/*   133 -> · 183 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	210,						/*   136 -> Ò 210 */
+	211,						/*   137 -> Ó 211 */
+	212,						/*   138 -> Ô 212 */
+	216,						/*   139 -> Ø 216 */
+	215,						/*   140 -> × 215 */
+	222,						/*   141 -> Þ 222 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	227,						/*   149 -> ã 227 */
+	234,						/*   150 -> ê 234 */
+	235,						/*   151 -> ë 235 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	157,						/*   155 ->   157 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	73,							/* Õ 213 -> I  73 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	229,						/* ä 228 -> å 229 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	232,						/* ç 231 -> è 232 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	155,						/*   157 ->   155 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	133,						/* · 183 ->   133 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	136,						/* Ò 210 ->   136 */
+	137,						/* Ó 211 ->   137 */
+	138,						/* Ô 212 ->   138 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	139,						/* Ø 216 ->   139 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	141,						/* Þ 222 ->   141 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	149,						/* ã 227 ->   149 */
+	228,						/* ä 228 -> ä 228 */
+	228,						/* å 229 -> ä 228 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	231,						/* è 232 -> ç 231 */
+	163,						/* é 233 -> £ 163 */
+	150,						/* ê 234 ->   150 */
+	151,						/* ë 235 ->   151 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{225, 115, 115},			/* á -> ss */
+	{231, 116, 104},			/* ç -> th */
+	{232, 84, 72},				/* è -> TH */
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 7, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 8, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 9, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 40, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 40, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 40, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 44, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 40, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 44, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 40, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 44, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 44, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 34, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 232 è */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 40, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 40, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 7, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 9, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 8, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_850.h"
+#endif
+/* End of File : Language driver db850sv1 */
diff --git a/src/intl/db850uk0.h b/src/intl/db850uk0.h
new file mode 100644
index 0000000000..e92a328623
--- /dev/null
+++ b/src/intl/db850uk0.h
@@ -0,0 +1,970 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db850uk0 -----------*/
+/*----------- On      Wed May 18 10:37:12 1994 -----------*/
+
+/*  db850uk0.def */
+/*  Generated on Wed May 18 10:37:06 1994
+ */
+/*  from input file 'cfg/db850uk0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbUK2
+
+
+#define LDRV_CTRYLANGID             UK
+
+
+#define LDRV_PRIMARYCPID            850
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE ENG cp850"
+
+
+#define LDRV_FNAME                  "db850uk0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/db850uk0.def */
+
+#define MAX_NCO_PRIMARY  	153
+#define MAX_NCO_SECONDARY	  8
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	183,						/*   133 -> · 183 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	210,						/*   136 -> Ò 210 */
+	211,						/*   137 -> Ó 211 */
+	212,						/*   138 -> Ô 212 */
+	216,						/*   139 -> Ø 216 */
+	215,						/*   140 -> × 215 */
+	222,						/*   141 -> Þ 222 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	227,						/*   149 -> ã 227 */
+	234,						/*   150 -> ê 234 */
+	235,						/*   151 -> ë 235 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	157,						/*   155 ->   157 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	73,							/* Õ 213 -> I  73 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	229,						/* ä 228 -> å 229 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	232,						/* ç 231 -> è 232 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	155,						/*   157 ->   155 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	133,						/* · 183 ->   133 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	136,						/* Ò 210 ->   136 */
+	137,						/* Ó 211 ->   137 */
+	138,						/* Ô 212 ->   138 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	139,						/* Ø 216 ->   139 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	141,						/* Þ 222 ->   141 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	149,						/* ã 227 ->   149 */
+	228,						/* ä 228 -> ä 228 */
+	228,						/* å 229 -> ä 228 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	231,						/* è 232 -> ç 231 */
+	163,						/* é 233 -> £ 163 */
+	150,						/* ê 234 ->   150 */
+	151,						/* ë 235 ->   151 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{145, 97, 101},				/* ‘ -> ae */
+	{146, 65, 69},				/* ’ -> AE */
+	{225, 115, 115},			/* á -> ss */
+	{231, 116, 104},			/* ç -> th */
+	{232, 84, 72},				/* è -> TH */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 1, 0},	/* 145   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 8, FIRST_TERTIARY + 0, 1, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 1, 0},	/* 232 è */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 2, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 4, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 0, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_850.h"
+#endif
+/* End of File : Language driver db850uk0 */
diff --git a/src/intl/db850us0.h b/src/intl/db850us0.h
new file mode 100644
index 0000000000..0e253bd980
--- /dev/null
+++ b/src/intl/db850us0.h
@@ -0,0 +1,970 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db850us0 -----------*/
+/*----------- On      Wed May 18 10:38:45 1994 -----------*/
+
+/*  db850us0.def */
+/*  Generated on Wed May 18 10:38:37 1994
+ */
+/*  from input file 'cfg/db850us0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbUS2
+
+
+#define LDRV_CTRYLANGID             US
+
+
+#define LDRV_PRIMARYCPID            850
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               ASCII_SORT
+
+
+#define LDRV_NAME                   "dBASE ENU cp850"
+
+
+#define LDRV_FNAME                  "db850us0"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/db850us0.def */
+
+#define MAX_NCO_PRIMARY  	229
+#define MAX_NCO_SECONDARY	  0
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	183,						/*   133 -> · 183 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	210,						/*   136 -> Ò 210 */
+	211,						/*   137 -> Ó 211 */
+	212,						/*   138 -> Ô 212 */
+	216,						/*   139 -> Ø 216 */
+	215,						/*   140 -> × 215 */
+	222,						/*   141 -> Þ 222 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	227,						/*   149 -> ã 227 */
+	234,						/*   150 -> ê 234 */
+	235,						/*   151 -> ë 235 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	157,						/*   155 ->   157 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	73,							/* Õ 213 -> I  73 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	229,						/* ä 228 -> å 229 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	232,						/* ç 231 -> è 232 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	155,						/*   157 ->   155 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	133,						/* · 183 ->   133 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	136,						/* Ò 210 ->   136 */
+	137,						/* Ó 211 ->   137 */
+	138,						/* Ô 212 ->   138 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	139,						/* Ø 216 ->   139 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	141,						/* Þ 222 ->   141 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	149,						/* ã 227 ->   149 */
+	228,						/* ä 228 -> ä 228 */
+	228,						/* å 229 -> ä 228 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	231,						/* è 232 -> ç 231 */
+	163,						/* é 233 -> £ 163 */
+	150,						/* ê 234 ->   150 */
+	151,						/* ë 235 ->   151 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{225, 115, 115},			/* á -> ss */
+	{232, 84, 72},				/* è -> TH */
+	{231, 116, 104},			/* ç -> th */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 201, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 202, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 203, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 204, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 205, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 206, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 207, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 208, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 209, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 210, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 211, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 212, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 213, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 214, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 215, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 216, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 217, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 218, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 219, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 220, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 221, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 222, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 223, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 224, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 225, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 226, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 227, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 228, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 229, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_850.h"
+#endif
+/* End of File : Language driver db850us0 */
diff --git a/src/intl/db852cz0.h b/src/intl/db852cz0.h
new file mode 100644
index 0000000000..a4b2661b72
--- /dev/null
+++ b/src/intl/db852cz0.h
@@ -0,0 +1,977 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db852cz0 -----------*/
+/*----------- On      Thu May 19 17:50:34 1994 -----------*/
+
+/*  db852cz0.def */
+/*  Generated on Thu May 19 17:50:29 1994
+ */
+/*  from input file 'cfg/db852cz0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbCZECH
+
+
+#define LDRV_CTRYLANGID             CZECH
+
+
+#define LDRV_PRIMARYCPID            852
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1250
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE CSY cp852"
+
+
+#define LDRV_FNAME                  "db852cz0"
+
+
+#define NUM_EXPAND_CHARS            3
+
+
+#define NUM_COMPRESS_CHARS          3
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          3
+
+
+/* End of langdrv/db852cz0.def */
+
+#define MAX_NCO_PRIMARY  	153
+#define MAX_NCO_SECONDARY	 11
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	222,						/*   133 -> Þ 222 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	157,						/*   136 ->   157 */
+	211,						/*   137 -> Ó 211 */
+	138,						/*   138 ->   138 */
+	138,						/*   139 ->   138 */
+	215,						/*   140 -> × 215 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	149,						/*   149 ->   149 */
+	149,						/*   150 ->   149 */
+	151,						/*   151 ->   151 */
+	151,						/*   152 ->   151 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	155,						/*   156 ->   155 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	172,						/*   159 -> ¬ 172 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	166,						/* § 167 -> ¦ 166 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	168,						/* © 169 -> ¨ 168 */
+	170,						/* ª 170 -> ª 170 */
+	141,						/* « 171 ->   141 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	184,						/* ­ 173 -> ¸ 184 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	189,						/* ¾ 190 -> ½ 189 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	210,						/* Ô 212 -> Ò 210 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	183,						/* Ø 216 -> · 183 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	227,						/* ä 228 -> ã 227 */
+	213,						/* å 229 -> Õ 213 */
+	230,						/* æ 230 -> æ 230 */
+	230,						/* ç 231 -> æ 230 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	232,						/* ê 234 -> è 232 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	221,						/* î 238 -> Ý 221 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	235,						/* û 251 -> ë 235 */
+	252,						/* ü 252 -> ü 252 */
+	252,						/* ý 253 -> ü 252 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	139,						/*   138 ->   139 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	171,						/*   141 -> « 171 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	150,						/*   149 ->   150 */
+	150,						/*   150 ->   150 */
+	152,						/*   151 ->   152 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	156,						/*   155 ->   156 */
+	156,						/*   156 ->   156 */
+	136,						/*   157 ->   136 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	167,						/* ¦ 166 -> § 167 */
+	167,						/* § 167 -> § 167 */
+	169,						/* ¨ 168 -> © 169 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	159,						/* ¬ 172 ->   159 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	216,						/* · 183 -> Ø 216 */
+	173,						/* ¸ 184 -> ­ 173 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	190,						/* ½ 189 -> ¾ 190 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	212,						/* Ò 210 -> Ô 212 */
+	137,						/* Ó 211 ->   137 */
+	212,						/* Ô 212 -> Ô 212 */
+	229,						/* Õ 213 -> å 229 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	238,						/* Ý 221 -> î 238 */
+	133,						/* Þ 222 ->   133 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	228,						/* ã 227 -> ä 228 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	231,						/* æ 230 -> ç 231 */
+	231,						/* ç 231 -> ç 231 */
+	234,						/* è 232 -> ê 234 */
+	163,						/* é 233 -> £ 163 */
+	234,						/* ê 234 -> ê 234 */
+	251,						/* ë 235 -> û 251 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	253,						/* ü 252 -> ý 253 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{225, 115, 115},			/* á -> ss */
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	
+		{{99, 104},
+	 {FIRST_PRIMARY + 10, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 10, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ch */
+	{{67, 104},
+	 {FIRST_PRIMARY + 10, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 10, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Ch */
+	{{67, 72}, {FIRST_PRIMARY + 10, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 10, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* CH */
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 2, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  67 C */
+	{FIRST_PRIMARY + 5, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 7, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 8, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 9, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 12, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 26, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 27, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 2, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/*  99 c */
+	{FIRST_PRIMARY + 5, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 7, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 8, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 9, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 12, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 18, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 26, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 27, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 3, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 14, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 4, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 4, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 30, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 1, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 5, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 5, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 5, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 5, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 6, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 22, FIRST_SECONDARY + 6, NULL_TERTIARY, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 17, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 23, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 23, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 20, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 29, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_852.h"
+#endif
+/* End of File : Language driver db852cz0 */
diff --git a/src/intl/db852hdc.h b/src/intl/db852hdc.h
new file mode 100644
index 0000000000..2e55107d58
--- /dev/null
+++ b/src/intl/db852hdc.h
@@ -0,0 +1,968 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db852hdc -----------*/
+/*----------- On      Thu May 19 17:48:12 1994 -----------*/
+
+/*  db852hdc.def */
+/*  Generated on Thu May 19 17:48:06 1994
+ */
+/*  from input file 'cfg/db852hdc.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbHUNGARIAN
+
+
+#define LDRV_CTRYLANGID             HUNGARY
+
+
+#define LDRV_PRIMARYCPID            852
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1250
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE HUN cp852"
+
+
+#define LDRV_FNAME                  "db852hdc"
+
+
+#define NUM_EXPAND_CHARS            3
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/db852hdc.def */
+
+#define MAX_NCO_PRIMARY  	255
+#define MAX_NCO_SECONDARY	  0
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	222,						/*   133 -> Þ 222 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	157,						/*   136 ->   157 */
+	211,						/*   137 -> Ó 211 */
+	138,						/*   138 ->   138 */
+	138,						/*   139 ->   138 */
+	215,						/*   140 -> × 215 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	149,						/*   149 ->   149 */
+	149,						/*   150 ->   149 */
+	151,						/*   151 ->   151 */
+	151,						/*   152 ->   151 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	155,						/*   156 ->   155 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	172,						/*   159 -> ¬ 172 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	166,						/* § 167 -> ¦ 166 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	168,						/* © 169 -> ¨ 168 */
+	170,						/* ª 170 -> ª 170 */
+	141,						/* « 171 ->   141 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	184,						/* ­ 173 -> ¸ 184 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	189,						/* ¾ 190 -> ½ 189 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	210,						/* Ô 212 -> Ò 210 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	183,						/* Ø 216 -> · 183 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	227,						/* ä 228 -> ã 227 */
+	213,						/* å 229 -> Õ 213 */
+	230,						/* æ 230 -> æ 230 */
+	230,						/* ç 231 -> æ 230 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	232,						/* ê 234 -> è 232 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	221,						/* î 238 -> Ý 221 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	235,						/* û 251 -> ë 235 */
+	252,						/* ü 252 -> ü 252 */
+	252,						/* ý 253 -> ü 252 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	139,						/*   138 ->   139 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	171,						/*   141 -> « 171 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	150,						/*   149 ->   150 */
+	150,						/*   150 ->   150 */
+	152,						/*   151 ->   152 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	156,						/*   155 ->   156 */
+	156,						/*   156 ->   156 */
+	136,						/*   157 ->   136 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	167,						/* ¦ 166 -> § 167 */
+	167,						/* § 167 -> § 167 */
+	169,						/* ¨ 168 -> © 169 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	159,						/* ¬ 172 ->   159 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	216,						/* · 183 -> Ø 216 */
+	173,						/* ¸ 184 -> ­ 173 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	190,						/* ½ 189 -> ¾ 190 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	212,						/* Ò 210 -> Ô 212 */
+	137,						/* Ó 211 ->   137 */
+	212,						/* Ô 212 -> Ô 212 */
+	229,						/* Õ 213 -> å 229 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	238,						/* Ý 221 -> î 238 */
+	133,						/* Þ 222 ->   133 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	228,						/* ã 227 -> ä 228 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	231,						/* æ 230 -> ç 231 */
+	231,						/* ç 231 -> ç 231 */
+	234,						/* è 232 -> ê 234 */
+	163,						/* é 233 -> £ 163 */
+	234,						/* ê 234 -> ê 234 */
+	251,						/* ë 235 -> û 251 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	253,						/* ü 252 -> ý 253 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{225, 115, 115},			/* á -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 201, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 202, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 203, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 204, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 205, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 206, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 207, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 208, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 209, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 210, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 211, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 212, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 213, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 214, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 215, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 216, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 217, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 218, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 219, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 220, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 221, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 222, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 223, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 224, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 225, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 226, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 227, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 228, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 229, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 230, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 231, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 232, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 233, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 234, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 235, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 236, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 237, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 238, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 239, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 240, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 241, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 242, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 243, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 244, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 245, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 246, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 247, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 248, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 249, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 250, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 251, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 252, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 253, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 254, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 255, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_852.h"
+#endif
+/* End of File : Language driver db852hdc */
diff --git a/src/intl/db852po0.h b/src/intl/db852po0.h
new file mode 100644
index 0000000000..0ad12766a4
--- /dev/null
+++ b/src/intl/db852po0.h
@@ -0,0 +1,968 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db852po0 -----------*/
+/*----------- On      Thu May 19 17:51:49 1994 -----------*/
+
+/*  db852po0.def */
+/*  Generated on Thu May 19 17:51:43 1994
+ */
+/*  from input file 'cfg/db852po0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbPOLISH
+
+
+#define LDRV_CTRYLANGID             POLAND
+
+
+#define LDRV_PRIMARYCPID            852
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1250
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE PLK cp852"
+
+
+#define LDRV_FNAME                  "db852po0"
+
+
+#define NUM_EXPAND_CHARS            3
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/db852po0.def */
+
+#define MAX_NCO_PRIMARY  	164
+#define MAX_NCO_SECONDARY	  9
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	222,						/*   133 -> Þ 222 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	157,						/*   136 ->   157 */
+	211,						/*   137 -> Ó 211 */
+	138,						/*   138 ->   138 */
+	138,						/*   139 ->   138 */
+	215,						/*   140 -> × 215 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	149,						/*   149 ->   149 */
+	149,						/*   150 ->   149 */
+	151,						/*   151 ->   151 */
+	151,						/*   152 ->   151 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	155,						/*   156 ->   155 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	172,						/*   159 -> ¬ 172 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	166,						/* § 167 -> ¦ 166 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	168,						/* © 169 -> ¨ 168 */
+	170,						/* ª 170 -> ª 170 */
+	141,						/* « 171 ->   141 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	184,						/* ­ 173 -> ¸ 184 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	189,						/* ¾ 190 -> ½ 189 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	210,						/* Ô 212 -> Ò 210 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	183,						/* Ø 216 -> · 183 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	227,						/* ä 228 -> ã 227 */
+	213,						/* å 229 -> Õ 213 */
+	230,						/* æ 230 -> æ 230 */
+	230,						/* ç 231 -> æ 230 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	232,						/* ê 234 -> è 232 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	221,						/* î 238 -> Ý 221 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	235,						/* û 251 -> ë 235 */
+	252,						/* ü 252 -> ü 252 */
+	252,						/* ý 253 -> ü 252 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	139,						/*   138 ->   139 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	171,						/*   141 -> « 171 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	150,						/*   149 ->   150 */
+	150,						/*   150 ->   150 */
+	152,						/*   151 ->   152 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	156,						/*   155 ->   156 */
+	156,						/*   156 ->   156 */
+	136,						/*   157 ->   136 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	167,						/* ¦ 166 -> § 167 */
+	167,						/* § 167 -> § 167 */
+	169,						/* ¨ 168 -> © 169 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	159,						/* ¬ 172 ->   159 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	216,						/* · 183 -> Ø 216 */
+	173,						/* ¸ 184 -> ­ 173 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	190,						/* ½ 189 -> ¾ 190 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	212,						/* Ò 210 -> Ô 212 */
+	137,						/* Ó 211 ->   137 */
+	212,						/* Ô 212 -> Ô 212 */
+	229,						/* Õ 213 -> å 229 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	238,						/* Ý 221 -> î 238 */
+	133,						/* Þ 222 ->   133 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	228,						/* ã 227 -> ä 228 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	231,						/* æ 230 -> ç 231 */
+	231,						/* ç 231 -> ç 231 */
+	234,						/* è 232 -> ê 234 */
+	163,						/* é 233 -> £ 163 */
+	234,						/* ê 234 -> ê 234 */
+	251,						/* ë 235 -> û 251 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	253,						/* ü 252 -> ý 253 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{225, 115, 115},			/* á -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 45, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 46, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 50, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 51, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 53, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 54, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 55, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 56, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 57, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 58, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 59, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 61, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 62, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 45, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 46, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 50, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 51, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 53, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 54, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 55, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 56, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 57, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 58, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 59, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 61, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 62, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 48, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 51, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 47, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 48, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 60, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 51, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 56, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 47, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 51, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 59, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 59, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 59, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 59, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 60, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 49, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 56, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 44, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 44, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 52, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 52, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 49, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 51, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 43, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 50, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 50, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 50, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 51, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 50, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 64, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 56, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 56, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 51, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 63, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 63, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 64, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_852.h"
+#endif
+/* End of File : Language driver db852po0 */
diff --git a/src/intl/db852sl0.h b/src/intl/db852sl0.h
new file mode 100644
index 0000000000..e1e5cd7f80
--- /dev/null
+++ b/src/intl/db852sl0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db852sl0 -----------*/
+/*----------- On      Wed May 25 14:13:20 1994 -----------*/
+
+/*  db852sl0.def */
+/*  Generated on Wed May 25 14:13:15 1994
+ */
+/*  from input file 'cfg/db852sl0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbSLOVENE
+
+
+#define LDRV_CTRYLANGID             YUGOSLAVIA
+
+
+#define LDRV_PRIMARYCPID            852
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1250
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE SLO cp852"
+
+
+#define LDRV_FNAME                  "db852sl0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          2
+
+
+/* End of langdrv/db852sl0.def */
+
+#define MAX_NCO_PRIMARY  	153
+#define MAX_NCO_SECONDARY	 11
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	222,						/*   133 -> Þ 222 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	157,						/*   136 ->   157 */
+	211,						/*   137 -> Ó 211 */
+	138,						/*   138 ->   138 */
+	138,						/*   139 ->   138 */
+	215,						/*   140 -> × 215 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	149,						/*   149 ->   149 */
+	149,						/*   150 ->   149 */
+	151,						/*   151 ->   151 */
+	151,						/*   152 ->   151 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	155,						/*   156 ->   155 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	172,						/*   159 -> ¬ 172 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	166,						/* § 167 -> ¦ 166 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	168,						/* © 169 -> ¨ 168 */
+	170,						/* ª 170 -> ª 170 */
+	141,						/* « 171 ->   141 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	184,						/* ­ 173 -> ¸ 184 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	189,						/* ¾ 190 -> ½ 189 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	210,						/* Ô 212 -> Ò 210 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	183,						/* Ø 216 -> · 183 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	227,						/* ä 228 -> ã 227 */
+	213,						/* å 229 -> Õ 213 */
+	230,						/* æ 230 -> æ 230 */
+	230,						/* ç 231 -> æ 230 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	232,						/* ê 234 -> è 232 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	221,						/* î 238 -> Ý 221 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	235,						/* û 251 -> ë 235 */
+	252,						/* ü 252 -> ü 252 */
+	252,						/* ý 253 -> ü 252 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	139,						/*   138 ->   139 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	171,						/*   141 -> « 171 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	150,						/*   149 ->   150 */
+	150,						/*   150 ->   150 */
+	152,						/*   151 ->   152 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	156,						/*   155 ->   156 */
+	156,						/*   156 ->   156 */
+	136,						/*   157 ->   136 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	167,						/* ¦ 166 -> § 167 */
+	167,						/* § 167 -> § 167 */
+	169,						/* ¨ 168 -> © 169 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	159,						/* ¬ 172 ->   159 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	216,						/* · 183 -> Ø 216 */
+	173,						/* ¸ 184 -> ­ 173 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	190,						/* ½ 189 -> ¾ 190 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	212,						/* Ò 210 -> Ô 212 */
+	137,						/* Ó 211 ->   137 */
+	212,						/* Ô 212 -> Ô 212 */
+	229,						/* Õ 213 -> å 229 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	238,						/* Ý 221 -> î 238 */
+	133,						/* Þ 222 ->   133 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	228,						/* ã 227 -> ä 228 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	231,						/* æ 230 -> ç 231 */
+	231,						/* ç 231 -> ç 231 */
+	234,						/* è 232 -> ê 234 */
+	163,						/* é 233 -> £ 163 */
+	234,						/* ê 234 -> ê 234 */
+	251,						/* ë 235 -> û 251 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	253,						/* ü 252 -> ý 253 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_852.h"
+#endif
+/* End of File : Language driver db852sl0 */
diff --git a/src/intl/db857tr0.h b/src/intl/db857tr0.h
new file mode 100644
index 0000000000..5dcee560d5
--- /dev/null
+++ b/src/intl/db857tr0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db857tr0 -----------*/
+/*----------- On      Tue May 17 11:09:27 1994 -----------*/
+
+/*  db857tr0.def */
+/*  Generated on Tue May 17 11:09:22 1994
+ */
+/*  from input file 'cfg/db857tr0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbTURK
+
+
+#define LDRV_CTRYLANGID             TURKEY
+
+
+#define LDRV_PRIMARYCPID            857
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1254
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE TRK cp857"
+
+
+#define LDRV_FNAME                  "db857tr0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          2
+
+
+/* End of langdrv/db857tr0.def */
+
+#define MAX_NCO_PRIMARY  	177
+#define MAX_NCO_SECONDARY	  7
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	183,						/*   133 -> · 183 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	210,						/*   136 -> Ò 210 */
+	211,						/*   137 -> Ó 211 */
+	212,						/*   138 -> Ô 212 */
+	216,						/*   139 -> Ø 216 */
+	215,						/*   140 -> × 215 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	227,						/*   149 -> ã 227 */
+	234,						/*   150 -> ê 234 */
+	235,						/*   151 -> ë 235 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	158,						/*   159 ->   158 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	166,						/* § 167 -> ¦ 166 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	229,						/* ä 228 -> å 229 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	222,						/* ì 236 -> Þ 222 */
+	89,							/* í 237 -> Y  89 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	105,						/*   152 -> i 105 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	159,						/*   158 ->   159 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	167,						/* ¦ 166 -> § 167 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	133,						/* · 183 ->   133 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	136,						/* Ò 210 ->   136 */
+	137,						/* Ó 211 ->   137 */
+	138,						/* Ô 212 ->   138 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	139,						/* Ø 216 ->   139 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	236,						/* Þ 222 -> ì 236 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	149,						/* ã 227 ->   149 */
+	228,						/* ä 228 -> ä 228 */
+	228,						/* å 229 -> ä 228 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	163,						/* é 233 -> £ 163 */
+	150,						/* ê 234 ->   150 */
+	151,						/* ë 235 ->   151 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 27, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 41, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 27, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 41, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 5, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 7, FIRST_TERTIARY + 0, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 27, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 27, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 0, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 6, FIRST_TERTIARY + 1, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 16, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 5, FIRST_TERTIARY + 1, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 28, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 36, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 21, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 41, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_857.h"
+#endif
+/* End of File : Language driver db857tr0 */
diff --git a/src/intl/db860pt0.h b/src/intl/db860pt0.h
new file mode 100644
index 0000000000..d7c6826012
--- /dev/null
+++ b/src/intl/db860pt0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db860pt0 -----------*/
+/*----------- On      Fri May 13 17:47:59 1994 -----------*/
+
+/*  db860pt0.def */
+/*  Generated on Fri May 13 17:47:53 1994
+ */
+/*  from input file 'cfg/db860pt0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbPORTUGUESE
+
+
+#define LDRV_CTRYLANGID             PORTUGAL
+
+
+#define LDRV_PRIMARYCPID            860
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE PTG cp860"
+
+
+#define LDRV_FNAME                  "db860pt0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          4
+
+
+/* End of langdrv/db860pt0.def */
+
+#define MAX_NCO_PRIMARY  	194
+#define MAX_NCO_SECONDARY	  4
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	143,						/*   131 ->   143 */
+	142,						/*   132 ->   142 */
+	145,						/*   133 ->   145 */
+	134,						/*   134 ->   134 */
+	128,						/*   135 ->   128 */
+	137,						/*   136 ->   137 */
+	137,						/*   137 ->   137 */
+	146,						/*   138 ->   146 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	152,						/*   141 ->   152 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	140,						/*   147 ->   140 */
+	153,						/*   148 ->   153 */
+	169,						/*   149 -> © 169 */
+	150,						/*   150 ->   150 */
+	157,						/*   151 ->   157 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	134,						/*   160 ->   134 */
+	139,						/* ¡ 161 ->   139 */
+	159,						/* ¢ 162 ->   159 */
+	150,						/* £ 163 ->   150 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	160,						/*   134 ->   160 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	136,						/*   137 ->   136 */
+	138,						/*   138 ->   138 */
+	161,						/*   139 -> ¡ 161 */
+	147,						/*   140 ->   147 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	131,						/*   143 ->   131 */
+	130,						/*   144 ->   130 */
+	133,						/*   145 ->   133 */
+	138,						/*   146 ->   138 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	163,						/*   150 -> £ 163 */
+	151,						/*   151 ->   151 */
+	141,						/*   152 ->   141 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	151,						/*   157 ->   151 */
+	158,						/*   158 ->   158 */
+	162,						/*   159 -> ¢ 162 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	149,						/* © 169 ->   149 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 170, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 183, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 189, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 170, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 183, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 189, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 170, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 189, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 170, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 183, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 172, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 183, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 183, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 183, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 189, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 189, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 183, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 189, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 189, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 183, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 168, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 176, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 183, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 189, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 183, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_860.h"
+#endif
+/* End of File : Language driver db860pt0 */
diff --git a/src/intl/db863cf1.h b/src/intl/db863cf1.h
new file mode 100644
index 0000000000..b670e4dc48
--- /dev/null
+++ b/src/intl/db863cf1.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db863cf1 -----------*/
+/*----------- On      Mon May 16 10:31:24 1994 -----------*/
+
+/*  db863cf1.def */
+/*  Generated on Mon May 16 10:31:18 1994
+ */
+/*  from input file 'cfg/db863cf1.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbFRENCHCAN
+
+
+#define LDRV_CTRYLANGID             CANADA
+
+
+#define LDRV_PRIMARYCPID            863
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE FRC cp863"
+
+
+#define LDRV_FNAME                  "db863cf1"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          4
+
+
+/* End of langdrv/db863cf1.def */
+
+#define MAX_NCO_PRIMARY  	201
+#define MAX_NCO_SECONDARY	  4
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	132,						/*   131 ->   132 */
+	132,						/*   132 ->   132 */
+	142,						/*   133 ->   142 */
+	134,						/*   134 ->   134 */
+	128,						/*   135 ->   128 */
+	146,						/*   136 ->   146 */
+	148,						/*   137 ->   148 */
+	145,						/*   138 ->   145 */
+	149,						/*   139 ->   149 */
+	168,						/*   140 -> ¨ 168 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	153,						/*   147 ->   153 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	158,						/*   150 ->   158 */
+	157,						/*   151 ->   157 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	131,						/*   132 ->   131 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	133,						/*   142 ->   133 */
+	143,						/*   143 ->   143 */
+	130,						/*   144 ->   130 */
+	138,						/*   145 ->   138 */
+	136,						/*   146 ->   136 */
+	147,						/*   147 ->   147 */
+	137,						/*   148 ->   137 */
+	139,						/*   149 ->   139 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	147,						/*   153 ->   147 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	151,						/*   157 ->   151 */
+	150,						/*   158 ->   150 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	140,						/* ¨ 168 ->   140 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 1, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 1, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 201, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_863.h"
+#endif
+/* End of File : Language driver db863cf1 */
diff --git a/src/intl/db865da0.h b/src/intl/db865da0.h
new file mode 100644
index 0000000000..c0e357ddbb
--- /dev/null
+++ b/src/intl/db865da0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db865da0 -----------*/
+/*----------- On      Wed May 18 16:10:23 1994 -----------*/
+
+/*  db865da0.def */
+/*  Generated on Wed May 18 16:10:17 1994
+ */
+/*  from input file 'cfg/db865da0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbDANISH
+
+
+#define LDRV_CTRYLANGID             DENMARK
+
+
+#define LDRV_PRIMARYCPID            865
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE DAN cp865"
+
+
+#define LDRV_FNAME                  "db865da0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          4
+
+
+/* End of langdrv/db865da0.def */
+
+#define MAX_NCO_PRIMARY  	199
+#define MAX_NCO_SECONDARY	  4
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	157,						/*   155 ->   157 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	155,						/*   157 ->   155 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_865.h"
+#endif
+/* End of File : Language driver db865da0 */
diff --git a/src/intl/db865no0.h b/src/intl/db865no0.h
new file mode 100644
index 0000000000..2c142107a8
--- /dev/null
+++ b/src/intl/db865no0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db865no0 -----------*/
+/*----------- On      Wed May 18 16:11:54 1994 -----------*/
+
+/*  db865no0.def */
+/*  Generated on Wed May 18 16:11:49 1994
+ */
+/*  from input file 'cfg/db865no0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbNORWEGIAN
+
+
+#define LDRV_CTRYLANGID             NORWAY
+
+
+#define LDRV_PRIMARYCPID            865
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE NOR cp865"
+
+
+#define LDRV_FNAME                  "db865no0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          4
+
+
+/* End of langdrv/db865no0.def */
+
+#define MAX_NCO_PRIMARY  	199
+#define MAX_NCO_SECONDARY	  4
+#define MAX_NCO_TERTIARY 	  1
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	157,						/*   155 ->   157 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	155,						/*   157 ->   155 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 81, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 82, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 83, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 84, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 85, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 86, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 87, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 88, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 89, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 90, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 73, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 67, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 68, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 66, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 75, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 65, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 1, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 76, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 78, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 74, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 0, FIRST_TERTIARY + 0, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 77, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 13, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 4, FIRST_TERTIARY + 0, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 15, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 3, FIRST_TERTIARY + 0, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 2, FIRST_TERTIARY + 0, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 35, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 4, FIRST_TERTIARY + 1, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 0, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 69, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, FIRST_TERTIARY + 1, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 71, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 70, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 11, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 19, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 25, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 31, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 0, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 24, FIRST_SECONDARY + 1, FIRST_TERTIARY + 1, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 79, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 80, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 72, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_865.h"
+#endif
+/* End of File : Language driver db865no0 */
diff --git a/src/intl/db866ru0.h b/src/intl/db866ru0.h
new file mode 100644
index 0000000000..7415febbdd
--- /dev/null
+++ b/src/intl/db866ru0.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from db866ru0 -----------*/
+/*----------- On      Tue May 17 11:20:16 1994 -----------*/
+
+/*  db866ru0.def */
+/*  Generated on Tue May 17 11:20:09 1994
+ */
+/*  from input file 'cfg/db866ru0.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               dbRUSSIAN
+
+
+#define LDRV_CTRYLANGID             RUSSIA
+
+
+#define LDRV_PRIMARYCPID            866
+
+
+#define LDRV_PID                    DBASE
+
+
+#define LDRV_ALTCPID                1251
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "dBASE RUS cp866"
+
+
+#define LDRV_FNAME                  "db866ru0"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/db866ru0.def */
+
+#define MAX_NCO_PRIMARY  	196
+#define MAX_NCO_SECONDARY	  1
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	128,						/*   160 ->   128 */
+	129,						/* ¡ 161 ->   129 */
+	130,						/* ¢ 162 ->   130 */
+	131,						/* £ 163 ->   131 */
+	132,						/* ¤ 164 ->   132 */
+	133,						/* ¥ 165 ->   133 */
+	134,						/* ¦ 166 ->   134 */
+	135,						/* § 167 ->   135 */
+	136,						/* ¨ 168 ->   136 */
+	137,						/* © 169 ->   137 */
+	138,						/* ª 170 ->   138 */
+	139,						/* « 171 ->   139 */
+	140,						/* ¬ 172 ->   140 */
+	141,						/* ­ 173 ->   141 */
+	142,						/* ® 174 ->   142 */
+	143,						/* ¯ 175 ->   143 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	144,						/* à 224 ->   144 */
+	145,						/* á 225 ->   145 */
+	146,						/* â 226 ->   146 */
+	147,						/* ã 227 ->   147 */
+	148,						/* ä 228 ->   148 */
+	149,						/* å 229 ->   149 */
+	150,						/* æ 230 ->   150 */
+	151,						/* ç 231 ->   151 */
+	152,						/* è 232 ->   152 */
+	153,						/* é 233 ->   153 */
+	154,						/* ê 234 ->   154 */
+	155,						/* ë 235 ->   155 */
+	156,						/* ì 236 ->   156 */
+	157,						/* í 237 ->   157 */
+	158,						/* î 238 ->   158 */
+	159,						/* ï 239 ->   159 */
+	240,						/* ð 240 -> ð 240 */
+	240,						/* ñ 241 -> ð 240 */
+	242,						/* ò 242 -> ò 242 */
+	242,						/* ó 243 -> ò 242 */
+	244,						/* ô 244 -> ô 244 */
+	244,						/* õ 245 -> ô 244 */
+	246,						/* ö 246 -> ö 246 */
+	246,						/* ÷ 247 -> ö 246 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	97,							/*   128 -> a  97 */
+	161,						/*   129 -> ¡ 161 */
+	162,						/*   130 -> ¢ 162 */
+	163,						/*   131 -> £ 163 */
+	164,						/*   132 -> ¤ 164 */
+	165,						/*   133 -> ¥ 165 */
+	166,						/*   134 -> ¦ 166 */
+	167,						/*   135 -> § 167 */
+	168,						/*   136 -> ¨ 168 */
+	169,						/*   137 -> © 169 */
+	170,						/*   138 -> ª 170 */
+	171,						/*   139 -> « 171 */
+	172,						/*   140 -> ¬ 172 */
+	173,						/*   141 -> ­ 173 */
+	174,						/*   142 -> ® 174 */
+	175,						/*   143 -> ¯ 175 */
+	224,						/*   144 -> à 224 */
+	225,						/*   145 -> á 225 */
+	226,						/*   146 -> â 226 */
+	227,						/*   147 -> ã 227 */
+	228,						/*   148 -> ä 228 */
+	229,						/*   149 -> å 229 */
+	230,						/*   150 -> æ 230 */
+	231,						/*   151 -> ç 231 */
+	232,						/*   152 -> è 232 */
+	233,						/*   153 -> é 233 */
+	234,						/*   154 -> ê 234 */
+	235,						/*   155 -> ë 235 */
+	236,						/*   156 -> ì 236 */
+	237,						/*   157 -> í 237 */
+	238,						/*   158 -> î 238 */
+	239,						/*   159 -> ï 239 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	241,						/* ð 240 -> ñ 241 */
+	241,						/* ñ 241 -> ñ 241 */
+	243,						/* ò 242 -> ó 243 */
+	243,						/* ó 243 -> ó 243 */
+	245,						/* ô 244 -> õ 245 */
+	245,						/* õ 245 -> õ 245 */
+	247,						/* ö 246 -> ÷ 247 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 104, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 109, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 111, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 112, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 113, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 114, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 115, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 116, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 117, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 118, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 119, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 120, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 121, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 122, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 101, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 104, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 109, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 111, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 112, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 113, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 114, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 115, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 116, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 117, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 118, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 119, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 120, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 121, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 122, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 123, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_866.h"
+#endif
+/* End of File : Language driver db866ru0 */
diff --git a/src/intl/depends.mak b/src/intl/depends.mak
new file mode 100644
index 0000000000..38ce33316f
--- /dev/null
+++ b/src/intl/depends.mak
@@ -0,0 +1,597 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# depends.mak - intl
+# Created by 'make depends.mak'
+# Created on 1998-11-17
+cs_big5.o: charsets.h
+cs_big5.o: country_codes.h
+cs_big5.o: cs_big5.c
+cs_big5.o: cs_big5.h
+cs_big5.o: langdrv.h
+cs_big5.o: ld.h
+cs_big5.o: ldcommon.h
+cs_big5.o: source/jrd/blk.h
+cs_big5.o: source/jrd/btr.h
+cs_big5.o: source/jrd/common.h
+cs_big5.o: source/jrd/dsc.h
+cs_big5.o: source/jrd/gdsassert.h
+cs_big5.o: source/jrd/intl.h
+cs_big5.o: source/jrd/intlobj.h
+cs_big5.o: source/jrd/isc.h
+cs_big5.o: source/jrd/jrd.h
+cs_big5.o: source/jrd/kanji.h
+cs_big5.o: source/jrd/ods.h
+cs_big5.o: source/jrd/thd.h
+cs_gb2312.o: charsets.h
+cs_gb2312.o: country_codes.h
+cs_gb2312.o: cs_gb2312.c
+cs_gb2312.o: cs_gb2312.h
+cs_gb2312.o: langdrv.h
+cs_gb2312.o: ld.h
+cs_gb2312.o: ldcommon.h
+cs_gb2312.o: source/jrd/blk.h
+cs_gb2312.o: source/jrd/btr.h
+cs_gb2312.o: source/jrd/common.h
+cs_gb2312.o: source/jrd/dsc.h
+cs_gb2312.o: source/jrd/gdsassert.h
+cs_gb2312.o: source/jrd/intl.h
+cs_gb2312.o: source/jrd/intlobj.h
+cs_gb2312.o: source/jrd/isc.h
+cs_gb2312.o: source/jrd/jrd.h
+cs_gb2312.o: source/jrd/kanji.h
+cs_gb2312.o: source/jrd/ods.h
+cs_gb2312.o: source/jrd/thd.h
+cs_jis.o: charsets.h
+cs_jis.o: country_codes.h
+cs_jis.o: cs_jis.c
+cs_jis.o: cs_jis_0208_1990.h
+cs_jis.o: langdrv.h
+cs_jis.o: ld.h
+cs_jis.o: ldcommon.h
+cs_jis.o: source/jrd/blk.h
+cs_jis.o: source/jrd/btr.h
+cs_jis.o: source/jrd/common.h
+cs_jis.o: source/jrd/dsc.h
+cs_jis.o: source/jrd/gdsassert.h
+cs_jis.o: source/jrd/intl.h
+cs_jis.o: source/jrd/intlobj.h
+cs_jis.o: source/jrd/isc.h
+cs_jis.o: source/jrd/jrd.h
+cs_jis.o: source/jrd/kanji.h
+cs_jis.o: source/jrd/ods.h
+cs_jis.o: source/jrd/thd.h
+cs_jis_20208_1990.o: charsets.h
+cs_jis_20208_1990.o: country_codes.h
+cs_jis_20208_1990.o: cs_jis_20208_1990.c
+cs_jis_20208_1990.o: langdrv.h
+cs_jis_20208_1990.o: ld.h
+cs_jis_20208_1990.o: ldcommon.h
+cs_jis_20208_1990.o: source/jrd/blk.h
+cs_jis_20208_1990.o: source/jrd/btr.h
+cs_jis_20208_1990.o: source/jrd/common.h
+cs_jis_20208_1990.o: source/jrd/dsc.h
+cs_jis_20208_1990.o: source/jrd/gdsassert.h
+cs_jis_20208_1990.o: source/jrd/intl.h
+cs_jis_20208_1990.o: source/jrd/intlobj.h
+cs_jis_20208_1990.o: source/jrd/isc.h
+cs_jis_20208_1990.o: source/jrd/jrd.h
+cs_jis_20208_1990.o: source/jrd/kanji.h
+cs_jis_20208_1990.o: source/jrd/ods.h
+cs_jis_20208_1990.o: source/jrd/thd.h
+cs_ksc.o: charsets.h
+cs_ksc.o: country_codes.h
+cs_ksc.o: cs_ksc.c
+cs_ksc.o: cs_ksc5601.h
+cs_ksc.o: langdrv.h
+cs_ksc.o: ld.h
+cs_ksc.o: ldcommon.h
+cs_ksc.o: source/jrd/blk.h
+cs_ksc.o: source/jrd/btr.h
+cs_ksc.o: source/jrd/common.h
+cs_ksc.o: source/jrd/dsc.h
+cs_ksc.o: source/jrd/gdsassert.h
+cs_ksc.o: source/jrd/intl.h
+cs_ksc.o: source/jrd/intlobj.h
+cs_ksc.o: source/jrd/isc.h
+cs_ksc.o: source/jrd/jrd.h
+cs_ksc.o: source/jrd/kanji.h
+cs_ksc.o: source/jrd/ods.h
+cs_ksc.o: source/jrd/thd.h
+cs_narrow.o: charsets.h
+cs_narrow.o: country_codes.h
+cs_narrow.o: cs_437.h
+cs_narrow.o: cs_850.h
+cs_narrow.o: cs_852.h
+cs_narrow.o: cs_857.h
+cs_narrow.o: cs_860.h
+cs_narrow.o: cs_861.h
+cs_narrow.o: cs_863.h
+cs_narrow.o: cs_865.h
+cs_narrow.o: cs_cyrl.h
+cs_narrow.o: cs_latin1.h
+cs_narrow.o: cs_narrow.c
+cs_narrow.o: cs_next.h
+cs_narrow.o: cs_w1250.h
+cs_narrow.o: cs_w1251.h
+cs_narrow.o: cs_w1252.h
+cs_narrow.o: cs_w1253.h
+cs_narrow.o: cs_w1254.h
+cs_narrow.o: langdrv.h
+cs_narrow.o: ld.h
+cs_narrow.o: ldcommon.h
+cs_narrow.o: source/jrd/blk.h
+cs_narrow.o: source/jrd/btr.h
+cs_narrow.o: source/jrd/common.h
+cs_narrow.o: source/jrd/dsc.h
+cs_narrow.o: source/jrd/gdsassert.h
+cs_narrow.o: source/jrd/intl.h
+cs_narrow.o: source/jrd/intlobj.h
+cs_narrow.o: source/jrd/isc.h
+cs_narrow.o: source/jrd/jrd.h
+cs_narrow.o: source/jrd/kanji.h
+cs_narrow.o: source/jrd/ods.h
+cs_narrow.o: source/jrd/thd.h
+cs_unicode.o: charsets.h
+cs_unicode.o: country_codes.h
+cs_unicode.o: cs_unicode.c
+cs_unicode.o: langdrv.h
+cs_unicode.o: ld.h
+cs_unicode.o: ldcommon.h
+cs_unicode.o: source/jrd/blk.h
+cs_unicode.o: source/jrd/btr.h
+cs_unicode.o: source/jrd/common.h
+cs_unicode.o: source/jrd/dsc.h
+cs_unicode.o: source/jrd/gdsassert.h
+cs_unicode.o: source/jrd/intl.h
+cs_unicode.o: source/jrd/intlobj.h
+cs_unicode.o: source/jrd/isc.h
+cs_unicode.o: source/jrd/jrd.h
+cs_unicode.o: source/jrd/kanji.h
+cs_unicode.o: source/jrd/ods.h
+cs_unicode.o: source/jrd/thd.h
+cs_utffss.o: charsets.h
+cs_utffss.o: country_codes.h
+cs_utffss.o: cs_utffss.c
+cs_utffss.o: langdrv.h
+cs_utffss.o: ld.h
+cs_utffss.o: ldcommon.h
+cs_utffss.o: source/jrd/blk.h
+cs_utffss.o: source/jrd/btr.h
+cs_utffss.o: source/jrd/common.h
+cs_utffss.o: source/jrd/dsc.h
+cs_utffss.o: source/jrd/gdsassert.h
+cs_utffss.o: source/jrd/intl.h
+cs_utffss.o: source/jrd/intlobj.h
+cs_utffss.o: source/jrd/isc.h
+cs_utffss.o: source/jrd/jrd.h
+cs_utffss.o: source/jrd/kanji.h
+cs_utffss.o: source/jrd/ods.h
+cs_utffss.o: source/jrd/thd.h
+cv_big5.o: charsets.h
+cv_big5.o: country_codes.h
+cv_big5.o: cv_big5.c
+cv_big5.o: langdrv.h
+cv_big5.o: ld.h
+cv_big5.o: ldcommon.h
+cv_big5.o: source/jrd/blk.h
+cv_big5.o: source/jrd/btr.h
+cv_big5.o: source/jrd/common.h
+cv_big5.o: source/jrd/dsc.h
+cv_big5.o: source/jrd/gdsassert.h
+cv_big5.o: source/jrd/intl.h
+cv_big5.o: source/jrd/intlobj.h
+cv_big5.o: source/jrd/isc.h
+cv_big5.o: source/jrd/jrd.h
+cv_big5.o: source/jrd/kanji.h
+cv_big5.o: source/jrd/ods.h
+cv_big5.o: source/jrd/thd.h
+cv_gb2312.o: charsets.h
+cv_gb2312.o: country_codes.h
+cv_gb2312.o: cv_gb2312.c
+cv_gb2312.o: langdrv.h
+cv_gb2312.o: ld.h
+cv_gb2312.o: ldcommon.h
+cv_gb2312.o: source/jrd/blk.h
+cv_gb2312.o: source/jrd/btr.h
+cv_gb2312.o: source/jrd/common.h
+cv_gb2312.o: source/jrd/dsc.h
+cv_gb2312.o: source/jrd/gdsassert.h
+cv_gb2312.o: source/jrd/intl.h
+cv_gb2312.o: source/jrd/intlobj.h
+cv_gb2312.o: source/jrd/isc.h
+cv_gb2312.o: source/jrd/jrd.h
+cv_gb2312.o: source/jrd/kanji.h
+cv_gb2312.o: source/jrd/ods.h
+cv_gb2312.o: source/jrd/thd.h
+cv_jis.o: charsets.h
+cv_jis.o: country_codes.h
+cv_jis.o: cs_sjis.h
+cv_jis.o: cv_jis.c
+cv_jis.o: langdrv.h
+cv_jis.o: ld.h
+cv_jis.o: ldcommon.h
+cv_jis.o: source/jrd/blk.h
+cv_jis.o: source/jrd/btr.h
+cv_jis.o: source/jrd/common.h
+cv_jis.o: source/jrd/dsc.h
+cv_jis.o: source/jrd/gdsassert.h
+cv_jis.o: source/jrd/intl.h
+cv_jis.o: source/jrd/intlobj.h
+cv_jis.o: source/jrd/isc.h
+cv_jis.o: source/jrd/jrd.h
+cv_jis.o: source/jrd/kanji.h
+cv_jis.o: source/jrd/ods.h
+cv_jis.o: source/jrd/thd.h
+cv_ksc.o: charsets.h
+cv_ksc.o: country_codes.h
+cv_ksc.o: cv_ksc.c
+cv_ksc.o: langdrv.h
+cv_ksc.o: ld.h
+cv_ksc.o: ldcommon.h
+cv_ksc.o: source/jrd/blk.h
+cv_ksc.o: source/jrd/btr.h
+cv_ksc.o: source/jrd/common.h
+cv_ksc.o: source/jrd/dsc.h
+cv_ksc.o: source/jrd/gdsassert.h
+cv_ksc.o: source/jrd/intl.h
+cv_ksc.o: source/jrd/intlobj.h
+cv_ksc.o: source/jrd/isc.h
+cv_ksc.o: source/jrd/jrd.h
+cv_ksc.o: source/jrd/kanji.h
+cv_ksc.o: source/jrd/ods.h
+cv_ksc.o: source/jrd/thd.h
+cv_narrow.o: charsets.h
+cv_narrow.o: country_codes.h
+cv_narrow.o: cv_narrow.c
+cv_narrow.o: langdrv.h
+cv_narrow.o: ld.h
+cv_narrow.o: ldcommon.h
+cv_narrow.o: source/jrd/blk.h
+cv_narrow.o: source/jrd/btr.h
+cv_narrow.o: source/jrd/common.h
+cv_narrow.o: source/jrd/dsc.h
+cv_narrow.o: source/jrd/gdsassert.h
+cv_narrow.o: source/jrd/intl.h
+cv_narrow.o: source/jrd/intlobj.h
+cv_narrow.o: source/jrd/isc.h
+cv_narrow.o: source/jrd/jrd.h
+cv_narrow.o: source/jrd/kanji.h
+cv_narrow.o: source/jrd/ods.h
+cv_narrow.o: source/jrd/thd.h
+cv_narrow.o: tx437_865.h
+cv_narrow.o: tx437_lat1.h
+cv_narrow.o: tx865_lat1.h
+dtest.o: charsets.h
+dtest.o: dtest.c
+dtest.o: source/jrd/intl.h
+dtest2.o: charsets.h
+dtest2.o: country_codes.h
+dtest2.o: dtest2.c
+dtest2.o: source/jrd/all.h
+dtest2.o: source/jrd/all_proto.h
+dtest2.o: source/jrd/blk.h
+dtest2.o: source/jrd/btr.h
+dtest2.o: source/jrd/build_no.h
+dtest2.o: source/jrd/codes.h
+dtest2.o: source/jrd/common.h
+dtest2.o: source/jrd/cvt_proto.h
+dtest2.o: source/jrd/dsc.h
+dtest2.o: source/jrd/err_proto.h
+dtest2.o: source/jrd/evl_proto.h
+dtest2.o: source/jrd/fil.h
+dtest2.o: source/jrd/flu_proto.h
+dtest2.o: source/jrd/fun_proto.h
+dtest2.o: source/jrd/gds_proto.h
+dtest2.o: source/jrd/gdsassert.h
+dtest2.o: source/jrd/iberr_proto.h
+dtest2.o: source/jrd/intl.c
+dtest2.o: source/jrd/intl.h
+dtest2.o: source/jrd/intl_proto.h
+dtest2.o: source/jrd/intlobj.h
+dtest2.o: source/jrd/isc.h
+dtest2.o: source/jrd/isc_proto.h
+dtest2.o: source/jrd/jrd.h
+dtest2.o: source/jrd/license.h
+dtest2.o: source/jrd/ods.h
+dtest2.o: source/jrd/req.h
+dtest2.o: source/jrd/thd.h
+dtest2.o: source/jrd/thd_proto.h
+dtest2.o: source/jrd/val.h
+intlwep.o: intlwep.c
+intlwep.o: source/jrd/common.h
+lc_ascii.o: charsets.h
+lc_ascii.o: country_codes.h
+lc_ascii.o: langdrv.h
+lc_ascii.o: lc_ascii.c
+lc_ascii.o: ld.h
+lc_ascii.o: ldcommon.h
+lc_ascii.o: source/jrd/blk.h
+lc_ascii.o: source/jrd/btr.h
+lc_ascii.o: source/jrd/common.h
+lc_ascii.o: source/jrd/dsc.h
+lc_ascii.o: source/jrd/gdsassert.h
+lc_ascii.o: source/jrd/intl.h
+lc_ascii.o: source/jrd/intlobj.h
+lc_ascii.o: source/jrd/isc.h
+lc_ascii.o: source/jrd/jrd.h
+lc_ascii.o: source/jrd/kanji.h
+lc_ascii.o: source/jrd/ods.h
+lc_ascii.o: source/jrd/thd.h
+lc_ascii.o: undef.h
+lc_big5.o: charsets.h
+lc_big5.o: country_codes.h
+lc_big5.o: langdrv.h
+lc_big5.o: lc_big5.c
+lc_big5.o: ld.h
+lc_big5.o: ldcommon.h
+lc_big5.o: source/jrd/blk.h
+lc_big5.o: source/jrd/btr.h
+lc_big5.o: source/jrd/build_no.h
+lc_big5.o: source/jrd/common.h
+lc_big5.o: source/jrd/dsc.h
+lc_big5.o: source/jrd/gdsassert.h
+lc_big5.o: source/jrd/intl.h
+lc_big5.o: source/jrd/intlobj.h
+lc_big5.o: source/jrd/isc.h
+lc_big5.o: source/jrd/jrd.h
+lc_big5.o: source/jrd/kanji.h
+lc_big5.o: source/jrd/license.h
+lc_big5.o: source/jrd/ods.h
+lc_big5.o: source/jrd/thd.h
+lc_big5.o: undef.h
+lc_dos.o: charsets.h
+lc_dos.o: country_codes.h
+lc_dos.o: cyrr.h
+lc_dos.o: czech.h
+lc_dos.o: db437de0.h
+lc_dos.o: db437es1.h
+lc_dos.o: db437fi0.h
+lc_dos.o: db437fr0.h
+lc_dos.o: db437it0.h
+lc_dos.o: db437nl0.h
+lc_dos.o: db437sv0.h
+lc_dos.o: db437uk0.h
+lc_dos.o: db437us0.h
+lc_dos.o: db850cf0.h
+lc_dos.o: db850de0.h
+lc_dos.o: db850es0.h
+lc_dos.o: db850fr0.h
+lc_dos.o: db850it1.h
+lc_dos.o: db850nl0.h
+lc_dos.o: db850pt0.h
+lc_dos.o: db850sv1.h
+lc_dos.o: db850uk0.h
+lc_dos.o: db850us0.h
+lc_dos.o: db852cz0.h
+lc_dos.o: db852po0.h
+lc_dos.o: db852sl0.h
+lc_dos.o: db857tr0.h
+lc_dos.o: db860pt0.h
+lc_dos.o: db863cf1.h
+lc_dos.o: db865da0.h
+lc_dos.o: db865no0.h
+lc_dos.o: db866ru0.h
+lc_dos.o: hun852dc.h
+lc_dos.o: iceland.h
+lc_dos.o: intl.h
+lc_dos.o: langdrv.h
+lc_dos.o: lc_dos.c
+lc_dos.o: ld.h
+lc_dos.o: ldcommon.h
+lc_dos.o: nordan40.h
+lc_dos.o: polish.h
+lc_dos.o: slovene.h
+lc_dos.o: source/jrd/blk.h
+lc_dos.o: source/jrd/btr.h
+lc_dos.o: source/jrd/common.h
+lc_dos.o: source/jrd/dsc.h
+lc_dos.o: source/jrd/gdsassert.h
+lc_dos.o: source/jrd/intl.h
+lc_dos.o: source/jrd/intlobj.h
+lc_dos.o: source/jrd/isc.h
+lc_dos.o: source/jrd/jrd.h
+lc_dos.o: source/jrd/kanji.h
+lc_dos.o: source/jrd/ods.h
+lc_dos.o: source/jrd/thd.h
+lc_dos.o: swedfin.h
+lc_dos.o: undef.h
+lc_gb2312.o: charsets.h
+lc_gb2312.o: country_codes.h
+lc_gb2312.o: langdrv.h
+lc_gb2312.o: lc_gb2312.c
+lc_gb2312.o: ld.h
+lc_gb2312.o: ldcommon.h
+lc_gb2312.o: source/jrd/blk.h
+lc_gb2312.o: source/jrd/btr.h
+lc_gb2312.o: source/jrd/build_no.h
+lc_gb2312.o: source/jrd/common.h
+lc_gb2312.o: source/jrd/dsc.h
+lc_gb2312.o: source/jrd/gdsassert.h
+lc_gb2312.o: source/jrd/intl.h
+lc_gb2312.o: source/jrd/intlobj.h
+lc_gb2312.o: source/jrd/isc.h
+lc_gb2312.o: source/jrd/jrd.h
+lc_gb2312.o: source/jrd/kanji.h
+lc_gb2312.o: source/jrd/license.h
+lc_gb2312.o: source/jrd/ods.h
+lc_gb2312.o: source/jrd/thd.h
+lc_gb2312.o: undef.h
+lc_jis.o: charsets.h
+lc_jis.o: country_codes.h
+lc_jis.o: langdrv.h
+lc_jis.o: lc_jis.c
+lc_jis.o: ld.h
+lc_jis.o: ldcommon.h
+lc_jis.o: source/jrd/blk.h
+lc_jis.o: source/jrd/btr.h
+lc_jis.o: source/jrd/build_no.h
+lc_jis.o: source/jrd/common.h
+lc_jis.o: source/jrd/dsc.h
+lc_jis.o: source/jrd/gdsassert.h
+lc_jis.o: source/jrd/intl.h
+lc_jis.o: source/jrd/intlobj.h
+lc_jis.o: source/jrd/isc.h
+lc_jis.o: source/jrd/jrd.h
+lc_jis.o: source/jrd/kanji.h
+lc_jis.o: source/jrd/license.h
+lc_jis.o: source/jrd/ods.h
+lc_jis.o: source/jrd/thd.h
+lc_jis.o: undef.h
+lc_ksc.o: charsets.h
+lc_ksc.o: country_codes.h
+lc_ksc.o: langdrv.h
+lc_ksc.o: lc_ksc.c
+lc_ksc.o: ld.h
+lc_ksc.o: ldcommon.h
+lc_ksc.o: source/jrd/blk.h
+lc_ksc.o: source/jrd/btr.h
+lc_ksc.o: source/jrd/build_no.h
+lc_ksc.o: source/jrd/common.h
+lc_ksc.o: source/jrd/dsc.h
+lc_ksc.o: source/jrd/gdsassert.h
+lc_ksc.o: source/jrd/intl.h
+lc_ksc.o: source/jrd/intlobj.h
+lc_ksc.o: source/jrd/isc.h
+lc_ksc.o: source/jrd/jrd.h
+lc_ksc.o: source/jrd/kanji.h
+lc_ksc.o: source/jrd/license.h
+lc_ksc.o: source/jrd/ods.h
+lc_ksc.o: source/jrd/thd.h
+lc_ksc.o: undef.h
+lc_latin1.o: ancyrr.h
+lc_latin1.o: anczech.h
+lc_latin1.o: angreek1.h
+lc_latin1.o: anhundc.h
+lc_latin1.o: anpolish.h
+lc_latin1.o: ansii850.h
+lc_latin1.o: ansiintl.h
+lc_latin1.o: ansinor4.h
+lc_latin1.o: ansislov.h
+lc_latin1.o: ansispan.h
+lc_latin1.o: ansiswfn.h
+lc_latin1.o: anturk.h
+lc_latin1.o: bllt1ca0.h
+lc_latin1.o: bllt1da0.h
+lc_latin1.o: bllt1de0.h
+lc_latin1.o: bllt1es0.h
+lc_latin1.o: bllt1fi0.h
+lc_latin1.o: bllt1fr0.h
+lc_latin1.o: bllt1is0.h
+lc_latin1.o: bllt1it0.h
+lc_latin1.o: bllt1nl0.h
+lc_latin1.o: bllt1no0.h
+lc_latin1.o: bllt1pt0.h
+lc_latin1.o: bllt1sv0.h
+lc_latin1.o: bllt1uk0.h
+lc_latin1.o: bllt1us0.h
+lc_latin1.o: blnxtde0.h
+lc_latin1.o: blnxtfr0.h
+lc_latin1.o: blnxtit0.h
+lc_latin1.o: blnxtus0.h
+lc_latin1.o: charsets.h
+lc_latin1.o: country_codes.h
+lc_latin1.o: langdrv.h
+lc_latin1.o: lc_latin1.c
+lc_latin1.o: ld.h
+lc_latin1.o: ldcommon.h
+lc_latin1.o: source/jrd/blk.h
+lc_latin1.o: source/jrd/btr.h
+lc_latin1.o: source/jrd/common.h
+lc_latin1.o: source/jrd/dsc.h
+lc_latin1.o: source/jrd/gdsassert.h
+lc_latin1.o: source/jrd/intl.h
+lc_latin1.o: source/jrd/intlobj.h
+lc_latin1.o: source/jrd/isc.h
+lc_latin1.o: source/jrd/jrd.h
+lc_latin1.o: source/jrd/kanji.h
+lc_latin1.o: source/jrd/ods.h
+lc_latin1.o: source/jrd/thd.h
+lc_latin1.o: undef.h
+lc_narrow.o: charsets.h
+lc_narrow.o: country_codes.h
+lc_narrow.o: langdrv.h
+lc_narrow.o: lc_narrow.c
+lc_narrow.o: ld.h
+lc_narrow.o: ldcommon.h
+lc_narrow.o: source/jrd/blk.h
+lc_narrow.o: source/jrd/btr.h
+lc_narrow.o: source/jrd/common.h
+lc_narrow.o: source/jrd/dsc.h
+lc_narrow.o: source/jrd/gdsassert.h
+lc_narrow.o: source/jrd/intl.h
+lc_narrow.o: source/jrd/intlobj.h
+lc_narrow.o: source/jrd/isc.h
+lc_narrow.o: source/jrd/jrd.h
+lc_narrow.o: source/jrd/kanji.h
+lc_narrow.o: source/jrd/ods.h
+lc_narrow.o: source/jrd/thd.h
+lc_unicode.o: charsets.h
+lc_unicode.o: country_codes.h
+lc_unicode.o: langdrv.h
+lc_unicode.o: lc_unicode.c
+lc_unicode.o: ld.h
+lc_unicode.o: ldcommon.h
+lc_unicode.o: source/jrd/blk.h
+lc_unicode.o: source/jrd/btr.h
+lc_unicode.o: source/jrd/common.h
+lc_unicode.o: source/jrd/dsc.h
+lc_unicode.o: source/jrd/gdsassert.h
+lc_unicode.o: source/jrd/intl.h
+lc_unicode.o: source/jrd/intlobj.h
+lc_unicode.o: source/jrd/isc.h
+lc_unicode.o: source/jrd/jrd.h
+lc_unicode.o: source/jrd/kanji.h
+lc_unicode.o: source/jrd/ods.h
+lc_unicode.o: source/jrd/thd.h
+lc_unicode.o: undef.h
+ld.o: charsets.h
+ld.o: country_codes.h
+ld.o: langdrv.h
+ld.o: ld.c
+ld.o: ld.h
+ld.o: ldcommon.h
+ld.o: source/jrd/blk.h
+ld.o: source/jrd/btr.h
+ld.o: source/jrd/common.h
+ld.o: source/jrd/dsc.h
+ld.o: source/jrd/gdsassert.h
+ld.o: source/jrd/intl.h
+ld.o: source/jrd/intlnames.h
+ld.o: source/jrd/intlobj.h
+ld.o: source/jrd/isc.h
+ld.o: source/jrd/jrd.h
+ld.o: source/jrd/kanji.h
+ld.o: source/jrd/ods.h
+ld.o: source/jrd/thd.h
+ld2.o: charsets.h
+ld2.o: country_codes.h
+ld2.o: langdrv.h
+ld2.o: ld.h
+ld2.o: ld2.c
+ld2.o: ldcommon.h
+ld2.o: source/jrd/blk.h
+ld2.o: source/jrd/btr.h
+ld2.o: source/jrd/common.h
+ld2.o: source/jrd/dsc.h
+ld2.o: source/jrd/gdsassert.h
+ld2.o: source/jrd/intl.h
+ld2.o: source/jrd/intlobj.h
+ld2.o: source/jrd/isc.h
+ld2.o: source/jrd/jrd.h
+ld2.o: source/jrd/kanji.h
+ld2.o: source/jrd/ods.h
+ld2.o: source/jrd/thd.h
diff --git a/src/intl/dtest.c b/src/intl/dtest.c
new file mode 100644
index 0000000000..359630fb53
--- /dev/null
+++ b/src/intl/dtest.c
@@ -0,0 +1,184 @@
+/*
+ *	Test tool for Language Drivers.
+ *
+ *	This tool loads up a language driver using the dynamic link
+ *	(or shared object) method and interrogates it's ID function.
+ *	This tool is used to quickly verify the dynamic load ability
+ *	of a newly created language driver.
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/*  define LIKE_JRD to have the lookup follow exactly the syntax
+ *  used by intl.c in JRD.
+ *  Set the static full_debug to 1 to turn on ib_printf debugging.
+ */
+
+#include "../jrd/ib_stdio.h"
+#define DEBUG
+#include <assert.h>
+
+static int full_debug = 0;
+#define	FULL_DEBUG	if (full_debug) ib_printf
+
+
+
+typedef unsigned short SHORT;
+
+#include "../jrd/intl.h"
+
+/* Following defines are duplicates of those in intl.c */
+/* Name of module that implements text-type (n) */
+
+#ifdef VMS
+#define	INTL_MODULE "[syslib]IBLD_%03d"
+#endif
+
+#ifndef INTL_MODULE
+#define	INTL_MODULE "lib/IBLD_%03d"
+#endif
+
+#ifdef AX
+#define APOLLO
+#endif
+
+#ifdef AP
+#define APOLLO
+#endif
+
+#ifndef INTL_INIT_ENTRY
+#define INTL_INIT_ENTRY "ld_init"
+#endif
+
+
+#ifdef VMS
+char *defaults[] = {
+	"<null>",
+	"IBLD_010",
+	"IBLD_011", "ask", "ask", "ask", "ask", "ask", "ask", "ask"
+};
+#endif
+
+
+try(c, f)
+	 char *c;
+	 FPTR_INT f;
+{
+	unsigned char buffer[200];
+	int res;
+	int i;
+	res = (*f) (strlen(c), c, sizeof(buffer), buffer);
+	ib_printf("%s => ", c);
+	for (i = 0; i < res; i++)
+		ib_printf("%d ", buffer[i]);
+	ib_printf("\n");
+};
+
+main(argc, argv)
+	 int argc;
+	 char *argv[];
+{
+	FPTR_INT func;
+	char buffer[200];
+	char buffer2[200];
+	int i;
+	struct texttype this_textobj;
+	char **vector;
+
+#ifdef VMS
+	vector = defaults;
+	argc = sizeof(defaults) / sizeof(char *);
+#else
+	if (argc <= 1) {
+		ib_printf("usage: dtest Intl_module_name\n");
+		return (1);
+	};
+	vector = argv;
+#endif
+
+	for (i = 1; i < argc; i++) {
+
+#ifdef LIKE_JRD
+		{
+			char module[200];
+			char path[200];
+			char entry[200];
+			int t_type;
+			t_type = atoi(vector[i]);
+			sprintf(module, INTL_MODULE, t_type);
+			gds__prefix(path, module);
+			sprintf(entry, INTL_INIT_ENTRY, t_type);
+			ib_printf("path=%s entry=%s\n", path, entry);
+			func = (FPTR_INT) ISC_lookup_entrypoint(path, entry, NULL);
+		}
+#else
+#if (defined( AP ) || defined( AX ) || defined( APOLLO ))
+		sprintf(buffer2, "ld%03d_init", atoi(vector[i]));
+		FULL_DEBUG("looking for %s\n", buffer2);
+		func = (FPTR_INT) ISC_lookup_entrypoint("", buffer2, NULL);
+		FULL_DEBUG("found %ld\n", func);
+#else
+		if (strcmp(vector[i], "ask") == 0) {
+			gets(buffer);
+			func = (FPTR_INT) ISC_lookup_entrypoint(buffer, "ld_init", NULL);
+		}
+		else
+			func =
+				(FPTR_INT) ISC_lookup_entrypoint(vector[i], "ld_init", NULL);
+#endif
+#endif
+		if (func == NULL)
+			ib_printf("Cannot find %s.init\n", vector[i]);
+		else {
+			FULL_DEBUG("This testobj %ld\n", &this_textobj);
+			FULL_DEBUG("size of %d\n", sizeof(this_textobj));
+			if ((*func) (99, &this_textobj) != 99)
+				ib_printf("%s.Init returned bad result\n", vector[i]);
+			else {
+				FULL_DEBUG("Called init ok\n");
+				FULL_DEBUG("ld_init is %ld %ld\n",
+						   this_textobj.
+						   texttype_functions[(int) intl_fn_init], func);
+				func = this_textobj.texttype_functions[intl_fn_NULL];
+				FULL_DEBUG("ld_id is %ld %ld\n",
+						   this_textobj.
+						   texttype_functions[(int) intl_fn_NULL], func);
+				if (func == NULL)
+					ib_printf("%s.Init OK can't find ID\n", vector[i]);
+				else {
+					FULL_DEBUG("About to call ID fn\n");
+					(*func) (sizeof(buffer), buffer);
+					FULL_DEBUG("Back from ID fn \n");
+					ib_printf("%s.id => %s\n", vector[i], buffer);
+				};
+
+				func = this_textobj.texttype_functions[intl_fn_string_to_key];
+
+				FULL_DEBUG("ld_to_key is %ld\n", func);
+				if (func == NULL)
+					ib_printf("%s: Can't find str_to_key\n", vector[i]);
+				else {
+					try("cote", func);
+					try("COTE", func);
+					try("co-te", func);
+					try("CO-TE", func);
+				};
+			};
+		};
+	};
+	return (0);
+}
diff --git a/src/intl/dtest2.c b/src/intl/dtest2.c
new file mode 100644
index 0000000000..c97636802b
--- /dev/null
+++ b/src/intl/dtest2.c
@@ -0,0 +1,89 @@
+/*
+ *	Test tool for Language Drivers.
+ *
+ *	This tool loads up a language driver using the dynamic link
+ *	(or shared object) method and interrogates it's ID function.
+ *	This tool is used to quickly verify the dynamic load ability
+ *	of a newly created language driver.
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+
+static int full_debug = 0;
+#define	FULL_DEBUG	if (full_debug) ib_printf
+
+
+#define DEBUG_INTL
+#include "../jrd/intl.c"
+
+
+#ifdef VMS
+char *defaults[] = {
+	"<null>",
+	"ask", "ask", "ask", "ask", "ask", "ask", "ask"
+};
+#endif
+
+
+try(c, f)
+	 char *c;
+	 FUN_PTR f;
+{
+	unsigned char buffer[200];
+	int res;
+	int i;
+	res = (*f) (strlen(c), c, sizeof(buffer), buffer);
+	ib_printf("%s => ", c);
+	for (i = 0; i < res; i++)
+		ib_printf("%d ", buffer[i]);
+	ib_printf("\n");
+};
+
+my_err()
+{
+	ib_printf("Error routine called!\n");
+};
+
+main(argc, argv)
+	 int argc;
+	 char *argv[];
+{
+	struct texttype this_textobj;
+	char **vector;
+	int i;
+
+#ifdef VMS
+	vector = defaults;
+	argc = sizeof(defaults) / sizeof(char *);
+#else
+	if (argc <= 1) {
+		ib_printf("usage: dtest Intl_module_name\n");
+		return (1);
+	};
+	vector = argv;
+#endif
+
+	for (i = 1; i < argc; i++) {
+
+		int t_type;
+		t_type = atoi(vector[i]);
+		INTL_fn_init(t_type, &this_textobj, my_err);
+	};
+	return (0);
+}
diff --git a/src/intl/hun852dc.h b/src/intl/hun852dc.h
new file mode 100644
index 0000000000..aa5b76627d
--- /dev/null
+++ b/src/intl/hun852dc.h
@@ -0,0 +1,1033 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from hun852dc -----------*/
+/*----------- On      Tue Jun  7 16:21:07 1994 -----------*/
+
+/*  hun852dc.def */
+/*  Generated on Tue Jun  7 16:21:01 1994
+ */
+/*  from input file 'cfg/hun852dc.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxHUNGARIAN
+
+
+#define LDRV_CTRYLANGID             HUNGARY
+
+
+#define LDRV_PRIMARYCPID            852
+
+
+#define LDRV_PID                    PDOX
+
+
+#define LDRV_ALTCPID                1250
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox Hun 852 DC"
+
+
+#define LDRV_FNAME                  "hun852dc"
+
+
+#define NUM_EXPAND_CHARS            3
+
+
+#define NUM_COMPRESS_CHARS          24
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/hun852dc.def */
+
+#define MAX_NCO_PRIMARY  	211
+#define MAX_NCO_SECONDARY	 10
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	138,						/*   139 ->   138 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	167,						/*   147 -> § 167 */
+	153,						/*   148 ->   153 */
+	149,						/*   149 ->   149 */
+	152,						/*   150 ->   152 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	235,						/* û 251 -> ë 235 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	139,						/*   138 ->   139 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	161,						/*   141 -> ¡ 161 */
+	142,						/*   142 ->   142 */
+	160,						/*   143 ->   160 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	162,						/*   149 -> ¢ 162 */
+	150,						/*   150 ->   150 */
+	163,						/*   151 -> £ 163 */
+	150,						/*   152 ->   150 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	147,						/* § 167 ->   147 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	163,						/* é 233 -> £ 163 */
+	234,						/* ê 234 -> ê 234 */
+	251,						/* ë 235 -> û 251 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{225, 115, 115},			/* á -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	
+		{{99, 115},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* cs */
+	{{67, 115},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Cs */
+	{{67, 83}, {FIRST_PRIMARY + 68, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 68, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* CS */
+	{{100, 122},
+	 {FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* dz */
+	{{68, 122},
+	 {FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Dz */
+	{{68, 90}, {FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* DZ */
+	{{103, 121},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* gy */
+	{{71, 121},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Gy */
+	{{71, 89}, {FIRST_PRIMARY + 74, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 74, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* GY */
+	{{108, 121},
+	 {FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ly */
+	{{76, 121},
+	 {FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Ly */
+	{{76, 89}, {FIRST_PRIMARY + 80, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 80, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* LY */
+	{{110, 121},
+	 {FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ny */
+	{{78, 121},
+	 {FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Ny */
+	{{78, 89}, {FIRST_PRIMARY + 83, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 83, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* NY */
+	{{115, 122},
+	 {FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* sz */
+	{{83, 122},
+	 {FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Sz */
+	{{83, 90}, {FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* SZ */
+	{{116, 121},
+	 {FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* ty */
+	{{84, 121},
+	 {FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Ty */
+	{{84, 89}, {FIRST_PRIMARY + 91, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 91, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* TY */
+	{{122, 115},
+	 {FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0}},	/* zs */
+	{{90, 115},
+	 {FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0}},	/* Zs */
+	{{90, 83}, {FIRST_PRIMARY + 98, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},
+	 {FIRST_PRIMARY + 98, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0}},	/* ZS */
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  67 C */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  68 D */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  71 G */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  76 L */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  78 N */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  83 S */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  84 T */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 1},	/*  90 Z */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/*  99 c */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 100 d */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 103 g */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 108 l */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 110 n */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 115 s */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 116 t */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 1},	/* 122 z */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 201, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 202, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 203, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 204, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 205, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 206, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 207, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 208, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 209, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 210, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 211, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_852.h"
+#endif
+/* End of File : Language driver hun852dc */
diff --git a/src/intl/iceland.h b/src/intl/iceland.h
new file mode 100644
index 0000000000..c52e2e255f
--- /dev/null
+++ b/src/intl/iceland.h
@@ -0,0 +1,968 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 0iceland -----------*/
+/*----------- On      Mon May 16 10:25:06 1994 -----------*/
+
+/*  iceland.def */
+/*  Generated on Mon May 16 10:25:01 1994
+ */
+/*  from input file 'cfg/iceland.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxICELAND
+
+
+#define LDRV_CTRYLANGID             ICELAND
+
+
+#define LDRV_PRIMARYCPID            861
+
+
+#define LDRV_PID                    PDOX
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox ISL 861"
+
+
+#define LDRV_FNAME                  "iceland"
+
+
+#define NUM_EXPAND_CHARS            3
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/iceland.def */
+
+#define MAX_NCO_PRIMARY  	202
+#define MAX_NCO_SECONDARY	  7
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	139,						/*   139 ->   139 */
+	139,						/*   140 ->   139 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	141,						/*   149 ->   141 */
+	85,							/*   150 -> U  85 */
+	151,						/*   151 ->   151 */
+	151,						/*   152 ->   151 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	157,						/*   155 ->   157 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	164,						/*   160 -> ¤ 164 */
+	165,						/* ¡ 161 -> ¥ 165 */
+	166,						/* ¢ 162 -> ¦ 166 */
+	167,						/* £ 163 -> § 167 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	140,						/*   139 ->   140 */
+	140,						/*   140 ->   140 */
+	149,						/*   141 ->   149 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	152,						/*   151 ->   152 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	155,						/*   157 ->   155 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	160,						/* ¤ 164 ->   160 */
+	161,						/* ¥ 165 -> ¡ 161 */
+	162,						/* ¦ 166 -> ¢ 162 */
+	163,						/* § 167 -> £ 163 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{225, 115, 115},			/* á -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 201, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 202, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_861.h"
+#endif
+/* End of File : Language driver iceland */
diff --git a/src/intl/intl.def b/src/intl/intl.def
new file mode 100644
index 0000000000..f6c8dbc601
--- /dev/null
+++ b/src/intl/intl.def
@@ -0,0 +1,48 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+; 
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+; 
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+; 
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;------------------------------------------------------------
+;  INTERNATIONAL DLL MODULE DEFINITION FILE
+;------------------------------------------------------------
+
+LIBRARY     INTL
+
+DESCRIPTION 'INTERBASE INTERNATIONAL DLL'
+CODE MOVEABLE 
+DATA MOVEABLE
+SEGMENTS
+   _TEXT              DISCARDABLE
+   LD_TEXT            DISCARDABLE
+   LD2_TEXT           DISCARDABLE
+   CV_NARRO_TEXT      DISCARDABLE
+   CS_NARRO_TEXT      DISCARDABLE
+   LC_NARRO_TEXT      DISCARDABLE
+   LC_ASCII_TEXT      DISCARDABLE
+   LC_LATIN_TEXT      DISCARDABLE
+   LC_DOS_TEXT 	      DISCARDABLE
+   CS_UNICO_TEXT      DISCARDABLE
+   LC_UNICO_TEXT      DISCARDABLE
+   CS_UTFFS_TEXT      DISCARDABLE
+   CV_JIS_TEXT        DISCARDABLE
+   LC_JIS_TEXT        DISCARDABLE
+   CS_JIS_TEXT        DISCARDABLE
+   INTLWEP_TEXT       PRELOAD
+   CS_JIS_2_TEXT      DISCARDABLE
+   DLLSHELL_TEXT      PRELOAD
+
+EXPORTS
+    _LD_lookup                     @2   
+    WEP                            @1	RESIDENTNAME   
diff --git a/src/intl/intl.h b/src/intl/intl.h
new file mode 100644
index 0000000000..b59b5ee76b
--- /dev/null
+++ b/src/intl/intl.h
@@ -0,0 +1,1495 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 0000intl -----------*/
+/*----------- On      Fri Nov 13 10:37:46 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  intl.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:38 1992 */
+/*  from input file 'INTL.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               pxINTL
+
+
+#define LDRV_CTRYLANGID             INTL
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    PDOX
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox 'intl'"
+
+
+#define LDRV_FNAME                  "intl"
+
+
+#define NUM_EXPAND_CHARS            9
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          3
+
+
+/* End of langdrv/intl.def */
+
+#define MAX_NCO_PRIMARY  	199
+#define MAX_NCO_SECONDARY	  6
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	69,							/*   130 -> E  69 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	232,						/* í 237 -> è 232 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	237,						/* è 232 -> í 237 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{132, 97, 101},				/* „ -> ae */
+	{142, 65, 69},				/* Ž -> AE */
+	{148, 111, 101},			/* ” -> oe */
+	{153, 79, 69},				/* ™ -> OE */
+	{225, 115, 115},			/* á -> ss */
+	{129, 117, 101},			/* � -> ue */
+	{154, 85, 69},				/* š -> UE */
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 5, NULL_TERTIARY, 1, 0},	/* 129   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 1, 0},	/* 132   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 1, 0},	/* 142   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 5, NULL_TERTIARY, 1, 0},	/* 148   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 5, NULL_TERTIARY, 1, 0},	/* 153   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 5, NULL_TERTIARY, 1, 0},	/* 154   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* 81 */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* 82 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* 83 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* 84 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* 85 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* 86 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* 87 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* 88 */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* 89 */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* 8A */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* 8B */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* 8C */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* 8D */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* 8E */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* 8F */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* 90 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* 91 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* 92 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* 93 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* 94 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* 95 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* 96 */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* 97 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* 98 */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"},
+/* 99 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* 9A */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* 9B */  {
+	0x00A2, "CENT SIGN"},
+/* 9C */  {
+	0x00A3, "POUND SIGN"},
+/* 9D */  {
+	0x00A5, "YEN SIGN"},
+/* 9E */  {
+	0x20A7, "PESETA SIGN"},
+/* 9F */  {
+	0x0192, "LATIN SMALL LETTER SCRIPT F"},
+/* A0 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* A1 */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* A2 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* A3 */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* A4 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* A5 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* A6 */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* A7 */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* A8 */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* A9 */  {
+	0x2310, "REVERSED NOT SIGN"},
+/* AA */  {
+	0x00AC, "NOT SIGN"},
+/* AB */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* AC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* AD */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* AE */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AF */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* B0 */  {
+	0x2591, "LIGHT SHADE"},
+/* B1 */  {
+	0x2592, "MEDIUM SHADE"},
+/* B2 */  {
+	0x2593, "DARK SHADE"},
+/* B3 */  {
+	0x2502, "FORMS LIGHT VERTICAL"},
+/* B4 */  {
+	0x2524, "FORMS LIGHT VERTICAL AND LEFT"},
+/* B5 */  {
+	0x2561, "FORMS VERTICAL SINGLE AND LEFT DOUBLE"},
+/* B6 */  {
+	0x2562, "FORMS VERTICAL DOUBLE AND LEFT SINGLE"},
+/* B7 */  {
+	0x2556, "FORMS DOWN DOUBLE AND LEFT SINGLE"},
+/* B8 */  {
+	0x2555, "FORMS DOWN SINGLE AND LEFT DOUBLE"},
+/* B9 */  {
+	0x2563, "FORMS DOUBLE VERTICAL AND LEFT"},
+/* BA */  {
+	0x2551, "FORMS DOUBLE VERTICAL"},
+/* BB */  {
+	0x2557, "FORMS DOUBLE DOWN AND LEFT"},
+/* BC */  {
+	0x255D, "FORMS DOUBLE UP AND LEFT"},
+/* BD */  {
+	0x255C, "FORMS UP DOUBLE AND LEFT SINGLE"},
+/* BE */  {
+	0x255B, "FORMS UP SINGLE AND LEFT DOUBLE"},
+/* BF */  {
+	0x2510, "FORMS LIGHT DOWN AND LEFT"},
+/* C0 */  {
+	0x2514, "FORMS LIGHT UP AND RIGHT"},
+/* C1 */  {
+	0x2534, "FORMS LIGHT UP AND HORIZONTAL"},
+/* C2 */  {
+	0x252C, "FORMS LIGHT DOWN AND HORIZONTAL"},
+/* C3 */  {
+	0x251C, "FORMS LIGHT VERTICAL AND RIGHT"},
+/* C4 */  {
+	0x2500, "FORMS LIGHT HORIZONTAL"},
+/* C5 */  {
+	0x253C, "FORMS LIGHT VERTICAL AND HORIZONTAL"},
+/* C6 */  {
+	0x255E, "FORMS VERTICAL SINGLE AND RIGHT DOUBLE"},
+/* C7 */  {
+	0x255F, "FORMS VERTICAL DOUBLE AND RIGHT SINGLE"},
+/* C8 */  {
+	0x255A, "FORMS DOUBLE UP AND RIGHT"},
+/* C9 */  {
+	0x2554, "FORMS DOUBLE DOWN AND RIGHT"},
+/* CA */  {
+	0x2569, "FORMS DOUBLE UP AND HORIZONTAL"},
+/* CB */  {
+	0x2566, "FORMS DOUBLE DOWN AND HORIZONTAL"},
+/* CC */  {
+	0x2560, "FORMS DOUBLE VERTICAL AND RIGHT"},
+/* CD */  {
+	0x2550, "FORMS DOUBLE HORIZONTAL"},
+/* CE */  {
+	0x256C, "FORMS DOUBLE VERTICAL AND HORIZONTAL"},
+/* CF */  {
+	0x2567, "FORMS UP SINGLE AND HORIZONTAL DOUBLE"},
+/* D0 */  {
+	0x2568, "FORMS UP DOUBLE AND HORIZONTAL SINGLE"},
+/* D1 */  {
+	0x2564, "FORMS DOWN SINGLE AND HORIZONTAL DOUBLE"},
+/* D2 */  {
+	0x2565, "FORMS DOWN DOUBLE AND HORIZONTAL SINGLE"},
+/* D3 */  {
+	0x2559, "FORMS UP DOUBLE AND RIGHT SINGLE"},
+/* D4 */  {
+	0x2558, "FORMS UP SINGLE AND RIGHT DOUBLE"},
+/* D5 */  {
+	0x2552, "FORMS DOWN SINGLE AND RIGHT DOUBLE"},
+/* D6 */  {
+	0x2553, "FORMS DOWN DOUBLE AND RIGHT SINGLE"},
+/* D7 */  {
+	0x256B, "FORMS VERTICAL DOUBLE AND HORIZONTAL SINGLE"},
+/* D8 */  {
+	0x256A, "FORMS VERTICAL SINGLE AND HORIZONTAL DOUBLE"},
+/* D9 */  {
+	0x2518, "FORMS LIGHT UP AND LEFT"},
+/* DA */  {
+	0x250C, "FORMS LIGHT DOWN AND RIGHT"},
+/* DB */  {
+	0x2588, "FULL BLOCK"},
+/* DC */  {
+	0x2584, "LOWER HALF BLOCK"},
+/* DD */  {
+	0x258C, "LEFT HALF BLOCK"},
+/* DE */  {
+	0x2590, "RIGHT HALF BLOCK"},
+/* DF */  {
+	0x2580, "UPPER HALF BLOCK"},
+/* E0 */  {
+	0x03B1, "GREEK SMALL LETTER ALPHA"},
+/* E1 */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E2 */  {
+	0x0393, "GREEK CAPITAL LETTER GAMMA"},
+/* E3 */  {
+	0x03C0, "GREEK SMALL LETTER PI"},
+/* E4 */  {
+	0x03A3, "GREEK CAPITAL LETTER SIGMA"},
+/* E5 */  {
+	0x03C3, "GREEK SMALL LETTER SIGMA"},
+/* E6 */  {
+	0x00B5, "MICRO SIGN"},
+/* E7 */  {
+	0x03C4, "GREEK SMALL LETTER TAU"},
+/* E8 */  {
+	0x03A6, "GREEK CAPITAL LETTER PHI"},
+/* E9 */  {
+	0x0398, "GREEK CAPITAL LETTER THETA"},
+/* EA */  {
+	0x03A9, "GREEK CAPITAL LETTER OMEGA"},
+/* EB */  {
+	0x03B4, "GREEK SMALL LETTER DELTA"},
+/* EC */  {
+	0x221E, "INFINITY"},
+/* ED */  {
+	0x03C6, "GREEK SMALL LETTER PHI"},
+/* EE */  {
+	0x03B5, "GREEK SMALL LETTER EPSILON"},
+/* EF */  {
+	0x2229, "INTERSECTION"},
+/* F0 */  {
+	0x2261, "IDENTICAL TO"},
+/* F1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* F2 */  {
+	0x2265, "GREATER THAN OR EQUAL TO"},
+/* F3 */  {
+	0x2264, "LESS THAN OR EQUAL TO"},
+/* F4 */  {
+	0x2320, "TOP HALF INTEGRAL"},
+/* F5 */  {
+	0x2321, "BOTTOM HALF INTEGRAL"},
+/* F6 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F7 */  {
+	0x2248, "ALMOST EQUAL TO"},
+/* F8 */  {
+	0x00B0, "DEGREE SIGN"},
+/* F9 */  {
+	0x2219, "BULLET OPERATOR"},
+/* FA */  {
+	0x00B7, "MIDDLE DOT"},
+/* FB */  {
+	0x221A, "SQUARE ROOT"},
+/* FC */  {
+	0x207F, "SUPERSCRIPT LATIN SMALL LETTER N"},
+/* FD */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* FE */  {
+	0x25A0, "BLACK SQUARE"},
+/* FF */  {
+	0x00A0, "NON-BREAKING SPACE"}
+};
+#endif
diff --git a/src/intl/langdrv.h b/src/intl/langdrv.h
new file mode 100644
index 0000000000..7f10a21fe0
--- /dev/null
+++ b/src/intl/langdrv.h
@@ -0,0 +1,69 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef _INTL_LANGDRV_H_
+#define _INTL_LANGDRV_H_
+
+#define	IB_LANGDRV_VERSION	1
+
+/* Unique ID's for character sets */
+#define	IB_ASCII7	0
+#define	IB_BINARY	0
+#define	IB_LATIN1	1
+#define	IB_LATIN2	2
+#define	IB_LATIN3	3
+#define	IB_LATIN4	4
+#define	IB_LATIN5	5
+#define	IB_LATIN6	6
+#define	IB_LATIN7	7
+#define	IB_LATIN8	8
+#define	IB_LATIN9	9
+#define	IB_SJIS		10
+#define	IB_EUC		11
+
+/* Unique ID's for Locales */
+#define	IB_USA		0
+#define	IB_GERMANY	1
+#define	IB_FRANCE	2
+#define	IB_JAPAN	3
+#define	IB_UK		4
+#define	IB_CANADA_FRENCH 5
+#define	IB_CANADA_ENGLISH 6
+
+#ifdef SCO
+#define NON_DLINK_OS
+#endif
+#ifdef NXT
+#define NON_DLINK_OS
+#endif
+#ifdef IMP
+#define NON_DLINK_OS
+#endif
+#ifndef SGI
+#ifdef mips
+#define NON_DLINK_OS
+#endif
+#endif
+#ifdef DELTA
+#define NON_DLINK_OS
+#endif
+#ifdef DG
+#define NON_DLINK_OS
+#endif
+
+#endif /* _INTL_LANGDRV_H_ */
diff --git a/src/intl/lc_ascii.c b/src/intl/lc_ascii.c
new file mode 100644
index 0000000000..32bd88a781
--- /dev/null
+++ b/src/intl/lc_ascii.c
@@ -0,0 +1,446 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		lc_ascii.c
+ *	DESCRIPTION:	Language Drivers in the binary collation family.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+
+extern USHORT famasc_key_length();
+extern USHORT famasc_string_to_key();
+extern SSHORT famasc_compare();
+extern USHORT famasc_to_upper();
+extern SSHORT famasc_str_to_upper();
+extern USHORT famasc_to_lower();
+extern SSHORT LC_DOS_nc_mbtowc();
+
+#define FAMILY_ASCII(id_number, name, charset, country) \
+	cache->texttype_version =		IB_LANGDRV_VERSION; \
+	cache->texttype_type =			(id_number); \
+	cache->texttype_character_set =		(charset); \
+	cache->texttype_country =		(country); \
+	cache->texttype_bytes_per_char =	1; \
+	cache->texttype_fn_init =		(name); \
+	cache->texttype_fn_key_length =		famasc_key_length; \
+	cache->texttype_fn_string_to_key =	famasc_string_to_key; \
+	cache->texttype_fn_compare =		famasc_compare; \
+	cache->texttype_fn_to_upper =		famasc_to_upper; \
+	cache->texttype_fn_to_lower =		famasc_to_lower; \
+	cache->texttype_fn_str_to_upper =	famasc_str_to_upper; \
+	cache->texttype_fn_mbtowc =		LC_DOS_nc_mbtowc; \
+	cache->texttype_collation_table =	(BYTE *) NULL; \
+	cache->texttype_toupper_table =		(BYTE *) NULL; \
+	cache->texttype_tolower_table =		(BYTE *) NULL; \
+	cache->texttype_compress_table =	(BYTE *) NULL; \
+	cache->texttype_expand_table =		(BYTE *) NULL; \
+	cache->texttype_name =			(SCHAR *) POSIX;
+
+
+
+TEXTTYPE_ENTRY(DOS101_init)
+{
+	static CONST ASCII POSIX[] = "C.DOS437";
+
+	FAMILY_ASCII(parm1, DOS101_init, CS_DOS_437, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS107_init)
+{
+	static CONST ASCII POSIX[] = "C.DOS865";
+
+	FAMILY_ASCII(parm1, DOS107_init, CS_DOS_865, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS160_init)
+{
+	static CONST ASCII POSIX[] = "C.DOS850";
+
+	FAMILY_ASCII(parm1, DOS160_init, CS_DOS_850, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(LATIN1_cp_init)
+{
+	static CONST ASCII POSIX[] = "C.ISO8859_1";
+
+	FAMILY_ASCII(parm1, LATIN1_cp_init, CS_LATIN1, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS852_c0_init)
+{
+	static CONST ASCII POSIX[] = "C.DOS852";
+
+	FAMILY_ASCII(parm1, DOS852_c0_init, CS_DOS_852, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS857_c0_init)
+{
+	static CONST ASCII POSIX[] = "C.DOS857";
+
+	FAMILY_ASCII(parm1, DOS857_c0_init, CS_DOS_857, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS860_c0_init)
+{
+	static CONST ASCII POSIX[] = "C.DOS860";
+
+	FAMILY_ASCII(parm1, DOS860_c0_init, CS_DOS_860, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS861_c0_init)
+{
+	static CONST ASCII POSIX[] = "C.DOS861";
+
+	FAMILY_ASCII(parm1, DOS861_c0_init, CS_DOS_861, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS863_c0_init)
+{
+	static CONST ASCII POSIX[] = "C.DOS863";
+
+	FAMILY_ASCII(parm1, DOS863_c0_init, CS_DOS_863, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(CYRL_c0_init)
+{
+	static CONST ASCII POSIX[] = "C.CYRL";
+
+	FAMILY_ASCII(parm1, CYRL_c0_init, CS_CYRL, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1250_c0_init)
+{
+	static CONST ASCII POSIX[] = "C.ISO8859_1";
+
+	FAMILY_ASCII(parm1, WIN1250_c0_init, CS_WIN1250, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1251_c0_init)
+{
+	static CONST ASCII POSIX[] = "C.ISO8859_1";
+
+	FAMILY_ASCII(parm1, WIN1251_c0_init, CS_WIN1251, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1252_c0_init)
+{
+	static CONST ASCII POSIX[] = "C.ISO8859_1";
+
+	FAMILY_ASCII(parm1, WIN1252_c0_init, CS_WIN1252, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1253_c0_init)
+{
+	static CONST ASCII POSIX[] = "C.ISO8859_1";
+
+	FAMILY_ASCII(parm1, WIN1253_c0_init, CS_WIN1253, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1254_c0_init)
+{
+	static CONST ASCII POSIX[] = "C.ISO8859_1";
+
+	FAMILY_ASCII(parm1, WIN1254_c0_init, CS_WIN1254, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(NEXT_c0_init)
+{
+	static CONST ASCII POSIX[] = "C.ISO8859_1";
+
+	FAMILY_ASCII(parm1, NEXT_c0_init, CS_NEXT, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+#undef FAMILY_ASCII
+
+
+/*
+ * Generic base for InterBase 4.0 Language Driver - ASCII family (binary
+ * 8 bit sorting)
+ */
+
+#define LANGASCII_MAX_KEY	(MAX_KEY)
+
+#define ASCII_SPACE	32			/* ASCII code for space */
+#define ASCII_UPPER_A	65		/* ASCII code for 'A' */
+#define ASCII_LOWER_A	(ASCII_UPPER_A + 32)	/* ASCII code for 'a' */
+#define ASCII_UPPER_Z	90		/* ASCII code for 'Z' */
+#define ASCII_LOWER_Z	(ASCII_UPPER_Z + 32)	/* ASCII code for 'z' */
+
+#define	ASCII7_UPPER(ch) \
+	((((UCHAR) (ch) >= (UCHAR) ASCII_LOWER_A) && ((UCHAR) (ch) <= (UCHAR) ASCII_LOWER_Z)) \
+		? (UCHAR) ((ch)-ASCII_LOWER_A+ASCII_UPPER_A) \
+		: (UCHAR) (ch))
+#define	ASCII7_LOWER(ch) \
+	((((UCHAR) (ch) >= (UCHAR) ASCII_UPPER_A) && ((UCHAR) (ch) <= (UCHAR) ASCII_UPPER_Z)) \
+		? (UCHAR) ((ch)-ASCII_UPPER_A+ASCII_LOWER_A) \
+		: (UCHAR) (ch))
+
+
+
+/*
+ * key_length (in_len)
+ *
+ * For an input string of (in_len) bytes, return the maximum
+ * key buffer length.
+ *
+ * This is used for index buffer allocation within the
+ * Engine.
+ */
+USHORT famasc_key_length(obj, inLen)
+	 TEXTTYPE obj;
+	 USHORT inLen;
+{
+/* assert (inLen <= LANGASCII_MAX_KEY); - possible upper logic error if true */
+	return (MIN(inLen, LANGASCII_MAX_KEY));
+}
+
+
+/*
+ *
+ *  Convert a user string to a sequence that will collate bytewise.
+ *
+ *  For ASCII type collation (codepoint collation) this mearly
+ *  involves stripping the space character off the key.
+ * 
+ * RETURN:
+ *		Length, in bytes, of returned key
+ */
+USHORT famasc_string_to_key(obj, iInLen, pInChar, iOutLen, pOutChar, partial)
+	 TEXTTYPE obj;
+	 USHORT iInLen;
+	 BYTE *pInChar;
+	 USHORT iOutLen;
+	 BYTE *pOutChar;
+	 USHORT partial;
+{
+	BYTE *outbuff;
+	BYTE *inbuff;
+
+	assert(pOutChar != NULL);
+	assert(pInChar != NULL);
+	assert(iInLen <= LANGASCII_MAX_KEY);
+	assert(iOutLen <= LANGASCII_MAX_KEY);
+	assert(iOutLen >= famasc_key_length(obj, iInLen));
+
+/* point inbuff at last character */
+	inbuff = pInChar + iInLen - 1;
+
+/* skip backwards over all spaces & reset input length */
+	while ((inbuff >= pInChar) && (*inbuff == ASCII_SPACE))
+		inbuff--;
+	iInLen = (inbuff - pInChar + 1);
+
+	outbuff = pOutChar;
+	while (iInLen-- && iOutLen--) {
+		*outbuff++ = *pInChar++;
+	}
+	return (outbuff - pOutChar);
+}
+
+
+static SSHORT all_spaces(s, len)
+	 BYTE *s;
+	 SSHORT len;
+{
+	assert(s != NULL);
+
+	while (len-- > 0)
+		if (*s++ != ASCII_SPACE)
+			return FALSE;
+	return TRUE;
+}
+
+
+SSHORT famasc_compare(obj, l1, s1, l2, s2)
+	 TEXTTYPE obj;
+	 USHORT l1;
+	 BYTE *s1;
+	 USHORT l2;
+	 BYTE *s2;
+{
+	USHORT len;
+	USHORT i;
+
+	assert(obj != NULL);
+	assert(s1 != NULL);
+	assert(s2 != NULL);
+
+	len = MIN(l1, l2);
+	for (i = 0; i < len; i++) {
+		if (s1[i] == s2[i])
+			continue;
+		else if (all_spaces(&s1[i], l1 - i))
+			return -1;
+		else if (all_spaces(&s2[i], l2 - i))
+			return 1;
+		else if (s1[i] < s2[i])
+			return -1;
+		else
+			return 1;
+	}
+
+	if (l1 > len) {
+		if (all_spaces(&s1[len], l1 - len))
+			return 0;
+		return 1;
+	}
+	if (l2 > len) {
+		if (all_spaces(&s2[len], l2 - len))
+			return 0;
+		return -1;
+	}
+	return (0);
+}
+
+
+
+USHORT famasc_to_upper(obj, ch)
+	 TEXTTYPE obj;
+	 BYTE ch;
+{
+	return ((USHORT) ASCII7_UPPER(ch));
+}
+
+
+
+SSHORT famasc_str_to_upper(obj, iLen, pStr, iOutLen, pOutStr)
+	 TEXTTYPE obj;
+	 USHORT iLen;
+	 BYTE *pStr;
+	 USHORT iOutLen;
+	 BYTE *pOutStr;
+{
+	BYTE *p;
+	assert(pStr != NULL);
+	assert(pOutStr != NULL);
+	assert(iLen <= 32000);		/* almost certainly an error */
+	assert(iOutLen <= 32000);	/* almost certainly an error */
+	assert(iOutLen >= iLen);
+	p = pOutStr;
+	while (iLen && iOutLen) {
+		*pOutStr++ = ASCII7_UPPER(*pStr);
+		pStr++;
+		iLen--;
+		iOutLen--;
+	};
+	if (iLen != 0)
+		return (-1);
+	return (pOutStr - p);
+}
+
+
+
+
+USHORT famasc_to_lower(obj, ch)
+	 TEXTTYPE obj;
+	 BYTE ch;
+{
+	return (ASCII7_LOWER(ch));
+}
+
+
+#undef ASCII_LOWER
+#undef ASCII_UPPER
+#undef ASCII_LOWER_Z
+#undef ASCII_UPPER_Z
+#undef ASCII_LOWER_A
+#undef ASCII_UPPER_A
+
+#undef ASCII_SPACE
+#undef LANGASCII_MAX_KEY
diff --git a/src/intl/lc_big5.c b/src/intl/lc_big5.c
new file mode 100644
index 0000000000..82125594da
--- /dev/null
+++ b/src/intl/lc_big5.c
@@ -0,0 +1,160 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		lc_big5.c
+ *	DESCRIPTION:	Language Drivers in the BIG5 family.  
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+#include "../jrd/license.h"
+
+/* These macros have a duplicate in cv_big5.c */
+#define	BIG51(uc)	((UCHAR)((uc)&0xff)>=0xa1 && \
+			 (UCHAR)((uc)&0xff)<=0xfe)	/* BIG-5 1st-byte */
+#define	BIG52(uc)	((UCHAR)((uc)&0xff)>=0x40 && \
+			 (UCHAR)((uc)&0xff)<=0xfe)	/* BIG-5 2nd-byte */
+
+extern USHORT famasc_key_length();
+extern USHORT famasc_string_to_key();
+extern SSHORT famasc_compare();
+static USHORT big5_to_upper();
+static USHORT big5_to_lower();
+static SSHORT big5_str_to_upper();
+extern USHORT CVBIG5_big5_byte2short();
+extern SSHORT CVBIG5_big5_mbtowc();
+
+
+#define FAMILY_MULTIBYTE(id_number, name, charset, country) \
+	cache->texttype_version =		IB_LANGDRV_VERSION; \
+	cache->texttype_type =			(id_number); \
+	cache->texttype_character_set =		(charset); \
+	cache->texttype_country =		(country); \
+	cache->texttype_bytes_per_char =	2; \
+	cache->texttype_fn_init =		(name); \
+	cache->texttype_fn_key_length =		famasc_key_length; \
+	cache->texttype_fn_string_to_key =	famasc_string_to_key; \
+	cache->texttype_fn_compare =		famasc_compare; \
+        cache->texttype_fn_to_upper =           big5_to_upper; \
+        cache->texttype_fn_to_lower =           big5_to_lower; \
+        cache->texttype_fn_str_to_upper =       big5_str_to_upper; \
+	cache->texttype_collation_table =	(BYTE *) NULL; \
+	cache->texttype_toupper_table =		(BYTE *) NULL; \
+	cache->texttype_tolower_table =		(BYTE *) NULL; \
+	cache->texttype_compress_table =	(BYTE *) NULL; \
+	cache->texttype_expand_table =		(BYTE *) NULL; \
+	cache->texttype_name =			POSIX;
+
+
+
+TEXTTYPE_ENTRY(BIG5_init)
+{
+	static CONST ASCII POSIX[] = "C.BIG5";
+
+	FAMILY_MULTIBYTE(500, BIG5_init, CS_BIG5, CC_C);
+	cache->texttype_fn_to_wc = CVBIG5_big5_byte2short;
+	cache->texttype_fn_mbtowc = CVBIG5_big5_mbtowc;
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+
+#undef FAMILY_MULTIBYTE
+
+
+
+
+#define ASCII_LOWER_A	'a'
+#define ASCII_UPPER_A	'A'
+#define ASCII_LOWER_Z	'z'
+#define ASCII_UPPER_Z	'Z'
+
+/*
+ *	Note: This function expects Wide-Char input, not
+ *	Multibyte input
+ */
+STATIC USHORT big5_to_upper(obj, ch)
+	 TEXTTYPE obj;
+	 WCHAR ch;
+{
+	if (ch >= (WCHAR) ASCII_LOWER_A && ch <= (WCHAR) ASCII_LOWER_Z)
+		return (ch - (WCHAR) ASCII_LOWER_A + (WCHAR) ASCII_UPPER_A);
+	return ch;
+}
+
+
+/*
+ *	Returns -1 if output buffer was too small
+ */
+/*
+ *	Note: This function expects Multibyte input
+ */
+STATIC SSHORT big5_str_to_upper(obj, iLen, pStr, iOutLen, pOutStr)
+	 TEXTTYPE obj;
+	 USHORT iLen;
+	 BYTE *pStr;
+	 USHORT iOutLen;
+	 BYTE *pOutStr;
+{
+	BYTE *p;
+	USHORT waiting_for_big52 = FALSE;
+	BYTE c;
+
+	assert(pStr != NULL);
+	assert(pOutStr != NULL);
+	assert(iLen <= 32000);		/* almost certainly an error */
+	assert(iOutLen <= 32000);	/* almost certainly an error */
+	assert(iOutLen >= iLen);
+	p = pOutStr;
+	while (iLen && iOutLen) {
+		c = *pStr++;
+		if (waiting_for_big52 || BIG51(c)) {
+			waiting_for_big52 = !waiting_for_big52;
+		}
+		else {
+			if (c >= ASCII_LOWER_A && c <= ASCII_LOWER_Z)
+				c = (c - ASCII_LOWER_A + ASCII_UPPER_A);
+		}
+		*pOutStr++ = c;
+		iLen--;
+		iOutLen--;
+	}
+	if (iLen != 0)
+		return (-1);			/* Must have ran out of output space */
+	return (pOutStr - p);
+}
+
+
+
+
+/*
+ *	Note: This function expects Wide-Char input, not
+ *	Multibyte input
+ */
+STATIC USHORT big5_to_lower(obj, ch)
+	 TEXTTYPE obj;
+	 WCHAR ch;
+{
+	if (ch >= (WCHAR) ASCII_UPPER_A && ch <= (WCHAR) ASCII_UPPER_Z)
+		return (ch - (WCHAR) ASCII_UPPER_A + (WCHAR) ASCII_LOWER_A);
+	return ch;
+}
diff --git a/src/intl/lc_dos.c b/src/intl/lc_dos.c
new file mode 100644
index 0000000000..280a5167d1
--- /dev/null
+++ b/src/intl/lc_dos.c
@@ -0,0 +1,733 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		lc_dos.c
+ *	DESCRIPTION:	Language Drivers for compatibility with DOS products.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+
+extern USHORT LC_NARROW_key_length();
+extern USHORT LC_NARROW_string_to_key();
+extern SSHORT LC_NARROW_compare();
+STATIC USHORT fam1_to_upper();
+STATIC SSHORT fam1_str_to_upper();
+STATIC USHORT fam1_to_lower();
+extern SSHORT LC_DOS_nc_mbtowc();
+
+#define FAMILY1(id_number, name, charset, country) \
+	cache->texttype_version =		IB_LANGDRV_VERSION; \
+	cache->texttype_type =			(id_number); \
+	cache->texttype_character_set =		(charset); \
+	cache->texttype_country =		(country); \
+	cache->texttype_bytes_per_char =	1; \
+	cache->texttype_fn_init =		(name); \
+	cache->texttype_fn_key_length =		LC_NARROW_key_length; \
+	cache->texttype_fn_string_to_key =	LC_NARROW_string_to_key; \
+	cache->texttype_fn_compare =		LC_NARROW_compare; \
+	cache->texttype_fn_to_upper =		fam1_to_upper; \
+	cache->texttype_fn_to_lower =		fam1_to_lower; \
+	cache->texttype_fn_str_to_upper =	fam1_str_to_upper; \
+	cache->texttype_fn_mbtowc =		LC_DOS_nc_mbtowc; \
+	cache->texttype_collation_table =	(BYTE *) NoCaseOrderTbl; \
+	cache->texttype_toupper_table =		(BYTE *) ToUpperConversionTbl; \
+	cache->texttype_tolower_table =		(BYTE *) ToLowerConversionTbl; \
+	cache->texttype_compress_table =	(BYTE *) CompressTbl; \
+	cache->texttype_expand_table =		(BYTE *) ExpansionTbl; \
+	cache->texttype_name =			POSIX; \
+    cache->texttype_flags |= ((LDRV_TIEBREAK) & REVERSE) ? \
+            (TEXTTYPE_reverse_secondary | TEXTTYPE_ignore_specials) : 0;
+
+
+
+TEXTTYPE_ENTRY(DOS102_init)
+{
+	static CONST ASCII POSIX[] = "INTL.DOS437";
+
+#include "../intl/intl.h"
+
+	FAMILY1(parm1, DOS102_init, CS_DOS_437, CC_INTL);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS105_init)
+{
+	static CONST ASCII POSIX[] = "NORDAN4.DOS437";
+
+#include "../intl/nordan40.h"
+
+	FAMILY1(parm1, DOS105_init, CS_DOS_865, CC_NORDAN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS106_init)
+{
+	static CONST ASCII POSIX[] = "SWEDFIN.DOS437";
+
+#include "../intl/swedfin.h"
+
+	FAMILY1(parm1, DOS106_init, CS_DOS_437, CC_SWEDFIN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS101_c2_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS437";
+
+#include "../intl/db437de0.h"
+
+	FAMILY1(parm1, DOS101_c2_init, CS_DOS_437, CC_GERMANY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS101_c3_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS437";
+
+#include "../intl/db437es1.h"
+
+	FAMILY1(parm1, DOS101_c3_init, CS_DOS_437, CC_SPAIN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS101_c4_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS437";
+
+#include "../intl/db437fi0.h"
+
+	FAMILY1(parm1, DOS101_c4_init, CS_DOS_437, CC_FINLAND);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS101_c5_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS437";
+
+#include "../intl/db437fr0.h"
+
+	FAMILY1(parm1, DOS101_c5_init, CS_DOS_437, CC_FRANCE);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS101_c6_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS437";
+
+#include "../intl/db437it0.h"
+
+	FAMILY1(parm1, DOS101_c6_init, CS_DOS_437, CC_ITALY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS101_c7_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS437";
+
+#include "../intl/db437nl0.h"
+
+	FAMILY1(parm1, DOS101_c7_init, CS_DOS_437, CC_NEDERLANDS);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS101_c8_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS437";
+
+#include "../intl/db437sv0.h"
+
+	FAMILY1(parm1, DOS101_c8_init, CS_DOS_437, CC_SWEDEN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS101_c9_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS437";
+
+#include "../intl/db437uk0.h"
+
+	FAMILY1(parm1, DOS101_c9_init, CS_DOS_437, CC_UK);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS101_c10_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS437";
+
+#include "../intl/db437us0.h"
+
+	FAMILY1(parm1, DOS101_c10_init, CS_DOS_437, CC_US);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS160_c1_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS850";
+
+#include "../intl/db850cf0.h"
+
+	FAMILY1(parm1, DOS160_c1_init, CS_DOS_850, CC_FRENCHCAN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS160_c2_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS850";
+
+#include "../intl/db850de0.h"
+
+	FAMILY1(parm1, DOS160_c2_init, CS_DOS_850, CC_GERMANY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS160_c3_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS850";
+
+#include "../intl/db850es0.h"
+
+	FAMILY1(parm1, DOS160_c3_init, CS_DOS_850, CC_SPAIN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS160_c4_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS850";
+
+#include "../intl/db850fr0.h"
+
+	FAMILY1(parm1, DOS160_c4_init, CS_DOS_850, CC_FRANCE);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS160_c5_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS850";
+
+#include "../intl/db850it1.h"
+
+	FAMILY1(parm1, DOS160_c5_init, CS_DOS_850, CC_ITALY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS160_c6_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS850";
+
+#include "../intl/db850nl0.h"
+
+	FAMILY1(parm1, DOS160_c6_init, CS_DOS_850, CC_NEDERLANDS);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS160_c7_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS850";
+
+#include "../intl/db850pt0.h"
+
+	FAMILY1(parm1, DOS160_c7_init, CS_DOS_850, CC_PORTUGAL);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS160_c8_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS850";
+
+#include "../intl/db850sv1.h"
+
+	FAMILY1(parm1, DOS160_c8_init, CS_DOS_850, CC_SWEDEN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS160_c9_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS850";
+
+#include "../intl/db850uk0.h"
+
+	FAMILY1(parm1, DOS160_c9_init, CS_DOS_850, CC_UK);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS160_c10_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS850";
+
+#include "../intl/db850us0.h"
+
+	FAMILY1(parm1, DOS160_c10_init, CS_DOS_850, CC_US);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS107_c1_init)
+{
+	static CONST ASCII POSIX[] = "PDOX.DOS865";
+
+#include "../intl/nordan40.h"
+
+	FAMILY1(parm1, DOS107_c1_init, CS_DOS_865, CC_NORDAN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS107_c2_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS865";
+
+#include "../intl/db865da0.h"
+
+	FAMILY1(parm1, DOS107_c2_init, CS_DOS_865, CC_DENMARK);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS107_c3_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS865";
+
+#include "../intl/db865no0.h"
+
+	FAMILY1(parm1, DOS107_c3_init, CS_DOS_865, CC_NORWAY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS852_c1_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS852";
+
+#include "../intl/db852cz0.h"
+
+	FAMILY1(parm1, DOS852_c1_init, CS_DOS_852, CC_CZECH);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS852_c2_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS852";
+
+#include "../intl/db852po0.h"
+
+	FAMILY1(parm1, DOS852_c2_init, CS_DOS_852, CC_POLAND);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+#ifdef BUG_6925
+
+
+TEXTTYPE_ENTRY(DOS852_c3_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS852";
+
+#include "../intl/db852hdc.h"
+
+	FAMILY1(parm1, DOS852_c3_init, CS_DOS_852, CC_HUNGARY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+#endif /* BUG_6925 */
+
+
+TEXTTYPE_ENTRY(DOS852_c4_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS852";
+
+#include "../intl/db852sl0.h"
+
+	FAMILY1(parm1, DOS852_c4_init, CS_DOS_852, CC_YUGOSLAVIA);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS852_c5_init)
+{
+	static CONST ASCII POSIX[] = "PDOX.DOS852";
+
+#include "../intl/czech.h"
+
+	FAMILY1(parm1, DOS852_c5_init, CS_DOS_852, CC_CZECH);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS852_c6_init)
+{
+	static CONST ASCII POSIX[] = "PDOX.DOS852";
+
+#include "../intl/polish.h"
+
+	FAMILY1(parm1, DOS852_c6_init, CS_DOS_852, CC_POLAND);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS852_c7_init)
+{
+	static CONST ASCII POSIX[] = "PDOX.DOS852";
+
+#include "../intl/hun852dc.h"
+
+	FAMILY1(parm1, DOS852_c7_init, CS_DOS_852, CC_HUNGARY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS852_c8_init)
+{
+	static CONST ASCII POSIX[] = "PDOX.DOS852";
+
+#include "../intl/slovene.h"
+
+	FAMILY1(parm1, DOS852_c8_init, CS_DOS_852, CC_YUGOSLAVIA);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS857_c1_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS857";
+
+#include "../intl/db857tr0.h"
+
+	FAMILY1(parm1, DOS857_c1_init, CS_DOS_857, CC_TURKEY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+#ifdef BUG_6925
+
+
+TEXTTYPE_ENTRY(DOS857_c2_init)
+{
+	static CONST ASCII POSIX[] = "PDOX.DOS857";
+
+#include "../intl/turk.h"
+
+	FAMILY1(parm1, DOS857_c2_init, CS_DOS_857, CC_TURKEY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+#endif /* BUG_6925 */
+
+
+TEXTTYPE_ENTRY(DOS860_c1_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS860";
+
+#include "../intl/db860pt0.h"
+
+	FAMILY1(parm1, DOS860_c1_init, CS_DOS_860, CC_PORTUGAL);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS861_c1_init)
+{
+	static CONST ASCII POSIX[] = "PDOX.DOS861";
+
+#include "../intl/iceland.h"
+
+	FAMILY1(parm1, DOS861_c1_init, CS_DOS_861, CC_ICELAND);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(DOS863_c1_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.DOS863";
+
+#include "../intl/db863cf1.h"
+
+	FAMILY1(parm1, DOS863_c1_init, CS_DOS_863, CC_FRENCHCAN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(CYRL_c1_init)
+{
+	static CONST ASCII POSIX[] = "DBASE.CYRL";
+
+#include "../intl/db866ru0.h"
+
+	FAMILY1(parm1, CYRL_c1_init, CS_CYRL, CC_RUSSIA);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(CYRL_c2_init)
+{
+	static CONST ASCII POSIX[] = "PDOX.CYRL";
+
+#include "../intl/cyrr.h"
+
+	FAMILY1(parm1, CYRL_c2_init, CS_CYRL, CC_RUSSIA);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+#undef FAMILY1
+#undef NULL_SECONDARY
+#undef NULL_TERTIARY
+
+
+
+/*
+ * Generic base for InterBase 4.0 Language Driver - family1
+ *	Paradox DOS/Windows compatible
+ */
+
+
+#define	LOCALE_UPPER(ch)	(obj->texttype_toupper_table [(unsigned)(ch)])
+#define	LOCALE_LOWER(ch)	(obj->texttype_tolower_table [(unsigned)(ch)])
+
+
+
+
+STATIC USHORT fam1_to_upper(obj, ch)
+	 TEXTTYPE obj;
+	 BYTE ch;
+{
+	return (LOCALE_UPPER(ch));
+}
+
+
+
+
+/*
+ *	Returns -1 if output buffer was too small
+ */
+STATIC SSHORT fam1_str_to_upper(obj, iLen, pStr, iOutLen, pOutStr)
+	 TEXTTYPE obj;
+	 USHORT iLen;
+	 BYTE *pStr;
+	 USHORT iOutLen;
+	 BYTE *pOutStr;
+{
+	BYTE *p;
+	assert(pStr != NULL);
+	assert(pOutStr != NULL);
+	assert(iLen <= 32000);		/* almost certainly an error */
+	assert(iOutLen <= 32000);	/* almost certainly an error */
+	assert(iOutLen >= iLen);
+	p = pOutStr;
+	while (iLen && iOutLen) {
+		*pOutStr++ = LOCALE_UPPER(*pStr);
+		pStr++;
+		iLen--;
+		iOutLen--;
+	};
+	if (iLen != 0)
+		return (-1);
+	return (pOutStr - p);
+}
+
+
+
+STATIC USHORT fam1_to_lower(obj, ch)
+	 TEXTTYPE obj;
+	 BYTE ch;
+{
+	return (LOCALE_LOWER(ch));
+}
+
+
+SSHORT LC_DOS_nc_mbtowc(obj, wc, ptr, count)
+	 TEXTTYPE obj;
+	 WCHAR *wc;
+	 UCHAR *ptr;
+	 USHORT count;
+{
+/**************************************
+ *
+ *	L C _ D O S _ n c _ m b t o w c 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next character from the multibyte
+ *	input stream.
+ *	Narrow character version.
+ *  Returns:
+ *	Count of bytes consumed from the input stream.
+ *
+ **************************************/
+
+	assert(obj);
+	assert(ptr);
+
+	if (count >= 1) {
+		if (wc)
+			*wc = *ptr;
+		return 1;
+	}
+	if (wc)
+		*wc = 0;
+	return -1;					/* No more characters */
+}
+
+
+#undef LANGFAM1_MAX_KEY
+
+#undef ASCII_SPACE
+#undef NULL_WEIGHT
+#undef NULL_SECONDARY
+#undef NULL_TERTIARY
+
+#undef LOCALE_UPPER
+#undef LOCALE_LOWER
diff --git a/src/intl/lc_gb2312.c b/src/intl/lc_gb2312.c
new file mode 100644
index 0000000000..3addf2458c
--- /dev/null
+++ b/src/intl/lc_gb2312.c
@@ -0,0 +1,81 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		lc_gb2312.c
+ *	DESCRIPTION:	Language Drivers in the GB2312 family.  
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+#include "../jrd/license.h"
+
+/* These macros have a duplicate in cv_gb2312.c */
+#define	GB1(uc)	((UCHAR)((uc)&0xff)>=0xa1 && \
+			 (UCHAR)((uc)&0xff)<=0xfe)	/* GB2312 1st-byte */
+#define	GB2(uc)	((UCHAR)((uc)&0xff)>=0xa1 && \
+			 (UCHAR)((uc)&0xff)<=0xfe)	/* GB2312 2nd-byte */
+
+extern USHORT famasc_key_length();
+extern USHORT famasc_string_to_key();
+extern SSHORT famasc_compare();
+extern USHORT famasc_to_upper();
+extern USHORT famasc_to_lower();
+extern SSHORT famasc_str_to_upper();
+extern USHORT CVGB_gb2312_byte2short();
+extern SSHORT CVGB_gb2312_mbtowc();
+
+
+#define FAMILY_MULTIBYTE(id_number, name, charset, country) \
+	cache->texttype_version =		IB_LANGDRV_VERSION; \
+	cache->texttype_type =			(id_number); \
+	cache->texttype_character_set =		(charset); \
+	cache->texttype_country =		(country); \
+	cache->texttype_bytes_per_char =	2; \
+	cache->texttype_fn_init =		(name); \
+	cache->texttype_fn_key_length =		famasc_key_length; \
+	cache->texttype_fn_string_to_key =	famasc_string_to_key; \
+	cache->texttype_fn_compare =		famasc_compare; \
+        cache->texttype_fn_to_upper =           famasc_to_upper; \
+        cache->texttype_fn_to_lower =           famasc_to_lower; \
+        cache->texttype_fn_str_to_upper =       famasc_str_to_upper; \
+	cache->texttype_collation_table =	(BYTE *) NULL; \
+	cache->texttype_toupper_table =		(BYTE *) NULL; \
+	cache->texttype_tolower_table =		(BYTE *) NULL; \
+	cache->texttype_compress_table =	(BYTE *) NULL; \
+	cache->texttype_expand_table =		(BYTE *) NULL; \
+	cache->texttype_name =			POSIX;
+
+
+
+TEXTTYPE_ENTRY(GB_2312_init)
+{
+	static CONST ASCII POSIX[] = "C.GB_2312";
+
+	FAMILY_MULTIBYTE(2312, GB_2312_init, CS_GB2312, CC_C);
+	cache->texttype_fn_to_wc = CVGB_gb2312_byte2short;
+	cache->texttype_fn_mbtowc = CVGB_gb2312_mbtowc;
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+
+#undef FAMILY_MULTIBYTE
diff --git a/src/intl/lc_jis.c b/src/intl/lc_jis.c
new file mode 100644
index 0000000000..154327491e
--- /dev/null
+++ b/src/intl/lc_jis.c
@@ -0,0 +1,179 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		lc_jis.c
+ *	DESCRIPTION:	Language Drivers in the JIS family.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+#include "../jrd/license.h"
+
+
+extern USHORT famasc_key_length();
+extern USHORT famasc_string_to_key();
+extern SSHORT famasc_compare();
+extern USHORT famasc_to_upper();
+extern USHORT famasc_to_lower();
+extern SSHORT famasc_str_to_upper();
+static USHORT sjis_to_upper();
+static USHORT sjis_to_lower();
+static SSHORT sjis_str_to_upper();
+extern USHORT CVJIS_sjis_byte2short();
+extern USHORT CVJIS_euc_byte2short();
+extern SSHORT CVJIS_sjis_mbtowc();
+extern SSHORT CVJIS_euc_mbtowc();
+
+
+#define FAMILY_MULTIBYTE(id_number, name, charset, country) \
+	cache->texttype_version =		IB_LANGDRV_VERSION; \
+	cache->texttype_type =			(id_number); \
+	cache->texttype_character_set =		(charset); \
+	cache->texttype_country =		(country); \
+	cache->texttype_bytes_per_char =	2; \
+	cache->texttype_fn_init =		(name); \
+	cache->texttype_fn_key_length =		famasc_key_length; \
+	cache->texttype_fn_string_to_key =	famasc_string_to_key; \
+	cache->texttype_fn_compare =		famasc_compare; \
+	cache->texttype_collation_table =	(BYTE *) NULL; \
+	cache->texttype_toupper_table =		(BYTE *) NULL; \
+	cache->texttype_tolower_table =		(BYTE *) NULL; \
+	cache->texttype_compress_table =	(BYTE *) NULL; \
+	cache->texttype_expand_table =		(BYTE *) NULL; \
+	cache->texttype_name =			POSIX;
+
+
+
+TEXTTYPE_ENTRY(JIS220_init)
+{
+	static CONST ASCII POSIX[] = "C.SJIS";
+
+	FAMILY_MULTIBYTE(220, JIS220_init, CS_SJIS, CC_C);
+	cache->texttype_fn_to_wc = CVJIS_sjis_byte2short;
+	cache->texttype_fn_mbtowc = CVJIS_sjis_mbtowc;
+
+	cache->texttype_fn_to_upper = sjis_to_upper;
+	cache->texttype_fn_to_lower = sjis_to_lower;
+	cache->texttype_fn_str_to_upper = sjis_str_to_upper;
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(JIS230_init)
+{
+	static CONST ASCII POSIX[] = "C.EUC_J";
+
+	FAMILY_MULTIBYTE(230, JIS230_init, CS_EUCJ, CC_C);
+	cache->texttype_fn_to_wc = CVJIS_euc_byte2short;
+	cache->texttype_fn_mbtowc = CVJIS_euc_mbtowc;
+
+	cache->texttype_fn_to_upper = famasc_to_upper;
+	cache->texttype_fn_to_lower = famasc_to_lower;
+	cache->texttype_fn_str_to_upper = famasc_str_to_upper;
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+
+#undef FAMILY_MULTIBYTE
+
+
+
+
+#define ASCII_LOWER_A	'a'
+#define ASCII_UPPER_A	'A'
+#define ASCII_LOWER_Z	'z'
+#define ASCII_UPPER_Z	'Z'
+
+/*
+ *	Note: This function expects Wide-Char input, not
+ *	Multibyte input
+ */
+STATIC USHORT sjis_to_upper(obj, ch)
+	 TEXTTYPE obj;
+	 WCHAR ch;
+{
+	if (ch >= (WCHAR) ASCII_LOWER_A && ch <= (WCHAR) ASCII_LOWER_Z)
+		return (ch - (WCHAR) ASCII_LOWER_A + (WCHAR) ASCII_UPPER_A);
+	return ch;
+}
+
+
+/*
+ *	Returns -1 if output buffer was too small
+ */
+/*
+ *	Note: This function expects Multibyte input
+ */
+STATIC SSHORT sjis_str_to_upper(obj, iLen, pStr, iOutLen, pOutStr)
+	 TEXTTYPE obj;
+	 USHORT iLen;
+	 BYTE *pStr;
+	 USHORT iOutLen;
+	 BYTE *pOutStr;
+{
+	BYTE *p;
+	USHORT waiting_for_sjis2 = FALSE;
+	BYTE c;
+
+	assert(pStr != NULL);
+	assert(pOutStr != NULL);
+	assert(iLen <= 32000);		/* almost certainly an error */
+	assert(iOutLen <= 32000);	/* almost certainly an error */
+	assert(iOutLen >= iLen);
+	p = pOutStr;
+	while (iLen && iOutLen) {
+		c = *pStr++;
+		if (waiting_for_sjis2 || SJIS1(c)) {
+			waiting_for_sjis2 = !waiting_for_sjis2;
+		}
+		else {
+			if (c >= ASCII_LOWER_A && c <= ASCII_LOWER_Z)
+				c = (c - ASCII_LOWER_A + ASCII_UPPER_A);
+		}
+		*pOutStr++ = c;
+		iLen--;
+		iOutLen--;
+	}
+	if (iLen != 0)
+		return (-1);			/* Must have ran out of output space */
+	return (pOutStr - p);
+}
+
+
+
+
+/*
+ *	Note: This function expects Wide-Char input, not
+ *	Multibyte input
+ */
+STATIC USHORT sjis_to_lower(obj, ch)
+	 TEXTTYPE obj;
+	 WCHAR ch;
+{
+	if (ch >= (WCHAR) ASCII_UPPER_A && ch <= (WCHAR) ASCII_UPPER_Z)
+		return (ch - (WCHAR) ASCII_UPPER_A + (WCHAR) ASCII_LOWER_A);
+	return ch;
+}
diff --git a/src/intl/lc_ksc.c b/src/intl/lc_ksc.c
new file mode 100644
index 0000000000..a3fcf4fdb0
--- /dev/null
+++ b/src/intl/lc_ksc.c
@@ -0,0 +1,325 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		lc_ksc.c
+ *	DESCRIPTION:	Language Drivers in the KSC-5601.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../intl/ldcommon.h"
+#include "../jrd/license.h"
+
+#define		ASCII_SPACE	32
+
+extern USHORT famasc_key_length();
+extern USHORT famasc_string_to_key();
+extern short famasc_compare();
+extern USHORT famasc_to_upper();
+extern USHORT famasc_to_lower();
+extern short famasc_str_to_upper();
+extern USHORT CVKSC_ksc_byte2short();
+extern short CVKSC_ksc_mbtowc();
+
+STATIC USHORT LCKSC_string_to_key();
+STATIC USHORT LCKSC_key_length();
+STATIC short LCKSC_compare();
+
+static int GetGenHanNdx();
+static int GetSpeHanNdx();
+
+#define	FAMILY_MULTIBYTE(id_number, name, charset, country) \
+	cache->texttype_version =		IB_LANGDRV_VERSION; \
+	cache->texttype_type = 			(id_number); \
+	cache->texttype_character_set = 	(charset); \
+	cache->texttype_country =		(country); \
+	cache->texttype_bytes_per_char =	2; \
+	cache->texttype_fn_init = 		(name); \
+	cache->texttype_fn_key_length = 	famasc_key_length; \
+	cache->texttype_fn_string_to_key =	famasc_string_to_key; \
+	cache->texttype_fn_compare = 		famasc_compare; \
+	cache->texttype_fn_to_upper = 		famasc_to_upper; \
+	cache->texttype_fn_to_lower = 		famasc_to_lower; \
+	cache->texttype_fn_str_to_upper = 	famasc_str_to_upper; \
+	cache->texttype_collation_table = 	(BYTE *) NULL; \
+	cache->texttype_toupper_table = 	(BYTE *) NULL; \
+	cache->texttype_tolower_table = 	(BYTE *) NULL; \
+	cache->texttype_compress_table =	(BYTE *) NULL; \
+	cache->texttype_expand_table = 		(BYTE *) NULL; \
+	cache->texttype_name = 			POSIX;
+
+TEXTTYPE_ENTRY(KSC_5601_init)
+{
+	static CONST ASCII POSIX[] = "C.KSC_5601";
+
+	FAMILY_MULTIBYTE(5601, KSC_5601_init, CS_KSC5601, CC_C);
+
+	cache->texttype_fn_to_wc = CVKSC_ksc_byte2short;
+	cache->texttype_fn_mbtowc = CVKSC_ksc_mbtowc;
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(CV_ksc_5601_dict_init)
+{
+	static CONST ASCII POSIX[] = "HANGUL.KSC_5601";
+
+	FAMILY_MULTIBYTE(5602, CV_ksc_5601_dict_init, CS_KSC5601, CC_KOREA);
+
+	cache->texttype_fn_to_wc = CVKSC_ksc_byte2short;
+	cache->texttype_fn_mbtowc = CVKSC_ksc_mbtowc;
+	cache->texttype_fn_key_length = LCKSC_key_length;
+	cache->texttype_fn_string_to_key = LCKSC_string_to_key;
+	cache->texttype_fn_compare = LCKSC_compare;
+
+	TEXTTYPE_RETURN;
+}
+
+
+unsigned char spe_han[18][2] = {
+/* special hangul -> character sets with dictionary collation */
+	0xa4, 0xa2,
+	0xa4, 0xa4,
+	0xa4, 0xa7,
+	0xa4, 0xa8,
+	0xa4, 0xa9,
+	0xa4, 0xb1,
+	0xa4, 0xb2,
+	0xa4, 0xb3,
+	0xa4, 0xb5,
+	0xa4, 0xb6,
+	0xa4, 0xb7,
+	0xa4, 0xb8,
+	0xa4, 0xb9,
+	0xa4, 0xba,
+	0xa4, 0xbb,
+	0xa4, 0xbc,
+	0xa4, 0xbd,
+	0xa4, 0xbe
+};
+
+unsigned char gen_han[18][2] = {
+/* general hangul -> character sets with binary collation */
+	0xb1, 0xed,
+	0xb3, 0xa9,
+	0xb4, 0xd8,
+	0xb5, 0xfa,
+	0xb6, 0xf2,
+	0xb8, 0xb5,
+	0xb9, 0xd8,
+	0xba, 0xfb,
+	0xbb, 0xe6,
+	0xbd, 0xcd,
+	0xbe, 0xc5,
+	0xc0, 0xd9,
+	0xc2, 0xa4,
+	0xc2, 0xf6,
+	0xc4, 0xaa,
+	0xc5, 0xb7,
+	0xc6, 0xc3,
+	0xc7, 0xce
+};
+
+/* These macros have a duplicate in cv_ksc.c */
+#define	KSC1(uc)	((uc) & 0x80)
+#define	KSC2(uc)	((uc) & 0x80)
+
+#define	GEN_HAN(b1, b2)	((0xb0 <= (b1) && (b1) <= 0xc8) && (0xa1 <= (b2) && (b2) <= 0xfe))
+
+#define	SPE_HAN(b1, b2)	(((b1) == 0xa4) && (((b2) == 0xa2) || ((b2) == 0xa4) || ((b2) == 0xa7) || ((b2) == 0xa8) || ((b2) == 0xa9) || ((b2) == 0xb1) || ((b2) == 0xb2) || ((b2) == 0xb3) || ((b2) == 0xb5) || ((b2) == 0xb6) || ((b2) == 0xb7) || ((b2) == 0xb8) || ((b2) == 0xb9) || ((b2) == 0xba) || ((b2) == 0xbb) || ((b2) == 0xbc) || ((b2) == 0xbd) || ((b2) == 0xbe)))
+
+#define	LANGKSC_MAX_KEY	256
+
+
+
+STATIC USHORT LCKSC_string_to_key(obj, iInLen, pInChar, iOutLen, pOutChar)
+	 TEXTTYPE obj;
+	 USHORT iInLen;
+	 BYTE *pInChar;
+	 USHORT iOutLen;
+	 BYTE *pOutChar;
+{
+	USHORT i;
+	int order, idx;
+	BYTE *inbuff;
+	BYTE *outbuff;
+
+	assert(pOutChar != NULL);
+	assert(pInChar != NULL);
+	assert(iInLen <= LANGKSC_MAX_KEY);
+	assert(iOutLen <= LANGKSC_MAX_KEY);
+	assert(iOutLen >= LCKSC_key_length(obj, iInLen));
+
+	inbuff = pInChar + iInLen - 1;
+	while ((inbuff >= pInChar) && (*inbuff == ASCII_SPACE))
+		inbuff--;
+	iInLen = (inbuff - pInChar + 1);
+
+	outbuff = pOutChar;
+
+	for (i = 0; i < iInLen && iOutLen; i++, pInChar++) {
+		if (GEN_HAN(*pInChar, *(pInChar + 1))) {	/* general hangul */
+			if (!iOutLen)
+				break;
+			idx = GetGenHanNdx(*pInChar, *(pInChar + 1));
+			if (idx >= 0) {
+				*outbuff++ = gen_han[idx][0];
+				*outbuff++ = gen_han[idx][1];
+				*outbuff++ = 1;
+				iOutLen -= 3;
+			}
+			else {
+				*outbuff++ = *pInChar;
+				*outbuff++ = *(pInChar + 1);
+				iOutLen -= 2;
+			}
+			pInChar += 1;
+			i++;
+		}
+		else if (SPE_HAN(*pInChar, *(pInChar + 1))) {	/* special hangul */
+			if (!iOutLen)
+				break;
+			idx = GetSpeHanNdx(*pInChar, *(pInChar + 1));
+			assert(idx >= 0);
+			*outbuff++ = gen_han[idx][0];
+			*outbuff++ = gen_han[idx][1];
+			*outbuff++ = 2;
+			iOutLen -= 3;
+			pInChar += 1;
+			i++;
+		}
+		else {					/* ascii or rest -> in case with binary collation */
+
+			*outbuff++ = *pInChar;
+			iOutLen--;
+			assert(KSC1(*pInChar) || (*pInChar < 0x80));
+			if (KSC1(*pInChar)) {	/* the rest characters of KSC_5601 table */
+				assert(KSC2(*(pInChar + 1)));
+				if (!iOutLen)
+					break;
+				*outbuff++ = *(pInChar + 1);
+				iOutLen--;
+				pInChar += 1;
+				i++;
+			}
+			else				/* ascii */
+				continue;
+		}
+	}
+
+	return (outbuff - pOutChar);
+}
+
+
+/*
+*	function name	:	GetGenHanNdx
+*	description	:	in case of gen_han, get the index number from gen_han table
+*/
+
+static int GetGenHanNdx(b1, b2)
+	 unsigned char b1, b2;
+{
+	int i;
+
+	for (i = 0; i < 18; i++) {
+		if (gen_han[i][0] == b1 && b2 == gen_han[i][1])
+			return i;
+	}
+	return -1;
+}
+
+
+/*
+*	function name	:	GetSpeHanNdx
+*	description	:	in case of spe_han, get index from spe_han table
+*/
+
+static int GetSpeHanNdx(b1, b2)
+	 unsigned char b1, b2;
+{
+	int i;
+
+	for (i = 0; i < 18; i++) {
+		if (b2 == spe_han[i][1])
+			return i;
+	}
+	return -1;
+}
+
+
+STATIC USHORT LCKSC_key_length(obj, inLen)
+	 TEXTTYPE obj;
+	 USHORT inLen;
+{
+	USHORT len;
+
+	len = inLen + (inLen / 2);
+
+	return (MIN(len, LANGKSC_MAX_KEY));
+}
+
+
+/*
+*	function name	:	LCKSC_compare
+*	description	:	compare two string
+*/
+STATIC short LCKSC_compare(obj, l1, s1, l2, s2)
+	 TEXTTYPE obj;
+	 USHORT l1;
+	 BYTE *s1;
+	 USHORT l2;
+	 BYTE *s2;
+{
+	BYTE key1[LANGKSC_MAX_KEY];
+	BYTE key2[LANGKSC_MAX_KEY];
+	USHORT len1;
+	USHORT len2;
+	USHORT len;
+	USHORT i;
+
+	len1 = LCKSC_string_to_key(obj, l1, s1, sizeof(key1), key1);
+	len2 = LCKSC_string_to_key(obj, l2, s2, sizeof(key2), key2);
+	len = MIN(len1, len2);
+	for (i = 0; i < len; i++) {
+		if (key1[i] == key2[i])
+			continue;
+		else if (key1[i] < key2[i])
+			return -1;
+		else
+			return 1;
+	}
+	if (len1 < len2)
+		return -1;
+	else if (len1 > len2)
+		return 1;
+	else
+		return 0;
+}
+
+
+#include "../intl/undef.h"
+#undef		FAMILY_MULTIBYTE
+#undef		ASCII_SPACE
+#undef		LANGKSC_MAX_KEY
+#undef		ISASCII
+#undef		KSC1
+#undef		KSC2
+#undef		GEN_HAN
+#undef		SPE_HAN
diff --git a/src/intl/lc_latin1.c b/src/intl/lc_latin1.c
new file mode 100644
index 0000000000..315a37fcc8
--- /dev/null
+++ b/src/intl/lc_latin1.c
@@ -0,0 +1,551 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		lc_latin1.c
+ *	DESCRIPTION:	Language Drivers in the Latin1 family.
+ *			(full International collation)
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+
+extern USHORT LC_NARROW_key_length();
+extern USHORT LC_NARROW_string_to_key();
+extern SSHORT LC_NARROW_compare();
+STATIC USHORT fam2_to_upper();
+STATIC SSHORT fam2_str_to_upper();
+STATIC USHORT fam2_to_lower();
+extern SSHORT LC_DOS_nc_mbtowc();
+
+#define FAMILY2(id_number, name, charset, country) \
+	cache->texttype_version =		IB_LANGDRV_VERSION; \
+	cache->texttype_type =			(id_number); \
+	cache->texttype_character_set =		(charset); \
+	cache->texttype_country =		(country); \
+	cache->texttype_bytes_per_char =	1; \
+	cache->texttype_fn_init =		(name); \
+	cache->texttype_fn_key_length =		LC_NARROW_key_length; \
+	cache->texttype_fn_string_to_key =	LC_NARROW_string_to_key; \
+	cache->texttype_fn_compare =		LC_NARROW_compare; \
+	cache->texttype_fn_to_upper =		fam2_to_upper; \
+	cache->texttype_fn_to_lower =		fam2_to_lower; \
+	cache->texttype_fn_str_to_upper =	fam2_str_to_upper; \
+	cache->texttype_fn_mbtowc =		LC_DOS_nc_mbtowc; \
+	cache->texttype_collation_table =	(BYTE *) NoCaseOrderTbl; \
+	cache->texttype_toupper_table =		(BYTE *) ToUpperConversionTbl; \
+	cache->texttype_tolower_table =		(BYTE *) ToLowerConversionTbl; \
+	cache->texttype_compress_table =	(BYTE *) CompressTbl; \
+	cache->texttype_expand_table =		(BYTE *) ExpansionTbl; \
+	cache->texttype_name =			POSIX; \
+    cache->texttype_flags |= ((LDRV_TIEBREAK) & REVERSE) ? \
+            TEXTTYPE_reverse_secondary : 0;
+
+
+
+TEXTTYPE_ENTRY(LAT139_init)
+{
+	static CONST ASCII POSIX[] = "da_DA.ISO8859_1";
+
+#include "../intl/bllt1da0.h"
+
+	FAMILY2(parm1, LAT139_init, CS_LATIN1, CC_DENMARK);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+
+TEXTTYPE_ENTRY(LAT140_init)
+{
+	static CONST ASCII POSIX[] = "du_NL.ISO8859_1";
+
+#include "../intl/bllt1nl0.h"
+
+	FAMILY2(parm1, LAT140_init, CS_LATIN1, CC_NEDERLANDS);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+
+TEXTTYPE_ENTRY(LAT141_init)
+{
+	static CONST ASCII POSIX[] = "fi_FI.ISO8859_1";
+
+#include "../intl/bllt1fi0.h"
+
+	FAMILY2(parm1, LAT141_init, CS_LATIN1, CC_FINLAND);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(LAT142_init)
+{
+	static CONST ASCII POSIX[] = "fr_FR.ISO8859_1";
+
+#include "../intl/bllt1fr0.h"
+
+	FAMILY2(parm1, LAT142_init, CS_LATIN1, CC_FRANCE);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(LAT143_init)
+{
+	static CONST ASCII POSIX[] = "fr_CA.ISO8859_1";
+
+#include "../intl/bllt1ca0.h"
+
+	FAMILY2(parm1, LAT143_init, CS_LATIN1, CC_FRENCHCAN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(LAT144_init)
+{
+	static CONST ASCII POSIX[] = "de_DE.ISO8859_1";
+
+#include "../intl/bllt1de0.h"
+
+	FAMILY2(parm1, LAT144_init, CS_LATIN1, CC_GERMANY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(LAT145_init)
+{
+	static CONST ASCII POSIX[] = "is_IS.ISO8859_1";
+
+#include "../intl/bllt1is0.h"
+
+	FAMILY2(parm1, LAT145_init, CS_LATIN1, CC_ICELAND);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(LAT146_init)
+{
+	static CONST ASCII POSIX[] = "it_IT.ISO8859_1";
+
+#include "../intl/bllt1it0.h"
+
+	FAMILY2(parm1, LAT146_init, CS_LATIN1, CC_ITALY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+
+TEXTTYPE_ENTRY(LAT148_init)
+{
+	static CONST ASCII POSIX[] = "no_NO.ISO8859_1";
+
+#include "../intl/bllt1no0.h"
+
+	FAMILY2(parm1, LAT148_init, CS_LATIN1, CC_NORWAY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+
+TEXTTYPE_ENTRY(LAT149_init)
+{
+	static CONST ASCII POSIX[] = "es_ES.ISO8859_1";
+
+#include "../intl/bllt1es0.h"
+
+	FAMILY2(parm1, LAT149_init, CS_LATIN1, CC_SPAIN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(LAT151_init)
+{
+	static CONST ASCII POSIX[] = "sv_SV.ISO8859_1";
+
+#include "../intl/bllt1sv0.h"
+
+	FAMILY2(parm1, LAT151_init, CS_LATIN1, CC_SWEDEN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(LAT152_init)
+{
+	static CONST ASCII POSIX[] = "en_UK.ISO8859_1";
+
+#include "../intl/bllt1uk0.h"
+
+	FAMILY2(parm1, LAT152_init, CS_LATIN1, CC_UK);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(LAT153_init)
+{
+	static CONST ASCII POSIX[] = "en_US.ISO8859_1";
+
+#include "../intl/bllt1us0.h"
+
+	FAMILY2(parm1, LAT153_init, CS_LATIN1, CC_US);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(LAT154_init)
+{
+	static CONST ASCII POSIX[] = "pt_PT.ISO8859_1";
+
+#include "../intl/bllt1pt0.h"
+
+	FAMILY2(parm1, LAT154_init, CS_LATIN1, CC_PORTUGAL);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1250_c1_init)
+{
+	static CONST ASCII POSIX[] = "PXW_CSY.WIN1250";
+
+#include "../intl/anczech.h"
+
+	FAMILY2(parm1, WIN1250_c1_init, CS_WIN1250, CC_CZECH);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1250_c2_init)
+{
+	static CONST ASCII POSIX[] = "PXW_HUNDC.WIN1250";
+
+#include "../intl/anhundc.h"
+
+	FAMILY2(parm1, WIN1250_c2_init, CS_WIN1250, CC_HUNGARY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1250_c3_init)
+{
+	static CONST ASCII POSIX[] = "PXW_PLK.WIN1250";
+
+#include "../intl/anpolish.h"
+
+	FAMILY2(parm1, WIN1250_c3_init, CS_WIN1250, CC_POLAND);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1250_c4_init)
+{
+	static CONST ASCII POSIX[] = "PXW_SLOV.WIN1250";
+
+#include "../intl/ansislov.h"
+
+	FAMILY2(parm1, WIN1250_c4_init, CS_WIN1250, CC_YUGOSLAVIA);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1251_c1_init)
+{
+	static CONST ASCII POSIX[] = "PXW_CYRL.WIN1251";
+
+#include "../intl/ancyrr.h"
+
+	FAMILY2(parm1, WIN1251_c1_init, CS_WIN1251, CC_RUSSIA);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1252_c1_init)
+{
+	static CONST ASCII POSIX[] = "PXW_INTL.WIN1252";
+
+#include "../intl/ansiintl.h"
+
+	FAMILY2(parm1, WIN1252_c1_init, CS_WIN1252, CC_INTL);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1252_c2_init)
+{
+	static CONST ASCII POSIX[] = "PXW_INTL850.WIN1252";
+
+#include "../intl/ansii850.h"
+
+	FAMILY2(parm1, WIN1252_c2_init, CS_WIN1252, CC_INTL);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1252_c3_init)
+{
+	static CONST ASCII POSIX[] = "PXW_NORDAN4.WIN1252";
+
+#include "../intl/ansinor4.h"
+
+	FAMILY2(parm1, WIN1252_c3_init, CS_WIN1252, CC_NORDAN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1252_c4_init)
+{
+	static CONST ASCII POSIX[] = "PXW_SPAN.WIN1252";
+
+#include "../intl/ansispan.h"
+
+	FAMILY2(parm1, WIN1252_c4_init, CS_WIN1252, CC_SPAIN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1252_c5_init)
+{
+	static CONST ASCII POSIX[] = "PXW_SWEDFIN.WIN1252";
+
+#include "../intl/ansiswfn.h"
+
+	FAMILY2(parm1, WIN1252_c5_init, CS_WIN1252, CC_SWEDFIN);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1253_c1_init)
+{
+	static CONST ASCII POSIX[] = "PXW_GREEK.WIN1253";
+
+#include "../intl/angreek1.h"
+
+	FAMILY2(parm1, WIN1253_c1_init, CS_WIN1253, CC_GREECE);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(WIN1254_c1_init)
+{
+	static CONST ASCII POSIX[] = "PXW_TURK.WIN1254";
+
+#include "../intl/anturk.h"
+
+	FAMILY2(parm1, WIN1254_c1_init, CS_WIN1254, CC_TURKEY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(NEXT_c1_init)
+{
+	static CONST ASCII POSIX[] = "NXT_US.NEXT";
+
+#include "../intl/blnxtus0.h"
+
+	FAMILY2(parm1, NEXT_c1_init, CS_NEXT, CC_US);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(NEXT_c2_init)
+{
+	static CONST ASCII POSIX[] = "NXT_DEU.NEXT";
+
+#include "../intl/blnxtde0.h"
+
+	FAMILY2(parm1, NEXT_c2_init, CS_NEXT, CC_GERMANY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(NEXT_c3_init)
+{
+	static CONST ASCII POSIX[] = "NXT_FRA.NEXT";
+
+#include "../intl/blnxtfr0.h"
+
+	FAMILY2(parm1, NEXT_c3_init, CS_NEXT, CC_FRANCE);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(NEXT_c4_init)
+{
+	static CONST ASCII POSIX[] = "NXT_ITA.NEXT";
+
+#include "../intl/blnxtit0.h"
+
+	FAMILY2(parm1, NEXT_c4_init, CS_NEXT, CC_ITALY);
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+#undef FAMILY2
+#undef NULL_SECONDARY
+#undef NULL_TERTIARY
+
+
+
+/*
+ * Generic base for InterBase 4.0 Language Driver
+ */
+
+#define	LOCALE_UPPER(ch)	(obj->texttype_toupper_table[ (unsigned) (ch) ])
+#define	LOCALE_LOWER(ch)	(obj->texttype_tolower_table[ (unsigned) (ch) ])
+
+
+
+
+STATIC USHORT fam2_to_upper(obj, ch)
+	 TEXTTYPE obj;
+	 BYTE ch;
+{
+	return (LOCALE_UPPER(ch));
+}
+
+
+/*
+ *	Returns -1 if output buffer was too small
+ */
+STATIC SSHORT fam2_str_to_upper(obj, iLen, pStr, iOutLen, pOutStr)
+	 TEXTTYPE obj;
+	 USHORT iLen;
+	 BYTE *pStr;
+	 USHORT iOutLen;
+	 BYTE *pOutStr;
+{
+	BYTE *p;
+	assert(pStr != NULL);
+	assert(pOutStr != NULL);
+	assert(iLen <= 32000);		/* almost certainly an error */
+	assert(iOutLen <= 32000);	/* almost certainly an error */
+	assert(iOutLen >= iLen);
+	p = pOutStr;
+	while (iLen && iOutLen) {
+		*pOutStr++ = LOCALE_UPPER(*pStr);
+		pStr++;
+		iLen--;
+		iOutLen--;
+	};
+	if (iLen != 0)
+		return (-1);
+	return (pOutStr - p);
+}
+
+
+
+
+STATIC USHORT fam2_to_lower(obj, ch)
+	 TEXTTYPE obj;
+	 BYTE ch;
+{
+	return (LOCALE_LOWER(ch));
+}
+
+
+
+
+
+#undef LOCALE_UPPER
+#undef LOCALE_LOWER
diff --git a/src/intl/lc_narrow.c b/src/intl/lc_narrow.c
new file mode 100644
index 0000000000..bbe5acf4e1
--- /dev/null
+++ b/src/intl/lc_narrow.c
@@ -0,0 +1,1058 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		lc_narrow.c
+ *	DESCRIPTION:	Common base for Narrow language drivers
+ *			(full International collation)
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+
+USHORT LC_NARROW_key_length();
+USHORT LC_NARROW_string_to_key();
+SSHORT LC_NARROW_compare();
+
+
+
+/*
+ * Generic base for InterBase 4.0 Language Driver
+ */
+
+
+#define LANGFAM2_MAX_KEY     	(MAX_KEY)
+
+#define ASCII_SPACE	32
+#define	NULL_WEIGHT	0
+#define	NULL_SECONDARY	0
+#define	NULL_TERTIARY	0
+
+
+
+
+/*
+ * key_length (obj, inLen)
+ *
+ * For an input string of (inLen) bytes, return the maximum
+ * key buffer length.
+ *
+ * This is used for index buffer allocation within the
+ * Engine.
+ *
+ *  Note:
+ *	Strings containing (m) expand chars need 2*(m)*3
+ *	bytes for key values of the expansion.  This is
+ *	offset by string values that don't have corresponding
+ *	secondary or tertiary key values.
+ *	Let:
+ *		n = length of input string
+ *		np = count of "simple" bytes in the string, alphabetic
+ *		     no secondary and no tertiary.
+ *		ns = Has secondary or tertiary, but not both
+ *		nt = Has tertiary and secondary.
+ *		nc = is a COMPRESSED value.
+ *		ne = Has an EXPAND value.
+ *		nsp = Is a special value.
+ *
+ *		n = np + ns + nt + nc + ne + nsp
+ *
+ *		Key_length(n) =
+ *			np
+ *			+ 2 * ns
+ *			+ 3 * nt
+ *			+ 3 * (nc/2)
+ *			+ 3 * 2 * ne 
+ *			+ 2 * nsp
+ *			+ 1 (if nsp > 0, for separating keys from special keys)
+ *
+ *	Clearly this is maximized when the string consists solely of
+ *	EXPAND characters.  This degenerate case doesn't occur in
+ *	standard text usage, except for short strings (1-2 characters).
+ *
+ *	Therefore, we compute the keylength based on the "normal" case
+ *	of the (nt) term.  It is likely we could choose a probabilistic value
+ *	(such as 2.5 * n) for the length of the key.
+ *
+ *	The degenerate case of short strings is handled by a minimal key
+ *	length.
+ */
+USHORT LC_NARROW_key_length(obj, inLen)
+	 TEXTTYPE obj;
+	 USHORT inLen;
+{
+	USHORT len;
+/* assert (inLen <= LANGFAM2_MAX_KEY); *//* almost certainly an error */
+	len = 3 * MAX(inLen, 2);
+	return (MIN(len, LANGFAM2_MAX_KEY));
+}
+
+
+
+#ifdef DEBUG
+#include "../jrd/ib_stdio.h"
+static ULONG do_debug = 0;
+#endif
+
+/*
+ *
+ *  Convert a user string to a sequence that will collate bytewise.
+ * 
+ * RETURN:
+ *		Length, in bytes, of returned key
+ */
+USHORT LC_NARROW_string_to_key(obj, iInLen, pInChar, iOutLen, pOutChar,
+							   partial)
+	 TEXTTYPE obj;
+	 USHORT iInLen;
+	 BYTE *pInChar;
+	 USHORT iOutLen;
+	 BYTE *pOutChar;
+	 USHORT partial;
+{
+	USHORT lprimary;
+	BYTE secondary[LANGFAM2_MAX_KEY];
+	USHORT lsecondary;
+	BYTE tertiary[LANGFAM2_MAX_KEY];
+	USHORT ltertiary;
+	BYTE special[LANGFAM2_MAX_KEY * 2];
+	USHORT lspecial;
+
+	USHORT i, j;
+
+	BYTE *outbuff;
+	BYTE *inbuff;
+	struct SortOrderTblEntry *coll;
+
+	assert(pOutChar != NULL);
+	assert(pInChar != NULL);
+/* assert (iInLen   <= LANGFAM2_MAX_KEY); */
+	assert(iOutLen <= LANGFAM2_MAX_KEY);
+	assert(iOutLen >= LC_NARROW_key_length(obj, iInLen));
+
+#ifdef DEBUG
+/* Dump out the input string */
+	if (do_debug) {
+		ib_printf("string: (%02d) '%*s'\n", iInLen, iInLen, pInChar);
+		ib_fflush(ib_stdout);
+	};
+#endif	/* DEBUG */
+
+	outbuff = pOutChar;
+	lprimary = 0;
+	lsecondary = 0;
+	ltertiary = 0;
+	lspecial = 0;
+
+/* point inbuff at last character */
+	inbuff = pInChar + iInLen - 1;
+
+/* skip backwards over all spaces & reset input length */
+	while ((inbuff >= pInChar) && (*inbuff == ASCII_SPACE))
+		inbuff--;
+	iInLen = (inbuff - pInChar + 1);
+
+	for (i = 0; i < iInLen; i++, pInChar++) {
+		assert(lprimary < iOutLen);
+		assert(lsecondary < sizeof(secondary));
+		assert(ltertiary < sizeof(tertiary));
+		assert(lspecial < sizeof(special));
+
+		coll =
+			&((struct SortOrderTblEntry *) obj->
+			  texttype_collation_table)[*pInChar];
+		if (!(coll->IsExpand || coll->IsCompress)) {
+			if (coll->Primary != NULL_WEIGHT)
+				outbuff[lprimary++] = coll->Primary;
+			if (coll->Secondary != NULL_SECONDARY)
+				secondary[lsecondary++] = coll->Secondary;
+			if (coll->Tertiary != NULL_TERTIARY)
+				tertiary[ltertiary++] = coll->Tertiary;
+		}
+		else if (coll->IsExpand && coll->IsCompress) {
+			/* Both flags set indicate a special value */
+			if ((coll->Primary != NULL_WEIGHT) &&
+				!(obj->texttype_flags & TEXTTYPE_ignore_specials)) {
+				special[lspecial++] = (i + 1);	/* position */
+				special[lspecial++] = coll->Primary;
+			};
+		}
+		else if (coll->IsExpand) {
+			struct ExpandChar *exp;
+			exp = &((struct ExpandChar *) obj->texttype_expand_table)[0];
+			while (exp->Ch && exp->Ch != *pInChar)
+				exp++;
+			assert(exp->Ch == *pInChar);
+			for (j = 0; j < 2; j++) {
+				if (j)
+					coll =
+						&((struct SortOrderTblEntry *) obj->
+						  texttype_collation_table)[exp->ExpCh2];
+				if (coll->Primary != NULL_WEIGHT)
+					outbuff[lprimary++] = coll->Primary;
+				if (coll->Secondary != NULL_SECONDARY)
+					secondary[lsecondary++] = coll->Secondary;
+				if (coll->Tertiary != NULL_TERTIARY)
+					tertiary[ltertiary++] = coll->Tertiary;
+			}
+		}
+		else {					/* (col->IsCompress) */
+
+			struct CompressPair *cmp;
+			if ((USHORT) (i + 1) < iInLen) {
+				cmp =
+					&((struct CompressPair *) obj->
+					  texttype_compress_table)[0];
+				while (cmp->CharPair[0]) {
+					if ((cmp->CharPair[0] == *pInChar) &&
+						(cmp->CharPair[1] == *(pInChar + 1))) {
+
+						/* Gobble the two-to-1 entry */
+						coll = &cmp->NoCaseWeight;
+						pInChar++;
+						i++;
+						break;
+					}
+					cmp++;
+				}
+			}
+			if (coll->Primary != NULL_WEIGHT)
+				outbuff[lprimary++] = coll->Primary;
+			if (coll->Secondary != NULL_SECONDARY)
+				secondary[lsecondary++] = coll->Secondary;
+			if (coll->Tertiary != NULL_TERTIARY)
+				tertiary[ltertiary++] = coll->Tertiary;
+		}
+	};
+
+/* primary keys are already in output key */
+
+	outbuff += lprimary;
+	iOutLen -= lprimary;
+
+	if (partial)
+		/* return length of key */
+		return (outbuff - pOutChar);
+
+/* put secondary keys into output key */
+	if (obj->texttype_flags & TEXTTYPE_reverse_secondary) {
+		for (i = 0; i < lsecondary && iOutLen; i++) {
+			*outbuff++ = secondary[lsecondary - i - 1];
+			iOutLen--;
+		}
+	}
+	else {
+		for (i = 0; i < lsecondary && iOutLen; i++) {
+			*outbuff++ = secondary[i];
+			iOutLen--;
+		};
+	};
+
+/* put tertiary keys into output key */
+	for (i = 0; i < ltertiary && iOutLen; i++) {
+		*outbuff++ = tertiary[i];
+		iOutLen--;
+	};
+
+/* put special keys into output key */
+	if ((lspecial && iOutLen) &&
+		!(obj->texttype_flags & TEXTTYPE_ignore_specials)) {
+		/* Insert the marker-byte */
+		*outbuff++ = 0;
+		iOutLen--;
+		for (i = 0; i < lspecial && iOutLen; i++) {
+			*outbuff++ = special[i];
+			iOutLen--;
+		};
+	};
+
+#ifdef DEBUG
+/* Dump out the computed key */
+	if (do_debug) {
+		UCHAR *p;
+		ib_printf("   key: (%02d) ", (outbuff - pOutChar));
+		for (p = pOutChar; p < outbuff; p++)
+			ib_printf("%2x ", *p);
+		ib_printf("\n");
+		ib_fflush(ib_stdout);
+	};
+#endif
+
+/* return length of key */
+	return (outbuff - pOutChar);
+}
+
+
+
+#define	HAVE_WAITING	1
+#define HAVE_SPECIAL	2
+
+/* expansion char go before the expansion. */
+/* eg: S-set collates before ss */
+
+typedef struct coltab_status {
+	USHORT stat_flags;
+	struct SortOrderTblEntry *stat_waiting;
+} *COLSTAT;
+
+
+
+
+static SSHORT special_scan(obj, l1, s1, l2, s2)
+	 TEXTTYPE obj;
+	 USHORT l1;
+	 BYTE *s1;
+	 USHORT l2;
+	 BYTE *s2;
+{
+	struct SortOrderTblEntry *col1;
+	struct SortOrderTblEntry *col2;
+	USHORT index1, index2;
+
+	index1 = 0;
+	index2 = 0;
+
+	while (1) {
+		/* Scan to find ignore char from l1 */
+		while (l1) {
+			col1 =
+				&((struct SortOrderTblEntry *) obj->
+				  texttype_collation_table)[*s1];
+			if (col1->IsExpand && col1->IsCompress)
+				break;
+			l1--;
+			s1++;
+			index1++;
+		}
+
+		/* Scan to find ignore char from l2 */
+		while (l2) {
+			col2 =
+				&((struct SortOrderTblEntry *) obj->
+				  texttype_collation_table)[*s2];
+			if (col2->IsExpand && col2->IsCompress)
+				break;
+			l2--;
+			s2++;
+			index2++;
+		}
+		if (!l1 && !l2)			/* All out of ignore characters */
+			return 0;
+		if (l1 && !l2)			/* Out in l2 only */
+			return 1000;
+		if (!l1 && l2)			/* Out in l1 only */
+			return -1000;
+		if (index1 < index2)	/* l1 has ignore ch before l2 */
+			return -2000;
+		if (index1 > index2)	/* l2 has ignore ch before l1 */
+			return 2000;
+		if (col1->Primary != col2->Primary)
+			return (col1->Primary - col2->Primary);
+		l1--;
+		l2--;
+		s1++;
+		s2++;
+		index1++;
+		index2++;
+	}
+}
+
+
+struct SortOrderTblEntry *get_coltab_entry(obj, p, l, stat)
+	 TEXTTYPE obj;
+	 UCHAR **p;
+	 USHORT *l;
+	 COLSTAT stat;
+{
+	struct SortOrderTblEntry *col;
+
+	if (stat->stat_flags & HAVE_WAITING) {
+		(*l)--;
+		(*p)++;
+		stat->stat_flags &= ~HAVE_WAITING;
+		assert(stat->stat_waiting);
+		return stat->stat_waiting;
+	}
+
+	stat->stat_waiting = NULL;
+	while (*l) {
+		col =
+			&((struct SortOrderTblEntry *) obj->
+			  texttype_collation_table)[**p];
+		if (!(col->IsExpand || col->IsCompress)) {
+			/* Have col */
+			(*l)--;
+			(*p)++;
+			return col;
+		}
+		else if (col->IsExpand && col->IsCompress) {
+			/* Both flags set indicate a special value */
+			/* Need a new col */
+			(*l)--;
+			(*p)++;
+			stat->stat_flags |= HAVE_SPECIAL;
+			continue;
+		}
+		else if (col->IsExpand) {
+			struct ExpandChar *exp;
+			exp = &((struct ExpandChar *) obj->texttype_expand_table)[0];
+			while (exp->Ch && exp->Ch != **p)
+				exp++;
+			assert(exp->Ch == **p);
+			/* Have coll1 */
+			/* Have waiting */
+
+			stat->stat_waiting =
+				&((struct SortOrderTblEntry *) obj->
+				  texttype_collation_table)[exp->ExpCh2];
+			stat->stat_flags |= HAVE_WAITING;
+			return col;
+		}
+		else {					/* (col->IsCompress) */
+
+			struct CompressPair *cmp;
+			if (*l > 1) {
+				cmp =
+					&((struct CompressPair *) obj->
+					  texttype_compress_table)[0];
+				while (cmp->CharPair[0]) {
+					if ((cmp->CharPair[0] == **p) &&
+						(cmp->CharPair[1] == *(*p + 1))) {
+						/* Have Col */
+						col = &cmp->NoCaseWeight;
+						(*l) -= 2;
+						(*p) += 2;
+						return col;
+					}
+					cmp++;
+				}
+			}
+			/* Have col */
+			(*l)--;
+			(*p)++;
+			return col;
+		}
+	}
+	return NULL;
+}
+
+
+
+#define XOR	^					/* C bitwise XOR operator - defined for readability */
+
+SSHORT LC_NARROW_compare(obj, l1, s1, l2, s2)
+	 TEXTTYPE obj;
+	 USHORT l1;
+	 BYTE *s1;
+	 USHORT l2;
+	 BYTE *s2;
+{
+	struct SortOrderTblEntry *col1, *col2;
+	struct coltab_status stat1, stat2;
+	SSHORT save_secondary = 0;
+	SSHORT save_tertiary = 0;
+	SSHORT save_quandary = 0;
+	USHORT save_l1, save_l2;
+	BYTE *save_s1, *save_s2;
+	BYTE *p;
+
+	stat1.stat_flags = 0;
+	stat2.stat_flags = 0;
+
+/* Start at EOS, scan backwards to find non-space */
+	p = s1 + l1 - 1;
+	while ((p >= s1) && (*p == ASCII_SPACE))
+		p--;
+	l1 = (p - s1 + 1);
+
+	p = s2 + l2 - 1;
+	while ((p >= s2) && (*p == ASCII_SPACE))
+		p--;
+	l2 = (p - s2 + 1);
+
+	save_l1 = l1;
+	save_l2 = l2;
+	save_s1 = s1;
+	save_s2 = s2;
+
+	while (1) {
+		col1 = get_coltab_entry(obj, &s1, &l1, &stat1);
+		col2 = get_coltab_entry(obj, &s2, &l2, &stat2);
+		if (!col1 || !col2)
+			break;
+		if (col1->Primary != col2->Primary)
+			return (col1->Primary - col2->Primary);
+		if (col1->Secondary != col2->Secondary) {
+			if ((obj->texttype_flags & TEXTTYPE_reverse_secondary) ||
+				!save_secondary)
+					save_secondary = (col1->Secondary - col2->Secondary);
+		}
+		else if (col1->Tertiary != col2->Tertiary) {
+			if (!save_tertiary)
+				save_tertiary = (col1->Tertiary - col2->Tertiary);
+		}
+		else if (((stat1.stat_flags & HAVE_WAITING) XOR
+				  (stat2.stat_flags & HAVE_WAITING)) && !save_quandary) {
+			if (obj->texttype_flags & TEXTTYPE_expand_before)
+				save_quandary = (stat1.stat_flags & HAVE_WAITING) ? -1 : 1;
+			else
+				save_quandary = (stat1.stat_flags & HAVE_WAITING) ? 1 : -1;
+		}
+	}
+
+/* One of the strings ended */
+	assert(l1 == 0 || l2 == 0);
+	assert(col1 == NULL || col2 == NULL);
+
+	if (col1 && !col2)
+		return 500;
+
+	if (!col1 && col2)
+		return -500;
+
+	if (l1 == 0 && l2 == 0) {
+		if (save_secondary)
+			return save_secondary;
+		if (save_tertiary)
+			return save_tertiary;
+		if (save_quandary)
+			return save_quandary;
+		if (
+			((stat1.stat_flags & HAVE_SPECIAL)
+			 || (stat2.stat_flags & HAVE_SPECIAL))
+			&& !(obj->
+				 texttype_flags & TEXTTYPE_ignore_specials)) return
+				special_scan(obj, save_l1, save_s1, save_l2, save_s2);
+		return 0;
+	}
+
+	if (l1)
+		return 600;
+	return -600;
+}
+
+
+
+#ifdef DEBUG_COMPARE
+
+/*
+ * Debugging only
+ * Routine used for comparing results from comparision algorithm
+ * to results from key creation algorithm
+ */
+STATIC SSHORT old_fam2_compare(obj, l1, s1, l2, s2)
+	 TEXTTYPE obj;
+	 USHORT l1;
+	 BYTE *s1;
+	 USHORT l2;
+	 BYTE *s2;
+{
+	BYTE key1[LANGFAM2_MAX_KEY];
+	BYTE key2[LANGFAM2_MAX_KEY];
+	USHORT len1;
+	USHORT len2;
+	USHORT len;
+	USHORT i;
+
+	assert(obj != NULL);
+	assert(s1 != NULL);
+	assert(s2 != NULL);
+
+	len1 = LC_NARROW_string_to_key(obj, l1, s1, sizeof(key1), key1, FALSE);
+	len2 = LC_NARROW_string_to_key(obj, l2, s2, sizeof(key2), key2, FALSE);
+	len = MIN(len1, len2);
+	for (i = 0; i < len; i++) {
+		if (key1[i] == key2[i])
+			continue;
+		else if (key1[i] < key2[i])
+			return (-1);
+		else
+			return (1);
+	};
+	if (len1 < len2)
+		return (-1);
+	else if (len1 > len2)
+		return (1);
+	return (0);
+}
+#endif	/* DEBUG_COMPARE */
+
+
+#ifdef DEBUG_COMPARE
+
+#define	SIGN(x)	(((x) < 0)?-1:(((x) == 0)?0:1))
+
+/*
+ * Debugging only
+ * Routine used for comparing results from comparision algorithm
+ * to results from key creation algorithm
+ */
+STATIC SSHORT fam2_compare(obj, l1, s1, l2, s2)
+	 TEXTTYPE obj;
+	 USHORT l1;
+	 BYTE *s1;
+	 USHORT l2;
+	 BYTE *s2;
+{
+	SSHORT res1, res2;
+
+	res1 = old_fam2_compare(obj, l1, s1, l2, s2);
+	res2 = LC_NARROW_compare(obj, l1, s1, l2, s2);
+
+	if (SIGN(res1) != SIGN(res2)) {
+		ib_printf("different compares:\n%d %s\n%d %s\nold = %d new = %d\n",
+				  l1, s1, l2, s2, res1, res2);
+		ib_fflush(ib_stdout);
+		do_debug = 1;
+		res1 = old_fam2_compare(obj, l1, s1, l2, s2);
+		res2 = LC_NARROW_compare(obj, l1, s1, l2, s2);
+		do_debug = 0;
+	}
+	return res2;
+}
+
+#endif	/* DEBUG_COMPARE */
+
+
+
+#ifdef DEBUG_LD
+/*
+ * Debugging code for dumping out information contained within a language
+ * driver.  Used for V3.3 of Interbase & automatic generation of doc
+ * files.  Not currently used for V4 (2 June 1994) but may be needed
+ * someday to regenerate doc files
+ */
+
+struct texttype tmp_obj;
+
+TEXTTYPE debug_obj = &tmp_obj;
+
+void check_table()
+{
+	int found_pmax = 0;
+	int found_smax = 0;
+	int found_tmax = 0;
+	int i;
+	struct CompressPair *cmp;
+
+	for (i = 0; i < 256; i++) {
+#ifdef MAX_NCO_PRIMARY
+		if (NoCaseOrderTbl[i].Primary > MAX_NCO_PRIMARY)
+			ib_fprintf(ib_stderr, "Error Primary MAX: %d\n", i);
+		if (NoCaseOrderTbl[i].Secondary > MAX_NCO_SECONDARY)
+			ib_fprintf(ib_stderr, "Error Secondary MAX: %d\n", i);
+		if (NoCaseOrderTbl[i].Tertiary > MAX_NCO_TERTIARY)
+			ib_fprintf(ib_stderr, "Error Tertiary MAX: %d\n", i);
+#endif
+		found_pmax = MAX(NoCaseOrderTbl[i].Primary, found_pmax);
+		found_smax = MAX(NoCaseOrderTbl[i].Secondary, found_smax);
+		found_tmax = MAX(NoCaseOrderTbl[i].Tertiary, found_tmax);
+	};
+	for (cmp = &CompressTbl[0]; (cmp->CharPair[0]); cmp++) {
+#ifdef MAX_NCO_PRIMARY
+		if (cmp->NoCaseWeight.Primary > MAX_NCO_PRIMARY)
+			ib_fprintf(ib_stderr, "Error Primary MAX: %d\n", i);
+		if (cmp->NoCaseWeight.Secondary > MAX_NCO_SECONDARY)
+			ib_fprintf(ib_stderr, "Error Secondary MAX: %d\n", i);
+		if (cmp->NoCaseWeight.Tertiary > MAX_NCO_TERTIARY)
+			ib_fprintf(ib_stderr, "Error Tertiary MAX: %d\n", i);
+#endif
+		found_pmax = MAX(cmp->NoCaseWeight.Primary, found_pmax);
+		found_smax = MAX(cmp->NoCaseWeight.Secondary, found_smax);
+		found_tmax = MAX(cmp->NoCaseWeight.Tertiary, found_tmax);
+	};
+#ifdef MAX_NCO_PRIMARY
+	if (found_pmax != MAX_NCO_PRIMARY)
+		ib_fprintf(ib_stderr, "Error, real primary max is %d not %d\n",
+				   found_pmax, MAX_NCO_PRIMARY);
+
+	if (found_smax != MAX_NCO_SECONDARY)
+		ib_fprintf(ib_stderr, "Error, real secondary max is %d not %d\n",
+				   found_smax, MAX_NCO_SECONDARY);
+
+	if (found_tmax != MAX_NCO_TERTIARY)
+		ib_fprintf(ib_stderr, "Error, real tertiary max is %d not %d\n",
+				   found_tmax, MAX_NCO_TERTIARY);
+#else
+	ib_printf("#define MAX_NCO_PRIMARY\t%d\n", found_pmax);
+	ib_printf("#define MAX_NCO_SECONDARY\t%d\n", found_smax);
+	ib_printf("#define MAX_NCO_TERTIARY\t%d\n", found_tmax);
+#endif
+}
+
+void printKey(f, len, pKey)
+	 IB_FILE *f;
+	 int len;
+	 BYTE *pKey;
+{
+	int i;
+	ib_fprintf(f, " <%d>", len);
+	for (i = 0; i < len; i++)
+		ib_fprintf(f, " %3d", pKey[i]);
+}
+
+void do_test_string(str)
+	 SCHAR *str;
+{
+	BYTE key[LANGFAM2_MAX_KEY];
+	int len;
+	len =
+		fam2_string_to_key(debug_obj, strlen(str), str, sizeof(key), key,
+						   FALSE);
+	printKey(ib_stdout, len, key);
+	ib_printf("\n");
+	len = fam2_str_to_upper(debug_obj, strlen(str), str, sizeof(key), key);
+	key[len] = 0;
+	ib_printf("%s\n", key);
+}
+
+int byte_compare(l1, s1, l2, s2)
+	 int l1, l2;
+	 BYTE *s1, *s2;
+{
+	while (l1 > 0 && l2 > 0) {
+		if (*s1 < *s2)
+			return (-1);
+		if (*s1 > *s2)
+			return (1);
+		s1++;
+		s2++;
+		l1--;
+		l2--;
+	};
+	if (l1)
+		return (1);
+	if (l2)
+		return (-1);
+	return (0);
+}
+
+#define SIGN (x)	(((x) < 0) ? -1 : (((x) > 0) ? 1 : 0))
+
+int compare(l1, s1, l2, s2)
+	 int l1, l2;
+	 BYTE *s1, *s2;
+{
+	int res1, res2;
+	BYTE key1[LANGFAM2_MAX_KEY], key2[LANGFAM2_MAX_KEY];
+	int len1, len2;
+
+	res1 = fam2_compare(debug_obj, l1, s1, l2, s2);
+	res2 = fam2_compare(debug_obj, l1, s1, l2, s2);
+	if (res1 != res2)
+		ib_fprintf(ib_stderr, "compare: '%s' '%s' fails consistancy check\n",
+				   s1, s2);
+	res2 = fam2_compare(debug_obj, l2, s2, l1, s1);
+	if (SIGN(res1) != -SIGN(res2))
+		ib_fprintf(ib_stderr,
+				   "compare: '%s' '%s' fails reverse arguments test\n", s1,
+				   s2);
+	len1 = fam2_string_to_key(debug_obj, l1, s1, sizeof(key1), key1, FALSE);
+	len2 = fam2_string_to_key(debug_obj, l2, s2, sizeof(key2), key2, FALSE);
+	res2 = byte_compare(len1, key1, len2, key2);
+	if (SIGN(res1) != SIGN(res2))
+		ib_fprintf(ib_stderr,
+				   "compare: '%s' '%s' fails compatibility test with key-creation\n",
+				   s1, s2);
+	return (res1);
+}
+
+
+typedef struct vary {
+	USHORT length;
+	UCHAR bytes[10];
+} VARY;
+
+
+int is_printable(ch)
+	 UCHAR ch;
+{
+	switch (IB_CHARSET_ID) {
+	case CS_LATIN1:
+	case CS_ANSI:
+		return (!(((ch % 128) < 32) || (ch == 127)));
+	case CS_DOS_437:
+		return (ch >= 32);
+	case CS_DOS_865:
+		return (ch >= 32);
+	default:
+		ib_fprintf(ib_stderr, "Unknown code page# %d\n", IB_CHARSET_ID);
+		return (1);
+	};
+}
+
+
+UCHAR to_printable(ch)
+	 UCHAR ch;
+{
+	if (!is_printable(ch))
+		return ((UCHAR) ' ');
+	return (ch);
+}
+
+UCHAR *make_printable(ch)
+	 UCHAR ch;
+{
+	static UCHAR buffer[50];
+	if (!is_printable(ch)) {
+		sprintf(buffer, "<%03d>", ch);
+	}
+	else {
+		buffer[0] = ch;
+		buffer[1] = 0;
+	}
+	return (buffer);
+}
+
+void fprint_vary_name(f, v)
+	 IB_FILE *f;
+	 VARY *v;
+{
+	int i;
+	if (v->length > 1) {
+		ib_fprintf(f, "%3d: ", 999);
+		for (i = 0; i < v->length; i++)
+			ib_fprintf(f, "%s", make_printable(v->bytes[i]));
+	}
+	else {
+		ib_fprintf(f, "%3d:  %c\t\t%s", v->bytes[0],
+				   to_printable(v->bytes[0]),
+				   to_unicode_map[v->bytes[0]].uniname);
+	};
+
+}
+
+void fprint_vary(f, v)
+	 IB_FILE *f;
+	 VARY *v;
+{
+	int i;
+	for (i = 0; i < v->length; i++)
+		ib_fprintf(f, "%s", make_printable(v->bytes[i]));
+}
+
+int compare_vary(v1, v2)
+	 VARY *v1;
+	 VARY *v2;
+{
+	return (compare(v1->length, v1->bytes, v2->length, v2->bytes));
+}
+
+SCHAR fileheader[] =
+	"<MIFFile 3.00> # Generated by FrameMaker 3.0\n#\n<TextFlow\n <TFTag `A'>\n <TFAutoConnect Yes >\n <Notes \n > # end of Notes\n";
+
+SCHAR filefooter[] = "> # end of TextFlow\n# End of MIFFile\n";
+
+SCHAR parafooter[] = " >\n > # end of Para\n";
+
+SCHAR paraheader[] = " <Para \n <PgfTag `Body'>\n";
+SCHAR parafmthead[] = " <Pgf \n <PgfNumTabs 2>\n";
+SCHAR parafmttab[] =
+	" <TabStop \n <TSX  %3.1f\">\n <TSType Left >\n <TSLeaderStr ` '>\n > # end of TabStop\n";
+SCHAR parafmtfoot[] = " > # end of Pgf\n";
+SCHAR paralinehead[] = " <ParaLine \n ";
+
+
+#if IB_CHARSET_ID == CS_DOS_437
+#include "../intl/mac_437.h"
+#define to_mac_rom cp437_to_mac_rom
+#endif
+#if IB_CHARSET_ID == CS_DOS_865
+#include "../intl/mac_865.h"
+#define to_mac_rom cp865_to_mac_rom
+#endif
+#if IB_CHARSET_ID == CS_ANSI
+#include "../intl/mac_lat1.h"
+#define to_mac_rom latin1_to_mac_rom
+#endif
+#if IB_CHARSET_ID == CS_LATIN1
+#include "../intl/mac_lat1.h"
+#define to_mac_rom latin1_to_mac_rom
+#endif
+
+
+void output_doc(f, fmt)
+	 IB_FILE *f;
+	 int fmt;
+{
+	VARY tests[256 + NUM_EXPAND_CHARS + NUM_COMPRESS_CHARS + 10];
+	VARY uppercase;
+	int numtests;
+	int i;
+	int done;
+	int have_expand = 0;
+	int have_compress = 0;
+
+	numtests = 0;
+	for (i = 0; i < 256; i++) {
+		tests[i].length = 1;
+		tests[i].bytes[0] = i;
+		tests[i].bytes[1] = 0;
+		numtests++;
+		/* only make test cases if the expand/compress tables are used */
+		have_expand += NoCaseOrderTbl[i].IsExpand;
+		have_compress += NoCaseOrderTbl[i].IsCompress;
+	};
+	if (have_expand)
+		for (i = 0; i < NUM_EXPAND_CHARS; i++) {
+			tests[numtests].length = 2;
+			tests[numtests].bytes[0] = ExpansionTbl[i].ExpCh1;
+			tests[numtests].bytes[1] = ExpansionTbl[i].ExpCh2;
+			tests[numtests].bytes[2] = 0;
+			numtests++;
+		};
+	if (have_compress)
+		for (i = 0; i < NUM_COMPRESS_CHARS; i++) {
+			tests[numtests].length = 2;
+			tests[numtests].bytes[0] = CompressTbl[i].CharPair[0];
+			tests[numtests].bytes[1] = CompressTbl[i].CharPair[1];
+			tests[numtests].bytes[2] = 0;
+			numtests++;
+		};
+
+	/* just a quick bubble sort */
+	done = 0;
+	while (!done) {
+		done = 1;
+		for (i = 0; i < numtests - 1; i++)
+			if (compare_vary(&tests[i], &tests[i + 1]) > 0) {
+				VARY tmp;
+				done = 0;
+				tmp = tests[i];
+				tests[i] = tests[i + 1];
+				tests[i + 1] = tmp;
+			};
+	};
+	/* print out results */
+	if (fmt == 1) {
+		ib_fprintf(f, "%s\n", ID);
+		ib_fprintf(f, "Number of test cases = %d\n", numtests);
+		ib_fprintf(f, "----------\n");
+		for (i = 0; i < numtests; i++) {
+			fprint_vary_name(f, &tests[i]);
+			ib_fprintf(f, "\n");
+		};
+	}
+	else if (fmt == 2) {
+		ib_fprintf(f, "%s", fileheader);
+		for (i = 0; i < numtests; i++) {
+			ib_fprintf(f, "%s", paraheader);
+			ib_fprintf(f, "%s", parafmthead);
+			ib_fprintf(f, parafmttab, 0.5);
+			ib_fprintf(f, parafmttab, 1.0);
+			ib_fprintf(f, "%s", parafmtfoot);
+			ib_fprintf(f, "%s", paralinehead);
+
+/*
+   <String `128'>
+   <Char Tab >
+   <String `\x82 '>
+   <Char Tab >
+   <String `C cedilla'>
+*/
+			if (tests[i].length == 1) {
+				ib_fprintf(f, "<String `%03d'>\n", tests[i].bytes[0]);
+				ib_fprintf(f, "<Char Tab >\n");
+				ib_fprintf(f, "<String `\\x%02X '>\n",
+						   to_mac_rom[tests[i].bytes[0]]);
+				ib_fprintf(f, "<Char Tab >\n");
+				ib_fprintf(f, "<String `%s'>\n",
+						   to_unicode_map[tests[i].bytes[0]].uniname);
+			}
+			else {
+				ib_fprintf(f, "<String `--'>\n");
+				ib_fprintf(f, "<Char Tab >\n");
+				ib_fprintf(f, "<String `%s'>\n", /* Mac Rom */
+						   tests[i].bytes);
+				ib_fprintf(f, "<Char Tab >\n");
+				ib_fprintf(f, "<String `--'>\n");
+			};
+			ib_fprintf(f, "%s", parafooter);
+		};
+		ib_fprintf(f, "%s", filefooter);
+	}
+	else
+		assert(0);
+
+	if (fmt == 2)
+		return;
+
+	ib_fprintf(f, "----------\n");
+	ib_fprintf(f, "UPPERCASING\n");
+	for (i = 0; i < numtests; i++) {
+		uppercase.length =
+			fam2_str_to_upper(debug_obj, tests[i].length, tests[i].bytes,
+							  sizeof(uppercase.bytes) /
+							  sizeof(uppercase.bytes[1]), uppercase.bytes);
+		if (byte_compare
+			(tests[i].length, tests[i].bytes, uppercase.length,
+			 uppercase.bytes)) {
+			fprint_vary(f, &tests[i]);
+			ib_fprintf(f, " --> ");
+			fprint_vary(f, &uppercase);
+			ib_fprintf(f, "\n");
+		};
+
+	};
+}
+
+main(argc, argv)
+	 int argc;
+	 SCHAR *argv[];
+{
+	INIT_ENTRY_NAME(IB_INTERBASE_DRIVER_NUMBER, debug_obj);
+	if ((argc > 3) || ((argc == 2) && (strcmp(argv[1], "-help") == 0))) {
+		ib_fprintf(ib_stderr, "Usage: test <string>  ===> key\n");
+		ib_fprintf(ib_stderr, "       test <s1> <s2> ===> iStrCmp(s1,s2)\n");
+	}
+	else if ((argc == 2) && (strncmp(argv[1], "-doc", 4) == 0)) {
+		output_doc(ib_stdout, 1);
+	}
+	else if ((argc == 2) && (strncmp(argv[1], "-framemaker", 4) == 0)) {
+		output_doc(ib_stdout, 2);
+	}
+	else {
+		ib_printf("%s\n", ID);
+		if (argc == 1) {
+			SCHAR buffer[256];
+			while (!ib_feof(ib_stdin)) {
+				gets(buffer);
+				do_test_string(buffer);
+			};
+		}
+		else if (argc == 2) {
+			do_test_string(argv[1]);
+		}
+		else if (argc == 3) {
+			int res;
+			res = compare(strlen(argv[1]), argv[1], strlen(argv[2]), argv[2]);
+			ib_printf("%s cmp %s => %d\n", argv[1], argv[2], res);
+		};
+	};
+	return (0);
+};
+
+#endif	/* DEBUG_LD */
+
+
+#undef LANGFAM2_MAX_KEY
+
+#undef ASCII_SPACE
+#undef NULL_WEIGHT
+#undef NULL_SECONDARY
+#undef NULL_TERTIARY
diff --git a/src/intl/lc_unicode.c b/src/intl/lc_unicode.c
new file mode 100644
index 0000000000..71cab30eae
--- /dev/null
+++ b/src/intl/lc_unicode.c
@@ -0,0 +1,124 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		lc_unicode.c
+ *	DESCRIPTION:	Language Drivers in the Unicode family.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../intl/ldcommon.h"
+
+extern USHORT famasc_key_length();
+extern USHORT famasc_string_to_key();
+extern SSHORT famasc_compare();
+extern USHORT famasc_to_upper();
+extern USHORT famasc_to_lower();
+extern SSHORT famasc_str_to_upper();
+extern USHORT CS_UTFFSS_fss_to_unicode();
+extern SSHORT CS_UTFFSS_fss_mbtowc();
+static SSHORT wc_mbtowc();
+
+#define FAMILY_UNICODE_WIDE_BIN(id_number, name, charset, country) \
+	cache->texttype_version =		IB_LANGDRV_VERSION; \
+	cache->texttype_type =			(id_number); \
+	cache->texttype_character_set =		(charset); \
+	cache->texttype_country =		(country); \
+	cache->texttype_bytes_per_char =	2; \
+	cache->texttype_fn_init =		(name); \
+	cache->texttype_fn_key_length =		famasc_key_length; \
+	cache->texttype_fn_string_to_key =	famasc_string_to_key; \
+	cache->texttype_fn_compare =		famasc_compare; \
+	cache->texttype_fn_to_upper =		famasc_to_upper; \
+	cache->texttype_fn_to_lower =		famasc_to_lower; \
+	cache->texttype_fn_str_to_upper =	famasc_str_to_upper; \
+	cache->texttype_collation_table =	(BYTE *) NULL; \
+	cache->texttype_toupper_table =		(BYTE *) NULL; \
+	cache->texttype_tolower_table =		(BYTE *) NULL; \
+	cache->texttype_compress_table =	(BYTE *) NULL; \
+	cache->texttype_expand_table =		(BYTE *) NULL; \
+	cache->texttype_name =			POSIX;
+
+#define FAMILY_UNICODE_MB_BIN(id_number, name, charset, country) \
+	cache->texttype_version =		IB_LANGDRV_VERSION; \
+	cache->texttype_type =			(id_number); \
+	cache->texttype_character_set =		(charset); \
+	cache->texttype_country =		(country); \
+	cache->texttype_bytes_per_char =	3; \
+	cache->texttype_fn_init =		(name); \
+	cache->texttype_fn_key_length =		famasc_key_length; \
+	cache->texttype_fn_string_to_key =	famasc_string_to_key; \
+	cache->texttype_fn_compare =		famasc_compare; \
+	cache->texttype_fn_to_upper =		famasc_to_upper; \
+	cache->texttype_fn_to_lower =		famasc_to_lower; \
+	cache->texttype_fn_str_to_upper =	famasc_str_to_upper; \
+	cache->texttype_collation_table =	(BYTE *) NULL; \
+	cache->texttype_toupper_table =		(BYTE *) NULL; \
+	cache->texttype_tolower_table =		(BYTE *) NULL; \
+	cache->texttype_compress_table =	(BYTE *) NULL; \
+	cache->texttype_expand_table =		(BYTE *) NULL; \
+	cache->texttype_name =			POSIX;
+
+
+
+TEXTTYPE_ENTRY(UNI200_init)
+{
+	static ASCII POSIX[] = "C.UNICODE";
+
+	FAMILY_UNICODE_WIDE_BIN(200, UNI200_init, CS_UNICODE101, CC_C);
+	cache->texttype_fn_mbtowc = wc_mbtowc;
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+TEXTTYPE_ENTRY(UNI201_init)
+{
+	static ASCII POSIX[] = "C.UNICODE_FSS";
+
+	FAMILY_UNICODE_MB_BIN(201, UNI201_init, CS_UNICODE_FSS, CC_C);
+	cache->texttype_fn_to_wc = CS_UTFFSS_fss_to_unicode;
+	cache->texttype_fn_mbtowc = CS_UTFFSS_fss_mbtowc;
+
+	TEXTTYPE_RETURN;
+}
+
+#include "../intl/undef.h"
+
+
+static SSHORT wc_mbtowc(obj, wc, p, n)
+	 TEXTTYPE *obj;
+	 WCHAR *wc;
+	 NCHAR *p;
+	 USHORT n;
+{
+	assert(obj);
+	assert(wc);
+	assert(p);
+
+	if (n < sizeof(WCHAR))
+		return -1;
+	*wc = *(WCHAR *) p;
+	return sizeof(WCHAR);
+}
+
+
+#undef FAMILY_UNICODE_MB_BIN
+#undef FAMILY_UNICODE_WIDE_BIN
diff --git a/src/intl/ld.c b/src/intl/ld.c
new file mode 100644
index 0000000000..b8fd63beba
--- /dev/null
+++ b/src/intl/ld.c
@@ -0,0 +1,378 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		ld.c
+ *	DESCRIPTION:	Language Driver lookup & support routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../intl/ldcommon.h"
+
+#define	EXTERN_texttype(name)	extern USHORT name (TEXTTYPE, SSHORT, SSHORT)
+#define EXTERN_convert(name)	extern USHORT name (CSCONVERT, SSHORT, SSHORT)
+#define EXTERN_charset(name)	extern USHORT name (CHARSET, SSHORT, SSHORT)
+
+EXTERN_texttype(DOS101_init);
+EXTERN_texttype(DOS101_c2_init);
+EXTERN_texttype(DOS101_c3_init);
+EXTERN_texttype(DOS101_c4_init);
+EXTERN_texttype(DOS101_c5_init);
+EXTERN_texttype(DOS101_c6_init);
+EXTERN_texttype(DOS101_c7_init);
+EXTERN_texttype(DOS101_c8_init);
+EXTERN_texttype(DOS101_c9_init);
+EXTERN_texttype(DOS101_c10_init);
+
+EXTERN_texttype(DOS102_init);
+EXTERN_texttype(DOS105_init);
+EXTERN_texttype(DOS106_init);
+
+EXTERN_texttype(DOS107_init);
+EXTERN_texttype(DOS107_c1_init);
+EXTERN_texttype(DOS107_c2_init);
+EXTERN_texttype(DOS107_c3_init);
+
+EXTERN_texttype(DOS852_c0_init);
+EXTERN_texttype(DOS852_c1_init);
+EXTERN_texttype(DOS852_c2_init);
+#ifdef BUG_6925
+EXTERN_texttype(DOS852_c3_init);
+#endif
+EXTERN_texttype(DOS852_c4_init);
+EXTERN_texttype(DOS852_c5_init);
+EXTERN_texttype(DOS852_c6_init);
+EXTERN_texttype(DOS852_c7_init);
+EXTERN_texttype(DOS852_c8_init);
+
+EXTERN_texttype(DOS857_c0_init);
+EXTERN_texttype(DOS857_c1_init);
+#ifdef BUG_6925
+EXTERN_texttype(DOS857_c2_init);
+#endif
+
+EXTERN_texttype(DOS860_c0_init);
+EXTERN_texttype(DOS860_c1_init);
+
+EXTERN_texttype(DOS861_c0_init);
+EXTERN_texttype(DOS861_c1_init);
+
+EXTERN_texttype(DOS863_c0_init);
+EXTERN_texttype(DOS863_c1_init);
+
+EXTERN_texttype(CYRL_c0_init);
+EXTERN_texttype(CYRL_c1_init);
+EXTERN_texttype(CYRL_c2_init);
+
+EXTERN_texttype(LATIN1_cp_init);
+
+EXTERN_texttype(LAT139_init);
+EXTERN_texttype(LAT140_init);
+EXTERN_texttype(LAT141_init);
+EXTERN_texttype(LAT142_init);
+EXTERN_texttype(LAT143_init);
+EXTERN_texttype(LAT144_init);
+EXTERN_texttype(LAT145_init);
+EXTERN_texttype(LAT146_init);
+EXTERN_texttype(LAT148_init);
+EXTERN_texttype(LAT149_init);
+EXTERN_texttype(LAT151_init);
+EXTERN_texttype(LAT152_init);
+EXTERN_texttype(LAT153_init);
+EXTERN_texttype(LAT154_init);
+
+EXTERN_texttype(WIN1250_c0_init);
+EXTERN_texttype(WIN1250_c1_init);
+EXTERN_texttype(WIN1250_c2_init);
+EXTERN_texttype(WIN1250_c3_init);
+EXTERN_texttype(WIN1250_c4_init);
+
+EXTERN_texttype(WIN1251_c0_init);
+EXTERN_texttype(WIN1251_c1_init);
+
+EXTERN_texttype(WIN1252_c0_init);
+EXTERN_texttype(WIN1252_c1_init);
+EXTERN_texttype(WIN1252_c2_init);
+EXTERN_texttype(WIN1252_c3_init);
+EXTERN_texttype(WIN1252_c4_init);
+EXTERN_texttype(WIN1252_c5_init);
+
+EXTERN_texttype(WIN1253_c0_init);
+EXTERN_texttype(WIN1253_c1_init);
+
+EXTERN_texttype(WIN1254_c0_init);
+EXTERN_texttype(WIN1254_c1_init);
+
+EXTERN_texttype(NEXT_c0_init);
+EXTERN_texttype(NEXT_c1_init);
+EXTERN_texttype(NEXT_c2_init);
+EXTERN_texttype(NEXT_c3_init);
+EXTERN_texttype(NEXT_c4_init);
+
+EXTERN_texttype(DOS160_init);
+EXTERN_texttype(DOS160_c1_init);
+EXTERN_texttype(DOS160_c2_init);
+EXTERN_texttype(DOS160_c3_init);
+EXTERN_texttype(DOS160_c4_init);
+EXTERN_texttype(DOS160_c5_init);
+EXTERN_texttype(DOS160_c6_init);
+EXTERN_texttype(DOS160_c7_init);
+EXTERN_texttype(DOS160_c8_init);
+EXTERN_texttype(DOS160_c9_init);
+EXTERN_texttype(DOS160_c10_init);
+
+EXTERN_texttype(UNI200_init);
+EXTERN_texttype(UNI201_init);
+
+EXTERN_texttype(JIS220_init);
+EXTERN_texttype(JIS230_init);
+
+EXTERN_charset(CS_iso_latin1);
+EXTERN_charset(CS_win1250);
+EXTERN_charset(CS_win1251);
+EXTERN_charset(CS_win1252);
+EXTERN_charset(CS_win1253);
+EXTERN_charset(CS_win1254);
+EXTERN_charset(CS_next);
+EXTERN_charset(CS_cyrl);
+EXTERN_charset(CS_dos_437);
+EXTERN_charset(CS_dos_850);
+EXTERN_charset(CS_dos_852);
+EXTERN_charset(CS_dos_857);
+EXTERN_charset(CS_dos_860);
+EXTERN_charset(CS_dos_861);
+EXTERN_charset(CS_dos_863);
+EXTERN_charset(CS_dos_865);
+EXTERN_charset(CS_unicode_101);
+EXTERN_charset(CS_unicode_fss);
+EXTERN_charset(CS_sjis);
+EXTERN_charset(CS_euc_j);
+
+EXTERN_charset(CS_big_5);
+EXTERN_charset(CS_gb_2312);
+EXTERN_charset(CS_ksc_5601);
+EXTERN_convert(CV_ksc_5601_dict_init);
+
+EXTERN_texttype(BIG5_init);
+EXTERN_texttype(KSC_5601_init);
+EXTERN_texttype(GB_2312_init);
+
+EXTERN_convert(CV_dos_437_x_latin1);
+EXTERN_convert(CV_dos_865_x_latin1);
+EXTERN_convert(CV_dos_437_x_dos_865);
+EXTERN_convert(CVJIS_sjis_x_eucj);
+
+
+#ifdef DEV_BUILD
+void LD_assert(CONST SCHAR* filename, int lineno)
+{
+/**************************************
+ *
+ *	L D _ a s s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Utility function for assert() macro 
+ *	Defined locally (clone from jrd/err.c) as ERR_assert isn't
+ *	a shared module entry point on all platforms, whereas gds__log is.
+ *
+ **************************************/
+	TEXT buffer[100];
+
+	sprintf(buffer,
+			"Assertion failed: component intl, file \"%s\", line %d\n",
+			filename, lineno);
+#if !(defined VMS || defined WIN_NT)
+	gds__log(buffer);
+#endif
+	ib_printf(buffer);
+}
+#endif
+
+
+/* Note: Cannot use a lookup table here as SUN4 cannot init pointers inside
+ * shared libraries
+ */
+
+#define DRIVER(num, name) \
+	case (num): \
+		*fun = (FPTR_SHORT) (name); \
+		return (0);
+
+#define CHARSET_INIT(num, name) \
+	case (num): \
+		*fun = (FPTR_SHORT) (name); \
+		return (0);
+
+#define CONVERT_INIT_BI(to_cs, from_cs, name)\
+	if (((parm1 == (to_cs)) && (parm2 == (from_cs))) ||\
+	    ((parm2 == (to_cs)) && (parm1 == (from_cs)))) \
+	    {\
+	    *fun = (FPTR_SHORT) (name);\
+	    return (0);\
+	    }
+
+USHORT DLL_EXPORT LD_lookup(USHORT objtype,
+							FPTR_SHORT * fun, SSHORT parm1, SSHORT parm2)
+{
+/**************************************
+ *
+ *	L D _ l o o k u p 
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Lookup an international object implementation via object type
+ *	and id (one id for charsets & collations, two ids for converters).
+ *
+ *	Note: This routine is a cousin of intl/ld2.c:LD2_lookup
+ *
+ * Return:
+ *	If object implemented by this module:
+ *		(fun)	set to the object initializer
+ *		0	returned	
+ *	Otherwise:
+ *		(fun)	set to nil.
+ *		1	returned
+ *
+ **************************************/
+
+	switch (objtype) {
+	case type_texttype:
+		switch (parm1) {
+
+#define CHARSET(name, cs_id, coll_id, bytes, num, cs_symbol, cp_symbol) \
+	    case (cs_id): \
+		*fun = (FPTR_SHORT) (cp_symbol); \
+		return (0);
+#define CSALIAS(name, cs_id)
+#define COLLATION(name, cc_id, cs_id, coll_id, symbol) \
+	    case (((coll_id) << 8) | (cs_id)): \
+		*fun = (FPTR_SHORT) (symbol); \
+		return (0);
+#define COLLATE_ALIAS(name, coll_id)
+#define END_CHARSET
+
+#define _INTL_COMPONENT_
+
+#include "../jrd/intlnames.h"
+
+#undef CHARSET
+#undef CSALIAS
+#undef COLLATION
+#undef COLLATE_ALIAS
+#undef END_CHARSET
+
+/*
+	    DRIVER (CS_DOS_437, DOS101_init);
+	    DRIVER (CS_DOS_850, DOS160_init);
+	    DRIVER (CS_DOS_865, DOS107_init);
+	    DRIVER (CS_LATIN1,  LATIN1_cp_init);
+	    DRIVER (CS_UNICODE_FSS, UNI201_init);
+	    DRIVER (CS_SJIS,    JIS220_init);
+	    DRIVER (CS_EUCJ,    JIS230_init);
+
+	    DRIVER (101, DOS101_init);
+	    DRIVER (102, DOS102_init);
+	    DRIVER (105, DOS105_init);
+	    DRIVER (106, DOS106_init);
+	    DRIVER (107, DOS107_init);
+	    DRIVER (139, LAT139_init);
+	    DRIVER (140, LAT140_init);
+	    DRIVER (141, LAT141_init);
+	    DRIVER (142, LAT142_init);
+	    DRIVER (143, LAT143_init);
+	    DRIVER (144, LAT144_init);
+	    DRIVER (145, LAT145_init);
+	    DRIVER (146, LAT146_init);
+	    DRIVER (148, LAT148_init);
+	    DRIVER (149, LAT149_init);
+	    DRIVER (151, LAT151_init);
+	    DRIVER (152, LAT152_init);
+	    DRIVER (153, LAT153_init);
+	    DRIVER (154, LAT154_init);
+	    DRIVER (160, DOS160_init);
+	    DRIVER (200, UNI200_init);
+	    DRIVER (201, UNI201_init);
+	    DRIVER (220, JIS220_init);
+	    DRIVER (230, JIS230_init);
+*/
+
+		default:
+			*fun = NULL;
+			return (1);
+		};
+	case type_charset:
+		switch (parm1) {
+#define CHARSET(name, cs_id, coll_id, bytes, num, cs_symbol, cp_symbol) \
+	    case (cs_id): \
+		*fun = (FPTR_SHORT) (cs_symbol); \
+		return (0);
+#define CSALIAS(name, cs_id)
+#define COLLATION(name, cc_id, cs_id, coll_id, symbol)
+#define COLLATE_ALIAS(name, coll_id)
+#define END_CHARSET
+
+#define _INTL_COMPONENT_
+
+
+#include "../jrd/intlnames.h"
+
+#undef CHARSET
+#undef CSALIAS
+#undef COLLATION
+#undef COLLATE_ALIAS
+
+/*
+	    CHARSET_INIT (CS_LATIN1,     CS_iso_latin1);
+	    CHARSET_INIT (CS_DOS_437,    CS_dos_437);
+	    CHARSET_INIT (CS_DOS_850,    CS_dos_850);
+	    CHARSET_INIT (CS_DOS_865,    CS_dos_865);
+	    CHARSET_INIT (CS_UNICODE101, CS_unicode_101);
+	    CHARSET_INIT (CS_UNICODE_FSS, CS_unicode_fss);
+	    CHARSET_INIT (CS_SJIS,       CS_sjis);
+	    CHARSET_INIT (CS_EUCJ,       CS_euc_j);
+*/
+		default:
+			*fun = NULL;
+			return (1);
+		};
+	case type_csconvert:
+		{
+			CONVERT_INIT_BI(CS_DOS_437, CS_LATIN1, CV_dos_437_x_latin1);
+			CONVERT_INIT_BI(CS_DOS_865, CS_LATIN1, CV_dos_865_x_latin1);
+			CONVERT_INIT_BI(CS_DOS_437, CS_DOS_865, CV_dos_437_x_dos_865);
+			CONVERT_INIT_BI(CS_SJIS, CS_EUCJ, CVJIS_sjis_x_eucj);
+			*fun = NULL;
+			return (1);
+		}
+	default:
+#ifdef DEV_BUILD
+		assert(0);
+#endif
+		*fun = NULL;
+		return (1);
+	}
+}
+
+#undef DRIVER
+#undef CHARSET_INIT
+#undef CONVERT_INIT_BI
diff --git a/src/intl/ld.h b/src/intl/ld.h
new file mode 100644
index 0000000000..55497c336b
--- /dev/null
+++ b/src/intl/ld.h
@@ -0,0 +1,1083 @@
+/*
+ *	PROGRAM:	Intl
+ *	MODULE:		ld.h
+ *	DESCRIPTION:	Language Driver data structures
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/* ------------NOTE NOTE NOTE -----------
+ * This file is shared with the Language Driver kit used by PC/Windows
+ * products.  This master is in the PC side kit, currently (931018) stored
+ * as DBENGINE:/area6/langdrv/h/ld.h
+ * with Martin Levy as module owner
+ * The file has been ported from ANSI C++ to K&R C, with minimal changes
+ * to support re-porting in the future.
+ *   C++ comments are surrounded by C comments.
+ *   Prototypes are #ifdef'ed out.
+ *   Following is a bunch of remappings of InterBase data types to
+ *	the type names as used on the PC
+ */
+
+#ifndef _INTL_LD_H_
+#define _INTL_LD_H_
+
+#ifdef CHAR
+#undef CHAR
+#endif
+#define CHAR	SCHAR
+#define BYTE	UCHAR
+#define INT8	SCHAR
+#define UINT8	UCHAR
+#define INT16	SSHORT
+#define UINT16	USHORT
+#define INT32	SLONG
+#define UINT32	ULONG
+
+#define BOOL	UINT16
+
+
+/* Following this line is LD.H from Borland Language Driver Kit */
+
+
+/*
+//-----------------------------------------------------------------
+//
+// LD.H
+//
+// Language Driver API header file
+//
+// 08-17-92 MLevy LdLibraryName[ LD_LIBNAME_LEN ] changed to pLdLibraryName.
+// 08-05-92 MLevy Exposed LdExit() again.
+// 06-09-92 MLevy ICELAND and BorlPORTUGUESE added.
+// 05-20-92 MLevy File made.
+//
+//-----------------------------------------------------------------
+*/
+
+#ifndef __LD_H
+#define __LD_H
+
+/*
+//-----------------------------------------------------------------
+*/
+
+#define LD_MAJOR                  1
+#define LD_MINOR                  1
+#define LD_REV                    1
+
+/*
+// default LD resource DLL name
+*/
+
+
+#ifdef QLD
+#define LD_LIBRARY                "QLD.DLL"
+#else
+#define LD_LIBRARY                "LD01.DLL"
+#endif
+
+/*
+//-----------------------------------------------------------------
+// DATA TYPE DEFINITIONS
+//-----------------------------------------------------------------
+*/
+
+#ifndef TRUE
+#define           TRUE 1
+#endif
+#ifndef FALSE
+#define           FALSE 0
+#endif
+#ifndef UNKNOWN
+#define           UNKNOWN -1
+#endif
+
+/*
+//For pointers
+*/
+#ifndef NULL
+#ifdef MS_DOS
+#define           NULL (0)
+#else
+#define           NULL 0
+#endif
+#endif
+
+#ifndef NULLP
+#define           NULLP (0)
+#endif
+
+#ifndef VOID
+#define           VOID void
+#endif
+
+#ifndef CHAR
+#define           CHAR char
+#endif
+
+#ifndef BYTE
+#define           BYTE unsigned char
+#endif
+
+#ifndef INT8
+#define           INT8 char
+#endif
+
+#ifndef UINT8
+#define           UINT8 unsigned char
+#endif
+
+#ifndef INT16
+#define           INT16 int
+#endif
+
+#ifndef UINT16
+#define           UINT16 unsigned int
+#endif
+
+#ifndef INT32
+#define           INT32 long
+#endif
+
+#ifndef UINT32
+#define           UINT32 unsigned long
+#endif
+
+#ifndef BOOL
+#define           BOOL int
+#endif
+
+#ifndef NETWARE_386
+#ifndef MS_DOS
+#define far
+#endif
+#endif
+
+typedef VOID far *pVOID;
+typedef pVOID far *ppVOID;
+typedef CHAR far *pCHAR;
+typedef BYTE far *pBYTE;
+typedef INT8 far *pINT8;
+typedef UINT8 far *pUINT8;
+typedef INT32 far *pINT32;
+typedef UINT32 far *pUINT32;
+typedef BOOL far *pBOOL;
+
+#ifndef PIRANHA_CREATE_RESTRUCTURE
+
+typedef INT16 far *pINT16;
+typedef UINT16 far *pUINT16;
+typedef UINT16 PDXResult;
+
+#endif
+
+#define hFILE  INT16
+#define phFILE pINT16
+
+
+#ifdef MS_DOS
+//-----------------------------------------------------------------
+// API PROC CALLING CONVENTION
+//-----------------------------------------------------------------
+
+#ifndef CALLTYPE
+#define CALLTYPE pascal far
+#endif
+
+//-----------------------------------------------------------------
+
+#define LdStrColl( LdObj, Str1, Str2 )                             \
+                                                                   \
+                 LdObj->pColl(   LdObj, Str1, Str2 )
+
+#define LdStrColli( LdObj, Str1, Str2 )                            \
+                                                                   \
+                 LdObj->pColli(  LdObj, Str1, Str2 )
+
+#define LdStrnColl( LdObj, Str1, Str2, MaxLen )                    \
+                                                                   \
+                 LdObj->pNColl(  LdObj, Str1, Str2, MaxLen )
+
+#define LdStrnColli( LdObj, Str1, Str2, MaxLen )                   \
+                                                                   \
+                 LdObj->pNColli( LdObj, Str1, Str2, MaxLen )
+
+#define LdStrCmp( LdObj, Str1, Str2 )                              \
+                                                                   \
+                 LdObj->pCmp(   LdObj, Str1, Str2 )
+
+#define LdStrCmpi( LdObj, Str1, Str2 )                             \
+                                                                   \
+                 LdObj->pCmpi(  LdObj, Str1, Str2 )
+
+#define LdStrnCmp( LdObj, Str1, Str2, MaxLen )                     \
+                                                                   \
+                 LdObj->pNCmp(  LdObj, Str1, Str2, MaxLen )
+
+#define LdStrnCmpi( LdObj, Str1, Str2, MaxLen )                    \
+                                                                   \
+                 LdObj->pNCmpi( LdObj, Str1, Str2, MaxLen )
+
+#define LdExStrCmp( LdObj, Right, RightLen, Left, LeftLen, Exact ) \
+                                                                   \
+                 LdObj->pExCmp( LdObj, Right, RightLen, Left, LeftLen, Exact )
+
+//  ------
+
+#define LdCharToOem( LdObj, ch )                                   \
+                                                                   \
+                 LdCharConvert( LdObj->pOemTable, ch )
+
+#define LdCharToAnsi( LdObj, ch )                                  \
+                                                                   \
+                 LdCharConvert( LdObj->pAnsiTable, ch )
+
+#define LdStrToOem( LdObj, Str )                                   \
+                                                                   \
+                 LdStrConvert( LdObj->pOemTable, Str )
+
+#define LdStrToAnsi( LdObj, Str )                                  \
+                                                                   \
+                 LdStrConvert( LdObj->pAnsiTable, Str )
+
+#define LdStrnToOem( LdObj, Str, Len )                             \
+                                                                   \
+                 LdStrnConvert( LdObj->pOemTable, Str, Len )
+
+#define LdStrnToAnsi( LdObj, Str, Len )                            \
+                                                                   \
+                 LdStrnConvert( LdObj->pAnsiTable, Str, Len )
+
+#define LdStrToOemStr( LdObj, Src, Dst )                           \
+                                                                   \
+                 LdStrConvertStr( LdObj->pOemTable, Src, Dst )
+
+#define LdStrToAnsiStr( LdObj, Src, Dst )                          \
+                                                                   \
+                 LdStrConvertStr( LdObj->pAnsiTable, Src, Dst )
+
+#define LdStrnToOemStr( LdObj, Src, Dst, Len )                     \
+                                                                   \
+                 LdStrnConvertStr( LdObj->pOemTable, Src, Dst, Len )
+
+#define LdStrnToAnsiStr( LdObj, Src, Dst, Len )                    \
+                                                                   \
+                 LdStrnConvertStr( LdObj->pAnsiTable, Src, Dst, Len )
+
+#define LdIsStrInOemCp( LdObj, Str )                               \
+                                                                   \
+                 LdIsStrConvert( LdObj->pOemTable, Str )
+
+#define LdIsStrInAnsiCp( LdObj, Str )                              \
+                                                                   \
+                 LdIsStrConvert( LdObj->pAnsiTable, Str )
+
+#define LdIsStrnInOemCp( LdObj, Str, Len )                         \
+                                                                   \
+                 LdIsStrnConvert( LdObj->pOemTable, Str, Len )
+
+#define LdIsStrnInAnsiCp( LdObj, Str, Len )                        \
+                                                                   \
+                 LdIsStrnConvert( LdObj->pAnsiTable, Str, Len )
+
+#define LdIsCharInOemCp( LdObj, ch )                               \
+                                                                   \
+                 LdIsCharConvert( LdObj->pOemTable, ch )
+
+#define LdIsCharInAnsiCp( LdObj, ch )                              \
+                                                                   \
+                 LdIsCharConvert( LdObj->pAnsiTable, ch )
+
+#endif
+
+/*
+//-----------------------------------------------------------------
+// API CONSTANT VALUES
+//-----------------------------------------------------------------
+*/
+
+#define YES                       TRUE
+#define NO                        FALSE
+
+
+/*
+// LdObject Windows resource type
+*/
+#define LDRESOBJECT            1001
+#define LDOBJ_NAME1             101
+
+#define LDID                   1002
+
+#define LDIDRESNAME               "LDID"
+
+/*
+// Language type (file or resource)
+*/
+#define LDOBJRES                  1
+#define LDOBJFILE                 2
+
+
+#define SECONDARY_DIFF          256
+#define TERTIARY_DIFF           512
+#define LENGTH_DIFF            1024
+
+/*
+//
+// SORT/COLLATION TYPE PROVIDED BY LANGUAGE DRIVER
+//
+*/
+#define ASCII_SORT                1
+#define CODEPAGE_SORT             ASCII_SORT
+#define DICT_SORT                 2
+#define PHONETIC_SORT             3
+#define NAME_SORT                 4
+
+/*
+//
+// CODE PAGE/CHARACTER SET PLATFORM TYPES
+//
+*/
+#define DOS_CP                    1
+#define OEM_CP                    DOS_CP
+#define WIN_CP                    2
+#define ANSI_CP                   WIN_CP
+#define OS2_CP                    3
+
+/*
+// UNIX etc.
+*/
+#define SUNOS_CP                  4
+#define VMS_CP                    5
+#define HPUX_CP                   6
+#define ULTRIX_CP                 7
+#define AIX_CP                    8
+#define AUX_CP                    9
+#define XENIX_CP                 10
+#define MAC_CP                   11
+
+/*
+// SHIFT-JIS (JAPANESE DBCS)
+*/
+#define SJIS_CP                 255
+
+/*
+// length of descriptive language driver name (incl zero)
+*/
+#define LD_SYMNAME_LEN           20
+
+/*
+// max length of language driver signature & file name (incl zero)
+*/
+#define LD_SFNAME_LEN            20
+
+/*
+// max length of language driver resource file name (incl zero)
+*/
+#define LD_LIBNAME_LEN           13
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN               81
+#endif
+
+#define LDSUCCESS                 0
+#define LDFAILURE                -1
+
+#define REVERSE					  0x01
+#define EXPAND                    0x02
+#define SECONDARY                 0x04
+#define LOCAL_EXPAND              0x08
+#define LOCAL_SECONDARY           0x10
+
+/*
+//
+// TABLE INDEX CONSTANTS
+//
+*/
+
+#define CHARDEF_TBL               0
+#define UPPERCASE_TBL             1
+#define LOWERCASE_TBL             2
+#define EXPAND_TBL                3
+#define COMPRESS_TBL              4
+#define CASESORT_TBL              5
+#define NOCASESORT_TBL            6
+#define SOUNDEX_TBL               7
+#define LICSCP_TBL                8
+#define CPLICS_TBL                9
+#define PRIMALT_TBL              10
+#define ALTPRIM_TBL              11
+#define BASE_TBL                 12
+#define EOF_VAL                  13
+
+#define NUMBER_TBLS              EOF_VAL + 1
+
+/*
+//-----------------------------------------------------------------
+*/
+
+struct SortOrderTblEntry {
+
+	UINT16 Primary:8;
+#ifdef MS_DOS
+	UINT16 Secondary:5;
+	UINT16 Tertiary:1;
+#else
+	UINT16 Secondary:4;
+	UINT16 Tertiary:2;
+#endif
+	UINT16 IsExpand:1;
+	UINT16 IsCompress:1;
+
+};
+
+/*
+//
+// CHARACTER EXPANSION STRUCTURE
+//
+*/
+
+struct ExpandChar {
+
+	BYTE Ch;
+	BYTE ExpCh1;
+	BYTE ExpCh2;
+};
+
+/*
+//
+// CHARACTER PAIR TO SINGLE SORT WEIGHT STRUCTURE
+//
+*/
+
+struct CompressPair {
+
+	BYTE CharPair[2];
+	struct SortOrderTblEntry CaseWeight;
+	struct SortOrderTblEntry NoCaseWeight;
+};
+
+#ifdef MS_DOS
+typedef struct LdResInfo {
+
+	INT16 ID;
+	BYTE LdResName[LD_SFNAME_LEN];
+	pBYTE pLdLibraryName;
+	UINT16 hLdLibrary;
+	UINT16 hResource;
+	pBYTE pResource;
+	UINT16 CurPos;
+
+} LDRESINFO;
+
+typedef LDRESINFO *hLDRESINFO;
+#endif
+
+#ifndef __LDSYS_H
+
+#ifdef MS_DOS
+
+//-----------------------------------------------------------------
+// LDOBJECT DEFINITIONS
+//-----------------------------------------------------------------
+
+typedef struct LDTABLES {
+
+	UINT16 CaseSortTable:1;
+	UINT16 NoCaseSortTable:1;
+	UINT16 SoundexTable:1;
+	UINT16 LicsCPTable:1;
+	UINT16 CPLicsTable:1;
+	UINT16 PrimAltTable:1;
+	UINT16 AltPrimTable:1;
+	UINT16 BaseTable:1;
+	UINT16 CharDefTable:1;
+	UINT16 UpperCaseTable:1;
+	UINT16 LowerCaseTable:1;
+	UINT16 Reserved:5;
+
+} LDTABLES;
+
+//
+// Language Driver header structure
+//
+
+typedef struct LdObject {
+
+	// DRIVER ID
+	UINT16 DriverID;
+
+	// LANGUAGE/COUNTRY ID
+	UINT16 LangCountryID;
+
+	// PRIMARY LANGUAGE DRIVER CODE PAGE ID
+	UINT16 PrimaryCodePageID;
+
+	// ALTERNATE CODE PAGE ID (FOR CP TO CP CONVERSION)
+	UINT16 AltCodePageID;
+
+	// PRODUCT ID
+	UINT16 ProductID;
+
+	// OEM (DOS) / ANSI (WIN) etc.
+	BYTE PrimaryCpPlatform;
+
+	// OEM (DOS) / ANSI (WIN) etc.
+	BYTE AlternateCpPlatform;
+
+	// TYPE OF TEST FOR BREAKING TIE BREAKS FIRST
+	BYTE TieBreakPriority;
+
+	// CHARACTER SET SORT / DICTIONARY SORT
+	BYTE LanguageSortType;
+
+	// LANGUAGE DRIVER MAJOR
+	BYTE LanguageMajorVersion;
+
+	// LANGUAGE DRIVER MAJOR
+	BYTE LanguageMinorVersion;
+
+	// LANGUAGE DRIVER REVISION
+	BYTE LanguageRevision;
+
+	// LANGUAGE DRIVER DESCRIPTION
+	BYTE LanguageName[LD_SYMNAME_LEN];
+
+	// LANGUAGE DRIVER SIGNATURE & FILENAME
+	BYTE LanguageSigFileName[LD_SFNAME_LEN];
+
+	BYTE Reserved[sizeof(LDTABLES) + sizeof(UINT16)];
+
+	// PATHNAME OF ACTUAL LANGUAGE DRIVER LOADED
+	BYTE LdFullPathName[MAXPATHLEN + 1];
+
+	// LANGUAGE DRIVER RESOURCE TYPE: WINDOWS RES / DOS FILE
+	BYTE LanguageResourceType;
+
+	// CP TO CP CONVERSION
+	pUINT16 pOemTable;
+
+	// CP TO CP CONVERSION
+	pUINT16 pAnsiTable;
+
+	// STRING COMPARIONS METHODS
+	INT16 CALLTYPE(*pColl) (struct LdObject * LdObj, pBYTE Str1, pBYTE Str2);
+	INT16 CALLTYPE(*pColli) (struct LdObject * LdObj, pBYTE Str1, pBYTE Str2);
+	INT16 CALLTYPE(*pNColl) (struct LdObject * LdObj, pBYTE Str1, pBYTE Str2,
+							 UINT16 Maxlen);
+	INT16 CALLTYPE(*pNColli) (struct LdObject * LdObj, pBYTE Str1, pBYTE Str2,
+							  UINT16 Maxlen);
+	INT16 CALLTYPE(*pCmp) (struct LdObject * LdObj, pBYTE Str1, pBYTE Str2);
+	INT16 CALLTYPE(*pCmpi) (struct LdObject * LdObj, pBYTE Str1, pBYTE Str2);
+	INT16 CALLTYPE(*pNCmp) (struct LdObject * LdObj, pBYTE Str1, pBYTE Str2,
+							UINT16 Maxlen);
+	INT16 CALLTYPE(*pNCmpi) (struct LdObject * LdObj, pBYTE Str1, pBYTE Str2,
+							 UINT16 Maxlen);
+	INT16 CALLTYPE(*pExCmp) (struct LdObject * LdObj, pBYTE Right,
+							 INT16 RightLen, pBYTE Left, INT16 LeftLen,
+							 BOOL Exact);
+
+} LdObject;
+
+#endif
+
+#else
+
+#include "ldstruct.h"
+
+#endif /* //__LDSYS_H */
+
+#ifdef MS_DOS
+typedef LdObject LDOBJECT;
+typedef LdObject *pLDOBJECT;
+typedef LdObject *pLdObject;
+typedef LdObject *Ldh;
+#endif
+
+
+/*
+//-----------------------------------------------------------------
+*/
+
+/*
+//-----------------------------------------------------------------
+// CHARACTER/SYMBOL DEFINITION VALUES
+//-----------------------------------------------------------------
+*/
+
+/*
+// NO SPECIAL QUALITIES
+*/
+#define CH_UNDEFINED           0x00
+
+/*
+// A NUMERIC CHARACTER
+*/
+#define CH_DIGIT               0x01
+
+/*
+// AN UPPERCASE CHARACTER
+*/
+#define CH_UPPER               0x02
+
+/*
+// A LOWERCASE CHARACTER
+*/
+#define CH_LOWER               0x04
+
+/*
+// ALPHA CHARACTER
+*/
+#define CH_ALPHA               CH_LOWER + CH_UPPER
+
+/*
+// ALPHANUMERIC CHARACTER
+*/
+#define CH_ALPHANUM            CH_LOWER + CH_UPPER + CH_DIGIT
+
+#ifdef MS_DOS
+//-----------------------------------------------------------------
+// API PROC PROTOTYPES
+//-----------------------------------------------------------------
+
+LDTABLES CALLTYPE LdWhichObjTablesLoaded(LdObject * LdObj);
+
+LDTABLES CALLTYPE LdWhichObjTablesSupported(LdObject * LdObj);
+
+BOOL CALLTYPE LdIsObjTableLoaded(LdObject * LdObj, INT16 table);
+
+BOOL CALLTYPE LdIsObjTableSupported(LdObject * LdObj, INT16 table);
+
+INT16 CALLTYPE LdLoadObj(LdObject ** ReturnLdObj, pBYTE Filename,
+						 LDTABLES * Tables);
+
+INT16 CALLTYPE LdLoadObjTable(LdObject * LdObj, INT16 table);
+
+INT16 CALLTYPE LdUnLoadObj(LdObject ** LdObj);
+
+INT16 CALLTYPE LdUnLoadObjTable(LdObject * LdObj, INT16 table);
+
+INT16 CALLTYPE LdResetObjTables(LdObject * LdObj, LDTABLES * Tables);
+
+INT16 CALLTYPE LdReadObjInfo(LdObject * LdObj, pCHAR fileName);
+
+INT16 CALLTYPE LdInit(INT16 MajorVer, INT16 MinorVer);
+
+VOID CALLTYPE LdExit(VOID);
+
+UINT16 CALLTYPE LdCharToBase(LdObject * LdObj, BYTE ch);
+
+UINT16 CALLTYPE LdCharToAlt(LdObject * LdObj, BYTE ch);
+
+UINT16 CALLTYPE LdCharToPrim(LdObject * LdObj, BYTE ch);
+
+BYTE CALLTYPE LdCharToUpper(LdObject * LdObj, BYTE ch);
+
+BYTE CALLTYPE LdCharToLower(LdObject * LdObj, BYTE ch);
+
+BYTE CALLTYPE LdCharToSoundex(LdObject * LdObj, BYTE ch);
+
+BYTE CALLTYPE LdLicsToChar(LdObject * LdObj, BYTE ch);
+
+BYTE CALLTYPE LdCharToLics(LdObject * LdObj, BYTE ch);
+
+BOOL CALLTYPE LdStrToAlt(LdObject * LdObj, pBYTE Str);
+
+BOOL CALLTYPE LdStrToPrim(LdObject * LdObj, pBYTE Str);
+
+BOOL CALLTYPE LdStrnToAlt(LdObject * LdObj, pBYTE Str, UINT16 MaxLen);
+
+BOOL CALLTYPE LdStrnToPrim(LdObject * LdObj, pBYTE Str, UINT16 MaxLen);
+
+BOOL CALLTYPE LdStrToPrimStr(LdObject * LdObj, pBYTE AltStr, pBYTE PrimStr);
+
+BOOL CALLTYPE LdStrToAltStr(LdObject * LdObj, pBYTE PrimStr, pBYTE AltStr);
+
+BOOL CALLTYPE LdStrnToPrimStr(LdObject * LdObj, pBYTE AltStr, pBYTE PrimStr,
+							  UINT16 MaxLen);
+
+BOOL CALLTYPE LdStrnToAltStr(LdObject * LdObj, pBYTE PrimStr, pBYTE AltStr,
+							 UINT16 MaxLen);
+
+BOOL CALLTYPE LdIsPrimStrInAltCp(LdObject * LdObj, pBYTE Str);
+
+BOOL CALLTYPE LdIsAltStrInPrimCp(LdObject * LdObj, pBYTE Str);
+
+BOOL CALLTYPE LdIsPrimStrnInAltCp(LdObject * LdObj, pBYTE Str, UINT16 MaxLen);
+
+BOOL CALLTYPE LdIsAltStrnInPrimCp(LdObject * LdObj, pBYTE Str, UINT16 MaxLen);
+
+pBYTE CALLTYPE LdStrToUpper(LdObject * LdObj, pBYTE Str);
+
+pBYTE CALLTYPE LdStrToLower(LdObject * LdObj, pBYTE Str);
+
+pBYTE CALLTYPE LdStrnToUpper(LdObject * LdObj, pBYTE Str, UINT16 MaxLen);
+
+pBYTE CALLTYPE LdStrnToLower(LdObject * LdObj, pBYTE Str, UINT16 MaxLen);
+
+BOOL CALLTYPE LdIsAltCharInPrimCp(LdObject * LdObj, BYTE ch);
+
+BOOL CALLTYPE LdIsPrimCharInAltCp(LdObject * LdObj, BYTE ch);
+
+BOOL CALLTYPE LdIsCharAlpha(LdObject * LdObj, BYTE ch);
+
+BOOL CALLTYPE LdIsCharAlphaNumeric(LdObject * LdObj, BYTE ch);
+
+BOOL CALLTYPE LdIsCharDigit(LdObject * LdObj, BYTE ch);
+
+BOOL CALLTYPE LdIsCharLower(LdObject * LdObj, BYTE ch);
+
+BOOL CALLTYPE LdIsCharUpper(LdObject * LdObj, BYTE ch);
+
+INT16 CALLTYPE LdStrColl_(LdObject * LdObj, pBYTE Str1, pBYTE Str2);
+
+INT16 CALLTYPE LdStrnColl_(LdObject * LdObj, pBYTE Str1, pBYTE Str2,
+						   UINT16 Maxlen);
+
+INT16 CALLTYPE LdStrColli_(LdObject * LdObj, pBYTE Str1, pBYTE Str2);
+
+INT16 CALLTYPE LdStrnColli_(LdObject * LdObj, pBYTE Str1, pBYTE Str2,
+							UINT16 Maxlen);
+
+INT16 CALLTYPE LdStrCmp_(LdObject * LdObj, pBYTE Str1, pBYTE Str2);
+
+INT16 CALLTYPE LdStrnCmp_(LdObject * LdObj, pBYTE Str1, pBYTE Str2,
+						  UINT16 Maxlen);
+
+INT16 CALLTYPE LdStrCmpi_(LdObject * LdObj, pBYTE Str1, pBYTE Str2);
+
+INT16 CALLTYPE LdStrnCmpi_(LdObject * LdObj, pBYTE Str1, pBYTE Str2,
+						   UINT16 Maxlen);
+
+INT16 CALLTYPE LdExStrCmp_(LdObject * LdObj, pBYTE Right, INT16 RightLen,
+						   pBYTE Left, INT16 LeftLen, BOOL Exact);
+
+BYTE CALLTYPE LdGetCharDefinition(LdObject * LdObj, BYTE ch);
+
+//---------------------------------------------------------------
+
+UINT16 CALLTYPE LdCharConvert(pUINT16 Table, BYTE ch);
+
+BOOL CALLTYPE LdStrConvert(pUINT16 Table, pBYTE Str);
+
+BOOL CALLTYPE LdStrnConvert(pUINT16 Table, pBYTE Str, UINT16 MaxLen);
+
+BOOL CALLTYPE LdStrConvertStr(pUINT16 Table, pBYTE SrcStr, pBYTE DstStr);
+
+BOOL CALLTYPE LdStrnConvertStr(pUINT16 Table, pBYTE SrcStr, pBYTE DstStr,
+							   UINT16 MaxLen);
+
+BOOL CALLTYPE LdIsStrConvert(pUINT16 Table, pBYTE Str);
+
+BOOL CALLTYPE LdIsStrnConvert(pUINT16 Table, pBYTE Str, UINT16 MaxLen);
+
+BOOL CALLTYPE LdIsCharConvert(pUINT16 Table, BYTE ch);
+
+//---------------------------------------------------------------
+// WINDOWS SPECIFIC PROC PROTOTYPES
+//---------------------------------------------------------------
+
+INT16 CALLTYPE LdLoadResObj(LDOBJECT ** ReturnLdObj, pBYTE ResName,
+							LDTABLES * Tables, pBYTE ResLibrary);
+
+INT16 CALLTYPE LdReadResObjInfo(LDOBJECT * LdObj, pBYTE ResName,
+								pBYTE ResLibrary);
+
+INT16 CALLTYPE LdFindFirstResObj(LDRESINFO * Info);
+
+INT16 CALLTYPE LdFindNextResObj(LDRESINFO * Info);
+
+INT16 CALLTYPE LdLoadResObjTable(LDOBJECT * LdObj, INT16 table);
+
+INT16 CALLTYPE LdGetResNamebyID(LDRESINFO * Info);
+
+//---------------------------------------------------------------
+
+pLDOBJECT CALLTYPE LdFindFirstLdObj(VOID);
+
+pLDOBJECT CALLTYPE LdFindNextLdObj(LdObject * LdObj);
+
+pVOID CALLTYPE LdGetObjTableAddr(LdObject * LdObj, LDTABLES * Tables);
+
+UINT16 CALLTYPE LdGetLdObjUsage(LdObject * LdObj);
+
+UINT16 CALLTYPE LdIncLdObjUsage(LdObject * LdObj);
+
+UINT16 CALLTYPE LdGetAPIVersion(VOID);
+
+UINT16 CALLTYPE LdGetAPIRevision(VOID);
+
+pBYTE CALLTYPE LdGetAPIDate(VOID);
+
+VOID CALLTYPE LdFree(pVOID MemPtr);
+
+pVOID CALLTYPE LdCalloc(UINT16 NumberItems, UINT16 SizeItem);
+#endif
+
+/*
+//-----------------------------------------------------------------
+// ID CODES
+//-----------------------------------------------------------------
+//
+// PRODUCT ID
+//
+*/
+#define PDOX                    0x1
+#define DBASE                   0x2
+#define IBASE                   0x4
+#define OTHER                   0x8
+#define BORLAND                0x10
+
+/*
+//
+// COUNTRY/LANGUAGE ID
+//
+*/
+
+/*
+#define US                        1
+#define CANADA                    2
+#define LATINAMER                 3
+#define NEDERLANDS               31
+#define BELGIUM                  32
+#define FRANCE                   33
+#define SPAIN                    34
+#define HUNGARY                  36
+#define YUGOSLAVIA               38
+#define ITALY                    39
+#define SWITZ                    41
+#define CZECH                    42
+#define UK                       44
+#define DENMARK                  45
+#define SWEDEN                   46
+#define NORWAY                   47
+#define POLAND                   48
+#define GERMANY                  49
+#define BRAZIL                   55
+#define INTL                     61
+#define PORTUGAL                351
+#define FINLAND                 358
+#define JAPAN                    81
+#define ICELAND                 354
+
+#define NORDAN                    DENMARK + NORWAY
+#define SWEDFIN                   SWEDEN  + FINLAND
+*/
+
+/*
+//
+// UNIQUE LANGUAGE DRIVER ID
+//
+*/
+
+/*
+// Paradox
+*/
+
+#define pxUS                      1
+#define pxINTL                    2
+#define pxJAPANESE                3
+#define pxNORDAN                  4
+#define pxNORDAN4                 5
+#define pxSWEDFIN                 6
+
+/*
+// dBASE
+*/
+
+#define dbARABIC                  7
+#define dbDANISH                  8
+#define dbDUTCH                   9
+#define dbDUTCH2                 10
+#define dbFINNISH                11
+#define dbFINNISH2               12
+#define dbFRENCH                 13
+#define dbFRENCH2                14
+#define dbGERMAN                 15
+#define dbGERMAN2                16
+#define dbITALIAN                17
+#define dbITALIAN2               18
+#define dbJAPANESE               19
+#define dbSPANISH2               20
+#define dbSWEDISH                21
+#define dbSWEDISH2               22
+#define dbNORWEGIAN              23
+#define dbSPANISH                24
+#define dbUK                     25
+#define dbUK2                    26
+#define dbUS                     27
+#define dbFRENCHCAN              28
+#define dbFRENCHCAN2             29
+#define dbFRENCHCAN3             30
+#define dbCZECH                  31
+#define dbCZECH2                 32
+#define dbGREEK                  33
+#define dbHUNGARIAN              34
+#define dbPOLISH                 35
+#define dbPORTUGUESE             36
+#define dbPORTUGUESE2            37
+#define dbRUSSIAN                38
+
+/*
+// Borland
+*/
+
+#define BorlDANISH               39
+#define BorlDUTCH                40
+#define BorlFINNISH              41
+#define BorlFRENCH               42
+#define BorlCANADIAN             43
+#define BorlGERMAN               44
+#define BorlICELANDIC            45
+#define BorlITALIAN              46
+#define BorlJAPANESE             47
+#define BorlNORWEGIAN            48
+#define BorlSPANISH              49
+#define BorlSPANISH2             50
+#define BorlSWEDISH              51
+#define BorlUK                   52
+#define BorlUS                   53
+#define BorlPORTUGUESE           54
+#define dbUS2                    55
+
+/*
+// User Defined 201 - 254
+*/
+
+#define USERDEFINED_MIN         201
+#define USERDEFINED_MAX         255
+
+/*
+//-----------------------------------------------------------------
+// ERROR CODES
+//-----------------------------------------------------------------
+*/
+
+#define ERRBASE_LDAPI             0x7000
+
+/*
+// no errors at all
+*/
+#define LDERR_NONE                LDSUCCESS
+
+/*
+// LD memory could be allocated
+*/
+#define LDERR_NOMEMORY            ERRBASE_LDAPI + 0xA1
+
+/*
+// LD file corrupt/could not be read
+*/
+#define LDERR_FILECORRUPT         ERRBASE_LDAPI + 0xA2
+
+/*
+// LD version mismatch
+*/
+#define LDERR_OLDVERSION          ERRBASE_LDAPI + 0xA3
+
+/*
+// LD table not supported
+*/
+#define LDERR_NOTSUPPORTED        ERRBASE_LDAPI + 0xA4
+
+/*
+// LD file not accessible
+*/
+#define LDERR_FILEOPEN            ERRBASE_LDAPI + 0xA5
+
+/*
+// LD resource not accessible
+*/
+#define LDERR_RESOPEN             ERRBASE_LDAPI + 0xA6
+
+/*
+// unknown
+*/
+#define LDERR_UNKNOWN             ERRBASE_LDAPI + 0xA7
+
+#endif
+/*
+//-----------------------------------------------------------------
+
+
+//-----------------------------------------------------------------
+// VCS AREA
+//-----------------------------------------------------------------
+
+//	$Header: /home/job/firebird/cvs-backup/firebird2/src/intl/ld.h,v 1.1.1.1 2001-05-23 13:25:50 tamlin Exp $
+
+//	$Log: not supported by cvs2svn $
+//	Revision 1.1.1.1  2000/08/03 20:49:08  skywalker
+//	Save the whale, feed the poor, and set the sources free.
+//	
+//	Revision 1.1.1.1  2000/07/29 04:25:02  root
+//	interbase initial import
+//	
+//	Revision 1.2.2.2  2000/07/24 20:33:16  chrisj
+//	Changing the wording of the license boilerplate in all the source files
+//	to match new changes required by Inprise legal dept on 24 July 2000.
+//	        --Changed by Chris Jewell, not reviewed.
+//	
+//	Revision 1.2.2.1  2000/07/21 23:02:08  chrisj
+//	Globally changing the wording of the copyright and license text
+//	in the headers of all the source files.  2000-07-21 by chrisj
+//	
+//	Revision 1.2  2000/06/06 22:50:18  stsikin
+//	Removing #ifdef _ANSI_PROTOTYPES stuff.
+//	Adding new license/Copyright text.
+//	
+//	Stanislav Tsikin, 06-JUN-2000.
+//	
+//	Revision 1.1.1.1  2000/03/05 00:23:55  rkumar
+//	InterBase 6.0 sources
+//	
+// 
+//    Rev 1.8   23 Nov 1992 16:46:24   MLEVY
+// LD.DLL => LD01.DLL
+// 
+//    Rev 1.7   10 Nov 1992 17:26:48   MLEVY
+// version info modified
+// 
+//    Rev 1.6   10 Nov 1992 15:24:48   MLEVY
+// new defines for CANADA
+// 
+//    Rev 1.5   10 Nov 1992 11:38:46   MLEVY
+// LD_MINOR bumped to 1
+// 
+//    Rev 1.4   20 Oct 1992 16:40:54   MLEVY
+// PIRANHA_CREATE_RESTRUCTURE ifndef added around 3 typedefs
+// 
+//    Rev 1.3   20 Oct 1992 14:05:58   MLEVY
+// LOCAL_EXPAND and LOCAL_SECONDARY added. EXPAND and SECONDARY values changed
+// revision bumped. REVERSE replaces REVERSE_DIRECTION
+// 
+//    Rev 1.2   20 Aug 1992 12:04:34   MLEVY
+// LdLibraryName is now a pointer
+// 
+//    Rev 1.1   08 Aug 1992 14:33:56   MLEVY
+// expose LdExit()
+// 
+//    Rev 1.0   16 Jun 1992 16:37:50   MLEVY
+// Initial revision.
+// 
+//    Rev 1.5   16 Jun 1992 16:01:02   MLEVY
+
+//-----------------------------------------------------------------
+*/
+
+#endif /* _INTL_LD_H_ */
diff --git a/src/intl/ld2.c b/src/intl/ld2.c
new file mode 100644
index 0000000000..f8a029c086
--- /dev/null
+++ b/src/intl/ld2.c
@@ -0,0 +1,137 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		ld2.c
+ *	DESCRIPTION:	Additional Language Driver lookup & support routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../intl/ldcommon.h"
+
+
+#ifdef DEV_BUILD
+LD2_assert(filename, lineno)
+	 SCHAR *filename;
+	 int lineno;
+{
+/**************************************
+ *
+ *	L D 2 _ a s s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Utility function for assert() macro 
+ *	Defined locally (clone from jrd/err.c) as ERR_assert isn't
+ *	a shared module entry point on all platforms, whereas gds__log is.
+ *
+ **************************************/
+	TEXT buffer[100];
+
+	sprintf(buffer, "Assertion failed: INTL file \"%s\", line %d\n", filename,
+			lineno);
+#if !(defined VMS || defined WIN_NT)
+	gds__log(buffer);
+#else
+	ib_printf(buffer);
+#endif
+}
+#endif
+
+
+/* Note: Cannot use a lookup table here as SUN4 cannot init pointers inside
+ * shared libraries
+ */
+
+#define DRIVER(num, name) \
+	case (num): \
+		*fun = (FPTR_SHORT) (name); \
+		return (0);
+
+#define CHARSET_INIT(num, name) \
+	case (num): \
+		*fun = (FPTR_SHORT) (name); \
+		return (0);
+
+#define CONVERT_INIT_BI(to_cs, from_cs, name)\
+	if (((parm1 == (to_cs)) && (parm2 == (from_cs))) ||\
+	    ((parm2 == (to_cs)) && (parm1 == (from_cs)))) \
+	    {\
+	    *fun = (FPTR_SHORT) (name);\
+	    return (0);\
+	    }
+
+USHORT DLL_EXPORT LD2_lookup(
+							 USHORT objtype,
+							 FPTR_SHORT * fun, SSHORT parm1, SSHORT parm2)
+{
+/**************************************
+ *
+ *	L D 2 _ l o o k u p 
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Lookup an international object implementation via object type
+ *	and id (one id for charsets & collations, two ids for converters).
+ *
+ *	Note: This routine is a cousin of intl/ld.c:LD_lookup
+ *
+ * Return:
+ *	If object implemented by this module:
+ *		(fun)	set to the object initializer
+ *		0	returned	
+ *	Otherwise:
+ *		(fun)	set to nil.
+ *		1	returned
+ *
+ **************************************/
+
+	switch (objtype) {
+	case type_texttype:
+		switch (parm1) {
+		default:
+			*fun = NULL;
+			return 1;
+		};
+	case type_charset:
+		switch (parm1) {
+		default:
+			*fun = NULL;
+			return 1;
+		};
+	case type_csconvert:
+		{
+			*fun = NULL;
+			return 1;
+		}
+	default:
+#ifdef DEV_BUILD
+		assert(0);
+#endif
+		*fun = NULL;
+		return 1;
+	}
+}
+
+#undef DRIVER
+#undef CHARSET_INIT
+#undef CONVERT_INIT_BI
diff --git a/src/intl/ld_proto.h b/src/intl/ld_proto.h
new file mode 100644
index 0000000000..a9520c5763
--- /dev/null
+++ b/src/intl/ld_proto.h
@@ -0,0 +1,33 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		ld_proto.h
+ *	DESCRIPTION:	Prototype header file for ld.c & ld2.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _INTL_LD_PROTO_H_
+#define _INTL_LD_PROTO_H_
+
+#ifdef DEV_BUILD
+void DLL_EXPORT LD_assert(CONST SCHAR*, int);
+#endif
+USHORT DLL_EXPORT LD_lookup(USHORT, USHORT* (*)(), SSHORT, SSHORT);
+USHORT DLL_EXPORT LD2_lookup(USHORT, USHORT* (*)(), SSHORT, SSHORT);
+
+#endif /* _INTL_LD_PROTO_H_ */
diff --git a/src/intl/ldcommon.h b/src/intl/ldcommon.h
new file mode 100644
index 0000000000..ab1ea90057
--- /dev/null
+++ b/src/intl/ldcommon.h
@@ -0,0 +1,94 @@
+/*
+ *	PROGRAM:	InterBase International support
+ *	MODULE:		ldcommon.h
+ *	DESCRIPTION:	Common declarations for InterBase language drivers
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _INTL_LDCOMMON_H_
+#define _INTL_LDCOMMON_H_
+
+#ifdef DEBUG_LD
+#include <stdio.h>
+#include <assert.h>
+#else
+#include "../jrd/gdsassert.h"
+#endif
+
+#include "../jrd/common.h"
+#include "../jrd/jrd.h"
+#include "../jrd/intl.h"
+#include "../jrd/intlobj.h"
+#include "../intl/langdrv.h"
+#include "../intl/charsets.h"
+#include "../intl/country_codes.h"
+#include "../intl/ld.h"
+#include "../jrd/kanji.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+
+#undef DEBUG
+
+#define STATIC	static
+
+typedef USHORT UNICODE;
+
+/* Redirect the assertion code defined by gdsassert.h to a local routine */
+#ifdef assert
+#undef assert
+#endif
+#ifndef DEV_BUILD
+#define ERR_assert				/* nothing */
+#define assert(ex)				/* nothing */
+#else
+#define ERR_assert	LD_assert
+#define assert(ex)	{if (!(ex)){(void) LD_assert (__FILE__, __LINE__); abort();}}
+#endif
+
+
+
+
+#define	TEXTTYPE_ENTRY(name)	USHORT name (cache, parm1, dummy) \
+TEXTTYPE	cache; \
+SSHORT		parm1; \
+SSHORT		dummy;
+
+#define	TEXTTYPE_RETURN	return (0)
+
+
+
+
+#define CONVERT_ENTRY(cs1, cs2, name)	USHORT	name (csptr, dest_cs, source_cs)\
+CSCONVERT	csptr; \
+SSHORT		dest_cs; \
+SSHORT		source_cs;
+
+#define	CONVERT_RETURN	return (0)
+
+
+
+
+#define CHARSET_ENTRY(name)	USHORT	name (csptr, cs_id, dummy) \
+CHARSET	csptr;\
+SSHORT	cs_id;\
+SSHORT	dummy;
+
+#define CHARSET_RETURN	return (0)
+
+#endif /* _INTL_LDCOMMON_H_ */
diff --git a/src/intl/mac_437.h b/src/intl/mac_437.h
new file mode 100644
index 0000000000..ab18c91ae0
--- /dev/null
+++ b/src/intl/mac_437.h
@@ -0,0 +1,279 @@
+/* Convert from CP 437 to Macintosh ROM character set 
+
+                                                   UNICODE
+ New         Note     Old UNICODE                   NAME
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+====      ========== ==== ======= ======================================== */
+CONST UCHAR cp437_to_mac_rom[256] = {
+	0x00,						/*             00  0000    NULL                                     */
+	0x20,						/* (REMAP)     01  263A    WHITE SMILING FACE                       */
+	0x20,						/* (REMAP)     02  263B    BLACK SMILING FACE                       */
+	0x20,						/* (REMAP)     03  2665    BLACK HEART SUIT                         */
+	0x20,						/* (REMAP)     04  2666    BLACK DIAMOND SUIT                       */
+	0x20,						/* (REMAP)     05  2663    BLACK CLUB SUIT                          */
+	0x20,						/* (REMAP)     06  2660    BLACK SPADE SUIT                         */
+	0xA5,						/*             07  2022    BULLET                                   */
+	0x20,						/* (REMAP)     08  25D8    INVERSE BULLET                           */
+	0x20,						/* (REMAP)     09  25CB    WHITE CIRCLE                             */
+	0x20,						/* (REMAP)     0A  25D9    INVERSE WHITE CIRCLE                     */
+	0x20,						/* (REMAP)     0B  2642    MALE SIGN                                */
+	0x20,						/* (REMAP)     0C  2640    FEMALE SIGN                              */
+	0x20,						/* (REMAP)     0D  266A    EIGHTH NOTE                              */
+	0x20,						/* (REMAP)     0E  266B    BARRED EIGHTH NOTES                      */
+	0x20,						/* (REMAP)     0F  263C    WHITE SUN WITH RAYS                      */
+	0x20,						/* (REMAP)     10  25BA    BLACK RIGHT POINTING POINTER             */
+	0x20,						/* (REMAP)     11  25C4    BLACK LEFT POINTING POINTER              */
+	0x20,						/* (REMAP)     12  2195    UP DOWN ARROW                            */
+	0x20,						/* (REMAP)     13  203C    DOUBLE EXCLAMATION MARK                  */
+	0xA6,						/*             14  00B6    PARAGRAPH SIGN                           */
+	0xA4,						/*             15  00A7    SECTION SIGN                             */
+	0x20,						/* (REMAP)     16  25AC    BLACK RECTANGLE                          */
+	0x20,						/* (REMAP)     17  21A8    UP DOWN ARROW WITH BASE                  */
+	0x20,						/* (REMAP)     18  2191    UP ARROW                                 */
+	0x20,						/* (REMAP)     19  2193    DOWN ARROW                               */
+	0x20,						/* (REMAP)     1A  2192    RIGHT ARROW                              */
+	0x20,						/* (REMAP)     1B  2190    LEFT ARROW                               */
+	0x20,						/* (REMAP)     1C  221F    RIGHT ANGLE                              */
+	0x20,						/* (REMAP)     1D  2194    LEFT RIGHT ARROW                         */
+	0x20,						/* (REMAP)     1E  25B2    BLACK UP POINTING TRIANGLE               */
+	0x20,						/* (REMAP)     1F  25BC    BLACK DOWN POINTING TRIANGLE             */
+	0x20,						/*             20  0020    SPACE                                    */
+	0x21,						/*             21  0021    EXCLAMATION MARK                         */
+	0x22,						/*             22  0022    QUOTATION MARK                           */
+	0x23,						/*             23  0023    NUMBER SIGN                              */
+	0x24,						/*             24  0024    DOLLAR SIGN                              */
+	0x25,						/*             25  0025    PERCENT SIGN                             */
+	0x26,						/*             26  0026    AMPERSAND                                */
+	0x27,						/*             27  0027    APOSTROPHE-QUOTE                         */
+	0x28,						/*             28  0028    OPENING PARENTHESIS                      */
+	0x29,						/*             29  0029    CLOSING PARENTHESIS                      */
+	0x2A,						/*             2A  002A    ASTERISK                                 */
+	0x2B,						/*             2B  002B    PLUS SIGN                                */
+	0x2C,						/*             2C  002C    COMMA                                    */
+	0x2D,						/*             2D  002D    HYPHEN-MINUS                             */
+	0x2E,						/*             2E  002E    PERIOD                                   */
+	0x2F,						/*             2F  002F    SLASH                                    */
+	0x30,						/*             30  0030    DIGIT ZERO                               */
+	0x31,						/*             31  0031    DIGIT ONE                                */
+	0x32,						/*             32  0032    DIGIT TWO                                */
+	0x33,						/*             33  0033    DIGIT THREE                              */
+	0x34,						/*             34  0034    DIGIT FOUR                               */
+	0x35,						/*             35  0035    DIGIT FIVE                               */
+	0x36,						/*             36  0036    DIGIT SIX                                */
+	0x37,						/*             37  0037    DIGIT SEVEN                              */
+	0x38,						/*             38  0038    DIGIT EIGHT                              */
+	0x39,						/*             39  0039    DIGIT NINE                               */
+	0x3A,						/*             3A  003A    COLON                                    */
+	0x3B,						/*             3B  003B    SEMICOLON                                */
+	0x3C,						/*             3C  003C    LESS-THAN SIGN                           */
+	0x3D,						/*             3D  003D    EQUALS SIGN                              */
+	0x3E,						/*             3E  003E    GREATER-THAN SIGN                        */
+	0x3F,						/*             3F  003F    QUESTION MARK                            */
+	0x40,						/*             40  0040    COMMERCIAL AT                            */
+	0x41,						/*             41  0041    LATIN CAPITAL LETTER A                   */
+	0x42,						/*             42  0042    LATIN CAPITAL LETTER B                   */
+	0x43,						/*             43  0043    LATIN CAPITAL LETTER C                   */
+	0x44,						/*             44  0044    LATIN CAPITAL LETTER D                   */
+	0x45,						/*             45  0045    LATIN CAPITAL LETTER E                   */
+	0x46,						/*             46  0046    LATIN CAPITAL LETTER F                   */
+	0x47,						/*             47  0047    LATIN CAPITAL LETTER G                   */
+	0x48,						/*             48  0048    LATIN CAPITAL LETTER H                   */
+	0x49,						/*             49  0049    LATIN CAPITAL LETTER I                   */
+	0x4A,						/*             4A  004A    LATIN CAPITAL LETTER J                   */
+	0x4B,						/*             4B  004B    LATIN CAPITAL LETTER K                   */
+	0x4C,						/*             4C  004C    LATIN CAPITAL LETTER L                   */
+	0x4D,						/*             4D  004D    LATIN CAPITAL LETTER M                   */
+	0x4E,						/*             4E  004E    LATIN CAPITAL LETTER N                   */
+	0x4F,						/*             4F  004F    LATIN CAPITAL LETTER O                   */
+	0x50,						/*             50  0050    LATIN CAPITAL LETTER P                   */
+	0x51,						/*             51  0051    LATIN CAPITAL LETTER Q                   */
+	0x52,						/*             52  0052    LATIN CAPITAL LETTER R                   */
+	0x53,						/*             53  0053    LATIN CAPITAL LETTER S                   */
+	0x54,						/*             54  0054    LATIN CAPITAL LETTER T                   */
+	0x55,						/*             55  0055    LATIN CAPITAL LETTER U                   */
+	0x56,						/*             56  0056    LATIN CAPITAL LETTER V                   */
+	0x57,						/*             57  0057    LATIN CAPITAL LETTER W                   */
+	0x58,						/*             58  0058    LATIN CAPITAL LETTER X                   */
+	0x59,						/*             59  0059    LATIN CAPITAL LETTER Y                   */
+	0x5A,						/*             5A  005A    LATIN CAPITAL LETTER Z                   */
+	0x5B,						/*             5B  005B    OPENING SQUARE BRACKET                   */
+	0x5C,						/*             5C  005C    BACKSLASH                                */
+	0x5D,						/*             5D  005D    CLOSING SQUARE BRACKET                   */
+	0x5E,						/*             5E  005E    SPACING CIRCUMFLEX                       */
+	0x5F,						/*             5F  005F    SPACING UNDERSCORE                       */
+	0x60,						/*             60  0060    SPACING GRAVE                            */
+	0x61,						/*             61  0061    LATIN SMALL LETTER A                     */
+	0x62,						/*             62  0062    LATIN SMALL LETTER B                     */
+	0x63,						/*             63  0063    LATIN SMALL LETTER C                     */
+	0x64,						/*             64  0064    LATIN SMALL LETTER D                     */
+	0x65,						/*             65  0065    LATIN SMALL LETTER E                     */
+	0x66,						/*             66  0066    LATIN SMALL LETTER F                     */
+	0x67,						/*             67  0067    LATIN SMALL LETTER G                     */
+	0x68,						/*             68  0068    LATIN SMALL LETTER H                     */
+	0x69,						/*             69  0069    LATIN SMALL LETTER I                     */
+	0x6A,						/*             6A  006A    LATIN SMALL LETTER J                     */
+	0x6B,						/*             6B  006B    LATIN SMALL LETTER K                     */
+	0x6C,						/*             6C  006C    LATIN SMALL LETTER L                     */
+	0x6D,						/*             6D  006D    LATIN SMALL LETTER M                     */
+	0x6E,						/*             6E  006E    LATIN SMALL LETTER N                     */
+	0x6F,						/*             6F  006F    LATIN SMALL LETTER O                     */
+	0x70,						/*             70  0070    LATIN SMALL LETTER P                     */
+	0x71,						/*             71  0071    LATIN SMALL LETTER Q                     */
+	0x72,						/*             72  0072    LATIN SMALL LETTER R                     */
+	0x73,						/*             73  0073    LATIN SMALL LETTER S                     */
+	0x74,						/*             74  0074    LATIN SMALL LETTER T                     */
+	0x75,						/*             75  0075    LATIN SMALL LETTER U                     */
+	0x76,						/*             76  0076    LATIN SMALL LETTER V                     */
+	0x77,						/*             77  0077    LATIN SMALL LETTER W                     */
+	0x78,						/*             78  0078    LATIN SMALL LETTER X                     */
+	0x79,						/*             79  0079    LATIN SMALL LETTER Y                     */
+	0x7A,						/*             7A  007A    LATIN SMALL LETTER Z                     */
+	0x7B,						/*             7B  007B    OPENING CURLY BRACKET                    */
+	0x7C,						/*             7C  007C    VERTICAL BAR                             */
+	0x7D,						/*             7D  007D    CLOSING CURLY BRACKET                    */
+	0x7E,						/*             7E  007E    TILDE                                    */
+	0x20,						/* (REMAP)     7F  2302    HOUSE                                    */
+	0x82,						/*             80  00C7    LATIN CAPITAL LETTER C CEDILLA           */
+	0x9F,						/*             81  00FC    LATIN SMALL LETTER U DIAERESIS           */
+	0x8E,						/*             82  00E9    LATIN SMALL LETTER E ACUTE               */
+	0x89,						/*             83  00E2    LATIN SMALL LETTER A CIRCUMFLEX          */
+	0x8A,						/*             84  00E4    LATIN SMALL LETTER A DIAERESIS           */
+	0x88,						/*             85  00E0    LATIN SMALL LETTER A GRAVE               */
+	0x8C,						/*             86  00E5    LATIN SMALL LETTER A RING                */
+	0x8D,						/*             87  00E7    LATIN SMALL LETTER C CEDILLA             */
+	0x90,						/*             88  00EA    LATIN SMALL LETTER E CIRCUMFLEX          */
+	0x91,						/*             89  00EB    LATIN SMALL LETTER E DIAERESIS           */
+	0x8F,						/*             8A  00E8    LATIN SMALL LETTER E GRAVE               */
+	0x95,						/*             8B  00EF    LATIN SMALL LETTER I DIAERESIS           */
+	0x94,						/*             8C  00EE    LATIN SMALL LETTER I CIRCUMFLEX          */
+	0x93,						/*             8D  00EC    LATIN SMALL LETTER I GRAVE               */
+	0x80,						/*             8E  00C4    LATIN CAPITAL LETTER A DIAERESIS         */
+	0x81,						/*             8F  00C5    LATIN CAPITAL LETTER A RING              */
+	0x83,						/*             90  00C9    LATIN CAPITAL LETTER E ACUTE             */
+	0xBE,						/*             91  00E6    LATIN SMALL LETTER A E                   */
+	0xAE,						/*             92  00C6    LATIN CAPITAL LETTER A E                 */
+	0x99,						/*             93  00F4    LATIN SMALL LETTER O CIRCUMFLEX          */
+	0x9A,						/*             94  00F6    LATIN SMALL LETTER O DIAERESIS           */
+	0x98,						/*             95  00F2    LATIN SMALL LETTER O GRAVE               */
+	0x9E,						/*             96  00FB    LATIN SMALL LETTER U CIRCUMFLEX          */
+	0x9D,						/*             97  00F9    LATIN SMALL LETTER U GRAVE               */
+	0xD8,						/*             98  00FF    LATIN SMALL LETTER Y DIAERESIS           */
+	0x85,						/*             99  00D6    LATIN CAPITAL LETTER O DIAERESIS         */
+	0x86,						/*             9A  00DC    LATIN CAPITAL LETTER U DIAERESIS         */
+	0xA2,						/*             9B  00A2    CENT SIGN                                */
+	0xA3,						/*             9C  00A3    POUND SIGN                               */
+	0xB4,						/*             9D  00A5    YEN SIGN                                 */
+	0x20,						/* (REMAP)     9E  20A7    PESETA SIGN                              */
+	0xC4,						/*             9F  0192    LATIN SMALL LETTER SCRIPT F              */
+	0x87,						/*             A0  00E1    LATIN SMALL LETTER A ACUTE               */
+	0x92,						/*             A1  00ED    LATIN SMALL LETTER I ACUTE               */
+	0x97,						/*             A2  00F3    LATIN SMALL LETTER O ACUTE               */
+	0x9C,						/*             A3  00FA    LATIN SMALL LETTER U ACUTE               */
+	0x96,						/*             A4  00F1    LATIN SMALL LETTER N TILDE               */
+	0x84,						/*             A5  00D1    LATIN CAPITAL LETTER N TILDE             */
+	0xBB,						/*             A6  00AA    FEMININE ORDINAL INDICATOR               */
+	0xBC,						/*             A7  00BA    MASCULINE ORDINAL INDICATOR              */
+	0xC0,						/*             A8  00BF    INVERTED QUESTION MARK                   */
+	0x20,						/* (REMAP)     A9  2310    REVERSED NOT SIGN                        */
+	0xC2,						/*             AA  00AC    NOT SIGN                                 */
+	0x20,						/* (REMAP)     AB  00BD    FRACTION ONE HALF                        */
+	0x20,						/* (REMAP)     AC  00BC    FRACTION ONE QUARTER                     */
+	0xC1,						/*             AD  00A1    INVERTED EXCLAMATION MARK                */
+	0xC7,						/*             AE  00AB    LEFT POINTING GUILLEMET                  */
+	0xC8,						/*             AF  00BB    RIGHT POINTING GUILLEMET                 */
+	0x20,						/* (REMAP)     B0  2591    LIGHT SHADE                              */
+	0x20,						/* (REMAP)     B1  2592    MEDIUM SHADE                             */
+	0x20,						/* (REMAP)     B2  2593    DARK SHADE                               */
+	0x20,						/* (REMAP)     B3  2502    FORMS LIGHT VERTICAL                     */
+	0x20,						/* (REMAP)     B4  2524    FORMS LIGHT VERTICAL AND LEFT            */
+	0x20,						/* (REMAP)     B5  2561    FORMS VERTICAL SINGLE AND LEFT DOUBLE    */
+	0x20,						/* (REMAP)     B6  2562    FORMS VERTICAL DOUBLE AND LEFT SINGLE    */
+	0x20,						/* (REMAP)     B7  2556    FORMS DOWN DOUBLE AND LEFT SINGLE        */
+	0x20,						/* (REMAP)     B8  2555    FORMS DOWN SINGLE AND LEFT DOUBLE        */
+	0x20,						/* (REMAP)     B9  2563    FORMS DOUBLE VERTICAL AND LEFT           */
+	0x20,						/* (REMAP)     BA  2551    FORMS DOUBLE VERTICAL                    */
+	0x20,						/* (REMAP)     BB  2557    FORMS DOUBLE DOWN AND LEFT               */
+	0x20,						/* (REMAP)     BC  255D    FORMS DOUBLE UP AND LEFT                 */
+	0x20,						/* (REMAP)     BD  255C    FORMS UP DOUBLE AND LEFT SINGLE          */
+	0x20,						/* (REMAP)     BE  255B    FORMS UP SINGLE AND LEFT DOUBLE          */
+	0x20,						/* (REMAP)     BF  2510    FORMS LIGHT DOWN AND LEFT                */
+	0x20,						/* (REMAP)     C0  2514    FORMS LIGHT UP AND RIGHT                 */
+	0x20,						/* (REMAP)     C1  2534    FORMS LIGHT UP AND HORIZONTAL            */
+	0x20,						/* (REMAP)     C2  252C    FORMS LIGHT DOWN AND HORIZONTAL          */
+	0x20,						/* (REMAP)     C3  251C    FORMS LIGHT VERTICAL AND RIGHT           */
+	0x20,						/* (REMAP)     C4  2500    FORMS LIGHT HORIZONTAL                   */
+	0x20,						/* (REMAP)     C5  253C    FORMS LIGHT VERTICAL AND HORIZONTAL      */
+	0x20,						/* (REMAP)     C6  255E    FORMS VERTICAL SINGLE AND RIGHT DOUBLE   */
+	0x20,						/* (REMAP)     C7  255F    FORMS VERTICAL DOUBLE AND RIGHT SINGLE   */
+	0x20,						/* (REMAP)     C8  255A    FORMS DOUBLE UP AND RIGHT                */
+	0x20,						/* (REMAP)     C9  2554    FORMS DOUBLE DOWN AND RIGHT              */
+	0x20,						/* (REMAP)     CA  2569    FORMS DOUBLE UP AND HORIZONTAL           */
+	0x20,						/* (REMAP)     CB  2566    FORMS DOUBLE DOWN AND HORIZONTAL         */
+	0x20,						/* (REMAP)     CC  2560    FORMS DOUBLE VERTICAL AND RIGHT          */
+	0x20,						/* (REMAP)     CD  2550    FORMS DOUBLE HORIZONTAL                  */
+	0x20,						/* (REMAP)     CE  256C    FORMS DOUBLE VERTICAL AND HORIZONTAL     */
+	0x20,						/* (REMAP)     CF  2567    FORMS UP SINGLE AND HORIZONTAL DOUBLE    */
+	0x20,						/* (REMAP)     D0  2568    FORMS UP DOUBLE AND HORIZONTAL SINGLE    */
+	0x20,						/* (REMAP)     D1  2564    FORMS DOWN SINGLE AND HORIZONTAL DOUBLE  */
+	0x20,						/* (REMAP)     D2  2565    FORMS DOWN DOUBLE AND HORIZONTAL SINGLE  */
+	0x20,						/* (REMAP)     D3  2559    FORMS UP DOUBLE AND RIGHT SINGLE         */
+	0x20,						/* (REMAP)     D4  2558    FORMS UP SINGLE AND RIGHT DOUBLE         */
+	0x20,						/* (REMAP)     D5  2552    FORMS DOWN SINGLE AND RIGHT DOUBLE       */
+	0x20,						/* (REMAP)     D6  2553    FORMS DOWN DOUBLE AND RIGHT SINGLE       */
+	0x20,						/* (REMAP)     D7  256B    FORMS VERTICAL DOUBLE AND HORIZONTAL SIN */
+	0x20,						/* (REMAP)     D8  256A    FORMS VERTICAL SINGLE AND HORIZONTAL DOU */
+	0x20,						/* (REMAP)     D9  2518    FORMS LIGHT UP AND LEFT                  */
+	0x20,						/* (REMAP)     DA  250C    FORMS LIGHT DOWN AND RIGHT               */
+	0x20,						/* (REMAP)     DB  2588    FULL BLOCK                               */
+	0x20,						/* (REMAP)     DC  2584    LOWER HALF BLOCK                         */
+	0x20,						/* (REMAP)     DD  258C    LEFT HALF BLOCK                          */
+	0x20,						/* (REMAP)     DE  2590    RIGHT HALF BLOCK                         */
+	0x20,						/* (REMAP)     DF  2580    UPPER HALF BLOCK                         */
+	0x20,						/* (REMAP)     E0  03B1    GREEK SMALL LETTER ALPHA                 */
+	0xA7,						/*             E1  00DF    LATIN SMALL LETTER SHARP S               */
+	0x20,						/* (REMAP)     E2  0393    GREEK CAPITAL LETTER GAMMA               */
+	0xB9,						/*             E3  03C0    GREEK SMALL LETTER PI                    */
+	0x20,						/* (REMAP)     E4  03A3    GREEK CAPITAL LETTER SIGMA               */
+	0x20,						/* (REMAP)     E5  03C3    GREEK SMALL LETTER SIGMA                 */
+	0xB5,						/*             E6  00B5    MICRO SIGN                               */
+	0x20,						/* (REMAP)     E7  03C4    GREEK SMALL LETTER TAU                   */
+	0x20,						/* (REMAP)     E8  03A6    GREEK CAPITAL LETTER PHI                 */
+	0x20,						/* (REMAP)     E9  0398    GREEK CAPITAL LETTER THETA               */
+	0x20,						/* (REMAP)     EA  03A9    GREEK CAPITAL LETTER OMEGA               */
+	0x20,						/* (REMAP)     EB  03B4    GREEK SMALL LETTER DELTA                 */
+	0xB0,						/*             EC  221E    INFINITY                                 */
+	0x20,						/* (REMAP)     ED  03C6    GREEK SMALL LETTER PHI                   */
+	0x20,						/* (REMAP)     EE  03B5    GREEK SMALL LETTER EPSILON               */
+	0x20,						/* (REMAP)     EF  2229    INTERSECTION                             */
+	0x20,						/* (REMAP)     F0  2261    IDENTICAL TO                             */
+	0xB1,						/*             F1  00B1    PLUS-OR-MINUS SIGN                       */
+	0xB3,						/*             F2  2265    GREATER THAN OR EQUAL TO                 */
+	0xB2,						/*             F3  2264    LESS THAN OR EQUAL TO                    */
+	0x20,						/* (REMAP)     F4  2320    TOP HALF INTEGRAL                        */
+	0x20,						/* (REMAP)     F5  2321    BOTTOM HALF INTEGRAL                     */
+	0xD6,						/*             F6  00F7    DIVISION SIGN                            */
+	0xC5,						/*             F7  2248    ALMOST EQUAL TO                          */
+	0xA1,						/*             F8  00B0    DEGREE SIGN                              */
+	0x20,						/* (REMAP)     F9  2219    BULLET OPERATOR                          */
+	0xE1,						/*             FA  00B7    MIDDLE DOT                               */
+	0xC3,						/*             FB  221A    SQUARE ROOT                              */
+	0x20,						/* (REMAP)     FC  207F    SUPERSCRIPT LATIN SMALL LETTER N         */
+	0x20,						/* (REMAP)     FD  00B2    SUPERSCRIPT DIGIT TWO                    */
+	0x20,						/* (REMAP)     FE  25A0    BLACK SQUARE                             */
+	0xCA						/*             FF  00A0    NON-BREAKING SPACE                       */
+};
diff --git a/src/intl/mac_865.h b/src/intl/mac_865.h
new file mode 100644
index 0000000000..d29bd6f5b1
--- /dev/null
+++ b/src/intl/mac_865.h
@@ -0,0 +1,278 @@
+/* CP 865 to Macintosh ROM character set map
+                                                   UNICODE
+ New         Note     Old UNICODE                   NAME
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+====      ========== ==== ======= ======================================== */
+CONST UCHAR cp865_to_mac_rom[256] = {
+	0x00,						/*             00  0000    NULL                                     */
+	0x20,						/* (REMAP)     01  263A    WHITE SMILING FACE                       */
+	0x20,						/* (REMAP)     02  263B    BLACK SMILING FACE                       */
+	0x20,						/* (REMAP)     03  2665    BLACK HEART SUIT                         */
+	0x20,						/* (REMAP)     04  2666    BLACK DIAMOND SUIT                       */
+	0x20,						/* (REMAP)     05  2663    BLACK CLUB SUIT                          */
+	0x20,						/* (REMAP)     06  2660    BLACK SPADE SUIT                         */
+	0xA5,						/*             07  2022    BULLET                                   */
+	0x20,						/* (REMAP)     08  25D8    INVERSE BULLET                           */
+	0x20,						/* (REMAP)     09  25CB    WHITE CIRCLE                             */
+	0x20,						/* (REMAP)     0A  25D9    INVERSE WHITE CIRCLE                     */
+	0x20,						/* (REMAP)     0B  2642    MALE SIGN                                */
+	0x20,						/* (REMAP)     0C  2640    FEMALE SIGN                              */
+	0x20,						/* (REMAP)     0D  266A    EIGHTH NOTE                              */
+	0x20,						/* (REMAP)     0E  266B    BARRED EIGHTH NOTES                      */
+	0x20,						/* (REMAP)     0F  263C    WHITE SUN WITH RAYS                      */
+	0x20,						/* (REMAP)     10  25BA    BLACK RIGHT POINTING POINTER             */
+	0x20,						/* (REMAP)     11  25C4    BLACK LEFT POINTING POINTER              */
+	0x20,						/* (REMAP)     12  2195    UP DOWN ARROW                            */
+	0x20,						/* (REMAP)     13  203C    DOUBLE EXCLAMATION MARK                  */
+	0xA6,						/*             14  00B6    PARAGRAPH SIGN                           */
+	0xA4,						/*             15  00A7    SECTION SIGN                             */
+	0x20,						/* (REMAP)     16  25AC    BLACK RECTANGLE                          */
+	0x20,						/* (REMAP)     17  21A8    UP DOWN ARROW WITH BASE                  */
+	0x20,						/* (REMAP)     18  2191    UP ARROW                                 */
+	0x20,						/* (REMAP)     19  2193    DOWN ARROW                               */
+	0x20,						/* (REMAP)     1A  2192    RIGHT ARROW                              */
+	0x20,						/* (REMAP)     1B  2190    LEFT ARROW                               */
+	0x20,						/* (REMAP)     1C  221F    RIGHT ANGLE                              */
+	0x20,						/* (REMAP)     1D  2194    LEFT RIGHT ARROW                         */
+	0x20,						/* (REMAP)     1E  25B2    BLACK UP POINTING TRIANGLE               */
+	0x20,						/* (REMAP)     1F  25BC    BLACK DOWN POINTING TRIANGLE             */
+	0x20,						/*             20  0020    SPACE                                    */
+	0x21,						/*             21  0021    EXCLAMATION MARK                         */
+	0x22,						/*             22  0022    QUOTATION MARK                           */
+	0x23,						/*             23  0023    NUMBER SIGN                              */
+	0x24,						/*             24  0024    DOLLAR SIGN                              */
+	0x25,						/*             25  0025    PERCENT SIGN                             */
+	0x26,						/*             26  0026    AMPERSAND                                */
+	0x27,						/*             27  0027    APOSTROPHE-QUOTE                         */
+	0x28,						/*             28  0028    OPENING PARENTHESIS                      */
+	0x29,						/*             29  0029    CLOSING PARENTHESIS                      */
+	0x2A,						/*             2A  002A    ASTERISK                                 */
+	0x2B,						/*             2B  002B    PLUS SIGN                                */
+	0x2C,						/*             2C  002C    COMMA                                    */
+	0x2D,						/*             2D  002D    HYPHEN-MINUS                             */
+	0x2E,						/*             2E  002E    PERIOD                                   */
+	0x2F,						/*             2F  002F    SLASH                                    */
+	0x30,						/*             30  0030    DIGIT ZERO                               */
+	0x31,						/*             31  0031    DIGIT ONE                                */
+	0x32,						/*             32  0032    DIGIT TWO                                */
+	0x33,						/*             33  0033    DIGIT THREE                              */
+	0x34,						/*             34  0034    DIGIT FOUR                               */
+	0x35,						/*             35  0035    DIGIT FIVE                               */
+	0x36,						/*             36  0036    DIGIT SIX                                */
+	0x37,						/*             37  0037    DIGIT SEVEN                              */
+	0x38,						/*             38  0038    DIGIT EIGHT                              */
+	0x39,						/*             39  0039    DIGIT NINE                               */
+	0x3A,						/*             3A  003A    COLON                                    */
+	0x3B,						/*             3B  003B    SEMICOLON                                */
+	0x3C,						/*             3C  003C    LESS-THAN SIGN                           */
+	0x3D,						/*             3D  003D    EQUALS SIGN                              */
+	0x3E,						/*             3E  003E    GREATER-THAN SIGN                        */
+	0x3F,						/*             3F  003F    QUESTION MARK                            */
+	0x40,						/*             40  0040    COMMERCIAL AT                            */
+	0x41,						/*             41  0041    LATIN CAPITAL LETTER A                   */
+	0x42,						/*             42  0042    LATIN CAPITAL LETTER B                   */
+	0x43,						/*             43  0043    LATIN CAPITAL LETTER C                   */
+	0x44,						/*             44  0044    LATIN CAPITAL LETTER D                   */
+	0x45,						/*             45  0045    LATIN CAPITAL LETTER E                   */
+	0x46,						/*             46  0046    LATIN CAPITAL LETTER F                   */
+	0x47,						/*             47  0047    LATIN CAPITAL LETTER G                   */
+	0x48,						/*             48  0048    LATIN CAPITAL LETTER H                   */
+	0x49,						/*             49  0049    LATIN CAPITAL LETTER I                   */
+	0x4A,						/*             4A  004A    LATIN CAPITAL LETTER J                   */
+	0x4B,						/*             4B  004B    LATIN CAPITAL LETTER K                   */
+	0x4C,						/*             4C  004C    LATIN CAPITAL LETTER L                   */
+	0x4D,						/*             4D  004D    LATIN CAPITAL LETTER M                   */
+	0x4E,						/*             4E  004E    LATIN CAPITAL LETTER N                   */
+	0x4F,						/*             4F  004F    LATIN CAPITAL LETTER O                   */
+	0x50,						/*             50  0050    LATIN CAPITAL LETTER P                   */
+	0x51,						/*             51  0051    LATIN CAPITAL LETTER Q                   */
+	0x52,						/*             52  0052    LATIN CAPITAL LETTER R                   */
+	0x53,						/*             53  0053    LATIN CAPITAL LETTER S                   */
+	0x54,						/*             54  0054    LATIN CAPITAL LETTER T                   */
+	0x55,						/*             55  0055    LATIN CAPITAL LETTER U                   */
+	0x56,						/*             56  0056    LATIN CAPITAL LETTER V                   */
+	0x57,						/*             57  0057    LATIN CAPITAL LETTER W                   */
+	0x58,						/*             58  0058    LATIN CAPITAL LETTER X                   */
+	0x59,						/*             59  0059    LATIN CAPITAL LETTER Y                   */
+	0x5A,						/*             5A  005A    LATIN CAPITAL LETTER Z                   */
+	0x5B,						/*             5B  005B    OPENING SQUARE BRACKET                   */
+	0x5C,						/*             5C  005C    BACKSLASH                                */
+	0x5D,						/*             5D  005D    CLOSING SQUARE BRACKET                   */
+	0x5E,						/*             5E  005E    SPACING CIRCUMFLEX                       */
+	0x5F,						/*             5F  005F    SPACING UNDERSCORE                       */
+	0x60,						/*             60  0060    SPACING GRAVE                            */
+	0x61,						/*             61  0061    LATIN SMALL LETTER A                     */
+	0x62,						/*             62  0062    LATIN SMALL LETTER B                     */
+	0x63,						/*             63  0063    LATIN SMALL LETTER C                     */
+	0x64,						/*             64  0064    LATIN SMALL LETTER D                     */
+	0x65,						/*             65  0065    LATIN SMALL LETTER E                     */
+	0x66,						/*             66  0066    LATIN SMALL LETTER F                     */
+	0x67,						/*             67  0067    LATIN SMALL LETTER G                     */
+	0x68,						/*             68  0068    LATIN SMALL LETTER H                     */
+	0x69,						/*             69  0069    LATIN SMALL LETTER I                     */
+	0x6A,						/*             6A  006A    LATIN SMALL LETTER J                     */
+	0x6B,						/*             6B  006B    LATIN SMALL LETTER K                     */
+	0x6C,						/*             6C  006C    LATIN SMALL LETTER L                     */
+	0x6D,						/*             6D  006D    LATIN SMALL LETTER M                     */
+	0x6E,						/*             6E  006E    LATIN SMALL LETTER N                     */
+	0x6F,						/*             6F  006F    LATIN SMALL LETTER O                     */
+	0x70,						/*             70  0070    LATIN SMALL LETTER P                     */
+	0x71,						/*             71  0071    LATIN SMALL LETTER Q                     */
+	0x72,						/*             72  0072    LATIN SMALL LETTER R                     */
+	0x73,						/*             73  0073    LATIN SMALL LETTER S                     */
+	0x74,						/*             74  0074    LATIN SMALL LETTER T                     */
+	0x75,						/*             75  0075    LATIN SMALL LETTER U                     */
+	0x76,						/*             76  0076    LATIN SMALL LETTER V                     */
+	0x77,						/*             77  0077    LATIN SMALL LETTER W                     */
+	0x78,						/*             78  0078    LATIN SMALL LETTER X                     */
+	0x79,						/*             79  0079    LATIN SMALL LETTER Y                     */
+	0x7A,						/*             7A  007A    LATIN SMALL LETTER Z                     */
+	0x7B,						/*             7B  007B    OPENING CURLY BRACKET                    */
+	0x7C,						/*             7C  007C    VERTICAL BAR                             */
+	0x7D,						/*             7D  007D    CLOSING CURLY BRACKET                    */
+	0x7E,						/*             7E  007E    TILDE                                    */
+	0x20,						/* (REMAP)     7F  2302    HOUSE                                    */
+	0x82,						/*             80  00C7    LATIN CAPITAL LETTER C CEDILLA           */
+	0x9F,						/*             81  00FC    LATIN SMALL LETTER U DIAERESIS           */
+	0x8E,						/*             82  00E9    LATIN SMALL LETTER E ACUTE               */
+	0x89,						/*             83  00E2    LATIN SMALL LETTER A CIRCUMFLEX          */
+	0x8A,						/*             84  00E4    LATIN SMALL LETTER A DIAERESIS           */
+	0x88,						/*             85  00E0    LATIN SMALL LETTER A GRAVE               */
+	0x8C,						/*             86  00E5    LATIN SMALL LETTER A RING                */
+	0x8D,						/*             87  00E7    LATIN SMALL LETTER C CEDILLA             */
+	0x90,						/*             88  00EA    LATIN SMALL LETTER E CIRCUMFLEX          */
+	0x91,						/*             89  00EB    LATIN SMALL LETTER E DIAERESIS           */
+	0x8F,						/*             8A  00E8    LATIN SMALL LETTER E GRAVE               */
+	0x95,						/*             8B  00EF    LATIN SMALL LETTER I DIAERESIS           */
+	0x94,						/*             8C  00EE    LATIN SMALL LETTER I CIRCUMFLEX          */
+	0x93,						/*             8D  00EC    LATIN SMALL LETTER I GRAVE               */
+	0x80,						/*             8E  00C4    LATIN CAPITAL LETTER A DIAERESIS         */
+	0x81,						/*             8F  00C5    LATIN CAPITAL LETTER A RING              */
+	0x83,						/*             90  00C9    LATIN CAPITAL LETTER E ACUTE             */
+	0xBE,						/*             91  00E6    LATIN SMALL LETTER A E                   */
+	0xAE,						/*             92  00C6    LATIN CAPITAL LETTER A E                 */
+	0x99,						/*             93  00F4    LATIN SMALL LETTER O CIRCUMFLEX          */
+	0x9A,						/*             94  00F6    LATIN SMALL LETTER O DIAERESIS           */
+	0x98,						/*             95  00F2    LATIN SMALL LETTER O GRAVE               */
+	0x9E,						/*             96  00FB    LATIN SMALL LETTER U CIRCUMFLEX          */
+	0x9D,						/*             97  00F9    LATIN SMALL LETTER U GRAVE               */
+	0xD8,						/*             98  00FF    LATIN SMALL LETTER Y DIAERESIS           */
+	0x85,						/*             99  00D6    LATIN CAPITAL LETTER O DIAERESIS         */
+	0x86,						/*             9A  00DC    LATIN CAPITAL LETTER U DIAERESIS         */
+	0xBF,						/*             9B  00F8    LATIN SMALL LETTER O SLASH               */
+	0xA3,						/*             9C  00A3    POUND SIGN                               */
+	0xAF,						/*             9D  00D8    LATIN CAPITAL LETTER O SLASH             */
+	0x20,						/* (REMAP)     9E  20A7    PESETA SIGN                              */
+	0xC4,						/*             9F  0192    LATIN SMALL LETTER SCRIPT F              */
+	0x87,						/*             A0  00E1    LATIN SMALL LETTER A ACUTE               */
+	0x92,						/*             A1  00ED    LATIN SMALL LETTER I ACUTE               */
+	0x97,						/*             A2  00F3    LATIN SMALL LETTER O ACUTE               */
+	0x9C,						/*             A3  00FA    LATIN SMALL LETTER U ACUTE               */
+	0x96,						/*             A4  00F1    LATIN SMALL LETTER N TILDE               */
+	0x84,						/*             A5  00D1    LATIN CAPITAL LETTER N TILDE             */
+	0xBB,						/*             A6  00AA    FEMININE ORDINAL INDICATOR               */
+	0xBC,						/*             A7  00BA    MASCULINE ORDINAL INDICATOR              */
+	0xC0,						/*             A8  00BF    INVERTED QUESTION MARK                   */
+	0x20,						/* (REMAP)     A9  2310    REVERSED NOT SIGN                        */
+	0xC2,						/*             AA  00AC    NOT SIGN                                 */
+	0x20,						/* (REMAP)     AB  00BD    FRACTION ONE HALF                        */
+	0x20,						/* (REMAP)     AC  00BC    FRACTION ONE QUARTER                     */
+	0xC1,						/*             AD  00A1    INVERTED EXCLAMATION MARK                */
+	0xC7,						/*             AE  00AB    LEFT POINTING GUILLEMET                  */
+	0xDB,						/*             AF  00A4    CURRENCY SIGN                            */
+	0x20,						/* (REMAP)     B0  2591    LIGHT SHADE                              */
+	0x20,						/* (REMAP)     B1  2592    MEDIUM SHADE                             */
+	0x20,						/* (REMAP)     B2  2593    DARK SHADE                               */
+	0x20,						/* (REMAP)     B3  2502    FORMS LIGHT VERTICAL                     */
+	0x20,						/* (REMAP)     B4  2524    FORMS LIGHT VERTICAL AND LEFT            */
+	0x20,						/* (REMAP)     B5  2561    FORMS VERTICAL SINGLE AND LEFT DOUBLE    */
+	0x20,						/* (REMAP)     B6  2562    FORMS VERTICAL DOUBLE AND LEFT SINGLE    */
+	0x20,						/* (REMAP)     B7  2556    FORMS DOWN DOUBLE AND LEFT SINGLE        */
+	0x20,						/* (REMAP)     B8  2555    FORMS DOWN SINGLE AND LEFT DOUBLE        */
+	0x20,						/* (REMAP)     B9  2563    FORMS DOUBLE VERTICAL AND LEFT           */
+	0x20,						/* (REMAP)     BA  2551    FORMS DOUBLE VERTICAL                    */
+	0x20,						/* (REMAP)     BB  2557    FORMS DOUBLE DOWN AND LEFT               */
+	0x20,						/* (REMAP)     BC  255D    FORMS DOUBLE UP AND LEFT                 */
+	0x20,						/* (REMAP)     BD  255C    FORMS UP DOUBLE AND LEFT SINGLE          */
+	0x20,						/* (REMAP)     BE  255B    FORMS UP SINGLE AND LEFT DOUBLE          */
+	0x20,						/* (REMAP)     BF  2510    FORMS LIGHT DOWN AND LEFT                */
+	0x20,						/* (REMAP)     C0  2514    FORMS LIGHT UP AND RIGHT                 */
+	0x20,						/* (REMAP)     C1  2534    FORMS LIGHT UP AND HORIZONTAL            */
+	0x20,						/* (REMAP)     C2  252C    FORMS LIGHT DOWN AND HORIZONTAL          */
+	0x20,						/* (REMAP)     C3  251C    FORMS LIGHT VERTICAL AND RIGHT           */
+	0x20,						/* (REMAP)     C4  2500    FORMS LIGHT HORIZONTAL                   */
+	0x20,						/* (REMAP)     C5  253C    FORMS LIGHT VERTICAL AND HORIZONTAL      */
+	0x20,						/* (REMAP)     C6  255E    FORMS VERTICAL SINGLE AND RIGHT DOUBLE   */
+	0x20,						/* (REMAP)     C7  255F    FORMS VERTICAL DOUBLE AND RIGHT SINGLE   */
+	0x20,						/* (REMAP)     C8  255A    FORMS DOUBLE UP AND RIGHT                */
+	0x20,						/* (REMAP)     C9  2554    FORMS DOUBLE DOWN AND RIGHT              */
+	0x20,						/* (REMAP)     CA  2569    FORMS DOUBLE UP AND HORIZONTAL           */
+	0x20,						/* (REMAP)     CB  2566    FORMS DOUBLE DOWN AND HORIZONTAL         */
+	0x20,						/* (REMAP)     CC  2560    FORMS DOUBLE VERTICAL AND RIGHT          */
+	0x20,						/* (REMAP)     CD  2550    FORMS DOUBLE HORIZONTAL                  */
+	0x20,						/* (REMAP)     CE  256C    FORMS DOUBLE VERTICAL AND HORIZONTAL     */
+	0x20,						/* (REMAP)     CF  2567    FORMS UP SINGLE AND HORIZONTAL DOUBLE    */
+	0x20,						/* (REMAP)     D0  2568    FORMS UP DOUBLE AND HORIZONTAL SINGLE    */
+	0x20,						/* (REMAP)     D1  2564    FORMS DOWN SINGLE AND HORIZONTAL DOUBLE  */
+	0x20,						/* (REMAP)     D2  2565    FORMS DOWN DOUBLE AND HORIZONTAL SINGLE  */
+	0x20,						/* (REMAP)     D3  2559    FORMS UP DOUBLE AND RIGHT SINGLE         */
+	0x20,						/* (REMAP)     D4  2558    FORMS UP SINGLE AND RIGHT DOUBLE         */
+	0x20,						/* (REMAP)     D5  2552    FORMS DOWN SINGLE AND RIGHT DOUBLE       */
+	0x20,						/* (REMAP)     D6  2553    FORMS DOWN DOUBLE AND RIGHT SINGLE       */
+	0x20,						/* (REMAP)     D7  256B    FORMS VERTICAL DOUBLE AND HORIZONTAL SIN */
+	0x20,						/* (REMAP)     D8  256A    FORMS VERTICAL SINGLE AND HORIZONTAL DOU */
+	0x20,						/* (REMAP)     D9  2518    FORMS LIGHT UP AND LEFT                  */
+	0x20,						/* (REMAP)     DA  250C    FORMS LIGHT DOWN AND RIGHT               */
+	0x20,						/* (REMAP)     DB  2588    FULL BLOCK                               */
+	0x20,						/* (REMAP)     DC  2584    LOWER HALF BLOCK                         */
+	0x20,						/* (REMAP)     DD  258C    LEFT HALF BLOCK                          */
+	0x20,						/* (REMAP)     DE  2590    RIGHT HALF BLOCK                         */
+	0x20,						/* (REMAP)     DF  2580    UPPER HALF BLOCK                         */
+	0x20,						/* (REMAP)     E0  03B1    GREEK SMALL LETTER ALPHA                 */
+	0xA7,						/*             E1  00DF    LATIN SMALL LETTER SHARP S               */
+	0x20,						/* (REMAP)     E2  0393    GREEK CAPITAL LETTER GAMMA               */
+	0xB9,						/*             E3  03C0    GREEK SMALL LETTER PI                    */
+	0x20,						/* (REMAP)     E4  03A3    GREEK CAPITAL LETTER SIGMA               */
+	0x20,						/* (REMAP)     E5  03C3    GREEK SMALL LETTER SIGMA                 */
+	0xB5,						/*             E6  00B5    MICRO SIGN                               */
+	0x20,						/* (REMAP)     E7  03C4    GREEK SMALL LETTER TAU                   */
+	0x20,						/* (REMAP)     E8  03A6    GREEK CAPITAL LETTER PHI                 */
+	0x20,						/* (REMAP)     E9  0398    GREEK CAPITAL LETTER THETA               */
+	0x20,						/* (REMAP)     EA  03A9    GREEK CAPITAL LETTER OMEGA               */
+	0x20,						/* (REMAP)     EB  03B4    GREEK SMALL LETTER DELTA                 */
+	0xB0,						/*             EC  221E    INFINITY                                 */
+	0x20,						/* (REMAP)     ED  03C6    GREEK SMALL LETTER PHI                   */
+	0x20,						/* (REMAP)     EE  03B5    GREEK SMALL LETTER EPSILON               */
+	0x20,						/* (REMAP)     EF  2229    INTERSECTION                             */
+	0x20,						/* (REMAP)     F0  2261    IDENTICAL TO                             */
+	0xB1,						/*             F1  00B1    PLUS-OR-MINUS SIGN                       */
+	0xB3,						/*             F2  2265    GREATER THAN OR EQUAL TO                 */
+	0xB2,						/*             F3  2264    LESS THAN OR EQUAL TO                    */
+	0x20,						/* (REMAP)     F4  2320    TOP HALF INTEGRAL                        */
+	0x20,						/* (REMAP)     F5  2321    BOTTOM HALF INTEGRAL                     */
+	0xD6,						/*             F6  00F7    DIVISION SIGN                            */
+	0xC5,						/*             F7  2248    ALMOST EQUAL TO                          */
+	0xA1,						/*             F8  00B0    DEGREE SIGN                              */
+	0x20,						/* (REMAP)     F9  2219    BULLET OPERATOR                          */
+	0xE1,						/*             FA  00B7    MIDDLE DOT                               */
+	0xC3,						/*             FB  221A    SQUARE ROOT                              */
+	0x20,						/* (REMAP)     FC  207F    SUPERSCRIPT LATIN SMALL LETTER N         */
+	0x20,						/* (REMAP)     FD  00B2    SUPERSCRIPT DIGIT TWO                    */
+	0x20,						/* (REMAP)     FE  25A0    BLACK SQUARE                             */
+	0xCA						/*             FF  00A0    NON-BREAKING SPACE                       */
+};
diff --git a/src/intl/mac_lat1.h b/src/intl/mac_lat1.h
new file mode 100644
index 0000000000..5ecbb0da60
--- /dev/null
+++ b/src/intl/mac_lat1.h
@@ -0,0 +1,278 @@
+/* ISO Latin1 to Mac ROM code page mapping
+                                                   UNICODE
+ New         Note     Old UNICODE                   NAME
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+====      ========== ==== ======= ======================================== */
+CONST UCHAR latin1_to_mac_rom[256] = {
+	0x00,						/*             00  0000    NULL                                     */
+	0x01,						/*             01  0001    START OF HEADING                         */
+	0x02,						/*             02  0002    START OF TEXT                            */
+	0x03,						/*             03  0003    END OF TEXT                              */
+	0x04,						/*             04  0004    END OF TRANSMISSION                      */
+	0x05,						/*             05  0005    ENQUIRY                                  */
+	0x06,						/*             06  0006    ACKNOWLEDGE                              */
+	0x07,						/*             07  0007    BELL                                     */
+	0x08,						/*             08  0008    BACKSPACE                                */
+	0x09,						/*             09  0009    HORIZONTAL TABULATION                    */
+	0x0A,						/*             0A  000A    LINE FEED                                */
+	0x0B,						/*             0B  000B    VERTICAL TABULATION                      */
+	0x0C,						/*             0C  000C    FORM FEED                                */
+	0x0D,						/*             0D  000D    CARRIAGE RETURN                          */
+	0x0E,						/*             0E  000E    SHIFT OUT                                */
+	0x0F,						/*             0F  000F    SHIFT IN                                 */
+	0x10,						/*             10  0010    DATA LINK ESCAPE                         */
+	0x11,						/*             11  0011    DEVICE CONTROL ONE                       */
+	0x12,						/*             12  0012    DEVICE CONTROL TWO                       */
+	0x13,						/*             13  0013    DEVICE CONTROL THREE                     */
+	0x14,						/*             14  0014    DEVICE CONTROL FOUR                      */
+	0x15,						/*             15  0015    NEGATIVE ACKNOWLEDGE                     */
+	0x16,						/*             16  0016    SYNCHRONOUS IDLE                         */
+	0x17,						/*             17  0017    END OF TRANSMISSION BLOCK                */
+	0x18,						/*             18  0018    CANCEL                                   */
+	0x19,						/*             19  0019    END OF MEDIUM                            */
+	0x1A,						/*             1A  001A    SUBSTITUTE                               */
+	0x1B,						/*             1B  001B    ESCAPE                                   */
+	0x1C,						/*             1C  001C    FILE SEPARATOR                           */
+	0x1D,						/*             1D  001D    GROUP SEPARATOR                          */
+	0x1E,						/*             1E  001E    RECORD SEPARATOR                         */
+	0x1F,						/*             1F  001F    UNIT SEPARATOR                           */
+	0x20,						/*             20  0020    SPACE                                    */
+	0x21,						/*             21  0021    EXCLAMATION MARK                         */
+	0x22,						/*             22  0022    QUOTATION MARK                           */
+	0x23,						/*             23  0023    NUMBER SIGN                              */
+	0x24,						/*             24  0024    DOLLAR SIGN                              */
+	0x25,						/*             25  0025    PERCENT SIGN                             */
+	0x26,						/*             26  0026    AMPERSAND                                */
+	0x27,						/*             27  0027    APOSTROPHE-QUOTE                         */
+	0x28,						/*             28  0028    OPENING PARENTHESIS                      */
+	0x29,						/*             29  0029    CLOSING PARENTHESIS                      */
+	0x2A,						/*             2A  002A    ASTERISK                                 */
+	0x2B,						/*             2B  002B    PLUS SIGN                                */
+	0x2C,						/*             2C  002C    COMMA                                    */
+	0x2D,						/*             2D  002D    HYPHEN-MINUS                             */
+	0x2E,						/*             2E  002E    PERIOD                                   */
+	0x2F,						/*             2F  002F    SLASH                                    */
+	0x30,						/*             30  0030    DIGIT ZERO                               */
+	0x31,						/*             31  0031    DIGIT ONE                                */
+	0x32,						/*             32  0032    DIGIT TWO                                */
+	0x33,						/*             33  0033    DIGIT THREE                              */
+	0x34,						/*             34  0034    DIGIT FOUR                               */
+	0x35,						/*             35  0035    DIGIT FIVE                               */
+	0x36,						/*             36  0036    DIGIT SIX                                */
+	0x37,						/*             37  0037    DIGIT SEVEN                              */
+	0x38,						/*             38  0038    DIGIT EIGHT                              */
+	0x39,						/*             39  0039    DIGIT NINE                               */
+	0x3A,						/*             3A  003A    COLON                                    */
+	0x3B,						/*             3B  003B    SEMICOLON                                */
+	0x3C,						/*             3C  003C    LESS-THAN SIGN                           */
+	0x3D,						/*             3D  003D    EQUALS SIGN                              */
+	0x3E,						/*             3E  003E    GREATER-THAN SIGN                        */
+	0x3F,						/*             3F  003F    QUESTION MARK                            */
+	0x40,						/*             40  0040    COMMERCIAL AT                            */
+	0x41,						/*             41  0041    LATIN CAPITAL LETTER A                   */
+	0x42,						/*             42  0042    LATIN CAPITAL LETTER B                   */
+	0x43,						/*             43  0043    LATIN CAPITAL LETTER C                   */
+	0x44,						/*             44  0044    LATIN CAPITAL LETTER D                   */
+	0x45,						/*             45  0045    LATIN CAPITAL LETTER E                   */
+	0x46,						/*             46  0046    LATIN CAPITAL LETTER F                   */
+	0x47,						/*             47  0047    LATIN CAPITAL LETTER G                   */
+	0x48,						/*             48  0048    LATIN CAPITAL LETTER H                   */
+	0x49,						/*             49  0049    LATIN CAPITAL LETTER I                   */
+	0x4A,						/*             4A  004A    LATIN CAPITAL LETTER J                   */
+	0x4B,						/*             4B  004B    LATIN CAPITAL LETTER K                   */
+	0x4C,						/*             4C  004C    LATIN CAPITAL LETTER L                   */
+	0x4D,						/*             4D  004D    LATIN CAPITAL LETTER M                   */
+	0x4E,						/*             4E  004E    LATIN CAPITAL LETTER N                   */
+	0x4F,						/*             4F  004F    LATIN CAPITAL LETTER O                   */
+	0x50,						/*             50  0050    LATIN CAPITAL LETTER P                   */
+	0x51,						/*             51  0051    LATIN CAPITAL LETTER Q                   */
+	0x52,						/*             52  0052    LATIN CAPITAL LETTER R                   */
+	0x53,						/*             53  0053    LATIN CAPITAL LETTER S                   */
+	0x54,						/*             54  0054    LATIN CAPITAL LETTER T                   */
+	0x55,						/*             55  0055    LATIN CAPITAL LETTER U                   */
+	0x56,						/*             56  0056    LATIN CAPITAL LETTER V                   */
+	0x57,						/*             57  0057    LATIN CAPITAL LETTER W                   */
+	0x58,						/*             58  0058    LATIN CAPITAL LETTER X                   */
+	0x59,						/*             59  0059    LATIN CAPITAL LETTER Y                   */
+	0x5A,						/*             5A  005A    LATIN CAPITAL LETTER Z                   */
+	0x5B,						/*             5B  005B    OPENING SQUARE BRACKET                   */
+	0x5C,						/*             5C  005C    BACKSLASH                                */
+	0x5D,						/*             5D  005D    CLOSING SQUARE BRACKET                   */
+	0x5E,						/*             5E  005E    SPACING CIRCUMFLEX                       */
+	0x5F,						/*             5F  005F    SPACING UNDERSCORE                       */
+	0x60,						/*             60  0060    SPACING GRAVE                            */
+	0x61,						/*             61  0061    LATIN SMALL LETTER A                     */
+	0x62,						/*             62  0062    LATIN SMALL LETTER B                     */
+	0x63,						/*             63  0063    LATIN SMALL LETTER C                     */
+	0x64,						/*             64  0064    LATIN SMALL LETTER D                     */
+	0x65,						/*             65  0065    LATIN SMALL LETTER E                     */
+	0x66,						/*             66  0066    LATIN SMALL LETTER F                     */
+	0x67,						/*             67  0067    LATIN SMALL LETTER G                     */
+	0x68,						/*             68  0068    LATIN SMALL LETTER H                     */
+	0x69,						/*             69  0069    LATIN SMALL LETTER I                     */
+	0x6A,						/*             6A  006A    LATIN SMALL LETTER J                     */
+	0x6B,						/*             6B  006B    LATIN SMALL LETTER K                     */
+	0x6C,						/*             6C  006C    LATIN SMALL LETTER L                     */
+	0x6D,						/*             6D  006D    LATIN SMALL LETTER M                     */
+	0x6E,						/*             6E  006E    LATIN SMALL LETTER N                     */
+	0x6F,						/*             6F  006F    LATIN SMALL LETTER O                     */
+	0x70,						/*             70  0070    LATIN SMALL LETTER P                     */
+	0x71,						/*             71  0071    LATIN SMALL LETTER Q                     */
+	0x72,						/*             72  0072    LATIN SMALL LETTER R                     */
+	0x73,						/*             73  0073    LATIN SMALL LETTER S                     */
+	0x74,						/*             74  0074    LATIN SMALL LETTER T                     */
+	0x75,						/*             75  0075    LATIN SMALL LETTER U                     */
+	0x76,						/*             76  0076    LATIN SMALL LETTER V                     */
+	0x77,						/*             77  0077    LATIN SMALL LETTER W                     */
+	0x78,						/*             78  0078    LATIN SMALL LETTER X                     */
+	0x79,						/*             79  0079    LATIN SMALL LETTER Y                     */
+	0x7A,						/*             7A  007A    LATIN SMALL LETTER Z                     */
+	0x7B,						/*             7B  007B    OPENING CURLY BRACKET                    */
+	0x7C,						/*             7C  007C    VERTICAL BAR                             */
+	0x7D,						/*             7D  007D    CLOSING CURLY BRACKET                    */
+	0x7E,						/*             7E  007E    TILDE                                    */
+	0x7F,						/*             7F  007F    DELETE                                   */
+	0x20,						/* (REMAP)     80  0080    RESERVED - CTRL 80                       */
+	0x20,						/* (REMAP)     81  0081    RESERVED - CTRL 81                       */
+	0x20,						/* (REMAP)     82  0082    RESERVED - CTRL 82                       */
+	0x20,						/* (REMAP)     83  0083    RESERVED - CTRL 83                       */
+	0x20,						/* (REMAP)     84  0084    RESERVED - CTRL 84                       */
+	0x20,						/* (REMAP)     85  0085    RESERVED - CTRL 85                       */
+	0x20,						/* (REMAP)     86  0086    RESERVED - CTRL 86                       */
+	0x20,						/* (REMAP)     87  0087    RESERVED - CTRL 87                       */
+	0x20,						/* (REMAP)     88  0088    RESERVED - CTRL 88                       */
+	0x20,						/* (REMAP)     89  0089    RESERVED - CTRL 89                       */
+	0x20,						/* (REMAP)     8A  008A    RESERVED - CTRL 8A                       */
+	0x20,						/* (REMAP)     8B  008B    RESERVED - CTRL 8B                       */
+	0x20,						/* (REMAP)     8C  008C    RESERVED - CTRL 8C                       */
+	0x20,						/* (REMAP)     8D  008D    RESERVED - CTRL 8D                       */
+	0x20,						/* (REMAP)     8E  008E    RESERVED - CTRL 8E                       */
+	0x20,						/* (REMAP)     8F  008F    RESERVED - CTRL 8F                       */
+	0x20,						/* (REMAP)     90  0090    RESERVED - CTRL 90                       */
+	0x20,						/* (REMAP)     91  0091    RESERVED - CTRL 91                       */
+	0x20,						/* (REMAP)     92  0092    RESERVED - CTRL 92                       */
+	0x20,						/* (REMAP)     93  0093    RESERVED - CTRL 93                       */
+	0x20,						/* (REMAP)     94  0094    RESERVED - CTRL 94                       */
+	0x20,						/* (REMAP)     95  0095    RESERVED - CTRL 95                       */
+	0x20,						/* (REMAP)     96  0096    RESERVED - CTRL 96                       */
+	0x20,						/* (REMAP)     97  0097    RESERVED - CTRL 97                       */
+	0x20,						/* (REMAP)     98  0098    RESERVED - CTRL 98                       */
+	0x20,						/* (REMAP)     99  0099    RESERVED - CTRL 99                       */
+	0x20,						/* (REMAP)     9A  009A    RESERVED - CTRL 9A                       */
+	0x20,						/* (REMAP)     9B  009B    RESERVED - CTRL 9B                       */
+	0x20,						/* (REMAP)     9C  009C    RESERVED - CTRL 9C                       */
+	0x20,						/* (REMAP)     9D  009D    RESERVED - CTRL 9D                       */
+	0x20,						/* (REMAP)     9E  009E    RESERVED - CTRL 9E                       */
+	0x20,						/* (REMAP)     9F  009F    RESERVED - CTRL 9F                       */
+	0xCA,						/*             A0  00A0    NON-BREAKING SPACE                       */
+	0xC1,						/*             A1  00A1    INVERTED EXCLAMATION MARK                */
+	0xA2,						/*             A2  00A2    CENT SIGN                                */
+	0xA3,						/*             A3  00A3    POUND SIGN                               */
+	0xDB,						/*             A4  00A4    CURRENCY SIGN                            */
+	0xB4,						/*             A5  00A5    YEN SIGN                                 */
+	0x20,						/* (REMAP)     A6  00A6    BROKEN VERTICAL BAR                      */
+	0xA4,						/*             A7  00A7    SECTION SIGN                             */
+	0xAC,						/*             A8  00A8    SPACING DIAERESIS                        */
+	0xA9,						/*             A9  00A9    COPYRIGHT SIGN                           */
+	0xBB,						/*             AA  00AA    FEMININE ORDINAL INDICATOR               */
+	0xC7,						/*             AB  00AB    LEFT POINTING GUILLEMET                  */
+	0xC2,						/*             AC  00AC    NOT SIGN                                 */
+	0x20,						/* (REMAP)     AD  00AD    SOFT HYPHEN                              */
+	0xA8,						/*             AE  00AE    REGISTERED TRADE MARK SIGN               */
+	0xF8,						/*             AF  00AF    SPACING MACRON                           */
+	0xA1,						/*             B0  00B0    DEGREE SIGN                              */
+	0xB1,						/*             B1  00B1    PLUS-OR-MINUS SIGN                       */
+	0x20,						/* (REMAP)     B2  00B2    SUPERSCRIPT DIGIT TWO                    */
+	0x20,						/* (REMAP)     B3  00B3    SUPERSCRIPT DIGIT THREE                  */
+	0xAB,						/*             B4  00B4    SPACING ACUTE                            */
+	0xB5,						/*             B5  00B5    MICRO SIGN                               */
+	0xA6,						/*             B6  00B6    PARAGRAPH SIGN                           */
+	0xE1,						/*             B7  00B7    MIDDLE DOT                               */
+	0xFC,						/*             B8  00B8    SPACING CEDILLA                          */
+	0x20,						/* (REMAP)     B9  00B9    SUPERSCRIPT DIGIT ONE                    */
+	0xBC,						/*             BA  00BA    MASCULINE ORDINAL INDICATOR              */
+	0xC8,						/*             BB  00BB    RIGHT POINTING GUILLEMET                 */
+	0x20,						/* (REMAP)     BC  00BC    FRACTION ONE QUARTER                     */
+	0x20,						/* (REMAP)     BD  00BD    FRACTION ONE HALF                        */
+	0x20,						/* (REMAP)     BE  00BE    FRACTION THREE QUARTERS                  */
+	0xC0,						/*             BF  00BF    INVERTED QUESTION MARK                   */
+	0xCB,						/*             C0  00C0    LATIN CAPITAL LETTER A GRAVE             */
+	0xE7,						/*             C1  00C1    LATIN CAPITAL LETTER A ACUTE             */
+	0xE5,						/*             C2  00C2    LATIN CAPITAL LETTER A CIRCUMFLEX        */
+	0xCC,						/*             C3  00C3    LATIN CAPITAL LETTER A TILDE             */
+	0x80,						/*             C4  00C4    LATIN CAPITAL LETTER A DIAERESIS         */
+	0x81,						/*             C5  00C5    LATIN CAPITAL LETTER A RING              */
+	0xAE,						/*             C6  00C6    LATIN CAPITAL LETTER A E                 */
+	0x82,						/*             C7  00C7    LATIN CAPITAL LETTER C CEDILLA           */
+	0xE9,						/*             C8  00C8    LATIN CAPITAL LETTER E GRAVE             */
+	0x83,						/*             C9  00C9    LATIN CAPITAL LETTER E ACUTE             */
+	0xE6,						/*             CA  00CA    LATIN CAPITAL LETTER E CIRCUMFLEX        */
+	0xE8,						/*             CB  00CB    LATIN CAPITAL LETTER E DIAERESIS         */
+	0xED,						/*             CC  00CC    LATIN CAPITAL LETTER I GRAVE             */
+	0xEA,						/*             CD  00CD    LATIN CAPITAL LETTER I ACUTE             */
+	0xEB,						/*             CE  00CE    LATIN CAPITAL LETTER I CIRCUMFLEX        */
+	0xEC,						/*             CF  00CF    LATIN CAPITAL LETTER I DIAERESIS         */
+	0x20,						/* (REMAP)     D0  00D0    LATIN CAPITAL LETTER ETH                 */
+	0x84,						/*             D1  00D1    LATIN CAPITAL LETTER N TILDE             */
+	0xF1,						/*             D2  00D2    LATIN CAPITAL LETTER O GRAVE             */
+	0xEE,						/*             D3  00D3    LATIN CAPITAL LETTER O ACUTE             */
+	0xEF,						/*             D4  00D4    LATIN CAPITAL LETTER O CIRCUMFLEX        */
+	0xCD,						/*             D5  00D5    LATIN CAPITAL LETTER O TILDE             */
+	0x85,						/*             D6  00D6    LATIN CAPITAL LETTER O DIAERESIS         */
+	0x20,						/* (REMAP)     D7  00D7    MULTIPLICATION SIGN                      */
+	0xAF,						/*             D8  00D8    LATIN CAPITAL LETTER O SLASH             */
+	0xF4,						/*             D9  00D9    LATIN CAPITAL LETTER U GRAVE             */
+	0xF2,						/*             DA  00DA    LATIN CAPITAL LETTER U ACUTE             */
+	0xF3,						/*             DB  00DB    LATIN CAPITAL LETTER U CIRCUMFLEX        */
+	0x86,						/*             DC  00DC    LATIN CAPITAL LETTER U DIAERESIS         */
+	0x20,						/* (REMAP)     DD  00DD    LATIN CAPITAL LETTER Y ACUTE             */
+	0x20,						/* (REMAP)     DE  00DE    LATIN CAPITAL LETTER THORN               */
+	0xA7,						/*             DF  00DF    LATIN SMALL LETTER SHARP S               */
+	0x88,						/*             E0  00E0    LATIN SMALL LETTER A GRAVE               */
+	0x87,						/*             E1  00E1    LATIN SMALL LETTER A ACUTE               */
+	0x89,						/*             E2  00E2    LATIN SMALL LETTER A CIRCUMFLEX          */
+	0x8B,						/*             E3  00E3    LATIN SMALL LETTER A TILDE               */
+	0x8A,						/*             E4  00E4    LATIN SMALL LETTER A DIAERESIS           */
+	0x8C,						/*             E5  00E5    LATIN SMALL LETTER A RING                */
+	0xBE,						/*             E6  00E6    LATIN SMALL LETTER A E                   */
+	0x8D,						/*             E7  00E7    LATIN SMALL LETTER C CEDILLA             */
+	0x8F,						/*             E8  00E8    LATIN SMALL LETTER E GRAVE               */
+	0x8E,						/*             E9  00E9    LATIN SMALL LETTER E ACUTE               */
+	0x90,						/*             EA  00EA    LATIN SMALL LETTER E CIRCUMFLEX          */
+	0x91,						/*             EB  00EB    LATIN SMALL LETTER E DIAERESIS           */
+	0x93,						/*             EC  00EC    LATIN SMALL LETTER I GRAVE               */
+	0x92,						/*             ED  00ED    LATIN SMALL LETTER I ACUTE               */
+	0x94,						/*             EE  00EE    LATIN SMALL LETTER I CIRCUMFLEX          */
+	0x95,						/*             EF  00EF    LATIN SMALL LETTER I DIAERESIS           */
+	0x20,						/* (REMAP)     F0  00F0    LATIN SMALL LETTER ETH                   */
+	0x96,						/*             F1  00F1    LATIN SMALL LETTER N TILDE               */
+	0x98,						/*             F2  00F2    LATIN SMALL LETTER O GRAVE               */
+	0x97,						/*             F3  00F3    LATIN SMALL LETTER O ACUTE               */
+	0x99,						/*             F4  00F4    LATIN SMALL LETTER O CIRCUMFLEX          */
+	0x9B,						/*             F5  00F5    LATIN SMALL LETTER O TILDE               */
+	0x9A,						/*             F6  00F6    LATIN SMALL LETTER O DIAERESIS           */
+	0xD6,						/*             F7  00F7    DIVISION SIGN                            */
+	0xBF,						/*             F8  00F8    LATIN SMALL LETTER O SLASH               */
+	0x9D,						/*             F9  00F9    LATIN SMALL LETTER U GRAVE               */
+	0x9C,						/*             FA  00FA    LATIN SMALL LETTER U ACUTE               */
+	0x9E,						/*             FB  00FB    LATIN SMALL LETTER U CIRCUMFLEX          */
+	0x9F,						/*             FC  00FC    LATIN SMALL LETTER U DIAERESIS           */
+	0x20,						/* (REMAP)     FD  00FD    LATIN SMALL LETTER Y ACUTE               */
+	0x20,						/* (REMAP)     FE  00FE    LATIN SMALL LETTER THORN                 */
+	0xD8						/*             FF  00FF    LATIN SMALL LETTER Y DIAERESIS           */
+};
diff --git a/src/intl/make.maps b/src/intl/make.maps
new file mode 100644
index 0000000000..cdd4c5e803
--- /dev/null
+++ b/src/intl/make.maps
@@ -0,0 +1,35 @@
+#!/bin/csh
+#  The contents of this file are subject to the Interbase Public
+#  License Version 1.0 (the "License"); you may not use this file
+#  except in compliance with the License. You may obtain a copy
+#  of the License at http://www.Inprise.com/IPL.html
+#
+#  Software distributed under the License is distributed on an
+#  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+#  or implied. See the License for the specific language governing
+#  rights and limitations under the License.
+#
+#  The Original Code was created by Inprise Corporation
+#  and its predecessors. Portions created by Inprise Corporation are
+#  Copyright (C) Inprise Corporation.
+#
+#  All Rights Reserved.
+#  Contributor(s): ______________________________________.
+
+set echo
+rm -f tmp.sed
+echo "s:to_unicode_map:sjis_to_unicode_map:g"      > tmp.sed
+echo "s:from_unicode_map:sjis_from_unicode_map:g" >> tmp.sed
+
+cc -g mapgen4.c -o mapgen4
+rm new/cs_*.h
+mapgen4 -condense -euc  asia/GB/GB2312.TXT   > new/cs_gb2312.h	
+mapgen4 -condense -sjis asia/JIS/JIS0208.TXT > new/cs_jis_0208_1990.h	
+mapgen4 -condense       asia/OTHER/BIG5.TXT  > new/cs_big5.h	
+mapgen4 -condense       asia/KSC/KSC5601.TXT > new/cs_ksc5601.h	
+mapgen4       SHIFTJIS.TXT         | sed -f tmp.sed > new/cs_sjis.h
+rm -f tmp.sed
+
+CC -g mapcompare.cpp -o mapcompare
+rm mapcompare.out
+mapcompare > mapcompare.out
diff --git a/src/intl/makefile.mak b/src/intl/makefile.mak
new file mode 100644
index 0000000000..c35ee17087
--- /dev/null
+++ b/src/intl/makefile.mak
@@ -0,0 +1,110 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+#--------------------------- PC INTL MAKEFILE --------------------------- 
+ROOT=..
+.path.c=$(ROOT)\intl
+
+#-g0 -4 -p- -N -a -tWD -ml -dc -Ff=512
+LCFLAGS=-Ff=255
+
+!include $(ROOT)\std.mk
+
+#--------------------------- SOURCE COMPONENTS ----------------------------- 
+WINSRCS = dllshell.c
+
+S1 =  ld.c ld2.c cv_narro.c cs_narro.c lc_narro.c lc_ascii.c lc_latin.c 
+S2 =  lc_dos.c cs_unico.c lc_unico.c cs_utffs.c cv_jis.c lc_jis.c cs_jis.c
+S3 =  intlwep.c cs_jis_2.c 
+SRCS = $(S1) $(S2) $(S3)
+
+# NOTE:  c0dx must be the first obj in the list!
+OBJS = $(TOOLPATH)\lib\c0d$(MODEL).obj $(SRCS:.c=.obj) $(WINSRCS:.c=.obj)
+
+# import libraries
+INTLLIBS = $(ROOT)\jrd\$(.path.obj)\iutls.lib
+
+LIBS = mathw$(MODEL) import cw$(MODEL)
+
+XFILES = intl.def
+#---------------------------- TARGET LIST --------------------------------
+
+ALLBIN = intl.dll
+ALLLIBS = intl.lib
+
+all: makefile.tmp $(ALLBIN) $(ALLLIBS)
+allbin: makefile.tmp $(ALLBIN)
+alllibs: makefile.tmp $(ALLLIBS)
+
+#------------------------------ RULES -------------------------------------
+
+
+intl.dll: $(OBJS) $(INTLLIBS) $(ROOT)\jrd\version.rc intl.rsp intl.def
+	$(TLINK) $(LFLAGS) @$*.rsp, @&&|
+	$<
+	$*.map
+	$(LIBS) $(INTLLIBS)
+	$&.def
+|
+	$(RC)  -i $(TOOLPATH)\include $(ROOT)\jrd\version.rc $<
+
+intl.rsp: $(OBJS)
+	copy &&|
+	$**
+| $<
+
+intl.lib: intl.def
+	$(IMPLIB) -o $< $**
+
+
+# ---- Rules for source files which require special handling ----
+dllshell.obj: $(ROOT)\jrd\dllshell.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+
+
+#---------------------------- UTILITIES ---------------------------------
+# Copy targets to a known installation directory
+install:  $(ALLBIN) $(ALLLIBS)
+	for %i in ($(ALLBIN)) do copy $(.path.dll)\%i $(INSTALLBIN)
+	for %i in ($(ALLLIBS)) do copy $(.path.dll)\%i $(INSTALLLIB)
+
+# Refresh all the source & header files from the DEVSRC directory
+srcs::
+   copy $(DEVSRC)\intl\*.h
+   for %i in ($(S1)) do copy $(DEVSRC)\intl\%i
+   for %i in ($(S2)) do copy $(DEVSRC)\intl\%i
+   for %i in ($(S3)) do copy $(DEVSRC)\intl\%i
+   for %i in ($(XFILES)) do copy $(DEVSRC)\intl\%i
+
diff --git a/src/intl/mapcompare.cpp b/src/intl/mapcompare.cpp
new file mode 100644
index 0000000000..8f24b29afd
--- /dev/null
+++ b/src/intl/mapcompare.cpp
@@ -0,0 +1,1042 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include <stdio.h>
+#include <stdlib.h>
+
+#define CANT_MAP_CHARACTER	0
+#define UNICODE_REPLACEMENT_CHARACTER	0xFFFD
+
+class codepage_map {
+  public:
+	virtual unsigned short to_unicode(unsigned short c) {
+		return 0;
+	} virtual unsigned short from_unicode(unsigned short c) {
+		return 0;
+	} char *name;
+};
+
+class narrow_codepage_map:public codepage_map { public:
+	unsigned short *to_unicode_map;
+	unsigned char *from_unicode_mapping_array;
+	unsigned short *from_unicode_map;
+	unsigned long sizeof_to_unicode_map;
+	unsigned long sizeof_from_unicode_mapping_array;
+	unsigned long sizeof_from_unicode_map;
+
+	  narrow_codepage_map(void) {
+		to_unicode_map = NULL;
+		from_unicode_map = NULL;
+		from_unicode_mapping_array = NULL;
+		sizeof_to_unicode_map = 0;
+		sizeof_from_unicode_map = 0;
+		sizeof_from_unicode_mapping_array = 0;
+		name = NULL;
+	};
+
+	narrow_codepage_map(unsigned short *_to,
+						unsigned char *_from_array,
+						unsigned short *_from_map,
+						unsigned long sizeof_to,
+						unsigned long sizeof_from_array,
+						unsigned long sizeof_from_map, char *_name) {
+		to_unicode_map = _to;
+		from_unicode_mapping_array = _from_array;
+		from_unicode_map = _from_map;
+		sizeof_to_unicode_map = sizeof_to;
+		sizeof_from_unicode_mapping_array = sizeof_from_array;
+		sizeof_from_unicode_map = sizeof_from_map;
+		name = _name;
+		test_codepage();
+	};
+
+	unsigned short to_unicode(unsigned short c) {
+		if (c >= 256)
+			fprintf(stderr, "%s: to_unicode(%d) not supported\n", name, c);
+		return to_unicode_map[c];
+	};
+
+	unsigned short from_unicode(unsigned short c) {
+		return from_unicode_mapping_array[from_unicode_map[c / 256] +
+										  (c % 256)];
+	};
+
+	void test_codepage(void) {
+		if (sizeof_to_unicode_map != 256 * sizeof(to_unicode_map[0]))
+			printf("%s: to_unicode_map too small! %d entries!\n", name,
+				   sizeof_to_unicode_map / sizeof(to_unicode_map[0]));
+
+		if (sizeof_from_unicode_map != 256 * sizeof(from_unicode_map[0]))
+			printf("%s: from_unicode_map too small! %d entries!\n", name,
+				   sizeof_from_unicode_map / sizeof(from_unicode_map[0]));
+
+		for (int i = 0; i <= 255; i++) {
+			unsigned short uch;
+			unsigned char ch2;
+			  uch = to_unicode((unsigned char) i);
+			if (uch == CANT_MAP_CHARACTER)
+				  continue;
+			  ch2 = from_unicode(uch);
+			if (ch2 != i) {
+				printf
+					("%s: Roundtrip mapping error: Character %02x -> Unicode %04x -> Char %02x\n",
+					 name, i, uch, ch2);
+
+				/* Find the Character in the from_unicode_mapping_array */
+				for (int j = 0; j < sizeof_from_unicode_mapping_array; j++)
+					if (from_unicode_mapping_array[j] == i) {
+						/* Mapping table is wrong - recommend a fix for it */
+						printf
+							("%s: Recommend from_unicode_map[0x%02x] be set to %d\n",
+							 name, uch / 256, j - (uch % 256));
+						break;
+				} if (j == sizeof_from_unicode_mapping_array) {
+					/* Oops - found a character that does exists in the character set
+					   but not in unicode - an obvious error! */
+
+					printf
+						("%s: Roundtrip error: No Unicode maps to codepage character 0x%X\n",
+						 name, i);
+
+				}
+			}
+		}
+
+		for (i = 0; i <= 255; i++) {
+			if (from_unicode_map[i] + 0xFF >=
+				sizeof_from_unicode_mapping_array /
+				sizeof(from_unicode_mapping_array[0])) {
+				printf
+					("%s: from_unicode_map bounds error at position %02x00\n",
+					 name, i);
+				continue;
+			}
+
+			for (int j = 0; j <= 255; j++) {
+				unsigned short uch, uch2;
+				unsigned char ch2;
+
+				uch = i * 256 + j;
+				ch2 = from_unicode(uch);
+				if (ch2 == CANT_MAP_CHARACTER)
+					continue;
+				uch2 = to_unicode(ch2);
+				if (uch != uch2) {
+					printf
+						("%s: roundtrip mapping error: Unicode %04x -> ch %02x -> Unicode %04x\n",
+						 name, uch, ch2, uch2);
+
+					for (int k = 0; k <= 255; k++)
+						if (to_unicode_map[k] == uch) {
+							/* Can map this character from charset to unicode */
+							/* Assume fix was printed out above */
+						}
+					if (k > 255) {
+						/* This unicode doesn't exist in charset */
+						/* Mapping table is wrong - recommend a fix for it */
+						printf
+							("%s: recommend from_unicode_map[0x%02x] be set to %d\n",
+							 name, uch / 256, 0);
+					}
+				}
+			}
+		}
+
+		printf("Test of %s completed\n", name);
+	};
+};
+
+class wide_codepage_map:public codepage_map {
+
+  public:
+	unsigned short *to_unicode_mapping_array;
+	unsigned short *to_unicode_map;
+	unsigned short *from_unicode_mapping_array;
+	unsigned short *from_unicode_map;
+	unsigned long sizeof_to_unicode_mapping_array;
+	unsigned long sizeof_to_unicode_map;
+	unsigned long sizeof_from_unicode_mapping_array;
+	unsigned long sizeof_from_unicode_map;
+
+	  wide_codepage_map(void) {
+		to_unicode_map = NULL;
+		to_unicode_mapping_array = NULL;
+		from_unicode_map = NULL;
+		from_unicode_mapping_array = NULL;
+		sizeof_to_unicode_map = 0;
+		sizeof_to_unicode_mapping_array = 0;
+		sizeof_from_unicode_map = 0;
+		sizeof_from_unicode_mapping_array = 0;
+		name = NULL;
+	};
+
+	wide_codepage_map(unsigned short *_to_array,
+					  unsigned short *_to,
+					  unsigned short *_from_array,
+					  unsigned short *_from_map,
+					  unsigned long sizeof_to_array,
+					  unsigned long sizeof_to,
+					  unsigned long sizeof_from_array,
+					  unsigned long sizeof_from_map, char *_name) {
+		to_unicode_mapping_array = _to_array;
+		to_unicode_map = _to;
+		from_unicode_mapping_array = _from_array;
+		from_unicode_map = _from_map;
+		sizeof_to_unicode_mapping_array = sizeof_to_array;
+		sizeof_to_unicode_map = sizeof_to;
+		sizeof_from_unicode_mapping_array = sizeof_from_array;
+		sizeof_from_unicode_map = sizeof_from_map;
+		name = _name;
+		test_codepage();
+	};
+
+	unsigned short to_unicode(unsigned short c) {
+		return to_unicode_mapping_array[to_unicode_map[c / 256] + (c % 256)];
+	};
+
+	unsigned short from_unicode(unsigned short c) {
+		return from_unicode_mapping_array[from_unicode_map[c / 256] +
+										  (c % 256)];
+	};
+
+	void test_codepage(void) {
+		if (sizeof_to_unicode_map != 256 * sizeof(to_unicode_map[0]))
+			printf("%s: to_unicode_map too small! %d entries!\n",
+				   name, sizeof_to_unicode_map / sizeof(to_unicode_map[0]));
+
+		if (sizeof_from_unicode_map != 256 * sizeof(from_unicode_map[0]))
+			printf("%s: from_unicode_map is too small! %d entries!\n",
+				   name,
+				   sizeof_from_unicode_map / sizeof(from_unicode_map[0]));
+
+
+/* Map from Each possible character sequence to Unicode */
+
+		for (int i = 0; i <= 255; i++) {
+			if (to_unicode_map[i] + 0xFF >=
+				sizeof_to_unicode_mapping_array /
+				sizeof(to_unicode_mapping_array[0])) {
+				printf
+					("%s: to_unicode_map array bounds error at position %02x00\n",
+					 name, i);
+				continue;
+			};
+
+			for (int j = 0; j <= 255; j++) {
+				unsigned short uch;
+				unsigned short ch2;
+				unsigned short wide_ch;
+				wide_ch = 256 * i + j;
+				uch = to_unicode(wide_ch);
+				if (uch == CANT_MAP_CHARACTER)
+					continue;
+				if (uch == UNICODE_REPLACEMENT_CHARACTER)
+					continue;
+				ch2 = from_unicode(uch);
+				if (ch2 != wide_ch) {
+					printf
+						("%s: roundtrip mapping error: Character %04x -> Unicode %04x -> Char %04x\n",
+						 name, wide_ch, uch, ch2);
+
+					/* Find the Character in the from_unicode_mapping_array */
+					for (int k = 0;
+						 k <
+						 sizeof_from_unicode_mapping_array /
+						 sizeof(from_unicode_mapping_array[0]); k++)
+						if (from_unicode_mapping_array[k] == wide_ch) {
+							/* Mapping table is wrong - recommend a fix for it */
+							printf
+								("%s: Recommend from_unicode_map[0x%02x] be set to %d\n",
+								 name, uch / 256, k - (uch % 256));
+							break;
+						}
+
+					if (k ==
+						sizeof_from_unicode_mapping_array /
+						sizeof(from_unicode_mapping_array[0])) {
+						/* Oops - found a character that does exists in the character set
+						   but not in unicode - an obvious error! */
+
+						printf
+							("%s: Roundtrip error: No Unicode maps to codepage character 0x%X\n",
+							 name, wide_ch);
+
+					}
+				}
+			}
+		}
+
+		for (i = 0; i <= 255; i++) {
+			if (from_unicode_map[i] + 0xFF >=
+				sizeof_from_unicode_mapping_array /
+				sizeof(from_unicode_mapping_array[0])) {
+				printf
+					("%s: From_unicode_map array bounds error at position %02x00\n",
+					 name, i);
+				continue;
+			}
+
+			for (int j = 0; j <= 255; j++) {
+				unsigned short uch, uch2;
+				unsigned short ch2;
+
+				uch = i * 256 + j;
+				ch2 = from_unicode(uch);
+				if (ch2 == CANT_MAP_CHARACTER)
+					continue;
+				uch2 = to_unicode(ch2);
+				if (uch != uch2) {
+					printf
+						("%s: roundtrip mapping error: Unicode %04x -> ch %02x -> Unicode %04x\n",
+						 name, uch, ch2, uch2);
+
+					for (int k = 0;
+						 k <
+						 sizeof_to_unicode_mapping_array /
+						 sizeof(to_unicode_mapping_array[0]); k++)
+						if (to_unicode_map[k] == uch) {
+							/* Can map this character from charset to unicode */
+							/* Assume fix was printed out above */
+						}
+					if (k <
+						sizeof_to_unicode_mapping_array /
+						sizeof(to_unicode_mapping_array[0])) {
+						/* This unicode doesn't exist in charset */
+						/* Mapping table is wrong - recommend a fix for it */
+						printf
+							("%s: Recommend from_unicode_map[0x%02x] be set to %d\n",
+							 name, uch / 256, 0);
+					}
+				}
+			}
+		}
+
+		printf("Test of %s completed\n", name);
+	};
+};
+
+class pair_codepage_map {
+  private:
+	int need_name;
+	char *subheading;
+
+	void print_name(char *msg) {
+		if (need_name == 0) {
+			printf("Comparision of %s and %s\n", old_map->name,
+				   new_map->name);
+			this->need_name++;
+		};
+		if (subheading != msg) {
+			printf("%s\n", msg);
+			this->subheading = msg;
+		};
+	};
+
+  public:
+	codepage_map * old_map;
+	codepage_map *new_map;
+
+	pair_codepage_map(codepage_map * _old, codepage_map * _new) {
+		need_name = 0;
+		subheading = NULL;
+		old_map = _old;
+		new_map = _new;
+	};
+
+	pair_codepage_map(narrow_codepage_map * _old, narrow_codepage_map * _new) {
+		need_name = 0;
+		subheading = NULL;
+		old_map = (codepage_map *) _old;
+		new_map = (codepage_map *) _new;
+	};
+
+	void compare_to_unicode(void) {
+		for (int i = 0; i < 256; i++)
+			for (int j = 0; j < 256; j++) {
+				unsigned short cp = 256 * i + j;
+				if (old_map->to_unicode(cp) != new_map->to_unicode(cp)) {
+					print_name("Codepage to Unicode Test");
+					printf("%04x\tOLD: %04x\tNEW: %04x\n",
+						   cp, old_map->to_unicode(cp),
+						   new_map->to_unicode(cp));
+				};
+			};
+	};
+
+	void compare_from_unicode(void) {
+		for (int i = 0; i < 256; i++)
+			for (int j = 0; j < 256; j++) {
+				unsigned short unicode = 256 * i + j;
+				if (old_map->from_unicode(unicode) !=
+					new_map->from_unicode(unicode)) {
+					print_name("Unicode to codepage Test");
+					printf("%04x\tOLD: %04x\tNEW: %04x\n", unicode,
+						   old_map->from_unicode(unicode),
+						   new_map->from_unicode(unicode));
+				};
+			};
+	};
+
+	void compare(void) {
+		compare_to_unicode();
+		compare_from_unicode();
+	};
+
+};
+
+/*
+typedef unsigned short	USHORT;
+typedef unsigned char	UCHAR;
+
+*/
+#define UCHAR	unsigned char
+#define USHORT	unsigned short
+#define FAR_VARIABLE
+#define CONST
+#define _JRD_COMMON_H_
+
+
+#ifdef XXX
+
+pair_codepage_map *get_w1250(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_w1250.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_w1250.h");
+	}
+
+	{
+#include "new/cs_w1250.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"new/cs_w1250.h");
+	}
+	return new pair_codepage_map((codepage_map *) old_map,
+								 (codepage_map *) new_map);
+};
+
+pair_codepage_map *get_w1251(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_w1251.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_w1251.h");
+	}
+
+	{
+#include "new/cs_w1251.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"new/cs_w1251.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_w1252(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_w1252.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_w1252.h");
+	}
+
+	{
+#include "new/cs_w1252.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"new/cs_w1252.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_w1253(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_w1253.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_w1253.h");
+	}
+
+	{
+#include "new/cs_w1253.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"new/cs_w1253.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_w1254(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_w1254.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_w1254.h");
+	}
+
+	{
+#include "new/cs_w1254.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"new/cs_w1254.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_437(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_437.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_437.h");
+	}
+
+	{
+#include "new/cs_437.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map), "new/cs_437.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_850(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_850.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_850.h");
+	}
+
+	{
+#include "new/cs_850.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map), "new/cs_850.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_852(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_852.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_852.h");
+	}
+
+	{
+#include "new/cs_852.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map), "new/cs_852.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_857(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_857.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_857.h");
+	}
+
+	{
+#include "new/cs_857.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map), "new/cs_857.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_860(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_860.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_860.h");
+	}
+
+	{
+#include "new/cs_860.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map), "new/cs_860.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_861(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_861.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_861.h");
+	}
+
+	{
+#include "new/cs_861.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map), "new/cs_861.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_863(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_863.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_863.h");
+	}
+
+	{
+#include "new/cs_863.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map), "new/cs_863.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_865(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_865.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_865.h");
+	}
+
+	{
+#include "new/cs_865.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map), "new/cs_865.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_cyrl(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_cyrl.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_cyrl.h");
+	}
+
+	{
+#include "new/cs_cyrl.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"new/cs_cyrl.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+pair_codepage_map *get_next(void)
+{
+	narrow_codepage_map *old_map, *new_map;
+	{
+#include "previous/cs_next.h"
+		old_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"previous/cs_next.h");
+	}
+
+	{
+#include "new/cs_next.h"
+		new_map =
+			new narrow_codepage_map(to_unicode_map,
+									from_unicode_mapping_array,
+									from_unicode_map, sizeof(to_unicode_map),
+									sizeof(from_unicode_mapping_array),
+									sizeof(from_unicode_map),
+									"new/cs_next.h");
+	}
+	return new pair_codepage_map(old_map, new_map);
+};
+
+#endif /* XXX */
+
+#ifdef XXX
+pair_codepage_map *get_gb2312(void)
+{
+	wide_codepage_map *old_map, *new_map;
+	{
+#include "../intl/cs_gb2312.h"
+		old_map = new wide_codepage_map(to_unicode_mapping_array,
+										to_unicode_map,
+										from_unicode_mapping_array,
+										from_unicode_map,
+										sizeof(to_unicode_mapping_array),
+										sizeof(to_unicode_map),
+										sizeof(from_unicode_mapping_array),
+										sizeof(from_unicode_map),
+										"previous/cs_gb2312.h");
+	}
+
+	{
+#include "new/cs_gb2312.h"
+		new_map = new wide_codepage_map(to_unicode_mapping_array,
+										to_unicode_map,
+										from_unicode_mapping_array,
+										from_unicode_map,
+										sizeof(to_unicode_mapping_array),
+										sizeof(to_unicode_map),
+										sizeof(from_unicode_mapping_array),
+										sizeof(from_unicode_map),
+										"new/cs_gb2312.h");
+	}
+
+	return new pair_codepage_map((codepage_map *) old_map,
+								 (codepage_map *) new_map);
+};
+
+pair_codepage_map *get_jis(void)
+{
+	wide_codepage_map *old_map, *new_map;
+	{
+#include "../intl/cs_jis_0208_1990.h"
+		old_map = new wide_codepage_map(to_unicode_mapping_array,
+										to_unicode_map,
+										from_unicode_mapping_array,
+										from_unicode_map,
+										sizeof(to_unicode_mapping_array),
+										sizeof(to_unicode_map),
+										sizeof(from_unicode_mapping_array),
+										sizeof(from_unicode_map),
+										"previous/cs_jis_0208_1990.h");
+	}
+
+	{
+#include "new/cs_jis_0208_1990.h"
+		new_map = new wide_codepage_map(to_unicode_mapping_array,
+										to_unicode_map,
+										from_unicode_mapping_array,
+										from_unicode_map,
+										sizeof(to_unicode_mapping_array),
+										sizeof(to_unicode_map),
+										sizeof(from_unicode_mapping_array),
+										sizeof(from_unicode_map),
+										"new/cs_jis_0208_1990.h");
+	}
+
+	return new pair_codepage_map((codepage_map *) old_map,
+								 (codepage_map *) new_map);
+};
+
+
+pair_codepage_map *get_sjis(void)
+{
+	wide_codepage_map *old_map, *new_map;
+	{
+#include "new/cs_sjis.h"
+		old_map = new wide_codepage_map(sjis_to_unicode_mapping_array,
+										sjis_to_unicode_map,
+										sjis_from_unicode_mapping_array,
+										sjis_from_unicode_map,
+										sizeof(sjis_to_unicode_mapping_array),
+										sizeof(sjis_to_unicode_map),
+										sizeof
+										(sjis_from_unicode_mapping_array),
+										sizeof(sjis_from_unicode_map),
+										"previous/cs_sjis.h");
+	}
+
+	{
+#include "new/cs_sjis.h"
+		new_map = new wide_codepage_map(sjis_to_unicode_mapping_array,
+										sjis_to_unicode_map,
+										sjis_from_unicode_mapping_array,
+										sjis_from_unicode_map,
+										sizeof(sjis_to_unicode_mapping_array),
+										sizeof(sjis_to_unicode_map),
+										sizeof
+										(sjis_from_unicode_mapping_array),
+										sizeof(sjis_from_unicode_map),
+										"new/cs_sjis.h");
+	}
+
+	return new pair_codepage_map((codepage_map *) old_map,
+								 (codepage_map *) new_map);
+};
+
+
+pair_codepage_map *get_ksc5601(void)
+{
+	wide_codepage_map *old_map, *new_map;
+	{
+#include "../intl/cs_ksc5601.h"
+		old_map = new wide_codepage_map(to_unicode_mapping_array,
+										to_unicode_map,
+										from_unicode_mapping_array,
+										from_unicode_map,
+										sizeof(to_unicode_mapping_array),
+										sizeof(to_unicode_map),
+										sizeof(from_unicode_mapping_array),
+										sizeof(from_unicode_map),
+										"previous/cs_ksc5601.h");
+	}
+
+	{
+#include "new/cs_ksc5601.h"
+		new_map = new wide_codepage_map(to_unicode_mapping_array,
+										to_unicode_map,
+										from_unicode_mapping_array,
+										from_unicode_map,
+										sizeof(to_unicode_mapping_array),
+										sizeof(to_unicode_map),
+										sizeof(from_unicode_mapping_array),
+										sizeof(from_unicode_map),
+										"new/cs_ksc5601.h");
+	}
+
+	return new pair_codepage_map((codepage_map *) old_map,
+								 (codepage_map *) new_map);
+};
+#endif
+
+
+pair_codepage_map *get_big5(void)
+{
+	wide_codepage_map *old_map, *new_map;
+	{
+#include "../intl/cs_big5.h"
+		old_map = new wide_codepage_map(to_unicode_mapping_array,
+										to_unicode_map,
+										from_unicode_mapping_array,
+										from_unicode_map,
+										sizeof(to_unicode_mapping_array),
+										sizeof(to_unicode_map),
+										sizeof(from_unicode_mapping_array),
+										sizeof(from_unicode_map),
+										"previous/cs_big5.h");
+	}
+
+	{
+#include "new/cs_big5.h"
+		new_map = new wide_codepage_map(to_unicode_mapping_array,
+										to_unicode_map,
+										from_unicode_mapping_array,
+										from_unicode_map,
+										sizeof(to_unicode_mapping_array),
+										sizeof(to_unicode_map),
+										sizeof(from_unicode_mapping_array),
+										sizeof(from_unicode_map),
+										"new/cs_big5.h");
+	}
+
+	return new pair_codepage_map((codepage_map *) old_map,
+								 (codepage_map *) new_map);
+};
+
+
+
+
+
+
+
+int main(int argc, char *argv[])
+{
+#ifdef XXX
+	pair_codepage_map *gb2312 = get_gb2312();
+	gb2312->compare();
+	pair_codepage_map *jis = get_jis();
+	jis->compare();
+	pair_codepage_map *sjis = get_sjis();
+	sjis->compare();
+	pair_codepage_map *ksc5601 = get_ksc5601();
+	ksc5601->compare();
+#endif
+
+	pair_codepage_map *big5 = get_big5();
+	big5->compare();
+
+#ifdef XXX
+	pair_codepage_map *w1250 = get_w1250();
+	w1250->compare();
+	pair_codepage_map *w1251 = get_w1251();
+	w1251->compare();
+	pair_codepage_map *w1252 = get_w1252();
+	w1252->compare();
+	pair_codepage_map *w1253 = get_w1253();
+	w1253->compare();
+	pair_codepage_map *w1254 = get_w1254();
+	w1254->compare();
+	pair_codepage_map *d437 = get_437();
+	d437->compare();
+	pair_codepage_map *d850 = get_850();
+	d850->compare();
+	pair_codepage_map *d852 = get_852();
+	d852->compare();
+	pair_codepage_map *d857 = get_857();
+	d857->compare();
+	pair_codepage_map *d860 = get_860();
+	d860->compare();
+	pair_codepage_map *d861 = get_861();
+	d861->compare();
+	pair_codepage_map *d863 = get_863();
+	d863->compare();
+	pair_codepage_map *d865 = get_865();
+	d865->compare();
+	pair_codepage_map *cyrl = get_cyrl();
+	cyrl->compare();
+	pair_codepage_map *next = get_next();
+	next->compare();
+#endif /* XXX */
+}
diff --git a/src/intl/mapdump.c b/src/intl/mapdump.c
new file mode 100644
index 0000000000..3512ee09cc
--- /dev/null
+++ b/src/intl/mapdump.c
@@ -0,0 +1,74 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+
+#include "cs_w1254.h"
+
+/*
+fixed
+#include "cs_cyrl.h"
+#include "cs_865.h"
+#include "cs_863.h"
+#include "cs_861.h"
+#include "cs_860.h"
+#include "cs_857.h"
+#include "cs_w1251.h"
+#include "cs_437.h"
+#include "cs_850.h"
+#include "cs_852.h"
+#include "cs_w1250.h"
+#include "cs_w1252.h"
+#include "cs_w1253.h"
+
+fixed with errors
+#include "cs_next.h" -- NeXT has two characters mapping to the same
+			Unicode (FE & FF).  So round trip is not possible.
+			They map to FFFD, which is the replacement character
+			so this is not an error
+
+No errors
+#include "../intl/cs_latin1.h"
+*/
+
+/* 
+-- Multibyte character sets --
+#include "../intl/cs_big5.h"
+#include "../intl/cs_gb2312.h"
+#include "../intl/cs_jis_0208_1990.h"
+#include "../intl/cs_ksc5601.h"
+#include "../intl/csjis2_p.h"
+*/
+
+
+#define UNICODE_INDEX(u)	(((u) % 256) + from_unicode_map [((u) / 256)])
+#define UNICODE_LOOKUP(u)	from_unicode_mapping_array [ UNICODE_INDEX(u) ]
+
+main()
+{
+	unsigned short uch;
+	int i;
+
+	for (i = 0; i <= 255; i++) {
+		uch = to_unicode_map[i];
+		ib_printf("0x%02X\t0x%04X\t#\n", i, uch);
+	}
+
+	ib_printf("Test completed\n");
+}
diff --git a/src/intl/mapgen4.c b/src/intl/mapgen4.c
new file mode 100644
index 0000000000..c5d3054e0d
--- /dev/null
+++ b/src/intl/mapgen4.c
@@ -0,0 +1,415 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/common.h"
+
+typedef struct {
+	unsigned int codepoint;
+	unsigned int equivilant;
+	unsigned int exists;		/* Count of times in input table */
+	unsigned int not_defined;	/* Defined as NOT DEFINED */
+	char name[80];				/* Name of the character */
+} CONVERSION;
+
+typedef struct {
+	unsigned int high_point;
+	unsigned int low_point;
+	unsigned int count;
+	CONVERSION table[0xFFFF + 1];
+} TABLE;
+
+TABLE codepoint_conversion;
+TABLE unicode_conversion;
+
+#define UNICODE_REPLACEMENT_CHARACTER	0xFFFD
+#define CANT_MAP_CHARACTER		0
+
+void print_condensed_indexed_table(char *name, TABLE * table,
+								   unsigned short replacement);
+void print_indexed_table(char *name, TABLE * table,
+						 unsigned short replacement);
+void print_direct_table(char *name, TABLE * table);
+void declare(unsigned short codepoint, unsigned short unicode, char *name);
+
+main(int argc, char *argv[])
+{
+	IB_FILE *f = NULL;
+	char line[100];
+	int i;
+	int linecount = 0;
+	int option_euc = 0;
+	int option_sjis = 0;
+	int option_condensed = 0;
+	int usage = 0;
+	char *filename = NULL;
+
+	for (i = 1; i < argc && !usage; i++) {
+		if (argv[i][0] == '-') {
+			if (strcmp(argv[i], "-euc") == 0)
+				option_euc++;
+			else if (strcmp(argv[i], "-sjis") == 0)
+				option_sjis++;
+			else if (strcmp(argv[i], "-condense") == 0)
+				option_condensed++;
+			else
+				usage++;
+		}
+		else if (filename)
+			usage++;
+		else
+			filename = argv[i];
+	}
+
+	if (usage) {
+		ib_fprintf(ib_stderr,
+				   "usage: mapgen4 [-condense | -euc | -sjis] <name of unicode map file>\n");
+		exit(1);
+	}
+
+	f = ib_fopen(filename, "r");
+	if (!f) {
+		ib_fprintf(ib_stderr, "Unable to open file '%s'\n", filename);
+		exit(1);
+	};
+
+	memset((void *) &codepoint_conversion, 0, sizeof(codepoint_conversion));
+	memset((void *) &unicode_conversion, 0, sizeof(unicode_conversion));
+	codepoint_conversion.low_point = 0xFFFF;
+	unicode_conversion.low_point = 0xFFFF;
+
+	ib_printf("/* -------------------------------------------- \n");
+	ib_printf("     THIS FILE WAS GENERATED BY intl/mapgen4.c\n");
+	ib_printf("     ");
+	for (i = 0; i < argc; i++)
+		ib_printf("%s ", argv[i]);
+	ib_printf("\n\n");
+	ib_printf("    Unicode mapping table generated from file %s \n",
+			  filename);
+	ib_printf("\n");
+
+
+	while (ib_fgets(line, sizeof(line), f)) {
+		unsigned int unicode;
+		unsigned int codepoint;
+		char *p;
+
+		/* Strip trailing control codes from the line */
+		p = &line[strlen(line) - 1];
+		while (p >= line && (*p == '\r' || *p == '\n' || *p == 26))
+			*p-- = 0;
+
+		ib_printf("%s\n", line);
+		linecount++;
+		/* Skip blank lines */
+		if (line[0] == 0)
+			continue;
+		/* Skip comment lines */
+		if (line[0] == '#')
+			continue;
+		p = line;
+
+		if (option_sjis) {
+			unsigned int sjis_point;
+			if (1 != sscanf(p, "0x%04x\t", &sjis_point)) {
+				ib_fprintf(ib_stderr, "Problem in input file - line %d\n",
+						   linecount);
+				exit(1);
+			};
+			p = strchr(p, '\t') + 1;
+		}
+
+		codepoint = 0;
+		if (1 != sscanf(p, "0x%04x\t", &codepoint)) {
+			ib_fprintf(ib_stderr, "Problem in input file - line %d\n",
+					   linecount);
+			exit(1);
+		};
+		p = strchr(p, '\t') + 1;
+
+		if (option_euc)
+			codepoint += 0x8080;
+
+		unicode = 0;
+		if (0 == sscanf(p, "0x%04x\t", &unicode)) {
+			/* Conversion is not defined */
+			codepoint_conversion.table[codepoint].not_defined++;
+			declare(codepoint, unicode, "NOT DEFINED");
+		}
+		else {
+			/* Find start of comment defining Unicode name */
+			p = strchr(p, '#');
+			if (p)
+				p++;			/* Skip comment character */
+			else
+				p = "";
+			declare(codepoint, unicode, p);
+		}
+
+	}
+	ib_fclose(f);
+	ib_printf("   -------------------------------------------- */\n");
+
+/* Declare any standard ASCII characters that didn't exist in the table */
+	for (i = 0; i <= 0x7f; i++)
+		if (!codepoint_conversion.table[i].exists)
+			declare(i, i, "ASCII");
+
+	ib_printf("\n");
+	ib_printf("\n");
+	ib_printf("#ifndef UNICODE_REPLACEMENT_CHARACTER\n");
+	ib_printf("#define UNICODE_REPLACEMENT_CHARACTER 0xFFFD\n");
+	ib_printf("#endif\n");
+	ib_printf("\n");
+
+/* Small tables print with all comments */
+	if ((codepoint_conversion.high_point < 256) || (!option_condensed))
+		print_indexed_table("to_unicode", &codepoint_conversion,
+							UNICODE_REPLACEMENT_CHARACTER);
+	else
+		print_condensed_indexed_table("to_unicode", &codepoint_conversion,
+									  UNICODE_REPLACEMENT_CHARACTER);
+
+
+	ib_printf("\n");
+	ib_printf("\n");
+	ib_printf("#ifndef CANT_MAP_CHARACTER\n");
+	ib_printf("#define CANT_MAP_CHARACTER 0\n");
+	ib_printf("#endif\n");
+	ib_printf("\n");
+
+/* Small tables print with all comments */
+	if ((unicode_conversion.count < 256) || (!option_condensed))
+		print_indexed_table("from_unicode", &unicode_conversion,
+							CANT_MAP_CHARACTER);
+	else
+		print_condensed_indexed_table("from_unicode", &unicode_conversion,
+									  CANT_MAP_CHARACTER);
+
+	return 0;
+}
+
+void declare(unsigned short codepoint, unsigned short unicode, char *name)
+{
+	if (codepoint < codepoint_conversion.low_point)
+		codepoint_conversion.low_point = codepoint;
+	if (codepoint > codepoint_conversion.high_point)
+		codepoint_conversion.high_point = codepoint;
+
+	if (codepoint_conversion.table[codepoint].exists++) {
+		if (unicode != codepoint_conversion.table[codepoint].equivilant)
+			ib_fprintf(ib_stderr,
+					   "Error: duplicate unequal mappings for 0x%04x : 0x%04x and 0x%04x\n",
+					   codepoint, unicode,
+					   codepoint_conversion.table[codepoint].equivilant);
+		else
+			ib_fprintf(ib_stderr,
+					   "Warning: duplicate entries for codepoint 0x%04x to 0x%04x\n",
+					   codepoint, unicode);
+	}
+	else
+		codepoint_conversion.count++;
+
+	codepoint_conversion.table[codepoint].codepoint = codepoint;
+	strcpy(codepoint_conversion.table[codepoint].name, name);
+
+	if (!codepoint_conversion.table[codepoint].not_defined) {
+		codepoint_conversion.table[codepoint].equivilant = unicode;
+
+		if (unicode < unicode_conversion.low_point)
+			unicode_conversion.low_point = unicode;
+		if (unicode > unicode_conversion.high_point)
+			codepoint_conversion.high_point = unicode;
+		if (!unicode_conversion.table[unicode].exists++) {
+			unicode_conversion.table[unicode].codepoint = unicode;
+			if (unicode != UNICODE_REPLACEMENT_CHARACTER) {
+				unicode_conversion.table[unicode].equivilant = codepoint;
+				strcpy(unicode_conversion.table[unicode].name, name);
+			}
+		}
+		else {
+			if (unicode != UNICODE_REPLACEMENT_CHARACTER)
+				ib_fprintf(ib_stderr,
+						   "Warning: Multiple mappings to Unicode 0x%04x : 0x%04x and 0x%04x\n",
+						   unicode, codepoint,
+						   unicode_conversion.table[unicode].equivilant);
+		}
+	};
+}
+
+
+void print_direct_table(char *name, TABLE * table)
+{
+	int i;
+
+	ib_printf("static CONST USHORT %s_map[256] = {\n", name);
+	for (i = 0; i < 256; i++) {
+		if (table->table[i].exists != 1 || table->table[i].not_defined)
+			ib_printf("/* %02X */     UNICODE_REPLACEMENT_CHARACTER,\n", i);
+		else
+			ib_printf("/* %02X */  0x%04X /* %45s */,\n",
+					  i, table->table[i].equivilant, table->table[i].name);
+	}
+	ib_printf("};\n");
+}
+
+
+void print_indexed_table(char *name, TABLE * table,
+						 unsigned short replacement)
+{
+	unsigned int index;
+	unsigned int codepoint;
+	unsigned short upper_byte[256];
+	int i;
+
+	ib_printf("static CONST USHORT FAR_VARIABLE %s_mapping_array[] = {\n",
+			  name);
+	for (index = 0; index < 256; index++)
+		if (replacement == UNICODE_REPLACEMENT_CHARACTER)
+			ib_printf
+				("/* U+XX%02X */\tUNICODE_REPLACEMENT_CHARACTER,\t/* %d */\n",
+				 index % 256, index);
+		else
+			ib_printf("/* U+XX%02X */\tCANT_MAP_CHARACTER,\t/* %d */\n",
+					  index % 256, index);
+
+	memset(upper_byte, 0, sizeof(upper_byte));
+	codepoint = 0;
+	while (codepoint < 0xFFFF + 1) {
+		if (!table->table[codepoint].exists) {
+			codepoint++;
+			continue;
+		};
+		upper_byte[codepoint / 256] = index;
+		while ((index % 256) < (codepoint % 256)) {
+			if (replacement == UNICODE_REPLACEMENT_CHARACTER)
+				ib_printf
+					("/* U+%04X */\tUNICODE_REPLACEMENT_CHARACTER,\t/* %d */\n",
+					 (codepoint & 0xFF00) + (index % 256), index);
+			else
+				ib_printf("/* U+%04X */\tCANT_MAP_CHARACTER,\t/* %d */\n",
+						  (codepoint & 0xFF00) + (index % 256), index);
+			index++;
+		}
+		do {
+			if (!table->table[codepoint].exists) {
+				if (replacement == UNICODE_REPLACEMENT_CHARACTER)
+					ib_printf
+						("/* U+%04X */\tUNICODE_REPLACEMENT_CHARACTER,\t/* %d */\n",
+						 codepoint, index);
+				else
+					ib_printf("/* U+%04X */\tCANT_MAP_CHARACTER,\t/* %d */\n",
+							  codepoint, index);
+			}
+			else
+				ib_printf("/* U+%04X */\t0x%04X\t/* %45s */,/* %d */\n",
+						  codepoint, table->table[codepoint].equivilant,
+						  table->table[codepoint].name, index);
+			index++;
+			codepoint++;
+		}
+		while (index % 256);
+	}
+	ib_printf("\t0 /* END OF MAP TABLE */\n");
+	ib_printf("};\n");
+
+	ib_printf("static CONST USHORT %s_map[256] = {\n", name);
+	for (i = 0; i < 256; i++)
+		ib_printf("/* U+%02X-- */\t%d,\n", i, upper_byte[i]);
+	ib_printf("};\n");
+
+}
+
+
+void print_condensed_indexed_table(
+								   char *name,
+								   TABLE * table, unsigned short replacement)
+{
+	unsigned int index;
+	unsigned int codepoint;
+	unsigned short upper_byte[256];
+	int i;
+
+	ib_printf("static CONST USHORT FAR_VARIABLE %s_mapping_array[] = {\n",
+			  name);
+
+	ib_printf("\n");
+	ib_printf("/* %5d to %5d */\n", 0, 255);
+	for (index = 0; index < 256; index++) {
+		if (replacement)
+			ib_printf("0x%04X,", replacement);
+		else
+			ib_printf("0,     ");
+		if (index % 8 == 7)
+			ib_printf("\n");
+		else
+			ib_printf(" ");
+	}
+
+	memset(upper_byte, 0, sizeof(upper_byte));
+	codepoint = 0;
+	while (codepoint < 0xFFFF + 1) {
+		if (!table->table[codepoint].exists) {
+			codepoint++;
+			continue;
+		};
+		upper_byte[codepoint / 256] = index;
+
+		ib_printf("\n");
+		ib_printf("/* %5d to %5d */\n", index, index + 255);
+
+		while ((index % 256) < (codepoint % 256)) {
+			if (replacement)
+				ib_printf("0x%04X,", replacement);
+			else
+				ib_printf("0,     ");
+			if (index % 8 == 7)
+				ib_printf("\n");
+			else
+				ib_printf(" ");
+			index++;
+		}
+		do {
+			if (!table->table[codepoint].exists) {
+				if (replacement)
+					ib_printf("0x%04X,", replacement);
+				else
+					ib_printf("0,     ");
+			}
+			else
+				ib_printf("0x%04X,", table->table[codepoint].equivilant);
+			if (index % 8 == 7)
+				ib_printf("\n");
+			else
+				ib_printf(" ");
+			index++;
+			codepoint++;
+		}
+		while (index % 256);
+	}
+	ib_printf("\t0 /* END OF MAP TABLE */\n");
+	ib_printf("};\n");
+
+	ib_printf("static CONST USHORT %s_map[256] = {\n", name);
+	for (i = 0; i < 256; i++)
+		ib_printf("%d,\n", upper_byte[i]);
+	ib_printf("};\n");
+
+}
diff --git a/src/intl/maptest.cpp b/src/intl/maptest.cpp
new file mode 100644
index 0000000000..1d4f033399
--- /dev/null
+++ b/src/intl/maptest.cpp
@@ -0,0 +1,144 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+
+
+/*
+fixed
+#include "cs_w1254.h"
+#include "cs_cyrl.h"
+#include "cs_865.h"
+#include "cs_863.h"
+#include "cs_861.h"
+#include "cs_860.h"
+#include "cs_857.h"
+#include "cs_w1251.h"
+#include "cs_437.h"
+#include "cs_850.h"
+#include "cs_852.h"
+#include "cs_w1250.h"
+#include "cs_w1252.h"
+#include "cs_w1253.h"
+
+fixed with errors
+#include "cs_next.h" -- NeXT has two characters mapping to the same
+			Unicode (FE & FF).  So round trip is not possible.
+			They map to FFFD, which is the replacement character
+			so this is not an error
+
+No errors
+#include "../intl/cs_latin1.h"
+*/
+
+/* 
+-- Multibyte character sets --
+#include "../intl/cs_big5.h"
+#include "../intl/cs_gb2312.h"
+#include "../intl/cs_jis_0208_1990.h"
+#include "../intl/cs_ksc5601.h"
+#include "../intl/csjis2_p.h"
+*/
+
+
+#define UNICODE_INDEX(u)	(((u) % 256) + from_unicode_map [((u) / 256)])
+#define UNICODE_LOOKUP(u)	from_unicode_mapping_array [ UNICODE_INDEX(u) ]
+
+main()
+{
+	unsigned short uch, uch2;
+	int i, j, k;
+	unsigned char ch2;
+
+	if (sizeof(to_unicode_map) != 256 * sizeof(to_unicode_map[0]))
+		ib_printf("The to_unicode_map is too small! %d entries!\n",
+				  sizeof(to_unicode_map) / sizeof(to_unicode_map[0]));
+
+	if (sizeof(from_unicode_map) != 256 * sizeof(from_unicode_map[0]))
+		ib_printf("The from_unicode_map is too small! %d entries!\n",
+				  sizeof(from_unicode_map) / sizeof(from_unicode_map[0]));
+
+	for (i = 0; i <= 255; i++) {
+		uch = to_unicode_map[i];
+		if (uch == CANT_MAP_CHARACTER)
+			continue;
+		ch2 = UNICODE_LOOKUP(uch);
+		if (ch2 != i) {
+			ib_printf
+				("Mapping error: Character %02x -> Unicode %04x (index %3d) -> Char %02x\n",
+				 i, uch, UNICODE_INDEX(uch), ch2);
+
+			/* Find the Character in the from_unicode_mapping_array */
+			for (j = 0; j < sizeof(from_unicode_mapping_array); j++)
+				if (from_unicode_mapping_array[j] == i) {
+					/* Mapping table is wrong - recommend a fix for it */
+					ib_printf
+						("Recommend from_unicode_map[0x%02x] be set to %d\n",
+						 uch / 256, j - (uch % 256));
+					break;
+				}
+
+			if (j == sizeof(from_unicode_mapping_array)) {
+				/* Oops - found a character that does exists in the character set
+				   but not in unicode - an obvious error! */
+
+				ib_printf
+					("Error: Character %d does not exist in the from_unicode_mapping_array\n",
+					 i);
+
+			}
+		}
+	}
+
+	for (i = 0; i <= 255; i++) {
+		if (from_unicode_map[i] + 0xFF >= sizeof(from_unicode_mapping_array)) {
+			ib_printf("From_unicode array bounds error at position %02x00\n",
+					  i);
+			continue;
+		}
+
+		for (j = 0; j <= 255; j++) {
+			uch = i * 256 + j;
+			ch2 = UNICODE_LOOKUP(uch);
+			if (ch2 == CANT_MAP_CHARACTER)
+				continue;
+			uch2 = to_unicode_map[ch2];
+			if (uch != uch2) {
+				ib_printf
+					("Mapping error: Unicode %04x -> ch %02x -> Unicode %04x\n",
+					 uch, ch2, uch2);
+
+				for (k = 0; k <= 255; k++)
+					if (to_unicode_map[k] == uch) {
+						/* Can map this character from charset to unicode */
+						/* Assume fix was printed out above */
+					}
+				if (k > 255) {
+					/* This unicode doesn't exist in charset */
+					/* Mapping table is wrong - recommend a fix for it */
+					ib_printf
+						("Recommend from_unicode_map[0x%02x] be set to %d\n",
+						 uch / 256, 0);
+				}
+			}
+		}
+	}
+
+	ib_printf("Test completed\n");
+}
diff --git a/src/intl/maptest2.c b/src/intl/maptest2.c
new file mode 100644
index 0000000000..a18a6f05ca
--- /dev/null
+++ b/src/intl/maptest2.c
@@ -0,0 +1,222 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#define CANT_MAP_CHARACTER	0
+
+class codepage_map {
+
+  public:
+	unsigned short *to_unicode_map;
+	unsigned char *from_unicode_mapping_array;
+	unsigned short *from_unicode_map;
+	unsigned short sizeof_to_unicode_map;
+	unsigned short sizeof_from_unicode_mapping_array;
+	unsigned short sizeof_from_unicode_map;
+	char *name;
+
+	  codepage_map(void) {
+		to_unicode_map = NULL;
+		from_unicode_map = NULL;
+		from_unicode_mapping_array = NULL;
+		sizeof_to_unicode_map = 0;
+		sizeof_from_unicode_map = 0;
+		sizeof_from_unicode_mapping_array = 0;
+		name = NULL;
+	};
+
+	codepage_map(unsigned short *_to,
+				 unsigned char *_from_array,
+				 unsigned short *_from_map,
+				 unsigned short sizeof_to,
+				 unsigned short sizeof_from_array,
+				 unsigned short sizeof_from_map, char *_name) {
+		to_unicode_map = _to;
+		from_unicode_mapping_array = _from_array;
+		from_unicode_map = _from_map;
+		sizeof_to_unicode_map = sizeof_to;
+		sizeof_from_unicode_mapping_array = sizeof_from_array;
+		sizeof_from_unicode_map = sizeof_from_map;
+		name = _name;
+		test_codepage();
+	};
+
+	unsigned short to_unicode(unsigned char c) {
+		return to_unicode_map[c];
+	};
+
+	unsigned short from_unicode(unsigned short c) {
+		return from_unicode_mapping_array[from_unicode_map[c / 256] +
+										  (c % 256)];
+	};
+
+	void test_codepage(void) {
+		if (sizeof_to_unicode_map != 256 * sizeof(to_unicode_map[0]))
+			printf("The to_unicode_map is too small! %d entries!\n",
+				   sizeof_to_unicode_map / sizeof(to_unicode_map[0]));
+
+		if (sizeof_from_unicode_map != 256 * sizeof(from_unicode_map[0]))
+			printf("The from_unicode_map is too small! %d entries!\n",
+				   sizeof_from_unicode_map / sizeof(from_unicode_map[0]));
+
+		for (int i = 0; i <= 255; i++) {
+			unsigned short uch;
+			unsigned char ch2;
+			  uch = to_unicode((unsigned char) i);
+			if (uch == CANT_MAP_CHARACTER)
+				  continue;
+			  ch2 = from_unicode(uch);
+			if (ch2 != i) {
+				printf
+					("Mapping error: Character %02x -> Unicode %04x -> Char %02x\n",
+					 i, uch, ch2);
+
+				/* Find the Character in the from_unicode_mapping_array */
+				for (int j = 0; j < sizeof_from_unicode_mapping_array; j++)
+					if (from_unicode_mapping_array[j] == i) {
+						/* Mapping table is wrong - recommend a fix for it */
+						printf
+							("Recommend from_unicode_map[0x%02x] be set to %d\n",
+							 uch / 256, j - (uch % 256));
+						break;
+				} if (j == sizeof_from_unicode_mapping_array) {
+					/* Oops - found a character that does exists in the character set
+					   but not in unicode - an obvious error! */
+
+					printf
+						("Error: Character %d does not exist in the from_unicode_mapping_array\n",
+						 i);
+
+				}
+			}
+		}
+
+		for (i = 0; i <= 255; i++) {
+			if (from_unicode_map[i] + 0xFF >=
+				sizeof_from_unicode_mapping_array) {
+				printf("From_unicode array bounds error at position %02x00\n",
+					   i);
+				continue;
+			}
+
+			for (int j = 0; j <= 255; j++) {
+				unsigned short uch, uch2;
+				unsigned char ch2;
+
+				uch = i * 256 + j;
+				ch2 = from_unicode(uch);
+				if (ch2 == CANT_MAP_CHARACTER)
+					continue;
+				uch2 = to_unicode(ch2);
+				if (uch != uch2) {
+					printf
+						("Mapping error: Unicode %04x -> ch %02x -> Unicode %04x\n",
+						 uch, ch2, uch2);
+
+					for (int k = 0; k <= 255; k++)
+						if (to_unicode_map[k] == uch) {
+							/* Can map this character from charset to unicode */
+							/* Assume fix was printed out above */
+						}
+					if (k > 255) {
+						/* This unicode doesn't exist in charset */
+						/* Mapping table is wrong - recommend a fix for it */
+						printf
+							("Recommend from_unicode_map[0x%02x] be set to %d\n",
+							 uch / 256, 0);
+					}
+				}
+			}
+		}
+
+		printf("Test of %s completed\n", name);
+	};
+};
+
+
+
+
+
+/*
+typedef unsigned short	USHORT;
+typedef unsigned char	UCHAR;
+
+*/
+#define UCHAR	unsigned char
+#define USHORT	unsigned short
+#define FAR_VARIABLE
+#define CONST
+#define _JRD_COMMON_H_
+
+codepage_map *get_w1250(void)
+{
+#include "cs_w1250.h"
+	return new codepage_map(to_unicode_map,
+							from_unicode_mapping_array,
+							from_unicode_map,
+							sizeof(to_unicode_map),
+							sizeof(from_unicode_mapping_array),
+							sizeof(from_unicode_map), "cs_w1250.h");
+};
+
+
+int main(int argc, char *argv[])
+{
+	codepage_map *w1250 = get_w1250();
+	w1250->test_codepage();
+}
+
+
+/*
+fixed
+#include "cs_w1254.h"
+#include "cs_cyrl.h"
+#include "cs_865.h"
+#include "cs_863.h"
+#include "cs_861.h"
+#include "cs_860.h"
+#include "cs_857.h"
+#include "cs_w1251.h"
+#include "cs_437.h"
+#include "cs_850.h"
+#include "cs_852.h"
+#include "cs_w1250.h"
+#include "cs_w1252.h"
+#include "cs_w1253.h"
+
+fixed with errors
+#include "cs_next.h" -- NeXT has two characters mapping to the same
+			Unicode (FE & FF).  So round trip is not possible.
+			They map to FFFD, which is the replacement character
+			so this is not an error
+
+No errors
+#include "../intl/cs_latin1.h"
+*/
+
+/* 
+-- Multibyte character sets --
+#include "../intl/cs_big5.h"
+#include "../intl/cs_gb2312.h"
+#include "../intl/cs_jis_0208_1990.h"
+#include "../intl/cs_ksc5601.h"
+#include "../intl/csjis2_p.h"
+*/
diff --git a/src/intl/nordan40.h b/src/intl/nordan40.h
new file mode 100644
index 0000000000..6cb1e96fcb
--- /dev/null
+++ b/src/intl/nordan40.h
@@ -0,0 +1,1489 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from nordan40 -----------*/
+/*----------- On      Fri Nov 13 10:37:55 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  nordan40.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:42 1992 */
+/*  from input file 'NORDAN40.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               pxNORDAN4
+
+
+#define LDRV_CTRYLANGID             DENMARK
+
+
+#define LDRV_PRIMARYCPID            865
+
+
+#define LDRV_PID                    PDOX
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox 'nordan40'"
+
+
+#define LDRV_FNAME                  "nordan40"
+
+
+#define NUM_EXPAND_CHARS            3
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          3
+
+
+/* End of langdrv/nordan40.def */
+
+#define MAX_NCO_PRIMARY  	197
+#define MAX_NCO_SECONDARY	  6
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	155,						/*   157 ->   155 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{225, 115, 115},			/* á -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* 81 */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* 82 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* 83 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* 84 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* 85 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* 86 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* 87 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* 88 */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* 89 */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* 8A */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* 8B */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* 8C */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* 8D */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* 8E */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* 8F */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* 90 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* 91 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* 92 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* 93 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* 94 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* 95 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* 96 */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* 97 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* 98 */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"},
+/* 99 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* 9A */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* 9B */  {
+	0x00F8, "LATIN SMALL LETTER O SLASH"},
+/* 9C */  {
+	0x00A3, "POUND SIGN"},
+/* 9D */  {
+	0x00D8, "LATIN CAPITAL LETTER O SLASH"},
+/* 9E */  {
+	0x20A7, "PESETA SIGN"},
+/* 9F */  {
+	0x0192, "LATIN SMALL LETTER SCRIPT F"},
+/* A0 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* A1 */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* A2 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* A3 */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* A4 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* A5 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* A6 */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* A7 */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* A8 */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* A9 */  {
+	0x2310, "REVERSED NOT SIGN"},
+/* AA */  {
+	0x00AC, "NOT SIGN"},
+/* AB */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* AC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* AD */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* AE */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AF */  {
+	0x00A4, "CURRENCY SIGN"},
+/* B0 */  {
+	0x2591, "LIGHT SHADE"},
+/* B1 */  {
+	0x2592, "MEDIUM SHADE"},
+/* B2 */  {
+	0x2593, "DARK SHADE"},
+/* B3 */  {
+	0x2502, "FORMS LIGHT VERTICAL"},
+/* B4 */  {
+	0x2524, "FORMS LIGHT VERTICAL AND LEFT"},
+/* B5 */  {
+	0x2561, "FORMS VERTICAL SINGLE AND LEFT DOUBLE"},
+/* B6 */  {
+	0x2562, "FORMS VERTICAL DOUBLE AND LEFT SINGLE"},
+/* B7 */  {
+	0x2556, "FORMS DOWN DOUBLE AND LEFT SINGLE"},
+/* B8 */  {
+	0x2555, "FORMS DOWN SINGLE AND LEFT DOUBLE"},
+/* B9 */  {
+	0x2563, "FORMS DOUBLE VERTICAL AND LEFT"},
+/* BA */  {
+	0x2551, "FORMS DOUBLE VERTICAL"},
+/* BB */  {
+	0x2557, "FORMS DOUBLE DOWN AND LEFT"},
+/* BC */  {
+	0x255D, "FORMS DOUBLE UP AND LEFT"},
+/* BD */  {
+	0x255C, "FORMS UP DOUBLE AND LEFT SINGLE"},
+/* BE */  {
+	0x255B, "FORMS UP SINGLE AND LEFT DOUBLE"},
+/* BF */  {
+	0x2510, "FORMS LIGHT DOWN AND LEFT"},
+/* C0 */  {
+	0x2514, "FORMS LIGHT UP AND RIGHT"},
+/* C1 */  {
+	0x2534, "FORMS LIGHT UP AND HORIZONTAL"},
+/* C2 */  {
+	0x252C, "FORMS LIGHT DOWN AND HORIZONTAL"},
+/* C3 */  {
+	0x251C, "FORMS LIGHT VERTICAL AND RIGHT"},
+/* C4 */  {
+	0x2500, "FORMS LIGHT HORIZONTAL"},
+/* C5 */  {
+	0x253C, "FORMS LIGHT VERTICAL AND HORIZONTAL"},
+/* C6 */  {
+	0x255E, "FORMS VERTICAL SINGLE AND RIGHT DOUBLE"},
+/* C7 */  {
+	0x255F, "FORMS VERTICAL DOUBLE AND RIGHT SINGLE"},
+/* C8 */  {
+	0x255A, "FORMS DOUBLE UP AND RIGHT"},
+/* C9 */  {
+	0x2554, "FORMS DOUBLE DOWN AND RIGHT"},
+/* CA */  {
+	0x2569, "FORMS DOUBLE UP AND HORIZONTAL"},
+/* CB */  {
+	0x2566, "FORMS DOUBLE DOWN AND HORIZONTAL"},
+/* CC */  {
+	0x2560, "FORMS DOUBLE VERTICAL AND RIGHT"},
+/* CD */  {
+	0x2550, "FORMS DOUBLE HORIZONTAL"},
+/* CE */  {
+	0x256C, "FORMS DOUBLE VERTICAL AND HORIZONTAL"},
+/* CF */  {
+	0x2567, "FORMS UP SINGLE AND HORIZONTAL DOUBLE"},
+/* D0 */  {
+	0x2568, "FORMS UP DOUBLE AND HORIZONTAL SINGLE"},
+/* D1 */  {
+	0x2564, "FORMS DOWN SINGLE AND HORIZONTAL DOUBLE"},
+/* D2 */  {
+	0x2565, "FORMS DOWN DOUBLE AND HORIZONTAL SINGLE"},
+/* D3 */  {
+	0x2559, "FORMS UP DOUBLE AND RIGHT SINGLE"},
+/* D4 */  {
+	0x2558, "FORMS UP SINGLE AND RIGHT DOUBLE"},
+/* D5 */  {
+	0x2552, "FORMS DOWN SINGLE AND RIGHT DOUBLE"},
+/* D6 */  {
+	0x2553, "FORMS DOWN DOUBLE AND RIGHT SINGLE"},
+/* D7 */  {
+	0x256B, "FORMS VERTICAL DOUBLE AND HORIZONTAL SINGLE"},
+/* D8 */  {
+	0x256A, "FORMS VERTICAL SINGLE AND HORIZONTAL DOUBLE"},
+/* D9 */  {
+	0x2518, "FORMS LIGHT UP AND LEFT"},
+/* DA */  {
+	0x250C, "FORMS LIGHT DOWN AND RIGHT"},
+/* DB */  {
+	0x2588, "FULL BLOCK"},
+/* DC */  {
+	0x2584, "LOWER HALF BLOCK"},
+/* DD */  {
+	0x258C, "LEFT HALF BLOCK"},
+/* DE */  {
+	0x2590, "RIGHT HALF BLOCK"},
+/* DF */  {
+	0x2580, "UPPER HALF BLOCK"},
+/* E0 */  {
+	0x03B1, "GREEK SMALL LETTER ALPHA"},
+/* E1 */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E2 */  {
+	0x0393, "GREEK CAPITAL LETTER GAMMA"},
+/* E3 */  {
+	0x03C0, "GREEK SMALL LETTER PI"},
+/* E4 */  {
+	0x03A3, "GREEK CAPITAL LETTER SIGMA"},
+/* E5 */  {
+	0x03C3, "GREEK SMALL LETTER SIGMA"},
+/* E6 */  {
+	0x00B5, "MICRO SIGN"},
+/* E7 */  {
+	0x03C4, "GREEK SMALL LETTER TAU"},
+/* E8 */  {
+	0x03A6, "GREEK CAPITAL LETTER PHI"},
+/* E9 */  {
+	0x0398, "GREEK CAPITAL LETTER THETA"},
+/* EA */  {
+	0x03A9, "GREEK CAPITAL LETTER OMEGA"},
+/* EB */  {
+	0x03B4, "GREEK SMALL LETTER DELTA"},
+/* EC */  {
+	0x221E, "INFINITY"},
+/* ED */  {
+	0x03C6, "GREEK SMALL LETTER PHI"},
+/* EE */  {
+	0x03B5, "GREEK SMALL LETTER EPSILON"},
+/* EF */  {
+	0x2229, "INTERSECTION"},
+/* F0 */  {
+	0x2261, "IDENTICAL TO"},
+/* F1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* F2 */  {
+	0x2265, "GREATER THAN OR EQUAL TO"},
+/* F3 */  {
+	0x2264, "LESS THAN OR EQUAL TO"},
+/* F4 */  {
+	0x2320, "TOP HALF INTEGRAL"},
+/* F5 */  {
+	0x2321, "BOTTOM HALF INTEGRAL"},
+/* F6 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F7 */  {
+	0x2248, "ALMOST EQUAL TO"},
+/* F8 */  {
+	0x00B0, "DEGREE SIGN"},
+/* F9 */  {
+	0x2219, "BULLET OPERATOR"},
+/* FA */  {
+	0x00B7, "MIDDLE DOT"},
+/* FB */  {
+	0x221A, "SQUARE ROOT"},
+/* FC */  {
+	0x207F, "SUPERSCRIPT LATIN SMALL LETTER N"},
+/* FD */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* FE */  {
+	0x25A0, "BLACK SQUARE"},
+/* FF */  {
+	0x00A0, "NON-BREAKING SPACE"}
+};
+#endif
diff --git a/src/intl/polish.h b/src/intl/polish.h
new file mode 100644
index 0000000000..d38cdf7677
--- /dev/null
+++ b/src/intl/polish.h
@@ -0,0 +1,968 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 00polish -----------*/
+/*----------- On      Mon May 16 10:28:11 1994 -----------*/
+
+/*  polish.def */
+/*  Generated on Mon May 16 10:28:05 1994
+ */
+/*  from input file 'cfg/polish.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxPOLISH
+
+
+#define LDRV_CTRYLANGID             POLAND
+
+
+#define LDRV_PRIMARYCPID            852
+
+
+#define LDRV_PID                    PDOX
+
+
+#define LDRV_ALTCPID                1250
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox Polish 852"
+
+
+#define LDRV_FNAME                  "polish"
+
+
+#define NUM_EXPAND_CHARS            3
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/polish.def */
+
+#define MAX_NCO_PRIMARY  	169
+#define MAX_NCO_SECONDARY	  9
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	222,						/*   133 -> Þ 222 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	157,						/*   136 ->   157 */
+	211,						/*   137 -> Ó 211 */
+	138,						/*   138 ->   138 */
+	138,						/*   139 ->   138 */
+	215,						/*   140 -> × 215 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	149,						/*   149 ->   149 */
+	149,						/*   150 ->   149 */
+	151,						/*   151 ->   151 */
+	151,						/*   152 ->   151 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	155,						/*   156 ->   155 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	172,						/*   159 -> ¬ 172 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	166,						/* § 167 -> ¦ 166 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	168,						/* © 169 -> ¨ 168 */
+	170,						/* ª 170 -> ª 170 */
+	141,						/* « 171 ->   141 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	184,						/* ­ 173 -> ¸ 184 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	189,						/* ¾ 190 -> ½ 189 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	210,						/* Ô 212 -> Ò 210 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	183,						/* Ø 216 -> · 183 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	227,						/* ä 228 -> ã 227 */
+	213,						/* å 229 -> Õ 213 */
+	230,						/* æ 230 -> æ 230 */
+	230,						/* ç 231 -> æ 230 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	232,						/* ê 234 -> è 232 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	221,						/* î 238 -> Ý 221 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	235,						/* û 251 -> ë 235 */
+	252,						/* ü 252 -> ü 252 */
+	252,						/* ý 253 -> ü 252 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	139,						/*   138 ->   139 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	171,						/*   141 -> « 171 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	150,						/*   149 ->   150 */
+	150,						/*   150 ->   150 */
+	152,						/*   151 ->   152 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	156,						/*   155 ->   156 */
+	156,						/*   156 ->   156 */
+	136,						/*   157 ->   136 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	167,						/* ¦ 166 -> § 167 */
+	167,						/* § 167 -> § 167 */
+	169,						/* ¨ 168 -> © 169 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	159,						/* ¬ 172 ->   159 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	216,						/* · 183 -> Ø 216 */
+	173,						/* ¸ 184 -> ­ 173 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	190,						/* ½ 189 -> ¾ 190 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	212,						/* Ò 210 -> Ô 212 */
+	137,						/* Ó 211 ->   137 */
+	212,						/* Ô 212 -> Ô 212 */
+	229,						/* Õ 213 -> å 229 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	238,						/* Ý 221 -> î 238 */
+	133,						/* Þ 222 ->   133 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	228,						/* ã 227 -> ä 228 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	231,						/* æ 230 -> ç 231 */
+	231,						/* ç 231 -> ç 231 */
+	234,						/* è 232 -> ê 234 */
+	163,						/* é 233 -> £ 163 */
+	234,						/* ê 234 -> ê 234 */
+	251,						/* ë 235 -> û 251 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	253,						/* ü 252 -> ý 253 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{225, 115, 115},			/* á -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 104, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 104, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 105, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 106, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 108, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 109, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 111, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 111, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 109, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 110, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 100, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 107, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 102, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 103, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_852.h"
+#endif
+/* End of File : Language driver polish */
diff --git a/src/intl/slovene.h b/src/intl/slovene.h
new file mode 100644
index 0000000000..b034f323db
--- /dev/null
+++ b/src/intl/slovene.h
@@ -0,0 +1,965 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 0slovene -----------*/
+/*----------- On      Fri May 13 17:38:20 1994 -----------*/
+
+/*  slovene.def */
+/*  Generated on Fri May 13 17:38:14 1994
+ */
+/*  from input file 'cfg/slovene.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxSLOVENE
+
+
+#define LDRV_CTRYLANGID             YUGOSLAVIA
+
+
+#define LDRV_PRIMARYCPID            852
+
+
+#define LDRV_PID                    PDOX
+
+
+#define LDRV_ALTCPID                1250
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox Slovene 852"
+
+
+#define LDRV_FNAME                  "slovene"
+
+
+#define NUM_EXPAND_CHARS            0
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          1
+
+
+/* End of langdrv/slovene.def */
+
+#define MAX_NCO_PRIMARY  	153
+#define MAX_NCO_SECONDARY	 11
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	222,						/*   133 -> Þ 222 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	157,						/*   136 ->   157 */
+	211,						/*   137 -> Ó 211 */
+	138,						/*   138 ->   138 */
+	138,						/*   139 ->   138 */
+	215,						/*   140 -> × 215 */
+	141,						/*   141 ->   141 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	149,						/*   149 ->   149 */
+	149,						/*   150 ->   149 */
+	151,						/*   151 ->   151 */
+	151,						/*   152 ->   151 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	155,						/*   156 ->   155 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	172,						/*   159 -> ¬ 172 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	166,						/* § 167 -> ¦ 166 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	168,						/* © 169 -> ¨ 168 */
+	170,						/* ª 170 -> ª 170 */
+	141,						/* « 171 ->   141 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	184,						/* ­ 173 -> ¸ 184 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	189,						/* ¾ 190 -> ½ 189 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	209,						/* Ð 208 -> Ñ 209 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	210,						/* Ô 212 -> Ò 210 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	183,						/* Ø 216 -> · 183 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	227,						/* ä 228 -> ã 227 */
+	213,						/* å 229 -> Õ 213 */
+	230,						/* æ 230 -> æ 230 */
+	230,						/* ç 231 -> æ 230 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	232,						/* ê 234 -> è 232 */
+	235,						/* ë 235 -> ë 235 */
+	237,						/* ì 236 -> í 237 */
+	237,						/* í 237 -> í 237 */
+	221,						/* î 238 -> Ý 221 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	235,						/* û 251 -> ë 235 */
+	252,						/* ü 252 -> ü 252 */
+	252,						/* ý 253 -> ü 252 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	139,						/*   138 ->   139 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	171,						/*   141 -> « 171 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	150,						/*   149 ->   150 */
+	150,						/*   150 ->   150 */
+	152,						/*   151 ->   152 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	156,						/*   155 ->   156 */
+	156,						/*   156 ->   156 */
+	136,						/*   157 ->   136 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	167,						/* ¦ 166 -> § 167 */
+	167,						/* § 167 -> § 167 */
+	169,						/* ¨ 168 -> © 169 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	159,						/* ¬ 172 ->   159 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	216,						/* · 183 -> Ø 216 */
+	173,						/* ¸ 184 -> ­ 173 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	190,						/* ½ 189 -> ¾ 190 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	208,						/* Ñ 209 -> Ð 208 */
+	212,						/* Ò 210 -> Ô 212 */
+	137,						/* Ó 211 ->   137 */
+	212,						/* Ô 212 -> Ô 212 */
+	229,						/* Õ 213 -> å 229 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	238,						/* Ý 221 -> î 238 */
+	133,						/* Þ 222 ->   133 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	228,						/* ã 227 -> ä 228 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	231,						/* æ 230 -> ç 231 */
+	231,						/* ç 231 -> ç 231 */
+	234,						/* è 232 -> ê 234 */
+	163,						/* é 233 -> £ 163 */
+	234,						/* ê 234 -> ê 234 */
+	251,						/* ë 235 -> û 251 */
+	236,						/* ì 236 -> ì 236 */
+	236,						/* í 237 -> ì 236 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	253,						/* ü 252 -> ý 253 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_852.h"
+#endif
+/* End of File : Language driver slovene */
diff --git a/src/intl/swedfin.h b/src/intl/swedfin.h
new file mode 100644
index 0000000000..458ecf644a
--- /dev/null
+++ b/src/intl/swedfin.h
@@ -0,0 +1,1489 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 0swedfin -----------*/
+/*----------- On      Fri Nov 13 10:38:03 1992 -----------*/
+
+
+#include "../intl/ld.h"
+
+/* */
+/*  swedfin.DEF */
+/* */
+/*  Generated on Thu Nov 12 15:05:44 1992 */
+/*  from input file 'SWEDFIN.CFG' */
+/* */
+/*  by LDCFG Version 1.3 */
+/* */
+/*  Language Driver/API version 1.1 */
+/* */
+
+#define LDRV_DRIVERID               pxSWEDFIN
+
+
+#define LDRV_CTRYLANGID             SWEDEN
+
+
+#define LDRV_PRIMARYCPID            437
+
+
+#define LDRV_PID                    PDOX
+
+
+#define LDRV_ALTCPID                1252
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox 'swedfin'"
+
+
+#define LDRV_FNAME                  "swedfin"
+
+
+#define NUM_EXPAND_CHARS            3
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               SECONDARY
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          3
+
+
+/* End of langdrv/swedfin.def */
+
+#define MAX_NCO_PRIMARY  	203
+#define MAX_NCO_SECONDARY	  6
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	73,							/* i 105 -> I  73 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	65,							/*   131 -> A  65 */
+	142,						/*   132 ->   142 */
+	65,							/*   133 -> A  65 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	69,							/*   136 -> E  69 */
+	69,							/*   137 -> E  69 */
+	69,							/*   138 -> E  69 */
+	73,							/*   139 -> I  73 */
+	73,							/*   140 -> I  73 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	79,							/*   147 -> O  79 */
+	153,						/*   148 ->   153 */
+	79,							/*   149 -> O  79 */
+	85,							/*   150 -> U  85 */
+	85,							/*   151 -> U  85 */
+	89,							/*   152 -> Y  89 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	65,							/*   160 -> A  65 */
+	73,							/* ¡ 161 -> I  73 */
+	79,							/* ¢ 162 -> O  79 */
+	85,							/* £ 163 -> U  85 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	105,						/* I  73 -> i 105 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	152,						/*   152 ->   152 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	228,						/* ä 228 -> ä 228 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	237,						/* è 232 -> í 237 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{225, 115, 115},			/* á -> ss */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 132   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 95, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 97, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 142   */
+	{FIRST_PRIMARY + 96, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 91, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 92, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 98, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 99, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 225 á */
+	{FIRST_PRIMARY + 176, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 177, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 178, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 179, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 180, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 181, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 94, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 182, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 183, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 184, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 185, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 93, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 186, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 187, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 188, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 189, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 190, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 191, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 192, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 193, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 194, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 195, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 196, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 197, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 198, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 199, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 200, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 201, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 202, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 203, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+struct cp_map {
+	USHORT unicode;
+	TEXT *uniname;
+} to_unicode_map[256] = {
+/* 00 */  {
+	0x0000, "NULL"},
+/* 01 */  {
+	0x0001, "START OF HEADING"},
+/* 02 */  {
+	0x0002, "START OF TEXT"},
+/* 03 */  {
+	0x0003, "END OF TEXT"},
+/* 04 */  {
+	0x0004, "END OF TRANSMISSION"},
+/* 05 */  {
+	0x0005, "ENQUIRY"},
+/* 06 */  {
+	0x0006, "ACKNOWLEDGE"},
+/* 07 */  {
+	0x0007, "BELL"},
+/* 08 */  {
+	0x0008, "BACKSPACE"},
+/* 09 */  {
+	0x0009, "HORIZONTAL TABULATION"},
+/* 0A */  {
+	0x000A, "LINE FEED"},
+/* 0B */  {
+	0x000B, "VERTICAL TABULATION"},
+/* 0C */  {
+	0x000C, "FORM FEED"},
+/* 0D */  {
+	0x000D, "CARRIAGE RETURN"},
+/* 0E */  {
+	0x000E, "SHIFT OUT"},
+/* 0F */  {
+	0x000F, "SHIFT IN"},
+/* 10 */  {
+	0x0010, "DATA LINK ESCAPE"},
+/* 11 */  {
+	0x0011, "DEVICE CONTROL ONE"},
+/* 12 */  {
+	0x0012, "DEVICE CONTROL TWO"},
+/* 13 */  {
+	0x0013, "DEVICE CONTROL THREE"},
+/* 14 */  {
+	0x0014, "DEVICE CONTROL FOUR"},
+/* 15 */  {
+	0x0015, "NEGATIVE ACKNOWLEDGE"},
+/* 16 */  {
+	0x0016, "SYNCHRONOUS IDLE"},
+/* 17 */  {
+	0x0017, "END OF TRANSMISSION BLOCK"},
+/* 18 */  {
+	0x0018, "CANCEL"},
+/* 19 */  {
+	0x0019, "END OF MEDIUM"},
+/* 1A */  {
+	0x001A, "SUBSTITUTE"},
+/* 1B */  {
+	0x001B, "ESCAPE"},
+/* 1C */  {
+	0x001C, "FILE SEPARATOR"},
+/* 1D */  {
+	0x001D, "GROUP SEPARATOR"},
+/* 1E */  {
+	0x001E, "RECORD SEPARATOR"},
+/* 1F */  {
+	0x001F, "UNIT SEPARATOR"},
+/* 20 */  {
+	0x0020, "SPACE"},
+/* 21 */  {
+	0x0021, "EXCLAMATION MARK"},
+/* 22 */  {
+	0x0022, "QUOTATION MARK"},
+/* 23 */  {
+	0x0023, "NUMBER SIGN"},
+/* 24 */  {
+	0x0024, "DOLLAR SIGN"},
+/* 25 */  {
+	0x0025, "PERCENT SIGN"},
+/* 26 */  {
+	0x0026, "AMPERSAND"},
+/* 27 */  {
+	0x0027, "APOSTROPHE-QUOTE"},
+/* 28 */  {
+	0x0028, "OPENING PARENTHESIS"},
+/* 29 */  {
+	0x0029, "CLOSING PARENTHESIS"},
+/* 2A */  {
+	0x002A, "ASTERISK"},
+/* 2B */  {
+	0x002B, "PLUS SIGN"},
+/* 2C */  {
+	0x002C, "COMMA"},
+/* 2D */  {
+	0x002D, "HYPHEN-MINUS"},
+/* 2E */  {
+	0x002E, "PERIOD"},
+/* 2F */  {
+	0x002F, "SLASH"},
+/* 30 */  {
+	0x0030, "DIGIT ZERO"},
+/* 31 */  {
+	0x0031, "DIGIT ONE"},
+/* 32 */  {
+	0x0032, "DIGIT TWO"},
+/* 33 */  {
+	0x0033, "DIGIT THREE"},
+/* 34 */  {
+	0x0034, "DIGIT FOUR"},
+/* 35 */  {
+	0x0035, "DIGIT FIVE"},
+/* 36 */  {
+	0x0036, "DIGIT SIX"},
+/* 37 */  {
+	0x0037, "DIGIT SEVEN"},
+/* 38 */  {
+	0x0038, "DIGIT EIGHT"},
+/* 39 */  {
+	0x0039, "DIGIT NINE"},
+/* 3A */  {
+	0x003A, "COLON"},
+/* 3B */  {
+	0x003B, "SEMICOLON"},
+/* 3C */  {
+	0x003C, "LESS-THAN SIGN"},
+/* 3D */  {
+	0x003D, "EQUALS SIGN"},
+/* 3E */  {
+	0x003E, "GREATER-THAN SIGN"},
+/* 3F */  {
+	0x003F, "QUESTION MARK"},
+/* 40 */  {
+	0x0040, "COMMERCIAL AT"},
+/* 41 */  {
+	0x0041, "LATIN CAPITAL LETTER A"},
+/* 42 */  {
+	0x0042, "LATIN CAPITAL LETTER B"},
+/* 43 */  {
+	0x0043, "LATIN CAPITAL LETTER C"},
+/* 44 */  {
+	0x0044, "LATIN CAPITAL LETTER D"},
+/* 45 */  {
+	0x0045, "LATIN CAPITAL LETTER E"},
+/* 46 */  {
+	0x0046, "LATIN CAPITAL LETTER F"},
+/* 47 */  {
+	0x0047, "LATIN CAPITAL LETTER G"},
+/* 48 */  {
+	0x0048, "LATIN CAPITAL LETTER H"},
+/* 49 */  {
+	0x0049, "LATIN CAPITAL LETTER I"},
+/* 4A */  {
+	0x004A, "LATIN CAPITAL LETTER J"},
+/* 4B */  {
+	0x004B, "LATIN CAPITAL LETTER K"},
+/* 4C */  {
+	0x004C, "LATIN CAPITAL LETTER L"},
+/* 4D */  {
+	0x004D, "LATIN CAPITAL LETTER M"},
+/* 4E */  {
+	0x004E, "LATIN CAPITAL LETTER N"},
+/* 4F */  {
+	0x004F, "LATIN CAPITAL LETTER O"},
+/* 50 */  {
+	0x0050, "LATIN CAPITAL LETTER P"},
+/* 51 */  {
+	0x0051, "LATIN CAPITAL LETTER Q"},
+/* 52 */  {
+	0x0052, "LATIN CAPITAL LETTER R"},
+/* 53 */  {
+	0x0053, "LATIN CAPITAL LETTER S"},
+/* 54 */  {
+	0x0054, "LATIN CAPITAL LETTER T"},
+/* 55 */  {
+	0x0055, "LATIN CAPITAL LETTER U"},
+/* 56 */  {
+	0x0056, "LATIN CAPITAL LETTER V"},
+/* 57 */  {
+	0x0057, "LATIN CAPITAL LETTER W"},
+/* 58 */  {
+	0x0058, "LATIN CAPITAL LETTER X"},
+/* 59 */  {
+	0x0059, "LATIN CAPITAL LETTER Y"},
+/* 5A */  {
+	0x005A, "LATIN CAPITAL LETTER Z"},
+/* 5B */  {
+	0x005B, "OPENING SQUARE BRACKET"},
+/* 5C */  {
+	0x005C, "BACKSLASH"},
+/* 5D */  {
+	0x005D, "CLOSING SQUARE BRACKET"},
+/* 5E */  {
+	0x005E, "SPACING CIRCUMFLEX"},
+/* 5F */  {
+	0x005F, "SPACING UNDERSCORE"},
+/* 60 */  {
+	0x0060, "SPACING GRAVE"},
+/* 61 */  {
+	0x0061, "LATIN SMALL LETTER A"},
+/* 62 */  {
+	0x0062, "LATIN SMALL LETTER B"},
+/* 63 */  {
+	0x0063, "LATIN SMALL LETTER C"},
+/* 64 */  {
+	0x0064, "LATIN SMALL LETTER D"},
+/* 65 */  {
+	0x0065, "LATIN SMALL LETTER E"},
+/* 66 */  {
+	0x0066, "LATIN SMALL LETTER F"},
+/* 67 */  {
+	0x0067, "LATIN SMALL LETTER G"},
+/* 68 */  {
+	0x0068, "LATIN SMALL LETTER H"},
+/* 69 */  {
+	0x0069, "LATIN SMALL LETTER I"},
+/* 6A */  {
+	0x006A, "LATIN SMALL LETTER J"},
+/* 6B */  {
+	0x006B, "LATIN SMALL LETTER K"},
+/* 6C */  {
+	0x006C, "LATIN SMALL LETTER L"},
+/* 6D */  {
+	0x006D, "LATIN SMALL LETTER M"},
+/* 6E */  {
+	0x006E, "LATIN SMALL LETTER N"},
+/* 6F */  {
+	0x006F, "LATIN SMALL LETTER O"},
+/* 70 */  {
+	0x0070, "LATIN SMALL LETTER P"},
+/* 71 */  {
+	0x0071, "LATIN SMALL LETTER Q"},
+/* 72 */  {
+	0x0072, "LATIN SMALL LETTER R"},
+/* 73 */  {
+	0x0073, "LATIN SMALL LETTER S"},
+/* 74 */  {
+	0x0074, "LATIN SMALL LETTER T"},
+/* 75 */  {
+	0x0075, "LATIN SMALL LETTER U"},
+/* 76 */  {
+	0x0076, "LATIN SMALL LETTER V"},
+/* 77 */  {
+	0x0077, "LATIN SMALL LETTER W"},
+/* 78 */  {
+	0x0078, "LATIN SMALL LETTER X"},
+/* 79 */  {
+	0x0079, "LATIN SMALL LETTER Y"},
+/* 7A */  {
+	0x007A, "LATIN SMALL LETTER Z"},
+/* 7B */  {
+	0x007B, "OPENING CURLY BRACKET"},
+/* 7C */  {
+	0x007C, "VERTICAL BAR"},
+/* 7D */  {
+	0x007D, "CLOSING CURLY BRACKET"},
+/* 7E */  {
+	0x007E, "TILDE"},
+/* 7F */  {
+	0x007F, "DELETE"},
+/* 80 */  {
+	0x00C7, "LATIN CAPITAL LETTER C CEDILLA"},
+/* 81 */  {
+	0x00FC, "LATIN SMALL LETTER U DIAERESIS"},
+/* 82 */  {
+	0x00E9, "LATIN SMALL LETTER E ACUTE"},
+/* 83 */  {
+	0x00E2, "LATIN SMALL LETTER A CIRCUMFLEX"},
+/* 84 */  {
+	0x00E4, "LATIN SMALL LETTER A DIAERESIS"},
+/* 85 */  {
+	0x00E0, "LATIN SMALL LETTER A GRAVE"},
+/* 86 */  {
+	0x00E5, "LATIN SMALL LETTER A RING"},
+/* 87 */  {
+	0x00E7, "LATIN SMALL LETTER C CEDILLA"},
+/* 88 */  {
+	0x00EA, "LATIN SMALL LETTER E CIRCUMFLEX"},
+/* 89 */  {
+	0x00EB, "LATIN SMALL LETTER E DIAERESIS"},
+/* 8A */  {
+	0x00E8, "LATIN SMALL LETTER E GRAVE"},
+/* 8B */  {
+	0x00EF, "LATIN SMALL LETTER I DIAERESIS"},
+/* 8C */  {
+	0x00EE, "LATIN SMALL LETTER I CIRCUMFLEX"},
+/* 8D */  {
+	0x00EC, "LATIN SMALL LETTER I GRAVE"},
+/* 8E */  {
+	0x00C4, "LATIN CAPITAL LETTER A DIAERESIS"},
+/* 8F */  {
+	0x00C5, "LATIN CAPITAL LETTER A RING"},
+/* 90 */  {
+	0x00C9, "LATIN CAPITAL LETTER E ACUTE"},
+/* 91 */  {
+	0x00E6, "LATIN SMALL LETTER A E"},
+/* 92 */  {
+	0x00C6, "LATIN CAPITAL LETTER A E"},
+/* 93 */  {
+	0x00F4, "LATIN SMALL LETTER O CIRCUMFLEX"},
+/* 94 */  {
+	0x00F6, "LATIN SMALL LETTER O DIAERESIS"},
+/* 95 */  {
+	0x00F2, "LATIN SMALL LETTER O GRAVE"},
+/* 96 */  {
+	0x00FB, "LATIN SMALL LETTER U CIRCUMFLEX"},
+/* 97 */  {
+	0x00F9, "LATIN SMALL LETTER U GRAVE"},
+/* 98 */  {
+	0x00FF, "LATIN SMALL LETTER Y DIAERESIS"},
+/* 99 */  {
+	0x00D6, "LATIN CAPITAL LETTER O DIAERESIS"},
+/* 9A */  {
+	0x00DC, "LATIN CAPITAL LETTER U DIAERESIS"},
+/* 9B */  {
+	0x00A2, "CENT SIGN"},
+/* 9C */  {
+	0x00A3, "POUND SIGN"},
+/* 9D */  {
+	0x00A5, "YEN SIGN"},
+/* 9E */  {
+	0x20A7, "PESETA SIGN"},
+/* 9F */  {
+	0x0192, "LATIN SMALL LETTER SCRIPT F"},
+/* A0 */  {
+	0x00E1, "LATIN SMALL LETTER A ACUTE"},
+/* A1 */  {
+	0x00ED, "LATIN SMALL LETTER I ACUTE"},
+/* A2 */  {
+	0x00F3, "LATIN SMALL LETTER O ACUTE"},
+/* A3 */  {
+	0x00FA, "LATIN SMALL LETTER U ACUTE"},
+/* A4 */  {
+	0x00F1, "LATIN SMALL LETTER N TILDE"},
+/* A5 */  {
+	0x00D1, "LATIN CAPITAL LETTER N TILDE"},
+/* A6 */  {
+	0x00AA, "FEMININE ORDINAL INDICATOR"},
+/* A7 */  {
+	0x00BA, "MASCULINE ORDINAL INDICATOR"},
+/* A8 */  {
+	0x00BF, "INVERTED QUESTION MARK"},
+/* A9 */  {
+	0x2310, "REVERSED NOT SIGN"},
+/* AA */  {
+	0x00AC, "NOT SIGN"},
+/* AB */  {
+	0x00BD, "FRACTION ONE HALF"},
+/* AC */  {
+	0x00BC, "FRACTION ONE QUARTER"},
+/* AD */  {
+	0x00A1, "INVERTED EXCLAMATION MARK"},
+/* AE */  {
+	0x00AB, "LEFT POINTING GUILLEMET"},
+/* AF */  {
+	0x00BB, "RIGHT POINTING GUILLEMET"},
+/* B0 */  {
+	0x2591, "LIGHT SHADE"},
+/* B1 */  {
+	0x2592, "MEDIUM SHADE"},
+/* B2 */  {
+	0x2593, "DARK SHADE"},
+/* B3 */  {
+	0x2502, "FORMS LIGHT VERTICAL"},
+/* B4 */  {
+	0x2524, "FORMS LIGHT VERTICAL AND LEFT"},
+/* B5 */  {
+	0x2561, "FORMS VERTICAL SINGLE AND LEFT DOUBLE"},
+/* B6 */  {
+	0x2562, "FORMS VERTICAL DOUBLE AND LEFT SINGLE"},
+/* B7 */  {
+	0x2556, "FORMS DOWN DOUBLE AND LEFT SINGLE"},
+/* B8 */  {
+	0x2555, "FORMS DOWN SINGLE AND LEFT DOUBLE"},
+/* B9 */  {
+	0x2563, "FORMS DOUBLE VERTICAL AND LEFT"},
+/* BA */  {
+	0x2551, "FORMS DOUBLE VERTICAL"},
+/* BB */  {
+	0x2557, "FORMS DOUBLE DOWN AND LEFT"},
+/* BC */  {
+	0x255D, "FORMS DOUBLE UP AND LEFT"},
+/* BD */  {
+	0x255C, "FORMS UP DOUBLE AND LEFT SINGLE"},
+/* BE */  {
+	0x255B, "FORMS UP SINGLE AND LEFT DOUBLE"},
+/* BF */  {
+	0x2510, "FORMS LIGHT DOWN AND LEFT"},
+/* C0 */  {
+	0x2514, "FORMS LIGHT UP AND RIGHT"},
+/* C1 */  {
+	0x2534, "FORMS LIGHT UP AND HORIZONTAL"},
+/* C2 */  {
+	0x252C, "FORMS LIGHT DOWN AND HORIZONTAL"},
+/* C3 */  {
+	0x251C, "FORMS LIGHT VERTICAL AND RIGHT"},
+/* C4 */  {
+	0x2500, "FORMS LIGHT HORIZONTAL"},
+/* C5 */  {
+	0x253C, "FORMS LIGHT VERTICAL AND HORIZONTAL"},
+/* C6 */  {
+	0x255E, "FORMS VERTICAL SINGLE AND RIGHT DOUBLE"},
+/* C7 */  {
+	0x255F, "FORMS VERTICAL DOUBLE AND RIGHT SINGLE"},
+/* C8 */  {
+	0x255A, "FORMS DOUBLE UP AND RIGHT"},
+/* C9 */  {
+	0x2554, "FORMS DOUBLE DOWN AND RIGHT"},
+/* CA */  {
+	0x2569, "FORMS DOUBLE UP AND HORIZONTAL"},
+/* CB */  {
+	0x2566, "FORMS DOUBLE DOWN AND HORIZONTAL"},
+/* CC */  {
+	0x2560, "FORMS DOUBLE VERTICAL AND RIGHT"},
+/* CD */  {
+	0x2550, "FORMS DOUBLE HORIZONTAL"},
+/* CE */  {
+	0x256C, "FORMS DOUBLE VERTICAL AND HORIZONTAL"},
+/* CF */  {
+	0x2567, "FORMS UP SINGLE AND HORIZONTAL DOUBLE"},
+/* D0 */  {
+	0x2568, "FORMS UP DOUBLE AND HORIZONTAL SINGLE"},
+/* D1 */  {
+	0x2564, "FORMS DOWN SINGLE AND HORIZONTAL DOUBLE"},
+/* D2 */  {
+	0x2565, "FORMS DOWN DOUBLE AND HORIZONTAL SINGLE"},
+/* D3 */  {
+	0x2559, "FORMS UP DOUBLE AND RIGHT SINGLE"},
+/* D4 */  {
+	0x2558, "FORMS UP SINGLE AND RIGHT DOUBLE"},
+/* D5 */  {
+	0x2552, "FORMS DOWN SINGLE AND RIGHT DOUBLE"},
+/* D6 */  {
+	0x2553, "FORMS DOWN DOUBLE AND RIGHT SINGLE"},
+/* D7 */  {
+	0x256B, "FORMS VERTICAL DOUBLE AND HORIZONTAL SINGLE"},
+/* D8 */  {
+	0x256A, "FORMS VERTICAL SINGLE AND HORIZONTAL DOUBLE"},
+/* D9 */  {
+	0x2518, "FORMS LIGHT UP AND LEFT"},
+/* DA */  {
+	0x250C, "FORMS LIGHT DOWN AND RIGHT"},
+/* DB */  {
+	0x2588, "FULL BLOCK"},
+/* DC */  {
+	0x2584, "LOWER HALF BLOCK"},
+/* DD */  {
+	0x258C, "LEFT HALF BLOCK"},
+/* DE */  {
+	0x2590, "RIGHT HALF BLOCK"},
+/* DF */  {
+	0x2580, "UPPER HALF BLOCK"},
+/* E0 */  {
+	0x03B1, "GREEK SMALL LETTER ALPHA"},
+/* E1 */  {
+	0x00DF, "LATIN SMALL LETTER SHARP S"},
+/* E2 */  {
+	0x0393, "GREEK CAPITAL LETTER GAMMA"},
+/* E3 */  {
+	0x03C0, "GREEK SMALL LETTER PI"},
+/* E4 */  {
+	0x03A3, "GREEK CAPITAL LETTER SIGMA"},
+/* E5 */  {
+	0x03C3, "GREEK SMALL LETTER SIGMA"},
+/* E6 */  {
+	0x00B5, "MICRO SIGN"},
+/* E7 */  {
+	0x03C4, "GREEK SMALL LETTER TAU"},
+/* E8 */  {
+	0x03A6, "GREEK CAPITAL LETTER PHI"},
+/* E9 */  {
+	0x0398, "GREEK CAPITAL LETTER THETA"},
+/* EA */  {
+	0x03A9, "GREEK CAPITAL LETTER OMEGA"},
+/* EB */  {
+	0x03B4, "GREEK SMALL LETTER DELTA"},
+/* EC */  {
+	0x221E, "INFINITY"},
+/* ED */  {
+	0x03C6, "GREEK SMALL LETTER PHI"},
+/* EE */  {
+	0x03B5, "GREEK SMALL LETTER EPSILON"},
+/* EF */  {
+	0x2229, "INTERSECTION"},
+/* F0 */  {
+	0x2261, "IDENTICAL TO"},
+/* F1 */  {
+	0x00B1, "PLUS-OR-MINUS SIGN"},
+/* F2 */  {
+	0x2265, "GREATER THAN OR EQUAL TO"},
+/* F3 */  {
+	0x2264, "LESS THAN OR EQUAL TO"},
+/* F4 */  {
+	0x2320, "TOP HALF INTEGRAL"},
+/* F5 */  {
+	0x2321, "BOTTOM HALF INTEGRAL"},
+/* F6 */  {
+	0x00F7, "DIVISION SIGN"},
+/* F7 */  {
+	0x2248, "ALMOST EQUAL TO"},
+/* F8 */  {
+	0x00B0, "DEGREE SIGN"},
+/* F9 */  {
+	0x2219, "BULLET OPERATOR"},
+/* FA */  {
+	0x00B7, "MIDDLE DOT"},
+/* FB */  {
+	0x221A, "SQUARE ROOT"},
+/* FC */  {
+	0x207F, "SUPERSCRIPT LATIN SMALL LETTER N"},
+/* FD */  {
+	0x00B2, "SUPERSCRIPT DIGIT TWO"},
+/* FE */  {
+	0x25A0, "BLACK SQUARE"},
+/* FF */  {
+	0x00A0, "NON-BREAKING SPACE"}
+};
+#endif
diff --git a/src/intl/turk.h b/src/intl/turk.h
new file mode 100644
index 0000000000..1f88ca9152
--- /dev/null
+++ b/src/intl/turk.h
@@ -0,0 +1,970 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*------------ Generated file!   Do Not Edit! ------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*--------------------------------------------------------*/
+/*----------- Generated by cvt.c from 0000turk -----------*/
+/*----------- On      Fri May 13 17:41:33 1994 -----------*/
+
+/*  turk.def */
+/*  Generated on Fri May 13 17:41:28 1994
+ */
+/*  from input file 'cfg/turk.cfg' */
+/*  by LDCFG Version 1.4 (UNIX) Copyright (c) Borland International 1991, 1992, 1993
+ */
+/*  Language Driver/API version 1.1 */
+
+#define LDRV_DRIVERID               pxTURK
+
+
+#define LDRV_CTRYLANGID             TURKEY
+
+
+#define LDRV_PRIMARYCPID            857
+
+
+#define LDRV_PID                    PDOX
+
+
+#define LDRV_ALTCPID                1254
+
+
+#define LDRV_PRIMPLAT               OEM_CP
+
+
+#define LDRV_ALTPLAT                ANSI_CP
+
+
+#define LDRV_SORTTYPE               DICT_SORT
+
+
+#define LDRV_NAME                   "Paradox 'turk'"
+
+
+#define LDRV_FNAME                  "turk"
+
+
+#define NUM_EXPAND_CHARS            5
+
+
+#define NUM_COMPRESS_CHARS          0
+
+
+#define LDRV_MAJOR                  LD_MAJOR
+
+
+#define LDRV_MINOR                  LD_MINOR
+
+
+#define CHARDEF_SUP                 YES
+
+
+#define LOWERCASE_SUP               YES
+
+
+#define UPPERCASE_SUP               YES
+
+
+#define CASESORT_SUP                YES
+
+
+#define NOCASESORT_SUP              YES
+
+
+#define EXPAND_SUP                  YES
+
+
+#define COMPRESS_SUP                YES
+
+
+#define SOUNDEX_SUP                 YES
+
+
+#define LICSCP_SUP                  YES
+
+
+#define CPLICS_SUP                  YES
+
+
+#define PRIMALT_SUP                 YES
+
+
+#define ALTPRIM_SUP                 YES
+
+
+#define CHARDEF_LEN                 256
+
+
+#define LOWERCASE_LEN               256
+
+
+#define UPPERCASE_LEN               256
+
+
+#define CASESORT_LEN                256
+
+
+#define NOCASESORT_LEN              256
+
+
+#define SOUNDEX_LEN                 256
+
+
+#define LICSTOCP_LEN                256
+
+
+#define CPTOLICS_LEN                256
+
+
+#define PRIMALT_LEN                 256
+
+
+#define ALTPRIM_LEN                 256
+
+
+#define NUMBER_TABLE_OFFSETS        14
+
+
+#define LDRV_TIEBREAK               LOCAL_EXPAND
+
+
+#define BASE_LEN               256
+
+
+#define BASE_SUP               YES
+
+
+#define LDRV_REVISION          3
+
+
+/* End of langdrv/turk.def */
+
+#define MAX_NCO_PRIMARY  	175
+#define MAX_NCO_SECONDARY	 14
+#define MAX_NCO_TERTIARY 	  0
+#define MAX_NCO_IGNORE   	  0
+#define NULL_SECONDARY   	0
+#define NULL_TERTIARY    	0
+#define FIRST_IGNORE     	1
+#define FIRST_TERTIARY   	1
+#define FIRST_SECONDARY  	(FIRST_TERTIARY+MAX_NCO_TERTIARY+1)
+#define FIRST_PRIMARY    	(FIRST_SECONDARY+MAX_NCO_SECONDARY+1)
+static CONST BYTE ToUpperConversionTbl[UPPERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	65,							/* A  65 -> A  65 */
+	66,							/* B  66 -> B  66 */
+	67,							/* C  67 -> C  67 */
+	68,							/* D  68 -> D  68 */
+	69,							/* E  69 -> E  69 */
+	70,							/* F  70 -> F  70 */
+	71,							/* G  71 -> G  71 */
+	72,							/* H  72 -> H  72 */
+	73,							/* I  73 -> I  73 */
+	74,							/* J  74 -> J  74 */
+	75,							/* K  75 -> K  75 */
+	76,							/* L  76 -> L  76 */
+	77,							/* M  77 -> M  77 */
+	78,							/* N  78 -> N  78 */
+	79,							/* O  79 -> O  79 */
+	80,							/* P  80 -> P  80 */
+	81,							/* Q  81 -> Q  81 */
+	82,							/* R  82 -> R  82 */
+	83,							/* S  83 -> S  83 */
+	84,							/* T  84 -> T  84 */
+	85,							/* U  85 -> U  85 */
+	86,							/* V  86 -> V  86 */
+	87,							/* W  87 -> W  87 */
+	88,							/* X  88 -> X  88 */
+	89,							/* Y  89 -> Y  89 */
+	90,							/* Z  90 -> Z  90 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	65,							/* a  97 -> A  65 */
+	66,							/* b  98 -> B  66 */
+	67,							/* c  99 -> C  67 */
+	68,							/* d 100 -> D  68 */
+	69,							/* e 101 -> E  69 */
+	70,							/* f 102 -> F  70 */
+	71,							/* g 103 -> G  71 */
+	72,							/* h 104 -> H  72 */
+	152,						/* i 105 ->   152 */
+	74,							/* j 106 -> J  74 */
+	75,							/* k 107 -> K  75 */
+	76,							/* l 108 -> L  76 */
+	77,							/* m 109 -> M  77 */
+	78,							/* n 110 -> N  78 */
+	79,							/* o 111 -> O  79 */
+	80,							/* p 112 -> P  80 */
+	81,							/* q 113 -> Q  81 */
+	82,							/* r 114 -> R  82 */
+	83,							/* s 115 -> S  83 */
+	84,							/* t 116 -> T  84 */
+	85,							/* u 117 -> U  85 */
+	86,							/* v 118 -> V  86 */
+	87,							/* w 119 -> W  87 */
+	88,							/* x 120 -> X  88 */
+	89,							/* y 121 -> Y  89 */
+	90,							/* z 122 -> Z  90 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	128,						/*   128 ->   128 */
+	154,						/*   129 ->   154 */
+	144,						/*   130 ->   144 */
+	182,						/*   131 -> ¶ 182 */
+	142,						/*   132 ->   142 */
+	183,						/*   133 -> · 183 */
+	143,						/*   134 ->   143 */
+	128,						/*   135 ->   128 */
+	210,						/*   136 -> Ò 210 */
+	211,						/*   137 -> Ó 211 */
+	212,						/*   138 -> Ô 212 */
+	216,						/*   139 -> Ø 216 */
+	215,						/*   140 -> × 215 */
+	73,							/*   141 -> I  73 */
+	142,						/*   142 ->   142 */
+	143,						/*   143 ->   143 */
+	144,						/*   144 ->   144 */
+	146,						/*   145 ->   146 */
+	146,						/*   146 ->   146 */
+	226,						/*   147 -> â 226 */
+	153,						/*   148 ->   153 */
+	227,						/*   149 -> ã 227 */
+	234,						/*   150 -> ê 234 */
+	235,						/*   151 -> ë 235 */
+	152,						/*   152 ->   152 */
+	153,						/*   153 ->   153 */
+	154,						/*   154 ->   154 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	158,						/*   158 ->   158 */
+	158,						/*   159 ->   158 */
+	181,						/*   160 -> µ 181 */
+	214,						/* ¡ 161 -> Ö 214 */
+	224,						/* ¢ 162 -> à 224 */
+	233,						/* £ 163 -> é 233 */
+	165,						/* ¤ 164 -> ¥ 165 */
+	165,						/* ¥ 165 -> ¥ 165 */
+	166,						/* ¦ 166 -> ¦ 166 */
+	166,						/* § 167 -> ¦ 166 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	181,						/* µ 181 -> µ 181 */
+	182,						/* ¶ 182 -> ¶ 182 */
+	183,						/* · 183 -> · 183 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	199,						/* Æ 198 -> Ç 199 */
+	199,						/* Ç 199 -> Ç 199 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	210,						/* Ò 210 -> Ò 210 */
+	211,						/* Ó 211 -> Ó 211 */
+	212,						/* Ô 212 -> Ô 212 */
+	213,						/* Õ 213 -> Õ 213 */
+	214,						/* Ö 214 -> Ö 214 */
+	215,						/* × 215 -> × 215 */
+	216,						/* Ø 216 -> Ø 216 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	222,						/* Þ 222 -> Þ 222 */
+	223,						/* ß 223 -> ß 223 */
+	224,						/* à 224 -> à 224 */
+	225,						/* á 225 -> á 225 */
+	226,						/* â 226 -> â 226 */
+	227,						/* ã 227 -> ã 227 */
+	229,						/* ä 228 -> å 229 */
+	229,						/* å 229 -> å 229 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	233,						/* é 233 -> é 233 */
+	234,						/* ê 234 -> ê 234 */
+	235,						/* ë 235 -> ë 235 */
+	222,						/* ì 236 -> Þ 222 */
+	89,							/* í 237 -> Y  89 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST BYTE ToLowerConversionTbl[LOWERCASE_LEN] = {
+	0,							/*     0 ->     0 */
+	1,							/*     1 ->     1 */
+	2,							/*     2 ->     2 */
+	3,							/*     3 ->     3 */
+	4,							/*     4 ->     4 */
+	5,							/*     5 ->     5 */
+	6,							/*     6 ->     6 */
+	7,							/*     7 ->     7 */
+	8,							/*     8 ->     8 */
+	9,							/*     9 ->     9 */
+	10,							/*    10 ->    10 */
+	11,							/*    11 ->    11 */
+	12,							/*    12 ->    12 */
+	13,							/*    13 ->    13 */
+	14,							/*    14 ->    14 */
+	15,							/*    15 ->    15 */
+	16,							/*    16 ->    16 */
+	17,							/*    17 ->    17 */
+	18,							/*    18 ->    18 */
+	19,							/*    19 ->    19 */
+	20,							/*    20 ->    20 */
+	21,							/*    21 ->    21 */
+	22,							/*    22 ->    22 */
+	23,							/*    23 ->    23 */
+	24,							/*    24 ->    24 */
+	25,							/*    25 ->    25 */
+	26,							/*    26 ->    26 */
+	27,							/*    27 ->    27 */
+	28,							/*    28 ->    28 */
+	29,							/*    29 ->    29 */
+	30,							/*    30 ->    30 */
+	31,							/*    31 ->    31 */
+	32,							/*    32 ->    32 */
+	33,							/* !  33 -> !  33 */
+	34,							/* "  34 -> "  34 */
+	35,							/* #  35 -> #  35 */
+	36,							/* $  36 -> $  36 */
+	37,							/* %  37 -> %  37 */
+	38,							/* &  38 -> &  38 */
+	39,							/* '  39 -> '  39 */
+	40,							/* (  40 -> (  40 */
+	41,							/* )  41 -> )  41 */
+	42,							/* *  42 -> *  42 */
+	43,							/* +  43 -> +  43 */
+	44,							/* ,  44 -> ,  44 */
+	45,							/* -  45 -> -  45 */
+	46,							/* .  46 -> .  46 */
+	47,							/* /  47 -> /  47 */
+	48,							/* 0  48 -> 0  48 */
+	49,							/* 1  49 -> 1  49 */
+	50,							/* 2  50 -> 2  50 */
+	51,							/* 3  51 -> 3  51 */
+	52,							/* 4  52 -> 4  52 */
+	53,							/* 5  53 -> 5  53 */
+	54,							/* 6  54 -> 6  54 */
+	55,							/* 7  55 -> 7  55 */
+	56,							/* 8  56 -> 8  56 */
+	57,							/* 9  57 -> 9  57 */
+	58,							/* :  58 -> :  58 */
+	59,							/* ;  59 -> ;  59 */
+	60,							/* <  60 -> <  60 */
+	61,							/* =  61 -> =  61 */
+	62,							/* >  62 -> >  62 */
+	63,							/* ?  63 -> ?  63 */
+	64,							/* @  64 -> @  64 */
+	97,							/* A  65 -> a  97 */
+	98,							/* B  66 -> b  98 */
+	99,							/* C  67 -> c  99 */
+	100,						/* D  68 -> d 100 */
+	101,						/* E  69 -> e 101 */
+	102,						/* F  70 -> f 102 */
+	103,						/* G  71 -> g 103 */
+	104,						/* H  72 -> h 104 */
+	141,						/* I  73 ->   141 */
+	106,						/* J  74 -> j 106 */
+	107,						/* K  75 -> k 107 */
+	108,						/* L  76 -> l 108 */
+	109,						/* M  77 -> m 109 */
+	110,						/* N  78 -> n 110 */
+	111,						/* O  79 -> o 111 */
+	112,						/* P  80 -> p 112 */
+	113,						/* Q  81 -> q 113 */
+	114,						/* R  82 -> r 114 */
+	115,						/* S  83 -> s 115 */
+	116,						/* T  84 -> t 116 */
+	117,						/* U  85 -> u 117 */
+	118,						/* V  86 -> v 118 */
+	119,						/* W  87 -> w 119 */
+	120,						/* X  88 -> x 120 */
+	121,						/* Y  89 -> y 121 */
+	122,						/* Z  90 -> z 122 */
+	91,							/* [  91 -> [  91 */
+	92,							/* \  92 -> \  92 */
+	93,							/* ]  93 -> ]  93 */
+	94,							/* ^  94 -> ^  94 */
+	95,							/* _  95 -> _  95 */
+	96,							/* `  96 -> `  96 */
+	97,							/* a  97 -> a  97 */
+	98,							/* b  98 -> b  98 */
+	99,							/* c  99 -> c  99 */
+	100,						/* d 100 -> d 100 */
+	101,						/* e 101 -> e 101 */
+	102,						/* f 102 -> f 102 */
+	103,						/* g 103 -> g 103 */
+	104,						/* h 104 -> h 104 */
+	105,						/* i 105 -> i 105 */
+	106,						/* j 106 -> j 106 */
+	107,						/* k 107 -> k 107 */
+	108,						/* l 108 -> l 108 */
+	109,						/* m 109 -> m 109 */
+	110,						/* n 110 -> n 110 */
+	111,						/* o 111 -> o 111 */
+	112,						/* p 112 -> p 112 */
+	113,						/* q 113 -> q 113 */
+	114,						/* r 114 -> r 114 */
+	115,						/* s 115 -> s 115 */
+	116,						/* t 116 -> t 116 */
+	117,						/* u 117 -> u 117 */
+	118,						/* v 118 -> v 118 */
+	119,						/* w 119 -> w 119 */
+	120,						/* x 120 -> x 120 */
+	121,						/* y 121 -> y 121 */
+	122,						/* z 122 -> z 122 */
+	123,						/* { 123 -> { 123 */
+	124,						/* | 124 -> | 124 */
+	125,						/* } 125 -> } 125 */
+	126,						/* ~ 126 -> ~ 126 */
+	127,						/*   127 ->   127 */
+	135,						/*   128 ->   135 */
+	129,						/*   129 ->   129 */
+	130,						/*   130 ->   130 */
+	131,						/*   131 ->   131 */
+	132,						/*   132 ->   132 */
+	133,						/*   133 ->   133 */
+	134,						/*   134 ->   134 */
+	135,						/*   135 ->   135 */
+	136,						/*   136 ->   136 */
+	137,						/*   137 ->   137 */
+	138,						/*   138 ->   138 */
+	139,						/*   139 ->   139 */
+	140,						/*   140 ->   140 */
+	141,						/*   141 ->   141 */
+	132,						/*   142 ->   132 */
+	134,						/*   143 ->   134 */
+	130,						/*   144 ->   130 */
+	145,						/*   145 ->   145 */
+	145,						/*   146 ->   145 */
+	147,						/*   147 ->   147 */
+	148,						/*   148 ->   148 */
+	149,						/*   149 ->   149 */
+	150,						/*   150 ->   150 */
+	151,						/*   151 ->   151 */
+	105,						/*   152 -> i 105 */
+	148,						/*   153 ->   148 */
+	129,						/*   154 ->   129 */
+	155,						/*   155 ->   155 */
+	156,						/*   156 ->   156 */
+	157,						/*   157 ->   157 */
+	159,						/*   158 ->   159 */
+	159,						/*   159 ->   159 */
+	160,						/*   160 ->   160 */
+	161,						/* ¡ 161 -> ¡ 161 */
+	162,						/* ¢ 162 -> ¢ 162 */
+	163,						/* £ 163 -> £ 163 */
+	164,						/* ¤ 164 -> ¤ 164 */
+	164,						/* ¥ 165 -> ¤ 164 */
+	167,						/* ¦ 166 -> § 167 */
+	167,						/* § 167 -> § 167 */
+	168,						/* ¨ 168 -> ¨ 168 */
+	169,						/* © 169 -> © 169 */
+	170,						/* ª 170 -> ª 170 */
+	171,						/* « 171 -> « 171 */
+	172,						/* ¬ 172 -> ¬ 172 */
+	173,						/* ­ 173 -> ­ 173 */
+	174,						/* ® 174 -> ® 174 */
+	175,						/* ¯ 175 -> ¯ 175 */
+	176,						/* ° 176 -> ° 176 */
+	177,						/* ± 177 -> ± 177 */
+	178,						/* ² 178 -> ² 178 */
+	179,						/* ³ 179 -> ³ 179 */
+	180,						/* ´ 180 -> ´ 180 */
+	160,						/* µ 181 ->   160 */
+	131,						/* ¶ 182 ->   131 */
+	133,						/* · 183 ->   133 */
+	184,						/* ¸ 184 -> ¸ 184 */
+	185,						/* ¹ 185 -> ¹ 185 */
+	186,						/* º 186 -> º 186 */
+	187,						/* » 187 -> » 187 */
+	188,						/* ¼ 188 -> ¼ 188 */
+	189,						/* ½ 189 -> ½ 189 */
+	190,						/* ¾ 190 -> ¾ 190 */
+	191,						/* ¿ 191 -> ¿ 191 */
+	192,						/* À 192 -> À 192 */
+	193,						/* Á 193 -> Á 193 */
+	194,						/* Â 194 -> Â 194 */
+	195,						/* Ã 195 -> Ã 195 */
+	196,						/* Ä 196 -> Ä 196 */
+	197,						/* Å 197 -> Å 197 */
+	198,						/* Æ 198 -> Æ 198 */
+	198,						/* Ç 199 -> Æ 198 */
+	200,						/* È 200 -> È 200 */
+	201,						/* É 201 -> É 201 */
+	202,						/* Ê 202 -> Ê 202 */
+	203,						/* Ë 203 -> Ë 203 */
+	204,						/* Ì 204 -> Ì 204 */
+	205,						/* Í 205 -> Í 205 */
+	206,						/* Î 206 -> Î 206 */
+	207,						/* Ï 207 -> Ï 207 */
+	208,						/* Ð 208 -> Ð 208 */
+	209,						/* Ñ 209 -> Ñ 209 */
+	136,						/* Ò 210 ->   136 */
+	137,						/* Ó 211 ->   137 */
+	138,						/* Ô 212 ->   138 */
+	213,						/* Õ 213 -> Õ 213 */
+	161,						/* Ö 214 -> ¡ 161 */
+	140,						/* × 215 ->   140 */
+	139,						/* Ø 216 ->   139 */
+	217,						/* Ù 217 -> Ù 217 */
+	218,						/* Ú 218 -> Ú 218 */
+	219,						/* Û 219 -> Û 219 */
+	220,						/* Ü 220 -> Ü 220 */
+	221,						/* Ý 221 -> Ý 221 */
+	236,						/* Þ 222 -> ì 236 */
+	223,						/* ß 223 -> ß 223 */
+	162,						/* à 224 -> ¢ 162 */
+	225,						/* á 225 -> á 225 */
+	147,						/* â 226 ->   147 */
+	149,						/* ã 227 ->   149 */
+	228,						/* ä 228 -> ä 228 */
+	228,						/* å 229 -> ä 228 */
+	230,						/* æ 230 -> æ 230 */
+	231,						/* ç 231 -> ç 231 */
+	232,						/* è 232 -> è 232 */
+	163,						/* é 233 -> £ 163 */
+	150,						/* ê 234 ->   150 */
+	151,						/* ë 235 ->   151 */
+	236,						/* ì 236 -> ì 236 */
+	237,						/* í 237 -> í 237 */
+	238,						/* î 238 -> î 238 */
+	239,						/* ï 239 -> ï 239 */
+	240,						/* ð 240 -> ð 240 */
+	241,						/* ñ 241 -> ñ 241 */
+	242,						/* ò 242 -> ò 242 */
+	243,						/* ó 243 -> ó 243 */
+	244,						/* ô 244 -> ô 244 */
+	245,						/* õ 245 -> õ 245 */
+	246,						/* ö 246 -> ö 246 */
+	247,						/* ÷ 247 -> ÷ 247 */
+	248,						/* ø 248 -> ø 248 */
+	249,						/* ù 249 -> ù 249 */
+	250,						/* ú 250 -> ú 250 */
+	251,						/* û 251 -> û 251 */
+	252,						/* ü 252 -> ü 252 */
+	253,						/* ý 253 -> ý 253 */
+	254,						/* þ 254 -> þ 254 */
+	255							/*   255 ->   255 */
+};
+
+static CONST struct ExpandChar ExpansionTbl[NUM_EXPAND_CHARS + 1] = {
+	{132, 97, 101},				/* „ -> ae */
+	{142, 65, 69},				/* Ž -> AE */
+	{225, 83, 115},				/* á -> Ss */
+	{146, 65, 69},				/* ’ -> AE */
+	{145, 97, 101},				/* ‘ -> ae */
+	{0, 0, 0}					/* END OF TABLE */
+};
+
+static CONST struct CompressPair CompressTbl[NUM_COMPRESS_CHARS + 1] = {
+	{{0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}	/*END OF TABLE */
+};
+
+static CONST struct SortOrderTblEntry NoCaseOrderTbl[NOCASESORT_LEN] = {
+	{FIRST_PRIMARY + 0, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   0   */
+	{FIRST_PRIMARY + 1, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   1   */
+	{FIRST_PRIMARY + 2, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   2   */
+	{FIRST_PRIMARY + 3, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   3   */
+	{FIRST_PRIMARY + 4, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   4   */
+	{FIRST_PRIMARY + 5, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   5   */
+	{FIRST_PRIMARY + 6, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   6   */
+	{FIRST_PRIMARY + 7, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   7   */
+	{FIRST_PRIMARY + 8, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   8   */
+	{FIRST_PRIMARY + 9, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*   9   */
+	{FIRST_PRIMARY + 10, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  10   */
+	{FIRST_PRIMARY + 11, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  11   */
+	{FIRST_PRIMARY + 12, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  12   */
+	{FIRST_PRIMARY + 13, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  13   */
+	{FIRST_PRIMARY + 14, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  14   */
+	{FIRST_PRIMARY + 15, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  15   */
+	{FIRST_PRIMARY + 16, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  16   */
+	{FIRST_PRIMARY + 17, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  17   */
+	{FIRST_PRIMARY + 18, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  18   */
+	{FIRST_PRIMARY + 19, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  19   */
+	{FIRST_PRIMARY + 20, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  20   */
+	{FIRST_PRIMARY + 21, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  21   */
+	{FIRST_PRIMARY + 22, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  22   */
+	{FIRST_PRIMARY + 23, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  23   */
+	{FIRST_PRIMARY + 24, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  24   */
+	{FIRST_PRIMARY + 25, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  25   */
+	{FIRST_PRIMARY + 26, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  26   */
+	{FIRST_PRIMARY + 27, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  27   */
+	{FIRST_PRIMARY + 28, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  28   */
+	{FIRST_PRIMARY + 29, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  29   */
+	{FIRST_PRIMARY + 30, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  30   */
+	{FIRST_PRIMARY + 31, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  31   */
+	{FIRST_PRIMARY + 32, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  32   */
+	{FIRST_PRIMARY + 33, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  33 ! */
+	{FIRST_PRIMARY + 34, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  34 " */
+	{FIRST_PRIMARY + 35, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  35 # */
+	{FIRST_PRIMARY + 36, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  36 $ */
+	{FIRST_PRIMARY + 37, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  37 % */
+	{FIRST_PRIMARY + 38, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  38 & */
+	{FIRST_PRIMARY + 39, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  39 ' */
+	{FIRST_PRIMARY + 40, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  40 ( */
+	{FIRST_PRIMARY + 41, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  41 ) */
+	{FIRST_PRIMARY + 42, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  42 * */
+	{FIRST_PRIMARY + 43, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  43 + */
+	{FIRST_PRIMARY + 44, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  44 , */
+	{FIRST_PRIMARY + 45, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  45 - */
+	{FIRST_PRIMARY + 46, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  46 . */
+	{FIRST_PRIMARY + 47, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  47 / */
+	{FIRST_PRIMARY + 48, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  48 0 */
+	{FIRST_PRIMARY + 49, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  49 1 */
+	{FIRST_PRIMARY + 50, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  50 2 */
+	{FIRST_PRIMARY + 51, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  51 3 */
+	{FIRST_PRIMARY + 52, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  52 4 */
+	{FIRST_PRIMARY + 53, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  53 5 */
+	{FIRST_PRIMARY + 54, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  54 6 */
+	{FIRST_PRIMARY + 55, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  55 7 */
+	{FIRST_PRIMARY + 56, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  56 8 */
+	{FIRST_PRIMARY + 57, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  57 9 */
+	{FIRST_PRIMARY + 58, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  58 : */
+	{FIRST_PRIMARY + 59, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  59 ; */
+	{FIRST_PRIMARY + 60, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  60 < */
+	{FIRST_PRIMARY + 61, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  61 = */
+	{FIRST_PRIMARY + 62, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  62 > */
+	{FIRST_PRIMARY + 63, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  63 ? */
+	{FIRST_PRIMARY + 64, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  64 @ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/*  65 A */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  66 B */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  67 C */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  68 D */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  69 E */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  70 F */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  71 G */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  72 H */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  73 I */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  74 J */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  75 K */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  76 L */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  77 M */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  78 N */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/*  79 O */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  80 P */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  81 Q */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  82 R */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  83 S */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  84 T */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/*  85 U */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  86 V */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  87 W */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  88 X */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/*  89 Y */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/*  90 Z */
+	{FIRST_PRIMARY + 97, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  91 [ */
+	{FIRST_PRIMARY + 98, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  92 \ */
+	{FIRST_PRIMARY + 99, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  93 ] */
+	{FIRST_PRIMARY + 100, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  94 ^ */
+	{FIRST_PRIMARY + 101, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  95 _ */
+	{FIRST_PRIMARY + 102, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/*  96 ` */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  97 a */
+	{FIRST_PRIMARY + 66, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  98 b */
+	{FIRST_PRIMARY + 67, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/*  99 c */
+	{FIRST_PRIMARY + 69, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 100 d */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 101 e */
+	{FIRST_PRIMARY + 71, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 102 f */
+	{FIRST_PRIMARY + 72, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 103 g */
+	{FIRST_PRIMARY + 74, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 104 h */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 105 i */
+	{FIRST_PRIMARY + 77, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 106 j */
+	{FIRST_PRIMARY + 78, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 107 k */
+	{FIRST_PRIMARY + 79, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 108 l */
+	{FIRST_PRIMARY + 80, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 109 m */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 110 n */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 111 o */
+	{FIRST_PRIMARY + 84, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 112 p */
+	{FIRST_PRIMARY + 85, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 113 q */
+	{FIRST_PRIMARY + 86, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 114 r */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 115 s */
+	{FIRST_PRIMARY + 89, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 116 t */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 117 u */
+	{FIRST_PRIMARY + 92, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 118 v */
+	{FIRST_PRIMARY + 93, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 119 w */
+	{FIRST_PRIMARY + 94, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 120 x */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 121 y */
+	{FIRST_PRIMARY + 96, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 122 z */
+	{FIRST_PRIMARY + 103, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 123 { */
+	{FIRST_PRIMARY + 104, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 124 | */
+	{FIRST_PRIMARY + 105, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 125 } */
+	{FIRST_PRIMARY + 106, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 126 ~ */
+	{FIRST_PRIMARY + 107, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 127   */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 128   */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 129   */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 130   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 131   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 14, NULL_TERTIARY, 1, 0},	/* 132   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 133   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 134   */
+	{FIRST_PRIMARY + 68, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 135   */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 136   */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 137   */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 138   */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 139   */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 140   */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 141   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 14, NULL_TERTIARY, 1, 0},	/* 142   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 143   */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 144   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 145   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 13, NULL_TERTIARY, 0, 0},	/* 146   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 147   */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 148   */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 149   */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 150   */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 2, NULL_TERTIARY, 0, 0},	/* 151   */
+	{FIRST_PRIMARY + 76, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 152   */
+	{FIRST_PRIMARY + 83, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 153   */
+	{FIRST_PRIMARY + 91, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 154   */
+	{FIRST_PRIMARY + 108, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 155   */
+	{FIRST_PRIMARY + 109, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 156   */
+	{FIRST_PRIMARY + 110, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 157   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 158   */
+	{FIRST_PRIMARY + 88, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 159   */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 160   */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 161 ¡ */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 162 ¢ */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 163 £ */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 164 ¤ */
+	{FIRST_PRIMARY + 81, FIRST_SECONDARY + 3, NULL_TERTIARY, 0, 0},	/* 165 ¥ */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 166 ¦ */
+	{FIRST_PRIMARY + 73, FIRST_SECONDARY + 0, NULL_TERTIARY, 0, 0},	/* 167 § */
+	{FIRST_PRIMARY + 111, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 168 ¨ */
+	{FIRST_PRIMARY + 112, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 169 © */
+	{FIRST_PRIMARY + 113, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 170 ª */
+	{FIRST_PRIMARY + 114, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 171 « */
+	{FIRST_PRIMARY + 115, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 172 ¬ */
+	{FIRST_PRIMARY + 116, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 173 ­ */
+	{FIRST_PRIMARY + 117, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 174 ® */
+	{FIRST_PRIMARY + 118, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 175 ¯ */
+	{FIRST_PRIMARY + 119, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 176 ° */
+	{FIRST_PRIMARY + 120, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 177 ± */
+	{FIRST_PRIMARY + 121, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 178 ² */
+	{FIRST_PRIMARY + 122, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 179 ³ */
+	{FIRST_PRIMARY + 123, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 180 ´ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 11, NULL_TERTIARY, 0, 0},	/* 181 µ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 10, NULL_TERTIARY, 0, 0},	/* 182 ¶ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 183 · */
+	{FIRST_PRIMARY + 124, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 184 ¸ */
+	{FIRST_PRIMARY + 125, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 185 ¹ */
+	{FIRST_PRIMARY + 126, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 186 º */
+	{FIRST_PRIMARY + 127, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 187 » */
+	{FIRST_PRIMARY + 128, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 188 ¼ */
+	{FIRST_PRIMARY + 129, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 189 ½ */
+	{FIRST_PRIMARY + 130, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 190 ¾ */
+	{FIRST_PRIMARY + 131, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 191 ¿ */
+	{FIRST_PRIMARY + 132, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 192 À */
+	{FIRST_PRIMARY + 133, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 193 Á */
+	{FIRST_PRIMARY + 134, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 194 Â */
+	{FIRST_PRIMARY + 135, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 195 Ã */
+	{FIRST_PRIMARY + 136, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 196 Ä */
+	{FIRST_PRIMARY + 137, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 197 Å */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 198 Æ */
+	{FIRST_PRIMARY + 65, FIRST_SECONDARY + 12, NULL_TERTIARY, 0, 0},	/* 199 Ç */
+	{FIRST_PRIMARY + 138, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 200 È */
+	{FIRST_PRIMARY + 139, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 201 É */
+	{FIRST_PRIMARY + 140, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 202 Ê */
+	{FIRST_PRIMARY + 141, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 203 Ë */
+	{FIRST_PRIMARY + 142, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 204 Ì */
+	{FIRST_PRIMARY + 143, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 205 Í */
+	{FIRST_PRIMARY + 144, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 206 Î */
+	{FIRST_PRIMARY + 145, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 207 Ï */
+	{FIRST_PRIMARY + 146, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 208 Ð */
+	{FIRST_PRIMARY + 147, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 209 Ñ */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 210 Ò */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 211 Ó */
+	{FIRST_PRIMARY + 70, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 212 Ô */
+	{FIRST_PRIMARY + 148, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 213 Õ */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 214 Ö */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 215 × */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 216 Ø */
+	{FIRST_PRIMARY + 149, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 217 Ù */
+	{FIRST_PRIMARY + 150, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 218 Ú */
+	{FIRST_PRIMARY + 151, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 219 Û */
+	{FIRST_PRIMARY + 152, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 220 Ü */
+	{FIRST_PRIMARY + 153, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 221 Ý */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 222 Þ */
+	{FIRST_PRIMARY + 154, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 223 ß */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 224 à */
+	{FIRST_PRIMARY + 87, FIRST_SECONDARY + 2, NULL_TERTIARY, 1, 0},	/* 225 á */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 226 â */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 8, NULL_TERTIARY, 0, 0},	/* 227 ã */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 228 ä */
+	{FIRST_PRIMARY + 82, FIRST_SECONDARY + 9, NULL_TERTIARY, 0, 0},	/* 229 å */
+	{FIRST_PRIMARY + 155, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 230 æ */
+	{FIRST_PRIMARY + 156, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 231 ç */
+	{FIRST_PRIMARY + 157, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 232 è */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 5, NULL_TERTIARY, 0, 0},	/* 233 é */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 6, NULL_TERTIARY, 0, 0},	/* 234 ê */
+	{FIRST_PRIMARY + 90, FIRST_SECONDARY + 7, NULL_TERTIARY, 0, 0},	/* 235 ë */
+	{FIRST_PRIMARY + 75, FIRST_SECONDARY + 4, NULL_TERTIARY, 0, 0},	/* 236 ì */
+	{FIRST_PRIMARY + 95, FIRST_SECONDARY + 1, NULL_TERTIARY, 0, 0},	/* 237 í */
+	{FIRST_PRIMARY + 158, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 238 î */
+	{FIRST_PRIMARY + 159, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 239 ï */
+	{FIRST_PRIMARY + 160, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 240 ð */
+	{FIRST_PRIMARY + 161, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 241 ñ */
+	{FIRST_PRIMARY + 162, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 242 ò */
+	{FIRST_PRIMARY + 163, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 243 ó */
+	{FIRST_PRIMARY + 164, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 244 ô */
+	{FIRST_PRIMARY + 165, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 245 õ */
+	{FIRST_PRIMARY + 166, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 246 ö */
+	{FIRST_PRIMARY + 167, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 247 ÷ */
+	{FIRST_PRIMARY + 168, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 248 ø */
+	{FIRST_PRIMARY + 169, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 249 ù */
+	{FIRST_PRIMARY + 170, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 250 ú */
+	{FIRST_PRIMARY + 171, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 251 û */
+	{FIRST_PRIMARY + 172, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 252 ü */
+	{FIRST_PRIMARY + 173, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 253 ý */
+	{FIRST_PRIMARY + 174, NULL_SECONDARY, NULL_TERTIARY, 0, 0},	/* 254 þ */
+	{FIRST_PRIMARY + 175, NULL_SECONDARY, NULL_TERTIARY, 0, 0}	/* 255   */
+};
+
+#ifdef DEBUG
+#ifndef NEED_CP_MAP
+#define NEED_CP_MAP
+#endif
+#endif
+#ifdef NEED_CP_MAP
+#include "../include/cs_857.h"
+#endif
+/* End of File : Language driver turk */
diff --git a/src/intl/tx437_865.h b/src/intl/tx437_865.h
new file mode 100644
index 0000000000..af32a867d1
--- /dev/null
+++ b/src/intl/tx437_865.h
@@ -0,0 +1,554 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/* 437 to 865 character set conversion table */
+static CONST UCHAR cvt_437_to_865[256] = {
+/*NEW       OLD UINC       NAME */
+	0x00 /*     00 0000 NULL                                     */ ,
+	0x01 /*     01 0001 START OF HEADING                         */ ,
+	0x02 /*     02 0002 START OF TEXT                            */ ,
+	0x03 /*     03 0003 END OF TEXT                              */ ,
+	0x04 /*     04 0004 END OF TRANSMISSION                      */ ,
+	0x05 /*     05 0005 ENQUIRY                                  */ ,
+	0x06 /*     06 0006 ACKNOWLEDGE                              */ ,
+	0x07 /*     07 0007 BELL                                     */ ,
+	0x08 /*     08 0008 BACKSPACE                                */ ,
+	0x09 /*     09 0009 HORIZONTAL TABULATION                    */ ,
+	0x0A /*     0A 000A LINE FEED                                */ ,
+	0x0B /*     0B 000B VERTICAL TABULATION                      */ ,
+	0x0C /*     0C 000C FORM FEED                                */ ,
+	0x0D /*     0D 000D CARRIAGE RETURN                          */ ,
+	0x0E /*     0E 000E SHIFT OUT                                */ ,
+	0x0F /*     0F 000F SHIFT IN                                 */ ,
+	0x10 /*     10 0010 DATA LINK ESCAPE                         */ ,
+	0x11 /*     11 0011 DEVICE CONTROL ONE                       */ ,
+	0x12 /*     12 0012 DEVICE CONTROL TWO                       */ ,
+	0x13 /*     13 0013 DEVICE CONTROL THREE                     */ ,
+	0x14 /*     14 0014 DEVICE CONTROL FOUR                      */ ,
+	0x15 /*     15 0015 NEGATIVE ACKNOWLEDGE                     */ ,
+	0x16 /*     16 0016 SYNCHRONOUS IDLE                         */ ,
+	0x17 /*     17 0017 END OF TRANSMISSION BLOCK                */ ,
+	0x18 /*     18 0018 CANCEL                                   */ ,
+	0x19 /*     19 0019 END OF MEDIUM                            */ ,
+	0x1A /*     1A 001A SUBSTITUTE                               */ ,
+	0x1B /*     1B 001B ESCAPE                                   */ ,
+	0x1C /*     1C 001C FILE SEPARATOR                           */ ,
+	0x1D /*     1D 001D GROUP SEPARATOR                          */ ,
+	0x1E /*     1E 001E RECORD SEPARATOR                         */ ,
+	0x1F /*     1F 001F UNIT SEPARATOR                           */ ,
+/*NEW       OLD UINC       NAME */
+	0x20 /*     20 0020 SPACE                                    */ ,
+	0x21 /*     21 0021 EXCLAMATION MARK                         */ ,
+	0x22 /*     22 0022 QUOTATION MARK                           */ ,
+	0x23 /*     23 0023 NUMBER SIGN                              */ ,
+	0x24 /*     24 0024 DOLLAR SIGN                              */ ,
+	0x25 /*     25 0025 PERCENT SIGN                             */ ,
+	0x26 /*     26 0026 AMPERSAND                                */ ,
+	0x27 /*     27 0027 APOSTROPHE-QUOTE                         */ ,
+	0x28 /*     28 0028 OPENING PARENTHESIS                      */ ,
+	0x29 /*     29 0029 CLOSING PARENTHESIS                      */ ,
+	0x2A /*     2A 002A ASTERISK                                 */ ,
+	0x2B /*     2B 002B PLUS SIGN                                */ ,
+	0x2C /*     2C 002C COMMA                                    */ ,
+	0x2D /*     2D 002D HYPHEN-MINUS                             */ ,
+	0x2E /*     2E 002E PERIOD                                   */ ,
+	0x2F /*     2F 002F SLASH                                    */ ,
+	0x30 /*     30 0030 DIGIT ZERO                               */ ,
+	0x31 /*     31 0031 DIGIT ONE                                */ ,
+	0x32 /*     32 0032 DIGIT TWO                                */ ,
+	0x33 /*     33 0033 DIGIT THREE                              */ ,
+	0x34 /*     34 0034 DIGIT FOUR                               */ ,
+	0x35 /*     35 0035 DIGIT FIVE                               */ ,
+	0x36 /*     36 0036 DIGIT SIX                                */ ,
+	0x37 /*     37 0037 DIGIT SEVEN                              */ ,
+	0x38 /*     38 0038 DIGIT EIGHT                              */ ,
+	0x39 /*     39 0039 DIGIT NINE                               */ ,
+	0x3A /*     3A 003A COLON                                    */ ,
+	0x3B /*     3B 003B SEMICOLON                                */ ,
+	0x3C /*     3C 003C LESS-THAN SIGN                           */ ,
+	0x3D /*     3D 003D EQUALS SIGN                              */ ,
+	0x3E /*     3E 003E GREATER-THAN SIGN                        */ ,
+	0x3F /*     3F 003F QUESTION MARK                            */ ,
+/*NEW       OLD UINC       NAME */
+	0x40 /*     40 0040 COMMERCIAL AT                            */ ,
+	0x41 /*     41 0041 LATIN CAPITAL LETTER A                   */ ,
+	0x42 /*     42 0042 LATIN CAPITAL LETTER B                   */ ,
+	0x43 /*     43 0043 LATIN CAPITAL LETTER C                   */ ,
+	0x44 /*     44 0044 LATIN CAPITAL LETTER D                   */ ,
+	0x45 /*     45 0045 LATIN CAPITAL LETTER E                   */ ,
+	0x46 /*     46 0046 LATIN CAPITAL LETTER F                   */ ,
+	0x47 /*     47 0047 LATIN CAPITAL LETTER G                   */ ,
+	0x48 /*     48 0048 LATIN CAPITAL LETTER H                   */ ,
+	0x49 /*     49 0049 LATIN CAPITAL LETTER I                   */ ,
+	0x4A /*     4A 004A LATIN CAPITAL LETTER J                   */ ,
+	0x4B /*     4B 004B LATIN CAPITAL LETTER K                   */ ,
+	0x4C /*     4C 004C LATIN CAPITAL LETTER L                   */ ,
+	0x4D /*     4D 004D LATIN CAPITAL LETTER M                   */ ,
+	0x4E /*     4E 004E LATIN CAPITAL LETTER N                   */ ,
+	0x4F /*     4F 004F LATIN CAPITAL LETTER O                   */ ,
+	0x50 /*     50 0050 LATIN CAPITAL LETTER P                   */ ,
+	0x51 /*     51 0051 LATIN CAPITAL LETTER Q                   */ ,
+	0x52 /*     52 0052 LATIN CAPITAL LETTER R                   */ ,
+	0x53 /*     53 0053 LATIN CAPITAL LETTER S                   */ ,
+	0x54 /*     54 0054 LATIN CAPITAL LETTER T                   */ ,
+	0x55 /*     55 0055 LATIN CAPITAL LETTER U                   */ ,
+	0x56 /*     56 0056 LATIN CAPITAL LETTER V                   */ ,
+	0x57 /*     57 0057 LATIN CAPITAL LETTER W                   */ ,
+	0x58 /*     58 0058 LATIN CAPITAL LETTER X                   */ ,
+	0x59 /*     59 0059 LATIN CAPITAL LETTER Y                   */ ,
+	0x5A /*     5A 005A LATIN CAPITAL LETTER Z                   */ ,
+	0x5B /*     5B 005B OPENING SQUARE BRACKET                   */ ,
+	0x5C /*     5C 005C BACKSLASH                                */ ,
+	0x5D /*     5D 005D CLOSING SQUARE BRACKET                   */ ,
+	0x5E /*     5E 005E SPACING CIRCUMFLEX                       */ ,
+	0x5F /*     5F 005F SPACING UNDERSCORE                       */ ,
+/*NEW       OLD UINC       NAME */
+	0x60 /*     60 0060 SPACING GRAVE                            */ ,
+	0x61 /*     61 0061 LATIN SMALL LETTER A                     */ ,
+	0x62 /*     62 0062 LATIN SMALL LETTER B                     */ ,
+	0x63 /*     63 0063 LATIN SMALL LETTER C                     */ ,
+	0x64 /*     64 0064 LATIN SMALL LETTER D                     */ ,
+	0x65 /*     65 0065 LATIN SMALL LETTER E                     */ ,
+	0x66 /*     66 0066 LATIN SMALL LETTER F                     */ ,
+	0x67 /*     67 0067 LATIN SMALL LETTER G                     */ ,
+	0x68 /*     68 0068 LATIN SMALL LETTER H                     */ ,
+	0x69 /*     69 0069 LATIN SMALL LETTER I                     */ ,
+	0x6A /*     6A 006A LATIN SMALL LETTER J                     */ ,
+	0x6B /*     6B 006B LATIN SMALL LETTER K                     */ ,
+	0x6C /*     6C 006C LATIN SMALL LETTER L                     */ ,
+	0x6D /*     6D 006D LATIN SMALL LETTER M                     */ ,
+	0x6E /*     6E 006E LATIN SMALL LETTER N                     */ ,
+	0x6F /*     6F 006F LATIN SMALL LETTER O                     */ ,
+	0x70 /*     70 0070 LATIN SMALL LETTER P                     */ ,
+	0x71 /*     71 0071 LATIN SMALL LETTER Q                     */ ,
+	0x72 /*     72 0072 LATIN SMALL LETTER R                     */ ,
+	0x73 /*     73 0073 LATIN SMALL LETTER S                     */ ,
+	0x74 /*     74 0074 LATIN SMALL LETTER T                     */ ,
+	0x75 /*     75 0075 LATIN SMALL LETTER U                     */ ,
+	0x76 /*     76 0076 LATIN SMALL LETTER V                     */ ,
+	0x77 /*     77 0077 LATIN SMALL LETTER W                     */ ,
+	0x78 /*     78 0078 LATIN SMALL LETTER X                     */ ,
+	0x79 /*     79 0079 LATIN SMALL LETTER Y                     */ ,
+	0x7A /*     7A 007A LATIN SMALL LETTER Z                     */ ,
+	0x7B /*     7B 007B OPENING CURLY BRACKET                    */ ,
+	0x7C /*     7C 007C VERTICAL BAR                             */ ,
+	0x7D /*     7D 007D CLOSING CURLY BRACKET                    */ ,
+	0x7E /*     7E 007E TILDE                                    */ ,
+	0x7F /*     7F 007F DELETE                                   */ ,
+/*NEW       OLD UINC       NAME */
+	0x80 /*     80 00C7 LATIN CAPITAL LETTER C CEDILLA           */ ,
+	0x81 /*     81 00FC LATIN SMALL LETTER U DIAERESIS           */ ,
+	0x82 /*     82 00E9 LATIN SMALL LETTER E ACUTE               */ ,
+	0x83 /*     83 00E2 LATIN SMALL LETTER A CIRCUMFLEX          */ ,
+	0x84 /*     84 00E4 LATIN SMALL LETTER A DIAERESIS           */ ,
+	0x85 /*     85 00E0 LATIN SMALL LETTER A GRAVE               */ ,
+	0x86 /*     86 00E5 LATIN SMALL LETTER A RING                */ ,
+	0x87 /*     87 00E7 LATIN SMALL LETTER C CEDILLA             */ ,
+	0x88 /*     88 00EA LATIN SMALL LETTER E CIRCUMFLEX          */ ,
+	0x89 /*     89 00EB LATIN SMALL LETTER E DIAERESIS           */ ,
+	0x8A /*     8A 00E8 LATIN SMALL LETTER E GRAVE               */ ,
+	0x8B /*     8B 00EF LATIN SMALL LETTER I DIAERESIS           */ ,
+	0x8C /*     8C 00EE LATIN SMALL LETTER I CIRCUMFLEX          */ ,
+	0x8D /*     8D 00EC LATIN SMALL LETTER I GRAVE               */ ,
+	0x8E /*     8E 00C4 LATIN CAPITAL LETTER A DIAERESIS         */ ,
+	0x8F /*     8F 00C5 LATIN CAPITAL LETTER A RING              */ ,
+	0x90 /*     90 00C9 LATIN CAPITAL LETTER E ACUTE             */ ,
+	0x91 /*     91 00E6 LATIN SMALL LETTER A E                   */ ,
+	0x92 /*     92 00C6 LATIN CAPITAL LETTER A E                 */ ,
+	0x93 /*     93 00F4 LATIN SMALL LETTER O CIRCUMFLEX          */ ,
+	0x94 /*     94 00F6 LATIN SMALL LETTER O DIAERESIS           */ ,
+	0x95 /*     95 00F2 LATIN SMALL LETTER O GRAVE               */ ,
+	0x96 /*     96 00FB LATIN SMALL LETTER U CIRCUMFLEX          */ ,
+	0x97 /*     97 00F9 LATIN SMALL LETTER U GRAVE               */ ,
+	0x98 /*     98 00FF LATIN SMALL LETTER Y DIAERESIS           */ ,
+	0x99 /*     99 00D6 LATIN CAPITAL LETTER O DIAERESIS         */ ,
+	0x9A /*     9A 00DC LATIN CAPITAL LETTER U DIAERESIS         */ ,
+	CS_CANT_MAP /*     9B 00A2 CENT SIGN                                */ ,
+	0x9C /*     9C 00A3 POUND SIGN                               */ ,
+	CS_CANT_MAP /*     9D 00A5 YEN SIGN                                 */ ,
+	0x9E /*     9E 20A7 PESETA SIGN                              */ ,
+	0x9F /*     9F 0192 LATIN SMALL LETTER SCRIPT F              */ ,
+/*NEW       OLD UINC       NAME */
+	0xA0 /*     A0 00E1 LATIN SMALL LETTER A ACUTE               */ ,
+	0xA1 /*     A1 00ED LATIN SMALL LETTER I ACUTE               */ ,
+	0xA2 /*     A2 00F3 LATIN SMALL LETTER O ACUTE               */ ,
+	0xA3 /*     A3 00FA LATIN SMALL LETTER U ACUTE               */ ,
+	0xA4 /*     A4 00F1 LATIN SMALL LETTER N TILDE               */ ,
+	0xA5 /*     A5 00D1 LATIN CAPITAL LETTER N TILDE             */ ,
+	0xA6 /*     A6 00AA FEMININE ORDINAL INDICATOR               */ ,
+	0xA7 /*     A7 00BA MASCULINE ORDINAL INDICATOR              */ ,
+	0xA8 /*     A8 00BF INVERTED QUESTION MARK                   */ ,
+	0xA9 /*     A9 2310 REVERSED NOT SIGN                        */ ,
+	0xAA /*     AA 00AC NOT SIGN                                 */ ,
+	0xAB /*     AB 00BD FRACTION ONE HALF                        */ ,
+	0xAC /*     AC 00BC FRACTION ONE QUARTER                     */ ,
+	0xAD /*     AD 00A1 INVERTED EXCLAMATION MARK                */ ,
+	0xAE /*     AE 00AB LEFT POINTING GUILLEMET                  */ ,
+	CS_CANT_MAP /*     AF 00BB RIGHT POINTING GUILLEMET                 */ ,
+	0xB0 /*     B0 2591 LIGHT SHADE                              */ ,
+	0xB1 /*     B1 2592 MEDIUM SHADE                             */ ,
+	0xB2 /*     B2 2593 DARK SHADE                               */ ,
+	0xB3 /*     B3 2502 FORMS LIGHT VERTICAL                     */ ,
+	0xB4 /*     B4 2524 FORMS LIGHT VERTICAL AND LEFT            */ ,
+	0xB5 /*     B5 2561 FORMS VERTICAL SINGLE AND LEFT DOUBLE    */ ,
+	0xB6 /*     B6 2562 FORMS VERTICAL DOUBLE AND LEFT SINGLE    */ ,
+	0xB7 /*     B7 2556 FORMS DOWN DOUBLE AND LEFT SINGLE        */ ,
+	0xB8 /*     B8 2555 FORMS DOWN SINGLE AND LEFT DOUBLE        */ ,
+	0xB9 /*     B9 2563 FORMS DOUBLE VERTICAL AND LEFT           */ ,
+	0xBA /*     BA 2551 FORMS DOUBLE VERTICAL                    */ ,
+	0xBB /*     BB 2557 FORMS DOUBLE DOWN AND LEFT               */ ,
+	0xBC /*     BC 255D FORMS DOUBLE UP AND LEFT                 */ ,
+	0xBD /*     BD 255C FORMS UP DOUBLE AND LEFT SINGLE          */ ,
+	0xBE /*     BE 255B FORMS UP SINGLE AND LEFT DOUBLE          */ ,
+	0xBF /*     BF 2510 FORMS LIGHT DOWN AND LEFT                */ ,
+/*NEW       OLD UINC       NAME */
+	0xC0 /*     C0 2514 FORMS LIGHT UP AND RIGHT                 */ ,
+	0xC1 /*     C1 2534 FORMS LIGHT UP AND HORIZONTAL            */ ,
+	0xC2 /*     C2 252C FORMS LIGHT DOWN AND HORIZONTAL          */ ,
+	0xC3 /*     C3 251C FORMS LIGHT VERTICAL AND RIGHT           */ ,
+	0xC4 /*     C4 2500 FORMS LIGHT HORIZONTAL                   */ ,
+	0xC5 /*     C5 253C FORMS LIGHT VERTICAL AND HORIZONTAL      */ ,
+	0xC6 /*     C6 255E FORMS VERTICAL SINGLE AND RIGHT DOUBLE   */ ,
+	0xC7 /*     C7 255F FORMS VERTICAL DOUBLE AND RIGHT SINGLE   */ ,
+	0xC8 /*     C8 255A FORMS DOUBLE UP AND RIGHT                */ ,
+	0xC9 /*     C9 2554 FORMS DOUBLE DOWN AND RIGHT              */ ,
+	0xCA /*     CA 2569 FORMS DOUBLE UP AND HORIZONTAL           */ ,
+	0xCB /*     CB 2566 FORMS DOUBLE DOWN AND HORIZONTAL         */ ,
+	0xCC /*     CC 2560 FORMS DOUBLE VERTICAL AND RIGHT          */ ,
+	0xCD /*     CD 2550 FORMS DOUBLE HORIZONTAL                  */ ,
+	0xCE /*     CE 256C FORMS DOUBLE VERTICAL AND HORIZONTAL     */ ,
+	0xCF /*     CF 2567 FORMS UP SINGLE AND HORIZONTAL DOUBLE    */ ,
+	0xD0 /*     D0 2568 FORMS UP DOUBLE AND HORIZONTAL SINGLE    */ ,
+	0xD1 /*     D1 2564 FORMS DOWN SINGLE AND HORIZONTAL DOUBLE  */ ,
+	0xD2 /*     D2 2565 FORMS DOWN DOUBLE AND HORIZONTAL SINGLE  */ ,
+	0xD3 /*     D3 2559 FORMS UP DOUBLE AND RIGHT SINGLE         */ ,
+	0xD4 /*     D4 2558 FORMS UP SINGLE AND RIGHT DOUBLE         */ ,
+	0xD5 /*     D5 2552 FORMS DOWN SINGLE AND RIGHT DOUBLE       */ ,
+	0xD6 /*     D6 2553 FORMS DOWN DOUBLE AND RIGHT SINGLE       */ ,
+	0xD7 /*     D7 256B FORMS VERTICAL DOUBLE AND HORIZONTAL SINGLE */ ,
+	0xD8 /*     D8 256A FORMS VERTICAL SINGLE AND HORIZONTAL DOUBLE */ ,
+	0xD9 /*     D9 2518 FORMS LIGHT UP AND LEFT                  */ ,
+	0xDA /*     DA 250C FORMS LIGHT DOWN AND RIGHT               */ ,
+	0xDB /*     DB 2588 FULL BLOCK                               */ ,
+	0xDC /*     DC 2584 LOWER HALF BLOCK                         */ ,
+	0xDD /*     DD 258C LEFT HALF BLOCK                          */ ,
+	0xDE /*     DE 2590 RIGHT HALF BLOCK                         */ ,
+	0xDF /*     DF 2580 UPPER HALF BLOCK                         */ ,
+/*NEW       OLD UINC       NAME */
+	0xE0 /*     E0 03B1 GREEK SMALL LETTER ALPHA                 */ ,
+	0xE1 /*     E1 00DF LATIN SMALL LETTER SHARP S               */ ,
+	0xE2 /*     E2 0393 GREEK CAPITAL LETTER GAMMA               */ ,
+	0xE3 /*     E3 03C0 GREEK SMALL LETTER PI                    */ ,
+	0xE4 /*     E4 03A3 GREEK CAPITAL LETTER SIGMA               */ ,
+	0xE5 /*     E5 03C3 GREEK SMALL LETTER SIGMA                 */ ,
+	0xE6 /*     E6 00B5 MICRO SIGN                               */ ,
+	0xE7 /*     E7 03C4 GREEK SMALL LETTER TAU                   */ ,
+	0xE8 /*     E8 03A6 GREEK CAPITAL LETTER PHI                 */ ,
+	0xE9 /*     E9 0398 GREEK CAPITAL LETTER THETA               */ ,
+	0xEA /*     EA 03A9 GREEK CAPITAL LETTER OMEGA               */ ,
+	0xEB /*     EB 03B4 GREEK SMALL LETTER DELTA                 */ ,
+	0xEC /*     EC 221E INFINITY                                 */ ,
+	0xED /*     ED 03C6 GREEK SMALL LETTER PHI                   */ ,
+	0xEE /*     EE 03B5 GREEK SMALL LETTER EPSILON               */ ,
+	0xEF /*     EF 2229 INTERSECTION                             */ ,
+	0xF0 /*     F0 2261 IDENTICAL TO                             */ ,
+	0xF1 /*     F1 00B1 PLUS-OR-MINUS SIGN                       */ ,
+	0xF2 /*     F2 2265 GREATER THAN OR EQUAL TO                 */ ,
+	0xF3 /*     F3 2264 LESS THAN OR EQUAL TO                    */ ,
+	0xF4 /*     F4 2320 TOP HALF INTEGRAL                        */ ,
+	0xF5 /*     F5 2321 BOTTOM HALF INTEGRAL                     */ ,
+	0xF6 /*     F6 00F7 DIVISION SIGN                            */ ,
+	0xF7 /*     F7 2248 ALMOST EQUAL TO                          */ ,
+	0xF8 /*     F8 00B0 DEGREE SIGN                              */ ,
+	0xF9 /*     F9 2219 BULLET OPERATOR                          */ ,
+	0xFA /*     FA 00B7 MIDDLE DOT                               */ ,
+	0xFB /*     FB 221A SQUARE ROOT                              */ ,
+	0xFC /*     FC 207F SUPERSCRIPT LATIN SMALL LETTER N         */ ,
+	0xFD /*     FD 00B2 SUPERSCRIPT DIGIT TWO                    */ ,
+	0xFE /*     FE 25A0 BLACK SQUARE                             */ ,
+	0xFF						/*     FF 00A0 NON-BREAKING SPACE                       */
+};
+
+
+/* 865 to 437 character set conversion table */
+static CONST UCHAR cvt_865_to_437[256] = {
+/*NEW       OLD UINC       NAME */
+	0x00 /*     00 0000 NULL                                     */ ,
+	0x01 /*     01 0001 START OF HEADING                         */ ,
+	0x02 /*     02 0002 START OF TEXT                            */ ,
+	0x03 /*     03 0003 END OF TEXT                              */ ,
+	0x04 /*     04 0004 END OF TRANSMISSION                      */ ,
+	0x05 /*     05 0005 ENQUIRY                                  */ ,
+	0x06 /*     06 0006 ACKNOWLEDGE                              */ ,
+	0x07 /*     07 0007 BELL                                     */ ,
+	0x08 /*     08 0008 BACKSPACE                                */ ,
+	0x09 /*     09 0009 HORIZONTAL TABULATION                    */ ,
+	0x0A /*     0A 000A LINE FEED                                */ ,
+	0x0B /*     0B 000B VERTICAL TABULATION                      */ ,
+	0x0C /*     0C 000C FORM FEED                                */ ,
+	0x0D /*     0D 000D CARRIAGE RETURN                          */ ,
+	0x0E /*     0E 000E SHIFT OUT                                */ ,
+	0x0F /*     0F 000F SHIFT IN                                 */ ,
+	0x10 /*     10 0010 DATA LINK ESCAPE                         */ ,
+	0x11 /*     11 0011 DEVICE CONTROL ONE                       */ ,
+	0x12 /*     12 0012 DEVICE CONTROL TWO                       */ ,
+	0x13 /*     13 0013 DEVICE CONTROL THREE                     */ ,
+	0x14 /*     14 0014 DEVICE CONTROL FOUR                      */ ,
+	0x15 /*     15 0015 NEGATIVE ACKNOWLEDGE                     */ ,
+	0x16 /*     16 0016 SYNCHRONOUS IDLE                         */ ,
+	0x17 /*     17 0017 END OF TRANSMISSION BLOCK                */ ,
+	0x18 /*     18 0018 CANCEL                                   */ ,
+	0x19 /*     19 0019 END OF MEDIUM                            */ ,
+	0x1A /*     1A 001A SUBSTITUTE                               */ ,
+	0x1B /*     1B 001B ESCAPE                                   */ ,
+	0x1C /*     1C 001C FILE SEPARATOR                           */ ,
+	0x1D /*     1D 001D GROUP SEPARATOR                          */ ,
+	0x1E /*     1E 001E RECORD SEPARATOR                         */ ,
+	0x1F /*     1F 001F UNIT SEPARATOR                           */ ,
+/*NEW       OLD UINC       NAME */
+	0x20 /*     20 0020 SPACE                                    */ ,
+	0x21 /*     21 0021 EXCLAMATION MARK                         */ ,
+	0x22 /*     22 0022 QUOTATION MARK                           */ ,
+	0x23 /*     23 0023 NUMBER SIGN                              */ ,
+	0x24 /*     24 0024 DOLLAR SIGN                              */ ,
+	0x25 /*     25 0025 PERCENT SIGN                             */ ,
+	0x26 /*     26 0026 AMPERSAND                                */ ,
+	0x27 /*     27 0027 APOSTROPHE-QUOTE                         */ ,
+	0x28 /*     28 0028 OPENING PARENTHESIS                      */ ,
+	0x29 /*     29 0029 CLOSING PARENTHESIS                      */ ,
+	0x2A /*     2A 002A ASTERISK                                 */ ,
+	0x2B /*     2B 002B PLUS SIGN                                */ ,
+	0x2C /*     2C 002C COMMA                                    */ ,
+	0x2D /*     2D 002D HYPHEN-MINUS                             */ ,
+	0x2E /*     2E 002E PERIOD                                   */ ,
+	0x2F /*     2F 002F SLASH                                    */ ,
+	0x30 /*     30 0030 DIGIT ZERO                               */ ,
+	0x31 /*     31 0031 DIGIT ONE                                */ ,
+	0x32 /*     32 0032 DIGIT TWO                                */ ,
+	0x33 /*     33 0033 DIGIT THREE                              */ ,
+	0x34 /*     34 0034 DIGIT FOUR                               */ ,
+	0x35 /*     35 0035 DIGIT FIVE                               */ ,
+	0x36 /*     36 0036 DIGIT SIX                                */ ,
+	0x37 /*     37 0037 DIGIT SEVEN                              */ ,
+	0x38 /*     38 0038 DIGIT EIGHT                              */ ,
+	0x39 /*     39 0039 DIGIT NINE                               */ ,
+	0x3A /*     3A 003A COLON                                    */ ,
+	0x3B /*     3B 003B SEMICOLON                                */ ,
+	0x3C /*     3C 003C LESS-THAN SIGN                           */ ,
+	0x3D /*     3D 003D EQUALS SIGN                              */ ,
+	0x3E /*     3E 003E GREATER-THAN SIGN                        */ ,
+	0x3F /*     3F 003F QUESTION MARK                            */ ,
+/*NEW       OLD UINC       NAME */
+	0x40 /*     40 0040 COMMERCIAL AT                            */ ,
+	0x41 /*     41 0041 LATIN CAPITAL LETTER A                   */ ,
+	0x42 /*     42 0042 LATIN CAPITAL LETTER B                   */ ,
+	0x43 /*     43 0043 LATIN CAPITAL LETTER C                   */ ,
+	0x44 /*     44 0044 LATIN CAPITAL LETTER D                   */ ,
+	0x45 /*     45 0045 LATIN CAPITAL LETTER E                   */ ,
+	0x46 /*     46 0046 LATIN CAPITAL LETTER F                   */ ,
+	0x47 /*     47 0047 LATIN CAPITAL LETTER G                   */ ,
+	0x48 /*     48 0048 LATIN CAPITAL LETTER H                   */ ,
+	0x49 /*     49 0049 LATIN CAPITAL LETTER I                   */ ,
+	0x4A /*     4A 004A LATIN CAPITAL LETTER J                   */ ,
+	0x4B /*     4B 004B LATIN CAPITAL LETTER K                   */ ,
+	0x4C /*     4C 004C LATIN CAPITAL LETTER L                   */ ,
+	0x4D /*     4D 004D LATIN CAPITAL LETTER M                   */ ,
+	0x4E /*     4E 004E LATIN CAPITAL LETTER N                   */ ,
+	0x4F /*     4F 004F LATIN CAPITAL LETTER O                   */ ,
+	0x50 /*     50 0050 LATIN CAPITAL LETTER P                   */ ,
+	0x51 /*     51 0051 LATIN CAPITAL LETTER Q                   */ ,
+	0x52 /*     52 0052 LATIN CAPITAL LETTER R                   */ ,
+	0x53 /*     53 0053 LATIN CAPITAL LETTER S                   */ ,
+	0x54 /*     54 0054 LATIN CAPITAL LETTER T                   */ ,
+	0x55 /*     55 0055 LATIN CAPITAL LETTER U                   */ ,
+	0x56 /*     56 0056 LATIN CAPITAL LETTER V                   */ ,
+	0x57 /*     57 0057 LATIN CAPITAL LETTER W                   */ ,
+	0x58 /*     58 0058 LATIN CAPITAL LETTER X                   */ ,
+	0x59 /*     59 0059 LATIN CAPITAL LETTER Y                   */ ,
+	0x5A /*     5A 005A LATIN CAPITAL LETTER Z                   */ ,
+	0x5B /*     5B 005B OPENING SQUARE BRACKET                   */ ,
+	0x5C /*     5C 005C BACKSLASH                                */ ,
+	0x5D /*     5D 005D CLOSING SQUARE BRACKET                   */ ,
+	0x5E /*     5E 005E SPACING CIRCUMFLEX                       */ ,
+	0x5F /*     5F 005F SPACING UNDERSCORE                       */ ,
+/*NEW       OLD UINC       NAME */
+	0x60 /*     60 0060 SPACING GRAVE                            */ ,
+	0x61 /*     61 0061 LATIN SMALL LETTER A                     */ ,
+	0x62 /*     62 0062 LATIN SMALL LETTER B                     */ ,
+	0x63 /*     63 0063 LATIN SMALL LETTER C                     */ ,
+	0x64 /*     64 0064 LATIN SMALL LETTER D                     */ ,
+	0x65 /*     65 0065 LATIN SMALL LETTER E                     */ ,
+	0x66 /*     66 0066 LATIN SMALL LETTER F                     */ ,
+	0x67 /*     67 0067 LATIN SMALL LETTER G                     */ ,
+	0x68 /*     68 0068 LATIN SMALL LETTER H                     */ ,
+	0x69 /*     69 0069 LATIN SMALL LETTER I                     */ ,
+	0x6A /*     6A 006A LATIN SMALL LETTER J                     */ ,
+	0x6B /*     6B 006B LATIN SMALL LETTER K                     */ ,
+	0x6C /*     6C 006C LATIN SMALL LETTER L                     */ ,
+	0x6D /*     6D 006D LATIN SMALL LETTER M                     */ ,
+	0x6E /*     6E 006E LATIN SMALL LETTER N                     */ ,
+	0x6F /*     6F 006F LATIN SMALL LETTER O                     */ ,
+	0x70 /*     70 0070 LATIN SMALL LETTER P                     */ ,
+	0x71 /*     71 0071 LATIN SMALL LETTER Q                     */ ,
+	0x72 /*     72 0072 LATIN SMALL LETTER R                     */ ,
+	0x73 /*     73 0073 LATIN SMALL LETTER S                     */ ,
+	0x74 /*     74 0074 LATIN SMALL LETTER T                     */ ,
+	0x75 /*     75 0075 LATIN SMALL LETTER U                     */ ,
+	0x76 /*     76 0076 LATIN SMALL LETTER V                     */ ,
+	0x77 /*     77 0077 LATIN SMALL LETTER W                     */ ,
+	0x78 /*     78 0078 LATIN SMALL LETTER X                     */ ,
+	0x79 /*     79 0079 LATIN SMALL LETTER Y                     */ ,
+	0x7A /*     7A 007A LATIN SMALL LETTER Z                     */ ,
+	0x7B /*     7B 007B OPENING CURLY BRACKET                    */ ,
+	0x7C /*     7C 007C VERTICAL BAR                             */ ,
+	0x7D /*     7D 007D CLOSING CURLY BRACKET                    */ ,
+	0x7E /*     7E 007E TILDE                                    */ ,
+	0x7F /*     7F 007F DELETE                                   */ ,
+/*NEW       OLD UINC       NAME */
+	0x80 /*     80 00C7 LATIN CAPITAL LETTER C CEDILLA           */ ,
+	0x81 /*     81 00FC LATIN SMALL LETTER U DIAERESIS           */ ,
+	0x82 /*     82 00E9 LATIN SMALL LETTER E ACUTE               */ ,
+	0x83 /*     83 00E2 LATIN SMALL LETTER A CIRCUMFLEX          */ ,
+	0x84 /*     84 00E4 LATIN SMALL LETTER A DIAERESIS           */ ,
+	0x85 /*     85 00E0 LATIN SMALL LETTER A GRAVE               */ ,
+	0x86 /*     86 00E5 LATIN SMALL LETTER A RING                */ ,
+	0x87 /*     87 00E7 LATIN SMALL LETTER C CEDILLA             */ ,
+	0x88 /*     88 00EA LATIN SMALL LETTER E CIRCUMFLEX          */ ,
+	0x89 /*     89 00EB LATIN SMALL LETTER E DIAERESIS           */ ,
+	0x8A /*     8A 00E8 LATIN SMALL LETTER E GRAVE               */ ,
+	0x8B /*     8B 00EF LATIN SMALL LETTER I DIAERESIS           */ ,
+	0x8C /*     8C 00EE LATIN SMALL LETTER I CIRCUMFLEX          */ ,
+	0x8D /*     8D 00EC LATIN SMALL LETTER I GRAVE               */ ,
+	0x8E /*     8E 00C4 LATIN CAPITAL LETTER A DIAERESIS         */ ,
+	0x8F /*     8F 00C5 LATIN CAPITAL LETTER A RING              */ ,
+	0x90 /*     90 00C9 LATIN CAPITAL LETTER E ACUTE             */ ,
+	0x91 /*     91 00E6 LATIN SMALL LETTER A E                   */ ,
+	0x92 /*     92 00C6 LATIN CAPITAL LETTER A E                 */ ,
+	0x93 /*     93 00F4 LATIN SMALL LETTER O CIRCUMFLEX          */ ,
+	0x94 /*     94 00F6 LATIN SMALL LETTER O DIAERESIS           */ ,
+	0x95 /*     95 00F2 LATIN SMALL LETTER O GRAVE               */ ,
+	0x96 /*     96 00FB LATIN SMALL LETTER U CIRCUMFLEX          */ ,
+	0x97 /*     97 00F9 LATIN SMALL LETTER U GRAVE               */ ,
+	0x98 /*     98 00FF LATIN SMALL LETTER Y DIAERESIS           */ ,
+	0x99 /*     99 00D6 LATIN CAPITAL LETTER O DIAERESIS         */ ,
+	0x9A /*     9A 00DC LATIN CAPITAL LETTER U DIAERESIS         */ ,
+	CS_CANT_MAP /*     9B 00F8 LATIN SMALL LETTER O SLASH               */ ,
+	0x9C /*     9C 00A3 POUND SIGN                               */ ,
+	CS_CANT_MAP /*     9D 00D8 LATIN CAPITAL LETTER O SLASH             */ ,
+	0x9E /*     9E 20A7 PESETA SIGN                              */ ,
+	0x9F /*     9F 0192 LATIN SMALL LETTER SCRIPT F              */ ,
+/*NEW       OLD UINC       NAME */
+	0xA0 /*     A0 00E1 LATIN SMALL LETTER A ACUTE               */ ,
+	0xA1 /*     A1 00ED LATIN SMALL LETTER I ACUTE               */ ,
+	0xA2 /*     A2 00F3 LATIN SMALL LETTER O ACUTE               */ ,
+	0xA3 /*     A3 00FA LATIN SMALL LETTER U ACUTE               */ ,
+	0xA4 /*     A4 00F1 LATIN SMALL LETTER N TILDE               */ ,
+	0xA5 /*     A5 00D1 LATIN CAPITAL LETTER N TILDE             */ ,
+	0xA6 /*     A6 00AA FEMININE ORDINAL INDICATOR               */ ,
+	0xA7 /*     A7 00BA MASCULINE ORDINAL INDICATOR              */ ,
+	0xA8 /*     A8 00BF INVERTED QUESTION MARK                   */ ,
+	0xA9 /*     A9 2310 REVERSED NOT SIGN                        */ ,
+	0xAA /*     AA 00AC NOT SIGN                                 */ ,
+	0xAB /*     AB 00BD FRACTION ONE HALF                        */ ,
+	0xAC /*     AC 00BC FRACTION ONE QUARTER                     */ ,
+	0xAD /*     AD 00A1 INVERTED EXCLAMATION MARK                */ ,
+	0xAE /*     AE 00AB LEFT POINTING GUILLEMET                  */ ,
+	CS_CANT_MAP /*     AF 00A4 CURRENCY SIGN                            */ ,
+	0xB0 /*     B0 2591 LIGHT SHADE                              */ ,
+	0xB1 /*     B1 2592 MEDIUM SHADE                             */ ,
+	0xB2 /*     B2 2593 DARK SHADE                               */ ,
+	0xB3 /*     B3 2502 FORMS LIGHT VERTICAL                     */ ,
+	0xB4 /*     B4 2524 FORMS LIGHT VERTICAL AND LEFT            */ ,
+	0xB5 /*     B5 2561 FORMS VERTICAL SINGLE AND LEFT DOUBLE    */ ,
+	0xB6 /*     B6 2562 FORMS VERTICAL DOUBLE AND LEFT SINGLE    */ ,
+	0xB7 /*     B7 2556 FORMS DOWN DOUBLE AND LEFT SINGLE        */ ,
+	0xB8 /*     B8 2555 FORMS DOWN SINGLE AND LEFT DOUBLE        */ ,
+	0xB9 /*     B9 2563 FORMS DOUBLE VERTICAL AND LEFT           */ ,
+	0xBA /*     BA 2551 FORMS DOUBLE VERTICAL                    */ ,
+	0xBB /*     BB 2557 FORMS DOUBLE DOWN AND LEFT               */ ,
+	0xBC /*     BC 255D FORMS DOUBLE UP AND LEFT                 */ ,
+	0xBD /*     BD 255C FORMS UP DOUBLE AND LEFT SINGLE          */ ,
+	0xBE /*     BE 255B FORMS UP SINGLE AND LEFT DOUBLE          */ ,
+	0xBF /*     BF 2510 FORMS LIGHT DOWN AND LEFT                */ ,
+/*NEW       OLD UINC       NAME */
+	0xC0 /*     C0 2514 FORMS LIGHT UP AND RIGHT                 */ ,
+	0xC1 /*     C1 2534 FORMS LIGHT UP AND HORIZONTAL            */ ,
+	0xC2 /*     C2 252C FORMS LIGHT DOWN AND HORIZONTAL          */ ,
+	0xC3 /*     C3 251C FORMS LIGHT VERTICAL AND RIGHT           */ ,
+	0xC4 /*     C4 2500 FORMS LIGHT HORIZONTAL                   */ ,
+	0xC5 /*     C5 253C FORMS LIGHT VERTICAL AND HORIZONTAL      */ ,
+	0xC6 /*     C6 255E FORMS VERTICAL SINGLE AND RIGHT DOUBLE   */ ,
+	0xC7 /*     C7 255F FORMS VERTICAL DOUBLE AND RIGHT SINGLE   */ ,
+	0xC8 /*     C8 255A FORMS DOUBLE UP AND RIGHT                */ ,
+	0xC9 /*     C9 2554 FORMS DOUBLE DOWN AND RIGHT              */ ,
+	0xCA /*     CA 2569 FORMS DOUBLE UP AND HORIZONTAL           */ ,
+	0xCB /*     CB 2566 FORMS DOUBLE DOWN AND HORIZONTAL         */ ,
+	0xCC /*     CC 2560 FORMS DOUBLE VERTICAL AND RIGHT          */ ,
+	0xCD /*     CD 2550 FORMS DOUBLE HORIZONTAL                  */ ,
+	0xCE /*     CE 256C FORMS DOUBLE VERTICAL AND HORIZONTAL     */ ,
+	0xCF /*     CF 2567 FORMS UP SINGLE AND HORIZONTAL DOUBLE    */ ,
+	0xD0 /*     D0 2568 FORMS UP DOUBLE AND HORIZONTAL SINGLE    */ ,
+	0xD1 /*     D1 2564 FORMS DOWN SINGLE AND HORIZONTAL DOUBLE  */ ,
+	0xD2 /*     D2 2565 FORMS DOWN DOUBLE AND HORIZONTAL SINGLE  */ ,
+	0xD3 /*     D3 2559 FORMS UP DOUBLE AND RIGHT SINGLE         */ ,
+	0xD4 /*     D4 2558 FORMS UP SINGLE AND RIGHT DOUBLE         */ ,
+	0xD5 /*     D5 2552 FORMS DOWN SINGLE AND RIGHT DOUBLE       */ ,
+	0xD6 /*     D6 2553 FORMS DOWN DOUBLE AND RIGHT SINGLE       */ ,
+	0xD7 /*     D7 256B FORMS VERTICAL DOUBLE AND HORIZONTAL SINGLE */ ,
+	0xD8 /*     D8 256A FORMS VERTICAL SINGLE AND HORIZONTAL DOUBLE */ ,
+	0xD9 /*     D9 2518 FORMS LIGHT UP AND LEFT                  */ ,
+	0xDA /*     DA 250C FORMS LIGHT DOWN AND RIGHT               */ ,
+	0xDB /*     DB 2588 FULL BLOCK                               */ ,
+	0xDC /*     DC 2584 LOWER HALF BLOCK                         */ ,
+	0xDD /*     DD 258C LEFT HALF BLOCK                          */ ,
+	0xDE /*     DE 2590 RIGHT HALF BLOCK                         */ ,
+	0xDF /*     DF 2580 UPPER HALF BLOCK                         */ ,
+/*NEW       OLD UINC       NAME */
+	0xE0 /*     E0 03B1 GREEK SMALL LETTER ALPHA                 */ ,
+	0xE1 /*     E1 00DF LATIN SMALL LETTER SHARP S               */ ,
+	0xE2 /*     E2 0393 GREEK CAPITAL LETTER GAMMA               */ ,
+	0xE3 /*     E3 03C0 GREEK SMALL LETTER PI                    */ ,
+	0xE4 /*     E4 03A3 GREEK CAPITAL LETTER SIGMA               */ ,
+	0xE5 /*     E5 03C3 GREEK SMALL LETTER SIGMA                 */ ,
+	0xE6 /*     E6 00B5 MICRO SIGN                               */ ,
+	0xE7 /*     E7 03C4 GREEK SMALL LETTER TAU                   */ ,
+	0xE8 /*     E8 03A6 GREEK CAPITAL LETTER PHI                 */ ,
+	0xE9 /*     E9 0398 GREEK CAPITAL LETTER THETA               */ ,
+	0xEA /*     EA 03A9 GREEK CAPITAL LETTER OMEGA               */ ,
+	0xEB /*     EB 03B4 GREEK SMALL LETTER DELTA                 */ ,
+	0xEC /*     EC 221E INFINITY                                 */ ,
+	0xED /*     ED 03C6 GREEK SMALL LETTER PHI                   */ ,
+	0xEE /*     EE 03B5 GREEK SMALL LETTER EPSILON               */ ,
+	0xEF /*     EF 2229 INTERSECTION                             */ ,
+	0xF0 /*     F0 2261 IDENTICAL TO                             */ ,
+	0xF1 /*     F1 00B1 PLUS-OR-MINUS SIGN                       */ ,
+	0xF2 /*     F2 2265 GREATER THAN OR EQUAL TO                 */ ,
+	0xF3 /*     F3 2264 LESS THAN OR EQUAL TO                    */ ,
+	0xF4 /*     F4 2320 TOP HALF INTEGRAL                        */ ,
+	0xF5 /*     F5 2321 BOTTOM HALF INTEGRAL                     */ ,
+	0xF6 /*     F6 00F7 DIVISION SIGN                            */ ,
+	0xF7 /*     F7 2248 ALMOST EQUAL TO                          */ ,
+	0xF8 /*     F8 00B0 DEGREE SIGN                              */ ,
+	0xF9 /*     F9 2219 BULLET OPERATOR                          */ ,
+	0xFA /*     FA 00B7 MIDDLE DOT                               */ ,
+	0xFB /*     FB 221A SQUARE ROOT                              */ ,
+	0xFC /*     FC 207F SUPERSCRIPT LATIN SMALL LETTER N         */ ,
+	0xFD /*     FD 00B2 SUPERSCRIPT DIGIT TWO                    */ ,
+	0xFE /*     FE 25A0 BLACK SQUARE                             */ ,
+	0xFF						/*     FF 00A0 NON-BREAKING SPACE                       */
+};
diff --git a/src/intl/tx437_lat1.h b/src/intl/tx437_lat1.h
new file mode 100644
index 0000000000..e371fc7014
--- /dev/null
+++ b/src/intl/tx437_lat1.h
@@ -0,0 +1,556 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/* 437 to Latin1 character set conversion table */
+static CONST UCHAR cvt_437_to_Latin1[256] = {
+/*NEW       OLD UINC       NAME */
+	0x00 /*     00 0000 NULL                                     */ ,
+	0x01 /*     01 0001 START OF HEADING                         */ ,
+	0x02 /*     02 0002 START OF TEXT                            */ ,
+	0x03 /*     03 0003 END OF TEXT                              */ ,
+	0x04 /*     04 0004 END OF TRANSMISSION                      */ ,
+	0x05 /*     05 0005 ENQUIRY                                  */ ,
+	0x06 /*     06 0006 ACKNOWLEDGE                              */ ,
+	0x07 /*     07 0007 BELL                                     */ ,
+	0x08 /*     08 0008 BACKSPACE                                */ ,
+	0x09 /*     09 0009 HORIZONTAL TABULATION                    */ ,
+	0x0A /*     0A 000A LINE FEED                                */ ,
+	0x0B /*     0B 000B VERTICAL TABULATION                      */ ,
+	0x0C /*     0C 000C FORM FEED                                */ ,
+	0x0D /*     0D 000D CARRIAGE RETURN                          */ ,
+	0x0E /*     0E 000E SHIFT OUT                                */ ,
+	0x0F /*     0F 000F SHIFT IN                                 */ ,
+	0x10 /*     10 0010 DATA LINK ESCAPE                         */ ,
+	0x11 /*     11 0011 DEVICE CONTROL ONE                       */ ,
+	0x12 /*     12 0012 DEVICE CONTROL TWO                       */ ,
+	0x13 /*     13 0013 DEVICE CONTROL THREE                     */ ,
+	0x14 /*     14 0014 DEVICE CONTROL FOUR                      */ ,
+	0x15 /*     15 0015 NEGATIVE ACKNOWLEDGE                     */ ,
+	0x16 /*     16 0016 SYNCHRONOUS IDLE                         */ ,
+	0x17 /*     17 0017 END OF TRANSMISSION BLOCK                */ ,
+	0x18 /*     18 0018 CANCEL                                   */ ,
+	0x19 /*     19 0019 END OF MEDIUM                            */ ,
+	0x1A /*     1A 001A SUBSTITUTE                               */ ,
+	0x1B /*     1B 001B ESCAPE                                   */ ,
+	0x1C /*     1C 001C FILE SEPARATOR                           */ ,
+	0x1D /*     1D 001D GROUP SEPARATOR                          */ ,
+	0x1E /*     1E 001E RECORD SEPARATOR                         */ ,
+	0x1F /*     1F 001F UNIT SEPARATOR                           */ ,
+/*NEW       OLD UINC       NAME */
+	0x20 /*     20 0020 SPACE                                    */ ,
+	0x21 /*     21 0021 EXCLAMATION MARK                         */ ,
+	0x22 /*     22 0022 QUOTATION MARK                           */ ,
+	0x23 /*     23 0023 NUMBER SIGN                              */ ,
+	0x24 /*     24 0024 DOLLAR SIGN                              */ ,
+	0x25 /*     25 0025 PERCENT SIGN                             */ ,
+	0x26 /*     26 0026 AMPERSAND                                */ ,
+	0x27 /*     27 0027 APOSTROPHE-QUOTE                         */ ,
+	0x28 /*     28 0028 OPENING PARENTHESIS                      */ ,
+	0x29 /*     29 0029 CLOSING PARENTHESIS                      */ ,
+	0x2A /*     2A 002A ASTERISK                                 */ ,
+	0x2B /*     2B 002B PLUS SIGN                                */ ,
+	0x2C /*     2C 002C COMMA                                    */ ,
+	0x2D /*     2D 002D HYPHEN-MINUS                             */ ,
+	0x2E /*     2E 002E PERIOD                                   */ ,
+	0x2F /*     2F 002F SLASH                                    */ ,
+	0x30 /*     30 0030 DIGIT ZERO                               */ ,
+	0x31 /*     31 0031 DIGIT ONE                                */ ,
+	0x32 /*     32 0032 DIGIT TWO                                */ ,
+	0x33 /*     33 0033 DIGIT THREE                              */ ,
+	0x34 /*     34 0034 DIGIT FOUR                               */ ,
+	0x35 /*     35 0035 DIGIT FIVE                               */ ,
+	0x36 /*     36 0036 DIGIT SIX                                */ ,
+	0x37 /*     37 0037 DIGIT SEVEN                              */ ,
+	0x38 /*     38 0038 DIGIT EIGHT                              */ ,
+	0x39 /*     39 0039 DIGIT NINE                               */ ,
+	0x3A /*     3A 003A COLON                                    */ ,
+	0x3B /*     3B 003B SEMICOLON                                */ ,
+	0x3C /*     3C 003C LESS-THAN SIGN                           */ ,
+	0x3D /*     3D 003D EQUALS SIGN                              */ ,
+	0x3E /*     3E 003E GREATER-THAN SIGN                        */ ,
+	0x3F /*     3F 003F QUESTION MARK                            */ ,
+/*NEW       OLD UINC       NAME */
+	0x40 /*     40 0040 COMMERCIAL AT                            */ ,
+	0x41 /*     41 0041 LATIN CAPITAL LETTER A                   */ ,
+	0x42 /*     42 0042 LATIN CAPITAL LETTER B                   */ ,
+	0x43 /*     43 0043 LATIN CAPITAL LETTER C                   */ ,
+	0x44 /*     44 0044 LATIN CAPITAL LETTER D                   */ ,
+	0x45 /*     45 0045 LATIN CAPITAL LETTER E                   */ ,
+	0x46 /*     46 0046 LATIN CAPITAL LETTER F                   */ ,
+	0x47 /*     47 0047 LATIN CAPITAL LETTER G                   */ ,
+	0x48 /*     48 0048 LATIN CAPITAL LETTER H                   */ ,
+	0x49 /*     49 0049 LATIN CAPITAL LETTER I                   */ ,
+	0x4A /*     4A 004A LATIN CAPITAL LETTER J                   */ ,
+	0x4B /*     4B 004B LATIN CAPITAL LETTER K                   */ ,
+	0x4C /*     4C 004C LATIN CAPITAL LETTER L                   */ ,
+	0x4D /*     4D 004D LATIN CAPITAL LETTER M                   */ ,
+	0x4E /*     4E 004E LATIN CAPITAL LETTER N                   */ ,
+	0x4F /*     4F 004F LATIN CAPITAL LETTER O                   */ ,
+	0x50 /*     50 0050 LATIN CAPITAL LETTER P                   */ ,
+	0x51 /*     51 0051 LATIN CAPITAL LETTER Q                   */ ,
+	0x52 /*     52 0052 LATIN CAPITAL LETTER R                   */ ,
+	0x53 /*     53 0053 LATIN CAPITAL LETTER S                   */ ,
+	0x54 /*     54 0054 LATIN CAPITAL LETTER T                   */ ,
+	0x55 /*     55 0055 LATIN CAPITAL LETTER U                   */ ,
+	0x56 /*     56 0056 LATIN CAPITAL LETTER V                   */ ,
+	0x57 /*     57 0057 LATIN CAPITAL LETTER W                   */ ,
+	0x58 /*     58 0058 LATIN CAPITAL LETTER X                   */ ,
+	0x59 /*     59 0059 LATIN CAPITAL LETTER Y                   */ ,
+	0x5A /*     5A 005A LATIN CAPITAL LETTER Z                   */ ,
+	0x5B /*     5B 005B OPENING SQUARE BRACKET                   */ ,
+	0x5C /*     5C 005C BACKSLASH                                */ ,
+	0x5D /*     5D 005D CLOSING SQUARE BRACKET                   */ ,
+	0x5E /*     5E 005E SPACING CIRCUMFLEX                       */ ,
+	0x5F /*     5F 005F SPACING UNDERSCORE                       */ ,
+/*NEW       OLD UINC       NAME */
+	0x60 /*     60 0060 SPACING GRAVE                            */ ,
+	0x61 /*     61 0061 LATIN SMALL LETTER A                     */ ,
+	0x62 /*     62 0062 LATIN SMALL LETTER B                     */ ,
+	0x63 /*     63 0063 LATIN SMALL LETTER C                     */ ,
+	0x64 /*     64 0064 LATIN SMALL LETTER D                     */ ,
+	0x65 /*     65 0065 LATIN SMALL LETTER E                     */ ,
+	0x66 /*     66 0066 LATIN SMALL LETTER F                     */ ,
+	0x67 /*     67 0067 LATIN SMALL LETTER G                     */ ,
+	0x68 /*     68 0068 LATIN SMALL LETTER H                     */ ,
+	0x69 /*     69 0069 LATIN SMALL LETTER I                     */ ,
+	0x6A /*     6A 006A LATIN SMALL LETTER J                     */ ,
+	0x6B /*     6B 006B LATIN SMALL LETTER K                     */ ,
+	0x6C /*     6C 006C LATIN SMALL LETTER L                     */ ,
+	0x6D /*     6D 006D LATIN SMALL LETTER M                     */ ,
+	0x6E /*     6E 006E LATIN SMALL LETTER N                     */ ,
+	0x6F /*     6F 006F LATIN SMALL LETTER O                     */ ,
+	0x70 /*     70 0070 LATIN SMALL LETTER P                     */ ,
+	0x71 /*     71 0071 LATIN SMALL LETTER Q                     */ ,
+	0x72 /*     72 0072 LATIN SMALL LETTER R                     */ ,
+	0x73 /*     73 0073 LATIN SMALL LETTER S                     */ ,
+	0x74 /*     74 0074 LATIN SMALL LETTER T                     */ ,
+	0x75 /*     75 0075 LATIN SMALL LETTER U                     */ ,
+	0x76 /*     76 0076 LATIN SMALL LETTER V                     */ ,
+	0x77 /*     77 0077 LATIN SMALL LETTER W                     */ ,
+	0x78 /*     78 0078 LATIN SMALL LETTER X                     */ ,
+	0x79 /*     79 0079 LATIN SMALL LETTER Y                     */ ,
+	0x7A /*     7A 007A LATIN SMALL LETTER Z                     */ ,
+	0x7B /*     7B 007B OPENING CURLY BRACKET                    */ ,
+	0x7C /*     7C 007C VERTICAL BAR                             */ ,
+	0x7D /*     7D 007D CLOSING CURLY BRACKET                    */ ,
+	0x7E /*     7E 007E TILDE                                    */ ,
+	0x7F /*     7F 007F DELETE                                   */ ,
+/*NEW       OLD UINC       NAME */
+	0xC7 /*     80 00C7 LATIN CAPITAL LETTER C CEDILLA           */ ,
+	0xFC /*     81 00FC LATIN SMALL LETTER U DIAERESIS           */ ,
+	0xE9 /*     82 00E9 LATIN SMALL LETTER E ACUTE               */ ,
+	0xE2 /*     83 00E2 LATIN SMALL LETTER A CIRCUMFLEX          */ ,
+	0xE4 /*     84 00E4 LATIN SMALL LETTER A DIAERESIS           */ ,
+	0xE0 /*     85 00E0 LATIN SMALL LETTER A GRAVE               */ ,
+	0xE5 /*     86 00E5 LATIN SMALL LETTER A RING                */ ,
+	0xE7 /*     87 00E7 LATIN SMALL LETTER C CEDILLA             */ ,
+	0xEA /*     88 00EA LATIN SMALL LETTER E CIRCUMFLEX          */ ,
+	0xEB /*     89 00EB LATIN SMALL LETTER E DIAERESIS           */ ,
+	0xE8 /*     8A 00E8 LATIN SMALL LETTER E GRAVE               */ ,
+	0xEF /*     8B 00EF LATIN SMALL LETTER I DIAERESIS           */ ,
+	0xEE /*     8C 00EE LATIN SMALL LETTER I CIRCUMFLEX          */ ,
+	0xEC /*     8D 00EC LATIN SMALL LETTER I GRAVE               */ ,
+	0xC4 /*     8E 00C4 LATIN CAPITAL LETTER A DIAERESIS         */ ,
+	0xC5 /*     8F 00C5 LATIN CAPITAL LETTER A RING              */ ,
+	0xC9 /*     90 00C9 LATIN CAPITAL LETTER E ACUTE             */ ,
+	0xE6 /*     91 00E6 LATIN SMALL LETTER A E                   */ ,
+	0xC6 /*     92 00C6 LATIN CAPITAL LETTER A E                 */ ,
+	0xF4 /*     93 00F4 LATIN SMALL LETTER O CIRCUMFLEX          */ ,
+	0xF6 /*     94 00F6 LATIN SMALL LETTER O DIAERESIS           */ ,
+	0xF2 /*     95 00F2 LATIN SMALL LETTER O GRAVE               */ ,
+	0xFB /*     96 00FB LATIN SMALL LETTER U CIRCUMFLEX          */ ,
+	0xF9 /*     97 00F9 LATIN SMALL LETTER U GRAVE               */ ,
+	0xFF /*     98 00FF LATIN SMALL LETTER Y DIAERESIS           */ ,
+	0xD6 /*     99 00D6 LATIN CAPITAL LETTER O DIAERESIS         */ ,
+	0xDC /*     9A 00DC LATIN CAPITAL LETTER U DIAERESIS         */ ,
+	0xA2 /*     9B 00A2 CENT SIGN                                */ ,
+	0xA3 /*     9C 00A3 POUND SIGN                               */ ,
+	0xA5 /*     9D 00A5 YEN SIGN                                 */ ,
+	CS_CANT_MAP /*     9E 20A7 PESETA SIGN                              */ ,
+	CS_CANT_MAP /*     9F 0192 LATIN SMALL LETTER SCRIPT F              */ ,
+/*NEW       OLD UINC       NAME */
+	0xE1 /*     A0 00E1 LATIN SMALL LETTER A ACUTE               */ ,
+	0xED /*     A1 00ED LATIN SMALL LETTER I ACUTE               */ ,
+	0xF3 /*     A2 00F3 LATIN SMALL LETTER O ACUTE               */ ,
+	0xFA /*     A3 00FA LATIN SMALL LETTER U ACUTE               */ ,
+	0xF1 /*     A4 00F1 LATIN SMALL LETTER N TILDE               */ ,
+	0xD1 /*     A5 00D1 LATIN CAPITAL LETTER N TILDE             */ ,
+	0xAA /*     A6 00AA FEMININE ORDINAL INDICATOR               */ ,
+	0xBA /*     A7 00BA MASCULINE ORDINAL INDICATOR              */ ,
+	0xBF /*     A8 00BF INVERTED QUESTION MARK                   */ ,
+	CS_CANT_MAP /*     A9 2310 REVERSED NOT SIGN                        */ ,
+	0xAC /*     AA 00AC NOT SIGN                                 */ ,
+	0xBD /*     AB 00BD FRACTION ONE HALF                        */ ,
+	0xBC /*     AC 00BC FRACTION ONE QUARTER                     */ ,
+	0xA1 /*     AD 00A1 INVERTED EXCLAMATION MARK                */ ,
+	0xAB /*     AE 00AB LEFT POINTING GUILLEMET                  */ ,
+	0xBB /*     AF 00BB RIGHT POINTING GUILLEMET                 */ ,
+	CS_CANT_MAP /*     B0 2591 LIGHT SHADE                              */ ,
+	CS_CANT_MAP /*     B1 2592 MEDIUM SHADE                             */ ,
+	CS_CANT_MAP /*     B2 2593 DARK SHADE                               */ ,
+	CS_CANT_MAP /*     B3 2502 FORMS LIGHT VERTICAL                     */ ,
+	CS_CANT_MAP /*     B4 2524 FORMS LIGHT VERTICAL AND LEFT            */ ,
+	CS_CANT_MAP /*     B5 2561 FORMS VERTICAL SINGLE AND LEFT DOUBLE    */ ,
+	CS_CANT_MAP /*     B6 2562 FORMS VERTICAL DOUBLE AND LEFT SINGLE    */ ,
+	CS_CANT_MAP /*     B7 2556 FORMS DOWN DOUBLE AND LEFT SINGLE        */ ,
+	CS_CANT_MAP /*     B8 2555 FORMS DOWN SINGLE AND LEFT DOUBLE        */ ,
+	CS_CANT_MAP /*     B9 2563 FORMS DOUBLE VERTICAL AND LEFT           */ ,
+	CS_CANT_MAP /*     BA 2551 FORMS DOUBLE VERTICAL                    */ ,
+	CS_CANT_MAP /*     BB 2557 FORMS DOUBLE DOWN AND LEFT               */ ,
+	CS_CANT_MAP /*     BC 255D FORMS DOUBLE UP AND LEFT                 */ ,
+	CS_CANT_MAP /*     BD 255C FORMS UP DOUBLE AND LEFT SINGLE          */ ,
+	CS_CANT_MAP /*     BE 255B FORMS UP SINGLE AND LEFT DOUBLE          */ ,
+	CS_CANT_MAP /*     BF 2510 FORMS LIGHT DOWN AND LEFT                */ ,
+/*NEW       OLD UINC       NAME */
+	CS_CANT_MAP /*     C0 2514 FORMS LIGHT UP AND RIGHT                 */ ,
+	CS_CANT_MAP /*     C1 2534 FORMS LIGHT UP AND HORIZONTAL            */ ,
+	CS_CANT_MAP /*     C2 252C FORMS LIGHT DOWN AND HORIZONTAL          */ ,
+	CS_CANT_MAP /*     C3 251C FORMS LIGHT VERTICAL AND RIGHT           */ ,
+	CS_CANT_MAP /*     C4 2500 FORMS LIGHT HORIZONTAL                   */ ,
+	CS_CANT_MAP /*     C5 253C FORMS LIGHT VERTICAL AND HORIZONTAL      */ ,
+	CS_CANT_MAP /*     C6 255E FORMS VERTICAL SINGLE AND RIGHT DOUBLE   */ ,
+	CS_CANT_MAP /*     C7 255F FORMS VERTICAL DOUBLE AND RIGHT SINGLE   */ ,
+	CS_CANT_MAP /*     C8 255A FORMS DOUBLE UP AND RIGHT                */ ,
+	CS_CANT_MAP /*     C9 2554 FORMS DOUBLE DOWN AND RIGHT              */ ,
+	CS_CANT_MAP /*     CA 2569 FORMS DOUBLE UP AND HORIZONTAL           */ ,
+	CS_CANT_MAP /*     CB 2566 FORMS DOUBLE DOWN AND HORIZONTAL         */ ,
+	CS_CANT_MAP /*     CC 2560 FORMS DOUBLE VERTICAL AND RIGHT          */ ,
+	CS_CANT_MAP /*     CD 2550 FORMS DOUBLE HORIZONTAL                  */ ,
+	CS_CANT_MAP /*     CE 256C FORMS DOUBLE VERTICAL AND HORIZONTAL     */ ,
+	CS_CANT_MAP /*     CF 2567 FORMS UP SINGLE AND HORIZONTAL DOUBLE    */ ,
+	CS_CANT_MAP /*     D0 2568 FORMS UP DOUBLE AND HORIZONTAL SINGLE    */ ,
+	CS_CANT_MAP /*     D1 2564 FORMS DOWN SINGLE AND HORIZONTAL DOUBLE  */ ,
+	CS_CANT_MAP /*     D2 2565 FORMS DOWN DOUBLE AND HORIZONTAL SINGLE  */ ,
+	CS_CANT_MAP /*     D3 2559 FORMS UP DOUBLE AND RIGHT SINGLE         */ ,
+	CS_CANT_MAP /*     D4 2558 FORMS UP SINGLE AND RIGHT DOUBLE         */ ,
+	CS_CANT_MAP /*     D5 2552 FORMS DOWN SINGLE AND RIGHT DOUBLE       */ ,
+	CS_CANT_MAP /*     D6 2553 FORMS DOWN DOUBLE AND RIGHT SINGLE       */ ,
+	CS_CANT_MAP /*     D7 256B FORMS VERTICAL DOUBLE AND HORIZONTAL SINGLE */
+		,
+	CS_CANT_MAP /*     D8 256A FORMS VERTICAL SINGLE AND HORIZONTAL DOUBLE */
+		,
+	CS_CANT_MAP /*     D9 2518 FORMS LIGHT UP AND LEFT                  */ ,
+	CS_CANT_MAP /*     DA 250C FORMS LIGHT DOWN AND RIGHT               */ ,
+	CS_CANT_MAP /*     DB 2588 FULL BLOCK                               */ ,
+	CS_CANT_MAP /*     DC 2584 LOWER HALF BLOCK                         */ ,
+	CS_CANT_MAP /*     DD 258C LEFT HALF BLOCK                          */ ,
+	CS_CANT_MAP /*     DE 2590 RIGHT HALF BLOCK                         */ ,
+	CS_CANT_MAP /*     DF 2580 UPPER HALF BLOCK                         */ ,
+/*NEW       OLD UINC       NAME */
+	CS_CANT_MAP /*     E0 03B1 GREEK SMALL LETTER ALPHA                 */ ,
+	0xDF /*     E1 00DF LATIN SMALL LETTER SHARP S               */ ,
+	CS_CANT_MAP /*     E2 0393 GREEK CAPITAL LETTER GAMMA               */ ,
+	CS_CANT_MAP /*     E3 03C0 GREEK SMALL LETTER PI                    */ ,
+	CS_CANT_MAP /*     E4 03A3 GREEK CAPITAL LETTER SIGMA               */ ,
+	CS_CANT_MAP /*     E5 03C3 GREEK SMALL LETTER SIGMA                 */ ,
+	0xB5 /*     E6 00B5 MICRO SIGN                               */ ,
+	CS_CANT_MAP /*     E7 03C4 GREEK SMALL LETTER TAU                   */ ,
+	CS_CANT_MAP /*     E8 03A6 GREEK CAPITAL LETTER PHI                 */ ,
+	CS_CANT_MAP /*     E9 0398 GREEK CAPITAL LETTER THETA               */ ,
+	CS_CANT_MAP /*     EA 03A9 GREEK CAPITAL LETTER OMEGA               */ ,
+	CS_CANT_MAP /*     EB 03B4 GREEK SMALL LETTER DELTA                 */ ,
+	CS_CANT_MAP /*     EC 221E INFINITY                                 */ ,
+	CS_CANT_MAP /*     ED 03C6 GREEK SMALL LETTER PHI                   */ ,
+	CS_CANT_MAP /*     EE 03B5 GREEK SMALL LETTER EPSILON               */ ,
+	CS_CANT_MAP /*     EF 2229 INTERSECTION                             */ ,
+	CS_CANT_MAP /*     F0 2261 IDENTICAL TO                             */ ,
+	0xB1 /*     F1 00B1 PLUS-OR-MINUS SIGN                       */ ,
+	CS_CANT_MAP /*     F2 2265 GREATER THAN OR EQUAL TO                 */ ,
+	CS_CANT_MAP /*     F3 2264 LESS THAN OR EQUAL TO                    */ ,
+	CS_CANT_MAP /*     F4 2320 TOP HALF INTEGRAL                        */ ,
+	CS_CANT_MAP /*     F5 2321 BOTTOM HALF INTEGRAL                     */ ,
+	0xF7 /*     F6 00F7 DIVISION SIGN                            */ ,
+	CS_CANT_MAP /*     F7 2248 ALMOST EQUAL TO                          */ ,
+	0xB0 /*     F8 00B0 DEGREE SIGN                              */ ,
+	CS_CANT_MAP /*     F9 2219 BULLET OPERATOR                          */ ,
+	0xB7 /*     FA 00B7 MIDDLE DOT                               */ ,
+	CS_CANT_MAP /*     FB 221A SQUARE ROOT                              */ ,
+	CS_CANT_MAP /*     FC 207F SUPERSCRIPT LATIN SMALL LETTER N         */ ,
+	0xB2 /*     FD 00B2 SUPERSCRIPT DIGIT TWO                    */ ,
+	CS_CANT_MAP /*     FE 25A0 BLACK SQUARE                             */ ,
+	0xA0						/*     FF 00A0 NON-BREAKING SPACE                       */
+};
+
+
+/* Latin1 to 437 character set conversion table */
+static CONST UCHAR cvt_Latin1_to_437[256] = {
+/*NEW       OLD UINC       NAME */
+	0x00 /*     00 0000 NULL                                     */ ,
+	0x01 /*     01 0001 START OF HEADING                         */ ,
+	0x02 /*     02 0002 START OF TEXT                            */ ,
+	0x03 /*     03 0003 END OF TEXT                              */ ,
+	0x04 /*     04 0004 END OF TRANSMISSION                      */ ,
+	0x05 /*     05 0005 ENQUIRY                                  */ ,
+	0x06 /*     06 0006 ACKNOWLEDGE                              */ ,
+	0x07 /*     07 0007 BELL                                     */ ,
+	0x08 /*     08 0008 BACKSPACE                                */ ,
+	0x09 /*     09 0009 HORIZONTAL TABULATION                    */ ,
+	0x0A /*     0A 000A LINE FEED                                */ ,
+	0x0B /*     0B 000B VERTICAL TABULATION                      */ ,
+	0x0C /*     0C 000C FORM FEED                                */ ,
+	0x0D /*     0D 000D CARRIAGE RETURN                          */ ,
+	0x0E /*     0E 000E SHIFT OUT                                */ ,
+	0x0F /*     0F 000F SHIFT IN                                 */ ,
+	0x10 /*     10 0010 DATA LINK ESCAPE                         */ ,
+	0x11 /*     11 0011 DEVICE CONTROL ONE                       */ ,
+	0x12 /*     12 0012 DEVICE CONTROL TWO                       */ ,
+	0x13 /*     13 0013 DEVICE CONTROL THREE                     */ ,
+	0x14 /*     14 0014 DEVICE CONTROL FOUR                      */ ,
+	0x15 /*     15 0015 NEGATIVE ACKNOWLEDGE                     */ ,
+	0x16 /*     16 0016 SYNCHRONOUS IDLE                         */ ,
+	0x17 /*     17 0017 END OF TRANSMISSION BLOCK                */ ,
+	0x18 /*     18 0018 CANCEL                                   */ ,
+	0x19 /*     19 0019 END OF MEDIUM                            */ ,
+	0x1A /*     1A 001A SUBSTITUTE                               */ ,
+	0x1B /*     1B 001B ESCAPE                                   */ ,
+	0x1C /*     1C 001C FILE SEPARATOR                           */ ,
+	0x1D /*     1D 001D GROUP SEPARATOR                          */ ,
+	0x1E /*     1E 001E RECORD SEPARATOR                         */ ,
+	0x1F /*     1F 001F UNIT SEPARATOR                           */ ,
+/*NEW       OLD UINC       NAME */
+	0x20 /*     20 0020 SPACE                                    */ ,
+	0x21 /*     21 0021 EXCLAMATION MARK                         */ ,
+	0x22 /*     22 0022 QUOTATION MARK                           */ ,
+	0x23 /*     23 0023 NUMBER SIGN                              */ ,
+	0x24 /*     24 0024 DOLLAR SIGN                              */ ,
+	0x25 /*     25 0025 PERCENT SIGN                             */ ,
+	0x26 /*     26 0026 AMPERSAND                                */ ,
+	0x27 /*     27 0027 APOSTROPHE-QUOTE                         */ ,
+	0x28 /*     28 0028 OPENING PARENTHESIS                      */ ,
+	0x29 /*     29 0029 CLOSING PARENTHESIS                      */ ,
+	0x2A /*     2A 002A ASTERISK                                 */ ,
+	0x2B /*     2B 002B PLUS SIGN                                */ ,
+	0x2C /*     2C 002C COMMA                                    */ ,
+	0x2D /*     2D 002D HYPHEN-MINUS                             */ ,
+	0x2E /*     2E 002E PERIOD                                   */ ,
+	0x2F /*     2F 002F SLASH                                    */ ,
+	0x30 /*     30 0030 DIGIT ZERO                               */ ,
+	0x31 /*     31 0031 DIGIT ONE                                */ ,
+	0x32 /*     32 0032 DIGIT TWO                                */ ,
+	0x33 /*     33 0033 DIGIT THREE                              */ ,
+	0x34 /*     34 0034 DIGIT FOUR                               */ ,
+	0x35 /*     35 0035 DIGIT FIVE                               */ ,
+	0x36 /*     36 0036 DIGIT SIX                                */ ,
+	0x37 /*     37 0037 DIGIT SEVEN                              */ ,
+	0x38 /*     38 0038 DIGIT EIGHT                              */ ,
+	0x39 /*     39 0039 DIGIT NINE                               */ ,
+	0x3A /*     3A 003A COLON                                    */ ,
+	0x3B /*     3B 003B SEMICOLON                                */ ,
+	0x3C /*     3C 003C LESS-THAN SIGN                           */ ,
+	0x3D /*     3D 003D EQUALS SIGN                              */ ,
+	0x3E /*     3E 003E GREATER-THAN SIGN                        */ ,
+	0x3F /*     3F 003F QUESTION MARK                            */ ,
+/*NEW       OLD UINC       NAME */
+	0x40 /*     40 0040 COMMERCIAL AT                            */ ,
+	0x41 /*     41 0041 LATIN CAPITAL LETTER A                   */ ,
+	0x42 /*     42 0042 LATIN CAPITAL LETTER B                   */ ,
+	0x43 /*     43 0043 LATIN CAPITAL LETTER C                   */ ,
+	0x44 /*     44 0044 LATIN CAPITAL LETTER D                   */ ,
+	0x45 /*     45 0045 LATIN CAPITAL LETTER E                   */ ,
+	0x46 /*     46 0046 LATIN CAPITAL LETTER F                   */ ,
+	0x47 /*     47 0047 LATIN CAPITAL LETTER G                   */ ,
+	0x48 /*     48 0048 LATIN CAPITAL LETTER H                   */ ,
+	0x49 /*     49 0049 LATIN CAPITAL LETTER I                   */ ,
+	0x4A /*     4A 004A LATIN CAPITAL LETTER J                   */ ,
+	0x4B /*     4B 004B LATIN CAPITAL LETTER K                   */ ,
+	0x4C /*     4C 004C LATIN CAPITAL LETTER L                   */ ,
+	0x4D /*     4D 004D LATIN CAPITAL LETTER M                   */ ,
+	0x4E /*     4E 004E LATIN CAPITAL LETTER N                   */ ,
+	0x4F /*     4F 004F LATIN CAPITAL LETTER O                   */ ,
+	0x50 /*     50 0050 LATIN CAPITAL LETTER P                   */ ,
+	0x51 /*     51 0051 LATIN CAPITAL LETTER Q                   */ ,
+	0x52 /*     52 0052 LATIN CAPITAL LETTER R                   */ ,
+	0x53 /*     53 0053 LATIN CAPITAL LETTER S                   */ ,
+	0x54 /*     54 0054 LATIN CAPITAL LETTER T                   */ ,
+	0x55 /*     55 0055 LATIN CAPITAL LETTER U                   */ ,
+	0x56 /*     56 0056 LATIN CAPITAL LETTER V                   */ ,
+	0x57 /*     57 0057 LATIN CAPITAL LETTER W                   */ ,
+	0x58 /*     58 0058 LATIN CAPITAL LETTER X                   */ ,
+	0x59 /*     59 0059 LATIN CAPITAL LETTER Y                   */ ,
+	0x5A /*     5A 005A LATIN CAPITAL LETTER Z                   */ ,
+	0x5B /*     5B 005B OPENING SQUARE BRACKET                   */ ,
+	0x5C /*     5C 005C BACKSLASH                                */ ,
+	0x5D /*     5D 005D CLOSING SQUARE BRACKET                   */ ,
+	0x5E /*     5E 005E SPACING CIRCUMFLEX                       */ ,
+	0x5F /*     5F 005F SPACING UNDERSCORE                       */ ,
+/*NEW       OLD UINC       NAME */
+	0x60 /*     60 0060 SPACING GRAVE                            */ ,
+	0x61 /*     61 0061 LATIN SMALL LETTER A                     */ ,
+	0x62 /*     62 0062 LATIN SMALL LETTER B                     */ ,
+	0x63 /*     63 0063 LATIN SMALL LETTER C                     */ ,
+	0x64 /*     64 0064 LATIN SMALL LETTER D                     */ ,
+	0x65 /*     65 0065 LATIN SMALL LETTER E                     */ ,
+	0x66 /*     66 0066 LATIN SMALL LETTER F                     */ ,
+	0x67 /*     67 0067 LATIN SMALL LETTER G                     */ ,
+	0x68 /*     68 0068 LATIN SMALL LETTER H                     */ ,
+	0x69 /*     69 0069 LATIN SMALL LETTER I                     */ ,
+	0x6A /*     6A 006A LATIN SMALL LETTER J                     */ ,
+	0x6B /*     6B 006B LATIN SMALL LETTER K                     */ ,
+	0x6C /*     6C 006C LATIN SMALL LETTER L                     */ ,
+	0x6D /*     6D 006D LATIN SMALL LETTER M                     */ ,
+	0x6E /*     6E 006E LATIN SMALL LETTER N                     */ ,
+	0x6F /*     6F 006F LATIN SMALL LETTER O                     */ ,
+	0x70 /*     70 0070 LATIN SMALL LETTER P                     */ ,
+	0x71 /*     71 0071 LATIN SMALL LETTER Q                     */ ,
+	0x72 /*     72 0072 LATIN SMALL LETTER R                     */ ,
+	0x73 /*     73 0073 LATIN SMALL LETTER S                     */ ,
+	0x74 /*     74 0074 LATIN SMALL LETTER T                     */ ,
+	0x75 /*     75 0075 LATIN SMALL LETTER U                     */ ,
+	0x76 /*     76 0076 LATIN SMALL LETTER V                     */ ,
+	0x77 /*     77 0077 LATIN SMALL LETTER W                     */ ,
+	0x78 /*     78 0078 LATIN SMALL LETTER X                     */ ,
+	0x79 /*     79 0079 LATIN SMALL LETTER Y                     */ ,
+	0x7A /*     7A 007A LATIN SMALL LETTER Z                     */ ,
+	0x7B /*     7B 007B OPENING CURLY BRACKET                    */ ,
+	0x7C /*     7C 007C VERTICAL BAR                             */ ,
+	0x7D /*     7D 007D CLOSING CURLY BRACKET                    */ ,
+	0x7E /*     7E 007E TILDE                                    */ ,
+	0x7F /*     7F 007F DELETE                                   */ ,
+/*NEW       OLD UINC       NAME */
+	CS_CANT_MAP /*     80 0080 RESERVED - CTRL 80                       */ ,
+	CS_CANT_MAP /*     81 0081 RESERVED - CTRL 81                       */ ,
+	CS_CANT_MAP /*     82 0082 RESERVED - CTRL 82                       */ ,
+	CS_CANT_MAP /*     83 0083 RESERVED - CTRL 83                       */ ,
+	CS_CANT_MAP /*     84 0084 RESERVED - CTRL 84                       */ ,
+	CS_CANT_MAP /*     85 0085 RESERVED - CTRL 85                       */ ,
+	CS_CANT_MAP /*     86 0086 RESERVED - CTRL 86                       */ ,
+	CS_CANT_MAP /*     87 0087 RESERVED - CTRL 87                       */ ,
+	CS_CANT_MAP /*     88 0088 RESERVED - CTRL 88                       */ ,
+	CS_CANT_MAP /*     89 0089 RESERVED - CTRL 89                       */ ,
+	CS_CANT_MAP /*     8A 008A RESERVED - CTRL 8A                       */ ,
+	CS_CANT_MAP /*     8B 008B RESERVED - CTRL 8B                       */ ,
+	CS_CANT_MAP /*     8C 008C RESERVED - CTRL 8C                       */ ,
+	CS_CANT_MAP /*     8D 008D RESERVED - CTRL 8D                       */ ,
+	CS_CANT_MAP /*     8E 008E RESERVED - CTRL 8E                       */ ,
+	CS_CANT_MAP /*     8F 008F RESERVED - CTRL 8F                       */ ,
+	CS_CANT_MAP /*     90 0090 RESERVED - CTRL 90                       */ ,
+	CS_CANT_MAP /*     91 0091 RESERVED - CTRL 91                       */ ,
+	CS_CANT_MAP /*     92 0092 RESERVED - CTRL 92                       */ ,
+	CS_CANT_MAP /*     93 0093 RESERVED - CTRL 93                       */ ,
+	CS_CANT_MAP /*     94 0094 RESERVED - CTRL 94                       */ ,
+	CS_CANT_MAP /*     95 0095 RESERVED - CTRL 95                       */ ,
+	CS_CANT_MAP /*     96 0096 RESERVED - CTRL 96                       */ ,
+	CS_CANT_MAP /*     97 0097 RESERVED - CTRL 97                       */ ,
+	CS_CANT_MAP /*     98 0098 RESERVED - CTRL 98                       */ ,
+	CS_CANT_MAP /*     99 0099 RESERVED - CTRL 99                       */ ,
+	CS_CANT_MAP /*     9A 009A RESERVED - CTRL 9A                       */ ,
+	CS_CANT_MAP /*     9B 009B RESERVED - CTRL 9B                       */ ,
+	CS_CANT_MAP /*     9C 009C RESERVED - CTRL 9C                       */ ,
+	CS_CANT_MAP /*     9D 009D RESERVED - CTRL 9D                       */ ,
+	CS_CANT_MAP /*     9E 009E RESERVED - CTRL 9E                       */ ,
+	CS_CANT_MAP /*     9F 009F RESERVED - CTRL 9F                       */ ,
+/*NEW       OLD UINC       NAME */
+	0xFF /*     A0 00A0 NON-BREAKING SPACE                       */ ,
+	0xAD /*     A1 00A1 INVERTED EXCLAMATION MARK                */ ,
+	0x9B /*     A2 00A2 CENT SIGN                                */ ,
+	0x9C /*     A3 00A3 POUND SIGN                               */ ,
+	CS_CANT_MAP /*     A4 00A4 CURRENCY SIGN                            */ ,
+	0x9D /*     A5 00A5 YEN SIGN                                 */ ,
+	CS_CANT_MAP /*     A6 00A6 BROKEN VERTICAL BAR                      */ ,
+	CS_CANT_MAP /*     A7 00A7 SECTION SIGN                             */ ,
+	CS_CANT_MAP /*     A8 00A8 SPACING DIAERESIS                        */ ,
+	CS_CANT_MAP /*     A9 00A9 COPYRIGHT SIGN                           */ ,
+	0xA6 /*     AA 00AA FEMININE ORDINAL INDICATOR               */ ,
+	0xAE /*     AB 00AB LEFT POINTING GUILLEMET                  */ ,
+	0xAA /*     AC 00AC NOT SIGN                                 */ ,
+	CS_CANT_MAP /*     AD 00AD SOFT HYPHEN                              */ ,
+	CS_CANT_MAP /*     AE 00AE REGISTERED TRADE MARK SIGN               */ ,
+	CS_CANT_MAP /*     AF 00AF SPACING MACRON                           */ ,
+	0xF8 /*     B0 00B0 DEGREE SIGN                              */ ,
+	0xF1 /*     B1 00B1 PLUS-OR-MINUS SIGN                       */ ,
+	0xFD /*     B2 00B2 SUPERSCRIPT DIGIT TWO                    */ ,
+	CS_CANT_MAP /*     B3 00B3 SUPERSCRIPT DIGIT THREE                  */ ,
+	CS_CANT_MAP /*     B4 00B4 SPACING ACUTE                            */ ,
+	0xE6 /*     B5 00B5 MICRO SIGN                               */ ,
+	CS_CANT_MAP /*     B6 00B6 PARAGRAPH SIGN                           */ ,
+	0xFA /*     B7 00B7 MIDDLE DOT                               */ ,
+	CS_CANT_MAP /*     B8 00B8 SPACING CEDILLA                          */ ,
+	CS_CANT_MAP /*     B9 00B9 SUPERSCRIPT DIGIT ONE                    */ ,
+	0xA7 /*     BA 00BA MASCULINE ORDINAL INDICATOR              */ ,
+	0xAF /*     BB 00BB RIGHT POINTING GUILLEMET                 */ ,
+	0xAC /*     BC 00BC FRACTION ONE QUARTER                     */ ,
+	0xAB /*     BD 00BD FRACTION ONE HALF                        */ ,
+	CS_CANT_MAP /*     BE 00BE FRACTION THREE QUARTERS                  */ ,
+	0xA8 /*     BF 00BF INVERTED QUESTION MARK                   */ ,
+/*NEW       OLD UINC       NAME */
+	CS_CANT_MAP /*     C0 00C0 LATIN CAPITAL LETTER A GRAVE             */ ,
+	CS_CANT_MAP /*     C1 00C1 LATIN CAPITAL LETTER A ACUTE             */ ,
+	CS_CANT_MAP /*     C2 00C2 LATIN CAPITAL LETTER A CIRCUMFLEX        */ ,
+	CS_CANT_MAP /*     C3 00C3 LATIN CAPITAL LETTER A TILDE             */ ,
+	0x8E /*     C4 00C4 LATIN CAPITAL LETTER A DIAERESIS         */ ,
+	0x8F /*     C5 00C5 LATIN CAPITAL LETTER A RING              */ ,
+	0x92 /*     C6 00C6 LATIN CAPITAL LETTER A E                 */ ,
+	0x80 /*     C7 00C7 LATIN CAPITAL LETTER C CEDILLA           */ ,
+	CS_CANT_MAP /*     C8 00C8 LATIN CAPITAL LETTER E GRAVE             */ ,
+	0x90 /*     C9 00C9 LATIN CAPITAL LETTER E ACUTE             */ ,
+	CS_CANT_MAP /*     CA 00CA LATIN CAPITAL LETTER E CIRCUMFLEX        */ ,
+	CS_CANT_MAP /*     CB 00CB LATIN CAPITAL LETTER E DIAERESIS         */ ,
+	CS_CANT_MAP /*     CC 00CC LATIN CAPITAL LETTER I GRAVE             */ ,
+	CS_CANT_MAP /*     CD 00CD LATIN CAPITAL LETTER I ACUTE             */ ,
+	CS_CANT_MAP /*     CE 00CE LATIN CAPITAL LETTER I CIRCUMFLEX        */ ,
+	CS_CANT_MAP /*     CF 00CF LATIN CAPITAL LETTER I DIAERESIS         */ ,
+	CS_CANT_MAP /*     D0 00D0 LATIN CAPITAL LETTER ETH                 */ ,
+	0xA5 /*     D1 00D1 LATIN CAPITAL LETTER N TILDE             */ ,
+	CS_CANT_MAP /*     D2 00D2 LATIN CAPITAL LETTER O GRAVE             */ ,
+	CS_CANT_MAP /*     D3 00D3 LATIN CAPITAL LETTER O ACUTE             */ ,
+	CS_CANT_MAP /*     D4 00D4 LATIN CAPITAL LETTER O CIRCUMFLEX        */ ,
+	CS_CANT_MAP /*     D5 00D5 LATIN CAPITAL LETTER O TILDE             */ ,
+	0x99 /*     D6 00D6 LATIN CAPITAL LETTER O DIAERESIS         */ ,
+	CS_CANT_MAP /*     D7 00D7 MULTIPLICATION SIGN                      */ ,
+	CS_CANT_MAP /*     D8 00D8 LATIN CAPITAL LETTER O SLASH             */ ,
+	CS_CANT_MAP /*     D9 00D9 LATIN CAPITAL LETTER U GRAVE             */ ,
+	CS_CANT_MAP /*     DA 00DA LATIN CAPITAL LETTER U ACUTE             */ ,
+	CS_CANT_MAP /*     DB 00DB LATIN CAPITAL LETTER U CIRCUMFLEX        */ ,
+	0x9A /*     DC 00DC LATIN CAPITAL LETTER U DIAERESIS         */ ,
+	CS_CANT_MAP /*     DD 00DD LATIN CAPITAL LETTER Y ACUTE             */ ,
+	CS_CANT_MAP /*     DE 00DE LATIN CAPITAL LETTER THORN               */ ,
+	0xE1 /*     DF 00DF LATIN SMALL LETTER SHARP S               */ ,
+/*NEW       OLD UINC       NAME */
+	0x85 /*     E0 00E0 LATIN SMALL LETTER A GRAVE               */ ,
+	0xA0 /*     E1 00E1 LATIN SMALL LETTER A ACUTE               */ ,
+	0x83 /*     E2 00E2 LATIN SMALL LETTER A CIRCUMFLEX          */ ,
+	CS_CANT_MAP /*     E3 00E3 LATIN SMALL LETTER A TILDE               */ ,
+	0x84 /*     E4 00E4 LATIN SMALL LETTER A DIAERESIS           */ ,
+	0x86 /*     E5 00E5 LATIN SMALL LETTER A RING                */ ,
+	0x91 /*     E6 00E6 LATIN SMALL LETTER A E                   */ ,
+	0x87 /*     E7 00E7 LATIN SMALL LETTER C CEDILLA             */ ,
+	0x8A /*     E8 00E8 LATIN SMALL LETTER E GRAVE               */ ,
+	0x82 /*     E9 00E9 LATIN SMALL LETTER E ACUTE               */ ,
+	0x88 /*     EA 00EA LATIN SMALL LETTER E CIRCUMFLEX          */ ,
+	0x89 /*     EB 00EB LATIN SMALL LETTER E DIAERESIS           */ ,
+	0x8D /*     EC 00EC LATIN SMALL LETTER I GRAVE               */ ,
+	0xA1 /*     ED 00ED LATIN SMALL LETTER I ACUTE               */ ,
+	0x8C /*     EE 00EE LATIN SMALL LETTER I CIRCUMFLEX          */ ,
+	0x8B /*     EF 00EF LATIN SMALL LETTER I DIAERESIS           */ ,
+	CS_CANT_MAP /*     F0 00F0 LATIN SMALL LETTER ETH                   */ ,
+	0xA4 /*     F1 00F1 LATIN SMALL LETTER N TILDE               */ ,
+	0x95 /*     F2 00F2 LATIN SMALL LETTER O GRAVE               */ ,
+	0xA2 /*     F3 00F3 LATIN SMALL LETTER O ACUTE               */ ,
+	0x93 /*     F4 00F4 LATIN SMALL LETTER O CIRCUMFLEX          */ ,
+	CS_CANT_MAP /*     F5 00F5 LATIN SMALL LETTER O TILDE               */ ,
+	0x94 /*     F6 00F6 LATIN SMALL LETTER O DIAERESIS           */ ,
+	0xF6 /*     F7 00F7 DIVISION SIGN                            */ ,
+	CS_CANT_MAP /*     F8 00F8 LATIN SMALL LETTER O SLASH               */ ,
+	0x97 /*     F9 00F9 LATIN SMALL LETTER U GRAVE               */ ,
+	0xA3 /*     FA 00FA LATIN SMALL LETTER U ACUTE               */ ,
+	0x96 /*     FB 00FB LATIN SMALL LETTER U CIRCUMFLEX          */ ,
+	0x81 /*     FC 00FC LATIN SMALL LETTER U DIAERESIS           */ ,
+	CS_CANT_MAP /*     FD 00FD LATIN SMALL LETTER Y ACUTE               */ ,
+	CS_CANT_MAP /*     FE 00FE LATIN SMALL LETTER THORN                 */ ,
+	0x98						/*     FF 00FF LATIN SMALL LETTER Y DIAERESIS           */
+};
diff --git a/src/intl/tx865_lat1.h b/src/intl/tx865_lat1.h
new file mode 100644
index 0000000000..52b533a83d
--- /dev/null
+++ b/src/intl/tx865_lat1.h
@@ -0,0 +1,556 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/* 865 to Latin1 character set conversion table */
+static CONST UCHAR cvt_865_to_Latin1[256] = {
+/*NEW       OLD UINC       NAME */
+	0x00 /*     00 0000 NULL                                     */ ,
+	0x01 /*     01 0001 START OF HEADING                         */ ,
+	0x02 /*     02 0002 START OF TEXT                            */ ,
+	0x03 /*     03 0003 END OF TEXT                              */ ,
+	0x04 /*     04 0004 END OF TRANSMISSION                      */ ,
+	0x05 /*     05 0005 ENQUIRY                                  */ ,
+	0x06 /*     06 0006 ACKNOWLEDGE                              */ ,
+	0x07 /*     07 0007 BELL                                     */ ,
+	0x08 /*     08 0008 BACKSPACE                                */ ,
+	0x09 /*     09 0009 HORIZONTAL TABULATION                    */ ,
+	0x0A /*     0A 000A LINE FEED                                */ ,
+	0x0B /*     0B 000B VERTICAL TABULATION                      */ ,
+	0x0C /*     0C 000C FORM FEED                                */ ,
+	0x0D /*     0D 000D CARRIAGE RETURN                          */ ,
+	0x0E /*     0E 000E SHIFT OUT                                */ ,
+	0x0F /*     0F 000F SHIFT IN                                 */ ,
+	0x10 /*     10 0010 DATA LINK ESCAPE                         */ ,
+	0x11 /*     11 0011 DEVICE CONTROL ONE                       */ ,
+	0x12 /*     12 0012 DEVICE CONTROL TWO                       */ ,
+	0x13 /*     13 0013 DEVICE CONTROL THREE                     */ ,
+	0x14 /*     14 0014 DEVICE CONTROL FOUR                      */ ,
+	0x15 /*     15 0015 NEGATIVE ACKNOWLEDGE                     */ ,
+	0x16 /*     16 0016 SYNCHRONOUS IDLE                         */ ,
+	0x17 /*     17 0017 END OF TRANSMISSION BLOCK                */ ,
+	0x18 /*     18 0018 CANCEL                                   */ ,
+	0x19 /*     19 0019 END OF MEDIUM                            */ ,
+	0x1A /*     1A 001A SUBSTITUTE                               */ ,
+	0x1B /*     1B 001B ESCAPE                                   */ ,
+	0x1C /*     1C 001C FILE SEPARATOR                           */ ,
+	0x1D /*     1D 001D GROUP SEPARATOR                          */ ,
+	0x1E /*     1E 001E RECORD SEPARATOR                         */ ,
+	0x1F /*     1F 001F UNIT SEPARATOR                           */ ,
+/*NEW       OLD UINC       NAME */
+	0x20 /*     20 0020 SPACE                                    */ ,
+	0x21 /*     21 0021 EXCLAMATION MARK                         */ ,
+	0x22 /*     22 0022 QUOTATION MARK                           */ ,
+	0x23 /*     23 0023 NUMBER SIGN                              */ ,
+	0x24 /*     24 0024 DOLLAR SIGN                              */ ,
+	0x25 /*     25 0025 PERCENT SIGN                             */ ,
+	0x26 /*     26 0026 AMPERSAND                                */ ,
+	0x27 /*     27 0027 APOSTROPHE-QUOTE                         */ ,
+	0x28 /*     28 0028 OPENING PARENTHESIS                      */ ,
+	0x29 /*     29 0029 CLOSING PARENTHESIS                      */ ,
+	0x2A /*     2A 002A ASTERISK                                 */ ,
+	0x2B /*     2B 002B PLUS SIGN                                */ ,
+	0x2C /*     2C 002C COMMA                                    */ ,
+	0x2D /*     2D 002D HYPHEN-MINUS                             */ ,
+	0x2E /*     2E 002E PERIOD                                   */ ,
+	0x2F /*     2F 002F SLASH                                    */ ,
+	0x30 /*     30 0030 DIGIT ZERO                               */ ,
+	0x31 /*     31 0031 DIGIT ONE                                */ ,
+	0x32 /*     32 0032 DIGIT TWO                                */ ,
+	0x33 /*     33 0033 DIGIT THREE                              */ ,
+	0x34 /*     34 0034 DIGIT FOUR                               */ ,
+	0x35 /*     35 0035 DIGIT FIVE                               */ ,
+	0x36 /*     36 0036 DIGIT SIX                                */ ,
+	0x37 /*     37 0037 DIGIT SEVEN                              */ ,
+	0x38 /*     38 0038 DIGIT EIGHT                              */ ,
+	0x39 /*     39 0039 DIGIT NINE                               */ ,
+	0x3A /*     3A 003A COLON                                    */ ,
+	0x3B /*     3B 003B SEMICOLON                                */ ,
+	0x3C /*     3C 003C LESS-THAN SIGN                           */ ,
+	0x3D /*     3D 003D EQUALS SIGN                              */ ,
+	0x3E /*     3E 003E GREATER-THAN SIGN                        */ ,
+	0x3F /*     3F 003F QUESTION MARK                            */ ,
+/*NEW       OLD UINC       NAME */
+	0x40 /*     40 0040 COMMERCIAL AT                            */ ,
+	0x41 /*     41 0041 LATIN CAPITAL LETTER A                   */ ,
+	0x42 /*     42 0042 LATIN CAPITAL LETTER B                   */ ,
+	0x43 /*     43 0043 LATIN CAPITAL LETTER C                   */ ,
+	0x44 /*     44 0044 LATIN CAPITAL LETTER D                   */ ,
+	0x45 /*     45 0045 LATIN CAPITAL LETTER E                   */ ,
+	0x46 /*     46 0046 LATIN CAPITAL LETTER F                   */ ,
+	0x47 /*     47 0047 LATIN CAPITAL LETTER G                   */ ,
+	0x48 /*     48 0048 LATIN CAPITAL LETTER H                   */ ,
+	0x49 /*     49 0049 LATIN CAPITAL LETTER I                   */ ,
+	0x4A /*     4A 004A LATIN CAPITAL LETTER J                   */ ,
+	0x4B /*     4B 004B LATIN CAPITAL LETTER K                   */ ,
+	0x4C /*     4C 004C LATIN CAPITAL LETTER L                   */ ,
+	0x4D /*     4D 004D LATIN CAPITAL LETTER M                   */ ,
+	0x4E /*     4E 004E LATIN CAPITAL LETTER N                   */ ,
+	0x4F /*     4F 004F LATIN CAPITAL LETTER O                   */ ,
+	0x50 /*     50 0050 LATIN CAPITAL LETTER P                   */ ,
+	0x51 /*     51 0051 LATIN CAPITAL LETTER Q                   */ ,
+	0x52 /*     52 0052 LATIN CAPITAL LETTER R                   */ ,
+	0x53 /*     53 0053 LATIN CAPITAL LETTER S                   */ ,
+	0x54 /*     54 0054 LATIN CAPITAL LETTER T                   */ ,
+	0x55 /*     55 0055 LATIN CAPITAL LETTER U                   */ ,
+	0x56 /*     56 0056 LATIN CAPITAL LETTER V                   */ ,
+	0x57 /*     57 0057 LATIN CAPITAL LETTER W                   */ ,
+	0x58 /*     58 0058 LATIN CAPITAL LETTER X                   */ ,
+	0x59 /*     59 0059 LATIN CAPITAL LETTER Y                   */ ,
+	0x5A /*     5A 005A LATIN CAPITAL LETTER Z                   */ ,
+	0x5B /*     5B 005B OPENING SQUARE BRACKET                   */ ,
+	0x5C /*     5C 005C BACKSLASH                                */ ,
+	0x5D /*     5D 005D CLOSING SQUARE BRACKET                   */ ,
+	0x5E /*     5E 005E SPACING CIRCUMFLEX                       */ ,
+	0x5F /*     5F 005F SPACING UNDERSCORE                       */ ,
+/*NEW       OLD UINC       NAME */
+	0x60 /*     60 0060 SPACING GRAVE                            */ ,
+	0x61 /*     61 0061 LATIN SMALL LETTER A                     */ ,
+	0x62 /*     62 0062 LATIN SMALL LETTER B                     */ ,
+	0x63 /*     63 0063 LATIN SMALL LETTER C                     */ ,
+	0x64 /*     64 0064 LATIN SMALL LETTER D                     */ ,
+	0x65 /*     65 0065 LATIN SMALL LETTER E                     */ ,
+	0x66 /*     66 0066 LATIN SMALL LETTER F                     */ ,
+	0x67 /*     67 0067 LATIN SMALL LETTER G                     */ ,
+	0x68 /*     68 0068 LATIN SMALL LETTER H                     */ ,
+	0x69 /*     69 0069 LATIN SMALL LETTER I                     */ ,
+	0x6A /*     6A 006A LATIN SMALL LETTER J                     */ ,
+	0x6B /*     6B 006B LATIN SMALL LETTER K                     */ ,
+	0x6C /*     6C 006C LATIN SMALL LETTER L                     */ ,
+	0x6D /*     6D 006D LATIN SMALL LETTER M                     */ ,
+	0x6E /*     6E 006E LATIN SMALL LETTER N                     */ ,
+	0x6F /*     6F 006F LATIN SMALL LETTER O                     */ ,
+	0x70 /*     70 0070 LATIN SMALL LETTER P                     */ ,
+	0x71 /*     71 0071 LATIN SMALL LETTER Q                     */ ,
+	0x72 /*     72 0072 LATIN SMALL LETTER R                     */ ,
+	0x73 /*     73 0073 LATIN SMALL LETTER S                     */ ,
+	0x74 /*     74 0074 LATIN SMALL LETTER T                     */ ,
+	0x75 /*     75 0075 LATIN SMALL LETTER U                     */ ,
+	0x76 /*     76 0076 LATIN SMALL LETTER V                     */ ,
+	0x77 /*     77 0077 LATIN SMALL LETTER W                     */ ,
+	0x78 /*     78 0078 LATIN SMALL LETTER X                     */ ,
+	0x79 /*     79 0079 LATIN SMALL LETTER Y                     */ ,
+	0x7A /*     7A 007A LATIN SMALL LETTER Z                     */ ,
+	0x7B /*     7B 007B OPENING CURLY BRACKET                    */ ,
+	0x7C /*     7C 007C VERTICAL BAR                             */ ,
+	0x7D /*     7D 007D CLOSING CURLY BRACKET                    */ ,
+	0x7E /*     7E 007E TILDE                                    */ ,
+	0x7F /*     7F 007F DELETE                                   */ ,
+/*NEW       OLD UINC       NAME */
+	0xC7 /*     80 00C7 LATIN CAPITAL LETTER C CEDILLA           */ ,
+	0xFC /*     81 00FC LATIN SMALL LETTER U DIAERESIS           */ ,
+	0xE9 /*     82 00E9 LATIN SMALL LETTER E ACUTE               */ ,
+	0xE2 /*     83 00E2 LATIN SMALL LETTER A CIRCUMFLEX          */ ,
+	0xE4 /*     84 00E4 LATIN SMALL LETTER A DIAERESIS           */ ,
+	0xE0 /*     85 00E0 LATIN SMALL LETTER A GRAVE               */ ,
+	0xE5 /*     86 00E5 LATIN SMALL LETTER A RING                */ ,
+	0xE7 /*     87 00E7 LATIN SMALL LETTER C CEDILLA             */ ,
+	0xEA /*     88 00EA LATIN SMALL LETTER E CIRCUMFLEX          */ ,
+	0xEB /*     89 00EB LATIN SMALL LETTER E DIAERESIS           */ ,
+	0xE8 /*     8A 00E8 LATIN SMALL LETTER E GRAVE               */ ,
+	0xEF /*     8B 00EF LATIN SMALL LETTER I DIAERESIS           */ ,
+	0xEE /*     8C 00EE LATIN SMALL LETTER I CIRCUMFLEX          */ ,
+	0xEC /*     8D 00EC LATIN SMALL LETTER I GRAVE               */ ,
+	0xC4 /*     8E 00C4 LATIN CAPITAL LETTER A DIAERESIS         */ ,
+	0xC5 /*     8F 00C5 LATIN CAPITAL LETTER A RING              */ ,
+	0xC9 /*     90 00C9 LATIN CAPITAL LETTER E ACUTE             */ ,
+	0xE6 /*     91 00E6 LATIN SMALL LETTER A E                   */ ,
+	0xC6 /*     92 00C6 LATIN CAPITAL LETTER A E                 */ ,
+	0xF4 /*     93 00F4 LATIN SMALL LETTER O CIRCUMFLEX          */ ,
+	0xF6 /*     94 00F6 LATIN SMALL LETTER O DIAERESIS           */ ,
+	0xF2 /*     95 00F2 LATIN SMALL LETTER O GRAVE               */ ,
+	0xFB /*     96 00FB LATIN SMALL LETTER U CIRCUMFLEX          */ ,
+	0xF9 /*     97 00F9 LATIN SMALL LETTER U GRAVE               */ ,
+	0xFF /*     98 00FF LATIN SMALL LETTER Y DIAERESIS           */ ,
+	0xD6 /*     99 00D6 LATIN CAPITAL LETTER O DIAERESIS         */ ,
+	0xDC /*     9A 00DC LATIN CAPITAL LETTER U DIAERESIS         */ ,
+	0xF8 /*     9B 00F8 LATIN SMALL LETTER O SLASH               */ ,
+	0xA3 /*     9C 00A3 POUND SIGN                               */ ,
+	0xD8 /*     9D 00D8 LATIN CAPITAL LETTER O SLASH             */ ,
+	CS_CANT_MAP /*     9E 20A7 PESETA SIGN                              */ ,
+	CS_CANT_MAP /*     9F 0192 LATIN SMALL LETTER SCRIPT F              */ ,
+/*NEW       OLD UINC       NAME */
+	0xE1 /*     A0 00E1 LATIN SMALL LETTER A ACUTE               */ ,
+	0xED /*     A1 00ED LATIN SMALL LETTER I ACUTE               */ ,
+	0xF3 /*     A2 00F3 LATIN SMALL LETTER O ACUTE               */ ,
+	0xFA /*     A3 00FA LATIN SMALL LETTER U ACUTE               */ ,
+	0xF1 /*     A4 00F1 LATIN SMALL LETTER N TILDE               */ ,
+	0xD1 /*     A5 00D1 LATIN CAPITAL LETTER N TILDE             */ ,
+	0xAA /*     A6 00AA FEMININE ORDINAL INDICATOR               */ ,
+	0xBA /*     A7 00BA MASCULINE ORDINAL INDICATOR              */ ,
+	0xBF /*     A8 00BF INVERTED QUESTION MARK                   */ ,
+	CS_CANT_MAP /*     A9 2310 REVERSED NOT SIGN                        */ ,
+	0xAC /*     AA 00AC NOT SIGN                                 */ ,
+	0xBD /*     AB 00BD FRACTION ONE HALF                        */ ,
+	0xBC /*     AC 00BC FRACTION ONE QUARTER                     */ ,
+	0xA1 /*     AD 00A1 INVERTED EXCLAMATION MARK                */ ,
+	0xAB /*     AE 00AB LEFT POINTING GUILLEMET                  */ ,
+	0xA4 /*     AF 00A4 CURRENCY SIGN                            */ ,
+	CS_CANT_MAP /*     B0 2591 LIGHT SHADE                              */ ,
+	CS_CANT_MAP /*     B1 2592 MEDIUM SHADE                             */ ,
+	CS_CANT_MAP /*     B2 2593 DARK SHADE                               */ ,
+	CS_CANT_MAP /*     B3 2502 FORMS LIGHT VERTICAL                     */ ,
+	CS_CANT_MAP /*     B4 2524 FORMS LIGHT VERTICAL AND LEFT            */ ,
+	CS_CANT_MAP /*     B5 2561 FORMS VERTICAL SINGLE AND LEFT DOUBLE    */ ,
+	CS_CANT_MAP /*     B6 2562 FORMS VERTICAL DOUBLE AND LEFT SINGLE    */ ,
+	CS_CANT_MAP /*     B7 2556 FORMS DOWN DOUBLE AND LEFT SINGLE        */ ,
+	CS_CANT_MAP /*     B8 2555 FORMS DOWN SINGLE AND LEFT DOUBLE        */ ,
+	CS_CANT_MAP /*     B9 2563 FORMS DOUBLE VERTICAL AND LEFT           */ ,
+	CS_CANT_MAP /*     BA 2551 FORMS DOUBLE VERTICAL                    */ ,
+	CS_CANT_MAP /*     BB 2557 FORMS DOUBLE DOWN AND LEFT               */ ,
+	CS_CANT_MAP /*     BC 255D FORMS DOUBLE UP AND LEFT                 */ ,
+	CS_CANT_MAP /*     BD 255C FORMS UP DOUBLE AND LEFT SINGLE          */ ,
+	CS_CANT_MAP /*     BE 255B FORMS UP SINGLE AND LEFT DOUBLE          */ ,
+	CS_CANT_MAP /*     BF 2510 FORMS LIGHT DOWN AND LEFT                */ ,
+/*NEW       OLD UINC       NAME */
+	CS_CANT_MAP /*     C0 2514 FORMS LIGHT UP AND RIGHT                 */ ,
+	CS_CANT_MAP /*     C1 2534 FORMS LIGHT UP AND HORIZONTAL            */ ,
+	CS_CANT_MAP /*     C2 252C FORMS LIGHT DOWN AND HORIZONTAL          */ ,
+	CS_CANT_MAP /*     C3 251C FORMS LIGHT VERTICAL AND RIGHT           */ ,
+	CS_CANT_MAP /*     C4 2500 FORMS LIGHT HORIZONTAL                   */ ,
+	CS_CANT_MAP /*     C5 253C FORMS LIGHT VERTICAL AND HORIZONTAL      */ ,
+	CS_CANT_MAP /*     C6 255E FORMS VERTICAL SINGLE AND RIGHT DOUBLE   */ ,
+	CS_CANT_MAP /*     C7 255F FORMS VERTICAL DOUBLE AND RIGHT SINGLE   */ ,
+	CS_CANT_MAP /*     C8 255A FORMS DOUBLE UP AND RIGHT                */ ,
+	CS_CANT_MAP /*     C9 2554 FORMS DOUBLE DOWN AND RIGHT              */ ,
+	CS_CANT_MAP /*     CA 2569 FORMS DOUBLE UP AND HORIZONTAL           */ ,
+	CS_CANT_MAP /*     CB 2566 FORMS DOUBLE DOWN AND HORIZONTAL         */ ,
+	CS_CANT_MAP /*     CC 2560 FORMS DOUBLE VERTICAL AND RIGHT          */ ,
+	CS_CANT_MAP /*     CD 2550 FORMS DOUBLE HORIZONTAL                  */ ,
+	CS_CANT_MAP /*     CE 256C FORMS DOUBLE VERTICAL AND HORIZONTAL     */ ,
+	CS_CANT_MAP /*     CF 2567 FORMS UP SINGLE AND HORIZONTAL DOUBLE    */ ,
+	CS_CANT_MAP /*     D0 2568 FORMS UP DOUBLE AND HORIZONTAL SINGLE    */ ,
+	CS_CANT_MAP /*     D1 2564 FORMS DOWN SINGLE AND HORIZONTAL DOUBLE  */ ,
+	CS_CANT_MAP /*     D2 2565 FORMS DOWN DOUBLE AND HORIZONTAL SINGLE  */ ,
+	CS_CANT_MAP /*     D3 2559 FORMS UP DOUBLE AND RIGHT SINGLE         */ ,
+	CS_CANT_MAP /*     D4 2558 FORMS UP SINGLE AND RIGHT DOUBLE         */ ,
+	CS_CANT_MAP /*     D5 2552 FORMS DOWN SINGLE AND RIGHT DOUBLE       */ ,
+	CS_CANT_MAP /*     D6 2553 FORMS DOWN DOUBLE AND RIGHT SINGLE       */ ,
+	CS_CANT_MAP /*     D7 256B FORMS VERTICAL DOUBLE AND HORIZONTAL SINGLE */
+		,
+	CS_CANT_MAP /*     D8 256A FORMS VERTICAL SINGLE AND HORIZONTAL DOUBLE */
+		,
+	CS_CANT_MAP /*     D9 2518 FORMS LIGHT UP AND LEFT                  */ ,
+	CS_CANT_MAP /*     DA 250C FORMS LIGHT DOWN AND RIGHT               */ ,
+	CS_CANT_MAP /*     DB 2588 FULL BLOCK                               */ ,
+	CS_CANT_MAP /*     DC 2584 LOWER HALF BLOCK                         */ ,
+	CS_CANT_MAP /*     DD 258C LEFT HALF BLOCK                          */ ,
+	CS_CANT_MAP /*     DE 2590 RIGHT HALF BLOCK                         */ ,
+	CS_CANT_MAP /*     DF 2580 UPPER HALF BLOCK                         */ ,
+/*NEW       OLD UINC       NAME */
+	CS_CANT_MAP /*     E0 03B1 GREEK SMALL LETTER ALPHA                 */ ,
+	0xDF /*     E1 00DF LATIN SMALL LETTER SHARP S               */ ,
+	CS_CANT_MAP /*     E2 0393 GREEK CAPITAL LETTER GAMMA               */ ,
+	CS_CANT_MAP /*     E3 03C0 GREEK SMALL LETTER PI                    */ ,
+	CS_CANT_MAP /*     E4 03A3 GREEK CAPITAL LETTER SIGMA               */ ,
+	CS_CANT_MAP /*     E5 03C3 GREEK SMALL LETTER SIGMA                 */ ,
+	0xB5 /*     E6 00B5 MICRO SIGN                               */ ,
+	CS_CANT_MAP /*     E7 03C4 GREEK SMALL LETTER TAU                   */ ,
+	CS_CANT_MAP /*     E8 03A6 GREEK CAPITAL LETTER PHI                 */ ,
+	CS_CANT_MAP /*     E9 0398 GREEK CAPITAL LETTER THETA               */ ,
+	CS_CANT_MAP /*     EA 03A9 GREEK CAPITAL LETTER OMEGA               */ ,
+	CS_CANT_MAP /*     EB 03B4 GREEK SMALL LETTER DELTA                 */ ,
+	CS_CANT_MAP /*     EC 221E INFINITY                                 */ ,
+	CS_CANT_MAP /*     ED 03C6 GREEK SMALL LETTER PHI                   */ ,
+	CS_CANT_MAP /*     EE 03B5 GREEK SMALL LETTER EPSILON               */ ,
+	CS_CANT_MAP /*     EF 2229 INTERSECTION                             */ ,
+	CS_CANT_MAP /*     F0 2261 IDENTICAL TO                             */ ,
+	0xB1 /*     F1 00B1 PLUS-OR-MINUS SIGN                       */ ,
+	CS_CANT_MAP /*     F2 2265 GREATER THAN OR EQUAL TO                 */ ,
+	CS_CANT_MAP /*     F3 2264 LESS THAN OR EQUAL TO                    */ ,
+	CS_CANT_MAP /*     F4 2320 TOP HALF INTEGRAL                        */ ,
+	CS_CANT_MAP /*     F5 2321 BOTTOM HALF INTEGRAL                     */ ,
+	0xF7 /*     F6 00F7 DIVISION SIGN                            */ ,
+	CS_CANT_MAP /*     F7 2248 ALMOST EQUAL TO                          */ ,
+	0xB0 /*     F8 00B0 DEGREE SIGN                              */ ,
+	CS_CANT_MAP /*     F9 2219 BULLET OPERATOR                          */ ,
+	0xB7 /*     FA 00B7 MIDDLE DOT                               */ ,
+	CS_CANT_MAP /*     FB 221A SQUARE ROOT                              */ ,
+	CS_CANT_MAP /*     FC 207F SUPERSCRIPT LATIN SMALL LETTER N         */ ,
+	0xB2 /*     FD 00B2 SUPERSCRIPT DIGIT TWO                    */ ,
+	CS_CANT_MAP /*     FE 25A0 BLACK SQUARE                             */ ,
+	0xA0						/*     FF 00A0 NON-BREAKING SPACE                       */
+};
+
+
+/* Latin1 to 865 character set conversion table */
+static CONST UCHAR cvt_Latin1_to_865[256] = {
+/*NEW       OLD UINC       NAME */
+	0x00 /*     00 0000 NULL                                     */ ,
+	0x01 /*     01 0001 START OF HEADING                         */ ,
+	0x02 /*     02 0002 START OF TEXT                            */ ,
+	0x03 /*     03 0003 END OF TEXT                              */ ,
+	0x04 /*     04 0004 END OF TRANSMISSION                      */ ,
+	0x05 /*     05 0005 ENQUIRY                                  */ ,
+	0x06 /*     06 0006 ACKNOWLEDGE                              */ ,
+	0x07 /*     07 0007 BELL                                     */ ,
+	0x08 /*     08 0008 BACKSPACE                                */ ,
+	0x09 /*     09 0009 HORIZONTAL TABULATION                    */ ,
+	0x0A /*     0A 000A LINE FEED                                */ ,
+	0x0B /*     0B 000B VERTICAL TABULATION                      */ ,
+	0x0C /*     0C 000C FORM FEED                                */ ,
+	0x0D /*     0D 000D CARRIAGE RETURN                          */ ,
+	0x0E /*     0E 000E SHIFT OUT                                */ ,
+	0x0F /*     0F 000F SHIFT IN                                 */ ,
+	0x10 /*     10 0010 DATA LINK ESCAPE                         */ ,
+	0x11 /*     11 0011 DEVICE CONTROL ONE                       */ ,
+	0x12 /*     12 0012 DEVICE CONTROL TWO                       */ ,
+	0x13 /*     13 0013 DEVICE CONTROL THREE                     */ ,
+	0x14 /*     14 0014 DEVICE CONTROL FOUR                      */ ,
+	0x15 /*     15 0015 NEGATIVE ACKNOWLEDGE                     */ ,
+	0x16 /*     16 0016 SYNCHRONOUS IDLE                         */ ,
+	0x17 /*     17 0017 END OF TRANSMISSION BLOCK                */ ,
+	0x18 /*     18 0018 CANCEL                                   */ ,
+	0x19 /*     19 0019 END OF MEDIUM                            */ ,
+	0x1A /*     1A 001A SUBSTITUTE                               */ ,
+	0x1B /*     1B 001B ESCAPE                                   */ ,
+	0x1C /*     1C 001C FILE SEPARATOR                           */ ,
+	0x1D /*     1D 001D GROUP SEPARATOR                          */ ,
+	0x1E /*     1E 001E RECORD SEPARATOR                         */ ,
+	0x1F /*     1F 001F UNIT SEPARATOR                           */ ,
+/*NEW       OLD UINC       NAME */
+	0x20 /*     20 0020 SPACE                                    */ ,
+	0x21 /*     21 0021 EXCLAMATION MARK                         */ ,
+	0x22 /*     22 0022 QUOTATION MARK                           */ ,
+	0x23 /*     23 0023 NUMBER SIGN                              */ ,
+	0x24 /*     24 0024 DOLLAR SIGN                              */ ,
+	0x25 /*     25 0025 PERCENT SIGN                             */ ,
+	0x26 /*     26 0026 AMPERSAND                                */ ,
+	0x27 /*     27 0027 APOSTROPHE-QUOTE                         */ ,
+	0x28 /*     28 0028 OPENING PARENTHESIS                      */ ,
+	0x29 /*     29 0029 CLOSING PARENTHESIS                      */ ,
+	0x2A /*     2A 002A ASTERISK                                 */ ,
+	0x2B /*     2B 002B PLUS SIGN                                */ ,
+	0x2C /*     2C 002C COMMA                                    */ ,
+	0x2D /*     2D 002D HYPHEN-MINUS                             */ ,
+	0x2E /*     2E 002E PERIOD                                   */ ,
+	0x2F /*     2F 002F SLASH                                    */ ,
+	0x30 /*     30 0030 DIGIT ZERO                               */ ,
+	0x31 /*     31 0031 DIGIT ONE                                */ ,
+	0x32 /*     32 0032 DIGIT TWO                                */ ,
+	0x33 /*     33 0033 DIGIT THREE                              */ ,
+	0x34 /*     34 0034 DIGIT FOUR                               */ ,
+	0x35 /*     35 0035 DIGIT FIVE                               */ ,
+	0x36 /*     36 0036 DIGIT SIX                                */ ,
+	0x37 /*     37 0037 DIGIT SEVEN                              */ ,
+	0x38 /*     38 0038 DIGIT EIGHT                              */ ,
+	0x39 /*     39 0039 DIGIT NINE                               */ ,
+	0x3A /*     3A 003A COLON                                    */ ,
+	0x3B /*     3B 003B SEMICOLON                                */ ,
+	0x3C /*     3C 003C LESS-THAN SIGN                           */ ,
+	0x3D /*     3D 003D EQUALS SIGN                              */ ,
+	0x3E /*     3E 003E GREATER-THAN SIGN                        */ ,
+	0x3F /*     3F 003F QUESTION MARK                            */ ,
+/*NEW       OLD UINC       NAME */
+	0x40 /*     40 0040 COMMERCIAL AT                            */ ,
+	0x41 /*     41 0041 LATIN CAPITAL LETTER A                   */ ,
+	0x42 /*     42 0042 LATIN CAPITAL LETTER B                   */ ,
+	0x43 /*     43 0043 LATIN CAPITAL LETTER C                   */ ,
+	0x44 /*     44 0044 LATIN CAPITAL LETTER D                   */ ,
+	0x45 /*     45 0045 LATIN CAPITAL LETTER E                   */ ,
+	0x46 /*     46 0046 LATIN CAPITAL LETTER F                   */ ,
+	0x47 /*     47 0047 LATIN CAPITAL LETTER G                   */ ,
+	0x48 /*     48 0048 LATIN CAPITAL LETTER H                   */ ,
+	0x49 /*     49 0049 LATIN CAPITAL LETTER I                   */ ,
+	0x4A /*     4A 004A LATIN CAPITAL LETTER J                   */ ,
+	0x4B /*     4B 004B LATIN CAPITAL LETTER K                   */ ,
+	0x4C /*     4C 004C LATIN CAPITAL LETTER L                   */ ,
+	0x4D /*     4D 004D LATIN CAPITAL LETTER M                   */ ,
+	0x4E /*     4E 004E LATIN CAPITAL LETTER N                   */ ,
+	0x4F /*     4F 004F LATIN CAPITAL LETTER O                   */ ,
+	0x50 /*     50 0050 LATIN CAPITAL LETTER P                   */ ,
+	0x51 /*     51 0051 LATIN CAPITAL LETTER Q                   */ ,
+	0x52 /*     52 0052 LATIN CAPITAL LETTER R                   */ ,
+	0x53 /*     53 0053 LATIN CAPITAL LETTER S                   */ ,
+	0x54 /*     54 0054 LATIN CAPITAL LETTER T                   */ ,
+	0x55 /*     55 0055 LATIN CAPITAL LETTER U                   */ ,
+	0x56 /*     56 0056 LATIN CAPITAL LETTER V                   */ ,
+	0x57 /*     57 0057 LATIN CAPITAL LETTER W                   */ ,
+	0x58 /*     58 0058 LATIN CAPITAL LETTER X                   */ ,
+	0x59 /*     59 0059 LATIN CAPITAL LETTER Y                   */ ,
+	0x5A /*     5A 005A LATIN CAPITAL LETTER Z                   */ ,
+	0x5B /*     5B 005B OPENING SQUARE BRACKET                   */ ,
+	0x5C /*     5C 005C BACKSLASH                                */ ,
+	0x5D /*     5D 005D CLOSING SQUARE BRACKET                   */ ,
+	0x5E /*     5E 005E SPACING CIRCUMFLEX                       */ ,
+	0x5F /*     5F 005F SPACING UNDERSCORE                       */ ,
+/*NEW       OLD UINC       NAME */
+	0x60 /*     60 0060 SPACING GRAVE                            */ ,
+	0x61 /*     61 0061 LATIN SMALL LETTER A                     */ ,
+	0x62 /*     62 0062 LATIN SMALL LETTER B                     */ ,
+	0x63 /*     63 0063 LATIN SMALL LETTER C                     */ ,
+	0x64 /*     64 0064 LATIN SMALL LETTER D                     */ ,
+	0x65 /*     65 0065 LATIN SMALL LETTER E                     */ ,
+	0x66 /*     66 0066 LATIN SMALL LETTER F                     */ ,
+	0x67 /*     67 0067 LATIN SMALL LETTER G                     */ ,
+	0x68 /*     68 0068 LATIN SMALL LETTER H                     */ ,
+	0x69 /*     69 0069 LATIN SMALL LETTER I                     */ ,
+	0x6A /*     6A 006A LATIN SMALL LETTER J                     */ ,
+	0x6B /*     6B 006B LATIN SMALL LETTER K                     */ ,
+	0x6C /*     6C 006C LATIN SMALL LETTER L                     */ ,
+	0x6D /*     6D 006D LATIN SMALL LETTER M                     */ ,
+	0x6E /*     6E 006E LATIN SMALL LETTER N                     */ ,
+	0x6F /*     6F 006F LATIN SMALL LETTER O                     */ ,
+	0x70 /*     70 0070 LATIN SMALL LETTER P                     */ ,
+	0x71 /*     71 0071 LATIN SMALL LETTER Q                     */ ,
+	0x72 /*     72 0072 LATIN SMALL LETTER R                     */ ,
+	0x73 /*     73 0073 LATIN SMALL LETTER S                     */ ,
+	0x74 /*     74 0074 LATIN SMALL LETTER T                     */ ,
+	0x75 /*     75 0075 LATIN SMALL LETTER U                     */ ,
+	0x76 /*     76 0076 LATIN SMALL LETTER V                     */ ,
+	0x77 /*     77 0077 LATIN SMALL LETTER W                     */ ,
+	0x78 /*     78 0078 LATIN SMALL LETTER X                     */ ,
+	0x79 /*     79 0079 LATIN SMALL LETTER Y                     */ ,
+	0x7A /*     7A 007A LATIN SMALL LETTER Z                     */ ,
+	0x7B /*     7B 007B OPENING CURLY BRACKET                    */ ,
+	0x7C /*     7C 007C VERTICAL BAR                             */ ,
+	0x7D /*     7D 007D CLOSING CURLY BRACKET                    */ ,
+	0x7E /*     7E 007E TILDE                                    */ ,
+	0x7F /*     7F 007F DELETE                                   */ ,
+/*NEW       OLD UINC       NAME */
+	CS_CANT_MAP /*     80 0080 RESERVED - CTRL 80                       */ ,
+	CS_CANT_MAP /*     81 0081 RESERVED - CTRL 81                       */ ,
+	CS_CANT_MAP /*     82 0082 RESERVED - CTRL 82                       */ ,
+	CS_CANT_MAP /*     83 0083 RESERVED - CTRL 83                       */ ,
+	CS_CANT_MAP /*     84 0084 RESERVED - CTRL 84                       */ ,
+	CS_CANT_MAP /*     85 0085 RESERVED - CTRL 85                       */ ,
+	CS_CANT_MAP /*     86 0086 RESERVED - CTRL 86                       */ ,
+	CS_CANT_MAP /*     87 0087 RESERVED - CTRL 87                       */ ,
+	CS_CANT_MAP /*     88 0088 RESERVED - CTRL 88                       */ ,
+	CS_CANT_MAP /*     89 0089 RESERVED - CTRL 89                       */ ,
+	CS_CANT_MAP /*     8A 008A RESERVED - CTRL 8A                       */ ,
+	CS_CANT_MAP /*     8B 008B RESERVED - CTRL 8B                       */ ,
+	CS_CANT_MAP /*     8C 008C RESERVED - CTRL 8C                       */ ,
+	CS_CANT_MAP /*     8D 008D RESERVED - CTRL 8D                       */ ,
+	CS_CANT_MAP /*     8E 008E RESERVED - CTRL 8E                       */ ,
+	CS_CANT_MAP /*     8F 008F RESERVED - CTRL 8F                       */ ,
+	CS_CANT_MAP /*     90 0090 RESERVED - CTRL 90                       */ ,
+	CS_CANT_MAP /*     91 0091 RESERVED - CTRL 91                       */ ,
+	CS_CANT_MAP /*     92 0092 RESERVED - CTRL 92                       */ ,
+	CS_CANT_MAP /*     93 0093 RESERVED - CTRL 93                       */ ,
+	CS_CANT_MAP /*     94 0094 RESERVED - CTRL 94                       */ ,
+	CS_CANT_MAP /*     95 0095 RESERVED - CTRL 95                       */ ,
+	CS_CANT_MAP /*     96 0096 RESERVED - CTRL 96                       */ ,
+	CS_CANT_MAP /*     97 0097 RESERVED - CTRL 97                       */ ,
+	CS_CANT_MAP /*     98 0098 RESERVED - CTRL 98                       */ ,
+	CS_CANT_MAP /*     99 0099 RESERVED - CTRL 99                       */ ,
+	CS_CANT_MAP /*     9A 009A RESERVED - CTRL 9A                       */ ,
+	CS_CANT_MAP /*     9B 009B RESERVED - CTRL 9B                       */ ,
+	CS_CANT_MAP /*     9C 009C RESERVED - CTRL 9C                       */ ,
+	CS_CANT_MAP /*     9D 009D RESERVED - CTRL 9D                       */ ,
+	CS_CANT_MAP /*     9E 009E RESERVED - CTRL 9E                       */ ,
+	CS_CANT_MAP /*     9F 009F RESERVED - CTRL 9F                       */ ,
+/*NEW       OLD UINC       NAME */
+	0xFF /*     A0 00A0 NON-BREAKING SPACE                       */ ,
+	0xAD /*     A1 00A1 INVERTED EXCLAMATION MARK                */ ,
+	CS_CANT_MAP /*     A2 00A2 CENT SIGN                                */ ,
+	0x9C /*     A3 00A3 POUND SIGN                               */ ,
+	0xAF /*     A4 00A4 CURRENCY SIGN                            */ ,
+	CS_CANT_MAP /*     A5 00A5 YEN SIGN                                 */ ,
+	CS_CANT_MAP /*     A6 00A6 BROKEN VERTICAL BAR                      */ ,
+	CS_CANT_MAP /*     A7 00A7 SECTION SIGN                             */ ,
+	CS_CANT_MAP /*     A8 00A8 SPACING DIAERESIS                        */ ,
+	CS_CANT_MAP /*     A9 00A9 COPYRIGHT SIGN                           */ ,
+	0xA6 /*     AA 00AA FEMININE ORDINAL INDICATOR               */ ,
+	0xAE /*     AB 00AB LEFT POINTING GUILLEMET                  */ ,
+	0xAA /*     AC 00AC NOT SIGN                                 */ ,
+	CS_CANT_MAP /*     AD 00AD SOFT HYPHEN                              */ ,
+	CS_CANT_MAP /*     AE 00AE REGISTERED TRADE MARK SIGN               */ ,
+	CS_CANT_MAP /*     AF 00AF SPACING MACRON                           */ ,
+	0xF8 /*     B0 00B0 DEGREE SIGN                              */ ,
+	0xF1 /*     B1 00B1 PLUS-OR-MINUS SIGN                       */ ,
+	0xFD /*     B2 00B2 SUPERSCRIPT DIGIT TWO                    */ ,
+	CS_CANT_MAP /*     B3 00B3 SUPERSCRIPT DIGIT THREE                  */ ,
+	CS_CANT_MAP /*     B4 00B4 SPACING ACUTE                            */ ,
+	0xE6 /*     B5 00B5 MICRO SIGN                               */ ,
+	CS_CANT_MAP /*     B6 00B6 PARAGRAPH SIGN                           */ ,
+	0xFA /*     B7 00B7 MIDDLE DOT                               */ ,
+	CS_CANT_MAP /*     B8 00B8 SPACING CEDILLA                          */ ,
+	CS_CANT_MAP /*     B9 00B9 SUPERSCRIPT DIGIT ONE                    */ ,
+	0xA7 /*     BA 00BA MASCULINE ORDINAL INDICATOR              */ ,
+	CS_CANT_MAP /*     BB 00BB RIGHT POINTING GUILLEMET                 */ ,
+	0xAC /*     BC 00BC FRACTION ONE QUARTER                     */ ,
+	0xAB /*     BD 00BD FRACTION ONE HALF                        */ ,
+	CS_CANT_MAP /*     BE 00BE FRACTION THREE QUARTERS                  */ ,
+	0xA8 /*     BF 00BF INVERTED QUESTION MARK                   */ ,
+/*NEW       OLD UINC       NAME */
+	CS_CANT_MAP /*     C0 00C0 LATIN CAPITAL LETTER A GRAVE             */ ,
+	CS_CANT_MAP /*     C1 00C1 LATIN CAPITAL LETTER A ACUTE             */ ,
+	CS_CANT_MAP /*     C2 00C2 LATIN CAPITAL LETTER A CIRCUMFLEX        */ ,
+	CS_CANT_MAP /*     C3 00C3 LATIN CAPITAL LETTER A TILDE             */ ,
+	0x8E /*     C4 00C4 LATIN CAPITAL LETTER A DIAERESIS         */ ,
+	0x8F /*     C5 00C5 LATIN CAPITAL LETTER A RING              */ ,
+	0x92 /*     C6 00C6 LATIN CAPITAL LETTER A E                 */ ,
+	0x80 /*     C7 00C7 LATIN CAPITAL LETTER C CEDILLA           */ ,
+	CS_CANT_MAP /*     C8 00C8 LATIN CAPITAL LETTER E GRAVE             */ ,
+	0x90 /*     C9 00C9 LATIN CAPITAL LETTER E ACUTE             */ ,
+	CS_CANT_MAP /*     CA 00CA LATIN CAPITAL LETTER E CIRCUMFLEX        */ ,
+	CS_CANT_MAP /*     CB 00CB LATIN CAPITAL LETTER E DIAERESIS         */ ,
+	CS_CANT_MAP /*     CC 00CC LATIN CAPITAL LETTER I GRAVE             */ ,
+	CS_CANT_MAP /*     CD 00CD LATIN CAPITAL LETTER I ACUTE             */ ,
+	CS_CANT_MAP /*     CE 00CE LATIN CAPITAL LETTER I CIRCUMFLEX        */ ,
+	CS_CANT_MAP /*     CF 00CF LATIN CAPITAL LETTER I DIAERESIS         */ ,
+	CS_CANT_MAP /*     D0 00D0 LATIN CAPITAL LETTER ETH                 */ ,
+	0xA5 /*     D1 00D1 LATIN CAPITAL LETTER N TILDE             */ ,
+	CS_CANT_MAP /*     D2 00D2 LATIN CAPITAL LETTER O GRAVE             */ ,
+	CS_CANT_MAP /*     D3 00D3 LATIN CAPITAL LETTER O ACUTE             */ ,
+	CS_CANT_MAP /*     D4 00D4 LATIN CAPITAL LETTER O CIRCUMFLEX        */ ,
+	CS_CANT_MAP /*     D5 00D5 LATIN CAPITAL LETTER O TILDE             */ ,
+	0x99 /*     D6 00D6 LATIN CAPITAL LETTER O DIAERESIS         */ ,
+	CS_CANT_MAP /*     D7 00D7 MULTIPLICATION SIGN                      */ ,
+	0x9D /*     D8 00D8 LATIN CAPITAL LETTER O SLASH             */ ,
+	CS_CANT_MAP /*     D9 00D9 LATIN CAPITAL LETTER U GRAVE             */ ,
+	CS_CANT_MAP /*     DA 00DA LATIN CAPITAL LETTER U ACUTE             */ ,
+	CS_CANT_MAP /*     DB 00DB LATIN CAPITAL LETTER U CIRCUMFLEX        */ ,
+	0x9A /*     DC 00DC LATIN CAPITAL LETTER U DIAERESIS         */ ,
+	CS_CANT_MAP /*     DD 00DD LATIN CAPITAL LETTER Y ACUTE             */ ,
+	CS_CANT_MAP /*     DE 00DE LATIN CAPITAL LETTER THORN               */ ,
+	0xE1 /*     DF 00DF LATIN SMALL LETTER SHARP S               */ ,
+/*NEW       OLD UINC       NAME */
+	0x85 /*     E0 00E0 LATIN SMALL LETTER A GRAVE               */ ,
+	0xA0 /*     E1 00E1 LATIN SMALL LETTER A ACUTE               */ ,
+	0x83 /*     E2 00E2 LATIN SMALL LETTER A CIRCUMFLEX          */ ,
+	CS_CANT_MAP /*     E3 00E3 LATIN SMALL LETTER A TILDE               */ ,
+	0x84 /*     E4 00E4 LATIN SMALL LETTER A DIAERESIS           */ ,
+	0x86 /*     E5 00E5 LATIN SMALL LETTER A RING                */ ,
+	0x91 /*     E6 00E6 LATIN SMALL LETTER A E                   */ ,
+	0x87 /*     E7 00E7 LATIN SMALL LETTER C CEDILLA             */ ,
+	0x8A /*     E8 00E8 LATIN SMALL LETTER E GRAVE               */ ,
+	0x82 /*     E9 00E9 LATIN SMALL LETTER E ACUTE               */ ,
+	0x88 /*     EA 00EA LATIN SMALL LETTER E CIRCUMFLEX          */ ,
+	0x89 /*     EB 00EB LATIN SMALL LETTER E DIAERESIS           */ ,
+	0x8D /*     EC 00EC LATIN SMALL LETTER I GRAVE               */ ,
+	0xA1 /*     ED 00ED LATIN SMALL LETTER I ACUTE               */ ,
+	0x8C /*     EE 00EE LATIN SMALL LETTER I CIRCUMFLEX          */ ,
+	0x8B /*     EF 00EF LATIN SMALL LETTER I DIAERESIS           */ ,
+	CS_CANT_MAP /*     F0 00F0 LATIN SMALL LETTER ETH                   */ ,
+	0xA4 /*     F1 00F1 LATIN SMALL LETTER N TILDE               */ ,
+	0x95 /*     F2 00F2 LATIN SMALL LETTER O GRAVE               */ ,
+	0xA2 /*     F3 00F3 LATIN SMALL LETTER O ACUTE               */ ,
+	0x93 /*     F4 00F4 LATIN SMALL LETTER O CIRCUMFLEX          */ ,
+	CS_CANT_MAP /*     F5 00F5 LATIN SMALL LETTER O TILDE               */ ,
+	0x94 /*     F6 00F6 LATIN SMALL LETTER O DIAERESIS           */ ,
+	0xF6 /*     F7 00F7 DIVISION SIGN                            */ ,
+	0x9B /*     F8 00F8 LATIN SMALL LETTER O SLASH               */ ,
+	0x97 /*     F9 00F9 LATIN SMALL LETTER U GRAVE               */ ,
+	0xA3 /*     FA 00FA LATIN SMALL LETTER U ACUTE               */ ,
+	0x96 /*     FB 00FB LATIN SMALL LETTER U CIRCUMFLEX          */ ,
+	0x81 /*     FC 00FC LATIN SMALL LETTER U DIAERESIS           */ ,
+	CS_CANT_MAP /*     FD 00FD LATIN SMALL LETTER Y ACUTE               */ ,
+	CS_CANT_MAP /*     FE 00FE LATIN SMALL LETTER THORN                 */ ,
+	0x98						/*     FF 00FF LATIN SMALL LETTER Y DIAERESIS           */
+};
diff --git a/src/intl/undef.h b/src/intl/undef.h
new file mode 100644
index 0000000000..1774141e39
--- /dev/null
+++ b/src/intl/undef.h
@@ -0,0 +1,40 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#undef BORL_DRIVER_ID
+#undef IB_COUNTRY_ID
+#undef IB_INTERBASE_DRIVER_NUMBER
+#undef LDRV_ALTCPID
+#undef LDRV_ALTPLAT
+#undef LDRV_CTRYLANGID
+#undef LDRV_DRIVERID
+#undef LDRV_FNAME
+#undef LDRV_NAME
+#undef LDRV_PID
+#undef LDRV_PRIMARYCPID
+#undef LDRV_PRIMPLAT
+#undef LDRV_REVISION
+#undef LDRV_SORTTYPE
+#undef LDRV_TIEBREAK
+#undef MAX_NCO_IGNORE
+#undef MAX_NCO_PRIMARY
+#undef MAX_NCO_SECONDARY
+#undef MAX_NCO_TERTIARY
+#undef NUM_COMPRESS_CHARS
+#undef NUM_EXPAND_CHARS
+#undef NUM_EXPAND_CHARS
diff --git a/src/ipserver/alli.cpp b/src/ipserver/alli.cpp
new file mode 100644
index 0000000000..c79316ef8a
--- /dev/null
+++ b/src/ipserver/alli.cpp
@@ -0,0 +1,134 @@
+/*
+ *	PROGRAM:	Interprocess server interface
+ *	MODULE:		alli.c
+ *	DESCRIPTION:	Internal block allocator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <windows.h>
+
+#include "../ipserver/ipc.h"
+
+#define BLKDEF(type, root, tail) sizeof (struct root), tail,
+static struct {
+	SSHORT typ_root_length;
+	SSHORT typ_tail_length;
+} PIPE_block_sizes[] = {
+	0, 0,
+#include "../ipserver/blk.h"
+0};
+
+#include "../jrd/gds_proto.h"
+#include "../ipserver/alli_proto.h"
+
+
+
+UCHAR *ALLI_alloc(ULONG size)
+{
+/**************************************
+ *
+ *	A L L I _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block.
+ *
+ **************************************/
+
+	return gds__alloc(size);
+}
+
+
+BLK ALLI_block(UCHAR type, int count)
+{
+/**************************************
+ *
+ *	A L L I _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block from a given pool and initialize the block.
+ *	This is the primary block allocation routine.
+ *
+ **************************************/
+	register BLK block;
+	register USHORT size;
+	USHORT tail;
+
+/*
+
+if (type <= (SCHAR) type_MIN || type >= (SCHAR) type_MAX)
+    abort();
+
+*/
+
+/* Compute block length */
+
+	size = PIPE_block_sizes[type].typ_root_length;
+
+	if (tail = PIPE_block_sizes[type].typ_tail_length)
+		size += count * tail;
+
+	block = (BLK) ALLI_alloc((SLONG) size);
+	if (!block)
+		return block;
+	block->blk_type = type;
+	block->blk_length = size;
+
+	if (size -= sizeof(struct blk))
+		memset((SCHAR *) block + sizeof(struct blk), 0, size);
+
+	return block;
+}
+
+
+void ALLI_free( UCHAR * block)
+{
+/**************************************
+ *
+ *	A L L I _ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free a block.
+ *
+ **************************************/
+
+	gds__free((ULONG *) block);
+}
+
+
+void ALLI_release( BLK block)
+{
+/**************************************
+ *
+ *	A L L I _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a structured block.
+ *
+ **************************************/
+
+	ALLI_free((UCHAR *) block);
+}
diff --git a/src/ipserver/alli_proto.h b/src/ipserver/alli_proto.h
new file mode 100644
index 0000000000..9c782c13ab
--- /dev/null
+++ b/src/ipserver/alli_proto.h
@@ -0,0 +1,32 @@
+/*
+ *	PROGRAM:	Interprocess Interface Allocator
+ *	MODULE:		alli_proto.h
+ *	DESCRIPTION:	Prototype Header file for alli.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ALLI_PROTO_H_
+#define _ALLI_PROTO_H_
+
+extern UCHAR *ALLI_alloc(ULONG);
+extern BLK ALLI_block(UCHAR, int);
+extern void ALLI_free(UCHAR *);
+extern void ALLI_release(BLK);
+
+#endif /*  _ALLI_PROTO_H_  */
diff --git a/src/ipserver/blk.h b/src/ipserver/blk.h
new file mode 100644
index 0000000000..bc735db661
--- /dev/null
+++ b/src/ipserver/blk.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	Interprocess server interface
+ *	MODULE:		blk.h
+ *	DESCRIPTION:	Block type definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+BLKDEF(type_idb, idb, 0)
+	BLKDEF(type_irq, irq, 0)
+	BLKDEF(type_itr, itr, 0)
+	BLKDEF(type_ibl, ibl, 1)
+	BLKDEF(type_ivnt, ivnt, 0)
+	BLKDEF(type_ipserver_isr, ipserver_isr, 0)
+	BLKDEF(type_icc, icc, 0)
diff --git a/src/ipserver/ipapi_proto.h b/src/ipserver/ipapi_proto.h
new file mode 100644
index 0000000000..e53fde35a4
--- /dev/null
+++ b/src/ipserver/ipapi_proto.h
@@ -0,0 +1,162 @@
+/*
+ * PROGRAM: JRD Access Method
+ * MODULE: ipapi_proto.h
+ * DESCRIPTION: Prototype header file for ipclient.c api calls
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#ifndef IPAPI_PROTO_H
+#define IPAPI_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern STATUS DLL_EXPORT IPI_attach_database(STATUS *, SSHORT, SCHAR *,
+											 struct idb **, SSHORT, SCHAR *);
+extern STATUS DLL_EXPORT IPI_blob_info(STATUS *, struct ibl **, SSHORT,
+									   UCHAR *, SSHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_cancel_blob(STATUS *, struct ibl **);
+extern STATUS DLL_EXPORT IPI_cancel_events(STATUS *, struct idb **, SLONG *);
+extern STATUS DLL_EXPORT IPI_close_blob(STATUS *, struct ibl **);
+extern STATUS DLL_EXPORT IPI_commit_transaction(STATUS *, struct itr **);
+extern STATUS DLL_EXPORT IPI_commit_retaining(STATUS *, struct itr **);
+extern STATUS DLL_EXPORT IPI_compile_request(STATUS *, struct idb **,
+											 struct irq **, SSHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_create_blob(STATUS *, struct idb **,
+										 struct itr **, struct ibl **,
+										 struct bid *);
+extern STATUS DLL_EXPORT IPI_create_blob2(STATUS *, struct idb **,
+										  struct itr **, struct ibl **,
+										  struct bid *, SSHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_create_database(STATUS *, SSHORT, SCHAR *,
+											 struct idb **, SSHORT, SCHAR *,
+											 SSHORT);
+extern STATUS DLL_EXPORT IPI_database_info(STATUS *, struct idb **, SSHORT,
+										   UCHAR *, SSHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_ddl(STATUS *, struct idb **, struct itr **,
+								 SSHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_detach_database(STATUS *, struct idb **);
+extern STATUS DLL_EXPORT IPI_drop_database(STATUS *, struct idb **);
+extern STATUS DLL_EXPORT IPI_get_segment(STATUS *, struct ibl **, USHORT *,
+										 USHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_get_slice(STATUS *, struct idb **, struct itr **,
+									   struct bid *, USHORT, UCHAR *, USHORT,
+									   UCHAR *, SLONG, UCHAR *, SLONG *);
+extern STATUS DLL_EXPORT IPI_open_blob(STATUS *, struct idb **, struct itr **,
+									   struct ibl **, struct bid *);
+extern STATUS DLL_EXPORT IPI_open_blob2(STATUS *, struct idb **,
+										struct itr **, struct ibl **,
+										struct bid *, SSHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_prepare_transaction(STATUS *, struct itr **,
+												 USHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_put_segment(STATUS *, struct ibl **, USHORT,
+										 UCHAR *);
+extern STATUS DLL_EXPORT IPI_put_slice(STATUS *, struct idb **, struct itr **,
+									   struct bid *, USHORT, UCHAR *, USHORT,
+									   UCHAR *, SLONG, UCHAR *);
+extern STATUS DLL_EXPORT IPI_que_events(STATUS *, struct idb **, SLONG *,
+										USHORT, UCHAR *, FPTR_VOID, void *);
+extern STATUS DLL_EXPORT IPI_receive(STATUS *, struct irq **, SSHORT, SSHORT,
+									 UCHAR *, SSHORT
+#ifdef SCROLLABLE_CURSORS
+									 , USHORT, ULONG
+#endif
+	);
+extern STATUS DLL_EXPORT IPI_reconnect_transaction(STATUS *, struct idb **,
+												   struct itr **, SSHORT,
+												   UCHAR *);
+extern STATUS DLL_EXPORT IPI_release_request(STATUS *, struct irq **);
+extern STATUS DLL_EXPORT IPI_request_info(STATUS *, struct irq **, USHORT,
+										  SSHORT, UCHAR *, SSHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_rollback_transaction(STATUS *, struct itr **);
+extern STATUS DLL_EXPORT IPI_rollback_retaining(STATUS *, struct itr **);
+extern STATUS DLL_EXPORT IPI_seek_blob(STATUS *, struct ibl **, SSHORT, SLONG,
+									   SLONG *);
+extern STATUS DLL_EXPORT IPI_send(STATUS *, struct irq **, SSHORT, SSHORT,
+								  UCHAR *, SSHORT);
+extern STATUS DLL_EXPORT IPI_service_attach(STATUS *, USHORT, TEXT *,
+											struct idb **, USHORT, SCHAR *);
+extern STATUS DLL_EXPORT IPI_service_detach(STATUS *, struct idb **);
+extern STATUS DLL_EXPORT IPI_service_query(STATUS *, struct idb **, ULONG *,
+										   USHORT, SCHAR *, USHORT, SCHAR *,
+										   USHORT, SCHAR *);
+extern STATUS DLL_EXPORT IPI_service_start(STATUS *, struct idb **, ULONG *,
+										   USHORT, SCHAR *);
+extern STATUS DLL_EXPORT IPI_start_request(STATUS *, struct irq **,
+										   struct itr **, SSHORT);
+extern STATUS DLL_EXPORT IPI_start_and_send(STATUS *, struct irq **,
+											struct itr **, SSHORT, SSHORT,
+											UCHAR *, SSHORT);
+extern STATUS DLL_EXPORT IPI_start_multiple(STATUS *, struct itr **, SSHORT,
+											int **);
+extern STATUS DLL_EXPORT IPI_start_transaction(STATUS *, struct itr **,
+											   SSHORT, ...);
+extern STATUS DLL_EXPORT IPI_transaction_info(STATUS *, struct itr **, SSHORT,
+											  UCHAR *, SSHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_transact_request(STATUS *, struct idb **,
+											  struct itr **, USHORT, UCHAR *,
+											  USHORT, UCHAR *, USHORT,
+											  UCHAR *);
+extern STATUS DLL_EXPORT IPI_unwind_request(STATUS *, struct irq **, SSHORT);
+
+/* DSQL entrypoints */
+
+extern STATUS DLL_EXPORT IPI_allocate_statement(STATUS *, struct idb **,
+												struct ipserver_isr **);
+extern STATUS DLL_EXPORT IPI_execute(STATUS *, struct itr **,
+									 struct ipserver_isr **, USHORT, UCHAR *,
+									 USHORT, USHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_execute2(STATUS *, struct itr **,
+									  struct ipserver_isr **, USHORT, UCHAR *,
+									  USHORT, USHORT, UCHAR *, USHORT,
+									  UCHAR *, USHORT, USHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_execute_immediate(STATUS *, struct idb **,
+											   struct itr **, USHORT, UCHAR *,
+											   USHORT, USHORT, UCHAR *,
+											   USHORT, USHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_execute_immediate2(STATUS *, struct idb **,
+												struct itr **, USHORT,
+												UCHAR *, USHORT, USHORT,
+												UCHAR *, USHORT, USHORT,
+												UCHAR *, USHORT, UCHAR *,
+												USHORT, USHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_fetch(STATUS *, struct ipserver_isr **, USHORT,
+								   UCHAR *, USHORT, USHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_free_statement(STATUS *, struct ipserver_isr **,
+											USHORT);
+extern STATUS DLL_EXPORT IPI_insert(STATUS *, struct ipserver_isr **, USHORT,
+									UCHAR *, USHORT, USHORT, UCHAR *);
+extern STATUS DLL_EXPORT IPI_prepare(STATUS *, struct itr **,
+									 struct ipserver_isr **, USHORT, UCHAR *,
+									 USHORT, USHORT, UCHAR *, USHORT,
+									 UCHAR *);
+extern STATUS DLL_EXPORT IPI_set_cursor_name(STATUS *, struct ipserver_isr **,
+											 UCHAR *, USHORT);
+extern STATUS DLL_EXPORT IPI_sql_info(STATUS *, struct ipserver_isr **,
+									  SSHORT, UCHAR *, SSHORT, UCHAR *);
+
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+
+#endif /* IPAPI_PROTO_H */
diff --git a/src/ipserver/ipc.h b/src/ipserver/ipc.h
new file mode 100644
index 0000000000..d0f6c6e95e
--- /dev/null
+++ b/src/ipserver/ipc.h
@@ -0,0 +1,668 @@
+/*
+ *	PROGRAM:	Interprocess Interface definitions
+ *	MODULE:		ipc.h
+ *	DESCRIPTION:	Common descriptions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _IPC_H_
+#define _IPC_H_
+
+#include <stdio.h>
+#include "../jrd/common.h"
+#include "../jrd/thd.h"
+
+#define ALLOC(type)		ALLI_block (type, 0)
+#define ALLOCV(type, count)	ALLI_block (type, count)
+
+#ifdef BUFSIZ
+#define BLOB_LENGTH		(BUFSIZ - 20)
+#else
+#define BLOB_LENGTH		(1024 - 20)
+#endif
+
+typedef enum {
+	op_attach,					/* Attach database */
+	op_create,					/* Create database */
+	op_detach,					/* Detach database */
+
+	op_compile,					/* Request based operations */
+	op_start,
+	op_start_and_send,
+	op_send,
+	op_receive,
+	op_unwind,
+	op_release,
+
+	op_transaction,				/* Transaction operations */
+	op_commit,
+	op_rollback,
+	op_reconnect,
+
+	op_create_blob,				/* Blob operations */
+	op_open_blob,
+	op_get_segment,
+	op_put_segment,
+	op_cancel_blob,
+	op_close_blob,
+
+	op_info_database,			/* Information services */
+	op_info_request,
+	op_info_transaction,
+	op_info_blob,
+
+	op_prepare2,
+	op_commit_retaining,
+	op_rollback_retaining,
+	op_open_blob2,
+	op_create_blob2,
+	op_ddl,
+	op_que_events,
+	op_cancel_events,
+	op_put_slice,
+	op_get_slice,
+	op_seek_blob,
+
+	op_allocate_stmt,			/* DSQL operations */
+	op_execute,
+	op_exec_immediate,
+	op_fetch,
+	op_free_stmt,
+	op_prepare_stmt,
+	op_set_cursor,
+	op_info_sql,				/* Last opcode in V3.3 */
+
+	op_insert,
+	op_execute2,
+	op_exec_immediate2,
+
+	op_service_attach,
+	op_service_detach,
+	op_service_info,
+	op_service_start,
+
+	op_transact_request,
+	op_drop_database,
+
+	op_ping,
+	op_disconnect,
+	op_max,
+	op_gateway_sync = 127
+} P_OP;
+
+/* mapped file parameters */
+
+#define	IPS_MAPPED_PER_CLI(p)	((ULONG)(p) * 1024L)
+#define	IPS_MAPPED_FOR_CLI(p,x) ((ULONG)(x) * IPS_MAPPED_PER_CLI(p))
+#define	IPS_MAPPED_SIZE(p,c)	((ULONG)(c) * IPS_MAPPED_PER_CLI(p))
+#define	IPS_USEFUL_SPACE(p)	(IPS_MAPPED_PER_CLI(p) - sizeof( ips_comm_area))
+
+#define	IPS_DEF_NUM_CLI		10	/* default clients per mapped file */
+#define	IPS_DEF_NUM_MAPS	10	/* default maps available */
+#define	IPS_DEF_PAGES_PER_CLI	8	/* default 1k pages space per client */
+
+#define	IPS_MIN_NUM_CLI		1	/* min clients per mapped file */
+#define	IPS_MIN_NUM_MAPS	1	/* min maps available */
+#define	IPS_MIN_PAGES_PER_CLI	1	/* min 1k pages space per client */
+
+#define	IPS_MAX_NUM_CLI		64	/* max clients per mapped file */
+#define	IPS_MAX_NUM_MAPS	64	/* max maps available */
+#define	IPS_MAX_PAGES_PER_CLI	16	/* max 1k pages space per client */
+
+#define	IPS_PACK_PARAMS(x,p,m,u) (((ULONG)(x) << 24) + ((ULONG)(p) << 16) + ((m) << 8) + (u) + IP_BIAS)
+#define	IPS_UNPACK_MAX_USERS(n)	(((ULONG)(n - IP_BIAS) >> 24) & 0xFF)
+#define	IPS_UNPACK_PAGES(n)	(((ULONG)(n - IP_BIAS) >> 16) & 0xFF)
+#define	IPS_UNPACK_MAPNUM(n)	(((ULONG)(n - IP_BIAS) >> 8) & 0xFF)
+#define	IPS_UNPACK_USERNUM(n)	((n - IP_BIAS) & 0xFF)
+
+typedef struct bid {
+	ULONG bid_relation_id;		/* Relation id (or null) */
+	ULONG bid_number;			/* Record number */
+} *BID;
+
+/* Block types */
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+/* Block types */
+
+typedef struct cnct {
+	int *cnct_read_pipe;		/* this is really a FILE pointer */
+	int *cnct_write_pipe;		/* this is really a FILE pointer */
+} *CNCT;
+
+/* mapped file structure */
+
+typedef struct ipm {
+	struct ipm *ipm_next;		/* pointer to next one */
+	USHORT ipm_count;			/* slots in use */
+	USHORT ipm_number;			/* mapped area number */
+	HANDLE ipm_handle;			/* handle of mapped memory */
+	USHORT ipm_flags;			/* flag word */
+	LPVOID ipm_address;			/* address of mapped memory */
+	UCHAR ipm_ids[IPS_MAX_NUM_CLI];
+	/* ids */
+} *IPM;
+
+/* mapped structure flags */
+
+#define IPMF_SERVER_SHUTDOWN    1	/* server has shut down */
+
+/* thread connection control block */
+
+typedef struct icc
+{
+	struct blk	icc_header;
+	struct icc*	icc_next;			/* pointer to next thread */
+	struct idb*	icc_databases;		/* linked list of attachments */
+	struct ipm*	icc_ipm;			/* pointer back to ipm */
+	SSHORT		icc_file;			/* this thread's mapped file number */
+	SSHORT		icc_slot;			/* this thread's slot number */
+	DWORD		icc_thread_handle;	/* thread's handle */
+	HANDLE		icc_file_handle;	/* mapped file's handle */
+	HANDLE		icc_client_sem;		/* client's semaphore handle */
+	HANDLE		icc_server_sem;		/* server's semaphore handle */
+	HANDLE		icc_server_proc;	/* server's process handle */
+	HANDLE		icc_client_proc;	/* client's process handle */
+	DWORD		icc_server_id;		/* server's process id */
+	DWORD		icc_client_id;		/* client's process id */
+	SSHORT		icc_flags;			/* status bits */
+	HANDLE		icc_waits[2];		/* wait for these handles */
+	UCHAR*		icc_mapped_addr;	/* where the thread's mapped to */
+} *ICC;
+
+/* icc structure flags */
+
+#define	ICCF_SHUTDOWN			1	/* shutdown in progress */
+#define ICCF_SERVER_SHUTDOWN    2	/* server has shut down */
+#define ICCF_UNMAP_CLIENT       4	/* client maps must be shut down */
+
+/* database block */
+
+typedef struct idb
+{
+	struct blk				idb_header;
+	struct icc*				idb_thread;			/* back pointer to thread */
+	HANDLE					idb_handle;			/* database handle */
+	struct itr*				idb_transactions;	/* linked list of transactions */
+	struct irq*				idb_requests;		/* compiled requests */
+	struct ipserver_isr*	idb_sql_requests;	/* SQL requests */
+	struct ivnt*			idb_events;			/* events */
+	struct idb*				idb_next;			/* pointer to next db */
+	int*					idb_status_vector;	/* pointer to status vector */
+	USHORT					idb_flags;			/* flags (see below) */
+	SCHAR*					idb_setjmp;
+} *IDB;
+
+#define IDBF_DATABASE_ATTACHMENT 1
+#define IDBF_SERVICE_ATTACHMENT  2
+#define IDBF_SERVER_SHUTDOWN     4
+
+/* transaction block */
+
+typedef struct itr
+{
+	struct blk	itr_header;
+	struct idb*	itr_idb;
+	struct itr*	itr_next;
+	struct ibl*	itr_blobs;
+	HANDLE		itr_handle;
+	USHORT		itr_flags;
+} *ITR;
+
+#define ITR_limbo	1
+
+/* blob control block */
+
+typedef struct ibl
+{
+	struct blk	ibl_header;
+	struct idb*	ibl_idb;
+	struct itr*	ibl_itr;
+	struct ibl*	ibl_next;
+	HANDLE		ibl_handle;
+	SLONG		ibl_offset;			/* Apparent (to user) offset in blob */
+	USHORT		ibl_flags;
+	UCHAR*		ibl_ptr;
+	USHORT		ibl_length;
+	USHORT		ibl_fragment_length;
+	USHORT		ibl_buffer_length;
+	UCHAR		ibl_buffer[1];
+} *IBL;
+
+#define IBL_eof			1
+#define IBL_segment		2
+#define IBL_eof_pending	4
+#define IBL_create		8
+
+/* request block */
+
+typedef struct irq {
+	struct blk irq_header;
+	struct idb *irq_idb;
+	struct tra *irq_itr;
+	struct irq *irq_next;
+	struct irq **irq_user_handle;
+	HANDLE irq_handle;
+} *IRQ;
+
+/* event structure */
+
+typedef struct ivnt {
+	struct blk ivnt_header;
+	struct ivnt *ivnt_next;
+	struct idb *ivnt_idb;
+	void (*ivnt_ast) ();
+	void *ivnt_arg;
+	HWND ivnt_window;
+	SLONG ivnt_id;
+	SLONG ivnt_handle;
+} *IVNT;
+
+/* remote SQL request */
+
+typedef struct ipserver_isr {
+	struct blk isr_header;
+	struct ipserver_isr *isr_next;
+	struct idb *isr_idb;
+	struct itr *isr_itr;
+	HANDLE isr_handle;
+	USHORT isr_rec_count;
+	USHORT isr_max_recs;
+	USHORT isr_eof_flag;
+	USHORT isr_batch_flag;
+	STATUS isr_status[ISC_STATUS_LENGTH];
+	UCHAR *isr_cursor;
+	UCHAR *isr_packed;
+} *IPSERVER_ISR;
+
+#define BLKDEF(type, root, tail) type,
+enum blk_t {
+	type_MIN = 0,
+#include "../ipserver/blk.h"
+	type_MAX
+};
+#undef BLKDEF
+
+/*
+    This structure is used to move stuff between the ipc buffer(s)
+    and the client's and server's memory.
+
+    Three buffers are tracked - a client buffer, a server buffer and
+    a buffer within the communications data structure.   For the client
+    and server buffers, the address within that task plus the max size
+    and current size are maintained. there is a flag indicating whether
+    the buffer is used for input, output, both or neither.   For the
+    comm buffer, a relative offset from the start of the comm area,
+    the current area mapped in the comm area and its allocated size
+    in the comm area are maintained.
+
+    When the client needs to pass stuff to the server, space will be
+    allocated in the comm area for all client buffers.   If there is
+    insufficient space, the comm buffer will be filled by the client
+    and emptied by the server as often as necessary to pass everything.
+    the same process is carried out when the server responds for any
+    data passed back to the client.
+
+    There can be up to five of these in use for a call to the server.
+    The flag words are used to indicate what, if anything, to copy for
+    each of the five transfer blocks.
+*/
+
+typedef struct {
+	ULONG ips_cl_size;			/* client buffer size */
+	ULONG ips_sv_size;			/* server buffer size */
+	ULONG ips_sv_alloced;		/* server buffer size allocated */
+	ULONG ips_cl_copied;		/* client buffer copied so far */
+	ULONG ips_sv_copied;		/* server buffer copied so far */
+	ULONG ips_com_offset;		/* offset to comm buffer */
+	ULONG ips_com_size;			/* size of comm buffer */
+	ULONG ips_com_curr;			/* current mapped offset of comm buffer */
+	ULONG ips_flags;			/* flags */
+	UCHAR *ips_cl_addr;			/* address of client buffer */
+	UCHAR *ips_sv_addr;			/* address of server buffer */
+	UCHAR *ips_sv_buffer;		/* allocated local buffer */
+} ips_string;
+
+#define	IPS_INPUT_BUFFER	1	/* used for input from client */
+#define	IPS_OUTPUT_BUFFER	2	/* used for output to client */
+
+
+/*
+   strucure used for attachments
+    - attach database
+    - attach service
+    - create database
+
+   and for info calls
+    - blob info
+    - database info
+    - query service info
+    - request info
+    - sql request info
+    - transaction info
+
+   and for simple controls of various objects
+    - cancel blob
+    - cancel events
+    - close blob
+    - commit transaction
+    - commit transaction (retaining)
+    - detach database
+    - detach service
+    - drop database
+    - dsql free statement
+    - prepare transaction
+    - release request
+    - rollback transaction
+    - unwind request
+*/
+
+typedef struct {
+	UCHAR *ips_handle;			/* handle of object */
+	ULONG ips_parameter;		/* a parameter, used if needed */
+} ips_object;
+
+#define	IPS_ATTACH_NAME		0	/* use controller 0 for db name */
+#define	IPS_ATTACH_DPB		1	/* use controller 1 for dpb */
+#define	IPS_ATTACH_EXPANDED	2	/* use controller 2 for exp name */
+
+#define	IPS_CREATE_NAME		0	/* use controller 0 for db name */
+#define	IPS_CREATE_DPB		1	/* use controller 1 for dpb */
+#define	IPS_CREATE_EXPANDED	2	/* use controller 2 for exp name */
+
+#define	IPS_ATTACH_SVC_NAME	0	/* use controller 0 for service name */
+#define	IPS_ATTACH_SVC_SPB	1	/* use controller 1 for spb */
+#define IPS_START_SVC_SPB	2	/* use controller 2 for start spb */
+
+#define	IPS_CLOSE_BLOB_REM	0	/* use controller 0 for remainders */
+
+#define	IPS_INFO_ITEMS		0	/* use controller 0 for items */
+#define	IPS_INFO_DATA		1	/* use controller 1 for data */
+
+#define	IPS_QUERY_RECV_ITEMS	2	/* use controller 2 for recv items */
+
+#define	IPS_PREPARE_TRANS	0	/* use controller 0 for string */
+
+
+/* structure used to compile requests */
+
+typedef struct {
+	UCHAR *ips_db_handle;		/* database handle */
+	UCHAR *ips_rq_handle;		/* returned request handle */
+} ips_compile_req;
+
+#define	IPS_COMPILE_REQ		0	/* use controller 0 for blr */
+
+
+/* structure used by create/open blob (and create/open blob2) */
+
+typedef struct {
+	UCHAR *ips_db_handle;		/* database handle */
+	UCHAR *ips_tr_handle;		/* transaction handle */
+	UCHAR *ips_bl_handle;		/* returned blob handle */
+	ULONG ips_rel_id;			/* returned relation ID */
+	ULONG ips_bid_number;		/* returned blob ID number */
+} ips_blob;
+
+#define	IPS_BLOB_BPB		0	/* use contorller 0 for bpb */
+
+
+/* structure used for DDL operations */
+
+typedef struct {
+	UCHAR *ips_db_handle;		/* database handle */
+	UCHAR *ips_tr_handle;		/* transaction handle */
+} ips_ddl;
+
+#define	IPS_DDL_DDL		0		/* use controller 0 for ddl */
+
+
+/*
+   structure used for most DSQL operations
+    - allocate
+    - execute
+    - execute2
+    - execute immediate
+    - execute immediate2
+    - fetch
+    - insert
+    - prepare
+    - set cursor
+*/
+
+typedef struct {
+	UCHAR *ips_db_handle;		/* database handle */
+	UCHAR *ips_tr_handle;		/* transaction handle (in/out) */
+	UCHAR *ips_st_handle;		/* statement handle */
+	ULONG ips_parameter;		/* sql dialect/fetch status/set cursor */
+	USHORT ips_msg_type;		/* message type */
+	USHORT ips_msg_out;			/* output message type */
+	USHORT ips_rec_count;		/* packed records count */
+} ips_dsql;
+
+#define	IPS_DSQL_EXEC_BLR	0	/* use controller 0 for blr */
+#define	IPS_DSQL_EXEC_MSG	1	/* use controller 1 for message */
+
+#define	IPS_DSQL_EXEC2_BLR_IN	IPS_DSQL_EXEC_BLR
+#define	IPS_DSQL_EXEC2_MSG_IN	IPS_DSQL_EXEC_MSG
+#define	IPS_DSQL_EXEC2_BLR_OUT	2	/* use controller 2 for output blr */
+#define	IPS_DSQL_EXEC2_MSG_OUT	3	/* use controller 3 for output msg */
+
+#define	IPS_DSQL_EXEC_IMMED_SQL	0	/* use controller 0 for sql */
+#define	IPS_DSQL_EXEC_IMMED_BLR	1	/* use controller 1 for blr */
+#define	IPS_DSQL_EXEC_IMMED_MSG	2	/* use controller 2 for message */
+
+#define	IPS_DSQL_EXEC_IMMED2_SQL	IPS_DSQL_EXEC_IMMED_SQL
+#define	IPS_DSQL_EXEC_IMMED2_BLR_IN	IPS_DSQL_EXEC_IMMED_BLR
+#define	IPS_DSQL_EXEC_IMMED2_MSG_IN	IPS_DSQL_EXEC_IMMED_MSG
+#define	IPS_DSQL_EXEC_IMMED2_BLR_OUT	3	/* use controller 3 for output blr */
+#define	IPS_DSQL_EXEC_IMMED2_MSG_OUT	4	/* use controller 4 for output msg */
+
+#define	IPS_DSQL_FETCH_BLR	0	/* use controller 0 for blr */
+#define	IPS_DSQL_FETCH_MSG	1	/* use controller 1 for message */
+
+#define	IPS_DSQL_INSERT_BLR	0	/* use controller 0 for blr */
+#define	IPS_DSQL_INSERT_MSG	1	/* use controller 1 for message */
+
+#define	IPS_DSQL_PREP_STRING	0	/* use controller 0 for string */
+#define	IPS_DSQL_PREP_ITEMS	1	/* use controller 1 for items */
+#define	IPS_DSQL_PREP_BUFFER	2	/* use controller 2 for buffer */
+
+#define	IPS_DSQL_SET_CURSOR	0	/* use controller 0 for name */
+
+
+/* structure used to get/put blob segments */
+
+typedef struct {
+	UCHAR *ips_bl_handle;		/* blob handle */
+	USHORT ips_length;			/* returned actual length */
+} ips_segment;
+
+#define	IPS_BLOB_SEGMENT	0	/* use controller 0 for segment */
+
+
+/* structure used to get/put array slices */
+
+typedef struct {
+	UCHAR *ips_db_handle;		/* database handle */
+	UCHAR *ips_tr_handle;		/* transaction handle */
+	ULONG ips_rel_id;			/* array rel id */
+	ULONG ips_number;			/* array number */
+	ULONG ips_length;			/* returned actual length */
+} ips_slice;
+
+#define	IPS_SLICE_SDL		0	/* use controller 0 for sdl */
+#define	IPS_SLICE_PARAM		1	/* use controller 1 for parameters */
+#define	IPS_SLICE_BUFFER	2	/* use controller 2 for slice */
+
+
+/* structure for queueing events */
+
+typedef struct {
+	UCHAR *ips_db_handle;		/* database handle */
+	ULONG ips_event_id;			/* returned event id */
+	HWND ips_event_hwnd;		/* window handle to return to */
+	UCHAR *ips_ast;				/* ast address */
+	UCHAR *ips_arg;				/* ast arg */
+} ips_que_events;
+
+#define	IPS_QUEUE_EVENT		0	/* use controller 0 for event */
+
+
+/* structure for send/receive message */
+
+typedef struct {
+	UCHAR *ips_tr_handle;		/* transaction handle */
+	UCHAR *ips_rq_handle;		/* request handle */
+	USHORT ips_msg_type;		/* message type */
+	USHORT ips_req_level;		/* request level */
+#ifdef SCROLLABLE_CURSORS
+	USHORT ips_direction;		/* direction */
+	ULONG ips_offset;			/* offset */
+#endif
+} ips_request;
+
+#define	IPS_SEND_MESSAGE	0	/* use controller 0 for message */
+#define	IPS_RECEIVE_MESSAGE	0	/* use controller 0 for message */
+
+
+/* structure used to reconnect transaction */
+
+typedef struct {
+	UCHAR *ips_db_handle;		/* transaction handle */
+	UCHAR *ips_tr_handle;		/* transaction handle */
+} ips_reconnect;
+
+#define	IPS_RECONNECT_ID	0	/* use controller 0 for id */
+
+
+/* structure used to seek into a blob */
+
+typedef struct {
+	UCHAR *ips_bl_handle;		/* blob handle */
+	ULONG ips_offset;			/* offset into blob */
+	ULONG ips_result;			/* returned result */
+	USHORT ips_mode;			/* seek mode */
+} ips_seek_blob;
+
+
+/* structure used to start transactions */
+
+typedef struct {
+	UCHAR *ips_tr_handle;		/* returned transaction handle */
+	USHORT ips_db_count;		/* number of db's in transaction */
+} ips_start_trans;
+
+
+/* structure used for transact request */
+
+typedef struct {
+	UCHAR *ips_db_handle;		/* database handle */
+	UCHAR *ips_tr_handle;		/* transaction handle (in/out) */
+} ips_transact_request;
+
+#define	IPS_TRANS_REQ_BLR	0	/* use controller 0 for blr */
+#define	IPS_TRANS_REQ_IN_MSG	1	/* use controller 1 for input msg */
+#define	IPS_TRANS_REQ_OUT_MSG	2	/* use controller 2 for output msg */
+
+
+/*
+    This structure is mapped to the start of the allocated
+    communications area between the client and server.
+*/
+
+#define	MAX_IPS_STRINGS		5
+
+typedef struct {
+	ULONG ips_server_protocol;	/* server's protocol level */
+	ULONG ips_client_protocol;	/* client's protocol level */
+	ULONG ips_status[ISC_STATUS_LENGTH];	/* status vector */
+	ips_string ips_buffers[MAX_IPS_STRINGS];
+	/* array of buffer controllers */
+	USHORT ips_ops_count;		/* operations performed */
+	USHORT ips_sequence;		/* transfer sequence number */
+	USHORT ips_operation;		/* operation being performed */
+	HANDLE ips_server_proc;		/* server's process handle */
+	HANDLE ips_client_proc;		/* client's process handle */
+	DWORD ips_server_id;		/* server's process id */
+	DWORD ips_client_id;		/* client's process id */
+	union {
+		ips_object ips_op_object;
+		ips_compile_req ips_op_compile;
+		ips_blob ips_op_blob;
+		ips_ddl ips_op_ddl;
+		ips_dsql ips_op_dsql;
+		ips_segment ips_op_segment;
+		ips_slice ips_op_slice;
+		ips_que_events ips_op_que_evnt;
+		ips_request ips_op_request;
+		ips_reconnect ips_op_recon_trans;
+		ips_seek_blob ips_op_sk_blob;
+		ips_start_trans ips_op_strt_trans;
+		ips_transact_request ips_op_trans_req;
+	} ips_operations;
+	ULONG ips_data[1];			/* start of data area */
+} ips_comm_area, *IPS;
+
+/* size of mapped memory for a given client */
+
+#define	CLIENT_SERVER_AREA_SIZE	8192
+
+/* size available for packing stuff in the mapped area */
+
+#define	CLIENT_SERVER_AVAIL (CLIENT_SERVER_AREA_SIZE - sizeof(ips_comm_area))
+
+/* Windows names used to identify various named objects */
+
+#define	IPI_SERVER_NAME		"InterBaseIPIServer"
+#define	IPI_SERVER_CLASS	"InterBaseIPIServerClass"
+#define	IPI_MAPPED_FILE_NAME	"InterBaseIPIMappedArea%d"
+#define	IPI_CLIENT_SEM_NAME	"InterBaseIPIClientSem%d_%d"
+#define	IPI_SERVER_SEM_NAME	"InterBaseIPIServerSem%d_%d"
+#define	IPI_EVENT_NAME		"InterBaseIPIEvent%d"
+#define	IPI_EVENT_CLASS		"InterBaseIPIEventClass"
+#define	IPI_EVENT_THREAD	"InterBaseIPIEventThread%d_%d"
+
+/* local event queue structure */
+
+typedef struct eventq {
+	struct eventq *evq_next;	/* next event */
+	SLONG evq_id;				/* event ID */
+	USHORT evq_length;			/* event length */
+	TEXT evq_string[1];			/* event string */
+} *EVENTQ;
+
+/* interprocess database thread structure */
+
+typedef struct tidb {
+	struct thdd tidb_thd_data;
+	struct rdb *tidb_database;
+	STATUS *tidb_status_vector;
+	UCHAR *tidb_setjmp;
+} *TIDB;
+
+
+/* bias for connect messages */
+
+#define	IP_BIAS	3333
+
+#endif /* _IPC_H_ */
diff --git a/src/ipserver/ipcevent.cpp b/src/ipserver/ipcevent.cpp
new file mode 100644
index 0000000000..5ca5e3efe3
--- /dev/null
+++ b/src/ipserver/ipcevent.cpp
@@ -0,0 +1,125 @@
+/*
+ *      PROGRAM:        Interprocess Client
+ *      MODULE:         ipcevent.c
+ *      DESCRIPTION:    Interprocess interface event window initializer
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <windows.h>
+
+#include "../ipserver/ipcli_proto.h"
+#include "../ipserver/ipevt_proto.h"
+#include "../ipserver/ips.h"
+
+/* instance handle */
+
+extern HINSTANCE hIBDLLInstance;
+
+/* callback for event handling */
+
+LRESULT CALLBACK IBEventWindowFunc(HWND, UINT, WPARAM, LPARAM);
+
+
+
+int IPC_window_init(
+					char *class_name,
+					char *task_name, HWND * event_window, HANDLE event_sem)
+{
+/**************************************
+ *
+ *	I P C _ w i n d o w _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the window used to process events.
+ *
+ **************************************/
+	HWND hWnd;
+	WNDCLASS wcl;
+	DWORD result;
+	MSG msg;
+
+
+	wcl.hInstance = hIBDLLInstance;
+	wcl.lpszClassName = class_name;
+	wcl.lpfnWndProc = IBEventWindowFunc;
+	wcl.style = 0;
+
+	wcl.hIcon = LoadIcon(NULL, IDI_APPLICATION);
+	wcl.hCursor = LoadCursor(NULL, IDC_ARROW);
+	wcl.lpszMenuName = NULL;
+
+	wcl.cbClsExtra = 0;
+	wcl.cbWndExtra = 0;
+
+	wcl.hbrBackground = (HBRUSH) GetStockObject(WHITE_BRUSH);
+
+	if (!RegisterClass(&wcl)) {
+		result = GetLastError();
+		return 0;
+	}
+
+	hWnd = CreateWindow(class_name,
+						task_name,
+						WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU |
+						WS_MINIMIZEBOX, CW_USEDEFAULT, CW_USEDEFAULT,
+						CW_USEDEFAULT, CW_USEDEFAULT, HWND_DESKTOP, NULL,
+						hIBDLLInstance, NULL);
+
+	ShowWindow(hWnd, SW_HIDE);
+	UpdateWindow(hWnd);
+
+	/* return handle and signal with semaphore */
+
+	*event_window = hWnd;
+	ReleaseSemaphore(event_sem, 1L, NULL);
+	while (GetMessage(&msg, NULL, 0, 0)) {
+		TranslateMessage(&msg);
+		DispatchMessage(&msg);
+	}
+	return msg.wParam;
+}
+
+
+LRESULT CALLBACK IBEventWindowFunc(HWND hWnd,
+								   UINT message, WPARAM wParam, LPARAM lParam)
+{
+	COPYDATASTRUCT *cpdata;
+
+
+	switch (message) {
+	case WM_CLOSE:
+		DestroyWindow(hWnd);
+		break;
+
+	case WM_DESTROY:
+		PostQuitMessage(0);
+		break;
+
+	case WM_COPYDATA:
+		cpdata = (COPYDATASTRUCT *) lParam;
+		IPC_process_event(cpdata->dwData, cpdata->cbData, cpdata->lpData);
+		break;
+
+	default:
+		return DefWindowProc(hWnd, message, wParam, lParam);
+	}
+	return 0;
+}
diff --git a/src/ipserver/ipcli_proto.h b/src/ipserver/ipcli_proto.h
new file mode 100644
index 0000000000..f87a42b1f9
--- /dev/null
+++ b/src/ipserver/ipcli_proto.h
@@ -0,0 +1,39 @@
+/*
+ * PROGRAM: JRD Access Method
+ * MODULE: ipcli_proto.h
+ * DESCRIPTION: Prototype header file for ipclient.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#ifndef _IPCLI_PROTO_H_
+#define _IPCLI_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void IPC_process_event(DWORD, DWORD, LPVOID);
+extern void IPC_release_all(void);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _IPCLI_PROTO_H_ */
diff --git a/src/ipserver/ipclient.cpp b/src/ipserver/ipclient.cpp
new file mode 100644
index 0000000000..83cd9518ae
--- /dev/null
+++ b/src/ipserver/ipclient.cpp
@@ -0,0 +1,4719 @@
+/*
+ *      PROGRAM:        Interprocess Client
+ *      MODULE:         ipclient.c
+ *      DESCRIPTION:    Interprocess interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include <signal.h>
+#include <errno.h>
+#include <string.h>
+#include <windows.h>
+
+#include "../ipserver/ipc.h"
+#include "../jrd/codes.h"
+#include "../jrd/license.h"
+#include "../jrd/inf.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../ipserver/alli_proto.h"
+#include "../ipserver/ipcli_proto.h"
+#include "../ipserver/ipevt_proto.h"
+#include "../ipserver/ips.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../remote/window.h"
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      256
+#endif
+
+#define statistics      stat
+
+extern "C" {
+
+typedef void (*PTR) ();
+
+static STATUS check_response(ICC, STATUS *);
+static void clear_statement_cache(IPSERVER_ISR);
+static void clear_transaction_statements(ITR);
+static void event_packer(ICC);
+static void event_thread(void);
+static void extract_status(ICC, STATUS *);
+static STATUS handle_error(STATUS *, STATUS);
+static SSHORT init(STATUS *, ICC *);
+static ITR make_transaction(STATUS *, IDB, HANDLE);
+static SSHORT name_length(TEXT *);
+static BOOL pack_strings(ICC);
+static void release_blob(IBL);
+static void release_database(IDB);
+static void release_event(IVNT);
+static void release_request(IRQ);
+static void release_sql_request(IPSERVER_ISR);
+static void release_transaction(ITR);
+static BOOL send_and_wait(ICC);
+static void server_shutdown(void);
+static void server_watcher(void);
+static BOOL unpack_strings(ICC);
+
+
+#define RETURN_ERROR(e)         { THD_mutex_unlock( &mapsect);\
+				  if ( icc != NULL) {\
+                                    if ( icc->icc_flags & ICCF_UNMAP_CLIENT)\
+                                    {\
+                                        server_shutdown();\
+                                        icc->icc_flags &= ~ICCF_UNMAP_CLIENT;\
+                                    }\
+				  }\
+                                  return e; }
+
+#define RETURN_SUCCESS          RETURN_ERROR( SUCCESS)
+
+#define CHECK_HANDLE(blk, type, error)\
+		if ( !blk || ((BLK)blk)->blk_type != (SCHAR) type) \
+		    return handle_error( user_status, error)
+
+#define CHECK_HANDLE_REL(blk, type, error)\
+		if ( !blk || ((BLK)blk)->blk_type != (SCHAR) type) \
+                {\
+                    RETURN_ERROR( handle_error( user_status, error));\
+                }
+
+#define NULL_CHECK(ptr, code)	if (*ptr)\
+				    return handle_error( user_status, code)
+
+#define NOT_NULL(ptr)	if (!ptr)\
+                        {\
+                            RETURN_ERROR( handle_error( user_status, isc_virmemexh));\
+                        }
+
+#define GET_OBJECT(obj) icc = (ICC)obj;\
+                        if ( icc->icc_thread_handle != GetCurrentThreadId() &&\
+                             event_icc)\
+                            icc = event_icc;\
+                        if ( icc->icc_flags & ICCF_SERVER_SHUTDOWN)\
+                        {\
+                            user_status[0] = isc_arg_gds;\
+                            user_status[1] = isc_lost_db_connection;\
+                            user_status[2] = isc_arg_end;\
+                            return user_status[1];\
+                        }\
+                        THD_mutex_lock( &mapsect);\
+                        comm = (ips_comm_area*)icc->icc_mapped_addr;\
+                        for ( commi = 0; commi < MAX_IPS_STRINGS; commi++)\
+                            comm->ips_buffers[commi].ips_flags = 0;
+
+/* some macros to set up the strings */
+
+#define IPS_CLIENT(c,p,n,a,s,f) { c->ips_buffers[n].ips_cl_size = s;\
+				  c->ips_buffers[n].ips_cl_addr = (UCHAR*)a;\
+				  c->ips_buffers[n].ips_cl_copied = 0;\
+				  c->ips_buffers[n].ips_flags = f;\
+				  p = &c->ips_buffers[n];}
+
+#define IPS_C_IN(c,p,n,a,s)     IPS_CLIENT(c,p,n,a,s,IPS_INPUT_BUFFER)
+#define IPS_C_OUT(c,p,n,a,s)    IPS_CLIENT(c,p,n,a,s,IPS_OUTPUT_BUFFER)
+#define IPS_C_IN_OUT(c,p,n,a,s) IPS_CLIENT(c,p,n,a,s,IPS_INPUT_BUFFER+IPS_OUTPUT_BUFFER)
+
+static TEXT error_text[1024];
+static ICC client_threads = NULL;
+static IPM client_maps = NULL;
+static MUTX_T clisect;
+static MUTX_T evtsect;
+static MUTX_T mapsect;
+static LONG interlock = -1;
+static BOOLEAN initialized = FALSE;
+static SLONG eventID = 0;
+static HANDLE event_semaphore = 0;
+static HWND event_window = 0;
+static ICC event_icc = NULL;
+static HANDLE event_packer_handle = 0;
+static HANDLE event_thread_handle = 0;
+static EVENTQ event_head = NULL, event_tail = NULL;
+static USHORT exit_flag = 0;
+static USHORT pages_per_user = IPS_DEF_PAGES_PER_CLI;
+static USHORT users_per_map = IPS_DEF_NUM_CLI;
+static HANDLE server_watcher_handle = 0;
+static HANDLE server_process_handle = 0;
+
+
+#define GDS_ATTACH_DATABASE     IPI_attach_database
+#define GDS_BLOB_INFO           IPI_blob_info
+#define GDS_CANCEL_BLOB         IPI_cancel_blob
+#define GDS_CANCEL_EVENTS       IPI_cancel_events
+#define GDS_CLOSE_BLOB          IPI_close_blob
+#define GDS_COMMIT              IPI_commit_transaction
+#define GDS_COMMIT_RETAINING    IPI_commit_retaining
+#define GDS_COMPILE             IPI_compile_request
+#define GDS_CREATE_BLOB         IPI_create_blob
+#define GDS_CREATE_BLOB2        IPI_create_blob2
+#define GDS_CREATE_DATABASE     IPI_create_database
+#define GDS_DATABASE_INFO       IPI_database_info
+#define GDS_DDL                 IPI_ddl
+#define GDS_DETACH              IPI_detach_database
+#define GDS_DROP_DATABASE       IPI_drop_database
+#define GDS_GET_SEGMENT         IPI_get_segment
+#define GDS_GET_SLICE           IPI_get_slice
+#define GDS_OPEN_BLOB           IPI_open_blob
+#define GDS_OPEN_BLOB2          IPI_open_blob2
+#define GDS_PREPARE             IPI_prepare_transaction
+#define GDS_PUT_SEGMENT         IPI_put_segment
+#define GDS_PUT_SLICE           IPI_put_slice
+#define GDS_QUE_EVENTS          IPI_que_events
+#define GDS_RECEIVE             IPI_receive
+#define GDS_RECONNECT           IPI_reconnect_transaction
+#define GDS_RELEASE_REQUEST     IPI_release_request
+#define GDS_REQUEST_INFO        IPI_request_info
+#define GDS_ROLLBACK            IPI_rollback_transaction
+#define GDS_ROLLBACK_RETAINING  IPI_rollback_retaining
+#define GDS_SEEK_BLOB           IPI_seek_blob
+#define GDS_SEND                IPI_send
+#define GDS_SERVICE_ATTACH      IPI_service_attach
+#define GDS_SERVICE_DETACH      IPI_service_detach
+#define GDS_SERVICE_QUERY       IPI_service_query
+#define GDS_SERVICE_START       IPI_service_start
+#define GDS_START               IPI_start_request
+#define GDS_START_AND_SEND      IPI_start_and_send
+#define GDS_START_MULTIPLE      IPI_start_multiple
+#define GDS_START_TRANSACTION   IPI_start_transaction
+#define GDS_TRANSACTION_INFO    IPI_transaction_info
+#define GDS_TRANSACT_REQUEST    IPI_transact_request
+#define GDS_UNWIND              IPI_unwind_request
+
+#define GDS_DSQL_ALLOCATE       IPI_allocate_statement
+#define GDS_DSQL_EXECUTE        IPI_execute
+#define GDS_DSQL_EXECUTE2       IPI_execute2
+#define GDS_DSQL_EXECUTE_IMMED  IPI_execute_immediate
+#define GDS_DSQL_EXECUTE_IMMED2 IPI_execute_immediate2
+#define GDS_DSQL_FETCH          IPI_fetch
+#define GDS_DSQL_FREE           IPI_free_statement
+#define GDS_DSQL_INSERT         IPI_insert
+#define GDS_DSQL_PREPARE        IPI_prepare
+#define GDS_DSQL_SET_CURSOR     IPI_set_cursor_name
+#define GDS_DSQL_SQL_INFO       IPI_sql_info
+
+
+STATUS GDS_ATTACH_DATABASE(
+						   STATUS * user_status,
+						   USHORT GDS_VAL(file_length),
+						   SCHAR * file_name,
+IDB * handle,
+USHORT GDS_VAL(dpb_length), SCHAR * dpb, SCHAR * expanded_filename)
+{
+/**************************************
+ *
+ *      g d s _ a t t a c h _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Attach to an existing database via the interprocess
+ *      interface to the local server.
+ *
+ **************************************/
+	IDB idb;
+	ICC icc;
+	SSHORT l;
+	ips_object *ips;
+	ips_string *ips_name;
+	ips_string *ips_dpb;
+	ips_string *ips_expanded;
+	ips_comm_area *comm;
+	USHORT commi;
+
+
+	/* make sure handle is valid (should be null coming in) */
+
+	NULL_CHECK(handle, isc_bad_db_handle);
+	if (!(l = GDS_VAL(file_length)))
+		l = strlen(file_name);
+
+	/* remote names should not go through here */
+
+	if (ISC_check_if_remote(expanded_filename, TRUE)) {
+		user_status[0] = isc_arg_gds;
+		user_status[1] = isc_unavailable;
+		user_status[2] = isc_arg_end;
+		return user_status[1];
+	}
+
+	/* call init to initiate connection */
+
+	if (!init(user_status, &icc))
+		return user_status[1];
+
+	/* set up communications area */
+
+	THD_mutex_lock(&mapsect);
+	comm = (ips_comm_area *) icc->icc_mapped_addr;
+	for (commi = 0; commi < MAX_IPS_STRINGS; commi++)
+		comm->ips_buffers[commi].ips_flags = 0;
+	comm->ips_operation = op_attach;
+	ips = &comm->ips_operations.ips_op_object;
+	IPS_C_IN(comm, ips_name, IPS_ATTACH_NAME,
+			 expanded_filename, strlen(expanded_filename));
+	IPS_C_IN(comm, ips_dpb, IPS_ATTACH_DPB, dpb, dpb_length);
+	IPS_C_IN(comm, ips_expanded, IPS_ATTACH_EXPANDED,
+			 expanded_filename, strlen(expanded_filename));
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* allocate a database structure and link it to thread */
+
+	idb = (IDB) ALLOC(type_idb);
+	*handle = idb;
+	NOT_NULL(idb);
+	idb->idb_flags = IDBF_DATABASE_ATTACHMENT;
+	idb->idb_next = icc->icc_databases;
+	idb->idb_thread = icc;
+	icc->icc_databases = idb;
+	idb->idb_handle = (HANDLE) (ips->ips_handle);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_BLOB_INFO(STATUS * user_status,
+					 IBL * blob,
+					 USHORT GDS_VAL(item_length),
+					 UCHAR * items,
+					 USHORT GDS_VAL(buffer_length), UCHAR * buffer)
+{
+/**************************************
+ *
+ *      g d s _ b l o b _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *      Provide information on blob object.
+ *
+ **************************************/
+	IDB idb;
+	ips_object *ips;
+	ips_string *ips_items;
+	ips_string *ips_data;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	CHECK_HANDLE((*blob), type_ibl, isc_bad_segstr_handle);
+	idb = (*blob)->ibl_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* set up communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_info_blob;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) ((*blob)->ibl_handle);
+	IPS_C_IN(comm, ips_items, IPS_INFO_ITEMS, items, item_length);
+	IPS_C_OUT(comm, ips_data, IPS_INFO_DATA, buffer, buffer_length);
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_CANCEL_BLOB(STATUS * user_status, IBL * blob_handle)
+{
+/**************************************
+ *
+ *      g d s _ c a n c e l _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Abort a partially completed blob.
+ *
+ **************************************/
+	IDB idb;
+	IBL blob;
+	ips_object *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, type_ibl, isc_bad_segstr_handle);
+	idb = blob->ibl_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* if blob handle is null, we're done */
+
+	blob = *blob_handle;
+	if (!blob) {
+		*user_status++ = isc_arg_gds;
+		*user_status++ = SUCCESS;
+		*user_status = isc_arg_end;
+		return SUCCESS;
+	}
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_cancel_blob;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (blob->ibl_handle);
+
+	/* free object */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	release_blob(blob);
+	*blob_handle = NULL;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_CANCEL_EVENTS(STATUS * user_status, IDB * handle, SLONG * id)
+{
+/**************************************
+ *
+ *      g d s _ c a n c e l _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Try to cancel an event.
+ *
+ **************************************/
+	IDB idb;
+	IVNT event;
+	STATUS result;
+	ips_object *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handle */
+
+	idb = *handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_cancel_events;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (idb->idb_handle);
+	ips->ips_parameter = (ULONG) (*id);
+
+	/* send request and get response */
+
+	result = check_response(icc, user_status);
+
+	/* find and neutralize event */
+
+	for (event = idb->idb_events; event; event = event->ivnt_next)
+		if (event->ivnt_handle == *id)
+			break;
+	if (event)
+		event->ivnt_id = 0;
+
+	/* send response */
+
+	if (result)
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_CLOSE_BLOB(STATUS * user_status, IBL * blob_handle)
+{
+/**************************************
+ *
+ *      g d s _ c l o s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Abort a partially completed blob.
+ *
+ **************************************/
+	IDB idb;
+	IBL blob;
+	ips_object *ips;
+	ips_string *ips_seg;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, type_ibl, isc_bad_segstr_handle);
+	idb = blob->ibl_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_close_blob;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (blob->ibl_handle);
+
+	/* send any unsent portion of the blob */
+
+	if ((blob->ibl_flags & IBL_create) && blob->ibl_ptr != blob->ibl_buffer) {
+		IPS_C_IN(comm, ips_seg, IPS_CLOSE_BLOB_REM, blob->ibl_buffer,
+				 (blob->ibl_ptr - blob->ibl_buffer));
+	}
+
+	/* send request, release blob object and resources */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	release_blob(blob);
+	*blob_handle = NULL;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_COMMIT(STATUS * user_status, ITR * itr_handle)
+{
+/**************************************
+ *
+ *      g d s _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Commit a transaction.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	ips_object *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	transaction = *itr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	idb = (*itr_handle)->itr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_commit;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (transaction->itr_handle);
+
+	/* send request, release object and resources */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	clear_transaction_statements(transaction);
+	release_transaction(transaction);
+	*itr_handle = NULL;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_COMMIT_RETAINING(STATUS * user_status, ITR * itr_handle)
+{
+/**************************************
+ *
+ *      g d s _ c o m m i t _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Prepare a transaction for commit.  First phase of a two
+ *      phase commit.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	ips_object *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	transaction = *itr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	idb = (*itr_handle)->itr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_commit_retaining;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (transaction->itr_handle);
+
+	/* send request */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_COMPILE(STATUS * user_status,
+				   IDB * db_handle,
+				   IRQ * req_handle, USHORT GDS_VAL(blr_length), UCHAR * blr)
+{
+/**************************************
+ *
+ *      g d s _ c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	IDB idb;
+	IRQ request;
+	ips_compile_req *ips;
+	ips_string *ips_blr;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	NULL_CHECK(req_handle, isc_bad_req_handle);
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_compile;
+	ips = &comm->ips_operations.ips_op_compile;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	IPS_C_IN(comm, ips_blr, IPS_COMPILE_REQ, blr, blr_length);
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* allocate request block */
+
+	request = (IRQ) ALLOC(type_irq);
+	*req_handle = request;
+	NOT_NULL(request);
+	request->irq_handle = (HANDLE) ips->ips_rq_handle;
+	request->irq_idb = idb;
+	request->irq_next = idb->idb_requests;
+	idb->idb_requests = request;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_CREATE_BLOB(STATUS * user_status,
+					   IDB * db_handle,
+					   ITR * itr_handle, IBL * blob_handle, BID blob_id)
+{
+/**************************************
+ *
+ *      g d s _ c r e a t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create a brand new blob.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	IBL blob;
+	ips_blob *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	NULL_CHECK(blob_handle, isc_bad_segstr_handle);
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = *itr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_create_blob;
+	ips = &comm->ips_operations.ips_op_blob;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* allocate and fill blob object */
+
+	blob = (IBL) ALLOCV(type_ibl, BLOB_LENGTH);
+	*blob_handle = blob;
+	NOT_NULL(blob);
+	blob->ibl_handle = (HANDLE) ips->ips_bl_handle;
+	blob->ibl_buffer_length = BLOB_LENGTH;
+	blob->ibl_idb = idb;
+	blob->ibl_itr = transaction;
+	blob->ibl_ptr = blob->ibl_buffer;
+	blob->ibl_flags |= IBL_create;
+	blob->ibl_next = transaction->itr_blobs;
+	transaction->itr_blobs = blob;
+	blob_id->bid_relation_id = ips->ips_rel_id;
+	blob_id->bid_number = ips->ips_bid_number;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_CREATE_BLOB2(STATUS * user_status,
+						IDB * db_handle,
+						ITR * itr_handle,
+						IBL * blob_handle,
+						BID blob_id, USHORT GDS_VAL(bpb_length), UCHAR * bpb)
+{
+/**************************************
+ *
+ *      g d s _ c r e a t e _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create a brand new blob.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	IBL blob;
+	ips_blob *ips;
+	ips_string *ips_bpb;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	NULL_CHECK(blob_handle, isc_bad_segstr_handle);
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = *itr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_create_blob2;
+	ips = &comm->ips_operations.ips_op_blob;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	IPS_C_IN(comm, ips_bpb, IPS_BLOB_BPB, bpb, bpb_length);
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* allocate and fill blob object */
+
+	blob = (IBL) ALLOCV(type_ibl, BLOB_LENGTH);
+	*blob_handle = blob;
+	NOT_NULL(blob);
+	blob->ibl_handle = (HANDLE) ips->ips_bl_handle;
+	blob->ibl_buffer_length = BLOB_LENGTH;
+	blob->ibl_idb = idb;
+	blob->ibl_itr = transaction;
+	blob->ibl_ptr = blob->ibl_buffer;
+	blob->ibl_flags |= IBL_create;
+	blob->ibl_next = transaction->itr_blobs;
+	transaction->itr_blobs = blob;
+	blob_id->bid_relation_id = ips->ips_rel_id;
+	blob_id->bid_number = ips->ips_bid_number;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_CREATE_DATABASE(STATUS * user_status,
+						   USHORT GDS_VAL(file_length),
+						   SCHAR * file_name,
+						   IDB * handle,
+						   USHORT GDS_VAL(dpb_length),
+						   SCHAR * dpb,
+						   SSHORT GDS_VAL(db_type), SCHAR * expanded_filename)
+{
+/**************************************
+ *
+ *      g d s _ c r e a t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create a database.
+ *
+ **************************************/
+	IDB idb;
+	ICC icc;
+	USHORT l;
+	ips_object *ips;
+	ips_string *ips_name;
+	ips_string *ips_dpb;
+	ips_string *ips_expanded;
+	ips_comm_area *comm;
+	USHORT commi;
+
+
+	/* handle must be null coming in */
+
+	NULL_CHECK(handle, isc_bad_db_handle);
+	if (!(l = GDS_VAL(file_length)))
+		l = strlen(file_name);
+
+	/* remote names should not go through here */
+
+	if (ISC_check_if_remote(expanded_filename, TRUE)) {
+		user_status[0] = isc_arg_gds;
+		user_status[1] = isc_unavailable;
+		user_status[2] = isc_arg_end;
+		return user_status[1];
+	}
+
+	/* initiate a connection */
+
+	if (!init(user_status, &icc))
+		return user_status[1];
+
+	/* point to communications area */
+
+	GET_OBJECT(icc);
+	comm->ips_operation = op_create;
+	ips = &comm->ips_operations.ips_op_object;
+	IPS_C_IN(comm, ips_name, IPS_CREATE_NAME,
+			 expanded_filename, strlen(expanded_filename));
+	IPS_C_IN(comm, ips_dpb, IPS_CREATE_DPB, dpb, GDS_VAL(dpb_length));
+	IPS_C_IN(comm, ips_expanded, IPS_CREATE_EXPANDED,
+			 expanded_filename, strlen(expanded_filename));
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* allocate a database structure and link it to thread */
+
+	idb = (IDB) ALLOC(type_idb);
+	*handle = idb;
+	NOT_NULL(idb);
+	idb->idb_flags = IDBF_DATABASE_ATTACHMENT;
+	idb->idb_next = icc->icc_databases;
+	idb->idb_thread = icc;
+	icc->icc_databases = idb;
+	idb->idb_handle = (HANDLE) (ips->ips_handle);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DATABASE_INFO(STATUS * user_status,
+						 IDB * handle,
+						 USHORT GDS_VAL(item_length),
+						 UCHAR * items,
+						 USHORT GDS_VAL(buffer_length), UCHAR * buffer)
+{
+/**************************************
+ *
+ *      g d s _ d a t a b a s e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *      Provide information on database object.
+ *
+ **************************************/
+	IDB idb;
+	ips_object *ips;
+	ips_string *ips_items;
+	ips_string *ips_data;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handle */
+
+	idb = *handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_info_database;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (idb->idb_handle);
+	IPS_C_IN(comm, ips_items, IPS_INFO_ITEMS, items, item_length);
+	IPS_C_OUT(comm, ips_data, IPS_INFO_DATA, buffer, buffer_length);
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DDL(STATUS * user_status,
+			   IDB * db_handle,
+			   ITR * itr_handle, USHORT GDS_VAL(length), UCHAR * msg)
+{
+/**************************************
+ *
+ *      g d s _ d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *      Pump thru a DDL call.
+ *
+ **************************************/
+	ITR transaction;
+	IDB idb;
+	ips_ddl *ips;
+	ips_string *ips_ddl_string;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = *itr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_ddl;
+	ips = &comm->ips_operations.ips_op_ddl;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	IPS_C_IN(comm, ips_ddl_string, IPS_DDL_DDL, msg, length);
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DETACH(STATUS * user_status, IDB * handle)
+{
+/**************************************
+ *
+ *      g d s _ d e t a c h  
+ *
+ **************************************
+ *
+ * Functional description
+ *      Close down a database.
+ *
+ **************************************/
+	ICC icc;
+	IDB idb;
+	IRQ irq;
+	ips_object *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+
+
+	/* verify handle */
+
+	idb = *handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	icc = idb->idb_thread;
+	THD_mutex_lock(&mapsect);
+	if (icc->icc_flags & ICCF_SERVER_SHUTDOWN) {
+
+		/* if server was shut down, set up vector */
+
+		user_status[0] = isc_arg_gds;
+		user_status[1] = SUCCESS;
+		user_status[2] = isc_arg_end;
+	}
+	else {
+		comm = (ips_comm_area *) icc->icc_mapped_addr;
+		for (commi = 0; commi < MAX_IPS_STRINGS; commi++)
+			comm->ips_buffers[commi].ips_flags = 0;
+		comm->ips_operation = op_detach;
+		ips = &comm->ips_operations.ips_op_object;
+		ips->ips_handle = (UCHAR *) (idb->idb_handle);
+
+		/* send request and release object */
+
+		if (check_response(icc, user_status))
+			if (user_status[1] != isc_lost_db_connection)
+				RETURN_ERROR(user_status[1]);
+	}
+
+	/* release any event, request, sql request or transaction objects for this
+	   database, and then free the data structure (events are protected by
+	   a critical region to make sure there's no event trigger in progress) */
+
+	THD_mutex_lock(&clisect);
+	while (idb->idb_events)
+		release_event(idb->idb_events);
+	THD_mutex_unlock(&clisect);
+	while (irq = idb->idb_requests) {
+		if (irq->irq_user_handle)
+			*(irq->irq_user_handle) = NULL;
+		release_request(irq);
+	}
+	while (idb->idb_sql_requests)
+		release_sql_request(idb->idb_sql_requests);
+	while (idb->idb_transactions)
+		release_transaction(idb->idb_transactions);
+	release_database(idb);
+	*handle = NULL;
+	/* 
+	   icc is already freed as a part of idb and the
+	   necessary cleanup thro server_shutdown has occured.
+	 */
+	icc = NULL;
+	if (user_status[1])
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DROP_DATABASE(STATUS * user_status, IDB * handle)
+{
+/**************************************
+ *
+ *      i s c _ d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Close down and purge a database.
+ *
+ **************************************/
+	IDB idb;
+	IRQ irq;
+	STATUS code;
+	ips_object *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handle */
+
+	idb = *handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_drop_database;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (idb->idb_handle);
+
+	/* send request and release handle */
+
+	code = check_response(icc, user_status);
+	if (code && (code != isc_drdb_completed_with_errs))
+		RETURN_ERROR(user_status[1]);
+
+	/* release any event, request, sql request or transaction objects for this
+	   database, and then free the data structure (events are protected by
+	   a critical region to make sure there's no event trigger in progress) */
+
+	THD_mutex_lock(&clisect);
+	while (idb->idb_events)
+		release_event(idb->idb_events);
+	THD_mutex_unlock(&clisect);
+	while (irq = idb->idb_requests) {
+		if (irq->irq_user_handle)
+			*(irq->irq_user_handle) = NULL;
+		release_request(irq);
+	}
+	while (idb->idb_sql_requests)
+		release_sql_request(idb->idb_sql_requests);
+	while (idb->idb_transactions)
+		release_transaction(idb->idb_transactions);
+	release_database(idb);
+	*handle = NULL;
+	if (code)
+		RETURN_ERROR(code);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_ALLOCATE(STATUS * user_status,
+						 IDB * db_handle, IPSERVER_ISR * stmt_handle)
+{
+/**************************************
+ *
+ *      d s q l _ a l l o c a t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Allocate a statement handle.
+ *
+ **************************************/
+	IDB idb;
+	IPSERVER_ISR statement;
+	ips_dsql *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	NULL_CHECK(stmt_handle, isc_bad_req_handle);
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_allocate_stmt;
+	ips = &comm->ips_operations.ips_op_dsql;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* allocate and fill SQL request block */
+
+	statement = (IPSERVER_ISR) ALLOC(type_ipserver_isr);
+	*stmt_handle = statement;
+	NOT_NULL(statement);
+	statement->isr_handle = (HANDLE) ips->ips_st_handle;
+	statement->isr_idb = idb;
+	statement->isr_next = idb->idb_sql_requests;
+	statement->isr_batch_flag = 0;
+	statement->isr_rec_count = 0;
+	statement->isr_max_recs = 0;
+	statement->isr_eof_flag = FALSE;
+	statement->isr_packed = NULL;
+	idb->idb_sql_requests = statement;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_EXECUTE(STATUS * user_status,
+						ITR * itr_handle,
+						IPSERVER_ISR * stmt_handle,
+						USHORT blr_length,
+						UCHAR * blr,
+						USHORT msg_type, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *
+ *      d s q l _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Execute a dynamic SQL statement.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	IPSERVER_ISR statement;
+	HANDLE handle;
+	ips_dsql *ips;
+	ips_string *ips_blr;
+	ips_string *ips_msg;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	if (transaction = *itr_handle)
+		CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_req_handle);
+	idb = statement->isr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_execute;
+	ips = &comm->ips_operations.ips_op_dsql;
+	if (transaction)
+		ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	else
+		ips->ips_tr_handle = NULL;
+	ips->ips_st_handle = (UCHAR *) (statement->isr_handle);
+	ips->ips_msg_type = msg_type;
+	IPS_C_IN(comm, ips_blr, IPS_DSQL_EXEC_BLR, blr, blr_length);
+	IPS_C_IN(comm, ips_msg, IPS_DSQL_EXEC_MSG, msg, msg_length);
+
+	/* send request and wait for response */
+
+	(void) check_response(icc, user_status);
+
+	/* take care of transactions */
+
+	handle = (HANDLE) ips->ips_tr_handle;
+	if (transaction && !handle) {
+		release_transaction(transaction);
+		*itr_handle = NULL;
+	}
+	else if (!transaction && handle)
+		*itr_handle = make_transaction(user_status, idb, handle);
+	if (user_status[1])
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_EXECUTE2(STATUS * user_status,
+						 ITR * itr_handle,
+						 IPSERVER_ISR * stmt_handle,
+						 USHORT in_blr_length,
+						 UCHAR * in_blr,
+						 USHORT in_msg_type,
+						 USHORT in_msg_length,
+						 UCHAR * in_msg,
+						 USHORT out_blr_length,
+						 UCHAR * out_blr,
+						 USHORT out_msg_type,
+						 USHORT out_msg_length, UCHAR * out_msg)
+{
+/**************************************
+ *
+ *      d s q l _ e x e c u t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Execute a dynamic SQL statement.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	IPSERVER_ISR statement;
+	HANDLE handle;
+	ips_dsql *ips;
+	ips_string *ips_blr_in;
+	ips_string *ips_blr_out;
+	ips_string *ips_msg_in;
+	ips_string *ips_msg_out;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	if (transaction = *itr_handle)
+		CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_req_handle);
+	idb = statement->isr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_execute2;
+	ips = &comm->ips_operations.ips_op_dsql;
+	if (transaction)
+		ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	else
+		ips->ips_tr_handle = NULL;
+	ips->ips_st_handle = (UCHAR *) (statement->isr_handle);
+	ips->ips_msg_type = in_msg_type;
+	ips->ips_msg_out = out_msg_type;
+	IPS_C_IN(comm, ips_blr_in, IPS_DSQL_EXEC2_BLR_IN, in_blr, in_blr_length);
+	IPS_C_IN(comm, ips_blr_out, IPS_DSQL_EXEC2_BLR_OUT, out_blr,
+			 out_blr_length);
+	IPS_C_IN(comm, ips_msg_in, IPS_DSQL_EXEC2_MSG_IN, in_msg, in_msg_length);
+	IPS_C_OUT(comm, ips_msg_out, IPS_DSQL_EXEC2_MSG_OUT, out_msg,
+			  out_msg_length);
+
+	/* send request and wait for response */
+
+	(void) check_response(icc, user_status);
+
+	/* take care of transactions */
+
+	handle = (HANDLE) ips->ips_tr_handle;
+	if (transaction && !handle) {
+		release_transaction(transaction);
+		*itr_handle = NULL;
+	}
+	else if (!transaction && handle)
+		*itr_handle = make_transaction(user_status, idb, handle);
+	statement->isr_itr = *itr_handle;
+	if (user_status[1])
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_EXECUTE_IMMED(STATUS * user_status,
+							  IDB * db_handle,
+							  ITR * itr_handle,
+							  USHORT length,
+							  UCHAR * string,
+							  USHORT dialect,
+							  USHORT blr_length,
+							  UCHAR * blr,
+							  USHORT msg_type, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *
+ *      d s q l _ e x e c u t e _ i m m e d i a t e 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Prepare and execute a statement.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	HANDLE handle;
+	ips_dsql *ips;
+	ips_string *ips_blr;
+	ips_string *ips_msg;
+	ips_string *ips_sql;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	if (transaction = *itr_handle)
+		CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	if (!length)
+		length = strlen(reinterpret_cast < char *>(string));
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_exec_immediate;
+	ips = &comm->ips_operations.ips_op_dsql;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	if (transaction)
+		ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	else
+		ips->ips_tr_handle = NULL;
+	ips->ips_msg_type = msg_type;
+	ips->ips_parameter = dialect;
+	IPS_C_IN(comm, ips_blr, IPS_DSQL_EXEC_IMMED_BLR, blr, blr_length);
+	IPS_C_IN(comm, ips_msg, IPS_DSQL_EXEC_IMMED_MSG, msg, msg_length);
+	IPS_C_IN(comm, ips_sql, IPS_DSQL_EXEC_IMMED_SQL, string, length);
+
+	/* send request and get response */
+
+	(void) check_response(icc, user_status);
+
+	/* take care of transacion handles */
+
+	handle = (HANDLE) ips->ips_tr_handle;
+	if (transaction && !handle) {
+		release_transaction(transaction);
+		*itr_handle = NULL;
+	}
+	else if (!transaction && handle)
+		*itr_handle = make_transaction(user_status, idb, handle);
+	if (user_status[1])
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_EXECUTE_IMMED2(STATUS * user_status,
+							   IDB * db_handle,
+							   ITR * itr_handle,
+							   USHORT length,
+							   UCHAR * string,
+							   USHORT dialect,
+							   USHORT in_blr_length,
+							   UCHAR * in_blr,
+							   USHORT in_msg_type,
+							   USHORT in_msg_length,
+							   UCHAR * in_msg,
+							   USHORT out_blr_length,
+							   UCHAR * out_blr,
+							   USHORT out_msg_type,
+							   USHORT out_msg_length, UCHAR * out_msg)
+{
+/**************************************
+ *
+ *      d s q l _ e x e c u t e _ i m m e d i a t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Prepare and execute a statement.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	HANDLE handle;
+	ips_dsql *ips;
+	ips_string *ips_blr_in;
+	ips_string *ips_msg_in;
+	ips_string *ips_blr_out;
+	ips_string *ips_msg_out;
+	ips_string *ips_sql;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	if (transaction = *itr_handle)
+		CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	if (!length)
+		length = strlen(reinterpret_cast < char *>(string));
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_exec_immediate2;
+	ips = &comm->ips_operations.ips_op_dsql;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	if (transaction)
+		ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	else
+		ips->ips_tr_handle = NULL;
+	ips->ips_msg_type = in_msg_type;
+	ips->ips_msg_out = out_msg_type;
+	ips->ips_parameter = dialect;
+	IPS_C_IN(comm, ips_sql, IPS_DSQL_EXEC_IMMED2_SQL, string, length);
+	IPS_C_IN(comm, ips_blr_in, IPS_DSQL_EXEC_IMMED2_BLR_IN, in_blr,
+			 in_blr_length);
+	IPS_C_IN(comm, ips_msg_in, IPS_DSQL_EXEC_IMMED2_MSG_IN, in_msg,
+			 in_msg_length);
+	IPS_C_IN(comm, ips_blr_out, IPS_DSQL_EXEC_IMMED2_BLR_OUT, out_blr,
+			 out_blr_length);
+	IPS_C_OUT(comm, ips_msg_out, IPS_DSQL_EXEC_IMMED2_MSG_OUT, out_msg,
+			  out_msg_length);
+
+	/* send request and get answer */
+
+	(void) check_response(icc, user_status);
+
+	/* handle transactions */
+
+	handle = (HANDLE) ips->ips_tr_handle;
+	if (transaction && !handle) {
+		release_transaction(transaction);
+		*itr_handle = NULL;
+	}
+	else if (!transaction && handle)
+		*itr_handle = make_transaction(user_status, idb, handle);
+	if (user_status[1])
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_FETCH(STATUS * user_status,
+					  IPSERVER_ISR * stmt_handle,
+					  USHORT blr_length,
+					  UCHAR * blr,
+					  USHORT msg_type, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *                  
+ *      d s q l _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *      Fetch next record from a dynamic SQL cursor.
+ *
+ **************************************/
+	IDB idb;
+	IPSERVER_ISR statement;
+	USHORT packed_length;
+	UCHAR *packed_buffer;
+	USHORT i;
+	ips_dsql *ips;
+	ips_string *ips_blr;
+	ips_string *ips_msg;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_req_handle);
+	idb = statement->isr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	icc = idb->idb_thread;
+
+	/* check for connection lost */
+
+	if (icc->icc_flags & ICCF_SERVER_SHUTDOWN) {
+		user_status[0] = isc_arg_gds;
+		user_status[1] = isc_lost_db_connection;
+		user_status[2] = isc_arg_end;
+		return user_status[1];
+	}
+
+	/* calculate how many records to pack */
+
+	THD_mutex_lock(&mapsect);
+	if (!statement->isr_max_recs) {
+		statement->isr_max_recs =
+			(USHORT) (IPS_USEFUL_SPACE(pages_per_user) / msg_length);
+		if (!statement->isr_max_recs || !statement->isr_batch_flag)
+			statement->isr_max_recs = 1;
+		else {
+			statement->isr_packed =
+				(UCHAR *) ALLI_alloc(msg_length * statement->isr_max_recs);
+			NOT_NULL(statement->isr_packed);
+			statement->isr_rec_count = 0;
+			statement->isr_cursor = statement->isr_packed;
+		}
+	}
+
+	/* if there are any packed records, return the next one */
+
+	user_status[0] = isc_arg_gds;
+	user_status[1] = SUCCESS;
+	user_status[2] = isc_arg_end;
+	if (statement->isr_max_recs > 1) {
+		if (statement->isr_rec_count) {
+			memcpy(msg, statement->isr_cursor, msg_length);
+			statement->isr_rec_count--;
+			statement->isr_cursor += msg_length;
+			RETURN_SUCCESS;
+		}
+		else if (statement->isr_eof_flag) {
+			statement->isr_eof_flag = FALSE;
+			RETURN_ERROR(100);
+		}
+		else if (statement->isr_status[1]) {
+			for (i = 0; i < ISC_STATUS_LENGTH && statement->isr_status[i];
+				 i++) {
+				user_status[i] = statement->isr_status[i];
+				statement->isr_status[i] = 0;
+			}
+
+			RETURN_ERROR(user_status[1]);
+		}
+	}
+	THD_mutex_unlock(&mapsect);
+
+	/* either there's no packing, or there's no more packed records */
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_fetch;
+	ips = &comm->ips_operations.ips_op_dsql;
+	ips->ips_st_handle = (UCHAR *) (statement->isr_handle);
+	ips->ips_msg_type = msg_type;
+	packed_length = msg_length * statement->isr_max_recs;
+	if (statement->isr_max_recs == 1)
+		packed_buffer = msg;
+	else
+		packed_buffer = statement->isr_packed;
+	IPS_C_IN(comm, ips_blr, IPS_DSQL_FETCH_BLR, blr, blr_length);
+	IPS_C_OUT(comm, ips_msg, IPS_DSQL_FETCH_MSG, packed_buffer,
+			  packed_length);
+	ips->ips_rec_count = statement->isr_max_recs;
+
+	/* send request and get response */
+
+	(void) check_response(icc, user_status);
+
+	/* for packed records, extract the first */
+
+	statement->isr_rec_count = ips->ips_rec_count;
+	if (statement->isr_max_recs > 1 && statement->isr_rec_count) {
+
+		/* get first record and save status vector */
+
+		statement->isr_cursor = statement->isr_packed;
+		memcpy(msg, statement->isr_cursor, msg_length);
+		statement->isr_cursor += msg_length;
+		for (i = 0; i < ISC_STATUS_LENGTH; i++)
+			statement->isr_status[i] = user_status[i];
+		if (ips->ips_parameter == 100)
+			statement->isr_eof_flag = TRUE;
+		else
+			statement->isr_eof_flag = FALSE;
+		ips->ips_parameter = 0;
+
+		/* if there are more records, fake good return */
+
+		if (statement->isr_rec_count) {
+			user_status[0] = isc_arg_gds;
+			user_status[1] = SUCCESS;
+			user_status[2] = isc_arg_end;
+		}
+		statement->isr_rec_count--;
+	}
+	if (ips->ips_parameter == 100)
+		RETURN_ERROR(100);
+	if (user_status[1])
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_FREE(STATUS * user_status,
+					 IPSERVER_ISR * stmt_handle, USHORT option)
+{
+/**************************************
+ *
+ *      d s q l _ f r e e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release request for a Dynamic SQL statement
+ *
+ **************************************/
+	IDB idb;
+	IPSERVER_ISR statement;
+	ips_object *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_req_handle);
+	idb = statement->isr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_free_stmt;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (statement->isr_handle);
+	ips->ips_parameter = (ULONG) option;
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* free statement resources */
+
+	statement->isr_handle = (HANDLE) ips->ips_handle;
+	if (!statement->isr_handle) {
+		release_sql_request(statement);
+		*stmt_handle = NULL;
+	}
+	else {
+		statement->isr_itr = NULL;
+		clear_statement_cache(statement);
+	}
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_INSERT(STATUS * user_status,
+					   IPSERVER_ISR * stmt_handle,
+					   USHORT blr_length,
+					   UCHAR * blr,
+					   USHORT msg_type, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *                  
+ *      d s q l _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Insert next record into a dynamic SQL cursor.
+ *
+ **************************************/
+	IDB idb;
+	IPSERVER_ISR statement;
+	ips_dsql *ips;
+	ips_string *ips_blr;
+	ips_string *ips_msg;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_req_handle);
+	idb = statement->isr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_insert;
+	ips = &comm->ips_operations.ips_op_dsql;
+	ips->ips_st_handle = (UCHAR *) (statement->isr_handle);
+	ips->ips_msg_type = msg_type;
+	IPS_C_IN(comm, ips_blr, IPS_DSQL_INSERT_BLR, blr, blr_length);
+	IPS_C_IN(comm, ips_msg, IPS_DSQL_INSERT_MSG, msg, msg_length);
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_PREPARE(STATUS * user_status,
+						ITR * itr_handle,
+						IPSERVER_ISR * stmt_handle,
+						USHORT length,
+						UCHAR * string,
+						USHORT dialect,
+						USHORT item_length,
+						UCHAR * items, USHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *      d s q l _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Prepare a dynamic SQL statement for execution.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	IPSERVER_ISR statement;
+	ips_dsql *ips;
+	ips_string *ips_prep_string;
+	ips_string *ips_prep_items;
+	ips_string *ips_prep_buffer;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_req_handle);
+	idb = statement->isr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	if (transaction = *itr_handle)
+		CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	if (!length)
+		length = strlen(reinterpret_cast < char *>(string));
+	if (statement->isr_packed)
+		ALLI_free((UCHAR *) statement->isr_packed);
+	statement->isr_max_recs = 0;
+	statement->isr_eof_flag = FALSE;
+	statement->isr_packed = NULL;
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_prepare_stmt;
+	ips = &comm->ips_operations.ips_op_dsql;
+	if (transaction)
+		ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	else
+		ips->ips_tr_handle = NULL;
+	ips->ips_st_handle = (UCHAR *) (statement->isr_handle);
+	ips->ips_parameter = dialect;
+	IPS_C_IN(comm, ips_prep_string, IPS_DSQL_PREP_STRING, string, length);
+	IPS_C_IN(comm, ips_prep_items, IPS_DSQL_PREP_ITEMS, items, item_length);
+	IPS_C_OUT(comm, ips_prep_buffer, IPS_DSQL_PREP_BUFFER, buffer,
+			  buffer_length);
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	statement->isr_batch_flag = (USHORT) ips->ips_parameter;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_SET_CURSOR(STATUS * user_status,
+						   IPSERVER_ISR * stmt_handle,
+						   UCHAR * cursor, USHORT type)
+{
+/*****************************************
+ *
+ *      d s q l _ s e t _ c u r s o r
+ *
+ *****************************************
+ *
+ * Functional Description
+ *      Set a cursor name for a dynamic request.
+ *
+ *****************************************/
+	IDB idb;
+	IPSERVER_ISR statement;
+	USHORT cursor_length;
+	ips_dsql *ips;
+	ips_string *ips_name;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_req_handle);
+	idb = statement->isr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	cursor_length = name_length(reinterpret_cast < char *>(cursor)) + 1;
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_set_cursor;
+	ips = &comm->ips_operations.ips_op_dsql;
+	ips->ips_st_handle = (UCHAR *) (statement->isr_handle);
+	ips->ips_parameter = type;
+	IPS_C_IN(comm, ips_name, IPS_DSQL_SET_CURSOR, cursor, cursor_length);
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_SQL_INFO(STATUS * user_status,
+						 IPSERVER_ISR * stmt_handle,
+						 USHORT item_length,
+						 UCHAR * items, USHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *      d s q l _ s q l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *      Provide information on sql object.
+ *
+ **************************************/
+	IDB idb;
+	IPSERVER_ISR statement;
+	ips_object *ips;
+	ips_string *ips_items;
+	ips_string *ips_data;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_req_handle);
+	idb = statement->isr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_info_sql;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (statement->isr_handle);
+	IPS_C_IN(comm, ips_items, IPS_INFO_ITEMS, items, item_length);
+	IPS_C_OUT(comm, ips_data, IPS_INFO_DATA, buffer, buffer_length);
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_GET_SEGMENT(STATUS * user_status,
+					   IBL * blob_handle,
+					   USHORT * length,
+					   USHORT GDS_VAL(buffer_length), UCHAR * buffer)
+{
+/**************************************
+ *
+ *      g d s _ g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get a segment from an open blob.
+ *
+ **************************************/
+	IDB idb;
+	IBL blob;
+	ips_segment *ips;
+	ips_string *ips_seg;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, type_ibl, isc_bad_segstr_handle);
+	idb = blob->ibl_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_get_segment;
+	ips = &comm->ips_operations.ips_op_segment;
+	ips->ips_bl_handle = (UCHAR *) (blob->ibl_handle);
+	IPS_C_OUT(comm, ips_seg, IPS_BLOB_SEGMENT, buffer, buffer_length);
+
+	/* send request and get response */
+
+	*length = 0;
+	if (check_response(icc, user_status))
+		if (user_status[1] != isc_segment)
+			RETURN_ERROR(user_status[1]);
+	*length = ips->ips_length;
+	RETURN_ERROR(user_status[1]);
+}
+
+
+STATUS GDS_GET_SLICE(STATUS * user_status,
+					 IDB * db_handle,
+					 ITR * tra_handle,
+					 BID array_id,
+					 USHORT GDS_VAL(sdl_length),
+					 UCHAR * sdl,
+					 USHORT GDS_VAL(param_length),
+					 UCHAR * param,
+					 SLONG GDS_VAL(slice_length),
+					 UCHAR * slice, SLONG * return_length)
+{
+/**************************************
+ *
+ *      g d s _ g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Snatch a slice of an array.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	ULONG length;
+	ips_slice *ips;
+	ips_string *ips_sdl;
+	ips_string *ips_parms;
+	ips_string *ips_data;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_get_slice;
+	ips = &comm->ips_operations.ips_op_slice;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	ips->ips_rel_id = array_id->bid_relation_id;
+	ips->ips_number = array_id->bid_number;
+	IPS_C_IN(comm, ips_sdl, IPS_SLICE_SDL, sdl, sdl_length);
+	IPS_C_IN(comm, ips_parms, IPS_SLICE_PARAM, param, param_length);
+	IPS_C_OUT(comm, ips_data, IPS_SLICE_BUFFER, slice, slice_length);
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* return data */
+
+	length = ips->ips_length;
+	if (return_length)
+		*return_length = length;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_OPEN_BLOB(STATUS * user_status,
+					 IDB * db_handle,
+					 ITR * itr_handle, IBL * blob_handle, BID blob_id)
+{
+/**************************************
+ *
+ *      g d s _ o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Open an existing blob.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	IBL blob;
+	ips_blob *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	NULL_CHECK(blob_handle, isc_bad_segstr_handle);
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = *itr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_open_blob;
+	ips = &comm->ips_operations.ips_op_blob;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	ips->ips_rel_id = blob_id->bid_relation_id;
+	ips->ips_bid_number = blob_id->bid_number;
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* create and fill a blob structure with results */
+
+	blob = (IBL) ALLOCV(type_ibl, BLOB_LENGTH);
+	*blob_handle = blob;
+	NOT_NULL(blob);
+	blob->ibl_handle = (HANDLE) ips->ips_bl_handle;
+	blob->ibl_buffer_length = BLOB_LENGTH;
+	blob->ibl_idb = idb;
+	blob->ibl_itr = transaction;
+	blob->ibl_ptr = blob->ibl_buffer;
+	blob->ibl_next = transaction->itr_blobs;
+	transaction->itr_blobs = blob;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_OPEN_BLOB2(STATUS * user_status,
+					  IDB * db_handle,
+					  ITR * itr_handle,
+					  IBL * blob_handle,
+					  BID blob_id, USHORT GDS_VAL(bpb_length), UCHAR * bpb)
+{
+/**************************************
+ *
+ *      g d s _ o p e n _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Open an existing blob.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	IBL blob;
+	ips_blob *ips;
+	ips_string *ips_bpb;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	NULL_CHECK(blob_handle, isc_bad_segstr_handle);
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = *itr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_open_blob2;
+	ips = &comm->ips_operations.ips_op_blob;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	ips->ips_rel_id = blob_id->bid_relation_id;
+	ips->ips_bid_number = blob_id->bid_number;
+	IPS_C_IN(comm, ips_bpb, IPS_BLOB_BPB, bpb, bpb_length);
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* create and fill blob structure */
+
+	blob = (IBL) ALLOCV(type_ibl, BLOB_LENGTH);
+	*blob_handle = blob;
+	NOT_NULL(blob);
+	blob->ibl_handle = (HANDLE) ips->ips_bl_handle;
+	blob->ibl_buffer_length = BLOB_LENGTH;
+	blob->ibl_idb = idb;
+	blob->ibl_itr = transaction;
+	blob->ibl_ptr = blob->ibl_buffer;
+	blob->ibl_next = transaction->itr_blobs;
+	transaction->itr_blobs = blob;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_PREPARE(STATUS * user_status,
+				   ITR * itr_handle,
+				   USHORT GDS_VAL(buffer_length), UCHAR * buffer)
+{
+/**************************************
+ *
+ *      g d s _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Prepare a transaction for commit.  First phase of a two
+ *      phase commit.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	ips_object *ips;
+	ips_string *ips_prep_str;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	transaction = *itr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	idb = (*itr_handle)->itr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_prepare2;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (transaction->itr_handle);
+	IPS_C_IN(comm, ips_prep_str, IPS_PREPARE_TRANS, buffer, buffer_length);
+
+	/* send request and wait for and return response */
+
+	RETURN_ERROR(check_response(icc, user_status));
+}
+
+
+STATUS GDS_PUT_SEGMENT(STATUS * user_status,
+					   IBL * blob_handle,
+					   USHORT GDS_VAL(buffer_length), UCHAR * buffer)
+{
+/**************************************
+ *
+ *      g d s _ p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Send a segment of data to an open blob.
+ *
+ **************************************/
+	IDB idb;
+	IBL blob;
+	ips_segment *ips;
+	ips_string *ips_seg;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/*  verify handles */
+
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, type_ibl, isc_bad_segstr_handle);
+	idb = blob->ibl_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_put_segment;
+	ips = &comm->ips_operations.ips_op_segment;
+	ips->ips_bl_handle = (UCHAR *) (blob->ibl_handle);
+	IPS_C_IN(comm, ips_seg, IPS_BLOB_SEGMENT, buffer, buffer_length);
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_PUT_SLICE(STATUS * user_status,
+					 IDB * db_handle,
+					 ITR * tra_handle,
+					 BID array_id,
+					 USHORT GDS_VAL(sdl_length),
+					 UCHAR * sdl,
+					 USHORT GDS_VAL(param_length),
+					 UCHAR * param,
+					 SLONG GDS_VAL(slice_length), UCHAR * slice)
+{
+/**************************************
+ *
+ *      g d s _ p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Insert a slice of an array.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	ips_slice *ips;
+	ips_string *ips_sdl;
+	ips_string *ips_parms;
+	ips_string *ips_data;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_put_slice;
+	ips = &comm->ips_operations.ips_op_slice;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	ips->ips_rel_id = array_id->bid_relation_id;
+	ips->ips_number = array_id->bid_number;
+	IPS_C_IN(comm, ips_sdl, IPS_SLICE_SDL, sdl, sdl_length);
+	IPS_C_IN(comm, ips_parms, IPS_SLICE_PARAM, param, param_length);
+	IPS_C_IN(comm, ips_data, IPS_SLICE_BUFFER, slice, slice_length);
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* return resulting ids */
+
+	array_id->bid_relation_id = ips->ips_rel_id;
+	array_id->bid_number = ips->ips_number;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_QUE_EVENTS(STATUS * user_status,
+					  IDB * handle,
+					  SLONG * id,
+					  USHORT GDS_VAL(length),
+					  UCHAR * events, void (GDS_VAL(*ast)) (), void *arg)
+{
+/**************************************
+ *
+ *      g d s _ q u e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Que request for event notification.
+ *
+ **************************************/
+	IDB idb;
+	USHORT evsem;
+	TEXT name_buffer[128];
+	IVNT event;
+	ips_que_events *ips;
+	ips_string *ips_event;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	idb = *handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_que_events;
+	ips = &comm->ips_operations.ips_op_que_evnt;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	ips->ips_ast = (UCHAR *) ast;
+	ips->ips_arg = (UCHAR *) arg;
+	IPS_C_IN(comm, ips_event, IPS_QUEUE_EVENT, events, length);
+
+	/* allocate an event block */
+
+	THD_mutex_lock(&clisect);
+	if (!event_semaphore) {
+
+		/* start the event threads, if necessary, by creating the
+		   event semaphore, starting the event packer, waiting until
+		   it's done on the event semaphore, and then starting the
+		   event thread itself */
+
+		/* create an event semaphore, but make sure it's a new one */
+
+		for (evsem = 0; evsem < 1000; evsem++) {
+			sprintf(name_buffer, IPI_EVENT_THREAD, evsem);
+			event_semaphore =
+				CreateSemaphore(ISC_get_security_desc(), 0L, 10000L,
+								name_buffer);
+			if (event_semaphore && GetLastError() != ERROR_ALREADY_EXISTS)
+				break;
+			event_semaphore = 0;
+		}
+		if (event_semaphore) {
+			gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+							  (event_packer), idb->idb_thread, THREAD_high, 0,
+							  &event_packer_handle);
+			if (!event_packer_handle)
+				gds__log("unable to start event packer thread %ld",
+						 (long) GetLastError());
+			else {
+				WaitForSingleObject(event_semaphore, INFINITE);
+				gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+								  (event_thread), NULL, THREAD_high, 0,
+								  &event_thread_handle);
+				if (!event_thread_handle)
+					gds__log("unable to start event processing thread %ld",
+							 (long) GetLastError());
+			}
+		}
+		else
+			gds__log("Unable to create event semaphore");
+	}
+	for (event = idb->idb_events; event; event = event->ivnt_next)
+		if (!event->ivnt_id)
+			break;
+	if (!event) {
+		event = (IVNT) ALLOC(type_ivnt);
+		if (!event) {
+			THD_mutex_unlock(&clisect);
+			NOT_NULL(event);
+		}
+		event->ivnt_handle = 0;
+		event->ivnt_idb = idb;
+		event->ivnt_next = idb->idb_events;
+		idb->idb_events = event;
+	}
+	eventID++;
+	event->ivnt_id = eventID;
+	event->ivnt_ast = ast;
+	event->ivnt_arg = arg;
+	THD_mutex_unlock(&clisect);
+
+	/* send request and get response */
+
+	ips->ips_event_hwnd = event_window;
+	ips->ips_event_id = eventID;
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	*id = ips->ips_event_id;
+	event->ivnt_handle = ips->ips_event_id;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_RECEIVE(STATUS * user_status,
+				   IRQ * req_handle,
+				   SSHORT GDS_VAL(msg_type),
+				   USHORT GDS_VAL(msg_length),
+				   UCHAR * msg, SSHORT GDS_VAL(level)
+#ifdef SCROLLABLE_CURSORS
+				   , USHORT direction, ULONG offset
+#endif
+	)
+{
+/**************************************
+ *
+ *      g d s _ r e c e i v e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get a record from the host program.
+ *
+ **************************************/
+	IRQ request;
+	IDB idb;
+	ips_request *ips;
+	ips_string *ips_message;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+	idb = request->irq_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_receive;
+	ips = &comm->ips_operations.ips_op_request;
+	ips->ips_rq_handle = (UCHAR *) (request->irq_handle);
+	ips->ips_msg_type = msg_type;
+	ips->ips_req_level = level;
+#ifdef SCROLLABLE_CURSORS
+	ips->ips_direction = direction;
+	ips->ips_offset = offset;
+#endif
+	IPS_C_OUT(comm, ips_message, IPS_RECEIVE_MESSAGE, msg, msg_length);
+
+	/* send request and get answer */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_RECONNECT(STATUS * user_status,
+					 IDB * db_handle,
+					 ITR * itr_handle, USHORT GDS_VAL(length), UCHAR * id)
+{
+/**************************************
+ *
+ *      g d s _ r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Connect to a transaction in limbo.
+ *
+ **************************************/
+	IDB idb;
+	STATUS l;
+	ips_reconnect *ips;
+	ips_string *ips_id;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	NULL_CHECK(itr_handle, isc_bad_trans_handle);
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	l = GDS_VAL(length);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_reconnect;
+	ips = &comm->ips_operations.ips_op_recon_trans;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	IPS_C_IN(comm, ips_id, IPS_RECONNECT_ID, id, l);
+
+	/* send message and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	*itr_handle =
+		make_transaction(user_status, idb, (HANDLE) ips->ips_tr_handle);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_RELEASE_REQUEST(STATUS * user_status, IRQ * req_handle)
+{
+/**************************************
+ *
+ *      g d s _ r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release a request.
+ *
+ **************************************/
+	IDB idb;
+	IRQ request;
+	ips_object *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+	idb = request->irq_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_release;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (request->irq_handle);
+
+	/* make request and free handle */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* release request resources */
+
+	release_request(request);
+	*req_handle = NULL;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_REQUEST_INFO(STATUS * user_status,
+						IRQ * request,
+						USHORT GDS_VAL(level),
+						USHORT GDS_VAL(item_length),
+						UCHAR * items,
+						USHORT GDS_VAL(buffer_length), UCHAR * buffer)
+{
+/**************************************
+ *
+ *      g d s _ r e q u e s t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *      Provide information on request object.
+ *
+ **************************************/
+	IDB idb;
+	ips_object *ips;
+	ips_string *ips_items;
+	ips_string *ips_data;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	CHECK_HANDLE((*request), type_irq, isc_bad_req_handle);
+	idb = (*request)->irq_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_info_request;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) ((*request)->irq_handle);
+	ips->ips_parameter = level;
+	IPS_C_IN(comm, ips_items, IPS_INFO_ITEMS, items, item_length);
+	IPS_C_OUT(comm, ips_data, IPS_INFO_DATA, buffer, buffer_length);
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_ROLLBACK_RETAINING(STATUS * user_status, ITR * itr_handle)
+{
+/**************************************
+ *
+ *      i s c _ r o l l b a c k _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *    Abort the transaction but keep the environment valid
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	ips_object *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	transaction = *itr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	idb = (*itr_handle)->itr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_rollback_retaining;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (transaction->itr_handle);
+
+	/* send request */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_ROLLBACK(STATUS * user_status, ITR * itr_handle)
+{
+/**************************************
+ *
+ *      g d s _ r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Abort a transaction.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	ips_object *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	transaction = *itr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	idb = (*itr_handle)->itr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_rollback;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (transaction->itr_handle);
+
+	/* send request and free handle */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* release transaction resources */
+
+	clear_transaction_statements(transaction);
+	release_transaction(transaction);
+	*itr_handle = NULL;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_SEEK_BLOB(STATUS * user_status,
+					 IBL * blob_handle,
+					 SSHORT GDS_VAL(mode),
+					 SLONG GDS_VAL(offset), SLONG * result)
+{
+/**************************************
+ *
+ *      g d s _ s e e k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Try to seek a blob.
+ *
+ **************************************/
+	IDB idb;
+	IBL blob;
+	ips_seek_blob *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, type_ibl, isc_bad_segstr_handle);
+	idb = blob->ibl_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_seek_blob;
+	ips = &comm->ips_operations.ips_op_sk_blob;
+	ips->ips_bl_handle = (UCHAR *) (blob->ibl_handle);
+	ips->ips_offset = offset;
+	ips->ips_mode = mode;
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	*result = ips->ips_result;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_SEND(STATUS * user_status,
+				IRQ * req_handle,
+				SSHORT GDS_VAL(msg_type),
+				USHORT GDS_VAL(msg_length),
+				UCHAR * msg, SSHORT GDS_VAL(level))
+{
+/**************************************
+ *
+ *      g d s _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get a record from the host program.
+ *
+ **************************************/
+	IRQ request;
+	IDB idb;
+	ips_request *ips;
+	ips_string *ips_message;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+	idb = request->irq_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_send;
+	ips = &comm->ips_operations.ips_op_request;
+	ips->ips_rq_handle = (UCHAR *) (request->irq_handle);
+	ips->ips_msg_type = msg_type;
+	ips->ips_req_level = level;
+	IPS_C_IN(comm, ips_message, IPS_SEND_MESSAGE, msg, msg_length);
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+STATUS GDS_SERVICE_ATTACH(STATUS * user_status,
+						  USHORT service_length,
+						  TEXT * service_name,
+						  IDB * handle, USHORT spb_length, SCHAR * spb)
+{
+/**************************************
+ *
+ *      g d s _ s e r v i c e _ a t t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *      Connect to an Interbase service via the
+ *      interprocess interface to a local server.
+ *
+ **************************************/
+	IDB idb;
+	ICC icc;
+	SSHORT l;
+	ips_object *ips;
+	ips_string *ips_name;
+	ips_string *ips_spb;
+	ips_comm_area *comm;
+	USHORT commi;
+
+
+	/* handle should be null coming in */
+
+	NULL_CHECK(handle, isc_bad_svc_handle);
+	if (!(l = GDS_VAL(service_length)))
+		l = strlen(service_name);
+
+	/* initiate connection */
+
+	if (!init(user_status, &icc))
+		return user_status[1];
+
+	/* set up communications area */
+
+	THD_mutex_lock(&mapsect);
+	comm = (ips_comm_area *) icc->icc_mapped_addr;
+	for (commi = 0; commi < MAX_IPS_STRINGS; commi++)
+		comm->ips_buffers[commi].ips_flags = 0;
+	comm->ips_operation = op_service_attach;
+	ips = &comm->ips_operations.ips_op_object;
+	IPS_C_IN(comm, ips_name, IPS_ATTACH_SVC_NAME, service_name, l);
+	IPS_C_IN(comm, ips_spb, IPS_ATTACH_SVC_SPB, spb, spb_length);
+
+	/* send request and wait for response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+
+	/* allocate a database structure and link it to thread */
+
+	idb = (IDB) ALLOC(type_idb);
+	*handle = idb;
+	NOT_NULL(idb);
+	idb->idb_flags = IDBF_SERVICE_ATTACHMENT;
+	idb->idb_next = icc->icc_databases;
+	idb->idb_thread = icc;
+	icc->icc_databases = idb;
+	idb->idb_handle = (HANDLE) (ips->ips_handle);
+	RETURN_SUCCESS;
+}
+
+STATUS GDS_SERVICE_DETACH(STATUS * user_status, IDB * handle)
+{
+/**************************************
+ *
+ *      g d s _ s e r v i c e _ d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *      Close down a service.
+ *
+ **************************************/
+	ICC icc;
+	IDB idb;
+	ips_object *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+
+
+	/* verify handle */
+
+	idb = *handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_svc_handle);
+
+	/* point to communications area */
+
+	icc = idb->idb_thread;
+	THD_mutex_lock(&mapsect);
+	if (icc->icc_flags & ICCF_SERVER_SHUTDOWN) {
+
+		/* if server was shut down, set up vector */
+
+		user_status[0] = isc_arg_gds;
+		user_status[1] = SUCCESS;
+		user_status[2] = isc_arg_end;
+	}
+	else {
+		comm = (ips_comm_area *) icc->icc_mapped_addr;
+		for (commi = 0; commi < MAX_IPS_STRINGS; commi++)
+			comm->ips_buffers[commi].ips_flags = 0;
+		comm->ips_operation = op_service_detach;
+		ips = &comm->ips_operations.ips_op_object;
+		ips->ips_handle = (UCHAR *) (idb->idb_handle);
+
+		/* send request and release handle */
+
+		if (check_response(icc, user_status))
+			if (user_status[1] != isc_lost_db_connection)
+				return user_status[1];
+	}
+
+	/* free up resources */
+
+	release_database(idb);
+	*handle = NULL;
+	if (user_status[1])
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+STATUS GDS_SERVICE_QUERY(STATUS * user_status,
+						 IDB * service,
+						 ULONG * reserved,
+						 USHORT send_item_length,
+						 SCHAR * send_items,
+						 USHORT recv_item_length,
+						 SCHAR * recv_items,
+						 USHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *      g d s _ s e r v i c e _ q u e r y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Provide information on service object.
+ *
+ **************************************/
+	IDB idb;
+	ips_object *ips;
+	ips_string *ips_snd_items;
+	ips_string *ips_rcv_items;
+	ips_string *ips_data;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handle */
+
+	idb = *service;
+	CHECK_HANDLE(idb, type_idb, isc_bad_svc_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_service_info;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (idb->idb_handle);
+	IPS_C_IN(comm, ips_snd_items, IPS_INFO_ITEMS, send_items,
+			 send_item_length);
+	IPS_C_IN(comm, ips_rcv_items, IPS_QUERY_RECV_ITEMS, recv_items,
+			 recv_item_length);
+	IPS_C_OUT(comm, ips_data, IPS_INFO_DATA, buffer, buffer_length);
+
+	/* send request and get answer */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+STATUS GDS_SERVICE_START(STATUS * user_status,
+						 IDB * service,
+						 ULONG * reserved, USHORT spb_length, SCHAR * spb)
+{
+ /**************************************
+ *
+ *      g d s _ s e r v i c e _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Start an InterBase service
+ *
+ **************************************/
+	IDB idb;
+	ips_object *ips;
+	ips_string *ips_spb;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handle */
+	idb = *service;
+	CHECK_HANDLE(idb, type_idb, isc_bad_svc_handle);
+
+	/* point to communications area */
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_service_start;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (idb->idb_handle);
+	IPS_C_IN(comm, ips_spb, IPS_START_SVC_SPB, spb, spb_length);
+
+	/* send request and get answer */
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_START(STATUS * user_status,
+				 register IRQ * req_handle,
+				 register ITR * itr_handle, SSHORT GDS_VAL(level))
+{
+/**************************************
+ *
+ *      g d s _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get a record from the host program.
+ *
+ **************************************/
+	IRQ request;
+	ITR transaction;
+	IDB idb;
+	ips_request *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+	transaction = *itr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	idb = request->irq_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_start;
+	ips = &comm->ips_operations.ips_op_request;
+	ips->ips_rq_handle = (UCHAR *) (request->irq_handle);
+	ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	ips->ips_req_level = level;
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_START_AND_SEND(STATUS * user_status,
+						  IRQ * req_handle,
+						  ITR * itr_handle,
+						  SSHORT GDS_VAL(msg_type),
+						  USHORT GDS_VAL(msg_length),
+						  UCHAR * msg, SSHORT GDS_VAL(level))
+{
+/**************************************
+ *
+ *      g d s _ s t a r t _ a n d _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get a record from the host program.
+ *
+ **************************************/
+	IRQ request;
+	ITR transaction;
+	IDB idb;
+	ips_request *ips;
+	ips_string *ips_message;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+	transaction = *itr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	idb = request->irq_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_start_and_send;
+	ips = &comm->ips_operations.ips_op_request;
+	ips->ips_rq_handle = (UCHAR *) (request->irq_handle);
+	ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	ips->ips_msg_type = msg_type;
+	ips->ips_req_level = level;
+	IPS_C_IN(comm, ips_message, IPS_SEND_MESSAGE, msg, msg_length);
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_START_MULTIPLE(STATUS * user_status,
+						  ITR * itr_handle,
+						  SSHORT GDS_VAL(count), int **vector)
+{
+/**************************************
+ *
+ *      g d s _ s t a r t _ m u l t i p l e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Start a transaction.
+ *
+ **************************************/
+	int **args;
+	IDB idb;
+	USHORT i, j;
+	TEXT *p;
+	ULONG l, *lp;
+	ips_start_trans *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handle */
+
+	NULL_CHECK(itr_handle, isc_bad_trans_handle);
+
+	/* point to communications area */
+
+	args = vector;
+	idb = (IDB) * (*args++);
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	GET_OBJECT(idb->idb_thread);
+	comm_ptr = (TEXT *) comm->ips_data;
+	comm->ips_operation = op_transaction;
+	ips = &comm->ips_operations.ips_op_strt_trans;
+	ips->ips_db_count = count;
+
+	/* fill in handles, verifying along the way (note that this is the
+	   ONLY case where normal buffering is not done, so we'd better
+	   never have enough databases to exceed 8k worth of space */
+
+	for (i = 0; i < GDS_VAL(count); i++) {
+
+		/* first idb pointer already acquired above */
+
+		if (i) {
+			idb = (IDB) * (*args++);
+			CHECK_HANDLE_REL(idb, type_idb, isc_bad_db_handle);
+		}
+		lp = (ULONG *) comm_ptr;
+		*lp++ = (ULONG) (idb->idb_handle);
+		l = (ULONG) * args++;
+		*lp++ = l;
+		comm_ptr = (TEXT *) lp;
+		p = (TEXT *) * args++;
+		for (j = 0; j < l; j++)
+			*comm_ptr++ = *p++;
+
+		/* align on ULONG */
+
+		l = l % sizeof(ULONG);
+		if (l)
+			comm_ptr += sizeof(ULONG) - l;
+	}
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	*itr_handle =
+		make_transaction(user_status, idb, (HANDLE) ips->ips_tr_handle);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_START_TRANSACTION(STATUS * user_status,
+							 ITR * itr_handle, SSHORT GDS_VAL(count), ...)
+{
+/**************************************
+ *
+ *      g d s _ s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Start a transaction.
+ *
+ **************************************/
+	va_list args;
+	IDB idb;
+	USHORT i, j;
+	UCHAR *p;
+	ULONG l, *lp;
+	ips_start_trans *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handle */
+
+	NULL_CHECK(itr_handle, isc_bad_trans_handle);
+
+	/* point to communications area */
+
+	VA_START(args, count);
+	idb = *(va_arg(args, IDB *));
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	GET_OBJECT(idb->idb_thread);
+	comm_ptr = (TEXT *) comm->ips_data;
+	comm->ips_operation = op_transaction;
+	ips = &comm->ips_operations.ips_op_strt_trans;
+	ips->ips_db_count = count;
+
+	/* fill in handles, verifying along the way (note that this is the
+	   ONLY case where normal buffering is not done, so we'd better
+	   never have enough databases to exceed 8k worth of space */
+
+	for (i = 0; i < GDS_VAL(count); i++) {
+
+		/* the first pointer has already been gotten above */
+
+		if (i) {
+			idb = *(va_arg(args, IDB *));
+			CHECK_HANDLE_REL(idb, type_idb, isc_bad_db_handle);
+		}
+		lp = (ULONG *) comm_ptr;
+		*lp++ = (ULONG) (idb->idb_handle);
+		l = (ULONG) va_arg(args, int);
+		*lp++ = l;
+		comm_ptr = (TEXT *) lp;
+		p = va_arg(args, UCHAR *);
+		for (j = 0; j < l; j++)
+			*comm_ptr++ = *p++;
+
+		/* align on ULONG */
+
+		l = l % sizeof(ULONG);
+		if (l)
+			comm_ptr += sizeof(ULONG) - l;
+	}
+
+	/* send message and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	*itr_handle =
+		make_transaction(user_status, idb, (HANDLE) ips->ips_tr_handle);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_TRANSACTION_INFO(STATUS * user_status,
+							ITR * transaction,
+							USHORT GDS_VAL(item_length),
+							UCHAR * items,
+							USHORT GDS_VAL(buffer_length), UCHAR * buffer)
+{
+/**************************************
+ *
+ *      g d s _ t r a n s a c t i o n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *      Provide information on transaction object.
+ *
+ **************************************/
+	IDB idb;
+	ips_object *ips;
+	ips_string *ips_items;
+	ips_string *ips_data;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	CHECK_HANDLE((*transaction), type_itr, isc_bad_trans_handle);
+	idb = (*transaction)->itr_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_info_transaction;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) ((*transaction)->itr_handle);
+	IPS_C_IN(comm, ips_items, IPS_INFO_ITEMS, items, item_length);
+	IPS_C_OUT(comm, ips_data, IPS_INFO_DATA, buffer, buffer_length);
+
+	/* send request and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_TRANSACT_REQUEST(STATUS * user_status,
+							IDB * db_handle,
+							ITR * tra_handle,
+							USHORT blr_length,
+							UCHAR * blr,
+							USHORT in_msg_length,
+							UCHAR * in_msg,
+							USHORT out_msg_length, UCHAR * out_msg)
+{
+/**************************************
+ *
+ *      i s c _ t r a n s a c t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	ips_transact_request *ips;
+	ips_string *ips_blr;
+	ips_string *ips_in_msg;
+	ips_string *ips_out_msg;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	idb = *db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_transact_request;
+	ips = &comm->ips_operations.ips_op_trans_req;
+	ips->ips_db_handle = (UCHAR *) (idb->idb_handle);
+	ips->ips_tr_handle = (UCHAR *) (transaction->itr_handle);
+	IPS_C_IN(comm, ips_blr, IPS_TRANS_REQ_BLR, blr, blr_length);
+	IPS_C_IN(comm, ips_in_msg, IPS_TRANS_REQ_IN_MSG, in_msg, in_msg_length);
+	IPS_C_OUT(comm, ips_out_msg, IPS_TRANS_REQ_OUT_MSG, out_msg,
+			  out_msg_length);
+
+	/* send message and get response */
+
+	if (check_response(icc, user_status))
+		RETURN_ERROR(user_status[1]);
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_UNWIND(STATUS * user_status,
+				  IRQ * req_handle, SSHORT GDS_VAL(level))
+{
+/**************************************
+ *
+ *      g d s _ u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Unwind a running request.
+ *
+ **************************************/
+	IDB idb;
+	IRQ request;
+	ips_object *ips;
+	ips_comm_area *comm;
+	USHORT commi;
+	ICC icc;
+
+
+	/* verify handles */
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+	idb = request->irq_idb;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* point to communications area */
+
+	GET_OBJECT(idb->idb_thread);
+	comm->ips_operation = op_unwind;
+	ips = &comm->ips_operations.ips_op_object;
+	ips->ips_handle = (UCHAR *) (request->irq_handle);
+	ips->ips_parameter = (ULONG) level;
+
+	/* send request and return response */
+
+	RETURN_ERROR(check_response(icc, user_status));
+}
+
+
+static STATUS check_response( ICC icc, STATUS * user_status)
+{
+/**************************************
+ *
+ *      c h e c k _ r e s p o n s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Check response to a remote call.
+ *
+ *      Pack any and all input buffers and send the
+ *      request to the server.   This gets done as
+ *      often as needed to get all the client's
+ *      input buffers across.
+ *
+ *      After all the client buffers get across, this
+ *      function waits for the server to complete the
+ *      operation.   This entails getting any and all
+ *      client output buffers from the server.   Again,
+ *      the unpacking gets done as often as necessary.
+ *
+ *      Data movement is done in order of buffer usage
+ *      for any of the buffers that need copying.   As
+ *      much as possible is crammed into the remaining
+ *      buffer space in the comminucations area for each
+ *      copy stage.
+ *
+ **************************************/
+#ifdef	IP_TRACE
+	ips_comm_area *comm;
+
+
+	comm = (ips_comm_area *) icc->icc_mapped_addr;
+	gds__log("ipclient sends %d at %8lX %8lX", comm->ips_operation, icc,
+			 comm);
+#endif
+
+	if (!(icc->icc_flags & ICCF_SERVER_SHUTDOWN)) {
+		if (pack_strings(icc)) {
+			if (send_and_wait(icc)) {
+				extract_status(icc, user_status);
+				if (unpack_strings(icc))
+					return user_status[1];
+			}
+		}
+	}
+
+	/* communications failure - database is now unavailable */
+
+	icc->icc_flags |= ICCF_SERVER_SHUTDOWN;
+#ifdef	IP_TRACE
+	gds__log("ipclient comm failure %lX", (long) icc);
+#endif
+	user_status[0] = isc_arg_gds;
+	user_status[1] = isc_lost_db_connection;
+	user_status[2] = isc_arg_end;
+	return user_status[1];
+}
+
+
+static void clear_statement_cache( IPSERVER_ISR statement)
+{
+/**************************************
+ *
+ *      c l e a r _ s t a t e m e n t _ c a c h e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Clean out any unfetched cached records for a statement.
+ *
+ **************************************/
+	USHORT i;
+
+
+	if (statement->isr_packed)
+		ALLI_free((UCHAR *) statement->isr_packed);
+	statement->isr_rec_count = 0;
+	statement->isr_max_recs = 0;
+	statement->isr_eof_flag = FALSE;
+	statement->isr_packed = NULL;
+	for (i = 0; i < ISC_STATUS_LENGTH; i++)
+		statement->isr_status[i] = 0;
+}
+
+
+static void clear_transaction_statements( ITR transaction)
+{
+/**************************************
+ *
+ *      c l e a r _ t r a n s a c t i o n _ s t a t e m e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Clean out cached records for any statements
+ *      for this transaction.
+ *
+ **************************************/
+	IPSERVER_ISR statement;
+	IDB database;
+
+
+	database = transaction->itr_idb;
+	for (statement = database->idb_sql_requests; statement;
+		 statement =
+		 statement->isr_next) if (statement->isr_itr ==
+								  transaction)
+				clear_statement_cache(statement);
+}
+
+
+static void event_packer( ICC icc)
+{
+/**************************************
+ *
+ *      e v e n t _ p a c k e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      This thread just packs events on the
+ *	client's queue for event_thread, so
+ *	the server isn't kept waiting
+ *
+ **************************************/
+	TEXT name_buffer[128];
+
+
+	/* init the window, which never really returns */
+
+	sprintf(name_buffer, IPI_EVENT_NAME, icc->icc_file, icc->icc_slot);
+	IPC_window_init((char *) IPI_EVENT_CLASS, (char *) name_buffer,
+					&event_window, event_semaphore);
+	CloseHandle(event_packer_handle);
+	event_packer_handle = 0;
+}
+
+
+static void event_thread(void)
+{
+/**************************************
+ *
+ *      e v e n t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *      This thread gets events of an event queue and
+ *      posts them.   Events are put on the queue by
+ *      the event handler hidden windows.
+ *
+ **************************************/
+	ICC icc;
+	IDB idb;
+	IVNT ivnt;
+	IVNT event;
+	EVENTQ queued;
+	STATUS status[ISC_STATUS_LENGTH];
+
+
+	/* loop to wait for events */
+
+	for (;;) {
+		WaitForSingleObject(event_semaphore, INFINITE);
+		if (exit_flag)
+			break;
+
+		/* init our icc */
+
+		if (!event_icc)
+			if (!init(status, &event_icc))
+				return;
+
+		/* find next queued event */
+
+		THD_mutex_lock(&evtsect);
+		if (event_head) {
+			queued = event_head;
+			event_head = queued->evq_next;
+
+			/* if queue is empty, clear tail */
+
+			if (!event_head)
+				event_tail = NULL;
+			THD_mutex_unlock(&evtsect);
+
+			/* find event in icc/idb/events chain */
+
+			event = NULL;
+			THD_mutex_lock(&clisect);
+			for (icc = client_threads; icc && !event; icc = icc->icc_next)
+				for (idb = icc->icc_databases; idb && !event;
+					 idb = idb->idb_next) for (ivnt = idb->idb_events; ivnt;
+											   ivnt = ivnt->ivnt_next)
+						if (ivnt->ivnt_id == queued->evq_id) {
+							event = ivnt;
+							break;
+						}
+			if (event) {
+				if (event->ivnt_ast) {
+					reinterpret_cast < void (*) (...) >
+						(*event->ivnt_ast) (event->ivnt_arg,
+											queued->evq_length,
+											queued->evq_string);
+					event->ivnt_id = 0;
+				}
+			}
+			THD_mutex_unlock(&clisect);
+			ALLI_free((UCHAR *) queued);
+		}
+		else
+			THD_mutex_unlock(&evtsect);
+	}
+	CloseHandle(event_thread_handle);
+	event_thread_handle = 0;
+}
+
+
+static void extract_status( ICC icc, STATUS * user_status)
+{
+/**************************************
+ *
+ *      e x t r a c t _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Extract and convert the status vector
+ *      and pack it into the comm area.
+ *
+ **************************************/
+	USHORT i, length;
+	TEXT *text;
+	STATUS *v, code, *server_status;
+	ips_comm_area *comm;
+	ULONG *comm_ptr;
+	TEXT *p;
+
+
+	comm = (ips_comm_area *) icc->icc_mapped_addr;
+
+	/* extract the status information */
+
+	text = error_text;
+	server_status = reinterpret_cast < STATUS * >(comm->ips_status);
+	comm_ptr = comm->ips_data;
+	v = user_status;
+
+	/* if there's no error or warning, skip the rest */
+
+	if (!server_status[1] && !server_status[2]) {
+		*v++ = *server_status++;
+		*v++ = *server_status++;
+	}
+	else {
+		while (code = *server_status++) {
+			switch (*v++ = code) {
+			case isc_arg_interpreted:
+			case isc_arg_string:
+
+				/* get a string from the comm area, aligning the
+				   pointer accordingly */
+
+				*v++ = (STATUS) text;
+				length = (USHORT) * comm_ptr++;
+				p = (TEXT *) comm_ptr;
+				comm_ptr = comm_ptr +
+					(length + (sizeof(ULONG) - 1)) / sizeof(ULONG);
+				for (i = 0; i < length; i++)
+					*text++ = *p++;
+				*text++ = (TEXT) 0;
+				continue;
+
+			case isc_arg_gds:
+			case isc_arg_warning:
+			case isc_arg_number:
+			case isc_arg_vms:
+			case isc_arg_unix:
+			case isc_arg_domain:
+			case isc_arg_dos:
+			case isc_arg_mpexl:
+			case isc_arg_mpexl_ipc:
+			case isc_arg_next_mach:
+			case isc_arg_netware:
+			case isc_arg_win32:
+				*v++ = *server_status++;
+				continue;
+
+			case isc_arg_end:
+			case isc_arg_cstring:
+			default:
+				return;
+			}
+		}
+	}
+	*v = isc_arg_end;
+}
+
+
+static STATUS handle_error( STATUS * user_status, STATUS code)
+{
+/**************************************
+ *
+ *      h a n d l e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *      An invalid handle has been passed in.  If there is a user status
+ *      vector, make it reflect the error.  If not, emulate the routine
+ *      "error" and abort.
+ *
+ **************************************/
+
+	*user_status++ = isc_arg_gds;
+	*user_status++ = code;
+	*user_status = isc_arg_end;
+	return code;
+}
+
+
+static SSHORT init( STATUS * user_status, ICC * picc)
+{
+/**************************************
+ *
+ *      i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Initialize for database access.  First call from both CREATE and
+ *      OPEN.
+ *
+ **************************************/
+	ICC icc;
+	IPM ipm;
+	ULONG number;
+	USHORT mapped_area, mapped_position;
+	TEXT name_buffer[128];
+	DWORD current_thread_id;
+	DWORD last_error;
+	HANDLE file_handle;
+	LPVOID mapped_address;
+	DWORD client_pid;
+	ips_comm_area *comm;
+
+
+	/* first, make sure that the critical region is initialized */
+
+	while (!initialized)
+	{
+		if (!InterlockedIncrement(&interlock))
+		{
+
+			/* increment "succeeded", initialize */
+
+			THD_mutex_init(&clisect);
+			THD_mutex_init(&evtsect);
+			THD_mutex_init(&mapsect);
+			initialized = TRUE;
+			gds__register_cleanup(reinterpret_cast<void(*)(void*)>(IPC_release_all),
+									NULL);
+		}
+		else
+		{
+			/* some other thread is initializing now */
+
+			InterlockedDecrement(&interlock);
+		}
+	}
+
+	/* set up for unavailable server */
+
+	user_status[0] = isc_arg_gds;
+	user_status[1] = isc_unavailable;
+	user_status[2] = isc_arg_end;
+
+	/* see if this thread has been connected yet, and if not, do so */
+
+	THD_mutex_lock(&clisect);
+	current_thread_id = GetCurrentThreadId();
+	for (icc = client_threads; icc; icc = icc->icc_next)
+	{
+		if (icc->icc_thread_handle == current_thread_id &&
+			!(icc->icc_flags & ICCF_SERVER_SHUTDOWN))
+		{
+			break;
+		}
+	}
+
+	if (!icc)
+	{
+
+		/* send a message to the server to get the next available
+		   attachment, a 32 bit value with a mapped memory file
+		   ID in the high order and an allocated area in that
+		   mapped file in the low order */
+
+		client_pid = GetCurrentProcessId();
+		HWND hWndServer = FindWindow(szClassName, APP_NAME);
+		if (hWndServer)
+		{
+			number = (ULONG) SendMessage(hWndServer,
+										 IP_CONNECT_MESSAGE, 0,
+										 (LPARAM) client_pid);
+		}
+		if (!number || number == (ULONG) - 1)
+		{
+			THD_mutex_unlock(&clisect);
+			return 0;
+		}
+		pages_per_user = (USHORT) IPS_UNPACK_PAGES(number);
+		users_per_map = (USHORT) IPS_UNPACK_MAX_USERS(number);
+		mapped_area = (USHORT) IPS_UNPACK_MAPNUM(number);
+		mapped_position = (USHORT) IPS_UNPACK_USERNUM(number);
+
+		/* see if area is already mapped for this client */
+
+		for (ipm = client_maps; ipm; ipm = ipm->ipm_next)
+		{
+			if (ipm->ipm_number == mapped_area &&
+				!(ipm->ipm_flags & IPMF_SERVER_SHUTDOWN))
+			{
+				break;
+			}
+		}
+
+		if (!ipm)
+		{
+			/* add new mapping */
+
+			sprintf(name_buffer, IPI_MAPPED_FILE_NAME, mapped_area);
+			file_handle = OpenFileMapping(FILE_MAP_WRITE, FALSE, name_buffer);
+			if (!file_handle) {
+				THD_mutex_unlock(&clisect);
+				return 0;
+			}
+			mapped_address =
+				MapViewOfFile(file_handle, FILE_MAP_WRITE, 0L, 0L,
+							  IPS_MAPPED_SIZE(users_per_map, pages_per_user));
+			if (!mapped_address)
+			{
+				last_error = GetLastError();
+				CloseHandle(file_handle);
+				THD_mutex_unlock(&clisect);
+				return 0;
+			}
+			ipm = (IPM) ALLI_alloc(sizeof(struct ipm));
+			if (!ipm)
+			{
+				UnmapViewOfFile(mapped_address);
+				CloseHandle(file_handle);
+				THD_mutex_unlock(&clisect);
+				return 0;
+			}
+			ipm->ipm_next = client_maps;
+			client_maps = ipm;
+			ipm->ipm_count = 0;
+			ipm->ipm_number = mapped_area;
+			ipm->ipm_handle = file_handle;
+			ipm->ipm_address = mapped_address;
+			ipm->ipm_flags = 0;
+		}
+
+		/* there's no thread structure, so make one  */
+
+		icc = (ICC) ALLOC(type_icc);
+		if (!icc)
+		{
+			UnmapViewOfFile(mapped_address);
+			CloseHandle(file_handle);
+			THD_mutex_unlock(&clisect);
+			return 0;
+		}
+		icc->icc_thread_handle = current_thread_id;
+		icc->icc_file_handle = ipm->ipm_handle;
+		icc->icc_mapped_addr = (UCHAR *) ipm->ipm_address +
+			IPS_MAPPED_FOR_CLI(pages_per_user, mapped_position);
+		icc->icc_file = mapped_area;
+		icc->icc_slot = mapped_position;
+		icc->icc_ipm = ipm;
+		icc->icc_flags = 0;
+#ifdef	IP_TRACE
+		gds__log("ipclient icc %8lX, comm %8lX, number %lX",
+				 icc, comm, number);
+#endif
+		comm = (ips_comm_area *) icc->icc_mapped_addr;
+
+		/* only speak if server has correct protocol */
+
+		if (comm->ips_server_protocol != 1L || comm->ips_server_proc == 0)
+		{
+			UnmapViewOfFile(mapped_address);
+			CloseHandle(file_handle);
+			THD_mutex_unlock(&clisect);
+			return 0;
+		}
+		comm->ips_client_protocol = 1L;
+		icc->icc_server_id = comm->ips_server_id;
+		/*
+		 * comm-ips_server_proc is set by ipserver.c when the client first
+		 * initiates the conversation with the server.
+		 *
+		 */
+		icc->icc_server_proc = comm->ips_server_proc;
+		ipm->ipm_count++;
+
+		/* get handles of semaphores */
+
+		sprintf(name_buffer, IPI_CLIENT_SEM_NAME,
+				mapped_area, mapped_position);
+		icc->icc_client_sem = OpenSemaphore(SEMAPHORE_ALL_ACCESS, FALSE,
+											name_buffer);
+		sprintf(name_buffer, IPI_SERVER_SEM_NAME,
+				mapped_area, mapped_position);
+		icc->icc_server_sem = OpenSemaphore(SEMAPHORE_ALL_ACCESS, FALSE,
+											name_buffer);
+
+		/* initialize wait for multiple objects array */
+
+		icc->icc_waits[0] = icc->icc_client_sem;
+		icc->icc_waits[1] = icc->icc_server_proc;
+
+		/* if we're not watching the server yet, do so now */
+
+		if (!server_watcher_handle)
+		{
+			server_process_handle = icc->icc_server_proc;
+			gds__thread_start(reinterpret_cast<FPTR_INT_VOID_PTR>(server_watcher),
+								NULL,
+								THREAD_high,
+								0,
+								&server_watcher_handle);
+		}
+
+		/* link to icc chain */
+
+		icc->icc_next = client_threads;
+		client_threads = icc;
+	}
+	THD_mutex_unlock(&clisect);
+	if (picc) {
+		*picc = icc;
+	}
+	return 1;
+}
+
+
+static ITR make_transaction( STATUS * user_status, IDB idb, HANDLE handle)
+{
+/**************************************
+ *
+ *      m a k e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create a local transaction handle.
+ *
+ **************************************/
+	ITR transaction;
+
+	transaction = (ITR) ALLOC(type_itr);
+	if (!transaction) {
+		user_status[0] = isc_arg_gds;
+		user_status[1] = isc_virmemexh;
+		user_status[2] = isc_arg_end;
+		return NULL;
+	}
+	transaction->itr_idb = idb;
+	transaction->itr_handle = handle;
+	transaction->itr_next = idb->idb_transactions;
+	idb->idb_transactions = transaction;
+	return transaction;
+}
+
+
+static SSHORT name_length( TEXT * name)
+{
+/*****************************************
+ *
+ *      n a m e _ l e n g t h
+ *
+ *****************************************
+ *
+ * Functional Description
+ *      Compute length of user-supplied( blank-padded) or
+ *      NULL-terminated buffer
+ *
+ *****************************************/
+	TEXT *p;
+
+	for (p = name; *p && *p != ' '; p++);
+	return (p - name);
+}
+
+
+static BOOL pack_strings( ICC icc)
+{
+/**************************************
+ *
+ *      p a c k _ s t r i n g s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Pack the input buffers into the comm area.
+ *      Note that this may require multiple send/receive
+ *      operations to get all the buffers across.
+ *
+ **************************************/
+	USHORT i;
+	ips_comm_area *comm;
+	ips_string *string;
+	TEXT *acursor, *ccursor, *abase;
+	ULONG to_copy, size_left;
+
+
+	comm = (ips_comm_area *) icc->icc_mapped_addr;
+
+	/* for each buffer, pack it into the comm area and send it,
+	   waiting until the server is done to pack the next buffer
+	   full */
+
+	size_left = (ULONG) (IPS_USEFUL_SPACE(pages_per_user));
+	acursor = (TEXT *) comm->ips_data;
+	abase = acursor;
+	for (i = 0; i < MAX_IPS_STRINGS; i++) {
+		string = &comm->ips_buffers[i];
+
+		/* see if this buffer needs sending */
+
+		if (string->ips_flags & IPS_INPUT_BUFFER && string->ips_cl_size) {
+
+			string->ips_cl_copied = 0;
+			ccursor = reinterpret_cast < char *>(string->ips_cl_addr);
+
+			/* keep packing it in */
+
+			while (string->ips_cl_copied < string->ips_cl_size) {
+
+				/* put in the whole thing, or whatever will fit */
+
+				to_copy = string->ips_cl_size - string->ips_cl_copied;
+				if (size_left <= to_copy)
+					to_copy = size_left;
+				string->ips_com_offset = acursor - abase;
+				string->ips_com_size = to_copy;
+				memcpy(acursor, ccursor, (USHORT) to_copy);
+				acursor += to_copy;
+				ccursor += to_copy;
+				size_left -= to_copy;
+				string->ips_cl_copied += to_copy;
+
+				/* if all the space has been used up, send it and wait */
+
+				if (!size_left && string->ips_cl_copied < string->ips_cl_size) {
+					if (!send_and_wait(icc))
+						return FALSE;
+					size_left = (ULONG) (IPS_USEFUL_SPACE(pages_per_user));
+					acursor = (TEXT *) comm->ips_data;
+				}
+			}
+		}
+	}
+	return TRUE;
+}
+
+
+static void release_blob( IBL blob)
+{
+/**************************************
+ *
+ *      r e l e a s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release a blob block and friends.
+ *
+ **************************************/
+	ITR transaction;
+	IBL *p;
+
+
+	transaction = blob->ibl_itr;
+	for (p = &transaction->itr_blobs; *p; p = &(*p)->ibl_next)
+		if (*p == blob) {
+			*p = blob->ibl_next;
+			break;
+		}
+	ALLI_release((BLK) blob);
+}
+
+
+static void release_database( IDB idb)
+{
+/**************************************
+ *
+ *      r e l e a s e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Take a database structure out of
+ *      the thread's chain and close down
+ *      the thread's comm if it's the last
+ *      structure on the chain.
+ *
+ **************************************/
+	ICC icc;
+	ICC picc;
+	IPM ipm;
+	IPM pipm;
+	IDB pidb;
+	ips_comm_area *comm;
+
+
+	/* find the structure in the thread's chain and remove it */
+
+	THD_mutex_lock(&clisect);
+	icc = idb->idb_thread;
+	if (icc->icc_databases == idb)
+		icc->icc_databases = idb->idb_next;
+	else {
+		for (pidb = icc->icc_databases; pidb->idb_next; pidb = pidb->idb_next)
+			if (pidb->idb_next == idb) {
+				pidb->idb_next = idb->idb_next;
+				break;
+			}
+	}
+	ALLI_release((BLK) idb);
+
+	/* close down if chain is now empty */
+
+	if (!icc->icc_databases) {
+
+		/* point to communications area */
+
+		ipm = icc->icc_ipm;
+		if (!(icc->icc_flags & ICCF_SERVER_SHUTDOWN)) {
+			comm = (ips_comm_area *) icc->icc_mapped_addr;
+			comm->ips_operation = op_disconnect;
+			ReleaseSemaphore(icc->icc_server_sem, 1L, NULL);
+		}
+
+		/* free up semaphores */
+
+		if (icc->icc_client_sem)
+			CloseHandle(icc->icc_client_sem);
+		if (icc->icc_server_sem)
+			CloseHandle(icc->icc_server_sem);
+		if (icc->icc_server_proc)
+			CloseHandle(icc->icc_server_proc);
+
+		/* find icc in chain and release */
+
+		if (client_threads == icc)
+			client_threads = icc->icc_next;
+		else {
+			for (picc = client_threads; picc->icc_next; picc = picc->icc_next)
+				if (picc->icc_next == icc) {
+					picc->icc_next = icc->icc_next;
+					break;
+				}
+		}
+		ALLI_release((BLK) icc);
+
+		/* if this was the last area for this map, unmap it */
+
+		ipm->ipm_count--;
+		if (!ipm->ipm_count) {
+			if (!(ipm->ipm_flags & IPMF_SERVER_SHUTDOWN)) {
+				UnmapViewOfFile(ipm->ipm_address);
+				CloseHandle(ipm->ipm_handle);
+			}
+
+			/* find in chain and release */
+
+			if (client_maps == ipm)
+				client_maps = ipm->ipm_next;
+			else {
+				for (pipm = client_maps; pipm->ipm_next;
+					 pipm = pipm->ipm_next) if (pipm->ipm_next == ipm) {
+						pipm->ipm_next = ipm->ipm_next;
+						break;
+					}
+			}
+			ALLI_free((UCHAR *) ipm);
+		}
+	}
+	THD_mutex_unlock(&clisect);
+}
+
+
+static void release_event( IVNT event)
+{
+/**************************************
+ *
+ *      r e l e a s e _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release a event block and friends.
+ *
+ **************************************/
+	IDB idb;
+	IVNT *p;
+
+
+	idb = event->ivnt_idb;
+	for (p = &idb->idb_events; *p; p = &(*p)->ivnt_next)
+		if (*p == event) {
+			*p = event->ivnt_next;
+			break;
+		}
+	ALLI_release((BLK) event);
+}
+
+
+static void release_request( IRQ request)
+{
+/**************************************
+ *
+ *      r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release a request block and friends.
+ *
+ **************************************/
+	IDB idb;
+	IRQ *p;
+
+
+	idb = request->irq_idb;
+	for (p = &idb->idb_requests; *p; p = &(*p)->irq_next)
+		if (*p == request) {
+			*p = request->irq_next;
+			break;
+		}
+	ALLI_release((BLK) request);
+}
+
+
+static void release_transaction( ITR transaction)
+{
+/**************************************
+ *
+ *      r e l e a s e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release a transaction block and friends.
+ *
+ **************************************/
+	IDB idb;
+	ITR *p;
+
+
+	idb = transaction->itr_idb;
+	for (p = &idb->idb_transactions; *p; p = &(*p)->itr_next)
+		if (*p == transaction) {
+			*p = transaction->itr_next;
+			break;
+		}
+	ALLI_release((BLK) transaction);
+}
+
+
+static void release_sql_request( IPSERVER_ISR stmt)
+{
+/**************************************
+ *
+ *      r e l e a s e _ s q l _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release an SQL request block.
+ *
+ **************************************/
+	IDB idb;
+	IPSERVER_ISR *p;
+
+
+	idb = stmt->isr_idb;
+	for (p = &idb->idb_sql_requests; *p; p = &(*p)->isr_next)
+		if (*p == stmt) {
+			*p = stmt->isr_next;
+			break;
+		}
+	if (stmt->isr_packed)
+		ALLI_free((UCHAR *) stmt->isr_packed);
+	ALLI_release((BLK) stmt);
+}
+
+
+static BOOL send_and_wait( ICC icc)
+{
+/**************************************
+ *
+ *      s e n d _ a n d _ w a i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      This function starts the server by releasing
+ *      its semaphore, and then waits for the server's
+ *      response by waiting on the client's semaphore.
+ *
+ **************************************/
+	DWORD result;
+
+/* dead server means no point in sending */
+
+	if (icc->icc_flags & ICCF_SERVER_SHUTDOWN)
+		return FALSE;
+
+/* first, signal the server that the communications
+   area in mapped memory is filed and ready */
+
+	if (!ReleaseSemaphore(icc->icc_server_sem, 1L, NULL))
+		return FALSE;
+
+/* next, wait for the server to signal us back or die */
+
+	THREAD_EXIT;
+	result =
+		WaitForMultipleObjects((DWORD) 2, icc->icc_waits, FALSE, INFINITE);
+	THREAD_ENTER;
+
+	if (result != WAIT_OBJECT_0) {
+		icc->icc_flags |= ICCF_UNMAP_CLIENT;
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+static void server_shutdown(void)
+{
+/**************************************
+ *
+ *      s e r v e r _ s h u t d o w n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Server shutdown detected, so mark
+ *      everything and release handles.
+ *
+ **************************************/
+	ICC icc;
+	IPM ipm;
+	IDB idb;
+
+
+	/* for each icc structure, shut it and its database */
+
+	for (icc = client_threads; icc; icc = icc->icc_next) {
+		icc->icc_flags |= ICCF_SERVER_SHUTDOWN;
+
+		/* free up semaphores */
+
+		if (icc->icc_client_sem)
+			CloseHandle(icc->icc_client_sem);
+		if (icc->icc_server_sem)
+			CloseHandle(icc->icc_server_sem);
+		if (icc->icc_server_proc)
+			CloseHandle(icc->icc_server_proc);
+		icc->icc_client_sem = 0;
+		icc->icc_server_sem = 0;
+		icc->icc_server_proc = 0;
+
+		/* mark databases */
+
+		for (idb = icc->icc_databases; idb; idb = idb->idb_next)
+			idb->idb_flags |= IDBF_SERVER_SHUTDOWN;
+	}
+
+	/* unmap all mapped files */
+
+	for (ipm = client_maps; ipm; ipm = ipm->ipm_next) {
+		ipm->ipm_flags |= IPMF_SERVER_SHUTDOWN;
+		UnmapViewOfFile(ipm->ipm_address);
+		CloseHandle(ipm->ipm_handle);
+		ipm->ipm_handle = 0;
+	}
+}
+
+
+static void server_watcher(void)
+{
+/**************************************
+ *
+ *      s e r v e r _ w a t c h e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      This thread just waits for the server
+ *      process.   If that process goes away,
+ *      this gets triggered and unmaps any
+ *      currently mapped maps.
+ *
+ **************************************/
+	DWORD result;
+
+
+	for (;;) {
+		if (exit_flag)
+			break;
+		result = WaitForSingleObject(server_process_handle, INFINITE);
+		if (result == WAIT_OBJECT_0) {
+
+			/* unmap and close all maps */
+
+			THD_mutex_lock(&mapsect);
+			server_shutdown();
+			THD_mutex_unlock(&mapsect);
+			server_process_handle = 0;
+			CloseHandle(server_watcher_handle);
+			server_watcher_handle = 0;
+			break;
+		}
+	}
+}
+
+
+static BOOL unpack_strings( ICC icc)
+{
+/**************************************
+ *
+ *      u n p a c k _ s t r i n g s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Unpack all buffers from comm area to user's
+ *      address space.   Note that this may require
+ *      multiple send/receive operations to get all
+ *      the data across.
+ *
+ **************************************/
+	USHORT i;
+	ips_comm_area *comm;
+	ips_string *string;
+	TEXT *acursor, *ccursor;
+	ULONG to_copy;
+
+
+	comm = (ips_comm_area *) icc->icc_mapped_addr;
+	for (i = 0; i < MAX_IPS_STRINGS; i++) {
+		string = &comm->ips_buffers[i];
+
+		/* see if this buffer needs extraction */
+
+		if (string->ips_flags & IPS_OUTPUT_BUFFER && string->ips_cl_size) {
+			string->ips_cl_copied = 0;
+			ccursor = reinterpret_cast < char *>(string->ips_cl_addr);
+
+			/* start extraction */
+
+			while (string->ips_cl_copied < string->ips_cl_size) {
+
+				/* extract all or whatever's available */
+
+				to_copy = string->ips_cl_size - string->ips_cl_copied;
+				if (string->ips_com_size <= to_copy)
+					to_copy = string->ips_com_size;
+				acursor = (TEXT *) comm->ips_data + string->ips_com_offset;
+				memcpy(ccursor, acursor, (USHORT) to_copy);
+				ccursor += to_copy;
+				string->ips_cl_copied += to_copy;
+
+				/* if there is more to copy, wait for it */
+
+				if (string->ips_cl_copied < string->ips_cl_size)
+					if (!send_and_wait(icc))
+						return FALSE;
+			}
+		}
+	}
+	return TRUE;
+}
+
+
+void IPC_process_event(
+					   DWORD eventID, DWORD event_length, LPVOID event_string)
+{
+/**************************************
+ *
+ *      I P C _ p r o c e s s _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Process an event.   This looks the event up by
+ *      its id and executes the ast with the argument
+ *      and the event string.
+ *
+ **************************************/
+	EVENTQ queued;
+
+
+	/* allocate a queued event structure, fill it and link it */
+
+	THD_mutex_lock(&evtsect);
+	queued = (EVENTQ) ALLI_alloc(sizeof(struct eventq) + event_length);
+	if (queued) {
+		memcpy(queued->evq_string, event_string, event_length);
+		queued->evq_length = (USHORT) event_length;
+		queued->evq_id = eventID;
+		queued->evq_next = NULL;
+		if (!event_head) {
+			event_head = queued;
+			event_tail = queued;
+		}
+		else {
+			event_tail->evq_next = queued;
+			event_tail = queued;
+		}
+	}
+	THD_mutex_unlock(&evtsect);
+	ReleaseSemaphore(event_semaphore, 1L, NULL);
+}
+
+
+void IPC_release_all(void)
+{
+/**************************************
+ *
+ *      I P C _ r e l e a s e _ a l l
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release all connections and dependant stuff.
+ *
+ **************************************/
+	ICC icc, nicc;
+	IPM ipm, nipm;
+	IDB idb, nidb;
+	ITR itr, nitr;
+	IBL ibl, nibl;
+	IRQ irq, nirq;
+	IPSERVER_ISR isr, nisr;
+	IVNT ivnt, nivnt;
+	EVENTQ event, nevent;
+	ips_comm_area *comm;
+
+
+	/* get stuff to release and clear list heads */
+
+	exit_flag++;
+	if (exit_flag > 1)
+		return;
+	icc = client_threads;
+	nicc = icc;
+	client_threads = NULL;
+	ipm = client_maps;
+	client_maps = NULL;
+
+	/* cause event threads to shut down */
+
+	if (event_window) {
+		PostMessage(event_window, WM_CLOSE, 0, 0);
+		event_window = 0;
+	}
+	if (event_semaphore) {
+		ReleaseSemaphore(event_semaphore, 1L, NULL);
+		CloseHandle(event_semaphore);
+		event_semaphore = 0;
+	}
+	if (event_packer_handle) {
+		TerminateThread(event_packer_handle, 0);
+		CloseHandle(event_packer_handle);
+		event_packer_handle = 0;
+	}
+	if (event_thread_handle) {
+		TerminateThread(event_thread_handle, 0);
+		CloseHandle(event_thread_handle);
+		event_thread_handle = 0;
+	}
+	if (server_watcher_handle) {
+		TerminateThread(server_watcher_handle, 0);
+		CloseHandle(server_watcher_handle);
+		server_watcher_handle = 0;
+	}
+
+	/* release queued event structures */
+
+	event = event_head;
+	event_head = NULL;
+	event_tail = NULL;
+	for (; event; event = nevent) {
+		nevent = event->evq_next;
+		ALLI_free((UCHAR *) event);
+	}
+
+	/* disconnect each thread */
+
+	for (; icc; icc = icc->icc_next) {
+		if (!(icc->icc_flags & ICCF_SERVER_SHUTDOWN)) {
+			comm = (ips_comm_area *) icc->icc_mapped_addr;
+			comm->ips_operation = op_disconnect;
+			ReleaseSemaphore(icc->icc_server_sem, 1L, NULL);
+		}
+	}
+	icc = nicc;
+
+	/* for each icc structure, release its database and close it down */
+
+	for (; icc; icc = nicc) {
+		nicc = icc->icc_next;
+
+		/* free up semaphores */
+
+		if (icc->icc_client_sem)
+			CloseHandle(icc->icc_client_sem);
+		if (icc->icc_server_sem)
+			CloseHandle(icc->icc_server_sem);
+		if (icc->icc_server_proc)
+			CloseHandle(icc->icc_server_proc);
+
+		/* free up dependant data structures */
+
+		for (idb = icc->icc_databases; idb; idb = nidb) {
+			nidb = idb->idb_next;
+			for (ivnt = idb->idb_events; ivnt; ivnt = nivnt) {
+				nivnt = ivnt->ivnt_next;
+				ALLI_release((BLK) ivnt);
+			}
+			for (irq = idb->idb_requests; irq; irq = nirq) {
+				nirq = irq->irq_next;
+				ALLI_release((BLK) irq);
+			}
+			for (isr = idb->idb_sql_requests; isr; isr = nisr) {
+				nisr = isr->isr_next;
+				if (isr->isr_packed)
+					ALLI_free((UCHAR *) isr->isr_packed);
+				ALLI_release((BLK) isr);
+			}
+			for (itr = idb->idb_transactions; itr; itr = nitr) {
+				nitr = itr->itr_next;
+				for (ibl = itr->itr_blobs; ibl; ibl = nibl) {
+					nibl = ibl->ibl_next;
+					ALLI_release((BLK) ibl);
+				}
+				ALLI_release((BLK) itr);
+			}
+			ALLI_release((BLK) idb);
+		}
+		ALLI_release((BLK) icc);
+	}
+
+	/* unmap all mapped files */
+
+	for (; ipm; ipm = nipm) {
+		nipm = ipm->ipm_next;
+		if (!(ipm->ipm_flags & IPMF_SERVER_SHUTDOWN)) {
+			UnmapViewOfFile(ipm->ipm_address);
+			CloseHandle(ipm->ipm_handle);
+		}
+		ALLI_free((UCHAR *) ipm);
+	}
+	if (initialized) {
+		THD_mutex_destroy(&clisect);
+		THD_mutex_destroy(&evtsect);
+		THD_mutex_destroy(&mapsect);
+		initialized = FALSE;
+	}
+}
+
+
+} // extern "C"
diff --git a/src/ipserver/ipevt_proto.h b/src/ipserver/ipevt_proto.h
new file mode 100644
index 0000000000..578d6912b6
--- /dev/null
+++ b/src/ipserver/ipevt_proto.h
@@ -0,0 +1,30 @@
+/*
+ * PROGRAM: JRD Access Method
+ * MODULE: ipevt_proto.h
+ * DESCRIPTION: Prototype header file for ipcevent.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#ifndef _IPEVT_PROTO_H_
+#define _IPEVT_PROTO_H_
+
+extern int IPC_window_init(char *, char *, HWND *, HANDLE);
+
+#endif /* _IPEVT_PROTO_H_ */
diff --git a/src/ipserver/ips.h b/src/ipserver/ips.h
new file mode 100644
index 0000000000..b54786c0d6
--- /dev/null
+++ b/src/ipserver/ips.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	Interprocess Interface definitions
+ *	MODULE:		ips.h
+ *	DESCRIPTION:	Common descriptions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _IPS_H_
+#define _IPS_H_
+
+#define	IP_CONNECT_MESSAGE	WM_USER + 1
+
+#endif /* _IPS_H_ */
diff --git a/src/ipserver/ipserver.cpp b/src/ipserver/ipserver.cpp
new file mode 100644
index 0000000000..655b552da7
--- /dev/null
+++ b/src/ipserver/ipserver.cpp
@@ -0,0 +1,4123 @@
+/*
+ *      PROGRAM:        Interprocess Interface server
+ *      MODULE:         ipserver.c
+ *      DESCRIPTION:    interprocess interface server
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <signal.h>
+#include <errno.h>
+#include <windows.h>
+
+#include "../ipserver/ipc.h"
+#include "../jrd/license.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/gds_proto.h"
+#include "../ipserver/alli_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../ipserver/ipsrv_proto.h"
+#include "../ipserver/ips.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/why_proto.h"
+
+static void allocate_statement(ICC);
+static void attach_database(ICC, P_OP);
+static void cancel_events(ICC);
+static USHORT check_statement_type(IPSERVER_ISR);
+static void compile(ICC);
+static void ddl(ICC);
+static void drop_database(ICC);
+static void end_blob(ICC, P_OP);
+static void end_database(ICC);
+static void end_request(ICC);
+static void end_statement(ICC);
+static void end_transaction(ICC, P_OP);
+static void event_ast(IVNT, USHORT, UCHAR *);
+static void execute_immediate(ICC, P_OP);
+static void execute_statement(ICC, P_OP);
+static void fetch(ICC);
+static UCHAR *get_buffer(IPS, USHORT, USHORT);
+static void get_segment(ICC);
+static void get_slice(ICC);
+static void info(ICC, P_OP);
+static void insert(ICC);
+static void ipi_end_thread(ICC);
+static void ipi_server(ICC);
+static IPM make_map(USHORT);
+static ITR make_transaction(IDB, HANDLE);
+static void open_blob(ICC, P_OP);
+static void prepare_statement(ICC);
+static void put_segment(ICC);
+static void put_slice(ICC);
+static void que_events(ICC);
+static void receive_msg(ICC);
+static void reconnect(ICC);
+static void release_blob(IBL);
+static void release_event(IVNT);
+static void release_request(IRQ);
+static void release_sql_request(IPSERVER_ISR);
+static void release_transaction(ITR);
+static void seek_blob(ICC);
+static BOOL send_and_wait(ICC);
+static void send_msg(ICC);
+static void send_no_wait(ICC);
+static void send_response(ICC, STATUS *);
+static void set_cursor(ICC);
+static void service_attach(ICC);
+static void service_end(ICC);
+static void service_start(ICC);
+static void shutdown_attachments(ICC);
+static void start(ICC);
+static void start_and_send(ICC);
+static void start_transaction(ICC);
+static void transact_request(ICC);
+static BOOL transfer_buffers(ICC, ips_comm_area *);
+static void unwind(ICC);
+static BOOL wait_no_send(ICC);
+
+static HWND IPSVR_window = NULL;
+static UCHAR sql_info[] = { isc_info_sql_batch_fetch };
+
+/* Macro to check a given handle for validity.  While generally
+ * we can depend on the client-side remote library to do this
+ * for us, there were bugs due to not checking on our side.
+ * Also, since these handles are passed though to
+ * the why-value routines and checked there, strictly speaking
+ * we only have to check ones that we dereference before
+ * passing along.  For safety's side, we check them all.
+ */
+
+/* h = handle to check
+ * t = type of handle to expect
+ * c = error code to return
+ */
+#define CHECK_HANDLE(h,t,c)     if ( !(h) || (((BLK) (h))->blk_type !=( t))) \
+				    { \
+				    status_vector[0] = isc_arg_gds;\
+				    status_vector[1] = (c);\
+				    status_vector[2] = isc_arg_end;\
+				    send_response( icc, status_vector); \
+				    return; \
+				    }
+
+#define NOT_NULL(p,s)           if ( !(p) && (s)) \
+				    { \
+				    status_vector[0] = isc_arg_gds;\
+				    status_vector[1] = isc_virmemexh;\
+				    status_vector[2] = isc_arg_end;\
+				    send_response( icc, status_vector); \
+				    return; \
+				    }
+
+#define GET_COMM_OBJECT { comm = (ips_comm_area*)icc->icc_mapped_addr;\
+			  comm_ptr = (TEXT*)comm->ips_data;}
+
+#define IPS_SERVER(c,n,a,s)     { c->ips_buffers[n].ips_sv_size = s;\
+				  c->ips_buffers[n].ips_sv_addr = a;\
+				  c->ips_buffers[n].ips_sv_copied = 0;}
+
+
+
+#define GDS_ATTACH_DATABASE     isc_attach_database
+#define GDS_BLOB_INFO           isc_blob_info
+#define GDS_CANCEL_BLOB         isc_cancel_blob
+#define GDS_CANCEL_EVENTS       isc_cancel_events
+#define GDS_CLOSE_BLOB          isc_close_blob
+#define GDS_COMMIT              isc_commit_transaction
+#define GDS_COMMIT_RETAINING    isc_commit_retaining
+#define GDS_COMPILE             isc_compile_request
+#define GDS_CREATE_BLOB         isc_create_blob
+#define GDS_CREATE_BLOB2        isc_create_blob2
+#define GDS_CREATE_DATABASE     isc_create_database
+#define GDS_DATABASE_INFO       isc_database_info
+#define GDS_DDL                 isc_ddl
+#define GDS_DETACH              isc_detach_database
+#define GDS_DROP_DATABASE       isc_drop_database
+#define GDS_GET_SEGMENT         isc_get_segment
+#define GDS_GET_SLICE           isc_get_slice
+#define GDS_OPEN_BLOB           isc_open_blob
+#define GDS_OPEN_BLOB2          isc_open_blob2
+#define GDS_PREPARE             isc_prepare_transaction
+#define GDS_PREPARE2            isc_prepare_transaction2
+#define GDS_PUT_SEGMENT         isc_put_segment
+#define GDS_PUT_SLICE           isc_put_slice
+#define GDS_QUE_EVENTS          isc_que_events
+#define GDS_RECONNECT           isc_reconnect_transaction
+
+#ifdef SCROLLABLE_CURSORS
+#define GDS_RECEIVE             isc_receive2
+#else
+#define GDS_RECEIVE             isc_receive
+#endif
+
+#define GDS_RELEASE_REQUEST     isc_release_request
+#define GDS_REQUEST_INFO        isc_request_info
+#define GDS_ROLLBACK            isc_rollback_transaction
+#define GDS_ROLLBACK_RETAINING  isc_rollback_retaining
+#define GDS_SEEK_BLOB           isc_seek_blob
+#define GDS_SEND                isc_send
+#define GDS_SERVICE_ATTACH      isc_service_attach
+#define GDS_SERVICE_DETACH      isc_service_detach
+#define GDS_SERVICE_QUERY       isc_service_query
+#define GDS_SERVICE_START       isc_service_start
+#define GDS_START_AND_SEND      isc_start_and_send
+#define GDS_START               isc_start_request
+#define GDS_START_MULTIPLE      isc_start_multiple
+#define GDS_START_TRANSACTION   isc_start_transaction
+#define GDS_TRANSACT_REQUEST    isc_transact_request
+#define GDS_TRANSACTION_INFO    isc_transaction_info
+#define GDS_UNWIND              isc_unwind_request
+
+#define GDS_DSQL_ALLOCATE       isc_dsql_allocate_statement
+#define GDS_DSQL_EXECUTE        isc_dsql_execute2_m
+#define GDS_DSQL_EXECUTE_IMMED  isc_dsql_exec_immed3_m
+#define GDS_DSQL_FETCH          isc_dsql_fetch_m
+#define GDS_DSQL_FREE           isc_dsql_free_statement
+#define GDS_DSQL_INSERT         isc_dsql_insert_m
+#define GDS_DSQL_PREPARE        isc_dsql_prepare_m
+#define GDS_DSQL_SET_CURSOR     isc_dsql_set_cursor_name
+#define GDS_DSQL_SQL_INFO       isc_dsql_sql_info
+
+//
+// TMN:
+//
+// Static data ahead.
+//
+// But the multithread-wizard said:
+// - Let there be light. Move static data into specific instances.
+//   Let these instances be one per thread, and there will be rejoicing
+//   among your followers again... Currently we don't use thread-specific
+//   data here, but putting it in a struct is a step.
+//
+struct ipserver_private_data_t
+{
+	IPM		first_ipm;
+	IPM		ipms;
+	MUTX_T	ipics;
+	USHORT	pages_per_user;
+	USHORT	users_per_map;
+	// TMN: num_maps was never used, why I patched it with comments.
+	// If anyone can shed some light as to why this was added in the
+	// first place it would be appreciated.
+//	USHORT	num_maps;
+};
+
+static ipserver_private_data_t ipserver_private_data =
+{
+	0,						// first_ipm
+	0,						// ipms
+	{ 0 },					// ipics - DON'T REMOVE THE BRACES!
+	IPS_DEF_PAGES_PER_CLI,	// pages_per_user
+	IPS_DEF_NUM_CLI			// users_per_map
+};
+
+
+#ifdef  IP_TRACE
+static const char* op_strings[] =
+{
+	"op_attach",
+	"op_create",
+	"op_detach",
+	"op_compile",
+	"op_start",
+	"op_start_and_send",
+	"op_send",
+	"op_receive",
+	"op_unwind",
+	"op_release",
+	"op_transaction",
+	"op_commit",
+	"op_rollback",
+	"op_reconnect",
+	"op_create_blob",
+	"op_open_blob",
+	"op_get_segment",
+	"op_put_segment",
+	"op_cancel_blob",
+	"op_close_blob",
+	"op_info_database",
+	"op_info_request",
+	"op_info_transaction",
+	"op_info_blob",
+	"op_prepare2",
+	"op_commit_retaining",
+	"op_rollback_retaining",
+	"op_open_blob2",
+	"op_create_blob2",
+	"op_ddl",
+	"op_que_events",
+	"op_cancel_events",
+	"op_put_slice",
+	"op_get_slice",
+	"op_seek_blob",
+	"op_allocate_stmt",
+	"op_execute",
+	"op_exec_immediate",
+	"op_fetch",
+	"op_free_stmt",
+	"op_prepare_stmt",
+	"op_set_cursor",
+	"op_info_sql",
+	"op_insert",
+	"op_execute2",
+	"op_exec_immediate2",
+	"op_service_attach",
+	"op_service_detach",
+	"op_service_info",
+	"op_service_start",
+	"op_transact_request",
+	"op_drop_database",
+	"op_ping",
+	"op_disconnect"
+};
+#endif
+
+
+USHORT IPS_init(HWND	hwnd,
+				USHORT	usrs_pr_mp,
+				USHORT	pgs_pr_usr,
+				USHORT	mx_mps)
+{
+/**************************************
+ *
+ *      I P S _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create a critical section structure and init
+ *      the mapped file stuff.   Returns 1 if successful
+ *      and 0 otherwise.
+ *
+ **************************************/
+
+	/* init the limits */
+
+	if (usrs_pr_mp &&
+		usrs_pr_mp >= IPS_MIN_NUM_CLI &&
+		usrs_pr_mp <= IPS_MAX_NUM_CLI)
+	{
+		ipserver_private_data.users_per_map = usrs_pr_mp;
+	}
+	if (pgs_pr_usr &&
+		pgs_pr_usr >= IPS_MIN_PAGES_PER_CLI &&
+		pgs_pr_usr <= IPS_MAX_PAGES_PER_CLI)
+	{
+		ipserver_private_data.pages_per_user = pgs_pr_usr;
+	}
+
+// TMN: Disabled code. See definition of the struct above for comments.
+//	if (mx_mps && mx_mps >= IPS_MIN_NUM_MAPS && mx_mps <= IPS_MAX_NUM_MAPS) {
+//		ipserver_private_data.num_maps = mx_mps;
+//	}
+
+	/* init mapped chain and critical regions */
+
+	ipserver_private_data.ipms = NULL;
+	THD_mutex_init(&ipserver_private_data.ipics);
+	IPSVR_window = hwnd;
+
+	/* create the first map (failure means it's already there */
+
+	IPM ipm = make_map(0);
+
+	if (ipm && (ipm != (IPM) - 1))
+	{
+		ipserver_private_data.first_ipm = ipm;
+		return (USHORT) 1;
+	}
+
+	return (USHORT) ipm;
+}
+
+
+ULONG IPS_start_thread(ULONG client_pid)
+{
+/**************************************
+ *
+ *      I P S _ s t a r t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Start an interprocess thread.   This allocates
+ *      the next available chunk of the mapped file and
+ *      tells the client where it is.
+ *
+ **************************************/
+	ICC icc;
+	USHORT mapped_area, mapped_position;
+	TEXT name_buffer[128];
+	IPM ipm;
+	USHORT i, j;
+	UCHAR *p;
+	HANDLE server_proc;
+	ips_comm_area *comm;
+
+
+	/* go through list of maps */
+
+	THD_mutex_lock(&ipserver_private_data.ipics);
+	j = 0;
+	for (ipm = ipserver_private_data.ipms; ipm; ipm = ipm->ipm_next)
+	{
+		/* find an available unused comm area */
+
+		for (i = 0; i < ipserver_private_data.users_per_map; i++)
+		{
+			if (!ipm->ipm_ids[i])
+			{
+				break;
+			}
+		}
+		if (i < ipserver_private_data.users_per_map)
+		{
+			ipm->ipm_count++;
+			ipm->ipm_ids[i]++;
+			j = ipm->ipm_number;
+			break;
+		}
+		j++;
+	}
+
+	/* if the mapped file structure has not yet been initialized,
+	   make one now */
+
+	if (!ipm)
+	{
+
+		/* allocate new map file and first slot */
+
+		ipm = make_map(j);
+
+		/* check for errors in creation of mapped file */
+
+		if (!ipm || ipm == (IPM) - 1)
+		{
+			THD_mutex_unlock(&ipserver_private_data.ipics);
+			return (ULONG) - 1;
+		}
+		i = 0;
+		ipm->ipm_ids[0]++;
+		ipm->ipm_count++;
+	}
+	mapped_area = j;
+	mapped_position = i;
+
+	/* allocate a communications control structure and fill it in */
+
+	icc = (ICC) ALLOC(type_icc);
+	if (!icc)
+	{
+		THD_mutex_unlock(&ipserver_private_data.ipics);
+		return (ULONG) - 1;
+	}
+	p = (UCHAR *) ipm->ipm_address;
+	p += IPS_MAPPED_FOR_CLI(ipserver_private_data.pages_per_user, mapped_position);
+	memset(p, (char) 0, IPS_MAPPED_PER_CLI(ipserver_private_data.pages_per_user));
+	icc->icc_mapped_addr = reinterpret_cast<UCHAR*>(p);
+	icc->icc_ipm = ipm;
+	icc->icc_slot = mapped_position;
+	icc->icc_flags = 0;
+	icc->icc_client_id = (DWORD) client_pid;
+	icc->icc_client_proc =
+		OpenProcess(PROCESS_ALL_ACCESS, TRUE, icc->icc_client_id);
+	comm = (ips_comm_area *) icc->icc_mapped_addr;
+	comm->ips_client_id = icc->icc_client_id;
+	comm->ips_client_proc = icc->icc_client_proc;
+	comm->ips_server_id = GetCurrentProcessId();
+
+	/* make sure client knows what this server speaks */
+
+	comm->ips_server_protocol = 1L;
+	comm->ips_client_protocol = 0L;
+
+	/* Duplicate the server process handle for client synchronization */
+	if (!DuplicateHandle(GetCurrentProcess(),
+						 GetCurrentProcess(),
+						 GetCurrentProcess(),
+						 &server_proc, PROCESS_ALL_ACCESS, FALSE, 0))
+	{
+		CHAR szBuf[80];
+		DWORD dw = GetLastError();
+
+		sprintf(szBuf, "%s:%s failed: GetLastError returned %u\n",
+				"ipserver.c", "DuplicateHandle(server_proc)", dw);
+		gds__log(szBuf);
+	}
+	if (!DuplicateHandle(server_proc,
+						 server_proc,
+						 comm->ips_client_proc,
+						 &comm->ips_server_proc, SYNCHRONIZE, FALSE, 0))
+	{
+		CHAR szBuf[80];
+		DWORD dw = GetLastError();
+
+		sprintf(szBuf, "%s:%s failed: GetLastError returned %u\n",
+				"ipserver.c", "DuplicateHandle(ips_server_proc)", dw);
+		gds__log(szBuf);
+		comm->ips_server_proc = 0;
+	}
+
+	CloseHandle(server_proc);
+
+	/* create the semaphores and put the handles into the icc */
+
+	sprintf(name_buffer, IPI_CLIENT_SEM_NAME, mapped_area, mapped_position);
+	icc->icc_client_sem =
+		CreateSemaphore(ISC_get_security_desc(), 0L, 1L, name_buffer);
+	sprintf(name_buffer, IPI_SERVER_SEM_NAME, mapped_area, mapped_position);
+	icc->icc_server_sem =
+		CreateSemaphore(ISC_get_security_desc(), 0L, 1L, name_buffer);
+
+	/* make sure semaphores are "empty" */
+
+	while (WaitForSingleObject(icc->icc_client_sem, (DWORD) 1) ==
+		   WAIT_OBJECT_0);
+	while (WaitForSingleObject(icc->icc_server_sem, (DWORD) 1) ==
+		   WAIT_OBJECT_0);
+
+	/* initialize wait for multiple objects array */
+
+	icc->icc_waits[0] = icc->icc_server_sem;
+	icc->icc_waits[1] = icc->icc_client_proc;
+
+	/* finally, start the thread for this client */
+
+	gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR > (ipi_server),
+					  icc, THREAD_medium, 0, 0);
+
+	/* return combined mapped area and number */
+
+#ifdef  IP_TRACE
+	gds__log("ipserver icc %8lX, comm %8lX", icc, comm);
+#endif
+
+	THD_mutex_unlock(&ipserver_private_data.ipics);
+	return IPS_PACK_PARAMS(ipserver_private_data.users_per_map, ipserver_private_data.pages_per_user, mapped_area,
+						   mapped_position);
+}
+
+
+static void ipi_end_thread( ICC icc)
+{
+/**************************************
+ *
+ *      i p i _ e n d _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *      End a thread's existence, close its handles,
+ *      free its slot and whatnot.
+ *
+ **************************************/
+	IPM ipm, pipm;
+
+
+	/* free up this thread's slot */
+
+	ipm = icc->icc_ipm;
+	THD_mutex_lock(&ipserver_private_data.ipics);
+	ipm->ipm_ids[icc->icc_slot] = 0;
+	ipm->ipm_count--;
+
+	/* if last slot was emptied, unmap and free structure, except
+	   for the first map, which is always retained */
+
+	if (!ipm->ipm_count && ipm != ipserver_private_data.first_ipm)
+	{
+		UnmapViewOfFile(ipm->ipm_address);
+		CloseHandle(ipm->ipm_handle);
+		if (ipserver_private_data.ipms == ipm)
+			ipserver_private_data.ipms = ipm->ipm_next;
+		else
+			for (pipm = ipserver_private_data.ipms; pipm->ipm_next; pipm = pipm->ipm_next)
+				if (pipm->ipm_next == ipm)
+				{
+					pipm->ipm_next = ipm->ipm_next;
+					break;
+				}
+		ALLI_free((UCHAR *) ipm);
+	}
+
+	/* close handles for semaphores */
+
+	CloseHandle(icc->icc_client_sem);
+	CloseHandle(icc->icc_server_sem);
+	CloseHandle(icc->icc_client_proc);
+	ALLI_release((BLK) icc);
+	THD_mutex_unlock(&ipserver_private_data.ipics);
+}
+
+
+static void ipi_server( ICC icc)
+{
+/**************************************
+ *
+ *      i p i _ s e r v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Main entrypoint of server.
+ *
+ **************************************/
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+	JMP_BUF env;
+#ifdef  IP_TRACE
+	char line[200];
+#endif
+
+	/* start this thread */
+
+	gds__thread_enable(-1);
+
+	/* error handler */
+
+	if (SETJMP(env))
+	{
+		gds__log("ipi_server: error during startup, shutting down");
+		return;
+	}
+
+	/* request processing loop */
+
+	while (!(icc->icc_flags & ICCF_SHUTDOWN))
+	{
+		if (!wait_no_send(icc))
+			break;
+		GET_COMM_OBJECT;
+		comm->ips_ops_count++;
+#ifdef  IP_TRACE
+		sprintf(line, "%8lX %8lX %8lX %d ipserver %s",
+				(long) GetCurrentThreadId(), (long) icc,
+				comm, comm->ips_operation, op_strings[comm->ips_operation]);
+		gds__log(line);
+#endif
+		switch (comm->ips_operation)
+		{
+		case op_attach:
+		case op_create:
+			attach_database(icc, static_cast<P_OP>(comm->ips_operation));
+			break;
+
+		case op_cancel_events:
+			cancel_events(icc);
+			break;
+
+		case op_compile:
+			compile(icc);
+			break;
+
+		case op_ddl:
+			ddl(icc);
+			break;
+
+		case op_receive:
+			receive_msg(icc);
+			break;
+
+		case op_seek_blob:
+			seek_blob(icc);
+			break;
+
+		case op_send:
+			send_msg(icc);
+			break;
+
+		case op_start:
+			start(icc);
+			break;
+
+		case op_start_and_send:
+			start_and_send(icc);
+			break;
+
+		case op_transact_request:
+			transact_request(icc);
+			break;
+
+		case op_transaction:
+			start_transaction(icc);
+			break;
+
+		case op_rollback:
+		case op_commit:
+		case op_commit_retaining:
+		case op_rollback_retaining:
+		case op_prepare2:
+			end_transaction(icc, static_cast < P_OP > (comm->ips_operation));
+			break;
+
+		case op_detach:
+			end_database(icc);
+			break;
+
+		case op_drop_database:
+			drop_database(icc);
+			break;
+
+		case op_create_blob:
+		case op_open_blob:
+		case op_create_blob2:
+		case op_open_blob2:
+			open_blob(icc, static_cast < P_OP > (comm->ips_operation));
+			break;
+
+		case op_put_segment:
+			put_segment(icc);
+			break;
+
+		case op_get_segment:
+			get_segment(icc);
+			break;
+
+		case op_cancel_blob:
+		case op_close_blob:
+			end_blob(icc, static_cast < P_OP > (comm->ips_operation));
+			break;
+
+		case op_release:
+			end_request(icc);
+			break;
+
+		case op_que_events:
+			que_events(icc);
+			break;
+
+		case op_unwind:
+			unwind(icc);
+			break;
+
+		case op_reconnect:
+			reconnect(icc);
+			break;
+
+		case op_info_blob:
+		case op_info_request:
+		case op_info_database:
+		case op_info_transaction:
+		case op_info_sql:
+		case op_service_info:
+			info(icc, static_cast < P_OP > (comm->ips_operation));
+			break;
+
+		case op_get_slice:
+			get_slice(icc);
+			break;
+
+		case op_put_slice:
+			put_slice(icc);
+			break;
+
+		case op_allocate_stmt:
+			allocate_statement(icc);
+			break;
+
+		case op_execute:
+		case op_execute2:
+			execute_statement(icc,
+							  static_cast < P_OP > (comm->ips_operation));
+			break;
+
+		case op_exec_immediate:
+		case op_exec_immediate2:
+			execute_immediate(icc,
+							  static_cast < P_OP > (comm->ips_operation));
+			break;
+
+		case op_fetch:
+			fetch(icc);
+			break;
+
+		case op_free_stmt:
+			end_statement(icc);
+			break;
+
+		case op_insert:
+			insert(icc);
+			break;
+
+		case op_prepare_stmt:
+			prepare_statement(icc);
+			break;
+
+		case op_set_cursor:
+			set_cursor(icc);
+			break;
+
+		case op_service_attach:
+			service_attach(icc);
+			break;
+
+		case op_service_detach:
+			service_end(icc);
+			break;
+
+		case op_service_start:
+			service_start(icc);
+			break;
+
+		case op_disconnect:
+			icc->icc_flags |= ICCF_SHUTDOWN;
+			break;
+
+		default:
+			gds__log("Interprocess Server op code %d unknown\n",
+					 (int *) comm->ips_operation);
+			icc->icc_flags |= ICCF_SHUTDOWN;
+			break;
+		}
+	}
+
+	/* left loop, so shut down */
+
+	shutdown_attachments(icc);
+	ipi_end_thread(icc);
+}
+
+
+static void allocate_statement( ICC icc)
+{
+/**************************************
+ *
+ *      a l l o c a t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Allocate a statement handle.
+ *
+ **************************************/
+	IDB idb;
+	IPSERVER_ISR statement;
+	HANDLE handle;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	STATUS result;
+	ips_dsql *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_dsql;
+	idb = (IDB) ips->ips_db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	handle = NULL;
+
+	/* allocate the statement and create a structure */
+
+	result = GDS_DSQL_ALLOCATE(status_vector, &idb->idb_handle, &handle);
+	if (!result)
+	{
+		statement = (IPSERVER_ISR) ALLOC(type_ipserver_isr);
+		ips->ips_st_handle = (UCHAR *) statement;
+		NOT_NULL(statement, TRUE);
+		statement->isr_handle = handle;
+		statement->isr_idb = idb;
+		statement->isr_next = idb->idb_sql_requests;
+		statement->isr_batch_flag = 0;
+		statement->isr_max_recs = 0;
+		statement->isr_packed = NULL;
+		idb->idb_sql_requests = statement;
+	}
+	else
+		ips->ips_st_handle = NULL;
+	send_response(icc, status_vector);
+}
+
+
+static void attach_database( ICC icc, P_OP operation)
+{
+/**************************************
+ *
+ *      a t t a c h _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Process an attach or create packet.
+ *
+ **************************************/
+	USHORT file_length, dpb_length, expanded_length;
+	UCHAR *file_name, file_buf[256], *dpb, dpb_buf[256];
+	UCHAR *expanded, expanded_buf[256];
+	HANDLE handle;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	STATUS result;
+	IDB idb;
+	ips_object *ips;
+	ips_string *ips_name;
+	ips_string *ips_dpb;
+	ips_string *ips_expanded;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_object;
+
+	/* figure out file name buffer */
+
+	ips_name = &comm->ips_buffers[IPS_ATTACH_NAME];
+	file_length = (USHORT) ips_name->ips_cl_size;
+	if (file_length <= sizeof(file_buf))
+		file_name = file_buf;
+	else
+		file_name = get_buffer(comm, file_length, IPS_ATTACH_NAME);
+	NOT_NULL(file_name, TRUE);
+	IPS_SERVER(comm, IPS_ATTACH_NAME, file_name, file_length);
+
+	/* figure out dpb buffer */
+
+	ips_dpb = &comm->ips_buffers[IPS_ATTACH_DPB];
+	dpb_length = (USHORT) ips_dpb->ips_cl_size;
+	if (dpb_length <= sizeof(dpb_buf))
+		dpb = dpb_buf;
+	else
+		dpb = get_buffer(comm, dpb_length, IPS_ATTACH_DPB);
+	NOT_NULL(dpb, dpb_length);
+	IPS_SERVER(comm, IPS_ATTACH_DPB, dpb, dpb_length);
+
+	/* figure out expanded file name buffer */
+
+	ips_expanded = &comm->ips_buffers[IPS_ATTACH_EXPANDED];
+	expanded_length = (USHORT) ips_expanded->ips_cl_size;
+	if (expanded_length <= sizeof(expanded_buf))
+		expanded = expanded_buf;
+	else
+		expanded = get_buffer(comm, expanded_length, IPS_ATTACH_EXPANDED);
+	NOT_NULL(expanded, expanded_length);
+	IPS_SERVER(comm, IPS_ATTACH_EXPANDED, expanded, expanded_length);
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* get handle */
+
+	handle = NULL;
+	if (operation == op_attach)
+		result = GDS_ATTACH_DATABASE(status_vector,
+									 file_length,
+									 reinterpret_cast < char *>(file_name),
+									 GDS_REF(handle),
+									 dpb_length,
+									 reinterpret_cast < char *>(dpb));
+	else
+		result = GDS_CREATE_DATABASE(status_vector,
+									 file_length,
+									 reinterpret_cast < char *>(file_name),
+									 GDS_REF(handle),
+									 dpb_length,
+									 reinterpret_cast < char *>(dpb), 0);
+
+	/* allocate structure and return handle */
+
+	if (!result)
+	{
+		idb = (IDB) ALLOC(type_idb);
+		ips->ips_handle = (UCHAR *) idb;
+		NOT_NULL(idb, TRUE);
+		idb->idb_flags = IDBF_DATABASE_ATTACHMENT;
+		idb->idb_handle = handle;
+		idb->idb_next = icc->icc_databases;
+		icc->icc_databases = idb;
+	}
+	else
+		ips->ips_handle = NULL;
+	send_response(icc, status_vector);
+}
+
+
+static void cancel_events( ICC icc)
+{
+/**************************************
+ *
+ *      c a n c e l _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Cancel an outstanding event call.
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	IDB idb;
+	IVNT event;
+	SLONG id;
+	ips_object *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_object;
+	idb = (IDB) ips->ips_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	id = ips->ips_parameter;
+
+	/* perform operation, return response and remove event */
+
+	GDS_CANCEL_EVENTS(status_vector, GDS_REF(idb->idb_handle), GDS_REF(id));
+	for (event = idb->idb_events; event; event = event->ivnt_next)
+	{
+		if (event->ivnt_ast && event->ivnt_id == id)
+		{
+			event->ivnt_ast = NULL;
+			event->ivnt_id = 0;
+			break;
+		}
+	}
+	send_response(icc, status_vector);
+}
+
+
+static USHORT check_statement_type( IPSERVER_ISR statement)
+{
+/**************************************
+ *
+ *      c h e c k _ s t a t e m e n t _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Return the type of SQL statement.
+ *
+ **************************************/
+	UCHAR buffer[16], *info;
+	USHORT l, type;
+	STATUS local_status[ISC_STATUS_LENGTH];
+	STATUS result;
+	USHORT ret;
+	BOOLEAN done;
+
+
+	/* init to no batch allowed */
+
+	ret = 0;
+	done = FALSE;
+	result = GDS_DSQL_SQL_INFO(local_status,
+							   &statement->isr_handle,
+							   sizeof(sql_info),
+							   reinterpret_cast < char *>(sql_info),
+							   sizeof(buffer),
+							   reinterpret_cast < char *>(buffer));
+	if (!result)
+	{
+		/* check the buffer for a batch fetch flag */
+
+		for (info = buffer; (*info != isc_info_end) && !done;)
+		{
+			l = (USHORT)isc_vax_integer(reinterpret_cast<char*>(info + 1),
+										 2);
+			type = (USHORT)isc_vax_integer(reinterpret_cast<char*>(info + 3),
+										 l);
+			switch (*info)
+			{
+			case isc_info_sql_batch_fetch:
+				ret = type;
+				done = TRUE;
+				break;
+
+			case isc_info_error:
+			case isc_info_truncated:
+				done = TRUE;
+				break;
+			}
+			info += 3 + l;
+		}
+	}
+	return ret;
+}
+
+
+static void compile( ICC icc)
+{
+/**************************************
+ *
+ *      c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Compile a request.
+ *
+ **************************************/
+	IDB idb;
+	IRQ request;
+	USHORT blr_length;
+	UCHAR *blr;
+	HANDLE handle;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	STATUS result;
+	ips_compile_req *ips;
+	ips_string *ips_blr;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_compile;
+	idb = (IDB) ips->ips_db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* set up blr buffer */
+
+	ips_blr = &comm->ips_buffers[IPS_COMPILE_REQ];
+	blr_length = (USHORT) ips_blr->ips_cl_size;
+	blr = get_buffer(comm, blr_length, IPS_COMPILE_REQ);
+	NOT_NULL(blr, blr_length);
+	IPS_SERVER(comm, IPS_COMPILE_REQ, blr, blr_length);
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* compile and get handle */
+
+	handle = NULL;
+	result = GDS_COMPILE(status_vector,
+						 GDS_REF(idb->idb_handle),
+						 GDS_REF(handle),
+						 blr_length,
+						 reinterpret_cast < char *>(GDS_VAL(blr)));
+
+	/* create data structure and return handle */
+
+	if (!result)
+	{
+		request = (IRQ) ALLOC(type_irq);
+		ips->ips_rq_handle = (UCHAR *) request;
+		NOT_NULL(request, TRUE);
+		request->irq_handle = handle;
+		request->irq_idb = idb;
+		request->irq_next = idb->idb_requests;
+		idb->idb_requests = request;
+	}
+	else
+		ips->ips_rq_handle = NULL;
+	send_response(icc, status_vector);
+}
+
+
+static void ddl( ICC icc)
+{
+/**************************************
+ *
+ *      d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *      Pass thru a DDL call.
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ITR transaction;
+	IDB idb;
+	UCHAR *buffer;
+	USHORT length;
+	ips_ddl *ips;
+	ips_string *ips_ddl_string;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_ddl;
+	idb = (IDB) ips->ips_db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = (ITR) ips->ips_tr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+
+	/* set up ddl buffer */
+
+	ips_ddl_string = &comm->ips_buffers[IPS_DDL_DDL];
+	length = (USHORT) ips_ddl_string->ips_cl_size;
+	buffer = get_buffer(comm, length, IPS_DDL_DDL);
+	NOT_NULL(buffer, length);
+	IPS_SERVER(comm, IPS_DDL_DDL, buffer, length);
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* perform operation and return response */
+
+	GDS_DDL(status_vector,
+			GDS_REF(idb->idb_handle),
+			GDS_REF(transaction->itr_handle),
+			length, reinterpret_cast < char *>(GDS_VAL(buffer)));
+	send_response(icc, status_vector);
+}
+
+
+static void drop_database( ICC icc)
+{
+/**************************************
+ *
+ *      d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      End a request.
+ *
+ **************************************/
+	IDB idb, *ptr;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	STATUS code;
+	ips_object *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_object;
+	idb = (IDB) ips->ips_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* drop database, release resources and send response */
+
+	code = GDS_DROP_DATABASE(status_vector, &idb->idb_handle);
+	send_response(icc, status_vector);
+	if (!code || (code == isc_drdb_completed_with_errs))
+	{
+		while (idb->idb_events)
+			release_event(idb->idb_events);
+		while (idb->idb_requests)
+			release_request(idb->idb_requests);
+		while (idb->idb_sql_requests)
+			release_sql_request(idb->idb_sql_requests);
+		while (idb->idb_transactions)
+			release_transaction(idb->idb_transactions);
+		for (ptr = &icc->icc_databases; *ptr; ptr = &(*ptr)->idb_next)
+		{
+			if (*ptr == idb)
+			{
+				*ptr = idb->idb_next;
+				break;
+			}
+		}
+		ALLI_release((BLK) idb);
+	}
+}
+
+
+static void end_blob( ICC icc, P_OP operation)
+{
+/**************************************
+ *
+ *      e n d _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      End a blob.
+ *
+ **************************************/
+	IBL blob;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	UCHAR *buffer;
+	USHORT length;
+	ips_object *ips;
+	ips_string *ips_seg;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_object;
+	blob = (IBL) ips->ips_handle;
+	CHECK_HANDLE(blob, type_ibl, isc_bad_segstr_handle);
+
+	/* set up buffer for last segment, if any */
+
+	ips_seg = &comm->ips_buffers[IPS_CLOSE_BLOB_REM];
+	length = (USHORT) ips_seg->ips_cl_size;
+	if (length)
+	{
+		buffer = get_buffer(comm, length, IPS_CLOSE_BLOB_REM);
+		NOT_NULL(buffer, length);
+		IPS_SERVER(comm, IPS_CLOSE_BLOB_REM, buffer, length);
+		if (!transfer_buffers(icc, comm))
+			return;
+	}
+
+	/* perform operation, send response and free resources */
+
+	if (operation == op_close_blob)
+		GDS_CLOSE_BLOB(status_vector, GDS_REF(blob->ibl_handle));
+	else
+		GDS_CANCEL_BLOB(status_vector, GDS_REF(blob->ibl_handle));
+	send_response(icc, status_vector);
+	release_blob(blob);
+}
+
+
+static void end_database( ICC icc)
+{
+/**************************************
+ *
+ *      e n d _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      End a request.
+ *
+ **************************************/
+	IDB idb, *ptr;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	STATUS result;
+	ips_object *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_object;
+	idb = (IDB) ips->ips_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* detach database, send response and free resources */
+
+	result = GDS_DETACH(status_vector, GDS_REF(idb->idb_handle));
+	send_response(icc, status_vector);
+	if (!result)
+	{
+		while (idb->idb_events)
+			release_event(idb->idb_events);
+		while (idb->idb_requests)
+			release_request(idb->idb_requests);
+		while (idb->idb_sql_requests)
+			release_sql_request(idb->idb_sql_requests);
+		while (idb->idb_transactions)
+			release_transaction(idb->idb_transactions);
+		for (ptr = &icc->icc_databases; *ptr; ptr = &(*ptr)->idb_next)
+		{
+			if (*ptr == idb)
+			{
+				*ptr = idb->idb_next;
+				break;
+			}
+		}
+		ALLI_release((BLK) idb);
+	}
+}
+
+
+static void end_request( ICC icc)
+{
+/**************************************
+ *
+ *      e n d _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      End a request.
+ *
+ **************************************/
+	IRQ request;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_object *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_object;
+	request = (IRQ) ips->ips_handle;
+	CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+
+	/* process call, respond and free resources */
+
+	GDS_RELEASE_REQUEST(status_vector, GDS_REF(request->irq_handle));
+	send_response(icc, status_vector);
+	release_request(request);
+}
+
+
+static void end_statement( ICC icc)
+{
+/**************************************
+ *
+ *      e n d _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Free a dynamic statement.
+ *
+ **************************************/
+	IPSERVER_ISR statement;
+	USHORT option;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_object *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_object;
+	statement = (IPSERVER_ISR) ips->ips_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_stmt_handle);
+	option = (USHORT) ips->ips_parameter;
+
+/* free statement, return response and free resources */
+
+	GDS_DSQL_FREE(status_vector, &statement->isr_handle, option);
+
+	if (statement->isr_handle)
+	{
+		ips->ips_handle = (UCHAR *) statement;
+		send_response(icc, status_vector);
+	}
+	else
+	{
+		ips->ips_handle = (UCHAR *) NULL;
+		send_response(icc, status_vector);
+		release_sql_request(statement);
+	}
+}
+
+
+static void end_transaction( ICC icc, P_OP operation)
+{
+/**************************************
+ *
+ *      e n d _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      End a transaction.
+ *
+ **************************************/
+	ITR transaction;
+	UCHAR *msg;
+	USHORT msg_length;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	STATUS result;
+	ips_object *ips;
+	ips_string *ips_prep;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_object;
+	transaction = (ITR) ips->ips_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+
+	/* set up buffer for prepare2 */
+
+	if (operation == op_prepare2)
+	{
+		ips_prep = &comm->ips_buffers[IPS_PREPARE_TRANS];
+		msg_length = (USHORT) ips_prep->ips_cl_size;
+		msg = get_buffer(comm, msg_length, IPS_PREPARE_TRANS);
+		NOT_NULL(msg, msg_length);
+		IPS_SERVER(comm, IPS_PREPARE_TRANS, msg, msg_length);
+		if (!transfer_buffers(icc, comm))
+			return;
+	}
+
+	/* perform operation as required */
+
+	switch (operation)
+	{
+	case op_commit:
+		result = GDS_COMMIT(status_vector, GDS_REF(transaction->itr_handle));
+		if (!result)
+			release_transaction(transaction);
+		break;
+
+	case op_rollback:
+		result = GDS_ROLLBACK(status_vector,
+							  GDS_REF(transaction->itr_handle));
+		if (!result)
+			release_transaction(transaction);
+		break;
+
+	case op_commit_retaining:
+		result = GDS_COMMIT_RETAINING(status_vector,
+									  GDS_REF(transaction->itr_handle));
+		break;
+
+	case op_rollback_retaining:
+		result = GDS_ROLLBACK_RETAINING(status_vector,
+										GDS_REF(transaction->itr_handle));
+		break;
+
+	case op_prepare2:
+		result = GDS_PREPARE2(status_vector,
+							  GDS_REF(transaction->itr_handle),
+							  msg_length,
+							  reinterpret_cast<UCHAR*>(GDS_VAL(msg)));
+		if (!result)
+			transaction->itr_flags |= ITR_limbo;
+		break;
+	}
+	send_response(icc, status_vector);
+}
+
+
+static void event_ast( IVNT event, USHORT length, UCHAR * data)
+{
+/**************************************
+ *
+ *      e v e n t _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Send off event stuff.
+ *
+ **************************************/
+	COPYDATASTRUCT cpdata;
+	ULONG result;
+
+
+	if (!event->ivnt_ast)
+		return;
+	cpdata.dwData = (DWORD) event->ivnt_id;
+	cpdata.cbData = (DWORD) length;
+	cpdata.lpData = (LPVOID) data;
+	result =
+		SendMessage(event->ivnt_window, WM_COPYDATA, (WPARAM) IPSVR_window,
+					(LPARAM) & cpdata);
+	event->ivnt_ast = NULL;
+}
+
+
+static void execute_immediate( ICC icc, P_OP operation)
+{
+/**************************************
+ *
+ *      e x e c u t e _ i m m e d i a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Prepare and execute a statement.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	HANDLE handle;
+	USHORT length, dialect, in_blr_length, in_msg_type, in_msg_length,
+		out_blr_length, out_msg_type, out_msg_length, parser_version;
+	UCHAR *string, *in_blr, *in_msg, *out_blr, *out_msg;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_dsql *ips;
+	ips_string *ips_blr;
+	ips_string *ips_msg;
+	ips_string *ips_sql;
+	ips_string *ips_blr_out;
+	ips_string *ips_msg_out;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_dsql;
+	idb = (IDB) ips->ips_db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = (ITR) ips->ips_tr_handle;
+	if (transaction)
+	{
+		CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+		handle = transaction->itr_handle;
+	}
+	else
+		handle = NULL;
+	in_msg_type = ips->ips_msg_type;
+	dialect = (USHORT) ips->ips_parameter;
+
+	/* set up sql */
+
+	ips_sql = &comm->ips_buffers[IPS_DSQL_EXEC_IMMED_SQL];
+	length = (USHORT) ips_sql->ips_cl_size;
+	string = get_buffer(comm, length, IPS_DSQL_EXEC_IMMED_SQL);
+	NOT_NULL(string, length);
+	IPS_SERVER(comm, IPS_DSQL_EXEC_IMMED_SQL, string, length);
+
+	/* set up blr */
+
+	ips_blr = &comm->ips_buffers[IPS_DSQL_EXEC_IMMED_BLR];
+	in_blr_length = (USHORT) ips_blr->ips_cl_size;
+	in_blr = get_buffer(comm, in_blr_length, IPS_DSQL_EXEC_IMMED_BLR);
+	NOT_NULL(in_blr, in_blr_length);
+	IPS_SERVER(comm, IPS_DSQL_EXEC_IMMED_BLR, in_blr, in_blr_length);
+
+	/* set up message */
+
+	ips_msg = &comm->ips_buffers[IPS_DSQL_EXEC_IMMED_MSG];
+	in_msg_length = (USHORT) ips_msg->ips_cl_size;
+	in_msg = get_buffer(comm, in_msg_length, IPS_DSQL_EXEC_IMMED_MSG);
+	NOT_NULL(in_msg, in_msg_length);
+	IPS_SERVER(comm, IPS_DSQL_EXEC_IMMED_MSG, in_msg, in_msg_length);
+
+	/* set up output message and blr if necessary */
+
+	if (operation == op_exec_immediate2)
+	{
+		out_msg_type = ips->ips_msg_out;
+		ips_blr_out = &comm->ips_buffers[IPS_DSQL_EXEC_IMMED2_BLR_OUT];
+		out_blr_length = (USHORT) ips_blr_out->ips_cl_size;
+		out_blr =
+			get_buffer(comm, out_blr_length, IPS_DSQL_EXEC_IMMED2_BLR_OUT);
+		NOT_NULL(out_blr, out_blr_length);
+		IPS_SERVER(comm, IPS_DSQL_EXEC_IMMED2_BLR_OUT, out_blr,
+				   out_blr_length);
+		ips_msg_out = &comm->ips_buffers[IPS_DSQL_EXEC_IMMED2_MSG_OUT];
+		out_msg_length = (USHORT) ips_msg_out->ips_cl_size;
+		out_msg =
+			get_buffer(comm, out_msg_length, IPS_DSQL_EXEC_IMMED2_MSG_OUT);
+		NOT_NULL(out_msg, out_msg_length);
+		IPS_SERVER(comm, IPS_DSQL_EXEC_IMMED2_MSG_OUT, out_msg,
+				   out_msg_length);
+	}
+	else
+	{
+		out_blr_length = out_msg_type = out_msg_length = 0;
+		out_blr = out_msg = NULL;
+	}
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* NT Local access:  Client and server are always the same version */
+	/* Since the API to GDS_DSQL_EXECUTE_IMMED is public and can not be changed, there needs to
+	 * be a way to send the parser version to DSQL so that the parser can compare the keyword
+	 * version to the parser version.  To accomplish this, the parser version is combined with
+	 * the client dialect and sent across that way.  In dsql8_execute_immediate, the parser version
+	 * and client dialect are separated and passed on to their final desintations.  The information
+	 * is combined as follows:
+	 *     Dialect * 10 + parser_version
+	 *
+	 * and is extracted in dsql8_execute_immediate as follows:
+	 *      parser_version = ((dialect *10)+parser_version)%10
+	 *      client_dialect = ((dialect *10)+parser_version)/10
+	 *
+	 * For example, parser_version = 1 and client dialect = 1
+	 *
+	 *  combined = (1 * 10) + 1 == 11
+	 *
+	 *  parser = (combined) %10 == 1
+	 *  dialect = (combined) / 19 == 1
+	 */
+
+	parser_version = 2;
+
+	/* execute the statement, respond and clean up */
+
+	GDS_DSQL_EXECUTE_IMMED(status_vector,
+						   &idb->idb_handle,
+						   &handle,
+						   length,
+						   reinterpret_cast < char *>(string),
+						   (USHORT) ((dialect * 10) + parser_version),
+						   in_blr_length,
+						   reinterpret_cast < char *>(in_blr),
+						   in_msg_type,
+						   in_msg_length,
+						   reinterpret_cast < char *>(in_msg),
+						   out_blr_length,
+						   reinterpret_cast < char *>(out_blr),
+						   out_msg_type,
+						   out_msg_length,
+						   reinterpret_cast < char *>(out_msg));
+	if (transaction && !handle)
+	{
+		release_transaction(transaction);
+		transaction = NULL;
+	}
+	else if (!transaction && handle)
+	{
+		transaction = make_transaction(idb, handle);
+		NOT_NULL(transaction, TRUE);
+	}
+	ips->ips_tr_handle = (UCHAR *) transaction;
+	send_response(icc, status_vector);
+}
+
+
+static void execute_statement( ICC icc, P_OP operation)
+{
+/**************************************
+ *
+ *      e x e c u t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+	ITR transaction;
+	IPSERVER_ISR statement;
+	HANDLE handle;
+	USHORT in_blr_length, in_msg_type, in_msg_length,
+		out_blr_length, out_msg_type, out_msg_length;
+	UCHAR *in_blr, *in_msg, *out_blr, *out_msg;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_dsql *ips;
+	ips_string *ips_blr;
+	ips_string *ips_msg;
+	ips_string *ips_blr_out;
+	ips_string *ips_msg_out;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_dsql;
+	transaction = (ITR) ips->ips_tr_handle;
+	if (transaction)
+	{
+		CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+		handle = transaction->itr_handle;
+	}
+	else
+		handle = NULL;
+	statement = (IPSERVER_ISR) ips->ips_st_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_stmt_handle);
+	in_msg_type = ips->ips_msg_type;
+
+	/* set up blr */
+
+	ips_blr = &comm->ips_buffers[IPS_DSQL_EXEC_BLR];
+	in_blr_length = (USHORT) ips_blr->ips_cl_size;
+	in_blr = get_buffer(comm, in_blr_length, IPS_DSQL_EXEC_BLR);
+	NOT_NULL(in_blr, in_blr_length);
+	IPS_SERVER(comm, IPS_DSQL_EXEC_BLR, in_blr, in_blr_length);
+
+	/* set up message */
+
+	ips_msg = &comm->ips_buffers[IPS_DSQL_EXEC_MSG];
+	in_msg_length = (USHORT) ips_msg->ips_cl_size;
+	in_msg = get_buffer(comm, in_msg_length, IPS_DSQL_EXEC_MSG);
+	NOT_NULL(in_msg, in_msg_length);
+	IPS_SERVER(comm, IPS_DSQL_EXEC_MSG, in_msg, in_msg_length);
+
+	/* set up output message and blr if necessary */
+
+	if (operation == op_execute2)
+	{
+		out_msg_type = ips->ips_msg_out;
+		ips_blr_out = &comm->ips_buffers[IPS_DSQL_EXEC2_BLR_OUT];
+		out_blr_length = (USHORT) ips_blr_out->ips_cl_size;
+		out_blr = get_buffer(comm, out_blr_length, IPS_DSQL_EXEC2_BLR_OUT);
+		NOT_NULL(out_blr, out_blr_length);
+		IPS_SERVER(comm, IPS_DSQL_EXEC2_BLR_OUT, out_blr, out_blr_length);
+		ips_msg_out = &comm->ips_buffers[IPS_DSQL_EXEC2_MSG_OUT];
+		out_msg_length = (USHORT) ips_msg_out->ips_cl_size;
+		out_msg = get_buffer(comm, out_msg_length, IPS_DSQL_EXEC2_MSG_OUT);
+		NOT_NULL(out_msg, out_msg_length);
+		IPS_SERVER(comm, IPS_DSQL_EXEC2_MSG_OUT, out_msg, out_msg_length);
+	}
+	else
+	{
+		out_blr_length = out_msg_type = out_msg_length = 0;
+		out_blr = out_msg = NULL;
+	}
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* execute, get results and clean up */
+
+	GDS_DSQL_EXECUTE(status_vector,
+					 &handle,
+					 &statement->isr_handle,
+					 in_blr_length,
+					 reinterpret_cast < char *>(in_blr),
+					 in_msg_type,
+					 in_msg_length,
+					 reinterpret_cast < char *>(in_msg),
+					 out_blr_length,
+					 reinterpret_cast < char *>(out_blr),
+					 out_msg_type,
+					 out_msg_length, reinterpret_cast < char *>(out_msg));
+	if (transaction && !handle)
+	{
+		release_transaction(transaction);
+		transaction = NULL;
+	}
+	else if (!transaction && handle)
+	{
+		transaction = make_transaction(statement->isr_idb, handle);
+		NOT_NULL(transaction, TRUE);
+	}
+	ips->ips_tr_handle = (UCHAR *) transaction;
+	send_response(icc, status_vector);
+}
+
+
+static void fetch( ICC icc)
+{
+/**************************************
+ *
+ *      f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *      Fetch next record from a dynamic SQL cursor.
+ *
+ **************************************/
+	IPSERVER_ISR statement;
+	USHORT records, total_length, blr_length, msg_type, msg_length;
+	UCHAR *blr, *msg;
+	STATUS s, status_vector[ISC_STATUS_LENGTH];
+	ips_dsql *ips;
+	ips_string *ips_blr;
+	ips_string *ips_msg;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_dsql;
+	statement = (IPSERVER_ISR) ips->ips_st_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_stmt_handle);
+	msg_type = ips->ips_msg_type;
+
+	/* set up blr */
+
+	ips_blr = &comm->ips_buffers[IPS_DSQL_FETCH_BLR];
+	blr_length = (USHORT) ips_blr->ips_cl_size;
+	blr = get_buffer(comm, blr_length, IPS_DSQL_FETCH_BLR);
+	NOT_NULL(blr, blr_length);
+	IPS_SERVER(comm, IPS_DSQL_FETCH_BLR, blr, blr_length);
+
+	/* set up message */
+
+	ips_msg = &comm->ips_buffers[IPS_DSQL_FETCH_MSG];
+	total_length = (USHORT) ips_msg->ips_cl_size;
+	msg_length = total_length / ips->ips_rec_count;
+	msg = get_buffer(comm, total_length, IPS_DSQL_FETCH_MSG);
+	NOT_NULL(msg, msg_length);
+	IPS_SERVER(comm, IPS_DSQL_FETCH_MSG, msg, total_length);
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* pack in records, keeping final result of operation for eof */
+
+	for (records = 0; records < ips->ips_rec_count; records++)
+	{
+		s = GDS_DSQL_FETCH(status_vector,
+						   &statement->isr_handle,
+						   blr_length,
+						   reinterpret_cast < char *>(blr),
+						   msg_type,
+						   msg_length, reinterpret_cast < char *>(msg));
+
+		/* point to next packed record */
+
+		msg += msg_length;
+		if (s)
+			break;
+	}
+	ips->ips_rec_count = records;
+	ips->ips_parameter = s;
+	send_response(icc, status_vector);
+}
+
+
+static UCHAR *get_buffer( IPS comm, USHORT length, USHORT n)
+{
+/**************************************
+ *
+ *      g e t _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get a buffer "big enough".
+ *
+ **************************************/
+
+	if (comm->ips_buffers[n].ips_sv_alloced < length)
+	{
+		if (comm->ips_buffers[n].ips_sv_buffer)
+			gds__sys_free(comm->ips_buffers[n].ips_sv_buffer);
+		comm->ips_buffers[n].ips_sv_alloced = length;
+		comm->ips_buffers[n].ips_sv_buffer = gds__sys_alloc((SLONG) length);
+	}
+
+	/* Make sure that the buffer returned is empty */
+	if (comm->ips_buffers[n].ips_sv_buffer)
+		memset(comm->ips_buffers[n].ips_sv_buffer, 0,
+			   comm->ips_buffers[n].ips_sv_alloced);
+
+	return comm->ips_buffers[n].ips_sv_buffer;
+}
+
+
+static void get_segment( ICC icc)
+{
+/**************************************
+ *
+ *      g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get a single blob segment.
+ *
+ **************************************/
+	IBL blob;
+	USHORT buffer_length, length;
+	UCHAR *buffer;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_segment *ips;
+	ips_string *ips_seg;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_segment;
+	blob = (IBL) ips->ips_bl_handle;
+	CHECK_HANDLE(blob, type_ibl, isc_bad_segstr_handle);
+
+	/* set up segment buffer */
+
+	ips_seg = &comm->ips_buffers[IPS_BLOB_SEGMENT];
+	buffer_length = (USHORT) ips_seg->ips_cl_size;
+	buffer = get_buffer(comm, buffer_length, IPS_BLOB_SEGMENT);
+	NOT_NULL(buffer, buffer_length);
+	IPS_SERVER(comm, IPS_BLOB_SEGMENT, buffer, buffer_length);
+
+	/* get the segment data - return it regardless of result
+	 * as that is what the client side expects
+	 * isc_segment can be returned in the status vector,
+	 * but that the data is still valid.
+	 */
+
+	length = 0;
+	GDS_GET_SEGMENT(status_vector,
+					GDS_REF(blob->ibl_handle),
+					GDS_REF(length),
+					buffer_length,
+					reinterpret_cast < char *>(GDS_VAL(buffer)));
+	if (!transfer_buffers(icc, comm))
+		return;
+	ips->ips_length = length;
+	send_response(icc, status_vector);
+}
+
+
+static void get_slice( ICC icc)
+{
+/**************************************
+ *
+ *      g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get slice of array;
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	SSHORT sdl_length, param_length;
+	ULONG slice_length, return_length, *params, parameters[32];
+	UCHAR *sdl, sdl_buf[256], *slice;
+	struct bid array_id;
+	ips_slice *ips;
+	ips_string *ips_sdl;
+	ips_string *ips_parms;
+	ips_string *ips_data;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_slice;
+	idb = (IDB) ips->ips_db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = (ITR) ips->ips_tr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	array_id.bid_relation_id = ips->ips_rel_id;
+	array_id.bid_number = ips->ips_number;
+
+	/* set up sdl */
+
+	ips_sdl = &comm->ips_buffers[IPS_SLICE_SDL];
+	sdl_length = (SSHORT) ips_sdl->ips_cl_size;
+	if (sdl_length <= sizeof(sdl_buf))
+		sdl = sdl_buf;
+	else
+		sdl = get_buffer(comm, sdl_length, IPS_SLICE_SDL);
+	NOT_NULL(sdl, sdl_length);
+	IPS_SERVER(comm, IPS_SLICE_SDL, sdl, sdl_length);
+
+	/* set up parameters */
+
+	ips_parms = &comm->ips_buffers[IPS_SLICE_PARAM];
+	param_length = (SSHORT) ips_parms->ips_cl_size;
+	if (param_length <= sizeof(parameters))
+		params = parameters;
+	else
+		params = (ULONG *) get_buffer(comm, param_length, IPS_SLICE_PARAM);
+	NOT_NULL(params, param_length);
+	IPS_SERVER(comm, IPS_SLICE_PARAM, (UCHAR *) params, param_length);
+
+	/* set up slice data buffer */
+
+	ips_data = &comm->ips_buffers[IPS_SLICE_BUFFER];
+	slice_length = ips_data->ips_cl_size;
+	if (slice_length)
+	{
+		slice = gds__sys_alloc(slice_length);
+		NOT_NULL(slice, TRUE);
+		memset(slice, 0, slice_length);
+	}
+	else
+		slice = NULL;
+	IPS_SERVER(comm, IPS_SLICE_BUFFER, slice, slice_length);
+	if (!transfer_buffers(icc, comm))
+	{
+		if (slice)
+		{
+			gds__sys_free(slice);
+		}
+		return;
+	}
+
+	/* get and return slice */
+
+	GDS_GET_SLICE(status_vector,
+				  GDS_REF(idb->idb_handle),
+				  GDS_REF(transaction->itr_handle),
+				  (GDS_QUAD *) & array_id,
+				  sdl_length,
+				  reinterpret_cast < char *>(sdl),
+				  param_length,
+				  reinterpret_cast < long *>(params),
+				  slice_length,
+				  slice, reinterpret_cast < long *>(GDS_REF(return_length)));
+	ips->ips_length = return_length;
+	send_response(icc, status_vector);
+	if (slice)
+	{
+		gds__sys_free(slice);
+	}
+}
+
+
+static void info( ICC icc, P_OP operation)
+{
+/**************************************
+ *
+ *      i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *      Issue information.
+ *
+ **************************************/
+	HANDLE handle;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	USHORT item_length, recv_item_length, buffer_length, incarnation;
+	UCHAR *buffer, *items, *recv_items;
+	UCHAR items_buf[128], recv_items_buf[128];
+	IDB idb;
+	ITR transaction;
+	IBL blob;
+	IRQ request;
+	IPSERVER_ISR statement;
+	ips_object *ips;
+	ips_string *ips_items;
+	ips_string *ips_data;
+	ips_string *ips_rcv_items;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	comm->ips_operation = op_info_blob;
+	ips = &comm->ips_operations.ips_op_object;
+	handle = (HANDLE) ips->ips_handle;
+	if (operation == op_info_request)
+		incarnation = (USHORT) ips->ips_parameter;
+
+	/* set up items buffer */
+
+	ips_items = &comm->ips_buffers[IPS_INFO_ITEMS];
+	item_length = (USHORT) ips_items->ips_cl_size;
+	if (item_length <= sizeof(items_buf))
+		items = items_buf;
+	else
+		items = get_buffer(comm, item_length, IPS_INFO_ITEMS);
+	NOT_NULL(items, item_length);
+	IPS_SERVER(comm, IPS_INFO_ITEMS, items, item_length);
+
+	/* set up data buffer */
+
+	ips_data = &comm->ips_buffers[IPS_INFO_DATA];
+	buffer_length = (USHORT) ips_data->ips_cl_size;
+	buffer = get_buffer(comm, buffer_length, IPS_INFO_DATA);
+	NOT_NULL(buffer, buffer_length);
+	IPS_SERVER(comm, IPS_INFO_DATA, buffer, buffer_length);
+
+	/* set up receive items buffer if necessary */
+
+	if (operation == op_service_info)
+	{
+		ips_rcv_items = &comm->ips_buffers[IPS_QUERY_RECV_ITEMS];
+		recv_item_length = (USHORT) ips_rcv_items->ips_cl_size;
+		if (recv_item_length <= sizeof(recv_items_buf))
+			recv_items = recv_items_buf;
+		else
+			recv_items =
+				get_buffer(comm, recv_item_length, IPS_QUERY_RECV_ITEMS);
+		NOT_NULL(recv_items, recv_item_length);
+		IPS_SERVER(comm, IPS_QUERY_RECV_ITEMS, recv_items, recv_item_length);
+	}
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* perform operation */
+
+	switch (operation)
+	{
+	case op_info_database:
+		idb = (IDB) handle;
+		CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+		GDS_DATABASE_INFO(status_vector,
+						  GDS_REF(idb->idb_handle),
+						  item_length,
+						  reinterpret_cast < char *>(items),
+						  buffer_length,
+						  reinterpret_cast < char *>(GDS_VAL(buffer)));
+		break;
+
+	case op_info_blob:
+		blob = (IBL) handle;
+		CHECK_HANDLE(blob, type_ibl, isc_bad_segstr_handle);
+		GDS_BLOB_INFO(status_vector,
+					  GDS_REF(blob->ibl_handle),
+					  item_length,
+					  reinterpret_cast < char *>(items),
+					  buffer_length,
+					  reinterpret_cast < char *>(GDS_VAL(buffer)));
+		break;
+
+	case op_info_request:
+		request = (IRQ) handle;
+		CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+		GDS_REQUEST_INFO(status_vector,
+						 GDS_REF(request->irq_handle),
+						 incarnation,
+						 item_length,
+						 reinterpret_cast < char *>(items),
+						 buffer_length,
+						 reinterpret_cast < char *>(GDS_VAL(buffer)));
+		break;
+
+	case op_info_transaction:
+		transaction = (ITR) handle;
+		CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+		GDS_TRANSACTION_INFO(status_vector,
+							 GDS_REF(transaction->itr_handle),
+							 item_length,
+							 reinterpret_cast < char *>(items),
+							 buffer_length,
+							 reinterpret_cast < char *>(GDS_VAL(buffer)));
+		break;
+
+	case op_service_info:
+		idb = (IDB) handle;
+		CHECK_HANDLE(idb, type_idb, isc_bad_svc_handle);
+		GDS_SERVICE_QUERY(status_vector, &idb->idb_handle, 0,	/* reserved */
+						  item_length,
+						  reinterpret_cast < char *>(items),
+						  recv_item_length,
+						  reinterpret_cast < char *>(recv_items),
+						  buffer_length, reinterpret_cast < char *>(buffer));
+		break;
+
+	case op_info_sql:
+		statement = (IPSERVER_ISR) handle;
+		CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_stmt_handle);
+		GDS_DSQL_SQL_INFO(status_vector,
+						  &statement->isr_handle,
+						  item_length,
+						  reinterpret_cast < char *>(items),
+						  buffer_length, reinterpret_cast < char *>(buffer));
+		break;
+	}
+
+	/* return results */
+
+	send_response(icc, status_vector);
+}
+
+
+static void insert( ICC icc)
+{
+/**************************************
+ *
+ *      i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Insert next record into a dynamic SQL cursor.
+ *
+ **************************************/
+	IPSERVER_ISR statement;
+	USHORT blr_length, msg_type, msg_length;
+	UCHAR *blr, *msg;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_dsql *ips;
+	ips_string *ips_blr;
+	ips_string *ips_msg;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_dsql;
+	statement = (IPSERVER_ISR) ips->ips_st_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_stmt_handle);
+	msg_type = ips->ips_msg_type;
+
+	/* set up blr */
+
+	ips_blr = &comm->ips_buffers[IPS_DSQL_INSERT_BLR];
+	blr_length = (USHORT) ips_blr->ips_cl_size;
+	blr = get_buffer(comm, blr_length, IPS_DSQL_INSERT_BLR);
+	NOT_NULL(blr, blr_length);
+	IPS_SERVER(comm, IPS_DSQL_INSERT_BLR, blr, blr_length);
+
+	/* set up message */
+
+	ips_msg = &comm->ips_buffers[IPS_DSQL_INSERT_MSG];
+	msg_length = (USHORT) ips_msg->ips_cl_size;
+	msg = get_buffer(comm, msg_length, IPS_DSQL_INSERT_MSG);
+	NOT_NULL(msg, msg_length);
+	IPS_SERVER(comm, IPS_DSQL_INSERT_MSG, msg, msg_length);
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* insert the record and return */
+
+	GDS_DSQL_INSERT(status_vector,
+					&statement->isr_handle,
+					blr_length,
+					reinterpret_cast < char *>(blr),
+					msg_type, msg_length, reinterpret_cast < char *>(msg));
+	send_response(icc, status_vector);
+}
+
+
+static IPM make_map( USHORT map_number)
+{
+/**************************************
+ *
+ *      m a k e _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create a mapped file.   This
+ *      returns -
+ *          0 - mapped file already exists
+ *         -1 - mapping  or creation error
+ *      other - pointer to new structure
+ *
+ **************************************/
+	IPM ipm;
+	HANDLE map_handle;
+	LPVOID map_address;
+	USHORT i;
+	TEXT name_buffer[128];
+
+
+	/* create the mapped file name and try to open it */
+
+	sprintf(name_buffer, IPI_MAPPED_FILE_NAME, map_number);
+	map_handle = CreateFileMapping((HANDLE) 0xFFFFFFFF,
+								   ISC_get_security_desc(),
+								   PAGE_READWRITE,
+								   0L,
+								   IPS_MAPPED_SIZE(ipserver_private_data.users_per_map,
+												   ipserver_private_data.pages_per_user),
+								   name_buffer);
+	if (map_handle && GetLastError() == ERROR_ALREADY_EXISTS)
+		return NULL;
+	else if (!map_handle)
+		return (IPM) - 1;
+	map_address = MapViewOfFile(map_handle, FILE_MAP_WRITE, 0L, 0L,
+								IPS_MAPPED_SIZE(ipserver_private_data.users_per_map,
+												ipserver_private_data.pages_per_user));
+	if (!map_address)
+		return (IPM) - 1;
+
+	/* allocate a structure and initialize it */
+
+	ipm = (IPM) ALLI_alloc(sizeof(struct ipm));
+	if (!ipm)
+		return (IPM) - 1;
+	ipm->ipm_handle = map_handle;
+	ipm->ipm_address = map_address;
+	ipm->ipm_number = map_number;
+	ipm->ipm_count = 0;
+	for (i = 0; i < ipserver_private_data.users_per_map; i++)
+		ipm->ipm_ids[i] = 0;
+	ipm->ipm_next = ipserver_private_data.ipms;
+	ipserver_private_data.ipms = ipm;
+	return ipm;
+}
+
+
+static ITR make_transaction( IDB idb, HANDLE handle)
+{
+/**************************************
+ *
+ *      m a k e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create a local transaction handle.
+ *
+ **************************************/
+	ITR transaction;
+
+
+	transaction = (ITR) ALLOC(type_itr);
+	if (transaction)
+	{
+		transaction->itr_idb = idb;
+		transaction->itr_handle = handle;
+		transaction->itr_next = idb->idb_transactions;
+		idb->idb_transactions = transaction;
+	}
+	return transaction;
+}
+
+
+static void open_blob( ICC icc, P_OP op)
+{
+/**************************************
+ *
+ *      o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Open or create a new blob.
+ *
+ **************************************/
+	IDB idb;
+	IBL blob;
+	ITR transaction;
+	HANDLE handle;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	STATUS result;
+	USHORT bpb_length;
+	UCHAR *bpb, bpb_buf[128];
+	struct bid blob_id;
+	ips_blob *ips;
+	ips_string *ips_bpb;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_blob;
+	idb = (IDB) ips->ips_db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = (ITR) ips->ips_tr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	handle = NULL;
+	bpb_length = 0;
+
+	/* set up bpb if needed */
+
+	if (op == op_open_blob2 || op == op_create_blob2)
+	{
+		ips_bpb = &comm->ips_buffers[IPS_BLOB_BPB];
+		bpb_length = (USHORT) ips_bpb->ips_cl_size;
+		if (bpb_length <= sizeof(bpb_buf))
+			bpb = bpb_buf;
+		else
+			bpb = get_buffer(comm, bpb_length, IPS_BLOB_BPB);
+		NOT_NULL(bpb, bpb_length);
+		IPS_SERVER(comm, IPS_BLOB_BPB, bpb, bpb_length);
+	}
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* perform operation and return handle */
+
+	switch (op)
+	{
+	case op_open_blob:
+		blob_id.bid_relation_id = ips->ips_rel_id;
+		blob_id.bid_number = ips->ips_bid_number;
+		result = GDS_OPEN_BLOB(status_vector,
+							   GDS_REF(idb->idb_handle),
+							   GDS_REF(transaction->itr_handle),
+							   GDS_REF(handle), (GDS_QUAD *) & blob_id);
+		break;
+
+	case op_create_blob:
+		result = GDS_CREATE_BLOB(status_vector,
+								 GDS_REF(idb->idb_handle),
+								 GDS_REF(transaction->itr_handle),
+								 GDS_REF(handle), (GDS_QUAD *) & blob_id);
+		ips->ips_rel_id = blob_id.bid_relation_id;
+		ips->ips_bid_number = blob_id.bid_number;
+		break;
+
+	case op_open_blob2:
+		blob_id.bid_relation_id = ips->ips_rel_id;
+		blob_id.bid_number = ips->ips_bid_number;
+		result = GDS_OPEN_BLOB2(status_vector,
+								GDS_REF(idb->idb_handle),
+								GDS_REF(transaction->itr_handle),
+								GDS_REF(handle),
+								(GDS_QUAD *) & blob_id,
+								bpb_length, reinterpret_cast<UCHAR*>(bpb));
+		break;
+
+	case op_create_blob2:
+		result = GDS_CREATE_BLOB2(status_vector,
+								  GDS_REF(idb->idb_handle),
+								  GDS_REF(transaction->itr_handle),
+								  GDS_REF(handle),
+								  (GDS_QUAD *) & blob_id,
+								  bpb_length,
+								  reinterpret_cast < char *>(bpb));
+		ips->ips_rel_id = blob_id.bid_relation_id;
+		ips->ips_bid_number = blob_id.bid_number;
+		break;
+	}
+	if (!result)
+	{
+		blob = (IBL) ALLOC(type_ibl);
+		ips->ips_bl_handle = (UCHAR *) blob;
+		NOT_NULL(blob, TRUE);
+		blob->ibl_handle = handle;
+		blob->ibl_idb = idb;
+		blob->ibl_itr = transaction;
+		blob->ibl_next = transaction->itr_blobs;
+		transaction->itr_blobs = blob;
+	}
+	else
+		ips->ips_bl_handle = NULL;
+	send_response(icc, status_vector);
+}
+
+
+static void prepare_statement( ICC icc)
+{
+/**************************************
+ *
+ *      p r e p a r e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Prepare a dynamic SQL statement for execution.
+ *
+ **************************************/
+	ITR transaction;
+	IPSERVER_ISR statement;
+	USHORT length, item_length, buffer_length, dialect, parser_version;
+	UCHAR *string, *items, items_buf[128], *buffer;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	HANDLE handle;
+	ips_dsql *ips;
+	ips_string *ips_prep_string;
+	ips_string *ips_prep_items;
+	ips_string *ips_prep_buffer;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_dsql;
+	transaction = (ITR) ips->ips_tr_handle;
+	if (transaction)
+	{
+		CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+		handle = transaction->itr_handle;
+	}
+	else
+		handle = NULL;
+	statement = (IPSERVER_ISR) ips->ips_st_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_stmt_handle);
+	dialect = (USHORT) ips->ips_parameter;
+
+	/* set up string */
+
+	ips_prep_string = &comm->ips_buffers[IPS_DSQL_PREP_STRING];
+	length = (USHORT) ips_prep_string->ips_cl_size;
+	string = get_buffer(comm, length, IPS_DSQL_PREP_STRING);
+	NOT_NULL(string, length);
+	IPS_SERVER(comm, IPS_DSQL_PREP_STRING, string, length);
+
+	/* set up items */
+
+	ips_prep_items = &comm->ips_buffers[IPS_DSQL_PREP_ITEMS];
+	item_length = (USHORT) ips_prep_items->ips_cl_size;
+	if (item_length <= sizeof(items_buf))
+		items = items_buf;
+	else
+		items = get_buffer(comm, item_length, IPS_DSQL_PREP_ITEMS);
+	NOT_NULL(items, item_length);
+	IPS_SERVER(comm, IPS_DSQL_PREP_ITEMS, items, item_length);
+
+	/* set up buffer */
+
+	ips_prep_buffer = &comm->ips_buffers[IPS_DSQL_PREP_BUFFER];
+	buffer_length = (USHORT) ips_prep_buffer->ips_cl_size;
+	buffer = get_buffer(comm, buffer_length, IPS_DSQL_PREP_BUFFER);
+	NOT_NULL(buffer, buffer_length);
+	IPS_SERVER(comm, IPS_DSQL_PREP_BUFFER, buffer, buffer_length);
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* NT Local access:  Client and server are always the same version */
+	/* Since the API to GDS_DSQL_PREPARE is public and can not be changed, there needs to
+	 * be a way to send the parser version to DSQL so that the parser can compare the keyword
+	 * version to the parser version.  To accomplish this, the parser version is combined with
+	 * the client dialect and sent across that way.  In dsql8_prepare_statement, the parser version
+	 * and client dialect are separated and passed on to their final desintations.  The information
+	 * is combined as follows:
+	 *     Dialect * 10 + parser_version
+	 *
+	 * and is extracted in dsql8_prepare_statement as follows:
+	 *      parser_version = ((dialect *10)+parser_version)%10
+	 *      client_dialect = ((dialect *10)+parser_version)/10
+	 *
+	 * For example, parser_version = 1 and client dialect = 1
+	 *
+	 *  combined = (1 * 10) + 1 == 11
+	 *
+	 *  parser = (combined) %10 == 1
+	 *  dialect = (combined) / 19 == 1
+	 */
+
+	parser_version = 2;
+
+	/* prepare statement and return data */
+
+	GDS_DSQL_PREPARE(status_vector,
+					 &handle,
+					 &statement->isr_handle,
+					 length,
+					 reinterpret_cast < char *>(string),
+					 (USHORT) ((dialect * 10) + parser_version),
+					 item_length,
+					 reinterpret_cast < char *>(items),
+					 buffer_length, reinterpret_cast < char *>(buffer));
+	statement->isr_batch_flag = check_statement_type(statement);
+	ips->ips_parameter = statement->isr_batch_flag;
+	send_response(icc, status_vector);
+}
+
+
+static void put_segment( ICC icc)
+{
+/**************************************
+ *
+ *      p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Write a single blob segment.
+ *
+ **************************************/
+	IBL blob;
+	USHORT buffer_length;
+	UCHAR *buffer;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_segment *ips;
+	ips_string *ips_seg;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_segment;
+	blob = (IBL) ips->ips_bl_handle;
+	CHECK_HANDLE(blob, type_ibl, isc_bad_segstr_handle);
+
+	/* set up segment buffer */
+
+	ips_seg = &comm->ips_buffers[IPS_BLOB_SEGMENT];
+	buffer_length = (USHORT) ips_seg->ips_cl_size;
+	buffer = get_buffer(comm, buffer_length, IPS_BLOB_SEGMENT);
+	NOT_NULL(buffer, buffer_length);
+	IPS_SERVER(comm, IPS_BLOB_SEGMENT, buffer, buffer_length);
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* put the segment into the database */
+
+	GDS_PUT_SEGMENT(status_vector,
+					GDS_REF(blob->ibl_handle),
+					buffer_length,
+					reinterpret_cast < char *>(GDS_VAL(buffer)));
+	send_response(icc, status_vector);
+}
+
+
+static void put_slice( ICC icc)
+{
+/**************************************
+ *
+ *      p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Put slice of array;
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	USHORT sdl_length, param_length;
+	ULONG slice_length, *params, parameters[32];
+	UCHAR *sdl, sdl_buf[256], *slice;
+	struct bid array_id;
+	ips_slice *ips;
+	ips_string *ips_sdl;
+	ips_string *ips_parms;
+	ips_string *ips_data;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_slice;
+	idb = (IDB) ips->ips_db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = (ITR) ips->ips_tr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	array_id.bid_relation_id = ips->ips_rel_id;
+	array_id.bid_number = ips->ips_number;
+
+	/* set up sdl */
+
+	ips_sdl = &comm->ips_buffers[IPS_SLICE_SDL];
+	sdl_length = (USHORT) ips_sdl->ips_cl_size;
+	if (sdl_length <= sizeof(sdl_buf))
+		sdl = sdl_buf;
+	else
+		sdl = get_buffer(comm, sdl_length, IPS_SLICE_SDL);
+	NOT_NULL(sdl, sdl_length);
+	IPS_SERVER(comm, IPS_SLICE_SDL, sdl, sdl_length);
+
+	/* set up parameters */
+
+	ips_parms = &comm->ips_buffers[IPS_SLICE_PARAM];
+	param_length = (USHORT) ips_parms->ips_cl_size;
+	if (param_length <= sizeof(parameters))
+		params = parameters;
+	else
+		params = (ULONG *) get_buffer(comm, param_length, IPS_SLICE_PARAM);
+	NOT_NULL(params, param_length);
+	IPS_SERVER(comm, IPS_SLICE_PARAM, (UCHAR *) params, param_length);
+
+	/* set up slice data buffer */
+
+	ips_data = &comm->ips_buffers[IPS_SLICE_BUFFER];
+	slice_length = ips_data->ips_cl_size;
+	if (slice_length)
+	{
+		slice = gds__sys_alloc(slice_length);
+		NOT_NULL(slice, TRUE);
+		memset(slice, 0, slice_length);
+	}
+	else
+		slice = NULL;
+	IPS_SERVER(comm, IPS_SLICE_BUFFER, slice, slice_length);
+	if (!transfer_buffers(icc, comm))
+	{
+		if (slice)
+		{
+			gds__sys_free(slice);
+		}
+		return;
+	}
+
+	/* put the slice into the database */
+
+	GDS_PUT_SLICE(status_vector,
+				  GDS_REF(idb->idb_handle),
+				  GDS_REF(transaction->itr_handle),
+				  (GDS_QUAD *) & array_id,
+				  sdl_length,
+				  reinterpret_cast < char *>(sdl),
+				  param_length,
+				  reinterpret_cast < long *>(params),
+				  slice_length, GDS_VAL(slice));
+	ips->ips_rel_id = array_id.bid_relation_id;
+	ips->ips_number = array_id.bid_number;
+	send_response(icc, status_vector);
+	if (slice)
+	{
+		gds__sys_free(slice);
+	}
+}
+
+
+static void que_events( ICC icc)
+{
+/**************************************
+ *
+ *      q u e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Que events for asynchronous notification.
+ *
+ **************************************/
+	IDB idb;
+	USHORT length;
+	UCHAR *events;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	STATUS result;
+	IVNT event;
+	ips_que_events *ips;
+	ips_string *ips_event;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_que_evnt;
+	idb = (IDB) ips->ips_db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* set up event string */
+
+	ips_event = &comm->ips_buffers[IPS_QUEUE_EVENT];
+	length = (USHORT) ips_event->ips_cl_size;
+	events = get_buffer(comm, length, IPS_QUEUE_EVENT);
+	NOT_NULL(events, length);
+	IPS_SERVER(comm, IPS_QUEUE_EVENT, events, length);
+
+	/* find or allocate event block */
+
+	for (event = idb->idb_events; event; event = event->ivnt_next)
+		if (!event->ivnt_ast)
+			break;
+	if (!event)
+	{
+		event = (IVNT) ALLOC(type_ivnt);
+		NOT_NULL(event, TRUE);
+		event->ivnt_next = idb->idb_events;
+		event->ivnt_idb = idb;
+		idb->idb_events = event;
+	}
+
+	/* Get data, etc */
+
+	event->ivnt_window = ips->ips_event_hwnd;
+	event->ivnt_id = ips->ips_event_id;
+	event->ivnt_ast = (void (*)()) ips->ips_ast;
+	event->ivnt_arg = (void *) ips->ips_arg;
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* queue the event and return id */
+
+	result = GDS_QUE_EVENTS(status_vector,
+							GDS_REF(idb->idb_handle),
+							GDS_REF(event->ivnt_handle),
+							length,
+							reinterpret_cast<UCHAR*>(GDS_VAL(events)),
+							reinterpret_cast < void (*)() > (event_ast),
+							GDS_VAL(event));
+	if (!result)
+		ips->ips_event_id = event->ivnt_handle;
+	else
+		event->ivnt_ast = NULL;
+	send_response(icc, status_vector);
+}
+
+
+static void receive_msg( ICC icc)
+{
+/**************************************
+ *
+ *      r e c e i v e _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Receive a message.
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	IRQ request;
+	USHORT length, number, level;
+#ifdef SCROLLABLE_CURSORS
+	USHORT direction;
+	ULONG offset;
+#endif
+	UCHAR *buffer;
+	ips_request *ips;
+	ips_string *ips_message;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_request;
+	request = (IRQ) ips->ips_rq_handle;
+	CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+
+	/* set up message */
+
+	ips_message = &comm->ips_buffers[IPS_RECEIVE_MESSAGE];
+	length = (USHORT) ips_message->ips_cl_size;
+	buffer = get_buffer(comm, length, IPS_RECEIVE_MESSAGE);
+	NOT_NULL(buffer, length);
+	IPS_SERVER(comm, IPS_RECEIVE_MESSAGE, buffer, length);
+	number = ips->ips_msg_type;
+	level = ips->ips_req_level;
+#ifdef SCROLLABLE_CURSORS
+	direction = ips->ips_direction;
+	offset = ips->ips_offset;
+#endif
+
+	/* receive message and send response */
+
+	GDS_RECEIVE(status_vector,
+				GDS_REF(request->irq_handle),
+				number, length, GDS_VAL(buffer), level
+#ifdef SCROLLABLE_CURSORS
+				, direction, offset
+#endif
+		);
+
+	send_response(icc, status_vector);
+}
+
+
+static void reconnect( ICC icc)
+{
+/**************************************
+ *
+ *      r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Reconnect to a transaction in limbo.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	USHORT length;
+	UCHAR *buffer;
+	HANDLE handle;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_reconnect *ips;
+	ips_string *ips_recon;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_recon_trans;
+	idb = (IDB) ips->ips_db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+/* set up string */
+
+	ips_recon = &comm->ips_buffers[IPS_RECONNECT_ID];
+	length = (USHORT) ips_recon->ips_cl_size;
+	buffer = get_buffer(comm, length, IPS_RECONNECT_ID);
+	NOT_NULL(buffer, length);
+	IPS_SERVER(comm, IPS_RECONNECT_ID, buffer, length);
+	handle = NULL;
+	if (!transfer_buffers(icc, comm))
+		return;
+
+/* reconnect transaction and return id */
+
+	if (!GDS_RECONNECT(status_vector,
+					   GDS_REF(idb->idb_handle),
+					   GDS_REF(handle),
+					   length, reinterpret_cast < char *>(GDS_VAL(buffer))))
+	{
+		if (transaction = make_transaction(idb, handle))
+		{
+			ips->ips_tr_handle = (UCHAR *) transaction;
+			transaction->itr_flags |= ITR_limbo;
+		}
+		else
+		{
+			gds__handle_cleanup(status_vector,
+								(struct hndl **) GDS_REF(handle));
+			NOT_NULL(transaction, TRUE);
+		}
+	}
+
+	send_response(icc, status_vector);
+}
+
+
+static void release_blob( IBL blob)
+{
+/**************************************
+ *
+ *      r e l e a s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release a blob block and friends.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	IBL *p;
+
+
+	idb = blob->ibl_idb;
+	transaction = blob->ibl_itr;
+
+	for (p = &transaction->itr_blobs; *p; p = &(*p)->ibl_next)
+	{
+		if (*p == blob)
+		{
+			*p = blob->ibl_next;
+			break;
+		}
+	}
+	ALLI_release((BLK) blob);
+}
+
+
+static void release_event( IVNT event)
+{
+/**************************************
+ *
+ *      r e l e a s e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release a event block and friends.
+ *
+ **************************************/
+	IDB idb;
+	IVNT *p;
+
+
+	idb = event->ivnt_idb;
+	for (p = &idb->idb_events; *p; p = &(*p)->ivnt_next)
+	{
+		if (*p == event)
+		{
+			*p = event->ivnt_next;
+			break;
+		}
+	}
+	ALLI_release((BLK) event);
+}
+
+
+static void release_request( IRQ request)
+{
+/**************************************
+ *
+ *      r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release a request block and friends.
+ *
+ **************************************/
+	IDB idb;
+	IRQ *p;
+
+
+	idb = request->irq_idb;
+	for (p = &idb->idb_requests; *p; p = &(*p)->irq_next)
+		if (*p == request)
+		{
+			*p = request->irq_next;
+			break;
+		}
+	ALLI_release((BLK) request);
+}
+
+
+static void release_sql_request( IPSERVER_ISR stmt)
+{
+/**************************************
+ *
+ *      r e l e a s e _ s q l _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release an SQL request block.
+ *
+ **************************************/
+	IDB idb;
+	IPSERVER_ISR *p;
+
+
+	idb = stmt->isr_idb;
+	for (p = &idb->idb_sql_requests; *p; p = &(*p)->isr_next)
+		if (*p == stmt)
+		{
+			*p = stmt->isr_next;
+			break;
+		}
+	ALLI_release((BLK) stmt);
+}
+
+
+static void release_transaction( ITR transaction)
+{
+/**************************************
+ *
+ *      r e l e a s e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release a transaction block and friends.
+ *
+ **************************************/
+	IDB idb;
+	ITR *p;
+
+
+	idb = transaction->itr_idb;
+	while (transaction->itr_blobs)
+		release_blob(transaction->itr_blobs);
+	for (p = &idb->idb_transactions; *p; p = &(*p)->itr_next)
+		if (*p == transaction)
+		{
+			*p = transaction->itr_next;
+			break;
+		}
+	ALLI_release((BLK) transaction);
+}
+
+
+static void seek_blob( ICC icc)
+{
+/**************************************
+ *
+ *      s e e k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Perform a blob seek.
+ *
+ **************************************/
+	IBL blob;
+	SSHORT mode;
+	SLONG offset, result;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_seek_blob *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_sk_blob;
+	blob = (IBL) ips->ips_bl_handle;
+	CHECK_HANDLE(blob, type_ibl, isc_bad_segstr_handle);
+	offset = ips->ips_offset;
+	mode = ips->ips_mode;
+
+	/* seek blob and return result */
+
+	GDS_SEEK_BLOB(status_vector,
+				  GDS_REF(blob->ibl_handle), mode, offset, GDS_REF(result));
+	ips->ips_result = result;
+	send_response(icc, status_vector);
+}
+
+
+static BOOL send_and_wait( ICC icc)
+{
+/**************************************
+ *
+ *      s e n d _ a n d _ w a i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      This function responds to the client by releasing
+ *      the client's semaphore, and then waits for more
+ *      work by waiting on the server's semaphore.
+ *
+ **************************************/
+	DWORD result;
+
+
+	/* already in shutdown mode */
+
+	if (icc->icc_flags & ICCF_SHUTDOWN)
+		return FALSE;
+
+	/* first, signal the client that the communications
+	   area in mapped memory is filed and ready */
+
+	if (!ReleaseSemaphore(icc->icc_client_sem, 1L, NULL))
+	{
+		icc->icc_flags |= ICCF_SHUTDOWN;
+#ifdef  IP_TRACE
+		gds__log("ipserver send of send and wait failed %lX %ld",
+				 (long) icc, (long) GetLastError());
+#endif
+		return FALSE;
+	}
+
+	/* next, wait for the client to signal us back */
+
+	result =
+		WaitForMultipleObjects((DWORD) 2, icc->icc_waits, FALSE, INFINITE);
+	if (result != WAIT_OBJECT_0)
+	{
+		icc->icc_flags |= ICCF_SHUTDOWN;
+#ifdef  IP_TRACE
+		gds__log("ipserver wait of send and wait failed %lX %ld",
+				 (long) icc, (long) GetLastError());
+#endif
+		return FALSE;
+	}
+	else
+		return TRUE;
+}
+
+
+static void send_msg( ICC icc)
+{
+/**************************************
+ *
+ *      s e n d _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	IRQ request;
+	UCHAR *buffer;
+	USHORT length, number, level;
+	ips_request *ips;
+	ips_string *ips_message;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_request;
+	request = (IRQ) ips->ips_rq_handle;
+	CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+
+	/* set up message */
+
+	ips_message = &comm->ips_buffers[IPS_SEND_MESSAGE];
+	length = (USHORT) ips_message->ips_cl_size;
+	buffer = get_buffer(comm, length, IPS_SEND_MESSAGE);
+	NOT_NULL(buffer, length);
+	IPS_SERVER(comm, IPS_SEND_MESSAGE, buffer, length);
+	number = ips->ips_msg_type;
+	level = ips->ips_req_level;
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* send message */
+
+	GDS_SEND(status_vector,
+			 GDS_REF(request->irq_handle),
+			 number, length, GDS_VAL(buffer), level);
+	send_response(icc, status_vector);
+}
+
+
+static void send_no_wait( ICC icc)
+{
+/**************************************
+ *
+ *      s e n d _ n o _ w a i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      This function sends the client the server's
+ *      last filled in communications area, indicating
+ *      that the server is done.   No wait is done here.
+ *
+ **************************************/
+
+
+	/* already in shutdown mode */
+
+	if (icc->icc_flags & ICCF_SHUTDOWN)
+		return;
+
+	/* signal the client that the communications
+	   area in mapped memory is filed and ready */
+
+	if (!ReleaseSemaphore(icc->icc_client_sem, 1L, NULL))
+	{
+#ifdef  IP_TRACE
+		gds__log("ipserver send no wait failed %lX %ld",
+				 (long) icc, (long) GetLastError());
+#endif
+		icc->icc_flags |= ICCF_SHUTDOWN;
+	}
+}
+
+
+static void send_response( ICC icc, STATUS * status_vector)
+{
+/**************************************
+ *
+ *      s e n d _ r e s p o n s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Send a response packet.
+ *
+ **************************************/
+	STATUS *comm_status;
+	USHORT i, length;
+	ULONG to_copy, size_left;
+	TEXT *p, buffer[1024];
+	TEXT *acursor, *scursor, *abase;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+	ips_string *string;
+	ULONG l, *lp;
+
+
+	/* first, initialize the status vector in the comm area */
+
+	comm = (ips_comm_area *) icc->icc_mapped_addr;
+	comm_ptr = (TEXT *) comm->ips_data;
+	comm_status = reinterpret_cast < STATUS * >(comm->ips_status);
+	abase = comm_ptr;
+
+	/* if there's no error or warning, just put in a clean status vector */
+
+	if (!status_vector[1] && !status_vector[2])
+	{
+		*comm_status++ = *status_vector++;
+		*comm_status++ = *status_vector++;
+	}
+	else
+	{
+		/* transfer the status vector, putting strings in the comm area's
+		   data area */
+
+		while (*status_vector)
+		{
+			switch (*status_vector)
+			{
+			case isc_arg_interpreted:
+			case isc_arg_string:
+
+				/* for strings, put the length, followed by the
+				   string in the comm data area */
+
+				*comm_status++ = *status_vector++;
+				p = (TEXT *) * status_vector++;
+				if (p)
+					length = strlen(p);
+				else
+					length = 0;
+				lp = (ULONG *) comm_ptr;
+				*lp = length;
+				comm_ptr += sizeof(ULONG);
+				for (i = 0; i < length; i++)
+					*comm_ptr++ = *p++;
+				l = length % sizeof(ULONG);
+				if (l)
+					comm_ptr += (sizeof(ULONG) - l);
+				break;
+
+			case isc_arg_cstring:
+				*comm_status++ = isc_arg_string;
+				status_vector++;
+				length = (USHORT) * status_vector++;
+				lp = (ULONG *) comm_ptr;
+				*lp = length;
+				comm_ptr += sizeof(ULONG);
+				p = (TEXT *) * status_vector++;
+				for (i = 0; i < length; i++)
+					*comm_ptr++ = *p++;
+				l = length % sizeof(ULONG);
+				if (l)
+					comm_ptr += (sizeof(ULONG) - l);
+				break;
+
+			case isc_arg_warning:
+			case isc_arg_number:
+			case isc_arg_gds:
+				*comm_status++ = *status_vector++;
+				*comm_status++ = *status_vector++;
+				break;
+
+			default:
+				length = (USHORT) isc_interprete(buffer, &status_vector);
+				if (!length)
+				{
+					*status_vector = 0;
+					break;
+				}
+				*comm_status++ = isc_arg_interpreted;
+				lp = (ULONG *) comm_ptr;
+				*lp = length;
+				comm_ptr += sizeof(ULONG);
+				for (i = 0; i < length; i++)
+					*comm_ptr++ = buffer[i];
+				l = length % sizeof(ULONG);
+				if (l)
+					comm_ptr += (sizeof(ULONG) - l);
+				break;
+			}
+		}
+	}
+	*comm_status++ = isc_arg_end;
+
+	/* point to the current first available byte and figure space available */
+
+	acursor = comm_ptr;
+	size_left = (ULONG) (IPS_USEFUL_SPACE(ipserver_private_data.pages_per_user)) -
+		(abase - reinterpret_cast < TEXT * >(comm->ips_data));
+	for (i = 0; i < MAX_IPS_STRINGS; i++)
+	{
+		string = &comm->ips_buffers[i];
+
+		/* see if this buffer needs sending */
+
+		if ((string->ips_flags & IPS_OUTPUT_BUFFER) && string->ips_sv_size)
+		{
+			string->ips_sv_copied = 0;
+			scursor = reinterpret_cast < char *>(string->ips_sv_addr);
+
+			/* keep packing it in */
+
+			while (string->ips_sv_copied < string->ips_sv_size)
+			{
+
+				/* put in the whole thing, or whatever will fit */
+
+				to_copy = string->ips_sv_size - string->ips_sv_copied;
+				if (size_left <= to_copy)
+					to_copy = size_left;
+				string->ips_com_offset = acursor - abase;
+				string->ips_com_size = to_copy;
+				memcpy(acursor, scursor, (USHORT) to_copy);
+				acursor += to_copy;
+				scursor += to_copy;
+				size_left -= to_copy;
+				string->ips_sv_copied += to_copy;
+
+				/* if all the space has been used up, send it and wait */
+
+				if (!size_left && string->ips_sv_copied < string->ips_sv_size)
+				{
+					comm->ips_sequence++;
+					if (!send_and_wait(icc))
+						return;
+					size_left = (ULONG) (IPS_USEFUL_SPACE(ipserver_private_data.pages_per_user));
+					acursor = reinterpret_cast < char *>(comm->ips_data);
+				}
+			}
+		}
+	}
+
+	/* sending the last buffer, all done */
+
+	comm->ips_sequence++;
+	send_no_wait(icc);
+}
+
+
+static void service_attach( ICC icc)
+{
+/**************************************
+ *
+ *      s e r v i c e _ a t t a c h 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Connect to an Interbase service.
+ *
+ **************************************/
+	USHORT service_length, spb_length;
+	UCHAR service_name[256], *spb, spb_buf[256];
+	HANDLE handle;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	STATUS result;
+	IDB idb;
+	ips_object *ips;
+	ips_string *ips_name;
+	ips_string *ips_spb;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_object;
+
+	/* figure out service name buffer */
+
+	ips_name = &comm->ips_buffers[IPS_ATTACH_SVC_NAME];
+	service_length = (USHORT) ips_name->ips_cl_size;
+	IPS_SERVER(comm, IPS_ATTACH_SVC_NAME, service_name, service_length);
+
+	/* figure out spb buffer */
+
+	ips_spb = &comm->ips_buffers[IPS_ATTACH_SVC_SPB];
+	spb_length = (USHORT) ips_spb->ips_cl_size;
+	if (spb_length <= sizeof(spb_buf))
+		spb = spb_buf;
+	else
+		spb = get_buffer(comm, spb_length, IPS_ATTACH_SVC_SPB);
+	NOT_NULL(spb, spb_length);
+	IPS_SERVER(comm, IPS_ATTACH_SVC_SPB, spb, spb_length);
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* get handle */
+
+	handle = NULL;
+	result = GDS_SERVICE_ATTACH(status_vector,
+								service_length,
+								reinterpret_cast < char *>(service_name),
+								&handle,
+								spb_length, reinterpret_cast < char *>(spb));
+
+	/* allocate structure and return handle */
+
+	if (!result)
+	{
+		idb = (IDB) ALLOC(type_idb);
+		ips->ips_handle = (UCHAR *) idb;
+		NOT_NULL(idb, TRUE);
+		idb->idb_flags = IDBF_SERVICE_ATTACHMENT;
+		idb->idb_handle = handle;
+		idb->idb_next = icc->icc_databases;
+		icc->icc_databases = idb;
+	}
+	else
+		ips->ips_handle = NULL;
+	send_response(icc, status_vector);
+}
+
+
+static void service_end( ICC icc)
+{
+/**************************************
+ *
+ *      s e r v i c e _ e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Close down a service.
+ *
+ **************************************/
+	IDB idb, *ptr;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	STATUS result;
+	ips_object *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_object;
+	idb = (IDB) ips->ips_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+
+	/* detach request, return response and free resources */
+
+	result = GDS_SERVICE_DETACH(status_vector, &idb->idb_handle);
+	send_response(icc, status_vector);
+	if (!result)
+	{
+		for (ptr = &icc->icc_databases; *ptr; ptr = &(*ptr)->idb_next)
+			if (*ptr == idb)
+			{
+				*ptr = idb->idb_next;
+				break;
+			}
+		ALLI_release((BLK) idb);
+	}
+}
+
+
+static void service_start( ICC icc)
+{
+/**************************************
+ *
+ *      s e r v i c e _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Start a service.
+ *
+ **************************************/
+	IDB idb;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	STATUS result;
+	ips_object *ips;
+	ips_comm_area *comm;
+	ips_string *ips_spb;
+	TEXT *comm_ptr;
+	USHORT spb_length;
+	UCHAR *spb, spb_buf[256];
+	HANDLE handle;
+	ULONG *reserved = 0;
+
+/* set up communications area */
+	GET_COMM_OBJECT;
+	comm->ips_operation = op_service_start;
+	ips = &comm->ips_operations.ips_op_object;
+	handle = (HANDLE) ips->ips_handle;
+
+/* figure out spb buffer */
+	ips_spb = &comm->ips_buffers[IPS_START_SVC_SPB];
+	spb_length = (USHORT) ips_spb->ips_cl_size;
+	if (spb_length <= sizeof(spb_buf))
+		spb = spb_buf;
+	else
+		spb = get_buffer(comm, spb_length, IPS_START_SVC_SPB);
+	NOT_NULL(spb, spb_length);
+
+	IPS_SERVER(comm, IPS_START_SVC_SPB, spb, spb_length);
+
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	idb = (IDB) handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_svc_handle);
+	result = GDS_SERVICE_START(status_vector,
+							   &idb->idb_handle,
+							   reinterpret_cast < long *>(reserved),
+							   spb_length, reinterpret_cast < char *>(spb));
+
+	send_response(icc, status_vector);
+}
+
+
+static void set_cursor( ICC icc)
+{
+/**************************************
+ *
+ *      s e t _ c u r s o r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Set a cursor name for a dynamic request.
+ *
+ **************************************/
+	IPSERVER_ISR statement;
+	USHORT length, type;
+	UCHAR *cursor;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_dsql *ips;
+	ips_string *ips_name;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_dsql;
+	statement = (IPSERVER_ISR) ips->ips_st_handle;
+	CHECK_HANDLE(statement, type_ipserver_isr, isc_bad_stmt_handle);
+	type = (USHORT) ips->ips_parameter;
+
+	/* set up cursor name */
+
+	ips_name = &comm->ips_buffers[IPS_DSQL_SET_CURSOR];
+	length = (USHORT) ips_name->ips_cl_size;
+	cursor = get_buffer(comm, length, IPS_DSQL_SET_CURSOR);
+	NOT_NULL(cursor, length);
+	IPS_SERVER(comm, IPS_DSQL_SET_CURSOR, cursor, length);
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* set cursor name */
+
+	GDS_DSQL_SET_CURSOR(status_vector,
+						&statement->isr_handle,
+						reinterpret_cast < char *>(cursor), type);
+	send_response(icc, status_vector);
+}
+
+
+static void shutdown_attachments( ICC icc)
+{
+/**************************************
+ *
+ *      s h u t d o w n _ a t t a c h m e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *      About to exit, detach any remaining database
+ *      and service attachments.
+ *
+ **************************************/
+	IDB idb, nextidb;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_comm_area *comm;
+	USHORT i;
+
+	for (idb = icc->icc_databases; idb; idb = nextidb)
+	{
+		/* save next pointer here because the structure's getting freed */
+
+		nextidb = idb->idb_next;
+		if (idb->idb_flags | IDBF_DATABASE_ATTACHMENT)
+		{
+			while (idb->idb_transactions)
+			{
+				if (!(idb->idb_transactions->itr_flags & ITR_limbo))
+					GDS_ROLLBACK(status_vector,
+								 GDS_REF(idb->idb_transactions->itr_handle));
+				else
+					gds__handle_cleanup(status_vector,
+										(struct hndl **) GDS_REF(idb->
+																 idb_transactions->
+																 itr_handle));
+
+				release_transaction(idb->idb_transactions);
+			}
+
+			GDS_DETACH(status_vector, GDS_REF(idb->idb_handle));
+			while (idb->idb_events)
+				release_event(idb->idb_events);
+
+			while (idb->idb_requests)
+				release_request(idb->idb_requests);
+
+			while (idb->idb_sql_requests)
+				release_sql_request(idb->idb_sql_requests);
+		}
+		else
+		{
+			GDS_SERVICE_DETACH(status_vector, &idb->idb_handle);
+		}
+
+		ALLI_release((BLK) idb);
+	}
+
+/* free any allocated server buffers */
+
+	comm = (ips_comm_area *) icc->icc_mapped_addr;
+	for (i = 0; i < MAX_IPS_STRINGS; i++)
+		if (comm->ips_buffers[i].ips_sv_buffer)
+			gds__sys_free(comm->ips_buffers[i].ips_sv_buffer);
+}
+
+
+static void start( ICC icc)
+{
+/**************************************
+ *
+ *      s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	IRQ request;
+	ITR transaction;
+	USHORT level;
+	ips_request *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_request;
+	request = (IRQ) ips->ips_rq_handle;
+	CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+	transaction = (ITR) ips->ips_tr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	level = ips->ips_req_level;
+
+	/* start the request */
+
+	GDS_START(status_vector,
+			  GDS_REF(request->irq_handle),
+			  GDS_REF(transaction->itr_handle), level);
+	send_response(icc, status_vector);
+}
+
+
+static void start_and_send( ICC icc)
+{
+/**************************************
+ *
+ *      s t a r t _ a n d _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	IRQ request;
+	ITR transaction;
+	UCHAR *buffer;
+	USHORT length, number, level;
+	ips_request *ips;
+	ips_string *ips_message;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_request;
+	request = (IRQ) ips->ips_rq_handle;
+	CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+	transaction = (ITR) ips->ips_tr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+	number = ips->ips_msg_type;
+	level = ips->ips_req_level;
+
+	/* set up message */
+
+	ips_message = &comm->ips_buffers[IPS_SEND_MESSAGE];
+	length = (USHORT) ips_message->ips_cl_size;
+	buffer = get_buffer(comm, length, IPS_SEND_MESSAGE);
+	NOT_NULL(buffer, length);
+	IPS_SERVER(comm, IPS_SEND_MESSAGE, buffer, length);
+	number = ips->ips_msg_type;
+	level = ips->ips_req_level;
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* start the request */
+
+	GDS_START_AND_SEND(status_vector,
+					   GDS_REF(request->irq_handle),
+					   GDS_REF(transaction->itr_handle),
+					   number, length, GDS_VAL(buffer), level);
+	send_response(icc, status_vector);
+}
+
+
+static void start_transaction( ICC icc)
+{
+/**************************************
+ *
+ *      s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Start a transaction.
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	USHORT count, c;
+	UCHAR *buffer;
+	HANDLE handle;
+	ULONG **v, *vector[3 * 16];
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_start_trans *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+	ULONG length, l, *lp;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	lp = (ULONG *) comm_ptr;
+	ips = &comm->ips_operations.ips_op_strt_trans;
+	v = vector;
+	count = ips->ips_db_count;
+	buffer = get_buffer(comm, 1024, 0);
+	NOT_NULL(buffer, TRUE);
+
+	/* set up all the handles */
+
+	for (c = 0; c < count; c++)
+	{
+		idb = (IDB) * lp++;
+		CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+		*v++ = reinterpret_cast < ULONG * >(&idb->idb_handle);
+		length = *lp++;
+		*v++ = reinterpret_cast < ULONG * >(length);
+		*v++ = reinterpret_cast < ULONG * >(buffer);
+		comm_ptr = (TEXT *) lp;
+		for (l = 0; l < length; l++)
+			*buffer++ = *comm_ptr++;
+		lp = lp + ((length + (sizeof(ULONG) - 1)) / sizeof(ULONG));
+	}
+	handle = NULL;
+
+	/* start the transaction and return the handle */
+
+	GDS_START_MULTIPLE(status_vector,
+					   GDS_REF(handle), count, (UCHAR *) vector);
+	transaction = make_transaction(idb, handle);
+	ips->ips_tr_handle = (UCHAR *) transaction;
+	NOT_NULL(transaction, TRUE);
+	send_response(icc, status_vector);
+}
+
+
+static void transact_request( ICC icc)
+{
+/**************************************
+ *
+ *      t r a n s a c t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	IDB idb;
+	ITR transaction;
+	USHORT blr_length, in_msg_length, out_msg_length;
+	UCHAR *blr, *in_buffer, *out_buffer;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_transact_request *ips;
+	ips_string *ips_blr;
+	ips_string *ips_in_msg;
+	ips_string *ips_out_msg;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_trans_req;
+	idb = (IDB) ips->ips_db_handle;
+	CHECK_HANDLE(idb, type_idb, isc_bad_db_handle);
+	transaction = (ITR) ips->ips_tr_handle;
+	CHECK_HANDLE(transaction, type_itr, isc_bad_trans_handle);
+
+	/* set up blr */
+
+	ips_blr = &comm->ips_buffers[IPS_TRANS_REQ_BLR];
+	blr_length = (USHORT) ips_blr->ips_cl_size;
+	blr = get_buffer(comm, blr_length, IPS_TRANS_REQ_BLR);
+	NOT_NULL(blr, blr_length);
+	IPS_SERVER(comm, IPS_TRANS_REQ_BLR, blr, blr_length);
+
+	/* set up input message */
+
+	ips_in_msg = &comm->ips_buffers[IPS_TRANS_REQ_IN_MSG];
+	in_msg_length = (USHORT) ips_in_msg->ips_cl_size;
+	in_buffer = get_buffer(comm, in_msg_length, IPS_TRANS_REQ_IN_MSG);
+	NOT_NULL(in_buffer, in_msg_length);
+	IPS_SERVER(comm, IPS_TRANS_REQ_IN_MSG, in_buffer, in_msg_length);
+
+	/* set up blr */
+
+	ips_out_msg = &comm->ips_buffers[IPS_TRANS_REQ_OUT_MSG];
+	out_msg_length = (USHORT) ips_out_msg->ips_cl_size;
+	out_buffer = get_buffer(comm, out_msg_length, IPS_TRANS_REQ_OUT_MSG);
+	NOT_NULL(out_buffer, out_msg_length);
+	IPS_SERVER(comm, IPS_TRANS_REQ_OUT_MSG, out_buffer, out_msg_length);
+	if (!transfer_buffers(icc, comm))
+		return;
+
+	/* transact request and return output */
+
+	GDS_TRANSACT_REQUEST(status_vector,
+						 &idb->idb_handle,
+						 &transaction->itr_handle,
+						 blr_length,
+						 reinterpret_cast < char *>(blr),
+						 in_msg_length,
+						 reinterpret_cast < char *>(in_buffer),
+						 out_msg_length,
+						 reinterpret_cast < char *>(out_buffer));
+	send_response(icc, status_vector);
+}
+
+
+static BOOL transfer_buffers( ICC icc, ips_comm_area * comm)
+{
+/**************************************
+ *
+ *      t r a n s f e r _ b u f f e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TEXT *acursor, *scursor;
+	ULONG to_copy;
+	USHORT i;
+	ips_string *string;
+
+
+	/* for each buffer, see if the client is sending stuff, and if so,
+	   put the data in the server's buffers */
+
+	for (i = 0; i < MAX_IPS_STRINGS; i++)
+	{
+		string = &comm->ips_buffers[i];
+
+		/* see if this buffer needs extraction */
+
+		if ((string->ips_flags & IPS_INPUT_BUFFER) && string->ips_sv_size)
+		{
+			string->ips_sv_copied = 0;
+			scursor = reinterpret_cast < char *>(string->ips_sv_addr);
+
+			/* start extraction */
+
+			while (string->ips_sv_copied < string->ips_sv_size)
+			{
+
+				/* extract all or whatever's available */
+
+				to_copy = string->ips_sv_size - string->ips_sv_copied;
+				if (string->ips_com_size <= to_copy)
+					to_copy = string->ips_com_size;
+				acursor = (TEXT *) comm->ips_data + string->ips_com_offset;
+				memcpy(scursor, acursor, (USHORT) to_copy);
+				scursor += to_copy;
+				string->ips_sv_copied += to_copy;
+
+				/* if there is more to copy, wait for it */
+
+				if (string->ips_sv_copied < string->ips_sv_size)
+				{
+					comm->ips_sequence++;
+					if (!send_and_wait(icc))
+						return FALSE;
+				}
+			}
+		}
+	}
+	return TRUE;
+}
+
+
+static void unwind( ICC icc)
+{
+/**************************************
+ *
+ *      u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Unwind a request.
+ *
+ **************************************/
+	IRQ request;
+	USHORT level;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	ips_object *ips;
+	ips_comm_area *comm;
+	TEXT *comm_ptr;
+
+
+	/* set up communications area */
+
+	GET_COMM_OBJECT;
+	ips = &comm->ips_operations.ips_op_object;
+	request = (IRQ) ips->ips_handle;
+	CHECK_HANDLE(request, type_irq, isc_bad_req_handle);
+	level = (USHORT) ips->ips_parameter;
+
+	/* unwind the request */
+
+	GDS_UNWIND(status_vector, GDS_REF(request->irq_handle), level);
+	send_response(icc, status_vector);
+}
+
+
+static BOOL wait_no_send( ICC icc)
+{
+/**************************************
+ *
+ *      w a i t _ n o _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *      This function waits for the client's next
+ *      request by waiting on the server's semaphore.
+ *
+ **************************************/
+	DWORD result1;
+	DWORD result2;
+	DWORD error1;
+	DWORD error2;
+	USHORT ret;
+
+
+	/* already in shutdown mode */
+
+	if (icc->icc_flags & ICCF_SHUTDOWN)
+		return FALSE;
+
+	/* wait for the server to signal us back */
+
+	ret = TRUE;
+	while (ret)
+	{
+
+		/* wait for semaphore for a minute */
+
+		result1 = WaitForSingleObject(icc->icc_waits[0], 10000L);
+		error1 = GetLastError();
+
+		/* check for success */
+
+		if (result1 == WAIT_OBJECT_0)
+			break;
+
+		/* a non-timeout result is an error */
+
+		if (result1 != WAIT_TIMEOUT)
+		{
+#ifdef  IP_TRACE
+			gds__log("ipserver wait no send failed %lX %ld %ld",
+					 (long) icc, result1, error1);
+			gds__log("ipserver ids %lX %lX",
+					 icc->icc_waits[0], icc->icc_waits[1]);
+#endif
+			ret = 0;
+			break;
+		}
+
+		/* see if the client is still alive */
+
+		result2 = WaitForSingleObject(icc->icc_waits[1], 1L);
+		error2 = GetLastError();
+
+		/* if process is gone, or there's some error, bag it */
+
+		if (result2 != WAIT_TIMEOUT)
+		{
+#ifdef  IP_TRACE
+			gds__log("ip server wait no send failed again %lX %ld %ld",
+					 (long) icc, result2, error2);
+#endif
+			ret = 0;
+			break;
+		}
+	}
+	if (!ret)
+		icc->icc_flags |= ICCF_SHUTDOWN;
+	return ret;
+}
diff --git a/src/ipserver/ipsrv_proto.h b/src/ipserver/ipsrv_proto.h
new file mode 100644
index 0000000000..1c5adc66f6
--- /dev/null
+++ b/src/ipserver/ipsrv_proto.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	Interprocess server
+ *	MODULE:		ips_proto.h
+ *	DESCRIPTION:	Prototpe header file for ipserver.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _IPSRV_PROTO_H_
+#define _IPSRV_PROTO_H_
+
+extern USHORT IPS_init(HWND, USHORT, USHORT, USHORT);
+extern ULONG IPS_start_thread(ULONG);
+
+#endif /* _IPSRV_PROTO_H */
diff --git a/src/iscguard/cntl_guard.cpp b/src/iscguard/cntl_guard.cpp
new file mode 100644
index 0000000000..80a06f63c7
--- /dev/null
+++ b/src/iscguard/cntl_guard.cpp
@@ -0,0 +1,428 @@
+/*
+ *	PROGRAM:	Guardian CNTL function.
+ *	MODULE:		cntl_guard.c
+ *	DESCRIPTION:	Windows NT service control panel interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include "../iscguard/cntlg_proto.h"
+#include "../remote/remote.h"
+#include "../jrd/thd.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/gds_proto.h"
+
+#ifdef WIN_NT
+#include <windows.h>
+#include "../remote/window.rh"
+#endif
+
+typedef struct thread {
+	struct thread *thread_next;
+	HANDLE thread_handle;
+} *THREAD;
+
+static void control_thread(DWORD);
+static void parse_switch(TEXT *, int *);
+static USHORT report_status(DWORD, DWORD, DWORD, DWORD);
+
+static DWORD current_state;
+static void (*main_handler) ();
+static SERVICE_STATUS_HANDLE service_handle;
+static TEXT *service_name;
+static HANDLE stop_event_handle;
+static MUTX_T thread_mutex[1];
+static THREAD threads;
+
+
+void CNTL_init( void (*handler) (), TEXT * name)
+{
+/**************************************
+ *
+ *	C N T L _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	main_handler = handler;
+	service_name = name;
+}
+
+
+
+#ifdef REMOVE
+void *CNTL_insert_thread(void)
+{
+/**************************************
+ *
+ *	C N T L _ i n s e r t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	THREAD new_thread;
+
+	THREAD_ENTER;
+	new_thread = (THREAD) ALLR_alloc((SLONG) sizeof(struct thread));
+/* NOMEM: ALLR_alloc() handled */
+/* FREE:  in CTRL_remove_thread() */
+
+	THREAD_EXIT;
+	DuplicateHandle(GetCurrentProcess(), GetCurrentThread(),
+					GetCurrentProcess(), &new_thread->thread_handle, 0, FALSE,
+					DUPLICATE_SAME_ACCESS);
+
+	THD_mutex_lock(thread_mutex);
+	new_thread->thread_next = threads;
+	threads = new_thread;
+	THD_mutex_unlock(thread_mutex);
+
+	return new_thread;
+}
+#endif
+
+
+
+void CNTL_main_thread( SLONG argc, SCHAR * argv[])
+{
+/**************************************
+ *
+ *	C N T L _ m a i n _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int flag;
+	TEXT *p;
+	TEXT default_mode[100] = { 0 };
+	DWORD last_error = 0;
+	DWORD temp;
+	int status;
+
+	service_handle = RegisterServiceCtrlHandler(service_name,
+												(LPHANDLER_FUNCTION)
+												control_thread);
+	if (!service_handle)
+		return;
+
+/* THD_mutex_init (thread_mutex); */
+
+#if (defined SUPERCLIENT || defined SUPERSERVER)
+	flag = SRVR_multi_client;
+#else
+	flag = 0;
+#endif
+
+/* Get the default client mode from the registry. */
+
+#ifdef ISC_CALLS
+	if (ISC_get_registry_var("DefaultClientMode",
+							 default_mode, sizeof(default_mode), 0) != -1)
+#endif
+		if (default_mode[0] == '-')
+			parse_switch(&default_mode[1], &flag);
+
+/* Parse the command line looking for any additional arguments. */
+
+	argv++;
+
+	while (--argc) {
+		p = *argv++;
+		if (*p++ = '-')
+			parse_switch(p, &flag);
+	}
+
+/* start everything, and wait here for ever, or at
+ * least until we get the stop event indicating that
+ * the service is stoping. */
+
+	status = 1;
+	if (report_status(SERVICE_START_PENDING, NO_ERROR, 1, 3000) &&
+		(stop_event_handle = CreateEvent(NULL, TRUE, FALSE, NULL)) != NULL &&
+		report_status(SERVICE_START_PENDING, NO_ERROR, 2, 3000) &&
+		!gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+						   (main_handler), (void *) flag, 0, 0, 0)
+		&& report_status(SERVICE_RUNNING, NO_ERROR, 0, 0)) {
+		status = 0;
+		temp = WaitForSingleObject(stop_event_handle, INFINITE);
+	}
+
+	if (temp == WAIT_FAILED || status)
+		last_error = GetLastError();
+
+	if (stop_event_handle)
+		CloseHandle(stop_event_handle);
+
+/* ONce we are stopped, we will tell the server to
+ * do the same.  We could not do this in the control_thread
+ * since the Services Control Manager is single threaded,
+ * and thus can only process one request at the time. */
+	{
+		SERVICE_STATUS status_info;
+		SC_HANDLE hScManager = 0, hService = 0;
+		hScManager =
+			OpenSCManager(NULL, NULL, GENERIC_READ | GENERIC_EXECUTE);
+		hService = OpenService(hScManager, "InterBaseServer", SERVICE_STOP);
+		ControlService(hService, SERVICE_CONTROL_STOP, &status_info);
+		CloseServiceHandle(hScManager);
+		CloseServiceHandle(hService);
+	}
+
+	report_status(SERVICE_STOPPED, last_error, 0, 0);
+
+/* THD_mutex_destroy (thread_mutex); */
+}
+
+
+#ifdef REMOVE
+void CNTL_remove_thread( void *thread)
+{
+/**************************************
+ *
+ *	C N T L _ r e m o v e _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	THREAD *thread_ptr;
+	THREAD this_thread;
+
+	THD_mutex_lock(thread_mutex);
+	for (thread_ptr = &threads; *thread_ptr;
+		 thread_ptr =
+		 &(*thread_ptr)->thread_next) if (*thread_ptr == (THREAD) thread) {
+			*thread_ptr = ((THREAD) thread)->thread_next;
+			break;
+		}
+	THD_mutex_unlock(thread_mutex);
+
+	this_thread = (THREAD) thread;
+	CloseHandle(this_thread->thread_handle);
+
+	THREAD_ENTER;
+	ALLR_free(thread);
+	THREAD_EXIT;
+}
+#endif
+
+
+
+void CNTL_shutdown_service( TEXT * message)
+{
+/**************************************
+ *
+ *	C N T L _ s h u t d o w n _ s e r v i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	char *strings[2];
+	char buffer[256];
+	HANDLE event_source;
+
+	sprintf(buffer, "%s error: %d", service_name, GetLastError());
+
+	event_source = RegisterEventSource(NULL, service_name);
+	if (event_source) {
+		strings[0] = buffer;
+		strings[1] = message;
+		ReportEvent(event_source,
+					EVENTLOG_ERROR_TYPE,
+					0,
+					0,
+					NULL, 2, 0, const_cast < const char **>(strings), NULL);
+		DeregisterEventSource(event_source);
+	}
+
+	if (stop_event_handle)
+		SetEvent(stop_event_handle);
+}
+
+
+void CNTL_stop_service( TEXT * service)
+{
+/**************************************
+ *
+ *	C N T L _ s t o p _ s e r v i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *   This function is called to stop the service.
+ *
+ *
+ **************************************/
+
+	SERVICE_STATUS status_info;
+	SC_HANDLE servicemgr_handle;
+	SC_HANDLE service_handle;
+
+	servicemgr_handle = OpenSCManager(NULL, NULL, SC_MANAGER_CONNECT);
+	if (servicemgr_handle == NULL) {
+		// return error
+		int error = GetLastError();
+		gds__log("SC manager error %d", error);
+		return;
+	}
+
+	service_handle =
+		OpenService(servicemgr_handle, service_name, SERVICE_STOP);
+
+	if (service_handle == NULL) {
+		// return error
+		int error = GetLastError();
+		gds__log("open services error %d", error);
+		return;
+	}
+	else {
+		if (!ControlService
+			(service_handle, SERVICE_CONTROL_STOP, &status_info)) {
+			// return error
+			int error = GetLastError();
+			gds__log("Control services error %d", error);
+			return;
+		}
+	}
+}
+
+
+
+static void control_thread( DWORD action)
+{
+/**************************************
+ *
+ *	c o n t r o l _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a service control request.
+ *
+ **************************************/
+	DWORD state;
+	state = SERVICE_RUNNING;
+
+	switch (action) {
+	case SERVICE_CONTROL_STOP:
+		report_status(SERVICE_STOP_PENDING, NO_ERROR, 1, 3000);
+		SetEvent(stop_event_handle);
+		return;
+
+	case SERVICE_CONTROL_INTERROGATE:
+		break;
+
+	default:
+		break;
+	}
+
+	report_status(state, NO_ERROR, 0, 0);
+}
+
+
+static void parse_switch( TEXT * switches, int *flag)
+{
+/**************************************
+ *
+ *	p a r s e _ s w i t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TEXT c;
+
+	while (c = *switches++)
+		switch (UPPER(c)) {
+		case 'B':
+			*flag |= SRVR_high_priority;
+			break;
+
+		case 'I':
+			*flag |= SRVR_inet;
+			break;
+
+		case 'N':
+			*flag |= SRVR_pipe;
+			break;
+
+		case 'R':
+			*flag &= ~SRVR_high_priority;
+			break;
+		}
+
+#if (defined SUPERCLIENT || defined SUPERSERVER)
+	*flag |= SRVR_multi_client;
+#else
+	*flag &= ~SRVR_multi_client;
+#endif
+}
+
+
+static USHORT report_status(
+							DWORD state,
+							DWORD exit_code, DWORD checkpoint, DWORD hint)
+{
+/**************************************
+ *
+ *	r e p o r t _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report our status to the control manager.
+ *
+ **************************************/
+	SERVICE_STATUS status;
+	USHORT ret;
+
+	status.dwServiceType =
+		(SERVICE_WIN32_OWN_PROCESS | SERVICE_INTERACTIVE_PROCESS);
+	status.dwServiceSpecificExitCode = 0;
+
+	if (state == SERVICE_START_PENDING)
+		status.dwControlsAccepted = 0;
+	else
+		status.dwControlsAccepted = SERVICE_ACCEPT_STOP;
+
+	status.dwCurrentState = current_state = state;
+	status.dwWin32ExitCode = exit_code;
+	status.dwCheckPoint = checkpoint;
+	status.dwWaitHint = hint;
+
+	if (!(ret = SetServiceStatus(service_handle, &status)))
+		CNTL_shutdown_service("SetServiceStatus");
+
+	return ret;
+}
diff --git a/src/iscguard/cntlg_proto.h b/src/iscguard/cntlg_proto.h
new file mode 100644
index 0000000000..8efe8b704f
--- /dev/null
+++ b/src/iscguard/cntlg_proto.h
@@ -0,0 +1,34 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		cntl_proto.h
+ *	DESCRIPTION:	Prototpe header file for cntl.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_CNTL_PROTO_H_
+#define _REMOTE_CNTL_PROTO_H_
+
+extern void CNTL_init(FPTR_VOID, TEXT *);
+extern void *CNTL_insert_thread(void);
+extern void CNTL_main_thread(SLONG, SCHAR *[]);
+extern void CNTL_remove_thread(void *);
+extern void CNTL_shutdown_service(TEXT *);
+extern void CNTL_stop_service(TEXT *);
+
+#endif /* _REMOTE_CNTL_PROTO_H */
diff --git a/src/iscguard/iscguard.cpp b/src/iscguard/iscguard.cpp
new file mode 100644
index 0000000000..bf2c011634
--- /dev/null
+++ b/src/iscguard/iscguard.cpp
@@ -0,0 +1,1149 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "../jrd/ib_stdio.h"
+#include "../jrd/gds_proto.h"
+#include <stdlib.h>
+#include <windows.h>
+#include <shellapi.h>
+#include <prsht.h>
+#include <commctrl.h>
+#include <time.h>
+#include "../iscguard/iscguard.rh"
+#include "../iscguard/iscguard.h"
+#include "../iscguard/cntlg_proto.h"
+#include "../utilities/install_nt.h"
+#include "../remote/chop_proto.h"
+
+#ifdef _MSC_VER
+#include <process.h>			/* _beginthread */
+#endif
+
+// fwd. decl.
+int GetGuardStartupInfo(char *svrpath, char *opt);
+
+
+/* Startup Configuration Entry point for regcfg.exe. */
+#define SVC_CONFIG          4
+#define REGCFG_ENTRYPOINT   "LaunchInstReg"
+#define REGCFG_DLL	        "REGCFG.DLL"
+typedef void (__cdecl * LPFNREGCFG) (char *, short);
+
+// Define an array of dword pairs,
+// where the first of each pair is the control ID,
+// and the second is the context ID for a help topic,
+// which is used in the help file.
+static DWORD aMenuHelpIDs[] = {
+	IDC_VERSION, ibs_guard_version,
+	IDC_LOG, ibs_guard_log,
+	IDC_LOCATION, ibs_server_directory,
+	0, 0
+};
+
+/* Function prototypes */
+static LRESULT CALLBACK WindowFunc(HWND, UINT, WPARAM, LPARAM);
+static int WINDOW_main(int);
+static void StartGuardian(HWND);
+static unsigned short parse_args(LPSTR, USHORT *);
+static void HelpCmd(HWND, HINSTANCE, WPARAM);
+//extern char* ChopFileName (char*, char*, long);
+
+void start_and_watch_server(char *);
+void swap_icons(HWND);
+void write_log(int, char *);
+
+HWND DisplayPropSheet(HWND, HINSTANCE);
+LRESULT CALLBACK GeneralPage(HWND, UINT, WPARAM, LPARAM);
+
+
+HINSTANCE hInstance_gbl;
+HWND hPSDlg, hWndGbl;
+static DWORD ServerPid = 0;
+static int nRestarts = 0;		/* the number of times the server was restarted */
+unsigned short service_flag = TRUE;
+unsigned short shutdown_flag = FALSE;
+struct log_info *log_entry;
+
+/* contains the guardian service */
+static SERVICE_TABLE_ENTRY service_table[] = {
+	ISCGUARD_SERVICE, (LPSERVICE_MAIN_FUNCTION) CNTL_main_thread,
+	NULL, NULL
+};
+
+
+int WINAPI WinMain(
+				   HINSTANCE hInstance,
+				   HINSTANCE hPrevInstance, LPSTR lpszCmdLine, int nCmdShow)
+{
+/**************************************
+*
+*	m a i n
+*
+**************************************
+*
+* Functional description
+*     The main routine for Windows based server guardian.
+*
+**************************************/
+
+
+	OSVERSIONINFO OsVersionInfo;
+
+/* need to set the sizeof this structure for NT to work */
+	OsVersionInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
+
+	GetVersionEx((LPOSVERSIONINFO) & OsVersionInfo);
+
+/* service_flag is TRUE for NT false for 95 */
+	service_flag =
+		((OsVersionInfo.
+		  dwPlatformId == VER_PLATFORM_WIN32_NT) ? TRUE : FALSE);
+
+	if (service_flag == TRUE)
+		service_flag = parse_args(lpszCmdLine, &service_flag);
+
+/* set the global HINSTANCE as we need it in WINDOW_main */
+	hInstance_gbl = hInstance;
+
+/* allocate space for the event list */
+	log_entry =
+		reinterpret_cast < log_info * >(malloc(sizeof(struct log_info)));
+	log_entry->next = NULL;
+
+/* since the flag is set we run as a service */
+	if (service_flag == TRUE) {
+		CNTL_init((FPTR_VOID) WINDOW_main, ISCGUARD_SERVICE);
+		if (!StartServiceCtrlDispatcher(service_table)) {
+			if (GetLastError() != ERROR_CALL_NOT_IMPLEMENTED)
+				CNTL_shutdown_service("StartServiceCtrlDispatcher failed");
+		}
+	}
+
+	else {
+		return (WINDOW_main(TRUE));
+	}
+
+	return (TRUE);
+
+}
+
+static unsigned short parse_args(LPSTR lpszArgs, unsigned short *pserver_flag)
+{
+/**************************************
+*
+*      p a r s e _ a r g s
+*
+**************************************
+*
+* Functional description
+*      WinMain gives us a stupid command string, not
+*      a cool argv.  Parse through the string and
+*      set the options.
+* Returns
+*      A value of TRUE or FALSE depending on if -s is specified.
+*      
+*
+**************************************/
+	char *p, c;
+	int return_value = TRUE;
+
+	for (p = lpszArgs; *p; p++) {
+		if (*p++ == '-')
+			while (c = *p++) {
+				switch (c) {
+				case 'a':
+				case 'A':
+					return_value = FALSE;
+					break;
+
+				default:
+					return_value = TRUE;
+					break;
+				}
+			}
+	}
+	return (return_value);
+}
+
+static int WINDOW_main(int option)
+{
+/**************************************
+ *
+ *	W I N D O W _ m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *      This function is where the actual service code starts.
+ * Do all the window init stuff, then fork off a thread for starting 
+ * the server.
+ *
+ **************************************/
+
+	HWND hWnd = NULL;
+	MSG msg;
+	WNDCLASS wcl;
+	unsigned long thread_id;
+
+/* Make sure that there is only 1 instance of the guardian running */
+	hWnd = FindWindow(CLASS_NAME, APP_NAME);
+	if (hWnd) {
+		char szMsgString[256];
+		LoadString(hInstance_gbl, IDS_ALREADYSTARTED, szMsgString, 256);
+		MessageBox(NULL, szMsgString, APP_NAME, MB_OK | MB_ICONHAND);
+		gds__log(szMsgString);
+		return 0;
+	}
+
+/* initialize main window */
+	wcl.hInstance = hInstance_gbl;
+	wcl.lpszClassName = CLASS_NAME;
+	wcl.lpfnWndProc = WindowFunc;
+	wcl.style = 0;
+	wcl.hIcon = LoadIcon(hInstance_gbl, MAKEINTRESOURCE(IDI_IBGUARD));
+	wcl.hCursor = LoadCursor(NULL, IDC_ARROW);
+	wcl.lpszMenuName = NULL;
+	wcl.cbClsExtra = 0;
+	wcl.cbWndExtra = 0;
+	wcl.hbrBackground = (HBRUSH) GetStockObject(WHITE_BRUSH);
+
+	if (!RegisterClass(&wcl)) {
+		char szMsgString[256];
+		LoadString(hInstance_gbl, IDS_REGERROR, szMsgString, 256);
+		MessageBox(NULL, szMsgString, APP_NAME, MB_OK);
+		return 0;
+	}
+
+	hWnd = CreateWindowEx(0,
+						  CLASS_NAME,
+						  APP_NAME,
+						  WS_DLGFRAME | WS_SYSMENU | WS_MINIMIZEBOX,
+						  CW_USEDEFAULT,
+						  CW_USEDEFAULT,
+						  CW_USEDEFAULT,
+						  CW_USEDEFAULT,
+						  HWND_DESKTOP, NULL, hInstance_gbl, NULL);
+
+/* Save the window handle for the thread */
+	hWndGbl = hWnd;
+
+/* begin a new thread for calling the start_and_watch_server */
+	if (
+		(thread_id =
+		 _beginthread(reinterpret_cast <
+					  void (*)(void *) >(start_and_watch_server), 0,
+					  IBSERVER)) == -1) {
+		/* error starting server thread */
+		char szMsgString[256];
+		LoadString(hInstance_gbl, IDS_CANT_START_THREAD, szMsgString, 256);
+		MessageBox(NULL, szMsgString, APP_NAME, MB_OK);
+		gds__log(szMsgString);
+		DestroyWindow(hWnd);
+		return (FALSE);
+	}
+
+	if (service_flag == FALSE) {
+		SendMessage(hWnd, WM_COMMAND, IDM_CANCEL, 0);
+		UpdateWindow(hWnd);
+	}
+
+	while (GetMessage(&msg, NULL, 0, 0)) {
+		if (hPSDlg) {			/* If property sheet dialog is open */
+			/* Check if the message is property sheet dialog specific */
+			BOOL bPSMsg = PropSheet_IsDialogMessage(hPSDlg, &msg);
+
+			/* Check if the property sheet dialog is still valid, if not destroy it */
+			if (!PropSheet_GetCurrentPageHwnd(hPSDlg)) {
+				DestroyWindow(hPSDlg);
+				hPSDlg = NULL;
+			}
+			if (bPSMsg)
+				continue;
+		}
+		TranslateMessage(&msg);
+		DispatchMessage(&msg);
+	}
+	return msg.wParam;
+}
+
+
+static LRESULT CALLBACK WindowFunc(
+								   HWND hWnd,
+								   UINT message, WPARAM wParam, LPARAM lParam)
+{
+/**************************************
+ *
+ *	W i n d o w _ F u n c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *      This function is where the windowing action takes place.
+ * Handle the various messages which come here from GetMessage.
+ *
+ **************************************/
+
+	static long ulLastMask = 0L;
+	static BOOLEAN bInTaskBar = FALSE;
+	static BOOLEAN bStartup = FALSE;
+	static HINSTANCE hInstance = NULL;
+	static unsigned long thread_id;
+
+	hInstance = (HINSTANCE) GetWindowLong(hWnd, GWL_HINSTANCE);
+	switch (message) {
+	case WM_CLOSE:
+		{
+			/* Clean up memory for log_entry */
+			struct log_info *tmp;
+			while (log_entry->next) {
+				tmp = log_entry->next;
+				free(log_entry);
+				log_entry = tmp;
+			}
+			free(log_entry);
+			DestroyWindow(hWnd);
+		}
+		break;
+
+	case WM_COMMAND:
+		switch (wParam) {
+		case IDM_CANCEL:
+			ShowWindow(hWnd, bInTaskBar ? SW_HIDE : SW_MINIMIZE);
+			return TRUE;
+
+		case IDM_OPENPOPUP:
+			{
+				HMENU hPopup = NULL;
+				POINT curPos;
+				char szMsgString[256];
+
+				/* The SetForegroundWindow() has to be called because our window
+				   does not become the Foreground one (inspite of clicking on
+				   the icon).  This is so because the icon is painted on the task
+				   bar and is not the same as a minimized window.
+				 */
+				SetForegroundWindow(hWnd);
+
+				hPopup = CreatePopupMenu();
+				LoadString(hInstance, IDS_SVRPROPERTIES, szMsgString, 256);
+				AppendMenu(hPopup, MF_STRING, IDM_SVRPROPERTIES, szMsgString);
+				LoadString(hInstance, IDS_SHUTDOWN, szMsgString, 256);
+				AppendMenu(hPopup, MF_STRING, IDM_SHUTDOWN, szMsgString);
+				LoadString(hInstance, IDS_PROPERTIES, szMsgString, 256);
+				AppendMenu(hPopup, MF_STRING, IDM_PROPERTIES, szMsgString);
+				SetMenuDefaultItem(hPopup, IDM_PROPERTIES, FALSE);
+
+				GetCursorPos(&curPos);
+				TrackPopupMenu(hPopup, TPM_LEFTALIGN | TPM_RIGHTBUTTON,
+							   curPos.x, curPos.y, 0, hWnd, NULL);
+				DestroyMenu(hPopup);
+				return TRUE;
+			}
+
+		case IDM_SHUTDOWN:
+			{
+				HWND hTmpWnd;
+				hTmpWnd = FindWindow("IB_Server", "InterBase Server");
+				PostMessage(hTmpWnd, WM_COMMAND, (WPARAM) IDM_SHUTDOWN, 0);
+			}
+			return TRUE;
+
+		case IDM_PROPERTIES:
+			if (!hPSDlg)
+				hPSDlg = DisplayPropSheet(hWnd, hInstance);
+			else
+				SetForegroundWindow(hPSDlg);
+			return TRUE;
+
+		case IDM_INTRSVRPROPERTIES:
+			return TRUE;
+
+		case IDM_SVRPROPERTIES:
+			{
+				HWND hTmpWnd;
+				hTmpWnd = FindWindow("IB_Server", "InterBase Server");
+				PostMessage(hTmpWnd, WM_COMMAND, (WPARAM) IDM_PROPERTIES, 0);
+			}
+			return TRUE;
+		case IDM_SET_SERVER_PID:
+			ServerPid = (DWORD) lParam;
+			return TRUE;
+		}
+		break;
+
+	case WM_SWITCHICONS:
+		nRestarts++;
+		thread_id =
+			_beginthread(reinterpret_cast < void (*)(void *) >(swap_icons), 0,
+						 hWnd);
+		break;
+
+	case ON_NOTIFYICON:
+		if (bStartup) {
+			SendMessage(hWnd, WM_COMMAND, 0, 0);
+			return TRUE;
+		}
+		switch (lParam) {
+		case WM_LBUTTONDOWN:
+			break;
+
+		case WM_LBUTTONDBLCLK:
+			PostMessage(hWnd, WM_COMMAND, (WPARAM) IDM_PROPERTIES, 0);
+			break;
+
+		case WM_RBUTTONUP:
+			PostMessage(hWnd, WM_COMMAND, (WPARAM) IDM_OPENPOPUP, 0);
+			break;
+		}
+		break;
+
+	case WM_CREATE:
+		if (service_flag == FALSE) {
+			HICON hIcon;
+			NOTIFYICONDATA nid;
+
+			hIcon = (HICON) LoadImage(hInstance, MAKEINTRESOURCE(IDI_IBGUARD),
+									  IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);
+			nid.cbSize = sizeof(NOTIFYICONDATA);
+			nid.hWnd = hWnd;
+			nid.uID = IDI_IBGUARD;
+			nid.uFlags = NIF_TIP | NIF_ICON | NIF_MESSAGE;
+			nid.uCallbackMessage = ON_NOTIFYICON;
+			nid.hIcon = hIcon;
+			lstrcpy(nid.szTip, APP_NAME);
+
+			/* This will be true if we are using the explorer interface */
+			bInTaskBar = Shell_NotifyIcon(NIM_ADD, &nid);
+
+			if (hIcon)
+				DestroyIcon(hIcon);
+
+			/* This will be true if we are using the program manager interface */
+			if (!bInTaskBar) {
+				char szMsgString[256];
+				HMENU hSysMenu = GetSystemMenu(hWnd, FALSE);
+				DeleteMenu(hSysMenu, SC_RESTORE, MF_BYCOMMAND);
+				AppendMenu(hSysMenu, MF_SEPARATOR, 0, NULL);
+				LoadString(hInstance, IDS_SVRPROPERTIES, szMsgString, 256);
+				AppendMenu(hSysMenu, MF_STRING, IDM_SVRPROPERTIES,
+						   szMsgString);
+				LoadString(hInstance, IDS_SHUTDOWN, szMsgString, 256);
+				AppendMenu(hSysMenu, MF_STRING, IDM_SHUTDOWN, szMsgString);
+				LoadString(hInstance, IDS_PROPERTIES, szMsgString, 256);
+				AppendMenu(hSysMenu, MF_STRING, IDM_PROPERTIES, szMsgString);
+				DestroyMenu(hSysMenu);
+			}
+		}
+		break;
+
+	case WM_QUERYOPEN:
+		if (!bInTaskBar)
+			return FALSE;
+		return DefWindowProc(hWnd, message, wParam, lParam);
+
+	case WM_SYSCOMMAND:
+		if (!bInTaskBar)
+			switch (wParam) {
+			case SC_RESTORE:
+				return TRUE;
+
+			case IDM_SHUTDOWN:
+				{
+					HWND hTmpWnd;
+					hTmpWnd = FindWindow("IB_Server", "InterBase Server");
+					PostMessage(hTmpWnd, WM_COMMAND, (WPARAM) IDM_SHUTDOWN,
+								0);
+				}
+				return TRUE;
+
+			case IDM_PROPERTIES:
+				if (!hPSDlg)
+					hPSDlg = DisplayPropSheet(hWnd, hInstance);
+				else
+					SetFocus(hPSDlg);
+				return TRUE;
+
+			case IDM_SVRPROPERTIES:
+				{
+					HWND hTmpWnd;
+					hTmpWnd = FindWindow("IB_Server", "InterBase Server");
+					PostMessage(hTmpWnd, WM_COMMAND, (WPARAM) IDM_PROPERTIES,
+								0);
+				}
+				return TRUE;
+			}
+		return DefWindowProc(hWnd, message, wParam, lParam);
+
+	case WM_DESTROY:
+		if (bInTaskBar) {
+			NOTIFYICONDATA nid;
+
+			nid.cbSize = sizeof(NOTIFYICONDATA);
+			nid.hWnd = hWnd;
+			nid.uID = IDI_IBGUARD;
+			nid.uFlags = 0;
+			Shell_NotifyIcon(NIM_DELETE, &nid);
+		}
+		PostQuitMessage(0);
+		break;
+
+	default:
+		return DefWindowProc(hWnd, message, wParam, lParam);
+	}
+	return FALSE;
+}
+void start_and_watch_server(char *server_name)
+{
+/**************************************
+ *
+ *	s t a r t _ a n d _ w a t c h _ s e r v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *      This function is where the server process is created and 
+ * the thread waits for this process to exit.
+ *
+ **************************************/
+	char prog_name[MAX_PATH + 128];
+	char path[MAX_PATH];
+	char opt[3];
+	short option;
+	HANDLE procHandle = NULL;
+	unsigned short done = TRUE;
+	UINT error_mode = SEM_FAILCRITICALERRORS | SEM_NOGPFAULTERRORBOX |
+		SEM_NOOPENFILEERRORBOX | SEM_NOALIGNMENTFAULTEXCEPT;
+	UINT old_error_mode;
+	SC_HANDLE hScManager = 0, hService = 0;
+
+/* get the guardian startup information */
+	if (GetGuardStartupInfo(path, opt)) {
+		option = atoi(opt);
+		sprintf(prog_name, "%s%s -a -n", path, server_name);
+		sprintf(path, "%s%s", path, IBSERVER);
+	}
+	else {
+		char szMsgString[256];
+		LoadString(hInstance_gbl, IDS_REGISTRY_INFO_MISSING, szMsgString,
+				   256);
+		MessageBox(NULL, szMsgString, APP_NAME, MB_OK | MB_ICONSTOP);
+		write_log(IDS_REGISTRY_INFO_MISSING, szMsgString);
+		PostMessage(hWndGbl, WM_CLOSE, 0, 0);
+		Sleep(100);
+		exit(-1);
+	}
+
+/* if the guardian is set to FOREVER then set the error mode */
+	if (option == START_FOREVER)
+		old_error_mode = SetErrorMode(error_mode);
+
+/* Spawn the new process */
+	do {
+		DWORD exit_status;
+		SERVICE_STATUS ServiceStatus;
+		char out_buf[1024];
+		BOOL success;
+		int error = 0;
+		int ret_val;			/* return value from the WaitForSingleObject call */
+
+		if (service_flag == TRUE) {
+			if (hService) {
+				while ((QueryServiceStatus(hService, &ServiceStatus) == TRUE)
+					   && (ServiceStatus.dwCurrentState != SERVICE_STOPPED))
+					Sleep(500);
+			}
+
+			procHandle = CreateMutex(NULL, FALSE, GUARDIAN_MUTEX);
+
+			/* start as a service.  If the service can not be found or
+			   fails to start, close the handle to the mutex and set
+			   success = FALSE */
+			if (!hScManager)
+				hScManager =
+					OpenSCManager(NULL, NULL, GENERIC_READ | GENERIC_EXECUTE);
+			if (!hService)
+				hService =
+					OpenService(hScManager, REMOTE_SERVICE,
+								GENERIC_READ | GENERIC_EXECUTE |
+								SERVICE_USER_DEFINED_CONTROL);
+			success = StartService(hService, 0, NULL);
+			if (success != TRUE)
+				error = GetLastError();
+			/* if the server is alrady running, then inform it that it should
+			 * open the guardian mutex so that it may be governed. */
+			if ((!error) || (error == ERROR_SERVICE_ALREADY_RUNNING)) {
+				/* Make sure that it is actually ready to receive commands.
+				 * If we were the one who started it, then it will need a few
+				 * seconds to get ready. */
+				while ((QueryServiceStatus(hService, &ServiceStatus) == TRUE)
+					   && (ServiceStatus.dwCurrentState != SERVICE_RUNNING))
+					Sleep(500);
+				ControlService(hService, SERVICE_CREATE_GUARDIAN_MUTEX,
+							   &ServiceStatus);
+				success = TRUE;
+			}
+		}
+		else {
+			HWND hTmpWnd = FindWindow("IB_Server", "InterBase Server");
+			if (hTmpWnd == NULL) {
+				STARTUPINFO si;
+				SECURITY_ATTRIBUTES sa;
+				PROCESS_INFORMATION pi;
+				ZeroMemory(&si, sizeof(si));
+				si.cb = sizeof(si);
+				sa.nLength = sizeof(sa);
+				sa.lpSecurityDescriptor = NULL;
+				sa.bInheritHandle = TRUE;
+				success =
+					CreateProcess(NULL, prog_name, &sa, NULL, FALSE, 0, NULL,
+								  NULL, &si, &pi);
+				if (success != TRUE)
+					error = GetLastError();
+
+				procHandle = pi.hProcess;
+				/* TMN: 04 Aug 2000 - closed the handle that previously leaked. */
+				CloseHandle(pi.hThread);
+			}
+			else {
+				SendMessage(hTmpWnd, WM_COMMAND, (WPARAM) IDM_GUARDED,
+							(LPARAM) hWndGbl);
+				if (
+					(procHandle =
+					 OpenProcess(PROCESS_ALL_ACCESS, FALSE,
+								 ServerPid)) == NULL) {
+					error = GetLastError();
+					success = FALSE;
+				}
+				else
+					success = TRUE;
+			}
+		}
+
+		if (success != TRUE) {
+			/* error creating new process */
+			char szMsgString[256];
+			LoadString(hInstance_gbl, IDS_CANT_START_THREAD, szMsgString,
+					   256);
+			sprintf(out_buf, "%s : %s errno : %d", path, szMsgString, error);
+			write_log(IDS_CANT_START_THREAD, out_buf);
+
+			if (service_flag == TRUE) {
+				SERVICE_STATUS status_info;
+				/* wait a second to get the mutex handle (just in case) and
+				   then close it
+				 */
+				WaitForSingleObject(procHandle, 1000);
+				CloseHandle(procHandle);
+				hService =
+					OpenService(hScManager, REMOTE_SERVICE, SERVICE_STOP);
+				ControlService(hService, SERVICE_CONTROL_STOP, &status_info);
+				CloseServiceHandle(hScManager);
+				CloseServiceHandle(hService);
+				CNTL_stop_service(ISCGUARD_SERVICE);
+			}
+			else {
+				MessageBox(NULL, out_buf, NULL, MB_OK);
+				PostMessage(hWndGbl, WM_CLOSE, 0, 0);
+			}
+			return;
+		}
+		else {
+			char szMsgString[256];
+			LoadString(hInstance_gbl, IDS_STARTING_GUARD, szMsgString, 256);
+			sprintf(out_buf, "%s: %s\n", szMsgString, path);
+			write_log(IDS_LOG_START, out_buf);
+		}
+
+		/* wait for process to terminate */
+		if (service_flag == TRUE) {
+			while (WaitForSingleObject(procHandle, 500) == WAIT_OBJECT_0) {
+				ReleaseMutex(procHandle);
+				Sleep(100);
+			}
+
+			if ((ret_val = WaitForSingleObject(procHandle, INFINITE)) ==
+				WAIT_ABANDONED) exit_status = CRASHED;
+			else if (ret_val == WAIT_OBJECT_0)
+				exit_status = NORMAL_EXIT;
+
+			CloseHandle(procHandle);
+		}
+		else {
+			while (WaitForSingleObject(procHandle, INFINITE) == WAIT_FAILED);
+			GetExitCodeProcess(procHandle, &exit_status);
+			CloseHandle(procHandle);
+		}
+
+		if (exit_status != NORMAL_EXIT) {
+			/* check for startup error */
+			if (exit_status == STARTUP_ERROR) {
+				char szMsgString[256];
+				LoadString(hInstance_gbl, IDS_STARTUP_ERROR, szMsgString,
+						   256);
+				sprintf(out_buf, "%s: %s (%d)\n", path, szMsgString,
+						exit_status);
+				write_log(IDS_STARTUP_ERROR, out_buf);
+				done = TRUE;
+
+			}
+			else {
+				char szMsgString[256];
+				LoadString(hInstance_gbl, IDS_ABNORMAL_TERM, szMsgString,
+						   256);
+				sprintf(out_buf, "%s: %s (%d)\n", path, szMsgString,
+						exit_status);
+				write_log(IDS_LOG_TERM, out_buf);
+
+				/* switch the icons if the server restarted */
+				if (service_flag == FALSE)
+					PostMessage(hWndGbl, WM_SWITCHICONS, 0, 0);
+				if (option == START_FOREVER)
+					done = FALSE;
+			}
+		}
+		else {
+			/* Normal shutdown - ie: via ibmgr - don't restart the server */
+			char szMsgString[256];
+			LoadString(hInstance_gbl, IDS_NORMAL_TERM, szMsgString, 256);
+			sprintf(out_buf, "%s: %s\n", path, szMsgString);
+			write_log(IDS_LOG_STOP, out_buf);
+			done = TRUE;
+		}
+
+		if (option == START_ONCE)
+			done = TRUE;
+	} while (!done);
+
+
+/* If on WINNT */
+	if (service_flag == TRUE) {
+		CloseServiceHandle(hScManager);
+		CloseServiceHandle(hService);
+		CNTL_stop_service(ISCGUARD_SERVICE);
+	}
+	else
+		PostMessage(hWndGbl, WM_CLOSE, 0, 0);
+}
+
+HWND DisplayPropSheet(HWND hParentWnd, HINSTANCE hInst)
+{
+/******************************************************************************
+ *
+ *  D i s p l a y P r o p S h e e t
+ *
+ ******************************************************************************
+ *
+ *  Input:  hParentWnd - Handle to the main window of this application
+ *
+ *  Return: Handle to the Property sheet dialog if successful
+ *          NULL if error in displaying property sheet
+ *
+ *  Description: This function initializes the page(s) of the property sheet,
+ *               and then calls the PropertySheet() function to display it.
+ *****************************************************************************/
+	PROPSHEETHEADER PSHdr;
+	PROPSHEETPAGE PSPages[1];
+	HINSTANCE hInstance = hInst;
+
+	PSPages[0].dwSize = sizeof(PROPSHEETPAGE);
+	PSPages[0].dwFlags = PSP_USETITLE;
+	PSPages[0].hInstance = hInstance;
+#ifdef  __BORLANDC__			/* Anonymous unions not working in BC */
+	PSPages[0].DUMMYUNIONNAME.pszTemplate = MAKEINTRESOURCE(IDD_PROPSHEET);
+#else
+	PSPages[0].pszTemplate = MAKEINTRESOURCE(IDD_PROPSHEET);
+#endif
+	PSPages[0].pszTitle = MAKEINTRESOURCE(IDS_PROP_TITLE);
+	PSPages[0].pfnDlgProc = (DLGPROC) GeneralPage;
+	PSPages[0].pfnCallback = NULL;
+
+	PSHdr.dwSize = sizeof(PROPSHEETHEADER);
+	PSHdr.dwFlags = PSH_PROPTITLE | PSH_PROPSHEETPAGE |
+		PSH_USEICONID | PSH_MODELESS;
+	PSHdr.hwndParent = hParentWnd;
+	PSHdr.hInstance = hInstance;
+#ifdef  __BORLANDC__			/* Anonymous unions not working in BC */
+	PSHdr.DUMMYUNIONNAME.pszIcon = MAKEINTRESOURCE(IDI_IBGUARD);
+#else
+	PSHdr.pszIcon = MAKEINTRESOURCE(IDI_IBGUARD);
+#endif
+	PSHdr.pszCaption = (LPSTR) APP_NAME;
+	PSHdr.nPages = sizeof(PSPages) / sizeof(PROPSHEETPAGE);
+#ifdef  __BORLANDC__			/* Anonymous unions not working in BC */
+	PSHdr.DUMMYUNIONNAME2.nStartPage = 0;
+	PSHdr.DUMMYUNIONNAME3.ppsp = (LPCPROPSHEETPAGE) & PSPages;
+#else
+	PSHdr.nStartPage = 0;
+	PSHdr.ppsp = (LPCPROPSHEETPAGE) & PSPages;
+#endif
+	PSHdr.pfnCallback = NULL;
+
+	hPSDlg = (HWND) PropertySheet(&PSHdr);
+
+	if (hPSDlg <= 0)
+		hPSDlg = NULL;
+	return hPSDlg;
+}
+
+LRESULT CALLBACK GeneralPage(HWND hDlg, UINT unMsg, WPARAM wParam,
+							 LPARAM lParam)
+{
+/******************************************************************************
+ *
+ *  G e n e r a l P a g e
+ *
+ ******************************************************************************
+ *
+ *  Input:  hDlg - Handle to the page dialog
+ *          unMsg - Message ID
+ *          wParam - WPARAM message parameter
+ *          lParam - LPARAM message parameter
+ *
+ *  Return: FALSE if message is not processed
+ *          TRUE if message is processed here
+ *
+ *  Description: This is the window procedure for the "General" page dialog
+ *               of the property sheet dialog box. All the Property Sheet
+ *               related events are passed as WM_NOTIFY messages and they
+ *               are identified within the LPARAM which will be pointer to 
+ *               the NMDR structure
+ *****************************************************************************/
+	HINSTANCE hInstance;
+	hInstance = (HINSTANCE) GetWindowLong(hDlg, GWL_HINSTANCE);
+
+	switch (unMsg) {
+	case WM_INITDIALOG:
+		{
+			char *pszPtr;
+			char szText[256];
+			char szWindowText[256];
+			int bufLen = 128;
+			char szFullPath[256];
+			DWORD dwVerHnd;
+			DWORD dwVerInfoSize;
+			LV_COLUMN lvC;
+			LV_ITEM lvI;
+			HWND hWndLog;
+			int index = 0;
+			struct log_info *liTemp;
+			const int NCOLS = 3;
+
+			/* Display the number of times the server has been started by
+			   this session of the guardian
+			 */
+			SetDlgItemInt(hDlg, IDC_RESTARTS, nRestarts, FALSE);
+
+			/* get the path to the exe.  
+			   Make sure that it is null terminated */
+			GetModuleFileName(hInstance, szWindowText, 256);
+			pszPtr = strrchr(szWindowText, '\\');
+			*(pszPtr + 1) = 0x00;
+
+			ChopFileName(szWindowText, szWindowText, 38);
+			SetDlgItemText(hDlg, IDC_LOCATION, szWindowText);
+
+			/* Get version information from the application */
+			GetModuleFileName(hInstance, szFullPath, sizeof(szFullPath));
+			dwVerInfoSize = GetFileVersionInfoSize(szFullPath, &dwVerHnd);
+			if (dwVerInfoSize) {
+				/* If we were able to get the information, process it: */
+				HANDLE hMem;
+				LPVOID lpvMem;
+				UINT cchVer = 25;
+				LPSTR lszVer = NULL;
+
+				hMem = GlobalAlloc(GMEM_MOVEABLE, dwVerInfoSize);
+				lpvMem = GlobalLock(hMem);
+				GetFileVersionInfo(szFullPath, dwVerHnd, dwVerInfoSize,
+								   lpvMem);
+				if (VerQueryValue
+					(lpvMem, "\\StringFileInfo\\040904E4\\FileVersion",
+					 reinterpret_cast < void **>(&lszVer), &cchVer))
+					  SetDlgItemText(hDlg, IDC_VERSION, lszVer);
+				else
+					SetDlgItemText(hDlg, IDC_VERSION, "N/A");
+				GlobalUnlock(hMem);
+				GlobalFree(hMem);
+			}
+
+			/* Create the columns Action, Date, Time for the listbox */
+			hWndLog = GetDlgItem(hDlg, IDC_LOG);
+			lvC.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM;
+			lvC.fmt = LVCFMT_LEFT;	// left-align column
+			lvC.pszText = szText;
+
+			for (index = 0; index < NCOLS; index++) {
+				/* NOTE:  IDS_ACTION = 220
+				   IDS_DATE   = 230
+				   IDS_TIME   = 240
+				 */
+				lvC.iSubItem = index;
+				lvC.cx = 85;
+				LoadString(hInstance, IDS_ACTION + (index * 10), szText,
+						   sizeof(szText));
+				ListView_InsertColumn(hWndLog, index, &lvC);
+			}
+
+			liTemp = log_entry->next;
+			lvI.cchTextMax = sizeof(liTemp->log_action);
+			lvI.mask = LVIF_TEXT;
+			for (index = 0; liTemp->log_action;
+				 index++, liTemp = liTemp->next) {
+				lvI.iItem = index;
+				lvI.iSubItem = 0;
+				lvI.pszText = liTemp->log_action;
+				ListView_InsertItem(hWndLog, &lvI);
+				ListView_SetItemText(hWndLog, index, 0, lvI.pszText);
+
+				lvI.iSubItem = 1;
+				lvI.pszText = liTemp->log_date;
+				ListView_InsertItem(hWndLog, &lvI);
+				ListView_SetItemText(hWndLog, index, 1, lvI.pszText);
+
+				lvI.iSubItem = 2;
+				lvI.pszText = liTemp->log_time;
+				ListView_InsertItem(hWndLog, &lvI);
+				ListView_SetItemText(hWndLog, index, 2, lvI.pszText);
+			}
+		}
+		break;
+	case WM_HELP:
+		{
+			LPHELPINFO lphi;
+
+			lphi = (LPHELPINFO) lParam;
+			if (lphi->iContextType == HELPINFO_WINDOW)	// must be for a control
+				WinHelp((HWND) lphi->hItemHandle, GUARDIAN_HELP_FILE,
+						HELP_WM_HELP, (DWORD) (LPVOID) aMenuHelpIDs);
+			return TRUE;
+		}
+
+	case WM_CONTEXTMENU:
+		WinHelp((HWND) wParam, GUARDIAN_HELP_FILE, HELP_CONTEXTMENU,
+				(DWORD) (LPVOID) aMenuHelpIDs);
+		return TRUE;
+		break;
+	case WM_NOTIFY:
+		switch (((LPNMHDR) lParam)->code) {
+		case PSN_KILLACTIVE:
+			SetWindowLong(hDlg, DWL_MSGRESULT, FALSE);
+			break;
+		case PSN_HELP:
+			/*          HelpCmd(hDlg, hInstance, ibsp_Server_Information_Properties); */
+			break;
+		}
+		break;
+	}
+	return FALSE;
+}
+
+void swap_icons(HWND hWnd)
+{
+/******************************************************************************
+ *
+ *  S w a p I c o n s
+ *
+ ******************************************************************************
+ *
+ *  Description:  Animates the icon if the server restarted
+ *****************************************************************************/
+
+	HICON hIconNormal, hIconAlert;
+	NOTIFYICONDATA nidNormal, nidAlert;
+	HINSTANCE hInstance;
+
+	hInstance = (HINSTANCE) GetWindowLong(hWnd, GWL_HINSTANCE);
+	hIconNormal = (HICON) LoadImage(hInstance,
+									MAKEINTRESOURCE(IDI_IBGUARD),
+									IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);
+
+	hIconAlert = (HICON) LoadImage(hInstance,
+								   MAKEINTRESOURCE(IDI_IBGUARDALRT),
+								   IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);
+
+	nidNormal.cbSize = sizeof(NOTIFYICONDATA);
+	nidNormal.hWnd = hWnd;
+	nidNormal.uID = IDI_IBGUARD;
+	nidNormal.uFlags = NIF_ICON;
+	nidNormal.hIcon = hIconNormal;
+
+	nidAlert.cbSize = sizeof(NOTIFYICONDATA);
+	nidAlert.hWnd = hWnd;
+	nidAlert.uID = IDI_IBGUARD;
+	nidAlert.uFlags = NIF_ICON;
+	nidAlert.hIcon = hIconAlert;
+
+/* Animate until the property sheet is displayed.  Once the property sheet is
+displayed, stop animating the icon
+*/
+	while (!hPSDlg) {
+		if (!Shell_NotifyIcon(NIM_MODIFY, &nidAlert))
+			SetClassLong(hWnd, GCL_HICON, (long) hIconAlert);
+		Sleep(500);
+
+		if (!Shell_NotifyIcon(NIM_MODIFY, &nidNormal))
+			SetClassLong(hWnd, GCL_HICON, (long) hIconNormal);
+		Sleep(500);
+	}
+/* Make sure that the icon is normal */
+	if (!Shell_NotifyIcon(NIM_MODIFY, &nidNormal))
+		SetClassLong(hWnd, GCL_HICON, (long) hIconNormal);
+
+	if (hIconNormal)
+		DestroyIcon(hIconNormal);
+
+	if (hIconAlert)
+		DestroyIcon(hIconAlert);
+}
+
+void write_log(int log_action, char *buff)
+{
+/******************************************************************************
+ *
+ *  W r i t e L o g
+ *
+ ******************************************************************************
+ *
+ *  Description:  Writes the guardian information to either the Windows 95
+ *                property sheet structure (log_entry) or to the Windows NT
+ *                Event Log
+ *****************************************************************************/
+	char *act_buff[1];
+	char tmp_buff[128];
+	struct log_info *log_temp;
+	struct tm *today;
+	time_t ltime;
+
+	time(&ltime);
+	today = localtime(&ltime);
+
+/* Move to the end of the log_entry list */
+	log_temp = log_entry;
+	while (log_temp->next)
+		log_temp = log_temp->next;
+
+	log_info *tmp =
+		reinterpret_cast < log_info * >(malloc(sizeof(struct log_info)));
+	memset(tmp, 0, sizeof(struct log_info));
+
+#if 0
+	sprintf(tmp->log_time, "%02d:%02d", today->tm_hour, today->tm_min);
+	sprintf(tmp->log_date, "%02d/%02d/%02d",
+			today->tm_mon + 1, today->tm_mday, today->tm_year % 100);
+#else
+/* TMN: Fixed this after bug-report. Should it really force */
+/* 24hr format in e.g US, where they use AM/PM wharts?      */
+	GetTimeFormat(LOCALE_USER_DEFAULT,
+				  TIME_NOSECONDS | TIME_FORCE24HOURFORMAT, NULL, NULL,
+				  tmp->log_time, sizeof(tmp->log_time));
+	GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, NULL, NULL,
+				  tmp->log_date, sizeof(tmp->log_date));
+#endif
+
+	if (log_action >= IDS_LOG_START && log_action <= IDS_LOG_TERM) {
+		/* Only Windows 95 needs this information since it goes in the property sheet */
+		LoadString(hInstance_gbl, log_action, tmp_buff,
+				   sizeof(tmp->log_action));
+		sprintf(tmp->log_action, "%s", tmp_buff);
+		tmp->next = NULL;
+		log_temp->next = tmp;
+	}
+
+	if (service_flag == TRUE) {	/* on NT */
+		HANDLE hLog;
+		hLog = RegisterEventSource(NULL, "InterBase Guardian");
+		if (!hLog)
+			gds__log("Error opening Windows NT Event Log");
+		else {
+			LPVOID lpMsgBuf;
+			WORD wLogType;
+			act_buff[0] = (char *) malloc(sizeof(tmp_buff));
+			LoadString(hInstance_gbl, log_action + 1, tmp_buff,
+					   sizeof(tmp_buff));
+			sprintf(act_buff[0], "%s", buff);
+			FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER |
+						  FORMAT_MESSAGE_ARGUMENT_ARRAY |
+						  FORMAT_MESSAGE_FROM_STRING,
+						  tmp_buff, 0, 0, (LPTSTR) & lpMsgBuf, 0, act_buff);
+			strncpy(act_buff[0], (LPTSTR) lpMsgBuf,
+					strlen(reinterpret_cast < const char *>(lpMsgBuf)) - 1);
+			LocalFree(lpMsgBuf);
+			switch (log_action) {
+			case IDS_LOG_START:
+			case IDS_LOG_STOP:
+				wLogType = EVENTLOG_INFORMATION_TYPE;
+				break;
+			default:
+				wLogType = EVENTLOG_ERROR_TYPE;
+			}
+			if (!ReportEvent
+				(hLog, wLogType, 0, log_action + 1, NULL, 1, 0,
+				 const_cast < const char **>(act_buff), NULL)) {
+				FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER |
+							  FORMAT_MESSAGE_FROM_SYSTEM |
+							  FORMAT_MESSAGE_IGNORE_INSERTS, NULL,
+							  GetLastError(), MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),	// Default language
+							  (LPTSTR) & lpMsgBuf, 0, NULL);
+				gds__log("Unable to update NT Event Log.\n\tOS Message: %s",
+						 lpMsgBuf);
+				LocalFree(lpMsgBuf);
+			}
+			DeregisterEventSource(hLog);
+		}
+	}
+
+/* Write to the interbase log */
+	if (*buff)
+		gds__log(buff);
+}
+
+void HelpCmd(HWND hWnd, HINSTANCE hInst, WPARAM wId)
+{
+/****************************************************************
+ *                                              
+ *  H e l p C m d
+ *
+/****************************************************************
+ *
+ *  Input:     hWnd     - Handle of dialog box from which help was
+ *                        invoked.
+ *              hInst   - Instance of application.
+ *              nId       - The help message Id.
+ *
+ *  Description:  Invoke the Windows Help facility with context of nId.
+ *      
+ *****************************************************************/
+	HCURSOR hOldCursor;
+	char szPathFileName[1024 + 256 + 1];
+
+	GetModuleFileName(hInst, szPathFileName, sizeof(szPathFileName));
+
+/* Show hour glass cursor */
+	hOldCursor = SetCursor(LoadCursor(NULL, IDC_WAIT));
+
+	strcpy(strrchr(szPathFileName, '\\') + 1, "ibserver.hlp");
+	WinHelp(hWnd, szPathFileName, HELP_CONTEXT, wId);
+
+/* Restore old cursor */
+	SetCursor(hOldCursor);
+
+	return;
+}
diff --git a/src/iscguard/iscguard.h b/src/iscguard/iscguard.h
new file mode 100644
index 0000000000..e9ea261c2c
--- /dev/null
+++ b/src/iscguard/iscguard.h
@@ -0,0 +1,53 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#define APP_NAME        "InterBase Guardian"
+#define CLASS_NAME      "IB_Guard"
+#define	IBSERVER	    "ibserver.exe"
+#define GUARDIAN_HELP_FILE "ibserver.hlp"
+
+/* Help Constants */
+#define ibs_server_directory    8060
+#define ibs_guard_version       8080
+#define ibs_guard_log           8090
+
+#define ON_NOTIFYICON   WM_USER+2
+#define WM_SWITCHICONS  WM_USER+3
+
+#define START_ONCE      0
+#define START_FOREVER   1
+
+#define NORMAL_EXIT	0
+#define CRASHED		-1
+
+#ifdef VMS
+/* also defined in common.h, if this is changed remember to change common.h */
+#define STARTUP_ERROR   46
+#else /* if not VMS */
+/* also defined in common.h, if this is changed remember to change common.h */
+#define STARTUP_ERROR   2
+#endif /* VMS */
+#define args             args
+
+typedef void (*FPTR_VOID) ();
+typedef struct log_info {
+	char log_action[25];
+	char log_date[25];
+	char log_time[25];
+	struct log_info *next;
+} LOG_INFO;
diff --git a/src/iscguard/iscguard.rc b/src/iscguard/iscguard.rc
new file mode 100644
index 0000000000..9a1f175b33
--- /dev/null
+++ b/src/iscguard/iscguard.rc
@@ -0,0 +1,76 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include <windows.h>
+#include "iscguard.rh"
+#include "windows.h"
+#include "../jrd/version_95.rc"
+
+STRINGTABLE 
+{
+ IDS_QUIT, "connections active; Are you sure you want to exit?"
+ IDS_REGERROR, "Error registering main window class"
+ IDS_ALREADYSTARTED, "The InterBase Guardian failed to startup\r\nbecause another instance of the guardian\r\nis already running."
+ IDS_INTRSVRPROPERTIES, "InterServer Properties..."
+ IDS_SVRPROPERTIES, "InterBase Properties..."
+ IDS_PROPERTIES, "P&roperties"
+ IDS_SHUTDOWN, "&Shutdown"
+ IDS_CANT_START_THREAD, "The guardian was unable to launch the server thread."
+ IDS_REGISTRY_INFO_MISSING, "The registry information is missing.\r\nPlease run the InterBase Configuration Utility"
+ IDS_STARTING_GUARD, "Guardian starting"
+ IDS_STARTUP_ERROR, "terminated because of startup errors"
+ IDS_ABNORMAL_TERM, "terminated abnormally"
+ IDS_NORMAL_TERM, "normal shutdown"
+ IDS_PROP_TITLE, "General"
+ IDS_ACTION, "Action"
+ IDS_DATE, "Date"
+ IDS_TIME, "Time"
+ IDS_LOG_START, "Server Started"
+ IDS_EVTLOG_START, "Server Started: %1"
+ IDS_LOG_STOP, "Server Shutdown"
+ IDS_EVTLOG_STOP, "Server Shutdown: %1"
+ IDS_LOG_RESTART,"Server Restarted"
+ IDS_EVTLOG_RESTART,"Server Restarted: %1"
+ IDS_LOG_TERM, "Abnormal Termination"
+ IDS_EVTLOG_TERM, "Abnormal Termination: %1"
+}
+
+IDD_PROPSHEET DIALOG 0, 0, 202, 191
+STYLE WS_CHILD | WS_VISIBLE
+CAPTION ""
+FONT 8, "MS Sans Serif"
+{
+ CONTROL "Number of server restarts:", -1, "static", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 12, 80, 84, 8, 0
+ CONTROL "", -1, "static", SS_GRAYRECT | SS_SUNKEN | WS_CHILD | WS_VISIBLE, 12, 75, 180, 1, 0
+ CONTROL "Version:", -1, "static", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 12, 61, 30, 12, 0
+ CONTROL "Location:", -1, "static", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 12, 49, 40, 12, 0
+ CONTROL "", -1, "static", SS_GRAYRECT | SS_SUNKEN | WS_CHILD | WS_VISIBLE, 12, 40, 180, 1, 0
+ CONTROL IDI_IBGUARD, IDI_IBGUARD, "static", SS_ICON | SS_REALSIZEIMAGE | WS_CHILD | WS_VISIBLE, 12, 9, 21, 20, 0
+ CONTROL "", IDC_RESTARTS, "static", SS_LEFT | WS_CHILD | WS_VISIBLE, 96, 80, 60, 8, 0
+ CONTROL "", IDC_LOCATION, "static", SS_LEFT | WS_CHILD | WS_VISIBLE, 44, 49, 144, 8, 0
+ CONTROL "InterBase Guardian for Windows", -1, "static", SS_LEFT | WS_CHILD | WS_VISIBLE, 44, 12, 144, 8, 0
+ CONTROL "Text7", IDC_VERSION, "static", SS_LEFT | WS_CHILD | WS_VISIBLE, 44, 61, 144, 8, 0
+ CONTROL "ListView1", IDC_LOG, "SysListView32", LVS_REPORT | LVS_SINGLESEL | LVS_NOLABELWRAP | LVS_NOSORTHEADER | WS_CHILD | WS_VISIBLE | WS_BORDER, 12, 99, 184, 81
+}
+
+IDI_IBGUARD ICON "Sgard23i.ico"
+
+IDI_IBGUARDALRT	ICON "Salrt23i.ico"
+
+
+
diff --git a/src/iscguard/iscguard.rh b/src/iscguard/iscguard.rh
new file mode 100644
index 0000000000..b915e7e7ea
--- /dev/null
+++ b/src/iscguard/iscguard.rh
@@ -0,0 +1,76 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/****************************************************************************
+iscguard.rh
+*****************************************************************************/
+
+/* Dialogs */
+#define IDS_PROP_TITLE			217
+#define IDS_NORMAL_TERM			216
+#define IDS_ABNORMAL_TERM		215
+#define IDS_STARTUP_ERROR		214
+#define IDS_STARTING_GUARD		213
+#define IDS_REGISTRY_INFO_MISSING	212
+#define IDS_CANT_START_THREAD		211
+#define IDD_PROPSHEET			1001
+
+/* Icons */
+#define IDI_IBGUARD			101
+#define IDI_IBGUARDALRT			102
+
+/* Controls */
+#define IDC_RESTARTS			1
+#define IDC_LOCATION			2
+#define IDC_VERSION			4
+#define IDC_LOG				102
+
+/* Menu Items */
+#define IDM_SHUTDOWN			5
+#define IDM_CANCEL			6
+#define IDM_OPEN			8
+#define IDM_OPENPOPUP			9
+#define IDM_PROPERTIES			10
+#define IDM_INTRSVRPROPERTIES	 	12
+#define IDM_SVRPROPERTIES		13
+#define IDM_GUARDED			14
+#define IDM_SET_SERVER_PID		15
+
+/* Defines for String Table */
+#define IDS_QUIT			201
+#define IDS_REGERROR			202
+#define IDS_PROPERTIES			203
+#define IDS_STARTUPCFG			204
+#define IDS_SHUTDOWN			205
+#define IDS_ALREADYSTARTED		206
+#define IDS_STARTUP_NODLL      		207
+#define IDS_STARTUP_LAUNCHER    	208
+#define IDS_INTRSVRPROPERTIES 		209
+#define IDS_SVRPROPERTIES		210
+#define IDS_ACTION			220
+#define IDS_DATE			230
+#define IDS_TIME			240
+#define IDS_LOG_START			250
+#define IDS_EVTLOG_START		251
+#define IDS_LOG_STOP			260
+#define IDS_EVTLOG_STOP			261
+#define IDS_LOG_RESTART			270
+#define IDS_EVTLOG_RESTART		271
+#define IDS_LOG_TERM			280
+#define IDS_EVTLOG_TERM			281
diff --git a/src/iscguard/iscguard_utils.cpp b/src/iscguard/iscguard_utils.cpp
new file mode 100644
index 0000000000..2218771f03
--- /dev/null
+++ b/src/iscguard/iscguard_utils.cpp
@@ -0,0 +1,78 @@
+	/*************	history	************
+*
+*	COMPONENT: ISCGUARD	MODULE: ISCGUARD_UTILS.C
+*	generated by Marion V2.5     2/6/90
+*	from dev              db	on 31-JUL-1997
+*****************************************************************
+*
+*	0	DUQUETTE	31-JUL-1997
+*	history begins
+*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+*/
+
+
+#include <stdlib.h>
+#include <windows.h>
+#include "../iscguard/iscguard.h"
+
+int GetGuardStartupInfo(char *svrpath, char *opt)
+{
+/**************************************
+ *
+ *	G e t G u a r d S t a r t u p I n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *  open the registry and read the startup information
+ *  return in the buffer, the path to the executable. The
+ *  function returns START_ONCE or START_FOREVER.  Returns 0
+ *  if any function fails.
+ *
+ **************************************/
+
+	HKEY hKeyResult;
+	LPCSTR lpSubKey = "Software\\Borland\\InterBase\\CurrentVersion";
+	DWORD buffSize, retval;
+
+	buffSize = MAX_PATH - 2;	/* reserve place for null and the \ */
+
+	retval =
+		RegOpenKeyEx(HKEY_LOCAL_MACHINE, lpSubKey, 0, KEY_QUERY_VALUE,
+					 &hKeyResult);
+	retval =
+		RegQueryValueEx(hKeyResult, "ServerDirectory", NULL, NULL,
+						reinterpret_cast < LPBYTE > (svrpath), &buffSize);
+/* if there is a value check for the last charecter if it is not a \ then
+ * add a \ 
+ */
+	if (buffSize) {
+		/* buffSize includes the null character in its size hence it is strlen + 1 */
+		if (svrpath[buffSize - 2] != '\\') {
+			svrpath[buffSize - 1] = '\\';
+			svrpath[buffSize] = 0;
+		}
+	}
+	retval =
+		RegQueryValueEx(hKeyResult, "GuardianOptions", NULL, NULL,
+						reinterpret_cast < LPBYTE > (opt), &buffSize);
+	RegCloseKey(hKeyResult);
+	return ((retval == ERROR_SUCCESS ? 1 : 0));
+}
diff --git a/src/iscguard/salrt23i.ico b/src/iscguard/salrt23i.ico
new file mode 100644
index 0000000000..60b1f4ffa1
Binary files /dev/null and b/src/iscguard/salrt23i.ico differ
diff --git a/src/iscguard/sgard23i.ico b/src/iscguard/sgard23i.ico
new file mode 100644
index 0000000000..a8ce31e833
Binary files /dev/null and b/src/iscguard/sgard23i.ico differ
diff --git a/src/isql/depends.mak b/src/isql/depends.mak
new file mode 100644
index 0000000000..7bd6075370
--- /dev/null
+++ b/src/isql/depends.mak
@@ -0,0 +1,115 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# depends.mak - isql
+# Created by 'make depends.mak'
+# Created on 1998-11-17
+extract.o: extra_proto.h
+extract.o: extract.c
+extract.o: isql.h
+extract.o: isql_proto.h
+extract.o: show_proto.h
+extract.o: source/dsql/blk.h
+extract.o: source/dsql/dsql.h
+extract.o: source/interbase/include/iberror.h
+extract.o: source/jrd/common.h
+extract.o: source/jrd/constants.h
+extract.o: source/jrd/dsc.h
+extract.o: source/jrd/fil.h
+extract.o: source/jrd/flags.h
+extract.o: source/jrd/gds.h
+extract.o: source/jrd/gds_proto.h
+extract.o: source/jrd/ibsetjmp.h
+extract.o: source/jrd/ods.h
+extract.o: source/jrd/thd.h
+isql.o: extra_proto.h
+isql.o: isql.c
+isql.o: isql.h
+isql.o: isql_proto.h
+isql.o: show_proto.h
+isql.o: source/interbase/include/iberror.h
+isql.o: source/jrd/build_no.h
+isql.o: source/jrd/common.h
+isql.o: source/jrd/constants.h
+isql.o: source/jrd/fil.h
+isql.o: source/jrd/flags.h
+isql.o: source/jrd/gds.h
+isql.o: source/jrd/gds_proto.h
+isql.o: source/jrd/gdsassert.h
+isql.o: source/jrd/license.h
+isql.o: source/jrd/ods.h
+isql.o: source/jrd/perf.h
+isql.o: source/jrd/perf_proto.h
+isql.o: source/jrd/thd.h
+isql.o: source/jrd/time.h
+isql.o: source/jrd/utl_proto.h
+isql_win.o: isql.h
+isql_win.o: isql_proto.h
+isql_win.o: isql_res.h
+isql_win.o: isql_win.c
+isql_win.o: isql_win.h
+isql_win.o: isqlw_proto.h
+isql_win.o: source/interbase/include/iberror.h
+isql_win.o: source/jrd/common.h
+isql_win.o: source/jrd/fil.h
+isql_win.o: source/jrd/flags.h
+isql_win.o: source/jrd/gds.h
+isql_win.o: source/jrd/gds_proto.h
+isql_win.o: source/jrd/thd.h
+muisql.o: extra_proto.h
+muisql.o: isql.h
+muisql.o: isql_proto.h
+muisql.o: muisql.c
+muisql.o: show_proto.h
+muisql.o: source/interbase/include/iberror.h
+muisql.o: source/jrd/build_no.h
+muisql.o: source/jrd/common.h
+muisql.o: source/jrd/constants.h
+muisql.o: source/jrd/fil.h
+muisql.o: source/jrd/flags.h
+muisql.o: source/jrd/gds.h
+muisql.o: source/jrd/gds_proto.h
+muisql.o: source/jrd/gdsassert.h
+muisql.o: source/jrd/license.h
+muisql.o: source/jrd/ods.h
+muisql.o: source/jrd/perf.h
+muisql.o: source/jrd/perf_proto.h
+muisql.o: source/jrd/thd.h
+muisql.o: source/jrd/time.h
+muisql.o: source/jrd/utl_proto.h
+show.o: isql.h
+show.o: isql_proto.h
+show.o: show.c
+show.o: show_proto.h
+show.o: source/dsql/blk.h
+show.o: source/dsql/dsql.h
+show.o: source/interbase/include/iberror.h
+show.o: source/intl/charsets.h
+show.o: source/jrd/build_no.h
+show.o: source/jrd/common.h
+show.o: source/jrd/constants.h
+show.o: source/jrd/dsc.h
+show.o: source/jrd/fil.h
+show.o: source/jrd/flags.h
+show.o: source/jrd/gds.h
+show.o: source/jrd/gds_proto.h
+show.o: source/jrd/ibsetjmp.h
+show.o: source/jrd/intl.h
+show.o: source/jrd/license.h
+show.o: source/jrd/obj.h
+show.o: source/jrd/ods.h
+show.o: source/jrd/thd.h
+show.o: source/jrd/utl_proto.h
diff --git a/src/isql/extra_proto.h b/src/isql/extra_proto.h
new file mode 100644
index 0000000000..e87fc4f790
--- /dev/null
+++ b/src/isql/extra_proto.h
@@ -0,0 +1,31 @@
+/*
+ *	PROGRAM:	Interactive SQL utility
+ *	MODULE:		extra_proto.h
+ *	DESCRIPTION:	Prototype header file for extract.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ISQL_EXTRA_PROTO_H_
+#define _ISQL_EXTRA_PROTO_H_
+
+extern SSHORT EXTRACT_ddl(int, SCHAR *);
+extern SSHORT EXTRACT_list_table(SCHAR *, SCHAR *, SSHORT, SSHORT);
+extern void EXTRACT_list_view(SCHAR *);
+
+#endif /* _ISQL_EXTRA_PROTO_H_ */
diff --git a/src/isql/extract.e b/src/isql/extract.e
new file mode 100644
index 0000000000..a567a26af0
--- /dev/null
+++ b/src/isql/extract.e
@@ -0,0 +1,2902 @@
+/*
+ *	PROGRAM:	Interactive SQL utility
+ *	MODULE:		extract.e
+ *	DESCRIPTION:	Definition extract routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: extract.e,v 1.1.1.1 2001-05-23 13:26:02 tamlin Exp $
+ * Revision 1.3  2000/11/22 17:07:25  patrickgriffin
+ * In get_procedure_args change comment style from // to /*
+ *
+ * ...pat
+ *
+ * Revision 1.2  2000/11/18 16:49:24  fsg
+ * Increased PRINT_BUFFER_LENGTH to 2048 to show larger plans
+ * Fixed Bug #122563 in extract.e get_procedure_args
+ * Apparently this has to be done in show.e also,
+ * but that is for another day :-)
+ *
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include <math.h>
+#include <ctype.h>				/* isdigit */
+#ifdef GUI_TOOLS
+#include <windows.h>
+#endif
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../dsql/dsql.h"
+#include "../isql/isql.h"
+#include "../jrd/constants.h"
+#include "../isql/extra_proto.h"
+#include "../isql/isql_proto.h"
+#include "../isql/show_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/ods.h"
+
+DATABASE DB = EXTERN COMPILETIME "yachts.lnk";
+
+extern USHORT major_ods;
+extern USHORT minor_ods;
+extern SSHORT V33;
+
+static void list_all_grants(void);
+static void list_all_procs(void);
+static void list_all_tables(SSHORT, SSHORT);
+static void list_all_triggers(void);
+static void list_check(void);
+static void list_create_db(void);
+static void list_domain_table(SCHAR *, SSHORT);
+static void list_domains(SSHORT);
+static void list_exception(void);
+static void list_filters(void);
+static void list_foreign(void);
+static void list_functions(void);
+static void list_generators(void);
+static void list_index(void);
+static void list_views(void);
+
+static void get_procedure_args(SCHAR *);
+
+#define MAX_INTSUBTYPES	2
+#define MAXSUBTYPES	8
+#define BLANK		'\040'
+#define DBL_QUOTE	'\042'
+#define SINGLE_QUOTE	'\''
+
+extern IB_FILE *Out;
+
+/* Command terminator and procedure terminator */
+
+extern SQLTYPES Column_types[];
+extern SCHAR *Integral_subtypes[];
+extern SCHAR *Sub_types[];
+extern SCHAR *Trigger_types[];
+
+static SCHAR *Procterm = "^";	/* TXNN: script use only */
+
+/* Maybe 512 would be really enough as Print_buffer size, but
+   as we have PRINT_BUFFER_LENGTH in isql.h, we should use it 
+   FSG 17.Nov.2000
+*/
+
+static TEXT Print_buffer[PRINT_BUFFER_LENGTH];
+static TEXT SQL_identifier[BUFFER_LENGTH128];
+static TEXT SQL_identifier2[BUFFER_LENGTH128];
+
+
+
+SSHORT EXTRACT_ddl( int flag, SCHAR * tabname)
+{
+/**************************************
+ *
+ *	E X T R A C T _ d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extract all sql information
+ *	0 flag means SQL only tables. 1 flag means all tables
+ *
+ **************************************/
+	SCHAR errbuf[MSG_LENGTH];
+	SSHORT ret_code = FINI_OK;
+	USHORT did_attach = FALSE;
+	USHORT did_start = FALSE;
+	SSHORT default_char_set_id;
+
+	if (!DB)
+	{
+		if (isc_attach_database(gds__status, 0, Db_name, &DB, 0, (SCHAR *) 0))
+		{
+			ISQL_errmsg(gds__status);
+			return (SSHORT) FINI_ERROR;
+		}
+		did_attach = TRUE;
+	}
+
+	ISQL_get_version(FALSE);
+	if (SQL_dialect != db_SQL_dialect)
+	{
+		sprintf(Print_buffer,
+				"/*=========================================================*/%s",
+				NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+
+		sprintf(Print_buffer,
+				"/*=                                                      ==*/%s",
+				NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+
+		sprintf(Print_buffer,
+				"/*=     Command Line -sqldialect %d is overwritten by    ==*/%s",
+				SQL_dialect, NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+
+		sprintf(Print_buffer,
+				"/*=     Database SQL Dialect %d.                          ==*/%s",
+				db_SQL_dialect, NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+
+		sprintf(Print_buffer,
+				"/*=                                                      ==*/%s",
+				NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+
+		sprintf(Print_buffer,
+				"/*=========================================================*/%s",
+				NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+	}
+	sprintf(Print_buffer, " %s", NEWLINE);
+	ISQL_printf(Out, Print_buffer);
+
+	sprintf(Print_buffer, "SET SQL DIALECT %d; %s", db_SQL_dialect, NEWLINE);
+	ISQL_printf(Out, Print_buffer);
+
+	sprintf(Print_buffer, " %s", NEWLINE);
+	ISQL_printf(Out, Print_buffer);
+
+	if (!gds__trans)
+	{
+		if (isc_start_transaction(gds__status,
+									&gds__trans,
+									1,
+									&DB,
+									0,
+									(SCHAR *) 0))
+		{
+			ISQL_errmsg(gds__status);
+			return (SSHORT) FINI_ERROR;
+		}
+		did_start = TRUE;
+	}
+
+	default_char_set_id = ISQL_get_default_char_set_id();
+
+/* If a table name was passed, extract only that table and domains */
+	if (*tabname)
+	{
+		if (EXTRACT_list_table(tabname, NULL, 1, default_char_set_id))
+		{
+			gds__msg_format(NULL_PTR, ISQL_MSG_FAC, NOT_FOUND, sizeof(errbuf),
+							errbuf, tabname, NULL, NULL, NULL, NULL);
+			STDERROUT(errbuf, 1);
+			ret_code = (SSHORT) FINI_ERROR;
+		}
+	}
+	else
+	{
+		list_create_db();
+		list_filters();
+		list_functions();
+		list_domains(default_char_set_id);
+		list_all_tables(flag, default_char_set_id);
+		list_index();
+		list_foreign();
+		list_generators();
+		list_views();
+		list_check();
+		list_exception();
+		list_all_procs();
+		list_all_triggers();
+		list_all_grants();
+	}
+
+	if (gds__trans && did_start)
+		if (isc_commit_transaction(gds__status, &gds__trans))
+		{
+			ISQL_errmsg(gds__status);
+			return (SSHORT) FINI_ERROR;
+		}
+
+	if (DB && did_attach)
+	{
+		if (isc_detach_database(gds__status, &DB))
+		{
+			ISQL_errmsg(gds__status);
+			return (SSHORT) FINI_ERROR;
+		}
+		DB = NULL;
+	}
+
+	return (SSHORT) ret_code;
+}
+
+
+SSHORT EXTRACT_list_table(SCHAR * relation_name,
+						  SCHAR * new_name,
+						  SSHORT domain_flag, SSHORT default_char_set_id)
+{
+/**************************************
+ *
+ *	E X T R A C T _ l i s t _ t a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shows columns, types, info for a given table name
+ *	and text of views.
+ *	Use a GDML query to get the info and print it.
+ *	If a new_name is passed, substitute it for relation_name
+ *
+ *	relation_name -- Name of table to investigate
+ *	new_name -- Name of a new name for a replacement table
+ *	domain_flag -- extract needed domains before the table
+ *	default_char_set_id -- character set def to supress
+ *
+ **************************************/
+/**************************************
+ *	default_char_set_id warrents special
+ *	consideration.  If the metadata for a
+ *	table is being extracted when there is
+ *	really no need to redundantly and repeatedly
+ *	list the databases default character set
+ *	for every field.
+ *
+ *	At the same time there is a need to list
+ *	the character set NONE when it is not
+ *	the default character set for the database.
+ *
+ *	EXCEPT!  If the metadata is being extracted
+ *	with the intention of coping that tables structure
+ *	into another database, and it is not possible
+ *	to know the default character set for the
+ *	target database, then list every fields
+ *	character set.  This includes the character
+ *	set NONE.
+ *
+ *	Fields with no character set definition will
+ *	not have any character set listed.
+ *
+ *	Use -1 as the default_char_set_id
+ *	in this case.
+ *
+ *	POTENTIAL TRAP!  Consider the following:
+ *	When copying a table from one database
+ *	to another how should fields using the
+ *	default character set be handled?
+ *
+ *	If both databases have the same default
+ *	character set, then there is no problem
+ *	or confusion.
+ *
+ *	If the databases have different default
+ *	character sets then should fields using
+ *	the default is the source database use
+ *	the default of the target database?
+ *
+ **************************************/
+
+	USHORT first;
+	SSHORT collation, char_set_id;
+	SSHORT i;
+	SCHAR *collist, char_sets[86];
+	SSHORT subtype;
+	SSHORT intchar;
+
+/* Query to obtain relation detail information */
+
+	first = TRUE;
+	collist = NULL;
+	intchar = 0;
+
+	FOR REL IN RDB$RELATIONS CROSS
+	   RFR IN RDB$RELATION_FIELDS CROSS
+	   FLD IN RDB$FIELDS WITH
+	   RFR.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME AND
+	   RFR.RDB$RELATION_NAME EQ REL.RDB$RELATION_NAME AND
+	   REL.RDB$RELATION_NAME EQ relation_name
+	   SORTED BY RFR.RDB$FIELD_POSITION, RFR.RDB$FIELD_NAME
+	
+	    if (first)
+		{
+            first = FALSE;
+            /* Do we need to print domains */
+            if (domain_flag)
+                list_domain_table (relation_name,default_char_set_id);
+            
+            ISQL_blankterm (REL.RDB$OWNER_NAME);
+            sprintf (Print_buffer, "%s/* Table: %s, Owner: %s */%s", 
+                     NEWLINE,
+                     relation_name,
+                     REL.RDB$OWNER_NAME,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+            if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+			{
+                if (new_name)
+                    ISQL_copy_SQL_id (new_name, &SQL_identifier, DBL_QUOTE);
+                else
+                    ISQL_copy_SQL_id (relation_name, &SQL_identifier, DBL_QUOTE);
+                sprintf (Print_buffer, "CREATE TABLE %s ", SQL_identifier);
+            }
+            else
+                sprintf (Print_buffer, "CREATE TABLE %s ", 
+                         new_name ? new_name : relation_name);
+            ISQL_printf (Out, Print_buffer);
+            if (!REL.RDB$EXTERNAL_FILE.NULL)
+			{
+                ISQL_copy_SQL_id (REL.RDB$EXTERNAL_FILE, &SQL_identifier2, 
+                                  SINGLE_QUOTE);
+                sprintf (Print_buffer, "EXTERNAL FILE %s ", SQL_identifier2);
+                ISQL_printf (Out, Print_buffer);
+            }
+            ISQL_printf (Out, "(");
+        }
+	    else
+		{
+            sprintf (Print_buffer, ",%s%s", NEWLINE, TAB);
+            ISQL_printf (Out, Print_buffer); 
+        }
+	
+        if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+		{
+            ISQL_copy_SQL_id (ISQL_blankterm (RFR.RDB$FIELD_NAME),
+                              &SQL_identifier, DBL_QUOTE);
+            sprintf (Print_buffer, "%s ", SQL_identifier);
+        }
+	    else
+            sprintf (Print_buffer, "%s ", ISQL_blankterm (RFR.RDB$FIELD_NAME));
+	    ISQL_printf (Out, Print_buffer);
+        
+	    /*
+	    ** Check first for computed fields, then domains.
+	    ** If this is a known domain, then just print the domain rather than type 
+	    ** Domains won't have length, array, or blob definitions, but they
+	    ** may have not null, default and check overriding their definitions
+	    */
+        
+	    if (!FLD.RDB$COMPUTED_BLR.NULL)
+		{
+            ISQL_printf (Out, "COMPUTED BY ");
+            if (!FLD.RDB$COMPUTED_SOURCE.NULL)
+                ISQL_print_validation (Out, &FLD.RDB$COMPUTED_SOURCE, 1, gds__trans);
+        }
+	    else if (!((strncmp(FLD.RDB$FIELD_NAME, "RDB$", 4) == 0) && 
+                   isdigit (FLD.RDB$FIELD_NAME[4]) &&
+                   FLD.RDB$SYSTEM_FLAG != 1))
+		{
+            ISQL_blankterm (FLD.RDB$FIELD_NAME);
+            if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+			{
+                ISQL_copy_SQL_id (FLD.RDB$FIELD_NAME, &SQL_identifier, DBL_QUOTE);
+                sprintf (Print_buffer, "%s", SQL_identifier);
+            }
+            else
+                sprintf (Print_buffer, "%s", FLD.RDB$FIELD_NAME);
+            ISQL_printf (Out, Print_buffer);
+            /* International character sets */
+            if ((FLD.RDB$FIELD_TYPE == FCHAR || FLD.RDB$FIELD_TYPE == VARCHAR)
+                && !RFR.RDB$COLLATION_ID.NULL && RFR.RDB$COLLATION_ID)
+			{
+                char_sets [0] = '\0';
+                collation = RFR.RDB$COLLATION_ID;
+                ISQL_get_character_sets (FLD.RDB$CHARACTER_SET_ID, collation, TRUE, char_sets);
+                if (char_sets [0])
+                    ISQL_printf (Out, char_sets);
+            }
+        }
+	    else
+		{
+            /* Look through types array */
+            for (i = 0; Column_types [i].type; i++)
+	            if (FLD.RDB$FIELD_TYPE == Column_types [i].type)
+				{
+                    BOOLEAN precision_known = FALSE;
+                    
+                    if (major_ods >= ODS_VERSION10)
+					{ 
+                            /* Handle Integral subtypes NUMERIC and DECIMAL */
+                        if ((FLD.RDB$FIELD_TYPE == SMALLINT) || 
+                            (FLD.RDB$FIELD_TYPE == INTEGER)  ||
+                            (FLD.RDB$FIELD_TYPE == blr_int64))
+						{
+                            FOR FLD1 IN RDB$FIELDS WITH
+                                FLD1.RDB$FIELD_NAME EQ FLD.RDB$FIELD_NAME
+                                
+                                /* We are ODS >= 10 and could be any Dialect */
+                                if (!FLD1.RDB$FIELD_PRECISION.NULL)
+								{ 
+                                    /* We are Dialect >=3 since FIELD_PRECISION is non-NULL */
+                                    if (FLD1.RDB$FIELD_SUB_TYPE > 0 &&
+                                        FLD1.RDB$FIELD_SUB_TYPE <= MAX_INTSUBTYPES)
+									{
+                                        sprintf (Print_buffer, "%s(%d, %d)", 
+                                                 Integral_subtypes [FLD1.RDB$FIELD_SUB_TYPE],
+                                                 FLD1.RDB$FIELD_PRECISION,
+                                                 -FLD1.RDB$FIELD_SCALE);
+                                        precision_known = TRUE;
+                                    }
+                                }
+                            END_FOR
+                            ON_ERROR
+                                ISQL_errmsg (isc_status);
+                                return ERR;
+                            END_ERROR;
+                        }
+                    }
+	
+                    if (precision_known == FALSE)
+					{
+                        
+                        /* Take a stab at numerics and decimals */
+                        if ((FLD.RDB$FIELD_TYPE == SMALLINT) && 
+                            (FLD.RDB$FIELD_SCALE < 0))
+						{
+                            sprintf (Print_buffer, "NUMERIC(4, %d)", 
+                                     -FLD.RDB$FIELD_SCALE);
+                        }
+                        else if ((FLD.RDB$FIELD_TYPE == INTEGER) && 
+                                 (FLD.RDB$FIELD_SCALE < 0))
+						{
+                            sprintf (Print_buffer, "NUMERIC(9, %d)", 
+                                     -FLD.RDB$FIELD_SCALE);
+                        }
+                        else if ((FLD.RDB$FIELD_TYPE == DOUBLE_PRECISION) &&
+                                 (FLD.RDB$FIELD_SCALE < 0))
+						{
+                            sprintf (Print_buffer, "NUMERIC(15, %d)", 
+                                     -FLD.RDB$FIELD_SCALE);
+                        }
+                        else
+                            sprintf (Print_buffer, "%s", 
+                                     Column_types [i].type_name);
+                    }
+                    ISQL_printf (Out, Print_buffer);
+	                break;
+                }
+	
+	
+            if ((FLD.RDB$FIELD_TYPE == FCHAR) || (FLD.RDB$FIELD_TYPE == VARCHAR))
+                if (FLD.RDB$CHARACTER_LENGTH.NULL)
+				{
+
+                    sprintf (Print_buffer, "(%d)", FLD.RDB$FIELD_LENGTH);
+                    ISQL_printf (Out, Print_buffer);
+                }
+                else
+				{
+                    sprintf (Print_buffer, "(%d)", FLD.RDB$CHARACTER_LENGTH);
+                    ISQL_printf (Out, Print_buffer);
+                }
+            
+	        /* Catch arrays after printing the type  */
+            
+            if (!FLD.RDB$DIMENSIONS.NULL)
+                ISQL_array_dimensions (FLD.RDB$FIELD_NAME);
+            
+            if (FLD.RDB$FIELD_TYPE == BLOB)
+			{
+                subtype = FLD.RDB$FIELD_SUB_TYPE;
+                ISQL_printf (Out, " SUB_TYPE "); 
+                if ((subtype > 0) && (subtype <= MAXSUBTYPES))
+                    ISQL_printf (Out, Sub_types [subtype]);
+                else
+				{
+                    sprintf (Print_buffer, "%d", subtype); 
+                    ISQL_printf (Out, Print_buffer);
+                }
+                sprintf (Print_buffer, " SEGMENT SIZE %u", 
+                         (USHORT) FLD.RDB$SEGMENT_LENGTH);
+                ISQL_printf (Out, Print_buffer);
+            }
+	
+            /* International character sets */
+            if ((FLD.RDB$FIELD_TYPE == FCHAR || FLD.RDB$FIELD_TYPE == VARCHAR ||
+                 FLD.RDB$FIELD_TYPE == BLOB) &&
+                !FLD.RDB$CHARACTER_SET_ID.NULL)
+			{
+
+                char_sets [0] = '\0';
+                
+                /* Override rdb$fields id with relation_fields if present */
+                
+                collation = 0; 
+                if (!RFR.RDB$COLLATION_ID.NULL)
+                    collation = RFR.RDB$COLLATION_ID;
+                else if (!FLD.RDB$COLLATION_ID.NULL)
+                    collation = FLD.RDB$COLLATION_ID;
+                
+                char_set_id = 0;
+                if (!FLD.RDB$CHARACTER_SET_ID.NULL)
+                    char_set_id = FLD.RDB$CHARACTER_SET_ID;
+                if ((char_set_id != default_char_set_id) || collation)
+                    ISQL_get_character_sets (char_set_id, 0, FALSE, char_sets);
+                if (char_sets [0])
+                    ISQL_printf (Out, char_sets);
+                if (!char_set_id)
+                    intchar = 1;
+            }
+        }
+        
+        
+	    /* Handle defaults for columns */
+	
+	    if (!RFR.RDB$DEFAULT_SOURCE.NULL)
+		{
+
+            ISQL_printf (Out, " ");
+            SHOW_print_metadata_text_blob (Out, &RFR.RDB$DEFAULT_SOURCE);
+        }
+	
+	
+	    /* The null flag is either 1 or null (for nullable) .  if there is
+	    **  a constraint name, print that too.  Domains cannot have named 
+	    **  constraints.  The column name is in rdb$trigger_name in 
+	    **  rdb$check_constraints.  We hope we get at most one row back.
+	    */
+	
+	    if (RFR.RDB$NULL_FLAG == 1)
+		{
+            FOR RCO IN RDB$RELATION_CONSTRAINTS CROSS
+                CON IN RDB$CHECK_CONSTRAINTS WITH
+                CON.RDB$TRIGGER_NAME = RFR.RDB$FIELD_NAME AND
+                CON.RDB$CONSTRAINT_NAME = RCO.RDB$CONSTRAINT_NAME AND
+                RCO.RDB$CONSTRAINT_TYPE EQ "NOT NULL" AND 
+                RCO.RDB$RELATION_NAME = RFR.RDB$RELATION_NAME
+                
+                if (strncmp(CON.RDB$CONSTRAINT_NAME, "INTEG", 5))
+				{
+                    ISQL_blankterm(CON.RDB$CONSTRAINT_NAME);
+                    if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+					{
+
+                        ISQL_copy_SQL_id (CON.RDB$CONSTRAINT_NAME, &SQL_identifier,
+                                          DBL_QUOTE);
+                        sprintf (Print_buffer, " CONSTRAINT %s", SQL_identifier);
+                    }
+                    else
+                    sprintf (Print_buffer, " CONSTRAINT %s", 
+                             CON.RDB$CONSTRAINT_NAME);
+                    ISQL_printf (Out, Print_buffer);
+                }
+            END_FOR
+	        ON_ERROR
+                ISQL_errmsg (gds__status);
+	            return (SSHORT)FINI_ERROR;
+	        END_ERROR;
+            
+            
+            ISQL_printf (Out, " NOT NULL");
+        }
+	
+        if ((FLD.RDB$FIELD_TYPE == FCHAR || FLD.RDB$FIELD_TYPE == VARCHAR ||
+             FLD.RDB$FIELD_TYPE == BLOB) &&
+            !FLD.RDB$CHARACTER_SET_ID.NULL && FLD.RDB$CHARACTER_SET_ID && intchar)
+		{
+            collation = 0; 
+            if (!RFR.RDB$COLLATION_ID.NULL)
+                collation = RFR.RDB$COLLATION_ID;
+            else if (!FLD.RDB$COLLATION_ID.NULL)
+                collation = FLD.RDB$COLLATION_ID;
+            
+            char_set_id = 0;
+            if (!FLD.RDB$CHARACTER_SET_ID.NULL)
+                char_set_id = FLD.RDB$CHARACTER_SET_ID;
+            
+            if (collation)
+			{
+                char_sets[0] = '\0';
+                ISQL_get_character_sets (char_set_id, collation, TRUE, char_sets);
+                if (char_sets [0])
+                    ISQL_printf (Out, char_sets);
+            }
+	    }
+        
+	END_FOR
+	ON_ERROR 
+        if (!V33)
+		{
+            ISQL_errmsg(gds__status);
+            return (SSHORT) FINI_ERROR;
+        }
+	END_ERROR;
+
+/* Do primary and unique keys only. references come later */
+
+	collist = (SCHAR *) ISQL_ALLOC(BUFFER_LENGTH512 * 2);
+	if (!collist)
+	{
+		isc_status[0] = isc_arg_gds;
+		isc_status[1] = isc_virmemexh;
+		isc_status[2] = isc_arg_end;
+		ISQL_errmsg(isc_status);
+		return ((SSHORT) FINI_ERROR);
+	}
+
+	FOR RELC IN RDB$RELATION_CONSTRAINTS WITH
+	    (RELC.RDB$CONSTRAINT_TYPE EQ "PRIMARY KEY" OR
+	    RELC.RDB$CONSTRAINT_TYPE EQ "UNIQUE") AND
+	    RELC.RDB$RELATION_NAME EQ relation_name
+	    SORTED BY RELC.RDB$CONSTRAINT_NAME
+	
+	    sprintf (Print_buffer, ",%s", NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+	    /* If the name of the constraint is not INTEG..., print it */
+	    if (strncmp(RELC.RDB$CONSTRAINT_NAME, "INTEG", 5))
+		{
+            ISQL_blankterm(RELC.RDB$CONSTRAINT_NAME);
+            if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+			{
+                ISQL_copy_SQL_id (RELC.RDB$CONSTRAINT_NAME, &SQL_identifier,
+                                  DBL_QUOTE);
+                sprintf (Print_buffer, "CONSTRAINT %s ", SQL_identifier);
+            }
+            else
+                sprintf (Print_buffer, "CONSTRAINT %s ", RELC.RDB$CONSTRAINT_NAME);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+	    if (!strncmp (RELC.RDB$CONSTRAINT_TYPE, "PRIMARY", 7))
+		{
+            ISQL_get_index_segments (collist, RELC.RDB$INDEX_NAME, TRUE);
+            sprintf (Print_buffer, "PRIMARY KEY (%s)", collist);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+	    else if (!strncmp (RELC.RDB$CONSTRAINT_TYPE, "UNIQUE", 6))
+		{
+            ISQL_get_index_segments (collist, RELC.RDB$INDEX_NAME, TRUE);
+            sprintf (Print_buffer, "UNIQUE (%s)", collist);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    if (collist)
+            ISQL_FREE(collist);
+        return (SSHORT) FINI_ERROR;
+	END_ERROR;
+
+/* Check constaints are now deferred*/
+
+	sprintf(Print_buffer, ")%s%s", Term, NEWLINE);
+	ISQL_printf(Out, Print_buffer);
+
+	if (collist)
+		ISQL_FREE(collist);
+
+	return (SSHORT) FINI_OK;
+}
+
+
+#ifdef GUI_TOOLS
+void EXTRACT_list_view( SCHAR * viewname)
+{
+/**************************************
+ *
+ *	E X T R A C T _ l i s t _ v i e w 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show text of the specified view.
+ *	Use a SQL query to get the info and print it.
+ *	Note: This should also contain check option
+ *
+ **************************************/
+	SSHORT first;
+
+	if (!DB)
+		if (isc_attach_database(gds__status, 0, Db_name, &DB, 0, (SCHAR *) 0))
+		{
+			ISQL_errmsg(gds__status);
+			return (SSHORT) FINI_ERROR;
+		}
+	if (!gds__trans)
+		isc_start_transaction(gds__status, &gds__trans, 1, &DB, 0,
+							  (SCHAR *) 0);
+
+/* If this is a view, use print_blob to print the view text */
+
+	FOR REL IN RDB$RELATIONS WITH
+	   (REL.RDB$SYSTEM_FLAG NE 1 OR REL.RDB$SYSTEM_FLAG MISSING) AND
+	   REL.RDB$VIEW_BLR NOT MISSING AND
+	   REL.RDB$RELATION_NAME = viewname AND
+	   REL.RDB$FLAGS = REL_sql
+	   SORTED BY REL.RDB$RELATION_ID
+	   
+	    first = TRUE;
+        ISQL_blankterm (REL.RDB$RELATION_NAME);
+	
+	    if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+            ISQL_copy_SQL_id (REL.RDB$RELATION_NAME, &SQL_identifier, DBL_QUOTE);
+	    else
+            strcpy (SQL_identifier, REL.RDB$RELATION_NAME);
+        
+	    ISQL_blankterm (REL.RDB$OWNER_NAME);
+        
+	    sprintf (Print_buffer, "%s/* View: %s, Owner: %s */%s",
+                 NEWLINE,
+                 SQL_identifier, 
+                 REL.RDB$OWNER_NAME,
+                 NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+	    sprintf (Print_buffer, "CREATE VIEW %s (", SQL_identifier);
+	    ISQL_printf (Out, Print_buffer);
+	
+	    /* Get column list */
+	    FOR RFR IN RDB$RELATION_FIELDS WITH
+            RFR.RDB$RELATION_NAME = REL.RDB$RELATION_NAME
+            SORTED BY RFR.RDB$FIELD_POSITION
+	
+            ISQL_blankterm (RFR.RDB$FIELD_NAME);
+	
+	        if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+                ISQL_blankterm (RFR.RDB$FIELD_NAME, &SQL_identifier);
+            else
+                strcpy (SQL_identifier, RFR.RDB$FIELD_NAME);
+            
+	        sprintf (Print_buffer, "%s%s", (first ? "" : ", "), SQL_identifier);
+            
+            ISQL_printf (Out, Print_buffer);
+            first = FALSE;
+	
+	    END_FOR
+	    ON_ERROR
+	       ISQL_errmsg (gds__status);
+	       return;
+	    END_ERROR;
+	
+	    sprintf (Print_buffer, ") AS%s", NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+	    if (!REL.RDB$VIEW_SOURCE.NULL)
+            SHOW_print_metadata_text_blob (Out, &REL.RDB$VIEW_SOURCE);
+	    sprintf (Print_buffer, "%s%s", Term, NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+	
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+}
+#endif
+
+
+static void get_procedure_args( SCHAR * proc_name)
+{
+/**************************************
+ *
+ *	g e t _ p r o c e d u r e _ a r g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	This function extract the procedure parameters and adds it to the
+ *	extract file
+ *
+ **************************************/
+	SSHORT ptype, first_time, i, header = TRUE;
+	TEXT msg[MSG_LENGTH];
+	SCHAR char_sets[86];
+
+/* query to retrieve the parameters. */
+	{
+
+
+/* placed the two identical code blocks into one
+   for loop as suggested by Ann H. and Claudio C.
+   FSG 18.Nov.2000
+*/
+
+		/*  Parameter types 0 = input  */
+		/*  Parameter types 1 = return */
+
+		for (ptype = 0; ptype < 2; ptype++)
+		{
+			first_time = TRUE;
+
+            FOR PRM IN RDB$PROCEDURE_PARAMETERS CROSS
+                FLD IN RDB$FIELDS WITH
+                PRM.RDB$PROCEDURE_NAME = proc_name AND
+                PRM.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME AND 
+                PRM.RDB$PARAMETER_TYPE = ptype
+                SORTED BY PRM.RDB$PARAMETER_NUMBER
+	
+                if (first_time)
+				{
+                    first_time = FALSE;
+                    if (ptype==0)
+					{ /* this is the input part */
+                        ISQL_printf (Out, "(");
+                    }
+                    else
+					{ /* we are in the output part */
+                        ISQL_printf (Out, "RETURNS (");
+                    }
+	            }
+                else
+				{
+                    sprintf (Print_buffer, ",%s", NEWLINE);
+                    ISQL_printf (Out, Print_buffer);
+                }
+            
+                ISQL_blankterm (PRM.RDB$PARAMETER_NAME);
+                sprintf (Print_buffer, "%s ", PRM.RDB$PARAMETER_NAME);
+                ISQL_printf (Out, Print_buffer);
+            
+                /* Get column type name to print */
+                for (i = 0; Column_types [i].type; i++)
+                    if (FLD.RDB$FIELD_TYPE == Column_types [i].type)
+					{
+                        BOOLEAN precision_known = FALSE;
+                        
+                        if (major_ods >= ODS_VERSION10)
+						{
+                            /* Handle Integral subtypes NUMERIC and DECIMAL */
+                            if ((FLD.RDB$FIELD_TYPE == SMALLINT) || 
+                                (FLD.RDB$FIELD_TYPE == INTEGER) ||
+                                (FLD.RDB$FIELD_TYPE == blr_int64))
+							{
+                                /* We are ODS >= 10 and could be any Dialect */
+                                
+                                FOR FLD1 IN RDB$FIELDS WITH
+                                    FLD1.RDB$FIELD_NAME EQ FLD.RDB$FIELD_NAME
+                                    
+                                    if (!FLD1.RDB$FIELD_PRECISION.NULL)
+									{
+                                        /* We are Dialect >=3 since FIELD_PRECISION is non-NULL */
+                                        if (FLD1.RDB$FIELD_SUB_TYPE > 0 &&
+                                            FLD1.RDB$FIELD_SUB_TYPE <= MAX_INTSUBTYPES)
+										{
+                                            sprintf (Print_buffer, "%s(%d, %d)", 
+                                                     Integral_subtypes [FLD1.RDB$FIELD_SUB_TYPE],
+                                                     FLD1.RDB$FIELD_PRECISION,
+                                                     -FLD1.RDB$FIELD_SCALE);
+                                            precision_known = TRUE;
+                                        }
+                                    }
+                                END_FOR
+                                ON_ERROR
+                                    ISQL_errmsg (isc_status);
+                                    return;
+                                END_ERROR;
+                            }
+                        }
+                        if (precision_known == FALSE)
+						{
+                            /* Take a stab at numerics and decimals */
+                            if ((FLD.RDB$FIELD_TYPE == SMALLINT) && 
+                                (FLD.RDB$FIELD_SCALE < 0))
+							{
+                                sprintf (Print_buffer, "NUMERIC(4, %d)", 
+                                         -FLD.RDB$FIELD_SCALE);
+                            }
+                            else if ((FLD.RDB$FIELD_TYPE == INTEGER) && 
+                                     (FLD.RDB$FIELD_SCALE < 0))
+							{
+                                sprintf (Print_buffer, "NUMERIC(9, %d)", 
+                                         -FLD.RDB$FIELD_SCALE);
+                            }
+                            else if ((FLD.RDB$FIELD_TYPE == DOUBLE_PRECISION) &&
+                                     (FLD.RDB$FIELD_SCALE < 0))
+							{ 
+                                sprintf (Print_buffer, "NUMERIC(15, %d)", 
+                                         -FLD.RDB$FIELD_SCALE);
+                            }
+                            else
+							{
+                                sprintf (Print_buffer, "%s", 
+                                         Column_types [i].type_name);
+                            }
+                        }
+                        ISQL_printf (Out, Print_buffer);
+                        break;
+                    }
+                
+                /* Changed this to return RDB$CHARACTER_LENGTH if available
+                   Fix for Bug #122563 
+                   FSG 18.Nov.2000
+                */ 
+                if ((FLD.RDB$FIELD_TYPE == FCHAR) || (FLD.RDB$FIELD_TYPE == VARCHAR))
+                    if (FLD.RDB$CHARACTER_LENGTH.NULL)
+					{
+                        
+                        sprintf (Print_buffer, "(%d)", FLD.RDB$FIELD_LENGTH);
+                        ISQL_printf (Out, Print_buffer);
+                    }
+                    else
+					{
+                        sprintf (Print_buffer, "(%d)", FLD.RDB$CHARACTER_LENGTH);
+                        ISQL_printf (Out, Print_buffer);
+                    }
+                
+                
+                
+                /* Show international character sets and collations */
+                if (!FLD.RDB$COLLATION_ID.NULL || !FLD.RDB$CHARACTER_SET_ID.NULL)
+				{
+                    char_sets [0] = 0;
+                    if (FLD.RDB$COLLATION_ID.NULL)
+                        FLD.RDB$COLLATION_ID = 0;
+                    
+                    if (FLD.RDB$CHARACTER_SET_ID.NULL)
+                        FLD.RDB$CHARACTER_SET_ID = 0;
+                    
+                    ISQL_get_character_sets (FLD.RDB$CHARACTER_SET_ID,
+                                             FLD.RDB$COLLATION_ID, FALSE, char_sets);
+                    if (char_sets [0])
+                        ISQL_printf (Out, char_sets);
+                }  
+            END_FOR
+            ON_ERROR 
+                if (!V33)
+				{
+                    ISQL_errmsg(gds__status);
+                    return;
+                }
+            END_ERROR;
+
+            /* If there was at least one param, close parens */
+            
+            if (!first_time)
+			{
+                sprintf(Print_buffer, ")%s", NEWLINE);
+                ISQL_printf(Out, Print_buffer);
+            }
+            
+		}						/* end for ptype */
+		sprintf(Print_buffer, "AS %s", NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+	}
+}
+
+
+
+static void list_all_grants(void)
+{
+/**************************************
+ *
+ *	l i s t _ a l l _ g r a n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print the permissions on all user tables.
+ *
+ *	Get separate permissions on table/views and then procedures
+ *
+ **************************************/
+	SSHORT first = TRUE;
+	TEXT prev_owner[44];
+
+/******************************************************************
+**
+**	process GRANT roles
+**
+*******************************************************************/
+
+	if (major_ods >= ODS_VERSION9)
+	{
+		prev_owner[0] = '\0';
+
+	    FOR XX IN RDB$ROLES 
+            SORTED BY XX.RDB$ROLE_NAME
+	
+            if (first)
+			{
+                sprintf (Print_buffer, "%s/* Grant role for this database */%s",
+                         NEWLINE, 
+                         NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+            }
+        
+            first = FALSE;
+        
+            /* Null terminate name string */
+            ISQL_blankterm (XX.RDB$ROLE_NAME);
+            ISQL_blankterm (XX.RDB$OWNER_NAME);
+            
+            if (strcmp (prev_owner, XX.RDB$OWNER_NAME) != 0)
+			{
+                sprintf (Print_buffer, "%s/* Role: %s, Owner: %s */%s", 
+                         NEWLINE,
+                         XX.RDB$ROLE_NAME,
+                         XX.RDB$OWNER_NAME,
+                         NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+                strcpy (prev_owner, XX.RDB$OWNER_NAME);
+            }
+            
+            if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+			{
+                
+                ISQL_copy_SQL_id (XX.RDB$ROLE_NAME, &SQL_identifier, DBL_QUOTE);
+                sprintf (Print_buffer, "CREATE ROLE %s;%s",
+                         SQL_identifier, NEWLINE);
+            }
+            else
+                sprintf (Print_buffer, "CREATE ROLE %s;%s",
+                         XX.RDB$ROLE_NAME, NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+            
+        END_FOR
+		ON_ERROR 
+            ISQL_errmsg(gds__status);
+		    return;
+		END_ERROR;
+	}
+
+/* This version of cursor gets only sql tables identified by security class 
+   and misses views, getting only null view_source */
+
+	first = TRUE;
+
+	FOR REL IN RDB$RELATIONS WITH
+        (REL.RDB$SYSTEM_FLAG NE 1 OR REL.RDB$SYSTEM_FLAG MISSING) AND
+        REL.RDB$SECURITY_CLASS STARTING "SQL$"
+        SORTED BY REL.RDB$RELATION_NAME
+        
+	    if (first)
+		{
+            sprintf (Print_buffer, "%s/* Grant permissions for this database */%s",
+                     NEWLINE, 
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+        first = FALSE;
+	
+        /* Null terminate name string */
+        
+	    ISQL_blankterm (REL.RDB$RELATION_NAME);
+        
+	    SHOW_grants (REL.RDB$RELATION_NAME, Term);
+        
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+
+	if (first)
+	{
+		sprintf(Print_buffer, "%s/* Grant permissions for this database */%s",
+				NEWLINE, NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+		first = FALSE;
+	}
+    
+	SHOW_grant_roles(Term);
+
+/* Again for stored procedures */
+	FOR PRC IN RDB$PROCEDURES 
+        SORTED BY PRC.RDB$PROCEDURE_NAME
+	
+	    if (first)
+		{
+            sprintf (Print_buffer, "%s/* Grant permissions for this database */%s",
+                     NEWLINE, 
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+        first = FALSE;
+        
+        /* Null terminate name string */
+        
+	    ISQL_blankterm (PRC.RDB$PROCEDURE_NAME);
+        
+	    SHOW_grants (PRC.RDB$PROCEDURE_NAME, Term);
+        
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+
+}
+
+
+static void list_all_procs()
+{
+/**************************************
+ *
+ *	l i s t _ a l l _ p r o c s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shows text of a stored procedure given a name.
+ *	or lists procedures if no argument.
+ *	Since procedures may reference each other, we will create all
+ *	dummy procedures of the correct name, then alter these to their
+ *	correct form. 
+ *      Add the parameter names when these procedures are created.
+ *
+ *	procname -- Name of procedure to investigate
+ *
+ **************************************/
+	SSHORT first_time, i, header = TRUE;
+	TEXT msg[MSG_LENGTH];
+	SCHAR char_sets[86];
+	static CONST SCHAR *create_procedure_str1 = "CREATE PROCEDURE %s ";
+	static CONST SCHAR *create_procedure_str2 = "BEGIN EXIT; END %s%s";
+
+
+/*  First the dummy procedures */
+/* create the procedures with their parameters */
+
+	FOR PRC IN RDB$PROCEDURES
+	    SORTED BY PRC.RDB$PROCEDURE_NAME
+	    if (header)
+		{
+	        sprintf (Print_buffer, "COMMIT WORK;%s", NEWLINE);
+	        ISQL_printf (Out, Print_buffer);
+	        sprintf (Print_buffer, "SET AUTODDL OFF;%s", NEWLINE);
+	        ISQL_printf (Out, Print_buffer);
+	        sprintf (Print_buffer, "SET TERM %s %s%s", Procterm, Term, NEWLINE);
+	        ISQL_printf (Out, Print_buffer);
+	        sprintf (Print_buffer, "%s/* Stored procedures */%s", NEWLINE, NEWLINE);
+	        ISQL_printf (Out, Print_buffer);
+	        header = FALSE;
+        }
+	    ISQL_blankterm (PRC.RDB$PROCEDURE_NAME);
+	    if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+		{
+            ISQL_copy_SQL_id (PRC.RDB$PROCEDURE_NAME, &SQL_identifier, DBL_QUOTE);
+            sprintf (Print_buffer, create_procedure_str1, 
+                     SQL_identifier);
+	        ISQL_printf (Out, Print_buffer);
+	        get_procedure_args (SQL_identifier);
+            sprintf (Print_buffer, create_procedure_str2, Procterm, NEWLINE);
+        }
+	    else
+		{
+            sprintf (Print_buffer, create_procedure_str1, 
+                     PRC.RDB$PROCEDURE_NAME);
+	        ISQL_printf (Out, Print_buffer);
+	        get_procedure_args (PRC.RDB$PROCEDURE_NAME);
+            sprintf (Print_buffer, create_procedure_str2, Procterm, NEWLINE);
+        }
+        
+	    ISQL_printf (Out, Print_buffer);
+    END_FOR
+    ON_ERROR 
+        if (!V33)
+		{
+            ISQL_errmsg(gds__status);
+            return;
+        }
+	END_ERROR;
+
+/* This query gets the procedure name and the source.  We then nest a query
+   to retrieve the parameters. Alter is used, because the procedures are already there*/
+	FOR PRC IN RDB$PROCEDURES
+	    SORTED BY PRC.RDB$PROCEDURE_NAME
+	
+	    ISQL_blankterm (PRC.RDB$PROCEDURE_NAME);
+	
+        if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+		{
+            ISQL_copy_SQL_id (PRC.RDB$PROCEDURE_NAME, &SQL_identifier, DBL_QUOTE);
+            sprintf (Print_buffer, "%sALTER PROCEDURE %s ", NEWLINE, 
+                     SQL_identifier);
+        }
+        else
+            sprintf (Print_buffer, "%sALTER PROCEDURE %s ", NEWLINE, 
+                     PRC.RDB$PROCEDURE_NAME);
+        ISQL_printf (Out, Print_buffer);
+        get_procedure_args (PRC.RDB$PROCEDURE_NAME);
+        
+        /* Print the procedure body */
+        
+	    if (!PRC.RDB$PROCEDURE_SOURCE.NULL)
+            SHOW_print_metadata_text_blob (Out, &PRC.RDB$PROCEDURE_SOURCE);
+        
+	    sprintf (Print_buffer, " %s%s", Procterm, NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+	END_FOR
+	ON_ERROR
+		ISQL_msg_get(GEN_ERR, msg, (TEXT *) isc_sqlcode(gds__status), NULL,
+					 NULL, NULL, NULL);
+	    STDERROUT(msg, 1);			/* Statement failed, SQLCODE = %d\n\n */
+	    ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+
+/* Only reset the terminators is there were procs to print */
+	if (!header)
+	{
+		sprintf(Print_buffer, "SET TERM %s %s%s", Term, Procterm, NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+		sprintf(Print_buffer, "COMMIT WORK %s%s", Term, NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+		sprintf(Print_buffer, "SET AUTODDL ON;%s", NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+	}
+}
+
+
+static void list_all_tables( SSHORT flag, SSHORT default_char_set_id)
+{
+/**************************************
+ *
+ *	l i s t _ a l l _ t a b l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extract the names of all user tables from
+ *	rdb$relations.  Filter SQL tables by
+ *	security class after we fetch them
+ *	Parameters:  flag -- 0, get all tables
+ *
+ **************************************/
+
+/* This version of cursor gets only sql tables identified by security class 
+   and misses views, getting only null view_source */
+
+	FOR REL IN RDB$RELATIONS WITH
+	   (REL.RDB$SYSTEM_FLAG NE 1 OR REL.RDB$SYSTEM_FLAG MISSING) AND
+	   REL.RDB$VIEW_BLR MISSING 
+	   SORTED BY REL.RDB$RELATION_NAME
+	
+	    /* If this is not an SQL table and we aren't doing ALL objects */
+	    if ((REL.RDB$FLAGS != REL_sql) && (flag != ALL_objects))
+            continue;
+        /* Null terminate name string */
+	
+        ISQL_blankterm (REL.RDB$RELATION_NAME);
+	
+        if (flag || !strncmp (REL.RDB$SECURITY_CLASS, "SQL$", 4))
+            EXTRACT_list_table (REL.RDB$RELATION_NAME, NULL, 0,default_char_set_id);
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    ROLLBACK;
+	    return;
+	END_ERROR;
+
+}
+
+
+static void list_all_triggers()
+{
+/**************************************
+ *
+ *	l i s t _ a l l _ t r i g g e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lists triggers in general on non-system
+ *	tables with sql source only.
+ *
+ **************************************/
+	SSHORT header = TRUE;
+
+
+/* Query gets the trigger info for non-system triggers with 
+   source that are not part of an SQL constraint */
+
+	FOR TRG IN RDB$TRIGGERS CROSS REL IN RDB$RELATIONS OVER RDB$RELATION_NAME
+	    WITH (REL.RDB$SYSTEM_FLAG NE 1 OR REL.RDB$SYSTEM_FLAG MISSING) AND
+	   NOT (ANY CHK IN RDB$CHECK_CONSTRAINTS WITH
+	   TRG.RDB$TRIGGER_NAME EQ CHK.RDB$TRIGGER_NAME)
+	   SORTED BY TRG.RDB$RELATION_NAME, TRG.RDB$TRIGGER_TYPE,
+	       TRG.RDB$TRIGGER_SEQUENCE, TRG.RDB$TRIGGER_NAME
+	
+	    if (header)
+		{
+            sprintf (Print_buffer, "SET TERM %s %s%s", Procterm, Term, NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+            sprintf (Print_buffer, 
+                     "%s/* Triggers only will work for SQL triggers */%s", 
+                     NEWLINE,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+            header = FALSE;
+        }
+        ISQL_blankterm (TRG.RDB$TRIGGER_NAME);
+	    ISQL_blankterm (TRG.RDB$RELATION_NAME);
+	
+	    if (TRG.RDB$TRIGGER_INACTIVE.NULL) 
+            TRG.RDB$TRIGGER_INACTIVE = 0;
+        
+	    /*  If trigger is not SQL put it in comments */
+	    if (TRG.RDB$FLAGS != TRG_sql)
+            ISQL_printf (Out, "/* ");
+        
+	    if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+		{
+            ISQL_copy_SQL_id (TRG.RDB$TRIGGER_NAME,  &SQL_identifier,  DBL_QUOTE);
+            ISQL_copy_SQL_id (TRG.RDB$RELATION_NAME, &SQL_identifier2, DBL_QUOTE);
+        }
+	    else
+		{
+            strcpy (SQL_identifier,  TRG.RDB$TRIGGER_NAME);
+            strcpy (SQL_identifier2, TRG.RDB$RELATION_NAME);
+        }
+        
+	    sprintf (Print_buffer, "CREATE TRIGGER %s FOR %s %s%s %s POSITION %d %s",
+                 SQL_identifier, SQL_identifier2, NEWLINE,
+                 (TRG.RDB$TRIGGER_INACTIVE ? "INACTIVE" : "ACTIVE"),
+                 Trigger_types [TRG.RDB$TRIGGER_TYPE], TRG.RDB$TRIGGER_SEQUENCE, 
+                 NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+	    if (!TRG.RDB$TRIGGER_SOURCE.NULL)
+            SHOW_print_metadata_text_blob (Out, &TRG.RDB$TRIGGER_SOURCE);
+        
+	    sprintf (Print_buffer, " %s%s", Procterm, NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+	    sprintf (Print_buffer, " %s", NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+	    if (TRG.RDB$FLAGS != TRG_sql)
+		{
+            sprintf (Print_buffer, "*/%s", NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+
+	if (!header)
+	{
+		sprintf(Print_buffer, "COMMIT WORK %s%s", Procterm, NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+		sprintf(Print_buffer, "SET TERM %s %s%s", Term, Procterm, NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+	}
+}
+
+
+static void list_check(void)
+{
+/**************************************
+ *
+ *	l i s t _ c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	List check constraints for all objects to allow forward references
+ *
+ **************************************/
+
+/* Query gets the check clauses for triggers stored for check constraints */
+
+	FOR TRG IN RDB$TRIGGERS CROSS
+	   CHK IN RDB$CHECK_CONSTRAINTS WITH
+	   TRG.RDB$TRIGGER_TYPE EQ 1 AND
+	   TRG.RDB$TRIGGER_NAME EQ CHK.RDB$TRIGGER_NAME AND
+	   (ANY RELC IN RDB$RELATION_CONSTRAINTS WITH
+	   CHK.RDB$CONSTRAINT_NAME EQ RELC.RDB$CONSTRAINT_NAME)
+	   REDUCED TO CHK.RDB$CONSTRAINT_NAME
+	   SORTED BY CHK.RDB$CONSTRAINT_NAME
+	
+	
+	    ISQL_blankterm(TRG.RDB$RELATION_NAME);
+	
+	    sprintf (Print_buffer, " %s ", NEWLINE); 
+	    ISQL_printf (Out, Print_buffer);
+	
+	    if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+		{
+            ISQL_copy_SQL_id (TRG.RDB$RELATION_NAME, &SQL_identifier, DBL_QUOTE);
+            sprintf (Print_buffer, "ALTER TABLE %s ADD %s%s", 
+                     SQL_identifier, NEWLINE, TAB);
+        }
+	    else
+            sprintf (Print_buffer, "ALTER TABLE %s ADD %s%s", 
+                     TRG.RDB$RELATION_NAME, NEWLINE, TAB);
+	    ISQL_printf (Out, Print_buffer);
+        
+	    /* If the name of the constraint is not INTEG..., print it */
+	    if (strncmp(CHK.RDB$CONSTRAINT_NAME, "INTEG", 5))
+		{
+            ISQL_blankterm(CHK.RDB$CONSTRAINT_NAME);
+            if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+			{
+                ISQL_copy_SQL_id (CHK.RDB$CONSTRAINT_NAME, &SQL_identifier, 
+                                  DBL_QUOTE);
+                sprintf (Print_buffer, "CONSTRAINT %s ", SQL_identifier);
+            }
+            else
+                sprintf (Print_buffer, "CONSTRAINT %s ", CHK.RDB$CONSTRAINT_NAME);
+            ISQL_printf (Out, Print_buffer);
+        }
+	
+	    if (!TRG.RDB$TRIGGER_SOURCE.NULL)
+            SHOW_print_metadata_text_blob (Out, &TRG.RDB$TRIGGER_SOURCE);
+        
+	    sprintf (Print_buffer, "%s%s", Term, NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+}
+
+
+static void print_set( SSHORT * set_used)
+{
+/**************************************
+ *
+ *	p r i n t _ s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *    print (using ISQL_printf) the word "SET"
+ *    if the first line of the ALTER DATABASE
+ *    settings options. Also, add trailing
+ *    comma for end of prior line if needed.
+ * 
+ * uses Print_buffer, a global
+ *
+ **************************************/
+	if (!*set_used)
+	{
+		sprintf(Print_buffer, "  SET ");
+		ISQL_printf(Out, Print_buffer);
+		*set_used = TRUE;
+	}
+	else
+	{
+		sprintf(Print_buffer, ", %s      ", NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+	}
+}
+static void list_create_db(void)
+{
+/**************************************
+ *
+ *	l i s t _ c r e a t e _ d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print the create database command if requested.  At least put 
+ *	the page size in a comment with the extracted db name
+ *
+ **************************************/
+	SCHAR info_buf[20];
+	static CONST SCHAR page_items[] = {
+		isc_info_page_size,
+		isc_info_end
+	};
+	static CONST SCHAR wal_items[] = {
+		isc_info_num_wal_buffers,
+		isc_info_wal_buffer_size,
+		isc_info_wal_grpc_wait_usecs,
+		isc_info_wal_ckpt_length,
+		isc_info_end
+	};
+
+	SSHORT nodb = FALSE, first = TRUE, first_file = TRUE, has_wal =
+		FALSE, set_used = FALSE;
+	USHORT translate = FALSE;
+	SCHAR *d, *buffer, item;
+	int length;
+	SLONG value_out;
+
+	buffer = NULL;
+/* Comment out the create database if no db param was specified */
+	if (!*Target_db)
+	{
+		ISQL_printf(Out, "/* ");
+		strcpy(Target_db, Db_name);
+		nodb = TRUE;
+	}
+	sprintf(Print_buffer, "CREATE DATABASE '%s'", Target_db);
+	ISQL_printf(Out, Print_buffer);
+
+/* Get the page size from db_info call */
+	SHOW_dbb_parameters(DB, info_buf, page_items, sizeof(page_items),
+						translate);
+	sprintf(Print_buffer, " %s", info_buf);
+	ISQL_printf(Out, Print_buffer);
+
+	FOR DBP IN RDB$DATABASE 
+	    WITH DBP.RDB$CHARACTER_SET_NAME NOT MISSING
+	    AND DBP.RDB$CHARACTER_SET_NAME != " ";
+	    sprintf (Print_buffer, " DEFAULT CHARACTER SET %s", 
+	    ISQL_blankterm (DBP.RDB$CHARACTER_SET_NAME)); 
+	    ISQL_printf (Out, Print_buffer);
+	END_FOR
+	ON_ERROR 
+        if (!V33)
+		{
+            ISQL_errmsg(gds__status);
+            return;
+        }
+	END_ERROR;
+
+	if (nodb)
+	{
+		sprintf(Print_buffer, " */%s", NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+	}
+	else
+	{
+		sprintf(Print_buffer, "%s%s", Term, NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+	}
+
+/* List secondary files and shadows as alter db and create shadow in comment */
+
+
+	FOR FIL IN RDB$FILES 
+	    SORTED BY FIL.RDB$SHADOW_NUMBER, FIL.RDB$FILE_SEQUENCE
+	
+	    if (first)
+		{
+            sprintf (Print_buffer, "%s/* Add secondary files in comments %s",
+                     NEWLINE,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+	
+        first = FALSE;
+	    /* reset nulls to zero */
+	
+	    if (FIL.RDB$FILE_FLAGS.NULL)
+            FIL.RDB$FILE_FLAGS = 0;
+	    if (FIL.RDB$FILE_LENGTH.NULL)
+            FIL.RDB$FILE_LENGTH = 0;
+	    if (FIL.RDB$FILE_SEQUENCE.NULL)
+            FIL.RDB$FILE_SEQUENCE = 0;
+	    if (FIL.RDB$FILE_START.NULL)
+            FIL.RDB$FILE_START = 0;
+	    ISQL_blankterm (FIL.RDB$FILE_NAME);
+        
+	    /* Pure secondary files */
+	    if (FIL.RDB$FILE_FLAGS == 0)
+		{ 
+            sprintf (Print_buffer, "%sALTER DATABASE ADD FILE '%s'", 
+                     NEWLINE,
+                     FIL.RDB$FILE_NAME);
+            ISQL_printf (Out, Print_buffer);
+            if (FIL.RDB$FILE_START)
+			{ 
+                sprintf (Print_buffer, " STARTING %ld", FIL.RDB$FILE_START);
+                ISQL_printf (Out, Print_buffer);
+            }
+            if (FIL.RDB$FILE_LENGTH)
+			{ 
+                sprintf (Print_buffer, " LENGTH %ld", FIL.RDB$FILE_LENGTH);
+                ISQL_printf (Out, Print_buffer);
+            }
+            sprintf (Print_buffer, "%s", NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        } 
+        
+	    if (FIL.RDB$FILE_FLAGS & FILE_cache)
+		{ 
+            sprintf (Print_buffer, "%sALTER DATABASE ADD CACHE '%s' LENGTH %ld%s",
+                     NEWLINE,
+                     FIL.RDB$FILE_NAME, 
+	        FIL.RDB$FILE_LENGTH,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+	    if (FIL.RDB$FILE_FLAGS & FILE_shadow)
+		{ 
+            if (FIL.RDB$FILE_SEQUENCE)
+			{ 
+                sprintf (Print_buffer, "%sFILE '%s' ", TAB, FIL.RDB$FILE_NAME);
+                ISQL_printf (Out, Print_buffer);
+            }
+            else
+			{ 
+                sprintf (Print_buffer, "%sCREATE SHADOW %d '%s' ", 
+                         NEWLINE,
+                         FIL.RDB$SHADOW_NUMBER, 
+                         FIL.RDB$FILE_NAME);
+                ISQL_printf (Out, Print_buffer);
+                if (FIL.RDB$FILE_FLAGS & FILE_inactive)
+                    ISQL_printf (Out, "INACTIVE ");
+                if (FIL.RDB$FILE_FLAGS & FILE_manual)
+                    ISQL_printf (Out, "MANUAL ");
+                else 
+                    ISQL_printf (Out, "AUTO ");
+                if (FIL.RDB$FILE_FLAGS & FILE_conditional)
+                    ISQL_printf (Out, "CONDITIONAL ");
+            }
+            if (FIL.RDB$FILE_LENGTH)
+			{ 
+                sprintf (Print_buffer, "LENGTH %ld ", FIL.RDB$FILE_LENGTH);
+                ISQL_printf (Out, Print_buffer);
+            }
+            if (FIL.RDB$FILE_START)
+			{ 
+                sprintf (Print_buffer, "STARTING %ld ", FIL.RDB$FILE_START);
+                ISQL_printf (Out, Print_buffer);
+            }
+            ISQL_printf (Out, NEWLINE);
+        }
+	
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+
+	FOR WAL IN RDB$LOG_FILES 
+	    SORTED BY WAL.RDB$FILE_FLAGS, WAL.RDB$FILE_SEQUENCE
+	
+	    has_wal = TRUE;
+        if (first)
+		{ 
+            if (nodb)
+			{ 
+                sprintf (Print_buffer, "/*%s", NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+            }
+            sprintf (Print_buffer, "%sALTER DATABASE ADD ", NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+	    }
+	    first = FALSE;
+        
+	    if (first_file)
+            ISQL_printf (Out, "LOGFILE ");
+        
+	    if (WAL.RDB$FILE_FLAGS & LOG_default)
+            ;
+	
+	    /* Overflow files also have the serial bit set */
+	    else if (WAL.RDB$FILE_FLAGS & LOG_overflow)
+		{ 
+            sprintf (Print_buffer, ")%s   OVERFLOW '%s'", 
+                     NEWLINE,
+                     WAL.RDB$FILE_NAME);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+	    else if (WAL.RDB$FILE_FLAGS & LOG_serial)
+		{ 
+            sprintf (Print_buffer, "%s  BASE_NAME '%s'", 
+                     NEWLINE,
+                     WAL.RDB$FILE_NAME);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+        /* Since we are fetching order by FILE_FLAGS, the LOG_0verflow will
+        **  be last.  It will only appear if there were named round robin,
+        **  so we must close the parens first
+        */
+        
+	    /* We have round robin and overflow file specifications */
+	    else
+		{ 
+            if (first_file)
+                ISQL_printf (Out, "(");
+            else
+			{ 
+                sprintf (Print_buffer, ",%s  ", NEWLINE); 
+                ISQL_printf (Out, Print_buffer);
+            } 
+	        first_file = FALSE;    
+            
+            sprintf (Print_buffer, "'%s'", WAL.RDB$FILE_NAME);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+	    /* Any file can have a length */
+	    if (!WAL.RDB$FILE_LENGTH.NULL && WAL.RDB$FILE_LENGTH)
+		{ 
+            sprintf (Print_buffer, " SIZE %ld ", WAL.RDB$FILE_LENGTH);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+    END_FOR
+	ON_ERROR 
+        if (!V33)
+		{
+            ISQL_errmsg(gds__status);
+            return;
+        }
+	END_ERROR;
+
+	ISQL_printf(Out, NEWLINE);
+/*************************************************************
+** gds__info_num_wal_buffers         for NUM_LOG_BUFFERS
+** gds__info_wal_buffer_size         for LOG_BUFFER_SIZE
+** gds__info_wal_grpc_wait_usecs     for GROUP_COMMIT_WAIT_TIME
+** gds__info_wal_ckpt_length         for CHECK_POINT_LENGTH
+** 
+**************************************************************/
+
+	if (has_wal)
+	{
+		buffer = (SCHAR *) ISQL_ALLOC(BUFFER_LENGTH128);
+		if (!buffer)
+		{
+			isc_status[0] = isc_arg_gds;
+			isc_status[1] = isc_virmemexh;
+			isc_status[2] = isc_arg_end;
+			ISQL_errmsg(isc_status);
+			return;
+		}
+
+		if (!isc_database_info
+			(gds__status, &DB, sizeof(wal_items), wal_items, BUFFER_LENGTH128,
+			 buffer))
+		{
+			for (d = buffer; *d != isc_info_end;)
+			{
+				item = *d++;
+				length = isc_vax_integer(d, 2);
+				d += 2;
+				value_out = isc_vax_integer(d, length);
+				switch (item)
+				{
+				case isc_info_end:
+					break;
+
+				case isc_info_num_wal_buffers:
+					print_set(&set_used);
+					sprintf(Print_buffer, "NUM_LOG_BUFFERS = %ld", value_out);
+					ISQL_printf(Out, Print_buffer);
+					break;
+
+				case isc_info_wal_buffer_size:
+					print_set(&set_used);
+					sprintf(Print_buffer, "LOG_BUFFER_SIZE = %ld", value_out);
+					ISQL_printf(Out, Print_buffer);
+					break;
+
+				case isc_info_wal_grpc_wait_usecs:
+					print_set(&set_used);
+					sprintf(Print_buffer, "GROUP_COMMIT_WAIT_TIME = %ld",
+							value_out);
+					ISQL_printf(Out, Print_buffer);
+					break;
+
+				case isc_info_wal_ckpt_length:
+					print_set(&set_used);
+					sprintf(Print_buffer, "CHECK_POINT_LENGTH = %ld",
+							value_out);
+					ISQL_printf(Out, Print_buffer);
+					break;
+
+				default:
+					break;
+				}
+				d += length;
+			}
+		}
+		if (buffer)
+			ISQL_FREE(buffer);
+	}
+
+	if (!first)
+	{
+		if (nodb)
+		{
+			sprintf(Print_buffer, "%s */%s", NEWLINE, NEWLINE);
+			ISQL_printf(Out, Print_buffer);
+		}
+		else
+		{
+			sprintf(Print_buffer, "%s%s%s", Term, NEWLINE, NEWLINE);
+			ISQL_printf(Out, Print_buffer);
+		}
+	}
+}
+
+
+static void list_domain_table( SCHAR * table_name, SSHORT default_char_set_id)
+{
+/**************************************
+ *
+ *	l i s t _ d o m a i n _ t a b l e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	List domains as identified by fields with any constraints on them
+ *	for the named table
+ *
+ *	Parameters:  table_name == only extract domains for this table 
+ *	default_char_set_id -- character set def to supress
+ *
+ **************************************/
+	SSHORT first = TRUE;
+	SSHORT i;
+	SCHAR char_sets[86];
+	SSHORT subtype;
+
+	FOR FLD IN RDB$FIELDS CROSS
+	    RFR IN RDB$RELATION_FIELDS WITH
+	    RFR.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME AND
+	    RFR.RDB$RELATION_NAME EQ table_name
+	    SORTED BY FLD.RDB$FIELD_NAME
+	
+	    /* Skip over artifical domains */
+	    if (strncmp (FLD.RDB$FIELD_NAME, "RDB$", 4) == 0 &&
+            isdigit (FLD.RDB$FIELD_NAME[4]) &&
+            FLD.RDB$SYSTEM_FLAG != 1)
+            continue;
+	
+        if (first)
+		{ 
+            sprintf (Print_buffer, "/* Domain definitions */%s", NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+            first = FALSE;
+        }
+        ISQL_blankterm(FLD.RDB$FIELD_NAME);
+        
+        sprintf (Print_buffer, "CREATE DOMAIN %s AS ", FLD.RDB$FIELD_NAME);
+        ISQL_printf (Out, Print_buffer);
+        
+        for (i = 0; Column_types [i].type; i++)
+            if (FLD.RDB$FIELD_TYPE == Column_types [i].type)
+			{ 
+                BOOLEAN precision_known = FALSE;
+                
+                if (major_ods >= ODS_VERSION10)
+				{ 
+                    /* Handle Integral subtypes NUMERIC and DECIMAL */
+                    if ((FLD.RDB$FIELD_TYPE == SMALLINT) ||
+                        (FLD.RDB$FIELD_TYPE == INTEGER) ||
+                        (FLD.RDB$FIELD_TYPE == blr_int64))
+					{ 
+                        /* We are ODS >= 10 and could be any Dialect */
+                        
+                        FOR FLD1 IN RDB$FIELDS WITH
+                            FLD1.RDB$FIELD_NAME EQ FLD.RDB$FIELD_NAME
+                            if (!FLD1.RDB$FIELD_PRECISION.NULL)
+							{ 
+                                /* We are Dialect >=3 since FIELD_PRECISION is non-NULL */
+                                if (FLD1.RDB$FIELD_SUB_TYPE > 0 &&
+                                    FLD1.RDB$FIELD_SUB_TYPE <= MAX_INTSUBTYPES)
+								{ 
+                                    sprintf (Print_buffer, "%s(%d, %d)", 
+                                             Integral_subtypes [FLD1.RDB$FIELD_SUB_TYPE],
+                                             FLD1.RDB$FIELD_PRECISION,
+                                                 -FLD1.RDB$FIELD_SCALE);
+                                    precision_known = TRUE;
+                                }
+                            }
+                        END_FOR
+                        ON_ERROR
+                            ISQL_errmsg (isc_status);
+                            return;
+                        END_ERROR;
+                    }
+                }
+                    
+                if (precision_known == FALSE)
+				{ 
+                    /* Take a stab at numerics and decimals */
+                    if ((FLD.RDB$FIELD_TYPE == SMALLINT) && (FLD.RDB$FIELD_SCALE < 0))
+					{
+                        sprintf (Print_buffer, "NUMERIC(4, %d)", -FLD.RDB$FIELD_SCALE);
+                    }
+                    else if ((FLD.RDB$FIELD_TYPE == INTEGER) && (FLD.RDB$FIELD_SCALE < 0))
+					{ 
+                        sprintf (Print_buffer, "NUMERIC(9, %d)", -FLD.RDB$FIELD_SCALE);
+                    }
+                    else if ((FLD.RDB$FIELD_TYPE == DOUBLE_PRECISION) &&
+                             (FLD.RDB$FIELD_SCALE < 0))
+					{ 
+                        sprintf (Print_buffer, "NUMERIC(15, %d)", -FLD.RDB$FIELD_SCALE);
+                    }
+                    else
+					{ 
+                        sprintf (Print_buffer, "%s", Column_types [i].type_name);
+                    }
+                }
+                ISQL_printf (Out, Print_buffer);
+                break;
+            }
+        
+            
+        if (FLD.RDB$FIELD_TYPE == BLOB)
+		{ 
+            subtype = FLD.RDB$FIELD_SUB_TYPE;
+            ISQL_printf (Out, " SUB_TYPE ");
+            if ((subtype > 0) && (subtype <= MAXSUBTYPES))
+			{ 
+                sprintf (Print_buffer, "%s", Sub_types [subtype]);
+                ISQL_printf (Out, Print_buffer);
+            }
+            else
+			{
+                sprintf (Print_buffer, "%d", subtype); 
+                ISQL_printf (Out, Print_buffer);
+            }
+            sprintf (Print_buffer, " SEGMENT SIZE %u", (USHORT) FLD.RDB$SEGMENT_LENGTH);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+        else if ((FLD.RDB$FIELD_TYPE == FCHAR) || (FLD.RDB$FIELD_TYPE == VARCHAR))
+		{ 
+            /* Length for chars */
+            sprintf (Print_buffer, "(%d)", ISQL_get_field_length(FLD.RDB$FIELD_NAME));
+            ISQL_printf (Out, Print_buffer);
+        };
+        
+        /* Bug 8261: do not show the collation information just yet!  If you
+           do, then the domain syntax when printed is not correct */
+        
+        /* since the character set is part of the field type, display that
+           information now. */
+        if (!FLD.RDB$CHARACTER_SET_ID.NULL)
+		{ 
+            
+            char_sets[0] = 0;
+            if ((FLD.RDB$CHARACTER_SET_ID != default_char_set_id) ||
+                (!FLD.RDB$COLLATION_ID.NULL && FLD.RDB$COLLATION_ID != 0))
+                ISQL_get_character_sets (FLD.RDB$CHARACTER_SET_ID, FALSE, FALSE, char_sets);
+            if (char_sets[0])
+                ISQL_printf (Out, char_sets);
+        }
+        
+        if (!FLD.RDB$DIMENSIONS.NULL)
+            ISQL_array_dimensions (FLD.RDB$FIELD_NAME);
+        
+        if (!FLD.RDB$DEFAULT_SOURCE.NULL)
+		{
+            sprintf (Print_buffer, "%s%s ", NEWLINE, TAB);
+            ISQL_printf (Out, Print_buffer);
+            SHOW_print_metadata_text_blob (Out, &FLD.RDB$DEFAULT_SOURCE);
+        }
+        if (!FLD.RDB$VALIDATION_SOURCE.NULL)
+		{ 
+            sprintf (Print_buffer, "%s%s ", NEWLINE, TAB);
+            ISQL_printf (Out, Print_buffer);
+            ISQL_print_validation (Out, &FLD.RDB$VALIDATION_SOURCE, 0, gds__trans);
+        }
+        if (FLD.RDB$NULL_FLAG == 1)
+            ISQL_printf (Out, " NOT NULL");
+	
+        /* Bug 8261:  Now show the collation order information */
+        /* Show the collation order if one has been specified.  If the collation
+           order is the default for the character set being used, then no collation
+           order will be shown ( because it isn't needed ).
+           
+	       If the collation id is 0, then the default for the character set is 
+	       being used so there is no need to retrieve the collation information.*/
+        
+        if (!FLD.RDB$COLLATION_ID.NULL && FLD.RDB$COLLATION_ID != 0)
+		{ 
+            char_sets[0] = 0;
+            ISQL_get_character_sets (FLD.RDB$CHARACTER_SET_ID, FLD.RDB$COLLATION_ID, TRUE, char_sets);
+            if (char_sets[0])
+                ISQL_printf (Out, char_sets);
+        }
+        
+        sprintf (Print_buffer, "%s%s", Term, NEWLINE);
+        ISQL_printf (Out, Print_buffer);
+    END_FOR
+    ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+}
+
+
+static void list_domains( SSHORT default_char_set_id)
+{
+/**************************************
+ *
+ *	l i s t _ d o m a i n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	List domains 
+ *
+ *	Parameters:  
+ *	default_char_set_id -- character set def to supress
+ *
+ **************************************/
+	SSHORT first = TRUE;
+	SSHORT i;
+	SCHAR char_sets[86];
+	SSHORT subtype;
+
+	FOR FLD IN RDB$FIELDS WITH
+	    FLD.RDB$FIELD_NAME NOT MATCHING "RDB$+" USING "+=[0-9][0-9]* *"
+	    AND FLD.RDB$SYSTEM_FLAG NE 1
+	    SORTED BY FLD.RDB$FIELD_NAME
+	
+	    if (first)
+		{ 
+            sprintf (Print_buffer, "/* Domain definitions */%s", NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+            first = FALSE;
+        }
+        ISQL_blankterm(FLD.RDB$FIELD_NAME);
+	
+	    if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+		{
+            ISQL_copy_SQL_id(FLD.RDB$FIELD_NAME, &SQL_identifier, DBL_QUOTE);
+            sprintf (Print_buffer, "CREATE DOMAIN %s AS ", SQL_identifier);
+        }
+	    else   
+            sprintf (Print_buffer, "CREATE DOMAIN %s AS ", FLD.RDB$FIELD_NAME);
+        
+	    ISQL_printf (Out, Print_buffer);
+        
+	    /* Get domain type */
+	    for (i = 0; Column_types [i].type; i++)
+	        if (FLD.RDB$FIELD_TYPE == Column_types [i].type)
+			{ 
+                BOOLEAN precision_known = FALSE;
+                
+                if (major_ods >= ODS_VERSION10)
+				{ 
+                    /* Handle Integral subtypes NUMERIC and DECIMAL */
+                    if ((FLD.RDB$FIELD_TYPE == SMALLINT) ||
+                        (FLD.RDB$FIELD_TYPE == INTEGER) ||
+                        (FLD.RDB$FIELD_TYPE == blr_int64))
+					{ 
+                        /* We are ODS >= 10 and could be any Dialect */
+                        FOR FLD1 IN RDB$FIELDS WITH
+                            FLD1.RDB$FIELD_NAME EQ FLD.RDB$FIELD_NAME
+	
+                            if (!FLD1.RDB$FIELD_PRECISION.NULL)
+							{
+                                /* We are Dialect >=3 since FIELD_PRECISION is non-NULL */
+                                if (FLD1.RDB$FIELD_SUB_TYPE > 0 &&
+                                    FLD1.RDB$FIELD_SUB_TYPE <= MAX_INTSUBTYPES)
+								{ 
+                                    sprintf (Print_buffer, "%s(%d, %d)", 
+                                             Integral_subtypes [FLD1.RDB$FIELD_SUB_TYPE],
+                                             FLD1.RDB$FIELD_PRECISION,
+                                             -FLD1.RDB$FIELD_SCALE);
+                                    precision_known = TRUE;
+                                }
+                            }
+                        END_FOR
+                        ON_ERROR
+                            ISQL_errmsg (isc_status);
+                            return;
+                        END_ERROR;
+                    }
+                }
+                
+                if (precision_known == FALSE)
+				{ 
+                    /* Take a stab at numerics and decimals */
+                    if ((FLD.RDB$FIELD_TYPE == SMALLINT) && (FLD.RDB$FIELD_SCALE < 0))
+					{ 
+                        sprintf (Print_buffer, "NUMERIC(4, %d)", -FLD.RDB$FIELD_SCALE);
+                    }
+                    else if ((FLD.RDB$FIELD_TYPE == INTEGER) && (FLD.RDB$FIELD_SCALE < 0))
+					{ 
+                        sprintf (Print_buffer, "NUMERIC(9, %d)", -FLD.RDB$FIELD_SCALE);
+                    }
+                    else if ((FLD.RDB$FIELD_TYPE == DOUBLE_PRECISION) &&
+                             (FLD.RDB$FIELD_SCALE < 0))
+					{
+                        sprintf (Print_buffer, "NUMERIC(15, %d)", -FLD.RDB$FIELD_SCALE);
+                    }
+                    else
+					{ 
+                        sprintf (Print_buffer, "%s", Column_types [i].type_name);
+                    }
+                }
+                ISQL_printf (Out, Print_buffer);
+	            break;
+            }
+        
+	    if (FLD.RDB$FIELD_TYPE == BLOB)
+		{ 
+            subtype = FLD.RDB$FIELD_SUB_TYPE;
+            ISQL_printf (Out, " SUB_TYPE ");
+	
+            if ((subtype > 0) && (subtype <= MAXSUBTYPES))
+			{ 
+                sprintf (Print_buffer, "%s", Sub_types [subtype]);
+                ISQL_printf (Out, Print_buffer);
+            }
+            else
+			{ 
+                sprintf (Print_buffer, "%d", subtype); 
+                ISQL_printf (Out, Print_buffer);
+            }
+            sprintf (Print_buffer, " SEGMENT SIZE %u", (USHORT) FLD.RDB$SEGMENT_LENGTH);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+	    else if ((FLD.RDB$FIELD_TYPE == FCHAR) || (FLD.RDB$FIELD_TYPE == VARCHAR))
+		{
+	        /* Length for chars */
+	        sprintf (Print_buffer, "(%d)", ISQL_get_field_length(FLD.RDB$FIELD_NAME));
+            ISQL_printf (Out, Print_buffer);
+        };
+        
+	    /* Bug 8261: do not show the collation information just yet!  If you
+	       do, then the domain syntax when printed is not correct */
+        
+	    /* since the character set is part of the field type, display that
+	       information now. */
+	    if (!FLD.RDB$CHARACTER_SET_ID.NULL)
+		{
+            char_sets[0] = 0;
+            if ((FLD.RDB$CHARACTER_SET_ID != default_char_set_id) ||
+	            (!FLD.RDB$COLLATION_ID.NULL && FLD.RDB$COLLATION_ID != 0))
+                ISQL_get_character_sets (FLD.RDB$CHARACTER_SET_ID, FALSE, FALSE, char_sets);
+            if (char_sets[0])
+                ISQL_printf (Out, char_sets);
+        }
+        
+	    if (!FLD.RDB$DIMENSIONS.NULL)
+            ISQL_array_dimensions (FLD.RDB$FIELD_NAME);
+        
+	    if (!FLD.RDB$DEFAULT_SOURCE.NULL)
+		{ 
+            sprintf (Print_buffer, "%s%s ", NEWLINE, TAB);
+            ISQL_printf (Out, Print_buffer);
+            SHOW_print_metadata_text_blob (Out, &FLD.RDB$DEFAULT_SOURCE);
+        }
+	    if (!FLD.RDB$VALIDATION_SOURCE.NULL)
+		{ 
+            sprintf (Print_buffer, "%s%s ", NEWLINE, TAB);
+            ISQL_printf (Out, Print_buffer);
+            ISQL_print_validation (Out, &FLD.RDB$VALIDATION_SOURCE, 0, gds__trans);
+        }
+	    if (FLD.RDB$NULL_FLAG == 1)
+            ISQL_printf (Out, " NOT NULL");
+        
+	    /* Bug 8261:  Now show the collation order information */
+	    /* Show the collation order if one has been specified.  If the collation
+	       order is the default for the character set being used, then no collation
+	       order will be shown ( because it isn't needed 
+           
+	       If the collation id is 0, then the default for the character set is 
+	       being used so there is no need to retrieve the collation information.*/
+        
+	    if (!FLD.RDB$COLLATION_ID.NULL && FLD.RDB$COLLATION_ID != 0)
+		{
+            char_sets[0] = 0;
+            ISQL_get_character_sets (FLD.RDB$CHARACTER_SET_ID, FLD.RDB$COLLATION_ID, TRUE, char_sets);
+            if (char_sets[0])
+                ISQL_printf (Out, char_sets);
+        }
+        
+	    sprintf (Print_buffer, "%s%s", Term, NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+}
+
+
+static void list_exception(void)
+{
+/**************************************
+ *
+ *	l i s t _ e x c e p t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	List all exceptions defined in the database
+ *
+ *	Parameters:  none
+ *
+ **************************************/
+	SSHORT first = TRUE;
+
+	FOR EXC IN RDB$EXCEPTIONS
+	    SORTED BY EXC.RDB$EXCEPTION_NAME
+	
+	    if (first)
+		{
+            sprintf (Print_buffer, "%s/*  Exceptions */%s", NEWLINE, NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+        first = FALSE;
+        ISQL_blankterm (EXC.RDB$EXCEPTION_NAME);
+        
+	    ISQL_copy_SQL_id (EXC.RDB$MESSAGE, &SQL_identifier2, SINGLE_QUOTE);
+	    if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+		{
+            ISQL_copy_SQL_id (EXC.RDB$EXCEPTION_NAME, &SQL_identifier, DBL_QUOTE);
+            sprintf (Print_buffer, "CREATE EXCEPTION %s %s%s%s", 
+                     SQL_identifier, SQL_identifier2, Term, NEWLINE);
+        }
+	    else
+            sprintf (Print_buffer, "CREATE EXCEPTION %s %s%s%s", 
+                     EXC.RDB$EXCEPTION_NAME, SQL_identifier2, Term, NEWLINE);
+	
+	    ISQL_printf (Out, Print_buffer); 
+	
+	
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+}
+
+
+static void list_filters(void)
+{
+/**************************************
+ *
+ *	l i s t _ f i l t e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	List all blob filters
+ *
+ *	Parameters:  none
+ * Results in 
+ * DECLARE FILTER <fname> INPUT_TYPE <blob_sub_type> OUTPUT_TYPE <blob_subtype>
+ *		 ENTRY_POINT <string> MODULE_NAME <string>
+ **************************************/
+	SSHORT first = TRUE;
+
+	FOR FIL IN RDB$FILTERS 
+	    SORTED BY FIL.RDB$FUNCTION_NAME
+	
+	    ISQL_blankterm (FIL.RDB$FUNCTION_NAME);
+	    ISQL_blankterm (FIL.RDB$MODULE_NAME);
+	    ISQL_blankterm (FIL.RDB$ENTRYPOINT);
+	
+	    if (first)
+		{
+            sprintf (Print_buffer, "%s/*  BLOB Filter declarations */%s",
+                     NEWLINE,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+	    first = FALSE;
+        
+	    sprintf (Print_buffer, "DECLARE FILTER %s INPUT_TYPE %d OUTPUT_TYPE %d%s%sENTRY_POINT '%s' MODULE_NAME '%s'%s%s%s",
+                 FIL.RDB$FUNCTION_NAME, FIL.RDB$INPUT_SUB_TYPE, FIL.RDB$OUTPUT_SUB_TYPE, 
+                 NEWLINE, TAB, FIL.RDB$ENTRYPOINT, FIL.RDB$MODULE_NAME, Term, NEWLINE,
+                 NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+
+}
+
+
+static void list_foreign()
+{
+/**************************************
+ *
+ *	l i s t _ f o r e i g n
+ *
+ **************************************
+ *
+ * Functional description
+ *	List all foreign key constraints and alter the tables
+ *
+ **************************************/
+	SCHAR *collist;
+
+	collist = NULL;
+	collist = (SCHAR *) ISQL_ALLOC(BUFFER_LENGTH512 * 2);
+	if (!collist)
+	{
+		isc_status[0] = isc_arg_gds;
+		isc_status[1] = isc_virmemexh;
+		isc_status[2] = isc_arg_end;
+		ISQL_errmsg(isc_status);
+		return;
+	}
+
+/* Static queries for obtaining foreign constraints, where RELC1 is the
+   foreign key constraints, RELC2 is the primary key lookup and REFC
+   is the join table */
+
+	FOR RELC1 IN RDB$RELATION_CONSTRAINTS CROSS
+	   RELC2 IN RDB$RELATION_CONSTRAINTS CROSS
+	   REFC IN RDB$REF_CONSTRAINTS WITH 
+	   RELC1.RDB$CONSTRAINT_TYPE EQ "FOREIGN KEY" AND
+	   REFC.RDB$CONST_NAME_UQ EQ RELC2.RDB$CONSTRAINT_NAME AND
+	   REFC.RDB$CONSTRAINT_NAME EQ RELC1.RDB$CONSTRAINT_NAME AND 
+	   (RELC2.RDB$CONSTRAINT_TYPE EQ "UNIQUE" OR
+	    RELC2.RDB$CONSTRAINT_TYPE EQ "PRIMARY KEY")
+	   SORTED BY RELC1.RDB$RELATION_NAME, RELC1.RDB$CONSTRAINT_NAME
+	
+        ISQL_blankterm (RELC1.RDB$RELATION_NAME);
+        ISQL_blankterm (RELC2.RDB$RELATION_NAME);
+	
+        ISQL_get_index_segments (collist, RELC1.RDB$INDEX_NAME, TRUE);
+        
+        sprintf (Print_buffer, " %s", NEWLINE);
+        ISQL_printf (Out, Print_buffer);
+        
+        if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+		{
+            ISQL_copy_SQL_id (RELC1.RDB$RELATION_NAME, &SQL_identifier,
+                              DBL_QUOTE);
+            sprintf (Print_buffer, "ALTER TABLE %s ADD ", SQL_identifier);
+        }
+        else
+            sprintf (Print_buffer, "ALTER TABLE %s ADD ", 
+                     RELC1.RDB$RELATION_NAME);
+        ISQL_printf (Out, Print_buffer);
+        
+        /* If the name of the constraint is not INTEG..., print it.
+	      INTEG... are internally generated names. */
+        if (!RELC1.RDB$CONSTRAINT_NAME.NULL && 
+            strncmp(RELC1.RDB$CONSTRAINT_NAME, "INTEG", 5))
+		{ 
+            ISQL_truncate_term (RELC1.RDB$CONSTRAINT_NAME,
+                                strlen(RELC1.RDB$CONSTRAINT_NAME));
+            if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+			{ 
+                ISQL_copy_SQL_id (RELC1.RDB$CONSTRAINT_NAME, &SQL_identifier,
+                                  DBL_QUOTE);
+                sprintf (Print_buffer, "CONSTRAINT %s ", SQL_identifier);
+            }
+            else
+                sprintf (Print_buffer, "CONSTRAINT %s ",
+                         RELC1.RDB$CONSTRAINT_NAME);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+        if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+		{
+            ISQL_copy_SQL_id (RELC2.RDB$RELATION_NAME, &SQL_identifier,
+                              DBL_QUOTE);
+            sprintf (Print_buffer, "FOREIGN KEY (%s) REFERENCES %s ", 
+                     collist, SQL_identifier);
+        }
+        else
+            sprintf (Print_buffer, "FOREIGN KEY (%s) REFERENCES %s ", 
+                     collist, 
+                     RELC2.RDB$RELATION_NAME);
+        ISQL_printf (Out, Print_buffer);
+        
+        /* Get the column list for the primary key */
+        
+        ISQL_get_index_segments (collist, RELC2.RDB$INDEX_NAME, TRUE);
+	    
+        sprintf (Print_buffer, "(%s)", collist);
+        ISQL_printf (Out, Print_buffer);
+        
+        /* Add the referential actions, if any */
+        if (!REFC.RDB$UPDATE_RULE.NULL)
+		{
+            ISQL_truncate_term (REFC.RDB$UPDATE_RULE,
+                                strlen(REFC.RDB$UPDATE_RULE));
+            ISQL_ri_action_print (REFC.RDB$UPDATE_RULE, " ON UPDATE", TRUE);
+        }
+	
+        if (!REFC.RDB$DELETE_RULE.NULL)
+		{
+            ISQL_truncate_term (REFC.RDB$DELETE_RULE,
+                                strlen(REFC.RDB$DELETE_RULE));
+            ISQL_ri_action_print (REFC.RDB$DELETE_RULE, " ON DELETE", TRUE);
+        }
+	
+        sprintf (Print_buffer, "%s%s", Term, NEWLINE);
+        ISQL_printf (Out, Print_buffer);
+        
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    ISQL_FREE(collist);
+	    return;
+	END_ERROR;
+
+	ISQL_FREE(collist);
+
+}
+
+
+static void list_functions(void)
+{
+/**************************************
+ *
+ *	l i s t _ f u n c t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	List all external functions
+ *
+ *	Parameters:  none
+ * Results in 
+ * DECLARE EXTERNAL FUNCTION function_name
+ *               CHAR [256] , INTEGER, ....
+ *               RETURNS INTEGER BY VALUE
+ *               ENTRY_POINT entrypoint MODULE_NAME module;
+ **************************************/
+	SSHORT first = TRUE, firstarg = TRUE;
+	SSHORT i;
+	SCHAR *return_buffer;
+	SCHAR *type_buffer;
+	SCHAR *buffer;
+
+	buffer = NULL;
+	type_buffer = NULL;
+	return_buffer = NULL;
+
+	buffer = (SCHAR *) ISQL_ALLOC(BUFFER_LENGTH360);
+	if (!buffer)
+	{
+		isc_status[0] = isc_arg_gds;
+		isc_status[1] = isc_virmemexh;
+		isc_status[2] = isc_arg_end;
+		ISQL_errmsg(isc_status);
+		return;
+	}
+
+	type_buffer = (SCHAR *) ISQL_ALLOC(BUFFER_LENGTH128);
+	if (!type_buffer)
+	{
+		isc_status[0] = isc_arg_gds;
+		isc_status[1] = isc_virmemexh;
+		isc_status[2] = isc_arg_end;
+		ISQL_errmsg(isc_status);
+		ISQL_FREE(buffer);
+		return;
+	}
+
+	return_buffer = (SCHAR *) ISQL_ALLOC(BUFFER_LENGTH128);
+	if (!return_buffer)
+	{
+		isc_status[0] = isc_arg_gds;
+		isc_status[1] = isc_virmemexh;
+		isc_status[2] = isc_arg_end;
+		ISQL_errmsg(isc_status);
+		ISQL_FREE(type_buffer);
+		ISQL_FREE(buffer);
+		return;
+	}
+
+	FOR FUN IN RDB$FUNCTIONS 
+	    SORTED BY FUN.RDB$FUNCTION_NAME
+	
+	    ISQL_blankterm (FUN.RDB$FUNCTION_NAME);
+	    ISQL_blankterm (FUN.RDB$MODULE_NAME);
+	    ISQL_blankterm (FUN.RDB$ENTRYPOINT);
+	    if (first)
+		{
+            sprintf (Print_buffer, "%s/*  External Function declarations */%s",
+                     NEWLINE,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+            first = FALSE;
+        }
+	
+	    /* Start new function declaration */
+	    sprintf (Print_buffer, "DECLARE EXTERNAL FUNCTION %s %s", 
+                 FUN.RDB$FUNCTION_NAME,
+                 NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+	    firstarg = TRUE;
+	
+	    FOR FNA IN RDB$FUNCTION_ARGUMENTS WITH
+            FUN.RDB$FUNCTION_NAME EQ FNA.RDB$FUNCTION_NAME
+            SORTED BY FNA.RDB$ARGUMENT_POSITION
+            
+            /* Find parameter type */
+            i = 0;
+            while (FNA.RDB$FIELD_TYPE != Column_types [i].type)
+                i++;
+	
+            /* Print length where appropriate */
+            if ((FNA.RDB$FIELD_TYPE == FCHAR)   || 
+                (FNA.RDB$FIELD_TYPE == VARCHAR) || 
+                (FNA.RDB$FIELD_TYPE == CSTRING))
+			{
+                USHORT  did_charset;
+                did_charset = 0;
+                FOR CHARSET IN RDB$CHARACTER_SETS 
+                    WITH CHARSET.RDB$CHARACTER_SET_ID = FNA.RDB$CHARACTER_SET_ID
+	
+                    did_charset = 1;
+                    ISQL_blankterm (CHARSET.RDB$CHARACTER_SET_NAME);
+                    sprintf (type_buffer, "%s(%d) CHARACTER SET %s", 
+                             Column_types [i].type_name,
+                             (FNA.RDB$FIELD_LENGTH / MAX (1,CHARSET.RDB$BYTES_PER_CHARACTER)),
+                             CHARSET.RDB$CHARACTER_SET_NAME);
+                    
+                END_FOR
+                ON_ERROR
+                    ISQL_errmsg (gds__status);
+	                return;
+                END_ERROR;
+	
+	            if (!did_charset)
+	                sprintf (type_buffer, "%s(%d)",  Column_types [i].type_name,
+                             FNA.RDB$FIELD_LENGTH);
+            }
+	        else
+			{
+                BOOLEAN precision_known = FALSE;
+	            
+	            if ( (major_ods >= ODS_VERSION10) &&
+	                 ((FNA.RDB$FIELD_TYPE == SMALLINT) ||
+	                  (FNA.RDB$FIELD_TYPE == INTEGER) ||
+	                  (FNA.RDB$FIELD_TYPE == blr_int64)))
+				{
+	                FOR FNA1 IN RDB$FUNCTION_ARGUMENTS WITH
+	                    FNA1.RDB$FUNCTION_NAME EQ FNA.RDB$FUNCTION_NAME AND
+	                    FNA1.RDB$ARGUMENT_POSITION EQ FNA.RDB$ARGUMENT_POSITION
+	                        
+	                    /* We are ODS >= 10 and could be any Dialect */
+	                    if (!FNA1.RDB$FIELD_PRECISION.NULL)
+						{
+	                        /* We are Dialect >=3 since FIELD_PRECISION is non-NULL */
+	                        if (FNA1.RDB$FIELD_SUB_TYPE > 0 &&
+	                            FNA1.RDB$FIELD_SUB_TYPE <= MAX_INTSUBTYPES)
+							{
+	                            sprintf (type_buffer, "%s(%d, %d)", 
+	                                     Integral_subtypes [FNA1.RDB$FIELD_SUB_TYPE],
+	                                     FNA1.RDB$FIELD_PRECISION,
+                                         -FNA1.RDB$FIELD_SCALE);
+	                            precision_known = TRUE;
+                            }
+                        } /* if field_precision is not null */
+	                END_FOR
+	                ON_ERROR
+                        ISQL_errmsg (isc_status);
+                        return;
+	                END_ERROR;
+                } /* if major_ods >= ods_version10 && */
+	
+                if (!precision_known)
+				{	
+                    /* Take a stab at numerics and decimals */
+                    if ((FNA.RDB$FIELD_TYPE == SMALLINT) &&
+                        (FNA.RDB$FIELD_SCALE < 0))
+					{
+                        sprintf (type_buffer, "NUMERIC(4, %d)",
+                                 -FNA.RDB$FIELD_SCALE);
+                    }
+                    else if ((FNA.RDB$FIELD_TYPE == INTEGER) &&
+                             (FNA.RDB$FIELD_SCALE < 0))
+					{
+                        sprintf (type_buffer, "NUMERIC(9, %d)",
+                                 -FNA.RDB$FIELD_SCALE);
+                    }
+                    else if ((FNA.RDB$FIELD_TYPE == DOUBLE_PRECISION) &&
+                             (FNA.RDB$FIELD_SCALE < 0))
+					{
+                        sprintf (type_buffer, "NUMERIC(15, %d)",
+                                 -FNA.RDB$FIELD_SCALE);
+                    }
+                    else
+                        sprintf (type_buffer, "%s",
+                                 Column_types [i].type_name);
+                } /* if !precision_known */
+            } /* if FCHAR or VARCHAR or CSTRING ... else */
+            
+	        /* If a return argument, save it for the end, otherwise print */
+	
+    /* 
+	 * Changed the following to not return a BLOB by value.
+	 * To be sincere, this code doesn't cater for the RETURNS PARAMETER syntax but
+	 * it would require more surgery than I'm willing to do, since I'm sick of isql
+	 * so I started my own metadata extraction utility based on IBO that does this
+	 * trick and others.
+	 * Claudio Valderrama (by way of) MOD 23-Apr-2001
+	 */ 
+	
+	        if (FUN.RDB$RETURN_ARGUMENT == FNA.RDB$ARGUMENT_POSITION)
+			{
+				const char* pszA2 =
+					(((SSHORT)abs(FNA.RDB$MECHANISM) == FUN_reference ||
+                           FNA.RDB$FIELD_TYPE == BLOB) ? "" : "BY VALUE");
+
+				const char* pszA3 =
+					(FNA.RDB$MECHANISM < 0 ? "FREE_IT" : "");
+
+	            sprintf(return_buffer,
+						 "RETURNS %s %s %s",
+						  type_buffer,
+						  pszA2, 
+						  pszA3);
+			}
+	        else
+			 {
+                /* First arg needs no comma */
+                sprintf (Print_buffer, "%s%s", (firstarg ? "" : ", "), type_buffer);
+	            ISQL_printf (Out, Print_buffer);
+	            firstarg = FALSE;
+            }
+            
+        END_FOR
+	    ON_ERROR
+	       ISQL_errmsg (gds__status);
+	       ISQL_FREE (type_buffer);
+	       ISQL_FREE (return_buffer);
+	       ISQL_FREE (buffer);
+	       return;
+	    END_ERROR;
+	
+	    /* Print the return type -- All functions return a type */
+	    sprintf (Print_buffer, "%s%s%s",
+                 NEWLINE,
+                 return_buffer,
+                 NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+	    /* Print out entrypoint information */
+	    sprintf (Print_buffer, "ENTRY_POINT '%s' MODULE_NAME '%s'%s%s%s",
+                 FUN.RDB$ENTRYPOINT, 
+                 FUN.RDB$MODULE_NAME,
+                 Term, 
+                 NEWLINE, 
+                 NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+	END_FOR
+    ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    ISQL_FREE(type_buffer);
+        ISQL_FREE(return_buffer);
+        ISQL_FREE(buffer);
+        return;
+	END_ERROR;
+
+	ISQL_FREE(type_buffer);
+	ISQL_FREE(return_buffer);
+	ISQL_FREE(buffer);
+}
+
+
+
+
+static void list_generators(void)
+{
+/**************************************
+ *
+ *	l i s t _ g e n e r a t o r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Re create all non-system generators
+ *
+ **************************************/
+
+	ISQL_printf(Out, NEWLINE);
+
+	FOR GEN IN RDB$GENERATORS WITH
+	    GEN.RDB$GENERATOR_NAME NOT MATCHING "RDB$+" USING "+=[0-9][0-9]* *" AND
+	    GEN.RDB$GENERATOR_NAME NOT MATCHING "SQL$+" USING "+=[0-9][0-9]* *" AND
+	    (GEN.RDB$SYSTEM_FLAG MISSING OR GEN.RDB$SYSTEM_FLAG NE 1)
+	    SORTED BY GEN.RDB$GENERATOR_NAME
+	
+	    ISQL_blankterm (GEN.RDB$GENERATOR_NAME);
+	
+        if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+            ISQL_copy_SQL_id (GEN.RDB$GENERATOR_NAME, &SQL_identifier, DBL_QUOTE);
+	    else
+            strcpy (SQL_identifier, GEN.RDB$GENERATOR_NAME);
+	
+	    sprintf (Print_buffer, "CREATE GENERATOR %s%s%s", 
+                 SQL_identifier,
+                 Term,
+                 NEWLINE); 
+	    ISQL_printf (Out, Print_buffer);
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+
+	ISQL_printf(Out, NEWLINE);
+}
+
+
+static void list_index()
+{
+/**************************************
+ *
+ *	l i s t _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define all non-constraint indices
+ *	Use a static SQL query to get the info and print it.
+ *
+ *	Uses get_index_segment to provide a key list for each index
+ *
+ **************************************/
+	SCHAR *collist;
+	SSHORT first = TRUE;
+
+
+	collist = NULL;
+	collist = (SCHAR *) ISQL_ALLOC(BUFFER_LENGTH512 * 2);
+	if (!collist)
+	{
+		isc_status[0] = isc_arg_gds;
+		isc_status[1] = isc_virmemexh;
+		isc_status[2] = isc_arg_end;
+		ISQL_errmsg(isc_status);
+		return;
+	}
+
+	FOR IDX IN RDB$INDICES CROSS RELC IN RDB$RELATIONS
+	        OVER RDB$RELATION_NAME
+	        WITH (RELC.RDB$SYSTEM_FLAG NE 1 OR RELC.RDB$SYSTEM_FLAG MISSING)
+	        AND NOT (ANY RC IN RDB$RELATION_CONSTRAINTS
+	           WITH RC.RDB$INDEX_NAME EQ IDX.RDB$INDEX_NAME)
+	        SORTED BY IDX.RDB$RELATION_NAME, IDX.RDB$INDEX_NAME
+	
+	
+	    if (first)
+		{	
+            sprintf (Print_buffer, 
+                     "%s/*  Index definitions for all user tables */%s",
+                     NEWLINE,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+        first = FALSE;
+    /* Strip trailing blanks */
+	
+	    ISQL_blankterm (IDX.RDB$RELATION_NAME);
+	    ISQL_blankterm (IDX.RDB$INDEX_NAME);
+        
+	    if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+		{
+            ISQL_copy_SQL_id (IDX.RDB$INDEX_NAME,    &SQL_identifier,  DBL_QUOTE);
+            ISQL_copy_SQL_id (IDX.RDB$RELATION_NAME, &SQL_identifier2, DBL_QUOTE);
+            sprintf (Print_buffer, "CREATE%s%s INDEX %s ON %s(",
+                     (IDX.RDB$UNIQUE_FLAG ? " UNIQUE" : ""),
+                     (IDX.RDB$INDEX_TYPE ? " DESCENDING" : ""),
+                     SQL_identifier,
+                     SQL_identifier2);
+        }
+	    else
+            sprintf (Print_buffer, "CREATE%s%s INDEX %s ON %s(",
+                     (IDX.RDB$UNIQUE_FLAG ? " UNIQUE" : ""),
+                     (IDX.RDB$INDEX_TYPE ? " DESCENDING" : ""),
+                     IDX.RDB$INDEX_NAME, 
+                     IDX.RDB$RELATION_NAME);
+	    ISQL_printf (Out, Print_buffer);
+        
+	    /* Get column names */
+        
+	    if (ISQL_get_index_segments (collist, IDX.RDB$INDEX_NAME, TRUE))
+		{
+            sprintf (Print_buffer, "%s)%s%s", collist, Term, NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    ISQL_FREE(collist);
+        return;
+	END_ERROR;
+
+	ISQL_FREE(collist);
+}
+
+
+static void list_views()
+{
+/**************************************
+ *
+ *	l i s t _ v i e w s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show text of views.
+ *	Use a SQL query to get the info and print it.
+ *	Note: This should also contain check option
+ *
+ **************************************/
+	SSHORT first;
+
+/* If this is a view, use print_blob to print the view text */
+
+	FOR REL IN RDB$RELATIONS WITH
+	   (REL.RDB$SYSTEM_FLAG NE 1 OR REL.RDB$SYSTEM_FLAG MISSING) AND
+	   REL.RDB$VIEW_BLR NOT MISSING AND
+	   REL.RDB$FLAGS = REL_sql
+	   SORTED BY REL.RDB$RELATION_ID
+	   
+	    first = TRUE;
+	    ISQL_blankterm (REL.RDB$RELATION_NAME);
+	
+	    if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+            ISQL_copy_SQL_id (REL.RDB$RELATION_NAME, &SQL_identifier, DBL_QUOTE);
+	    else
+            strcpy (SQL_identifier, REL.RDB$RELATION_NAME);
+        
+	    ISQL_blankterm (REL.RDB$OWNER_NAME);
+        
+	    sprintf (Print_buffer, "%s/* View: %s, Owner: %s */%s",
+                 NEWLINE,
+                 REL.RDB$RELATION_NAME, 
+                 REL.RDB$OWNER_NAME,
+                 NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+	    sprintf (Print_buffer, "CREATE VIEW %s (", SQL_identifier);
+	    ISQL_printf (Out, Print_buffer);
+        
+	    /* Get column list */
+	    FOR RFR IN RDB$RELATION_FIELDS WITH
+            RFR.RDB$RELATION_NAME = REL.RDB$RELATION_NAME
+            SORTED BY RFR.RDB$FIELD_POSITION
+	
+            ISQL_blankterm (RFR.RDB$FIELD_NAME);
+        
+            if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+                ISQL_copy_SQL_id (RFR.RDB$FIELD_NAME, &SQL_identifier, DBL_QUOTE);
+            else
+                strcpy (SQL_identifier, RFR.RDB$FIELD_NAME);
+            
+            sprintf (Print_buffer, "%s%s", (first ? "" : ", "), SQL_identifier);
+            ISQL_printf (Out, Print_buffer);
+            first = FALSE;
+        
+	    END_FOR
+	    ON_ERROR
+	       ISQL_errmsg (gds__status);
+	       return;
+	    END_ERROR;
+	    sprintf (Print_buffer, ") AS%s", NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+	
+	    if (!REL.RDB$VIEW_SOURCE.NULL)
+            SHOW_print_metadata_text_blob (Out, &REL.RDB$VIEW_SOURCE);
+        
+	    sprintf (Print_buffer, "%s%s", Term, NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(gds__status);
+	    return;
+	END_ERROR;
+}
diff --git a/src/isql/isql.def b/src/isql/isql.def
new file mode 100644
index 0000000000..f780776411
--- /dev/null
+++ b/src/isql/isql.def
@@ -0,0 +1,33 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+; 
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+; 
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+; 
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+
+NAME         ISQL
+
+DESCRIPTION 'Windows ISQL'
+
+CODE         PRELOAD MOVEABLE DISCARDABLE
+DATA         PRELOAD MOVEABLE MULTIPLE
+
+EXETYPE      WINDOWS
+
+SEGMENTS
+       _RES  PRELOAD MOVEABLE DISCARDABLE
+
+HEAPSIZE     128
+STACKSIZE    8192
+
+
diff --git a/src/isql/isql.e b/src/isql/isql.e
new file mode 100644
index 0000000000..3692047865
--- /dev/null
+++ b/src/isql/isql.e
@@ -0,0 +1,7726 @@
+/*
+ *	PROGRAM:	Interactive SQL utility
+ *	MODULE:		isql.e
+ *	DESCRIPTION:	Main line routine
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+  $Id: isql.e,v 1.1.1.1 2001-05-23 13:26:03 tamlin Exp $
+  Revision 1.5  2000/11/18 16:49:24  fsg
+  Increased PRINT_BUFFER_LENGTH to 2048 to show larger plans
+  Fixed Bug #122563 in extract.e get_procedure_args
+  Apparently this has to be done in show.e also,
+  but that is for another day :-)
+
+  2001/05/20  Neil McCalden  add planonly option
+*/
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include <signal.h>
+#include <math.h>
+#include <ctype.h>
+#include <errno.h>
+
+#define TIME_ERR	101
+#define	BLANK			'\040'
+#define	DBL_QUOTE		'\042'
+#define	SINGLE_QUOTE		'\''
+#define	KW_FILE			"IB_FILE"
+#define	INIT_STR_FLAG		0
+#define	SINGLE_QUOTED_STRING	1
+#define	DOUBLE_QUOTED_STRING	2
+#define	NO_MORE_STRING		3
+#define INCOMPLETE_STRING	4
+#define	KW_ROLE			"ROLE"
+
+#include "../jrd/time.h"
+
+#define	ISQL_MAIN
+#include "../jrd/common.h"
+#if defined(WIN_NT) || defined(GUI_TOOLS)
+#include <windows.h>
+#endif
+#include "../jrd/codes.h"
+#include "../include/jrd/gds.h"
+#include "../isql/isql.h"
+#include "../jrd/perf.h"
+#include "../jrd/license.h"
+#include "../jrd/constants.h"
+#include "../jrd/ods.h"
+#include "../isql/extra_proto.h"
+#include "../isql/isql_proto.h"
+#include "../isql/show_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/perf_proto.h"
+#include "../jrd/utl_proto.h"
+#ifdef GUI_TOOLS
+#include "../wisql/isqlcomm.h"
+#endif
+#ifdef WINDOWS_ONLY
+#include "../jrd/seg_proto.h"
+#endif
+#include "../jrd/gdsassert.h"
+
+DATABASE DB = COMPILETIME "yachts.lnk";
+
+#define STUFF(x)      *dpb++ = (x)
+#define STUFF_INT(x)  {STUFF (x); STUFF ((x) >> 8); STUFF ((x) >> 16); STUFF ((x) >> 24);}
+
+#define DIGIT(c)        ((c) >= '0' && (c) <= '9')
+#define INT64_LIMIT     ((((SINT64) 1) << 62) / 5)	/* same as in cvt.c */
+
+/*  Print lengths of numeric values */
+
+#define MAXCHARSET_LENGTH  32	/* CHARSET names */
+#define SHORT_LEN	7			/* NUMERIC (4,2) = -327.68 */
+#define LONG_LEN	12			/* NUMERIC (9,2) = -21474836.48 */
+#define INT64_LEN	21			/* NUMERIC(18,2) = -92233720368547758.08 */
+#define QUAD_LEN	19
+#define FLOAT_LEN	14			/* -1.2345678E+38 */
+#define DOUBLE_LEN	23			/* -1.234567890123456E+300 */
+#define DATE_LEN	11			/* 11 for date only */
+#define DATETIME_LEN	25		/* 25 for date-time */
+#define TIME_ONLY_LEN   13		/* 13 for time only */
+#define DATE_ONLY_LEN   11
+#define UNKNOWN_LEN     20		/* Unknown type: %d */
+
+#define MAX_TERMS	10			/* max # of terms in an interactive cmd */
+
+#define COMMIT_TRANS(x)	{if (isc_commit_transaction (isc_status, x)) { ISQL_errmsg (isc_status); isc_rollback_transaction (isc_status, x); }}
+
+typedef struct indev {
+	struct indev *indev_next;
+	IB_FILE *indev_fpointer;
+} *INDEV;
+
+typedef struct collist {
+	struct collist *collist_next;
+	TEXT col_name[WORDLENGTH];
+	SSHORT col_len;
+} COLLIST;
+
+typedef struct ri_actions {
+	SCHAR *ri_action_name;
+	SCHAR *ri_action_print_caps;
+	SCHAR *ri_action_print_mixed;
+} RI_ACTIONS;
+
+static SSHORT add_row(TEXT *);
+static SSHORT blobedit(TEXT *, TEXT **);
+static void col_check(TEXT *, SSHORT *);
+static void copy_str(TEXT **, TEXT **, BOOLEAN *, TEXT *, TEXT *, SSHORT);
+static SSHORT copy_table(TEXT *, TEXT *, TEXT *);
+static SSHORT create_db(TEXT *, TEXT *);
+static void do_isql(void);
+static SSHORT drop_db(void);
+static SSHORT edit(TEXT **);
+static int end_trans(void);
+static SSHORT escape(TEXT *);
+static SSHORT frontend(TEXT *);
+static SSHORT get_statement(TEXT **, USHORT *, TEXT *);
+static BOOLEAN get_numeric(UCHAR *, USHORT, SSHORT *, SINT64 *);
+static void get_str(TEXT *, TEXT **, TEXT **, SSHORT *);
+static SSHORT print_sets(void);
+static SSHORT help(TEXT *);
+static SSHORT input(TEXT *);
+static BOOLEAN isyesno(TEXT *);
+static SSHORT newdb(TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+static SSHORT newoutput(TEXT *);
+static SSHORT newsize(TEXT *, TEXT *);
+static SSHORT newtrans(TEXT *);
+static SSHORT parse_arg(int, SCHAR **, SCHAR *, IB_FILE **);
+static SSHORT print_item(TEXT **, XSQLVAR *, SLONG);
+static int print_item_blob(IB_FILE *, XSQLVAR *, void *);
+static void print_item_numeric(SINT64, SSHORT, SSHORT, TEXT *);
+static int print_line(XSQLDA *, SLONG *, TEXT *);
+static int process_statement(TEXT *, XSQLDA **);
+static void CLIB_ROUTINE query_abort(void);
+static void strip_quotes(TEXT *, TEXT *);
+static SSHORT do_set_command(TEXT *, SSHORT *);
+#ifdef DEV_BUILD
+static UCHAR *sqltype_to_string(USHORT);
+#endif
+
+XSQLDA *sqlda;
+XSQLDA **sqldap;
+USHORT dialect_spoken = 0;
+USHORT requested_SQL_dialect = SQL_DIALECT_V6;
+BOOLEAN connecting_to_pre_v6_server = FALSE;
+SSHORT V45 = FALSE;
+SSHORT V4 = FALSE;
+SSHORT V33 = FALSE;
+USHORT major_ods = 0;
+USHORT minor_ods = 0;
+SSHORT Quiet;
+#if defined (WIN95) && !defined (GUI_TOOLS)
+BOOL fAnsiCP;
+#endif
+
+static COLLIST *Cols = NULL;
+static SCHAR statistics[256];
+static INDEV Filelist;
+static TEXT Tmpfile[128];
+static int Abort_flag = 0;
+static SSHORT Echo = FALSE;
+static SSHORT Time_display = FALSE;
+static SSHORT Sqlda_display = FALSE;
+static SSHORT Exit_value;
+static BOOLEAN Continuation = FALSE;
+static BOOLEAN Interactive = TRUE;
+static BOOLEAN Input_file = FALSE;
+static SSHORT Pagelength = 20;
+static SSHORT Stats = FALSE;
+static SSHORT Autocommit = TRUE;	/* Commit ddl */
+static SSHORT Warnings = TRUE;	/* Print warnings */
+static SSHORT Autofetch = TRUE;	/* automatically fetch all records */
+static USHORT fetch_direction = 0;
+static SLONG fetch_offset = 1;
+static SSHORT Doblob = 1;		/* Default to printing only text types */
+static SSHORT List = FALSE;
+static SSHORT Docount = FALSE;
+static SSHORT Plan = FALSE;
+static SSHORT Planonly = FALSE;
+static int Termlen = 0;
+static SCHAR ISQL_charset[MAXCHARSET_LENGTH] = { 0 };
+static IB_FILE *Diag;
+static IB_FILE *Help;
+static TEXT *sql_prompt = "SQL> ";
+static TEXT *fetch_prompt = "FETCH> ";
+
+#ifdef GUI_TOOLS
+static IB_FILE *Session;		/* WISQL session file */
+static TEXT *SaveOutfileName;	/* WISQL output file name */
+#endif
+
+static BOOLEAN global_psw = FALSE;
+static BOOLEAN global_usr = FALSE;
+static BOOLEAN global_role = FALSE;
+static BOOLEAN global_numbufs = FALSE;
+static BOOLEAN have_trans = FALSE;	/* translation of word "Yes" */
+static TEXT yesword[MSG_LENGTH];
+static TEXT Print_buffer[PRINT_BUFFER_LENGTH];
+
+static UCHAR db_version_info[] = { isc_info_ods_version,
+	isc_info_ods_minor_version,
+	isc_info_db_sql_dialect
+};
+static UCHAR blr_bpb[] = { isc_bpb_version1,
+	isc_bpb_source_type, 1, BLOB_blr,
+	isc_bpb_target_type, 1, BLOB_text
+}, text_bpb[] = {
+	isc_bpb_version1,
+		isc_bpb_source_type, 1, BLOB_text,
+
+		isc_bpb_target_type, 1, BLOB_text}, acl_bpb[] = {
+	isc_bpb_version1,
+		isc_bpb_source_type, 1, BLOB_acl, isc_bpb_target_type, 1, BLOB_text};
+
+/* Note that these transaction options aren't understood in Version 3.3 */
+static UCHAR default_tpb[] = { isc_tpb_version1, isc_tpb_write,
+	isc_tpb_read_committed, isc_tpb_wait,
+	isc_tpb_no_rec_version
+};
+
+/* InterBase Performance Statistic format Variables */
+
+static struct perf perf_before, perf_after;
+static BOOLEAN have_report = FALSE;	/* translation of report strings */
+static TEXT report_1[MSG_LENGTH + MSG_LENGTH];
+static TEXT report_2[MSG_LENGTH];
+static TEXT rec_count[MSG_LENGTH];
+
+/* if the action is rrstrict, do not print anything at all */
+static RI_ACTIONS ri_actions_all[] = {
+	RI_ACTION_CASCADE, RI_ACTION_CASCADE, "Cascade",
+	RI_ACTION_NULL, RI_ACTION_NULL, "Set Null",
+	RI_ACTION_DEFAULT, RI_ACTION_DEFAULT, "Set Default",
+	RI_ACTION_NONE, RI_ACTION_NONE, "No Action",
+	RI_RESTRICT, "", "",
+	"", "", "",
+	0, 0, 0
+};
+
+
+
+#ifndef GUI_TOOLS
+int CLIB_ROUTINE main( int argc, char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	This calls ISQL_main, and exists to
+ *	isolate main which does not exist under
+ *	MS Windows.
+ *
+ **************************************/
+
+#if defined (WIN95) && !defined (GUI_TOOLS)
+	{
+		ULONG ulConsoleCP;
+
+		ulConsoleCP = GetConsoleCP();
+		if (ulConsoleCP == GetACP())
+			fAnsiCP = TRUE;
+		else {
+			fAnsiCP = FALSE;
+			if (ulConsoleCP != GetOEMCP() && Warnings) {
+				ISQL_printf(Out,
+							"WARNING: The current codepage is not supported.  Any use of any\n"
+							"         extended characters may result in incorrect file names.\n");
+			}
+		}
+	}
+#endif
+
+	Exit_value = ISQL_main(argc, argv);
+
+	exit(Exit_value);
+}
+#endif
+
+
+SSHORT ISQL_main(int argc, char *argv[])
+{
+/**************************************
+ *
+ *	I S Q L _ m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Choose between reading and executing or generating SQL
+ *	ISQL_main isolates this from main for PC Clients.
+ *
+ **************************************/
+	SSHORT ret;
+	TEXT helpstring[155];
+	TEXT tabname[WORDLENGTH];
+
+#ifdef MU_ISQL
+/*
+** This is code for QA Test bed Multiuser environment.
+**
+** Setup multi-user test environment.
+*/
+	if (qa_mu_environment()) {
+		/*
+		   ** Initialize multi-user test manager only if in that
+		   ** environment.
+		 */
+		if (!qa_mu_init(argc, argv, 1)) {
+			/*
+			   ** Some problem in initializing multi-user test
+			   ** environment.
+			 */
+			qa_mu_cleanup();
+			exit(1);
+		}
+		else {
+			/*
+			   ** When invoked by MU, additional command-line argument
+			   ** was added at tail. ISQL is not interested in it so
+			   ** remove it.
+			 */
+			argv[argc - 1] = NULL;
+			argc--;
+		}
+	}
+#endif	/* MU_ISQL */
+
+	tabname[0] = '\0';
+	db_SQL_dialect = 0;
+
+#ifdef GUI_TOOLS
+/* 
+ * Since there is no concept of stdout & stderr, we set Out and Errfp to 
+ * NULL initially.
+*/
+	Out = NULL;
+	Errfp = NULL;
+
+	ret = parse_arg(argc, argv, tabname, &Session);
+
+/* Init the diagnostics and help files */
+	Echo = TRUE;
+	Diag = Out;
+	Help = Out;
+#else
+/* Output goes to ib_stdout by default */
+	Out = ib_stdout;
+	Errfp = ib_stderr;
+
+	ret = parse_arg(argc, argv, tabname, NULL);
+
+/* Init the diagnostics and help files */
+	Diag = ib_stdout;
+	Help = ib_stdout;
+#endif
+
+	if (Merge_stderr)
+		Errfp = Out;
+
+	ISQL_make_upper(tabname);
+	switch (ret) {
+	case EXTRACT:
+		/* This is a call to do extractions */
+		if (*Db_name) {
+#ifndef GUI_TOOLS
+			/* Let's use user and password if provided.
+			   This should solve bug #112263 FSG 28.Jan.2001 */
+			(void) newdb(Db_name, User, Password, Numbufs, Role);
+#endif
+
+
+			Exit_value = EXTRACT_ddl(SQL_objects, tabname);
+
+#ifndef GUI_TOOLS
+			isc_detach_database(isc_status, &DB);
+#endif
+		}
+		break;
+
+	case EXTRACTALL:
+
+		if (*Db_name) {
+#ifndef GUI_TOOLS
+			/* Let's use user and password if provided.
+			   This should solve bug #112263 FSG 28.Jan.2001 */
+			(void) newdb(Db_name, User, Password, Numbufs, Role);
+#endif
+			Exit_value = EXTRACT_ddl(ALL_objects, tabname);
+#ifndef GUI_TOOLS
+			isc_detach_database(isc_status, &DB);
+#endif
+		}
+		break;
+
+	case ERR:
+		gds__msg_format(NULL_PTR, ISQL_MSG_FAC, USAGE1, sizeof(helpstring),
+						helpstring, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR,
+						NULL_PTR);
+		STDERROUT(helpstring, 1);
+		gds__msg_format(NULL_PTR, ISQL_MSG_FAC, USAGE2, sizeof(helpstring),
+						helpstring, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR,
+						NULL_PTR);
+		STDERROUT(helpstring, 1);
+
+		gds__msg_format(NULL_PTR, ISQL_MSG_FAC, USAGE3, sizeof(helpstring),
+						helpstring, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR,
+						NULL_PTR);
+		STDERROUT(helpstring, 1);
+		Exit_value = FINI_ERROR;
+		break;
+
+	default:
+		do_isql();
+		Exit_value = FINI_OK;
+		break;
+	}
+#ifdef MU_ISQL
+/*
+** This is code for QA Test bed Multiuser environment.
+**
+** Do multi-user cleanup if running in multi-user domain.
+** qa_mu_cleanup() is NOP in non-multi-user domain.
+*/
+	qa_mu_cleanup();
+#endif	/* MU_ISQL */
+
+#ifdef DEBUG_GDS_ALLOC
+/* As ISQL can run under windows, all memory should be freed before
+ * returning.  In debug mode this call will report unfreed blocks.
+ */
+	gds_alloc_report(0, __FILE__, __LINE__);
+#endif
+
+#ifdef GUI_TOOLS
+/* Free the original WISQL output file name */
+	if (SaveOutfileName) {
+		ISQL_FREE(SaveOutfileName);
+		SaveOutfileName = NULL;
+	}
+#endif
+	return Exit_value;
+}
+
+
+void ISQL_array_dimensions( TEXT * fieldname)
+{
+/**************************************
+ *
+ *	I S Q L _ a r r a y _ d i m e n s i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieves the dimensions of arrays and prints them.
+ *
+ *	Parameters:  fieldname -- the actual name of the array field
+ *
+ **************************************/
+
+	ISQL_printf(Out, "[");
+
+/* Transaction for all frontend commands */
+	if (DB && !gds__trans)
+		if (isc_start_transaction
+			(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0)) {
+			ISQL_errmsg(isc_status);
+			return;
+		};
+
+	FOR FDIM IN RDB$FIELD_DIMENSIONS WITH
+	   FDIM.RDB$FIELD_NAME EQ fieldname
+	   SORTED BY FDIM.RDB$DIMENSION
+	
+	    /*  Format is [lower:upper, lower:upper,..]  */
+	
+	    if (FDIM.RDB$DIMENSION > 0) {
+            ISQL_printf (Out, ", ");
+        }
+        sprintf (Print_buffer, "%ld:%ld", FDIM.RDB$LOWER_BOUND, FDIM.RDB$UPPER_BOUND);
+        ISQL_printf (Out, Print_buffer);
+	
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return;
+	END_ERROR;
+
+	ISQL_printf(Out, "] ");
+}
+
+
+SCHAR *ISQL_blankterm(TEXT * str)
+{
+/**************************************
+ *
+ *	I S Q L _ b l a n k t e r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Trim any trailing spaces off a string;
+ *	eg: find the last non blank in the string and insert 
+ *	a null byte after that.
+ *
+ *	SQL delimited identifier may have blank as part of the name
+ *
+ *	Parameters:  str - the string to terminate
+ *	Returns:     str
+ *
+ **************************************/
+	TEXT *p, *q;
+
+/* Scan to the end-of-string, record position of last non-blank seen */
+	q = str - 1;
+	for (p = str; *p; p++) {
+		if (*p != BLANK)
+			q = p;
+	}
+
+	*(q + 1) = '\0';
+	return str;
+}
+
+
+BOOLEAN ISQL_dbcheck(void)
+{
+/**************************************
+ *
+ *	I S Q L _ d b c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if we are connected to a database.
+ *  	Return TRUE if connected, FALSE otherwise
+ *
+ **************************************/
+	TEXT errbuf[MSG_LENGTH];
+
+	if (!Db_name[0]) {
+		if (!Quiet) {
+			gds__msg_format(NULL_PTR, ISQL_MSG_FAC, NO_DB, sizeof(errbuf),
+							errbuf, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR,
+							NULL_PTR);
+			STDERROUT(errbuf, 1);
+#ifdef GUI_TOOLS
+			/*
+			 * This will force an extra carriage return line feed for better
+			 * formatting of errors when executing a script through windows ISQL.
+			 * The Merge_stderr flag is only set when scripts are running.
+			 */
+			if (Merge_stderr)
+				ISQL_printf(Out, NEWLINE);
+#endif
+		}
+		else
+			Exit_value = FINI_ERROR;
+		return FALSE;
+	}
+	else
+		return TRUE;
+}
+
+
+void ISQL_prompt( TEXT * string)
+{
+/**************************************
+ *
+ *	I S Q L _ p r o m p t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a prompt string for interactive user
+ *	Not for Windows, otherwise flush the string
+ **************************************/
+#ifndef GUI_TOOLS
+	ib_fprintf(ib_stdout, string);
+	ib_fflush(ib_stdout);
+#endif
+}
+
+
+#ifdef GUI_TOOLS
+int ISQL_commit_work(
+					 int response, IB_FILE * ipf, IB_FILE * opf, IB_FILE * sf)
+{
+/**************************************
+ *
+ *	I S Q L _ c o m m i t _ w o r k 
+ *
+ **************************************
+ *
+ * Functional description
+ *	If response = WISQL_RESPONSE_YES then commit work.
+ * 	If response = WISQL_RESPONSE_NO rollback.
+ *
+ **************************************/
+	ISC_STATUS ret_code;
+
+
+	Out = opf;
+	Ifp = ipf;
+	Diag = Out;
+	Help = Out;
+
+	ret_code = 0;
+/*
+ * Commit transaction that was started on behalf of the request 
+ * Don't worry about the error if one occurs it will be network 
+ * related and caught later.
+ */
+	if (gds__trans)
+		isc_rollback_transaction(isc_status, &gds__trans);
+
+	if (response == WISQL_RESPONSE_NO) {
+		/* add command to command history file */
+		ib_fprintf(sf, "%s%s%s", "Rollback", Term, NEWLINE);
+		ib_fflush(sf);
+		if (D__trans)
+			if (ret_code = isc_rollback_transaction(isc_status, &D__trans))
+				ISQL_errmsg(isc_status);
+
+		if (M__trans && !ret_code)
+			if (ret_code = isc_rollback_transaction(isc_status, &M__trans))
+				ISQL_errmsg(isc_status);
+
+		if (!D__trans && !M__trans && !ret_code) {
+			ISQL_printf(Out, "Work Rolled Back");
+			ISQL_printf(Out, NEWLINE);
+		}
+	}
+	else {
+		/* add command to command history file */
+		ib_fprintf(sf, "%s%s%s", "Commit", Term, NEWLINE);
+		ib_fflush(sf);
+		if (D__trans)
+			if (ret_code = isc_commit_transaction(isc_status, &D__trans))
+				ISQL_errmsg(isc_status);
+
+		if (M__trans && !ret_code)
+			if (ret_code = isc_commit_transaction(isc_status, &M__trans))
+				ISQL_errmsg(isc_status);
+
+		if (!D__trans && !M__trans && !ret_code) {
+			ISQL_printf(Out, "Work Committed");
+			ISQL_printf(Out, NEWLINE);
+		}
+	}
+
+	return ((int) ret_code);
+}
+#endif
+
+
+void ISQL_copy_SQL_id( TEXT * in_str, TEXT ** output_str, TEXT escape_char)
+{
+/**************************************
+ *
+ *	I S Q L _ c o p y _ S Q L _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Copy/rebuild the SQL identifier by adding escape double quote if
+ *	double quote is part of the SQL identifier and raps around the 
+ *	SQL identifier with delimited double quotes 
+ *
+ **************************************/
+	TEXT *p1, *q1;
+
+	q1 = output_str;
+	*q1 = escape_char;
+	q1++;
+	for (p1 = in_str; *p1; p1++) {
+		*q1 = *p1;
+		q1++;
+		if (*p1 == escape_char) {
+			*q1 = escape_char;
+			q1++;
+		}
+	}
+	*q1 = escape_char;
+	q1++;
+	*q1 = '\0';
+}
+
+
+void ISQL_errmsg( STATUS * status)
+{
+/**************************************
+ *
+ *	I S Q L _ e r r m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report error conditions
+ *	Simulate isc_print_status exactly, to control ib_stderr 
+ **************************************/
+	TEXT errbuf[MSG_LENGTH];
+	STATUS *vec;
+#if defined (WIN95) && !defined (GUI_TOOLS)
+#define TRANSLATE_CP if (!fAnsiCP) AnsiToOem(errbuf, errbuf)
+#else
+#define TRANSLATE_CP
+#endif
+
+	vec = status;
+	if (Quiet)
+		Exit_value = FINI_ERROR;
+	else {
+		if (vec[0] != gds_arg_gds ||
+			(vec[0] == gds_arg_gds && vec[1] == 0
+			 && vec[2] != gds_arg_warning) || (vec[0] == gds_arg_gds
+											   && vec[1] == 0
+											   && vec[2] == gds_arg_warning
+											   && !Warnings)) return;
+		gds__msg_format(NULL_PTR, ISQL_MSG_FAC, 0, sizeof(errbuf), errbuf,
+						(TEXT *) isc_sqlcode(status), NULL_PTR, NULL_PTR,
+						NULL_PTR, NULL_PTR);
+#ifndef GUI_TOOLS
+		TRANSLATE_CP;
+		STDERROUT(errbuf, 1);
+#else
+		buffer_error_msg(errbuf, WISQL_SHORTMSG);
+#endif
+
+		isc_interprete(errbuf, &vec);
+#ifndef GUI_TOOLS
+		TRANSLATE_CP;
+		STDERROUT(errbuf, 1);
+#else
+		buffer_error_msg(errbuf, WISQL_DETAILEDMSG);
+		buffer_error_msg(NEWLINE, WISQL_DETAILEDMSG);
+#endif
+
+		/* Continuation of error */
+		errbuf[0] = '-';
+		while (isc_interprete(errbuf + 1, &vec)) {
+#ifndef GUI_TOOLS
+			TRANSLATE_CP;
+			STDERROUT(errbuf, 1);
+#else
+			buffer_error_msg(errbuf, WISQL_DETAILEDMSG);
+			buffer_error_msg(NEWLINE, WISQL_DETAILEDMSG);
+#endif
+		}
+#ifdef GUI_TOOLS
+		/*
+		 * This will force an extra carriage return line feed for better 
+		 * formatting of errors when executing a script through windows 
+		 * ISQL.  The Merge_stderr flag is only set when scripts are 
+		 * running.
+		 */
+		if (Merge_stderr)
+			ISQL_printf(Out, NEWLINE);
+
+		/* Show the error dialog */
+		wisqlerr();
+#endif
+	}
+}
+
+
+void ISQL_warning( STATUS * status)
+{
+/**************************************
+ *
+ *	I S Q L _ w a r n i n g
+ *
+ **************************************
+ *
+ * Functional desription
+ *	Report warning
+ *	Simulate isc_print_status exactly, to control ib_stderr
+ **************************************/
+	STATUS *vec;
+	TEXT buf[MSG_LENGTH];
+#if defined (WIN95) && !defined (GUI_TOOLS)
+#define TRANSLATE_CP if (!fAnsiCP) AnsiToOem(buf, buf)
+#else
+#define TRANSLATE_CP
+#endif
+
+
+	vec = status;
+	assert(vec[1] == 0);		/* shouldn't be any errors */
+
+	if (!Quiet) {
+		if (vec[0] != gds_arg_gds ||
+			vec[2] != gds_arg_warning ||
+			(vec[2] == gds_arg_warning && !Warnings)) return;
+		isc_interprete(buf, &vec);
+#ifndef GUI_TOOLS
+		TRANSLATE_CP;
+		STDERROUT(buf, 1);
+#else
+		buffer_error_msg(buf, WISQL_DETAILEDMSG);
+		buffer_error_msg(NEWLINE, WISQL_DETAILEDMSG);
+#endif
+
+		/* Continuation of warning */
+		buf[0] = '-';
+		while (isc_interprete(buf + 1, &vec)) {
+#ifndef GUI_TOOLS
+			TRANSLATE_CP;
+			STDERROUT(buf, 1);
+#else
+			buffer_error_msg(buf, WISQL_DETAILEDMSG);
+			buffer_error_msg(NEWLINE, WISQL_DETAILEDMSG);
+#endif
+		}
+#ifdef GUI_TOOLS
+		/*
+		 * This will force an extra carriage return line feed for better
+		 * formatting of errors when executing a script through windows
+		 * ISQL.  The Merge_stderr flag is only set when scripts are
+		 * running.
+		 */
+		if (Merge_stderr)
+			ISQL_printf(Out, NEWLINE);
+
+		/* Show the error dialog */
+		wisqlerr();
+#endif
+	}
+
+	status[2] = gds_arg_end;
+
+}
+
+
+#ifdef GUI_TOOLS
+void ISQL_exit_db(void)
+{
+/**************************************
+ *
+ *	I S Q L _ e x i t _ d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Detach from the database.
+ *
+ **************************************/
+
+	if (D__trans)
+		isc_rollback_transaction(isc_status, &D__trans);
+	if (M__trans)
+		isc_rollback_transaction(isc_status, &M__trans);
+	if (gds__trans)
+		isc_rollback_transaction(isc_status, &gds__trans);
+
+	if (Stmt)
+		isc_dsql_free_statement(isc_status, &Stmt, 2);
+
+	if (DB)
+		isc_detach_database(isc_status, &DB);
+
+	DB = NULL;
+	Db_name[0] = '\0';
+	D__trans = NULL;
+	M__trans = NULL;
+	gds__trans = NULL;
+	Stmt = NULL;
+	if (sqlda)
+		ISQL_FREE(sqlda);
+
+}
+#endif
+
+
+#ifdef GUI_TOOLS
+int ISQL_frontend_command(
+						  TEXT * string,
+						  IB_FILE * ipf, IB_FILE * opf, IB_FILE * sf)
+{
+/**************************************
+ *
+ *	I S Q L _ f r o n t e n d _ c o m m a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a frontend command for Windows ISQL.   This sets up
+ *	the input and output files, and executes the statement.
+ *
+ **************************************/
+	SSHORT ret;
+	SCHAR *endpassword, savechar;
+	int length;
+	SSHORT connect_stmt;
+
+	Out = opf;
+	Ifp = ipf;
+	Diag = Out;
+	Help = Out;
+
+	connect_stmt = FALSE;
+
+	if (strncmp(string, WISQL_CONNECT_LITERAL, strlen(WISQL_CONNECT_LITERAL))) {
+		/* add command to command history file */
+		ib_fprintf(sf, "%s%s%s", string, Term, NEWLINE);
+		ib_fflush(sf);
+
+		if (strcmp(string, WISQL_DROP_DATABASE_LITERAL)) {
+			/* Echo string to Output */
+			ISQL_printf(Out, string);
+			ISQL_printf(Out, NEWLINE);
+		}
+	}
+	else {
+		/* 
+		 *  Need to remove the users password from connect string.  Step through
+		 *  the string until you see the PASSWORD literal.  Save of the char,
+		 *  NULL terminate the string and print.  Restore the char and move
+		 *  on. 
+		 */
+		connect_stmt = TRUE;
+		endpassword = strstr(string, WISQL_PASSWORD_LITERAL);
+		if (endpassword) {
+			length = strlen(WISQL_PASSWORD_LITERAL);
+			endpassword = endpassword + length;
+			savechar = *endpassword;
+			*endpassword = NULL;
+
+			/* add command to command history file */
+			ib_fprintf(sf, "%s %s %s%s",
+					   string, WISQL_PASSWORD_COMMENT_LITERAL, Term, NEWLINE);
+			ib_fflush(sf);
+			*endpassword = savechar;
+		}
+	}
+
+	ret = (int) frontend(string);
+
+	if (ret == SKIP)
+		ret = 0;
+
+	if (!connect_stmt)
+		ISQL_printf(Out, NEWLINE);
+
+	return (ret);
+}
+#endif
+
+
+SSHORT ISQL_get_default_char_set_id()
+{
+/************************************* 
+*
+*	I S Q L _ g e t _ d e f a u l t _ c h a r _ s e t _ i d
+*
+**************************************
+*
+* Functional description
+*	Return the database default character set
+*	id.
+*
+*	-1 if the value can not be determined.
+*
+**************************************/
+	SSHORT default_char_set_id;
+
+/* What is the default character set for this database?
+   There are three states:
+   1.	There is no entry available in RDB$DATABASE
+	Then - NONE
+   2.   The entry in RDB$DATABASE does not exist in 
+	RDB$CHARACTER_SETS
+	Then - -1 to cause all character set defs to show
+   3.	An entry in RDB$CHARACTER_SETS
+	Then - RDB$CHARACTER_SET_ID
+*/
+	default_char_set_id = 0;
+	FOR FIRST 1 EXT IN RDB$DATABASE
+	    WITH EXT.RDB$CHARACTER_SET_NAME NOT MISSING;
+	
+	    default_char_set_id = -1;
+	
+	    FOR FIRST 1 CHI IN RDB$CHARACTER_SETS
+	    WITH CHI.RDB$CHARACTER_SET_NAME = EXT.RDB$CHARACTER_SET_NAME
+	
+            default_char_set_id = CHI.RDB$CHARACTER_SET_ID;
+	
+	    END_FOR;
+	END_FOR;
+
+	return (default_char_set_id);
+}
+
+
+#ifdef GUI_TOOLS
+int ISQL_extract(
+				 SCHAR * string,
+				 int type, IB_FILE * ipf, IB_FILE * opf, IB_FILE * sf)
+{
+/**************************************
+ *
+ *	I S Q L _ e x t r a c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a extract command from Windows ISQL.   This sets up
+ *	the input and output files, and executes the statement.
+ *
+ **************************************/
+	int ret;
+	isc_tr_handle save_trans_handle;
+
+	Out = opf;
+	Ifp = ipf;
+	Diag = Out;
+	Help = Out;
+	ret = 0;
+	strcpy(Target_db, Db_name);
+
+/* 
+ *  Add command to command history file.  There is no way to perform an
+ *  extract from an input script.  Will defer for now
+ *
+ *  ib_fprintf (sf, "%s%s%s \n\r", string, Term, NEWLINE);
+ *  ib_fflush (sf);
+ */
+
+/* Save off the transaction handle so we can set it to NULL */
+	save_trans_handle = gds__trans;
+	gds__trans = NULL;
+
+	if (type == EXTRACT_VIEW) {
+		ib_fprintf(sf, "/* Extract View %s%s */%s", string, Term, NEWLINE);
+		ib_fflush(sf);
+		ISQL_printf(Out, "/* Extract View ");
+		ISQL_printf(Out, string);
+		ISQL_printf(Out, " */");
+		ISQL_printf(Out, NEWLINE);
+		EXTRACT_list_view(string);
+	}
+	else {
+		if (type == EXTRACT_TABLE) {
+			ib_fprintf(sf, "/* Extract Table %s%s */%s", string, Term,
+					   NEWLINE);
+			ib_fflush(sf);
+			ISQL_printf(Out, "/* Extract Table ");
+			ISQL_printf(Out, string);
+			ISQL_printf(Out, " */");
+			ISQL_printf(Out, NEWLINE);
+		}
+		else {
+			ib_fprintf(sf, "/* Extract Database %s%s */%s", Db_name, Term,
+					   NEWLINE);
+			ib_fflush(sf);
+			ISQL_printf(Out, "/* Extract Database ");
+			ISQL_printf(Out, Db_name);
+			ISQL_printf(Out, " */");
+			ISQL_printf(Out, NEWLINE);
+		}
+		ret = EXTRACT_ddl(type, string);
+	}
+
+	if (ret == FINI_OK)
+		ret = 0;
+
+/*
+ * Commit transaction that was started on behalf of the request 
+ * Don't worry about the error if one occurs it will be network related
+ * and caught later.
+*/
+	if (gds__trans)
+		isc_rollback_transaction(isc_status, &gds__trans);
+
+/* Restore old tranasaction handle */
+	gds__trans = save_trans_handle;
+
+	ISQL_printf(Out, NEWLINE);
+
+	return (ret);
+}
+#endif
+
+
+#ifdef GUI_TOOLS
+void ISQL_build_table_list(
+						   void **tbl_list,
+						   IB_FILE * ipf, IB_FILE * opf, IB_FILE * sf)
+{
+/**************************************
+ *
+ *      I S Q L _ b u i l d _ t a b l e _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Build a list of table names within the connected
+ *      database.
+ *
+ **************************************/
+	isc_tr_handle save_trans_handle;
+
+	Out = opf;
+	Ifp = ipf;
+	Diag = Out;
+	Help = Out;
+
+/* Transaction for all frontend commands */
+	if (DB) {
+		save_trans_handle = gds__trans;
+		gds__trans = NULL;
+		if (isc_start_transaction
+			(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0))
+			ISQL_errmsg(isc_status);
+		else {
+			SHOW_build_table_namelist(tbl_list);
+			/*
+			 * Commit transaction that was started on behalf of the request 
+			 * Don't worry about the error if one occurs it will be network 
+			 * related and caught later.
+			 */
+			isc_rollback_transaction(isc_status, &gds__trans);
+		}
+		gds__trans = save_trans_handle;
+	}
+	return;
+}
+#endif
+#ifdef GUI_TOOLS
+void ISQL_query_database(
+						 SSHORT * db_objects,
+						 IB_FILE * ipf, IB_FILE * opf, IB_FILE * sf)
+{
+/**************************************
+ *
+ *      I S Q L _ q u e r y _ d a t a b a s e 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Query the database to see if it has any 
+ *	 objects defined.
+ *
+ **************************************/
+
+	int tables, views, indices;
+	isc_tr_handle save_trans_handle;
+
+	Out = opf;
+	Ifp = ipf;
+	Diag = Out;
+	Help = Out;
+	tables = 0;
+	views = 0;
+	indices = 0;
+
+	ISQL_get_version(FALSE);
+/*
+ * This should only be executed if we are connected to a V4
+ * database.  This query will return a list of SQL tables and
+ * views that we use to instantiate our extract table/view list
+ * box.
+*/
+
+	if (V4) {
+		/* Transaction for all frontend commands */
+		if (DB) {
+			save_trans_handle = gds__trans;
+			gds__trans = NULL;
+			if (isc_start_transaction(isc_status,
+									  &gds__trans, 1, &DB, 0, (SCHAR *) 0))
+				ISQL_errmsg(isc_status);
+			else {
+				/* Call SHOW_query_database to determine if the DB is empty */
+				SHOW_query_database(&tables, &views, &indices);
+				/*
+				 * Commit transaction that was started on behalf of the request 
+				 * Don't worry about the error if one occurs it will be network 
+				 * related and caught later.
+				 */
+				isc_rollback_transaction(isc_status, &gds__trans);
+				gds__trans = save_trans_handle;
+			}
+		}
+	}
+
+/* Set up the flags for Windows ISQL */
+	if (tables)
+		*db_objects |= TABLE_OBJECTS;
+	else if (*db_objects & TABLE_OBJECTS)
+		*db_objects ^= TABLE_OBJECTS;
+
+	if (views)
+		*db_objects |= VIEW_OBJECTS;
+	else if (*db_objects & VIEW_OBJECTS)
+		*db_objects ^= VIEW_OBJECTS;
+	return;
+}
+#endif
+
+
+#ifdef GUI_TOOLS
+void ISQL_build_view_list(
+						  void **view_list,
+						  IB_FILE * ipf, IB_FILE * opf, IB_FILE * sf)
+{
+/**************************************
+ *
+ *      I S Q L _ b u i l d _ v i e w _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Build a list of view names within the connected
+ *      database.
+ *
+ **************************************/
+	isc_tr_handle save_trans_handle;
+
+	Out = opf;
+	Ifp = ipf;
+	Diag = Out;
+	Help = Out;
+
+/* Transaction for all frontend commands */
+	if (DB) {
+		save_trans_handle = gds__trans;
+		gds__trans = NULL;
+		if (isc_start_transaction
+			(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0))
+			ISQL_errmsg(isc_status);
+		else {
+			SHOW_build_view_namelist(view_list);
+			/*
+			 * Commit transaction that was started on behalf of the request 
+			 * Don't worry about the error if one occurs it will be network 
+			 * related and caught later.
+			 */
+			isc_rollback_transaction(isc_status, &gds__trans);
+		}
+		gds__trans = save_trans_handle;
+	}
+	return;
+}
+#endif
+#ifdef GUI_TOOLS
+int ISQL_create_database(
+						 SCHAR * create_stmt,
+						 SCHAR ** database,
+						 SCHAR * username,
+						 SCHAR * password,
+IB_FILE * ipf, IB_FILE * opf, IB_FILE * sf)
+{
+/**************************************
+ *
+ *      I S Q L _ c r e a t e _ d a t a b a s e 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Set up the global user & password 
+ *	 fields.  Call frontend to create a database
+ *
+ **************************************/
+
+	int ret;
+
+	Out = opf;
+	Ifp = ipf;
+	Diag = Out;
+	Help = Out;
+
+/* add command to command history file */
+	ib_fprintf(sf, "%s%s", create_stmt, NEWLINE);
+	ib_fflush(sf);
+
+/* 
+ * Set up the username and password for the frontend create
+ * database statement.  Uncomment the following lines if you wish to surface
+ * to the user, a create db statement in which the username and password are
+ * not required.  They are remembered from the connect statement.
+ *
+ * strcpy (Password, password);
+ * global_psw  = TRUE;
+ * strcpy (User, username);
+ * global_usr  = TRUE;
+ */
+
+	ret = (int) frontend(create_stmt);
+
+/*
+ * Copy the database name to the ISQL parameter block field pszDatabase.
+ * Check for skip because that signifies that create_db processed the
+ * create database statement.
+*/
+	if (ret == SKIP) {
+		ret = 0;
+		strcpy(*database, Db_name);
+	}
+	else
+		*database[0] = NULL;
+
+/* 
+ * Reset user name and password so that the user has to re-enter valid ones.
+ * Uncomment the following lines if you wish to allow the user to issue the
+ * create db statement without specifing a username and password.
+ * Password[0] = NULL;
+ * global_psw  = FALSE;
+ * User[0]     = NULL;
+ * global_usr  = FALSE;
+ */
+
+	return (ret);
+}
+#endif
+
+
+SSHORT ISQL_get_field_length(TEXT * field_name)
+{
+/**************************************
+ *
+ *	I S Q L _ g e t _ f i e l d _ l e n g t h
+ *
+ **************************************
+ *
+ *	Retrieve character or field length of V4 character types.
+ *
+ **************************************/
+	SSHORT l;
+
+/* Transaction for all frontend commands */
+	if (DB && !gds__trans)
+		if (isc_start_transaction
+			(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0)) {
+			ISQL_errmsg(isc_status);
+			return 0;
+		};
+
+	if (V33) {
+	    FOR FLD IN RDB$FIELDS WITH
+            FLD.RDB$FIELD_NAME EQ field_name
+	
+            l = FLD.RDB$FIELD_LENGTH;
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return 0;
+		END_ERROR;
+	}
+	else {
+	    FOR FLD IN RDB$FIELDS WITH
+            FLD.RDB$FIELD_NAME EQ field_name
+	
+            if (FLD.RDB$CHARACTER_LENGTH.NULL)
+                l = FLD.RDB$FIELD_LENGTH;
+            else 
+                l = FLD.RDB$CHARACTER_LENGTH;
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return 0;
+		END_ERROR;
+	}
+
+	return l;
+}
+
+
+void ISQL_get_character_sets(SSHORT char_set_id,
+							 SSHORT collation,
+							 USHORT collate_only, TEXT * string)
+{
+/**************************************
+ *
+ *	I S Q L _ g e t _ c h a r a c t e r _ s e t s
+ *
+ **************************************
+ *
+ *	Retrieve character set and collation order and format it
+ *
+ **************************************/
+#ifdef	DEV_BUILD
+	BOOLEAN found = FALSE;
+#endif
+
+	string[0] = 0;
+
+/* Transaction for all frontend commands */
+	if (DB && !gds__trans)
+		if (isc_start_transaction
+			(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0)) {
+			ISQL_errmsg(isc_status);
+			return;
+		};
+
+	if (!V33 && collation) {
+	    FOR FIRST 1 COL IN RDB$COLLATIONS CROSS 
+            CST IN RDB$CHARACTER_SETS WITH
+            COL.RDB$CHARACTER_SET_ID EQ CST.RDB$CHARACTER_SET_ID AND
+            COL.RDB$COLLATION_ID EQ collation AND
+            CST.RDB$CHARACTER_SET_ID EQ char_set_id
+            SORTED BY COL.RDB$COLLATION_NAME, CST.RDB$CHARACTER_SET_NAME
+	
+#ifdef DEV_BUILD
+            found = TRUE;
+#endif
+            ISQL_blankterm (CST.RDB$CHARACTER_SET_NAME);
+            ISQL_blankterm (COL.RDB$COLLATION_NAME);
+            ISQL_blankterm (CST.RDB$DEFAULT_COLLATE_NAME);
+            
+            /* Is specified collation the default collation for character set? */
+            if (strcmp (CST.RDB$DEFAULT_COLLATE_NAME, COL.RDB$COLLATION_NAME) == 0) {
+                if (!collate_only)
+                    sprintf (string, " CHARACTER SET %s", CST.RDB$CHARACTER_SET_NAME);
+            }
+            else if (collate_only)
+                sprintf (string, " COLLATE %s", COL.RDB$COLLATION_NAME);
+            else 
+                sprintf (string, " CHARACTER SET %s COLLATE %s",
+                         CST.RDB$CHARACTER_SET_NAME, COL.RDB$COLLATION_NAME);
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return;
+		END_ERROR;
+#ifdef DEV_BUILD
+		if (!found) {
+			sprintf(Print_buffer,
+					"ISQL_get_character_set: charset %d collation %d not found.\n",
+					char_set_id, collation);
+			STDERROUT(Print_buffer, 1);
+		}
+#endif
+	}
+	else if (!V33) {
+	    FOR FIRST 1 CST IN RDB$CHARACTER_SETS WITH
+            CST.RDB$CHARACTER_SET_ID EQ char_set_id
+            SORTED BY CST.RDB$CHARACTER_SET_NAME
+            
+#ifdef DEV_BUILD
+            found = TRUE;
+#endif
+            ISQL_blankterm (CST.RDB$CHARACTER_SET_NAME);
+            
+            sprintf (string, " CHARACTER SET %s", CST.RDB$CHARACTER_SET_NAME);
+        END_FOR
+        ON_ERROR 
+            ISQL_errmsg(isc_status);
+            return;
+        END_ERROR;
+#ifdef DEV_BUILD
+		if (!found) {
+			sprintf(Print_buffer,
+					"ISQL_get_character_set: charset %d not found.\n",
+					char_set_id);
+			STDERROUT(Print_buffer, 1);
+		}
+#endif
+	}
+}
+
+
+void ISQL_get_default_source(TEXT * rel_name,
+							 TEXT * field_name, ISC_QUAD * blob_id)
+{
+/**************************************
+ *
+ *	I S Q L _ g e t _ d e f a u l t _ s o u r c e
+ *
+ **************************************
+ *
+ *	Retrieve the default source of a field.
+ *	Relation_fields takes precedence over fields if both
+ *	are present
+ *
+ *	For a domain, a NULL is passed for rel_name
+ **************************************/
+
+	ISQL_blankterm(field_name);
+
+	*blob_id = isc_blob_null;
+
+/* Transaction for all frontend commands */
+	if (DB && !gds__trans)
+		if (isc_start_transaction
+			(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0)) {
+			ISQL_errmsg(isc_status);
+			return;
+		};
+
+	if (rel_name) {
+		/* This is default for a column of a table */
+	    FOR FLD IN RDB$FIELDS CROSS
+            RFR IN RDB$RELATION_FIELDS WITH
+            RFR.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME AND
+            RFR.RDB$RELATION_NAME EQ rel_name AND
+            FLD.RDB$FIELD_NAME EQ field_name 
+	
+            if (!RFR.RDB$DEFAULT_SOURCE.NULL)
+                *blob_id = RFR.RDB$DEFAULT_SOURCE;
+            else if (!FLD.RDB$DEFAULT_SOURCE.NULL)
+                *blob_id = FLD.RDB$DEFAULT_SOURCE;
+	
+	    END_FOR
+        ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return;
+		END_ERROR;
+	}
+	else {						/* default for a domain */
+
+	    FOR FLD IN RDB$FIELDS WITH 
+            FLD.RDB$FIELD_NAME EQ field_name 
+	
+            if (!FLD.RDB$DEFAULT_SOURCE.NULL)
+                *blob_id = FLD.RDB$DEFAULT_SOURCE;
+	
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return;
+		END_ERROR;
+	}
+}
+
+
+SSHORT ISQL_get_index_segments(TEXT * segs,
+							   TEXT * indexname, BOOLEAN delimited_yes)
+{
+/**************************************
+ *
+ *	I S Q L _ g e t _ i n d e x _ s e g m e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	returns the list of columns in an index.
+ *
+ **************************************/
+	SSHORT n = 0;
+	TEXT SQL_identifier[BUFFER_LENGTH128];
+
+	*segs = '\0';
+
+/* Transaction for all frontend commands */
+	if (DB && !gds__trans)
+		if (isc_start_transaction
+			(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0)) {
+			ISQL_errmsg(isc_status);
+			return 0;
+		};
+
+/* Query to get column names */
+
+	FOR SEG IN RDB$INDEX_SEGMENTS WITH
+        SEG.RDB$INDEX_NAME EQ indexname
+        SORTED BY SEG.RDB$FIELD_POSITION
+	
+	    n++;
+	
+	    /* Place a comma and a blank between each segment column name */
+	
+	    ISQL_blankterm (SEG.RDB$FIELD_NAME);
+	    if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION && delimited_yes) {
+            ISQL_copy_SQL_id (SEG.RDB$FIELD_NAME, &SQL_identifier, DBL_QUOTE);
+        }
+	    else
+            strcpy (SQL_identifier, SEG.RDB$FIELD_NAME);
+	
+	
+	    if (n == 1)
+            sprintf (segs + strlen (segs), "%s", SQL_identifier);
+	    else
+            sprintf (segs + strlen (segs),", %s", SQL_identifier);
+        
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    ROLLBACK;
+        return 0;
+	END_ERROR;
+
+	return (n);
+}
+
+
+BOOLEAN ISQL_get_base_column_null_flag(TEXT * view_name,
+									   SSHORT view_context, TEXT * base_field)
+{
+/**************************************
+ *
+ *	I S Q L _ g e t _ b a s e _ c o l u m n _ n u l l _ f l a g
+ *
+ **************************************
+ *
+ *	Determine if a field on which view column is based
+ *	is nullable. We are passed the view_name
+ *	view_context and the base_field of the view column.
+ *
+ **************************************/
+	BOOLEAN null_flag;
+	BOOLEAN done = FALSE;
+	BOOLEAN error = FALSE;
+	SSHORT save_view_context;
+	BASED_ON RDB$RELATION_FIELDS.RDB$RELATION_NAME save_view_name,
+		save_base_field;
+
+	strcpy(save_view_name, view_name);
+	strcpy(save_base_field, base_field);
+	save_view_context = view_context;
+
+	null_flag = TRUE;
+
+/* Transaction for all frontend commands */
+	if (DB && !gds__trans)
+		if (isc_start_transaction
+			(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0)) {
+			ISQL_errmsg(isc_status);
+			return FALSE;
+		};
+
+/* 
+   Using view_name and view_context get the relation name from 
+   RDB$VIEW_RELATIONS which contains the base_field for this view column. 
+   Get row corresponding to this base field and relation from 
+   rdb$field_relations. This will contain info on field's nullability unless
+   it is a view column itself, in which case repeat this procedure till
+   we get to a "real" column. 
+*/
+
+	while (!done && !error) {
+		ISQL_blankterm(save_view_name);
+		ISQL_blankterm(save_base_field);
+	    FOR FIRST 1 
+            VR IN RDB$VIEW_RELATIONS
+            CROSS NEWRFR IN RDB$RELATION_FIELDS
+	       WITH
+            VR.RDB$VIEW_NAME EQ save_view_name AND
+            VR.RDB$VIEW_CONTEXT EQ save_view_context AND
+            NEWRFR.RDB$RELATION_NAME = VR.RDB$RELATION_NAME AND
+            NEWRFR.RDB$FIELD_NAME = save_base_field
+	
+            if (NEWRFR.RDB$BASE_FIELD.NULL) {
+                if (NEWRFR.RDB$NULL_FLAG == 1)
+                null_flag = FALSE;
+                done = TRUE;
+            }
+            else {
+                strcpy (save_view_name, NEWRFR.RDB$RELATION_NAME);
+                save_view_context = NEWRFR.RDB$VIEW_CONTEXT;
+                strcpy (save_base_field, NEWRFR.RDB$BASE_FIELD); 
+            }   
+	    END_FOR
+		ON_ERROR 
+            error = TRUE;
+		END_ERROR;
+	}
+
+	return null_flag;
+}
+
+BOOLEAN ISQL_get_null_flag(TEXT * rel_name, TEXT * field_name)
+{
+/**************************************
+ *
+ *	I S Q L _ g e t _ n u l l _ f l a g
+ *
+ **************************************
+ *
+ *	Determine if a field has the null flag set.
+ *	Look for either rdb$relation_fields or rdb$fields to be 
+ *	Set to 1 (NOT NULL), then this field cannot be null
+ *	We are passed the relation name and the relation_field name
+ *  	For domains, the relation name is null.
+ **************************************/
+	BOOLEAN null_flag;
+
+	ISQL_blankterm(field_name);
+
+	null_flag = TRUE;
+
+/* Transaction for all frontend commands */
+	if (DB && !gds__trans)
+		if (isc_start_transaction
+			(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0)) {
+			ISQL_errmsg(isc_status);
+			return FALSE;
+		};
+
+	if (rel_name) {
+	    FOR FLD IN RDB$FIELDS CROSS
+            RFR IN RDB$RELATION_FIELDS WITH
+            RFR.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME AND
+            RFR.RDB$RELATION_NAME EQ rel_name AND
+            RFR.RDB$FIELD_NAME EQ field_name 
+            
+            if (FLD.RDB$NULL_FLAG == 1) 
+                null_flag = FALSE;
+            else {
+                
+                /* If RDB$BASE_FIELD is not null then it is a view column */
+                
+                if (RFR.RDB$BASE_FIELD.NULL) {
+                    
+                    /* Simple column. Did user define it not null?  */
+                    
+                    if (RFR.RDB$NULL_FLAG == 1)
+                        null_flag = FALSE;
+                }
+                else
+                    null_flag = ISQL_get_base_column_null_flag (rel_name, 
+                                                                RFR.RDB$VIEW_CONTEXT, RFR.RDB$BASE_FIELD);
+            }
+        
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return null_flag;
+		END_ERROR;
+	}
+	else {
+		/* Domains have only field entries to worry about */
+	    FOR FLD IN RDB$FIELDS WITH
+            FLD.RDB$FIELD_NAME EQ field_name
+	
+            if (FLD.RDB$NULL_FLAG == 1)
+                null_flag = FALSE;
+	
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return null_flag;
+		END_ERROR;
+	}
+
+	return null_flag;
+}
+
+
+#ifdef GUI_TOOLS
+SSHORT ISQL_init(IB_FILE * inputfile, IB_FILE * outputfile)
+{
+/**************************************
+ *
+ *	I S Q L _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open database and initialize input and output files for later
+ *	access from Windows ISQL.
+ *
+ **************************************/
+	SSHORT ret;
+	int lgth;
+
+/* Initialize all pertinent stuff, start db and start transaction, and
+   set up the input and output files */
+
+	Out = outputfile;
+	Ifp = inputfile;
+	Diag = Out;
+	Help = Out;
+
+	Merge_stderr = FALSE;
+	Quiet = FALSE;
+	List = FALSE;
+	Docount = FALSE;
+	Plan = FALSE;
+	Planonly = FALSE;
+	Doblob = 1;
+	Time_display = FALSE;
+	Sqlda_display = FALSE;
+	Abort_flag = 0;
+	Echo = FALSE;
+	Interactive = FALSE;
+	Input_file = FALSE;
+	Pagelength = 20;
+	Stats = FALSE;
+	Autocommit = TRUE;
+	Autofetch = TRUE;
+
+/* Reset global user and password so that the user has o resupply them */
+	Password[0] = NULL;
+	global_psw = FALSE;
+	User[0] = NULL;
+	global_usr = FALSE;
+	Role[0] = NULL;
+	global_role = FALSE;
+	Numbufs[0] = 0;
+	global_numbufs = FALSE;
+
+	lgth = strlen(DEFCHARSET);
+	if (lgth <= MAXCHARSET_LENGTH)
+		strcpy(ISQL_charset, DEFCHARSET);
+	else
+		strncpy(ISQL_charset, DEFCHARSET, MAXCHARSET_LENGTH);
+
+	Termlen = strlen(DEFTERM);
+	if (Termlen <= MAXTERM_LENGTH)
+		strcpy(Term, DEFTERM);
+	else {
+		Termlen = MAXTERM_LENGTH;
+		strncpy(Term, DEFTERM, MAXTERM_LENGTH);
+	}
+
+	D__trans = NULL;
+	M__trans = NULL;
+	gds__trans = NULL;
+	DB = NULL;
+	Stmt = NULL;
+	signal(SIGINT, query_abort);
+
+	sqlda = (XSQLDA *) ISQL_ALLOC((SLONG) (XSQLDA_LENGTH(20)));
+	sqlda->version = SQLDA_VERSION1;
+	sqlda->sqln = 20;
+	sqldap = &sqlda;
+	return 0;
+}
+#endif
+
+
+#ifdef GUI_TOOLS
+void ISQL_reset_settings()
+{
+/**************************************
+ *
+ *	I S Q L _ r e s e t _ s e t t i n g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Called after a script is executed in 
+ *	Windows ISQL to reset the ISQL session 
+ * 	settings.
+ *
+ **************************************/
+	int lgth;
+
+	Merge_stderr = FALSE;
+	Quiet = FALSE;
+	List = FALSE;
+	Stats = FALSE;
+	Autocommit = TRUE;
+	Autofetch = TRUE;
+	Docount = FALSE;
+	Plan = FALSE;
+	Planonly = FALSE;
+	Doblob = 1;
+	Time_display = FALSE;
+	Sqlda_display = FALSE;
+	Echo = FALSE;
+	Pagelength = 20;
+	Abort_flag = 0;
+	Interactive = FALSE;
+	Input_file = FALSE;
+
+	lgth = strlen(DEFCHARSET);
+	if (lgth <= MAXCHARSET_LENGTH)
+		strcpy(ISQL_charset, DEFCHARSET);
+	else
+		strncpy(ISQL_charset, DEFCHARSET, MAXCHARSET_LENGTH);
+
+	Termlen = strlen(DEFTERM);
+	if (Termlen <= MAXTERM_LENGTH)
+		strcpy(Term, DEFTERM);
+	else {
+		Termlen = MAXTERM_LENGTH;
+		strncpy(Term, DEFTERM, MAXTERM_LENGTH);
+	}
+
+/* Reset global user and password so that the user has o resupply them */
+	Password[0] = NULL;
+	global_psw = FALSE;
+	User[0] = NULL;
+	global_usr = FALSE;
+	Role[0] = NULL;
+	global_role = FALSE;
+	Numbufs[0] = 0;
+	global_numbufs = FALSE;
+
+	return;
+}
+#endif
+
+
+void ISQL_disconnect_database( int nQuietMode)
+ {
+/**************************************
+ *
+ *	I S Q L _ d i s c o n n e c t _ d a t a b a s e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disconnect from the current database.  First commit work and then 
+ *	call isc_detach_database to detach from the database and the zero
+ *	out the DB handle.
+ *
+ **************************************/
+	extern SSHORT Quiet;
+
+/* Ignore error msgs during disconnect */
+	Quiet = nQuietMode;
+
+/* If we were in a database, commit before proceding */
+	if (DB && (M__trans || D__trans))
+		end_trans();
+
+/*
+ * Commit transaction that was started on behalf of the request 
+ * Don't worry about the error if one occurs it will be network 
+ * related and caught later.
+ */
+	if (DB && gds__trans)
+		isc_rollback_transaction(isc_status, &gds__trans);
+
+/* If there is  current user statement, free it
+   I think option 2 is the right one (DSQL_drop), but who knows */
+	if (Stmt)
+		isc_dsql_free_statement(isc_status, &Stmt, 2);
+
+/* Detach from old database */
+	isc_detach_database(isc_status, &DB);
+
+/* Enable error msgs */
+	Quiet = FALSE;
+
+/* Zero database handle and transaction handles */
+	Stmt = NULL;
+	DB = NULL;
+	Db_name[0] = '\0';
+	D__trans = NULL;
+	M__trans = NULL;
+	gds__trans = NULL;
+
+	return;
+}
+
+
+BOOLEAN ISQL_is_domain(TEXT * field_name)
+{
+/**************************************
+ *
+ *	I S Q L _ i s _ d o m a i n
+ *
+ **************************************
+ *
+ *	Determine if a field in rdb$fields is a domain,
+ *
+ **************************************/
+	BOOLEAN is_domain = FALSE;
+
+/* Transaction for all frontend commands */
+	if (DB && !gds__trans)
+		if (isc_start_transaction
+			(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0)) {
+			ISQL_errmsg(isc_status);
+			return FALSE;
+		};
+
+	FOR FLD IN RDB$FIELDS WITH
+	    FLD.RDB$FIELD_NAME EQ field_name
+        
+	    if (!(strncmp (FLD.RDB$FIELD_NAME, "RDB$", 4) == 0 &&
+              isdigit (FLD.RDB$FIELD_NAME[4]) &&
+              FLD.RDB$SYSTEM_FLAG != 1))
+            is_domain = TRUE;
+	
+	END_FOR
+    ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return is_domain;
+	END_ERROR;
+
+	return is_domain;
+}
+
+
+void ISQL_make_upper( UCHAR * str)
+{
+/**************************************
+ *
+ *	I S Q L _ m a k e _ u p p e r
+ *
+ **************************************
+ *
+ *	Force the name of a metadata object to
+ *	uppercase.
+ *
+ **************************************/
+	UCHAR *p;
+
+	if (!str)
+		return;
+
+	for (p = str; *p; p++)
+		*p = UPPER7(*p);
+}
+
+
+void ISQL_msg_get(USHORT number,
+				  TEXT * msg,
+				  TEXT * arg1,
+				  TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	I S Q L _ m s g _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file
+ *
+ **************************************/
+
+	gds__msg_format(NULL_PTR, ISQL_MSG_FAC, number, MSG_LENGTH, msg,
+					arg1, arg2, arg3, arg4, arg5);
+}
+
+
+void ISQL_print_validation(IB_FILE * fp,
+						   ISC_QUAD * blobid, SSHORT flag, SLONG * trans)
+{
+/**************************************
+ *
+ *	I S Q L _ p r i n t _ v a l i d a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	This does some minor syntax adjustmet for extracting 
+ *	validation blobs and computed fields.
+ *	if it does not start with the word CHECK
+ *	if this is a computed field blob,look for () or insert them.
+ *	if flag == 0, this is a validation clause,
+ *	if flag == 1, this is a computed field
+ *
+ **************************************/
+	SLONG *blob;
+	USHORT length;
+	TEXT *buffer, *p;
+	SSHORT issql = FALSE, firsttime = TRUE;
+
+/* Don't bother with null blobs */
+
+	if (blobid->isc_quad_high == 0)
+		return;
+
+	buffer = (TEXT *) ISQL_ALLOC(BUFFER_LENGTH512);
+
+	blob = NULL;
+	if (isc_open_blob(isc_status, &DB, &trans, &blob, blobid)) {
+		ISQL_errmsg(isc_status);
+		if (buffer)
+			ISQL_FREE(buffer);
+		return;
+	}
+
+	while (!isc_get_segment(isc_status, &blob, &length,
+							(USHORT) (BUFFER_LENGTH512 - 1),
+							buffer) || isc_status[1] == isc_segment) {
+		buffer[length] = 0;
+		p = buffer;
+		if (flag) {
+			/* computed field SQL syntax correction */
+
+			while (isspace(*p))
+				p++;
+			if (*p == '(')
+				issql = TRUE;
+		}
+		else {
+			/* Validation SQL syntax correction */
+
+			while (isspace(*p))
+				p++;
+			if (!strncmp(p, "check", 5) || !strncmp(p, "CHECK", 5))
+				issql = TRUE;
+		}
+		if (firsttime) {
+			firsttime = FALSE;
+			if (!issql) {
+				sprintf(Print_buffer, "%s ", (flag ? "/* " : "("));
+				ISQL_printf(fp, Print_buffer);
+			}
+		}
+
+		ISQL_printf(fp, buffer);
+	}
+	if (!issql) {
+		sprintf(Print_buffer, "%s", (flag ? " */" : ")"));
+		ISQL_printf(fp, Print_buffer);
+	}
+
+	isc_close_blob(isc_status, &blob);
+
+	if (isc_status[1])
+		ISQL_errmsg(isc_status);
+
+	if (buffer)
+		ISQL_FREE(buffer);
+}
+
+
+void ISQL_printf( IB_FILE * fp, TEXT * buffer)
+{
+/**************************************
+ *
+ *	I S Q L _ p r i n t f
+ *
+ **************************************
+ *
+ *	Centralized printing facility
+ *
+ **************************************/
+#ifndef GUI_TOOLS
+
+	ib_fprintf(fp, "%s", buffer);
+
+#else
+
+	SCHAR *pszStartPos, *psChar, cSavChar;
+
+/* Check buffer to make sure we have data */
+	if (!*buffer)
+		return;
+
+/* Windows ISQL output routine */
+	psChar = buffer;
+	pszStartPos = buffer;
+
+/* If first char is newline then print PC newline */
+	if (*psChar == '\n') {
+		PaintOutputWindow(NEWLINE);
+		ib_fprintf(fp, "%s", "\n");
+		pszStartPos = buffer + 1;
+	}
+	psChar++;
+
+/* Step through output buffer displaying output when a newline is reached */
+	for (; *psChar != NULL; psChar++) {
+		if (*psChar == '\n' && *(psChar - 1) != '\r') {
+			cSavChar = *psChar;
+			*psChar = NULL;
+
+			/* Don't print the Null */
+			if (*pszStartPos) {
+				PaintOutputWindow(pszStartPos);
+				ib_fprintf(fp, "%s", pszStartPos);
+			}
+			PaintOutputWindow(NEWLINE);
+			ib_fprintf(fp, "%s", "\n");
+			*psChar = cSavChar;
+			pszStartPos = psChar + 1;
+		}
+	}
+
+/*
+ * Display the remainder if newlines whre encountered, otherwise display the
+ * whole buffer
+*/
+	if (*pszStartPos) {
+		PaintOutputWindow(pszStartPos);
+		if (!strcmp(pszStartPos, NEWLINE))
+			ib_fprintf(fp, "%s", "\n");
+		else
+			ib_fprintf(fp, "%s", pszStartPos);
+	}
+#endif
+}
+
+
+#ifdef GUI_TOOLS
+int ISQL_sql_statement(TEXT * string,
+					   IB_FILE * ipf, IB_FILE * opf, IB_FILE * sf)
+{
+/**************************************
+ *
+ *	I S Q L _ s q l _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a SQL statement for Windows ISQL.   This sets up
+ *	the input and output files, and executes the statement.
+ *
+ **************************************/
+	int ret;
+
+	Out = opf;
+	Ifp = ipf;
+	Diag = Out;
+	Help = Out;
+
+/* add command to command history file */
+	ib_fprintf(sf, "%s%s", string, NEWLINE);
+	ib_fflush(sf);
+
+	ISQL_printf(Out, string);
+	ISQL_printf(Out, NEWLINE);
+
+	ret = process_statement(string, sqldap);
+	if (ret == SKIP)
+		ret = 0;
+
+	ISQL_printf(Out, NEWLINE);
+
+	return (ret);
+}
+#endif
+
+
+#ifdef	DEV_BUILD
+static SSHORT add_row( TEXT * tabname)
+{
+/**************************************
+ *
+ *	a d d _ r o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allows interactive insert of row, prompting for every column
+ *
+ *	The technique is to describe a select query of select * from the table.
+ *	Then generate an insert with ? in every position, using the same sqlda.
+ *	It will allow edits of blobs, skip arrays and computed fields
+ *
+ *	Parameters:
+ *	tabname -- Name of table to insert into
+ *
+ **************************************/
+	SSHORT n_cols, length, type, nullable, i, j, i_cols, done;
+	SCHAR string[BUFFER_LENGTH120], name[WORDLENGTH],
+		buffer[BUFFER_LENGTH512], infobuf[BUFFER_LENGTH180];
+	SCHAR *insertstring = NULL, *stringvalue = NULL, cmd[5];
+	SSHORT *nullind = NULL, *nullp;
+/* Data types */
+	SSHORT *smallint, dscale;
+	SSHORT *colnumber;
+	SLONG *integer;
+	SINT64 *pi64, n;
+	float *fvalue;
+	double *dvalue, numeric;
+	SCHAR bfile[120];
+	struct tm times;
+	XSQLDA *sqlda = NULL, *isqlda;
+	XSQLVAR *var, *ivar;
+	SCHAR *p;
+	ISC_QUAD *blobid;
+	VARY *vary;
+	TEXT msg[MSG_LENGTH];
+	SLONG res;
+
+	if (!*tabname)
+		return (ERR);
+
+	if (!Interactive)
+		return (ERR);
+
+/* Initialize the time structure */
+	for (p = (SCHAR *) & times, i = sizeof(times); i; p++, i--)
+		*p = 0;
+
+/* There may have been a commit transaction before we got here */
+
+	if (!M__trans)
+		if (isc_start_transaction
+			(isc_status, &M__trans, 1, &DB, 0, (SCHAR *) 0)) {
+			ISQL_errmsg(isc_status);
+			return FAIL;
+		};
+
+/* Start default transaction for prepare */
+	if (!D__trans)
+		if (isc_start_transaction
+			(isc_status, &D__trans, 1, &DB, 0, (SCHAR *) 0)) {
+			ISQL_errmsg(isc_status);
+			return FAIL;
+		};
+
+/* Query to obtain relation information */
+
+	sprintf(string, "SELECT * FROM %s", tabname);
+
+	sqlda = (XSQLDA *) ISQL_ALLOC((SLONG) (XSQLDA_LENGTH(20)));
+	sqlda->version = SQLDA_VERSION1;
+	sqlda->sqln = 20;
+	if (isc_dsql_prepare(isc_status, &D__trans, &Stmt, 0, string,
+						 SQL_dialect, sqlda))
+	 {
+		ISQL_errmsg(isc_status);
+		return (SKIP);
+	}
+
+	n_cols = sqlda->sqld;
+
+/* Reallocate to the proper size if necessary */
+
+	if (sqlda->sqld > sqlda->sqln) {
+		ISQL_FREE(sqlda);
+		sqlda = (XSQLDA *) ISQL_ALLOC((SLONG) (XSQLDA_LENGTH(n_cols)));
+		sqlda->sqld = sqlda->sqln = n_cols;
+
+		/*  We must re-describe the sqlda, no need to re-prepare */
+
+		if (isc_dsql_describe(isc_status, &Stmt, SQL_dialect, sqlda)) {
+			ISQL_errmsg(isc_status);
+			if (sqlda)
+				ISQL_FREE(sqlda);
+			return (FAIL);
+		};
+	}
+
+/* Array for storing select/insert column mapping , colcheck sets it up*/
+	colnumber = (SSHORT *) ISQL_ALLOC((SLONG) (n_cols * sizeof(SSHORT)));
+	col_check(tabname, colnumber);
+
+/* Create the new INSERT statement from the sqlda info */
+
+	insertstring = (SCHAR *) ISQL_ALLOC((SLONG) (40 + 36 * n_cols));
+
+/* There is a question marker for each column known updatable column */
+
+	sprintf(insertstring, "INSERT INTO %s (", tabname);
+
+	for (i = 0, i_cols = 0, var = sqlda->sqlvar; i < n_cols; var++, i++) {
+		/* Skip columns that are computed */
+		if (colnumber[i] != -1) {
+			sprintf(insertstring + strlen(insertstring), "%s,", var->sqlname);
+			i_cols++;
+		}
+	}
+/* Set i_cols to the number of insert columns  */
+	insertstring[strlen(insertstring) - 1] = ')';
+	strcat(insertstring, " VALUES (");
+
+	for (i = 0; i < n_cols; i++) {
+		if (colnumber[i] != -1)
+			strcat(insertstring, " ?,");
+	}
+	/* Patch the last character in the string */
+	insertstring[strlen(insertstring) - 1] = ')';
+
+
+/* Allocate INSERT sqlda and  null indicators */
+
+	isqlda = (XSQLDA *) ISQL_ALLOC((SLONG) (XSQLDA_LENGTH(i_cols)));
+
+/* ISQL_ALLOC doesn't initialize the structure, so init everything
+ * to avoid lots of problems.
+ */
+	for (p = (SCHAR *) isqlda, i = XSQLDA_LENGTH(i_cols); i; p++, i--)
+		*p = 0;
+	isqlda->version = SQLDA_VERSION1;
+	isqlda->sqln = isqlda->sqld = i_cols;
+
+	nullind = (SSHORT *) ISQL_ALLOC((SLONG) (i_cols * sizeof(SSHORT)));
+
+/*
+**  For each column, get the type, and length then prompt for a value
+**  and ib_scanf the resulting string into a buffer of the right type.
+*/
+
+	gds__msg_format(NULL_PTR, ISQL_MSG_FAC, ADD_PROMPT, sizeof(infobuf),
+					infobuf, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR,
+					NULL_PTR);
+	STDERROUT(infobuf, 1);
+
+	done = FALSE;
+	while (!done) {
+		nullp = nullind;
+		for (i = 0, var = sqlda->sqlvar; i < n_cols && !done; var++, i++) {
+			if (colnumber[i] == -1)
+				continue;
+
+			/* SQLDA for INSERT statement might have fewer columns */
+			j = colnumber[i];
+			ivar = &isqlda->sqlvar[j];
+			*ivar = *var;
+			length = var->sqllen;
+			*nullp = 0;
+			ivar->sqlind = nullp++;
+			ivar->sqldata = NULL;
+			strcpy(name, var->sqlname);
+			name[var->sqlname_length] = '\0';
+			type = var->sqltype & ~1;
+			nullable = var->sqltype & 1;
+
+			/* Prompt with the name and read the line */
+
+			if (type == SQL_BLOB) {
+				ISQL_msg_get(BLOB_PROMPT, msg, name, NULL, NULL, NULL, NULL);
+				ISQL_prompt(msg);	/* Blob: %s, type 'edit' or filename to load> */
+			}
+			else if (type == SQL_TIMESTAMP || type == SQL_TYPE_DATE) {
+				ISQL_msg_get(DATE_PROMPT, msg, name, NULL, NULL, NULL, NULL);
+				ISQL_prompt(msg);	/* Enter %s as M/D/Y> */
+			}
+			else {
+				ISQL_msg_get(NAME_PROMPT, msg, name, NULL, NULL, NULL, NULL);
+				ISQL_prompt(msg);	/* Enter %s> */
+			}
+
+			/* On blank line or EOF, break the loop without doing an insert */
+
+			if (!ib_fgets(buffer, BUFFER_LENGTH512, ib_stdin)
+				|| !strlen(buffer)) {
+				done = TRUE;
+				break;
+			}
+
+			length = strlen(buffer);
+			STDERROUT("", 1);
+
+
+			/* Convert first  4 chars to upper case for comparison */
+			strncpy(cmd, buffer, 4);
+			cmd[4] = '\0';
+			ISQL_make_upper(cmd);
+
+			/* If the user writes NULL, put a null in the column */
+
+			if (!strcmp(cmd, "NULL"))
+				*ivar->sqlind = -1;
+			else
+				switch (type) {
+				case SQL_BLOB:
+
+					blobid =
+						(ISC_QUAD *) ISQL_ALLOC((SLONG) sizeof(ISC_QUAD));
+
+					if (!strcmp(cmd, "EDIT"))
+						/* If edit, we edit a temp file */
+					{
+						tmpnam(bfile);
+						gds__edit(bfile, 0);
+						res = BLOB_text_load(blobid, DB, M__trans, bfile);
+						unlink(bfile);
+					}
+					else
+						/* Otherwise just load the named file */
+						/* We can't be sure if it's a TEXT or BINARY file
+						 * being loaded.  As we aren't sure, we'll
+						 * do binary operation - this is NEW data in
+						 * the database, not updating existing info
+						 */
+					{
+						strcpy(bfile, buffer);
+						res = BLOB_load(blobid, DB, M__trans, bfile);
+					}
+
+					if (!res) {
+						STDERROUT("Unable to load file", 1);
+						done = TRUE;
+					}
+
+					ivar->sqldata = (SCHAR *) blobid;
+					break;
+
+				case SQL_FLOAT:
+					fvalue = (float *) ISQL_ALLOC(sizeof(float));
+					if (sscanf(buffer, "%g", fvalue) != 1) {
+						STDERROUT("Input parsing problem", 1);
+						done = TRUE;
+					}
+					ivar->sqldata = (SCHAR *) fvalue;
+					break;
+
+				case SQL_DOUBLE:
+					dvalue = (double *) ISQL_ALLOC(sizeof(double));
+					if (sscanf(buffer, "%lg", dvalue) != 1) {
+						STDERROUT("Input parsing problem", 1);
+						done = TRUE;
+					}
+					ivar->sqldata = (SCHAR *) dvalue;
+					break;
+
+				case SQL_TYPE_TIME:
+					if (3 != sscanf(buffer, "%d:%d:%d", &times.tm_hour,
+									&times.tm_min, &times.tm_sec)) {
+						ISQL_msg_get(TIME_ERR, msg, buffer, NULL, NULL, NULL,
+									 NULL);
+						STDERROUT(msg, 1);	/* Bad date %s\n */
+						done = TRUE;
+					}
+					else {
+						ULONG date[2];
+						stringvalue =
+							(SCHAR *) ISQL_ALLOC((SLONG) (ivar->sqllen + 1));
+						isc_encode_date(&times, date);
+						ivar->sqldata = stringvalue;
+						*(ULONG *) stringvalue = date[1];
+					};
+					break;
+
+				case SQL_TIMESTAMP:
+				case SQL_TYPE_DATE:
+					if (3 != sscanf(buffer, "%d/%d/%d", &times.tm_mon,
+									&times.tm_mday, &times.tm_year)) {
+						ISQL_msg_get(DATE_ERR, msg, buffer, NULL, NULL, NULL,
+									 NULL);
+						STDERROUT(msg, 1);	/* Bad date %s\n */
+						done = TRUE;
+					}
+					else {
+						ULONG date[2];
+						times.tm_mon--;
+						stringvalue =
+							(SCHAR *) ISQL_ALLOC((SLONG) (ivar->sqllen + 1));
+						isc_encode_date(&times, date);
+						ivar->sqldata = stringvalue;
+						((ULONG *) stringvalue)[0] = date[0];
+						if (type == SQL_TIMESTAMP)
+							((ULONG *) stringvalue)[1] = date[1];
+					}
+					break;
+
+				case SQL_TEXT:
+					/* Force all text to varying */
+					ivar->sqltype = SQL_VARYING + nullable;
+
+				case SQL_VARYING:
+
+					vary =
+						(VARY *)
+						ISQL_ALLOC((SLONG) (length + sizeof(USHORT)));
+					vary->vary_length = length;
+					strncpy(vary->vary_string, buffer, length);
+					ivar->sqldata = (SCHAR *) vary;
+					ivar->sqllen = length + sizeof(USHORT);
+					break;
+
+				case SQL_SHORT:
+				case SQL_LONG:
+					if (type == SQL_SHORT) {
+						smallint = (SSHORT *) ISQL_ALLOC(sizeof(SSHORT));
+						ivar->sqldata = (SCHAR *) smallint;
+					}
+					else if (type == SQL_LONG) {
+						integer = (SLONG *) ISQL_ALLOC(sizeof(SLONG));
+						ivar->sqldata = (SCHAR *) integer;
+					}
+
+					/* Fall through from SQL_SHORT and SQL_LONG ... */
+				case SQL_INT64:
+					if (type == SQL_INT64) {
+						pi64 = (SINT64 *) ISQL_ALLOC(sizeof(SINT64));
+						ivar->sqldata = (SCHAR *) pi64;
+					}
+					if ((dscale = var->sqlscale) < 0) {
+						SSHORT lscale = 0;
+						if (get_numeric(buffer, length, &lscale, &n) != TRUE) {
+							STDERROUT("Input parsing problem", 1);
+							done = TRUE;
+						}
+						else {
+							dscale = var->sqlscale - lscale;
+							if (dscale > 0) {
+								TEXT *err_buf[256];
+								sprintf(err_buf,
+										"input error: input scale %d exceeds the field's scale %d",
+										-lscale, -var->sqlscale);
+								STDERROUT(err_buf, 1);
+								done = TRUE;
+							}
+							while (dscale++ < 0)
+								n *= 10;
+						}
+					}
+					/* sscanf assumes an 64-bit integer target */
+					else if (sscanf(buffer, "%" QUADFORMAT "d", &n) != 1) {
+						STDERROUT("Input parsing problem", 1);
+						done = TRUE;
+					}
+					if (type == SQL_INT64)
+						*pi64 = n;
+					else if (type == SQL_SHORT)
+						*smallint = n;
+					else if (type == SQL_LONG)
+						*integer = n;
+					break;
+
+				default:
+					done = TRUE;
+					STDERROUT("Unexpected SQLTYPE in add_row()", 1);
+					break;
+				}
+		}
+		if (!done) {
+			/* having completed all columns, try the insert statement with the sqlda */
+
+			if (isc_dsql_exec_immed2
+				(isc_status, &DB, &M__trans, 0, insertstring, SQL_dialect,
+				 isqlda, (XSQLDA *) 0)) {
+				ISQL_errmsg(isc_status);
+				break;
+			}
+
+			/* Release each of the variables for next time */
+
+			for (ivar = isqlda->sqlvar, i = 0; i < i_cols; i++, ivar++)
+				if (ivar->sqldata)
+					ISQL_FREE(ivar->sqldata);
+		}
+	}
+
+	ISQL_FREE(insertstring);
+	for (ivar = isqlda->sqlvar, i = 0; i < i_cols; i++, ivar++)
+		if (ivar->sqldata)
+			ISQL_FREE(ivar->sqldata);
+	if (sqlda)
+		ISQL_FREE(sqlda);
+	if (isqlda)
+		ISQL_FREE(isqlda);
+	if (colnumber)
+		ISQL_FREE(colnumber);
+	if (nullind)
+		ISQL_FREE(nullind);
+
+	return (SKIP);
+}
+#endif
+
+
+static SSHORT blobedit( TEXT * action, TEXT ** cmd)
+{
+/**************************************
+ *
+ *	b l o b e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit the text blob indicated by blobid
+ *
+ *	Parameters:  cmd -- Array of words interpreted as file name
+ *
+ **************************************/
+	ISC_QUAD blobid;
+	TEXT *p;
+
+	if (!ISQL_dbcheck())
+		return FAIL;
+
+	if (*cmd[1] == 0)
+		return ERR;
+
+	p = cmd[1];
+
+/* Find the high and low values of the blob id */
+
+	sscanf(p, "%x:%x", &blobid.isc_quad_high, &blobid.isc_quad_low);
+
+/* If it isn't an explicit blobedit, then do a dump. Since this is a 
+   user operation, put it on the M__trans handle */
+
+	if (!strcmp(action, "BLOBVIEW"))
+		(void) BLOB_edit(&blobid, DB, M__trans, "blob");
+	else if ((!strcmp(action, "BLOBDUMP")) && (*cmd[2])) {
+		/* If this is a blobdump, make sure there is a file name */
+		/* We can't be sure if the BLOB is TEXT or BINARY data,
+		 * as we're not sure, we'll dump it in BINARY mode
+		 */
+		(void) BLOB_dump(&blobid, DB, M__trans, cmd[2]);
+	}
+	else
+		return ERR;
+
+	return (SKIP);
+}
+
+
+static void col_check( TEXT * tabname, SSHORT * colnumber)
+{
+/**************************************
+ *
+ *	c o l _ c h e c k
+ *
+ **************************************
+ *
+ *	Check for peculiarities not currently revealed by the SQLDA
+ *	colnumber array records the mapping of select columns to insert
+ *	columns which do not have an equivalent for array or computed cols.
+ **************************************/
+	SSHORT i = 0, j = 0;
+
+/* Query to get array info  and computed source not available in the sqlda */
+
+	ISQL_make_upper(tabname);
+
+/* Transaction for all frontend commands */
+	if (DB && !gds__trans)
+		if (isc_start_transaction
+			(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0)) {
+			ISQL_errmsg(isc_status);
+			return;
+		};
+
+	FOR F IN RDB$FIELDS CROSS 
+	    R IN RDB$RELATION_FIELDS WITH
+	    F.RDB$FIELD_NAME = R.RDB$FIELD_SOURCE AND
+	    R.RDB$RELATION_NAME EQ tabname
+	    SORTED BY R.RDB$FIELD_POSITION, R.RDB$FIELD_NAME
+	
+	    if ((!F.RDB$DIMENSIONS.NULL && F.RDB$DIMENSIONS) || (!F.RDB$COMPUTED_BLR.NULL))
+            colnumber [i] = -1;
+	    else
+            colnumber [i] = j++;
+        i++;
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	END_ERROR;
+}
+
+
+static void copy_str(TEXT ** output_str,
+					 TEXT ** input_str,
+					 BOOLEAN * done,
+					 TEXT * str_begin, TEXT * str_end, SSHORT str_flag)
+{
+/**************************************
+ *
+ *	c o p y _ s t r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Copy and/or modify the data in the input buffer and stores it
+ *	into output buffer.
+ *
+ *	For SINGLE_QUOTED_STRING, copy everything from the begining of the
+ *		the input buffer to the end of the string constant
+ *
+ *	For DOUBLE_QUOTED_STRING, copy everything from the begining of the
+ *		the input buffer to the begining of the string constant
+ *
+ *		a. replace double quote string delimted charcter with single
+ *			quote
+ *		b. if '""' is found with in the string constant, removes one 
+ *			extra double quote
+ *		c. if a single quote is found with in the string constant, 
+ *			adds one more single quote
+ *		d. replace ending double quote string delimted charcter with 
+ *			single quote
+ *
+ *	For NO_MORE_STRING, copy everything from the begining of the
+ *		the input buffer to the end of input buffer
+ *
+ *	Input Arguments:
+ *
+ *		1. address of the output buffer
+ *		2. address of the input buffer
+ *		3. address of the end of processing flag
+ *
+ *	Output Arguments:
+ *
+ *		1. pointer to begining of the string constant
+ *		2. pointer to ending   of the string constant
+ *		3. string type
+ *
+ **************************************/
+	SSHORT slen;
+	TEXT *temp_str, *temp_local_stmt_str, *b1;
+
+	temp_str = *output_str;
+	temp_local_stmt_str = *input_str;
+
+	switch (str_flag) {
+	case SINGLE_QUOTED_STRING:
+		slen = str_end - temp_local_stmt_str;
+		strncpy(temp_str, temp_local_stmt_str, slen);
+		*output_str = temp_str + slen;
+		*input_str = str_end;
+		break;
+	case DOUBLE_QUOTED_STRING:
+		slen = str_begin - temp_local_stmt_str;
+		strncpy(temp_str, temp_local_stmt_str, slen);
+		temp_str += slen;
+		*temp_str = SINGLE_QUOTE;
+		temp_str++;
+		b1 = str_begin + 1;
+		while (b1 <= str_end) {
+			*temp_str = *b1;
+			temp_str++;
+			switch (*b1) {
+			case SINGLE_QUOTE:
+				*temp_str = SINGLE_QUOTE;
+				temp_str++;
+				break;
+			case DBL_QUOTE:
+				b1++;
+				if (*b1 != DBL_QUOTE) {
+					temp_str--;
+					*temp_str = SINGLE_QUOTE;
+					temp_str++;
+					b1--;
+				}
+				break;
+			default:
+				break;
+			}
+			b1++;
+		}
+		*output_str = temp_str;
+		*input_str = b1;
+		break;
+	case NO_MORE_STRING:
+		slen = strlen(temp_local_stmt_str);
+		strncpy(temp_str, temp_local_stmt_str, slen);
+		temp_str += slen;
+		*temp_str = '\0';
+		*done = TRUE;
+		*output_str = temp_str;
+		*input_str = temp_local_stmt_str + slen;
+		break;
+	default:
+		break;
+	}
+}
+
+
+#ifndef GUI_TOOLS
+#ifdef	DEV_BUILD
+static SSHORT copy_table( TEXT * source, TEXT * destination, TEXT * otherdb)
+{
+/**************************************
+ *
+ *	c o p y _ t a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new table based on an existing one.
+ *  
+ *	Parameters:  source -- name of source table
+ *		     destination == name of newly created table
+ *  
+ **************************************/
+	IB_FILE *holdout;
+	TEXT *p, ftmp[128];
+	TEXT errbuf[MSG_LENGTH];
+	TEXT cmd[512];
+	TEXT *altdb;
+	SSHORT domain_flag = FALSE;
+
+/* Call list_table with a temporary file, then hand that file to a
+   new version of isql */
+
+	holdout = Out;
+
+/* If there is an alternate database, extract the domains */
+
+	if (*otherdb)
+		domain_flag = TRUE;
+
+#ifndef __BORLANDC__
+	Out = (IB_FILE *) gds__temp_file(TRUE, SCRATCH, ftmp);
+#else
+/* When using Borland C, routine gds__temp_file is in a DLL which maps
+   a set of I/O handles that are different from the ones in the ISQL
+   process!  So we will get a temp name on our own.  [Note that
+   gds__temp_file returns -1 on error, not 0] */
+
+	p = tempnam(NULL, SCRATCH);
+	strcpy(ftmp, p);
+	free(p);
+	Out = ib_fopen(ftmp, "w+");
+	if (!Out)
+		Out = (IB_FILE *) - 1;
+#endif
+	if (Out == (IB_FILE *) - 1) {
+		/* If we can't open a temp file then bail */
+
+		gds__msg_format(NULL_PTR, ISQL_MSG_FAC, FILE_OPEN_ERR, sizeof(errbuf),
+						errbuf, ftmp, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+		STDERROUT(errbuf, 1);
+		Exit_value = FINI_ERROR;
+		return END;
+	}
+
+	ISQL_make_upper(source);
+	if (EXTRACT_list_table(source, destination, domain_flag, -1)) {
+		gds__msg_format(NULL_PTR, ISQL_MSG_FAC, NOT_FOUND, sizeof(errbuf),
+						errbuf, source, NULL_PTR, NULL_PTR, NULL_PTR,
+						NULL_PTR);
+		STDERROUT(errbuf, 1);
+		(void) ib_fclose(Out);
+	}
+	else {
+		(void) ib_fclose(Out);
+
+		/* easy to make a copy in another database */
+
+		if (*otherdb)
+			altdb = otherdb;
+		else
+			altdb = Db_name;
+		sprintf(cmd, "isql -q %s -i %s", altdb, ftmp);
+		if (system(cmd)) {
+			gds__msg_format(NULL_PTR, ISQL_MSG_FAC, COPY_ERR, sizeof(errbuf),
+							errbuf, destination, altdb, NULL_PTR, NULL_PTR,
+							NULL_PTR);
+			STDERROUT(errbuf, 1);
+		}
+	}
+
+	(void) unlink(ftmp);
+	Out = holdout;
+
+	return (SKIP);
+}
+#endif /* DEV_BUILD */
+#endif /* GUI_TOOLS */
+
+
+static SSHORT create_db( TEXT * statement, TEXT * d_name)
+{
+/**************************************
+ *
+ *	c r e a t e _ d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Intercept create database commands to
+ *	adjust the DB and transaction handles
+ *  
+ *	Parameters:  statement == the entire statement for processing.
+ *
+ * Note: SQL ROLE settings are ignored - the newly created database
+ *	will not have any roles defined in it.
+ *  
+ **************************************/
+	TEXT *local_statement, *new_local_statement, *temp_str, *k, *l, *q, *p;
+	TEXT *b1 = NULL, *b2 = NULL, *temp_local_stmt_str = NULL;
+	TEXT *str_begin = NULL, *str_end = NULL;
+	SSHORT arglength;
+	SSHORT slen, ret, cnt = 0;
+	TEXT *usr, *psw, quote = DBL_QUOTE;
+	BOOLEAN fl_nm_del_by_dq = FALSE;	/* file name delimited by double quote */
+	BOOLEAN done = FALSE, done1 = FALSE;
+	SSHORT str_flag;
+	TEXT errbuf[MSG_LENGTH];
+
+	new_local_statement = k = l = q = p = NULL;
+	ret = SKIP;
+
+/* Disconnect from the database and cleanup */
+	ISQL_disconnect_database(FALSE);
+
+	arglength = strlen(statement) + strlen(User) + strlen(Password) + 24;
+	if (*ISQL_charset && strcmp(ISQL_charset, DEFCHARSET))
+		arglength += strlen(ISQL_charset) + strlen(" SET NAMES \'\' ");
+	local_statement = (TEXT *) ISQL_ALLOC((SLONG) (arglength + 1));
+	if (!local_statement)
+		return (FAIL);
+	usr = (TEXT *) ISQL_ALLOC(USER_LENGTH);
+	if (!usr) {
+		ISQL_FREE(local_statement);
+		return (FAIL);
+	}
+	psw = (TEXT *) ISQL_ALLOC(PASSWORD_LENGTH);
+	if (!psw) {
+		ISQL_FREE(local_statement);
+		ISQL_FREE(usr);
+		return (FAIL);
+	}
+
+	strcpy(local_statement, statement);
+
+/* If there is a user parameter, we will set it into the create stmt. */
+#if defined (WIN95) && !defined(GUI_TOOLS)
+	if (!fAnsiCP || global_usr || global_psw ||
+#else
+	if (global_usr || global_psw ||
+#endif
+		(*ISQL_charset && strcmp(ISQL_charset, DEFCHARSET))) {
+		strip_quotes(User, usr);
+		strip_quotes(Password, psw);
+		/*
+		 *  Look for the quotes on the database name and find the close quotes.
+		 * Use '"' first, if not successful try '''.
+		 */
+		q = strchr(statement, quote);
+		if (!q) {
+			quote = SINGLE_QUOTE;
+			q = strchr(statement, quote);
+		}
+
+		if (q) {
+			/* Set quote to match open quote */
+			quote = *q;
+			q++;
+			p = strchr(q, quote);
+			if (p) {
+#if defined (WIN95) && !defined (GUI_TOOLS)
+				/* If we are not using the ANSI codepage then we need to
+				 * translate the database name to ANSI from OEM.
+				 * We will translate (p - q) characters from (q) into
+				 * the proper offset in local_statement.
+				 */
+				if (!fAnsiCP)
+					OemToAnsiBuff(q, local_statement + (q - statement),
+								  p - q);
+#endif
+				p++;
+				slen = (SSHORT) (p - statement);
+				local_statement[slen] = '\0';
+				if (SQL_dialect == 1) {
+					if (global_usr)
+						sprintf(local_statement + strlen(local_statement),
+								" USER \'%s\' ", usr);
+					if (global_psw)
+						sprintf(local_statement + strlen(local_statement),
+								" PASSWORD \'%s\' ", psw);
+					if (*ISQL_charset && strcmp(ISQL_charset, DEFCHARSET))
+						sprintf(local_statement + strlen(local_statement),
+								" SET NAMES \'%s\' ", ISQL_charset);
+					sprintf(local_statement + strlen(local_statement), "%s",
+							p);
+				}
+			}
+		}
+	}
+
+	if ((SQL_dialect == 0) || (SQL_dialect > 1)) {
+		q = strchr(statement, SINGLE_QUOTE);
+		while (q) {
+			cnt++;
+			l = q + 1;
+			q = strchr(l, SINGLE_QUOTE);
+		}
+
+		if (cnt > 0) {
+			arglength = strlen(statement) +
+				strlen(User) + strlen(Password) + 24 + 2 * cnt;
+
+			if (*ISQL_charset && strcmp(ISQL_charset, DEFCHARSET))
+				arglength +=
+					strlen(ISQL_charset) + strlen(" SET NAMES \'\' ");
+			new_local_statement =
+				(TEXT *) ISQL_ALLOC((SLONG) (arglength + 1));
+
+			if (!new_local_statement)
+				return (FAIL);
+
+		}
+
+		if (new_local_statement)
+			temp_str = new_local_statement;
+		else
+			temp_str = local_statement;
+
+		temp_local_stmt_str = local_statement;
+		while (!done) {
+			str_begin = str_end = NULL;
+			str_flag = INIT_STR_FLAG;
+			get_str(temp_local_stmt_str, &str_begin, &str_end, &str_flag);
+			if (str_flag == INCOMPLETE_STRING) {
+				gds__msg_format(NULL_PTR, ISQL_MSG_FAC, INCOMPLETE_STR,
+								sizeof(errbuf), errbuf,
+								"create database statement",
+								NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+				STDERROUT(errbuf, 1);
+				return (FAIL);
+			}
+			copy_str(&temp_str, &temp_local_stmt_str, &done,
+					 str_begin, str_end, str_flag);
+		}
+
+		if (new_local_statement)
+			temp_str = new_local_statement;
+		else
+			temp_str = local_statement;
+
+		if (global_usr)
+			sprintf(temp_str + strlen(temp_str), " USER \'%s\' ", usr);
+
+		if (global_psw)
+			sprintf(temp_str + strlen(temp_str), " PASSWORD \'%s\' ", psw);
+
+		if (*ISQL_charset && strcmp(ISQL_charset, DEFCHARSET))
+			sprintf(temp_str + strlen(temp_str),
+					" SET NAMES \'%s\' ", ISQL_charset);
+
+		if (new_local_statement)
+			temp_str = new_local_statement + strlen(new_local_statement);
+		else
+			temp_str = local_statement + strlen(local_statement);
+
+		if (p && strlen(p) > 0) {
+			temp_local_stmt_str = p;
+			done = FALSE;
+			while (!done) {
+				str_begin = str_end = NULL;
+				str_flag = INIT_STR_FLAG;
+				get_str(temp_local_stmt_str, &str_begin, &str_end, &str_flag);
+				if (str_flag == INCOMPLETE_STRING) {
+					gds__msg_format(NULL_PTR, ISQL_MSG_FAC, INCOMPLETE_STR,
+									sizeof(errbuf), errbuf,
+									"create database statement",
+									NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+					STDERROUT(errbuf, 1);
+					return (FAIL);
+				}
+				copy_str(&temp_str, &temp_local_stmt_str, &done,
+						 str_begin, str_end, str_flag);
+			}
+		}
+
+		if (new_local_statement)
+			local_statement = new_local_statement;
+	}
+
+	/* execute the create statement 
+	 * If the SQL_dialect is not set or set to 2, create the database
+	 * as a dialect 3 database.
+	 */
+	if (SQL_dialect == 0 || SQL_dialect == SQL_DIALECT_V6_TRANSITION) {
+		if (isc_dsql_execute_immediate(isc_status, &DB, &M__trans, 0,
+									   local_statement, requested_SQL_dialect,
+									   NULL)) {
+			ISQL_errmsg(isc_status);
+			if (!DB)
+				ret = FAIL;
+		}
+	}
+	else {
+		if (isc_dsql_execute_immediate(isc_status, &DB, &M__trans, 0,
+									   local_statement, SQL_dialect, NULL)) {
+			ISQL_errmsg(isc_status);
+			if (!DB)
+				ret = FAIL;
+		}
+	}
+
+	if (DB) {
+		/* Load Db_name with some value to show a successful attach */
+
+		strip_quotes(d_name, Db_name);
+
+		ISQL_get_version(TRUE);
+
+		/* Start the user transaction */
+
+		if (!M__trans) {
+			if (isc_start_transaction
+				(isc_status, &M__trans, 1, &DB, 0, (SCHAR *) 0))
+				ISQL_errmsg(isc_status);
+			if (D__trans)
+				COMMIT_TRANS(&D__trans);
+			if (isc_start_transaction(isc_status, &D__trans, 1, &DB,
+									  (V4) ? 5 : 0,
+									  (V4) ? default_tpb : NULL))
+					ISQL_errmsg(isc_status);
+		}
+
+		/* Allocate a new user statement for ths database */
+
+		if (isc_dsql_allocate_statement(isc_status, &DB, &Stmt)) {
+			ISQL_errmsg(isc_status);
+			ret = ERR;
+		}
+	}
+
+	if (local_statement)
+		ISQL_FREE(local_statement);
+	if (psw)
+		ISQL_FREE(psw);
+	if (usr)
+		ISQL_FREE(usr);
+	return (ret);
+}
+
+
+static void do_isql(void)
+{
+/**************************************
+ *
+ *	d o _ i s q l 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process incoming SQL statements
+ *
+ **************************************/
+	TEXT *p;
+	TEXT *statement = NULL;
+	TEXT *errbuf;
+	USHORT bufsize = 0;
+	SSHORT ret;
+	BOOLEAN done = FALSE;
+
+	errbuf = (TEXT *) ISQL_ALLOC((SLONG) MSG_LENGTH);
+	if (!errbuf)
+		return;
+
+/* Initialized user transactions */
+
+	M__trans = NULL;
+
+/* File used to edit sessions */
+
+#ifndef __BORLANDC__
+	Ofp = (IB_FILE *) gds__temp_file(TRUE, SCRATCH, Tmpfile);
+#else
+/* When using Borland C, routine gds__temp_file is in a DLL which maps
+   a set of I/O handles that are different from the ones in the ISQL
+   process!  So we will get a temp name on our own.  [Note that
+   gds__temp_file returns -1 on error, not 0] */
+
+	p = tempnam(NULL, SCRATCH);
+	strcpy(Tmpfile, p);
+	free(p);
+	Ofp = ib_fopen(Tmpfile, "w+");
+	if (!Ofp)
+		Ofp = (IB_FILE *) - 1;
+#endif
+	if (Ofp == (IB_FILE *) - 1) {
+		/* If we can't open a temp file then bail */
+
+		gds__msg_format(NULL_PTR, ISQL_MSG_FAC, FILE_OPEN_ERR, MSG_LENGTH,
+						errbuf, Tmpfile, NULL_PTR, NULL_PTR, NULL_PTR,
+						NULL_PTR);
+		STDERROUT(errbuf, 1);
+		Exit_value = FINI_ERROR;
+		exit(Exit_value);
+	}
+
+/* Open database and start tansaction */
+
+	signal(SIGINT, query_abort);
+
+/* 
+ * We will not excute this for now on WINDOWS. We are not prompting for 
+ * a database name, username password.  A connect statement has to be in
+ * the file containing the script.
+ */
+
+#ifndef GUI_TOOLS
+	(void) newdb(Db_name, User, Password, Numbufs, Role);
+
+/* If that failed or no Dbname was specified */
+
+	(void) ISQL_dbcheck();
+#endif
+
+/* Set up SQLDA for SELECTs, allow up to 20 fields to be selected.
+**  If we subsequently encounter a query with more columns, we
+**  will realloc the sqlda as needed
+*/
+
+	sqlda = (XSQLDA *) ISQL_ALLOC((SLONG) (XSQLDA_LENGTH(20)));
+	sqlda->version = SQLDA_VERSION1;
+	sqlda->sqln = 20;
+
+/* The sqldap is the handle containing the current sqlda pointer */
+
+	sqldap = &sqlda;
+
+/*
+**  read statements and process them from Ifp until the ret
+**  code tells us we are done
+*/
+
+	while (!done) {
+
+		if (Abort_flag) {
+			if (D__trans)
+				isc_rollback_transaction(isc_status, &D__trans);
+			if (M__trans)
+				isc_rollback_transaction(isc_status, &M__trans);
+			if (gds__trans)
+				isc_rollback_transaction(isc_status, &gds__trans);
+			/*
+			 * If there is  current user statement, free it
+			 * option 2 does the drop
+			 */
+			if (Stmt)
+				isc_dsql_free_statement(isc_status, &Stmt, 2);
+			if (DB)
+				isc_detach_database(isc_status, &DB);
+			break;
+		}
+
+		ret = get_statement(&statement, &bufsize, sql_prompt);
+
+		/* If there is no database yet, remind us of the need to connect */
+
+		/* But don't execute the statement */
+
+		if (!Db_name[0] && (ret == CONT)) {
+			if (!Quiet) {
+				gds__msg_format(NULL_PTR, ISQL_MSG_FAC, NO_DB, MSG_LENGTH,
+								errbuf, NULL_PTR, NULL_PTR, NULL_PTR,
+								NULL_PTR, NULL_PTR);
+				STDERROUT(errbuf, 1);
+#ifdef GUI_TOOLS
+				/*
+				 * This will force an extra carriage return line feed for better
+				 * formatting of errors when executing a script through windows
+				 * ISQL.  The Merge_stderr flag is only set when scripts are
+				 * running.
+				 */
+				if (Merge_stderr)
+					ISQL_printf(Out, NEWLINE);
+#endif
+			}
+			ret = SKIP;
+		}
+
+		switch (ret) {
+		case CONT:
+			(void) process_statement(statement, sqldap);
+			Continuation = FALSE;
+			break;
+
+		case END:
+		case EOF:
+		case EXIT:
+			/* Quit upon EOF from top level file pointer */
+#ifdef GUI_TOOLS
+			Quiet = TRUE;
+#endif
+			if ((ret == EOF) && Continuation) {
+				gds__msg_format(NULL_PTR, ISQL_MSG_FAC, UNEXPECTED_EOF,
+								MSG_LENGTH, errbuf, NULL_PTR, NULL_PTR,
+								NULL_PTR, NULL_PTR, NULL_PTR);
+#ifndef GUI_TOOLS
+				STDERROUT(errbuf, 1);
+#else
+				buffer_error_msg(errbuf, WISQL_SHORTMSG);
+#endif
+				Exit_value = FINI_ERROR;
+			}
+
+			if (Abort_flag) {
+				if (D__trans)
+					isc_rollback_transaction(isc_status, &D__trans);
+				if (M__trans)
+					isc_rollback_transaction(isc_status, &M__trans);
+				if (gds__trans)
+					isc_rollback_transaction(isc_status, &gds__trans);
+			}
+			else {
+				if (D__trans)
+					COMMIT_TRANS(&D__trans);
+				if (M__trans)
+					COMMIT_TRANS(&M__trans);
+				if (gds__trans)
+					COMMIT_TRANS(&gds__trans);
+			}
+			/* 
+			 * If there is  current user statement, free it
+			 * I think option 2 is the right one (DSQL_drop), but who knows
+			 */
+			if (Stmt)
+				isc_dsql_free_statement(isc_status, &Stmt, 2);
+			isc_detach_database(isc_status, &DB);
+#ifdef GUI_TOOLS
+			ib_fclose(Out);
+			ib_fclose(Ifp);
+#endif
+			done = TRUE;
+			break;
+
+		case BACKOUT:
+#ifdef GUI_TOOLS
+			Quiet = TRUE;
+#endif
+			if (D__trans)
+				isc_rollback_transaction(isc_status, &D__trans);
+			if (M__trans)
+				isc_rollback_transaction(isc_status, &M__trans);
+			if (gds__trans)
+				isc_rollback_transaction(isc_status, &gds__trans);
+			/* 
+			 * If there is  current user statement, free it
+			 * I think option 2 is the right one (DSQL_drop), but who knows
+			 */
+			if (Stmt)
+				isc_dsql_free_statement(isc_status, &Stmt, 2);
+			isc_detach_database(isc_status, &DB);
+#ifdef GUI_TOOLS
+			ib_fclose(Out);
+			ib_fclose(Ifp);
+#endif
+			done = TRUE;
+			break;
+
+		case EXTRACT:
+		case EXTRACTALL:
+		default:
+			/* assert (FALSE);  -- removed as finds too many problems */
+		case ERR:
+		case FAIL:
+		case SKIP:
+			break;
+		}
+	}
+
+	Stmt = NULL;
+	DB = NULL;
+	Db_name[0] = '\0';
+	D__trans = NULL;
+	M__trans = NULL;
+	gds__trans = NULL;
+
+/* Should have a valid Temp file pointer */
+	assert(Ofp != (IB_FILE *) - 1)
+		ib_fclose(Ofp);
+	unlink(Tmpfile);
+
+	if (errbuf)
+		ISQL_FREE(errbuf);
+	if (sqlda)
+		ISQL_FREE(sqlda);
+	if (statement)
+		ISQL_FREE(statement);
+	if (Filelist)
+		ISQL_FREE(Filelist);
+	while (Cols) {
+		COLLIST *p;
+		p = Cols;
+		Cols = Cols->collist_next;
+		ISQL_FREE(p);
+	}
+	if (Exit_value == FINI_ERROR)
+		exit(Exit_value);
+}
+
+
+static SSHORT drop_db(void)
+{
+/**************************************
+ *
+ *	d r o p _ d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop the current database
+ *  
+ **************************************/
+	TEXT *errbuf;
+
+	if (Db_name[0]) {
+		if (!V4) {
+			errbuf = (TEXT *) ISQL_ALLOC((SLONG) MSG_LENGTH);
+			if (errbuf) {
+				gds__msg_format(NULL_PTR, ISQL_MSG_FAC, SERVER_TOO_OLD,
+								MSG_LENGTH, errbuf, NULL_PTR, NULL_PTR,
+								NULL_PTR, NULL_PTR, NULL_PTR);
+				STDERROUT(errbuf, 1);
+				ISQL_FREE(errbuf);
+			}
+			return (FAIL);
+		}
+		if (isc_drop_database(isc_status, &DB)) {
+			ISQL_errmsg(isc_status);
+			return (FAIL);
+		}
+
+		/* If error occured and drop database got aborted */
+		if (DB)
+			return (FAIL);
+	}
+	else
+		return (FAIL);
+
+/* The database got dropped with or without errors */
+
+	M__trans = NULL;
+	gds__trans = NULL;
+	Stmt = NULL;
+	D__trans = NULL;
+
+/* Zero database name */
+
+	Db_name[0] = '\0';
+	DB = NULL;
+
+	return (SKIP);
+}
+
+
+static SSHORT edit( TEXT ** cmd)
+{
+/**************************************
+ *
+ *	e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit the current file or named file
+ *
+ *	Parameters:  cmd -- Array of words interpreted as file name
+ *	The result of calling this is to point the global input file 
+ *	pointer, Ifp, to the named file after editing or the tmp file.
+ *
+ **************************************/
+	TEXT *errbuf;
+	TEXT *file;
+	IB_FILE *fp;
+	INDEV current, flist;
+	TEXT path[MAXPATHLEN];
+
+	errbuf = (TEXT *) ISQL_ALLOC((SLONG) MSG_LENGTH);
+	if (!errbuf)
+		return (ERR);
+
+/* Local pointer to global list of input files */
+
+	flist = Filelist;
+
+/* Set up editing command for shell */
+
+	file = cmd[1];
+
+/* If there is a file name specified, try to open it */
+
+	if (*file) {
+		strip_quotes(file, path);
+		if (fp = ib_fopen(path, "r")) {
+			/* Push the current ifp on the indev */
+
+			current = (INDEV) ISQL_ALLOC((SLONG) sizeof(struct indev));
+			current->indev_fpointer = Ifp;
+			current->indev_next = NULL;
+			if (!Filelist)
+				Filelist = current;
+			else {
+				while (flist->indev_next)
+					flist = flist->indev_next;
+				flist->indev_next = current;
+			}
+			Ifp = fp;
+			gds__edit(file, 0);
+		}
+		else {
+			gds__msg_format(NULL_PTR, ISQL_MSG_FAC, FILE_OPEN_ERR, MSG_LENGTH,
+							errbuf, file, NULL_PTR, NULL_PTR, NULL_PTR,
+							NULL_PTR);
+			STDERROUT(errbuf, 1);
+		}
+	}
+	else {
+		/* No file given, edit the temp file */
+
+		current = (INDEV) ISQL_ALLOC((SLONG) sizeof(struct indev));
+		current->indev_fpointer = Ifp;
+		current->indev_next = NULL;
+		if (!Filelist)
+			Filelist = current;
+		else {
+			while (flist->indev_next)
+				flist = flist->indev_next;
+			flist->indev_next = current;
+		}
+		/* Close the file, edit it, then reopen and read from the top */
+		ib_fclose(Ofp);
+		gds__edit(Tmpfile, 0);
+		Ofp = ib_fopen(Tmpfile, "r+");
+		Ifp = Ofp;
+	}
+
+	if (errbuf)
+		ISQL_FREE(errbuf);
+
+	return (SKIP);
+}
+
+
+static int end_trans(void)
+{
+/**************************************
+ *
+ *	e n d _ t r a n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prompt the interactive user if there is an extant transaction and
+ *	either commit or rollback 
+ *
+ *	Called by newtrans, createdb, newdb;
+ *	Returns success or failure.
+ *
+ **************************************/
+	TEXT buffer[BUFFER_LENGTH80], infobuf[BUFFER_LENGTH60];
+	int ret;
+
+	ret = CONT;
+/* Give option of committing or rolling back before proceding unless
+**  the last command was a commit or rollback 
+*/
+
+	if (M__trans) {
+		if (Interactive) {
+			gds__msg_format(NULL_PTR, ISQL_MSG_FAC, COMMIT_PROMPT,
+							sizeof(infobuf), infobuf, NULL_PTR, NULL_PTR,
+							NULL_PTR, NULL_PTR, NULL_PTR);
+			ISQL_prompt(infobuf);
+			(void) ib_fgets(buffer, BUFFER_LENGTH80, ib_stdin);
+			if (isyesno(buffer)) {	/* check for Yes answer */
+				gds__msg_format(NULL_PTR, ISQL_MSG_FAC, COMMIT_MSG,
+								sizeof(infobuf), infobuf, NULL_PTR, NULL_PTR,
+								NULL_PTR, NULL_PTR, NULL_PTR);
+				STDERROUT(infobuf, 1);
+				if (DB && M__trans) {
+					if (isc_commit_transaction(isc_status, &M__trans)) {
+						/* Commit failed, so roll back anyway */
+						ISQL_errmsg(isc_status);
+						ret = FAIL;
+					}
+				}
+			}
+			else {
+				gds__msg_format(NULL_PTR, ISQL_MSG_FAC, ROLLBACK_MSG,
+								sizeof(infobuf), infobuf, NULL_PTR, NULL_PTR,
+								NULL_PTR, NULL_PTR, NULL_PTR);
+				STDERROUT(infobuf, 1);
+				if (DB && M__trans) {
+					if (isc_rollback_transaction(isc_status, &M__trans)) {
+						ISQL_errmsg(isc_status);
+						ret = FAIL;
+					}
+				}
+			}
+		}
+		else {					/* No answer, just roll back by default */
+
+			if (DB && M__trans) {
+#ifndef GUI_TOOLS
+/* For WISQL, we keep track of whether a commit is needed by setting a flag in the ISQLPB
+ * structure.  This flag is set whenever a sql command is entered in the SQL input area or
+ * if the user uses the create database dialog.  Because of this, this should only show up if 
+ * the user connects and then disconnects or if the user enters a SET TRANSACTION stat without 
+ * ever doing anything that would cause changes to the dictionary.
+*/
+				gds__msg_format(NULL_PTR,
+								ISQL_MSG_FAC,
+								ROLLBACK_MSG, sizeof(infobuf),
+								infobuf,
+								NULL_PTR,
+								NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+				STDERROUT(infobuf, 1);
+#endif
+				if (isc_rollback_transaction(isc_status, &M__trans)) {
+					ISQL_errmsg(isc_status);
+					ret = FAIL;
+				}
+			}
+		}
+	}
+
+/* Commit background transaction */
+
+
+	if (DB && D__trans) {
+		if (isc_commit_transaction(isc_status, &D__trans)) {
+			ISQL_errmsg(isc_status);
+			ret = FAIL;
+		}
+	}
+	return (ret);
+}
+
+
+static SSHORT escape( TEXT * cmd)
+{
+/**************************************
+ *
+ *	e s c a p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Permit a shell escape to system call
+ *
+ *	Parameters:  cmd -- The command string with SHELL 
+ *
+ **************************************/
+	TEXT *shellcmd;
+
+#ifdef GUI_TOOLS
+	return (SKIP);
+#else
+
+/* Advance past the shell */
+
+	shellcmd = cmd;
+
+/* Search past the 'shell' keyword */
+	shellcmd += strlen("shell");
+
+/* eat whitespace at beginning of command */
+	while (*shellcmd && isspace(*shellcmd))
+		shellcmd++;
+
+/* If no command given just spawn a shell */
+
+	if (!*shellcmd) {
+#ifdef WIN_NT
+		if (system("%ComSpec%"))
+			return FAIL;
+#else
+		if (system("$SHELL"))
+			return FAIL;
+#endif
+	}
+	else {
+		if (system(shellcmd))
+			return FAIL;
+	}
+
+	return (SKIP);
+#endif
+}
+
+
+
+static SSHORT frontend( TEXT * statement)
+{
+/**************************************
+ *
+ *	f r o n t e n d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle any frontend commands that start with
+ *	show or set converting the string into an
+ *	array of words parms, with MAX_TERMS words only.
+ *
+ *	Parameters: statement is the string typed by the user 
+ *
+ **************************************/
+	TEXT *p, *a, *cmd, *q;
+	TEXT *parms[MAX_TERMS], *lparms[MAX_TERMS], *buffer, *errbuf;
+	SSHORT lgth, i, j, length;
+	SSHORT ret = SKIP, slen;
+	TEXT *psw, *usr, *numbufs, *sql_role_nm;
+	TEXT end_quote;
+	SCHAR *dialect_str;
+	USHORT old_SQL_dialect;
+	BOOLEAN bad_dialect = FALSE, print_warning = FALSE, delimited_done =
+		FALSE, role_found = FALSE;
+	TEXT bad_dialect_buf[512];
+
+	buffer = (TEXT *) ISQL_ALLOC((SLONG) (BUFFER_LENGTH256));
+	if (!buffer)
+		return (ERR);
+	errbuf = (TEXT *) ISQL_ALLOC((SLONG) MSG_LENGTH);
+	if (!errbuf) {
+		ISQL_FREE(buffer);
+		return (ERR);
+	}
+
+/* Store the first NUM_TERMS words as they appear in parms, using blanks
+   to delimit.   Each word beyond a real word gets a null char 
+   Shift parms to upper case, leaving original case in lparms */
+
+	for (i = 0; i < sizeof(lparms) / sizeof(lparms[0]); i++)
+		lparms[i] = NULL;
+	for (i = 0; i < sizeof(parms) / sizeof(parms[0]); i++)
+		parms[i] = NULL;
+
+	p = statement;
+
+/* Eat any whitespace at the beginning */
+
+	while (*p && isspace(*p))
+		p++;
+
+/* Is this a comment line -- chew until the last comment */
+
+	while (*p == '/' && *(p + 1) == '*') {
+		p++;
+		p++;
+		while (*p && !(*p == '*' && *(p + 1) == '/'))
+			p++;
+		if (*p)
+			p += 2;
+		else {
+			/* If we hit the end of string before the close comment,
+			   ** raise an error 
+			 */
+			gds__msg_format(NULL_PTR, ISQL_MSG_FAC, CMD_ERR, MSG_LENGTH,
+							errbuf, statement, NULL_PTR, NULL_PTR, NULL_PTR,
+							NULL_PTR);
+			STDERROUT(errbuf, 1);
+			ISQL_FREE(errbuf);
+			ISQL_FREE(buffer);
+			return FAIL;
+		}
+		while (*p && isspace(*p))
+			p++;
+	}
+
+/* Set beginning of statement past comment */
+	cmd = p;
+
+	for (i = 0; i < MAX_TERMS; i++) {
+		a = buffer;
+		j = 0;
+		if (*p == DBL_QUOTE || *p == SINGLE_QUOTE) {
+			if (i > 0 && (!strcmp(parms[i - 1], KW_ROLE)))
+				role_found = TRUE;
+			delimited_done = FALSE;
+			end_quote = *p;
+			j++;
+			*a++ = *p++;
+			/* Allow a quoted string to have embedded spaces */
+			/*  Prevent overflow */
+			while (*p && !delimited_done && j < BUFFER_LENGTH256 - 1) {
+				if (*p == end_quote) {
+					j++;
+					*a++ = *p++;
+					if (*p && *p == end_quote && j < BUFFER_LENGTH256 - 1) {
+						j++;	/* do not skip the escape quote here */
+						*a++ = *p++;
+					}
+					else
+						delimited_done = TRUE;
+				}
+				else {
+					j++;
+					*a++ = *p++;
+				}
+			}
+		}
+		else {
+			/*  Prevent overflow */
+			while (*p && !isspace(*p) && j < BUFFER_LENGTH256 - 1) {
+				j++;
+				*a++ = *p++;
+			}
+		}
+		*a = '\0';
+		length = strlen(buffer);
+		parms[i] = (TEXT *) ISQL_ALLOC((SLONG) (length + 1));
+		lparms[i] = (TEXT *) ISQL_ALLOC((SLONG) (length + 1));
+		strncpy(parms[i], buffer, length);
+		parms[i][length] = '\0';
+		while (*p && isspace(*p))
+			p++;
+		strcpy(lparms[i], parms[i]);
+		if (!role_found)
+			ISQL_make_upper(parms[i]);
+		role_found = FALSE;
+	}
+
+/*
+** Look to see if the words (parms) match any known verbs.  If nothing
+**  matches then just hand the statement to process_statement
+*/
+
+
+	if (!strcmp(parms[0], "SHOW")) {
+		/* Transaction for all frontend commands */
+		if (DB && !gds__trans)
+			if (isc_start_transaction
+				(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0)) {
+				ISQL_errmsg(isc_status);
+				/* Free the frontend command */
+				for (j = 0; j < MAX_TERMS; j++)
+					if (parms[j]) {
+						ISQL_FREE(parms[j]);
+						ISQL_FREE(lparms[j]);
+					}
+				if (buffer)
+					ISQL_FREE(buffer);
+				if (errbuf)
+					ISQL_FREE(errbuf);
+				return FAIL;
+			}
+		ret = SHOW_metadata(parms, lparms);
+		if (gds__trans)
+			COMMIT_TRANS(&gds__trans);
+	}
+#ifdef DEV_BUILD
+	else if (!strcmp(parms[0], "ADD")) {
+		if (DB && !gds__trans)
+			if (isc_start_transaction
+				(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0)) {
+				ISQL_errmsg(isc_status);
+				/* Free the frontend command */
+				for (j = 0; j < MAX_TERMS; j++)
+					if (parms[j]) {
+						ISQL_FREE(parms[j]);
+						ISQL_FREE(lparms[j]);
+					}
+				if (buffer)
+					ISQL_FREE(buffer);
+				if (errbuf)
+					ISQL_FREE(errbuf);
+				return FAIL;
+			}
+		ret = add_row(parms[1]);
+		if (gds__trans)
+			COMMIT_TRANS(&gds__trans);
+	}
+	else if (!strcmp(parms[0], "COPY")) {
+		if (DB && !gds__trans)
+			if (isc_start_transaction
+				(isc_status, &gds__trans, 1, &DB, 0, (SCHAR *) 0)) {
+				ISQL_errmsg(isc_status);
+				/* Free the frontend command */
+				for (j = 0; j < MAX_TERMS; j++)
+					if (parms[j]) {
+						ISQL_FREE(parms[j]);
+						ISQL_FREE(lparms[j]);
+					}
+				if (buffer)
+					ISQL_FREE(buffer);
+				if (errbuf)
+					ISQL_FREE(errbuf);
+				return FAIL;
+			}
+		ret = copy_table(parms[1], parms[2], lparms[3]);
+		if (gds__trans)
+			COMMIT_TRANS(&gds__trans);
+	}
+#endif
+#ifdef MU_ISQL
+/*
+** This is code for QA Test bed Multiuser environment.
+ */
+	else if (!strcmp(parms[0], "PAUSE")) {
+		if (qa_mu_environment()) {
+			qa_mu_pause();
+			ret = SKIP;
+		}
+		else
+			ret = CONT;
+	}
+#endif	/* MU_ISQL */
+	else if ((!strcmp(parms[0], "BLOBVIEW")) ||
+			 (!strcmp(parms[0], "BLOBDUMP")))
+			ret = blobedit(parms[0], lparms);
+	else if ((!strcmp(parms[0], "OUTPUT")) || (!strcmp(parms[0], "OUT")))
+		ret = newoutput(lparms[1]);
+	else if (!strcmp(parms[0], "SHELL"))
+		ret = escape(cmd);
+	else if (!strcmp(parms[0], "SET"))
+	{
+		/* Display current set options */
+		if (!*parms[1])
+			ret = print_sets();
+		else if ((!strcmp(parms[1], "STATS")) || (!strcmp(parms[1], "STAT")))
+			ret = do_set_command(parms[2], &Stats);
+		else if (!strcmp(parms[1], "COUNT"))
+			ret = do_set_command(parms[2], &Docount);
+		else if (!strcmp(parms[1], "LIST"))
+			ret = do_set_command(parms[2], &List);
+		else if (!strcmp(parms[1], "PLAN"))
+			ret = do_set_command(parms[2], &Plan);
+		else if (!strcmp (parms [1], "PLANONLY")) 
+		{
+			ret = do_set_command (parms[2], &Planonly);
+			if ( Planonly && (! Plan) )
+			{
+				/* turn on plan */
+				ret = do_set_command ("ON", &Plan);
+			}
+		}
+		else if ((!strcmp(parms[1], "BLOBDISPLAY")) ||
+				 (!strcmp(parms[1], "BLOB")))
+		{
+			/* No arg means turn off blob display */
+
+			if (!*parms[2] || !strcmp(parms[2], "OFF"))
+				Doblob = NO_BLOBS;
+			else if (!strcmp(parms[2], "ALL"))
+				Doblob = ALL_BLOBS;
+			else
+				Doblob = atoi(parms[2]);
+		}
+		else if (!strcmp(parms[1], "ECHO"))
+			ret = do_set_command(parms[2], &Echo);
+		else if ((!strcmp(parms[1], "AUTODDL")) ||
+				 (!strcmp(parms[1], "AUTO")))
+				ret = do_set_command(parms[2], &Autocommit);
+		else if (!strcmp(parms[1], "AUTOFETCH"))
+			ret = do_set_command(parms[2], &Autofetch);
+		else if (!strcmp(parms[1], "WIDTH"))
+			ret = newsize(parms[2], parms[3]);
+		else if ((!strcmp(parms[1], "TRANSACTION")) ||
+				 (!strcmp(parms[1], "TRANS")))
+			ret = newtrans(cmd);
+		else if ((!strcmp(parms[1], "TERM")) ||
+				 (!strcmp(parms[1], "TERMINATOR"))) {
+			a = (*lparms[2]) ? lparms[2] : DEFTERM;
+			Termlen = strlen(a);
+			if (Termlen <= MAXTERM_LENGTH)
+			{
+				strcpy(Term, a);
+			}
+			else
+			{
+				Termlen = MAXTERM_LENGTH;
+				strncpy(Term, a, MAXTERM_LENGTH);
+			}
+		}
+		else if (!strcmp(parms[1], "NAMES"))
+		{
+			if (!*parms[2])
+			{
+				lgth = strlen(DEFCHARSET);
+				if (lgth <= MAXCHARSET_LENGTH)
+					strcpy(ISQL_charset, DEFCHARSET);
+				else
+					strncpy(ISQL_charset, DEFCHARSET, MAXCHARSET_LENGTH);
+			}
+			else
+			{
+				lgth = strlen(parms[2]);
+				if (lgth <= MAXCHARSET_LENGTH)
+					strcpy(ISQL_charset, parms[2]);
+				else
+					strncpy(ISQL_charset, parms[2], MAXCHARSET_LENGTH);
+			}
+		}
+		else if (!strcmp(parms[1], "TIME"))
+		{
+			ret = do_set_command(parms[2], &Time_display);
+		}
+#ifdef DEV_BUILD
+		else if (!strcmp(parms[1], "SQLDA_DISPLAY"))
+		{
+			ret = do_set_command(parms[2], &Sqlda_display);
+		}
+#endif /* DEV_BUILD */
+		else if (!strcmp(parms[1], "SQL"))
+		{
+			if (!strcmp(parms[2], "DIALECT"))
+			{
+				old_SQL_dialect = SQL_dialect;	/* save the old SQL dialect */
+				if ((dialect_str = parms[3]) &&
+					(SQL_dialect = atoi(dialect_str)))
+				{
+					if (SQL_dialect < SQL_DIALECT_V5 ||
+						SQL_dialect > SQL_DIALECT_V6)
+					{
+						bad_dialect = TRUE;
+						sprintf(bad_dialect_buf, "%s%s",
+								"invalid SQL dialect ", dialect_str);
+						SQL_dialect = old_SQL_dialect;	/* restore SQL dialect */
+						ret = ERR;
+					}
+					else
+					{
+						if (major_ods)
+						{
+							if (major_ods < ODS_VERSION10)
+							{
+								if (SQL_dialect > SQL_DIALECT_V5)
+								{
+									if (dialect_spoken)
+										sprintf(bad_dialect_buf,
+												"%s%d%s%s%s%d%s",
+												"ERROR: Database SQL dialect ",
+												dialect_spoken,
+												" database does not accept Client SQL dialect ",
+												dialect_str,
+												" setting. Client SQL dialect still remains ",
+												old_SQL_dialect, NEWLINE);
+									else
+										sprintf(bad_dialect_buf,
+												"%s%s%s%s%s%s",
+												"ERROR: Pre IB V6 database only speaks ",
+												"Database SQL dialect 1 and ",
+												"does not accept Client SQL dialect ",
+												dialect_str,
+												" setting. Client SQL dialect still remains 1.",
+												NEWLINE);
+									SQL_dialect = old_SQL_dialect;	/* restore SQL dialect */
+									ISQL_printf(Out, bad_dialect_buf);
+								}
+							}
+							else
+							{	/* ODS 10 databases */
+								switch (dialect_spoken)
+								{
+								case SQL_DIALECT_V5:
+									if (SQL_dialect > SQL_DIALECT_V5)
+									{
+										if (SQL_DIALECT_V6_TRANSITION)
+											Merge_stderr = TRUE;
+										print_warning = TRUE;
+									}
+									break;
+								case SQL_DIALECT_V6:
+									if (SQL_dialect == SQL_DIALECT_V5 ||
+										SQL_dialect ==
+										SQL_DIALECT_V6_TRANSITION)
+									{
+										if (SQL_DIALECT_V6_TRANSITION)
+											Merge_stderr = TRUE;
+										print_warning = TRUE;
+									}
+									break;
+								default:
+									break;
+								}
+								if (print_warning && Warnings)
+								{
+									print_warning = FALSE;
+									sprintf(bad_dialect_buf, "%s%d%s%d%s%s",
+											"WARNING: Client SQL dialect has been set to ",
+											SQL_dialect,
+											" when connecting to Database SQL dialect ",
+											dialect_spoken,
+											" database. ", NEWLINE);
+									ISQL_printf(Out, bad_dialect_buf);
+								}
+							}
+						}
+					}
+				}
+				else
+				{			/* handle non numeric invalid "set sql dialect" case */
+					SQL_dialect = old_SQL_dialect;	/* restore SQL dialect */
+					bad_dialect = TRUE;
+					sprintf(bad_dialect_buf, "%s%s", "invalid SQL dialect ",
+							dialect_str);
+					ret = ERR;
+				}
+			}
+			else
+				ret = ERR;
+		}
+		else if (!strcmp(parms[1], "GENERATOR"))
+			ret = CONT;
+		else if (!strcmp(parms[1], "STATISTICS"))
+			ret = CONT;
+		else
+			ret = ERR;
+	}
+	else if (!strcmp(parms[0], "CREATE"))
+	{
+		if (!strcmp(parms[1], "DATABASE") || !strcmp(parms[1], "SCHEMA"))
+			ret = create_db(cmd, lparms[2]);
+		else
+			ret = CONT;
+	}
+	else if (!strcmp(parms[0], "DROP"))
+	{
+		if (!strcmp(parms[1], "DATABASE") || !strcmp(parms[1], "SCHEMA"))
+			if (*parms[2])
+				ret = ERR;
+			else
+				ret = drop_db();
+		else
+			ret = CONT;
+	}
+	else if (!strcmp(parms[0], "CONNECT"))
+	{
+		psw = (TEXT *) NULL;
+		usr = (TEXT *) NULL;
+		sql_role_nm = (TEXT *) NULL;
+		numbufs = (TEXT *) NULL;
+
+		/* if a parameter is given in the command more than once, the
+		   last one will be used. The parameters can appear each any
+		   order, but each must provide a value. */
+
+		ret = SKIP;
+		for (i = 2; i < (MAX_TERMS - 1);)
+		{
+			if (!strcmp(parms[i], "CACHE") && *lparms[i + 1])
+			{
+				numbufs = lparms[i + 1];
+				i += 2;
+			}
+			else if (!strcmp(parms[i], "USER") && *lparms[i + 1])
+			{
+				usr = lparms[i + 1];
+				i += 2;
+			}
+			else if (!strcmp(parms[i], "PASSWORD") && *lparms[i + 1])
+			{
+				psw = lparms[i + 1];
+				i += 2;
+			}
+			else if (!strcmp(parms[i], "ROLE") && *lparms[i + 1])
+			{
+				sql_role_nm = lparms[i + 1];
+				i += 2;
+			}
+			else if (*parms[i])
+			{
+				/* Unrecognized option to CONNECT */
+				ret = ERR;
+				break;
+			}
+			else
+				i++;
+		}
+		if (ret != ERR)
+			ret = newdb(lparms[1], usr, psw, numbufs, sql_role_nm);
+	}
+
+#ifdef SCROLLABLE_CURSORS
+/* perform scrolling within the currently active cursor */
+
+	else if (!strcmp(parms[0], "NEXT")) {
+		fetch_offset = 1;
+		fetch_direction = 0;
+		ret = FETCH;
+	}
+	else if (!strcmp(parms[0], "PRIOR")) {
+		fetch_offset = 1;
+		fetch_direction = 1;
+		ret = FETCH;
+	}
+	else if (!strcmp(parms[0], "FIRST")) {
+		fetch_offset = 1;
+		fetch_direction = 2;
+		ret = FETCH;
+	}
+	else if (!strcmp(parms[0], "LAST")) {
+		fetch_offset = 1;
+		fetch_direction = 3;
+		ret = FETCH;
+	}
+	else if (!strcmp(parms[0], "ABSOLUTE")) {
+		fetch_direction = 4;
+		fetch_offset = atoi(parms[1]);
+		ret = FETCH;
+	}
+	else if (!strcmp(parms[0], "RELATIVE")) {
+		fetch_direction = 5;
+		fetch_offset = atoi(parms[1]);
+		ret = FETCH;
+	}
+#endif
+	else if (!strcmp(parms[0], "EDIT"))
+		ret = edit(lparms);
+	else if ((!strcmp(parms[0], "INPUT")) || (!strcmp(parms[0], "IN"))) {
+		Input_file = TRUE;
+		ret = input(lparms[1]);
+	}
+	else if (!strcmp(parms[0], "QUIT"))
+		ret = BACKOUT;
+	else if (!strcmp(parms[0], "EXIT"))
+		ret = EXIT;
+	else if (!strcmp(parms[0], "?") || (!strcmp(parms[0], "HELP")))
+		ret = help(parms[1]);
+	else						/* Didn't match, it must be SQL */
+		ret = CONT;
+
+/* In case any default transaction was started - commit it here */
+	if (gds__trans)
+		COMMIT_TRANS(&gds__trans);
+
+/* Free the frontend command */
+
+	for (j = 0; j < MAX_TERMS; j++)
+		if (parms[j]) {
+			ISQL_FREE(parms[j]);
+			ISQL_FREE(lparms[j]);
+		}
+
+#ifndef GUI_TOOLS
+	if (ret == ERR) {
+		if (bad_dialect == TRUE)
+			gds__msg_format(NULL_PTR, ISQL_MSG_FAC, CMD_ERR, MSG_LENGTH,
+							errbuf, bad_dialect_buf, NULL_PTR, NULL_PTR,
+							NULL_PTR, NULL_PTR);
+		else
+			gds__msg_format(NULL_PTR, ISQL_MSG_FAC, CMD_ERR, MSG_LENGTH,
+							errbuf, cmd, NULL_PTR, NULL_PTR, NULL_PTR,
+							NULL_PTR);
+		STDERROUT(errbuf, 1);
+	}
+#endif
+
+	if (buffer)
+		ISQL_FREE(buffer);
+	if (errbuf)
+		ISQL_FREE(errbuf);
+
+	return (ret);
+}
+static SSHORT do_set_command( TEXT * parm, SSHORT * global_flag)
+{
+/**************************************
+ *
+ *	d o _ s e t _ c o m m a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *    set the flag pointed to by global_flag
+ *        to TRUE or FALSE.
+ *    if parm is missing, toggle it
+ *    if parm is "ON", set it to TRUE
+ *    if parm is "OFF", set it to FALSE
+ *
+ **************************************/
+	SSHORT ret = SKIP;
+
+	if (!*parm)
+		*global_flag = 1 - *global_flag;
+	else if (!strcmp(parm, "ON"))
+		*global_flag = 1;
+	else if (!strcmp(parm, "OFF"))
+		*global_flag = 0;
+	else
+		ret = ERR;
+	return (ret);
+}
+
+
+static SSHORT get_statement(TEXT ** statement_ref,
+							USHORT * statement_buffer,
+							TEXT * statement_prompt)
+{
+/**************************************
+ *
+ *	g e t _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get an SQL statement, or QUIT/EXIT command to process
+ *
+ *	Arguments:  POinter to statement, and size of statement_buffer
+ *
+ **************************************/
+	TEXT *p, *q;
+	TEXT *statement, *statement2;
+	SSHORT c, blank, done, start_quoted_string;
+	USHORT count, bufsize, bufsize2;
+	SSHORT ret = CONT;
+	INDEV flist, oflist;
+	TEXT con_prompt[MSG_LENGTH];
+	SSHORT incomment = FALSE;
+	SSHORT in_single_quoted_string = FALSE;	/* set to true once we are
+											   inside a single quoted string */
+	SSHORT in_double_quoted_string = FALSE;
+	SSHORT *errbuf;
+	BOOLEAN ignore_this_stmt = FALSE;
+
+/* Lookup the continuation prompt once */
+	ISQL_msg_get(CON_PROMPT, con_prompt, NULL, NULL, NULL, NULL, NULL);
+
+	bufsize = *statement_buffer;
+
+/* Statement has no space so allocate some. The statement buffer just
+** grows throughout the program to the maximum command size
+*/
+	if (!bufsize) {
+		bufsize = 512;
+		statement = (TEXT *) ISQL_ALLOC((SLONG) bufsize);
+#ifdef DEBUG_GDS_ALLOC
+		gds_alloc_flag_unfreed((void *) statement);
+#endif
+		*statement_ref = statement;
+		*statement_buffer = bufsize;
+	}
+	else
+		/* Otherwise just recall the address from last time */
+		statement = *statement_ref;
+
+#ifndef GUI_TOOLS
+	if (Ifp == ib_stdin) {
+		ib_fprintf(ib_stdout, statement_prompt);
+		ib_fflush(ib_stdout);
+	}
+#endif
+
+/* Clear out statement buffer */
+
+	p = statement;
+	*p = '\0';
+
+/* Set count of characters to zero */
+
+	count = 0;
+
+	blank = TRUE;
+	done = FALSE;
+
+	while (!done) {
+		switch (c = ib_getc(Ifp)) {
+		case EOF:
+			/* Go back to ib_getc if we get interrupted by a signal. */
+
+			if (SYSCALL_INTERRUPTED(errno)) {
+				errno = 0;
+				break;
+			}
+
+			/* If we hit EOF at the top of the flist, exit time */
+
+			flist = Filelist;
+			if (!flist->indev_next)
+				return EOF;
+
+			/* If this is not ib_tmpfile, close it */
+
+			if (Ifp != Ofp)
+				ib_fclose(Ifp);
+
+			/* Save the last flist so it can be deleted */
+
+			while (flist->indev_next) {
+				oflist = flist;
+				flist = flist->indev_next;
+			}
+
+			/* Zero out last pointer */
+
+			oflist->indev_next = NULL;
+
+			/* Reset to previous after other input */
+
+			Ifp = flist->indev_fpointer;
+			ISQL_FREE(flist);
+
+			if (Interactive && (Ifp == ib_stdin))
+				ISQL_prompt(statement_prompt);
+			break;
+
+		case '\n':
+			/* the context of string literals should not extend past eoln */
+			in_single_quoted_string = in_double_quoted_string = FALSE;
+
+			/* Ignore a series of carriage returns at the beginning */
+			if (blank) {
+				if (Interactive && (Ifp == ib_stdin))
+					ISQL_prompt(statement_prompt);
+				break;
+			}
+
+			/* Catch the help ? without a terminator */
+			if (*statement == '?') {
+				done = TRUE;
+				Continuation = FALSE;
+				break;
+			}
+
+			/* Put the newline on the line for printing */
+			*p++ = c;
+			count++;
+
+			/* If in a comment, keep reading */
+			if (incomment && Interactive && (Ifp == ib_stdin)) {
+				/*  Comment prompt */
+				ISQL_prompt("--> ");
+				break;
+			}
+
+			/* Eat any white space at the end of a line */
+
+			q = p;
+			while (q > statement && isspace(*(q - 1)))
+				q--;
+
+			/* Search back past a final comment for a terminator 
+			   **  If a comment ends a line with a terminator,
+			   **  null terminate the line before the comment
+			   **  Otherwise, just read on
+			 */
+			if ((*(q - 1) == '/') && (*(q - 2) == '*')) {
+				q -= 2;
+
+				/* Don't search past a newline or beginning of statement  */
+
+				while (q != statement && (*q != '\n') &&
+					   (*(q - 1) != '*') && (*(q - 2) != '/'))
+					q--;
+				/* If the search took us to begin line, keep reading */
+				if ((q == statement) || (*q == '\n')) {
+					if (Interactive && (Ifp == ib_stdin))
+						ISQL_prompt(con_prompt);
+					break;
+				}
+
+				q -= 2;
+			}
+
+			while ((q > statement) && isspace(*(q - 1)))
+				q--;
+
+			/* 
+			   **  Look for terminator as last chars then
+			   **  null terminate string and set done
+			   *   do not bother with terminators inside
+			   *   quoted strings and comments.
+			 */
+
+			if (!incomment &&
+				/* Making sure that q does'nt go out of bounds */
+				((q - statement) >= Termlen) &&
+				!strncmp(q - Termlen, Term, Termlen)) {
+				if (Echo) {
+					/* Terminate to print entire statement */
+					*p = '\0';
+					ISQL_printf(Out, statement);
+				}
+
+#ifdef GUI_TOOLS
+				/* add command to command history file */
+				ib_fprintf(Session, "%s", statement);
+				ib_fflush(Session);
+#endif
+
+				/* Lop off terminal comment */
+				*(q - Termlen) = '\0';
+				done = TRUE;
+				Continuation = FALSE;
+			}
+			else {
+
+				/* Continuation prompt */
+				if (Interactive && (Ifp == ib_stdin))
+					ISQL_prompt(con_prompt);
+			}
+			break;
+
+		case '\t':
+		case BLANK:
+			/* Skip leading blanks and convert tabs */
+
+			if (!blank) {
+				*p++ = BLANK;
+				count++;
+			}
+			break;
+
+		case '*':
+			/* Could this the be start of a comment.  We can only look back,
+			   **   not forward
+			   * ignore possibilities of a comment beginning inside
+			   * quoted strings.
+			 */
+			if (count && (*(p - 1) == '/') &&
+				!in_single_quoted_string && !in_double_quoted_string)
+					incomment = TRUE;
+			*p++ = c;
+			blank = FALSE;
+			count++;
+			break;
+
+		case '/':
+			/* Perhaps this is the end of a comment 
+			   * ignore possibilities of a comment ending inside
+			   * quoted strings.
+			 */
+			if (incomment && (*(p - 1) == '*') &&
+				!in_single_quoted_string && !in_double_quoted_string)
+					incomment = FALSE;
+			*p++ = c;
+			blank = FALSE;
+			count++;
+			break;
+
+		case SINGLE_QUOTE:
+			/* check if this quote ends an open quote */
+			if (!incomment && !in_double_quoted_string)
+				if (in_single_quoted_string) {
+					if (count && (*(p - 1) != SINGLE_QUOTE) ||
+						(count == start_quoted_string + 1))
+						/* for strings such as '' which are empty strings, 
+						   we need to reset the in_single_quoted_string flag */
+						in_single_quoted_string = FALSE;
+				}
+				else {
+					start_quoted_string = count;
+					in_single_quoted_string = TRUE;
+				}
+			*p++ = c;
+			blank = FALSE;
+			count++;
+			break;
+
+		case DBL_QUOTE:
+			/* check if this double quote ends an open double quote */
+			if (!incomment && !in_single_quoted_string)
+				if (in_double_quoted_string) {
+					if (count && (*(p - 1) != '\"') ||
+						(count == start_quoted_string + 1))
+						/* for strings such as "" which are empty strings, 
+						   we need to reset the in_single_quoted_string flag */
+						in_double_quoted_string = FALSE;
+				}
+				else {
+					start_quoted_string = count;
+					in_double_quoted_string = TRUE;
+				}
+			*p++ = c;
+			blank = FALSE;
+			count++;
+			break;
+
+
+		default:
+			/* Any other character is significant */
+
+			*p++ = c;
+			count++;
+			blank = FALSE;
+			if (!incomment)
+				Continuation = TRUE;
+			break;
+		}
+
+
+		/* If in danger of running out of room, reallocate to a bigger 
+		   **  Statement buffer, keeping track of where p is pointing
+		 */
+
+		if (count == bufsize) {
+			if ((USHORT) (bufsize + 512) < bufsize) {
+				/* If we allocate any more, we would be in danger of 
+				   overflowing the variable bufsize */
+				errbuf = (TEXT *) ISQL_ALLOC((SLONG) MSG_LENGTH);
+				if (errbuf) {
+					gds__msg_format(NULL_PTR, ISQL_MSG_FAC, BUFFER_OVERFLOW,
+									MSG_LENGTH, errbuf, NULL_PTR, NULL_PTR,
+									NULL_PTR, NULL_PTR, NULL_PTR);
+					STDERROUT(errbuf, 1);
+					ISQL_FREE(errbuf);
+				}
+				ret = SKIP;
+				ISQL_FREE(statement);
+
+				ignore_this_stmt = TRUE;
+				/* now reallocate the buffer to hold the reminder of the statement */
+				bufsize = 512;
+				statement = (TEXT *) ISQL_ALLOC((SLONG) bufsize);
+#ifdef DEBUG_GDS_ALLOC
+				gds_alloc_flag_unfreed((void *) statement);
+#endif
+				*statement_ref = statement;
+				*statement_buffer = 512;
+				in_single_quoted_string = in_double_quoted_string = FALSE;
+				count = 0;
+				p = statement;
+				*p = '\0';
+			}
+			else {
+				bufsize2 = bufsize;
+				bufsize += 512;
+				statement2 = (TEXT *) ISQL_ALLOC((SLONG) bufsize);
+#ifdef DEBUG_GDS_ALLOC
+				gds_alloc_flag_unfreed(statement2);
+#endif
+				memcpy(statement2, statement, bufsize2);
+				ISQL_FREE(statement);
+				statement = statement2;
+				*statement_ref = statement;
+				*statement_buffer = bufsize;
+				p = statement + count;
+			}
+		}
+
+		/* Pass statement to frontend for processing */
+
+		if (done && !ignore_this_stmt)
+			ret = frontend(statement);
+	}
+
+	/* If this was a null statement, skip it */
+	if (!*statement)
+		ret = SKIP;
+
+
+	if (ret == CONT) {
+
+		/* Place each non frontend statement in the temp file if we are reading
+		   ** from ib_stdin.  Add newline to make the file more readable 
+		 */
+
+		if (Ifp == ib_stdin) {
+			ib_fputs(statement, Ofp);
+			ib_fputs(Term, Ofp);
+			ib_fputc('\n', Ofp);
+		}
+	}
+
+	return ret;
+}
+
+
+static void get_str(TEXT * input_str,
+					TEXT ** str_begin, TEXT ** str_end, SSHORT * str_flag)
+{
+/**************************************
+ *
+ *	g e t _ s t r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Scanning a string constant from the input buffer. If it found, then
+ *	passes back the starting address and ending address of the string 
+ *	constant. It also marks the type of string constant and passes back.
+ *	
+ *	string type:
+ *
+ *		1. SINGLE_QUOTED_STRING --- string constant delimited by
+ *						single quotes
+ *		2. DOUBLE_QUOTED_STRING --- string constant delimited by
+ *						double quotes
+ *		3. NO_MORE_STRING       --- no string constant was found
+ *
+ *	Input Arguments:
+ *
+ *		1. input buffer
+ *
+ *	Output Arguments:
+ *
+ *		1. pointer to the input buffer
+ *		2. address to the begining of a string constant
+ *		3. address to the ending   of a string constant
+ *		4. address to the string flag
+ *
+ **************************************/
+	TEXT *b1 = NULL, *b2 = NULL, delimited_char;
+	BOOLEAN done = FALSE;
+
+	b1 = strchr(input_str, SINGLE_QUOTE);
+	b2 = strchr(input_str, DBL_QUOTE);
+	if (!b1 && !b2)
+		*str_flag = NO_MORE_STRING;
+	else {
+		if (b1 && !b2)
+			*str_flag = SINGLE_QUOTED_STRING;
+		else if (!b1 && b2) {
+			*str_flag = DOUBLE_QUOTED_STRING;
+			b1 = b2;
+		}
+		else if (b1 > b2) {
+			*str_flag = DOUBLE_QUOTED_STRING;
+			b1 = b2;
+		}
+		else
+			*str_flag = SINGLE_QUOTED_STRING;
+
+		*str_begin = b1;
+		delimited_char = *b1;
+		b1++;
+		while (!done) {
+			if (*b1 == delimited_char) {
+				b1++;
+				if (*b1 == delimited_char)
+					b1++;
+				else {
+					done = TRUE;
+					*str_end = b1;
+				}
+			}
+			else
+				b1 = strchr(b1, delimited_char);
+
+			/* In case there is no matching ending quote (single or double) 
+			   either because of mismatched quotes  or simply because user 
+			   didn't complete the quotes, we cannot find a valid string
+			   at all. So we return a special value INCOMPLETE_STRING.
+			   In this case str_end is not populated and hence copy_str
+			   should not be called after get_str, but instead the caller
+			   must process this error & return to it's calling routine
+			   - Shailesh */
+			if (b1 == NULL) {
+				*str_flag = INCOMPLETE_STRING;
+				done = TRUE;
+			}
+		}						/* end of while (!done) */
+	}
+}
+
+
+void ISQL_get_version( BOOLEAN call_by_create_db)
+{
+/**************************************
+ *
+ *	I S Q L _ g e t _ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	finds out if the database we just attached to is
+ *	V4, V3.3 or earlier, as well as other info.
+ *
+ **************************************/
+	static CONST UCHAR db_version_info[] = { isc_info_ods_version,
+		isc_info_ods_minor_version,
+		isc_info_db_sql_dialect,
+		isc_info_end
+	};
+	/* 
+	   ** Each info item requested will return 
+	   **
+	   **     1 byte for the info item tag
+	   **     2 bytes for the length of the information that follows
+	   **     1 to 4 bytes of integer information
+	   **
+	   ** isc_info_end will not have a 2-byte length - which gives us
+	   ** some padding in the buffer.
+	 */
+
+	UCHAR buffer[sizeof(db_version_info) * (1 + 2 + 4)];
+	UCHAR *p;
+	TEXT bad_dialect_buf[512];
+	BOOLEAN print_warning = FALSE;
+
+	V4 = FALSE;
+	V33 = FALSE;
+	dialect_spoken = 0;
+
+	if (isc_database_info(isc_status, &DB, sizeof(db_version_info),
+						  db_version_info, sizeof(buffer), buffer)) {
+		ISQL_errmsg(isc_status);
+		return;
+	}
+
+	p = buffer;
+	while (*p != isc_info_end) {
+		UCHAR item;
+		USHORT length;
+
+		item = (UCHAR) * p++;
+		length = isc_vax_integer(p, sizeof(USHORT));
+		p += sizeof(USHORT);
+		switch (item) {
+		case isc_info_ods_version:
+			major_ods = isc_vax_integer(p, length);
+			break;
+		case isc_info_ods_minor_version:
+			minor_ods = isc_vax_integer(p, length);
+			break;
+		case isc_info_db_sql_dialect:
+			dialect_spoken = isc_vax_integer(p, length);
+			if (major_ods < ODS_VERSION10) {
+				if (SQL_dialect > SQL_DIALECT_V5 && Warnings) {
+					ISQL_printf(Out, NEWLINE);
+					sprintf(bad_dialect_buf, "%s%s%s%d%s%s",
+							"WARNING: Pre IB V6 database only speaks",
+							" SQL dialect 1 and ",
+							"does not accept Client SQL dialect ",
+							SQL_dialect,
+							" . Client SQL dialect is reset to 1.", NEWLINE);
+					ISQL_printf(Out, bad_dialect_buf);
+				}
+			}
+			else {				/* ODS 10 databases */
+
+				switch (dialect_spoken) {
+				case SQL_DIALECT_V5:
+					if (SQL_dialect > SQL_DIALECT_V5)
+						print_warning = TRUE;
+					break;
+
+				case SQL_DIALECT_V6:
+					if (SQL_dialect != 0 && SQL_dialect < SQL_DIALECT_V6)
+						print_warning = TRUE;
+					break;
+				default:
+					break;
+				}
+				if (print_warning && Warnings) {
+					print_warning = FALSE;
+					ISQL_printf(Out, NEWLINE);
+					sprintf(bad_dialect_buf, "%s%d%s%d%s%s",
+							"WARNING: This database speaks SQL dialect ",
+							dialect_spoken,
+							" but Client SQL dialect was set to ",
+							SQL_dialect, " .", NEWLINE);
+					ISQL_printf(Out, bad_dialect_buf);
+				}
+			}
+			break;
+		case isc_info_error:
+			/* 
+			   ** Error indicates an option was not understood by the
+			   ** remote server.
+			 */
+			if (SQL_dialect && SQL_dialect != SQL_DIALECT_V5 && Warnings) {
+				ISQL_printf(Out, NEWLINE);
+				if (call_by_create_db)
+					sprintf(bad_dialect_buf, "%s%s%d%s%s",
+							"WARNING: Pre IB V6 server only speaks SQL dialect 1",
+							" and does not accept Client SQL dialect ",
+							SQL_dialect,
+							" . Client SQL dialect is reset to 1.", NEWLINE);
+				else {
+					connecting_to_pre_v6_server = TRUE;
+					sprintf(bad_dialect_buf, "%s%s%d%s%s",
+							"ERROR: Pre IB V6 server only speaks SQL dialect 1",
+							" and does not accept Client SQL dialect ",
+							SQL_dialect,
+							" . Client SQL dialect is reset to 1.", NEWLINE);
+				}
+				ISQL_printf(Out, bad_dialect_buf);
+			}
+			else {
+				if (SQL_dialect == 0) {
+					connecting_to_pre_v6_server = TRUE;
+					sprintf(bad_dialect_buf, "%s%s%d%s%s",
+							"ERROR: Pre IB V6 server only speaks SQL dialect 1",
+							" and does not accept Client SQL dialect ",
+							SQL_dialect,
+							" . Client SQL dialect is reset to 1.", NEWLINE);
+					ISQL_printf(Out, bad_dialect_buf);
+				}
+			}
+			break;
+		default:
+			{
+				TEXT message[100];
+				sprintf(message,
+						"Internal error: Unexpected isc_info_value %d\n",
+						item);
+				ISQL_printf(Out, message);
+			}
+			break;
+		}
+		p += length;
+	}
+
+	if (major_ods >= ODS_VERSION8) {
+		V4 = TRUE;
+		if (major_ods >= ODS_VERSION9)
+			V45 = TRUE;
+	}
+	else if (major_ods == ODS_VERSION7 && minor_ods == ODS_CURRENT7)
+		V33 = TRUE;
+
+/* If the remote server did not respond to our request for
+   "dialects spoken", then we can assume it can only speak
+   the V5 dialect.  We automatically change the connection
+   dialect to that spoken by the server.  Otherwise the 
+   current dialect is set to whatever the user requested. */
+
+	if (dialect_spoken == 0)
+		SQL_dialect = SQL_DIALECT_V5;
+	else if (major_ods < ODS_VERSION10)
+		SQL_dialect = dialect_spoken;
+	else if (SQL_dialect == 0)	/* client SQL dialect has not been set */
+		SQL_dialect = dialect_spoken;
+
+	if (dialect_spoken > 0)
+		db_SQL_dialect = dialect_spoken;
+	else
+		db_SQL_dialect = SQL_DIALECT_V5;
+}
+
+
+void ISQL_truncate_term( TEXT * str, USHORT len)
+{
+/**************************************
+ *
+ *	I S Q L _ t r u n c a t e _ t e r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Truncates the rightmost contiguous spaces on a string.
+ *
+ **************************************/
+	int i;
+	for (i = len - 1; i >= 0 && ((isspace(str[i])) || (str[i] == 0)); i--);
+	str[i + 1] = 0;
+}
+
+
+void ISQL_ri_action_print(TEXT * ri_action_str,
+						  TEXT * ri_action_prefix_str, BOOLEAN all_caps)
+{
+/**************************************
+ *
+ *	I S Q L _ r i _ a c t i o n _ p r i n t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	prints the description of ref. integrity actions.
+ *      The actions must be one of the cascading actions or RESTRICT.
+ *      RESTRICT is used to indicate that the user did not specify any
+ *      actions, so do not print it out.
+ *
+ **************************************/
+	RI_ACTIONS *ref_int;
+
+	for (ref_int = ri_actions_all; ref_int->ri_action_name; ref_int++) {
+		if (!strcmp(ref_int->ri_action_name, ri_action_str)) {
+			if (*ref_int->ri_action_print_caps)
+				/* we have something to print  */
+			{
+				if (all_caps)
+					sprintf(Print_buffer, "%s %s", ri_action_prefix_str,
+							ref_int->ri_action_print_caps);
+				else if (*ref_int->ri_action_print_mixed)
+					sprintf(Print_buffer, "%s %s", ri_action_prefix_str,
+							ref_int->ri_action_print_mixed);
+				ISQL_printf(Out, Print_buffer);
+			}
+			return;
+		}
+	}
+
+	assert(FALSE);
+}
+
+
+static BOOLEAN get_numeric(
+						   UCHAR * string,
+						   USHORT length, SSHORT * scale, SINT64 * ptr)
+{
+/**************************************
+ *
+ *      g e t _ n u m e r i c
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert a numeric literal (string) to its binary value.
+ *
+ *      The binary value (int64) is stored at the
+ *      address given by ptr.
+ *
+ **************************************/
+	UCHAR *p, *end;
+	SSHORT local_scale, fraction, sign, digit_seen;
+	SINT64 value;
+
+	digit_seen = local_scale = fraction = sign = value = 0;
+
+	for (p = string, end = p + length; p < end; p++) {
+		if (DIGIT(*p)) {
+			digit_seen = 1;
+
+			/* Before computing the next value, make sure there will be
+			   no overflow. Trying to detect overflow after the fact is
+			   tricky: the value doesn't always become negative after an
+			   overflow!  */
+
+			if (value >= INT64_LIMIT) {
+				/* possibility of an overflow */
+				if (value > INT64_LIMIT)
+					break;
+				else if (((*p > '8') && (sign == -1))
+						 || ((*p > '7') && (sign != -1)))
+					break;
+			}
+
+			/* Force the subtraction to be performed before the addition,
+			   thus preventing a possible signed arithmetic overflow.    */
+			value = value * 10 + (*p - '0');
+			if (fraction)
+				--local_scale;
+		}
+		else if (*p == '.') {
+			if (fraction)
+				return FALSE;
+			else
+				fraction = TRUE;
+		}
+		else if (*p == '-' && !digit_seen && !sign && !fraction)
+			sign = -1;
+		else if (*p == '+' && !digit_seen && !sign && !fraction)
+			sign = 1;
+		else if (*p != BLANK)
+			return FALSE;
+	}
+
+	if (!digit_seen)
+		return FALSE;
+
+	*scale = local_scale;
+	*(SINT64 *) ptr = ((sign == -1) ? -value : value);
+	return TRUE;
+}
+
+
+static SSHORT newsize( TEXT * colname, TEXT * sizestr)
+{
+/**************************************
+ *
+ *	n e w s i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a column name and print width to collist
+ *
+ **************************************/
+	COLLIST *c, *p, *pold;
+	SSHORT size;
+
+	if (!*colname || (strlen(colname) >= WORDLENGTH))
+		return ERR;
+
+	p = Cols;
+	pold = NULL;
+
+/* If no size is given, remove the entry */
+	if (!*sizestr) {
+		/* Scan until name matches or end of list */
+		while (p && strcmp(p->col_name, colname)) {
+			pold = p;
+			p = p->collist_next;
+		}
+
+		/* If there is a match on name, delete the entry */
+		if (p) {
+			if (pold)
+				pold->collist_next = p->collist_next;
+			else
+				Cols = NULL;
+			ISQL_FREE(p);
+		}
+		return SKIP;
+	}
+
+	size = atoi(sizestr);
+	if (size <= 0)
+		return ERR;
+
+	c = (COLLIST *) ISQL_ALLOC((SLONG) sizeof(struct collist));
+	strcpy(c->col_name, colname);
+	c->col_len = size;
+	c->collist_next = NULL;
+
+/* walk the linked list */
+	if (!p)
+		Cols = c;
+	else {
+		while (p->collist_next && strcmp(p->col_name, colname))
+			p = p->collist_next;
+
+		/* If there is a match on name, replace the length */
+		if (!strcmp(p->col_name, colname)) {
+			p->col_len = size;
+			ISQL_FREE(c);
+		}
+		else
+			p->collist_next = c;
+	}
+	return SKIP;
+}
+
+
+static SSHORT print_sets(void)
+{
+/**************************************
+ *
+ *	p r i n t _ s e t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print the current set values
+ *
+ **************************************/
+	COLLIST *p;
+
+	ISQL_printf(Out, "Print statistics:        ");
+	ISQL_printf(Out, (Stats ? "ON" : "OFF"));
+	ISQL_printf(Out, NEWLINE);
+#ifndef GUI_TOOLS
+	ISQL_printf(Out, "Echo commands:           ");
+	ISQL_printf(Out, (Echo ? "ON" : "OFF"));
+	ISQL_printf(Out, NEWLINE);
+#endif
+	ISQL_printf(Out, "List format:             ");
+	ISQL_printf(Out, (List ? "ON" : "OFF"));
+	ISQL_printf(Out, NEWLINE);
+	ISQL_printf(Out, "Row Count:               ");
+	ISQL_printf(Out, (Docount ? "ON" : "OFF"));
+	ISQL_printf(Out, NEWLINE);
+	ISQL_printf(Out, "Autocommit DDL:          ");
+	ISQL_printf(Out, (Autocommit ? "ON" : "OFF"));
+	ISQL_printf(Out, NEWLINE);
+#ifdef SCROLLABLE_CURSORS
+	ISQL_printf(Out, "Autofetch records:       ");
+	ISQL_printf(Out, (Autofetch ? "ON" : "OFF"));
+	ISQL_printf(Out, NEWLINE);
+#endif
+	ISQL_printf(Out, "Access Plan:             ");
+	ISQL_printf(Out, (Plan ? "ON" : "OFF"));
+	ISQL_printf(Out, NEWLINE);
+	ISQL_printf (Out, "Access Plan only:        ");
+	ISQL_printf (Out, (Planonly ? "ON" : "OFF"));
+	ISQL_printf (Out, NEWLINE);
+	ISQL_printf(Out, "Display BLOB type:       ");
+	if (Doblob == ALL_BLOBS)
+		ISQL_printf(Out, "ALL");
+	else if (Doblob == NO_BLOBS)
+		ISQL_printf(Out, "NONE");
+	else {
+		sprintf(Print_buffer, "%d", Doblob);
+		ISQL_printf(Out, Print_buffer);
+	}
+	ISQL_printf(Out, NEWLINE);
+	if (*ISQL_charset && strcmp(ISQL_charset, DEFCHARSET)) {
+		sprintf(Print_buffer, "Set names:               %s%s",
+				ISQL_charset, NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+	}
+	if (Cols) {
+		p = Cols;
+		sprintf(Print_buffer, "Column print widths:%s", NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+		while (p) {
+			sprintf(Print_buffer, "%s%s width: %d%s",
+					TAB, p->col_name, p->col_len, NEWLINE);
+			ISQL_printf(Out, Print_buffer);
+			p = p->collist_next;
+		}
+	}
+	ISQL_printf(Out, "Terminator:              ");
+	ISQL_printf(Out, Term);
+	ISQL_printf(Out, NEWLINE);
+	sprintf(Print_buffer, "Time:                    %s%s",
+			(Time_display) ? "ON" : "OFF", NEWLINE);
+	ISQL_printf(Out, Print_buffer);
+	sprintf(Print_buffer, "Warnings:                %s%s",
+			(Warnings) ? "ON" : "OFF", NEWLINE);
+	ISQL_printf(Out, Print_buffer);
+	return (SKIP);
+}
+
+
+static SSHORT help(TEXT * what)
+{
+/**************************************
+ *
+ *	h e l p
+ *
+ **************************************
+ *
+ * Functional description
+ *	List the known commands.
+ *
+ **************************************/
+#ifndef GUI_TOOLS
+	TEXT msg[MSG_LENGTH];
+	SSHORT *msgid;
+
+/* Ordered list of help messages to display.  Use -1 to terminate list,
+ * and 0 for an empty blank line
+ */
+	static SSHORT help_ids[] = {
+		HLP_FRONTEND,			/*Frontend commands: */
+		HLP_BLOBDMP,			/*BLOBDUMP <blobid> <file>   -- dump BLOB to a file */
+		HLP_BLOBVIEW,			/*BLOBVIEW <blobid>          -- view BLOB in text editor */
+		HLP_EDIT,				/*EDIT     [<filename>]      -- edit SQL script file and execute */
+		HLP_EDIT2,				/*EDIT                       -- edit current command buffer and execute */
+		HLP_HELP,				/*HELP                       -- display this menu */
+		HLP_INPUT,				/*INput    <filename>        -- take input from the named SQL file */
+		HLP_OUTPUT,				/*OUTput   [<filename>]      -- write output to named file */
+		HLP_OUTPUT2,			/*OUTput                     -- return output to ib_stdout */
+		HLP_SET_ROOT,			/*SET      <option>          -- (use HELP SET for list) */
+		HLP_SHELL,				/*SHELL    <command>         -- execute Operating System command in sub-shell */
+		HLP_SHOW,				/*SHOW     <object> [<name>] -- display system information */
+		HLP_OBJTYPE,			/*    <object> = CHECK, DATABASE, DOMAIN, EXCEPTION, FILTER, FUNCTION, GENERATOR, */
+		HLP_OBJTYPE2,			/*               GRANT, INDEX, PROCEDURE, ROLE, SQL DIALECT, SYSTEM, TABLE, */
+		HLP_OBJTYPE3,			/*               TRIGGER, VERSION, VIEW */
+		HLP_EXIT,				/*EXIT                       -- exit and commit changes */
+		HLP_QUIT,				/*QUIT                       -- exit and roll back changes */
+		0,
+		HLP_ALL,				/*All commands may be abbreviated to letters in CAPitals */
+		-1						/* end of list */
+	};
+
+	static SSHORT help_set_ids[] = {
+		HLP_SETCOM,				/*Set commands: */
+		HLP_SET,				/*    SET                    -- display current SET options */
+		HLP_SETAUTO,			/*    SET AUTOddl            -- toggle autocommit of DDL statements */
+#ifdef SCROLLABLE_CURSORS
+		HLP_SETFETCH,			/*    SET AUTOfetch          -- toggle autofetch of records */
+#endif
+		HLP_SETBLOB,			/*    SET BLOB [ALL|<n>]     -- display BLOBS of subtype <n> or ALL */
+		HLP_SETBLOB2,			/*    SET BLOB               -- turn off BLOB display */
+		HLP_SETCOUNT,			/*    SET COUNT              -- toggle count of selected rows on/off */
+		HLP_SETECHO,			/*    SET ECHO               -- toggle command echo on/off */
+		HLP_SETLIST,			/*    SET LIST               -- toggle column or table display format */
+		HLP_SETNAMES,			/*    SET NAMES <csname>     -- set name of runtime character set */
+		HLP_SETPLAN,			/*    SET PLAN               -- toggle display of query access plan */
+		HLP_SETSQLDIALECT,		/* SET SQL DIALECT <n> -- set sql dialect to <n> */
+		HLP_SETSTAT,			/*    SET STATs              -- toggle display of performance statistics */
+		HLP_SETTIME,			/*    SET TIME               -- toggle display of timestamp with DATE values */
+		HLP_SETTERM,			/*    SET TERM <string>      -- change statement terminator string */
+		HLP_SETWIDTH,			/*    SET WIDTH <col> [<n>]  -- set/unset print width to <n> for column <col> */
+		0,
+		HLP_ALL,				/*All commands may be abbreviated to letters in CAPitals */
+		-1						/* end of list */
+	};
+
+	if (!strcmp(what, "SET"))
+		msgid = help_set_ids;
+	else
+		msgid = help_ids;
+	for (; *msgid != -1; msgid++) {
+		if (*msgid != 0) {
+			ISQL_msg_get(*msgid, msg, NULL, NULL, NULL, NULL, NULL);
+			ISQL_printf(Help, msg);
+		}
+		ISQL_printf(Help, NEWLINE);
+	}
+#endif
+	return (SKIP);
+}
+
+
+static SSHORT input( TEXT * infile)
+{
+/**************************************
+ *
+ *	i n p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read commands from the named input file
+ *  
+ *	Parameters:  infile -- Second word of the command line
+ *		filelist is a stack of file pointers to
+ *			return from nested inputs
+ *
+ *	The result of calling this is to point the
+ *	global input file pointer, Ifp, to the named file. 
+ *
+ **************************************/
+	TEXT *file, *errbuf;
+	IB_FILE *fp;
+	INDEV current, flist;
+	TEXT path[MAXPATHLEN];
+
+	errbuf = (TEXT *) ISQL_ALLOC(MSG_LENGTH);
+	if (!errbuf)
+		return (ERR);
+
+/* Local pointer to global list of input files */
+
+	flist = Filelist;
+
+/* Set up editing command for shell */
+
+	file = infile;
+
+
+/* If there is no file name specified, return error */
+
+	if (!file || !*file) {
+		if (errbuf)
+			ISQL_FREE(errbuf);
+		return (ERR);
+	}
+
+	file = path;
+	strip_quotes(infile, file);
+
+/* filelist is a linked list of file pointers.  We must add a node to
+** the linked list before discarding the current Ifp.  
+**  Filelist is a global pointing to base of list.
+*/
+
+	if (fp = ib_fopen(file, "r")) {
+		current = (INDEV) ISQL_ALLOC((SLONG) sizeof(struct indev));
+		current->indev_fpointer = Ifp;
+		current->indev_next = NULL;
+#ifdef DEBUG_GDS_ALLOC
+		gds_alloc_flag_unfreed((void *) current);
+#endif
+		if (!Filelist)
+			Filelist = current;
+		else {
+			while (flist->indev_next)
+				flist = flist->indev_next;
+			flist->indev_next = current;
+		}
+		Ifp = fp;
+	}
+	else {
+		gds__msg_format(NULL_PTR, ISQL_MSG_FAC, FILE_OPEN_ERR, MSG_LENGTH,
+						errbuf, file, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+		STDERROUT(errbuf, 1);
+		ISQL_FREE(errbuf);
+		return FAIL;
+	}
+
+	if (errbuf)
+		ISQL_FREE(errbuf);
+
+	Input_file = TRUE;
+	return (SKIP);
+}
+
+
+static BOOLEAN isyesno( TEXT * buffer)
+{
+/**********************************************
+ *
+ *	i s y e s n o
+ *
+ **********************************************
+ *
+ * Functional description
+ *	check if the first letter of the user's response
+ *	corresponds to the first letter of Yes
+ *	(in whatever language they are using)
+ *
+ *	returns TRUE for Yes, otherwise FALSE
+ *
+ **********************************************/
+
+	if (!have_trans) {			/* get the translation if we don't have it already */
+		ISQL_msg_get(YES_ANS, yesword, NULL, NULL, NULL, NULL, NULL);
+		have_trans = TRUE;
+	}
+
+/* Just check first byte of yes response -- could be multibyte problem */
+
+	if (UPPER7(buffer[0]) == UPPER7(yesword[0]))
+		return TRUE;
+	else
+		return FALSE;
+}
+
+
+static SSHORT newdb(
+					TEXT * dbname,
+					TEXT * usr,
+					TEXT * psw, TEXT * numbufs, TEXT * sql_role_nm)
+{
+/**************************************
+ *
+ *	n e w d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change the current database from what it was.
+ *	This procedure is called when we first enter this program.
+ *  
+ *	Parameters:	dbname      -- Name of database to open
+ *			usr         -- user name, if given
+ *			psw         -- password, if given
+ *			numbufs     -- # of connection cache buffers, if given
+ *			sql_role_nm -- sql role name
+ *  
+ **************************************/
+	UCHAR *dpb, *dpb_buffer;
+	SCHAR *save_database;
+	int dpb_len;
+	SSHORT l, i, cnt;
+	UCHAR *p, *p1, *p2;
+	TEXT end_quote;
+	BOOLEAN delimited_done = FALSE;
+	TEXT *local_psw, *local_usr, *local_name, *local_sql_role;
+	TEXT local_numbufs[BUFFER_LENGTH128];
+	TEXT *errbuf;
+
+/* No name of a database, just return an error */
+
+	if (!dbname || !*dbname)
+		return ERR;
+
+/* 
+ * Since the dbname is set already, in the case where a database is specified
+ * on the command line, we need to save it so ISQL_disconnect does not NULL it
+ * out.  We will restore it after the disconnect.  The save_database buffer
+ * will also be used to translate dbname to the proper character set.
+*/
+	save_database = (SCHAR *) ISQL_ALLOC(strlen(dbname) + 1);
+	if (!save_database)
+		return (ERR);
+
+	strcpy(save_database, dbname);
+	ISQL_disconnect_database(FALSE);
+	strcpy(dbname, save_database);
+
+	errbuf = (TEXT *) ISQL_ALLOC(MSG_LENGTH);
+	if (!errbuf)
+		return ERR;
+	local_psw = (TEXT *) ISQL_ALLOC(BUFFER_LENGTH128);
+	if (!local_psw) {
+		ISQL_FREE(save_database);
+		ISQL_FREE(errbuf);
+		return ERR;
+	}
+	local_usr = (TEXT *) ISQL_ALLOC(BUFFER_LENGTH128);
+	if (!local_usr) {
+		ISQL_FREE(save_database);
+		ISQL_FREE(errbuf);
+		ISQL_FREE(local_psw);
+		return ERR;
+	}
+	local_sql_role = (TEXT *) ISQL_ALLOC(BUFFER_LENGTH128);
+	if (!local_sql_role) {
+		ISQL_FREE(save_database);
+		ISQL_FREE(errbuf);
+		ISQL_FREE(local_psw);
+		ISQL_FREE(local_usr);
+		return ERR;
+	}
+	dpb_buffer = (UCHAR *) ISQL_ALLOC(BUFFER_LENGTH256);
+	if (!dpb_buffer) {
+		ISQL_FREE(save_database);
+		ISQL_FREE(errbuf);
+		ISQL_FREE(local_psw);
+		ISQL_FREE(local_usr);
+		ISQL_FREE(local_sql_role);
+		return ERR;
+	}
+
+#ifdef DEBUG_GDS_ALLOC
+	gds_alloc_flag_unfreed((void *) errbuf);
+	gds_alloc_flag_unfreed((void *) local_psw);
+	gds_alloc_flag_unfreed((void *) local_usr);
+	gds_alloc_flag_unfreed((void *) local_sql_role);
+	gds_alloc_flag_unfreed((void *) dpb_buffer);
+#endif
+
+/* global user and passwords are set only if they are not originally set */
+
+	local_psw[0] = 0;
+	local_usr[0] = 0;
+	local_sql_role[0] = 0;
+	local_numbufs[0] = '\0';
+
+/* Strip quotes if well-intentioned */
+
+	strip_quotes(dbname, Db_name);
+	strip_quotes(usr, local_usr);
+	strip_quotes(psw, local_psw);
+	strip_quotes(numbufs, local_numbufs);
+
+/* if local user is not specified, see if global options are
+   specified - don't let a global role setting carry forward if a
+   specific local user was specified  */
+
+/* Special handling for SQL Roles:
+ *     V5  client -- strip the quotes
+ *     V6  client -- pass the role name as it is
+ */
+
+	if (sql_role_nm) {
+		if (SQL_dialect == SQL_DIALECT_V5)
+			strip_quotes(sql_role_nm, local_sql_role);
+		else
+			strcpy(local_sql_role, sql_role_nm);
+	}
+
+	if (!(strlen(local_sql_role)) && global_role) {
+		if (SQL_dialect == SQL_DIALECT_V5)
+			strip_quotes(Role, local_sql_role);
+		else
+			strcpy(local_sql_role, Role);
+	}
+
+	if (!(strlen(local_usr)) && global_usr)
+		strcpy(local_usr, User);
+
+	if (!(strlen(local_psw)) && global_psw)
+		strcpy(local_psw, Password);
+
+	if (!(strlen(local_numbufs)) && global_numbufs)
+		strcpy(local_numbufs, Numbufs);
+
+/* Build up a dpb */
+
+	dpb = dpb_buffer;
+	*dpb++ = gds__dpb_version1;
+
+	if (*ISQL_charset && strcmp(ISQL_charset, DEFCHARSET)) {
+		*dpb++ = gds__dpb_lc_ctype;
+		p = (UCHAR *) ISQL_charset;
+		*dpb++ = strlen(p);
+		while (*p)
+			*dpb++ = *p++;
+	}
+
+	if (l = strlen(local_usr)) {
+		*dpb++ = gds__dpb_user_name;
+		*dpb++ = l;
+		p = (UCHAR *) local_usr;
+		while (*p)
+			*dpb++ = *p++;
+	}
+
+	if (l = strlen(local_psw)) {
+		*dpb++ = gds__dpb_password;
+		*dpb++ = l;
+		p = (UCHAR *) local_psw;
+		while (*p)
+			*dpb++ = *p++;
+	}
+
+	if (l = strlen(local_sql_role)) {
+		STUFF(isc_dpb_sql_dialect);
+		STUFF(4);
+		STUFF_INT(SQL_dialect);
+		*dpb++ = isc_dpb_sql_role_name;
+		*dpb++ = l;
+		p = (UCHAR *) local_sql_role;
+		while (*p)
+			*dpb++ = *p++;
+	}
+
+	if (l = strlen(local_numbufs)) {
+		i = atoi(local_numbufs);
+		STUFF(isc_dpb_num_buffers);
+		STUFF(4);
+		STUFF_INT(i);
+	}
+
+	dpb_len = (dpb - dpb_buffer);
+	dpb = dpb_buffer;
+	if (dpb_len < 2) {
+		dpb = NULL;
+		dpb_len = 0;
+	}
+
+	local_name = Db_name;
+
+#if defined (WIN95) && !defined (GUI_TOOLS)
+	if (!fAnsiCP) {
+		local_name = save_database;
+		OemToAnsi(Db_name, local_name);
+	}
+#endif
+	if (isc_attach_database
+		(isc_status, 0, local_name, &DB, dpb_len, (SCHAR *) dpb)) {
+		ISQL_errmsg(isc_status);
+		Db_name[0] = '\0';
+		if (save_database)
+			ISQL_FREE(save_database);
+		if (local_psw)
+			ISQL_FREE(local_psw);
+		if (local_usr)
+			ISQL_FREE(local_usr);
+		if (local_sql_role)
+			ISQL_FREE(local_sql_role);
+		if (dpb_buffer)
+			ISQL_FREE(dpb_buffer);
+		if (errbuf)
+			ISQL_FREE(errbuf);
+		return FAIL;
+	}
+
+	ISQL_get_version(FALSE);
+
+	if (*local_sql_role) {
+		switch (SQL_dialect) {
+		case SQL_DIALECT_V5:
+			/* Uppercase the Sql Role name */
+			for (p1 = local_sql_role, p2 = local_sql_role;
+				 *p1++ = UPPER7(*p2); p2++);
+			break;
+		case SQL_DIALECT_V6_TRANSITION:
+		case SQL_DIALECT_V6:
+			if (*local_sql_role == DBL_QUOTE
+				|| *local_sql_role == SINGLE_QUOTE) {
+				p1 = p2 = local_sql_role;
+				cnt = 1;
+				delimited_done = FALSE;
+				end_quote = *p1++;
+				/*
+				   ** remove the delimited quotes and escape quote from ROLE name
+				 */
+				while (*p1 && !delimited_done && cnt < BUFFER_LENGTH128 - 1) {
+					if (*p1 == end_quote) {
+						cnt++;
+						*p2++ = *p1++;
+						if (*p1 && *p1 == end_quote
+							&& cnt < BUFFER_LENGTH128 - 1)
+							*p1++;	/* skip the escape quote here */
+						else {
+							delimited_done = TRUE;
+							p2--;
+						}
+					}
+					else {
+						cnt++;
+						*p2++ = *p1++;
+					}
+				}
+				*p2 = '\0';
+			}
+			else {
+				for (p1 = local_sql_role, p2 = local_sql_role;
+					 *p1++ = UPPER7(*p2); p2++);
+			}
+			break;
+		default:
+			break;
+		}
+	}
+
+#ifndef GUI_TOOLS
+	if (local_usr[0] != '\0') {
+		if (local_sql_role[0] != '\0') {
+			sprintf(Print_buffer, "Database:  %s, User: %s, Role: %s%s",
+					dbname, local_usr, local_sql_role, NEWLINE);
+		}
+		else {
+			sprintf(Print_buffer, "Database:  %s, User: %s%s",
+					dbname, local_usr, NEWLINE);
+		}
+		ISQL_printf(Out, Print_buffer);
+	}
+	else {
+		if (local_sql_role[0] != '\0') {
+			sprintf(Print_buffer, "Database:  %s, Role:  %s%s",
+					dbname, local_sql_role, NEWLINE);
+		}
+		else {
+			sprintf(Print_buffer, "Database:  %s%s", dbname, NEWLINE);
+		}
+		ISQL_printf(Out, Print_buffer);
+	}
+#endif
+
+	if (!V4 && !V33) {
+		gds__msg_format(NULL_PTR, ISQL_MSG_FAC, SERVER_TOO_OLD, MSG_LENGTH,
+						errbuf, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR,
+						NULL_PTR);
+		STDERROUT(errbuf, 1);
+		isc_detach_database(isc_status, &DB);
+		DB = 0;
+		Db_name[0] = '\0';
+		Stmt = 0;
+		if (save_database)
+			ISQL_FREE(save_database);
+		if (local_psw)
+			ISQL_FREE(local_psw);
+		if (local_usr)
+			ISQL_FREE(local_usr);
+		if (dpb_buffer)
+			ISQL_FREE(dpb_buffer);
+		if (errbuf)
+			ISQL_FREE(errbuf);
+		return FAIL;
+	}
+
+/* Start the user transaction  and default transaction */
+
+	if (!M__trans) {
+		if (isc_start_transaction
+			(isc_status, &M__trans, 1, &DB, 0,
+			 (SCHAR *) 0)) ISQL_errmsg(isc_status);
+		if (D__trans)
+			COMMIT_TRANS(&D__trans);
+		if (isc_start_transaction(isc_status, &D__trans, 1, &DB,
+								  (V4) ? 5 : 0, (V4) ? default_tpb : NULL))
+			ISQL_errmsg(isc_status);
+	}
+
+
+/* Allocate a new user statement for ths database */
+
+	Stmt = 0;
+	if (isc_dsql_allocate_statement(isc_status, &DB, &Stmt)) {
+		ISQL_errmsg(isc_status);
+		if (M__trans)
+			end_trans();
+		if (D__trans)
+			COMMIT_TRANS(&D__trans);
+		isc_detach_database(isc_status, &DB);
+		DB = 0;
+		Db_name[0] = '\0';
+		M__trans = NULL;
+		D__trans = NULL;
+		if (save_database)
+			ISQL_FREE(save_database);
+		if (local_psw)
+			ISQL_FREE(local_psw);
+		if (local_usr)
+			ISQL_FREE(local_usr);
+		if (dpb_buffer)
+			ISQL_FREE(dpb_buffer);
+		if (errbuf)
+			ISQL_FREE(errbuf);
+		return FAIL;
+	}
+
+	if (save_database)
+		ISQL_FREE(save_database);
+	if (local_psw)
+		ISQL_FREE(local_psw);
+	if (local_usr)
+		ISQL_FREE(local_usr);
+	if (local_sql_role)
+		ISQL_FREE(local_sql_role);
+	if (dpb_buffer)
+		ISQL_FREE(dpb_buffer);
+	if (errbuf)
+		ISQL_FREE(errbuf);
+	return (SKIP);
+}
+
+
+static SSHORT newoutput( TEXT * outfile)
+{
+/**************************************
+ *
+ *	n e w o u t p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change the current output file 
+ *
+ *	Parameters:  outfile : Name of file to receive query output
+ *
+ **************************************/
+	IB_FILE *fp;
+	TEXT *errbuf;
+	int ret;
+	TEXT path[MAXPATHLEN];
+
+	ret = SKIP;
+/* If there is a file name, attempt to open it for append */
+
+	if (*outfile) {
+		strip_quotes(outfile, path);
+		outfile = path;
+#ifdef GUI_TOOLS
+		if (fp = ib_fopen(outfile, "w"))
+#else
+		if (fp = ib_fopen(outfile, "a"))
+#endif
+		{
+			if (Out && Out != ib_stdout)
+				ib_fclose(Out);
+			Out = fp;
+#ifndef GUI_TOOLS
+			if (Merge_stderr)
+				Errfp = Out;
+#else
+			if (Merge_stderr) {
+				Errfp = Out;
+				Diag = Out;
+				Help = Out;
+			}
+#endif
+		}
+		else {
+			errbuf = (TEXT *) ISQL_ALLOC(MSG_LENGTH);
+			if (errbuf) {
+				gds__msg_format(NULL_PTR,
+								ISQL_MSG_FAC,
+								FILE_OPEN_ERR,
+								MSG_LENGTH,
+								errbuf,
+								outfile,
+								NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+				STDERROUT(errbuf, 1);
+				ISQL_FREE(errbuf);
+			}
+			ret = FAIL;
+		}
+	}
+	else {
+#ifndef GUI_TOOLS
+		/* Revert to ib_stdout */
+		if (Out != ib_stdout) {
+			ib_fclose(Out);
+			Out = ib_stdout;
+			if (Merge_stderr)
+				Errfp = Out;
+		}
+#else
+		if (SaveOutfileName) {
+			if (fp = ib_fopen(SaveOutfileName, "a")) {
+				ib_fclose(Out);
+				Out = fp;
+				if (Merge_stderr) {
+					Errfp = Out;
+					Diag = Out;
+					Help = Out;
+				}
+			}
+			else {
+				errbuf = (TEXT *) ISQL_ALLOC(MSG_LENGTH);
+				if (errbuf) {
+					gds__msg_format(NULL_PTR,
+									ISQL_MSG_FAC,
+									FILE_OPEN_ERR,
+									MSG_LENGTH,
+									errbuf,
+									SaveOutfileName,
+									NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+					STDERROUT(errbuf, 1);
+					ISQL_FREE(errbuf);
+				}
+				ret = FAIL;
+			}
+		}
+#endif
+	}
+	return (ret);
+}
+
+
+static SSHORT newtrans( TEXT * statement)
+{
+/**************************************
+ *
+ *	n e w t r a n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Intercept and handle a set transaction statement by zeroing M__trans
+ *  
+ *	Leave the default transaction, gds__trans, alone
+ *	Parameters:  The statement in its entirety
+ *
+ **************************************/
+
+	if (!ISQL_dbcheck())
+		return FAIL;
+
+	if (end_trans())
+		return FAIL;
+
+	M__trans = NULL;
+
+/* M__trans = 0 after the commit or rollback. ready for a new transaction */
+
+	if (isc_dsql_execute_immediate(isc_status, &DB, &M__trans, 0, statement,
+								   SQL_dialect, (XSQLDA *) 0)) {
+		ISQL_errmsg(isc_status);
+		return FAIL;
+	}
+
+	return SKIP;
+}
+
+
+static SSHORT parse_arg(
+						int argc,
+						SCHAR ** argv, SCHAR * tabname, IB_FILE ** sess)
+{
+/**************************************
+ *
+ *	p a r s e _ a r g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse command line flags 
+ *	All flags except database are -X.  Look for
+ *	the - and make it so.
+ *
+ **************************************/
+	int c, lgth, ret = SKIP;
+	SCHAR *s, switchchar;
+	TEXT *errbuf;
+	SSHORT i;
+#ifdef	DEV_BUILD
+	BOOLEAN istable = FALSE;
+#endif
+
+	errbuf = (TEXT *) ISQL_ALLOC(MSG_LENGTH);
+	if (!errbuf)
+		return (ERR);
+
+	switchchar = '-';
+
+/* Initialize database name */
+
+	*Db_name = '\0';
+	*Target_db = '\0';
+	Password[0] = '\0';
+	User[0] = '\0';
+	Role[0] = '\0';
+	Numbufs[0] = 0;
+	Quiet = FALSE;
+	Exit_value = FINI_OK;
+
+	/* 
+	   ** default behavior in V6.0 is SQL_DIALECT_V6 
+	 */
+
+	requested_SQL_dialect = SQL_DIALECT_V6;
+
+#ifdef GUI_TOOLS
+	Merge_stderr = TRUE;
+#else
+	Merge_stderr = FALSE;
+#endif
+
+#if defined (WIN95) && !defined (GUI_TOOLS)
+#define STRARGCPY(dest, src) fAnsiCP ? strcpy(dest, src) : AnsiToOem(src, dest)
+#define STRARGNCPY(dest, src, len) fAnsiCP ? strncpy(dest, src, len) : AnsiToOemBuff(src, dest, len)
+#else
+#define STRARGCPY	strcpy
+#define STRARGNCPY	strncpy
+#endif
+
+	lgth = strlen(DEFCHARSET);
+	if (lgth <= MAXCHARSET_LENGTH)
+		strcpy(ISQL_charset, DEFCHARSET);
+	else
+		strncpy(ISQL_charset, DEFCHARSET, MAXCHARSET_LENGTH);
+
+/* redirected ib_stdin means act like -i was set */
+
+	Ifp = ib_stdin;
+
+/* Terminators  are initialized */
+
+	Termlen = strlen(DEFTERM);
+	if (Termlen <= MAXTERM_LENGTH)
+		strcpy(Term, DEFTERM);
+	else {
+		Termlen = MAXTERM_LENGTH;
+		strncpy(Term, DEFTERM, MAXTERM_LENGTH);
+	}
+
+/* Initialize list of input file pointers */
+
+	Filelist = 0;
+
+/* Interpret each command line argument */
+
+	i = 1;
+	s = argv[i];
+	while (i < argc) {
+		/* Look at flags to find unique match.  If the flag has an arg,
+		   ** advance the pointer (and i).  Only change the return value
+		   ** for extract switch or error.
+		 */
+		if (*s == switchchar) {
+			c = UPPER(s[1]);
+			if (c == 'X' || (c == 'E' && UPPER(s[2]) == 'X')) {
+#ifdef DEV_BUILD
+				if (UPPER(s[2]) == 'T')
+					istable = TRUE;
+#endif
+				ret = EXTRACT;
+			}
+			else if (c == 'A')
+				ret = EXTRACTALL;
+			else if (c == 'E')
+				Echo = TRUE;
+			else if (c == 'M')
+				Merge_stderr = TRUE;
+			else if (c == 'N' && UPPER(s[2]) == 'O' && UPPER(s[3]) == 'W')
+				Warnings = FALSE;
+			else if (c == 'N' &&
+					 (!s[2] || (UPPER(s[2]) == 'O' && !s[3]) ||
+					  (UPPER(s[2]) == 'O' && UPPER(s[3]) == 'A')))
+				Autocommit = FALSE;
+			else if (c == 'O') {
+				/* Alternate output file */
+
+				if ((s = argv[++i]) && (newoutput(s) != FAIL))
+#ifdef GUI_TOOLS
+				{
+					/* Save original output file for WINDOWS ISQL */
+					SaveOutfileName = NULL;
+					SaveOutfileName = (TEXT *) ISQL_ALLOC(strlen(s) + 1);
+					STRARGCPY(SaveOutfileName, s);
+				}
+#else
+					;
+#endif
+				else
+					ret = ERR;
+			}
+			else if (c == 'I') {
+				/* Alternate input file */
+
+				if ((s = argv[++i]) && (input(s) != FAIL));
+				else
+					ret = ERR;
+				Interactive = FALSE;
+				Input_file = TRUE;
+			}
+			else if (c == 'T') {
+				/* The next string is the proposed terminator */
+
+				if ((s = argv[++i]) && *s) {
+					Termlen = strlen(s);
+					if (Termlen <= MAXTERM_LENGTH)
+						STRARGCPY(Term, s);
+					else {
+						Termlen = MAXTERM_LENGTH;
+						STRARGNCPY(Term, s, MAXTERM_LENGTH);
+					}
+				}
+				else
+					ret = ERR;
+			}
+			else if (c == 'D') {
+				/* advance to the next word for target db name */
+
+				if ((s = argv[++i]) && *s)
+					STRARGCPY(Target_db, s);
+				else
+					ret = ERR;
+			}
+			else if (c == 'P' && UPPER(s[2]) == 'A' && UPPER(s[3]) == 'G') {
+				/* Change the page length */
+
+				if ((s = argv[++i]) && (Pagelength = atoi(s)));
+				else
+					ret = ERR;
+			}
+			/* This has to be after "PAGE" */
+			else if (c == 'P') {
+				if ((s = argv[++i]) && *s) {
+					STRARGCPY(Password, s);
+					global_psw = TRUE;
+				}
+				else
+					ret = ERR;
+			}
+			else if (c == 'U') {
+				if ((s = argv[++i]) && *s) {
+					STRARGCPY(User, s);
+					global_usr = TRUE;
+				}
+				else
+					ret = ERR;
+			}
+			else if (c == 'R') {
+				if ((s = argv[++i]) && *s) {
+					STRARGCPY(Role, s);
+					global_role = TRUE;
+				}
+				else
+					ret = ERR;
+			}
+			else if (c == 'C') {	/* number of cache buffers */
+				if ((s = argv[++i]) && *s) {
+					STRARGCPY(Numbufs, s);
+					global_numbufs = TRUE;
+				}
+				else
+					ret = ERR;
+			}
+
+#ifdef GUI_TOOLS
+			/* Get the WISQL specific session file */
+			else if (c == 'S') {
+				command line option '-s' is reserved for '-s[qldialect] n' Bie
+					Tie
+					/* Set up WISQL session file */
+				if (s = argv[++i])
+					*sess = (IB_FILE *) s;
+				else
+					ret = ERR;
+			}
+#endif
+			else if (c == 'Q')
+				/* Quiet flag */
+				Quiet = TRUE;
+			else if (c == 'Z') {
+				gds__msg_format(NULL_PTR, ISQL_MSG_FAC, VERSION, MSG_LENGTH,
+								errbuf, GDS_VERSION, NULL_PTR, NULL_PTR,
+								NULL_PTR, NULL_PTR);
+
+				sprintf(Print_buffer, "%s%s", errbuf, NEWLINE);
+				ISQL_printf(Out, Print_buffer);
+			}
+			else if (c == 'S') {
+				/* SQL_dialect value */
+				if ((s = argv[++i]) && (requested_SQL_dialect = atoi(s))) {
+					if (requested_SQL_dialect < SQL_DIALECT_V5 ||
+						requested_SQL_dialect > SQL_DIALECT_CURRENT)
+						ret = ERR;
+					else {
+						/* requested_SQL_dialect is used to specify the database dialect
+						 * if SQL dialect was not specified.  Since it is possible to
+						 * have a client dialect of 2, force the database dialect to 3, but
+						 * leave the client dialect as 2
+						 */
+						SQL_dialect = requested_SQL_dialect;
+						if (requested_SQL_dialect ==
+							SQL_DIALECT_V6_TRANSITION) {
+							Merge_stderr = TRUE;
+							requested_SQL_dialect = SQL_DIALECT_V6;
+						}
+					}
+				}
+				else
+					ret = ERR;
+			}
+			else {				/* This is an unknown flag */
+
+				gds__msg_format(NULL_PTR, ISQL_MSG_FAC, SWITCH, MSG_LENGTH,
+								errbuf, s + 1, NULL_PTR, NULL_PTR, NULL_PTR,
+								NULL_PTR);
+				STDERROUT(errbuf, 1);
+				ret = ERR;
+			}
+		}
+		else
+			/* This is not a switch, it is a db_name */
+		{
+			STRARGCPY(Db_name, s);
+#ifdef DEV_BUILD
+			/* If there is a table name, it follows */
+			if (istable && (s = argv[++i]) && *s)
+				STRARGCPY(tabname, s);
+#endif
+		}
+
+
+		/* Quit the loop of interpreting if we got an error */
+
+		if (ret == ERR)
+			break;
+		s = argv[++i];
+	}
+
+/* If not input, then set up first filelist */
+
+	if (Ifp == ib_stdin) {
+		Filelist = (INDEV) ISQL_ALLOC((SLONG) sizeof(struct indev));
+		Filelist->indev_fpointer = Ifp;
+		Filelist->indev_next = NULL;
+#ifdef DEBUG_GDS_ALLOC
+		gds_alloc_flag_unfreed((void *) Filelist);
+#endif
+	}
+	if (errbuf)
+		ISQL_FREE(errbuf);
+
+	return (ret);
+#undef STRARGCPY
+#undef STRARGNCPY
+}
+
+
+static SSHORT print_item( TEXT ** s, XSQLVAR * var, SLONG printlength)
+{
+/**************************************
+ *
+ *	p r i n t _ i t e m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print an SQL data item as described.
+ *
+ **************************************/
+	TEXT *p, *string, *t;
+	TEXT d[32];
+	VARY *vary;
+	SSHORT dtype;
+	SSHORT dscale;
+	struct tm times;
+	SLONG length;
+	double numeric, exponent;
+	ISC_QUAD blobid;
+	TEXT blobbuf[30];
+
+	p = *s;
+	*p = '\0';
+
+	dtype = var->sqltype & ~1;
+	dscale = var->sqlscale;
+
+/* The printlength should have in it the right length */
+
+	length = printlength;
+
+	if (List) {
+		sprintf(Print_buffer, "%-31s ", ISQL_blankterm(var->aliasname));
+		ISQL_printf(Out, Print_buffer);
+	}
+
+	if ((var->sqltype & 1) && (*var->sqlind < 0)) {
+		/* If field was missing print <null> */
+
+		if (List) {
+			sprintf(Print_buffer, "<null>%s", NEWLINE);
+			ISQL_printf(Out, Print_buffer);
+		}
+
+		if ((dtype == SQL_TEXT) || (dtype == SQL_VARYING))
+			sprintf(p, "%-*s ", (int) length, "<null>");
+		else
+			sprintf(p, "%*s ", (int) length, "<null>");
+	}
+	else if (!strncmp(var->sqlname, "DB_KEY", 6)) {
+		/* Special handling for db_keys  printed in hex */
+
+		/* Keep a temp buf, d for building the binary string */
+
+		for (t = var->sqldata; t < var->sqldata + var->sqllen; t += 4) {
+			if (List) {
+				sprintf(Print_buffer, "%.8X", *(SLONG *) t);
+				ISQL_printf(Out, Print_buffer);
+			}
+			else {
+				sprintf(d, "%.8X", *(SLONG *) t);
+				strcat(p, d);
+			}
+		}
+		if (List)
+			ISQL_printf(Out, NEWLINE);
+		else
+			strcat(p, " ");
+	}
+	else {
+		switch (dtype) {
+		case SQL_ARRAY:
+
+			/* Print blob-ids only here */
+
+			blobid = *(ISC_QUAD *) var->sqldata;
+			sprintf(blobbuf, "%x:%x", blobid.gds_quad_high,
+					blobid.gds_quad_low);
+			sprintf(p, "%17s ", blobbuf);
+			break;
+		case SQL_BLOB:
+
+			/* Print blob-ids only here */
+
+			blobid = *(ISC_QUAD *) var->sqldata;
+			sprintf(blobbuf, "%x:%x", blobid.gds_quad_high,
+					blobid.gds_quad_low);
+			sprintf(p, "%17s ", blobbuf);
+			if (List) {
+				ISQL_printf(Out, blobbuf);
+				ISQL_printf(Out, NEWLINE);
+				dtype = print_item_blob(Out, var, M__trans);
+				ISQL_printf(Out, NEWLINE);
+			}
+			break;
+
+		case SQL_SHORT:
+		case SQL_LONG:
+		case SQL_INT64:
+			{
+				TEXT str_buf[30];
+				SINT64 value;
+
+				if (dtype == SQL_SHORT)
+					value = (SINT64) (*(SSHORT *) (var->sqldata));
+				else if (dtype == SQL_LONG)
+					value = (SINT64) (*(SLONG *) (var->sqldata));
+				else if (dtype == SQL_INT64)
+					value = *(SINT64 *) (var->sqldata);
+
+				print_item_numeric(value, length, dscale, str_buf);
+				sprintf(p, "%s ", str_buf);
+				if (List) {
+					/* Added 1999-03-23 to left-justify in LIST ON mode */
+					{
+						TEXT *src = str_buf, *dest = str_buf;
+						while (' ' == *src)
+							src++;
+						/* This is pretty much the same thing as a strcpy,
+						   but strcpy is not guaranteed to do the right thing
+						   when the source and destination overlap. :-( */
+						if (src != dest)
+							while (0 != (*dest++ = *src++));	/* empty */
+					}
+					sprintf(Print_buffer, "%s%s", str_buf, NEWLINE);
+					ISQL_printf(Out, Print_buffer);
+				}
+				break;
+			}
+
+#ifdef NATIVE_QUAD
+		case SQL_QUAD:
+			if (dscale) {
+				/* Handle floating scale and precision */
+
+				numeric = *(SQUAD *) (var->sqldata);
+				exponent = -dscale;
+				numeric = numeric / pow(10.0, exponent);
+				sprintf(p, "%*.*f ", (int) length, (int) -dscale, numeric);
+				if (List) {
+					sprintf(Print_buffer, "%.*f%s",
+							(int) -dscale, numeric, NEWLINE);
+					ISQL_printf(Out, Print_buffer);
+				}
+			}
+			else {
+				sprintf(p, "%*ld ", (int) length, *(SQUAD *) (var->sqldata));
+				if (List) {
+					sprintf(Print_buffer, "%ld%s",
+							*(SQUAD *) var->sqldata, NEWLINE);
+					ISQL_printf(Out, Print_buffer);
+				}
+			}
+			break;
+#endif
+
+		case SQL_FLOAT:
+			sprintf(p, "% #*.*g ",
+					(int) length,
+					(int) MIN(8, (length - 6)),
+					(double) *(float *) (var->sqldata));
+			if (List) {
+				sprintf(Print_buffer, "%.*g%s",
+						FLOAT_LEN - 6, *(float *) (var->sqldata), NEWLINE);
+				ISQL_printf(Out, Print_buffer);
+			}
+			break;
+
+		case SQL_DOUBLE:
+			/* Don't let numeric/decimal doubles overflow print length */
+			/* Special handling for 0 -- don't test log for length */
+			if ((!*var->sqldata && dscale)
+				|| (dscale
+					&& log10(fabs(*(double *) (var->sqldata))) <
+					length + dscale)) {
+				sprintf(p, "%*.*f ", (int) length, (int) -dscale,
+						*(double *) (var->sqldata));
+				if (List) {
+					sprintf(Print_buffer, "%.*f%s",
+							(int) -dscale,
+							*(double *) (var->sqldata), NEWLINE);
+					ISQL_printf(Out, Print_buffer);
+				}
+			}
+			else {
+				sprintf(p, "% #*.*g ", (int) length,
+						(int) MIN(16, (int) (length - 7)),
+						*(double *) (var->sqldata));
+				if (List) {
+					sprintf(Print_buffer, "%#.*g%s",
+							DOUBLE_LEN - 7,
+							*(double *) (var->sqldata), NEWLINE);
+					ISQL_printf(Out, Print_buffer);
+				}
+			}
+			break;
+
+		case SQL_TEXT:
+			string = var->sqldata;
+			string[var->sqllen] = '\0';
+			/* See if it is character set OCTETS */
+			if (var->sqlsubtype == 1) {
+				USHORT i;
+				TEXT *buff2 = ISQL_ALLOC(2 * var->sqllen + 1);
+				/* Convert the string to hex digits */
+				for (i = 0; i < var->sqllen; i++) {
+					sprintf(&buff2[i * 2], "%02X", string[i]);
+				}
+				buff2[(2 * var->sqllen + 1) - 1] = 0;
+				if (List) {
+					ISQL_printf(Out, buff2);
+					ISQL_printf(Out, NEWLINE);
+				}
+				else
+					sprintf(p, "%s ", buff2);
+				ISQL_FREE(buff2);
+			}
+			else if (List) {
+				ISQL_printf(Out, string);
+				ISQL_printf(Out, NEWLINE);
+			}
+			else {
+				/* Truncate if necessary */
+				if (length < var->sqllen)
+					string[length] = '\0';
+				sprintf(p, "%-*s ", (int) length, var->sqldata);
+			}
+			break;
+
+		case SQL_TIMESTAMP:
+			isc_decode_date(var->sqldata, &times);
+
+			if (SQL_dialect > SQL_DIALECT_V5) {
+				sprintf(d, "%4.4d-%2.2d-%2.2d %2.2d:%2.2d:%2.2d.%4.4d",
+						times.tm_year + 1900, (times.tm_mon + 1),
+						times.tm_mday, times.tm_hour, times.tm_min,
+						times.tm_sec,
+						((ULONG *) var->sqldata)[1] %
+						ISC_TIME_SECONDS_PRECISION);
+			}
+			else {
+				if (Time_display)
+					sprintf(d, "%2d-%s-%4d %2.2d:%2.2d:%2.2d.%4.4d",
+							times.tm_mday, alpha_months[times.tm_mon],
+							times.tm_year + 1900, times.tm_hour, times.tm_min,
+							times.tm_sec,
+							((ULONG *) var->sqldata)[1] %
+							ISC_TIME_SECONDS_PRECISION);
+				else
+					sprintf(d, "%2d-%s-%4d", times.tm_mday,
+							alpha_months[times.tm_mon], times.tm_year + 1900);
+			}
+
+			sprintf(p, "%-*s ", (int) length, d);
+			if (List) {
+				sprintf(Print_buffer, "%s%s", d, NEWLINE);
+				ISQL_printf(Out, Print_buffer);
+			}
+			break;
+
+		case SQL_TYPE_TIME:
+			{
+				/* Temporarily convert the Time to a Time & Date in order
+				   to use isc_decode_date () */
+
+				ULONG time_and_date[2];
+				time_and_date[0] = 0;
+				time_and_date[1] = *(ULONG *) var->sqldata;
+				isc_decode_date(time_and_date, &times);
+				sprintf(d, "%2.2d:%2.2d:%2.2d.%4.4d",
+						times.tm_hour, times.tm_min, times.tm_sec,
+						(*(ULONG *) var->sqldata) %
+						ISC_TIME_SECONDS_PRECISION);
+				sprintf(p, "%-*s ", (int) length, d);
+				if (List) {
+					sprintf(Print_buffer, "%s%s", d, NEWLINE);
+					ISQL_printf(Out, Print_buffer);
+				}
+			}
+			break;
+
+		case SQL_TYPE_DATE:
+			{
+				/* Temporarily convert the Time to a Time & Date in order
+				   to use isc_decode_date () */
+
+				ULONG time_and_date[2];
+				time_and_date[0] = *(ULONG *) var->sqldata;
+				time_and_date[1] = 0;
+				isc_decode_date(time_and_date, &times);
+
+				sprintf(d, "%4.4d-%2.2d-%2.2d", times.tm_year + 1900,
+						(times.tm_mon + 1), times.tm_mday);
+
+				sprintf(p, "%-*s ", (int) length, d);
+				if (List) {
+					sprintf(Print_buffer, "%s%s", d, NEWLINE);
+					ISQL_printf(Out, Print_buffer);
+				}
+			}
+			break;
+
+		case SQL_VARYING:
+			vary = (VARY *) var->sqldata;
+
+			/* Note: we allocated the dataspace 1 byte larger already */
+			vary->vary_string[vary->vary_length] = 0;
+
+			if (List) {
+				ISQL_printf(Out, vary->vary_string);
+				ISQL_printf(Out, NEWLINE);
+			}
+			else {
+				/* Truncate if necessary */
+				if (length < vary->vary_length)
+					vary->vary_length = length;
+				sprintf(p, "%-*.*s ", (int) length, (int) vary->vary_length,
+						vary->vary_string);
+			}
+			break;
+
+		default:
+			sprintf(d, "Unknown type: %d", dtype);
+			sprintf(p, "%-*s ", (int) length, d);
+			if (List) {
+				sprintf(Print_buffer, "%s%s", d, NEWLINE);
+				ISQL_printf(Out, Print_buffer);
+			}
+			break;
+		}
+	}
+
+	while (*p)
+		++p;
+
+	*s = p;
+
+	return (dtype);
+}
+
+
+static int print_item_blob( IB_FILE * fp, XSQLVAR * var, void *trans)
+{
+/**************************************
+ *
+ *	p r i n t _ i t e m _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a User Selected BLOB field (as oppposed to
+ *	any BLOB selected in a show or extract command)
+ *
+ **************************************/
+	void *blob;
+	USHORT length, bpb_length;
+	UCHAR *buffer, *b;
+	UCHAR bpb_buffer[64];
+	TEXT *msg;
+	UCHAR *bpb;
+	ISC_BLOB_DESC from_desc, to_desc;
+	ISC_QUAD *blobid;
+
+	buffer = (UCHAR *) ISQL_ALLOC((SLONG) BUFFER_LENGTH512);
+	if (!buffer)
+		return ERR;
+	msg = (TEXT *) ISQL_ALLOC((SLONG) MSG_LENGTH);
+	if (!msg) {
+		ISQL_FREE(buffer);
+		return ERR;
+	}
+
+	bpb_length = 0;
+	bpb = NULL;
+	blobid = (ISC_QUAD *) var->sqldata;
+
+/* Don't bother with null blobs */
+
+	if (blobid->gds_quad_high == 0 && blobid->gds_quad_low == 0)
+		return CONT;
+
+	if ((var->sqlsubtype != Doblob) && (Doblob != ALL_BLOBS)) {
+		ISQL_msg_get(BLOB_SUBTYPE, msg, (TEXT *) Doblob,
+					 (TEXT *) var->sqlsubtype, NULL, NULL, NULL);
+		/* Blob display set to subtype %d. This blob: subtype = %d\n */
+		ISQL_printf(fp, msg);
+		if (buffer)
+			ISQL_FREE(buffer);
+		if (msg)
+			ISQL_FREE(msg);
+		return CONT;
+	}
+
+	switch (var->sqlsubtype) {
+	case BLOB_text:
+		/* Lookup the remaining descriptor information for the BLOB field,
+		 * most specifically we're interested in the Character Set so
+		 * we can set up a BPB that requests character set transliteration
+		 */
+		if (!isc_blob_lookup_desc
+			(isc_status, &DB, &trans, var->relname, var->sqlname, &from_desc,
+			 NULL)) {
+			isc_blob_default_desc(&to_desc, var->relname, var->sqlname);
+			if (!isc_blob_gen_bpb
+				(isc_status, &to_desc, &from_desc, sizeof(bpb_buffer),
+				 bpb_buffer, &bpb_length)) bpb = bpb_buffer;
+		}
+		break;
+	case BLOB_blr:
+		bpb = blr_bpb;
+		bpb_length = sizeof(blr_bpb);
+		break;
+	case BLOB_acl:
+		bpb = acl_bpb;
+		bpb_length = sizeof(acl_bpb);
+		break;
+	default:
+		break;
+	}
+
+	blob = NULL;
+	if (isc_open_blob2(isc_status, &DB, &trans, &blob, blobid, bpb_length,
+					   bpb)) {
+		ISQL_errmsg(isc_status);
+		if (buffer)
+			ISQL_FREE(buffer);
+		if (msg)
+			ISQL_FREE(msg);
+		return ERR;
+	}
+
+	while (!isc_get_segment(isc_status, &blob, &length,
+							(USHORT) (BUFFER_LENGTH512 - 1),
+							buffer) || isc_status[1] == isc_segment) {
+		/* Special displays for blr or acl subtypes */
+
+		if (var->sqlsubtype == BLOB_blr || var->sqlsubtype == BLOB_acl) {
+			buffer[length--] = 0;
+			for (b = buffer + length; b >= buffer;) {
+				if (*b == '\n' || *b == '\t' || *b == BLANK)
+					*b-- = 0;
+				else
+					break;
+			}
+			sprintf(Print_buffer, "%s    %s%s", TAB, buffer, NEWLINE);
+			ISQL_printf(fp, Print_buffer);
+		}
+		else {
+			buffer[length] = 0;
+			ISQL_printf(fp, buffer);
+		}
+	}
+
+	if (isc_status[1] == isc_segstr_eof)
+		isc_close_blob(isc_status, &blob);
+	else if (isc_status[1]) {
+		ISQL_errmsg(isc_status);
+		if (buffer)
+			ISQL_FREE(buffer);
+		if (msg)
+			ISQL_FREE(msg);
+		return ERR;
+	}
+	if (buffer)
+		ISQL_FREE(buffer);
+	if (msg)
+		ISQL_FREE(msg);
+	return CONT;
+}
+
+
+static void print_item_numeric(
+							   SINT64 value,
+							   SSHORT length, SSHORT scale, TEXT * buf)
+{
+/**************************************
+ *
+ *	p r i n t _ i t e m _ n u m e r i c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a INT64 value into a buffer by accomodating
+ *	decimal point '.' for scale notation
+ *
+ **************************************/
+	SSHORT from, to;
+	BOOLEAN all_digits_used = FALSE, neg = (value < 0) ? TRUE : FALSE;
+
+/* Handle special case of no negative scale, no '.' required! */
+	if (scale >= 0) {
+		if (scale > 0)
+			value *= (SINT64) pow(10.0, (double) scale);
+		sprintf(buf, "%*" QUADFORMAT "d", length, value);
+		return;
+	}
+
+/* Use one less space than allowed, to leave room for '.' */
+	length--;
+	sprintf(buf, "%*" QUADFORMAT "d", length, value);
+
+/* start from LSByte towards MSByte */
+	from = length - 1;
+	to = length;
+
+/* make space for decimal '.' point in buffer */
+	buf[to + 1] = '\0';
+	for (; from >= 0 && DIGIT(buf[from]) && scale; from--, to--, ++scale)
+		buf[to] = buf[from];
+
+/* Check whether we need a '0' (zero) in front of the '.' point */
+	if (!DIGIT(buf[from]))
+		all_digits_used = TRUE;
+
+/* Insert new '0's to satisfy larger scale than input digits 
+ * For e.g: 12345 with scale -7 would be .0012345
+ */
+	if (from > 0 && scale)
+		do {
+			buf[to--] = '0';
+		} while (++scale != 0);
+
+/* Insert '.' decimal point, and if required, '-' and '0' */
+	buf[to--] = '.';
+	if (all_digits_used == TRUE) {
+		buf[to--] = '0';
+		if (neg == TRUE)
+			buf[to--] = '-';
+	}
+}
+
+
+static int print_line( XSQLDA * sqlda, SLONG * pad, TEXT * line)
+{
+/**************************************
+ *
+ *	p r i n t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a line of SQL variables.
+ *
+ *	Args:  sqlda, an XSQLDA
+ *	    pad = an array of the print lengths of all the columns
+ *	    line = pointer to the line buffer.
+ *
+ **************************************/
+	TEXT *p;
+	XSQLVAR *var, *end;
+	XSQLVAR *varlist[20];
+	SSHORT varnum, i, ret = CONT;
+
+	p = line;
+
+	varnum = -1;
+	for (i = 0, var = sqlda->sqlvar, end = var + sqlda->sqld; var < end;
+		 var++, i++) {
+		if (!Abort_flag)
+			/* Save all the blob vars and print them at the end */
+			if ((ret = print_item(&p, var, pad[i])) == SQL_BLOB) {
+				varnum++;
+				varlist[varnum] = var;
+			}
+	}
+
+	*p = 0;
+
+	if (List) {
+		ISQL_printf(Out, NEWLINE);
+		return (CONT);
+	}
+
+	ISQL_printf(Out, line);
+	ISQL_printf(Out, NEWLINE);
+
+/* If blobdisplay is not wanted, set varnum back to -1 */
+
+	if (Doblob == NO_BLOBS)
+		varnum = -1;
+
+/* If there were Blobs to print, print them passing the blobid */
+
+	for (i = 0; i <= varnum; i++) {
+		var = varlist[i];
+		if (*var->sqlind == 0) {
+			/* Print blob title */
+
+			sprintf(Print_buffer,
+					"==============================================================================%s",
+					NEWLINE);
+			ISQL_printf(Out, Print_buffer);
+			sprintf(Print_buffer, "%s:  %s", var->aliasname, NEWLINE);
+			ISQL_printf(Out, Print_buffer);
+			if (print_item_blob(Out, var, M__trans))
+				return (ERR);
+			sprintf(Print_buffer,
+					"%s==============================================================================%s",
+					NEWLINE, NEWLINE);
+			ISQL_printf(Out, Print_buffer);
+		}
+	}
+	return (CONT);
+}
+
+
+static int process_statement( TEXT * string, XSQLDA ** sqldap)
+{
+/**************************************
+ *
+ *	p r o c e s s _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare and execute a dynamic SQL statement.
+ *	This function uses the isc_dsql user functions rather
+ *	than embedded dynamic statements.  The user request
+ *	is placed on transaction M__trans, while all
+ *	background work is on the default gds__trans.
+ *	THis function now returns CONT (success) or ERR
+ **************************************/
+	SLONG *buffer = NULL;
+	USHORT length, data_length;
+	SSHORT alignment, type, namelength, i, j, n_cols;
+	SSHORT statement_type = 0, l;
+	SSHORT *nullind = NULL, *nullp;
+	SLONG lines, offset;
+	SLONG *pad = NULL;
+	TEXT *line = NULL, *header, *header2, *p, *p2;
+	COLLIST *pc;
+	SLONG bufsize = 0;
+	SLONG linelength = 0;
+	SCHAR *plan_buffer;
+	SCHAR info_buffer[16];
+	SCHAR count_buffer[33];
+	UCHAR count_is, count_type;
+	SLONG count;
+	XSQLDA *sqlda;
+	XSQLVAR *var, *end;
+	void *prepare_trans;
+	int ret = CONT;
+	static SCHAR sqlda_info[] = { isc_info_sql_stmt_type };
+	static SCHAR plan_info[] = { isc_info_sql_get_plan };
+	static SCHAR count_info[] = { isc_info_sql_records };
+
+/* We received the address of the sqlda in case we realloc it */
+	sqlda = *sqldap;
+
+/* If somebody did a commit or rollback, we are out of a transaction */
+
+	if (!M__trans)
+		if (isc_start_transaction
+			(isc_status, &M__trans, 1, &DB, 0,
+			 (SCHAR *) 0)) ISQL_errmsg(isc_status);
+
+/* No need to start a default transaction unless there is no current one */
+
+	if (!D__trans)
+		if (isc_start_transaction(isc_status, &D__trans, 1, &DB,
+								  (V4) ? 5 : 0, (V4) ? default_tpb : NULL))
+			ISQL_errmsg(isc_status);
+
+/* If statistics are requested, then reserve them here */
+
+	if (Stats)
+		perf_get_info(&DB, &perf_before);
+
+/* Prepare the dynamic query stored in string. 
+    But put this on the DDL transaction to get maximum visibility of
+    metadata. */
+
+	if (Autocommit)
+		prepare_trans = D__trans;
+	else
+		prepare_trans = M__trans;
+
+	if (isc_dsql_prepare(isc_status, &prepare_trans, &Stmt, 0, string,
+						 SQL_dialect, sqlda)) {
+		if (SQL_dialect == SQL_DIALECT_V6_TRANSITION && Input_file) {
+			ISQL_printf(Out, NEWLINE);
+			ISQL_printf(Out, "**** Error preparing statement:");
+			ISQL_printf(Out, NEWLINE);
+			ISQL_printf(Out, NEWLINE);
+			ISQL_printf(Out, string);
+			ISQL_printf(Out, NEWLINE);
+		}
+		ISQL_errmsg(isc_status);
+		return ERR;
+	}
+
+/* check for warnings */
+	if (isc_status[2] == isc_arg_warning)
+		ISQL_warning(isc_status);
+
+
+#ifdef DEV_BUILD
+	if (Sqlda_display) {
+		XSQLDA *input_sqlda;
+
+		/* Describe the input */
+		input_sqlda = (XSQLDA *) ISQL_ALLOC((SLONG) (XSQLDA_LENGTH(10)));
+		input_sqlda->version = SQLDA_VERSION1;
+		input_sqlda->sqld = input_sqlda->sqln = 10;
+
+		if (isc_dsql_describe_bind
+			(isc_status, &Stmt, SQL_dialect, input_sqlda)) {
+			ISQL_errmsg(isc_status);
+			return ERR;
+		}
+		else if (isc_status[2] == isc_arg_warning)
+			ISQL_warning(isc_status);
+
+		/* Reallocate if there's LOTS of input */
+		if (input_sqlda->sqld > input_sqlda->sqln) {
+			USHORT n_columns = input_sqlda->sqld;
+			ISQL_FREE(input_sqlda);
+			input_sqlda =
+				(XSQLDA *) ISQL_ALLOC((SLONG) (XSQLDA_LENGTH(n_columns)));
+			input_sqlda->version = SQLDA_VERSION1;
+			input_sqlda->sqld = input_sqlda->sqln = n_columns;
+			if (isc_dsql_describe_bind
+				(isc_status, &Stmt, SQL_dialect, input_sqlda)) {
+				ISQL_errmsg(isc_status);
+				return ERR;
+			}
+			else if (isc_status[2] == isc_arg_warning)
+				ISQL_warning(isc_status);
+		}
+
+		if (input_sqlda->sqld > 0) {
+			UCHAR buffer[100];
+			USHORT i;
+			sprintf(buffer,
+					"\nINPUT  SQLDA version: %d sqldaid: %s sqldabc: %ld sqln: %d sqld: %d\n",
+					input_sqlda->version, input_sqlda->sqldaid,
+					input_sqlda->sqldabc, input_sqlda->sqln,
+					input_sqlda->sqld);
+			ISQL_printf(Out, buffer);
+			for (i = 0, var = input_sqlda->sqlvar, end =
+				 var + input_sqlda->sqld; var < end; var++, i++) {
+				sprintf(buffer,
+						"%02d: sqltype: %d %s %s sqlscale: %d sqlsubtype: %d sqllen: %d\n",
+						i + 1, var->sqltype, sqltype_to_string(var->sqltype),
+						(var->sqltype & 1) ? "Nullable" : "        ",
+						var->sqlscale, var->sqlsubtype, var->sqllen);
+				ISQL_printf(Out, buffer);
+				sprintf(buffer, "  :  name: (%d)%*s  alias: (%d)%*s\n",
+						var->sqlname_length, var->sqlname_length,
+						var->sqlname, var->aliasname_length,
+						var->aliasname_length, var->aliasname);
+				ISQL_printf(Out, buffer);
+				sprintf(buffer, "  : table: (%d)%*s  owner: (%d)%*s\n",
+						var->relname_length, var->relname_length,
+						var->relname, var->ownname_length,
+						var->ownname_length, var->ownname);
+				ISQL_printf(Out, buffer);
+			}
+		}
+
+		ISQL_FREE(input_sqlda);
+	}
+#endif
+
+/* Find out what kind of statement this is */
+
+	if (isc_dsql_sql_info(isc_status, &Stmt, sizeof(sqlda_info), sqlda_info,
+						  sizeof(info_buffer), info_buffer))
+		ISQL_errmsg(isc_status);
+	else if (info_buffer[0] == isc_info_sql_stmt_type) {
+		l = gds__vax_integer(info_buffer + 1, 2);
+		statement_type = gds__vax_integer(info_buffer + 3, l);
+	}
+
+/* if PLAN is set, print out the plan now */
+
+/* check for warnings */
+	if (isc_status[2] == isc_arg_warning)
+		ISQL_warning(isc_status);
+
+	if (Plan) {
+		/* Bug 7565: A plan larger than plan_buffer will not be displayed */
+		/* Bug 7565: Note also that the plan must fit into Print_Buffer */
+
+		plan_buffer = (SCHAR *) ISQL_ALLOC(PRINT_BUFFER_LENGTH);
+		memset(plan_buffer, 0, PRINT_BUFFER_LENGTH);
+		if (isc_dsql_sql_info(isc_status, &Stmt, sizeof(plan_info), plan_info,
+							  PRINT_BUFFER_LENGTH, plan_buffer)) {
+			ISQL_errmsg(isc_status);
+		}
+		else if (plan_buffer[0] == isc_info_sql_get_plan) {
+			l = gds__vax_integer(plan_buffer + 1, 2);
+			sprintf(Print_buffer, "%.*s%s", l, plan_buffer + 3, NEWLINE);
+			ISQL_printf(Diag, Print_buffer);
+		}
+		ISQL_FREE(plan_buffer);
+
+		if (Planonly)
+		{
+			return ret;	/* do not execute */
+		}
+	}
+
+/* If the statement isn't a select, execute it and be done */
+
+	if (!sqlda->sqld) {
+		/* If this is an autocommit, put the DDL stmt on a special trans */
+
+		if (Autocommit && (statement_type == isc_info_sql_stmt_ddl)) {
+			if (isc_dsql_execute_immediate
+				(isc_status, &DB, &D__trans, 0, string, SQL_dialect, NULL)) {
+				ISQL_errmsg(isc_status);
+				ret = ERR;
+			}
+			COMMIT_TRANS(&D__trans);
+
+			/* check for warnings */
+			if (isc_status[2] == isc_arg_warning)
+				ISQL_warning(isc_status);
+
+			return ret;
+		}
+
+		/* Check to see if this is a SET TRANSACTION statement */
+
+		if (statement_type == isc_info_sql_stmt_start_trans) {
+			newtrans(string);
+			return ret;
+		}
+
+		/*  This is a non-select DML statement. or trans */
+
+		if (isc_dsql_execute(isc_status, &M__trans, &Stmt, SQL_dialect, NULL))
+			ISQL_errmsg(isc_status);
+
+		/* check for warnings */
+		if (isc_status[2] == isc_arg_warning)
+			ISQL_warning(isc_status);
+
+		/* We are executing a commit or rollback, commit default trans */
+
+		if ((statement_type == isc_info_sql_stmt_commit) ||
+			(statement_type == isc_info_sql_stmt_rollback))
+				COMMIT_TRANS(&D__trans);
+
+		/* Print statistics report */
+
+		if (Docount) {
+			count_type = 0;
+			count = 0;
+
+			if (statement_type == isc_info_sql_stmt_update)
+				count_type = isc_info_req_update_count;
+
+			if (statement_type == isc_info_sql_stmt_delete)
+				count_type = isc_info_req_delete_count;
+
+			/* Skip selects, better to count records incoming later */
+
+			if (statement_type == isc_info_sql_stmt_insert)
+				count_type = isc_info_req_insert_count;
+
+			if (count_type) {
+				isc_dsql_sql_info(isc_status, &Stmt, sizeof(count_info),
+								  count_info, sizeof(count_buffer),
+								  count_buffer);
+
+				for (p = count_buffer + 3; *p != isc_info_end;) {
+					count_is = *p++;
+					l = gds__vax_integer(p, 2);
+					p += 2;
+					count = gds__vax_integer(p, l);
+					p += l;
+					if (count_is == count_type)
+						break;
+				}
+				ISQL_msg_get(REC_COUNT, rec_count, (TEXT *) count, NULL, NULL,
+							 NULL, NULL);
+				/* Records affected: %ld */
+				sprintf(Print_buffer, "%s%s", rec_count, NEWLINE);
+				ISQL_printf(Out, Print_buffer);
+			}
+		}
+
+		if (Stats) {
+			perf_get_info(&DB, &perf_after);
+			if (!have_report) {
+				ISQL_msg_get(REPORT1, report_1, NULL, NULL, NULL, NULL, NULL);
+				/* Current memory = !c\nDelta memory = !d\nMax memory = !x\nElapsed time= !e sec\n */
+				ISQL_msg_get(REPORT2, &report_1[strlen(report_1)], NULL, NULL,
+							 NULL, NULL, NULL);
+				/* For GUI_TOOLS:  Buffers = !b\nReads = !r\nWrites = !w\nFetches
+				   = !f\n */
+				/* Else:  Cpu = !u sec\nBuffers = !b\nReads = !r\nWrites = !w\nFetch
+				   es = !f\n */
+				have_report = TRUE;
+			}
+			perf_format(&perf_before, &perf_after, report_1, statistics,
+						NULL_PTR);
+			sprintf(Print_buffer, "%s%s", statistics, NEWLINE);
+			ISQL_printf(Diag, Print_buffer);
+		}
+		return (ret);
+	}
+
+	n_cols = sqlda->sqld;
+
+/* The query is bigger than the curent sqlda, so make more room */
+
+	if (n_cols > sqlda->sqln) {
+		ISQL_FREE(sqlda);
+		sqlda = (XSQLDA *) ISQL_ALLOC((SLONG) (XSQLDA_LENGTH(n_cols)));
+		*sqldap = sqlda;
+		sqlda->version = SQLDA_VERSION1;
+		sqlda->sqld = sqlda->sqln = n_cols;
+
+		/*  We must re-describe the sqlda, no need to re-prepare */
+
+		isc_dsql_describe(isc_status, &Stmt, SQL_dialect, sqlda);
+	}
+
+	if (statement_type != isc_info_sql_stmt_exec_procedure) {
+		/* Otherwise, open the cursor to start things up */
+
+		/* Declare the C cursor for what it is worth */
+
+		if (isc_dsql_set_cursor_name(isc_status, &Stmt, "C ", 0)) {
+			ISQL_errmsg(isc_status);
+			return (ERR);
+		}
+
+		/* check for warnings */
+		if (isc_status[2] == isc_arg_warning)
+			ISQL_warning(isc_status);
+
+		if (isc_dsql_execute(isc_status, &M__trans, &Stmt, SQL_dialect, NULL)) {
+			ISQL_errmsg(isc_status);
+			return (ERR);
+		}
+
+		/* check for warnings */
+		if (isc_status[2] == isc_arg_warning)
+			ISQL_warning(isc_status);
+
+	}
+
+#ifdef DEV_BUILD
+
+/* To facilitate debugging, the option 
+   SET SQLDA_DISPLAY ON
+   will activate code to display the SQLDA after each statement. */
+
+	if (Sqlda_display) {
+		UCHAR buffer[100];
+		USHORT i;
+		sprintf(buffer,
+				"\nOUTPUT SQLDA version: %d sqldaid: %s sqldabc: %ld sqln: %d sqld: %d\n",
+				sqlda->version, sqlda->sqldaid, sqlda->sqldabc, sqlda->sqln,
+				sqlda->sqld);
+		ISQL_printf(Out, buffer);
+		for (i = 0, var = sqlda->sqlvar, end = var + sqlda->sqld; var < end;
+			 var++, i++) {
+			sprintf(buffer,
+					"%02d: sqltype: %d %s %s sqlscale: %d sqlsubtype: %d sqllen: %d\n",
+					i + 1, var->sqltype, sqltype_to_string(var->sqltype),
+					(var->sqltype & 1) ? "Nullable" : "        ",
+					var->sqlscale, var->sqlsubtype, var->sqllen);
+			ISQL_printf(Out, buffer);
+			sprintf(buffer, "  :  name: (%d)%*s  alias: (%d)%*s\n",
+					var->sqlname_length, var->sqlname_length, var->sqlname,
+					var->aliasname_length, var->aliasname_length,
+					var->aliasname);
+			ISQL_printf(Out, buffer);
+			sprintf(buffer, "  : table: (%d)%*s  owner: (%d)%*s\n",
+					var->relname_length, var->relname_length, var->relname,
+					var->ownname_length, var->ownname_length, var->ownname);
+			ISQL_printf(Out, buffer);
+		}
+	}
+#endif
+
+
+	nullind = (SSHORT *) ISQL_ALLOC((SLONG) (n_cols * sizeof(SSHORT)));
+#ifdef DEBUG_GDS_ALLOC
+	gds_alloc_flag_unfreed((void *) nullind);
+#endif
+	for (nullp = nullind, var = sqlda->sqlvar, end = var + sqlda->sqld;
+		 var < end; var++) {
+		/* Allocate enough space for all the sqldata and null pointers */
+
+		type = var->sqltype & ~1;
+		alignment = data_length = var->sqllen;
+
+		/* special case db_key alignment which arrives as an SQL_TEXT */
+		/* Bug 8562:  since DB_KEY arrives as SQL_TEXT, we need to account
+		   for the null character at the end of the string */
+		if (!strncmp(var->sqlname, "DB_KEY", 6)) {
+			alignment = 8;
+			/* Room for null string terminator */
+			data_length++;
+		}
+		else
+			/* Special alignment cases */
+		if (type == SQL_TEXT) {
+			alignment = 1;
+			/* Room for null string terminator */
+			data_length++;
+		}
+		else if (type == SQL_VARYING) {
+			alignment = sizeof(SSHORT);
+			/* Room for a null string terminator for display */
+			data_length += sizeof(SSHORT) + 1;
+		}
+
+		bufsize = FB_ALIGN(bufsize, alignment) + data_length;
+		var->sqlind = nullp++;
+	}
+
+/* Buffer for reading data from the fetch */
+
+	buffer = (SLONG *) ISQL_ALLOC((SLONG) bufsize);
+	memset(buffer, NULL, (unsigned int) bufsize);
+
+/* Pad is an array of lengths to be passed to the print_item */
+
+	pad = (SLONG *) ISQL_ALLOC((SLONG) (sqlda->sqld * sizeof(SLONG)));
+
+	offset = 0;
+
+	for (i = 0, var = sqlda->sqlvar, end = var + sqlda->sqld; var < end;
+		 var++, i++) {
+		/* record the length of name and var, then convert to print
+		   **   length , later to be stored in pad array
+		 */
+
+		data_length = length = alignment = var->sqllen;
+		namelength = var->aliasname_length;
+
+		/* minimum display length should not be less than that needed 
+		   ** for displaying null 
+		 */
+
+		if (namelength < NULL_DISP_LEN)
+			namelength = NULL_DISP_LEN;
+
+		type = var->sqltype & ~1;
+
+		switch (type) {
+		case SQL_BLOB:
+		case SQL_ARRAY:
+			/* enough room for the blob id to print */
+
+			length = 17;
+			break;
+		case SQL_TIMESTAMP:
+			if (Time_display || SQL_dialect > SQL_DIALECT_V5)
+				length = DATETIME_LEN;
+			else
+				length = DATE_ONLY_LEN;
+			break;
+		case SQL_TYPE_TIME:
+			length = TIME_ONLY_LEN;
+			break;
+		case SQL_TYPE_DATE:
+			length = DATE_ONLY_LEN;
+			break;
+		case SQL_FLOAT:
+			length = FLOAT_LEN;
+			break;
+		case SQL_DOUBLE:
+			length = DOUBLE_LEN;
+			break;
+		case SQL_TEXT:
+			alignment = 1;
+			data_length++;
+			/* OCTETS data is displayed in hex */
+			if (var->sqlsubtype == 1)
+				length = 2 * var->sqllen;
+			break;
+		case SQL_VARYING:
+			data_length += sizeof(USHORT) + 1;
+			alignment = sizeof(USHORT);
+			/* OCTETS data is displayed in hex */
+			if (var->sqlsubtype == 1)
+				length = 2 * var->sqllen;
+			break;
+		case SQL_SHORT:
+			length = SHORT_LEN;
+			break;
+		case SQL_LONG:
+			length = LONG_LEN;
+			break;
+		case SQL_INT64:
+			length = INT64_LEN;
+			break;
+#ifdef NATIVE_QUAD
+		case SQL_QUAD:
+			length = QUAD_LEN;
+			break;
+#endif
+		default:
+			length = UNKNOWN_LEN;
+			break;
+		}
+
+		/* special case db_key alignment which arrives as an SQL_TEXT */
+
+		if (!strncmp(var->sqlname, "DB_KEY", 6)) {
+			alignment = 8;
+			length = 2 * var->sqllen;
+		}
+
+		/* This is the print width of each column */
+
+		pad[i] = (length > namelength ? length : namelength);
+
+		/* Is there a collist entry, then use that width, but only for text */
+		if (type == SQL_TEXT || type == SQL_VARYING) {
+			pc = Cols;
+			while (pc) {
+				if (!strcmp(var->aliasname, pc->col_name)) {
+					pad[i] = pc->col_len;
+					break;
+				}
+				pc = pc->collist_next;
+			}
+		}
+		/* The total line length */
+
+		linelength += pad[i] + 1;
+
+		/* Allocate space in buffer for data */
+
+		offset = FB_ALIGN(offset, alignment);
+		var->sqldata = (SCHAR *) buffer + offset;
+		offset += data_length;
+	}
+
+/* Add a few for line termination, et al */
+
+	linelength += 10;
+
+/* Allocate the print line  and the header line  and the separator */
+
+	line = (TEXT *) ISQL_ALLOC((SLONG) linelength);
+	header = (TEXT *) ISQL_ALLOC((SLONG) linelength);
+	header2 = (TEXT *) ISQL_ALLOC((SLONG) linelength);
+	*header = '\0';
+	*header2 = '\0';
+
+/* Create the column header :  Left justify strings */
+
+	p = header;
+	p2 = header2;
+	for (i = 0, var = sqlda->sqlvar, end = var + sqlda->sqld; var < end;
+		 var++, i++) {
+		type = var->sqltype & ~1;
+		if (type == SQL_TEXT || type == SQL_VARYING)
+			sprintf(p, "%-*.*s ", (int) (pad[i]), (int) (pad[i]),
+					var->aliasname);
+		else
+			sprintf(p, "%*s ", (int) (pad[i]), var->aliasname);
+		/* Separators need not go on forever no more than a line */
+		for (j = 1; j < strlen(p) && j < 80; j++)
+			*p2++ = '=';
+		*p2++ = BLANK;
+		p += strlen(p);
+
+	}
+	*p2 = '\0';
+
+/* If this is an exec procedure, execute into the sqlda with one fetch only */
+
+	if (statement_type == isc_info_sql_stmt_exec_procedure) {
+		if (isc_dsql_execute2(isc_status, &M__trans, &Stmt,
+							  SQL_dialect, NULL, sqlda)) {
+			ISQL_errmsg(isc_status);
+			ret = ERR;
+		}
+		else {
+			ISQL_printf(Out, NEWLINE);
+			if (!List) {
+				ISQL_printf(Out, header);
+				ISQL_printf(Out, NEWLINE);
+				ISQL_printf(Out, header2);
+				ISQL_printf(Out, NEWLINE);
+			}
+			print_line(sqlda, pad, line);
+			ISQL_printf(Out, NEWLINE);
+		}
+	}
+
+/* Otherwise fetch and print records until EOF */
+	else {
+
+#ifdef GUI_TOOLS
+		ULONG dwRows;
+		dwRows = 0;
+#endif
+
+		for (lines = 0; !Abort_flag; ++lines) {
+
+			/* Fetch the current cursor */
+
+#ifdef SCROLLABLE_CURSORS
+			if (Autofetch) {
+#endif
+				if (isc_dsql_fetch(isc_status, &Stmt, SQL_dialect, sqlda) ==
+					100) break;
+#ifdef SCROLLABLE_CURSORS
+			}
+			else {
+				SSHORT fetch_ret;
+				TEXT *fetch_statement = NULL;
+				USHORT fetch_bufsize = 0;
+
+				/* if not autofetching, sit and wait for user to input 
+				   NEXT, PRIOR, FIRST, LAST, ABSOLUTE <n>, or RELATIVE <n> */
+
+				fetch_ret =
+					get_statement(&fetch_statement, &fetch_bufsize,
+								  fetch_prompt);
+				if (fetch_ret == FETCH) {
+					if (isc_dsql_fetch2(isc_status, &Stmt, SQL_dialect, sqlda,
+										fetch_direction, fetch_offset) == 100) {
+						if (fetch_statement)
+							ISQL_FREE(fetch_statement);
+						break;
+					}
+				}
+				else if (fetch_ret == BACKOUT || fetch_ret == EXIT) {
+					lines = 0;
+					break;
+				}
+				else {
+					TEXT errbuf[MSG_LENGTH];
+					gds__msg_format(NULL_PTR, ISQL_MSG_FAC, CMD_ERR,
+									MSG_LENGTH, errbuf,
+									"Expected NEXT, PRIOR, FIRST, LAST, ABSOLUTE <n>, RELATIVE <n>, or QUIT",
+									NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+					STDERROUT(errbuf, 1);
+				}
+
+				if (fetch_statement)
+					ISQL_FREE(fetch_statement);
+			}
+#endif
+
+#ifdef GUI_TOOLS
+			/* Update Row count for Windows ISQL */
+
+			UpdateRowCount(dwRows++);
+#endif
+
+			/* Print the header every Pagelength number of lines for
+			   command-line ISQL only.  For WISQL, print the column
+			   headings only once. */
+
+#ifdef GUI_TOOLS
+			if (!List && !lines) {
+				ISQL_printf(Out, NEWLINE);
+				ISQL_printf(Out, header);
+				ISQL_printf(Out, NEWLINE);
+				ISQL_printf(Out, header2);
+				ISQL_printf(Out, NEWLINE);
+			}
+
+#else
+			if (!List && (lines % Pagelength == 0)) {
+				ISQL_printf(Out, NEWLINE);
+				ISQL_printf(Out, header);
+				ISQL_printf(Out, NEWLINE);
+				ISQL_printf(Out, header2);
+				ISQL_printf(Out, NEWLINE);
+			}
+#endif
+
+			if (isc_status[1]) {
+				ISQL_errmsg(isc_status);
+				isc_dsql_free_statement(isc_status, &Stmt, 1);
+				if (nullind)
+					ISQL_FREE(nullind);
+				if (pad)
+					ISQL_FREE(pad);
+				if (buffer)
+					ISQL_FREE(buffer);
+				if (header)
+					ISQL_FREE(header);
+				if (header2)
+					ISQL_FREE(header2);
+				if (line)
+					ISQL_FREE(line);
+				return (ERR);
+			}
+
+			if (!lines)
+				ISQL_printf(Out, NEWLINE);
+
+			ret = print_line(sqlda, pad, line);
+		}
+
+		if (lines)
+			ISQL_printf(Out, NEWLINE);
+
+		/* Record count printed here upon request */
+
+		if (Docount) {
+			ISQL_msg_get(REC_COUNT, rec_count, (TEXT *) lines, NULL, NULL,
+						 NULL, NULL);
+			/* Total returned: %ld */
+			sprintf(Print_buffer, "%s%s", rec_count, NEWLINE);
+
+			ISQL_printf(Out, Print_buffer);
+		}
+	}
+
+	isc_dsql_free_statement(isc_status, &Stmt, 1);
+
+/* Statistics printed here upon request */
+
+	if (Stats) {
+		perf_get_info(&DB, &perf_after);
+		if (!have_report) {
+			ISQL_msg_get(REPORT1, report_1, NULL, NULL, NULL, NULL, NULL);
+			/* Current memory = !c\nDelta memory = !d\nMax memory = !x\nElapsed time= !e sec\n */
+			ISQL_msg_get(REPORT2, &report_1[strlen(report_1)], NULL, NULL,
+						 NULL, NULL, NULL);
+			/* For GUI_TOOLS:  Buffers = !b\nReads = !r\nWrites = !w\nFetches
+			   = !f\n */
+			/* Else:  Cpu = !u sec\nBuffers = !b\nReads = !r\nWrites = !w\nFetch
+			   es = !f\n */
+			have_report = TRUE;
+		}
+		perf_format(&perf_before, &perf_after, report_1, statistics,
+					NULL_PTR);
+		sprintf(Print_buffer, "%s%s", statistics, NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+	}
+
+	if (pad)
+		ISQL_FREE(pad);
+	if (buffer)
+		ISQL_FREE(buffer);
+	if (line)
+		ISQL_FREE(line);
+	if (header)
+		ISQL_FREE(header);
+	if (header2)
+		ISQL_FREE(header2);
+	if (nullind)
+		ISQL_FREE(nullind);
+
+	return (ret);
+}
+
+
+static void CLIB_ROUTINE query_abort(void)
+{
+/**************************************
+ *
+ *	q u e r y _ a b o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Signal handler for interrupting output of a query.
+ *
+ **************************************/
+
+	Abort_flag = 1;
+}
+
+
+static void strip_quotes( TEXT * in, TEXT * out)
+{
+/**************************************
+ *
+ *	s t r i p _ q u o t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of quotes around strings
+ *
+ **************************************/
+	TEXT *p;
+	TEXT quote;
+
+	if (!in || !*in) {
+		*out = 0;
+		return;
+	}
+
+	quote = 0;
+/* Skip any initial quote */
+	if ((*in == DBL_QUOTE) || (*in == SINGLE_QUOTE))
+		quote = *in++;
+	p = in;
+
+/* Now copy characters until we see the same quote or EOS */
+	while (*p && (*p != quote)) {
+		*out++ = *p++;
+	}
+	*out = 0;
+}
+
+
+
+#ifdef DEV_BUILD
+static UCHAR *sqltype_to_string( USHORT sqltype)
+{
+/**************************************
+ *
+ *	s q l t y p e _ t o _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a more readable version of SQLDA.sqltype
+ *
+ **************************************/
+	switch (sqltype & ~1) {
+	case SQL_TEXT:
+		return ("TEXT     ");
+	case SQL_VARYING:
+		return ("VARYING  ");
+	case SQL_SHORT:
+		return ("SHORT    ");
+	case SQL_LONG:
+		return ("LONG     ");
+	case SQL_INT64:
+		return ("INT64    ");
+	case SQL_FLOAT:
+		return ("FLOAT    ");
+	case SQL_DOUBLE:
+		return ("DOUBLE   ");
+	case SQL_D_FLOAT:
+		return ("D_FLOAT  ");
+	case SQL_TIMESTAMP:
+		return ("TIMESTAMP");
+	case SQL_TYPE_DATE:
+		return ("SQL DATE ");
+	case SQL_TYPE_TIME:
+		return ("TIME     ");
+	case SQL_BLOB:
+		return ("BLOB     ");
+	case SQL_ARRAY:
+		return ("ARRAY    ");
+	case SQL_QUAD:
+		return ("QUAD     ");
+	default:
+		return ("unknown  ");
+	}
+}
+#endif
diff --git a/src/isql/isql.h b/src/isql/isql.h
new file mode 100644
index 0000000000..1cc58c175f
--- /dev/null
+++ b/src/isql/isql.h
@@ -0,0 +1,365 @@
+/*
+ *	PROGRAM:	Interactive SQL utility
+ *	MODULE:		isql.h
+ *	DESCRIPTION:	Component wide include file
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: isql.h,v 1.1.1.1 2001-05-23 13:26:02 tamlin Exp $
+ * Revision 1.2  2000/11/18 16:49:24  fsg
+ * Increased PRINT_BUFFER_LENGTH to 2048 to show larger plans
+ * Fixed Bug #122563 in extract.e get_procedure_args
+ * Apparently this has to be done in show.e also,
+ * but that is for another day :-)
+ *
+ */
+
+#ifndef _ISQL_ISQL_H_
+#define _ISQL_ISQL_H_
+
+#include "../jrd/flags.h"
+#include <stdlib.h>
+
+/* Define lengths used in isql.e */
+
+/* Increased this to allow display of somewhat lengthy plans
+   hope this will last a year or so :-)
+   FSG 17.Nov.2000 
+*/
+#define PRINT_BUFFER_LENGTH	2048
+#define MAXTERM_LENGTH  	32	/* SQL termination character */
+#define USER_LENGTH 		128
+#define PASSWORD_LENGTH 	128
+#define ROLE_LENGTH     	128
+
+/* these constants are purely idiotic; there's no point in having 
+   a predefined constant with no meaning, but that's Ed Simon the 
+   master programmer for you! */
+
+#define BUFFER_LENGTH128	128
+#define BUFFER_LENGTH155	155
+#define BUFFER_LENGTH256	256
+#define BUFFER_LENGTH360	360
+#define BUFFER_LENGTH400	400
+#define BUFFER_LENGTH512	512
+#define BUFFER_LENGTH80		 80
+#define BUFFER_LENGTH60		 60
+#define BUFFER_LENGTH120	120
+#define BUFFER_LENGTH180	180
+
+/* Define the possible states of processing commands */
+
+#define CONT		0
+#define EXIT		1
+#define BACKOUT		2
+#define ERR		3
+#define END		4
+#define SKIP		5
+#define FAIL		6
+#define EXTRACT		7
+#define EXTRACTALL	8
+#define FETCH		9
+
+/* Which blob subtypes to print */
+
+#define ALL_BLOBS	-2
+#define NO_BLOBS	-1
+
+/* Flag to decode all vs sql only objects */
+#define SQL_objects	0
+#define ALL_objects	1
+
+/* Show source for triggers or not */
+#define NO_SOURCE 	0
+#define SHOW_SOURCE	1
+
+
+#define WORDLENGTH	32
+#define DEFTERM		";"
+#define DEFCHARSET	"NONE"
+#define NULL_DISP_LEN    6
+
+#define NULL_PTR	((void*) 0)
+
+/* Error codes */
+
+#define MSG_LENGTH	256
+#define ISQL_MSG_FAC	17
+
+#define GEN_ERR 	0			/* General non-zero SQLCODE error */
+#define USAGE1 		1			/* Usage message 1 */
+#define SWITCH 		2			/* Bad command line arg */
+#define NO_DB 		3			/* No database specified */
+#define FILE_OPEN_ERR	4		/* Can't open specified file */
+#define COMMIT_PROMPT	5		/* Commit or rollback question */
+#define COMMIT_MSG	6			/* Committing ... */
+#define ROLLBACK_MSG	7		/* Rolling back */
+#define	CMD_ERR		8			/* Unknown frontend command */
+#define ADD_PROMPT	9			/* Prompt for add function */
+#define VERSION		10			/* Version string for -z */
+#define USAGE2 		11			/* Usage message 2 */
+#define NUMBER_PAGES	12		/* Number of DB pages allocated = %d \n */
+#define SWEEP_INTERV	13		/* Sweep interval = %d \n */
+#define NUM_WAL_BUFF	14		/* Number of wal buffers = %d \n */
+#define WAL_BUFF_SIZE	15		/* Wal buffer size = %d \n */
+#define CKPT_LENGTH	16			/* Check point length = %d \n */
+#define CKPT_INTERV	17			/* Check point interval = %d \n */
+#define WAL_GRPC_WAIT	18		/* Wal group commit wait = %d \n */
+#define BASE_LEVEL	19			/* Base level = %d \n */
+#define LIMBO		20			/* Transaction in limbo = %d \n */
+/* Help list */
+#define HLP_FRONTEND	21		/* Frontend commands:\n */
+#define HLP_BLOBVIEW	22		/* BLOBVIEW [<blobid as high:low>] -- edit a blob\n */
+#define HLP_BLOBDMP	23			/* BLOBDUMP <blobid as high:low> <file> -- dump blob to a file\n */
+#define HLP_EDIT	24			/* EDIT [<filename>] -- edit and read a SQL file\n\tWithout file name, edits current command buffer\n */
+#define HLP_INPUT	25			/* INput <filename> -- enter a named SQL file\n */
+#define HLP_OUTPUT	26			/* OUTput [<filename>] -- write output to named file\n */
+#define HLP_SHELL	27			/* SHELL <shell command> -- execute command shell\n */
+#define HLP_HELP	28			/* HELP -- Displays this menu\n */
+#define HLP_SETCOM	29			/* "Set commands: " */
+#define HLP_SET		30			/* \tSET -- Display current options \n */
+#define HLP_SETAUTO	31			/* \tSET AUTOcommit  -- toggle autocommit of DDL statments\n */
+#define HLP_SETBLOB	32			/* \tSET BLOBdisplay [ALL|N]-- Display blobs of type N\n\t SET BLOB turns off blob display\n */
+#define HLP_SETCOUNT	33		/* \tSET COUNT  -- toggle count of selected rows on/off \n */
+#define HLP_SETECHO	34			/* \tSET ECHO  -- toggle command echo on/off \n */
+#define HLP_SETSTAT	35			/* \tSET STATs -- toggles performance statistics display\n */
+#define HLP_SETTERM	36			/* \tSET TERM <string> -- changes termination character\n */
+#define HLP_SHOW	37			/* SHOW <object type> [<object name>] -- displays information on metadata\n */
+#define HLP_OBJTYPE	38			/* "  <object type> = 'DB', 'TABLE', 'PROCedure', 'INDEX',\n   'GRANT', 'DOMAIN', 'VERSION'\n" */
+#define HLP_EXIT	39			/* EXIT -- Exit program and commit changes\n */
+#define HLP_QUIT	40			/* QUIT -- Exit program and rollback changes\n\n */
+#define HLP_ALL		41			/* All commands may be abbreviated to letters in CAPs\n */
+#define HLP_SETSCHEMA	42		/* \tSET SCHema/DB <db name> -- changes current database\n */
+#define YES_ANS		43			/* Yes */
+#define REPORT1		44			/* Current memory = !c\nDelta memory = !d\nMax memory = !x\nElapsed time= !e sec\n */
+#if (defined WIN_NT || defined GUI_TOOLS)
+#define REPORT2		93			/* Buffers = !b\nReads = !r\nWrites = !w\nFetches = !f\n */
+#else
+#define REPORT2		45			/* Cpu = !u sec\nBuffers = !b\nReads = !r\nWrites = !w\nFetches = !f\n */
+#endif
+#define BLOB_SUBTYPE	46		/* Blob display set to subtype %d. This blob: subtype = %d\n */
+#define BLOB_PROMPT	47			/* Blob: %s, type 'edit' or filename to load> */
+#define DATE_PROMPT	48			/* Enter %s as M/D/Y> */
+#define NAME_PROMPT	49			/* Enter %s> */
+#define DATE_ERR	50			/* Bad date %s\n */
+#define CON_PROMPT	51			/* "CON> " */
+#define HLP_SETLIST	52			/* \tSET LIST -- toggles column or table display\n */
+#define NOT_FOUND 	53			/* %s not found\n */
+#define COPY_ERR 	54			/* Errors occured(possibly duplicate domains) in creating %s in %s\n" */
+#define SERVER_TOO_OLD  55		/* Server version too old to support the isql command */
+#define REC_COUNT 	56			/* Total returned: %ld */
+#define	UNLICENSED	57			/* Unlicensed for database "%s" */
+#define HLP_SETWIDTH	58		/* \tSET WIDTH <column name> [<width>] --sets/unsets print width for column name */
+#define HLP_SETPLAN	59			/* Toggle display of query access plan */
+#define HLP_SETTIME	60			/* Toggle display of timestamp with DATE values */
+#define HLP_EDIT2	61			/* edits current command buffer\n */
+#define HLP_OUTPUT2	62			/* \tWithout file name, returns output to ib_stdout\n */
+#define HLP_SETNAMES	63		/* Set current character set */
+#define HLP_OBJTYPE2	64		/* More objects */
+#define HLP_SETBLOB2	65		/* \t SET BLOB turns off blob display\n */
+#define HLP_SET_ROOT	66		/* (Use HELP SET for set options) */
+#define	NO_TABLES	67			/* There are no tables in this database */
+#define	NO_TABLE	68			/* There is no table %s in this database */
+#define	NO_VIEWS	69			/* There are no views in this database */
+#define	NO_VIEW		70			/* There is no view %s in this database */
+#define	NO_INDICES_ON_REL 71	/* There are no indices on table %s in this database */
+#define	NO_REL_OR_INDEX	72		/* There is no table or index %s in this database */
+#define	NO_INDICES	73			/* There are no indices in this database */
+#define	NO_DOMAIN	74			/* There is no domain %s in this database */
+#define	NO_DOMAINS	75			/* There are no domains in this database */
+#define	NO_EXCEPTION	76		/* There is no exception %s in this database */
+#define	NO_EXCEPTIONS	77		/* There are no exceptions in this database */
+#define	NO_FILTER	78			/* There is no filter %s in this database */
+#define	NO_FILTERS	79			/* There are no filters in this database */
+#define	NO_FUNCTION	80			/* There is no user-defined function %s in this database */
+#define	NO_FUNCTIONS	81		/* There are no user-defined functions in this database */
+#define	NO_GEN		82			/* There is no generator %s in this database */
+#define	NO_GENS		83			/* There are no generators in this database */
+#define	NO_GRANT_ON_REL	84		/* There is no privilege granted on table %s in this database */
+#define	NO_GRANT_ON_PROC 85		/* There is no privilege granted on stored procedure %s in this database */
+#define	NO_REL_OR_PROC	86		/* There is no table or stored procedure %s in this database */
+#define	NO_PROC		87			/* There is no stored procedure %s in this database */
+#define	NO_PROCS	88			/* There are no stored procedures in this database */
+#define	NO_TRIGGERS_ON_REL 89	/* There are no triggers on table %s in this database */
+#define	NO_REL_OR_TRIGGER 90	/* There is no table or trigger %s in this database */
+#define	NO_TRIGGERS	91			/* There are no triggers in this database */
+#define	NO_CHECKS_ON_REL 92		/* There are no check constraints on table %s in this database */
+#define BUFFER_OVERFLOW  94		/* An isql command exceeded maximum buffer size */
+#ifdef SCROLLABLE_CURSORS
+#define HLP_SETFETCH	95		/* \tSET AUTOfetch  -- toggle autofetch of
+								   records\n */
+#endif
+
+#define NO_ROLES		95		/* There are no roles in this database */
+#define NO_REL_OR_PROC_OR_ROLE	96	/* There is no table, stored procedure, or
+									   role %s in this database */
+#define NO_GRANT_ON_ROL		97	/* There is no membership privilege granted
+								   on %s in this database */
+#define UNEXPECTED_EOF		98	/* Expected end of statement, encountered
+								   EOF */
+#define TIME_ERR		101		/* Bad TIME: %s\n */
+#define HLP_OBJTYPE3	102		/* Some more objects */
+#define NO_ROLE			103
+#define USAGE3 			104		/* Usage message 3 */
+#define INCOMPLETE_STR  105		/* Incomplete string in %s */
+#define HLP_SETSQLDIALECT	106	/* \tSET SQL DIALECT <n>    -- set sql dialect to <n> */
+
+#ifndef DEBUG
+#define Trace		0
+#endif
+
+#ifdef DEBUG
+#define Trace		1
+#endif
+
+#ifdef ISQL_MAIN
+#define EXTERN
+#else
+#define EXTERN	extern
+#endif
+
+/* Utility transaction handle */
+
+EXTERN isc_tr_handle M__trans;
+EXTERN isc_tr_handle D__trans;
+EXTERN isc_stmt_handle Stmt;
+EXTERN IB_FILE *Ofp, *Out, *Ifp, *Errfp;
+EXTERN SCHAR Term[MAXTERM_LENGTH];
+EXTERN SCHAR Db_name[128];
+EXTERN SCHAR Target_db[128];
+EXTERN SCHAR User[128], Password[128], Role[128];
+EXTERN SCHAR Numbufs[16];		/* # of cache buffers on connect */
+EXTERN SSHORT Merge_stderr;
+EXTERN USHORT SQL_dialect;
+EXTERN USHORT db_SQL_dialect;
+#undef EXTERN
+
+static SCHAR *alpha_months[] = {
+	"JAN",
+	"FEB",
+	"MAR",
+	"APR",
+	"MAY",
+	"JUN",
+	"JUL",
+	"AUG",
+	"SEP",
+	"OCT",
+	"NOV",
+	"DEC"
+};
+
+typedef struct vary {
+	SSHORT vary_length;
+	SCHAR vary_string[1];
+} VARY;
+
+typedef struct sqltypes {
+	SSHORT type;
+	SCHAR type_name[WORDLENGTH];
+} SQLTYPES;
+
+#define MAXSUBTYPES 8			/* Top of subtypes array */
+
+#define SMALLINT	7
+#define INTEGER		8
+#define QUAD		9
+#define FLOAT		10
+#define FCHAR		14
+#define DOUBLE_PRECISION 27
+#define DATE		35
+#define VARCHAR		37
+#define CSTRING		40
+#define BLOB_ID		45
+#define BLOB		261
+
+#ifdef VMS
+#include <descrip.h>
+#define SCRATCH		"gds_query"
+#define LIB$_INPSTRTRU	0x15821c
+#endif
+
+#ifdef UNIX
+#ifdef SMALL_FILE_NAMES
+#define SCRATCH		"gds_q"
+#else
+#define SCRATCH		"gds_query"
+#endif
+#define UNIX_LINE	1
+#endif
+
+#ifdef PC_PLATFORM
+#include <io.h>
+#define SCRATCH		"I"
+#define UNIX_LINE	1
+#define PC_FILE_SEEK
+#endif
+
+#if (defined WIN_NT)
+#include <io.h>
+#define SCRATCH		"ib"
+#define UNIX_LINE	1
+#define PC_FILE_SEEK
+#endif
+
+#ifdef GUI_TOOLS
+#ifndef WISQL_SHORTMSG
+#define WISQL_SHORTMSG	1
+#endif /* WISQL_SHORTMSG */
+
+#define	STDERROUT(st,l)	{ 					\
+			buffer_error_msg(st, WISQL_SHORTMSG);	\
+			wisqlerr(); 				\
+			}
+
+#define	__STDC__				/* why can't Windows gds.h work without this??? */
+#define NEWLINE		"\r\n"
+#endif /* GUI_TOOLS */
+
+#ifndef	STDERROUT
+#define	STDERROUT(st,l)	{ ib_fprintf (Errfp, "%s", st);\
+			  if (l) ib_fprintf (Errfp, "\n");\
+			  ib_fflush (Errfp); }
+#endif
+
+#ifdef GUI_TOOLS
+#ifndef ISQL_ALLOC
+#define ISQL_ALLOC(x)     malloc (x)
+#endif
+#else
+#ifndef ISQL_ALLOC
+#define ISQL_ALLOC(x)     gds__alloc (x)
+#endif
+#endif /* GUI_TOOLS */
+
+#ifdef GUI_TOOLS
+#ifndef ISQL_FREE
+#define ISQL_FREE(x)     {free (x); x = NULL;}
+#endif
+#else
+#ifndef ISQL_FREE
+#define ISQL_FREE(x)     {isc_free (x); x = NULL;}
+#endif
+#endif /* GUI_TOOLS */
+
+#ifndef NEWLINE
+#define NEWLINE 	"\n"
+#endif
+
+#define TAB "        "
+
+#endif /* _ISQL_ISQL_H_ */
diff --git a/src/isql/isql.rc b/src/isql/isql.rc
new file mode 100644
index 0000000000..d865c1b95d
--- /dev/null
+++ b/src/isql/isql.rc
@@ -0,0 +1,258 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+# include <windows.h>
+
+# include "isql_res.h"
+
+isql ICON "isql.ico"
+
+isql MENU 
+{
+ POPUP "File"
+ {
+  MENUITEM "Exec SQL...", IDM_EXEC_SQL
+  MENUITEM "Exec Script...", IDM_EXEC_SCRIPT
+  MENUITEM SEPARATOR
+  MENUITEM "Connect Database...", IDM_CONNECT_DB
+  MENUITEM "Extract Database...", IDM_EXTRACT_DB
+  MENUITEM "Create Database...", IDM_CREATE_DB
+  MENUITEM "Drop Database...", IDM_DROP_DB
+  MENUITEM SEPARATOR
+  MENUITEM "Save Output...", IDM_SAVE_OUTPUT
+  MENUITEM "Save Session...", IDM_SAVE_SESSION
+  MENUITEM SEPARATOR
+  MENUITEM "Exit", IDM_QUIT
+ }
+
+ POPUP "Options"
+ {
+  MENUITEM "Set Blob Display...", IDM_BLOB_TYPE
+  MENUITEM "Set Terminator...", IDM_TERMINATOR
+  MENUITEM "Set Names...", IDM_CHAR_SET
+  MENUITEM "Set Transaction...", IDM_TRANSACTION
+  MENUITEM SEPARATOR
+  MENUITEM "Set Append", IDM_APPEND
+  MENUITEM "Set Statistics", IDM_STATISTICS
+  MENUITEM "Set Count", IDM_COUNT
+  MENUITEM "Set Autocommit", IDM_AUTOCOMMIT
+  MENUITEM "Set List", IDM_LIST
+  MENUITEM "Set Plan", IDM_PLAN
+  MENUITEM "Set Auto DDL", IDM_AUTODDL
+ }
+
+ POPUP "Show"
+ {
+  MENUITEM "Version", IDM_SHOW_VERSION
+  MENUITEM "System", IDM_SHOW_SYSTEM
+  MENUITEM "Database", IDM_SHOW_DATABASE
+  MENUITEM "Settings", IDM_SHOW_SETTINGS
+  MENUITEM SEPARATOR
+  MENUITEM "Table...", IDM_SHOW_TABLE
+  MENUITEM "View...", IDM_SHOW_VIEW
+  MENUITEM "Index...", IDM_SHOW_INDEX
+  MENUITEM "Domain...", IDM_SHOW_DOMAIN
+  MENUITEM "Exception...", IDM_SHOW_EXCEPTS
+  MENUITEM "Filter...", IDM_SHOW_FILTER
+  MENUITEM "Function...", IDM_SHOW_FUNCTION
+  MENUITEM "Grant...", IDM_SHOW_GRANT
+  MENUITEM "Generator...", IDM_SHOW_GENERATOR
+  MENUITEM "Procedure...", IDM_SHOW_PROCEDURE
+  MENUITEM "Trigger...", IDM_SHOW_TRIGGER
+  MENUITEM "Check...", IDM_SHOW_CHECK
+ }
+
+ POPUP "Help"
+ {
+  MENUITEM "Help...", IDM_HELP
+  MENUITEM "About", IDM_ABOUT
+ }
+
+}
+
+STRINGTABLE
+{
+    IDS_NAME,          "InterBase SQL"
+    IDS_MENUNAME,      "ISQL"
+    IDS_ICONNAME,      "ISQL"
+    IDS_ERROR,         "ISQL Error"
+    IDS_TEMP_IN_FILE,  "Unable to create temp input file %s"
+    IDS_TEMP_OUT_FILE, "Unable to create temp output file %s"
+    IDS_DEF_IN_FILE,   "Unable to create default input file %s"
+    IDS_DEF_OUT_FILE,  "Unable to create default output file %s"
+    IDS_DEF_HIST_FILE, "Unable to create default command history file %s"
+    IDS_DEF_SESS_FILE, "Unable to open default SQL session file %s"
+}
+
+ABOUT DIALOG 6, 6, 154, 75
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ ICON "ISQL", -1, 9, 23, 0, 0
+ CTEXT "ISQL", -1, 0, 5, 154, 8, SS_CENTER | WS_CHILD
+ CTEXT "Version 1.0", -1, 30, 34, 94, 8, SS_CENTER | WS_CHILD
+ DEFPUSHBUTTON "Ok", IDOK, 61, 59, 32, 14
+}
+
+EXEC_SQL DIALOG 5, 7, 303, 118
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ EDITTEXT IDD_SQL_COMMAND, 10, 20, 223, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ LISTBOX IDD_SQL_HISTORY, 10, 53, 222, 58, LBS_NOTIFY | WS_BORDER | WS_VSCROLL | WS_CHILD
+ DEFPUSHBUTTON "Execute", IDOK, 247, 8, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 248, 27, 50, 14
+ LTEXT "Enter command:", -1, 10, 6, 60, 8
+ LTEXT "Command history:", -1, 10, 39, 71, 8
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 248, 50, 50, 14
+}
+
+EXTRACT_DB DIALOG 6, 6, 250, 111
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ DEFPUSHBUTTON "OK", IDOK, 190, 20, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 190, 40, 50, 14
+ LTEXT "Database name:", -1, 10, 6, 60, 8
+ EDITTEXT IDD_EXTRACT_DBNAME, 10, 20, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ LTEXT "Target database:", -1, 10, 40, 60, 8
+ EDITTEXT IDD_EXTRACT_TARGET, 10, 54, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ LTEXT "Output file:", -1, 10, 74, 60, 8
+ EDITTEXT IDD_EXTRACT_OUTPUT, 10, 90, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 190, 63, 51, 16
+}
+
+CONNECT_DB DIALOG 6, 6, 250, 112
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ DEFPUSHBUTTON "OK", IDOK, 194, 9, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 196, 30, 50, 14
+ LTEXT "Database name:", -1, 10, 6, 67, 10
+ EDITTEXT IDD_DB_DBNAME, 10, 20, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ LTEXT "User name:", -1, 10, 40, 76, 11
+ EDITTEXT IDD_DB_USERNAME, 10, 54, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ LTEXT "Password:", -1, 10, 74, 66, 10
+ EDITTEXT IDD_DB_PASSWORD, 10, 90, 140, 15, ES_AUTOHSCROLL | ES_PASSWORD | WS_BORDER | WS_TABSTOP
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 193, 51, 51, 18
+}
+
+DB_OBJECT DIALOG 6, 6, 205, 90
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ DEFPUSHBUTTON "OK", IDOK, 153, 22, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 152, 41, 50, 14
+ PUSHBUTTON "ALL", IDD_ALL_OBJECTS, 153, 3, 48, 14
+ LTEXT "Database object name:", -1, 5, 7, 101, 11
+ EDITTEXT IDD_OBJECT, 2, 21, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 150, 61, 51, 16
+}
+
+BLOB_TYPE DIALOG 6, 6, 205, 90
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ DEFPUSHBUTTON "OK", IDOK, 151, 31, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 150, 50, 50, 14
+ LTEXT "Enter blob type:", -1, 6, 7, 60, 8
+ PUSHBUTTON "ALL types", IDD_ALL_BLOBS, 149, 9, 50, 14
+ EDITTEXT IDD_BLOB_TYPE, 8, 21, 91, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 147, 69, 53, 16
+}
+
+TERMINATOR DIALOG 6, 6, 219, 63
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ DEFPUSHBUTTON "OK", IDOK, 161, 6, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 162, 26, 50, 14
+ LTEXT "Enter new SQL statement terminator:", -1, 10, 10, 135, 8
+ EDITTEXT IDD_TERMINATOR, 10, 26, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 162, 45, 50, 15
+}
+
+CHAR_SET DIALOG 6, 6, 214, 64
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ DEFPUSHBUTTON "OK", IDOK, 157, 6, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 157, 25, 50, 14
+ LTEXT "Enter character set name:", -1, 11, 10, 91, 11
+ EDITTEXT IDD_CHAR_SET, 10, 24, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 155, 43, 54, 18
+}
+
+TRANS_STRING DIALOG 8, 10, 316, 67
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ DEFPUSHBUTTON "OK", IDOK, 253, 5, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 252, 24, 50, 14
+ LTEXT "Transaction statement:", -1, 4, 5, 104, 8
+ EDITTEXT IDD_TRANS_STRING, 7, 19, 238, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 252, 43, 52, 18
+}
+
+EXEC_SCRIPT DIALOG 6, 6, 224, 72
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ DEFPUSHBUTTON "OK", IDOK, 169, 8, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 169, 26, 50, 14
+ LTEXT "Enter script file name:", -1, 10, 4, 84, 8
+ LTEXT "Enter output file name:", -1, 10, 36, 80, 8
+ EDITTEXT IDD_SCRIPT_INPUT, 10, 15, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ EDITTEXT IDD_SCRIPT_OUTPUT, 10, 49, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 167, 46, 52, 18
+}
+
+SAVE_OUTPUT DIALOG 6, 6, 217, 66
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ DEFPUSHBUTTON "OK", IDOK, 161, 8, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 161, 28, 50, 14
+ LTEXT "Save current window to file:", -1, 10, 6, 114, 8
+ EDITTEXT IDD_SAVE_OUTPUT_FILE, 10, 20, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 162, 45, 49, 17
+}
+
+SAVE_SESSION DIALOG 6, 6, 221, 59
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ DEFPUSHBUTTON "OK", IDOK, 166, 5, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 166, 23, 50, 14
+ LTEXT "Save session to file:", -1, 10, 7, 74, 8
+ EDITTEXT IDD_SAVE_SESSION_FILE, 10, 22, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 164, 40, 52, 16
+}
+
+CREATE_DB DIALOG 6, 6, 250, 112
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ DEFPUSHBUTTON "OK", IDOK, 194, 9, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 196, 30, 50, 14
+ LTEXT "Database name:", -1, 10, 6, 67, 10
+ EDITTEXT IDD_CREATE_DBNAME, 10, 20, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ LTEXT "User name:", -1, 10, 40, 76, 11
+ EDITTEXT IDD_CREATE_USERNAME, 10, 54, 140, 15, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
+ LTEXT "Password:", -1, 10, 74, 66, 10
+ EDITTEXT IDD_CREATE_PASSWORD, 10, 90, 140, 15, ES_AUTOHSCROLL | ES_PASSWORD | WS_BORDER | WS_TABSTOP
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 193, 51, 51, 18
+}
+
+DROP_DB DIALOG 6, 6, 250, 112
+STYLE WS_POPUP | WS_DLGFRAME
+{
+ DEFPUSHBUTTON "OK", IDOK, 194, 9, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 196, 30, 50, 14
+ LTEXT "Drop database?", -1, 10, 6, 67, 10
+ PUSHBUTTON "Help", IDD_HELP_BUTTON, 193, 51, 51, 18
+}
+
+ISQLCURSOR CURSOR "isql.cur"
diff --git a/src/isql/isql_proto.h b/src/isql/isql_proto.h
new file mode 100644
index 0000000000..1e8fef9284
--- /dev/null
+++ b/src/isql/isql_proto.h
@@ -0,0 +1,67 @@
+/*
+ *	PROGRAM:	Interactive SQL utility
+ *	MODULE:		isql_proto.h
+ *	DESCRIPTION:	Prototype header file for isql.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ISQL_ISQL_PROTO_H_
+#define _ISQL_ISQL_PROTO_H_
+
+extern void ISQL_array_dimensions(TEXT *);
+extern SCHAR *ISQL_blankterm(TEXT *);
+extern void ISQL_build_table_list(void **, IB_FILE *, IB_FILE *, IB_FILE *);
+extern void ISQL_build_view_list(void **, IB_FILE *, IB_FILE *, IB_FILE *);
+extern int ISQL_commit_work(int, IB_FILE *, IB_FILE *, IB_FILE *);
+extern void ISQL_copy_SQL_id(TEXT *, TEXT **, TEXT);
+extern int ISQL_create_database(TEXT *,
+								SCHAR **,
+								SCHAR *,
+								SCHAR *, IB_FILE *, IB_FILE *, IB_FILE *);
+extern BOOLEAN ISQL_dbcheck(void);
+extern void ISQL_disconnect_database(int);
+extern void ISQL_errmsg(STATUS *);
+extern void ISQL_warning(STATUS *);
+extern void ISQL_exit_db(void);
+extern int ISQL_extract(TEXT *, int, IB_FILE *, IB_FILE *, IB_FILE *);
+extern int ISQL_frontend_command(TEXT *, IB_FILE *, IB_FILE *, IB_FILE *);
+extern BOOLEAN ISQL_get_base_column_null_flag(TEXT *, SSHORT, TEXT *);
+extern void ISQL_get_character_sets(SSHORT, SSHORT, USHORT, TEXT *);
+extern SSHORT ISQL_get_default_char_set_id(void);
+extern void ISQL_get_default_source(TEXT *, TEXT *, GDS__QUAD *);
+extern SSHORT ISQL_get_field_length(TEXT *);
+extern SSHORT ISQL_get_index_segments(TEXT *, TEXT *, BOOLEAN);
+extern BOOLEAN ISQL_get_null_flag(TEXT *, TEXT *);
+extern void ISQL_get_version(BOOLEAN);
+extern SSHORT ISQL_init(IB_FILE *, IB_FILE *);
+extern BOOLEAN ISQL_is_domain(TEXT *);
+extern SSHORT ISQL_main(int, char **);
+extern void ISQL_make_upper(UCHAR *);
+extern void ISQL_msg_get(USHORT,
+						 TEXT *, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+extern void ISQL_print_validation(IB_FILE *, GDS__QUAD *, SSHORT, SLONG *);
+extern void ISQL_printf(IB_FILE *, TEXT *);
+extern void ISQL_query_database(SSHORT *, IB_FILE *, IB_FILE *, IB_FILE *);
+extern void ISQL_reset_settings(void);
+extern void ISQL_ri_action_print(TEXT *, TEXT *, BOOLEAN);
+extern int ISQL_sql_statement(TEXT *, IB_FILE *, IB_FILE *, IB_FILE *);
+extern void ISQL_truncate_term(TEXT *, USHORT);
+extern void ISQL_win_err(SCHAR *);
+
+#endif /* _ISQL_ISQL_PROTO_H_ */
diff --git a/src/isql/isql_res.h b/src/isql/isql_res.h
new file mode 100644
index 0000000000..09153cf636
--- /dev/null
+++ b/src/isql/isql_res.h
@@ -0,0 +1,145 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+// Borland C++ - (C) Copyright 1994 by Borland International
+
+// isql_res.h
+
+// Cursor definition
+#define ISQLCURSOR              1
+
+// String table definitions
+#define IDS_NAME                1
+#define IDS_MENUNAME            2
+#define IDS_ICONNAME            3
+#define IDS_TEMP_IN_FILE	4
+#define IDS_TEMP_OUT_FILE	5
+#define IDS_DEF_IN_FILE		6
+#define IDS_DEF_OUT_FILE	7
+#define IDS_DEF_HIST_FILE	8
+#define IDS_DEF_SESS_FILE	9
+#define	IDS_ERROR		10
+
+// EXEC menu defines
+#define IDM_QUIT                101
+#define IDM_EXEC_SQL            103
+#define IDM_HOME                104
+#define IDM_EXEC_SCRIPT         105
+#define IDM_EXTRACT_DB          106
+#define IDM_CONNECT_DB          107
+#define IDM_SAVE_SESSION        108
+#define IDM_SAVE_OUTPUT         109
+#define	IDM_CREATE_DB		138
+#define	IDM_DROP_DB		139
+
+// OPTIONS menu defines
+#define IDM_BLOB_TYPE           110
+#define IDM_STATISTICS          111
+#define IDM_COUNT               112
+#define IDM_AUTOCOMMIT          113
+#define IDM_LIST                114
+#define IDM_PLAN                115
+#define IDM_TRANSACTION         116
+#define IDM_AUTODDL             117
+#define IDM_APPEND              118
+#define IDM_CHAR_SET            119
+#define IDM_TERMINATOR          120
+
+// SHOW menu defines
+
+#define IDM_SHOW_VERSION        121
+#define IDM_SHOW_SYSTEM         122
+#define IDM_SHOW_DATABASE       123
+#define IDM_SHOW_CHECK          124
+#define IDM_SHOW_TRIGGER        125
+#define IDM_SHOW_PROCEDURE      126
+#define IDM_SHOW_GENERATOR      127
+#define IDM_SHOW_GRANT          128
+#define IDM_SHOW_FUNCTION       129
+#define IDM_SHOW_FILTER         130
+#define IDM_SHOW_EXCEPTS        131
+#define IDM_SHOW_DOMAIN         132
+#define IDM_SHOW_INDEX          133
+#define IDM_SHOW_VIEW           134
+#define IDM_SHOW_TABLE          135
+#define IDM_SHOW_SETTINGS       136
+
+// HELP menu defines
+#define IDM_HELP                137
+#define IDM_ABOUT               102
+
+// EXEC menu components
+// Exec SQL dialog box components
+#define IDD_SQL_COMMAND         16
+#define IDD_SQL_HISTORY         17
+
+// Connect DB dialog box components
+#define IDD_DB_DBNAME           18
+#define IDD_DB_USERNAME         19
+#define IDD_DB_PASSWORD         20
+
+// Extract DB dialog box components
+#define IDD_EXTRACT_OUTPUT      21
+#define IDD_EXTRACT_DBNAME      22
+#define IDD_EXTRACT_TARGET      23
+
+// Exec Script dialog box components
+#define IDD_SCRIPT_INPUT        24
+#define IDD_SCRIPT_OUTPUT       25
+
+// Save session/output dialog box components
+#define IDD_SAVE_SESSION_FILE   26
+#define IDD_SAVE_OUTPUT_FILE    27
+
+// Create DB dialog box components
+#define IDD_CREATE_DBNAME       28
+#define IDD_CREATE_USERNAME     29
+#define IDD_CREATE_PASSWORD     30
+
+// OPTIONS menu components
+
+#define IDD_BLOB_TYPE           28
+#define IDD_ALL_BLOBS           29
+#define IDD_TERMINATOR          30
+#define IDD_CHAR_SET            31
+#define IDD_TRANS_STRING        32
+
+// SHOW menu components
+#define IDD_ALL_OBJECTS         33
+#define IDD_OBJECT              34
+
+// Common Help button
+#define IDD_HELP_BUTTON         35
+
+// Dialog box resource id'S
+#define EXEC_SQL                 1
+#define ABOUT                    2
+#define EXTRACT_DB               3
+#define CONNECT_DB               4
+#define EXEC_SCRIPT              5
+#define DB_OBJECT                6
+#define BLOB_TYPE                7
+#define TERMINATOR               8
+#define CHAR_SET                 9
+#define TRANS_STRING            10
+#define SAVE_OUTPUT             11
+#define SAVE_SESSION            12
+#define	CREATE_DB		13
+#define	DROP_DB			14
+
+// end isql_res.h
diff --git a/src/isql/isql_win.cpp b/src/isql/isql_win.cpp
new file mode 100644
index 0000000000..20cd32a954
--- /dev/null
+++ b/src/isql/isql_win.cpp
@@ -0,0 +1,2388 @@
+/*
+ *	PROGRAM:	Windows Interactive SQL utility
+ *	MODULE:		isql_win.c
+ *	DESCRIPTION:	Windows shell for ISQL
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#define  STRICT
+#include <windows.h>
+#pragma hdrstop
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include <time.h>
+#include <bios.h>
+#include <ctype.h>
+#include <io.h>
+#include <dos.h>
+#include <dir.h>
+#include <windowsx.h>
+
+#include "../jrd/common.h"
+#include "../isql/isql.h"
+#include "../isql/isql_win.h"
+#include "../isql/isql_res.h"
+#include "../include/jrd/gds.h"
+#include "../isql/isqlw_proto.h"
+#include "../isql/isql_proto.h"
+#include "../jrd/gds_proto.h"
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      256
+#endif
+
+typedef struct scrollkeys {
+	WORD wVirtkey;
+	int iMessage;
+	WORD wRequest;
+} SCROLLKEYS;
+
+SCROLLKEYS key2scroll[] = {
+	{VK_HOME, WM_COMMAND, IDM_HOME},
+	{VK_END, WM_VSCROLL, SB_BOTTOM},
+	{VK_PRIOR, WM_VSCROLL, SB_PAGEUP},
+	{VK_NEXT, WM_VSCROLL, SB_PAGEDOWN},
+	{VK_UP, WM_VSCROLL, SB_LINEUP},
+	{VK_DOWN, WM_VSCROLL, SB_LINEDOWN},
+	{VK_LEFT, WM_HSCROLL, SB_PAGEUP},
+	{VK_RIGHT, WM_HSCROLL, SB_PAGEDOWN}
+};
+
+#define NUMKEYS (sizeof key2scroll / sizeof key2scroll[0])
+
+/* data initialized by first instance */
+
+typedef struct tagSETUPDATA {
+	SCHAR appName[20];
+	SCHAR menuName[20];
+	SCHAR iconName[20];
+	SCHAR errorString[20];
+} SETUPDATA;
+
+/* various temp file names */
+
+static SCHAR defInputFile[MAXPATHLEN];	/* default input file name */
+static SCHAR defOutputFile[MAXPATHLEN];	/* default output file name */
+static SCHAR defHistFile[MAXPATHLEN];	/* command history file name */
+static SCHAR defSessionFile[MAXPATHLEN];	/* SQL session file */
+static IB_FILE *ipf;			/* input file */
+static IB_FILE *opf;			/* output file */
+static IB_FILE *chf;			/* command history */
+static IB_FILE *sss;			/* SQL session */
+
+/* global flags */
+
+static SSHORT gflags;
+
+#define DBINITED	1			/* database initilized flag */
+#define DEFINPUT	2			/* default input file exists flag */
+#define DEFOUTPUT	4			/* default output file exists flag */
+#define COMHIST		8			/* command history file exists flag */
+#define OVERWRITE	16			/* overwrite/append to window */
+#define SESSFILE	32			/* SQL session file exists flag */
+
+SETUPDATA SetUpData;
+
+/*
+   Data that can be referenced throughout the
+   program but not passed to other instances
+*/
+
+HINSTANCE hInst;				/* hInstance of application */
+HWND hWndMain;					/* hWnd of main window */
+
+int xChar, yChar, yCharnl;		/* character size */
+int xClient, yClient;			/* client window size */
+
+LOGFONT cursfont;				/* font structure */
+HFONT holdsfont;				/* handle of original font */
+HFONT hnewsfont;				/* handle of new fixed font */
+SCHAR tmpDialogParam[1024];		/* used by dialog boxes */
+
+/* window scroll/paint stuff */
+
+int nVscrollMax, nHscrollMax;	/* scroll ranges */
+int nVscrollPos, nHscrollPos;	/* current scroll positions */
+int numlines;					/* number of lines in file */
+int maxwidth;					/* width of display format */
+int nVscrollInc, nHscrollInc;	/* scroll increments */
+int nPageMaxLines;				/* max lines on screen */
+
+/* arguments passed to ISQL */
+
+int ISQL_argc;					/* argument count */
+char *ISQL_argv[20];			/* argument vector */
+char ISQL_args[1024];			/* space for arguments */
+char *ISQL_cursor;				/* cursor into arguments */
+
+/* database startup parameters */
+
+static SCHAR newDataBase[256];
+static SCHAR newUserName[32];
+static SCHAR newPassword[16];
+
+/* script parameters */
+static SCHAR scriptName[256];
+static SCHAR scriptOutput[256];
+
+/* extract parameters */
+static SCHAR extractDbName[256];
+static SCHAR extractOutput[256];
+static SCHAR extractTarget[256];
+
+static SSHORT allblobsflag;
+static SSHORT allobjectsflag;
+
+
+int PASCAL WinMain(
+				   HINSTANCE hInstance,
+				   HINSTANCE hPrevInstance, LPSTR pCmdLine, int cmdShow)
+{
+/**************************************************
+ *
+ *      W i n M a i n
+ *
+ **************************************************
+ *
+ * Functional description:
+ *      WinMain shell for the Windows ISQL function.
+ *
+ *
+ * paramaters:
+ *             hInstance     - The instance of this instance of this
+ *                             application.
+ *             hPrevInstance - The instance of the previous instance
+ *                             of this application. This will be 0
+ *                             if this is the first instance.
+ *             pCmdLine      - A long pointer to the command line that
+ *                             started this application.
+ *             cmdShow       - Indicates how the window is to be shown
+ *                             initially. ie. SW_SHOWNORMAL, SW_HIDE,
+ *                             SW_MIMIMIZE.
+ *
+ * returns:
+ *             wParam from last message.
+ *
+ ********************************************************************/
+
+	if (pCmdLine && *pCmdLine)
+		return cmdline_isql(hInstance, pCmdLine);
+	else
+		return windows_isql(hInstance, hPrevInstance, cmdShow);
+}
+
+
+LRESULT CALLBACK _export ISQLWndProc(HWND hWnd,
+									 UINT message,
+									 WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      I S Q L W n d P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      This handles all messages for the application's main window,
+ *      including scrolling and menu picks.
+ *
+ * paramaters:
+ *             hWnd          - The window handle for this message
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+ ********************************************************************/
+	DLGPROC lpproc;				/* pointer to thunk for dialog box */
+	SCHAR buf[1024];			/* temp buffer */
+	SCHAR pwbuf[50];
+	SCHAR unbuf[50];
+	SSHORT i;
+	int ret;
+
+	switch (message) {
+	case WM_CREATE:
+		nVscrollPos = 0;
+		nHscrollPos = 0;
+		return (DefWindowProc(hWnd, message, wParam, lParam));
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDM_QUIT:
+			/* User selected Quit on menu */
+			PostMessage(hWnd, WM_CLOSE, 0, 0L);
+			break;
+
+		case IDM_HOME:
+			/* Used to implement home to topleft from keyboard. */
+			SendMessage(hWnd, WM_HSCROLL, GET_WM_HSCROLL_MPS(SB_TOP, 0, 0));
+			SendMessage(hWnd, WM_VSCROLL, GET_WM_VSCROLL_MPS(SB_TOP, 0, 0));
+			break;
+
+		case IDM_ABOUT:
+			/* Display about box. */
+			lpproc =
+				(DLGPROC) MakeProcInstance((FARPROC) aboutDlgProc, hInst);
+			DialogBox(hInst, MAKEINTRESOURCE(ABOUT), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			break;
+
+		case IDM_EXEC_SQL:
+			tmpDialogParam[0] = '\0';
+			lpproc = (DLGPROC) MakeProcInstance((FARPROC) execDlgProc, hInst);
+			ret = DialogBox(hInst, MAKEINTRESOURCE(EXEC_SQL), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				ib_fprintf(sss, "%s\n\r", tmpDialogParam);
+				ib_fflush(sss);
+				test_overwrite();
+				ISQL_sql_statement(tmpDialogParam, ipf, opf, chf);
+				ib_fprintf(opf, "\n\r\n\r");
+				display_page(hWnd);
+			}
+			break;
+
+		case IDM_CONNECT_DB:
+			newDataBase[0] = '\0';
+			newUserName[0] = '\0';
+			newPassword[0] = '\0';
+			lpproc =
+				(DLGPROC) MakeProcInstance((FARPROC) dbNameDlgProc, hInst);
+			ret = DialogBox(hInst, MAKEINTRESOURCE(CONNECT_DB), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				ISQL_exit_db();
+				if (ISQL_init
+					(newDataBase, newUserName, newPassword, ipf,
+					 opf)) gflags |= DBINITED;
+			}
+			break;
+
+		case IDM_CREATE_DB:
+			newDataBase[0] = '\0';
+			newUserName[0] = '\0';
+			newPassword[0] = '\0';
+			lpproc =
+				(DLGPROC) MakeProcInstance((FARPROC) createDbDlgProc, hInst);
+			ret = DialogBox(hInst, MAKEINTRESOURCE(CREATE_DB), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				ISQL_exit_db();
+				if (newUserName[0])
+					sprintf(unbuf, " USER \"%s\" ", newUserName);
+				else
+					unbuf[0] = '\0';
+				if (newPassword[0])
+					sprintf(pwbuf, " PASSWORD \"%s\" ", newPassword);
+				else
+					pwbuf[0] = '\0';
+				sprintf(buf, "CREATE DATABASE \"%s\" %s %s",
+						newDataBase, unbuf, pwbuf);
+				ISQL_frontend_command(buf, ipf, opf, chf);
+				gflags |= DBINITED;
+			}
+			break;
+
+		case IDM_DROP_DB:
+			lpproc =
+				(DLGPROC) MakeProcInstance((FARPROC) dropDbDlgProc, hInst);
+			ret = DialogBox(hInst, MAKEINTRESOURCE(DROP_DB), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				ISQL_frontend_command("DROP DATABASE", ipf, opf, chf);
+				gflags &= ~DBINITED;
+			}
+			break;
+
+		case IDM_SAVE_SESSION:
+			tmpDialogParam[0] = '\0';
+			lpproc =
+				(DLGPROC) MakeProcInstance((FARPROC) sessionDlgProc, hInst);
+			ret =
+				DialogBox(hInst, MAKEINTRESOURCE(SAVE_SESSION), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				ib_fflush(chf);
+				ib_fclose(chf);
+				xfer_file(defHistFile, tmpDialogParam, FALSE);
+				chf = ib_fopen(defHistFile, "a");
+			}
+			break;
+
+		case IDM_SAVE_OUTPUT:
+			tmpDialogParam[0] = '\0';
+			lpproc =
+				(DLGPROC) MakeProcInstance((FARPROC) outputDlgProc, hInst);
+			ret =
+				DialogBox(hInst, MAKEINTRESOURCE(SAVE_OUTPUT), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				ib_fflush(opf);
+				ib_fclose(opf);
+				xfer_file(defOutputFile, tmpDialogParam, FALSE);
+				opf = ib_fopen(defOutputFile, "a");
+			}
+			break;
+
+		case IDM_EXEC_SCRIPT:
+			scriptName[0] = '\0';
+			scriptOutput[0] = '\0';
+			lpproc =
+				(DLGPROC) MakeProcInstance((FARPROC) scriptDlgProc, hInst);
+			ret =
+				DialogBox(hInst, MAKEINTRESOURCE(EXEC_SCRIPT), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				/* generate an argc/argv */
+
+				ISQL_cursor = ISQL_args;
+				ISQL_argc = 0;
+				pusharg("isql");
+				pusharg("-input");
+				pusharg(scriptName);
+				pusharg("-output");
+
+				/* use specified output file, or default */
+
+				if (scriptOutput[0])
+					pusharg(scriptOutput);
+				else
+					pusharg(defOutputFile);
+				ib_fclose(opf);
+				ib_fclose(ipf);
+
+				/* if database already open, exit and add database
+				   name to arguments */
+
+				if (gflags & DBINITED) {
+					ISQL_exit_db();
+					pusharg(newDataBase);
+				}
+
+				/* if overwrite flag is set, make sure ISQL appends to
+				   an empty file */
+
+				if (gflags & OVERWRITE) {
+					opf = ib_fopen(defOutputFile, "w");
+					ib_fclose(opf);
+				}
+				ISQL_main(ISQL_argc, ISQL_argv);
+
+				/* reopen default files and database */
+
+				ipf = ib_fopen(defInputFile, "r");
+				opf = ib_fopen(defOutputFile, "a");
+				if (gflags & DBINITED)
+					ISQL_init(newDataBase, newUserName, newPassword, ipf,
+							  opf);
+				ib_fprintf(opf, "\n\r\n\r");
+				display_page(hWnd);
+			}
+			break;
+
+		case IDM_EXTRACT_DB:
+			extractOutput[0] = '\0';
+			extractDbName[0] = '\0';
+			extractTarget[0] = '\0';
+			lpproc =
+				(DLGPROC) MakeProcInstance((FARPROC) extractDlgProc, hInst);
+			ret = DialogBox(hInst, MAKEINTRESOURCE(EXTRACT_DB), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				/* create an argument vector for ISQL */
+
+				ISQL_cursor = ISQL_args;
+				ISQL_argc = 0;
+				pusharg("isql");
+				pusharg("-extract");
+				pusharg("-o");
+				if (extractOutput[0])
+					pusharg(extractOutput);
+				else
+					pusharg(defOutputFile);
+				pusharg(extractDbName);
+				if (extractTarget[0]) {
+					pusharg("-database");
+					pusharg(extractTarget);
+				}
+				ib_fclose(opf);
+				ib_fclose(ipf);
+				ISQL_exit_db();
+				ISQL_main(ISQL_argc, ISQL_argv);
+				ISQL_exit_db();
+
+				/* reopen default files and database */
+
+				ipf = ib_fopen(defInputFile, "r");
+				opf = ib_fopen(defOutputFile, "a");
+				if (gflags & DBINITED)
+					ISQL_init(newDataBase, newUserName, newPassword, ipf,
+							  opf);
+				ib_fprintf(opf, "\n\r\n\r");
+				display_page(hWnd);
+			}
+			break;
+
+		case IDM_HELP:
+			ISQL_win_err("not implemented yet");
+			break;
+
+		case IDM_APPEND:
+			if (gflags & OVERWRITE)
+				gflags &= ~OVERWRITE;
+			else
+				gflags |= OVERWRITE;
+			break;
+
+			/* Send the proper frontend commands for these: */
+
+		case IDM_BLOB_TYPE:
+			tmpDialogParam[0] = '\0';
+			allblobsflag = FALSE;
+			lpproc = (DLGPROC) MakeProcInstance((FARPROC) blobDlgProc, hInst);
+			ret = DialogBox(hInst, MAKEINTRESOURCE(BLOB_TYPE), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				sprintf(buf, "SET BLOBDISPLAY %s", tmpDialogParam);
+				ISQL_frontend_command(buf, ipf, opf, chf);
+			}
+			break;
+
+		case IDM_STATISTICS:
+			ISQL_frontend_command("SET STATS", ipf, opf, chf);
+			break;
+
+		case IDM_COUNT:
+			ISQL_frontend_command("SET COUNT", ipf, opf, chf);
+			break;
+
+		case IDM_AUTOCOMMIT:
+			ISQL_frontend_command("SET AUTOCOMMIT", ipf, opf, chf);
+			break;
+
+		case IDM_LIST:
+			ISQL_frontend_command("SET LIST", ipf, opf, chf);
+			break;
+
+		case IDM_PLAN:
+			ISQL_frontend_command("SET PLAN", ipf, opf, chf);
+			break;
+
+		case IDM_TRANSACTION:
+			tmpDialogParam[0] = '\0';
+			lpproc =
+				(DLGPROC) MakeProcInstance((FARPROC) transDlgProc, hInst);
+			ret =
+				DialogBox(hInst, MAKEINTRESOURCE(TRANS_STRING), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				sprintf(buf, "SET TRANSACTION %s", tmpDialogParam);
+				ISQL_frontend_command(buf, ipf, opf, chf);
+			}
+			break;
+
+		case IDM_AUTODDL:
+			ISQL_frontend_command("SET AUTO", ipf, opf, chf);
+			break;
+
+		case IDM_TERMINATOR:
+			tmpDialogParam[0] = '\0';
+			lpproc = (DLGPROC) MakeProcInstance((FARPROC) termDlgProc, hInst);
+			ret = DialogBox(hInst, MAKEINTRESOURCE(TERMINATOR), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				sprintf(buf, "SET TERM %s", tmpDialogParam);
+				ISQL_frontend_command(buf, ipf, opf, chf);
+			}
+			break;
+
+		case IDM_CHAR_SET:
+			tmpDialogParam[0] = '\0';
+			lpproc =
+				(DLGPROC) MakeProcInstance((FARPROC) charSetDlgProc, hInst);
+			ret = DialogBox(hInst, MAKEINTRESOURCE(CHAR_SET), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				sprintf(buf, "SET NAMES %s", tmpDialogParam);
+				ISQL_frontend_command(buf, ipf, opf, chf);
+			}
+			break;
+
+			/* Send the proper show commands for these: */
+
+		case IDM_SHOW_VERSION:
+			test_overwrite();
+			ISQL_frontend_command("SHOW VERSION", ipf, opf, chf);
+			ib_fprintf(opf, "\n\r\n\r");
+			display_page(hWnd);
+			break;
+
+		case IDM_SHOW_SYSTEM:
+			test_overwrite();
+			ISQL_frontend_command("SHOW SYSTEM", ipf, opf, chf);
+			ib_fprintf(opf, "\n\r\n\r");
+			display_page(hWnd);
+			break;
+
+		case IDM_SHOW_SETTINGS:
+			test_overwrite();
+			ISQL_frontend_command("SET", ipf, opf, chf);
+			ib_fprintf(opf, "\n\r\n\r");
+			display_page(hWnd);
+			break;
+
+		case IDM_SHOW_DATABASE:
+			test_overwrite();
+			ISQL_frontend_command("SHOW DATABASE", ipf, opf, chf);
+			ib_fprintf(opf, "\n\r\n\r");
+			display_page(hWnd);
+			break;
+
+		case IDM_SHOW_CHECK:
+		case IDM_SHOW_TRIGGER:
+		case IDM_SHOW_PROCEDURE:
+		case IDM_SHOW_GENERATOR:
+		case IDM_SHOW_GRANT:
+		case IDM_SHOW_FUNCTION:
+		case IDM_SHOW_FILTER:
+		case IDM_SHOW_EXCEPTS:
+		case IDM_SHOW_DOMAIN:
+		case IDM_SHOW_INDEX:
+		case IDM_SHOW_VIEW:
+		case IDM_SHOW_TABLE:
+			tmpDialogParam[0] = '\0';
+			lpproc =
+				(DLGPROC) MakeProcInstance((FARPROC) objectDlgProc, hInst);
+			ret = DialogBox(hInst, MAKEINTRESOURCE(DB_OBJECT), hWnd, lpproc);
+			FreeProcInstance((FARPROC) lpproc);
+			if (ret) {
+				switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+				case IDM_SHOW_CHECK:
+					sprintf(buf, "SHOW CHECK %s", tmpDialogParam);
+					break;
+
+				case IDM_SHOW_TRIGGER:
+					sprintf(buf, "SHOW TRIGGER %s", tmpDialogParam);
+					break;
+
+				case IDM_SHOW_PROCEDURE:
+					sprintf(buf, "SHOW PROCEDURE %s", tmpDialogParam);
+					break;
+
+				case IDM_SHOW_GENERATOR:
+					sprintf(buf, "SHOW GENERATOR %s", tmpDialogParam);
+					break;
+
+				case IDM_SHOW_GRANT:
+					sprintf(buf, "SHOW GRANT %s", tmpDialogParam);
+					break;
+
+				case IDM_SHOW_FUNCTION:
+					sprintf(buf, "SHOW FUNCTION %s", tmpDialogParam);
+					break;
+
+				case IDM_SHOW_FILTER:
+					sprintf(buf, "SHOW FILTER %s", tmpDialogParam);
+					break;
+
+				case IDM_SHOW_EXCEPTS:
+					sprintf(buf, "SHOW EXCEPTION %s", tmpDialogParam);
+					break;
+
+				case IDM_SHOW_DOMAIN:
+					sprintf(buf, "SHOW DOMAIN %s", tmpDialogParam);
+					break;
+
+				case IDM_SHOW_INDEX:
+					sprintf(buf, "SHOW INDEX %s", tmpDialogParam);
+					break;
+
+				case IDM_SHOW_VIEW:
+					if (allobjectsflag)
+						strcpy(buf, "SHOW VIEWS");
+					else
+						sprintf(buf, "SHOW VIEW %s", tmpDialogParam);
+					break;
+
+				case IDM_SHOW_TABLE:
+					if (allobjectsflag)
+						strcpy(buf, "SHOW TABLES");
+					else
+						sprintf(buf, "SHOW TABLE %s", tmpDialogParam);
+					break;
+
+				}
+				test_overwrite();
+				ISQL_frontend_command(buf, ipf, opf, chf);
+				ib_fprintf(opf, "\n\r\n\r");
+				display_page(hWnd);
+			}
+			break;
+
+		default:
+			break;
+		}
+		break;
+
+	case WM_SIZE:
+		/* Save size of window client area. */
+		if (lParam) {
+			yClient = HIWORD(lParam);
+			xClient = LOWORD(lParam);
+			yClient = (yClient / yCharnl + 1) * yCharnl;
+			lParam = MAKELONG(xClient, yClient);
+
+			/* Go setup scroll ranges and file display area based upon */
+			/* client area size. */
+
+			setup_scroll(hWnd);
+			return DefWindowProc(hWnd, message, wParam, lParam);
+		}
+		break;
+
+	case WM_VSCROLL:
+		/* React to the various vertical scroll related actions. */
+
+		switch (GET_WM_VSCROLL_CODE(wParam, lParam)) {
+		case SB_TOP:
+			nVscrollInc = -nVscrollPos;
+			break;
+		case SB_BOTTOM:
+			nVscrollInc = nVscrollMax - nVscrollPos;
+			break;
+		case SB_LINEUP:
+			nVscrollInc = -1;
+			break;
+		case SB_LINEDOWN:
+			nVscrollInc = 1;
+			break;
+		case SB_PAGEUP:
+			nVscrollInc = -max(1, yClient / yChar);
+			break;
+		case SB_PAGEDOWN:
+			nVscrollInc = max(1, yClient / yChar);
+			break;
+		case SB_THUMBPOSITION:
+			nVscrollInc = GET_WM_VSCROLL_POS(wParam, lParam) - nVscrollPos;
+			break;
+		case SB_THUMBTRACK:
+			nVscrollInc = GET_WM_VSCROLL_POS(wParam, lParam) - nVscrollPos;
+			break;
+		default:
+			nVscrollInc = 0;
+		}
+		nVscrollInc = max(-nVscrollPos,
+						  min(nVscrollInc, nVscrollMax - nVscrollPos));
+		if (nVscrollInc) {
+			nVscrollPos += nVscrollInc;
+			ScrollWindow(hWnd, 0, -yChar * nVscrollInc, NULL, NULL);
+			SetScrollPos(hWnd, SB_VERT, nVscrollPos, TRUE);
+			UpdateWindow(hWnd);
+		}
+		break;
+
+	case WM_HSCROLL:
+		/* React to the various horizontal scroll related actions. */
+
+		switch (GET_WM_HSCROLL_CODE(wParam, lParam)) {
+		case SB_LINEUP:
+			nHscrollInc = -1;
+			break;
+		case SB_LINEDOWN:
+			nHscrollInc = 1;
+			break;
+		case SB_PAGEUP:
+			nHscrollInc = -8;
+			break;
+		case SB_PAGEDOWN:
+			nHscrollInc = 8;
+			break;
+		case SB_THUMBPOSITION:
+			nHscrollInc = GET_WM_HSCROLL_POS(wParam, lParam) - nHscrollPos;
+			break;
+		case SB_THUMBTRACK:
+			nHscrollInc = GET_WM_HSCROLL_POS(wParam, lParam) - nHscrollPos;
+			break;
+		default:
+			nHscrollInc = 0;
+		}
+		nHscrollInc = max(-nHscrollPos,
+						  min(nHscrollInc, nHscrollMax - nHscrollPos));
+		if (nHscrollInc) {
+			nHscrollPos += nHscrollInc;
+			ScrollWindow(hWnd, -xChar * nHscrollInc, 0, NULL, NULL);
+			SetScrollPos(hWnd, SB_HORZ, nHscrollPos, TRUE);
+			UpdateWindow(hWnd);
+		}
+		break;
+
+	case WM_KEYDOWN:
+		/* Translate various keydown messages to appropriate horizontal */
+		/* and vertical scroll actions. */
+
+		for (i = 0; i < NUMKEYS; i++) {
+			if (wParam == key2scroll[i].wVirtkey) {
+				SendMessage(hWnd, key2scroll[i].iMessage,
+							key2scroll[i].wRequest, 0L);
+				break;
+			}
+		}
+		break;
+
+	case WM_PAINT:
+		/* Go paint the client area of the window with the appropriate */
+		/* part of the selected file. */
+
+		paint_isql(hWnd);
+		break;
+
+	case WM_DESTROY:
+		/* This is the end if we were closed by a DestroyWindow call. */
+		close_isql();			/* take any necessary wrapup action. */
+		PostQuitMessage(0);		/* this is the end... */
+		break;
+
+	case WM_QUERYENDSESSION:
+		/* If we return TRUE we are saying it's ok with us to end the */
+		/* windows session. */
+		close_isql();			/* take any necessary wrapup action. */
+		return (long) TRUE;		/* we agree to end session. */
+
+	case WM_CLOSE:
+		/* Tell windows to destroy our window. */
+		DestroyWindow(hWnd);
+		break;
+
+	default:
+		/* Let windows handle all messages we choose to ignore. */
+		return DefWindowProc(hWnd, message, wParam, lParam);
+	}
+
+	return 0L;
+}
+
+
+void ISQL_win_err( SCHAR * string)
+{
+/***************************************************************
+ *
+ *      I S Q L _ w i n _ e r r
+ *
+ ***************************************************************
+ *
+ *  Functional description:
+ *      Output a Windows ISQL error in a message box.
+ *
+ ***************************************************************/
+
+	if (Merge_stderr)
+		ib_fprintf(Out, "%s\n", string);
+	else
+		MessageBox(NULL, string, SetUpData.errorString,
+				   MB_ICONEXCLAMATION | MB_OK);
+}
+
+
+static void close_isql()
+{
+/********************************************************************
+ *
+ *      c l o s e _ i s q l
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Shut down the database prior to exit.
+ *
+ ********************************************************************/
+
+	ISQL_exit_db();
+	if (gflags & COMHIST)
+		ib_fclose(chf);
+	unlink(defHistFile);
+	if (gflags & DEFINPUT)
+		ib_fclose(ipf);
+	unlink(defInputFile);
+	if (gflags & DEFOUTPUT)
+		ib_fclose(opf);
+	unlink(defOutputFile);
+	if (gflags & SESSFILE)
+		ib_fclose(sss);
+	unlink(defSessionFile);
+	DeleteObject(hnewsfont);
+}
+
+
+static int cmdline_isql( HINSTANCE hInstance, LPSTR pCmdLine)
+{
+/********************************************************************
+ *
+ *      c m d l i n e _ i s q l
+ *
+ ********************************************************************
+ *
+ * Functional Description:
+ *      Take the command line and turn it into an argc/argv to feed
+ *      to ISQL.
+ *
+ * paramaters:
+ *	       hInstance  - Instance used for error messsages
+ *             pCmdLine   - A long pointer to the command line that
+ *                          started this application.
+ *
+ * returns:
+ *              return from ISQL
+ *
+ ********************************************************************/
+	IB_FILE *inputfile;			/* input file */
+	IB_FILE *outputfile;		/* output file */
+	SCHAR inputfilename[MAXPATHLEN];	/* input file name */
+	SCHAR outputfilename[MAXPATHLEN];	/* output file name */
+	SCHAR arg[MAXPATHLEN];		/* current argument */
+	SCHAR *cp;					/* command line cursor */
+	SCHAR *ap;					/* current argument cursor */
+
+/* create default input and output files */
+
+	if (!open_temp_file
+		(hInstance, &inputfile, inputfilename, IDS_TEMP_IN_FILE)) return 0;
+	if (!open_temp_file
+		(hInstance, &outputfile, outputfilename, IDS_TEMP_OUT_FILE)) return 0;
+
+/* create failsafe input file */
+
+	ib_fprintf(inputfile, "QUIT;\n");
+	ib_fclose(inputfile);
+	ib_fclose(outputfile);
+
+/* create an argument vector, including the default files and command line args */
+
+	ISQL_cursor = ISQL_args;
+	ISQL_argc = 0;
+	pusharg("isql");
+	pusharg("-input");
+	pusharg(inputfilename);
+	pusharg("-output");
+	pusharg(outputfilename);
+	ap = arg;
+	for (cp = (SCHAR *) pCmdLine; *cp; cp++) {
+		*ap = *cp++;
+		if (*ap == ' ') {
+			*ap = '\0';
+			pusharg(arg);
+			ap = arg;
+		}
+		else
+			ap++;
+		if (ISQL_argc == 20)
+			break;
+	}
+	ISQL_main(ISQL_argc, ISQL_argv);
+	unlink(inputfilename);
+	unlink(outputfilename);
+
+	return 0;
+}
+
+
+static void display_page( HWND hWnd)
+{
+/***************************************************************
+ *
+ *      d i s p l a y _ p a g e
+ *
+ ***************************************************************
+ *
+ *  Functional description:
+ *      Throw the result up on the window.
+ *
+ ***************************************************************/
+	IB_FILE *fh;
+
+/* Determine file size and some display paramaters. */
+	nVscrollPos = numlines;
+	numlines = 0;
+	maxwidth = 0;
+	ib_fflush(opf);
+	ib_fclose(opf);
+	fh = ib_fopen(defOutputFile, "r+b");
+	if (fh) {
+		while (ib_fgets(tmpDialogParam, sizeof(tmpDialogParam), fh)) {
+			numlines++;
+			if (strlen(tmpDialogParam) > maxwidth)
+				maxwidth = strlen(tmpDialogParam);
+		}
+		ib_fclose(fh);
+	}
+	opf = ib_fopen(defOutputFile, "a");
+
+/* Go setup scroll ranges for this file. */
+
+	setup_scroll(hWnd);
+
+/* Show first part of file. */
+
+	InvalidateRect(hWnd, NULL, TRUE);
+	UpdateWindow(hWnd);
+}
+
+
+static SSHORT init_isql(
+						HINSTANCE hInstance,
+						HINSTANCE hPrevInstance, int cmdShow)
+{
+/********************************************************************
+ *
+ *      i n i t _ i s q l
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Startup code for Windows.   This builds the window and also
+ *      presents the user with a dialog box to specify the database
+ *      connection parameters.
+ *
+ * paramaters:
+ *             hInstance     - The instance of this instance of this
+ *                             application.
+ *             hPrevInstance - The instance of the previous instance
+ *                             of this application. This will be 0
+ *                             if this is the first instance.
+ *             cmdShow       - Indicates how the window is to be shown
+ *                             initially. ie. SW_SHOWNORMAL, SW_HIDE,
+ *                             SW_MIMIMIZE.
+ *
+ *********************************************************************/
+#pragma argsused
+	DLGPROC dlgProc;
+	int iReturn;
+
+/* perform instance dependant Windows initialization */
+
+	if (!hPrevInstance)
+		init_isql_first(hInstance);
+#if !defined(__WIN32__)
+	else
+		init_isql_added(hPrevInstance);
+#endif
+
+/* perform common instance Windows initialization */
+
+	init_isql_every(hInstance, cmdShow);
+
+/* open all the files */
+
+	if (!open_temp_file(hInstance, &ipf, defInputFile, IDS_DEF_IN_FILE))
+		return FALSE;
+	ib_fprintf(ipf, "QUIT;\n");
+	ib_fclose(ipf);
+	ipf = ib_fopen(defInputFile, "r");
+	gflags |= DEFINPUT;
+	if (!open_temp_file(hInstance, &opf, defOutputFile, IDS_DEF_OUT_FILE))
+		return FALSE;
+	gflags |= DEFOUTPUT;
+	if (!open_temp_file(hInstance, &chf, defHistFile, IDS_DEF_HIST_FILE))
+		return FALSE;
+	gflags |= COMHIST;
+	if (!open_temp_file(hInstance, &sss, defSessionFile, IDS_DEF_SESS_FILE))
+		return FALSE;
+	gflags |= SESSFILE;
+	newDataBase[0] = '\0';
+	newUserName[0] = '\0';
+	newPassword[0] = '\0';
+	dlgProc = (DLGPROC) MakeProcInstance((FARPROC) dbNameDlgProc, hInst);
+	iReturn =
+		DialogBox(hInst, MAKEINTRESOURCE(CONNECT_DB), hWndMain, dlgProc);
+	FreeProcInstance((FARPROC) dlgProc);
+	if (iReturn)
+		if (ISQL_init(newDataBase, newUserName, newPassword, ipf, opf))
+			gflags |= DBINITED;
+	return TRUE;
+}
+
+
+#if !defined(__WIN32__)
+static void init_isql_added( HINSTANCE hPrevInstance)
+{
+/********************************************************************
+ *
+ *      i n i t _ i s q l _ a d d e d
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      This gets called for each added instance of the application.
+ *
+ * paramaters:
+ *             hPrevInstance - The instance of the previous instance
+ *                             of this application.
+ *
+ *********************************************************************/
+
+/* get the results of the initialization of first instance */
+
+	GetInstanceData(hPrevInstance, (BYTE *) & SetUpData, sizeof(SETUPDATA));
+}
+#endif
+
+
+static void init_isql_every( HINSTANCE hInstance, int cmdShow)
+{
+/********************************************************************
+ *
+ *      i n i t _ i s q l _ e v e r y
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Perform initialization done for all instances.
+ *
+ * paramaters:
+ *             hInstance     - The instance of this instance of this
+ *                             application.
+ *             cmdShow       - Indicates how the window is to be shown
+ *                             initially. ie. SW_SHOWNORMAL, SW_HIDE,
+ *                             SW_MIMIMIZE.
+ *
+ ********************************************************************/
+	TEXTMETRIC tm;
+	HDC hDC;
+
+	hInst = hInstance;			/* save for use by window procs */
+
+/* Create applications main window. */
+
+	hWndMain = CreateWindow(SetUpData.appName,	/* window class name */
+							SetUpData.appName,	/* window title */
+							WS_OVERLAPPEDWINDOW |	/* type of window */
+							WS_HSCROLL | WS_VSCROLL, CW_USEDEFAULT,	/* x  window location */
+							CW_USEDEFAULT,	/* y */
+							CW_USEDEFAULT,	/* cx and size */
+							CW_USEDEFAULT,	/* cy */
+							NULL,	/* no parent for this window */
+							NULL,	/* use the class menu */
+							hInstance,	/* who created this window */
+							NULL	/* no parms to pass on */
+		);
+
+/* Get the display context. */
+
+	hDC = GetDC(hWndMain);
+
+/* Build fixed screen font. */
+
+	cursfont.lfHeight = 14;
+	cursfont.lfWidth = 9;
+	cursfont.lfEscapement = 0;
+	cursfont.lfOrientation = 0;
+	cursfont.lfWeight = FW_NORMAL;
+	cursfont.lfItalic = FALSE;
+	cursfont.lfUnderline = FALSE;
+	cursfont.lfStrikeOut = FALSE;
+	cursfont.lfCharSet = ANSI_CHARSET;
+	cursfont.lfOutPrecision = OUT_DEFAULT_PRECIS;
+	cursfont.lfClipPrecision = CLIP_DEFAULT_PRECIS;
+	cursfont.lfQuality = DEFAULT_QUALITY;
+	cursfont.lfPitchAndFamily = FIXED_PITCH | FF_DONTCARE;
+	strcpy((char *) cursfont.lfFaceName, "System");
+
+	hnewsfont = CreateFontIndirect((LPLOGFONT) & cursfont);
+
+/* Install the font in the current display context. */
+
+	holdsfont = SelectObject(hDC, hnewsfont);
+
+/* get text metrics for paint */
+
+	GetTextMetrics(hDC, &tm);
+	xChar = tm.tmAveCharWidth;
+	yChar = tm.tmHeight + tm.tmExternalLeading;
+	yCharnl = tm.tmHeight;
+	numlines = 0;
+
+/* Release the display context. */
+
+	ReleaseDC(hWndMain, hDC);
+
+/* Update display of main window. */
+
+	ShowWindow(hWndMain, cmdShow);
+	UpdateWindow(hWndMain);
+}
+
+
+static void init_isql_first( HINSTANCE hInstance)
+{
+/********************************************************************
+ *
+ *      i n i t _ i s q l _ f i r s t
+ *
+ ********************************************************************
+ *
+ *  Functions description:
+ *      Initialization for first instance of application.
+ *
+ * paramaters:
+ *             hInstance     - The instance of this instance of this
+ *                             application.
+ *
+ ********************************************************************/
+	WNDCLASS wcISQLClass;
+
+/* Get string from resource with application name. */
+
+	LoadString(hInstance, IDS_NAME, (LPSTR) SetUpData.appName, 20);
+	LoadString(hInstance, IDS_MENUNAME, (LPSTR) SetUpData.menuName, 20);
+	LoadString(hInstance, IDS_ICONNAME, (LPSTR) SetUpData.iconName, 20);
+	LoadString(hInstance, IDS_ERROR, (LPSTR) SetUpData.errorString, 20);
+
+/* Define the window class for this application. */
+
+	wcISQLClass.lpszClassName = SetUpData.appName;
+	wcISQLClass.hInstance = hInstance;
+	wcISQLClass.lpfnWndProc = isqlWndProc;
+	wcISQLClass.hCursor = LoadCursor(hInstance, MAKEINTRESOURCE(ISQLCURSOR));
+	wcISQLClass.hIcon = LoadIcon(hInstance, SetUpData.iconName);
+	wcISQLClass.lpszMenuName = (LPSTR) SetUpData.menuName;
+	wcISQLClass.hbrBackground = GetStockObject(WHITE_BRUSH);
+	wcISQLClass.style = CS_HREDRAW | CS_VREDRAW;
+	wcISQLClass.cbClsExtra = 0;
+	wcISQLClass.cbWndExtra = 0;
+
+/* Register the class */
+
+	RegisterClass(&wcISQLClass);
+}
+
+
+static SSHORT open_temp_file(
+							 HINSTANCE hInstance,
+							 IB_FILE ** file,
+							 SCHAR * fileName, SSHORT errStrNum)
+{
+/********************************************************************
+ *
+ *      o p e n _ t e m p _ f i l e
+ *
+ ********************************************************************
+ *
+ *  Functions description:
+ *	Create a temp file, get its name, and print the proper
+ *	error on failure.
+ *
+ ********************************************************************/
+	SCHAR errorString[100];
+	SCHAR message[100];
+
+	*file = (IB_FILE *) gds__temp_file(TRUE, "isql_", fileName);
+	if (*file == (IB_FILE *) - 1) {
+		LoadString(hInstance, errStrNum, errorString, 100);
+		sprintf(message, errorString, fileName);
+		ISQL_win_err(message);
+		return 0;
+	}
+
+	return 1;
+}
+
+
+static int windows_isql(
+						HINSTANCE hInstance,
+						HINSTANCE hPrevInstance, int cmdShow)
+{
+/********************************************************************
+ *
+ *      w i n d o w s _ i s q l
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Process ISQL for Windows (no command line was passed).
+ *
+ * paramaters:
+ *             hInstance     - The instance of this instance of this
+ *                             application.
+ *             hPrevInstance - The instance of the previous instance
+ *                             of this application. This will be 0
+ *                             if this is the first instance.
+ *             cmdShow       - Indicates how the window is to be shown
+ *                             initially. ie. SW_SHOWNORMAL, SW_HIDE,
+ *                             SW_MIMIMIZE.
+ *
+ * returns:
+ *             wParam from last message.
+ *
+ ********************************************************************/ \
+		MSG msg;
+
+/* Go init this application. */
+
+	if (!init_isql(hInstance, hPrevInstance, cmdShow))
+		return 0;
+
+/* Get and dispatch messages for this applicaton. */
+
+	while (GetMessage(&msg, NULL, NULL, NULL)) {
+		TranslateMessage(&msg);
+		DispatchMessage(&msg);
+	}
+
+	return msg.wParam;
+}
+
+
+static void paint_isql( HWND hWnd)
+{
+/********************************************************************
+ *
+ *      p a i n t _ i s q l
+ *
+ ********************************************************************
+ *  Functional description:
+ *      If a file has been selected, as indicated by numlines being
+ *      greater than 0, this module will read and display a portion
+ *      of the file as determined by the current size and scroll
+ *      position of the window.
+ *
+ * paramaters:
+ *             hWnd          - The callers window handle
+ *
+ ********************************************************************/
+	PAINTSTRUCT ps;
+	HDC hDC;
+	SSHORT e;
+	SCHAR buf[1024];
+	SSHORT i;
+	IB_FILE *hfile;
+
+	BeginPaint(hWnd, (LPPAINTSTRUCT) & ps);
+	hDC = ps.hdc;
+
+/* Establish fixed font in display context. */
+
+	SelectObject(hDC, hnewsfont);
+
+	if (numlines) {
+		/* Open the file to display */
+		/* (files should not stay open over multiple windows messages) */
+
+		hfile = ib_fopen(defOutputFile, "r");
+		if (hfile) {
+			/* Skip lines outside window limits */
+
+			for (i = 0; i < nVscrollPos; i++)
+				ib_fgets(buf, sizeof(buf), hfile);
+
+			/* Read visible lines */
+
+			for (i = 0; i < nPageMaxLines; i++) {
+				if (!ib_fgets(buf, sizeof(buf), hfile))
+					break;
+
+				/* figure out shortest text to put */
+
+				for (e = strlen(buf); e >= 0; e--)
+					if (buf[e] > ' ' && buf[e] <= '~')
+						break;
+				if (e == -1)
+					buf[++e] = ' ';
+				buf[++e] = '\0';
+				TextOut(hDC, xChar * (-nHscrollPos + 0), yChar * i, buf, e);
+			}
+			ib_fclose(hfile);
+		}
+	}
+
+	EndPaint(hWnd, (LPPAINTSTRUCT) & ps);
+}
+
+
+static void pusharg( SCHAR * argument)
+{
+/********************************************************************
+ *
+ *      p u s h a r g
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Used to push arguments onto an argv to be sent to ISQL.
+ *
+ ********************************************************************/
+
+	ISQL_argv[ISQL_argc++] = ISQL_cursor;
+	strcpy(ISQL_cursor, argument);
+	ISQL_cursor += strlen(argument);
+	*ISQL_cursor++ = '\0';
+}
+
+
+static void setup_scroll( HWND hWnd)
+{
+/********************************************************************
+ *
+ *      s e t u p _ s c r o l l
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Set up the vertical and horizontal scroll ranges and positions
+ *      of the applicatons main window based on:
+ *
+ *         numlines - The maximum number of lines to display.
+ *         maxwidth - The width of each line to display.
+ *
+ *      The resulting variables, nVscrollPos and nPageMaxLines, are used
+ *      by the function paint_isql to determine what to display in the window.
+ *
+ * paramaters:
+ *             hWnd          - The callers window handle
+ *
+ *********************************************************************/
+
+/* numlines established during open */
+
+	nVscrollMax = max(0, numlines - yClient / yChar);
+	nVscrollPos = min(nVscrollPos, nVscrollMax);
+
+	nHscrollMax = max(0, maxwidth - xClient / xChar);
+	nHscrollPos = min(nHscrollPos, nHscrollMax);
+
+	SetScrollRange(hWnd, SB_VERT, 0, nVscrollMax, FALSE);
+	SetScrollPos(hWnd, SB_VERT, nVscrollPos, TRUE);
+
+	SetScrollRange(hWnd, SB_HORZ, 0, nHscrollMax, FALSE);
+	SetScrollPos(hWnd, SB_HORZ, nHscrollPos, TRUE);
+
+	nPageMaxLines = min(numlines, yClient / yChar);
+}
+
+
+static void test_overwrite()
+{
+/***************************************************************
+ *
+ *      t e s t _ o v e r w r i t e
+ *
+ ***************************************************************
+ *
+ *  Functional description:
+ *      If the overwrite flag is set, clear the file and reset
+ *      the scroll positions.
+ *
+ ***************************************************************/
+
+	if (gflags & OVERWRITE) {
+		ib_fclose(opf);
+		opf = ib_fopen(defOutputFile, "w");
+		nVscrollPos = 0;
+		nHscrollPos = 0;
+	}
+}
+
+
+static void xfer_file(
+					  SCHAR * inFileName,
+					  SCHAR * outFileName, SSHORT appendFlag)
+{
+/***************************************************************
+ *
+ *      x f e r _ f i l e
+ *
+ ***************************************************************
+ *
+ *  Functional description:
+ *      Copy current file to a save file.
+ *
+ ***************************************************************/
+	IB_FILE *xferin;
+	IB_FILE *xferout;
+	SCHAR xferbuff[1024];
+
+	xferin = ib_fopen(inFileName, "r");
+	if (xferin) {
+		if (appendFlag)
+			xferout = ib_fopen(outFileName, "a");
+		else
+			xferout = ib_fopen(outFileName, "w");
+		if (xferout) {
+			while (ib_fgets(xferbuff, sizeof(xferbuff), xferin)) {
+				ib_fprintf(xferout, "%s", xferbuff);
+			}
+			ib_fclose(xferout);
+		}
+		ib_fclose(xferin);
+	}
+}
+
+
+BOOL CALLBACK _export aboutDlgProc(HWND hDlg,
+								   UINT message, WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      a b o u t D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Put up a little dislog box saying what this is.
+ *
+ * paramaters:
+ *             hDlg          - The window handle for this message
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ ********************************************************************/
+#pragma argsused
+
+	if (message == WM_INITDIALOG)
+		return TRUE;
+	else if (message == WM_COMMAND) {
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDOK:
+			EndDialog(hDlg, TRUE);
+			return TRUE;
+		default:
+			return TRUE;
+		}
+	}
+
+	return FALSE;
+}
+
+
+BOOL CALLBACK _export blobDlgProc(HWND hDlg,
+								  UINT iMessage, WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      b l o b D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Get blob display type, or "ALL" by managing the BLOB_TYPE
+ *      dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		SendDlgItemMessage(hDlg, IDD_BLOB_TYPE, EM_LIMITTEXT, 10, 0L);
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDD_ALL_BLOBS:
+			allblobsflag = TRUE;
+			tmpDialogParam[0] = '\0';
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDD_BLOB_TYPE:
+			allblobsflag = FALSE;
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE)
+				EnableWindow(GetDlgItem(hDlg, IDOK),
+							 (BOOL) SendMessage((HWND) lParam,
+												WM_GETTEXTLENGTH, 0, 0L));
+			break;
+
+		case IDOK:
+			GetDlgItemText(hDlg, IDD_BLOB_TYPE, tmpDialogParam, 10);
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			strcpy(tmpDialogParam, "0");
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+BOOL CALLBACK _export charSetDlgProc(HWND hDlg,
+									 UINT iMessage,
+									 WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      c h a r S e t D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Get characetr set name by managing the NAMES dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		SendDlgItemMessage(hDlg, IDD_CHAR_SET, EM_LIMITTEXT, 100, 0L);
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDD_CHAR_SET:
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE)
+				EnableWindow(GetDlgItem(hDlg, IDOK),
+							 (BOOL) SendMessage((HWND) lParam,
+												WM_GETTEXTLENGTH, 0, 0L));
+			break;
+
+		case IDOK:
+			GetDlgItemText(hDlg, IDD_CHAR_SET, tmpDialogParam, 100);
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			tmpDialogParam[0] = '\0';
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+BOOL CALLBACK _export createDbDlgProc(HWND hDlg,
+									  UINT iMessage,
+									  WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      c r e a t e D b D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Get database name, user name and password for a newly created
+ *	database by managing the CREATE_DB dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		SendDlgItemMessage(hDlg, IDD_DB_DBNAME, EM_LIMITTEXT, 256, 0L);
+		SendDlgItemMessage(hDlg, IDD_DB_USERNAME, EM_LIMITTEXT, 32, 0L);
+		SendDlgItemMessage(hDlg, IDD_DB_PASSWORD, EM_LIMITTEXT, 16, 0L);
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDD_CREATE_DBNAME:
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE)
+				EnableWindow(GetDlgItem(hDlg, IDOK),
+							 (BOOL) SendMessage((HWND) lParam,
+												WM_GETTEXTLENGTH, 0, 0L));
+			break;
+
+		case IDD_CREATE_USERNAME:
+		case IDD_CREATE_PASSWORD:
+			break;
+
+		case IDOK:
+			GetDlgItemText(hDlg, IDD_DB_DBNAME, newDataBase, 256);
+			GetDlgItemText(hDlg, IDD_DB_USERNAME, newUserName, 32);
+			GetDlgItemText(hDlg, IDD_DB_PASSWORD, newPassword, 16);
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			/* Terminate this dialog box. */
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+BOOL CALLBACK _export dbNameDlgProc(HWND hDlg,
+									UINT iMessage,
+									WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      d b N a m e D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Get database name, user name and password by managing the
+ *      DB_NAME dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		SendDlgItemMessage(hDlg, IDD_DB_DBNAME, EM_LIMITTEXT, 256, 0L);
+		SendDlgItemMessage(hDlg, IDD_DB_USERNAME, EM_LIMITTEXT, 32, 0L);
+		SendDlgItemMessage(hDlg, IDD_DB_PASSWORD, EM_LIMITTEXT, 16, 0L);
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDD_DB_DBNAME:
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE)
+				EnableWindow(GetDlgItem(hDlg, IDOK),
+							 (BOOL) SendMessage((HWND) lParam,
+												WM_GETTEXTLENGTH, 0, 0L));
+			break;
+
+		case IDD_DB_USERNAME:
+		case IDD_DB_PASSWORD:
+			break;
+
+		case IDOK:
+			GetDlgItemText(hDlg, IDD_DB_DBNAME, newDataBase, 256);
+			GetDlgItemText(hDlg, IDD_DB_USERNAME, newUserName, 32);
+			GetDlgItemText(hDlg, IDD_DB_PASSWORD, newPassword, 16);
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			/* Terminate this dialog box. */
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+BOOL CALLBACK _export dropDbDlgProc(HWND hDlg,
+									UINT iMessage,
+									WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      d r o p D b D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Drop the database by  managing the DROP_DB dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDOK:
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			/* Terminate this dialog box. */
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+BOOL CALLBACK _export execDlgProc(HWND hDlg,
+								  UINT iMessage, WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      e x e c D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Get a SQL command by managing the EXEC dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+	IB_FILE *fh;
+	SCHAR buf[256];
+	SSHORT i;
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		SendDlgItemMessage(hDlg, IDD_SQL_COMMAND, EM_LIMITTEXT, 1024, 0L);
+		ib_fflush(sss);
+		ib_fclose(sss);
+		fh = ib_fopen(defSessionFile, "r");
+		if (fh) {
+			while (ib_fgets(buf, sizeof(buf), fh)) {
+				for (i = strlen(buf); i; i--)
+					if (buf[i] >= ' ' && buf[i] <= '~')
+						break;
+				if (!i)
+					break;
+				buf[i + 1] = '\0';
+				SendMessage(GetDlgItem(hDlg, IDD_SQL_HISTORY),
+							LB_ADDSTRING, 0, (SLONG) buf);
+			}
+			ib_fclose(fh);
+		}
+		sss = ib_fopen(defSessionFile, "a");
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDD_SQL_COMMAND:
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE) {
+				EnableWindow(GetDlgItem(hDlg, IDOK),
+							 (BOOL) SendMessage((HWND) lParam,
+												WM_GETTEXTLENGTH, 0, 0L));
+			}
+			break;
+
+		case IDD_SQL_HISTORY:
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == LBN_DBLCLK) {
+				i = (SSHORT) SendMessage(GetDlgItem(hDlg, IDD_SQL_HISTORY),
+										 LB_GETCURSEL, 0, 0);
+				SendMessage(GetDlgItem(hDlg, IDD_SQL_HISTORY),
+							LB_GETTEXT, i, (SLONG) buf);
+				SetDlgItemText(hDlg, IDD_SQL_COMMAND, buf);
+			}
+			break;
+
+		case IDOK:
+			GetDlgItemText(hDlg, IDD_SQL_COMMAND, tmpDialogParam, 1024);
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+BOOL CALLBACK _export extractDlgProc(HWND hDlg,
+									 UINT iMessage,
+									 WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      e x t r a c t D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Get extract database name plus optional target database and
+ *      output file by managing the EXTRACT_DB dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		SendDlgItemMessage(hDlg, IDD_EXTRACT_DBNAME, EM_LIMITTEXT, 256, 0L);
+		SendDlgItemMessage(hDlg, IDD_EXTRACT_OUTPUT, EM_LIMITTEXT, 256, 0L);
+		SendDlgItemMessage(hDlg, IDD_EXTRACT_TARGET, EM_LIMITTEXT, 256, 0L);
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDD_EXTRACT_DBNAME:
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE)
+				EnableWindow(GetDlgItem(hDlg, IDOK),
+							 (BOOL) SendMessage((HWND) lParam,
+												WM_GETTEXTLENGTH, 0, 0L));
+			break;
+
+		case IDD_EXTRACT_TARGET:
+		case IDD_EXTRACT_OUTPUT:
+			break;
+
+		case IDOK:
+			GetDlgItemText(hDlg, IDD_EXTRACT_DBNAME, extractDbName, 256);
+			GetDlgItemText(hDlg, IDD_EXTRACT_TARGET, extractTarget, 256);
+			GetDlgItemText(hDlg, IDD_EXTRACT_OUTPUT, extractOutput, 256);
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			/* Terminate this dialog box. */
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+BOOL CALLBACK _export objectDlgProc(HWND hDlg,
+									UINT iMessage,
+									WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      o b j e c t D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Get database object name or "ALL" by managing the
+ *      DB_OBJECT dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		SendDlgItemMessage(hDlg, IDD_OBJECT, EM_LIMITTEXT, 256, 0L);
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDD_ALL_OBJECTS:
+			allobjectsflag = TRUE;
+			tmpDialogParam[0] = '\0';
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDD_OBJECT:
+			allobjectsflag = FALSE;
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE)
+				EnableWindow(GetDlgItem(hDlg, IDOK),
+							 (BOOL) SendMessage((HWND) lParam,
+												WM_GETTEXTLENGTH, 0, 0L));
+			break;
+
+		case IDOK:
+			GetDlgItemText(hDlg, IDD_OBJECT, tmpDialogParam, 256);
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			tmpDialogParam[0] = '\0';
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+BOOL CALLBACK _export outputDlgProc(HWND hDlg,
+									UINT iMessage,
+									WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      o u t p u t D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Get name of file to dump current window to, using
+ *      SAVE_OUTPUT dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		SendDlgItemMessage(hDlg, IDD_SAVE_OUTPUT_FILE, EM_LIMITTEXT, 256, 0L);
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDD_SAVE_OUTPUT_FILE:
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE)
+				EnableWindow(GetDlgItem(hDlg, IDOK),
+							 (BOOL) SendMessage((HWND) lParam,
+												WM_GETTEXTLENGTH, 0, 0L));
+			break;
+
+		case IDOK:
+			GetDlgItemText(hDlg, IDD_SAVE_OUTPUT_FILE, tmpDialogParam, 256);
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			tmpDialogParam[0] = '\0';
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+BOOL CALLBACK _export scriptDlgProc(HWND hDlg,
+									UINT iMessage,
+									WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      s c r i p t D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Get script name and optional output file name by managing the
+ *      SCRIPT dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		SendDlgItemMessage(hDlg, IDD_SCRIPT_INPUT, EM_LIMITTEXT, 256, 0L);
+		SendDlgItemMessage(hDlg, IDD_SCRIPT_OUTPUT, EM_LIMITTEXT, 256, 0L);
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDD_SCRIPT_INPUT:
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE)
+				EnableWindow(GetDlgItem(hDlg, IDOK),
+							 (BOOL) SendMessage((HWND) lParam,
+												WM_GETTEXTLENGTH, 0, 0L));
+			break;
+
+		case IDD_SCRIPT_OUTPUT:
+			break;
+
+		case IDOK:
+			GetDlgItemText(hDlg, IDD_SCRIPT_INPUT, scriptName, 256);
+			GetDlgItemText(hDlg, IDD_SCRIPT_OUTPUT, scriptOutput, 256);
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			/* Terminate this dialog box. */
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+BOOL CALLBACK _export sessionDlgProc(HWND hDlg,
+									 UINT iMessage,
+									 WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      s e s s i o n D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Get name of file to dump current session's commands to, using
+ *      SAVE_SESSION dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		SendDlgItemMessage(hDlg, IDD_SAVE_SESSION_FILE, EM_LIMITTEXT, 256,
+						   0L);
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDD_SAVE_SESSION_FILE:
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE)
+				EnableWindow(GetDlgItem(hDlg, IDOK),
+							 (BOOL) SendMessage((HWND) lParam,
+												WM_GETTEXTLENGTH, 0, 0L));
+			break;
+
+		case IDOK:
+			GetDlgItemText(hDlg, IDD_SAVE_SESSION_FILE, tmpDialogParam, 256);
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			tmpDialogParam[0] = '\0';
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+BOOL CALLBACK _export termDlgProc(HWND hDlg,
+								  UINT iMessage, WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      t e r m D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Get SQL statement terminator by managing the TERMINATOR dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		SendDlgItemMessage(hDlg, IDD_TERMINATOR, EM_LIMITTEXT, 10, 0L);
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDD_TERMINATOR:
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE)
+				EnableWindow(GetDlgItem(hDlg, IDOK),
+							 (BOOL) SendMessage((HWND) lParam,
+												WM_GETTEXTLENGTH, 0, 0L));
+			break;
+
+		case IDOK:
+			GetDlgItemText(hDlg, IDD_TERMINATOR, tmpDialogParam, 10);
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			strcpy(tmpDialogParam, ";");
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+BOOL CALLBACK _export transDlgProc(HWND hDlg,
+								   UINT iMessage,
+								   WPARAM wParam, LPARAM lParam)
+{
+/********************************************************************
+ *
+ *      t r a n s D l g P r o c
+ *
+ ********************************************************************
+ *
+ *  Functional description:
+ *      Get transaction definition string by managing the TRANS dialog box.
+ *
+ * paramaters:
+ *             hDlg          - The window handle of this dialog box
+ *             message       - The message number
+ *             wParam        - The WPARAM parameter for this message
+ *             lParam        - The LPARAM parameter for this message
+ *
+ * returns:
+ *             depends on message.
+ *
+/********************************************************************/
+
+	switch (iMessage) {
+	case WM_INITDIALOG:
+		SendDlgItemMessage(hDlg, IDD_TRANS_STRING, EM_LIMITTEXT, 256, 0L);
+		return (TRUE);
+
+	case WM_COMMAND:
+		switch (GET_WM_COMMAND_ID(wParam, lParam)) {
+		case IDD_TRANS_STRING:
+			if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE)
+				EnableWindow(GetDlgItem(hDlg, IDOK),
+							 (BOOL) SendMessage((HWND) lParam,
+												WM_GETTEXTLENGTH, 0, 0L));
+			break;
+
+		case IDOK:
+			GetDlgItemText(hDlg, IDD_TRANS_STRING, tmpDialogParam, 256);
+			EndDialog(hDlg, TRUE);
+			break;
+
+		case IDCANCEL:
+			tmpDialogParam[0] = '\0';
+			EndDialog(hDlg, FALSE);
+			break;
+
+		case IDD_HELP_BUTTON:
+			ISQL_win_err("Not implemented yet");
+			break;
+
+		default:
+			return FALSE;
+		}
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
diff --git a/src/isql/isql_win.h b/src/isql/isql_win.h
new file mode 100644
index 0000000000..4ae802c71d
--- /dev/null
+++ b/src/isql/isql_win.h
@@ -0,0 +1,44 @@
+/*
+ *	PROGRAM:	Interactive SQL utility
+ *	MODULE:		isql_win.h
+ *	DESCRIPTION:	Windows ISQL include file
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ISQL_WIN_H_
+#define _ISQL_WIN_H_
+
+/* prototypes */
+
+static void close_isql(void);
+static int cmdline_isql(HINSTANCE, LPSTR);
+static void display_page(HWND);
+static SSHORT init_isql(HINSTANCE, HINSTANCE, int);
+static void init_isql_added(HINSTANCE);
+static void init_isql_every(HINSTANCE, int);
+static void init_isql_first(HINSTANCE);
+static SSHORT open_temp_file(HINSTANCE, IB_FILE **, SCHAR *, SSHORT);
+static void paint_isql(HWND);
+static void pusharg(SCHAR *);
+static void setup_scroll(HWND);
+static void test_overwrite(void);
+static int windows_isql(HINSTANCE, HINSTANCE, int);
+static void xfer_file(SCHAR *, SCHAR *, SSHORT);
+
+#endif /* _ISQL_WIN_H_ */
diff --git a/src/isql/isqlw_proto.h b/src/isql/isqlw_proto.h
new file mode 100644
index 0000000000..e67556a5ab
--- /dev/null
+++ b/src/isql/isqlw_proto.h
@@ -0,0 +1,44 @@
+/*
+ *	PROGRAM:	Interactive SQL utility
+ *	MODULE:		isqlw_proto.h
+ *	DESCRIPTION:	Prototype header file for isql_win.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ISQL_WIN_PROTO_H_
+#define _ISQL_WIN_PROTO_H_
+
+BOOL CALLBACK _export aboutDlgProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export blobDlgProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export charSetDlgProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export createDbDlgProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export dbNameDlgProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export dropDbDlgProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export execDlgProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export extractDlgProc(HWND, UINT, WPARAM, LPARAM);
+LRESULT CALLBACK _export isqlWndProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export objectDlgProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export outputDlgProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export scriptDlgProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export sessionDlgProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export termDlgProc(HWND, UINT, WPARAM, LPARAM);
+BOOL CALLBACK _export transDlgProc(HWND, UINT, WPARAM, LPARAM);
+int PASCAL WinMain(HINSTANCE, HINSTANCE, LPSTR, int);
+
+#endif /* _ISQL_WIN_PROTO_H_ */
diff --git a/src/isql/show.e b/src/isql/show.e
new file mode 100644
index 0000000000..1207e3119a
--- /dev/null
+++ b/src/isql/show.e
@@ -0,0 +1,3722 @@
+/*
+ *	PROGRAM:	Interactive SQL utility
+ *	MODULE:		show.e
+ *	DESCRIPTION:	Display routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: show.e,v 1.1.1.1 2001-05-23 13:26:03 tamlin Exp $
+ * Revision 1.2  2000/11/19 07:02:49  fsg
+ * Change in show.e to use CHARACTER_LENGTH instead of FIELD_LENGTH in
+ * SHOW PROCEDURE
+ *
+ * 19-May-2001 Claudio Valderrama.
+ * Change to be in sync with extract.e: BLOB is not returned
+ * by value but by descriptor.
+ *
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+
+#ifdef GUI_TOOLS
+#include <windows.h>
+#endif
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../dsql/dsql.h"
+#include "../isql/isql.h"
+#include "../jrd/license.h"
+#include "../jrd/constants.h"
+#include "../jrd/intl.h"
+#include "../isql/isql_proto.h"
+#include "../isql/show_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/utl_proto.h"
+#include "../jrd/obj.h"
+#include "../jrd/ods.h"
+
+ASSERT_FILENAME
+
+DATABASE DB = EXTERN COMPILETIME "yachts.lnk";
+
+extern USHORT major_ods;
+extern USHORT minor_ods;
+extern SSHORT V4;
+extern SSHORT V33;
+
+static void *local_fprintf(UCHAR *, UCHAR *);
+static SCHAR *remove_delimited_double_quotes(TEXT *);
+static void make_priv_string(USHORT, UCHAR *);
+static int show_all_tables(SSHORT);
+static void show_charsets(SCHAR *, SCHAR *);
+static int show_check(SCHAR *);
+static void show_db(void);
+static int show_dialect(void);
+static int show_domains(SCHAR *);
+static int show_exceptions(SCHAR *);
+static int show_filters(SCHAR *);
+static int show_functions(SCHAR *);
+static int show_generators(SCHAR *);
+static void show_index(SCHAR *, SCHAR *, SSHORT, SSHORT, SSHORT);
+static int show_indices(SCHAR **);
+static int show_proc(SCHAR *);
+static int show_role(SCHAR *);
+static int show_table(SCHAR *);
+static int show_trigger(SCHAR *, SSHORT);
+
+static TEXT Print_buffer[512];
+static TEXT SQL_identifier[BUFFER_LENGTH128];
+static TEXT SQL_id_for_grant[BUFFER_LENGTH128];
+
+#define	BLANK		'\040'
+#define	DBL_QUOTE	'\042'
+#define	MAX_NAME_LENGTH	31
+
+/* Initialize types */
+
+static CONST SCHAR *Object_types[] = {
+	"Table",
+	"View",
+	"Trigger",
+	"Computed column",
+	"Validation",
+	"Procedure",
+	"Expression index",
+	"Exception",
+	"User",
+	"Domain",
+	"Index"
+};
+
+CONST SQLTYPES Column_types[] = {
+	{SMALLINT, "SMALLINT"},		/* NTX: keyword */
+	{INTEGER, "INTEGER"},		/* NTX: keyword */
+	{QUAD, "QUAD"},				/* NTX: keyword */
+	{FLOAT, "FLOAT"},			/* NTX: keyword */
+	{FCHAR, "CHAR"},			/* NTX: keyword */
+	{DOUBLE_PRECISION, "DOUBLE PRECISION"},	/* NTX: keyword */
+	{VARCHAR, "VARCHAR"},		/* NTX: keyword */
+	{CSTRING, "CSTRING"},		/* NTX: keyword */
+	{BLOB_ID, "BLOB_ID"},		/* NTX: keyword */
+	{BLOB, "BLOB"},				/* NTX: keyword */
+	{blr_sql_time, "TIME"},		/* NTX: keyword */
+	{blr_sql_date, "DATE"},		/* NTX: keyword */
+	{blr_timestamp, "TIMESTAMP"},	/* NTX: keyword */
+	{blr_int64, "INT64"},		/* NTX: keyword */
+	{0, ""}
+};
+
+/* Integral subtypes */
+
+#define MAX_INTSUBTYPES	2
+
+CONST SCHAR *Integral_subtypes[] = {
+	"UNKNOWN",					/* Defined type, NTX: keyword */
+	"NUMERIC",					/* NUMERIC, NTX: keyword */
+	"DECIMAL"					/* DECIMAL, NTX: keyword */
+};
+
+/* Blob subtypes */
+
+#define MAXSUBTYPES 8
+
+CONST SCHAR *Sub_types[] = {
+	"UNKNOWN",					/* NTX: keyword */
+	"TEXT",						/* NTX: keyword */
+	"BLR",						/* NTX: keyword */
+	"ACL",						/* NTX: keyword */
+	"RANGES",					/* NTX: keyword */
+	"SUMMARY",					/* NTX: keyword */
+	"FORMAT",					/* NTX: keyword */
+	"TRANSACTION_DESCRIPTION",	/* NTX: keyword */
+	"EXTERNAL_FILE_DESCRIPTION"	/* NTX: keyword */
+};
+
+CONST SCHAR *Trigger_types[] = {
+	"",
+	"BEFORE INSERT",			/* NTX: keyword */
+	"AFTER INSERT",				/* NTX: keyword */
+	"BEFORE UPDATE",			/* NTX: keyword */
+	"AFTER UPDATE",				/* NTX: keyword */
+	"BEFORE DELETE",			/* NTX: keyword */
+	"AFTER DELETE"				/* NTX: keyword */
+};
+
+#define priv_UNKNOWN	1
+#define priv_SELECT	2
+#define priv_INSERT	4
+#define priv_UPDATE	8
+#define priv_DELETE	16
+#define priv_EXECUTE	32
+#define priv_REFERENCES	64
+
+
+static CONST struct {
+	USHORT priv_flag;
+	CONST SCHAR *priv_string;
+} privs[] = {
+	{ priv_DELETE, "DELETE"},		/* NTX: keyword */
+	{ priv_EXECUTE, "EXECUTE"},	/* NTX: keyword */
+	{ priv_INSERT, "INSERT"},		/* NTX: keyword */
+	{ priv_SELECT, "SELECT"},		/* NTX: keyword */
+	{ priv_UPDATE, "UPDATE"},		/* NTX: keyword */
+	{ priv_REFERENCES, "REFERENCES"},	/* NTX: keyword */
+	{ 0, NULL}
+};
+
+/* strlen of each element above, + strlen(", ") for separators */
+
+#define MAX_PRIV_LIST	(6+2+7+2+6+2+6+2+6+2+10+1)
+
+
+static CONST SCHAR db_dialect_info[] = {
+	isc_info_db_sql_dialect,
+	isc_info_end
+};
+
+static CONST SCHAR db_items[] = {
+	isc_info_page_size,
+	isc_info_db_size_in_pages,
+	isc_info_sweep_interval,
+	isc_info_limbo,
+	isc_info_end
+};
+
+static CONST SCHAR wal_items[] = {
+	isc_info_num_wal_buffers,
+	isc_info_wal_buffer_size,
+	isc_info_wal_ckpt_length,
+	isc_info_wal_grpc_wait_usecs,
+	isc_info_end
+};
+
+/* BPB to force transliteration of any shown system blobs from
+ * Database character set (CS_METADATA) to process character set
+ * (CS_dynamic).
+ * This same BPB is safe to use for both V3 & V4 db's - as
+ * a V3 db will ignore the source_ & target_interp values.
+ */
+static CONST UCHAR metadata_text_bpb[] = {
+	isc_bpb_version1,
+	isc_bpb_source_type, 1, BLOB_text,
+	isc_bpb_target_type, 1, BLOB_text,
+	isc_bpb_source_interp, 1, CS_METADATA,
+	isc_bpb_target_interp, 1, CS_dynamic
+};
+
+
+
+void SHOW_dbb_parameters(SLONG * db_handle,
+						 SCHAR * info_buf,
+						 SCHAR * db_items,
+						 USHORT item_length, USHORT translate)
+{
+/**************************************
+ *
+ *	S H O W _ d b b _ p a r a m e t e r s 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show db_info on this database
+ *
+ *	Arguments:  
+ *	    db_handle -- database handle
+ *	    info_buf -- info_bufput file pointer
+ *	    db_items -- list of db_info items to process
+ *
+ **************************************/
+	SCHAR *d, *buffer, item, *info;
+	int length;
+	SLONG value_out;
+	STATUS status_vector[20];
+	TEXT *msg;
+
+	buffer = (SCHAR *) ISQL_ALLOC(BUFFER_LENGTH128);
+	if (!buffer) {
+		isc_status[0] = isc_arg_gds;
+		isc_status[1] = isc_virmemexh;
+		isc_status[2] = isc_arg_end;
+		ISQL_errmsg(isc_status);
+		return;
+	}
+	msg = (SCHAR *) ISQL_ALLOC(MSG_LENGTH);
+	if (!msg) {
+		isc_status[0] = isc_arg_gds;
+		isc_status[1] = isc_virmemexh;
+		isc_status[2] = isc_arg_end;
+		ISQL_errmsg(isc_status);
+		ISQL_FREE(buffer);
+		return;
+	}
+
+	if (isc_database_info(status_vector,
+						  &db_handle,
+						  item_length,
+						  db_items,
+						  BUFFER_LENGTH128,
+						  buffer)) ISQL_errmsg(status_vector);
+
+	*info_buf = '\0';
+	for (d = buffer, info = info_buf; *d != isc_info_end;) {
+		value_out = 0;
+		item = *d++;
+		length = isc_vax_integer(d, 2);
+		d += 2;
+/*
+ * This is not the best solution but it fixes the lack of <LF> characters
+ * in Windows ISQL.  This will need to remain until we modify the messages
+ * to remove the '\n' (on the PC its '\n\r').
+ */
+#ifdef GUI_TOOLS
+		translate = FALSE;
+#endif
+		switch (item) {
+		case isc_info_end:
+			break;
+
+		case isc_info_page_size:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "PAGE_SIZE %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_db_size_in_pages:
+			value_out = isc_vax_integer(d, length);
+			if (translate) {
+				ISQL_msg_get(NUMBER_PAGES, msg, (TEXT *) value_out, NULL,
+							 NULL, NULL, NULL);
+				sprintf(info, msg);
+			}
+			else
+				sprintf(info, "Number of DB pages allocated = %ld %s",
+						value_out, NEWLINE);
+			break;
+
+		case isc_info_sweep_interval:
+			value_out = isc_vax_integer(d, length);
+			if (translate) {
+				ISQL_msg_get(SWEEP_INTERV, msg, (TEXT *) value_out, NULL,
+							 NULL, NULL, NULL);
+				sprintf(info, msg);
+			}
+			else
+				sprintf(info, "Sweep interval = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_num_wal_buffers:
+			value_out = isc_vax_integer(d, length);
+			if (translate) {
+				ISQL_msg_get(NUM_WAL_BUFF, msg, (TEXT *) value_out, NULL,
+							 NULL, NULL, NULL);
+				sprintf(info, msg);
+			}
+			else
+				sprintf(info, "Number of wal buffers = %ld %s",
+						value_out, NEWLINE);
+			break;
+
+		case isc_info_wal_buffer_size:
+			value_out = isc_vax_integer(d, length);
+			if (translate) {
+				ISQL_msg_get(WAL_BUFF_SIZE, msg, (TEXT *) value_out, NULL,
+							 NULL, NULL, NULL);
+				sprintf(info, msg);
+			}
+			else
+				sprintf(info, "Wal buffer size = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_wal_ckpt_length:
+			value_out = isc_vax_integer(d, length);
+			if (translate) {
+				ISQL_msg_get(CKPT_LENGTH, msg, (TEXT *) value_out, NULL, NULL,
+							 NULL, NULL);
+				sprintf(info, msg);
+			}
+			else
+				sprintf(info, "Check point length = %ld %s",
+						value_out, NEWLINE);
+			break;
+
+		case isc_info_wal_cur_ckpt_interval:
+			value_out = isc_vax_integer(d, length);
+			if (translate) {
+				ISQL_msg_get(CKPT_INTERV, msg, (TEXT *) value_out, NULL, NULL,
+							 NULL, NULL);
+				sprintf(info, msg);
+			}
+			else
+				sprintf(info, "Check point interval = %ld %s",
+						value_out, NEWLINE);
+			break;
+
+		case isc_info_wal_grpc_wait_usecs:
+			value_out = isc_vax_integer(d, length);
+			if (translate) {
+				ISQL_msg_get(WAL_GRPC_WAIT, msg, (TEXT *) value_out, NULL,
+							 NULL, NULL, NULL);
+				sprintf(info, msg);
+			}
+			else
+				sprintf(info, "Wal group commit wait = %ld %s",
+						value_out, NEWLINE);
+			break;
+
+		case isc_info_base_level:
+			value_out = isc_vax_integer(d, length);
+			if (translate) {
+				ISQL_msg_get(BASE_LEVEL, msg, (TEXT *) value_out, NULL, NULL,
+							 NULL, NULL);
+				sprintf(info, msg);
+			}
+			else
+				sprintf(info, "Base level = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_limbo:
+			value_out = isc_vax_integer(d, length);
+			if (translate) {
+				ISQL_msg_get(LIMBO, msg, (TEXT *) value_out, NULL, NULL, NULL,
+							 NULL);
+				sprintf(info, msg);
+			}
+			else
+				sprintf(info, "Transaction in limbo = %ld %s",
+						value_out, NEWLINE);
+			break;
+
+#ifdef UNUSED_FOR_ISQL
+
+		case isc_info_reads:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Number of reads = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_writes:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Number of writes = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_fetches:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Number of fetches = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_marks:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Number of marks = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_num_buffers:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Number of buffers = %ld%s", value_out, NEWLINE);
+			break;
+
+		case isc_info_wal_num_io:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Wal number of io = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_wal_avg_io_size:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Wal average io size = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_wal_num_commits:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Wal number of commits = %ld %s",
+					value_out, NEWLINE);
+			break;
+
+		case isc_info_wal_avg_grpc_size:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Wal average group commit size = %ld %s",
+					value_out NEWLINE);
+			break;
+
+		case isc_info_current_memory:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Current memory size = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_max_memory:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Max memory size = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_attachment_id:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "DB attachment id = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_ods_version:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "ODS version = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_ods_minor_version:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Minor ODS version = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_read_seq_count:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Reads sequential count = %ld %s",
+					value_out, NEWLINE);
+			break;
+
+		case isc_info_read_idx_count:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Reads via index count = %ld %s",
+					value_out, NEWLINE);
+			break;
+
+		case isc_info_update_count:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Number of updates = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_insert_count:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Number of inserts = %ld %s", value_out NEWLINE);
+			break;
+
+		case isc_info_delete_count:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Number of deletes = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_backout_count:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Backout count = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_purge_count:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Purge count = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_expunge_count:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Expunge count = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_implementation:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Implementation = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_version:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "Info version number = %ld %s", value_out, NEWLINE);
+			break;
+
+		case isc_info_no_reserve:
+			value_out = isc_vax_integer(d, length);
+			sprintf(info, "No reserve = %s %s", value_out, NEWLINE);
+			break;
+#endif /* UNUSED_FOR_ISQL */
+		}
+
+		d += length;
+		info += strlen(info);
+	}
+	ISQL_FREE(buffer);
+	ISQL_FREE(msg);
+}
+
+
+int SHOW_grants( SCHAR * object, SCHAR * terminator)
+{
+/**************************************
+ *
+ *	S H O W _ g r a n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show grants for given object name
+ *	This function is also called by extract for privileges.
+ *  	It must extract granted privileges on tables/views to users,
+ *		- these may be compound, so put them on the same line.
+ *	Grant execute privilege on procedures to users
+ *	Grant various privilegs to procedures.
+ *	All privileges may have the with_grant option set.
+ *
+ **************************************/
+	BASED_ON RDB$USER_PRIVILEGES.RDB$USER prev_user;
+	BASED_ON RDB$USER_PRIVILEGES.RDB$GRANT_OPTION prev_option;
+	BASED_ON RDB$USER_PRIVILEGES.RDB$FIELD_NAME prev_field;
+	SCHAR c, with_option[18];
+	SCHAR priv_string[MAX_PRIV_LIST];
+	SCHAR col_string[BUFFER_LENGTH128];
+	SCHAR user_string[44];
+	USHORT priv_flags;
+	SSHORT prev_field_null;
+	SSHORT first = TRUE;
+	SCHAR role_name[BUFFER_LENGTH128];
+
+	if (!*object)
+		return ERR;
+
+/* Query against user_privileges instead of looking at rdb$security_classes*/
+
+	prev_option = -1;
+	prev_user[0] = '\0';
+	priv_string[0] = '\0';
+	col_string[0] = '\0';
+	with_option[0] = '\0';
+	priv_flags = 0;
+	prev_field_null = -1;
+	prev_field[0] = '\0';
+
+/* Find the user specified relation and show its privileges */
+
+	FOR FIRST 1 R IN RDB$RELATIONS WITH R.RDB$RELATION_NAME EQ object;
+	
+	    /* This query only finds tables, eliminating owner privileges */
+	
+	    FOR PRV IN RDB$USER_PRIVILEGES CROSS
+	       REL IN RDB$RELATIONS WITH
+	       PRV.RDB$RELATION_NAME EQ object AND
+	       REL.RDB$RELATION_NAME EQ object AND
+	       PRV.RDB$PRIVILEGE     NE 'M'    AND
+	       REL.RDB$OWNER_NAME    NE PRV.RDB$USER
+	       SORTED BY  PRV.RDB$USER, PRV.RDB$FIELD_NAME, PRV.RDB$GRANT_OPTION;
+	
+	        ISQL_blankterm (PRV.RDB$USER);
+	
+	        /* Sometimes grant options are null, sometimes 0.  Both same */
+	
+	        if (PRV.RDB$GRANT_OPTION.NULL)
+                PRV.RDB$GRANT_OPTION = 0;
+	
+	        if (PRV.RDB$FIELD_NAME.NULL)
+                PRV.RDB$FIELD_NAME [0] = '\0';
+	
+	        /* Print a new grant statement for each new user or change of option */
+	
+	        if ((prev_user [0] && strcmp (prev_user, PRV.RDB$USER)) || 
+                (prev_field_null != -1 &&
+                 prev_field_null != PRV.RDB$FIELD_NAME.NULL) ||
+                (!prev_field_null && strcmp (prev_field, PRV.RDB$FIELD_NAME)) ||
+                (prev_option != -1 && prev_option != PRV.RDB$GRANT_OPTION)) {
+                    make_priv_string (priv_flags, priv_string);
+	
+                    first = FALSE;
+	
+                    if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+                        ISQL_copy_SQL_id (object, &SQL_identifier, DBL_QUOTE);
+                    else
+                        strcpy (SQL_identifier, object);
+                    
+                    sprintf (Print_buffer, "GRANT %s%s ON %s TO %s%s%s%s", priv_string, 
+                             col_string, SQL_identifier, user_string, 
+                             with_option, terminator, NEWLINE);
+                    ISQL_printf (Out, Print_buffer);
+                    
+                    /* re-initialize strings */
+                    
+                    priv_string [0] = '\0';
+                    with_option [0] = '\0';
+                    col_string[0] = '\0';
+                    priv_flags = 0;
+            }
+	
+	        /* At each row, store this value for the next compare of contol break */
+            
+	        strcpy (prev_user, PRV.RDB$USER);
+	        prev_option = PRV.RDB$GRANT_OPTION;
+	        prev_field_null = PRV.RDB$FIELD_NAME.NULL;
+	        strcpy (prev_field, PRV.RDB$FIELD_NAME);
+            
+	        switch (PRV.RDB$USER_TYPE) {
+            case obj_relation:
+            case obj_view:
+            case obj_trigger:
+            case obj_procedure:
+            case obj_sql_role:
+                if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION) {
+                    ISQL_copy_SQL_id (PRV.RDB$USER, &SQL_identifier, DBL_QUOTE);
+                }
+                else
+                    strcpy (SQL_identifier, PRV.RDB$USER);
+                break;
+            default:
+                strcpy (SQL_identifier, PRV.RDB$USER);
+                break;
+            }
+	
+	        switch (PRV.RDB$USER_TYPE) {
+            case obj_view:
+                sprintf (user_string, "VIEW %s", SQL_identifier);
+                break;
+            case obj_trigger:
+                sprintf (user_string, "TRIGGER %s", SQL_identifier);
+                break;
+            case obj_procedure:
+                sprintf (user_string, "PROCEDURE %s", SQL_identifier);
+                break;
+            default:
+                strcpy (user_string, SQL_identifier);
+                break;
+            }
+            
+	        /* Only the first character is used for permissions */
+            
+	        c = PRV.RDB$PRIVILEGE [0];
+            
+	        switch (c) { 
+            case 'S':
+                priv_flags |= priv_SELECT;
+                break;
+            case 'I':
+                priv_flags |= priv_INSERT;
+                break;
+	       case 'U':
+	           priv_flags |= priv_UPDATE;
+	           break;
+            case 'D':
+                priv_flags |= priv_DELETE;
+                break;
+            case 'R':
+                priv_flags |= priv_REFERENCES;
+	           break;
+            case 'X':
+                /* Execute should not be here -- special handling below */
+                break;
+            default:
+                priv_flags |= priv_UNKNOWN;
+            }
+	
+	        /* Column level privileges for update only */
+	        if (PRV.RDB$FIELD_NAME.NULL)
+			{
+                *col_string = '\0';
+			}
+	        else
+			{
+                ISQL_blankterm (PRV.RDB$FIELD_NAME);
+                if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+				{
+                    ISQL_copy_SQL_id (PRV.RDB$FIELD_NAME, &SQL_identifier, 
+                                      DBL_QUOTE);
+                    sprintf(col_string, " (%s)", SQL_identifier);
+                }
+                else
+				{
+                    sprintf(col_string, " (%s)", PRV.RDB$FIELD_NAME);
+				}
+            }
+	
+	        if (PRV.RDB$GRANT_OPTION)
+                strcpy (with_option, " WITH GRANT OPTION");
+            
+        END_FOR
+        ON_ERROR
+            ISQL_errmsg (isc_status);
+	        return ERR;
+	    END_ERROR;
+	
+	    /* Print last case if there was anything to print */
+	
+	    if (prev_option != -1) {
+	        make_priv_string (priv_flags, priv_string);
+            first = FALSE;
+            
+            if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+                ISQL_copy_SQL_id (object, &SQL_identifier, DBL_QUOTE);
+            else
+                strcpy (SQL_identifier, object);
+            
+	        sprintf (Print_buffer, "GRANT %s%s ON %s TO %s%s%s%s", 
+                     priv_string, col_string,
+                     SQL_identifier, user_string, with_option, terminator, NEWLINE);
+	        ISQL_printf (Out, Print_buffer);
+        }
+        
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return ERR;
+	END_ERROR;
+
+	if (!first)
+		return (SKIP);
+
+/* No relation called "object" was found, try procedure "object" */
+
+	FOR FIRST 1 P IN RDB$PROCEDURES WITH P.RDB$PROCEDURE_NAME EQ object;
+	
+	    /* Part two is for stored procedures only */
+	
+	    FOR PRV IN RDB$USER_PRIVILEGES CROSS
+            PRC IN RDB$PROCEDURES WITH
+            PRV.RDB$OBJECT_TYPE = obj_procedure AND
+            PRV.RDB$RELATION_NAME EQ object AND
+            PRC.RDB$PROCEDURE_NAME EQ object AND
+            PRV.RDB$PRIVILEGE EQ 'X' AND
+            PRC.RDB$OWNER_NAME NE PRV.RDB$USER
+            SORTED BY  PRV.RDB$USER, PRV.RDB$FIELD_NAME, PRV.RDB$GRANT_OPTION;
+         
+            first = FALSE;
+            ISQL_blankterm (PRV.RDB$USER);
+            
+            switch (PRV.RDB$USER_TYPE) {
+            case obj_relation:
+            case obj_view:
+            case obj_trigger:
+            case obj_procedure:
+            case obj_sql_role:
+                if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION) {
+                    ISQL_copy_SQL_id (PRV.RDB$USER, &SQL_identifier, DBL_QUOTE);
+                }
+                else
+                    strcpy (SQL_identifier, PRV.RDB$USER);
+                break;
+            default:
+                strcpy (SQL_identifier, PRV.RDB$USER);
+                break;
+            }
+            
+            switch (PRV.RDB$USER_TYPE) {
+            case obj_view:
+                sprintf (user_string, "VIEW %s", SQL_identifier);
+                break;
+	       case obj_trigger:
+	           sprintf (user_string, "TRIGGER %s", SQL_identifier);
+	           break;
+            case obj_procedure:
+                sprintf (user_string, "PROCEDURE %s", SQL_identifier);
+                break;
+            default:
+	           strcpy (user_string, SQL_identifier);
+	           break;
+            }
+            
+            if (PRV.RDB$GRANT_OPTION)
+                strcpy (with_option, " WITH GRANT OPTION");
+            else 
+                with_option[0] = '\0';
+            
+            if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION) {
+                
+                ISQL_copy_SQL_id (object, &SQL_identifier, DBL_QUOTE);
+            }
+            else
+                strcpy (SQL_identifier, object);
+	
+            sprintf (Print_buffer, "GRANT EXECUTE ON PROCEDURE %s TO %s%s%s%s", 
+                     SQL_identifier, user_string, with_option, terminator, NEWLINE);
+            first = FALSE;
+           ISQL_printf (Out, Print_buffer);
+           
+       END_FOR
+	   ON_ERROR
+	       ISQL_errmsg (isc_status);
+	       return (ERR);
+	   END_ERROR
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+        return (ERR);
+	END_ERROR;
+
+	if (!first)
+		return (SKIP);
+
+/* No procedure called "object" was found, try role "object" */
+
+	FOR FIRST 1 R IN RDB$ROLES WITH R.RDB$ROLE_NAME EQ object;
+	
+	    FOR PRV IN RDB$USER_PRIVILEGES WITH
+            PRV.RDB$OBJECT_TYPE   EQ obj_sql_role AND
+            PRV.RDB$USER_TYPE     EQ obj_user     AND
+            PRV.RDB$RELATION_NAME EQ object       AND
+            PRV.RDB$PRIVILEGE     EQ 'M'
+            SORTED BY  PRV.RDB$USER
+	
+            ISQL_blankterm (PRV.RDB$RELATION_NAME);
+	        strcpy (role_name, PRV.RDB$RELATION_NAME);
+            if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+                ISQL_copy_SQL_id (role_name, &SQL_identifier, DBL_QUOTE);
+            else
+                strcpy (SQL_identifier, role_name);
+            
+            ISQL_blankterm (PRV.RDB$USER);
+            strcpy (user_string, PRV.RDB$USER);
+            
+            if (PRV.RDB$GRANT_OPTION)
+                strcpy (with_option, " WITH ADMIN OPTION");
+            else
+                with_option [0] = '\0';
+            
+            sprintf (Print_buffer, "GRANT %s TO %s%s%s%s", SQL_identifier,
+                     user_string, with_option, terminator, NEWLINE);
+            
+            first = FALSE;
+            ISQL_printf (Out, Print_buffer);
+            
+        END_FOR
+	    ON_ERROR
+	        ISQL_errmsg (isc_status);
+	        return (ERR);
+	    END_ERROR;
+	
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return (ERR);
+	END_ERROR;
+
+	if (first)
+		return (NOT_FOUND);
+    
+	return (SKIP);
+}
+
+
+void SHOW_grant_roles( SCHAR * terminator)
+{
+/**************************************
+ *
+ *	S H O W _ g r a n t _ r o l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show grants for given role name
+ *	This function is also called by extract for privileges.
+ *	All membership privilege may have the with_admin option set.
+ *
+ **************************************/
+	SCHAR with_option[18];
+	SCHAR user_string[44];
+	SCHAR role_name[44];
+
+/* process role "object" */
+
+	FOR PRV IN RDB$USER_PRIVILEGES WITH
+	    PRV.RDB$OBJECT_TYPE   EQ obj_sql_role AND
+	    PRV.RDB$USER_TYPE     EQ obj_user     AND
+	    PRV.RDB$PRIVILEGE     EQ 'M'
+	    SORTED BY  PRV.RDB$RELATION_NAME, PRV.RDB$USER
+	
+	    ISQL_blankterm (PRV.RDB$USER);
+	    strcpy (user_string, PRV.RDB$USER);
+	
+	    if (PRV.RDB$GRANT_OPTION)
+	        strcpy (with_option, " WITH ADMIN OPTION");
+	    else
+	        with_option [0] = '\0';
+	
+	    ISQL_blankterm (PRV.RDB$RELATION_NAME);
+	    if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION) {
+            ISQL_copy_SQL_id (PRV.RDB$RELATION_NAME, &SQL_identifier, DBL_QUOTE);
+            sprintf (Print_buffer, "GRANT %s TO %s%s%s%s", SQL_identifier,
+                     user_string, with_option, terminator, NEWLINE);
+        }
+	    else
+            sprintf (Print_buffer, "GRANT %s TO %s%s%s%s", PRV.RDB$RELATION_NAME,
+                     user_string, with_option, terminator, NEWLINE);
+        
+	    ISQL_printf (Out, Print_buffer);
+        
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	END_ERROR;
+
+}
+
+
+void SHOW_print_metadata_text_blob( IB_FILE * fp, ISC_QUAD * blobid)
+{
+/**************************************
+ *
+ *	S H O W _ p r i n t _ m e t a d a t a _ t e x t _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a Blob that is known to be metadata text.
+ *
+ **************************************/
+	isc_blob_handle blob_handle;
+	USHORT length;
+	UCHAR *buffer, *b, *start;
+
+/* Don't bother with null blobs */
+
+	if (blobid->isc_quad_high == 0 && blobid->gds_quad_low == 0)
+		return;
+
+	blob_handle = NULL;
+	if (isc_open_blob2(isc_status, &DB, &gds__trans, &blob_handle, blobid,
+					   sizeof(metadata_text_bpb), metadata_text_bpb)) {
+		ISQL_errmsg(isc_status);
+		return;
+	}
+
+	buffer = (UCHAR *) ISQL_ALLOC(BUFFER_LENGTH512);
+	if (!buffer) {
+		isc_status[0] = isc_arg_gds;
+		isc_status[1] = isc_virmemexh;
+		isc_status[2] = isc_arg_end;
+		ISQL_errmsg(isc_status);
+		return;
+	}
+
+	while (!isc_get_segment(isc_status, &blob_handle, &length,
+							(USHORT) (BUFFER_LENGTH512 - 1), buffer) ||
+		   isc_status[1] == isc_segment) {
+/*
+ * Need to step through the buffer until we hit a '\n' and then print the
+ * line.  This is because '\n' are included in blob text.
+*/
+#ifdef GUI_TOOLS
+		buffer[length--] = 0;
+		for (b = buffer, start = buffer; b <= buffer + length; b++) {
+			if (*b == '\n') {
+				*b = 0;
+				sprintf(Print_buffer, "%s%s", start, NEWLINE);
+				ISQL_printf(fp, Print_buffer);
+				start = b + 1;
+			}
+		}
+		sprintf(Print_buffer, "%s", start);
+		ISQL_printf(fp, Print_buffer);
+#else
+		buffer[length] = 0;
+		ISQL_printf(fp, buffer);
+#endif
+	}
+#ifdef GUI_TOOLS
+	ISQL_printf(fp, NEWLINE);
+#endif
+
+	if (isc_status[1] && isc_status[1] != isc_segstr_eof)
+		ISQL_errmsg(isc_status);
+
+	isc_close_blob(isc_status, &blob_handle);
+	ISQL_FREE(buffer);
+}
+
+
+int SHOW_metadata( SCHAR ** cmd, SCHAR ** lcmd)
+{
+/**************************************
+ *
+ *	S H O W _ m e t a d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	If somebody presses the show ..., come here to
+ *	interpret the desired command.
+ *	Paramters:
+ *	cmd -- Array of words for the command
+ *
+ **************************************/
+	int ret = SKIP;
+	TEXT msg_string[MSG_LENGTH];
+	TEXT key_string[MSG_LENGTH];
+	int key = 0;
+
+/* Can't show nothing, return an error */
+
+	*key_string = '\0';
+
+	if (!cmd[1])
+		return (ERR);
+
+/* Only show version works if there is no db attached */
+
+	if ((!strcmp(cmd[1], "VERSION")) || (!strcmp(cmd[1], "VER"))) {
+		gds__msg_format(NULL_PTR, ISQL_MSG_FAC, VERSION, sizeof(msg_string),
+						msg_string, GDS_VERSION, NULL_PTR, NULL_PTR, NULL_PTR,
+						NULL_PTR);
+		sprintf(Print_buffer, "%s%s", msg_string, NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+		isc_version(&DB, (FPTR_VOID) local_fprintf, NULL);
+	}
+	else if (!strcmp(cmd[1], "SQL")) {
+		if (!strcmp(cmd[2], "DIALECT"))
+			ret = show_dialect();
+		else
+			ret = ERR;
+	}
+	else if (!ISQL_dbcheck())
+	{
+		/* Do nothing */ ;
+	}
+	else if ((!strcmp(cmd[1], "ROLE")) || (!strcmp(cmd[1], "ROLES")))
+	{
+		if (major_ods >= ODS_VERSION9) {
+			if (*cmd[2])
+			{
+				if (*cmd[2] == '"')
+				{
+					remove_delimited_double_quotes(lcmd[2]);
+					ret = show_role(lcmd[2]);
+				}
+				else
+				{
+					ret = show_role(cmd[2]);
+				}
+
+				if (ret == NOT_FOUND)
+					key = NO_ROLE;
+			}
+			else
+			{
+				ret = show_role(NULL);
+				if (ret == NOT_FOUND)
+					key = NO_ROLES;
+			}
+		}
+	}
+	else if ((!strcmp(cmd[1], "TABLE")) || (!strcmp(cmd[1], "TABLES")))
+	{
+		if (*cmd[2])
+		{
+			if (*cmd[2] == '"')
+			{
+				remove_delimited_double_quotes(lcmd[2]);
+				ret = show_table(lcmd[2]);
+			}
+			else
+			{
+				ret = show_table(cmd[2]);
+			}
+
+			if (ret == NOT_FOUND)
+				key = NO_TABLE;
+		}
+		else
+		{
+			ret = show_all_tables(0);
+			if (ret == NOT_FOUND)
+				key = NO_TABLES;
+		}
+	}
+	else if (!strcmp(cmd[1], "VIEW") || !strcmp(cmd[1], "VIEWS"))
+	{
+		if (*cmd[2])
+		{
+			if (*cmd[2] == '"')
+			{
+				remove_delimited_double_quotes(lcmd[2]);
+				ret = show_table(lcmd[2]);
+			}
+			else
+			{
+				ret = show_table(cmd[2]);
+			}
+
+			if (ret == NOT_FOUND)
+				key = NO_VIEW;
+		}
+		else
+		{
+			ret = show_all_tables(-1);
+			if (ret == NOT_FOUND)
+				key = NO_VIEWS;
+		}
+	}
+	else if ((!strcmp(cmd[1], "SYSTEM")) || (!strcmp(cmd[1], "SYS")))
+	{
+		show_all_tables(1);
+	}
+	else if ((!strcmp(cmd[1], "INDEX")) ||
+			 (!strcmp(cmd[1], "IND")) || (!strcmp(cmd[1], "INDICES")))
+	{
+		if (*cmd[2] == '"')
+		{
+			remove_delimited_double_quotes(lcmd[2]);
+			ret = show_indices(lcmd);
+		}
+		else
+		{
+			ret = show_indices(cmd);
+		}
+
+		if (ret == NOT_FOUND)
+		{
+			if (*cmd[2])
+			{
+                FOR FIRST 1 R IN RDB$RELATIONS WITH R.RDB$RELATION_NAME EQ cmd [2];
+                    key = NO_INDICES_ON_REL;
+                END_FOR
+                ON_ERROR
+					/* Ignore any error */
+				END_ERROR;
+				if (!key)
+					key = NO_REL_OR_INDEX;
+			}
+			else
+			{
+				key = NO_INDICES;
+			}
+		}
+	}
+	else if ((!strcmp(cmd[1], "DOMAIN")) || (!strcmp(cmd[1], "DOMAINS")))
+	{
+		if (*cmd[2] == '"')
+		{
+			remove_delimited_double_quotes(lcmd[2]);
+			ret = show_domains(lcmd[2]);
+		}
+		else
+			ret = show_domains(cmd[2]);
+
+		if (ret == NOT_FOUND) {
+			if (*cmd[2])
+				key = NO_DOMAIN;
+			else
+				key = NO_DOMAINS;
+		}
+	}
+	else if ((!strcmp(cmd[1], "EXCEPTION")) ||
+			 (!strcmp(cmd[1], "EXCEPTIONS"))) {
+		if (*cmd[2] == '"') {
+			remove_delimited_double_quotes(lcmd[2]);
+			ret = show_exceptions(lcmd[2]);
+		}
+		else
+			ret = show_exceptions(cmd[2]);
+
+		if (ret == NOT_FOUND) {
+			if (*cmd[2])
+				key = NO_EXCEPTION;
+			else
+				key = NO_EXCEPTIONS;
+		}
+	}
+	else if ((!strcmp(cmd[1], "FILTER")) || (!strcmp(cmd[1], "FILTERS"))) {
+		if (*cmd[2] == '"') {
+			remove_delimited_double_quotes(lcmd[2]);
+			ret = show_filters(lcmd[2]);
+		}
+		else
+			ret = show_filters(cmd[2]);
+
+		if (ret == NOT_FOUND) {
+			if (*cmd[2])
+				key = NO_FILTER;
+			else
+				key = NO_FILTERS;
+		}
+	}
+	else if ((!strcmp(cmd[1], "FUNCTION")) || (!strcmp(cmd[1], "FUNCTIONS"))) {
+		if (*cmd[2] == '"') {
+			remove_delimited_double_quotes(lcmd[2]);
+			ret = show_functions(lcmd[2]);
+		}
+		else
+			ret = show_functions(cmd[2]);
+
+		if (ret == NOT_FOUND) {
+			if (*cmd[2])
+				key = NO_FUNCTION;
+			else
+				key = NO_FUNCTIONS;
+		}
+	}
+	else if ((!strcmp(cmd[1], "GENERATOR")) ||
+			 (!strcmp(cmd[1], "GENERATORS")) || (!strcmp(cmd[1], "GEN"))) {
+		if (*cmd[2] == '"') {
+			remove_delimited_double_quotes(lcmd[2]);
+			ret = show_generators(lcmd[2]);
+		}
+		else
+			ret = show_generators(cmd[2]);
+
+		if (ret == NOT_FOUND) {
+			if (*cmd[2])
+				key = NO_GEN;
+			else
+				key = NO_GENS;
+		}
+	}
+	else if ((!strcmp(cmd[1], "GRANT")) || (!strcmp(cmd[1], "GRANTS"))) {
+		if (*cmd[2]) {
+			if (*cmd[2] == '"') {
+				remove_delimited_double_quotes(lcmd[2]);
+				strcpy(SQL_id_for_grant, lcmd[2]);
+			}
+			else
+				strcpy(SQL_id_for_grant, cmd[2]);
+		}
+		else
+			strcpy(SQL_id_for_grant, cmd[2]);
+
+		ret = SHOW_grants(SQL_id_for_grant, "");
+
+		if (ret == NOT_FOUND) {
+	      FOR FIRST 1 R IN RDB$RELATIONS WITH R.RDB$RELATION_NAME EQ 
+	                     SQL_id_for_grant;
+	     key = NO_GRANT_ON_REL;
+	      END_FOR
+			ON_ERROR
+				/* Ignore any error */
+				END_ERROR;
+			if (!key) {
+                FOR FIRST 1 P IN RDB$PROCEDURES WITH P.RDB$PROCEDURE_NAME EQ 
+	                        SQL_id_for_grant;
+                    key = NO_GRANT_ON_PROC;
+                END_FOR
+				ON_ERROR
+					/* Ignore any error */
+				END_ERROR;
+			}
+			if (!key) {
+                FOR FIRST 1 R IN RDB$ROLES WITH R.RDB$ROLE_NAME EQ SQL_id_for_grant;
+                    key = NO_GRANT_ON_ROL;
+                END_FOR
+				ON_ERROR
+					/* Ignore any error */
+				END_ERROR;
+			}
+			if (!key)
+				key = NO_REL_OR_PROC_OR_ROLE;
+		}
+	}
+	else if ((!strcmp(cmd[1], "PROCEDURE")) ||
+			 (!strcmp(cmd[1], "PROC")) || (!strcmp(cmd[1], "PROCEDURES"))) {
+		if (*cmd[2] == '"') {
+			remove_delimited_double_quotes(lcmd[2]);
+			ret = show_proc(lcmd[2]);
+		}
+		else
+			ret = show_proc(cmd[2]);
+
+		if (ret == NOT_FOUND) {
+			if (*cmd[2])
+				key = NO_PROC;
+			else
+				key = NO_PROCS;
+		}
+	}
+	else if ((!strcmp(cmd[1], "TRIGGER")) ||
+			 (!strcmp(cmd[1], "TRIG")) || (!strcmp(cmd[1], "TRIGGERS"))) {
+		if (*cmd[2] == '"') {
+			remove_delimited_double_quotes(lcmd[2]);
+			ret = show_trigger(lcmd[2], SHOW_SOURCE);
+		}
+		else
+			ret = show_trigger(cmd[2], SHOW_SOURCE);
+
+		if (ret == NOT_FOUND)
+			if (*cmd[2]) {
+                FOR FIRST 1 R IN RDB$RELATIONS WITH R.RDB$RELATION_NAME EQ cmd [2];
+                    key = NO_TRIGGERS_ON_REL;
+                END_FOR
+				ON_ERROR
+					/* Ignore any error */
+				END_ERROR;
+				if (!key)
+					key = NO_REL_OR_TRIGGER;
+			}
+			else
+				key = NO_TRIGGERS;
+	}
+	else if (!strcmp(cmd[1], "CHECK")) {
+		if (*cmd[2] == '"') {
+			remove_delimited_double_quotes(lcmd[2]);
+			ret = show_check(lcmd[2]);
+		}
+		else
+			ret = show_check(cmd[2]);
+
+		if (ret == NOT_FOUND) {
+			if (*cmd[2]) {
+                FOR FIRST 1 R IN RDB$RELATIONS WITH R.RDB$RELATION_NAME EQ cmd [2];
+                    key = NO_CHECKS_ON_REL;
+                END_FOR
+				ON_ERROR
+					/* Ignore any error */
+				END_ERROR;
+			}
+			if (!key)
+				key = NO_TABLE;
+		}
+	}
+	else if ((!strcmp(cmd[1], "DATABASE")) || (!strcmp(cmd[1], "DB")))
+		show_db();
+	else
+		return (ERR);
+
+	if (ret == NOT_FOUND) {
+		if (*cmd[2] == '"')
+			gds__msg_format(NULL_PTR, ISQL_MSG_FAC, key, sizeof(msg_string),
+							msg_string, lcmd[2], NULL_PTR, NULL_PTR,
+							NULL_PTR, NULL_PTR);
+		else
+			gds__msg_format(NULL_PTR, ISQL_MSG_FAC, key, sizeof(msg_string),
+							msg_string, cmd[2], NULL_PTR, NULL_PTR, NULL_PTR,
+							NULL_PTR);
+		STDERROUT(msg_string, 1);
+	}
+
+	return (ret);
+}
+
+
+static void *local_fprintf( UCHAR * format, UCHAR * string)
+{
+/**************************************
+ *
+ *	l o c a l _ p r i n t f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Used to make sure that local calls to print stuff go to Out
+ *	and not to ib_stdout if gds__version gets called.
+ *
+ **************************************/
+
+	ib_fprintf(Out, "%s", string);
+	ib_fprintf(Out, "%s", NEWLINE);
+
+#ifdef GUI_TOOLS
+	PaintOutputWindow(string);
+	PaintOutputWindow(NEWLINE);
+#endif
+}
+
+
+static SCHAR *remove_delimited_double_quotes( TEXT * string)
+{
+/**************************************
+ *
+ *	r e m o v e _ d e l i m i t e d _ d o u b l e _ q u o t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	remove the delimited double quotes. Blanks could be part of
+ *	delimited SQL identifier.
+ *
+ **************************************/
+	UCHAR *p, *q, *next_char, *end_of_str;
+	USHORT cmd_len, cnt;
+
+	p = string;
+	q = string;
+	cmd_len = strlen(string);
+	end_of_str = string + cmd_len;
+
+	for (cnt = 1; cnt < cmd_len && p < end_of_str; cnt++) {
+		p++;
+		if (cnt < cmd_len - 1) {
+			*q = *p;
+			if (p + 1 < end_of_str) {
+				next_char = p + 1;
+				if (*next_char == DBL_QUOTE)	/* skip the escape double quote */
+					p++;
+			}
+			else {
+				p++;
+				*q = '\0';
+			}
+		}
+		else
+			*q = '\0';
+		q++;
+	}
+	*q = '\0';
+}
+
+
+static void make_priv_string( USHORT flags, UCHAR * string)
+{
+/**************************************
+ *
+ *	m a k e _ p r i v _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a bit-vector of privileges, turn it into a 
+ *	string list.
+ *
+ **************************************/
+	USHORT i;
+
+	for (i = 0; privs[i].priv_string; i++) {
+		if (flags & privs[i].priv_flag) {
+			if (*string)
+				strcat(string, ", ");
+			strcat(string, privs[i].priv_string);
+		}
+	}
+}
+
+
+static int show_all_tables( SSHORT flag)
+{
+/**************************************
+ *
+ *	s h o w _ a l l _ t a b l e s
+ *
+ **************************************
+ *
+ *	Print the names of all user tables from
+ *	rdb$relations.  We use a dynamic query 
+ *
+ *	Parameters:  flag -- 0, show user tables
+ *	1, show system tables only
+ *
+ **************************************/
+	SSHORT odd = 1;
+	SSHORT first = TRUE;
+
+	if (flag == -1) {
+		/* Views */
+	    FOR REL IN RDB$RELATIONS WITH
+            REL.RDB$VIEW_BLR NOT MISSING
+            SORTED BY REL.RDB$RELATION_NAME
+	   
+            first = FALSE;
+            sprintf (Print_buffer, "%38s%s", REL.RDB$RELATION_NAME, (odd ? " " : NEWLINE));
+            ISQL_printf (Out, Print_buffer);
+	        odd = 1 - odd;
+	
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return ERR;
+		END_ERROR;
+	}
+	else {
+        FOR REL IN RDB$RELATIONS WITH
+            REL.RDB$SYSTEM_FLAG EQ flag
+            SORTED BY REL.RDB$RELATION_NAME
+	
+            first = FALSE;
+            sprintf (Print_buffer, "%38s%s", REL.RDB$RELATION_NAME, (odd ? " " : NEWLINE));
+            ISQL_printf (Out, Print_buffer);
+	        odd = 1 - odd;
+            
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return ERR;
+		END_ERROR;
+	}
+
+	if (!first) {
+		ISQL_printf(Out, NEWLINE);
+		return SKIP;
+	}
+	else
+		return NOT_FOUND;
+}
+
+
+#ifdef GUI_TOOLS
+void SHOW_query_database( int *tables, int *views, int *indices)
+{
+/**************************************
+ *
+ *	 S H O W _ q u e r y _ d a t a b a s e 
+ *
+ **************************************
+ *
+ *	Query RDB$RELATIONS to determine if
+ *	the database has tables, views and indices
+ *	defined.
+ *
+ **************************************/
+
+	*tables = 0;
+	*views = 0;
+	*indices = 0;
+
+/* views */
+	FOR FIRST 1 REL IN RDB$RELATIONS WITH
+	    REL.RDB$VIEW_BLR NOT MISSING AND
+	    REL.RDB$FLAGS = REL_sql
+	    {  
+	       *views = 1;
+	    }
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return;
+	END_ERROR;
+
+	FOR FIRST 1 REL IN RDB$RELATIONS WITH
+	    REL.RDB$SYSTEM_FLAG EQ 0 AND
+	    REL.RDB$VIEW_BLR MISSING AND
+	    REL.RDB$FLAGS = REL_sql
+	    {
+	       *tables = 1;
+	    }
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return;
+	END_ERROR;
+	return;
+}
+#endif
+
+
+#ifdef GUI_TOOLS
+void SHOW_build_table_namelist( TBLLIST ** tbl_list)
+{
+/**************************************
+ *
+ *	 b u i l d _ t a b l e _ n a m e l i s t 
+ *
+ **************************************
+ *
+ *	Build a list of all user tables from
+ *	rdb$relations.  We use a dynamic query 
+ *
+ **************************************/
+	SSHORT length = 0, save_length = 0;
+	TBLLIST *templist;
+	TBLLIST *tbl_node;
+
+	templist = *tbl_list;
+/* Tables */
+	FOR REL IN RDB$RELATIONS WITH
+        REL.RDB$SYSTEM_FLAG EQ 0 AND
+        REL.RDB$VIEW_BLR MISSING AND
+        REL.RDB$FLAGS = REL_sql
+        SORTED BY REL.RDB$RELATION_NAME
+	   
+	    sprintf (Print_buffer, "%s", REL.RDB$RELATION_NAME);
+	
+	    tbl_node = (TBLLIST *) ISQL_ALLOC ((SLONG) sizeof(TBLLIST));
+	    if (tbl_node) {
+            /* remove whitespace at end of table name */
+            length = strlen (Print_buffer) - 1;
+            save_length = length + 1;
+	        while (Print_buffer[length] == ' ' && length >= 0)
+                length--;
+            Print_buffer[length + 1] = NULL;
+            if (save_length > TBLNAME_LENGTH) {
+                strncpy (tbl_node->szName, Print_buffer, TBLNAME_LENGTH);
+                tbl_node->szName[TBLNAME_LENGTH] = NULL;    
+            }   
+            else
+                strcpy (tbl_node->szName, Print_buffer);
+            tbl_node->pNext = NULL;
+            if (templist == NULL)
+                *tbl_list     = tbl_node;
+            else
+                templist->pNext = tbl_node;
+            templist            = tbl_node; 
+        }
+	    else {
+            isc_status [0] = isc_arg_gds;
+            isc_status [1] = isc_virmemexh;
+            isc_status [2] = isc_arg_end;   
+            ISQL_errmsg (isc_status);
+            return;
+        }
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return;
+	END_ERROR;
+}
+#endif
+
+
+#ifdef GUI_TOOLS
+void SHOW_build_view_namelist( VIEWLIST ** view_list)
+{
+/**************************************
+ *
+ *	 b u i l d _ v i e w _ n a m e l i s t 
+ *
+ **************************************
+ *
+ *	Build a list of all user views from
+ *	rdb$relations.  We use a dynamic query 
+ *
+ **************************************/
+	SSHORT length = 0, save_length = 0;
+	VIEWLIST *templist;
+	VIEWLIST *view_node;
+
+	templist = *view_list;
+/* Views */
+	FOR REL IN RDB$RELATIONS WITH
+	    REL.RDB$VIEW_BLR NOT MISSING AND
+	    REL.RDB$FLAGS = REL_sql
+	    SORTED BY REL.RDB$RELATION_NAME
+	   
+	    sprintf (Print_buffer, "%s", REL.RDB$RELATION_NAME);
+	
+	    view_node = (VIEWLIST *) ISQL_ALLOC ((SLONG) sizeof(VIEWLIST));
+	    if (view_node) {
+            /* remove whitespace at end of view name */
+            length = strlen (Print_buffer) - 1;
+            save_length = length + 1;
+	        while (Print_buffer[length] == ' ' && length >= 0)
+                length--;
+            Print_buffer[length + 1] = NULL;
+            if (save_length > TBLNAME_LENGTH) {
+                strncpy (view_node->szName, Print_buffer, TBLNAME_LENGTH);
+                view_node->szName[TBLNAME_LENGTH] = NULL;   
+            }   
+            else
+                strcpy (view_node->szName, Print_buffer);
+            view_node->pNext = NULL;
+            if (templist == NULL)
+                *view_list    = view_node;
+            else
+                templist->pNext = view_node;
+            templist            = view_node;    
+        }
+	    else {
+            isc_status [0] = isc_arg_gds;
+            isc_status [1] = isc_virmemexh;
+            isc_status [2] = isc_arg_end;   
+            ISQL_errmsg (isc_status);
+            return;
+        }
+    END_FOR
+	ON_ERROR ISQL_errmsg(isc_status);
+	return;
+	END_ERROR;
+}
+#endif
+
+
+static void show_charsets( SCHAR * relation_name, SCHAR * field_name)
+{
+/************************************* 
+*
+*	s h o w _ c h a r s e t s
+*
+**************************************
+*
+* Functional description
+*	Show character set and collations for V4 dbs only.
+*
+**************************************/
+	SSHORT collation, char_set_id;
+	TEXT char_sets[86];			/* CHARACTER SET <name31> COLLATE <name31> */
+	SSHORT default_char_set_id;
+
+	default_char_set_id = ISQL_get_default_char_set_id();
+
+/* If there is a relation_name, this is a real column, look up collation */
+/* in rdb$relation_fields */
+
+	if (!V33 && relation_name) {
+	    FOR RRF IN RDB$RELATION_FIELDS CROSS
+            FLD IN RDB$FIELDS
+            WITH RRF.RDB$FIELD_NAME EQ field_name AND
+            RRF.RDB$RELATION_NAME EQ relation_name AND
+            RRF.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME
+	
+            char_set_id = 0;
+            if (!FLD.RDB$CHARACTER_SET_ID.NULL)
+                char_set_id = FLD.RDB$CHARACTER_SET_ID;
+            collation = 0;
+	        if (!RRF.RDB$COLLATION_ID.NULL)
+                collation = RRF.RDB$COLLATION_ID;
+	        else if (!FLD.RDB$COLLATION_ID.NULL)
+                collation = FLD.RDB$COLLATION_ID;
+        END_FOR
+		ON_ERROR
+#ifdef DEV_BUILD
+			ib_fprintf(ib_stderr, "show_charsets(%s %s) failed\n",
+					   relation_name, field_name);
+#endif
+		END_ERROR;
+	}
+	else if (!V33) {
+	    FOR FLD IN RDB$FIELDS WITH
+	        FLD.RDB$FIELD_NAME EQ field_name
+	
+	        char_set_id = 0;
+	        collation = 0;
+	        if (!FLD.RDB$CHARACTER_SET_ID.NULL)
+	       char_set_id = FLD.RDB$CHARACTER_SET_ID;
+	        if (!FLD.RDB$COLLATION_ID.NULL)
+	       collation = FLD.RDB$COLLATION_ID;
+	    END_FOR
+		ON_ERROR
+#ifdef DEV_BUILD
+			ib_fprintf(ib_stderr, "show_charsets(NULL %s) failed\n",
+					   field_name);
+#endif
+		END_ERROR;
+	}
+
+	char_sets[0] = 0;
+	if ((char_set_id != default_char_set_id) || collation)
+		ISQL_get_character_sets(char_set_id, collation, FALSE, char_sets);
+	if (char_sets[0])
+		ISQL_printf(Out, char_sets);
+}
+
+
+static show_check( SCHAR * object)
+{
+/**************************************
+ *
+ *	s h o w _ c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show check constraints for the named object
+ *
+ **************************************/
+	int first = TRUE;
+/* Only V4 databases have this information */
+
+	if (!V4)
+		return (SKIP);
+
+	if (!*object)
+		return (ERR);
+/* Query gets the check clauses for triggers stored for check constraints */
+
+	FOR TRG IN RDB$TRIGGERS CROSS 
+	   CHK IN RDB$CHECK_CONSTRAINTS WITH
+	   TRG.RDB$TRIGGER_TYPE EQ 1 AND
+	   TRG.RDB$TRIGGER_NAME EQ CHK.RDB$TRIGGER_NAME AND
+	   CHK.RDB$TRIGGER_NAME STARTING WITH "CHECK" AND
+	   TRG.RDB$RELATION_NAME EQ object
+	   SORTED BY CHK.RDB$CONSTRAINT_NAME
+	
+	    /* Use print_blob to print the blob */
+	    first = FALSE;
+	
+	    sprintf (Print_buffer, "CONSTRAINT %s:%s  ", ISQL_blankterm(CHK.RDB$CONSTRAINT_NAME), NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+	
+	    if (!TRG.RDB$TRIGGER_SOURCE.NULL)
+            SHOW_print_metadata_text_blob (Out, &TRG.RDB$TRIGGER_SOURCE);
+	    ISQL_printf (Out, NEWLINE);
+	
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return (ERR);
+	END_ERROR;
+	if (first)
+		return (NOT_FOUND);
+	return (SKIP);
+}
+
+
+static void show_db(void)
+{
+/**************************************
+ *
+ *	s h o w _ d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show info on this database.  cache, logfiles, etc
+ *
+ **************************************/
+	SCHAR *info_buf;
+	SSHORT is_wal = FALSE;
+	USHORT translate = TRUE;
+
+/* First print the name of the database */
+
+	sprintf(Print_buffer, "Database: %s%s", Db_name, NEWLINE);
+	ISQL_printf(Out, Print_buffer);
+/* Get the owner name */
+	FOR REL IN RDB$RELATIONS WITH
+	    REL.RDB$RELATION_NAME = "RDB$DATABASE"
+	
+	    if (!REL.RDB$OWNER_NAME.NULL) {
+            sprintf (Print_buffer, "%sOwner: %s%s", TAB, REL.RDB$OWNER_NAME, NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return;
+	END_ERROR;
+
+/* Query for files */
+
+	FOR FIL IN RDB$FILES SORTED BY FIL.RDB$SHADOW_NUMBER, FIL.RDB$FILE_SEQUENCE,
+        FIL.RDB$FILE_SEQUENCE
+	
+	    /* reset nulls to zero */
+	
+	    if (FIL.RDB$FILE_FLAGS.NULL)
+            FIL.RDB$FILE_FLAGS = 0;
+        if (FIL.RDB$FILE_LENGTH.NULL)
+            FIL.RDB$FILE_LENGTH = 0;
+	    if (FIL.RDB$FILE_SEQUENCE.NULL)
+            FIL.RDB$FILE_SEQUENCE = 0;
+	    if (FIL.RDB$FILE_START.NULL)
+            FIL.RDB$FILE_START = 0;
+	/*
+	This line used to terminate the file name at the first space.  This does
+	not seem necessary, and creates problems since Windows 95 allows embeded
+	spaces in file names.
+	
+	    ISQL_blankterm (FIL.RDB$FILE_NAME);
+	*/
+	
+	    if (FIL.RDB$FILE_FLAGS == 0) {
+            sprintf (Print_buffer, " File %d: \"%s\", length %ld, start %ld%s", 
+                     FIL.RDB$FILE_SEQUENCE, FIL.RDB$FILE_NAME,
+                     FIL.RDB$FILE_LENGTH, FIL.RDB$FILE_START, NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+	    if (FIL.RDB$FILE_FLAGS & FILE_cache) {
+            sprintf (Print_buffer, " Cache: %s, length %ld%s",
+                     FIL.RDB$FILE_NAME, FIL.RDB$FILE_LENGTH, NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+	    if (FIL.RDB$FILE_FLAGS & FILE_shadow) {
+            if (FIL.RDB$FILE_SEQUENCE) {
+                sprintf (Print_buffer, "%sfile %s ", TAB, FIL.RDB$FILE_NAME);
+                ISQL_printf (Out, Print_buffer);
+            }
+            else {
+                sprintf (Print_buffer, " Shadow %d: \"%s\" ", 
+                         FIL.RDB$SHADOW_NUMBER, FIL.RDB$FILE_NAME);
+                ISQL_printf (Out, Print_buffer);
+                if (FIL.RDB$FILE_FLAGS & FILE_inactive) {
+                    sprintf (Print_buffer, "inactive ");
+                    ISQL_printf (Out, Print_buffer);
+                }
+                if (FIL.RDB$FILE_FLAGS & FILE_manual) {
+                    sprintf (Print_buffer, "manual ");
+                    ISQL_printf (Out, Print_buffer);
+                }
+                else {
+                    sprintf (Print_buffer, "auto ");
+                    ISQL_printf (Out, Print_buffer);
+                }
+                if (FIL.RDB$FILE_FLAGS & FILE_conditional) {
+                    sprintf (Print_buffer, "conditional ");
+                    ISQL_printf (Out, Print_buffer);
+                }
+            }
+            if (FIL.RDB$FILE_LENGTH) {
+                sprintf (Print_buffer, "length %ld ", FIL.RDB$FILE_LENGTH);
+                ISQL_printf (Out, Print_buffer);
+            }
+            if (FIL.RDB$FILE_START) {
+                sprintf (Print_buffer, "starting %ld", FIL.RDB$FILE_START);
+                ISQL_printf (Out, Print_buffer);
+            }
+            ISQL_printf (Out, NEWLINE);
+        }
+	
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return;
+	END_ERROR;
+
+	info_buf = (SCHAR *) ISQL_ALLOC(BUFFER_LENGTH400);
+	if (!info_buf) {
+		isc_status[0] = isc_arg_gds;
+		isc_status[1] = isc_virmemexh;
+		isc_status[2] = isc_arg_end;
+		ISQL_errmsg(isc_status);
+		return;
+	}
+
+/* First general database parameters */
+
+	SHOW_dbb_parameters(DB, info_buf, db_items, sizeof(db_items), translate);
+	ISQL_printf(Out, info_buf);
+
+/* Only v4 databases have log_files */
+
+	if (!V4) {
+		ISQL_FREE(info_buf);
+		return;
+	}
+
+	FOR LOG IN RDB$LOG_FILES SORTED BY LOG.RDB$FILE_FLAGS, LOG.RDB$FILE_SEQUENCE
+	    SORTED BY LOG.RDB$FILE_FLAGS, LOG.RDB$FILE_SEQUENCE
+	
+	    /* If there are log files, print Wal statistics */
+	
+	    is_wal = TRUE;
+	
+	    /* reset nulls to zero */
+	
+        if (LOG.RDB$FILE_FLAGS.NULL)
+            LOG.RDB$FILE_FLAGS = 0;
+	    if (LOG.RDB$FILE_LENGTH.NULL)
+            LOG.RDB$FILE_LENGTH = 0;
+	    if (LOG.RDB$FILE_SEQUENCE.NULL)
+            LOG.RDB$FILE_SEQUENCE = 0;
+	    ISQL_blankterm (LOG.RDB$FILE_NAME);
+        
+	    if (LOG.RDB$FILE_FLAGS & LOG_overflow) {
+            sprintf (Print_buffer, "overflow: %s, ", LOG.RDB$FILE_NAME);
+            ISQL_printf (Out, Print_buffer);
+        }
+	    else if (LOG.RDB$FILE_FLAGS & LOG_serial) {
+            sprintf (Print_buffer, "Logfile serial: %s, ", LOG.RDB$FILE_NAME);
+            ISQL_printf (Out, Print_buffer);
+        }
+	    else if (LOG.RDB$FILE_FLAGS & LOG_default) {
+            sprintf (Print_buffer, "Logfile default, ");
+            ISQL_printf (Out, Print_buffer);
+        }
+	    else if (LOG.RDB$FILE_FLAGS & LOG_raw) {
+            sprintf (Print_buffer, "Logfile raw: %s, %d partitions, ", LOG.RDB$FILE_NAME, LOG.RDB$FILE_PARTITIONS);
+            ISQL_printf (Out, Print_buffer);
+        }
+	    else {
+            
+            sprintf (Print_buffer, "Logfile #%d: %s, ", LOG.RDB$FILE_SEQUENCE, LOG.RDB$FILE_NAME);
+            ISQL_printf (Out, Print_buffer);
+        }
+	    sprintf (Print_buffer, "length %ld%s", LOG.RDB$FILE_LENGTH, NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    if (info_buf)
+            ISQL_FREE(info_buf);
+	    return;
+	END_ERROR;
+
+/* And now for Rich's show db parameters */
+
+	if (is_wal) {
+		SHOW_dbb_parameters(DB, info_buf, wal_items, sizeof(wal_items),
+							translate);
+		ISQL_printf(Out, info_buf);
+	}
+
+	if (V4) {
+	    FOR DBB IN RDB$DATABASE 
+            WITH DBB.RDB$CHARACTER_SET_NAME NOT MISSING
+            AND DBB.RDB$CHARACTER_SET_NAME NE " ";
+	        sprintf (Print_buffer, "Default Character set: %s%s", 
+                     DBB.RDB$CHARACTER_SET_NAME,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    if (info_buf)
+                ISQL_FREE(info_buf);
+		    return;
+		END_ERROR;
+	}
+
+	ISQL_FREE(info_buf);
+}
+
+
+static int show_dialect(void)
+{
+/**************************************
+ *
+ *	s h o w _ d i a l e c t
+ *
+ **************************************
+ *
+ *	Print out the SQL dialect information 
+ *
+ **************************************/
+
+	if (db_SQL_dialect > 0)
+		sprintf(Print_buffer, "%38s%d%s%d",
+				"Client SQL dialect is set to: ", SQL_dialect,
+				" and database SQL dialect is: ", db_SQL_dialect);
+	else if (SQL_dialect == 0)
+		sprintf(Print_buffer, "%38s%s",
+				"Client SQL dialect has not been set",
+				" and no database has been connected yet.");
+	else
+		sprintf(Print_buffer, "%38s%d%s",
+				"Client SQL dialect is set to: ", SQL_dialect,
+				". No database has been connected.");
+
+	ISQL_printf(Out, Print_buffer);
+	ISQL_printf(Out, NEWLINE);
+	return SKIP;
+}
+
+
+static int show_domains( SCHAR * domain_name)
+{
+/************************************* 
+*
+*	s h o w _ d o m a i n s
+*
+**************************************
+*
+* Functional description
+*	Show all domains or the named domain
+************************************/
+	SSHORT odd = 1, i;
+	ISC_QUAD default_source;
+	SSHORT subtype, first = TRUE;;
+
+	if (!*domain_name) {
+		/*  List all domain names in columns */
+		if (V4) {
+            FOR FLD IN RDB$FIELDS WITH
+                FLD.RDB$FIELD_NAME NOT MATCHING "RDB$+" USING "+=[0-9][0-9]* *"
+                AND FLD.RDB$SYSTEM_FLAG NE 1
+                SORTED BY FLD.RDB$FIELD_NAME
+                
+                first = FALSE;
+                sprintf (Print_buffer, "%38s%s", FLD.RDB$FIELD_NAME, (odd ? " " : NEWLINE));
+                ISQL_printf (Out, Print_buffer);
+                odd = 1 - odd;
+            END_FOR
+            ON_ERROR 
+                ISQL_errmsg(isc_status);
+		        return ERR;
+            END_ERROR;
+        }
+		else {
+			/* V3 databases will list all gdml fields as well */
+            FOR FLD IN RDB$FIELDS WITH
+                FLD.RDB$FIELD_NAME NOT MATCHING "RDB$+" USING "+=[0-9][0-9]* *"
+                AND FLD.RDB$SYSTEM_FLAG NE 1
+                SORTED BY FLD.RDB$FIELD_NAME
+	
+                if (strncmp (FLD.RDB$FIELD_NAME, "RDB$", 4) == 0 &&
+                    isdigit (FLD.RDB$FIELD_NAME[4]))
+                    continue;
+	
+                first = FALSE;
+                sprintf (Print_buffer, "%38s%s", FLD.RDB$FIELD_NAME, (odd ? " " : NEWLINE));
+                ISQL_printf (Out, Print_buffer);
+                odd = 1 - odd;
+            END_FOR
+			ON_ERROR 
+                ISQL_errmsg(isc_status);
+			    return ERR;
+			END_ERROR;
+		}
+		if (!first)
+			ISQL_printf(Out, NEWLINE);
+	}
+	else {						/* List named domain */
+
+	    FOR FLD IN RDB$FIELDS WITH
+            FLD.RDB$FIELD_NAME EQ domain_name;
+	
+            first = FALSE;
+            /* Print the name of the domain */
+            ISQL_blankterm (FLD.RDB$FIELD_NAME);
+            sprintf (Print_buffer, "%-32s", FLD.RDB$FIELD_NAME);
+            ISQL_printf (Out, Print_buffer);
+	
+            /* Array dimensions */
+            if (!FLD.RDB$DIMENSIONS.NULL) {
+                sprintf (Print_buffer, "ARRAY OF ");
+                ISQL_printf (Out, Print_buffer);
+                ISQL_array_dimensions (FLD.RDB$FIELD_NAME);
+                sprintf (Print_buffer, "%s                                ",
+                         NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+            }
+	
+            /* Look through types array */
+	
+            for (i = 0; Column_types [i].type; i++)
+	            if (FLD.RDB$FIELD_TYPE == Column_types [i].type) {
+                    BOOLEAN precision_known = FALSE;
+                    
+                    if (major_ods >= ODS_VERSION10) {
+                        /* Handle Integral subtypes NUMERIC and DECIMAL */
+                        if ((FLD.RDB$FIELD_TYPE == SMALLINT) ||
+                            (FLD.RDB$FIELD_TYPE == INTEGER) ||
+                            (FLD.RDB$FIELD_TYPE == blr_int64)) {
+                            FOR FLD1 IN RDB$FIELDS WITH
+                                FLD1.RDB$FIELD_NAME EQ domain_name;
+                                /* We are ODS >= 10 and could be any Dialect */
+                                if (!FLD1.RDB$FIELD_PRECISION.NULL) {
+                                    /* We are Dialect >=3 since FIELD_PRECISION
+                                       is non-NULL */
+                                    if (FLD1.RDB$FIELD_SUB_TYPE > 0 &&
+                                        FLD1.RDB$FIELD_SUB_TYPE <= MAX_INTSUBTYPES) {
+                                        sprintf (Print_buffer, "%s(%d, %d)", 
+                                                 Integral_subtypes [FLD1.RDB$FIELD_SUB_TYPE],
+                                                 FLD1.RDB$FIELD_PRECISION,
+                                                 -FLD1.RDB$FIELD_SCALE);
+                                        precision_known = TRUE;
+                                    }
+                                }
+                            END_FOR
+                            ON_ERROR
+                                ISQL_errmsg (isc_status);
+                                return ERR;
+                            END_ERROR;
+                        }
+                    }
+                    
+                    if (precision_known == FALSE) {
+                        /* Take a stab at numerics and decimals */
+                        if ((FLD.RDB$FIELD_TYPE == SMALLINT) && 
+                            (FLD.RDB$FIELD_SCALE < 0))
+                            sprintf (Print_buffer, 
+                                     "NUMERIC(4, %d)", 
+                                     -FLD.RDB$FIELD_SCALE);
+	
+                        else if ((FLD.RDB$FIELD_TYPE == INTEGER) && 
+                                 (FLD.RDB$FIELD_SCALE < 0))
+                            sprintf (Print_buffer, 
+                                     "NUMERIC(9, %d)", 
+                                     -FLD.RDB$FIELD_SCALE);
+                        
+                        else if ((FLD.RDB$FIELD_TYPE == DOUBLE_PRECISION) &&
+                                 (FLD.RDB$FIELD_SCALE < 0))
+                            sprintf (Print_buffer, 
+                                     "NUMERIC(15, %d)", 
+                                     -FLD.RDB$FIELD_SCALE);
+                        else
+                            sprintf (Print_buffer, "%s", Column_types [i].type_name);
+                    }
+                    
+                    ISQL_printf (Out, Print_buffer);
+                    
+	                break;
+                }
+	
+            /* Length for CHARs */
+            if ((FLD.RDB$FIELD_TYPE == FCHAR) || (FLD.RDB$FIELD_TYPE == VARCHAR)) {
+	            /* Don't test character_length in a V3 database */
+	            if (!V4) {
+	                sprintf (Print_buffer, "(%d)", FLD.RDB$FIELD_LENGTH);
+                    ISQL_printf (Out, Print_buffer);
+                }
+	            else {
+	                sprintf (Print_buffer, "(%d)", ISQL_get_field_length(FLD.RDB$FIELD_NAME));
+                    ISQL_printf (Out, Print_buffer);
+                }
+            }
+	
+            /* Blob domains */
+            if (FLD.RDB$FIELD_TYPE == BLOB) {
+	            sprintf (Print_buffer, " segment %u, subtype ", (USHORT) FLD.RDB$SEGMENT_LENGTH);
+                ISQL_printf (Out, Print_buffer);
+                subtype  = FLD.RDB$FIELD_SUB_TYPE;
+	            if (subtype >= 0 && subtype <= MAXSUBTYPES) {
+                    sprintf (Print_buffer, "%s", Sub_types [subtype]);
+                    ISQL_printf (Out, Print_buffer);
+                }
+                else {
+                    sprintf (Print_buffer, "%d", subtype);
+                    ISQL_printf (Out, Print_buffer);
+                }
+            }   
+            
+            /* Show international character sets and collations */
+            if (V4 && (FLD.RDB$FIELD_TYPE == FCHAR || 
+                       FLD.RDB$FIELD_TYPE == VARCHAR  ||
+                       FLD.RDB$FIELD_TYPE == BLOB))
+                show_charsets(NULL, FLD.RDB$FIELD_NAME);
+	
+            
+            if (V4) {
+                if (FLD.RDB$NULL_FLAG != 1) {
+                    sprintf (Print_buffer, " Nullable");
+                    ISQL_printf (Out, Print_buffer);
+                }
+                else {
+                    sprintf (Print_buffer, " Not Null");
+                    ISQL_printf (Out, Print_buffer);
+                }
+            }
+            ISQL_printf (Out, NEWLINE);
+            
+	        if (V4) {
+                ISQL_get_default_source (NULL, FLD.RDB$FIELD_NAME, 
+                                         &default_source);
+                if (default_source.gds_quad_high) {
+                    sprintf (Print_buffer, "                                ");
+                    ISQL_printf (Out, Print_buffer);
+                    SHOW_print_metadata_text_blob (Out, &default_source);
+                    ISQL_printf (Out, NEWLINE);
+                }
+            }
+	
+            if (!FLD.RDB$VALIDATION_SOURCE.NULL) {
+                sprintf (Print_buffer, "                                ");
+                ISQL_printf (Out, Print_buffer);
+	            SHOW_print_metadata_text_blob (Out, &FLD.RDB$VALIDATION_SOURCE);
+                ISQL_printf (Out, NEWLINE);
+            }
+	
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return (ERR);
+		END_ERROR;
+	}
+	if (first)
+		return (NOT_FOUND);
+	return (SKIP);
+}
+
+
+static int show_exceptions( SCHAR * object)
+{
+/**************************************
+ *
+ *	s h o w _ e x c e p t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show exceptions and their dependencies
+ *	This version fetches all the exceptions, and only prints the
+ *	one you asked for if you ask for one.  It could be optimized
+ *	like other such functions.
+ *
+ **************************************/
+	SSHORT first = TRUE, first_dep = TRUE;
+	SCHAR type[20];
+
+	FOR EXC IN RDB$EXCEPTIONS 
+	    SORTED BY EXC.RDB$EXCEPTION_NAME
+	
+	    ISQL_blankterm (EXC.RDB$EXCEPTION_NAME);
+	    ISQL_blankterm (object);
+	    /* List all objects if none specified, or just the named exception */
+	
+	    if (!*object || !strcmp (EXC.RDB$EXCEPTION_NAME, object)) {
+            if (first) {
+                sprintf (Print_buffer, "Exception Name                  Used by, Type%s=============================== =============================================%s", NEWLINE, NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+            }
+            first = FALSE;
+	
+            sprintf (Print_buffer, "%-31s ", EXC.RDB$EXCEPTION_NAME);
+            ISQL_printf (Out, Print_buffer);
+	
+            /* Look up dependent objects --procedures and triggers */
+            first_dep = TRUE;
+            FOR DEP IN RDB$DEPENDENCIES WITH
+                DEP.RDB$DEPENDED_ON_TYPE = 7 AND
+                DEP.RDB$DEPENDED_ON_NAME EQ EXC.RDB$EXCEPTION_NAME
+                SORTED BY DEP.RDB$DEPENDENT_TYPE, DEP.RDB$DEPENDENT_NAME
+                
+                if (!first_dep) {
+                    sprintf (Print_buffer, "                                ");
+                    ISQL_printf (Out, Print_buffer);
+                }
+                first_dep = FALSE;
+            
+                ISQL_blankterm (DEP.RDB$DEPENDENT_NAME);
+                
+                strcpy (type, "Unknown");
+                if (DEP.RDB$DEPENDENT_TYPE == 2)
+                    strcpy (type, "Trigger");
+                if (DEP.RDB$DEPENDENT_TYPE == 5)
+                    strcpy (type, "Stored procedure");
+                
+                sprintf (Print_buffer, "%s, %s%s", 
+                         DEP.RDB$DEPENDENT_NAME, 
+                         type,
+                         NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+            END_FOR
+            ON_ERROR
+                ISQL_errmsg (isc_status);
+                return ERR;
+            END_ERROR;
+	
+            sprintf (Print_buffer, "%s  %s%s", (first_dep ? NEWLINE : ""), 
+                     EXC.RDB$MESSAGE,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+	    if (!first)
+	        ISQL_printf (Out, NEWLINE);
+    END_FOR
+	ON_ERROR 
+        if (!V33) {
+            ISQL_errmsg(isc_status);
+            return ERR;
+        }
+	END_ERROR;
+	if (first)
+		return (NOT_FOUND);
+	return (SKIP);
+}
+
+
+static int show_filters( SCHAR * object)
+{
+/**************************************
+ *
+ *	s h o w _ f i l t e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show blob filters in general or  for the named filters
+ *
+ **************************************/
+	SSHORT odd = 1, first = TRUE;
+
+
+/* Show all functions */
+	if (!*object) {
+	    FOR FIL IN RDB$FILTERS
+	   SORTED BY FIL.RDB$FUNCTION_NAME
+	
+	   first = FALSE;
+	   ISQL_blankterm (FIL.RDB$FUNCTION_NAME);
+	   sprintf (Print_buffer, "%-38s%s", FIL.RDB$FUNCTION_NAME, (odd ? " " : NEWLINE));
+	   ISQL_printf (Out, Print_buffer);
+	   odd = 1 - odd;
+	    END_FOR
+		ON_ERROR ISQL_errmsg(isc_status);
+		return ERR;
+		END_ERROR;
+		if (!first) {
+			ISQL_printf(Out, NEWLINE);
+			return (SKIP);
+		}
+		else
+			return NOT_FOUND;
+	}
+
+/* We have a filter name, so expand on it */
+	FOR FIL IN RDB$FILTERS WITH
+	   FIL.RDB$FUNCTION_NAME EQ object
+	
+	   first = FALSE;
+	
+       ISQL_blankterm (FIL.RDB$FUNCTION_NAME);
+       ISQL_blankterm (FIL.RDB$MODULE_NAME);
+	   ISQL_blankterm (FIL.RDB$ENTRYPOINT);
+       
+       sprintf (Print_buffer, "BLOB Filter: %s %s%sInput subtype: %d Output subtype: %d%s",
+                FIL.RDB$FUNCTION_NAME, NEWLINE, 
+                TAB, FIL.RDB$INPUT_SUB_TYPE, FIL.RDB$OUTPUT_SUB_TYPE, NEWLINE);
+       ISQL_printf (Out, Print_buffer);
+       sprintf (Print_buffer, "%sFilter library is %s%s%sEntry point is %s%s%s", 
+                TAB, FIL.RDB$MODULE_NAME, NEWLINE,
+                TAB, FIL.RDB$ENTRYPOINT, NEWLINE, 
+                NEWLINE);
+       ISQL_printf (Out, Print_buffer);
+       
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return ERR;
+	END_ERROR;
+
+	if (first)
+		return (NOT_FOUND);
+	return (SKIP);
+}
+
+
+static int show_functions( SCHAR * object)
+{
+/**************************************
+ *
+ *	s h o w _ f u n c t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show external functions in general or  for the named function
+ *
+ **************************************/
+	SSHORT first = TRUE;
+	SSHORT odd = 1;
+	SSHORT i;
+
+/* Show all functions */
+	if (!*object)
+	{
+	    FOR FUN IN RDB$FUNCTIONS 
+            SORTED BY FUN.RDB$FUNCTION_NAME
+	
+            first = FALSE;
+            ISQL_blankterm (FUN.RDB$FUNCTION_NAME);
+            sprintf (Print_buffer, "%-38s%s", FUN.RDB$FUNCTION_NAME, (odd ? " " : NEWLINE));
+            ISQL_printf (Out, Print_buffer);
+            odd = 1 - odd;
+        END_FOR
+        ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return ERR;
+		END_ERROR;
+		if (!first)
+		{
+			ISQL_printf(Out, NEWLINE);
+			return (SKIP);
+		}
+		else
+			return NOT_FOUND;
+	}
+	FOR FUN IN RDB$FUNCTIONS CROSS
+        FNA IN RDB$FUNCTION_ARGUMENTS WITH
+        FUN.RDB$FUNCTION_NAME EQ FNA.RDB$FUNCTION_NAME AND
+        FUN.RDB$FUNCTION_NAME EQ object
+        SORTED BY FNA.RDB$ARGUMENT_POSITION
+	
+        ISQL_blankterm (FUN.RDB$FUNCTION_NAME);
+        ISQL_blankterm (FUN.RDB$MODULE_NAME);
+        ISQL_blankterm (FUN.RDB$ENTRYPOINT);
+        if (first) {
+            sprintf (Print_buffer, "%sFunction %s:%s", 
+                     NEWLINE,
+                     FUN.RDB$FUNCTION_NAME,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+            sprintf (Print_buffer, "Function library is %s%s", 
+	            FUN.RDB$MODULE_NAME,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+            sprintf (Print_buffer, "Entry point is %s%s", 
+                     FUN.RDB$ENTRYPOINT,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+        first = FALSE;
+        if (FUN.RDB$RETURN_ARGUMENT == FNA.RDB$ARGUMENT_POSITION)
+		{
+            sprintf (Print_buffer, "Returns %s %s ", 
+	                 ((SSHORT) abs(FNA.RDB$MECHANISM) == FUN_reference ? 
+                      "BY REFERENCE " :
+                      (FNA.RDB$FIELD_TYPE == BLOB ?
+                        "BY DESCRIPTOR " :
+                        "BY VALUE ")), 
+	                 (FNA.RDB$MECHANISM < 0 ? "FREE_IT " : ""));
+            ISQL_printf (Out, Print_buffer);
+        }
+        else
+		{
+            sprintf (Print_buffer, "Argument %d: ", FNA.RDB$ARGUMENT_POSITION);
+            ISQL_printf (Out, Print_buffer);
+        }
+        for (i = 0; Column_types [i].type; i++)
+		{
+            if (FNA.RDB$FIELD_TYPE == Column_types [i].type)
+			{
+                BOOLEAN precision_known = FALSE;
+	       
+                /* Handle Integral subtypes NUMERIC and DECIMAL */
+                if ( (major_ods >= ODS_VERSION10) &&
+                     ((FNA.RDB$FIELD_TYPE == SMALLINT) ||
+                      (FNA.RDB$FIELD_TYPE == INTEGER) ||
+                      (FNA.RDB$FIELD_TYPE == blr_int64)) )
+				{
+                    FOR FNA1 IN RDB$FUNCTION_ARGUMENTS WITH
+                        FNA1.RDB$FUNCTION_NAME = FNA.RDB$FUNCTION_NAME AND
+                        FNA1.RDB$ARGUMENT_POSITION = FNA.RDB$ARGUMENT_POSITION
+                        
+                        /* We are ODS >= 10 */
+                        if (!FNA1.RDB$FIELD_PRECISION.NULL)
+						{
+                            /* We are Dialect >=3 since FIELD_PRECISION is
+                               non-NULL */
+                            if (FNA1.RDB$FIELD_SUB_TYPE > 0 &&
+                                FNA1.RDB$FIELD_SUB_TYPE <= MAX_INTSUBTYPES)
+							{
+                                sprintf (Print_buffer, "%s(%d, %d)", 
+                                         Integral_subtypes [FNA1.RDB$FIELD_SUB_TYPE],
+                                         FNA1.RDB$FIELD_PRECISION,
+                                         -FNA1.RDB$FIELD_SCALE);
+                                precision_known = TRUE;
+                            }
+                        }
+                    END_FOR
+	               ON_ERROR
+	                   ISQL_errmsg (isc_status);
+	                   return ERR;
+	               END_ERROR;
+                }
+	
+                if (precision_known == FALSE)
+				{
+                    /* Take a stab at numerics and decimals */
+                    if ((FNA.RDB$FIELD_TYPE == SMALLINT) && (FNA.RDB$FIELD_SCALE < 0))
+					{
+                        sprintf (Print_buffer, "NUMERIC(4, %d)", -FNA.RDB$FIELD_SCALE);
+                    }
+                    else if ((FNA.RDB$FIELD_TYPE == INTEGER) && (FNA.RDB$FIELD_SCALE < 0))
+					{
+                        sprintf (Print_buffer, "NUMERIC(9, %d)", -FNA.RDB$FIELD_SCALE);
+                    }
+                    else if ((FNA.RDB$FIELD_TYPE == DOUBLE_PRECISION) && 
+                             (FNA.RDB$FIELD_SCALE < 0))
+					{
+                        sprintf (Print_buffer, "NUMERIC(15, %d)", -FNA.RDB$FIELD_SCALE);
+                    }
+                    else
+					{
+                        sprintf (Print_buffer, "%s", Column_types [i].type_name);
+                    }
+                }
+                ISQL_printf (Out, Print_buffer);
+                break;
+            }
+            
+        }
+        /* Print length where appropriate */
+        if ((FNA.RDB$FIELD_TYPE == FCHAR) || (FNA.RDB$FIELD_TYPE == VARCHAR)
+            || (FNA.RDB$FIELD_TYPE == CSTRING))
+		{
+            if (V4)
+			{
+                FOR V4FNA IN RDB$FUNCTION_ARGUMENTS CROSS
+                    CHARSET IN RDB$CHARACTER_SETS OVER RDB$CHARACTER_SET_ID
+                    WITH V4FNA.RDB$FUNCTION_NAME EQ FNA.RDB$FUNCTION_NAME AND
+                    V4FNA.RDB$ARGUMENT_POSITION EQ FNA.RDB$ARGUMENT_POSITION
+                    
+                    ISQL_blankterm (CHARSET.RDB$CHARACTER_SET_NAME);
+                    sprintf (Print_buffer, "(%d) CHARACTER SET %s", 
+                             (FNA.RDB$FIELD_LENGTH / MAX (1,CHARSET.RDB$BYTES_PER_CHARACTER)),
+                             CHARSET.RDB$CHARACTER_SET_NAME);
+                    ISQL_printf (Out, Print_buffer);
+	
+                END_FOR
+	            ON_ERROR
+                    ISQL_errmsg (isc_status);
+	                return ERR;
+                END_ERROR;
+            }
+            else
+			{ /* V3 - Note: This is the BYTE length, not the CHAR length */
+                sprintf (Print_buffer, "(%d)", FNA.RDB$FIELD_LENGTH);
+                ISQL_printf (Out, Print_buffer);
+            }
+        }
+	
+        ISQL_printf (Out, NEWLINE);
+        
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return ERR;
+	END_ERROR;
+	if (first)
+		return (NOT_FOUND);
+	return (SKIP);
+}
+
+
+static int show_generators( SCHAR * object)
+{
+/**************************************
+ *
+ *	s h o w _ g e n e r a t o r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show generators including the next number they return
+ *      We do this by selecting the GEN_ID of each one,
+ *         incrementing by 0 to not change the current value.
+ *
+ **************************************/
+	SSHORT indicator, first = TRUE;
+	XSQLDA sqlda;
+	SINT64 genid64 = 0;
+	SLONG genid = 0;
+	isc_stmt_handle stmt = 0;
+	TEXT query[100], gen_name[MAX_NAME_LENGTH * 2], *p1, *q1;
+
+/* Show all generators  or named generator */
+	FOR GEN IN RDB$GENERATORS 
+	    SORTED BY GEN.RDB$GENERATOR_NAME
+	
+	    ISQL_blankterm (GEN.RDB$GENERATOR_NAME);
+	
+	    if ((!*object && GEN.RDB$SYSTEM_FLAG.NULL) || 
+            (!strcmp (GEN.RDB$GENERATOR_NAME, object))) {
+            
+            /* Get the current id for each generator */
+	
+            if (strchr (GEN.RDB$GENERATOR_NAME, DBL_QUOTE)) {
+                q1 = gen_name;
+                *q1++ = DBL_QUOTE;
+                for (p1 = GEN.RDB$GENERATOR_NAME; *p1; p1++) {
+                    *q1 = *p1;
+                    q1++;
+                    if (*p1 == DBL_QUOTE) {
+                        *q1 = DBL_QUOTE;
+                        q1++;
+                    }
+                }
+                *q1++ = DBL_QUOTE;
+                *q1 = '\0';
+            }
+            else {
+                if (SQL_dialect == SQL_DIALECT_V6) {
+                    q1 = gen_name;
+                    *q1++ = DBL_QUOTE;
+                    for (p1 = GEN.RDB$GENERATOR_NAME; *p1; p1++) {
+                        *q1 = *p1;
+                        q1++;
+                    }
+                    *q1++ = DBL_QUOTE;
+                    *q1 = '\0';
+                }
+                else
+                    strcpy(gen_name, GEN.RDB$GENERATOR_NAME);
+            }
+	
+            sprintf (query, "SELECT GEN_ID(%s, 0) FROM RDB$DATABASE", gen_name);
+	
+            isc_dsql_allocate_statement (isc_status, &DB, &stmt);
+            sqlda.sqln = 1;
+            sqlda.version = 1;
+	   
+            /* If the user has set his client dialect to 1, we take that to
+               mean that he wants to see just the lower 32 bits of the
+               generator, as in V5.  Otherwise, we show him the whole 64-bit
+               value.
+            */
+            if (isc_dsql_prepare (isc_status, &gds__trans, &stmt, 0, query, 
+                                  SQL_dialect, &sqlda)) {
+                ISQL_errmsg (isc_status);
+                continue;
+            };
+            if (SQL_dialect >= SQL_DIALECT_V6_TRANSITION)
+                sqlda.sqlvar[0].sqldata = (SCHAR*) &genid64;
+            else
+                sqlda.sqlvar[0].sqldata = (SCHAR*) &genid;
+            sqlda.sqlvar[0].sqlind = &indicator;
+            
+            /* Singleton select needs no fetch */
+            if (isc_dsql_execute2 (isc_status, &gds__trans, &stmt, 
+                                   SQL_dialect, NULL, &sqlda))
+			{
+                ISQL_errmsg (isc_status);
+            }
+            else
+			{
+                first = FALSE;
+                if( SQL_dialect >= SQL_DIALECT_V6_TRANSITION)
+				{
+                    sprintf (Print_buffer,
+                             "Generator %s, current value is %" QUADFORMAT "d%s", 
+                             GEN.RDB$GENERATOR_NAME, 
+                             genid64,
+                             NEWLINE);
+				}
+                else
+				{
+                    sprintf (Print_buffer, "Generator %s, current value is %ld%s", 
+                             GEN.RDB$GENERATOR_NAME, 
+                             genid,
+                             NEWLINE);
+				}
+                ISQL_printf (Out, Print_buffer);
+            }
+            if (isc_dsql_free_statement (isc_status, &stmt, DSQL_drop))
+                ISQL_errmsg (isc_status);
+        }
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return ERR;
+	END_ERROR;
+	if (first)
+		return (NOT_FOUND);
+	return SKIP;
+}
+
+
+static void show_index(SCHAR * relation_name,
+					   SCHAR * index_name,
+					   SSHORT unique_flag, SSHORT index_type, SSHORT inactive)
+{
+/**************************************
+ *
+ *	s h o w _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show an index.
+ *
+ *	relation_name -- Name of table to investigate
+ *
+ **************************************/
+	SCHAR *collist;
+
+/* Strip trailing blanks */
+
+	ISQL_blankterm(relation_name);
+	ISQL_blankterm(index_name);
+
+	sprintf(Print_buffer, "%s%s%s INDEX ON %s", index_name,
+			(unique_flag ? " UNIQUE" : ""),
+			(index_type == 1 ? " DESCENDING" : ""), relation_name);
+	ISQL_printf(Out, Print_buffer);
+
+/* Get column names */
+
+	collist = (SCHAR *) ISQL_ALLOC(BUFFER_LENGTH512);
+	if (!collist) {
+		isc_status[0] = isc_arg_gds;
+		isc_status[1] = isc_virmemexh;
+		isc_status[2] = isc_arg_end;
+		ISQL_errmsg(isc_status);
+		return;
+	}
+
+	if (ISQL_get_index_segments(collist, index_name, FALSE)) {
+		sprintf(Print_buffer, "(%s) %s%s", collist,
+				(inactive ? "(inactive)" : ""), NEWLINE);
+		ISQL_printf(Out, Print_buffer);
+	}
+
+	ISQL_FREE(collist);
+}
+
+
+static int show_indices( SCHAR ** cmd)
+{
+/**************************************
+ *
+ *	s h o w _ i n d i c e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	shows indices for a given table name or index name or all tables
+ *
+ *	Use a static SQL query to get the info and print it.
+ *
+ *	relation_name -- Name of table to investigate
+ *
+ **************************************/
+	SCHAR *name;
+	SSHORT first = TRUE;
+
+/* The names stored in the database are all upper case */
+
+	name = cmd[2];
+
+	if (*name) {
+	    FOR IDX1 IN RDB$INDICES WITH
+            IDX1.RDB$RELATION_NAME EQ name OR 
+            IDX1.RDB$INDEX_NAME EQ name
+            SORTED BY IDX1.RDB$INDEX_NAME
+            
+            if (IDX1.RDB$INDEX_INACTIVE.NULL)
+                IDX1.RDB$INDEX_INACTIVE = 0;
+        
+            show_index (IDX1.RDB$RELATION_NAME, IDX1.RDB$INDEX_NAME,
+                        IDX1.RDB$UNIQUE_FLAG, IDX1.RDB$INDEX_TYPE, IDX1.RDB$INDEX_INACTIVE);
+	
+#ifdef EXPRESSION_INDICES
+            if (!IDX1.RDB$EXPRESSION_BLR.NULL) {
+                sprintf (Print_buffer, " COMPUTED BY ");
+                ISQL_printf (Out, Print_buffer);
+                if (!IDX1.RDB$EXPRESSION_SOURCE.NULL)
+                    SHOW_print_metadata_text_blob (Out, &IDX1.RDB$EXPRESSION_SOURCE);
+                ISQL_printf (Out, NEWLINE);
+            }
+#endif
+            
+            first = FALSE;
+        END_FOR
+            ON_ERROR ISQL_errmsg(isc_status);
+            return ERR;
+		END_ERROR;
+		if (first)
+			return (NOT_FOUND);
+		return (SKIP);
+
+	}
+	else
+	{
+	    FOR IDX2 IN RDB$INDICES CROSS
+            REL IN RDB$RELATIONS OVER RDB$RELATION_NAME WITH 
+            REL.RDB$SYSTEM_FLAG NE 1 OR 
+            REL.RDB$SYSTEM_FLAG MISSING 
+            SORTED BY IDX2.RDB$RELATION_NAME, IDX2.RDB$INDEX_NAME
+	
+            first = FALSE;
+	
+            show_index (IDX2.RDB$RELATION_NAME, IDX2.RDB$INDEX_NAME,
+                        IDX2.RDB$UNIQUE_FLAG, IDX2.RDB$INDEX_TYPE, IDX2.RDB$INDEX_INACTIVE);
+	
+#ifdef EXPRESSION_INDICES
+            if (!IDX2.RDB$EXPRESSION_BLR.NULL) {
+                sprintf (Print_buffer, " COMPUTED BY ");
+                ISQL_printf (Out, Print_buffer);
+                if (!IDX2.RDB$EXPRESSION_SOURCE.NULL)
+                    SHOW_print_metadata_text_blob (Out, &IDX2.RDB$EXPRESSION_SOURCE);
+                ISQL_printf (Out, NEWLINE);
+            }
+#endif
+	
+        END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return (ERR);
+		END_ERROR;
+		if (first)
+			return (NOT_FOUND);
+		return (SKIP);
+	}
+
+}
+
+
+static int show_proc( SCHAR * procname)
+{
+/**************************************
+ *
+ *	s h o w _ p r o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	shows text of a stored procedure given a name.
+ *	or lists procedures if no argument.
+ *
+ *	procname -- Name of procedure to investigate
+ *
+ **************************************/
+	SCHAR type_name[33], lenstring[33];
+	SSHORT i;
+	SSHORT first_proc = TRUE, first = TRUE;
+
+/* If this is not a V4 database, just return */
+
+	if (!V4)
+		return (SKIP);
+
+/* If no procedure name was given, just list the procedures */
+
+	if (!strlen(procname)) {
+		/* This query gets the procedure name  the next query
+		   **   gets all the dependencies if any 
+		 */
+
+	    FOR PRC IN RDB$PROCEDURES
+            SORTED BY PRC.RDB$PROCEDURE_NAME
+	
+            if (first_proc) {
+                sprintf (Print_buffer, 
+                         "Procedure Name                    Dependency, Type%s", NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+                sprintf (Print_buffer, 
+                         "================================= ======================================%s", NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+                first_proc = FALSE;
+            }
+	
+        /* Strip trailing blanks */
+        
+            ISQL_blankterm (PRC.RDB$PROCEDURE_NAME);
+            sprintf (Print_buffer, "%-34s", PRC.RDB$PROCEDURE_NAME);
+            ISQL_printf (Out, Print_buffer);
+            
+            first = TRUE;
+            FOR DEP IN RDB$DEPENDENCIES WITH
+                PRC.RDB$PROCEDURE_NAME EQ DEP.RDB$DEPENDENT_NAME
+                REDUCED TO DEP.RDB$DEPENDED_ON_TYPE, DEP.RDB$DEPENDED_ON_NAME
+                SORTED BY DEP.RDB$DEPENDED_ON_TYPE, DEP.RDB$DEPENDED_ON_NAME
+                
+                ISQL_blankterm (DEP.RDB$DEPENDED_ON_NAME);
+            /* Get column type name to print */
+                if (!first) {
+                    sprintf (Print_buffer, "%s%34s", NEWLINE, "");
+                    ISQL_printf (Out, Print_buffer);
+                }
+                first = FALSE;
+                sprintf (Print_buffer, "%s, %s", DEP.RDB$DEPENDED_ON_NAME, 
+                         Object_types[DEP.RDB$DEPENDED_ON_TYPE]);
+                ISQL_printf (Out, Print_buffer);
+            END_FOR
+	        ON_ERROR
+	            ISQL_errmsg (isc_status);
+	            return (ERR);
+	        END_ERROR;
+            ISQL_printf (Out, NEWLINE);
+	
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return (ERR);
+		END_ERROR;
+		if (first_proc)
+			return NOT_FOUND;
+		return (SKIP);
+	}
+    
+/* A procedure was named, so print all the info on that procedure */
+
+
+	FOR PRC IN RDB$PROCEDURES WITH
+        PRC.RDB$PROCEDURE_NAME EQ procname
+        first = FALSE;
+	
+        sprintf (Print_buffer, "Procedure text:%s", NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+	    sprintf (Print_buffer, "=============================================================================%s", NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+	    if (!PRC.RDB$PROCEDURE_SOURCE.NULL)
+            SHOW_print_metadata_text_blob (Out, &PRC.RDB$PROCEDURE_SOURCE);
+	    sprintf (Print_buffer, "%s=============================================================================%s", NEWLINE, NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+	    sprintf (Print_buffer, "Parameters:%s", NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+	   
+	    FOR PRM IN RDB$PROCEDURE_PARAMETERS CROSS
+            FLD IN RDB$FIELDS WITH
+            PRC.RDB$PROCEDURE_NAME EQ PRM.RDB$PROCEDURE_NAME AND
+            PRM.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME
+            SORTED BY PRM.RDB$PARAMETER_TYPE, PRM.RDB$PARAMETER_NUMBER
+	
+            ISQL_blankterm (PRM.RDB$PARAMETER_NAME);
+            /* Get column type name to print */
+	        /* Look through types array */
+        
+            for (i = 0; Column_types [i].type; i++)
+                if (FLD.RDB$FIELD_TYPE == Column_types [i].type) {
+                    BOOLEAN precision_known = FALSE;
+                    
+                    if (major_ods >= ODS_VERSION10) {
+                        /* Handle Integral subtypes NUMERIC and DECIMAL */
+                        
+                        if ((FLD.RDB$FIELD_TYPE == SMALLINT) ||
+                            (FLD.RDB$FIELD_TYPE == INTEGER) ||
+                            (FLD.RDB$FIELD_TYPE == blr_int64)) {
+                            FOR FLD1 IN RDB$FIELDS
+                                WITH FLD1.RDB$FIELD_NAME EQ FLD.RDB$FIELD_NAME
+                                /* We are ODS >= 10 and could be any Dialect */
+                                if (!FLD1.RDB$FIELD_PRECISION.NULL) {
+                                    /* We are Dialect >=3 since FIELD_PRECISION is
+                                       non-NULL */
+                                    if (FLD1.RDB$FIELD_SUB_TYPE > 0 &&
+                                        FLD1.RDB$FIELD_SUB_TYPE <= MAX_INTSUBTYPES) {
+                                        sprintf (type_name, "%s(%d, %d)", 
+                                                 Integral_subtypes [FLD1.RDB$FIELD_SUB_TYPE],
+                                                 FLD1.RDB$FIELD_PRECISION,
+                                                 -FLD1.RDB$FIELD_SCALE);
+                                        precision_known = TRUE;
+                                    }
+                                }
+                            END_FOR
+                            ON_ERROR
+                                ISQL_errmsg (isc_status);
+	                            return ERR;
+                            END_ERROR;
+                        } /* if field_type ... */
+                    } /* if major_ods ... */
+                    
+                    if (precision_known == FALSE) {
+                        /* Take a stab at numerics and decimals */
+                        if ((FLD.RDB$FIELD_TYPE == SMALLINT) && (FLD.RDB$FIELD_SCALE < 0))
+                            sprintf (type_name, "NUMERIC(4, %d)", -FLD.RDB$FIELD_SCALE);
+                        else if ((FLD.RDB$FIELD_TYPE == INTEGER) && (FLD.RDB$FIELD_SCALE < 0))
+                            sprintf (type_name, "NUMERIC(9, %d)", -FLD.RDB$FIELD_SCALE);
+                        else if ((FLD.RDB$FIELD_TYPE == DOUBLE_PRECISION) &&
+                                 (FLD.RDB$FIELD_SCALE < 0))
+                            sprintf (type_name, "NUMERIC(15, %d)", -FLD.RDB$FIELD_SCALE);
+                        else
+                            strcpy(type_name, Column_types [i].type_name);
+                    }
+                    break;
+                }
+            /* Use RDB$CHARACTER_LENGTH instead of RDB$FIELD_LENGTH
+               FSG 19.Nov.2000
+            */     
+            if (((FLD.RDB$FIELD_TYPE == FCHAR) || (FLD.RDB$FIELD_TYPE == VARCHAR)) &&
+                !FLD.RDB$CHARACTER_LENGTH.NULL)
+                sprintf (lenstring, "(%d)", FLD.RDB$CHARACTER_LENGTH);
+            else
+                sprintf (lenstring, "");
+            
+            sprintf (Print_buffer, "%-33s %s %s%s ", PRM.RDB$PARAMETER_NAME,
+                     (PRM.RDB$PARAMETER_TYPE ? "OUTPUT" : "INPUT"),
+                     type_name, lenstring);
+            ISQL_printf (Out, Print_buffer);
+            
+            /* Show international character sets and collations */
+            
+            if (V4 && (FLD.RDB$FIELD_TYPE == FCHAR ||
+                       FLD.RDB$FIELD_TYPE == VARCHAR  ||
+                       FLD.RDB$FIELD_TYPE == BLOB))
+                show_charsets(NULL, FLD.RDB$FIELD_NAME);
+            ISQL_printf (Out, NEWLINE);
+            
+	    END_FOR
+        ON_ERROR
+	       ISQL_errmsg (isc_status);
+	       return ERR;
+	    END_ERROR;
+	
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return ERR;
+	END_ERROR;
+	if (first)
+		return (NOT_FOUND);
+	return (SKIP);
+}
+
+
+static int show_role( SCHAR * object)
+{
+	SCHAR role_name[BUFFER_LENGTH128];
+	SCHAR user_string[44];
+	SSHORT first = TRUE;
+	SSHORT skip = FALSE;
+	SSHORT odd = 1;
+
+	if (object == NULL) {		/* show role with no parameters, show all roles */
+/**************************************
+ *	Print the names of all roles from
+ *	RDB$ROLES.  We use a dynamic query 
+ *	If there is any roles, then returns SKIP.
+ *	Otherwise returns NOT_FOUND.
+ **************************************/
+
+        FOR X IN RDB$ROLES WITH
+            X.RDB$ROLE_NAME NOT MISSING
+            SORTED BY X.RDB$ROLE_NAME
+            
+            first = FALSE;
+	        sprintf (Print_buffer, "%38s%s", X.RDB$ROLE_NAME, (odd ? " " : NEWLINE));
+            ISQL_printf (Out, Print_buffer);
+            odd = 1 - odd;
+            
+        END_FOR
+        ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return ERR;
+        END_ERROR;
+
+        if (!first)
+		{
+            ISQL_printf(Out, NEWLINE);
+            return SKIP;
+        }
+        else
+		{
+            return NOT_FOUND;
+		}
+	}
+	else
+	{
+		/* show role with role supplied, display users granted this role */
+        FOR FIRST 1 R IN RDB$ROLES WITH R.RDB$ROLE_NAME EQ object;
+            first = FALSE;
+	
+            FOR PRV IN RDB$USER_PRIVILEGES WITH
+                PRV.RDB$OBJECT_TYPE   EQ obj_sql_role AND
+                PRV.RDB$USER_TYPE     EQ obj_user     AND
+                PRV.RDB$RELATION_NAME EQ object       AND
+                PRV.RDB$PRIVILEGE     EQ 'M'
+                SORTED BY  PRV.RDB$USER
+	
+                ISQL_blankterm (PRV.RDB$RELATION_NAME);
+                strcpy (role_name, PRV.RDB$RELATION_NAME);
+                if (db_SQL_dialect > SQL_DIALECT_V6_TRANSITION)
+                    ISQL_copy_SQL_id (role_name, &SQL_identifier, DBL_QUOTE);
+                else
+                    strcpy (SQL_identifier, role_name);
+                
+                ISQL_blankterm (PRV.RDB$USER);
+                strcpy (user_string, PRV.RDB$USER);
+                sprintf(Print_buffer, "%s\n", user_string);
+                
+                first = FALSE;
+                ISQL_printf (Out, Print_buffer);
+                
+            END_FOR
+	        ON_ERROR
+                ISQL_errmsg (isc_status);
+	            return (ERR);
+	        END_ERROR;
+	
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return (ERR);
+		END_ERROR;
+
+		if (first)
+			return (NOT_FOUND);
+        
+		return (SKIP);
+	}
+}
+
+
+static int show_table( SCHAR * relation_name)
+{
+/**************************************
+ *
+ *	s h o w _ t a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	shows columns, types, info for a given table name
+ *	and text of views.
+ *	Use a SQL query to get the info and print it.
+ *	This also shows integrity constraints and triggers 
+ *
+ *	relation_name -- Name of table to investigate
+ *
+ **************************************/
+	SSHORT i, subtype;
+	ISC_QUAD default_source;
+	SCHAR *collist;
+	SSHORT first = TRUE;
+
+	collist = NULL;
+
+/* Query to obtain relation information */
+
+	FOR REL IN RDB$RELATIONS
+	    WITH REL.RDB$RELATION_NAME EQ relation_name
+	    if (first) {
+            if (!REL.RDB$EXTERNAL_FILE.NULL) {
+                sprintf (Print_buffer, "External file: %s\n", REL.RDB$EXTERNAL_FILE);
+                ISQL_printf (Out, Print_buffer);
+            }
+        }
+        first = FALSE;
+    END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return ERR;
+	END_ERROR;
+
+	if (first)
+		return (NOT_FOUND);
+
+/* 
+*FOR RFR IN RDB$RELATION_FIELDS CROSS
+	REL IN RDB$RELATIONS CROSS
+	FLD IN RDB$FIELDS WITH
+	RFR.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME AND
+	RFR.RDB$RELATION_NAME EQ relation_name AND
+	REL.RDB$RELATION_NAME EQ RFR.RDB$RELATION_NAME
+	SORTED BY RFR.RDB$FIELD_POSITION, RFR.RDB$FIELD_NAME
+*/
+
+	FOR RFR IN RDB$RELATION_FIELDS CROSS
+        FLD IN RDB$FIELDS WITH
+        RFR.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME AND
+        RFR.RDB$RELATION_NAME EQ relation_name 
+        SORTED BY RFR.RDB$FIELD_POSITION, RFR.RDB$FIELD_NAME
+        
+	    /* Get length of colname to align columns for printing */
+        
+	    ISQL_blankterm (RFR.RDB$FIELD_NAME);
+	
+	    /* Print the column name in first column */
+	
+        sprintf (Print_buffer, "%-32s", RFR.RDB$FIELD_NAME);  
+        ISQL_printf (Out, Print_buffer);
+	
+	    /* Decide if this is a user-created domain */
+	    if (!((strncmp (FLD.RDB$FIELD_NAME, "RDB$", 4) == 0) && 
+              isdigit (FLD.RDB$FIELD_NAME[4]) &&
+              FLD.RDB$SYSTEM_FLAG != 1)) {
+            ISQL_blankterm (FLD.RDB$FIELD_NAME);
+            sprintf (Print_buffer, "(%s) ", FLD.RDB$FIELD_NAME);
+            ISQL_printf (Out, Print_buffer);
+        }
+	
+	    /* Detect the existence of arrays */
+        
+	    if (!FLD.RDB$DIMENSIONS.NULL) {
+            sprintf (Print_buffer, "ARRAY OF ");
+            ISQL_printf (Out, Print_buffer);
+	        ISQL_array_dimensions (FLD.RDB$FIELD_NAME);
+            sprintf (Print_buffer, "%s                                ", NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+	    /* If a computed field, show the source and exit */
+	    /* Note that view columns which are computed are dealt with later.*/
+	    if (!FLD.RDB$COMPUTED_BLR.NULL) {
+            sprintf (Print_buffer, "Computed by: ");
+            ISQL_printf (Out, Print_buffer);
+            if (!FLD.RDB$COMPUTED_SOURCE.NULL)
+                SHOW_print_metadata_text_blob (Out, &FLD.RDB$COMPUTED_SOURCE);
+            ISQL_printf (Out, NEWLINE);
+            continue;
+        }
+        
+        
+	    /* Look through types array */
+        
+	    for (i = 0; Column_types [i].type; i++)
+            if (FLD.RDB$FIELD_TYPE == Column_types [i].type) {
+                BOOLEAN precision_known = FALSE;
+	
+                if (major_ods >= ODS_VERSION10) {
+                    /* Handle Integral subtypes NUMERIC and DECIMAL */
+                    if ((FLD.RDB$FIELD_TYPE == SMALLINT) ||
+                        (FLD.RDB$FIELD_TYPE == INTEGER) ||
+                        (FLD.RDB$FIELD_TYPE == blr_int64)) { 
+                        FOR FLD1 IN RDB$FIELDS WITH
+                            FLD1.RDB$FIELD_NAME EQ FLD.RDB$FIELD_NAME
+	           
+                            /* We are ODS >= 10 and could be any Dialect */
+                            if (!FLD1.RDB$FIELD_PRECISION.NULL) {
+                                /* We are Dialect >=3 since FIELD_PRECISION is
+                                   non-NULL */
+                                if (FLD1.RDB$FIELD_SUB_TYPE > 0 &&
+                                    FLD1.RDB$FIELD_SUB_TYPE <= MAX_INTSUBTYPES) { 
+                                    sprintf (Print_buffer, "%s(%d, %d)", 
+                                             Integral_subtypes [FLD1.RDB$FIELD_SUB_TYPE],
+                                             FLD1.RDB$FIELD_PRECISION,
+                                             -FLD1.RDB$FIELD_SCALE);
+                                    precision_known = TRUE;
+                                }
+                            }
+                        END_FOR
+	                    ON_ERROR
+                            ISQL_errmsg (isc_status);
+	                        return ERR;
+	                    END_ERROR;
+                    }
+                }
+                
+                if (precision_known == FALSE) {
+                    /* Take a stab at numerics and decimals */
+                    if ((FLD.RDB$FIELD_TYPE == SMALLINT) && (FLD.RDB$FIELD_SCALE < 0)) {
+                        sprintf (Print_buffer, "NUMERIC(4, %d)", -FLD.RDB$FIELD_SCALE);
+                    }
+                    else if ((FLD.RDB$FIELD_TYPE == INTEGER) && (FLD.RDB$FIELD_SCALE < 0)) {
+                        sprintf (Print_buffer, "NUMERIC(9, %d)", -FLD.RDB$FIELD_SCALE);
+                    }
+                    else if ((FLD.RDB$FIELD_TYPE == DOUBLE_PRECISION) && 
+                             (FLD.RDB$FIELD_SCALE < 0)) {
+                        sprintf (Print_buffer, "NUMERIC(15, %d)", -FLD.RDB$FIELD_SCALE);
+                    }
+                    else
+                        {
+                            sprintf (Print_buffer, "%s", Column_types [i].type_name);
+                        }
+                }
+                ISQL_printf (Out, Print_buffer);
+                break;
+            }
+	
+	    if ((FLD.RDB$FIELD_TYPE == FCHAR) || (FLD.RDB$FIELD_TYPE == VARCHAR)) {
+            /* Don't test character_length in a V3 database */
+            
+            if (!V4)
+			{
+                sprintf (Print_buffer, "(%d)", FLD.RDB$FIELD_LENGTH);
+                ISQL_printf (Out, Print_buffer);
+            }
+            else
+			{
+                sprintf (Print_buffer, "(%d)", ISQL_get_field_length(FLD.RDB$FIELD_NAME));
+                ISQL_printf (Out, Print_buffer);
+            }
+	
+	        /* Show international character sets and collations */
+            
+            if (V4)
+                show_charsets  (relation_name, RFR.RDB$FIELD_NAME);
+        }
+	
+	    if (FLD.RDB$FIELD_TYPE == BLOB) {
+            sprintf (Print_buffer, " segment %u, subtype ", (USHORT) FLD.RDB$SEGMENT_LENGTH);
+            ISQL_printf (Out, Print_buffer);
+            subtype  = FLD.RDB$FIELD_SUB_TYPE;
+            if (subtype >= 0 && subtype <= MAXSUBTYPES)
+			{
+                sprintf (Print_buffer, "%s", Sub_types [subtype]);
+                ISQL_printf (Out, Print_buffer);
+            }
+            else
+			{
+                sprintf (Print_buffer, "%d", subtype);
+                ISQL_printf (Out, Print_buffer);
+            }
+	
+	        /* Show international character sets and collations */
+	
+            if (V4)
+                show_charsets  (relation_name, RFR.RDB$FIELD_NAME);
+        }
+	
+	    if (!FLD.RDB$COMPUTED_BLR.NULL) {
+            /* A view expression. Other computed fields will not reach this point.*/
+            sprintf (Print_buffer, " Expression%s", NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+            continue;
+        }
+        
+	    /* The null flag is either 1 or null (for nullable) */
+        
+	    if (V4)
+		{
+            if (RFR.RDB$NULL_FLAG == 1 || FLD.RDB$NULL_FLAG == 1 ||
+                (!RFR.RDB$BASE_FIELD.NULL && 
+                 !ISQL_get_null_flag (relation_name, RFR.RDB$FIELD_NAME)))
+			{
+                sprintf (Print_buffer, " Not Null ");
+                ISQL_printf (Out, Print_buffer);
+            }
+            else
+			{
+                sprintf (Print_buffer, " Nullable ");
+                ISQL_printf (Out, Print_buffer);
+            }
+        }
+        
+	    /* Handle defaults for columns */
+        
+	    if (V4) {
+            if (!RFR.RDB$DEFAULT_SOURCE.NULL)
+                SHOW_print_metadata_text_blob (Out, &RFR.RDB$DEFAULT_SOURCE);
+            else if (!FLD.RDB$DEFAULT_SOURCE.NULL)
+                SHOW_print_metadata_text_blob (Out, &FLD.RDB$DEFAULT_SOURCE);
+        }
+	    ISQL_printf (Out, NEWLINE);
+	
+	    /* Validation clause for domains */
+	    if (!FLD.RDB$VALIDATION_SOURCE.NULL) {
+            sprintf (Print_buffer, "                                ");
+            ISQL_printf (Out, Print_buffer);
+            SHOW_print_metadata_text_blob (Out, &FLD.RDB$VALIDATION_SOURCE);
+            ISQL_printf (Out, NEWLINE);
+        }
+	
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return ERR;
+	END_ERROR;
+
+/* If this is a view and there were columns, print the view text */
+
+	if (!first) {
+	    FOR REL IN RDB$RELATIONS WITH
+            REL.RDB$RELATION_NAME EQ relation_name AND
+            REL.RDB$VIEW_BLR NOT MISSING
+            
+            sprintf (Print_buffer, "View Source:%s==== ======%s", NEWLINE, NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+            if (!REL.RDB$VIEW_SOURCE.NULL)
+                SHOW_print_metadata_text_blob (Out, &REL.RDB$VIEW_SOURCE);
+            ISQL_printf (Out, NEWLINE);
+        END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return ERR;
+		END_ERROR;
+	}
+
+/* Handle any referential or primary constraint on this table */
+
+	if (V4) {
+		collist = (SCHAR *) ISQL_ALLOC(BUFFER_LENGTH512);
+		if (!collist) {
+			isc_status[0] = isc_arg_gds;
+			isc_status[1] = isc_virmemexh;
+			isc_status[2] = isc_arg_end;
+			ISQL_errmsg(isc_status);
+			return ERR;
+		}
+
+		/* Static queries for obtaining referential constraints */
+
+	    FOR RELC1 IN RDB$RELATION_CONSTRAINTS WITH
+            RELC1.RDB$RELATION_NAME EQ relation_name
+            SORTED BY RELC1.RDB$CONSTRAINT_TYPE, RELC1.RDB$CONSTRAINT_NAME
+	
+            ISQL_get_index_segments (collist, RELC1.RDB$INDEX_NAME, FALSE);
+            if (!strncmp (RELC1.RDB$CONSTRAINT_TYPE, "PRIMARY", 7)) {
+                ISQL_blankterm (RELC1.RDB$CONSTRAINT_NAME);
+                sprintf (Print_buffer, "CONSTRAINT %s:%s", RELC1.RDB$CONSTRAINT_NAME, NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+                sprintf (Print_buffer, "  Primary key (%s)%s", collist, NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+            }
+            else if (!strncmp (RELC1.RDB$CONSTRAINT_TYPE, "UNIQUE", 6)) {
+                ISQL_blankterm (RELC1.RDB$CONSTRAINT_NAME);
+                sprintf (Print_buffer, "CONSTRAINT %s:%s", RELC1.RDB$CONSTRAINT_NAME, NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+                sprintf (Print_buffer, "  Unique key (%s)%s", collist, NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+            }
+            else if (!strncmp (RELC1.RDB$CONSTRAINT_TYPE, "FOREIGN", 7)) {
+                ISQL_blankterm (RELC1.RDB$CONSTRAINT_NAME);
+                sprintf (Print_buffer, "CONSTRAINT %s:%s", RELC1.RDB$CONSTRAINT_NAME, NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+                ISQL_get_index_segments (collist, RELC1.RDB$INDEX_NAME, FALSE);
+                sprintf (Print_buffer, "  Foreign key (%s)", collist);
+                ISQL_printf (Out, Print_buffer);
+                
+                FOR RELC2 IN RDB$RELATION_CONSTRAINTS CROSS
+                    REFC IN RDB$REF_CONSTRAINTS WITH
+                    RELC2.RDB$CONSTRAINT_NAME EQ REFC.RDB$CONST_NAME_UQ AND
+                    REFC.RDB$CONSTRAINT_NAME EQ RELC1.RDB$CONSTRAINT_NAME
+                    
+                    ISQL_get_index_segments (collist, RELC2.RDB$INDEX_NAME, FALSE);
+                    ISQL_blankterm (RELC2.RDB$RELATION_NAME);
+                
+                    sprintf (Print_buffer, "    References %s (%s)", 
+                             RELC2.RDB$RELATION_NAME, collist);
+                    ISQL_printf (Out, Print_buffer);
+                    
+                    if (!REFC.RDB$UPDATE_RULE.NULL) {
+                        ISQL_truncate_term (REFC.RDB$UPDATE_RULE,
+                                            sizeof(REFC.RDB$UPDATE_RULE));
+                        ISQL_ri_action_print (REFC.RDB$UPDATE_RULE, " On Update",
+                                              FALSE);
+                    }
+                    
+                    if (!REFC.RDB$DELETE_RULE.NULL) {
+                        ISQL_truncate_term (REFC.RDB$DELETE_RULE,
+                                            sizeof(REFC.RDB$DELETE_RULE));
+                        ISQL_ri_action_print (REFC.RDB$DELETE_RULE, " On Delete", 
+                                              FALSE);
+                    }
+                    
+                    sprintf (Print_buffer, "%s", NEWLINE);
+                    ISQL_printf (Out, Print_buffer);
+	    
+                END_FOR
+	            ON_ERROR
+                    ISQL_errmsg (isc_status);
+	                return ERR;
+                END_ERROR;
+            }
+            
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    return ERR;
+		END_ERROR;
+
+	    FOR R_C IN RDB$RELATION_CONSTRAINTS CROSS
+	        C_C IN RDB$CHECK_CONSTRAINTS
+	        WITH R_C.RDB$RELATION_NAME   EQ relation_name
+            AND R_C.RDB$CONSTRAINT_TYPE EQ 'NOT NULL'
+            AND R_C.RDB$CONSTRAINT_NAME EQ C_C.RDB$CONSTRAINT_NAME
+            
+	        if (strncmp (R_C.RDB$CONSTRAINT_NAME, "INTEG_", 6)) {
+	            ISQL_blankterm (C_C.RDB$TRIGGER_NAME);
+	            ISQL_blankterm (R_C.RDB$CONSTRAINT_NAME);
+	            sprintf (Print_buffer, "CONSTRAINT %s:%s", R_C.RDB$CONSTRAINT_NAME,
+	                     NEWLINE);
+	            ISQL_printf (Out, Print_buffer);
+	            sprintf (Print_buffer, "  Not Null Column (%s)%s",
+	                     C_C.RDB$TRIGGER_NAME, NEWLINE);
+	            ISQL_printf (Out, Print_buffer);
+            }
+	    END_FOR
+		ON_ERROR 
+            ISQL_errmsg(isc_status);
+		    ISQL_FREE(collist);
+            return ERR;
+		END_ERROR;
+	}
+
+	if (collist)
+		ISQL_FREE(collist);
+    
+    /* Do check constraints */
+
+	(void) show_check(relation_name);
+    
+    /* Do triggers */
+    
+	(void) show_trigger(relation_name, NO_SOURCE);
+    
+	if (first)
+		return (NOT_FOUND);
+	return SKIP;
+}
+
+
+static int show_trigger( SCHAR * object, SSHORT flag)
+{
+/**************************************
+ *
+ *	s h o w _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show triggers in general or  for the named object or trigger
+ *
+ **************************************/
+	SSHORT first = TRUE;
+	SSHORT skip = FALSE;
+
+    /* Show all triggers */
+	if (!*object)
+	{
+		if (V4)
+		{
+            FOR TRG IN RDB$TRIGGERS CROSS REL IN RDB$RELATIONS
+                WITH (REL.RDB$SYSTEM_FLAG NE 1 OR REL.RDB$SYSTEM_FLAG MISSING) AND
+                TRG.RDB$RELATION_NAME = REL.RDB$RELATION_NAME AND
+                NOT (ANY CHK IN RDB$CHECK_CONSTRAINTS WITH
+                     TRG.RDB$TRIGGER_NAME EQ CHK.RDB$TRIGGER_NAME)
+                SORTED BY TRG.RDB$RELATION_NAME, TRG.RDB$TRIGGER_NAME
+	
+                if (first)
+				{
+                    sprintf (Print_buffer, 
+                             "Table name                       Trigger name%s", NEWLINE);
+                    ISQL_printf (Out, Print_buffer);
+                    sprintf (Print_buffer, 
+                             "===========                      ============%s", NEWLINE);
+                    ISQL_printf (Out, Print_buffer);
+                    first = FALSE;
+                }
+	
+                ISQL_blankterm (TRG.RDB$TRIGGER_NAME);
+                ISQL_blankterm (TRG.RDB$RELATION_NAME);
+                sprintf (Print_buffer, "%-32s %s%s%s", 
+                         TRG.RDB$RELATION_NAME, 
+                         TRG.RDB$TRIGGER_NAME, 
+                         (TRG.RDB$SYSTEM_FLAG == 1 ? "(system)" : ""),
+                         NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+            END_FOR
+            ON_ERROR 
+                ISQL_errmsg(isc_status);
+                return ERR;
+			END_ERROR;
+		}
+		else
+		{					/* V3 databases */
+            FOR TRG IN RDB$TRIGGERS CROSS REL IN RDB$RELATIONS
+                WITH (REL.RDB$SYSTEM_FLAG NE 1 OR REL.RDB$SYSTEM_FLAG MISSING) AND
+                TRG.RDB$RELATION_NAME = REL.RDB$RELATION_NAME
+                SORTED BY TRG.RDB$RELATION_NAME, TRG.RDB$TRIGGER_NAME
+                
+                if (first) {
+                    sprintf (Print_buffer, 
+                             "Table name                       Trigger name%s", NEWLINE);
+                    ISQL_printf (Out, Print_buffer);
+                    sprintf (Print_buffer, 
+                             "===========                      ============%s", NEWLINE);
+                    ISQL_printf (Out, Print_buffer);
+                    first = FALSE;
+                }
+	
+                ISQL_blankterm (TRG.RDB$TRIGGER_NAME);
+                ISQL_blankterm (TRG.RDB$RELATION_NAME);
+                sprintf (Print_buffer, "%-32s %s%s%s", TRG.RDB$RELATION_NAME, 
+                         TRG.RDB$TRIGGER_NAME, 
+                         (TRG.RDB$SYSTEM_FLAG == 1 ? "(system)" : ""),
+                         NEWLINE);
+                ISQL_printf (Out, Print_buffer);
+            END_FOR
+			ON_ERROR 
+                ISQL_errmsg(isc_status);
+			    return ERR;
+			END_ERROR;
+		}
+		if (first)
+			return NOT_FOUND;
+		else
+			return (SKIP);
+	}
+
+/* Show triggers for the named object */
+/* In V4 databases we also want to avoid check constraints */
+
+	FOR TRG IN RDB$TRIGGERS WITH
+        (TRG.RDB$RELATION_NAME EQ object OR
+         TRG.RDB$TRIGGER_NAME EQ object)
+        SORTED BY TRG.RDB$RELATION_NAME, TRG.RDB$TRIGGER_TYPE, 
+        TRG.RDB$TRIGGER_SEQUENCE, TRG.RDB$TRIGGER_NAME;
+	
+        skip = FALSE;
+        if (V4) {
+            /* Skip triggers for check constraints */
+            FOR FIRST 1 CHK IN RDB$CHECK_CONSTRAINTS WITH
+                TRG.RDB$TRIGGER_NAME EQ CHK.RDB$TRIGGER_NAME 
+                skip = TRUE;
+            END_FOR
+            ON_ERROR
+                ISQL_errmsg (isc_status);
+	            return ERR;
+            END_ERROR;
+        }
+	    if (skip)
+            continue;
+	    ISQL_blankterm (TRG.RDB$TRIGGER_NAME);
+	    ISQL_blankterm (TRG.RDB$RELATION_NAME);
+        
+	    if (first) {
+            sprintf (Print_buffer, "%sTriggers on Table %s:%s", 
+                     NEWLINE, 
+                     TRG.RDB$RELATION_NAME,
+                     NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+	        first = FALSE;
+        }
+        
+	    sprintf (Print_buffer, "%s, Sequence: %d, Type: %s, %s%s",
+	             TRG.RDB$TRIGGER_NAME,
+                 TRG.RDB$TRIGGER_SEQUENCE,
+                 Trigger_types [TRG.RDB$TRIGGER_TYPE],
+                 (TRG.RDB$TRIGGER_INACTIVE ? "Inactive" : "Active"), 
+                 NEWLINE);
+	    ISQL_printf (Out, Print_buffer);
+        
+	    if (flag == SHOW_SOURCE) {
+            /* Use print_blob to print the blob */
+            
+            if (!TRG.RDB$TRIGGER_SOURCE.NULL)
+                SHOW_print_metadata_text_blob (Out, &TRG.RDB$TRIGGER_SOURCE);
+            sprintf (Print_buffer, "%s+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++%s", NEWLINE, NEWLINE);
+            ISQL_printf (Out, Print_buffer);
+        }
+        
+	END_FOR
+	ON_ERROR 
+        ISQL_errmsg(isc_status);
+	    return ERR;
+	END_ERROR;
+	if (first)
+		return NOT_FOUND;
+	return SKIP;
+}
diff --git a/src/isql/show_proto.h b/src/isql/show_proto.h
new file mode 100644
index 0000000000..3f0010965e
--- /dev/null
+++ b/src/isql/show_proto.h
@@ -0,0 +1,41 @@
+/*
+ *	PROGRAM:	Interactive SQL utility
+ *	MODULE:		show_proto.h
+ *	DESCRIPTION:	Prototype header file for show.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ISQL_SHOW_PROTO_H_
+#define _ISQL_SHOW_PROTO_H_
+
+
+
+#ifdef GUI_TOOLS
+#include "../wisql/isqlpb.h"
+extern void SHOW_build_table_namelist(TBLLIST **);
+extern void SHOW_build_view_namelist(VIEWLIST **);
+#endif /* GUI_TOOLS */
+
+extern void SHOW_dbb_parameters(SLONG *, SCHAR *, SCHAR *, USHORT, USHORT);
+extern int SHOW_grants(SCHAR *, SCHAR *);
+extern void SHOW_grant_roles(SCHAR *);
+extern void SHOW_print_metadata_text_blob(IB_FILE *, GDS__QUAD *);
+extern int SHOW_metadata(SCHAR **, SCHAR **);
+
+#endif /* _ISQL_SHOW_PROTO_H_ */
diff --git a/src/journal/archive.cpp b/src/journal/archive.cpp
new file mode 100644
index 0000000000..03c0905a66
--- /dev/null
+++ b/src/journal/archive.cpp
@@ -0,0 +1,210 @@
+/*
+ *	PROGRAM:	JRD Journal Server
+ *	MODULE:		archive.c
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+#include "../wal/wal.h"
+#include "../jrd/jrn.h"
+#include "../jrd/llio.h"
+#include "../jrd/jrn_proto.h"
+#include "../jrd/llio_proto.h"
+
+#ifdef NETWARE_386
+#define exit(code)	return
+#endif
+
+static USHORT copy_file(SLONG, SLONG, SLONG);
+static void error_exit(STATUS *, JRN *, SLONG, SLONG, SLONG);
+static USHORT open_file(TEXT *, SLONG, USHORT, SLONG *);
+
+
+#ifdef NETWARE_386
+int main_archive(
+#else
+int CLIB_ROUTINE main( int argc,
+#endif
+					  char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *    backup a file to another disk, update journal database.
+ *
+ **************************************/
+	TEXT *d_file;
+	TEXT *s_file;
+	TEXT *j_dir;
+	SLONG file_id;
+	SLONG s_fd, d_fd;
+	SLONG p_offset;
+	USHORT j_length;
+	USHORT ret_val;
+	SLONG size;
+	SLONG db_id;
+	STATUS status[20];
+	JRN journal;
+#ifdef NETWARE_386
+	int argc;
+#endif
+
+	journal = (JRN) 0;
+
+#ifdef NETWARE_386
+	argc = argv[0];
+#endif
+	argv++;
+
+	db_id = atoi(*argv++);
+	file_id = atoi(*argv++);
+	p_offset = atoi(*argv++);
+	size = atoi(*argv++);
+	s_file = *argv++;
+	d_file = *argv++;
+	j_dir = *argv++;
+	j_length = strlen(j_dir);
+
+/* Attach with journal server */
+
+	if (JRN_archive_begin(status, &journal, db_id, file_id, j_dir, j_length)
+		!= SUCCESS)
+		error_exit(status, &journal, db_id, file_id, 235);	/* msg 235: Archive process unable to attach to journal server. */
+
+/* Check in with database */
+
+	if (open_file(s_file, p_offset, LLIO_OPEN_R, &s_fd) == FAILURE)
+		error_exit(status, &journal, db_id, file_id, 236);	/* msg 236: Archive process unable to open log file. */
+
+	if (open_file(d_file, 0L, LLIO_OPEN_NEW_RW, &d_fd) == FAILURE) {
+		LLIO_close(0, s_fd);
+		error_exit(status, &journal, db_id, file_id, 237);	/* msg 237: Archive process unable to create archive file. */
+	}
+
+	ret_val = copy_file(s_fd, d_fd, size);
+
+	ret_val |= LLIO_close(0, s_fd);
+	ret_val |= LLIO_close(0, d_fd);
+
+	if (ret_val)
+		error_exit(status, &journal, db_id, file_id, 238);	/* msg 238: Archive process unable to close log and/or archive files. */
+
+/* Now mark the file for deletion */
+
+	JRN_archive_end(status, &journal, db_id, file_id);
+
+	exit(FINI_OK);
+}
+
+
+static USHORT copy_file( SLONG s_fd, SLONG d_fd, SLONG size)
+{
+/**************************************
+ *
+ *	c o p y _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	copy source file to destination file 
+ *
+ **************************************/
+	SCHAR buff[1024];
+	SLONG l, len, read, written;
+
+	len = size;
+
+	l = 1024;
+
+	while (len) {
+		if (len < 1024)
+			l = len;
+
+		len -= l;
+
+		if (LLIO_read(0, s_fd, 0, 0L, LLIO_SEEK_NONE, buff, l, &read) ||
+			l != read) return FAILURE;
+		if (LLIO_write(0, d_fd, 0, 0L, LLIO_SEEK_NONE, buff, l, &written) ||
+			l != written)
+			return FAILURE;
+	}
+
+	return SUCCESS;
+}
+
+
+static void error_exit(
+					   STATUS * status_vector,
+					   JRN * ret_journal,
+					   SLONG db_id, SLONG file_id, SLONG error_code)
+{
+/**************************************
+ *
+ *	e r r o r _ e x i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	JRN_archive_error(status_vector, ret_journal, db_id, file_id, error_code);
+	exit(FINI_ERROR);
+}
+
+
+static USHORT open_file(
+						TEXT * full_name,
+						SLONG p_offset, USHORT mode, SLONG * fd)
+{
+/**************************************
+ *
+ *	o p e n _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	open a file with a given mask
+ *	Return file descriptor.
+ *
+ **************************************/
+
+	if (LLIO_open(0, full_name, mode, FALSE, fd))
+		return FAILURE;
+
+	if (p_offset) {
+		if (LLIO_seek(0, *fd, 0, p_offset, LLIO_SEEK_BEGIN))
+			return FAILURE;
+	}
+
+	return SUCCESS;
+}
diff --git a/src/journal/conso_proto.h b/src/journal/conso_proto.h
new file mode 100644
index 0000000000..30fba96616
--- /dev/null
+++ b/src/journal/conso_proto.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	JRD Journalling Subsystem
+ *	MODULE:		conso_proto.h
+ *	DESCRIPTION:	Prototype header file for console.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JOURNAL_CONSO_PROTO_H_
+#define _JOURNAL_CONSO_PROTO_H_
+
+extern int CONSOLE_start_console(int, SCHAR **);
+extern int CONSOLE_test_server(SCHAR *);
+
+#endif /* _JOURNAL_CONSO_PROTO_H_ */
diff --git a/src/journal/console.cpp b/src/journal/console.cpp
new file mode 100644
index 0000000000..c045363041
--- /dev/null
+++ b/src/journal/console.cpp
@@ -0,0 +1,768 @@
+/*
+ *	PROGRAM:	JRD Journalling Subsystem
+ *	MODULE:		console.c
+ *	DESCRIPTION:	Journal server console program
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include <stdlib.h>
+#include "../jrd/common.h"
+#ifdef SCO_UNIX
+#include <sys/types.h>
+#include <sys/socket.h>
+#endif
+#include "../jrd/jrd.h"
+#include "../jrd/jrn.h"
+#include "../journal/journal.h"
+#include "../journal/conso_proto.h"
+#include "../journal/gjrn_proto.h"
+#include "../journal/misc_proto.h"
+#include "../jrd/isc_f_proto.h"
+
+#ifdef UNIX
+#include <errno.h>
+#define UNIX_JOURNALLING
+#define BSD_SOCKETS
+#endif
+
+#ifdef NETWARE_386
+#include <errno.h>
+#define NETWARE_JOURNALLING
+#define BSD_SOCKETS
+#define EINTR           0
+#undef PC_PLATFORM
+#endif
+
+#ifdef UNIXWARE
+#define GETWD           getcwd
+#endif
+
+#ifdef BSD_SOCKETS
+#define BSD_INCLUDES
+#ifndef FCNTL_INCLUDED
+#include <fcntl.h>
+#endif
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <netdb.h>
+#include <netinet/in.h>
+#define MAXHOSTNAMELEN  64		/* should be in <sys/param.h> */
+#define HANDLE          int
+#endif
+
+#ifdef WIN_NT
+#include <windows.h>
+#define TEXT		SCHAR
+#endif
+
+#define START_COMMAND	"status"
+
+static void close_connection(SLONG);
+static void error(STATUS, UCHAR *);
+static void expand_dbname(TEXT *);
+
+#ifdef BSD_SOCKETS
+static SSHORT find_address(TEXT *, struct sockaddr_in *, SSHORT);
+#endif
+
+static ENUM jrnr_t get_reply(SLONG);
+static SLONG open_connection(SCHAR *, SSHORT);
+static void put_command(SLONG, UCHAR *, USHORT, UCHAR *, USHORT);
+
+extern CMDS commands[];
+
+#ifndef MAX_PATH_LENGTH
+#define MAX_PATH_LENGTH         512
+#endif
+
+
+int CONSOLE_start_console( int argc, SCHAR ** argv)
+{
+/**************************************
+ *
+ *	C O N S O L E _ s t a r t _ c o n s o l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Journal console function.
+ *
+ **************************************/
+	JRNH header;
+	TEXT **end, directory[MAX_PATH_LENGTH], buffer[2 * MAX_PATH_LENGTH];
+	SLONG channel;
+	USHORT cycle, len, length;
+	ENUM jrnr_t reply;
+	SSHORT single_msg = FALSE;
+	SCHAR *msg, *dir;
+	USHORT sw_d, sw_v, sw_i;
+	TEXT mssg[128];
+
+	dir = ".";
+	msg = NULL;
+	sw_i = sw_d = sw_v = FALSE;
+
+	for (end = argv + argc, argv++; argv < end;) {
+		if ((*argv)[0] != '-')
+			argv++;
+		else {
+			MISC_down_case(*argv++, buffer);
+			switch (buffer[1]) {
+			case 'i':
+				sw_i = TRUE;
+				break;
+
+			case 'd':
+				sw_d = TRUE;
+				break;
+
+			case 'v':
+				sw_v = TRUE;
+				break;
+
+			case 'j':
+				if (!(dir = *argv++))
+					MISC_print_journal_syntax();
+				break;
+
+			case 'c':
+				break;
+
+			case 's':
+				single_msg = TRUE;
+				if (!(msg = *argv++))
+					MISC_print_journal_syntax();
+				break;
+
+			default:
+				break;
+			}
+		}
+	}
+
+	len = ISC_expand_filename(dir, 0, directory);
+	if (directory[len - 1] == '/')
+		len--;
+#ifdef WIN_NT
+	else if (directory[len - 1] == '\\')
+		len--;
+#endif
+	directory[len++] = '/';
+	directory[len] = 0;
+
+	GJRN_get_msg(CONSOLE_PROG, mssg, NULL, NULL, NULL);	/* Msg 215 Journal server console program */
+	printf("%s\n", mssg);
+	channel = open_connection(directory, FALSE);
+
+	header.jrnh_type = JRN_CONSOLE;
+	header.jrnh_version = JOURNAL_VERSION;
+
+	put_command(channel, &header, sizeof(header), START_COMMAND,
+				sizeof(START_COMMAND) - 1);
+	get_reply(channel);
+
+	if (single_msg == TRUE) {
+		MISC_down_case(msg, buffer);
+		length = strlen(msg);
+
+		if (length > strlen(START_COMMAND))
+			length = strlen(START_COMMAND);
+
+		/* attaching puts out status already.  So don't do anything */
+
+		if (strncmp(START_COMMAND, buffer, (int) length)) {
+			/* Expand any filename present in the console command */
+
+			expand_dbname(msg);
+
+			if (length = strlen(msg)) {
+				put_command(channel, &header, sizeof(header), msg, length);
+				reply = get_reply(channel);
+			}
+		}
+		close_connection(channel);
+		return 0;
+	}
+
+	for (cycle = TRUE; cycle;) {
+		printf("gjrn> ");
+		if (sw_service_gjrn)
+			putc('\001', stdout);
+		fflush(stdout);
+		if (!gets(buffer))
+			break;
+
+		/* Expand any filename present in the console command */
+
+		expand_dbname(buffer);
+
+		if (length = strlen(buffer)) {
+			put_command(channel, &header, sizeof(header), buffer, length);
+			switch (reply = get_reply(channel)) {
+			case jrnr_shutdown:
+			case jrnr_exit:
+				cycle = FALSE;
+				break;
+			}
+		}
+	}
+
+	close_connection(channel);
+
+	return 0;
+}
+
+
+int CONSOLE_test_server( SCHAR * journal_dir)
+{
+/**************************************
+ *
+ *	C O N S O L E _ t e s t _ s e r v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checks if a server is running in the
+ *	specified directory.
+ *
+ **************************************/
+	SLONG channel;
+	TEXT directory[MAX_PATH_LENGTH];
+	USHORT len;
+
+	len = ISC_expand_filename(journal_dir, 0, directory);
+	if (directory[len - 1] == '/')
+		len--;
+#ifdef WIN_NT
+	else if (directory[len - 1] == '\\')
+		len--;
+#endif
+	directory[len++] = '/';
+	directory[len] = 0;
+
+	if ((channel = open_connection(directory, TRUE)) < 0)
+		return FALSE;
+
+	close_connection(channel);
+
+	return TRUE;
+}
+
+
+#ifdef BSD_SOCKETS
+static void close_connection( SLONG channel)
+{
+/**************************************
+ *
+ *	c l o s e _ c o n n e c t i o n		( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Journal console program.
+ *
+ **************************************/
+
+	if (close(channel) < 0)
+		error((STATUS) errno, "close socket");
+}
+#endif
+
+
+#ifdef WIN_NT
+static void close_connection( SLONG channel)
+{
+/**************************************
+ *
+ *	c l o s e _ c o n n e c t i o n		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Journal console program.
+ *
+ **************************************/
+
+	if (!CloseHandle((HANDLE) channel))
+		error(GetLastError(), "CloseHandle (pipe)");
+}
+#endif
+
+
+#ifdef BSD_SOCKETS
+static void error( STATUS status, UCHAR * string)
+{
+/**************************************
+ *
+ *	e r r o r		( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report an error and punt.
+ *
+ **************************************/
+	TEXT msg[128];
+
+	GJRN_get_msg(GEN_ERR, msg, string, NULL, NULL);	/* Msg 111 Error occurred during \"%s\" */
+	fprintf(stderr, "%s\n", msg);
+	perror(string);
+	exit(FINI_ERROR);
+}
+#endif
+
+
+#ifdef WIN_NT
+static void error( STATUS status, UCHAR * string)
+{
+/**************************************
+ *
+ *	e r r o r		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report an error and punt.
+ *
+ **************************************/
+	TEXT msg[512];
+	SSHORT l;
+
+	GJRN_get_msg(GEN_ERR, msg, string, NULL, NULL);	/* Msg 111 Error occurred during \"%s\" */
+	fprintf(stderr, "%s\n", msg);
+
+	if (!(l = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,
+							NULL,
+							status,
+							GetUserDefaultLangID(),
+							msg, sizeof(msg), NULL))) {
+		GJRN_get_msg(NT_ERR, msg, string, NULL, NULL);	/* Msg 211 Windows NT error %d */
+		fprintf(stderr, msg, status);
+		fprintf(stderr, "\n");
+	}
+	else
+		fprintf(stderr, "%s\n", msg);
+
+	exit(FINI_ERROR);
+}
+#endif
+
+
+static void expand_dbname( TEXT * in)
+{
+/**************************************
+ *
+ *	e x p a n d _ d b n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand file name in console command.  The input string is
+ *	modified.
+ *
+ **************************************/
+	CMDS *command;
+	TEXT cmd[32], operand1[JOURNAL_PATH_LENGTH],
+		operand2[JOURNAL_PATH_LENGTH], *p, *q;
+	TEXT exp_op[JOURNAL_PATH_LENGTH];
+	USHORT n;
+
+	cmd[0] = operand1[0] = operand2[0] = 0;
+
+	n = sscanf(in, "%s%s%s", cmd, operand1, operand2);
+
+	for (command = commands; p = command->cmds_string; command++) {
+		q = cmd;
+		while (*q && UPPER(*q) == *p++)
+			q++;
+		if (!*q)
+			break;
+	}
+
+	switch (command->cmds_command) {
+	case cmd_shutdown:
+	case cmd_exit:
+	case cmd_status:
+	case cmd_help:
+	case cmd_version:
+		break;
+
+	case cmd_erase:
+		if (!strlen(operand1)) {
+			sprintf(in, "%s", "HELP");
+			return;
+		}
+		break;
+
+	case cmd_drop:
+	case cmd_disable:
+	case cmd_archive:
+		if (!strlen(operand1)) {
+			sprintf(in, "%s", "HELP");
+			return;
+		}
+		ISC_expand_filename(operand1, 0, exp_op);
+		sprintf(in, "%s %s", cmd, exp_op);
+		break;
+
+	case cmd_reset:
+	case cmd_set:
+		if ((!strlen(operand1)) || (!strlen(operand2))) {
+			sprintf(in, "%s", "HELP");
+			return;
+		}
+		ISC_expand_filename(operand2, 0, exp_op);
+		sprintf(in, "%s %s %s", cmd, operand1, exp_op);
+		break;
+
+	default:
+		sprintf(in, "%s", "HELP");
+		return;
+	}
+}
+
+
+#ifdef BSD_SOCKETS
+static SSHORT find_address(
+						   TEXT * filename,
+						   struct sockaddr_in *address, SSHORT test_only)
+{
+/**************************************
+ *
+ *	f i n d _ a d d r e s s		( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the socket address established by the server by
+ *	looking in the designated files.
+ *
+ **************************************/
+	FILE *file;
+	SLONG addr, family, port, version;
+
+	if (!(file = fopen(filename, "r"))) {
+		if (test_only)
+			return (-1);
+
+		error(errno, "journal socket file open");
+	}
+
+	if (fscanf(file, "%ld %ld %ld %ld", &version, &addr, &family, &port) != 4) {
+		if (test_only)
+			return (-1);
+
+		error(0, "journal socket file format");
+	}
+	fclose(file);
+
+	if (version != JOURNAL_VERSION) {
+		if (test_only)
+			return (-1);
+
+		error(0, " address version");
+	}
+
+	address->sin_addr.s_addr = addr;
+	address->sin_family = family;
+	address->sin_port = port;
+
+	return TRUE;
+}
+#endif
+
+
+#ifdef BSD_SOCKETS
+static ENUM jrnr_t get_reply( SLONG channel)
+{
+/**************************************
+ *
+ *	g e t _ r e p l y		( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format and send off a command.
+ *
+ **************************************/
+	UCHAR *p, buffer[MAX_PATH_LENGTH];
+	ULONG len, length;
+	JRNR *reply;
+	int status;
+
+	p = buffer + sizeof(JRNR);
+
+	for (;;) {
+		reply = (JRNR *) buffer;
+
+		/* first read enough to find out how much to read */
+
+		length = sizeof(reply->jrnr_header);
+
+		if ((len = read(channel, buffer, length)) != length)
+			error(errno, "socket read");
+
+		/* read the rest of the response */
+
+		length = reply->jrnr_header.jrnh_length - length;
+
+		if ((len = read(channel, &buffer[len], length)) != length)
+			error(errno, "socket read");
+
+		if (reply->jrnr_response != jrnr_msg)
+			return reply->jrnr_response;
+
+		p[reply->jrnr_page] = 0;
+		printf("%s\n", p);
+	}
+}
+#endif
+
+
+#ifdef WIN_NT
+static ENUM jrnr_t get_reply( SLONG channel)
+{
+/**************************************
+ *
+ *	g e t _ r e p l y		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format and send off a command.
+ *
+ **************************************/
+	UCHAR *p, buffer[MAX_PATH_LENGTH];
+	ULONG length, len;
+	JRNR *reply;
+
+	p = buffer + sizeof(JRNR);
+
+	for (;;) {
+		reply = (JRNR *) buffer;
+
+		/* first read enough to find out how much to read */
+
+		length = sizeof(reply->jrnr_header);
+
+		if (!ReadFile((HANDLE) channel, buffer, length, &len, NULL) ||
+			len != length) error(GetLastError(), "ReadFile (pipe)");
+
+		/* read the rest of the response */
+
+		length = reply->jrnr_header.jrnh_length - length;
+
+		if (!ReadFile((HANDLE) channel, &buffer[len], length, &len, NULL) ||
+			len != length)
+			error(GetLastError(), "ReadFile (pipe)");
+
+		if (reply->jrnr_response != jrnr_msg)
+			return reply->jrnr_response;
+
+		p[reply->jrnr_page] = 0;
+		printf("%s\n", p);
+	}
+}
+#endif
+
+
+#ifdef BSD_SOCKETS
+static SLONG open_connection( SCHAR * filename, SSHORT test_only)
+{
+/**************************************
+ *
+ *	o p e n _ c o n n e c t i o n		( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open connection to console program.
+ *	If test_only, we are just testing to
+ *	see if journal server is running.
+ *
+ **************************************/
+	struct sockaddr_in address;
+	HANDLE channel;
+	TEXT name[MAX_PATH_LENGTH];
+
+	strcpy(name, filename);
+	strcat(name, CONSOLE_ADDR);
+
+/* Allocate a port block and initialize a socket for communications */
+
+	if ((channel = (SLONG) socket(AF_INET, SOCK_STREAM, 0)) < 0)
+		error(errno, "socket");
+
+	memset((SCHAR *) & address, 0, sizeof(address));
+
+/* Will return -1 only if test_only is set - otherwise fatal error */
+
+	if (find_address(name, &address, test_only) < 0)
+		return -1;
+
+	if (connect(channel, &address, sizeof(address)) < 0) {
+		if (test_only)
+			return (-1);
+
+		error(errno, "connect console");
+	}
+
+	return channel;
+}
+#endif
+
+
+#ifdef WIN_NT
+static SLONG open_connection( SCHAR * filename, SSHORT test_only)
+{
+/**************************************
+ *
+ *	o p e n _ c o n n e c t i o n		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open connection to console program.
+ *	If test_only, we are just testing to
+ *	see if journal server is running.
+ *
+ **************************************/
+	HANDLE channel;
+	TEXT name[MAX_PATH_LENGTH], *p, *q, c;
+
+	p = name;
+	strcpy(p, "\\\\.\\pipe");
+	p += strlen(p);
+
+	if (*filename != '/' && *filename != '\\')
+		*p++ = '\\';
+
+	while (*filename)
+		*p++ = ((c = *filename++) == ':') ? '_' : ((c == '/') ? '\\' : c);
+
+	strcpy(p, CONSOLE_FILE);
+
+	while (TRUE) {
+		channel = CreateFile(name,
+							 GENERIC_READ | GENERIC_WRITE,
+							 0, NULL, OPEN_EXISTING, 0, NULL);
+		if (channel != INVALID_HANDLE_VALUE)
+			break;
+
+		if (GetLastError() != ERROR_PIPE_BUSY) {
+			if (test_only)
+				return (-1);
+
+			error(GetLastError(), "CreateFile (pipe)");
+		}
+
+		WaitNamedPipe(name, 2000L);
+	}
+
+	return channel;
+}
+#endif
+
+
+#ifdef BSD_SOCKETS
+static void put_command(
+						SLONG channel,
+						UCHAR * header,
+						USHORT header_length,
+						UCHAR * data, USHORT data_length)
+{
+/**************************************
+ *
+ *	p u t _ c o m m a n d		( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format and send off a command.
+ *
+ **************************************/
+	TEXT *p, buffer[MAX_PATH_LENGTH];
+	USHORT l;
+	JRNH *header_ptr;
+
+	p = buffer;
+	l = header_length + data_length;
+
+	header_ptr = (JRNH *) header;
+	header_ptr->jrnh_length = l;
+
+	if (header_length)
+		do
+			*p++ = *header++;
+		while (--header_length);
+
+	if (data_length)
+		do
+			*p++ = *data++;
+		while (--data_length);
+
+	if (write(channel, buffer, l) < 0)
+		error(errno, "write socket");
+}
+#endif
+
+
+#ifdef WIN_NT
+static void put_command(
+						SLONG channel,
+						UCHAR * header,
+						USHORT header_length,
+						UCHAR * data, USHORT data_length)
+{
+/**************************************
+ *
+ *	p u t _ c o m m a n d		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format and send off a command.
+ *
+ **************************************/
+	TEXT *p, buffer[MAX_PATH_LENGTH];
+	ULONG l, len;
+	JRNH *header_ptr;
+
+	p = buffer;
+	l = header_length + data_length;
+
+	header_ptr = (JRNH *) header;
+	header_ptr->jrnh_length = l;
+
+	if (header_length)
+		do
+			*p++ = *header++;
+		while (--header_length);
+
+	if (data_length)
+		do
+			*p++ = *data++;
+		while (--data_length);
+
+	if (!WriteFile((HANDLE) channel, buffer, l, &len, NULL) || l != len)
+		error(GetLastError(), "WriteFile (pipe)");
+}
+#endif
diff --git a/src/journal/depends.mak b/src/journal/depends.mak
new file mode 100644
index 0000000000..116e397ba1
--- /dev/null
+++ b/src/journal/depends.mak
@@ -0,0 +1,137 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# depends.mak - journal
+# Created by 'make depends.mak'
+# Created on 1998-11-17
+archive.o: archive.c
+archive.o: source/jrd/common.h
+archive.o: source/jrd/dsc.h
+archive.o: source/jrd/isc.h
+archive.o: source/jrd/jrn.h
+archive.o: source/jrd/jrn_proto.h
+archive.o: source/jrd/llio.h
+archive.o: source/jrd/llio_proto.h
+archive.o: source/jrd/misc.h
+archive.o: source/jrd/thd.h
+archive.o: source/wal/wal.h
+console.o: conso_proto.h
+console.o: console.c
+console.o: gjrn_proto.h
+console.o: journal.h
+console.o: misc_proto.h
+console.o: source/jrd/blk.h
+console.o: source/jrd/common.h
+console.o: source/jrd/dsc.h
+console.o: source/jrd/gdsassert.h
+console.o: source/jrd/isc.h
+console.o: source/jrd/isc_f_proto.h
+console.o: source/jrd/jrd.h
+console.o: source/jrd/jrn.h
+console.o: source/jrd/thd.h
+gjrn.o: conso_proto.h
+gjrn.o: gjrn.c
+gjrn.o: gjrn_proto.h
+gjrn.o: journal.h
+gjrn.o: misc_proto.h
+gjrn.o: rebui_proto.h
+gjrn.o: serve_proto.h
+gjrn.o: source/interbase/include/iberror.h
+gjrn.o: source/jrd/build_no.h
+gjrn.o: source/jrd/common.h
+gjrn.o: source/jrd/fil.h
+gjrn.o: source/jrd/gds.h
+gjrn.o: source/jrd/gds_proto.h
+gjrn.o: source/jrd/license.h
+gjrn.o: source/jrd/thd.h
+misc.o: gjrn_proto.h
+misc.o: journal.h
+misc.o: misc.c
+misc.o: misc_proto.h
+misc.o: source/interbase/include/iberror.h
+misc.o: source/jrd/build_no.h
+misc.o: source/jrd/common.h
+misc.o: source/jrd/fil.h
+misc.o: source/jrd/gds.h
+misc.o: source/jrd/gds_proto.h
+misc.o: source/jrd/jrn.h
+misc.o: source/jrd/license.h
+misc.o: source/jrd/ods.h
+misc.o: source/jrd/thd.h
+misc.o: source/jrd/time.h
+oldr.o: misc_proto.h
+oldr.o: oldr.c
+oldr.o: oldr_proto.h
+oldr.o: source/jrd/common.h
+oldr.o: source/jrd/llio.h
+oldr.o: source/jrd/llio_proto.h
+oldr.o: source/jrd/old.h
+rebuild.o: conso_proto.h
+rebuild.o: gjrn_proto.h
+rebuild.o: journal.h
+rebuild.o: misc_proto.h
+rebuild.o: oldr_proto.h
+rebuild.o: rebui_proto.h
+rebuild.o: rebuild.c
+rebuild.o: source/interbase/include/iberror.h
+rebuild.o: source/jrd/btr.h
+rebuild.o: source/jrd/build_no.h
+rebuild.o: source/jrd/common.h
+rebuild.o: source/jrd/dsc.h
+rebuild.o: source/jrd/fil.h
+rebuild.o: source/jrd/gds.h
+rebuild.o: source/jrd/gds_proto.h
+rebuild.o: source/jrd/isc.h
+rebuild.o: source/jrd/isc_f_proto.h
+rebuild.o: source/jrd/jrn.h
+rebuild.o: source/jrd/license.h
+rebuild.o: source/jrd/llio.h
+rebuild.o: source/jrd/llio_proto.h
+rebuild.o: source/jrd/misc.h
+rebuild.o: source/jrd/ods.h
+rebuild.o: source/jrd/old.h
+rebuild.o: source/jrd/pio.h
+rebuild.o: source/jrd/thd.h
+rebuild.o: source/jrd/time.h
+rebuild.o: source/wal/wal.h
+rebuild.o: source/wal/walr_proto.h
+server.o: conso_proto.h
+server.o: gjrn_proto.h
+server.o: journal.h
+server.o: misc_proto.h
+server.o: serve_proto.h
+server.o: server.c
+server.o: source/interbase/include/iberror.h
+server.o: source/jrd/build_no.h
+server.o: source/jrd/common.h
+server.o: source/jrd/dsc.h
+server.o: source/jrd/fil.h
+server.o: source/jrd/gds.h
+server.o: source/jrd/gds_proto.h
+server.o: source/jrd/isc.h
+server.o: source/jrd/isc_f_proto.h
+server.o: source/jrd/isc_proto.h
+server.o: source/jrd/isc_s_proto.h
+server.o: source/jrd/jrn.h
+server.o: source/jrd/license.h
+server.o: source/jrd/llio.h
+server.o: source/jrd/llio_proto.h
+server.o: source/jrd/misc.h
+server.o: source/jrd/pio.h
+server.o: source/jrd/thd.h
+server.o: source/jrd/time.h
+server.o: source/wal/wal.h
+server.o: source/wal/walf_proto.h
diff --git a/src/journal/gjrn.cpp b/src/journal/gjrn.cpp
new file mode 100644
index 0000000000..3862c25e9c
--- /dev/null
+++ b/src/journal/gjrn.cpp
@@ -0,0 +1,863 @@
+/*
+ *	PROGRAM:	JRD Journal Server
+ *	MODULE:		gjrn.c
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <setjmp.h>
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../jrd/license.h"
+#include "../include/jrd/gds.h"
+#include "../journal/journal.h"
+#include "../journal/conso_proto.h"
+#include "../journal/gjrn_proto.h"
+#include "../journal/misc_proto.h"
+#include "../journal/rebui_proto.h"
+#include "../journal/serve_proto.h"
+#include "../jrd/gds_proto.h"
+
+#if defined(WIN_NT)
+#include <io.h>
+#endif
+
+#ifdef NETWARE_386
+#define exit(code)	return
+#endif
+
+USHORT sw_service_gjrn;
+FILE *msg_file;
+
+static void gjrn_msg_partial(USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+static void gjrn_msg_put(USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+static USHORT get_new_files(SCHAR **, SLONG *);
+static int start_disable(int, SCHAR **);
+static int start_dump(int, SCHAR **);
+static int start_enable(int, SCHAR **);
+
+static jmp_buf gjrn_env;
+
+static UCHAR
+	disable_dpb[] = { gds_dpb_version1, gds__dpb_disable_journal, 0 };
+
+typedef struct func_tab {
+	SCHAR *name;
+	int (*func_routine) ();
+} FUNC_TABLE;
+
+static FUNC_TABLE option_table[] = {
+#ifndef VMS
+	"console", CONSOLE_start_console,
+#endif
+	"enable", start_enable,
+	"disable", start_disable,
+	"online_dump", start_dump,
+	"restore", REBUILD_start_restore,
+	"server", SERVER_start_server,
+	0, 0
+};
+
+
+#ifdef NETWARE_386
+int main_gjrn(
+#else
+int CLIB_ROUTINE main( int argc,
+#endif
+					  char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Driver for the DBA tool utility.
+ *	Parse switches and do work.
+ *
+ **************************************/
+	SSHORT i, s_argc;
+	SCHAR *p, **s_argv, string[512];
+	USHORT found;
+	USHORT sw_interactive = FALSE;
+	SCHAR option_name[32];
+	SLONG exit_code;
+	SLONG redir_in, redir_out, redir_err;
+	TEXT msg[128];
+#ifdef NETWARE_386
+	int argc;
+#endif
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+#ifdef NETWARE_386
+	argc = argv[0];
+#endif
+
+/* Perform some special handling when run as an Interbase service.  The
+   first switch can be "-svc" (lower case!) or it can be "-svc_re" followed
+   by 3 file descriptors to use in re-directing stdin, stdout, and stderr. */
+
+	sw_service_gjrn = FALSE;
+
+	if (argc > 1 && !strcmp(argv[1], "-svc")) {
+		sw_service_gjrn = TRUE;
+		argv++;
+		argc--;
+	}
+	else if (argc > 4 && !strcmp(argv[1], "-svc_re")) {
+		sw_service_gjrn = TRUE;
+		redir_in = atol(argv[2]);
+		redir_out = atol(argv[3]);
+		redir_err = atol(argv[4]);
+#ifdef WIN_NT
+		redir_in = _open_osfhandle(redir_in, 0);
+		redir_out = _open_osfhandle(redir_out, 0);
+		redir_err = _open_osfhandle(redir_err, 0);
+#endif
+		if (redir_in != 0)
+			if (dup2((int) redir_in, 0))
+				close((int) redir_in);
+		if (redir_out != 1)
+			if (dup2((int) redir_out, 1))
+				close((int) redir_out);
+		if (redir_err != 2)
+			if (dup2((int) redir_err, 2))
+				close((int) redir_err);
+		argv += 4;
+		argc -= 4;
+	}
+
+	if (exit_code = setjmp(gjrn_env))
+		exit(exit_code);
+
+	s_argc = argc;
+	s_argv = argv;
+	msg_file = stdout;
+
+	if (s_argc > 1) {
+		s_argv++;
+		s_argc--;
+		MISC_down_case(s_argv[0], string);
+
+		if (string[1] == 'z') {
+			s_argc--;
+			s_argv++;
+			GJRN_printf(2, GDS_VERSION, NULL, NULL, NULL);
+			if (s_argc == 0)
+				exit(FINI_OK);
+		}
+	}
+	else
+		sw_interactive = TRUE;
+
+	p = s_argv[0];
+
+	if (sw_interactive) {
+		p = option_name;
+		GJRN_get_msg(OPTION_PROMPT, msg, NULL, NULL, NULL);	/* Msg 218 enter journal option: */
+		if (!MISC_get_line(msg, p, sizeof(option_name)))
+			MISC_print_journal_syntax();
+	}
+	else {
+		p++;
+		if (!p)
+			MISC_print_journal_syntax();
+	}
+
+	found = FALSE;
+
+	for (i = 0; option_table[i].name; i++) {
+		if ((!strcmp(option_table[i].name, p)) ||
+			((strlen(p) == 1) && (p[0] == option_table[i].name[0]))) {
+			found = TRUE;
+			break;
+		}
+	}
+
+	if (!found)
+		MISC_print_journal_syntax();
+
+	if ((*option_table[i].func_routine) (s_argc, s_argv))
+		exit(FINI_ERROR);
+	else
+		exit(FINI_OK);
+}
+
+
+void GJRN_abort( int number)
+{
+/**************************************
+ *
+ *	G J R N _ a b o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abandon a failed operation.
+ *
+ **************************************/
+
+	if (number) {
+		gjrn_msg_partial(0, 0, 0, 0, 0, 0);	/* msg 0: gbak:: */
+		GJRN_printf(number, NULL, NULL, NULL, NULL);
+	}
+
+	gjrn_msg_partial(0, 0, 0, 0, 0, 0);	/* msg 0: gbak:: */
+	GJRN_printf(1, NULL, NULL, NULL, NULL);	/* msg 1: exiting journal utility due to errors */
+
+	longjmp(gjrn_env, FINI_ERROR);
+}
+
+
+void GJRN_get_msg(
+				  USHORT number,
+				  TEXT * msg, TEXT * arg1, TEXT * arg2, TEXT * arg3)
+{
+/**************************************
+ *
+ *	 G J R N _ g e t _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Gets a string from the msg.gdb filling in the required params.
+ *
+ **************************************/
+
+	gds__msg_format(0, GJRN_MSG_FAC, number, MSG_LENGTH, msg,
+					arg1, arg2, arg3, 0, 0);
+}
+
+
+void GJRN_output( TEXT * format, ...)
+{
+/**************************************
+ *
+ *	G J R N _ o u t p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display a formatted error message
+ *
+ **************************************/
+	va_list ptr;
+	TEXT buffer[MAX_PATH_LENGTH];
+
+	VA_START(ptr, format);
+	vsprintf(buffer, format, ptr);
+	fprintf(stdout, "%s", buffer);
+}
+
+
+void GJRN_printf(
+				 USHORT number,
+				 TEXT * arg1, TEXT * arg2, TEXT * arg3, TEXT * arg4)
+{
+/**************************************
+ *
+ *	G J R N _ p r i n t f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display a formatted error message
+ *
+ **************************************/
+
+	gjrn_msg_put(number, arg1, arg2, arg3, arg4, 0);
+}
+
+
+void GJRN_print_syntax(void)
+{
+/**************************************
+ *
+ *	G J R N _ p r i n t _ s y n t a x
+ *
+ **************************************
+ *
+ * Functional description
+ *	print possible options
+ *
+ **************************************/
+
+	gjrn_msg_partial(0, 0, 0, 0, 0, 0);	/* msg 0: gbak:: */
+	GJRN_printf(3, NULL, NULL, NULL, NULL);	/* msg 3: gjrn [-z] <utility> [-debug] [-verbose] [<options>] [<database name>] */
+}
+
+
+static void gjrn_msg_partial(
+							 USHORT number,
+							 TEXT * arg1,
+							 TEXT * arg2,
+							 TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	g j r n _ m s g _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, 
+ *      format it, and print it
+ *      without a newline.
+ *
+ **************************************/
+	TEXT buffer[MAX_PATH_LENGTH];
+
+	gds__msg_format(0, GJRN_MSG_FAC, number, sizeof(buffer), buffer,
+					arg1, arg2, arg3, arg4, arg5);
+
+	fprintf(msg_file, "%s", buffer);
+}
+
+
+static void gjrn_msg_put(
+						 USHORT number,
+						 TEXT * arg1,
+						 TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	g j r n _ m s g _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, format it, and print it.
+ *
+ **************************************/
+	TEXT buffer[MAX_PATH_LENGTH];
+
+	gds__msg_format(0, GJRN_MSG_FAC, number, sizeof(buffer), buffer,
+					arg1, arg2, arg3, arg4, arg5);
+	fprintf(msg_file, "%s\n", buffer);
+}
+
+
+static USHORT get_new_files( SCHAR ** old_files, SLONG * old_fs)
+{
+/**************************************
+ *
+ *	g e t _ n e w _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get file names for online dump.  
+ *	Returns number of files.
+ *		file size.
+ *
+ **************************************/
+	SSHORT num_files = 0;
+	SCHAR *p, buff[MAX_PATH_LENGTH];
+	SLONG fs = 0;
+	SCHAR msg[MSG_LENGTH];
+
+	GJRN_printf(4, NULL, NULL, NULL, NULL);	/* msg 4: reading online dump parameters */
+
+	GJRN_get_msg(5, msg, 0, 0, 0);	/* msg 5: enter file size or <Ctrl-D> to end input */
+	MISC_get_line(msg, buff, MAX_PATH_LENGTH);
+	if (fs = atoi(buff))
+		*old_fs = fs;
+
+	while (TRUE) {
+		GJRN_get_msg(6, msg, 0, 0, 0);	/* msg 6: enter file name or <Ctrl-D> to end input */
+		buff[0] = 0;
+		MISC_get_line(msg, buff, MAX_PATH_LENGTH);
+		if (!strlen(buff))
+			break;
+		if (buff[0] == ' ')
+			break;
+
+		p = (SCHAR *) gds__alloc(MAX_PATH_LENGTH);
+		strcpy(p, buff);
+		old_files[num_files++] = p;
+	}
+
+	return num_files;
+}
+
+
+static int start_disable( int argc, SCHAR ** argv)
+{
+/**************************************
+ *
+ *	s t a r t _ d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse switches and do work.
+ *
+ **************************************/
+	SLONG *handle;
+	USHORT dpb_length, error;
+	UCHAR *database, string[512], *dpb;
+	STATUS status_vector[20];
+	SCHAR db_name[MAX_PATH_LENGTH];
+	USHORT sw_v, sw_i;
+	TEXT msg[128];
+
+/* Start by parsing switches */
+
+	sw_i = sw_v = FALSE;
+
+	error = FALSE;
+	database = NULL;
+	argv++;
+
+	while (--argc > 0) {
+		if ((*argv)[0] != '-') {
+			if (database) {
+				GJRN_printf(12, database, NULL, NULL, NULL);	/* msg 12: database file name (%s) already specified */
+				longjmp(gjrn_env, FINI_ERROR);
+			}
+			database = *argv++;
+			continue;
+		}
+
+		MISC_down_case(*argv++, string);
+		switch (string[1]) {
+		case 'v':
+			sw_v = TRUE;
+			break;
+
+		case 'i':
+			sw_i = TRUE;
+			break;
+
+		case 'd':
+			break;
+
+		default:
+			MISC_print_journal_syntax();
+			break;
+		}
+	}
+
+	if ((sw_i) && (!database)) {
+		GJRN_get_msg(219, msg, NULL, NULL, NULL);	/* enter database name: */
+		if (MISC_get_line(msg, db_name, sizeof(db_name))) {
+			database = db_name;
+		}
+	}
+
+	if (!database) {
+		GJRN_printf(13, NULL, NULL, NULL, NULL);	/* msg 13: please retry, giving a database name */
+		MISC_print_journal_syntax();
+	}
+
+	dpb = disable_dpb;
+	dpb_length = sizeof(disable_dpb);
+
+	handle = NULL;
+	gds__attach_database(status_vector,
+						 0,
+						 GDS_VAL(database),
+						 GDS_REF(handle), dpb_length, GDS_VAL(dpb));
+
+	if (status_vector[1]) {
+		error = TRUE;
+		gds__print_status(status_vector);
+	}
+
+	if (handle)
+		gds__detach_database(status_vector, GDS_REF(handle));
+
+	return error;
+}
+
+
+static int start_dump( int argc, SCHAR ** argv)
+{
+/**************************************
+ *
+ *	s t a r t _ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse switches and do work.
+ *
+ **************************************/
+	SLONG *handle;
+	USHORT dpb_length, error, i;
+	UCHAR *database, string[512], *p, *q, *dpb;
+	SCHAR db_name[MAX_PATH_LENGTH];
+	STATUS status_vector[20];
+	USHORT old_num_files;
+	SLONG old_file_size;
+	UCHAR *old_files[20];
+	ULONG start_page, start_seqno;
+	USHORT start_file;
+	SLONG fs;
+	SSHORT dump_id;
+	USHORT sw_d, sw_v, sw_i;
+	TEXT msg[128];
+
+/* Start by parsing switches */
+
+	sw_i = sw_d = sw_v = FALSE;
+
+	old_num_files = 0;
+	old_file_size = 0;
+	error = FALSE;
+	database = NULL;
+	argv++;
+
+	while (--argc > 0) {
+		if ((*argv)[0] != '-') {
+			if (database) {
+				GJRN_printf(12, database, NULL, NULL, NULL);	/* msg 12: database file name (%s) already specified */
+				longjmp(gjrn_env, FINI_ERROR);
+			}
+			database = *argv++;
+			continue;
+		}
+
+		MISC_down_case(*argv++, string);
+		switch (string[1]) {
+		case 'd':
+			sw_d = TRUE;
+			break;
+
+		case 'v':
+			sw_v = TRUE;
+			break;
+
+		case 'i':
+			sw_i = TRUE;
+			break;
+
+		case 'o':
+			break;
+
+		case 'f':
+			if (--argc > 0)
+				old_files[old_num_files++] = *argv++;
+			else
+				MISC_print_journal_syntax();
+			break;
+
+		case 's':
+			if (--argc > 0) {
+				old_file_size = atoi(*argv++);
+				if (old_file_size <= 0) {
+					GJRN_printf(16, NULL, NULL, NULL, NULL);	/* msg 16: online dump file size must be greater than zero */
+					longjmp(gjrn_env, FINI_ERROR);
+				}
+			}
+			else
+				MISC_print_journal_syntax();
+			break;
+
+		default:
+			MISC_print_journal_syntax();
+			break;
+		}
+	}
+
+	if (sw_i) {
+		if (!old_num_files)
+			old_num_files = get_new_files(old_files, &fs);
+
+		if (!old_file_size)
+			old_file_size = fs;
+
+		if (!database) {
+			GJRN_get_msg(219, msg, NULL, NULL, NULL);	/* enter database name: */
+			if (MISC_get_line(msg, db_name, sizeof(db_name))) {
+				database = db_name;
+			}
+		}
+	}
+
+	if (!old_num_files)
+		error = TRUE;
+
+	if ((old_num_files > 1) && (!old_file_size))
+		error = TRUE;
+
+	if (error)
+		MISC_print_journal_syntax();
+
+	start_page = 0;
+	start_seqno = 0;
+	start_file = 0;
+	dump_id = 0;
+	fs = old_file_size;
+
+	while (TRUE) {
+		dpb = NULL;
+		dpb_length = 0;
+
+		p = dpb = string;
+		*p++ = gds_dpb_version1;
+		*p++ = gds__dpb_online_dump;
+		*p++ = 1;
+		*p++ = 1;
+
+		if (dump_id) {
+			*p++ = gds__dpb_old_dump_id;
+			*p++ = 2;
+			*p++ = dump_id % 256;
+			*p++ = dump_id / 256;
+		}
+
+		if (old_file_size) {
+			*p++ = gds__dpb_old_file_size;
+			*p++ = 4;
+			for (i = 0; i < 4; i++, old_file_size = old_file_size >> 8)
+				*p++ = old_file_size;
+		}
+
+		if (start_page) {
+			*p++ = gds__dpb_old_start_page;
+			*p++ = 4;
+			for (i = 0; i < 4; i++, start_page = start_page >> 8)
+				*p++ = start_page;
+		}
+
+		if (start_seqno) {
+			*p++ = gds__dpb_old_start_seqno;
+			*p++ = 4;
+			for (i = 0; i < 4; i++, start_seqno = start_seqno >> 8)
+				*p++ = start_seqno;
+		}
+
+		*p++ = gds__dpb_old_num_files;
+		*p++ = 1;
+		*p++ = old_num_files;
+
+
+		*p++ = gds__dpb_old_start_file;
+		*p++ = 1;
+		*p++ = start_file;
+
+		for (i = 0; i < old_num_files; i++) {
+			q = old_files[i];
+
+			*p++ = gds__dpb_old_file;
+			*p++ = strlen(q);
+			for (; *q;)
+				*p++ = *q++;
+		}
+		*p++ = 0;
+		dpb_length = p - dpb;
+
+		handle = NULL;
+		gds__attach_database(status_vector,
+							 0,
+							 GDS_VAL(database),
+							 GDS_REF(handle), dpb_length, GDS_VAL(dpb));
+
+		dump_id = (USHORT) status_vector[3];
+		start_page = status_vector[5];
+		start_seqno = status_vector[7];
+		start_file = status_vector[9];
+
+		/* 
+		 * Handle cases like online dump in progress etc. which are
+		 * fatal.  Can continue only in case of no_space on disk error
+		 */
+
+		if ((error = status_vector[1])
+			&& (status_vector[1] != gds__old_no_space)) {
+			gds__print_status(status_vector);
+
+			if (handle)
+				gds__detach_database(status_vector, GDS_REF(handle));
+
+			longjmp(gjrn_env, FINI_ERROR);
+		}
+
+		if (handle)
+			gds__detach_database(status_vector, GDS_REF(handle));
+
+		/* Check if error && no space */
+
+		if (sw_i && error) {
+			if (old_num_files = get_new_files(old_files, &fs)) {
+				old_file_size = fs;
+				error = FALSE;
+
+				/* read more file names and continue */
+
+				continue;
+			}
+		}
+
+		return error;
+	}
+}
+
+
+static int start_enable( int argc, SCHAR ** argv)
+{
+/**************************************
+ *
+ *	s t a r t _ e n a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse switches and do work.
+ *
+ **************************************/
+	SLONG *handle;
+	USHORT dpb_length, error;
+	UCHAR *database, string[3 * MAX_PATH_LENGTH + 512], *p, *q, *dpb;
+	UCHAR journal[JOURNAL_PATH_LENGTH + 1];
+	UCHAR db_name[JOURNAL_PATH_LENGTH + 1];
+	UCHAR backup[MAX_PATH_LENGTH];
+	STATUS status_vector[20];
+	USHORT sw_d, sw_v, sw_i;
+	USHORT a_flag, j_flag;
+	TEXT msg[128];
+
+/* Start by parsing switches */
+
+	sw_i = sw_d = sw_v = a_flag = j_flag = FALSE;
+
+	error = FALSE;
+	database = NULL;
+	strcpy(journal, ".");
+	argv++;
+
+	while (--argc > 0) {
+		if ((*argv)[0] != '-') {
+			if (database) {
+				GJRN_printf(12, database, NULL, NULL, NULL);	/* msg 12: database file name (%s) already specified */
+				longjmp(gjrn_env, FINI_ERROR);
+			}
+			database = *argv++;
+			continue;
+		}
+
+		MISC_down_case(*argv++, string);
+		switch (string[1]) {
+		case 'a':
+			if (--argc > 0) {
+				a_flag = TRUE;
+				strcpy(backup, *argv++);
+			}
+			else
+				MISC_print_journal_syntax();
+			break;
+
+		case 'v':
+			sw_v = TRUE;
+			break;
+
+		case 'i':
+			sw_i = TRUE;
+			break;
+
+		case 'd':
+			sw_d = TRUE;
+			break;
+
+		case 'e':
+			break;
+
+		case 'j':
+			if (--argc > 0) {
+				strcpy(journal, *argv++);
+				j_flag = TRUE;
+			}
+			else
+				MISC_print_journal_syntax();
+			break;
+
+		default:
+			MISC_print_journal_syntax();
+			break;
+		}
+	}
+
+	if (sw_i) {
+		if (!database) {
+			GJRN_get_msg(DB_PROMPT, msg, NULL, NULL, NULL);	/* Msg 219 enter database name: */
+			if (MISC_get_line(msg, db_name, sizeof(db_name))) {
+				database = db_name;
+			}
+		}
+		if (!a_flag) {
+			GJRN_get_msg(BAK_DIR_PROMPT, msg, NULL, NULL, NULL);	/* Msg 220 enter backup directory name: */
+			if (MISC_get_line(msg, backup, sizeof(backup))) {
+				a_flag = TRUE;
+			}
+		}
+		if (!j_flag) {
+			GJRN_get_msg(JRN_DIR_PROMPT, msg, NULL, NULL, NULL);	/* Msg 91 enter journal directory name: */
+			if (MISC_get_line(msg, journal, sizeof(journal))) {
+				j_flag = TRUE;
+			}
+		}
+	}
+
+	if (!database) {
+		GJRN_printf(13, NULL, NULL, NULL, NULL);	/* msg 13: please retry, giving a database name */
+		MISC_print_journal_syntax();
+	}
+
+	dpb = NULL;
+	dpb_length = 0;
+
+	p = dpb = string;
+	*p++ = gds_dpb_version1;
+	*p++ = gds__dpb_enable_journal;
+	*p++ = strlen(journal);
+	for (q = journal; *q;)
+		*p++ = *q++;
+
+	if (a_flag) {
+		*p++ = gds__dpb_wal_backup_dir;
+		*p++ = strlen(backup);
+		for (q = backup; *q;)
+			*p++ = *q++;
+	}
+	dpb_length = p - dpb;
+
+	handle = NULL;
+	gds__attach_database(status_vector,
+						 0,
+						 GDS_VAL(database),
+						 GDS_REF(handle), dpb_length, GDS_VAL(dpb));
+
+	if (status_vector[1]) {
+		error = TRUE;
+		gds__print_status(status_vector);
+	}
+
+	if (handle)
+		gds__detach_database(status_vector, GDS_REF(handle));
+
+	return error;
+}
diff --git a/src/journal/gjrn_proto.h b/src/journal/gjrn_proto.h
new file mode 100644
index 0000000000..daed47a4a6
--- /dev/null
+++ b/src/journal/gjrn_proto.h
@@ -0,0 +1,33 @@
+/*
+ *	PROGRAM:	JRD Journalling Subsystem
+ *	MODULE:		gjrn_proto.h
+ *	DESCRIPTION:	Prototype header file for gjrn.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JOURNAL_GJRN_PROTO_H_
+#define _JOURNAL_GJRN_PROTO_H_
+
+extern void GJRN_abort(int);
+extern void GJRN_get_msg(USHORT, TEXT *, TEXT *, TEXT *, TEXT *);
+extern void GJRN_output(TEXT *, ...);
+extern void GJRN_printf(USHORT, TEXT *, TEXT *, TEXT *, TEXT *);
+extern void GJRN_print_syntax(void);
+
+#endif /* _JOURNAL_GJRN_PROTO_H_ */
diff --git a/src/journal/journal.gdl b/src/journal/journal.gdl
new file mode 100644
index 0000000000..bd6441c768
--- /dev/null
+++ b/src/journal/journal.gdl
@@ -0,0 +1,143 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+define database "journal.gdb";
+
+define field db_id		long;
+define field file_id		long;
+define field file_sequence	long;
+define field status		varying [15];
+define field dump_id		long;
+define field partition_offset 	long;
+define field file_size		long;
+
+define relation databases
+
+	db_id,
+	db_name		varying [250],
+	status,
+	date_enabled	date,
+	archive_base_name	varying [250],
+	page_size	short,
+	device_type	varying [10],
+	enable_seqno	long,
+	enable_offset	long,
+	use_count	short,
+	last_dump_id	long,
+	archive_mode	varying [15],
+	delete_mode	varying [10]
+	;
+
+define relation journal
+
+	status,
+	use_count,
+	max_retry	long,
+	date_init	date
+	;
+
+define relation journal_files
+
+	db_id,
+	file_id,
+	file_sequence,
+	file_size,
+	partition_offset,
+	log_name	varying [250],
+	archive_name	varying [250],
+	file_status	varying [15], 
+	archive_status	varying [15],
+	delete_status	varying [15],
+	archive_date	date
+	;
+
+define relation log_archive_status
+
+	file_id,
+	process_id	long
+	;
+
+define relation online_dump_files
+
+	dump_id,
+	file_seqno	long,
+	dump_file_name	varying [250],
+	file_size,
+	creation_date	date
+	;
+
+define relation online_dump
+
+	dump_date	date,
+	db_id,
+	dump_id,
+	start_seqno	long,
+	start_offset	long,
+	start_partition_offset	long,
+	end_seqno	long,
+	end_offset	long,
+	end_partition_offset	long
+	;
+
+define relation partial_rebuilds
+	db_id,
+	new_db_name     varying [250],
+	last_log_seq    long
+	;
+
+define index idx_db_id for databases db_id;
+define index idx_db_name for databases db_name;
+define index idx_jrn_files for journal_files db_id, file_sequence;
+define index idx_old_files for online_dump_files dump_id;
+
+define generator db_serial;
+define generator file_serial;
+define generator dump_serial;
+
+
+define trigger db_serial_num for databases
+pre store 0:
+begin
+	new.db_id	= gen_id (db_serial, 1);
+end;
+end_trigger;
+
+define trigger file_serial_num for journal_files
+pre store 0:
+begin
+	new.file_id	= gen_id (file_serial, 1);
+end;
+end_trigger;
+
+define trigger dump_serial_num for online_dump
+pre store 0:
+begin
+	new.dump_id	= gen_id (dump_serial, 1);
+end;
+end_trigger;
+
+define trigger old_serial_num for online_dump
+pre modify 0:
+begin
+	for d in databases with d.db_id = old.db_id
+	    modify d using
+		d.last_dump_id  = old.dump_id
+	    end_modify;
+        end_for;
+end;
+end_trigger;
diff --git a/src/journal/journal.h b/src/journal/journal.h
new file mode 100644
index 0000000000..9716d6df72
--- /dev/null
+++ b/src/journal/journal.h
@@ -0,0 +1,131 @@
+/*
+ *	PROGRAM:	JRD Journal Server
+ *	MODULE:		journal.h
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JOURNAL_JOURNAL_H_
+#define _JOURNAL_JOURNAL_H_
+
+#define JOURNAL_PATH_LENGTH     257
+#define MSG_LENGTH		1024
+
+#define GJRN_MSG_FAC		16
+
+#ifndef MAX_PATH_LENGTH
+#define MAX_PATH_LENGTH         512
+#endif
+
+#define ARCHIVED		"archived"
+#define ARCHIVE_PENDING		"pending"
+#define NOT_ARCHIVED		"not archived"
+
+#define LOG_DELETED		"deleted"
+#define LOG_NOT_DELETED		"not deleted"
+
+#define LOG_OPENED		"opened"
+#define LOG_CLOSED		"closed"
+
+#define DB_DISABLED		"disabled"
+#define DB_ACTIVE		"active"
+#define DB_INACTIVE		"inactive"
+
+#define MEDIA_DISK		"disk"
+
+#define NEED_ARCH		"needs archive"
+#define NO_ARCH			"no archive"
+
+#define DB_DELETE		"delete"
+#define DB_RETAIN		"retain"
+
+/* Define global switches */
+
+extern USHORT sw_service_gjrn;
+
+/* Define global console messages */
+
+/* Commands */
+
+enum cmd_t {
+	cmd_none,
+	cmd_disable,				/* disable database */
+	cmd_drop,					/* drop database records */
+	cmd_erase,					/* erase database records  for disabled databases */
+	cmd_exit,
+	cmd_help,					/* Get help */
+	cmd_reset,					/* reset delete database */
+	cmd_set,					/* set delete flag for database */
+	cmd_shutdown,				/* Shut down journalling cleanly */
+	cmd_status,					/* Report status */
+	cmd_version,				/* Show version */
+	cmd_archive					/* restart archive for a database */
+};
+
+typedef struct cmds {
+	TEXT *cmds_string;
+	enum cmd_t cmds_command;
+	int cmds_msg;
+	TEXT *cmds_help;
+} CMDS;
+
+/* Message codes */
+
+#define JRN_DIR_PROMPT	91		/* enter journal directory name: */
+#define CON_DISCONN	95			/* Console disconnected */
+#define PROCESS_DISCONN	96		/* Process disconnect */
+#define JRN_DISABL	97			/* Journaling disabled */
+#define SHUTDOWN_REQ	98		/* Shutdown requested */
+#define PS_OFF		99			/* Process sign_off */
+#define PS_ON		100			/* Process sign_on */
+#define JRN_ENABL	101			/* Journaling enabled */
+#define JRN_START	102			/* Journal server started */
+#define JRN_SHUTDOWN	103		/* Journal server shutdown */
+#define RELEASE_ERR	108			/* Release connection failed. */
+#define GEN_ERR		111			/* Error occurred during \"%s\" */
+#define COMMDS		112			/* Commands are: */
+#define CMD_ERR		116			/* Don't understand command \"%s\" */
+#define JRN_MSG_ERR	123			/* don't recognize journal message %d */
+#define CLOSE_ERR	136			/* Journal not properly closed */
+#define DB_RESET	137			/* \tResetting database \"%s\" (%d) */
+#define DOS_ERR1	139			/* DOS error code %ld */
+#define CON_CONN	146			/* Console connected */
+#define DOS_ERR2	173			/* Dos error %d */
+#define DOS_ERR3	174			/* Dos error %s */
+#define MBOX_MESS_ERR	175		/* Don't understand mailbox message type %d */
+#define NT_ERR		211			/* Windows NT error %d */
+#define CONSOLE_PROG	215		/* Journal server console program */
+#define SERV_EOF	216			/* unexpected end of file from server */
+#define MAILBOX_ERR	217			/* Can't open mailbox %s */
+#define OPTION_PROMPT	218		/* enter journal option: */
+#define DB_PROMPT	219			/* enter database name: */
+#define BAK_DIR_PROMPT	220		/* enter backup directory name: */
+#define JRN_VERSION	221			/* enter backup directory name: */
+#define JRN_FILE_ERR	222		/* "couldn't open journal file \"%s\"-" */
+#define JRN_FILE_OPEN	223		/* Journal file \"%s\" opened */
+#define CLOSE_ARG	224			/* Optional close argument is a journal file sequence number */
+#define SEQ_NUM_ERR	225			/* Journal file sequence number %ld does not exist */
+#define SUB_SYS_ERR	226			/* unsupported journal sub-system version (expected %d, encountered %d) 
+								   #define OUTFILE_ERR  227 /* no output file */
+#define JRN_SUSPND	228			/* Journaling suspended */
+#define OUTFILE		229			/* current output file: %s */
+#define OUTFILE_QUEUE	230		/* Output files queued: */
+#define KNOWN_DBS	231			/* Known databases and connections: */
+
+#endif /* _JOURNAL_JOURNAL_H_ */
diff --git a/src/journal/journal_vms.e b/src/journal/journal_vms.e
new file mode 100644
index 0000000000..cb4ec46955
--- /dev/null
+++ b/src/journal/journal_vms.e
@@ -0,0 +1,1890 @@
+/*
+ *	PROGRAM:	JRD Journal Server
+ *	MODULE:		journal.e
+ *	DESCRIPTION:	Journal server for intermediate file journalling
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+#include "../jrd/common.h"
+#include "../jrd/gds.h"
+
+#ifdef VMS
+#include <time.h>
+#include <types.h>
+#include <timeb.h>
+#include rms
+#include iodef
+#include descrip
+#include ssdef
+#include jpidef
+#define SYS_ERROR	gds_arg_vms
+#endif
+
+#ifndef VMS
+#include <signal.h>
+#include <sys/time.h>
+#include <sys/types.h>
+#include <sys/timeb.h>
+#include <sys/file.h>
+#define SYS_ERROR	gds_arg_unix
+
+extern int errno;
+#endif
+
+#ifndef JOURNAL_DB
+#define JOURNAL_DB	"journal.gdb"
+#endif
+
+typedef struct blk {
+	UCHAR blk_type;
+	UCHAR blk_pool_id;
+	USHORT blk_length;
+} *BLK;
+
+#include "../jrd/jrn.h"
+#include "../jrd/license.h"
+
+DATABASE DB = "journal.gdb";
+
+extern struct tm *localtime();
+extern UCHAR *gds__alloc();
+extern DIR JIO_next_dir();
+
+/* Commands */
+
+enum cmd_t {
+	cmd_none,
+	cmd_que,					/* Que a file or device */
+	cmd_close,					/* Close current file */
+	cmd_shutdown,				/* Shut down journalling cleanly */
+	cmd_suspend,				/* Suspend all journalling */
+	cmd_resume,					/* Resume journalling */
+	cmd_status,					/* Report status */
+	cmd_help,					/* Get help */
+	cmd_version,				/* Show version */
+	cmd_print,					/* Print file header */
+	cmd_dump,					/* Dump journal file */
+	cmd_verbose,				/* yak it up */
+	cmd_flush,					/* Flush the journal and suspend */
+	cmd_quiet					/* mums the word */
+};
+
+typedef struct cmds {
+	TEXT *cmds_string;
+	enum cmd_t cmds_command;
+	TEXT *cmds_help;
+} CMDS;
+
+static CMDS commands[] = {
+	"QUEUE", cmd_que, "\tque a file/device for journaling",
+	"CLOSE", cmd_close, "\tclose the current journal file/device",
+	"STATUS", cmd_status, "\tdisplay status of journal server",
+	"SHUTDOWN", cmd_shutdown, "\tshutdown journal server",
+	"SUSPEND", cmd_suspend, "\tsuspend journaling",
+	"RESUME", cmd_resume, "\tresume journaling after suspend",
+	"HELP", cmd_help, "\tdisplay this text",
+	"VERSION", cmd_version, "\tdisplay software version number",
+	"PRINT", cmd_print, "\tprint state of journal file",
+	"DUMP", cmd_dump, "\tdump contents of journal file",
+	"VERBOSE", cmd_verbose, "\tprint activity",
+	"QUIET", cmd_quiet, "\tdon't print activity",
+	"FLUSH", cmd_flush, "\tflush journal and suspend journaling",
+	NULL, cmd_none
+};
+
+/* Active database block */
+
+typedef struct dbb {
+	struct dbb *dbb_next;		/* Next block */
+	USHORT dbb_generation;		/* Generation of database */
+	USHORT dbb_id;				/* Journal file Id of database */
+	USHORT dbb_use_count;		/* Active stream on database ??? */
+	SLONG dbb_handle;			/* Intermediate journal file handle */
+	TEXT dbb_filename[1];		/* Database filename */
+} *DBB;
+
+/* Journal data sinks */
+
+typedef struct sink {
+	struct sink *sink_next;		/* Next available sink, if any */
+	int sink_channel;			/* Stream for output */
+	USHORT sink_isi;			/* RMS internal stream id */
+	USHORT sink_sequence;		/* Sequence number of journal item */
+	USHORT sink_flags;			/* Misc garbage */
+	USHORT sink_length;			/* File name length */
+	TEXT sink_filename[1];		/* File name */
+} *SINK;
+
+#define sink_active	1			/* Sink is, or was, active */
+#define sink_magtape	2		/* Sink is magtape */
+#define sink_open	4			/* File is open */
+
+static JRN init();
+static int signal_quit();
+static DBB databases, lookup_database(), make_database(), start_database(),
+find_database();
+static SINK create_sink();
+
+static SINK sinks;
+static USHORT state, max_handle, dump_position[2], sw_verbose,
+	sw_flush, flush_position[2], batch_flag;
+static ULONG record_number;
+static UCHAR message_buffer[MAX_RECORD];
+static DBB *dbb_handles;
+
+#define state_shut_pending	1	/* Shutdown has been requested */
+#define state_shutdown		2	/* Shutdown in progress */
+#define state_suspend		4	/* Suspend operation */
+#define state_initialize	8	/* Initializing operation */
+#define state_reset		16		/* Reset after improper close */
+#define state_status		32	/* Report status */
+
+
+/* Misc VMS crud */
+
+#ifdef VMS
+
+#define SYS_INPUT	"sys$input"
+#define EVENT_FLAG	15
+
+static USHORT chan;
+
+static struct FAB fab;
+static struct RAB rab;
+#endif
+
+
+main(argc, argv)
+	 int argc;
+	 UCHAR *argv[];
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open server mailbox, ready server database, and wait for something
+ *	to happen.
+ *
+ **************************************/
+	DBB database;
+	SINK sink;
+	UCHAR command_buffer[256];
+	UCHAR **arg_end, *p, *prompt;
+	JRN journal;
+	USHORT wait, position[2];
+	STATUS status_vector[20];
+	SLONG sequence;
+	SSHORT poll, n;
+
+#ifdef VMS
+	fab = cc$rms_fab;
+	rab = cc$rms_rab;
+	fab.fab$b_fac = FAB$M_GET | FAB$M_PUT;
+	fab.fab$w_mrs = MAX_RECORD;
+	fab.fab$b_rfm = FAB$C_VAR;
+	fab.fab$b_shr = FAB$M_NIL;
+
+	rab.rab$l_fab = &fab;
+	rab.rab$l_rop = RAB$M_EOF;
+#else
+
+	signal(SIGQUIT, signal_quit);
+	signal(SIGINT, signal_quit);
+
+#endif
+
+	journal = init(position, status_vector);
+	dump_position[0] = position[0];
+	dump_position[1] = position[1];
+
+	put_message("Journal server started", NULL);
+	state = state_status;
+
+	for (arg_end = argv + argc; ++argv < arg_end;) {
+		p = *argv;
+		if (*p++ != '-')
+			continue;
+		while (*p)
+			switch (*p++) {
+			case 'z':
+				printf("Journal server version %s\n", GDS_VERSION);
+			}
+	}
+
+/* Check in with database */
+
+	READY JOURNAL_DB;
+	START_TRANSACTION;
+	state |= state_initialize;
+
+	FOR X IN JOURNAL state &= ~state_initialize;
+        if (X.USE_COUNT) {
+            printf("Journal not properly closed\n");
+            FOR J IN JOURNAL_FILES WITH J.STATUS EQ "active"
+                MODIFY J USING 
+                    strcpy(J.STATUS, "closed");
+                END_MODIFY;
+            END_FOR;
+            FOR D IN DATABASES WITH D.STATUS EQ "active" AND D.USE_COUNT NE 0
+	            MODIFY D USING
+                    printf("\tResetting database \"%s\" (%d)\n", D.FILENAME, D.ID);
+                    strcpy(D.STATUS, "inactive");
+                END_MODIFY;
+	        END_FOR;
+            state |= state_reset;
+        }
+        if (!strcmp(X.STATUS, "suspended"))
+            state |= state_suspend;
+        MODIFY X USING 
+            X.USE_COUNT = 1;
+        END_MODIFY;
+	END_FOR;
+
+    if (state & state_initialize) {
+		STORE X IN JOURNAL 
+            strcpy(X.STATUS, "active");
+	        X.USE_COUNT = 1;
+            X.ID = 0;
+            X.SEQUENCE = 0;
+            time_stamp(&X.DATE_INITIALIZED);
+        END_STORE;
+    }
+
+    FOR J IN JOURNAL_FILES WITH
+        J.STATUS EQ "active" OR J.STATUS EQ "queued"
+        SORTED BY J.SEQUENCE 
+
+        sink = create_sink(J.FILENAME, FALSE);
+        sink->sink_sequence = J.SEQUENCE;
+        if (!strcmp(J.STATUS, "active")) {
+            sink->sink_flags |= sink_active;
+            open_sink(sink);
+        }
+    END_FOR;
+
+    FOR D IN DATABASES WITH D.STATUS EQ "active"
+        database = make_database(D.FILENAME, strlen(D.FILENAME), D.HANDLE);
+        database->dbb_id = D.ID;
+	END_FOR;
+
+	commit();
+
+/* Sit in loop waiting for either command input or message from client */
+
+	if (sinks)
+		state |= state_suspend;
+
+	wait = 0;
+	sequence = -1;
+	poll = 0;
+	prompt = NULL;
+
+	while (!(state & state_shutdown)) {
+		if (state & state_shut_pending)
+			break;
+
+		while (sinks && !(sinks->sink_flags & sink_open)) {
+			open_sink(sinks);
+			commit();
+		}
+
+		if (state & state_status) {
+			state &= ~state_status;
+			report_status();
+		}
+
+		if (!sinks || (state & state_suspend)) {
+			while (!(n = get_command(command_buffer, 30, "suspended: ")));
+			if (n == -1)
+				state |= state_shut_pending;
+			else
+				process_command(command_buffer, journal);
+			prompt = "gltj> ";
+		}
+		else if (!poll && (n = get_command(command_buffer, wait, prompt))) {
+			if (n == -1)
+				state |= state_shut_pending;
+			else {
+				prompt = "gltj> ";
+				process_command(command_buffer, journal);
+				if (batch_flag)
+					poll = 1;
+			}
+		}
+		else if (n =
+				 get_message(journal, message_buffer, sizeof(message_buffer),
+							 position)) {
+			prompt = NULL;
+			if (--poll < 0)
+				poll = 20;
+			else if (batch_flag)
+				poll = 1000;
+			process_message(message_buffer, n);
+			sequence = ((JRNH *) message_buffer)->jrnh_series;
+			if (!(sequence % 1000))
+				checkpoint(journal, position, sequence);
+			wait = 0;
+			dump_position[0] = position[0];
+			dump_position[1] = position[1];
+			if (sw_flush &&
+				position[0] == flush_position[0] &&
+				position[1] >= flush_position[1]) {
+				sw_flush = FALSE;
+				state |= state_suspend;
+			}
+		}
+		else {
+			prompt = NULL;
+			poll = 0;
+			if (sequence != -1) {
+				checkpoint(journal, position, record_number);
+				sequence = -1;
+			}
+			wait = 10;
+			if (sw_flush) {
+				sw_flush = FALSE;
+				state |= state_suspend;
+			}
+		}
+	}
+
+/* Close out current file, if there is one */
+
+	if (sinks && (sinks->sink_flags & sink_open))
+		close_sink(sinks, "active");
+
+/* Check out with database */
+
+	FOR X IN JOURNAL 
+       MODIFY X USING 
+           X.USE_COUNT = 0;
+	       X.RECORD_NUMBER = record_number;
+       END_MODIFY;
+	END_FOR;
+
+	for (database = databases; database; database = database->dbb_next)
+		if (database->dbb_use_count) {
+			database->dbb_use_count = 0;
+			set_use_count(database);
+		}
+
+	put_message("Journal server shutdown", NULL);
+
+	COMMIT;
+	FINISH;
+}
+
+
+ERR_post(stuff)
+	 STATUS stuff;
+{
+/**************************************
+ *
+ *	E R R _ p o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an error sequence to the status vector.  Since an error
+ *	sequence can, in theory, be arbitrarily lock, pull a cheap
+ *	trick to get the address of the argument vector.
+ *
+ **************************************/
+	STATUS *p, *q, status_vector[20];
+	int type;
+
+/* Get the addresses of the argument vector and the status vector, and do
+   word-wise copy. */
+
+	p = status_vector;
+	q = &stuff;
+
+/* Copy first argument */
+
+	*p++ = gds_arg_gds;
+	*p++ = *((SLONG *) q)++;
+
+/* Pick up remaining args */
+
+	while (*p++ = type = *((int *) q)++)
+		switch (type) {
+		case gds_arg_gds:
+			*p++ = *((SLONG *) q)++;
+			break;
+
+		case gds_arg_number:
+		case gds_arg_vms:
+		case gds_arg_unix:
+		case gds_arg_domain:
+		case gds_arg_mpexl:
+			*p++ = *((int *) q)++;
+			break;
+
+		case gds_arg_string:
+		case gds_arg_interpreted:
+			*p++ = *q++;
+			break;
+
+		case gds_arg_cstring:
+			*p++ = *((int *) q)++;
+			*p++ = *q++;
+			break;
+		}
+
+	gds__print_status(status_vector);
+	exit(FINI_ERROR);
+}
+
+
+static UCHAR *alloc(size)
+	 USHORT size;
+{
+/**************************************
+ *
+ *	a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block.
+ *
+ **************************************/
+	UCHAR *blk, *p;
+
+	p = blk = gds__alloc((SLONG) size);
+	do
+		*p++ = 0;
+	while (--size);
+
+	return blk;
+}
+
+
+static checkpoint(journal, position, record_number)
+	 JRN journal;
+	 USHORT *position;
+	 SLONG record_number;
+{
+/**************************************
+ *
+ *	c h e c k p o i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkpoint the journal.
+ *
+ **************************************/
+
+#ifdef VMS
+	sys$flush(&rab);
+#endif
+
+	JIO_truncate(journal, position, record_number);
+}
+
+
+static clear(block, size)
+	 UCHAR *block;
+	 USHORT size;
+{
+/**************************************
+ *
+ *	c l e a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear a hunk of memory.
+ *
+ **************************************/
+
+	if (size)
+		do
+			*block++ = 0;
+		while (--size);
+}
+
+
+
+static close_sink(sink, sink_status)
+	 SINK sink;
+	 UCHAR *sink_status;
+{
+/**************************************
+ *
+ *	c l o s e _ s i n k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a data sink.
+ *
+ **************************************/
+	SINK *ptr;
+	USHORT length;
+
+/* Close sink */
+
+	if (sink->sink_flags & sink_open) {
+#ifdef VMS
+		fab.fab$w_ifi = sink->sink_channel;
+		sys$close(&fab);
+#endif
+
+#ifndef VMS
+		close(sink->sink_channel);
+#endif
+		sink->sink_flags &= ~sink_open;
+	}
+
+/* Check out with database */
+
+	FOR X IN JOURNAL_FILES WITH X.SEQUENCE == sink->sink_sequence
+        MODIFY X USING 
+           strcpy(X.STATUS, sink_status);
+	    END_MODIFY;
+	END_FOR;
+
+/* Take it out of list of sinks */
+
+	for (ptr = &sinks; *ptr; ptr = &(*ptr)->sink_next)
+		if (*ptr == sink) {
+			*ptr = sink->sink_next;
+			break;
+		}
+}
+
+
+static commit()
+{
+/**************************************
+ *
+ *	c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit the current transaction and start another.
+ *
+ **************************************/
+
+	COMMIT;
+	START_TRANSACTION;
+}
+
+
+static SINK create_sink(string, flag)
+	 UCHAR *string;
+	 USHORT flag;
+{
+/**************************************
+ *
+ *	c r e a t e _ s i n k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new data sink, but don't open it (yet).
+ *
+ **************************************/
+	USHORT n, l;
+	SINK sink, *ptr;
+
+/* Find the end of the sink chain */
+
+	for (ptr = &sinks; *ptr; ptr = &(*ptr)->sink_next);
+
+/* Allocate a block */
+
+	l = strlen(string);
+	*ptr = sink = (SINK) alloc(sizeof(struct sink) + l);
+	sink->sink_length = l;
+	strcpy(sink->sink_filename, string);
+
+	if (!flag)
+		return sink;
+
+/* Check in with database */
+
+    FOR X IN JOURNAL 
+        MODIFY X USING 
+           sink->sink_sequence = ++X.SEQUENCE;
+	    END_MODIFY;
+	END_FOR;
+
+	STORE X IN JOURNAL_FILES 
+        strcpy(X.FILENAME, sink->sink_filename);
+	    X.SEQUENCE = sink->sink_sequence;
+	    strcpy(X.STATUS, "queued");
+	END_STORE 
+
+    return sink;
+}
+
+
+static delete_database(database)
+	 DBB database;
+{
+/**************************************
+ *
+ *	d e l e t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've lost interest in a database.  Get rid of its block.
+ *
+ **************************************/
+	DBB *ptr;
+
+/* Disconnect block from data structures */
+
+	for (ptr = &databases; *ptr; ptr = &(*ptr)->dbb_next)
+		if (*ptr == database) {
+			*ptr = database->dbb_next;
+			break;
+		}
+
+	free(database);
+}
+
+
+static delete_sink(sink)
+	 SINK sink;
+{
+/**************************************
+ *
+ *	d e l e t e _ s i n k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of a sink block.
+ *
+ **************************************/
+	SINK *ptr;
+
+	for (ptr = &sinks; *ptr; ptr = &(*ptr)->sink_next)
+		if (*ptr == sink) {
+			*ptr = sink->sink_next;
+			break;
+		}
+
+	free(sink);
+}
+
+
+static disable(msg, length)
+	 JRNC *msg;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disable journalling for a database.
+ *
+ **************************************/
+	DBB database;
+	JRNR reply;
+	UCHAR *p, *q;
+	USHORT l;
+
+	database = find_database(msg->jrnc_header.jrnh_handle);
+	msg->jrnc_header.jrnh_handle = database->dbb_id;
+
+/* Journal the message */
+
+	write_data(database, msg, length);
+	put_message("Journaling disabled", database);
+
+	FOR D IN DATABASES WITH D.ID EQ database->dbb_id
+	   MODIFY D USING 
+           strcpy(D.STATUS, "disabled");
+	   END_MODIFY;
+	END_FOR;
+
+	commit();
+
+	delete_database(database);
+}
+
+
+static dump(journal)
+	 JRN journal;
+{
+/**************************************
+ *
+ *	d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump contents of journal.
+ *
+ **************************************/
+	SSHORT n;
+
+	while (n = JIO_read(journal, dump_position,
+						message_buffer, sizeof(message_buffer)))
+			print_record(message_buffer, n);
+}
+
+
+static enable(msg, length)
+	 JRNC *msg;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	e n a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enable journalling for a database.
+ *
+ **************************************/
+	DBB database;
+	JRNR reply;
+	UCHAR *p, *q;
+	USHORT l;
+
+/* If database already exists, wipe out old connections and start again */
+
+	if (database = lookup_database(msg->jrnc_filename, msg->jrnc_length))
+		delete_database(database);
+
+/* Make up database block */
+
+	database =
+		start_database(msg->jrnc_filename, msg->jrnc_length,
+					   msg->jrnc_header.jrnh_handle);
+
+/* Journal the message */
+
+	write_data(database, msg, length);
+}
+
+
+static error(filename, errno, string)
+	 TEXT *filename;
+	 int errno;
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've had an unexpected error -- punt.
+ *
+ **************************************/
+	STATUS status_vector[20], *s;
+
+	s = status_vector;
+	*s++ = gds_arg_gds;
+	*s++ = gds__io_error, *s++ = gds_arg_string;
+	*s++ = (SLONG) string;
+	*s++ = gds_arg_string;
+	*s++ = (SLONG) filename;
+	*s++ = SYS_ERROR;
+	*s++ = errno;
+	*s = 0;
+
+	gds__print_status(status_vector);
+}
+
+
+static DBB find_database(handle)
+	 SLONG handle;
+{
+/**************************************
+ *
+ *	f i n d _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find database block from intermediate journal file handle.
+ *
+ **************************************/
+	TEXT *p;
+	DBB database;
+
+	if (dbb_handles && handle < max_handle &&
+		(database = dbb_handles[handle])) return database;
+
+	p = "ORPHAN RECORDS";
+
+	return start_database(p, strlen(p), handle);
+}
+
+
+static free(blk)
+	 UCHAR *blk;
+{
+/**************************************
+ *
+ *	f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free a block.
+ *
+ **************************************/
+
+	gds__free(blk);
+}
+
+
+#ifdef VMS
+static get_command(buffer, wait, prompt)
+	 TEXT *buffer;
+	 USHORT wait;
+	 SCHAR *prompt;
+{
+/**************************************
+ *
+ *	g e t _ c o m m a n d    ( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	If a command is pending, gobble it up.  Return 1 if
+ *	we got something, 0 if nothing was pending, and -1
+ *	for end of file.
+ *
+ **************************************/
+	SSHORT item, iosb[4], length;
+	SLONG status, mode;
+	struct dsc$descriptor string;
+
+/* If this is the first time, get things moving */
+
+	if (!chan && !batch_flag) {
+		/* Determine if this is an interactive process.
+		   If so, use qio.  Otherwise use fgets. */
+
+		item = JPI$_MODE;
+		status = lib$getjpi(&item, NULL, NULL, &mode, NULL, NULL);
+		if ((status & 1) && mode != JPI$K_INTERACTIVE)
+			batch_flag = TRUE;
+		else {
+			string.dsc$b_class = DSC$K_CLASS_S;
+			string.dsc$b_dtype = DSC$K_DTYPE_T;
+			string.dsc$w_length = sizeof(SYS_INPUT) - 1;
+			string.dsc$a_pointer = SYS_INPUT;
+			status = sys$assign(&string, &chan, 0, 0);
+			if (!(status & 1))
+				lib$signal(status);
+		}
+	}
+
+	if (prompt) {
+		fputs(prompt, stdout);
+		fflush(stdout);
+	}
+
+	if (batch_flag) {
+		/* If we're not running interactively, shut things down if
+		   we encounter an input error or EOF. */
+
+		if (!fgets(buffer, 256, stdin))
+			return -1;
+		length = strlen(buffer);
+	}
+	else {
+		status = sys$qiow(EVENT_FLAG,	/* Event flag */
+						  chan,	/* Channel */
+						  IO$_READVBLK | IO$M_TIMED,	/* Function */
+						  iosb,	/* IO status block */
+						  NULL,	/* AST address */
+						  NULL,	/* AST parameter */
+						  buffer,	/* P1 (buffer) */
+						  80,	/* P2 (length) */
+						  wait,	/* P3 (virtual block) */
+						  NULL, NULL, NULL);
+
+		if (!(status & 1))
+			lib$signal(status);
+
+		/* If we got an error, give up in disgust */
+
+		if (iosb[0] != SS$_TIMEOUT && iosb[0] != 1)
+			lib$signal(iosb[0]);
+
+		length = iosb[1];
+
+		if (length && iosb[0] == SS$_TIMEOUT) {
+			status = sys$qiow(EVENT_FLAG,	/* Event flag */
+							  chan,	/* Channel */
+							  IO$_READVBLK,	/* Function */
+							  iosb,	/* IO status block */
+							  NULL,	/* AST address */
+							  NULL,	/* AST parameter */
+							  buffer + length,	/* P1 (buffer) */
+							  80,	/* P2 (length) */
+							  0,	/* P3 (virtual block) */
+							  NULL, NULL, NULL);
+			length += iosb[1];
+		}
+
+		buffer[length] = 0;
+	}
+
+	return length;
+}
+
+
+static get_command_ast()
+{
+/**************************************
+ *
+ *	g e t _ c o m m a n d _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ * 	Read has completed, do something.
+ *
+ **************************************/
+
+	sys$wake(0, 0);
+}
+#endif
+
+
+#ifndef VMS
+static get_command(buffer, wait, prompt)
+	 TEXT *buffer;
+	 USHORT wait;
+	 SCHAR *prompt;
+{
+/**************************************
+ *
+ *	g e t _ c o m m a n d	( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	If a command is pending, gobble it up.  Return 1 if
+ *	we got something, 0 if nothing was pending, and -1
+ *	for end of file.
+ *
+ **************************************/
+	TEXT *p;
+	int c, reads, writes, excepts;
+	struct timeval timeout;
+
+	if (prompt) {
+		fputs(prompt, stdout);
+		fflush(stdout);
+	}
+
+	timeout.tv_sec = wait;
+	timeout.tv_usec = 0;
+	reads = 1;
+	writes = 0;
+	excepts = 0;
+	select(5, &reads, &writes, &excepts, &timeout);
+	p = buffer;
+
+	if (!reads)
+		return 0;
+
+	while ((c = getchar()) != '\n')
+		if (c == EOF)
+			return -1;
+		else
+			*p++ = c;
+
+	*p = 0;
+
+	return p - buffer;
+}
+#endif
+
+
+static get_message(journal, buffer, size, position)
+	 JRN journal;
+	 UCHAR *buffer;
+	 USHORT size;
+	 USHORT position[2];
+{
+/**************************************
+ *
+ *	g e t _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get message if one is waiting.  If we get one, return length.
+ *	If not, return 0.  If something goes wrong, return -1.
+ *
+ **************************************/
+
+	return JIO_read(journal, position, buffer, size);
+}
+
+
+static JRN init(position, status_vector)
+	 USHORT position[2];
+	 STATUS *status_vector;
+{
+/**************************************
+ *
+ *	i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkin with journal file.
+ *
+ **************************************/
+	JRN journal;
+	TEXT *p, *q, pwd[128];
+	USHORT l;
+
+#ifndef VMS
+	LOCK_init(status_vector);
+#endif
+
+/* Allocate and initialize journal block, and open journal file */
+
+	l = sizeof(struct jrn) + sizeof(JOURNAL_FILE);
+
+#ifndef VMS
+	getwd(pwd);
+	l += strlen(pwd);
+#endif
+
+	journal = (JRN) gds__alloc((SLONG) l);
+	clear(journal, l);
+	p = journal->jrn_server;
+
+#ifndef VMS
+	for (q = pwd; *q;)
+		*p++ = *q++;
+	*p++ = '/';
+#endif
+
+	strcpy(p, JOURNAL_FILE);
+	journal->jrn_status_vector = status_vector;
+
+	JIO_open(journal);
+	record_number = JIO_rewind(journal, position);
+
+	return journal;
+}
+
+
+static DBB lookup_database(string, length)
+	 TEXT *string;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	l o o k u p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the database if it is active.
+ *
+ **************************************/
+	DBB database;
+	USHORT l;
+	TEXT *p, *q;
+
+	for (database = databases; database; database = database->dbb_next) {
+		p = string;
+		q = database->dbb_filename;
+		for (l = length; l && *q; --l, p++, q++)
+			if (*p != *q)
+				break;
+		if (!l && !*q)
+			return database;
+	}
+
+	return NULL;
+}
+
+
+static DBB make_database(string, length, handle)
+	 UCHAR *string;
+	 USHORT length;
+	 SLONG handle;
+{
+/**************************************
+ *
+ *	m a k e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make up a database block.
+ *
+ **************************************/
+	DBB database, *temp;
+	USHORT n, l;
+
+/* Allocate database block */
+
+	database = (DBB) alloc(sizeof(struct dbb) + length);
+	database->dbb_next = databases;
+	databases = database;
+
+	strncpy(database->dbb_filename, string, length);
+
+/* Checkin with database handle vector */
+
+	if (!dbb_handles || handle >= max_handle) {
+		n = (handle + 49) / 50 * 50;
+		l = n * sizeof(DBB);
+		temp = (DBB *) alloc(l);
+		if (dbb_handles) {
+			move(dbb_handles, temp, max_handle * sizeof(DBB));
+			free(dbb_handles);
+		}
+		dbb_handles = temp;
+		max_handle = n;
+	}
+
+	dbb_handles[handle] = database;
+
+	return database;
+}
+
+
+static move(from, to, length)
+	 UCHAR *from;
+	 UCHAR *to;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move some bytes.
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+}
+
+
+static open_sink(sink)
+	 SINK sink;
+{
+/**************************************
+ *
+ *	o p e n _ s i n k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a data sink.
+ *
+ **************************************/
+	USHORT length;
+	TEXT s[128], *op, *p, *q;
+	int status, flags, n;
+	SLONG filenum, domain, recfm, access, exclusive, multi, lrecl,
+		buffering, disposition, binary;
+
+#ifdef VMS
+	fab.fab$w_ifi = 0;
+	fab.fab$l_fna = sink->sink_filename;
+	fab.fab$b_fns = strlen(fab.fab$l_fna);
+
+	if (sink->sink_flags & sink_active) {
+		op = "sys$open";
+		status = sys$open(&fab);
+	}
+	else {
+		status = sys$create(&fab);
+		op = "sys$create";
+	}
+
+	if (status & 1) {
+		status = sys$connect(&rab);
+		if (!(status & 1))
+			sys$close(&fab);
+		sink->sink_isi = rab.rab$w_isi;
+	}
+
+	sink->sink_channel = fab.fab$w_ifi;
+#endif
+
+#ifndef VMS
+	flags =
+		(sink->sink_flags & sink_active) ? O_WRONLY | O_APPEND : O_WRONLY |
+		O_EXCL | O_CREAT;
+	sink->sink_channel = open(sink->sink_filename, flags, 0x400);
+
+	if (sink->sink_channel == -1)
+		sink->sink_channel = 0;
+
+	op = "open";
+	status = errno;
+#endif
+
+    FOR X IN JOURNAL_FILES WITH X.SEQUENCE == sink->sink_sequence
+	   if (!sink->sink_channel) 
+           ERASE X
+       else
+	       MODIFY X USING 
+               strcpy(X.STATUS, "active");
+               if (!(sink->sink_flags & sink_active))
+                   time_stamp(&X.DATE_OPENED);
+               if (!X.RECORD_NUMBER)
+                   X.RECORD_NUMBER = record_number;
+           END_MODIFY;
+	END_FOR;
+
+	if (!sink->sink_channel) {
+		error(sink->sink_filename, status, op);
+		delete_sink(sink);
+	}
+
+	sprintf(s, "Journal file \"%s\" opened", sink->sink_filename);
+	put_message(s, NULL);
+	sink->sink_flags |= sink_open;
+}
+
+
+static print_header(journal)
+	 JRN journal;
+{
+/**************************************
+ *
+ *	p r i n t _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a journal file.
+ *
+ **************************************/
+	DIR dir, end;
+	TEXT id_space[ID_SPACE], buffer[80], *p, *yellow;
+	USHORT n;
+	struct jfh header;
+
+	if (!JIO_read_header
+		(journal, &header, sizeof(header), id_space, sizeof(id_space))) {
+		printf("Can't read journal header\n");
+		return;
+	}
+
+	printf("Journal file \"%s\":\n", journal->jrn_server);
+	printf("\tAllocate = %d, id space used = %d, next id = %d\n",
+		   header.jfh_allocation, header.jfh_id_space, header.jfh_next_id);
+	printf("\tData slot = %d, free slot = %d, sequence = %ld\n",
+		   header.jfh_data, header.jfh_free, header.jfh_sequence);
+	printf("\tLast copied = %d, last written = %d, series = %ld\n",
+		   header.jfh_copy_block, header.jfh_write_block, header.jfh_series);
+
+	printf("    Data segments:\n");
+	for (n = 0; n <= header.jfh_data; n++)
+		printf("\t%d. %d\n", n, header.jfh_segments[n]);
+
+	printf("    Free segments:\n");
+	for (n = header.jfh_free; n < SEGMENT_SLOTS; n++)
+		printf("\t%d. %d\n", n, header.jfh_segments[n]);
+
+	printf("    Enabled databases:\n");
+
+	for (dir = (DIR) id_space, end = (DIR) (id_space + header.jfh_id_space);
+		 dir < end; dir = JIO_next_dir(dir))
+		printf("\t%d: %.*s\n", dir->dir_id, dir->dir_length, dir->dir_name);
+
+	printf("\n");
+}
+
+
+static print_record(msg, length)
+	 JRNH *msg;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	p r i n t _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write some nice output data.
+ *
+ **************************************/
+	TEXT *type, temp[128];
+	JRND *data;
+
+	if (length & 1)
+		++length;
+
+/* Map journal handle into database journal id */
+
+	type = temp;
+
+	switch (msg->jrnh_type) {
+	case JRN_ENABLE:
+		type = "ENABLE";
+		break;
+	case JRN_DISABLE:
+		type = "DISABLE";
+		break;
+	case JRN_SIGN_ON:
+		type = "SIGN_ON";
+		break;
+	case JRN_SIGN_OFF:
+		type = "SIGN_OFF";
+		break;
+	case JRN_ON_LINE:
+		type = "ON_LINE";
+		break;
+	case JRN_OFF_LINE:
+		type = "OFF_LINE";
+		break;
+	case JRN_SYNC:
+		type = "SYNC";
+		break;
+	case JRN_ACK:
+		type = "ACK";
+		break;
+	case JRN_RESPONSE:
+		type = "RESPONSE";
+		break;
+	case JRN_SET_TRANSACTION:
+		type = "SET_TRANSACTION";
+		break;
+	case JRN_DUMMY:
+		type = "DUMMY";
+		break;
+	case JRN_COMMIT:
+		type = "COMMIT";
+		break;
+
+	case JRN_PAGE:
+		data = (JRND *) msg;
+		sprintf(temp, "PAGE %ld", data->jrnd_page);
+		break;
+
+	default:
+		sprintf(temp, "unknown type %d", msg->jrnh_type);
+	}
+
+	printf("Record: type %s, length %d, series %d\n",
+		   type, msg->jrnh_length, msg->jrnh_series);
+}
+
+
+static process_command(string, journal)
+	 TEXT *string;
+	 JRN journal;
+{
+/**************************************
+ *
+ *	p r o c e s s _ c o m m a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process an operator command.
+ *
+ **************************************/
+	CMDS *command;
+	TEXT cmd[32], operand1[64], operand2[64], *p, *q;
+	USHORT n, l;
+	SINK sink, *ptr;
+
+	n = sscanf(string, "%s%s%s", cmd, operand1, operand2);
+
+	for (command = commands; p = command->cmds_string; command++) {
+		q = cmd;
+		while (*q && UPPER(*q) == *p++)
+			q++;
+		if (!*q)
+			break;
+	}
+
+	switch (command->cmds_command) {
+	case cmd_close:
+		if (n == 1 && sinks)
+			close_sink(sinks, "closed");
+		else if (n == 2)
+			if (!(n = atoi(operand1))) {
+				printf
+					("Optional close argument is a journal file sequence number");
+				break;
+			}
+			else {
+				for (sink = sinks; sink; sink = sink->sink_next)
+					if (sink->sink_sequence == n) {
+						close_sink(sink, "unused");
+						break;
+					}
+				if (!sink) {
+					printf("Journal file sequence number %ld does not exist",
+						   (SLONG) n);
+					break;
+				}
+			}
+		commit();
+		state |= state_status;
+		return;
+
+	case cmd_que:
+		if (n != 2)
+			break;
+		create_sink(operand1, TRUE);
+		commit();
+		return;
+
+	case cmd_resume:
+	    FOR X IN JOURNAL 
+            MODIFY X USING 
+               strcpy(X.STATUS, "active");
+	        END_MODIFY;
+	    END_FOR;
+		commit();
+		state &= ~state_suspend;
+		state |= state_status;
+		return;
+
+	case cmd_shutdown:
+		state |= state_shut_pending;
+		return;
+
+	case cmd_status:
+		report_status();
+		return;
+
+	case cmd_suspend:
+        FOR X IN JOURNAL 
+            MODIFY X USING 
+                strcpy(X.STATUS, "suspended");
+            END_MODIFY;
+        END_FOR;
+		state |= state_suspend | state_status;
+		commit();
+		return;
+
+	case cmd_help:
+		printf("Commands are:\n");
+		for (command = commands; p = command->cmds_string; command++)
+			printf("\t%s%\t%s\n", command->cmds_string, command->cmds_help);
+		return;
+
+	case cmd_version:
+		printf("Journal server version %s\n", GDS_VERSION);
+		return;
+
+	case cmd_print:
+		print_header(journal);
+		return;
+
+	case cmd_dump:
+		dump(journal);
+		return;
+
+	case cmd_verbose:
+		sw_verbose = TRUE;
+		return;
+
+	case cmd_quiet:
+		sw_verbose = FALSE;
+		return;
+
+	case cmd_flush:
+		sw_flush = TRUE;
+		JIO_get_position(journal, flush_position);
+		return;
+	}
+
+	fprintf(stderr, "Don't understand command \"%s\"\n", string);
+}
+
+
+static process_message(msg, length)
+	 JRNH *msg;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	p r o c e s s _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a journal message.
+ *
+ **************************************/
+
+	if (sw_verbose)
+		print_record(msg, length);
+
+	switch (msg->jrnh_type) {
+	case JRN_ENABLE:
+		enable(msg, length);
+		break;
+
+	case JRN_DISABLE:
+		disable(msg, length);
+		break;
+
+	case JRN_PAGE:
+	case JRN_COMMIT:
+		write_data(find_database(msg->jrnh_handle), msg, length);
+		break;
+
+	case JRN_SIGN_ON:
+		sign_on(msg, length);
+		break;
+
+	case JRN_SIGN_OFF:
+		sign_off(msg, length);
+		break;
+
+	case JRN_SYNC:
+	case JRN_DUMMY:
+		break;
+
+	default:
+		fprintf(stderr, "don't recognize journal message %d\n",
+				msg->jrnh_type);
+	}
+}
+
+
+static put_message(message, database)
+	 UCHAR *message;
+	 DBB database;
+{
+/**************************************
+ *
+ *	p u t _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out informational message.
+ *
+ **************************************/
+	SLONG clock;
+	struct tm times;
+	TEXT s[128];
+
+	clock = time(NULL);
+	times = *localtime(&clock);
+
+	if (database)
+		sprintf(s, " for \"%s\" (%d)", database->dbb_filename,
+				database->dbb_id);
+	else
+		s[0] = 0;
+
+	printf("%.2d:%.2d:%.2d %.2d/%.2d/%.2d %s%s\n",
+		   times.tm_hour, times.tm_min, times.tm_sec,
+		   times.tm_mon + 1, times.tm_mday, times.tm_year, message, s);
+
+	fflush(stdout);
+}
+
+
+static report_status()
+{
+/**************************************
+ *
+ *	r e p o r t _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report current state of journalling sub-system.
+ *
+ **************************************/
+	DBB database;
+	SINK sink;
+
+/* Report on current state */
+
+	if (!sinks)
+		printf("Journaling disabled; no output file\n");
+	else if (state & state_suspend)
+		printf("Journaling suspended; current output file: %s\n",
+			   sinks->sink_filename);
+	else
+		printf("Journaling enabled; current output file: %s\n",
+			   sinks->sink_filename);
+
+/* Report on files queued */
+
+	if (sinks && sinks->sink_next) {
+		printf("Output files queued:\n");
+		for (sink = sinks->sink_next; sink; sink = sink->sink_next)
+			printf("\t%s\n", sink->sink_filename);
+	}
+
+/* Report on active databases */
+
+	if (databases) {
+		printf("Known databases:\n");
+		for (database = databases; database; database = database->dbb_next)
+			printf("\t%s (%d)\n", database->dbb_filename, database->dbb_id);
+	}
+}
+
+
+static set_use_count(database)
+	 DBB database;
+{
+/**************************************
+ *
+ *	s e t _ u s e _ c o u n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set "use_count" for database.  This is called only for significant
+ *	use count transitions.
+ *
+ **************************************/
+
+   FOR D IN DATABASES WITH
+       D.STATUS EQ "active" AND D.FILENAME EQ database->dbb_filename
+       MODIFY D USING 
+           D.USE_COUNT = database->dbb_use_count;
+       END_MODIFY;
+   END_FOR;
+
+   commit();
+}
+
+
+static sign_off(msg, length)
+	 JRNH *msg;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	s i g n _ o f f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sign off a database.
+ *
+ **************************************/
+	DBB database;
+	UCHAR s[128];
+
+	database = find_database(msg->jrnh_handle);
+	put_message("Process sign_off", database);
+}
+
+
+static sign_on(msg, length)
+	 JRNC *msg;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	s i g n _ o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sign a database process onto the journal system.
+ *
+ **************************************/
+	DBB database, dbb;
+	JRNR reply;
+	UCHAR *p, *q;
+	USHORT l;
+
+/* If we already know about the database, this is easy */
+
+	if (database = lookup_database(msg->jrnc_filename, msg->jrnc_length)) {
+		put_message("Process sign_on", database);
+		if (!database->dbb_use_count++)
+			set_use_count(database);
+		return;
+	}
+
+/* Make up database block */
+
+	database = start_database(msg->jrnc_filename, msg->jrnc_length,
+							  msg->jrnc_header.jrnh_handle);
+
+/* Turn the "sign_on" into an "enable" and journal the message */
+
+	msg->jrnc_header.jrnh_type = JRN_ENABLE;
+	write_data(database, msg, length);
+}
+
+
+#ifndef VMS
+static signal_quit()
+{
+/**************************************
+ *
+ *	s i g n a l _ q u i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stop whatever we happened to be doing.
+ *
+ **************************************/
+
+	state |= state_shut_pending;
+	signal(SIGQUIT, NULL);
+	signal(SIGINT, NULL);
+}
+#endif
+
+
+static DBB start_database(string, length, handle)
+	 UCHAR *string;
+	 SSHORT length;
+	 SLONG handle;
+{
+/**************************************
+ *
+ *	s t a r t _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start journaling database.
+ *
+ **************************************/
+	DBB database;
+
+	database = make_database(string, length, handle);
+
+/* Start by marking any other databases of same name as inactive */
+
+	FOR D IN DATABASES WITH D.FILENAME EQ database->dbb_filename
+	    MODIFY D USING 
+           strcpy(D.STATUS, "inactive");
+	    END_MODIFY;
+	END_FOR;
+
+/* Store new database record */
+
+	STORE X IN DATABASES 
+        strcpy(X.FILENAME, database->dbb_filename);
+	    strcpy(X.STATUS, "active");
+        X.USE_COUNT = 1;
+        X.SEQUENCE_ENABLED = sinks->sink_sequence;
+        X.HANDLE = handle;
+        time_stamp(&X.DATE_ENABLED);
+        FOR J IN JOURNAL 
+            MODIFY J USING 
+                X.ID = database->dbb_id = ++J.ID;
+            END_MODIFY;
+	   END_FOR;
+	END_STORE;
+
+	put_message("Journaling enabled", database);
+	commit();
+
+	return database;
+}
+
+
+static time_stamp(date)
+	 SLONG *date;
+{
+/**************************************
+ *
+ *	t i m e _ s t a m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current time in gds format.
+ *
+ **************************************/
+	SLONG clock;
+	struct tm times;
+
+	clock = time(NULL);
+	times = *localtime(&clock);
+	gds__encode_date(&times, date);
+}
+
+
+static write_data(database, msg, length)
+	 DBB database;
+	 JRNH *msg;
+	 SLONG length;
+{
+/**************************************
+ *
+ *	w r i t e _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write some nice output data.
+ *
+ **************************************/
+	int status;
+	UCHAR *p, *end;
+	SSHORT errcode;
+
+	msg->jrnh_series = ++record_number;
+
+#ifdef VMS
+	rab.rab$w_isi = sinks->sink_isi;
+	rab.rab$l_rbf = msg;
+	rab.rab$w_rsz = length;
+	status = sys$put(&rab);
+
+	if (!(status & 1)) {
+		error(sinks->sink_filename, status, "sys$put");
+		close_sink(sinks);
+	}
+#endif
+
+#ifndef VMS
+	write(sinks->sink_channel, msg, length);
+#endif
+}
diff --git a/src/journal/journal_vms.gdl b/src/journal/journal_vms.gdl
new file mode 100644
index 0000000000..88af104a96
--- /dev/null
+++ b/src/journal/journal_vms.gdl
@@ -0,0 +1,44 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+define database "journal.gdb";
+
+define relation journal
+    status		varying [9],
+    date_initialized	date,
+    id			short,
+    sequence		short,
+    use_count		short,
+    record_number	long;
+
+define relation databases
+    filename		varying [128],
+    date_enabled	date,
+    sequence_enabled	based on sequence,
+    use_count,
+    status,
+    id,
+    handle		long;
+
+define relation journal_files
+    filename,
+    fiel_type char[1],
+    status,
+    sequence,
+    date_opened		date,
+    record_number;
diff --git a/src/journal/misc.cpp b/src/journal/misc.cpp
new file mode 100644
index 0000000000..2d048602b2
--- /dev/null
+++ b/src/journal/misc.cpp
@@ -0,0 +1,540 @@
+/*
+ *	PROGRAM:	JRD Journal Server
+ *	MODULE:		misc.c
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/time.h"
+#include "../jrd/common.h"
+
+#ifdef WIN_NT
+#include <sys/timeb.h>
+#include <winsock.h>
+#define TEXT	SCHAR
+#endif
+
+#include "../jrd/ods.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/license.h"
+#include "../journal/journal.h"
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+#include "../jrd/jrn.h"
+#include "../journal/gjrn_proto.h"
+#include "../journal/misc_proto.h"
+#include "../jrd/gds_proto.h"
+
+#define LETTER(c)	(c >= 'A' && c <= 'Z')
+#define DIGIT(c)	(c >= '0' && c <= '9')
+
+#define DECIMAL_LIMIT	(1 << 30) / 5
+#define TODAY		"TODAY"
+#define NOW		"NOW"
+#define TOMORROW	"TOMORROW"
+#define YESTERDAY	"YESTERDAY"
+
+#ifndef WIN_NT
+#ifdef NETWARE_386
+#define GETTIMEOFDAY(time,tz)	gettimeofday (time)
+#endif
+#ifdef M88K
+#define GETTIMEOFDAY(time,tz)	gettimeofday (time)
+#endif
+
+#ifndef GETTIMEOFDAY
+#define GETTIMEOFDAY(time,tz)	gettimeofday (time, tz)
+#define TIMEOFDAY_TZ
+#endif
+#endif
+
+#if !defined(WIN_NT)
+extern struct tm *localtime();
+#endif
+
+static void now_to_date(struct tm *, SLONG[2]);
+
+static TEXT *months[] = {
+	"JANUARY",
+	"FEBRUARY",
+	"MARCH",
+	"APRIL",
+	"MAY",
+	"JUNE",
+	"JULY",
+	"AUGUST",
+	"SEPTEMBER",
+	"OCTOBER",
+	"NOVEMBER",
+	"DECEMBER",
+	0
+};
+
+
+UCHAR *MISC_alloc_jrnl(size)
+	 SLONG size;
+{
+/**************************************
+ *
+ *	M I S C _ a l l o c _ j r n l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate block of memory.
+ *	Zero it out.
+ *
+ **************************************/
+	UCHAR *p, *block;
+
+	if (!(block = (UCHAR *) gds__alloc((SLONG) size))) {
+		GJRN_printf(109, NULL, NULL, NULL, NULL);	/* msg 109: malloc failed??? */
+		return NULL;
+	}
+
+	p = block;
+	do
+		*p++ = 0;
+	while (--size);
+
+	return block;
+}
+
+
+void MISC_down_case( UCHAR * in, UCHAR * out)
+{
+/**************************************
+ *
+ *	M I S C _ d o w n _ c a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a string, down casing as we go.
+ *
+ **************************************/
+	UCHAR c;
+
+	while (c = *in++)
+		*out++ = (c >= 'A' && c <= 'Z') ? c - 'A' + 'a' : c;
+
+	*out = 0;
+}
+
+
+void MISC_free_jrnl( int *block)
+{
+/**************************************
+ *
+ *	M I S C _ f r e e _ j r n l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an unwanted block.
+ *
+ **************************************/
+
+	gds__free(block);
+}
+
+
+int MISC_get_line( TEXT * prompt, TEXT * buffer, SSHORT size)
+{
+/**************************************
+ *
+ *	M I S C _ g e t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Eat a command line throwing away extra bytes.  Return FALSE
+ *	if end of file.
+ *
+ **************************************/
+	TEXT *end;
+	SSHORT c;
+	SSHORT count;
+
+	GJRN_output("%s", prompt);
+	end = buffer + size - 1;
+	count = 0;
+
+	if (sw_service_gjrn)
+		GJRN_output("\001");
+	fflush(stdout);
+
+	while ((c = getchar()) != '\n') {
+		count++;
+		if (c == EOF) {
+			*buffer = 0;
+			GJRN_output("%s", "\n");
+			return FALSE;
+		}
+		if (buffer < end)
+			*buffer++ = c;
+	}
+
+	*buffer = 0;
+
+	if (!count)
+		return FALSE;
+
+	return TRUE;
+}
+
+
+void MISC_get_new_value( SCHAR * string1, SCHAR * buffer, int size)
+{
+/**************************************
+ *
+ *	M I S C _ g e t _ n e w _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR temp[25];
+	SCHAR buff[MSG_LENGTH];
+
+	GJRN_output("%s is: %s\n", string1, buffer);
+
+	GJRN_get_msg(84, buff, NULL, NULL, NULL);
+	MISC_get_line(buff, temp, sizeof(temp));
+
+	MISC_down_case(temp, temp);
+
+	if (temp[0] != 'y')
+		return;
+
+	GJRN_get_msg(85, buff, NULL, NULL, NULL);
+	MISC_get_line(buff, buffer, size);
+}
+
+
+void MISC_get_time( struct timeval *current)
+{
+/**************************************
+ *
+ *      M I S C _ g e t _ t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get the current time of day.
+ *
+ **************************************/
+#ifdef GETTIMEOFDAY
+#ifdef TIMEOFDAY_TZ
+	struct timezone tzp;
+#endif
+
+	GETTIMEOFDAY(current, &tzp);
+#else
+	struct timeb buffer;
+
+	ftime(&buffer);
+	current->tv_sec = buffer.time;
+	current->tv_usec = (SLONG) buffer.millitm * 1000L;
+#endif
+}
+
+
+void MISC_get_wal_info( LTJC * msg, SCHAR * db_name, SCHAR * dir_name)
+{
+/**************************************
+ *
+ *	M I S C _ g e t _ w a l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	get wal info from message
+ *
+ **************************************/
+	SCHAR *p, *q, *b;
+	SSHORT l;
+
+	db_name[0] = 0;
+	dir_name[0] = 0;
+
+	for (p = msg->ltjc_data; p[0] != JRNW_END; p += 2 + p[1]) {
+		switch (*p) {
+		case gds__dpb_wal_backup_dir:
+			b = dir_name;
+			q = &p[2];
+			l = p[1];
+			if (l)
+				do
+					*b++ = *q++;
+				while (--l);
+			*b++ = 0;
+			break;
+
+		case JRNW_DB_NAME:
+			b = db_name;
+			q = &p[2];
+			l = p[1];
+			if (l)
+				do
+					*b++ = *q++;
+				while (--l);
+			*b++ = 0;
+			break;
+
+		default:;
+		}
+	}
+}
+
+
+void MISC_print_journal_syntax(void)
+{
+/**************************************
+ *
+ *	M I S C _ p r i n t _ j o u r n a l _ s y n t a x
+ *
+ **************************************
+ *
+ * Functional description
+ *	print possible options
+ *
+ **************************************/
+
+	GJRN_print_syntax();
+
+	GJRN_printf(7, NULL, NULL, NULL, NULL);	/* msg 7: <utility> : -enable | -disable | -online_dump | -server | -console | -restore */
+
+/* server options */
+	GJRN_printf(75, NULL, NULL, NULL, NULL);	/* msg 75: <server options> */
+	GJRN_printf(8, NULL, NULL, NULL, NULL);	/* msg 8: -j <journal directory> */
+
+/* console options */
+	GJRN_printf(76, NULL, NULL, NULL, NULL);	/* msg 76: <console options> */
+	GJRN_printf(8, NULL, NULL, NULL, NULL);	/* msg 8: -j <journal directory> */
+	GJRN_printf(77, NULL, NULL, NULL, NULL);	/* msg 77: -s <command> */
+
+/* enable options */
+	GJRN_printf(78, NULL, NULL, NULL, NULL);	/* msg 78: <enable options> */
+	GJRN_printf(8, NULL, NULL, NULL, NULL);	/* msg 8: -j <journal directory> */
+	GJRN_printf(9, NULL, NULL, NULL, NULL);	/* msg 9: -a <archive base name> */
+
+/* disable options */
+	GJRN_printf(79, NULL, NULL, NULL, NULL);	/* msg 79: <disable options> */
+
+/* restore options */
+	GJRN_printf(80, NULL, NULL, NULL, NULL);	/* msg 80: <restore options> */
+	GJRN_printf(8, NULL, NULL, NULL, NULL);	/* msg 8: -j <journal directory> */
+	GJRN_printf(11, NULL, NULL, NULL, NULL);	/* msg 11: -u <until options> */
+	GJRN_printf(10, NULL, NULL, NULL, NULL);	/* msg 10: -i              -interactive mode */
+	GJRN_printf(142, NULL, NULL, NULL, NULL);	/* msg 142: -m <output message file> */
+	GJRN_printf(196, NULL, NULL, NULL, NULL);	/* msg 196: -a\t\t-activate partially recovered database */
+	GJRN_printf(197, NULL, NULL, NULL, NULL);	/* msg 197: \t\t-p <database name for partial recovery> */
+
+/* online dump options */
+	GJRN_printf(81, NULL, NULL, NULL, NULL);	/* msg 81: <online dump options> */
+	GJRN_printf(10, NULL, NULL, NULL, NULL);	/* msg 10: -i              -interactive mode */
+	GJRN_printf(82, NULL, NULL, NULL, NULL);	/* msg 82: -f <file name> */
+	GJRN_printf(83, NULL, NULL, NULL, NULL);	/* msg 83: -s <file size> */
+
+	GJRN_abort(0);
+}
+
+
+int MISC_time_convert( TEXT * string, USHORT length, SLONG date[2])
+{
+/**************************************
+ *
+ *	M I S C _ t i m e _ c o n v e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert an arbitrary string to a date.  Return SUCCESS if successful,
+ *	otherwise FAILURE.
+ *
+ **************************************/
+	TEXT c, *p, temp[15], *t, *end, **month_ptr, *m;
+	USHORT n, month_position, i, components[7];
+	SLONG xclock;
+	struct tm times, times2;
+
+	p = string;
+	end = p + length;
+	month_position = 0;
+
+	xclock = time(0);
+	times2 = *localtime(&xclock);
+
+	for (i = 0; i < 7; i++)
+		components[i] = 0;
+
+/* Parse components */
+
+	for (i = 0; i < 7; i++) {
+
+		/* Skip leading blanks.  If we run out of characters, we're done
+		   with parse.  */
+
+		while (p < end && (*p == ' ' || *p == '\t'))
+			p++;
+		if (p == end)
+			break;
+
+		/* Handle digit or character strings */
+
+		c = UPPER(*p);
+		if (DIGIT(c)) {
+			n = 0;
+			while (p < end && DIGIT(*p))
+				n = n * 10 + *p++ - '0';
+		}
+		else if (LETTER(c)) {
+			t = temp;
+			while (p < end && LETTER(c)) {
+				c = UPPER(*p);
+				if (!LETTER(c))
+					break;
+				*t++ = c;
+				p++;
+			}
+			*t = 0;
+			month_ptr = months;
+			while (TRUE) {
+				if (!*month_ptr) {
+
+					/* it's not a month name, so it's either a magic word or
+					   a non-date string.  If there are more characters, it's bad */
+
+					while (++p < end)
+						if (*p != ' ' && *p != '\t' && *p != 0)
+							return FAILURE;
+					if (strcmp(temp, NOW) == 0) {
+						now_to_date(&times2, date);
+						return SUCCESS;
+					}
+					times2.tm_hour = times2.tm_min = times2.tm_sec = 0;
+					gds__encode_date(&times2, date);
+					if (strcmp(temp, TODAY) == 0)
+						return SUCCESS;
+					if (strcmp(temp, TOMORROW) == 0) {
+						++date[0];
+						return SUCCESS;
+					}
+					if (strcmp(temp, YESTERDAY) == 0) {
+						--date[0];
+						return SUCCESS;
+					}
+					return FAILURE;
+				}
+				for (t = temp, m = *month_ptr++; *t && *t == *m; t++, m++);
+				if (!*t)
+					break;
+			}
+			n = month_ptr - months;
+			month_position = i;
+		}
+		else
+			return FAILURE;
+		components[i] = n;
+		while (p < end && (*p == ' ' || *p == '\t'))
+			p++;
+		if (*p == '/' || *p == '-' || *p == ',' || *p == ':') {
+			p++;
+			continue;
+		}
+		if (*p == '.') {
+			if (!month_position && i < 2)
+				month_position = 1;
+			p++;
+			continue;
+		}
+	}
+
+/* Slide things into day, month, year form */
+
+	if (!components[0] && !components[1] && !components[2]) {
+		date[0] = date[1] = 0;
+		return SUCCESS;
+	}
+
+	if (month_position) {
+		times.tm_mon = components[1];
+		times.tm_mday = components[0];
+	}
+	else {
+		times.tm_mon = components[0];
+		times.tm_mday = components[1];
+	}
+
+/* Handle defaulting of year */
+
+	if ((times.tm_year = components[2]) == 0)
+		times.tm_year = times2.tm_year + 1900;
+	else if (times.tm_year < 100) {
+		if (times.tm_year < (times2.tm_year - 50) % 100)
+			times.tm_year += 2000;
+		else
+			times.tm_year += 1900;
+	}
+
+	times.tm_year -= 1900;
+	times.tm_mon -= 1;
+	times.tm_hour = components[3];
+	times.tm_min = components[4];
+	times.tm_sec = components[5];
+
+/* convert day/month/year to Julian and validate result */
+
+	gds__encode_date(&times, date);
+	gds__decode_date(date, &times2);
+
+	if (times.tm_year != times2.tm_year ||
+		times.tm_mon != times2.tm_mon || times.tm_mday != times2.tm_mday)
+		return FAILURE;
+
+	return SUCCESS;
+}
+
+
+static void now_to_date( struct tm *xtime, SLONG date[2])
+{
+/**************************************
+ *
+ *	n o w _ t o _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert "now" (or best guess) to
+ *	a date attempting to get millisecond
+ *	precision.  This unfortunately means
+ *	that we use one routine for VAX, and
+ *	another for Unix.
+ *
+ **************************************/
+
+	gds__encode_date(xtime, date);
+}
diff --git a/src/journal/misc_proto.h b/src/journal/misc_proto.h
new file mode 100644
index 0000000000..f5e39c1d54
--- /dev/null
+++ b/src/journal/misc_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Journalling Subsystem
+ *	MODULE:		misc_proto.h
+ *	DESCRIPTION:	Prototype header file for misc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JOURNAL_MISC_PROTO_H_
+#define _JOURNAL_MISC_PROTO_H_
+
+extern UCHAR *MISC_alloc_jrnl(SLONG);
+extern void MISC_down_case(UCHAR *, UCHAR *);
+extern void MISC_free_jrnl(int *);
+extern int MISC_get_line(TEXT *, TEXT *, SSHORT);
+extern void MISC_get_new_value(SCHAR *, SCHAR *, int);
+extern void MISC_get_time(struct timeval *);
+extern void MISC_get_wal_info(struct ltjc *, SCHAR *, SCHAR *);
+extern void MISC_print_journal_syntax(void);
+extern int MISC_time_convert(TEXT *, USHORT, SLONG[2]);
+
+#endif /* _JOURNAL_MISC_PROTO_H_ */
diff --git a/src/journal/oldr.cpp b/src/journal/oldr.cpp
new file mode 100644
index 0000000000..db48d13e96
--- /dev/null
+++ b/src/journal/oldr.cpp
@@ -0,0 +1,328 @@
+/*
+ *	PROGRAM:	JRD Journal Server
+ *	MODULE:		oldr.c
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#ifdef VMS
+#include <file.h>
+#else
+#include <fcntl.h>
+#endif
+#ifdef DELTA
+#include <unistd.h>
+#endif
+#include "../jrd/old.h"
+#include "../jrd/llio.h"
+#include "../journal/misc_proto.h"
+#include "../journal/oldr_proto.h"
+#include "../jrd/llio_proto.h"
+
+#ifndef MAX_PATH_LENGTH
+#define MAX_PATH_LENGTH         512
+#endif
+
+static int close_cur_file(OLD);
+static int open_next_file(OLD);
+static SLONG oldr_open_file(OLD);
+
+
+int OLDR_close( OLD * OLD_handle)
+{
+/**************************************
+ *
+ *	O L D R _ c l o s e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close the OLD file after at end of scan.
+ *
+ **************************************/
+	OLD old;
+
+	old = *OLD_handle;
+
+	if (old->old_fd) {
+		if (LLIO_close(0, old->old_fd))
+			return FAILURE;
+	}
+
+	if (old) {
+		MISC_free_jrnl((int *) old->old_block->ob_hdr);
+		MISC_free_jrnl((int *) old->old_block);
+		MISC_free_jrnl((int *) old);
+	}
+
+	*OLD_handle = NULL;
+
+	return SUCCESS;
+}
+
+
+int OLDR_get( OLD OLD_handle, SCHAR * logrec, SSHORT * len)
+{
+/**************************************
+ *
+ *	O L D R _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the OLD file.
+ *	return 	
+ *		0	OK
+ *		OLD_EOD	Done
+ *		OLD_EOF	EOF
+ *	        OLD_ERR	error
+ *
+ **************************************/
+	OLD_HDR hdr;
+	OLDBLK ob;
+	SLONG read_len;
+
+	ob = OLD_handle->old_block;
+	hdr = ob->ob_hdr;
+
+	if (LLIO_read(0, OLD_handle->old_fd, 0, 0L, LLIO_SEEK_NONE,
+				  (SCHAR *) hdr, OLD_handle->old_rec_size, &read_len))
+		return (OLD_ERR);
+
+	if (hdr->oh_type == OLD_EOD)
+		return OLD_EOD;			/* all done */
+
+	if ((hdr->oh_type != OLD_DATA) ||
+		(hdr->oh_seqno != OLD_handle->old_cur_seqno)) return OLD_EOF;
+
+	read_len = hdr->oh_hdr_len;
+	memcpy(logrec, hdr->oh_buf, read_len);
+
+	OLD_handle->old_cur_seqno++;
+	*len = read_len;
+
+	return 0;
+}
+
+
+void OLDR_get_info(
+				   OLD OLD_handle,
+				   SSHORT * db_page_size,
+				   SSHORT * dump_id,
+				   SLONG * log_seqno,
+SLONG * log_offset, SLONG * log_p_offset)
+{
+/**************************************
+ *
+ *	O L D R _ g e t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get old information
+ *
+ **************************************/
+	if (!OLD_handle)
+		return;
+
+	*db_page_size = OLD_handle->old_db_page_size;
+	*dump_id = OLD_handle->old_dump_id;
+	*log_seqno = OLD_handle->old_log_seqno;
+	*log_offset = OLD_handle->old_log_offset;
+	*log_p_offset = OLD_handle->old_log_p_offset;
+}
+
+
+int OLDR_open(
+			  OLD * OLD_handle,
+			  SCHAR * dbname, SSHORT num_files, SCHAR ** files)
+{
+/**************************************
+ *
+ *	O L D R _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a OLD file for reading. Used during recovery
+ *	If a non NULL OLD is passed in, start from where we
+ *	left off.
+ *
+ **************************************/
+	OLD old;
+
+	if (*OLD_handle == NULL) {
+		*OLD_handle = old = (OLD) MISC_alloc_jrnl(sizeof(struct old));
+		old->old_block = (OLDBLK) MISC_alloc_jrnl(sizeof(struct oldblk));
+		old->old_block->ob_hdr = (OLD_HDR) MISC_alloc_jrnl(MAX_OLDBUFLEN);
+
+		old->old_num_files = num_files;
+		old->old_files = files;
+		old->old_file_size = 0;
+		old->old_db = dbname;
+	}
+	else {
+		old = *OLD_handle;
+	}
+
+/* Open the first file */
+
+	if (open_next_file(old) == FAILURE)
+		return FAILURE;
+
+	return SUCCESS;
+}
+
+
+static int close_cur_file( OLD old)
+{
+/**************************************
+ *
+ *	c l o s e _ c u r _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	returns SUCCESS - if things work
+ *		FAILURE - close fails
+ *
+ **************************************/
+
+	if (LLIO_close(0, old->old_fd))
+		return FAILURE;
+
+	old->old_fd = 0;
+	old->old_cur_size = 0;
+
+	return SUCCESS;
+}
+
+
+static int open_next_file( OLD old)
+{
+/**************************************
+ *
+ *	o p e n _ n e x t _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Opens the next OnLine Dump file and writes out the header.
+ *
+ *	returns SUCCESS - if things work
+ *		FAILURE - open fails, no more file etc.
+ *
+ **************************************/
+	int fd;
+
+	if (old->old_fd) {
+		if (close_cur_file(old) == FAILURE)
+			return FAILURE;
+	}
+
+	if (old->old_cur_file >= old->old_num_files)
+		return FAILURE;
+
+	if ((fd = oldr_open_file(old)) == FAILURE)
+		return FAILURE;
+
+	old->old_cur_file++;
+	old->old_file_seqno++;
+
+	old->old_fd = fd;
+
+	return SUCCESS;
+}
+
+
+static SLONG oldr_open_file( OLD old)
+{
+/**************************************
+ *
+ *	o l d r _ o p e n _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open next file and read header 
+ *
+ *	returns SUCCESS - if things work
+ *		FAILURE - open fails/out of sequence etc.
+ *
+ **************************************/
+	OLD_HDR hdr;
+	OLD_HDR_PAGE hp;
+	OLDBLK ob;
+	SLONG fd;
+	SLONG len;
+	SCHAR buf[MAX_PATH_LENGTH];
+	struct hdr_page header;
+
+	ob = old->old_block;
+	hdr = ob->ob_hdr;
+
+	if (LLIO_open(0, old->old_files[old->old_cur_file], LLIO_OPEN_R,
+				  TRUE, &fd)) return FAILURE;
+
+	if (LLIO_read(0, fd, 0, 0L, LLIO_SEEK_NONE,
+				  (SCHAR *) hdr, OLD_HEADER_SIZE, &len) ||
+		len != OLD_HEADER_SIZE) return FAILURE;
+
+	hp = (OLD_HDR_PAGE) hdr->oh_buf;
+	memcpy((SCHAR *) & header, (SCHAR *) hp, sizeof(struct hdr_page));
+
+	old->old_file_size = header.hp_file_size;
+
+	if (header.hp_file_seqno != old->old_cur_file)
+		return FAILURE;
+
+	if (header.hp_version != OLD_VERSION)
+		return FAILURE;
+
+	if (header.hp_start_block != old->old_cur_seqno)
+		return FAILURE;
+
+	if (old->old_block->ob_hdr->oh_type != OLD_HEADER)
+		return FAILURE;
+
+	old->old_rec_size = header.hp_rec_size;
+	old->old_dump_id = header.hp_dump_id;
+	old->old_log_seqno = header.hp_log_seqno;
+	old->old_log_offset = header.hp_log_offset;
+	old->old_log_p_offset = header.hp_log_p_offset;
+	old->old_db_page_size = header.hp_db_page_size;
+
+	len = strlen(old->old_db);
+	if (len != header.hp_length)
+		return FAILURE;
+
+/* compare database name */
+
+	memcpy(buf, hp->hp_db, len);
+	buf[len] = 0;
+	if (strcmp(buf, old->old_db))
+		return FAILURE;
+
+	old->old_cur_size = OLD_HEADER_SIZE;
+
+	return fd;
+}
diff --git a/src/journal/oldr_proto.h b/src/journal/oldr_proto.h
new file mode 100644
index 0000000000..3d3f43286a
--- /dev/null
+++ b/src/journal/oldr_proto.h
@@ -0,0 +1,32 @@
+/*
+ *	PROGRAM:	JRD Journalling Subsystem
+ *	MODULE:		oldr_proto.h
+ *	DESCRIPTION:	Prototype header file for oldr.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JOURNAL_OLDR_PROTO_H_
+#define _JOURNAL_OLDR_PROTO_H_
+
+extern int OLDR_close(OLD *);
+extern int OLDR_get(OLD, SCHAR *, SSHORT *);
+extern void OLDR_get_info(OLD, SSHORT *, SSHORT *, SLONG *, SLONG *, SLONG *);
+extern int OLDR_open(OLD *, SCHAR *, SSHORT, SCHAR **);
+
+#endif /* _JOURNAL_OLDR_PROTO_H_ */
diff --git a/src/journal/rebui_proto.h b/src/journal/rebui_proto.h
new file mode 100644
index 0000000000..67498e4c64
--- /dev/null
+++ b/src/journal/rebui_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	JRD Journalling Subsystem
+ *	MODULE:		rebui_proto.h
+ *	DESCRIPTION:	Prototype header file for rebuild.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JOURNAL_REBUI_PROTO_H_
+#define _JOURNAL_REBUI_PROTO_H_
+
+extern int REBUILD_start_restore(int, SCHAR **);
+
+#endif /* _JOURNAL_REBUI_PROTO_H_ */
diff --git a/src/journal/rebuild.e b/src/journal/rebuild.e
new file mode 100644
index 0000000000..e7f7921a81
--- /dev/null
+++ b/src/journal/rebuild.e
@@ -0,0 +1,3723 @@
+/*
+ *	PROGRAM:	JRD Journalling Subsystem
+ *	MODULE:		rebuild.e
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include "../jrd/time.h"
+
+/* MOVE_FAST & MOVE_CLEAR have to be defined before #include common.h */
+
+#define MOVE_FAST(from,to,length)	memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)		memset (to, 0, (int) (length))
+
+#ifndef MAX_PATH_LENGTH
+#define MAX_PATH_LENGTH			512
+#endif
+
+#include "../jrd/common.h"
+
+typedef struct blk {
+	UCHAR blk_type;
+	UCHAR blk_pool_id;
+	USHORT blk_length;
+} *BLK;
+
+#include "../jrd/ods.h"
+#include "../jrd/gds.h"
+#include "../jrd/license.h"
+#include "../jrd/jrn.h"
+#include "../journal/journal.h"
+#include "../jrd/thd.h"
+#include "../jrd/pio.h"
+#include "../wal/wal.h"
+#include "../jrd/dsc.h"
+#include "../jrd/btr.h"
+#include "../jrd/old.h"
+#include "../jrd/llio.h"
+#include "../wal/walr_proto.h"
+#include "../journal/conso_proto.h"
+#include "../journal/gjrn_proto.h"
+#include "../journal/misc_proto.h"
+#include "../journal/oldr_proto.h"
+#include "../journal/rebui_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/llio_proto.h"
+
+/* UNIX Stuff */
+
+#ifdef UNIX
+#define UNIX_JOURNALLING
+#define LIBRARY_IO
+#define SYS_ERROR	gds_arg_unix
+#define ERRNO		errno
+#include <sys/types.h>
+
+extern int errno;
+#endif
+
+/* VMS Stuff */
+
+#ifdef VMS
+#include <rms.h>
+#include <iodef.h>
+#include <descrip.h>
+#include <ssdef.h>
+#define SYS_ERROR	gds_arg_vms
+#endif
+
+/* NETWARE Stuff */
+
+#ifdef NETWARE_386
+#define NETWARE_JOURNALLING
+#define LIBRARY_IO
+#include <errno.h>
+#include <fcntl.h>
+#define SYS_ERROR	gds_arg_dos
+#define ERRNO		__get_errno_ptr()
+#undef PC_PLATFORM
+#endif
+
+/* Windows NT Stuff */
+
+#ifdef WIN_NT
+#include <sys/types.h>
+#include <sys/timeb.h>
+#include <winsock.h>
+#include <windows.h>
+#define TEXT		SCHAR
+#define SYS_ERROR	gds_arg_win32
+#define ERRNO		GetLastError()
+#endif
+
+#define HIGH_WATER(x)		((int) &((DPG) 0)->dpg_rpt [x])
+#define MOVE_BYTE(x_from,x_to)	*x_to++ = *x_from++;
+
+DATABASE DB =
+	STATIC COMPILETIME FILENAME "journal.gdb" RUNTIME FILENAME journal_dir;
+DATABASE DB_NEW =
+	STATIC COMPILETIME FILENAME "journal.gdb" RUNTIME FILENAME db_name;
+
+/* Page cache */
+
+typedef struct cache {
+	struct cache *cache_next;
+	SSHORT cache_flags;
+	SSHORT cache_use_count;
+	SLONG cache_page_number;
+	ULONG cache_age;
+	PAG cache_page;
+} *CACHE;
+
+/* cache_flags */
+
+#define	PAGE_CLEAN	0
+#define	PAGE_DIRTY	1
+#define	PAGE_HEADER	2
+#define PAGE_CORRUPT	-1
+
+#define	MARK_PAGE(cch)		cch->cache_flags |= PAGE_DIRTY
+#define MARK_HEADER(cch)	cch->cache_flags |= PAGE_DIRTY | PAGE_HEADER
+
+/* Database recovery block */
+
+#define CACHE_SIZE	100
+#define INITIAL_ALLOC	16
+
+typedef struct drb {
+	struct drb *drb_next;		/* Next database in chain */
+	USHORT drb_page_size;		/* Database page size */
+	struct fil *drb_file;		/* list of file pointers */
+	ULONG drb_max_page;			/* max page read */
+	ULONG drb_age;
+	UCHAR *drb_buffers;
+	CACHE drb_cache;
+	TEXT drb_filename[1];
+} *DRB;
+
+extern FILE *msg_file;
+
+static USHORT add_file(DRB, FIL, UCHAR *, SSHORT, SLONG, SSHORT);
+static void add_time(struct timeval *, struct timeval *);
+static void apply_data(DRB, DPG, JRND *);
+static void apply_header(HDR, JRND *);
+static void apply_ids(PPG, JRND *);
+static void apply_index(BTR, JRND *);
+static void apply_log(LIP, JRND *);
+static void apply_pip(PIP, JRND *);
+static void apply_pointer(PPG, JRND *);
+static void apply_root(IRT, JRND *);
+static void apply_transaction(TIP, JRND *);
+static USHORT checksum(DRB, PAG);
+static void close_database(DRB);
+static BOOLEAN commit(DRB, LTJC *, USHORT);
+static SSHORT compress(DRB, DPG);
+static void disable(DRB, LTJC *);
+static int error(TEXT *, STATUS, TEXT *, STATUS);
+static void expand_num_alloc(SCHAR ***, SSHORT *);
+static void fixup_header(DRB);
+static void format_time(SLONG[2], TEXT *);
+static CACHE get_free_buffer(DRB, SLONG);
+static void get_log_files(SLONG, SSHORT, SCHAR ***, SLONG **, SSHORT *,
+						  SLONG);
+static void get_old_files(SLONG, SCHAR ***, SSHORT *, SLONG *, SLONG *);
+static CACHE get_page(DRB, SLONG, USHORT);
+static JRNP *next_clump(JRND *, void *);
+static void open_all_files(void);
+static DRB open_database(TEXT *, USHORT, SSHORT);
+static BOOLEAN open_database_file(DRB, TEXT *, SSHORT, SLONG *);
+static int open_journal(SCHAR *, SCHAR **, SSHORT, SLONG, SLONG *);
+static int process_online_dump(SCHAR *, SCHAR **, SSHORT);
+static int process_journal(SCHAR *, SCHAR **, SSHORT, SLONG, SLONG, SLONG *);
+static SLONG process_new_file(DRB, JRNF *);
+static BOOLEAN process_old_record(JRND *, USHORT);
+static void process_page(DRB, JRND *, ULONG, ULONG, USHORT);
+static BOOLEAN process_partial(SLONG, SCHAR *);
+static BOOLEAN process_record(JRNH *, USHORT, ULONG, ULONG, USHORT);
+static void quad_move(register UCHAR *, register UCHAR *);
+static void read_page(DRB, CACHE);
+static void rebuild_abort(SLONG);
+static void rebuild_partial(SLONG, SLONG, SCHAR *);
+static void rec_add_clump_entry(DRB, HDR, USHORT, USHORT, UCHAR *);
+static BOOLEAN rec_add_hdr_entry(DRB, USHORT, USHORT, UCHAR *, USHORT);
+static BOOLEAN rec_delete_hdr_entry(DRB, USHORT);
+static void rec_find_space(DRB, CACHE *, HDR *, USHORT, USHORT, UCHAR *);
+static BOOLEAN rec_find_type(DRB, CACHE *, HDR *, USHORT, UCHAR **, UCHAR **);
+static BOOLEAN rec_get_hdr_entry(DRB, USHORT, USHORT *, UCHAR *);
+static void rec_restore(SCHAR *, SCHAR *);
+static void rec_restore_manual(SCHAR *);
+static void release_db(DRB);
+static void release_page(DRB, CACHE);
+static FIL seek_file(DRB, FIL, CACHE, SLONG *);
+static FIL setup_file(UCHAR *, USHORT, int);
+static BOOLEAN test_partial_db(SLONG);
+static void update_rebuild_seqno(SLONG);
+static void write_page(DRB, CACHE);
+
+static DRB databases;
+static USHORT sw_verbose, sw_debug, sw_interact, sw_disable;
+static USHORT sw_partial, sw_activate, sw_first_recover;
+static SSHORT sw_trace;
+static SLONG until[2];
+static SCHAR journal_dir[MAX_PATH_LENGTH], db_name[MAX_PATH_LENGTH];
+static USHORT sw_journal = FALSE;
+static USHORT sw_db = FALSE;
+static UCHAR sec_file[MAX_PATH_LENGTH];
+static SSHORT sec_added = FALSE;
+static SSHORT sec_len = 0;
+static SSHORT sw_until = 0;
+static SCHAR *partial_db;
+static SSHORT max_seqno;
+static SSHORT dump_id = 0;
+static SSHORT end_reached = FALSE;
+
+/* Time, size statistics of log records processed */
+
+static SLONG elapsed_time;
+static SLONG bytes_processed;
+static SLONG bytes_applied;
+static SLONG et_sec, et_msec;
+static SLONG *tr1 = 0;
+
+typedef struct counter {
+	SLONG num_recs;
+	SLONG num_bytes;
+} COUNTER;
+
+static COUNTER totals[JRNP_MAX + 1 - JRN_PAGE];
+
+/* WAL defines */
+
+static UCHAR wal_buff[MAX_WALBUFLEN];
+static WALRS WALR_handle;
+static STATUS wal_status[20];
+
+
+#ifndef FILE_OPEN_WRITE
+#define FILE_OPEN_WRITE 	"w"
+#endif
+
+/* if new journal records are added in jrn.h, they should be added here */
+
+static char *table[] = {
+	"JRN_PAGE                ",	/* A full page WAL record */
+	"JRNP_DATA_SEGMENT       ",	/* Add segment to data page */
+	"JRNP_POINTER_SLOT       ",	/* Add pointer page to relation */
+	"JRNP_TRANSACTION        ",	/* Journal transaction state */
+	"JRNP_NULL               ",	/* Odd byte */
+	"JRNP_PIP                ",	/* Page allocation/deallocation */
+	"JRNP_BTREE_NODE         ",	/* Add/delete a node to BTREE */
+	"JRNP_BTREE_SEGMENT      ",	/* B Tree split - valid part */
+	"JRNP_BTREE_DELETE       ",	/* B Tree node delete - logical */
+	"JRNP_INDEX_ROOT         ",	/* Add/drop an index    */
+	"JRNP_DB_HEADER          ",	/* Modify db header page */
+	"JRNP_GENERATOR          ",	/* generator            */
+	"JRNP_ROOT_PAGE          ",	/* Index root page      */
+	"JRNP_DB_ATTACHMENT      ",	/* next attachment */
+	"JRNP_DB_HDR_PAGES       ",	/* Header pages         */
+	"JRNP_DB_HDR_FLAGS       ",	/* Header flags */
+	"JRNP_DB_HDR_SDW_COUNT   ",	/* Header shadow count */
+	"JRNP_LOG_PAGE           ",	/* log page information */
+	"JRNP_NEXT_TIP           ",	/* next tip page */
+	"JRNP_MAX                "
+};
+
+
+int REBUILD_start_restore(int argc, SCHAR ** argv)
+{
+/**************************************
+ *
+ *	R E B U I L D _ s t a r t _ r e s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse switches and do work.
+ *
+ **************************************/
+	UCHAR *db, string[512];
+	UCHAR *journal, jrn[JOURNAL_PATH_LENGTH + 1];
+	SSHORT i;
+	SCHAR *p;
+	SCHAR *msg;
+
+/* Start by parsing switches */
+
+	sw_trace = sw_disable = sw_interact = FALSE;
+	sw_debug = sw_verbose = sw_partial = sw_activate = FALSE;
+	sw_first_recover = TRUE;
+
+	until[0] = until[1] = 0;
+
+	for (i = 0; i < (JRNP_MAX - JRN_PAGE); i++) {
+		totals[i].num_bytes = 0;
+		totals[i].num_recs = 0;
+	}
+
+	db = NULL;
+	databases = NULL;
+	journal = NULL;
+	partial_db = NULL;
+
+	argv++;
+	while (--argc > 0) {
+		if ((*argv)[0] != '-') {
+			if (db) {
+				GJRN_printf(12, db, NULL, NULL, NULL);
+				exit(FINI_ERROR);
+			}
+			db = *argv++;
+			continue;
+		}
+
+		MISC_down_case(*argv++, string);
+		switch (string[1]) {
+		case 'v':
+			sw_verbose = TRUE;
+			break;
+
+		case 'd':
+			sw_verbose = sw_debug = TRUE;
+			break;
+
+		case 't':
+			sw_trace = TRUE;
+			break;
+
+		case 'i':
+			sw_interact = TRUE;
+			break;
+
+		case 'r':
+			break;
+
+		case 'j':
+			if (--argc > 0) {
+				strcpy(jrn, *argv++);
+				journal = jrn;
+			}
+			else
+				MISC_print_journal_syntax();
+			break;
+
+		case 'm':
+			if (--argc > 0) {
+				msg = (SCHAR *) * argv++;
+				if (!(msg_file = fopen(msg, FILE_OPEN_WRITE)))
+					rebuild_abort(141);
+			}
+			else
+				MISC_print_journal_syntax();
+			break;
+
+		case 'a':
+			sw_activate = TRUE;
+			break;
+
+		case 'p':
+			if (--argc > 0) {
+				sw_partial = TRUE;
+				partial_db = (SCHAR *) * argv++;
+			}
+			else
+				MISC_print_journal_syntax();
+			break;
+
+		case 'u':
+			sw_until = TRUE;
+
+			if (!(p = (SCHAR *) * argv++))
+				rebuild_abort(18);
+
+			argc--;
+
+			for (i = strlen(p); i; i--) {
+				if (p[i - 1] == '/')
+					p[i - 1] = ' ';
+			}
+
+			if (MISC_time_convert(p, strlen(p), until) == FAILURE)
+				rebuild_abort(19);
+			break;
+
+		default:
+			MISC_print_journal_syntax();
+			break;
+		}
+	}
+
+	if (!journal || !db)
+		sw_interact = TRUE;
+
+	rec_restore(journal, db);
+
+	if (sw_trace) {
+		GJRN_printf(206, NULL, NULL, NULL, NULL);
+		GJRN_printf(207, NULL, NULL, NULL, NULL);
+
+		for (i = 0; i < (JRNP_MAX - JRN_PAGE); i++)
+			GJRN_printf(208, table[i], (TEXT *) totals[i].num_recs,
+						(TEXT *) totals[i].num_bytes, NULL);
+	}
+
+	if (msg_file != stdout)
+		fclose(msg_file);
+}
+
+
+static USHORT add_file(DRB database,
+					   FIL main_file,
+					   UCHAR * file_name,
+					   SSHORT length, SLONG start, SSHORT new_file)
+{
+/**************************************
+ *
+ *	a d d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a file to an existing database.  Return the sequence
+ *	number of the new file.  If anything goes wrong, return a
+ *	sequence of 0.
+ *
+ **************************************/
+	USHORT sequence;
+	FIL file, next_file;
+	SLONG file_handle;
+
+	file_name[length] = 0;
+
+	if (!(open_database_file(database, file_name, new_file, &file_handle)))
+		return 0;
+
+	next_file = setup_file(file_name, strlen(file_name), (int) file_handle);
+
+	next_file->fil_min_page = start;
+	sequence = 1;
+
+	for (file = main_file; file->fil_next; file = file->fil_next)
+		++sequence;
+
+	file->fil_max_page = start - 1;
+	file->fil_next = next_file;
+
+	return sequence;
+}
+
+
+static void add_time(struct timeval *first, struct timeval *next)
+{
+/**************************************
+ *
+ *	a d d _ t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add time to elapsed time.
+ *
+ **************************************/
+
+	if (first->tv_usec > next->tv_usec) {
+		next->tv_usec += 1000000;
+		next->tv_sec--;
+	}
+	et_msec += next->tv_usec - first->tv_usec;
+	et_sec += next->tv_sec - first->tv_sec;
+}
+
+
+static void apply_data(DRB database, DPG page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply incremental changes to a data page.
+ *
+ **************************************/
+	JRNP temp, *clump;
+	SSHORT space, l, top, used;
+	UCHAR *p, *q;
+	struct dpg_repeat *index, *end;
+
+	if (sw_debug)
+		GJRN_printf(21, (TEXT *) record->jrnd_page, NULL, NULL, NULL);
+
+/* Process clumps */
+
+	for (clump = NULL; clump = next_clump(record, clump);) {
+		memcpy((SCHAR *) & temp, (SCHAR *) clump, JRNP_SIZE);
+
+		if (temp.jrnp_type != JRNP_DATA_SEGMENT) {
+			GJRN_printf(55, (TEXT *) temp.jrnp_type, NULL, NULL, NULL);
+			rebuild_abort(72);
+		}
+
+		if (sw_trace)
+			continue;
+
+		/* Handle segment deletion */
+
+		if (!temp.jrnp_length) {
+			index = page->dpg_rpt + temp.jrnp_index;
+			index->dpg_offset = 0;
+			index->dpg_length = 0;
+		}
+
+		/* Re-compute page high water mark */
+
+		index = page->dpg_rpt;
+		end = index + page->dpg_count;
+		page->dpg_count = 0;
+		space = database->drb_page_size;
+
+		for (l = 1, used = 0; index < end; index++, l++)
+			if (index->dpg_length) {
+				page->dpg_count = l;
+				space = MIN(space, index->dpg_offset);
+				used += ROUNDUP(index->dpg_length, ODS_ALIGNMENT);
+			}
+
+		if (!temp.jrnp_length)
+			continue;
+
+		/* Handle segment addition */
+
+		index = page->dpg_rpt + temp.jrnp_index;
+		q = clump->jrnp_data;
+		l = temp.jrnp_length;
+
+		if (index < end && l <= index->dpg_length) {
+			index->dpg_length = l;
+			p = (UCHAR *) page + index->dpg_offset;
+			do
+				*p++ = *q++;
+			while (--l);
+			continue;
+		}
+
+		page->dpg_count = MAX(page->dpg_count, temp.jrnp_index + 1);
+		top = HIGH_WATER(page->dpg_count);
+		l = ROUNDUP(l, ODS_ALIGNMENT);
+		space -= l;
+
+		if (space < top) {
+			index->dpg_length = 0;
+			space = compress(database, page);
+			space -= l;
+			if (space < top)
+				rebuild_abort(56);
+		}
+
+		if (space + l > database->drb_page_size)
+			rebuild_abort(57);
+
+		index->dpg_offset = space;
+		index->dpg_length = temp.jrnp_length;
+		p = (UCHAR *) page + space;
+		do
+			*p++ = *q++;
+		while (--l);
+	}
+}
+
+
+static void apply_header(HDR page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply changes to database header page 
+ *
+ **************************************/
+	JRNDH temp1, *clump;
+	JRNDA temp2;
+
+	if (sw_debug)
+		GJRN_printf(22, (TEXT *) record->jrnd_page, NULL, NULL, NULL);
+
+	for (clump = NULL; clump = (JRNDH *) next_clump(record, clump);) {
+		if (clump->jrndh_type == JRNP_DB_HEADER)
+			memcpy((SCHAR *) & temp1, (SCHAR *) clump, JRNDH_SIZE);
+		else
+			memcpy((SCHAR *) & temp2, (SCHAR *) clump, JRNDA_SIZE);
+
+		if ((sw_debug) && (clump->jrndh_type == JRNP_DB_HEADER))
+			GJRN_printf(203, (TEXT *) temp1.jrndh_nti,
+						(TEXT *) temp1.jrndh_oat, (TEXT *) temp1.jrndh_oit,
+						NULL);
+
+		if (sw_trace)
+			continue;
+
+		switch (clump->jrndh_type) {
+		case JRNP_DB_HEADER:
+			page->hdr_bumped_transaction = temp1.jrndh_nti;
+			page->hdr_oldest_transaction = temp1.jrndh_oit;
+			page->hdr_oldest_active = temp1.jrndh_oat;
+			break;
+
+		case JRNP_DB_ATTACHMENT:
+			page->hdr_attachment_id = temp2.jrnda_data;
+			break;
+
+		case JRNP_DB_HDR_PAGES:
+			page->hdr_PAGES = temp2.jrnda_data;
+			break;
+
+		case JRNP_DB_HDR_FLAGS:
+			page->hdr_flags = temp2.jrnda_data;
+			break;
+
+		case JRNP_DB_HDR_SDW_COUNT:
+			page->hdr_shadow_count = temp2.jrnda_data;
+			break;
+
+		default:
+			rebuild_abort(58);
+			break;
+		}
+	}
+}
+
+
+static void apply_ids(PPG page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ i d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply changes to gen ids page
+ *
+ **************************************/
+	JRNG temp, *clump;
+	SLONG *ptr;
+
+	if (sw_debug)
+		GJRN_printf(23, (TEXT *) record->jrnd_page, NULL, NULL, NULL);
+
+	for (clump = NULL; clump = (JRNG *) next_clump(record, clump);) {
+		memcpy((SCHAR *) & temp, (SCHAR *) clump, JRNG_SIZE);
+
+		if (temp.jrng_type != JRNP_GENERATOR)
+			rebuild_abort(59);
+
+		if (sw_debug)
+			GJRN_printf(204, (TEXT *) temp.jrng_offset,
+						(TEXT *) temp.jrng_genval, NULL, NULL);
+
+		if (sw_trace)
+			continue;
+
+		ptr = page->ppg_page + temp.jrng_offset;
+		*ptr = temp.jrng_genval;
+	}
+}
+
+
+static void apply_index(BTR page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply changes to b-tree pages
+ *
+ **************************************/
+	JRNB temp, *clump;
+	SCHAR *p, *q;
+	SLONG l;
+	SLONG delta;
+	BTN node, next;
+
+	if (sw_debug)
+		GJRN_printf(24, (TEXT *) record->jrnd_page, NULL, NULL, NULL);
+
+	for (clump = NULL; clump = (JRNB *) next_clump(record, clump);) {
+		memcpy((SCHAR *) & temp, (SCHAR *) clump, JRNB_SIZE);
+
+		if (sw_trace)
+			continue;
+
+		switch (clump->jrnb_type) {
+		case JRNP_BTREE_NODE:
+			if (sw_debug) {
+				GJRN_printf(25, (TEXT *) temp.jrnb_offset,
+							(TEXT *) temp.jrnb_length, NULL, NULL);
+				GJRN_printf(27, (TEXT *) page->btr_length, NULL, NULL, NULL);
+			}
+
+			/* slide down upper part by delta
+			   add node and increment btr_length */
+
+			delta = temp.jrnb_delta;
+			p = (SCHAR *) ((UCHAR *) page + page->btr_length);
+			q = p + delta;
+			if (l = page->btr_length - temp.jrnb_offset)
+				do
+					*--q = *--p;
+				while (--l);
+
+			/* move in node , next BTN */
+
+			p = (SCHAR *) ((UCHAR *) page + temp.jrnb_offset);
+			q = (SCHAR *) clump->jrnb_data;
+			l = temp.jrnb_length;
+
+			do {
+				MOVE_BYTE(q, p);
+			} while (--l);
+
+			page->btr_length += delta;
+			page->btr_prefix_total = temp.jrnb_prefix_total;
+
+			if (sw_debug) {
+				GJRN_printf(26, (TEXT *) temp.jrnb_offset,
+							(TEXT *) temp.jrnb_length, NULL, NULL);
+				GJRN_printf(27, (TEXT *) page->btr_length, NULL, NULL, NULL);
+			}
+			break;
+
+		case JRNP_BTREE_SEGMENT:
+			if (sw_debug) {
+				GJRN_printf(28, (TEXT *) page->btr_length, NULL, NULL, NULL);
+			}
+
+			/* apply change directly */
+
+			p = (SCHAR *) page;
+			q = (SCHAR *) clump->jrnb_data;
+			if (l = temp.jrnb_length)
+				do {
+					MOVE_BYTE(q, p);
+				} while (--l);
+
+			if (sw_debug) {
+				GJRN_printf(29, (TEXT *) temp.jrnb_length, NULL, NULL, NULL);
+				GJRN_printf(27, (TEXT *) page->btr_length, NULL, NULL, NULL);
+			}
+			break;
+
+		case JRNP_BTREE_DELETE:
+
+			/* delete a node entry */
+
+			node = (BTN) ((UCHAR *) page + temp.jrnb_offset);
+			next = (BTN) (BTN_DATA(node) + BTN_LENGTH(node));
+			QUAD_MOVE(BTN_NUMBER(next), BTN_NUMBER(node));
+			p = (SCHAR *) BTN_DATA(node);
+			q = (SCHAR *) BTN_DATA(next);
+			l = BTN_LENGTH(next);
+			if (BTN_PREFIX(node) < BTN_PREFIX(next)) {
+				BTN_LENGTH(node) = BTN_LENGTH(next) + BTN_PREFIX(next)
+					- BTN_PREFIX(node);
+				p += BTN_PREFIX(next) - BTN_PREFIX(node);
+			}
+			else {
+				BTN_LENGTH(node) = l;
+				BTN_PREFIX(node) = BTN_PREFIX(next);
+			}
+
+			if (l)
+				do
+					*p++ = *q++;
+				while (--l);
+
+			/* Compute length of rest of bucket and move it down. */
+
+			l = page->btr_length - ((UCHAR *) q - (UCHAR *) page);
+
+			if (l)
+				do
+					*p++ = *q++;
+				while (--l);
+
+			page->btr_length = (UCHAR *) p - (UCHAR *) page;
+			page->btr_prefix_total = temp.jrnb_prefix_total;
+
+			/* Error Check */
+
+			if (BTN_PREFIX(node) != temp.jrnb_delta) {
+				rebuild_abort(60);
+			}
+			if (page->btr_length != temp.jrnb_length) {
+				rebuild_abort(61);
+			}
+
+			if (sw_debug) {
+				GJRN_printf(30, (TEXT *) temp.jrnb_offset, NULL, NULL, NULL);
+				GJRN_printf(27, (TEXT *) page->btr_length, NULL, NULL, NULL);
+			}
+
+			break;
+
+		default:
+			rebuild_abort(72);
+		}
+	}
+}
+
+
+static void apply_log(LIP page, JRND * record)
+{
+/**************************************
+ *
+ *      a p p l y _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Apply changes to database log page
+ *
+ **************************************/
+	JRNL temp, *clump;
+
+	if (sw_debug)
+
+		GJRN_printf(86, (TEXT *) record->jrnd_page, NULL, NULL, NULL);
+
+	for (clump = NULL; clump = (JRNL *) next_clump(record, clump);) {
+		memcpy((SCHAR *) & temp, (SCHAR *) clump, JRNL_SIZE);
+
+		if (sw_trace)
+			continue;
+
+		page->log_flags = temp.jrnl_flags;
+		page->log_mod_tid = temp.jrnl_tid;
+		page->log_mod_tip = temp.jrnl_tip;
+	}
+}
+static void apply_pip(PIP page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ p i p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply changes to page inventory page.
+ *
+ **************************************/
+	JRNA temp, *clump;
+	UCHAR bit;
+	USHORT byte;
+
+	if (sw_debug)
+
+		GJRN_printf(31, (TEXT *) record->jrnd_page, NULL, NULL, NULL);
+
+	for (clump = NULL; clump = (JRNA *) next_clump(record, clump);) {
+		memcpy((SCHAR *) & temp, (SCHAR *) clump, sizeof(struct jrna));
+
+		if (temp.jrna_type != JRNP_PIP)
+			rebuild_abort(63);
+
+		byte = temp.jrna_slot >> 3;
+		bit = 1 << (temp.jrna_slot & 7);
+
+		if (sw_debug) {
+			if (temp.jrna_allocate)
+				GJRN_printf(183, (TEXT *) temp.jrna_slot,
+							(TEXT *) record->jrnd_page, NULL, NULL);
+			else
+				GJRN_printf(184, (TEXT *) temp.jrna_slot,
+							(TEXT *) record->jrnd_page, NULL, NULL);
+		}
+		if (sw_trace)
+			continue;
+
+		if (temp.jrna_allocate) {
+			page->pip_bits[byte] &= ~bit;
+		}
+		else {
+			page->pip_bits[byte] |= bit;
+			page->pip_min = MIN(page->pip_min, temp.jrna_slot);
+		}
+	}
+}
+
+
+static void apply_pointer(PPG page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ p o i n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply incremental changes to a pointer page.
+ *
+ **************************************/
+	JRNP temp, *clump;
+	SLONG longword;
+
+	if (sw_debug)
+
+		GJRN_printf(32, (TEXT *) record->jrnd_page, NULL, NULL, NULL);
+
+	for (clump = NULL; clump = next_clump(record, clump);) {
+		memcpy((SCHAR *) & temp, (SCHAR *) clump, JRNP_SIZE);
+
+		if (temp.jrnp_type != JRNP_POINTER_SLOT)
+			rebuild_abort(64);
+
+		if (sw_trace)
+			continue;
+
+		if (temp.jrnp_length) {
+			memcpy(&longword, clump->jrnp_data, sizeof(SLONG));
+			page->ppg_page[temp.jrnp_index] = longword;
+			page->ppg_count = MAX(page->ppg_count, temp.jrnp_index + 1);
+			page->ppg_min_space = MIN(page->ppg_min_space, temp.jrnp_index);
+			page->ppg_max_space = MAX(page->ppg_min_space, temp.jrnp_index);
+		}
+		else
+			page->ppg_page[temp.jrnp_index] = 0;
+	}
+}
+
+
+static void apply_root(IRT page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ r o o t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply changes to index root page
+ *
+ **************************************/
+	JRNRP temp, *clump;
+
+	if (sw_debug)
+
+		GJRN_printf(33, (TEXT *) record->jrnd_page, NULL, NULL, NULL);
+
+	for (clump = NULL; clump = (JRNRP *) next_clump(record, clump);) {
+		memcpy((SCHAR *) & temp, (SCHAR *) clump, JRNRP_SIZE);
+
+		if (temp.jrnrp_type != JRNP_ROOT_PAGE)
+			rebuild_abort(65);
+
+		if (sw_debug)
+			GJRN_printf(205, (TEXT *) temp.jrnrp_id,
+						(TEXT *) temp.jrnrp_page, NULL, NULL);
+
+		if (sw_trace)
+			continue;
+
+		page->irt_rpt[temp.jrnrp_id].irt_root = temp.jrnrp_page;
+	}
+}
+static void apply_transaction(TIP page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply incremental changes to a TIP page.
+ *
+ **************************************/
+	JRNI *clump, *clump_end;
+	JRNI temp;
+	JRND rec;
+
+	if (sw_debug)
+
+		GJRN_printf(34, (TEXT *) record->jrnd_page, NULL, NULL, NULL);
+
+	memcpy((SCHAR *) & rec, (SCHAR *) record, JRND_SIZE);
+
+	clump = (JRNI *) record->jrnd_data;
+	clump_end = (JRNI *) (record->jrnd_data + rec.jrnd_length);
+
+/* Process clumps */
+
+	for (; clump < clump_end; clump++) {
+		memcpy((SCHAR *) & temp, (SCHAR *) clump, JRNI_SIZE);
+
+		if (sw_debug) {
+			if (temp.jrni_type == JRNP_TRANSACTION)
+				GJRN_printf(181,
+							(TEXT *) temp.jrni_transaction, NULL, NULL, NULL);
+			else if (temp.jrni_type == JRNP_NEXT_TIP)
+				GJRN_printf(202,
+							(TEXT *) temp.jrni_transaction, NULL, NULL, NULL);
+		}
+		if (sw_trace) {
+			/* transaction loop does not use next_clump!! */
+
+			totals[temp.jrni_type - JRN_PAGE].num_recs++;
+			totals[temp.jrni_type - JRN_PAGE].num_bytes += JRNI_SIZE;
+			continue;
+		}
+
+		if (temp.jrni_type == JRNP_TRANSACTION)
+			page->tip_transactions[temp.jrni_position] = temp.jrni_states;
+		else if (temp.jrni_type == JRNP_NEXT_TIP)
+			page->tip_next = temp.jrni_transaction;
+		else
+			rebuild_abort(66);
+	}
+}
+
+
+static USHORT checksum(DRB database, PAG page)
+{
+/**************************************
+ *
+ *	c h e c k s u m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the checksum of a page.
+ *
+ **************************************/
+	ULONG chksum, *p, *end;
+	USHORT old_chksum;
+
+	end = (ULONG *) ((SCHAR *) page + database->drb_page_size);
+	old_chksum = page->pag_checksum;
+	page->pag_checksum = 0;
+	p = (ULONG *) page;
+	chksum = 0;
+
+	do {
+		chksum += *p++;
+		chksum += *p++;
+		chksum += *p++;
+		chksum += *p++;
+		chksum += *p++;
+		chksum += *p++;
+		chksum += *p++;
+		chksum += *p++;
+	} while (p < end);
+
+	page->pag_checksum = old_chksum;
+
+	if (chksum)
+		return (USHORT) chksum;
+
+/* If the page is all zeros, return an artificial checksum */
+
+	for (p = (ULONG *) page; p < end;)
+		if (*p++)
+			return chksum;
+
+/* Page is all zeros -- invent a checksum */
+
+	return 12345;
+}
+
+
+static void close_database(DRB database)
+{
+/**************************************
+ *
+ *	c l o s e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've reached end of processing this database
+ *	Clean up database and close it.
+ *
+ **************************************/ DRB *ptr;
+	CACHE buffer;
+	FIL fil;
+	SLONG *tr2 = 0;
+	SSHORT ret_val;
+	STATUS status[20];
+
+	if (sw_trace)
+		return;
+
+	fixup_header(database);
+
+/* Flush and release cache */
+
+	while (buffer = database->drb_cache) {
+		database->drb_cache = buffer->cache_next;
+		if ((buffer->cache_page_number != PAGE_CORRUPT) &&
+			(buffer->cache_flags & PAGE_DIRTY))
+			write_page(database, buffer);
+		MISC_free_jrnl(buffer);
+	}
+	ret_val = SUCCESS;
+
+	for (fil = database->drb_file; fil; fil = fil->fil_next) {
+		if (LLIO_close(status, fil->fil_desc) == FAILURE)
+			ret_val = FAILURE;
+	}
+
+	if (ret_val == FAILURE)
+		rebuild_abort(233);
+
+	MISC_free_jrnl(database->drb_buffers);
+
+/* Unlink from general data structures */
+
+	for (ptr = &databases; *ptr; ptr = &(*ptr)->drb_next)
+		if (*ptr == database) {
+			*ptr = database->drb_next;
+			release_db(database);
+			break;
+		}
+
+	if ((sw_partial) && (!sw_activate))
+		return;
+
+/* 
+ * Just attach to the database and detach.  This will update the
+ * log page to have the correct checkpoint information
+ */
+
+	READY db_name AS DB_NEW 
+    ON_ERROR 
+        rebuild_abort(153);
+	END_ERROR;
+
+/* cleanup rdb_$log_files for the recovered database */
+
+	if (sw_interact || sw_until || sw_partial) {
+		START_TRANSACTION tr2 USING DB_NEW;
+
+	    FOR(TRANSACTION_HANDLE tr2) L IN DB_NEW.RDB$LOG_FILES 
+            ERASE L;
+	    END_FOR;
+
+		COMMIT tr2 
+
+        ON_ERROR 
+            gds__print_status(gds__status);
+		    rebuild_abort(0);
+		END_ERROR;
+
+	}
+	FINISH DB_NEW;
+}
+
+
+static BOOLEAN commit(DRB database, LTJC * record, USHORT length)
+{
+/**************************************
+ *
+ *	c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	A commit is about to happen.  If restore is to be terminated
+ *	at a given time, this is a good time to check and stop.
+ *
+ **************************************/ 
+
+    TEXT c_time[32];
+	SCHAR buf[MSG_LENGTH];
+	SLONG date[2];
+
+	if (until[0]) {
+		WALR_get_blk_timestamp(WALR_handle, date);
+		format_time(date, c_time);
+		GJRN_printf(87, c_time, NULL, NULL, NULL);
+		if (sw_interact) {
+			GJRN_get_msg(88, buf, NULL, NULL, NULL);
+			if (!MISC_get_line(buf, c_time, sizeof(c_time)) ||
+				UPPER(c_time[0]) != 'Y') {
+				close_database(database);
+				return FALSE;
+			}
+		}
+	}
+	else if (sw_verbose) {
+		WALR_get_blk_timestamp(WALR_handle, date);
+		format_time(date, c_time);
+		GJRN_printf(87, c_time, NULL, NULL, NULL);
+	}
+
+	return TRUE;
+}
+
+
+static SSHORT compress(DRB database, DPG page)
+{
+/**************************************
+ *
+ *	c o m p r e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compress a data page.  Return the high water mark.
+ *
+ **************************************/
+	register SSHORT space, l;
+	UCHAR temp[MAX_PAGE_SIZE + 4];
+	register UCHAR *p, *q;
+	struct dpg_repeat *index, *end;
+
+	if (database->drb_page_size > sizeof(temp))
+		rebuild_abort(67);
+
+	p = (UCHAR *) temp;
+	q = (UCHAR *) page;
+	l = database->drb_page_size >> 2;
+
+	do {
+		*(SLONG *) p = *(SLONG *) q;
+		p += sizeof(SLONG);
+		q += sizeof(SLONG);
+	} while (--l);
+
+	space = database->drb_page_size;
+	end = page->dpg_rpt + page->dpg_count;
+
+	for (index = page->dpg_rpt; index < end; index++)
+		if (index->dpg_offset && index->dpg_length) {
+			l = index->dpg_length;
+			space -= ROUNDUP(l, ODS_ALIGNMENT);
+			q = temp + index->dpg_offset;
+			index->dpg_offset = space;
+			p = (UCHAR *) page + space;
+			if (l)
+				do
+					*p++ = *q++;
+				while (--l);
+		}
+
+	return space;
+}
+
+
+static void disable(DRB database, LTJC * record)
+{
+/**************************************
+ *
+ *	d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	We're encountered a database disable record.
+ *	Clean up database and close it.
+ *
+ **************************************/ TEXT ctime[32];
+	SCHAR dbname[300], dir_name[300];
+	SLONG date[2];
+
+	MISC_get_wal_info(record, dbname, dir_name);
+
+	WALR_get_blk_timestamp(WALR_handle, date);
+	format_time(date, ctime);
+
+	if (sw_verbose)
+		GJRN_printf(35, (TEXT *) record->ltjc_length, dbname,
+					(TEXT *) record->ltjc_header.jrnh_handle, ctime);
+
+	sw_disable = 1;
+	close_database(database);
+}
+static int error(TEXT * filename,
+				 STATUS err_num, TEXT * string, STATUS operation)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've had an unexpected error -- punt.
+ *
+ **************************************/
+	STATUS status_vector[20], *s;
+
+	s = status_vector;
+	*s++ = isc_arg_gds;
+	*s++ = isc_io_error, *s++ = gds_arg_string;
+	*s++ = (STATUS) string;
+	*s++ = gds_arg_string;
+	*s++ = (STATUS) filename;
+	*s++ = isc_arg_gds;
+	*s++ = operation;
+	*s++ = SYS_ERROR;
+	*s++ = err_num;
+	*s = 0;
+
+	gds__print_status(status_vector);
+
+	return 0;
+}
+static void expand_num_alloc(SCHAR *** files, SSHORT * num_alloc)
+{
+/**************************************
+ *
+ *	e x p a n d _ n u m _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand the size of array
+ *
+ **************************************/
+	SCHAR **temp, **temp1;
+	SSHORT size;
+
+	size = *num_alloc;
+	temp1 = *files;
+
+	temp = (SCHAR **) MISC_alloc_jrnl(2 * size * sizeof(SLONG));
+	MOVE_FAST(temp1, temp, size * sizeof(SLONG));
+
+	MISC_free_jrnl(temp1);
+	*num_alloc = 2 * size;
+	*files = temp;
+}
+static void fixup_header(DRB database)
+{
+/**************************************
+ *
+ *	f i x u p _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fixup header page to not require recovery
+ *
+ **************************************/ LIP page;
+	CACHE cch;
+	SCHAR *p;
+	USHORT len;
+	HDR hdr;
+
+	if (sw_trace)
+		return;
+/* 
+ * After a restore, the database should be as close to the original
+ * database as possible.  The exceptions are when we do a recovery
+ * to point on time or when database name or any other information
+ * is changed.  In that case, the journal information and all WAL 
+ * information must be deleted.
+ */
+
+	if (sw_interact || sw_until || sw_disable || sw_activate) {
+		rec_delete_hdr_entry(database, HDR_journal_server);
+		rec_delete_hdr_entry(database, HDR_backup_info);
+		sw_disable = 0;
+	}
+	if (sec_added) {
+		rec_add_hdr_entry(database, HDR_file, sec_len,
+						  sec_file, CLUMP_REPLACE);
+	}
+
+/* Update the next transaction id from the bumped transaction id */
+	cch = get_page(database, (SLONG) HEADER_PAGE, TRUE);
+	MARK_HEADER(cch);
+	hdr = (HDR) cch->cache_page;
+	hdr->hdr_next_transaction = hdr->hdr_bumped_transaction;
+	release_page(database, cch);
+
+/* Now update the log page */
+	cch = get_page(database, (SLONG) LOG_PAGE, TRUE);
+	MARK_PAGE(cch);
+	page = (LIP) cch->cache_page;
+
+	if (sw_interact || sw_until || sw_activate) {
+		p = page->log_data;
+		*p++ = LOG_ctrl_file1;
+		*p++ = len = CTRL_FILE_LEN;
+		do
+			*p++ = 0;
+		while (--len);
+
+		/* Set control point 2 file name */
+
+		*p++ = LOG_ctrl_file2;
+		*p++ = len = CTRL_FILE_LEN;
+		do
+			*p++ = 0;
+		while (--len);
+
+		/* Set current log file */
+
+		*p++ = LOG_logfile;
+		*p++ = len = CTRL_FILE_LEN;
+		do
+			*p++ = 0;
+		while (--len);
+
+		*p = LOG_end;
+
+		page->log_flags = log_no_ail;
+		page->log_end = (USHORT) (p - (SCHAR *) page);
+
+		page->log_cp_1.cp_seqno = 0;
+		page->log_cp_1.cp_offset = 0;
+		page->log_cp_1.cp_p_offset = 0;
+		page->log_cp_1.cp_fn_length = 0;
+
+		page->log_cp_2.cp_seqno = 0;
+		page->log_cp_2.cp_offset = 0;
+		page->log_cp_2.cp_p_offset = 0;
+		page->log_cp_2.cp_fn_length = 0;
+
+		page->log_file.cp_seqno = max_seqno;
+		page->log_file.cp_offset = 0;
+		page->log_file.cp_p_offset = 0;
+		page->log_file.cp_fn_length = 0;
+	}
+
+	page->log_flags &= ~log_recover;
+
+/* At the end of a partial recovery, we will turn off log and
+ * set the next seqno.
+ */
+
+	if ((sw_partial) && (!sw_activate)) {
+		page->log_flags = (log_no_ail | log_partial_rebuild);
+		page->log_file.cp_seqno = max_seqno;
+	}
+
+/* Set the log_recovery_done flag, so that a subsequent attachment by 
+   the recovery process would not be denied because the shared cache 
+   manager is not running. */
+	if (!(page->log_flags & log_no_ail))
+		page->log_flags |= log_recovery_done;
+
+	release_page(database, cch);
+}
+
+
+static void format_time(SLONG date[2], TEXT * string)
+{
+/**************************************
+ *
+ *	f o r m a t _ t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format a date/time string.
+ *
+ **************************************/ struct tm times;
+
+	gds__decode_date(date, &times);
+
+	sprintf(string, "%.2d:%.2d:%.2d %.2d/%.2d/%.2d",
+			times.tm_hour, times.tm_min, times.tm_sec,
+			times.tm_mon + 1, times.tm_mday, times.tm_year);
+} static CACHE get_free_buffer(DRB database, SLONG page)
+{
+/**************************************
+ *
+ *	g e t _ f r e e _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find (or make) available buffer in cache. 
+ *
+ **************************************/
+	CACHE best, buffer;
+
+	best = database->drb_cache;
+
+	for (buffer = database->drb_cache; buffer; buffer = buffer->cache_next) {
+		if (buffer->cache_use_count)
+			continue;
+		if (buffer->cache_age < best->cache_age)
+			best = buffer;
+		if (buffer->cache_page_number == PAGE_CORRUPT) {
+			best = buffer;
+			break;
+		}
+	}
+	if (best->cache_use_count)
+		rebuild_abort(73);
+
+	if ((best->cache_page_number != PAGE_CORRUPT) &&
+		(best->cache_flags & PAGE_DIRTY)) write_page(database, best);
+
+	/* Unlink from old slot */
+
+	MOVE_CLEAR(best->cache_page, database->drb_page_size);
+	best->cache_page_number = page;
+
+	return best;
+}
+
+
+static void get_log_files(SLONG db_id,
+						  SSHORT use_archive,
+						  SCHAR *** file_list,
+						  SLONG ** p_offset, SSHORT * number,
+						  SLONG start_seqno)
+{
+/**************************************
+ *
+ *	g e t _ l o g _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	gets a list of files for the recovery start from start_seqno
+ *
+ **************************************/ SSHORT num_files;
+	SSHORT num_alloc, num_alloc1;
+	SCHAR **files;
+	SLONG *start_p_offset;
+
+	num_files = 0;
+	num_alloc1 = num_alloc = INITIAL_ALLOC;
+	files = (SCHAR **) MISC_alloc_jrnl(num_alloc * sizeof(SLONG));
+
+	start_p_offset = (SLONG *) MISC_alloc_jrnl(num_alloc1 * sizeof(SLONG));
+
+/* 
+ * Note that we do not allow partition offset.  Partitions are
+ * allowed only in raw files, and raw file have to be archived
+ */
+
+    FOR(TRANSACTION_HANDLE tr1) J IN DB.JOURNAL_FILES WITH
+	    J.FILE_SEQUENCE >= start_seqno AND
+	    J.DB_ID EQ db_id SORTED BY J.FILE_SEQUENCE 
+
+        if (num_files >= num_alloc) {
+            expand_num_alloc(&files, &num_alloc);
+            expand_num_alloc(&start_p_offset, &num_alloc1);
+        }
+        /* 
+         * Stop at the first open file, but make sure there is 
+         * atleast one file
+         */ 
+        if ((strcmp(J.FILE_STATUS, LOG_CLOSED)) &&
+            (((sw_partial) && (!sw_activate)) || (num_files)))
+            break;
+        
+        files[num_files] = (SCHAR *) MISC_alloc_jrnl(MAX_PATH_LENGTH);
+        
+        if (use_archive) {
+            if (strcmp(J.ARCHIVE_STATUS, ARCHIVED)) {
+                if (!num_files) {
+                    if ((sw_partial) && (!sw_activate))
+                        break;
+                    
+                    /* Get partition offset if single file is used */
+                    strcpy(files[num_files], J.LOG_NAME);
+                       start_p_offset[num_files] = J.PARTITION_OFFSET;
+                       num_files++;
+                }
+                break;
+            }
+            
+            strcpy(files[num_files], J.ARCHIVE_NAME);
+           }
+        else {
+            /* Get partition offset if original files are used */
+            strcpy(files[num_files], J.LOG_NAME);
+            start_p_offset[num_files] = J.PARTITION_OFFSET;
+        }
+        
+        max_seqno = J.FILE_SEQUENCE;
+        
+        num_files++;
+    END_FOR;
+
+    *file_list = files;
+    *p_offset = start_p_offset;
+    *number = num_files;
+}
+
+
+static void get_old_files(SLONG db_id,
+						  SCHAR *** file_list,
+						  SSHORT * number,
+						  SLONG * start_seqno, SLONG * start_offset)
+{
+/**************************************
+ *
+ *	g e t _ o l d _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a list of old files for this recovery
+ *	Returns number of files, start_seqno and offset.
+ *
+ **************************************/ SSHORT num_files;
+	SCHAR dump_num[10];
+	SCHAR buf[MSG_LENGTH];
+	SSHORT num_alloc;
+	SCHAR **files;
+	SLONG end_seqno;
+
+	if (sw_interact) {
+		sprintf(dump_num, "%d", dump_id);
+		GJRN_get_msg(94, buf, NULL, NULL, NULL);
+		MISC_get_new_value(buf, dump_num, sizeof(dump_num));
+		dump_id = atoi(dump_num);
+
+		/* Check if this dump is for this database */
+
+	       FOR(TRANSACTION_HANDLE tr1) OD IN DB.ONLINE_DUMP
+	           WITH OD.DUMP_ID EQ dump_id 
+
+               if (OD.DB_ID != db_id) {
+                   rebuild_abort(187);
+               }
+
+	       END_FOR;
+	}
+	end_seqno = 0;
+
+	num_files = 0;
+	num_alloc = INITIAL_ALLOC;
+	files = (SCHAR **) MISC_alloc_jrnl(num_alloc * sizeof(SLONG));
+
+	FOR(TRANSACTION_HANDLE tr1) OD IN DB.ONLINE_DUMP_FILES 
+       WITH OD.DUMP_ID EQ dump_id 
+       SORTED BY OD.FILE_SEQNO 
+
+        if (num_files >= num_alloc) {
+            expand_num_alloc(&files, &num_alloc);
+        }
+	
+	    files[num_files++] = (SCHAR *) MISC_alloc_jrnl(MAX_PATH_LENGTH);
+        strcpy(files[num_files - 1], OD.DUMP_FILE_NAME);
+	
+    END_FOR;
+
+    FOR(TRANSACTION_HANDLE tr1) O IN DB.ONLINE_DUMP 
+        WITH O.DUMP_ID EQ dump_id 
+
+        if ((O.START_SEQNO > O.END_SEQNO)
+            || ((O.START_SEQNO == O.END_SEQNO)
+                && (O.START_OFFSET > O.END_OFFSET))) {
+            rebuild_abort(51);
+        }
+	
+	    *start_offset = O.START_OFFSET;
+        *start_seqno = O.START_SEQNO;
+	
+        end_seqno = O.END_SEQNO;
+	
+	END_FOR;
+
+/* Check if online dump has been completed */
+
+    if ((sw_partial) && (!sw_activate)) {
+        FOR(TRANSACTION_HANDLE tr1) J IN DB.JOURNAL_FILES 
+            WITH J.DB_ID EQ db_id AND J.FILE_SEQUENCE EQ end_seqno 
+
+            if (strcmp(J.FILE_STATUS, LOG_CLOSED)) {
+                rebuild_abort(148);
+            }
+
+        END_FOR;
+	}
+
+	if (!num_files)
+		rebuild_abort(53);
+
+	*file_list = files;
+	*number = num_files;
+}
+
+
+static CACHE get_page(DRB database, SLONG page, USHORT read_flag)
+{
+/**************************************
+ *
+ *	g e t _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get address of page in cache.  If read_flag is set,
+ *	read the page if necessary.
+ *
+ **************************************/ 
+
+    CACHE buffer;
+	PAG pg;
+
+	buffer = NULL;
+
+	for (buffer = database->drb_cache; buffer; buffer = buffer->cache_next)
+		if (buffer->cache_page_number == page)
+			break;
+
+	if (!buffer) {
+		buffer = get_free_buffer(database, page);
+		if (read_flag) {
+			/* stuff something in to make sure that when we read beyond
+			 * current end of file and not read any data, we will zero
+			 * things out.
+			 */
+
+			pg = (PAG) buffer->cache_page;
+			pg->pag_checksum = 12345;
+
+			read_page(database, buffer);
+			if (pg->pag_checksum != checksum(database, pg))
+				MOVE_CLEAR((UCHAR *) pg, database->drb_page_size);
+		}
+	}
+	buffer->cache_age = ++database->drb_age;
+
+	if (buffer->cache_use_count)
+		rebuild_abort(68);
+
+	buffer->cache_use_count++;
+
+	if (page > database->drb_max_page)
+		database->drb_max_page = page;
+
+	return buffer;
+}
+
+
+static JRNP *next_clump(JRND * record, void *prior)
+{
+/**************************************
+ *
+ *	n e x t _ c l u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a prior clump, compute the address of the next
+ *	clump on a data page.  If the prior clump is null,
+ *	compute the address of the first clump.  If we run
+ *	off the record, return NULL.
+ *
+ **************************************/
+	JRNB temp1;
+	USHORT offset, l;
+	JRNP temp;
+
+/* Compute the offset and length of prior clump */
+
+	if (prior) {
+		offset = (SCHAR *) prior - (SCHAR *) record;
+		memcpy((SCHAR *) & temp, (SCHAR *) prior, JRNP_SIZE);
+	}
+	else {
+		offset = 0;
+		memcpy((SCHAR *) & temp, (SCHAR *) record->jrnd_data, JRNP_SIZE);
+	}
+
+	switch (temp.jrnp_type) {
+	case JRNP_DATA_SEGMENT:
+	case JRNP_POINTER_SLOT:
+		l = JRNP_SIZE + temp.jrnp_length;
+		break;
+
+	case JRNP_BTREE_SEGMENT:
+	case JRNP_BTREE_NODE:
+
+		if (prior)
+			memcpy((SCHAR *) & temp1, (SCHAR *) prior, JRNB_SIZE);
+		else
+			memcpy((SCHAR *) & temp1, (SCHAR *) record->jrnd_data, JRNB_SIZE);
+
+		l = JRNB_SIZE + temp1.jrnb_length;
+		break;
+
+		/*
+		 * currently DELETE node contains some debug info in jrnb_length
+		 * but data field is not used.
+		 */
+	case JRNP_BTREE_DELETE:
+		l = JRNB_SIZE;
+		break;
+
+	case JRNP_PIP:
+		l = sizeof(struct jrna);
+		break;
+
+	case JRNP_DB_HEADER:
+		l = JRNDH_SIZE;
+		break;
+
+	case JRNP_LOG_PAGE:
+		l = JRNL_SIZE;
+		break;
+
+	case JRNP_DB_ATTACHMENT:
+	case JRNP_DB_HDR_PAGES:
+	case JRNP_DB_HDR_FLAGS:
+	case JRNP_DB_HDR_SDW_COUNT:
+		l = JRNDA_SIZE;
+		break;
+
+	case JRNP_GENERATOR:
+		l = JRNG_SIZE;
+		break;
+
+	case JRNP_ROOT_PAGE:
+		l = JRNRP_SIZE;
+		break;
+
+	default:
+		rebuild_abort(69);
+	}
+
+	if (sw_trace) {
+		totals[temp.jrnp_type - JRN_PAGE].num_recs++;
+		totals[temp.jrnp_type - JRN_PAGE].num_bytes += l;
+	}
+
+/* If the prior pointer is null, just return the data area */
+
+	if (!prior)
+		return (JRNP *) record->jrnd_data;
+
+	offset += l;
+
+	if (offset & 1)
+		++offset;
+
+	if (offset >= JRND_SIZE + record->jrnd_length)
+		return 0;
+
+	return (JRNP *) ((SCHAR *) record + offset);
+}
+
+
+static void open_all_files(void)
+{
+/**************************************
+ *
+ *	o p e n _ a l l _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open all secondary files of a database.
+ *
+ **************************************/
+	struct cache cch;
+	DRB database;
+	FIL file;
+	SCHAR *file_name;
+	SSHORT file_length;
+	HDR hdr;
+	UCHAR *p;
+	SLONG last_page, next_page;
+	SCHAR buf[MAX_PATH_LENGTH];
+	PAG pg;
+
+	if (sw_trace)
+		return;
+
+	database = databases;
+	file = database->drb_file;
+
+/* allocate a temp page */
+
+	cch.cache_page = (PAG) MISC_alloc_jrnl(MAX_PAGE_SIZE);
+
+	for (;;) {
+		file_name = NULL;
+		cch.cache_page_number = file->fil_min_page;
+		/*
+		 * Loop through all the header pages.  Only the primary database
+		 * page will have overflow header pages.
+		 */
+
+		do {
+			read_page(database, &cch);
+			pg = (PAG) cch.cache_page;
+			if (pg->pag_checksum != checksum(database, pg))
+				rebuild_abort(234);
+
+			hdr = (HDR) cch.cache_page;
+
+			for (p = hdr->hdr_data; *p != HDR_end; p += 2 + p[1])
+				switch (*p) {
+				case HDR_file:
+					file_length = p[1];
+					file_name = buf;
+					MOVE_FAST(p + 2, buf, file_length);
+					break;
+
+				case HDR_last_page:
+					MOVE_FAST(p + 2, &last_page, sizeof(last_page));
+					break;
+
+				default:;
+				}
+			next_page = hdr->hdr_next_page;
+			cch.cache_page_number = next_page;
+		} while (next_page);
+
+		if (file->fil_min_page)
+			file->fil_fudge = 1;
+
+		if (!file_name)
+			break;
+
+		add_file(database, database->drb_file, file_name,
+				 file_length, last_page + 1, FALSE);
+		file = file->fil_next;
+	}
+	MISC_free_jrnl(cch.cache_page);
+}
+
+
+static DRB open_database(TEXT * name, USHORT page_size, SSHORT new_file)
+{
+/**************************************
+ *
+ *	o p e n _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open database and create blocks.
+ *
+ **************************************/ DRB database;
+	UCHAR *buffers;
+	CACHE buffer;
+	USHORT n;
+	SLONG file_handle;
+
+	if (sw_trace)
+		return 0;
+
+/* Allocate and partially populate database block */
+
+
+	database = (DRB) MISC_alloc_jrnl(sizeof(struct drb) + strlen(name));
+	strcpy(database->drb_filename, name);
+
+/* Try to open file */
+
+	if (!open_database_file(database, name, new_file, &file_handle))
+		rebuild_abort(199);
+
+
+	database->drb_file = setup_file(name, strlen(name), (int) file_handle);
+
+/* Link database block into world */
+
+	database->drb_next = databases;
+	databases = database;
+
+	database->drb_page_size = page_size;
+
+/* Allocate and initialize cache */
+
+
+
+	buffers = database->drb_buffers = MISC_alloc_jrnl(page_size * CACHE_SIZE);
+
+	for (n = 0; n < CACHE_SIZE; n++) {
+		buffer = (CACHE) MISC_alloc_jrnl(sizeof(struct cache));
+		buffer->cache_next = database->drb_cache;
+		database->drb_cache = buffer;
+		buffer->cache_page_number = PAGE_CORRUPT;
+		buffer->cache_page = (PAG) buffers;
+		buffers += page_size;
+	} return database;
+}
+
+
+static BOOLEAN open_database_file(DRB database,
+								  TEXT * name,
+								  SSHORT new_file, SLONG * file_handle)
+{
+/**************************************
+ *
+ *	o p e n _ d a t a b a s e _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open database and create blocks.
+ *
+ **************************************/ SSHORT ret_val;
+	STATUS status[20];
+
+	if (new_file) {
+		if (LLIO_open(status, name, LLIO_OPEN_NEW_RW, TRUE,
+					  file_handle) == FAILURE) return FALSE;
+	}
+	else {
+		if (LLIO_open
+			(status, name, LLIO_OPEN_EXISTING_RW, TRUE,
+			 file_handle) == FAILURE) return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+static int open_journal(SCHAR * dbname,
+						SCHAR ** files,
+						SSHORT num_files,
+						SLONG start_offset, SLONG * start_p_offset)
+{
+/**************************************
+ *
+ *	o p e n _ j o u r n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prompt the user for a journal file name, and open the file.
+ *
+ **************************************/ int i, n;
+	SCHAR buf[MAX_PATH_LENGTH];
+	SSHORT stop_flag;
+	SLONG *until_ptr;
+
+	WALR_handle = 0;
+
+	if (sw_interact)
+		for (i = 0; i < num_files; i++) {
+			GJRN_get_msg(154, buf, NULL, NULL, NULL);
+			MISC_get_new_value(buf, files[i], MAX_PATH_LENGTH);
+		}
+	else if (sw_verbose)
+		for (i = 0; i < num_files; i++) {
+			GJRN_printf(20, files[i], NULL, NULL, NULL);
+		}
+
+	stop_flag = (sw_partial && !sw_activate) ? TRUE : FALSE;
+	until_ptr = sw_until ? until : 0;
+
+	n =
+		WALR_open(wal_status, &WALR_handle, dbname, num_files,
+				  files, start_p_offset, start_offset, until_ptr, stop_flag);
+
+	if (n != SUCCESS) {
+		error(files[0], (STATUS) ERRNO, "open", isc_io_open_err);
+		return 0;
+	}
+
+	return n;
+}
+
+
+static int process_online_dump(SCHAR * dbname,
+							   SCHAR ** files, SSHORT num_files)
+{
+/**************************************
+ *
+ *	p r o c e s s _ o n l i n e _ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a journal file until end of file.  
+ *
+ **************************************/ OLD OLD_handle;
+	SLONG ret_val;
+	SSHORT len;
+	SSHORT count;
+	SCHAR buf[MSG_LENGTH];
+	struct timeval first, next;
+
+	if (sw_verbose)
+		GJRN_printf(37, NULL, NULL, NULL, NULL);
+
+	OLD_handle = 0;
+
+/*
+ * OLD_get () returns
+ *	 0  	- OK
+ *	OLD_EOD	- end of dump
+ *	OLD_EOF	- EOF
+ *      OLD_ERR	- Error
+ */
+	count = 0;
+
+	while (TRUE) {
+		if (sw_interact) {
+			GJRN_get_msg(89, buf, NULL, NULL, NULL);
+			MISC_get_new_value(buf, files[count], MAX_PATH_LENGTH);
+		}
+		if (sw_verbose)
+			GJRN_printf(191, files[count], NULL, NULL, NULL);
+
+		count++;
+
+		if (OLDR_open(&OLD_handle, dbname, num_files, files)
+			== FAILURE)
+			return FAILURE;
+
+		/* get start time */
+
+		MISC_get_time(&first);
+
+		while (TRUE) {
+			ret_val = OLDR_get(OLD_handle, wal_buff, &len);
+
+			if (ret_val)
+				break;
+
+			process_old_record((JRND *) wal_buff, len);
+		}
+		/* get finish time */
+
+		MISC_get_time(&next);
+
+		add_time(&first, &next);
+
+		if (ret_val == OLD_EOD) {
+			ret_val = 0;
+			break;
+		}
+		if (ret_val == OLD_ERR) {
+			ret_val = -1;
+			break;
+		}
+	}
+
+	OLDR_close(&OLD_handle);
+	OLD_handle = 0;
+
+	if (sw_verbose)
+		GJRN_printf(38, NULL, NULL, NULL, NULL);
+
+	return ret_val;
+}
+
+
+static int process_journal(SCHAR * dbname,
+						   SCHAR ** files,
+						   SSHORT num_files,
+						   SLONG start_seqno, SLONG start_offset,
+						   SLONG * start_p_offset)
+{
+/**************************************
+ *
+ *	p r o c e s s _ j o u r n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a journal file until end of file.  
+ *
+ **************************************/ USHORT len;
+	SLONG ret_val;
+	ULONG seqno;
+	ULONG offset;
+	struct timeval first, next;
+#ifdef DEV_BUILD
+	JRND rec1;
+	SLONG rec_checksum;
+#endif
+
+	if (sw_verbose)
+		GJRN_printf(39, NULL, NULL, NULL, NULL);
+
+	if (
+		(open_journal
+		 (dbname, files, num_files, start_offset,
+		  start_p_offset)) < 0) return FAILURE;
+
+	seqno = offset = 0;
+
+/* get start time */
+
+	MISC_get_time(&first);
+
+	max_seqno = start_seqno;
+
+	while (TRUE) {
+		ret_val =
+			WALR_get(wal_status, WALR_handle, wal_buff, &len,
+					 &seqno, &offset);
+
+		if (ret_val == -1) {
+			ret_val = 0;
+			break;
+		}
+		if (ret_val != SUCCESS) {
+			ret_val = -1;
+			break;
+		}
+
+		/* This the maximum seqno which is processed */
+
+		max_seqno = seqno;
+
+#ifdef DEV_BUILD
+		/* take care of word alignment problems */
+		MOVE_FAST((SCHAR *) wal_buff, (SCHAR *) & rec1, JRND_SIZE);
+		rec_checksum = rec1.jrnd_header.jrnh_series;
+		rec1.jrnd_header.jrnh_series = 0;
+		MOVE_FAST((SCHAR *) & rec1, (SCHAR *) wal_buff, JRND_SIZE);
+
+		if (rec_checksum != MISC_checksum_log_rec(wal_buff, len, 0, 0))
+			rebuild_abort(214);
+
+		rec1.jrnd_header.jrnh_series = rec_checksum;
+		MOVE_FAST((SCHAR *) & rec1, (SCHAR *) wal_buff, JRND_SIZE);
+#endif
+		/* Will return FALSE when JRN_DISABLE is encountered */
+
+		if (!(ret_val = process_record(wal_buff, len, seqno, offset, 1)))
+			break;
+	}
+
+/* get end time  and increment stats */
+
+	MISC_get_time(&next);
+
+	add_time(&first, &next);
+
+	if ((!end_reached) && (sw_first_recover))
+		if (!sw_trace)
+			rebuild_abort(148);
+
+	if (sw_verbose)
+		GJRN_printf(40, NULL, NULL, NULL, NULL);
+
+	if (!(sw_interact || sw_until))
+		WALR_fixup_log_header(wal_status, WALR_handle);
+
+	WALR_close(wal_status, &WALR_handle);
+
+	return ret_val;
+}
+
+
+static SLONG process_new_file(DRB database, JRNF * record)
+{
+/**************************************
+ *
+ *	p r o c e s s _ n e w _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a file to the current database.  
+ *
+ **************************************/ FIL file, next;
+	HDR header;
+	SLONG sequence;
+	TEXT *file_name;
+	SLONG start;
+	CACHE cch;
+	SSHORT file_len;
+	TEXT new_name[MAX_PATH_LENGTH];
+	SCHAR buf[MSG_LENGTH];
+
+	start = record->jrnf_start;
+	file_name = record->jrnf_filename;
+	file_len = record->jrnf_length;
+
+	memcpy(new_name, file_name, file_len);
+	new_name[file_len] = 0;
+
+	if (sw_interact) {
+		GJRN_get_msg(90, buf, NULL, NULL, NULL);
+		MISC_get_new_value(buf, new_name, sizeof(new_name));
+		file_name = new_name;
+		file_len = strlen(new_name);
+	}
+	if (sw_verbose)
+
+
+		GJRN_printf(180, file_name,
+					(TEXT *) record->jrnf_sequence, NULL, NULL);
+
+	if (sw_trace)
+		return 0;
+
+/* Find current last file */
+
+	for (file = database->drb_file; file->fil_next; file = file->fil_next);
+
+/* Create the file.  If the sequence number comes back zero, it didn't
+   work, so punt */
+
+	if (!
+		(sequence =
+		 add_file(database, database->drb_file, file_name,
+				  file_len, start, TRUE))) rebuild_abort(232);
+
+	if (record->jrnf_sequence != sequence)
+		rebuild_abort(71);
+
+/* Create header page for new file */
+
+	next = file->fil_next;
+
+	cch = get_page(database, next->fil_min_page, FALSE);
+	header = (HDR) cch->cache_page;
+	header->hdr_header.pag_type = pag_header;
+	header->hdr_sequence = sequence;
+	header->hdr_page_size = database->drb_page_size;
+	header->hdr_data[0] = HDR_end;
+	next->fil_sequence = sequence;
+
+	MARK_HEADER(cch);
+	release_page(database, cch);
+	next->fil_fudge = 1;
+
+/* Update the previous header page to point to new file */
+/* Header page can be updated only by setting fil_fudge to 0 */
+
+	file->fil_fudge = 0;
+
+	cch = get_page(database, file->fil_min_page, TRUE);
+	header = (HDR) cch->cache_page;
+
+/* Add clumplets for file name, starting page number */
+
+	if (!file->fil_min_page) {
+		/* 
+		 * This will happen when the second file is added.  The primary
+		 * file header page is journalled when the file is added and that
+		 * record will be encountered before this new_file record is
+		 * added.  This code is just an error check
+		 */
+		sec_added = TRUE;
+		sec_len = file_len;
+		memcpy(sec_file, file_name, file_len);
+		sec_file[sec_len] = 0;
+	}
+	else {
+		--start;
+		rec_add_clump_entry(database, header, HDR_file,
+							strlen(file_name), file_name);
+		rec_add_clump_entry(database, header, HDR_last_page,
+							sizeof(start), (UCHAR *) & start);
+	}
+
+	MARK_HEADER(cch);
+	release_page(database, cch);
+
+/* i.e if it is not the first file */
+
+	if (file->fil_min_page)
+		file->fil_fudge = 1;
+
+	return sequence;
+}
+
+
+static BOOLEAN process_old_record(JRND * record, USHORT length)
+{
+/**************************************
+ *
+ *	p r o c e s s _ o l d _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a single online dump record record.  
+ *	Generate a seqno/offset pair for data pages
+ *
+ **************************************/ PAG page;
+	ULONG seqno;
+	ULONG offset;
+
+	if (record->jrnd_header.jrnh_type == JRN_PAGE) {
+		page = (PAG) record->jrnd_data;
+		offset = page->pag_offset;
+		seqno = page->pag_seqno;
+		return process_record(record, length, seqno, offset, 0);
+	}
+	offset = -1;
+	seqno = -1;
+
+	return process_record(record, length, seqno, offset, 0);
+}
+
+
+static void process_page(DRB database,
+						 JRND * record,
+						 ULONG seqno, ULONG offset, USHORT wal_flag)
+{
+/**************************************
+ *
+ *	p r o c e s s _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update a database page.
+ *	wal_flag indicates whether it is done for wal record or old record
+ *
+ **************************************/ PAG page;
+	JRNP *clump;
+	UCHAR *p, *q;
+	CACHE cch;
+	JRND rec;
+
+	clump = (JRNP *) record->jrnd_data;
+	q = (UCHAR *) clump;
+
+/* wal_flag is always true for clumps */
+
+	memcpy((SCHAR *) & rec, (SCHAR *) record, JRND_SIZE);
+
+/* Print out info */
+
+	if (sw_debug)
+
+
+		GJRN_printf(182, (TEXT *) rec.jrnd_page,
+					(TEXT *) seqno, (TEXT *) offset, NULL);
+
+/* Handle zero length record.  This is an off shoot of PAG_release_page () */
+
+	if (rec.jrnd_length == 0)
+		return;
+
+/* Collect statistics */
+
+	bytes_processed += (rec.jrnd_length + JRND_SIZE);
+
+	if (!sw_trace) {
+		cch = get_page(database, rec.jrnd_page, wal_flag);
+		page = cch->cache_page;
+	}
+	if ((wal_flag) && (!sw_trace)) {
+		/* handle freed page problem.  Ignore clumps for pages
+		 * which are empty.  This may have to be fixed later
+		 */
+
+		if (clump->jrnp_type > pag_max) {
+			if ((page->pag_generation == 0)
+				&& (page->pag_seqno == 0)
+				&& (page->pag_offset == 0)) {
+				release_page(database, cch);
+				return;
+			}
+		}
+
+		if ((page->pag_seqno > seqno) || ((page->pag_seqno == seqno)
+										  && (page->pag_offset >= offset))) {
+			release_page(database, cch);
+			if (sw_debug) {
+				if (clump->jrnp_type <= pag_max)
+					GJRN_printf(41, (TEXT *) rec.jrnd_page, NULL, NULL, NULL);
+				else
+					GJRN_printf(43, (TEXT *) rec.jrnd_page, NULL, NULL, NULL);
+			}
+			return;
+		}
+		/* 
+		 * Error check to see if records are being skipped
+		 * Do not check for error if it is a full page, or clump type
+		 * is JRNP_BTREE_SEGMENT and the previous seqno & offset are 0
+		 */
+
+		if (!((rec.jrnd_header.jrnh_prev_seqno == 0) &&
+			  (rec.jrnd_header.jrnh_prev_offset == 0) &&
+			  ((clump->jrnp_type <= pag_max)
+			   || (clump->jrnp_type == JRNP_BTREE_SEGMENT)))) {
+			if ((page->pag_seqno != rec.jrnd_header.jrnh_prev_seqno)
+				|| (page->pag_offset != rec.jrnd_header.jrnh_prev_offset)) {
+				release_page(database, cch);
+				rebuild_abort(140);
+			}
+		}
+	}
+
+/* Collect statistics */
+
+	bytes_applied += (rec.jrnd_length + JRND_SIZE);
+
+	if (!sw_trace)
+		MARK_PAGE(cch);
+
+/* If record is a full replacement page, handle it */
+
+	if (clump->jrnp_type <= pag_max) {
+		if (sw_debug)
+			GJRN_printf(42, (TEXT *) rec.jrnd_page, NULL, NULL, NULL);
+
+		if (sw_trace) {
+			totals[0].num_recs++;
+			totals[0].num_bytes += rec.jrnd_length;
+		}
+		else {
+			p = (UCHAR *) page;
+			memcpy(p, q, database->drb_page_size);
+			page->pag_seqno = seqno;
+			page->pag_offset = offset;
+			release_page(database, cch);
+		}
+		return;
+	}
+
+/* 
+ * If we are doing a trace, there is no page, and we will just follow
+ * the journal record type.  Else there is an error check.
+ */
+
+	if (sw_trace) {
+		switch (clump->jrnp_type) {
+		case JRNP_POINTER_SLOT:
+			apply_pointer(page, record);
+			break;
+
+		case JRNP_DATA_SEGMENT:
+			apply_data(database, page, record);
+			break;
+
+		case JRNP_TRANSACTION:
+		case JRNP_NEXT_TIP:
+			apply_transaction(page, record);
+			break;
+
+		case JRNP_PIP:
+			apply_pip(page, record);
+			break;
+		case JRNP_DB_HEADER:
+		case JRNP_DB_ATTACHMENT:
+		case JRNP_DB_HDR_PAGES:
+		case JRNP_DB_HDR_FLAGS:
+		case JRNP_DB_HDR_SDW_COUNT:
+			apply_header(page, record);
+			break;
+		case JRNP_ROOT_PAGE:
+			apply_root(page, record);
+			break;
+
+		case JRNP_BTREE_NODE:
+		case JRNP_BTREE_SEGMENT:
+		case JRNP_BTREE_DELETE:
+			apply_index(page, record);
+			break;
+		case JRNP_GENERATOR:
+			apply_ids(page, record);
+			break;
+		case JRNP_LOG_PAGE:
+			apply_log(page, record);
+			break;
+
+		default:
+			if (sw_debug)
+				GJRN_printf(44, (TEXT *) rec.jrnd_page, NULL, NULL, NULL);
+			rebuild_abort(72);
+		}
+	}
+	else {
+		/* This allows some more error checking */
+
+		switch (page->pag_type) {
+		case pag_pointer:
+			apply_pointer(page, record);
+			break;
+
+		case pag_data:
+			apply_data(database, page, record);
+			break;
+
+		case pag_transactions:
+			apply_transaction(page, record);
+			break;
+
+		case pag_pages:
+			apply_pip(page, record);
+			break;
+		case pag_header:
+			apply_header(page, record);
+			break;
+		case pag_root:
+			apply_root(page, record);
+			break;
+		case pag_index:
+			apply_index(page, record);
+			break;
+		case pag_ids:
+			apply_ids(page, record);
+			break;
+		case pag_log:
+			apply_log(page, record);
+			break;
+
+		default:
+			if (sw_debug)
+				GJRN_printf(44, (TEXT *) rec.jrnd_page, NULL, NULL, NULL);
+			rebuild_abort(72);
+		}
+	}
+
+	if (!sw_trace) {
+		page->pag_seqno = seqno;
+		page->pag_offset = offset;
+		page->pag_generation++;
+		release_page(database, cch);
+	}
+}
+
+
+static BOOLEAN process_partial(SLONG db_id, SCHAR * old_db_name)
+{
+/**************************************
+ *
+ *	p r o c e s s _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Processes a partial recovery.  If it is the first
+ *	pass, store a record and return.  Let the general
+ *	recovery code handle it
+ *
+ **************************************/
+	SCHAR buf[MSG_LENGTH];
+	BOOLEAN found;
+
+	found = FALSE;
+
+	if (!sw_partial)
+		return found;
+
+/* This is partial recovery - check if value exists in 
+ * relation.  If not add one.
+ */
+
+	if (!partial_db)
+		rebuild_abort(195);
+
+/* Use the partial_db_name as the new db_name */
+
+	strcpy(db_name, partial_db);
+
+
+	FOR(TRANSACTION_HANDLE tr1) P IN DB.PARTIAL_REBUILDS 
+        WITH P.DB_ID EQ db_id AND P.NEW_DB_NAME EQ partial_db
+	
+        if (P.LAST_LOG_SEQ == 0) {
+            if (sw_interact) {
+                GJRN_get_msg(192, P.NEW_DB_NAME, NULL, NULL, NULL);
+                if ((!MISC_get_line(buf, buf, sizeof(buf)))
+                    || (UPPER(buf[0]) != 'Y'))
+                    rebuild_abort(193); /* Invalid entry */
+                ERASE P 
+                ON_ERROR 
+                    rebuild_abort(194);
+                END_ERROR;
+                SAVE tr1 
+                ON_ERROR 
+                    rebuild_abort(194);
+	            END_ERROR;
+                break;
+            }
+            else
+                rebuild_abort(193);
+        }
+        found = TRUE;
+        sw_first_recover = FALSE;
+        /* This will recovery the database fully */
+        if (sw_verbose)
+            GJRN_printf(201, partial_db, NULL, NULL, NULL);
+        rebuild_partial(P.DB_ID, P.LAST_LOG_SEQ, old_db_name);
+    END_FOR;
+    if (found)
+		return found;
+
+    /* Add entry to PARTIAL_REBUILDS */
+	STORE(TRANSACTION_HANDLE tr1) P IN DB.PARTIAL_REBUILDS 
+        P.DB_ID = db_id;
+	    strcpy(P.NEW_DB_NAME, partial_db);
+        P.LAST_LOG_SEQ = 0;
+	END_STORE 
+    ON_ERROR 
+        rebuild_abort(194);
+	END_ERROR;
+
+	if (sw_verbose)
+		GJRN_printf(200, partial_db, NULL, NULL, NULL);
+	return found;
+}
+
+
+static BOOLEAN process_record(JRNH *
+							  record,
+							  USHORT
+							  length,
+							  ULONG seqno, ULONG offset, USHORT wal_flag)
+{
+/**************************************
+ *
+ *	p r o c e s s _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a single journal record.  
+ *	return FALSE when JRN_DISBALE is encountered.
+ *
+ **************************************/
+	DRB database;
+	LTJW *rec;
+/* Handle particular record type */
+	database = databases;
+	switch (record->jrnh_type) {
+	case JRN_PAGE:
+		process_page(database, record, seqno, offset, wal_flag);
+		break;
+	case JRN_ENABLE:
+		break;
+	case JRN_NEW_FILE:
+		process_new_file(database, (JRNF *) record);
+		break;
+	case JRN_DISABLE:
+		disable(database, record);
+		return FALSE;
+	case JRN_SYNC:
+		break;
+	case JRN_CNTRL_PT:
+		break;
+	case JRN_COMMIT:
+		return commit(database, record, length);
+		break;
+	case JRN_START_ONLINE_DMP:
+		if (sw_debug)
+			GJRN_printf(45, (TEXT *) seqno, (TEXT *) offset, NULL, NULL);
+		break;
+	case JRN_END_ONLINE_DMP:
+
+		/* Check if we reached the end of online dump */
+
+		rec = (LTJW *) record;
+		if (rec->ltjw_seqno == dump_id)
+			end_reached = TRUE;
+		if (sw_debug)
+			GJRN_printf(46, (TEXT *) seqno, (TEXT *) offset, NULL, NULL);
+		break;
+	default:
+		GJRN_printf(45, (TEXT *) record->jrnh_type, NULL, NULL, NULL);
+		rebuild_abort(0);
+	}
+
+	return TRUE;
+}
+
+
+static void quad_move(register UCHAR * a, register UCHAR * b)
+{
+/**************************************
+ *
+ *      q u a d _ m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Move an unaligned longword ( 4 bytes).
+ *
+ **************************************/
+	MOVE_BYTE(a, b);
+	MOVE_BYTE(a, b);
+	MOVE_BYTE(a, b);
+	MOVE_BYTE(a, b);
+}
+
+
+static void read_page(DRB database, CACHE buffer)
+{
+/**************************************
+ *
+ *	r e a d _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a database page.
+ *
+ **************************************/
+	FIL fil;
+	STATUS status[20];
+	SLONG len_read, new_offset;
+	fil = seek_file(database, database->drb_file, buffer, &new_offset);
+	if (!fil)
+		rebuild_abort(48);
+	if (LLIO_read
+		(status, fil->fil_desc,
+		 fil->fil_string, new_offset,
+		 LLIO_SEEK_NONE,
+		 buffer->cache_page, database->drb_page_size, &len_read) == FAILURE) {
+		gds__print_status(status);
+		rebuild_abort(234);
+	}
+
+	if ((len_read != database->drb_page_size)
+		&& (len_read != 0))
+		rebuild_abort(234);
+}
+
+
+static void rebuild_abort(SLONG err_num)
+{
+/**************************************
+ *
+ *	r e b u i l d _ a b o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cleanup and exit
+ *
+ **************************************/
+	FIL fil;
+	DRB ptr;
+	if (!(sw_partial))
+		for (ptr = databases; ptr; ptr = ptr->drb_next) {
+			for (fil = ptr->drb_file; fil; fil = fil->fil_next)
+				unlink(fil->fil_string);
+		}
+
+	if (tr1)
+		ROLLBACK tr1 
+        ON_ERROR 
+        END_ERROR;
+	if (DB)
+		FINISH DB 
+        ON_ERROR
+        END_ERROR;
+	GJRN_abort(err_num);
+}
+
+
+static void rebuild_partial(SLONG db_id, SLONG last_log_seq, SCHAR * old_db)
+{
+/**************************************
+ *
+ *	r e b u i l d _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Roll a partially rebuild database forward from a journal.
+ *
+ **************************************/
+	SLONG *start_p_offset;
+	SCHAR **files;
+	SSHORT num_files;
+	SSHORT use_archive;
+/* statistics */
+	bytes_processed = bytes_applied = 0;
+	elapsed_time = et_sec = et_msec = 0;
+	FOR(TRANSACTION_HANDLE tr1) Y IN DB.DATABASES 
+        WITH Y.DB_ID EQ db_id 
+
+        use_archive = (strcmp(Y.ARCHIVE_MODE, NEED_ARCH) == 0);
+        open_database(db_name, Y.PAGE_SIZE, FALSE);
+        open_all_files();
+        if (!test_partial_db(last_log_seq))
+            rebuild_abort(198);
+        /* 
+         * Note that we do not allow partition offset.  Partitions are
+         * allowed only in raw files, and raw file have to be archived
+         */
+        get_log_files(Y.DB_ID, use_archive,
+                      &files, &start_p_offset, &num_files, last_log_seq + 1);
+        if (!num_files)
+            break;                  /* no work to be done */
+        if (process_journal
+            (Y.DB_NAME, files, num_files,
+             last_log_seq + 1, 0, start_p_offset)) rebuild_abort(54);
+        for (; num_files; num_files--)
+            MISC_free_jrnl(files[num_files - 1]);
+        MISC_free_jrnl(files);
+        MISC_free_jrnl(start_p_offset);
+        break;                      /* recover one database at a time */
+    END_FOR;
+
+	if ((max_seqno > last_log_seq)
+		|| (sw_activate))
+		update_rebuild_seqno(db_id);
+}
+
+
+static void rec_add_clump_entry(DRB
+								database,
+								HDR
+								header,
+								USHORT type, USHORT len, UCHAR * entry)
+{
+/***********************************************
+ *
+ *	r e c _ a d d _ c l u m p _ e n t r y
+ *
+ ***********************************************
+ *
+ * Functional description
+ *	Adds an entry to header page.
+ *
+ **************************************/
+	UCHAR *q, *p;
+	int free_space;
+	q = entry;
+	for (p = header->hdr_data; ((*p != HDR_end)
+								&& (*p != type)); p += 2 + p[1]);
+/* We are at HDR_end, add the entry */
+	free_space = database->drb_page_size - header->hdr_end;
+	if (free_space > (2 + len)) {
+		*p++ = type;
+		*p++ = len;
+		if (len)
+			do
+				*p++ = *q++;
+			while (--len);
+		*p++ = HDR_end;
+		header->hdr_end = p - (UCHAR *) header;
+	}
+}
+
+
+static BOOLEAN rec_add_hdr_entry(DRB
+								 database,
+								 USHORT
+								 type, USHORT len, UCHAR * entry, USHORT mode)
+{
+/***********************************************
+ *
+ *	r e c _ a d d  _ h d r _ e n t r y
+ *
+ ***********************************************
+ *
+ * Functional description
+ *	Adds an entry to header page.
+ *	mode
+ *		0 - add			CLUMP_ADD
+ *		1 - replace		CLUMP_REPLACE
+ *		2 - replace only!	CLUMP_REPLACE_ONLY
+ *	returns
+ *		TRUE - modified page
+ *		FALSE - nothing done
+ *
+ *
+ **************************************/
+	HDR header;
+	UCHAR *q, *p;
+	int found;
+	CACHE cch;
+	cch = get_page(database, HEADER_PAGE, TRUE);
+	header = (HDR) cch->cache_page;
+	if (mode != CLUMP_ADD) {
+		found = rec_find_type(database, &cch, &header, type, &q, &p);
+		/* If we did'nt find it and it is REPLACE_ONLY, return */
+		if (!found && mode == CLUMP_REPLACE_ONLY) {
+			release_page(database, cch);
+			return FALSE;
+		}
+		if (found) {
+			if (q[1] == len) {
+				q += 2;
+				p = entry;
+				if (len) {
+					do
+						*q++ = *p++;
+					while (--len);
+					MARK_HEADER(cch);
+				}
+
+				release_page(database, cch);
+				return TRUE;
+			}
+			release_page(database, cch);
+			rec_delete_hdr_entry(database, type);
+			return rec_add_hdr_entry(database, type, len, entry, CLUMP_ADD);
+		}
+
+		/* !found && REPLACE will fall through */
+
+		if (cch->cache_page_number != HEADER_PAGE) {
+			release_page(database, cch);
+			cch = get_page(database, HEADER_PAGE, TRUE);
+			header = (HDR) cch->cache_page;
+		}
+	}
+
+/* Add the entry */
+
+	rec_find_space(database, &cch, &header, type, len, entry);
+	MARK_HEADER(cch);
+	release_page(database, cch);
+	return TRUE;
+}
+
+
+static BOOLEAN rec_delete_hdr_entry(DRB database, USHORT type)
+{
+/***********************************************
+ *
+ *	r e c _ d e l e t e _ h d r _ e n t r y
+ *
+ ***********************************************
+ *
+ * Functional description
+ *	Gets rid on the entry 'type' from header page.
+ *
+ **************************************/
+	HDR header;
+	UCHAR *q, *p, *r;
+	USHORT l;
+	CACHE cch;
+	cch = get_page(database, HEADER_PAGE, TRUE);
+	header = (HDR) cch->cache_page;
+	if (!rec_find_type(database, &cch, &header, type, &q, &p)) {
+		release_page(database, cch);
+		return FALSE;
+	}
+
+	header->hdr_end -= (2 + q[1]);
+	r = q + 2 + q[1];
+	l = p - r + 1;
+	if (l)
+		do
+			*q++ = *r++;
+		while (--l);
+	MARK_HEADER(cch);
+	release_page(database, cch);
+	return TRUE;
+}
+
+
+static void rec_find_space(DRB
+						   database,
+						   CACHE *
+						   cch_p,
+						   HDR * hdr, USHORT type, USHORT len, UCHAR * entry)
+{
+/***********************************************
+ *
+ *	r e c _ f i n d _ s p a c e
+ *
+ ***********************************************
+ *
+ * Functional description
+ *		TRUE  - Found it
+ *		FALSE - Not present
+ *	Note: We cannot allocate space.  It should have been 
+ *	      allocated before.
+ *
+ **************************************/
+	UCHAR *p, *ptr;
+	SLONG next_page;
+	HDR header;
+	SLONG free_space;
+	CACHE cch;
+	header = *hdr;
+	cch = *cch_p;
+	ptr = entry;
+	while (TRUE) {
+
+		p = (UCHAR *) header + header->hdr_end;
+		/* We are at HDR_end, add the entry */
+		free_space = database->drb_page_size - header->hdr_end;
+		if (free_space > (2 + len)) {
+			/* Space available, shuffle other entries down */
+
+			*p++ = type;
+			*p++ = len;
+			if (len)
+				do
+					*p++ = *ptr++;
+				while (--len);
+			*p = HDR_end;
+			header->hdr_end = p - (UCHAR *) header;
+			*cch_p = cch;
+			*hdr = header;
+			return;
+		}
+
+		next_page = header->hdr_next_page;
+		if (!next_page)
+			break;
+		release_page(database, cch);
+		cch = get_page(database, next_page, TRUE);
+		header = (HDR) cch->cache_page;
+	}
+
+	rebuild_abort(50);
+}
+
+
+static BOOLEAN rec_find_type(DRB
+							 database,
+							 CACHE *
+							 cch_p,
+							 HDR *
+							 hdr, USHORT type, UCHAR ** t_ptr, UCHAR ** l_ptr)
+{
+/***********************************************
+ *
+ *	r e c _ f i n d _ t y p e
+ *
+ ***********************************************
+ *
+ * Functional description
+ *		TRUE  - Found it
+ *		FALSE - Not present
+ *
+ **************************************/
+	UCHAR *q, *p;
+	SLONG next_page;
+	CACHE cch;
+	HDR header;
+	q = 0;
+	cch = *cch_p;
+	header = *hdr;
+	while (TRUE) {
+		for (p = header->hdr_data; (*p != HDR_end); p += 2 + p[1]) {
+			if (*p == type)
+				q = p;
+		}
+
+		if (q) {
+			*t_ptr = q;
+			*l_ptr = p;
+			*cch_p = cch;
+			*hdr = header;
+			return TRUE;
+		}
+
+		/* Follow chain of header pages */
+
+		next_page = header->hdr_next_page;
+		if (next_page) {
+			release_page(database, cch);
+			cch = get_page(database, next_page, TRUE);
+			header = (HDR) cch->cache_page;
+		}
+		else {
+			*hdr = header;
+			*cch_p = cch;
+			return FALSE;
+		}
+	}
+}
+
+
+static BOOLEAN rec_get_hdr_entry(DRB
+								 database,
+								 USHORT type, USHORT * len, UCHAR * entry)
+{
+/***********************************************
+ *
+ *	r e c _ g e t _ h e a d e r _ e n t r y
+ *
+ ***********************************************
+ *
+ * Functional description
+ *		TRUE  - Found it
+ *		FALSE - Not present
+ *		***!!! NOT USED !!!***
+ *
+ **************************************/
+	UCHAR *q, *p, *r;
+	USHORT l;
+	HDR header;
+	CACHE cch;
+	cch = get_page(database, HEADER_PAGE, TRUE);
+	header = (HDR) cch->cache_page;
+	q = entry;
+	if (!rec_find_type(database, &cch, &header, type, &p, &r)) {
+		release_page(database, cch);
+		return FALSE;
+	}
+
+	l = *(p + 1);
+	*len = l;
+	p += 2;
+	if (l)
+		do
+			*q++ = *p++;
+		while (--l);
+	release_page(database, cch);
+	return TRUE;
+}
+
+
+static void rec_restore(SCHAR * journal_name, SCHAR * dbn)
+{
+/**************************************
+ *
+ *	r e c _ r e s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Roll a database forward from a journal.
+ *
+ **************************************/
+	SLONG start_seqno;
+	SLONG start_offset;
+	SLONG *start_p_offset;
+	SCHAR **files;
+	SSHORT num_files;
+	int size;
+	SCHAR buf[MSG_LENGTH];
+	SSHORT use_archive;
+	if (journal_name) {
+		sw_journal = TRUE;
+		strcpy(journal_dir, journal_name);
+	}
+
+	if (dbn) {
+		sw_db = TRUE;
+		ISC_expand_filename(dbn, 0, db_name);
+		dbn = db_name;
+	}
+
+/* statistics */
+
+	bytes_processed = bytes_applied = 0;
+	elapsed_time = et_sec = et_msec = 0;
+	max_seqno = 0;
+/* Scan journal looking for database to recover */
+	if ((sw_interact)
+		&& (!journal_name)) {
+		GJRN_get_msg(91, buf, NULL, NULL, NULL);
+		if (!MISC_get_line(buf, journal_dir, sizeof(journal_dir))) {
+			rec_restore_manual(dbn);
+			return;
+		}
+	}
+
+/* 
+ * If running recovery journal server needs to be running if database
+ * is fully recovered 
+ */
+
+	if (!(sw_interact || sw_until || sw_partial)) {
+		if (!(CONSOLE_test_server(journal_dir)))
+			rebuild_abort(213);
+	}
+
+	size = strlen(journal_dir);
+	if (!size)
+		rebuild_abort(15);
+	if (journal_dir[size - 1] == '/')
+		size--;
+#if (defined WIN_NT)
+	else if (journal_dir[size - 1] == '\\')
+		size--;
+#endif
+	strcpy(journal_dir + size, "/journal.gdb");
+	READY journal_dir AS DB 
+    ON_ERROR 
+        rebuild_abort(152);
+	END_ERROR;
+	START_TRANSACTION tr1 USING DB;
+	FOR(TRANSACTION_HANDLE tr1) X IN DB.DATABASES 
+        WITH X.STATUS EQ DB_ACTIVE 
+
+        if ((sw_db) && (!sw_interact)) {
+            if (strcmp(db_name, X.DB_NAME))
+                continue;
+        }
+        else {
+            GJRN_get_msg(92, buf, X.DB_NAME, NULL, NULL);
+            if (!MISC_get_line(buf, db_name, sizeof(db_name)))
+                continue;
+            if ((UPPER(db_name[0])) != 'Y')
+                continue;
+            strcpy(db_name, X.DB_NAME);
+        }
+	
+        use_archive = (strcmp(X.ARCHIVE_MODE, NEED_ARCH) == 0);
+        if (sw_partial)
+            if (process_partial(X.DB_ID, X.DB_NAME))
+                break;
+        if ((sw_interact) && (!sw_partial)) {
+            GJRN_get_msg(93, buf, NULL, NULL, NULL);
+            MISC_get_new_value(buf, db_name, sizeof(db_name));
+        }
+        
+        open_database(db_name, X.PAGE_SIZE, TRUE);
+        dump_id = X.LAST_DUMP_ID;
+        get_old_files(X.DB_ID, &files, &num_files, &start_seqno, &start_offset);
+        if (process_online_dump(X.DB_NAME, files, num_files) < 0)
+            rebuild_abort(52);
+        for (; num_files; num_files--)
+            MISC_free_jrnl(files[num_files - 1]);
+        MISC_free_jrnl(files);
+        /* 
+         * Note that we do not allow partition offset.  Partitions are
+         * allowed only in raw files, and raw file have to be archived
+         */
+	   get_log_files(X.DB_ID, use_archive,
+	                 &files, &start_p_offset, &num_files, start_seqno);
+	   if (!num_files)
+	       rebuild_abort(17);
+	   if (process_journal
+	       (X.DB_NAME, files, num_files,
+	        start_seqno, start_offset, start_p_offset)) rebuild_abort(54);
+	   if ((!end_reached)
+	       && (sw_first_recover))
+	       if (!sw_trace)
+	           rebuild_abort(148);
+	   for (; num_files; num_files--)
+	       MISC_free_jrnl(files[num_files - 1]);
+	   MISC_free_jrnl(files);
+	   MISC_free_jrnl(start_p_offset);
+	   update_rebuild_seqno(X.DB_ID);
+	   break;                      /* recover one database at a time */
+    END_FOR;
+
+	if ((sw_db) && (!databases)
+		&& (!sw_trace)) {
+		if (!((sw_disable)
+			  || (sw_interact)))
+			rebuild_abort(185);
+	}
+
+/* Print out stats */
+
+	elapsed_time = et_sec + et_msec / 1000000;
+	if ((sw_verbose) || (sw_trace)) {
+		GJRN_printf(155, NULL, NULL, NULL, NULL);
+		GJRN_printf(156, (TEXT *)
+					bytes_processed, NULL, NULL, NULL);
+		GJRN_printf(157, (TEXT *) bytes_applied, NULL, NULL, NULL);
+		GJRN_printf(158, (TEXT *) elapsed_time, NULL, NULL, NULL);
+	}
+
+	while (databases)
+		close_database(databases);
+	COMMIT tr1;
+	FINISH DB;
+}
+
+
+static void rec_restore_manual(SCHAR * dbn)
+{
+/**************************************
+ *
+ *	r e c _ r e s t o r e _ m a n u a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Roll a database forward from a journal manual
+ *
+ **************************************/
+	SLONG start_seqno;
+	SLONG start_offset;
+	SLONG *start_p_offset;
+	SCHAR **files;
+	SCHAR *msg;
+	SSHORT num_files;
+	SCHAR buf[MSG_LENGTH];
+	SSHORT num_alloc;
+	OLD OLD_handle = 0;
+	SCHAR old_db_name[300];
+	SSHORT page_size;
+	if (!dbn) {
+		GJRN_get_msg(189, old_db_name, NULL, NULL, NULL);
+		if (!MISC_get_line(old_db_name, db_name, sizeof(db_name)))
+			rebuild_abort(185);
+	}
+
+	strcpy(old_db_name, db_name);
+	if ((sw_interact) && (!sw_trace)) {
+		GJRN_get_msg(93, buf, NULL, NULL, NULL);
+		MISC_get_new_value(buf, db_name, sizeof(db_name));
+	}
+
+/* get online dump information */
+
+	GJRN_get_msg(4, buf, NULL, NULL, NULL);
+	GJRN_output("%s\n", buf);
+	num_files = 0;
+	num_alloc = INITIAL_ALLOC;
+	files = (SCHAR **) MISC_alloc_jrnl(num_alloc * sizeof(SLONG));
+	while (TRUE) {
+		msg = (SCHAR *)
+			MISC_alloc_jrnl(MAX_PATH_LENGTH);
+		GJRN_get_msg(6, msg, NULL, NULL, NULL);
+		MISC_get_line(msg, msg, MAX_PATH_LENGTH);
+		if (!strlen(msg)) {
+			MISC_free_jrnl(msg);
+			break;
+		}
+		files[num_files++] = msg;
+		if (num_files >= num_alloc)
+			expand_num_alloc(&files, &num_alloc);
+	}
+
+	if (!num_files) {
+		if (sw_trace) {
+			if (sw_debug)
+				GJRN_printf(209, NULL, NULL, NULL, NULL);
+		}
+		else
+			rebuild_abort(53);
+		page_size = MIN_PAGE_SIZE;
+	}
+	else {
+		/* Need to get page size before starting online dump */
+
+		if (OLDR_open(&OLD_handle, old_db_name, num_files, files) == FAILURE)
+			rebuild_abort(187);
+		OLDR_get_info(OLD_handle,
+					  &page_size, &dump_id,
+					  &start_seqno, &start_offset, &start_p_offset);
+		OLDR_close(&OLD_handle);
+	}
+
+	if (sw_verbose)
+		GJRN_printf(190, db_name, (TEXT *) page_size, NULL, NULL);
+	open_database(db_name, page_size, TRUE);
+	if (num_files) {
+		if (process_online_dump(old_db_name, files, num_files) < 0)
+			rebuild_abort(52);
+	}
+
+	for (; num_files; num_files--)
+		MISC_free_jrnl(files[num_files - 1]);
+	MISC_free_jrnl(files);
+/* Get log file information */
+	GJRN_get_msg(188, buf, NULL, NULL, NULL);
+	GJRN_output("%s\n", buf);
+	num_files = 0;
+	num_alloc = INITIAL_ALLOC;
+	files = (SCHAR **) MISC_alloc_jrnl(num_alloc * sizeof(SLONG));
+	while (TRUE) {
+		msg = (SCHAR *)
+			MISC_alloc_jrnl(MAX_PATH_LENGTH);
+		GJRN_get_msg(6, msg, NULL, NULL, NULL);
+		MISC_get_line(msg, msg, MAX_PATH_LENGTH);
+		if (!strlen(msg)) {
+			MISC_free_jrnl(msg);
+			break;
+		}
+		files[num_files++] = msg;
+		if (num_files >= num_alloc)
+			expand_num_alloc(&files, &num_alloc);
+	}
+
+	if (!num_files)
+		rebuild_abort(17);
+	start_p_offset = (SLONG *) MISC_alloc_jrnl(num_files * sizeof(SLONG));
+	if (process_journal
+		(old_db_name, files, num_files,
+		 start_seqno, start_offset, start_p_offset)) rebuild_abort(54);
+	if (!end_reached)
+		if (!sw_trace)
+			rebuild_abort(148);
+	elapsed_time = et_sec + et_msec / 1000000;
+	if ((sw_verbose) || (sw_trace)) {
+		GJRN_printf(155, NULL, NULL, NULL, NULL);
+		GJRN_printf(156, (TEXT *)
+					bytes_processed, NULL, NULL, NULL);
+		GJRN_printf(157, (TEXT *) bytes_applied, NULL, NULL, NULL);
+		GJRN_printf(158, (TEXT *) elapsed_time, NULL, NULL, NULL);
+	}
+
+	for (; num_files; num_files--)
+		MISC_free_jrnl(files[num_files - 1]);
+	MISC_free_jrnl(files);
+	MISC_free_jrnl(start_p_offset);
+	while (databases)
+		close_database(databases);
+}
+
+
+static void release_db(DRB drb)
+{
+/**************************************
+ *
+ *	r e l e a s e _ d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free up the database and all file blocks.
+ *
+ **************************************/
+	FIL fil;
+	if (!drb)
+		return;
+	while (drb->drb_file) {
+		fil = drb->drb_file;
+		drb->drb_file = fil->fil_next;
+		MISC_free_jrnl(fil);
+	}
+
+	MISC_free_jrnl(drb);
+}
+
+
+static void release_page(DRB database, CACHE buffer)
+{
+/**************************************
+ *
+ *	r e l e a s e _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a page.
+ *
+ **************************************/
+
+	buffer->cache_use_count--;
+	if (buffer->cache_use_count)
+		rebuild_abort(68);
+	if ((buffer->cache_page_number != HEADER_PAGE)
+		&& (buffer->cache_flags & PAGE_HEADER)) {
+		write_page(database, buffer);
+		buffer->cache_page_number = PAGE_CORRUPT;
+		buffer->cache_flags = 0;
+	}
+}
+
+
+static FIL seek_file(DRB database, FIL fil, CACHE buffer, SLONG * new_offset)
+{
+/**************************************
+ *
+ *	s e e k _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a buffer descriptor block, find the appropropriate
+ *	file block and seek to the proper page in that file.
+ *
+ **************************************/
+	ULONG page;
+	STATUS status[20];
+	page = buffer->cache_page_number;
+	for (;; fil = fil->fil_next)
+		if (!fil)
+			rebuild_abort(74);
+		else if (page >= fil->fil_min_page && page <= fil->fil_max_page)
+			break;
+	page -= (fil->fil_min_page - fil->fil_fudge);
+	*new_offset = page * database->drb_page_size;
+	if (LLIO_seek
+		(status, fil->fil_desc,
+		 fil->fil_string, *new_offset, LLIO_SEEK_BEGIN) == FAILURE) {
+		gds__print_status(status);
+		return (FIL) NULL;
+	}
+
+	return fil;
+}
+
+
+static FIL setup_file(UCHAR * file_name, USHORT file_length, int desc)
+{
+/**************************************
+ *
+ *	s e t u p _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up file descriptor. 
+ *
+ **************************************/
+	FIL file;
+/* Allocate file block and copy file name string */
+	file = (FIL)
+		MISC_alloc_jrnl(sizeof(struct fil) + file_length + 1);
+	file->fil_desc = desc;
+	file->fil_length = file_length;
+	file->fil_max_page = -1;
+	MOVE_FAST(file_name, file->fil_string, file_length);
+	file->fil_string[file_length] = '\0';
+	return file;
+}
+
+
+static BOOLEAN test_partial_db(SLONG expected_seqno)
+{
+/**************************************
+ *
+ *	t e s t _ p a r t i a l _ d b
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	LIP page;
+	CACHE cch;
+	BOOLEAN ret;
+	DRB database;
+	database = databases;
+	cch = get_page(database, LOG_PAGE, TRUE);
+	page = (LIP) cch->cache_page;
+/* At the end of a partial recovery, we will turn off log and
+ * set the next seqno.
+ */
+	ret = FALSE;
+	if ((page->log_flags == (log_no_ail | log_partial_rebuild))
+		&& (page->log_file.cp_seqno == expected_seqno))
+		ret = TRUE;
+	release_page(database, cch);
+	return ret;
+}
+
+
+static void update_rebuild_seqno(SLONG db_id)
+{
+/**************************************
+ *
+ *	u p d a t e _ r e b u i l d _ s e q n o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Updates the highest seqno of partial recovery.
+ *	If the database is being activated, delete the entry.
+ *
+ **************************************/
+
+	if (sw_partial) {
+		if (sw_activate) {
+            FOR(TRANSACTION_HANDLE tr1) P IN DB.PARTIAL_REBUILDS
+                WITH P.DB_ID EQ db_id AND P.NEW_DB_NAME EQ partial_db 
+                
+                ERASE P 
+                
+                ON_ERROR 
+                    rebuild_abort(194);
+                END_ERROR;
+	        END_FOR;
+		}
+		else {
+            FOR(TRANSACTION_HANDLE tr1) P IN DB.PARTIAL_REBUILDS
+                WITH P.DB_ID EQ db_id AND P.NEW_DB_NAME EQ partial_db 
+                MODIFY P 
+                    P.LAST_LOG_SEQ = max_seqno;
+	           END_MODIFY 
+               ON_ERROR 
+                   rebuild_abort(194);
+	           END_ERROR;
+	        END_FOR;
+		}
+	}
+
+/* Do a commit retain to save changes */
+
+	SAVE tr1 
+    ON_ERROR 
+        rebuild_abort(194);
+	END_ERROR;
+}
+
+
+static void write_page(DRB database, CACHE buffer)
+{
+/**************************************
+ *
+ *	w r i t e _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a database page.
+ *
+ **************************************/
+	PAG page;
+	FIL fil;
+	SLONG len_written, new_offset;
+	STATUS status[20];
+	page = buffer->cache_page;
+	page->pag_checksum = checksum(database, page);
+	fil = seek_file(database, database->drb_file, buffer, &new_offset);
+	if (!fil)
+		rebuild_abort(49);
+	if (LLIO_write(status, fil->fil_desc, fil->fil_string, new_offset,
+				   LLIO_SEEK_NONE, buffer->cache_page,
+				   database->drb_page_size, &len_written) == FAILURE) {
+		gds__print_status(status);
+		rebuild_abort(49);
+	}
+
+	if (len_written != database->drb_page_size)
+		rebuild_abort(49);
+}
diff --git a/src/journal/serve_proto.h b/src/journal/serve_proto.h
new file mode 100644
index 0000000000..6d52824dae
--- /dev/null
+++ b/src/journal/serve_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	JRD Journalling Subsystem
+ *	MODULE:		serve_proto.h
+ *	DESCRIPTION:	Prototype header file for server.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JOURNAL_SERVE_PROTO_H_
+#define _JOURNAL_SERVE_PROTO_H_
+
+extern int SERVER_start_server(int, SCHAR **);
+
+#endif /* _JOURNAL_SERVE_PROTO_H_ */
diff --git a/src/journal/server.e b/src/journal/server.e
new file mode 100644
index 0000000000..a69d892736
--- /dev/null
+++ b/src/journal/server.e
@@ -0,0 +1,3575 @@
+/*
+ *	PROGRAM:	JRD Journal Server
+ *	MODULE:		server.e
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <signal.h>
+#include <errno.h>
+#include "../jrd/time.h"
+#ifndef VMS
+#include <sys/types.h>
+#else
+#include <file.h>
+#include <types.h>
+#endif
+#ifdef _AIX
+#include <sys/select.h>
+#endif
+#ifdef EPSON
+#include <sys/select.h>
+#endif
+#include "../jrd/common.h"
+
+/* Block types */
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+#include "../jrd/jrn.h"
+#include "../jrd/license.h"
+#include "../jrd/thd.h"
+#include "../jrd/isc.h"
+#include "../jrd/pio.h"
+#include "../jrd/gds.h"
+#include "../jrd/llio.h"
+#include "../journal/journal.h"
+#include "../wal/wal.h"
+#include "../journal/conso_proto.h"
+#include "../journal/gjrn_proto.h"
+#include "../journal/misc_proto.h"
+#include "../journal/serve_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/llio_proto.h"
+#include "../wal/walf_proto.h"
+
+#undef MOVE_FAST
+#undef MOVE_CLEAR
+#define MOVE_FAST(from,to,length)	memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)		memset (to, 0, (int) (length))
+
+#ifdef UNIX
+#include <sys/stat.h>
+#define UNIX_JOURNALLING
+#define BSD_SOCKETS
+#ifdef SUN3_3
+typedef SLONG fd_mask;
+#endif
+#endif
+
+#ifdef NETWARE_386
+#define NETWARE_JOURNALLING
+#define BSD_SOCKETS
+#define EINTR			0
+#endif
+
+#ifndef MAX_PATH_LENGTH
+#define MAX_PATH_LENGTH		512
+#endif
+
+/* UNIX and NETWARE JOURNALLING stuff */
+
+#ifdef BSD_SOCKETS
+#define BSD_INCLUDES
+#ifndef FCNTL_INCLUDED
+#include <fcntl.h>
+#endif
+#include <sys/socket.h>
+#include <netdb.h>
+#include <netinet/in.h>
+#define MAXHOSTNAMELEN	64		/* should be in <sys/param.h> */
+#define HANDLE		int
+#endif
+
+/* Windows NT stuff */
+
+#ifdef WIN_NT
+#include <process.h>
+#include <windows.h>
+#define TEXT		SCHAR
+#endif
+
+#ifdef DELTA
+#define waitpid(x,y,z)	wait (y)
+#endif
+
+#ifndef WIN_NT
+#ifndef HANDLE
+#define HANDLE		SSHORT
+#endif
+#endif
+
+#define BITS			(sizeof (fd_mask) * 8)
+#ifndef NETWARE_386
+#define SET_BIT(fd,mask)	((mask)->fds_bits[fd/BITS] |= (1 << (fd % BITS)))
+#define TEST_BIT(fd,mask)	((mask)->fds_bits[fd/BITS] & (1 << (fd % BITS)))
+#else
+#define SET_BIT(fd,mask)	FD_SET (fd, mask)
+#define TEST_BIT(fd,mask)	FD_ISSET (fd, mask)
+#endif
+
+
+DATABASE
+	DB =
+	STATIC COMPILETIME FILENAME "journal.gdb" RUNTIME FILENAME journal_db;
+
+#define LOGFILE		"journal.log"
+#define MAX_CHANNEL	64
+
+#ifdef WIN_NT
+#define ARCHIVE		"bin/ibarchiv"
+#endif
+
+#ifndef ARCHIVE
+#define ARCHIVE		"bin/gds_archive"
+#endif
+
+/* List of console commands */
+
+CMDS commands[] = {
+	"DISABLE <db name>	", cmd_disable, 163, "\tdisable database",
+	"DROP <db name>		", cmd_drop, 164, "\tdrop all files for a database",
+	"ERASE <db id>		", cmd_erase, 165,
+	"\tdrop all files for non active database",
+	"EXIT			", cmd_exit, 166, "\texit journal console program",
+	"HELP			", cmd_help, 167, "\tdisplay this text",
+	"RESET DELETE <db name>	", cmd_reset, 168,
+	"\treset delete flag for database",
+	"SET DELETE <db name>	", cmd_set, 169, "\tset delete flag for database",
+	"SHUTDOWN		", cmd_shutdown, 170, "\tshutdown journal server",
+	"STATUS			", cmd_status, 171, "\tdisplay status of journal server",
+	"VERSION			", cmd_version, 172,
+	"\tdisplay software version number",
+	"ARCHIVE <db name>	", cmd_archive, 239, "\trestart archive for database",
+	"QUIT			", cmd_exit, 0, NULL,
+	NULL, cmd_none, 0
+};
+typedef struct backup_info {
+	SLONG bi_pid;
+	SLONG bi_fid;
+} BINFO;
+
+#define MAX_ARCHIVE	16
+#define MAX_RETRY	16
+
+/* Active database block */
+
+typedef struct djb {
+	struct djb *djb_next;		/* Next block */
+	struct cnct *djb_connections;	/* List of connections */
+	USHORT djb_flags;			/* flags - see values below */
+	USHORT djb_id;				/* Id of database */
+	USHORT djb_use_count;		/* Number of connections */
+	SSHORT djb_retry;			/* number of retries */
+	SSHORT djb_bfi_count;
+	BINFO djb_bfi[MAX_ARCHIVE + 1];	/* backup file info */
+	UCHAR *djb_dir_name;		/* backup directory name */
+	UCHAR djb_db_name[1];		/* Database filename */
+} *DJB;
+
+#define DJB_disabled		1
+#define DJB_archive		2
+#define DJB_set_delete		4
+
+/* Individual journal connections */
+
+typedef struct cnct {
+	struct cnct *cnct_next;		/* Next connection for system */
+	struct cnct *cnct_db_next;	/* Next connection for database */
+	struct djb *cnct_database;	/* Active database block */
+	HANDLE cnct_handle;			/* Parent mailbox */
+	SLONG cnct_channel;			/* Channel for communication */
+	USHORT cnct_flags;
+	USHORT cnct_version;		/* Protocol version */
+#ifdef WIN_NT
+	OVERLAPPED cnct_overlapped;
+	UCHAR cnct_data[sizeof(struct jrnh)];
+	USHORT cnct_read_length;
+#endif
+} *CNCT;
+
+#define CNCT_console		1	/* Connection is to a console */
+#define CNCT_pending_io		2	/* I/O or connection is pending */
+
+#ifdef NETWARE_386
+extern void main_archive();
+#endif
+
+static void add_backup_entry(DJB, SLONG, SLONG);
+static CNCT alloc_connect(HANDLE, USHORT);
+static void backup_wal(DJB, SCHAR *, SLONG, SLONG, SLONG, SLONG);
+static void build_backup_array(DJB);
+static void build_indexed_name(SCHAR *, SCHAR *, SLONG);
+static void close_mailbox(int);
+static void commit(void);
+static void delete_backup_entry(DJB, SLONG);
+static void delete_connection(CNCT);
+static void delete_database(DJB);
+static void delete_history_files(CNCT, SCHAR *, SLONG, SLONG);
+static void delete_wal(void);
+static void disable(CNCT, LTJC *);
+static void disconnect(CNCT);
+
+#if !(defined VMS || defined WIN_NT || defined NETWARE_386)
+static void divorce_terminal(fd_set *);
+#endif
+
+static void enable(CNCT, LTJC *);
+static void error(STATUS, TEXT *);
+static void error_exit(STATUS, TEXT *);
+static void free_database_entry(DJB);
+static void get_message(JRNH *, int);
+
+#ifdef BSD_SOCKETS
+static void init_handles(fd_set *);
+#endif
+
+static DJB lookup_database(SCHAR *, USHORT, SSHORT);
+static DJB make_database(CNCT, SCHAR *, SCHAR *);
+static void open_mailbox(SCHAR *, USHORT);
+
+#ifdef BSD_SOCKETS
+static void post_address(USHORT, struct sockaddr_in);
+#endif
+
+static void process_command(CNCT, TEXT *);
+static void process_archive_begin(CNCT, LTJA *);
+static void process_archive_end(CNCT, LTJA *);
+static void process_archive_error(CNCT, LTJA *);
+static void process_control_point(CNCT, LTJW *);
+static void process_disable_database(CNCT, TEXT *);
+static void process_drop_database(CNCT, SCHAR *);
+static void process_dump_file(CNCT, LTJW *);
+static void process_end_dump(CNCT, LTJW *);
+static void process_erase_database(CNCT, USHORT);
+static void process_message(CNCT, JRNH *, USHORT);
+static void process_reset_database(CNCT, SCHAR *);
+static void process_restart_archive(CNCT, SCHAR *);
+static void process_set_database(CNCT, SCHAR *);
+static void process_start_dump(CNCT, LTJW *);
+static void process_wal_file(CNCT, LTJW *);
+static void put_line(CNCT, SSHORT, TEXT *, TEXT *, TEXT *);
+static void put_message(SSHORT, DJB);
+static void read_asynchronous(CNCT);
+static void report_status(CNCT);
+static void restart_all_backups(int);
+static void restart_backup(DJB, int);
+static void send_reply(CNCT, JRNH *, USHORT);
+static void set_use_count(DJB);
+static void sign_off(CNCT, LTJC *);
+static void sign_on(CNCT, LTJC *);
+static void signal_child(void);
+static void CLIB_ROUTINE signal_quit(void);
+static DJB start_database(CNCT, SCHAR *, SCHAR *, SSHORT, SLONG, ULONG);
+static int start_server(UCHAR *, USHORT, USHORT, USHORT);
+static BOOLEAN test_dup_entry(DJB, SLONG);
+static void time_stamp(GDS__QUAD *);
+
+static TEXT journal_directory[MAX_PATH_LENGTH];
+static DJB databases;
+static CNCT connections;
+static FILE *log;
+static HANDLE handles[2];
+
+#ifdef WIN_NT
+static struct cnct pending_connections[2];
+static HANDLE *wait_vec;
+static USHORT wait_vec_length;
+#endif
+
+static TEXT *address_files[2] = { CONSOLE_ADDR, JOURNAL_ADDR };
+static USHORT state;
+static SSHORT archives_running = 0;
+static SLONG max_retry = MAX_RETRY;
+
+#define slot_console		0
+#define slot_journal		1
+
+#define state_shut_pending	1	/* Shutdown has been requested */
+#define state_suspend		4	/* Suspend operation */
+#define state_initialize	8	/* Initializing operation */
+#define state_reset		16		/* Reset after improper close */
+#define state_status		32	/* Report status */
+
+
+int SERVER_start_server(int argc, SCHAR ** argv)
+{
+/**************************************
+ *
+ *	S E R V E R _ s t a r t _ s e r v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse switches and do work.
+ *
+ **************************************/
+	UCHAR string[MAX_PATH_LENGTH], *journal;
+	USHORT sw_i, sw_d, sw_v;
+
+	sw_i = sw_v = sw_d = FALSE;
+
+	if (argc <= 0)
+		sw_i = TRUE;
+
+/* Start by parsing switches */
+
+	journal = NULL;
+	argv++;
+	while (--argc > 0) {
+		if ((*argv)[0] != '-') {
+			argv++;
+			continue;
+		}
+
+		MISC_down_case(*argv++, string);
+		switch (string[1]) {
+		case 'v':
+			sw_v = TRUE;
+			break;
+
+		case 'd':
+			sw_d = TRUE;
+			break;
+
+		case 'i':
+			sw_i = TRUE;
+			break;
+
+		case 's':
+			break;
+
+		case 'j':
+			if (--argc > 0)
+				journal = *argv++;
+			else
+				MISC_print_journal_syntax();
+			break;
+
+		default:
+			MISC_print_journal_syntax();
+			break;
+		}
+	}
+
+	return start_server(journal, sw_d, sw_v, sw_i);
+}
+
+
+static void add_backup_entry(DJB dbb, SLONG pid, SLONG fid)
+{
+/**************************************
+ *
+ *	a d d _ b a c k u p _ e n t r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add an new entry to the backup array.
+ *
+ **************************************/
+	SSHORT i;
+
+	for (i = 0; ((i < MAX_ARCHIVE) && (dbb->djb_bfi[i].bi_pid > 0)); i++);
+
+	if (i == MAX_ARCHIVE) {
+		put_line(NULL_PTR, 104, 0, 0, 0);
+		return;
+	}
+
+	dbb->djb_bfi[i].bi_pid = pid;
+	dbb->djb_bfi[i].bi_fid = fid;
+	dbb->djb_bfi_count++;
+}
+
+
+static CNCT alloc_connect(HANDLE handle, USHORT channel)
+{
+/**************************************
+ *
+ *	a l l o c _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept an incoming connection.
+ *
+ **************************************/
+	CNCT connection;
+
+	connection = (CNCT) MISC_alloc_jrnl(sizeof(struct cnct));
+	connection->cnct_next = connections;
+	connection->cnct_channel = channel;
+	connection->cnct_handle = handle;
+	connection->cnct_database = NULL;
+	connections = connection;
+
+	return connection;
+}
+
+
+static void backup_wal(
+					   DJB database,
+					   SCHAR * file_name,
+					   SLONG file_id,
+					   SLONG file_seq, SLONG file_size, SLONG p_offset)
+{
+/**************************************
+ *
+ *	b a c k u p _ w a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fork process to backup log file.
+ *	Enter record in the LOG_ARCHIVE_STATUS table which will be deleted 
+ *	by the backup process.
+ *	Add entry to in-memory array for restart purposes.
+ *
+ **************************************/
+	SLONG proc_id;
+	SCHAR db_id[10], f_id[10], csize[10], cp_offset[10];
+	SLONG *lts_tr;
+	SCHAR name[MAX_PATH_LENGTH], dname[MAX_PATH_LENGTH];
+	TEXT *argv[10];
+#if (defined UNIX)
+	struct stat stat_buf;
+#endif
+
+	if (test_dup_entry(database, file_id))
+		return;
+
+	sprintf(f_id, "%d", file_id);
+	sprintf(db_id, "%d", database->djb_id);
+	sprintf(csize, "%d", file_size);
+	sprintf(cp_offset, "%d", p_offset);
+	build_indexed_name(dname, database->djb_dir_name, file_seq);
+
+	gds__prefix(name, ARCHIVE);
+
+#ifdef NETWARE_386
+	argv[1] = name;
+	argv[2] = db_id;
+	argv[3] = f_id;
+	argv[4] = cp_offset;
+	argv[5] = csize;
+	argv[6] = file_name;
+	argv[7] = dname;
+	argv[0] = 7;
+	gds__thread_start(main_archive, argv, 0, 0, NULL_PTR);
+#else
+
+#if (defined WIN_NT)
+	proc_id = spawnl(P_NOWAITO, name, ARCHIVE, db_id, f_id, cp_offset, csize,
+					 file_name, dname, journal_directory, NULL);
+#else
+	if (stat(name, &stat_buf) == -1)
+		proc_id = -1;
+	else if (!(proc_id = vfork())) {
+		/* child process */
+
+		execl(name, name, db_id, f_id, cp_offset, csize, file_name, dname,
+			  journal_directory, NULL);
+		_exit(FINI_OK);
+	}
+#endif
+
+	if (proc_id == -1 || !ISC_check_process_existence(proc_id, 0, FALSE)) {
+		put_line(NULL, 106, 0, 0, 0);
+		return;
+	}
+#endif
+
+	lts_tr = (SLONG *) 0;
+	START_TRANSACTION lts_tr;
+
+	STORE(TRANSACTION_HANDLE lts_tr) X IN LOG_ARCHIVE_STATUS
+		X.FILE_ID = file_id;
+	    X.PROCESS_ID = proc_id;
+	END_STORE 
+    ON_ERROR 
+        ROLLBACK lts_tr;
+	    put_line(NULL_PTR, 105, 0, 0, 0);
+	    return;
+	END_ERROR;
+
+	COMMIT lts_tr 
+    ON_ERROR 
+        ROLLBACK lts_tr 
+        ON_ERROR 
+        END_ERROR;
+	    put_line(NULL_PTR, 210, 0, 0, 0);
+        return;
+	END_ERROR;
+
+/* Keep track of total number of archives running at any time */
+
+	archives_running++;
+
+	put_line(NULL_PTR, 107, (TEXT *) file_id, (TEXT *) file_name, 0);
+
+/* If there is space in the array, add it to the array.  Otherwise return */
+
+	if (database->djb_bfi_count >= MAX_ARCHIVE)
+		return;
+	add_backup_entry(database, proc_id, file_id);
+}
+
+
+static void build_backup_array(DJB dbb)
+{
+/**************************************
+ *
+ *	b u i l d _ b a c k u p _ a r r a y
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+    FOR X IN LOG_ARCHIVE_STATUS 
+        if (X.PROCESS_ID > 0) {
+            if (!ISC_check_process_existence((SLONG) X.PROCESS_ID, 0, TRUE)) {
+                /* Process has died and/or another process has reused the
+                   process id */
+	
+                if (!test_dup_entry(dbb, X.FILE_ID))
+                    add_backup_entry(dbb, X.PROCESS_ID, X.FILE_ID);
+                
+                ERASE X 
+                ON_ERROR 
+                    break;
+	            END_ERROR;
+            }
+        } 
+    END_FOR;
+}
+
+
+static void build_indexed_name(SCHAR * filename,
+							   SCHAR * basename, SLONG seqno)
+{
+/**************************************
+ *
+ *	b u i l d _ i n d e x e d _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a file name using a sequence number
+ *	as the extension.  Try to keep the extension
+ *	to three characters.
+ *
+ **************************************/
+	static SCHAR letters[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+	SCHAR extension[11];
+
+	if (seqno < 1000 || seqno > 18575)
+		sprintf(extension, "%d", seqno);
+	else {
+		seqno -= 1000;
+		extension[0] = letters[seqno % 26];
+		extension[1] = letters[seqno / 26 % 26];
+		extension[2] = letters[seqno / 26 / 26];
+		extension[3] = 0;
+	}
+
+	sprintf(filename, "%s.%s", basename, extension);
+}
+
+
+#ifdef BSD_SOCKETS
+static void close_mailbox(int slot)
+{
+/**************************************
+ *
+ *	c l o s e _ m a i l b o x	( U N I X  &  N E T W A R E )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shut down connections in preparation of shutting down.
+ *
+ **************************************/
+
+	unlink(address_files[slot]);
+
+	if (close(handles[slot]) < 0)
+		error((STATUS) errno, "close socket");
+}
+#endif
+
+
+#ifdef WIN_NT
+static void close_mailbox(int slot)
+{
+/**************************************
+ *
+ *	c l o s e _ m a i l b o x	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shut down connections in preparation of shutting down.
+ *
+ **************************************/
+
+	if (!CloseHandle(pending_connections[slot].cnct_handle) ||
+		!CloseHandle(pending_connections[slot].cnct_overlapped.hEvent))
+		error(GetLastError(), "CloseHandle");
+}
+#endif
+
+
+static void commit(void)
+{
+/**************************************
+ *
+ *	c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit the current transaction and start another.
+ *
+ **************************************/
+
+	COMMIT;
+	START_TRANSACTION;
+}
+
+
+static void delete_backup_entry(DJB dbb, SLONG fid)
+{
+/**************************************
+ *
+ *	d e l e t e _ b a c k u p _ e n t r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete an entry from log_transfer status and backup array.
+ *
+ **************************************/
+	SSHORT i;
+
+	for (i = 0; i < MAX_ARCHIVE; i++)
+		if (dbb->djb_bfi[i].bi_fid == fid)
+			break;
+
+	if (i == MAX_ARCHIVE)
+		return;
+
+	dbb->djb_bfi[i].bi_pid = -1;
+	dbb->djb_bfi[i].bi_fid = -1;
+	dbb->djb_bfi_count--;
+}
+
+
+static void delete_connection(CNCT connection)
+{
+/**************************************
+ *
+ *	d e l e t e _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Closeout and delete a connection.  This may be either
+ *	unilateral or bilateral.
+ *
+ **************************************/
+	DJB database;
+	CNCT *ptr;
+
+/* If this is a console, log it */
+
+	if (connection->cnct_flags & CNCT_console)
+		put_message(95, (DJB) NULL_PTR);
+
+/* Disconnect from database */
+
+	if (database = connection->cnct_database) {
+		if (!--database->djb_use_count)
+			set_use_count(database);
+		for (ptr = &database->djb_connections; *ptr;
+			 ptr = &(*ptr)->cnct_db_next) if (*ptr == connection) {
+				*ptr = connection->cnct_db_next;
+				break;
+			}
+	}
+
+/* Shutdown physical connection */
+
+	disconnect(connection);
+
+/* Unlink from system */
+
+	for (ptr = &connections;; ptr = &(*ptr)->cnct_next)
+		if (!*ptr) {
+			put_line(NULL_PTR, 108, 0, 0, 0);
+			return;
+		}
+		else if (*ptr == connection) {
+			*ptr = connection->cnct_next;
+			break;
+		}
+
+	MISC_free_jrnl(connection);
+
+	if ((database) &&
+		(database->djb_flags & DJB_disabled) &&
+		(database->djb_use_count == 0)) delete_database(database);
+}
+
+
+static void delete_database(DJB database)
+{
+/**************************************
+ *
+ *	d e l e t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've lost interest in a database.  Get rid of its block and
+ *	all connections.
+ *
+ **************************************/
+	CNCT connection;
+
+/* mark the database for deletion */
+
+	database->djb_flags |= DJB_disabled;
+
+/* Check if there is still work that needs to be done */
+
+	if ((database->djb_flags & DJB_archive) && (database->djb_bfi_count > 0))
+		return;
+
+	if (database->djb_use_count > 1)
+		return;
+
+/* Start by getting rid all of all remaining connections */
+
+	while (connection = database->djb_connections) {
+		put_message(96, connection->cnct_database);
+		delete_connection(connection);
+	}
+
+	free_database_entry(database);
+}
+
+
+static void delete_history_files(
+								 CNCT connection,
+								 SCHAR * dbname, SLONG db_id, SLONG last_dump)
+{
+/**************************************
+ *
+ *	d e l e t e _ h i s t o r y _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	We are interested only in the last completed online dump for 
+ *	this database.  Get rid of older files.
+ *
+ **************************************/
+	SLONG start_seqno;
+	int ret;
+
+	commit();
+
+	start_seqno = 0;
+
+	FOR OD IN ONLINE_DUMP WITH OD.DUMP_ID EQ last_dump
+	   start_seqno = OD.START_SEQNO;
+	END_FOR;
+
+	if (!start_seqno)
+		return;
+
+/* for all completed online dumps with id < dump_id, unlink all
+   archive files and online dump files. */
+
+    FOR OD IN ONLINE_DUMP WITH OD.DB_ID EQ db_id AND
+        OD.DUMP_ID LT last_dump AND
+        OD.END_SEQNO NE 0
+        FOR ODF IN ONLINE_DUMP_FILES WITH ODF.DUMP_ID EQ OD.DUMP_ID
+            put_line(connection, 145, (TEXT *) ODF.DUMP_FILE_NAME, 0, 0);
+            ret = unlink(ODF.DUMP_FILE_NAME);
+            if ((ret == -1) && (errno != ENOENT)) {
+                put_line(connection, 147, (TEXT *) ODF.DUMP_FILE_NAME, 0, 0);
+                ROLLBACK;
+                START_TRANSACTION;
+                return;
+            }
+            ERASE ODF 
+            ON_ERROR 
+                put_line(connection, 144, (TEXT *) dbname, 0, 0);
+                ROLLBACK;
+                START_TRANSACTION;
+                return;
+            END_ERROR;
+        END_FOR;
+	
+        ERASE OD 
+        ON_ERROR 
+            put_line(connection, 144, (TEXT *) dbname, 0, 0);
+            ROLLBACK;
+            START_TRANSACTION;
+            return;
+        END_ERROR;
+	
+        FOR JF IN JOURNAL_FILES WITH JF.DB_ID EQ db_id AND
+            JF.FILE_SEQUENCE LT start_seqno AND
+            JF.ARCHIVE_NAME NOT MISSING
+            put_line(connection, 145, (TEXT *) JF.ARCHIVE_NAME, 0, 0);
+            ret = unlink(JF.ARCHIVE_NAME);
+            if ((ret == -1) && (errno != ENOENT)) {
+                put_line(connection, 147, (TEXT *) JF.ARCHIVE_NAME, 0, 0);
+                ROLLBACK;
+                START_TRANSACTION;
+                return;
+            }
+            ERASE JF 
+            ON_ERROR 
+                put_line(connection, 144, (TEXT *) dbname, 0, 0);
+                ROLLBACK;
+                START_TRANSACTION;
+                return;
+            END_ERROR;
+	    END_FOR;
+	END_FOR;
+
+/* For all completed online dumps with dump id > last dump, remove the 
+   entries from the database.  The online dump files are deleted
+   the journal files are not.
+
+   These online dumps started after before last_dump, but completed
+   before last_dump. */
+
+	FOR OD IN ONLINE_DUMP WITH OD.DB_ID EQ db_id AND OD.DUMP_ID GT last_dump
+        AND OD.END_SEQNO NE 0
+        FOR ODF IN ONLINE_DUMP_FILES WITH ODF.DUMP_ID EQ OD.DUMP_ID
+            put_line(connection, 145, (TEXT *) ODF.DUMP_FILE_NAME, 0, 0);
+	        ret = unlink(ODF.DUMP_FILE_NAME);
+            if ((ret == -1) && (errno != ENOENT)) {
+                put_line(connection, 147, (TEXT *) ODF.DUMP_FILE_NAME, 0, 0);
+                ROLLBACK;
+                START_TRANSACTION;
+                return;
+            }
+            ERASE ODF 
+            ON_ERROR 
+                put_line(connection, 144, (TEXT *) dbname, 0, 0);
+                ROLLBACK;
+                START_TRANSACTION;
+                return;
+            END_ERROR;
+	    END_FOR;
+	
+	    ERASE OD 
+        ON_ERROR 
+            put_line(connection, 144, (TEXT *) dbname, 0, 0);
+            ROLLBACK;
+            START_TRANSACTION;
+            return;
+        END_ERROR;
+    END_FOR;
+
+    commit();
+}
+
+
+static void delete_wal(void)
+{
+/**************************************
+ *
+ *	d e l e t e _ w a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Mark wal files for deletion.
+ *
+ **************************************/
+	DJB database;
+	STATUS status[20];
+
+	commit();
+
+	for (database = databases; database; database = database->djb_next) {
+		if (!(database->djb_flags & DJB_archive))
+			continue;
+        
+		/* Mark the file for deletion */
+        
+        FOR J IN JOURNAL_FILES WITH J.DB_ID EQ database->djb_id
+            AND J.DELETE_STATUS EQ LOG_NOT_DELETED
+            AND J.ARCHIVE_STATUS EQ ARCHIVED
+
+            WALF_set_log_header_flag(status, database->djb_db_name,
+                                     J.LOG_NAME, J.PARTITION_OFFSET,
+                                     WALFH_KEEP_FOR_LONG_TERM_RECV, 0);
+            MODIFY J USING 
+                strcpy(J.DELETE_STATUS, LOG_DELETED);
+            END_MODIFY 
+            ON_ERROR 
+                put_line(NULL_PTR, 118, 0, 0, 0);
+                ROLLBACK;
+                START_TRANSACTION;
+                break;
+	        END_ERROR;
+	    END_FOR;
+
+		commit();
+	}
+}
+
+
+static void disable(CNCT connection, LTJC * msg)
+{
+/**************************************
+ *
+ *	d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disable journalling for a database.
+ *
+ **************************************/
+	DJB database;
+
+	database = connection->cnct_database;
+
+/* Journal the message */
+
+	msg->ltjc_header.jrnh_handle = (SLONG) connection;
+	put_message(97, database);
+
+/* Before disable, wal writer will rollover to a new file.
+   The open of the new file will be recorded before the previous
+   file is closed.  Get rid of the latest entry as it should not
+   contain any valid records. */
+
+	FOR D IN DATABASES WITH D.DB_ID EQ database->djb_id
+        MODIFY D USING 
+            strcpy(D.STATUS, DB_DISABLED);
+        END_MODIFY 
+        ON_ERROR 
+           put_line(NULL_PTR, 109, 0, 0, 0);
+           ROLLBACK;
+           START_TRANSACTION;
+           break;
+	   END_ERROR;
+	END_FOR;
+
+	commit();
+
+	delete_connection(connection);
+	delete_database(database);
+}
+
+
+#ifdef BSD_SOCKETS
+static void disconnect(CNCT connection)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t	( U N I X  &  N E T W A R E)
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break physical connection to database or whatever.
+ *
+ **************************************/
+
+	if (close(connection->cnct_handle) < 0)
+		error((STATUS) errno, "close connection");
+}
+#endif
+
+
+#ifdef WIN_NT
+static void disconnect(CNCT connection)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break physical connection to database or whatever.
+ *
+ **************************************/
+
+	if (!FlushFileBuffers(connection->cnct_handle))
+		error(GetLastError(), "FlushFileBuffers");
+	if (!DisconnectNamedPipe(connection->cnct_handle))
+		error(GetLastError(), "DisconnectNamedPipe");
+	if (!CloseHandle(connection->cnct_handle) ||
+		!CloseHandle(connection->cnct_overlapped.hEvent))
+			error(GetLastError(), "CloseHandle");
+}
+#endif
+
+
+#ifndef VMS
+#ifndef WIN_NT
+#ifndef NETWARE_386
+static void divorce_terminal(fd_set * mask)
+{
+/**************************************
+ *
+ *	d i v o r c e _ t e r m i n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clean up everything in preparation to become an independent
+ *	process.  Close all files except for marked by the input mask.
+ *
+ **************************************/
+	int s, fid;
+
+/* Close all files other than those explicitly requested to stay open */
+
+	for (fid = 0; fid < BITS; fid++)
+		if (!mask || !(TEST_BIT(fid, mask)))
+			s = close(fid);
+
+/* Perform terminal divorce */
+
+	fid = open("/dev/tty", 2);
+
+	if (fid >= 0) {
+#ifdef TIOCNOTTY
+		s = ioctl(fid, TIOCNOTTY, 0);
+#endif
+		s = close(fid);
+	}
+
+/* Finally, get out of the process group */
+
+	s = setpgrp(0, 0);
+}
+#endif
+#endif
+#endif
+
+
+static void enable(CNCT connection, LTJC * msg)
+{
+/**************************************
+ *
+ *	e n a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enable journalling for a database.
+ *
+ **************************************/
+	DJB database;
+	JRNR reply;
+	SCHAR db_name[MAX_PATH_LENGTH], dir_name[MAX_PATH_LENGTH];
+	SCHAR arch_name[MAX_PATH_LENGTH];
+	SLONG fd;
+
+	MISC_get_wal_info(msg, db_name, dir_name);
+	connection->cnct_version = msg->ltjc_header.jrnh_version;
+
+/* Check validity of archive directory */
+
+	if ((dir_name) && strlen(dir_name)) {
+		build_indexed_name(arch_name, dir_name, msg->ltjc_seqno);
+		if (LLIO_open(NULL_PTR, arch_name, LLIO_OPEN_NEW_RW, FALSE, &fd)) {
+			reply.jrnr_response = jrnr_archive_error;
+			send_reply(connection, (JRNH *) & reply, sizeof(reply));
+			delete_connection(connection);
+			return;
+		}
+
+		LLIO_close(NULL_PTR, fd);
+
+		/* get rid of file created */
+
+		unlink(arch_name);
+	}
+
+/* If database already exists, wipe out old connections and start again */
+
+	if (database = lookup_database(db_name, 0, 0)) {
+		database->djb_use_count++;
+		delete_database(database);
+	}
+
+/* Make up database block */
+
+	start_database(connection, db_name, dir_name,
+				   msg->ltjc_page_size, msg->ltjc_seqno, msg->ltjc_offset);
+	reply.jrnr_response = jrnr_enabled;
+	send_reply(connection, (JRNH *) & reply, sizeof(reply));
+}
+
+
+#ifdef BSD_SOCKETS
+static void error(STATUS status, TEXT * string)
+{
+/**************************************
+ *
+ *	e r r o r	( U N I X  &  N E T W A R E )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report an error and punt.
+ *
+ **************************************/
+
+	put_line(NULL_PTR, GEN_ERR, (TEXT *) string, 0, 0);
+	perror(string);
+}
+#endif
+
+
+#ifdef WIN_NT
+static void error(STATUS status, TEXT * string)
+{
+/**************************************
+ *
+ *	e r r o r	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report an error and punt.
+ *
+ **************************************/
+	TEXT buffer[MAX_PATH_LENGTH];
+	SSHORT l;
+
+	put_line(NULL_PTR, GEN_ERR, (TEXT *) string, 0, 0);
+
+	if (!(l = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,
+							NULL,
+							status,
+							GetUserDefaultLangID(),
+							buffer,
+							sizeof(buffer),
+							NULL)))
+			put_line(NULL_PTR, 211, (TEXT *) status, 0, 0);
+	else
+		put_line(NULL_PTR, 212, (TEXT *) buffer, 0, 0);
+}
+#endif
+
+
+static void error_exit(STATUS status, TEXT * string)
+{
+/**************************************
+ *
+ *	e r r o r _ e x i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report an error and punt.
+ *
+ **************************************/
+
+	error(status, string);
+	exit(FINI_ERROR);
+}
+
+
+static void free_database_entry(DJB database)
+{
+/**************************************
+ *
+ *      f r e e _ d a t a b a s e _ e n t r y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Remove database block from list and free up memory
+ *
+ **************************************/
+	DJB *ptr;
+
+/* Disconnect block from data structures */
+
+	for (ptr = &databases; *ptr; ptr = &(*ptr)->djb_next)
+		if (*ptr == database) {
+			*ptr = database->djb_next;
+			break;
+		}
+
+	if (database->djb_dir_name)
+		MISC_free_jrnl(database->djb_dir_name);
+	MISC_free_jrnl(database);
+}
+
+
+#ifdef BSD_SOCKETS
+static void get_message(JRNH * buffer, int length)
+{
+/**************************************
+ *
+ *	g e t _ m e s s a g e		( U N I X  &  N E T W A R E )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Poll sockets and connections.  If we get a 'select', read one
+ *      and return later for the rest.
+ *      Connections has the linked list of all FDs created by 'accept', 
+ *      but those of original sockets.
+ *
+ **************************************/
+	SLONG len, nfd, ready_cnt;
+	CNCT connection;
+	HANDLE handle;
+	fd_set ready;
+	UCHAR *p;
+
+	handle = 0;
+
+	init_handles(&ready);
+
+/* set timeout to NULL_PTR to wait until we get something */
+/* want more than 32 later */
+
+	for (;;) {
+#ifdef UNIX_JOURNALLING
+		ready_cnt = select(32, &ready, NULL_PTR, NULL_PTR, NULL_PTR);
+#else
+		ready_cnt = select(FD_SETSIZE, &ready, NULL_PTR, NULL_PTR, NULL_PTR);
+#endif
+		if (ready_cnt > 0)
+			break;
+		if (ready_cnt < 0 && errno != EINTR)
+			error((STATUS) errno, "select");
+	}
+
+	if (ready_cnt) {
+		nfd = 0;
+		for (connection = connections; connection;
+			 connection = connection->cnct_next) {
+			handle = connection->cnct_handle;
+			if (TEST_BIT(handle, &ready)) {
+				nfd = handle;
+				break;
+			}
+		}
+
+		/* if the select wasn't on a connection, check both sockets */
+
+		if (!nfd) {
+			if (TEST_BIT(handles[slot_console], &ready))
+				handle = handles[slot_console];
+			else if (TEST_BIT(handles[slot_journal], &ready))
+				handle = handles[slot_journal];
+			if (handle) {
+				nfd = accept(handle, NULL_PTR, NULL);
+				if (nfd < 0)
+					error((STATUS) errno, "accept");
+				connection = alloc_connect(nfd, 0);
+				if (handle == handles[slot_console]) {
+					connection->cnct_flags = CNCT_console;
+					put_message(146, (DJB) NULL_PTR);
+				}
+			}
+		}
+
+		len = recv(nfd, (SCHAR *) buffer, sizeof(JRNH), 0);
+		p = (UCHAR *) buffer + len;
+		length = buffer->jrnh_length - len;
+		while (len > 0 && length) {
+			len = recv(nfd, p, length, 0);
+			length -= len;
+			p += len;
+		}
+		if (len < 0)
+			error((STATUS) errno, "recv");
+		else if (!len) {
+			if (!(connection->cnct_flags & CNCT_console))
+				put_message(96, connection->cnct_database);
+			delete_connection(connection);
+		}
+		else
+			process_message(connection, buffer, buffer->jrnh_length);
+	}
+
+}
+#endif
+
+
+#ifdef WIN_NT
+static void get_message(JRNH * buffer, int length)
+{
+/**************************************
+ *
+ *	g e t _ m e s s a g e		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get message if one is waiting.
+ *
+ **************************************/
+	CNCT connection, new_connection;
+	HANDLE *wait_events;
+	SLONG wait_count, n, len;
+	UCHAR *p;
+
+	wait_events = wait_vec;
+	*wait_events++ = pending_connections[slot_console].cnct_overlapped.hEvent;
+	*wait_events++ = pending_connections[slot_journal].cnct_overlapped.hEvent;
+	for (connection = connections; connection;
+		 connection = connection->cnct_next) *wait_events++ =
+			connection->cnct_overlapped.hEvent;
+
+	wait_count = wait_events - wait_vec;
+	if ((n = WaitForMultipleObjects(wait_count, wait_vec, FALSE, INFINITE)) <
+		0) error(GetLastError(), "WaitForMultipleObjects");
+
+	if (n < 2)
+		connection = (n == 0) ? &pending_connections[slot_console] :
+			&pending_connections[slot_journal];
+	else
+		for (connection = connections; n != 2; n--)
+			connection = connection->cnct_next;
+
+	if (connection->cnct_flags & CNCT_pending_io) {
+		if (!GetOverlappedResult(connection->cnct_handle,
+								 &connection->cnct_overlapped, &len, TRUE) &&
+			GetLastError() != ERROR_BROKEN_PIPE)
+			error(GetLastError(), "GetOverlappedResult");
+		connection->cnct_read_length = len;
+		connection->cnct_flags &= ~CNCT_pending_io;
+	}
+
+	if (n < 2) {
+		new_connection = alloc_connect(connection->cnct_handle, 0);
+		new_connection->cnct_overlapped = connection->cnct_overlapped;
+		if (connection == &pending_connections[slot_console]) {
+			new_connection->cnct_flags |= CNCT_console;
+			put_message(146, (DJB) NULL_PTR);
+			open_mailbox(CONSOLE_FILE, slot_console);
+		}
+		else
+			open_mailbox(JOURNAL_FILE, slot_journal);
+		connection = new_connection;
+		read_asynchronous(connection);
+		return;
+	}
+
+	if (!connection->cnct_read_length) {
+		if (!(connection->cnct_flags & CNCT_console))
+			put_message(96, connection->cnct_database);
+		delete_connection(connection);
+		return;
+	}
+
+	memcpy(buffer, connection->cnct_data, (int) connection->cnct_read_length);
+	p = (UCHAR *) buffer + connection->cnct_read_length;
+	length = buffer->jrnh_length - connection->cnct_read_length;
+	if (!ReadFile(connection->cnct_handle, p, length, &len,
+				  &connection->cnct_overlapped)) {
+		if (GetLastError() != ERROR_IO_PENDING)
+			error(GetLastError(), "ReadFile");
+		else if (!GetOverlappedResult(connection->cnct_handle,
+									  &connection->cnct_overlapped, &len,
+									  TRUE)) error(GetLastError(),
+												   "GetOverlappedResult");
+	}
+	if (length != len)
+		error(GetLastError(), "ReadFile");
+
+	read_asynchronous(connection);
+
+	process_message(connection, buffer, buffer->jrnh_length);
+}
+#endif
+
+
+#ifdef BSD_SOCKETS
+static void init_handles(fd_set * mask_ptr)
+{
+/**************************************
+ *
+ *	i n i t _ h a n d l e s     ( U N I X  &  N E T W A R E )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get sockets ready for select.
+ *
+ **************************************/
+	CNCT connection;
+
+	memset(mask_ptr, 0, sizeof(*mask_ptr));
+
+/* set mask for each accepted connections */
+
+	for (connection = connections; connection;
+		 connection =
+		 connection->cnct_next) SET_BIT(connection->cnct_handle, mask_ptr);
+
+/* now for the sockets */
+
+	SET_BIT(handles[slot_console], mask_ptr);
+	SET_BIT(handles[slot_journal], mask_ptr);
+}
+#endif
+
+
+static DJB lookup_database(SCHAR * string, USHORT id, SSHORT find_disabled)
+{
+/**************************************
+ *
+ *	l o o k u p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the database if it is active.
+ *	if find_deleted flag is true, it will find disabled databases also.
+ *
+ **************************************/
+	DJB database;
+	UCHAR *q;
+
+	if (string)
+		for (database = databases; database; database = database->djb_next) {
+			if ((database->djb_flags & DJB_disabled) && (!find_disabled))
+				continue;
+
+			q = database->djb_db_name;
+			if (!strcmp(q, string))
+				return database;
+		}
+
+	if (id)
+		for (database = databases; database; database = database->djb_next) {
+			if ((database->djb_flags & DJB_disabled) && (!find_disabled))
+				continue;
+
+			if (database->djb_id == id)
+				return database;
+		}
+
+	return NULL;
+}
+
+
+static DJB make_database(CNCT connection, SCHAR * db_name, SCHAR * dir_name)
+{
+/**************************************
+ *
+ *	m a k e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make up a database block.
+ *
+ **************************************/
+	DJB database;
+	SSHORT i, ldb, ldir;
+
+	ldb = strlen(db_name);
+	ldir = strlen(dir_name);
+
+	database = (DJB) MISC_alloc_jrnl(sizeof(struct djb) + ldb);
+
+	if (ldb)
+		strcpy(database->djb_db_name, db_name);
+
+	if (ldir) {
+		database->djb_dir_name = MISC_alloc_jrnl(ldir + 1);
+		strcpy(database->djb_dir_name, dir_name);
+	}
+
+	database->djb_next = databases;
+	databases = database;
+
+	for (i = 0; i <= MAX_ARCHIVE; i++) {
+		database->djb_bfi[i].bi_pid = -1;
+		database->djb_bfi[i].bi_fid = -1;
+	}
+
+	if (connection) {
+		connection->cnct_db_next = database->djb_connections;
+		database->djb_connections = connection;
+		database->djb_use_count = 1;
+		connection->cnct_database = database;
+	}
+
+	return database;
+}
+
+
+#ifdef BSD_SOCKETS
+static void open_mailbox(SCHAR * filename, USHORT slot)
+{
+/**************************************
+ *
+ *	o p e n _ m a i l b o x		( U N I X  &  N E T W A R E )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open multiplexed connection.
+ *
+ **************************************/
+	struct sockaddr_in address;
+	HANDLE handle;
+	struct hostent *host;
+	TEXT name[MAXHOSTNAMELEN];
+	int length, namelen;
+
+/* Set up Inter-Net socket address */
+
+	namelen = MAXHOSTNAMELEN;
+
+	if ((gethostname(name, namelen) == -1))
+		error_exit((STATUS) errno, "gethostname");
+
+	if (!(host = gethostbyname(name)))
+		error_exit((STATUS) errno, "gethostbyname");
+
+/* Allocate a port block and initialize a socket for communications */
+
+	handle = (SLONG) socket(AF_INET, SOCK_STREAM, 0);
+
+	if (handle == -1)
+		error_exit((STATUS) errno, "socket");
+
+	memset(&address, 0, sizeof(address));
+	memcpy(&address.sin_addr, host->h_addr, sizeof(address.sin_addr));
+
+#ifdef UNIX_JOURNALLING
+	address.sin_family = host->h_addrtype;
+#else
+	address.sin_family = AF_INET;
+#endif
+
+	address.sin_port = 0;		/* let system choose an unused port no. */
+	length = sizeof(address);
+
+	if (bind((int) handle, (struct sockaddr *) &address, length) < 0)
+		error_exit((STATUS) errno, "bind");
+
+	if (getsockname((int) handle, (struct sockaddr *) &address, &length) < 0)
+		error_exit((STATUS) errno, "getsockname");
+
+/* now that we've settled on the socket, go advertize the address */
+
+	post_address(slot, address);
+
+/* current system limit for queue = 5 */
+
+	if (listen(handle, 5) < 0)
+		error_exit((STATUS) errno, "listen");
+
+	handles[slot] = handle;
+}
+#endif
+
+
+#ifdef WIN_NT
+static void open_mailbox(SCHAR * filename, USHORT slot)
+{
+/**************************************
+ *
+ *	o p e n _ m a i l b o x		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open multiplexed connection.
+ *
+ **************************************/
+	TEXT name[MAX_PATH_LENGTH], *p, *q, c, full_name[MAX_PATH_LENGTH];
+	HANDLE phandle, ehandle;
+	USHORT n;
+	CNCT cnct;
+
+	strcpy(full_name, journal_directory);
+	strcat(full_name, filename);
+	filename = full_name;
+
+	p = name;
+	strcpy(p, "\\\\.\\pipe");
+	p += strlen(p);
+
+	if (*filename != '/' && *filename != '\\')
+		*p++ = '\\';
+
+	while (*filename)
+		*p++ = ((c = *filename++) == ':') ? '_' : ((c == '/') ? '\\' : c);
+	*p = 0;
+
+	memset(&pending_connections[slot], 0, sizeof(struct cnct));
+	phandle = CreateNamedPipe(name,
+							  PIPE_ACCESS_DUPLEX | FILE_FLAG_OVERLAPPED,
+							  PIPE_WAIT | PIPE_TYPE_BYTE | PIPE_READMODE_BYTE,
+							  PIPE_UNLIMITED_INSTANCES,
+							  sizeof(JRNH) + MSG_LENGTH,
+							  MAX_RECORD + 6, 0, ISC_get_security_desc());
+	if (phandle == INVALID_HANDLE_VALUE)
+		error_exit(GetLastError(), "CreateNamedPipe");
+
+	pending_connections[slot].cnct_handle = phandle;
+
+	ehandle = CreateEvent(NULL, TRUE, FALSE, NULL);
+	if (ehandle == NULL)
+		error_exit(GetLastError(), "CreateEvent");
+
+	pending_connections[slot].cnct_overlapped.hEvent = ehandle;
+
+	if (ConnectNamedPipe(phandle, &pending_connections[slot].cnct_overlapped)
+		|| GetLastError() == ERROR_PIPE_CONNECTED)
+		SetEvent(ehandle);
+	else if (GetLastError() == ERROR_IO_PENDING)
+		pending_connections[slot].cnct_flags |= CNCT_pending_io;
+	else
+		error_exit(GetLastError(), "ConnectNamedPipe");
+
+	for (n = 2, cnct = connections; cnct; cnct = cnct->cnct_next)
+		n++;
+
+	if (n > wait_vec_length) {
+		if (wait_vec)
+			MISC_free_jrnl(wait_vec);
+		wait_vec_length += 10;
+		wait_vec = (HANDLE *)
+			MISC_alloc_jrnl((SLONG) (wait_vec_length * sizeof(HANDLE)));
+	}
+}
+#endif
+
+
+#ifdef BSD_SOCKETS
+static void post_address(USHORT slot, struct sockaddr_in address)
+{
+/**************************************
+ *
+ *	p o s t _ a d d r e s s		( U N I X  &  N E T W A R E )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out socket info. to a known file so that any
+ *      client can find it.
+ *
+ **************************************/
+	FILE *file;
+	SCHAR full_name[MAX_PATH_LENGTH];
+
+	strcpy(full_name, journal_directory);
+	strcat(full_name, address_files[slot]);
+
+	if (!(file = fopen(full_name, "w")))
+		error_exit((STATUS) errno, "socket address file open");
+
+	fprintf(file, "%d %d %d %d",
+			JOURNAL_VERSION,
+			address.sin_addr.s_addr, address.sin_family, address.sin_port);
+
+	fclose(file);
+}
+#endif
+
+
+static void process_command(CNCT connection, TEXT * string)
+{
+/**************************************
+ *
+ *	p r o c e s s _ c o m m a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process an operator command.
+ *
+ **************************************/
+	CMDS *command;
+	TEXT operand1[JOURNAL_PATH_LENGTH], operand2[JOURNAL_PATH_LENGTH];
+	TEXT cmd[32], *p, *q;
+	USHORT n;
+	JRNR response;
+	SSHORT db_id;
+
+	response.jrnr_header.jrnh_type = JRN_RESPONSE;
+	n = sscanf(string, "%s%s%s", cmd, operand1, operand2);
+
+	for (command = commands; p = command->cmds_string; command++) {
+		q = cmd;
+		while (*q && UPPER(*q) == *p++)
+			q++;
+		if (!*q)
+			break;
+	}
+
+	switch (command->cmds_command) {
+	case cmd_shutdown:
+		put_message(98, (DJB) NULL_PTR);
+		state |= state_shut_pending;
+		response.jrnr_response = jrnr_shutdown;
+		send_reply(connection, (JRNH *) & response, sizeof(response));
+#ifdef WIN_NT
+		Sleep(5000);
+#endif
+		delete_connection(connection);
+		return;
+
+	case cmd_exit:
+		response.jrnr_response = jrnr_exit;
+		send_reply(connection, (JRNH *) & response, sizeof(response));
+		return;
+
+	case cmd_status:
+		report_status(connection);
+		break;
+
+	case cmd_help:
+		put_line(connection, 112, 0, 0, 0);
+		for (command = commands; p = command->cmds_string; command++)
+			if (command->cmds_msg)
+				put_line(connection, command->cmds_msg,
+						 (TEXT *) command->cmds_string, 0, 0);
+		break;
+
+	case cmd_version:
+		p = GDS_VERSION;
+		put_line(connection, 113, p, 0, 0);
+		break;
+
+	case cmd_drop:
+		put_line(connection, 114, (TEXT *) operand1, 0, 0);
+		process_drop_database(connection, operand1);
+		break;
+
+	case cmd_erase:
+		db_id = atoi(operand1);
+		put_line(connection, 162, (TEXT *) db_id, 0, 0);
+		process_erase_database(connection, db_id);
+		break;
+
+	case cmd_reset:
+		put_line(connection, 151, (TEXT *) operand2, 0, 0);
+		process_reset_database(connection, operand2);
+		break;
+
+	case cmd_set:
+		put_line(connection, 115, (TEXT *) operand2, 0, 0);
+		process_set_database(connection, operand2);
+		break;
+
+	case cmd_disable:
+		put_line(connection, 159, (TEXT *) operand1, 0, 0);
+		process_disable_database(connection, operand1);
+		break;
+
+	case cmd_archive:
+		put_line(connection, 240, (TEXT *) operand1, 0, 0);
+		process_restart_archive(connection, operand1);
+		break;
+
+	default:
+		put_line(connection, 116, (TEXT *) string, 0, 0);
+	}
+
+	response.jrnr_response = jrnr_end_msg;
+	send_reply(connection, (JRNH *) & response, sizeof(response));
+}
+
+
+static void process_archive_begin(CNCT connection, LTJA * msg)
+{
+/**************************************
+ *
+ *	p r o c e s s _ a r c h i v e _ b e g i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process archive start.
+ *
+ **************************************/
+	DJB database;
+	SLONG db_id, file_id;
+	JRNR reply;
+
+	db_id = msg->ltja_db_id;
+	file_id = msg->ltja_file_id;
+
+	connection->cnct_version = msg->ltja_header.jrnh_version;
+
+	if (database = lookup_database((SCHAR *) 0, db_id, 1)) {
+		put_message(100, database);
+		connection->cnct_db_next = database->djb_connections;
+		database->djb_connections = connection;
+		connection->cnct_database = database;
+		if (!database->djb_use_count++)
+			set_use_count(database);
+		reply.jrnr_response = jrnr_accepted;
+		send_reply(connection, (JRNH *) & reply, sizeof(reply));
+		return;
+	}
+
+/* Check if the database has been disabled already.  If so let the
+ * archive run.
+ */
+
+    FOR D IN DATABASES WITH D.DB_ID EQ db_id AND D.STATUS EQ DB_DISABLED
+        reply.jrnr_response = jrnr_accepted;
+	    send_reply(connection, (JRNH *) & reply, sizeof(reply));
+        connection->cnct_database = (DJB) 0;
+        return;
+    END_FOR;
+
+/* Error situation */
+
+	reply.jrnr_response = jrnr_rejected;
+	send_reply(connection, (JRNH *) & reply, sizeof(reply));
+}
+
+
+static void process_archive_end(CNCT connection, LTJA * msg)
+{
+/**************************************
+ *
+ *	p r o c e s s _ a r c h i v e _ e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	process archive end
+ *
+ **************************************/
+	DJB database;
+	SLONG file_id, db_id;
+	SCHAR name[MAX_PATH_LENGTH], file_name[MAX_PATH_LENGTH];
+	STATUS status[20];
+	SCHAR db[MAX_PATH_LENGTH], arch[MAX_PATH_LENGTH];
+
+	db_id = msg->ltja_db_id;
+	file_id = msg->ltja_file_id;
+
+	commit();
+
+	database = connection->cnct_database;
+
+/* Handle situation where the database is already disabled */
+
+	if (database) {
+		strcpy(db, database->djb_db_name);
+		strcpy(arch, database->djb_dir_name);
+		database->djb_retry = 0;	/* archive is working */
+	}
+	else {
+	    FOR D IN DATABASES WITH D.DB_ID EQ db_id strcpy(db, D.DB_NAME);
+	        strcpy(arch, D.ARCHIVE_BASE_NAME);
+	    END_FOR;
+	}
+
+	FOR J IN JOURNAL_FILES WITH J.FILE_ID EQ file_id
+        WALF_set_log_header_flag(status, db, J.LOG_NAME,
+                                 J.PARTITION_OFFSET,
+                                 WALFH_KEEP_FOR_LONG_TERM_RECV, 0);
+        strcpy(file_name, J.LOG_NAME);
+        build_indexed_name(name, arch, J.FILE_SEQUENCE);
+        MODIFY J USING 
+            strcpy(J.DELETE_STATUS, LOG_DELETED);
+	        strcpy(J.ARCHIVE_STATUS, ARCHIVED);
+            strcpy(J.ARCHIVE_NAME, name);
+	    END_MODIFY 
+        ON_ERROR 
+            put_line(NULL_PTR, 126, 0, 0, 0);
+            ROLLBACK;
+            START_TRANSACTION;
+            break;
+	    END_ERROR;
+	END_FOR;
+
+    FOR T IN LOG_ARCHIVE_STATUS WITH T.FILE_ID = file_id
+        ERASE T 
+        ON_ERROR 
+            ROLLBACK;
+            START_TRANSACTION;
+            break;
+	    END_ERROR;
+	END_FOR;
+
+	if (database)
+		delete_backup_entry(database, file_id);
+
+	commit();
+
+	put_message(99, database);
+
+	put_line(NULL_PTR, 178, file_name, (TEXT *) file_id, 0);
+
+	delete_connection(connection);
+	archives_running--;
+}
+
+
+static void process_archive_error(CNCT connection, LTJA * msg)
+{
+/**************************************
+ *
+ *	p r o c e s s _ a r c h i v e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	process archive error
+ *
+ **************************************/
+	DJB database;
+	SLONG file_id;
+
+	file_id = msg->ltja_file_id;
+
+	database = connection->cnct_database;
+
+	put_line(NULL_PTR, 179, (TEXT *) file_id, 0, 0);
+	put_line(NULL_PTR, (SSHORT) msg->ltja_error_code, 0, 0, 0);
+
+	put_message(99, database);
+
+	delete_connection(connection);
+
+	commit();
+    
+	FOR T IN LOG_ARCHIVE_STATUS WITH T.FILE_ID = file_id
+        ERASE T 
+        ON_ERROR 
+            ROLLBACK;
+            START_TRANSACTION;
+            break;
+	    END_ERROR;
+	END_FOR;
+
+	commit();
+
+	archives_running--;
+
+/* If database is already disabled */
+
+	if (!database)
+		return;
+
+	delete_backup_entry(database, file_id);
+	database->djb_retry++;
+
+	if (database->djb_retry > max_retry)
+		return;
+
+/* Restart backup. */
+
+	FOR J IN JOURNAL_FILES WITH J.FILE_ID EQ msg->ltja_file_id
+        backup_wal(database, J.LOG_NAME, J.FILE_ID, J.FILE_SEQUENCE,
+                   J.FILE_SIZE, J.PARTITION_OFFSET);
+	END_FOR;
+}
+
+
+static void process_control_point(CNCT connection, LTJW * msg)
+{
+/**************************************
+ *
+ *	p r o c e s s _ c o n t r o l _ p o i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update control point information.
+ *
+ **************************************/
+	DJB database;
+	JRNR reply;
+
+	database = connection->cnct_database;
+
+	put_line(NULL_PTR, 117, (TEXT *) msg->ltjw_seqno,
+			 (TEXT *) msg->ltjw_offset, 0);
+
+	commit();
+
+	reply.jrnr_response = jrnr_ack;
+	send_reply(connection, (JRNH *) & reply, sizeof(reply));
+
+/* 
+ * Restart backup.
+ * Go through WAL file list for database and fire off backup process. 
+ */
+
+	if (database->djb_flags & DJB_archive)
+		restart_backup(database, 1);
+
+/* Mark the file for deletion */
+
+	delete_wal();
+
+	commit();
+}
+
+
+static void process_disable_database(CNCT connection, TEXT * dbname)
+{
+/**************************************
+ *
+ *	p r o c e s s _ d i s a b l e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disable journalling for a database.
+ *
+ **************************************/
+	DJB database;
+
+	commit();
+
+	if (!(database = lookup_database(dbname, 0, 0))) {
+		put_line(connection, 143, (TEXT *) dbname, 0, 0);
+		return;
+	}
+
+	if (database->djb_use_count) {
+		put_line(connection, 161, (TEXT *) database->djb_id, 0, 0);
+		return;
+	}
+
+/* show our interest in the database */
+	database->djb_use_count++;
+
+	put_message(97, database);
+
+/* 
+ * Before disable, wal writer will rollover to a new file.
+ * The open of the new file will be recorded before the previous
+ * file is closed.  Get rid of the latest entry as it should not
+ * contain any valid records.
+ */
+
+	FOR D IN DATABASES WITH D.DB_ID EQ database->djb_id
+        MODIFY D USING 
+            strcpy(D.STATUS, DB_DISABLED);
+	   END_MODIFY 
+       ON_ERROR 
+           put_line(NULL_PTR, 109, 0, 0, 0);
+	       ROLLBACK;
+           START_TRANSACTION;
+           break;
+	   END_ERROR;
+    END_FOR;
+
+	commit();
+
+	delete_database(database);
+}
+
+
+static void process_drop_database(CNCT connection, SCHAR * dbname)
+{
+/**************************************
+ *
+ *	p r o c e s s _ d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Drop all online dump and archived files for database.
+ *	Delete all records for database.
+ **************************************/
+	DJB database;
+	SSHORT db_id;
+
+	commit();
+
+	if (!(database = lookup_database(dbname, 0, 0))) {
+		put_line(connection, 143, (TEXT *) dbname, 0, 0);
+		return;
+	}
+
+	db_id = database->djb_id;
+
+	if (database->djb_use_count) {
+		put_line(connection, 161, (TEXT *) db_id, 0, 0);
+		return;
+	}
+
+	process_erase_database(connection, db_id);
+}
+
+
+static void process_dump_file(CNCT connection, LTJW * msg)
+{
+/**************************************
+ *
+ *	p r o c e s s _ d u m p _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Store dump file info in online_dump_file.
+ *	Dump file sequence is ltjw_count.
+ *	Dump id is ltjw_mode.
+ **************************************/
+	JRNR reply;
+
+	msg->ltjw_data[msg->ltjw_length] = 0;
+
+	STORE X IN ONLINE_DUMP_FILES 
+        strcpy(X.DUMP_FILE_NAME, msg->ltjw_data);
+	    X.FILE_SEQNO = msg->ltjw_count;
+        X.DUMP_ID = msg->ltjw_mode;
+        X.FILE_SIZE = msg->ltjw_offset;
+        time_stamp(&X.CREATION_DATE);
+	END_STORE 
+    ON_ERROR 
+        put_line(NULL_PTR, 119, 0, 0, 0);
+	    ROLLBACK;
+        START_TRANSACTION;
+	END_ERROR;
+
+	commit();
+
+	put_line(NULL_PTR, 120, (TEXT *) msg->ltjw_mode, (TEXT *) msg->ltjw_data,
+			 0);
+
+	reply.jrnr_response = jrnr_ack;
+	send_reply(connection, (JRNH *) & reply, sizeof(reply));
+}
+
+
+static void process_end_dump(CNCT connection, LTJW * msg)
+{
+/**************************************
+ *
+ *	p r o c e s s _ e n d _ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	update end of dump record
+ *	The dump id comes in overloaded in the ltjw_mode field.
+ *	Time stamp the end of dump.
+ *
+ **************************************/
+	JRNR reply;
+
+/* Trigger will update DATABASE.LAST_DUMP_ID */
+
+    FOR X IN ONLINE_DUMP WITH X.DUMP_ID = msg->ltjw_mode
+        MODIFY X USING 
+            X.END_SEQNO = msg->ltjw_seqno;
+            X.END_OFFSET = msg->ltjw_offset;
+            X.END_PARTITION_OFFSET = msg->ltjw_p_offset;
+            time_stamp(&X.DUMP_DATE);
+	    END_MODIFY 
+        ON_ERROR 
+            put_line(NULL_PTR, 121, 0, 0, 0);
+	        ROLLBACK;
+            START_TRANSACTION;
+            break;
+	    END_ERROR;
+    END_FOR;
+
+	commit();
+
+	put_line(NULL_PTR, 122, (TEXT *) msg->ltjw_mode, 0, 0);
+
+	reply.jrnr_response = jrnr_end_dump;
+	send_reply(connection, (JRNH *) & reply, sizeof(reply));
+}
+
+
+static void process_erase_database(CNCT connection, USHORT db_id)
+{
+/**************************************
+ *
+ *	p r o c e s s _ e r a s e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Drop all online dump and archived files for database.
+ *	Delete all records for database.
+ **************************************/
+	DJB database;
+	int ret;
+	SCHAR dbname[MAX_PATH_LENGTH];
+	int found = 0;
+
+	commit();
+
+	if (!(database = lookup_database((SCHAR *) 0, db_id, 0))) {
+        FOR D IN DATABASES WITH D.DB_ID EQ db_id 
+            strcpy(dbname, D.DB_NAME);
+	        found = 1;
+	        break;
+	    END_FOR;
+
+		if (!found) {
+			put_line(connection, 177, (TEXT *) db_id, 0, 0);
+			return;
+		}
+	}
+	else {
+		strcpy(dbname, database->djb_db_name);
+
+		if (database->djb_use_count) {
+			put_line(connection, 161, (TEXT *) db_id, 0, 0);
+			return;
+		}
+
+		/* show our interest in the database */
+
+		database->djb_use_count++;
+
+		delete_database(database);
+	}
+
+/* erase all online dump files and all archived log files */
+
+    FOR D IN DATABASES WITH D.DB_ID EQ db_id
+        FOR OD IN ONLINE_DUMP WITH OD.DB_ID EQ D.DB_ID
+            FOR ODF IN ONLINE_DUMP_FILES WITH ODF.DUMP_ID EQ OD.DUMP_ID
+                put_line(connection, 145, (TEXT *) ODF.DUMP_FILE_NAME, 0, 0);
+                ret = unlink(ODF.DUMP_FILE_NAME);
+                if ((ret == -1) && (errno != ENOENT)) {
+                    put_line(connection, 147, (TEXT *) ODF.DUMP_FILE_NAME, 0, 0);
+                    ROLLBACK;
+                    START_TRANSACTION;
+                    return;
+                }
+                ERASE ODF 
+                ON_ERROR 
+                   put_line(connection, 144, (TEXT *) dbname, 0, 0);
+                   ROLLBACK;
+                   START_TRANSACTION;
+                   return;
+               END_ERROR;
+           END_FOR;
+	
+           ERASE OD 
+           ON_ERROR 
+               put_line(connection, 144, (TEXT *) dbname, 0, 0);
+               ROLLBACK;
+               START_TRANSACTION;
+               return;
+	       END_ERROR;
+	
+	   END_FOR;
+	
+	   FOR JF IN JOURNAL_FILES WITH JF.DB_ID = D.DB_ID
+	       if (strlen(JF.ARCHIVE_NAME)) {
+               put_line(connection, 145, (TEXT *) JF.ARCHIVE_NAME, 0, 0);
+               ret = unlink(JF.ARCHIVE_NAME);
+               if ((ret == -1) && (errno != ENOENT)) {
+                   put_line(connection, 147, (TEXT *) JF.ARCHIVE_NAME, 0, 0);
+                   ROLLBACK;
+                   START_TRANSACTION;
+                   return;
+               }
+           }
+           ERASE JF 
+           ON_ERROR 
+               put_line(connection, 144, (TEXT *) dbname, 0, 0);
+               ROLLBACK;
+               START_TRANSACTION;
+               return;
+	       END_ERROR;
+	   END_FOR;
+	
+	   ERASE D 
+       ON_ERROR 
+           put_line(connection, 144, (TEXT *) dbname, 0, 0);
+	       ROLLBACK;
+           START_TRANSACTION;
+           return;
+	   END_ERROR;
+    END_FOR;
+
+	commit();
+}
+
+
+static void process_message(CNCT connection, JRNH * msg, USHORT length)
+{
+/**************************************
+ *
+ *	p r o c e s s _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a journal message.
+ *
+ **************************************/
+	TEXT *p;
+
+	switch (msg->jrnh_type) {
+	case JRN_ENABLE:
+		enable(connection, (LTJC *) msg);
+		break;
+
+	case JRN_DISABLE:
+		disable(connection, (LTJC *) msg);
+		break;
+
+	case JRN_SIGN_ON:
+		sign_on(connection, (LTJC *) msg);
+		break;
+
+	case JRN_SIGN_OFF:
+		sign_off(connection, (LTJC *) msg);
+		break;
+
+	case JRN_WAL_NAME:
+		process_wal_file(connection, (LTJW *) msg);
+		break;
+
+	case JRN_CONSOLE:
+		p = (TEXT *) msg;
+		p[length] = 0;
+		process_command(connection, (TEXT *) (p + sizeof(JRNH)));
+		break;
+
+	case JRN_START_ONLINE_DMP:
+		process_start_dump(connection, (LTJW *) msg);
+		break;
+
+	case JRN_END_ONLINE_DMP:
+		process_end_dump(connection, (LTJW *) msg);
+		break;
+
+	case JRN_ONLINE_DMP_FILE:
+		process_dump_file(connection, (LTJW *) msg);
+		break;
+
+	case JRN_ARCHIVE_BEGIN:
+		process_archive_begin(connection, (LTJA *) msg);
+		break;
+
+	case JRN_ARCHIVE_END:
+		process_archive_end(connection, (LTJA *) msg);
+		break;
+
+	case JRN_ARCHIVE_ERROR:
+		process_archive_error(connection, (LTJA *) msg);
+		break;
+
+	case JRN_CNTRL_PT:
+		process_control_point(connection, (LTJW *) msg);
+		break;
+
+	default:
+		put_line(NULL_PTR, 123, (TEXT *) msg->jrnh_type, 0, 0);
+	}
+}
+
+
+static void process_reset_database(CNCT connection, SCHAR * dbname)
+{
+/**************************************
+ *
+ *	p r o c e s s _ r e s e t _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset delete flag for database.
+ *
+ **************************************/
+	DJB database;
+	USHORT db_id;
+
+	commit();
+
+	if (!(database = lookup_database(dbname, 0, 0))) {
+		put_line(connection, 143, (TEXT *) dbname, 0, 0);
+		return;
+	}
+	else {
+		db_id = database->djb_id;
+	}
+
+/* reset delete flag */
+
+    FOR D IN DATABASES WITH D.DB_ID EQ db_id
+        MODIFY D USING 
+            strcpy(D.DELETE_MODE, DB_RETAIN);
+	    END_MODIFY 
+        ON_ERROR 
+            ROLLBACK;
+	        START_TRANSACTION;
+            break;
+	    END_ERROR;
+	
+        database->djb_flags &= ~DJB_set_delete;
+    END_FOR;
+
+	commit();
+}
+
+
+static void process_restart_archive(CNCT connection, SCHAR * dbname)
+{
+/**************************************
+ *
+ *	p r o c e s s _ r e s t a r t _ a r c h i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset archive for a database.
+ *
+ **************************************/
+	DJB database;
+	USHORT db_id;
+
+	commit();
+
+	if (!(database = lookup_database(dbname, 0, 0))) {
+		put_line(connection, 143, (TEXT *) dbname, 0, 0);
+		return;
+	}
+	else {
+		db_id = database->djb_id;
+	}
+
+	database->djb_retry = 0;	/* set archive to be working */
+
+/* Restart backup. */
+
+	restart_backup(database, MAX_ARCHIVE);
+
+	commit();
+}
+
+
+static void process_set_database(CNCT connection, SCHAR * dbname)
+{
+/**************************************
+ *
+ *	p r o c e s s _ s e t _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set delete flag for database.
+ *	Delete all 'older' files.
+ *
+ **************************************/
+	DJB database;
+	SLONG last_dump, db_id;
+
+	commit();
+
+	if (!(database = lookup_database(dbname, 0, 0))) {
+		put_line(connection, 143, (TEXT *) dbname, 0, 0);
+		return;
+	}
+	else {
+		db_id = database->djb_id;
+	}
+
+/* set delete flag */
+
+    FOR D IN DATABASES WITH D.DB_ID EQ db_id
+        MODIFY D USING 
+            strcpy(D.DELETE_MODE, DB_DELETE);
+	    END_MODIFY 
+        ON_ERROR 
+            ROLLBACK;
+	        START_TRANSACTION;
+            break;
+        END_ERROR;
+	
+        last_dump = D.LAST_DUMP_ID;
+        database->djb_flags |= DJB_set_delete;
+	END_FOR;
+
+	commit();
+
+	delete_history_files(connection, dbname, db_id, last_dump);
+}
+
+
+static void process_start_dump(CNCT connection, LTJW * msg)
+{
+/**************************************
+ *
+ *	p r o c e s s _ s t a r t _ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a record in the online_dump table.
+ *	Return the dump_id overloaded on the page number field of reply.
+ **************************************/
+	JRNR reply;
+	SSHORT dump_id = -1;
+
+	msg->ltjw_data[msg->ltjw_length] = 0;
+
+    FOR D IN DATABASES WITH D.DB_ID EQ connection->cnct_database->djb_id
+        STORE X IN ONLINE_DUMP X.DB_ID = D.DB_ID;
+            X.START_SEQNO = msg->ltjw_seqno;
+            X.START_OFFSET = msg->ltjw_offset;
+            X.START_PARTITION_OFFSET = msg->ltjw_p_offset;
+            X.END_SEQNO = 0;
+            X.END_OFFSET = 0;
+            X.END_PARTITION_OFFSET = 0;
+        END_STORE 
+        ON_ERROR 
+            put_line(NULL_PTR, 124, 0, 0, 0);
+	        ROLLBACK;
+            START_TRANSACTION;
+            goto end_proc;
+        END_ERROR;
+	END_FOR;
+
+	commit();
+
+/* Get the newly generated dump_id */
+
+    FOR X IN ONLINE_DUMP WITH X.DB_ID EQ connection->cnct_database->djb_id
+        AND X.START_SEQNO EQ msg->ltjw_seqno
+        AND X.START_OFFSET EQ msg->ltjw_offset 
+        
+        dump_id = X.DUMP_ID;
+	
+	END_FOR;
+
+	put_line(NULL_PTR, 125, (TEXT *) dump_id, 0, 0);
+
+  end_proc:
+
+	reply.jrnr_response = jrnr_start_dump;
+	reply.jrnr_page = (SLONG) dump_id;
+	send_reply(connection, (JRNH *) & reply, sizeof(reply));
+}
+
+
+static void process_wal_file(CNCT connection, LTJW * msg)
+{
+/**************************************
+ *
+ *	p r o c e s s _ w a l _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	start storing wal file information
+ *
+ **************************************/
+	DJB database;
+	JRNR reply;
+	int repeat;
+	SLONG file_id;
+	SLONG last_dump;
+	SLONG file_seq, file_size, p_offset;
+
+	msg->ltjw_data[msg->ltjw_length] = 0;
+	database = connection->cnct_database;
+
+	FOR D IN DATABASES WITH D.DB_ID EQ connection->cnct_database->djb_id
+        last_dump = D.LAST_DUMP_ID;
+        repeat = FALSE;
+	
+        FOR X IN JOURNAL_FILES WITH X.DB_ID EQ D.DB_ID AND
+            X.FILE_SEQUENCE EQ msg->ltjw_seqno 
+
+            repeat = TRUE;
+	    END_FOR;
+
+	
+	   /* Handle close file record for files without open */
+	
+        if (repeat == FALSE) {
+            STORE X IN JOURNAL_FILES X.DB_ID = D.DB_ID;
+                X.PARTITION_OFFSET = msg->ltjw_p_offset;
+                strcpy(X.FILE_STATUS, LOG_OPENED);
+                strcpy(X.DELETE_STATUS, LOG_NOT_DELETED);
+                strcpy(X.ARCHIVE_STATUS, NOT_ARCHIVED);
+                X.FILE_SEQUENCE = msg->ltjw_seqno;
+                strcpy(X.LOG_NAME, msg->ltjw_data);
+                MOVE_CLEAR(X.ARCHIVE_NAME, sizeof(X.ARCHIVE_NAME));
+                time_stamp(&X.ARCHIVE_DATE);
+                X.PARTITION_OFFSET = msg->ltjw_p_offset;
+                X.FILE_SIZE = msg->ltjw_offset;
+	        END_STORE 
+            ON_ERROR 
+                put_line(NULL_PTR, 126, 0, 0, 0);
+	            ROLLBACK;
+                START_TRANSACTION;
+                break;
+	        END_ERROR;
+        }
+	
+        if (msg->ltjw_mode != JRNW_OPEN) {
+            FOR X IN JOURNAL_FILES WITH X.FILE_STATUS EQ LOG_OPENED AND
+                X.DB_ID EQ D.DB_ID AND
+                X.FILE_SEQUENCE EQ msg->ltjw_seqno 
+
+                file_id = X.FILE_ID;
+                MODIFY X USING 
+                    X.FILE_SIZE = msg->ltjw_offset;
+	                strcpy(X.FILE_STATUS, LOG_CLOSED);
+	            END_MODIFY 
+                ON_ERROR 
+                    put_line(NULL_PTR, 126, 0, 0, 0);
+	                ROLLBACK;
+                    START_TRANSACTION;
+                    break;
+	            END_ERROR 
+	        END_FOR;
+        }
+	END_FOR;
+
+	if (msg->ltjw_mode == JRNW_OPEN)
+		put_line(NULL_PTR, 127, (TEXT *) msg->ltjw_data, 0, 0);
+	else
+		put_line(NULL_PTR, 128, (TEXT *) msg->ltjw_data, 0, 0);
+
+	commit();
+
+	reply.jrnr_response = jrnr_ack;
+	send_reply(connection, (JRNH *) & reply, sizeof(reply));
+
+/* restart failed backups */
+
+	if (database->djb_flags & DJB_archive)
+		restart_backup(database, 1);
+
+	commit();
+
+	if (database->djb_flags & DJB_archive) {
+		if (msg->ltjw_mode == JRNW_CLOSE) {
+	        FOR X IN JOURNAL_FILES WITH X.FILE_ID EQ file_id
+                file_size = X.FILE_SIZE;
+	            p_offset = X.PARTITION_OFFSET;
+                file_seq = X.FILE_SEQUENCE;
+                MODIFY X USING 
+                    strcpy(X.ARCHIVE_STATUS, ARCHIVE_PENDING);
+	            END_MODIFY 
+                ON_ERROR 
+                    ROLLBACK;
+	                START_TRANSACTION;
+                    break;
+	            END_ERROR;
+	
+	        END_FOR;
+
+			commit();
+
+			backup_wal(database, msg->ltjw_data, file_id, file_seq, file_size,
+					   p_offset);
+		}
+	}
+
+/* Mark files for deletion */
+
+	delete_wal();
+
+	commit();
+
+/* if database is configured for deletion of 'older' files, do so now */
+
+	if (database->djb_flags & DJB_set_delete)
+		delete_history_files((CNCT) NULL, database->djb_db_name,
+							 database->djb_id, last_dump);
+}
+
+
+static void put_line(
+					 CNCT connection,
+					 SSHORT msg, TEXT * arg1, TEXT * arg2, TEXT * arg3)
+{
+/**************************************
+ *
+ *	p u t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a line of text to the log or to
+ *	a given connection.
+ *
+ **************************************/
+	TEXT buffer[MAX_PATH_LENGTH], *p;
+	JRNR *response;
+	TEXT line[MSG_LENGTH];
+
+	GJRN_get_msg(msg, line, arg1, arg2, arg3);
+
+	if (!connection) {
+		if (!log)
+			return;
+		fprintf(log, line);
+		fprintf(log, "\n");
+		fflush(log);
+		return;
+	}
+
+	response = (JRNR *) buffer;
+	response->jrnr_header.jrnh_type = JRN_RESPONSE;
+	response->jrnr_response = jrnr_msg;
+	p = buffer + sizeof(JRNR);
+	sprintf(p, line, arg1, arg2, arg3);
+	response->jrnr_page = strlen(p);
+	send_reply(connection, (JRNH *) buffer,
+			   (USHORT) (sizeof(JRNR) + response->jrnr_page));
+}
+
+
+static void put_message(SSHORT msg_num, DJB database)
+{
+/**************************************
+ *
+ *	p u t _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out informational message to the log.
+ *
+ **************************************/
+	SLONG clock;
+	struct tm times;
+	UCHAR message[MSG_LENGTH];
+
+	if (!log)
+		return;
+
+	GJRN_get_msg(msg_num, message, NULL, NULL, NULL);
+
+	clock = time(NULL);
+#ifdef NETWARE_JOURNALLING
+	times = *localtime((time_t *) & clock);
+#else
+	times = *localtime(&clock);
+#endif
+
+	fprintf(log, "%.2d:%.2d:%.2d %.2d/%.2d/%.2d %s",
+			times.tm_hour, times.tm_min, times.tm_sec,
+			times.tm_mon + 1, times.tm_mday, times.tm_year, message);
+
+	if (database)
+		fprintf(log, " for \"%s\" (%d)\n", database->djb_db_name,
+				database->djb_id);
+	else
+		fprintf(log, "\n");
+
+	fflush(log);
+}
+
+
+#ifdef WIN_NT
+static void read_asynchronous(CNCT connection)
+{
+/**************************************
+ *
+ *	r e a d _ a s y n c h r o n o u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start an asynchronous read on a named pipe.
+ *	If it completes immediately, save the length.
+ *	Otherwise, set a pending flag.
+ *
+ **************************************/
+	SLONG len;
+
+	if (ReadFile(connection->cnct_handle, connection->cnct_data,
+				 sizeof(connection->cnct_data), &len,
+				 &connection->cnct_overlapped)) {
+		connection->cnct_read_length = len;
+		SetEvent(connection->cnct_overlapped.hEvent);
+	}
+	else if (GetLastError() == ERROR_IO_PENDING)
+		connection->cnct_flags |= CNCT_pending_io;
+	else if (GetLastError() == ERROR_BROKEN_PIPE) {
+		connection->cnct_read_length = 0;
+		SetEvent(connection->cnct_overlapped.hEvent);
+	}
+	else
+		error(GetLastError(), "ReadFile");
+}
+#endif
+
+
+static void report_status(CNCT connection)
+{
+/**************************************
+ *
+ *	r e p o r t _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report current state of journalling sub-system.
+ *
+ **************************************/
+	DJB database;
+	SSHORT count;
+
+/* Report on current state */
+
+	commit();
+
+	put_line(connection, 130, 0, 0, 0);
+
+	count = 0;
+
+	for (database = databases; database; database = database->djb_next) {
+		if (database->djb_flags & DJB_disabled)
+			continue;
+		count++;
+	}
+
+	if (!count) {
+		put_line(connection, 133, 0, 0, 0);
+		return;
+	}
+
+	put_line(connection, 131, 0, 0, 0);
+	for (database = databases; database; database = database->djb_next) {
+		if (database->djb_flags & DJB_disabled)
+			continue;
+
+		put_line(connection, 132,
+				 database->djb_db_name, (TEXT *) database->djb_id,
+				 (TEXT *) database->djb_use_count);
+	}
+}
+
+
+static void restart_all_backups(int count)
+{
+/**************************************
+ *
+ *	r e s t a r t _ a l l _ b a c k u p s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restart backup processes for all databases.
+ *
+ **************************************/
+	DJB database;
+
+	if (!count)
+		return;
+
+/* restart back up of files which were marked pending, but never started */
+
+    FOR J IN JOURNAL_FILES WITH J.ARCHIVE_STATUS EQ ARCHIVE_PENDING
+        if (!(database = lookup_database((SCHAR *) 0, J.DB_ID, 1)))
+            continue;
+	
+        if (database->djb_retry > max_retry)
+	       continue;
+        
+        backup_wal(database, J.LOG_NAME, J.FILE_ID, J.FILE_SEQUENCE,
+                   J.FILE_SIZE, J.PARTITION_OFFSET);
+        if (!--count)
+            return;
+    END_FOR;
+}
+
+
+static void restart_backup(DJB database, int count)
+{
+/**************************************
+ *
+ *	r e s t a r t _ b a c k u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restart backup processes for a database.
+ *
+ **************************************/
+	int ret;
+	SSHORT i;
+	SLONG fid;
+
+	if (!database) {
+		restart_all_backups(count);
+		return;
+	}
+
+	if (!(database->djb_flags & DJB_archive))
+		return;
+
+	for (i = 0; ((i < MAX_ARCHIVE) && (count)); i++) {
+		if (database->djb_bfi[i].bi_pid <= 0)
+			continue;
+
+		if (!ISC_check_process_existence
+			(database->djb_bfi[i].bi_pid, 0, TRUE)) {
+			/* Process is not running and/or another process has reused the
+			   process id */
+
+			fid = database->djb_bfi[i].bi_fid;
+
+			database->djb_bfi[i].bi_pid = -1;
+			database->djb_bfi[i].bi_fid = -1;
+			database->djb_bfi_count--;
+
+	        FOR J IN JOURNAL_FILES WITH J.FILE_ID EQ fid AND
+	               J.ARCHIVE_STATUS EQ ARCHIVE_PENDING
+                backup_wal(database, J.LOG_NAME, J.FILE_ID, J.FILE_SEQUENCE,
+                           J.FILE_SIZE, J.PARTITION_OFFSET);
+                count--;
+	        END_FOR;
+
+		}
+	}
+
+/* restart back up of files which were marked pending, but never started */
+
+	restart_all_backups(count);
+}
+
+
+#ifdef BSD_SOCKETS
+static void send_reply(CNCT connection, JRNH * msg, USHORT length)
+{
+/**************************************
+ *
+ *	s e n d _ r e p l y	( U N I X  &  N E T W A R E )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a reply to a database process.
+ *
+ **************************************/
+
+	msg->jrnh_handle = (SLONG) connection;
+	msg->jrnh_version = connection->cnct_version;
+
+/* length is used by the journal server for reading
+   one message at a time from the socket connections */
+
+	msg->jrnh_length = length;
+
+	if (send(connection->cnct_handle, (SCHAR *) msg, length, 0) < 0)
+		error((STATUS) errno, "send journal");
+}
+#endif
+
+
+#ifdef WIN_NT
+static void send_reply(CNCT connection, JRNH * msg, USHORT length)
+{
+/**************************************
+ *
+ *	s e n d _ r e p l y	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a reply to a database process.
+ *
+ **************************************/
+	SLONG l;
+
+	msg->jrnh_handle = (SLONG) connection;
+	msg->jrnh_version = connection->cnct_version;
+
+/* length is used by the journal server for reading
+   one message at a time from the socket connections */
+
+	msg->jrnh_length = length;
+
+	if (!WriteFile((HANDLE) connection->cnct_handle, msg, length, &l, NULL) ||
+		length != l)
+		error(GetLastError(), "WriteFile");
+}
+#endif
+
+
+static void set_use_count(DJB database)
+{
+/**************************************
+ *
+ *	s e t _ u s e _ c o u n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set "use_count" for database.  This is called only for significant
+ *	use count transitions.
+ *
+ **************************************/
+
+	FOR D IN DATABASES WITH
+        D.STATUS EQ DB_ACTIVE AND D.DB_NAME EQ database->djb_db_name
+	    MODIFY D USING 
+            D.USE_COUNT = database->djb_use_count;
+	    END_MODIFY;
+	END_FOR;
+
+	commit();
+}
+
+
+static void sign_off(CNCT connection, LTJC * msg)
+{
+/**************************************
+ *
+ *	s i g n _ o f f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sign off a database.
+ *
+ **************************************/
+	DJB database;
+
+	if (database = connection->cnct_database)
+		put_message(99, database);
+
+	delete_connection(connection);
+}
+
+
+static void sign_on(CNCT connection, LTJC * msg)
+{
+/**************************************
+ *
+ *	s i g n _ o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sign a database process onto the journal system.
+ *
+ **************************************/
+	DJB database;
+	JRNR reply;
+	SCHAR db_name[MAX_PATH_LENGTH], dir_name[MAX_PATH_LENGTH];
+
+	MISC_get_wal_info(msg, db_name, dir_name);
+
+	connection->cnct_version = msg->ltjc_header.jrnh_version;
+
+/* If we already know about the database, this is easy */
+
+	if (database = lookup_database(db_name, 0, 0)) {
+		put_message(100, database);
+		connection->cnct_db_next = database->djb_connections;
+		database->djb_connections = connection;
+		connection->cnct_database = database;
+		if (!database->djb_use_count++)
+			set_use_count(database);
+		reply.jrnr_response = jrnr_accepted;
+		send_reply(connection, (JRNH *) & reply, sizeof(reply));
+		return;
+	}
+
+/* Make up database block */
+
+	start_database(connection, db_name, dir_name,
+				   msg->ltjc_page_size, msg->ltjc_seqno, msg->ltjc_offset);
+	reply.jrnr_response = jrnr_enabled;
+	send_reply(connection, (JRNH *) & reply, sizeof(reply));
+}
+
+
+#if (defined UNIX_JOURNALLING)
+static void signal_child(void)
+{
+/**************************************
+ *
+ *      s i g n a l _ c h i l d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Do not do anything.  SUN is leaving <defunct> processes
+ *      with an ignore.
+ *
+ **************************************/
+	int location;
+
+	wait(&location);
+}
+#endif
+
+
+static void CLIB_ROUTINE signal_quit(void)
+{
+/**************************************
+ *
+ *	s i g n a l _ q u i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stop whatever we happened to be doing.
+ *
+ **************************************/
+
+	state |= state_shut_pending;
+
+#ifdef SIGQUIT
+	signal(SIGQUIT, NULL);
+#endif
+
+	signal(SIGINT, NULL);
+}
+
+
+static DJB start_database(
+						  CNCT connection,
+						  SCHAR * db_name,
+						  SCHAR * dir_name,
+						  SSHORT page_size, SLONG seqno, ULONG offset)
+{
+/**************************************
+ *
+ *	s t a r t _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start journaling database.
+ *
+ **************************************/
+	DJB database;
+
+	database = make_database(connection, db_name, dir_name);
+
+/* Start by marking any other databases of same name as inactive */
+
+	FOR D IN DATABASES WITH D.DB_NAME EQ database->djb_db_name
+        MODIFY D USING 
+            strcpy(D.STATUS, DB_INACTIVE);
+	    END_MODIFY 
+        ON_ERROR 
+            put_line(NULL_PTR, 134, 0, 0, 0);
+            ROLLBACK;
+            START_TRANSACTION;
+            break;
+	    END_ERROR;
+	END_FOR;
+
+/* Store new database record */
+
+	STORE X IN DATABASES 
+        strcpy(X.DB_NAME, database->djb_db_name);
+	    if (database->djb_dir_name)
+            strcpy(X.ARCHIVE_BASE_NAME, database->djb_dir_name);
+        else
+            MOVE_CLEAR(X.ARCHIVE_BASE_NAME, sizeof(X.ARCHIVE_BASE_NAME));
+        time_stamp(&X.DATE_ENABLED);
+        strcpy(X.STATUS, DB_ACTIVE);
+
+        strcpy(X.DEVICE_TYPE, MEDIA_DISK);
+        X.USE_COUNT = 1;
+        X.PAGE_SIZE = page_size;
+        X.ENABLE_SEQNO = seqno;
+        X.ENABLE_OFFSET = offset;
+        strcpy(X.DELETE_MODE, DB_RETAIN);
+        
+        if (database->djb_dir_name) {
+            database->djb_flags |= DJB_archive;
+            strcpy(X.ARCHIVE_MODE, NEED_ARCH);
+        }
+        else
+            strcpy(X.ARCHIVE_MODE, NO_ARCH);
+	END_STORE 
+    ON_ERROR 
+        put_line(NULL_PTR, 135, 0, 0, 0);
+	    ROLLBACK;
+        START_TRANSACTION;
+    END_ERROR;
+
+/* Get the database id which the trigger put in */
+
+    FOR X IN DATABASES WITH X.DB_NAME EQ database->djb_db_name AND
+        X.STATUS EQ DB_ACTIVE 
+
+        database->djb_id = X.DB_ID;
+    END_FOR;
+
+	put_message(101, database);
+
+	commit();
+
+	return database;
+}
+
+
+static int start_server(UCHAR * journal_dir,
+						USHORT sw_d, USHORT sw_v, USHORT sw_i)
+{
+/**************************************
+ *
+ *	s t a r t _ s e r v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open server mailbox, ready server database, and wait for something
+ *	to happen.
+ *
+ **************************************/
+	DJB database;
+	USHORT sw_debug, len;
+	TEXT logfile[MAX_PATH_LENGTH], journal_db[MAX_PATH_LENGTH];
+	SLONG message_buffer[(MAX_RECORD + 6 + sizeof(SLONG) - 1) /
+						 sizeof(SLONG)];
+	STATUS status[20];
+	SSHORT msg_count;
+
+#ifdef SIGQUIT
+	signal(SIGQUIT, signal_quit);
+#endif
+	signal(SIGINT, signal_quit);
+
+	state = state_status;
+	connections = NULL;
+	sw_debug = sw_d;
+
+/* Expand the journal directory name and insure that it ends with a slash. */
+
+	if (!journal_dir)
+		journal_dir = ".";
+	len = ISC_expand_filename(journal_dir, 0, journal_directory);
+#ifndef WIN_NT
+	if (journal_directory[len - 1] != '/')
+#else
+	if (journal_directory[len - 1] != '/'
+		&& journal_directory[len - 1] != '\\')
+#endif
+	{
+		journal_directory[len++] = '/';
+		journal_directory[len] = 0;
+	}
+
+	if (CONSOLE_test_server(journal_directory))
+		GJRN_abort(186);
+
+	if (sw_debug)
+		log = stdout;
+	else {
+#ifndef VMS
+#ifndef NETWARE_386
+#ifndef WIN_NT
+		/* close message file before calling divorce terminal as we do not
+		   know the file id of the message file and will end up closing
+		   all files.  However the static variable which holds the file
+		   descriptor still has a value. */
+
+		gds__msg_close(NULL_PTR);
+		divorce_terminal(NULL_PTR);
+#endif
+#endif
+#endif
+		strcpy(logfile, journal_directory);
+		strcpy(logfile + len, LOGFILE);
+		log = fopen(logfile, "a");
+	}
+
+	put_message(102, (DJB) NULL);
+
+	open_mailbox(CONSOLE_FILE, slot_console);
+	open_mailbox(JOURNAL_FILE, slot_journal);
+
+#if (defined UNIX_JOURNALLING)
+/* Ignore end of child process for UNIX only */
+/* SUN leaves behind <defunct> processes if SIG_IGN is used */
+
+	ISC_signal(SIGCLD, signal_child, NULL_PTR);
+#endif
+
+/* Check in with database */
+
+	strcpy(journal_db, journal_directory);
+	strcpy(journal_db + len - 1, "/journal.gdb");
+
+	READY 
+    ON_ERROR 
+        put_line(NULL_PTR, 152, 0, 0, 0);
+	    GJRN_abort(152);
+	END_ERROR;
+
+	START_TRANSACTION;
+	state |= state_initialize;
+
+	FOR X IN JOURNAL state &= ~state_initialize;
+        if (X.USE_COUNT) {
+            put_line(NULL_PTR, 136, 0, 0, 0);
+            FOR D IN DATABASES WITH D.STATUS EQ DB_ACTIVE AND D.USE_COUNT NE 0
+                put_line(NULL_PTR, 137, (TEXT *) D.DB_NAME, (TEXT *) D.DB_ID, 0);
+                MODIFY D USING 
+                    D.USE_COUNT = 0;
+	            END_MODIFY;
+	        END_FOR;
+	        state |= state_reset;
+        }
+        if (X.MAX_RETRY)
+            max_retry = X.MAX_RETRY;
+	
+        MODIFY X USING 
+            X.USE_COUNT = 1;
+	        if (!X.MAX_RETRY)
+                X.MAX_RETRY = max_retry;
+	    END_MODIFY;
+	END_FOR;
+
+	if (state & state_initialize)
+		STORE X IN JOURNAL 
+            strcpy(X.STATUS, DB_ACTIVE);
+	        X.USE_COUNT = 1;
+            time_stamp(&X.DATE_INIT);
+	    END_STORE;
+
+/* Initialize list of valid databases */
+
+    FOR D IN DATABASES WITH D.STATUS EQ DB_ACTIVE
+        database = make_database((CNCT) NULL, D.DB_NAME, D.ARCHIVE_BASE_NAME);
+	
+        database->djb_id = D.DB_ID;
+	
+        if (strcmp(D.DELETE_MODE, DB_RETAIN))
+            database->djb_flags |= DJB_set_delete;
+	
+        if (strcmp(D.ARCHIVE_MODE, NO_ARCH)) {
+            database->djb_flags |= DJB_archive;
+            build_backup_array(database);
+	
+            restart_backup(database, MAX_ARCHIVE);
+	
+            FOR J IN JOURNAL_FILES WITH J.DB_ID EQ D.DB_ID
+                AND J.FILE_STATUS EQ LOG_CLOSED
+                AND J.ARCHIVE_STATUS EQ NOT_ARCHIVED
+                AND J.DELETE_STATUS EQ LOG_NOT_DELETED
+
+                MODIFY J USING 
+                    strcpy(J.ARCHIVE_STATUS, ARCHIVE_PENDING);
+	            END_MODIFY 
+                ON_ERROR 
+                    put_line(NULL_PTR, 138, 0, 0, 0);
+	                ROLLBACK;
+                    START_TRANSACTION;
+                    break;
+	            END_ERROR;
+                SAVE;
+                backup_wal(database, J.LOG_NAME, J.FILE_ID, J.FILE_SEQUENCE,
+                           J.FILE_SIZE, J.PARTITION_OFFSET);
+	        END_FOR;
+        }
+	
+	END_FOR;
+
+/* Mark the file for deletion */
+
+	delete_wal();
+
+	commit();
+
+/* Sit in loop waiting for either command input or message from client */
+
+	msg_count = 0;
+	for (;;) {
+		if (state & state_shut_pending) {
+			if (!(connections || archives_running))
+				break;
+		}
+		if (state & state_status) {
+			state &= ~state_status;
+			report_status((CNCT) NULL_PTR);
+		}
+		commit();
+		get_message((JRNH *) message_buffer, sizeof(message_buffer));
+
+		/* restart archives every max_retry messages */
+
+		if (msg_count++ > max_retry) {
+			msg_count = 0;
+			restart_all_backups(max_retry);
+		}
+		commit();
+	}
+
+/* 
+ * Fork off processes to back up WAL files which
+ * have'nt been backed up yet.
+ */
+
+	for (database = databases; database; database = database->djb_next) {
+		if (database->djb_flags & DJB_archive) {
+			/* restart backups if required */
+
+			restart_backup(database, MAX_ARCHIVE);
+
+	        FOR J IN JOURNAL_FILES WITH J.DB_ID EQ database->djb_id
+                AND J.FILE_STATUS EQ LOG_CLOSED
+                AND J.ARCHIVE_STATUS EQ NOT_ARCHIVED
+                AND J.DELETE_STATUS EQ LOG_NOT_DELETED
+
+                MODIFY J USING 
+                    strcpy(J.ARCHIVE_STATUS, ARCHIVE_PENDING);
+	            END_MODIFY 
+                ON_ERROR 
+                    put_line(NULL_PTR, 138, 0, 0, 0);
+                    ROLLBACK;
+                    START_TRANSACTION;
+                    break;
+	            END_ERROR;
+	            SAVE;
+                backup_wal(database, J.LOG_NAME, J.FILE_ID, J.FILE_SEQUENCE,
+                           J.FILE_SIZE, J.PARTITION_OFFSET);
+	        END_FOR;
+		}
+	}
+
+/* Sit in loop waiting for message from archives */
+
+	for (;;) {
+		if (!(connections || archives_running))
+			break;
+
+		if (state & state_status) {
+			state &= ~state_status;
+			report_status((CNCT) NULL_PTR);
+		}
+		commit();
+		get_message((JRNH *) message_buffer, sizeof(message_buffer));
+		commit();
+	}
+
+/* Mark the file for deletion */
+
+	delete_wal();
+
+	commit();
+
+/* Check out with database */
+
+	close_mailbox(slot_journal);
+	close_mailbox(slot_console);
+
+	FOR Y IN JOURNAL 
+        MODIFY Y USING 
+            Y.USE_COUNT = 0;
+	    END_MODIFY;
+	END_FOR;
+
+	for (database = databases; database; database = database->djb_next)
+		if (database->djb_use_count) {
+			database->djb_use_count = 0;
+			set_use_count(database);
+		}
+
+	put_message(103, (DJB) NULL);
+    
+	if (log)
+		fclose(log);
+    
+	COMMIT;
+	FINISH;
+
+	return 0;
+}
+
+
+static BOOLEAN test_dup_entry(DJB dbb, SLONG file_id)
+{
+/**************************************
+ *
+ *	t e s t _ d u p _ e n t r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check if file_id is already present in the back up array.
+ *	Returns 
+ *		TRUE if present
+ *		FALSE if not.
+ *
+ **************************************/
+	SSHORT i;
+
+	for (i = 0; i < MAX_ARCHIVE; i++)
+		if (dbb->djb_bfi[i].bi_fid == file_id)
+			return TRUE;
+
+	return FALSE;
+}
+
+
+static void time_stamp(GDS__QUAD * date)
+{
+/**************************************
+ *
+ *	t i m e _ s t a m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current time in gds format.
+ *
+ **************************************/
+	SLONG clock;
+	struct tm times;
+
+	clock = time(NULL);
+#ifdef NETWARE_JOURNALLING
+	times = *localtime((time_t *) & clock);
+#else
+	times = *localtime(&clock);
+#endif
+	gds__encode_date(&times, date);
+}
diff --git a/src/jrd/acl.h b/src/jrd/acl.h
new file mode 100644
index 0000000000..3d5009fb82
--- /dev/null
+++ b/src/jrd/acl.h
@@ -0,0 +1,83 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		acl.h
+ *	DESCRIPTION:	Access control list definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_ACL_H_
+#define _JRD_ACL_H_
+
+#define ACL_version	1
+
+#define ACL_end		0
+#define ACL_id_list	1
+#define ACL_priv_list	2
+
+/* Privileges to be granted */
+
+#define priv_end		0
+#define priv_control		1	/* Control over ACL */
+#define priv_grant		2		/* Grant subset of rights to others */
+#define priv_delete		3		/* Delete object */
+#define priv_read		4		/* Read object */
+#define priv_write		5		/* Write object */
+#define priv_protect		6	/* Change protection */
+#define priv_sql_insert		7	/* SQL insertion */
+#define priv_sql_delete		8	/* SQL deletion */
+#define priv_sql_update		9	/* SQL update */
+#define priv_sql_references	10	/* SQL references for foreign key */
+#define priv_execute		11	/* Execute (procedure) */
+#define priv_max		12
+
+/* Identification criterias */
+
+#define id_end          0
+#define id_group        1		/* UNIX group id */
+#define id_user         2		/* UNIX user */
+#define id_person       3		/* User name */
+#define id_project      4		/* Project name */
+#define id_organization 5		/* Organization name */
+#define id_node         6		/* Node id */
+#define id_view         7		/* View name */
+#define id_views        8		/* All views */
+#define id_trigger      9		/* Trigger name */
+#define id_procedure    10		/* Procedure name */
+#define id_sql_role     11		/* SQL role */
+#define id_max          12
+
+/* Format of access control list: 
+
+	acl		:=	<ACL_version> [ <acl_element> ]... <0>
+	acl_element	:=	<ACL_id_list> <id_list> <ACL_priv_list> <priv_list>
+	id_list		:=	[ <id_item> ]... <id_end>
+	id_item		:=	<id_criteria> <length> [<name>]
+	priv_list	:=	[ <privilege> ]... <priv_end>
+
+*/
+
+/* Transaction Description Record */
+
+#define TDR_VERSION		1
+#define TDR_HOST_SITE		1
+#define TDR_DATABASE_PATH	2
+#define TDR_TRANSACTION_ID	3
+#define TDR_REMOTE_SITE		4
+
+#endif /* _JRD_ACL_H_ */
diff --git a/src/jrd/aif.cpp b/src/jrd/aif.cpp
new file mode 100644
index 0000000000..4b6de2f21a
--- /dev/null
+++ b/src/jrd/aif.cpp
@@ -0,0 +1,259 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		aif.c
+ *	DESCRIPTION:	Interface to MPE/XL Architected Interface Facility
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#pragma intrinsic	GETPRIVMODE, GETUSERMODE
+#pragma intrinsic_file	"aifintr.pub.sys"
+#pragma intrinsic	AIFPORTCLOSE, AIFPORTOPEN, AIFPORTRECEIVE, AIFPORTSEND, AIFPORTINT
+#pragma intrinsic	AIFFILEGGET, AIFPROCGET, AIFACCESSON
+
+#define USER_ID		1129269070
+
+static void initialize(void);
+
+static SSHORT initialized;
+
+#ifdef PRIVMODE_CODE
+#define GET_PRIVMODE	if (privmode_flag < 0) privmode_flag = ISC_check_privmode();\
+			if (privmode_flag > 0) GETPRIVMODE();
+#define GET_USERMODE	if (privmode_flag > 1) GETUSERMODE();
+
+static SSHORT privmode_flag = -1;
+#else
+#define GET_PRIVMODE
+#define GET_USERMODE
+#endif
+
+
+SLONG AIF_close_port(SLONG port)
+{
+/**************************************
+ *
+ *	A I F _ c l o s e _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove a connection to a Port.
+ *
+ **************************************/
+	SLONG status;
+
+	GET_PRIVMODE AIFPORTCLOSE(&status, &port,);
+	GET_USERMODE return status;
+}
+
+
+SLONG AIF_get_pid(SLONG pin, SLONG pid, SLONG * found_pid)
+{
+/**************************************
+ *
+ *	A I F _ g e t _ p i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find out if a process still exists or
+ *	get the PID (process id, which is different
+ *	from the PIN, process id number) of a process.
+ *
+ **************************************/
+	SLONG itemnum[2], ^item[2], itemstatus[2];
+	SLONG status;
+	struct {
+		SLONG high;
+		SLONG low;
+	} process_id, found_id;
+
+	if (!initialized)
+		initialize();
+
+	process_id.high = pin;
+	process_id.low = pid;
+
+	itemnum[0] = 2001;
+	item[0] = &found_id;
+	itemnum[1] = 0;
+
+	GET_PRIVMODE if (pid)
+		  AIFPROCGET(&status, itemnum, item, itemstatus,, process_id,);
+	else
+		AIFPROCGET(&status, itemnum, item, itemstatus, pin,,);
+	GET_USERMODE if (found_pid)
+		 *found_pid = found_id.low;
+
+	return status;
+}
+
+
+SLONG AIF_lookup_file(TEXT * fid)
+{
+/**************************************
+ *
+ *	A I F _ l o o k u p _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find out if a file exists.
+ *
+ **************************************/
+	SLONG itemnum[2], ^item[2], itemstatus[2];
+	SLONG status;
+	SCHAR filename[3][16], *p, *q, *comp_end, *end;
+
+	if (!initialized)
+		initialize();
+
+	comp_end = filename[0] + sizeof(filename[0]);
+	end = filename[0] + sizeof(filename);
+	for (p = filename[0]; p < end; comp_end += sizeof(filename[0])) {
+		while (*fid && *fid != '.')
+			*p++ = *fid++;
+		while (p < comp_end)
+			*p++ = ' ';
+		if (*fid == '.')
+			fid++;
+	}
+
+	itemnum[0] = 5001;
+	item[0] = filename;
+	itemnum[1] = 0;
+
+	GET_PRIVMODE AIFFILEGGET(&status, itemnum, item, itemstatus,, filename,,);
+	GET_USERMODE return status;
+}
+
+
+SLONG AIF_interrupt_port(SLONG port, SLONG newstate)
+{
+/**************************************
+ *
+ *	A I F _ i n t e r r u p t _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change the interrupt state of a single port.
+ *
+ **************************************/
+	SLONG status, port_list[2];
+	SCHAR state[2];
+
+	port_list[0] = port;
+	port_list[1] = 0;
+	state[0] = newstate;
+
+	GET_PRIVMODE AIFPORTINT(&status, port_list, state,);
+	GET_USERMODE return status;
+}
+
+
+SLONG AIF_open_port(port, port_name, port_pass, access_mode, itemnum, item)
+	 SLONG *port,
+		 TEXT port_name[16],
+		 TEXT port_pass[16],
+		 SLONG access_mode, SLONG itemnum[], SLONG ^ item[]) {
+/**************************************
+ *
+ *	A I F _ o p e n _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open, and possibly create, a Port.
+ *
+ **************************************/
+		 SLONG status, itemstatus[7];
+
+		 if (!initialized)
+			 initialize();
+
+		 GET_PRIVMODE
+			 * port = AIFPORTOPEN(&status, port_name, port_pass, access_mode,,
+								  itemnum, item, itemstatus);
+		 GET_USERMODE return status;
+	 }
+		 SLONG AIF_receive_port(SLONG port,
+								SLONG * msg_code,
+								SCHAR * msg,
+								SLONG * msg_len,
+								SLONG itemnum[], SLONG ^ item[])
+{
+/**************************************
+ *
+ *	A I F _ r e c e i v e _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message through a previously opened Port.
+ *
+ **************************************/
+	SLONG status, itemstatus[4];
+
+	GET_PRIVMODE
+		AIFPORTRECEIVE(&status, &port, msg, msg_len, msg_code,, itemnum, item,
+					   itemstatus);
+	GET_USERMODE return status;
+}
+
+
+SLONG AIF_send_port(SLONG port,
+					SLONG msg_code,
+					SCHAR * msg,
+					SLONG msg_len, SLONG itemnum[], SLONG ^ item[]) {
+/**************************************
+ *
+ *	A I F _ s e n d _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a message through a previously opened Port.
+ *
+ **************************************/
+	SLONG status, itemstatus[4];
+
+	GET_PRIVMODE
+		AIFPORTSEND(&status, &port, msg, msg_len, msg_code,, itemnum, item,
+					itemstatus);
+	GET_USERMODE return status;
+}
+
+
+static void initialize(void) {
+/**************************************
+ *
+ *	i n i t i a l i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the Architected Interface Facility.
+ *
+ **************************************/ SLONG status;
+
+	  initialized = 1;
+
+	GET_PRIVMODE AIFACCESSON(&status, USER_ID);
+  GET_USERMODE}
diff --git a/src/jrd/aif.h b/src/jrd/aif.h
new file mode 100644
index 0000000000..95468949f6
--- /dev/null
+++ b/src/jrd/aif.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		aif_proto.h
+ *	DESCRIPTION:	Prototype header file for aif.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_AIF_PROTO_H_
+#define _JRD_AIF_PROTO_H_
+
+extern SLONG AIF_close_port(SLONG);
+extern SLONG AIF_get_pid(SLONG, SLONG, SLONG *);
+extern SLONG AIF_lookup_file(SCHAR *);
+extern SLONG AIF_interrupt_port(SLONG, SLONG);
+extern SLONG AIF_open_port(SLONG *, TEXT *, TEXT *, SLONG, SLONG[],
+						   SLONG ^[]);
+extern SLONG AIF_receive_port(SLONG, SLONG *, SCHAR *, SLONG *, SLONG[],
+							  SLONG ^[]);
+extern SLONG AIF_send_port(SLONG, SLONG, SCHAR *, SLONG, SLONG[], SLONG ^[]);
+
+#endif /* _JRD_AIF_PROTO_H_ */
diff --git a/src/jrd/ail.cpp b/src/jrd/ail.cpp
new file mode 100644
index 0000000000..37b4774b38
--- /dev/null
+++ b/src/jrd/ail.cpp
@@ -0,0 +1,1822 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		ail.cpp
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/ods.h"
+#include "../jrd/jrn.h"
+#include "../jrd/tra.h"
+#include "../jrd/pag.h"
+#include "../jrd/pio.h"
+#include "../jrd/dsc.h"
+#include "../wal/wal.h"
+#include "../jrd/codes.h"
+#include "../jrd/flags.h"
+#include "../jrd/sbm.h"
+#include "../jrd/sdw.h"
+#include "../jrd/lls.h"
+#include "../jrd/rse.h"
+#include "../jrd/ail.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/iberr_proto.h"
+#include "../jrd/jrn_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/misc_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/rec_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/tra_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../wal/wal_proto.h"
+#include "../wal/walc_proto.h"
+#include "../wal/walf_proto.h"
+
+
+extern "C" {
+
+
+static void build_wal_param(UCHAR *, LGFILE **, SLONG, LGFILE *, SLONG *);
+static void delete_log_files(TEXT *, SLONG, LLS);
+static BOOLEAN get_walinfo(TEXT *);
+static void initialize_wal(TDBB, TEXT *, WIN *, LIP, SSHORT, USHORT, SBM *);
+static void process_log_updater(LIP);
+static void process_recovery(TDBB, TEXT *, WIN *, LIP *,
+							 SSHORT, USHORT, SBM *);
+static void set_first_user(LGFILE **, LIP, TEXT *);
+
+#define MOVE_BYTE(x_from,x_to)	*x_to++ = *x_from++;
+
+
+#if (!defined PC_PLATFORM || defined SUPERSERVER)
+void AIL_add_log(void)
+{
+/**************************************
+ *
+ *      A I L _ a d d _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	WAL is being enabled. 
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	LIP logp;
+	SCHAR db_name[MAX_PATH_LENGTH];
+	SBM sbm_rec;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* 
+ * remove the rollover flag in the log page.  Update the current file
+ * and control points to point to new file!
+ */
+
+	CCH_flush(tdbb, (USHORT) FLUSH_ALL, 0);
+	window.win_page = LOG_PAGE;
+	window.win_flags = 0;
+	logp = (LIP) CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+
+	if (logp->log_flags & log_add) {
+		CCH_exclusive(tdbb, LCK_EX, LCK_WAIT);
+		strcpy(db_name, dbb->dbb_file->fil_string);
+
+		logp->log_flags &= ~log_no_ail;
+		logp->log_mod_tid = 0;
+		logp->log_mod_tip = 0;
+		AIL_init(db_name, 0, &window, 0, &sbm_rec);
+
+		/* With WAL, database write should be async */
+		PAG_set_force_write(dbb, FALSE);
+		CCH_release_exclusive(tdbb);
+	}
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+void AIL_checkpoint_finish(
+						   STATUS * status_vector,
+						   DBB dbb,
+						   SLONG seq, TEXT * walname, SLONG p_off, SLONG off)
+{
+/**************************************
+ *
+ *	A I L _ c h e c k p o i n t _ f i n i s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Finish a database checkpoint by flushing the OS cache
+ *	and updating the control point on the database log page.
+ *
+ **************************************/
+	WIN window;
+	PAG log_page;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	PIO_flush(dbb->dbb_file);
+	if (dbb->dbb_shadow)
+		PIO_flush(dbb->dbb_shadow->sdw_file);
+
+	AIL_upd_cntrl_pt(walname, (USHORT) strlen(walname), seq, off, p_off);
+
+	window.win_page = LOG_PAGE;
+	window.win_flags = 0;
+	log_page = CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+	CCH_MARK(tdbb, &window);
+	log_page->pag_checksum = CCH_checksum(window.win_bdb);
+	PIO_write(dbb->dbb_file, window.win_bdb, window.win_buffer,
+			  status_vector);
+
+	CCH_write_all_shadows(tdbb, 0, window.win_bdb, status_vector, 1, FALSE);
+	PIO_flush(dbb->dbb_file);
+	if (dbb->dbb_shadow)
+		PIO_flush(dbb->dbb_shadow->sdw_file);
+
+	CCH_RELEASE(tdbb, &window);
+
+/* Inform WAL writer that older log files can be reused */
+
+	WAL_checkpoint_recorded(status_vector, dbb->dbb_wal);
+
+/* Make sure there is a journal entry of next transaction ID */
+
+	AIL_journal_tid();
+}
+
+
+void AIL_commit(SLONG number)
+{
+/**************************************
+ *
+ *	A I L _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a commit record to WAL and participate in group commit.
+ *	A 0 length will be written out to flush the WAL.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	LTJC commit_rec;
+	SLONG seqno, offset;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	if (!dbb->dbb_wal)
+		return;
+
+/* Prepare WAL message */
+
+	MOVE_CLEAR(&commit_rec, LTJC_SIZE);
+
+	commit_rec.ltjc_header.jrnh_type = JRN_COMMIT;
+	commit_rec.ltjc_header.jrnh_length = LTJC_SIZE;
+	commit_rec.ltjc_header.jrnh_version = JOURNAL_VERSION;
+
+/* Write message to WAL */
+	THREAD_EXIT;
+	if (WAL_commit
+		(tdbb->tdbb_status_vector, dbb->dbb_wal, (UCHAR *) & commit_rec,
+		 /* LTJC_SIZE */ 0, &seqno, &offset) != SUCCESS) {
+		THREAD_ENTER;
+		ERR_punt();
+	}
+	THREAD_ENTER;
+}
+
+
+void AIL_disable(void)
+{
+/**************************************
+ *
+ *	A I L _ d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disable journalling, if enabled.
+ * 	Delete journal related entries from header page.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	LTJC record;
+	ULONG seqno;
+	ULONG offset;
+	TEXT journal_dir[MAX_PATH_LENGTH];
+	UCHAR data[MAX_PATH_LENGTH];
+	USHORT jd_len, d_len;
+	SLONG ret_val;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	PAG_get_clump(HEADER_PAGE, HDR_backup_info, &d_len, data);
+	PAG_get_clump(HEADER_PAGE, HDR_journal_server, &jd_len,
+				  reinterpret_cast < UCHAR * >(journal_dir));
+	journal_dir[jd_len] = 0;
+
+	if (!jd_len)
+		ERR_post(gds__no_jrn, 0);
+
+	if (!dbb->dbb_wal)
+		ERR_post(gds__no_wal, 0);
+
+	if ((ret_val = JRN_init(tdbb->tdbb_status_vector, &dbb->dbb_journal,
+							dbb->dbb_page_size,
+							reinterpret_cast < UCHAR * >(journal_dir), jd_len,
+							data, d_len)) != SUCCESS)
+		AIL_process_jrn_error(ret_val);
+
+	PAG_delete_clump_entry(HEADER_PAGE, HDR_journal_server);
+	PAG_delete_clump_entry(HEADER_PAGE, HDR_backup_info);
+
+	record.ltjc_header.jrnh_type = JRN_DISABLE;
+	record.ltjc_page_size = 0;
+	record.ltjc_length = d_len;
+	record.ltjc_seqno = 0;
+	record.ltjc_offset = 0;
+
+	tdbb->tdbb_status_vector[1] = 0;
+	AIL_put(dbb, tdbb->tdbb_status_vector,
+			reinterpret_cast < jrnh * >(&record), LTJC_SIZE, data, d_len,
+			(ULONG) 0, (ULONG) 0, &seqno, &offset);
+	if (tdbb->tdbb_status_vector[1])
+		ERR_punt();
+
+	record.ltjc_seqno = seqno;
+	record.ltjc_offset = offset;
+
+/*
+ * Inform WAL manager about disable journal.
+ * The WAL manager will roll over to a new file.
+ */
+
+	if (WAL_journal_disable(tdbb->tdbb_status_vector, dbb->dbb_wal) !=
+		SUCCESS) ERR_punt();
+
+	if (dbb->dbb_journal) {
+		if ((ret_val = JRN_disable(tdbb->tdbb_status_vector, dbb->dbb_journal,
+								   reinterpret_cast < jrnh * >(&record), data,
+								   d_len)) != SUCCESS)
+			AIL_process_jrn_error(ret_val);
+	}
+}
+void AIL_drop_log(void)
+{
+/**************************************
+ *
+ *      A I L _ d r o p _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do things related to dropping WAL protocol.
+ *	Flush cache, disable journaling, initialize log page,
+ *	delete log files etc.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	WIN window;
+	LIP logp;
+	LLS stack = NULL;
+	TEXT latest_logname[MAX_PATH_LENGTH], journal_dir[MAX_PATH_LENGTH];
+	SLONG latest_log_p_offset;
+	USHORT jd_len;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	if (!dbb->dbb_wal)
+		return;
+
+/* Get a protected write access to the database; only other
+   process (thread) running during this step could be
+   that of the cache manager. */
+
+	CCH_exclusive(tdbb, LCK_PW, LCK_WAIT);
+
+/* Flush the cache out so that the database on disk becomes
+   consistent.  WAL is not going to help any more ! */
+
+	CCH_flush(tdbb, (USHORT) FLUSH_ALL, 0);
+
+/* journal has to be disabled before dropping WAL */
+
+	if (PAG_get_clump
+		(HEADER_PAGE, HDR_journal_server, &jd_len,
+		 reinterpret_cast < UCHAR * >(journal_dir))) {
+		AIL_disable();
+	}
+
+/* Now get a list of all the log files to be deleted. */
+
+	WAL_status(tdbb->tdbb_status_vector, dbb->dbb_wal, NULL,
+			   latest_logname, &latest_log_p_offset, NULL,
+			   NULL, NULL, NULL, NULL);
+	AIL_get_file_list(&stack);
+
+/* Shutdown the WAL subsystem cleanly */
+
+	WAL_set_cleanup_flag(dbb->dbb_wal);
+	CCH_do_log_shutdown(tdbb, 1);
+
+/* Turn on sync writes if WAL protocol is dropped */
+	PAG_set_force_write(dbb, TRUE);
+
+/* Now get rid of all the log files */
+
+	delete_log_files(latest_logname, latest_log_p_offset, stack);
+
+/* With WAL, transids are bumped up to optimize logging.  So 
+   bring the next transaction id to the last bumped up value. */
+
+	REC_update_next_transid();
+
+/* Fetch the log page to reset WAL info on it */
+
+	window.win_page = LOG_PAGE;
+	window.win_flags = 0;
+	logp = (LIP) CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+	AIL_init_log_page(logp, logp->log_file.cp_seqno);
+	CCH_RELEASE(tdbb, &window);
+
+	CCH_release_exclusive(tdbb);
+}
+
+
+void AIL_drop_log_force(void)
+{
+/**************************************
+ *
+ *      A I L _ d r o p _ l o g _ f o r c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize log page to drop WAL protocol forcefully.
+ *	May be log files are not available for recovery or they
+ *	are corrupted.
+ *
+ **************************************/
+	TDBB tdbb;
+	WIN window;
+	LIP logp;
+
+	tdbb = GET_THREAD_DATA;
+
+
+/* Get a protected write access to the database; only other
+   process (thread) running during this step could be
+   that of the cache manager. */
+
+	CCH_exclusive(tdbb, LCK_PW, LCK_WAIT);
+
+/* Fetch the log page to reset WAL info on it */
+
+	window.win_page = LOG_PAGE;
+	window.win_flags = 0;
+	logp = (LIP) CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+
+	if (logp->log_flags & log_no_ail) {	/* WAL already disabled */
+		CCH_RELEASE(tdbb, &window);
+		CCH_release_exclusive(tdbb);
+		return;
+	}
+
+/* With WAL, transids are bumped up to optimize logging.  So 
+   bring the next transaction id to the last bumped up value. */
+
+	REC_update_next_transid();
+
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+	AIL_init_log_page(logp, logp->log_file.cp_seqno);
+	CCH_RELEASE(tdbb, &window);
+
+	CCH_release_exclusive(tdbb);
+}
+
+
+void AIL_enable(
+				TEXT * journal_name,
+				USHORT j_length, UCHAR * data, USHORT d_len, SSHORT archive)
+{
+/**************************************
+ *
+ *	A I L _ e n a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enable journalling for the database.
+ *	Add entries to header page
+ *	RETURNS	
+ *		journal descriptor in ret_journal.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	LTJC jrecord;
+	ULONG seqno;
+	ULONG offset;
+	LGFILE *log_files[MAX_LOG_FILES];
+	LGFILE *log_ovflow;
+	SLONG ret_val;
+	ULONG number, i;
+	USHORT jd_len;
+	TEXT journal_dir[MAX_PATH_LENGTH];
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* Can enable journal only if wal sub system is in use */
+
+	if (!dbb->dbb_wal)
+		ERR_post(gds__no_wal_no_jrn, 0);
+
+/* check if journal is already enabled */
+
+	if (PAG_get_clump
+		(HEADER_PAGE, HDR_journal_server, &jd_len,
+		 reinterpret_cast <
+		 UCHAR * >(journal_dir))) ERR_post(gds__jrn_present, 0);
+
+/*
+ * check if we are trying to enable long term journaling without
+ * specifying archive and we are using round robin.
+ */
+
+	if (!archive) {
+		MET_get_walinfo(tdbb, log_files, &number, &log_ovflow);
+
+		for (i = 0; i < number; i++)
+			if (!(log_files[i]->lg_flags & LOG_serial)) {
+				for (i = 0; i < number; i++)
+					ALL_release(reinterpret_cast < frb * >(log_files[i]));
+				ERR_post(gds__no_archive, 0);
+			}
+	}
+
+/* Put a enable record in the WAL and get the current seqno/offset pair */
+
+	jrecord.ltjc_header.jrnh_type = JRN_ENABLE;
+	jrecord.ltjc_page_size = dbb->dbb_page_size;
+	jrecord.ltjc_length = d_len;
+	jrecord.ltjc_seqno = 0;
+	jrecord.ltjc_offset = 0;
+
+	tdbb->tdbb_status_vector[1] = 0;
+	AIL_put(dbb, tdbb->tdbb_status_vector,
+			reinterpret_cast < jrnh * >(&jrecord), LTJC_SIZE, data, d_len,
+			(ULONG) 0, (ULONG) 0, &seqno, &offset);
+
+	if (tdbb->tdbb_status_vector[1])
+		ERR_punt();
+
+/* Inform the journal server about enable */
+
+	jrecord.ltjc_seqno = seqno;
+	jrecord.ltjc_offset = offset;
+
+	if ((ret_val = JRN_enable(tdbb->tdbb_status_vector, &dbb->dbb_journal,
+							  journal_name, j_length, data, d_len,
+							  &jrecord)) != SUCCESS)
+		AIL_process_jrn_error(ret_val);
+
+/* Inform wal subsystem about enable */
+
+	if (WAL_journal_enable(tdbb->tdbb_status_vector, dbb->dbb_wal,
+						   journal_name, d_len,
+						   reinterpret_cast < char *>(data)) != SUCCESS)
+		  ERR_punt();
+
+/* Add journal entries to header page */
+
+	PAG_add_clump(HEADER_PAGE, HDR_journal_server, j_length,
+				  reinterpret_cast < UCHAR * >(journal_name), CLUMP_ADD, 0);
+	PAG_add_clump(HEADER_PAGE, HDR_backup_info, d_len, data, CLUMP_ADD, 1);
+	WAL_flush(tdbb->tdbb_status_vector, dbb->dbb_wal,
+			  reinterpret_cast < long *>(&seqno),
+			  reinterpret_cast < long *>(&offset), FALSE);
+}
+
+
+void AIL_fini(void)
+{
+/**************************************
+ *
+ *	A I L _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *    Sign off with WAL substem and journal server (if needed).
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	SLONG ret_val;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	if (!dbb->dbb_wal)
+		return;
+
+	WAL_fini(tdbb->tdbb_status_vector, &dbb->dbb_wal);
+
+	dbb->dbb_wal = 0;
+
+	if (!dbb->dbb_journal)
+		return;
+
+	if ((ret_val = JRN_fini(tdbb->tdbb_status_vector, &dbb->dbb_journal)) !=
+		SUCCESS) AIL_process_jrn_error(ret_val);
+
+	dbb->dbb_journal = 0;
+}
+
+
+void AIL_get_file_list(LLS * stack)
+{
+/**************************************
+ *
+ *	A I L _ g e t _ f i l e _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *    Get list of WAL files to drop
+ *
+ **************************************/
+	DBB dbb;
+	WALS WAL_segment;
+	STATUS status_vector[20];
+	SCHAR *curr_name;
+	SLONG curr_log_partition_offset;
+	SCHAR *prev_name;
+	SLONG prev_log_partition_offset;
+	SLONG log_flags;
+
+#ifndef STACK_REDUCTION
+	SCHAR log_name1[MAXPATHLEN];
+	SCHAR log_name2[MAXPATHLEN];
+#else
+	SCHAR *log_name1;
+	SCHAR *log_name2;
+#endif
+
+	SCHAR *temp_name;
+	SLONG log_seqno;
+	SLONG log_length;
+	STR fname;
+	SCHAR *temp_fname;
+	SSHORT count;
+	SSHORT fname_term_length;
+	LOGF *logf;
+
+	dbb = GET_DBB;
+	if (!dbb->dbb_wal)
+		return;
+
+	WALC_acquire(dbb->dbb_wal, &WAL_segment);
+
+/* 
+** Do we have round robin files defined.
+** If yes then put them on stack of files
+** to be deleted.
+*/
+
+	if ((count = WAL_segment->wals_max_logfiles) > 0) {
+		while (--count >= 0) {
+			logf = LOGF_INFO(count);
+			if (logf->logf_flags & LOGF_RAW)
+				continue;
+			temp_fname = LOGF_NAME(logf);
+			fname_term_length = strlen(temp_fname) + 1;
+			fname = (STR) ALLOCPV(type_str, fname_term_length);
+			MOVE_FAST(temp_fname, fname->str_data, fname_term_length);
+			LLS_PUSH(fname, stack);
+		}
+	}
+/* 
+** Now check for overflow files or serial files.
+** Start from the current logfile and retrieve existing
+** log file names which need to be deleted.
+*/
+
+/* WAL_segment->wals_logname is the current log file */
+#ifdef STACK_REDUCTION
+	log_name1 = (SCHAR *) gds__alloc((SLONG) (sizeof(SCHAR) * MAXPATHLEN));
+	log_name2 = (SCHAR *) gds__alloc((SLONG) (sizeof(SCHAR) * MAXPATHLEN));
+#endif
+
+
+	curr_name = log_name1;
+	prev_name = log_name2;
+	strcpy(curr_name, WAL_segment->wals_logname);
+	curr_log_partition_offset = WAL_segment->wals_log_partition_offset;
+
+	WALC_release(dbb->dbb_wal);
+
+	if (WALF_get_log_info(status_vector, dbb->dbb_file->fil_string, curr_name,
+						  curr_log_partition_offset, &log_seqno, &log_length,
+						  &log_flags) != SUCCESS) {
+		gds__free((SLONG *) log_name1);
+		gds__free((SLONG *) log_name2);
+		return;
+	}
+
+	while (TRUE) {
+		if (!(log_flags & WALFH_RAW)) {
+			fname_term_length = strlen(curr_name) + 1;
+			fname = (STR) ALLOCPV(type_str, fname_term_length);
+			MOVE_FAST(curr_name, fname->str_data, fname_term_length);
+			LLS_PUSH(fname, stack);
+		}
+
+		if (WALF_get_next_log_info(status_vector, dbb->dbb_file->fil_string,
+								   curr_name, curr_log_partition_offset,
+								   prev_name, &prev_log_partition_offset,
+								   &log_seqno, &log_length, &log_flags,
+								   -1) != SUCCESS) break;
+
+		temp_name = prev_name;
+		prev_name = curr_name;
+		curr_name = temp_name;
+		curr_log_partition_offset = prev_log_partition_offset;
+	}
+#ifdef STACK_REDUCTION
+	gds__free((SLONG *) log_name1);
+	gds__free((SLONG *) log_name2);
+#endif
+}
+#endif
+
+
+void AIL_init(
+			  TEXT * filename,
+			  SSHORT file_len,
+			  WIN * in_win, USHORT activate_shadow, SBM * sbm_rec)
+{
+/**************************************
+ *
+ *	A I L _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Init WAL handle at database attachment time.
+ *	If this is the first attachment, read logfile information and
+ *	start WAL subsystem.
+ *	If WAL has never been used for the database, do some set up work.
+ *	Perform short term recovery if required.
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	WIN *win, window;
+	LIP logp;
+	TEXT dbname[MAX_PATH_LENGTH];
+
+/* null out the sparse bit map */
+
+	*sbm_rec = (SBM) 0;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* Get WAL file name */
+
+	dbb->dbb_wal = 0;
+
+	if (file_len) {
+		MOVE_FAST(filename, dbname, file_len);
+		dbname[file_len] = 0;
+	}
+	else
+		strcpy(dbname, filename);
+
+/* 
+ * The first user has to initialize the WAL subsystem after doing
+ * some checks.
+ */
+
+	if (in_win) {
+		win = in_win;
+		win->win_flags = 0;
+		logp = (LIP) win->win_buffer;
+	}
+	else {
+		window.win_page = LOG_PAGE;
+		window.win_flags = 0;
+		logp = (LIP) CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+		win = &window;
+	}
+
+	if (CCH_exclusive(tdbb, LCK_EX, LCK_NO_WAIT)) {
+		initialize_wal(tdbb, dbname, win, logp, 1, activate_shadow, sbm_rec);
+		if (!in_win)
+			CCH_RELEASE(tdbb, win);
+		return;
+	}
+
+/*
+ * Handle the case where the process doing short term recovery aborted.
+ * Anyone getting the log page in exclusive access will restart recovery.
+ * During recovery, we have to ensure that the log_rec_in_progress is not
+ * reset.
+ */
+
+	if ((logp->log_flags & log_recover)
+		&& (logp->log_flags & log_rec_in_progress)) {
+		initialize_wal(tdbb, dbname, win, logp, 0, activate_shadow, sbm_rec);
+		if (!in_win)
+			CCH_RELEASE(tdbb, win);
+		return;
+	}
+
+	if (logp->log_flags & log_no_ail) {
+		if (!in_win)
+			CCH_RELEASE(tdbb, win);
+		return;
+	}
+
+	if (!in_win)
+		CCH_RELEASE(tdbb, win);
+
+	dbb->dbb_wal = 0;
+
+/* If not the first user, call WAL_attach () */
+
+	if (WAL_attach(tdbb->tdbb_status_vector, &dbb->dbb_wal, dbname) !=
+		SUCCESS) ERR_punt();
+}
+
+
+void AIL_init_log_page(LIP logp, SLONG seqno)
+{
+/**************************************
+ *
+ *	A I L _ i n i t _ l o g _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	(Re-)initialize the passed log page.
+ *      Set all parameters to 0 except the log file
+ *      sequence number which is set to the passed value.   
+ **************************************/
+	UCHAR *p;
+	SLONG len;
+
+/* First zero out the whole structure except for the page header portion */
+
+	len = sizeof(struct log_info_page) - sizeof(struct pag);
+	p = (UCHAR *) logp + sizeof(struct pag);
+	do
+		*p++ = 0;
+	while (--len);
+
+/* Now set individual fields as appropriate */
+
+	logp->log_flags = log_no_ail;
+	logp->log_file.cp_seqno = seqno;
+
+	p = logp->log_data;
+
+/* Set control point 1 file name */
+
+	*p++ = LOG_ctrl_file1;
+	*p++ = CTRL_FILE_LEN;
+	len = CTRL_FILE_LEN;
+	do
+		*p++ = 0;
+	while (--len);
+
+/* Set control point 2 file name */
+
+	*p++ = LOG_ctrl_file2;
+	*p++ = CTRL_FILE_LEN;
+	len = CTRL_FILE_LEN;
+	do
+		*p++ = 0;
+	while (--len);
+
+/* Set current log file */
+
+	*p++ = LOG_logfile;
+	*p++ = CTRL_FILE_LEN;
+	len = CTRL_FILE_LEN;
+	do
+		*p++ = 0;
+	while (--len);
+
+	*p = LOG_end;
+
+	logp->log_end = (USHORT) (p - (UCHAR *) logp);
+}
+
+
+#if (!defined PC_PLATFORM || defined SUPERSERVER)
+void AIL_journal_tid(void)
+{
+/**************************************
+ *
+ *	A I L _ j o u r n a l _ t i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Journal the next transaction id on the header page.
+ *	This will be used at WAL_init and control point time.
+ **************************************/
+	WIN window;
+	JRNDH journal;
+
+	TDBB tdbb = GET_THREAD_DATA;
+	DBB  dbb  = tdbb->tdbb_database;
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	HDR hdr = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+
+	SLONG fake_tid = hdr->hdr_next_transaction + MOD_START_TRAN;
+
+	SLONG seqno = hdr->hdr_next_transaction / dbb->dbb_pcontrol->pgc_tpt;
+	if (seqno != (SLONG)((fake_tid + 1) / dbb->dbb_pcontrol->pgc_tpt))
+	{
+		fake_tid = ((seqno + 1) * dbb->dbb_pcontrol->pgc_tpt) - 1;
+	}
+
+	hdr->hdr_bumped_transaction = fake_tid;
+
+	journal.jrndh_type = JRNP_DB_HEADER;
+	journal.jrndh_nti = fake_tid;
+	journal.jrndh_oit = hdr->hdr_oldest_transaction;
+	journal.jrndh_oat = hdr->hdr_oldest_active;
+
+	CCH_journal_record(tdbb, &window, reinterpret_cast < UCHAR * >(&journal),
+					   JRNDH_SIZE, 0, 0);
+
+	CCH_RELEASE(tdbb, &window);
+
+	SLONG offset;
+	WAL_flush(tdbb->tdbb_status_vector, dbb->dbb_wal, &seqno, &offset, FALSE);
+}
+
+
+void AIL_process_jrn_error(SLONG ret_val)
+{
+/**************************************
+ *
+ *	A I L _ p r o c e s s _ j r n _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle error from a journal call.
+ *
+ **************************************/
+
+	if (ret_val == FAILURE)
+		ERR_punt();
+	else if (ret_val < 0)
+		BUGCHECK(-1 * ret_val);
+	else
+		IBERROR(ret_val);
+}
+
+
+void AIL_put(
+			 DBB dbb,
+			 STATUS * status,
+			 JRNH * header,
+			 USHORT h_length,
+			 UCHAR * data,
+USHORT d_length,
+ULONG prev_seqno, ULONG prev_offset, ULONG * seqno, ULONG * offset)
+{
+/**************************************
+ *
+ *	A I L _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a record to WAL.
+ *	Returns seqno & offset pair.
+ *
+ *	NOTE:  AIL_put () can be called from signal handlers to write 
+ *	       pages.  So ERR_punt () cannot be called from within the routine
+ *	       Check status [1] on return.
+ **************************************/
+
+	if (!dbb->dbb_wal) {
+		*seqno = prev_seqno;
+		*offset = prev_offset;
+		return;
+	}
+
+	switch (header->jrnh_type) {
+	case JRN_CNTRL_PT:
+	case JRN_START_ONLINE_DMP:
+	case JRN_END_ONLINE_DMP:
+	case JRN_ONLINE_DMP_FILE:
+	case JRN_WAL_NAME:
+		MOV_time_stamp(reinterpret_cast <
+					   ISC_TIMESTAMP * >(((LTJW *) header)->ltjw_date));
+		break;
+	}
+
+/* Prepare WAL message */
+
+	header->jrnh_handle = 0;
+	header->jrnh_length = h_length + d_length;
+	header->jrnh_series = 0;
+	header->jrnh_version = JOURNAL_VERSION;
+
+	header->jrnh_prev_seqno = prev_seqno;
+	header->jrnh_prev_offset = prev_offset;
+
+#ifdef DEV_BUILD
+/* Checksum the log record after zeroing out the field */
+
+	header->jrnh_series =
+		MISC_checksum_log_rec(reinterpret_cast < UCHAR * >(header), h_length,
+							  data, d_length);
+#endif /* DEV_BUILD */
+
+/* Write message to WAL */
+
+	THREAD_EXIT;
+	WAL_put(status,
+			dbb->dbb_wal,
+			(UCHAR *) header,
+			h_length,
+			data,
+			d_length,
+			reinterpret_cast < long *>(seqno),
+			reinterpret_cast < long *>(offset));
+	THREAD_ENTER;
+}
+
+
+void AIL_recover_page(SLONG page_no, PAG page)
+{
+/**************************************
+ *
+ *	A I L _ r e c o v e r _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	recovers a single page from the second last control point.
+ *	assumes that the 'corrupt' page is not in the cache.
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	WIN window;
+	LIP logp;
+	CP cp1;
+	UCHAR *p;
+	SCHAR rwal[MAX_PATH_LENGTH];
+	SLONG seqno, offset;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* Flush the records on WAL buffer before trying to recover the
+ * page
+ */
+
+	WAL_flush(tdbb->tdbb_status_vector, dbb->dbb_wal, &seqno, &offset, FALSE);
+
+	window.win_page = LOG_PAGE;
+	window.win_flags = 0;
+	logp = (LIP) CCH_FETCH(tdbb, &window, LCK_read, pag_log);
+
+/* If there is no log, just return */
+
+	if (logp->log_flags & log_no_ail) {
+		CCH_RELEASE(tdbb, &window);
+		return;
+	}
+
+	cp1.cp_seqno = logp->log_cp_1.cp_seqno;
+	cp1.cp_offset = logp->log_cp_1.cp_offset;
+	cp1.cp_p_offset = logp->log_cp_1.cp_p_offset;
+
+	for (p = logp->log_data; (*p != LOG_ctrl_file1); p += 2 + p[1]);
+
+	MOVE_FAST(p + 2, rwal, logp->log_cp_1.cp_fn_length);
+
+	rwal[logp->log_cp_1.cp_fn_length] = 0;
+
+	CCH_RELEASE(tdbb, &window);
+
+	REC_recover_page(dbb->dbb_file->fil_string, rwal, &cp1, page_no, page);
+}
+
+
+void AIL_set_log_options(
+						 SLONG chkpt_len,
+						 SSHORT num_bufs, USHORT bufsize, SLONG grp_cmt_wait)
+{
+/**************************************
+ *
+ *	A I L _ s e t _ l o g _ o p t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set any log options if specified.
+ *
+ **************************************/
+	WIN window;
+	TDBB tdbb;
+	DBB dbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* why fetch log page if you don't need it */
+	if (!(chkpt_len || num_bufs || bufsize || (grp_cmt_wait >= 0)))
+		return;
+
+	window.win_page = LOG_PAGE;
+	window.win_flags = 0;
+	CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+
+	if (chkpt_len) {
+		PAG_add_clump(LOG_PAGE, LOG_chkpt_len, sizeof(SLONG),
+					  (UCHAR *) & chkpt_len, CLUMP_REPLACE, 0);
+		if (dbb->dbb_wal)
+			WAL_set_checkpoint_length(tdbb->tdbb_status_vector, dbb->dbb_wal,
+									  chkpt_len);
+	}
+
+	if (num_bufs)
+		PAG_add_clump(LOG_PAGE, LOG_num_bufs, sizeof(SSHORT),
+					  (UCHAR *) & num_bufs, CLUMP_REPLACE, 0);
+
+	if (bufsize)
+		PAG_add_clump(LOG_PAGE, LOG_bufsize, sizeof(USHORT),
+					  (UCHAR *) & bufsize, CLUMP_REPLACE, 0);
+
+	if (grp_cmt_wait >= 0) {
+		PAG_add_clump(LOG_PAGE, LOG_grp_cmt_wait, sizeof(SLONG),
+					  (UCHAR *) & grp_cmt_wait, CLUMP_REPLACE, 0);
+		if (dbb->dbb_wal)
+			WAL_set_grpc_wait_time(tdbb->tdbb_status_vector, dbb->dbb_wal,
+								   grp_cmt_wait);
+	}
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+void AIL_shutdown(
+				  SCHAR * walname,
+				  SLONG * seqno,
+				  SLONG * offset, SLONG * p_offset, SSHORT force_archive)
+{
+/**************************************
+ *
+ *	A I L _ s h u t d o w n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown wal subsystem after a flush.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	WAL_flush(tdbb->tdbb_status_vector, dbb->dbb_wal, seqno, offset, FALSE);
+	WAL_shutdown(tdbb->tdbb_status_vector, dbb->dbb_wal, seqno, walname,
+				 p_offset, offset, force_archive);
+	AIL_fini();
+}
+
+
+void AIL_upd_cntrl_pt(
+					  TEXT * walname,
+					  USHORT w_len, ULONG seqno, ULONG offset, ULONG p_offset)
+{
+/***********************************************
+ *
+ *	A I L _  u p d _ c n t r l _  p t
+ *
+ ***********************************************
+ *
+ * Functional description
+ *	Updates the log page control point.
+ *	Makes the 1st control point the second control point
+ *	Updates the second control point with the new values.
+ *
+ *	Assumption:: All control point entries are in one page
+ *		  :: All control point entries are contiguous.
+ *
+ **************************************/
+	LIP logp;
+	WIN window;
+	UCHAR *p1, *p2, *p3, *q, *p;
+	USHORT len;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+
+	window.win_page = LOG_PAGE;
+	window.win_flags = 0;
+	logp = (LIP) CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+
+	p1 = p2 = p3 = 0;
+
+	for (p = logp->log_data; (*p != LOG_end); p += 2 + p[1]) {
+		if (*p == LOG_ctrl_file1)
+			p1 = p;
+
+		if (*p == LOG_ctrl_file2)
+			p2 = p;
+
+		if (*p == LOG_logfile)
+			p3 = p;
+
+		if (p1 && p2 && p3)
+			break;
+	}
+
+	if (*p == LOG_end)
+		BUGCHECK(269);
+
+/* update the second last entry */
+
+	p = p2;
+	*p = LOG_ctrl_file1;
+
+	logp->log_cp_1.cp_seqno = logp->log_cp_2.cp_seqno;
+	logp->log_cp_1.cp_offset = logp->log_cp_2.cp_offset;
+	logp->log_cp_1.cp_p_offset = logp->log_cp_2.cp_p_offset;
+	logp->log_cp_1.cp_fn_length = logp->log_cp_2.cp_fn_length;
+
+/* add the new entries */
+
+	p = p1;
+	*p++ = LOG_ctrl_file2;
+	p++;
+	q = reinterpret_cast < UCHAR * >(walname);
+	if (len = w_len)
+		do
+			*p++ = *q++;
+		while (--len);
+
+	logp->log_cp_2.cp_seqno = seqno;
+	logp->log_cp_2.cp_offset = offset;
+	logp->log_cp_2.cp_p_offset = p_offset;
+	logp->log_cp_2.cp_fn_length = w_len;
+
+/* update the current file also */
+
+	p = p3 + 2;
+	q = reinterpret_cast < UCHAR * >(walname);
+	if (len = w_len)
+		do
+			*p++ = *q++;
+		while (--len);
+
+	logp->log_file.cp_seqno = seqno;
+	logp->log_file.cp_offset = offset;
+	logp->log_file.cp_p_offset = p_offset;
+	logp->log_file.cp_fn_length = w_len;
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+static void build_wal_param(
+							UCHAR * wpb,
+							LGFILE ** log_files,
+							SLONG number,
+							LGFILE * log_ovflow, SLONG * wpb_len)
+{
+/**************************************
+ *
+ *      b u i l d _ w a l _ p a r a m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build the wal parameter block and return length
+ *
+ **************************************/
+	ULONG param1;
+	USHORT param2;
+	USHORT plen;
+	TEXT journal_dir[MAX_PATH_LENGTH];
+	USHORT jd_len, d_len;
+	UCHAR data[MAX_PATH_LENGTH], *p;
+
+/* Get journal information, if any */
+
+	PAG_get_clump(HEADER_PAGE, HDR_backup_info, &d_len, data);
+	PAG_get_clump(HEADER_PAGE, HDR_journal_server, &jd_len,
+				  reinterpret_cast < UCHAR * >(journal_dir));
+	journal_dir[jd_len] = 0;
+
+/* Build the wal param block */
+
+	p = wpb;
+
+	if (jd_len) {
+		p += MISC_build_parameters_block(p,
+										 PARAM_BYTE(WAL_PARAM_JRN_DIRNAME),
+										 PARAM_STRING(journal_dir),
+										 PARAM_BYTE(WAL_PARAM_JRN_DATA),
+										 PARAM_NBYTES(d_len, data),
+										 (SCHAR) 0);
+	}
+
+	if (log_files[0]->lg_flags & LOG_serial) {
+		p += MISC_build_parameters_block(p,
+										 PARAM_BYTE(WAL_PARAM_SERIAL_LOG),
+										 PARAM_POINTER(log_files[0]),
+										 (SCHAR) 0);
+	}
+	else {
+		p += MISC_build_parameters_block(p,
+										 PARAM_BYTE(WAL_PARAM_RR_LOGS_COUNT),
+										 PARAM_SHORT(number),
+										 PARAM_BYTE(WAL_PARAM_RR_LOGS),
+										 PARAM_POINTER(log_files), (SCHAR) 0);
+	}
+
+	if (log_ovflow)
+		p += MISC_build_parameters_block(p,
+										 PARAM_BYTE(WAL_PARAM_OVFLOW_LOG),
+										 PARAM_POINTER(log_ovflow),
+										 (SCHAR) 0);
+
+
+	if (PAG_get_clump
+		(LOG_PAGE, LOG_chkpt_len, &plen,
+		 reinterpret_cast < UCHAR * >(&param1))) {
+		p +=
+			MISC_build_parameters_block(p, PARAM_BYTE(WAL_PARAM_CKPT_INTRVL),
+										PARAM_LONG(param1), (SCHAR) 0);
+	}
+
+	if (PAG_get_clump
+		(LOG_PAGE, LOG_num_bufs, &plen,
+		 reinterpret_cast < UCHAR * >(&param2))) {
+		p +=
+			MISC_build_parameters_block(p, PARAM_BYTE(WAL_PARAM_BUF_COUNT),
+										PARAM_SHORT(param2), (SCHAR) 0);
+	}
+
+	if (PAG_get_clump
+		(LOG_PAGE, LOG_bufsize, &plen,
+		 reinterpret_cast < UCHAR * >(&param2))) {
+		p +=
+			MISC_build_parameters_block(p, PARAM_BYTE(WAL_PARAM_BUF_LEN),
+										PARAM_SHORT(param2), (SCHAR) 0);
+	}
+
+	if (PAG_get_clump
+		(LOG_PAGE, LOG_grp_cmt_wait, &plen,
+		 reinterpret_cast < UCHAR * >(&param1))) {
+		p +=
+			MISC_build_parameters_block(p,
+										PARAM_BYTE(WAL_PARAM_GRPC_WAIT_USECS),
+										PARAM_LONG(param1), (SCHAR) 0);
+	}
+
+	p += MISC_build_parameters_block(p, PARAM_BYTE(WAL_PARAM_END), (SCHAR) 0);
+
+	*wpb_len = p - wpb;
+}
+
+
+static void delete_log_files(
+							 TEXT * latest_logname,
+							 SLONG latest_log_p_offset, LLS stack)
+{
+/**************************************
+ *
+ *      d e l e t e _ l o g _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Delete the log files listed in the stack.  First give
+ *	some time to the journal server, if configured, to archive
+ *	the last log file(s).
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	STR fname;
+	STATUS local_status[20];
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	while (stack) {
+		fname = (STR) LLS_POP(&stack);
+		if (unlink(reinterpret_cast < const char *>(fname->str_data))) {
+			IBERR_build_status(local_status, isc_io_error,
+							   gds_arg_string, "unlink",
+							   gds_arg_string, fname->str_data,
+							   isc_arg_gds, isc_io_delete_err, 0);
+			gds__log_status(dbb->dbb_file->fil_string, local_status);
+		}
+	}
+}
+
+
+static BOOLEAN get_walinfo(TEXT * walname)
+{
+/**************************************
+ *
+ *      g e t _ w a l i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get wal name and wal number from header page.
+ *	Build the log name the way subsystem understands it.
+ *      RETURNS
+ *	    TRUE if WAL exists
+ *	    FALSE otherwise
+ *
+ **************************************/
+	USHORT len;
+	WIN window;
+	LIP logp;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	window.win_page = LOG_PAGE;
+	window.win_flags = 0;
+	logp = (LIP) CCH_FETCH(tdbb, &window, LCK_read, pag_log);
+
+	if (!PAG_get_clump
+		(LOG_PAGE, LOG_logfile, &len,
+		 reinterpret_cast < UCHAR * >(walname))) {
+		CCH_RELEASE(tdbb, &window);
+		return FALSE;
+	}
+
+	len = logp->log_file.cp_fn_length;
+	walname[len] = 0;
+
+	CCH_RELEASE(tdbb, &window);
+
+	return TRUE;
+}
+#endif
+
+
+static void initialize_wal(
+						   TDBB tdbb,
+						   TEXT * dbname,
+						   WIN * window,
+						   LIP logp,
+						   SSHORT release,
+USHORT activate_shadow, SBM * sbm_rec)
+{
+/**************************************
+ *
+ *      i n i t i a l i z e _ w a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize wal subsystem.
+ *	If release is true, release log page before recovery.
+ *	logp can be modified inside this procedure, so do not use it
+ *	after it is called.  The page is released.
+ *
+ **************************************/
+	DBB dbb;
+	SSHORT i;
+	SLONG first_time, number;
+	LGFILE *log_files[MAX_LOG_FILES];
+	LGFILE *log_ovflow;
+	SCHAR walname[MAX_PATH_LENGTH];
+	UCHAR wpb[2 * MAX_PATH_LENGTH];	/* This size is pure guess ! */
+	SLONG wpb_len, wal_p_offset;
+	SLONG seqno, offset, p_offset;
+	USHORT save_flag;
+
+	SET_TDBB(tdbb);
+
+	dbb = tdbb->tdbb_database;
+
+/* Get WAL file name */
+
+	dbb->dbb_wal = 0;
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+
+/* On PC_PLATFORM, there's no log */
+
+	logp->log_flags |= log_no_ail;
+	logp->log_flags &= ~log_add;
+
+#endif
+
+/* If there is no log, just return */
+
+	if ((logp->log_flags & log_no_ail) && (!(logp->log_flags & log_add))) {
+		/* if partial recovery is in progress, reset bit */
+
+		if (logp->log_flags & log_partial_rebuild) {
+			CCH_MARK_MUST_WRITE(tdbb, window);
+			logp->log_flags &= ~log_partial_rebuild;
+		}
+
+		return;
+	}
+
+#if (!defined PC_PLATFORM || defined NETWARE_386)
+
+/* Initialize WAL subsystem. */
+
+	logp->log_flags &= ~log_recovery_done;
+
+	CCH_MARK_MUST_WRITE(tdbb, window);
+
+/* if partial recovery is in progress, reset bit */
+
+	logp->log_flags &= ~log_partial_rebuild;
+
+	if (logp->log_flags & log_recover)
+		process_recovery(tdbb, dbname, window, &logp, release,
+						 activate_shadow, sbm_rec);
+
+/* 
+ * If the transaction that added/deleted the log files did not
+ * complete take appropriate action.
+ */
+
+	if (logp->log_mod_tid)
+		process_log_updater(logp);
+
+/* If log has been dropped, return */
+
+	if (logp->log_flags & log_no_ail)
+		return;
+
+/* If activating shadow, mark that log has been deleted */
+/* The shutdown will happen during MET_activate_shadow */
+
+	if (activate_shadow) {
+		logp->log_flags |= log_delete;
+	}
+
+/* Read log file information from RDB$LOG_FILES */
+
+	for (i = 0; i < MAX_LOG_FILES; i++)
+		log_files[i] = (LGFILE *) 0;
+
+/* Save and restore attachment flags when reading log information */
+
+	save_flag = (USHORT) tdbb->tdbb_attachment->att_flags;
+	tdbb->tdbb_attachment->att_flags &= ~ATT_no_cleanup;
+
+	MET_get_walinfo(tdbb, log_files, reinterpret_cast < ULONG * >(&number),
+					&log_ovflow);
+
+	tdbb->tdbb_attachment->att_flags = save_flag;
+
+	if (!number) {
+		logp->log_flags |= log_no_ail;
+		return;
+	}
+
+/* Do some initial actions for setting up page */
+
+	if (first_time = logp->log_flags & log_add)
+		set_first_user(log_files, logp, walname);
+	else
+		get_walinfo(walname);
+
+	logp->log_flags |= log_recover;
+
+	dbb->dbb_wal = 0;
+
+/* build wal parameter block in clumplet form */
+
+	build_wal_param(wpb, log_files, number, log_ovflow, &wpb_len);
+
+	wal_p_offset = logp->log_cp_1.cp_p_offset;
+
+	if (WAL_init(tdbb->tdbb_status_vector,
+				 &dbb->dbb_wal,
+				 dbname,
+				 dbb->dbb_page_size,
+				 walname,
+				 wal_p_offset,
+				 (SSHORT) first_time,
+				 logp->log_file.cp_seqno,
+				 (SSHORT) wpb_len,
+				 reinterpret_cast < char *>(wpb)) != SUCCESS) {
+		/* If there is a failure, release the page */
+		if (first_time)
+			AIL_init_log_page(logp, logp->log_file.cp_seqno - 1);
+		CCH_RELEASE(tdbb, window);
+		ERR_punt();
+	}
+
+/* If first time, then get the current wal information and 
+ * update the log page.
+ */
+
+	if (first_time) {
+		if (WAL_status(tdbb->tdbb_status_vector, dbb->dbb_wal,
+					   NULL, NULL, NULL, NULL,
+					   &seqno, walname, &p_offset, &offset) != SUCCESS) {
+			AIL_init_log_page(logp, logp->log_file.cp_seqno - 1);
+			CCH_RELEASE(tdbb, window);
+			ERR_punt();
+		}
+		AIL_upd_cntrl_pt(walname, (USHORT) strlen(walname), seqno, offset,
+						 p_offset);
+		AIL_upd_cntrl_pt(walname, (USHORT) strlen(walname), seqno, offset,
+						 p_offset);
+	}
+
+/* Journal the header page to get the next tid on disk */
+
+	AIL_journal_tid();
+
+/* Make sure the pages are written to disk for the database 
+ * and shadows
+ */
+
+	logp->log_header.pag_checksum = CCH_checksum(window->win_bdb);
+
+	PIO_write(dbb->dbb_file, window->win_bdb, window->win_buffer,
+			  tdbb->tdbb_status_vector);
+
+	PIO_flush(dbb->dbb_file);
+
+	if (dbb->dbb_shadow) {
+		CCH_write_all_shadows(tdbb, 0, window->win_bdb,
+							  tdbb->tdbb_status_vector, 1, FALSE);
+		PIO_flush(dbb->dbb_shadow->sdw_file);
+	}
+
+/* 
+ * Do not release the page before wal is initialized.
+ * The LOG_PAGE acts as a lock to prevent 2 users from 
+ * starting up together and one trying to attach before
+ * wal is initialized.
+ */
+
+	for (i = 0; i < number; i++)
+		ALL_release(reinterpret_cast < frb * >(log_files[i]));
+#endif
+}
+
+
+#if (!defined PC_PLATFORM || defined SUPERSERVER)
+static void process_log_updater(LIP logp)
+{
+/**************************************
+ *
+ *      p r o c e s s _ l o g _ u p d a t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check if the process which updated the log page committed.
+ *	Fixup the log_flags appropriately.
+ *
+ **************************************/
+	SSHORT state;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+
+	state = TRA_get_state(tdbb, logp->log_mod_tid);
+
+	logp->log_mod_tid = 0;
+	logp->log_mod_tip = 0;
+
+	if (state == tra_committed) {
+		if (logp->log_flags & log_delete) {
+			logp->log_flags &= ~log_delete;
+			logp->log_flags |= log_no_ail;
+		}
+		if (logp->log_flags & log_add) {
+			logp->log_flags &= ~log_no_ail;
+		}
+	}
+	else {
+		logp->log_flags &= ~(log_add | log_delete);
+	}
+}
+
+
+static void process_recovery(
+							 TDBB tdbb,
+							 TEXT * dbname,
+							 WIN * window,
+							 LIP * logpp,
+							 SSHORT release,
+USHORT activate_shadow, SBM * sbm_rec)
+{
+/**************************************
+ *
+ *      p r o c e s s _ r e c o v e r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do short term recovery.
+ *	If release flag is set, release LOG_PAGE before recovery and 
+ *	fetch after recovery.  Holding the page will act as a lock
+ *	to prevent multiple users from running recovery.  The first
+ *	user will run in exclusive mode.
+ *
+ **************************************/
+	TEXT root_db[MAX_PATH_LENGTH], rwal[MAX_PATH_LENGTH];
+	CP cp1;
+	LIP logp;
+	UCHAR *p;
+	WIN win;
+	HDR hdr;
+
+	SET_TDBB(tdbb);
+
+	logp = *logpp;
+
+	cp1.cp_seqno = logp->log_cp_1.cp_seqno;
+	cp1.cp_offset = logp->log_cp_1.cp_offset;
+	cp1.cp_p_offset = logp->log_cp_1.cp_p_offset;
+
+	for (p = logp->log_data; (*p != LOG_ctrl_file1); p += 2 + p[1]);
+
+	MOVE_FAST(p + 2, rwal, logp->log_cp_1.cp_fn_length);
+
+	rwal[logp->log_cp_1.cp_fn_length] = 0;
+
+	if (release) {
+		/* Page is already marked must_write */
+		logp->log_flags |= log_rec_in_progress;
+		CCH_RELEASE(tdbb, window);
+	}
+
+	if (activate_shadow) {
+		/* If activating shadow, recovery needs root file name */
+		win.win_page = HEADER_PAGE;
+		win.win_flags = 0;
+		hdr = (HDR) CCH_FETCH(tdbb, &win, LCK_read, pag_header);
+		for (p = hdr->hdr_data; (*p != HDR_root_file_name); p += 2 + p[1]);
+		MOVE_FAST(p + 2, root_db, p[1]);
+		root_db[p[1]] = 0;
+		CCH_RELEASE(tdbb, &win);
+		REC_recover(root_db, rwal, &cp1, sbm_rec, activate_shadow);
+	}
+	else
+		REC_recover(dbname, rwal, &cp1, sbm_rec, activate_shadow);
+
+	if (release) {
+		logp = (LIP) CCH_FETCH(tdbb, window, LCK_write, pag_log);
+		CCH_MARK_MUST_WRITE(tdbb, window);
+	}
+
+/* Since a recovery updates the LOG_PAGE, make sure it will be
+ * written to the shadows also
+ */
+
+	SBM_set(tdbb, sbm_rec, LOG_PAGE);
+
+	logp->log_flags &= ~log_rec_in_progress;
+
+/* If a shadow is being activated, roll over log file */
+
+	if (activate_shadow)
+		logp->log_flags |= log_add;
+
+	*logpp = logp;
+}
+
+
+static void set_first_user(LGFILE ** log_files, LIP logp, TEXT * walname)
+{
+/**************************************
+ *
+ *      s e t _ f i r s t _ u s e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize log page when using the WAL for the first time.
+ *
+ **************************************/
+	SSHORT len;
+	UCHAR *p;
+
+	logp->log_flags &= ~log_add;
+	logp->log_flags &= ~log_no_ail;
+	logp->log_file.cp_seqno++;
+	MOV_time_stamp(reinterpret_cast <
+				   ISC_TIMESTAMP * >(logp->log_creation_date));
+
+	if (log_files[0]->lg_flags & LOG_serial) {
+#ifdef NETWARE
+		/* Strip out the trailing extension of the log name specification.  On
+		   Netware, we would be adding ".<n>" extension for a log file name and
+		   Netware file name space does not allow more than one '.' in the file
+		   name. */
+		ISC_strip_extension(log_files[0]->lg_name);
+#endif
+		WALC_build_logname(walname, log_files[0]->lg_name,
+						   logp->log_file.cp_seqno);
+	}
+	else
+		strcpy(walname, log_files[0]->lg_name);
+
+	len = strlen(walname);
+	logp->log_file.cp_fn_length = len;
+
+	for (p = logp->log_data; (*p != LOG_end); p += 2 + p[1]) {
+		switch (*p) {
+		case LOG_ctrl_file1:
+			MOVE_FAST(walname, p + 2, len);
+			break;
+
+		case LOG_ctrl_file2:
+			MOVE_FAST(walname, p + 2, len);
+			break;
+
+		case LOG_logfile:
+			MOVE_FAST(walname, p + 2, len);
+			break;
+		}
+	}
+
+	logp->log_cp_1.cp_fn_length = len;
+	logp->log_cp_1.cp_seqno = logp->log_file.cp_seqno;
+	logp->log_cp_1.cp_offset = 0;
+	logp->log_cp_1.cp_p_offset = 0;
+
+	logp->log_cp_2.cp_fn_length = len;
+	logp->log_cp_2.cp_seqno = logp->log_file.cp_seqno;
+	logp->log_cp_2.cp_offset = 0;
+	logp->log_cp_2.cp_p_offset = 0;
+}
+#endif
+
+
+} // extern "C"
diff --git a/src/jrd/ail.h b/src/jrd/ail.h
new file mode 100644
index 0000000000..a1a2b8f289
--- /dev/null
+++ b/src/jrd/ail.h
@@ -0,0 +1,70 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		ail.h
+ *	DESCRIPTION:	Prototype Header file for ail.cpp
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_AIL_H
+#define JRD_AIL_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void AIL_add_log(void);
+extern void AIL_checkpoint_finish(STATUS *, struct dbb *, SLONG, TEXT *,
+								  SLONG, SLONG);
+extern void AIL_commit(SLONG);
+extern void AIL_disable(void);
+extern void AIL_drop_log(void);
+extern void AIL_drop_log_force(void);
+extern void AIL_enable(TEXT *, USHORT, UCHAR *, USHORT, SSHORT);
+extern void AIL_fini(void);
+extern void AIL_get_file_list(struct lls **);
+extern void AIL_init(TEXT *, SSHORT, struct win *, USHORT, struct sbm **);
+extern void AIL_init_log_page(struct log_info_page *, SLONG);
+extern void AIL_journal_tid(void);
+extern void AIL_process_jrn_error(SLONG);
+extern void AIL_put(struct dbb *, STATUS *, struct jrnh *, USHORT, UCHAR *,
+					USHORT, ULONG, ULONG, ULONG *, ULONG *);
+extern void AIL_recover_page(SLONG, struct pag *);
+extern void AIL_set_log_options(SLONG, SSHORT, USHORT, SLONG);
+extern void AIL_shutdown(SCHAR *, SLONG *, SLONG *, SLONG *, SSHORT);
+extern void AIL_upd_cntrl_pt(TEXT *, USHORT, ULONG, ULONG, ULONG);
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+#define AIL_add_log()
+#define AIL_commit(a)
+#define AIL_disable()
+#define AIL_drop_log()
+#define AIL_drop_log_force()
+#define AIL_enable(a,b,c,d,e)
+#define AIL_fini()
+#define AIL_put(a,b,c,d,e,f,g,h,i,j)
+#define AIL_set_log_options(a,b,c,d)
+#define AIL_shutdown(a,b,c,d,e)
+#define AIL_upd_cntrl_pt(a,b,c,d,e)
+#endif
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_AIL_H */
diff --git a/src/jrd/align.cpp b/src/jrd/align.cpp
new file mode 100644
index 0000000000..7abcc4ac9c
--- /dev/null
+++ b/src/jrd/align.cpp
@@ -0,0 +1,161 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: align.cpp,v 1.1.1.1 2001-05-23 13:26:05 tamlin Exp $
+*/
+
+#include "../jrd/ibsetjmp.h"
+#include <signal.h>
+#include "../jrd/ib_stdio.h"
+
+typedef struct xyz {
+	char a;
+	double b;
+} *XYZ;
+
+#define MAJOR_MINOR	"((n + b - 1) & ~(b - 1))"
+#define EVEN		"((n+1) & ~1)"
+#define NO_OP		"(n)"
+
+typedef struct alignment {
+	short rule_offset;
+	short rule_length;
+	short rule_faults;
+	short rule_base_align;
+	short rule_double_align;
+	char *rule_rule;
+	char *rule_system;
+} ALIGNMENT;
+
+static ALIGNMENT rules[] = {
+	1, 9, 0, 4, 4, NO_OP, "VMS",	/* VMS */
+	2, 10, 0, 4, 4, EVEN, "MC 68K",	/* Generic Motorola */
+	4, 12, 0, 4, 4, MAJOR_MINOR, "VAX Ultrix, 386i, RT",	/* VAX Ultrix */
+	8, 16, 1, 8, 8, MAJOR_MINOR, "HP Precision",	/* HP Precision */
+	8, 16, 0, 4, 8, MAJOR_MINOR, "Sparc",	/* MIPS, Sun Sparc */
+	0, 0, 0, 0, 0
+};
+
+#ifdef __STDC__
+static void check_byte_order(void);
+static int check_double(void);
+static void handler(void);
+#else
+static void check_byte_order();
+static int check_double();
+static void handler();
+#endif
+
+static JMP_BUF env;
+
+
+#ifdef __STDC__
+int main(int argc, char *argv[])
+#else
+int main(argc, argv)
+	 int argc;
+	 char *argv[];
+#endif
+{
+	double *p, d1;
+#if (defined __osf__ && defined __alpha)
+	int vector[3];
+#else
+	long vector[3];
+#endif
+	short offset, length, faults;
+	ALIGNMENT *rule;
+
+	offset = (int) &((XYZ) 0)->b;
+	length = sizeof(struct xyz);
+	faults = check_double();
+
+	for (rule = rules; rule->rule_offset; ++rule)
+		if (rule->rule_offset == offset &&
+			rule->rule_length == length && rule->rule_faults == faults) {
+			ib_printf("\n/* %s */\n\n", rule->rule_system);
+			ib_printf("#define ALIGNMENT\t%d\n", rule->rule_base_align);
+			ib_printf("#define DOUBLE_ALIGN\t%d\n", rule->rule_double_align);
+			ib_printf("#define FB_ALIGN(n,b)\t%s\n", rule->rule_rule);
+			check_byte_order();
+			ib_printf("\n");
+			return 1;
+		}
+
+	ib_printf("Unknown system, double offset %d, structure length %d\n",
+			  offset, length);
+	check_byte_order();
+
+	return 1;
+}
+
+#ifdef __STDC__
+static void check_byte_order(void)
+#else
+static void check_byte_order()
+#endif
+{
+	union {
+		short s;
+		char c[2];
+	} order_test;
+
+	order_test.c[0] = 1;
+	order_test.c[1] = 2;
+
+	if (order_test.s != 0x0102)
+		ib_printf("#define VAX\t\t1\n");
+}
+
+#ifdef __STDC__
+static int check_double(void)
+#else
+static int check_double()
+#endif
+{
+	double *p, d1;
+#if (defined __osf__ && defined __alpha)
+	int vector[3];
+#else
+	long vector[3];
+#endif
+
+	if (SETJMP(env))
+		return 1;
+
+	signal(SIGBUS, handler);
+	signal(SIGSEGV, handler);
+	p = (double *) &vector[0];
+	*p = 3;
+	*p *= 2.5;
+	p = (double *) &vector[1];
+	*p = 3;
+	*p *= 2.5;
+
+	return 0;
+}
+
+#ifdef __STDC__
+static void handler(void)
+#else
+static void handler()
+#endif
+{
+	LONGJMP(env, 1);
+}
diff --git a/src/jrd/align.h b/src/jrd/align.h
new file mode 100644
index 0000000000..cc321e75a9
--- /dev/null
+++ b/src/jrd/align.h
@@ -0,0 +1,130 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		align.h
+ *	DESCRIPTION:	Maximum alignments for corresponding datatype
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_ALIGN_H_
+#define _JRD_ALIGN_H_
+
+/* 
+Maximum alignments for corresponding data types are defined in dsc.h
+*/
+
+#include "../jrd/blr.h"
+
+/*  The following macro must be defined as the highest-numericly-valued
+ *  blr which describes a datatype: arrays are sized based on this value.
+ *  if a new blr is defined to represent a datatype in blr.h, and the new
+ *  value is greater than blr_blob_id, be sure to change the next define,
+ *  and also add the required entries to all of the arrays below.
+ */
+#define DTYPE_BLR_MAX	blr_blob_id
+
+/*
+ the blr types are defined in blr.h
+
+No need to worry about blr_blob or ?blr_blob_id
+
+*/
+
+#include "../jrd/dsc.h"
+
+static CONST USHORT gds_cvt_blr_dtype[DTYPE_BLR_MAX + 1] =
+	{ 0, 0, 0, 0, 0, 0, 0,
+	dtype_short,				/* blr_short == 7 */
+	dtype_long,					/* blr_long == 8 */
+	dtype_quad,					/* blr_quad == 9 */
+	dtype_real,					/* blr_float == 10 */
+	dtype_d_float,				/* blr_d_float == 11 */
+	dtype_sql_date,				/* blr_sql_date == 12 */
+	dtype_sql_time,				/* blr_sql_time == 13 */
+	dtype_text,					/* blr_text == 14 */
+	dtype_text,					/* blr_text2 == 15 */
+	dtype_int64,				/* blr_int64 == 16 */
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	dtype_double,				/* blr_double == 27 */
+	0, 0, 0, 0, 0, 0, 0,
+	dtype_timestamp,			/* blr_timestamp == 35 */
+	0,
+	dtype_varying,				/* blr_varying == 37 */
+	dtype_varying,				/* blr_varying2 == 38 */
+	0,
+	dtype_cstring,				/* blr_cstring == 40 */
+	dtype_cstring,				/* blr_cstring == 41 */
+	0, 0, 0, 0
+};
+
+static CONST USHORT type_alignments[DTYPE_TYPE_MAX] = {
+	0,
+	0,							/* dtype_text */
+	0,							/* dtype_cstring */
+	sizeof(SSHORT),				/* dtype_varying */
+	0,							/* unused */
+	0,							/* unused */
+	sizeof(SCHAR),				/* dtype_packed */
+	sizeof(SCHAR),				/* dtype_byte */
+	sizeof(SSHORT),				/* dtype_short */
+	sizeof(SLONG),				/* dtype_long */
+#ifndef NATIVE_QUAD
+	sizeof(SLONG),				/* dtype_quad */
+#else
+	sizeof(SQUAD),				/* dtype_quad */
+#endif
+	sizeof(float),				/* dtype_real */
+	DOUBLE_ALIGN,				/* dtype_double */
+	DOUBLE_ALIGN,				/* dtype_d_float */
+	sizeof(GDS_DATE),			/* dtype_sql_date */
+	sizeof(GDS_TIME),			/* dtype_sql_time */
+	sizeof(GDS_DATE),			/* dtype_timestamp */
+#ifndef DECOSF
+	sizeof(SLONG),				/* dtype_blob */
+	sizeof(SLONG),				/* dtype_array */
+#else
+	sizeof(IPTR),				/* dtype_blob */
+	sizeof(IPTR),				/* dtype_array */
+#endif
+	sizeof(SINT64)				/* dtype_int64 */
+};
+
+static CONST USHORT type_lengths[DTYPE_TYPE_MAX] = {
+	0,
+	0,							/* dtype_text */
+	0,							/* dtype_cstring */
+	0,							/* dtype_varying */
+	0,							/* unused */
+	0,							/* unused */
+	0,							/* dtype_packed */
+	sizeof(SCHAR),				/* dtype_byte */
+	sizeof(SSHORT),				/* dtype_short */
+	sizeof(SLONG),				/* dtype_long */
+	sizeof(GDS_QUAD),			/* dtype_quad */
+	sizeof(float),				/* dtype_real */
+	sizeof(double),				/* dtype_double */
+	sizeof(double),				/* dtype_d_float */
+	sizeof(GDS_DATE),			/* dtype_sql_date */
+	sizeof(GDS_TIME),			/* dtype_sql_time */
+	sizeof(GDS_TIMESTAMP),		/* dtype_timestamp */
+	sizeof(GDS_QUAD),			/* dtype_blob */
+	sizeof(GDS_QUAD),			/* dtype_array */
+	sizeof(SINT64)				/* dtype_int64 */
+};
+
+#endif /* _JRD_ALIGN_H_ */
diff --git a/src/jrd/all.cpp b/src/jrd/all.cpp
new file mode 100644
index 0000000000..fc980bddfe
--- /dev/null
+++ b/src/jrd/all.cpp
@@ -0,0 +1,1330 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		all.c
+ *	DESCRIPTION:	Internal block allocator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef SHLIB_DEFS
+#define LOCAL_SHLIB_DEFS
+#endif
+
+#include <string.h>
+#include "../jrd/ib_stdio.h"
+
+#include "../jrd/codes.h"
+
+#ifndef GATEWAY
+#include "../jrd/everything.h"
+#else
+#include ".._gway/gway/everything.h"
+#endif
+#include "../jrd/all_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/thd_proto.h"
+
+#define BLKDEF(type, root, tail) sizeof (struct root), tail,
+
+extern "C" {
+
+
+static const struct {
+	SSHORT typ_root_length;
+	SSHORT typ_tail_length;
+} block_sizes[] = {
+	0, 0,
+#ifndef GATEWAY
+#include "../jrd/blk.h"
+#else
+#include ".._gway/gway/blk.h"
+#endif
+0};
+
+#undef BLKDEF
+
+#ifdef SUPERSERVER
+
+extern SLONG trace_pools;
+SLONG all_delta_alloc = 0;
+
+#define BLKDEF(type, root, tail)  0,
+
+SLONG all_block_type_count[] = {
+#include "../jrd/blk.h"
+	0
+};
+#undef BLKDEF
+
+#define BLKDEF(type, root, tail)  #type,
+const char ALL_types[][24] = {
+	"type_MIN",
+#include "../jrd/blk.h"
+	"type_MAX"
+};
+#undef BLKDEF
+
+#endif // SUPERSERVER
+
+
+static BLK alloc_huge_hunk(PLB, UCHAR, ULONG, ERR_T);
+static BOOLEAN extend_pool(PLB, ULONG, ERR_T);
+static ULONG find_block_length(BLK);
+static PLB find_pool(BLK);
+static void release(FRB, PLB);
+
+#ifdef SHLIB_DEFS
+#define strlen		(*_libgds_strlen)
+
+extern int strlen();
+#endif
+
+
+BLK ALL_alloc(PLB pool, UCHAR type, ULONG count_argument, ERR_T err_ret)
+{
+/**************************************
+ *
+ *	A L L _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block from a given pool and initialize the block.
+ *	This is the primary block allocation routine.
+ *
+ **************************************/
+	register BLK block;
+	FRB free, *best, *ptr;
+	ULONG size, count;
+	SLONG best_tail, tail;
+	USHORT units;
+
+/* this is a kludge to allow OS/2 to accept the
+   incoming argument as an int but do calculations
+   like everybody else -- this avoids changing a lot of source */
+
+	count = count_argument;
+
+	if (type <= (UCHAR) type_MIN || type >= (UCHAR) type_MAX)
+		BUGCHECK(150);			/* msg 150 request to allocate invalid block type */
+
+/* Compute block length */
+
+	size = block_sizes[type].typ_root_length;
+
+	if ((tail = block_sizes[type].typ_tail_length) && count >= FUDGE)
+		size += (count - FUDGE) * tail;
+
+	size = (size + MIN_ALLOC - 1) & ~((ULONG) MIN_ALLOC - 1);
+/* TMN: Here we should really have the following assert */
+/* assert((size >> SHIFT) <= MAX_USHORT); */
+	units = (USHORT) (size >> SHIFT);
+
+	if (size >= MAX_BLOCK)
+		return alloc_huge_hunk(pool, type, size, err_ret);
+
+/* Find best fit.  Best fit is defined to be the free block of shortest
+   tail.  If there isn't a fit, extend the pool and try, try again. */
+
+	while (TRUE) {
+		V4_MUTEX_LOCK(pool->plb_mutex);
+
+		best = NULL;
+		best_tail = MAX_BLOCK;
+		for (ptr = &pool->plb_free; (free = *ptr); ptr = &free->frb_next) {
+			if ((SCHAR HUGE_PTR *) free >= (SCHAR HUGE_PTR *) free->frb_next
+				&& free->frb_next) {
+				V4_MUTEX_UNLOCK(pool->plb_mutex);
+				BUGCHECK(152);	/* msg 152 memory pool free list is invalid */
+			}
+			if ((tail = (ULONG) free->frb_header.blk_length - (ULONG) units)
+				>= 0 && tail < best_tail) {
+				best = ptr;
+				best_tail = tail;
+				if (tail == 0)
+					break;
+			}
+		}
+		if (best)
+			break;
+
+		V4_MUTEX_UNLOCK(pool->plb_mutex);
+		if (!extend_pool(pool, size, err_ret))
+			return 0;
+	}
+
+/* We've got our free block.  If there's enough left of the free block
+   after taking out our block, chop out out block.  If not, allocate
+   the entire free block as our block (a little extra won't hurt). */
+
+	best_tail <<= SHIFT;
+	free = *best;
+
+	if (best_tail > sizeof(struct frb)) {
+		block =
+			(BLK) ((SCHAR *) free + (free->frb_header.blk_length << SHIFT));
+		block = (BLK) ((SCHAR *) block - size);
+		free->frb_header.blk_length -= units;
+	}
+	else {
+		*best = free->frb_next;
+		units = free->frb_header.blk_length;
+		size = units << SHIFT;
+		block = (BLK) free;
+	}
+
+#ifdef SUPERSERVER
+	if (trace_pools) {
+		++all_block_type_count[type];
+		++pool->plb_blk_type_count[type];
+	}
+#endif
+
+	V4_MUTEX_UNLOCK(pool->plb_mutex);
+
+	MOVE_CLEAR(block, size);
+	block->blk_type = type;
+/* TMN: Here we should really have the following assert */
+/* assert(pool->plb_pool_id <= MAX_UCHAR); */
+	block->blk_pool_id = (UCHAR) pool->plb_pool_id;
+	block->blk_length = units;
+
+	return block;
+}
+
+
+#ifdef DEV_BUILD
+void ALL_check_memory(void)
+{
+/**************************************
+ *
+ *	A L L _ c h e c k _ m e m o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	This routine goes through all allocated
+ *	memory pools and checks the hunks of 
+ *	memory allocated to make sure they are
+ *	valid.  It is designed to be used for
+ *	debugging purposes to find bad memory
+ *	areas as soon as they are corrupted. 
+ *	A call to this routine can be made from
+ *	looper() to ensure that it will be regularly
+ *	executed.
+ *
+ **************************************/
+	DBB dbb;
+	VEC vector;
+	PLB pool;
+	USHORT pool_id;
+	HNK hunk;
+
+	dbb = GET_DBB;
+
+	V4_RW_LOCK_LOCK(dbb->dbb_rw_locks + DBB_WLCK_pools, WLCK_read);
+
+/* walk through all the pools in the database */
+
+	vector = dbb->dbb_pools;
+	for (pool_id = 0; pool_id < vector->vec_count; pool_id++) {
+		pool = (PLB) vector->vec_object[pool_id];
+		if (!pool)
+			continue;
+
+		/* walk through all the hunks in the pool */
+
+		V4_MUTEX_LOCK(pool->plb_mutex);
+		for (hunk = pool->plb_hunks; hunk; hunk = hunk->hnk_next);
+		for (hunk = pool->plb_huge_hunks; hunk; hunk = hunk->hnk_next);
+		V4_MUTEX_UNLOCK(pool->plb_mutex);
+	}
+
+	V4_RW_LOCK_UNLOCK(dbb->dbb_rw_locks + DBB_WLCK_pools);
+}
+#endif /* DEV_BUILD */
+
+
+TEXT *ALL_cstring(TEXT * in_string)
+{
+/**************************************
+ *
+ *	A L L _ c s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a stack local string to an allocated
+ *	string so it doesn't disappear before we 
+ *	return to the user or where ever.
+ *
+ **************************************/
+	TDBB tdbb;
+	struct plb *pool;
+	TEXT *p, *q;
+	STR string;
+	ULONG length;
+
+	tdbb = GET_THREAD_DATA;
+
+	if (!(pool = tdbb->tdbb_default)) {
+		if (tdbb->tdbb_transaction)
+			pool = tdbb->tdbb_transaction->tra_pool;
+		else if (tdbb->tdbb_request)
+			pool = tdbb->tdbb_request->req_pool;
+
+		/* theoretically this shouldn't happen, but just in case */
+
+		if (!pool)
+			return NULL;
+	}
+
+	length = strlen(in_string);
+	string = (STR) ALL_alloc(pool, type_str, length, ERR_jmp);
+/* TMN: Here we should really have the following assert */
+/* assert(length <= MAX_USHORT); */
+	string->str_length = (USHORT) length;
+
+	p = (TEXT *) string->str_data;
+	q = in_string;
+
+	while (length--)
+		*p++ = *q++;
+	*p = 0;
+
+	return (TEXT *) string->str_data;
+}
+
+
+BLK ALL_extend(BLK* pointer, ULONG size)
+{
+/**************************************
+ *
+ *	A L L _ e x t e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend a repeating block, copying the constant part.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	BLK block, new_;
+	PLB pool;
+	ULONG old_length, new_length;
+
+	block = *pointer;
+	pool = find_pool(block);
+	new_ = ALL_alloc(pool, block->blk_type, size, ERR_jmp);
+
+	if (!(old_length = block->blk_length << SHIFT))
+		old_length = find_block_length(block);
+	if (!(new_length = new_->blk_length << SHIFT))
+		new_length = find_block_length(new_);
+	MOVE_FASTER((SCHAR *) block + sizeof(struct blk),
+				(SCHAR *) new_ + sizeof(struct blk),
+				MIN(old_length, new_length) - sizeof(struct blk));
+	release(reinterpret_cast < frb * >(block), pool);
+
+	if (new_->blk_type == (UCHAR) type_vec)
+		((VEC) new_)->vec_count = size;
+	else if (new_->blk_type == (UCHAR) type_vcl)
+		((VCL) new_)->vcl_count = size;
+
+	*pointer = new_;
+
+	return new_;
+}
+
+
+void ALL_fini(void)
+{
+/**************************************
+ *
+ *	A L L _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of everything.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *	Call gds__free explicitly instead of ALL_free
+ *	because it references the dbb block which gets
+ *	released at the top of this routine.
+ *
+ **************************************/
+	DBB dbb;
+	VEC pools;
+	register PLB pool, *vector, *until;
+	register HNK hunks, hunk;
+
+	dbb = GET_DBB;
+
+	pools = dbb->dbb_pools;
+
+/* We release the database block simply to invalidate it's block type. */
+
+	ALL_release(reinterpret_cast < frb * >(dbb));
+
+	until = (PLB *) pools->vec_object;
+	for (vector = until + pools->vec_count; --vector >= until;)
+		if (pool = *vector) {
+#ifdef SUPERSERVER
+			if (trace_pools && pool->plb_blk_type_count) {
+				int i = 0;
+				for (i = 0; i < type_MAX; i++)
+					all_block_type_count[i] -= pool->plb_blk_type_count[i];
+				gds__free(pool->plb_blk_type_count);
+			}
+#endif
+			for (hunks = pool->plb_huge_hunks; hunk = hunks;) {
+				hunks = hunk->hnk_next;
+				gds__sys_free(hunk->hnk_address);
+			}
+			for (hunks = pool->plb_hunks; hunk = hunks;) {
+				hunks = hunk->hnk_next;
+#ifdef SUPERSERVER
+				all_delta_alloc -= gds__free(hunk->hnk_address);
+#else
+				gds__free(hunk->hnk_address);
+#endif
+			}
+		}
+}
+
+
+void ALL_free(SCHAR * memory)
+{
+/**************************************
+ *
+ *	A L L _ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Give space back to internal memory heap.
+ *	The process retains the memory for quick
+ *	reallocations.
+ *
+ **************************************/
+	DBB dbb;
+
+	dbb = GET_DBB;
+
+	V4_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_statistics);
+
+#ifdef SUPERSERVER
+	{
+		SLONG freed;
+		freed = gds__free(memory);
+		dbb->dbb_current_memory -= freed;
+		all_delta_alloc -= freed;
+	}
+#else
+	dbb->dbb_current_memory -= gds__free(memory);
+#endif
+
+	V4_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_statistics);
+}
+
+
+ULONG ALL_get_free_object(PLB pool, VEC * vector_ptr, USHORT increment)
+{
+/**************************************
+ *
+ *	A L L _ g e t _ f r e e _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a free slot in a vector.  If no
+ *	slot is available, extend the vector.
+ *	
+ **************************************/
+	VEC vector;
+	ULONG slot;
+	BLK *ptr, *end;
+
+	if (!(vector = *vector_ptr)) {
+		vector = *vector_ptr =
+			(VEC) ALL_alloc(pool, type_vec, increment, ERR_jmp);
+		vector->vec_count = increment;
+		slot = 0;
+	}
+	else {
+		BLKCHK(vector, type_vec);
+		for (ptr = vector->vec_object, end = ptr + vector->vec_count;
+			 ptr < end && *ptr; ptr++);
+		if (ptr < end)
+			slot = ptr - vector->vec_object;
+		else {
+			slot = vector->vec_count;
+			ALL_extend(reinterpret_cast < blk ** >(vector_ptr),
+					   slot + increment);
+		}
+	}
+
+	return slot;
+}
+
+
+void ALL_init(void)
+{
+/**************************************
+ *
+ *	A L L _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the pool system.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	SLONG temp_vector[20];
+	VEC vector;
+	PLB pool;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	dbb->dbb_pools = vector = (VEC) temp_vector;
+	vector->vec_count = 1;
+	vector->vec_object[0] = NULL;
+
+	tdbb->tdbb_default = dbb->dbb_permanent = pool = ALL_pool();
+	dbb->dbb_pools = vector = (VEC) ALL_alloc(pool, type_vec, 10, ERR_jmp);
+	vector->vec_count = 10;
+	vector->vec_object[0] = (BLK) pool;
+
+	dbb->dbb_bufferpool = ALL_pool();
+}
+
+
+SCHAR *ALL_malloc(ULONG size, ERR_T err_ret)
+{
+/**************************************
+ *
+ *	A L L _ m a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get memory from internal memory heap.
+ *
+ **************************************/
+	DBB dbb;
+	register SCHAR *memory;
+
+	if (memory = (SCHAR *) gds__alloc((SLONG) (size))) {
+		/* FREE:  Done at attachment detach, process exit, and other misc times */
+
+		dbb = GET_DBB;
+
+		V4_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_statistics);
+#ifdef SUPERSERVER
+		all_delta_alloc += size;
+#endif
+		dbb->dbb_current_memory += size;
+		if (dbb->dbb_current_memory > dbb->dbb_max_memory)
+			dbb->dbb_max_memory = dbb->dbb_current_memory;
+		V4_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_statistics);
+		return memory;
+	}
+
+/* NOMEM: post user level error */
+	if (err_ret == ERR_jmp)
+		ERR_post(gds__sys_request, gds_arg_string, "gds__alloc", gds_arg_gds,
+				 gds__virmemexh, 0);
+
+	return NULL;
+}
+
+
+PLB ALL_pool(void)
+{
+/**************************************
+ *
+ *	A L L _ p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a new pool.  This is done by creating a tempory
+ *	pool block on the stack, then allocating a real pool block.
+ *	In USHORT, by mirrors.
+ *
+ **************************************/
+	DBB dbb;
+	struct plb temp_pool;
+	register VEC vector;
+	register PLB pool;
+	register USHORT pool_id;
+
+	dbb = GET_DBB;
+
+	V4_RW_LOCK_LOCK(dbb->dbb_rw_locks + DBB_WLCK_pools, WLCK_write);
+
+/* Start by assigning a pool id */
+
+	vector = dbb->dbb_pools;
+
+	for (pool_id = 0; pool_id < vector->vec_count; pool_id++)
+		if (!(vector->vec_object[pool_id]))
+			break;
+
+	if (pool_id >= vector->vec_count)
+		vector =
+			(VEC) ALL_extend(reinterpret_cast < blk ** >(&dbb->dbb_pools),
+							 pool_id + 10);
+
+	vector->vec_object[pool_id] = (BLK) & temp_pool;
+	temp_pool.plb_free = NULL;
+	temp_pool.plb_hunks = NULL;
+	temp_pool.plb_pool_id = pool_id;
+	temp_pool.plb_extend_size = MIN_ALLOCATION;
+	temp_pool.plb_blk_type_count = NULL;
+#ifdef SUPERSERVER
+	if (trace_pools) {
+		temp_pool.plb_blk_type_count =
+			(SLONG *) gds__alloc(sizeof(all_block_type_count));
+		if (!temp_pool.plb_blk_type_count)
+			trace_pools = 0;	/* No memmory!! stop tracing pool info */
+		else
+			memset(temp_pool.plb_blk_type_count, 0,
+				   sizeof(all_block_type_count));
+	}
+#endif
+	V4_MUTEX_INIT(temp_pool.plb_mutex);
+	if (pool_id == 0) {
+		dbb->dbb_permanent = &temp_pool;
+		temp_pool.plb_extend_size = PERM_EXTEND_SIZE;
+	}
+	if (pool_id == 1)
+		temp_pool.plb_extend_size = CACH_EXTEND_SIZE;
+
+	pool = (PLB) ALL_alloc(&temp_pool, type_plb, 0, ERR_jmp);
+	pool->plb_pool_id = pool_id;
+	pool->plb_extend_size = temp_pool.plb_extend_size;
+	pool->plb_free = temp_pool.plb_free;
+	pool->plb_hunks = temp_pool.plb_hunks;
+#ifdef SUPERSERVER
+	pool->plb_blk_type_count = temp_pool.plb_blk_type_count;
+#endif
+	vector->vec_object[pool_id] = (BLK) pool;
+
+	V4_MUTEX_DESTROY(temp_pool.plb_mutex);
+	V4_MUTEX_INIT(pool->plb_mutex);
+
+	V4_RW_LOCK_UNLOCK(dbb->dbb_rw_locks + DBB_WLCK_pools);
+
+	if (pool_id == 0)
+		dbb->dbb_permanent = pool;
+
+	return pool;
+}
+
+
+void ALL_push(BLK object, register LLS * stack)
+{
+/**************************************
+ *
+ *	A L L _ p u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Push an object on an LLS stack.
+ *
+ **************************************/
+	TDBB tdbb;
+	register LLS node;
+	PLB pool;
+
+	tdbb = GET_THREAD_DATA;
+
+	pool = tdbb->tdbb_default;
+
+	V4_MUTEX_LOCK(pool->plb_mutex);
+
+	if (node = pool->plb_lls) {
+		pool->plb_lls = node->lls_next;
+		V4_MUTEX_UNLOCK(pool->plb_mutex);
+	}
+	else {
+		V4_MUTEX_UNLOCK(pool->plb_mutex);
+		node = (LLS) ALL_alloc(pool, type_lls, 0, ERR_jmp);
+	}
+
+	node->lls_object = object;
+	node->lls_next = *stack;
+	*stack = node;
+}
+
+
+BLK ALL_pop(register LLS * stack)
+{
+/**************************************
+ *
+ *	A L L _ p o p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pop an object off a linked list stack.  Save the node for
+ *	further use.
+ *
+ **************************************/
+	register LLS node;
+	register PLB pool;
+	BLK object;
+
+	node = *stack;
+	*stack = node->lls_next;
+	object = node->lls_object;
+
+	pool = find_pool((BLK) node);
+	V4_MUTEX_LOCK(pool->plb_mutex);
+	node->lls_next = pool->plb_lls;
+	pool->plb_lls = node;
+	V4_MUTEX_UNLOCK(pool->plb_mutex);
+
+	return object;
+}
+
+
+#ifdef SUPERSERVER
+void ALL_print_memory_pool_info(IB_FILE * fptr, DBB databases)
+{
+/***********************************************************
+ *
+ *	A L L _ p r i n t _ m e m o r y _ p o o l _ i n f o
+ *
+ ***********************************************************
+ *
+ * Functional description
+ *	Print the different block types allocated in the pool.
+ *	Walk the dbb's to print out pool info of every database
+ *
+ **************************************/
+	DBB dbb;
+	STR string;
+	VEC vector;
+	PLB myPool;
+	HNK hnk;
+	ATT att;
+	int i, j, k, col;
+
+	ib_fprintf(fptr, "\n\tALL_xx block types\n");
+	ib_fprintf(fptr, "\t------------------");
+	for (i = 0, col = 0; i < type_MAX; i++)
+		if (all_block_type_count[i]) {
+			if (col % 5 == 0)
+				ib_fprintf(fptr, "\n\t");
+			ib_fprintf(fptr, "%s = %d  ", ALL_types[i],
+					   all_block_type_count[i]);
+			++col;
+		}
+	ib_fprintf(fptr, "\n");
+
+	for (i = 0, dbb = databases; dbb; dbb = dbb->dbb_next, ++i);
+	ib_fprintf(fptr, "\tNo of dbbs = %d\n", i);
+	for (k = 1, dbb = databases; dbb; dbb = dbb->dbb_next, ++k) {
+		string = dbb->dbb_filename;
+		ib_fprintf(fptr, "\n\t dbb%d -> %s\n", k, string->str_data);
+		vector = (VEC) dbb->dbb_pools;
+		for (j = 0, i = 0; i < (int) vector->vec_count; i++) {
+			myPool = (PLB) vector->vec_object[i];
+			if (myPool)
+				++j;
+		}
+		ib_fprintf(fptr, "\t    %s has %d pools", string->str_data, j);
+		for (j = 0, att = dbb->dbb_attachments; att; att = att->att_next)
+			j++;
+		ib_fprintf(fptr, " and %d attachment(s)", j);
+		for (i = 0; i < (int) vector->vec_count; i++) {
+			myPool = (PLB) vector->vec_object[i];
+			if (!myPool)
+				continue;
+			ib_fprintf(fptr, "\n\t    Pool %d", myPool->plb_pool_id);
+			for (j = 0, hnk = myPool->plb_hunks; hnk; hnk = hnk->hnk_next)
+				j++;
+			if (j)
+				ib_fprintf(fptr, " has %d hunks", j);
+			for (j = 0, hnk = myPool->plb_huge_hunks; hnk;
+				 hnk = hnk->hnk_next) j++;
+			if (j)
+				ib_fprintf(fptr, " and %d huge_hunks", j);
+			ib_fprintf(fptr, " Extend size is %d", myPool->plb_extend_size);
+			for (j = 0, col = 0; j < type_MAX; j++)
+				if (myPool->plb_blk_type_count[j]) {
+					if (col % 5 == 0)
+						ib_fprintf(fptr, "\n\t    ");
+					ib_fprintf(fptr, "%s = %d  ", ALL_types[j],
+							   myPool->plb_blk_type_count[j]);
+					++col;
+				}
+		}
+	}
+}
+#endif
+
+
+void ALL_release(register FRB block)
+{
+/**************************************
+ *
+ *	A L L _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block to its pool.  If it is contiguous to
+ *	another free block, combine them.  Otherwise link it
+ *	into the free block linked list (kept in ascending order
+ *	of addresses).
+ *
+ **************************************/
+
+/* TMN: Here we should probably have the following assert */
+/* assert(block); */
+	release(block, find_pool(block ? &block->frb_header : (BLK) 0));
+}
+
+
+void ALL_rlpool(PLB pool)
+{
+/**************************************
+ *
+ *	A L L _ r l p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a storage pool.  This involves nothing more than returning
+ *	hunks to the free hunk list.
+ *
+ **************************************/
+	DBB dbb;
+	register HNK hunks, hunk;
+
+	dbb = GET_DBB;
+
+	V4_RW_LOCK_LOCK(dbb->dbb_rw_locks + DBB_WLCK_pools, WLCK_write);
+	dbb->dbb_pools->vec_object[pool->plb_pool_id] = NULL;
+	V4_RW_LOCK_UNLOCK(dbb->dbb_rw_locks + DBB_WLCK_pools);
+
+	V4_MUTEX_DESTROY(pool->plb_mutex);
+
+#ifdef SUPERSERVER
+	if (trace_pools && pool->plb_blk_type_count) {
+		int i = 0;
+		for (i = 0; i < type_MAX; i++)
+			all_block_type_count[i] -= pool->plb_blk_type_count[i];
+		gds__free(pool->plb_blk_type_count);
+	}
+#endif
+
+	for (hunks = pool->plb_huge_hunks; hunk = hunks;) {
+		hunks = hunk->hnk_next;
+		ALL_sys_free(hunk->hnk_address);
+	}
+	for (hunks = pool->plb_hunks; hunk = hunks;) {
+		hunks = hunk->hnk_next;
+		ALL_free(hunk->hnk_address);
+	}
+}
+
+
+SCHAR *ALL_sys_alloc(ULONG size, ERR_T err_ret)
+{
+/**************************************
+ *
+ *	A L L _ s y s _  a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get memory from OS in such a way
+ *	that it can be freed back to OS.
+ *
+ **************************************/
+	DBB dbb;
+	register SCHAR *memory;
+
+	if (memory = (SCHAR *) gds__sys_alloc((SLONG) size)) {
+		/* FREE:  Done at attachment detach, process exit, and other misc times */
+
+		dbb = GET_DBB;
+
+		V4_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_statistics);
+		dbb->dbb_current_memory += size;
+		if (dbb->dbb_current_memory > dbb->dbb_max_memory)
+			dbb->dbb_max_memory = dbb->dbb_current_memory;
+		V4_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_statistics);
+		return memory;
+	}
+
+/* NOMEM: post user level error */
+	if (err_ret == ERR_jmp)
+		ERR_post(gds__sys_request, gds_arg_string, "gds__sys_alloc",
+				 gds_arg_gds, gds__virmemexh, 0);
+
+	return NULL;
+}
+
+
+void ALL_sys_free(SCHAR * memory)
+{
+/**************************************
+ *
+ *	A L L _ s y s _ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Give space back to OS ... really!
+ *
+ **************************************/
+	DBB dbb;
+
+	dbb = GET_DBB;
+
+	V4_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_statistics);
+
+	dbb->dbb_current_memory -= gds__sys_free(memory);
+
+	V4_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_statistics);
+}
+
+
+ULONG ALL_tail(UCHAR type)
+{
+/**************************************
+ *
+ *	A L L _ t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute maximum repeating tail count.
+ *
+ **************************************/
+	ULONG root, tail;
+
+	if (type <= (UCHAR) type_MIN || type >= (SCHAR) type_MAX)
+		BUGCHECK(150);			/* msg 150 request to allocate invalid block type */
+
+/* Compute repeating tail count */
+
+	root = block_sizes[type].typ_root_length;
+	if (!(tail = block_sizes[type].typ_tail_length))
+		return 0;
+
+	return ((MAX_BLOCK - MIN_ALLOC - root) / tail) + FUDGE;
+}
+
+
+VEC ALL_vector(PLB pool, VEC* ptr, USHORT count)
+{
+/**************************************
+ *
+ *	A L L _ v e c t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate, extend, or no-op a vector making sure it is "long enough".
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	VEC vector;
+
+	++count;
+
+	if (!(vector = *ptr)) {
+		vector = *ptr = (VEC) ALL_alloc(pool, type_vec, count, ERR_jmp);
+		vector->vec_count = count;
+		return vector;
+	}
+
+	BLKCHK(vector, type_vec);
+
+	if (vector->vec_count >= count)
+		return vector;
+
+	return (VEC) ALL_extend(reinterpret_cast < blk ** >(ptr), count);
+}
+
+
+static BLK alloc_huge_hunk(PLB pool, UCHAR type, ULONG size, ERR_T err_ret)
+{
+/**************************************
+ *
+ *	a l l o c _ h u g e _ h u n k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a hunk of memory larger than
+ *	MAX_BLOCK.  Link it into a special
+ *	list of huge hunks belonging to the pool.
+ *
+ **************************************/
+	HNK hunk;
+	BLK block;
+	ULONG minimum_size;
+
+	minimum_size = size + sizeof(struct hnk);
+	size =
+		(minimum_size + MIN_ALLOCATION - 1) & ~((ULONG) MIN_ALLOCATION - 1);
+
+	if (!(hunk = (HNK) ALL_sys_alloc((ULONG) size, err_ret)))
+		return 0;
+	hunk->hnk_header.blk_length = sizeof(struct hnk) >> SHIFT;
+	hunk->hnk_header.blk_type = (UCHAR) type_hnk;
+/* TMN: Here we should really have the following assert */
+/* assert(pool->plb_pool_id <= MAX_UCHAR); */
+	hunk->hnk_header.blk_pool_id = (UCHAR) pool->plb_pool_id;
+	hunk->hnk_address = (SCHAR *) hunk;
+	hunk->hnk_length = size;
+	V4_MUTEX_LOCK(pool->plb_mutex);
+	hunk->hnk_next = pool->plb_huge_hunks;
+	pool->plb_huge_hunks = hunk;
+	V4_MUTEX_UNLOCK(pool->plb_mutex);
+
+	block = (BLK) (hunk + 1);
+	MOVE_CLEAR(block, size - sizeof(struct hnk));
+	block->blk_length = 0;
+	block->blk_type = type;
+/* TMN: Here we should really have the following assert */
+/* assert(pool->plb_pool_id <= MAX_UCHAR); */
+	block->blk_pool_id = (UCHAR) pool->plb_pool_id;
+
+	return block;
+}
+
+
+static BOOLEAN extend_pool(PLB pool, ULONG size, ERR_T err_ret)
+{
+/**************************************
+ *
+ *	e x t e n d _ p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend a pool by at least enough to accomodate a block
+ *	of given size.
+ *
+ **************************************/
+	register HNK hunk;
+	register BLK block;
+	ULONG minimum_size, extend_size;
+
+	minimum_size = size + sizeof(struct hnk);
+
+/* Keep minimum allocation roundup for blocks larger than pool
+   extend size. */
+
+	extend_size = (ULONG) pool->plb_extend_size;
+	if (extend_size < minimum_size)
+		extend_size = MIN_ALLOCATION;
+
+	size = (minimum_size + extend_size - 1) & ~(extend_size - 1);
+
+	if (!(block = (BLK) ALL_malloc((ULONG) size, err_ret)))
+		return FALSE;
+/* TMN: Here we should really have the following assert */
+/* assert((size >> SHIFT) <= MAX_USHORT); */
+	block->blk_length = (USHORT) (size >> SHIFT);
+	block->blk_type = (UCHAR) type_frb;
+/* TMN: Here we should really have the following assert */
+/* assert(pool->plb_pool_id <= MAX_UCHAR); */
+	block->blk_pool_id = (UCHAR) pool->plb_pool_id;
+#ifdef SUPERSERVER
+	if (trace_pools) {
+		++all_block_type_count[block->blk_type];
+		++pool->plb_blk_type_count[block->blk_type];
+	}
+#endif
+	release(reinterpret_cast < frb * >(block), pool);
+
+	if (!(hunk = (HNK) ALL_alloc(pool, type_hnk, 0, err_ret)))
+		return FALSE;
+	hunk->hnk_address = (SCHAR *) block;
+	hunk->hnk_length = size;
+
+	V4_MUTEX_LOCK(pool->plb_mutex);
+	hunk->hnk_next = pool->plb_hunks;
+	pool->plb_hunks = hunk;
+	V4_MUTEX_UNLOCK(pool->plb_mutex);
+	return TRUE;
+}
+
+
+static ULONG find_block_length(BLK block)
+{
+/**************************************
+ *
+ *	f i n d _ b l o c k _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	The blocks that are associated with huge
+ *	hunks always have a zero block length.
+ *	Their length can be determined indirectly,
+ *	using the length of the hunk.
+ *
+ **************************************/
+	HNK hunk;
+
+	hunk = (HNK) block - 1;
+
+	return (hunk->hnk_length - sizeof(struct hnk));
+}
+
+
+static PLB find_pool(BLK block)
+{
+/**************************************
+ *
+ *	f i n d _ p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find pool associate with block.
+ *
+ **************************************/
+	DBB dbb;
+	VEC pools;
+	PLB pool;
+	HNK hunk;
+	USHORT pool_id, huge_flag;
+#ifdef V4_THREADING
+	USHORT dbb_pool_flag;
+#endif
+
+	dbb = GET_DBB;
+
+#ifdef V4_THREADING
+	if (!(dbb_pool_flag = (block == (BLK) dbb->dbb_pools)))
+		V4_RW_LOCK_LOCK(dbb->dbb_rw_locks + DBB_WLCK_pools, WLCK_read);
+#endif
+
+	pools = dbb->dbb_pools;
+
+/* Turn on this optimization someday */
+
+	if (pools->vec_count < 256)
+		if ((pool_id = block->blk_pool_id) < pools->vec_count &&
+			(pool = (PLB) pools->vec_object[pool_id])) {
+#ifdef V4_THREADING
+			if (!dbb_pool_flag)
+				V4_RW_LOCK_UNLOCK(dbb->dbb_rw_locks + DBB_WLCK_pools);
+#endif
+			return pool;
+		}
+		else {
+#ifdef V4_THREADING
+			if (!dbb_pool_flag)
+				V4_RW_LOCK_UNLOCK(dbb->dbb_rw_locks + DBB_WLCK_pools);
+#endif
+			BUGCHECK(153);
+		}
+
+	huge_flag = (block->blk_length) ? FALSE : TRUE;
+
+	for (pool_id = block->blk_pool_id; pool_id < pools->vec_count;
+		 pool_id += 256)
+		if (pool = (PLB) pools->vec_object[pool_id]) {
+			hunk = (huge_flag) ? pool->plb_huge_hunks : pool->plb_hunks;
+			for (; hunk; hunk = hunk->hnk_next)
+				if ((SCHAR HUGE_PTR *) block >=
+					(SCHAR HUGE_PTR *) hunk->hnk_address
+					&& (SCHAR HUGE_PTR *) block <
+					(SCHAR HUGE_PTR *) hunk->hnk_address + hunk->hnk_length) {
+#ifdef V4_THREADING
+					if (!dbb_pool_flag)
+						V4_RW_LOCK_UNLOCK(dbb->dbb_rw_locks + DBB_WLCK_pools);
+#endif
+					return pool;
+				}
+		}
+
+#ifdef V4_THREADING
+	if (!dbb_pool_flag)
+		V4_RW_LOCK_UNLOCK(dbb->dbb_rw_locks + DBB_WLCK_pools);
+#endif
+	BUGCHECK(153);				/* msg 153 invalid pool id encountered */
+/* Harbor Software: */
+/* this code should not be reached. */
+	return NULL;
+}
+
+
+static void release(FRB block, PLB pool)
+{
+/**************************************
+ *
+ *	r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block to its pool.  If it is contiguous to
+ *	another free block, combine them.  Otherwise link it
+ *	into the free block linked list (kept in ascending order
+ *	of addresses).
+ *
+ **************************************/
+	register FRB prior, free;
+	FRB *ptr;
+	ULONG length;
+#ifdef SUPERSERVER
+	UCHAR blk_header_type;
+#endif
+
+	V4_MUTEX_LOCK(pool->plb_mutex);
+
+	if (!block->frb_header.blk_length) {
+		/* A block with no length indicates a HUGE hunk.  Find it and free it. */
+
+		HNK hunk, *ptr;
+
+		for (ptr = &pool->plb_huge_hunks; hunk = *ptr; ptr = &hunk->hnk_next)
+			if ((SCHAR *) block >= (SCHAR *) hunk->hnk_address &&
+				(SCHAR *) block <
+				(SCHAR *) hunk->hnk_address + hunk->hnk_length) {
+				*ptr = hunk->hnk_next;
+				V4_MUTEX_UNLOCK(pool->plb_mutex);
+				ALL_sys_free(hunk->hnk_address);
+				return;
+			}
+		V4_MUTEX_UNLOCK(pool->plb_mutex);
+		BUGCHECK(154);			/* msg 154 attempt to release free block */
+	}
+
+#ifdef SUPERSERVER
+	blk_header_type = block->frb_header.blk_type;
+#endif
+	block->frb_header.blk_type = (UCHAR) type_frb;
+	prior = NULL;
+
+#ifdef DEBUG_GDS_ALLOC
+/* Debugging code to erase memory locations after a release - 
+ * this will assist in catching dangling memory references to
+ * freed locations.
+ * Note that the header parts of the freed block may still be used,
+ * for the free chain, so we don't zap those locations.
+ */
+
+/* Pattern to set "released" memory to */
+#define ALL_RELEASED_FREE_PATTERN	0xBB
+	{
+		ULONG units, size;
+		units = block->frb_header.blk_length;
+		size = (units << SHIFT) - sizeof(*block);
+		memset(((UCHAR *) block) + sizeof(*block), ALL_RELEASED_FREE_PATTERN,
+			   size);
+	};
+#endif /* DEBUG_GDS_ALLOC */
+
+	for (ptr = &pool->plb_free; free = *ptr;
+		 prior = free, ptr =
+		 &free->frb_next) if ((SCHAR HUGE_PTR *) block <=
+							  (SCHAR HUGE_PTR *) free) break;
+
+	if ((SCHAR HUGE_PTR *) block == (SCHAR HUGE_PTR *) free) {
+		V4_MUTEX_UNLOCK(pool->plb_mutex);
+		BUGCHECK(154);			/* msg 154 attempt to release free block */
+	}
+
+/* Merge block into list first, then try to combine blocks */
+
+	block->frb_next = free;
+	*ptr = block;
+
+/* Try to merge the free block with the next one down. */
+
+	length = block->frb_header.blk_length << SHIFT;
+
+	if (free) {
+		if ((SCHAR HUGE_PTR *) block + length == (SCHAR HUGE_PTR *) free) {
+			block->frb_header.blk_length += free->frb_header.blk_length;
+			block->frb_next = free->frb_next;
+#ifdef DEBUG_GDS_ALLOC
+			/* We've joined the blocks, so paint the header of the merged away 
+			 * block as freed.
+			 */
+			memset(((UCHAR *) free), ALL_RELEASED_FREE_PATTERN,
+				   sizeof(*free));
+#endif
+		}
+		else if ((SCHAR HUGE_PTR *) block + length > (SCHAR HUGE_PTR *) free) {
+			V4_MUTEX_UNLOCK(pool->plb_mutex);
+			BUGCHECK(155);		/* msg 155 attempt to release block overlapping following free block */
+		}
+	}
+
+/* Try and merge the block with the prior free block */
+
+	if (prior && (length = prior->frb_header.blk_length << SHIFT)) {
+		if ((SCHAR HUGE_PTR *) prior + length == (SCHAR HUGE_PTR *) block) {
+			prior->frb_header.blk_length += block->frb_header.blk_length;
+			prior->frb_next = block->frb_next;
+#ifdef DEBUG_GDS_ALLOC
+			/* We've joined the blocks, so paint the header of the merged away 
+			 * block as freed.
+			 */
+			memset(((UCHAR *) block), ALL_RELEASED_FREE_PATTERN,
+				   sizeof(*block));
+#endif
+		}
+		else if ((SCHAR HUGE_PTR *) prior + length > (SCHAR HUGE_PTR *) block) {
+			V4_MUTEX_UNLOCK(pool->plb_mutex);
+			BUGCHECK(156);		/* msg 156 attempt to release block overlapping prior free block */
+		}
+	}
+
+#ifdef SUPERSERVER
+	if (trace_pools) {
+		--all_block_type_count[blk_header_type];
+		--pool->plb_blk_type_count[blk_header_type];
+	}
+#endif
+
+	V4_MUTEX_UNLOCK(pool->plb_mutex);
+}
+
+
+} // extern "C"
diff --git a/src/jrd/all.h b/src/jrd/all.h
new file mode 100644
index 0000000000..eb3c32b1ee
--- /dev/null
+++ b/src/jrd/all.h
@@ -0,0 +1,101 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		all.h
+ *	DESCRIPTION:	Block allocator blocks
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_ALL_H_
+#define _JRD_ALL_H_
+
+#if ALIGNMENT == 8
+#define MIN_ALLOC	8
+#else
+#define MIN_ALLOC	4
+#endif
+
+/* MAX_BLOCK for OS/2 is calculated by taking the max memory
+   available in a segment (65534 bytes), subtracting 4 bytes
+   for a length, 8 bytes for a free block, and 2 bytes to 
+   allow rounding to a 4 byte boundary */
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+#define MAX_BLOCK	65520
+#else
+#define MAX_BLOCK	(262144 - MIN_ALLOCATION - sizeof (struct hnk) - 8)
+#endif
+
+#define	FUDGE		1
+
+#define SHIFT		SHIFTLONG
+
+#define MIN_ALLOCATION	1024	/* Minimum allocation from operating system */
+
+/* Prevent shared memory pools from fragmenting into very long
+   free block lists. Any hunk residual larger than a free block
+   structure will lengthen the free list. A larger extend size
+   reduces the number of times the pool is extended and reduces
+   the length of the free block list. */
+
+#ifdef SUPERSERVER
+#define PERM_EXTEND_SIZE	(16 * MIN_ALLOCATION)
+#define CACH_EXTEND_SIZE	(16 * MIN_ALLOCATION)
+#else
+#define PERM_EXTEND_SIZE	MIN_ALLOCATION
+#define CACH_EXTEND_SIZE	MIN_ALLOCATION
+#endif
+
+#define EXTEND(vector_count)	vector_count + vector_count % 10
+
+
+
+/* Free block */
+
+typedef struct frb {
+	struct blk frb_header;
+	struct frb *frb_next;		/* Next free block in pool */
+} *FRB;
+
+/* Pool block */
+
+typedef struct plb {
+	struct blk plb_header;
+	USHORT plb_pool_id;			/* pool id */
+	USHORT plb_extend_size;		/* pool extend size */
+	struct frb *plb_free;		/* first free block */
+	struct hnk *plb_hunks;		/* first hunk block */
+	struct hnk *plb_huge_hunks;	/* first huge hunk block (blocks > MAX_BLOCK) */
+	struct lls *plb_lls;		/* available linked list stack nodes */
+	struct dcc *plb_dccs;		/* available data compression control blocks */
+	struct sbm *plb_buckets;	/* available bit map buckets */
+	struct bms *plb_segments;	/* available bit map segments */
+	MUTX plb_mutex[1];
+	SLONG *plb_blk_type_count;	/* array to keep track of block types */
+} *PLB;
+
+/* Hunk blocks */
+
+typedef struct hnk {
+	struct blk hnk_header;
+	SCHAR *hnk_address;			/* start of memory hunk */
+	SLONG hnk_length;			/* length of memory hunk */
+	struct hnk *hnk_next;		/* next memory hunk in structure */
+} *HNK;
+
+#endif /* _JRD_ALL_H_ */
diff --git a/src/jrd/all_proto.h b/src/jrd/all_proto.h
new file mode 100644
index 0000000000..03bab37fd4
--- /dev/null
+++ b/src/jrd/all_proto.h
@@ -0,0 +1,61 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		all_proto.h
+ *	DESCRIPTION:	Prototype header file for all.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_ALL_PROTO_H
+#define JRD_ALL_PROTO_H
+
+#include "../jrd/jrd.h"
+#include "../jrd/all.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+struct blk *ALL_alloc(struct plb *, UCHAR, ULONG, enum err_t);
+#ifdef DEV_BUILD
+void ALL_check_memory(void);
+#endif
+TEXT *ALL_cstring(TEXT *);
+struct blk *ALL_extend(struct blk **, ULONG);
+void ALL_fini(void);
+void ALL_free(SCHAR *);
+ULONG ALL_get_free_object(struct plb *, struct vec **, USHORT);
+void ALL_init(void);
+SCHAR *ALL_malloc(ULONG, enum err_t);
+struct plb *ALL_pool(void);
+void ALL_push(struct blk *, register struct lls **);
+struct blk *ALL_pop(register struct lls **);
+void ALL_release(register struct frb *);
+void ALL_rlpool(struct plb *);
+SCHAR *ALL_sys_alloc(ULONG, enum err_t);
+void ALL_sys_free(SCHAR *);
+ULONG ALL_tail(UCHAR);
+struct vec *ALL_vector(struct plb *, struct vec **, USHORT);
+
+#define ALL_RELEASE(block)	ALL_release ((struct frb *) block)
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_ALL_PROTO_H */
diff --git a/src/jrd/alt.cpp b/src/jrd/alt.cpp
new file mode 100644
index 0000000000..db1529af2b
--- /dev/null
+++ b/src/jrd/alt.cpp
@@ -0,0 +1,1420 @@
+/*
+ *      PROGRAM:        JRD Access Method
+ *      MODULE:         alt.c
+ *      DESCRIPTION:    Alternative entrypoints
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+
+#define IS_VALID_SERVER(server) if (!server || !*server) \
+				    { \
+                                    status[0] = isc_arg_gds; \
+                                    status[1] = isc_bad_protocol; \
+                                    status[2] = isc_arg_end; \
+                                    return NULL; \
+				    }
+
+#include <stdarg.h>
+
+#include "../jrd/pwd.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/utl_proto.h"
+#include "../jrd/why_proto.h"
+#include "../utilities/gsec.h"
+#include "../utilities/secur_proto.h"
+
+typedef struct teb {
+	void **teb_database;
+	int teb_tpb_length;
+	UCHAR *teb_tpb;
+} TEB;
+
+void *open_security_db(STATUS *, TEXT *, TEXT *, int, TEXT *);
+void get_security_error(STATUS *, int);
+
+SLONG API_ROUTINE_VARARG isc_event_block(SCHAR ** event_buffer,
+										 SCHAR ** result_buffer,
+										 USHORT count, ...)
+{
+/**************************************
+ *
+ *      i s c _ e v e n t _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create an initialized event parameter block from a
+ *      variable number of input arguments.
+ *      Return the size of the block.
+ *
+ *	Return 0 if any error occurs.
+ *
+ **************************************/
+	register SCHAR *p, *q;
+	SCHAR *end;
+	SLONG length;
+	USHORT i;
+	va_list ptr;
+
+	VA_START(ptr, count);
+
+/* calculate length of event parameter block, 
+   setting initial length to include version
+   and counts for each argument */
+
+	length = 1;
+	i = count;
+	while (i--) {
+		q = va_arg(ptr, SCHAR *);
+		length += strlen(q) + 5;
+	}
+
+	p = *event_buffer = (SCHAR *) gds__alloc((SLONG) length);
+/* FREE: apparently never freed */
+	if (!*event_buffer)			/* NOMEM: */
+		return 0;
+	if ((*result_buffer = (SCHAR *) gds__alloc((SLONG) length)) == NULL) {	/* NOMEM: */
+		/* FREE: apparently never freed */
+		gds__free(*event_buffer);
+		*event_buffer = NULL;
+		return 0;
+	}
+
+#ifdef DEBUG_GDS_ALLOC
+/* I can find no place where these are freed */
+/* 1994-October-25 David Schnepper  */
+	gds_alloc_flag_unfreed((void *) *event_buffer);
+	gds_alloc_flag_unfreed((void *) *result_buffer);
+#endif /* DEBUG_GDS_ALLOC */
+
+/* initialize the block with event names and counts */
+
+	*p++ = 1;
+
+	VA_START(ptr, count);
+
+	i = count;
+	while (i--) {
+		q = va_arg(ptr, SCHAR *);
+
+		/* Strip the blanks from the ends */
+
+		for (end = q + strlen(q); --end >= q && *end == ' ';);
+		*p++ = end - q + 1;
+		while (q <= end)
+			*p++ = *q++;
+		*p++ = 0;
+		*p++ = 0;
+		*p++ = 0;
+		*p++ = 0;
+	}
+
+	return (int) (p - *event_buffer);
+}
+
+
+USHORT API_ROUTINE isc_event_block_a(SCHAR ** event_buffer,
+									 SCHAR ** result_buffer,
+									 USHORT count, TEXT ** name_buffer)
+{
+/**************************************
+ *
+ *	i s c _ e v e n t _ b l o c k _ a 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an initialized event parameter block from a
+ *	vector of input arguments. (Ada needs this)
+ *	Assume all strings are 31 characters long.
+ *	Return the size of the block.
+ *
+ **************************************/
+#define 	MAX_NAME_LENGTH		31
+	register SCHAR *p, *q;
+	SCHAR *end;
+	TEXT **nb;
+	SLONG length;
+	USHORT i;
+
+/* calculate length of event parameter block, 
+   setting initial length to include version
+   and counts for each argument */
+
+	i = count;
+	nb = name_buffer;
+	length = 0;
+	while (i--) {
+		q = *nb++;
+
+		/* Strip trailing blanks from string */
+
+		for (end = q + MAX_NAME_LENGTH; --end >= q && *end == ' ';);
+		length += end - q + 1 + 5;
+	}
+
+
+	i = count;
+	p = *event_buffer = (SCHAR *) gds__alloc((SLONG) length);
+/* FREE: apparently never freed */
+	if (!(*event_buffer))		/* NOMEM: */
+		return 0;
+	if ((*result_buffer = (SCHAR *) gds__alloc((SLONG) length)) == NULL) {	/* NOMEM: */
+		/* FREE: apparently never freed */
+		gds__free(*event_buffer);
+		*event_buffer = NULL;
+		return 0;
+	}
+
+#ifdef DEBUG_GDS_ALLOC
+/* I can find no place where these are freed */
+/* 1994-October-25 David Schnepper  */
+	gds_alloc_flag_unfreed((void *) *event_buffer);
+	gds_alloc_flag_unfreed((void *) *result_buffer);
+#endif /* DEBUG_GDS_ALLOC */
+
+	*p++ = 1;
+
+	nb = name_buffer;
+
+	while (i--) {
+		q = *nb++;
+
+		/* Strip trailing blanks from string */
+
+		for (end = q + MAX_NAME_LENGTH; --end >= q && *end == ' ';);
+		*p++ = end - q + 1;
+		while (q <= end)
+			*p++ = *q++;
+		*p++ = 0;
+		*p++ = 0;
+		*p++ = 0;
+		*p++ = 0;
+	}
+
+	return (p - *event_buffer);
+}
+
+
+void API_ROUTINE isc_event_block_s(
+								   SCHAR ** event_buffer,
+								   SCHAR ** result_buffer,
+								   USHORT count,
+TEXT ** name_buffer, USHORT * return_count)
+{
+/**************************************
+ *
+ *	i s c _ e v e n t _ b l o c k _ s
+ *
+ **************************************
+ *
+ * Functional description
+ *	THIS IS THE COBOL VERSION of gds__event_block_a for Cobols
+ *	that don't permit return values.
+ *
+ **************************************/
+
+	*return_count =
+		isc_event_block_a(event_buffer, result_buffer, count, name_buffer);
+}
+
+
+STATUS API_ROUTINE_VARARG gds__start_transaction(
+												 STATUS * status_vector,
+												 void **tra_handle,
+												 SSHORT count, ...)
+{
+	TEB tebs[16], *teb, *end;
+	STATUS status;
+	va_list ptr;
+
+	if (count <= sizeof(tebs) / sizeof(struct teb))
+		teb = tebs;
+	else
+		teb = (TEB *) gds__alloc(((SLONG) sizeof(struct teb) * count));
+	/* FREE: later in this module */
+
+	if (!teb) {					/* NOMEM: */
+		status_vector[0] = gds_arg_gds;
+		status_vector[1] = gds_virmemexh;
+		status_vector[2] = gds_arg_end;
+		return status_vector[1];
+	}
+
+	end = teb + count;
+	VA_START(ptr, count);
+
+	for (; teb < end; teb++) {
+		teb->teb_database = va_arg(ptr, void **);
+		teb->teb_tpb_length = va_arg(ptr, int);
+		teb->teb_tpb = va_arg(ptr, UCHAR *);
+	}
+
+	teb = end - count;
+
+	status = isc_start_multiple(status_vector, tra_handle, count, teb);
+
+	if (teb != tebs)
+		gds__free(teb);
+
+	return status;
+}
+
+
+STATUS API_ROUTINE gds__attach_database(STATUS * status_vector,
+										SSHORT file_length,
+										SCHAR * file_name,
+										void **db_handle,
+										SSHORT dpb_length, SCHAR * dpb)
+{
+	return isc_attach_database(GDS_VAL(status_vector),
+							   file_length,
+							   GDS_VAL(file_name),
+							   GDS_VAL(db_handle), dpb_length, GDS_VAL(dpb));
+}
+
+STATUS API_ROUTINE gds__blob_info(STATUS * status_vector,
+								  void **blob_handle,
+								  SSHORT msg_length,
+								  SCHAR * msg,
+								  SSHORT buffer_length, SCHAR * buffer)
+{
+	return isc_blob_info(GDS_VAL(status_vector),
+						 GDS_VAL(blob_handle),
+						 msg_length,
+						 GDS_VAL(msg), buffer_length, GDS_VAL(buffer));
+}
+
+STATUS API_ROUTINE gds__cancel_blob(STATUS * status_vector,
+									void **blob_handle)
+{
+	return isc_cancel_blob(GDS_VAL(status_vector), GDS_VAL(blob_handle));
+}
+
+STATUS API_ROUTINE gds__cancel_events(STATUS * status_vector,
+									  void **db_handle, SLONG * event_id)
+{
+	return isc_cancel_events(GDS_VAL(status_vector),
+							 GDS_VAL(db_handle), GDS_VAL(event_id));
+}
+
+STATUS API_ROUTINE gds__close_blob(STATUS * status_vector, void **blob_handle)
+{
+	return isc_close_blob(GDS_VAL(status_vector), GDS_VAL(blob_handle));
+}
+
+STATUS API_ROUTINE gds__commit_retaining(STATUS * status_vector,
+										 void **tra_handle)
+{
+	return isc_commit_retaining(GDS_VAL(status_vector), GDS_VAL(tra_handle));
+}
+
+STATUS API_ROUTINE gds__commit_transaction(STATUS * status_vector,
+										   void **tra_handle)
+{
+	return isc_commit_transaction(GDS_VAL(status_vector),
+								  GDS_VAL(tra_handle));
+}
+
+STATUS API_ROUTINE gds__compile_request(STATUS * status_vector,
+										void **db_handle,
+										void **req_handle,
+										SSHORT blr_length, SCHAR * blr)
+{
+	return isc_compile_request(GDS_VAL(status_vector),
+							   GDS_VAL(db_handle),
+							   GDS_VAL(req_handle), blr_length, GDS_VAL(blr));
+}
+
+STATUS API_ROUTINE gds__compile_request2(STATUS * status_vector,
+										 void **db_handle,
+										 void **req_handle,
+										 SSHORT blr_length, SCHAR * blr)
+{
+	return isc_compile_request2(GDS_VAL(status_vector),
+								GDS_VAL(db_handle),
+								GDS_VAL(req_handle),
+								blr_length, GDS_VAL(blr));
+}
+
+STATUS API_ROUTINE gds__create_blob(STATUS * status_vector,
+									void **db_handle,
+									void **tra_handle,
+									void **blob_handle, GDS_QUAD * blob_id)
+{
+	return isc_create_blob(GDS_VAL(status_vector),
+						   GDS_VAL(db_handle),
+						   GDS_VAL(tra_handle),
+						   GDS_VAL(blob_handle), GDS_VAL(blob_id));
+}
+
+STATUS API_ROUTINE gds__create_blob2(STATUS * status_vector,
+									 void **db_handle,
+									 void **tra_handle,
+									 void **blob_handle,
+									 GDS_QUAD * blob_id,
+									 SSHORT bpb_length, SCHAR * bpb)
+{
+	return isc_create_blob2(GDS_VAL(status_vector),
+							GDS_VAL(db_handle),
+							GDS_VAL(tra_handle),
+							GDS_VAL(blob_handle),
+							GDS_VAL(blob_id), bpb_length, GDS_VAL(bpb));
+}
+
+STATUS API_ROUTINE gds__create_database(STATUS * status_vector,
+										SSHORT file_length,
+										SCHAR * file_name,
+										void **db_handle,
+										SSHORT dpb_length,
+										SCHAR * dpb, SSHORT db_type)
+{
+	return isc_create_database(GDS_VAL(status_vector),
+							   file_length,
+							   GDS_VAL(file_name),
+							   GDS_VAL(db_handle),
+							   dpb_length, GDS_VAL(dpb), db_type);
+}
+
+STATUS API_ROUTINE isc_database_cleanup(STATUS * status_vector,
+										void **db_handle,
+										void (*routine) (), SCHAR * arg)
+{
+
+	return gds__database_cleanup(GDS_VAL(status_vector),
+								 (struct hndl **) db_handle,
+								 routine, (SLONG) arg);
+}
+
+STATUS API_ROUTINE gds__database_info(STATUS * status_vector,
+									  void **db_handle,
+									  SSHORT msg_length,
+									  SCHAR * msg,
+									  SSHORT buffer_length, SCHAR * buffer)
+{
+	return isc_database_info(GDS_VAL(status_vector),
+							 GDS_VAL(db_handle),
+							 msg_length,
+							 GDS_VAL(msg), buffer_length, GDS_VAL(buffer));
+}
+
+STATUS API_ROUTINE gds__detach_database(STATUS * status_vector,
+										void **db_handle)
+{
+	return isc_detach_database(GDS_VAL(status_vector), GDS_VAL(db_handle));
+}
+
+STATUS API_ROUTINE gds__get_segment(STATUS * status_vector,
+									void **blob_handle,
+									USHORT * return_length,
+									USHORT buffer_length, SCHAR * buffer)
+{
+	return isc_get_segment(GDS_VAL(status_vector),
+						   GDS_VAL(blob_handle),
+						   GDS_VAL(return_length),
+						   buffer_length, GDS_VAL(buffer));
+}
+
+STATUS API_ROUTINE gds__get_slice(STATUS * status_vector,
+								  void **db_handle,
+								  void **tra_handle,
+								  GDS_QUAD * array_id,
+								  SSHORT sdl_length,
+								  SCHAR * sdl,
+								  SSHORT parameters_leng,
+								  SLONG * parameters,
+								  SLONG slice_length,
+								  void *slice, SLONG * return_length)
+{
+	return isc_get_slice(GDS_VAL(status_vector),
+						 GDS_VAL(db_handle),
+						 GDS_VAL(tra_handle),
+						 GDS_VAL(array_id),
+						 sdl_length,
+						 GDS_VAL(sdl),
+						 parameters_leng,
+						 GDS_VAL(parameters),
+						 slice_length,
+						 GDS_VAL((SCHAR *) slice), GDS_VAL(return_length));
+}
+
+STATUS API_ROUTINE gds__open_blob(STATUS * status_vector,
+								  void **db_handle,
+								  void **tra_handle,
+								  void **blob_handle, GDS_QUAD * blob_id)
+{
+	return isc_open_blob(GDS_VAL(status_vector),
+						 GDS_VAL(db_handle),
+						 GDS_VAL(tra_handle),
+						 GDS_VAL(blob_handle), GDS_VAL(blob_id));
+}
+
+STATUS API_ROUTINE gds__open_blob2(STATUS * status_vector,
+								   void **db_handle,
+								   void **tra_handle,
+								   void **blob_handle,
+								   GDS_QUAD * blob_id,
+								   SSHORT bpb_length, SCHAR * bpb)
+{
+	return isc_open_blob2(GDS_VAL(status_vector),
+						  GDS_VAL(db_handle),
+						  GDS_VAL(tra_handle),
+						  GDS_VAL(blob_handle),
+						  GDS_VAL(blob_id),
+						  bpb_length,
+						  reinterpret_cast<UCHAR*>(GDS_VAL(bpb)));
+}
+
+STATUS API_ROUTINE gds__prepare_transaction(STATUS * status_vector,
+											void **tra_handle)
+{
+	return isc_prepare_transaction(GDS_VAL(status_vector),
+								   GDS_VAL(tra_handle));
+}
+
+STATUS API_ROUTINE gds__prepare_transaction2(STATUS * status_vector,
+											 void **tra_handle,
+											 SSHORT msg_length, SCHAR * msg)
+{
+	return isc_prepare_transaction2(GDS_VAL(status_vector),
+									GDS_VAL(tra_handle),
+									msg_length,
+									reinterpret_cast<UCHAR*>(GDS_VAL(msg)));
+}
+
+STATUS API_ROUTINE gds__put_segment(STATUS * status_vector,
+									void **blob_handle,
+									USHORT segment_length, SCHAR * segment)
+{
+	return isc_put_segment(GDS_VAL(status_vector),
+						   GDS_VAL(blob_handle),
+						   segment_length, GDS_VAL(segment));
+}
+
+STATUS API_ROUTINE gds__put_slice(STATUS * status_vector,
+								  void **db_handle,
+								  void **tra_handle,
+								  GDS_QUAD * array_id,
+								  SSHORT sdl_length,
+								  SCHAR * sdl,
+								  SSHORT parameters_leng,
+								  SLONG * parameters,
+								  SLONG slice_length, void *slice)
+{
+	return isc_put_slice(GDS_VAL(status_vector),
+						 GDS_VAL(db_handle),
+						 GDS_VAL(tra_handle),
+						 GDS_VAL(array_id),
+						 sdl_length,
+						 GDS_VAL(sdl),
+						 parameters_leng,
+						 GDS_VAL(parameters),
+						 slice_length, GDS_VAL((SCHAR *) slice));
+}
+
+STATUS API_ROUTINE gds__que_events(STATUS * status_vector,
+								   void **db_handle,
+								   SLONG * event_id,
+								   SSHORT events_length,
+								   SCHAR * events,
+								   void (*ast_address) (), void *ast_argument)
+{
+	return isc_que_events(GDS_VAL(status_vector),
+						  GDS_VAL(db_handle),
+						  GDS_VAL(event_id),
+						  events_length,
+						  reinterpret_cast<UCHAR*>(GDS_VAL(events)),
+						  GDS_VAL(ast_address),
+						  GDS_VAL((int *) ast_argument));
+}
+
+STATUS API_ROUTINE gds__receive(STATUS * status_vector,
+								void **req_handle,
+								SSHORT msg_type,
+								SSHORT msg_length,
+								void *msg, SSHORT req_level)
+{
+	return isc_receive(GDS_VAL(status_vector),
+					   GDS_VAL(req_handle),
+					   msg_type,
+					   msg_length, GDS_VAL((SCHAR *) msg), req_level);
+}
+
+STATUS API_ROUTINE gds__reconnect_transaction(STATUS * status_vector,
+											  void **db_handle,
+											  void **tra_handle,
+											  SSHORT msg_length, SCHAR * msg)
+{
+	return isc_reconnect_transaction(GDS_VAL(status_vector),
+									 GDS_VAL(db_handle),
+									 GDS_VAL(tra_handle),
+									 msg_length, GDS_VAL(msg));
+}
+
+STATUS API_ROUTINE gds__release_request(STATUS * status_vector,
+										void **req_handle)
+{
+	return isc_release_request(GDS_VAL(status_vector), GDS_VAL(req_handle));
+}
+
+STATUS API_ROUTINE gds__request_info(STATUS * status_vector,
+									 void **req_handle,
+									 SSHORT req_level,
+									 SSHORT msg_length,
+									 SCHAR * msg,
+									 SSHORT buffer_length, SCHAR * buffer)
+{
+	return isc_request_info(GDS_VAL(status_vector),
+							GDS_VAL(req_handle),
+							req_level,
+							msg_length,
+							GDS_VAL(msg), buffer_length, GDS_VAL(buffer));
+}
+
+STATUS API_ROUTINE gds__rollback_transaction(STATUS * status_vector,
+											 void **tra_handle)
+{
+	return isc_rollback_transaction(GDS_VAL(status_vector),
+									GDS_VAL(tra_handle));
+}
+
+STATUS API_ROUTINE gds__seek_blob(STATUS * status_vector,
+								  void **blob_handle,
+								  SSHORT mode, SLONG offset, SLONG * result)
+{
+	return isc_seek_blob(GDS_VAL(status_vector),
+						 GDS_VAL(blob_handle), mode, offset, GDS_VAL(result));
+}
+
+STATUS API_ROUTINE gds__send(STATUS * status_vector,
+							 void **req_handle,
+							 SSHORT msg_type,
+							 SSHORT msg_length, void *msg, SSHORT req_level)
+{
+	return isc_send(GDS_VAL(status_vector),
+					GDS_VAL(req_handle),
+					msg_type, msg_length, GDS_VAL((SCHAR *) msg), req_level);
+}
+
+STATUS API_ROUTINE gds__start_and_send(STATUS * status_vector,
+									   void **req_handle,
+									   void **tra_handle,
+									   SSHORT msg_type,
+									   SSHORT msg_length,
+									   void *msg, SSHORT req_level)
+{
+	return isc_start_and_send(GDS_VAL(status_vector),
+							  GDS_VAL(req_handle),
+							  GDS_VAL(tra_handle),
+							  msg_type,
+							  msg_length, GDS_VAL((SCHAR *) msg), req_level);
+}
+
+STATUS API_ROUTINE gds__start_multiple(STATUS * status_vector,
+									   void **tra_handle,
+									   SSHORT db_count, void *teb_vector)
+{
+	return isc_start_multiple(GDS_VAL(status_vector),
+							  GDS_VAL(tra_handle),
+							  db_count, GDS_VAL((SCHAR *) teb_vector));
+}
+
+STATUS API_ROUTINE gds__start_request(STATUS * status_vector,
+									  void **req_handle,
+									  void **tra_handle, SSHORT req_level)
+{
+	return isc_start_request(GDS_VAL(status_vector),
+							 GDS_VAL(req_handle),
+							 GDS_VAL(tra_handle), req_level);
+}
+
+STATUS API_ROUTINE gds__transaction_info(STATUS * status_vector,
+										 void **tra_handle,
+										 SSHORT msg_length,
+										 SCHAR * msg,
+										 SSHORT buffer_length, SCHAR * buffer)
+{
+	return isc_transaction_info(GDS_VAL(status_vector),
+								GDS_VAL(tra_handle),
+								msg_length,
+								GDS_VAL(msg), buffer_length, GDS_VAL(buffer));
+}
+
+STATUS API_ROUTINE gds__unwind_request(STATUS * status_vector,
+									   void **req_handle, SSHORT req_level)
+{
+	return isc_unwind_request(GDS_VAL(status_vector),
+							  GDS_VAL(req_handle), req_level);
+}
+
+STATUS API_ROUTINE gds__ddl(STATUS * status_vector,
+							void **db_handle,
+							void **tra_handle, SSHORT ddl_length, SCHAR * ddl)
+{
+	return isc_ddl(GDS_VAL(status_vector),
+				   GDS_VAL(db_handle),
+				   GDS_VAL(tra_handle), ddl_length, GDS_VAL(ddl));
+}
+
+void API_ROUTINE isc_event_counts(
+								  ULONG * result_vector,
+								  SSHORT length,
+								  SCHAR * before, SCHAR * after)
+{
+	gds__event_counts(GDS_VAL(result_vector),
+					  length, GDS_VAL(before), GDS_VAL(after));
+}
+
+SLONG API_ROUTINE isc_free(SCHAR * blk)
+{
+
+	return gds__free((SLONG *) blk);
+}
+
+SLONG API_ROUTINE isc_ftof(SCHAR * string1,
+						   USHORT length1, SCHAR * string2, USHORT length2)
+{
+	return gds__ftof(GDS_VAL(string1), length1, GDS_VAL(string2), length2);
+}
+
+STATUS API_ROUTINE isc_print_blr(SCHAR * blr,
+								 void (*callback) (),
+								 void *callback_argument, SSHORT language)
+{
+	return gds__print_blr((UCHAR *) blr, callback,
+						  (SCHAR *) callback_argument, language);
+}
+
+STATUS API_ROUTINE isc_print_status(STATUS * status_vector)
+{
+	return gds__print_status(GDS_VAL(status_vector));
+}
+
+void API_ROUTINE isc_qtoq(GDS_QUAD * quad1, GDS_QUAD * quad2)
+{
+	gds__qtoq(quad1, quad2);
+}
+
+SLONG API_ROUTINE isc_sqlcode(STATUS * status_vector)
+{
+	return gds__sqlcode(GDS_VAL(status_vector));
+}
+
+void API_ROUTINE isc_sqlcode_s(STATUS * status_vector, ULONG * sqlcode)
+{
+	*sqlcode = gds__sqlcode(status_vector);
+	return;
+}
+
+void API_ROUTINE isc_vtof(SCHAR * string1, SCHAR * string2, USHORT length)
+{
+	gds__vtof(string1, string2, length);
+}
+
+void API_ROUTINE isc_vtov(SCHAR * string1, SCHAR * string2, SSHORT length)
+{
+	gds__vtov(string1, string2, length);
+}
+
+void API_ROUTINE gds__decode_date(GDS_QUAD * date, void *time_structure)
+{
+	isc_decode_date(date, time_structure);
+}
+
+void API_ROUTINE gds__encode_date(void *time_structure, GDS_QUAD * date)
+{
+	isc_encode_date(time_structure, date);
+}
+
+SLONG API_ROUTINE isc_vax_integer(SCHAR * input, SSHORT length)
+{
+	return gds__vax_integer((UCHAR *) input, length);
+}
+
+#ifndef REQUESTER
+STATUS API_ROUTINE isc_wait_for_event(STATUS * status_vector,
+									  void **db_handle,
+									  SSHORT events_length,
+									  SCHAR * events, SCHAR * events_update)
+{
+	return gds__event_wait(GDS_VAL(status_vector),
+						   GDS_VAL(db_handle),
+						   events_length,
+						   GDS_VAL(events), GDS_VAL(events_update));
+}
+#endif
+
+STATUS API_ROUTINE isc_interprete(SCHAR * buffer, STATUS ** status_vector_p)
+{
+	return gds__interprete(buffer, status_vector_p);
+}
+
+int API_ROUTINE isc_version(
+							void **db_handle,
+							void (*callback) (), void *callback_argument)
+{
+	return gds__version(db_handle, callback, callback_argument);
+}
+
+void API_ROUTINE isc_set_debug(int flag)
+{
+#ifndef NETWARE_386
+#ifndef SUPERCLIENT
+#ifndef REQUESTER
+	gds__set_debug(flag);
+#endif
+#endif
+#endif
+}
+
+#ifdef PC_PLATFORM
+void gds__extend_dpb(
+					 SCHAR ** dpb,
+					 SSHORT * dpb_size, SCHAR * user_name, SCHAR * password)
+{
+	isc_expand_dpb(dpb, dpb_size,
+				   gds__dpb_user_name, user_name,
+				   gds__dpb_password, password, 0);
+}
+#endif
+
+
+
+int API_ROUTINE isc_blob_display(
+								 STATUS * status_vector,
+								 GDS_QUAD * blob_id,
+								 void **database,
+								 void **transaction,
+								 SCHAR * field_name, SSHORT * name_length)
+{
+/**************************************
+ *
+ *	i s c _ b l o b _ d i s p l a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	PASCAL callable version of EDIT_blob.
+ *
+ **************************************/
+
+	if (status_vector)
+		status_vector[1] = 0;
+
+	return blob__display((SLONG *) blob_id, database, transaction, field_name,
+						 name_length);
+}
+
+int API_ROUTINE isc_blob_dump(
+							  STATUS * status_vector,
+							  GDS_QUAD * blob_id,
+							  void **database,
+							  void **transaction,
+							  SCHAR * file_name, SSHORT * name_length)
+{
+/**************************************
+ *
+ *	i s c _ b l o b _ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a pascal callable dump
+ *	into an internal dump call.
+ *
+ **************************************/
+
+	if (status_vector)
+		status_vector[1] = 0;
+
+	return blob__dump((SLONG *) blob_id, database, transaction, file_name,
+					  name_length);
+}
+
+int API_ROUTINE isc_blob_edit(
+							  STATUS * status_vector,
+							  GDS_QUAD * blob_id,
+							  void **database,
+							  void **transaction,
+							  SCHAR * field_name, SSHORT * name_length)
+{
+/**************************************
+ *
+ *	b l o b _ $ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a pascal callable edit
+ *	into an internal edit call.
+ *
+ **************************************/
+
+	if (status_vector)
+		status_vector[1] = 0;
+
+	return blob__edit((SLONG *) blob_id, database, transaction, field_name,
+					  name_length);
+}
+
+int API_ROUTINE isc_add_user(STATUS * status, USER_SEC_DATA * user_data)
+{
+/**************************************
+ *
+ *      i s c _ a d d _ u s e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Adds a user to the server's security
+ *	database.
+ *      Return 0 if the user was added
+ *
+ *	    Return > 0 if any error occurs.
+ *
+ **************************************/
+	USHORT retval = 0, l;
+	struct user_data userInfo;
+	void *db_handle;
+
+	userInfo.operation = ADD_OPER;
+
+	if (user_data->user_name) {
+		if (strlen(user_data->user_name) > 32) {
+			status[0] = isc_arg_gds;
+			status[1] = isc_usrname_too_long;
+			status[2] = isc_arg_end;
+			return status[1];
+		}
+
+		for (l = 0;
+			 user_data->user_name[l] != ' '
+			 && l < strlen(user_data->user_name); l++)
+			userInfo.user_name[l] = UPPER(user_data->user_name[l]);
+
+		userInfo.user_name[l] = '\0';
+		userInfo.user_name_entered = TRUE;
+	}
+	else {
+		status[0] = isc_arg_gds;
+		status[1] = isc_usrname_required;
+		status[2] = isc_arg_end;
+		return status[1];
+	}
+
+	if (user_data->password) {
+		if (strlen(user_data->password) > 8) {
+			status[0] = isc_arg_gds;
+			status[1] = isc_password_too_long;
+			status[2] = isc_arg_end;
+			return status[1];
+		}
+
+		for (l = 0;
+			 l < strlen(user_data->password) && user_data->password[l] != ' ';
+			 l++)
+			userInfo.password[l] = user_data->password[l];
+
+		userInfo.password[l] = '\0';
+		userInfo.password_entered = TRUE;
+		userInfo.password_specified = TRUE;
+	}
+	else {
+		status[0] = isc_arg_gds;
+		status[1] = isc_password_required;
+		status[2] = isc_arg_end;
+		return status[1];
+	}
+
+
+	if ((user_data->sec_flags & sec_uid_spec)
+		&& (userInfo.uid_entered = user_data->uid)) {
+		userInfo.uid = user_data->uid;
+		userInfo.uid_specified = TRUE;
+	}
+	else {
+		userInfo.uid_specified = FALSE;
+		userInfo.uid_entered = FALSE;
+	}
+
+	if ((user_data->sec_flags & sec_gid_spec)
+		&& (userInfo.gid_entered = user_data->gid)) {
+		userInfo.gid = user_data->gid;
+		userInfo.gid_specified = TRUE;
+	}
+	else {
+		userInfo.gid_specified = FALSE;
+		userInfo.gid_entered = FALSE;
+	}
+
+	if ((user_data->sec_flags & sec_group_name_spec) && user_data->group_name) {
+		int l = MIN(ALT_NAME_LEN - 1, strlen(user_data->group_name));
+		strncpy(userInfo.group_name, user_data->group_name, l);
+		userInfo.group_name[l] = '\0';
+		userInfo.group_name_entered = TRUE;
+		userInfo.group_name_specified = TRUE;
+	}
+	else {
+		userInfo.group_name_entered = FALSE;
+		userInfo.group_name_specified = FALSE;
+	}
+
+	if ((user_data->sec_flags & sec_first_name_spec) && user_data->first_name) {
+		int l = MIN(NAME_LEN - 1, strlen(user_data->first_name));
+		strncpy(userInfo.first_name, user_data->first_name, l);
+		userInfo.first_name[l] = '\0';
+		userInfo.first_name_entered = TRUE;
+		userInfo.first_name_specified = TRUE;
+	}
+	else {
+		userInfo.first_name_entered = FALSE;
+		userInfo.first_name_specified = FALSE;
+	}
+
+	if ((user_data->sec_flags & sec_middle_name_spec)
+		&& user_data->middle_name) {
+		int l = MIN(NAME_LEN - 1, strlen(user_data->middle_name));
+		strncpy(userInfo.middle_name, user_data->middle_name, l);
+		userInfo.middle_name[l] = '\0';
+		userInfo.middle_name_entered = TRUE;
+		userInfo.middle_name_specified = TRUE;
+	}
+	else {
+		userInfo.middle_name_entered = FALSE;
+		userInfo.middle_name_specified = FALSE;
+	}
+
+	if ((user_data->sec_flags & sec_last_name_spec) && user_data->last_name) {
+		int l = MIN(NAME_LEN - 1, strlen(user_data->last_name));
+		strncpy(userInfo.last_name, user_data->last_name, l);
+		userInfo.last_name[l] = '\0';
+		userInfo.last_name_entered = TRUE;
+		userInfo.last_name_specified = TRUE;
+	}
+	else {
+		userInfo.last_name_entered = FALSE;
+		userInfo.last_name_specified = FALSE;
+	}
+
+	db_handle = open_security_db(status,
+								 user_data->dba_user_name,
+								 user_data->dba_password,
+								 user_data->protocol, user_data->server);
+	if (db_handle) {
+		STATUS user_status[20];
+		retval = SECURITY_exec_line(status, db_handle, &userInfo, NULL, NULL);
+		/* if retval != 0 then there was a gsec error */
+		if (retval)
+			get_security_error(status, retval);
+
+		isc_detach_database(user_status, &db_handle);
+	}
+	return status[1];			/* security database not opened */
+}
+
+int API_ROUTINE isc_blob_load(
+							  STATUS * status_vector,
+							  GDS_QUAD * blob_id,
+							  void **database,
+							  void **transaction,
+							  SCHAR * file_name, SSHORT * name_length)
+{
+/**************************************
+ *
+ *	i s c _ b l o b _ l o a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a pascal callable load
+ *	into an internal load call.
+ *
+ **************************************/
+
+	if (status_vector)
+		status_vector[1] = 0;
+
+	return blob__load((SLONG *) blob_id, database, transaction, file_name,
+					  name_length);
+}
+
+int API_ROUTINE isc_delete_user(STATUS * status, USER_SEC_DATA * user_data)
+{
+/**************************************
+ *
+ *      i s c _ d e l e t e _ u s e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Deletes a user from the server's security
+ *	    database.
+ *      Return 0 if the user was deleted
+ *
+ *	    Return > 0 if any error occurs.
+ *
+ **************************************/
+	USHORT retval = 0, l;
+	void *db_handle;
+	struct user_data userInfo;
+
+	userInfo.operation = DEL_OPER;
+
+	if (user_data->user_name) {
+		if (strlen(user_data->user_name) > 32) {
+			status[0] = isc_arg_gds;
+			status[1] = isc_usrname_too_long;
+			status[2] = isc_arg_end;
+			return status[1];
+		}
+
+		for (l = 0;
+			 user_data->user_name[l] != ' '
+			 && l < strlen(user_data->user_name); l++)
+			userInfo.user_name[l] = UPPER(user_data->user_name[l]);
+
+		userInfo.user_name[l] = '\0';
+		userInfo.user_name_entered = TRUE;
+	}
+	else {
+		status[0] = isc_arg_gds;
+		status[1] = isc_usrname_required;
+		status[2] = isc_arg_end;
+		return status[1];
+	}
+
+	db_handle = open_security_db(status,
+								 user_data->dba_user_name,
+								 user_data->dba_password,
+								 user_data->protocol, user_data->server);
+	if (db_handle) {
+		STATUS user_status[20];
+		retval = SECURITY_exec_line(status, db_handle, &userInfo, NULL, NULL);
+		/* if retval != 0 then there was a gsec error */
+		if (retval)
+			get_security_error(status, retval);
+
+		isc_detach_database(user_status, &db_handle);
+	}
+	return status[1];			/* security database not opened */
+}
+
+int API_ROUTINE isc_modify_user(STATUS * status, USER_SEC_DATA * user_data)
+{
+/**************************************
+ *
+ *      i s c _ m o d i f y _ u s e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Adds a user to the server's security
+ *	database.
+ *      Return 0 if the user was added
+ *
+ *	    Return > 0 if any error occurs.
+ *
+ **************************************/
+	USHORT retval = 0, l;
+	struct user_data userInfo;
+	void *db_handle;
+
+	userInfo.operation = MOD_OPER;
+
+	if (user_data->user_name) {
+		if (strlen(user_data->user_name) > 32) {
+			status[0] = isc_arg_gds;
+			status[1] = isc_usrname_too_long;
+			status[2] = isc_arg_end;
+			return status[1];
+		}
+
+		for (l = 0;
+			 user_data->user_name[l] != ' '
+			 && l < strlen(user_data->user_name); l++)
+			userInfo.user_name[l] = UPPER(user_data->user_name[l]);
+
+		userInfo.user_name[l] = '\0';
+		userInfo.user_name_entered = TRUE;
+	}
+	else {
+		status[0] = isc_arg_gds;
+		status[1] = isc_usrname_required;
+		status[2] = isc_arg_end;
+		return status[1];
+	}
+
+	if (user_data->sec_flags & sec_password_spec) {
+		if (strlen(user_data->password) > 8) {
+			status[0] = isc_arg_gds;
+			status[1] = isc_password_too_long;
+			status[2] = isc_arg_end;
+			return status[1];
+		}
+
+		for (l = 0;
+			 l < strlen(user_data->password) && user_data->password[l] != ' ';
+			 l++)
+			userInfo.password[l] = user_data->password[l];
+
+		userInfo.password[l] = '\0';
+		userInfo.password_entered = TRUE;
+		userInfo.password_specified = TRUE;
+	}
+	else {
+		userInfo.password_specified = FALSE;
+		userInfo.password_entered = FALSE;
+	}
+
+
+	if (user_data->sec_flags & sec_uid_spec) {
+		userInfo.uid = user_data->uid;
+		userInfo.uid_specified = TRUE;
+		userInfo.uid_entered = TRUE;
+	}
+	else {
+		userInfo.uid_specified = FALSE;
+		userInfo.uid_entered = FALSE;
+	}
+
+	if (user_data->sec_flags & sec_gid_spec) {
+		userInfo.gid = user_data->gid;
+		userInfo.gid_specified = TRUE;
+		userInfo.gid_entered = TRUE;
+	}
+	else {
+		userInfo.gid_specified = FALSE;
+		userInfo.gid_entered = FALSE;
+	}
+
+	if (user_data->sec_flags & sec_group_name_spec) {
+		int l = MIN(ALT_NAME_LEN - 1, strlen(user_data->group_name));
+		strncpy(userInfo.group_name, user_data->group_name, l);
+		userInfo.group_name[l] = '\0';
+		userInfo.group_name_entered = TRUE;
+		userInfo.group_name_specified = TRUE;
+	}
+	else {
+		userInfo.group_name_entered = FALSE;
+		userInfo.group_name_specified = FALSE;
+	}
+
+	if (user_data->sec_flags & sec_first_name_spec) {
+		int l = MIN(NAME_LEN - 1, strlen(user_data->first_name));
+		strncpy(userInfo.first_name, user_data->first_name, l);
+		userInfo.first_name[l] = '\0';
+		userInfo.first_name_entered = TRUE;
+		userInfo.first_name_specified = TRUE;
+	}
+	else {
+		userInfo.first_name_entered = FALSE;
+		userInfo.first_name_specified = FALSE;
+	}
+
+	if (user_data->sec_flags & sec_middle_name_spec) {
+		int l = MIN(NAME_LEN - 1, strlen(user_data->middle_name));
+		strncpy(userInfo.middle_name, user_data->middle_name, l);
+		userInfo.middle_name[l] = '\0';
+		userInfo.middle_name_entered = TRUE;
+		userInfo.middle_name_specified = TRUE;
+	}
+	else {
+		userInfo.middle_name_entered = FALSE;
+		userInfo.middle_name_specified = FALSE;
+	}
+
+	if (user_data->sec_flags & sec_last_name_spec) {
+		int l = MIN(NAME_LEN - 1, strlen(user_data->last_name));
+		strncpy(userInfo.last_name, user_data->last_name, l);
+		userInfo.last_name[l] = '\0';
+		userInfo.last_name_entered = TRUE;
+		userInfo.last_name_specified = TRUE;
+	}
+	else {
+		userInfo.last_name_entered = FALSE;
+		userInfo.last_name_specified = FALSE;
+	}
+
+	db_handle = open_security_db(status,
+								 user_data->dba_user_name,
+								 user_data->dba_password,
+								 user_data->protocol, user_data->server);
+	if (db_handle) {
+		STATUS user_status[20];
+		retval = SECURITY_exec_line(status, db_handle, &userInfo, NULL, NULL);
+		/* if retval != 0 then there was a gsec error */
+		if (retval)
+			get_security_error(status, retval);
+		isc_detach_database(user_status, &db_handle);
+	}
+	return status[1];			/* security database not opened */
+}
+
+void *open_security_db(
+					   STATUS * status,
+					   TEXT * username,
+					   TEXT * password, int protocol, TEXT * server)
+{
+/**************************************
+ *
+ *      o p e n _ s e c u r i t y _ d b
+ *
+ **************************************
+ *
+ * Functional description
+ *     Opens the security database 
+ *
+ * Returns the database handle if successful
+ * Returns NULL otherwise
+ *
+ **************************************/
+	short dpb_length, l = 0;
+	char dpb_buffer[256], *dpb, *p;
+	TEXT default_security_db[512], connect_string[1024], *database;
+	void *db_handle;
+	TEXT sec_server[256];
+
+	db_handle = NULL;
+
+	switch (protocol) {
+	case sec_protocol_tcpip:
+		IS_VALID_SERVER(server);
+		sprintf(sec_server, "%s:", server);
+		SECURITY_get_db_path(sec_server, default_security_db);
+		sprintf(connect_string, "%s%s", sec_server, default_security_db);
+		break;
+
+	case sec_protocol_netbeui:
+		IS_VALID_SERVER(server);
+		sprintf(sec_server, "\\\\%s\\", server);
+		SECURITY_get_db_path(sec_server, default_security_db);
+		sprintf(connect_string, "%s%s", sec_server, default_security_db);
+		break;
+
+	case sec_protocol_spx:
+		IS_VALID_SERVER(server);
+		sprintf(sec_server, "%s@", server);
+		SECURITY_get_db_path(sec_server, default_security_db);
+		sprintf(connect_string, "%s%s", sec_server, default_security_db);
+		break;
+
+	case sec_protocol_local:
+		SECURITY_get_db_path(NULL, default_security_db);
+		sprintf(connect_string, "%s", default_security_db);
+		break;
+
+	default:
+		status[0] = isc_arg_gds;
+		status[1] = isc_bad_protocol;
+		status[2] = isc_arg_end;
+		return NULL;
+	}
+
+	database = connect_string;
+	dpb = dpb_buffer;
+	*dpb++ = isc_dpb_version1;
+
+	if (username) {
+		*dpb++ = isc_dpb_user_name;
+		*dpb++ = strlen(username);
+		for (p = username; *p;)
+			*dpb++ = *p++;
+	}
+
+	if (password) {
+		*dpb++ = isc_dpb_password;
+		*dpb++ = strlen(password);
+		for (p = password; *p;)
+			*dpb++ = *p++;
+	}
+
+	dpb_length = dpb - dpb_buffer;
+
+	if (isc_attach_database
+		(status, 0, database, &db_handle, dpb_length, dpb_buffer)) db_handle =
+			NULL;
+
+	return db_handle;
+}
+
+void get_security_error(STATUS * status, int gsec_err)
+{
+/**************************************
+ *
+ *      g e t _ s e c u r i t y _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *    Converts the gsec error code to an isc
+ *    error code and adds it to the status vector
+ **************************************/
+
+	switch (gsec_err) {
+	case GsecMsg19:			/* gsec - add record error */
+		status[0] = isc_arg_gds;
+		status[1] = isc_error_adding_sec_record;
+		status[2] = isc_arg_end;
+		return;
+
+	case GsecMsg20:			/* gsec - modify record error */
+		status[0] = isc_arg_gds;
+		status[1] = isc_error_modifying_sec_record;
+		status[2] = isc_arg_end;
+		return;
+
+	case GsecMsg21:			/* gsec - find/modify record error */
+		status[0] = isc_arg_gds;
+		status[1] = isc_error_modifying_sec_record;
+		status[2] = isc_arg_end;
+		return;
+
+	case GsecMsg22:			/* gsec - record not found for user: */
+		status[0] = isc_arg_gds;
+		status[1] = isc_usrname_not_found;
+		status[2] = isc_arg_end;
+		return;
+
+	case GsecMsg23:			/* gsec - delete record error */
+		status[0] = isc_arg_gds;
+		status[1] = isc_error_deleting_sec_record;
+		status[2] = isc_arg_end;
+		return;
+
+	case GsecMsg24:			/* gsec - find/delete record error */
+		status[0] = isc_arg_gds;
+		status[1] = isc_error_deleting_sec_record;
+		status[2] = isc_arg_end;
+		return;
+
+	case GsecMsg75:			/* gsec error */
+		status[0] = isc_arg_gds;
+		status[1] = isc_error_updating_sec_db;
+		status[2] = isc_arg_end;
+		return;
+
+	default:
+		return;
+	}
+}
diff --git a/src/jrd/ansi.h b/src/jrd/ansi.h
new file mode 100644
index 0000000000..ef2570644a
--- /dev/null
+++ b/src/jrd/ansi.h
@@ -0,0 +1,136 @@
+/*-
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *    notice, this list of conditions and the following disclaimer.
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)ansi.h	8.2 (Berkeley) 1/4/94
+ * $FreeBSD: src/sys/i386/include/ansi.h,v 1.16.2.1 1999/08/29 16:06:16 peter Exp $
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _MACHINE_ANSI_H_
+#define	_MACHINE_ANSI_H_
+
+/*
+ * Types which are fundamental to the implementation and must be declared
+ * in more than one standard header are defined here.  Standard headers
+ * then use:
+ *	#ifdef	_BSD_SIZE_T_
+ *	typedef	_BSD_SIZE_T_ size_t;
+ *	#undef	_BSD_SIZE_T_
+ *	#endif
+ */
+#define	_BSD_CLOCK_T_	unsigned long	/* clock()... */
+#define	_BSD_CLOCKID_T_	int		/* clock_gettime()... */
+#define	_BSD_PTRDIFF_T_	int		/* ptr1 - ptr2 */
+#define	_BSD_RUNE_T_	_BSD_CT_RUNE_T_	/* rune_t (see below) */
+#define	_BSD_SIZE_T_	unsigned int	/* sizeof() */
+#define	_BSD_SSIZE_T_	int		/* byte count or error */
+#define	_BSD_TIME_T_	long	/* time()... */
+#define	_BSD_TIMER_T_	int		/* timer_gettime()... */
+#define	_BSD_WCHAR_T_	_BSD_CT_RUNE_T_	/* wchar_t (see below) */
+
+/*
+ * Types which are fundamental to the implementation and must be used
+ * in more than one standard header although they are only declared in
+ * one (perhaps nonstandard) header are defined here.  Standard headers
+ * use _BSD_XXX_T_ without undef'ing it.
+ */
+#define	_BSD_CT_RUNE_T_	int		/* arg type for ctype funcs */
+#define	_BSD_OFF_T_	__int64_t	/* file offset */
+#define	_BSD_PID_T_	int			/* process [group] */
+#define	_BSD_VA_LIST_	char *	/* va_list */
+
+/*
+ * The rune type is declared to be an ``int'' instead of the more natural
+ * ``unsigned long'' or ``long''.  Two things are happening here.  It is not
+ * unsigned so that EOF (-1) can be naturally assigned to it and used.  Also,
+ * it looks like 10646 will be a 31 bit standard.  This means that if your
+ * ints cannot hold 32 bits, you will be in trouble.  The reason an int was
+ * chosen over a long is that the is*() and to*() routines take ints (says
+ * ANSI C), but they use _BSD_CT_RUNE_T_ instead of int.  By changing it
+ * here, you lose a bit of ANSI conformance, but your programs will still
+ * work.
+ */
+
+/*
+ * Frequencies of the clock ticks reported by clock() and times().  They
+ * are the same as stathz for bogus historical reasons.  They should be
+ * 1e6 because clock() and times() are implemented using getrusage() and
+ * there is no good reason why they should be less accurate.  There is
+ * the bad reason that (broken) programs might not like clock_t or
+ * CLOCKS_PER_SEC being ``double'' (``unsigned long'' is not large enough
+ * to hold the required 24 hours worth of ticks if the frequency is
+ * 1000000ul, and ``unsigned long long'' would be nonstandard).
+ */
+#define	_BSD_CLK_TCK_		128
+#define	_BSD_CLOCKS_PER_SEC_	128
+
+/*
+ * Typedefs for especially magic types.  #define's wouldn't work in the
+ * __GNUC__ case, since __attribute__(()) only works in certain contexts.
+ * This is not in <machine/types.h>, since that has too much namespace
+ * pollution for inclusion in ANSI headers, yet we need __int64_t in at
+ * least <stdio.h>.
+ */
+#ifdef __GNUC__
+typedef int __attribute__ ((__mode__(__DI__))) __int64_t;
+typedef unsigned int __attribute__ ((__mode__(__DI__))) __uint64_t;
+#else
+typedef long long __int64_t;
+typedef unsigned long long __uint64_t;
+#endif
+/*
+ * Internal names for basic integral types.  Omit the typedef if
+ * not possible for a machine/compiler combination.
+ */
+typedef __signed char __int8_t;
+typedef unsigned char __uint8_t;
+typedef short __int16_t;
+typedef unsigned short __uint16_t;
+typedef int __int32_t;
+typedef unsigned int __uint32_t;
+
+typedef int __intptr_t;
+typedef unsigned int __uintptr_t;
+
+#endif /* !_MACHINE_ANSI_H_ */
diff --git a/src/jrd/arg.h b/src/jrd/arg.h
new file mode 100644
index 0000000000..0930322c1c
--- /dev/null
+++ b/src/jrd/arg.h
@@ -0,0 +1,135 @@
+/*
+ *	PROGRAM:	REPLAY Debugging Utility
+ *	MODULE:		arg.h
+ *	DESCRIPTION:	Arguments for OSRI calls
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_ARG_H_
+#define _JRD_ARG_H_
+
+/* This table will be used to pull off the argument types
+   for recording in the log. The status vector is assumed
+   as the first argument 
+
+  Key to datatypes: 
+
+   s = short by value
+   l = long by value
+   p = pointer
+   r = short by reference
+   b = buffer which has been preceded by a length of type s
+   n = possibly null-terminated buffer if preceding value is 0
+   f = definitely null-terminated buffer, no preceding length
+   d = double long, such as a blob id
+   t = transaction existence block
+   o = short which requires a buffer of the specified size to
+       be generated, to be filled in by the call
+*/
+
+static CONST SCHAR arg_types1[log_max][10] = {
+	"snpsbs",					/* attach_database */
+	"psbsb",					/* blob_info */
+	"p",						/* cancel_blob */
+	"p",						/* close_blob */
+	"p",						/* commit */
+	"ppsb",						/* compile */
+	"pppd",						/* create_blob */
+	"snpsbs",					/* create_database */
+	"psbsb",					/* database_info */
+	"p",						/* detach */
+	"prsb",						/* get_segment */
+	"pppd",						/* open_blob */
+	"p",						/* prepare */
+	"psb",						/* put_segment */
+	"pssbs",					/* receive */
+	"ppsb",						/* reconnect */
+	"p",						/* release_request */
+	"pssbsb",					/* request_info */
+	"p",						/* rollback */
+	"pssbs",					/* send */
+	"ppssbs",					/* start_and_send */
+	"pps",						/* start */
+	"pst",						/* start_multiple */
+	"psbsb",					/* transaction_info */
+	"ps",						/* unwind */
+
+	"p",						/* handle_returned */
+	"lll",						/* statistics */
+	"",							/* error */
+
+	"snpsbf",					/* attach2 */
+	"pp",						/* cancel_events */
+	"p",						/* commit_retaining */
+	"pppdsb",					/* create_blob2 */
+	"snpsbsf",					/* create_database2 */
+	"pppsbsbsb",				/* get_slice */
+	"pppdsb",					/* open_blob2 */
+	"psb",						/* prepare2 */
+	"pppsbsbsb",				/* put_slice */
+	"psb",						/* que_events */
+	"psl",						/* blob_seek */
+
+	"pro",						/* get_segment2 */
+	"pppsbsbo",					/* get_slice2 */
+	"psos",						/* receive2 */
+	"psbo",						/* blob_info2 */
+	"psbo",						/* database_info2 */
+	"pssbo",					/* request_info2 */
+	"psbo",						/* transaction_info2 */
+
+	"ppsb",						/* ddl */
+	"ppsbsbs",					/* transact_request */
+	"p"							/* drop_database */
+};
+
+
+/* this is the replay log filename definition */
+
+#ifdef VMS
+#define LOG_FILE_NAME	"[SYSMGR]replay.log"
+#endif
+
+#if defined (WIN_NT)
+#define LOG_FILE_NAME	"replay.log"
+#else
+#if defined(PC_PLATFORM)
+#define LOG_FILE_NAME	"c:/interbas/replay.log"
+#endif
+#endif /* WIN_NT */
+
+#ifndef LOG_FILE_NAME
+#define LOG_FILE_NAME   "/usr/interbase/replay.log"
+#endif
+
+/* these are the modes for opening the log file */
+
+#if (defined PC_PLATFORM || defined WIN_NT)
+#define MODE_READ	"rb"
+#define MODE_WRITE	"wb"
+#define MODE_APPEND	"ab"
+#endif
+
+#ifndef MODE_READ
+#define MODE_READ	"r"
+#define MODE_WRITE	"w"
+#define MODE_APPEND	"a"
+#endif
+
+#endif /* _JRD_ARG_H_ */
diff --git a/src/jrd/atom.h b/src/jrd/atom.h
new file mode 100644
index 0000000000..b8dffb6161
--- /dev/null
+++ b/src/jrd/atom.h
@@ -0,0 +1,105 @@
+/*
+ *	PROGRAM:	JRD access method
+ *	MODULE:		atom.h
+ *	DESCRIPTION:	Atomic lock definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_ATOM_H_
+#define _JRD_ATOM_H_
+
+#include "../jrd/thd.h"
+
+#define ATOM_LOCKS_PER_LEVEL	(1 << 6)	/* 64 - must be power of 2 */
+#define ATOM_LOCK_LEVELS	2
+
+#ifdef HAS_64BIT_POINTERS
+#define ATOM_SHIFT		3		/* 64 bit */
+#define ATOM_MASK		(ATOM_LOCKS_PER_LEVEL - 1)
+#endif
+
+#ifndef ATOM_SHIFT
+#define ATOM_SHIFT		2		/* 32 bit */
+#define ATOM_MASK		(ATOM_LOCKS_PER_LEVEL - 1)
+#endif
+
+#ifdef ANY_THREADING
+#define ATOMIC_LOCK (atom_addr, level, intent) \
+		THD_atomic_lock (tdbb, atom_addr, level, intent)
+
+#define ATOMIC_UNLOCK (atom_addr, level) \
+		THD_atomic_unlock (tdbb, atom_addr, level)
+#else
+#define ATOMIC_LOCK (atom_addr, level, intent)
+#define ATOMIC_UNLOCK (atom_addr, level)
+#endif
+
+struct atomic_lock {
+	RWLCK_T atom_lock;
+	void *atom_addr;
+};
+
+/* ATOM access intent */
+
+#define ATOM_READ	RWLCK_read
+#define ATOM_WRITE	RWLCK_write
+
+/* ATOM multilevel locking to avoid deadlocks */
+
+#define ATOM_LEVEL_1	0
+#define ATOM_LEVEL_2	1
+
+/* Use atomic hardware intrinsics if platform supports them. */
+
+#ifdef WIN_NT
+#define ATOMIC_INCREMENT (lvalue, cast, atom_addr) \
+    lvalue = (cast) InterlockedIncrement (atom_addr)
+
+#define ATOMIC_DECREMENT (lvalue, cast, atom_addr) \
+    lvalue = (cast) InterlockedDecrement (atom_addr)
+
+#define ATOMIC_SWAP (lvalue, cast, atom_addr, rvalue) \
+lvalue = (cast) InterlockedExchange (atom_addr, rvalue)
+#endif /* WIN_NT */
+
+/* Default emulation of atomic hardware intrinsics */
+
+#ifndef ATOMIC_INCREMENT
+#define ATOMIC_INCREMENT (lvalue, cast, atom_addr) \
+    {ATOMIC_LOCK (tdbb, atom_addr, ATOM_LEVEL_1, ATOM_WRITE); \
+     lvalue = (cast) ++(*(atom_addr)); \
+     ATOMIC_UNLOCK (tdbb, atom_addr, ATOM_LEVEL_1);}
+#endif
+
+#ifndef ATOMIC_DECREMENT
+#define ATOMIC_DECREMENT (lvalue, cast, atom_addr) \
+    {ATOMIC_LOCK (tdbb, atom_addr, ATOM_LEVEL_1, ATOM_WRITE); \
+     lvalue = (cast) --(*(atom_addr)); \
+     ATOMIC_UNLOCK (tdbb, atom_addr, ATOM_LEVEL_1);}
+#endif
+
+#ifndef ATOMIC_SWAP
+#define ATOMIC_SWAP (lvalue, cast, atom_addr, rvalue) \
+    {ATOMIC_LOCK (tdbb, atom_addr, ATOM_LEVEL_1, ATOM_WRITE); \
+     lvalue = (cast) *(atom_addr); *(atom_addr) = (ATOM) rvalue; \
+     ATOMIC_UNLOCK (tdbb, atom_addr, ATOM_LEVEL_1);}
+#endif
+
+
+#endif /* _JRD_ATOM_H_ */
diff --git a/src/jrd/blb.cpp b/src/jrd/blb.cpp
new file mode 100644
index 0000000000..e298570aee
--- /dev/null
+++ b/src/jrd/blb.cpp
@@ -0,0 +1,2425 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		blb.c
+ *	DESCRIPTION:	Blob handler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: blb.cpp,v 1.1.1.1 2001-05-23 13:26:22 tamlin Exp $
+*/
+
+#include <string.h>
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/jrd.h"
+#include "../jrd/tra.h"
+#include "../jrd/val.h"
+#include "../jrd/exe.h"
+#include "../jrd/req.h"
+#include "../jrd/blb.h"
+#include "../jrd/ods.h"
+#include "../jrd/lls.h"
+#include "../jrd/codes.h"
+#include "../jrd/blob_filter.h"
+#include "../jrd/sdl.h"
+#include "../jrd/intl.h"
+#include "../jrd/cch.h"
+#include "../jrd/common.h"
+#include "../jrd/constants.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/blf_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+#include "../jrd/filte_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/jrd_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/sdl_proto.h"
+#include "../jrd/thd_proto.h"
+
+
+extern "C" {
+
+
+#define STREAM          (blob->blb_flags & BLB_stream)
+#define SEGMENTED       !STREAM
+
+static ARR alloc_array(TRA, ADS);
+static BLB allocate_blob(TDBB, TRA);
+static STATUS blob_filter(USHORT, CTL, SSHORT, SLONG);
+static void check_BID_validity(BLB, TDBB);
+static BLB copy_blob(TDBB, BID, REL, BID);
+static void delete_blob(TDBB, BLB, ULONG);
+static void delete_blob_id(TDBB, BID, ULONG, REL);
+static ARR find_array(TRA, BID);
+static BLF find_filter(TDBB, SSHORT, SSHORT);
+static BLP get_next_page(TDBB, BLB, WIN *);
+static void get_replay_blob(TDBB, BID);
+static void insert_page(TDBB, BLB);
+static void release_blob(BLB, USHORT);
+static void slice_callback(SLICE, ULONG, DSC *);
+static BLB store_array(TDBB, TRA, BID);
+
+
+void BLB_cancel(TDBB tdbb, BLB blob)
+{
+/**************************************
+ *
+ *      B L B _ c a n c e l
+ *
+ **************************************
+ *
+ * Functional description
+ *      Abort a blob operation.  If the blob is a partially created
+ *      temporary blob, free up any allocated pages.  In any case,
+ *      get rid of the blob block.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+/* Release filter control resources */
+
+	if (blob->blb_flags & BLB_temporary)
+		delete_blob(tdbb, blob, 0);
+
+	release_blob(blob, TRUE);
+}
+
+
+void BLB_close(TDBB tdbb, BLB blob)
+{
+/**************************************
+ *
+ *      B L B _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Close a blob.  If the blob is open for retrieval, release the 
+ *      blob block.  If it's a temporary blob, flush out the last page
+ *      (if necessary) in preparation for materialization.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+/* Release filter control resources */
+
+	if (blob->blb_filter)
+		BLF_close_blob(tdbb, &blob->blb_filter);
+
+	blob->blb_flags |= BLB_closed;
+
+	if (!(blob->blb_flags & BLB_temporary)) {
+		release_blob(blob, TRUE);
+		return;
+	}
+
+	if (blob->blb_level >= 1
+		&& blob->blb_space_remaining < blob->blb_clump_size) insert_page(tdbb,
+																		 blob);
+}
+
+
+BLB BLB_create(TDBB tdbb, TRA transaction, BID blob_id)
+{
+/**************************************
+ *
+ *      B L B _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create a shiney, new, empty blob.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+	return BLB_create2(tdbb, transaction, blob_id, 0, (UCHAR *) 0);
+}
+
+
+BLB BLB_create2(TDBB tdbb,
+				TRA transaction, BID blob_id, USHORT bpb_length, UCHAR * bpb)
+{
+/**************************************
+ *
+ *      B L B _ c r e a t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create a shiney, new, empty blob.
+ *      Basically BLB_create() with BPB structure.
+ *
+ **************************************/
+	DBB dbb;
+	BLB blob;
+	BLP page;
+	SSHORT from, to, type;
+	SSHORT from_charset, to_charset;
+	BLF filter;
+	USHORT filter_required = FALSE;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef READONLY_DATABASE
+	if (dbb->dbb_flags & DBB_read_only)
+		ERR_post(isc_read_only_database, 0);
+#endif /* READONLY_DATABASE */
+
+/* Create a blob large enough to hold a single data page */
+
+	type = gds__parse_bpb2(bpb_length,
+						   bpb,
+						   reinterpret_cast < USHORT * >(&from),
+						   reinterpret_cast < USHORT * >(&to),
+						   reinterpret_cast < USHORT * >(&from_charset),
+						   reinterpret_cast < USHORT * >(&to_charset));
+	blob = allocate_blob(tdbb, transaction);
+
+	if (type)
+		blob->blb_flags |= BLB_stream;
+
+	blob->blb_source_interp = from_charset;
+	blob->blb_target_interp = to_charset;
+	blob->blb_sub_type = to;
+
+	filter = NULL;
+	if (to && from != to) {
+		filter = find_filter(tdbb, from, to);
+		filter_required = TRUE;
+	}
+	else if (to == BLOB_text && (from_charset != to_charset)) {
+		if (from_charset == CS_dynamic)
+			from_charset = tdbb->tdbb_attachment->att_charset;
+		if (to_charset == CS_dynamic)
+			to_charset = tdbb->tdbb_attachment->att_charset;
+		if ((to_charset != CS_NONE) && (from_charset != to_charset)) {
+			filter = (BLF) ALLOCP(type_blf);
+			filter->blf_filter =
+				reinterpret_cast < long (*) () > (filter_transliterate_text);
+			filter_required = TRUE;
+		}
+	}
+
+	if (filter_required) {
+		if (BLF_create_blob(tdbb,
+							transaction,
+							&blob->blb_filter,
+							reinterpret_cast < long *>(blob_id),
+							bpb_length,
+							bpb,
+							reinterpret_cast < long (*)() > (blob_filter),
+							filter)) ERR_punt();
+		blob->blb_flags |= BLB_temporary;
+		return blob;
+	}
+
+	blob->blb_space_remaining = blob->blb_clump_size;
+	blob->blb_flags |= BLB_temporary;
+
+/* Set up for a "small" blob -- a blob that fits on an ordinary data page */
+
+	page = (BLP) blob->blb_data;
+	page->blp_header.pag_type = pag_blob;
+	blob->blb_segment = (UCHAR *) page->blp_data;
+
+/* Format blob id and return blob handle */
+
+#ifndef DECOSF
+	blob_id->bid_stuff.bid_blob = blob;
+#else
+	*((BLB *) blob_id) = blob;
+#endif
+	blob_id->bid_relation_id = 0;
+
+	return blob;
+}
+
+
+void BLB_garbage_collect(
+						 TDBB tdbb,
+						 LLS going,
+						 LLS staying, SLONG prior_page, REL relation)
+{
+/**************************************
+ *
+ *      B L B _ g a r b a g e _ c o l l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Garbage collect indices and blobs.  Garbage_collect is passed a
+ *      stack of record blocks of records that are being deleted and a stack
+ *      of records blocks of records that are staying.  Garbage_collect
+ *      can be called from four operations:
+ *
+ *              VIO_backout     -- removing top record
+ *              expunge         -- removing all versions of a record
+ *              purge           -- removing all but top version of a record
+ *              update_in_place -- replace the top level record.
+ *
+ *
+ **************************************/
+	LLS stack1, stack2;
+	REC rec1, rec2;
+	DSC *desc, desc1, desc2;
+	FMT format;
+	BID blob, blob2;
+	USHORT id;
+
+	SET_TDBB(tdbb);
+
+/* Loop thru records on the way out looking for blobs to garbage collect */
+
+	for (stack1 = going; stack1; stack1 = stack1->lls_next) {
+		if (!(rec1 = (REC) stack1->lls_object))
+			continue;
+		format = (FMT) rec1->rec_format;
+
+		/* Look for active blob records */
+
+		for (id = 0, desc = format->fmt_desc; id < format->fmt_count;
+			 id++, desc++) {
+			if (!DTYPE_IS_BLOB(desc->dsc_dtype)
+				|| !EVL_field(0, rec1, id, &desc1))
+				continue;
+			blob = (BID) desc1.dsc_address;
+
+			/* Got active blob, cancel it out of any remaining records on the way out */
+
+			for (stack2 = stack1->lls_next; stack2; stack2 = stack2->lls_next) {
+				rec2 = (REC) stack2->lls_object;
+				if (!EVL_field(0, rec2, id, &desc2))
+					continue;
+				blob2 = (BID) desc2.dsc_address;
+				if (blob->bid_relation_id == blob2->bid_relation_id &&
+					blob->bid_stuff.bid_number == blob2->bid_stuff.bid_number)
+					SET_NULL(rec2, id);
+			}
+
+			/* Make sure the blob doesn't stack in any record remaining */
+
+			for (stack2 = staying; stack2; stack2 = stack2->lls_next) {
+				rec2 = (REC) stack2->lls_object;
+				if (!EVL_field(0, rec2, id, &desc2))
+					continue;
+				blob2 = (BID) desc2.dsc_address;
+				if (blob->bid_relation_id == blob2->bid_relation_id &&
+					blob->bid_stuff.bid_number == blob2->bid_stuff.bid_number)
+					break;
+			}
+			if (stack2)
+				continue;
+
+			/* Get rid of blob */
+
+			delete_blob_id(tdbb, blob, prior_page, relation);
+		}
+	}
+}
+
+
+BLB BLB_get_array(TDBB tdbb, TRA transaction, BID blob_id, ADS desc)
+{
+/**************************************
+ *
+ *      B L B _ g e t _ a r r a y 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get array blob and array descriptor.
+ *
+ **************************************/
+	BLB blob;
+	USHORT n;
+
+	SET_TDBB(tdbb);
+
+	blob = BLB_open2(tdbb, transaction, blob_id, 0, 0);
+
+	if (blob->blb_length < sizeof(struct ads)) {
+		BLB_close(tdbb, blob);
+		IBERROR(193);			/* msg 193 null or invalid array */
+	}
+
+	BLB_get_segment(tdbb, blob, reinterpret_cast < UCHAR * >(desc),
+					sizeof(struct ads));
+
+	if (n = desc->ads_length - sizeof(struct ads))
+		BLB_get_segment(tdbb, blob, (UCHAR *) desc + sizeof(struct ads), n);
+
+	return blob;
+}
+
+
+SLONG BLB_get_data(TDBB tdbb, BLB blob, UCHAR* buffer, SLONG length)
+{
+/**************************************
+ *
+ *      B L B _ g e t _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get a large hunk of data from a blob, which can then be
+ *      closed.  Return total number of bytes read.  Don't worry
+ *      about segment boundaries.
+ *
+ **************************************/
+	BLOB_PTR *p;
+	USHORT n;
+
+	SET_TDBB(tdbb);
+
+	p = (BLOB_PTR *) buffer;
+
+	while (length > 0) {
+		/* I have no idea why this limit is 32768 instead of 32767
+		 * 1994-August-12 David Schnepper 
+		 */
+		n = (USHORT) MIN(length, (SLONG) 32768);
+		n = BLB_get_segment(tdbb, blob, p, n);
+		p += n;
+		length -= n;
+		if (blob->blb_flags & BLB_eof)
+			break;
+	}
+
+	BLB_close(tdbb, blob);
+
+	return (SLONG) ((BLOB_PTR *) p - (BLOB_PTR *) buffer);
+}
+
+
+USHORT BLB_get_segment(TDBB tdbb,
+					   BLB blob, UCHAR * segment, USHORT buffer_length)
+{
+/**************************************
+ *
+ *      B L B _ g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get next segment or fragment from a blob.  Return the number
+ *      of bytes returned.
+ *
+ **************************************/
+	DBB dbb;
+	register BLOB_PTR *from;
+	register BLOB_PTR *to;
+	UCHAR *p;
+	WIN window;
+	BLP page;
+	STATUS status;
+	USHORT length, l, active_page, seek;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+#ifdef MULTI_THREAD
+
+	if (--tdbb->tdbb_quantum < 0 && !tdbb->tdbb_inhibit)
+		(void) JRD_reschedule(tdbb, 0, TRUE);
+
+#endif
+
+/* If we reached end of file, we're still there */
+
+	if (blob->blb_flags & BLB_eof)
+		return 0;
+
+	if (blob->blb_filter) {
+		blob->blb_fragment_size = 0;
+		if (status =
+			BLF_get_segment(tdbb, &blob->blb_filter, &length, buffer_length,
+							segment)) {
+			if (status == gds__segstr_eof)
+				blob->blb_flags |= BLB_eof;
+			else if (status == gds__segment)
+				blob->blb_fragment_size = 1;
+			else
+				ERR_punt();
+		}
+
+		return length;
+	}
+
+/* If there is a seek pending, handle it here */
+
+	seek = 0;
+
+	if (blob->blb_flags & BLB_seek) {
+		if (blob->blb_seek >= blob->blb_length) {
+			blob->blb_flags |= BLB_eof;
+			return 0;
+		}
+		l = dbb->dbb_page_size - BLP_SIZE;
+		blob->blb_sequence = blob->blb_seek / l;
+		seek = (USHORT)(blob->blb_seek % l);	// safe cast
+		blob->blb_flags &= ~BLB_seek;
+		blob->blb_fragment_size = 0;
+		if (blob->blb_level) {
+			blob->blb_space_remaining = 0;
+			blob->blb_segment = NULL;
+		}
+		else {
+			blob->blb_space_remaining = blob->blb_length - seek;
+			blob->blb_segment = blob->blb_data + seek;
+		}
+	}
+
+	if (!blob->blb_space_remaining && blob->blb_segment) {
+		blob->blb_flags |= BLB_eof;
+		return 0;
+	}
+
+/* Figure out how much data is to be moved, move it, and if necessary,
+   advance to the next page.  The length is a function of segment
+   size (or fragment size), buffer size, and amount of data left
+   in the blob. */
+
+	to = segment;
+	from = blob->blb_segment;
+	length = blob->blb_space_remaining;
+	active_page = FALSE;
+	window.win_flags = 0;
+	if (blob->blb_flags & BLB_large_scan) {
+		window.win_flags = WIN_large_scan;
+		window.win_scans = 1;
+	}
+
+	while (TRUE) {
+
+		/* If the blob is segmented, and this isn't a fragment, pick up
+		   the length of the next segment. */
+
+		if (SEGMENTED && !blob->blb_fragment_size) {
+			while (length < 2) {
+				if (active_page) {
+					if (window.win_flags & WIN_large_scan)
+						CCH_RELEASE_TAIL(tdbb, &window);
+					else
+						CCH_RELEASE(tdbb, &window);
+				}
+				if (!(page = get_next_page(tdbb, blob, &window))) {
+					blob->blb_flags |= BLB_eof;
+					return 0;
+				}
+				from = (UCHAR *) page->blp_data;
+				length = page->blp_length;
+				active_page = TRUE;
+			}
+
+			p = (UCHAR *) & blob->blb_fragment_size;
+			*p++ = *from++;
+			*p++ = *from++;
+			length -= 2;
+		}
+
+		/* Figure out how much data can be moved.  Then account for the
+		   space, and move the data */
+
+		l = MIN(buffer_length, length);
+
+		if (SEGMENTED) {
+			l = MIN(l, blob->blb_fragment_size);
+			blob->blb_fragment_size -= l;
+		}
+
+		length -= l;
+		buffer_length -= l;
+		if (((U_IPTR) from & (ALIGNMENT - 1))
+			|| ((U_IPTR) to & (ALIGNMENT - 1)))
+			MOVE_FAST(from, to, l);
+		else
+			MOVE_FASTER(from, to, l);
+		to += l;
+		from += l;
+
+		/* If we ran out of space in the data clump, and there is a next
+		   clump, get it. */
+
+		if (!length) {
+			if (active_page) {
+				if (window.win_flags & WIN_large_scan)
+					CCH_RELEASE_TAIL(tdbb, &window);
+				else
+					CCH_RELEASE(tdbb, &window);
+			}
+			if (!(page = get_next_page(tdbb, blob, &window))) {
+				active_page = FALSE;
+				break;
+			}
+			from = (UCHAR *) page->blp_data + seek;
+			length = page->blp_length - seek;
+			seek = 0;
+			active_page = TRUE;
+		}
+
+		/* If either the buffer or the fragment is exhausted, we're
+		   done. */
+
+		if (!buffer_length || (SEGMENTED && !blob->blb_fragment_size))
+			break;
+	}
+
+	if (active_page) {
+		if (((U_IPTR) from & (ALIGNMENT - 1))
+			|| ((U_IPTR) blob->blb_data & (ALIGNMENT - 1)))
+			MOVE_FAST(from, blob->blb_data, length);
+		else
+			MOVE_FASTER(from, blob->blb_data, length);
+		from = blob->blb_data;
+		if (window.win_flags & WIN_large_scan)
+			CCH_RELEASE_TAIL(tdbb, &window);
+		else
+			CCH_RELEASE(tdbb, &window);
+	}
+
+	blob->blb_segment = from;
+	blob->blb_space_remaining = length;
+	length = to - segment;
+	blob->blb_seek += length;
+
+/* If this is a stream blob, fake fragment unless we're at the end */
+
+	if (STREAM)
+		blob->blb_fragment_size =
+			(blob->blb_seek == blob->blb_length) ? 0 : 1;
+
+	return length;
+}
+
+
+SLONG BLB_get_slice(TDBB tdbb,
+					TRA transaction,
+					BID blob_id,
+					UCHAR * sdl,
+					USHORT param_length,
+					SLONG * param, SLONG slice_length, UCHAR * slice)
+{
+/**************************************
+ *
+ *      B L B _ g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Fetch a slice of an array.
+ *
+ **************************************/
+	BLB blob;
+	ADS desc;
+	STATUS status;
+	UCHAR *data;
+	SLONG offset, length, variables[64], stuff[ADS_LEN(16) / 4], from, to;
+	struct sdl_info info;
+	struct slice arg;
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+	tdbb->tdbb_default = transaction->tra_pool;
+
+/* Checkout slice description language */
+
+	MOVE_FAST(param, variables, MIN(sizeof(variables), param_length));
+
+	if (SDL_info(tdbb->tdbb_status_vector, sdl, &info, variables))
+		ERR_punt();
+
+	desc = (ADS) stuff;
+	blob = BLB_get_array(tdbb, transaction, blob_id, desc);
+	length = desc->ads_total_length;
+
+/* Get someplace to put data */
+
+	data = (UCHAR *) ALL_malloc(desc->ads_total_length, ERR_jmp);
+
+/* zero out memory, so that it does not have to be done for
+   each element */
+
+	memset(data, 0, desc->ads_total_length);
+
+	offset = 0;
+
+/* Trap any potential errors */
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		ALL_free(reinterpret_cast < char *>(data));
+		ERR_punt();
+	}
+
+/* If we know something about the subscript bounds, prepare
+   to fetch only stuff we really care about */
+
+	if (info.sdl_info_dimensions) {
+		from =
+			SDL_compute_subscript(tdbb->tdbb_status_vector, desc,
+								  info.sdl_info_dimensions,
+								  info.sdl_info_lower);
+		to =
+			SDL_compute_subscript(tdbb->tdbb_status_vector, desc,
+								  info.sdl_info_dimensions,
+								  info.sdl_info_upper);
+		if (from != -1 && to != -1) {
+			if (from) {
+				offset = from * desc->ads_element_length;
+				BLB_lseek(blob, 0, offset + (SLONG) desc->ads_length);
+			}
+			length = (to - from + 1) * desc->ads_element_length;
+		}
+	}
+
+	length = BLB_get_data(tdbb, blob, data + offset, length) + offset;
+
+/* Walk array */
+
+	arg.slice_desc = info.sdl_info_element;
+	arg.slice_desc.dsc_address = slice;
+	arg.slice_end = (BLOB_PTR *) slice + slice_length;
+	arg.slice_count = 0;
+	arg.slice_element_length = info.sdl_info_element.dsc_length;
+	arg.slice_direction = FALSE;	/* fetching from array */
+	arg.slice_high_water = (BLOB_PTR *) data + length;
+	arg.slice_base = (BLOB_PTR *) data + offset;
+
+	status = SDL_walk(tdbb->tdbb_status_vector,
+					  sdl,
+					  TRUE,
+					  data,
+					  desc,
+					  variables,
+					  reinterpret_cast < void (*)() > (slice_callback),
+					  reinterpret_cast < struct slice *>(&arg));
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	ALL_free(reinterpret_cast < char *>(data));
+
+	if (status)
+		ERR_punt();
+
+	return (SLONG) (arg.slice_count * arg.slice_element_length);
+}
+
+
+SLONG BLB_lseek(BLB blob, USHORT mode, SLONG offset)
+{
+/**************************************
+ *
+ *      B L B _ l s e e k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Position a blob for direct access.  Seek is only defined for stream
+ *      type blobs.
+ *
+ **************************************/
+
+	if (!(blob->blb_flags & BLB_stream))
+		ERR_post(gds__bad_segstr_type, 0);
+
+	if (mode == 1)
+		offset += blob->blb_seek;
+	else if (mode == 2)
+		offset = blob->blb_length + offset;
+
+	if (offset < 0)
+		offset = 0;
+
+	if (offset > blob->blb_length)
+		offset = blob->blb_length;
+
+	blob->blb_seek = offset;
+	blob->blb_flags |= BLB_seek;
+	blob->blb_flags &= ~BLB_eof;
+
+	return offset;
+}
+
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+void DLL_EXPORT BLB_map_blobs(TDBB tdbb, BLB old_blob, BLB new_blob)
+{
+/**************************************
+ *
+ *      B L B _ m a p _ b l o b s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Form a mapping between two blobs.
+ *      Since the blobs have been newly created 
+ *      in this session, only the second part of
+ *      the blob id is significant.  At the moment 
+ *      this is intended solely for REPLAY, when 
+ *      replaying a log.
+ *
+ **************************************/
+	DBB dbb;
+	MAP new_map;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	new_map = (MAP) ALLOCP(type_map);
+	new_map->map_old_blob = old_blob;
+	new_map->map_new_blob = new_blob;
+
+	new_map->map_next = dbb->dbb_blob_map;
+	dbb->dbb_blob_map = new_map;
+}
+#endif
+
+
+void BLB_move(TDBB tdbb, DSC * from_desc, DSC * to_desc, NOD field)
+{
+/**************************************
+ *
+ *      B L B _ m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Perform an assignment to a blob field.  Unless the blob is null,
+ *      this requires that either a temporary blob be materialized or that
+ *      a permanent blob be copied.  Note: it is illegal to have a blob
+ *      field in a message.
+ *
+ **************************************/
+	BLB blob;
+	ARR array;
+	BID source, destination;
+	USHORT id, materialized_blob, refetch_flag;
+	REQ request;
+	RPB *rpb;
+	REC record;
+	REL relation;
+	TRA transaction;
+
+	SET_TDBB(tdbb);
+
+	if (field->nod_type != nod_field)
+		BUGCHECK(199);			/* msg 199 expected field node */
+
+	if (from_desc->dsc_dtype != dtype_quad
+		&& from_desc->dsc_dtype != dtype_blob) ERR_post(gds__convert_error,
+														gds_arg_string,
+														"BLOB", 0);
+
+	request = tdbb->tdbb_request;
+	source = (BID) from_desc->dsc_address;
+	destination = (BID) to_desc->dsc_address;
+	id = (USHORT) field->nod_arg[e_fld_id];
+	rpb = &request->req_rpb[(int) field->nod_arg[e_fld_stream]];
+	relation = rpb->rpb_relation;
+	record = rpb->rpb_record;
+
+/* If nothing changed, don't do nothing.  If it isn't broken,
+   don't fix it. */
+
+	if (source->bid_relation_id == destination->bid_relation_id &&
+		source->bid_stuff.bid_number == destination->bid_stuff.bid_number)
+		return;
+
+/* If either the source value is null or the blob id itself is null (all
+   zeros, then the blob is null. */
+
+	if ((request->req_flags & req_null) || (!source->bid_relation_id &&
+#ifdef DECOSF
+											!source->bid_blob2 &&
+#endif
+											!source->bid_stuff.bid_blob)) {
+		SET_NULL(record, id);
+		destination->bid_relation_id = 0;
+#ifdef DECOSF
+		destination->bid_blob2 = 0;
+#endif
+		destination->bid_stuff.bid_number = 0;
+		return;
+	}
+
+	CLEAR_NULL(record, id);
+	transaction = request->req_transaction;
+
+/* If the target is a view, this must be from a view update trigger.
+   Just pass the blob id thru */
+
+	if (relation->rel_view_rse) {
+		*destination = *source;
+		return;
+	}
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+/* for REPLAY, map blob id's from the original session */
+
+	get_replay_blob(tdbb, source);
+#endif
+
+/* If the source is a permanent blob, then the blob must be copied. 
+   Otherwise find the temporary blob referenced.  */
+
+	array = 0;
+
+	do {
+		materialized_blob = refetch_flag = FALSE;
+		if (source->bid_relation_id)
+			blob = copy_blob(tdbb, source, relation, destination);
+		else if ((to_desc->dsc_dtype == dtype_array) &&
+				 (array = find_array(transaction, source)) &&
+				 (blob = store_array(tdbb, transaction, source)))
+			materialized_blob = TRUE;
+		else
+			for (blob = transaction->tra_blobs; blob; blob = blob->blb_next)
+#ifndef DECOSF
+				if (blob == source->bid_stuff.bid_blob)
+#else
+				if (blob == *((BLB *) source))
+#endif
+				{
+					materialized_blob = TRUE;
+					break;
+				}
+
+		if (!blob ||
+			blob->blb_header.blk_type != (UCHAR) type_blb ||
+			blob->blb_attachment != tdbb->tdbb_attachment ||
+			!(blob->blb_flags & BLB_closed) ||
+			(blob->blb_request && blob->blb_request != request))
+			ERR_post(gds__bad_segstr_id, 0);
+
+		if (materialized_blob && !(blob->blb_flags & BLB_temporary)) {
+			refetch_flag = TRUE;
+			source = &blob->blb_blob_id;
+		}
+	} while (refetch_flag);
+
+	blob->blb_relation = relation;
+	destination->bid_relation_id = relation->rel_id;
+#ifdef DECOSF
+	destination->bid_blob2 = 0;
+#endif
+	destination->bid_stuff.bid_number = DPM_store_blob(tdbb, blob, record);
+	if (materialized_blob) {
+		blob->blb_flags &= ~BLB_temporary;
+		blob->blb_blob_id = *destination;
+		blob->blb_request = request;
+		if (array)
+			array->arr_request = request;
+	}
+	release_blob(blob, (materialized_blob) ? FALSE : TRUE);
+}
+
+
+BLB BLB_open(TDBB tdbb, TRA transaction, BID blob_id)
+{
+/**************************************
+ *
+ *      B L B _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Open an existing blob.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+	return BLB_open2(tdbb, transaction, blob_id, 0, 0);
+}
+
+
+BLB BLB_open2(TDBB tdbb,
+			  TRA transaction, BID blob_id, USHORT bpb_length, UCHAR * bpb)
+{
+/**************************************
+ *
+ *      B L B _ o p e n 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Open an existing blob.
+ *      Basically BLB_open() with BPB structure.
+ *
+ **************************************/
+	DBB dbb;
+	BLB blob, new_;
+	VEC vector;
+	VCL new_pages, pages;
+	CTL control;
+	SSHORT from, to;
+	SSHORT from_charset, to_charset;
+	BLF filter;
+	USHORT filter_required = FALSE;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* Handle filter case */
+
+	gds__parse_bpb2(bpb_length,
+					bpb,
+					reinterpret_cast < USHORT * >(&from),
+					reinterpret_cast < USHORT * >(&to),
+					reinterpret_cast < USHORT * >(&from_charset),
+					reinterpret_cast < USHORT * >(&to_charset));
+
+	blob = allocate_blob(tdbb, transaction);
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+/* for REPLAY, map blob id's from the original session */
+
+	get_replay_blob(tdbb, blob_id);
+#endif
+
+	blob->blb_target_interp = to_charset;
+	blob->blb_source_interp = from_charset;
+
+	filter = NULL;
+	if (to && from != to) {
+		filter = find_filter(tdbb, from, to);
+		filter_required = TRUE;
+	}
+	else if (to == BLOB_text && (from_charset != to_charset)) {
+		if (from_charset == CS_dynamic)
+			from_charset = tdbb->tdbb_attachment->att_charset;
+		if (to_charset == CS_dynamic)
+			to_charset = tdbb->tdbb_attachment->att_charset;
+		if ((to_charset != CS_NONE) && (from_charset != to_charset)) {
+			filter = (BLF) ALLOCP(type_blf);
+			filter->blf_filter =
+				reinterpret_cast < long (*) () > (filter_transliterate_text);
+			filter_required = TRUE;
+		}
+	}
+
+	if (filter_required) {
+		if (BLF_open_blob(tdbb,
+						  transaction,
+						  &control,
+						  reinterpret_cast < long *>(blob_id),
+						  bpb_length,
+						  bpb,
+						  reinterpret_cast < long (*)() > (blob_filter),
+						  filter)) ERR_punt();
+		blob->blb_filter = control;
+		blob->blb_max_segment = control->ctl_max_segment;
+		blob->blb_count = control->ctl_number_segments;
+		blob->blb_length = control->ctl_total_length;
+		return blob;
+	}
+
+	if (!blob_id->bid_relation_id)
+#ifndef DECOSF
+		if (!blob_id->bid_stuff.bid_number)
+#else
+		if (!blob_id->bid_stuff.bid_number && !blob_id->bid_blob2)
+#endif
+		{
+			blob->blb_flags |= BLB_eof;
+			return blob;
+		}
+		else {
+			/* Note: Prior to 1991, we would immediately report bad_segstr_id here,
+			 * but then we decided to allow a newly created blob to be openned,
+			 * leaving the possibility of receiving a garbage blob ID from
+			 * the application.
+			 * The following does some checks to try and product ourselves
+			 * better.  94-Jan-07 Daves.
+			 */
+
+			/* Search the list of transaction blobs for a match */
+			for (new_ = transaction->tra_blobs; new_; new_ = new_->blb_next)
+#ifndef DECOSF
+				if (new_ == blob_id->bid_stuff.bid_blob)
+#else
+				if (new_ == *((BLB *) blob_id))
+#endif
+					break;
+
+			check_BID_validity(new_, tdbb);
+
+			blob->blb_lead_page = new_->blb_lead_page;
+			blob->blb_max_sequence = new_->blb_max_sequence;
+			blob->blb_count = new_->blb_count;
+			blob->blb_length = new_->blb_length;
+			blob->blb_max_segment = new_->blb_max_segment;
+			blob->blb_level = new_->blb_level;
+			blob->blb_flags = new_->blb_flags & BLB_stream;
+			if (pages = new_->blb_pages) {
+				blob->blb_pages = new_pages =
+					(VCL) ALLOCTV(type_vcl, pages->vcl_count);
+				new_pages->vcl_count = pages->vcl_count;
+				MOVE_FAST(pages->vcl_long, new_pages->vcl_long,
+						  sizeof(pages->vcl_long[0]) * pages->vcl_count);
+			}
+			if (blob->blb_level == 0) {
+				blob->blb_space_remaining =
+					new_->blb_clump_size - new_->blb_space_remaining;
+				blob->blb_segment =
+					(UCHAR *) ((BLP) new_->blb_data)->blp_data;
+			}
+			return blob;
+		}
+
+/* Ordinarily, we would call MET_relation to get the relation id.
+   However, since the blob id must be consider suspect, this is 
+   not a good idea.  On the other hand, if we don't already
+   know about the relation, the blob id has got to be invalid
+   anyway. */
+
+	vector = dbb->dbb_relations;
+
+	if (blob_id->bid_relation_id >= vector->vec_count ||
+		!(blob->blb_relation =
+		  (REL) vector->vec_object[blob_id->bid_relation_id]))
+			ERR_post(gds__bad_segstr_id, 0);
+
+	DPM_get_blob(tdbb, blob, blob_id->bid_stuff.bid_number, FALSE, (SLONG) 0);
+
+/* If the blob is known to be damaged, ignore it. */
+
+	if (blob->blb_flags & BLB_damaged) {
+		if (!(dbb->dbb_flags & DBB_damaged))
+			IBERROR(194);		/* msg 194 blob not found */
+		blob->blb_flags |= BLB_eof;
+		return blob;
+	}
+
+/* Get first data page in anticipation of reading. */
+
+	if (blob->blb_level == 0)
+		blob->blb_segment = blob->blb_data;
+
+	return blob;
+}
+
+
+void BLB_put_segment(TDBB tdbb, BLB blob, UCHAR* seg, USHORT segment_length)
+{
+/**************************************
+ *
+ *      B L B _ p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Add a segment to a blob.
+ *
+ **************************************/
+	DBB dbb;
+	BLOB_PTR *segment;
+	BLOB_PTR *p;
+	BLOB_PTR *q;
+	UCHAR length_flag;
+	ULONG length;				/* length of segment + overhead */
+	USHORT l;
+	BLP page;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	segment = (BLOB_PTR *) seg;
+
+/* Make sure blob is a temporary blob.  If not, complain bitterly. */
+
+	if (!(blob->blb_flags & BLB_temporary))
+		IBERROR(195);			/* msg 195 cannot update old blob */
+
+	if (blob->blb_filter) {
+		if (BLF_put_segment(tdbb, &blob->blb_filter, segment_length, segment))
+			ERR_punt();
+
+		return;
+	}
+
+/* Account for new segment */
+
+	blob->blb_count++;
+	blob->blb_length += segment_length;
+
+	if (segment_length > blob->blb_max_segment)
+		blob->blb_max_segment = segment_length;
+
+/* Compute the effective length of the segment (counts length unless
+   the blob is a stream blob). */
+
+	if (SEGMENTED) {
+		length = segment_length + 2;
+		length_flag = TRUE;
+	}
+	else {
+		length = segment_length;
+		length_flag = FALSE;
+	}
+
+/* Case 0: Transition from small blob to medium size blob.  This really
+   just does a form transformation and drops into the next case. */
+
+	if (blob->blb_level == 0 && length > (ULONG) blob->blb_space_remaining) {
+		TRA transaction;
+
+		transaction = blob->blb_transaction;
+		blob->blb_pages = (VCL) ALLOCTV(type_vcl, blob->blb_max_pages);
+		l = dbb->dbb_page_size - BLP_SIZE;
+		blob->blb_space_remaining += l - blob->blb_clump_size;
+		blob->blb_clump_size = l;
+		blob->blb_level = 1;
+	}
+
+/* Case 1: The segment fits.  In what is immaterial.  Just move the segment
+   and get out! */
+
+	p = blob->blb_segment;
+
+	if (length_flag && blob->blb_space_remaining >= 2) {
+		q = (UCHAR *) & segment_length;
+		*p++ = *q++;
+		*p++ = *q++;
+		blob->blb_space_remaining -= 2;
+		length_flag = FALSE;
+	}
+
+	if (!length_flag && segment_length <= blob->blb_space_remaining) {
+		blob->blb_space_remaining -= segment_length;
+		if (((U_IPTR) segment & (ALIGNMENT - 1))
+			|| ((U_IPTR) p & (ALIGNMENT - 1)))
+			MOVE_FAST(segment, p, segment_length);
+		else
+			MOVE_FASTER(segment, p, segment_length);
+		blob->blb_segment = p + segment_length;
+		return;
+	}
+
+/* The segment cannot be contained in the current clump.  What does
+   bit is copied to the current page image.  Then allocate a page to
+   hold the current page, copy the page image to the buffer, and release
+   the page.  Since a segment can be much larger than a page, this whole
+   mess is done in a loop. */
+
+	while (length_flag || segment_length) {
+
+		/* Move what fits.  At this point, the length is known not to fit. */
+
+		l = MIN(segment_length, blob->blb_space_remaining);
+
+		if (!length_flag && l) {
+			segment_length -= l;
+			blob->blb_space_remaining -= l;
+			if (((U_IPTR) segment & (ALIGNMENT - 1))
+				|| ((U_IPTR) p & (ALIGNMENT - 1)))
+				MOVE_FAST(segment, p, l);
+			else
+				MOVE_FASTER(segment, p, l);
+			p += l;
+			segment += l;
+			if (segment_length == 0) {
+				blob->blb_segment = p;
+				return;
+			}
+		}
+
+		/* Data page is full.  Add the page to the blob data structure. */
+
+		insert_page(tdbb, blob);
+		blob->blb_sequence++;
+
+		/* Get ready to start filling the next page. */
+
+		page = (BLP) blob->blb_data;
+		p = blob->blb_segment = (UCHAR *) page->blp_data;
+		blob->blb_space_remaining = blob->blb_clump_size;
+
+		/* If there's still a length waiting to be moved, move it already! */
+
+		if (length_flag) {
+			q = (UCHAR *) & segment_length;
+			*p++ = *q++;
+			*p++ = *q++;
+			blob->blb_space_remaining -= 2;
+			length_flag = FALSE;
+			blob->blb_segment = p;
+		}
+	}
+
+}
+
+
+void BLB_put_slice(
+				   TDBB tdbb,
+				   TRA transaction,
+				   BID blob_id,
+				   UCHAR * sdl,
+				   USHORT param_length,
+SLONG * param, SLONG slice_length, UCHAR * slice)
+{
+/**************************************
+ *
+ *      B L B _ p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Put a slice of an array.
+ *
+ **************************************/
+	REL relation;
+	FLD field;
+	ARR array_desc, array;
+	BLB blob;
+	SLONG length, variables[64], temp[ADS_LEN(16) / 4];
+	SSHORT n;
+	struct sdl_info info;
+	struct slice arg;
+
+	SET_TDBB(tdbb);
+	tdbb->tdbb_default = transaction->tra_pool;
+
+/* Do initial parse of slice description to get relation and field identification */
+
+	if (SDL_info(tdbb->tdbb_status_vector, sdl, &info, 0))
+		ERR_punt();
+
+	if (info.sdl_info_relation[0])
+		relation = MET_lookup_relation(tdbb, info.sdl_info_relation);
+	else
+		relation = MET_relation(tdbb, info.sdl_info_rid);
+
+	if (!relation)
+		IBERROR(196);			/* msg 196 relation for array not known */
+
+	if (info.sdl_info_field[0])
+		n = MET_lookup_field(tdbb, relation, info.sdl_info_field);
+	else
+		n = info.sdl_info_fid;
+
+/* Make sure relation is scanned */
+	MET_scan_relation(tdbb, relation);
+
+	if (n < 0 || !(field = MET_get_field(relation, n)))
+		IBERROR(197);			/* msg 197 field for array not known */
+
+	if (!(array_desc = field->fld_array))
+		ERR_post(gds__invalid_dimension, gds_arg_number, (SLONG) 0,
+				 gds_arg_number, (SLONG) 1, 0);
+
+/* Find and/or allocate array block.  There are three distinct cases:
+
+	1.  Array is totally new.
+	2.  Array is still in "temporary" state.
+	3.  Array exists and is being updated.
+*/
+
+	if (blob_id->bid_relation_id) {
+		for (array = transaction->tra_arrays; array; array = array->arr_next)
+			if (array->arr_blob &&
+				array->arr_blob->blb_blob_id.bid_relation_id ==
+				blob_id->bid_relation_id &&
+				array->arr_blob->blb_blob_id.bid_stuff.bid_number ==
+				blob_id->bid_stuff.bid_number) break;
+		if (array)
+			arg.slice_high_water =
+				(BLOB_PTR *) array->arr_data + array->arr_effective_length;
+		else {
+			blob =
+				BLB_get_array(tdbb, transaction, blob_id,
+							  reinterpret_cast < ads * >(temp));
+			array =
+				alloc_array(transaction, reinterpret_cast < ads * >(temp));
+			array->arr_effective_length =
+				blob->blb_length - array->arr_desc.ads_length;
+			BLB_get_data(tdbb, blob, array->arr_data,
+						 array->arr_desc.ads_total_length);
+			arg.slice_high_water =
+				(BLOB_PTR *) array->arr_data + array->arr_effective_length;
+			array->arr_blob = allocate_blob(tdbb, transaction);
+			(array->arr_blob)->blb_blob_id = *blob_id;
+		}
+	}
+#ifndef DECOSF
+	else if (blob_id->bid_stuff.bid_blob)
+#else
+	else if (*((BLB *) blob_id))
+#endif
+	{
+		if (!(array = find_array(transaction, blob_id)))
+			ERR_post(isc_invalid_array_id, 0);
+
+		arg.slice_high_water =
+			(BLOB_PTR *) array->arr_data + array->arr_effective_length;
+	}
+	else {
+		array = alloc_array(transaction, &array_desc->arr_desc);
+		arg.slice_high_water = (BLOB_PTR *) array->arr_data;
+	}
+
+/* Walk array */
+
+	arg.slice_desc = info.sdl_info_element;
+	arg.slice_desc.dsc_address = slice;
+	arg.slice_end = (BLOB_PTR *) slice + slice_length;
+	arg.slice_count = 0;
+	arg.slice_element_length = info.sdl_info_element.dsc_length;
+	arg.slice_direction = TRUE;	/* storing INTO array */
+	arg.slice_base = (BLOB_PTR *) array->arr_data;
+	MOVE_FAST(param, variables, MIN(sizeof(variables), param_length));
+
+	if (SDL_walk(tdbb->tdbb_status_vector,
+				 sdl,
+				 TRUE,
+				 array->arr_data,
+				 &array_desc->arr_desc,
+				 variables,
+				 reinterpret_cast < void (*)() > (slice_callback),
+				 &arg)) ERR_punt();
+
+	length = (BLOB_PTR *) arg.slice_high_water - (BLOB_PTR *) array->arr_data;
+
+	if (length > array->arr_effective_length)
+		array->arr_effective_length = length;
+
+#ifndef DECOSF
+	blob_id->bid_stuff.bid_blob = (BLB) array;
+#else
+	*((BLB *) blob_id) = (BLB) array;
+#endif
+	blob_id->bid_relation_id = 0;
+}
+
+
+void BLB_release_array(ARR array)
+{
+/**************************************
+ *
+ *      B L B _ r e l e a s e _ a r r a y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release an array block and friends and relations.
+ *
+ **************************************/
+	TRA transaction;
+	ARR *ptr;
+
+	if (array->arr_data)
+		ALL_free(reinterpret_cast < char *>(array->arr_data));
+
+	if (transaction = array->arr_transaction)
+		for (ptr = &transaction->tra_arrays; *ptr; ptr = &(*ptr)->arr_next)
+			if (*ptr == array) {
+				*ptr = array->arr_next;
+				break;
+			}
+
+	ALL_release(reinterpret_cast < frb * >(array));
+}
+
+
+void BLB_scalar(
+				TDBB tdbb,
+				TRA transaction,
+				BID blob_id, USHORT count, SLONG * subscripts, VLU value)
+{
+/**************************************
+ *
+ *      B L B _ s c a l a r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	BLB blob;
+	ADS array_desc;
+	DSC desc;
+	SLONG number, offset, stuff[ADS_LEN(16) / 4];
+	double temp[64];
+	STR temp_str;
+
+	SET_TDBB(tdbb);
+
+	array_desc = (ADS) stuff;
+	blob = BLB_get_array(tdbb, transaction, blob_id, array_desc);
+
+/* Get someplace to put data.  If the local buffer isn't large enough,
+   allocate one that is. */
+
+	desc = array_desc->ads_rpt[0].ads_desc;
+	if (desc.dsc_length <= sizeof(temp)) {
+		desc.dsc_address = (UCHAR *) temp;
+	} else {
+		temp_str =
+			(STR) ALLOCDV(type_str, desc.dsc_length + DOUBLE_ALIGN - 1);
+		desc.dsc_address =
+			(UCHAR *) FB_ALIGN((U_IPTR) temp_str->str_data, DOUBLE_ALIGN);
+	}
+
+	number =
+		SDL_compute_subscript(tdbb->tdbb_status_vector, array_desc, count,
+							  subscripts);
+
+	if (number < 0) {
+		BLB_close(tdbb, blob);
+		if (desc.dsc_address != (UCHAR *) temp)
+			ALL_release(reinterpret_cast < frb * >(temp_str));
+		ERR_punt();
+	}
+
+	offset = number * array_desc->ads_element_length;
+	BLB_lseek(blob, 0, offset + (SLONG) array_desc->ads_length);
+	BLB_get_segment(tdbb, blob, reinterpret_cast < UCHAR * >(temp),
+					desc.dsc_length);
+
+/* If we have run out of data, then clear the data buffer. */
+
+	if (blob->blb_flags & BLB_eof)
+		memset(desc.dsc_address, 0, (int) desc.dsc_length);
+	EVL_make_value(tdbb, &desc, value);
+	BLB_close(tdbb, blob);
+	if (desc.dsc_address != (UCHAR *) temp)
+		ALL_release(reinterpret_cast < frb * >(temp_str));
+}
+
+
+static ARR alloc_array(TRA transaction, ADS proto_desc)
+{
+/**************************************
+ *
+ *      a l l o c _ a r r a y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Allocate an array block based on a prototype array descriptor.
+ *
+ **************************************/
+	ARR array;
+	USHORT n;
+
+/* Compute size and allocate block */
+
+	n = MAX(proto_desc->ads_struct_count, proto_desc->ads_dimensions);
+	array = (ARR) ALLOCTV(type_arr, n);
+
+/* Copy prototype descriptor */
+
+	MOVE_FAST(proto_desc, &array->arr_desc, proto_desc->ads_length);
+
+/* Link into transaction block */
+
+	array->arr_next = transaction->tra_arrays;
+	transaction->tra_arrays = array;
+	array->arr_transaction = transaction;
+
+/* Allocate large block to hold array */
+
+	array->arr_data =
+		(UCHAR *) ALL_malloc(array->arr_desc.ads_total_length, ERR_jmp);
+
+	return array;
+}
+
+
+static BLB allocate_blob(TDBB tdbb, TRA transaction)
+{
+/**************************************
+ *
+ *      a l l o c a t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create a shiney, new, empty blob.
+ *
+ **************************************/
+	DBB dbb;
+	BLB blob;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* Create a blob large enough to hold a single data page */
+
+	blob = (BLB) ALLOCTV(type_blb, dbb->dbb_page_size);
+	blob->blb_attachment = tdbb->tdbb_attachment;
+	blob->blb_next = transaction->tra_blobs;
+	transaction->tra_blobs = blob;
+	blob->blb_transaction = transaction;
+
+/* Compute some parameters governing various maximum sizes based on
+   database page size. */
+
+	blob->blb_clump_size = dbb->dbb_page_size - sizeof(struct dpg) -
+		sizeof(dpg::dpg_repeat) - sizeof(struct blh);
+	blob->blb_max_pages = blob->blb_clump_size >> SHIFTLONG;
+	blob->blb_pointers = (dbb->dbb_page_size - BLP_SIZE) >> SHIFTLONG;
+
+	return blob;
+}
+
+
+static STATUS blob_filter(
+						  USHORT action,
+						  CTL control, SSHORT mode, SLONG offset)
+{
+/**************************************
+ *
+ *      b l o b _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Filter of last resort for filtered blob access handled by Y-valve.
+ *
+ **************************************/
+	USHORT length;
+	VCL vector;
+	BLB blob;
+	TRA transaction;
+	SLONG *blob_id;
+	TDBB tdbb;
+
+/* Note: Cannot remove this GET_THREAD_DATA without API change to
+   blob filter routines */
+
+	tdbb = GET_THREAD_DATA;
+
+	transaction = (TRA) control->ctl_internal[1];
+	blob_id = (SLONG *) control->ctl_internal[2];
+
+#ifdef DEV_BUILD
+	if (transaction)
+		BLKCHK(transaction, type_tra);
+#endif
+
+	switch (action) {
+	case ACTION_open:
+		blob =
+			BLB_open2(tdbb, transaction, reinterpret_cast < bid * >(blob_id),
+					  0, 0);
+		control->ctl_source_handle = (CTL) blob;
+		control->ctl_total_length = blob->blb_length;
+		control->ctl_max_segment = blob->blb_max_segment;
+		control->ctl_number_segments = blob->blb_count;
+		return SUCCESS;
+
+	case ACTION_get_segment:
+		blob = (BLB) control->ctl_source_handle;
+		control->ctl_segment_length =
+			BLB_get_segment(tdbb, blob, control->ctl_buffer,
+							control->ctl_buffer_length);
+		if (blob->blb_flags & BLB_eof)
+			return gds__segstr_eof;
+		if (blob->blb_fragment_size)
+			return gds__segment;
+		return SUCCESS;
+
+	case ACTION_create:
+		control->ctl_source_handle =
+			(CTL) BLB_create2(tdbb, transaction,
+							  reinterpret_cast < bid * >(blob_id), 0,
+							  (UCHAR *) 0);
+		return SUCCESS;
+
+	case ACTION_put_segment:
+		blob = (BLB) control->ctl_source_handle;
+		BLB_put_segment(tdbb, blob, control->ctl_buffer,
+						control->ctl_buffer_length);
+		return SUCCESS;
+
+	case ACTION_close:
+		BLB_close(tdbb,
+				  reinterpret_cast < blb * >(control->ctl_source_handle));
+		return SUCCESS;
+
+	case ACTION_alloc:
+		length = ROUNDUP(sizeof(struct ctl), sizeof(SLONG));
+		vector = (VCL) ALLOCTV(type_vcl, length);
+		return (STATUS) (vector->vcl_long);
+
+	case ACTION_free:
+		vector = (VCL) ((UCHAR *) control - OFFSETA(VCL, vcl_long));
+		ALL_release(reinterpret_cast < frb * >(vector));
+		return SUCCESS;
+
+	case ACTION_seek:
+		return BLB_lseek((BLB) control->ctl_source_handle, mode, offset);
+
+	default:
+		ERR_post(gds__uns_ext, 0);
+		return SUCCESS;
+	}
+}
+
+
+static void check_BID_validity(BLB blob, TDBB tdbb)
+{
+/**************************************
+ *
+ *      c h e c k _ B I D _ v a l i d i t y
+ *
+ **************************************
+ *
+ * Functional description
+ *      There are times when an application passes the engine
+ *      a BID, which we then assume points to a valid BLB structure.
+ *      Specifically, this can occur when an application is trying
+ *      to open a newly created blob (that doesn't have a relation
+ *      ID assigned).
+ *
+ *      However, it is quite possible that garbage BID is passed in
+ *      from an application; resulting in core dumps within the engine
+ *      due to trying to make use of the information.
+ *
+ *      This function takes a BID's pointer to a blb, and performs
+ *      some validity checks on it.  It can't catch all possible
+ *      garbage inputs from an application, but should catch
+ *      many of them.
+ *
+ *      Note that we can't BUGCHECK or BLKCHK here, this is an
+ *      application level error.
+ *
+ *      94-Jan-07 Daves
+ *
+ **************************************/
+
+	if (!blob ||
+		blob->blb_header.blk_type != (UCHAR) type_blb ||
+		blob->blb_attachment != tdbb->tdbb_attachment ||
+		blob->blb_level > 2 || !(blob->blb_flags & BLB_temporary))
+
+		ERR_post(gds__bad_segstr_id, 0);
+}
+
+
+static BLB copy_blob(TDBB tdbb, BID source, REL relation, BID destination)
+{
+/**************************************
+ *
+ *      c o p y _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Make a copy of an existing blob.
+ *
+ **************************************/
+#ifndef STACK_REDUCTION
+	UCHAR buffer[2000], *buff;
+#else
+	UCHAR *buffer, *buff;
+#endif
+	STR string;
+	BLB input, output;
+	REQ request;
+	USHORT length;
+
+#ifdef STACK_REDUCTION
+	buffer = (UCHAR *) gds__alloc((SLONG) (sizeof(UCHAR) * BUFFER_XLARGE));
+#endif
+
+	SET_TDBB(tdbb);
+
+	request = tdbb->tdbb_request;
+	input = BLB_open(tdbb, request->req_transaction, source);
+	output = BLB_create(tdbb, request->req_transaction, destination);
+	output->blb_sub_type = input->blb_sub_type;
+
+	if (input->blb_flags & BLB_stream)
+		output->blb_flags |= BLB_stream;
+
+#ifdef STACK_REDUCTION
+	if (input->blb_max_segment > BUFFER_XLARGE)
+#else
+	if (input->blb_max_segment > sizeof(buffer))
+#endif
+
+	{
+		string = (STR) ALLOCDV(type_str, input->blb_max_segment);
+		buff = (UCHAR *) string->str_data;
+	}
+	else {
+		string = NULL;
+		buff = buffer;
+	}
+
+	while (TRUE) {
+		length = BLB_get_segment(tdbb, input, buff, input->blb_max_segment);
+		if (input->blb_flags & BLB_eof)
+			break;
+		BLB_put_segment(tdbb, output, buff, length);
+	}
+
+	if (string)
+		ALL_release(reinterpret_cast < frb * >(string));
+
+#ifdef STACK_REDUCTION
+	gds__free((SLONG *) buffer);
+#endif
+
+	BLB_close(tdbb, input);
+	BLB_close(tdbb, output);
+
+	return output;
+}
+
+
+static void delete_blob(TDBB tdbb, BLB blob, ULONG prior_page)
+{
+/**************************************
+ *
+ *      d e l e t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Delete all disk storage associated with blob.  This can be used
+ *      to either abort a temporary blob or get rid of an unwanted and
+ *      unloved permanent blob.  The routine deletes only blob page --
+ *      somebody else will have to worry about the blob root.
+ *
+ **************************************/
+	DBB dbb;
+	VCL vector;
+	WIN window;
+	BLP page;
+	SLONG *ptr, *end, *ptr2, *end2;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef READONLY_DATABASE
+	if (dbb->dbb_flags & DBB_read_only)
+		ERR_post(isc_read_only_database, 0);
+#endif /* READONLY_DATABASE */
+
+/* Level 0 blobs don't need cleanup */
+
+	if (blob->blb_level == 0)
+		return;
+
+/* Level 1 blobs just need the root page level released */
+
+	vector = blob->blb_pages;
+	ptr = vector->vcl_long;
+	end = ptr + vector->vcl_count;
+
+	if (blob->blb_level == 1) {
+		for (; ptr < end; ptr++)
+			if (*ptr)
+				PAG_release_page(*ptr, prior_page);
+		return;
+	}
+
+/* Level 2 blobs need a little more work to keep the page precedence
+   in order.  The basic problem is that the pointer page has to be
+   released before the data pages that it points to.  Sigh. */
+
+	window.win_flags = WIN_large_scan;
+	window.win_scans = 1;
+
+	for (; ptr < end; ptr++)
+		if (window.win_page = *ptr) {
+			page = (BLP) CCH_FETCH(tdbb, &window, LCK_read, pag_blob);
+			MOVE_FASTER(page, blob->blb_data, dbb->dbb_page_size);
+			CCH_RELEASE_TAIL(tdbb, &window);
+			PAG_release_page(*ptr, prior_page);
+			page = (BLP) blob->blb_data;
+			for (ptr2 = page->blp_page, end2 = ptr2 + blob->blb_pointers;
+				 ptr2 < end2; ptr2++)
+				if (*ptr2)
+					PAG_release_page(*ptr2, *ptr);
+		}
+}
+
+
+static void delete_blob_id(
+						   TDBB tdbb,
+						   BID blob_id, ULONG prior_page, REL relation)
+{
+/**************************************
+ *
+ *      d e l e t e _ b l o b _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Delete an existing blob for purposed of garbage collection.
+ *
+ **************************************/
+	DBB dbb;
+	BLB blob;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* If the blob is null, don't both to delete it.  Reasonable? */
+
+#ifndef DECOSF
+	if (!blob_id->bid_stuff.bid_number && !blob_id->bid_relation_id)
+#else
+	if (!blob_id->bid_stuff.bid_number && !blob_id->bid_relation_id
+		&& !blob_id->bid_blob2)
+#endif
+		return;
+
+	if (blob_id->bid_relation_id != relation->rel_id)
+		CORRUPT(200);			/* msg 200 invalid blob id */
+
+/* Fetch blob */
+
+	blob = allocate_blob(tdbb, dbb->dbb_sys_trans);
+	blob->blb_relation = relation;
+	prior_page =
+		DPM_get_blob(tdbb, blob, blob_id->bid_stuff.bid_number, TRUE,
+					 prior_page);
+
+	if (!(blob->blb_flags & BLB_damaged))
+		delete_blob(tdbb, blob, prior_page);
+
+	release_blob(blob, TRUE);
+}
+
+
+static ARR find_array(TRA transaction, BID blob_id)
+{
+/**************************************
+ *
+ *      f i n d _ a r r a y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find array from temporary blob id.
+ *
+ **************************************/
+	ARR array;
+
+	for (array = transaction->tra_arrays; array; array = array->arr_next)
+#ifndef DECOSF
+		if (array == (ARR) blob_id->bid_stuff.bid_blob)
+#else
+		if (array == *((ARR *) blob_id))
+#endif
+			break;
+
+	return array;
+}
+
+
+static BLF find_filter(TDBB tdbb, SSHORT from, SSHORT to)
+{
+/**************************************
+ *
+ *      f i n d _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find blob filter.
+ *
+ **************************************/
+	DBB dbb;
+	BLF cache;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	for (cache = dbb->dbb_blob_filters; cache; cache = cache->blf_next)
+		if (cache->blf_from == from && cache->blf_to == to)
+			return cache;
+
+	if (!(cache = BLF_lookup_internal_filter(tdbb, from, to)))
+		cache = MET_lookup_filter(tdbb, from, to);
+
+	if (cache) {
+		cache->blf_next = dbb->dbb_blob_filters;
+		dbb->dbb_blob_filters = cache;
+	}
+
+	return cache;
+}
+
+
+static BLP get_next_page(TDBB tdbb, BLB blob, WIN * window)
+{
+/**************************************
+ *
+ *      g e t _ n e x t _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Read a blob page and copy it into the blob data area.  Return
+ *      TRUE is there is a next page.
+ *
+ **************************************/
+	VCL vector;
+	BLP page;
+	DBB dbb;
+#ifdef SUPERSERVER_V2
+	USHORT sequence, i;
+	ULONG abs_sequence;
+	SLONG pages[PREFETCH_MAX_PAGES];
+#endif
+
+	if (blob->blb_level == 0 || blob->blb_sequence > blob->blb_max_sequence) {
+		blob->blb_space_remaining = 0;
+		return NULL;
+	}
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	vector = blob->blb_pages;
+
+/* Level 1 blobs are much easier -- page number is in vector. */
+
+	if (blob->blb_level == 1) {
+#ifdef SUPERSERVER_V2
+		/* Perform prefetch of blob level 1 data pages. */
+
+		if (!(blob->blb_sequence % dbb->dbb_prefetch_sequence)) {
+			sequence = blob->blb_sequence;
+			for (i = 0;
+				 i < dbb->dbb_prefetch_pages
+				 && sequence <= blob->blb_max_sequence;) pages[i++] =
+					vector->vcl_long[sequence++];
+
+			CCH_PREFETCH(tdbb, pages, i);
+		}
+#endif
+		window->win_page = vector->vcl_long[blob->blb_sequence];
+		page = (BLP) CCH_FETCH(tdbb, window, LCK_read, pag_blob);
+	}
+	else {
+		window->win_page =
+			vector->vcl_long[blob->blb_sequence / blob->blb_pointers];
+		page = (BLP) CCH_FETCH(tdbb, window, LCK_read, pag_blob);
+#ifdef SUPERSERVER_V2
+		/* Perform prefetch of blob level 2 data pages. */
+
+		sequence = blob->blb_sequence % blob->blb_pointers;
+		if (!(sequence % dbb->dbb_prefetch_sequence))
+		{
+			abs_sequence = blob->blb_sequence;
+			for (i = 0; i < dbb->dbb_prefetch_pages &&
+						sequence < blob->blb_pointers &&
+						abs_sequence <= blob->blb_max_sequence;)
+			{
+				pages[i++] = page->blp_page[sequence++];
+				abs_sequence++;
+			}
+
+			CCH_PREFETCH(tdbb, pages, i);
+		}
+#endif
+		page = (BLP)CCH_HANDOFF(tdbb,
+								window,
+								 page->blp_page[blob->blb_sequence %
+												blob->blb_pointers],
+								LCK_read,
+								 pag_blob);
+	}
+
+	if (page->blp_sequence != blob->blb_sequence)
+		CORRUPT(201);			/* msg 201 cannot find blob page */
+
+	blob->blb_sequence++;
+
+	return page;
+}
+
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+static void get_replay_blob(TDBB tdbb, BID blob_id)
+{
+/**************************************
+ *
+ *      g e t _ r e p l a y _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Replace the blob id passed with the
+ *      blob id used in the original session.
+ *
+ **************************************/
+	DBB dbb;
+	MAP map_ptr;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* we're only interested in newly created blobs */
+
+	if (blob_id->bid_relation_id != 0)
+		return;
+
+/* search the linked list for the old blob id */
+
+	for (map_ptr = dbb->dbb_blob_map; map_ptr; map_ptr = map_ptr->map_next) {
+#ifndef DECOSF
+		if (blob_id->bid_stuff.bid_blob == map_ptr->map_old_blob)
+#else
+		if (*((BLB *) blob_id) == map_ptr->map_old_blob)
+#endif
+		{
+#ifndef DECOSF
+			blob_id->bid_stuff.bid_blob = map_ptr->map_new_blob;
+#else
+			*((BLB *) blob_id) = map_ptr->map_new_blob;
+#endif
+			break;
+		}
+	}
+}
+#endif
+
+
+static void insert_page(TDBB tdbb, BLB blob)
+{
+/**************************************
+ *
+ *      i n s e r t _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *      A data page has been formatted.  Allocate a physical page,
+ *      move the data page to the buffer, and insert the page number
+ *      of the new page into the blob data structure.
+ *
+ **************************************/
+	DBB dbb;
+	USHORT length, l;
+	BLP page;
+	WIN window;
+	ULONG page_number;
+	VCL vector;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	length = dbb->dbb_page_size - blob->blb_space_remaining;
+	vector = blob->blb_pages;
+	blob->blb_max_sequence = blob->blb_sequence;
+
+/* Allocate a page for the now full blob data page.  Move the page
+   image to the buffer, and release the page.  */
+
+	page = (BLP) DPM_allocate(tdbb, &window);
+	page_number = window.win_page;
+
+	if (blob->blb_sequence == 0)
+		blob->blb_lead_page = page_number;
+
+	MOVE_FASTER(blob->blb_data, page, length);
+	page->blp_sequence = blob->blb_sequence;
+	page->blp_lead_page = blob->blb_lead_page;
+	page->blp_length = length - BLP_SIZE;
+	CCH_RELEASE(tdbb, &window);
+
+/* If the blob is at level 1, there are two cases.  First, and easiest,
+   is that there is still room in the page vector to hold the pointer.
+   The second case is that the vector is full, and the blob must be
+   transformed into a level 2 blob. */
+
+	if (blob->blb_level == 1) {
+		/*  See if there is room in the page vector.  If so, just update
+		   the vector. */
+
+		if (blob->blb_sequence < blob->blb_max_pages) {
+			vector->vcl_long[blob->blb_sequence] = page_number;
+			if (blob->blb_sequence >= vector->vcl_count)
+				vector->vcl_count = blob->blb_sequence + 1;
+			return;
+		}
+
+		/* The vector just overflowed.  Sigh.  Transform blob to level 2. */
+
+		blob->blb_level = 2;
+		page = (BLP) DPM_allocate(tdbb, &window);
+		page->blp_header.pag_flags = blp_pointers;
+		page->blp_header.pag_type = pag_blob;
+		page->blp_lead_page = blob->blb_lead_page;
+		page->blp_length = vector->vcl_count << SHIFTLONG;
+		MOVE_FASTER(vector->vcl_long, page->blp_page, page->blp_length);
+		vector->vcl_long[0] = window.win_page;
+		vector->vcl_count = 1;
+		CCH_RELEASE(tdbb, &window);
+	}
+
+/* The blob must be level 2.  Find the appropriate pointer page (creating
+   it if need be, and stick the pointer in the appropriate slot. */
+
+	l = blob->blb_sequence / blob->blb_pointers;
+
+	if (l < vector->vcl_count) {
+		window.win_page = vector->vcl_long[l];
+		window.win_flags = 0;
+		page = (BLP) CCH_FETCH(tdbb, &window, LCK_write, pag_blob);
+	}
+	else {
+		page = (BLP) DPM_allocate(tdbb, &window);
+		page->blp_header.pag_flags = blp_pointers;
+		page->blp_header.pag_type = pag_blob;
+		page->blp_lead_page = blob->blb_lead_page;
+		vector->vcl_count = l + 1;
+		vector->vcl_long[l] = window.win_page;
+	}
+
+	CCH_precedence(tdbb, &window, page_number);
+	CCH_MARK(tdbb, &window);
+	l = blob->blb_sequence % blob->blb_pointers;
+	page->blp_page[l] = page_number;
+	page->blp_length = (l + 1) << SHIFTLONG;
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+static void release_blob(BLB blob, USHORT purge_flag)
+{
+/**************************************
+ *
+ *      r e l e a s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release a blob and associated blocks.  Among other things,
+ *      disconnect it from the transaction.  However, if purge_flag
+ *      is FALSE, then only release the associated blocks.
+ *
+ **************************************/
+	TRA transaction;
+	BLB *ptr;
+
+	transaction = blob->blb_transaction;
+
+/* Disconnect blob from transaction block. */
+
+	if (purge_flag)
+		for (ptr = &transaction->tra_blobs; *ptr; ptr = &(*ptr)->blb_next)
+			if (*ptr == blob) {
+				*ptr = blob->blb_next;
+				break;
+			}
+
+	if (blob->blb_pages) {
+		ALL_release(reinterpret_cast < frb * >(blob->blb_pages));
+		blob->blb_pages = NULL;
+	}
+
+	if (purge_flag)
+		ALL_release(reinterpret_cast < frb * >(blob));
+}
+
+
+static void slice_callback(SLICE arg, ULONG count, DSC * descriptors)
+{
+/**************************************
+ *
+ *      s l i c e _ c a l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Perform slice assignment.
+ *
+ **************************************/
+	DSC *array_desc, *slice_desc, temp_desc;
+	BLOB_PTR *next;
+	BLOB_PTR *end;
+	BLOB_PTR *p;
+	SLONG l;
+	USHORT len;
+
+	array_desc = descriptors;
+	slice_desc = &arg->slice_desc;
+	next = (BLOB_PTR *) slice_desc->dsc_address + arg->slice_element_length;
+
+	if ((BLOB_PTR *) next > (BLOB_PTR *) arg->slice_end)
+		ERR_post(gds__out_of_bounds, 0);
+
+	if ((BLOB_PTR *) array_desc->dsc_address < (BLOB_PTR *) arg->slice_base)
+		ERR_error(198);			/* msg 198 array subscript computation error */
+
+	if (arg->slice_direction) {
+
+		/* Storing INTO array */
+		/* FROM slice_desc TO array_desc */
+
+		/* If storing beyond the high-water mark, ensure elements
+		 * from the high-water mark to current position are zeroed
+		 */
+		l =
+			(BLOB_PTR *) array_desc->dsc_address -
+			(BLOB_PTR *) arg->slice_high_water;
+		if (l > 0)
+			memset(arg->slice_high_water, 0, l);
+
+		/* The individual elements of a varying string array may not be aligned
+		   correctly.  If they aren't, some RISC machines may break.  In those
+		   cases, calculate the actual length and then move the length and
+		   text manually. */
+
+		if (array_desc->dsc_dtype == dtype_varying &&
+			(U_IPTR) array_desc->dsc_address !=
+			FB_ALIGN((U_IPTR) array_desc->dsc_address,
+					 (MIN(sizeof(USHORT), ALIGNMENT)))) {
+			STR tmp_buffer;
+			USHORT tmp_len;
+			TDBB tdbb;
+
+			/* Note: cannot remove this GET_THREAD_DATA without api change 
+			   to slice callback routines */
+			tdbb = GET_THREAD_DATA;
+
+			tmp_len = array_desc->dsc_length;
+			tmp_buffer = (STR) ALLOCDV(type_str, tmp_len);
+			len = MOV_make_string(slice_desc,
+								  INTL_TEXT_TYPE(*array_desc),
+								  &p,
+								  reinterpret_cast <
+								  vary * >(tmp_buffer->str_data), tmp_len);
+			MOVE_FAST(&len, array_desc->dsc_address, sizeof(USHORT));
+			MOVE_FAST(p, array_desc->dsc_address + sizeof(USHORT), (int) len);
+			ALL_release(reinterpret_cast < frb * >(tmp_buffer));
+		}
+		else
+			MOV_move(slice_desc, array_desc);
+		end = (BLOB_PTR *) array_desc->dsc_address + array_desc->dsc_length;
+		if ((BLOB_PTR *) end > (BLOB_PTR *) arg->slice_high_water)
+			arg->slice_high_water = (BLOB_PTR *) end;
+	}
+	else {
+
+		/* Fetching FROM array */
+		/* FROM array_desc TO slice_desc */
+
+		/* If the element is under the high-water mark, fetch it,
+		 * otherwise just zero it 
+		 */
+		if ((BLOB_PTR *) array_desc->dsc_address <
+			(BLOB_PTR *) arg->slice_high_water) {
+			/* If a varying string isn't aligned correctly, calculate the actual
+			   length and then treat the string as if it had type text. */
+
+			if (array_desc->dsc_dtype == dtype_varying &&
+				(U_IPTR) array_desc->dsc_address !=
+				FB_ALIGN((U_IPTR) array_desc->dsc_address,
+						 (MIN(sizeof(USHORT), ALIGNMENT)))) {
+				temp_desc.dsc_dtype = dtype_text;
+				temp_desc.dsc_sub_type = array_desc->dsc_sub_type;
+				temp_desc.dsc_scale = array_desc->dsc_scale;
+				temp_desc.dsc_flags = array_desc->dsc_flags;
+				MOVE_FAST(array_desc->dsc_address, &temp_desc.dsc_length,
+						  sizeof(USHORT));
+				temp_desc.dsc_address =
+					array_desc->dsc_address + sizeof(USHORT);
+				MOV_move(&temp_desc, slice_desc);
+			}
+			else
+				MOV_move(array_desc, slice_desc);
+			++arg->slice_count;
+		}
+		else if (l = slice_desc->dsc_length)
+			memset(slice_desc->dsc_address, 0, l);
+	}
+
+	slice_desc->dsc_address = next;
+}
+
+
+static BLB store_array(TDBB tdbb, TRA transaction, BID blob_id)
+{
+/**************************************
+ *
+ *      s t o r e _ a r r a y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Actually store an array.  Oh boy!
+ *
+ **************************************/
+	ARR array;
+	BLB blob;
+	BLOB_PTR *p;
+	SLONG length;
+
+	SET_TDBB(tdbb);
+
+/* Validate array */
+
+	if (!(array = find_array(transaction, blob_id)))
+		return NULL;
+
+/* Create blob for array */
+
+	blob = BLB_create2(tdbb, transaction, blob_id, 0, (UCHAR *) 0);
+	blob->blb_flags |= BLB_stream;
+
+/* Write out array descriptor */
+
+	BLB_put_segment(tdbb, blob,
+					reinterpret_cast < UCHAR * >(&array->arr_desc),
+					array->arr_desc.ads_length);
+
+/* Write out actual array */
+
+	for (length = array->arr_effective_length, p =
+		 (BLOB_PTR *) array->arr_data; length > 32768;
+		 length -= 32768, p +=
+		 32768) BLB_put_segment(tdbb, blob, p, (USHORT) 32768);
+
+	if (length)
+		BLB_put_segment(tdbb, blob, p, (USHORT) length);
+
+	BLB_close(tdbb, blob);
+
+	return blob;
+}
+
+
+} // extern "C"
diff --git a/src/jrd/blb.h b/src/jrd/blb.h
new file mode 100644
index 0000000000..069b635c70
--- /dev/null
+++ b/src/jrd/blb.h
@@ -0,0 +1,115 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		blb.h
+ *	DESCRIPTION:	Blob handling definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_BLB_H_
+#define _JRD_BLB_H_
+
+/* Blob id.  A blob has two states -- temporary and permanent.  In each
+   case, the blob id is 8 bytes (2 longwords) long.  In the case of a
+   temporary blob, the first word is NULL and the second word points to
+   an internal blob block.  In the case of a permanent blob, the first
+   word contains the relation id of the blob and the second the record
+   number of the first segment-clump.  The two types of blobs can be
+   reliably distinguished by a zero or non-zero relation id. */
+
+typedef struct bid {
+#ifndef DECOSF
+	ULONG bid_relation_id;		/* Relation id (or null) */
+	union {
+		struct blb *bid_blob;	/* Pointer to blob block */
+		ULONG bid_number;		/* Record number */
+	} bid_stuff;
+#else
+	union {
+		ULONG bid_blob;			/* Low end of pointer to blob block */
+		ULONG bid_number;		/* Record number */
+	} bid_stuff;
+	USHORT bid_blob2;			/* High end of pointer to blob block */
+	USHORT bid_relation_id;		/* Relation id (or null) */
+#endif
+} *BID;
+
+/* Your basic blob block. */
+
+typedef struct blb {
+	struct blk blb_header;
+	struct att *blb_attachment;	/* database attachment */
+	struct rel *blb_relation;	/* Relation, if known */
+	struct tra *blb_transaction;	/* Parent transaction block */
+	struct blb *blb_next;		/* Next blob in transaction */
+	UCHAR *blb_segment;			/* Next segment to be addressed */
+	struct ctl *blb_filter;		/* Blob filter control block, if any */
+	struct bid blb_blob_id;		/* Id of materialized blob */
+	struct req *blb_request;	/* request that assigned temporary blob */
+#ifndef GATEWAY
+	struct vcl *blb_pages;		/* Vector of pages */
+	USHORT blb_pointers;		/* Max pointer on a page */
+#else
+	struct vec *blb_pages;		/* Vector of pages */
+#endif
+	USHORT blb_level;			/* Storage type */
+	USHORT blb_max_segment;		/* Longest segment */
+	USHORT blb_flags;			/* Interesting stuff (see below) */
+	USHORT blb_clump_size;		/* Size of data clump */
+	USHORT blb_space_remaining;	/* Data space left */
+	USHORT blb_max_pages;		/* Max pages in vector */
+	USHORT blb_fragment_size;	/* Residual fragment size */
+	USHORT blb_source_interp;	/* source interp (for writing) */
+	USHORT blb_target_interp;	/* destination interp (for reading) */
+	SSHORT blb_sub_type;		/* Blob's declared sub-type */
+	ULONG blb_sequence;			/* Blob page sequence */
+	ULONG blb_max_sequence;		/* Number of data pages */
+	ULONG blb_count;			/* Number of segments */
+	ULONG blb_length;			/* Total length of data sans segments */
+	ULONG blb_lead_page;		/* First page number */
+	ULONG blb_seek;				/* Seek location */
+	/* blb_data must be longword aligned */
+	UCHAR blb_data[1];			/* A page's worth of blob */
+} *BLB;
+
+#define BLB_temporary	1		/* Newly created blob */
+#define BLB_eof		2			/* This blob is exhausted */
+#define BLB_stream	4			/* Stream style blob */
+#define BLB_closed	8			/* Temporary blob has been closed */
+#define BLB_damaged	16			/* Blob is busted */
+#define BLB_seek	32			/* Seek is pending */
+#define BLB_user_def	64		/* Blob is user created */
+#define BLB_large_scan	128		/* Blob is larger than page buffer cache */
+
+/* Blob levels are:
+
+	0	small blob -- blob "record" is actual data
+	1	medium blob -- blob "record" is pointer to pages
+	2	large blob -- blob "record" is pointer to pages of pointers
+*/
+
+/* mapping blob ids for REPLAY */
+
+typedef struct map {
+	struct blk map_header;
+	struct map *map_next;
+	struct blb *map_old_blob;
+	struct blb *map_new_blob;
+} *MAP;
+
+#endif /* _JRD_BLB_H_ */
diff --git a/src/jrd/blb_proto.h b/src/jrd/blb_proto.h
new file mode 100644
index 0000000000..8849a722d2
--- /dev/null
+++ b/src/jrd/blb_proto.h
@@ -0,0 +1,67 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		blb_proto.h
+ *	DESCRIPTION:	Prototype header file for blb.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_BLB_PROTO_H_
+#define _JRD_BLB_PROTO_H_
+
+#include "../jrd/jrd.h"
+#include "../jrd/blb.h"
+#include "../jrd/exe.h"
+#include "../jrd/lls.h"
+#include "../jrd/val.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void BLB_cancel(TDBB, struct blb *);
+extern void BLB_close(TDBB, struct blb *);
+extern struct blb *BLB_create(TDBB, struct tra *, struct bid *);
+extern struct blb *BLB_create2(TDBB, struct tra *, struct bid *, USHORT,
+							   UCHAR *);
+extern void BLB_garbage_collect(TDBB, struct lls *, struct lls *, SLONG,
+								struct rel *);
+extern struct blb *BLB_get_array(TDBB, struct tra *, struct bid *,
+								 struct ads *);
+extern SLONG BLB_get_data(TDBB, struct blb *, UCHAR *, SLONG);
+extern USHORT BLB_get_segment(TDBB, struct blb *, UCHAR *, USHORT);
+extern SLONG BLB_get_slice(TDBB, struct tra *, struct bid *, UCHAR *, USHORT,
+						   SLONG *, SLONG, UCHAR *);
+extern SLONG BLB_lseek(struct blb *, USHORT, SLONG);
+extern void DLL_EXPORT BLB_map_blobs(TDBB, struct blb *, struct blb *);
+extern void BLB_move(TDBB, struct dsc *, struct dsc *, struct nod *);
+extern struct blb *BLB_open(TDBB, struct tra *, struct bid *);
+extern struct blb *BLB_open2(TDBB, struct tra *, struct bid *, USHORT,
+							 UCHAR *);
+extern void BLB_put_segment(TDBB, struct blb *, UCHAR *, USHORT);
+extern void BLB_put_slice(TDBB, struct tra *, struct bid *, UCHAR *, USHORT,
+						  SLONG *, SLONG, UCHAR *);
+extern void BLB_release_array(struct arr *);
+extern void BLB_scalar(TDBB, struct tra *, struct bid *, USHORT, SLONG *,
+					   struct vlu *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_BLB_PROTO_H_ */
diff --git a/src/jrd/blf_proto.h b/src/jrd/blf_proto.h
new file mode 100644
index 0000000000..4d1e79af2d
--- /dev/null
+++ b/src/jrd/blf_proto.h
@@ -0,0 +1,46 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		blf_proto.h
+ *	DESCRIPTION:	Prototype header file for blf.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_BLF_PROTO_H_
+#define _JRD_BLF_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern STATUS DLL_EXPORT BLF_close_blob(TDBB, struct ctl **);
+extern STATUS DLL_EXPORT BLF_create_blob(TDBB, TRA, struct ctl **, SLONG *,
+										 USHORT, UCHAR *, STATUS(*)(), BLF);
+extern STATUS DLL_EXPORT BLF_get_segment(TDBB, struct ctl **, USHORT *,
+										 USHORT, UCHAR *);
+extern BLF DLL_EXPORT BLF_lookup_internal_filter(TDBB, SSHORT, SSHORT);
+extern STATUS DLL_EXPORT BLF_open_blob(TDBB, TRA, struct ctl **, SLONG *,
+									   USHORT, UCHAR *, STATUS(*)(), BLF);
+extern STATUS DLL_EXPORT BLF_put_segment(TDBB, struct ctl **, USHORT,
+										 UCHAR *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_BLF_PROTO_H_ */
diff --git a/src/jrd/blk.h b/src/jrd/blk.h
new file mode 100644
index 0000000000..d757308fd7
--- /dev/null
+++ b/src/jrd/blk.h
@@ -0,0 +1,92 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		blk.h
+ *	DESCRIPTION:	Block type definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+BLKDEF(type_frb, frb, 0)
+BLKDEF(type_hnk, hnk, 0)
+BLKDEF(type_plb, plb, 0)
+BLKDEF(type_vec, vec, sizeof(((VEC) 0)->vec_object[0]))
+BLKDEF(type_dbb, dbb, 0)
+BLKDEF(type_bcb, bcb, sizeof(((BCB) 0)->bcb_rpt[0]))
+BLKDEF(type_bdb, bdb, 0)
+BLKDEF(type_pre, pre, 0)
+BLKDEF(type_lck, lck, 1)
+BLKDEF(type_fil, fil, 1)
+BLKDEF(type_pgc, pgc, 0)
+BLKDEF(type_rel, rel, 0)
+BLKDEF(type_fmt, fmt, sizeof(((FMT) 0)->fmt_desc[0]))
+BLKDEF(type_vcl, vcl, sizeof(((VCL) 0)->vcl_long[0]))
+BLKDEF(type_req, req, sizeof(((REQ) 0)->req_rpb[0]))
+BLKDEF(type_tra, tra, 1)
+BLKDEF(type_nod, nod, sizeof(((NOD) 0)->nod_arg[0]))
+BLKDEF(type_csb, csb, sizeof(((CSB) 0)->csb_rpt[0]))
+BLKDEF(type_lls, lls, 0)	/* linked list stack */
+BLKDEF(type_rec, rec, 1)	/* record parameter */
+BLKDEF(type_rsb, rsb, sizeof(((RSB) 0)->rsb_arg[0]))	/* record source */
+BLKDEF(type_bms, bms, 0)	/* bit map segment */
+BLKDEF(type_dfw, dfw, 1)	/* deferred work block */
+BLKDEF(type_tfb, tfb, 0)	/* temporary field block */
+BLKDEF(type_str, str, 1)	/* random string block */
+BLKDEF(type_dcc, dcc, 0)	/* data compression control */
+BLKDEF(type_sbm, sbm, sizeof(((SBM) 0)->sbm_segments[0]))	/* sparse bit map */
+BLKDEF(type_smb, smb, sizeof(((SMB) 0)->smb_rpt[0]))	/* sort map block */
+BLKDEF(type_blb, blb, 1)
+BLKDEF(type_irb, irb, sizeof(((IRB) 0)->irb_value[0]))	/* Index retrieval */
+BLKDEF(type_jrn, jrn, 1)
+BLKDEF(type_scl, scl, 1)
+BLKDEF(type_fld, fld, 1)
+BLKDEF(type_ext, ext, 1)	/* External file */
+BLKDEF(type_mfb, mfb, 0)	/* merge (equivalence) file block */
+BLKDEF(type_riv, riv, 1)	/* River block -- used in optimizer */
+BLKDEF(type_usr, usr, 1)	/* User identification block */
+BLKDEF(type_att, att, 0)	/* Database attachment */
+BLKDEF(type_sym, sym, 0)
+BLKDEF(type_fun, fun, sizeof(((FUN) 0)->fun_rpt[0]))	/* Function definition */
+BLKDEF(type_irl, irl, 0)
+BLKDEF(type_acc, acc, 0)
+BLKDEF(type_idl, idl, 0)
+BLKDEF(type_rsc, rsc, 0)
+BLKDEF(type_sdw, sdw, 0)
+BLKDEF(type_vct, vct, 0)	/* Verb actions */
+BLKDEF(type_btb, btb, 0)
+BLKDEF(type_blf, blf, 0)
+BLKDEF(type_arr, arr, sizeof(((ADS) 0)->ads_rpt[0]))	/* Array description */
+BLKDEF(type_map, map, 0)
+BLKDEF(type_log, log, 0)
+BLKDEF(type_dls, dls, 1)
+BLKDEF(type_ail, logfiles, 1)	/* wal file */
+BLKDEF(type_texttype, texttype, 0)	/* Intl Text Impl Object */
+BLKDEF(type_charset, charset, 0)	/* Intl Charset definition */
+BLKDEF(type_csconvert, csconvert, 0)	/* Intl character set converter */
+BLKDEF(type_prc, prc, 1)	/* procedure block */
+BLKDEF(type_prm, prm, 1)	/* parameter block */
+BLKDEF(type_sav, sav, 0)	/* save points */
+BLKDEF(type_xcp, xcp, sizeof(((XCP) 0)->xcp_rpt[0]))	/* exception condition list */
+BLKDEF(type_idb, idb, 0)	/* index block for caching index info */
+BLKDEF(type_bkm, bkm, 1)	/* bookmark block for storing current location */
+BLKDEF(type_tpc, tpc, 1)	/* TIP page cache block */
+BLKDEF(type_rng, rng, 1)	/* refresh range */
+BLKDEF(type_svc, svc, 1)	/* services */
+BLKDEF(type_lwt, lwt, 0)	/* latch wait block */
+BLKDEF(type_vcx, vcx, 0)	/* view context block */
+BLKDEF(type_srpb, srpb, 0)	/* save rpb block */
+BLKDEF(type_opt, opt, 0)
diff --git a/src/jrd/blob_filter.e b/src/jrd/blob_filter.e
new file mode 100644
index 0000000000..1b2147500e
--- /dev/null
+++ b/src/jrd/blob_filter.e
@@ -0,0 +1,441 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		blf.e
+ *	DESCRIPTION:	Blob filter driver
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/* Note: This file is no longer an e file since it does not
+ * contain any more code for gpre to pre-process.  However,
+ * since we will soon move to a new build system, I do not 
+ * want to change the make files at this time, which is what
+ * would be required to change blf.e to blf.c.  So we will continue
+ * to pre-process it, and nothing will happen.
+ *
+ * Marco Romanini (27-January-1999) */
+
+#include <string.h>
+#include <stdio.h>
+
+#include "../jrd/jrd.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/blob_filter.h"
+#include "../jrd/tra.h"
+#include "../jrd/constants.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/blf_proto.h"
+#include "../jrd/filte_proto.h"
+#include "../jrd/flu_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/inf_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/common.h"
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/all_proto.h"
+
+/* System provided internal filters for filtering internal
+ * subtypes to text.
+ * (from_type in [0..8], to_type == BLOB_text)
+ */
+static PTR filters[] = {
+	filter_text,
+	filter_transliterate_text,
+	filter_blr,
+	filter_acl,
+	0,							/* filter_ranges, */
+	filter_runtime,
+	filter_format,
+	filter_trans,
+	filter_trans				/* should be filter_external_file */
+};
+
+static STATUS open_blob(TDBB,
+						TRA,
+						CTL*,
+						SLONG*,
+						USHORT,
+						SCHAR*,
+						PTR,
+						USHORT,
+						BLF);
+
+
+
+STATUS DLL_EXPORT BLF_close_blob(TDBB tdbb, CTL * filter_handle)
+{
+/**************************************
+ *
+ *	B L F _ c l o s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a blob and close all the intermediate filters.
+ *
+ **************************************/
+	CTL control, next;
+	PTR callback;
+	STATUS status;
+	STATUS *user_status;
+
+	user_status = tdbb->tdbb_status_vector;
+
+/* Walk the chain of filters to find the ultimate source */
+
+	for (next = *filter_handle; next->ctl_to_sub_type;
+		 next = next->ctl_source_handle);
+
+	callback = next->ctl_source;
+	status = SUCCESS;
+
+	START_CHECK_FOR_EXCEPTIONS(next->ctl_exception_message)
+
+/* Sign off from filter */
+/* Walk the chain again, telling each filter stage to close */
+		for (next = *filter_handle; control = next;) {
+		/* Close this stage of the filter */
+
+		control->ctl_status = user_status;
+		(*control->ctl_source) (ACTION_close, control);
+
+		/* Find the next stage */
+
+		next = control->ctl_source_handle;
+		if (!control->ctl_to_sub_type)
+			next = NULL;
+
+		/* Free this stage's control block allocated by calling the
+		   final stage with an ACTION_alloc, which is why we call
+		   the final stage with ACTION_free here. */
+
+		(*callback) (ACTION_free, control);
+	}
+
+	END_CHECK_FOR_EXCEPTIONS(next->ctl_exception_message)
+
+		return 0;
+}
+
+
+STATUS DLL_EXPORT BLF_create_blob(TDBB tdbb,
+								  TRA tra_handle,
+								  CTL * filter_handle,
+								  SLONG * blob_id,
+								  USHORT bpb_length,
+								  UCHAR * bpb, PTR callback, BLF filter)
+{
+/**************************************
+ *
+ *	B L F _ c r e a t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a blob and invoke a filter.
+ *
+ **************************************/
+
+	return open_blob(tdbb, tra_handle, filter_handle,
+					 blob_id, bpb_length, bpb, callback, ACTION_create,
+					 filter);
+}
+
+
+STATUS DLL_EXPORT BLF_get_segment(TDBB tdbb,
+								  CTL * filter_handle,
+								  USHORT * length,
+								  USHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	B L F _ g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get segment from a blob filter.
+ *
+ **************************************/
+	CTL control;
+	STATUS status;
+	STATUS *user_status;
+
+	user_status = tdbb->tdbb_status_vector;
+
+	control = *filter_handle;
+	control->ctl_status = user_status;
+	control->ctl_buffer = buffer;
+	control->ctl_buffer_length = buffer_length;
+
+	START_CHECK_FOR_EXCEPTIONS(control->ctl_exception_message)
+
+		user_status[0] = gds_arg_gds;
+	user_status[1] = SUCCESS;
+	user_status[2] = gds_arg_end;
+
+	status = (*control->ctl_source) (ACTION_get_segment, control);
+
+	if (!status || status == gds__segment)
+		*length = control->ctl_segment_length;
+	else
+		*length = 0;
+
+	if (status != user_status[1]) {
+		user_status[1] = status;
+		user_status[2] = gds_arg_end;
+	}
+
+	END_CHECK_FOR_EXCEPTIONS(control->ctl_exception_message)
+
+		return status;
+}
+
+
+BLF DLL_EXPORT BLF_lookup_internal_filter(TDBB tdbb, SSHORT from, SSHORT to)
+{
+/**************************************
+ *
+ *	B L F _ l o o k u p _ i n t e r n a l _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup blob filter in data structures.
+ *
+ **************************************/
+	BLF blf;
+	STR exception_msg;
+	DBB dbb;
+
+	dbb = tdbb->tdbb_database;
+
+/* Check for system defined filter */
+
+	if (to == BLOB_text && from >= 0
+		&& from < sizeof(filters) / sizeof(filters[0])) {
+		blf = (BLF) ALLOCP(type_blf);
+		blf->blf_next = NULL;
+		blf->blf_from = from;
+		blf->blf_to = to;
+		blf->blf_filter = filters[from];
+		exception_msg = (STR) ALLOCPV(type_str, 100);
+		sprintf(exception_msg->str_data,
+				"Exception occurred in system provided internal filters for filtering internal subtype %d to text.",
+				from);
+		blf->blf_exception_message = exception_msg;
+		return blf;
+	}
+
+	return NULL;
+}
+
+
+STATUS DLL_EXPORT BLF_open_blob(TDBB tdbb,
+								TRA tra_handle,
+								CTL * filter_handle,
+								SLONG * blob_id,
+								USHORT bpb_length,
+								UCHAR * bpb, PTR callback, BLF filter)
+{
+/**************************************
+ *
+ *	B L F _ o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a blob and invoke a filter.
+ *
+ **************************************/
+
+	return open_blob(tdbb, tra_handle, filter_handle,
+					 blob_id, bpb_length, bpb, callback, ACTION_open, filter);
+}
+
+
+STATUS DLL_EXPORT BLF_put_segment(TDBB tdbb,
+								  CTL * filter_handle,
+								  USHORT length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	B L F _ p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get segment from a blob filter.
+ *
+ **************************************/
+	CTL control;
+	STATUS status;
+	STATUS *user_status;
+
+	user_status = tdbb->tdbb_status_vector;
+
+	control = *filter_handle;
+	control->ctl_status = user_status;
+	control->ctl_buffer = buffer;
+	control->ctl_buffer_length = length;
+
+	START_CHECK_FOR_EXCEPTIONS(control->ctl_exception_message)
+
+		user_status[0] = gds_arg_gds;
+	user_status[1] = SUCCESS;
+	user_status[2] = gds_arg_end;
+
+	status = (*control->ctl_source) (ACTION_put_segment, control);
+
+	if (status != user_status[1]) {
+		user_status[1] = status;
+		user_status[2] = gds_arg_end;
+	}
+
+	END_CHECK_FOR_EXCEPTIONS(control->ctl_exception_message)
+
+		return status;
+}
+
+
+static STATUS open_blob(
+						TDBB tdbb,
+						TRA tra_handle,
+						CTL * filter_handle,
+						SLONG * blob_id,
+USHORT bpb_length, SCHAR * bpb, PTR callback, USHORT action, BLF filter)
+{
+/**************************************
+ *
+ *	o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a blob and invoke a filter.
+ *
+ **************************************/
+	STATUS status;
+	CTL prior, control;
+	SSHORT from, to;
+	SSHORT from_charset, to_charset;
+	struct ctl temp;
+	DBB dbb;
+	STATUS *user_status;
+
+	dbb = tdbb->tdbb_database;
+	user_status = tdbb->tdbb_status_vector;
+
+	gds__parse_bpb2(bpb_length, bpb, &from, &to, &from_charset, &to_charset);
+
+	if ((!filter) || (!filter->blf_filter)) {
+		*user_status++ = gds_arg_gds;
+		*user_status++ = gds__nofilter;
+		*user_status++ = gds_arg_number;
+		*user_status++ = (STATUS) from;
+		*user_status++ = gds_arg_number;
+		*user_status++ = (STATUS) to;
+		*user_status = gds_arg_end;
+		return gds__nofilter;
+	}
+
+/* Allocate a filter control block and open blob */
+
+	user_status[0] = gds_arg_gds;
+	user_status[1] = SUCCESS;
+	user_status[2] = gds_arg_end;
+
+/* utilize a temporary control block just to pass the three 
+   necessary internal parameters to the filter */
+
+	temp.ctl_internal[0] = (void *) dbb;
+	temp.ctl_internal[1] = (void *) tra_handle;
+	temp.ctl_internal[2] = (void *) 0;
+	prior = (CTL) (*callback) (ACTION_alloc, &temp);
+	prior->ctl_source = callback;
+	prior->ctl_status = user_status;
+
+	prior->ctl_internal[0] = (void *) dbb;
+	prior->ctl_internal[1] = (void *) tra_handle;
+	prior->ctl_internal[2] = (void *) blob_id;
+	if ((*callback) (action, prior)) {
+		BLF_close_blob(tdbb, &prior);
+		return user_status[1];
+	}
+
+	control = (CTL) (*callback) (ACTION_alloc, &temp);
+	control->ctl_source = filter->blf_filter;
+	control->ctl_source_handle = prior;
+	control->ctl_status = user_status;
+	control->ctl_exception_message = filter->blf_exception_message->str_data;
+
+/* Two types of filtering can be occuring; either between totally
+ * different BLOb sub_types, or between two different
+ * character sets (both source & destination subtype must be TEXT
+ * in that case).
+ * For the character set filter we use the to & from_sub_type fields
+ * to tell the filter what character sets to translate between.
+ */
+
+	if (filter->blf_filter == (PTR) filter_transliterate_text) {
+		assert(to == BLOB_text);
+		assert(from == BLOB_text);
+		control->ctl_to_sub_type = to_charset;
+		control->ctl_from_sub_type = from_charset;
+	}
+	else {
+		control->ctl_to_sub_type = to;
+		control->ctl_from_sub_type = from;
+	}
+	control->ctl_bpb = bpb;
+	control->ctl_bpb_length = bpb_length;
+
+	START_CHECK_FOR_EXCEPTIONS(control->ctl_exception_message)
+
+/* Initialize filter */
+		status = (*filter->blf_filter) (action, control);
+
+	END_CHECK_FOR_EXCEPTIONS(control->ctl_exception_message)
+
+		if (status) {
+		STATUS local_status[ISC_STATUS_LENGTH];
+		STATUS *tmp_status;
+		tmp_status = tdbb->tdbb_status_vector;
+		tdbb->tdbb_status_vector = local_status;
+		/* This is OK to do since we know that we will return
+		 * from  BLF_close_blob, and get a chance to set the 
+		 * status vector back to something valid.  The only
+		 * place that BLF_close_blob can go, other than return
+		 * is into the exception handling code, where it will 
+		 * abort, so no problems there. */
+		BLF_close_blob(tdbb, &control);
+		tdbb->tdbb_status_vector = tmp_status;
+	}
+	else
+		*filter_handle = control;
+
+	if (status != user_status[1]) {
+		user_status[1] = status;
+		user_status[2] = gds_arg_end;
+	}
+
+	return status;
+}
diff --git a/src/jrd/blob_filter.h b/src/jrd/blob_filter.h
new file mode 100644
index 0000000000..2be9d370d2
--- /dev/null
+++ b/src/jrd/blob_filter.h
@@ -0,0 +1,82 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		blf.h
+ *	DESCRIPTION:	Blob filter interface definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_BLF_H
+#define JRD_BLF_H
+
+/* Note: The CTL structure is the internal version of the
+ * blob control structure (ISC_BLOB_CTL) which is in ibase.h.
+ * Therefore this structure should be kept in sync with that one,
+ * with the exception of the internal members, which are all the
+ * once which appear after ctl_internal. */
+
+typedef struct ctl
+{
+	STATUS	(*ctl_source)();			/* Source filter */
+	struct ctl*	ctl_source_handle;		/* Argument to pass to source filter */
+	SSHORT		ctl_to_sub_type;		/* Target type */
+	SSHORT		ctl_from_sub_type;		/* Source type */
+	USHORT		ctl_buffer_length;		/* Length of buffer */
+	USHORT		ctl_segment_length;		/* Length of current segment */
+	USHORT		ctl_bpb_length;			/* Length of blob parameter block */
+	SCHAR*		ctl_bpb;				/* Address of blob parameter block */
+	UCHAR*		ctl_buffer;				/* Address of segment buffer */
+	SLONG		ctl_max_segment;		/* Length of longest segment */
+	SLONG		ctl_number_segments;	/* Total number of segments */
+	SLONG		ctl_total_length;		/* Total length of blob */
+	STATUS*		ctl_status;				/* Address of status vector */
+	IPTR		ctl_data[8];			/* Application specific data */
+	void*		ctl_internal[3];		/* InterBase internal-use only */
+	UCHAR*		ctl_exception_message;	/* Message to use in case of filter exception */
+} *CTL;
+
+typedef STATUS(*PTR) ();
+
+/* Blob filter management */
+
+typedef struct blf
+{
+	struct blk	blf_header;
+	struct blf*	blf_next;				/* Next known filter */
+	SSHORT		blf_from;				/* Source sub-type */
+	SSHORT		blf_to;					/* Target sub-type */
+	STATUS		(*blf_filter) ();		/* Entrypoint of filter */
+	STR			blf_exception_message;	/* message to be used in case of filter exception */
+} *BLF;
+
+#define ACTION_open			0
+#define ACTION_get_segment	1
+#define ACTION_close		2
+#define ACTION_create		3
+#define ACTION_put_segment	4
+#define ACTION_alloc		5
+#define ACTION_free			6
+#define ACTION_seek			7
+
+#define EXCEPTION_MESSAGE				\
+	"The blob filter: \t\t%s\n"			\
+	"\treferencing entrypoint: \t%s\n"	\
+	"\t             in module: \t%s\n"	\
+	"\tcaused the fatal exception:"
+
+#endif /* JRD_BLF_H */
diff --git a/src/jrd/blp.h b/src/jrd/blp.h
new file mode 100644
index 0000000000..e0b4533676
--- /dev/null
+++ b/src/jrd/blp.h
@@ -0,0 +1,139 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+NULL, NULL,
+	"assignment", two,
+	"begin", begin,
+	"declare", declare,
+	"message", message,
+	"erase", byte,
+	"fetch", two, "for", two, "if", three, "loop", one, "modify", byte_byte_verb,	/* 10 */
+	"handler", one,
+	"receive", byte_verb,
+	"select", begin,
+	"send", byte_verb,
+	"store", two,
+	NULL, NULL, "label", byte_verb, "leave", byte, "store2", three, "post", one,	/* 20 */
+	"literal", literal,
+	"dbkey", byte,
+	"field", field,
+	"fid", parm,
+	"parameter", parm,
+	"variable", variable,
+	"average", two, "count", one, "maximum", two, "minimum", two,	/* 30 */
+	"total", two,
+	"count2", two,
+	NULL, NULL,
+	"add", two,
+	"subtract", two,
+	"multiply", two,
+	"divide", two, "negate", one, "concatenate", two, "substring", three,	/* 40 */
+	"parameter2", parm2,
+	"from", two,
+	"via", three,
+	"user_name", zero,
+	"null", zero, NULL, NULL, "eql", two, "neq", two, "gtr", two, "geq", two,	/* 50 */
+	"lss", two,
+	"leq", two,
+	"containing", two,
+	"matching", two,
+	"starting", two,
+	"between", three, "or", two, "and", two, "not", one, "any", one,	/* 60 */
+	"missing", one,
+	"unique", one,
+	"like", two,
+	NULL, NULL,
+	"stream", begin,
+	"set_index", byte_verb,
+	"rse", rse, "first", one, "project", byte_args, "sort", byte_args,	/* 70 */
+	"boolean", one,
+	"ascending", one,
+	"descending", one,
+	"relation", relation,
+	"rid", rid,
+	"union", union_ops,
+	"map", map, "group_by", byte_args, "aggregate", aggregate, "join_type", join,	/* 80 */
+	NULL, NULL,
+	NULL, NULL,
+	"agg_count", zero,
+	"agg_max", one,
+	"agg_min", one,
+	"agg_total", one,
+	"agg_average", one, "parameter3", parm3, NULL, NULL, NULL, NULL,	/* 90 */
+	NULL, NULL,
+	NULL, NULL,
+	"agg_count2", one,
+	"agg_count_distinct", one,
+	"agg_total_distinct", one,
+	"agg_average_distinct", one,
+	NULL, NULL, NULL, NULL, NULL, NULL, "function", function,	/* 100 */
+	"gen_id", gen_id,
+	"prot_mask", two,
+	"upcase", one,
+	"lock_state", one,
+	"value_if", three,
+	"matching2", three,
+	"index", indx, "ansi_like", three, "bookmark", one, "crack", byte,	/* 110 */
+	"force_crack", byte,
+	"seek", seek,
+	"find", find,
+	"lock_relation", lock_relation,
+	"lock_record", byte_verb,
+	"set_bookmark", byte_verb,
+	"get_bookmark", byte, NULL, NULL, "rs_stream", rse, "exec_proc", exec_proc,	/* 120 */
+	"begin_range", one,
+	"end_range", two,
+	"delete_range", one,
+	"procedure", procedure,
+	"pid", pid,
+	NULL, NULL,
+	"singular", one, "abort", set_error, "block", begin, "error_handler", error_handler,	/* 130 */
+	"cast", cast,
+	"release_lock", one,
+	"release_locks", zero,
+	"start_savepoint", zero,
+	"end_savepoint", zero,
+	"find_dbkey", byte_verb,
+	"range_relation", range_relation,
+	"delete_ranges", zero, "plan", one, "merge", byte_args,	/* 140 */
+	"join", byte_args,
+	"sequential", zero,
+	"navigational", byte_literal,
+	"indices", indices,
+	"retrieve", two,
+	"relation2", relation2,
+	"rid2", rid2,
+	"reset_stream", byte_byte, "release_bookmark", one, "set_generator", gen_id,	/* 150  */
+	"ansi_any", one,
+	"exists", one,
+	"cardinality", byte,
+	"record_version", byte,
+	"stall", zero,
+	"seek_no_warn", seek,
+	"find_dbkey_version", byte_verb_verb, "ansi_all", one,
+/* New BLR in 6.0 */
+	"extract", extract, "current_date", zero,	/* 160 */
+	"current_timestamp", zero, "current_time", zero,
+/* These verbs were added in 6.0, primarily to support 64-bit integers */
+	"add2", two,
+	"subtract2", two,
+	"multiply2", two,
+	"divide2", two,
+	"agg_total2", one,
+	"agg_total_distinct2", one, "agg_average2", one, "agg_average_distinct2", one,	/* 170 */
+	"average2", two, "gen_id2", gen_id, "set_generator2", gen_id,
diff --git a/src/jrd/blr.h b/src/jrd/blr.h
new file mode 100644
index 0000000000..99b156024f
--- /dev/null
+++ b/src/jrd/blr.h
@@ -0,0 +1,281 @@
+/*
+ *	PROGRAM:	C preprocessor
+ *	MODULE:		blr.h
+ *	DESCRIPTION:	BLR constants
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_BLR_H_
+#define _JRD_BLR_H_
+
+/*  WARNING: if you add a new BLR representing a data type, and the value
+ *           is greater than the numerically greatest value which now
+ *           represents a data type, you must change the define for
+ *           DTYPE_BLR_MAX in jrd/align.h, and add the necessary entries
+ *           to all the arrays in that file.
+ */
+
+#define blr_text		(unsigned char)14
+#define blr_text2		(unsigned char)15	/* added in 3.2 JPN */
+#define blr_short		(unsigned char)7
+#define blr_long		(unsigned char)8
+#define blr_quad		(unsigned char)9
+#define blr_float		(unsigned char)10
+#define blr_double		(unsigned char)27
+#define blr_d_float		(unsigned char)11
+#define blr_timestamp		(unsigned char)35
+#define blr_varying		(unsigned char)37
+#define blr_varying2		(unsigned char)38	/* added in 3.2 JPN */
+#define blr_blob		(unsigned short)261
+#define blr_cstring		(unsigned char)40     	
+#define blr_cstring2    	(unsigned char)41	/* added in 3.2 JPN */
+#define blr_blob_id     	(unsigned char)45	/* added from gds.h */
+#define blr_sql_date		(unsigned char)12
+#define blr_sql_time		(unsigned char)13
+#define blr_int64               (unsigned char)16
+
+/* Historical alias for pre V6 applications */
+#define blr_date		blr_timestamp
+
+#define blr_inner		(unsigned char)0
+#define blr_left		(unsigned char)1
+#define blr_right		(unsigned char)2
+#define blr_full		(unsigned char)3
+
+#define blr_gds_code		(unsigned char)0
+#define blr_sql_code		(unsigned char)1
+#define blr_exception		(unsigned char)2
+#define blr_trigger_code 	(unsigned char)3
+#define blr_default_code 	(unsigned char)4
+
+#define blr_version4		(unsigned char)4
+#define blr_version5		(unsigned char)5
+#define blr_eoc			(unsigned char)76
+#define blr_end			(unsigned char)255	/* note: defined as -1 in gds.h */
+
+#define blr_assignment		(unsigned char)1
+#define blr_begin		(unsigned char)2
+#define blr_dcl_variable  	(unsigned char)3	/* added from gds.h */
+#define blr_message		(unsigned char)4
+#define blr_erase		(unsigned char)5
+#define blr_fetch		(unsigned char)6
+#define blr_for			(unsigned char)7
+#define blr_if			(unsigned char)8
+#define blr_loop		(unsigned char)9
+#define blr_modify		(unsigned char)10
+#define blr_handler		(unsigned char)11
+#define blr_receive		(unsigned char)12
+#define blr_select		(unsigned char)13
+#define blr_send		(unsigned char)14
+#define blr_store		(unsigned char)15
+#define blr_label		(unsigned char)17
+#define blr_leave		(unsigned char)18
+#define blr_store2		(unsigned char)19
+#define blr_post                (unsigned char)20
+#define blr_literal		(unsigned char)21
+#define blr_dbkey		(unsigned char)22
+#define blr_field		(unsigned char)23
+#define blr_fid			(unsigned char)24
+#define blr_parameter		(unsigned char)25
+#define blr_variable		(unsigned char)26
+#define blr_average		(unsigned char)27
+#define blr_count		(unsigned char)28
+#define blr_maximum		(unsigned char)29
+#define blr_minimum		(unsigned char)30
+#define blr_total		(unsigned char)31
+/* count 2
+#define blr_count2		32
+*/
+#define blr_add			(unsigned char)34
+#define blr_subtract		(unsigned char)35
+#define blr_multiply		(unsigned char)36
+#define blr_divide		(unsigned char)37
+#define blr_negate		(unsigned char)38
+#define blr_concatenate		(unsigned char)39
+#define blr_substring		(unsigned char)40
+#define blr_parameter2		(unsigned char)41
+#define blr_from		(unsigned char)42
+#define blr_via			(unsigned char)43
+#define blr_parameter2_old	(unsigned char)44	/* Confusion */
+#define blr_user_name   	(unsigned char)44	/* added from gds.h */
+#define blr_null		(unsigned char)45
+
+#define blr_eql			(unsigned char)47
+#define blr_neq			(unsigned char)48
+#define blr_gtr			(unsigned char)49
+#define blr_geq			(unsigned char)50
+#define blr_lss			(unsigned char)51
+#define blr_leq			(unsigned char)52
+#define blr_containing		(unsigned char)53
+#define blr_matching		(unsigned char)54
+#define blr_starting		(unsigned char)55
+#define blr_between		(unsigned char)56
+#define blr_or			(unsigned char)57
+#define blr_and			(unsigned char)58
+#define blr_not			(unsigned char)59
+#define blr_any			(unsigned char)60
+#define blr_missing		(unsigned char)61
+#define blr_unique		(unsigned char)62
+#define blr_like		(unsigned char)63
+
+#define blr_stream      	(unsigned char)65	/* added from gds.h */
+#define blr_set_index   	(unsigned char)66	/* added from gds.h */
+
+#define blr_rse			(unsigned char)67
+#define blr_first		(unsigned char)68
+#define blr_project		(unsigned char)69
+#define blr_sort		(unsigned char)70
+#define blr_boolean		(unsigned char)71
+#define blr_ascending		(unsigned char)72
+#define blr_descending		(unsigned char)73
+#define blr_relation		(unsigned char)74
+#define blr_rid			(unsigned char)75
+#define blr_union		(unsigned char)76
+#define blr_map			(unsigned char)77
+#define blr_group_by		(unsigned char)78
+#define blr_aggregate		(unsigned char)79
+#define blr_join_type		(unsigned char)80
+
+#define blr_agg_count		(unsigned char)83
+#define blr_agg_max		(unsigned char)84
+#define blr_agg_min		(unsigned char)85
+#define blr_agg_total		(unsigned char)86
+#define blr_agg_average		(unsigned char)87
+#define	blr_parameter3		(unsigned char)88	/* same as Rdb definition */
+#define blr_run_max		(unsigned char)89
+#define blr_run_min		(unsigned char)90
+#define blr_run_total		(unsigned char)91
+#define blr_run_average		(unsigned char)92
+#define blr_agg_count2		(unsigned char)93
+#define blr_agg_count_distinct	(unsigned char)94
+#define blr_agg_total_distinct	(unsigned char)95
+#define blr_agg_average_distinct (unsigned char)96
+
+#define blr_function		(unsigned char)100
+#define blr_gen_id		(unsigned char)101
+#define blr_prot_mask		(unsigned char)102
+#define blr_upcase		(unsigned char)103
+#define blr_lock_state		(unsigned char)104
+#define blr_value_if		(unsigned char)105
+#define blr_matching2		(unsigned char)106
+#define blr_index		(unsigned char)107
+#define blr_ansi_like		(unsigned char)108
+#define blr_bookmark		(unsigned char)109
+#define blr_crack		(unsigned char)110
+#define blr_force_crack		(unsigned char)111
+#define blr_seek		(unsigned char)112
+#define blr_find		(unsigned char)113
+                                 
+/* these indicate directions for blr_seek and blr_find */
+
+#define blr_continue		(unsigned char)0
+#define blr_forward		(unsigned char)1
+#define blr_backward		(unsigned char)2
+#define blr_bof_forward		(unsigned char)3
+#define blr_eof_backward	(unsigned char)4
+
+#define blr_lock_relation 	(unsigned char)114
+#define blr_lock_record		(unsigned char)115
+#define blr_set_bookmark 	(unsigned char)116
+#define blr_get_bookmark 	(unsigned char)117
+
+#define blr_run_count		(unsigned char)118	/* changed from 88 to avoid conflict with blr_parameter3 */
+#define blr_rs_stream		(unsigned char)119
+#define blr_exec_proc		(unsigned char)120
+#define blr_begin_range 	(unsigned char)121
+#define blr_end_range 		(unsigned char)122
+#define blr_delete_range 	(unsigned char)123
+#define blr_procedure		(unsigned char)124
+#define blr_pid			(unsigned char)125
+#define blr_exec_pid		(unsigned char)126
+#define blr_singular		(unsigned char)127
+#define blr_abort		(unsigned char)128
+#define blr_block	 	(unsigned char)129
+#define blr_error_handler	(unsigned char)130
+
+#define blr_cast		(unsigned char)131
+#define blr_release_lock	(unsigned char)132
+#define blr_release_locks	(unsigned char)133
+#define blr_start_savepoint	(unsigned char)134
+#define blr_end_savepoint	(unsigned char)135
+#define blr_find_dbkey		(unsigned char)136
+#define blr_range_relation	(unsigned char)137
+#define blr_delete_ranges	(unsigned char)138
+
+#define blr_plan		(unsigned char)139	/* access plan items */
+#define blr_merge		(unsigned char)140
+#define blr_join		(unsigned char)141
+#define blr_sequential		(unsigned char)142
+#define blr_navigational	(unsigned char)143
+#define blr_indices		(unsigned char)144
+#define blr_retrieve		(unsigned char)145
+
+#define blr_relation2		(unsigned char)146
+#define blr_rid2		(unsigned char)147
+#define blr_reset_stream	(unsigned char)148
+#define blr_release_bookmark	(unsigned char)149
+
+#define blr_set_generator       (unsigned char)150
+
+#define blr_ansi_any		(unsigned char)151   /* required for NULL handling */
+#define blr_exists		(unsigned char)152   /* required for NULL handling */
+#define blr_cardinality		(unsigned char)153
+
+#define blr_record_version	(unsigned char)154	/* get tid of record */
+#define blr_stall		(unsigned char)155	/* fake server stall */
+
+#define blr_seek_no_warn	(unsigned char)156	
+#define blr_find_dbkey_version	(unsigned char)157   /* find dbkey with record version */
+#define blr_ansi_all		(unsigned char)158   /* required for NULL handling */
+
+#define blr_extract		(unsigned char)159
+
+/* sub parameters for blr_extract */
+
+#define blr_extract_year	(unsigned char)0
+#define blr_extract_month	(unsigned char)1
+#define blr_extract_day		(unsigned char)2
+#define blr_extract_hour	(unsigned char)3
+#define blr_extract_minute	(unsigned char)4
+#define blr_extract_second	(unsigned char)5
+#define blr_extract_weekday	(unsigned char)6
+#define blr_extract_yearday	(unsigned char)7
+
+#define blr_current_date	(unsigned char)160
+#define blr_current_timestamp	(unsigned char)161
+#define blr_current_time	(unsigned char)162
+
+
+/* These verbs were added in 6.0, primarily to support 64-bit integers */
+
+#define blr_add2			(unsigned char)163
+#define blr_subtract2		(unsigned char)164
+#define blr_multiply2		(unsigned char)165
+#define blr_divide2			(unsigned char)166
+#define blr_agg_total2		(unsigned char)167
+#define blr_agg_total_distinct2	(unsigned char)168
+#define blr_agg_average2	(unsigned char)169
+#define blr_agg_average_distinct2	(unsigned char)170
+#define blr_average2		(unsigned char)171
+#define blr_gen_id2			(unsigned char)172
+#define blr_set_generator2	(unsigned char)173
+
+#endif /* _JRD_BLR_H_ */
+
+
diff --git a/src/jrd/blrtable.cpp b/src/jrd/blrtable.cpp
new file mode 100644
index 0000000000..b6ea0a4f1d
--- /dev/null
+++ b/src/jrd/blrtable.cpp
@@ -0,0 +1,431 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		blrtable.c
+ *	DESCRIPTION:	blr to internal conversion table generator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/common.h"
+
+#define NODE(type, name, keyword) type,
+enum {
+#include "../jrd/nod.h"
+};
+
+/* NOTE: length == 0 implies the node will not be created
+         by jrd/par.c.
+	 length == Actual length of the nod_args array.
+	 count  == How many of the nods_args array represent nodes
+	 internal == Name of the internal representing node.
+	 internal2 == Name of the internal representing node in blr_version5.
+	 blr      == Name of the BLR to make into this node
+         type     == Type of expression this Node produces
+	 sub_type == Expected type of parameter Nodes
+*/
+
+#if defined(__STDC__)
+#define STRINGIZER(s) #s
+
+#define PAIR(internal, blr, length, count, type, sub_type) \
+	{ blr, #internal, 0, #length, #count, \
+	 #type, #sub_type },
+
+#define PAIR2(internal, blr, length, count, type, sub_type) \
+	{ blr, #internal, STRINGIZER(internal##2), #length, #count, \
+	 #type, #sub_type },
+#else
+#define PAIR(internal, blr, length, count, type, sub_type) \
+	{ blr, "internal", 0, "length", "count",\
+	 "type", "sub_type" },
+
+#define PAIR2(internal, blr, length, count, type, sub_type) \
+	{ blr, "internal", "internal2", "length", "count",\
+	 "type", "sub_type" },
+#endif
+
+#ifdef __STDC__
+static void print(CONST SCHAR **, int, CONST SCHAR *);
+#else
+static void print();
+#endif
+
+typedef struct {
+	UCHAR blr;
+	SCHAR CONST *internal;
+	SCHAR CONST *internal2;
+	SCHAR CONST *length;
+	SCHAR CONST *count;
+	SCHAR CONST *type;
+	SCHAR CONST *sub_type;
+} VERB;
+
+static CONST VERB verbs[] = {
+	PAIR(nod_assignment, blr_assignment, e_asgn_length, 2, STATEMENT, VALUE)
+		PAIR(nod_erase, blr_erase, e_erase_length, 0, STATEMENT, OTHER)
+		PAIR(nod_dcl_variable, blr_dcl_variable, e_dcl_length, 0, STATEMENT,
+			 OTHER) PAIR(nod_for, blr_fetch, e_for_length, 3, STATEMENT,
+						 STATEMENT) PAIR(nod_for, blr_for, e_for_length, 3,
+										 STATEMENT,
+										 STATEMENT) PAIR(nod_handler,
+														 blr_handler, 1, 1,
+														 STATEMENT,
+														 OTHER) PAIR(nod_if,
+																	 blr_if,
+																	 e_if_length,
+																	 3,
+																	 STATEMENT,
+																	 STATEMENT)
+		PAIR(nod_label, blr_label, e_lbl_length, 1, STATEMENT,
+			 STATEMENT) PAIR(nod_leave, blr_leave, 1, 0, STATEMENT,
+							 OTHER) PAIR(nod_list, blr_begin, 0, 0, STATEMENT,
+										 STATEMENT) PAIR(nod_loop, blr_loop,
+														 1, 1, STATEMENT,
+														 STATEMENT)
+		PAIR(nod_message, blr_message, 0, 0, STATEMENT,
+			 OTHER) PAIR(nod_modify, blr_modify, 0, 0, STATEMENT,
+						 STATEMENT) PAIR(nod_receive, blr_receive,
+										 e_send_length, 1, STATEMENT,
+										 STATEMENT) PAIR(nod_select,
+														 blr_select, 0, 0,
+														 STATEMENT,
+														 STATEMENT)
+		PAIR(nod_send, blr_send, e_send_length, 1, STATEMENT,
+			 STATEMENT) PAIR(nod_store, blr_store, e_sto_length,
+							 e_sto_length - 1, STATEMENT,
+							 STATEMENT) PAIR(nod_store, blr_store2,
+											 e_sto_length, e_sto_length - 1,
+											 STATEMENT,
+											 STATEMENT) PAIR(nod_post,
+															 blr_post, 1, 1,
+															 STATEMENT,
+															 VALUE)
+		PAIR2(nod_add, blr_add, 2, 2, VALUE, VALUE) PAIR(nod_agg_count,
+														 blr_agg_count, 1, 0,
+														 VALUE,
+														 VALUE)
+		PAIR(nod_agg_count2, blr_agg_count2, 1, 1, VALUE,
+			 VALUE) PAIR(nod_agg_count_distinct, blr_agg_count_distinct, 2, 1,
+						 VALUE, VALUE) PAIR(nod_agg_max, blr_agg_max, 1, 1,
+											VALUE, VALUE) PAIR(nod_agg_min,
+															   blr_agg_min, 1,
+															   1, VALUE,
+															   VALUE)
+		PAIR2(nod_agg_total, blr_agg_total, 1, 1, VALUE,
+			  VALUE) PAIR2(nod_agg_total_distinct, blr_agg_total_distinct, 2,
+						   1, VALUE, VALUE) PAIR2(nod_agg_average,
+												  blr_agg_average, 1, 1,
+												  VALUE,
+												  VALUE)
+		PAIR2(nod_agg_average_distinct, blr_agg_average_distinct, 2, 1, VALUE,
+			  VALUE) PAIR(nod_argument, blr_parameter, e_arg_length, 0, VALUE,
+						  VALUE) PAIR(nod_argument, blr_parameter2,
+									  e_arg_length, 0, VALUE,
+									  VALUE) PAIR(nod_argument,
+												  blr_parameter3,
+												  e_arg_length, 0, VALUE,
+												  VALUE) PAIR(nod_variable,
+															  blr_variable,
+															  e_var_length, 0,
+															  VALUE,
+															  VALUE)
+		PAIR(nod_user_name, blr_user_name, 1, 0, VALUE, VALUE)
+		PAIR2(nod_average, blr_average, e_stat_length, 2, VALUE,
+			  VALUE) PAIR(nod_concatenate, blr_concatenate, 2, 2, VALUE,
+						  VALUE) PAIR(nod_count, blr_count, e_stat_length, 1,
+									  VALUE, VALUE)
+/* count2
+    PAIR (nod_count2, blr_count2, e_stat_length, 2, VALUE, VALUE)
+*/
+		PAIR(nod_dbkey, blr_dbkey, 1, 0, VALUE, VALUE)
+		PAIR2(nod_divide, blr_divide, 2, 2, VALUE, VALUE)
+		PAIR(nod_field, blr_fid, 0, 0, VALUE, VALUE)
+		PAIR(nod_field, blr_field, 0, 0, VALUE, VALUE)
+		PAIR(nod_from, blr_via, e_stat_length, 3, VALUE, OTHER)
+		PAIR(nod_from, blr_from, e_stat_length, 2, VALUE, OTHER)
+		PAIR(nod_function, blr_function, 0, 0, VALUE, VALUE)
+		PAIR(nod_literal, blr_literal, 0, 0, VALUE, OTHER)
+		PAIR(nod_scalar, blr_index, 2, 2, VALUE, VALUE)
+		PAIR(nod_max, blr_maximum, e_stat_length, 2, VALUE, VALUE)
+		PAIR(nod_min, blr_minimum, e_stat_length, 2, VALUE, VALUE)
+		PAIR(nod_null, blr_null, 1, 0, VALUE, VALUE)
+		PAIR2(nod_multiply, blr_multiply, 2, 2, VALUE, VALUE)
+		PAIR(nod_negate, blr_negate, 1, 1, VALUE, VALUE)
+		PAIR2(nod_gen_id, blr_gen_id, e_gen_length, 1, VALUE, VALUE)
+		PAIR(nod_prot_mask, blr_prot_mask, e_pro_length, 2, VALUE, VALUE)
+		PAIR(nod_upcase, blr_upcase, 1, 1, VALUE, VALUE)
+		PAIR(nod_lock_state, blr_lock_state, 1, 1, VALUE, VALUE)
+		PAIR(nod_substr, blr_substring, 3, 3, VALUE, VALUE)
+		PAIR2(nod_subtract, blr_subtract, 2, 2, VALUE, VALUE)
+		PAIR2(nod_total, blr_total, e_stat_length, 2, VALUE, VALUE)
+		PAIR(nod_value_if, blr_value_if, 3, 3, VALUE, OTHER)
+		PAIR(nod_eql, blr_eql, 2, 2, BOOL, VALUE)
+		PAIR(nod_neq, blr_neq, 2, 2, BOOL, VALUE)
+		PAIR(nod_geq, blr_geq, 2, 2, BOOL, VALUE)
+		PAIR(nod_gtr, blr_gtr, 2, 2, BOOL, VALUE)
+		PAIR(nod_lss, blr_lss, 2, 2, BOOL, VALUE)
+		PAIR(nod_leq, blr_leq, 2, 2, BOOL, VALUE)
+		PAIR(nod_matches, blr_matching, 2, 2, BOOL, VALUE)
+		PAIR(nod_sleuth, blr_matching2, 3, 3, BOOL, VALUE)
+		PAIR(nod_like, blr_like, 2, 2, BOOL, VALUE)
+		PAIR(nod_like, blr_ansi_like, 3, 3, BOOL, VALUE)
+		PAIR(nod_contains, blr_containing, 2, 2, BOOL, VALUE)
+		PAIR(nod_missing, blr_missing, 1, 1, BOOL, VALUE)
+		PAIR(nod_between, blr_between, 3, 3, BOOL, VALUE)
+		PAIR(nod_starts, blr_starting, 2, 2, BOOL, VALUE)
+		PAIR(nod_unique, blr_unique, e_any_length, 1, BOOL, OTHER)
+		PAIR(nod_any, blr_any, e_any_length, 1, BOOL, TYPE_RSE)
+		PAIR(nod_and, blr_and, 2, 2, BOOL, BOOL)
+		PAIR(nod_or, blr_or, 2, 2, BOOL, BOOL)
+		PAIR(nod_not, blr_not, 1, 1, BOOL, BOOL)
+		PAIR(nod_rse, blr_rse, 0, 0, TYPE_RSE, OTHER)
+
+		/* nodes for ODAPI support */
+		PAIR(nod_stream, blr_stream, 0, 0, STATEMENT, STATEMENT)
+		PAIR(nod_set_index, blr_set_index, e_index_length, 1, STATEMENT,
+			 STATEMENT) PAIR(nod_seek, blr_seek, e_seek_length, 2, STATEMENT,
+							 VALUE) PAIR(nod_seek_no_warn, blr_seek_no_warn,
+										 e_seek_length, 2, STATEMENT,
+										 VALUE) PAIR(nod_find, blr_find,
+													 e_find_length, 3,
+													 STATEMENT,
+													 STATEMENT)
+		PAIR(nod_get_bookmark, blr_get_bookmark, e_getmark_length, 0, VALUE,
+			 VALUE) PAIR(nod_set_bookmark, blr_set_bookmark, e_setmark_length,
+						 1, STATEMENT, STATEMENT) PAIR(nod_bookmark,
+													   blr_bookmark,
+													   e_bookmark_length, 1,
+													   VALUE,
+													   VALUE)
+		PAIR(nod_lock_relation, blr_lock_relation, e_lockrel_length, 2, VALUE,
+			 VALUE) PAIR(nod_lock_record, blr_lock_record, e_lockrec_length,
+						 1, VALUE, VALUE) PAIR(nod_release_lock,
+											   blr_release_lock,
+											   e_rellock_length, 1, STATEMENT,
+											   STATEMENT)
+		PAIR(nod_release_locks, blr_release_locks, 0, 0, STATEMENT,
+			 STATEMENT) PAIR(nod_begin_range, blr_begin_range,
+							 e_brange_length, 1, VALUE,
+							 OTHER) PAIR(nod_end_range, blr_end_range,
+										 e_erange_length, 1, STATEMENT,
+										 STATEMENT) PAIR(nod_delete_range,
+														 blr_delete_range,
+														 e_drange_length, 1,
+														 STATEMENT, STATEMENT)
+		PAIR(nod_map, blr_map, 0, 0, OTHER, OTHER) PAIR(nod_union, blr_union,
+														0, 0, RELATION,
+														OTHER)
+		PAIR(nod_aggregate, blr_aggregate, e_agg_length, 0, RELATION,
+			 OTHER) PAIR(nod_relation, blr_relation, 0, 0, RELATION,
+						 OTHER) PAIR(nod_relation, blr_rid, 0, 0, RELATION,
+									 OTHER) PAIR(nod_rse, blr_rs_stream, 0, 0,
+												 RELATION,
+												 OTHER) PAIR(nod_exec_proc,
+															 blr_exec_proc,
+															 e_esp_length, 4,
+															 STATEMENT,
+															 OTHER)
+		PAIR(nod_procedure, blr_procedure, e_prc_length, 2, RELATION,
+			 OTHER) PAIR(nod_procedure, blr_pid, e_prc_length, 2, RELATION,
+						 OTHER) PAIR(nod_exec_proc, blr_exec_pid,
+									 e_esp_length, 4, STATEMENT,
+									 OTHER) PAIR(nod_block, blr_block,
+												 e_blk_length, e_blk_length,
+												 STATEMENT,
+												 STATEMENT)
+		PAIR(nod_error_handler, blr_error_handler, e_err_length, 1, STATEMENT,
+			 OTHER) PAIR(nod_abort, blr_abort, 1, 0, STATEMENT,
+						 OTHER) PAIR(nod_cast, blr_cast, e_cast_length, 1,
+									 VALUE, VALUE) PAIR(nod_rse, blr_singular,
+														0, 0, TYPE_RSE,
+														OTHER)
+		PAIR(nod_start_savepoint, blr_start_savepoint, 1, 0, STATEMENT,
+			 OTHER) PAIR(nod_end_savepoint, blr_end_savepoint, 1, 0,
+						 STATEMENT, OTHER)
+
+		/* more nodes for ODAPI support */
+		PAIR(nod_find_dbkey, blr_find_dbkey, e_find_dbkey_length, 1,
+			 STATEMENT, STATEMENT) PAIR(nod_find_dbkey_version,
+										blr_find_dbkey_version,
+										e_find_dbkey_length, 2, STATEMENT,
+										STATEMENT) PAIR(nod_range_relation,
+														blr_range_relation,
+														e_range_relation_length,
+														1, STATEMENT,
+														STATEMENT)
+		PAIR(nod_delete_ranges, blr_delete_ranges, 0, 0, STATEMENT, STATEMENT)
+
+		/* nodes for set plan */
+		PAIR(nod_plan, blr_plan, 1, 1, VALUE, VALUE)
+		PAIR(nod_merge, blr_merge, 0, 0, VALUE, VALUE)
+		PAIR(nod_join, blr_join, 0, 0, VALUE, VALUE)
+		PAIR(nod_sequential, blr_sequential, 0, 0, ACCESS_TYPE, OTHER)
+		PAIR(nod_navigational, blr_navigational, 1, 1, ACCESS_TYPE, VALUE)
+		PAIR(nod_indices, blr_indices, 1, 0, ACCESS_TYPE, VALUE)
+		PAIR(nod_retrieve, blr_retrieve, 2, 0, ACCESS_TYPE, VALUE)
+		PAIR(nod_relation, blr_relation2, 0, 0, RELATION, OTHER)
+		PAIR(nod_relation, blr_rid2, 0, 0, RELATION, OTHER)
+
+		/* yet more nodes for ODAPI */
+		PAIR(nod_crack, blr_crack, 2, 0, VALUE, OTHER)
+		PAIR(nod_force_crack, blr_force_crack, 2, 0, STATEMENT, OTHER)
+		PAIR(nod_reset_stream, blr_reset_stream, e_reset_length, 0, STATEMENT,
+			 OTHER) PAIR(nod_release_bookmark, blr_release_bookmark,
+						 e_relmark_length, 1, STATEMENT, OTHER)
+		PAIR2(nod_set_generator, blr_set_generator, e_gen_length, 1,
+			  STATEMENT, VALUE) PAIR(nod_ansi_any, blr_ansi_any,
+									 e_any_length, 1, BOOL,
+									 TYPE_RSE) PAIR(nod_exists, blr_exists,
+													e_any_length, 1, BOOL,
+													TYPE_RSE)
+		PAIR(nod_cardinality, blr_cardinality, e_card_length, 0, VALUE,
+			 OTHER) PAIR(nod_rec_version, blr_record_version, 1, 0, VALUE,
+						 VALUE) PAIR(nod_stall, blr_stall, 1, 0, STATEMENT,
+									 STATEMENT) PAIR(nod_ansi_all,
+													 blr_ansi_all,
+													 e_any_length, 1, BOOL,
+													 TYPE_RSE)
+
+		/* Improved Date Support */
+		PAIR(nod_extract, blr_extract,
+			 e_extract_length, e_extract_count, VALUE, VALUE)
+		PAIR(nod_current_date, blr_current_date,
+			 e_current_date_length, 0, VALUE, OTHER)
+		PAIR(nod_current_time, blr_current_time,
+			 e_current_time_length, 0, VALUE, OTHER)
+		PAIR(nod_current_timestamp, blr_current_timestamp,
+			 e_current_timestamp_length, 0, VALUE, OTHER) 0
+};
+
+CONST SCHAR *table[256], *table2[256], *lengths[256], *counts[256],
+	*types[256], *sub_types[256];
+
+
+#ifdef __STDC__
+int main(int argc, char *argv[])
+#else
+int main(argc, argv)
+	 int argc;
+	 char *argv[];
+#endif
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Spit out a conversion table.
+ *
+ **************************************/
+	CONST VERB *verb;
+	int max, *stuff, blr;
+	SCHAR buffer[100], *s;
+
+	for (blr = 0; blr < (sizeof(table) / sizeof(table[0])); blr++) {
+		table[blr] = NULL;
+		table2[blr] = NULL;
+		lengths[blr] = NULL;
+		counts[blr] = NULL;
+		counts[blr] = NULL;
+		types[blr] = NULL;
+		sub_types[blr] = NULL;
+	}
+
+	for (max = 0, verb = verbs; verb->internal; ++verb) {
+		blr = verb->blr;
+		if (table[blr]) {
+			ib_fprintf(ib_stderr, "BLRTABLE: duplicate blr %d\n", blr);
+			exit(1);
+		}
+		table[blr] = verb->internal;
+		table2[blr] =
+			(verb->internal2 == 0) ? verb->internal : verb->internal2;
+		lengths[blr] = verb->length;
+		counts[blr] = verb->count;
+		types[blr] = verb->type;
+		sub_types[blr] = verb->sub_type;
+		if (blr > max)
+			max = blr;
+	}
+
+	ib_printf("static CONST UCHAR blr_table4 [] = {\n");
+	print(table, max, "(UCHAR) ");
+
+	ib_printf("static CONST UCHAR blr_table [] = {\n");
+	print(table2, max, "(UCHAR) ");
+
+	ib_printf("static CONST SCHAR length_table [] = {\n");
+	print(lengths, max, "");
+
+	ib_printf("static CONST SCHAR count_table [] = {\n");
+	print(counts, max, "");
+
+	ib_printf("static CONST SCHAR type_table [] = {\n");
+	print(types, max, "");
+
+	ib_printf("static CONST SCHAR sub_type_table [] = {\n");
+	print(sub_types, max, "");
+
+	return 0;
+}
+
+
+#ifdef __STDC__
+static void print(CONST SCHAR ** table, int max, CONST SCHAR * fudge)
+#else
+static void print(table, max, fudge)
+	 SCHAR **table;
+	 int max;
+	 SCHAR *fudge;
+#endif
+{
+/**************************************
+ *
+ *	p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Spit out a conversion table.
+ *
+ **************************************/
+	int blr;
+	SCHAR buffer[100], *s;
+
+	s = buffer;
+
+	for (blr = 0; blr <= max; blr++, table++) {
+		if (*table)
+			sprintf(s, "%s%s, ", fudge, *table);
+		else
+			sprintf(s, " 0, ");
+		while (*s)
+			s++;
+		if (s > buffer + 50) {
+			ib_printf("\t%s\n/*%3d*/", buffer, blr + 1);
+			s = buffer;
+			*s = 0;
+		}
+	}
+
+	ib_printf("\t%s 0};\n", buffer);
+}
diff --git a/src/jrd/blrtable.h b/src/jrd/blrtable.h
new file mode 100644
index 0000000000..8d79ecda96
--- /dev/null
+++ b/src/jrd/blrtable.h
@@ -0,0 +1,235 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+static CONST UCHAR blr_table4[] = {
+	0, (UCHAR) nod_assignment, (UCHAR) nod_list, (UCHAR) nod_dcl_variable,
+/*  4*/ (UCHAR) nod_message, (UCHAR) nod_erase, (UCHAR) nod_for,
+/*  7*/ (UCHAR) nod_for, (UCHAR) nod_if, (UCHAR) nod_loop,
+/* 10*/ (UCHAR) nod_modify, (UCHAR) nod_handler, (UCHAR) nod_receive,
+/* 13*/ (UCHAR) nod_select, (UCHAR) nod_send, (UCHAR) nod_store,
+/* 16*/ 0, (UCHAR) nod_label, (UCHAR) nod_leave, (UCHAR) nod_store,
+/* 20*/ (UCHAR) nod_post, (UCHAR) nod_literal, (UCHAR) nod_dbkey,
+/* 23*/ (UCHAR) nod_field, (UCHAR) nod_field, (UCHAR) nod_argument,
+/* 26*/ (UCHAR) nod_variable, (UCHAR) nod_average, (UCHAR) nod_count,
+/* 29*/ (UCHAR) nod_max, (UCHAR) nod_min, (UCHAR) nod_total,
+/* 32*/ 0, 0, (UCHAR) nod_add, (UCHAR) nod_subtract, (UCHAR) nod_multiply,
+/* 37*/ (UCHAR) nod_divide, (UCHAR) nod_negate, (UCHAR) nod_concatenate,
+/* 40*/ (UCHAR) nod_substr, (UCHAR) nod_argument, (UCHAR) nod_from,
+/* 43*/ (UCHAR) nod_from, (UCHAR) nod_user_name, (UCHAR) nod_null,
+/* 46*/ 0, (UCHAR) nod_eql, (UCHAR) nod_neq, (UCHAR) nod_gtr,
+/* 50*/ (UCHAR) nod_geq, (UCHAR) nod_lss, (UCHAR) nod_leq,
+/* 53*/ (UCHAR) nod_contains, (UCHAR) nod_matches, (UCHAR) nod_starts,
+/* 56*/ (UCHAR) nod_between, (UCHAR) nod_or, (UCHAR) nod_and,
+/* 59*/ (UCHAR) nod_not, (UCHAR) nod_any, (UCHAR) nod_missing,
+/* 62*/ (UCHAR) nod_unique, (UCHAR) nod_like, 0, (UCHAR) nod_stream,
+/* 66*/ (UCHAR) nod_set_index, (UCHAR) nod_rse, 0, 0, 0,
+/* 71*/ 0, 0, 0, (UCHAR) nod_relation, (UCHAR) nod_relation,
+/* 76*/ (UCHAR) nod_union, (UCHAR) nod_map, 0, (UCHAR) nod_aggregate,
+/* 80*/ 0, 0, 0, (UCHAR) nod_agg_count, (UCHAR) nod_agg_max,
+/* 85*/ (UCHAR) nod_agg_min, (UCHAR) nod_agg_total,
+		(UCHAR) nod_agg_average,
+/* 88*/ (UCHAR) nod_argument, 0, 0, 0, 0, (UCHAR) nod_agg_count2,
+/* 94*/ (UCHAR) nod_agg_count_distinct, (UCHAR) nod_agg_total_distinct,
+/* 96*/ (UCHAR) nod_agg_average_distinct, 0, 0, 0, (UCHAR) nod_function,
+/*101*/ (UCHAR) nod_gen_id, (UCHAR) nod_prot_mask, (UCHAR) nod_upcase,
+/*104*/ (UCHAR) nod_lock_state, (UCHAR) nod_value_if, (UCHAR) nod_sleuth,
+/*107*/ (UCHAR) nod_scalar, (UCHAR) nod_like, (UCHAR) nod_bookmark,
+/*110*/ (UCHAR) nod_crack, (UCHAR) nod_force_crack, (UCHAR) nod_seek,
+/*113*/ (UCHAR) nod_find, (UCHAR) nod_lock_relation,
+		(UCHAR) nod_lock_record,
+/*116*/ (UCHAR) nod_set_bookmark, (UCHAR) nod_get_bookmark,
+/*118*/ 0, (UCHAR) nod_rse, (UCHAR) nod_exec_proc,
+		(UCHAR) nod_begin_range,
+/*122*/ (UCHAR) nod_end_range, (UCHAR) nod_delete_range,
+		(UCHAR) nod_procedure,
+/*125*/ (UCHAR) nod_procedure, (UCHAR) nod_exec_proc, (UCHAR) nod_rse,
+/*128*/ (UCHAR) nod_abort, (UCHAR) nod_block, (UCHAR) nod_error_handler,
+/*131*/ (UCHAR) nod_cast, (UCHAR) nod_release_lock,
+		(UCHAR) nod_release_locks,
+/*134*/ (UCHAR) nod_start_savepoint, (UCHAR) nod_end_savepoint,
+/*136*/ (UCHAR) nod_find_dbkey, (UCHAR) nod_range_relation,
+/*138*/ (UCHAR) nod_delete_ranges, (UCHAR) nod_plan, (UCHAR) nod_merge,
+/*141*/ (UCHAR) nod_join, (UCHAR) nod_sequential,
+		(UCHAR) nod_navigational,
+/*144*/ (UCHAR) nod_indices, (UCHAR) nod_retrieve, (UCHAR) nod_relation,
+/*147*/ (UCHAR) nod_relation, (UCHAR) nod_reset_stream,
+		(UCHAR) nod_release_bookmark,
+/*150*/ (UCHAR) nod_set_generator, (UCHAR) nod_ansi_any,
+		(UCHAR) nod_exists,
+/*153*/ (UCHAR) nod_cardinality, (UCHAR) nod_rec_version,
+		(UCHAR) nod_stall,
+/*156*/ (UCHAR) nod_seek_no_warn, (UCHAR) nod_find_dbkey_version,
+/*158*/ (UCHAR) nod_ansi_all, (UCHAR) nod_extract,
+		(UCHAR) nod_current_date,
+/*161*/ (UCHAR) nod_current_timestamp, (UCHAR) nod_current_time,
+/*163*/ 0
+};
+static CONST UCHAR blr_table[] = {
+	0, (UCHAR) nod_assignment, (UCHAR) nod_list, (UCHAR) nod_dcl_variable,
+/*  4*/ (UCHAR) nod_message, (UCHAR) nod_erase, (UCHAR) nod_for,
+/*  7*/ (UCHAR) nod_for, (UCHAR) nod_if, (UCHAR) nod_loop,
+/* 10*/ (UCHAR) nod_modify, (UCHAR) nod_handler, (UCHAR) nod_receive,
+/* 13*/ (UCHAR) nod_select, (UCHAR) nod_send, (UCHAR) nod_store,
+/* 16*/ 0, (UCHAR) nod_label, (UCHAR) nod_leave, (UCHAR) nod_store,
+/* 20*/ (UCHAR) nod_post, (UCHAR) nod_literal, (UCHAR) nod_dbkey,
+/* 23*/ (UCHAR) nod_field, (UCHAR) nod_field, (UCHAR) nod_argument,
+/* 26*/ (UCHAR) nod_variable, (UCHAR) nod_average2, (UCHAR) nod_count,
+/* 29*/ (UCHAR) nod_max, (UCHAR) nod_min, (UCHAR) nod_total2,
+/* 32*/ 0, 0, (UCHAR) nod_add2, (UCHAR) nod_subtract2,
+		(UCHAR) nod_multiply2,
+/* 37*/ (UCHAR) nod_divide2, (UCHAR) nod_negate, (UCHAR) nod_concatenate,
+/* 40*/ (UCHAR) nod_substr, (UCHAR) nod_argument, (UCHAR) nod_from,
+/* 43*/ (UCHAR) nod_from, (UCHAR) nod_user_name, (UCHAR) nod_null,
+/* 46*/ 0, (UCHAR) nod_eql, (UCHAR) nod_neq, (UCHAR) nod_gtr,
+/* 50*/ (UCHAR) nod_geq, (UCHAR) nod_lss, (UCHAR) nod_leq,
+/* 53*/ (UCHAR) nod_contains, (UCHAR) nod_matches, (UCHAR) nod_starts,
+/* 56*/ (UCHAR) nod_between, (UCHAR) nod_or, (UCHAR) nod_and,
+/* 59*/ (UCHAR) nod_not, (UCHAR) nod_any, (UCHAR) nod_missing,
+/* 62*/ (UCHAR) nod_unique, (UCHAR) nod_like, 0, (UCHAR) nod_stream,
+/* 66*/ (UCHAR) nod_set_index, (UCHAR) nod_rse, 0, 0, 0,
+/* 71*/ 0, 0, 0, (UCHAR) nod_relation, (UCHAR) nod_relation,
+/* 76*/ (UCHAR) nod_union, (UCHAR) nod_map, 0, (UCHAR) nod_aggregate,
+/* 80*/ 0, 0, 0, (UCHAR) nod_agg_count, (UCHAR) nod_agg_max,
+/* 85*/ (UCHAR) nod_agg_min, (UCHAR) nod_agg_total2,
+		(UCHAR) nod_agg_average2,
+/* 88*/ (UCHAR) nod_argument, 0, 0, 0, 0, (UCHAR) nod_agg_count2,
+/* 94*/ (UCHAR) nod_agg_count_distinct, (UCHAR) nod_agg_total_distinct2,
+/* 96*/ (UCHAR) nod_agg_average_distinct2, 0, 0, 0, (UCHAR) nod_function,
+/*101*/ (UCHAR) nod_gen_id2, (UCHAR) nod_prot_mask, (UCHAR) nod_upcase,
+/*104*/ (UCHAR) nod_lock_state, (UCHAR) nod_value_if, (UCHAR) nod_sleuth,
+/*107*/ (UCHAR) nod_scalar, (UCHAR) nod_like, (UCHAR) nod_bookmark,
+/*110*/ (UCHAR) nod_crack, (UCHAR) nod_force_crack, (UCHAR) nod_seek,
+/*113*/ (UCHAR) nod_find, (UCHAR) nod_lock_relation,
+		(UCHAR) nod_lock_record,
+/*116*/ (UCHAR) nod_set_bookmark, (UCHAR) nod_get_bookmark,
+/*118*/ 0, (UCHAR) nod_rse, (UCHAR) nod_exec_proc,
+		(UCHAR) nod_begin_range,
+/*122*/ (UCHAR) nod_end_range, (UCHAR) nod_delete_range,
+		(UCHAR) nod_procedure,
+/*125*/ (UCHAR) nod_procedure, (UCHAR) nod_exec_proc, (UCHAR) nod_rse,
+/*128*/ (UCHAR) nod_abort, (UCHAR) nod_block, (UCHAR) nod_error_handler,
+/*131*/ (UCHAR) nod_cast, (UCHAR) nod_release_lock,
+		(UCHAR) nod_release_locks,
+/*134*/ (UCHAR) nod_start_savepoint, (UCHAR) nod_end_savepoint,
+/*136*/ (UCHAR) nod_find_dbkey, (UCHAR) nod_range_relation,
+/*138*/ (UCHAR) nod_delete_ranges, (UCHAR) nod_plan, (UCHAR) nod_merge,
+/*141*/ (UCHAR) nod_join, (UCHAR) nod_sequential,
+		(UCHAR) nod_navigational,
+/*144*/ (UCHAR) nod_indices, (UCHAR) nod_retrieve, (UCHAR) nod_relation,
+/*147*/ (UCHAR) nod_relation, (UCHAR) nod_reset_stream,
+		(UCHAR) nod_release_bookmark,
+/*150*/ (UCHAR) nod_set_generator2, (UCHAR) nod_ansi_any,
+		(UCHAR) nod_exists,
+/*153*/ (UCHAR) nod_cardinality, (UCHAR) nod_rec_version,
+		(UCHAR) nod_stall,
+/*156*/ (UCHAR) nod_seek_no_warn, (UCHAR) nod_find_dbkey_version,
+/*158*/ (UCHAR) nod_ansi_all, (UCHAR) nod_extract,
+		(UCHAR) nod_current_date,
+/*161*/ (UCHAR) nod_current_timestamp, (UCHAR) nod_current_time,
+/*163*/ 0
+};
+static CONST SCHAR length_table[] = {
+	0, e_asgn_length, 0, e_dcl_length, 0, e_erase_length,
+/*  6*/ e_for_length, e_for_length, e_if_length, 1, 0, 1, e_send_length,
+/* 13*/ 0, e_send_length, e_sto_length, 0, e_lbl_length, 1,
+/* 19*/ e_sto_length, 1, 0, 1, 0, 0, e_arg_length, e_var_length,
+/* 27*/ e_stat_length, e_stat_length, e_stat_length, e_stat_length,
+/* 31*/ e_stat_length, 0, 0, 2, 2, 2, 2, 1, 2, 3, e_arg_length,
+/* 42*/ e_stat_length, e_stat_length, 1, 1, 0, 2, 2, 2, 2,
+/* 51*/ 2, 2, 2, 2, 2, 3, 2, 2, 1, e_any_length, 1, e_any_length,
+/* 63*/ 2, 0, 0, e_index_length, 0, 0, 0, 0, 0, 0, 0,
+/* 74*/ 0, 0, 0, 0, 0, e_agg_length, 0, 0, 0, 1, 1, 1,
+/* 86*/ 1, 1, e_arg_length, 0, 0, 0, 0, 1, 2, 2, 2, 0,
+/* 98*/ 0, 0, 0, e_gen_length, e_pro_length, 1, 1, 3, 3,
+/*107*/ 2, 3, e_bookmark_length, 2, 2, e_seek_length, e_find_length,
+/*114*/ e_lockrel_length, e_lockrec_length, e_setmark_length,
+/*117*/ e_getmark_length, 0, 0, e_esp_length, e_brange_length,
+/*122*/ e_erange_length, e_drange_length, e_prc_length, e_prc_length,
+/*126*/ e_esp_length, 0, 1, e_blk_length, e_err_length, e_cast_length,
+/*132*/ e_rellock_length, 0, 1, 1, e_find_dbkey_length,
+		e_range_relation_length,
+/*138*/ 0, 1, 0, 0, 0, 1, 1, 2, 0, 0, e_reset_length, e_relmark_length,
+/*150*/ e_gen_length, e_any_length, e_any_length, e_card_length,
+/*154*/ 1, 1, e_seek_length, e_find_dbkey_length, e_any_length,
+/*159*/ e_extract_length, e_current_date_length,
+		e_current_timestamp_length,
+/*162*/ e_current_time_length, 0
+};
+static CONST SCHAR count_table[] = {
+	0, 2, 0, 0, 0, 0, 3, 3, 3, 1, 0, 1, 1, 0, 1, e_sto_length - 1,
+/* 16*/ 0, 1, 0, e_sto_length - 1, 1, 0, 0, 0, 0, 0, 0, 2,
+/* 28*/ 1, 2, 2, 2, 0, 0, 2, 2, 2, 2, 1, 2, 3, 0, 2, 3, 0,
+/* 45*/ 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 1, 1, 1,
+/* 62*/ 1, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+/* 77*/ 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0,
+/* 92*/ 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 2, 1, 1, 3, 3, 2,
+/*108*/ 3, 1, 0, 0, 2, 3, 2, 1, 1, 0, 0, 0, 4, 1, 1, 1, 2,
+/*125*/ 2, 4, 0, 0, e_blk_length, 1, 1, 1, 0, 0, 0, 1, 1, 0,
+/*139*/ 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0,
+/*156*/ 2, 2, 1, e_extract_count, 0, 0, 0, 0
+};
+static CONST SCHAR type_table[] = {
+	0, STATEMENT, STATEMENT, STATEMENT, STATEMENT, STATEMENT,
+/*  6*/ STATEMENT, STATEMENT, STATEMENT, STATEMENT, STATEMENT,
+/* 11*/ STATEMENT, STATEMENT, STATEMENT, STATEMENT, STATEMENT,
+/* 16*/ 0, STATEMENT, STATEMENT, STATEMENT, STATEMENT, VALUE,
+/* 22*/ VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE,
+/* 30*/ VALUE, VALUE, 0, 0, VALUE, VALUE, VALUE, VALUE, VALUE,
+/* 39*/ VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, 0,
+/* 47*/ BOOL, BOOL, BOOL, BOOL, BOOL, BOOL, BOOL, BOOL, BOOL,
+/* 56*/ BOOL, BOOL, BOOL, BOOL, BOOL, BOOL, BOOL, BOOL, 0,
+/* 65*/ STATEMENT, STATEMENT, TYPE_RSE, 0, 0, 0, 0, 0,
+/* 73*/ 0, RELATION, RELATION, RELATION, OTHER, 0, RELATION,
+/* 80*/ 0, 0, 0, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE,
+/* 89*/ 0, 0, 0, 0, VALUE, VALUE, VALUE, VALUE, 0, 0,
+/* 99*/ 0, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, BOOL,
+/*107*/ VALUE, BOOL, VALUE, VALUE, STATEMENT, STATEMENT, STATEMENT,
+/*114*/ VALUE, VALUE, STATEMENT, VALUE, 0, RELATION, STATEMENT,
+/*121*/ VALUE, STATEMENT, STATEMENT, RELATION, RELATION, STATEMENT,
+/*127*/ TYPE_RSE, STATEMENT, STATEMENT, STATEMENT, VALUE, STATEMENT,
+/*133*/ STATEMENT, STATEMENT, STATEMENT, STATEMENT, STATEMENT,
+/*138*/ STATEMENT, VALUE, VALUE, VALUE, ACCESS_TYPE, ACCESS_TYPE,
+/*144*/ ACCESS_TYPE, ACCESS_TYPE, RELATION, RELATION, STATEMENT,
+/*149*/ STATEMENT, STATEMENT, BOOL, BOOL, VALUE, VALUE, STATEMENT,
+/*156*/ STATEMENT, STATEMENT, BOOL, VALUE, VALUE, VALUE, VALUE,
+/*163*/ 0
+};
+static CONST SCHAR sub_type_table[] = {
+	0, VALUE, STATEMENT, OTHER, OTHER, OTHER, STATEMENT,
+/*  7*/ STATEMENT, STATEMENT, STATEMENT, STATEMENT, OTHER,
+/* 12*/ STATEMENT, STATEMENT, STATEMENT, STATEMENT, 0, STATEMENT,
+/* 18*/ OTHER, STATEMENT, VALUE, OTHER, VALUE, VALUE, VALUE,
+/* 25*/ VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, 0,
+/* 33*/ 0, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE,
+/* 41*/ VALUE, OTHER, OTHER, VALUE, VALUE, 0, VALUE, VALUE,
+/* 49*/ VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE,
+/* 57*/ BOOL, BOOL, BOOL, TYPE_RSE, VALUE, OTHER, VALUE, 0,
+/* 65*/ STATEMENT, STATEMENT, OTHER, 0, 0, 0, 0, 0, 0,
+/* 74*/ OTHER, OTHER, OTHER, OTHER, 0, OTHER, 0, 0, 0,
+/* 83*/ VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, 0, 0, 0,
+/* 92*/ 0, VALUE, VALUE, VALUE, VALUE, 0, 0, 0, VALUE,
+/*101*/ VALUE, VALUE, VALUE, VALUE, OTHER, VALUE, VALUE, VALUE,
+/*109*/ VALUE, OTHER, OTHER, VALUE, STATEMENT, VALUE, VALUE,
+/*116*/ STATEMENT, VALUE, 0, OTHER, OTHER, OTHER, STATEMENT,
+/*123*/ STATEMENT, OTHER, OTHER, OTHER, OTHER, OTHER, STATEMENT,
+/*130*/ OTHER, VALUE, STATEMENT, STATEMENT, OTHER, OTHER, STATEMENT,
+/*137*/ STATEMENT, STATEMENT, VALUE, VALUE, VALUE, OTHER, VALUE,
+/*144*/ VALUE, VALUE, OTHER, OTHER, OTHER, OTHER, VALUE, TYPE_RSE,
+/*152*/ TYPE_RSE, OTHER, VALUE, STATEMENT, VALUE, STATEMENT,
+/*158*/ TYPE_RSE, VALUE, OTHER, OTHER, OTHER, 0
+};
diff --git a/src/jrd/bookmark.cpp b/src/jrd/bookmark.cpp
new file mode 100644
index 0000000000..4505fd3ce8
--- /dev/null
+++ b/src/jrd/bookmark.cpp
@@ -0,0 +1,198 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		bookmark.cpp
+ *	DESCRIPTION:	Bookmark Handler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../jrd/jrd.h"
+#include "../jrd/exe.h"
+#include "../jrd/rse.h"
+#include "../jrd/codes.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/bookmark.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/thd_proto.h"
+
+
+#ifdef PC_ENGINE
+BKM BKM_allocate(RSB rsb, USHORT length)
+{
+/**************************************
+ *
+ *	B K M _ a l l o c a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate and initialize a bookmark structure.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	ATT attachment;
+	BKM bookmark;
+	REQ request;
+	IRSB impure;
+
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	request = tdbb->tdbb_request;
+	impure = (IRSB) ((UCHAR *) request + rsb->rsb_impure);
+
+/* allocate the bookmark and link it into the 
+   linked list hanging off the attachment block */
+
+	bookmark = (BKM) ALLOCPV(type_bkm, length);
+
+	attachment = tdbb->tdbb_attachment;
+	bookmark->bkm_next = attachment->att_bookmarks;
+	attachment->att_bookmarks = bookmark;
+
+/* set up a self-referential descriptor to contain the pointer
+   to the bookmark block; used for convenience in passing the
+   bookmark descriptor around within looper() */
+
+	bookmark->bkm_desc.dsc_dtype = dtype_long;
+	bookmark->bkm_desc.dsc_length = sizeof(SLONG);
+	bookmark->bkm_desc.dsc_address = (UCHAR *) & bookmark->bkm_handle;
+#if !defined(HAS_64BIT_POINTERS)
+	bookmark->bkm_handle = (ULONG) bookmark;
+#else
+	{
+		ULONG slot;
+
+		/* The bookmark pointer can't be stored in a ULONG.  Therefore
+		   we must generate a ULONG value that can be used to retrieve
+		   the pointer.  Basically we will keep a vector of active bookmarks
+		   and give the user an index into this vector.  When the user releases
+		   a bookmark, its slot in the vector is zeroed and it becomes available
+		   for reuse. */
+
+		slot =
+			ALL_get_free_object(dbb->dbb_permanent,
+								&attachment->att_bkm_quick_ref, 50);
+		attachment->att_bkm_quick_ref->vec_object[slot] = (BLK) bookmark;
+		bookmark->bkm_handle = slot;
+	}
+#endif
+
+/* set up the bookmark flags */
+
+	if (impure->irsb_flags & irsb_bof)
+		bookmark->bkm_flags |= bkm_bof;
+	else if (impure->irsb_flags & irsb_eof)
+		bookmark->bkm_flags |= bkm_eof;
+	else if (impure->irsb_flags & irsb_crack) {
+		bookmark->bkm_flags |= bkm_crack;
+		if (impure->irsb_flags & irsb_forced_crack)
+			bookmark->bkm_flags |= bkm_forced_crack;
+	}
+
+	return bookmark;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+BKM BKM_lookup(NOD node)
+{
+/**************************************
+ *
+ *	B K M _ l o o k u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a bookmark using a user supplied value.
+ *
+ **************************************/
+	BKM bookmark;
+
+#if !defined(HAS_64BIT_POINTERS)
+	bookmark = (BKM) MOV_get_long(EVL_expr(tdbb, node), 0);
+#else
+	{
+		TDBB tdbb;
+		ATT attachment;
+		ULONG slot;
+		VEC vector;
+
+		tdbb = GET_THREAD_DATA;
+		attachment = tdbb->tdbb_attachment;
+
+		bookmark = NULL;
+		slot = MOV_get_long(EVL_expr(tdbb, node), 0);
+		if ((vector = attachment->att_bkm_quick_ref) &&
+			slot < vector->vec_count)
+				bookmark = (BKM) vector->vec_object[slot];
+	}
+#endif
+
+	if (!bookmark || bookmark->bkm_header.blk_type != type_bkm)
+		ERR_post(gds__invalid_bookmark, 0);
+
+	return bookmark;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void BKM_release(NOD node)
+{
+/**************************************
+ *
+ *	B K M _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a bookmark using a user supplied value.
+ *
+ **************************************/
+	TDBB tdbb;
+	ATT attachment;
+	BKM bookmark, *bptr;
+	ULONG slot;
+
+	tdbb = GET_THREAD_DATA;
+	attachment = tdbb->tdbb_attachment;
+
+	bookmark = BKM_lookup(node);
+
+/* unlink the bookmark from the attachment linked list */
+
+	for (bptr = &attachment->att_bookmarks; *bptr; bptr = &(*bptr)->bkm_next)
+		if (*bptr == bookmark) {
+			*bptr = bookmark->bkm_next;
+			break;
+		}
+
+#if defined(HAS_64BIT_POINTERS)
+	slot = MOV_get_long(EVL_expr(tdbb, node), 0);
+	attachment->att_bkm_quick_ref->vec_object[slot] = NULL;
+#endif
+
+	ALL_release(bookmark);
+}
+#endif
diff --git a/src/jrd/bookmark.h b/src/jrd/bookmark.h
new file mode 100644
index 0000000000..8dfc48814d
--- /dev/null
+++ b/src/jrd/bookmark.h
@@ -0,0 +1,31 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		bookmark.h
+ *	DESCRIPTION:	Prototype header file for bkm.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_BOOKMARK_H
+#define JRD_BOOKMARK_H
+
+struct bkm*	BKM_allocate(struct rsb*, USHORT);
+struct bkm*	BKM_lookup(struct nod*);
+void		BKM_release(struct nod*);
+
+#endif /* JRD_BOOKMARK_H */
diff --git a/src/jrd/btr.cpp b/src/jrd/btr.cpp
new file mode 100644
index 0000000000..5e4d012a9b
--- /dev/null
+++ b/src/jrd/btr.cpp
@@ -0,0 +1,4561 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		btr.c
+ *	DESCRIPTION:	B-tree management code
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: btr.cpp,v 1.1.1.1 2001-05-23 13:26:08 tamlin Exp $
+*/
+
+#include "../jrd/ibsetjmp.h"
+#include <string.h>
+#include <stdlib.h>
+#include "../jrd/ib_stdio.h"
+#include "../jrd/jrd.h"
+#include "../jrd/ods.h"
+#include "../jrd/val.h"
+#include "../jrd/btr.h"
+#include "../jrd/req.h"
+#include "../jrd/tra.h"
+#include "../jrd/intl.h"
+#include "../jrd/codes.h"
+#include "../jrd/common.h"
+#include "../jrd/jrn.h"
+#include "../jrd/lck.h"
+#include "../jrd/cch.h"
+#include "../jrd/sbm.h"
+#include "../jrd/sort.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/btr_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/dbg_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/jrd_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/nav_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/pcmet_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/sort_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/tra_proto.h"
+
+
+extern "C" {
+
+
+/*********************************************
+      eliminate this conversion - kk
+#ifdef VMS
+extern double	MTH$CVT_G_D();
+#endif
+**********************************************/
+
+#define MAX_LEVELS	16
+
+__inline void MOVE_BYTE(UCHAR*& x_from, UCHAR*& x_to)
+{
+	*x_to++ = *x_from++;
+}
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+#define OVERSIZE	(dbb->dbb_page_size + BTN_SIZE + MAX_KEY + sizeof (SLONG) - 1)
+#else
+#define OVERSIZE	(MAX_PAGE_SIZE + BTN_SIZE + MAX_KEY + sizeof (SLONG) - 1) / sizeof (SLONG)
+#endif
+
+typedef union {
+	SLONG n;
+	SCHAR c[4];
+} LONGCHAR;
+
+#define GARBAGE_COLLECTION_THRESHOLD	(dbb->dbb_page_size / 4)
+
+
+typedef struct {
+	double d_part;
+	SSHORT s_part;
+} INT64_KEY;
+
+#define INT64_KEY_LENGTH	(sizeof (double) + sizeof (SSHORT))
+
+static CONST double pow10[] =
+	{ 1.e00, 1.e01, 1.e02, 1.e03, 1.e04, 1.e05, 1.e06, 1.e07, 1.e08, 1.e09,
+	1.e10, 1.e11, 1.e12, 1.e13, 1.e14, 1.e15, 1.e16, 1.e17, 1.e18, 1.e19,
+	1.e20, 1.e21, 1.e22, 1.e23, 1.e24, 1.e25, 1.e26, 1.e27, 1.e28, 1.e29,
+	1.e30, 1.e31, 1.e32, 1.e33, 1.e34, 1.e35, 1.e36
+};
+
+#define powerof10(s) ((s) <= 0 ? pow10[-(s)] : 1./pow10[-(s)])
+
+static CONST struct {			/* Used in make_int64_key() */
+	UINT64 limit;
+	SINT64 factor;
+	SSHORT scale_change;
+} int64_scale_control[] = {
+	{
+	QUADCONST(922337203685470000), QUADCONST(1), 0}, {
+	QUADCONST(92233720368547000), QUADCONST(10), 1}, {
+	QUADCONST(9223372036854700), QUADCONST(100), 2}, {
+	QUADCONST(922337203685470), QUADCONST(1000), 3}, {
+	QUADCONST(92233720368548), QUADCONST(10000), 4}, {
+	QUADCONST(9223372036855), QUADCONST(100000), 5}, {
+	QUADCONST(922337203686), QUADCONST(1000000), 6}, {
+	QUADCONST(92233720369), QUADCONST(10000000), 7}, {
+	QUADCONST(9223372035), QUADCONST(100000000), 8}, {
+	QUADCONST(922337204), QUADCONST(1000000000), 9}, {
+	QUADCONST(92233721), QUADCONST(10000000000), 10}, {
+	QUADCONST(9223373), QUADCONST(100000000000), 11}, {
+	QUADCONST(922338), QUADCONST(1000000000000), 12}, {
+	QUADCONST(92234), QUADCONST(10000000000000), 13}, {
+	QUADCONST(9224), QUADCONST(100000000000000), 14}, {
+	QUADCONST(923), QUADCONST(1000000000000000), 15}, {
+	QUADCONST(93), QUADCONST(10000000000000000), 16}, {
+	QUADCONST(10), QUADCONST(100000000000000000), 17}, {
+	QUADCONST(1), QUADCONST(1000000000000000000), 18}, {
+QUADCONST(0), QUADCONST(0), 0}};
+
+/* The first four entries in the array int64_scale_control[] ends with the
+ * limit having 0's in the end. This is to inhibit any rounding off that
+ * DOUBLE precision can introduce. DOUBLE can easily store upto 92233720368547
+ * uniquely. Values after this tend to round off to the upper limit during
+ * division. Hence the ending with 0's so that values will be bunched together
+ * in the same limit range and scale control for INT64 index KEY calculation.
+ * 
+ * This part was changed as a fix for bug 10267. - bsriram 04-Mar-1999 
+ */
+
+/* enumerate the possible outcomes of deleting a node */
+
+typedef enum contents {
+	contents_empty = 0,
+	contents_single,
+	contents_below_threshold,
+	contents_above_threshold
+} CONTENTS;
+
+static SLONG add_node(TDBB, register WIN *, IIB *, KEY *, SLONG *, SLONG *);
+static void complement_key(KEY *);
+static void compress(TDBB, DSC *, KEY *, USHORT, USHORT, USHORT, USHORT);
+static USHORT compress_root(TDBB, IRT);
+static USHORT compute_prefix(KEY *, UCHAR *, USHORT);
+static void copy_key(KEY *, KEY *);
+static CONTENTS delete_node(TDBB, WIN *, BTN);
+static void delete_tree(TDBB, USHORT, USHORT, SLONG, SLONG);
+static DSC *eval(TDBB, NOD, DSC *, int *);
+static SLONG fast_load(TDBB, REL, IDX *, USHORT, SCB, float *);
+static IRT fetch_root(TDBB, WIN *, REL);
+static BTN find_node(register BTR, KEY *, USHORT);
+static CONTENTS garbage_collect(TDBB, WIN *, SLONG);
+static SLONG insert_node(TDBB, WIN *, IIB *, KEY *, SLONG *, SLONG *);
+static void journal_btree_segment(TDBB, WIN *, BTR);
+static BOOLEAN key_equality(KEY *, BTN);
+static INT64_KEY make_int64_key(SINT64, SSHORT);
+#ifdef DEBUG_INDEXKEY
+static void print_int64_key(SINT64, SSHORT, INT64_KEY);
+#endif
+static void quad_put(SLONG, SCHAR *);
+static void quad_move(register UCHAR *, register UCHAR *);
+static CONTENTS remove_node(TDBB, IIB *, WIN *);
+static CONTENTS remove_leaf_node(TDBB, IIB *, WIN *);
+static BOOLEAN scan(TDBB, register BTN, SBM *, register UCHAR, KEY *, USHORT);
+
+
+
+//
+// TMN: Ease C -> C++ conversion. This MUST be outside the extern "C"
+// block, since it uses function overloading.
+//
+
+}                             // extern "C"
+
+inline SLONG BTR_get_quad(UCHAR * p)
+{
+	return BTR_get_quad(reinterpret_cast < char *>(p));
+}
+
+inline void quad_put(SLONG value, UCHAR * data)
+{
+	quad_put(value, reinterpret_cast < SCHAR * >(data));
+}
+
+
+extern "C" {
+USHORT BTR_all(TDBB tdbb,
+			   REL relation,
+			   IDX ** start_buffer,
+			   IDX ** csb_idx, STR * csb_idx_allocation, SLONG * idx_size)
+{
+/**************************************
+ *
+ *	B T R _ a l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return descriptions of all indices for relation.  If there isn't
+ *	a known index root, assume we were called during optimization
+ *	and return no indices.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	IRT root;
+	STR new_buffer;
+	register USHORT count, i;
+	register IDX *buffer;
+	SLONG size;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+	window.win_flags = 0;
+
+	buffer = *start_buffer;
+	if (!(root = fetch_root(tdbb, &window, relation)))
+		return 0;
+
+	if ((SLONG) (root->irt_count * sizeof(IDX)) > *idx_size) {
+		size = (sizeof(IDX) * MAX_IDX) + ALIGNMENT;
+		*csb_idx_allocation = new_buffer = (STR) ALLOCPV(type_str, size);
+		buffer = *start_buffer =
+			(IDX *) FB_ALIGN((U_IPTR) new_buffer->str_data, ALIGNMENT);
+		*idx_size = size - ALIGNMENT;
+	}
+	count = 0;
+	for (i = 0; i < root->irt_count; i++)
+		if (BTR_description(relation, root, buffer, i)) {
+			count++;
+			buffer = NEXT_IDX(buffer->idx_rpt, buffer->idx_count);
+		}
+	*csb_idx = *start_buffer;
+	*idx_size = *idx_size - ((UCHAR *) buffer - (UCHAR *) * start_buffer);
+	*start_buffer = buffer;
+
+	CCH_RELEASE(tdbb, &window);
+	return count;
+}
+
+
+void BTR_create(TDBB tdbb,
+				REL relation,
+				IDX * idx,
+				USHORT key_length, SCB sort_handle, float *selectivity)
+{
+/**************************************
+ *
+ *	B T R _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new index.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	register IRT root;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* Now that the index id has been checked out, create the index. */
+
+	idx->idx_root =
+		fast_load(tdbb, relation, idx, key_length, sort_handle, selectivity);
+
+/* Index is created.  Go back to the index root page and update it to
+   point to the index. */
+
+	window.win_page = relation->rel_index_root;
+	window.win_flags = 0;
+	root = (IRT) CCH_FETCH(tdbb, &window, LCK_write, pag_root);
+	CCH_MARK(tdbb, &window);
+	root->irt_rpt[idx->idx_id].irt_root = idx->idx_root;
+	root->irt_rpt[idx->idx_id].irt_stuff.irt_selectivity = *selectivity;
+	root->irt_rpt[idx->idx_id].irt_flags &= ~irt_in_progress;
+
+	if (dbb->dbb_wal)
+		CCH_journal_page(tdbb, &window);
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+void BTR_delete_index(TDBB tdbb, WIN * window, USHORT id)
+{
+/**************************************
+ *
+ *	B T R _ d e l e t e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete an index if it exists.
+ *
+ **************************************/
+	DBB dbb;
+	IRT root;
+	USHORT relation_id;
+	SLONG prior, next;
+	irt::irt_repeat * irt_desc;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* Get index descriptor.  If index doesn't exist, just leave.  */
+
+	root = (IRT) window->win_buffer;
+
+	if (id >= root->irt_count)
+		CCH_RELEASE(tdbb, window);
+	else {
+		irt_desc = root->irt_rpt + id;
+		CCH_MARK(tdbb, window);
+		next = irt_desc->irt_root;
+
+		/* remove the pointer to the top-level index page before we delete it */
+
+		irt_desc->irt_root = 0;
+		irt_desc->irt_flags = 0;
+		prior = window->win_page;
+		relation_id = root->irt_relation;
+
+		/* Journal update of index root page */
+
+		if (dbb->dbb_wal)
+			CCH_journal_page(tdbb, window);
+
+		CCH_RELEASE(tdbb, window);
+		delete_tree(tdbb, relation_id, id, next, prior);
+	}
+}
+BOOLEAN BTR_description(REL relation,
+						register IRT root, register IDX * idx, SSHORT id)
+{
+/**************************************
+ *
+ *	B T R _ d e s c r i p t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if index exists, and if so, pick up its description.
+ *
+ **************************************/
+	register irt::irt_repeat * irt_desc;
+	register idx::idx_repeat * idx_desc;
+	struct irtd *irtd;
+	USHORT i;
+
+	if (id >= root->irt_count)
+		return FALSE;
+
+	irt_desc = &root->irt_rpt[id];
+
+	if (irt_desc->irt_root == 0)
+		return FALSE;
+
+	assert(id <= MAX_UCHAR);
+	idx->idx_id = (UCHAR) id;
+	idx->idx_root = irt_desc->irt_root;
+	idx->idx_selectivity = irt_desc->irt_stuff.irt_selectivity;
+	idx->idx_count = irt_desc->irt_keys;
+	idx->idx_flags = irt_desc->irt_flags;
+	idx->idx_runtime_flags = 0;
+	idx->idx_foreign_primaries = NULL;
+	idx->idx_foreign_relations = NULL;
+	idx->idx_foreign_indexes = NULL;
+	idx->idx_primary_relation = 0;
+	idx->idx_primary_index = 0;
+	idx->idx_expression = NULL;
+	idx->idx_expression_request = NULL;
+
+/* pick up field ids and type descriptions for each of the fields */
+
+	irtd = (IRTD *) ((UCHAR *) root + irt_desc->irt_desc);
+	idx_desc = idx->idx_rpt;
+	for (i = 0; i < idx->idx_count; i++, irtd++, idx_desc++) {
+		idx_desc->idx_field = irtd->irtd_field;
+		idx_desc->idx_itype = irtd->irtd_itype;
+	}
+#ifdef EXPRESSION_INDICES
+	if (idx->idx_flags & idx_expressn)
+		PCMET_lookup_index(relation, idx);
+#endif
+
+	return TRUE;
+}
+
+
+void BTR_evaluate(TDBB tdbb, IRB retrieval, SBM * bitmap)
+{
+/**************************************
+ *
+ *	B T R _ e v a l u a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do an index scan and return a bitmap 
+ * 	of all candidate record numbers.
+ *
+ **************************************/
+	KEY lower, upper;
+	WIN window;
+	BTR page;
+	UCHAR prefix;
+	BTN node;
+	IDX idx;
+	SLONG number;
+
+	SET_TDBB(tdbb);
+	DEBUG;
+	SBM_reset(bitmap);
+	window.win_flags = 0;
+
+	page =
+		BTR_find_page(tdbb, retrieval, &window, &idx, &lower, &upper, FALSE);
+
+/* If there is a starting descriptor, search down index to starting position.
+   This may involve sibling buckets if splits are in progress.  If there 
+   isn't a starting descriptor, walk down the left side of the index. */
+
+	if (retrieval->irb_lower_count) {
+		while (!
+			   (node =
+				BTR_find_leaf(page, &lower, 0, &prefix,
+							  idx.idx_flags & idx_descending, TRUE)))
+				page =
+				(BTR) CCH_HANDOFF(tdbb, &window, page->btr_sibling,
+								  LCK_read, pag_index);
+
+		/* Compute the number of matching characters in lower and upper bounds */
+
+		if (retrieval->irb_upper_count) {
+			/* TMN: Watch out, possibility for UCHAR overflow! */
+			prefix =
+				(UCHAR) compute_prefix(&upper, lower.key_data,
+									   lower.key_length);
+		}
+	}
+	else {
+		node = page->btr_nodes;
+		prefix = 0;
+	}
+
+/* if there is an upper bound, scan the index pages looking for it */
+
+	if (retrieval->irb_upper_count) {
+		while (scan(tdbb, node, bitmap, prefix, &upper,
+					(USHORT) (retrieval->irb_generic &
+							  (irb_partial | irb_descending | irb_starting
+							   | irb_equality)))) {
+			page =
+				(BTR) CCH_HANDOFF(tdbb, &window, page->btr_sibling,
+								  LCK_read, pag_index);
+			node = page->btr_nodes;
+			prefix = 0;
+		}
+	}
+	else {
+		/* if there isn't an upper bound, just walk the index to the end of the level */
+		while (TRUE) {
+			number = BTR_get_quad(BTN_NUMBER(node));
+
+			if (number == END_LEVEL)
+				break;
+
+#ifdef IGNORE_NULL_IDX_KEY
+			if (number == END_NON_NULL) {
+				/* break if we have reached the end of non-null values */
+				if (retrieval->irb_generic & irb_ignore_null_value_key)
+					break;
+				/* Else, go to the next node if we want to look at all of them */
+				node = NEXT_NODE(node);
+				continue;
+			}
+#endif /* IGNORE_NULL_IDX_KEY */
+
+			if (number != END_BUCKET) {
+				SBM_set(tdbb, bitmap, number);
+				node = NEXT_NODE(node);
+				continue;
+			}
+
+			page =
+				(BTR) CCH_HANDOFF(tdbb, &window, page->btr_sibling,
+								  LCK_read, pag_index);
+			node = page->btr_nodes;
+		}
+	}
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+BTN BTR_find_leaf(BTR bucket,
+				  KEY * key,
+				  UCHAR * value,
+				  UCHAR * return_value, int descending, BOOLEAN retrieval)
+{
+/**************************************
+ *
+ *	B T R _ f i n d _ l e a f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Locate and return a pointer to the insertion point.
+ *	If the key doesn't belong in this bucket, return NULL.
+ *	A flag indicates the index is descending.
+ *
+ **************************************/
+	register BTN node;
+	UCHAR prefix, *key_end, *node_end;
+	register UCHAR *p, *q, *r;
+	USHORT l;
+	SLONG number;
+
+	DEBUG;
+	node = bucket->btr_nodes;
+	prefix = 0;
+	p = key->key_data;
+	key_end = p + key->key_length;
+
+/* If this is an non-leaf bucket of a descending index, the dummy node on the
+   front will trip us up.  NOTE: This code may be apocryphal.  I don't see 
+   anywhere that a dummy node is stored for a descending index.  - deej */
+
+	if (bucket->btr_level && descending && !BTN_LENGTH(node))
+		node = NEXT_NODE(node);
+
+	while (TRUE) {
+		/* Pick up data from node */
+
+		if (value && (l = BTN_LENGTH(node))) {
+			r = value + BTN_PREFIX(node);
+			q = BTN_DATA(node);
+			do
+				*r++ = *q++;
+			while (--l);
+		}
+		/* If the page/record number is -1, the node is the last in the level
+		   and, by definition, is the insertion point.  Otherwise, if the
+		   prefix of the current node is less than the running prefix, the 
+		   node must have a value greater than the key, so it is the insertion
+		   point. */ number = BTR_get_quad(BTN_NUMBER(node));
+
+#ifdef IGNORE_NULL_IDX_KEY
+		if (number == END_BUCKET)
+			return NULL;
+
+		if ((number == END_NON_NULL)
+			&& (key->key_flags & KEY_first_segment_is_null)) {
+			/* reset running prefix length. */
+			prefix = 0;
+			p = key->key_data;
+			/* We are looking for a key with initial NULL segment. Go past the
+			 * END_NON_NULL marker. */
+			node = NEXT_NODE(node);
+			continue;
+		}
+#endif /* IGNORE_NULL_IDX_KEY */
+
+#ifdef IGNORE_NULL_IDX_KEY
+		if (
+			(number == END_NON_NULL
+			 && !(key->key_flags & KEY_first_segment_is_null))
+			|| number == END_LEVEL || BTN_PREFIX(node) < prefix)
+#else
+		if (number == END_LEVEL || BTN_PREFIX(node) < prefix)
+#endif /* IGNORE_NULL_IDX_KEY */
+		{
+			if (return_value)
+				*return_value = prefix;
+			return node;
+		}
+
+		/* If the node prefix is greater than current prefix , it must be less 
+		   than the key, so we can skip it.  If it has zero length, then
+		   it is a duplicate, and can also be skipped. */
+
+		if (BTN_PREFIX(node) == prefix) {
+			q = BTN_DATA(node);
+			node_end = q + BTN_LENGTH(node);
+			if (descending) {
+				while (TRUE)
+					if (q == node_end || retrieval && p == key_end)
+						goto done;
+					else if (p == key_end || *p > *q)
+						break;
+					else if (*p++ < *q++)
+						goto done;
+			}
+			else if (BTN_LENGTH(node) > 0)
+				while (TRUE)
+					if (p == key_end)
+						goto done;
+					else if (q == node_end || *p > *q)
+						break;
+					else if (*p++ < *q++)
+						goto done;
+			prefix = (UCHAR) (p - key->key_data);
+		}
+#ifndef IGNORE_NULL_IDX_KEY
+		/* this part of the code moved up for IGNORE_NULL... */
+		if (number == END_BUCKET)
+			return NULL;
+#endif /* IGNORE_NULL_IDX_KEY */
+		node = NEXT_NODE(node);
+	}
+
+  done:
+	if (return_value)
+		*return_value = prefix;
+	return node;
+}
+
+
+BTR BTR_find_page(TDBB tdbb,
+				  IRB retrieval,
+				  WIN * window,
+				  IDX * idx, KEY * lower, KEY * upper, BOOLEAN backwards)
+{
+/**************************************
+ *
+ *	B T R _ f i n d _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for an index retrieval.
+ *
+ **************************************/
+	IRT rpage;
+	register BTR page;
+	SLONG number;
+	BTN node;
+
+	SET_TDBB(tdbb);
+
+/* Generate keys before we get any pages locked to avoid unwind
+   problems --  if we already have a key, assume that we 
+   are looking for an equality */
+
+	if (retrieval->irb_key) {
+		copy_key(retrieval->irb_key, lower);
+		copy_key(retrieval->irb_key, upper);
+	}
+	else {
+		if (retrieval->irb_upper_count)
+			BTR_make_key(tdbb, retrieval->irb_upper_count,
+						 retrieval->irb_value +
+						 retrieval->irb_desc.idx_count,
+						 &retrieval->irb_desc, upper,
+						 (USHORT) (retrieval->irb_generic & irb_starting));
+
+		if (retrieval->irb_lower_count)
+			BTR_make_key(tdbb, retrieval->irb_lower_count,
+						 retrieval->irb_value,
+						 &retrieval->irb_desc, lower,
+						 (USHORT) (retrieval->irb_generic & irb_starting));
+	}
+
+	window->win_page = retrieval->irb_relation->rel_index_root;
+	rpage = (IRT) CCH_FETCH(tdbb, window, LCK_read, pag_root);
+
+	if (!BTR_description
+		(retrieval->irb_relation, rpage, idx, retrieval->irb_index)) {
+		CCH_RELEASE(tdbb, window);
+		IBERROR(260);			/* msg 260 index unexpectedly deleted */
+	}
+
+	page =
+		(BTR) CCH_HANDOFF(tdbb, window, idx->idx_root, LCK_read, pag_index);
+
+/* If there is a starting descriptor, search down index to starting position.
+   This may involve sibling buckets if splits are in progress.  If there 
+   isn't a starting descriptor, walk down the left side of the index (right
+   side if we are going backwards). */
+
+	if ((!backwards && retrieval->irb_lower_count) ||
+		(backwards && retrieval->irb_upper_count)) {
+		while (page->btr_level > 0)
+			while (TRUE) {
+				node =
+					find_node(page, backwards ? upper : lower,
+							  (USHORT) (idx->idx_flags & idx_descending));
+				number = BTR_get_quad(BTN_NUMBER(node));
+				if (number != END_BUCKET) {
+					page =
+						(BTR) CCH_HANDOFF(tdbb, window, number, LCK_read,
+										  pag_index);
+					break;
+				}
+
+				page =
+					(BTR) CCH_HANDOFF(tdbb, window, page->btr_sibling,
+									  LCK_read, pag_index);
+			}
+	}
+	else {
+		while (page->btr_level > 0) {
+#ifdef SCROLLABLE_CURSORS
+			if (backwards)
+				node = BTR_last_node(page, NAV_expand_index(window, 0), 0);
+			else
+#endif
+				node = page->btr_nodes;
+
+			number = BTR_get_quad(BTN_NUMBER(node));
+			page =
+				(BTR) CCH_HANDOFF(tdbb, window, number, LCK_read, pag_index);
+
+			/* make sure that we are actually on the last page on this
+			   level when scanning in the backward direction */
+
+			if (backwards)
+				while (page->btr_sibling)
+					page =
+						(BTR) CCH_HANDOFF(tdbb, window, page->btr_sibling,
+										  LCK_read, pag_index);
+		}
+	}
+
+	return page;
+}
+
+
+SLONG BTR_get_quad(SCHAR * data)
+{
+/**************************************
+ *
+ *	B T R _ g e t _ q u a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a four byte binary number.
+ *
+ **************************************/
+	LONGCHAR value;
+
+	value.c[0] = data[0];
+	value.c[1] = data[1];
+	value.c[2] = data[2];
+	value.c[3] = data[3];
+
+	return value.n;
+}
+void BTR_insert(TDBB tdbb, WIN * root_window, register IIB * insertion)
+{
+/**************************************
+ *
+ *	B T R _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a node into an index.
+ *
+ **************************************/
+	DBB dbb;
+	IDX *idx;
+	WIN window, new_window;
+	register BTR bucket, new_bucket;
+	KEY key;
+	IRT root;
+	register BTN node;
+	UCHAR *p, *q;
+	register USHORT l;
+	SLONG split_page;
+
+	dbb = tdbb->tdbb_database;
+
+	DEBUG;
+	idx = insertion->iib_descriptor;
+	window.win_page = idx->idx_root;
+	window.win_flags = 0;
+	bucket = (BTR) CCH_FETCH(tdbb, &window, LCK_read, pag_index);
+
+	if (bucket->btr_level == 0) {
+		CCH_RELEASE(tdbb, &window);
+		CCH_FETCH(tdbb, &window, LCK_write, pag_index);
+	}
+	CCH_RELEASE(tdbb, root_window);
+
+	if (
+		(split_page =
+		 add_node(tdbb, &window, insertion, &key, NULL, NULL)) == 0) return;
+
+/* The top of the index has split.  We need to make a new level and
+   update the index root page.  Oh boy. */
+
+	root = (IRT) CCH_FETCH(tdbb, root_window, LCK_write, pag_root);
+
+	window.win_page = root->irt_rpt[idx->idx_id].irt_root;
+	bucket = (BTR) CCH_FETCH(tdbb, &window, LCK_write, pag_index);
+
+/* the original page was marked as not garbage-collectable, but 
+   since it is the root page it won't be garbage-collected anyway, 
+   so go ahead and mark it as garbage-collectable now */
+
+	CCH_MARK(tdbb, &window);
+	bucket->btr_header.pag_flags &= ~btr_dont_gc;
+
+	new_window.win_page = split_page;
+	new_window.win_flags = 0;
+	new_bucket = (BTR) CCH_FETCH(tdbb, &new_window, LCK_read, pag_index);
+
+	if (bucket->btr_level != new_bucket->btr_level) {
+		CCH_RELEASE(tdbb, &new_window);
+		CCH_RELEASE(tdbb, &window);
+		CORRUPT(204);			/* msg 204 index inconsistent */
+	}
+
+	CCH_RELEASE(tdbb, &new_window);
+	CCH_RELEASE(tdbb, &window);
+
+/* Allocate and format new bucket */
+
+	new_bucket = (BTR) DPM_allocate(tdbb, &new_window);
+	CCH_precedence(tdbb, &new_window, window.win_page);
+	new_bucket->btr_header.pag_type = pag_index;
+	new_bucket->btr_relation = bucket->btr_relation;
+	new_bucket->btr_level = bucket->btr_level + 1;
+	new_bucket->btr_id = bucket->btr_id;
+	new_bucket->btr_header.pag_flags |=
+		(bucket->btr_header.pag_flags & btr_descending);
+
+/* Set up first node as degenerate, but pointing to first bucket on
+   next level. */
+
+	node = new_bucket->btr_nodes;
+	quad_put(window.win_page, BTN_NUMBER(node));
+	BTN_PREFIX(node) = 0;
+	BTN_LENGTH(node) = 0;
+	node = NEXT_NODE(node);
+
+/* Move in the split node */
+
+	quad_put(split_page, BTN_NUMBER(node));
+	BTN_PREFIX(node) = 0;
+	assert(key.key_length <= MAX_UCHAR);
+	l = BTN_LENGTH(node) = (UCHAR) key.key_length;
+	q = BTN_DATA(node);
+	p = key.key_data;
+	if (l) {
+		do {
+			MOVE_BYTE(p, q);
+		} while (--l);
+	}
+	node = NEXT_NODE(node);
+
+/* mark end of level */
+
+	BTN_PREFIX(node) = 0;
+	BTN_LENGTH(node) = 0;
+	quad_put((SLONG) END_LEVEL, BTN_NUMBER(node));
+	node = NEXT_NODE(node);
+
+	new_bucket->btr_length = (UCHAR *) node - (UCHAR *) new_bucket;
+
+/* update the root page to point to the new top-level page, 
+   and make sure the new page has higher precedence so that 
+   it will be written out first--this will make sure that the 
+   root page doesn't point into space */
+
+	CCH_RELEASE(tdbb, &new_window);
+	CCH_precedence(tdbb, root_window, new_window.win_page);
+	CCH_MARK(tdbb, root_window);
+	root->irt_rpt[idx->idx_id].irt_root = new_window.win_page;
+
+/* journal root page change */
+
+	if (dbb->dbb_wal) {
+		JRNRP journal;
+		journal.jrnrp_type = JRNP_ROOT_PAGE;
+		journal.jrnrp_id = idx->idx_id;
+		journal.jrnrp_page = new_window.win_page;
+		CCH_journal_record(tdbb, root_window, (UCHAR *) & journal,
+						   JRNRP_SIZE, 0, 0);
+	}
+
+	CCH_RELEASE(tdbb, root_window);
+}
+
+
+IDX_E BTR_key(TDBB tdbb,
+			  REL relation, REC record, register IDX * idx, KEY * key)
+{
+/**************************************
+ *
+ *	B T R _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute a key from an record and an index descriptor. 
+ *	Note that compound keys are expanded by 25%.  If this
+ *	changes, both BTR_key_length and GDEF exe.e have to
+ *	change.
+ *
+ **************************************/
+	KEY temp;
+	DSC desc, *desc_ptr;
+	SSHORT stuff_count;
+	USHORT n, l;
+	UCHAR *p, *q;
+	IDX_E result;
+	JMP_BUF env, *old_env;
+	idx::idx_repeat * tail;
+	int not_missing;
+
+	result = idx_e_ok;
+	tail = idx->idx_rpt;
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		key->key_length = 0;
+		return idx_e_conversion;
+	}
+#ifdef IGNORE_NULL_IDX_KEY
+/* Initialize KEY flags */ key->key_flags = 0;
+#endif /* IGNORE_NULL_IDX_KEY */
+
+/* Special case single segment indices */
+
+	if (idx->idx_count == 1) {
+#ifdef EXPRESSION_INDICES
+		/* for expression indices, compute the value of the expression */
+
+		if (idx->idx_expression) {
+			REQ current_request;
+			current_request = tdbb->tdbb_request;
+			tdbb->tdbb_request = idx->idx_expression_request;
+			tdbb->tdbb_request->req_rpb[0].rpb_record = record;
+
+			if (!(desc_ptr = EVL_expr(tdbb, idx->idx_expression)))
+				desc_ptr = &idx->idx_expression_desc;
+
+			not_missing =
+				tdbb->tdbb_request->req_flags & req_null ? FALSE : TRUE;
+			tdbb->tdbb_request = current_request;
+		}
+		else
+#endif
+		{
+			desc_ptr = &desc;
+			/* In order to "map a null to a default" value (in EVL_field()), 
+			 * the relation block is referenced. 
+			 * Reference: Bug 10116, 10424 
+			 */
+			not_missing =
+				EVL_field(relation, record, tail->idx_field, desc_ptr);
+		}
+
+		if (!not_missing && (idx->idx_flags & idx_unique))
+			result = idx_e_nullunique;
+
+		compress(tdbb, desc_ptr, key, tail->idx_itype,
+				 (USHORT) ((not_missing) ? FALSE : TRUE),
+				 (USHORT) (idx->idx_flags & idx_descending), (USHORT) FALSE);
+#ifdef IGNORE_NULL_IDX_KEY
+		if (!not_missing) {
+			key->key_flags |= KEY_first_segment_is_null;
+		}
+#endif /* IGNORE_NULL_IDX_KEY */
+	}
+	else {
+		p = key->key_data;
+		stuff_count = 0;
+		for (n = 0; n < idx->idx_count; n++, tail++) {
+			for (; stuff_count; --stuff_count)
+				*p++ = 0;
+
+			desc_ptr = &desc;
+			/* In order to "map a null to a default" value (in EVL_field()), 
+			 * the relation block is referenced. 
+			 * Reference: Bug 10116, 10424 
+			 */
+			not_missing =
+				EVL_field(relation, record, tail->idx_field, desc_ptr);
+			if (!not_missing && (idx->idx_flags & idx_unique))
+				result = idx_e_nullunique;
+
+			compress(tdbb, desc_ptr, &temp, tail->idx_itype,
+					 (USHORT) ((not_missing) ? FALSE : TRUE),
+					 (USHORT) (idx->idx_flags & idx_descending),
+					 (USHORT) FALSE);
+#ifdef IGNORE_NULL_IDX_KEY
+			if (n == 0 && !not_missing) {
+				key->key_flags |= KEY_first_segment_is_null;
+			}
+#endif /* IGNORE_NULL_IDX_KEY */
+
+			for (q = temp.key_data, l = temp.key_length; l;
+				 --l, --stuff_count) {
+				if (stuff_count == 0) {
+					*p++ = idx->idx_count - n;
+					stuff_count = STUFF_COUNT;
+				}
+				*p++ = *q++;
+			}
+		}
+		key->key_length = p - key->key_data;
+	}
+
+	if (key->key_length >= MAX_KEY)
+		result = idx_e_keytoobig;
+
+	if (idx->idx_flags & idx_descending)
+		complement_key(key);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	return result;
+}
+
+
+USHORT BTR_key_length(REL relation, IDX * idx)
+{
+/**************************************
+ *
+ *	B T R _ k e y _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the maximum key length for an index.
+ *
+ **************************************/
+	FMT format;
+	USHORT n, key_length, length;
+	idx::idx_repeat * tail;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	format = MET_current(tdbb, relation);
+	tail = idx->idx_rpt;
+
+/* If there is only a single key, the computation is straightforward. */
+
+	if (idx->idx_count == 1) {
+		if (tail->idx_itype == idx_numeric ||
+			tail->idx_itype == idx_timestamp1) return sizeof(double);
+
+		if (tail->idx_itype == idx_sql_time)
+			return sizeof(ULONG);
+
+		if (tail->idx_itype == idx_sql_date)
+			return sizeof(SLONG);
+
+		if (tail->idx_itype == idx_timestamp2)
+			return sizeof(SINT64);
+
+		if (tail->idx_itype == idx_numeric2)
+			return INT64_KEY_LENGTH;
+
+#ifdef EXPRESSION_INDICES
+		if (idx->idx_expression) {
+			length = idx->idx_expression_desc.dsc_length;
+			if (idx->idx_expression_desc.dsc_dtype == dtype_varying)
+				length = length - sizeof(SSHORT);
+		}
+		else
+#endif
+		{
+			length = format->fmt_desc[tail->idx_field].dsc_length;
+			if (format->fmt_desc[tail->idx_field].dsc_dtype == dtype_varying)
+				length = length - sizeof(SSHORT);
+		}
+
+		if (tail->idx_itype >= idx_first_intl_string)
+			return INTL_key_length(tdbb, tail->idx_itype, length);
+		else
+			return length;
+	}
+
+/* Compute length of key for segmented indices. */
+
+	key_length = 0;
+
+	for (n = 0; n < idx->idx_count; n++, tail++) {
+		if (tail->idx_itype == idx_numeric ||
+			tail->idx_itype == idx_timestamp1) length = sizeof(double);
+		else if (tail->idx_itype == idx_sql_time)
+			length = sizeof(ULONG);
+		else if (tail->idx_itype == idx_sql_date)
+			length = sizeof(ULONG);
+		else if (tail->idx_itype == idx_timestamp2)
+			length = sizeof(SINT64);
+		else if (tail->idx_itype == idx_numeric2)
+			length = INT64_KEY_LENGTH;
+		else {
+			length = format->fmt_desc[tail->idx_field].dsc_length;
+			if (format->fmt_desc[tail->idx_field].dsc_dtype == dtype_varying)
+				length -= sizeof(SSHORT);
+			if (tail->idx_itype >= idx_first_intl_string)
+				length = INTL_key_length(tdbb, tail->idx_itype, length);
+		}
+		key_length +=
+			((length + STUFF_COUNT - 1) / STUFF_COUNT) * (STUFF_COUNT + 1);
+	}
+
+	return key_length;
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+BTN BTR_last_node(BTR page, EXP expanded_page, BTX * expanded_node)
+{
+/**************************************
+ *
+ *	B T R _ l a s t _ n o d e
+ *
+ **************************************
+ *
+ * Functional description                               
+ *	Find the last node on a page.  Used when walking
+ *	down the right side of an index tree.  
+ *
+ **************************************/
+	register BTN node, prior;
+	SLONG number;
+	BTX enode;
+
+/* the last expanded node is always at the end of the page 
+   minus the size of a BTX, since there is always an extra
+   BTX node with zero-length tail at the end of the page */
+
+
+
+	enode =
+		(BTX) ((UCHAR *) expanded_page + expanded_page->exp_length -
+			   BTX_SIZE);
+	node = (BTN) ((UCHAR *) page + page->btr_length);
+
+/* starting at the end of the page, find the
+   first node that is not an end marker */
+
+	while (TRUE) {
+		node = BTR_previous_node(node, &enode);
+
+		number = BTR_get_quad(BTN_NUMBER(node));
+#ifdef IGNORE_NULL_IDX_KEY
+		if (number != END_NON_NULL && number != END_BUCKET
+			&& number != END_LEVEL)
+#else
+		if (number != END_BUCKET && number != END_LEVEL)
+#endif /* IGNORE_NULL_IDX_KEY */
+		{
+			if (expanded_node)
+				*expanded_node = enode;
+			return node;
+		}
+	}
+}
+#endif
+#ifdef SCROLLABLE_CURSORS
+BTR BTR_left_handoff(TDBB tdbb, WIN * window, BTR page, SSHORT lock_level)
+{
+/**************************************
+ *
+ *	B T R _ l e f t _ h a n d o f f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handoff a btree page to the left.  This is more difficult than a 
+ *	right handoff because we have to traverse pages without handing 
+ *	off locks.  (A lock handoff to the left while someone was handing
+ *	off to the right could result in deadlock.)
+ *
+ **************************************/
+	SLONG original_page, sibling, left_sibling;
+	WIN fix_win;
+	BTR fix_page;
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	original_page = window->win_page;
+	left_sibling = page->btr_left_sibling;
+
+	CCH_RELEASE(tdbb, window);
+	window->win_page = left_sibling;
+	page = (BTR) CCH_FETCH(tdbb, window, lock_level, pag_index);
+
+	if ((sibling = page->btr_sibling) == original_page)
+		return page;
+
+/* Since we are not handing off pages, a page could split before we get to it.
+ * To detect this case, fetch the left sibling pointer and then handoff right
+ * sibling pointers until we reach the page to the left of the page passed 
+ * to us. 
+ */
+
+	while (sibling != original_page) {
+		page =
+			(BTR) CCH_HANDOFF(tdbb, window, page->btr_sibling,
+							  lock_level, pag_index);
+		sibling = page->btr_sibling;
+	}
+	fix_win.win_page = original_page;
+	fix_win.win_flags = 0;
+	fix_page = (BTR) CCH_FETCH(tdbb, &fix_win, LCK_write, pag_index);
+
+/* if someone else already fixed it, just return */
+
+	if (fix_page->btr_left_sibling == window->win_page) {
+		CCH_RELEASE(tdbb, &fix_win);
+		return page;
+	}
+
+	CCH_MARK(tdbb, &fix_win);
+	fix_page->btr_left_sibling = window->win_page;
+
+	if (dbb->dbb_journal)
+		CCH_journal_page(tdbb, &fix_win);
+
+	CCH_RELEASE(tdbb, &fix_win);
+
+	return page;
+}
+#endif
+
+
+USHORT BTR_lookup(TDBB tdbb, REL relation, USHORT id, register IDX * buffer)
+{
+/**************************************
+ *
+ *	B T R _ l o o k u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a description of the specified index.
+ *
+ **************************************/
+	WIN window;
+	IRT root;
+
+	SET_TDBB(tdbb);
+	window.win_flags = 0;
+
+	if (!(root = fetch_root(tdbb, &window, relation)))
+		return FAILURE;
+
+	if ((id >= root->irt_count)
+		|| !BTR_description(relation, root, buffer, id)) {
+		CCH_RELEASE(tdbb, &window);
+		return FAILURE;
+	}
+	CCH_RELEASE(tdbb, &window);
+	return SUCCESS;
+}
+
+
+void BTR_make_key(TDBB tdbb,
+				  USHORT count,
+				  NOD * exprs, IDX * idx, KEY * key, USHORT fuzzy)
+{
+/**************************************
+ *
+ *	B T R _ m a k e _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Construct a (possibly) compound search key given a key count,
+ *	a vector of value expressions, and a place to put the key.
+ *
+ **************************************/
+	DSC *desc, temp_desc;
+	SSHORT stuff_count;
+	USHORT n, l;
+	UCHAR *p, *q;
+	KEY temp;
+	int missing;
+	idx::idx_repeat * tail;
+
+	SET_TDBB(tdbb);
+	assert(count > 0);
+	assert(idx != NULL);
+	assert(exprs != NULL);
+	assert(key != NULL);
+
+	tail = idx->idx_rpt;
+
+#ifdef IGNORE_NULL_IDX_KEY
+/* Initialize KEY flags */
+	key->key_flags = 0;
+#endif /* IGNORE_NULL_IDX_KEY */
+
+/* If the index is a single segment index, don't sweat the compound
+   stuff. */
+
+	if (idx->idx_count == 1) {
+		desc = eval(tdbb, *exprs, &temp_desc, &missing);
+		compress(tdbb, desc, key, tail->idx_itype, (USHORT) missing,
+				 (USHORT) (idx->idx_flags & idx_descending), fuzzy);
+#ifdef IGNORE_NULL_IDX_KEY
+		if (missing) {
+			key->key_flags |= KEY_first_segment_is_null;
+		}
+#endif /* IGNORE_NULL_IDX_KEY */
+	}
+	else {
+		/* Make a compound key */
+
+		p = key->key_data;
+		stuff_count = 0;
+
+		for (n = 0; n < count; n++, tail++) {
+			for (; stuff_count; --stuff_count)
+				*p++ = 0;
+			desc = eval(tdbb, *exprs++, &temp_desc, &missing);
+			compress(tdbb, desc, &temp, tail->idx_itype,
+					 (USHORT) missing,
+					 (USHORT) (idx->idx_flags & idx_descending),
+					 (USHORT) ((n == count - 1) ? fuzzy : FALSE));
+#ifdef IGNORE_NULL_IDX_KEY
+			if (n == 0 && missing) {
+				key->key_flags |= KEY_first_segment_is_null;
+			}
+#endif /* IGNORE_NULL_IDX_KEY */
+			for (q = temp.key_data, l = temp.key_length; l;
+				 --l, --stuff_count) {
+				if (stuff_count == 0) {
+					*p++ = idx->idx_count - n;
+					stuff_count = STUFF_COUNT;
+				}
+				*p++ = *q++;
+			}
+		}
+		key->key_length = p - key->key_data;
+	}
+
+	if (idx->idx_flags & idx_descending)
+		complement_key(key);
+}
+
+
+BOOLEAN BTR_next_index(TDBB tdbb,
+					   REL relation, TRA transaction, IDX * idx, WIN * window)
+{
+/**************************************
+ *
+ *	B T R _ n e x t _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get next index for relation.
+ *
+ **************************************/
+	IRT root;
+	SSHORT id;
+	SLONG trans;
+	int trans_state;
+	irt::irt_repeat * irt_desc;
+
+	SET_TDBB(tdbb);
+
+	if ((UCHAR) idx->idx_id == (UCHAR) - 1) {
+		id = 0;
+		window->win_bdb = NULL;
+	}
+	else
+		id = idx->idx_id + 1;
+
+	if (window->win_bdb)
+		root = (IRT) window->win_buffer;
+	else if (!(root = fetch_root(tdbb, window, relation)))
+		return 0;
+
+	for (; id < root->irt_count; ++id) {
+		irt_desc = root->irt_rpt + id;
+		if (!irt_desc->irt_root &&
+			(irt_desc->irt_flags & irt_in_progress) && transaction) {
+			trans = irt_desc->irt_stuff.irt_transaction;
+			CCH_RELEASE(tdbb, window);
+			trans_state = TRA_wait(tdbb, transaction, trans, TRUE);
+			if ((trans_state == tra_dead)
+				|| (trans_state == tra_committed)) {
+				/* clean up this left-over index */
+				root = (IRT) CCH_FETCH(tdbb, window, LCK_write, pag_root);
+				irt_desc = root->irt_rpt + id;
+				if (!irt_desc->irt_root &&
+					irt_desc->irt_stuff.irt_transaction == trans &&
+					(irt_desc->irt_flags & irt_in_progress))
+					BTR_delete_index(tdbb, window, id);
+				else
+					CCH_RELEASE(tdbb, window);
+				root = (IRT) CCH_FETCH(tdbb, window, LCK_read, pag_root);
+				continue;
+			}
+			else
+				root = (IRT) CCH_FETCH(tdbb, window, LCK_read, pag_root);
+		}
+		if (BTR_description(relation, root, idx, id))
+			return TRUE;
+	}
+
+	CCH_RELEASE(tdbb, window);
+
+	return FALSE;
+}
+
+
+BTN BTR_next_node(BTN node, BTX * expanded_node)
+{
+/**************************************
+ *
+ *	B T R _ n e x t _ n o d e
+ *
+ **************************************
+ *
+ * Functional description                               
+ *	Find the next node on both the index page
+ *	and its associated expanded buffer.
+ *
+ **************************************/
+
+	if (*expanded_node)
+		*expanded_node = NEXT_EXPANDED((*expanded_node), node);
+
+	return NEXT_NODE(node);
+}
+
+BTN BTR_previous_node(BTN node, BTX * expanded_node)
+{
+/**************************************
+ *
+ *	B T R _ p r e v i o u s _ n o d e
+ *
+ **************************************
+ *
+ * Functional description                               
+ *	Find the previous node on a page.  Used when walking
+ *	an index backwards.  
+ *
+ **************************************/
+
+	node =
+		(BTN) ((UCHAR *) node -
+			   (*expanded_node)->btx_btr_previous_length - BTN_SIZE);
+	*expanded_node =
+		(BTX) ((UCHAR *) * expanded_node -
+			   (*expanded_node)->btx_previous_length - BTX_SIZE);
+
+	return node;
+}
+void BTR_remove(TDBB tdbb, WIN * root_window, register IIB * insertion)
+{
+/**************************************
+ *
+ *	B T R _ r e m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove an index node from a b-tree.  
+ *	If the node doesn't exist, don't get overly excited.
+ *
+ **************************************/
+	DBB dbb;
+	IDX *idx;
+	WIN window;
+	BTR page;
+	BTN node;
+	SLONG number;
+	CONTENTS result;
+	UCHAR level;
+	IRT root;
+	JRNRP journal;
+
+	DEBUG;
+	dbb = tdbb->tdbb_database;
+	idx = insertion->iib_descriptor;
+	window.win_page = idx->idx_root;
+	window.win_flags = 0;
+	page = (BTR) CCH_FETCH(tdbb, &window, LCK_read, pag_index);
+
+/* If the page is level 0, re-fetch it for write */
+
+	level = page->btr_level;
+	if (level == 0) {
+		CCH_RELEASE(tdbb, &window);
+		CCH_FETCH(tdbb, &window, LCK_write, pag_index);
+	}
+/* remove the node from the index tree via recursive descent */
+	result = remove_node(tdbb, insertion, &window);
+
+/* if the root page points at only one lower page, remove this 
+   level to prevent the tree from being deeper than necessary-- 
+   do this only if the level is greater than 1 to prevent 
+   excessive thrashing in the case where a small table is 
+   constantly being loaded and deleted */
+
+	if ((result == contents_single) && (level > 1)) {
+		/* we must first release the windows to obtain the root for write 
+		   without getting deadlocked */
+
+		CCH_RELEASE(tdbb, &window);
+		CCH_RELEASE(tdbb, root_window);
+
+		root = (IRT) CCH_FETCH(tdbb, root_window, LCK_write, pag_root);
+		page = (BTR) CCH_FETCH(tdbb, &window, LCK_write, pag_index);
+
+		/* get the page number of the child, and check to make sure 
+		   the page still has only one node on it */
+
+		node = page->btr_nodes;
+		number = BTR_get_quad(BTN_NUMBER(node));
+		node = NEXT_NODE(node);
+		if (BTR_get_quad(BTN_NUMBER(node)) >= 0) {
+			CCH_RELEASE(tdbb, &window);
+			CCH_RELEASE(tdbb, root_window);
+			return;
+		}
+
+		CCH_MARK(tdbb, root_window);
+		root->irt_rpt[idx->idx_id].irt_root = number;
+
+		/* journal root page change */
+
+		if (dbb->dbb_wal) {
+			journal.jrnrp_type = JRNP_ROOT_PAGE;
+			journal.jrnrp_id = idx->idx_id;
+			journal.jrnrp_page = number;
+			CCH_journal_record(tdbb, root_window, (UCHAR *) & journal,
+							   JRNRP_SIZE, 0, 0);
+		}
+
+		/* release the pages, and place the page formerly at the top level 
+		   on the free list, making sure the root page is written out first 
+		   so that we're not pointing to a released page */
+
+		CCH_RELEASE(tdbb, root_window);
+		CCH_RELEASE(tdbb, &window);
+		PAG_release_page(window.win_page, root_window->win_page);
+	}
+
+	if (window.win_bdb)
+		CCH_RELEASE(tdbb, &window);
+	if (root_window->win_bdb)
+		CCH_RELEASE(tdbb, root_window);
+}
+
+
+void BTR_reserve_slot(TDBB tdbb, REL relation, TRA transaction, IDX * idx)
+{
+/**************************************
+ *
+ *	B T R _ r e s e r v e _ s l o t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reserve a slot on an index root page 
+ *	in preparation to index creation.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	register IRT root;
+	register IRTD *desc;
+	USHORT l, space;
+	irt::irt_repeat * root_idx, *end, *slot;
+	BOOLEAN maybe_no_room = FALSE;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* Get root page, assign an index id, and store the index descriptor.
+   Leave the root pointer null for the time being.  */
+
+	window.win_page = relation->rel_index_root;
+	window.win_flags = 0;
+	root = (IRT) CCH_FETCH(tdbb, &window, LCK_write, pag_root);
+	CCH_MARK(tdbb, &window);
+
+/* check that we don't create an infinite number of indexes */
+
+	if (root->irt_count > MAX_IDX) {
+		CCH_RELEASE(tdbb, &window);
+		ERR_post(gds__no_meta_update, gds_arg_gds, gds__max_idx,
+				 gds_arg_number, (SLONG) MAX_IDX, 0);
+	}
+/* Scan the index page looking for the high water mark of the descriptions and,
+         perhaps, an empty index slot */ retry:
+	l = idx->idx_count * sizeof(IRTD);
+	space = dbb->dbb_page_size;
+	slot = NULL;
+
+	for (root_idx = root->irt_rpt, end = root_idx + root->irt_count;
+		 root_idx < end; root_idx++) {
+		if (root_idx->irt_root || (root_idx->irt_flags & irt_in_progress))
+			space = MIN(space, root_idx->irt_desc);
+		if (!root_idx->irt_root && !slot
+			&& !(root_idx->irt_flags & irt_in_progress)) slot = root_idx;
+	}
+
+	space -= l;
+	desc = (IRTD *) ((UCHAR *) root + space);
+
+/* Verify that there is enough room on the Index root page. */
+
+	if (desc < (IRTD *) (end + 1)) {
+		/* Not enough room:  Attempt to compress the index root page and try again.
+		   If this is the second try already, then there really is no more room. */
+		if (maybe_no_room) {
+			CCH_RELEASE(tdbb, &window);
+			ERR_post(gds__no_meta_update, gds_arg_gds,
+					 gds__index_root_page_full, 0);
+		}
+		compress_root(tdbb, root);
+		maybe_no_room = TRUE;
+		goto retry;
+	}
+
+/* If we didn't pick up an empty slot, allocate a new one */
+
+	if (!slot) {
+		slot = end;
+		root->irt_count++;
+	}
+
+	idx->idx_id = slot - root->irt_rpt;
+	slot->irt_desc = space;
+	assert(idx->idx_count <= MAX_UCHAR);
+	slot->irt_keys = (UCHAR) idx->idx_count;
+	slot->irt_flags = idx->idx_flags | irt_in_progress;
+
+	if (transaction)
+		slot->irt_stuff.irt_transaction = transaction->tra_number;
+
+	slot->irt_root = 0;
+	MOVE_FASTER(idx->idx_rpt, desc, l);
+
+	if (dbb->dbb_wal)
+		CCH_journal_page(tdbb, &window);
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+float BTR_selectivity(TDBB tdbb, REL relation, USHORT id)
+{
+/**************************************
+ *
+ *	B T R _ s e l e c t i v i t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update index selectivity on the fly.
+ *	Note that index leaf pages are walked
+ *	without visiting data pages. Thus the
+ *	effects of uncommitted transactions
+ *	will be included in the calculation.
+ *
+ **************************************/
+	BTR bucket;
+	IRT root;
+	BTN node;
+	SSHORT l, dup;
+	UCHAR *p, *q;
+	SLONG page, nodes, duplicates;
+	KEY key;
+	WIN window;
+	float selectivity;
+
+	SET_TDBB(tdbb);
+	window.win_flags = 0;
+
+	if (!(root = fetch_root(tdbb, &window, relation)))
+		return 0.0;
+
+	if (root->irt_count <= id || !(page = root->irt_rpt[id].irt_root)) {
+		CCH_RELEASE(tdbb, &window);
+		return 0.0;
+	}
+	window.win_flags = WIN_large_scan;
+	window.win_scans = 1;
+	bucket = (BTR) CCH_HANDOFF(tdbb, &window, page, LCK_read, pag_index);
+
+/* go down the left side of the index to leaf level */
+
+	while (bucket->btr_level) {
+		node = bucket->btr_nodes;
+		page = BTR_get_quad(BTN_NUMBER(node));
+		bucket = (BTR) CCH_HANDOFF(tdbb, &window, page, LCK_read, pag_index);
+	}
+
+	duplicates = nodes = 0;
+	key.key_length = 0;
+
+/* go through all the leaf nodes and count them; 
+   also count how many of them are duplicates */
+
+	while (page) {
+		for (node = bucket->btr_nodes;; node = NEXT_NODE(node)) {
+			page = BTR_get_quad(BTN_NUMBER(node));
+#ifdef IGNORE_NULL_IDX_KEY
+			if (page == END_BUCKET || page == END_LEVEL)
+				break;
+			if (page == END_NON_NULL) {
+				/* reset saved key. New comparisons to start for keys
+				 * with initial segment NULL
+				 */
+				key.key_length = 0;
+				continue;
+			}
+#else
+			if (page < 0)
+				break;
+#endif /* IGNORE_NULL_IDX_KEY */
+			++nodes;
+			l = node->btn_length + node->btn_prefix;
+
+			/* figure out if this is a duplicate */
+
+			if (node == bucket->btr_nodes)
+				dup = key_equality(&key, node);
+			else
+				dup = !node->btn_length && l == key.key_length;
+			if (dup)
+				++duplicates;
+
+			/* keep the key value current for comparison with the next key */
+
+			key.key_length = l;
+			if (l = node->btn_length) {
+				p = key.key_data + node->btn_prefix;
+				q = node->btn_data;
+				do
+					*p++ = *q++;
+				while (--l);
+			}
+		}
+
+		if (page == END_LEVEL || !(page = bucket->btr_sibling))
+			break;
+		bucket =
+			(BTR) CCH_HANDOFF_TAIL(tdbb, &window, page, LCK_read, pag_index);
+	}
+
+	CCH_RELEASE_TAIL(tdbb, &window);
+
+/* calculate the selectivity and store it on the root page */
+
+	selectivity =
+		(float) ((nodes) ? 1.0 / (float) (nodes - duplicates) : 0.0);
+	window.win_page = relation->rel_index_root;
+	window.win_flags = 0;
+	root = (IRT) CCH_FETCH(tdbb, &window, LCK_write, pag_root);
+	CCH_MARK(tdbb, &window);
+	root->irt_rpt[id].irt_stuff.irt_selectivity = selectivity;
+	CCH_RELEASE(tdbb, &window);
+
+	return selectivity;
+}
+
+
+static SLONG add_node(TDBB tdbb,
+					  register WIN * window,
+					  IIB * insertion,
+					  KEY * new_key,
+					  SLONG * original_page, SLONG * sibling_page)
+{
+/**************************************
+ *
+ *	a d d _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a node in an index.  This recurses to the leaf level.
+ *	If a split occurs, return the new index page number and its
+ *	leading string.
+ *
+ **************************************/
+	register BTR bucket;
+	register BTN node;
+	IIB propogate;
+	SLONG split, page, index;
+	SLONG original_page2, sibling_page2;
+
+	DEBUG;
+	bucket = (BTR) window->win_buffer;
+
+/* For leaf level guys, loop thru the leaf buckets until insertion
+   point is found (should be instant) */
+
+	if (bucket->btr_level == 0)
+		while (TRUE)
+			if (
+				(split =
+				 insert_node(tdbb, window, insertion, new_key,
+							 original_page, sibling_page)) >= 0)
+				return split;
+			else
+
+
+				bucket =
+					(BTR) CCH_HANDOFF(tdbb, window,
+									  bucket->btr_sibling, LCK_write,
+									  pag_index);
+
+/* If we're above the leaf level, find the appropriate node in the chain of sibling pages.
+   Hold on to this position while we recurse down to the next level, in case there's a 
+   split at the lower level, in which case we need to insert the new page at this level. */
+
+#ifdef IGNORE_NULL_IDX_KEY
+	assert(bucket->btr_level != 0);
+#endif /* IGNORE_NULL_IDX_KEY */
+	while (TRUE) {
+		node =
+			find_node(bucket, insertion->iib_key,
+					  (USHORT) (insertion->iib_descriptor->idx_flags &
+								idx_descending));
+		page = BTR_get_quad(BTN_NUMBER(node));
+#ifdef IGNORE_NULL_IDX_KEY
+		assert(page != END_NON_NULL);
+#endif /* IGNORE_NULL_IDX_KEY */
+		if (page != END_BUCKET)
+			break;
+		bucket =
+			(BTR) CCH_HANDOFF(tdbb, window, bucket->btr_sibling,
+							  LCK_read, pag_index);
+	}
+/* Fetch the page at the next level down.  If the next level is leaf level, 
+   fetch for write since we know we are going to write to the page (most likely). */
+	index = window->win_page;
+	CCH_HANDOFF(tdbb, window, page,
+				(SSHORT) ((bucket->btr_level == 1) ? LCK_write :
+						  LCK_read), pag_index);
+
+/* now recursively try to insert the node at the next level down */
+
+	split =
+		add_node(tdbb, window, insertion, new_key, &page,
+				 &propogate.iib_sibling);
+	if (split == 0)
+		return 0;
+
+/* The page at the lower level split, so we need to insert a pointer 
+   to the new page to the page at this level. */
+
+	window->win_page = index;
+	bucket = (BTR) CCH_FETCH(tdbb, window, LCK_write, pag_index);
+
+	propogate.iib_number = split;
+	propogate.iib_descriptor = insertion->iib_descriptor;
+	propogate.iib_relation = insertion->iib_relation;
+	propogate.iib_duplicates = NULL;
+	propogate.iib_key = new_key;
+
+/* now loop through the sibling pages trying to find the appropriate 
+   place to put the pointer to the lower level page--remember that the 
+   page we were on could have split while we weren't looking */
+
+	while (TRUE)
+		if (
+			(split =
+			 insert_node(tdbb, window, &propogate, new_key,
+						 &original_page2, &sibling_page2)) >= 0)
+			break;
+		else
+			bucket =
+				(BTR) CCH_HANDOFF(tdbb, window, bucket->btr_sibling,
+								  LCK_write, pag_index);
+
+/* the split page on the lower level has been propogated, so we can go back to 
+   the page it was split from, and mark it as garbage-collectable now */
+
+	window->win_page = page;
+	bucket = (BTR) CCH_FETCH(tdbb, window, LCK_write, pag_index);
+	CCH_MARK(tdbb, window);
+	bucket->btr_header.pag_flags &= ~btr_dont_gc;
+	CCH_RELEASE(tdbb, window);
+
+	if (original_page)
+		*original_page = original_page2;
+	if (sibling_page)
+		*sibling_page = sibling_page2;
+	return split;
+}
+
+
+static void complement_key(KEY * key)
+{
+/**************************************
+ *
+ *	c o m p l e m e n t _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Negate a key for descending index.
+ *
+ **************************************/
+	UCHAR *p, *end;
+
+	for (p = key->key_data, end = p + key->key_length; p < end; p++)
+		*p ^= -1;
+}
+
+static void compress(TDBB tdbb,
+					 DSC * desc,
+					 KEY * key,
+					 USHORT itype,
+					 USHORT missing, USHORT descending, USHORT fuzzy)
+{
+/**************************************
+ *
+ *	c o m p r e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compress a data value into an index key.
+ *
+ **************************************/
+	DBB dbb;
+	register UCHAR *q, *p;
+	register USHORT length;
+	UCHAR pad, *ptr, temp1[MAX_KEY];
+	union {
+		INT64_KEY temp_int64_key;
+		double temp_double;
+		ULONG temp_ulong;
+		SLONG temp_slong;
+		SINT64 temp_sint64;
+		UCHAR temp_char[sizeof(INT64_KEY)];
+	} temp;
+	USHORT temp_copy_length;
+	BOOLEAN temp_is_negative = FALSE;
+	BOOLEAN int64_key_op = FALSE;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	p = key->key_data;
+
+	if (missing && dbb->dbb_ods_version >= ODS_VERSION7) {
+		pad = 0;
+		if (!descending)
+			pad ^= -1;
+		if (itype == idx_numeric || itype == idx_timestamp1)
+			length = sizeof(double);
+		else if (itype == idx_sql_time)
+			length = sizeof(ULONG);
+		else if (itype == idx_sql_date)
+			length = sizeof(SLONG);
+		else if (itype == idx_timestamp2)
+			length = sizeof(SINT64);
+		else if (itype == idx_numeric2)
+			length = INT64_KEY_LENGTH;
+		else {
+			length = desc->dsc_length;
+			if (desc->dsc_dtype == dtype_varying)
+				length -= sizeof(SSHORT);
+			if (itype >= idx_first_intl_string)
+				length = INTL_key_length(tdbb, itype, length);
+		}
+		length =
+			(length > sizeof(key->key_data)) ? sizeof(key->key_data) : length;
+		while (length--)
+			*p++ = pad;
+		key->key_length = p - key->key_data;
+		return;
+	}
+
+
+	if (itype == idx_string ||
+		itype == idx_byte_array ||
+		itype == idx_metadata || itype >= idx_first_intl_string) {
+		pad = (itype == idx_string) ? ' ' : 0;
+
+		if (missing)
+			length = 0;
+		else if (itype >= idx_first_intl_string || itype == idx_metadata) {
+			DSC to;
+
+			/* convert to an international byte array */
+
+			to.dsc_dtype = dtype_text;
+			to.dsc_flags = 0;
+			to.dsc_sub_type = 0;
+			to.dsc_scale = 0;
+			to.dsc_ttype = ttype_sort_key;
+			to.dsc_length = sizeof(temp1);
+			ptr = to.dsc_address = temp1;
+			length = INTL_string_to_key(tdbb, itype, desc, &to, fuzzy);
+		}
+		else {
+			USHORT ttype;
+			length =
+				MOV_get_string_ptr(desc, &ttype, &ptr, (VARY *) temp1,
+								   MAX_KEY);
+		}
+
+		if (length) {
+			if (length > sizeof(key->key_data)) {
+				length = sizeof(key->key_data);
+			}
+			do {
+				*p++ = *ptr++;
+			} while (--length);
+		}
+		else
+			*p++ = pad;
+		while (p > key->key_data)
+			if (*--p != pad)
+				break;
+		key->key_length = p + 1 - key->key_data;
+
+		return;
+	}
+
+/* The index is numeric.  
+   For idx_numeric...
+       Convert the value to a double precision number, 
+       then zap it to compare in a byte-wise order. 
+   For idx_numeric2...
+       Convert the value to a INT64_KEY struct,
+       then zap it to compare in a byte-wise order. 
+ */
+
+	temp_copy_length = sizeof(double);
+	if (missing)
+		memset(&temp, 0, sizeof(temp));
+	if (itype == idx_timestamp1) {
+		temp.temp_double = MOV_date_to_double(desc);
+		temp_is_negative = (temp.temp_double < 0);
+#ifdef DEBUG_INDEXKEY
+		ib_fprintf(ib_stderr, "TIMESTAMP1 %lf ", temp.temp_double);
+#endif
+	}
+	else if (itype == idx_timestamp2) {
+		GDS_TIMESTAMP timestamp;
+		timestamp = MOV_get_timestamp(desc);
+#define SECONDS_PER_DAY	((ULONG) 24 * 60 * 60)
+		temp.temp_sint64 = ((SINT64) (timestamp.timestamp_date) *
+							(SINT64) (SECONDS_PER_DAY *
+									  ISC_TIME_SECONDS_PRECISION)) +
+			(SINT64) (timestamp.timestamp_time);
+		temp_copy_length = sizeof(SINT64);
+		temp_is_negative = (temp.temp_sint64 < 0);
+#ifdef DEBUG_INDEXKEY
+		ib_fprintf(ib_stderr, "TIMESTAMP2: %d:%u ",
+				   ((SLONG *) desc->dsc_address)[0],
+				   ((ULONG *) desc->dsc_address)[1]);
+		ib_fprintf(ib_stderr, "TIMESTAMP2: %20" QUADFORMAT "d ",
+				   temp.temp_sint64);
+#endif
+	}
+	else if (itype == idx_sql_date) {
+		temp.temp_slong = MOV_get_sql_date(desc);
+		temp_copy_length = sizeof(SLONG);
+		temp_is_negative = (temp.temp_slong < 0);
+#ifdef DEBUG_INDEXKEY
+		ib_fprintf(ib_stderr, "DATE %d ", temp.temp_slong);
+#endif
+	}
+	else if (itype == idx_sql_time) {
+		temp.temp_ulong = MOV_get_sql_time(desc);
+		temp_copy_length = sizeof(ULONG);
+		temp_is_negative = FALSE;
+#ifdef DEBUG_INDEXKEY
+		ib_fprintf(ib_stderr, "TIME %u ", temp.temp_ulong);
+#endif
+	}
+	else if (itype == idx_numeric2) {
+		int64_key_op = TRUE;
+		temp.temp_int64_key =
+			make_int64_key(MOV_get_int64(desc, desc->dsc_scale),
+						   desc->dsc_scale);
+		temp_copy_length = sizeof(temp.temp_int64_key.d_part);
+		temp_is_negative = (temp.temp_int64_key.d_part < 0);
+#ifdef DEBUG_INDEXKEY
+		print_int64_key(*(SINT64 *) desc->dsc_address,
+						desc->dsc_scale, temp.temp_int64_key);
+#endif
+	}
+	else if (desc->dsc_dtype == dtype_timestamp) {
+		/* This is the same as the pre v6 behavior.  Basically, the
+		   customer has created a NUMERIC index, and is probing into that
+		   index using a TIMESTAMP value.  
+		   eg:  WHERE anInteger = TIMESTAMP '1998-9-16' */
+		temp.temp_double = MOV_date_to_double(desc);
+		temp_is_negative = (temp.temp_double < 0);
+#ifdef DEBUG_INDEXKEY
+		ib_fprintf(ib_stderr, "TIMESTAMP1 special %lg ", temp.temp_double);
+#endif
+	}
+	else {
+		temp.temp_double = MOV_get_double(desc);
+		temp_is_negative = (temp.temp_double < 0);
+#ifdef DEBUG_INDEXKEY
+		ib_fprintf(ib_stderr, "NUMERIC %lg ", temp.temp_double);
+#endif
+	}
+
+#ifdef IEEE
+
+#ifdef VAX
+/* For little-endian machines, reverse the order of bytes for the key */
+/* Copy the first set of bytes into key_data */
+	for (q = temp.temp_char + temp_copy_length, length =
+		 temp_copy_length; length; --length)
+		*p++ = *--q;
+
+/* Copy the next 2 bytes into key_data, if key is of an int64 type */
+	if (int64_key_op == TRUE)
+		for (q = temp.temp_char + sizeof(double) + sizeof(SSHORT),
+			 length = sizeof(SSHORT); length; --length)
+			*p++ = *--q;
+#else
+/* For big-endian machines, copy the bytes as laid down */
+/* Copy the first set of bytes into key_data */
+	for (q = temp.temp_char, length = temp_copy_length; length; --length)
+		*p++ = *q++;
+
+/* Copy the next 2 bytes into key_data, if key is of an int64 type */
+	if (int64_key_op == TRUE)
+		for (q = temp.temp_char + sizeof(double),
+			 length = sizeof(SSHORT); length; --length)
+			*p++ = *q++;
+#endif /* VAX */
+
+
+#else /* IEEE */
+
+/*
+   The conversion from G_FLOAT to D_FLOAT made below was removed because
+   it prevented users from entering otherwise valid numbers into a field
+   which was in an index.   A D_FLOAT has the sign and 7 of 8 exponent
+   bits in the first byte and the remaining exponent bit plus the first
+   7 bits of the mantissa in the second byte.   For G_FLOATS, the sign
+   and 7 of 11 exponent bits go into the first byte, with the remaining
+   4 exponent bits going into the second byte, with the first 4 bits of
+   the mantissa.   Why this conversion was done is unknown, but it is
+   of limited utility, being useful for reducing the compressed field
+   length only for those values which have 0 for the last 6 bytes and
+   a nonzero value for the 5-7 bits of the mantissa.
+*/
+
+/****************************************************************
+#ifdef VMS
+temp.temp_double = MTH$CVT_G_D (&temp.temp_double);
+#endif
+ ****************************************************************/
+
+	*p++ = temp.temp_char[1];
+	*p++ = temp.temp_char[0];
+	*p++ = temp.temp_char[3];
+	*p++ = temp.temp_char[2];
+	*p++ = temp.temp_char[5];
+	*p++ = temp.temp_char[4];
+	*p++ = temp.temp_char[7];
+	*p++ = temp.temp_char[6];
+
+#error compile_time_failure:
+#error Code needs to be written in the non - IEEE floating point case
+#error to handle the following:
+#error 	a) idx_sql_date, idx_sql_time, idx_timestamp2 b) idx_numeric2
+#endif /* IEEE */
+/* Test the sign of the double precision number.  Just to be sure, don't
+   rely on the byte comparison being signed.  If the number is negative,
+   complement the whole thing.  Otherwise just zap the sign bit. */
+	if (temp_is_negative) {
+
+		((SSHORT *) key->key_data)[0] = -((SSHORT *) key->key_data)[0] - 1;
+		((SSHORT *) key->key_data)[1] = -((SSHORT *) key->key_data)[1] - 1;
+		((SSHORT *) key->key_data)[2] = -((SSHORT *) key->key_data)[2] - 1;
+		((SSHORT *) key->key_data)[3] = -((SSHORT *) key->key_data)[3] - 1;
+	}
+	else
+		key->key_data[0] ^= 1 << 7;
+
+/* Complement the s_part for an int64 key.
+ * If we just flip the sign bit, which is equivalent to adding 32768, the
+ * short part will unsigned-compare correctly.
+ */
+	if (int64_key_op == TRUE) {
+		key->key_data[8] ^= 1 << 7;
+	}
+
+/* Finally, chop off trailing binary zeros */
+
+	for (p = &key->key_data[(int64_key_op == FALSE) ?
+							temp_copy_length - 1 : INT64_KEY_LENGTH -
+							1]; p > key->key_data; --p) {
+		if (*p)
+			break;
+	}
+
+	key->key_length = p - key->key_data + 1;
+#ifdef DEBUG_INDEXKEY
+	{
+		USHORT i;
+		ib_fprintf(ib_stderr, "KEY: length: %d Bytes: ", key->key_length);
+		for (i = 0; i < key->key_length; i++)
+			ib_fprintf(ib_stderr, "%02x ", key->key_data[i]);
+		ib_fprintf(ib_stderr, "\n");
+	}
+#endif
+}
+
+
+static USHORT compress_root(TDBB tdbb, IRT page)
+{
+/**************************************
+ *
+ *	c o m p r e s s _ r o o t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compress an index root page.
+ *
+ **************************************/
+	DBB dbb;
+	UCHAR *temp, *p;
+	USHORT l;
+	irt::irt_repeat * root_idx, *end;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	temp = (UCHAR *) ALL_malloc((SLONG) dbb->dbb_page_size, ERR_jmp);
+	MOVE_FASTER(page, temp, dbb->dbb_page_size);
+	p = temp + dbb->dbb_page_size;
+
+	for (root_idx = page->irt_rpt, end = root_idx + page->irt_count;
+		 root_idx < end; root_idx++)
+		if (root_idx->irt_root) {
+			l = root_idx->irt_keys * sizeof(IRTD);
+			p -= l;
+			MOVE_FAST((SCHAR *) page + root_idx->irt_desc, p, l);
+			root_idx->irt_desc = p - temp;
+		}
+	l = p - temp;
+	ALL_free(reinterpret_cast < char *>(temp));
+
+	return l;
+}
+
+
+static USHORT compute_prefix(KEY * key, UCHAR * string, USHORT length)
+{
+/**************************************
+ *
+ *	c o m p u t e _ p r e f i x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute and return prefix common to two strings.
+ *
+ **************************************/
+	UCHAR *p;
+	USHORT l;
+
+	if (!(l = MIN(key->key_length, length)))
+		return 0;
+
+	p = key->key_data;
+
+	while (*p == *string) {
+		p++;
+		string++;
+		if (!--l)
+			break;
+	}
+	return p - key->key_data;
+}
+
+
+static void copy_key(KEY * in, KEY * out)
+{
+/**************************************
+ *
+ *	c o p y _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a key.
+ *
+ **************************************/
+	UCHAR *p, *q;
+	USHORT l;
+
+#ifdef IGNORE_NULL_IDX_KEY
+	out->key_flags = in->key_flags;
+#endif /* IGNORE_NULL_IDX_KEY */
+
+	if (l = out->key_length = in->key_length) {
+		p = out->key_data;
+		q = in->key_data;
+		do
+			*p++ = *q++;
+		while (--l);
+	}
+}
+static CONTENTS delete_node(TDBB tdbb, WIN * window, BTN node)
+{
+/**************************************
+ *
+ *	d e l e t e _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a node from a page and return whether it 
+ *	empty, if there is a single node on it, or if it 
+ * 	is above or below the threshold for garbage collection. 
+ *
+ **************************************/
+	DBB dbb;
+	BTN next;
+	BTR page;
+	USHORT l;
+	UCHAR *p, *q;
+	SLONG number;
+	SLONG node_offset;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	page = (BTR) window->win_buffer;
+	node_offset = (UCHAR *) node - (UCHAR *) page;
+
+	CCH_MARK(tdbb, window);
+
+/* move the rest of the page to the left to cover over this node */
+
+	next = (BTN) (BTN_DATA(node) + BTN_LENGTH(node));
+	QUAD_MOVE(BTN_NUMBER(next), BTN_NUMBER(node));
+
+	p = BTN_DATA(node);
+	q = BTN_DATA(next);
+	l = BTN_LENGTH(next);
+	if (BTN_PREFIX(node) < BTN_PREFIX(next)) {
+		BTN_LENGTH(node) =
+			BTN_LENGTH(next) + BTN_PREFIX(next) - BTN_PREFIX(node);
+		p += BTN_PREFIX(next) - BTN_PREFIX(node);
+	}
+	else {
+		page->btr_prefix_total -= BTN_PREFIX(node);
+		assert(l <= MAX_UCHAR);
+		BTN_LENGTH(node) = (UCHAR) l;
+		BTN_PREFIX(node) = BTN_PREFIX(next);
+	}
+
+	if (l)
+		do
+			*p++ = *q++;
+		while (--l);
+
+/* Compute length of rest of bucket and move it down. */
+
+	l = page->btr_length - (q - (UCHAR *) page);
+
+	if (l) {
+		/* Could be overlapping buffers. 
+		   Use MEMMOVE macro which is memmove() in most platforms, instead 
+		   of MOVE_FAST which is memcpy() in most platforms. 
+		   memmove() is guaranteed to work non-destructivly on overlapping buffers. 
+		 */
+		MEMMOVE(q, p, l);
+		p += l;
+		q += l;
+		l = 0;
+	}
+
+	page->btr_length = p - (UCHAR *) page;
+
+/* Journal b-tree page - logical log of delete */
+
+	if (dbb->dbb_wal) {
+		JRNB journal;
+		assert(node_offset <= MAX_USHORT);
+		journal.jrnb_type = JRNP_BTREE_DELETE;
+		journal.jrnb_prefix_total = page->btr_prefix_total;
+		journal.jrnb_offset = (USHORT) node_offset;
+		journal.jrnb_delta = BTN_PREFIX(node);	/* DEBUG ONLY */
+		journal.jrnb_length = page->btr_length;	/* DEBUG ONLY */
+		CCH_journal_record(tdbb, window, (UCHAR *) & journal,
+						   JRNB_SIZE, 0, 0);
+	}
+
+/* check to see if the page is now empty */
+
+#ifdef IGNORE_NULL_IDX_KEY
+/* do not use 'node' here. It is being passed back to the caller */
+	next = page->btr_nodes;
+	number = BTR_get_quad(BTN_NUMBER(next));
+	if (number == END_LEVEL || number == END_BUCKET)
+#else
+	node = page->btr_nodes;
+	number = BTR_get_quad(BTN_NUMBER(node));
+	if (number < 0)
+#endif /* IGNORE_NULL_IDX_KEY */
+		return contents_empty;
+
+/* check to see if there is just one node */
+
+#ifdef IGNORE_NULL_IDX_KEY
+	next = NEXT_NODE(next);
+	number = BTR_get_quad(BTN_NUMBER(next));
+	if (number == END_LEVEL || number == END_BUCKET)
+#else
+	node = NEXT_NODE(node);
+	number = BTR_get_quad(BTN_NUMBER(node));
+	if (number < 0)
+#endif /* IGNORE_NULL_IDX_KEY */
+		return contents_single;
+
+/* check to see if the size of the page is below the garbage collection threshold, 
+   meaning below the size at which it should be merged with its left sibling if possible */
+
+	if (page->btr_length < GARBAGE_COLLECTION_THRESHOLD)
+		return contents_below_threshold;
+
+	return contents_above_threshold;
+}
+
+
+static void delete_tree(TDBB tdbb,
+						USHORT rel_id, USHORT idx_id, SLONG next, SLONG prior)
+{
+/**************************************
+ *
+ *	d e l e t e _ t r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release index pages back to free list.
+ *
+ **************************************/
+	BTR page;
+	BTN node;
+	SLONG down;
+	WIN window;
+
+	SET_TDBB(tdbb);
+	window.win_flags = WIN_large_scan;
+	window.win_scans = 1;
+
+	down = next;
+
+/* Delete the index tree from the top down. */
+
+	while (next) {
+		window.win_page = next;
+		page = (BTR) CCH_FETCH(tdbb, &window, LCK_write, 0);
+
+		/* do a little defensive programming--if any of these conditions 
+		   are true we have a damaged pointer, so just stop deleting */
+
+		if (page->btr_header.pag_type != pag_index ||
+			page->btr_id != idx_id || page->btr_relation != rel_id) {
+			CCH_RELEASE(tdbb, &window);
+			return;
+		}
+		/* if we are at the beginning of a non-leaf level, position 
+		   "down" to the beginning of the next level down */
+		if (next == down)
+			if (page->btr_level) {
+				node = page->btr_nodes;
+				down = BTR_get_quad(BTN_NUMBER(node));
+			}
+			else
+				down = 0;
+
+		/* go through all the sibling pages on this level and release them */
+
+		next = page->btr_sibling;
+		CCH_RELEASE_TAIL(tdbb, &window);
+		PAG_release_page(window.win_page, prior);
+		prior = window.win_page;
+
+		/* if we are at end of level, go down to the next level */
+
+		if (!next)
+			next = down;
+	}
+}
+
+
+static DSC *eval(TDBB tdbb, NOD node, DSC * temp, int *missing)
+{
+/**************************************
+ *
+ *	e v a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Evaluate an expression returning a descriptor, and
+ *	a flag to indicate a null value.  
+ *
+ **************************************/
+	DSC *desc;
+
+	SET_TDBB(tdbb);
+
+	desc = EVL_expr(tdbb, node);
+	*missing = FALSE;
+
+	if (desc && !(tdbb->tdbb_request->req_flags & req_null))
+		return desc;
+	else
+		*missing = TRUE;
+
+	temp->dsc_dtype = dtype_text;
+	temp->dsc_flags = 0;
+	temp->dsc_sub_type = 0;
+	temp->dsc_scale = 0;
+	temp->dsc_length = 1;
+	temp->dsc_ttype = ttype_ascii;
+	temp->dsc_address = (UCHAR *) " ";
+
+	return temp;
+}
+static SLONG fast_load(TDBB tdbb,
+					   REL relation,
+					   IDX * idx,
+					   USHORT key_length, SCB sort_handle, float *selectivity)
+{
+/**************************************
+ *
+ *	f a s t _ l o a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do a fast load.  The indices have already been passed into sort, and
+ *	are ripe for the plucking.  This beast is complicated, but, I hope,
+ *	comprehendable.
+ *
+ **************************************/
+	DBB dbb;
+	ULONG count, duplicates, split_pages[MAX_LEVELS];
+	USHORT level, prefix, i, l, lp_fill_limit, pp_fill_limit;
+	BTR buckets[MAX_LEVELS], bucket, split;
+	BTN nodes[MAX_LEVELS], node, split_node, next_node;
+	WIN windows[MAX_LEVELS], *window, split_window;
+	KEY keys[MAX_LEVELS], *key, split_key, temp_key;
+	UCHAR *record, *p, *q;
+	ISR isr;
+	BOOLEAN error, duplicate;
+#ifdef IGNORE_NULL_IDX_KEY
+	BOOLEAN processed_first_null_idx_key = FALSE;
+	BOOLEAN first_null_idx_key = FALSE;
+#endif /* IGNORE_NULL_IDX_KEY */
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	count = duplicates = 0;
+	buckets[1] = NULL;
+#ifdef IGNORE_NULL_IDX_KEY
+/* Define fill limits. Pointer page does not have END_NON_NULL marker. Hence 1
+ * less BTN */
+	lp_fill_limit = dbb->dbb_page_size - SPECIAL_BTN_NUMBER_COUNT * BTN_SIZE;
+	pp_fill_limit = dbb->dbb_page_size - 2 * BTN_SIZE;
+#else
+	lp_fill_limit = pp_fill_limit = dbb->dbb_page_size - 2 * BTN_SIZE;
+#endif /* IGNORE_NULL_IDX_KEY */
+	keys[0].key_length = 0;
+
+/* Allocate and format the first leaf level bucket. */
+
+	bucket = buckets[0] = (BTR) DPM_allocate(tdbb, &windows[0]);
+	bucket->btr_header.pag_type = pag_index;
+	bucket->btr_relation = relation->rel_id;
+	bucket->btr_id = idx->idx_id;
+	bucket->btr_level = 0;
+	bucket->btr_length = OFFSETA(BTR, btr_nodes);
+	if (idx->idx_flags & idx_descending)
+		bucket->btr_header.pag_flags |= btr_descending;
+
+	nodes[0] = bucket->btr_nodes;
+	error = duplicate = FALSE;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	tdbb->tdbb_flags |= TDBB_no_cache_unwind;
+
+/* If there's an error during index construction, fall
+   thru to release the last index bucket at each level
+   of the index. This will prepare for a single attempt
+   to deallocate the index pages for reuse. */
+
+	if (SETJMP(env))
+		error = TRUE;
+
+	while (!error) {
+		/* Get the next record in sorted order. */
+
+		DEBUG;
+		SORT_get(tdbb->tdbb_status_vector, sort_handle,
+				 /* TMN: cast */ (ULONG **) & record
+#ifdef SCROLLABLE_CURSORS
+				 , RSE_get_forward
+#endif
+			);
+
+		if (!record)
+			break;
+		isr = (ISR) (record + key_length);
+		count++;
+
+		bucket = buckets[0];
+		node = nodes[0];
+		split_pages[0] = 0;
+		key = &keys[0];
+
+#ifdef IGNORE_NULL_IDX_KEY
+		/* Are we encountering the first index key to have 
+		   its first segment for a NULL value? */
+		if (SORTP_VAL_IS_NULL == *((SORTP *) record) &&
+			processed_first_null_idx_key == FALSE) {
+			processed_first_null_idx_key = TRUE;
+			first_null_idx_key = TRUE;
+		}
+		/* skip the first longword which contains the BOOLEAN used for sorting
+		 * NULLs higher than similar valid keys */
+		record += sizeof(SORTP);
+#endif /* IGNORE_NULL_IDX_KEY */
+
+		/* Compute the prefix as the length in common with the previous record's key. */
+
+#ifdef IGNORE_NULL_IDX_KEY
+		/* do not compute prefix between the last NON-NULL and the first NULL
+		 * nodes. Let them be independent of each other. This is because the
+		 * END_NON_NULL marker is in between the two.
+		 */
+		if (first_null_idx_key == TRUE)
+			prefix = 0;
+		else
+#endif /* IGNORE_NULL_IDX_KEY */
+			prefix = compute_prefix(key, record, isr->isr_key_length);
+
+		/* If the length of the new node will cause us to overflow the bucket, 
+		   form a new bucket. */
+
+		if (bucket->btr_length + isr->isr_key_length - prefix > lp_fill_limit) {
+			split = (BTR) DPM_allocate(tdbb, &split_window);
+			bucket->btr_sibling = split_window.win_page;
+			split->btr_left_sibling = windows[0].win_page;
+			split->btr_header.pag_type = pag_index;
+			split->btr_relation = bucket->btr_relation;
+			split->btr_level = bucket->btr_level;
+			split->btr_id = bucket->btr_id;
+			split->btr_header.pag_flags |=
+				(bucket->btr_header.pag_flags & btr_descending);
+
+			/* store the first node on the split page */
+
+			split_node = split->btr_nodes;
+			QUAD_MOVE(BTN_NUMBER(node), BTN_NUMBER(split_node));
+			BTN_PREFIX(split_node) = 0;
+			p = BTN_DATA(split_node);
+			q = key->key_data;
+			assert(key->key_length <= MAX_UCHAR)
+				if (l = BTN_LENGTH(split_node) = (UCHAR) key->key_length)
+				do
+					*p++ = *q++;
+				while (--l);
+
+			/* mark the end of the previous page */
+
+			quad_put((SLONG) END_BUCKET, BTN_NUMBER(node));
+
+			/* save the page number of the previous page and release it */
+
+			split_pages[0] = windows[0].win_page;
+			CCH_RELEASE(tdbb, &windows[0]);
+
+			/* set up the new page as the "current" page */
+
+			windows[0] = split_window;
+			node = split_node;
+			buckets[0] = bucket = split;
+
+			/* save the first key on page as the page to be propogated */
+
+			copy_key(key, &split_key);
+
+			DEBUG;
+		}
+
+		if (bucket->btr_length != OFFSETA(BTR, btr_nodes))
+			node = NEXT_NODE(node);
+
+#ifdef IGNORE_NULL_IDX_KEY
+		/* mark end of NON_NULL first segment, and update the length of the page */
+		if (first_null_idx_key == TRUE) {
+			first_null_idx_key = FALSE;
+			BTN_PREFIX(node) = 0;
+			BTN_LENGTH(node) = 0;
+			quad_put((SLONG) END_NON_NULL, BTN_NUMBER(node));
+			node = NEXT_NODE(node);
+			bucket->btr_length = (UCHAR *) (node) - (UCHAR *) bucket;
+			if (bucket->btr_length > dbb->dbb_page_size)
+				BUGCHECK(205);	/* msg 205 index bucket overfilled */
+		}
+#endif /* IGNORE_NULL_IDX_KEY */
+
+		/* Insert the new node in the now current bucket */
+
+		assert(prefix <= MAX_UCHAR);
+		BTN_PREFIX(node) = (UCHAR) prefix;
+		bucket->btr_prefix_total += prefix;
+		quad_put(isr->isr_record_number, BTN_NUMBER(node));
+		p = BTN_DATA(node);
+		q = record + prefix;
+		if (l = BTN_LENGTH(node) = isr->isr_key_length - prefix)
+			do
+				*p++ = *q++;
+			while (--l);
+
+		/* check if this is a duplicate node */
+
+		duplicate = (!BTN_LENGTH(node) && prefix == key->key_length);
+		if (duplicate)
+			++duplicates;
+
+		/* set this node as the current node, and update the length of the page */
+
+		nodes[0] = node;
+		next_node = NEXT_NODE(node);
+		bucket->btr_length = (UCHAR *) (next_node) - (UCHAR *) bucket;
+		if (bucket->btr_length > dbb->dbb_page_size)
+			BUGCHECK(205);		/* msg 205 index bucket overfilled */
+
+		/* Remember the last key inserted to compress the next one. */
+
+		p = key->key_data;
+		q = record;
+		if (l = key->key_length = isr->isr_key_length)
+			do
+				*p++ = *q++;
+			while (--l);
+
+		/* If there wasn't a split, we're done.  If there was, propogate the
+		   split upward */
+
+		for (level = 1; split_pages[level - 1]; level++) {
+			DEBUG;
+			/* initialize the current pointers for this level */
+			window = &windows[level];
+			key = &keys[level];
+			split_pages[level] = 0;
+			node = nodes[level];
+
+			/* If there isn't already a bucket at this level, make one. */
+
+			if (!(bucket = buckets[level])) {
+				buckets[level + 1] = NULL;
+				buckets[level] = bucket = (BTR) DPM_allocate(tdbb, window);
+				bucket->btr_header.pag_type = pag_index;
+				bucket->btr_relation = relation->rel_id;
+				bucket->btr_id = idx->idx_id;
+				assert(level <= MAX_UCHAR)
+					bucket->btr_level = (UCHAR) level;
+				if (idx->idx_flags & idx_descending)
+					bucket->btr_header.pag_flags |= btr_descending;
+				bucket->btr_length = OFFSETA(BTR, btr_nodes) + BTN_SIZE;
+
+				/* since this is the beginning of the level, we propogate the lower-level 
+				   page with a "degenerate" zero-length node indicating that this page holds 
+				   any key value less than the next node */
+
+				node = bucket->btr_nodes;
+				BTN_LENGTH(node) = BTN_PREFIX(node) = 0;
+				quad_put(split_pages[level - 1], BTN_NUMBER(node));
+				key->key_length = 0;
+			}
+
+			/* Compute the prefix in preparation of insertion */
+
+			prefix =
+				compute_prefix(key, split_key.key_data, split_key.key_length);
+
+			/* Remember the last key inserted to compress the next one. */
+
+			copy_key(&split_key, &temp_key);
+
+			/* See if the new node fits in the current bucket.  If not, split
+			   the bucket. */
+
+			if (bucket->btr_length + temp_key.key_length - prefix >
+				pp_fill_limit) {
+				split = (BTR) DPM_allocate(tdbb, &split_window);
+				bucket->btr_sibling = split_window.win_page;
+				split->btr_left_sibling = window->win_page;
+				split->btr_header.pag_type = pag_index;
+				split->btr_relation = bucket->btr_relation;
+				split->btr_level = bucket->btr_level;
+				split->btr_id = bucket->btr_id;
+				split->btr_header.pag_flags |=
+					(bucket->btr_header.pag_flags & btr_descending);
+				split_node = split->btr_nodes;
+
+				/* insert the new node in the new bucket */
+
+				QUAD_MOVE(BTN_NUMBER(node), BTN_NUMBER(split_node));
+				BTN_PREFIX(split_node) = 0;
+				p = BTN_DATA(split_node);
+				q = key->key_data;
+				assert(key->key_length <= MAX_UCHAR)
+					if (l = BTN_LENGTH(split_node) = (UCHAR) key->key_length)
+					do
+						MOVE_BYTE(q, p);
+					while (--l);
+
+				/* mark the end of the page; note that the end_bucket marker must 
+				   contain info about the first node on the next page */
+
+				quad_put((SLONG) END_BUCKET, BTN_NUMBER(node));
+
+				/* indicate to propogate the page we just split from */
+
+				split_pages[level] = window->win_page;
+				CCH_RELEASE(tdbb, window);
+
+				/* and make the new page the current page */
+
+				*window = split_window;
+				node = split_node;
+				buckets[level] = bucket = split;
+				copy_key(key, &split_key);
+
+				DEBUG;
+			}
+
+			/* Now propogate up the lower-level bucket by storing a "pointer" to it. */
+
+			node = NEXT_NODE(node);
+			assert(prefix <= MAX_UCHAR);
+			BTN_PREFIX(node) = (UCHAR) prefix;
+			bucket->btr_prefix_total += prefix;
+			quad_put(windows[level - 1].win_page, BTN_NUMBER(node));
+
+			/* Store the key associated with the page as the first unique key value 
+			   on the page. */
+
+			p = BTN_DATA(node);
+			q = temp_key.key_data + prefix;
+			if (l = BTN_LENGTH(node) = temp_key.key_length - prefix)
+				do
+					MOVE_BYTE(q, p);
+				while (--l);
+
+			/* Now restore the current key value and save this node as the current 
+			   node on this level; also calculate the new page length. */
+
+			copy_key(&temp_key, key);
+			nodes[level] = node;
+			next_node = NEXT_NODE(node);
+			bucket->btr_length = (UCHAR *) next_node - (UCHAR *) bucket;
+			if (bucket->btr_length > dbb->dbb_page_size)
+				BUGCHECK(205);	/* msg 205 index bucket overfilled */
+
+			DEBUG;
+		}
+
+#ifdef MULTI_THREAD
+		if (--tdbb->tdbb_quantum < 0 && !tdbb->tdbb_inhibit)
+			error = JRD_reschedule(tdbb, 0, FALSE);
+#endif
+	}
+
+/* To finish up, put an end of level marker on the last bucket 
+   of each level. */
+
+	DEBUG;
+	for (i = 0; (bucket = buckets[i]); i++) {
+		/* retain the top level window for returning to the calling routine */
+
+		window = &windows[i];
+
+#ifdef IGNORE_NULL_IDX_KEY
+		/* For level 0 (leaf pages), insert an END_NON_NULL marker before the 
+		   END_LEVEL marker, if we have not as yet processed any 
+		   first-segment NULL record. */
+
+		if (i == 0 && processed_first_null_idx_key == FALSE) {
+			processed_first_null_idx_key = TRUE;
+			/* There does not seem to be any END_BUCKET in the last page.
+			   * Naturally, the bucket is not full, right? */
+			/* Insert END_NON_NULL at that point */
+			node = LAST_NODE(bucket);
+			BTN_LENGTH(node) = BTN_PREFIX(node) = 0;
+			quad_put((SLONG) END_NON_NULL, BTN_NUMBER(node));
+			bucket->btr_length += BTN_SIZE;
+		}
+#endif /* IGNORE_NULL_IDX_KEY */
+
+		/* store the end of level marker */
+
+		node = LAST_NODE(bucket);
+		BTN_LENGTH(node) = BTN_PREFIX(node) = 0;
+		quad_put((SLONG) END_LEVEL, BTN_NUMBER(node));
+
+		/* and update the final page length */
+
+		bucket->btr_length += BTN_SIZE;
+		if (bucket->btr_length > dbb->dbb_page_size)
+			BUGCHECK(205);		/* msg 205 index bucket overfilled */
+
+		CCH_RELEASE(tdbb, &windows[i]);
+	}
+	DEBUG;
+	tdbb->tdbb_flags &= ~TDBB_no_cache_unwind;
+
+/* do some final housekeeping */
+
+	SORT_fini(sort_handle, tdbb->tdbb_attachment);
+
+/* If index flush fails, try to delete the index tree.
+   If the index delete fails, just go ahead and punt. */
+
+	if (SETJMP(env))
+		if (!error)
+			error = TRUE;
+		else {
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			ERR_punt();
+		}
+
+	if (error) {
+		delete_tree(tdbb, relation->rel_id, idx->idx_id, window->win_page, 0);
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		ERR_punt();
+	}
+
+	CCH_flush(tdbb, (USHORT) FLUSH_ALL, 0);
+	*selectivity = (float) ((count)
+							? (1. / (double) (count - duplicates))
+							: 0);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	return window->win_page;
+}
+
+
+static IRT fetch_root(TDBB tdbb, WIN * window, REL relation)
+{
+/**************************************
+ *
+ *	f e t c h _ r o o t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return descriptions of all indices for relation.  If there isn't
+ *	a known index root, assume we were called during optimization
+ *	and return no indices.
+ *
+ **************************************/
+	SET_TDBB(tdbb);
+
+	if ((window->win_page = relation->rel_index_root) == 0)
+		if (relation->rel_id == 0)
+			return NULL;
+		else {
+			DPM_scan_pages(tdbb);
+			window->win_page = relation->rel_index_root;
+		}
+	return (IRT) CCH_FETCH(tdbb, window, LCK_read, pag_root);
+}
+
+
+static BTN find_node(register BTR bucket, KEY * key, USHORT descending)
+{
+/**************************************
+ *
+ *	f i n d _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a node in an index level.  Return either the 
+ *	node equal to the key or the last node less than the key.
+ *	Note that this routine can be called only for non-leaf 
+ *	pages, because it assumes the first node on page is 
+ *	a degenerate, zero-length node.
+ *
+ **************************************/
+	register BTN node;
+	BTN prior;
+	UCHAR prefix, *key_end, *node_end;
+	register UCHAR *p, *q;
+	SLONG number;
+
+	DEBUG;
+#ifdef IGNORE_NULL_IDX_KEY
+	assert(bucket->btr_level != 0);
+#endif /* IGNORE_NULL_IDX_KEY */
+	node = bucket->btr_nodes;
+
+/* Compute common prefix of key and first node */
+
+/* TMN: Watch out, possibility for UCHAR overflow! */
+	prefix = (UCHAR) compute_prefix(key, BTN_DATA(node), BTN_LENGTH(node));
+	p = key->key_data + prefix;
+	key_end = key->key_data + key->key_length;
+	number = BTR_get_quad(BTN_NUMBER(node));
+
+	if (number == END_LEVEL)
+		BUGCHECK(206);			/* msg 206 exceeded index level */
+
+	if (key->key_length == 0)
+		return node;
+
+	while (TRUE) {
+		/* If this is the end of bucket, return node.  Somebody else can
+		   deal with this */
+
+		if (number == END_BUCKET)
+			return node;
+
+		prior = node;
+		node = NEXT_NODE(node);
+		number = BTR_get_quad(BTN_NUMBER(node));
+
+		/* If the page/record number is -1, the node is the last in the level
+		   and, by definition, is the target node.  Otherwise, if the
+		   prefix of the current node is less than the running prefix, its
+		   node must have a value greater than the key, which is the insertion
+		   point. */
+
+		if (number == END_LEVEL || BTN_PREFIX(node) < prefix)
+			return prior;
+
+		/* If the node prefix is greater than current prefix , it must be less 
+		   than the key, so we can skip it.  If it has zero length, then
+		   it is a duplicate, and can also be skipped. */
+
+		q = BTN_DATA(node);
+		node_end = q + BTN_LENGTH(node);
+		if (descending) {
+			if (BTN_PREFIX(node) == prefix) {
+				while (TRUE)
+					if (q == node_end || p == key_end)
+						return prior;
+					else if (*p > *q)
+						break;
+					else if (*p++ < *q++)
+						return prior;
+			}
+		}
+		else if (BTN_PREFIX(node) == prefix && BTN_LENGTH(node) > 0)
+			while (TRUE)
+				if (p == key_end)
+					return prior;
+				else if (q == node_end || *p > *q)
+					break;
+				else if (*p++ < *q++)
+					return prior;
+
+		prefix = p - key->key_data;
+	}
+/* NOTREACHED */
+	return NULL;				/* superfluous return to shut lint up */
+}
+
+
+static CONTENTS garbage_collect(TDBB tdbb, WIN * window, SLONG parent_number)
+{
+/**************************************
+ *
+ *	g a r b a g e _ c o l l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Garbage collect an index page.  This requires 
+ * 	care so that we don't step on other processes 
+ * 	that might be traversing the tree forwards, 
+ *	backwards, or top to bottom.  We must also 
+ *	keep in mind that someone might be adding a node 
+ *	at the same time we are deleting.  Therefore we 
+ *	must lock all the pages involved to prevent 
+ *	such operations while we are garbage collecting.
+ *
+ **************************************/
+	DBB dbb;
+	WIN parent_window, left_window, right_window;
+	BTR gc_page, parent_page, left_page, right_page = NULL;
+	BTN node, parent_node, last_node;
+	SLONG number, left_number;
+#ifdef BTR_DEBUG
+	SLONG previous_number;
+#endif
+	USHORT relation_number, l;
+	UCHAR index_id, index_level, prefix;
+	CONTENTS result = contents_above_threshold;
+	KEY last_key;
+	UCHAR *p, *q;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	gc_page = (BTR) window->win_buffer;
+
+/* check to see if the page was marked not to be garbage collected */
+
+	if (gc_page->btr_header.pag_flags & btr_dont_gc) {
+		CCH_RELEASE(tdbb, window);
+		return contents_above_threshold;
+	}
+/* record the left sibling now since this is the only way to 
+   get to it quickly; don't worry if it's not accurate now or 
+   is changed after we release the page, since we will fetch 
+   it in a fault-tolerant way anyway */
+	left_number = gc_page->btr_left_sibling;
+
+/* if the left sibling is blank, that indicates we are the leftmost page, 
+   so don't garbage-collect the page; do this for several reasons:
+   1.  The leftmost page needs a degenerate zero length node as its first node 
+       (for a non-leaf, non-top-level page).
+   2.  The parent page would need to be fixed up to have a degenerate node 
+       pointing to the right sibling. 
+   3.  If we remove all pages on the level, we would need to re-add it next 
+       time a record is inserted, so why constantly garbage-collect and re-create 
+       this page? */
+
+	if (!left_number) {
+		CCH_RELEASE(tdbb, window);
+		return contents_above_threshold;
+	}
+
+/* record some facts for later validation */
+
+	relation_number = gc_page->btr_relation;
+	index_id = gc_page->btr_id;
+	index_level = gc_page->btr_level;
+
+/* we must release the page we are attempting to garbage collect; 
+   this is necessary to avoid deadlocks when we fetch the parent page */
+
+	CCH_RELEASE(tdbb, window);
+
+/* fetch the parent page, but we have to be careful, because it could have 
+   been garbage-collected when we released it--make checks so that we know it 
+   is the parent page; there is a minute possibility that it could have been 
+   released and reused already as another page on this level, but if so, it 
+   won't really matter because we won't find the node on it */
+
+	parent_window.win_page = parent_number;
+	parent_window.win_flags = 0;
+	parent_page =
+		(BTR) CCH_FETCH(tdbb, &parent_window, LCK_write, pag_undefined);
+	if ((parent_page->btr_header.pag_type != pag_index)
+		|| (parent_page->btr_relation != relation_number)
+		|| (parent_page->btr_id != index_id)
+		|| (parent_page->btr_level != index_level + 1)) {
+		CCH_RELEASE(tdbb, &parent_window);
+		return contents_above_threshold;
+	}
+
+/* find the left sibling page by going one page to the left, 
+   but if it does not recognize us as its right sibling, keep 
+   going to the right until we find the page that is our real 
+   left sibling */
+
+	left_window.win_page = left_number;
+	left_window.win_flags = 0;
+	left_page = (BTR) CCH_FETCH(tdbb, &left_window, LCK_write, pag_index);
+	while (left_page->btr_sibling != window->win_page) {
+#ifdef BTR_DEBUG
+		CCH_RELEASE(tdbb, &parent_window);
+		CCH_RELEASE(tdbb, &left_window);
+		CORRUPT(204);			/* msg 204 index inconsistent */
+#endif
+		/* If someone garbage collects the index page before we can, it
+		   won't be found by traversing the right sibling chain. This means
+		   scanning index pages until the end-of-level bucket is hit. */
+
+		if (!left_page->btr_sibling) {
+			CCH_RELEASE(tdbb, &parent_window);
+			CCH_RELEASE(tdbb, &left_window);
+			return contents_above_threshold;
+		}
+		left_page =
+			(BTR) CCH_HANDOFF(tdbb,
+							  &left_window,
+							  left_page->btr_sibling, LCK_write, pag_index);
+	}
+
+/* now refetch the original page and make sure it is still 
+   below the threshold for garbage collection. */
+
+	gc_page = (BTR) CCH_FETCH(tdbb, window, LCK_write, pag_index);
+	if ((gc_page->btr_length >= GARBAGE_COLLECTION_THRESHOLD)
+		|| (gc_page->btr_header.pag_flags & btr_dont_gc)) {
+		CCH_RELEASE(tdbb, &parent_window);
+		CCH_RELEASE(tdbb, &left_window);
+		CCH_RELEASE(tdbb, window);
+		return contents_above_threshold;
+	}
+
+/* fetch the right sibling page */
+
+	if (right_window.win_page = gc_page->btr_sibling) {
+		right_window.win_flags = 0;
+		right_page =
+			(BTR) CCH_FETCH(tdbb, &right_window, LCK_write, pag_index);
+		if (right_page->btr_left_sibling != window->win_page) {
+			CCH_RELEASE(tdbb, &parent_window);
+			if (left_page)
+				CCH_RELEASE(tdbb, &left_window);
+			CCH_RELEASE(tdbb, window);
+			CCH_RELEASE(tdbb, &right_window);
+#ifdef BTR_DEBUG
+			CORRUPT(204);		/* msg 204 index inconsistent */
+#endif
+			return contents_above_threshold;
+		}
+	}
+
+/* Find the node on the parent's level--the parent page could 
+   have split while we didn't have it locked */
+
+#ifdef BTR_DEBUG
+	previous_number = 0;
+#endif
+	for (parent_node = parent_page->btr_nodes;;) {
+		number = BTR_get_quad(BTN_NUMBER(parent_node));
+
+		if (number == END_BUCKET) {
+			parent_page =
+				(BTR) CCH_HANDOFF(tdbb,
+								  &parent_window,
+								  parent_page->btr_sibling,
+								  LCK_write, pag_index);
+			parent_node = parent_page->btr_nodes;
+			continue;
+		}
+
+		if (number == window->win_page || number == END_LEVEL)
+			break;
+
+#ifdef BTR_DEBUG
+		previous_number = number;
+#endif
+		parent_node = NEXT_NODE(parent_node);
+	}
+
+/* we should always find the node, but just in case we don't, bow out gracefully */
+
+	if (number == END_LEVEL) {
+		CCH_RELEASE(tdbb, &left_window);
+		if (right_page)
+			CCH_RELEASE(tdbb, &right_window);
+		CCH_RELEASE(tdbb, &parent_window);
+		CCH_RELEASE(tdbb, window);
+#ifdef BTR_DEBUG
+		CORRUPT(204);			/* msg 204 index inconsistent */
+#endif
+		return contents_above_threshold;
+	}
+
+/* Fix for ARINC database corruption bug: in most cases we update the END_BUCKET 
+   marker of the left sibling page to contain the END_BUCKET of the garbage-collected 
+   page.  However, when this page is the first page on its parent, then the left 
+   sibling page is the last page on its parent.  That means if we update its END_BUCKET 
+   marker, its bucket of values will extend past that of its parent, causing trouble 
+   down the line.  
+   
+   So we never garbage-collect a page which is the first one on its parent.  This page 
+   will have to wait until the parent page gets collapsed with the page to its left, 
+   in which case this page itself will then be garbage-collectable.  Since there are 
+   no more keys on this page, it will not be garbage-collected itself.  When the page 
+   to the right falls below the threshold for garbage collection, it will be merged with 
+   this page. */
+
+	if (parent_node == parent_page->btr_nodes) {
+		CCH_RELEASE(tdbb, &left_window);
+		if (right_page)
+			CCH_RELEASE(tdbb, &right_window);
+		CCH_RELEASE(tdbb, &parent_window);
+		CCH_RELEASE(tdbb, window);
+		return contents_above_threshold;
+	}
+
+/* find the last node on the left sibling and save its key value */
+
+	p = last_key.key_data;
+#ifdef IGNORE_NULL_IDX_KEY
+	for (last_node =
+		 left_page->btr_nodes, number =
+		 BTR_get_quad(BTN_NUMBER(last_node)); (number != END_LEVEL)
+		 && (number != END_BUCKET);
+		 last_node =
+		 NEXT_NODE(last_node), number = BTR_get_quad(BTN_NUMBER(last_node))) {
+		if (number == END_NON_NULL) {
+			/* this will help in negotiating for enough space later 
+			   This will make key_length calculation = 0; */
+			p = last_key.key_data;
+			continue;
+		}
+		if (l = BTN_LENGTH(last_node)) {
+			p = last_key.key_data + BTN_PREFIX(last_node);
+			q = BTN_DATA(last_node);
+			do
+				*p++ = *q++;
+			while (--l);
+		}
+	}
+	assert(number != END_NON_NULL);
+#else
+	for (last_node = left_page->btr_nodes;
+		 number = BTR_get_quad(BTN_NUMBER(last_node))
+		 >= 0; last_node = NEXT_NODE(last_node))
+		if (l = BTN_LENGTH(last_node)) {
+			p = last_key.key_data + BTN_PREFIX(last_node);
+			q = BTN_DATA(last_node);
+			do
+				*p++ = *q++;
+			while (--l);
+		}
+#endif /* IGNORE_NULL_IDX_KEY */
+	last_key.key_length = p - last_key.key_data;
+
+/* see if there's enough space on the left page to move all the nodes to it
+   and leave some extra space for expansion (at least one key length) */
+
+	node = gc_page->btr_nodes;
+
+/* TMN: Watch out, possibility for UCHAR overflow! */
+	prefix =
+		(UCHAR) compute_prefix(&last_key, BTN_DATA(node), BTN_LENGTH(node));
+
+	if (left_page->btr_length +
+		gc_page->btr_length - prefix -
+		BTN_LENGTH(last_node) - BTN_SIZE -
+		((UCHAR *) gc_page->btr_nodes -
+		 (UCHAR *) gc_page) > dbb->dbb_page_size - MAX_KEY) {
+		CCH_RELEASE(tdbb, &parent_window);
+		CCH_RELEASE(tdbb, &left_window);
+		CCH_RELEASE(tdbb, window);
+		if (right_page)
+			CCH_RELEASE(tdbb, &right_window);
+		return contents_above_threshold;
+	}
+
+#ifdef BTR_DEBUG
+	{
+		SLONG next_number;
+		BTN next_parent_node;
+/* do a consistency check to be sure that the parent page has the proper 
+   nodes to the left and to the right--this assumes single-user, because 
+   it's possible that leaf pages in a duplicate chain could be out of 
+   order when two different processes split pages at the same time */
+
+		next_parent_node = NEXT_NODE(parent_node);
+		next_number = BTR_get_quad(BTN_NUMBER(next_parent_node));
+
+		if (
+			(left_page && previous_number
+			 && (previous_number !=
+				 left_window.win_page)) || (right_page && (next_number > 0)
+											&& (next_number !=
+												right_window.win_page))) {
+			CCH_RELEASE(tdbb, &parent_window);
+			CCH_RELEASE(tdbb, &left_window);
+			CCH_RELEASE(tdbb, window);
+			if (right_page)
+				CCH_RELEASE(tdbb, &right_window);
+			CORRUPT(204);		/* msg 204 index inconsistent */
+			return contents_above_threshold;
+		}
+	}
+#endif
+
+/* Now begin updating the pages.  We must write them out in such 
+   a way as to maintain on-disk integrity at all times.  That means 
+   not having pointers to released pages, and not leaving things in 
+   an inconsistent state for navigation through the pages. */
+
+/* Update the parent first.  If the parent is not written out first, 
+   we will be pointing to a page which is not in the doubly linked 
+   sibling list, and therefore navigation back and forth won't work. */
+
+	result = delete_node(tdbb, &parent_window, parent_node);
+	CCH_RELEASE(tdbb, &parent_window);
+
+/* Update the right sibling page next, since it does not really 
+   matter that the left sibling pointer points to the page directly 
+   to the left, only that it point to some page to the left.
+   Set up the precedence so that the parent will be written first. */
+
+	if (right_page) {
+		if (parent_page)
+			CCH_precedence(tdbb, &right_window, parent_window.win_page);
+		CCH_MARK(tdbb, &right_window);
+		right_page->btr_left_sibling = left_window.win_page;
+
+		if (dbb->dbb_journal)
+			CCH_journal_page(tdbb, &right_window);
+		CCH_RELEASE(tdbb, &right_window);
+	}
+
+/* Now update the left sibling, effectively removing the garbage-collected page 
+   from the tree.  Set the precedence so the right sibling will be written first. */
+
+	if (right_page)
+		CCH_precedence(tdbb, &left_window, right_window.win_page);
+	else if (parent_page)
+		CCH_precedence(tdbb, &left_window, parent_window.win_page);
+
+	CCH_MARK(tdbb, &left_window);
+
+	if (right_page)
+		left_page->btr_sibling = right_window.win_page;
+	else
+		left_page->btr_sibling = 0;
+
+/* move all the nodes from the garbage-collected page to the left sibling, 
+   overwriting the END_BUCKET of the left sibling */
+
+	node = gc_page->btr_nodes;
+
+/* calculate the total amount of compression on page as the combined totals 
+   of the two pages, plus the compression of the first node on the g-c'ed page,
+   minus the prefix of the END_BUCKET node to be deleted */
+
+	left_page->btr_prefix_total +=
+		gc_page->btr_prefix_total + prefix - BTN_PREFIX(last_node);
+
+/* fix up the last node of the left page to contain the compressed first node */
+
+	BTN_PREFIX(last_node) = prefix;
+	BTN_LENGTH(last_node) = BTN_LENGTH(node) - prefix;
+	p = BTN_NUMBER(last_node);
+	q = BTN_NUMBER(node);
+	l = 4;
+	do
+		*p++ = *q++;
+	while (--l);
+
+/* copy over the remainder of the page to be garbage-collected */
+
+	p = BTN_DATA(last_node);
+	q = BTN_DATA(node) + prefix;
+	l = gc_page->btr_length - (q - (UCHAR *)
+							   gc_page);
+
+	if (l)
+		do
+			*p++ = *q++;
+		while (--l);
+
+	left_page->btr_length = p - (UCHAR *) left_page;
+
+#ifdef BTR_DEBUG
+	if (left_page->btr_length > dbb->dbb_page_size) {
+		CCH_RELEASE(tdbb, &left_window);
+		CCH_RELEASE(tdbb, window);
+		CORRUPT(204);			/* msg 204 index inconsistent */
+		return contents_above_threshold;
+	}
+#endif
+
+	if (dbb->dbb_journal)
+		CCH_journal_page(tdbb, &left_window);
+	CCH_RELEASE(tdbb, &left_window);
+
+/* finally, release the page, and indicate that we should write the 
+   previous page out before we write the TIP page out */
+
+	CCH_RELEASE(tdbb, window);
+	PAG_release_page(window->win_page,
+					 left_page ?
+					 left_window.win_page :
+					 right_page ?
+					 right_window.win_page : parent_window.win_page);
+
+/* if the parent page needs to be garbage collected, that means we need to 
+   re-fetch the parent and check to see whether it is still garbage-collectable; 
+   make sure that the page is still a btree page in this index and in this level--
+   there is a miniscule chance that it was already reallocated as another page 
+   on this level which is already below the threshold, in which case it doesn't 
+   hurt anything to garbage-collect it anyway */
+
+	if (result != contents_above_threshold) {
+		window->win_page = parent_window.win_page;
+		parent_page = (BTR) CCH_FETCH(tdbb, window, LCK_write, pag_undefined);
+
+		if ((parent_page->btr_header.pag_type != pag_index)
+			|| (parent_page->btr_relation != relation_number)
+			|| (parent_page->btr_id != index_id)
+			|| (parent_page->btr_level != index_level + 1)) {
+			CCH_RELEASE(tdbb, window);
+			return contents_above_threshold;
+		}
+
+		/* check whether it is empty */
+
+		parent_node = parent_page->btr_nodes;
+		number = BTR_get_quad(BTN_NUMBER(parent_node));
+#ifdef IGNORE_NULL_IDX_KEY
+		if (number == END_LEVEL || number == END_BUCKET)
+#else
+		if (number < 0)
+#endif /* IGNORE_NULL_IDX_KEY */
+			return contents_empty;
+
+		/* check whether there is just one node */
+
+		parent_node = NEXT_NODE(parent_node);
+		number = BTR_get_quad(BTN_NUMBER(parent_node));
+#ifdef IGNORE_NULL_IDX_KEY
+		if (number == END_LEVEL || number == END_BUCKET)
+#else
+		if (number < 0)
+#endif /* IGNORE_NULL_IDX_KEY */
+			return contents_single;
+
+		/* check to see if the size of the page is below the garbage collection threshold */
+
+		if (parent_page->btr_length < GARBAGE_COLLECTION_THRESHOLD)
+			return contents_below_threshold;
+
+		/* the page must have risen above the threshold; release the window since 
+		   someone else added a node while the page was released */
+
+		CCH_RELEASE(tdbb, window);
+		return contents_above_threshold;
+	}
+
+	return result;
+}
+
+
+static SLONG insert_node(TDBB tdbb,
+						 WIN * window,
+						 IIB * insertion,
+						 KEY * new_key,
+						 SLONG * original_page, SLONG * sibling_page)
+{
+/**************************************
+ *
+ *	i n s e r t _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a node in a bucket.  If this isn't the right bucket, 
+ *	return -1.  If it splits, return the split page number and 
+ *	leading string.  This is the workhorse for add_node.
+ *
+ **************************************/
+	DBB dbb;
+	KEY *key;
+	BTR bucket, split;
+	WIN split_window;
+	BTN node, new_node, next_node;
+	UCHAR prefix, old_prefix, old_length;
+	USHORT delta, l, node_offset;
+	SLONG old_number, split_page, right_sibling;
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+	SLONG *overflow_page = NULL;
+#else
+	SLONG overflow_page[OVERSIZE];
+#endif
+	UCHAR *p, *q;
+	UCHAR *midpoint;
+	SLONG prefix_total;
+	JRNB journal;
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+	JMP_BUF env, *old_env;
+#endif
+	BOOLEAN end_of_page;
+#ifdef IGNORE_NULL_IDX_KEY
+	BOOLEAN midpoint_is_end_non_null = FALSE;
+#endif /* IGNORE_NULL_IDX_KEY */
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+#endif
+
+	DEBUG;
+/* find the insertion point for the specified key */
+	bucket = (BTR) window->win_buffer;
+	key = insertion->iib_key;
+
+	if (!
+		(node =
+		 BTR_find_leaf(bucket, key, 0,
+					   &prefix,
+					   insertion->iib_descriptor->idx_flags &
+					   idx_descending, FALSE))) return -1;
+
+/* loop through the equivalent nodes until the correct insertion 
+   point is found; for leaf level this will be the first node */
+
+	for (;;) {
+		node_offset = (UCHAR *) node - (UCHAR *) bucket;
+
+		old_number = BTR_get_quad(BTN_NUMBER(node));
+		old_prefix = BTN_PREFIX(node);
+		old_length = BTN_LENGTH(node);
+
+#ifdef IGNORE_NULL_IDX_KEY
+		if (old_number == END_BUCKET)
+			return -1;
+		if (old_number == END_LEVEL)
+			break;
+		if (old_number == END_NON_NULL) {
+			assert(bucket->btr_level == 0);
+			break;
+		}
+#endif /* IGNORE_NULL_IDX_KEY */
+		p = key->key_data + old_prefix;
+		q = BTN_DATA(node);
+		l = MIN(key->key_length - old_prefix, old_length);
+		if (l)
+			do {
+				if (*p++ != *q++)
+					break;
+				--old_length;
+				old_prefix++;
+			} while (--l);
+
+		/* check if the inserted node has the same value as the next node */
+
+		if (old_prefix != key->key_length ||
+			old_prefix != BTN_LENGTH(node) + BTN_PREFIX(node))
+			break;
+
+#ifndef IGNORE_NULL_IDX_KEY
+		/* This block of code moved up for IGNORE_NULL_IDX_KEY */
+		if (old_number == END_BUCKET)
+			return -1;
+		if (old_number == END_LEVEL)
+			break;
+#endif /* IGNORE_NULL_IDX_KEY */
+
+		/* if this is a non-leaf page, we need to find 
+		   the correct insertion point in the duplicate chain */
+		if (!bucket->btr_level)
+			break;
+		if (old_number == insertion->iib_sibling)
+			break;
+
+		/* since the node is equivalent and we are about to skip past it, 
+		   the prefix of the inserted node is now the same */
+
+		prefix = old_prefix;
+
+		while (old_number != insertion->iib_sibling) {
+			node = NEXT_NODE(node);
+			old_number = BTR_get_quad(BTN_NUMBER(node));
+
+			if (BTN_LENGTH(node))
+				break;
+			if (old_number == END_BUCKET)
+				return -1;
+			if (old_number == END_LEVEL)
+				break;
+		}
+	}
+
+/* Compute the length of the updated page.  This is a function of the
+   new string length minus prefix and recompression done to the string
+   following the insertion. */
+
+	delta =
+		BTN_SIZE + key->key_length - prefix + BTN_PREFIX(node) - old_prefix;
+
+/* Prepare to slide down tail of bucket.  If we're going to split,
+   move the initialized hunk of the bucket to an overflow area big
+   enough to hold the split.  If the bucket isn't going to split,
+   mark the buffer as dirty. */
+
+	if (bucket->btr_length + delta > dbb->dbb_page_size) {
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+		/* allocate an overflow buffer which is large enough,
+		   and set up to release it in case of error */
+
+		overflow_page = (SLONG *) ALL_malloc((SLONG)
+											 OVERSIZE, ERR_jmp);
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env)) {
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			if (overflow_page)
+				ALL_free(overflow_page);
+			ERR_punt();
+		}
+#endif
+		MOVE_FASTER(bucket, overflow_page, bucket->btr_length);
+		node = (BTN) ((UCHAR *) overflow_page + node_offset);
+		bucket = (BTR) overflow_page;
+	}
+	else {
+		/* if we are a pointer page, make sure that the page we are 
+		   pointing to gets written before we do for on-disk integrity */
+
+		if (bucket->btr_level != 0)
+			CCH_precedence(tdbb, window, insertion->iib_number);
+		CCH_MARK(tdbb, window);
+	}
+
+	new_node = node;
+
+/* Slide down the upper hunk of the bucket to make room for the
+   insertion.  */
+
+	l = bucket->btr_length - node_offset;
+	p = (UCHAR *) bucket + bucket->btr_length;
+	q = p + delta;
+	do
+		*--q = *--p;
+	while (--l);
+
+/* Insert the new node.  */
+
+	bucket->btr_length += delta;
+	bucket->btr_prefix_total += prefix - BTN_PREFIX(node);
+	BTN_PREFIX(node) = prefix;
+	quad_put(insertion->iib_number, BTN_NUMBER(node));
+	p = BTN_DATA(node);
+	q = key->key_data + prefix;
+	if (l = BTN_LENGTH(node) = key->key_length - prefix) {
+		do
+			MOVE_BYTE(q, p);
+		while (--l);
+	}
+
+/* Recompress and rebuild the next node. */
+
+	node = (BTN) p;
+	bucket->btr_prefix_total += old_prefix;
+	BTN_PREFIX(node) = old_prefix;
+	BTN_LENGTH(node) = old_length;
+	quad_put(old_number, BTN_NUMBER(node));
+/* We don't need to rebuild BTN_DATA of first pushed node here because,
+ * if old_prefix has increased we only move down part of the node anyway */
+
+/* figure out whether this node was inserted at the end of the page */
+
+#ifdef IGNORE_NULL_IDX_KEY
+/* A END_NON_NULL marker does not signify end_of_page. There could be more
+ * valid BTN nodes after the END_NON_NULL in the same page */
+	end_of_page =
+		(old_number == END_BUCKET || old_number == END_LEVEL) ? TRUE : FALSE;
+#else
+	end_of_page = (old_number < 0) ? TRUE : FALSE;
+#endif /* IGNORE_NULL_IDX_KEY */
+
+/* If the index is unique, look for duplicates in this bucket. */
+
+	if (insertion->iib_descriptor->idx_flags & idx_unique)
+		while (BTN_LENGTH(node) == 0 && BTN_PREFIX(node) == key->key_length) {
+			old_number = BTR_get_quad(BTN_NUMBER(node));
+			if (old_number < 0)
+				break;
+			SBM_set(tdbb, &insertion->iib_duplicates, old_number);
+			node = (BTN) BTN_DATA(node);
+		}
+
+/* If the bucket still fits on a page, we're almost done. */
+
+	if (bucket->btr_length <= dbb->dbb_page_size) {
+		/*
+		 * Journal new node added. The node is journalled as the compressed
+		 * new node and the BTN of the re compressed next node.
+		 */
+
+		if (dbb->dbb_wal) {
+			journal.jrnb_type = JRNP_BTREE_NODE;
+			journal.jrnb_prefix_total = bucket->btr_prefix_total;
+			journal.jrnb_offset = node_offset;
+			journal.jrnb_delta = delta;
+			journal.jrnb_length = BTN_SIZE + BTN_SIZE + BTN_LENGTH(new_node);
+			CCH_journal_record(tdbb,
+							   window,
+							   (UCHAR *) & journal, JRNB_SIZE, (UCHAR *)
+							   bucket + node_offset, journal.jrnb_length);
+		}
+
+		CCH_RELEASE(tdbb, window);
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+		if (overflow_page)
+			ALL_free(overflow_page);
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+#endif
+
+		return 0;
+	}
+
+/* We've a bucket split in progress.  We need to determine the split point.
+   Set it halfway through the page, unless we are at the end of the page, 
+   in which case put only the new node on the new page.  This will ensure 
+   that pages get filled in the case of a monotonically increasing key. 
+   Make sure that the original page has room, in case the END_BUCKET marker 
+   is now longer because it is pointing at the new node.
+*/
+
+	DEBUG;
+	if (end_of_page &&
+		((UCHAR *) NEXT_NODE(new_node) <=
+		 (UCHAR *) bucket + dbb->dbb_page_size))
+midpoint = (UCHAR *) new_node;
+	else
+		midpoint =
+			(UCHAR *) bucket +
+			(dbb->dbb_page_size - OFFSETA(BTR, btr_nodes)) / 2;
+
+/* Copy the bucket up to the midpoint, restructing the full midpoint key */
+
+	prefix_total = 0;
+#ifdef IGNORE_NULL_IDX_KEY
+	new_key->key_flags = 0;
+	midpoint_is_end_non_null = FALSE;
+	for (p = (UCHAR *) bucket->btr_nodes;
+		 p < midpoint || TRUE == midpoint_is_end_non_null;)
+#else
+	for (p = (UCHAR *) bucket->btr_nodes; p < midpoint;)
+#endif /* IGNORE_NULL_IDX_KEY */
+	{
+		node = (BTN) p;
+		prefix_total += BTN_PREFIX(node);
+		p = BTN_DATA(node);
+		q = new_key->key_data + BTN_PREFIX(node);
+		new_key->key_length = BTN_PREFIX(node) + BTN_LENGTH(node);
+		if (l = BTN_LENGTH(node))
+			do
+				*q++ = *p++;
+			while (--l);
+#ifdef IGNORE_NULL_IDX_KEY
+		/* We do not want END_NON_NULL marker as the first node in the split page.
+		 * Move one extra node down in the original bucket */
+		if (END_NON_NULL == BTR_get_quad(BTN_NUMBER(node))) {
+			/* assert: cannot have multiple END_NON_NULL markers */
+			assert(midpoint_is_end_non_null == FALSE);
+			midpoint_is_end_non_null = TRUE;
+		}
+		else
+			midpoint_is_end_non_null = FALSE;
+#endif /* IGNORE_NULL_IDX_KEY */
+	}
+
+/* Allocate and format the overflow page */
+
+	split = (BTR) DPM_allocate(tdbb, &split_window);
+
+/* if we're a pointer page, make sure the child page is written first */
+
+	if (bucket->btr_level != 0)
+		if ((UCHAR *) new_node < midpoint)
+			CCH_precedence(tdbb, window, insertion->iib_number);
+		else
+			CCH_precedence(tdbb, &split_window, insertion->iib_number);
+
+/* format the new page to look like the old page */
+
+	split->btr_header.pag_type = bucket->btr_header.pag_type;
+	split->btr_relation = bucket->btr_relation;
+	split->btr_id = bucket->btr_id;
+	split->btr_level = bucket->btr_level;
+	split->btr_sibling = right_sibling = bucket->btr_sibling;
+	split->btr_left_sibling = window->win_page;
+	split->btr_header.pag_flags |=
+		(bucket->btr_header.pag_flags & btr_descending);
+
+/* Format the first node on the overflow page */
+
+	new_node = split->btr_nodes;
+	BTN_PREFIX(new_node) = 0;
+	QUAD_MOVE(BTN_NUMBER(node), BTN_NUMBER(new_node));
+	p = BTN_DATA(new_node);
+	q = new_key->key_data;
+	assert(new_key->key_length <=
+		   MAX_UCHAR) if (l =
+						  BTN_LENGTH(new_node) = (UCHAR) new_key->key_length)
+		do
+			MOVE_BYTE(q, p);
+		while (--l);
+
+/* Copy down the remaining half of the original bucket on the overflow page */
+
+	q = (UCHAR *) (NEXT_NODE(node));
+	l = bucket->btr_length - (q - (UCHAR *) bucket);
+
+	if (((U_IPTR) p & (ALIGNMENT - 1))
+		|| ((U_IPTR) q & (ALIGNMENT - 1)))
+		MOVE_FAST(q, p, l);
+	else
+		MOVE_FASTER(q, p, l);
+
+	split->btr_length = p + l - (UCHAR *) split;
+
+/* the sum of the prefixes on the split page is the previous total minus
+   the prefixes found on the original page; the sum of the prefixes on the 
+   original page must exclude the split node */
+
+	split->btr_prefix_total = bucket->btr_prefix_total - prefix_total;
+	bucket->btr_prefix_total = prefix_total - BTN_PREFIX(node);
+	split_page = split_window.win_page;
+
+	CCH_RELEASE(tdbb, &split_window);
+	CCH_precedence(tdbb, window, split_window.win_page);
+	CCH_mark_must_write(tdbb, window);
+
+/* The split bucket is still residing in the overflow area.  Copy it
+   back to the original buffer.  After cleaning up the last node,
+   we're done! */
+
+	bucket->btr_sibling = split_window.win_page;
+
+/* mark the end of the page; note that the end_bucket marker must 
+   contain info about the first node on the next page */
+
+	quad_put((SLONG) END_BUCKET, BTN_NUMBER(node));
+#ifdef IGNORE_NULL_IDX_KEY
+/* Why should the END_BUCKET marker contain info about the first node on the
+ * next page??? -bsriram, 13-Sep-1999
+ */
+	BTN_PREFIX(node) = 0;
+	BTN_LENGTH(node) = 0;
+#endif /* IGNORE_NULL_IDX_KEY */
+	next_node = NEXT_NODE(node);
+	bucket->btr_length = (UCHAR *) next_node - (UCHAR *) bucket;
+	MOVE_FASTER(bucket, window->win_buffer, bucket->btr_length);
+
+/* mark the bucket as non garbage-collectable until we can propogate 
+   the split page up to the parent; otherwise its possible that the 
+   split page we just created will be lost */
+
+	bucket->btr_header.pag_flags |= btr_dont_gc;
+
+/* journal the split page */
+
+	if (dbb->dbb_wal)
+		journal_btree_segment(tdbb, window, bucket);
+
+	if (original_page)
+		*original_page = window->win_page;
+
+/* now we need to go to the right sibling page and update its 
+   left sibling pointer to point to the newly split page */
+
+	if (right_sibling) {
+		bucket =
+			(BTR) CCH_HANDOFF(tdbb,
+							  window, right_sibling, LCK_write, pag_index);
+		CCH_MARK(tdbb, window);
+		bucket->btr_left_sibling = split_window.win_page;
+		if (dbb->dbb_journal)
+			CCH_journal_page(tdbb, window);
+	}
+	CCH_RELEASE(tdbb, window);
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+	if (overflow_page)
+		ALL_free(overflow_page);
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+#endif
+
+/* return the page number of the right sibling page */
+
+	if (sibling_page)
+		*sibling_page = right_sibling;
+
+	return split_page;
+}
+
+
+static void journal_btree_segment(TDBB tdbb, WIN * window, BTR bucket)
+{
+/**************************************
+ *
+ *    j o u r n a l _ b t r e e _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *    Journal valid part of btree segment.
+ *
+ **************************************/
+	JRNB journal;
+
+	SET_TDBB(tdbb);
+
+	journal.jrnb_type = JRNP_BTREE_SEGMENT;
+	journal.jrnb_offset = 0;
+	journal.jrnb_delta = 0;
+	journal.jrnb_length = bucket->btr_length;
+
+	CCH_journal_record(tdbb, window, (UCHAR *) & journal, JRNB_SIZE, (UCHAR *)
+					   bucket, journal.jrnb_length);
+} static BOOLEAN key_equality(KEY * key, BTN node)
+{
+/**************************************
+ *
+ *	k e y _ e q u a l i t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check a B-tree node against a key for equality.
+ *
+ **************************************/
+	SSHORT l;
+	UCHAR *p, *q;
+
+	if (key->key_length != node->btn_length + node->btn_prefix)
+		return FALSE;
+
+	if (!(l = node->btn_length))
+		return TRUE;
+
+	p = node->btn_data;
+	q = key->key_data + node->btn_prefix;
+
+	do
+		if (*p++ != *q++)
+			return FALSE;
+	while (--l);
+
+	return TRUE;
+}
+
+static INT64_KEY make_int64_key(SINT64 q, SSHORT scale)
+{
+/**************************************
+ *
+ *	m a k e _ i n t 6 4 _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make an Index key for a 64-bit Integer value.
+ *
+ **************************************/
+	UINT64 uq;
+	INT64_KEY key;
+	int n;
+
+/* Following structure declared above in the modules global section
+ *
+ * static const struct {
+ *     UINT64 limit;		--- if abs(q) is >= this, ...
+ *     SINT64 factor;		--- then multiply by this, ...
+ *     SSHORT scale_change;	--- and add this to the scale.
+ * } int64_scale_control[];
+ */
+
+/* Before converting the scaled int64 to a double, multiply it by the
+ * largest power of 10 which will NOT cause an overflow, and adjust
+ * the scale accordingly.  This ensures that two different
+ * representations of the same value, entered at times when the
+ * declared scale of the column was different, actually wind up
+ * being mapped to the same key.
+ */
+	n = 0;
+	uq = (UINT64) ((q >= 0) ? q : -q);	/* absolute value */
+	while (uq < int64_scale_control[n].limit)
+		n++;
+	q *= int64_scale_control[n].factor;
+	scale -= int64_scale_control[n].scale_change;
+
+	key.d_part = ((double) (q / 10000)) / powerof10(scale);
+	key.s_part = (SSHORT) (q % 10000);
+
+	return key;
+}
+
+#ifdef DEBUG_INDEXKEY
+static void print_int64_key(SINT64 value, SSHORT scale, INT64_KEY key)
+{
+/**************************************
+ *
+ *	p r i n t _ i n t 6 4 _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Debugging function to print a key created out of an int64 
+ *	quantify.
+ *
+ **************************************/
+	UTEXT *p;
+	USHORT n;
+
+	ib_fprintf(ib_stderr,
+			   "%20" QUADFORMAT
+			   "d  %4d  %.15e  %6d  ", value, scale, key.d_part, key.s_part);
+
+	p = (UTEXT *) & key;
+	for (n = 10; n--; n > 0)
+		ib_fprintf(ib_stderr, "%02x ", *p++);
+
+	ib_fprintf(ib_stderr, "\n");
+	return;
+}
+#endif /* DEBUG_INDEXKEY */
+static void quad_put(SLONG value, SCHAR * data)
+{
+/**************************************
+ *
+ *	q u a d _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move SLONG to a four byte vector.
+ *
+ **************************************/
+	SCHAR *p;
+
+	p = (SCHAR *) & value;
+
+	data[0] = p[0];
+	data[1] = p[1];
+	data[2] = p[2];
+	data[3] = p[3];
+}
+static void quad_move(register UCHAR * a, register UCHAR * b)
+{
+/**************************************
+ *
+ *	q u a d _ m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move an unaligned longword (4 bytes).
+ *
+ **************************************/
+
+	MOVE_BYTE(a, b);
+	MOVE_BYTE(a, b);
+	MOVE_BYTE(a, b);
+	MOVE_BYTE(a, b);
+}
+static CONTENTS remove_node(TDBB tdbb, IIB * insertion, WIN * window)
+{
+/**************************************
+ *
+ *	r e m o v e _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove an index node from a b-tree, 
+ * 	recursing down through the levels in case 
+ * 	we need to garbage collect pages.
+ *
+ **************************************/
+	DBB dbb;
+	IDX *idx;
+	BTR page;
+	BTN node;
+	SLONG number, parent_number;
+	CONTENTS result;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	idx = insertion->iib_descriptor;
+	page = (BTR) window->win_buffer;
+
+/* if we are on a leaf page, remove the leaf node */
+
+	if (page->btr_level == 0)
+		return remove_leaf_node(tdbb, insertion, window);
+
+#ifdef IGNORE_NULL_IDX_KEY
+	assert(page->btr_level != 0);
+#endif /* IGNORE_NULL_IDX_KEY */
+	while (TRUE) {
+		node = find_node(page, insertion->iib_key, (USHORT)
+						 (idx->idx_flags & idx_descending));
+		number = BTR_get_quad(BTN_NUMBER(node));
+
+		/* we should always find the node, but let's make sure */
+
+		if (number == END_LEVEL) {
+			CCH_RELEASE(tdbb, window);
+#ifdef BTR_DEBUG
+			CORRUPT(204);		/* msg 204 index inconsistent */
+#endif
+			return contents_above_threshold;
+		}
+		/* recurse to the next level down; if we are about to fetch a 
+		   level 0 page, make sure we fetch it for write */
+		if (number != END_BUCKET) {
+			/* handoff down to the next level, retaining the parent page number */
+
+			parent_number = window->win_page;
+			page = (BTR)
+				CCH_HANDOFF(tdbb, window, number, (SSHORT)
+							(
+							 (page->btr_level
+							  == 1) ? LCK_write : LCK_read), pag_index);
+
+			/* if the removed node caused the page to go below the garbage collection 
+			   threshold, and the database was created by a version of the engine greater 
+			   than 8.2, then we can garbage-collect the page */
+
+			result = remove_node(tdbb, insertion, window);
+
+			if ((result != contents_above_threshold)
+				&& (dbb->dbb_ods_version >= ODS_VERSION9))
+				return garbage_collect(tdbb, window, parent_number);
+
+			if (window->win_bdb)
+				CCH_RELEASE(tdbb, window);
+			return contents_above_threshold;
+		}
+
+		/* we've hit end of bucket, so go to the sibling looking for the node */
+
+		page = (BTR)
+			CCH_HANDOFF(tdbb, window, page->btr_sibling, LCK_read, pag_index);
+	}
+
+/* NOTREACHED */
+	return contents_empty;		/* superfluous return to shut lint up */
+}
+
+
+static CONTENTS remove_leaf_node(TDBB tdbb, IIB * insertion, WIN * window)
+{
+/**************************************
+ *
+ *	r e m o v e _ l e a f _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove an index node from the leaf level.
+ *
+ **************************************/
+	BTN node;
+	BTR page;
+	USHORT l;
+	UCHAR prefix, *p, *q;
+	KEY *key;
+	ULONG pages;
+	SLONG number;
+
+	SET_TDBB(tdbb);
+	page = (BTR) window->win_buffer;
+	key = insertion->iib_key;
+
+/* Look for the first node with the value to be removed. */
+
+	while (!
+		   (node =
+			BTR_find_leaf(page,
+						  key, 0,
+						  &prefix,
+						  insertion->iib_descriptor->idx_flags
+						  &
+						  idx_descending,
+						  FALSE))) page =
+			(BTR) CCH_HANDOFF(tdbb,
+							  window,
+							  page->btr_sibling, LCK_write, pag_index);
+
+/* Make sure first node looks ok */
+
+#ifdef IGNORE_NULL_IDX_KEY
+	if (key->key_length != BTN_LENGTH(node) + BTN_PREFIX(node))
+#else
+	if (prefix > BTN_PREFIX(node)
+		|| key->key_length != BTN_LENGTH(node) + BTN_PREFIX(node))
+#endif /* IGNORE_NULL_IDX_KEY */
+	{
+#ifdef BTR_DEBUG
+		CCH_RELEASE(tdbb, window);
+		CORRUPT(204);			/* msg 204 index inconsistent */
+#endif
+		return contents_above_threshold;
+	}
+/* check to make sure the node has the same value */
+	p = BTN_DATA(node);
+	q = key->key_data + BTN_PREFIX(node);
+	if (l = BTN_LENGTH(node))
+		do
+			if (*p++ != *q++) {
+#ifdef BTR_DEBUG
+				CCH_RELEASE(tdbb, window);
+				CORRUPT(204);	/* msg 204 index inconsistent */
+#endif
+				return contents_above_threshold;
+			}
+		while (--l);
+
+/* now look through the duplicate nodes to find the one 
+   with matching record number */
+
+	pages = 0;
+	while (TRUE) {
+		/* if we find the right one, quit */
+
+		number = BTR_get_quad(BTN_NUMBER(node));
+		if (insertion->iib_number == number)
+			break;
+
+#ifdef IGNORE_NULL_IDX_KEY
+		if (number == END_LEVEL || number == END_NON_NULL)
+#else
+		if (number == END_LEVEL)
+#endif /* IGNORE_NULL_IDX_KEY */
+		{
+#ifdef BTR_DEBUG
+			CCH_RELEASE(tdbb, window);
+			CORRUPT(204);		/* msg 204 index inconsistent */
+#endif
+			return contents_above_threshold;
+		}
+
+		/* go to the next node and check that it is a duplicate */
+
+		if (number != END_BUCKET) {
+#ifdef IGNORE_NULL_IDX_KEY
+			/* The next node could be (erroneously) a special END_xxx marker. 
+			 * What if it is a END_BUCKET ? It is fine, and we should go to the
+			 * next page, right?
+			 * so do not check for comparison between BTN_PREFIX and key_length. 
+			 * Just check whether the next node has any BTN_LENGTH. If it does,
+			 * then it is not a duplicate */
+			node = NEXT_NODE(node);
+			if (BTN_LENGTH(node)
+				!= 0)
+#else
+			node = (BTN) (BTN_DATA(node) + BTN_LENGTH(node));
+			if (BTN_LENGTH(node)
+				!= 0 || BTN_PREFIX(node)
+				!= key->key_length)
+#endif /* IGNORE_NULL_IDX_KEY */
+			{
+#ifdef BTR_DEBUG
+				CCH_RELEASE(tdbb, window);
+				CORRUPT(204);	/* msg 204 index inconsistent */
+#endif
+				return contents_above_threshold;
+			}
+			continue;
+		}
+
+		/* if we hit the end of bucket, go to the right sibling page, 
+		   and check that the first node is a duplicate */
+
+		++pages;
+		page = (BTR)
+			CCH_HANDOFF(tdbb,
+						window, page->btr_sibling, LCK_write, pag_index);
+		node = page->btr_nodes;
+		if ((l = BTN_LENGTH(node))
+			!= key->key_length) {
+#ifdef BTR_DEBUG
+			CCH_RELEASE(tdbb, window);
+			CORRUPT(204);		/* msg 204 index inconsistent */
+#endif
+			return contents_above_threshold;
+		}
+
+		if (l) {
+			p = BTN_DATA(node);
+			q = key->key_data;
+			do
+				if (*p++ != *q++) {
+#ifdef BTR_DEBUG
+					CCH_RELEASE(tdbb, window);
+					CORRUPT(204);	/* msg 204 index inconsistent */
+#endif
+					return contents_above_threshold;
+				}
+			while (--l);
+		}
+
+#ifdef MULTI_THREAD
+		/* Until deletion of duplicate nodes becomes efficient, limit
+		   leaf level traversal by rescheduling. */
+
+		if (--tdbb->tdbb_quantum < 0 && !tdbb->tdbb_inhibit)
+			if (JRD_reschedule(tdbb, 0, FALSE)) {
+				CCH_RELEASE(tdbb, window);
+				ERR_punt();
+			}
+#endif
+	}
+
+/* If we've needed to search thru a significant number of pages, warn the
+   cache manager in case we come back this way */
+
+	if (pages > 75)
+		CCH_expand(tdbb, pages + 25);
+
+	return delete_node(tdbb, window, node);
+}
+
+
+static BOOLEAN scan(TDBB tdbb,
+					register BTN
+					node,
+					SBM * bitmap,
+					register UCHAR prefix, KEY * key, USHORT flag)
+{
+/**************************************
+ *
+ *	s c a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do an index scan.  If we run over the bucket, return TRUE.  If
+ *	we're completely done, return FALSE.
+ *
+ **************************************/
+	USHORT l;
+	SLONG number;
+	UCHAR *end_key;
+	register UCHAR *p, *q;
+	USHORT i, count;
+
+	SET_TDBB(tdbb);
+
+	DEBUG;
+/* if the search key is flagged to indicate a multi-segment index
+   stuff the key to the stuff boundary */
+	if ((flag & irb_partial)
+		&& (flag & irb_equality)
+		&& !(flag & irb_starting)
+		&& !(flag & irb_descending)) {
+		count =
+			STUFF_COUNT -
+			((key->key_length + STUFF_COUNT) % (STUFF_COUNT + 1));
+		for (i = 0; i < count; i++)
+			key->key_data[key->key_length + i] = 0;
+		count += key->key_length;
+	}
+	else
+		count = key->key_length;
+
+	end_key = key->key_data + count;
+	count -= key->key_length;
+
+/* reset irb_equality flag passed for optimization */
+
+	flag &= ~irb_equality;
+
+	while (TRUE) {
+#ifdef DN10000
+		number = *(SLONG *)
+			BTN_NUMBER(node);
+#else
+		number = BTR_get_quad(BTN_NUMBER(node));
+#endif
+
+		if (number == END_LEVEL) {
+			return FALSE;
+		}
+
+#ifdef IGNORE_NULL_IDX_KEY
+		if (number == END_NON_NULL) {
+			/* skip this node and go to the next one */
+			node = NEXT_NODE(node);
+			continue;
+		}
+#endif /* IGNORE_NULL_IDX_KEY */
+
+		if (BTN_PREFIX(node) <= prefix) {
+			prefix = BTN_PREFIX(node);
+			p = key->key_data + prefix;
+			q = BTN_DATA(node);
+			for (l = BTN_LENGTH(node); l; --l, prefix++) {
+				if (p >= end_key)
+					if (flag)
+						break;
+					else
+						return FALSE;
+				if (p > (end_key - count))
+					if (*p++ == *q++)
+						break;
+					else
+						continue;
+				if (*p < *q)
+					return FALSE;
+				if (*p++ > *q++)
+					break;
+			}
+		}
+
+		if (number == END_BUCKET)
+			return TRUE;
+
+		if ((flag & irb_starting)
+			|| !count)
+			SBM_set(tdbb, bitmap, number);
+		else if (p > (end_key - count))
+			SBM_set(tdbb, bitmap, number);
+
+		node = NEXT_NODE(node);
+	}
+/* NOTREACHED */
+	return 0;					/* superfluous return to shut lint up */
+}
+
+
+} // extern "C"
diff --git a/src/jrd/btr.h b/src/jrd/btr.h
new file mode 100644
index 0000000000..1f2b792b17
--- /dev/null
+++ b/src/jrd/btr.h
@@ -0,0 +1,224 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		btr.h
+ *	DESCRIPTION:	Index walking data structures
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: btr.h,v 1.1.1.1 2001-05-23 13:26:06 tamlin Exp $
+*/
+
+#ifndef _JRD_BTR_H_
+#define _JRD_BTR_H_
+
+/* Index error types */
+
+typedef enum idx_e {
+	idx_e_ok = 0,
+	idx_e_duplicate,
+	idx_e_keytoobig,
+	idx_e_nullunique,
+	idx_e_conversion,
+	idx_e_foreign
+} IDX_E;
+
+#define MAX_IDX		 64			/* that should be plenty of indexes */
+#define MAX_KEY		256
+
+
+/* Index descriptor block -- used to hold info from index root page */
+
+typedef struct idx {
+	SLONG idx_root;				/* Index root */
+	float idx_selectivity;		/* selectivity of index */
+	UCHAR idx_id;
+	UCHAR idx_flags;
+	UCHAR idx_runtime_flags;	/* flags used at runtime, not stored on disk */
+	UCHAR idx_primary_index;	/* id for primary key partner index */
+	USHORT idx_primary_relation;	/* id for primary key partner relation */
+	USHORT idx_count;			/* number of keys */
+	struct vec *idx_foreign_primaries;	/* ids for primary/unique indexes with partners */
+	struct vec *idx_foreign_relations;	/* ids for foreign key partner relations */
+	struct vec *idx_foreign_indexes;	/* ids for foreign key partner indexes */
+	struct nod *idx_expression;	/* node tree for indexed expresssion */
+	struct dsc idx_expression_desc;	/* descriptor for expression result */
+	struct req *idx_expression_request;	/* stored request for expression evaluation */
+	struct idx_repeat {
+		USHORT idx_field;		/* field id */
+		USHORT idx_itype;		/* data of field in index */
+	} idx_rpt[16];
+} IDX;
+
+/* index types and flags */
+
+/* See jrd/intl.h for notes on idx_itype and dsc_sub_type considerations */
+/* idx_numeric .. idx_byte_array values are compatible with VMS values */
+
+#define idx_numeric		0
+#define idx_string		1
+#define idx_timestamp1		2
+#define idx_byte_array		3
+#define idx_metadata		4
+#define idx_sql_date		5
+#define idx_sql_time		6
+#define idx_timestamp2		7
+#define idx_numeric2		8	/* Introduced for 64-bit Integer support */
+
+/* Historical alias for pre v6 applications */
+#define idx_date		idx_timestamp1
+
+				   /* idx_itype space for future expansion */
+#define	idx_first_intl_string	64	/* .. MAX (short) Range of computed key strings */
+
+#define idx_offset_intl_range	(0x7FFF + idx_first_intl_string)
+
+/* these flags must match the irt_flags */
+
+#define idx_unique	1
+#define idx_descending	2
+#define idx_in_progress	4
+#define idx_foreign	8
+#define idx_primary	16
+#define idx_expressn	32
+
+/* these flags are for idx_runtime_flags */
+
+#define idx_plan_dont_use	1	/* index is not mentioned in user-specified access plan */
+#define idx_plan_navigate	2	/* plan specifies index to be used for ordering */
+#define idx_used 		4		/* index was in fact selected for retrieval */
+#define idx_navigate		8	/* index was in fact selected for navigation */
+#define	idx_plan_missing	16	/* index mentioned in missing clause */
+#define	idx_plan_starts		32	/* index mentioned in starts clause */
+
+/* Macro to locate the next IDX block */
+
+#ifndef DECOSF
+#define NEXT_IDX(buffer,count)	(IDX*) (buffer + count)
+#else
+#define NEXT_IDX(buffer,count)	(IDX*) FB_ALIGN((U_IPTR) (buffer + count), ALIGNMENT)
+#endif
+
+
+/* Index insertion block -- parameter block for index insertions */
+
+typedef struct iib {
+	SLONG iib_number;			/* record number (or lower level page) */
+	SLONG iib_sibling;			/* right sibling page */
+	struct idx *iib_descriptor;	/* index descriptor */
+	struct rel *iib_relation;	/* relation block */
+	struct key *iib_key;		/* varying string for insertion */
+	struct sbm *iib_duplicates;	/* spare bit map of duplicates */
+	struct tra *iib_transaction;	/* insertion transaction */
+} IIB;
+
+
+/* Temporary key block */
+
+typedef struct key {
+#ifdef IGNORE_NULL_IDX_KEY
+	USHORT key_flags;			/* could be UCHAR, but left as USHORT 
+								   because of SHORT boundary requirement 
+								   for key_data (explained below) */
+#endif							/* IGNORE_NULL_IDX_KEY */
+	USHORT key_length;
+	UCHAR key_data[MAX_KEY * 2];	/* This needs to be on a SHORT boundary. 
+									   This is because key_data is complemented as 
+									   (SSHORT *) if value is negative.
+									   See compress() (JRD/btr.c) for more details */
+} KEY;
+
+#ifdef IGNORE_NULL_IDX_KEY
+#define KEY_first_segment_is_null	1	/* first segment in index key is for NULL value */
+#endif /* IGNORE_NULL_IDX_KEY */
+
+/* Index Sort Record -- fix part of sort record for index fast load */
+
+typedef struct isr {
+	USHORT isr_key_length;
+	USHORT isr_flags;
+	ULONG isr_record_number;
+} *ISR;
+
+#define ISR_secondary	1		/* Record is secondary verion */
+
+
+
+/* Index retrieval block -- hold stuff for index retrieval */
+
+typedef struct irb {
+	struct blk irb_header;
+	IDX irb_desc;				/* Index descriptor */
+	USHORT irb_index;			/* Index id */
+	USHORT irb_generic;			/* Flags for generic search */
+	struct rel *irb_relation;	/* Relation for retrieval */
+	USHORT irb_lower_count;		/* Number of segments for retrieval */
+	USHORT irb_upper_count;		/* Number of segments for retrieval */
+	KEY *irb_key;				/* key for equality retrival */
+	struct nod *irb_value[1];
+} *IRB;
+
+#define irb_partial	1			/* Partial match: not all segments or starting of key only */
+#define irb_starting	2		/* Only compute "starting with" key for index segment */
+#define irb_equality	4		/* Probing index for equality match */
+#define irb_ignore_null_value_key  8	/* if lower bound is specified and upper bound unspecified,
+										   * ignore looking at null value keys */
+#define irb_descending	16		/* ?Base index uses descending order */
+
+
+#define DATA_SIZE	1
+
+/* format of expanded index node, used for backwards navigation */
+
+typedef struct btx {
+	UCHAR btx_previous_length;	/* length of data for previous node  */
+	UCHAR btx_btr_previous_length;	/* length of data for previous node on btree page */
+	UCHAR btx_data[DATA_SIZE];	/* expanded data element */
+} *BTX;
+
+#define BTX_SIZE	2
+
+/* format of expanded index buffer */
+
+typedef struct exp {
+	USHORT exp_length;
+	ULONG exp_incarnation;
+	struct btx exp_nodes[1];
+} *EXP;
+
+#define EXP_SIZE	OFFSETA (EXP, exp_nodes)
+
+
+/* macros used to manipulate btree nodes */
+
+#define BTN_PREFIX(node)	node->btn_prefix
+#define BTN_LENGTH(node)	node->btn_length
+#define BTN_NUMBER(node)	node->btn_number
+#define BTN_DATA(node)		node->btn_data
+
+#define QUAD_MOVE(a,b)	quad_move(a, b)
+
+#define QE(a,b,n)	(((UCHAR*) b)[n] == ((UCHAR*) a)[n])
+#define QUAD_EQUAL(a,b)	(QE(a,b,0) && QE(a,b,1) && QE(a,b,2) && QE(a,b,3))
+
+#define NEXT_NODE(xxx)	(BTN) (BTN_DATA (xxx) + BTN_LENGTH (xxx))
+#define LAST_NODE(page)	(BTN) ((UCHAR*) page + page->btr_length)
+
+#define NEXT_EXPANDED(xxx,yyy)	(BTX) ((UCHAR*) xxx->btx_data + BTN_PREFIX (yyy) + BTN_LENGTH (yyy))
+
+#endif /* _JRD_BTR_H_ */
diff --git a/src/jrd/btr_proto.h b/src/jrd/btr_proto.h
new file mode 100644
index 0000000000..b81aa4d59d
--- /dev/null
+++ b/src/jrd/btr_proto.h
@@ -0,0 +1,71 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		btr_proto.h
+ *	DESCRIPTION:	Prototype header file for btr.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_BTR_PROTO_H_
+#define _JRD_BTR_PROTO_H_
+
+#include "../jrd/btr.h"
+#include "../jrd/ods.h"
+#include "../jrd/req.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern USHORT BTR_all(TDBB, struct rel *, struct idx **, struct idx **,
+					  struct str **, SLONG *);
+extern void BTR_create(TDBB, struct rel *, struct idx *, USHORT, struct scb *,
+					   float *);
+extern void BTR_delete_index(TDBB, struct win *, USHORT);
+extern BOOLEAN BTR_description(REL, register struct irt *,
+							   register struct idx *, SSHORT);
+extern void BTR_evaluate(struct tdbb *, struct irb *, struct sbm **);
+extern struct btn *BTR_find_leaf(struct btr *, struct key *, UCHAR *, UCHAR *,
+								 int, BOOLEAN);
+extern struct btr *BTR_find_page(struct tdbb *, struct irb *, struct win *,
+								 struct idx *, struct key *, struct key *,
+								 BOOLEAN);
+extern SLONG BTR_get_quad(SCHAR *);
+extern void BTR_insert(struct tdbb *, struct win *, register struct iib *);
+extern enum idx_e BTR_key(struct tdbb *, struct rel *, struct rec *,
+						  register struct idx *, struct key *);
+extern USHORT BTR_key_length(struct rel *, struct idx *);
+extern struct btn *BTR_last_node(struct btr *, struct exp *, struct btx **);
+extern struct btr *BTR_left_handoff(struct tdbb *, struct win *, struct btr *,
+									SSHORT);
+extern USHORT BTR_lookup(TDBB, struct rel *, USHORT, register struct idx *);
+extern void BTR_make_key(struct tdbb *, USHORT, struct nod **, struct idx *,
+						 struct key *, USHORT);
+extern BOOLEAN BTR_next_index(TDBB, struct rel *, struct tra *, struct idx *,
+							  struct win *);
+extern struct btn *BTR_next_node(struct btn *, struct btx **);
+extern struct btn *BTR_previous_node(struct btn *, struct btx **);
+extern void BTR_remove(struct tdbb *, struct win *, register struct iib *);
+extern void BTR_reserve_slot(TDBB, struct rel *, struct tra *, struct idx *);
+extern float BTR_selectivity(TDBB, struct rel *, USHORT);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_BTR_PROTO_H_ */
diff --git a/src/jrd/build_no.h b/src/jrd/build_no.h
new file mode 100644
index 0000000000..aea570b885
--- /dev/null
+++ b/src/jrd/build_no.h
@@ -0,0 +1,14 @@
+/*FILE GENERATED BY BUILD_NO.KSH. DO NOT EDIT*/
+/*TO CHANGE ANY INFORMATION IN HERE PLEASE*/
+/*EDIT BUILD_NO.KSH IN THE BUILD_WIN32 COMPONENT*/
+/*FORMAL BUILD NUMBER:34*/
+#define PRODUCT_VER_STRING "0.9.4.34\\0"
+#define FILE_VER_STRING "WI-T0.9.4.34\\0"
+#define LICENSE_VER_STRING "WI-T0.9.4.34"
+#define FILE_VER_NUMBER 0, 9, 4, 34
+#define FB_MAJOR_VER "0"
+#define FB_MINOR_VER "9"
+#define FB_REV_NO "4"
+#define FB_BUILD_NO "34"
+#define FB_BUILD_TYPE "T"
+#define FB_BUILD_SUFFIX "Firebird Test1"
diff --git a/src/jrd/builtin.cpp b/src/jrd/builtin.cpp
new file mode 100644
index 0000000000..3ad53b0d13
--- /dev/null
+++ b/src/jrd/builtin.cpp
@@ -0,0 +1,120 @@
+/*
+ *	PROGRAM:	InterBase Access Method
+ *	MODULE:		builtin.c
+ *	DESCRIPTION:	Entry points for builtin UDF library
+ *			
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: builtin.cpp,v 1.1.1.1 2001-05-23 13:26:07 tamlin Exp $
+ */
+
+#include <string.h>
+#include "../jrd/common.h"
+#include "../jrd/flu_proto.h"
+#include "../jrd/gds_proto.h"
+
+typedef struct {
+	TEXT *fn_module;
+	TEXT *fn_entrypoint;
+	FPTR_INT fn_function;
+} FN;
+
+static FN isc_builtin_functions[] = {
+/*    Internal functions available for QA testing only */
+/*    "DEBUG_CRASH_TESTS", "TEST1", QATEST_entrypoint,  
+ 
+and so shall it be, *NEVER* include this in a production build
+removed this ugly security hole
+FSG 18.Dez.2000
+
+*/
+
+
+	NULL, NULL, NULL			/* End of list marker */
+};
+
+#ifdef SHLIB_DEFS
+#define strcmp		(*_libgds_strcmp)
+
+extern int strcmp();
+#endif
+
+
+FPTR_INT BUILTIN_entrypoint(TEXT * module, TEXT * entrypoint)
+{
+/**************************************
+ *
+ *	B U I L T I N _ e n t r y p o i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup function in hardcoded table.  The module and
+ *	entrypoint names are null terminated, but may contain
+ *	insignificant trailing blanks.
+ *
+ *	Builtin functions may reside under the InterBase install
+ *	location.  The module name may be prefixed with $INTERBASE.
+ *
+ **************************************/
+	FN *function;
+	TEXT *p, temp[256], *ep;
+	TEXT *modname;
+
+/* Strip off any preceeding $INTERBASE path location from the 
+ * requested module name.
+ */
+
+	modname = module;
+
+	gds__prefix(temp, "");
+	p = temp;
+	for (p = temp; *p; p++, modname++)
+		if (*p != *modname)
+			break;
+
+	if (!*p)
+		module = modname;
+
+/* Strip off any trailing spaces from module name */
+
+	p = temp;
+
+	while (*module && *module != ' ')
+		*p++ = *module++;
+
+	*p++ = 0;
+
+/* Strip off any trailing spaces from entrypoint name */
+
+	ep = p;
+
+	while (*entrypoint && *entrypoint != ' ')
+		*p++ = *entrypoint++;
+
+	*p = 0;
+
+/* Scan the list for a matching (module, entrypoint) name */
+
+	for (function = isc_builtin_functions; function->fn_module; ++function)
+		if (!strcmp(temp, function->fn_module)
+			&& !strcmp(ep, function->fn_entrypoint))
+			return function->fn_function;
+
+	return NULL;
+}
diff --git a/src/jrd/cch.cpp b/src/jrd/cch.cpp
new file mode 100644
index 0000000000..8f54729538
--- /dev/null
+++ b/src/jrd/cch.cpp
@@ -0,0 +1,5552 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		cch.c
+ *	DESCRIPTION:	Disk cache manager 
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include <stdlib.h>
+#include "../jrd/jrd.h"
+#include "../jrd/que.h"
+#include "../jrd/lck.h"
+#include "../jrd/ods.h"
+#include "../jrd/pio.h"
+#include "../jrd/cch.h"
+#include "../jrd/codes.h"
+#include "../jrd/jrn.h"
+#include "../jrd/lls.h"
+#include "../jrd/req.h"
+#include "../jrd/sdw.h"
+#include "../jrd/tra.h"
+#include "../jrd/sbm.h"
+#include "../jrd/iberr.h"
+#include "../jrd/rse.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/iberr_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/jrd_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/misc_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/sdw_proto.h"
+#include "../jrd/shut_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/tra_proto.h"
+#include "../jrd/ail.h"
+#include "../wal/wal_proto.h"
+
+
+extern "C" {
+
+
+static BDB alloc_bdb(TDBB, BCB, UCHAR **);
+static void blocking_ast_bdb(BDB);
+static void btc_flush(TDBB, SLONG, BOOLEAN, STATUS *);
+static void btc_insert(DBB, BDB);
+static void btc_remove(BDB);
+static void cache_bugcheck(int);
+static void THREAD_ROUTINE cache_reader(DBB);
+static void THREAD_ROUTINE cache_writer(DBB);
+static void check_precedence(TDBB, WIN *, SLONG);
+static void clear_precedence(DBB, BDB);
+static BDB dealloc_bdb(BDB);
+static BOOLEAN down_grade(TDBB, BDB);
+static void expand_buffers(TDBB, ULONG);
+static BDB get_buffer(TDBB, SLONG, LATCH, SSHORT);
+static void journal_buffer(STATUS *, BDB);
+static SSHORT latch_bdb(TDBB, LATCH, BDB, SLONG, SSHORT);
+static SSHORT lock_buffer(TDBB, register BDB, SSHORT, SSHORT);
+static ULONG memory_init(TDBB, BCB, ULONG);
+static void page_validation_error(TDBB, struct win *, SSHORT);
+static void prefetch_epilogue(PRF, STATUS *);
+static void prefetch_init(PRF, TDBB);
+static void prefetch_io(PRF, STATUS *);
+static void prefetch_prologue(PRF, SLONG *);
+static SSHORT related(register BDB, register BDB, SSHORT);
+static void release_bdb(TDBB, BDB, BOOLEAN, BOOLEAN, BOOLEAN);
+static BOOLEAN writeable(register BDB);
+static int write_buffer(TDBB, register BDB, SLONG, USHORT, STATUS *, BOOLEAN);
+static BOOLEAN write_page(TDBB, register BDB, USHORT, STATUS *, BOOLEAN);
+static void unmark(TDBB, WIN *);
+
+#define MIN_BUFFER_SEGMENT	65536L
+
+#ifdef NETWARE_386
+#define DEBUG_PRINTF(msg)	ConsolePrintf (msg)
+#endif
+
+#ifndef DEBUG_PRINTF
+#define DEBUG_PRINTF(msg)	ib_fprintf (ib_stderr, (msg))
+#endif
+
+/* Given pointer a field in the block, find the block */
+
+#define BLOCK(fld_ptr, type, fld) (type)((SCHAR*) fld_ptr - OFFSET (type, fld))
+
+#ifdef MULTI_THREAD
+#ifndef VMS
+#define INTERLOCK_CACHE
+#endif
+#endif
+
+/* In the superserver mode, no page locks are acquired through the lock manager.
+   Instead, a latching mechanism is used.  So the calls to lock subsystem for 
+   database pages in the original code should not be made, lest they should cause 
+   any undesirable side-effects.  The following defines help us achieve that.  */
+
+#ifdef SUPERSERVER
+#define	CACHE_WRITER
+#define PAGE_LATCHING	1
+#endif
+
+#ifdef SUPERSERVER_V2
+#define CACHE_READER
+#endif
+
+#ifdef PAGE_LATCHING
+#define PAGE_LOCK(lock, lock_type, wait)
+#define PAGE_LOCK_RELEASE(lock)	{ 0; }	/* TMN: Silence compilers */
+#define PAGE_LOCK_ASSERT(lock)
+#define PAGE_LOCK_OPT(lock, lock_type, wait)
+#define PAGE_LOCK_RE_POST(lock) { 0; }	/* TMN: Silence compilers */
+#define PAGE_OVERHEAD	(sizeof (bcb::bcb_repeat) + sizeof (struct bdb) + \
+			 (int) dbb->dbb_page_size)
+#else
+#define PAGE_LOCK(lock, lock_type, wait)	LCK_lock (tdbb, lock, lock_type, wait)
+#define PAGE_LOCK_RELEASE(lock)			LCK_release (tdbb, lock)
+#define PAGE_LOCK_ASSERT(lock)			LCK_assert (tdbb, lock)
+#define PAGE_LOCK_OPT(lock, lock_type, wait)	LCK_lock_opt (tdbb, lock, lock_type, wait)
+#define PAGE_LOCK_RE_POST(lock)			LCK_re_post (lock)
+#define PAGE_OVERHEAD	(sizeof (bcb::bcb_repeat) + sizeof (struct bdb) + \
+			 sizeof (struct lck) + (int) dbb->dbb_page_size)
+#endif
+
+#define BCB_MUTEX_ACQUIRE
+#define BCB_MUTEX_RELEASE
+
+#define PRE_MUTEX_ACQUIRE
+#define PRE_MUTEX_RELEASE
+
+#define BTC_MUTEX_ACQUIRE { 0; }	/* TMN: Silence compilers */
+#define BTC_MUTEX_RELEASE
+
+#define LATCH_MUTEX_ACQUIRE
+#define LATCH_MUTEX_RELEASE
+
+#define JOURNAL_PAGE		-1
+#define SHADOW_PAGE		-2
+#define FREE_PAGE		-3
+#define CHECKPOINT_PAGE		-4
+#define MIN_PAGE_NUMBER		-5
+
+#define PRE_SEARCH_LIMIT	100
+#define PRE_EXISTS		-1
+#define PRE_UNKNOWN		-2
+
+#define DUMMY_CHECKSUM        12345
+
+
+USHORT CCH_checksum(BDB bdb)
+{
+/**************************************
+ *
+ *	C C H _ c h e c k s u m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the checksum of a page.
+ *
+ **************************************/
+#ifdef NO_CHECKSUM
+	return DUMMY_CHECKSUM;
+#else
+
+	ULONG checksum, *p, *end;
+	USHORT old_checksum;
+	PAG page;
+	DBB dbb;
+
+	dbb = bdb->bdb_dbb;
+#ifdef WIN_NT
+/* ODS_VERSION8 for NT was shipped before page checksums
+   were disabled on other platforms. Continue to compute
+   checksums for ODS_VERSION8 databases but eliminate them
+   for ODS_VERSION9 databases. The following code can be
+   deleted when development on ODS_VERSION10 begins and
+   NO_CHECKSUM is defined for all platforms. */
+
+	if (dbb->dbb_ods_version >= ODS_VERSION9)
+		return DUMMY_CHECKSUM;
+#endif
+	page = bdb->bdb_buffer;
+
+	end = (ULONG *) ((SCHAR *) page + dbb->dbb_page_size);
+	old_checksum = page->pag_checksum;
+	page->pag_checksum = 0;
+	p = (ULONG *) page;
+	checksum = 0;
+
+	do {
+		checksum += *p++;
+		checksum += *p++;
+		checksum += *p++;
+		checksum += *p++;
+		checksum += *p++;
+		checksum += *p++;
+		checksum += *p++;
+		checksum += *p++;
+	}
+	while (p < end);
+
+	page->pag_checksum = old_checksum;
+
+	if (checksum)
+		return (USHORT) checksum;
+
+/* If the page is all zeros, return an artificial checksum */
+
+	for (p = (ULONG *) page; p < end;)
+		if (*p++)
+			return (USHORT) checksum;
+
+/* Page is all zeros -- invent a checksum */
+
+	return 12345;
+#endif
+}
+
+
+void DLL_EXPORT CCH_do_log_shutdown(TDBB tdbb, SSHORT force_archive)
+{
+/**************************************
+ *
+ *    C C H _ d o _ l o g _ s h u t d o w n
+ *
+ **************************************
+ *
+ * Functional description
+ *    Clear recover flag in the log page and flush buffers
+ *
+ **************************************/
+	DBB dbb;
+	LIP logp;
+	WIN window;
+	SLONG seqno, offset, p_offset;
+	SCHAR walname[MAX_PATH_LENGTH];
+	SSHORT w_len;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if (!dbb->dbb_wal)
+		return;
+
+	window.win_page = LOG_PAGE;
+	window.win_flags = 0;
+	logp = (LIP) CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+	logp->log_flags &= ~log_recover;
+
+	AIL_shutdown(walname, &seqno, &offset, &p_offset, force_archive);
+
+	w_len = strlen(walname);
+
+/* This will update control points and current file */
+
+	AIL_upd_cntrl_pt(walname, w_len, seqno, offset, p_offset);
+	AIL_upd_cntrl_pt(walname, w_len, seqno, offset, p_offset);
+
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+void CCH_down_grade_dbb(DBB dbb)
+{
+/**************************************
+ *
+ *	C C H _ d o w n _ g r a d e _ d b b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Down grade the lock on the database in response to a blocking
+ *	AST.
+ *
+ **************************************/
+	BCB bcb;
+	LCK lock;
+	struct tdbb thd_context, *tdbb;
+	bcb::bcb_repeat * tail, *end;
+	STATUS ast_status[20];
+
+/* Ignore the request if the database or lock block does not appear
+   to be valid . */
+
+	if ((dbb->dbb_header.blk_type != (UCHAR) type_dbb) ||
+		!(lock = dbb->dbb_lock) ||
+		(lock->lck_header.blk_type != (UCHAR) type_lck) || !(lock->lck_id))
+		return;
+
+/* Since this routine will be called asynchronously, we must establish
+   a thread context. */
+
+	SET_THREAD_DATA;
+
+	tdbb->tdbb_database = dbb;
+	tdbb->tdbb_attachment = lock->lck_attachment;
+	tdbb->tdbb_quantum = QUANTUM;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+	tdbb->tdbb_status_vector = ast_status;
+
+	dbb->dbb_ast_flags |= DBB_blocking;
+
+/* Database shutdown will release the database lock; just return. */
+
+	if (SHUT_blocking_ast(dbb)) {
+		dbb->dbb_ast_flags &= ~DBB_blocking;
+		RESTORE_THREAD_DATA;
+		return;
+	}
+
+/*
+if (dbb->dbb_use_count)
+    {
+    RESTORE_THREAD_DATA;
+    return;
+    }
+*/
+
+/* If we are already shared, there is nothing more we can do.
+   If any case, the other guy probably wants exclusive access,
+   and we can't give it anyway */
+
+	if ((lock->lck_logical == LCK_SW) || (lock->lck_logical == LCK_SR)) {
+		RESTORE_THREAD_DATA;
+		return;
+	}
+
+	if (dbb->dbb_flags & DBB_bugcheck) {
+		LCK_convert(tdbb, lock, LCK_SW, LCK_WAIT);
+		dbb->dbb_ast_flags &= ~DBB_blocking;
+		RESTORE_THREAD_DATA;
+		return;
+	}
+
+/* If we are supposed to be exclusive, stay exclusive */
+
+	if (dbb->dbb_flags & DBB_exclusive) {
+		RESTORE_THREAD_DATA;
+		return;
+	}
+
+/* Assert any page locks that have been requested, but not asserted */
+
+	ISC_ast_enter();
+
+	dbb->dbb_ast_flags |= DBB_assert_locks;
+	if (bcb = dbb->dbb_bcb) {
+		if (bcb->bcb_count)
+			for (tail = bcb->bcb_rpt, end = tail + bcb->bcb_count; tail < end;
+				 tail++)
+				PAGE_LOCK_ASSERT(tail->bcb_bdb->bdb_lock);
+	}
+
+/* Down grade the lock on the database itself */
+
+	if (lock->lck_physical == LCK_EX)
+		LCK_convert(tdbb, lock, LCK_PW, LCK_WAIT);	/* This lets waiting cache manager in first */
+	else
+		LCK_convert(tdbb, lock,
+					(dbb->dbb_flags & DBB_cache_manager) ? LCK_SR : LCK_SW,
+					LCK_WAIT);
+
+	dbb->dbb_ast_flags &= ~DBB_blocking;
+	ISC_ast_exit();
+
+/* Restore the prior thread context */
+
+	RESTORE_THREAD_DATA;
+}
+
+
+BOOLEAN CCH_exclusive(TDBB tdbb, USHORT level, SSHORT wait_flag)
+{
+/**************************************
+ *
+ *	C C H _ e x c l u s i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get exclusive access to a database.  If we get it, return TRUE.
+ *	If the wait flag is FALSE, and we can't get it, give up and 
+ *	return FALSE. There are two levels of database exclusivity: LCK_PW
+ *	guarantees there are  no normal users in the database while LCK_EX
+ *	additionally guarantes background database processes like the
+ *	shared cache manager have detached.
+ *
+ **************************************/
+	LCK lock;
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+#ifdef SUPERSERVER
+	if (!CCH_exclusive_attachment(tdbb, level, wait_flag))
+		return FALSE;
+#endif
+
+	if (!(lock = dbb->dbb_lock))
+		return FALSE;
+
+	dbb->dbb_flags |= DBB_exclusive;
+
+	switch (level) {
+	case LCK_PW:
+		if ((lock->lck_physical >= LCK_PW)
+			|| LCK_convert(tdbb, lock, LCK_PW, wait_flag))
+			return TRUE;
+		break;
+
+	case LCK_EX:
+		if (lock->lck_physical == LCK_EX ||
+			LCK_convert(tdbb, lock, LCK_EX, wait_flag)) return TRUE;
+		break;
+
+	default:
+		break;
+	}
+
+/* If we are supposed to wait (presumably patiently),
+   but can't get the lock, generate an error */
+
+	if (wait_flag == LCK_WAIT)
+		ERR_post(gds__deadlock, 0);
+
+	dbb->dbb_flags &= ~DBB_exclusive;
+
+	return FALSE;
+}
+
+
+BOOLEAN CCH_exclusive_attachment(TDBB tdbb, USHORT level, SSHORT wait_flag)
+{
+/**************************************
+ *
+ *	C C H _ e x c l u s i v e _ a t t a c h m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get exclusive access to a database. If we get it, return TRUE.
+ *	If the wait flag is FALSE, and we can't get it, give up and 
+ *	return FALSE.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment, *ptr;
+	SLONG timeout, remaining;
+	BOOLEAN found;
+
+#define CCH_EXCLUSIVE_RETRY_INTERVAL	1	/* retry interval in seconds */
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	attachment = tdbb->tdbb_attachment;
+	if (attachment->att_flags & ATT_exclusive)
+		return TRUE;
+
+	attachment->att_flags |=
+		(level == LCK_none) ? ATT_attach_pending : ATT_exclusive_pending;
+
+	timeout =
+		(SLONG) (wait_flag <
+				 0) ? -wait_flag : ((wait_flag ==
+									 LCK_WAIT) ? 1L << 30 :
+									CCH_EXCLUSIVE_RETRY_INTERVAL);
+
+/* If requesting exclusive database access, then re-position attachment as the
+   youngest so that pending attachments may pass. */
+
+	if (level != LCK_none) {
+		for (ptr = &dbb->dbb_attachments; *ptr; ptr = &(*ptr)->att_next)
+			if (*ptr == attachment) {
+				*ptr = attachment->att_next;
+				break;
+			}
+		attachment->att_next = dbb->dbb_attachments;
+		dbb->dbb_attachments = attachment;
+	}
+
+	for (remaining = timeout; remaining > 0;
+		 remaining -= CCH_EXCLUSIVE_RETRY_INTERVAL) {
+		if (tdbb->tdbb_attachment->att_flags & ATT_shutdown)
+			break;
+
+		found = FALSE;
+		for (attachment = tdbb->tdbb_attachment->att_next; attachment;
+			 attachment = attachment->att_next) {
+			if (attachment->att_flags & ATT_shutdown)
+				continue;
+
+			if (level == LCK_none) {	/* Wait for other attachments requesting exclusive access */
+				if (attachment->att_flags &
+					(ATT_exclusive | ATT_exclusive_pending)) {
+					found = TRUE;
+					break;
+				}
+			}
+			else {				/* Requesting exclusive database access */
+
+				found = TRUE;
+				if (attachment->att_flags & ATT_exclusive_pending) {
+					tdbb->tdbb_attachment->att_flags &=
+						~ATT_exclusive_pending;
+					if (wait_flag == LCK_WAIT)
+						ERR_post(gds__deadlock, 0);
+					else
+						return FALSE;
+				}
+				break;
+			}
+		}
+
+		if (!found) {
+			tdbb->tdbb_attachment->att_flags &=
+				~(ATT_exclusive_pending | ATT_attach_pending);
+			if (level != LCK_none)
+				tdbb->tdbb_attachment->att_flags |= ATT_exclusive;
+			return TRUE;
+		}
+
+		/* Our thread needs to sleep for CCH_EXCLUSIVE_RETRY_INTERVAL seconds. */
+
+		THREAD_EXIT;
+		THREAD_SLEEP(CCH_EXCLUSIVE_RETRY_INTERVAL * 1000);
+		THREAD_ENTER;
+
+#ifdef CANCEL_OPERATION
+		if (tdbb->tdbb_attachment->att_flags & ATT_cancel_raise)
+			if (JRD_reschedule(tdbb, 0, FALSE)) {
+				tdbb->tdbb_attachment->att_flags &=
+					~(ATT_exclusive_pending | ATT_attach_pending);
+				ERR_punt();
+			}
+#endif
+	}
+
+	tdbb->tdbb_attachment->att_flags &=
+		~(ATT_exclusive_pending | ATT_attach_pending);
+	return FALSE;
+}
+
+
+void CCH_expand(TDBB tdbb, ULONG number)
+{
+/**************************************
+ *
+ *	C C H _ e x p a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand the cache to at least a given number of buffers.  If
+ *	it's already that big, don't do anything.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	BCB_MUTEX_ACQUIRE;
+	expand_buffers(tdbb, number);
+	BCB_MUTEX_RELEASE;
+}
+
+
+PAG CCH_fake(TDBB tdbb, WIN * window, SSHORT latch_wait)
+{
+/**************************************
+ *
+ *	C C H _ f a k e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fake a fetch to a page.  Rather than reading it, however,
+ *	zero it in memory.  This is used when allocating a new page.
+ *
+ * input
+ *	latch_wait:	1 => Wait as long as necessary to get the latch.
+ *				This can cause deadlocks of course.
+ *			0 => If the latch can't be acquired immediately,
+ *				or an IO would be necessary, then give
+ *				up and return 0.
+ *	      		<negative number> => Latch timeout interval in seconds.
+ *
+ * return
+ *	pag pointer if successful.
+ *	NULL pointer if timeout occurred (only possible if latch_wait <> 1).
+ *	NULL pointer if latch_wait=0 and the faked page would have to be
+ *			before reuse.
+ *
+ **************************************/
+	DBB dbb;
+	BDB bdb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* if there has been a shadow added recently, go out and
+   find it before we grant any more write locks */
+
+	if (dbb->dbb_ast_flags & DBB_get_shadows)
+		SDW_get_shadows();
+
+	bdb = get_buffer(tdbb, window->win_page, LATCH_exclusive, latch_wait);
+	if (!bdb)
+		return (PAG) 0;			/* latch timeout occurred */
+
+/* If a dirty orphaned page is being reused - better write it first
+   to clear current precedences and checkpoint state. This would also
+   update the bcb_free_pages field appropriately. */
+
+	if (bdb->bdb_flags & (BDB_dirty | BDB_db_dirty)) {
+		/* If the caller didn't want to wait at all, then
+		   return 'try to fake an other page' to the caller. */
+
+		if (!latch_wait) {
+			release_bdb(tdbb, bdb, FALSE, FALSE, FALSE);
+			return (PAG) 0;
+		}
+
+		if (!write_buffer
+			(tdbb, bdb, bdb->bdb_page, TRUE, tdbb->tdbb_status_vector, TRUE))
+			CCH_unwind(tdbb, TRUE);
+	}
+	else if (QUE_NOT_EMPTY(bdb->bdb_lower)) {
+		/* Clear residual precedence left over from AST-level I/O. */
+
+		clear_precedence(dbb, bdb);
+	}
+
+	bdb->bdb_flags = (BDB_writer | BDB_faked);
+	bdb->bdb_scan_count = 0;
+
+	lock_buffer(tdbb, bdb, LCK_WAIT, pag_undefined);
+
+	MOVE_CLEAR(bdb->bdb_buffer, (SLONG) dbb->dbb_page_size);
+	window->win_buffer = bdb->bdb_buffer;
+	window->win_expanded_buffer = NULL;
+	window->win_bdb = bdb;
+	window->win_flags = 0;
+	CCH_MARK(tdbb, window);
+
+	return bdb->bdb_buffer;
+}
+
+
+PAG CCH_fetch(TDBB tdbb,
+			  register WIN * window,
+			  USHORT lock_type,
+			  SSHORT page_type,
+			  SSHORT checksum, SSHORT latch_wait, BOOLEAN read_shadow)
+{
+/**************************************
+ *
+ *	C C H _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a specific page.  If it's already in cache,
+ *	so much the better.
+ *
+ * input
+ *	latch_wait:	1 => Wait as long as necessary to get the latch.
+ *				This can cause deadlocks of course.
+ *			0 => If the latch can't be acquired immediately,
+ *				give up and return 0.
+ *	      		<negative number> => Latch timeout interval in seconds.
+ *
+ * return
+ *	PAG if successful.
+ *	NULL pointer if timeout occurred (only possible if latch_wait <> 1).
+ *
+ **************************************/
+	SSHORT fetch_lock_return;
+	BDB bdb;
+
+	SET_TDBB(tdbb);
+
+/* FETCH_LOCK will return 0, 1, -1 or -2 */
+
+	fetch_lock_return =
+		CCH_FETCH_LOCK(tdbb, window, lock_type, LCK_WAIT, latch_wait,
+					   page_type);
+
+	if (fetch_lock_return == 1)
+		CCH_FETCH_PAGE(tdbb, window, checksum, read_shadow);	/* must read page from disk */
+	else if (fetch_lock_return == -2 || fetch_lock_return == -1)
+		return (PAG) 0;			/* latch or lock timeout */
+
+	bdb = window->win_bdb;
+
+/* If a page was read or prefetched on behalf of a large scan
+   then load the window scan count into the buffer descriptor.
+   This buffer scan count is decremented by releasing a buffer
+   with CCH_RELEASE_TAIL.
+
+   Otherwise zero the buffer scan count to prevent the buffer
+   from being queued to the LRU tail. */
+
+	if (window->win_flags & WIN_large_scan) {
+		if (fetch_lock_return == 1 ||
+			bdb->bdb_flags & BDB_prefetch || bdb->bdb_scan_count < 0)
+			bdb->bdb_scan_count = window->win_scans;
+	}
+	else if (window->win_flags & WIN_garbage_collector) {
+		if (fetch_lock_return == 1)
+			bdb->bdb_scan_count = -1;
+		if (bdb->bdb_flags & BDB_garbage_collect)
+			window->win_flags |= WIN_garbage_collect;
+	}
+	else if (window->win_flags & WIN_secondary) {
+		if (fetch_lock_return == 1)
+			bdb->bdb_scan_count = -1;
+	}
+	else {
+		bdb->bdb_scan_count = 0;
+		if (bdb->bdb_flags & BDB_garbage_collect)
+			bdb->bdb_flags &= ~BDB_garbage_collect;
+	}
+
+/* Validate the fetched page matches the expected type */
+
+	if (bdb->bdb_buffer->pag_type != (SCHAR) page_type &&
+		page_type != pag_undefined)
+			page_validation_error(tdbb, window, page_type);
+
+	return window->win_buffer;
+}
+
+
+SSHORT CCH_fetch_lock(TDBB tdbb,
+					  register WIN * window,
+					  USHORT lock_type,
+					  SSHORT wait, SSHORT latch_wait, SSHORT page_type)
+{
+/**************************************
+ *
+ *	C C H _ f e t c h _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a lock for a specific page.
+ *	Return TRUE if the page needs to be
+ *	read and FALSE if not. If a timeout
+ *	was passed (wait < 0) and the lock
+ *	could not be granted return wait.
+ *
+ * input
+ *
+ *	wait: LCK_WAIT = TRUE = 1	=> Wait as long a necessary to get the lock.
+ *	      LCK_NO_WAIT = FALSE = 0	=> If the lock can't be acquired immediately,
+ *						give up and return -1.
+ *	      <negative number>		=> Lock timeout interval in seconds.
+ *
+ *	latch_wait:	1 => Wait as long as necessary to get the latch.
+ *				This can cause deadlocks of course.
+ *			0 => If the latch can't be acquired immediately,
+ *				give up and return -2.
+ *	      		<negative number> => Latch timeout interval in seconds.
+ *
+ * return
+ *	0:	fetch & lock were successful, page doesn't need to be read.
+ *	1:	fetch & lock were successful, page needs to be read from disk.
+ *	-1:	lock timed out, fetch failed.
+ *	-2:	latch timed out, fetch failed, lock not attempted.
+ *
+ **************************************/
+	DBB dbb;
+	register BDB bdb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* if there has been a shadow added recently, go out and
+   find it before we grant any more write locks */
+
+	if (dbb->dbb_ast_flags & DBB_get_shadows)
+		SDW_get_shadows();
+
+/* Look for the page in the cache. */
+
+	bdb = get_buffer(tdbb, window->win_page,
+					 ((lock_type >= LCK_write) ? LATCH_exclusive :
+					  LATCH_shared), latch_wait);
+	if ((latch_wait != 1) && (bdb == 0))
+		return -2;				/* latch timeout */
+
+	if (lock_type >= LCK_write)
+		bdb->bdb_flags |= BDB_writer;
+
+/* the expanded index buffer is only good when the page is 
+   fetched for read; if it is ever fetched for write, it must
+   be discarded */
+
+	if (bdb->bdb_expanded_buffer && (lock_type > LCK_read)) {
+		ALL_free((SCHAR *) bdb->bdb_expanded_buffer);
+		bdb->bdb_expanded_buffer = NULL;
+	}
+
+	window->win_bdb = bdb;
+	window->win_buffer = bdb->bdb_buffer;
+	window->win_expanded_buffer = bdb->bdb_expanded_buffer;
+
+/* lock_buffer returns 0 or 1 or -1. */
+	return lock_buffer(tdbb, bdb, wait, page_type);
+}
+
+
+void CCH_fetch_page(
+					TDBB tdbb,
+					register WIN * window,
+					SSHORT compute_checksum, BOOLEAN read_shadow)
+{
+/**************************************
+ *
+ *	C C H _ f e t c h _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a specific page.  If it's already in cache,
+ *	so much the better.  When "compute_checksum" is 1, compute
+ * 	the checksum of the page.  When it is 2, compute
+ *	the checksum only when the page type is nonzero.
+ *
+ **************************************/
+	DBB dbb;
+	register BDB bdb;
+	PAG page;
+	STATUS *status;
+	FIL file;
+	SSHORT retryCount;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	bdb = window->win_bdb;
+
+	status = tdbb->tdbb_status_vector;
+
+	page = bdb->bdb_buffer;
+	bdb->bdb_incarnation = ++dbb->dbb_page_incarnation;
+
+	AST_CHECK;
+	++dbb->dbb_reads;
+#ifdef SUPERSERVER
+	THREAD_EXIT;
+#endif
+	page = bdb->bdb_buffer;
+	file = dbb->dbb_file;
+	retryCount = 0;
+
+/* We will read a page, and if there is an I/O error we will try to 
+   use the shadow file, and try reading again, for a maximum of
+   3 tries, before it gives up.
+
+   The read_shadow flag is set to false only in the call to
+   FETCH_NO_SHADOW, which is only called from validate
+   code. 
+      
+   read_shadow = FALSE -> IF an I/O error occurs give up (exit
+   the loop, clean up, and return). So the caller,
+   validate in most cases, can know about it and attempt 
+   to remedy the situation. 
+     
+   read_shadow = TRUE -> IF an I/O error occurs attempt
+   to rollover to the shadow file.  If the I/O error is
+   persistant (more than 3 times) error out of the routine by 
+   calling CCH_unwind, and eventually punting out. */
+
+	while (!PIO_read(file, bdb, page, status)) {
+		if (!read_shadow) {
+			break;
+		}
+#ifdef SUPERSERVER
+		THREAD_ENTER;
+#endif
+		if (!CCH_rollover_to_shadow(dbb, file, FALSE)) {
+			PAGE_LOCK_RELEASE(bdb->bdb_lock);
+			CCH_unwind(tdbb, TRUE);
+		}
+		if (file != dbb->dbb_file)
+			file = dbb->dbb_file;
+		else {
+			if (retryCount++ == 3) {
+				ib_fprintf(ib_stderr,
+						   "IO error loop Unwind to avoid a hang\n");
+				PAGE_LOCK_RELEASE(bdb->bdb_lock);
+				CCH_unwind(tdbb, TRUE);
+			}
+		}
+#ifdef SUPERSERVER
+		THREAD_EXIT;
+#endif
+	}
+
+#ifdef DEBUG_SAVE_BDB_PAGE
+/* This debug option will not work with WAL or existing databases.
+   Verify that page number saved in pag_offset by write_page(). */
+
+	if (bdb->bdb_page != page->pag_offset)
+		DEBUG_PRINTF
+			("Incorrect page number in pag_offset (CCH_fetch_page)\n");
+#endif
+
+#ifndef NO_CHECKSUM
+	if (((compute_checksum == 1)
+		 || ((compute_checksum == 2) && page->pag_type))
+		&& ((page->pag_checksum != CCH_checksum(bdb))
+			&& !(dbb->dbb_flags & DBB_damaged))) {
+#ifdef SUPERSERVER
+		THREAD_ENTER;
+#endif
+		IBERR_build_status(tdbb->tdbb_status_vector,
+						   gds__db_corrupt,
+						   gds_arg_string, "",
+						   gds_arg_gds, gds__bad_checksum,
+						   gds_arg_gds, gds__badpage,
+						   gds_arg_number, (SLONG) bdb->bdb_page, 0);
+		/* We should invalidate this bad buffer. */
+
+		PAGE_LOCK_RELEASE(bdb->bdb_lock);
+		CCH_unwind(tdbb, TRUE);
+	}
+#endif /* NO_CHECKSUM */
+
+#ifdef SUPERSERVER
+	THREAD_ENTER;
+#endif
+	AST_CHECK;
+
+	bdb->bdb_flags &= ~(BDB_not_valid | BDB_read_pending);
+	window->win_buffer = bdb->bdb_buffer;
+}
+
+
+void CCH_fini(TDBB tdbb)
+{
+/**************************************
+ *
+ *	C C H _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shut down buffer operation.
+ *
+ **************************************/
+	DBB dbb;
+	BCB bcb;
+	BDB bdb;
+	BOOLEAN flush_error;
+	JMP_BUF env, *old_env;
+	bcb::bcb_repeat * tail, *end;
+#ifdef CACHE_WRITER
+	EVENT event;
+	SLONG count;
+	QUE que;
+	LWT lwt;
+#endif
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	flush_error = FALSE;
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env))
+		if (!flush_error)
+			flush_error = TRUE;
+		else {
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			ERR_punt();
+		}
+
+/* If we've been initialized, either flush buffers
+   or release locks, depending on where we've been
+   bug-checked; as a defensive programming measure,
+   make sure that the buffers were actually allocated */
+
+	if ((bcb = dbb->dbb_bcb) && (tail = bcb->bcb_rpt) && (tail->bcb_bdb))
+		if (dbb->dbb_flags & DBB_bugcheck || flush_error)
+			for (end = tail + bcb->bcb_count; tail < end; tail++) {
+				bdb = tail->bcb_bdb;
+				if (bdb->bdb_length)
+					continue;
+				if (bdb->bdb_expanded_buffer) {
+					ALL_free((SCHAR *) bdb->bdb_expanded_buffer);
+					bdb->bdb_expanded_buffer = NULL;
+				}
+				PAGE_LOCK_RELEASE(bdb->bdb_lock);
+			}
+		else
+			CCH_flush(tdbb, (USHORT) FLUSH_FINI, (SLONG) 0);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+/* If this is the last user, cleanup the log page. */
+
+	if (dbb->dbb_wal) {
+		if (CCH_exclusive(tdbb, LCK_EX, LCK_NO_WAIT))
+			CCH_do_log_shutdown(tdbb, 0);
+	}
+
+#ifdef CACHE_READER
+
+/* Shutdown the dedicated cache reader for this database. */
+
+	if ((bcb = dbb->dbb_bcb) && (bcb->bcb_flags & BCB_cache_reader)) {
+		event = dbb->dbb_reader_event;
+		bcb->bcb_flags &= ~BCB_cache_reader;
+		ISC_event_post(event);
+		count = ISC_event_clear(event);
+		THREAD_EXIT;
+		ISC_event_wait(1, &event, &count, 0, (FPTR_VOID) 0, 0);
+		THREAD_ENTER;
+		/* Now dispose off the cache reader associated semaphore */
+		ISC_event_fini(event);
+	}
+#endif
+
+#ifdef CACHE_WRITER
+
+/* Shutdown the dedicated cache writer for this database. */
+
+	if ((bcb = dbb->dbb_bcb) && (bcb->bcb_flags & BCB_cache_writer)) {
+		event = dbb->dbb_writer_event;
+		bcb->bcb_flags &= ~BCB_cache_writer;
+		ISC_event_post(event);
+		count = ISC_event_clear(event);
+		THREAD_EXIT;
+		ISC_event_wait(1, &event, &count, 0, (FPTR_VOID) 0, 0);
+		THREAD_ENTER;
+		/* Now dispose off the cache writer associated semaphore */
+		ISC_event_fini(event);
+	}
+#endif
+
+/* close the database file and all associated shadow files */
+
+	PIO_close(dbb->dbb_file);
+	SDW_close();
+
+	if (bcb = dbb->dbb_bcb) {
+		while (bcb->bcb_memory)
+			ALL_sys_free((SCHAR *) LLS_POP(&bcb->bcb_memory));
+#ifdef CACHE_WRITER
+		/* Dispose off any associated latching semaphores */
+		while (QUE_NOT_EMPTY(bcb->bcb_free_lwt)) {
+			que = bcb->bcb_free_lwt.que_forward;
+			QUE_DELETE((*que));
+			lwt = (LWT) BLOCK(que, LWT, lwt_waiters);
+			ISC_event_fini(&lwt->lwt_event);
+		}
+#endif
+	}
+}
+
+
+void CCH_flush(TDBB tdbb, USHORT flush_flag, SLONG tra_number)
+{
+/**************************************
+ *
+ *	C C H _ f l u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush all buffers.  If the release flag is set, 
+ *	release all locks.
+ *
+ **************************************/
+	DBB dbb;
+	register BCB bcb;
+	register BDB bdb;
+	ULONG i;
+	SLONG transaction_mask;
+	STATUS *status;
+	LATCH latch;
+	BOOLEAN all_flag, release_flag, sweep_flag, sys_only, write_thru;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	bcb = dbb->dbb_bcb;
+	status = tdbb->tdbb_status_vector;
+
+/* note that some of the code for btc_flush()
+   replicates code in the for loop
+   to minimize call overhead -- changes should
+   be made in both places */
+
+	if (flush_flag & (FLUSH_TRAN | FLUSH_SYSTEM)) {
+		transaction_mask =
+			(tra_number) ? 1L << (tra_number & (BITS_PER_LONG - 1)) : 0;
+		if (!transaction_mask && (flush_flag & FLUSH_SYSTEM))
+			sys_only = TRUE;
+		else
+			sys_only = FALSE;
+
+#ifdef SUPERSERVER_V2
+		if (!dbb->dbb_wal && !(dbb->dbb_flags & DBB_force_write)
+			&& transaction_mask) {
+			dbb->dbb_flush_cycle |= transaction_mask;
+			if (!(bcb->bcb_flags & BCB_writer_active))
+				ISC_event_post(dbb->dbb_writer_event);
+		}
+		else
+#endif
+			btc_flush(tdbb, transaction_mask, sys_only, status);
+	}
+	else {
+		all_flag = (flush_flag & FLUSH_ALL) ? TRUE : FALSE;
+		release_flag = (flush_flag & FLUSH_RLSE) ? TRUE : FALSE;
+		write_thru = release_flag;
+		sweep_flag = (flush_flag & FLUSH_SWEEP) ? TRUE : FALSE;
+		latch = (release_flag) ? LATCH_exclusive : LATCH_none;
+
+		for (i = 0; (bcb = dbb->dbb_bcb) && i < bcb->bcb_count; i++) {
+			bdb = bcb->bcb_rpt[i].bcb_bdb;
+			if (bdb->bdb_length)
+				continue;
+			if (!release_flag
+				&& !(bdb->bdb_flags & (BDB_dirty | BDB_db_dirty))) continue;
+			if (latch == LATCH_exclusive
+				&& latch_bdb(tdbb, latch, bdb, bdb->bdb_page, 1) == -1)
+				cache_bugcheck(302);	/* msg 302 unexpected page change */
+			if (latch == LATCH_exclusive && bdb->bdb_use_count > 1)
+				cache_bugcheck(210);	/* msg 210 page in use during flush */
+#ifdef SUPERSERVER
+			if (bdb->bdb_flags & BDB_db_dirty)
+				if (all_flag
+					|| (sweep_flag
+						&& (!bdb->bdb_parent && bdb != bcb->bcb_btree))) {
+					if (!write_buffer
+						(tdbb, bdb, bdb->bdb_page, write_thru, status, TRUE))
+						CCH_unwind(tdbb, TRUE);
+				}
+#else
+			if (bdb->bdb_flags & BDB_dirty)
+				if (!write_buffer
+					(tdbb, bdb, bdb->bdb_page, FALSE, status,
+					 TRUE)) CCH_unwind(tdbb, TRUE);
+#endif
+			if (release_flag)
+				PAGE_LOCK_RELEASE(bdb->bdb_lock);
+			if (latch == LATCH_exclusive)
+				release_bdb(tdbb, bdb, FALSE, FALSE, FALSE);
+		}
+	}
+
+/* PIO_flush (dbb->dbb_file); */
+/* PIO_flush (dbb->dbb_shadow->sdw_file); */
+
+/* take the opportunity when we know there are no pages
+   in cache to check that the shadow(s) have not been 
+   scheduled for shutdown or deletion */
+
+	SDW_check();
+}
+
+
+BOOLEAN CCH_free_page(TDBB tdbb)
+{
+/**************************************
+ *
+ *	C C H _ f r e e _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check if the cache is below its free pages
+ *	threshold and write a page on the LRU tail.
+ *
+ **************************************/
+	DBB dbb;
+	BCB bcb;
+	BDB bdb;
+
+/* Called by VIO/garbage_collector() when it is idle to
+   help quench the thirst for free pages. */
+
+	dbb = tdbb->tdbb_database;
+	bcb = dbb->dbb_bcb;
+
+#ifdef READONLY_DATABASE
+	if (dbb->dbb_flags & DBB_read_only)
+		return FALSE;
+#endif
+
+	if (bcb->bcb_flags & BCB_free_pending &&
+		(bdb = get_buffer(tdbb, FREE_PAGE, LATCH_none, 1))) {
+		if (!write_buffer
+			(tdbb, bdb, bdb->bdb_page, TRUE, tdbb->tdbb_status_vector, TRUE))
+			CCH_unwind(tdbb, FALSE);
+		else
+			return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+SLONG CCH_get_incarnation(WIN * window)
+{
+/**************************************
+ *
+ *	C C H _ g e t _ i n c a r n a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get page incarnation associated with buffer.
+ *
+ **************************************/
+
+	return window->win_bdb->bdb_incarnation;
+}
+
+
+PAG CCH_handoff(TDBB	tdbb,
+				register WIN* window,
+				SLONG	page,
+				SSHORT	lock,
+				SSHORT	page_type,
+				SSHORT	latch_wait,
+				SSHORT	release_tail)
+{
+/**************************************
+ *
+ *	C C H _ h a n d o f f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Follow a pointer handing off the lock.  Fetch the new page
+ *	before retiring the old page lock.
+ *
+ * input
+ *	latch_wait:	1 => Wait as long as necessary to get the latch.
+ *				This can cause deadlocks of course.
+ *			0 => If the latch can't be acquired immediately,
+ *				give up and return 0.
+ *	      		<negative number> => Latch timeout interval in seconds.
+ *
+ * return
+ *	PAG if successful.
+ *	0 if a latch timeout occurred (only possible if latch_wait <> 1).
+ *		The latch on the fetched page is downgraded to shared.
+ *		The fetched page is unmarked.
+ *
+ **************************************/
+	WIN temp;
+	SSHORT must_read;
+	BDB bdb;
+
+/* The update, if there was one, of the input page is complete.
+   The cache buffer can be 'unmarked'.  It is important to
+   unmark before CCH_unwind is (might be) called. */
+
+	SET_TDBB(tdbb);
+
+	unmark(tdbb, window);
+
+/* If the 'from-page' and 'to-page' of the handoff are the
+   same and the latch requested is shared then downgrade it. */
+
+	if ((window->win_page == page) && (lock == LCK_read)) {
+		release_bdb(tdbb, window->win_bdb, FALSE, TRUE, FALSE);
+		return window->win_buffer;
+	}
+
+	temp = *window;
+	window->win_page = page;
+	must_read =
+		CCH_FETCH_LOCK(tdbb, window, lock, LCK_WAIT, latch_wait, page_type);
+
+/* Latch or lock timeout, return failure. */
+
+	if (must_read == -2 || must_read == -1) {
+		*window = temp;
+		CCH_RELEASE(tdbb, window);
+		return (PAG) 0;
+	}
+
+	if (release_tail)
+		CCH_RELEASE_TAIL(tdbb, &temp);
+	else
+		CCH_RELEASE(tdbb, &temp);
+
+	if (must_read)
+		CCH_FETCH_PAGE(tdbb, window, TRUE, TRUE);
+
+	bdb = window->win_bdb;
+
+/* If a page was read or prefetched on behalf of a large scan
+   then load the window scan count into the buffer descriptor.
+   This buffer scan count is decremented by releasing a buffer
+   with CCH_RELEASE_TAIL.
+
+   Otherwise zero the buffer scan count to prevent the buffer
+   from being queued to the LRU tail. */
+
+	if (window->win_flags & WIN_large_scan) {
+		if (must_read == 1 ||
+			bdb->bdb_flags & BDB_prefetch || bdb->bdb_scan_count < 0)
+			bdb->bdb_scan_count = window->win_scans;
+	}
+	else if (window->win_flags & WIN_garbage_collector) {
+		if (must_read == 1)
+			bdb->bdb_scan_count = -1;
+		if (bdb->bdb_flags & BDB_garbage_collect)
+			window->win_flags |= WIN_garbage_collect;
+	}
+	else if (window->win_flags & WIN_secondary) {
+		if (must_read == 1)
+			bdb->bdb_scan_count = -1;
+	}
+	else {
+		bdb->bdb_scan_count = 0;
+		if (bdb->bdb_flags & BDB_garbage_collect)
+			bdb->bdb_flags &= ~BDB_garbage_collect;
+	}
+
+/* Validate the fetched page matches the expected type */
+
+	if (bdb->bdb_buffer->pag_type != (SCHAR) page_type &&
+		page_type != pag_undefined)
+			page_validation_error(tdbb, window, page_type);
+
+	return window->win_buffer;
+}
+
+
+void CCH_init(TDBB tdbb, ULONG number)
+{
+/**************************************
+ *
+ *	C C H _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the cache.  Allocate buffers control block,
+ *	buffer descriptors, and actual buffers.
+ *
+ **************************************/
+	DBB dbb;
+	register BCB bcb;
+	SLONG count;
+	EVENT event;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* Check for database-specific page buffers */
+
+	if (dbb->dbb_page_buffers)
+		number = dbb->dbb_page_buffers;
+
+/* Enforce page buffer cache constraints */
+
+	if (number < MIN_PAGE_BUFFERS)
+		number = MIN_PAGE_BUFFERS;
+	if (number > MAX_PAGE_BUFFERS)
+		number = MAX_PAGE_BUFFERS;
+
+	count = number;
+
+/* Allocate and initialize buffers control block */
+
+	while (!(bcb = (BCB) ALLOCBVR(type_bcb, number))) {
+		/* If the buffer control block can't be allocated, memory is
+		   very low. Recalculate the number of buffers to account for
+		   page buffer overhead and reduce that number by a 25% fudge
+		   factor. */
+
+		number = (sizeof(bcb::bcb_repeat) * number) / PAGE_OVERHEAD;
+		number -= number >> 2;
+
+		if (number < MIN_PAGE_BUFFERS)
+			ERR_post(isc_cache_too_small, 0);
+	}
+
+	dbb->dbb_bcb = bcb;
+	QUE_INIT(bcb->bcb_in_use);
+	QUE_INIT(bcb->bcb_empty);
+	QUE_INIT(bcb->bcb_free_lwt);
+
+/* initialization of memory is system-specific */
+
+	bcb->bcb_count = memory_init(tdbb, bcb, number);
+	bcb->bcb_free_minimum = (SSHORT) MIN(bcb->bcb_count / 4, 128);
+
+	if (bcb->bcb_count < MIN_PAGE_BUFFERS)
+		ERR_post(isc_cache_too_small, 0);
+
+/* Log if requested number of page buffers could not be allocated. */
+
+	if (count != (SLONG) bcb->bcb_count)
+		gds__log
+			("Database: %s\n\tAllocated %ld page buffers of %ld requested",
+			 dbb->dbb_file->fil_string, bcb->bcb_count, count);
+
+	if (dbb->dbb_lock->lck_logical != LCK_EX)
+		dbb->dbb_ast_flags |= DBB_assert_locks;
+
+#ifdef CACHE_READER
+	event = dbb->dbb_reader_event;
+	ISC_event_init(event, 0, 0);
+	count = ISC_event_clear(event);
+	if (gds__thread_start((FPTR_INT) cache_reader, dbb, THREAD_high, 0, 0))
+		ERR_bugcheck_msg("cannot start thread");
+
+	THREAD_EXIT;
+	ISC_event_wait(1, &event, &count, 5 * 1000000, (FPTR_VOID) 0, 0);
+	THREAD_ENTER;
+#endif
+
+#ifdef CACHE_WRITER
+#ifdef READONLY_DATABASE
+	if (!(dbb->dbb_flags & DBB_read_only))
+#endif
+	{
+		event = dbb->dbb_writer_event;
+		ISC_event_init(event, 0, 0);
+		count = ISC_event_clear(event);
+		if (gds__thread_start
+			(reinterpret_cast < FPTR_INT_VOID_PTR > (cache_writer), dbb,
+			 THREAD_high, 0, 0))
+			ERR_bugcheck_msg("cannot start thread");
+
+		THREAD_EXIT;
+		ISC_event_wait(1, &event, &count, 5 * 1000000, (FPTR_VOID) 0, 0);
+		THREAD_ENTER;
+	}
+#endif
+}
+
+
+void CCH_journal_page(TDBB tdbb, WIN * window)
+{
+/**************************************
+ *
+ *	C C H _ j o u r n a l _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Mark a page to be journalled.
+ *
+ **************************************/
+	DBB dbb;
+	BCB bcb;
+	BDB bdb, journal;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* If the database isn't journalled, don't bother */
+
+	if (!dbb->dbb_wal)
+		return;
+
+/* If there is a journal buffer allocated, release it */
+
+	bdb = window->win_bdb;
+
+	if (journal = bdb->bdb_jrn_bdb) {
+		bdb->bdb_jrn_bdb = NULL;
+		journal->bdb_length = 0;
+		BCB_MUTEX_ACQUIRE;
+		bcb = dbb->dbb_bcb;
+		QUE_INSERT(bcb->bcb_empty, journal->bdb_que);
+		BCB_MUTEX_RELEASE;
+	}
+
+	bdb->bdb_flags |= BDB_journal;
+}
+
+
+void CCH_journal_record(TDBB	tdbb,
+						WIN*	window,
+						UCHAR*	header,
+						USHORT	h_length,
+						UCHAR*	data,
+						USHORT	d_length)
+{
+/**************************************
+ *
+ *	C C H _ j o u r n a l _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a record to the journal for a page.  If the journal buffer
+ *	for the page overflows, prepare to journal the entire page.
+ *
+ **************************************/
+	DBB dbb;
+	BDB bdb, journal;
+	UCHAR *p;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* If the database isn't journalled, don't bother */
+
+	if (!dbb->dbb_wal)
+		return;
+
+	bdb = window->win_bdb;
+
+/* If the entire page is marked for journalling, don't bother, either */
+
+	if (bdb->bdb_flags & BDB_journal) {
+		if (!(journal = bdb->bdb_jrn_bdb))
+			return;
+		else {
+#ifdef DEV_BUILD
+			if (journal->bdb_sequence !=
+				MISC_checksum_log_rec((UCHAR *) journal->bdb_buffer,
+									  journal->bdb_length, 0, 0))
+				DEBUG_PRINTF("Checksum error in journal buffer\n");
+#endif
+			/* If we are journaling a b-tree segment, this new journal
+			 * segment replaces all the previous records for this page.
+			 * So get rid of previous records.
+			 */
+			if ((h_length)
+				&& (((JRNH *) header)->jrnh_type == JRNP_BTREE_SEGMENT))
+				journal->bdb_length = 0;
+		}
+	}
+	else {
+		/* Get the journal bdb in exclusive mode and wait for any other thread
+		   interested in this bdb (for a different page number) to loose interest
+		   in this bdb */
+		journal = bdb->bdb_jrn_bdb =
+			get_buffer(tdbb, (SLONG) JOURNAL_PAGE, LATCH_exclusive, 1);
+		if (latch_bdb(tdbb, LATCH_mark, journal, journal->bdb_page, 1) == -1)
+			cache_bugcheck(302);	/* msg 302 unexpected page change */
+
+		/* Now we can safely release this bdb to clear its bdb_io, bdb_exclusive and 
+		   bdb_use_count fields.  */
+		release_bdb(tdbb, journal, FALSE, FALSE, FALSE);
+
+		journal->bdb_length = 0;
+#ifdef DEV_BUILD
+		journal->bdb_sequence = 0;
+#endif
+		bdb->bdb_flags |= BDB_journal;
+	}
+
+/* If we're about to overflow the journal buffer, punt and journal the
+   whole page instead. */
+
+	p = (UCHAR *) journal->bdb_buffer + journal->bdb_length;
+	journal->bdb_length += h_length + d_length;
+
+	if (journal->bdb_length >= dbb->dbb_page_size) {
+		CCH_journal_page(tdbb, window);
+		return;
+	}
+
+/* Move pad byte, header, and data into journal buffer */
+
+	if (h_length) {
+		do {
+			*p++ = *header++;
+		} while (--h_length);
+	}
+
+	if (d_length) {
+		do {
+			*p++ = *data++;
+		} while (--d_length);
+	}
+
+	if (journal->bdb_length & 1) {
+		++journal->bdb_length;
+		*p = JRNP_NULL;
+	}
+
+#ifdef DEV_BUILD
+	journal->bdb_sequence =
+		MISC_checksum_log_rec((UCHAR *) journal->bdb_buffer,
+							  journal->bdb_length, 0, 0);
+#endif
+}
+
+
+void CCH_mark(TDBB tdbb, WIN * window, USHORT mark_system)
+{
+/**************************************
+ *
+ *	C C H _ m a r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Mark a window as dirty.
+ *
+ **************************************/
+	DBB dbb;
+	TRA transaction;
+	ULONG trans_bucket;
+	SLONG number;
+	register BDB bdb;
+	BCB bcb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	dbb->dbb_marks++;
+	bcb = dbb->dbb_bcb;
+	bdb = window->win_bdb;
+	BLKCHK(bdb, type_bdb);
+
+/* A LATCH_mark is needed before the bdb can be marked.
+   This prevents a write while the page is being modified. */
+
+	if (latch_bdb(tdbb, LATCH_mark, bdb, bdb->bdb_page, 1) == -1)
+		cache_bugcheck(302);	/* msg 302 unexpected page change */
+
+	bdb->bdb_incarnation = ++dbb->dbb_page_incarnation;
+
+	if (!(bdb->bdb_flags & BDB_writer))
+		BUGCHECK(208);			/* msg 208 page not accessed for write */
+
+/* mark the dirty bit vector for this specific transaction,
+   if it exists; otherwise mark that the system transaction
+   has updated this page */
+
+	if ((transaction = tdbb->tdbb_transaction) &&
+		(number = transaction->tra_number)) {
+		if (!(tdbb->tdbb_flags & TDBB_sweeper)) {
+			trans_bucket = number & (BITS_PER_LONG - 1);
+			bdb->bdb_transactions |= (1L << trans_bucket);
+			if (number > bdb->bdb_mark_transaction)
+				bdb->bdb_mark_transaction = number;
+		}
+	}
+	else
+		bdb->bdb_flags |= BDB_system_dirty;
+
+	if (mark_system)
+		bdb->bdb_flags |= BDB_system_dirty;
+
+	if (!(tdbb->tdbb_flags & TDBB_sweeper) ||
+		bdb->bdb_flags & BDB_system_dirty) {
+		if (!bdb->bdb_parent && bdb != bcb->bcb_btree)
+			btc_insert(dbb, bdb);
+	}
+
+#ifdef SUPERSERVER
+	bdb->bdb_flags |= BDB_db_dirty;
+#endif
+
+	bdb->bdb_flags |= (BDB_dirty | BDB_marked);
+}
+
+
+void CCH_mark_must_write(TDBB tdbb, WIN * window)
+{
+/**************************************
+ *
+ *	C C H _ m a r k _ m u s t _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Mark a window as dirty and must_write.
+ *	This will prevent the page from being
+ *	inserted in the dirty binary tree when
+ *	the intention is to write the page
+ *	immediately any way.
+ *
+ **************************************/
+	BDB bdb;
+
+	SET_TDBB(tdbb);
+	bdb = window->win_bdb;
+	BLKCHK(bdb, type_bdb);
+
+	if (!(bdb->bdb_flags & BDB_writer))
+		BUGCHECK(208);			/* msg 208 page not accessed for write */
+
+	bdb->bdb_flags |= (BDB_dirty | BDB_must_write);
+
+	CCH_MARK(tdbb, window);
+}
+
+
+void CCH_must_write(WIN * window)
+{
+/**************************************
+ *
+ *	C C H _ m u s t _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Mark a window as "must write".
+ *
+ **************************************/
+	register BDB bdb;
+
+	bdb = window->win_bdb;
+	BLKCHK(bdb, type_bdb);
+
+	if (!(bdb->bdb_flags & BDB_marked))
+		BUGCHECK(208);			/* msg 208 page not accessed for write */
+
+	bdb->bdb_flags |= (BDB_dirty | BDB_must_write);
+}
+
+
+
+LCK CCH_page_lock(TDBB tdbb, ERR_T err_ret)
+{
+/**************************************
+ *
+ *	C C H _ p a g e _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a page-type lock.
+ *
+ **************************************/
+	DBB dbb;
+	LCK lock;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if (err_ret == ERR_jmp)
+		lock = (LCK) ALLOCBV(type_lck, sizeof(SLONG));
+	else {
+		lock = (LCK) ALLOCBVR(type_lck, sizeof(SLONG));
+		if (!lock)
+			return 0;
+	}
+	lock->lck_type = LCK_bdb;
+	lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+	lock->lck_length = sizeof(SLONG);
+
+	lock->lck_dbb = dbb;
+	lock->lck_parent = dbb->dbb_lock;
+
+	return lock;
+}
+
+
+void CCH_precedence(TDBB tdbb, WIN * window, SLONG page)
+{
+/**************************************
+ *
+ *	C C H _ p r e c e d e n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a window accessed for write and a page number,
+ *	establish a precedence relationship such that the
+ *	specified page will always be written before the page
+ *	associated with the window.
+ *
+ *	If the "page number" is negative, it is really a transaction
+ *	id.  In this case, the precedence relationship is to the
+ *	database header page from which the transaction id was
+ *	obtained.  If the header page has been written since the
+ *	transaction id was assigned, no precedence relationship
+ *	is required.
+ *
+ **************************************/
+/* If the page is zero, the caller isn't really serious */
+
+	if (page == 0)
+		return;
+
+	check_precedence(tdbb, window, page);
+}
+
+
+void CCH_prefetch(TDBB tdbb, SLONG * pages, SSHORT count)
+{
+/**************************************
+ *
+ *	C C H _ p r e f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a vector of pages, set corresponding bits
+ *	in global prefetch bitmap. Initiate an asynchronous
+ *	I/O and get the cache reader reading in our behalf
+ *	as well.
+ *
+ **************************************/
+#ifdef CACHE_READER
+	DBB dbb;
+	BCB bcb;
+	SLONG page, first_page, *end;
+	struct plb *old_pool;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	bcb = dbb->dbb_bcb;
+
+	if (!count || !(bcb->bcb_flags & BCB_cache_reader))	/* Caller isn't really serious. */
+		return;
+
+/* Switch default pool to permanent pool for setting bits in
+   prefetch bitmap. */
+
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = dbb->dbb_bufferpool;
+
+/* The global prefetch bitmap is the key to the I/O coalescense
+   mechanism which dovetails all thread prefetch requests to
+   minimize sequential I/O requests. It also enables multipage
+   I/O by implicitly sorting page vector requests. */
+
+	first_page = 0;
+	for (end = pages + count; pages < end;)
+		if (page = *pages++) {
+			SBM_set(tdbb, &bcb->bcb_prefetch, page);
+			if (!first_page)
+				first_page = page;
+		}
+
+/* Not likely that the caller's page vector was
+   empty but check anyway. */
+
+	if (first_page) {
+		struct prf prefetch;
+
+		prefetch_init(&prefetch, tdbb);
+		prefetch_prologue(&prefetch, &first_page);
+		prefetch_io(&prefetch, tdbb->tdbb_status_vector);
+		prefetch_epilogue(&prefetch, tdbb->tdbb_status_vector);
+	}
+
+	tdbb->tdbb_default = old_pool;
+#endif
+}
+
+
+BOOLEAN CCH_prefetch_pages(TDBB tdbb)
+{
+/**************************************
+ *
+ *	C C H _ p r e f e t c h _ p a g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check the prefetch bitmap for a set
+ *	of pages and read them into the cache.  
+ *
+ **************************************/
+
+/* Place holder to be implemented when predictive prefetch is
+   enabled. This is called by VIO/garbage_collector() when it
+   is idle to help satisfy the prefetch demand. */
+
+	return FALSE;
+}
+
+
+void CCH_recover_shadow(TDBB tdbb, SBM sbm_rec)
+{
+/**************************************
+ *
+ *	C C H _ r e c o v e r _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk through the sparse bit map created during recovery and 
+ *	write all changed pages to all the shadows.
+ *
+ **************************************/
+	SLONG page_no = -1;
+	WIN window;
+	DBB dbb;
+	STATUS *status;
+	int result;
+	SLONG seqno, offset, p_offset;
+	SCHAR walname[257];
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	status = tdbb->tdbb_status_vector;
+
+	if (!sbm_rec) {
+		/* Now that shadows are initialized after WAL, write the header
+		   page with the recover bit to shadow. */
+
+		if (dbb->dbb_wal) {
+			window.win_page = LOG_PAGE;
+			CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+			CCH_write_all_shadows(tdbb, 0, window.win_bdb, status, 1, FALSE);
+			CCH_RELEASE(tdbb, &window);
+		}
+		return;
+	}
+
+	result = TRUE;
+
+	if (dbb->dbb_shadow) {
+		while (SBM_next(sbm_rec, &page_no, RSE_get_forward)) {
+			window.win_page = page_no;
+			CCH_FETCH(tdbb, &window, LCK_write, pag_undefined);
+
+			result =
+				CCH_write_all_shadows(tdbb, 0, window.win_bdb, status, 1,
+									  FALSE);
+			CCH_RELEASE(tdbb, &window);
+		}
+	}
+
+	if (result == FALSE)
+		ERR_punt();
+/* 
+ * do 2 control points after a recovery to flush all the pages to the
+ * database and shadow. Note that this has to be doen after the shadows
+ * are updated.
+ */
+
+	if (dbb->dbb_wal) {
+		/* Flush cache to write all changes to disk */
+
+		CCH_flush(tdbb, (USHORT) FLUSH_ALL, 0);
+
+		/* Inform wal writer about check point (actually a fake check point) */
+
+		if (WAL_checkpoint_force
+			(tdbb->tdbb_status_vector, dbb->dbb_wal, &seqno, walname,
+			 &p_offset, &offset) != SUCCESS)
+			ERR_punt();
+
+		/* Update the log page */
+
+		AIL_upd_cntrl_pt(walname, (USHORT) strlen(walname), seqno, offset,
+						 p_offset);
+		AIL_upd_cntrl_pt(walname, (USHORT) strlen(walname), seqno, offset,
+						 p_offset);
+
+		/* Get the log page changes to disk */
+
+		CCH_flush(tdbb, (USHORT) FLUSH_ALL, 0);
+
+		/* Inform wal writer that older log files are no longer required */
+
+		if (WAL_checkpoint_recorded(tdbb->tdbb_status_vector, dbb->dbb_wal)
+			!= SUCCESS)
+			ERR_punt();
+	}
+	else
+		CCH_flush(tdbb, (USHORT) FLUSH_ALL, 0);
+
+/* release the bit map */
+
+	SBM_release(sbm_rec);
+}
+
+
+void CCH_release(TDBB tdbb, WIN * window, BOOLEAN release_tail)
+{
+/**************************************
+ *
+ *	C C H _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a window. If the release_tail
+ *	flag is TRUE then make the buffer
+ *	least-recently-used.
+ *
+ **************************************/
+	DBB dbb;
+	register BDB bdb;
+	SSHORT use_count;
+	BOOLEAN marked;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	bdb = window->win_bdb;
+	BLKCHK(bdb, type_bdb);
+
+/* if an expanded buffer has been created, retain it 
+   for possible future use */
+
+	bdb->bdb_expanded_buffer = window->win_expanded_buffer;
+	window->win_expanded_buffer = NULL;
+
+/* A large sequential scan has requested that the garbage
+   collector garbage collect. Mark the buffer so that the
+   page isn't released to the LRU tail before the garbage
+   collector can process the page. */
+
+	if (window->win_flags & WIN_large_scan &&
+		window->win_flags & WIN_garbage_collect)
+	{
+		bdb->bdb_flags |= BDB_garbage_collect;
+		window->win_flags &= ~WIN_garbage_collect;
+	}
+
+	if (bdb->bdb_use_count == 1)
+	{
+		marked = (bdb->bdb_flags & BDB_marked) ? TRUE : FALSE;
+		bdb->bdb_flags &= ~(BDB_writer | BDB_marked | BDB_faked);
+		if (marked)
+		{
+			release_bdb(tdbb, bdb, FALSE, FALSE, TRUE);
+		}
+		if (bdb->bdb_flags & BDB_must_write)
+		{
+			/* Downgrade exclusive latch to shared to allow concurrent share access
+			   to page during I/O. */
+
+			release_bdb(tdbb, bdb, FALSE, TRUE, FALSE);
+			if (!write_buffer(	tdbb,
+								bdb,
+								bdb->bdb_page,
+								FALSE,
+								tdbb->tdbb_status_vector,
+								TRUE))
+			{
+				btc_insert(dbb, bdb);	/* Don't lose track of must_write */
+				CCH_unwind(tdbb, TRUE);
+			}
+		}
+#ifndef PAGE_LATCHING
+		if (bdb->bdb_flags & BDB_no_blocking_ast)
+		{
+			if (bdb->bdb_flags & (BDB_db_dirty | BDB_dirty))
+			{
+				if (!write_buffer(	tdbb,
+									bdb,
+									bdb->bdb_page,
+									FALSE,
+									tdbb->tdbb_status_vector,
+									TRUE))
+				{
+					/* Reassert blocking AST after write failure with dummy lock convert
+					   to same level. This will re-enable blocking AST notification. */
+
+					LCK_convert_opt(tdbb, bdb->bdb_lock,
+									bdb->bdb_lock->lck_logical);
+					CCH_unwind(tdbb, TRUE);
+				}
+			}
+
+			PAGE_LOCK_RELEASE(bdb->bdb_lock);
+			bdb->bdb_flags &= ~BDB_no_blocking_ast;
+			bdb->bdb_ast_flags &= ~BDB_blocking;
+		}
+#endif
+
+		/* Make buffer the least-recently-used by queueing it
+		   to the LRU tail. */
+
+		if (release_tail)
+		{
+			if ((window->win_flags & WIN_large_scan &&
+				 bdb->bdb_scan_count > 0 &&
+				 !(--bdb->bdb_scan_count) &&
+				 !(bdb->bdb_flags & BDB_garbage_collect)) ||
+				(window->win_flags & WIN_garbage_collector &&
+				 bdb->bdb_flags & BDB_garbage_collect &&
+				 !(bdb->bdb_scan_count)))
+			{
+				BCB bcb;
+
+				if (window->win_flags & WIN_garbage_collector)
+				{
+					bdb->bdb_flags &= ~BDB_garbage_collect;
+				}
+				bcb = dbb->dbb_bcb;
+				QUE_LEAST_RECENTLY_USED(bdb->bdb_in_use);
+				bdb->bdb_sequence = 0;
+#ifdef CACHE_WRITER
+				if (bdb->bdb_flags & (BDB_dirty | BDB_db_dirty))
+				{
+					bcb->bcb_flags |= BCB_free_pending;
+					if (bcb->bcb_flags & BCB_cache_writer &&
+						!(bcb->bcb_flags & BCB_writer_active))
+					{
+						ISC_event_post(dbb->dbb_writer_event);
+					}
+				}
+#endif
+			}
+		}
+	}
+
+	release_bdb(tdbb, bdb, FALSE, FALSE, FALSE);
+	use_count = bdb->bdb_use_count;
+
+	if (use_count < 0)
+		BUGCHECK(209);			/* msg 209 attempt to release page not acquired */
+
+	if (!use_count && (bdb->bdb_ast_flags & BDB_blocking))
+		PAGE_LOCK_RE_POST(bdb->bdb_lock);
+
+	window->win_bdb = NULL;
+}
+
+
+void CCH_release_exclusive(TDBB tdbb)
+{
+/**************************************
+ *
+ *	C C H _ r e l e a s e _ e x c l u s i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release exclusive access to database.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	dbb->dbb_flags &= ~DBB_exclusive;
+
+	if (attachment = tdbb->tdbb_attachment)
+		attachment->att_flags &= ~ATT_exclusive;
+
+	if (dbb->dbb_ast_flags & DBB_blocking)
+		LCK_re_post(dbb->dbb_lock);
+}
+
+
+void CCH_release_journal(TDBB tdbb, SLONG number)
+{
+/**************************************
+ *
+ *	C C H _ r e l e a s e _ j o u r n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of journal buffer for a page which has been released.
+ *
+ **************************************/
+	WIN window;
+	BDB bdb, journal;
+	BCB bcb;
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	if (!dbb->dbb_wal)
+		return;
+
+	window.win_page = number;
+	CCH_FETCH(tdbb, &window, LCK_write, pag_undefined);
+
+/* if there is still a journal buffer, zero it out */
+
+	bdb = window.win_bdb;
+	if (!(bdb->bdb_flags & BDB_journal)) {
+		CCH_RELEASE(tdbb, &window);
+		return;
+	}
+
+	bdb->bdb_flags &= ~BDB_journal;
+
+	if (!(journal = bdb->bdb_jrn_bdb)) {
+		CCH_RELEASE(tdbb, &window);
+		return;
+	}
+
+	journal->bdb_length = 0;
+
+	BCB_MUTEX_ACQUIRE;
+	bcb = dbb->dbb_bcb;
+	QUE_INSERT(bcb->bcb_empty, journal->bdb_que);
+	BCB_MUTEX_RELEASE;
+
+	bdb->bdb_jrn_bdb = NULL;
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+BOOLEAN CCH_rollover_to_shadow(DBB dbb, FIL file, BOOLEAN inAst)
+{
+/**************************************
+ *
+ *	C C H _ r o l l o v e r _ t o _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	An I/O error has been detected on the 
+ *	main database file.  Roll over to use
+ *	the shadow file.
+ *
+ **************************************/
+/* Is the shadow subsystem yet initialized */
+	if (!dbb->dbb_shadow_lock)
+		return FALSE;
+/* notify other process immediately to ensure all read from sdw
+   file instead of db file */
+	return (SDW_rollover_to_shadow(file, inAst));
+}
+
+
+void DLL_EXPORT CCH_shutdown_database(DBB dbb)
+{
+/**************************************
+ *
+ *	C C H _ s h u t d o w n _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown database physical page locks.
+ *
+ **************************************/
+	BCB bcb;
+	BDB bdb;
+	bcb::bcb_repeat * tail, *end;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	if ((bcb = dbb->dbb_bcb) && (tail = bcb->bcb_rpt) && (tail->bcb_bdb))
+		for (end = tail + bcb->bcb_count; tail < end; tail++) {
+			bdb = tail->bcb_bdb;
+			if (bdb->bdb_length)
+				continue;
+			bdb->bdb_flags &= ~(BDB_dirty | BDB_db_dirty);
+			PAGE_LOCK_RELEASE(bdb->bdb_lock);
+		}
+
+#ifndef SUPERSERVER
+	PIO_close(dbb->dbb_file);
+	SDW_close();
+#endif
+}
+
+
+void CCH_unwind(TDBB tdbb, BOOLEAN punt)
+{
+/**************************************
+ *
+ *	C C H _ u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Synchronously unwind cache after I/O or lock error.
+ *
+ **************************************/
+	DBB dbb;
+	BCB bcb;
+	BDB bdb;
+#ifndef SUPERSERVER
+	PAG page;
+#endif
+	SSHORT i;
+	bcb::bcb_repeat * tail, *end;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* CCH_unwind is called when any of the following occurs:
+	- IO error
+	- journaling error
+	- bad page checksum
+	- wrong page type
+	- page locking (not latching) deadlock (doesn't happen on Netware) */
+
+	if (!(bcb = dbb->dbb_bcb) || (tdbb->tdbb_flags & TDBB_no_cache_unwind)) {
+		if (punt)
+			ERR_punt();
+		else
+			return;
+	}
+
+/* A cache error has occurred. Scan the cache for buffers
+   which may be in use and release them. */
+
+	for (tail = bcb->bcb_rpt, end = tail + bcb->bcb_count; tail < end; tail++) {
+		bdb = tail->bcb_bdb;
+#ifndef SUPERSERVER
+		if (bdb->bdb_length || !bdb->bdb_use_count)
+			continue;
+		if (bdb->bdb_flags & BDB_marked)
+			cache_bugcheck(268);	/* msg 268 buffer marked during cache unwind */
+		bdb->bdb_flags &= ~BDB_writer;
+		while (bdb->bdb_use_count)
+			release_bdb(tdbb, bdb, TRUE, FALSE, FALSE);
+		page = bdb->bdb_buffer;
+		if ((page->pag_type == pag_header) ||
+			(page->pag_type == pag_transactions)) {
+			++bdb->bdb_use_count;
+			bdb->bdb_flags &=
+				~(BDB_dirty | BDB_writer | BDB_marked | BDB_faked |
+				  BDB_db_dirty);
+			PAGE_LOCK_RELEASE(bdb->bdb_lock);
+			--bdb->bdb_use_count;
+		}
+#else
+		if (!bdb->bdb_use_count)
+			continue;
+		if (bdb->bdb_io == tdbb)
+			release_bdb(tdbb, bdb, TRUE, FALSE, FALSE);
+		if (bdb->bdb_exclusive == tdbb) {
+			/* The sanity check below can't be enforced for the log page because
+			   the ail.c code does IO while having the log page marked (should be
+			   fixed in the future). */
+			if ((bdb->bdb_flags & BDB_marked) && (bdb->bdb_page != LOG_PAGE))
+				cache_bugcheck(268);	/* msg 268 buffer marked during cache unwind */
+			bdb->bdb_flags &= ~(BDB_writer | BDB_faked | BDB_must_write);
+			release_bdb(tdbb, bdb, TRUE, FALSE, FALSE);
+		}
+		for (i = 0; i < BDB_max_shared; i++)
+			if (bdb->bdb_shared[i] == tdbb)
+				release_bdb(tdbb, bdb, TRUE, FALSE, FALSE);
+#endif
+	}
+
+	if (punt)
+		ERR_punt();
+}
+
+
+BOOLEAN CCH_validate(WIN * window)
+{
+/**************************************
+ *
+ *	C C H _ v a l i d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Give a page a quick once over looking for unhealthyness.
+ *
+ **************************************/
+	BDB bdb;
+	PAG page;
+	USHORT sum;
+
+	bdb = window->win_bdb;
+
+/* If page is marked for write, checksum is questionable */
+
+	if ((bdb->bdb_flags & (BDB_dirty | BDB_db_dirty)))
+		return TRUE;
+
+	page = window->win_buffer;
+	sum = CCH_checksum(bdb);
+
+	if (sum == page->pag_checksum)
+		return TRUE;
+
+	return FALSE;
+}
+
+
+BOOLEAN CCH_write_all_shadows(TDBB tdbb,
+							  SDW shadow,
+							  BDB bdb,
+							  STATUS * status, USHORT checksum, BOOLEAN inAst)
+{
+/**************************************
+ *
+ *	C C H _ w r i t e _ a l l _ s h a d o w s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute a checksum and write a page out to all shadows
+ *	detecting failure on write.
+ *	If shadow is null, write to all shadows, otherwise only to specified
+ *	shadow.
+ *
+ **************************************/
+	BOOLEAN result = TRUE;
+	SLONG last, *spare_buffer = NULL;
+	FIL next_file, shadow_file;
+	HDR header;
+	PAG old_buffer, page;
+	DBB dbb;
+	UCHAR *q;
+	SDW sdw;
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+
+	sdw = shadow ? shadow : dbb->dbb_shadow;
+
+	if (!sdw)
+		return TRUE;
+
+	if (bdb->bdb_page == HEADER_PAGE) {
+		/* allocate a spare buffer which is large enough,
+		   and set up to release it in case of error */
+
+		spare_buffer =
+			(SLONG *) ALL_malloc((SLONG) dbb->dbb_page_size, ERR_jmp);
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env)) {
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			if (spare_buffer)
+				ALL_free((SCHAR *) spare_buffer);
+			ERR_punt();
+		}
+
+		page = (PAG) spare_buffer;
+		MOVE_FAST((UCHAR *) bdb->bdb_buffer, (UCHAR *) page, HDR_SIZE);
+		old_buffer = bdb->bdb_buffer;
+		bdb->bdb_buffer = page;
+	}
+	else {
+		page = bdb->bdb_buffer;
+		if (checksum)
+			page->pag_checksum = CCH_checksum(bdb);
+	}
+
+	for (; sdw; sdw = sdw->sdw_next) {
+		/* don't bother to write to the shadow if it is no longer viable */
+
+		/* Fix for bug 7925. drop_gdb fails to remove secondary file if
+		   the shadow is conditional. Reason being the header page not
+		   being correctly initialized. 
+
+		   The following block was not being performed for a conditional
+		   shadow since SDW_INVALID expanded to include conditional shadow
+
+		   -Sudesh  07/10/95 
+		   old code --> if (sdw->sdw_flags & SDW_INVALID)
+		 */
+
+		if ((sdw->sdw_flags & SDW_INVALID) &&
+			!(sdw->sdw_flags & SDW_conditional)) continue;
+
+		if (bdb->bdb_page == HEADER_PAGE) {
+			/* fixup header for shadow file */
+			shadow_file = sdw->sdw_file;
+			header = (HDR) page;
+			q = (UCHAR *) dbb->dbb_file->fil_string;
+			header->hdr_data[0] = HDR_end;
+			header->hdr_end = HDR_SIZE;
+			header->hdr_next_page = 0;
+
+			PAG_add_header_entry(header, HDR_root_file_name,
+								 (USHORT) strlen((char *) q), q);
+
+			if (next_file = shadow_file->fil_next) {
+				q = (UCHAR *) next_file->fil_string;
+				last = next_file->fil_min_page - 1;
+				PAG_add_header_entry(header, HDR_file,
+									 (USHORT) strlen((char *) q), q);
+				PAG_add_header_entry(header, HDR_last_page, sizeof(last),
+									 (UCHAR *) & last);
+			}
+
+			header->hdr_flags |= hdr_active_shadow;
+			header->hdr_header.pag_checksum = CCH_checksum(bdb);
+		}
+
+/* This condition makes sure that PIO_write is performed in case of
+   conditional shadow only if the page is Header page
+
+	-Sudesh 07/10/95
+*/
+		if ((sdw->sdw_flags & SDW_conditional) &&
+			(bdb->bdb_page != HEADER_PAGE)) continue;
+
+		/* if a write failure happens on an AUTO shadow, mark the 
+		   shadow to be deleted at the next available opportunity when we 
+		   know we don't have a page fetched */
+
+		if (!PIO_write(sdw->sdw_file, bdb, page, status))
+			if (sdw->sdw_flags & SDW_manual)
+				result = FALSE;
+			else {
+				sdw->sdw_flags |= SDW_delete;
+				if (!inAst && SDW_check_conditional()) {
+					if (SDW_lck_update((SLONG) 0)) {
+						SDW_notify();
+						CCH_unwind(tdbb, FALSE);
+						SDW_dump_pages();
+						ERR_post(gds__deadlock, 0);
+					}
+				}
+			}
+		/* If shadow was specified, break out of loop */
+
+		if (shadow)
+			break;
+	}
+
+	if (bdb->bdb_page == HEADER_PAGE)
+		bdb->bdb_buffer = old_buffer;
+
+	if (spare_buffer)
+		ALL_free((SCHAR *) spare_buffer);
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	return result;
+}
+
+
+static BDB alloc_bdb(TDBB tdbb, BCB bcb, UCHAR ** memory)
+{
+/**************************************
+ *
+ *	a l l o c _ b d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate buffer descriptor block.
+ *
+ **************************************/
+	BDB bdb;
+#ifndef PAGE_LATCHING
+	LCK lock;
+#endif
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if (!(bdb = (BDB) ALLOCBR(type_bdb)))
+		return 0;
+
+	bdb->bdb_dbb = dbb;
+
+#ifndef PAGE_LATCHING
+	if (!(bdb->bdb_lock = lock = CCH_page_lock(tdbb, ERR_val))) {
+		ALL_release(bdb);
+		return 0;
+	}
+	lock->lck_ast = blocking_ast_bdb;
+	lock->lck_object = (BLK) bdb;
+#endif
+
+	bdb->bdb_buffer = (PAG) * memory;
+	*memory += dbb->dbb_page_size;
+
+	QUE_INIT(bdb->bdb_higher);
+	QUE_INIT(bdb->bdb_lower);
+	QUE_INIT(bdb->bdb_waiters);
+	QUE_INSERT(bcb->bcb_empty, bdb->bdb_que);
+
+	return bdb;
+}
+
+
+#ifndef PAGE_LATCHING
+static void blocking_ast_bdb(BDB bdb)
+{
+/**************************************
+ *
+ *	b l o c k i n g _ a s t _ b d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Blocking AST for buffer control blocks.  This is called at
+ *	AST (signal) level to indicate that a lock is blocking another
+ *	process.  If the BDB is in use, set a flag indicating that the
+ *	lock is blocking and return.  When the bdb is released at normal
+ *	level the lock will be down graded.  If the BDB is not in use,
+ *	write the page if dirty then downgrade lock.  Things would be
+ *	much hairier if UNIX supported asynchronous IO, but it doesn't.
+ *	WHEW!
+ *
+ **************************************/
+	DBB dbb;
+	BOOLEAN keep_pages;
+	STATUS ast_status[20];
+	struct tdbb thd_context, *tdbb;
+
+	ISC_ast_enter();
+
+/* Since this routine will be called asynchronously, we must establish
+   a thread context. */
+
+	SET_THREAD_DATA;
+
+	BLKCHK(bdb, type_bdb);
+	dbb = bdb->bdb_dbb;
+
+	tdbb->tdbb_database = dbb;
+	tdbb->tdbb_attachment = NULL;
+	tdbb->tdbb_quantum = QUANTUM;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+	tdbb->tdbb_status_vector = ast_status;
+
+/* Do some fancy footwork to make sure that pages are
+   not removed from the btc tree at AST level.  Then
+   restore the flag to whatever it was before. */
+
+	keep_pages = dbb->dbb_bcb->bcb_flags & BCB_keep_pages;
+	dbb->dbb_bcb->bcb_flags |= BCB_keep_pages;
+	ast_status[1] = 0;
+
+	down_grade(tdbb, bdb);
+
+	if (!keep_pages)
+		dbb->dbb_bcb->bcb_flags &= ~BCB_keep_pages;
+
+	if (ast_status[1])
+		gds__log_status(dbb->dbb_file->fil_string, ast_status);
+
+/* Restore the prior thread context */
+
+	RESTORE_THREAD_DATA;
+
+	ISC_ast_exit();
+}
+#endif
+
+
+static void btc_flush(
+					  TDBB tdbb,
+					  SLONG transaction_mask,
+					  BOOLEAN sys_only, STATUS * status)
+{
+/**************************************
+ *
+ *	b t c _ f l u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk the dirty page binary tree, flushing all buffers
+ *	that could have been modified by this transaction.  
+ *	The pages are flushed in page order to roughly 
+ *	emulate an elevator-type disk controller. Iteration 
+ *	is used to minimize call overhead.
+ *
+ **************************************/
+	BDB bdb, next;
+	SLONG max_seen, page, next_page;
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* traverse the tree, flagging to prevent pages
+   from being removed from the tree during write_page() --
+   this simplifies worrying about random pages dropping
+   out when dependencies have been set up */
+
+	max_seen = MIN_PAGE_NUMBER;
+
+/* Pick starting place at leftmost node */
+
+	BTC_MUTEX_ACQUIRE;
+	for (next = dbb->dbb_bcb->bcb_btree; next && next->bdb_left;
+		 next = next->bdb_left);
+
+	if (next)
+		next_page = next->bdb_page;
+
+/* Walk tree.  If we get lost, reposition and continue */
+
+	while (bdb = next) {
+		/* If we're lost, reposition */
+
+		if ((bdb->bdb_page != next_page) ||
+			(!bdb->bdb_parent && (bdb != dbb->dbb_bcb->bcb_btree))) {
+			for (bdb = dbb->dbb_bcb->bcb_btree; bdb;)
+				if (bdb->bdb_left && (max_seen < bdb->bdb_page))
+					bdb = bdb->bdb_left;
+				else if (bdb->bdb_right && (max_seen > bdb->bdb_page))
+					bdb = bdb->bdb_right;
+				else
+					break;
+			if (!bdb)
+				break;
+		}
+
+		/* Decide where to go next.  The options are (right, then down to the left)
+		   or up */
+
+		if (bdb->bdb_right && (max_seen < bdb->bdb_right->bdb_page))
+			for (next = bdb->bdb_right; next->bdb_left;
+				 next = next->bdb_left);
+		else
+			next = bdb->bdb_parent;
+
+		if (next)
+			next_page = next->bdb_page;
+
+		if (max_seen >= bdb->bdb_page)
+			continue;
+
+		max_seen = bdb->bdb_page;
+
+		/* forget about this page if it was written out
+		   as a dependency while we were walking the tree */
+
+		if (!(bdb->bdb_flags & BDB_dirty)) {
+			BTC_MUTEX_RELEASE;
+			btc_remove(bdb);
+			BTC_MUTEX_ACQUIRE;
+			continue;
+		}
+
+		/* this code replicates code in CCH_flush() --
+		   changes should be made in both places */
+
+		if (bdb->bdb_length)
+			continue;
+
+		page = bdb->bdb_page;
+		BTC_MUTEX_RELEASE;
+
+#ifndef SUPERSERVER
+		if (bdb->bdb_use_count)
+			cache_bugcheck(210);	/* msg 210 page in use during flush */
+#endif
+		/* if any transaction has dirtied this page,
+		   check to see if it could have been this one */
+
+		if ((transaction_mask & bdb->bdb_transactions) ||
+			(bdb->bdb_flags & BDB_system_dirty) ||
+			(!transaction_mask && !sys_only) || (!bdb->bdb_transactions)) {
+			if (!write_buffer(tdbb, bdb, page, FALSE, status, TRUE))
+				CCH_unwind(tdbb, TRUE);
+		}
+
+		/* re-post the lock only if it was really written */
+
+		if ((bdb->bdb_ast_flags & BDB_blocking) &&
+			!(bdb->bdb_flags & BDB_dirty)) PAGE_LOCK_RE_POST(bdb->bdb_lock);
+		BTC_MUTEX_ACQUIRE;
+	}
+
+	BTC_MUTEX_RELEASE;
+}
+
+
+static void btc_insert(DBB dbb, BDB bdb)
+{
+/**************************************
+ *
+ *	b t c _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a buffer into the dirty page 
+ *	binary tree.
+ *
+ **************************************/
+	register BDB node;
+	SLONG page;
+
+/* if the page is already in the tree (as in when it is
+   written out as a dependency while walking the tree),
+   just leave well enough alone -- this won't check if 
+   it's at the root but who cares then */
+
+	if (bdb->bdb_parent)
+		return;
+
+	SET_DBB(dbb);
+
+/* if the tree is empty, this is now the tree */
+
+	BTC_MUTEX_ACQUIRE;
+	if (!(node = dbb->dbb_bcb->bcb_btree)) {
+		dbb->dbb_bcb->bcb_btree = bdb;
+		BTC_MUTEX_RELEASE;
+		return;
+	}
+
+/* insert the page sorted by page number;
+   do this iteratively to minimize call overhead */
+
+	page = bdb->bdb_page;
+
+	while (TRUE) {
+		if (page == node->bdb_page)
+			break;
+
+		if (page < node->bdb_page) {
+			if (!node->bdb_left) {
+				node->bdb_left = bdb;
+				bdb->bdb_parent = node;
+				break;
+			}
+			else
+				node = node->bdb_left;
+		}
+		else {
+			if (!node->bdb_right) {
+				node->bdb_right = bdb;
+				bdb->bdb_parent = node;
+				break;
+			}
+			else
+				node = node->bdb_right;
+		}
+	}
+
+	BTC_MUTEX_RELEASE;
+}
+
+
+static void btc_remove(BDB bdb)
+{
+/**************************************
+ *
+ *	b t c _ r e m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ * 	Remove a page from the dirty page binary tree.
+ *	The idea is to place the left child of this 
+ *	page in this page's place, then make the 
+ *	right child of this page a child of the left 
+ *	child -- this removal mechanism won't promote 
+ *	a balanced tree but that isn't of primary
+ *	importance.
+ *
+ **************************************/
+	register BDB ptr;
+	BDB new_child, bdb_parent;
+	DBB dbb;
+	BCB bcb;
+
+	dbb = bdb->bdb_dbb;
+
+/* engage in a little defensive programming to make
+   sure the node is actually in the tree */
+
+	BTC_MUTEX_ACQUIRE;
+	bcb = dbb->dbb_bcb;
+	if ((!bcb->bcb_btree) ||
+		(!bdb->bdb_parent &&
+		 !bdb->bdb_left && !bdb->bdb_right && (bcb->bcb_btree != bdb))) {
+		if ((bdb->bdb_flags & BDB_must_write) || !(bdb->bdb_flags & BDB_dirty)) {	/* Must writes aren't worth the effort */
+			BTC_MUTEX_RELEASE;
+			return;
+		}
+		else
+			cache_bugcheck(211);	/* msg 211 attempt to remove page from dirty page list when not there */
+	}
+
+/* make a new child out of the left and right children */
+
+	if (new_child = bdb->bdb_left) {
+		for (ptr = new_child; ptr->bdb_right; ptr = ptr->bdb_right);
+		if (ptr->bdb_right = bdb->bdb_right)
+			ptr->bdb_right->bdb_parent = ptr;
+	}
+	else
+		new_child = bdb->bdb_right;
+
+/* link the parent with the child node -- 
+   if no parent place it at the root */
+
+	if (!(bdb_parent = bdb->bdb_parent))
+		bcb->bcb_btree = new_child;
+	else if (bdb_parent->bdb_left == bdb)
+		bdb_parent->bdb_left = new_child;
+	else
+		bdb_parent->bdb_right = new_child;
+
+	if (new_child)
+		new_child->bdb_parent = bdb_parent;
+
+/* initialize the node for next usage */
+
+	bdb->bdb_left = bdb->bdb_right = bdb->bdb_parent = (BDB) NULL;
+	BTC_MUTEX_RELEASE;
+}
+
+
+static void cache_bugcheck(int number)
+{
+/**************************************
+ *
+ *	c a c h e _ b u g c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	There has been a bugcheck during a cache operation.  Release
+ *	the cache mutex and post the bugcheck.
+ *
+ **************************************/
+
+	BUGCHECK(number);
+}
+
+
+#ifdef CACHE_READER
+static void THREAD_ROUTINE cache_reader(DBB dbb)
+{
+/**************************************
+ *
+ *	c a c h e _ r e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prefetch pages into cache for sequential scans.
+ *	Use asynchronous I/O to keep two prefetch requests
+ *	busy at a time.
+ *
+ **************************************/
+	struct tdbb thd_context, *tdbb;
+	BCB bcb;
+	BDB bdb;
+	SLONG count, starting_page;
+	STATUS status_vector[20];
+	EVENT reader_event;
+	BOOLEAN found;
+	JMP_BUF env;
+	struct prf prefetch1, prefetch2;
+	PRF post_prefetch, next_prefetch;
+
+	THREAD_ENTER;
+
+/* Establish a thread context. */
+/* Note: Since this function operates as its own thread,
+   we have no need to restore the THREAD CONTEXT on exit.
+   Once we reach the end, the thread will die, thus implicitly
+   killing all its contexts. */
+	SET_THREAD_DATA;
+
+/* Dummy attachment needed for lock owner identification. */
+
+	tdbb->tdbb_database = dbb;
+	tdbb->tdbb_default = dbb->dbb_bufferpool;
+	tdbb->tdbb_status_vector = status_vector;
+	tdbb->tdbb_quantum = QUANTUM;
+	tdbb->tdbb_attachment = (ATT) ALLOCB(type_att);
+	tdbb->tdbb_attachment->att_database = dbb;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+/* This SETJMP is specifically to protect the LCK_init call: if
+   LCK_init fails we won't be able to accomplish anything anyway, so
+   return, unlike the other SETJMP clause further down the page. */
+	if (SETJMP(env)) {
+		gds__log_status(dbb->dbb_file->fil_string, status_vector);
+		THREAD_EXIT;
+		return;
+	}
+
+	LCK_init(tdbb, LCK_OWNER_attachment);
+	reader_event = dbb->dbb_reader_event;
+	bcb = dbb->dbb_bcb;
+	bcb->bcb_flags |= BCB_cache_reader;
+	ISC_event_post(reader_event);	/* Notify our creator that we have started  */
+
+	if (SETJMP(env)) {
+		bcb = dbb->dbb_bcb;
+		gds__log_status(dbb->dbb_file->fil_string, status_vector);
+	}
+
+/* Set up dual prefetch control blocks to keep multiple prefetch
+   requests active at a time. Also helps to prevent the cache reader
+   from becoming dedicated or locked into a single reqeust's prefetch
+   demands. */
+
+	prefetch_init(&prefetch1, tdbb);
+	prefetch_init(&prefetch2, tdbb);
+
+	while (bcb->bcb_flags & BCB_cache_reader) {
+		count = ISC_event_clear(reader_event);
+		bcb->bcb_flags |= BCB_reader_active;
+		found = FALSE;
+		starting_page = -1;
+		next_prefetch = &prefetch1;
+
+		if (dbb->dbb_flags & DBB_suspend_bgio) {
+			THREAD_EXIT;
+			ISC_event_wait(1, &reader_event, &count, 10 * 1000000,
+						   (FPTR_VOID) 0, 0);
+			THREAD_ENTER;
+			continue;
+		}
+
+		/* Make a pass thru the global prefetch bitmap looking for something
+		   to read. When the entire bitmap has been scanned and found to be
+		   empty then wait for new requests. */
+
+		do {
+			if (!(prefetch1.prf_flags & PRF_active) &&
+				SBM_next(bcb->bcb_prefetch, &starting_page, RSE_get_forward)) {
+				found = TRUE;
+				prefetch_prologue(&prefetch1, &starting_page);
+				prefetch_io(&prefetch1, status_vector);
+			}
+
+			if (!(prefetch2.prf_flags & PRF_active) &&
+				SBM_next(bcb->bcb_prefetch, &starting_page, RSE_get_forward)) {
+				found = TRUE;
+				prefetch_prologue(&prefetch2, &starting_page);
+				prefetch_io(&prefetch2, status_vector);
+			}
+
+			post_prefetch = next_prefetch;
+			next_prefetch =
+				(post_prefetch == &prefetch1) ? &prefetch2 : &prefetch1;
+			if (post_prefetch->prf_flags & PRF_active)
+				prefetch_epilogue(post_prefetch, status_vector);
+
+			if (found) {
+				/* If the cache writer or garbage collector is idle, put
+				   them to work prefetching pages. */
+#ifdef CACHE_WRITER
+				if (bcb->bcb_flags & BCB_cache_writer &&
+					!(bcb->bcb_flags & BCB_writer_active))
+						ISC_event_post(dbb->dbb_writer_event);
+#endif
+#ifdef GARBAGE_THREAD
+				if (dbb->dbb_flags & DBB_garbage_collector &&
+					!(dbb->dbb_flags & DBB_gc_active))
+					ISC_event_post(dbb->dbb_gc_event);
+#endif
+			}
+		} while (prefetch1.prf_flags & PRF_active
+				 || prefetch2.prf_flags & PRF_active);
+
+		/* If there's more work to do voluntarily ask to be rescheduled.
+		   Otherwise, wait for event notification. */
+
+		if (found)
+			(void) JRD_reschedule(tdbb, 0, TRUE);
+		else if (bcb->bcb_flags & BCB_free_pending &&
+				 (bdb = get_buffer(tdbb, FREE_PAGE, LATCH_none, 1))) {
+			/* In our spare time, help writer clean the cache. */
+
+			write_buffer(tdbb, bdb, bdb->bdb_page, TRUE, status_vector, TRUE);
+		}
+		else {
+			bcb->bcb_flags &= ~BCB_reader_active;
+			THREAD_EXIT;
+			ISC_event_wait(1, &reader_event, &count, 10 * 1000000,
+						   (FPTR_VOID) 0, 0);
+			THREAD_ENTER;
+		}
+		bcb = dbb->dbb_bcb;
+	}
+
+	LCK_fini(tdbb, LCK_OWNER_attachment);
+	ALL_release(tdbb->tdbb_attachment);
+	bcb->bcb_flags &= ~BCB_cache_reader;
+	ISC_event_post(reader_event);
+	THREAD_EXIT;
+}
+#endif
+
+
+#ifdef CACHE_WRITER
+static void THREAD_ROUTINE cache_writer(DBB dbb)
+{
+/**************************************
+ *
+ *	c a c h e _ w r i t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write dirty pages to database to maintain an
+ *	adequate supply of free pages. If WAL is enabled,
+ *	perform database checkpoint when WAL subsystem
+ *	deems it necessary.
+ *
+ **************************************/
+	struct tdbb thd_context, *tdbb;
+	bcb::bcb_repeat * tail, *end;
+	BCB bcb;
+	BDB bdb;
+	SLONG count, seq, p_off, off, starting_page;
+#ifdef SUPERSERVER_V2
+	SLONG commit_mask;
+#endif
+	SSHORT start_chkpt;
+	STATUS status_vector[20];
+	SCHAR walname[256];
+	EVENT writer_event;
+	JMP_BUF env;
+
+	THREAD_ENTER;
+
+/* Establish a thread context. */
+/* Note: Since this function operates as its own thread,
+   we have no need to restore the THREAD CONTEXT on exit.
+   Once we reach the end, the thread will die, thus implicitly
+   killing all its contexts. */
+	SET_THREAD_DATA;
+
+/* Dummy attachment needed for lock owner identification. */
+
+	tdbb->tdbb_database = dbb;
+	tdbb->tdbb_default = dbb->dbb_bufferpool;
+	tdbb->tdbb_status_vector = status_vector;
+	tdbb->tdbb_quantum = QUANTUM;
+	tdbb->tdbb_attachment = (ATT) ALLOCB(type_att);
+	tdbb->tdbb_attachment->att_database = dbb;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+/* This SETJMP is specifically to protect the LCK_init call: if
+   LCK_init fails we won't be able to accomplish anything anyway, so
+   return, unlike the other SETJMP clause further down the page. */
+	if (SETJMP(env)) {
+		gds__log_status(dbb->dbb_file->fil_string, status_vector);
+		THREAD_EXIT;
+		return;
+	}
+
+	LCK_init(tdbb, LCK_OWNER_attachment);
+	writer_event = dbb->dbb_writer_event;
+	bcb = dbb->dbb_bcb;
+	bcb->bcb_flags |= BCB_cache_writer;
+	ISC_event_post(writer_event);
+
+	if (SETJMP(env)) {
+		bcb = dbb->dbb_bcb;
+		gds__log_status(dbb->dbb_file->fil_string, status_vector);
+	}
+
+	while (bcb->bcb_flags & BCB_cache_writer) {
+		count = ISC_event_clear(writer_event);
+		bcb->bcb_flags |= BCB_writer_active;
+		starting_page = -1;
+
+		if (dbb->dbb_flags & DBB_suspend_bgio) {
+			THREAD_EXIT;
+			ISC_event_wait(1, &writer_event, &count, 10 * 1000000,
+						   (FPTR_VOID) 0, 0);
+			THREAD_ENTER;
+			continue;
+		}
+
+#ifdef SUPERSERVER_V2
+		/* Flush buffers for lazy commit */
+
+		if (!(dbb->dbb_flags & DBB_force_write) &&
+			(commit_mask = dbb->dbb_flush_cycle)) {
+			dbb->dbb_flush_cycle = 0;
+			btc_flush(tdbb, commit_mask, FALSE, status_vector);
+		}
+#endif
+
+		if (bcb->bcb_flags & BCB_free_pending) {
+			if (bdb = get_buffer(tdbb, FREE_PAGE, LATCH_none, 1)) {
+				write_buffer(tdbb, bdb, bdb->bdb_page, TRUE, status_vector,
+							 TRUE);
+				bcb = dbb->dbb_bcb;
+			}
+
+			/* If the cache reader or garbage collector is idle, put
+			   them to work freeing pages. */
+#ifdef CACHE_READER
+			if (bcb->bcb_flags & BCB_cache_reader &&
+				!(bcb->bcb_flags & BCB_reader_active))
+					ISC_event_post(dbb->dbb_reader_event);
+#endif
+#ifdef GARBAGE_THREAD
+			if (dbb->dbb_flags & DBB_garbage_collector &&
+				!(dbb->dbb_flags & DBB_gc_active))
+					ISC_event_post(dbb->dbb_gc_event);
+#endif
+		}
+
+		if (dbb->dbb_wal) {
+			if (bcb->bcb_checkpoint)
+				if (bdb = get_buffer(tdbb, CHECKPOINT_PAGE, LATCH_none, 1)) {
+					write_buffer(tdbb, bdb, bdb->bdb_page, TRUE,
+								 status_vector, TRUE);
+					bcb = dbb->dbb_bcb;
+				}
+				else
+					bcb->bcb_checkpoint = 0;
+
+			if (!bcb->bcb_checkpoint && !(bcb->bcb_flags & BCB_checkpoint_db))
+				if (WAL_checkpoint_start(status_vector,
+										 dbb->dbb_wal,
+										 &start_chkpt) !=
+					SUCCESS) gds__log_status(dbb->dbb_file->fil_string,
+											 status_vector);
+				else if (start_chkpt)
+					bcb->bcb_flags |= BCB_checkpoint_db;
+
+			if ((bcb->bcb_flags & BCB_checkpoint_db) && !bcb->bcb_checkpoint) {
+				if (WAL_checkpoint_finish(status_vector, dbb->dbb_wal,
+										  &seq, walname, &p_off,
+										  &off) !=
+					SUCCESS) gds__log_status(dbb->dbb_file->fil_string,
+											 status_vector);
+				else {
+					AIL_checkpoint_finish(status_vector, dbb, seq, walname,
+										  p_off, off);
+					bcb = dbb->dbb_bcb;
+					bcb->bcb_flags &= ~BCB_checkpoint_db;
+					for (tail = bcb->bcb_rpt, end = tail + bcb->bcb_count;
+						 tail < end; tail++) {
+						bdb = tail->bcb_bdb;
+						if (bdb->bdb_length)
+							continue;
+						if (bdb->bdb_flags & BDB_db_dirty) {
+							bdb->bdb_flags |= BDB_checkpoint;
+							++bcb->bcb_checkpoint;
+						}
+					}
+				}
+			}
+		}
+
+		/* If there's more work to do voluntarily ask to be rescheduled.
+		   Otherwise, wait for event notification. */
+
+		if ((bcb->bcb_flags & BCB_free_pending) ||
+			bcb->bcb_checkpoint || dbb->dbb_flush_cycle) {
+			(void) JRD_reschedule(tdbb, 0, TRUE);
+		}
+#ifdef CACHE_READER
+		else if (SBM_next(bcb->bcb_prefetch, &starting_page, RSE_get_forward)) {
+			/* Prefetch some pages in our spare time and in the process
+			   garbage collect the prefetch bitmap. */
+			struct prf prefetch;
+
+			prefetch_init(&prefetch, tdbb);
+			prefetch_prologue(&prefetch, &starting_page);
+			prefetch_io(&prefetch, status_vector);
+			prefetch_epilogue(&prefetch, status_vector);
+		}
+#endif
+		else {
+			bcb->bcb_flags &= ~BCB_writer_active;
+			THREAD_EXIT;
+			ISC_event_wait(1, &writer_event, &count, 10 * 1000000,
+						   (FPTR_VOID) 0, 0);
+			THREAD_ENTER;
+		}
+		bcb = dbb->dbb_bcb;
+	}
+
+	LCK_fini(tdbb, LCK_OWNER_attachment);
+	ALL_release(reinterpret_cast < frb * >(tdbb->tdbb_attachment));
+	bcb->bcb_flags &= ~BCB_cache_writer;
+	ISC_event_post(writer_event);
+	THREAD_EXIT;
+}
+#endif
+
+
+static void check_precedence(TDBB tdbb, WIN * window, SLONG page)
+{
+/**************************************
+ *
+ *	c h e c k _ p r e c e d e n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a window accessed for write and a page number,
+ *	establish a precedence relationship such that the
+ *	specified page will always be written before the page
+ *	associated with the window.
+ *
+ *	If the "page number" is negative, it is really a transaction
+ *	id.  In this case, the precedence relationship is to the
+ *	database header page from which the transaction id was
+ *	obtained.  If the header page has been written since the
+ *	transaction id was assigned, no precedence relationship
+ *	is required.
+ *
+ **************************************/
+	DBB dbb;
+	register BDB high, low;
+	register PRE precedence;
+	QUE que, mod_que;
+	BCB bcb;
+	SLONG low_page, high_page;
+	SSHORT relationship;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* If this is really a transaction id, sort things out */
+
+	if (page < 0)
+		if (-page <= dbb->dbb_last_header_write)
+			return;
+		else
+			page = 0;
+
+/* Start by finding the buffer containing the high priority page */
+
+	BCB_MUTEX_ACQUIRE;
+	PRE_MUTEX_ACQUIRE;
+	bcb = dbb->dbb_bcb;
+	mod_que = &bcb->bcb_rpt[page % bcb->bcb_count].bcb_page_mod;
+
+	for (que = mod_que->que_forward; que != mod_que; que = que->que_forward)
+		if ((high = BLOCK(que, BDB, bdb_que))->bdb_page == page)
+			break;
+
+	BCB_MUTEX_RELEASE;
+	if (que == mod_que) {
+		PRE_MUTEX_RELEASE;
+		return;
+	}
+
+/* Found the higher precedence buffer.  If it's not dirty, don't sweat it.
+   If it's the same page, ditto.  */
+
+	if (!(high->bdb_flags & BDB_dirty)
+		|| (high->bdb_page == window->win_page)) {
+		PRE_MUTEX_RELEASE;
+		return;
+	}
+
+	low = window->win_bdb;
+
+	if ((low->bdb_flags & BDB_marked) && !(low->bdb_flags & BDB_faked))
+		cache_bugcheck(212);	/* msg 212 CCH_precedence: block marked */
+
+/* If already related, there's nothing more to do. If the precedence
+   search was too complex to complete, just write the high page and
+   forget about about establishing the relationship. */
+
+	if (QUE_NOT_EMPTY(high->bdb_lower)) {
+		relationship = related(low, high, PRE_SEARCH_LIMIT);
+		if (relationship == PRE_EXISTS) {
+			PRE_MUTEX_RELEASE;
+			return;
+		}
+		else if (relationship == PRE_UNKNOWN) {
+			high_page = high->bdb_page;
+			PRE_MUTEX_RELEASE;
+			if (!write_buffer
+				(tdbb, high, high_page, FALSE, tdbb->tdbb_status_vector,
+				 TRUE)) CCH_unwind(tdbb, TRUE);
+			return;
+		}
+	}
+
+/* Check to see if we're going to create a cycle or the precedence search
+   was too complex to complete.  If so, force a write of the "after"
+   (currently fetched) page.  Assuming everyone obeys the rules and calls
+   precedence before marking the buffer, everything should be ok */
+
+	if (QUE_NOT_EMPTY(low->bdb_lower)) {
+		relationship = related(high, low, PRE_SEARCH_LIMIT);
+		if (relationship == PRE_EXISTS || relationship == PRE_UNKNOWN) {
+			low_page = low->bdb_page;
+			PRE_MUTEX_RELEASE;
+			if (!write_buffer
+				(tdbb, low, low_page, FALSE, tdbb->tdbb_status_vector, TRUE))
+				CCH_unwind(tdbb, TRUE);
+			PRE_MUTEX_ACQUIRE;
+		}
+	}
+
+/* We're going to establish a new precedence relationship.  Get a block,
+   fill in the appropriate fields, and insert it into the various ques */
+
+	bcb = dbb->dbb_bcb;			/* Re-initialize */
+
+	if (precedence = bcb->bcb_free)
+		bcb->bcb_free = (PRE) precedence->pre_hi;
+	else
+		precedence = (PRE) ALLOCB(type_pre);
+
+	precedence->pre_low = low;
+	precedence->pre_hi = high;
+	precedence->pre_flags = 0;
+	QUE_INSERT(low->bdb_higher, precedence->pre_higher);
+	QUE_INSERT(high->bdb_lower, precedence->pre_lower);
+	PRE_MUTEX_RELEASE;
+}
+
+
+
+static void clear_precedence(DBB dbb, BDB bdb)
+{
+/**************************************
+ *
+ *	c l e a r _ p r e c e d e n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear precedence relationships to lower precedence block.
+ *
+ **************************************/
+	register QUE que;
+	register PRE precedence;
+	BDB low_bdb;
+	BCB bcb;
+
+	SET_DBB(dbb);
+
+	PRE_MUTEX_ACQUIRE;
+	bcb = dbb->dbb_bcb;
+
+/* Loop thru lower precedence buffers.  If any can be downgraded,
+   by all means down grade them. */
+
+	while (QUE_NOT_EMPTY(bdb->bdb_lower)) {
+		que = bdb->bdb_lower.que_forward;
+		precedence = BLOCK(que, PRE, pre_lower);
+		low_bdb = precedence->pre_low;
+		QUE_DELETE(precedence->pre_higher);
+		QUE_DELETE(precedence->pre_lower);
+		precedence->pre_hi = (BDB) bcb->bcb_free;
+		bcb->bcb_free = precedence;
+		if (!(precedence->pre_flags & PRE_cleared)) {
+			if (low_bdb->bdb_ast_flags & BDB_blocking)
+				PAGE_LOCK_RE_POST(low_bdb->bdb_lock);
+		}
+	}
+
+	PRE_MUTEX_RELEASE;
+}
+
+
+static BDB dealloc_bdb(BDB bdb)
+{
+/**************************************
+ *
+ *	d e a l l o c _ b d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Deallocate buffer descriptor block.
+ *
+ **************************************/
+
+	if (bdb) {
+#ifndef PAGE_LATCHING
+		if (bdb->bdb_lock)
+			ALL_release(bdb->bdb_lock);
+#endif
+		QUE_DELETE(bdb->bdb_que);
+		ALL_release(reinterpret_cast < frb * >(bdb));
+	}
+
+	return 0;
+}
+
+
+#ifndef PAGE_LATCHING
+static BOOLEAN down_grade(TDBB tdbb, BDB bdb)
+{
+/**************************************
+ *
+ *	d o w n _ g r a d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	A lock on a page is blocking another process.  If possible, downgrade
+ *	the lock on the buffer.  This may be called from either AST or
+ *	regular level.  Return TRUE if the down grade was successful.  If the
+ *	down grade was deferred for any reason, return FALSE.
+ *
+ **************************************/
+	LCK lock;
+	QUE que;
+	PRE precedence;
+	BDB blocking_bdb;
+	DBB dbb;
+	USHORT in_use, invalid;
+
+	SET_TDBB(tdbb);
+
+	bdb->bdb_ast_flags |= BDB_blocking;
+	lock = bdb->bdb_lock;
+	dbb = bdb->bdb_dbb;
+
+	if (dbb->dbb_flags & DBB_bugcheck) {
+		PAGE_LOCK_RELEASE(bdb->bdb_lock);
+		bdb->bdb_ast_flags &= ~BDB_blocking;
+		bdb->bdb_flags &= ~BDB_dirty;
+		return TRUE;
+	}
+
+/* If the BDB is in use and, being written or already
+   downgraded to read, mark it as blocking and exit. */
+
+	if (bdb->bdb_use_count)
+		return FALSE;
+
+	latch_bdb(tdbb, LATCH_io, bdb, bdb->bdb_page, 1);
+
+/* If the page isn't dirty, the lock can be quietly downgraded. */
+
+	if (!(bdb->bdb_flags & BDB_dirty)) {
+		bdb->bdb_ast_flags &= ~BDB_blocking;
+#ifdef VMS
+		if (lock->lck_logical == LCK_write)
+			LCK_convert(tdbb, lock, LCK_read, LCK_WAIT);
+		else
+			PAGE_LOCK_RELEASE(bdb->bdb_lock);
+#else
+		LCK_downgrade(tdbb, lock);
+#endif
+		release_bdb(tdbb, bdb, FALSE, FALSE, FALSE);
+		return TRUE;
+	}
+
+	in_use = invalid = FALSE;
+
+	if (bdb->bdb_flags & BDB_not_valid)
+		invalid = TRUE;
+
+/* If there are higher precedence guys, see if they can be written. */
+
+	for (que = bdb->bdb_higher.que_forward; que != &bdb->bdb_higher;
+		 que = que->que_forward) {
+		precedence = BLOCK(que, PRE, pre_higher);
+		if (precedence->pre_flags & PRE_cleared)
+			continue;
+		if (invalid) {
+			precedence->pre_flags |= PRE_cleared;
+			continue;
+		}
+		blocking_bdb = precedence->pre_hi;
+		if (blocking_bdb->bdb_flags & BDB_dirty) {
+			down_grade(tdbb, blocking_bdb);
+			if (blocking_bdb->bdb_flags & BDB_dirty)
+				in_use = TRUE;
+			if (blocking_bdb->bdb_flags & BDB_not_valid) {
+				invalid = TRUE;
+				in_use = FALSE;
+				que = bdb->bdb_higher.que_forward;
+			}
+		}
+	}
+
+/* If any higher precedence buffer can't be written, mark this buffer
+   as blocking and exit. */
+
+	if (in_use) {
+		release_bdb(tdbb, bdb, FALSE, FALSE, FALSE);
+		return FALSE;
+	}
+
+/* Everything is clear to write this buffer.  Do so and reduce the lock */
+
+	if (invalid
+		|| !write_page(tdbb, bdb, FALSE, tdbb->tdbb_status_vector, TRUE)) {
+		bdb->bdb_flags |= BDB_not_valid;
+		bdb->bdb_flags &= ~BDB_dirty;
+		bdb->bdb_ast_flags &= ~BDB_blocking;
+		TRA_invalidate(dbb, bdb->bdb_transactions);
+		bdb->bdb_transactions = 0;
+		PAGE_LOCK_RELEASE(bdb->bdb_lock);
+	}
+	else {
+		bdb->bdb_ast_flags &= ~BDB_blocking;
+#ifdef VMS
+		LCK_convert(tdbb, lock, LCK_read, LCK_WAIT);
+#else
+		LCK_downgrade(tdbb, lock);
+#endif
+	}
+
+/* Clear precedence relationships to lower precedence buffers.  Since it
+   isn't safe to tweak the que pointers from AST level, just mark the
+   precedence links as cleared.  Somebody else will clean up the precedence
+   blocks. */
+
+	for (que = bdb->bdb_lower.que_forward; que != &bdb->bdb_lower;
+		 que = que->que_forward) {
+		precedence = BLOCK(que, PRE, pre_lower);
+		blocking_bdb = precedence->pre_low;
+		if (bdb->bdb_flags & BDB_not_valid)
+			blocking_bdb->bdb_flags |= BDB_not_valid;
+		precedence->pre_flags |= PRE_cleared;
+		if (blocking_bdb->bdb_flags & BDB_not_valid ||
+			blocking_bdb->bdb_ast_flags & BDB_blocking)
+			down_grade(tdbb, blocking_bdb);
+	}
+
+	bdb->bdb_flags &= ~BDB_not_valid;
+	release_bdb(tdbb, bdb, FALSE, FALSE, FALSE);
+
+	return TRUE;
+}
+#endif
+
+
+static void expand_buffers(TDBB tdbb, ULONG number)
+{
+/**************************************
+ *
+ *	e x p a n d _ b u f f e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand the cache to at least a given number of buffers.  If
+ *	it's already that big, don't do anything.
+ *
+ **************************************/
+	DBB dbb;
+	BDB bdb;
+	BCB old;
+	LLS stack;
+	QUE que, mod_que;
+	UCHAR *memory;
+	struct plb *old_pool;
+	bcb::bcb_repeat * new_tail, *old_tail, *new_end, *old_end;
+	ULONG num_per_seg, num_in_seg, left_to_do;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	old = dbb->dbb_bcb;
+
+	if (number <= old->bcb_count || number > MAX_PAGE_BUFFERS)
+		return;
+
+/* for Win16 platform, we want to ensure that no cache buffer ever
+   ends on a segment boundary */
+
+	num_in_seg = 0;
+	num_per_seg = number - old->bcb_count;
+	left_to_do = num_per_seg;
+
+/* Allocate and initialize buffers control block */
+
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = dbb->dbb_bufferpool;
+
+	old = dbb->dbb_bcb;
+	old_end = old->bcb_rpt + old->bcb_count;
+
+	BCB new_ = (BCB) ALLOCBV(type_bcb, number);
+	new_->bcb_count = number;
+	new_->bcb_free_minimum = (SSHORT) MIN(number / 4, 128);	/* 25% clean page reserve */
+	new_->bcb_checkpoint = old->bcb_checkpoint;
+	new_->bcb_flags = old->bcb_flags;
+	new_end = new_->bcb_rpt + number;
+
+/* point at the dirty page binary tree */
+
+	new_->bcb_btree = old->bcb_btree;
+
+/* point at the free precedence blocks */
+
+	new_->bcb_free = old->bcb_free;
+
+/* position the new bcb in the in use, empty and latch queues */
+
+	QUE_INSERT(old->bcb_in_use, new_->bcb_in_use);
+	QUE_DELETE(old->bcb_in_use);
+	QUE_INSERT(old->bcb_empty, new_->bcb_empty);
+	QUE_DELETE(old->bcb_empty);
+	QUE_INSERT(old->bcb_free_lwt, new_->bcb_free_lwt);
+	QUE_DELETE(old->bcb_free_lwt);
+
+/* Copy addresses of previously allocated buffer space to new block */
+
+	for (stack = old->bcb_memory; stack; stack = stack->lls_next)
+		LLS_PUSH(stack->lls_object, &new_->bcb_memory);
+
+/* Initialize tail of new buffer control block */
+
+	for (new_tail = new_->bcb_rpt; new_tail < new_end; new_tail++)
+		QUE_INIT(new_tail->bcb_page_mod);
+
+/* Move any active buffers from old block to new */
+
+	new_tail = new_->bcb_rpt;
+
+	for (old_tail = old->bcb_rpt; old_tail < old_end; old_tail++, new_tail++) {
+		new_tail->bcb_bdb = old_tail->bcb_bdb;
+		while (QUE_NOT_EMPTY(old_tail->bcb_page_mod)) {
+			que = old_tail->bcb_page_mod.que_forward;
+			bdb = BLOCK(que, BDB, bdb_que);
+			QUE_DELETE((*que));
+			mod_que =
+				&new_->bcb_rpt[bdb->bdb_page % new_->bcb_count].bcb_page_mod;
+			QUE_INSERT((*mod_que), (*que));
+		}
+	}
+
+/* Allocate new buffer descriptor blocks */
+
+	for (; new_tail < new_end; new_tail++) {
+		/* if current segment is exhausted, allocate another */
+
+		if (!num_in_seg) {
+			memory = (UCHAR *) ALL_sys_alloc(((SLONG) dbb->dbb_page_size *
+											  (num_per_seg + 1)), ERR_jmp);
+			LLS_PUSH(memory, &new_->bcb_memory);
+			memory = (UCHAR *) (((U_IPTR) memory + dbb->dbb_page_size - 1) &
+								~((int) dbb->dbb_page_size - 1));
+			num_in_seg = num_per_seg;
+			left_to_do -= num_per_seg;
+			if (num_per_seg > left_to_do)
+				num_per_seg = left_to_do;
+		}
+		new_tail->bcb_bdb = alloc_bdb(tdbb, new_, &memory);
+		num_in_seg--;
+	}
+
+/* Set up new buffer control, release old buffer control, and clean up */
+
+	dbb->dbb_bcb = new_;
+
+	ALL_release(reinterpret_cast < frb * >(old));
+	tdbb->tdbb_default = old_pool;
+}
+
+
+static BDB get_buffer(TDBB tdbb, SLONG page, LATCH latch, SSHORT latch_wait)
+{
+/**************************************
+ *
+ *	g e t _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a buffer.  If possible, get a buffer already assigned
+ *	to the page.  Otherwise get one from the free list or pick
+ *	the least recently used buffer to be reused.
+ *	Note the following special page numbers:
+ *	     -1 indicates that a buffer is required for journaling
+ *	     -2 indicates a special scratch buffer for shadowing
+ *
+ * input
+ *	page:		page to get
+ *	latch:		type of latch to acquire on the page.
+ *	latch_wait:	1 => Wait as long as necessary to get the latch.
+ *				This can cause deadlocks of course.
+ *			0 => If the latch can't be acquired immediately,
+ *				give up and return 0;
+ *	      		<negative number> => Latch timeout interval in seconds.
+ *
+ * return
+ *	bdb pointer if successful.
+ *	NULL pointer if timeout occurred (only possible is latch_wait <> 1).
+ *		     if cache manager doesn't have any pages to write anymore.
+ *	
+ **************************************/
+	DBB dbb;
+	QUE mod_que;
+	register QUE que;
+	register BDB oldest, bdb;
+	register BCB bcb;
+	PRE precedence;
+	SSHORT latch_return, walk;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	walk = dbb->dbb_bcb->bcb_free_minimum;
+
+	BCB_MUTEX_ACQUIRE;
+
+	while (TRUE) {
+	  find_page:
+
+		bcb = dbb->dbb_bcb;
+		if (page >= 0) {
+			/* Check to see if buffer has already been assigned to page */
+
+			mod_que = &bcb->bcb_rpt[page % bcb->bcb_count].bcb_page_mod;
+			for (que = mod_que->que_forward; que != mod_que;
+				 que = que->que_forward) if ((bdb =
+											  BLOCK(que, BDB,
+													bdb_que))->bdb_page ==
+											 page) {
+#ifdef SUPERSERVER_V2
+					if (page != HEADER_PAGE)
+#endif
+						QUE_MOST_RECENTLY_USED(bdb->bdb_in_use);
+					BCB_MUTEX_RELEASE;
+					if (latch_return =
+						latch_bdb(tdbb, latch, bdb, page, latch_wait)) {
+						if (latch_return == 1)
+							return (BDB) 0;	/* permitted timeout happened */
+						BCB_MUTEX_ACQUIRE;
+						goto find_page;
+					}
+					else {
+						bdb->bdb_flags &= ~(BDB_faked | BDB_prefetch);
+						bdb->bdb_sequence = dbb->dbb_fetches++;
+						return bdb;
+					}
+				}
+		}
+#ifdef CACHE_WRITER
+		else if ((page == FREE_PAGE) || (page == CHECKPOINT_PAGE)) {
+			/* This code is only used by the background I/O threads:
+			   cache writer, cache reader and garbage collector. */
+
+			for (que = bcb->bcb_in_use.que_backward;
+				 que != &bcb->bcb_in_use; que = que->que_backward) {
+				bdb = BLOCK(que, BDB, bdb_in_use);
+				if (page == FREE_PAGE) {
+					if (bdb->bdb_use_count ||
+						bdb->bdb_flags & BDB_free_pending) continue;
+					if (bdb->bdb_flags & BDB_db_dirty) {
+						BCB_MUTEX_RELEASE;
+						return bdb;
+					}
+					if (!--walk) {
+						bcb->bcb_flags &= ~BCB_free_pending;
+						break;
+					}
+				}
+				else {			/* if (page == CHECKPOINT_PAGE) */
+
+					if (bdb->bdb_flags & BDB_checkpoint) {
+						BCB_MUTEX_RELEASE;
+						return bdb;
+					}
+				}
+			}
+
+			BCB_MUTEX_RELEASE;
+			return (BDB) 0;
+		}
+#endif
+
+		for (que = bcb->bcb_in_use.que_backward;
+			 que != &bcb->bcb_in_use || QUE_NOT_EMPTY(bcb->bcb_empty);
+			 que = que->que_backward) {
+			bcb = dbb->dbb_bcb;	/* Re-initialize in the loop */
+			mod_que = &bcb->bcb_rpt[page % bcb->bcb_count].bcb_page_mod;
+
+			/* If there is an empty buffer sitting around, allocate it */
+
+			if (QUE_NOT_EMPTY(bcb->bcb_empty)) {
+				que = bcb->bcb_empty.que_forward;
+				QUE_DELETE((*que));
+				bdb = BLOCK(que, BDB, bdb_que);
+				if (page >= 0) {
+					QUE_INSERT((*mod_que), (*que));
+#ifdef SUPERSERVER_V2
+					/* Reserve a buffer for header page with deferred header
+					   page write mechanism. Otherwise, a deadlock will occur
+					   if all dirty pages in the cache must force header page
+					   to disk before they can be written but there is no free
+					   buffer to read the header page into. */
+
+					if (page != HEADER_PAGE)
+#endif
+						QUE_INSERT(bcb->bcb_in_use, bdb->bdb_in_use);
+				}
+
+				/* This correction for bdb_use_count below is needed to 
+				   avoid a deadlock situation in latching code.  It's not
+				   clear though how the bdb_use_count can get < 0 for a bdb
+				   in bcb_empty queue */
+				if (bdb->bdb_use_count < 0)
+					cache_bugcheck(301);	/* msg 301 Non-zero use_count of a buffer in the empty que */
+
+				bdb->bdb_page = page;
+				bdb->bdb_flags = BDB_read_pending;
+				bdb->bdb_scan_count = 0;
+				/* The following latch should never fail because the buffer is 'empty'
+				   and the page is not in cache. */
+				if (latch_bdb(tdbb, latch, bdb, page, -100) == -1)
+					cache_bugcheck(302);	/* msg 302 unexpected page change */
+#ifndef PAGE_LATCHING
+				if (page >= 0)
+					bdb->bdb_lock->lck_logical = LCK_none;
+				else
+					PAGE_LOCK_RELEASE(bdb->bdb_lock);
+#endif
+				bdb->bdb_sequence = dbb->dbb_fetches++;
+				BCB_MUTEX_RELEASE;
+				return bdb;
+			}
+
+			/* get the oldest buffer as the least recently used -- note
+			   that since there are no empty buffers this queue cannot be empty */
+
+			if (bcb->bcb_in_use.que_forward == &bcb->bcb_in_use)
+				cache_bugcheck(213);	/* msg 213 insufficient cache size */
+
+			oldest = BLOCK(que, BDB, bdb_in_use);
+			LATCH_MUTEX_ACQUIRE;
+			if (oldest->bdb_use_count
+				|| (oldest->bdb_flags & BDB_free_pending)
+				|| !writeable(oldest)) {
+				LATCH_MUTEX_RELEASE;
+				continue;
+			}
+
+#ifdef SUPERSERVER_V2
+			/* If page has been prefetched but not yet fetched, let
+			   it cycle once more thru LRU queue before re-using it. */
+
+			if (oldest->bdb_flags & BDB_prefetch) {
+				oldest->bdb_flags &= ~BDB_prefetch;
+				que = que->que_forward;
+				QUE_MOST_RECENTLY_USED(oldest->bdb_in_use);
+				LATCH_MUTEX_RELEASE;
+				continue;
+			}
+#endif
+			LATCH_MUTEX_RELEASE;
+#ifdef CACHE_WRITER
+			if (oldest->bdb_flags & (BDB_dirty | BDB_db_dirty)) {
+				bcb->bcb_flags |= BCB_free_pending;
+				if (bcb->bcb_flags & BCB_cache_writer &&
+					!(bcb->bcb_flags & BCB_writer_active))
+						ISC_event_post(dbb->dbb_writer_event);
+				if (walk) {
+					if (!--walk)
+						break;
+					else
+						continue;
+				}
+			}
+#endif
+			bdb = oldest;
+			if (latch_bdb(tdbb, LATCH_exclusive, bdb, bdb->bdb_page, 0))
+				continue;		/* bdb changed, continue looking for a buffer */
+			QUE_MOST_RECENTLY_USED(bdb->bdb_in_use);
+			bdb->bdb_flags |= BDB_free_pending;
+
+			/* If the buffer selected is dirty, arrange to have it written. */
+
+			if (bdb->bdb_flags & (BDB_dirty | BDB_db_dirty)) {
+				BCB_MUTEX_RELEASE;
+#ifdef SUPERSERVER
+				if (!write_buffer
+					(tdbb, bdb, bdb->bdb_page, TRUE, tdbb->tdbb_status_vector,
+					 TRUE))
+#else
+				if (!write_buffer
+					(tdbb, bdb, bdb->bdb_page, FALSE,
+					 tdbb->tdbb_status_vector, TRUE))
+#endif
+				{
+					bdb->bdb_flags &= ~BDB_free_pending;
+					release_bdb(tdbb, bdb, FALSE, FALSE, FALSE);
+					CCH_unwind(tdbb, TRUE);
+				}
+			}
+
+			bcb = dbb->dbb_bcb;	/* Re-initialize */
+
+			/* If the buffer is still in the dirty tree, remove it.
+			   In any case, release any lock it may have. */
+
+			if (bdb->bdb_parent || (bdb == bcb->bcb_btree))
+				btc_remove(bdb);
+
+			/* if the page has an expanded index buffer, release it */
+
+			if (bdb->bdb_expanded_buffer) {
+				ALL_free((SCHAR *) bdb->bdb_expanded_buffer);
+				bdb->bdb_expanded_buffer = NULL;
+			}
+
+			/* Cleanup any residual precedence blocks.  Unless something is
+			   screwed up, the only precedence blocks that can still be hanging
+			   around are ones cleared at AST level. */
+
+			PRE_MUTEX_ACQUIRE;
+			while (QUE_NOT_EMPTY(bdb->bdb_higher)) {
+				QUE que2;
+
+				que2 = bdb->bdb_higher.que_forward;
+				precedence = BLOCK(que2, PRE, pre_higher);
+				QUE_DELETE(precedence->pre_higher);
+				QUE_DELETE(precedence->pre_lower);
+				precedence->pre_hi = (BDB) bcb->bcb_free;
+				bcb->bcb_free = precedence;
+			}
+			PRE_MUTEX_RELEASE;
+
+			clear_precedence(dbb, bdb);
+
+			/* remove the buffer from the "mod" queue and place it
+			   in it's new spot, provided it's not a negative (scratch) page */
+
+			BCB_MUTEX_ACQUIRE;
+			if (bdb->bdb_page >= 0)
+				QUE_DELETE(bdb->bdb_que);
+			QUE_INSERT(bcb->bcb_empty, bdb->bdb_que);
+			QUE_DELETE(bdb->bdb_in_use)
+
+				bdb->bdb_page = JOURNAL_PAGE;
+			release_bdb(tdbb, bdb, FALSE, FALSE, FALSE);
+			break;
+		}
+
+		if (que == &bcb->bcb_in_use)
+#ifdef SUPERSERVER
+			expand_buffers(tdbb, bcb->bcb_count + 75);
+#else
+			cache_bugcheck(214);	/* msg 214 no cache buffers available for reuse */
+#endif
+	}
+}
+
+
+static void journal_buffer(STATUS * status, BDB bdb)
+{
+/**************************************
+ *
+ *	j o u r n a l _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write buffer (or associated record buffer) to journal pending
+ *	write of page.
+ *
+ **************************************/
+	BDB journal;
+	BCB bcb;
+	DBB dbb;
+	ULONG seqno, offset;
+	JRND header;
+
+	dbb = bdb->bdb_dbb;
+	bdb->bdb_flags &= ~BDB_journal;
+
+	seqno = offset = 0;
+
+/* If the whole page is to go, let somebody else do the work */
+
+	if (!(journal = bdb->bdb_jrn_bdb)) {
+		bdb->bdb_buffer->pag_seqno = seqno;
+		bdb->bdb_buffer->pag_offset = offset;
+		return;
+	}
+
+/* Format header and write journal record */
+
+#ifdef DEV_BUILD
+	if (journal->bdb_sequence !=
+		MISC_checksum_log_rec((UCHAR *) journal->bdb_buffer,
+							  journal->bdb_length, 0, 0))
+		DEBUG_PRINTF("Checksum error in journal buffer during AIL_put()\n");
+#endif
+
+	header.jrnd_header.jrnh_type = JRN_PAGE;
+	header.jrnd_page = bdb->bdb_page;
+	header.jrnd_length = journal->bdb_length;
+
+	AIL_put(dbb, status, &header.jrnd_header, JRND_SIZE,
+			(UCHAR *) journal->bdb_buffer,
+			journal->bdb_length, bdb->bdb_buffer->pag_seqno,
+			bdb->bdb_buffer->pag_offset, &seqno, &offset);
+
+	bdb->bdb_buffer->pag_seqno = seqno;
+	bdb->bdb_buffer->pag_offset = offset;
+
+/* Release journal record buffer */
+
+	journal->bdb_length = 0;
+
+	BCB_MUTEX_ACQUIRE;
+	bcb = dbb->dbb_bcb;
+	QUE_INSERT(bcb->bcb_empty, journal->bdb_que);
+	BCB_MUTEX_RELEASE;
+	bdb->bdb_jrn_bdb = NULL;
+}
+
+
+#ifdef PAGE_LATCHING
+static SSHORT latch_bdb(
+						TDBB tdbb,
+						LATCH type, BDB bdb, SLONG page, SSHORT latch_wait)
+{
+/**************************************
+ *
+ *	l a t c h _ b d b
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ * input
+ *	type:		LATCH_none, LATCH_exclusive, LATCH_io, LATCH_shared, or LATCH_mark.
+ *	bdb:		object to acquire latch on.
+ *	page:		page of bdb, for verification.
+ *	latch_wait:	1 => Wait as long as necessary to get the latch.
+ *				This can cause deadlocks of course.
+ *			0 => If the latch can't be acquired immediately,
+ *				give up and return 1.
+ *	      		<negative number> => Latch timeout interval in seconds.
+ *
+ * return
+ *	0:	latch successfully acquired.
+ *	1:	latch not acquired due to a (permitted) timeout.
+ *	-1:	latch not acquired, bdb doesn't corresponds to page.
+ *
+ **************************************/
+	LWT lwt;
+	SLONG count;
+	EVENT event;
+	QUE que;
+	BCB bcb;
+	DBB dbb;
+	SSHORT timeout_occurred = FALSE;
+	SSHORT i;
+
+/* If the buffer has been reassigned to another page
+   make the caller deal with it. */
+
+	if (bdb->bdb_page != page)
+		return -1;
+
+	LATCH_MUTEX_ACQUIRE;
+
+/* Handle the easy case first, no users of the buffer. */
+
+	if (!bdb->bdb_use_count) {
+		switch (type) {
+		case LATCH_shared:
+			++bdb->bdb_use_count;
+			bdb->bdb_shared[0] = tdbb;
+			break;
+		case LATCH_exclusive:
+			++bdb->bdb_use_count;
+			bdb->bdb_exclusive = tdbb;
+			break;
+		case LATCH_io:
+			++bdb->bdb_use_count;
+			bdb->bdb_io = tdbb;
+			break;
+		case LATCH_mark:
+			cache_bugcheck(295);	/* inconsistent LATCH_mark call */
+			break;
+		case LATCH_none:
+			break;
+		}
+		LATCH_MUTEX_RELEASE;
+		return 0;
+	}
+
+/* Grant the latch request if it is compatible with existing
+   latch holders.  Pending latches are queued in the order in
+   which they are requested except that io/mark latches are queued
+   ahead of all other latch requests (to avoid deadlocks and
+   this does not cause starvation).  Also, shared latches are granted
+   immediately if a disk write is in progress.
+   Note that asking for a higher mode latch when already holding a 
+   share latch results in deadlock.  CCH_handoff routinely acquires a
+   shared latch while owning already a shared latch on the page
+   (the case of handing off to the same page).  If the BDB_must_write
+   flag is set, then an exclusive latch request will be followed by 
+   an io latch request. */
+
+	switch (type) {
+
+	case LATCH_none:
+		LATCH_MUTEX_RELEASE;
+		return 0;
+
+	case LATCH_shared:
+		if (bdb->bdb_flags & BDB_read_pending)
+			break;
+		if (bdb->bdb_exclusive) {
+			if (bdb->bdb_exclusive != tdbb)
+				break;			/* someone else owns exclusive latch */
+		}
+		else {
+			/* Note that InterBase often 'hands-off' to the same page, for both
+			   shared and exlusive latches. */
+			/* Check is we own already an exclusive latch. */
+			for (i = 0; (i < BDB_max_shared) && (bdb->bdb_shared[i] != tdbb);
+				 i++);
+			if (i >= BDB_max_shared) {	/* we don't own a shared latch yet */
+				/* If there are latch-waiters, and they are not waiting for an
+				   io_latch, then we have to wait also (there must be a exclusive
+				   latch waiter).  If there is an IO in progress, the violate the
+				   fairness and sneak ahead of the exclusive (or io) waiters. */
+
+				if ((QUE_NOT_EMPTY(bdb->bdb_waiters)) && !bdb->bdb_io)
+					break;		/* be fair and wait behind exclusive latch requests */
+			}
+		}
+		/* Nobody owns an exlusive latch, or sneak ahead of exclusive latch
+		   waiters while an io is in progress. */
+
+		for (i = 0; (i < BDB_max_shared) && bdb->bdb_shared[i]; i++);
+		if (i >= BDB_max_shared)
+			break;
+		++bdb->bdb_use_count;
+		bdb->bdb_shared[i] = tdbb;
+		LATCH_MUTEX_RELEASE;
+		return 0;
+
+	case LATCH_io:
+		if (bdb->bdb_flags & BDB_read_pending)
+			break;
+		if (bdb->bdb_io)
+			break;				/* someone else owns the io latch */
+		++bdb->bdb_use_count;
+		bdb->bdb_io = tdbb;
+		LATCH_MUTEX_RELEASE;
+		return 0;
+
+	case LATCH_exclusive:
+		/* Exclusive latches wait for existing shared latches and
+		   (unfortunately) for existing io latches.  This is not as
+		   bad as it sounds because an exclusive latch is typically followed 
+		   by a mark latch, which then would wait behind the io latch. */
+		/* Note that the ail-code latches the same buffer multiple times
+		   in shared and exclusive */
+		/* Note that InterBase often 'hands-off' to the same page, for both
+		   shared and exlusive latches. */
+		if (bdb->bdb_use_count && (bdb->bdb_exclusive != tdbb))
+			break;
+		++bdb->bdb_use_count;
+		bdb->bdb_exclusive = tdbb;
+		LATCH_MUTEX_RELEASE;
+		return 0;
+
+	case LATCH_mark:
+		if (bdb->bdb_exclusive != tdbb)
+			cache_bugcheck(295);	/* inconsistent LATCH_mark call */
+		/* Some InterBase code marks a buffer more than once. */
+		if (bdb->bdb_io && (bdb->bdb_io != tdbb))
+			break;
+		bdb->bdb_io = tdbb;
+		LATCH_MUTEX_RELEASE;
+		return 0;
+
+	default:
+		break;
+	}
+
+/* If the caller doesn't want to wait for this latch, then return now. */
+	if (latch_wait == 0) {
+		LATCH_MUTEX_RELEASE;
+		return 1;
+	}
+
+/* Get or create a latch wait block and wait for someone to grant
+   the latch. */
+
+	dbb = tdbb->tdbb_database;
+	bcb = dbb->dbb_bcb;
+
+	if (QUE_NOT_EMPTY(bcb->bcb_free_lwt)) {
+		que = bcb->bcb_free_lwt.que_forward;
+		QUE_DELETE((*que));
+		lwt = (LWT) BLOCK(que, LWT, lwt_waiters);
+	}
+	else {
+		lwt = (LWT) ALLOCB(type_lwt);
+		QUE_INIT(lwt->lwt_waiters);
+		ISC_event_init(&lwt->lwt_event, 0, 0);
+	}
+
+	lwt->lwt_flags |= LWT_pending;
+	lwt->lwt_latch = type;
+	lwt->lwt_tdbb = tdbb;
+
+/* Give priority to IO.  This might prevent deadlocks while performing
+   precedence writes.  This does not cause starvation because an
+   exclusive latch is needed to dirty the page again. */
+	if ((type == LATCH_io) || (type == LATCH_mark))
+		QUE_INSERT(bdb->bdb_waiters, lwt->lwt_waiters)
+			else
+		QUE_APPEND(bdb->bdb_waiters, lwt->lwt_waiters);
+
+	event = &lwt->lwt_event;
+
+/* Loop until the latch is granted or until a timeout occurrs. */
+	for (count = ISC_event_clear(event);
+		 ((lwt->lwt_flags & LWT_pending) && !timeout_occurred);
+		 count = ISC_event_clear(event)) {
+		LATCH_MUTEX_RELEASE;
+		THREAD_EXIT;
+		if (latch_wait == 1)
+			timeout_occurred =
+				ISC_event_wait(1, &event, &count, 120 * 1000000,
+							   (FPTR_VOID) 0, event);
+		else
+			timeout_occurred =
+				ISC_event_wait(1, &event, &count, -latch_wait * 1000000,
+							   (FPTR_VOID) 0, event);
+		THREAD_ENTER;
+		LATCH_MUTEX_ACQUIRE;
+	}
+
+	bcb = dbb->dbb_bcb;			/* Re-initialize */
+	QUE_DELETE(lwt->lwt_waiters);
+	QUE_INSERT(bcb->bcb_free_lwt, lwt->lwt_waiters);
+
+/* If the latch is not granted then a timeout must have occurred. */
+	if ((lwt->lwt_flags & LWT_pending) && timeout_occurred) {
+		LATCH_MUTEX_RELEASE;
+		if (latch_wait == 1) {
+			IBERR_build_status(tdbb->tdbb_status_vector, gds__deadlock, 0);
+			CCH_unwind(tdbb, TRUE);
+		}
+		else
+			return 1;
+	}
+
+	if (bdb->bdb_page != page) {
+		LATCH_MUTEX_RELEASE;
+		release_bdb(tdbb, bdb, TRUE, FALSE, FALSE);
+		return -1;
+	}
+
+	LATCH_MUTEX_RELEASE;
+	return 0;
+}
+
+
+#else
+static SSHORT latch_bdb(
+						TDBB tdbb,
+						LATCH type, BDB bdb, SLONG page, SSHORT latch_wait)
+{
+/**************************************
+ *
+ *	l a t c h _ b d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Simple optimized latching for single-threaded
+ *	non-SUPERSERVER platforms.
+ * 
+ **************************************/
+
+	++bdb->bdb_use_count;
+
+	switch (type) {
+	case LATCH_shared:
+		break;
+	case LATCH_exclusive:
+		bdb->bdb_exclusive = tdbb;
+		break;
+	case LATCH_io:
+		bdb->bdb_io = tdbb;
+		break;
+	case LATCH_mark:
+		bdb->bdb_io = tdbb;
+	case LATCH_none:
+		--bdb->bdb_use_count;
+		break;
+	}
+
+	return 0;
+}
+#endif
+
+
+static SSHORT lock_buffer(
+						  TDBB tdbb,
+						  register BDB bdb, SSHORT wait, SSHORT page_type)
+{
+/**************************************
+ *
+ *	l o c k _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a lock on page for a buffer.  If the lock ever slipped
+ *	below READ, indicate that the page must be read.
+ *
+ * input:
+ *	wait: LCK_WAIT = TRUE = 1	=> Wait as long a necessary to get the lock.
+ *	      LCK_NO_WAIT = FALSE = 0	=> If the lock can't be acquired immediately,
+ *						give up and return -1.
+ *	      <negative number>		=> Lock timeout interval in seconds.
+ *		
+ * return: 0  => buffer locked, page is already in memroy.
+ *	   1  => buffer locked, page needs to be read from disk.
+ *	   -1 => timeout on lock occurred, see input parameter 'wait'.
+ *
+ **************************************/
+#ifdef PAGE_LATCHING
+	DBB dbb;
+#else
+	register LCK lock;
+	USHORT lock_type;
+	USHORT must_read;
+	STATUS alt_status[20];
+	STATUS *status;
+	TEXT errmsg[MAX_ERRMSG_LEN + 1];
+#endif
+
+	SET_TDBB(tdbb);
+#ifdef PAGE_LATCHING
+	dbb = tdbb->tdbb_database;
+
+	if (dbb->dbb_refresh_ranges && bdb->bdb_flags & BDB_writer &&
+		(page_type == pag_data || page_type == pag_index)) {
+		/* This gives refresh cache ranges the potential to work with page 
+		 * latching by taking out a temporary page lock for notification 
+		 * purposes.
+		 * Fix cache ranges on NetWare due to latching (bug 7199)
+		 * Marion change # 18270, 13-Oct-1994
+		 */
+
+		struct lck refresh;
+
+		MOVE_CLEAR(&refresh, sizeof(struct lck));
+		refresh.lck_header.blk_type = type_lck;
+		refresh.lck_dbb = dbb;
+		refresh.lck_type = LCK_bdb;
+		refresh.lck_owner_handle =
+			LCK_get_owner_handle(tdbb, refresh.lck_type);
+		refresh.lck_parent = dbb->dbb_lock;
+		refresh.lck_length = sizeof(SLONG);
+		refresh.lck_key.lck_long = bdb->bdb_page;
+
+		if (LCK_lock_non_blocking(tdbb, &refresh, LCK_write, -1))
+			LCK_release(tdbb, &refresh);
+	}
+
+	return ((bdb->bdb_flags & BDB_read_pending) ? 1 : 0);
+#else
+
+	lock_type =
+		(bdb->bdb_flags & (BDB_dirty | BDB_writer)) ? LCK_write : LCK_read;
+	lock = bdb->bdb_lock;
+
+	if (lock->lck_logical >= lock_type)
+		return 0;
+
+	status = tdbb->tdbb_status_vector;
+
+	if (lock->lck_logical == LCK_none) {
+		/* Prevent header and TIP pages from generating blocking AST
+		   overhead. The promise is that the lock will unconditionally
+		   be released when the buffer use count indicates it is safe
+		   to do so. */
+
+		if (page_type == pag_header || page_type == pag_transactions) {
+			assert(lock->lck_ast == blocking_ast_bdb);
+			assert(lock->lck_object == (BLK) bdb);
+			lock->lck_ast = 0;
+			lock->lck_object = NULL;
+		}
+		else
+			assert(lock->lck_ast != NULL);
+
+		lock->lck_key.lck_long = bdb->bdb_page;
+		if (PAGE_LOCK_OPT(lock, lock_type, wait)) {
+			if (!lock->lck_ast) {
+				/* Restore blocking AST to lock block if it was swapped
+				   out. Flag the bdb so that the lock is released when
+				   the buffer is released. */
+
+				assert(page_type == pag_header
+					   || page_type == pag_transactions);
+				lock->lck_ast = blocking_ast_bdb;
+				lock->lck_object = (BLK) bdb;
+				bdb->bdb_flags |= BDB_no_blocking_ast;
+			}
+			return 1;
+		}
+
+		if (!lock->lck_ast) {
+			assert(page_type == pag_header || page_type == pag_transactions);
+			lock->lck_ast = blocking_ast_bdb;
+			lock->lck_object = (BLK) bdb;
+		}
+
+		/* Case: a timeout was specified, or the caller didn't want to wait, 
+		   return the error. */
+
+		if ((wait == LCK_NO_WAIT)
+			|| ((wait < 0) && (status[1] == gds__lock_timeout))) {
+			release_bdb(tdbb, bdb, FALSE, FALSE, FALSE);
+			return -1;
+		}
+
+		/* Case: lock manager detected a deadlock, probably caused by locking the 
+		   bdb's in an unfortunate order.  Nothing we can do about it, return the
+		   error, and log it to interbase.log. */
+
+		gds__msg_format(0, JRD_BUGCHK, 215, sizeof(errmsg), errmsg,
+						(TEXT *) bdb->bdb_page, (TEXT *) page_type, 0, 0, 0);
+		IBERR_append_status(status, gds__random, gds_arg_string,
+							ERR_cstring(errmsg), 0);
+		ERR_log(JRD_BUGCHK, 215, errmsg);	/* msg 215 page %ld, page type %ld lock conversion denied */
+
+		/* CCH_unwind releases all the bdb's and calls ERR_punt()
+		   ERR_punt will longjump. */
+
+		CCH_unwind(tdbb, TRUE);
+	}
+
+/* Lock requires an upward conversion.  Sigh.  Try to get the conversion.
+   If it fails, release the lock and re-seize. Save the contents of the
+   status vector just in case */
+
+	must_read = (lock->lck_logical < LCK_read) ? 1 : 0;
+
+	memcpy(alt_status, tdbb->tdbb_status_vector, sizeof(alt_status));
+
+	if (LCK_convert_opt(tdbb, lock, lock_type))
+		return must_read;
+	else if (wait == LCK_NO_WAIT) {
+		release_bdb(tdbb, bdb, TRUE, FALSE, FALSE);
+		return -1;
+	}
+
+	memcpy(tdbb->tdbb_status_vector, alt_status, sizeof(alt_status));
+
+	if (PAGE_LOCK(lock, lock_type, wait))
+		return 1;
+
+/* Case: a timeout was specified, or the caller didn't want to wait, 
+   return the error. */
+
+	if ((wait < 0) && (status[1] == gds__lock_timeout)) {
+		release_bdb(tdbb, bdb, FALSE, FALSE, FALSE);
+		return -1;
+	}
+
+/* Case: lock manager detected a deadlock, probably caused by locking the 
+   bdb's in an unfortunate order.  Nothing we can do about it, return the
+   error, and log it to interbase.log. */
+
+	gds__msg_format(0, JRD_BUGCHK, 216, sizeof(errmsg), errmsg,
+					(TEXT *) bdb->bdb_page, (TEXT *) page_type, 0, 0, 0);
+	IBERR_append_status(status, gds__random, gds_arg_string,
+						ERR_cstring(errmsg), 0);
+	ERR_log(JRD_BUGCHK, 216, errmsg);	/* msg 216 page %ld, page type %ld lock denied */
+
+	CCH_unwind(tdbb, TRUE);
+	return 0;					/* Added to get rid of Compiler Warning */
+#endif
+}
+
+
+static ULONG memory_init(TDBB tdbb, BCB bcb, ULONG number)
+{
+/**************************************
+ *
+ *	m e m o r y _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize memory for the cache.
+ *	Return number of buffers allocated.
+ *
+ **************************************/
+	UCHAR *memory, *memory_end;
+	SLONG page_size, memory_size, buffers, old_buffers;
+	bcb::bcb_repeat * tail, *end, *tail2, *old_tail;
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	memory = 0;
+	buffers = 0;
+	page_size = (SLONG) dbb->dbb_page_size;
+	memory_size = page_size * (number + 1);
+
+	for (tail = bcb->bcb_rpt, end = tail + number; tail < end; tail++) {
+		if (!memory) {
+			/* Allocate only what is required for remaining buffers. */
+
+			if (memory_size > (SLONG) (page_size * (number + 1)))
+				memory_size = page_size * (number + 1);
+
+			while (!(memory = (UCHAR *) ALL_sys_alloc(memory_size, ERR_val))) {
+				/* Either there's not enough virtual memory or there is
+				   but it's not virtually contiguous. Let's find out by
+				   cutting the size in half to see if the buffers can be
+				   scattered over the remaining virtual address space. */
+
+				memory_size >>= 1;
+				if (memory_size < MIN_BUFFER_SEGMENT)	/* Diminishing returns */
+					return buffers;
+			}
+
+			LLS_PUSH(memory, &bcb->bcb_memory);
+			memory_end = memory + memory_size;
+
+			/* Allocate buffers on an address that is an even multiple
+			   of the page size (rather the physical sector size.) This
+			   is a necessary condition to support raw I/O interfaces. */
+			memory = (UCHAR *) (((U_IPTR) memory + page_size - 1) &
+								~((int) page_size - 1));
+			old_tail = tail;
+			old_buffers = buffers;
+		}
+
+		QUE_INIT(tail->bcb_page_mod);
+
+		if (!(tail->bcb_bdb = alloc_bdb(tdbb, bcb, &memory))) {
+			/* Whoops! Time to reset our expectations. Release the
+			   buffer memory but use that memory size to calculate
+			   a new number that takes into account the page buffer
+			   overhead. Reduce this number by a 25% fudge factor to
+			   leave some memory for useful work. */
+
+			ALL_sys_free((SCHAR *) LLS_POP(&bcb->bcb_memory));
+			memory = 0;
+			for (tail2 = old_tail; tail2 < tail; tail2++)
+				tail2->bcb_bdb = dealloc_bdb(tail2->bcb_bdb);
+			number = memory_size / PAGE_OVERHEAD;
+			number -= number >> 2;
+			end = old_tail + number;
+			tail = --old_tail;	/* For loop continue pops tail above */
+			buffers = old_buffers;
+			continue;
+		}
+
+		buffers++;				/* Allocated buffers */
+		number--;				/* Remaining buffers */
+
+		/* Check if memory segment has been exhausted. */
+
+		if (memory + page_size > memory_end)
+			memory = 0;
+	}
+
+	return buffers;
+}
+
+
+static void page_validation_error(TDBB tdbb, WIN * window, SSHORT type)
+{
+/**************************************
+ *
+ *	p a g e _ v a l i d a t i o n _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've detected a validation error on fetch.  Generally
+ *	we've detected that the type of page fetched didn't match the
+ *	type of page we were expecting.  Report an error and
+ *	get out.
+ *	This function will only be called rarely, as a page validation
+ *	error is an indication of on-disk database corruption.
+ *
+ **************************************/
+	BDB bdb;
+	PAG page;
+
+	SET_TDBB(tdbb);
+	bdb = window->win_bdb;
+	page = bdb->bdb_buffer;
+
+	IBERR_build_status(tdbb->tdbb_status_vector,
+					   gds__db_corrupt,
+					   gds_arg_string, "",
+					   gds_arg_gds, gds__page_type_err,
+					   gds_arg_gds, gds__badpagtyp,
+					   gds_arg_number, (SLONG) bdb->bdb_page,
+					   gds_arg_number, (SLONG) type,
+					   gds_arg_number, (SLONG) page->pag_type, 0);
+/* We should invalidate this bad buffer. */
+	CCH_unwind(tdbb, TRUE);
+}
+
+
+#ifdef CACHE_READER
+static void prefetch_epilogue(PRF prefetch, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	p r e f e t c h _ e p i l o g u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stall on asynchronous I/O completion.
+ *	Move data from prefetch buffer to database 
+ *	buffers, compute the checksum, and release
+ *	the latch.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	SCHAR *next_buffer;
+	BDB *next_bdb;
+	PAG page;
+	STATUS status;
+	USHORT i;
+
+	if (!(prefetch->prf_flags & PRF_active))
+		return;
+
+	THREAD_EXIT;
+	prefetch->prf_piob.piob_wait = TRUE;
+	status = PIO_status(&prefetch->prf_piob, status_vector);
+	THREAD_ENTER;
+
+/* If there was an I/O error release all buffer latches acquired
+   for the prefetch request. */
+
+	tdbb = prefetch->prf_tdbb;
+	dbb = tdbb->tdbb_database;
+
+	if (status == FALSE) {
+		next_bdb = prefetch->prf_bdbs;
+		for (i = 0; i < prefetch->prf_max_prefetch; i++) {
+			if (*next_bdb)
+				release_bdb(tdbb, *next_bdb, TRUE, FALSE, FALSE);
+			next_bdb++;
+		}
+		prefetch->prf_flags &= ~PRF_active;
+		return;
+	}
+
+	next_buffer = prefetch->prf_io_buffer;
+	next_bdb = prefetch->prf_bdbs;
+
+	for (i = 0; i < prefetch->prf_max_prefetch; i++) {
+		if (*next_bdb) {
+			page = (*next_bdb)->bdb_buffer;
+			if (next_buffer != page)
+				MOVE_FASTER(next_buffer, (SCHAR *) page,
+							(ULONG) dbb->dbb_page_size);
+			if (page->pag_checksum == CCH_checksum(*next_bdb)) {
+				(*next_bdb)->bdb_flags &= ~(BDB_read_pending | BDB_not_valid);
+				(*next_bdb)->bdb_flags |= BDB_prefetch;
+			}
+			release_bdb(tdbb, *next_bdb, TRUE, FALSE, FALSE);
+		}
+		next_buffer += dbb->dbb_page_size;
+		next_bdb++;
+	}
+
+	prefetch->prf_flags &= ~PRF_active;
+}
+
+
+static void prefetch_init(PRF prefetch, TDBB tdbb)
+{
+/**************************************
+ *
+ *	p r e f e t c h _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize prefetch data structure.
+ *	Most systems that allow access to "raw" I/O
+ *	interfaces want the buffer address aligned.
+ *
+ **************************************/
+	DBB dbb;
+
+	dbb = tdbb->tdbb_database;
+
+	prefetch->prf_tdbb = tdbb;
+	prefetch->prf_flags = 0;
+	prefetch->prf_max_prefetch = PREFETCH_MAX_TRANSFER / dbb->dbb_page_size;
+	prefetch->prf_aligned_buffer =
+		(SCHAR
+		 *) (((U_IPTR) & prefetch->prf_unaligned_buffer + MIN_PAGE_SIZE -
+			  1) & ~((U_IPTR) MIN_PAGE_SIZE - 1));
+}
+
+
+static void prefetch_io(PRF prefetch, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	p r e f e t c h _ i o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Queue an asynchronous I/O to read
+ *	multiple pages into prefetch buffer.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BDB *next_bdb;
+	USHORT i;
+	STATUS status;
+
+	tdbb = prefetch->prf_tdbb;
+	dbb = tdbb->tdbb_database;
+
+	if (!prefetch->prf_page_count)
+		prefetch->prf_flags &= ~PRF_active;
+	else {
+		/* Get the cache reader working on our behalf too */
+
+		if (!(dbb->dbb_bcb->bcb_flags & BCB_reader_active))
+			ISC_event_post(dbb->dbb_reader_event);
+
+		THREAD_EXIT;
+		status =
+			PIO_read_ahead(dbb, prefetch->prf_start_page,
+						   prefetch->prf_io_buffer, prefetch->prf_page_count,
+						   &prefetch->prf_piob, status_vector);
+		THREAD_ENTER;
+		if (status == FALSE) {
+			next_bdb = prefetch->prf_bdbs;
+			for (i = 0; i < prefetch->prf_max_prefetch; i++) {
+				if (*next_bdb)
+					release_bdb(tdbb, *next_bdb, TRUE, FALSE, FALSE);
+				next_bdb++;
+			}
+			prefetch->prf_flags &= ~PRF_active;
+		}
+	}
+}
+
+
+static void prefetch_prologue(PRF prefetch, SLONG * start_page)
+{
+/**************************************
+ *
+ *	p r e f e t c h _ p r o l o g u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Search for consecutive pages to be prefetched
+ *	and latch them for I/O.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BCB bcb;
+	BDB *next_bdb, bdb;
+	USHORT i;
+
+	tdbb = prefetch->prf_tdbb;
+	dbb = tdbb->tdbb_database;
+	bcb = dbb->dbb_bcb;
+
+	prefetch->prf_start_page = *start_page;
+	prefetch->prf_page_count = 0;
+	prefetch->prf_flags |= PRF_active;
+
+	next_bdb = prefetch->prf_bdbs;
+	for (i = 0; i < prefetch->prf_max_prefetch; i++) {
+		*next_bdb = 0;
+		if (SBM_clear(bcb->bcb_prefetch, *start_page) &&
+			(*next_bdb = get_buffer(tdbb, *start_page, LATCH_shared, 0))) {
+			if ((*next_bdb)->bdb_flags & BDB_read_pending)
+				prefetch->prf_page_count = i + 1;
+			else {
+				release_bdb(tdbb, *next_bdb, TRUE, FALSE, FALSE);
+				*next_bdb = 0;
+			}
+		}
+		next_bdb++;
+		(*start_page)++;
+	}
+
+/* Optimize non-sequential list prefetching to transfer
+   directly to database buffers. */
+
+	if (prefetch->prf_page_count == 1 && (bdb = prefetch->prf_bdbs[0]))
+		prefetch->prf_io_buffer = bdb->bdb_buffer;
+	else
+		prefetch->prf_io_buffer = prefetch->prf_aligned_buffer;
+
+/* Reset starting page for next bitmap walk */
+
+	--(*start_page);
+}
+#endif
+
+
+static SSHORT related(register BDB low, register BDB high, SSHORT limit)
+{
+/**************************************
+ *
+ *	r e l a t e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if there are precedence relationships linking two buffers.
+ *	Since precedence graphs can become very complex, limit search for
+ *	precedence relationship by visiting a presribed limit of higher
+ *	precedence blocks.
+ *
+ **************************************/
+	QUE que, base;
+	register PRE precedence;
+
+	base = &low->bdb_higher;
+
+	for (que = base->que_forward; que != base; que = que->que_forward) {
+		if (!--limit)
+			return PRE_UNKNOWN;
+		precedence = BLOCK(que, PRE, pre_higher);
+		if (!(precedence->pre_flags & PRE_cleared)) {
+			if (precedence->pre_hi == high)
+				return PRE_EXISTS;
+			limit = related(precedence->pre_hi, high, limit);
+			if (limit == PRE_EXISTS || limit == PRE_UNKNOWN)
+				return limit;
+		}
+	}
+
+	return limit;
+}
+
+
+#ifdef PAGE_LATCHING
+static void release_bdb(
+						TDBB tdbb,
+						BDB bdb,
+						BOOLEAN repost,
+						BOOLEAN downgrade_latch, BOOLEAN rel_mark_latch)
+{
+/**************************************
+ *
+ *	r e l e a s e _ b d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Decrement the use count of a bdb, reposting
+ *	blocking AST if required.
+ *	If rel_mark_latch is TRUE, the the value of downgrade_latch is ignored.
+ *
+ **************************************/
+	LWT lwt;
+	QUE wait_que, que;
+	SSHORT i, granted;
+
+	LATCH_MUTEX_ACQUIRE;
+
+	wait_que = &bdb->bdb_waiters;
+
+/* Releasing a LATCH_mark. */
+	if (rel_mark_latch) {
+		if ((bdb->bdb_io != tdbb) || (bdb->bdb_exclusive != tdbb))
+			cache_bugcheck(294);	/* inconsistent LATCH_mark release */
+		bdb->bdb_io = 0;
+	}
+	else
+/* Downgrading from an exlusive to a shared latch. */
+	if (downgrade_latch) {
+		/* Only the transition from exclusive to shared is supported.
+		   If an actual state changed, then we need to check if waiters
+		   can be granted.  Otherwise, there is nothing further to do. */
+		if (bdb->bdb_io == tdbb)
+			cache_bugcheck(296);	/* inconsistent latch downgrade call */
+		if (bdb->bdb_exclusive == tdbb) {
+			bdb->bdb_exclusive = 0;
+			for (i = 0; bdb->bdb_shared[i]; i++);
+			bdb->bdb_shared[i] = tdbb;
+		}
+		else {
+			LATCH_MUTEX_RELEASE;
+			return;
+		}
+	}
+	else
+/* If the exclusive latch is held, then certain code does funny things:
+   ail.c does: exclusive - mark - exclusive */
+	if (bdb->bdb_exclusive == tdbb) {
+		--bdb->bdb_use_count;
+		if (!bdb->bdb_use_count) {	/* All latches are released */
+			bdb->bdb_exclusive = bdb->bdb_io = 0;
+			for (i = 0; i < BDB_max_shared; bdb->bdb_shared[i++] = 0);
+		}
+		else if (bdb->bdb_io) {	/* This is a release for an io or an exclusive latch */
+			if (bdb->bdb_io == tdbb) {	/* We have an io latch */
+
+				/* The BDB_must_write flag causes the system to latch for io, in addition
+				   to the already owned latches.  Make sure not to disturb an already existing
+				   exclusive latch. */
+				/* ail.c does: EX => MARK => SHARED => release => EX => MARK => RELEASE => EX */
+				if (!(bdb->bdb_flags & BDB_marked))
+					bdb->bdb_io = 0;
+			}
+			else if (bdb->bdb_use_count == 1)
+				/* This must be a release for our exclusive latch */
+				bdb->bdb_exclusive = 0;
+		}
+		else {					/* This is a release for a shared latch */
+			for (i = 0; (i < BDB_max_shared) && (bdb->bdb_shared[i] != tdbb);
+				 i++);
+			if (i < BDB_max_shared)
+				bdb->bdb_shared[i] = 0;
+		}
+	}
+	else
+/* If the exclusive latch is not held, then things have to behave much nicer. */
+	{
+		if (bdb->bdb_flags & BDB_marked)
+			cache_bugcheck(297);	/* bdb is unexpectedly marked */
+		--bdb->bdb_use_count;
+		if (bdb->bdb_io == tdbb)
+			bdb->bdb_io = 0;
+		else {
+			for (i = 0; (i < BDB_max_shared) && (bdb->bdb_shared[i] != tdbb);
+				 i++);
+			if (i >= BDB_max_shared)
+				cache_bugcheck(300);	/* can't find shared latch */
+			bdb->bdb_shared[i] = 0;
+		}
+	}
+
+	granted = FALSE;
+
+	for (que = wait_que->que_forward; que != wait_que; que = que->que_forward)
+		/* Note that this loop assumes that requests for LATCH_io and LATCH_mark
+		   are queued before LATCH_shared and LATCH_exclusive. */
+		if ((lwt = BLOCK(que, LWT, lwt_waiters))->lwt_flags & LWT_pending) {
+			switch (lwt->lwt_latch) {
+			case (LATCH_exclusive):
+				if (bdb->bdb_use_count) {
+					LATCH_MUTEX_RELEASE;
+					return;
+				}
+				else {
+					++bdb->bdb_use_count;
+					bdb->bdb_exclusive = lwt->lwt_tdbb;
+					lwt->lwt_flags &= ~LWT_pending;
+					ISC_event_post(&lwt->lwt_event);
+					LATCH_MUTEX_RELEASE;
+					return;
+				}
+
+			case (LATCH_io):
+				if (bdb->bdb_io)
+					break;
+				else {
+					++bdb->bdb_use_count;
+					bdb->bdb_io = lwt->lwt_tdbb;
+					lwt->lwt_flags &= ~LWT_pending;
+					ISC_event_post(&lwt->lwt_event);
+					granted = TRUE;
+					break;
+				}
+
+			case (LATCH_mark):
+				if (bdb->bdb_exclusive != lwt->lwt_tdbb)
+					cache_bugcheck(298);	/* missing exclusive latch */
+				if (bdb->bdb_io)
+					break;
+				else {
+					bdb->bdb_io = lwt->lwt_tdbb;
+					lwt->lwt_flags &= ~LWT_pending;
+					ISC_event_post(&lwt->lwt_event);
+					granted = TRUE;
+					break;
+				}
+
+			case (LATCH_shared):
+				if (bdb->bdb_exclusive) {
+					break;		/* defensive programming */
+					/* correct programming
+					   LATCH_MUTEX_RELEASE;
+					   return;  */
+				}
+				for (i = 0; (i < BDB_max_shared) && bdb->bdb_shared[i]; i++);
+				if (i >= BDB_max_shared)
+					break;
+				++bdb->bdb_use_count;
+				bdb->bdb_shared[i] = lwt->lwt_tdbb;
+				lwt->lwt_flags &= ~LWT_pending;
+				ISC_event_post(&lwt->lwt_event);
+				granted = TRUE;
+				break;
+			}
+
+			if (granted && (bdb->bdb_flags & BDB_read_pending))
+				/* Allow only one reader to proceed */
+				break;
+		}
+
+	if (bdb->bdb_use_count || !repost) {
+		LATCH_MUTEX_RELEASE;
+		return;
+	}
+
+	LATCH_MUTEX_RELEASE;
+
+	if (bdb->bdb_ast_flags & BDB_blocking)
+		PAGE_LOCK_RE_POST(bdb->bdb_lock);
+}
+
+
+#else
+static void release_bdb(
+						TDBB tdbb,
+						BDB bdb,
+						BOOLEAN repost,
+						BOOLEAN downgrade_latch, BOOLEAN rel_mark_latch)
+{
+/**************************************
+ *
+ *	r e l e a s e _ b d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Decrement the use count of a bdb, reposting
+ *	blocking AST if required.
+ *	If rel_mark_latch is TRUE, the the value of downgrade_latch is ignored.
+ *
+ **************************************/
+
+/* Releasing a LATCH_mark. */
+
+	if (rel_mark_latch)
+		bdb->bdb_io = 0;
+	else
+/* Downgrading from an exlusive to a shared latch. */
+	if (downgrade_latch)
+		bdb->bdb_exclusive = 0;
+
+	else
+/* If the exclusive latch is held, then certain code does funny things:
+   ail.c does: exclusive - mark - exclusive */
+	if (bdb->bdb_exclusive == tdbb) {
+		if (!--bdb->bdb_use_count)
+			bdb->bdb_exclusive = bdb->bdb_io = 0;
+		else if (bdb->bdb_io) {	/* This is a release for an io or an exclusive latch */
+			if (bdb->bdb_io == tdbb) {	/* We have an io latch */
+
+				/* The BDB_must_write flag causes the system to latch for io, in addition
+				   to the already owned latches.  Make sure not to disturb an already existing
+				   exclusive latch. */
+				/* ail.c does: EX => MARK => SHARED => release => EX => MARK => RELEASE => EX */
+				if (!(bdb->bdb_flags & BDB_marked))
+					bdb->bdb_io = 0;
+			}
+			else if (bdb->bdb_use_count == 1)
+				/* This must be a release for our exclusive latch */
+				bdb->bdb_exclusive = 0;
+		}
+	}
+	else
+		/* If the exclusive latch is not held, then things have to behave much nicer. */
+	{
+		--bdb->bdb_use_count;
+		bdb->bdb_io = 0;
+	}
+
+	if (bdb->bdb_use_count || !repost)
+		return;
+
+	if (bdb->bdb_ast_flags & BDB_blocking)
+		PAGE_LOCK_RE_POST(bdb->bdb_lock);
+}
+#endif
+
+
+static BOOLEAN writeable(register BDB bdb)
+{
+/**************************************
+ *
+ *	w r i t e a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if a buffer is writeable.  A buffer is writeable if
+ *	neither it nor any of it's higher precedence cousins are
+ *	marked for write.
+ *
+ **************************************/
+	register QUE que;
+	register PRE precedence;
+
+	if (bdb->bdb_flags & BDB_marked)
+		return FALSE;
+
+/* If there are buffers that must be written first, check them, too. */
+
+	for (que = bdb->bdb_higher.que_forward; que != &bdb->bdb_higher;
+		 que = que->que_forward) {
+		precedence = BLOCK(que, PRE, pre_higher);
+		if (!(precedence->pre_flags & PRE_cleared) &&
+			!writeable(precedence->pre_hi)) return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+static int write_buffer(
+						TDBB tdbb,
+						register BDB bdb,
+						SLONG page,
+						USHORT write_thru,
+						STATUS * status, BOOLEAN write_this_page)
+{
+/**************************************
+ *
+ *	w r i t e _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a dirty buffer.  This may recurse due to
+ *	precedence problems.
+ *
+ * input:  write_this_page 
+ *		= true if the input page needs to be written
+ *			before returning.  (normal case)
+ *		= false if the input page is being written 
+ *			because of precedence.  Only write
+ *			one page and return so that the caller
+ *			can re-establish the need to write this
+ *			page.
+ *			
+ * return: 0 = Write failed.
+ *         1 = Page is written.  Page was written by this
+ *     		call, or was written by someone else, or the
+ *		cache buffer is already reassigned.
+ *	   2 = Only possible if write_this_page is FALSE.
+ *		This input page is not written.  One 
+ *		page higher in precedence is written
+ *		though.  Probable action: re-establich the
+ * 		need to write this page and retry write.
+ *
+ **************************************/
+	DBB dbb;
+	register QUE que;
+	register PRE precedence;
+	BCB bcb;
+	BOOLEAN result;
+	BDB hi_bdb;
+	SLONG hi_page;
+	int write_status;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if (latch_bdb(tdbb, LATCH_io, bdb, page, 1) == -1)
+		return 1;
+
+	if ((bdb->bdb_flags & BDB_marked) && !(bdb->bdb_flags & BDB_faked))
+		cache_bugcheck(217);	/* msg 217 buffer marked for update */
+
+	if (!(bdb->bdb_flags & BDB_dirty) &&
+		!(write_thru && bdb->bdb_flags & BDB_db_dirty)) {
+		clear_precedence(dbb, bdb);
+		release_bdb(tdbb, bdb, TRUE, FALSE, FALSE);
+		return 1;
+	}
+
+/* If there are buffers that must be written first, write them now. */
+
+	PRE_MUTEX_ACQUIRE;
+
+	while (QUE_NOT_EMPTY(bdb->bdb_higher)) {
+		bcb = dbb->dbb_bcb;		/* Re-initialize in the loop */
+		que = bdb->bdb_higher.que_forward;
+		precedence = BLOCK(que, PRE, pre_higher);
+		if (precedence->pre_flags & PRE_cleared) {
+			QUE_DELETE(precedence->pre_higher);
+			QUE_DELETE(precedence->pre_lower);
+			precedence->pre_hi = (BDB) bcb->bcb_free;
+			bcb->bcb_free = precedence;
+		}
+		else {
+			hi_bdb = precedence->pre_hi;
+			hi_page = hi_bdb->bdb_page;
+			PRE_MUTEX_RELEASE;
+			release_bdb(tdbb, bdb, FALSE, FALSE, FALSE);
+			write_status =
+				write_buffer(tdbb, hi_bdb, hi_page, write_thru, status,
+							 FALSE);
+			if (write_status == 0)
+				return 0;		/* return IO error */
+#ifdef SUPERSERVER
+			if (!write_this_page)
+				return 2;		/* caller wants to re-establish the need for this write after one precedence write */
+#endif
+			if (latch_bdb(tdbb, LATCH_io, bdb, page, 1) == -1)
+				return 1;		/* cache buffer reassigned, return 'write successful' */
+			PRE_MUTEX_ACQUIRE;
+		}
+	}
+
+	PRE_MUTEX_RELEASE;
+
+#ifdef SUPERSERVER_V2
+/* Header page I/O is deferred until a dirty page, which was modified by a
+   transaction not updated on the header page, needs to be written. Note
+   that the header page needs to be written with the target page latched to
+   prevent younger transactions from modifying the target page. */
+
+	if (page != HEADER_PAGE
+		&& bdb->bdb_mark_transaction >
+		dbb->dbb_last_header_write) TRA_header_write(tdbb, dbb,
+													 bdb->bdb_mark_transaction);
+#endif
+
+/* Unless the buffer has been faked (recently re-allocated), write
+   out the page */
+
+	result = TRUE;
+	if (
+		(bdb->bdb_flags & BDB_dirty
+		 || (write_thru && bdb->bdb_flags & BDB_db_dirty))
+		&& !(bdb->bdb_flags & BDB_marked)) {
+		if (result = write_page(tdbb, bdb, write_thru, status, FALSE))
+			clear_precedence(dbb, bdb);
+	}
+	else
+		clear_precedence(dbb, bdb);
+
+	release_bdb(tdbb, bdb, TRUE, FALSE, FALSE);
+
+	if (!result)
+		return 0;
+	else
+#ifdef SUPERSERVER
+	if (!write_this_page)
+		return 2;
+	else
+#endif
+		return 1;
+}
+
+
+static BOOLEAN write_page(
+						  TDBB tdbb,
+						  register BDB bdb,
+						  USHORT write_thru, STATUS * status, BOOLEAN inAst)
+{
+/**************************************
+ *
+ *	w r i t e _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do actions required when writing a database page,
+ *	including journaling, shadowing.
+ *
+ **************************************/
+	PAG page;
+	DBB dbb;
+	BOOLEAN result;
+	STATUS saved_status;
+	FIL file;
+
+	if (bdb->bdb_flags & BDB_not_valid) {
+		*status++ = gds_arg_gds;
+		*status++ = gds__buf_invalid;
+		*status++ = gds_arg_number;
+		*status++ = bdb->bdb_page;
+		*status++ = gds_arg_end;
+		return FALSE;
+	}
+
+	result = TRUE;
+	dbb = bdb->bdb_dbb;
+	page = bdb->bdb_buffer;
+
+/* Before writing db header page, make sure that the next_transaction > oldest_active
+   transaction */
+	if (bdb->bdb_page == HEADER_PAGE) {
+		HDR header = (HDR) page;
+		if (header->hdr_next_transaction) {
+			if (header->hdr_oldest_active > header->hdr_next_transaction)
+				BUGCHECK(266);	/*next transaction older than oldest active */
+
+			if (header->hdr_oldest_transaction > header->hdr_next_transaction)
+				BUGCHECK(267);	/* next transaction older than oldest transaction */
+		}
+	}
+
+	page->pag_generation++;
+	if (bdb->bdb_flags & BDB_journal) {
+		saved_status = status[1];
+		status[1] = 0;
+		journal_buffer(status, bdb);
+		if (!status[1])
+			status[1] = saved_status;
+		else
+			return FALSE;
+	}
+
+	if (!dbb->dbb_wal || write_thru) {
+		AST_CHECK;
+		dbb->dbb_writes++;
+		if (dbb->dbb_wal)
+			WAL_flush(status,
+					  dbb->dbb_wal,
+					  reinterpret_cast < long *>(&page->pag_seqno),
+					  reinterpret_cast < long *>(&page->pag_offset), TRUE);
+
+#ifdef DEBUG_SAVE_BDB_PAGE
+		/* Save page number into page->pag_offset before computing the checksum */
+		page->pag_offset = bdb->bdb_page;
+#endif
+
+		/* write out page to main database file, and to any 
+		   shadows, making a special case of the header page */
+
+		if (bdb->bdb_page >= 0) {
+#ifdef SUPERSERVER
+			THREAD_EXIT;
+#endif
+			page->pag_checksum = CCH_checksum(bdb);
+			file = dbb->dbb_file;
+			while (!PIO_write(file, bdb, page, status)) {
+#ifdef SUPERSERVER
+				THREAD_ENTER;
+#endif
+				if (!CCH_rollover_to_shadow(dbb, file, inAst)) {
+					bdb->bdb_flags |= BDB_io_error;
+					dbb->dbb_flags |= DBB_suspend_bgio;
+					return FALSE;
+				}
+#ifdef SUPERSERVER
+				THREAD_EXIT;
+#endif
+				file = dbb->dbb_file;
+			}
+
+#ifdef SUPERSERVER
+			THREAD_ENTER;
+#endif
+			if (bdb->bdb_page == HEADER_PAGE)
+				dbb->dbb_last_header_write =
+					((HDR) page)->hdr_next_transaction;
+			if (dbb->dbb_shadow)
+				result =
+					CCH_write_all_shadows(tdbb, 0, bdb, status, 0, inAst);
+		}
+
+#ifdef SUPERSERVER
+		if (result) {
+#ifdef CACHE_WRITER
+			if (bdb->bdb_flags & BDB_checkpoint)
+				--dbb->dbb_bcb->bcb_checkpoint;
+#endif
+			bdb->bdb_flags &= ~(BDB_db_dirty | BDB_checkpoint);
+		}
+#endif
+		AST_CHECK;
+	}
+
+	if (!result) {
+		/* If there was a write error then idle background threads
+		   so that they don't spin trying to write these pages. This
+		   usually results from device full errors which can be fixed
+		   by someone freeing disk space. */
+
+		bdb->bdb_flags |= BDB_io_error;
+		dbb->dbb_flags |= DBB_suspend_bgio;
+	}
+	else {
+		/* clear the dirty bit vector, since the buffer is now
+		   clean regardless of which transactions have modified it */
+
+		bdb->bdb_transactions = bdb->bdb_mark_transaction = 0;
+		if (!(dbb->dbb_bcb->bcb_flags & BCB_keep_pages) &&
+			(bdb->bdb_parent || bdb == dbb->dbb_bcb->bcb_btree))
+			btc_remove(bdb);
+		bdb->bdb_flags &= ~(BDB_dirty | BDB_must_write | BDB_system_dirty);
+		if (bdb->bdb_flags & BDB_io_error) {
+			/* If a write error has cleared, signal background threads
+			   to resume their regular duties. If someone has freed up
+			   disk space these errors will spontaneously go away. */
+
+			bdb->bdb_flags &= ~BDB_io_error;
+			dbb->dbb_flags &= ~DBB_suspend_bgio;
+		}
+	}
+
+	return result;
+}
+
+
+static void unmark(TDBB tdbb, WIN * window)
+{
+/**************************************
+ *
+ *	u n m a r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unmark a bdb.  Called when the update of a page is
+ *	complete and delaying the 'unmarking' could cause
+ *	problems.
+ *
+ **************************************/
+	register BDB bdb;
+	BOOLEAN marked;
+
+	SET_TDBB(tdbb);
+	bdb = window->win_bdb;
+	BLKCHK(bdb, type_bdb);
+
+	if (bdb->bdb_use_count == 1) {
+		marked = (bdb->bdb_flags & BDB_marked) ? TRUE : FALSE;
+		bdb->bdb_flags &= ~BDB_marked;
+		if (marked)
+			release_bdb(tdbb, bdb, FALSE, FALSE, TRUE);
+	}
+}
+
+} // extern "C"
diff --git a/src/jrd/cch.h b/src/jrd/cch.h
new file mode 100644
index 0000000000..61b8f66bd4
--- /dev/null
+++ b/src/jrd/cch.h
@@ -0,0 +1,213 @@
+/*
+ *	PROGRAM:	JRD access method
+ *	MODULE:		cch.h
+ *	DESCRIPTION:	Cache manager definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_CCH_H_
+#define _JRD_CCH_H_
+
+/* Page buffer cache size constraints. */
+
+#define MIN_PAGE_BUFFERS	50L
+#define MAX_PAGE_BUFFERS	65535L
+
+/* BCB -- Buffer control block -- one per system */
+
+typedef struct bcb
+{
+	struct blk	bcb_header;
+	struct lls*	bcb_memory;			/* Large block partitioned into buffers */
+	struct que	bcb_in_use;			/* Que of buffers in use */
+	struct que	bcb_empty;			/* Que of empty buffers */
+	struct bdb*	bcb_btree;			/* root of dirty page btree */
+	struct pre*	bcb_free;			/* Free precedence blocks */
+	struct que	bcb_free_lwt;		/* Free latch wait blocks */
+	SSHORT		bcb_flags;			/* see below */
+	SSHORT		bcb_free_minimum;	/* Threshold to activate cache writer */
+	ULONG		bcb_count;			/* Number of buffers allocated */
+	ULONG		bcb_checkpoint;		/* Count of buffers to checkpoint */
+	struct sbm*	bcb_prefetch;		/* Bitmap of pages to prefetch */
+	struct bcb_repeat
+	{
+		struct bdb*	bcb_bdb;		/* Buffer descriptor block */
+		struct que	bcb_page_mod;	/* Que of buffers with page mod n */
+	} bcb_rpt[1];
+} *BCB;
+
+#define BCB_keep_pages		1	/* set during btc_flush(), pages not removed from dirty binary tree */
+#define BCB_cache_writer	2	/* cache writer thread has been started */
+#define BCB_checkpoint_db	4	/* WAL has requested a database checkpoint */
+#define BCB_writer_active	8	/* no need to post writer event count */
+#define BCB_cache_reader	16	/* cache reader thread has been started */
+#define BCB_reader_active	32	/* cache reader not blocked on event */
+#define BCB_free_pending	64	/* request cache writer to free pages */
+
+
+/* BDB -- Buffer descriptor block */
+
+#define BDB_max_shared		20	/* maximum number of shared latch owners per bdb */
+
+typedef struct bdb
+{
+	struct blk	bdb_header;
+	struct dbb*	bdb_dbb;				/* Database block (for ASTs) */
+	struct lck*	bdb_lock;				/* Lock block for buffer */
+	struct que	bdb_que;				/* Buffer que */
+	struct que	bdb_in_use;				/* queue of buffers in use */
+	struct pag*	bdb_buffer;				/* Actual buffer */
+	struct exp*	bdb_expanded_buffer;	/* expanded index buffer */
+	struct bdb*	bdb_jrn_bdb;			/* BDB containing journal records */
+	struct btb*	bdb_blocked;			/* Blocked attachments block */
+	SLONG		bdb_page;				/* Database page number in buffer */
+	ULONG		bdb_sequence;
+	SLONG		bdb_incarnation;
+	ULONG		bdb_transactions;		/* vector of dirty flags to reduce commit overhead */
+	SLONG		bdb_mark_transaction;	/* hi-water mark transaction to defer header page I/O */
+	struct bdb*	bdb_left;				/* dirty page binary tree link */
+	struct bdb*	bdb_right;				/* dirty page binary tree link */
+	struct bdb*	bdb_parent;				/* dirty page binary tree link */
+	struct que	bdb_lower;				/* lower precedence que */
+	struct que	bdb_higher;				/* higher precedence que */
+	struct que	bdb_waiters;			/* latch wait que */
+	struct tdbb*bdb_exclusive;			/* thread holding exclusive latch */
+	struct tdbb*bdb_io;					/* thread holding io latch */
+	UATOM		bdb_ast_flags;			/* flags manipulated at AST level */
+	USHORT		bdb_flags;
+	USHORT		bdb_length;					/* Length of journal records */
+	SSHORT		bdb_use_count;				/* Number of active users */
+	SSHORT		bdb_scan_count;				/* concurrent sequential scans */
+	struct tdbb*bdb_shared[BDB_max_shared];	/* threads holding shared latches */
+} *BDB;
+
+/* bdb_flags */
+
+#define BDB_dirty			1		/* page has been updated but not written yet */
+#define BDB_garbage_collect	2		/* left by scan for garbage collector */
+#define BDB_writer			4		/* someone is updating the page */
+#define BDB_marked			8		/* page has been updated */
+#define BDB_must_write		16		/* forces a write as soon as the page is released */
+#define BDB_faked			32		/* page was just allocated */
+#define BDB_journal			64		/* Journal buffer */
+#define BDB_system_dirty 	128		/* system transaction has marked dirty */
+#define BDB_io_error	 	256		/* page i/o error */
+#define BDB_read_pending 	512		/* read is pending */
+#define BDB_free_pending 	1024	/* buffer being freed for reuse */
+#define BDB_not_valid		2048	/* i/o error invalidated buffer */
+#define BDB_db_dirty 		4096	/* page must be written to database */
+#define BDB_checkpoint		8192	/* page must be written by next checkpoint */
+#define BDB_prefetch		16384	/* page has been prefetched but not yet referenced */
+#define BDB_no_blocking_ast 32768	/* No blocking AST registered with page lock */
+
+/* bdb_ast_flags */
+
+#define BDB_blocking 		1	/* a blocking ast was sent while page locked */
+
+
+/* PRE -- Precedence block */
+
+typedef struct pre
+{
+	struct blk	pre_header;
+	struct bdb*	pre_hi;
+	struct bdb*	pre_low;
+	struct que	pre_lower;
+	struct que	pre_higher;
+	SSHORT		pre_flags;
+} *PRE;
+
+#define PRE_cleared	1
+
+/* Compatibility matrix for latch types.
+
+   An exclusive latch is needed to modify a page.  Before
+   marking a page an 'io-prevention' latch is needed: a mark latch.
+   To look at a buffer, a shared latch is needed.  To write a page,
+   an io latch is needed.  
+
+   Exclusive and shared latches interact.  Io and mark latches 
+   interact.
+
+   An mark latch is implemented as an io latch.
+   
+   Latches are granted in the order in which they are
+   queued with one notable exception -- if buffer write
+   is in-progress then shared latches are granted ahead
+   of any pending exclusive latches. 
+
+	      shared	 io	exclusive   mark
+-------------------------------------------------
+shared      1	     -     0         -
+io          -	     0     -         0
+exclusive   0	     -     0         -
+mark        -        0     -         0  */
+
+/* LATCH types */
+
+typedef enum
+{
+	LATCH_none,
+	LATCH_shared,
+	LATCH_io,
+	LATCH_exclusive,
+	LATCH_mark
+} LATCH;
+
+/* LWT -- Latch wait block */
+
+typedef struct lwt
+{
+	struct blk		lwt_header;
+	struct tdbb*	lwt_tdbb;
+	LATCH			lwt_latch;		/* latch type requested */
+	struct que		lwt_waiters;	/* latch queue */
+	struct event	lwt_event;		/* grant event to wait on */
+	USHORT			lwt_flags;
+} *LWT;
+
+#define LWT_pending	1			/* latch request is pending */
+
+#include "../jrd/pio.h"
+
+/* Constants used by prefetch mechanism */
+
+#define PREFETCH_MAX_TRANSFER	16384	/* maximum block I/O transfer (bytes) */
+#define PREFETCH_MAX_PAGES	(2 * PREFETCH_MAX_TRANSFER / MIN_PAGE_SIZE)	/* maximum pages allowed per prefetch request */
+
+/* Prefetch block */
+
+typedef struct prf
+{
+	struct blk	prf_header;
+	struct tdbb*prf_tdbb;			/* thread database context */
+	SLONG		prf_start_page;		/* starting page of multipage prefetch */
+	USHORT		prf_max_prefetch;	/* maximum no. of pages to prefetch */
+	USHORT		prf_page_count;		/* actual no. of pages being prefetched */
+	struct		piob prf_piob;		/* physical I/O status block */
+	SCHAR*		prf_aligned_buffer;	/* buffer address aligned for raw (OS cache bypass) I/O */
+	SCHAR*		prf_io_buffer;		/* I/O buffer address */
+	UCHAR		prf_flags;
+	struct bdb*	prf_bdbs[PREFETCH_MAX_TRANSFER / MIN_PAGE_SIZE];
+	SCHAR		prf_unaligned_buffer[PREFETCH_MAX_TRANSFER + MIN_PAGE_SIZE];
+} *PRF;
+
+#define PRF_active	1			/* prefetch block currently in use */
+
+#endif /* _JRD_CCH_H_ */
diff --git a/src/jrd/cch_proto.h b/src/jrd/cch_proto.h
new file mode 100644
index 0000000000..93c401554c
--- /dev/null
+++ b/src/jrd/cch_proto.h
@@ -0,0 +1,104 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		cch_proto.h
+ *	DESCRIPTION:	Prototype header file for cch.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_CCH_PROTO_H
+#define JRD_CCH_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void DLL_EXPORT	CCH_do_log_shutdown(TDBB, SSHORT);
+void DLL_EXPORT CCH_shutdown_database(struct dbb *);
+
+USHORT		CCH_checksum(struct bdb *);
+void		CCH_down_grade_dbb(struct dbb *);
+BOOLEAN		CCH_exclusive(TDBB, USHORT, SSHORT);
+BOOLEAN		CCH_exclusive_attachment(TDBB, USHORT, SSHORT);
+void		CCH_expand(TDBB, ULONG);
+struct pag*	CCH_fake(TDBB, struct win *, SSHORT);
+struct pag*	CCH_fetch(TDBB, register struct win *, USHORT, SSHORT,
+						 SSHORT, SSHORT, BOOLEAN);
+SSHORT		CCH_fetch_lock(TDBB, register struct win *, USHORT, SSHORT,
+						 SSHORT, SSHORT);
+void		CCH_fetch_page(TDBB, register struct win *, SSHORT, BOOLEAN);
+void		CCH_fini(TDBB);
+void		CCH_flush(TDBB, USHORT, SLONG);
+BOOLEAN		CCH_free_page(TDBB);
+SLONG		CCH_get_incarnation(struct win *);
+struct pag*	CCH_handoff(TDBB, register struct win *, SLONG, SSHORT,
+							   SSHORT, SSHORT, SSHORT);
+void		CCH_init(TDBB, ULONG);
+void		CCH_journal_page(TDBB, struct win *);
+void		CCH_journal_record(TDBB, struct win *, UCHAR *, USHORT, UCHAR *,
+							   USHORT);
+void		CCH_mark(TDBB, struct win *, USHORT);
+void		CCH_mark_must_write(TDBB, struct win *);
+void		CCH_must_write(struct win *);
+struct lck*	CCH_page_lock(TDBB, enum err_t);
+void		CCH_precedence(TDBB, struct win *, SLONG);
+void		CCH_prefetch(struct tdbb *, SLONG *, SSHORT);
+BOOLEAN		CCH_prefetch_pages(TDBB);
+void		CCH_recover_shadow(TDBB, struct sbm *);
+void		CCH_release(TDBB, struct win *, BOOLEAN);
+void		CCH_release_and_free(struct win *);
+void		CCH_release_exclusive(TDBB);
+void		CCH_release_journal(TDBB, SLONG);
+BOOLEAN		CCH_rollover_to_shadow(struct dbb *, struct fil *, BOOLEAN);
+void		CCH_unwind(TDBB, BOOLEAN);
+BOOLEAN		CCH_validate(struct win *);
+BOOLEAN		CCH_write_all_shadows(TDBB, struct sdw *, struct bdb *,
+									 STATUS *, USHORT, BOOLEAN);
+
+/* macros for dealing with cache pages */
+
+#define CCH_FETCH(tdbb, window, lock, type)		  CCH_fetch (tdbb, window, lock, type, 1, 1, 1)
+#define CCH_FETCH_NO_SHADOW(tdbb, window, lock, type)		  CCH_fetch (tdbb, window, lock, type, 1, 1, 0)
+#define CCH_FETCH_NO_CHECKSUM(tdbb, window, lock, type)   CCH_fetch (tdbb, window, lock, type, 0, 1, 1)
+#define CCH_FETCH_TIMEOUT(tdbb, window, lock, type, latch_wait)   CCH_fetch (tdbb, window, lock, type, 0, latch_wait, 1)
+#define CCH_FETCH_LOCK(tdbb, window, lock, wait, latch_wait, type) CCH_fetch_lock (tdbb, window, lock, wait, latch_wait, type)
+#define CCH_FETCH_PAGE(tdbb, window, checksum, read_shadow)       CCH_fetch_page (tdbb, window, checksum, read_shadow)
+#define CCH_RELEASE(tdbb, window)                         CCH_release (tdbb, window, FALSE)
+#define CCH_RELEASE_TAIL(tdbb, window)                    CCH_release (tdbb, window, TRUE)
+#define CCH_MARK(tdbb, window)                            CCH_mark (tdbb, window, 0)
+#define CCH_MARK_SYSTEM(tdbb, window)                     CCH_mark (tdbb, window, 1)
+#define CCH_HANDOFF(tdbb, window, page, lock, type)       CCH_handoff (tdbb, window, page, lock, type, 1, 0)
+#define CCH_HANDOFF_TIMEOUT(tdbb, window, page, lock, type, latch_wait)   CCH_handoff (tdbb, window, page, lock, type, latch_wait, 0)
+#define CCH_HANDOFF_TAIL(tdbb, window, page, lock, type)  CCH_handoff (tdbb, window, page, lock, type, 1, 1)
+#define CCH_MARK_MUST_WRITE(tdbb, window)                 CCH_mark_must_write (tdbb, window)
+#define CCH_PREFETCH(tdbb, pages, count)            CCH_prefetch (tdbb, pages, count)
+
+/* Flush flags */
+
+#define FLUSH_ALL	1			/* flush all dirty buffers in cache */
+#define FLUSH_RLSE	2			/* release page locks after flush */
+#define FLUSH_TRAN	4			/* flush transaction dirty buffers from dirty btree */
+#define FLUSH_SWEEP	8			/* flush dirty buffers from garbage collection */
+#define FLUSH_SYSTEM	16		/* flush system transaction only from dirty btree */
+#define FLUSH_FINI	(FLUSH_ALL | FLUSH_RLSE)
+
+#ifdef __cplusplus
+} /* "C" */
+#endif
+
+#endif /* JRD_CCH_PROTO_H */
diff --git a/src/jrd/cdefs.h b/src/jrd/cdefs.h
new file mode 100644
index 0000000000..540ee5a9ef
--- /dev/null
+++ b/src/jrd/cdefs.h
@@ -0,0 +1,220 @@
+/*
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Berkeley Software Design, Inc.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *    notice, this list of conditions and the following disclaimer.
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)cdefs.h	8.8 (Berkeley) 1/9/95
+ * $FreeBSD: src/sys/sys/cdefs.h,v 1.24.2.1 1999/08/29 16:32:10 peter Exp $
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef	_SYS_CDEFS_H_
+#define	_SYS_CDEFS_H_
+
+#if defined(__cplusplus)
+#define	__BEGIN_DECLS	extern "C" {
+#define	__END_DECLS	}
+#else
+#define	__BEGIN_DECLS
+#define	__END_DECLS
+#endif
+
+/*
+ * The __CONCAT macro is used to concatenate parts of symbol names, e.g.
+ * with "#define OLD(foo) __CONCAT(old,foo)", OLD(foo) produces oldfoo.
+ * The __CONCAT macro is a bit tricky to use if it must work in non-ANSI
+ * mode -- there must be no spaces between its arguments, and for nested
+ * __CONCAT's, all the __CONCAT's must be at the left.  __CONCAT can also
+ * concatenate double-quoted strings produced by the __STRING macro, but
+ * this only works with ANSI C.
+ *
+ * __XSTRING is like __STRING, but it expands any macros in its argument
+ * first.  It is only available with ANSI C.
+ */
+#if defined(__STDC__) || defined(__cplusplus)
+#define	__P(protos)	protos		/* full-blown ANSI C */
+#define	__CONCAT1(x,y)	x ## y
+#define	__CONCAT(x,y)	__CONCAT1(x,y)
+#define	__STRING(x)	#x			/* stringify without expanding x */
+#define	__XSTRING(x)	__STRING(x)	/* expand x, then stringify */
+
+#define	__const		const		/* define reserved names to standard */
+#define	__signed	signed
+#define	__volatile	volatile
+#if defined(__cplusplus)
+#define	__inline	inline		/* convert to C++ keyword */
+#else
+#ifndef __GNUC__
+#define	__inline				/* delete GCC keyword */
+#endif /* !__GNUC__ */
+#endif /* !__cplusplus */
+
+#else /* !(__STDC__ || __cplusplus) */
+#define	__P(protos)	()			/* traditional C preprocessor */
+#define	__CONCAT(x,y)	x/**/y
+#define	__STRING(x)	"x"
+
+#ifndef __GNUC__
+#define	__const					/* delete pseudo-ANSI C keywords */
+#define	__inline
+#define	__signed
+#define	__volatile
+/*
+ * In non-ANSI C environments, new programs will want ANSI-only C keywords
+ * deleted from the program and old programs will want them left alone.
+ * When using a compiler other than gcc, programs using the ANSI C keywords
+ * const, inline etc. as normal identifiers should define -DNO_ANSI_KEYWORDS.
+ * When using "gcc -traditional", we assume that this is the intent; if
+ * __GNUC__ is defined but __STDC__ is not, we leave the new keywords alone.
+ */
+#ifndef	NO_ANSI_KEYWORDS
+#define	const					/* delete ANSI C keywords */
+#define	inline
+#define	signed
+#define	volatile
+#endif /* !NO_ANSI_KEYWORDS */
+#endif /* !__GNUC__ */
+#endif /* !(__STDC__ || __cplusplus) */
+
+/*
+ * Compiler-dependent macros to help declare dead (non-returning) and
+ * pure (no side effects) functions, and unused variables.  They are
+ * null except for versions of gcc that are known to support the features
+ * properly (old versions of gcc-2 supported the dead and pure features
+ * in a different (wrong) way).
+ */
+#if __GNUC__ < 2 || __GNUC__ == 2 && __GNUC_MINOR__ < 5
+#define __dead2
+#define __pure2
+#define __unused
+#endif
+#if __GNUC__ == 2 && __GNUC_MINOR__ >= 5 && __GNUC_MINOR__ < 7
+#define __dead2		__attribute__((__noreturn__))
+#define __pure2		__attribute__((__const__))
+#define __unused
+#endif
+#if __GNUC__ == 2 && __GNUC_MINOR__ >= 7
+#define __dead2		__attribute__((__noreturn__))
+#define __pure2		__attribute__((__const__))
+#define __unused	__attribute__((__unused__))
+#endif
+
+/*
+ * Compiler-dependent macros to declare that functions take printf-like
+ * or scanf-like arguments.  They are null except for versions of gcc
+ * that are known to support the features properly (old versions of gcc-2
+ * didn't permit keeping the keywords out of the application namespace).
+ */
+#if __GNUC__ < 2 || __GNUC__ == 2 && __GNUC_MINOR__ < 7
+#define	__printflike(fmtarg, firstvararg)
+#define	__scanflike(fmtarg, firstvararg)
+#else
+#define	__printflike(fmtarg, firstvararg) \
+	    __attribute__((__format__ (__printf__, fmtarg, firstvararg)))
+#define	__scanflike(fmtarg, firstvararg) \
+	    __attribute__((__format__ (__scanf__, fmtarg, firstvararg)))
+#endif
+
+/* Compiler-dependent macros that rely on FreeBSD-specific extensions. */
+#if __FreeBSD_cc_version >= 300001
+#define	__printf0like(fmtarg, firstvararg) \
+	    __attribute__((__format__ (__printf0__, fmtarg, firstvararg)))
+#else
+#define	__printf0like(fmtarg, firstvararg)
+#endif
+
+#ifdef __GNUC__
+#ifdef __ELF__
+#ifdef __STDC__
+#define	__weak_reference(sym,alias)	\
+	__asm__(".weak " #alias);	\
+	__asm__(".equ "  #alias ", " #sym)
+#define	__warn_references(sym,msg)	\
+	__asm__(".section .gnu.warning." #sym);	\
+	__asm__(".asciz \"" msg "\"");	\
+	__asm__(".previous")
+#else
+#define	__weak_reference(sym,alias)	\
+	__asm__(".weak alias");		\
+	__asm__(".equ alias, sym")
+#define	__warn_references(sym,msg)	\
+	__asm__(".section .gnu.warning.sym"); \
+	__asm__(".asciz \"msg\"");	\
+	__asm__(".previous")
+#endif /* __STDC__ */
+#else /* !__ELF__ */
+#ifdef __STDC__
+#define __weak_reference(sym,alias)	\
+	__asm__(".stabs \"_" #alias "\",11,0,0,0");	\
+	__asm__(".stabs \"_" #sym "\",1,0,0,0")
+#define __warn_references(sym,msg)	\
+	__asm__(".stabs \"" msg "\",30,0,0,0");		\
+	__asm__(".stabs \"_" #sym "\",1,0,0,0")
+#else
+#define __weak_reference(sym,alias)	\
+	__asm__(".stabs \"_/**/alias\",11,0,0,0");	\
+	__asm__(".stabs \"_/**/sym\",1,0,0,0")
+#define __warn_references(sym,msg)	\
+	__asm__(".stabs msg,30,0,0,0");			\
+	__asm__(".stabs \"_/**/sym\",1,0,0,0")
+#endif /* __STDC__ */
+#endif /* __ELF__ */
+#endif /* __GNUC__ */
+
+#define	__IDSTRING(name,string)	static const char name[] __unused = string
+
+#ifndef	__RCSID
+#define	__RCSID(s)	__IDSTRING(rcsid,s)
+#endif
+
+#ifndef	__RCSID_SOURCE
+#define	__RCSID_SOURCE(s) __IDSTRING(rcsid_source,s)
+#endif
+
+#ifndef	__COPYRIGHT
+#define	__COPYRIGHT(s)	__IDSTRING(copyright,s)
+#endif
+
+#endif /* !_SYS_CDEFS_H_ */
diff --git a/src/jrd/cmp.cpp b/src/jrd/cmp.cpp
new file mode 100644
index 0000000000..06f223840b
--- /dev/null
+++ b/src/jrd/cmp.cpp
@@ -0,0 +1,5439 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		cmp.c
+ *	DESCRIPTION:	Request compiler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: cmp.cpp,v 1.1.1.1 2001-05-23 13:26:14 tamlin Exp $
+*/
+
+#include "../jrd/ibsetjmp.h"
+#include <string.h>
+#include <stdlib.h>				/* abort */
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/req.h"
+#include "../jrd/val.h"
+#include "../jrd/align.h"
+#include "../jrd/lls.h"
+#include "../jrd/exe.h"
+#include "../jrd/rse.h"
+#include "../jrd/scl.h"
+#include "../jrd/tra.h"
+#include "../jrd/all.h"
+#include "../jrd/lck.h"
+#include "../jrd/irq.h"
+#include "../jrd/drq.h"
+#include "../jrd/license.h"
+#include "../jrd/intl.h"
+#include "../jrd/rng.h"
+#include "../jrd/btr.h"
+#include "../jrd/constants.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dsc_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/fun_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/idx_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/opt_proto.h"
+#include "../jrd/par_proto.h"
+#include "../jrd/rng_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/scl_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/dsc_proto.h"
+#include "../jrd/dbg_proto.h"	/* DBG_supervisor */
+
+/* Pick up relation ids */
+
+#define RELATION(name,id,ods)	id,
+#define FIELD(symbol,name,id,update,ods,new_id,new_ods)
+#define END_RELATION
+
+typedef ENUM rids {
+#include "../jrd/relations.h"
+rel_MAX} RIDS;
+
+#undef RELATION
+#undef FIELD
+#undef END_RELATION
+
+extern "C" {
+
+/* InterBase provides transparent conversion from string to date in
+ * contexts where it makes sense.  This macro checks a descriptor to
+ * see if it is something that *could* represent a date value
+ */
+#define COULD_BE_DATE(d)	((DTYPE_IS_DATE((d).dsc_dtype)) || ((d).dsc_dtype <= dtype_any_text))
+
+/* One of d1,d2 is time, the other is date */
+#define IS_DATE_AND_TIME(d1,d2)	\
+  ((((d1).dsc_dtype==dtype_sql_time)&&((d2).dsc_dtype==dtype_sql_date)) || \
+   (((d2).dsc_dtype==dtype_sql_time)&&((d1).dsc_dtype==dtype_sql_date)))
+
+#define REQ_TAIL		sizeof (((REQ) 0)->req_rpb[0])
+#define MAP_LENGTH		256
+
+#if defined (HP10) && defined (SUPERSERVER)
+#define MAX_RECURSION		96
+#endif
+
+#ifndef MAX_RECURSION
+#define MAX_RECURSION		128
+#endif
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+#define MAX_REQUEST_SIZE	65534
+#else
+#define MAX_REQUEST_SIZE	262144
+#endif
+
+#ifdef SHLIB_DEFS
+#undef access
+#endif
+
+static UCHAR *alloc_map(TDBB, CSB *, USHORT);
+static NOD catenate_nodes(TDBB, LLS);
+static NOD copy(TDBB, CSB *, NOD, UCHAR *, USHORT, USHORT);
+static void expand_view_nodes(TDBB, CSB, USHORT, LLS *, NOD_T);
+static void ignore_dbkey(TDBB, CSB, RSE, REL);
+static NOD make_defaults(TDBB, CSB *, USHORT, NOD);
+static NOD make_validation(TDBB, CSB *, USHORT);
+static NOD pass1(TDBB, CSB *, NOD, REL, USHORT, BOOLEAN);
+static void pass1_erase(TDBB, CSB *, NOD);
+static NOD pass1_expand_view(TDBB, CSB, USHORT, USHORT, USHORT);
+static void pass1_modify(TDBB, CSB *, NOD);
+static RSE pass1_rse(TDBB, CSB *, RSE, REL, USHORT);
+static void pass1_source(TDBB, CSB *, RSE, NOD, NOD *, LLS *, REL, USHORT);
+static NOD pass1_store(TDBB, CSB *, NOD);
+static NOD pass1_update(TDBB, CSB *, REL, VEC, USHORT, USHORT, USHORT, REL,
+						USHORT);
+static NOD pass2(TDBB, register CSB, register NOD, NOD);
+static void pass2_rse(TDBB, CSB, RSE);
+static NOD pass2_union(TDBB, CSB, NOD);
+static void plan_check(CSB, RSE);
+static void plan_set(CSB, RSE, NOD);
+static void post_procedure_access(TDBB, CSB, PRC);
+static RSB post_rse(TDBB, CSB, RSE);
+static void post_trigger_access(TDBB, CSB, VEC, REL);
+static void process_map(TDBB, CSB, NOD, FMT *);
+static BOOLEAN stream_in_rse(USHORT, RSE);
+static SSHORT strcmp_space(TEXT *, TEXT *);
+
+#ifdef PC_ENGINE
+static USHORT base_stream(CSB, NOD *, BOOLEAN);
+#endif
+
+
+int DLL_EXPORT CMP_clone_active(REQ request)
+{
+/**************************************
+ *
+ *	C M P _ c l o n e _ a c t i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine if a request or any of its clones are active.
+ *
+ **************************************/
+	REQ *sub_req, *end;
+	VEC vector;
+
+	DEV_BLKCHK(request, type_req);
+
+	if (request->req_flags & req_in_use)
+		return TRUE;
+
+	if (vector = request->req_sub_requests)
+		for (sub_req = (REQ *) vector->vec_object, end =
+			 sub_req + vector->vec_count; sub_req < end; sub_req++)
+			if (*sub_req && (*sub_req)->req_flags & req_in_use)
+				return TRUE;
+
+	return FALSE;
+}
+
+
+NOD DLL_EXPORT CMP_clone_node(TDBB tdbb, CSB csb, NOD node)
+{
+/**************************************
+ *
+ *	C M P _ c l o n e _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clone a value node for the optimizer.  Make a copy of the node
+ *	(if necessary) and assign impure space.
+ *
+ **************************************/
+	NOD clone;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(node, type_nod);
+
+	if (node->nod_type == nod_argument)
+		return node;
+
+	clone = copy(tdbb, &csb, node, NULL, 0, FALSE);
+	pass2(tdbb, csb, clone, 0);
+
+	return clone;
+}
+
+
+REQ DLL_EXPORT CMP_clone_request(TDBB tdbb,
+								 REQ request, USHORT level, BOOLEAN validate)
+{
+/**************************************
+ *
+ *	C M P _ c l o n e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the incarnation of the request appropriate for a given level.
+ *	If the incarnation doesn't exist, clone the request.
+ *
+ **************************************/
+	REQ clone;
+	VEC vector;
+	RPB *rpb1, *rpb2, *end;
+	USHORT n;
+	ACC access;
+	SCL class_;
+	PRC procedure;
+	TEXT *prc_sec_name;
+
+	DEV_BLKCHK(request, type_req);
+
+	SET_TDBB(tdbb);
+
+/* Find the request if we've got it. */
+
+	if (!level)
+		return request;
+
+	if ((vector = request->req_sub_requests) &&
+		level < vector->vec_count &&
+		(clone = (REQ) vector->vec_object[level])) return clone;
+
+/* We need to clone the request -- find someplace to put it */
+
+	if (validate) {
+		if (procedure = request->req_procedure) {
+			prc_sec_name = (procedure->prc_security_name ?
+							(TEXT *) procedure->
+							prc_security_name->str_data : (TEXT *) 0);
+			class_ = SCL_get_class(prc_sec_name);
+			SCL_check_access(class_, 0, 0,
+							 0, SCL_execute, "procedure",
+							 reinterpret_cast <
+							 char *>(procedure->prc_name->str_data));
+		}
+		for (access = request->req_access; access; access = access->acc_next) {
+#ifndef GATEWAY
+			class_ = SCL_get_class(access->acc_security_name);
+			SCL_check_access(class_, access->acc_view, access->acc_trg_name,
+							 access->acc_prc_name, access->acc_mask,
+							 access->acc_type, access->acc_name);
+#else
+			SCL_check_access(access->acc_security_name, access->acc_view,
+							 access->acc_trg_name, access->acc_prc_name,
+							 access->acc_mask, access->acc_type,
+							 access->acc_name);
+#endif
+		}
+	}
+
+	vector = ALL_vector(request->req_pool, &request->req_sub_requests, level);
+
+/* Clone the request */
+
+	n =
+		(USHORT) ((request->req_impure_size - REQ_SIZE + REQ_TAIL - 1) /
+				  REQ_TAIL);
+	clone = (REQ) ALL_alloc(request->req_pool, type_req, n, ERR_jmp);
+	vector->vec_object[level] = (BLK) clone;
+	clone->req_attachment = tdbb->tdbb_attachment;
+	clone->req_count = request->req_count;
+	clone->req_pool = request->req_pool;
+	clone->req_impure_size = request->req_impure_size;
+	clone->req_top_node = request->req_top_node;
+	clone->req_trg_name = request->req_trg_name;
+	clone->req_flags = request->req_flags & REQ_FLAGS_CLONE_MASK;
+
+	rpb1 = clone->req_rpb;
+	end = rpb1 + clone->req_count;
+
+	for (rpb2 = request->req_rpb; rpb1 < end; rpb1++, rpb2++) {
+		if (rpb2->rpb_stream_flags & RPB_s_update)
+			rpb1->rpb_stream_flags |= RPB_s_update;
+		rpb1->rpb_relation = rpb2->rpb_relation;
+#ifdef GATEWAY
+		rpb1->rpb_fields = rpb2->rpb_fields;
+		rpb1->rpb_sql_selct = rpb2->rpb_sql_selct;
+		rpb1->rpb_sql_other = rpb2->rpb_sql_other;
+#endif
+	}
+
+	return clone;
+}
+
+
+REQ DLL_EXPORT CMP_compile(USHORT blr_length,
+						   UCHAR * blr, USHORT internal_flag)
+{
+/**************************************
+ *
+ *	C M P _ c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a BLR request.
+ *	Wrapper for CMP_compile2 - an API change
+ *      was made for CMP_compile, but as calls to this
+ *	are generated by gpre it's necessary to have a
+ *	wrapper function to keep the build from breaking.
+ *	This function can be removed after the next full
+ *	product build is completed.
+ *	1997-Jan-20 David Schnepper 
+ *
+ **************************************/
+	return CMP_compile2(GET_THREAD_DATA, blr, internal_flag);
+}
+
+
+REQ DLL_EXPORT CMP_compile2(TDBB tdbb, UCHAR* blr, USHORT internal_flag)
+{
+/**************************************
+ *
+ *	C M P _ c o m p i l e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a BLR request.
+ *
+ **************************************/
+	CSB csb;
+	REQ request = 0;
+	PLB old_pool, new_pool;
+	ACC access;
+	SCL class_;
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = new_pool = ALL_pool();
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		tdbb->tdbb_default = old_pool;
+		if (request)
+			CMP_release(tdbb, request);
+		else if (new_pool)
+			ALL_rlpool(new_pool);
+		ERR_punt();
+	}
+
+	csb = PAR_parse(tdbb, blr, internal_flag);
+	request = CMP_make_request(tdbb, &csb);
+
+	if (internal_flag)
+		request->req_flags |= req_internal;
+
+	for (access = request->req_access; access; access = access->acc_next) {
+#ifndef GATEWAY
+		class_ = SCL_get_class(access->acc_security_name);
+		SCL_check_access(class_, access->acc_view, access->acc_trg_name,
+						 access->acc_prc_name, access->acc_mask,
+						 access->acc_type, access->acc_name);
+#else
+		SCL_check_access(access->acc_security_name, access->acc_view,
+						 access->acc_trg_name, access->acc_prc_name,
+						 access->acc_mask, access->acc_type,
+						 access->acc_name);
+#endif
+	}
+
+	ALL_RELEASE(csb);
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	tdbb->tdbb_default = old_pool;
+
+	return request;
+}
+
+
+csb_repeat *DLL_EXPORT CMP_csb_element(CSB * csb, USHORT element)
+{
+/**************************************
+ *
+ *	C M P _ c s b _ e l e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find tail element of compile scratch block.  If the csb isn't big
+ *	enough, extend it.
+ *
+ **************************************/
+
+	DEV_BLKCHK(*csb, type_csb);
+
+	if (element >= (*csb)->csb_count) {
+		*csb = (CSB) ALL_extend((BLK *) csb, element + 5);
+		(*csb)->csb_count = element + 5;
+	}
+
+	return &(*csb)->csb_rpt[element];
+}
+
+
+void DLL_EXPORT CMP_expunge_transaction(TRA transaction)
+{
+/**************************************
+ *
+ *	C M P _ e x p u n g e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of all references to a given transaction in existing
+ *	requests.
+ *
+ **************************************/
+	VEC vector;
+	REQ request, *sub, *end;
+
+	DEV_BLKCHK(transaction, type_tra);
+
+	for (request = transaction->tra_attachment->att_requests;
+		 request; request = request->req_request) {
+		if (request->req_transaction == transaction)
+			request->req_transaction = NULL;
+		if (vector = request->req_sub_requests)
+			for (sub = (REQ *) vector->vec_object, end =
+				 sub + vector->vec_count; sub < end; sub++)
+				if (*sub && (*sub)->req_transaction == transaction)
+					(*sub)->req_transaction = NULL;
+	}
+}
+
+
+REQ DLL_EXPORT CMP_find_request(TDBB tdbb, USHORT id, USHORT which)
+{
+/**************************************
+ *
+ *	C M P _ f i n d _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find an inactive incarnation of a system request.  If necessary,
+ *	clone it.
+ *
+ **************************************/
+	DBB dbb;
+	REQ request, clone;
+	USHORT n;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+
+/* If the request hasn't been compiled or isn't active, 
+   there're nothing to do */
+
+	THD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_cmp_clone);
+	if ((which == IRQ_REQUESTS && !(request = (REQ) REQUEST(id))) ||
+		(which == DYN_REQUESTS && !(request = (REQ) DYN_REQUEST(id))) ||
+		!(request->req_flags & (req_active | req_reserved))) {
+		if (request)
+			request->req_flags |= req_reserved;
+		THD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_cmp_clone);
+		return request;
+	}
+
+/* Request exists and is in use.  Look for clones until we find
+   one that is available */
+
+	for (n = 1;; n++) {
+		if (n > MAX_RECURSION) {
+			THD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_cmp_clone);
+			ERR_post(gds_no_meta_update,
+					 gds_arg_gds, gds_req_depth_exceeded,
+					 gds_arg_number, (SLONG) MAX_RECURSION, 0);
+			/* Msg363 "request depth exceeded. (Recursive definition?)" */
+		}
+		clone = CMP_clone_request(tdbb, request, n, FALSE);
+		if (!(clone->req_flags & (req_active | req_reserved))) {
+			clone->req_flags |= req_reserved;
+			THD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_cmp_clone);
+			return clone;
+		}
+	}
+}
+
+
+void DLL_EXPORT CMP_fini(TDBB tdbb)
+{
+/**************************************
+ *
+ *	C M P _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of resource locks during shutdown.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	CMP_shutdown_database(tdbb);
+}
+
+
+FMT DLL_EXPORT CMP_format(TDBB tdbb, CSB csb, USHORT stream)
+{
+/**************************************
+ *
+ *	C M P _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a format for a stream.
+ *
+ **************************************/
+	csb_repeat *tail;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(csb, type_csb);
+
+	tail = &csb->csb_rpt[stream];
+
+	if (tail->csb_format)
+		return tail->csb_format;
+
+	if (tail->csb_relation)
+		return tail->csb_format = MET_current(tdbb, tail->csb_relation);
+	else if (tail->csb_procedure)
+		return tail->csb_format = tail->csb_procedure->prc_format;
+
+	IBERROR(222);				/* msg 222 bad blr -- invalid stream */
+	return ((FMT) NULL);
+}
+
+
+void DLL_EXPORT CMP_get_desc(
+							 TDBB tdbb,
+							 register CSB csb, register NOD node, DSC * desc)
+{
+/**************************************
+ *
+ *	C M P _ g e t _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute descriptor for value expression.
+ *
+ **************************************/
+	USHORT dtype, dtype1, dtype2;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(node, type_nod);
+
+	switch (node->nod_type) {
+	case nod_max:
+	case nod_min:
+	case nod_from:
+		CMP_get_desc(tdbb, csb, node->nod_arg[e_stat_value], desc);
+		return;
+
+	case nod_agg_total:
+	case nod_agg_total_distinct:
+	case nod_total:
+		if (node->nod_type == nod_total)
+			CMP_get_desc(tdbb, csb, node->nod_arg[e_stat_value], desc);
+		else
+			CMP_get_desc(tdbb, csb, node->nod_arg[0], desc);
+		switch (dtype = desc->dsc_dtype) {
+		case dtype_short:
+			desc->dsc_dtype = dtype_long;
+			desc->dsc_length = sizeof(SLONG);
+			node->nod_scale = desc->dsc_scale;
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+			return;
+
+		case dtype_null:
+			desc->dsc_dtype = dtype_null;
+			desc->dsc_length = 0;
+			node->nod_scale = 0;
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+			return;
+
+		case dtype_long:
+		case dtype_int64:
+		case dtype_real:
+		case dtype_double:
+#ifdef VMS
+		case dtype_d_float:
+#endif
+		case dtype_text:
+		case dtype_cstring:
+		case dtype_varying:
+			desc->dsc_dtype = DEFAULT_DOUBLE;
+			desc->dsc_length = sizeof(double);
+			desc->dsc_scale = 0;
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+			node->nod_flags |= nod_double;
+			return;
+
+		case dtype_quad:
+			desc->dsc_dtype = dtype_quad;
+			desc->dsc_length = sizeof(SQUAD);
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+			node->nod_scale = desc->dsc_scale;
+			node->nod_flags |= nod_quad;
+#ifdef NATIVE_QUAD
+			return;
+#endif
+
+		default:
+			assert(FALSE);
+			/* FALLINTO */
+		case dtype_sql_time:
+		case dtype_sql_date:
+		case dtype_timestamp:
+		case dtype_blob:
+		case dtype_array:
+			/* break to error reporting code */
+			break;
+		}
+		break;
+
+	case nod_agg_total2:
+	case nod_agg_total_distinct2:
+		CMP_get_desc(tdbb, csb, node->nod_arg[0], desc);
+		switch (dtype = desc->dsc_dtype) {
+		case dtype_short:
+		case dtype_long:
+		case dtype_int64:
+			desc->dsc_dtype = dtype_int64;
+			desc->dsc_length = sizeof(SINT64);
+			node->nod_scale = desc->dsc_scale;
+			desc->dsc_flags = 0;
+			return;
+
+		case dtype_null:
+			desc->dsc_dtype = dtype_null;
+			desc->dsc_length = 0;
+			node->nod_scale = 0;
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+			return;
+
+		case dtype_real:
+		case dtype_double:
+#ifdef VMS
+		case dtype_d_float:
+#endif
+		case dtype_text:
+		case dtype_cstring:
+		case dtype_varying:
+			desc->dsc_dtype = DEFAULT_DOUBLE;
+			desc->dsc_length = sizeof(double);
+			desc->dsc_scale = 0;
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+			node->nod_flags |= nod_double;
+			return;
+
+
+		case dtype_quad:
+			desc->dsc_dtype = dtype_quad;
+			desc->dsc_length = sizeof(SQUAD);
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+			node->nod_scale = desc->dsc_scale;
+			node->nod_flags |= nod_quad;
+#ifdef NATIVE_QUAD
+			return;
+#endif
+
+		default:
+			assert(FALSE);
+			/* FALLINTO */
+		case dtype_sql_time:
+		case dtype_sql_date:
+		case dtype_timestamp:
+		case dtype_blob:
+		case dtype_array:
+			/* break to error reporting code */
+			break;
+		}
+		break;
+
+
+	case nod_prot_mask:
+	case nod_null:
+	case nod_agg_count:
+	case nod_agg_count2:
+	case nod_agg_count_distinct:
+	case nod_count2:
+	case nod_count:
+	case nod_gen_id:
+	case nod_lock_state:
+#ifdef PC_ENGINE
+	case nod_lock_record:
+	case nod_lock_relation:
+	case nod_seek:
+	case nod_seek_no_warn:
+	case nod_crack:
+#endif
+		desc->dsc_dtype = dtype_long;
+		desc->dsc_length = sizeof(SLONG);
+		desc->dsc_scale = 0;
+		desc->dsc_sub_type = 0;
+		desc->dsc_flags = 0;
+		return;
+
+#ifdef PC_ENGINE
+	case nod_begin_range:
+		desc->dsc_dtype = dtype_text;
+		desc->dsc_ttype = ttype_ascii;
+		desc->dsc_scale = 0;
+		desc->dsc_length = RANGE_NAME_LENGTH;
+		desc->dsc_flags = 0;
+		return;
+#endif
+
+	case nod_field:
+		{
+			FMT format;
+			USHORT id;
+
+			id = (USHORT) node->nod_arg[e_fld_id];
+			format =
+				CMP_format(tdbb, csb, (USHORT) node->nod_arg[e_fld_stream]);
+			if (id >= format->fmt_count) {
+				desc->dsc_dtype = dtype_null;
+				desc->dsc_length = 0;
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+			}
+			else
+				*desc = format->fmt_desc[id];
+			return;
+		}
+
+#ifndef GATEWAY
+	case nod_scalar:
+		{
+			NOD sub;
+			REL relation;
+			USHORT id;
+			FLD field;
+			ARR array;
+
+			sub = node->nod_arg[e_scl_field];
+			relation =
+				csb->csb_rpt[(USHORT) sub->
+							 nod_arg[e_fld_stream]].csb_relation;
+			id = (USHORT) sub->nod_arg[e_fld_id];
+			field = MET_get_field(relation, id);
+			if (!field || !(array = field->fld_array))
+				IBERROR(223);	/* msg 223 argument of scalar operation must be an array */
+			*desc = array->arr_desc.ads_rpt[0].ads_desc;
+			return;
+		}
+#endif
+
+	case nod_divide:
+		{
+			DSC desc1, desc2;
+			CMP_get_desc(tdbb, csb, node->nod_arg[0], &desc1);
+			CMP_get_desc(tdbb, csb, node->nod_arg[1], &desc2);
+			/* For compatibility with older versions of the product, we accept
+			   text types for division in blr_version4 (dialect <= 1) only. */
+			if (!(DTYPE_CAN_DIVIDE(desc1.dsc_dtype) ||
+				  DTYPE_IS_TEXT(desc1.dsc_dtype))) {
+				if (desc1.dsc_dtype != dtype_null)
+					break;		/* error, dtype not supported by arithmetic */
+			}
+			if (!(DTYPE_CAN_DIVIDE(desc2.dsc_dtype) ||
+				  DTYPE_IS_TEXT(desc2.dsc_dtype))) {
+				if (desc2.dsc_dtype != dtype_null)
+					break;		/* error, dtype not supported by arithmetic */
+			}
+		}
+		desc->dsc_dtype = DEFAULT_DOUBLE;
+		desc->dsc_length = sizeof(double);
+		desc->dsc_scale = 0;
+		desc->dsc_sub_type = 0;
+		desc->dsc_flags = 0;
+		return;
+
+	case nod_agg_average:
+	case nod_agg_average_distinct:
+		CMP_get_desc(tdbb, csb, node->nod_arg[0], desc);
+		/* FALL INTO */
+	case nod_average:
+		if (node->nod_type == nod_average)
+			CMP_get_desc(tdbb, csb, node->nod_arg[e_stat_value], desc);
+		if (!DTYPE_CAN_AVERAGE(desc->dsc_dtype)) {
+			if (desc->dsc_dtype != dtype_null)
+				break;
+		}
+		desc->dsc_dtype = DEFAULT_DOUBLE;
+		desc->dsc_length = sizeof(double);
+		desc->dsc_scale = 0;
+		desc->dsc_sub_type = 0;
+		desc->dsc_flags = 0;
+		return;
+
+		/* In 6.0, the AVERAGE of an exact numeric type is int64 with the
+		   same scale.  Only AVERAGE on an approximate numeric type can
+		   return a double. */
+
+	case nod_agg_average2:
+	case nod_agg_average_distinct2:
+		CMP_get_desc(tdbb, csb, node->nod_arg[0], desc);
+		/* In V6, the average of an exact type is computed in SINT64,
+		   rather than double as in prior releases. */
+		switch (dtype = desc->dsc_dtype) {
+		case dtype_short:
+		case dtype_long:
+		case dtype_int64:
+			desc->dsc_dtype = dtype_int64;
+			desc->dsc_length = sizeof(SINT64);
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+			node->nod_scale = desc->dsc_scale;
+			return;
+
+		case dtype_null:
+			desc->dsc_dtype = dtype_null;
+			desc->dsc_length = 0;
+			desc->dsc_scale = 0;
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+			return;
+
+		default:
+			if (!DTYPE_CAN_AVERAGE(desc->dsc_dtype))
+				break;
+			desc->dsc_dtype = DEFAULT_DOUBLE;
+			desc->dsc_length = sizeof(double);
+			desc->dsc_scale = 0;
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+			node->nod_flags |= nod_double;
+			return;
+		}
+		break;
+
+	case nod_add:
+	case nod_subtract:
+		{
+			DSC desc1, desc2;
+
+			CMP_get_desc(tdbb, csb, node->nod_arg[0], &desc1);
+			CMP_get_desc(tdbb, csb, node->nod_arg[1], &desc2);
+
+			/* 92/05/29 DAVES - don't understand why this is done for ONLY
+			   dtype_text (eg: not dtype_cstring or dtype_varying) Doesn't
+			   appear to hurt. 
+			   94/04/04 DAVES - NOW I understand it!  QLI will pass floating
+			   point values to the engine as text.  All other numeric constants
+			   it turns into either integers or longs (with scale).
+			 */
+
+			dtype1 = desc1.dsc_dtype;
+			if (dtype_int64 == dtype1)
+				dtype1 = dtype_double;
+			dtype2 = desc2.dsc_dtype;
+			if (dtype_int64 == dtype2)
+				dtype2 = dtype_double;
+
+			if ((dtype1 == dtype_text) || (dtype2 == dtype_text))
+				dtype = MAX(MAX(dtype1, dtype2), (UCHAR) DEFAULT_DOUBLE);
+			else
+				dtype = MAX(dtype1, dtype2);
+
+			switch (dtype) {
+			case dtype_short:
+				desc->dsc_dtype = dtype_long;
+				desc->dsc_length = sizeof(SLONG);
+				if (IS_DTYPE_ANY_TEXT(desc1.dsc_dtype) ||
+					IS_DTYPE_ANY_TEXT(desc2.dsc_dtype)) desc->dsc_scale = 0;
+				else
+					desc->dsc_scale = MIN(desc1.dsc_scale, desc2.dsc_scale);
+				node->nod_scale = desc->dsc_scale;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+				return;
+
+			case dtype_sql_date:
+			case dtype_sql_time:
+				if (IS_DTYPE_ANY_TEXT(desc1.dsc_dtype) ||
+					IS_DTYPE_ANY_TEXT(desc2.dsc_dtype))
+						ERR_post(gds_expression_eval_err, 0);
+				/* FALL INTO */
+			case dtype_timestamp:
+				node->nod_flags |= nod_date;
+
+				assert(DTYPE_IS_DATE(desc1.dsc_dtype) ||
+					   DTYPE_IS_DATE(desc2.dsc_dtype));
+
+				if (COULD_BE_DATE(desc1) && COULD_BE_DATE(desc2)) {
+					if (node->nod_type == nod_subtract) {
+						/* <any date> - <any date> */
+
+						/* Legal permutations are:
+						   <timestamp> - <timestamp>
+						   <timestamp> - <date>
+						   <date> - <date>
+						   <date> - <timestamp>
+						   <time> - <time>
+						   <timestamp> - <string>
+						   <string> - <timestamp> 
+						   <string> - <string>   */
+
+						if (IS_DTYPE_ANY_TEXT(dtype1))
+							dtype = dtype_timestamp;
+						else if (IS_DTYPE_ANY_TEXT(dtype2))
+							dtype = dtype_timestamp;
+						else if (dtype1 == dtype2)
+							dtype = dtype1;
+						else if ((dtype1 == dtype_timestamp) &&
+								 (dtype2 == dtype_sql_date))
+								dtype = dtype_timestamp;
+						else if ((dtype2 == dtype_timestamp) &&
+								 (dtype1 == dtype_sql_date))
+								dtype = dtype_timestamp;
+						else
+							ERR_post(gds_expression_eval_err, 0);
+
+						if (dtype == dtype_sql_date) {
+							desc->dsc_dtype = dtype_long;
+							desc->dsc_length = type_lengths[desc->dsc_dtype];
+							desc->dsc_scale = 0;
+							desc->dsc_sub_type = 0;
+							desc->dsc_flags = 0;
+						}
+						else if (dtype == dtype_sql_time) {
+							desc->dsc_dtype = dtype_long;
+							desc->dsc_length = type_lengths[desc->dsc_dtype];
+							desc->dsc_scale =
+								ISC_TIME_SECONDS_PRECISION_SCALE;
+							desc->dsc_sub_type = 0;
+							desc->dsc_flags = 0;
+						}
+						else {
+							assert(dtype == dtype_timestamp);
+							desc->dsc_dtype = DEFAULT_DOUBLE;
+							desc->dsc_length = type_lengths[desc->dsc_dtype];
+							desc->dsc_scale = 0;
+							desc->dsc_sub_type = 0;
+							desc->dsc_flags = 0;
+						}
+					}
+					else if (IS_DATE_AND_TIME(desc1, desc2)) {
+						/* <date> + <time> */
+						/* <time> + <date> */
+						desc->dsc_dtype = dtype_timestamp;
+						desc->dsc_length = type_lengths[desc->dsc_dtype];
+						desc->dsc_scale = 0;
+						desc->dsc_sub_type = 0;
+						desc->dsc_flags = 0;
+					}
+					else
+						/* <date> + <date> */
+						ERR_post(gds_expression_eval_err, 0);
+				}
+				else if (DTYPE_IS_DATE(desc1.dsc_dtype) ||
+						 /* <date> +/- <non-date> */
+						 (node->nod_type == nod_add))
+					/* <non-date> + <date> */
+				{
+					desc->dsc_dtype = desc1.dsc_dtype;
+					if (!DTYPE_IS_DATE(desc->dsc_dtype))
+						desc->dsc_dtype = desc2.dsc_dtype;
+					assert(DTYPE_IS_DATE(desc->dsc_dtype));
+					desc->dsc_length = type_lengths[desc->dsc_dtype];
+					desc->dsc_scale = 0;
+					desc->dsc_sub_type = 0;
+					desc->dsc_flags = 0;
+				}
+				else
+					/* <non-date> - <date> */
+					ERR_post(gds_expression_eval_err, 0);
+				return;
+
+			case dtype_text:
+			case dtype_cstring:
+			case dtype_varying:
+			case dtype_long:
+			case dtype_real:
+			case dtype_double:
+#ifdef VMS
+			case dtype_d_float:
+#endif
+				node->nod_flags |= nod_double;
+				desc->dsc_dtype = DEFAULT_DOUBLE;
+				desc->dsc_length = sizeof(double);
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+				return;
+
+			case dtype_null:
+				desc->dsc_dtype = dtype_null;
+				desc->dsc_length = 0;
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+				return;
+
+			case dtype_quad:
+				node->nod_flags |= nod_quad;
+				desc->dsc_dtype = dtype_quad;
+				desc->dsc_length = sizeof(SQUAD);
+				if (IS_DTYPE_ANY_TEXT(desc1.dsc_dtype) ||
+					IS_DTYPE_ANY_TEXT(desc2.dsc_dtype)) desc->dsc_scale = 0;
+				else
+					desc->dsc_scale = MIN(desc1.dsc_scale, desc2.dsc_scale);
+				node->nod_scale = desc->dsc_scale;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+#ifdef NATIVE_QUAD
+				return;
+#endif
+			default:
+				assert(FALSE);
+				/* FALLINTO */
+			case dtype_blob:
+			case dtype_array:
+				break;
+			}
+		}
+		break;
+
+	case nod_gen_id2:
+		desc->dsc_dtype = dtype_int64;
+		desc->dsc_length = sizeof(SINT64);
+		desc->dsc_scale = 0;
+		desc->dsc_sub_type = 0;
+		desc->dsc_flags = 0;
+		return;
+
+	case nod_add2:
+	case nod_subtract2:
+		{
+			DSC desc1, desc2;
+
+			CMP_get_desc(tdbb, csb, node->nod_arg[0], &desc1);
+			CMP_get_desc(tdbb, csb, node->nod_arg[1], &desc2);
+			dtype1 = desc1.dsc_dtype;
+			dtype2 = desc2.dsc_dtype;
+
+			/* Because dtype_int64 > dtype_double, we cannot just use the MAX macro to set
+			   the result dtype.  The rule is that two exact numeric operands yield an int64
+			   result, while an approximate numeric and anything yield a double result. */
+
+			if (DTYPE_IS_EXACT(desc1.dsc_dtype)
+				&& DTYPE_IS_EXACT(desc2.dsc_dtype))
+				dtype = dtype_int64;
+
+			else if (DTYPE_IS_NUMERIC(desc1.dsc_dtype) &&
+					 DTYPE_IS_NUMERIC(desc2.dsc_dtype)) dtype = dtype_double;
+
+			else {
+				/* mixed numeric and non-numeric: */
+
+				assert(COULD_BE_DATE(desc1) || COULD_BE_DATE(desc2));
+
+				/* The MAX(dtype) rule doesn't apply with dtype_int64 */
+
+				if (dtype_int64 == dtype1)
+					dtype1 = dtype_double;
+				if (dtype_int64 == dtype2)
+					dtype2 = dtype_double;
+
+				dtype = MAX(dtype1, dtype2);
+			}
+
+			switch (dtype) {
+			case dtype_timestamp:
+			case dtype_sql_date:
+			case dtype_sql_time:
+				node->nod_flags |= nod_date;
+
+				assert(DTYPE_IS_DATE(desc1.dsc_dtype) ||
+					   DTYPE_IS_DATE(desc2.dsc_dtype));
+
+				if ((DTYPE_IS_DATE(dtype1) || (dtype1 == dtype_null)) &&
+					(DTYPE_IS_DATE(dtype2) || (dtype2 == dtype_null))) {
+					if (node->nod_type == nod_subtract2) {
+						/* <any date> - <any date> */
+
+						/* Legal permutations are:
+						   <timestamp> - <timestamp>
+						   <timestamp> - <date>
+						   <date> - <date>
+						   <date> - <timestamp>
+						   <time> - <time> */
+
+						if (dtype1 == dtype_null)
+							dtype1 = dtype2;
+						else if (dtype2 == dtype_null)
+							dtype2 = dtype1;
+						if (dtype1 == dtype2)
+							dtype = dtype1;
+						else if ((dtype1 == dtype_timestamp) &&
+								 (dtype2 == dtype_sql_date))
+								dtype = dtype_timestamp;
+						else if ((dtype2 == dtype_timestamp) &&
+								 (dtype1 == dtype_sql_date))
+								dtype = dtype_timestamp;
+						else
+							ERR_post(gds_expression_eval_err, 0);
+
+						if (dtype == dtype_sql_date) {
+							desc->dsc_dtype = dtype_long;
+							desc->dsc_length = type_lengths[desc->dsc_dtype];
+							desc->dsc_scale = 0;
+							desc->dsc_sub_type = 0;
+							desc->dsc_flags = 0;
+						}
+						else if (dtype == dtype_sql_time) {
+							desc->dsc_dtype = dtype_long;
+							desc->dsc_length = type_lengths[desc->dsc_dtype];
+							desc->dsc_scale =
+								ISC_TIME_SECONDS_PRECISION_SCALE;
+							desc->dsc_sub_type = 0;
+							desc->dsc_flags = 0;
+						}
+						else {
+							assert(dtype == dtype_timestamp
+								   || dtype == dtype_null);
+							desc->dsc_dtype = DEFAULT_DOUBLE;
+							desc->dsc_length = type_lengths[desc->dsc_dtype];
+							desc->dsc_scale = 0;
+							desc->dsc_sub_type = 0;
+							desc->dsc_flags = 0;
+						}
+					}
+					else if (IS_DATE_AND_TIME(desc1, desc2)) {
+						/* <date> + <time> */
+						/* <time> + <date> */
+						desc->dsc_dtype = dtype_timestamp;
+						desc->dsc_length = type_lengths[desc->dsc_dtype];
+						desc->dsc_scale = 0;
+						desc->dsc_sub_type = 0;
+						desc->dsc_flags = 0;
+					}
+					else
+						/* <date> + <date> */
+						ERR_post(gds_expression_eval_err, 0);
+				}
+				else if (DTYPE_IS_DATE(desc1.dsc_dtype) ||
+						 /* <date> +/- <non-date> */
+						 (node->nod_type == nod_add2))
+					/* <non-date> + <date> */
+				{
+					desc->dsc_dtype = desc1.dsc_dtype;
+					if (!DTYPE_IS_DATE(desc->dsc_dtype))
+						desc->dsc_dtype = desc2.dsc_dtype;
+					assert(DTYPE_IS_DATE(desc->dsc_dtype));
+					desc->dsc_length = type_lengths[desc->dsc_dtype];
+					desc->dsc_scale = 0;
+					desc->dsc_sub_type = 0;
+					desc->dsc_flags = 0;
+				}
+				else
+					/* <non-date> - <date> */
+					ERR_post(gds_expression_eval_err, 0);
+				return;
+
+			case dtype_text:
+			case dtype_cstring:
+			case dtype_varying:
+			case dtype_real:
+			case dtype_double:
+				node->nod_flags |= nod_double;
+				desc->dsc_dtype = DEFAULT_DOUBLE;
+				desc->dsc_length = sizeof(double);
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+				return;
+
+			case dtype_short:
+			case dtype_long:
+			case dtype_int64:
+				desc->dsc_dtype = dtype_int64;
+				desc->dsc_length = sizeof(SINT64);
+				if (IS_DTYPE_ANY_TEXT(desc1.dsc_dtype) ||
+					IS_DTYPE_ANY_TEXT(desc2.dsc_dtype)) desc->dsc_scale = 0;
+				else
+					desc->dsc_scale = MIN(desc1.dsc_scale, desc2.dsc_scale);
+				node->nod_scale = desc->dsc_scale;
+				desc->dsc_sub_type =
+					MAX(desc1.dsc_sub_type, desc2.dsc_sub_type);
+				desc->dsc_flags = 0;
+				return;
+
+			case dtype_null:
+				desc->dsc_dtype = dtype_null;
+				desc->dsc_length = 0;
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+				return;
+
+			case dtype_quad:
+				node->nod_flags |= nod_quad;
+				desc->dsc_dtype = dtype_quad;
+				desc->dsc_length = sizeof(SQUAD);
+				if (IS_DTYPE_ANY_TEXT(desc1.dsc_dtype) ||
+					IS_DTYPE_ANY_TEXT(desc2.dsc_dtype)) desc->dsc_scale = 0;
+				else
+					desc->dsc_scale = MIN(desc1.dsc_scale, desc2.dsc_scale);
+				node->nod_scale = desc->dsc_scale;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+#ifdef NATIVE_QUAD
+				return;
+#endif
+			default:
+				assert(FALSE);
+				/* FALLINTO */
+			case dtype_blob:
+			case dtype_array:
+				break;
+			}
+		}
+		break;
+
+	case nod_multiply:
+		{
+			DSC desc1, desc2;
+
+			CMP_get_desc(tdbb, csb, node->nod_arg[0], &desc1);
+			CMP_get_desc(tdbb, csb, node->nod_arg[1], &desc2);
+			dtype =
+				DSC_multiply_blr4_result[desc1.dsc_dtype][desc2.dsc_dtype];
+
+			switch (dtype) {
+			case dtype_long:
+				desc->dsc_dtype = dtype_long;
+				desc->dsc_length = sizeof(SLONG);
+				desc->dsc_scale = node->nod_scale =
+					NUMERIC_SCALE(desc1) + NUMERIC_SCALE(desc2);
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+				return;
+
+			case dtype_double:
+#ifdef VMS
+			case dtype_d_float:
+#endif
+				node->nod_flags |= nod_double;
+				desc->dsc_dtype = DEFAULT_DOUBLE;
+				desc->dsc_length = sizeof(double);
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+				return;
+
+			case dtype_null:
+				desc->dsc_dtype = dtype_null;
+				desc->dsc_length = 0;
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+				return;
+
+			default:
+				assert(FALSE);
+				/* FALLINTO */
+			case DTYPE_CANNOT:
+				/* break to error reporting code */
+				break;
+			}
+		}
+		break;
+
+	case nod_multiply2:
+	case nod_divide2:
+		{
+			DSC desc1, desc2;
+
+			CMP_get_desc(tdbb, csb, node->nod_arg[0], &desc1);
+			CMP_get_desc(tdbb, csb, node->nod_arg[1], &desc2);
+			dtype = DSC_multiply_result[desc1.dsc_dtype][desc2.dsc_dtype];
+
+
+			switch (dtype) {
+			case dtype_double:
+				node->nod_flags |= nod_double;
+				desc->dsc_dtype = DEFAULT_DOUBLE;
+				desc->dsc_length = sizeof(double);
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+				return;
+
+			case dtype_int64:
+				desc->dsc_dtype = dtype_int64;
+				desc->dsc_length = sizeof(SINT64);
+				desc->dsc_scale = node->nod_scale =
+					NUMERIC_SCALE(desc1) + NUMERIC_SCALE(desc2);
+				desc->dsc_sub_type =
+					MAX(desc1.dsc_sub_type, desc2.dsc_sub_type);
+				desc->dsc_flags = 0;
+				return;
+
+			case dtype_null:
+				desc->dsc_dtype = dtype_null;
+				desc->dsc_length = 0;
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+				return;
+
+			default:
+				assert(FALSE);
+				/* FALLINTO */
+			case DTYPE_CANNOT:
+				/* break to error reporting code */
+				break;
+			}
+		}
+		break;
+
+	case nod_concatenate:
+		{
+			DSC desc1, desc2;
+
+			CMP_get_desc(tdbb, csb, node->nod_arg[0], &desc1);
+			CMP_get_desc(tdbb, csb, node->nod_arg[1], &desc2);
+			desc->dsc_dtype = dtype_text;
+			if (desc1.dsc_dtype <= dtype_varying) {
+				desc->dsc_length = desc1.dsc_length;
+				desc->dsc_ttype = desc1.dsc_ttype;
+			}
+			else {
+				desc->dsc_length =
+					DSC_convert_to_text_length(desc1.dsc_dtype);
+				desc->dsc_ttype = ttype_ascii;
+			}
+			desc->dsc_length += (desc2.dsc_dtype <= dtype_varying) ?
+				desc2.
+				dsc_length : DSC_convert_to_text_length(desc2.dsc_dtype);
+			desc->dsc_scale = 0;
+			desc->dsc_flags = 0;
+			return;
+		}
+
+	case nod_upcase:
+		CMP_get_desc(tdbb, csb, node->nod_arg[0], desc);
+		if (desc->dsc_dtype > dtype_varying) {
+			desc->dsc_length = DSC_convert_to_text_length(desc->dsc_dtype);
+			desc->dsc_dtype = dtype_text;
+			desc->dsc_ttype = ttype_ascii;
+			desc->dsc_scale = 0;
+			desc->dsc_flags = 0;
+		}
+		return;
+
+	case nod_dbkey:
+		desc->dsc_dtype = dtype_text;
+		desc->dsc_ttype = ttype_binary;
+#ifndef GATEWAY
+		desc->dsc_length = 8;
+#else
+		desc->dsc_length = 18;
+#endif
+		desc->dsc_scale = 0;
+		desc->dsc_flags = 0;
+		return;
+
+	case nod_rec_version:
+		desc->dsc_dtype = dtype_text;
+		desc->dsc_ttype = ttype_binary;
+		desc->dsc_length = 4;
+		desc->dsc_scale = 0;
+		desc->dsc_flags = 0;
+		return;
+
+	case nod_current_time:
+		desc->dsc_dtype = dtype_sql_time;
+		desc->dsc_length = type_lengths[desc->dsc_dtype];
+		desc->dsc_scale = 0;
+		desc->dsc_sub_type = 0;
+		desc->dsc_flags = 0;
+		return;
+
+	case nod_current_timestamp:
+		desc->dsc_dtype = dtype_timestamp;
+		desc->dsc_length = type_lengths[desc->dsc_dtype];
+		desc->dsc_scale = 0;
+		desc->dsc_sub_type = 0;
+		desc->dsc_flags = 0;
+		return;
+
+	case nod_current_date:
+		desc->dsc_dtype = dtype_sql_date;
+		desc->dsc_length = type_lengths[desc->dsc_dtype];
+		desc->dsc_scale = 0;
+		desc->dsc_sub_type = 0;
+		desc->dsc_flags = 0;
+		return;
+
+	case nod_user_name:
+		desc->dsc_dtype = dtype_text;
+		desc->dsc_ttype = ttype_metadata;
+		desc->dsc_length = USERNAME_LENGTH;
+		desc->dsc_scale = 0;
+		desc->dsc_flags = 0;
+		return;
+
+	case nod_extract:
+		if ((ULONG) node->nod_arg[e_extract_part] == blr_extract_second) {
+			/* QUADDATE - SECOND returns a float, or scaled! */
+			desc->dsc_dtype = dtype_long;
+			desc->dsc_length = sizeof(ULONG);
+			desc->dsc_scale = ISC_TIME_SECONDS_PRECISION_SCALE;
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+		}
+		else {
+			desc->dsc_dtype = dtype_short;
+			desc->dsc_length = sizeof(SSHORT);
+			desc->dsc_scale = 0;
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+		}
+		return;
+
+	case nod_agg_min:
+	case nod_agg_max:
+		CMP_get_desc(tdbb, csb, node->nod_arg[0], desc);
+		return;
+
+	case nod_negate:
+		CMP_get_desc(tdbb, csb, node->nod_arg[0], desc);
+		node->nod_flags =
+			node->nod_arg[0]->nod_flags & (nod_double | nod_quad);
+		return;
+
+	case nod_literal:
+		*desc = ((LIT) node)->lit_desc;
+		return;
+
+	case nod_cast:
+		{
+			FMT format;
+			DSC desc1;
+
+			format = (FMT) node->nod_arg[e_cast_fmt];
+			*desc = format->fmt_desc[0];
+			if ((desc->dsc_dtype <= dtype_any_text && !desc->dsc_length) ||
+				(desc->dsc_dtype == dtype_varying
+				 && desc->dsc_length <= sizeof(USHORT))) {
+				CMP_get_desc(tdbb, csb, node->nod_arg[e_cast_source], &desc1);
+				desc->dsc_length = DSC_string_length(&desc1);
+				if (desc->dsc_dtype == dtype_cstring)
+					desc->dsc_length++;
+				else if (desc->dsc_dtype == dtype_varying)
+					desc->dsc_length += sizeof(USHORT);
+			}
+			return;
+		}
+
+	case nod_argument:
+		{
+			FMT format;
+			NOD message;
+
+			message = node->nod_arg[e_arg_message];
+			format = (FMT) message->nod_arg[e_msg_format];
+			*desc = format->fmt_desc[(int) node->nod_arg[e_arg_number]];
+			return;
+		}
+
+	case nod_substr:
+		CMP_get_desc(tdbb, csb, node->nod_arg[0], desc);
+		return;
+
+	case nod_function:
+		{
+			FUN function;
+
+			function = (FUN) node->nod_arg[e_fun_function];
+	/** Null value for the function indicates that the function was not
+	    looked up during parsing the blr. This is true if the function 
+	    referenced in the procedure blr was dropped before dropping the
+	    procedure itself. Ignore the case because we are currently trying
+	    to drop the procedure.
+	    For normal requests, function would never be null. We would have
+	    created a valid block while parsing in par_function/par.c.
+	**/
+			if (function)
+				*desc = function->fun_rpt[function->fun_return_arg].fun_desc;
+			else
+				/* Note that CMP_get_desc is always called with a pre-allocated
+				   DSC i.e 
+				   DSC desc;
+				   CMP_get_desc (.... &desc); Hence  the code
+				   *desc = NULL;  will not work. What I've done is memset the
+				   structure to zero.
+				 */
+				MOVE_CLEAR(desc, sizeof(DSC));
+			return;
+		}
+
+	case nod_variable:
+		{
+			NOD value;
+
+			value = node->nod_arg[e_var_variable];
+			*desc = *(DSC *) (value->nod_arg + e_dcl_desc);
+			return;
+		}
+
+	case nod_value_if:
+		CMP_get_desc(tdbb, csb, node->nod_arg[1], desc);
+		return;
+
+	case nod_bookmark:
+		desc->dsc_dtype = dtype_text;
+		desc->dsc_ttype = ttype_binary;
+		desc->dsc_length = 0;
+		desc->dsc_scale = 0;
+		desc->dsc_flags = 0;
+		return;
+
+	default:
+		assert(FALSE);
+		break;
+	}
+
+	if (dtype == dtype_quad)
+		IBERROR(224);			/* msg 224 quad word arithmetic not supported */
+
+	ERR_post(isc_datype_notsup, 0);	/* data type not supported for arithmetic */
+}
+
+
+IDL DLL_EXPORT CMP_get_index_lock(TDBB tdbb, REL relation, USHORT id)
+{
+/**************************************
+ *
+ *	C M P _ g e t _ i n d e x _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get index lock block for index.  If one doesn't exist,
+ *	make one.
+ *
+ **************************************/
+	DBB dbb;
+	IDL index;
+	LCK lock;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	DEV_BLKCHK(relation, type_rel);
+
+	if (relation->rel_id < (USHORT) rel_MAX)
+		return NULL;
+
+/* For for an existing block */
+
+	for (index = relation->rel_index_locks; index; index = index->idl_next)
+		if (index->idl_id == id)
+			return index;
+
+	index = (IDL) ALLOCP(type_idl);
+	index->idl_next = relation->rel_index_locks;
+	relation->rel_index_locks = index;
+	index->idl_relation = relation;
+	index->idl_id = id;
+
+	index->idl_lock = lock = (LCK) ALLOCPV(type_lck, 0);
+	lock->lck_parent = dbb->dbb_lock;
+	lock->lck_dbb = dbb;
+	lock->lck_key.lck_long = relation->rel_id * 1000 + id;
+	lock->lck_length = sizeof(lock->lck_key.lck_long);
+	lock->lck_type = LCK_idx_exist;
+	lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+
+	return index;
+}
+
+
+SLONG DLL_EXPORT CMP_impure(CSB csb, USHORT size)
+{
+/**************************************
+ *
+ *	C M P _ i m p u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate space (offset) in request.
+ *
+ **************************************/
+	SLONG offset;
+
+	DEV_BLKCHK(csb, type_csb);
+
+	if (!csb)
+		return 0;
+
+	offset = FB_ALIGN(csb->csb_impure, ALIGNMENT);
+	csb->csb_impure = offset + size;
+
+	return offset;
+}
+
+
+REQ DLL_EXPORT CMP_make_request(TDBB tdbb, CSB * csb_ptr)
+{
+/**************************************
+ *
+ *	C M P _ m a k e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Turn a parsed request into an executable request.
+ *
+ **************************************/
+#ifdef GATEWAY
+	DBB dbb;
+#endif
+	RPB *rpb;
+	NOD node;
+	CSB csb;
+	IDL index;
+	RSC resource;
+	REL relation;
+	PRC procedure;
+	register REQ request, old_request;
+	int n;
+	csb_repeat *tail, *end;
+	LLS temp;
+	USHORT count;
+	BLK *ptr;
+	JMP_BUF env, *old_env;
+
+	DEV_BLKCHK(*csb_ptr, type_csb);
+
+	SET_TDBB(tdbb);
+#ifdef GATEWAY
+	dbb = tdbb->tdbb_database;
+#endif
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	old_request = tdbb->tdbb_request;
+	tdbb->tdbb_request = NULL;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		tdbb->tdbb_request = old_request;
+		ERR_punt();
+	}
+
+/* Once any expansion required has been done, make a pass to assign offsets
+   into the impure area and throw away any unnecessary crude.  Execution
+   optimizations can be performed here */
+
+	DEBUG;
+	node = pass1(tdbb, csb_ptr, (*csb_ptr)->csb_node, 0, 0, FALSE);
+	csb = *csb_ptr;
+	csb->csb_node = node;
+	csb->csb_impure = REQ_SIZE + REQ_TAIL * csb->csb_n_stream;
+	csb->csb_node = pass2(tdbb, csb, csb->csb_node, 0);
+
+	if (csb->csb_impure > MAX_REQUEST_SIZE)
+		IBERROR(226);			/* msg 226 request size limit exceeded */
+
+#ifdef GATEWAY
+	SQL_make_statements(csb);
+#endif
+
+/* Build the final request block.  First, compute the "effective" repeat
+   count of hold the impure areas. */
+
+	n = (csb->csb_impure - REQ_SIZE + REQ_TAIL - 1) / REQ_TAIL;
+	request = (REQ) ALLOCDV(type_req, n);
+	request->req_count = csb->csb_n_stream;
+	request->req_pool = tdbb->tdbb_default;
+	request->req_impure_size = csb->csb_impure;
+	request->req_top_node = csb->csb_node;
+	request->req_access = csb->csb_access;
+	request->req_variables = csb->csb_variables;
+	request->req_resources = csb->csb_resources;
+	if (csb->csb_g_flags & csb_blr_version4)
+		request->req_flags |= req_blr_version4;
+
+#ifdef SCROLLABLE_CURSORS
+	request->req_async_message = csb->csb_async_message;
+#endif
+#ifdef GATEWAY
+	if (csb->csb_g_flags & csb_internal)
+		request->req_attachment =
+			(dbb->dbb_system_att) ? dbb->
+			dbb_system_att : tdbb->tdbb_attachment;
+#endif
+
+/* Take out existence locks on resources used in request.  This is
+   a little complicated since relation locks MUST be taken before
+   index locks */
+
+	for (resource = request->req_resources; resource;
+		 resource = resource->rsc_next) {
+		switch (resource->rsc_type) {
+		case rsc_relation:
+			{
+				relation = resource->rsc_rel;
+				MET_post_existence(tdbb, relation);
+				break;
+			}
+		case rsc_index:
+			{
+				relation = resource->rsc_rel;
+				if (index =
+					CMP_get_index_lock(tdbb, relation, resource->rsc_id)) {
+					if (!index->idl_count)
+						LCK_lock_non_blocking(tdbb, index->idl_lock, LCK_SR,
+											  TRUE);
+					++index->idl_count;
+				}
+				break;
+			}
+		case rsc_procedure:
+			{
+				procedure = resource->rsc_prc;
+				procedure->prc_use_count++;
+#ifdef DEBUG_PROCS
+				{
+					char buffer[256];
+					sprintf(buffer,
+							"Called from CMP_make_request():\n\t Incrementing use count of %s\n",
+							procedure->prc_name->str_data);
+					JRD_print_procedure_info(tdbb, buffer);
+				}
+#endif
+				break;
+			}
+		default:
+			BUGCHECK(219);		/* msg 219 request of unknown resource */
+		}
+	}
+
+	tail = csb->csb_rpt;
+	end = tail + csb->csb_n_stream;
+	DEBUG;
+
+	for (rpb = request->req_rpb; tail < end; rpb++, tail++) {
+		/* Fetch input stream for update if all booleans matched against indices. */
+
+		if (tail->csb_flags & csb_update
+			&& !(tail->csb_flags & csb_unmatched)) rpb->rpb_stream_flags |=
+				RPB_s_update;
+		rpb->rpb_relation = tail->csb_relation;
+#ifndef GATEWAY
+		SBM_release(tail->csb_fields);
+#else
+		rpb->rpb_fields = tail->csb_fields;
+		rpb->rpb_asgn_flds = tail->csb_asgn_flds;
+		rpb->rpb_sql_selct = tail->csb_sql_selct;
+		rpb->rpb_sql_other = tail->csb_sql_other;
+#endif
+	}
+
+	for (temp = csb->csb_fors, count = 0; temp; count++)
+		temp = temp->lls_next;
+
+	if (count) {
+		request->req_fors =
+			ALL_vector(request->req_pool, &request->req_fors, count);
+		ptr = request->req_fors->vec_object;
+		while (csb->csb_fors)
+			*ptr++ = (BLK) LLS_POP(&csb->csb_fors);
+	}
+
+/* make a vector of all invariant-type nodes, so that we will
+   be able to easily reinitialize them when we restart the request */
+
+	for (temp = csb->csb_invariants, count = 0; temp; count++)
+		temp = temp->lls_next;
+
+	if (count) {
+		request->req_invariants =
+			ALL_vector(request->req_pool, &request->req_invariants, count);
+		ptr = request->req_invariants->vec_object;
+		while (csb->csb_invariants)
+			*ptr++ = (BLK) LLS_POP(&csb->csb_invariants);
+	}
+
+	DEBUG;
+	tdbb->tdbb_request = old_request;
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	return request;
+}
+
+
+int DLL_EXPORT CMP_post_access(TDBB			tdbb,
+							   CSB			csb,
+#ifndef GATEWAY
+							   TEXT*		security_name,
+#else
+							   SCL			security_name,
+#endif
+							   REL			view,
+							   CONST TEXT*	trig,
+							   CONST TEXT*	proc,
+							   USHORT		mask,
+							   CONST TEXT*	type_name,
+							   CONST TEXT*	name)
+{
+/**************************************
+ *
+ *	C M P _ p o s t _ a c c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post access to security class to request.
+ *      We append the new security class to the existing list of
+ *      security classes for that request.
+ *
+ **************************************/
+	ACC access, last_entry;
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(view, type_rel);
+
+	SET_TDBB(tdbb);
+
+/* allow all access to internal requests */
+
+	if (csb->csb_g_flags & (csb_internal | csb_ignore_perm))
+		return TRUE;
+
+	last_entry = NULL;
+
+	for (access = csb->csb_access; access; access = access->acc_next)
+	{
+		if (access->acc_security_name == security_name &&
+			access->acc_view == view &&
+			access->acc_trg_name == trig &&
+			access->acc_prc_name == proc &&
+			access->acc_mask == mask &&
+			!strcmp(access->acc_type, type_name) &&
+			!strcmp(access->acc_name, name))
+		{
+			return FALSE;
+		}
+		if (!access->acc_next)
+		{
+			last_entry = access;
+		}
+	}
+
+
+	access = (ACC) ALLOCD(type_acc);
+
+/* append the security class to the existing list */
+	if (last_entry)
+	{
+		access->acc_next = NULL;
+		last_entry->acc_next = access;
+	}
+	else
+	{
+		access->acc_next = csb->csb_access;
+		csb->csb_access = access;
+	}
+
+	access->acc_security_name	= security_name;
+	access->acc_view			= view;
+	access->acc_trg_name		= trig;
+	access->acc_prc_name		= proc;
+	access->acc_mask			= mask;
+	access->acc_type			= type_name;
+	access->acc_name			= name;
+
+#ifdef DEBUG_TRACE
+	ib_printf("%x: require %05X access to %s %s (sec %s view %s trg %s prc %s)\n",
+		 csb, access->acc_mask, access->acc_type, access->acc_name,
+		 access->acc_security_name ? access->acc_security_name : "NULL",
+		 access->acc_view ? access->acc_view->rel_name : "NULL",
+		 access->acc_trg_name ? access->acc_trg_name : "NULL",
+		 access->acc_prc_name ? access->acc_prc_name : "NULL");
+#endif
+
+	return TRUE;
+}
+
+
+void DLL_EXPORT CMP_post_resource(
+								  TDBB tdbb,
+								  RSC * rsc_ptr,
+								  BLK rel_or_prc, ENUM rsc_s type, USHORT id)
+{
+/**************************************
+ *
+ *	C M P _ p o s t _ r e s o u r c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post a resource usage to the compiler scratch block.
+ *
+ **************************************/
+	RSC resource;
+
+	DEV_BLKCHK(*rsc_ptr, type_rsc);
+
+	SET_TDBB(tdbb);
+
+	for (resource = *rsc_ptr; resource; resource = resource->rsc_next)
+		if (resource->rsc_type == type && resource->rsc_id == id)
+			return;
+
+	resource = (RSC) ALLOCD(type_rsc);
+	resource->rsc_next = *rsc_ptr;
+	*rsc_ptr = resource;
+	resource->rsc_type = type;
+	resource->rsc_id = id;
+	switch (type) {
+	case rsc_relation:
+	case rsc_index:
+		resource->rsc_rel = (REL) rel_or_prc;
+		break;
+	case rsc_procedure:
+		resource->rsc_prc = (PRC) rel_or_prc;
+		break;
+	default:
+		BUGCHECK(220);			/* msg 220 unknown resource */
+		break;
+	}
+}
+
+
+void DLL_EXPORT CMP_release_resource(
+									 RSC * rsc_ptr,
+									 ENUM rsc_s type, USHORT id)
+{
+/**************************************
+ *
+ *	C M P _ r e l e a s e _ r e s o u r c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release resource from request.
+ *
+ **************************************/
+	RSC resource;
+
+	DEV_BLKCHK(*rsc_ptr, type_rsc);
+
+	for (; resource = *rsc_ptr; rsc_ptr = &resource->rsc_next)
+		if (resource->rsc_type == type && resource->rsc_id == id)
+			break;
+
+	if (!resource)
+		return;
+
+/* take out of the linked list and release */
+
+	*rsc_ptr = resource->rsc_next;
+	ALL_RELEASE(resource);
+}
+
+
+void DLL_EXPORT CMP_decrement_prc_use_count(TDBB tdbb, PRC procedure)
+{
+/*********************************************
+ *
+ *	C M P _ d e c r e m e n t _ p r c _ u s e _ c o u n t
+ *
+ *********************************************
+ *
+ * Functional description
+ *	decrement the procedure's use count
+ *
+ *********************************************/
+
+	DEV_BLKCHK(procedure, type_prc);
+
+	assert(procedure->prc_use_count > 0);
+
+	--procedure->prc_use_count;
+
+#ifdef DEBUG_PROCS
+	{
+		char buffer[256];
+		sprintf(buffer,
+				"Called from CMP_decrement():\n\t Decrementing use count of %s\n",
+				procedure->prc_name->str_data);
+		JRD_print_procedure_info(tdbb, buffer);
+	}
+#endif
+
+/* Call recursively if and only if the use count is zero AND the procedure
+   in dbb_procedures is different than this procedure. 
+   The procedure will be different than in dbb_procedures only if it is a
+   floating copy .i.e. an old copy or a deleted procedure.
+*/
+	if ((procedure->prc_use_count == 0) &&
+		(tdbb->tdbb_database->dbb_procedures->vec_object[procedure->prc_id]
+		 != &procedure->prc_header)) {
+		CMP_release(tdbb, procedure->prc_request);
+		procedure->prc_flags &= ~PRC_being_altered;
+		MET_remove_procedure(tdbb, procedure->prc_id, procedure);
+	}
+}
+
+
+void DLL_EXPORT CMP_release(TDBB tdbb, REQ request)
+{
+/**************************************
+ *
+ *	C M P _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an unneeded and unloved request.
+ *
+ **************************************/
+	REQ *next;
+	IDL index;
+	REL relation;
+	RSC resource;
+#ifdef GATEWAY
+	VEC vector;
+	REQ *sub_req, *end;
+#endif
+	ATT attachment;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(request, type_req);
+
+/* Release existence locks on references */
+
+	if (!(attachment = request->req_attachment)
+		|| !(attachment->att_flags & ATT_shutdown))
+		for (resource =
+			 request->req_resources;
+			 resource; resource = resource->rsc_next) {
+			switch (resource->rsc_type) {
+			case rsc_relation:
+				{
+					relation = resource->rsc_rel;
+					MET_release_existence(relation);
+					break;
+				}
+			case rsc_index:
+				{
+					relation = resource->rsc_rel;
+					if (index =
+						CMP_get_index_lock(tdbb, relation,
+										   resource->
+										   rsc_id)) if (!--index->idl_count)
+								LCK_release(tdbb, index->idl_lock);
+					break;
+				}
+			case rsc_procedure:
+				{
+					CMP_decrement_prc_use_count(tdbb, resource->rsc_prc);
+					break;
+				}
+			default:
+				BUGCHECK(220);	/* msg 220 release of unknown resource */
+				break;
+			}
+		}
+
+#ifdef GATEWAY
+
+/* Unwind and release cursors of any sub-requests */
+
+	if (vector = request->req_sub_requests)
+		for (sub_req = (REQ *) vector->vec_object, end =
+			 sub_req + vector->vec_count; sub_req < end; sub_req++)
+			if (*sub_req) {
+				EXE_unwind(tdbb, *sub_req);
+				FRGN_release_cursors(*sub_req);
+			}
+
+/* Unwind and release cursors of top level request */
+
+	EXE_unwind(tdbb, request);
+	FRGN_release_cursors(request);
+
+#else
+	EXE_unwind(tdbb, request);
+#endif
+
+#ifdef PC_ENGINE
+	RNG_release_ranges(request);
+#endif
+
+	if (request->req_attachment)
+		for (next = &request->req_attachment->att_requests; *next;
+			 next = &(*next)->req_request)
+			if (*next == request) {
+				*next = request->req_request;
+				break;
+			}
+
+	ALL_rlpool(request->req_pool);
+}
+
+
+void DLL_EXPORT CMP_shutdown_database(TDBB tdbb)
+{
+/**************************************
+ *
+ *	C M P _ s h u t d o w n _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release compile-time locks for database.
+ *	Since this can be called at AST level, don't
+ *	release any data structures.
+ *
+ **************************************/
+	REL relation, *ptr, *end;
+	PRC procedure, *pptr, *pend;
+	IDL index;
+	VEC vector;
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	DEV_BLKCHK(dbb, type_dbb);
+
+	if (!(vector = dbb->dbb_relations))
+		return;
+
+/* Go through relations and indeces and release
+   all existence locks that might have been taken
+*/
+	for (ptr = (REL *) vector->vec_object, end = ptr + vector->vec_count;
+		 ptr < end; ptr++)
+		if (relation = *ptr) {
+			if (relation->rel_existence_lock) {
+				LCK_release(tdbb, relation->rel_existence_lock);
+				relation->rel_use_count = 0;
+			}
+			for (index = relation->rel_index_locks; index;
+				 index = index->idl_next) if (index->idl_lock) {
+					LCK_release(tdbb, index->idl_lock);
+					index->idl_count = 0;
+				}
+		}
+
+	if (!(vector = dbb->dbb_procedures))
+		return;
+
+/* Release all procedure existence locks that
+   might have been taken
+*/
+	for (pptr = (PRC *) vector->vec_object, pend = pptr + vector->vec_count;
+		 pptr < pend; pptr++)
+		if (procedure = *pptr) {
+			if (procedure->prc_existence_lock) {
+				LCK_release(tdbb, procedure->prc_existence_lock);
+				procedure->prc_use_count = 0;
+			}
+		}
+}
+
+
+static UCHAR *alloc_map(TDBB tdbb, CSB * csb, USHORT stream)
+{
+/**************************************
+ *
+ *	a l l o c _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate and initialize stream map for view processing.
+ *
+ **************************************/
+	STR string;
+
+	DEV_BLKCHK(*csb, type_csb);
+
+	SET_TDBB(tdbb);
+
+	string = (STR) ALLOCDV(type_str, MAP_LENGTH);
+	string->str_length = MAP_LENGTH;
+	(*csb)->csb_rpt[stream].csb_map = (UCHAR *) string->str_data;
+/* TMN: Here we should really have the following assert */
+/* assert(stream <= MAX_UCHAR); */
+	string->str_data[0] = (UCHAR) stream;
+
+	return (UCHAR *) string->str_data;
+}
+
+
+#ifdef PC_ENGINE
+static USHORT base_stream(CSB csb, NOD * stream_number, BOOLEAN nav_stream)
+{
+/**************************************
+ *
+ *	b a s e _ s t r e a m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the base stream of a view for navigational
+ *	access.  If there is more than one base table, 
+ *	give an error.
+ *
+ **************************************/
+	UCHAR *map;
+	USHORT stream;
+
+	DEV_BLKCHK(csb, type_csb);
+/* Note: *stream_number is NOT a NOD */
+
+	stream = (USHORT) * stream_number;
+
+/* If the stream references a view, follow map */
+
+	if (map = csb->csb_rpt[stream].csb_map)
+		if (map[2]) {
+			if (nav_stream)
+				/* navigational stream %ld references a view with more than one base table */
+				ERR_post(isc_complex_view, gds_arg_number, (SLONG) stream, 0);
+		}
+		else {
+			map++;
+			stream = *map;
+		}
+
+/* if this is a navigational stream, fix up the stream number 
+   in the node tree to point to the base table from now on */
+
+	if (nav_stream)
+		*stream_number = (NOD) stream;
+	return stream;
+}
+#endif
+
+
+static NOD catenate_nodes(TDBB tdbb, LLS stack)
+{
+/**************************************
+ *
+ *	c a t e n a t e _ n o d e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Take a stack of nodes
+ *	and turn them into a tree of concatenations.
+ *
+ **************************************/
+	NOD cat_node, node1;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(stack, type_lls);
+
+	node1 = (NOD) LLS_POP(&stack);
+
+	if (!stack)
+		return node1;
+
+	cat_node = PAR_make_node(tdbb, 2);
+	cat_node->nod_type = nod_concatenate;
+	cat_node->nod_arg[0] = node1;
+	cat_node->nod_arg[1] = catenate_nodes(tdbb, stack);
+
+	return cat_node;
+}
+
+
+static NOD copy(
+				TDBB tdbb,
+				CSB * csb,
+				NOD input, UCHAR * remap, USHORT field_id, USHORT remap_fld)
+{
+/**************************************
+ *
+ *	c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy an expression tree remapping field streams.  If the
+ *	map isn't present, don't remap.
+ *
+ **************************************/
+	NOD node, *arg1, *arg2, *end;
+	USHORT stream, new_stream, args;
+
+	SET_TDBB(tdbb);
+
+
+	DEV_BLKCHK(*csb, type_csb);
+	DEV_BLKCHK(input, type_nod);
+
+	if (!input)
+		return NULL;
+
+/* Special case interesting nodes */
+
+	args = input->nod_count;
+
+	switch (input->nod_type) {
+	case nod_ansi_all:
+	case nod_ansi_any:
+	case nod_any:
+	case nod_exists:
+	case nod_unique:
+		args = e_any_length;
+		break;
+
+	case nod_for:
+		args = e_for_length;
+		break;
+
+	case nod_argument:
+		if (remap_fld)
+			return input;
+		node = PAR_make_node(tdbb, e_arg_length);
+		node->nod_count = input->nod_count;
+		node->nod_flags = input->nod_flags;
+		node->nod_type = input->nod_type;
+		node->nod_arg[e_arg_number] = input->nod_arg[e_arg_number];
+		node->nod_arg[e_arg_message] = input->nod_arg[e_arg_message];
+		node->nod_arg[e_arg_flag] =
+			copy(tdbb, csb, input->nod_arg[e_arg_flag], remap, field_id,
+				 remap_fld);
+		node->nod_arg[e_arg_indicator] =
+			copy(tdbb, csb, input->nod_arg[e_arg_indicator], remap, field_id,
+				 remap_fld);
+		return (node);
+
+		break;
+
+	case nod_assignment:
+		args = e_asgn_length;
+		break;
+
+	case nod_erase:
+		args = e_erase_length;
+		break;
+
+	case nod_modify:
+		args = e_mod_length;
+		break;
+
+	case nod_variable:
+	case nod_literal:
+		return input;
+
+	case nod_field:
+		{
+			NOD temp_node;
+			if (field_id &&
+				(input->nod_flags & nod_id) &&
+				!input->nod_arg[e_fld_id] && !input->nod_arg[e_fld_stream])
+				--field_id;
+			else
+				field_id = (USHORT) input->nod_arg[e_fld_id];
+			stream = (USHORT) input->nod_arg[e_fld_stream];
+			if (remap_fld) {
+				REL relation;
+				FLD field;
+
+				relation = (*csb)->csb_rpt[stream].csb_relation;
+				field = MET_get_field(relation, field_id);
+				if (field->fld_source)
+					field_id = (USHORT) field->fld_source->nod_arg[e_fld_id];
+			}
+			if (remap)
+				stream = remap[stream];
+
+			temp_node = PAR_gen_field(tdbb, stream, field_id);
+			if (input->nod_type == nod_field &&
+				input->nod_arg[e_fld_default_value])
+					temp_node->nod_arg[e_fld_default_value] =
+					input->nod_arg[e_fld_default_value];
+			return temp_node;
+		}
+
+	case nod_function:
+		node = PAR_make_node(tdbb, e_fun_length);
+		node->nod_count = input->nod_count;
+		node->nod_type = input->nod_type;
+		node->nod_arg[e_fun_args] =
+			copy(tdbb, csb, input->nod_arg[e_fun_args], remap, field_id,
+				 remap_fld);
+		node->nod_arg[e_fun_function] = input->nod_arg[e_fun_function];
+		return (node);
+
+
+	case nod_gen_id:
+	case nod_gen_id2:			/* 20001013 PJPG */
+		node = PAR_make_node(tdbb, e_gen_length);
+		node->nod_count = input->nod_count;
+		node->nod_type = input->nod_type;
+		node->nod_arg[e_gen_value] =
+			copy(tdbb, csb, input->nod_arg[e_gen_value], remap, field_id,
+				 remap_fld);
+		node->nod_arg[e_gen_relation] = input->nod_arg[e_gen_relation];
+		return (node);
+
+	case nod_cast:
+		node = PAR_make_node(tdbb, e_cast_length);
+		node->nod_count = input->nod_count;
+		node->nod_type = input->nod_type;
+		node->nod_arg[e_cast_source] =
+			copy(tdbb, csb, input->nod_arg[e_cast_source], remap, field_id,
+				 remap_fld);
+		node->nod_arg[e_cast_fmt] = input->nod_arg[e_cast_fmt];
+		return (node);
+
+	case nod_extract:
+		node = PAR_make_node(tdbb, e_extract_length);
+		node->nod_count = input->nod_count;
+		node->nod_type = input->nod_type;
+		node->nod_arg[e_extract_value] =
+			copy(tdbb, csb, input->nod_arg[e_extract_value], remap, field_id,
+				 remap_fld);
+		node->nod_arg[e_extract_part] = input->nod_arg[e_extract_part];
+		return (node);
+
+	case nod_count:
+	case nod_count2:
+	case nod_max:
+	case nod_min:
+	case nod_total:
+	case nod_average:
+	case nod_from:
+		args = e_stat_length;
+		break;
+
+	case nod_rse:
+	case nod_stream:
+		{
+			RSE new_rse, old_rse;
+
+			old_rse = (RSE) input;
+			new_rse =
+				(RSE) PAR_make_node(tdbb, old_rse->rse_count + rse_delta + 2);
+			new_rse->nod_type = input->nod_type;
+			new_rse->nod_count = 0;
+			new_rse->rse_count = old_rse->rse_count;
+			arg1 = old_rse->rse_relation;
+			arg2 = new_rse->rse_relation;
+			for (end = arg1 + old_rse->rse_count; arg1 < end; arg1++, arg2++)
+				*arg2 = copy(tdbb, csb, *arg1, remap, field_id, remap_fld);
+			new_rse->rse_jointype = old_rse->rse_jointype;
+			new_rse->rse_first =
+				copy(tdbb, csb, old_rse->rse_first, remap, field_id,
+					 remap_fld);
+			new_rse->rse_boolean =
+				copy(tdbb, csb, old_rse->rse_boolean, remap, field_id,
+					 remap_fld);
+			new_rse->rse_sorted =
+				copy(tdbb, csb, old_rse->rse_sorted, remap, field_id,
+					 remap_fld);
+			new_rse->rse_projection =
+				copy(tdbb, csb, old_rse->rse_projection, remap, field_id,
+					 remap_fld);
+			return (NOD) new_rse;
+		}
+
+	case nod_relation:
+		{
+			csb_repeat *element;
+			int relative_stream;
+
+			if (!remap)
+				BUGCHECK(221);	/* msg 221 (CMP) copy: cannot remap */
+			node = PAR_make_node(tdbb, e_rel_length);
+			node->nod_type = input->nod_type;
+			node->nod_count = 0;
+
+			stream = (USHORT) input->nod_arg[e_rel_stream];
+	/** 
+	    Last entry in the remap contains the the original stream number.
+	    Get that stream number so that the flags can be copied 
+	    into the newly created child stream.
+	**/
+			relative_stream = (stream) ? remap[stream - 1] : stream;
+			new_stream = (*csb)->csb_n_stream++;
+			node->nod_arg[e_rel_stream] = (NOD) (SLONG) new_stream;
+			/* TMN: Here we should really have the following assert */
+			/* assert(new_stream <= MAX_UCHAR); */
+			remap[stream] = (UCHAR) new_stream;
+
+			node->nod_arg[e_rel_context] = input->nod_arg[e_rel_context];
+			node->nod_arg[e_rel_relation] = input->nod_arg[e_rel_relation];
+			node->nod_arg[e_rel_view] = input->nod_arg[e_rel_view];
+
+			element = CMP_csb_element(csb, new_stream);
+			element->csb_relation = (REL) node->nod_arg[e_rel_relation];
+			element->csb_view = (REL) node->nod_arg[e_rel_view];
+			element->csb_view_stream = remap[0];
+
+	/** If there was a parent stream no., then copy the flags 
+	    from that stream to its children streams. (Bug 10164/10166)
+	    For e.g. 
+	    consider a view V1 with 2 streams
+	           stream #1 from table T1
+		   stream #2 from table T2
+	    consider a procedure P1 with 2 streams
+	           stream #1  from table X
+		   stream #2  from view V1
+
+	    During pass1 of procedure request, the engine tries to expand 
+	    all the views into their base tables. It creates a compilier 
+	    scratch block which initially looks like this
+	         stream 1  -------- X
+	         stream 2  -------- V1
+		 while expanding V1 the engine calls copy() with nod_relation.
+		 A new stream 3 is created. Now the CSB looks like
+	         stream 1  -------- X
+	         stream 2  -------- V1  map [2,3]
+	         stream 3  -------- T1
+		 After T1 stream has been created the flags are copied from
+		 stream #1 because V1's definition said the original stream
+		 number for T1 was 1. However since its being merged with 
+		 the procedure request, stream #1 belongs to a different table. 
+		 The flags should be copied from stream 2 i.e. V1. We can get
+		 this info from variable remap.
+
+		 Since we didn't do this properly before, V1's children got
+		 tagged with whatever flags X possesed leading to various
+		 errors.
+
+		 We now store the proper stream no in relative_stream and
+		 later use it to copy the flags. -Sudesh (03/05/99)
+	**/
+
+			(*csb)->csb_rpt[new_stream].csb_flags |=
+				(*csb)->csb_rpt[relative_stream].csb_flags & csb_no_dbkey;
+			return node;
+		}
+
+	case nod_procedure:
+		{
+			csb_repeat *element;
+
+			if (!remap)
+				BUGCHECK(221);	/* msg 221 (CMP) copy: cannot remap */
+			node = PAR_make_node(tdbb, e_prc_length);
+			node->nod_type = input->nod_type;
+			node->nod_count = input->nod_count;
+			node->nod_arg[e_prc_inputs] =
+				copy(tdbb, csb, input->nod_arg[e_prc_inputs], remap, field_id,
+					 remap_fld);
+			node->nod_arg[e_prc_in_msg] = input->nod_arg[e_prc_in_msg];
+			stream = (USHORT) input->nod_arg[e_prc_stream];
+			new_stream = (*csb)->csb_n_stream++;
+			node->nod_arg[e_prc_stream] = (NOD) (SLONG) new_stream;
+			/* TMN: Here we should really have the following assert */
+			/* assert(new_stream <= MAX_UCHAR); */
+			remap[stream] = (UCHAR) new_stream;
+			node->nod_arg[e_prc_procedure] = input->nod_arg[e_prc_procedure];
+			element = CMP_csb_element(csb, new_stream);
+			element->csb_procedure = (PRC) node->nod_arg[e_prc_procedure];
+
+			(*csb)->csb_rpt[new_stream].csb_flags |=
+				(*csb)->csb_rpt[stream].csb_flags & csb_no_dbkey;
+			return node;
+		}
+
+	case nod_aggregate:
+		if (!remap)
+			BUGCHECK(221);		/* msg 221 (CMP) copy: cannot remap */
+		node = PAR_make_node(tdbb, e_agg_length);
+		node->nod_type = input->nod_type;
+		node->nod_count = 0;
+		stream = (USHORT) input->nod_arg[e_agg_stream];
+		new_stream = (*csb)->csb_n_stream++;
+		node->nod_arg[e_agg_stream] = (NOD) (SLONG) new_stream;
+		/* TMN: Here we should really have the following assert */
+		/* assert(new_stream <= MAX_UCHAR); */
+		remap[stream] = (UCHAR) new_stream;
+		CMP_csb_element(csb, new_stream);
+
+		(*csb)->csb_rpt[new_stream].csb_flags |=
+			(*csb)->csb_rpt[stream].csb_flags & csb_no_dbkey;
+		node->nod_arg[e_agg_rse] =
+			copy(tdbb, csb, input->nod_arg[e_agg_rse], remap, field_id,
+				 remap_fld);
+		node->nod_arg[e_agg_group] =
+			copy(tdbb, csb, input->nod_arg[e_agg_group], remap, field_id,
+				 remap_fld);
+		node->nod_arg[e_agg_map] =
+			copy(tdbb, csb, input->nod_arg[e_agg_map], remap, field_id,
+				 remap_fld);
+		return node;
+
+	case nod_union:
+		if (!remap)
+			BUGCHECK(221);		/* msg 221 (CMP) copy: cannot remap */
+		node = PAR_make_node(tdbb, e_uni_length);
+		node->nod_type = input->nod_type;
+		node->nod_count = 2;
+		stream = (USHORT) input->nod_arg[e_uni_stream];
+		new_stream = (*csb)->csb_n_stream++;
+		node->nod_arg[e_uni_stream] = (NOD) (SLONG) new_stream;
+		/* TMN: Here we should really have the following assert */
+		/* assert(new_stream <= MAX_UCHAR); */
+		remap[stream] = (UCHAR) new_stream;
+		CMP_csb_element(csb, new_stream);
+
+		(*csb)->csb_rpt[new_stream].csb_flags |=
+			(*csb)->csb_rpt[stream].csb_flags & csb_no_dbkey;
+		node->nod_arg[e_uni_clauses] =
+			copy(tdbb, csb, input->nod_arg[e_uni_clauses], remap, field_id,
+				 remap_fld);
+		return node;
+
+	case nod_sort:
+		args += args;
+		break;
+
+	default:
+		break;
+	}
+
+/* Fall thru on generic nodes */
+
+	node = PAR_make_node(tdbb, args);
+	node->nod_count = input->nod_count;
+	node->nod_type = input->nod_type;
+	node->nod_flags = input->nod_flags;
+
+	arg1 = input->nod_arg;
+	arg2 = node->nod_arg;
+
+	for (end = arg1 + input->nod_count; arg1 < end; arg1++, arg2++)
+		if (*arg1)
+			*arg2 = copy(tdbb, csb, *arg1, remap, field_id, remap_fld);
+
+/* Finish off sort */
+
+	if (input->nod_type == nod_sort)
+		for (end = arg1 + input->nod_count; arg1 < end; arg1++, arg2++)
+			*arg2 = *arg1;
+
+	return node;
+}
+
+
+static void expand_view_nodes(
+							  TDBB tdbb,
+							  CSB csb, USHORT stream, LLS * stack, NOD_T type)
+{
+/**************************************
+ *
+ *	e x p a n d _ v i e w _ n o d e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand dbkey for view.
+ *
+ **************************************/
+	UCHAR *map;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(*stack, type_lls);
+
+/* If the stream's dbkey should be ignored, do so. */
+
+	if (csb->csb_rpt[stream].csb_flags & csb_no_dbkey)
+		return;
+
+/* If the stream references a view, follow map */
+
+	if (map = csb->csb_rpt[stream].csb_map) {
+		++map;
+		while (*map)
+			expand_view_nodes(tdbb, csb, *map++, stack, type);
+		return;
+	}
+
+/* Relation is primitive -- make dbkey node */
+
+	if (csb->csb_rpt[stream].csb_relation) {
+		NOD node;
+
+		node = PAR_make_node(tdbb, 1);
+		node->nod_count = 0;
+		node->nod_type = type;
+		node->nod_arg[0] = (NOD) (SLONG) stream;
+		LLS_PUSH(node, stack);
+	}
+}
+
+
+static void ignore_dbkey(TDBB tdbb, CSB csb, RSE rse, REL view)
+{
+/**************************************
+ *
+ *	i g n o r e _ d b k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	For each relation or aggregate in the
+ *	rse, mark it as not having a dbkey.
+ *
+ **************************************/
+	NOD *ptr, *end, node;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(rse, type_nod);
+	DEV_BLKCHK(view, type_rel);
+
+	for (ptr = rse->rse_relation, end = ptr + rse->rse_count; ptr < end;) {
+		node = *ptr++;
+		if (node->nod_type == nod_relation) {
+			USHORT stream;
+			csb_repeat *tail;
+			REL relation;
+
+			stream = (USHORT) node->nod_arg[e_rel_stream];
+			csb->csb_rpt[stream].csb_flags |= csb_no_dbkey;
+			tail = csb->csb_rpt + stream;
+			if (relation = tail->csb_relation)
+				CMP_post_access(tdbb, csb, relation->rel_security_name,
+								(tail->csb_view) ? tail->csb_view : view,
+								0, 0, SCL_read, "table", relation->rel_name);
+		}
+		else if (node->nod_type == nod_rse)
+			ignore_dbkey(tdbb, csb, (RSE) node, view);
+		else if (node->nod_type == nod_aggregate)
+			ignore_dbkey(tdbb, csb, (RSE) node->nod_arg[e_agg_rse], view);
+		else if (node->nod_type == nod_union) {
+			NOD clauses, *ptr_uni, *end_uni;
+
+			clauses = node->nod_arg[e_uni_clauses];
+			for (ptr_uni = clauses->nod_arg, end_uni =
+				 ptr_uni + clauses->nod_count; ptr_uni < end_uni; ptr_uni++)
+				ignore_dbkey(tdbb, csb, (RSE) * ptr_uni++, view);
+		}
+	}
+}
+
+
+static NOD make_defaults(TDBB tdbb, CSB * csb, USHORT stream, NOD statement)
+{
+/**************************************
+ *
+ *	m a k e _ d e f a u l t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build an default value assignments.
+ *
+ **************************************/
+	NOD node, value;
+	LLS stack;
+	VEC vector;
+	FLD *ptr1, *end;
+	REL relation;
+	USHORT field_id;
+	UCHAR *map, local_map[MAP_LENGTH];
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(*csb, type_csb);
+	DEV_BLKCHK(statement, type_nod);
+
+#ifdef GATEWAY
+	return statement;
+#else
+	relation = (*csb)->csb_rpt[stream].csb_relation;
+
+	if (!(vector = relation->rel_fields))
+		return statement;
+
+	if (!(map = (*csb)->csb_rpt[stream].csb_map)) {
+		map = local_map;
+		/* TMN: Here we should really have the following assert */
+		/* assert(stream <= MAX_UCHAR); */
+		map[0] = (UCHAR) stream;
+		map[1] = 1;
+		map[2] = 2;
+	}
+
+	stack = NULL;
+
+	for (ptr1 = (FLD *) vector->vec_object, end =
+		 ptr1 + vector->vec_count, field_id = 0; ptr1 < end;
+		 ptr1++, field_id++)
+		if (*ptr1 && (value = (*ptr1)->fld_default_value)) {
+			node = PAR_make_node(tdbb, e_asgn_length);
+			node->nod_type = nod_assignment;
+			node->nod_arg[e_asgn_from] =
+				copy(tdbb, csb, value, map, (USHORT) (field_id + 1), FALSE);
+			node->nod_arg[e_asgn_to] = PAR_gen_field(tdbb, stream, field_id);
+			LLS_PUSH(node, &stack);
+		}
+
+	if (!stack)
+		return statement;
+
+/* We have some default -- add the original statement and make a list out of
+   the whole mess */
+
+	LLS_PUSH(statement, &stack);
+
+	return PAR_make_list(tdbb, stack);
+#endif
+}
+
+
+static NOD make_validation(TDBB tdbb, CSB * csb, USHORT stream)
+{
+/**************************************
+ *
+ *	m a k e _ v a l i d a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build a validation list for a relation, if appropriate.
+ *
+ **************************************/
+	NOD node, validation;
+	LLS stack;
+	VEC vector;
+	FLD *ptr1, *end;
+	REL relation;
+	USHORT field_id;
+	UCHAR *map, local_map[MAP_LENGTH];
+
+	SET_TDBB(tdbb);
+
+
+	DEV_BLKCHK(*csb, type_csb);
+
+#ifdef GATEWAY
+	return NULL;
+#else
+	relation = (*csb)->csb_rpt[stream].csb_relation;
+
+	if (!(vector = relation->rel_fields))
+		return NULL;
+
+	if (!(map = (*csb)->csb_rpt[stream].csb_map)) {
+		map = local_map;
+		/* TMN: Here we should really have the following assert */
+		/* assert(stream <= MAX_UCHAR); */
+		map[0] = (UCHAR) stream;
+	}
+
+	stack = NULL;
+
+	for (ptr1 = (FLD *) vector->vec_object, end =
+		 ptr1 + vector->vec_count, field_id = 0; ptr1 < end;
+		 ptr1++, field_id++) {
+		if (*ptr1 && (validation = (*ptr1)->fld_validation)) {
+			node = PAR_make_node(tdbb, e_val_length);
+			node->nod_type = nod_validate;
+			node->nod_arg[e_val_boolean] =
+				copy(tdbb, csb, validation, map, (USHORT) (field_id + 1),
+					 FALSE);
+			node->nod_arg[e_val_value] =
+				PAR_gen_field(tdbb, stream, field_id);
+			LLS_PUSH(node, &stack);
+		}
+
+		if (*ptr1 && (validation = (*ptr1)->fld_not_null)) {
+			node = PAR_make_node(tdbb, e_val_length);
+			node->nod_type = nod_validate;
+			node->nod_arg[e_val_boolean] =
+				copy(tdbb, csb, validation, map, (USHORT) (field_id + 1),
+					 FALSE);
+			node->nod_arg[e_val_value] =
+				PAR_gen_field(tdbb, stream, field_id);
+			LLS_PUSH(node, &stack);
+		}
+	}
+
+
+	if (!stack)
+		return NULL;
+
+	return PAR_make_list(tdbb, stack);
+#endif
+}
+
+
+static NOD pass1(
+				 TDBB tdbb,
+				 CSB * csb,
+				 NOD node,
+				 REL view, USHORT view_stream, BOOLEAN validate_expr)
+{
+/**************************************
+ *
+ *	p a s s 1
+ *
+ **************************************
+ *
+ * Functional description
+ *	Merge missing values, computed values, validation expressions,
+ *	and views into a parsed request.
+ *
+ * The argument validate_expr is TRUE if an ancestor of the
+ * current node (the one being passed in) in the parse tree has nod_type
+ * == nod_validate. "ancestor" does not include the current node 
+ * being passed in as an argument.
+ * If we are in a "validate subtree" (as determined by the
+ * validate_expr), we must not post update access to the fields involved 
+ * in the validation clause. (see the call for CMP_post_access in this
+ * function.)
+ * 
+ **************************************/
+	NOD sub, *ptr, *end;
+	USHORT stream;
+	csb_repeat *tail;
+	PRC procedure;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(*csb, type_csb);
+	DEV_BLKCHK(node, type_nod);
+	DEV_BLKCHK(view, type_rel);
+
+	if (!node)
+		return node;
+
+	validate_expr = validate_expr || (node->nod_type == nod_validate);
+
+/* If there is processing to be done before sub expressions, do it here */
+
+	switch (node->nod_type) {
+	case nod_field:
+		{
+			LLS stack;
+			REL relation;
+			FLD field;
+			UCHAR *map, local_map[MAP_LENGTH];
+
+			stream = (USHORT) node->nod_arg[e_fld_stream];
+
+			/* Look at all rse's which are lower in scope than the rse which this field 
+			   is referencing, and mark them as varying -- the rule is that if a field 
+			   from one rse is referenced within the scope of another rse, the first rse 
+			   can't be invariant.  This won't optimize all cases, but it is the simplest 
+			   operating assumption for now. */
+
+			for (stack = (*csb)->csb_current_rses; stack;
+				 stack = stack->lls_next) {
+				RSE rse;
+
+				rse = (RSE) stack->lls_object;
+				if (stream_in_rse(stream, rse))
+					break;
+				rse->nod_flags |= rse_variant;
+			}
+			tail = (*csb)->csb_rpt + stream;
+			if (!(relation = tail->csb_relation) ||
+				!(field =
+				  MET_get_field(relation,
+								(USHORT) node->nod_arg[e_fld_id]))) break;
+
+#ifndef GATEWAY
+			/* if this is a modify or store, check REFERENCES access to any foreign keys. */
+
+			if (((tail->csb_flags & csb_modify)
+				 || (tail->csb_flags & csb_store)) && !(relation->rel_view_rse
+														||
+														relation->rel_file))
+					IDX_check_access(tdbb, *csb, tail->csb_view, relation,
+									 field);
+#endif
+			/* Posting the required privilege access to the current relation and field. */
+
+			/* if this is in a "validate_subtree" then we must not
+			   post access checks to the table and the fields in the table. 
+			   If any node of the parse tree is a nod_validate type node,
+			   the nodes in the subtree are involved in a validation
+			   clause only, the subtree is a validate_subtree in our
+			   notation.  */
+			if (tail->csb_flags & csb_modify) {
+				if (!validate_expr) {
+					CMP_post_access(tdbb, *csb, relation->rel_security_name,
+									(tail->csb_view) ? tail->csb_view : view,
+									0, 0, SCL_sql_update, "table",
+									relation->rel_name);
+					CMP_post_access(tdbb, *csb, field->fld_security_name,
+									(tail->csb_view) ? tail->csb_view : view,
+									0, 0, SCL_sql_update, "column",
+									field->fld_name);
+				}
+			}
+			else if (tail->csb_flags & csb_erase) {
+				CMP_post_access(tdbb, *csb, relation->rel_security_name,
+								(tail->csb_view) ? tail->csb_view : view,
+								0, 0, SCL_sql_delete, "table",
+								relation->rel_name);
+			}
+			else if (tail->csb_flags & csb_store) {
+				CMP_post_access(tdbb, *csb, relation->rel_security_name,
+								(tail->csb_view) ? tail->csb_view : view,
+								0, 0, SCL_sql_insert, "table",
+								relation->rel_name);
+				CMP_post_access(tdbb, *csb, field->fld_security_name,
+								(tail->csb_view) ? tail->csb_view : view, 0,
+								0, SCL_sql_insert, "column", field->fld_name);
+			}
+			else {
+				CMP_post_access(tdbb, *csb, relation->rel_security_name,
+								(tail->csb_view) ? tail->csb_view : view,
+								0, 0, SCL_read, "table", relation->rel_name);
+				CMP_post_access(tdbb, *csb, field->fld_security_name,
+								(tail->csb_view) ? tail->csb_view : view,
+								0, 0, SCL_read, "column", field->fld_name);
+			}
+
+
+#ifdef GATEWAY
+			break;
+#else
+			if (!(sub = field->fld_computation) && !(sub = field->fld_source)) {
+
+				if (!relation->rel_view_rse)
+					break;
+
+				ERR_post(gds_no_field_access,
+						 gds_arg_string, ERR_cstring(field->fld_name),
+						 gds_arg_string, ERR_cstring(relation->rel_name), 0);
+				/* Msg 364 "cannot access column %s in view %s" */
+			}
+
+
+			/* The previous test below is an apparent temporary fix
+			 * put in by Root & Harrison in Summer/Fall 1991.  
+			 * Old Code:
+			 * if (tail->csb_flags & (csb_view_update | csb_trigger))
+			 *   break;
+			 * If the field is a computed field - we'll go on and make
+			 * the substitution.
+			 * Comment 1994-August-08 David Schnepper
+			 */
+
+			if (tail->csb_flags & (csb_view_update | csb_trigger)) {
+				if (!(field->fld_computation))
+					break;
+			}
+
+			if (!(map = tail->csb_map)) {
+				map = local_map;
+				/* TMN: Here we should really have the following assert */
+				/* assert(stream + 2 <= MAX_UCHAR); */
+				local_map[0] = (UCHAR) stream;
+				map[1] = stream + 1;
+				map[2] = stream + 2;
+			}
+			sub = copy(tdbb, csb, sub, map, 0, FALSE);
+			return pass1(tdbb, csb, sub, view, view_stream, validate_expr);
+		}
+#endif
+
+	case nod_assignment:
+		{
+			FLD field;
+
+			sub = node->nod_arg[e_asgn_from];
+			if (sub->nod_type == nod_field) {
+				stream = (USHORT) sub->nod_arg[e_fld_stream];
+				field = MET_get_field((*csb)->csb_rpt[stream].csb_relation,
+									  (USHORT) sub->nod_arg[e_fld_id]);
+#ifndef GATEWAY
+				if (field)
+					node->nod_arg[e_asgn_missing2] = field->fld_missing_value;
+#endif
+			}
+
+			sub = node->nod_arg[e_asgn_to];
+			if (sub->nod_type != nod_field)
+				break;
+			stream = (USHORT) sub->nod_arg[e_fld_stream];
+			tail = (*csb)->csb_rpt + stream;
+			if (!
+				(field =
+				 MET_get_field(tail->csb_relation,
+							   (USHORT) sub->nod_arg[e_fld_id]))) break;
+#ifdef GATEWAY
+			if (field->fld_flags & FLD_no_update)
+				ERR_post(gds__read_only_field, 0);
+#else
+			if (field->fld_missing_value) {
+				node->nod_arg[e_asgn_missing] = field->fld_missing_value;
+				node->nod_count = 3;
+			}
+#endif
+		}
+		break;
+
+	case nod_modify:
+		stream = (USHORT) node->nod_arg[e_mod_new_stream];
+		tail = (*csb)->csb_rpt + stream;
+		tail->csb_flags |= csb_modify;
+		pass1_modify(tdbb, csb, node);
+		/* TMN: Here we should really have the following assert */
+		/* assert(node->nod_arg [e_mod_new_stream] <= MAX_USHORT); */
+		if (node->nod_arg[e_mod_validate] =
+			make_validation(tdbb, csb,
+							(USHORT) node->
+							nod_arg[e_mod_new_stream])) node->nod_count =
+				MAX(node->nod_count, (USHORT) e_mod_validate + 1);
+		break;
+
+	case nod_erase:
+		stream = (USHORT) node->nod_arg[e_erase_stream];
+		tail = (*csb)->csb_rpt + stream;
+		tail->csb_flags |= csb_erase;
+		pass1_erase(tdbb, csb, node);
+		break;
+
+	case nod_exec_proc:
+		procedure = (PRC) node->nod_arg[e_esp_procedure];
+		post_procedure_access(tdbb, *csb, procedure);
+		CMP_post_resource(tdbb, &(*csb)->csb_resources, (BLK) procedure,
+						  rsc_procedure, procedure->prc_id);
+		break;
+
+	case nod_store:
+		sub = node->nod_arg[e_sto_relation];
+		stream = (USHORT) sub->nod_arg[e_rel_stream];
+		tail = (*csb)->csb_rpt + stream;
+		tail->csb_flags |= csb_store;
+		sub = pass1_store(tdbb, csb, node);
+		if (sub) {
+			stream = (USHORT) sub->nod_arg[e_rel_stream];
+			if ((!node->nod_arg[e_sto_sub_store]) &&
+				(node->nod_arg[e_sto_validate] =
+				 make_validation(tdbb, csb, stream))) node->nod_count =
+					MAX(node->nod_count, (USHORT) e_sto_validate + 1);
+			node->nod_arg[e_sto_statement] =
+				make_defaults(tdbb, csb, stream,
+							  node->nod_arg[e_sto_statement]);
+		}
+		break;
+
+	case nod_rse:
+	case nod_stream:
+		return (NOD) pass1_rse(tdbb, csb, (RSE) node, view, view_stream);
+
+	case nod_max:
+	case nod_min:
+	case nod_average:
+	case nod_from:
+	case nod_count:
+	case nod_count2:
+	case nod_total:
+		ignore_dbkey(tdbb, *csb, (RSE) node->nod_arg[e_stat_rse], view);
+		break;
+
+	case nod_aggregate:
+		(*csb)->csb_rpt[(USHORT) node->nod_arg[e_agg_stream]].csb_flags |=
+			csb_no_dbkey;
+		ignore_dbkey(tdbb, *csb, (RSE) node->nod_arg[e_agg_rse], view);
+		node->nod_arg[e_agg_rse] =
+			pass1(tdbb, csb, node->nod_arg[e_agg_rse], view, view_stream,
+				  validate_expr);
+		node->nod_arg[e_agg_map] =
+			pass1(tdbb, csb, node->nod_arg[e_agg_map], view, view_stream,
+				  validate_expr);
+		node->nod_arg[e_agg_group] =
+			pass1(tdbb, csb, node->nod_arg[e_agg_group], view, view_stream,
+				  validate_expr);
+		break;
+
+	case nod_gen_id:
+	case nod_gen_id2:
+		node->nod_arg[e_gen_value] =
+			pass1(tdbb, csb, node->nod_arg[e_gen_value], view, view_stream,
+				  validate_expr);
+		return node;
+
+	case nod_rec_version:
+	case nod_dbkey:
+		{
+			LLS stack;
+			NOD_T type;
+
+			type = node->nod_type;
+			stream = (USHORT) node->nod_arg[0];
+
+			if (!(*csb)->csb_rpt[stream].csb_map)
+				return node;
+			stack = NULL;
+			expand_view_nodes(tdbb, *csb, stream, &stack, type);
+			if (stack)
+				return catenate_nodes(tdbb, stack);
+
+			/* The user is asking for the dbkey/record version of an aggregate.
+			   Humor him with a key filled with zeros.
+			 */
+
+			node = PAR_make_node(tdbb, 1);
+			node->nod_count = 0;
+			node->nod_type = type;
+			node->nod_flags |= nod_agg_dbkey;
+			node->nod_arg[0] = (NOD) (SLONG) stream;
+			return node;
+		}
+
+	case nod_function:
+		pass1(tdbb, csb, node->nod_arg[e_fun_args], view, view_stream,
+			  validate_expr);
+		break;
+
+	case nod_ansi_all:
+	case nod_ansi_any:
+	case nod_any:
+	case nod_exists:
+	case nod_unique:
+		ignore_dbkey(tdbb, *csb, (RSE) node->nod_arg[e_any_rse], view);
+		break;
+
+	case nod_cardinality:
+		stream = (USHORT) node->nod_arg[e_card_stream];
+		(*csb)->csb_rpt[stream].csb_flags |= csb_compute;
+		break;
+
+	default:
+		break;
+
+	}
+
+/* Handle sub-expressions here */
+
+	ptr = node->nod_arg;
+
+	for (end = ptr + node->nod_count; ptr < end; ptr++)
+		*ptr = pass1(tdbb, csb, *ptr, view, view_stream, validate_expr);
+
+/* perform any post-processing here */
+
+	if (node->nod_type == nod_assignment) {
+		sub = node->nod_arg[e_asgn_to];
+		if (sub->nod_type != nod_field &&
+			sub->nod_type != nod_argument && sub->nod_type != nod_variable)
+			ERR_post(gds_read_only_field, 0);
+	}
+
+	return node;
+}
+
+
+static void pass1_erase(TDBB tdbb, CSB * csb, NOD node)
+{
+/**************************************
+ *
+ *	p a s s 1 _ e r a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkout an erase statement.  If it references a view, and
+ *	is kosher, fix it up.
+ *
+ **************************************/
+	REL relation, parent, view;
+	NOD source, view_node;
+	UCHAR *map;
+	USHORT stream, new_stream, parent_stream = 0;
+	VEC trigger;
+	csb_repeat *tail;
+	USHORT priv;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(*csb, type_csb);
+	DEV_BLKCHK(node, type_nod);
+
+/* If updateable views with triggers are involved, there
+   maybe a recursive call to be ignored */
+
+	if (node->nod_arg[e_erase_sub_erase])
+		return;
+
+	parent = view = NULL;
+
+/* To support views of views, loop until we hit a real relation */
+
+	for (;;) {
+		stream = new_stream = (USHORT) node->nod_arg[e_erase_stream];
+		tail = (*csb)->csb_rpt + stream;
+		tail->csb_flags |= csb_erase;
+		relation = (*csb)->csb_rpt[stream].csb_relation;
+		view = (relation->rel_view_rse) ? relation : view;
+		if (!parent)
+			parent = tail->csb_view;
+		post_trigger_access(tdbb, *csb, relation->rel_pre_erase, view);
+		post_trigger_access(tdbb, *csb, relation->rel_post_erase, view);
+
+		/* If this is a view trigger operation, get an extra stream to play with */
+
+		trigger =
+			(relation->rel_pre_erase) ? relation->
+			rel_pre_erase : relation->rel_post_erase;
+
+		if (relation->rel_view_rse && trigger) {
+			new_stream = (*csb)->csb_n_stream++;
+			node->nod_arg[e_erase_stream] = (NOD) (SLONG) new_stream;
+			CMP_csb_element(csb, new_stream)->csb_relation = relation;
+		}
+
+		/* Check out delete.  If this is a delete thru a view, verify the
+		   view by checking for read access on the base table.  If field-level select
+		   privileges are implemented, this needs to be enhanced. */
+
+		priv = SCL_sql_delete;
+		if (parent)
+			priv |= SCL_read;
+		source =
+			pass1_update(tdbb, csb, relation, trigger, stream, new_stream,
+						 priv, parent, parent_stream);
+
+		if ((*csb)->csb_rpt[new_stream].csb_flags & csb_view_update) {
+			/* We have a view either updateable or non-updateable */
+
+			node->nod_arg[e_erase_statement] =
+				pass1_expand_view(tdbb, *csb, stream, new_stream, FALSE);
+			node->nod_count =
+				MAX(node->nod_count, (USHORT) e_erase_statement + 1);
+		}
+
+		if (!source)
+			return;
+
+		/* We have a updateable view.  If there is a trigger on it, create a
+		   dummy erase record. */
+
+		map = (*csb)->csb_rpt[stream].csb_map;
+		if (trigger) {
+			view_node = copy(tdbb, csb, node, map, 0, FALSE);
+			node->nod_arg[e_erase_sub_erase] = view_node;
+			node->nod_count =
+				MAX(node->nod_count, (USHORT) e_erase_sub_erase + 1);
+			node = view_node;
+			node->nod_arg[e_erase_statement] = 0;
+			node->nod_arg[e_erase_sub_erase] = 0;
+		}
+		else
+			(*csb)->csb_rpt[new_stream].csb_flags &= ~csb_view_update;
+
+		/* So far, so good.  Lookup view context in instance map to get target
+		   stream */
+
+		parent = relation;
+		parent_stream = stream;
+		new_stream = (USHORT) source->nod_arg[e_rel_stream];
+		node->nod_arg[e_erase_stream] = (NOD) (SLONG) map[new_stream];
+	}
+}
+
+
+static NOD pass1_expand_view(
+							 TDBB tdbb,
+							 CSB csb,
+							 USHORT org_stream,
+							 USHORT new_stream, USHORT remap)
+{
+/**************************************
+ *
+ *	p a s s 1 _ e x p a n d _ v i e w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a view update performed by a trigger.
+ *
+ **************************************/
+	NOD assign, node;
+	REL relation;
+	VEC fields;
+	FLD *ptr, *end, field;
+	LLS stack;
+	USHORT id = 0, new_id = 0;
+	DSC desc;
+
+	SET_TDBB(tdbb);
+
+
+	DEV_BLKCHK(csb, type_csb);
+
+	stack = NULL;
+	relation = csb->csb_rpt[org_stream].csb_relation;
+	fields = relation->rel_fields;
+
+	for (ptr = (FLD *) fields->vec_object, end = ptr + fields->vec_count, id =
+		 0; ptr < end; ptr++, id++)
+		if (*ptr && !(*ptr)->fld_computation) {
+			if (remap) {
+				field = MET_get_field(relation, id);
+				if (field->fld_source)
+					new_id =
+						(USHORT) (NOD) (field->fld_source)->nod_arg[e_fld_id];
+				else
+					new_id = id;
+			}
+			else
+				new_id = id;
+			node = PAR_gen_field(tdbb, new_stream, new_id);
+			CMP_get_desc(tdbb, csb, node, &desc);
+			if (!desc.dsc_address) {
+				ALL_RELEASE(node);
+				continue;
+			}
+			assign = PAR_make_node(tdbb, e_asgn_length);
+			assign->nod_type = nod_assignment;
+			assign->nod_arg[e_asgn_to] = node;
+			assign->nod_arg[e_asgn_from] =
+				PAR_gen_field(tdbb, org_stream, id);
+			LLS_PUSH(assign, &stack);
+		}
+
+	return PAR_make_list(tdbb, stack);
+}
+
+
+static void pass1_modify(TDBB tdbb, CSB * csb, NOD node)
+{
+/**************************************
+ *
+ *	p a s s 1 _ m o d i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a source for a modify statement.  This can
+ *	get a little tricky if the relation is a view.
+ *
+ **************************************/
+	NOD source, view_node;
+	REL relation, parent, view;
+	UCHAR *map;
+	USHORT view_stream, stream, new_stream, parent_stream = 0;
+	VEC trigger;
+	csb_repeat *tail;
+	USHORT priv;
+
+	SET_TDBB(tdbb);
+
+
+	DEV_BLKCHK(*csb, type_csb);
+	DEV_BLKCHK(node, type_nod);
+
+/* If updateable views with triggers are involved, there
+   maybe a recursive call to be ignored */
+
+	if (node->nod_arg[e_mod_sub_mod])
+		return;
+
+	parent = view = NULL;
+
+/* To support views of views, loop until we hit a real relation */
+
+	for (;;) {
+		stream = (USHORT) node->nod_arg[e_mod_org_stream];
+		new_stream = (USHORT) node->nod_arg[e_mod_new_stream];
+		tail = (*csb)->csb_rpt + new_stream;
+		tail->csb_flags |= csb_modify;
+		relation = (*csb)->csb_rpt[stream].csb_relation;
+		view = (relation->rel_view_rse) ? relation : view;
+		if (!parent)
+			parent = tail->csb_view;
+		post_trigger_access(tdbb, *csb, relation->rel_pre_modify, view);
+		post_trigger_access(tdbb, *csb, relation->rel_post_modify, view);
+		trigger =
+			(relation->rel_pre_modify) ? relation->
+			rel_pre_modify : relation->rel_post_modify;
+
+		/* Check out update.  If this is an update thru a view, verify the
+		   view by checking for read access on the base table.  If field-level select
+		   privileges are implemented, this needs to be enhanced. */
+
+		priv = SCL_sql_update;
+		if (parent)
+			priv |= SCL_read;
+		if (!(source = pass1_update(tdbb, csb, relation, trigger, stream,
+									new_stream, priv, parent, parent_stream))) {
+			if ((*csb)->csb_rpt[new_stream].csb_flags & csb_view_update) {
+				node->nod_arg[e_mod_map_view] =
+					pass1_expand_view(tdbb, *csb, stream, new_stream, FALSE);
+				node->nod_count =
+					MAX(node->nod_count, (USHORT) e_mod_map_view + 1);
+			}
+			return;
+		}
+
+		parent = relation;
+		parent_stream = stream;
+		if (trigger) {
+			node->nod_arg[e_mod_map_view] =
+				pass1_expand_view(tdbb, *csb, stream, new_stream, FALSE);
+			node->nod_count =
+				MAX(node->nod_count, (USHORT) e_mod_map_view + 1);
+			map = (*csb)->csb_rpt[stream].csb_map;
+			stream = (USHORT) source->nod_arg[e_rel_stream];
+			stream = map[stream];
+			view_stream = new_stream;
+
+			/* Next, do update stream */
+
+			map =
+				alloc_map(tdbb, csb,
+						  (SSHORT) node->nod_arg[e_mod_new_stream]);
+			source = copy(tdbb, csb, source, map, 0, FALSE);
+			/* TMN: Here we should really have the following assert */
+			/* assert(source->nod_arg [e_rel_stream] <= MAX_UCHAR); */
+			map[new_stream] = (UCHAR) source->nod_arg[e_rel_stream];
+			view_node = copy(tdbb, csb, node, map, 0, TRUE);
+			view_node->nod_arg[e_mod_org_stream] = (NOD) (SLONG) stream;
+			view_node->nod_arg[e_mod_new_stream] =
+				source->nod_arg[e_rel_stream];
+			view_node->nod_arg[e_mod_map_view] = NULL;
+			node->nod_arg[e_mod_sub_mod] = view_node;
+			new_stream = (USHORT) source->nod_arg[e_rel_stream];
+			view_node->nod_arg[e_mod_statement] =
+				pass1_expand_view(tdbb, *csb, view_stream, new_stream, TRUE);
+			node->nod_count =
+				MAX(node->nod_count, (USHORT) e_mod_sub_mod + 1);
+			node = view_node;
+		}
+		else {
+			(*csb)->csb_rpt[new_stream].csb_flags &= ~csb_view_update;
+
+			/* View passes muster -- do some translation.  Start with source stream */
+
+			map = (*csb)->csb_rpt[stream].csb_map;
+			stream = (USHORT) source->nod_arg[e_rel_stream];
+			node->nod_arg[e_mod_org_stream] = (NOD) (SLONG) map[stream];
+
+			/* Next, do update stream */
+
+			map =
+				alloc_map(tdbb, csb,
+						  (SSHORT) node->nod_arg[e_mod_new_stream]);
+			source = copy(tdbb, csb, source, map, 0, FALSE);
+			node->nod_arg[e_mod_new_stream] = source->nod_arg[e_rel_stream];
+		}
+	}
+}
+
+
+static RSE pass1_rse(
+					 TDBB tdbb,
+					 CSB * csb, RSE rse, REL view, USHORT view_stream)
+{
+/**************************************
+ *
+ *	p a s s 1 _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a record select expression during pass 1 of compilation.
+ *	Mostly this involves expanding views.
+ *
+ **************************************/
+	USHORT count;
+	LLS stack, temp;
+	NOD *arg, *end, boolean, sort, project, first, plan;
+#ifdef SCROLLABLE_CURSORS
+	NOD async_message;
+#endif
+
+	SET_TDBB(tdbb);
+
+
+	DEV_BLKCHK(*csb, type_csb);
+	DEV_BLKCHK(rse, type_nod);
+	DEV_BLKCHK(view, type_rel);
+
+/* for scoping purposes, maintain a stack of rse's which are 
+   currently being parsed; if there are none on the stack as
+   yet, mark the rse as variant to make sure that statement-
+   level aggregates are not treated as invariants--bug #6535 */
+
+	if (!(*csb)->csb_current_rses)
+		rse->nod_flags |= rse_variant;
+	LLS_PUSH(rse, &(*csb)->csb_current_rses);
+
+	stack = NULL;
+	boolean = NULL;
+	sort = rse->rse_sorted;
+	project = rse->rse_projection;
+	first = rse->rse_first;
+	plan = rse->rse_plan;
+#ifdef SCROLLABLE_CURSORS
+	async_message = rse->rse_async_message;
+#endif
+
+/* Zip thru rse expanding views and inner joins */
+
+	for (arg = rse->rse_relation, end = arg + rse->rse_count; arg < end;
+		 arg++) pass1_source(tdbb, csb, rse, *arg, &boolean, &stack, view,
+							 view_stream);
+
+/* Now, rebuild the rse block.  If possible, re-use the old block,
+   otherwise allocate a new one. */
+
+	for (count = 0, temp = stack; temp; temp = temp->lls_next)
+		++count;
+
+	if (count != rse->rse_count) {
+		RSE new_rse;
+
+		new_rse = (RSE) PAR_make_node(tdbb, count + rse_delta + 2);
+		*new_rse = *rse;
+		new_rse->rse_count = count;
+		rse = new_rse;
+	}
+
+	arg = rse->rse_relation + count;
+
+	while (stack)
+		*--arg = (NOD) LLS_POP(&stack);
+
+/* Finish of by processing other clauses */
+
+	if (first)
+		rse->rse_first = pass1(tdbb, csb, first, view, view_stream, FALSE);
+
+	if (boolean) {
+		if (rse->rse_boolean) {
+			NOD and;
+
+			and = PAR_make_node(tdbb, 2);
+			and->nod_type = nod_and;
+			and->nod_arg[0] = boolean;
+			and->nod_arg[1] =
+				pass1(tdbb, csb, rse->rse_boolean, view, view_stream, FALSE);
+			rse->rse_boolean = and;
+		}
+		else
+			rse->rse_boolean = boolean;
+	}
+	else
+		rse->rse_boolean =
+			pass1(tdbb, csb, rse->rse_boolean, view, view_stream, FALSE);
+
+	if (sort)
+		rse->rse_sorted = pass1(tdbb, csb, sort, view, view_stream, FALSE);
+
+	if (project)
+		rse->rse_projection =
+			pass1(tdbb, csb, project, view, view_stream, FALSE);
+
+	if (plan)
+		rse->rse_plan = plan;
+
+#ifdef SCROLLABLE_CURSORS
+	if (async_message) {
+		rse->rse_async_message =
+			pass1(tdbb, csb, async_message, view, view_stream, FALSE);
+		(*csb)->csb_async_message = rse->rse_async_message;
+	}
+#endif
+
+/* we are no longer in the scope of this rse */
+
+	LLS_POP(&(*csb)->csb_current_rses);
+
+	return rse;
+}
+
+
+static void pass1_source(
+						 TDBB tdbb,
+						 CSB * csb,
+						 RSE rse,
+						 NOD source,
+						 NOD * boolean,
+						 LLS * stack, REL parent_view, USHORT view_stream)
+{
+/**************************************
+ *
+ *	p a s s 1 _ s o u r c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a single record source stream from an rse.  Obviously,
+ *	if the source is a view, there is more work to do.
+ *
+ **************************************/
+	DBB dbb;
+	RSE view_rse;
+	NOD *arg, *end, node;
+	REL view;
+	UCHAR *map;
+	USHORT stream;
+	csb_repeat *element;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(*csb, type_csb);
+	DEV_BLKCHK(rse, type_nod);
+	DEV_BLKCHK(source, type_nod);
+	DEV_BLKCHK(*boolean, type_nod);
+	DEV_BLKCHK(*stack, type_lls);
+	DEV_BLKCHK(parent_view, type_rel);
+
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* in the case of an rse, it is possible that a new rse will be generated, 
+   so wait to process the source before we push it on the stack (bug 8039) */
+
+	if (source->nod_type == nod_rse) {
+		RSE sub_rse;
+
+		/* The addition of the JOIN syntax for specifying inner joins causes an 
+		   rse tree to be generated, which is undesirable in the simplest case 
+		   where we are just trying to inner join more than 2 streams.  If possible, 
+		   try to flatten the tree out before we go any further. */
+
+		sub_rse = (RSE) source;
+		if (!rse->rse_jointype && !sub_rse->rse_jointype
+			&& !sub_rse->rse_sorted && !sub_rse->rse_projection
+			&& !sub_rse->rse_first && !sub_rse->rse_plan) {
+			for (arg = sub_rse->rse_relation, end = arg + sub_rse->rse_count;
+				 arg < end; arg++)
+				pass1_source(tdbb, csb, rse, *arg, boolean, stack,
+							 parent_view, view_stream);
+
+			/* fold in the boolean for this inner join with the one for the parent */
+
+			if (sub_rse->rse_boolean) {
+				node =
+					pass1(tdbb, csb, sub_rse->rse_boolean, parent_view,
+						  view_stream, FALSE);
+				if (*boolean) {
+					NOD and;
+
+					and = PAR_make_node(tdbb, 2);
+					and->nod_type = nod_and;
+					and->nod_arg[0] = node;
+					and->nod_arg[1] = *boolean;
+					*boolean = and;
+				}
+				else
+					*boolean = node;
+			}
+
+			return;
+		}
+
+		source = pass1(tdbb, csb, source, parent_view, view_stream, FALSE);
+		LLS_PUSH(source, stack);
+		return;
+	}
+
+/* Assume that the source will be used.  Push it on the final
+   stream stack */
+
+	LLS_PUSH(source, stack);
+
+/* Special case procedure */
+
+	if (source->nod_type == nod_procedure) {
+		PRC procedure;
+
+		pass1(tdbb, csb, source, parent_view, view_stream, FALSE);
+		procedure = (PRC) source->nod_arg[e_prc_procedure];
+		post_procedure_access(tdbb, *csb, procedure);
+		CMP_post_resource(tdbb, &(*csb)->csb_resources, (BLK) procedure,
+						  rsc_procedure, procedure->prc_id);
+		return;
+	}
+
+/* Special case union */
+
+	if (source->nod_type == nod_union) {
+		pass1(tdbb, csb, source->nod_arg[e_uni_clauses], parent_view,
+			  view_stream, FALSE);
+		return;
+	}
+
+/* Special case group-by/global aggregates */
+
+	if (source->nod_type == nod_aggregate) {
+		pass1(tdbb, csb, source, parent_view, view_stream, FALSE);
+		return;
+	}
+
+/* All the special cases are exhausted, so we must have a view or a base table; 
+   prepare to check protection of relation when a field in the stream of the 
+   relation is accessed */
+
+	view = (REL) source->nod_arg[e_rel_relation];
+	CMP_post_resource(tdbb, &(*csb)->csb_resources, (BLK) view, rsc_relation,
+					  view->rel_id);
+	source->nod_arg[e_rel_view] = (NOD) parent_view;
+
+	stream = (USHORT) source->nod_arg[e_rel_stream];
+	element = CMP_csb_element(csb, stream);
+	element->csb_view = parent_view;
+/* TMN: Here we should really have the following assert */
+/* assert(view_stream <= MAX_UCHAR); */
+	element->csb_view_stream = (UCHAR) view_stream;
+
+/* in the case where there is a parent view, find the context name */
+
+	if (parent_view) {
+		VCX *vcx_ptr;
+
+		for (vcx_ptr = &parent_view->rel_view_contexts; *vcx_ptr;
+			 vcx_ptr = &(*vcx_ptr)->vcx_next)
+			if ((*vcx_ptr)->vcx_context ==
+				(USHORT) source->nod_arg[e_rel_context]) {
+				element->csb_alias = (*vcx_ptr)->vcx_context_name;
+				break;
+			}
+	}
+
+/* Check for a view -- if not, nothing more to do */
+
+#ifndef GATEWAY
+	if (!(view_rse = view->rel_view_rse)) {
+		return;
+	}
+
+/* We've got a view, expand it */
+
+	DEBUG;
+	LLS_POP(stack);
+	map = alloc_map(tdbb, csb, stream);
+
+/* We don't expand the view in two cases: 
+   1) If the view has a projection, and the query rse already has a projection 
+      defined; there is probably some way to merge these projections and do them 
+	  both at once, but for now we'll punt on that.
+   2) If it's part of an outer join. */
+
+	if ((view_rse->rse_projection && rse->rse_projection)
+		|| rse->rse_jointype) {
+		node = copy(tdbb, csb, (NOD) view_rse, map, 0, FALSE);
+		DEBUG;
+		LLS_PUSH(pass1(tdbb, csb, node, view, stream, FALSE), stack);
+		DEBUG;
+		return;
+	}
+
+/* if we have a projection which we can bubble up to the parent rse, set the 
+   parent rse to our projection temporarily to flag the fact that we have already 
+   seen one so that lower-level views will not try to map their projection; the 
+   projection will be copied and correctly mapped later, but we don't have all 
+   the base streams yet */
+
+	if (view_rse->rse_projection)
+		rse->rse_projection = view_rse->rse_projection;
+
+/* Disect view into component relations */
+
+	for (arg = view_rse->rse_relation, end = arg + view_rse->rse_count;
+		 arg < end; arg++) {
+		/* this call not only copies the node, it adds any streams it finds to the map */
+
+		node = copy(tdbb, csb, *arg, map, 0, FALSE);
+
+		/* Now go out and process the base table itself.  This table might also be a view, 
+		   in which case we will continue the process by recursion.  */
+
+		pass1_source(tdbb, csb, rse, node, boolean, stack, view, stream);
+	}
+
+/* When there is a projection in the view, copy the projection up to the query rse.
+   In order to make this work properly, we must remap the stream numbers of the fields
+   in the view to the stream number of the base table.  Note that the map at this point 
+   contains the stream numbers of the referenced relations, since it was added during the call 
+   to copy() above.  After the copy() below, the fields in the projection will reference the 
+   base table(s) instead of the view's context (see bug #8822), so we are ready to context- 
+   recognize them in pass1()--that is, replace the field nodes with actual field blocks. */
+
+	if (view_rse->rse_projection)
+		rse->rse_projection =
+			pass1(tdbb, csb,
+				  copy(tdbb, csb, view_rse->rse_projection, map, 0, FALSE),
+				  view, stream, FALSE);
+
+/* If we encounter a boolean, copy it and retain it by ANDing it in with the 
+   boolean on the parent view, if any. */
+
+	if (view_rse->rse_boolean) {
+		node =
+			pass1(tdbb, csb,
+				  copy(tdbb, csb, view_rse->rse_boolean, map, 0, FALSE), view,
+				  stream, FALSE);
+		if (*boolean) {
+			NOD and;
+
+			/* The order of the nodes here is important!  The
+			   boolean from the view must appear first so that
+			   it gets expanded first in pass1. */
+
+			and = PAR_make_node(tdbb, 2);
+			and->nod_type = nod_and;
+			and->nod_arg[0] = node;
+			and->nod_arg[1] = *boolean;
+			*boolean = and;
+		}
+		else
+			*boolean = node;
+	}
+#endif
+
+	return;
+}
+
+
+static NOD pass1_store(TDBB tdbb, CSB * csb, NOD node)
+{
+/**************************************
+ *
+ *	p a s s 1 _ s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a source for a store statement.  This can get a little tricky if
+ *	the relation is a view.
+ *
+ **************************************/
+	NOD source, original, view_node, very_orig;
+	REL relation, parent, view;
+	UCHAR *map;
+	USHORT stream, new_stream, trigger_seen, parent_stream = 0;
+	VEC trigger;
+	csb_repeat *tail;
+	USHORT priv;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(*csb, type_csb);
+	DEV_BLKCHK(node, type_nod);
+
+/* If updateable views with triggers are involved, there
+   maybe a recursive call to be ignored */
+
+	if (node->nod_arg[e_sto_sub_store])
+		return NULL;
+
+	parent = view = NULL;
+	trigger_seen = FALSE;
+	very_orig = node->nod_arg[e_sto_relation];
+
+/* To support views of views, loop until we hit a real relation */
+
+	for (;;) {
+		original = node->nod_arg[e_sto_relation];
+		stream = (USHORT) original->nod_arg[e_rel_stream];
+		tail = (*csb)->csb_rpt + stream;
+		tail->csb_flags |= csb_store;
+		relation = (*csb)->csb_rpt[stream].csb_relation;
+		view = (relation->rel_view_rse) ? relation : view;
+		if (!parent)
+			parent = tail->csb_view;
+		post_trigger_access(tdbb, *csb, relation->rel_pre_store, view);
+		post_trigger_access(tdbb, *csb, relation->rel_post_store, view);
+		trigger =
+			(relation->rel_pre_store) ? relation->
+			rel_pre_store : relation->rel_post_store;
+
+		/* Check out insert.  If this is an insert thru a view, verify the
+		   view by checking for read access on the base table.  If field-level select
+		   privileges are implemented, this needs to be enhanced. */
+
+		priv = SCL_sql_insert;
+		if (parent)
+			priv |= SCL_read;
+		if (!
+			(source =
+			 pass1_update(tdbb, csb, relation, trigger, stream, stream, priv,
+						  parent, parent_stream))) {
+			CMP_post_resource(tdbb, &(*csb)->csb_resources, (BLK) relation,
+							  rsc_relation, relation->rel_id);
+			return very_orig;
+		}
+
+		/* View passes muster -- do some translation */
+
+		parent = relation;
+		parent_stream = stream;
+		map = alloc_map(tdbb, csb, stream);
+		if (!trigger) {
+			(*csb)->csb_rpt[stream].csb_flags &= ~csb_view_update;
+			node->nod_arg[e_sto_relation] =
+				copy(tdbb, csb, source, map, 0, FALSE);
+			if (!trigger_seen)
+				very_orig = node->nod_arg[e_sto_relation];
+		}
+		else {
+			CMP_post_resource(tdbb, &(*csb)->csb_resources, (BLK) relation,
+							  rsc_relation, relation->rel_id);
+			trigger_seen = TRUE;
+			view_node = copy(tdbb, csb, node, map, 0, FALSE);
+			node->nod_arg[e_sto_sub_store] = view_node;
+			node->nod_count =
+				MAX(node->nod_count, (USHORT) e_sto_sub_store + 1);
+			view_node->nod_arg[e_sto_sub_store] = 0;
+			node = view_node;
+			node->nod_arg[e_sto_relation] =
+				copy(tdbb, csb, source, map, 0, FALSE);
+			new_stream =
+				(USHORT) node->nod_arg[e_sto_relation]->nod_arg[e_rel_stream];
+			node->nod_arg[e_sto_statement] =
+				pass1_expand_view(tdbb, *csb, stream, new_stream, TRUE);
+			node->nod_arg[e_sto_statement] =
+				copy(tdbb, csb, node->nod_arg[e_sto_statement],
+					 (UCHAR *) NULL, 0, FALSE);
+
+			/* bug 8150: use of blr_store2 against a view with a trigger was causing 
+			   the second statement to be executed, which is not desirable */
+
+			node->nod_arg[e_sto_statement2] = NULL;
+		}
+	}
+}
+
+
+static NOD pass1_update(
+						TDBB tdbb,
+						CSB * csb,
+						REL relation,
+						VEC trigger,
+						USHORT stream,
+USHORT update_stream, USHORT priv, REL view, USHORT view_stream)
+{
+/**************************************
+ *
+ *	p a s s 1 _ u p d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check out a prospective update to a relation.  If it fails
+ *	security check, bounce it.  If it's a view update, make sure
+ *	the view is updatable,  and return the view source for redirection.
+ *	If it's a simple relation, return NULL.
+ *
+ **************************************/
+	RSE rse;
+	NOD node;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(*csb, type_csb);
+	DEV_BLKCHK(relation, type_rel);
+	DEV_BLKCHK(trigger, type_vec);
+	DEV_BLKCHK(view, type_rel);
+
+/* Unless this is an internal request, check access permission */
+
+	CMP_post_access(tdbb, *csb, relation->rel_security_name, view,
+					0, 0, priv, "table", relation->rel_name);
+
+/* ensure that the view is set for the input streams,
+   so that access to views can be checked at the field level */
+
+	CMP_csb_element(csb, stream)->csb_view = view;
+/* TMN: Here we should really have the following assert */
+/* assert(view_stream <= MAX_UCHAR); */
+	CMP_csb_element(csb, stream)->csb_view_stream = (UCHAR) view_stream;
+	CMP_csb_element(csb, update_stream)->csb_view = view;
+/* TMN: Here we should really have the following assert */
+/* assert(view_stream <= MAX_UCHAR); */
+	CMP_csb_element(csb, update_stream)->csb_view_stream =
+		(UCHAR) view_stream;
+
+#ifdef GATEWAY
+/* If relation doesn't have a dbkey, it can't be updated */
+
+	if (!(relation->rel_flags & REL_dbkey))
+		ERR_post(gds__read_only_view, gds_arg_string, relation->rel_name, 0);
+
+	return NULL;
+#else
+/* If we're not a view, everything's cool */
+
+	if (!(rse = relation->rel_view_rse))
+		return NULL;
+
+/* We've got a view, is it updateable? */
+
+	if (rse->rse_count != 1 ||
+		rse->rse_projection ||
+		rse->rse_sorted ||
+		!(node = rse->rse_relation[0]) || node->nod_type != nod_relation) {
+		/* We've got a non-updateable view.  If there's a trigger,
+		   don't expand it */
+
+		if (trigger) {
+			(*csb)->csb_rpt[update_stream].csb_flags |= csb_view_update;
+			return NULL;
+		}
+		else {
+			ERR_post(gds_read_only_view,
+					 gds_arg_string, relation->rel_name, 0);
+			return ((NOD) NULL);	/* Added to remove compiler warnings */
+		}
+	}
+	else {
+		/* It's an updateable view, return the view source */
+
+		(*csb)->csb_rpt[update_stream].csb_flags |= csb_view_update;
+		return rse->rse_relation[0];
+	}
+
+#endif
+}
+
+
+static NOD pass2(TDBB tdbb, register CSB csb, register NOD node, NOD parent)
+{
+/**************************************
+ *
+ *	p a s s 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate and assign impure space for various nodes.
+ *
+ **************************************/
+	NOD rse_node, *ptr, *end;
+	ULONG id;
+	USHORT stream;
+	RSB *rsb_ptr;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(node, type_nod);
+	DEV_BLKCHK(parent, type_nod);
+
+	if (!node)
+		return node;
+
+	if (parent)
+		node->nod_parent = parent;
+
+/* If there is processing to be done before sub expressions, do it here */
+
+	DEBUG;
+	rse_node = NULL;
+
+	switch (node->nod_type) {
+	case nod_rse:
+		return NULL;
+
+	case nod_union:
+		return pass2_union(tdbb, csb, node);
+
+	case nod_for:
+		rse_node = node->nod_arg[e_for_re];
+		rsb_ptr = (RSB *) & node->nod_arg[e_for_rsb];
+#ifdef SCROLLABLE_CURSORS
+		csb->csb_current_rse = rse_node;
+#endif
+		break;
+
+#ifdef SCROLLABLE_CURSORS
+	case nod_seek:
+	case nod_seek_no_warn:
+		/* store the rse in whose scope we are defined */
+
+		node->nod_arg[e_seek_rse] = (NOD) csb->csb_current_rse;
+		break;
+#endif
+
+	case nod_max:
+	case nod_min:
+	case nod_count:
+	case nod_count2:
+	case nod_average:
+	case nod_total:
+	case nod_from:
+		rse_node = node->nod_arg[e_stat_rse];
+		if (!(rse_node->nod_flags & rse_variant)) {
+			node->nod_flags |= nod_invariant;
+			LLS_PUSH(node, &csb->csb_invariants);
+		}
+		rsb_ptr = (RSB *) & node->nod_arg[e_stat_rsb];
+		break;
+
+	case nod_ansi_all:
+	case nod_ansi_any:
+	case nod_any:
+	case nod_exists:
+	case nod_unique:
+		rse_node = node->nod_arg[e_any_rse];
+		if (!(rse_node->nod_flags & rse_variant)) {
+			node->nod_flags |= nod_invariant;
+			LLS_PUSH(node, &csb->csb_invariants);
+		}
+		rsb_ptr = (RSB *) & node->nod_arg[e_any_rsb];
+		break;
+
+	case nod_sort:
+		ptr = node->nod_arg;
+		for (end = ptr + node->nod_count; ptr < end; ptr++)
+			(*ptr)->nod_flags |= nod_value;
+		break;
+
+	case nod_function:
+		{
+			NOD value;
+			FUN function;
+
+			value = node->nod_arg[e_fun_args];
+			function = (FUN) node->nod_arg[e_fun_function];
+			pass2(tdbb, csb, value, node);
+			/* For gbak attachments, there is no need to resolve the UDF function */
+			/* Also if we are dropping a procedure don't bother resolving the
+			   UDF that the procedure invokes.
+			 */
+			if (!(tdbb->tdbb_attachment->att_flags & ATT_gbak_attachment) &&
+				!(tdbb->tdbb_flags & TDBB_prc_being_dropped)) {
+				node->nod_arg[e_fun_function] =
+					(NOD) FUN_resolve(csb, function, value);
+				if (!node->nod_arg[e_fun_function])
+					ERR_post(gds_funmismat, gds_arg_string,
+							 function->fun_symbol->sym_string, 0);
+			}
+		}
+		break;
+
+#ifdef PC_ENGINE
+		/* the remainder of the node types are for IDAPI support:
+		   fix up the stream to point to the base table, and preserve 
+		   the pointers to the navigational rsb for easy reference 
+		   later during execution */
+
+	case nod_stream:
+		{
+			NOD relation;
+			RSE rse;
+
+			rse = (RSE) node;
+			rse_node = node;
+			/* setting the stream flag will allow the optimizer to  
+			   detect that a SET INDEX may be done on this stream */
+			rse_node->nod_flags |= rse_stream;
+			rsb_ptr = &rse->rse_rsb;
+			relation = rse->rse_relation[0];
+			stream = base_stream(csb, &relation->nod_arg[e_rel_stream], TRUE);
+			csb->csb_rpt[stream].csb_rsb_ptr = &rse->rse_rsb;
+		}
+		break;
+
+	case nod_find:
+		stream = base_stream(csb, &node->nod_arg[e_find_stream], TRUE);
+		if (!
+			(node->nod_arg[e_find_rsb] =
+			 (NOD) csb->
+			 csb_rpt[stream].csb_rsb_ptr)) ERR_post(gds__stream_not_defined,
+													0);
+		break;
+
+	case nod_find_dbkey:
+	case nod_find_dbkey_version:
+		stream = base_stream(csb, &node->nod_arg[e_find_dbkey_stream], TRUE);
+		if (!
+			(node->nod_arg[e_find_dbkey_rsb] =
+			 (NOD) csb->
+			 csb_rpt[stream].csb_rsb_ptr)) ERR_post(gds__stream_not_defined,
+													0);
+		break;
+
+	case nod_set_index:
+		stream = base_stream(csb, &node->nod_arg[e_index_stream], TRUE);
+		if (!
+			(node->nod_arg[e_index_rsb] =
+			 (NOD) csb->
+			 csb_rpt[stream].csb_rsb_ptr)) ERR_post(gds__stream_not_defined,
+													0);
+		break;
+
+	case nod_get_bookmark:
+		stream = base_stream(csb, &node->nod_arg[e_getmark_stream], TRUE);
+		if (!
+			(node->nod_arg[e_getmark_rsb] =
+			 (NOD) csb->
+			 csb_rpt[stream].csb_rsb_ptr)) ERR_post(gds__stream_not_defined,
+													0);
+		break;
+
+	case nod_set_bookmark:
+		stream = base_stream(csb, &node->nod_arg[e_setmark_stream], TRUE);
+		if (!
+			(node->nod_arg[e_setmark_rsb] =
+			 (NOD) csb->
+			 csb_rpt[stream].csb_rsb_ptr)) ERR_post(gds__stream_not_defined,
+													0);
+		break;
+
+	case nod_lock_record:
+		stream = base_stream(csb, &node->nod_arg[e_lockrec_stream], TRUE);
+		if (!
+			(node->nod_arg[e_lockrec_rsb] =
+			 (NOD) csb->
+			 csb_rpt[stream].csb_rsb_ptr)) ERR_post(gds__stream_not_defined,
+													0);
+		break;
+
+	case nod_crack:
+	case nod_force_crack:
+		stream = base_stream(csb, &node->nod_arg[0], TRUE);
+		if (!(node->nod_arg[1] = (NOD) csb->csb_rpt[stream].csb_rsb_ptr))
+			ERR_post(gds__stream_not_defined, 0);
+		break;
+
+	case nod_reset_stream:
+		stream = base_stream(csb, &node->nod_arg[e_reset_from_stream], TRUE);
+		if (!
+			(node->nod_arg[e_reset_from_rsb] =
+			 (NOD) csb->
+			 csb_rpt[stream].csb_rsb_ptr)) ERR_post(gds__stream_not_defined,
+													0);
+		break;
+
+	case nod_cardinality:
+		stream = base_stream(csb, &node->nod_arg[e_card_stream], TRUE);
+		if (!
+			(node->nod_arg[e_card_rsb] =
+			 (NOD) csb->
+			 csb_rpt[stream].csb_rsb_ptr)) ERR_post(gds__stream_not_defined,
+													0);
+		break;
+
+		/* the following DML nodes need to have their rsb's stored when 
+		   they are referencing a navigational stream, so that we can
+		   follow proper IDAPI semantics in manipulating a stream */
+
+	case nod_erase:
+		stream = base_stream(csb, &node->nod_arg[e_erase_stream], FALSE);
+		node->nod_arg[e_erase_rsb] = (NOD) csb->csb_rpt[stream].csb_rsb_ptr;
+		break;
+
+	case nod_modify:
+		stream = base_stream(csb, &node->nod_arg[e_mod_org_stream], FALSE);
+		node->nod_arg[e_mod_rsb] = (NOD) csb->csb_rpt[stream].csb_rsb_ptr;
+		break;
+#endif
+
+	default:
+		break;
+	}
+
+	if (rse_node)
+		pass2_rse(tdbb, csb, (RSE) rse_node);
+
+/* Handle sub-expressions here */
+
+	ptr = node->nod_arg;
+
+	for (end = ptr + node->nod_count; ptr < end; ptr++)
+		pass2(tdbb, csb, *ptr, node);
+
+/* Handle any residual work */
+
+	node->nod_impure = CMP_impure(csb, 0);
+
+	switch (node->nod_type) {
+	case nod_assignment:
+		{
+			NOD value;
+
+			if (value = node->nod_arg[e_asgn_missing2])
+				pass2(tdbb, csb, value, node);
+		}
+		break;
+
+	case nod_average:
+	case nod_agg_average:
+	case nod_agg_average_distinct:
+		node->nod_flags |= nod_double;
+		/* FALL INTO */
+
+	case nod_max:
+	case nod_min:
+	case nod_from:
+	case nod_count:
+	case nod_agg_count2:
+	case nod_agg_count_distinct:
+	case nod_count2:
+	case nod_agg_min:
+	case nod_agg_max:
+	case nod_agg_count:
+		node->nod_count = 0;
+		csb->csb_impure += sizeof(struct vlux);
+		break;
+
+	case nod_ansi_all:
+	case nod_ansi_any:
+	case nod_any:
+	case nod_exists:
+	case nod_unique:
+		if (node->nod_flags & nod_invariant)
+			csb->csb_impure += sizeof(struct vlu);
+		break;
+
+	case nod_block:
+		csb->csb_impure += sizeof(SLONG);
+		break;
+
+	case nod_dcl_variable:
+		{
+			DSC *desc;
+
+			desc = (DSC *) (node->nod_arg + e_dcl_desc);
+			csb->csb_impure += sizeof(struct vlu) + desc->dsc_length;
+		}
+		break;
+
+	case nod_agg_total:
+	case nod_agg_total_distinct:
+	case nod_total:
+	case nod_agg_total2:
+	case nod_agg_total_distinct2:
+		{
+			DSC descriptor_a;
+
+			node->nod_count = 0;
+			csb->csb_impure += sizeof(struct vlu);
+			CMP_get_desc(tdbb, csb, node, &descriptor_a);
+		}
+		break;
+
+	case nod_agg_average2:
+	case nod_agg_average_distinct2:
+		{
+			DSC descriptor_a;
+
+			node->nod_count = 0;
+			csb->csb_impure += sizeof(struct vlux);
+			CMP_get_desc(tdbb, csb, node, &descriptor_a);
+		}
+		break;
+
+	case nod_message:
+		{
+			FMT format;
+
+			format = (FMT) node->nod_arg[e_msg_format];
+			if (!((tdbb->tdbb_flags & TDBB_prc_being_dropped) && !format))
+				csb->csb_impure += FB_ALIGN(format->fmt_length, 2);
+		}
+		break;
+
+	case nod_modify:
+		{
+			FMT format;
+			DSC *desc;
+
+			stream = (USHORT) node->nod_arg[e_mod_org_stream];
+			csb->csb_rpt[stream].csb_flags |= csb_update;
+#ifndef GATEWAY
+			format = CMP_format(tdbb, csb, stream);
+			desc = format->fmt_desc;
+			for (id = 0; id < format->fmt_count; id++, desc++)
+				if (desc->dsc_dtype)
+					SBM_set(tdbb, &csb->csb_rpt[stream].csb_fields, id);
+#else
+			id = csb->csb_rpt[stream].csb_relation->rel_key_field;
+			SBM_set(tdbb, &csb->csb_rpt[stream].csb_fields, id);
+			csb->csb_rpt[stream].csb_other_nod = node;
+#endif
+			csb->csb_impure += sizeof(struct sta);
+		}
+		break;
+
+	case nod_list:
+		node->nod_type = nod_asn_list;
+		for (ptr = node->nod_arg; ptr < end; ptr++)
+			if ((*ptr)->nod_type != nod_assignment) {
+				node->nod_type = nod_list;
+				break;
+			}
+		/* FALL INTO */
+
+#ifndef GATEWAY
+	case nod_store:
+#endif
+		csb->csb_impure += sizeof(struct sta);
+		break;
+
+#ifdef GATEWAY
+	case nod_store:
+		stream =
+			(USHORT) node->nod_arg[e_sto_relation]->nod_arg[e_rel_stream];
+		csb->csb_rpt[stream].csb_other_nod = node;
+		csb->csb_impure += sizeof(struct sta);
+		break;
+#endif
+
+	case nod_erase:
+		stream = (USHORT) node->nod_arg[e_erase_stream];
+		csb->csb_rpt[stream].csb_flags |= csb_update;
+#ifdef GATEWAY
+		id = csb->csb_rpt[stream].csb_relation->rel_key_field;
+		SBM_set(tdbb, &csb->csb_rpt[stream].csb_fields, id);
+		csb->csb_rpt[stream].csb_other_nod = node;
+#endif
+		break;
+
+	case nod_field:
+		stream = (USHORT) node->nod_arg[e_fld_stream];
+		id = (USHORT) node->nod_arg[e_fld_id];
+		SBM_set(tdbb, &csb->csb_rpt[stream].csb_fields, id);
+#ifdef GATEWAY
+		if (parent &&
+			parent->nod_type == nod_assignment &&
+			node == parent->nod_arg[e_asgn_from])
+				SBM_set(tdbb, &csb->csb_rpt[stream].csb_asgn_flds, id);
+#endif
+		if (node->nod_flags & nod_value) {
+			csb->csb_impure += sizeof(struct vlux);
+			break;
+		}
+		/* FALL INTO */
+
+	case nod_argument:
+		csb->csb_impure += sizeof(struct dsc);
+		break;
+
+	case nod_concatenate:
+#ifndef GATEWAY
+	case nod_dbkey:
+#endif
+	case nod_rec_version:
+	case nod_negate:
+	case nod_substr:
+	case nod_divide:
+	case nod_null:
+	case nod_user_name:
+	case nod_gen_id:
+	case nod_gen_id2:
+	case nod_upcase:
+	case nod_prot_mask:
+	case nod_lock_state:
+#ifdef PC_ENGINE
+	case nod_lock_record:
+	case nod_lock_relation:
+#endif
+	case nod_scalar:
+	case nod_cast:
+	case nod_extract:
+	case nod_current_time:
+	case nod_current_timestamp:
+	case nod_current_date:
+#ifdef PC_ENGINE
+	case nod_cardinality:
+	case nod_seek:
+	case nod_seek_no_warn:
+	case nod_crack:
+	case nod_begin_range:
+#endif
+		{
+			DSC descriptor_a;
+
+			CMP_get_desc(tdbb, csb, node, &descriptor_a);
+			csb->csb_impure += sizeof(struct vlu);
+		}
+		break;
+
+#ifdef GATEWAY
+	case nod_dbkey:
+		stream = (USHORT) node->nod_arg[0];
+		csb->csb_rpt[stream].csb_flags |= csb_dbkey;
+		id = csb->csb_rpt[stream].csb_relation->rel_key_field;
+		SBM_set(tdbb, &csb->csb_rpt[stream].csb_fields, id);
+		csb->csb_impure += sizeof(struct vluk);
+		break;
+#endif
+
+		/* Compute the target descriptor to compute computational class */
+
+	case nod_multiply:
+	case nod_add:
+	case nod_subtract:
+	case nod_function:
+	case nod_add2:
+	case nod_subtract2:
+	case nod_multiply2:
+	case nod_divide2:
+		{
+			DSC descriptor_a;
+
+			CMP_get_desc(tdbb, csb, node, &descriptor_a);
+			csb->csb_impure += sizeof(struct vlu);
+		}
+		break;
+
+	case nod_aggregate:
+		pass2_rse(tdbb, csb, (RSE) node->nod_arg[e_agg_rse]);
+		pass2(tdbb, csb, node->nod_arg[e_agg_map], node);
+		pass2(tdbb, csb, node->nod_arg[e_agg_group], node);
+		stream = (USHORT) node->nod_arg[e_agg_stream];
+		process_map(tdbb, csb, node->nod_arg[e_agg_map],
+					&csb->csb_rpt[stream].csb_format);
+		break;
+
+		/* Boolean Nodes taking three values as inputs */
+	case nod_like:
+	case nod_between:
+	case nod_sleuth:
+		if (node->nod_count > 2) {
+			DSC descriptor_c;
+
+			if (node->nod_arg[2]->nod_flags & nod_agg_dbkey)
+				ERR_post(gds_bad_dbkey, 0);
+			CMP_get_desc(tdbb, csb, node->nod_arg[0], &descriptor_c);
+			if (DTYPE_IS_DATE(descriptor_c.dsc_dtype)) {
+				node->nod_arg[0]->nod_flags |= nod_date;
+				node->nod_arg[1]->nod_flags |= nod_date;
+			}
+		};
+		/* FALLINTO */
+
+		/* Boolean Nodes taking two values as inputs */
+	case nod_matches:
+	case nod_contains:
+	case nod_starts:
+	case nod_eql:
+	case nod_neq:
+	case nod_geq:
+	case nod_gtr:
+	case nod_lss:
+	case nod_leq:
+		{
+			DSC descriptor_a, descriptor_b;
+
+			if ((node->nod_arg[0]->nod_flags & nod_agg_dbkey) ||
+				(node->nod_arg[1]->nod_flags & nod_agg_dbkey))
+				ERR_post(gds_bad_dbkey, 0);
+			CMP_get_desc(tdbb, csb, node->nod_arg[0], &descriptor_a);
+			CMP_get_desc(tdbb, csb, node->nod_arg[1], &descriptor_b);
+			if (DTYPE_IS_DATE(descriptor_a.dsc_dtype))
+				node->nod_arg[1]->nod_flags |= nod_date;
+			else if (DTYPE_IS_DATE(descriptor_b.dsc_dtype))
+				node->nod_arg[0]->nod_flags |= nod_date;
+		}
+		break;
+
+		/* Boolean nodes taking 1 Value as input */
+	case nod_missing:
+		{
+			DSC descriptor_a;
+
+			if (node->nod_arg[0]->nod_flags & nod_agg_dbkey)
+				ERR_post(gds_bad_dbkey, 0);
+
+			/* Check for syntax errors in the calculation */
+			CMP_get_desc(tdbb, csb, node->nod_arg[0], &descriptor_a);
+		}
+		break;
+
+	default:
+		/* Note: no assert (FALSE); here as too many nodes are missing */
+		break;
+	}
+
+/* Finish up processing of record selection expressions */
+
+	if (rse_node)
+		*rsb_ptr = post_rse(tdbb, csb, (RSE) rse_node);
+
+	return node;
+}
+
+
+static void pass2_rse(TDBB tdbb, CSB csb, RSE rse)
+{
+/**************************************
+ *
+ *	p a s s 2 _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform the first half of record selection expression compilation.
+ *	The actual optimization is done in "post_rse".
+ *
+ **************************************/
+	NOD *ptr, *end;
+
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(rse, type_nod);
+
+	if (rse->rse_first)
+		pass2(tdbb, csb, rse->rse_first, 0);
+
+	for (ptr = rse->rse_relation, end = ptr + rse->rse_count;
+		 ptr < end; ptr++) {
+		NOD node;
+
+		node = *ptr;
+		if (node->nod_type == nod_relation) {
+			USHORT stream;
+
+			stream = (USHORT) node->nod_arg[e_rel_stream];
+			csb->csb_rpt[stream].csb_flags |= csb_active;
+			pass2(tdbb, csb, node, (NOD) rse);
+		}
+		else if (node->nod_type == nod_rse)
+			pass2_rse(tdbb, csb, (RSE) node);
+		else
+			pass2(tdbb, csb, node, (NOD) rse);
+	}
+
+	if (rse->rse_boolean)
+		pass2(tdbb, csb, rse->rse_boolean, 0);
+
+	if (rse->rse_sorted)
+		pass2(tdbb, csb, rse->rse_sorted, 0);
+
+	if (rse->rse_projection)
+		pass2(tdbb, csb, rse->rse_projection, 0);
+
+#ifndef GATEWAY
+/* if the user has submitted a plan for this rse, check it for correctness */
+
+	if (rse->rse_plan) {
+		plan_set(csb, rse, rse->rse_plan);
+		plan_check(csb, rse);
+	}
+
+#ifdef SCROLLABLE_CURSORS
+	if (rse->rse_async_message)
+		pass2(tdbb, csb, rse->rse_async_message, 0);
+#endif
+#endif
+}
+
+
+static NOD pass2_union(TDBB tdbb, CSB csb, NOD node)
+{
+/**************************************
+ *
+ *	p a s s 2 _ u n i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a union clause of an rse.
+ *
+ **************************************/
+	NOD clauses, *ptr, *end, map;
+	FMT *format;
+	USHORT id;
+
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(node, type_nod);
+
+/* Make up a format block sufficiently large to hold instantiated record */
+
+	clauses = node->nod_arg[e_uni_clauses];
+	id = (USHORT) node->nod_arg[e_uni_stream];
+	format = &csb->csb_rpt[id].csb_format;
+
+/* Process alternating rse and map blocks */
+
+	for (ptr = clauses->nod_arg, end = ptr + clauses->nod_count; ptr < end;) {
+		pass2_rse(tdbb, csb, (RSE) * ptr++);
+		map = *ptr++;
+		pass2(tdbb, csb, map, node);
+		process_map(tdbb, csb, map, format);
+	}
+
+	return node;
+}
+
+
+static void plan_check(CSB csb, RSE rse)
+{
+/**************************************
+ *
+ *	p l a n _ c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check that all streams in the rse have 
+ *	a plan specified for them.
+ *	If they are not, there are streams
+ *	in the rse which were not mentioned
+ *	in the plan. 
+ *
+ **************************************/
+	NOD *ptr, *end;
+	USHORT stream;
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(rse, type_nod);
+
+/* if any streams are not marked with a plan, give an error */
+
+	for (ptr = rse->rse_relation, end = ptr + rse->rse_count; ptr < end;
+		 ptr++) if ((*ptr)->nod_type == nod_relation) {
+			stream = (USHORT) (*ptr)->nod_arg[e_rel_stream];
+			if (!(csb->csb_rpt[stream].csb_plan))
+				ERR_post(gds_no_stream_plan, gds_arg_string,
+						 csb->csb_rpt[stream].csb_relation->rel_name, 0);
+		}
+}
+
+
+static void plan_set(CSB csb, RSE rse, NOD plan)
+{
+/**************************************
+ *
+ *	p l a n _ s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Go through the streams in the plan, find the 
+ *	corresponding streams in the rse and store the 
+ *	plan for that stream.   Do it once and only once 
+ *	to make sure there is a one-to-one correspondence 
+ *	between streams in the query and streams in
+ *	the plan.
+ *
+ **************************************/
+	NOD plan_relation_node, *ptr, *end;
+	USHORT stream;
+	UCHAR *map, *map_base, *duplicate_map;
+	REL relation, plan_relation, view_relation, duplicate_relation;
+	STR alias, plan_alias;
+	TEXT *p;
+	csb_repeat *tail, *duplicate_tail;
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(rse, type_nod);
+	DEV_BLKCHK(plan, type_nod);
+
+	if (plan->nod_type == nod_join || plan->nod_type == nod_merge) {
+		for (ptr = plan->nod_arg, end = ptr + plan->nod_count; ptr < end;
+			 ptr++)
+			plan_set(csb, rse, *ptr);
+		return;
+	}
+
+	if (plan->nod_type != nod_retrieve)
+		return;
+
+	plan_relation_node = plan->nod_arg[e_retrieve_relation];
+	plan_relation = (REL) plan_relation_node->nod_arg[e_rel_relation];
+	plan_alias = (STR) plan_relation_node->nod_arg[e_rel_alias];
+
+/* find the tail for the relation specified in the rse */
+
+	stream = (USHORT) plan_relation_node->nod_arg[e_rel_stream];
+	tail = csb->csb_rpt + stream;
+
+/* if the plan references a view, find the real base relation 
+   we are interested in by searching the view map */
+
+	if (tail->csb_map) {
+		if (plan_alias)
+			p = (TEXT *) plan_alias->str_data;
+		else
+			p = "\0";
+
+		/* if the user has specified an alias, skip past it to find the alias 
+		   for the base table (if multiple aliases are specified) */
+
+		if (*p &&
+			(tail->csb_relation
+			 && !strcmp_space(tail->csb_relation->rel_name, p))
+			|| (tail->csb_alias
+				&& !strcmp_space(reinterpret_cast <
+								 char *>(tail->csb_alias->str_data), p))) {
+			while (*p && *p != ' ')
+				p++;
+			if (*p == ' ')
+				p++;
+		}
+
+		/* loop through potentially a stack of views to find the appropriate base table */
+
+		while (map_base = tail->csb_map) {
+			map = map_base;
+			tail = csb->csb_rpt + *map;
+			view_relation = tail->csb_relation;
+
+			/* if the plan references the view itself, make sure that
+			   the view is on a single table; if it is, fix up the plan
+			   to point to the base relation */
+
+			if (view_relation->rel_id == plan_relation->rel_id) {
+				if (!map_base[2]) {
+					map++;
+					tail = csb->csb_rpt + *map;
+				}
+				else
+					/* view %s has more than one base relation; use aliases to distinguish */
+					ERR_post(gds_view_alias, gds_arg_string,
+							 plan_relation->rel_name, 0);
+
+				break;
+			}
+			else
+				view_relation = NULL;
+
+			/* if the user didn't specify an alias (or didn't specify one
+			   for this level), check to make sure there is one and only one 
+			   base relation in the table which matches the plan relation */
+
+			if (!*p) {
+				duplicate_relation = NULL;
+				duplicate_map = map_base;
+				map = NULL;
+				for (duplicate_map++; *duplicate_map; duplicate_map++) {
+					duplicate_tail = csb->csb_rpt + *duplicate_map;
+					relation = duplicate_tail->csb_relation;
+					if (relation && relation->rel_id == plan_relation->rel_id) {
+						if (duplicate_relation)
+							/* table %s is referenced twice in view; use an alias to distinguish */
+							ERR_post(gds_duplicate_base_table,
+									 gds_arg_string,
+									 duplicate_relation->rel_name, 0);
+						else {
+							duplicate_relation = relation;
+							map = duplicate_map;
+							tail = duplicate_tail;
+						}
+					}
+				}
+
+				break;
+			}
+
+			/* look through all the base relations for a match */
+
+			map = map_base;
+			for (map++; *map; map++) {
+				tail = csb->csb_rpt + *map;
+				relation = tail->csb_relation;
+				alias = tail->csb_alias;
+
+				/* match the user-supplied alias with the alias supplied
+				   with the view definition; failing that, try the base
+				   table name itself */
+
+				if (
+					(alias
+					 && !strcmp_space(reinterpret_cast <
+									  char *>(alias->str_data), p))
+					|| !strcmp_space(relation->rel_name, p))
+					  break;
+			}
+
+			/* skip past the alias */
+
+			while (*p && *p != ' ')
+				p++;
+			if (*p == ' ')
+				p++;
+
+			if (!*map)
+				/* table %s is referenced in the plan but not the from list */
+				ERR_post(gds_stream_not_found, gds_arg_string,
+						 plan_relation->rel_name, 0);
+		}
+
+		/* fix up the relation node to point to the base relation's stream */
+
+		if (!map || !*map)
+			/* table %s is referenced in the plan but not the from list */
+			ERR_post(gds_stream_not_found, gds_arg_string,
+					 plan_relation->rel_name, 0);
+
+		plan_relation_node->nod_arg[e_rel_stream] = (NOD) (SLONG) * map;
+	}
+
+/* make some validity checks */
+
+	if (!tail->csb_relation)
+		/* table %s is referenced in the plan but not the from list */
+		ERR_post(gds_stream_not_found, gds_arg_string,
+				 plan_relation->rel_name, 0);
+
+	if ((tail->csb_relation->rel_id != plan_relation->rel_id)
+		&& !view_relation)
+		/* table %s is referenced in the plan but not the from list */
+		ERR_post(gds_stream_not_found, gds_arg_string,
+				 plan_relation->rel_name, 0);
+
+/* check if we already have a plan for this stream */
+
+	if (tail->csb_plan)
+		/* table %s is referenced more than once in plan; use aliases to distinguish */
+		ERR_post(gds_stream_twice, gds_arg_string,
+				 tail->csb_relation->rel_name, 0);
+
+	tail->csb_plan = plan;
+}
+
+
+static void post_procedure_access(TDBB tdbb, CSB csb, PRC procedure)
+{
+/**************************************
+ *
+ *	p o s t _ p r o c e d u r e _ a c c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	The request will inherit access requirements to all the objects
+ *	the called stored procedure has access requirements for.
+ *
+ **************************************/
+	ACC access;
+	TEXT *prc_sec_name;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(procedure, type_prc);
+
+	prc_sec_name = (procedure->prc_security_name ?
+					(TEXT *) procedure->
+					prc_security_name->str_data : (TEXT *) 0);
+
+/* This request must have EXECUTE permission on the stored procedure */
+	CMP_post_access(tdbb, csb, prc_sec_name, 0,
+					0, 0, SCL_execute,
+					"procedure",
+					reinterpret_cast <
+					char *>(procedure->prc_name->str_data));
+
+/* This request also inherits all the access requirements that
+   the procedure has */
+	if (procedure->prc_request)
+		for (access = procedure->prc_request->req_access; access;
+			 access = access->acc_next) {
+			if (access->acc_trg_name ||
+				access->acc_prc_name || access->acc_view)
+				/* Inherited access needs from the trigger, view or SP
+				   that this SP fires off */
+				CMP_post_access(tdbb, csb, access->acc_security_name,
+								access->acc_view, access->acc_trg_name,
+								access->acc_prc_name, access->acc_mask,
+								access->acc_type, access->acc_name);
+			else
+				/* Direct access from this SP to a resource */
+				CMP_post_access(tdbb, csb, access->acc_security_name,
+								0, 0,
+								reinterpret_cast <
+								char *>(procedure->prc_name->str_data),
+								access->acc_mask, access->acc_type,
+								access->acc_name);
+		}
+}
+
+
+static RSB post_rse(TDBB tdbb, CSB csb, RSE rse)
+{
+/**************************************
+ *
+ *	p o s t _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform actual optimization of an rse and clear activity.
+ *
+ **************************************/
+	RSB rsb;
+	NOD node, *ptr, *end;
+	USHORT stream;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(rse, type_nod);
+
+	rsb = OPT_compile(tdbb, csb, rse, NULL);
+
+	if (rse->nod_flags & rse_singular)
+		rsb->rsb_flags |= rsb_singular;
+
+#ifdef PC_ENGINE
+/* this flag lets the VIO layer know to add a page to the 
+   cache range */
+	if (rse->nod_flags & rse_stream)
+		rsb->rsb_flags |= rsb_stream_type;
+#endif
+
+/* mark all the substreams as active */
+
+	for (ptr = rse->rse_relation, end = ptr + rse->rse_count;
+		 ptr < end; ptr++) {
+		node = *ptr;
+		if (node->nod_type == nod_relation) {
+			stream = (USHORT) node->nod_arg[e_rel_stream];
+			csb->csb_rpt[stream].csb_flags &= ~csb_active;
+		}
+	}
+
+	LLS_PUSH(rsb, &csb->csb_fors);
+#ifdef SCROLLABLE_CURSORS
+	rse->rse_rsb = rsb;
+#endif
+
+	return rsb;
+}
+
+
+static void post_trigger_access(TDBB tdbb, CSB csb, VEC triggers, REL view)
+{
+/**************************************
+ *
+ *	p o s t _ t r i g g e r _ a c c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Inherit access to triggers to be fired.
+ *
+ *	When we detect that a trigger could be fired by a request,
+ *	then we add the access list for that trigger to the access
+ *	list for this request.  That way, when we check access for
+ *	the request we also check access for any other objects that
+ *	could be fired off by the request.
+ *
+ *	Note that when we add the access item, we specify that
+ *	   Trigger X needs access to resource Y.
+ *	In the access list we parse here, if there is no "accessor"
+ *	name then the trigger must access it directly.  If there is
+ *	an "accessor" name, then something accessed by this trigger
+ *	must require the access.
+ *
+ **************************************/
+	ACC access;
+	REQ *ptr, *end;
+	USHORT read_only;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(triggers, type_vec);
+	DEV_BLKCHK(view, type_rel);
+
+	if (!triggers)
+		return;
+
+	for (ptr = (REQ *) triggers->vec_object, end = ptr + triggers->vec_count;
+		 ptr < end; ptr++)
+		if (*ptr) {
+			read_only = TRUE;
+			for (access = (*ptr)->req_access; access;
+				 access = access->acc_next) if (access->acc_mask & ~SCL_read) {
+					read_only = FALSE;
+					break;
+				}
+
+			/* for read-only triggers, translate a READ access into a REFERENCES;
+			   we must check for read-only to make sure people don't abuse the
+			   REFERENCES privilege */
+
+			for (access = (*ptr)->req_access; access;
+				 access = access->acc_next) {
+				if (read_only && (access->acc_mask & SCL_read)) {
+					access->acc_mask &= ~SCL_read;
+					access->acc_mask |= SCL_sql_references;
+				}
+				if (access->acc_trg_name ||
+					access->acc_prc_name || access->acc_view)
+					/* Inherited access needs from "object" to acc_security_name */
+					CMP_post_access(tdbb, csb, access->acc_security_name,
+									access->acc_view,
+									access->acc_trg_name,
+									access->acc_prc_name, access->acc_mask,
+									access->acc_type, access->acc_name);
+				else
+					/* A direct access to an object from this trigger */
+					CMP_post_access(tdbb, csb, access->acc_security_name,
+									(access->
+									 acc_view) ? access->acc_view : view,
+									(*ptr)->req_trg_name, 0, access->acc_mask,
+									access->acc_type, access->acc_name);
+			}
+		}
+}
+
+
+static void process_map(TDBB tdbb, CSB csb, NOD map, FMT * input_format)
+{
+/**************************************
+ *
+ *	p r o c e s s _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a map block into a format.  If the format is
+ *	is missing or incomplete, extend it.
+ *
+ **************************************/
+	NOD *ptr, *end, assignment, field;
+	FMT format;
+	DSC *desc, *end_desc, desc2;
+	USHORT id, min, max, align;
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(map, type_nod);
+	DEV_BLKCHK(*input_format, type_fmt);
+
+	SET_TDBB(tdbb);
+
+	if (!(format = *input_format)) {
+		format = *input_format = (FMT) ALLOCDV(type_fmt, map->nod_count);
+		format->fmt_count = map->nod_count;
+	}
+
+/* Process alternating rse and map blocks */
+
+	ptr = map->nod_arg;
+
+	for (end = ptr + map->nod_count; ptr < end; ptr++) {
+		assignment = *ptr;
+		field = assignment->nod_arg[e_asgn_to];
+		id = (USHORT) field->nod_arg[e_fld_id];
+		if (id >= format->fmt_count) {
+			format = (FMT) ALL_extend((BLK *) input_format, id + 1);
+			format->fmt_count = id + 1;
+		}
+		desc = &format->fmt_desc[id];
+		CMP_get_desc(tdbb, csb, assignment->nod_arg[e_asgn_from], &desc2);
+		min = MIN(desc->dsc_dtype, desc2.dsc_dtype);
+		max = MAX(desc->dsc_dtype, desc2.dsc_dtype);
+		if (max == dtype_blob) {
+			desc->dsc_dtype = dtype_quad;
+			desc->dsc_length = 8;
+			desc->dsc_scale = 0;
+			desc->dsc_sub_type = 0;
+			desc->dsc_flags = 0;
+		}
+		else if (!min)			/* eg: dtype_null */
+			*desc = desc2;
+		else if (min <= dtype_any_text) {	/* either field a text field? */
+			USHORT len1, len2;
+
+			len1 = DSC_string_length(desc);
+			len2 = DSC_string_length(&desc2);
+			desc->dsc_dtype = dtype_varying;
+			desc->dsc_length = MAX(len1, len2) + sizeof(USHORT);
+
+			/* pick the Max text type, so any transparent casts from ints are 
+			   not left in ASCII format, but converted to the richer text format. */
+
+			INTL_ASSIGN_TTYPE(desc,
+							  MAX(INTL_TEXT_TYPE(*desc),
+								  INTL_TEXT_TYPE(desc2)));
+			desc->dsc_scale = 0;
+			desc->dsc_flags = 0;
+		}
+		else if (DTYPE_IS_DATE(max) && !DTYPE_IS_DATE(min)) {
+			desc->dsc_dtype = dtype_varying;
+			desc->dsc_length =
+				DSC_convert_to_text_length(max) + sizeof(USHORT);
+			desc->dsc_ttype = ttype_ascii;
+			desc->dsc_scale = 0;
+			desc->dsc_flags = 0;
+		}
+		else if (max != min) {
+			/* different numeric types: if one is inexact use double,
+			   if both are exact use int64. */
+			if ((!DTYPE_IS_EXACT(max)) || (!DTYPE_IS_EXACT(min))) {
+				desc->dsc_dtype = DEFAULT_DOUBLE;
+				desc->dsc_length = sizeof(double);
+				desc->dsc_scale = 0;
+				desc->dsc_sub_type = 0;
+				desc->dsc_flags = 0;
+			}
+			else {
+				desc->dsc_dtype = dtype_int64;
+				desc->dsc_length = sizeof(SINT64);
+				desc->dsc_scale = MIN(desc->dsc_scale, desc2.dsc_scale);
+				desc->dsc_sub_type =
+					MAX(desc->dsc_sub_type, desc2.dsc_sub_type);
+				desc->dsc_flags = 0;
+			}
+		}
+	}
+
+/* Flesh out the format of the record */
+
+/* TMN: Here we should really have the following assert */
+/* assert(FLAG_BYTES (format->fmt_count) <= MAX_USHORT); */
+	format->fmt_length = (USHORT) FLAG_BYTES(format->fmt_count);
+
+	for (desc = format->fmt_desc, end_desc = desc + format->fmt_count;
+		 desc < end_desc; desc++) {
+		align = type_alignments[desc->dsc_dtype];
+		if (align)
+			format->fmt_length = FB_ALIGN(format->fmt_length, align);
+		desc->dsc_address = (UCHAR *) (SLONG) format->fmt_length;
+		format->fmt_length += desc->dsc_length;
+	}
+}
+
+
+static SSHORT strcmp_space(TEXT * p, TEXT * q)
+{
+/**************************************
+ *
+ *	s t r c m p _ s p a c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two strings, which could be either
+ *	space-terminated or null-terminated.
+ *
+ **************************************/
+
+	for (; *p && *p != ' ' && *q && *q != ' '; p++, q++)
+		if (*p != *q)
+			break;
+
+	if ((!*p || *p == ' ') && (!*q || *q == ' '))
+		return 0;
+
+	if (*p > *q)
+		return 1;
+	else
+		return -1;
+}
+
+
+static BOOLEAN stream_in_rse(USHORT stream, RSE rse)
+{
+/**************************************
+ *
+ *	s t r e a m _ i n _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return TRUE if stream is contained in 
+ *	the specified RSE.
+ *
+ **************************************/
+	NOD sub, *ptr, *end;
+
+	DEV_BLKCHK(rse, type_nod);
+
+/* look through all relation nodes in this rse to see 
+   if the field references this instance of the relation */
+
+	for (ptr = rse->rse_relation, end = ptr + rse->rse_count; ptr < end;
+		 ptr++) {
+		sub = *ptr;
+
+		/* for aggregates, check current rse, if not found then check 
+		   the sub-rse */
+		if (sub->nod_type == nod_aggregate) {
+			if ((stream == (USHORT) sub->nod_arg[e_rel_stream]) ||
+				(stream_in_rse(stream, (RSE) sub->nod_arg[e_agg_rse])))
+				return TRUE;	/* do not mark as variant */
+		}
+
+		if ((sub->nod_type == nod_relation) &&
+			(stream == (USHORT) sub->nod_arg[e_rel_stream]))
+			return TRUE;		/* do not mark as variant */
+	}
+
+	return FALSE;				/* mark this rse as variant */
+}
+
+} // extern "C"
diff --git a/src/jrd/cmp_proto.h b/src/jrd/cmp_proto.h
new file mode 100644
index 0000000000..23c8bc69c9
--- /dev/null
+++ b/src/jrd/cmp_proto.h
@@ -0,0 +1,71 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		cmp_proto.h
+ *	DESCRIPTION:	Prototype header file for cmp.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_CMP_PROTO_H_
+#define _JRD_CMP_PROTO_H_
+
+#include "../jrd/req.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int DLL_EXPORT CMP_clone_active(struct req *);
+extern struct nod *DLL_EXPORT CMP_clone_node(TDBB, struct csb *,
+											 struct nod *);
+extern struct req *DLL_EXPORT CMP_clone_request(TDBB, struct req *, USHORT,
+												BOOLEAN);
+extern struct req *DLL_EXPORT CMP_compile(USHORT, UCHAR *, USHORT);
+extern struct req *DLL_EXPORT CMP_compile2(TDBB, UCHAR *, USHORT);
+extern struct csb_repeat *DLL_EXPORT CMP_csb_element(struct csb **, USHORT);
+extern void DLL_EXPORT CMP_expunge_transaction(struct tra *);
+extern void DLL_EXPORT CMP_decrement_prc_use_count(TDBB, PRC);
+extern struct req *DLL_EXPORT CMP_find_request(TDBB, USHORT, USHORT);
+extern void DLL_EXPORT CMP_fini(TDBB);
+extern struct fmt *DLL_EXPORT CMP_format(TDBB, struct csb *, USHORT);
+extern void DLL_EXPORT CMP_get_desc(TDBB, register struct csb *,
+									register struct nod *, struct dsc *);
+extern struct idl *DLL_EXPORT CMP_get_index_lock(TDBB, struct rel *, USHORT);
+extern SLONG DLL_EXPORT CMP_impure(struct csb *, USHORT);
+extern struct req *DLL_EXPORT CMP_make_request(TDBB, struct csb **);
+extern int DLL_EXPORT CMP_post_access(TDBB,
+									  struct csb*,
+									  /* INOUT */ TEXT*,
+									  struct rel*,
+									  CONST TEXT*,
+									  CONST TEXT*,
+									  USHORT,
+									  CONST TEXT*,
+									  CONST TEXT*);
+extern void DLL_EXPORT CMP_post_resource(TDBB, struct rsc **, struct blk *,
+										 enum rsc_s, USHORT);
+extern void DLL_EXPORT CMP_release_resource(struct rsc **, enum rsc_s,
+											USHORT);
+extern void DLL_EXPORT CMP_release(TDBB, struct req *);
+extern void DLL_EXPORT CMP_shutdown_database(TDBB);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_CMP_PROTO_H_ */
diff --git a/src/jrd/codes.e b/src/jrd/codes.e
new file mode 100644
index 0000000000..8f5e9eea0d
--- /dev/null
+++ b/src/jrd/codes.e
@@ -0,0 +1,743 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		codes.e
+ *	DESCRIPTION:	Code and message include file generator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/msg_encode.h"
+
+/* The MSG.GDB database is found under the /msgs component subdirectory. 
+   Use links or logicals to point it there, thanks!   AMG */
+
+DATABASE DB = FILENAME "msg.gdb";
+
+#define CODES_PAS	"gds_codes.pas"
+#define CODES_FTN	"gds_codes.ftn"
+#define CODES_H		"codes.h"
+#define IBERROR_H	"iberror.h"
+#define CODETEXT_H	"codetext.h"
+#define MSGS_H		"msgs.h"
+#define RDBCODES_H	"rdb_codes.h"
+#define SQL_CODES_H	"sql_code.h"
+#define MSGFAC_H	"msg_facs.h"
+
+typedef UCHAR FILENAME;
+
+static void build_codes_h(void);
+static void build_iberror_h(void);
+static void build_other_headers(void);
+static void build_msgfac_h(void);
+static void move_if_not_identical(FILENAME *, FILENAME *);
+static void add_text(IB_FILE *, int, const char **);
+
+#define CHECK_OPEN(f, name, tmp, mode)	\
+if (((f) = ib_fopen ((tmp), (mode))) == NULL) \
+    { \
+    ib_fprintf (ib_stderr, "CODES: Unable to open %s in filemode %s for %s\n", \
+	     (tmp), (mode), (name)); \
+    exit (FINI_ERROR); \
+    }
+
+#define CHECK_CLOSE(f, name, tmp, mode)	\
+    ib_fclose (f);\
+    move_if_not_identical ((name), (tmp))
+
+
+#define CSTYLE		1
+#define PASSTYLE	2
+#define	FTNSTYLE	3
+
+#define FAC_SQL_POSITIVE	14	/* facility for positive SQL codes */
+#define FAC_SQL_NEGATIVE	13	/* ditto for negative codes */
+
+#define gds_facility		20
+#define gds_base		(gds_facility << 24)
+#define gds_factor		1
+
+static const char *license[] = {
+	"The contents of this file are subject to the Interbase Public",
+	"License Version 1.0 (the \"License\"); you may not use this file",
+	"except in compliance with the License. You may obtain a copy",
+	"of the License at http://www.Inprise.com/IPL.html",
+	"",
+	"Software distributed under the License is distributed on an",
+	"\"AS IS\" basis, WITHOUT WARRANTY OF ANY KIND, either express",
+	"or implied. See the License for the specific language governing",
+	"rights and limitations under the License.",
+	"",
+	"The Original Code was created by Inprise Corporation",
+	"and its predecessors. Portions created by Inprise Corporation are",
+	"Copyright (C) Inprise Corporation.",
+	"",
+	"All Rights Reserved.",
+	"Contributor(s): ______________________________________.",
+	0
+};
+
+static const char *warn[] = {
+	"",
+	"File generated by codes.e - do not edit!",
+	"",
+	0
+};
+
+static CONST SCHAR *c_boiler_plate[] = {
+	"#define gds_arg_end		0	/* end of argument list */",
+	"#define gds_arg_gds		1	/* generic DSRI status value */",
+	"#define gds_arg_string		2	/* string argument */",
+	"#define gds_arg_cstring	3	/* count & string argument */",
+	"#define gds_arg_number		4	/* numeric argument (long) */",
+	"#define gds_arg_interpreted	5	/* interpreted status code (string) */",
+	"#define gds_arg_vms		6	/* VAX/VMS status code (long) */",
+	"#define gds_arg_unix		7	/* UNIX error code */",
+	"#define gds_arg_domain		8	/* Apollo/Domain error code */",
+	"#define gds_arg_dos		9	/* MSDOS/OS2 error code */",
+	"#define gds_arg_mpexl		10	/* HP MPE/XL error code */",
+	"#define gds_arg_mpexl_ipc	11	/* HP MPE/XL IPC error code */",
+
+#ifdef  dontdothis
+
+/*      #'s 12-14 WERE USED BY TWIN SUN AND THUS MUST BE SKIPPED BY US! */
+
+	"#define gds_arg_string2     	12      /* string argument */",
+	"#define gds_arg_cstring2    	13      /* count & string argument */",
+	"#define gds_arg_interpreted2 	14     /* interpreted status code (string) */"
+#endif
+		"#define gds_arg_next_mach	15	/* NeXT/Mach error code */",
+	"#define gds_arg_netware	16	/* NetWare error code */",
+	"#define gds_arg_win32		17	/* Win32 error code */",
+	"#define gds_arg_warning	18	/* warning argument */",
+	"",
+};
+
+#define isc_facility		20
+#define isc_base		(isc_facility << 24)
+#define isc_factor		1
+
+static CONST SCHAR *isc_c_boiler_plate[] = {
+	"#define isc_arg_end		0	/* end of argument list */",
+	"#define isc_arg_gds		1	/* generic DSRI status value */",
+	"#define isc_arg_string		2	/* string argument */",
+	"#define isc_arg_cstring	3	/* count & string argument */",
+	"#define isc_arg_number		4	/* numeric argument (long) */",
+	"#define isc_arg_interpreted	5	/* interpreted status code (string) */",
+	"#define isc_arg_vms		6	/* VAX/VMS status code (long) */",
+	"#define isc_arg_unix		7	/* UNIX error code */",
+	"#define isc_arg_domain		8	/* Apollo/Domain error code */",
+	"#define isc_arg_dos		9	/* MSDOS/OS2 error code */",
+	"#define isc_arg_mpexl		10	/* HP MPE/XL error code */",
+	"#define isc_arg_mpexl_ipc	11	/* HP MPE/XL IPC error code */",
+
+#ifdef  dontdothis
+
+/*      #'s 12-14 WERE USED BY TWIN SUN AND THUS MUST BE SKIPPED BY US! */
+
+	"#define isc_arg_string2     	12      /* string argument */",
+	"#define isc_arg_cstring2    	13      /* count & string argument */",
+	"#define isc_arg_interpreted2 	14      /* interpreted status code (string) */"
+#endif
+		"#define isc_arg_next_mach	15	/* NeXT/Mach error code */",
+	"#define isc_arg_netware	16	/* NetWare error code */",
+	"#define isc_arg_win32		17	/* Win32 error code */",
+	"#define isc_arg_warning	18	/* warning argument */",
+	"",
+};
+
+static CONST SCHAR *pas_boiler_plate[] = {
+	"\tgds_arg_end\t\t= 0;\t(* end of argument list *)",
+	"\tgds_arg_gds\t\t= 1;\t(* generic DSRI status value *)",
+	"\tgds_arg_string\t\t= 2;\t(* string argument *)",
+	"\tgds_arg_cstring\t\t= 3;\t(* count & string argument *)",
+	"\tgds_arg_number\t\t= 4;\t(* numeric argument (long) *)",
+	"\tgds_arg_interpreted\t= 5;\t(* interpreted status code (string) *)",
+	"\tgds_arg_vms\t\t= 6;\t(* VAX/VMS status code (long) *)",
+	"\tgds_arg_unix\t\t= 7;\t(* UNIX error code *)",
+	"\tgds_arg_domain\t\t= 8;\t(* Apollo/Domain error code *)",
+	"\tgds_arg_dos\t\t= 9;\t(* MSDOS/OS2 error code *)",
+	"",
+};
+
+static CONST SCHAR *ftn_boiler_plate_data[] = {
+	"",
+	"      PARAMETER (",
+	"     + GDS_ARG_END          = 0,   { end of argument list }",
+	"     + GDS_ARG_GDS          = 1,   { generic DSRI status value }",
+	"     + GDS_ARG_STRING       = 2,   { string argument }",
+	"     + GDS_ARG_CSTRING      = 3,   { count & string argument }",
+	"     + GDS_ARG_NUMBER       = 4,   { numeric argument (long) }",
+	"     + GDS_ARG_INTERPRETED  = 5,   { interpreted status code (string) }",
+	"     + GDS_ARG_VMS          = 6,   { VAX/VMS status code (long) }",
+	"     + GDS_ARG_UNIX         = 7,   { UNIX error code }",
+	"     + GDS_ARG_DOMAIN       = 8,   { Apollo/Domain error code }",
+	"     + GDS_ARG_DOS	       = 9)   { Apollo/Domain error code }",
+	"",
+};
+
+static CONST SCHAR *ftn_boiler_plate_decls[] = {
+	"      INTEGER*4",
+	"     + GDS_ARG_END,          { end of argument list }",
+	"     + GDS_ARG_GDS,          { generic DSRI status value }",
+	"     + GDS_ARG_STRING,       { string argument }",
+	"     + GDS_ARG_CSTRING,      { count & string argument }",
+	"     + GDS_ARG_NUMBER,       { numeric argument (long) }",
+	"     + GDS_ARG_INTERPRETED,  { interpreted status code (string) }",
+	"     + GDS_ARG_VMS,          { VAX/VMS status code (long) }",
+	"     + GDS_ARG_UNIX,         { UNIX error code }",
+	"     + GDS_ARG_DOMAIN,       { Apollo/Domain error code }",
+	"     + GDS_ARG_DOS           { MSDOS/OS2 error code }",
+	"",
+};
+
+static CONST SCHAR sql_code_boiler_plate[] =
+	"static CONST SSHORT FAR_VARIABLE gds__sql_code [] = {";
+
+
+void CLIB_ROUTINE main( int argc, char *argv[])
+{
+/*************************************
+*
+*	m a i n
+*
+**************************************
+*
+* Functional description
+*	Generate both code definition 
+*	include file and message text 
+*	include file.
+*
+**************************************/
+
+	READY
+	ON_ERROR
+		ib_printf("Attach failed.\n");
+		gds__print_status(gds__status);
+		exit(FINI_ERROR);
+	END_ERROR;
+
+	START_TRANSACTION;
+
+	build_iberror_h();
+	build_codes_h();
+	build_msgfac_h();
+	build_other_headers();
+
+	COMMIT;
+	FINISH;
+
+	exit(FINI_OK);
+}
+
+
+static void build_msgfac_h(void)
+{
+/*******************************************
+*
+*	b u i l d _ m s g f a c _ h
+*
+*******************************************
+*
+* Functional desciption
+*	Function creates the msgfac.h 
+*	file which contains a listing of valid
+*	facilities for the error codes.
+*
+*******************************************/
+	IB_FILE *msgfac;
+
+/* Open msgfac.h in the current directory */
+	CHECK_OPEN(msgfac, MSGFAC_H, "tmpcode1", "w");
+
+	add_text(msgfac, CSTYLE, license);
+	add_text(msgfac, CSTYLE, warn);
+	ib_fprintf(msgfac, "/*\n");
+	ib_fprintf(msgfac, " *	MODULE:		msg_facs.h\n");
+	ib_fprintf(msgfac, " *	DESCRIPTION:	ISC message facilities\n");
+	ib_fprintf(msgfac, " *\n");
+	ib_fprintf(msgfac, " */\n");
+	ib_fprintf(msgfac, "\n\n\n");
+	ib_fprintf(msgfac, "/******************************/\n");
+	ib_fprintf(msgfac, "/*   ISC message facilities   */\n");
+	ib_fprintf(msgfac, "/******************************/\n");
+	ib_fprintf(msgfac, "\n");
+
+	ib_fprintf(msgfac, "typedef struct _facilities {\n");
+	ib_fprintf(msgfac, "\tint  fac_code;\n");
+	ib_fprintf(msgfac, "\tchar *facility;\n");
+	ib_fprintf(msgfac, "\t};\n\n");
+
+	ib_fprintf(msgfac, "static CONST struct _facilities facilities[] = {\n");
+	FOR F IN FACILITIES WITH ANY FAC_CODE IN SYSTEM_ERRORS OVER FAC_CODE
+		ib_fprintf(msgfac, "\t%d,  \"%-10.10s\",\n", F.FAC_CODE, F.FACILITY);
+	END_FOR;
+
+	ib_fprintf(msgfac, "\t0, NULL};\n\n");
+	ib_fprintf(msgfac, "\n");
+	CHECK_CLOSE(msgfac, MSGFAC_H, "tmpcode1", "w");
+}
+
+static void build_iberror_h(void)
+{
+/*******************************************
+*
+*	b u i l d _ i b e r r o r _ h
+*
+*******************************************
+*
+* Functional desciption
+*	Function creates the iberror.h 
+*	file which contains c and isc_
+*	style error codes.
+*
+*******************************************/
+	IB_FILE *iberror;
+	int code = 1, last_code = code - 1;
+	unsigned long new_code = 0L;
+
+/* Open iberror.h in the current directory. */
+	CHECK_OPEN(iberror, IBERROR_H, "tmpcode2", "w");
+
+	add_text(iberror, CSTYLE, license);
+	add_text(iberror, CSTYLE, warn);
+	ib_fprintf(iberror, "/*\n");
+	ib_fprintf(iberror, " *	MODULE:		iberror.h\n");
+	ib_fprintf(iberror, " *	DESCRIPTION:	ISC error codes\n");
+	ib_fprintf(iberror, " *\n");
+	ib_fprintf(iberror, " */\n");
+	ib_fprintf(iberror, "\n\n\n");
+	ib_fprintf(iberror, "/***********************/\n");
+	ib_fprintf(iberror, "/*   ISC Error Codes   */\n");
+	ib_fprintf(iberror, "/***********************/\n");
+	ib_fprintf(iberror, "\n");
+
+/* Fetch error codes from SYSTEM_ERRORS relation.
+   Write them out using the ISC prefix. */
+
+	FOR S IN SYSTEM_ERRORS CROSS N IN MESSAGES OVER NUMBER WITH
+		N.FAC_CODE = S.FAC_CODE SORTED BY N.FAC_CODE, S.NUMBER
+			/* The only facility that is guaranteed to have all codes in system errors
+			 * is JRD */
+			if (last_code + 1 != N.CODE && N.FAC_CODE == 0)
+			ib_fprintf(ib_stderr,
+					   "Warning: missing codes between %d and %d (exclusive)\n",
+					   last_code, (int) N.CODE);
+
+		last_code = N.CODE;
+		new_code = ENCODE_ISC_MSG(S.NUMBER, N.FAC_CODE);
+		ib_fprintf(iberror, "#define isc_%-32.32s %dL\n", S.GDS_SYMBOL,
+				   new_code);
+		++code;
+    END_FOR;
+
+	--code;
+	ib_fprintf(iberror, "#define isc_%-32.32s %d\n", "err_max", code);
+	ib_fprintf(iberror, "\n");
+	CHECK_CLOSE(iberror, IBERROR_H, "tmpcode2", "w");
+}
+
+
+static void build_codes_h(void)
+{
+/*******************************************
+*
+*	b u i l d _ c o d e s _ h
+*
+*******************************************
+*
+* Functional desciption
+*	Function creates the codes.h 
+*	file which contains c and isc_
+*	style error codes.
+*
+*******************************************/
+	IB_FILE *c_codes;
+	int i, code = 1, last_code = code - 1;
+	unsigned long new_code = 0L;
+	SCHAR **pp;
+
+/* Open codes.h in the current directory. */
+
+	CHECK_OPEN(c_codes, CODES_H, "tmpcode3", "w");
+	add_text(c_codes, CSTYLE, license);
+	add_text(c_codes, CSTYLE, warn);
+	ib_fprintf(c_codes,
+			   "#define gds_facility	%d\n#define gds_err_base	%ldL\n#define gds_err_factor	%ld\n",
+			   gds_facility, (SLONG) gds_base, (SLONG) gds_factor);
+
+/* Append the C boiler plate */
+
+	for (i = sizeof c_boiler_plate / sizeof(SCHAR *), pp = c_boiler_plate;
+		 i > 0; i--, pp++) {
+		ib_fprintf(c_codes, "%s\n", *pp);
+	}
+
+	FOR S IN SYSTEM_ERRORS CROSS N IN MESSAGES OVER NUMBER WITH
+		N.FAC_CODE = S.FAC_CODE SORTED BY N.FAC_CODE, S.NUMBER
+			/* The only facility that is guaranteed to have all codes in system errors
+			 * is JRD */
+			if (last_code + 1 != N.CODE && N.FAC_CODE == 0)
+			ib_fprintf(ib_stderr,
+					   "Warning: missing codes between %d and %d (exclusive)\n",
+					   last_code, (int) N.CODE);
+
+		last_code = N.CODE;
+		new_code = ENCODE_ISC_MSG(S.NUMBER, N.FAC_CODE);
+		ib_fprintf(c_codes, "#define gds__%-32.32s %dL\n", S.GDS_SYMBOL,
+				   new_code);
+		++code;
+
+		/* make sure that the SQL code is also present in the SQLERR facility */
+
+	/**** this part really should be done via a trigger on the database-- 
+          commented out for now - deej
+    got_it = 0;
+    if (S.SQL_CODE < 0)
+	{
+      	srchnum = 1000 + S.SQL_CODE;
+       	**FOR M IN MESSAGES WITH M.FAC_CODE = FAC_SQL_NEGATIVE 
+	    AND M.NUMBER = srchnum 
+                got_it = 1;
+        **END_FOR;
+	}
+    else
+	{
+    	srchnum = S.SQL_CODE;
+    	**FOR M IN MESSAGES WITH M.FAC_CODE = FAC_SQL_POSITIVE 
+	    AND M.NUMBER = srchnum 
+                got_it = 1;
+        **END_FOR;
+	}
+    if (!got_it)
+	{
+ 	ib_printf ("codes: msg %d: sql-code %d, is not in the SQLERR facility\n",
+		N.NUMBER, S.SQL_CODE);
+	ROLLBACK;
+	FINISH;
+	exit (FINI_ERROR);
+	} ****/
+
+    END_FOR;
+
+	--code;
+	ib_fprintf(c_codes, "#define gds_%-32.32s %d\n", "err_max", code);
+	ib_fprintf(c_codes, "\n");
+
+/* Append the ISC error codes */
+
+	ib_fprintf(c_codes, "/***********************/\n");
+	ib_fprintf(c_codes, "/*   ISC Error Codes   */\n");
+	ib_fprintf(c_codes, "/***********************/\n");
+	ib_fprintf(c_codes, "\n");
+	ib_fprintf(c_codes,
+			   "#define isc_facility	%d\n#define isc_err_base	%ldL\n#define isc_err_factor	%ld\n",
+			   isc_facility, (SLONG) isc_base, (SLONG) isc_factor);
+
+/* Append the ISC boiler plate */
+
+	for (i = sizeof isc_c_boiler_plate / sizeof(SCHAR *), pp =
+		 isc_c_boiler_plate; i > 0; i--, pp++) {
+		ib_fprintf(c_codes, "%s\n", *pp);
+	}
+
+/* Fetch error codes from SYSTEM_ERRORS relation.
+   Write them out using the ISC prefix. */
+
+	code = 1;
+	last_code = code - 1;
+
+	FOR S IN SYSTEM_ERRORS CROSS N IN MESSAGES OVER NUMBER WITH
+		N.FAC_CODE = S.FAC_CODE SORTED BY N.FAC_CODE, S.NUMBER
+			/* The only facility that is guaranteed to have all codes in system errors
+			 * is JRD */
+			if (last_code + 1 != N.CODE && N.FAC_CODE == 0)
+			ib_fprintf(ib_stderr,
+					   "Warning: missing codes between %d and %d (exclusive)\n",
+					   last_code, (int) N.CODE);
+
+		last_code = N.CODE;
+		new_code = ENCODE_ISC_MSG(N.NUMBER, N.FAC_CODE);
+		ib_fprintf(c_codes, "#define isc_%-32.32s %dL\n", S.GDS_SYMBOL,
+				   new_code);
+		++code;
+
+    END_FOR;
+
+	--code;
+	ib_fprintf(c_codes, "#define isc_%-32.32s %d\n", "err_max", code);
+	ib_fprintf(c_codes, "\n");
+	CHECK_CLOSE(c_codes, CODES_H, "tmpcode3", "w");
+}
+
+
+static void build_other_headers(void)
+{
+/********************************************
+*
+*	b u i l d _ o t h e r _ h e a d e r s
+*
+*********************************************
+*
+* Functional desciption
+*	Function creates the other header
+*	files. 
+*
+*********************************************/
+	IB_FILE *msgs, *rdbcodes, *code_text, *pas_codes, *ftn_codes, *sql_codes;
+	SCHAR **pp, *p, *q, *end, text[128];
+	int last_code, code, i;
+	unsigned long new_code = 0L;
+
+/* Use the CHECK_OPEN macro to open header files in current directory. */
+
+	CHECK_OPEN(pas_codes, CODES_PAS, "tmpcode4", "w");
+	CHECK_OPEN(ftn_codes, CODES_FTN, "tmpcode5", "w");
+	CHECK_OPEN(code_text, CODETEXT_H, "tmpcode6", "w");
+	CHECK_OPEN(msgs, MSGS_H, "tmpcode7", "w");
+	CHECK_OPEN(rdbcodes, RDBCODES_H, "tmpcode8", "w");
+
+/* Add license */
+	add_text(pas_codes, PASSTYLE, license);
+	add_text(pas_codes, PASSTYLE, warn);
+	add_text(ftn_codes, FTNSTYLE, license);
+	add_text(ftn_codes, FTNSTYLE, warn);
+	add_text(code_text, CSTYLE, license);
+	add_text(code_text, CSTYLE, warn);
+	add_text(msgs, CSTYLE, license);
+	add_text(msgs, CSTYLE, warn);
+	add_text(rdbcodes, CSTYLE, license);
+	add_text(rdbcodes, CSTYLE, warn);
+
+/* Start the PASCAL codes file */
+
+	ib_fprintf(pas_codes, "\
+CONST\n\
+\tgds_facility\t\t= %d;\n\
+\tgds_err_base\t\t= %ld;\n\
+\tgds_err_factor\t\t= %ld;\n", gds_facility, (SLONG) gds_base, (SLONG) gds_factor);
+
+	for (i = sizeof pas_boiler_plate / sizeof(SCHAR *), pp = pas_boiler_plate;
+		 i > 0; i--, pp++)
+		ib_fprintf(pas_codes, "%s\n", *pp);
+
+/* Start the FORTRAN codes file */
+
+	ib_fprintf(ftn_codes, "\n\
+      INTEGER*4\n\
+     + GDS_FACILITY,\n\
+     + GDS_ERR_BASE,\n\
+     + GDS_ERR_FACTOR\n");
+
+	for (i = sizeof ftn_boiler_plate_decls / sizeof(SCHAR *),
+		 pp = ftn_boiler_plate_decls; i > 0; i--, pp++)
+		ib_fprintf(ftn_codes, "%s\n", *pp);
+
+	ib_fprintf(ftn_codes, "\n\
+      PARAMETER (\n\
+     + GDS_FACILITY    = %d,\n\
+     + GDS_ERR_BASE    = %ld,\n\
+     + GDS_ERR_FACTOR  = %ld)\n", gds_facility, (SLONG) gds_base, (SLONG) gds_factor);
+
+	for (i = sizeof ftn_boiler_plate_data / sizeof(SCHAR *),
+		 pp = ftn_boiler_plate_data; i > 0; i--, pp++)
+		ib_fprintf(ftn_codes, "%s\n", *pp);
+
+/* Start the MSGS file */
+
+	ib_fprintf(msgs, "\"unassigned code\",\n");
+
+/* Fetch error codes from SYSTEM_ERRORS relation.  Write them
+   out to the pascal, fortran, and rdb header files */
+
+	code = 1;
+	last_code = code - 1;
+
+	FOR S IN SYSTEM_ERRORS CROSS N IN MESSAGES OVER NUMBER WITH
+		N.FAC_CODE = S.FAC_CODE SORTED BY N.FAC_CODE, S.NUMBER
+			/* The only facility that is guaranteed to have all codes in system errors
+			 * is JRD */
+			if (last_code + 1 != N.CODE && N.FAC_CODE == 0)
+			ib_fprintf(ib_stderr,
+					   "Warning: missing codes between %d and %d (exclusive)\n",
+					   last_code, (int) N.CODE);
+
+		last_code = N.CODE;
+		new_code = ENCODE_ISC_MSG(N.NUMBER, N.FAC_CODE);
+
+		ib_fprintf(pas_codes, "\tgds__%-32.32s = %d;\n", S.GDS_SYMBOL,
+				   new_code);
+		ib_fprintf(ftn_codes,
+				   "      INTEGER*4 GDS__%-32.32s\n      PARAMETER (GDS__%-32.32s = %d)\n",
+				   S.GDS_SYMBOL, S.GDS_SYMBOL, new_code);
+		ib_fprintf(rdbcodes, "%d,\n", S.VMS_CODE);
+
+		q = text;
+		end = q;
+		for (p = N.TEXT; *p && p < N.TEXT + sizeof(N.TEXT); p++) {
+			if (*p == '"')
+				*q++ = '\\';
+			*q++ = *p;
+			if (*p != ' ')
+				end = q;
+		}
+		*end = 0;
+		ib_fprintf(msgs, "\"%s\",\t\t/*%d, %-32.32s*/\n",
+				   text, code, S.GDS_SYMBOL);
+		for (p = S.GDS_SYMBOL;
+			 *p && *p != ' ' && p < S.GDS_SYMBOL + sizeof(S.GDS_SYMBOL) - 1;
+			 p++);
+		*p = 0;
+		ib_fprintf(code_text, "\"%s\", %d,\n", S.GDS_SYMBOL, new_code);
+		++code;
+
+	END_FOR;
+	CHECK_CLOSE(pas_codes, CODES_PAS, "tmpcode4", "w");
+	CHECK_CLOSE(ftn_codes, CODES_FTN, "tmpcode5", "w");
+	CHECK_CLOSE(code_text, CODETEXT_H, "tmpcode6", "w");
+	CHECK_CLOSE(msgs, MSGS_H, "tmpcode7", "w");
+	CHECK_CLOSE(rdbcodes, RDBCODES_H, "tmpcode8", "w");
+
+/* build sql_code.h */
+
+	CHECK_OPEN(sql_codes, SQL_CODES_H, "tmpcode9", "w");
+	add_text(sql_codes, CSTYLE, license);
+	add_text(sql_codes, CSTYLE, warn);
+	ib_fprintf(sql_codes, "%s\n", sql_code_boiler_plate);
+#define DEFAULT_SQL_CODE	-999	/* InterBase error */
+
+	i = 0;
+	ib_fprintf(sql_codes, "%4d /* No Error */", 0);
+	FOR E IN SYSTEM_ERRORS SORTED BY E.FAC_CODE, E.NUMBER
+		{
+			/* The only facility that is guaranteed to have all codes in system errors
+			 * is JRD */
+
+			if (E.NUMBER != (SSHORT) i + 1 && E.FAC_CODE == 0)
+				ib_fprintf(ib_stderr,
+						   "Warning: Sequence of error numbers is bad %d!\n",
+						   E.NUMBER);
+			i = E.NUMBER;
+			ib_fprintf(sql_codes, ",\n");
+			if (E.SQL_CODE.NULL)
+				ib_fprintf(sql_codes, "%4d /* %3d %s (default) */",
+						   DEFAULT_SQL_CODE, E.NUMBER, E.GDS_SYMBOL);
+			else
+				ib_fprintf(sql_codes, "%4d /* %3d %31.31s */", E.SQL_CODE,
+						   E.NUMBER, E.GDS_SYMBOL);
+		}
+	END_FOR;
+
+	--code;
+	ib_fprintf(sql_codes, "\n};\n");
+	CHECK_CLOSE(sql_codes, SQL_CODES_H, "tmpcode9", "w");
+
+}
+
+
+static void move_if_not_identical( FILENAME * original, FILENAME * new_file)
+{
+	UCHAR buffer[500];
+	sprintf(buffer, "cmp -s %s %s", new_file, original);
+
+/* If the new file is identical to the original, then don't update
+   the original */
+	if (system(buffer) == 0) {
+		ib_fprintf(ib_stderr, "No need to update %s\n", original);
+		unlink(new_file);
+	}
+	else {
+		/* Original file is missing or different */
+		sprintf(buffer, "mv -f %s %s", new_file, original);
+		if (system(buffer) != 0) {
+			ib_fprintf(ib_stderr, "Error moving %s to %s!\n",
+					   new_file, original);
+			exit(FINI_ERROR);
+		}
+		else
+			ib_fprintf(ib_stderr, "Updated %s\n", original);
+	}
+}
+
+
+static void add_text(IB_FILE * fd, int style, const char **text)
+{
+/*******************************************
+*
+*       a d d _ t e x t
+*
+*******************************************
+*
+* Functional desciption
+*       Function adds text as comment
+*	in 'style' language
+*
+*******************************************/
+	const char **ptr;
+
+	switch (style) {
+	case CSTYLE:
+		ib_fprintf(fd, "/*\n");
+		break;
+
+	case PASSTYLE:
+		ib_fprintf(fd, "(*\n");
+		break;
+
+	case FTNSTYLE:
+		ib_fprintf(fd, "C --\n");
+		break;
+
+	default:
+		ib_fprintf(ib_stderr, "Error writing license\n");
+		exit(FINI_ERROR);
+		break;
+	}
+
+	for (ptr = text; *ptr; ++ptr) {
+		switch (style) {
+		case CSTYLE:
+		case PASSTYLE:
+			ib_fprintf(fd, " * ");
+			break;
+
+		case FTNSTYLE:
+			ib_fprintf(fd, "C -- ");
+			break;
+		}
+
+		ib_fprintf(fd, "%s\n", *ptr);
+	}
+
+	switch (style) {
+	case CSTYLE:
+		ib_fprintf(fd, " */\n");
+		break;
+
+	case PASSTYLE:
+		ib_fprintf(fd, " *)\n");
+		break;
+
+	case FTNSTYLE:
+		ib_fprintf(fd, "C --\n");
+		break;
+	}
+}
diff --git a/src/jrd/codes.h b/src/jrd/codes.h
new file mode 100644
index 0000000000..c9ec270df7
--- /dev/null
+++ b/src/jrd/codes.h
@@ -0,0 +1,2143 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+#define gds_facility	20
+#define gds_err_base	335544320L
+#define gds_err_factor	1
+#define gds_arg_end		0		/* end of argument list */
+#define gds_arg_gds		1		/* generic DSRI status value */
+#define gds_arg_string		2	/* string argument */
+#define gds_arg_cstring	3		/* count & string argument */
+#define gds_arg_number		4	/* numeric argument (long) */
+#define gds_arg_interpreted	5	/* interpreted status code (string) */
+#define gds_arg_vms		6		/* VAX/VMS status code (long) */
+#define gds_arg_unix		7	/* UNIX error code */
+#define gds_arg_domain		8	/* Apollo/Domain error code */
+#define gds_arg_dos		9		/* MSDOS/OS2 error code */
+#define gds_arg_mpexl		10	/* HP MPE/XL error code */
+#define gds_arg_mpexl_ipc	11	/* HP MPE/XL IPC error code */
+#define gds_arg_next_mach	15	/* NeXT/Mach error code */
+#define gds_arg_netware	16		/* NetWare error code */
+#define gds_arg_win32		17	/* Win32 error code */
+#define gds_arg_warning	18		/* warning argument */
+
+#define gds__arith_except                     335544321L
+#define gds__bad_dbkey                        335544322L
+#define gds__bad_db_format                    335544323L
+#define gds__bad_db_handle                    335544324L
+#define gds__bad_dpb_content                  335544325L
+#define gds__bad_dpb_form                     335544326L
+#define gds__bad_req_handle                   335544327L
+#define gds__bad_segstr_handle                335544328L
+#define gds__bad_segstr_id                    335544329L
+#define gds__bad_tpb_content                  335544330L
+#define gds__bad_tpb_form                     335544331L
+#define gds__bad_trans_handle                 335544332L
+#define gds__bug_check                        335544333L
+#define gds__convert_error                    335544334L
+#define gds__db_corrupt                       335544335L
+#define gds__deadlock                         335544336L
+#define gds__excess_trans                     335544337L
+#define gds__from_no_match                    335544338L
+#define gds__infinap                          335544339L
+#define gds__infona                           335544340L
+#define gds__infunk                           335544341L
+#define gds__integ_fail                       335544342L
+#define gds__invalid_blr                      335544343L
+#define gds__io_error                         335544344L
+#define gds__lock_conflict                    335544345L
+#define gds__metadata_corrupt                 335544346L
+#define gds__not_valid                        335544347L
+#define gds__no_cur_rec                       335544348L
+#define gds__no_dup                           335544349L
+#define gds__no_finish                        335544350L
+#define gds__no_meta_update                   335544351L
+#define gds__no_priv                          335544352L
+#define gds__no_recon                         335544353L
+#define gds__no_record                        335544354L
+#define gds__no_segstr_close                  335544355L
+#define gds__obsolete_metadata                335544356L
+#define gds__open_trans                       335544357L
+#define gds__port_len                         335544358L
+#define gds__read_only_field                  335544359L
+#define gds__read_only_rel                    335544360L
+#define gds__read_only_trans                  335544361L
+#define gds__read_only_view                   335544362L
+#define gds__req_no_trans                     335544363L
+#define gds__req_sync                         335544364L
+#define gds__req_wrong_db                     335544365L
+#define gds__segment                          335544366L
+#define gds__segstr_eof                       335544367L
+#define gds__segstr_no_op                     335544368L
+#define gds__segstr_no_read                   335544369L
+#define gds__segstr_no_trans                  335544370L
+#define gds__segstr_no_write                  335544371L
+#define gds__segstr_wrong_db                  335544372L
+#define gds__sys_request                      335544373L
+#define gds__stream_eof                       335544374L
+#define gds__unavailable                      335544375L
+#define gds__unres_rel                        335544376L
+#define gds__uns_ext                          335544377L
+#define gds__wish_list                        335544378L
+#define gds__wrong_ods                        335544379L
+#define gds__wronumarg                        335544380L
+#define gds__imp_exc                          335544381L
+#define gds__random                           335544382L
+#define gds__fatal_conflict                   335544383L
+#define gds__badblk                           335544384L
+#define gds__invpoolcl                        335544385L
+#define gds__nopoolids                        335544386L
+#define gds__relbadblk                        335544387L
+#define gds__blktoobig                        335544388L
+#define gds__bufexh                           335544389L
+#define gds__syntaxerr                        335544390L
+#define gds__bufinuse                         335544391L
+#define gds__bdbincon                         335544392L
+#define gds__reqinuse                         335544393L
+#define gds__badodsver                        335544394L
+#define gds__relnotdef                        335544395L
+#define gds__fldnotdef                        335544396L
+#define gds__dirtypage                        335544397L
+#define gds__waifortra                        335544398L
+#define gds__doubleloc                        335544399L
+#define gds__nodnotfnd                        335544400L
+#define gds__dupnodfnd                        335544401L
+#define gds__locnotmar                        335544402L
+#define gds__badpagtyp                        335544403L
+#define gds__corrupt                          335544404L
+#define gds__badpage                          335544405L
+#define gds__badindex                         335544406L
+#define gds__dbbnotzer                        335544407L
+#define gds__tranotzer                        335544408L
+#define gds__trareqmis                        335544409L
+#define gds__badhndcnt                        335544410L
+#define gds__wrotpbver                        335544411L
+#define gds__wroblrver                        335544412L
+#define gds__wrodpbver                        335544413L
+#define gds__blobnotsup                       335544414L
+#define gds__badrelation                      335544415L
+#define gds__nodetach                         335544416L
+#define gds__notremote                        335544417L
+#define gds__trainlim                         335544418L
+#define gds__notinlim                         335544419L
+#define gds__traoutsta                        335544420L
+#define gds__connect_reject                   335544421L
+#define gds__dbfile                           335544422L
+#define gds__orphan                           335544423L
+#define gds__no_lock_mgr                      335544424L
+#define gds__ctxinuse                         335544425L
+#define gds__ctxnotdef                        335544426L
+#define gds__datnotsup                        335544427L
+#define gds__badmsgnum                        335544428L
+#define gds__badparnum                        335544429L
+#define gds__virmemexh                        335544430L
+#define gds__blocking_signal                  335544431L
+#define gds__lockmanerr                       335544432L
+#define gds__journerr                         335544433L
+#define gds__keytoobig                        335544434L
+#define gds__nullsegkey                       335544435L
+#define gds__sqlerr                           335544436L
+#define gds__wrodynver                        335544437L
+#define gds__funnotdef                        335544438L
+#define gds__funmismat                        335544439L
+#define gds__bad_msg_vec                      335544440L
+#define gds__bad_detach                       335544441L
+#define gds__noargacc_read                    335544442L
+#define gds__noargacc_write                   335544443L
+#define gds__read_only                        335544444L
+#define gds__ext_err                          335544445L
+#define gds__non_updatable                    335544446L
+#define gds__no_rollback                      335544447L
+#define gds__bad_sec_info                     335544448L
+#define gds__invalid_sec_info                 335544449L
+#define gds__misc_interpreted                 335544450L
+#define gds__update_conflict                  335544451L
+#define gds__unlicensed                       335544452L
+#define gds__obj_in_use                       335544453L
+#define gds__nofilter                         335544454L
+#define gds__shadow_accessed                  335544455L
+#define gds__invalid_sdl                      335544456L
+#define gds__out_of_bounds                    335544457L
+#define gds__invalid_dimension                335544458L
+#define gds__rec_in_limbo                     335544459L
+#define gds__shadow_missing                   335544460L
+#define gds__cant_validate                    335544461L
+#define gds__cant_start_journal               335544462L
+#define gds__gennotdef                        335544463L
+#define gds__cant_start_logging               335544464L
+#define gds__bad_segstr_type                  335544465L
+#define gds__foreign_key                      335544466L
+#define gds__high_minor                       335544467L
+#define gds__tra_state                        335544468L
+#define gds__trans_invalid                    335544469L
+#define gds__buf_invalid                      335544470L
+#define gds__indexnotdefined                  335544471L
+#define gds__login                            335544472L
+#define gds__invalid_bookmark                 335544473L
+#define gds__bad_lock_level                   335544474L
+#define gds__relation_lock                    335544475L
+#define gds__record_lock                      335544476L
+#define gds__max_idx                          335544477L
+#define gds__jrn_enable                       335544478L
+#define gds__old_failure                      335544479L
+#define gds__old_in_progress                  335544480L
+#define gds__old_no_space                     335544481L
+#define gds__no_wal_no_jrn                    335544482L
+#define gds__num_old_files                    335544483L
+#define gds__wal_file_open                    335544484L
+#define gds__bad_stmt_handle                  335544485L
+#define gds__wal_failure                      335544486L
+#define gds__walw_err                         335544487L
+#define gds__logh_small                       335544488L
+#define gds__logh_inv_version                 335544489L
+#define gds__logh_open_flag                   335544490L
+#define gds__logh_open_flag2                  335544491L
+#define gds__logh_diff_dbname                 335544492L
+#define gds__logf_unexpected_eof              335544493L
+#define gds__logr_incomplete                  335544494L
+#define gds__logr_header_small                335544495L
+#define gds__logb_small                       335544496L
+#define gds__wal_illegal_attach               335544497L
+#define gds__wal_invalid_wpb                  335544498L
+#define gds__wal_err_rollover                 335544499L
+#define gds__no_wal                           335544500L
+#define gds__drop_wal                         335544501L
+#define gds__stream_not_defined               335544502L
+#define gds__wal_subsys_error                 335544503L
+#define gds__wal_subsys_corrupt               335544504L
+#define gds__no_archive                       335544505L
+#define gds__shutinprog                       335544506L
+#define gds__range_in_use                     335544507L
+#define gds__range_not_found                  335544508L
+#define gds__charset_not_found                335544509L
+#define gds__lock_timeout                     335544510L
+#define gds__prcnotdef                        335544511L
+#define gds__prcmismat                        335544512L
+#define gds__wal_bugcheck                     335544513L
+#define gds__wal_cant_expand                  335544514L
+#define gds__codnotdef                        335544515L
+#define gds__xcpnotdef                        335544516L
+#define gds__except                           335544517L
+#define gds__cache_restart                    335544518L
+#define gds__bad_lock_handle                  335544519L
+#define gds__jrn_present                      335544520L
+#define gds__wal_err_rollover2                335544521L
+#define gds__wal_err_logwrite                 335544522L
+#define gds__wal_err_jrn_comm                 335544523L
+#define gds__wal_err_expansion                335544524L
+#define gds__wal_err_setup                    335544525L
+#define gds__wal_err_ww_sync                  335544526L
+#define gds__wal_err_ww_start                 335544527L
+#define gds__shutdown                         335544528L
+#define gds__existing_priv_mod                335544529L
+#define gds__primary_key_ref                  335544530L
+#define gds__primary_key_notnull              335544531L
+#define gds__ref_cnstrnt_notfound             335544532L
+#define gds__foreign_key_notfound             335544533L
+#define gds__ref_cnstrnt_update               335544534L
+#define gds__check_cnstrnt_update             335544535L
+#define gds__check_cnstrnt_del                335544536L
+#define gds__integ_index_seg_del              335544537L
+#define gds__integ_index_seg_mod              335544538L
+#define gds__integ_index_del                  335544539L
+#define gds__integ_index_mod                  335544540L
+#define gds__check_trig_del                   335544541L
+#define gds__check_trig_update                335544542L
+#define gds__cnstrnt_fld_del                  335544543L
+#define gds__cnstrnt_fld_rename               335544544L
+#define gds__rel_cnstrnt_update               335544545L
+#define gds__constaint_on_view                335544546L
+#define gds__invld_cnstrnt_type               335544547L
+#define gds__primary_key_exists               335544548L
+#define gds__systrig_update                   335544549L
+#define gds__not_rel_owner                    335544550L
+#define gds__grant_obj_notfound               335544551L
+#define gds__grant_fld_notfound               335544552L
+#define gds__grant_nopriv                     335544553L
+#define gds__nonsql_security_rel              335544554L
+#define gds__nonsql_security_fld              335544555L
+#define gds__wal_cache_err                    335544556L
+#define gds__shutfail                         335544557L
+#define gds__check_constraint                 335544558L
+#define gds__bad_svc_handle                   335544559L
+#define gds__shutwarn                         335544560L
+#define gds__wrospbver                        335544561L
+#define gds__bad_spb_form                     335544562L
+#define gds__svcnotdef                        335544563L
+#define gds__no_jrn                           335544564L
+#define gds__transliteration_failed           335544565L
+#define gds__start_cm_for_wal                 335544566L
+#define gds__wal_ovflow_log_required          335544567L
+#define gds__text_subtype                     335544568L
+#define gds__dsql_error                       335544569L
+#define gds__dsql_command_err                 335544570L
+#define gds__dsql_constant_err                335544571L
+#define gds__dsql_cursor_err                  335544572L
+#define gds__dsql_datatype_err                335544573L
+#define gds__dsql_decl_err                    335544574L
+#define gds__dsql_cursor_update_err           335544575L
+#define gds__dsql_cursor_open_err             335544576L
+#define gds__dsql_cursor_close_err            335544577L
+#define gds__dsql_field_err                   335544578L
+#define gds__dsql_internal_err                335544579L
+#define gds__dsql_relation_err                335544580L
+#define gds__dsql_procedure_err               335544581L
+#define gds__dsql_request_err                 335544582L
+#define gds__dsql_sqlda_err                   335544583L
+#define gds__dsql_var_count_err               335544584L
+#define gds__dsql_stmt_handle                 335544585L
+#define gds__dsql_function_err                335544586L
+#define gds__dsql_blob_err                    335544587L
+#define gds__collation_not_found              335544588L
+#define gds__collation_not_for_charset        335544589L
+#define gds__dsql_dup_option                  335544590L
+#define gds__dsql_tran_err                    335544591L
+#define gds__dsql_invalid_array               335544592L
+#define gds__dsql_max_arr_dim_exceeded        335544593L
+#define gds__dsql_arr_range_error             335544594L
+#define gds__dsql_trigger_err                 335544595L
+#define gds__dsql_subselect_err               335544596L
+#define gds__dsql_crdb_prepare_err            335544597L
+#define gds__specify_field_err                335544598L
+#define gds__num_field_err                    335544599L
+#define gds__col_name_err                     335544600L
+#define gds__where_err                        335544601L
+#define gds__table_view_err                   335544602L
+#define gds__distinct_err                     335544603L
+#define gds__key_field_count_err              335544604L
+#define gds__subquery_err                     335544605L
+#define gds__expression_eval_err              335544606L
+#define gds__node_err                         335544607L
+#define gds__command_end_err                  335544608L
+#define gds__index_name                       335544609L
+#define gds__exception_name                   335544610L
+#define gds__field_name                       335544611L
+#define gds__token_err                        335544612L
+#define gds__union_err                        335544613L
+#define gds__dsql_construct_err               335544614L
+#define gds__field_aggregate_err              335544615L
+#define gds__field_ref_err                    335544616L
+#define gds__order_by_err                     335544617L
+#define gds__return_mode_err                  335544618L
+#define gds__extern_func_err                  335544619L
+#define gds__alias_conflict_err               335544620L
+#define gds__procedure_conflict_error         335544621L
+#define gds__relation_conflict_err            335544622L
+#define gds__dsql_domain_err                  335544623L
+#define gds__idx_seg_err                      335544624L
+#define gds__node_name_err                    335544625L
+#define gds__table_name                       335544626L
+#define gds__proc_name                        335544627L
+#define gds__idx_create_err                   335544628L
+#define gds__wal_shadow_err                   335544629L
+#define gds__dependency                       335544630L
+#define gds__idx_key_err                      335544631L
+#define gds__dsql_file_length_err             335544632L
+#define gds__dsql_shadow_number_err           335544633L
+#define gds__dsql_token_unk_err               335544634L
+#define gds__dsql_no_relation_alias           335544635L
+#define gds__indexname                        335544636L
+#define gds__no_stream_plan                   335544637L
+#define gds__stream_twice                     335544638L
+#define gds__stream_not_found                 335544639L
+#define gds__collation_requires_text          335544640L
+#define gds__dsql_domain_not_found            335544641L
+#define gds__index_unused                     335544642L
+#define gds__dsql_self_join                   335544643L
+#define gds__stream_bof                       335544644L
+#define gds__stream_crack                     335544645L
+#define gds__db_or_file_exists                335544646L
+#define gds__invalid_operator                 335544647L
+#define gds__conn_lost                        335544648L
+#define gds__bad_checksum                     335544649L
+#define gds__page_type_err                    335544650L
+#define gds__ext_readonly_err                 335544651L
+#define gds__sing_select_err                  335544652L
+#define gds__psw_attach                       335544653L
+#define gds__psw_start_trans                  335544654L
+#define gds__invalid_direction                335544655L
+#define gds__dsql_var_conflict                335544656L
+#define gds__dsql_no_blob_array               335544657L
+#define gds__dsql_base_table                  335544658L
+#define gds__duplicate_base_table             335544659L
+#define gds__view_alias                       335544660L
+#define gds__index_root_page_full             335544661L
+#define gds__dsql_blob_type_unknown           335544662L
+#define gds__req_max_clones_exceeded          335544663L
+#define gds__dsql_duplicate_spec              335544664L
+#define gds__unique_key_violation             335544665L
+#define gds__srvr_version_too_old             335544666L
+#define gds__drdb_completed_with_errs         335544667L
+#define gds__dsql_procedure_use_err           335544668L
+#define gds__dsql_count_mismatch              335544669L
+#define gds__blob_idx_err                     335544670L
+#define gds__array_idx_err                    335544671L
+#define gds__key_field_err                    335544672L
+#define gds__no_delete                        335544673L
+#define gds__del_last_field                   335544674L
+#define gds__sort_err                         335544675L
+#define gds__sort_mem_err                     335544676L
+#define gds__version_err                      335544677L
+#define gds__inval_key_posn                   335544678L
+#define gds__no_segments_err                  335544679L
+#define gds__crrp_data_err                    335544680L
+#define gds__rec_size_err                     335544681L
+#define gds__dsql_field_ref                   335544682L
+#define gds__req_depth_exceeded               335544683L
+#define gds__no_field_access                  335544684L
+#define gds__no_dbkey                         335544685L
+#define gds__jrn_format_err                   335544686L
+#define gds__jrn_file_full                    335544687L
+#define gds__dsql_open_cursor_request         335544688L
+#define gds__ib_error                         335544689L
+#define gds__cache_redef                      335544690L
+#define gds__cache_too_small                  335544691L
+#define gds__log_redef                        335544692L
+#define gds__log_too_small                    335544693L
+#define gds__partition_too_small              335544694L
+#define gds__partition_not_supp               335544695L
+#define gds__log_length_spec                  335544696L
+#define gds__precision_err                    335544697L
+#define gds__scale_nogt                       335544698L
+#define gds__expec_short                      335544699L
+#define gds__expec_long                       335544700L
+#define gds__expec_ushort                     335544701L
+#define gds__like_escape_invalid              335544702L
+#define gds__svcnoexe                         335544703L
+#define gds__net_lookup_err                   335544704L
+#define gds__service_unknown                  335544705L
+#define gds__host_unknown                     335544706L
+#define gds__grant_nopriv_on_base             335544707L
+#define gds__dyn_fld_ambiguous                335544708L
+#define gds__dsql_agg_ref_err                 335544709L
+#define gds__complex_view                     335544710L
+#define gds__unprepared_stmt                  335544711L
+#define gds__expec_positive                   335544712L
+#define gds__dsql_sqlda_value_err             335544713L
+#define gds__invalid_array_id                 335544714L
+#define gds__extfile_uns_op                   335544715L
+#define gds__svc_in_use                       335544716L
+#define gds__err_stack_limit                  335544717L
+#define gds__invalid_key                      335544718L
+#define gds__net_init_error                   335544719L
+#define gds__loadlib_failure                  335544720L
+#define gds__network_error                    335544721L
+#define gds__net_connect_err                  335544722L
+#define gds__net_connect_listen_err           335544723L
+#define gds__net_event_connect_err            335544724L
+#define gds__net_event_listen_err             335544725L
+#define gds__net_read_err                     335544726L
+#define gds__net_write_err                    335544727L
+#define gds__integ_index_deactivate           335544728L
+#define gds__integ_deactivate_primary         335544729L
+#define gds__cse_not_supported                335544730L
+#define gds__tra_must_sweep                   335544731L
+#define gds__unsupported_network_drive        335544732L
+#define gds__io_create_err                    335544733L
+#define gds__io_open_err                      335544734L
+#define gds__io_close_err                     335544735L
+#define gds__io_read_err                      335544736L
+#define gds__io_write_err                     335544737L
+#define gds__io_delete_err                    335544738L
+#define gds__io_access_err                    335544739L
+#define gds__udf_exception                    335544740L
+#define gds__lost_db_connection               335544741L
+#define gds__no_write_user_priv               335544742L
+#define gds__token_too_long                   335544743L
+#define gds__max_att_exceeded                 335544744L
+#define gds__login_same_as_role_name          335544745L
+#define gds__reftable_requires_pk             335544746L
+#define gds__usrname_too_long                 335544747L
+#define gds__password_too_long                335544748L
+#define gds__usrname_required                 335544749L
+#define gds__password_required                335544750L
+#define gds__bad_protocol                     335544751L
+#define gds__dup_usrname_found                335544752L
+#define gds__usrname_not_found                335544753L
+#define gds__error_adding_sec_record          335544754L
+#define gds__error_modifying_sec_record       335544755L
+#define gds__error_deleting_sec_record        335544756L
+#define gds__error_updating_sec_db            335544757L
+#define gds__sort_rec_size_err                335544758L
+#define gds__bad_default_value                335544759L
+#define gds__invalid_clause                   335544760L
+#define gds__too_many_handles                 335544761L
+#define gds__optimizer_blk_exc                335544762L
+#define gds__invalid_string_constant          335544763L
+#define gds__transitional_date                335544764L
+#define gds__read_only_database               335544765L
+#define gds__must_be_dialect_2_and_up         335544766L
+#define gds__blob_filter_exception            335544767L
+#define gds__exception_access_violation       335544768L
+#define gds__exception_datatype_missalignment 335544769L
+#define gds__exception_array_bounds_exceeded  335544770L
+#define gds__exception_float_denormal_operand 335544771L
+#define gds__exception_float_divide_by_zero   335544772L
+#define gds__exception_float_inexact_result   335544773L
+#define gds__exception_float_invalid_operand  335544774L
+#define gds__exception_float_overflow         335544775L
+#define gds__exception_float_stack_check      335544776L
+#define gds__exception_float_underflow        335544777L
+#define gds__exception_integer_divide_by_zero 335544778L
+#define gds__exception_integer_overflow       335544779L
+#define gds__exception_unknown                335544780L
+#define gds__exception_stack_overflow         335544781L
+#define gds__exception_sigsegv                335544782L
+#define gds__exception_sigill                 335544783L
+#define gds__exception_sigbus                 335544784L
+#define gds__exception_sigfpe                 335544785L
+#define gds__ext_file_delete                  335544786L
+#define gds__ext_file_modify                  335544787L
+#define gds__adm_task_denied                  335544788L
+#define gds__extract_input_mismatch           335544789L
+#define gds__insufficient_svc_privileges      335544790L
+#define gds__file_in_use                      335544791L
+#define gds__service_att_err                  335544792L
+#define gds__ddl_not_allowed_by_db_sql_dial   335544793L
+#define gds__cancelled                        335544794L
+#define gds__unexp_spb_form                   335544795L
+#define gds__sql_dialect_datatype_unsupport   335544796L
+#define gds__svcnouser                        335544797L
+#define gds__depend_on_uncommitted_rel        335544798L
+#define gds__svc_name_missing                 335544799L
+#define gds__too_many_contexts                335544800L
+#define gds__datype_notsup                    335544801L
+#define gds__dialect_reset_warning            335544802L
+#define gds__dialect_not_changed              335544803L
+#define gds__database_create_failed           335544804L
+#define gds__inv_dialect_specified            335544805L
+#define gds__valid_db_dialects                335544806L
+#define gds__sqlwarn                          335544807L
+#define gds__dtype_renamed                    335544808L
+#define gds__extern_func_dir_error            335544809L
+#define gds__date_range_exceeded              335544810L
+#define gds__inv_client_dialect_specified     335544811L
+#define gds__valid_client_dialects            335544812L
+#define gds__optimizer_between_err            335544813L
+#define gds__service_not_supported            335544814L
+#define gds__gfix_db_name                     335740929L
+#define gds__gfix_invalid_sw                  335740930L
+#define gds__gfix_incmp_sw                    335740932L
+#define gds__gfix_replay_req                  335740933L
+#define gds__gfix_pgbuf_req                   335740934L
+#define gds__gfix_val_req                     335740935L
+#define gds__gfix_pval_req                    335740936L
+#define gds__gfix_trn_req                     335740937L
+#define gds__gfix_full_req                    335740940L
+#define gds__gfix_usrname_req                 335740941L
+#define gds__gfix_pass_req                    335740942L
+#define gds__gfix_subs_name                   335740943L
+#define gds__gfix_wal_req                     335740944L
+#define gds__gfix_sec_req                     335740945L
+#define gds__gfix_nval_req                    335740946L
+#define gds__gfix_type_shut                   335740947L
+#define gds__gfix_retry                       335740948L
+#define gds__gfix_retry_db                    335740951L
+#define gds__gfix_exceed_max                  335740991L
+#define gds__gfix_corrupt_pool                335740992L
+#define gds__gfix_mem_exhausted               335740993L
+#define gds__gfix_bad_pool                    335740994L
+#define gds__gfix_trn_not_valid               335740995L
+#define gds__gfix_unexp_eoi                   335741012L
+#define gds__gfix_recon_fail                  335741018L
+#define gds__gfix_trn_unknown                 335741036L
+#define gds__gfix_mode_req                    335741038L
+#define gds__gfix_opt_SQL_dialect             335741039L
+#define gds__dsql_dbkey_from_non_table        336003074L
+#define gds__dsql_transitional_numeric        336003075L
+#define gds__dsql_dialect_warning_expr        336003076L
+#define gds__sql_db_dialect_dtype_unsupport   336003077L
+#define gds__isc_sql_dialect_conflict_num     336003079L
+#define gds__dsql_warning_number_ambiguous    336003080L
+#define gds__dsql_warning_number_ambiguous1   336003081L
+#define gds__dsql_warn_precision_ambiguous    336003082L
+#define gds__dsql_warn_precision_ambiguous1   336003083L
+#define gds__dsql_warn_precision_ambiguous2   336003084L
+#define gds__dyn_role_does_not_exist          336068796L
+#define gds__dyn_no_grant_admin_opt           336068797L
+#define gds__dyn_user_not_role_member         336068798L
+#define gds__dyn_delete_role_failed           336068799L
+#define gds__dyn_grant_role_to_user           336068800L
+#define gds__dyn_inv_sql_role_name            336068801L
+#define gds__dyn_dup_sql_role                 336068802L
+#define gds__dyn_kywd_spec_for_role           336068803L
+#define gds__dyn_roles_not_supported          336068804L
+#define gds__dyn_domain_name_exists           336068812L
+#define gds__dyn_field_name_exists            336068813L
+#define gds__dyn_dependency_exists            336068814L
+#define gds__dyn_dtype_invalid                336068815L
+#define gds__dyn_char_fld_too_small           336068816L
+#define gds__dyn_invalid_dtype_conversion     336068817L
+#define gds__dyn_dtype_conv_invalid           336068818L
+#define gds__gbak_unknown_switch              336330753L
+#define gds__gbak_page_size_missing           336330754L
+#define gds__gbak_page_size_toobig            336330755L
+#define gds__gbak_redir_ouput_missing         336330756L
+#define gds__gbak_switches_conflict           336330757L
+#define gds__gbak_unknown_device              336330758L
+#define gds__gbak_no_protection               336330759L
+#define gds__gbak_page_size_not_allowed       336330760L
+#define gds__gbak_multi_source_dest           336330761L
+#define gds__gbak_filename_missing            336330762L
+#define gds__gbak_dup_inout_names             336330763L
+#define gds__gbak_inv_page_size               336330764L
+#define gds__gbak_db_specified                336330765L
+#define gds__gbak_db_exists                   336330766L
+#define gds__gbak_unk_device                  336330767L
+#define gds__gbak_blob_info_failed            336330772L
+#define gds__gbak_unk_blob_item               336330773L
+#define gds__gbak_get_seg_failed              336330774L
+#define gds__gbak_close_blob_failed           336330775L
+#define gds__gbak_open_blob_failed            336330776L
+#define gds__gbak_put_blr_gen_id_failed       336330777L
+#define gds__gbak_unk_type                    336330778L
+#define gds__gbak_comp_req_failed             336330779L
+#define gds__gbak_start_req_failed            336330780L
+#define gds__gbak_rec_failed                  336330781L
+#define gds__gbak_rel_req_failed              336330782L
+#define gds__gbak_db_info_failed              336330783L
+#define gds__gbak_no_db_desc                  336330784L
+#define gds__gbak_db_create_failed            336330785L
+#define gds__gbak_decomp_len_error            336330786L
+#define gds__gbak_tbl_missing                 336330787L
+#define gds__gbak_blob_col_missing            336330788L
+#define gds__gbak_create_blob_failed          336330789L
+#define gds__gbak_put_seg_failed              336330790L
+#define gds__gbak_rec_len_exp                 336330791L
+#define gds__gbak_inv_rec_len                 336330792L
+#define gds__gbak_exp_data_type               336330793L
+#define gds__gbak_gen_id_failed               336330794L
+#define gds__gbak_unk_rec_type                336330795L
+#define gds__gbak_inv_bkup_ver                336330796L
+#define gds__gbak_missing_bkup_desc           336330797L
+#define gds__gbak_string_trunc                336330798L
+#define gds__gbak_cant_rest_record            336330799L
+#define gds__gbak_send_failed                 336330800L
+#define gds__gbak_no_tbl_name                 336330801L
+#define gds__gbak_unexp_eof                   336330802L
+#define gds__gbak_db_format_too_old           336330803L
+#define gds__gbak_inv_array_dim               336330804L
+#define gds__gbak_xdr_len_expected            336330807L
+#define gds__gbak_open_bkup_error             336330817L
+#define gds__gbak_open_error                  336330818L
+#define gds__gbak_missing_block_fac           336330934L
+#define gds__gbak_inv_block_fac               336330935L
+#define gds__gbak_block_fac_specified         336330936L
+#define gds__gbak_missing_username            336330940L
+#define gds__gbak_missing_password            336330941L
+#define gds__gbak_missing_skipped_bytes       336330952L
+#define gds__gbak_inv_skipped_bytes           336330953L
+#define gds__gbak_err_restore_charset         336330965L
+#define gds__gbak_err_restore_collation       336330967L
+#define gds__gbak_read_error                  336330972L
+#define gds__gbak_write_error                 336330973L
+#define gds__gbak_db_in_use                   336330985L
+#define gds__gbak_sysmemex                    336330990L
+#define gds__gbak_restore_role_failed         336331002L
+#define gds__gbak_role_op_missing             336331005L
+#define gds__gbak_page_buffers_missing        336331010L
+#define gds__gbak_page_buffers_wrong_param    336331011L
+#define gds__gbak_page_buffers_restore        336331012L
+#define gds__gbak_inv_size                    336331014L
+#define gds__gbak_file_outof_sequence         336331015L
+#define gds__gbak_join_file_missing           336331016L
+#define gds__gbak_stdin_not_supptd            336331017L
+#define gds__gbak_stdout_not_supptd           336331018L
+#define gds__gbak_bkup_corrupt                336331019L
+#define gds__gbak_unk_db_file_spec            336331020L
+#define gds__gbak_hdr_write_failed            336331021L
+#define gds__gbak_disk_space_ex               336331022L
+#define gds__gbak_size_lt_min                 336331023L
+#define gds__gbak_svc_name_missing            336331025L
+#define gds__gbak_not_ownr                    336331026L
+#define gds__gbak_mode_req                    336331031L
+#define gds__gsec_cant_open_db                336723983L
+#define gds__gsec_switches_error              336723984L
+#define gds__gsec_no_op_spec                  336723985L
+#define gds__gsec_no_usr_name                 336723986L
+#define gds__gsec_err_add                     336723987L
+#define gds__gsec_err_modify                  336723988L
+#define gds__gsec_err_find_mod                336723989L
+#define gds__gsec_err_rec_not_found           336723990L
+#define gds__gsec_err_delete                  336723991L
+#define gds__gsec_err_find_del                336723992L
+#define gds__gsec_err_find_disp               336723996L
+#define gds__gsec_inv_param                   336723997L
+#define gds__gsec_op_specified                336723998L
+#define gds__gsec_pw_specified                336723999L
+#define gds__gsec_uid_specified               336724000L
+#define gds__gsec_gid_specified               336724001L
+#define gds__gsec_proj_specified              336724002L
+#define gds__gsec_org_specified               336724003L
+#define gds__gsec_fname_specified             336724004L
+#define gds__gsec_mname_specified             336724005L
+#define gds__gsec_lname_specified             336724006L
+#define gds__gsec_inv_switch                  336724008L
+#define gds__gsec_amb_switch                  336724009L
+#define gds__gsec_no_op_specified             336724010L
+#define gds__gsec_params_not_allowed          336724011L
+#define gds__gsec_incompat_switch             336724012L
+#define gds__gsec_inv_username                336724044L
+#define gds__gsec_inv_pw_length               336724045L
+#define gds__gsec_db_specified                336724046L
+#define gds__gsec_db_admin_specified          336724047L
+#define gds__gsec_db_admin_pw_specified       336724048L
+#define gds__gsec_sql_role_specified          336724049L
+#define gds__license_no_file                  336789504L
+#define gds__license_op_specified             336789523L
+#define gds__license_op_missing               336789524L
+#define gds__license_inv_switch               336789525L
+#define gds__license_inv_switch_combo         336789526L
+#define gds__license_inv_op_combo             336789527L
+#define gds__license_amb_switch               336789528L
+#define gds__license_inv_parameter            336789529L
+#define gds__license_param_specified          336789530L
+#define gds__license_param_req                336789531L
+#define gds__license_syntx_error              336789532L
+#define gds__license_dup_id                   336789534L
+#define gds__license_inv_id_key               336789535L
+#define gds__license_err_remove               336789536L
+#define gds__license_err_update               336789537L
+#define gds__license_err_convert              336789538L
+#define gds__license_err_unk                  336789539L
+#define gds__license_svc_err_add              336789540L
+#define gds__license_svc_err_remove           336789541L
+#define gds__license_eval_exists              336789563L
+#define gds__gstat_unknown_switch             336920577L
+#define gds__gstat_retry                      336920578L
+#define gds__gstat_wrong_ods                  336920579L
+#define gds__gstat_unexpected_eof             336920580L
+#define gds__gstat_open_err                   336920605L
+#define gds__gstat_read_err                   336920606L
+#define gds__gstat_sysmemex                   336920607L
+#define gds_err_max                          689
+
+
+// TMN: Added C++ legal identifiers
+
+#define gds_arith_except                     335544321L
+#define gds_bad_dbkey                        335544322L
+#define gds_bad_db_format                    335544323L
+#define gds_bad_db_handle                    335544324L
+#define gds_bad_dpb_content                  335544325L
+#define gds_bad_dpb_form                     335544326L
+#define gds_bad_req_handle                   335544327L
+#define gds_bad_segstr_handle                335544328L
+#define gds_bad_segstr_id                    335544329L
+#define gds_bad_tpb_content                  335544330L
+#define gds_bad_tpb_form                     335544331L
+#define gds_bad_trans_handle                 335544332L
+#define gds_bug_check                        335544333L
+#define gds_convert_error                    335544334L
+#define gds_db_corrupt                       335544335L
+#define gds_deadlock                         335544336L
+#define gds_excess_trans                     335544337L
+#define gds_from_no_match                    335544338L
+#define gds_infinap                          335544339L
+#define gds_infona                           335544340L
+#define gds_infunk                           335544341L
+#define gds_integ_fail                       335544342L
+#define gds_invalid_blr                      335544343L
+#define gds_io_error                         335544344L
+#define gds_lock_conflict                    335544345L
+#define gds_metadata_corrupt                 335544346L
+#define gds_not_valid                        335544347L
+#define gds_no_cur_rec                       335544348L
+#define gds_no_dup                           335544349L
+#define gds_no_finish                        335544350L
+#define gds_no_meta_update                   335544351L
+#define gds_no_priv                          335544352L
+#define gds_no_recon                         335544353L
+#define gds_no_record                        335544354L
+#define gds_no_segstr_close                  335544355L
+#define gds_obsolete_metadata                335544356L
+#define gds_open_trans                       335544357L
+#define gds_port_len                         335544358L
+#define gds_read_only_field                  335544359L
+#define gds_read_only_rel                    335544360L
+#define gds_read_only_trans                  335544361L
+#define gds_read_only_view                   335544362L
+#define gds_req_no_trans                     335544363L
+#define gds_req_sync                         335544364L
+#define gds_req_wrong_db                     335544365L
+#define gds_segment                          335544366L
+#define gds_segstr_eof                       335544367L
+#define gds_segstr_no_op                     335544368L
+#define gds_segstr_no_read                   335544369L
+#define gds_segstr_no_trans                  335544370L
+#define gds_segstr_no_write                  335544371L
+#define gds_segstr_wrong_db                  335544372L
+#define gds_sys_request                      335544373L
+#define gds_stream_eof                       335544374L
+#define gds_unavailable                      335544375L
+#define gds_unres_rel                        335544376L
+#define gds_uns_ext                          335544377L
+#define gds_wish_list                        335544378L
+#define gds_wrong_ods                        335544379L
+#define gds_wronumarg                        335544380L
+#define gds_imp_exc                          335544381L
+#define gds_random                           335544382L
+#define gds_fatal_conflict                   335544383L
+#define gds_badblk                           335544384L
+#define gds_invpoolcl                        335544385L
+#define gds_nopoolids                        335544386L
+#define gds_relbadblk                        335544387L
+#define gds_blktoobig                        335544388L
+#define gds_bufexh                           335544389L
+#define gds_syntaxerr                        335544390L
+#define gds_bufinuse                         335544391L
+#define gds_bdbincon                         335544392L
+#define gds_reqinuse                         335544393L
+#define gds_badodsver                        335544394L
+#define gds_relnotdef                        335544395L
+#define gds_fldnotdef                        335544396L
+#define gds_dirtypage                        335544397L
+#define gds_waifortra                        335544398L
+#define gds_doubleloc                        335544399L
+#define gds_nodnotfnd                        335544400L
+#define gds_dupnodfnd                        335544401L
+#define gds_locnotmar                        335544402L
+#define gds_badpagtyp                        335544403L
+#define gds_corrupt                          335544404L
+#define gds_badpage                          335544405L
+#define gds_badindex                         335544406L
+#define gds_dbbnotzer                        335544407L
+#define gds_tranotzer                        335544408L
+#define gds_trareqmis                        335544409L
+#define gds_badhndcnt                        335544410L
+#define gds_wrotpbver                        335544411L
+#define gds_wroblrver                        335544412L
+#define gds_wrodpbver                        335544413L
+#define gds_blobnotsup                       335544414L
+#define gds_badrelation                      335544415L
+#define gds_nodetach                         335544416L
+#define gds_notremote                        335544417L
+#define gds_trainlim                         335544418L
+#define gds_notinlim                         335544419L
+#define gds_traoutsta                        335544420L
+#define gds_connect_reject                   335544421L
+#define gds_dbfile                           335544422L
+#define gds_orphan                           335544423L
+#define gds_no_lock_mgr                      335544424L
+#define gds_ctxinuse                         335544425L
+#define gds_ctxnotdef                        335544426L
+#define gds_datnotsup                        335544427L
+#define gds_badmsgnum                        335544428L
+#define gds_badparnum                        335544429L
+#define gds_virmemexh                        335544430L
+#define gds_blocking_signal                  335544431L
+#define gds_lockmanerr                       335544432L
+#define gds_journerr                         335544433L
+#define gds_keytoobig                        335544434L
+#define gds_nullsegkey                       335544435L
+#define gds_sqlerr                           335544436L
+#define gds_wrodynver                        335544437L
+#define gds_funnotdef                        335544438L
+#define gds_funmismat                        335544439L
+#define gds_bad_msg_vec                      335544440L
+#define gds_bad_detach                       335544441L
+#define gds_noargacc_read                    335544442L
+#define gds_noargacc_write                   335544443L
+#define gds_read_only                        335544444L
+#define gds_ext_err                          335544445L
+#define gds_non_updatable                    335544446L
+#define gds_no_rollback                      335544447L
+#define gds_bad_sec_info                     335544448L
+#define gds_invalid_sec_info                 335544449L
+#define gds_misc_interpreted                 335544450L
+#define gds_update_conflict                  335544451L
+#define gds_unlicensed                       335544452L
+#define gds_obj_in_use                       335544453L
+#define gds_nofilter                         335544454L
+#define gds_shadow_accessed                  335544455L
+#define gds_invalid_sdl                      335544456L
+#define gds_out_of_bounds                    335544457L
+#define gds_invalid_dimension                335544458L
+#define gds_rec_in_limbo                     335544459L
+#define gds_shadow_missing                   335544460L
+#define gds_cant_validate                    335544461L
+#define gds_cant_start_journal               335544462L
+#define gds_gennotdef                        335544463L
+#define gds_cant_start_logging               335544464L
+#define gds_bad_segstr_type                  335544465L
+#define gds_foreign_key                      335544466L
+#define gds_high_minor                       335544467L
+#define gds_tra_state                        335544468L
+#define gds_trans_invalid                    335544469L
+#define gds_buf_invalid                      335544470L
+#define gds_indexnotdefined                  335544471L
+#define gds_login                            335544472L
+#define gds_invalid_bookmark                 335544473L
+#define gds_bad_lock_level                   335544474L
+#define gds_relation_lock                    335544475L
+#define gds_record_lock                      335544476L
+#define gds_max_idx                          335544477L
+#define gds_jrn_enable                       335544478L
+#define gds_old_failure                      335544479L
+#define gds_old_in_progress                  335544480L
+#define gds_old_no_space                     335544481L
+#define gds_no_wal_no_jrn                    335544482L
+#define gds_num_old_files                    335544483L
+#define gds_wal_file_open                    335544484L
+#define gds_bad_stmt_handle                  335544485L
+#define gds_wal_failure                      335544486L
+#define gds_walw_err                         335544487L
+#define gds_logh_small                       335544488L
+#define gds_logh_inv_version                 335544489L
+#define gds_logh_open_flag                   335544490L
+#define gds_logh_open_flag2                  335544491L
+#define gds_logh_diff_dbname                 335544492L
+#define gds_logf_unexpected_eof              335544493L
+#define gds_logr_incomplete                  335544494L
+#define gds_logr_header_small                335544495L
+#define gds_logb_small                       335544496L
+#define gds_wal_illegal_attach               335544497L
+#define gds_wal_invalid_wpb                  335544498L
+#define gds_wal_err_rollover                 335544499L
+#define gds_no_wal                           335544500L
+#define gds_drop_wal                         335544501L
+#define gds_stream_not_defined               335544502L
+#define gds_wal_subsys_error                 335544503L
+#define gds_wal_subsys_corrupt               335544504L
+#define gds_no_archive                       335544505L
+#define gds_shutinprog                       335544506L
+#define gds_range_in_use                     335544507L
+#define gds_range_not_found                  335544508L
+#define gds_charset_not_found                335544509L
+#define gds_lock_timeout                     335544510L
+#define gds_prcnotdef                        335544511L
+#define gds_prcmismat                        335544512L
+#define gds_wal_bugcheck                     335544513L
+#define gds_wal_cant_expand                  335544514L
+#define gds_codnotdef                        335544515L
+#define gds_xcpnotdef                        335544516L
+#define gds_except                           335544517L
+#define gds_cache_restart                    335544518L
+#define gds_bad_lock_handle                  335544519L
+#define gds_jrn_present                      335544520L
+#define gds_wal_err_rollover2                335544521L
+#define gds_wal_err_logwrite                 335544522L
+#define gds_wal_err_jrn_comm                 335544523L
+#define gds_wal_err_expansion                335544524L
+#define gds_wal_err_setup                    335544525L
+#define gds_wal_err_ww_sync                  335544526L
+#define gds_wal_err_ww_start                 335544527L
+#define gds_shutdown                         335544528L
+#define gds_existing_priv_mod                335544529L
+#define gds_primary_key_ref                  335544530L
+#define gds_primary_key_notnull              335544531L
+#define gds_ref_cnstrnt_notfound             335544532L
+#define gds_foreign_key_notfound             335544533L
+#define gds_ref_cnstrnt_update               335544534L
+#define gds_check_cnstrnt_update             335544535L
+#define gds_check_cnstrnt_del                335544536L
+#define gds_integ_index_seg_del              335544537L
+#define gds_integ_index_seg_mod              335544538L
+#define gds_integ_index_del                  335544539L
+#define gds_integ_index_mod                  335544540L
+#define gds_check_trig_del                   335544541L
+#define gds_check_trig_update                335544542L
+#define gds_cnstrnt_fld_del                  335544543L
+#define gds_cnstrnt_fld_rename               335544544L
+#define gds_rel_cnstrnt_update               335544545L
+#define gds_constaint_on_view                335544546L
+#define gds_invld_cnstrnt_type               335544547L
+#define gds_primary_key_exists               335544548L
+#define gds_systrig_update                   335544549L
+#define gds_not_rel_owner                    335544550L
+#define gds_grant_obj_notfound               335544551L
+#define gds_grant_fld_notfound               335544552L
+#define gds_grant_nopriv                     335544553L
+#define gds_nonsql_security_rel              335544554L
+#define gds_nonsql_security_fld              335544555L
+#define gds_wal_cache_err                    335544556L
+#define gds_shutfail                         335544557L
+#define gds_check_constraint                 335544558L
+#define gds_bad_svc_handle                   335544559L
+#define gds_shutwarn                         335544560L
+#define gds_wrospbver                        335544561L
+#define gds_bad_spb_form                     335544562L
+#define gds_svcnotdef                        335544563L
+#define gds_no_jrn                           335544564L
+#define gds_transliteration_failed           335544565L
+#define gds_start_cm_for_wal                 335544566L
+#define gds_wal_ovflow_log_required          335544567L
+#define gds_text_subtype                     335544568L
+#define gds_dsql_error                       335544569L
+#define gds_dsql_command_err                 335544570L
+#define gds_dsql_constant_err                335544571L
+#define gds_dsql_cursor_err                  335544572L
+#define gds_dsql_datatype_err                335544573L
+#define gds_dsql_decl_err                    335544574L
+#define gds_dsql_cursor_update_err           335544575L
+#define gds_dsql_cursor_open_err             335544576L
+#define gds_dsql_cursor_close_err            335544577L
+#define gds_dsql_field_err                   335544578L
+#define gds_dsql_internal_err                335544579L
+#define gds_dsql_relation_err                335544580L
+#define gds_dsql_procedure_err               335544581L
+#define gds_dsql_request_err                 335544582L
+#define gds_dsql_sqlda_err                   335544583L
+#define gds_dsql_var_count_err               335544584L
+#define gds_dsql_stmt_handle                 335544585L
+#define gds_dsql_function_err                335544586L
+#define gds_dsql_blob_err                    335544587L
+#define gds_collation_not_found              335544588L
+#define gds_collation_not_for_charset        335544589L
+#define gds_dsql_dup_option                  335544590L
+#define gds_dsql_tran_err                    335544591L
+#define gds_dsql_invalid_array               335544592L
+#define gds_dsql_max_arr_dim_exceeded        335544593L
+#define gds_dsql_arr_range_error             335544594L
+#define gds_dsql_trigger_err                 335544595L
+#define gds_dsql_subselect_err               335544596L
+#define gds_dsql_crdb_prepare_err            335544597L
+#define gds_specify_field_err                335544598L
+#define gds_num_field_err                    335544599L
+#define gds_col_name_err                     335544600L
+#define gds_where_err                        335544601L
+#define gds_table_view_err                   335544602L
+#define gds_distinct_err                     335544603L
+#define gds_key_field_count_err              335544604L
+#define gds_subquery_err                     335544605L
+#define gds_expression_eval_err              335544606L
+#define gds_node_err                         335544607L
+#define gds_command_end_err                  335544608L
+#define gds_index_name                       335544609L
+#define gds_exception_name                   335544610L
+#define gds_field_name                       335544611L
+#define gds_token_err                        335544612L
+#define gds_union_err                        335544613L
+#define gds_dsql_construct_err               335544614L
+#define gds_field_aggregate_err              335544615L
+#define gds_field_ref_err                    335544616L
+#define gds_order_by_err                     335544617L
+#define gds_return_mode_err                  335544618L
+#define gds_extern_func_err                  335544619L
+#define gds_alias_conflict_err               335544620L
+#define gds_procedure_conflict_error         335544621L
+#define gds_relation_conflict_err            335544622L
+#define gds_dsql_domain_err                  335544623L
+#define gds_idx_seg_err                      335544624L
+#define gds_node_name_err                    335544625L
+#define gds_table_name                       335544626L
+#define gds_proc_name                        335544627L
+#define gds_idx_create_err                   335544628L
+#define gds_wal_shadow_err                   335544629L
+#define gds_dependency                       335544630L
+#define gds_idx_key_err                      335544631L
+#define gds_dsql_file_length_err             335544632L
+#define gds_dsql_shadow_number_err           335544633L
+#define gds_dsql_token_unk_err               335544634L
+#define gds_dsql_no_relation_alias           335544635L
+#define gds_indexname                        335544636L
+#define gds_no_stream_plan                   335544637L
+#define gds_stream_twice                     335544638L
+#define gds_stream_not_found                 335544639L
+#define gds_collation_requires_text          335544640L
+#define gds_dsql_domain_not_found            335544641L
+#define gds_index_unused                     335544642L
+#define gds_dsql_self_join                   335544643L
+#define gds_stream_bof                       335544644L
+#define gds_stream_crack                     335544645L
+#define gds_db_or_file_exists                335544646L
+#define gds_invalid_operator                 335544647L
+#define gds_conn_lost                        335544648L
+#define gds_bad_checksum                     335544649L
+#define gds_page_type_err                    335544650L
+#define gds_ext_readonly_err                 335544651L
+#define gds_sing_select_err                  335544652L
+#define gds_psw_attach                       335544653L
+#define gds_psw_start_trans                  335544654L
+#define gds_invalid_direction                335544655L
+#define gds_dsql_var_conflict                335544656L
+#define gds_dsql_no_blob_array               335544657L
+#define gds_dsql_base_table                  335544658L
+#define gds_duplicate_base_table             335544659L
+#define gds_view_alias                       335544660L
+#define gds_index_root_page_full             335544661L
+#define gds_dsql_blob_type_unknown           335544662L
+#define gds_req_max_clones_exceeded          335544663L
+#define gds_dsql_duplicate_spec              335544664L
+#define gds_unique_key_violation             335544665L
+#define gds_srvr_version_too_old             335544666L
+#define gds_drdb_completed_with_errs         335544667L
+#define gds_dsql_procedure_use_err           335544668L
+#define gds_dsql_count_mismatch              335544669L
+#define gds_blob_idx_err                     335544670L
+#define gds_array_idx_err                    335544671L
+#define gds_key_field_err                    335544672L
+#define gds_no_delete                        335544673L
+#define gds_del_last_field                   335544674L
+#define gds_sort_err                         335544675L
+#define gds_sort_mem_err                     335544676L
+#define gds_version_err                      335544677L
+#define gds_inval_key_posn                   335544678L
+#define gds_no_segments_err                  335544679L
+#define gds_crrp_data_err                    335544680L
+#define gds_rec_size_err                     335544681L
+#define gds_dsql_field_ref                   335544682L
+#define gds_req_depth_exceeded               335544683L
+#define gds_no_field_access                  335544684L
+#define gds_no_dbkey                         335544685L
+#define gds_jrn_format_err                   335544686L
+#define gds_jrn_file_full                    335544687L
+#define gds_dsql_open_cursor_request         335544688L
+#define gds_ib_error                         335544689L
+#define gds_cache_redef                      335544690L
+#define gds_cache_too_small                  335544691L
+#define gds_log_redef                        335544692L
+#define gds_log_too_small                    335544693L
+#define gds_partition_too_small              335544694L
+#define gds_partition_not_supp               335544695L
+#define gds_log_length_spec                  335544696L
+#define gds_precision_err                    335544697L
+#define gds_scale_nogt                       335544698L
+#define gds_expec_short                      335544699L
+#define gds_expec_long                       335544700L
+#define gds_expec_ushort                     335544701L
+#define gds_like_escape_invalid              335544702L
+#define gds_svcnoexe                         335544703L
+#define gds_net_lookup_err                   335544704L
+#define gds_service_unknown                  335544705L
+#define gds_host_unknown                     335544706L
+#define gds_grant_nopriv_on_base             335544707L
+#define gds_dyn_fld_ambiguous                335544708L
+#define gds_dsql_agg_ref_err                 335544709L
+#define gds_complex_view                     335544710L
+#define gds_unprepared_stmt                  335544711L
+#define gds_expec_positive                   335544712L
+#define gds_dsql_sqlda_value_err             335544713L
+#define gds_invalid_array_id                 335544714L
+#define gds_extfile_uns_op                   335544715L
+#define gds_svc_in_use                       335544716L
+#define gds_err_stack_limit                  335544717L
+#define gds_invalid_key                      335544718L
+#define gds_net_init_error                   335544719L
+#define gds_loadlib_failure                  335544720L
+#define gds_network_error                    335544721L
+#define gds_net_connect_err                  335544722L
+#define gds_net_connect_listen_err           335544723L
+#define gds_net_event_connect_err            335544724L
+#define gds_net_event_listen_err             335544725L
+#define gds_net_read_err                     335544726L
+#define gds_net_write_err                    335544727L
+#define gds_integ_index_deactivate           335544728L
+#define gds_integ_deactivate_primary         335544729L
+#define gds_cse_not_supported                335544730L
+#define gds_tra_must_sweep                   335544731L
+#define gds_unsupported_network_drive        335544732L
+#define gds_io_create_err                    335544733L
+#define gds_io_open_err                      335544734L
+#define gds_io_close_err                     335544735L
+#define gds_io_read_err                      335544736L
+#define gds_io_write_err                     335544737L
+#define gds_io_delete_err                    335544738L
+#define gds_io_access_err                    335544739L
+#define gds_udf_exception                    335544740L
+#define gds_lost_db_connection               335544741L
+#define gds_no_write_user_priv               335544742L
+#define gds_token_too_long                   335544743L
+#define gds_max_att_exceeded                 335544744L
+#define gds_login_same_as_role_name          335544745L
+#define gds_reftable_requires_pk             335544746L
+#define gds_usrname_too_long                 335544747L
+#define gds_password_too_long                335544748L
+#define gds_usrname_required                 335544749L
+#define gds_password_required                335544750L
+#define gds_bad_protocol                     335544751L
+#define gds_dup_usrname_found                335544752L
+#define gds_usrname_not_found                335544753L
+#define gds_error_adding_sec_record          335544754L
+#define gds_error_modifying_sec_record       335544755L
+#define gds_error_deleting_sec_record        335544756L
+#define gds_error_updating_sec_db            335544757L
+#define gds_sort_rec_size_err                335544758L
+#define gds_bad_default_value                335544759L
+#define gds_invalid_clause                   335544760L
+#define gds_too_many_handles                 335544761L
+#define gds_optimizer_blk_exc                335544762L
+#define gds_invalid_string_constant          335544763L
+#define gds_transitional_date                335544764L
+#define gds_read_only_database               335544765L
+#define gds_must_be_dialect_2_and_up         335544766L
+#define gds_blob_filter_exception            335544767L
+#define gds_exception_access_violation       335544768L
+#define gds_exception_datatype_missalignment 335544769L
+#define gds_exception_array_bounds_exceeded  335544770L
+#define gds_exception_float_denormal_operand 335544771L
+#define gds_exception_float_divide_by_zero   335544772L
+#define gds_exception_float_inexact_result   335544773L
+#define gds_exception_float_invalid_operand  335544774L
+#define gds_exception_float_overflow         335544775L
+#define gds_exception_float_stack_check      335544776L
+#define gds_exception_float_underflow        335544777L
+#define gds_exception_integer_divide_by_zero 335544778L
+#define gds_exception_integer_overflow       335544779L
+#define gds_exception_unknown                335544780L
+#define gds_exception_stack_overflow         335544781L
+#define gds_exception_sigsegv                335544782L
+#define gds_exception_sigill                 335544783L
+#define gds_exception_sigbus                 335544784L
+#define gds_exception_sigfpe                 335544785L
+#define gds_ext_file_delete                  335544786L
+#define gds_ext_file_modify                  335544787L
+#define gds_adm_task_denied                  335544788L
+#define gds_extract_input_mismatch           335544789L
+#define gds_insufficient_svc_privileges      335544790L
+#define gds_file_in_use                      335544791L
+#define gds_service_att_err                  335544792L
+#define gds_ddl_not_allowed_by_db_sql_dial   335544793L
+#define gds_cancelled                        335544794L
+#define gds_unexp_spb_form                   335544795L
+#define gds_sql_dialect_datatype_unsupport   335544796L
+#define gds_svcnouser                        335544797L
+#define gds_depend_on_uncommitted_rel        335544798L
+#define gds_svc_name_missing                 335544799L
+#define gds_too_many_contexts                335544800L
+#define gds_datype_notsup                    335544801L
+#define gds_dialect_reset_warning            335544802L
+#define gds_dialect_not_changed              335544803L
+#define gds_database_create_failed           335544804L
+#define gds_inv_dialect_specified            335544805L
+#define gds_valid_db_dialects                335544806L
+#define gds_sqlwarn                          335544807L
+#define gds_dtype_renamed                    335544808L
+#define gds_extern_func_dir_error            335544809L
+#define gds_date_range_exceeded              335544810L
+#define gds_inv_client_dialect_specified     335544811L
+#define gds_valid_client_dialects            335544812L
+#define gds_optimizer_between_err            335544813L
+#define gds_service_not_supported            335544814L
+#define gds_gfix_db_name                     335740929L
+#define gds_gfix_invalid_sw                  335740930L
+#define gds_gfix_incmp_sw                    335740932L
+#define gds_gfix_replay_req                  335740933L
+#define gds_gfix_pgbuf_req                   335740934L
+#define gds_gfix_val_req                     335740935L
+#define gds_gfix_pval_req                    335740936L
+#define gds_gfix_trn_req                     335740937L
+#define gds_gfix_full_req                    335740940L
+#define gds_gfix_usrname_req                 335740941L
+#define gds_gfix_pass_req                    335740942L
+#define gds_gfix_subs_name                   335740943L
+#define gds_gfix_wal_req                     335740944L
+#define gds_gfix_sec_req                     335740945L
+#define gds_gfix_nval_req                    335740946L
+#define gds_gfix_type_shut                   335740947L
+#define gds_gfix_retry                       335740948L
+#define gds_gfix_retry_db                    335740951L
+#define gds_gfix_exceed_max                  335740991L
+#define gds_gfix_corrupt_pool                335740992L
+#define gds_gfix_mem_exhausted               335740993L
+#define gds_gfix_bad_pool                    335740994L
+#define gds_gfix_trn_not_valid               335740995L
+#define gds_gfix_unexp_eoi                   335741012L
+#define gds_gfix_recon_fail                  335741018L
+#define gds_gfix_trn_unknown                 335741036L
+#define gds_gfix_mode_req                    335741038L
+#define gds_gfix_opt_SQL_dialect             335741039L
+#define gds_dsql_dbkey_from_non_table        336003074L
+#define gds_dsql_transitional_numeric        336003075L
+#define gds_dsql_dialect_warning_expr        336003076L
+#define gds_sql_db_dialect_dtype_unsupport   336003077L
+#define gds_isc_sql_dialect_conflict_num     336003079L
+#define gds_dsql_warning_number_ambiguous    336003080L
+#define gds_dsql_warning_number_ambiguous1   336003081L
+#define gds_dsql_warn_precision_ambiguous    336003082L
+#define gds_dsql_warn_precision_ambiguous1   336003083L
+#define gds_dsql_warn_precision_ambiguous2   336003084L
+#define gds_dyn_role_does_not_exist          336068796L
+#define gds_dyn_no_grant_admin_opt           336068797L
+#define gds_dyn_user_not_role_member         336068798L
+#define gds_dyn_delete_role_failed           336068799L
+#define gds_dyn_grant_role_to_user           336068800L
+#define gds_dyn_inv_sql_role_name            336068801L
+#define gds_dyn_dup_sql_role                 336068802L
+#define gds_dyn_kywd_spec_for_role           336068803L
+#define gds_dyn_roles_not_supported          336068804L
+#define gds_dyn_domain_name_exists           336068812L
+#define gds_dyn_field_name_exists            336068813L
+#define gds_dyn_dependency_exists            336068814L
+#define gds_dyn_dtype_invalid                336068815L
+#define gds_dyn_char_fld_too_small           336068816L
+#define gds_dyn_invalid_dtype_conversion     336068817L
+#define gds_dyn_dtype_conv_invalid           336068818L
+#define gds_gbak_unknown_switch              336330753L
+#define gds_gbak_page_size_missing           336330754L
+#define gds_gbak_page_size_toobig            336330755L
+#define gds_gbak_redir_ouput_missing         336330756L
+#define gds_gbak_switches_conflict           336330757L
+#define gds_gbak_unknown_device              336330758L
+#define gds_gbak_no_protection               336330759L
+#define gds_gbak_page_size_not_allowed       336330760L
+#define gds_gbak_multi_source_dest           336330761L
+#define gds_gbak_filename_missing            336330762L
+#define gds_gbak_dup_inout_names             336330763L
+#define gds_gbak_inv_page_size               336330764L
+#define gds_gbak_db_specified                336330765L
+#define gds_gbak_db_exists                   336330766L
+#define gds_gbak_unk_device                  336330767L
+#define gds_gbak_blob_info_failed            336330772L
+#define gds_gbak_unk_blob_item               336330773L
+#define gds_gbak_get_seg_failed              336330774L
+#define gds_gbak_close_blob_failed           336330775L
+#define gds_gbak_open_blob_failed            336330776L
+#define gds_gbak_put_blr_gen_id_failed       336330777L
+#define gds_gbak_unk_type                    336330778L
+#define gds_gbak_comp_req_failed             336330779L
+#define gds_gbak_start_req_failed            336330780L
+#define gds_gbak_rec_failed                  336330781L
+#define gds_gbak_rel_req_failed              336330782L
+#define gds_gbak_db_info_failed              336330783L
+#define gds_gbak_no_db_desc                  336330784L
+#define gds_gbak_db_create_failed            336330785L
+#define gds_gbak_decomp_len_error            336330786L
+#define gds_gbak_tbl_missing                 336330787L
+#define gds_gbak_blob_col_missing            336330788L
+#define gds_gbak_create_blob_failed          336330789L
+#define gds_gbak_put_seg_failed              336330790L
+#define gds_gbak_rec_len_exp                 336330791L
+#define gds_gbak_inv_rec_len                 336330792L
+#define gds_gbak_exp_data_type               336330793L
+#define gds_gbak_gen_id_failed               336330794L
+#define gds_gbak_unk_rec_type                336330795L
+#define gds_gbak_inv_bkup_ver                336330796L
+#define gds_gbak_missing_bkup_desc           336330797L
+#define gds_gbak_string_trunc                336330798L
+#define gds_gbak_cant_rest_record            336330799L
+#define gds_gbak_send_failed                 336330800L
+#define gds_gbak_no_tbl_name                 336330801L
+#define gds_gbak_unexp_eof                   336330802L
+#define gds_gbak_db_format_too_old           336330803L
+#define gds_gbak_inv_array_dim               336330804L
+#define gds_gbak_xdr_len_expected            336330807L
+#define gds_gbak_open_bkup_error             336330817L
+#define gds_gbak_open_error                  336330818L
+#define gds_gbak_missing_block_fac           336330934L
+#define gds_gbak_inv_block_fac               336330935L
+#define gds_gbak_block_fac_specified         336330936L
+#define gds_gbak_missing_username            336330940L
+#define gds_gbak_missing_password            336330941L
+#define gds_gbak_missing_skipped_bytes       336330952L
+#define gds_gbak_inv_skipped_bytes           336330953L
+#define gds_gbak_err_restore_charset         336330965L
+#define gds_gbak_err_restore_collation       336330967L
+#define gds_gbak_read_error                  336330972L
+#define gds_gbak_write_error                 336330973L
+#define gds_gbak_db_in_use                   336330985L
+#define gds_gbak_sysmemex                    336330990L
+#define gds_gbak_restore_role_failed         336331002L
+#define gds_gbak_role_op_missing             336331005L
+#define gds_gbak_page_buffers_missing        336331010L
+#define gds_gbak_page_buffers_wrong_param    336331011L
+#define gds_gbak_page_buffers_restore        336331012L
+#define gds_gbak_inv_size                    336331014L
+#define gds_gbak_file_outof_sequence         336331015L
+#define gds_gbak_join_file_missing           336331016L
+#define gds_gbak_stdin_not_supptd            336331017L
+#define gds_gbak_stdout_not_supptd           336331018L
+#define gds_gbak_bkup_corrupt                336331019L
+#define gds_gbak_unk_db_file_spec            336331020L
+#define gds_gbak_hdr_write_failed            336331021L
+#define gds_gbak_disk_space_ex               336331022L
+#define gds_gbak_size_lt_min                 336331023L
+#define gds_gbak_svc_name_missing            336331025L
+#define gds_gbak_not_ownr                    336331026L
+#define gds_gbak_mode_req                    336331031L
+#define gds_gsec_cant_open_db                336723983L
+#define gds_gsec_switches_error              336723984L
+#define gds_gsec_no_op_spec                  336723985L
+#define gds_gsec_no_usr_name                 336723986L
+#define gds_gsec_err_add                     336723987L
+#define gds_gsec_err_modify                  336723988L
+#define gds_gsec_err_find_mod                336723989L
+#define gds_gsec_err_rec_not_found           336723990L
+#define gds_gsec_err_delete                  336723991L
+#define gds_gsec_err_find_del                336723992L
+#define gds_gsec_err_find_disp               336723996L
+#define gds_gsec_inv_param                   336723997L
+#define gds_gsec_op_specified                336723998L
+#define gds_gsec_pw_specified                336723999L
+#define gds_gsec_uid_specified               336724000L
+#define gds_gsec_gid_specified               336724001L
+#define gds_gsec_proj_specified              336724002L
+#define gds_gsec_org_specified               336724003L
+#define gds_gsec_fname_specified             336724004L
+#define gds_gsec_mname_specified             336724005L
+#define gds_gsec_lname_specified             336724006L
+#define gds_gsec_inv_switch                  336724008L
+#define gds_gsec_amb_switch                  336724009L
+#define gds_gsec_no_op_specified             336724010L
+#define gds_gsec_params_not_allowed          336724011L
+#define gds_gsec_incompat_switch             336724012L
+#define gds_gsec_inv_username                336724044L
+#define gds_gsec_inv_pw_length               336724045L
+#define gds_gsec_db_specified                336724046L
+#define gds_gsec_db_admin_specified          336724047L
+#define gds_gsec_db_admin_pw_specified       336724048L
+#define gds_gsec_sql_role_specified          336724049L
+#define gds_license_no_file                  336789504L
+#define gds_license_op_specified             336789523L
+#define gds_license_op_missing               336789524L
+#define gds_license_inv_switch               336789525L
+#define gds_license_inv_switch_combo         336789526L
+#define gds_license_inv_op_combo             336789527L
+#define gds_license_amb_switch               336789528L
+#define gds_license_inv_parameter            336789529L
+#define gds_license_param_specified          336789530L
+#define gds_license_param_req                336789531L
+#define gds_license_syntx_error              336789532L
+#define gds_license_dup_id                   336789534L
+#define gds_license_inv_id_key               336789535L
+#define gds_license_err_remove               336789536L
+#define gds_license_err_update               336789537L
+#define gds_license_err_convert              336789538L
+#define gds_license_err_unk                  336789539L
+#define gds_license_svc_err_add              336789540L
+#define gds_license_svc_err_remove           336789541L
+#define gds_license_eval_exists              336789563L
+#define gds_gstat_unknown_switch             336920577L
+#define gds_gstat_retry                      336920578L
+#define gds_gstat_wrong_ods                  336920579L
+#define gds_gstat_unexpected_eof             336920580L
+#define gds_gstat_open_err                   336920605L
+#define gds_gstat_read_err                   336920606L
+#define gds_gstat_sysmemex                   336920607L
+
+
+/***********************/
+/*   ISC Error Codes   */
+/***********************/
+
+#define isc_facility	20
+#define isc_err_base	335544320L
+#define isc_err_factor	1
+#define isc_arg_end		0		/* end of argument list */
+#define isc_arg_gds		1		/* generic DSRI status value */
+#define isc_arg_string		2	/* string argument */
+#define isc_arg_cstring	3		/* count & string argument */
+#define isc_arg_number		4	/* numeric argument (long) */
+#define isc_arg_interpreted	5	/* interpreted status code (string) */
+#define isc_arg_vms		6		/* VAX/VMS status code (long) */
+#define isc_arg_unix		7	/* UNIX error code */
+#define isc_arg_domain		8	/* Apollo/Domain error code */
+#define isc_arg_dos		9		/* MSDOS/OS2 error code */
+#define isc_arg_mpexl		10	/* HP MPE/XL error code */
+#define isc_arg_mpexl_ipc	11	/* HP MPE/XL IPC error code */
+#define isc_arg_next_mach	15	/* NeXT/Mach error code */
+#define isc_arg_netware	16		/* NetWare error code */
+#define isc_arg_win32		17	/* Win32 error code */
+#define isc_arg_warning	18		/* warning argument */
+
+#define isc_arith_except                     335544321L
+#define isc_bad_dbkey                        335544322L
+#define isc_bad_db_format                    335544323L
+#define isc_bad_db_handle                    335544324L
+#define isc_bad_dpb_content                  335544325L
+#define isc_bad_dpb_form                     335544326L
+#define isc_bad_req_handle                   335544327L
+#define isc_bad_segstr_handle                335544328L
+#define isc_bad_segstr_id                    335544329L
+#define isc_bad_tpb_content                  335544330L
+#define isc_bad_tpb_form                     335544331L
+#define isc_bad_trans_handle                 335544332L
+#define isc_bug_check                        335544333L
+#define isc_convert_error                    335544334L
+#define isc_db_corrupt                       335544335L
+#define isc_deadlock                         335544336L
+#define isc_excess_trans                     335544337L
+#define isc_from_no_match                    335544338L
+#define isc_infinap                          335544339L
+#define isc_infona                           335544340L
+#define isc_infunk                           335544341L
+#define isc_integ_fail                       335544342L
+#define isc_invalid_blr                      335544343L
+#define isc_io_error                         335544344L
+#define isc_lock_conflict                    335544345L
+#define isc_metadata_corrupt                 335544346L
+#define isc_not_valid                        335544347L
+#define isc_no_cur_rec                       335544348L
+#define isc_no_dup                           335544349L
+#define isc_no_finish                        335544350L
+#define isc_no_meta_update                   335544351L
+#define isc_no_priv                          335544352L
+#define isc_no_recon                         335544353L
+#define isc_no_record                        335544354L
+#define isc_no_segstr_close                  335544355L
+#define isc_obsolete_metadata                335544356L
+#define isc_open_trans                       335544357L
+#define isc_port_len                         335544358L
+#define isc_read_only_field                  335544359L
+#define isc_read_only_rel                    335544360L
+#define isc_read_only_trans                  335544361L
+#define isc_read_only_view                   335544362L
+#define isc_req_no_trans                     335544363L
+#define isc_req_sync                         335544364L
+#define isc_req_wrong_db                     335544365L
+#define isc_segment                          335544366L
+#define isc_segstr_eof                       335544367L
+#define isc_segstr_no_op                     335544368L
+#define isc_segstr_no_read                   335544369L
+#define isc_segstr_no_trans                  335544370L
+#define isc_segstr_no_write                  335544371L
+#define isc_segstr_wrong_db                  335544372L
+#define isc_sys_request                      335544373L
+#define isc_stream_eof                       335544374L
+#define isc_unavailable                      335544375L
+#define isc_unres_rel                        335544376L
+#define isc_uns_ext                          335544377L
+#define isc_wish_list                        335544378L
+#define isc_wrong_ods                        335544379L
+#define isc_wronumarg                        335544380L
+#define isc_imp_exc                          335544381L
+#define isc_random                           335544382L
+#define isc_fatal_conflict                   335544383L
+#define isc_badblk                           335544384L
+#define isc_invpoolcl                        335544385L
+#define isc_nopoolids                        335544386L
+#define isc_relbadblk                        335544387L
+#define isc_blktoobig                        335544388L
+#define isc_bufexh                           335544389L
+#define isc_syntaxerr                        335544390L
+#define isc_bufinuse                         335544391L
+#define isc_bdbincon                         335544392L
+#define isc_reqinuse                         335544393L
+#define isc_badodsver                        335544394L
+#define isc_relnotdef                        335544395L
+#define isc_fldnotdef                        335544396L
+#define isc_dirtypage                        335544397L
+#define isc_waifortra                        335544398L
+#define isc_doubleloc                        335544399L
+#define isc_nodnotfnd                        335544400L
+#define isc_dupnodfnd                        335544401L
+#define isc_locnotmar                        335544402L
+#define isc_badpagtyp                        335544403L
+#define isc_corrupt                          335544404L
+#define isc_badpage                          335544405L
+#define isc_badindex                         335544406L
+#define isc_dbbnotzer                        335544407L
+#define isc_tranotzer                        335544408L
+#define isc_trareqmis                        335544409L
+#define isc_badhndcnt                        335544410L
+#define isc_wrotpbver                        335544411L
+#define isc_wroblrver                        335544412L
+#define isc_wrodpbver                        335544413L
+#define isc_blobnotsup                       335544414L
+#define isc_badrelation                      335544415L
+#define isc_nodetach                         335544416L
+#define isc_notremote                        335544417L
+#define isc_trainlim                         335544418L
+#define isc_notinlim                         335544419L
+#define isc_traoutsta                        335544420L
+#define isc_connect_reject                   335544421L
+#define isc_dbfile                           335544422L
+#define isc_orphan                           335544423L
+#define isc_no_lock_mgr                      335544424L
+#define isc_ctxinuse                         335544425L
+#define isc_ctxnotdef                        335544426L
+#define isc_datnotsup                        335544427L
+#define isc_badmsgnum                        335544428L
+#define isc_badparnum                        335544429L
+#define isc_virmemexh                        335544430L
+#define isc_blocking_signal                  335544431L
+#define isc_lockmanerr                       335544432L
+#define isc_journerr                         335544433L
+#define isc_keytoobig                        335544434L
+#define isc_nullsegkey                       335544435L
+#define isc_sqlerr                           335544436L
+#define isc_wrodynver                        335544437L
+#define isc_funnotdef                        335544438L
+#define isc_funmismat                        335544439L
+#define isc_bad_msg_vec                      335544440L
+#define isc_bad_detach                       335544441L
+#define isc_noargacc_read                    335544442L
+#define isc_noargacc_write                   335544443L
+#define isc_read_only                        335544444L
+#define isc_ext_err                          335544445L
+#define isc_non_updatable                    335544446L
+#define isc_no_rollback                      335544447L
+#define isc_bad_sec_info                     335544448L
+#define isc_invalid_sec_info                 335544449L
+#define isc_misc_interpreted                 335544450L
+#define isc_update_conflict                  335544451L
+#define isc_unlicensed                       335544452L
+#define isc_obj_in_use                       335544453L
+#define isc_nofilter                         335544454L
+#define isc_shadow_accessed                  335544455L
+#define isc_invalid_sdl                      335544456L
+#define isc_out_of_bounds                    335544457L
+#define isc_invalid_dimension                335544458L
+#define isc_rec_in_limbo                     335544459L
+#define isc_shadow_missing                   335544460L
+#define isc_cant_validate                    335544461L
+#define isc_cant_start_journal               335544462L
+#define isc_gennotdef                        335544463L
+#define isc_cant_start_logging               335544464L
+#define isc_bad_segstr_type                  335544465L
+#define isc_foreign_key                      335544466L
+#define isc_high_minor                       335544467L
+#define isc_tra_state                        335544468L
+#define isc_trans_invalid                    335544469L
+#define isc_buf_invalid                      335544470L
+#define isc_indexnotdefined                  335544471L
+#define isc_login                            335544472L
+#define isc_invalid_bookmark                 335544473L
+#define isc_bad_lock_level                   335544474L
+#define isc_relation_lock                    335544475L
+#define isc_record_lock                      335544476L
+#define isc_max_idx                          335544477L
+#define isc_jrn_enable                       335544478L
+#define isc_old_failure                      335544479L
+#define isc_old_in_progress                  335544480L
+#define isc_old_no_space                     335544481L
+#define isc_no_wal_no_jrn                    335544482L
+#define isc_num_old_files                    335544483L
+#define isc_wal_file_open                    335544484L
+#define isc_bad_stmt_handle                  335544485L
+#define isc_wal_failure                      335544486L
+#define isc_walw_err                         335544487L
+#define isc_logh_small                       335544488L
+#define isc_logh_inv_version                 335544489L
+#define isc_logh_open_flag                   335544490L
+#define isc_logh_open_flag2                  335544491L
+#define isc_logh_diff_dbname                 335544492L
+#define isc_logf_unexpected_eof              335544493L
+#define isc_logr_incomplete                  335544494L
+#define isc_logr_header_small                335544495L
+#define isc_logb_small                       335544496L
+#define isc_wal_illegal_attach               335544497L
+#define isc_wal_invalid_wpb                  335544498L
+#define isc_wal_err_rollover                 335544499L
+#define isc_no_wal                           335544500L
+#define isc_drop_wal                         335544501L
+#define isc_stream_not_defined               335544502L
+#define isc_wal_subsys_error                 335544503L
+#define isc_wal_subsys_corrupt               335544504L
+#define isc_no_archive                       335544505L
+#define isc_shutinprog                       335544506L
+#define isc_range_in_use                     335544507L
+#define isc_range_not_found                  335544508L
+#define isc_charset_not_found                335544509L
+#define isc_lock_timeout                     335544510L
+#define isc_prcnotdef                        335544511L
+#define isc_prcmismat                        335544512L
+#define isc_wal_bugcheck                     335544513L
+#define isc_wal_cant_expand                  335544514L
+#define isc_codnotdef                        335544515L
+#define isc_xcpnotdef                        335544516L
+#define isc_except                           335544517L
+#define isc_cache_restart                    335544518L
+#define isc_bad_lock_handle                  335544519L
+#define isc_jrn_present                      335544520L
+#define isc_wal_err_rollover2                335544521L
+#define isc_wal_err_logwrite                 335544522L
+#define isc_wal_err_jrn_comm                 335544523L
+#define isc_wal_err_expansion                335544524L
+#define isc_wal_err_setup                    335544525L
+#define isc_wal_err_ww_sync                  335544526L
+#define isc_wal_err_ww_start                 335544527L
+#define isc_shutdown                         335544528L
+#define isc_existing_priv_mod                335544529L
+#define isc_primary_key_ref                  335544530L
+#define isc_primary_key_notnull              335544531L
+#define isc_ref_cnstrnt_notfound             335544532L
+#define isc_foreign_key_notfound             335544533L
+#define isc_ref_cnstrnt_update               335544534L
+#define isc_check_cnstrnt_update             335544535L
+#define isc_check_cnstrnt_del                335544536L
+#define isc_integ_index_seg_del              335544537L
+#define isc_integ_index_seg_mod              335544538L
+#define isc_integ_index_del                  335544539L
+#define isc_integ_index_mod                  335544540L
+#define isc_check_trig_del                   335544541L
+#define isc_check_trig_update                335544542L
+#define isc_cnstrnt_fld_del                  335544543L
+#define isc_cnstrnt_fld_rename               335544544L
+#define isc_rel_cnstrnt_update               335544545L
+#define isc_constaint_on_view                335544546L
+#define isc_invld_cnstrnt_type               335544547L
+#define isc_primary_key_exists               335544548L
+#define isc_systrig_update                   335544549L
+#define isc_not_rel_owner                    335544550L
+#define isc_grant_obj_notfound               335544551L
+#define isc_grant_fld_notfound               335544552L
+#define isc_grant_nopriv                     335544553L
+#define isc_nonsql_security_rel              335544554L
+#define isc_nonsql_security_fld              335544555L
+#define isc_wal_cache_err                    335544556L
+#define isc_shutfail                         335544557L
+#define isc_check_constraint                 335544558L
+#define isc_bad_svc_handle                   335544559L
+#define isc_shutwarn                         335544560L
+#define isc_wrospbver                        335544561L
+#define isc_bad_spb_form                     335544562L
+#define isc_svcnotdef                        335544563L
+#define isc_no_jrn                           335544564L
+#define isc_transliteration_failed           335544565L
+#define isc_start_cm_for_wal                 335544566L
+#define isc_wal_ovflow_log_required          335544567L
+#define isc_text_subtype                     335544568L
+#define isc_dsql_error                       335544569L
+#define isc_dsql_command_err                 335544570L
+#define isc_dsql_constant_err                335544571L
+#define isc_dsql_cursor_err                  335544572L
+#define isc_dsql_datatype_err                335544573L
+#define isc_dsql_decl_err                    335544574L
+#define isc_dsql_cursor_update_err           335544575L
+#define isc_dsql_cursor_open_err             335544576L
+#define isc_dsql_cursor_close_err            335544577L
+#define isc_dsql_field_err                   335544578L
+#define isc_dsql_internal_err                335544579L
+#define isc_dsql_relation_err                335544580L
+#define isc_dsql_procedure_err               335544581L
+#define isc_dsql_request_err                 335544582L
+#define isc_dsql_sqlda_err                   335544583L
+#define isc_dsql_var_count_err               335544584L
+#define isc_dsql_stmt_handle                 335544585L
+#define isc_dsql_function_err                335544586L
+#define isc_dsql_blob_err                    335544587L
+#define isc_collation_not_found              335544588L
+#define isc_collation_not_for_charset        335544589L
+#define isc_dsql_dup_option                  335544590L
+#define isc_dsql_tran_err                    335544591L
+#define isc_dsql_invalid_array               335544592L
+#define isc_dsql_max_arr_dim_exceeded        335544593L
+#define isc_dsql_arr_range_error             335544594L
+#define isc_dsql_trigger_err                 335544595L
+#define isc_dsql_subselect_err               335544596L
+#define isc_dsql_crdb_prepare_err            335544597L
+#define isc_specify_field_err                335544598L
+#define isc_num_field_err                    335544599L
+#define isc_col_name_err                     335544600L
+#define isc_where_err                        335544601L
+#define isc_table_view_err                   335544602L
+#define isc_distinct_err                     335544603L
+#define isc_key_field_count_err              335544604L
+#define isc_subquery_err                     335544605L
+#define isc_expression_eval_err              335544606L
+#define isc_node_err                         335544607L
+#define isc_command_end_err                  335544608L
+#define isc_index_name                       335544609L
+#define isc_exception_name                   335544610L
+#define isc_field_name                       335544611L
+#define isc_token_err                        335544612L
+#define isc_union_err                        335544613L
+#define isc_dsql_construct_err               335544614L
+#define isc_field_aggregate_err              335544615L
+#define isc_field_ref_err                    335544616L
+#define isc_order_by_err                     335544617L
+#define isc_return_mode_err                  335544618L
+#define isc_extern_func_err                  335544619L
+#define isc_alias_conflict_err               335544620L
+#define isc_procedure_conflict_error         335544621L
+#define isc_relation_conflict_err            335544622L
+#define isc_dsql_domain_err                  335544623L
+#define isc_idx_seg_err                      335544624L
+#define isc_node_name_err                    335544625L
+#define isc_table_name                       335544626L
+#define isc_proc_name                        335544627L
+#define isc_idx_create_err                   335544628L
+#define isc_wal_shadow_err                   335544629L
+#define isc_dependency                       335544630L
+#define isc_idx_key_err                      335544631L
+#define isc_dsql_file_length_err             335544632L
+#define isc_dsql_shadow_number_err           335544633L
+#define isc_dsql_token_unk_err               335544634L
+#define isc_dsql_no_relation_alias           335544635L
+#define isc_indexname                        335544636L
+#define isc_no_stream_plan                   335544637L
+#define isc_stream_twice                     335544638L
+#define isc_stream_not_found                 335544639L
+#define isc_collation_requires_text          335544640L
+#define isc_dsql_domain_not_found            335544641L
+#define isc_index_unused                     335544642L
+#define isc_dsql_self_join                   335544643L
+#define isc_stream_bof                       335544644L
+#define isc_stream_crack                     335544645L
+#define isc_db_or_file_exists                335544646L
+#define isc_invalid_operator                 335544647L
+#define isc_conn_lost                        335544648L
+#define isc_bad_checksum                     335544649L
+#define isc_page_type_err                    335544650L
+#define isc_ext_readonly_err                 335544651L
+#define isc_sing_select_err                  335544652L
+#define isc_psw_attach                       335544653L
+#define isc_psw_start_trans                  335544654L
+#define isc_invalid_direction                335544655L
+#define isc_dsql_var_conflict                335544656L
+#define isc_dsql_no_blob_array               335544657L
+#define isc_dsql_base_table                  335544658L
+#define isc_duplicate_base_table             335544659L
+#define isc_view_alias                       335544660L
+#define isc_index_root_page_full             335544661L
+#define isc_dsql_blob_type_unknown           335544662L
+#define isc_req_max_clones_exceeded          335544663L
+#define isc_dsql_duplicate_spec              335544664L
+#define isc_unique_key_violation             335544665L
+#define isc_srvr_version_too_old             335544666L
+#define isc_drdb_completed_with_errs         335544667L
+#define isc_dsql_procedure_use_err           335544668L
+#define isc_dsql_count_mismatch              335544669L
+#define isc_blob_idx_err                     335544670L
+#define isc_array_idx_err                    335544671L
+#define isc_key_field_err                    335544672L
+#define isc_no_delete                        335544673L
+#define isc_del_last_field                   335544674L
+#define isc_sort_err                         335544675L
+#define isc_sort_mem_err                     335544676L
+#define isc_version_err                      335544677L
+#define isc_inval_key_posn                   335544678L
+#define isc_no_segments_err                  335544679L
+#define isc_crrp_data_err                    335544680L
+#define isc_rec_size_err                     335544681L
+#define isc_dsql_field_ref                   335544682L
+#define isc_req_depth_exceeded               335544683L
+#define isc_no_field_access                  335544684L
+#define isc_no_dbkey                         335544685L
+#define isc_jrn_format_err                   335544686L
+#define isc_jrn_file_full                    335544687L
+#define isc_dsql_open_cursor_request         335544688L
+#define isc_ib_error                         335544689L
+#define isc_cache_redef                      335544690L
+#define isc_cache_too_small                  335544691L
+#define isc_log_redef                        335544692L
+#define isc_log_too_small                    335544693L
+#define isc_partition_too_small              335544694L
+#define isc_partition_not_supp               335544695L
+#define isc_log_length_spec                  335544696L
+#define isc_precision_err                    335544697L
+#define isc_scale_nogt                       335544698L
+#define isc_expec_short                      335544699L
+#define isc_expec_long                       335544700L
+#define isc_expec_ushort                     335544701L
+#define isc_like_escape_invalid              335544702L
+#define isc_svcnoexe                         335544703L
+#define isc_net_lookup_err                   335544704L
+#define isc_service_unknown                  335544705L
+#define isc_host_unknown                     335544706L
+#define isc_grant_nopriv_on_base             335544707L
+#define isc_dyn_fld_ambiguous                335544708L
+#define isc_dsql_agg_ref_err                 335544709L
+#define isc_complex_view                     335544710L
+#define isc_unprepared_stmt                  335544711L
+#define isc_expec_positive                   335544712L
+#define isc_dsql_sqlda_value_err             335544713L
+#define isc_invalid_array_id                 335544714L
+#define isc_extfile_uns_op                   335544715L
+#define isc_svc_in_use                       335544716L
+#define isc_err_stack_limit                  335544717L
+#define isc_invalid_key                      335544718L
+#define isc_net_init_error                   335544719L
+#define isc_loadlib_failure                  335544720L
+#define isc_network_error                    335544721L
+#define isc_net_connect_err                  335544722L
+#define isc_net_connect_listen_err           335544723L
+#define isc_net_event_connect_err            335544724L
+#define isc_net_event_listen_err             335544725L
+#define isc_net_read_err                     335544726L
+#define isc_net_write_err                    335544727L
+#define isc_integ_index_deactivate           335544728L
+#define isc_integ_deactivate_primary         335544729L
+#define isc_cse_not_supported                335544730L
+#define isc_tra_must_sweep                   335544731L
+#define isc_unsupported_network_drive        335544732L
+#define isc_io_create_err                    335544733L
+#define isc_io_open_err                      335544734L
+#define isc_io_close_err                     335544735L
+#define isc_io_read_err                      335544736L
+#define isc_io_write_err                     335544737L
+#define isc_io_delete_err                    335544738L
+#define isc_io_access_err                    335544739L
+#define isc_udf_exception                    335544740L
+#define isc_lost_db_connection               335544741L
+#define isc_no_write_user_priv               335544742L
+#define isc_token_too_long                   335544743L
+#define isc_max_att_exceeded                 335544744L
+#define isc_login_same_as_role_name          335544745L
+#define isc_reftable_requires_pk             335544746L
+#define isc_usrname_too_long                 335544747L
+#define isc_password_too_long                335544748L
+#define isc_usrname_required                 335544749L
+#define isc_password_required                335544750L
+#define isc_bad_protocol                     335544751L
+#define isc_dup_usrname_found                335544752L
+#define isc_usrname_not_found                335544753L
+#define isc_error_adding_sec_record          335544754L
+#define isc_error_modifying_sec_record       335544755L
+#define isc_error_deleting_sec_record        335544756L
+#define isc_error_updating_sec_db            335544757L
+#define isc_sort_rec_size_err                335544758L
+#define isc_bad_default_value                335544759L
+#define isc_invalid_clause                   335544760L
+#define isc_too_many_handles                 335544761L
+#define isc_optimizer_blk_exc                335544762L
+#define isc_invalid_string_constant          335544763L
+#define isc_transitional_date                335544764L
+#define isc_read_only_database               335544765L
+#define isc_must_be_dialect_2_and_up         335544766L
+#define isc_blob_filter_exception            335544767L
+#define isc_exception_access_violation       335544768L
+#define isc_exception_datatype_missalignment 335544769L
+#define isc_exception_array_bounds_exceeded  335544770L
+#define isc_exception_float_denormal_operand 335544771L
+#define isc_exception_float_divide_by_zero   335544772L
+#define isc_exception_float_inexact_result   335544773L
+#define isc_exception_float_invalid_operand  335544774L
+#define isc_exception_float_overflow         335544775L
+#define isc_exception_float_stack_check      335544776L
+#define isc_exception_float_underflow        335544777L
+#define isc_exception_integer_divide_by_zero 335544778L
+#define isc_exception_integer_overflow       335544779L
+#define isc_exception_unknown                335544780L
+#define isc_exception_stack_overflow         335544781L
+#define isc_exception_sigsegv                335544782L
+#define isc_exception_sigill                 335544783L
+#define isc_exception_sigbus                 335544784L
+#define isc_exception_sigfpe                 335544785L
+#define isc_ext_file_delete                  335544786L
+#define isc_ext_file_modify                  335544787L
+#define isc_adm_task_denied                  335544788L
+#define isc_extract_input_mismatch           335544789L
+#define isc_insufficient_svc_privileges      335544790L
+#define isc_file_in_use                      335544791L
+#define isc_service_att_err                  335544792L
+#define isc_ddl_not_allowed_by_db_sql_dial   335544793L
+#define isc_cancelled                        335544794L
+#define isc_unexp_spb_form                   335544795L
+#define isc_sql_dialect_datatype_unsupport   335544796L
+#define isc_svcnouser                        335544797L
+#define isc_depend_on_uncommitted_rel        335544798L
+#define isc_svc_name_missing                 335544799L
+#define isc_too_many_contexts                335544800L
+#define isc_datype_notsup                    335544801L
+#define isc_dialect_reset_warning            335544802L
+#define isc_dialect_not_changed              335544803L
+#define isc_database_create_failed           335544804L
+#define isc_inv_dialect_specified            335544805L
+#define isc_valid_db_dialects                335544806L
+#define isc_sqlwarn                          335544807L
+#define isc_dtype_renamed                    335544808L
+#define isc_extern_func_dir_error            335544809L
+#define isc_date_range_exceeded              335544810L
+#define isc_inv_client_dialect_specified     335544811L
+#define isc_valid_client_dialects            335544812L
+#define isc_optimizer_between_err            335544813L
+#define isc_service_not_supported            335544814L
+#define isc_gfix_db_name                     335740929L
+#define isc_gfix_invalid_sw                  335740930L
+#define isc_gfix_incmp_sw                    335740932L
+#define isc_gfix_replay_req                  335740933L
+#define isc_gfix_pgbuf_req                   335740934L
+#define isc_gfix_val_req                     335740935L
+#define isc_gfix_pval_req                    335740936L
+#define isc_gfix_trn_req                     335740937L
+#define isc_gfix_full_req                    335740940L
+#define isc_gfix_usrname_req                 335740941L
+#define isc_gfix_pass_req                    335740942L
+#define isc_gfix_subs_name                   335740943L
+#define isc_gfix_wal_req                     335740944L
+#define isc_gfix_sec_req                     335740945L
+#define isc_gfix_nval_req                    335740946L
+#define isc_gfix_type_shut                   335740947L
+#define isc_gfix_retry                       335740948L
+#define isc_gfix_retry_db                    335740951L
+#define isc_gfix_exceed_max                  335740991L
+#define isc_gfix_corrupt_pool                335740992L
+#define isc_gfix_mem_exhausted               335740993L
+#define isc_gfix_bad_pool                    335740994L
+#define isc_gfix_trn_not_valid               335740995L
+#define isc_gfix_unexp_eoi                   335741012L
+#define isc_gfix_recon_fail                  335741018L
+#define isc_gfix_trn_unknown                 335741036L
+#define isc_gfix_mode_req                    335741038L
+#define isc_gfix_opt_SQL_dialect             335741039L
+#define isc_dsql_dbkey_from_non_table        336003074L
+#define isc_dsql_transitional_numeric        336003075L
+#define isc_dsql_dialect_warning_expr        336003076L
+#define isc_sql_db_dialect_dtype_unsupport   336003077L
+#define isc_isc_sql_dialect_conflict_num     336003079L
+#define isc_dsql_warning_number_ambiguous    336003080L
+#define isc_dsql_warning_number_ambiguous1   336003081L
+#define isc_dsql_warn_precision_ambiguous    336003082L
+#define isc_dsql_warn_precision_ambiguous1   336003083L
+#define isc_dsql_warn_precision_ambiguous2   336003084L
+#define isc_dyn_role_does_not_exist          336068796L
+#define isc_dyn_no_grant_admin_opt           336068797L
+#define isc_dyn_user_not_role_member         336068798L
+#define isc_dyn_delete_role_failed           336068799L
+#define isc_dyn_grant_role_to_user           336068800L
+#define isc_dyn_inv_sql_role_name            336068801L
+#define isc_dyn_dup_sql_role                 336068802L
+#define isc_dyn_kywd_spec_for_role           336068803L
+#define isc_dyn_roles_not_supported          336068804L
+#define isc_dyn_domain_name_exists           336068812L
+#define isc_dyn_field_name_exists            336068813L
+#define isc_dyn_dependency_exists            336068814L
+#define isc_dyn_dtype_invalid                336068815L
+#define isc_dyn_char_fld_too_small           336068816L
+#define isc_dyn_invalid_dtype_conversion     336068817L
+#define isc_dyn_dtype_conv_invalid           336068818L
+#define isc_gbak_unknown_switch              336330753L
+#define isc_gbak_page_size_missing           336330754L
+#define isc_gbak_page_size_toobig            336330755L
+#define isc_gbak_redir_ouput_missing         336330756L
+#define isc_gbak_switches_conflict           336330757L
+#define isc_gbak_unknown_device              336330758L
+#define isc_gbak_no_protection               336330759L
+#define isc_gbak_page_size_not_allowed       336330760L
+#define isc_gbak_multi_source_dest           336330761L
+#define isc_gbak_filename_missing            336330762L
+#define isc_gbak_dup_inout_names             336330763L
+#define isc_gbak_inv_page_size               336330764L
+#define isc_gbak_db_specified                336330765L
+#define isc_gbak_db_exists                   336330766L
+#define isc_gbak_unk_device                  336330767L
+#define isc_gbak_blob_info_failed            336330772L
+#define isc_gbak_unk_blob_item               336330773L
+#define isc_gbak_get_seg_failed              336330774L
+#define isc_gbak_close_blob_failed           336330775L
+#define isc_gbak_open_blob_failed            336330776L
+#define isc_gbak_put_blr_gen_id_failed       336330777L
+#define isc_gbak_unk_type                    336330778L
+#define isc_gbak_comp_req_failed             336330779L
+#define isc_gbak_start_req_failed            336330780L
+#define isc_gbak_rec_failed                  336330781L
+#define isc_gbak_rel_req_failed              336330782L
+#define isc_gbak_db_info_failed              336330783L
+#define isc_gbak_no_db_desc                  336330784L
+#define isc_gbak_db_create_failed            336330785L
+#define isc_gbak_decomp_len_error            336330786L
+#define isc_gbak_tbl_missing                 336330787L
+#define isc_gbak_blob_col_missing            336330788L
+#define isc_gbak_create_blob_failed          336330789L
+#define isc_gbak_put_seg_failed              336330790L
+#define isc_gbak_rec_len_exp                 336330791L
+#define isc_gbak_inv_rec_len                 336330792L
+#define isc_gbak_exp_data_type               336330793L
+#define isc_gbak_gen_id_failed               336330794L
+#define isc_gbak_unk_rec_type                336330795L
+#define isc_gbak_inv_bkup_ver                336330796L
+#define isc_gbak_missing_bkup_desc           336330797L
+#define isc_gbak_string_trunc                336330798L
+#define isc_gbak_cant_rest_record            336330799L
+#define isc_gbak_send_failed                 336330800L
+#define isc_gbak_no_tbl_name                 336330801L
+#define isc_gbak_unexp_eof                   336330802L
+#define isc_gbak_db_format_too_old           336330803L
+#define isc_gbak_inv_array_dim               336330804L
+#define isc_gbak_xdr_len_expected            336330807L
+#define isc_gbak_open_bkup_error             336330817L
+#define isc_gbak_open_error                  336330818L
+#define isc_gbak_missing_block_fac           336330934L
+#define isc_gbak_inv_block_fac               336330935L
+#define isc_gbak_block_fac_specified         336330936L
+#define isc_gbak_missing_username            336330940L
+#define isc_gbak_missing_password            336330941L
+#define isc_gbak_missing_skipped_bytes       336330952L
+#define isc_gbak_inv_skipped_bytes           336330953L
+#define isc_gbak_err_restore_charset         336330965L
+#define isc_gbak_err_restore_collation       336330967L
+#define isc_gbak_read_error                  336330972L
+#define isc_gbak_write_error                 336330973L
+#define isc_gbak_db_in_use                   336330985L
+#define isc_gbak_sysmemex                    336330990L
+#define isc_gbak_restore_role_failed         336331002L
+#define isc_gbak_role_op_missing             336331005L
+#define isc_gbak_page_buffers_missing        336331010L
+#define isc_gbak_page_buffers_wrong_param    336331011L
+#define isc_gbak_page_buffers_restore        336331012L
+#define isc_gbak_inv_size                    336331014L
+#define isc_gbak_file_outof_sequence         336331015L
+#define isc_gbak_join_file_missing           336331016L
+#define isc_gbak_stdin_not_supptd            336331017L
+#define isc_gbak_stdout_not_supptd           336331018L
+#define isc_gbak_bkup_corrupt                336331019L
+#define isc_gbak_unk_db_file_spec            336331020L
+#define isc_gbak_hdr_write_failed            336331021L
+#define isc_gbak_disk_space_ex               336331022L
+#define isc_gbak_size_lt_min                 336331023L
+#define isc_gbak_svc_name_missing            336331025L
+#define isc_gbak_not_ownr                    336331026L
+#define isc_gbak_mode_req                    336331031L
+#define isc_gsec_cant_open_db                336723983L
+#define isc_gsec_switches_error              336723984L
+#define isc_gsec_no_op_spec                  336723985L
+#define isc_gsec_no_usr_name                 336723986L
+#define isc_gsec_err_add                     336723987L
+#define isc_gsec_err_modify                  336723988L
+#define isc_gsec_err_find_mod                336723989L
+#define isc_gsec_err_rec_not_found           336723990L
+#define isc_gsec_err_delete                  336723991L
+#define isc_gsec_err_find_del                336723992L
+#define isc_gsec_err_find_disp               336723996L
+#define isc_gsec_inv_param                   336723997L
+#define isc_gsec_op_specified                336723998L
+#define isc_gsec_pw_specified                336723999L
+#define isc_gsec_uid_specified               336724000L
+#define isc_gsec_gid_specified               336724001L
+#define isc_gsec_proj_specified              336724002L
+#define isc_gsec_org_specified               336724003L
+#define isc_gsec_fname_specified             336724004L
+#define isc_gsec_mname_specified             336724005L
+#define isc_gsec_lname_specified             336724006L
+#define isc_gsec_inv_switch                  336724008L
+#define isc_gsec_amb_switch                  336724009L
+#define isc_gsec_no_op_specified             336724010L
+#define isc_gsec_params_not_allowed          336724011L
+#define isc_gsec_incompat_switch             336724012L
+#define isc_gsec_inv_username                336724044L
+#define isc_gsec_inv_pw_length               336724045L
+#define isc_gsec_db_specified                336724046L
+#define isc_gsec_db_admin_specified          336724047L
+#define isc_gsec_db_admin_pw_specified       336724048L
+#define isc_gsec_sql_role_specified          336724049L
+#define isc_license_no_file                  336789504L
+#define isc_license_op_specified             336789523L
+#define isc_license_op_missing               336789524L
+#define isc_license_inv_switch               336789525L
+#define isc_license_inv_switch_combo         336789526L
+#define isc_license_inv_op_combo             336789527L
+#define isc_license_amb_switch               336789528L
+#define isc_license_inv_parameter            336789529L
+#define isc_license_param_specified          336789530L
+#define isc_license_param_req                336789531L
+#define isc_license_syntx_error              336789532L
+#define isc_license_dup_id                   336789534L
+#define isc_license_inv_id_key               336789535L
+#define isc_license_err_remove               336789536L
+#define isc_license_err_update               336789537L
+#define isc_license_err_convert              336789538L
+#define isc_license_err_unk                  336789539L
+#define isc_license_svc_err_add              336789540L
+#define isc_license_svc_err_remove           336789541L
+#define isc_license_eval_exists              336789563L
+#define isc_gstat_unknown_switch             336920577L
+#define isc_gstat_retry                      336920578L
+#define isc_gstat_wrong_ods                  336920579L
+#define isc_gstat_unexpected_eof             336920580L
+#define isc_gstat_open_err                   336920605L
+#define isc_gstat_read_err                   336920606L
+#define isc_gstat_sysmemex                   336920607L
+#define isc_err_max                          689
diff --git a/src/jrd/codetext.h b/src/jrd/codetext.h
new file mode 100644
index 0000000000..b1ae03e863
--- /dev/null
+++ b/src/jrd/codetext.h
@@ -0,0 +1,712 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+"arith_except", 335544321,
+	"bad_dbkey", 335544322,
+	"bad_db_format", 335544323,
+	"bad_db_handle", 335544324,
+	"bad_dpb_content", 335544325,
+	"bad_dpb_form", 335544326,
+	"bad_req_handle", 335544327,
+	"bad_segstr_handle", 335544328,
+	"bad_segstr_id", 335544329,
+	"bad_tpb_content", 335544330,
+	"bad_tpb_form", 335544331,
+	"bad_trans_handle", 335544332,
+	"bug_check", 335544333,
+	"convert_error", 335544334,
+	"db_corrupt", 335544335,
+	"deadlock", 335544336,
+	"excess_trans", 335544337,
+	"from_no_match", 335544338,
+	"infinap", 335544339,
+	"infona", 335544340,
+	"infunk", 335544341,
+	"integ_fail", 335544342,
+	"invalid_blr", 335544343,
+	"io_error", 335544344,
+	"lock_conflict", 335544345,
+	"metadata_corrupt", 335544346,
+	"not_valid", 335544347,
+	"no_cur_rec", 335544348,
+	"no_dup", 335544349,
+	"no_finish", 335544350,
+	"no_meta_update", 335544351,
+	"no_priv", 335544352,
+	"no_recon", 335544353,
+	"no_record", 335544354,
+	"no_segstr_close", 335544355,
+	"obsolete_metadata", 335544356,
+	"open_trans", 335544357,
+	"port_len", 335544358,
+	"read_only_field", 335544359,
+	"read_only_rel", 335544360,
+	"read_only_trans", 335544361,
+	"read_only_view", 335544362,
+	"req_no_trans", 335544363,
+	"req_sync", 335544364,
+	"req_wrong_db", 335544365,
+	"segment", 335544366,
+	"segstr_eof", 335544367,
+	"segstr_no_op", 335544368,
+	"segstr_no_read", 335544369,
+	"segstr_no_trans", 335544370,
+	"segstr_no_write", 335544371,
+	"segstr_wrong_db", 335544372,
+	"sys_request", 335544373,
+	"stream_eof", 335544374,
+	"unavailable", 335544375,
+	"unres_rel", 335544376,
+	"uns_ext", 335544377,
+	"wish_list", 335544378,
+	"wrong_ods", 335544379,
+	"wronumarg", 335544380,
+	"imp_exc", 335544381,
+	"random", 335544382,
+	"fatal_conflict", 335544383,
+	"badblk", 335544384,
+	"invpoolcl", 335544385,
+	"nopoolids", 335544386,
+	"relbadblk", 335544387,
+	"blktoobig", 335544388,
+	"bufexh", 335544389,
+	"syntaxerr", 335544390,
+	"bufinuse", 335544391,
+	"bdbincon", 335544392,
+	"reqinuse", 335544393,
+	"badodsver", 335544394,
+	"relnotdef", 335544395,
+	"fldnotdef", 335544396,
+	"dirtypage", 335544397,
+	"waifortra", 335544398,
+	"doubleloc", 335544399,
+	"nodnotfnd", 335544400,
+	"dupnodfnd", 335544401,
+	"locnotmar", 335544402,
+	"badpagtyp", 335544403,
+	"corrupt", 335544404,
+	"badpage", 335544405,
+	"badindex", 335544406,
+	"dbbnotzer", 335544407,
+	"tranotzer", 335544408,
+	"trareqmis", 335544409,
+	"badhndcnt", 335544410,
+	"wrotpbver", 335544411,
+	"wroblrver", 335544412,
+	"wrodpbver", 335544413,
+	"blobnotsup", 335544414,
+	"badrelation", 335544415,
+	"nodetach", 335544416,
+	"notremote", 335544417,
+	"trainlim", 335544418,
+	"notinlim", 335544419,
+	"traoutsta", 335544420,
+	"connect_reject", 335544421,
+	"dbfile", 335544422,
+	"orphan", 335544423,
+	"no_lock_mgr", 335544424,
+	"ctxinuse", 335544425,
+	"ctxnotdef", 335544426,
+	"datnotsup", 335544427,
+	"badmsgnum", 335544428,
+	"badparnum", 335544429,
+	"virmemexh", 335544430,
+	"blocking_signal", 335544431,
+	"lockmanerr", 335544432,
+	"journerr", 335544433,
+	"keytoobig", 335544434,
+	"nullsegkey", 335544435,
+	"sqlerr", 335544436,
+	"wrodynver", 335544437,
+	"funnotdef", 335544438,
+	"funmismat", 335544439,
+	"bad_msg_vec", 335544440,
+	"bad_detach", 335544441,
+	"noargacc_read", 335544442,
+	"noargacc_write", 335544443,
+	"read_only", 335544444,
+	"ext_err", 335544445,
+	"non_updatable", 335544446,
+	"no_rollback", 335544447,
+	"bad_sec_info", 335544448,
+	"invalid_sec_info", 335544449,
+	"misc_interpreted", 335544450,
+	"update_conflict", 335544451,
+	"unlicensed", 335544452,
+	"obj_in_use", 335544453,
+	"nofilter", 335544454,
+	"shadow_accessed", 335544455,
+	"invalid_sdl", 335544456,
+	"out_of_bounds", 335544457,
+	"invalid_dimension", 335544458,
+	"rec_in_limbo", 335544459,
+	"shadow_missing", 335544460,
+	"cant_validate", 335544461,
+	"cant_start_journal", 335544462,
+	"gennotdef", 335544463,
+	"cant_start_logging", 335544464,
+	"bad_segstr_type", 335544465,
+	"foreign_key", 335544466,
+	"high_minor", 335544467,
+	"tra_state", 335544468,
+	"trans_invalid", 335544469,
+	"buf_invalid", 335544470,
+	"indexnotdefined", 335544471,
+	"login", 335544472,
+	"invalid_bookmark", 335544473,
+	"bad_lock_level", 335544474,
+	"relation_lock", 335544475,
+	"record_lock", 335544476,
+	"max_idx", 335544477,
+	"jrn_enable", 335544478,
+	"old_failure", 335544479,
+	"old_in_progress", 335544480,
+	"old_no_space", 335544481,
+	"no_wal_no_jrn", 335544482,
+	"num_old_files", 335544483,
+	"wal_file_open", 335544484,
+	"bad_stmt_handle", 335544485,
+	"wal_failure", 335544486,
+	"walw_err", 335544487,
+	"logh_small", 335544488,
+	"logh_inv_version", 335544489,
+	"logh_open_flag", 335544490,
+	"logh_open_flag2", 335544491,
+	"logh_diff_dbname", 335544492,
+	"logf_unexpected_eof", 335544493,
+	"logr_incomplete", 335544494,
+	"logr_header_small", 335544495,
+	"logb_small", 335544496,
+	"wal_illegal_attach", 335544497,
+	"wal_invalid_wpb", 335544498,
+	"wal_err_rollover", 335544499,
+	"no_wal", 335544500,
+	"drop_wal", 335544501,
+	"stream_not_defined", 335544502,
+	"wal_subsys_error", 335544503,
+	"wal_subsys_corrupt", 335544504,
+	"no_archive", 335544505,
+	"shutinprog", 335544506,
+	"range_in_use", 335544507,
+	"range_not_found", 335544508,
+	"charset_not_found", 335544509,
+	"lock_timeout", 335544510,
+	"prcnotdef", 335544511,
+	"prcmismat", 335544512,
+	"wal_bugcheck", 335544513,
+	"wal_cant_expand", 335544514,
+	"codnotdef", 335544515,
+	"xcpnotdef", 335544516,
+	"except", 335544517,
+	"cache_restart", 335544518,
+	"bad_lock_handle", 335544519,
+	"jrn_present", 335544520,
+	"wal_err_rollover2", 335544521,
+	"wal_err_logwrite", 335544522,
+	"wal_err_jrn_comm", 335544523,
+	"wal_err_expansion", 335544524,
+	"wal_err_setup", 335544525,
+	"wal_err_ww_sync", 335544526,
+	"wal_err_ww_start", 335544527,
+	"shutdown", 335544528,
+	"existing_priv_mod", 335544529,
+	"primary_key_ref", 335544530,
+	"primary_key_notnull", 335544531,
+	"ref_cnstrnt_notfound", 335544532,
+	"foreign_key_notfound", 335544533,
+	"ref_cnstrnt_update", 335544534,
+	"check_cnstrnt_update", 335544535,
+	"check_cnstrnt_del", 335544536,
+	"integ_index_seg_del", 335544537,
+	"integ_index_seg_mod", 335544538,
+	"integ_index_del", 335544539,
+	"integ_index_mod", 335544540,
+	"check_trig_del", 335544541,
+	"check_trig_update", 335544542,
+	"cnstrnt_fld_del", 335544543,
+	"cnstrnt_fld_rename", 335544544,
+	"rel_cnstrnt_update", 335544545,
+	"constaint_on_view", 335544546,
+	"invld_cnstrnt_type", 335544547,
+	"primary_key_exists", 335544548,
+	"systrig_update", 335544549,
+	"not_rel_owner", 335544550,
+	"grant_obj_notfound", 335544551,
+	"grant_fld_notfound", 335544552,
+	"grant_nopriv", 335544553,
+	"nonsql_security_rel", 335544554,
+	"nonsql_security_fld", 335544555,
+	"wal_cache_err", 335544556,
+	"shutfail", 335544557,
+	"check_constraint", 335544558,
+	"bad_svc_handle", 335544559,
+	"shutwarn", 335544560,
+	"wrospbver", 335544561,
+	"bad_spb_form", 335544562,
+	"svcnotdef", 335544563,
+	"no_jrn", 335544564,
+	"transliteration_failed", 335544565,
+	"start_cm_for_wal", 335544566,
+	"wal_ovflow_log_required", 335544567,
+	"text_subtype", 335544568,
+	"dsql_error", 335544569,
+	"dsql_command_err", 335544570,
+	"dsql_constant_err", 335544571,
+	"dsql_cursor_err", 335544572,
+	"dsql_datatype_err", 335544573,
+	"dsql_decl_err", 335544574,
+	"dsql_cursor_update_err", 335544575,
+	"dsql_cursor_open_err", 335544576,
+	"dsql_cursor_close_err", 335544577,
+	"dsql_field_err", 335544578,
+	"dsql_internal_err", 335544579,
+	"dsql_relation_err", 335544580,
+	"dsql_procedure_err", 335544581,
+	"dsql_request_err", 335544582,
+	"dsql_sqlda_err", 335544583,
+	"dsql_var_count_err", 335544584,
+	"dsql_stmt_handle", 335544585,
+	"dsql_function_err", 335544586,
+	"dsql_blob_err", 335544587,
+	"collation_not_found", 335544588,
+	"collation_not_for_charset", 335544589,
+	"dsql_dup_option", 335544590,
+	"dsql_tran_err", 335544591,
+	"dsql_invalid_array", 335544592,
+	"dsql_max_arr_dim_exceeded", 335544593,
+	"dsql_arr_range_error", 335544594,
+	"dsql_trigger_err", 335544595,
+	"dsql_subselect_err", 335544596,
+	"dsql_crdb_prepare_err", 335544597,
+	"specify_field_err", 335544598,
+	"num_field_err", 335544599,
+	"col_name_err", 335544600,
+	"where_err", 335544601,
+	"table_view_err", 335544602,
+	"distinct_err", 335544603,
+	"key_field_count_err", 335544604,
+	"subquery_err", 335544605,
+	"expression_eval_err", 335544606,
+	"node_err", 335544607,
+	"command_end_err", 335544608,
+	"index_name", 335544609,
+	"exception_name", 335544610,
+	"field_name", 335544611,
+	"token_err", 335544612,
+	"union_err", 335544613,
+	"dsql_construct_err", 335544614,
+	"field_aggregate_err", 335544615,
+	"field_ref_err", 335544616,
+	"order_by_err", 335544617,
+	"return_mode_err", 335544618,
+	"extern_func_err", 335544619,
+	"alias_conflict_err", 335544620,
+	"procedure_conflict_error", 335544621,
+	"relation_conflict_err", 335544622,
+	"dsql_domain_err", 335544623,
+	"idx_seg_err", 335544624,
+	"node_name_err", 335544625,
+	"table_name", 335544626,
+	"proc_name", 335544627,
+	"idx_create_err", 335544628,
+	"wal_shadow_err", 335544629,
+	"dependency", 335544630,
+	"idx_key_err", 335544631,
+	"dsql_file_length_err", 335544632,
+	"dsql_shadow_number_err", 335544633,
+	"dsql_token_unk_err", 335544634,
+	"dsql_no_relation_alias", 335544635,
+	"indexname", 335544636,
+	"no_stream_plan", 335544637,
+	"stream_twice", 335544638,
+	"stream_not_found", 335544639,
+	"collation_requires_text", 335544640,
+	"dsql_domain_not_found", 335544641,
+	"index_unused", 335544642,
+	"dsql_self_join", 335544643,
+	"stream_bof", 335544644,
+	"stream_crack", 335544645,
+	"db_or_file_exists", 335544646,
+	"invalid_operator", 335544647,
+	"conn_lost", 335544648,
+	"bad_checksum", 335544649,
+	"page_type_err", 335544650,
+	"ext_readonly_err", 335544651,
+	"sing_select_err", 335544652,
+	"psw_attach", 335544653,
+	"psw_start_trans", 335544654,
+	"invalid_direction", 335544655,
+	"dsql_var_conflict", 335544656,
+	"dsql_no_blob_array", 335544657,
+	"dsql_base_table", 335544658,
+	"duplicate_base_table", 335544659,
+	"view_alias", 335544660,
+	"index_root_page_full", 335544661,
+	"dsql_blob_type_unknown", 335544662,
+	"req_max_clones_exceeded", 335544663,
+	"dsql_duplicate_spec", 335544664,
+	"unique_key_violation", 335544665,
+	"srvr_version_too_old", 335544666,
+	"drdb_completed_with_errs", 335544667,
+	"dsql_procedure_use_err", 335544668,
+	"dsql_count_mismatch", 335544669,
+	"blob_idx_err", 335544670,
+	"array_idx_err", 335544671,
+	"key_field_err", 335544672,
+	"no_delete", 335544673,
+	"del_last_field", 335544674,
+	"sort_err", 335544675,
+	"sort_mem_err", 335544676,
+	"version_err", 335544677,
+	"inval_key_posn", 335544678,
+	"no_segments_err", 335544679,
+	"crrp_data_err", 335544680,
+	"rec_size_err", 335544681,
+	"dsql_field_ref", 335544682,
+	"req_depth_exceeded", 335544683,
+	"no_field_access", 335544684,
+	"no_dbkey", 335544685,
+	"jrn_format_err", 335544686,
+	"jrn_file_full", 335544687,
+	"dsql_open_cursor_request", 335544688,
+	"ib_error", 335544689,
+	"cache_redef", 335544690,
+	"cache_too_small", 335544691,
+	"log_redef", 335544692,
+	"log_too_small", 335544693,
+	"partition_too_small", 335544694,
+	"partition_not_supp", 335544695,
+	"log_length_spec", 335544696,
+	"precision_err", 335544697,
+	"scale_nogt", 335544698,
+	"expec_short", 335544699,
+	"expec_long", 335544700,
+	"expec_ushort", 335544701,
+	"like_escape_invalid", 335544702,
+	"svcnoexe", 335544703,
+	"net_lookup_err", 335544704,
+	"service_unknown", 335544705,
+	"host_unknown", 335544706,
+	"grant_nopriv_on_base", 335544707,
+	"dyn_fld_ambiguous", 335544708,
+	"dsql_agg_ref_err", 335544709,
+	"complex_view", 335544710,
+	"unprepared_stmt", 335544711,
+	"expec_positive", 335544712,
+	"dsql_sqlda_value_err", 335544713,
+	"invalid_array_id", 335544714,
+	"extfile_uns_op", 335544715,
+	"svc_in_use", 335544716,
+	"err_stack_limit", 335544717,
+	"invalid_key", 335544718,
+	"net_init_error", 335544719,
+	"loadlib_failure", 335544720,
+	"network_error", 335544721,
+	"net_connect_err", 335544722,
+	"net_connect_listen_err", 335544723,
+	"net_event_connect_err", 335544724,
+	"net_event_listen_err", 335544725,
+	"net_read_err", 335544726,
+	"net_write_err", 335544727,
+	"integ_index_deactivate", 335544728,
+	"integ_deactivate_primary", 335544729,
+	"cse_not_supported", 335544730,
+	"tra_must_sweep", 335544731,
+	"unsupported_network_drive", 335544732,
+	"io_create_err", 335544733,
+	"io_open_err", 335544734,
+	"io_close_err", 335544735,
+	"io_read_err", 335544736,
+	"io_write_err", 335544737,
+	"io_delete_err", 335544738,
+	"io_access_err", 335544739,
+	"udf_exception", 335544740,
+	"lost_db_connection", 335544741,
+	"no_write_user_priv", 335544742,
+	"token_too_long", 335544743,
+	"max_att_exceeded", 335544744,
+	"login_same_as_role_name", 335544745,
+	"reftable_requires_pk", 335544746,
+	"usrname_too_long", 335544747,
+	"password_too_long", 335544748,
+	"usrname_required", 335544749,
+	"password_required", 335544750,
+	"bad_protocol", 335544751,
+	"dup_usrname_found", 335544752,
+	"usrname_not_found", 335544753,
+	"error_adding_sec_record", 335544754,
+	"error_modifying_sec_record", 335544755,
+	"error_deleting_sec_record", 335544756,
+	"error_updating_sec_db", 335544757,
+	"sort_rec_size_err", 335544758,
+	"bad_default_value", 335544759,
+	"invalid_clause", 335544760,
+	"too_many_handles", 335544761,
+	"optimizer_blk_exc", 335544762,
+	"invalid_string_constant", 335544763,
+	"transitional_date", 335544764,
+	"read_only_database", 335544765,
+	"must_be_dialect_2_and_up", 335544766,
+	"blob_filter_exception", 335544767,
+	"exception_access_violation", 335544768,
+	"exception_datatype_missalignmen", 335544769,
+	"exception_array_bounds_exceeded", 335544770,
+	"exception_float_denormal_operan", 335544771,
+	"exception_float_divide_by_zero", 335544772,
+	"exception_float_inexact_result", 335544773,
+	"exception_float_invalid_operand", 335544774,
+	"exception_float_overflow", 335544775,
+	"exception_float_stack_check", 335544776,
+	"exception_float_underflow", 335544777,
+	"exception_integer_divide_by_zer", 335544778,
+	"exception_integer_overflow", 335544779,
+	"exception_unknown", 335544780,
+	"exception_stack_overflow", 335544781,
+	"exception_sigsegv", 335544782,
+	"exception_sigill", 335544783,
+	"exception_sigbus", 335544784,
+	"exception_sigfpe", 335544785,
+	"ext_file_delete", 335544786,
+	"ext_file_modify", 335544787,
+	"adm_task_denied", 335544788,
+	"extract_input_mismatch", 335544789,
+	"insufficient_svc_privileges", 335544790,
+	"file_in_use", 335544791,
+	"service_att_err", 335544792,
+	"ddl_not_allowed_by_db_sql_dial", 335544793,
+	"cancelled", 335544794,
+	"unexp_spb_form", 335544795,
+	"sql_dialect_datatype_unsupport", 335544796,
+	"svcnouser", 335544797,
+	"depend_on_uncommitted_rel", 335544798,
+	"svc_name_missing", 335544799,
+	"too_many_contexts", 335544800,
+	"datype_notsup", 335544801,
+	"dialect_reset_warning", 335544802,
+	"dialect_not_changed", 335544803,
+	"database_create_failed", 335544804,
+	"inv_dialect_specified", 335544805,
+	"valid_db_dialects", 335544806,
+	"sqlwarn", 335544807,
+	"dtype_renamed", 335544808,
+	"extern_func_dir_error", 335544809,
+	"date_range_exceeded", 335544810,
+	"inv_client_dialect_specified", 335544811,
+	"valid_client_dialects", 335544812,
+	"optimizer_between_err", 335544813,
+	"service_not_supported", 335544814,
+	"gfix_db_name", 335740929,
+	"gfix_invalid_sw", 335740930,
+	"gfix_incmp_sw", 335740932,
+	"gfix_replay_req", 335740933,
+	"gfix_pgbuf_req", 335740934,
+	"gfix_val_req", 335740935,
+	"gfix_pval_req", 335740936,
+	"gfix_trn_req", 335740937,
+	"gfix_full_req", 335740940,
+	"gfix_usrname_req", 335740941,
+	"gfix_pass_req", 335740942,
+	"gfix_subs_name", 335740943,
+	"gfix_wal_req", 335740944,
+	"gfix_sec_req", 335740945,
+	"gfix_nval_req", 335740946,
+	"gfix_type_shut", 335740947,
+	"gfix_retry", 335740948,
+	"gfix_retry_db", 335740951,
+	"gfix_exceed_max", 335740991,
+	"gfix_corrupt_pool", 335740992,
+	"gfix_mem_exhausted", 335740993,
+	"gfix_bad_pool", 335740994,
+	"gfix_trn_not_valid", 335740995,
+	"gfix_unexp_eoi", 335741012,
+	"gfix_recon_fail", 335741018,
+	"gfix_trn_unknown", 335741036,
+	"gfix_mode_req", 335741038,
+	"gfix_opt_SQL_dialect", 335741039,
+	"dsql_dbkey_from_non_table", 336003074,
+	"dsql_transitional_numeric", 336003075,
+	"dsql_dialect_warning_expr", 336003076,
+	"sql_db_dialect_dtype_unsupport", 336003077,
+	"isc_sql_dialect_conflict_num", 336003079,
+	"dsql_warning_number_ambiguous", 336003080,
+	"dsql_warning_number_ambiguous1", 336003081,
+	"dsql_warn_precision_ambiguous", 336003082,
+	"dsql_warn_precision_ambiguous1", 336003083,
+	"dsql_warn_precision_ambiguous2", 336003084,
+	"dyn_role_does_not_exist", 336068796,
+	"dyn_no_grant_admin_opt", 336068797,
+	"dyn_user_not_role_member", 336068798,
+	"dyn_delete_role_failed", 336068799,
+	"dyn_grant_role_to_user", 336068800,
+	"dyn_inv_sql_role_name", 336068801,
+	"dyn_dup_sql_role", 336068802,
+	"dyn_kywd_spec_for_role", 336068803,
+	"dyn_roles_not_supported", 336068804,
+	"dyn_domain_name_exists", 336068812,
+	"dyn_field_name_exists", 336068813,
+	"dyn_dependency_exists", 336068814,
+	"dyn_dtype_invalid", 336068815,
+	"dyn_char_fld_too_small", 336068816,
+	"dyn_invalid_dtype_conversion", 336068817,
+	"dyn_dtype_conv_invalid", 336068818,
+	"gbak_unknown_switch", 336330753,
+	"gbak_page_size_missing", 336330754,
+	"gbak_page_size_toobig", 336330755,
+	"gbak_redir_ouput_missing", 336330756,
+	"gbak_switches_conflict", 336330757,
+	"gbak_unknown_device", 336330758,
+	"gbak_no_protection", 336330759,
+	"gbak_page_size_not_allowed", 336330760,
+	"gbak_multi_source_dest", 336330761,
+	"gbak_filename_missing", 336330762,
+	"gbak_dup_inout_names", 336330763,
+	"gbak_inv_page_size", 336330764,
+	"gbak_db_specified", 336330765,
+	"gbak_db_exists", 336330766,
+	"gbak_unk_device", 336330767,
+	"gbak_blob_info_failed", 336330772,
+	"gbak_unk_blob_item", 336330773,
+	"gbak_get_seg_failed", 336330774,
+	"gbak_close_blob_failed", 336330775,
+	"gbak_open_blob_failed", 336330776,
+	"gbak_put_blr_gen_id_failed", 336330777,
+	"gbak_unk_type", 336330778,
+	"gbak_comp_req_failed", 336330779,
+	"gbak_start_req_failed", 336330780,
+	"gbak_rec_failed", 336330781,
+	"gbak_rel_req_failed", 336330782,
+	"gbak_db_info_failed", 336330783,
+	"gbak_no_db_desc", 336330784,
+	"gbak_db_create_failed", 336330785,
+	"gbak_decomp_len_error", 336330786,
+	"gbak_tbl_missing", 336330787,
+	"gbak_blob_col_missing", 336330788,
+	"gbak_create_blob_failed", 336330789,
+	"gbak_put_seg_failed", 336330790,
+	"gbak_rec_len_exp", 336330791,
+	"gbak_inv_rec_len", 336330792,
+	"gbak_exp_data_type", 336330793,
+	"gbak_gen_id_failed", 336330794,
+	"gbak_unk_rec_type", 336330795,
+	"gbak_inv_bkup_ver", 336330796,
+	"gbak_missing_bkup_desc", 336330797,
+	"gbak_string_trunc", 336330798,
+	"gbak_cant_rest_record", 336330799,
+	"gbak_send_failed", 336330800,
+	"gbak_no_tbl_name", 336330801,
+	"gbak_unexp_eof", 336330802,
+	"gbak_db_format_too_old", 336330803,
+	"gbak_inv_array_dim", 336330804,
+	"gbak_xdr_len_expected", 336330807,
+	"gbak_open_bkup_error", 336330817,
+	"gbak_open_error", 336330818,
+	"gbak_missing_block_fac", 336330934,
+	"gbak_inv_block_fac", 336330935,
+	"gbak_block_fac_specified", 336330936,
+	"gbak_missing_username", 336330940,
+	"gbak_missing_password", 336330941,
+	"gbak_missing_skipped_bytes", 336330952,
+	"gbak_inv_skipped_bytes", 336330953,
+	"gbak_err_restore_charset", 336330965,
+	"gbak_err_restore_collation", 336330967,
+	"gbak_read_error", 336330972,
+	"gbak_write_error", 336330973,
+	"gbak_db_in_use", 336330985,
+	"gbak_sysmemex", 336330990,
+	"gbak_restore_role_failed", 336331002,
+	"gbak_role_op_missing", 336331005,
+	"gbak_page_buffers_missing", 336331010,
+	"gbak_page_buffers_wrong_param", 336331011,
+	"gbak_page_buffers_restore", 336331012,
+	"gbak_inv_size", 336331014,
+	"gbak_file_outof_sequence", 336331015,
+	"gbak_join_file_missing", 336331016,
+	"gbak_stdin_not_supptd", 336331017,
+	"gbak_stdout_not_supptd", 336331018,
+	"gbak_bkup_corrupt", 336331019,
+	"gbak_unk_db_file_spec", 336331020,
+	"gbak_hdr_write_failed", 336331021,
+	"gbak_disk_space_ex", 336331022,
+	"gbak_size_lt_min", 336331023,
+	"gbak_svc_name_missing", 336331025,
+	"gbak_not_ownr", 336331026,
+	"gbak_mode_req", 336331031,
+	"gsec_cant_open_db", 336723983,
+	"gsec_switches_error", 336723984,
+	"gsec_no_op_spec", 336723985,
+	"gsec_no_usr_name", 336723986,
+	"gsec_err_add", 336723987,
+	"gsec_err_modify", 336723988,
+	"gsec_err_find_mod", 336723989,
+	"gsec_err_rec_not_found", 336723990,
+	"gsec_err_delete", 336723991,
+	"gsec_err_find_del", 336723992,
+	"gsec_err_find_disp", 336723996,
+	"gsec_inv_param", 336723997,
+	"gsec_op_specified", 336723998,
+	"gsec_pw_specified", 336723999,
+	"gsec_uid_specified", 336724000,
+	"gsec_gid_specified", 336724001,
+	"gsec_proj_specified", 336724002,
+	"gsec_org_specified", 336724003,
+	"gsec_fname_specified", 336724004,
+	"gsec_mname_specified", 336724005,
+	"gsec_lname_specified", 336724006,
+	"gsec_inv_switch", 336724008,
+	"gsec_amb_switch", 336724009,
+	"gsec_no_op_specified", 336724010,
+	"gsec_params_not_allowed", 336724011,
+	"gsec_incompat_switch", 336724012,
+	"gsec_inv_username", 336724044,
+	"gsec_inv_pw_length", 336724045,
+	"gsec_db_specified", 336724046,
+	"gsec_db_admin_specified", 336724047,
+	"gsec_db_admin_pw_specified", 336724048,
+	"gsec_sql_role_specified", 336724049,
+	"license_no_file", 336789504,
+	"license_op_specified", 336789523,
+	"license_op_missing", 336789524,
+	"license_inv_switch", 336789525,
+	"license_inv_switch_combo", 336789526,
+	"license_inv_op_combo", 336789527,
+	"license_amb_switch", 336789528,
+	"license_inv_parameter", 336789529,
+	"license_param_specified", 336789530,
+	"license_param_req", 336789531,
+	"license_syntx_error", 336789532,
+	"license_dup_id", 336789534,
+	"license_inv_id_key", 336789535,
+	"license_err_remove", 336789536,
+	"license_err_update", 336789537,
+	"license_err_convert", 336789538,
+	"license_err_unk", 336789539,
+	"license_svc_err_add", 336789540,
+	"license_svc_err_remove", 336789541,
+	"license_eval_exists", 336789563,
+	"gstat_unknown_switch", 336920577,
+	"gstat_retry", 336920578,
+	"gstat_wrong_ods", 336920579,
+	"gstat_unexpected_eof", 336920580,
+	"gstat_open_err", 336920605,
+	"gstat_read_err", 336920606, "gstat_sysmemex", 336920607,
diff --git a/src/jrd/common.h b/src/jrd/common.h
new file mode 100644
index 0000000000..097d26fba5
--- /dev/null
+++ b/src/jrd/common.h
@@ -0,0 +1,1440 @@
+/*
+ *      PROGRAM:        JRD access method
+ *      MODULE:         common.h
+ *      DESCRIPTION:    Common descriptions for all GDS programs
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Added TCP_NO_DELAY option for superserver on Linux
+ * FSG 16.03.2001 
+ */
+/*
+$Id: common.h,v 1.1.1.1 2001-05-23 13:26:08 tamlin Exp $
+*/
+
+#ifndef JRD_COMMON_H
+#define JRD_COMMON_H
+
+#ifndef INCLUDE_FB_MACROS_H
+#include "../include/fb_macros.h"
+#endif
+
+/* 
+  do not use links in source code to maintain platform neutraility
+*/
+
+#undef LINKS_EXIST
+
+
+#ifdef PROD_BUILD
+#ifdef DEV_BUILD
+#undef DEV_BUILD
+#endif
+#endif
+
+#ifdef SUPERSERVER
+#define GOVERNOR 1
+#define CANCEL_OPERATION
+#endif
+
+
+/* Linux for Intel platforms*/
+#ifdef LINUX
+#define QUADFORMAT "ll"
+#define QUADCONST(n) (n##LL)
+#define MMAP_SUPPORTED
+
+#ifdef SUPERSERVER
+#define SET_TCP_NO_DELAY
+#endif
+
+#define KILLER_SIGNALS
+#define SIGACTION_SUPPORTED
+
+#define VA_START(list,parmN)    va_start (list, parmN)
+#define UNIX    1
+#define IEEE    1
+
+#ifdef i386
+#define I386    1
+#define VAX     1
+#define IMPLEMENTATION  60		/* next higher unique number, See you later  */
+#endif /* i386 */
+
+#define SETPGRP         setpgrp ()
+#define ATEXIT(c)       atexit (c)
+
+#define MEMMOVE(from,to,length)		memmove ((void *)to, (void *)from, (size_t) length)
+#define MOVE_FAST(from,to,length)       memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+
+#define VOLATILE        volatile
+#endif /* LINUX */
+
+/* FreeBSD for Intel platforms */
+#ifdef FREEBSD
+
+#define FB_ALIGN(n,b) ((n + b - 1) & ~(b - 1))
+#define ALIGNMENT     4
+#define DOUBLE_ALIGN  4
+
+#define UNIX  1
+#define IEEE  1
+#define I386  1
+#define VAX   1
+#define IMPLEMENTATION        61
+#define SETPGRP         setpgrp ()
+#define ATEXIT(c)       atexit(c)
+
+#define QUADFORMAT "ll"
+#define QUADCONST(n) (n##LL)
+#define KILLER_SIGNALS
+#define MMAP_SUPPORTED
+#define SIGACTION_SUPPORTED
+#define NO_NFS					/* no MTAB_OPEN or MTAB_CLOSE in isc_file.c */
+
+#define MEMMOVE(from,to,length)     memmove ((void *)to, (void *)from, (size_t) length)
+#define MOVE_FAST(from,to,length)       memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+
+#define VOLATILE        volatile
+
+#endif /* FREEBSD */
+
+/* NetBSD */
+#ifdef NETBSD
+
+#if defined(__i386__)
+#define FB_ALIGN(n,b) ((n + b - 1) & ~(b - 1))
+#define ALIGNMENT     4
+#define DOUBLE_ALIGN  4
+
+#define IEEE  1
+#define I386  1
+#define VAX   1
+#define IMPLEMENTATION        62
+
+#define QUADFORMAT "ll"
+#define QUADCONST(n) (n##LL)
+#else /* !__i386__ */
+#error Please add support for other ports
+#endif
+
+#define UNIX  1
+#define SETPGRP         setpgrp ()
+#define ATEXIT(c)       atexit(c)
+
+#define KILLER_SIGNALS
+#define MMAP_SUPPORTED
+#define SIGACTION_SUPPORTED
+#define NO_NFS					/* no MTAB_OPEN or MTAB_CLOSE in isc_file.c */
+
+#define MEMMOVE(from,to,length)     memmove ((void *)to, (void *)from, (size_t) length)
+#define MOVE_FAST(from,to,length)       memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+
+#define VOLATILE        volatile
+
+#endif /* NETBSD */
+
+
+
+/* SUN platforms--the 386i is obsolete */
+
+#ifdef sun
+#define MMAP_SUPPORTED
+
+/* Defined KILLER_SIGNALS for Sun - as we were getting lots of lockups
+ * using pipe server.
+ * 1995-February-24 David Schnepper 
+ */
+#define KILLER_SIGNALS
+
+#ifdef SOLARIS
+
+#ifndef PIPE_IS_SHRLIB
+/* This is NOT defined when building the special shared-pipe library
+ * which customers can use to avoid the problems with signals & threads
+ * in Solaris
+ */
+#define SOLARIS_MT	1
+#endif
+
+/*  Define the following only on platforms whose standard I/O
+ *  implementation is so weak that we wouldn't be able to fopen
+ *  a file whose underlying file descriptor would be > 255.
+ *  Hey, we're not running on PDP-11's any more: would it kill you
+ *  to use a short instead of a char to hold the fileno?  :-(
+ */
+#define NEED_IB_STDIO
+
+/* Define the following macro only on platforms which supply the library
+   routine xdr_hyper.  For other platforms, omit the definition of this
+   macro, and we will supply that function where we need it. */
+#define PLATFORM_SUPPLIES_XDR_HYPER
+
+#define ATEXIT(c)       atexit (c)
+#define SETPGRP         setpgrp ()
+#define SIGACTION_SUPPORTED
+#define NO_FLOCK
+#define CONST           const
+#define VOLATILE        volatile
+#define MEMMOVE(from,to,length)       memmove ((void *)to, (void *)from, (size_t) length)
+/*********   Reason for introducing MEMMOVE macro.
+
+  void *memcpy( void *s1, const void *s2, size_t n);
+  void *memmove( void *s1, const void *s2, size_t n);
+
+  The memcpy() function copies n characters from the string pointed to by the
+  s2 parameter into the location pointed to by the s1 parameter.  When copy-
+  ing overlapping strings, the behavior of this function is unreliable.
+
+  The memmove() function copies n characters from the string at the location
+  pointed to by the s2 parameter to the string at the location pointed to by
+  the s1 parameter.  Copying takes place as though the n number of characters
+  from string s2 are first copied into a temporary location having n bytes
+  that do not overlap either of the strings pointed to by s1 and s2. Then, n
+  number of characters from the temporary location are copied to the string
+  pointed to by s1. Consequently, this operation is nondestructive and
+  proceeds from left to right.
+  The above text is taken from the Digital UNIX man pages.
+
+     For maximum portability, memmove should be used when the memory areas
+     indicated by s1 and s2 may overlap, and memcpy used for faster copying
+     between non-overlapping areas. 
+
+**********/
+
+#define STRICMP(s1, s2)		strcasecmp(s1, s2)
+
+#ifndef SOLARIS26
+
+/* If our build platform is at least Solaris release 2.6, then unistd.h
+   declares these functions, so we must not define them with macros. */
+
+#define setreuid(ruid,euid)     ((setuid (ruid) == -1 || seteuid (euid) == -1) ? -1 : 0)
+#define setregid(rgid,egid)     ((setgid (rgid) == -1 || setegid (egid) == -1) ? -1 : 0)
+#endif
+
+/* The following define is the prefix to go in front of a "d" or "u"
+   format item in a ib_printf() format string, to indicate that the argument
+   is an SINT64 or UINT64. */
+#define QUADFORMAT "ll"
+/* The following macro creates a quad-sized constant, possibly one
+   which is too large to fit in a long int. */
+#define QUADCONST(n) (n##LL)
+
+#else /* SOLARIS */
+
+#define ATEXIT(c)       on_exit (c, 0)
+#define BSD_UNIX        1
+#define SETPGRP         setpgrp (0, 0)
+
+#endif /* SOLARIS */
+
+#define UNIX            1
+#define                 IEEE
+
+#ifdef sparc
+#define FB_ALIGN(n,b)      ((n + b - 1) & ~(b - 1))
+#define ALIGNMENT       4
+#define IMPLEMENTATION  30
+#define DOUBLE_ALIGN    8
+#define INTL
+#else /* sparc */
+
+#ifdef i386
+#define I386            1
+#define VAX             1
+#define IMPLEMENTATION  32
+#else /* i386 */
+#define FB_ALIGN(n,b)      ((n+1) & ~1)
+#define IMPLEMENTATION  28
+#endif /* i386 */
+
+#endif /* sparc */
+
+#define MOVE_FAST(from,to,length)       memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+#endif /* sun */
+
+
+
+/* MAC AUX--this port was never completed */
+
+#ifdef MAC
+#define NO_PYXIS
+#define SETPGRP         setpgrp (0, 0)
+#define UNIX            1
+#define FB_ALIGN(n,b)      ((n+1) & ~1)
+#define IMPLEMENTATION  34
+#define                 IEEE
+#define ATEXIT(c)       atexit (c)
+#endif
+
+
+
+/* HP/UX platforms */
+
+#if (defined(hpux) || defined(HPUX))
+
+#ifndef hpux
+#define hpux
+#endif
+
+#define ATEXIT(c)       atexit (c)
+#define KILLER_SIGNALS
+#define SETPGRP         setpgid (0, 0)
+#define UNIX            1
+#define CURSES_KEYPAD   1
+#define INTL
+#define NO_FLOCK
+
+#ifdef hp9000s300
+#define FB_ALIGN(n,b)      ((n+1) & ~1)
+#define ALIGNMENT       4
+#define DOUBLE_ALIGN    4
+#define IMPLEMENTATION  40
+#define SHMEM_PICKY
+#else
+#define FB_ALIGN(n,b)      ((n + b - 1) & ~(b - 1))
+#define ALIGNMENT       8
+#define DOUBLE_ALIGN    8
+#define IMPLEMENTATION  31
+#endif
+
+#define                 IEEE
+#include "../jrd/pragma.h"
+#define setreuid(ruid,euid)     setresuid (ruid, euid, -1)
+#define setregid(rgid,egid)     setresgid (rgid, egid, -1)
+
+/* The following define is the prefix to go in front of a "d" or "u"
+   format item in a ib_printf() format string, to indicate that the argument
+   is an SINT64 or UINT64. */
+#define QUADFORMAT "ll"
+/* The following macro creates a quad-sized constant, possibly one
+   which is too large to fit in a long int. */
+#define QUADCONST(n) (n##LL)
+
+#define MEMMOVE(from,to,length)       memmove ((void *)to, (void *)from, (size_t) length)
+#define MOVE_FAST(from,to,length)       memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+#define STRICMP(s1, s2)			strcasecmp(s1, s2)
+#endif /* hpux */
+
+
+
+/* DEC Ultrix */
+
+#ifdef ultrix
+#define BSD_UNIX        1
+#define INTL
+#define INTL_BACKEND
+#define UNIX            1
+#define VAX             1
+#define FB_ALIGN(n,b)      ((n + b - 1) & ~(b - 1))
+#define SETPGRP         setpgrp (0, 0)
+
+#ifdef mips
+#define IMPLEMENTATION  36
+#define                 IEEE
+#define ALIGNMENT       4
+#define DOUBLE_ALIGN    8
+#else
+#define CTO32L(p)       (*(long*) p)
+#define IMPLEMENTATION  26
+#define SHMEM_PICKY
+#endif
+
+#endif /* ultrix */
+
+
+
+/* PC Platforms are NetWare, Windows 3.1, and Windows and DOS Clients */
+
+#ifdef PC_PLATFORM
+
+#define SYS_ARG		isc_arg_dos
+#ifndef NETWARE_386
+#define VA_START(list,parmN)    va_start (list, parmN)
+#define NO_PYXIS
+#define I386            1
+#define VAX						/* Use VAX style byte swapping */
+#define ATEXIT(c)
+#define NO_NFS
+#undef LINKS_EXIST
+#define IEEE					/* IEEE floating point arith.  */
+#define CONST           const
+
+#define IMPLEMENTATION  47
+#define MEMMOVE(from,to,length)       memmove (to, from, (int) (length))
+#define MOVE_FAST(from,to,length)       memmove (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memmove (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+#define STRICMP(s1, s2)			stricmp(s1, s2)
+
+#define API_ROUTINE     __far __cdecl __loadds __export
+#define API_ROUTINE_VARARG      API_ROUTINE
+#define FAR_VARIABLE    __far
+
+/* added for routines which are not to used by customers. */
+#define INTERNAL_API_ROUTINE	API_ROUTINE
+
+#ifndef DLL_EXPORT
+#define DLL_EXPORT      API_ROUTINE
+#endif
+
+#endif /* ifndef NETWARE_386 */
+
+
+
+/* DOS does not compare the high order word of far pointers, 
+   so we must cast them to huge in comparions; also, for routines
+   which return a double, they must be given a pascal type so that
+   they will work in a multithreaded environment */
+
+#define HUGE_PTR        huge
+#define PASCAL_ROUTINE  pascal
+
+#endif /* PC_PLATFORM */
+
+
+
+/* DEC VAX/VMS and AlphaVMS */
+
+#ifdef VMS
+#define VAX             1
+#define VAX_FLOAT       1
+#define FB_ALIGN(n,b)      (n)
+#define ALIGNMENT       4
+#define NO_NFS
+#define CTO32L(p)       (*(long*)p)
+#define NO_CHECKSUM	1
+#define ISC_EXT_LIB_PATH_ENV	"interbase_ext_lib_path:"
+#define SYS_ARG		isc_arg_vms
+
+#if __ALPHA
+#define IMPLEMENTATION  53
+#include <ints.h>
+#define ATOM_DEFINED
+typedef int64 SATOM;			/* 64 bit */
+typedef unsigned int64 UATOM;
+#else
+
+#ifndef GATEWAY
+#define IMPLEMENTATION  27
+#else
+#define IMPLEMENTATION  33
+#endif
+
+#endif /* __ALPHA */
+
+#define FINI_OK         1
+#define FINI_ERROR      44
+#define STARTUP_ERROR   46		/* this is also used in iscguard.h, make sure these match */
+#define INTL
+
+#endif /* VMS */
+
+
+
+/* IBM AIX RS/6000 and IBM AIX PowerPC */
+
+#ifdef _AIX						/* IBM AIX */
+#ifndef _POWER					/* IBM RS/6000 */
+#define AIX
+#define KILLER_SIGNALS
+#define SIGACTION_SUPPORTED
+#define MMAP_SUPPORTED
+#define NO_FLOCK
+#define SETPGRP         setpgid (0, 0)
+#define ATEXIT(c)       atexit (c)
+#define vfork           fork
+#define UNIX            1
+#define CURSES_KEYPAD   1
+#define FB_ALIGN(n,b)      ((n + b - 1) & ~(b - 1))
+#define ALIGNMENT       4
+#define IMPLEMENTATION  35
+#define                 IEEE
+#define MEMMOVE(from,to,length)       memmove ((void *)to, (void *)from, (size_t) length)
+#define MOVE_FAST(from,to,length)       memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+#define SYSCALL_INTERRUPTED(err)        (((err) == EINTR) || ((err) == ERESTART))	/* pjpg 20001102 */
+#define INTL
+#define VOLATILE	volatile
+#else /* AIX PowerPC */
+#define AIX_PPC
+#define KILLER_SIGNALS
+#define SIGACTION_SUPPORTED
+#define MMAP_SUPPORTED
+#define NO_FLOCK
+#define SETPGRP         setpgid (0, 0)
+#define ATEXIT(c)       atexit (c)
+#define vfork           fork
+#define UNIX            1
+#define CURSES_KEYPAD   1
+#define FB_ALIGN(n,b)      ((n + b - 1) & ~(b - 1))
+#define ALIGNMENT       4
+#define IMPLEMENTATION  35
+#define                 IEEE
+#define MEMMOVE(from,to,length)       memmove ((void *)to, (void *)from, (size_t) length)
+#define MOVE_FAST(from,to,length)       memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+#define SYSCALL_INTERRUPTED(err)        (((err) == EINTR) || ((err) == ERESTART))	/* pjpg 20001102 */
+#define INTL
+#define VOLATILE	volatile
+
+#define VA_START(list,parmN)    va_start (list, parmN)	/* TMC 081700 */
+#define QUADFORMAT "ll"			/* TMC 081700 */
+#define QUADCONST(n) (n##LL)	/* TMC 081700 */
+
+#endif /* IBM PowerPC */
+#endif /* IBM AIX */
+
+
+
+/* Windows NT */
+
+#if (defined(_MSC_VER) && (defined(WIN32) || defined(_WIN32))) || \
+	(defined(__BORLANDC__) && defined(__WIN32__))
+#define WIN_NT
+#define NO_PYXIS
+#define NOINITGROUPS
+#define NO_NFS
+#define VAX
+#undef LINKS_EXIST
+
+#define MOVE_FAST(from,to,length)       memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+#define MEMMOVE(from,to,length)         memmove ((void *)to, (void *)from, (size_t) length)
+#define STRICMP(s1, s2)			stricmp(s1, s2)
+
+#define CONST		const
+#define VOLATILE	volatile
+#define SYS_ARG		isc_arg_win32
+
+typedef __int64 SINT64;
+typedef unsigned __int64 UINT64;
+#define INT64_DEFINED
+
+/* The following define is the prefix to go in front of a "d" or "u"
+   format item in a ib_printf() format string, to indicate that the argument
+   is an SINT64 or UINT64. */
+#define QUADFORMAT "I64"
+/* The following macro creates a quad-sized constant, possibly one
+   which is too large to fit in a long int.  The Microsoft compiler does
+   not permit the LL suffix which some other platforms require, but it
+   handles numbers up to the largest 64-bit integer correctly without such
+   a suffix, so the macro definition is trivial. */
+#define QUADCONST(n) (n)
+
+#ifdef _X86_
+#define i386
+#ifndef I386
+#define I386
+#endif
+#define IMPLEMENTATION  50
+#endif
+
+#ifdef _PPC_
+#define FB_ALIGN(n,b)      ((n + b - 1) & ~(b - 1))
+#define ALIGNMENT       8
+#define DOUBLE_ALIGN    8
+#define IMPLEMENTATION	57
+#endif
+
+#define ATEXIT(c)       atexit (c)
+#define                 IEEE
+#define INTL
+#define VA_START(list,parmN)    va_start (list, parmN)
+#define API_ROUTINE     __stdcall
+#define API_ROUTINE_VARARG      __cdecl
+#define CLIB_ROUTINE    __cdecl
+#define THREAD_ROUTINE  __stdcall
+#define INTERNAL_API_ROUTINE	API_ROUTINE
+
+#ifndef DLL_EXPORT
+#define DLL_EXPORT
+#endif
+
+#define BOOLEAN_DEFINED
+typedef unsigned char BOOLEAN;
+
+#ifdef DEV_BUILD
+#define DEBUG_GDS_ALLOC
+#define ALLOC_LIB_MEMORY(size)   gds__alloc_debug ((size),(TEXT *)__FILE__,(ULONG)__LINE__)
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	260
+#endif
+
+#endif /* WIN_NT */
+
+
+
+/* SCO */
+
+#ifndef SCO_EV
+
+#ifdef M_I386
+
+#define SMALL_FILE_NAMES
+#define XENIX           1
+#define NOHOSTNAME
+#define KILLER_SIGNALS
+#define SYSV_SIGNALS
+#define ATEXIT(c)       atexit (c)
+#define vfork           fork
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+
+#define I386            1
+#define VAX             1
+#define UNIX            1
+#define CURSES_KEYPAD   1
+#define NOINITGROUPS
+
+#ifdef M_UNIX
+#define SCO_UNIX        1
+#define SETPGRP         setpgid (0, 0)
+#define IMPLEMENTATION  42
+#define INTL
+#define INTL_BACKEND
+#else
+#define FB_ALIGN(n,b)      ((n+1) & ~1)
+#define SETPGRP
+#define IMPLEMENTATION  37
+#endif
+
+#define                 IEEE
+#undef LINKS_EXIST
+
+#endif /* M_I386 */
+
+#else /* ifndef SCO_EV */
+
+#define XENIX           1
+#define I386            1
+#define VAX             1
+#define UNIX            1
+#define SCO_UNIX        1
+#define                 IEEE
+#define SETPGRP         setpgrp()
+#define SIGACTION_SUPPORTED
+#define MMAP_SUPPORTED
+#define NO_FLOCK
+#define ATEXIT(c)       atexit (c)
+/*
+#define KILLER_SIGNALS
+*/
+#define INTL
+#define IMPLEMENTATION  59
+#define MEMMOVE(from,to,length)       memmove ((void *)to, (void *)from, (size_t) length)
+#define MOVE_FAST(from,to,length)    memcpy (to, from, (unsigned int) (length))
+#define MOVE_FASTER(from,to,length)  memcpy (to, from, (unsigned int) (length))
+#define MOVE_CLEAR(to,length)        memset (to, 0, (unsigned int) (length))
+
+#define VOLATILE volatile		/* 5.5 SCO Port */
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+/*  These functions are supported so we don't need the defines
+#define setreuid(ruid,euid)     setuid(euid)
+#define setregid(rgid,egid)     setgid(egid)
+*/
+
+#endif /* ifndef SCO_EV */
+
+
+
+#ifdef DGUX
+#define UNIX            1
+#define KILLER_SIGNALS
+#define SIGACTION_SUPPORTED
+#define MMAP_SUPPORTED
+#define NO_FLOCK
+#define SETPGRP         setpgid (0, 0)
+#define ATEXIT(c)       atexit (c)
+#define CURSES_KEYPAD   1
+#ifndef DG_X86
+#define FB_ALIGN(n,b)      ((n + b - 1) & ~(b - 1))
+#define ALIGNMENT       8
+#define IMPLEMENTATION  38
+#define DOUBLE_ALIGN    8
+#else
+#define IMPLEMENTATION        58
+#define CONST         const
+#define VOLATILE      volatile
+#define I386          1
+#define VAX           1
+#endif /* DG_X86 */
+#define                 IEEE
+#define INTL
+#define INTL_BACKEND
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+
+#endif /* DGUX */
+
+
+
+#if (defined(__osf__) && defined(__alpha))
+#include <stddef.h>
+#define DECOSF
+#define INTL
+#define NO_PYXIS
+#define KILLER_SIGNALS
+#define SIGACTION_SUPPORTED
+#define MMAP_SUPPORTED
+#define HAS_64BIT_POINTERS		/* if a machine has 64 bit pointers you need this */
+#define SETPGRP         setpgrp (0, 0)
+#define UNIX            1
+#define VAX             1
+#define FB_ALIGN(n,b)      ((n + b - 1) & ~(b - 1))
+#define ALIGNMENT       8
+#define DOUBLE_ALIGN    8
+#define IMPLEMENTATION  52
+#define                 IEEE
+#define ATEXIT(c)       atexit (c)
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#define VOLATILE        volatile
+#endif
+
+#define MEMMOVE(from,to,length)       memmove ((void *)to, (void *)from, (size_t) length)
+#define MOVE_FAST(from,to,length)       memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+#define LONG_DEFINED
+
+typedef int SLONG;
+typedef unsigned int ULONG;
+#define SQUAD_DEFINED
+typedef long SQUAD;
+typedef unsigned long UQUAD;
+#define NATIVE_QUAD
+#define ATOM_DEFINED
+typedef long SATOM;				/* 64 bit */
+typedef unsigned long UATOM;
+
+#endif /* DECOSF */
+
+
+
+#ifdef sgi
+#define vfork           fork
+#define KILLER_SIGNALS
+#define SETPGRP         setpgid (0, 0)
+#define UNIX            1
+#define CURSES_KEYPAD   1
+#define FB_ALIGN(n,b)      ((n + b - 1) & ~(b - 1))
+#define ALIGNMENT       8
+#define IMPLEMENTATION  41
+#define DOUBLE_ALIGN    8
+#define                 IEEE
+#define SIGACTION_SUPPORTED
+#define MMAP_SUPPORTED
+#define NO_FLOCK
+#define INTL
+#define VOLATILE	volatile
+#define MEMMOVE(from,to,length)       memmove ((void *)to, (void *)from, (size_t) length)
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+
+#endif /* sgi */
+
+
+#ifdef NETWARE_386
+/*
+ * In ..\remote, there will a duplicate definition for DWORD
+ * ocurring from <nwdstype.h>. Chech for this
+ * and undefine it before defining DWORD.
+ */
+
+#ifdef DWORD
+#undef DWORD
+#endif
+
+typedef char *caddr_t;
+/*
+ * The DWORD declaration is needed for compiling the JRD lib.
+ * (First compilation error will start from isc.c)
+ */
+
+typedef unsigned long DWORD;
+
+#define SMALL_FILE_NAMES
+#define NOHOSTNAME
+#define ATEXIT(c)       atexit (c)
+
+#define SYS_ARG		isc_arg_dos
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+
+#define I386            1
+#define VAX             1
+#define IEEE            1
+#define FB_ALIGN(n,b)      ((n+1) & ~1)
+#define OLD_ALIGNMENT
+#define NO_NFS
+#define SETPGRP
+#define IMPLEMENTATION 54
+#undef LINKS_EXIST
+#define VA_START(list,parmN)    va_start (list, parmN)
+
+#define INTL
+#define INTL_BACKEND
+#define SYNC_WRITE_DEFAULT      1
+
+/* turn on stack reduction methods for only those routines 
+   which are not commonly used; since this is a server, we 
+   want to allocate buffers on the stack for oft-used routines */
+
+#define STACK_REDUCTION
+
+#endif /* NETWARE_386 */
+
+
+
+#ifdef DELTA
+#define NO_PYXIS
+#define INTL
+#define INTL_BACKEND
+#define SETPGRP         setpgrp()
+#define NOINITGROUPS
+#define KILLER_SIGNALS
+#define SYSV_SIGNALS
+#define SYSV_SHMEM
+#define SMALL_FILE_NAMES
+#define vfork           fork
+#define UNIX            1
+#define CURSES_KEYPAD   1
+#define FB_ALIGN(n,b)      ((n+1) & ~1)
+#define ALIGNMENT       4
+#define DOUBLE_ALIGN    4
+#define IMPLEMENTATION  45
+#define                 IEEE
+#define SHMEM_PICKY
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+
+#undef LINKS_EXIST
+#define INTL
+#define setreuid(ruid,euid)     setuid(euid)
+#define setregid(rgid,egid)     setgid(egid)
+
+#endif /* DELTA */
+
+
+
+#ifdef M88K
+#define INTL
+#define SETPGRP         setpgrp()
+#define KILLER_SIGNALS
+#define SIGACTION_SUPPORTED
+#define MMAP_SUPPORTED
+#define NO_FLOCK
+#define UNIX            1
+#define CURSES_KEYPAD   1
+#define FB_ALIGN(n,b)      ((n + b - 1) & ~(b - 1))
+#define ALIGNMENT       8
+#define DOUBLE_ALIGN    8
+#define IMPLEMENTATION  48
+#define                 IEEE
+#define ATEXIT(c)       atexit (c)
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+
+#define MOVE_FAST(from,to,length)       memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+#define setreuid(ruid,euid)     setuid(euid)
+#define setregid(rgid,egid)     setgid(egid)
+
+#endif /* M88K */
+
+
+
+#ifdef UNIXWARE
+#define INTL
+#define SETPGRP         setpgrp()
+#define KILLER_SIGNALS
+#define SIGACTION_SUPPORTED
+#define MMAP_SUPPORTED
+#define NO_FLOCK
+#define NO_PYXIS
+#define I386            1
+#define VAX             1
+#define UNIX            1
+#define CURSES_KEYPAD   1
+#define IMPLEMENTATION  49
+#define                 IEEE
+#define ATEXIT(c)       atexit (c)
+#define vfork           fork
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+
+#define MOVE_FAST(from,to,length)       memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+#define setreuid(ruid,euid)     setuid (euid)
+#define setregid(rgid,egid)     setgid (egid)
+
+#endif /* UNIXWARE */
+
+
+
+#ifdef NCR3000
+#define INTL
+#define SETPGRP         setpgrp()
+#define KILLER_SIGNALS
+#define SIGACTION_SUPPORTED
+#define MMAP_SUPPORTED
+#define NO_FLOCK
+#define NO_PYXIS
+#define I386            1
+#define VAX             1
+#define UNIX            1
+#define CURSES_KEYPAD   1
+#define IMPLEMENTATION  56
+#define                 IEEE
+#define ATEXIT(c)       atexit (c)
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+
+#define MEMMOVE(from,to,length)       memmove ((void *)to, (void *)from, (size_t) length)
+#define MOVE_FAST(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)   memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)         memset (to, 0, (int) (length))
+#define setreuid(ruid,euid)   setuid (euid)
+#define setregid(rgid,egid)   setgid (egid)
+
+#define SYSCALL_INTERRUPTED(err)        (((err) == EINTR) || ((err) == ERESTART))
+
+#endif /* NCR3000 */
+
+
+
+#ifdef IMP
+#define NO_PYXIS
+#define SETPGRP         setpgrp()
+#define KILLER_SIGNALS
+#define SYSV_SIGNALS
+#define SYSV_SHMEM
+#define SMALL_FILE_NAMES
+#define vfork           fork
+#define UNIX            1
+#define CURSES_KEYPAD   1
+#define FB_ALIGN(n,b)      ((n+1) & ~1)
+#define ALIGNMENT       4
+#define DOUBLE_ALIGN    4
+#define IMPLEMENTATION  44
+#define                 IEEE
+#define SHMEM_PICKY
+#undef LINKS_EXIST
+#define INTL
+#define INTL_BACKEND
+#endif
+
+
+
+#ifdef EPSON
+#define I386            1
+#define VAX             1
+#define UNIX            1
+#define                 IEEE
+#define SETPGRP         setpgrp()
+#define SIGACTION_SUPPORTED
+#define MMAP_SUPPORTED
+#define NO_FLOCK
+#define SMALL_FILE_NAMES
+#define ATEXIT(c)       atexit (c)
+#define KILLER_SIGNALS
+#define INTL
+#define IMPLEMENTATION  51
+#define NO_PYXIS
+#define MOVE_FAST(from,to,length)       memcpy (to, from, (int) (length))
+#define MOVE_FASTER(from,to,length)     memcpy (to, from, (int) (length))
+#define MOVE_CLEAR(to,length)           memset (to, 0, (int) (length))
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+
+#define setreuid(ruid,euid)     setuid(euid)
+#define setregid(rgid,egid)     setgid(egid)
+
+#endif /* EPSON */
+
+#ifdef UNIX
+#define NO_CHECKSUM     1
+#define SYS_ARG		isc_arg_unix
+#endif /* UNIX */
+
+
+/* various declaration modifiers */
+
+#ifndef HUGE_PTR
+#define HUGE_PTR
+#endif
+
+#ifndef FAR_VARIABLE
+#define FAR_VARIABLE
+#endif
+
+#ifndef PASCAL_ROUTINE
+#define PASCAL_ROUTINE
+#endif
+
+#ifndef API_ROUTINE
+#define API_ROUTINE
+#define API_ROUTINE_VARARG
+#define INTERNAL_API_ROUTINE	API_ROUTINE
+#endif
+
+#ifndef CLIB_ROUTINE
+#define CLIB_ROUTINE
+#endif
+
+#ifndef THREAD_ROUTINE
+#define THREAD_ROUTINE
+#endif
+
+#ifndef CONST
+/* To handle platforms which don't support ANSI keyword "const" */
+#define CONST					/* nothing */
+#endif
+
+#ifndef VOLATILE
+/* To handle platforms which don't support ANSI keyword "volatile" */
+#define VOLATILE				/* nothing */
+#endif
+
+
+
+
+/* alignment macros */
+
+#ifndef OLD_ALIGNMENT
+#ifdef I386
+/* Using internal alignment optimal for 386 processor and above
+ */
+#define ALIGNMENT       4
+#define DOUBLE_ALIGN    8
+#define FB_ALIGN(n,b)      ((n + b - 1) & ~(b - 1))
+#endif
+#endif
+
+#ifndef ALIGNMENT
+#define ALIGNMENT       2
+#endif
+
+#ifndef SHIFTLONG
+/* Number of shifts needed to convert between char and LONG */
+#define SHIFTLONG       2
+#define BITS_PER_LONG   32
+#define LOG2_BITS_PER_LONG      5
+#endif
+
+#ifndef DOUBLE_ALIGN
+#define DOUBLE_ALIGN    4
+#endif
+
+
+
+/* common return values */
+
+#ifndef FINI_OK
+#define FINI_OK         0
+#define FINI_ERROR      1
+#define STARTUP_ERROR   2		/* this is also used in iscguard.h, make sure these match */
+#endif
+
+#ifndef NULL
+#define NULL            0L
+#endif
+
+#define NULL_PTR        ((void*) 0)
+#define TRUE            1
+#define FALSE           0
+#define SUCCESS         0
+#define FAILURE         1
+
+
+
+/* data type definitions */
+
+/* Basic data types */
+
+#if 1
+/* TMN: TODO It seems SCHAR is used just about *everywhere* where a plain
+ * "char" is really intended. This currently forces us to this bad definition.
+ */
+typedef char SCHAR;
+#else
+typedef signed char SCHAR;
+#endif
+typedef unsigned char UCHAR;
+typedef short SSHORT;
+typedef unsigned short USHORT;
+
+
+#ifndef LONG_DEFINED			/* 32 bit */
+typedef long SLONG;
+typedef unsigned long ULONG;
+#else
+#undef LONG_DEFINED
+#endif
+
+#ifndef INT64_DEFINED			/* 64 bit */
+typedef long long int SINT64;
+typedef unsigned long long int UINT64;
+#else
+#undef INT64_DEFINED
+#endif
+
+#ifndef SQUAD_DEFINED			/* 64 bit */
+typedef struct {
+	SLONG high;
+	ULONG low;
+} SQUAD;
+#endif
+
+/* Enable support for READONLY databases in InterBase, IB 6.0 (Kinobi) project */
+#ifndef READONLY_DATABASE
+#define READONLY_DATABASE
+#endif
+
+#ifndef ATOM_DEFINED			/* 32 or 64 bit */
+typedef long SATOM;
+typedef unsigned long UATOM;
+#else
+#undef ATOM_DEFINED
+#endif
+
+#ifndef BOOLEAN_DEFINED
+typedef USHORT BOOLEAN;
+#else
+#undef BOOLEAN_DEFINED
+#endif
+
+#ifndef ISC_TIMESTAMP_DEFINED
+typedef SLONG ISC_DATE;
+typedef ULONG ISC_TIME;
+typedef struct
+{
+	ISC_DATE timestamp_date;
+	ISC_TIME timestamp_time;
+} ISC_TIMESTAMP;
+#define ISC_TIMESTAMP_DEFINED
+#endif	/* ISC_TIMESTAMP_DEFINED */
+
+#define GDS_DATE	ISC_DATE
+#define GDS_TIME	ISC_TIME
+#define GDS_TIMESTAMP	ISC_TIMESTAMP
+
+typedef char TEXT;				/* To be expunged over time */
+typedef unsigned char STEXT;	/* Signed text - very rare */
+typedef unsigned char UTEXT;	/* Unsigned text - common */
+typedef unsigned char BYTE;		/* Unsigned byte - common */
+typedef char SBYTE;				/* Signed byte - rare usage */
+typedef long STATUS;
+typedef long IPTR;
+typedef unsigned long U_IPTR;
+typedef void (*FPTR_VOID) ();
+typedef void (*FPTR_VOID_PTR) (void *);
+typedef int (*FPTR_INT) ();
+typedef int (*FPTR_INT_VOID_PTR) (void *);
+typedef ULONG RCRD_OFFSET;
+typedef USHORT FLD_LENGTH;
+
+#ifndef ENUM
+#define ENUM            enum
+#endif
+
+#ifndef BLOB_PTR
+#define BLOB_PTR        UCHAR
+#endif
+
+
+
+/* variable argument definitions */
+
+#ifdef SCO
+#if __STDC__
+#define VA_START(list,parmN)    va_start (list, parmN)
+#endif
+#else
+#ifdef __STDC__
+#define VA_START(list,parmN)    va_start (list, parmN)
+#endif
+#endif /* SCO */
+
+#ifndef VA_START
+#define VA_START(list,parmN)    va_start (list)
+#endif
+
+
+
+/* conditional compilation macros */
+
+
+
+/* MAX and MIN for datatypes */
+
+#define MAX_UCHAR		((UCHAR)0xFF)
+#define MIN_UCHAR		0x00
+
+#define MAX_SCHAR		0x7F
+#define MIN_SCHAR		(-MAX_SCHAR-1)
+
+#define MAX_USHORT		((USHORT)0xFFFF)
+#define MIN_USHORT		0x0000
+
+#define MAX_SSHORT		0x7FFF
+#define MIN_SSHORT		(-MAX_SSHORT-1)
+
+#define MAX_ULONG		((ULONG)0xFFFFFFFF)
+#define MIN_ULONG		0x00000000
+
+#define MAX_SLONG		0x7FFFFFFF
+#define MIN_SLONG		(-MAX_SLONG-1)
+
+#define MAX_UINT64              ((UINT64) QUADCONST(0xFFFFFFFFFFFFFFFF))
+#define MIN_UINT64              QUADCONST(0x0000000000000000)
+
+#define MAX_SINT64              QUADCONST(0x7FFFFFFFFFFFFFFF)
+#define MIN_SINT64              (-MAX_SINT64-1)
+
+
+
+/* commonly used macros */
+
+#ifndef MAX
+#define MAX(a,b)                (((a) > (b)) ? (a) : (b))
+#endif
+#ifndef MIN
+#define MIN(a,b)                (((a) < (b)) ? (a) : (b))
+#endif
+
+#define UPPER(c)                (((c) >= 'a' && (c)<= 'z') ? (c) - 'a' + 'A' : (c))
+#define LOWWER(c)               (((c) >= 'A' && (c)<= 'Z') ? (c) - 'A' + 'a' : (c))
+
+/* UPPER7 & LOWWER7 are to be used when the data is known to
+   be 7-bit ASCII, eg: internal data, OS data.  NOT user data.  */
+
+#define UPPER7(c)               (((c) >= 'a' && (c)<= 'z') ? (c) - 'a' + 'A' : (c))
+#define LOWWER7(c)              (((c) >= 'A' && (c)<= 'Z') ? (c) - 'A' + 'a' : (c))
+
+#ifndef ROUNDUP
+#define ROUNDUP(n,b)            (((n) + (b) - 1) & ~((b) - 1))
+#endif
+#define ROUNDUP_LONG(len)       ROUNDUP (len, sizeof (SLONG))
+
+#define JRD_BUGCHK 15			/* facility code for bugcheck messages */
+#ifndef OFFSET
+#define OFFSET(struct,fld)      ((int) &((struct) 0)->fld)
+#define OFFSETA(struct,fld)     ((int) ((struct) 0)->fld)
+#endif
+
+#ifndef ODS_ALIGNMENT
+#define ODS_ALIGNMENT           4
+#endif
+
+#ifndef SYSCALL_INTERRUPTED
+#define SYSCALL_INTERRUPTED(err)        ((err) == EINTR)
+#endif
+
+#ifndef STRICMP
+#define STRICMP(s1, s2)			strcasecmp(s1, s2)
+#endif
+
+
+
+/* data conversion macros */
+
+#ifndef CTO32L
+#ifdef VAX
+#define CTO32L(p) ((((SCHAR*)(p))[3] << 24) | (((UCHAR*)(p))[2] << 16) | (((UCHAR*)(p))[1] << 8) | (((UCHAR*)(p)) [0]))
+#else
+#define CTO32L(p) ((((SCHAR*)(p))[0] << 24) | (((UCHAR*)(p))[1] << 16) | (((UCHAR*)(p))[2] << 8) | (((UCHAR*)(p)) [3]))
+#endif
+#endif
+
+#ifndef AOF32L
+#define AOF32L(l)               &l
+#endif
+
+
+
+/* data movement and allocation macros */
+
+#ifndef MOVE_FAST
+#define MOVE_FAST(from,to,length)       MOV_fast (from, to, (ULONG) (length))
+#endif
+
+#ifndef MOVE_FASTER
+#define MOVE_FASTER(from,to,length)     MOV_faster (from, to, (ULONG) (length))
+#endif
+
+#ifndef MEMMOVE
+/* Use character by character copy function */
+#define MEMMOVE(from,to,length)       MOV_fast (from, to, (ULONG) (length))
+#endif
+
+#ifndef MOVE_CLEAR
+#define MOVE_CLEAR(to,length)           MOV_fill (to, (ULONG) (length))
+#endif
+
+#ifndef ALLOC_LIB_MEMORY
+#define ALLOC_LIB_MEMORY(size)          gds__alloc (size)
+#endif
+
+#ifndef FREE_LIB_MEMORY
+#define FREE_LIB_MEMORY(block)          gds__free (block)
+#endif
+
+
+
+#ifdef DEV_BUILD
+
+/* Define any debugging symbols and macros here.  This 
+   ifdef will be executed during development builds. */
+
+#ifdef NETWARE_386
+#define DEV_REPORT(msg)         ConsolePrintf (msg)
+#define BREAKPOINT(x)           Breakpoint(x)
+#define TRACE(msg)              ConsolePrintf (msg)
+#endif
+
+#ifdef WIN_NT
+#define TRACE(msg)              gds__log (msg)
+#define DEV_REPORT(msg)         gds__log (msg)
+#endif
+
+#ifndef TRACE
+#define TRACE(msg)              ib_fprintf (ib_stderr, (msg))
+#endif
+
+#ifndef DEV_REPORT
+#define DEV_REPORT(msg)         ib_fprintf (ib_stderr, (msg))
+#endif
+
+#ifndef BREAKPOINT
+#define BREAKPOINT(x)           GDS_breakpoint(x)
+// fwd. decl. the function itself
+#ifdef __cplusplus
+extern "C" {
+#endif
+void GDS_breakpoint(int);
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+#endif
+
+#endif /* DEV_BUILD */
+
+#ifndef DEV_BUILD
+#define DEV_REPORT(msg)         gds__log (msg)
+#define BREAKPOINT(x)			/* nothing */
+#define TRACE(msg)				/* nothing */
+#endif
+
+
+
+/* shared library definitions */
+
+#ifdef SHLIB_DEFS
+#ifndef LOCAL_SHLIB_DEFS
+#include "../jrd/shdef.h"
+#endif
+#endif
+
+#ifndef DLL_EXPORT
+#define DLL_EXPORT
+#endif
+
+
+
+/* commonly used buffer sizes for dynamic buffer allocation */
+
+#define BUFFER_XLARGE   2048
+#define BUFFER_LARGE    1024
+#define BUFFER_MEDIUM   512
+#define BUFFER_SMALL    256
+#define BUFFER_TINY     128
+
+#ifndef DOUBLE_MULTIPLY
+#define DOUBLE_MULTIPLY(a,b)    (((double) (a)) * ((double) (b)))
+#endif
+
+#ifndef DOUBLE_DIVIDE
+#define DOUBLE_DIVIDE(a,b)      (((double) (a)) / ((double) (b)))
+#endif
+
+#ifndef ISC_EXT_LIB_PATH_ENV
+#define ISC_EXT_LIB_PATH_ENV	"INTERBASE_EXT_LIB_PATH"
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN		1024
+#endif
+
+#define ISC_STATUS_LENGTH	20
+
+/* switch name and state table.  This structure should be used in all
+ * command line tools to facilitate parsing options.*/
+typedef struct in_sw_tab_t {
+	int in_sw;
+	int in_spb_sw;
+	TEXT *in_sw_name;
+	ULONG in_sw_value;			/* alice specific field */
+	ULONG in_sw_requires;		/* alice specific field */
+	ULONG in_sw_incompatibilities;	/* alice specific field */
+	USHORT in_sw_state;
+	USHORT in_sw_msg;
+	USHORT in_sw_min_length;
+	TEXT *in_sw_text;
+
+} *IN_SW_TAB;
+
+#endif /* JRD_COMMON_H */
diff --git a/src/jrd/constants.h b/src/jrd/constants.h
new file mode 100644
index 0000000000..c6f7c17f29
--- /dev/null
+++ b/src/jrd/constants.h
@@ -0,0 +1,78 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		constants.h
+ *	DESCRIPTION:	Misc system constants
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_CONSTANTS_H_
+#define _JRD_CONSTANTS_H_
+
+/* BLOb Subtype definitions */
+
+/* Subtypes < 0  are user defined 
+ * Subtype  0    means "untyped" 
+ * Subtypes > 0  are InterBase defined 
+ */
+
+#define BLOB_untyped	0
+
+/* InterBase defined BLOb subtypes */
+
+#define BLOB_text	1
+#define BLOB_blr	2
+#define BLOB_acl	3
+#define BLOB_ranges	4
+#define BLOB_summary	5
+#define BLOB_format	6
+#define BLOB_tra	7
+#define BLOB_extfile	8
+
+
+
+
+/* Column Limits */
+
+#define	MAX_COLUMN_SIZE	32767	/* Bytes */
+
+
+
+
+/* Misc constant values */
+
+#define USERNAME_LENGTH		31	/* Bytes */
+
+/* literal strings in rdb$ref_constraints to be used to identify
+   the cascade actions for referential constraints. Used
+   by isql/show and isql/extract for now. */
+
+#define RI_ACTION_CASCADE "CASCADE"
+#define RI_ACTION_NULL    "SET NULL"
+#define RI_ACTION_DEFAULT "SET DEFAULT"
+#define RI_ACTION_NONE    "NO ACTION"
+#define RI_RESTRICT       "RESTRICT"
+
+
+
+/* UDF Arguments are numbered from 0 to MAX_UDF_ARGUMENTS --
+   arguement 0 is reserved for the return-type of the UDF */
+
+#define MAX_UDF_ARGUMENTS	10
+
+#endif /* _JRD_CONSTANTS_H_ */
diff --git a/src/jrd/cvt.cpp b/src/jrd/cvt.cpp
new file mode 100644
index 0000000000..3e4589a33e
--- /dev/null
+++ b/src/jrd/cvt.cpp
@@ -0,0 +1,2747 @@
+/*
+ *      PROGRAM:        JRD Access Method
+ *      MODULE:         cvt.c
+ *      DESCRIPTION:    Data mover and converter and comparator, etc.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include <stdlib.h>
+#include <limits.h>
+#include "../jrd/time.h"
+#ifndef REQUESTER
+#include "../jrd/jrd.h"
+#else
+#include "../jrd/common.h"
+#endif
+#include "../jrd/req.h"
+#include "../jrd/val.h"
+#include "../jrd/quad.h"
+#include "../jrd/codes.h"
+#include "../jrd/intl.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/cvt_proto.h"
+#include "../jrd/dsc_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/thd_proto.h"
+
+#if !(defined REQUESTER && defined SUPERCLIENT)
+#include "../jrd/intlobj.h"
+#endif
+
+#ifdef sun
+#define DBL_MAX_10_EXP          308
+#endif
+
+#ifdef DELTA
+#define DBL_MAX_10_EXP          308
+#endif
+
+#ifdef IMP
+#define DBL_MAX_10_EXP          308
+#endif
+
+#ifdef SCO_UNIX
+#define DBL_MAX_10_EXP          308
+#endif
+
+#ifndef DBL_MAX_10_EXP
+#include <float.h>
+#endif
+
+#ifdef VMS
+extern double MTH$CVT_D_G(), MTH$CVT_G_D();
+#endif
+
+/* ERR_post is used to flag whether we were called from mov.c or
+   anywhere else CVT is used from (by comparing with param err) */
+
+/* normally the following two definitions are part of limits.h
+   but due to a compiler bug on Apollo casting LONG_MIN to be a
+   double, these have to be defined as double numbers...
+
+   Also, since SunOS4.0 doesn't want to play with the rest of
+   the ANSI world, these definitions have to be included explicitly.
+   So, instead of some including <limits.h> and others using these
+   definitions, just always use these definitions (huh?) */
+
+#define LONG_MIN_real   -2147483648.	/* min decimal value of an "SLONG" */
+#define LONG_MAX_real   2147483647.	/* max decimal value of an "SLONG" */
+#define LONG_MIN_int    -2147483648	/* min integer value of an "SLONG" */
+#define LONG_MAX_int    2147483647	/* max integer value of an "SLONG" */
+
+/* It turns out to be tricky to write the INT64 versions of those constant in
+   a way that will do the right thing on all platforms.  Here we go. */
+
+#define LONG_MAX_int64 ((SINT64)2147483647)	/* max int64 value of an SLONG */
+#define LONG_MIN_int64 (-LONG_MAX_int64-1)	/* min int64 value of an SLONG */
+
+#define QUAD_MIN_real   -9223372036854775808.	/* min decimal value of quad */
+#define QUAD_MAX_real   9223372036854775807.	/* max decimal value of quad */
+
+#define QUAD_MIN_int    quad_min_int	/* min integer value of quad */
+#define QUAD_MAX_int    quad_max_int	/* max integer value of quad */
+
+#define FLOAT_MAX       3.4e38	/* max float (32 bit) value  */
+
+#ifdef VAX
+#define LOW_WORD        0
+#define HIGH_WORD       1
+#else
+#define LOW_WORD        1
+#define HIGH_WORD       0
+#endif
+
+#define LETTER7(c)      ((c) >= 'A' && (c) <= 'Z')
+#define DIGIT(c)        ((c) >= '0' && (c) <= '9')
+#define ABSOLUT(x)      ((x) < 0 ? -(x) : (x))
+
+/* The expressions for SHORT_LIMIT, LONG_LIMIT, INT64_LIMIT and
+ * QUAD_LIMIT return the largest value that permit you to multiply by
+ * 10 without getting an overflow.  The right operand of the << is two
+ * less than the number of bits in the type: one bit is for the sign,
+ * and the other is because we divide by 5, rather than 10.  */
+
+#define SHORT_LIMIT     ((1 << 14) / 5)
+#define LONG_LIMIT      ((1L << 30) / 5)
+
+#define COMMA           ','
+
+/* NOTE: The syntax for the below line may need modification to ensure
+ *	 the result of 1 << 62 is a quad
+ */
+#define QUAD_LIMIT      ((((SINT64) 1) << 62) / 5)
+#define INT64_LIMIT     ((((SINT64) 1) << 62) / 5)
+#define NUMERIC_LIMIT   (INT64_LIMIT)
+
+#define TODAY           "TODAY"
+#define NOW             "NOW"
+#define TOMORROW        "TOMORROW"
+#define YESTERDAY       "YESTERDAY"
+
+#define CVT_FAILURE_SPACE       128
+
+#define CVT_COPY_BUFF(from,to,len) \
+{if (len) {MOVE_FAST(from,to,len); from +=len; to+=len; len=0;} }
+
+typedef enum {
+	expect_timestamp,
+	expect_sql_date,
+	expect_sql_time
+} EXPECT_DATETIME;
+
+#if (defined REQUESTER || defined SUPERCLIENT)
+static TEXT cvt_failures[CVT_FAILURE_SPACE];
+static TEXT *cvt_failures_ptr = NULL;
+static TEXT *error_string(TEXT *, SSHORT);
+#endif
+
+static void conversion_error(DSC *, FPTR_VOID);
+static void datetime_to_text(DSC *, DSC *, FPTR_VOID);
+static SSHORT decompose(UCHAR *, USHORT, SSHORT, SLONG *, FPTR_VOID);
+static void float_to_text(DSC *, DSC *, FPTR_VOID);
+static void integer_to_text(DSC *, DSC *, FPTR_VOID);
+static void string_to_datetime(DSC *, GDS_TIMESTAMP *, EXPECT_DATETIME,
+							   FPTR_VOID);
+static double power_of_ten(int);
+
+#ifndef NATIVE_QUAD
+#ifdef VAX
+static CONST SQUAD quad_min_int = { 0, LONG_MIN };
+static CONST SQUAD quad_max_int = { -1, LONG_MAX };
+#else
+static CONST SQUAD quad_min_int = { LONG_MIN, 0 };
+static CONST SQUAD quad_max_int = { LONG_MAX, -1 };
+#endif
+#endif
+
+#ifdef DGUX
+#undef CONST
+#define CONST
+#endif
+
+static CONST TEXT *CONST months[] = {
+	"JANUARY",
+	"FEBRUARY",
+	"MARCH",
+	"APRIL",
+	"MAY",
+	"JUNE",
+	"JULY",
+	"AUGUST",
+	"SEPTEMBER",
+	"OCTOBER",
+	"NOVEMBER",
+	"DECEMBER",
+	NULL
+};
+
+#ifdef DGUX
+#undef CONST
+#define CONST const
+#endif
+
+#if !defined (NATIVE_QUAD)
+#include "../jrd/quad.cpp"
+#endif
+
+
+#pragma FB_COMPILER_MESSAGE("Fix this! Ugly function pointer cast!")
+typedef void (*pfn_cvt_private_cludge) (int, int);
+typedef void (*pfn_cvt_private_cludge2) (int, int, ...);
+
+
+double PASCAL_ROUTINE CVT_date_to_double(DSC * desc, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ d a t e _ t o _ d o u b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *    Convert a date to double precision for
+ *    date arithmetic routines.  
+ *
+ **************************************/
+	SLONG temp[2], *date;
+	volatile double retval;
+
+/* If the input descriptor is not in date form, convert it. */
+
+	if (desc->dsc_dtype == dtype_timestamp)
+		date = (SLONG *) desc->dsc_address;
+	else if (desc->dsc_dtype == dtype_sql_time) {
+		/* Temporarily convert the time to a timestamp for conversion */
+		date = temp;
+		date[0] = 0;
+		date[1] = *(SLONG *) desc->dsc_address;
+	}
+	else if (desc->dsc_dtype == dtype_sql_date) {
+		/* Temporarily convert the date to a timestamp for conversion */
+		date = temp;
+		date[0] = *(SLONG *) desc->dsc_address;
+		date[1] = 0;
+	}
+	else {
+		/* Unknown type - most likely a string.  Try to convert it to a 
+		   timestamp -- or die trying (reporting an error).
+		   Don't worry about users putting a TIME or DATE here - this
+		   conversion is occuring in really flexible spots - we don't
+		   want to overdo it. */
+
+		DSC temp_desc;
+		MOVE_CLEAR(&temp_desc, sizeof(temp_desc));
+
+		temp_desc.dsc_dtype = dtype_timestamp;
+		temp_desc.dsc_length = sizeof(temp);
+		date = temp;
+		temp_desc.dsc_address = (UCHAR *) date;
+		CVT_move(desc, &temp_desc, err);
+	}
+
+/* Instead of returning the calculated double value in the return
+statement, am assigning the value to a local volatile double
+variable and returning that. This is to prevent a specific kind of
+precision error caused on Intel platforms (SCO and Linux) due
+to FPU register being 80 bits long and double being 64 bits long */
+
+	retval =
+		date[0] +
+		(double) date[1] / (24. * 60. * 60. * ISC_TIME_SECONDS_PRECISION);
+	return retval;
+}
+
+
+void CVT_double_to_date(double real, SLONG fixed[2], FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ d o u b l e _ t o _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert a double precision representation of a date
+ *      to a fixed point representation.   Double is used for
+ *      date arithmetic.
+ *
+ **************************************/
+
+	fixed[0] = (SLONG) real;
+	fixed[1] =
+		(SLONG) ((real - fixed[0]) * 24. * 60. * 60. *
+				 ISC_TIME_SECONDS_PRECISION);
+}
+
+
+double PASCAL_ROUTINE CVT_get_double(DSC * desc, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ g e t _ d o u b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert something arbitrary to a double precision number
+ *
+ **************************************/
+	double value;
+	SSHORT scale;
+
+
+	switch (desc->dsc_dtype) {
+	case dtype_short:
+		value = *((SSHORT *) desc->dsc_address);
+		break;
+
+	case dtype_long:
+		value = *((SLONG *) desc->dsc_address);
+		break;
+
+	case dtype_quad:
+#ifdef NATIVE_QUAD
+		value = *((SQUAD *) desc->dsc_address);
+#else
+		value = ((SLONG *) desc->dsc_address)[HIGH_WORD];
+		value *= -((double) LONG_MIN_real);
+		if (value < 0)
+			value -= ((ULONG *) desc->dsc_address)[LOW_WORD];
+		else
+			value += ((ULONG *) desc->dsc_address)[LOW_WORD];
+#endif
+		break;
+
+	case dtype_int64:
+		value = (double) *((SINT64 *) desc->dsc_address);
+		break;
+
+	case dtype_real:
+		return *((float *) desc->dsc_address);
+
+	case DEFAULT_DOUBLE:
+		/* a MOVE_FAST is done in case dsc_address is on a platform dependant
+		   invalid alignment address for doubles */
+		MOVE_FAST(desc->dsc_address, &value, sizeof(double));
+		return value;
+
+#ifdef VMS
+	case SPECIAL_DOUBLE:
+		return CNVT_TO_DFLT((double *) desc->dsc_address);
+#endif
+
+	case dtype_varying:
+	case dtype_cstring:
+	case dtype_text:
+		{
+			TEXT buffer[50];	/* must hold ascii of largest double */
+			SSHORT fraction, sign, exp, length, past_sign, digit_seen;
+			SCHAR *p, *end;
+
+			length =
+				CVT_make_string(desc, ttype_ascii,
+								reinterpret_cast < UCHAR ** >(&p),
+								(VARY *) buffer, sizeof(buffer), err);
+			value = 0.0;
+			digit_seen = past_sign = scale = fraction = sign = exp = 0;
+			for (end = p + length; p < end; p++)
+				if (*p == COMMA)
+					continue;
+				else if (DIGIT(*p)) {
+					digit_seen = 1;
+					past_sign = 1;
+					if (fraction)
+						scale++;
+					value = value * 10. + (*p - '0');
+				}
+				else if (*p == '.') {
+					past_sign = 1;
+					if (fraction)
+						conversion_error(desc, err);
+					else
+						fraction = 1;
+				}
+				else if (!past_sign && *p == '-') {
+					sign = -1;
+					past_sign = 1;
+				}
+				else if (!past_sign && *p == '+') {
+					sign = 1;
+					past_sign = 1;
+				}
+				else if (*p == 'e' || *p == 'E')
+					break;
+				else if (*p != ' ')
+					conversion_error(desc, err);
+
+			/* If we didn't see a digit then must be a funny string like "    ".  */
+			if (!digit_seen)
+				conversion_error(desc, err);
+
+			if (sign == -1)
+				value = -value;
+
+			/* If there's still something left, there must be an explicit
+			   exponent */
+
+			if (p < end) {
+				digit_seen = sign = exp = 0;
+				for (p++; p < end; p++) {
+					if (DIGIT(*p)) {
+						digit_seen = 1;
+						exp = exp * 10 + *p - '0';
+
+						/* The following is a 'safe' test to prevent overflow of
+						   exp here and of scale below. A more precise test occurs 
+						   later in this routine. */
+
+						if (exp >= SHORT_LIMIT)
+							reinterpret_cast < pfn_cvt_private_cludge >
+								(err) (gds__arith_except, 0);
+					}
+					else if (*p == '-' && !digit_seen && !sign)
+						sign = -1;
+					else if (*p == '+' && !digit_seen && !sign)
+						sign = 1;
+					else if (*p != ' ')
+						conversion_error(desc, err);
+				}
+				if (!digit_seen)
+					conversion_error(desc, err);
+
+				if (sign == -1)
+					scale += exp;
+				else
+					scale -= exp;
+			}
+
+			/* if the scale is greater than the power of 10 representable
+			   in a double number, then something has gone wrong... let
+			   the user know...  */
+
+			if (ABSOLUT(scale) > DBL_MAX_10_EXP)
+				reinterpret_cast<pfn_cvt_private_cludge>(err)(gds__arith_except, 0);
+
+/*
+  Repeated division is a good way to mung the least significant bits
+  of your value, so we have replaced this iterative multiplication/division
+  by a single multiplication or division, depending on sign(scale).
+	if (scale > 0)
+ 	    do value /= 10.; while (--scale);
+ 	else if (scale)
+ 	    do value *= 10.; while (++scale);
+*/
+			if (scale > 0)
+				value /= power_of_ten(scale);
+			else if (scale < 0)
+				value *= power_of_ten(-scale);
+		}
+		return value;
+
+	case dtype_timestamp:
+	case dtype_sql_date:
+	case dtype_sql_time:
+	case dtype_blob:
+	case dtype_array:
+		conversion_error(desc, err);
+		break;
+
+	default:
+		reinterpret_cast < pfn_cvt_private_cludge > (err) (gds__badblk, 0);	/* internal error */
+		break;
+	}
+
+/* Last, but not least, adjust for scale */
+
+	if ((scale = desc->dsc_scale) == 0)
+		return value;
+
+/* if the scale is greater than the power of 10 representable
+   in a double number, then something has gone wrong... let
+   the user know... */
+
+	if (ABSOLUT(scale) > DBL_MAX_10_EXP)
+		reinterpret_cast < pfn_cvt_private_cludge > (err) (gds__arith_except,
+														   0);
+
+	if (scale > 0)
+		value *= power_of_ten(scale);
+	else if (scale < 0)
+		value /= power_of_ten(-scale);
+
+	return value;
+}
+
+
+SLONG CVT_get_long(DSC * desc, SSHORT scale, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ g e t _ l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert something arbitrary to a long (32 bit) integer of given
+ *      scale.
+ *
+ **************************************/
+	SLONG value, high, fraction;
+
+	double d;
+	SINT64 val64;
+	USHORT length;
+	UCHAR *p;
+	TEXT buffer[50];			/* long enough to represent largest long in ASCII */
+
+/* adjust exact numeric values to same scaling */
+
+	if (DTYPE_IS_EXACT(desc->dsc_dtype))
+		scale -= desc->dsc_scale;
+
+	p = desc->dsc_address;
+
+	switch (desc->dsc_dtype) {
+	case dtype_short:
+		value = *((SSHORT *) p);
+		break;
+
+	case dtype_long:
+		value = *((SLONG *) p);
+		break;
+
+	case dtype_int64:
+		val64 = *((SINT64 *) p);
+
+		/* adjust for scale first, *before* range-checking the value. */
+		if (scale > 0) {
+			fraction = 0;
+			do {
+				if (scale == 1)
+					fraction = (SLONG) (val64 % 10);
+				val64 /= 10;
+			} while (--scale);
+			if (fraction > 4)
+				val64++;
+			/*
+			 * The following 2 lines are correct for platforms where
+			 * ((-85 / 10 == -8) && (-85 % 10 == -5)).  If we port to
+			 * a platform where ((-85 / 10 == -9) && (-85 % 10 == 5)),
+			 * we'll have to change this depending on the platform.
+			 */
+			else if (fraction < -4)
+				val64--;
+		}
+		else if (scale < 0)
+			do {
+				if ((val64 > INT64_LIMIT) || (val64 < -INT64_LIMIT))
+					reinterpret_cast < pfn_cvt_private_cludge >
+						(err) (gds__arith_except, 0);
+				val64 *= 10;
+			} while (++scale);
+
+		if ((val64 > LONG_MAX_int64) || (val64 < LONG_MIN_int64))
+			reinterpret_cast < pfn_cvt_private_cludge >
+				(err) (gds__arith_except, 0);
+		return (SLONG) val64;
+
+	case dtype_quad:
+		value = ((SLONG *) p)[LOW_WORD];
+		high = ((SLONG *) p)[HIGH_WORD];
+		if ((value >= 0 && !high) || (value < 0 && high == -1))
+			break;
+		reinterpret_cast < pfn_cvt_private_cludge > (err) (gds__arith_except,
+														   0);
+		break;
+
+	case dtype_real:
+	case dtype_double:
+#ifdef VMS
+	case dtype_d_float:
+#endif
+		if (desc->dsc_dtype == dtype_real)
+			d = *((float *) p);
+		else if (desc->dsc_dtype == DEFAULT_DOUBLE)
+			d = *((double *) p);
+#ifdef VMS
+		else
+			d = CNVT_TO_DFLT((double *) p);
+#endif
+		if (scale > 0)
+			do
+				d /= 10.;
+			while (--scale);
+		else if (scale < 0)
+			do
+				d *= 10.;
+			while (++scale);
+		if (d > 0)
+			d += 0.5;
+		else
+			d -= 0.5;
+
+		/* make sure the cast will succeed - different machines 
+		   do different things if the value is larger than a long
+		   can hold */
+		/* If rounding would yield a legitimate value, permit it */
+
+		if (d < (double) LONG_MIN_real) {
+			if (d > (double) LONG_MIN_real - 1.)
+				return LONG_MIN;
+			reinterpret_cast < pfn_cvt_private_cludge >
+				(err) (gds__arith_except, 0);
+		}
+		if (d > (double) LONG_MAX_real) {
+			if (d < (double) LONG_MAX_real + 1.)
+				return LONG_MAX_int;
+			reinterpret_cast < pfn_cvt_private_cludge >
+				(err) (gds__arith_except, 0);
+		}
+		return (SLONG) d;
+
+	case dtype_varying:
+	case dtype_cstring:
+	case dtype_text:
+		length =
+			CVT_make_string(desc, ttype_ascii, &p, (VARY *) buffer,
+							sizeof(buffer), err);
+		scale -= decompose(p, length, dtype_long, &value, err);
+		break;
+
+	case dtype_blob:
+	case dtype_sql_date:
+	case dtype_sql_time:
+	case dtype_timestamp:
+	case dtype_array:
+		conversion_error(desc, err);
+		break;
+
+	default:
+		reinterpret_cast < pfn_cvt_private_cludge > (err) (gds__badblk, 0);	/* internal error */
+		break;
+	}
+
+/* Last, but not least, adjust for scale */
+
+	if (scale > 0) {
+		if (DTYPE_IS_EXACT(desc->dsc_dtype)) {
+			fraction = 0;
+			do {
+				if (scale == 1)
+					fraction = value % 10;
+				value /= 10;
+			} while (--scale);
+			if (fraction > 4)
+				value++;
+			/*
+			 * The following 2 lines are correct for platforms where
+			 * ((-85 / 10 == -8) && (-85 % 10 == -5)).  If we port to
+			 * a platform where ((-85 / 10 == -9) && (-85 % 10 == 5)),
+			 * we'll have to change this depending on the platform.
+			 */
+			else if (fraction < -4)
+				value--;
+		}
+		else
+			do
+				value /= 10;
+			while (--scale);
+	}
+	else if (scale < 0)
+		do {
+			if (value > LONG_LIMIT || value < -LONG_LIMIT)
+				reinterpret_cast < pfn_cvt_private_cludge >
+					(err) (gds__arith_except, 0);
+			value *= 10;
+		} while (++scale);
+
+	return value;
+}
+
+
+UCHAR CVT_get_numeric(UCHAR * string,
+					  USHORT length,
+					  SSHORT * scale, double *ptr, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ g e t _ n u m e r i c
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert a numeric literal (string) to its binary value.
+ *
+ *	If the literal contains an exponent or is too large to fit
+ *      in an int64, return a double, else if the literal is too
+ *      large to fit in a long, return an int64, else return a long.
+ *
+ *      The return value from the function is set to dtype_double,
+ *      dtype_int64, or dtype_long depending on the conversion performed.
+ *      The binary value (long, int64, or double) is stored at the
+ *      address given by ptr.
+ *              
+ *
+ **************************************/
+	UCHAR *p, *end;
+	SSHORT local_scale, fraction, sign, digit_seen;
+	DSC desc;
+	SINT64 value;
+
+
+	MOVE_CLEAR(&desc, sizeof(desc));
+	desc.dsc_dtype = dtype_text;
+	desc.dsc_ttype = ttype_ascii;
+	desc.dsc_length = length;
+	desc.dsc_address = string;
+
+	value = 0;
+	digit_seen = local_scale = fraction = sign = 0;
+
+	for (p = string, end = p + length; p < end; p++) {
+		if (DIGIT(*p)) {
+			digit_seen = 1;
+
+			/* Before computing the next value, make sure there will be
+			   no overflow. Trying to detect overflow after the fact is
+			   tricky: the value doesn't always become negative after an
+			   overflow!  */
+
+			if (value >= NUMERIC_LIMIT) {
+				/* possibility of an overflow */
+				if (value > NUMERIC_LIMIT)
+					break;
+				else if (((*p > '8') && (sign == -1))
+						 || ((*p > '7') && (sign != -1)))
+					break;
+			}
+
+			/* Force the subtraction to be performed before the addition,
+			   thus preventing a possible signed arithmetic overflow.    */
+			value = value * 10 + (*p - '0');
+			if (fraction)
+				--local_scale;
+		}
+		else if (*p == '.') {
+			if (fraction)
+				conversion_error(&desc, err);
+			else
+				fraction = TRUE;
+		}
+		else if (*p == '-' && !digit_seen && !sign && !fraction)
+			sign = -1;
+		else if (*p == '+' && !digit_seen && !sign && !fraction)
+			sign = 1;
+		else if (*p == 'e' || *p == 'E')
+			break;
+		else if (*p != ' ')
+			conversion_error(&desc, err);
+	}
+
+	if (!digit_seen)
+		conversion_error(&desc, err);
+
+	if ((p < end) ||			/* there is an exponent */
+		((value < 0) && (sign != -1))) {	/* MAX_SINT64+1 wrapped around */
+		/* convert to double */
+		*ptr = CVT_get_double(&desc, err);
+		return dtype_double;
+	}
+
+	*scale = local_scale;
+
+/* The literal has already been converted to a 64-bit integer: return
+   a long if the value fits into a long, else return an int64. */
+
+	if ((value <= LONG_MAX_int64) && (value >= 0)) {
+		*(SLONG *) ptr = (SLONG) ((sign == -1) ? -value : value);
+		return dtype_long;
+	}
+	else if ((sign == -1) && (-value == LONG_MIN_int64)) {
+		*(SLONG *) ptr = LONG_MIN;
+		return dtype_long;
+	}
+	else {
+		/* Either MAX_SLONG < value <= MAX_SINT64, or
+		   ((value == MIN_SINT64) && (sign == -1)).
+		   In the first case, the number can be negated, while in the second
+		   negating the value will not change it on a 2s-complement system. */
+
+		*(SINT64 *) ptr = ((sign == -1) ? -value : value);
+		return dtype_int64;
+	}
+}
+
+
+SQUAD CVT_get_quad(DSC * desc, SSHORT scale, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ g e t _ q u a d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert something arbitrary to a quad (64 bit) integer of given
+ *      scale.
+ *
+ **************************************/
+	SQUAD value;
+#ifdef NATIVE_QUAD
+	SLONG fraction;
+#endif
+	double d;
+	USHORT length;
+	UCHAR *p;
+	TEXT buffer[50];			/* long enough to represent largest quad in ASCII */
+
+/* adjust exact numeric values to same scaling */
+
+	if (DTYPE_IS_EXACT(desc->dsc_dtype))
+		scale -= desc->dsc_scale;
+
+	p = desc->dsc_address;
+
+	switch (desc->dsc_dtype) {
+	case dtype_short:
+		((SLONG *) & value)[LOW_WORD] = *((SSHORT *) p);
+		((SLONG *) & value)[HIGH_WORD] = (*((SSHORT *) p) < 0) ? -1 : 0;
+		break;
+
+	case dtype_long:
+		((SLONG *) & value)[LOW_WORD] = *((SLONG *) p);
+		((SLONG *) & value)[HIGH_WORD] = (*((SLONG *) p) < 0) ? -1 : 0;
+		break;
+
+	case dtype_quad:
+		value = *((SQUAD *) p);
+		break;
+
+	case dtype_int64:
+		((SLONG *) & value)[LOW_WORD] = (SLONG) (*((SINT64 *) p) & 0xffffffff);
+		((SLONG *) & value)[HIGH_WORD] = (SLONG) (*((SINT64 *) p) >> 32);
+		break;
+
+	case dtype_real:
+	case dtype_double:
+#ifdef VMS
+	case dtype_d_float:
+#endif
+		if (desc->dsc_dtype == dtype_real)
+			d = *((float *) p);
+		else if (desc->dsc_dtype == DEFAULT_DOUBLE)
+			d = *((double *) p);
+#ifdef VMS
+		else
+			d = CNVT_TO_DFLT((double *) p);
+#endif
+		if (scale > 0)
+			do
+				d /= 10.;
+			while (--scale);
+		else if (scale < 0)
+			do
+				d *= 10.;
+			while (++scale);
+		if (d > 0)
+			d += 0.5;
+		else
+			d -= 0.5;
+
+		/* make sure the cast will succeed - different machines 
+		   do different things if the value is larger than a quad
+		   can hold */
+
+		if (d < (double) QUAD_MIN_real || (double) QUAD_MAX_real < d) {
+			/* If rounding would yield a legitimate value, permit it */
+
+			if (d > (double) QUAD_MIN_real - 1.)
+				return QUAD_MIN_int;
+			else if (d < (double) QUAD_MAX_real + 1.)
+				return QUAD_MAX_int;
+			reinterpret_cast < pfn_cvt_private_cludge >
+				(err) (gds__arith_except, 0);
+		}
+		return QUAD_FROM_DOUBLE(d, err);
+
+	case dtype_varying:
+	case dtype_cstring:
+	case dtype_text:
+		length =
+			CVT_make_string(desc, ttype_ascii, &p, (VARY *) buffer,
+							sizeof(buffer), err);
+		scale -= decompose(p, length, dtype_quad, &value.high, err);
+		break;
+
+	case dtype_blob:
+	case dtype_sql_date:
+	case dtype_sql_time:
+	case dtype_timestamp:
+	case dtype_array:
+		conversion_error(desc, err);
+		break;
+
+	default:
+		reinterpret_cast < pfn_cvt_private_cludge > (err) (gds__badblk, 0);	/* internal error */
+		break;
+	}
+
+/* Last, but not least, adjust for scale */
+
+	if (scale == 0)
+		return value;
+
+#ifndef NATIVE_QUAD
+	reinterpret_cast < pfn_cvt_private_cludge > (err) (gds__badblk, 0);	/* internal error */
+#else
+	if (scale > 0) {
+		if (desc->dsc_dtype == dtype_short ||
+			desc->dsc_dtype == dtype_long || desc->dsc_dtype == dtype_quad) {
+			fraction = 0;
+			do {
+				if (scale == 1)
+					fraction = value % 10;
+				value /= 10;
+			} while (--scale);
+			if (fraction > 4)
+				value++;
+			/*
+			 * The following 2 lines are correct for platforms where
+			 * ((-85 / 10 == -8) && (-85 % 10 == -5)).  If we port to
+			 * a platform where ((-85 / 10 == -9) && (-85 % 10 == 5)),
+			 * we'll have to change this depending on the platform.
+			 */
+			else if (fraction < -4)
+				value--;
+		}
+		else
+			do
+				value /= 10;
+			while (--scale);
+	}
+	else
+		do {
+			if (value > QUAD_LIMIT || value < -QUAD_LIMIT)
+				(*err) (gds__arith_except, 0);
+			value *= 10;
+		} while (++scale);
+#endif
+
+	return value;
+}
+
+
+SINT64 CVT_get_int64(DSC * desc, SSHORT scale, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ g e t _ i n t 6 4
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert something arbitrary to an SINT64 (64 bit integer)
+ *      of given scale.
+ *
+ **************************************/
+	SINT64 value;
+	SLONG fraction;
+	double d;
+	USHORT length;
+	UCHAR *p;
+	TEXT buffer[50];			/* long enough to represent largest SINT64 in ASCII */
+
+	/* adjust exact numeric values to same scaling */
+
+	if (DTYPE_IS_EXACT(desc->dsc_dtype))
+		scale -= desc->dsc_scale;
+
+	p = desc->dsc_address;
+
+	switch (desc->dsc_dtype) {
+	case dtype_short:
+		value = *((SSHORT *) p);
+		break;
+
+	case dtype_long:
+		value = *((SLONG *) p);
+		break;
+
+	case dtype_int64:
+		value = *((SINT64 *) p);
+		break;
+
+	case dtype_quad:
+		value = (((SINT64) ((SLONG *) p)[HIGH_WORD]) << 32) +
+			(((ULONG *) p)[LOW_WORD]);
+		break;
+
+	case dtype_real:
+	case dtype_double:
+#ifdef VMS
+	case dtype_d_float:
+#endif
+		if (desc->dsc_dtype == dtype_real)
+			d = *((float *) p);
+		else if (desc->dsc_dtype == DEFAULT_DOUBLE)
+			d = *((double *) p);
+#ifdef VMS
+		else
+			d = CNVT_TO_DFLT((double *) p);
+#endif
+		if (scale > 0)
+			do
+				d /= 10.;
+			while (--scale);
+		else if (scale < 0)
+			do
+				d *= 10.;
+			while (++scale);
+		if (d > 0)
+			d += 0.5;
+		else
+			d -= 0.5;
+
+		/* make sure the cast will succeed - different machines 
+		   do different things if the value is larger than a quad
+		   can hold.
+
+		   Note that adding or subtracting 0.5, as we do in CVT_get_long,
+		   will never allow the rounded value to fit into an int64,
+		   because when the double value is too large in magnitude
+		   to fit, 0.5 is less than half of the least significant bit
+		   of the significant (sometimes miscalled "mantissa") of the
+		   double, and thus will have no effect on the sum. */
+
+		if (d < (double) QUAD_MIN_real || (double) QUAD_MAX_real < d)
+			reinterpret_cast < pfn_cvt_private_cludge >
+				(err) (gds__arith_except, 0);
+
+		return (SINT64) d;
+
+	case dtype_varying:
+	case dtype_cstring:
+	case dtype_text:
+		length =
+			CVT_make_string(desc, ttype_ascii, &p, (VARY *) buffer,
+							sizeof(buffer), err);
+		scale -= decompose(p, length, dtype_int64, (SLONG *) & value, err);
+		break;
+
+	case dtype_blob:
+	case dtype_sql_date:
+	case dtype_sql_time:
+	case dtype_timestamp:
+	case dtype_array:
+		conversion_error(desc, err);
+		break;
+
+	default:
+		reinterpret_cast < pfn_cvt_private_cludge > (err) (gds__badblk, 0);	/* internal error */
+		break;
+	}
+
+/* Last, but not least, adjust for scale */
+
+	if (scale > 0) {
+		if (desc->dsc_dtype == dtype_short ||
+			desc->dsc_dtype == dtype_long || desc->dsc_dtype == dtype_int64) {
+			fraction = 0;
+			do {
+				if (scale == 1)
+					fraction = (SLONG) (value % 10);
+				value /= 10;
+			} while (--scale);
+			if (fraction > 4)
+				value++;
+			/*
+			 * The following 2 lines are correct for platforms where
+			 * ((-85 / 10 == -8) && (-85 % 10 == -5)).  If we port to
+			 * a platform where ((-85 / 10 == -9) && (-85 % 10 == 5)),
+			 * we'll have to change this depending on the platform.
+			 */
+			else if (fraction < -4)
+				value--;
+		}
+		else
+			do
+				value /= 10;
+			while (--scale);
+	}
+	else if (scale < 0)
+		do {
+			if (value > INT64_LIMIT || value < -INT64_LIMIT)
+				reinterpret_cast < pfn_cvt_private_cludge >
+					(err) (gds__arith_except, 0);
+			value *= 10;
+		} while (++scale);
+
+	return value;
+}
+
+
+USHORT CVT_get_string_ptr(DSC * desc,
+						  USHORT * ttype,
+						  UCHAR ** address,
+						  VARY * temp, USHORT length, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ g e t _ s t r i n g _ p t r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get address and length of string, converting the value to
+ *      string, if necessary.  The caller must provide a sufficiently
+ *      large temporary.  The address of the resultant string is returned
+ *      by reference.  Get_string returns the length of the string (in bytes).
+ *
+ *      The text-type of the string is returned in ttype.
+ *
+ *      Note: If the descriptor is known to be a string type, the fourth
+ *      argument (temp buffer) may be NULL.
+ *
+ *      If input (desc) is already a string, the output pointers
+ *      point to the data of the same text_type.  If (desc) is not
+ *      already a string, output pointers point to ttype_ascii.
+ *
+ **************************************/
+	VARY *varying;
+	DSC temp_desc;
+
+	assert(desc != NULL);
+	assert(ttype != NULL);
+	assert(address != NULL);
+	assert(err != NULL);
+	assert((((temp != NULL) && (length > 0))
+			|| (desc->dsc_dtype == dtype_text)
+			|| (desc->dsc_dtype == dtype_cstring)
+			|| (desc->dsc_dtype == dtype_varying)));
+
+/* If the value is already a string (fixed or varying), just return
+   the address and length. */
+
+	if (desc->dsc_dtype <= dtype_any_text) {
+		*address = desc->dsc_address;
+		*ttype = INTL_TTYPE(desc);
+		if (desc->dsc_dtype == dtype_text)
+			return desc->dsc_length;
+		if (desc->dsc_dtype == dtype_cstring)
+			return MIN((USHORT) strlen((char *) desc->dsc_address),
+					   desc->dsc_length - 1);
+		if (desc->dsc_dtype == dtype_varying) {
+			varying = (VARY *) desc->dsc_address;
+			*address = varying->vary_string;
+			return MIN(varying->vary_length,
+					   desc->dsc_length - sizeof(USHORT));
+		}
+	}
+
+/* No luck -- convert value to varying string. */
+
+	MOVE_CLEAR(&temp_desc, sizeof(temp_desc));
+	temp_desc.dsc_length = length;
+	temp_desc.dsc_address = (UCHAR *) temp;
+	INTL_ASSIGN_TTYPE(&temp_desc, ttype_ascii);
+	temp_desc.dsc_dtype = dtype_varying;
+	CVT_move(desc, &temp_desc, err);
+	*address = temp->vary_string;
+	*ttype = INTL_TTYPE(&temp_desc);
+
+	return temp->vary_length;
+}
+
+
+GDS_DATE PASCAL_ROUTINE CVT_get_sql_date(DSC * desc, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ g e t _ s q l _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert something arbitrary to a SQL date value
+ *
+ **************************************/
+	DSC temp_desc;
+	GDS_DATE value;
+
+	if (desc->dsc_dtype == dtype_sql_date)
+		return *((GDS_DATE *) desc->dsc_address);
+
+	memset(&temp_desc, 0, sizeof(temp_desc));
+	temp_desc.dsc_dtype = dtype_sql_date;
+	temp_desc.dsc_address = (UCHAR *) & value;
+	CVT_move(desc, &temp_desc, err);
+	return value;
+}
+
+
+GDS_TIME PASCAL_ROUTINE CVT_get_sql_time(DSC * desc, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ g e t _ s q l _ t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert something arbitrary to a SQL time value
+ *
+ **************************************/
+	DSC temp_desc;
+	GDS_TIME value;
+
+	if (desc->dsc_dtype == dtype_sql_time)
+		return *((GDS_TIME *) desc->dsc_address);
+
+	memset(&temp_desc, 0, sizeof(temp_desc));
+	temp_desc.dsc_dtype = dtype_sql_time;
+	temp_desc.dsc_address = (UCHAR *) & value;
+	CVT_move(desc, &temp_desc, err);
+	return value;
+}
+
+
+GDS_TIMESTAMP PASCAL_ROUTINE CVT_get_timestamp(DSC * desc, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ g e t _ t i m e s t a m p
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert something arbitrary to a SQL timestamp
+ *
+ **************************************/
+	DSC temp_desc;
+	GDS_TIMESTAMP value;
+
+	if (desc->dsc_dtype == dtype_timestamp)
+		return *((GDS_TIMESTAMP *) desc->dsc_address);
+
+	memset(&temp_desc, 0, sizeof(temp_desc));
+	temp_desc.dsc_dtype = dtype_timestamp;
+	temp_desc.dsc_address = (UCHAR *) & value;
+	CVT_move(desc, &temp_desc, err);
+	return value;
+}
+
+
+USHORT CVT_make_string(DSC * desc,
+					   USHORT to_interp,
+					   UCHAR ** address,
+					   VARY * temp, USHORT length, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ m a k e _ s t r i n g 
+ *
+ **************************************
+ *
+ * Functional description
+ *     Convert the data from the desc to a string in the specified interp.
+ *     The pointer to this string is returned in address.
+ *
+ **************************************/
+	VARY *varying;
+	DSC temp_desc;
+	USHORT from_len;
+
+	assert(desc != NULL);
+	assert(address != NULL);
+	assert(err != NULL);
+	assert((((temp != NULL) && (length > 0))
+			|| ((INTL_TTYPE(desc) <= dtype_any_text)
+				&& (INTL_TTYPE(desc) == to_interp))));
+
+	if (desc->dsc_dtype <= dtype_any_text && INTL_TTYPE(desc) == to_interp) {
+		*address = desc->dsc_address;
+		from_len = desc->dsc_length;
+		if (desc->dsc_dtype == dtype_text)
+			return from_len;
+		if (desc->dsc_dtype == dtype_cstring)
+			return MIN((USHORT) strlen((char *) desc->dsc_address),
+					   from_len - 1);
+		if (desc->dsc_dtype == dtype_varying) {
+			varying = (VARY *) desc->dsc_address;
+			*address = varying->vary_string;
+			return MIN(varying->vary_length, from_len - sizeof(USHORT));
+		}
+	}
+
+/* Not string data, then  -- convert value to varying string. */
+
+	MOVE_CLEAR(&temp_desc, sizeof(temp_desc));
+	temp_desc.dsc_length = length;
+	temp_desc.dsc_address = (UCHAR *) temp;
+	INTL_ASSIGN_TTYPE(&temp_desc, to_interp);
+	temp_desc.dsc_dtype = dtype_varying;
+	CVT_move(desc, &temp_desc, err);
+	*address = temp->vary_string;
+
+	return temp->vary_length;
+}
+
+
+void DLL_EXPORT CVT_move(DSC * from, DSC * to, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      C V T _ m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Move (and possible convert) something to something else.
+ *
+ **************************************/
+	register UCHAR *p, *q;
+	register SSHORT fill;
+	SLONG l, length;
+	UCHAR *ptr;
+	USHORT strtype;
+#if !defined(REQUESTER) && !defined(SUPERCLIENT)
+	CHARSET_ID charset1, charset2;
+#endif
+	UCHAR fill_char;
+
+	length = from->dsc_length;
+	p = to->dsc_address;
+	q = from->dsc_address;
+
+/* If the datatypes and lengths are identical, just move the
+   stuff byte by byte.  Although this may seem slower than 
+   optimal, it would cost more to find the fast move than the
+   fast move would gain. */
+
+	if (DSC_EQUIV(from, to)) {
+		if (length) {
+			MOVE_FAST(q, p, length);
+		}
+		return;
+	}
+
+/* Do data type by data type conversions.  Not all are supported,
+   and some will drop out for additional handling. */
+
+	switch (to->dsc_dtype) {
+	case dtype_timestamp:
+		switch (from->dsc_dtype) {
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_text:
+			{
+				GDS_TIMESTAMP date;
+				struct tm times;
+
+				string_to_datetime(from, &date, expect_timestamp, err);
+
+				isc_decode_timestamp(&date, &times);
+				if ((times.tm_year + 1900) < MIN_YEAR
+					|| (times.tm_year) + 1900 > MAX_YEAR)
+					reinterpret_cast < pfn_cvt_private_cludge >
+						(err) (isc_date_range_exceeded, 0);
+
+				((GDS_TIMESTAMP *) to->dsc_address)->timestamp_date = date.timestamp_date;
+				((GDS_TIMESTAMP *) to->dsc_address)->timestamp_time = date.timestamp_time;
+			}
+			return;
+
+		case dtype_sql_date:
+			((GDS_TIMESTAMP *) (to->dsc_address))->timestamp_date =
+				*(GDS_DATE *) (from->dsc_address);
+			((GDS_TIMESTAMP *) (to->dsc_address))->timestamp_time = 0;
+			return;
+
+		case dtype_sql_time:
+			((GDS_TIMESTAMP *) (to->dsc_address))->timestamp_date = 0;
+			((GDS_TIMESTAMP *) (to->dsc_address))->timestamp_time =
+				*(GDS_TIME *) (from->dsc_address);
+
+			/* Per SQL Specs, we need to set the DATE
+			   portion to the current date */
+			{
+				TDBB tdbb = NULL;
+				time_t clock;
+				struct tm times;
+				GDS_TIMESTAMP enc_times;
+
+		/** Cannot call GET_THREAD_DATA because that macro calls 
+		    BUGCHECK i.e. ERR_bugcheck() which is not part of 
+		    client library **/
+				tdbb = PLATFORM_GET_THREAD_DATA;
+
+				/* If we're in the engine, then the THDD type must
+				   be a THDD_TYPE_TDBB.  So, if we're in the engine
+				   and have a request, pull the effective date out
+				   of the request timestamp.
+				   Otherwise, take the CURRENT date to populate the 
+				   date portion of the timestamp */
+
+				if ((tdbb) &&
+					(((THDD) tdbb)->thdd_type == THDD_TYPE_TDBB) &&
+					tdbb->tdbb_request) {
+					if (tdbb->tdbb_request->req_timestamp)
+						clock = tdbb->tdbb_request->req_timestamp;
+					else {
+						/* All requests should have a timestamp */
+						assert(FALSE);
+						clock = time(0);
+					}
+				}
+				else
+					clock = time(0);
+				times = *localtime(&clock);
+				isc_encode_timestamp(&times, &enc_times);
+				((GDS_TIMESTAMP *) (to->dsc_address))->timestamp_date =
+					enc_times.timestamp_date;
+			}
+			return;
+
+		default:
+			assert(FALSE);		/* Fall into ... */
+		case dtype_short:
+		case dtype_long:
+		case dtype_int64:
+		case dtype_quad:
+		case dtype_real:
+		case dtype_double:
+#ifdef VMS
+		case dtype_d_float:
+#endif
+			conversion_error(from, err);
+			break;
+		}
+		break;
+
+	case dtype_sql_date:
+		switch (from->dsc_dtype) {
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_text:
+			{
+				GDS_TIMESTAMP date;
+				struct tm times;
+
+				string_to_datetime(from, &date, expect_sql_date, err);
+				isc_decode_timestamp(&date, &times);
+				if ((times.tm_year + 1900) < MIN_YEAR
+					|| (times.tm_year) + 1900 > MAX_YEAR)
+					reinterpret_cast < pfn_cvt_private_cludge >
+						(err) (isc_date_range_exceeded, 0);
+
+				*((GDS_DATE *) to->dsc_address) = date.timestamp_date;
+			}
+			return;
+
+		case dtype_timestamp:
+			{
+				GDS_TIMESTAMP new_date;
+				struct tm times;
+
+				new_date.timestamp_date =
+					((GDS_TIMESTAMP *) from->dsc_address)->timestamp_date;
+				new_date.timestamp_time = 0;
+
+				isc_decode_timestamp(&new_date, &times);
+				if ((times.tm_year + 1900) < MIN_YEAR
+					|| (times.tm_year) + 1900 > MAX_YEAR)
+					reinterpret_cast < pfn_cvt_private_cludge >
+						(err) (isc_date_range_exceeded, 0);
+
+				*((GDS_DATE *) to->dsc_address) =
+					((GDS_TIMESTAMP *) from->dsc_address)->timestamp_date;
+			}
+			return;
+
+		default:
+			assert(FALSE);		/* Fall into ... */
+		case dtype_sql_time:
+		case dtype_short:
+		case dtype_long:
+		case dtype_int64:
+		case dtype_quad:
+		case dtype_real:
+		case dtype_double:
+#ifdef VMS
+		case dtype_d_float:
+#endif
+			conversion_error(from, err);
+			break;
+		}
+		break;
+
+	case dtype_sql_time:
+		switch (from->dsc_dtype) {
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_text:
+			{
+				GDS_TIMESTAMP date;
+				string_to_datetime(from, &date, expect_sql_time, err);
+				*(GDS_TIME *) to->dsc_address = date.timestamp_time;
+			}
+			return;
+
+		case dtype_timestamp:
+			*((GDS_TIME *) to->dsc_address) =
+				((GDS_TIMESTAMP *) from->dsc_address)->timestamp_time;
+			return;
+
+		default:
+			assert(FALSE);		/* Fall into ... */
+		case dtype_sql_date:
+		case dtype_short:
+		case dtype_long:
+		case dtype_int64:
+		case dtype_quad:
+		case dtype_real:
+		case dtype_double:
+#ifdef VMS
+		case dtype_d_float:
+#endif
+			conversion_error(from, err);
+			break;
+		}
+		break;
+
+	case dtype_text:
+	case dtype_cstring:
+	case dtype_varying:
+		switch (from->dsc_dtype) {
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_text:
+			/* If we are within the engine, INTL_convert_string 
+			 * will convert the string between character sets
+			 * (or die trying).
+			 * This module, however, can be called from outside
+			 * the engine (for instance, moving values around for
+			 * DSQL).
+			 * In that event, we'll move the values if we think
+			 * they are compatible text types, otherwise fail.
+			 * eg: Simple cases can be handled here (no
+			 * character set conversion).
+			 *
+			 * a charset type binary is compatible with all other types.
+			 * if a charset involved is ttype_dynamic, we must look up
+			 *    the charset of the attachment (only if we are in the 
+			 *    engine). If we are outside the engine, the
+			 *    assume that the engine has converted the values
+			 *    previously in the request.
+			 *
+			 * Even within the engine, not calling INTL_convert_string
+			 * unless really required is a good optimization.
+			 */
+
+#ifndef REQUESTER
+#ifndef SUPERCLIENT
+			if ((INTL_TTYPE(from) == ttype_dynamic) &&
+				(err == (FPTR_VOID) ERR_post))
+					charset1 = INTL_charset(NULL_TDBB, INTL_TTYPE(from), err);
+			else
+				charset1 = INTL_TTYPE(from);
+
+			if ((INTL_TTYPE(to) == ttype_dynamic) &&
+				(err == (FPTR_VOID) ERR_post))
+					charset2 = INTL_charset(NULL_TDBB, INTL_TTYPE(to), err);
+			else
+				charset2 = INTL_TTYPE(to);
+
+			/* The charset[12] can be ttype_dynamic only if we are
+			   outside the engine. Within the engine INTL_charset
+			   would have set it to the ttype of the attachment */
+
+			if ((charset1 != charset2) &&
+				(charset2 != ttype_none) &&
+				(charset1 != ttype_binary) &&
+				(charset2 != ttype_binary) &&
+				(charset1 != ttype_dynamic) && (charset2 != ttype_dynamic)) {
+				if (err == (FPTR_VOID) ERR_post) {
+					INTL_convert_string(to, from, err);
+					return;
+				}
+				else
+#endif
+#endif
+					reinterpret_cast < pfn_cvt_private_cludge >
+						(err) (gds__arith_except, 0);
+#ifndef REQUESTER
+#ifndef SUPERCLIENT
+			}
+#endif
+#endif
+
+			length = l =
+				CVT_get_string_ptr(from, &strtype, &ptr, NULL, 0, err);
+			q = ptr;
+			switch (to->dsc_dtype) {
+			case dtype_text:
+				length = MIN(length, to->dsc_length);
+				l -= length;
+				/* TMN: Here we should really have the following assert */
+				/* assert((to->dsc_length - length) <= MAX_SSHORT); */
+				fill = (SSHORT) (to->dsc_length - length);
+
+				CVT_COPY_BUFF(q, p, length);
+				if (fill > 0) {
+#ifndef REQUESTER
+#ifndef SUPERCLIENT
+					if (charset2 == ttype_binary)
+						fill_char = 0x00;
+					else
+#endif
+#endif
+						fill_char = ASCII_SPACE;
+					do
+						*p++ = fill_char;
+					while (--fill);
+					/* Note: above is correct only for narrow 
+					   and multi-byte character sets which 
+					   use ASCII for the SPACE character.  */
+				}
+				break;
+
+			case dtype_cstring:
+				/* Note: Following is only correct for narrow and
+				   multibyte character sets which use a zero
+				   byte to represent end-of-string */
+
+				length = MIN(length, to->dsc_length - 1);
+				l -= length;
+				CVT_COPY_BUFF(q, p, length);
+				*p = 0;
+				break;
+
+			case dtype_varying:
+				length =
+					MIN(length, (SLONG) (to->dsc_length - sizeof(USHORT)));
+				l -= length;
+				/* TMN: Here we should really have the following assert */
+				/* assert(length <= MAX_USHORT); */
+				((VARY *) p)->vary_length = (USHORT) length;
+				p = ((VARY *) p)->vary_string;
+				CVT_COPY_BUFF(q, p, length);
+				break;
+			}
+
+			if (l) {
+				/* scan the truncated string to ensure only spaces lost */
+				/* Note: it  is correct only for narrow and multi-byte
+				   character sets which use ASCII for the SPACE
+				   character. */
+
+				do
+					if (*q++ != ASCII_SPACE)
+						reinterpret_cast < pfn_cvt_private_cludge >
+							(err) (gds__arith_except, 0);
+				while (--l);
+			}
+			return;
+
+		case dtype_short:
+		case dtype_long:
+		case dtype_int64:
+		case dtype_quad:
+			integer_to_text(from, to, err);
+			return;
+
+		case dtype_real:
+		case dtype_double:
+#ifdef VMS
+		case dtype_d_float:
+#endif
+			float_to_text(from, to, err);
+			return;
+
+		case dtype_sql_date:
+		case dtype_sql_time:
+		case dtype_timestamp:
+			datetime_to_text(from, to, err);
+			return;
+
+		default:
+			assert(FALSE);		/* Fall into ... */
+		case dtype_blob:
+			conversion_error(from, err);
+			return;
+		}
+		break;
+
+	case dtype_blob:
+	case dtype_array:
+		if (from->dsc_dtype == dtype_quad) {
+			((SLONG *) p)[0] = ((SLONG *) q)[0];
+			((SLONG *) p)[1] = ((SLONG *) q)[1];
+			return;
+		}
+
+		if (to->dsc_dtype != from->dsc_dtype)
+			reinterpret_cast < pfn_cvt_private_cludge2 > (err) (gds_wish_list,
+																gds_arg_gds,
+																gds__blobnotsup,
+																gds_arg_string,
+																"move", 0);
+
+		/* Note: DSC_EQUIV failed above as the blob sub_types were different,
+		 * or their character sets were different.  In V4 we aren't trying
+		 * to provide blob type integrity, so we just assign the blob id
+		 */
+
+		/* Move blob_id byte-by-byte as that's the way it was done before */
+		CVT_COPY_BUFF(q, p, length);
+		return;
+
+	case dtype_short:
+		l = CVT_get_long(from, (SSHORT) to->dsc_scale, err);
+		/* TMN: Here we should really have the following assert */
+		/* assert(l <= MAX_SSHORT); */
+		*(SSHORT *) p = (SSHORT) l;
+		if (*(SSHORT *) p != l)
+			reinterpret_cast < pfn_cvt_private_cludge >
+				(err) (gds__arith_except, 0);
+		return;
+
+	case dtype_long:
+		*(SLONG *) p = CVT_get_long(from, (SSHORT) to->dsc_scale, err);
+		return;
+
+	case dtype_int64:
+		*(SINT64 *) p = CVT_get_int64(from, (SSHORT) to->dsc_scale, err);
+		return;
+
+	case dtype_quad:
+		if (from->dsc_dtype == dtype_blob || from->dsc_dtype == dtype_array) {
+			((SLONG *) p)[0] = ((SLONG *) q)[0];
+			((SLONG *) p)[1] = ((SLONG *) q)[1];
+			return;
+		}
+		*(SQUAD *) p = CVT_get_quad(from, (SSHORT) to->dsc_scale, err);
+		return;
+
+	case dtype_real:
+		{
+			double d_value;
+			d_value = CVT_get_double(from, err);
+			if (ABSOLUT(d_value) > FLOAT_MAX)
+				reinterpret_cast < pfn_cvt_private_cludge >
+					(err) (gds__arith_except, 0);
+			*(float *) p = (float) d_value;
+		}
+		return;
+
+	case DEFAULT_DOUBLE:
+		*(double *) p = CVT_get_double(from, err);
+		return;
+
+#ifdef VMS
+	case SPECIAL_DOUBLE:
+		*(double *) p = CVT_get_double(from, err);
+		*(double *) p = CNVT_FROM_DFLT((double *) p);
+		return;
+#endif
+	}
+
+	if (from->dsc_dtype == dtype_array || from->dsc_dtype == dtype_blob)
+		reinterpret_cast < pfn_cvt_private_cludge2 > (err) (gds_wish_list,
+															gds_arg_gds,
+															gds__blobnotsup,
+															gds_arg_string,
+															"move", 0);
+
+	reinterpret_cast < pfn_cvt_private_cludge > (err) (gds__badblk, 0);	/* internal error */
+}
+
+
+static void conversion_error(DSC * desc, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      c o n v e r s i o n _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *      A data conversion error occurred.  Complain.
+ *
+ **************************************/
+	TEXT *p, s[40], *string;
+	USHORT length;
+
+	if (desc->dsc_dtype == dtype_blob)
+		p = "BLOB";
+	else if (desc->dsc_dtype == dtype_array)
+		p = "ARRAY";
+	else {
+		length =
+			CVT_make_string(desc, ttype_ascii, (UCHAR **) & string,
+							(VARY *) s, sizeof(s), err);
+#if (defined REQUESTER || defined SUPERCLIENT)
+		p = error_string(string, length);
+#else
+		p = ERR_string(string, length);
+#endif
+	}
+
+	reinterpret_cast < pfn_cvt_private_cludge2 > (err) (gds__convert_error,
+														gds_arg_string, p, 0);
+}
+
+
+static void datetime_to_text(DSC * from, DSC * to, FPTR_VOID err)
+{
+/**************************************
+ *
+ *       d a t e t i m e _ t o _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert a timestamp, date or time value to text.
+ *
+ **************************************/
+	DSC desc;
+	TEXT *p, temp[30];			/* yyyy-mm-dd hh:mm:ss.tttt  OR
+								   dd-MMM-yyyy hh:mm:ss.tttt */
+	struct tm times;
+	GDS_TIMESTAMP date;
+	TDBB tdbb = NULL;
+	SSHORT version4 = TRUE;
+
+	assert(DTYPE_IS_TEXT(to->dsc_dtype));
+
+/* Convert a date or time value into a timestamp for manipulation */
+
+
+	switch (from->dsc_dtype) {
+	case dtype_sql_time:
+		date.timestamp_date = 0;
+		date.timestamp_time = *(GDS_TIME *) from->dsc_address;
+		break;
+	case dtype_sql_date:
+		date.timestamp_date = *(GDS_DATE *) from->dsc_address;
+		date.timestamp_time = 0;
+		break;
+	case dtype_timestamp:
+		/** Cannot call GET_THREAD_DATA because that macro calls 
+            BUGCHECK i.e. ERR_bugcheck() which is not part of 
+	    client library **/
+		tdbb = PLATFORM_GET_THREAD_DATA;
+		if ((tdbb) &&
+			(((THDD) tdbb)->thdd_type == THDD_TYPE_TDBB) &&
+			tdbb->tdbb_request)
+version4 = (tdbb->tdbb_request->req_flags & req_blr_version4) ? TRUE : FALSE;
+		date = *(GDS_TIMESTAMP *) from->dsc_address;
+		break;
+	default:
+		assert(FALSE);
+		reinterpret_cast < pfn_cvt_private_cludge > (err) (gds__badblk, 0);	/* internal error */
+		break;
+	}
+
+/* Decode the timestamp into human readable terms */
+
+	isc_decode_timestamp(&date, &times);
+	p = temp;
+
+/* Make a textual date for data types that include it */
+
+	if (from->dsc_dtype != dtype_sql_time) {
+
+		if (from->dsc_dtype == dtype_sql_date || !version4)
+			sprintf(p, "%4.4d-%2.2d-%2.2d",
+					times.tm_year + 1900, times.tm_mon + 1, times.tm_mday);
+		else
+			/* Prior to BLR version 5 - timestamps where converted to
+			   text in the dd-Mon-yyyy format */
+			sprintf(p, "%d-%.3s-%d",
+					times.tm_mday,
+					months[times.tm_mon], times.tm_year + 1900);
+
+		while (*p)
+			p++;
+	};
+
+/* Put in a space to separate date & time components */
+
+	if ((from->dsc_dtype == dtype_timestamp) && (!version4))
+		*p++ = ' ';
+
+/* Add the time part for data types that include it */
+
+	if (from->dsc_dtype != dtype_sql_date) {
+		if (from->dsc_dtype == dtype_sql_time || !version4)
+			sprintf(p, "%2.2d:%2.2d:%2.2d.%4.4d",
+					times.tm_hour, times.tm_min, times.tm_sec,
+					(USHORT) (date.timestamp_time %
+							  ISC_TIME_SECONDS_PRECISION));
+		else if (times.tm_hour || times.tm_min || times.tm_sec
+				 || date.timestamp_time)
+			/* Timestamp formating prior to BLR Version 5 is slightly
+			   different */
+			sprintf(p, " %d:%.2d:%.2d.%.4d",
+					times.tm_hour, times.tm_min, times.tm_sec,
+					(USHORT) (date.timestamp_time %
+							  ISC_TIME_SECONDS_PRECISION));
+		while (*p)
+			p++;
+	};
+
+/* Move the text version of the date/time value into the destination */
+
+	MOVE_CLEAR(&desc, sizeof(desc));
+	desc.dsc_address = (UCHAR *) temp;
+	desc.dsc_dtype = dtype_text;
+	desc.dsc_ttype = ttype_ascii;
+	desc.dsc_length = (p - temp);
+	if (from->dsc_dtype == dtype_timestamp && version4) {
+		USHORT l;
+		/* Prior to BLR Version5, when a timestamp is converted to a string it
+		   is silently truncated if the destination string is not large enough */
+
+		assert(to->dsc_dtype <= dtype_any_text);
+
+		l = (to->dsc_dtype == dtype_cstring) ? 1 :
+			(to->dsc_dtype == dtype_varying) ? sizeof(USHORT) : 0;
+		desc.dsc_length = MIN(desc.dsc_length, (to->dsc_length - l));
+	}
+
+	CVT_move(&desc, to, err);
+}
+
+
+static SSHORT decompose(
+						UCHAR * string,
+						USHORT length,
+						SSHORT dtype, SLONG * return_value, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      d e c o m p o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Decompose a numeric string in mantissa and exponent.
+ *
+ **************************************/
+	UCHAR *p, *end;
+	SSHORT scale, exp, fraction, sign, digit_seen;
+	DSC errd;
+	SINT64 value, lower_limit, upper_limit, limit_by_10;
+
+#ifndef NATIVE_QUAD
+/* For now, this routine does not handle quadwords unless this is
+   supported by the platform as a native datatype. */
+
+	if (dtype == dtype_quad)
+		reinterpret_cast < pfn_cvt_private_cludge > (err) (gds__badblk, 0);	/* internal error */
+#endif
+
+	MOVE_CLEAR(&errd, sizeof(errd));
+	errd.dsc_dtype = dtype_text;
+	errd.dsc_ttype = ttype_ascii;
+	errd.dsc_length = length;
+	errd.dsc_address = string;
+
+	value = 0;
+	digit_seen = scale = fraction = sign = 0;
+	lower_limit = (dtype == dtype_long) ? MIN_SLONG : MIN_SINT64;
+	upper_limit = (dtype == dtype_long) ? MAX_SLONG : MAX_SINT64;
+
+	limit_by_10 = upper_limit / 10;	/* used to check for overflow */
+
+	for (p = string, end = p + length; p < end; p++) {
+		if (*p == ',')
+			continue;
+		else if (DIGIT(*p)) {
+			digit_seen = 1;
+
+			/* Before computing the next value, make sure there will be
+			   no overflow. Trying to detect overflow after the fact is
+			   tricky: the value doesn't always become negative after an
+			   overflow!  */
+
+			if (value >= limit_by_10) {
+				/* possibility of an overflow */
+				if (value > limit_by_10)
+					reinterpret_cast < pfn_cvt_private_cludge >
+						(err) (gds__arith_except, 0);
+				else if (((*p > '8') && (sign == -1))
+						 || ((*p > '7') && (sign != -1)))
+					reinterpret_cast < pfn_cvt_private_cludge >
+						(err) (gds__arith_except, 0);
+			}
+
+			value = value * 10 + *p - '0';
+			if (fraction)
+				--scale;
+		}
+		else if (*p == '.') {
+			if (fraction)
+				conversion_error(&errd, err);
+			else
+				fraction = TRUE;
+		}
+		else if (*p == '-' && !digit_seen && !sign && !fraction)
+			sign = -1;
+		else if (*p == '+' && !digit_seen && !sign && !fraction)
+			sign = 1;
+		else if (*p == 'e' || *p == 'E')
+			break;
+		else if (*p != ' ')
+			conversion_error(&errd, err);
+	}
+
+
+	if (!digit_seen)
+		conversion_error(&errd, err);
+
+	if ((sign == -1) && value != lower_limit)
+		value = -value;
+
+/* If there's still something left, there must be an explicit exponent */
+
+	if (p < end) {
+		digit_seen = sign = exp = 0;
+		for (p++; p < end; p++) {
+			if (DIGIT(*p)) {
+				digit_seen = 1;
+				exp = exp * 10 + *p - '0';
+
+				/* The following is a 'safe' test to prevent overflow of
+				   exp here and of scale below. A more precise test will
+				   occur in the calling routine when the scale/exp is
+				   applied to the value. */
+
+				if (exp >= SHORT_LIMIT)
+					reinterpret_cast < pfn_cvt_private_cludge >
+						(err) (gds__arith_except, 0);
+			}
+			else if (*p == '-' && !digit_seen && !sign)
+				sign = -1;
+			else if (*p == '+' && !digit_seen && !sign)
+				sign = 1;
+			else if (*p != ' ')
+				conversion_error(&errd, err);
+		}
+		if (sign == -1)
+			scale -= exp;
+		else
+			scale += exp;
+
+		if (!digit_seen)
+			conversion_error(&errd, err);
+
+	}
+
+	if (dtype == dtype_long)
+		*return_value = (SLONG) value;
+	else
+		*((SINT64 *) return_value) = value;
+
+	return scale;
+}
+
+
+#if (defined REQUESTER || defined SUPERCLIENT)
+static TEXT *error_string(TEXT * in_string, SSHORT length)
+{
+/**************************************
+ *
+ *      e r r o r _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Copy a stack local string into an area that is
+ *      guaranteed to exist for a reasonable length of time.
+ *      A circular buffer is used to hold these strings.  It
+ *      is independent of the JRD allocator mechanism.
+ *
+ **************************************/
+	TEXT *new_string;
+
+	if (!cvt_failures_ptr)
+		cvt_failures_ptr = cvt_failures;
+
+/* If there isn't any more room in the buffer, start at the beginning again */
+
+	if (cvt_failures_ptr + length + 1 > cvt_failures + CVT_FAILURE_SPACE)
+		cvt_failures_ptr = cvt_failures;
+
+	new_string = cvt_failures_ptr;
+
+	while (length--
+		   && (cvt_failures_ptr <
+			   cvt_failures + CVT_FAILURE_SPACE - 1)) *cvt_failures_ptr++ =
+			*in_string++;
+	*cvt_failures_ptr++ = 0;
+
+	return new_string;
+}
+#endif
+
+
+static void float_to_text(DSC * from, DSC * to, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      f l o a t _ t o _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert an arbitrary floating type number to text.
+ *      To avoid messiness, convert first into a temp (fixed) then
+ *      move to the destination.
+ *      Never print more digits than the source type can actually
+ *      provide: instead pad the output with blanks on the right if
+ *      needed.
+ *
+ **************************************/
+	double d;
+	int precision;
+	int to_len;					/* length of destination */
+	int width;					/* minimum width to print */
+	int chars_printed;			/* number of characters printed */
+	char temp[] = "-1.234567890123456E-300";
+
+	to_len = DSC_string_length(to);
+	width = MIN(to_len, sizeof(temp) - 1);
+
+	if (dtype_double == from->dsc_dtype) {
+		precision = 16;			/* minimum significant digits in a double */
+		d = *(double *) from->dsc_address;
+	}
+	else {
+		assert(dtype_real == from->dsc_dtype);
+		precision = 8;			/* minimum significant digits in a float */
+		d = (double) *(float *) from->dsc_address;
+	}
+
+/* If this is a double with non-zero scale, then it is an old-style
+   NUMERIC(15, -scale): print it in fixed format with -scale digits
+   to the right of the ".". */
+
+	if ((dtype_double == from->dsc_dtype) && (from->dsc_scale < 0))
+		chars_printed = sprintf(temp, "%- #*.*f", width, -from->dsc_scale, d);
+	else
+		chars_printed = LONG_MAX_int;	/* sure to be greater than to_len */
+
+/* If it's not an old-style numeric, or the f-format was too long for the
+   destination, try g-format with the maximum precision which makes sense
+   for the input type: if it fits, we're done. */
+
+	if (chars_printed > width) {
+		chars_printed = sprintf(temp, "%- #*.*g", width, precision, d);
+
+		/* If the full-precision result is too wide for the destination,
+		   reduce the precision and try again. */
+
+		if (chars_printed > width) {
+			precision -= (chars_printed - width);
+
+			/* If we cannot print at least two digits, one on each side of the
+			   ".", report an overflow exception. */
+			if (precision < 2)
+				reinterpret_cast < pfn_cvt_private_cludge >
+					(err) (gds__arith_except, 0);
+
+			chars_printed = sprintf(temp, "%- #*.*g", width, precision, d);
+
+			/* It's possible that reducing the precision caused sprintf to switch
+			   from f-format to e-format, and that the output is still too long
+			   for the destination.  If so, reduce the precision once more.
+			   This is certain to give a short-enough result. */
+
+			if (chars_printed > width) {
+				precision -= (chars_printed - width);
+				if (precision < 2)
+					reinterpret_cast < pfn_cvt_private_cludge >
+						(err) (gds__arith_except, 0);
+				chars_printed =
+					sprintf(temp, "%- #*.*g", width, precision, d);
+			}
+		}
+	}
+	assert(chars_printed <= width);
+
+/* Now move the result to the destination array. */
+
+	DSC intermediate = { 0 };
+	intermediate.dsc_dtype = dtype_text;
+	intermediate.dsc_ttype = ttype_ascii;
+	intermediate.dsc_address = (UCHAR *) temp;
+	intermediate.dsc_length = chars_printed;
+
+	CVT_move(&intermediate, to, err);
+}
+
+
+static void integer_to_text(DSC * from, DSC * to, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      i n t e g e r _ t o _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert your basic binary number to 
+ *      nice, formatted text.
+ *
+ **************************************/
+	DSC intermediate;
+	UCHAR temp[32], *p, *q;
+	SSHORT l, neg, pad, decimal, length;
+	SCHAR scale;
+	SINT64 n;
+	UINT64 u;
+
+#ifndef NATIVE_QUAD
+/* For now, this routine does not handle quadwords unless this is
+   supported by the platform as a native datatype. */
+
+	if (from->dsc_dtype == dtype_quad)
+		reinterpret_cast < pfn_cvt_private_cludge > (err) (gds__badblk, 0);	/* internal error */
+#endif
+
+	pad = decimal = neg = 0;
+
+/* Save (or compute) scale of source.  Then convert source to ordinary
+   longword or int64. */
+
+	scale = from->dsc_scale;
+
+	if (scale > 0)
+		pad = scale;
+	else if (scale < 0)
+		decimal = 1;
+
+	MOVE_CLEAR(&intermediate, sizeof(intermediate));
+	intermediate.dsc_dtype = dtype_int64;
+	intermediate.dsc_length = sizeof(n);
+	intermediate.dsc_scale = scale;
+	intermediate.dsc_address = (UCHAR *) & n;
+
+	CVT_move(from, &intermediate, err);
+
+/* Check for negation, then convert the number to a string of digits */
+
+	if (n >= 0)
+		u = n;
+	else {
+		neg = 1;
+		u = -n;
+	}
+
+	p = temp;
+
+	do {
+		*p++ = (UCHAR) (u % 10) + '0';
+		u /= 10;
+	} while (u);
+
+	l = p - temp;
+
+/* if scale < 0, we need at least abs(scale)+1 digits, so add
+   any leading zeroes required. */
+	while (l + scale <= 0) {
+		*p++ = '0';
+		l++;
+	}
+/* postassertion: l+scale > 0 */
+
+/* Compute the total length of the field formatted.  Make sure it
+   fits.  Keep in mind that routine handles both string and varying
+   string fields. */
+
+	length = l + neg + decimal + pad;
+
+	if ((to->dsc_dtype == dtype_text && length > to->dsc_length) ||
+		(to->dsc_dtype == dtype_cstring && length >= to->dsc_length) ||
+		(to->dsc_dtype == dtype_varying
+		 && length > (SSHORT) (to->dsc_length - sizeof(USHORT))))
+		conversion_error(to, err);
+
+	q =
+		(to->dsc_dtype ==
+		 dtype_varying) ? to->dsc_address + sizeof(USHORT) : to->dsc_address;
+
+/* If negative, put in minus sign */
+
+	if (neg)
+		*q++ = '-';
+
+/* If a decimal point is required, do the formatting.  Otherwise just
+   copy number */
+
+	if (scale >= 0)
+		do
+			*q++ = *--p;
+		while (--l);
+	else {
+		l += scale;				/* l > 0 (see postassertion: l+scale > 0 above) */
+		do
+			*q++ = *--p;
+		while (--l);
+		*q++ = '.';
+		do
+			*q++ = *--p;
+		while (++scale);
+	}
+
+/* If padding is required, do it now. */
+
+	if (pad)
+		do
+			*q++ = '0';
+		while (--pad);
+
+/* Finish up by padding (if fixed) or computing the actual length
+   (varying string) */
+
+	if (to->dsc_dtype == dtype_text) {
+		if ((l = to->dsc_length - length) > 0)
+			do
+				*q++ = ' ';
+			while (--l);
+		return;
+	}
+
+	if (to->dsc_dtype == dtype_cstring) {
+		*q = 0;
+		return;
+	}
+
+	*(SSHORT *) (to->dsc_address) = q - to->dsc_address - sizeof(SSHORT);
+}
+
+
+static void string_to_datetime(
+							   DSC * desc,
+							   GDS_TIMESTAMP * date,
+							   EXPECT_DATETIME expect_type, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      s t r i n g _ t o _ d a t e t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert an arbitrary string to a date and/or time.
+ *
+ *      String must be formed using ASCII characters only.
+ *      Conversion routine can handle the following input formats
+ *      "now"           current date & time
+ *      "today"         Today's date       0:0:0.0 time
+ *      "tomorrow"      Tomorrow's date    0:0:0.0 time
+ *      "yesterday"     Yesterday's date   0:0:0.0 time
+ *      YYYY-MM-DD [HH:[Min:[SS.[Thou]]]]] 
+ *      MM:DD[:YY [HH:[Min:[SS.[Thou]]]]] 
+ *      DD.MM[:YY [HH:[Min:[SS.[Thou]]]]] 
+ *      Where:
+ *        DD = 1  .. 31    (Day of month)
+ *        YY = 00 .. 99    2-digit years are converted to the nearest year
+ *		           in a 50 year range.  Eg: if this is 1996
+ *                              96 ==> 1996
+ *                              97 ==> 1997
+ *                              ...
+ *                              00 ==> 2000
+ *                              01 ==> 2001
+ *                              ...
+ *                              44 ==> 2044
+ *                              45 ==> 2045
+ *                              46 ==> 1946
+ *                              47 ==> 1947
+ *                              ...
+ *                              95 ==> 1995
+ *                         If the current year is 1997, then 46 is converted
+ *                         to 2046 (etc).
+ *           = 100.. 5200  (Year) 
+ *        MM = 1  .. 12    (Month of year)
+ *           = "JANUARY"... (etc)
+ *        HH = 0  .. 23    (Hour of day)
+ *       Min = 0  .. 59    (Minute of hour)
+ *        SS = 0  .. 59    (Second of minute - LEAP second not supported)
+ *      Thou = 0  .. 9999  (Fraction of second)
+ *      HH, Min, SS, Thou default to 0 if missing.
+ *      YY defaults to current year if missing.
+ *      Note: ANY punctuation can be used instead of : (eg: / - etc)
+ *            Using . (period) in either of the first two separation
+ *            points will cause the date to be parsed in European DMY
+ *            format.
+ *            Arbitrary whitespace (space or TAB) can occur between
+ *            components.
+ *
+ **************************************/
+	TEXT *string, c, *p, *end;
+	USHORT length, n, i, components[7];
+	USHORT start_component;
+	SSHORT description[7];
+/* Values inside of description
+     > 0 is number of digits 
+       0 means missing 
+     ENGLISH_MONTH for the presence of an English month name
+     SPECIAL       for a special date verb */
+#define		ENGLISH_MONTH	-1
+#define		SPECIAL		-2
+	USHORT position_year = 0;
+	USHORT position_month = 1;
+	USHORT position_day = 2;
+	BOOLEAN have_english_month = FALSE;
+	BOOLEAN dot_separator_seen = FALSE;
+	SLONG clock;
+	struct tm times, times2;
+	TEXT buffer[100];			/* arbitrarily large */
+
+	length =
+		CVT_make_string(desc, ttype_ascii, (UCHAR **) & string,
+						(VARY *) buffer, sizeof(buffer), err);
+	p = string;
+
+	end = p + length;
+
+	memset(components, 0, sizeof(components));
+	memset(description, 0, sizeof(description));
+
+/* Parse components */
+/* The 7 components are Year, Month, Day, Hours, Minutes, Seconds, Thou */
+/* The first 3 can be in any order */
+
+	start_component = (expect_type == expect_sql_time) ? 3 : 0;
+	for (i = start_component; i < 7; i++) {
+
+		/* Skip leading blanks.  If we run out of characters, we're done
+		   with parse.  */
+
+		while (p < end && (*p == ' ' || *p == '\t'))
+			p++;
+		if (p == end)
+			break;
+
+		/* Handle digit or character strings */
+
+		c = UPPER7(*p);
+		if (DIGIT(c)) {
+			USHORT precision = 0;
+			n = 0;
+			while (p < end && DIGIT(*p)) {
+				n = n * 10 + *p++ - '0';
+				precision++;
+			}
+			description[i] = precision;
+		}
+		else if (LETTER7(c) && !have_english_month) {
+			TEXT temp[sizeof(YESTERDAY) + 1], *t;
+			CONST TEXT *CONST * month_ptr;
+			CONST TEXT *m;
+
+			t = temp;
+			while ((p < end) && (t < &temp[sizeof(temp) - 1])) {
+				c = UPPER7(*p);
+				if (!LETTER7(c))
+					break;
+				*t++ = c;
+				p++;
+			}
+			*t = 0;
+
+			/* Insist on at least 3 characters for month names */
+			if (t - temp < 3) {
+				conversion_error(desc, err);
+				return;
+			}
+
+			month_ptr = months;
+			while (TRUE) {
+				/* Month names are only allowed in first 2 positions */
+				if (*month_ptr && i < 2) {
+					for (t = temp, m = *month_ptr++; *t && *t == *m;
+						 t++, m++);
+					if (!*t)
+						break;
+				}
+				else {
+					/* it's not a month name, so it's either a magic word or
+					   a non-date string.  If there are more characters, it's bad */
+
+					description[i] = SPECIAL;
+
+					while (++p < end)
+						if (*p != ' ' && *p != '\t' && *p != 0)
+							conversion_error(desc, err);
+
+					/* fetch the current time */
+
+					clock = time(0);
+					times2 = *localtime(&clock);
+
+					if (strcmp(temp, NOW) == 0) {
+						isc_encode_timestamp(&times2, date);
+						return;
+					}
+					if (expect_type == expect_sql_time) {
+						conversion_error(desc, err);
+						return;
+					}
+					times2.tm_hour = times2.tm_min = times2.tm_sec = 0;
+					isc_encode_timestamp(&times2, date);
+					if (strcmp(temp, TODAY) == 0)
+						return;
+					if (strcmp(temp, TOMORROW) == 0) {
+						date->timestamp_date++;
+						return;
+					}
+					if (strcmp(temp, YESTERDAY) == 0) {
+						date->timestamp_date--;
+						return;
+					}
+					conversion_error(desc, err);
+					return;
+				}
+			}
+			n = month_ptr - months;
+			position_month = i;
+			description[i] = ENGLISH_MONTH;
+			have_english_month++;
+		}
+		else {					/* Not a digit and not a letter - must be punctuation */
+
+			conversion_error(desc, err);
+			return;
+		}
+
+		components[i] = n;
+
+		/* Grab whitespace following the number */
+		while (p < end && (*p == ' ' || *p == '\t'))
+			p++;
+
+		if (p == end)
+			break;
+
+		/* Grab a separator character */
+		if (*p == '/' || *p == '-' || *p == ',' || *p == ':') {
+			p++;
+			continue;
+		}
+		if (*p == '.') {
+			if (i <= 1)
+				dot_separator_seen++;
+			p++;
+			continue;
+		}
+	}
+
+/* User must provide at least 2 components */
+	if (i - start_component < 1) {
+		conversion_error(desc, err);
+		return;
+	}
+
+/* Dates cannot have a Time portion */
+	if (expect_type == expect_sql_date && i > 2) {
+		conversion_error(desc, err);
+		return;
+	}
+
+	memset(&times, 0, sizeof(times));
+
+	if (expect_type != expect_sql_time) {
+		/* Figure out what format the user typed the date in */
+
+		/* A 4 digit number to start implies YYYY-MM-DD */
+		if (description[0] >= 3) {
+			position_year = 0;
+			position_month = 1;
+			position_day = 2;
+		}
+
+		/* An English month to start implies MM-DD-YYYY */
+		else if (description[0] == ENGLISH_MONTH) {
+			position_year = 2;
+			position_month = 0;
+			position_day = 1;
+		}
+
+		/* An English month in the middle implies DD-MM-YYYY */
+		else if (description[1] == ENGLISH_MONTH) {
+			position_year = 2;
+			position_month = 1;
+			position_day = 0;
+		}
+
+		/* A period as a separator implies DD.MM.YYYY */
+		else if (dot_separator_seen) {
+			position_year = 2;
+			position_month = 1;
+			position_day = 0;
+		}
+
+		/* Otherwise assume MM-DD-YYYY */
+		else {
+			position_year = 2;
+			position_month = 0;
+			position_day = 1;
+		}
+
+		/* Forbid years with more than 4 digits */
+		/* Forbid months or days with more than 2 digits */
+		/* Forbid months or days being missing */
+		if (description[position_year] > 4 ||
+			description[position_month] > 2
+			|| description[position_month] == 0
+			|| description[position_day] > 2
+			|| description[position_day] <= 0) {
+			conversion_error(desc, err);
+			return;
+		}
+
+		/* Slide things into day, month, year form */
+
+		times.tm_year = components[position_year];
+		times.tm_mon = components[position_month];
+		times.tm_mday = components[position_day];
+
+		/* Handle defaulting of year */
+
+		if (description[position_year] == 0) {
+			clock = time(0);
+			times2 = *localtime(&clock);
+			times.tm_year = times2.tm_year + 1900;
+		}
+
+		/* Handle conversion of 2-digit years */
+
+		else if (description[position_year] <= 2) {
+			clock = time(0);
+			times2 = *localtime(&clock);
+			if (times.tm_year < (times2.tm_year - 50) % 100)
+				times.tm_year += 2000;
+			else
+				times.tm_year += 1900;
+		}
+
+		times.tm_year -= 1900;
+		times.tm_mon -= 1;
+	}
+	else {
+		/* The date portion isn't needed for time - but to
+		   keep the conversion in/out of isc_time clean lets
+		   intialize it properly anyway */
+		times.tm_year = 0;
+		times.tm_mon = 0;
+		times.tm_mday = 1;
+	}
+
+/* Handle time values out of range - note possibility of 60 for
+ * seconds value due to LEAP second (Not supported in V4.0).
+ */
+	if (((times.tm_hour = components[3]) > 23) ||
+		((times.tm_min = components[4]) > 59) ||
+		((times.tm_sec = components[5]) > 59) ||
+		(description[6] > -ISC_TIME_SECONDS_PRECISION_SCALE))
+			conversion_error(desc, err);
+
+/* convert day/month/year to Julian and validate result
+   This catches things like 29-Feb-1995 (not a leap year) */
+
+	isc_encode_timestamp(&times, date);
+	if (expect_type != expect_sql_time) {
+		isc_decode_timestamp(date, &times2);
+
+		if ((times.tm_year + 1900) < MIN_YEAR
+			|| (times.tm_year) + 1900 > MAX_YEAR) reinterpret_cast <
+				pfn_cvt_private_cludge > (err) (isc_date_range_exceeded, 0);
+
+		if (times.tm_year != times2.tm_year ||
+			times.tm_mon != times2.tm_mon ||
+			times.tm_mday != times2.tm_mday ||
+			times.tm_hour != times2.tm_hour ||
+			times.tm_min != times2.tm_min || times.tm_sec != times2.tm_sec)
+			conversion_error(desc, err);
+	};
+
+/* Convert fraction of seconds */
+	while (description[6]++ < -ISC_TIME_SECONDS_PRECISION_SCALE)
+		components[6] *= 10;
+
+	date->timestamp_time += components[6];
+}
+
+
+double PASCAL_ROUTINE power_of_ten(int scale)
+{
+/*************************************
+ *
+ *      p o w e r _ o f _ t e n
+ *
+ *************************************
+ *
+ * Functional description
+ *      return 10.0 raised to the scale power for 0 <= scale < 320.
+ *
+ *************************************/
+
+	/* Note that we could speed things up slightly by making the auxiliary
+	 * arrays global to this source module and replacing this function with
+	 * a macro, but the old code did up to 308 multiplies to our 1, and
+	 * that seems enough of a speed-up for now.
+	 */
+
+	static const double upper_part[] =
+		{ 1.e000, 1.e032, 1.e064, 1.e096, 1.e128,
+		1.e160, 1.e192, 1.e224, 1.e256, 1.e288
+	};
+
+	static const double lower_part[] =
+		{ 1.e00, 1.e01, 1.e02, 1.e03, 1.e04, 1.e05,
+		1.e06, 1.e07, 1.e08, 1.e09, 1.e10, 1.e11,
+		1.e12, 1.e13, 1.e14, 1.e15, 1.e16, 1.e17,
+		1.e18, 1.e19, 1.e20, 1.e21, 1.e22, 1.e23,
+		1.e24, 1.e25, 1.e26, 1.e27, 1.e28, 1.e29,
+		1.e30, 1.e31
+	};
+
+	/* The sole caller of this function checks for scale <= 308 before calling,
+	 * but we just assert the weakest precondition which lets the code work.
+	 * If the size of the exponent field, and thus the scaling, of doubles
+	 * gets bigger, increase the size of the upper_part array.
+	 */
+	assert((scale >= 0) && (scale < 320));
+
+	/* Note that "scale >> 5" is another way of writing "scale / 32",
+	 * while "scale & 0x1f" is another way of writing "scale % 32".
+	 * We split the scale into the lower 5 bits and everything else,
+	 * then use the "everything else" to index into the upper_part array,
+	 * whose contents increase in steps of 1e32.
+	 */
+	return upper_part[scale >> 5] * lower_part[scale & 0x1f];
+}
diff --git a/src/jrd/cvt2.cpp b/src/jrd/cvt2.cpp
new file mode 100644
index 0000000000..116b4df350
--- /dev/null
+++ b/src/jrd/cvt2.cpp
@@ -0,0 +1,610 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		cvt2.c
+ *	DESCRIPTION:	Data mover and converter and comparator, etc.
+ *			Routines used ONLY within engine.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/val.h"
+#include "../jrd/quad.h"
+#include "../jrd/codes.h"
+#include "../jrd/intl.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cvt_proto.h"
+#include "../jrd/cvt2_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/intlobj.h"
+#include "../jrd/gds_proto.h"
+
+#ifdef VMS
+extern double MTH$CVT_D_G(), MTH$CVT_G_D();
+#endif
+
+#ifdef VAX
+#define LOW_WORD	0
+#define HIGH_WORD	1
+#else
+#define LOW_WORD	1
+#define HIGH_WORD	0
+#endif
+
+/* The original order of dsc_type values corresponded to the priority
+   of conversion (that is, always convert the lesser to the greater
+   type.)  Introduction of dtype_int64 breaks that assumption: its
+   position on the scale should be between dtype_long and dtype_real, but
+   the types are integers, and dtype_quad occupies the only available
+   place.  Renumbering all the higher-numbered types would be a major
+   ODS change and a fundamental discomfort
+   
+   This table permits us to put the entries in the right order for
+   comparison purpose, even though isc_int64 had to get number 19, which
+   is otherwise too high.
+
+   This table is used in CVT2_compare, is indexed by dsc_dtype, and
+   returns the relative priority of types for use when different types
+   are compared.
+   */
+static CONST BYTE compare_priority[] = { dtype_null,	/* dtype_null through dtype_varying  */
+	dtype_text,					/* have their natural values stored  */
+	dtype_cstring,				/* in the table.                     */
+	dtype_varying,
+	0, 0,						/* dtypes and 4, 5 are unused.       */
+	dtype_packed,				/* packed through long also have     */
+	dtype_byte,					/* their natural values in the table */
+	dtype_short,
+	dtype_long,
+	dtype_quad + 1,				/* quad through array all move up    */
+	dtype_real + 1,				/* by one to make room for int64     */
+	dtype_double + 1,			/* at its proper place in the table. */
+	dtype_d_float + 1,
+	dtype_sql_date + 1,
+	dtype_sql_time + 1,
+	dtype_timestamp + 1,
+	dtype_blob + 1,
+	dtype_array + 1,
+	dtype_long + 1
+};								/* int64 goes right after long       */
+
+
+
+SSHORT CVT2_compare(DSC * arg1, DSC * arg2, FPTR_VOID err)
+{
+/**************************************
+ *
+ *	C V T 2 _ c o m p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two descriptors.  Return (-1, 0, 1) if a<b, a=b, or a>b.
+ *
+ **************************************/
+	UCHAR *p1, *p2;
+	USHORT length, length2;
+	SSHORT fill;
+	USHORT t1, t2;
+	CHARSET_ID charset1, charset2;
+	TDBB tdbb = NULL_TDBB;
+
+/* Handle the simple (matched) ones first */
+
+	if (arg1->dsc_dtype == arg2->dsc_dtype &&
+		arg1->dsc_scale == arg2->dsc_scale) {
+		p1 = arg1->dsc_address;
+		p2 = arg2->dsc_address;
+
+		switch (arg1->dsc_dtype) {
+		case dtype_short:
+			if (*(SSHORT *) p1 == *(SSHORT *) p2)
+				return 0;
+			if (*(SSHORT *) p1 > *(SSHORT *) p2)
+				return 1;
+			return -1;
+
+		case dtype_sql_time:
+			if (*(ULONG *) p1 == *(ULONG *) p2)
+				return 0;
+			if (*(ULONG *) p1 > *(ULONG *) p2)
+				return 1;
+			return -1;
+
+		case dtype_long:
+		case dtype_sql_date:
+			if (*(SLONG *) p1 == *(SLONG *) p2)
+				return 0;
+			if (*(SLONG *) p1 > *(SLONG *) p2)
+				return 1;
+			return -1;
+
+		case dtype_quad:
+			return QUAD_COMPARE(*(SQUAD *) p1, *(SQUAD *) p2);
+
+		case dtype_int64:
+			if (*(SINT64 *) p1 == *(SINT64 *) p2)
+				return 0;
+			if (*(SINT64 *) p1 > *(SINT64 *) p2)
+				return 1;
+			return -1;
+
+		case dtype_timestamp:
+			if (((SLONG *) p1)[0] > ((SLONG *) p2)[0])
+				return 1;
+			if (((SLONG *) p1)[0] < ((SLONG *) p2)[0])
+				return -1;
+			if (((ULONG *) p1)[1] > ((ULONG *) p2)[1])
+				return 1;
+			if (((ULONG *) p1)[1] < ((ULONG *) p2)[1])
+				return -1;
+			return 0;
+
+		case dtype_real:
+			if (*(float *) p1 == *(float *) p2)
+				return 0;
+			if (*(float *) p1 > *(float *) p2)
+				return 1;
+			return -1;
+
+		case DEFAULT_DOUBLE:
+			if (*(double *) p1 == *(double *) p2)
+				return 0;
+			if (*(double *) p1 > *(double *) p2)
+				return 1;
+			return -1;
+
+#ifdef VMS
+		case SPECIAL_DOUBLE:
+			if (*(double *) p1 == *(double *) p2)
+				return 0;
+			if (CNVT_TO_DFLT((double *) p1) > CNVT_TO_DFLT((double *) p2))
+				return 1;
+			return -1;
+#endif
+
+		case dtype_text:
+			/* 
+			 * For the sake of optimization, we call INTL_compare
+			 * only when we cannot just do byte-by-byte compare, as is
+			 * done in the foll. code.
+			 * We can do a local compare here, if 
+			 *    (a) one of the arguments is charset ttype_binary
+			 * OR (b) both of the arguments are char set ttype_none
+			 * OR (c) both of the arguments are char set ttype_ascii
+			 * If any argument is ttype_dynamic, we must see the
+			 * charset of the attachment.
+			 */
+			SET_TDBB(tdbb);
+			if (INTL_TTYPE(arg1) == ttype_dynamic)
+				charset1 = INTL_charset(tdbb, INTL_TTYPE(arg1), err);
+			else
+				charset1 = INTL_TTYPE(arg1);
+
+			if (INTL_TTYPE(arg2) == ttype_dynamic)
+				charset2 = INTL_charset(tdbb, INTL_TTYPE(arg2), err);
+			else
+				charset2 = INTL_TTYPE(arg2);
+
+			if ((IS_INTL_DATA(arg1) || IS_INTL_DATA(arg2)) &&
+				(charset1 != ttype_binary) &&
+				(charset2 != ttype_binary) &&
+				((charset1 != ttype_ascii) ||
+				 (charset2 != ttype_ascii)) &&
+				((charset1 != ttype_none) || (charset2 != ttype_none))
+				)
+				return INTL_compare(tdbb, arg1, arg2, err);
+
+			if (arg1->dsc_length >= arg2->dsc_length) {
+				length = arg2->dsc_length;
+				if (length)
+					do
+						if (*p1++ != *p2++)
+							if (p1[-1] > p2[-1])
+								return 1;
+							else
+								return -1;
+					while (--length);
+				length = arg1->dsc_length - arg2->dsc_length;
+				if (length)
+					do
+						if (*p1++ != ' ')
+							if (p1[-1] > ' ')
+								return 1;
+							else
+								return -1;
+					while (--length);
+				return 0;
+			}
+			length = arg1->dsc_length;
+			if (length)
+				do
+					if (*p1++ != *p2++)
+						if (p1[-1] > p2[-1])
+							return 1;
+						else
+							return -1;
+				while (--length);
+			length = arg2->dsc_length - arg1->dsc_length;
+			do
+				if (*p2++ != ' ')
+					if (' ' > p2[-1])
+						return 1;
+					else
+						return -1;
+			while (--length);
+			return 0;
+
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_array:
+		case dtype_blob:
+			/* Special processing below */
+			break;
+
+		default:
+			/* the two arguments have identical dtype and scale, but the
+			   dtype is not one of your defined types! */
+			assert(FALSE);
+			break;
+
+		}						/* switch on dtype */
+	}							/* if dtypes and scales are equal */
+
+/* Handle mixed string comparisons */
+
+	if (arg1->dsc_dtype <= dtype_varying && arg2->dsc_dtype <= dtype_varying) {
+		/*
+		 * For the sake of optimization, we call INTL_compare
+		 * only when we cannot just do byte-by-byte compare.
+		 * We can do a local compare here, if
+		 *    (a) one of the arguments is charset ttype_binary
+		 * OR (b) both of the arguments are char set ttype_none
+		 * OR (c) both of the arguments are char set ttype_ascii
+		 * If any argument is ttype_dynamic, we must see the
+		 * charset of the attachment.
+		 */
+
+		SET_TDBB(tdbb);
+		if (INTL_TTYPE(arg1) == ttype_dynamic)
+			charset1 = INTL_charset(tdbb, INTL_TTYPE(arg1), err);
+		else
+			charset1 = INTL_TTYPE(arg1);
+
+		if (INTL_TTYPE(arg2) == ttype_dynamic)
+			charset2 = INTL_charset(tdbb, INTL_TTYPE(arg2), err);
+		else
+			charset2 = INTL_TTYPE(arg2);
+
+		if ((IS_INTL_DATA(arg1) || IS_INTL_DATA(arg2)) &&
+			(charset1 != ttype_binary) &&
+			(charset2 != ttype_binary) &&
+			((charset1 != ttype_ascii) ||
+			 (charset2 != ttype_ascii)) &&
+			((charset1 != ttype_none) || (charset2 != ttype_none))
+			)
+			return INTL_compare(tdbb, arg1, arg2, err);
+
+		length = CVT_get_string_ptr(arg1, &t1, &p1, NULL, 0, err);
+		length2 = CVT_get_string_ptr(arg2, &t2, &p2, NULL, 0, err);
+
+		fill = length - length2;
+		if (length >= length2) {
+			if (length2)
+				do
+					if (*p1++ != *p2++)
+						if (p1[-1] > p2[-1])
+							return 1;
+						else
+							return -1;
+				while (--length2);
+			if (fill > 0)
+				do
+					if (*p1++ != ' ')
+						if (p1[-1] > ' ')
+							return 1;
+						else
+							return -1;
+				while (--fill);
+			return 0;
+		}
+		if (length)
+			do
+				if (*p1++ != *p2++)
+					if (p1[-1] > p2[-1])
+						return 1;
+					else
+						return -1;
+			while (--length);
+		do
+			if (*p2++ != ' ')
+				if (' ' > p2[-1])
+					return 1;
+				else
+					return -1;
+		while (++fill);
+		return 0;
+	}
+
+/* Handle hetergeneous compares */
+
+	if (compare_priority[arg1->dsc_dtype] < compare_priority[arg2->dsc_dtype])
+		return -CVT2_compare(arg2, arg1, err);
+
+/* At this point, the type of arg1 is guaranteed to be "greater than" arg2,
+   in the sense that it is the preferred type for comparing the two. */
+
+	switch (arg1->dsc_dtype) {
+		DSC desc;
+		SLONG date[2];
+
+	case dtype_timestamp:
+		MOVE_CLEAR(&desc, sizeof(desc));
+		desc.dsc_dtype = dtype_timestamp;
+		desc.dsc_length = sizeof(date);
+		desc.dsc_address = (UCHAR *) date;
+		CVT_move(arg2, &desc, err);
+		return CVT2_compare(arg1, &desc, err);
+
+	case dtype_sql_time:
+		MOVE_CLEAR(&desc, sizeof(desc));
+		desc.dsc_dtype = dtype_sql_time;
+		desc.dsc_length = sizeof(date[0]);
+		desc.dsc_address = (UCHAR *) date;
+		CVT_move(arg2, &desc, err);
+		return CVT2_compare(arg1, &desc, err);
+
+	case dtype_sql_date:
+		MOVE_CLEAR(&desc, sizeof(desc));
+		desc.dsc_dtype = dtype_sql_date;
+		desc.dsc_length = sizeof(date[0]);
+		desc.dsc_address = (UCHAR *) date;
+		CVT_move(arg2, &desc, err);
+		return CVT2_compare(arg1, &desc, err);
+
+	case dtype_short:
+		{
+			SSHORT scale;
+			SLONG temp1, temp2;
+
+			if (arg2->dsc_dtype > dtype_varying)
+				scale = MIN(arg1->dsc_scale, arg2->dsc_scale);
+			else
+				scale = arg1->dsc_scale;
+			temp1 = CVT_get_long(arg1, scale, err);
+			temp2 = CVT_get_long(arg2, scale, err);
+			if (temp1 == temp2)
+				return 0;
+			if (temp1 > temp2)
+				return 1;
+			return -1;
+		}
+
+	case dtype_long:
+		/* Since longs may overflow when scaled, use int64 instead */
+	case dtype_int64:
+		{
+			SSHORT scale;
+			SINT64 temp1, temp2;
+			if (arg2->dsc_dtype > dtype_varying)
+				scale = MIN(arg1->dsc_scale, arg2->dsc_scale);
+			else
+				scale = arg1->dsc_scale;
+			temp1 = CVT_get_int64(arg1, scale, err);
+			temp2 = CVT_get_int64(arg2, scale, err);
+			if (temp1 == temp2)
+				return 0;
+			if (temp1 > temp2)
+				return 1;
+			return -1;
+		}
+
+	case dtype_quad:
+		{
+			SSHORT scale;
+			SQUAD temp1, temp2;
+
+			if (arg2->dsc_dtype > dtype_varying)
+				scale = MIN(arg1->dsc_scale, arg2->dsc_scale);
+			else
+				scale = arg1->dsc_scale;
+			temp1 = CVT_get_quad(arg1, scale, err);
+			temp2 = CVT_get_quad(arg2, scale, err);
+			return QUAD_COMPARE(temp1, temp2);
+		}
+
+	case dtype_real:
+		{
+			float temp1, temp2;
+
+			temp1 = (float) CVT_get_double(arg1, err);
+			temp2 = (float) CVT_get_double(arg2, err);
+			if (temp1 == temp2)
+				return 0;
+			if (temp1 > temp2)
+				return 1;
+			return -1;
+		}
+
+	case dtype_double:
+#ifdef VMS
+	case dtype_d_float:
+#endif
+		{
+			double temp1, temp2;
+
+			temp1 = CVT_get_double(arg1, err);
+			temp2 = CVT_get_double(arg2, err);
+			if (temp1 == temp2)
+				return 0;
+			if (temp1 > temp2)
+				return 1;
+			return -1;
+		}
+
+	case dtype_blob:
+	case dtype_array:
+		reinterpret_cast < void (*) (...) > (*err) (gds_wish_list,
+													gds_arg_gds,
+													gds__blobnotsup,
+													gds_arg_string, "compare",
+													0);
+		break;
+
+	default:
+		BUGCHECK(189);			/* msg 189 comparison not supported for specified data types */
+		break;
+	}
+	return 0;
+}
+
+
+void CVT2_get_name(DSC * desc, TEXT * string, FPTR_VOID err)
+{
+/**************************************
+ *
+ *	C V T _ g e t _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a name (max length 31, blank terminated) from a descriptor.
+ *
+ **************************************/
+	USHORT length;
+	VARY_STR(32) temp;			/* 31 bytes + 1 NULL */
+	UTEXT *p;
+
+	length = CVT_make_string(desc, ttype_metadata, &p,
+							 (VARY *) & temp, sizeof(temp), err);
+	for (; length && *p != ' '; --length)
+		*string++ = *p++;
+
+	*string = 0;
+}
+
+
+USHORT CVT2_make_string2(DSC * desc,
+						 USHORT to_interp,
+						 UCHAR ** address,
+						 VARY * temp, USHORT length, STR * ptr, FPTR_VOID err)
+{
+/**************************************
+ *
+ *	C V T _ m a k e _ s t r i n g 2
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *     Convert the data from the desc to a string in the specified interp.
+ *     The pointer to this string is returned in address.
+ *
+ *     Should the string not fit in the specified temporary buffer, 
+ *     memory is allocated to hold the conversion.
+ *
+ *     It is the caller's responsibility to free the buffer.
+ *     
+ *
+ **************************************/
+	VARY *varying;
+	DSC temp_desc;
+	UCHAR *from_buf;
+	USHORT from_len;
+	USHORT from_interp;
+
+	assert(desc != NULL);
+	assert(address != NULL);
+	assert(err != NULL);
+	assert((((temp != NULL) && (length > 0))
+			|| ((INTL_TTYPE(desc) <= dtype_any_text)
+				&& (INTL_TTYPE(desc) == to_interp))) || (ptr != NULL));
+	assert((ptr == NULL) || (*ptr == NULL));
+
+	if (desc->dsc_dtype == dtype_text) {
+		from_buf = desc->dsc_address;
+		from_len = desc->dsc_length;
+		from_interp = INTL_TTYPE(desc);
+	}
+
+	else if (desc->dsc_dtype == dtype_cstring) {
+		from_buf = desc->dsc_address;
+		from_len = MIN(strlen((char *) desc->dsc_address), \
+					   (unsigned) (desc->dsc_length - 1));
+		from_interp = INTL_TTYPE(desc);
+	}
+
+	else if (desc->dsc_dtype == dtype_varying) {
+		varying = (VARY *) desc->dsc_address;
+		from_buf = varying->vary_string;
+		from_len =
+			MIN(varying->vary_length, desc->dsc_length - sizeof(SSHORT));
+		from_interp = INTL_TTYPE(desc);
+	}
+
+	if (desc->dsc_dtype <= dtype_any_text) {
+		USHORT cs1, cs2;
+		TDBB tdbb = NULL_TDBB;
+
+		if (to_interp == from_interp) {
+			*address = from_buf;
+			return from_len;
+		}
+
+		tdbb = GET_THREAD_DATA;
+		cs1 = INTL_charset(tdbb, to_interp, err);
+		cs2 = INTL_charset(tdbb, from_interp, err);
+		if (cs1 == cs2) {
+			*address = from_buf;
+			return from_len;
+		}
+		else {
+			USHORT needed_len;
+			UCHAR *tempptr;
+			needed_len = INTL_convert_bytes(tdbb, cs1, NULL, 0,
+											cs2, from_buf, from_len, err);
+			tempptr = (UCHAR *) temp;
+			if (needed_len > length) {
+				*ptr = (STR) ALLOCDV(type_str, needed_len);
+				(*ptr)->str_length = needed_len;
+				tempptr = (*ptr)->str_data;
+				length = needed_len;
+			}
+			length = INTL_convert_bytes(tdbb, cs1, tempptr, length,
+										cs2, from_buf, from_len, err);
+			*address = (UCHAR *) tempptr;
+			return length;
+		}
+	}
+
+/* Not string data, then  -- convert value to varying string. */
+
+	MOVE_CLEAR(&temp_desc, sizeof(temp_desc));
+	temp_desc.dsc_length = length;
+	temp_desc.dsc_address = (UCHAR *) temp;
+	INTL_ASSIGN_TTYPE(&temp_desc, to_interp);
+	temp_desc.dsc_dtype = dtype_varying;
+	CVT_move(desc, &temp_desc, err);
+	*address = temp->vary_string;
+
+	return temp->vary_length;
+}
diff --git a/src/jrd/cvt2_proto.h b/src/jrd/cvt2_proto.h
new file mode 100644
index 0000000000..f9d3e73bc3
--- /dev/null
+++ b/src/jrd/cvt2_proto.h
@@ -0,0 +1,32 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		cvt2_proto.h
+ *	DESCRIPTION:	Prototype header file for cvt2.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_CVT2_PROTO_H_
+#define _JRD_CVT2_PROTO_H_
+
+extern SSHORT CVT2_compare(struct dsc *, struct dsc *, FPTR_VOID);
+extern void CVT2_get_name(struct dsc *, TEXT *, FPTR_VOID);
+extern USHORT CVT2_make_string2(struct dsc *, USHORT, UCHAR **, struct vary *,
+								USHORT, struct str **, FPTR_VOID);
+
+#endif /* _JRD_CVT2_PROTO_H_ */
diff --git a/src/jrd/cvt_proto.h b/src/jrd/cvt_proto.h
new file mode 100644
index 0000000000..52e4fbe27a
--- /dev/null
+++ b/src/jrd/cvt_proto.h
@@ -0,0 +1,43 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		cvt_proto.h
+ *	DESCRIPTION:	Prototype header file for cvt.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_CVT_PROTO_H_
+#define _JRD_CVT_PROTO_H_
+
+extern double PASCAL_ROUTINE CVT_date_to_double(struct dsc *, FPTR_VOID);
+extern void CVT_double_to_date(double, SLONG[2], FPTR_VOID);
+extern double PASCAL_ROUTINE CVT_get_double(struct dsc *, FPTR_VOID);
+extern SLONG CVT_get_long(struct dsc *, SSHORT, FPTR_VOID);
+extern SINT64 CVT_get_int64(struct dsc *, SSHORT, FPTR_VOID);
+extern UCHAR CVT_get_numeric(UCHAR *, USHORT, SSHORT *, double *, FPTR_VOID);
+extern SQUAD CVT_get_quad(struct dsc *, SSHORT, FPTR_VOID);
+extern USHORT CVT_get_string_ptr(struct dsc *, USHORT *, UCHAR **,
+								 struct vary *, USHORT, FPTR_VOID);
+extern GDS_DATE CVT_get_sql_date(struct dsc *, FPTR_VOID);
+extern GDS_TIME CVT_get_sql_time(struct dsc *, FPTR_VOID);
+extern GDS_TIMESTAMP CVT_get_timestamp(struct dsc *, FPTR_VOID);
+extern USHORT CVT_make_string(struct dsc *, USHORT, UCHAR **, struct vary *,
+							  USHORT, FPTR_VOID);
+extern void DLL_EXPORT CVT_move(struct dsc *, struct dsc *, FPTR_VOID);
+
+#endif /* _JRD_CVT_PROTO_H_ */
diff --git a/src/jrd/dbg.cpp b/src/jrd/dbg.cpp
new file mode 100644
index 0000000000..bdcb967888
--- /dev/null
+++ b/src/jrd/dbg.cpp
@@ -0,0 +1,1303 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dbg.c
+ *	DESCRIPTION:	Debugging routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include <signal.h>
+
+#include "../jrd/jrd.h"
+#include "../jrd/lck.h"
+#include "../jrd/ods.h"
+#include "../jrd/cch.h"
+#include "../jrd/dbg.h"
+#include "../jrd/val.h"
+#include "../jrd/all.h"
+#include "../jrd/exe.h"
+#include "../jrd/req.h"
+#include "../jrd/rse.h"
+#include "../jrd/btr.h"
+#include "../jrd/sort.h"
+#include "../jrd/que.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/dbg_proto.h"
+
+#ifdef SUPERSERVER
+#include "../jrd/thd_proto.h"
+#include "../jrd/err_proto.h"
+#endif
+
+
+/* Given pointer a field in the block, find the block */
+#define BLOCK(fld_ptr, type, fld) (type)((SCHAR*) fld_ptr - OFFSET (type, fld))
+
+extern "C" {
+
+
+#ifndef DEBUG
+int debug;
+#endif
+
+extern int *dbt_blocks[], dbt_window[], dbt_rpb[];
+extern SLONG gds_delta_alloc, gds_max_alloc;
+
+typedef int (*DBG_PFN_V) ();
+typedef int (*DBG_PFN_I) (int);
+
+int (*dbg_all) () = DBG_all;
+int (*dbg_analyze) (int) = DBG_analyze;
+int (*dbg_block) (blk *) = DBG_block;
+int (*dbg_eval) (int) = DBG_eval;
+int (*dbg_open) () = DBG_open;
+int (*dbg_close) () = DBG_close;
+int (*dbg_pool) (int) = DBG_pool;
+int (*dbg_pretty) (nod *, int) = DBG_pretty;
+int (*dbg_window) (int *) = DBG_window;
+int (*dbg_rpb) (rpb *) = DBG_rpb;
+static int (*dbg_bdbs) () = DBG_bdbs;
+int (*dbg_examine) (int *) = DBG_examine;
+int (*dbg_check) (int) = DBG_check;
+
+
+#ifdef LINUX
+IB_FILE *dbg_file = NULL;
+#else
+IB_FILE *dbg_file = ib_stdout;
+#endif
+int DBG_supervisor(int);
+int *prior_frame;
+static SLONG perm_pool_mem;
+static SLONG req_pool_mem;
+static SLONG trans_pool_mem;
+static SLONG other_pool_mem;
+
+static void go_column(int);
+static void prt_dsc(DSC *, int);
+static int prt_fields(SCHAR *, int *);
+static int prt_que(SCHAR *, QUE);
+static int rsb_pretty(register RSB, register int);
+
+/* Pick up node names */
+
+#define NODE(type, name, keyword) "name",
+
+static TEXT *node_names[] = {
+#include "../jrd/nod.h"
+	0
+};
+#undef NODE
+
+/* rsb types */
+
+static TEXT *rsb_names[] = {
+	"boolean",
+	"cross",
+	"dbkey",
+	"first",
+	"indexed",
+	"merge",
+	"multiple",
+	"project",
+	"sequential",
+	"sort",
+	"union",
+	"aggregate",
+	"ext_sequential",			/* External sequential access */
+	"ext_indexed",				/* External indexed access */
+	"ext_dbkey",
+	"navigation",
+	"bit_sieve",
+	"left_cross",
+	"procedure"
+};
+
+
+int DBG_all(void)
+{
+/**************************************
+ *
+ *	D B G _ a l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print all known blocks.
+ *
+ **************************************/
+
+	DBB dbb;
+	VEC vector;
+
+	dbb = GET_DBB;
+
+	if (!dbg_file) {
+		dbg_file = ib_fopen("tt:", "w");
+	}
+	if (!dbb || !(vector = dbb->dbb_pools)) {
+		return TRUE;
+	}
+	for (unsigned int i = 0; i < vector->vec_count; ++i) {
+		DBG_pool(i);
+	}
+	return TRUE;
+}
+
+
+int DBG_analyze(int pool_id)
+{
+/**************************************
+ *
+ *	D B G _ a n a l y z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze pool by block type and sub-type.
+ *
+ **************************************/
+	DBB dbb;
+	HNK hunk;
+	BLK block;
+	VEC vector;
+	PLB pool;
+	SCHAR *hunk_end;
+	SSHORT type;
+	SLONG length;
+	SLONG total_length = 0;
+	TEXT **fields;
+	TEXT *node_name;
+	TEXT name_padded[32];
+	int pool_type;
+	int i;
+	struct {
+		int sum_count;
+		SLONG sum_length;
+	} blocks[type_MAX], nodes[nod_MAX], *p, *end;
+
+	dbb = GET_DBB;
+
+	if (!(vector = dbb->dbb_pools))
+		return TRUE;
+
+	for (p = blocks, end = p + (int) type_MAX; p < end; p++) {
+		p->sum_count = 0;
+		p->sum_length = 0;
+	}
+
+	for (p = nodes, end = p + (int) nod_MAX; p < end; p++) {
+		p->sum_count = 0;
+		p->sum_length = 0;
+	}
+
+	if (pool = (PLB) vector->vec_object[pool_id]) {
+		for (hunk = pool->plb_hunks; hunk; hunk = hunk->hnk_next) {
+			hunk_end = hunk->hnk_address + hunk->hnk_length;
+			for (block = (BLK) hunk->hnk_address; block != (BLK) hunk_end;
+				 block = (BLK) ((SCHAR *) block + length)) {
+				type = block->blk_type;
+				length = block->blk_length << SHIFT;
+				total_length += length;
+				if (type <= (SSHORT) type_MIN || type >= (SSHORT) type_MAX) {
+					ib_fprintf(dbg_file, "***punt***\n");
+					break;
+				}
+				p = blocks + type;
+				p->sum_count++;
+				p->sum_length += length;
+				if (type == (SSHORT) type_nod) {
+					p = nodes + (int) ((NOD) block)->nod_type;
+					p->sum_count++;
+					p->sum_length += length;
+				}
+			}
+		}
+	}
+
+	if (pool->plb_pool_id == 0) {
+		pool_type = 1;
+		perm_pool_mem = total_length / 1024;
+		ib_fprintf(dbg_file, "\nPool %d (Permanent pool)\n",
+				   pool->plb_pool_id);
+	}
+	else {
+		for (p = blocks, end = p + (int) type_MAX, type = 0; p < end;
+			 p++, type++) {
+			if (p->sum_count)
+				fields = reinterpret_cast < char **>(dbt_blocks[type]);
+			if (!strcmp(*fields, "TRANSACTION") && p->sum_count) {
+				pool_type = 2;
+				trans_pool_mem += (total_length / 1024);
+				ib_fprintf(dbg_file, "\nPool %d (Transaction pool)\n",
+						   pool->plb_pool_id);
+				break;
+			}
+			if (!strcmp(*fields, "REQUEST") && p->sum_count) {
+				pool_type = 3;
+				req_pool_mem += (total_length / 1024);
+				ib_fprintf(dbg_file, "\nPool %d (Request pool)\n",
+						   pool->plb_pool_id);
+				break;
+			}
+		}
+	}
+	if (!pool_type) {
+		other_pool_mem += (total_length / 1024);
+		ib_fprintf(dbg_file, "\nPool %d\n", pool->plb_pool_id);
+	}
+	ib_fprintf(dbg_file,
+			   "Summary by block types: (total length of pool = %ldk)\n",
+			   total_length / 1024);
+
+	for (p = blocks, end = p + (int) type_MAX, type = 0; p < end; p++, type++)
+		if (p->sum_count) {
+			fields = reinterpret_cast < char **>(dbt_blocks[type]);
+			for (i = 0; i < 31; name_padded[i++] = ' ');
+			name_padded[i] = '\0';
+			for (i = 0; (*fields)[i]; i++)
+				name_padded[i] = (*fields)[i];
+			ib_fprintf(dbg_file, "\t%s\t%d\t%ld\n", name_padded, p->sum_count,
+					   p->sum_length);
+		}
+
+	ib_fprintf(dbg_file, "Summary by node types:\n");
+
+	for (p = nodes, end = p + (int) nod_MAX, type = 0; p < end; p++, type++)
+		if (p->sum_count) {
+			node_name = node_names[type];
+			for (i = 0; i < 31; name_padded[i++] = ' ');
+			name_padded[i] = '\0';
+			for (i = 0; node_name[i]; i++)
+				name_padded[i] = node_name[i];
+			ib_fprintf(dbg_file, "\t%s\t%d\t%ld\n", name_padded, p->sum_count,
+					   p->sum_length);
+		}
+
+	return pool_type;
+}
+
+
+int DBG_bdbs(void)
+{
+/**************************************
+ *
+ *	D B G _ b d b s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	DBB dbb;
+	BCB bcb;
+
+	dbb = GET_DBB;
+
+	bcb = dbb->dbb_bcb;
+	for (unsigned int i = 0; i < bcb->bcb_count; i++)
+		DBG_block(reinterpret_cast < blk * >(bcb->bcb_rpt[i].bcb_bdb));
+
+	return TRUE;
+}
+
+
+int DBG_precedence(void)
+{
+/**************************************
+ *
+ *	D B G _ p r e c e d e n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	DBB dbb;
+	BCB bcb;
+	BDB bdb;
+	register QUE que;
+	register PRE precedence;
+	BDB hi_bdb;
+	BDB lo_bdb;
+
+	dbb = GET_DBB;
+
+	bcb = dbb->dbb_bcb;
+	for (unsigned int i = 0; i < bcb->bcb_count; i++) {
+		bdb = bcb->bcb_rpt[i].bcb_bdb;
+		if (bdb->bdb_flags || bdb->bdb_ast_flags) {
+			ib_fprintf(dbg_file, "BDB %d:\tpage %d", i, bdb->bdb_page);
+			if (bdb->bdb_flags & BDB_dirty)
+				ib_fprintf(dbg_file, ", dirty");
+			if (bdb->bdb_ast_flags & BDB_blocking)
+				ib_fprintf(dbg_file, ", blocking");
+			if (bdb->bdb_flags & BDB_writer)
+				ib_fprintf(dbg_file, ", writer");
+			if (bdb->bdb_flags & BDB_marked)
+				ib_fprintf(dbg_file, ", marked");
+			if (bdb->bdb_flags & BDB_must_write)
+				ib_fprintf(dbg_file, ", must_write");
+			if (bdb->bdb_flags & BDB_faked)
+				ib_fprintf(dbg_file, ", faked");
+			if (bdb->bdb_flags & BDB_journal)
+				ib_fprintf(dbg_file, ", journal");
+			if (bdb->bdb_flags & BDB_system_dirty)
+				ib_fprintf(dbg_file, ", system_dirty");
+			if (bdb->bdb_flags & BDB_io_error)
+				ib_fprintf(dbg_file, ", io_error");
+			if (bdb->bdb_flags & BDB_read_pending)
+				ib_fprintf(dbg_file, ", read_pending");
+			if (bdb->bdb_flags & BDB_free_pending)
+				ib_fprintf(dbg_file, ", free_pending");
+			if (bdb->bdb_flags & BDB_not_valid)
+				ib_fprintf(dbg_file, ", not_valid");
+			if (bdb->bdb_flags & BDB_db_dirty)
+				ib_fprintf(dbg_file, ", db_dirty");
+			if (bdb->bdb_flags & BDB_checkpoint)
+				ib_fprintf(dbg_file, ", checkpoint");
+			ib_fprintf(dbg_file, "\n");
+			if (QUE_NOT_EMPTY(bdb->bdb_higher)) {
+				ib_fprintf(dbg_file, "\tdirect higher precedence pages:");
+				for (que = bdb->bdb_higher.que_forward;
+					 que != &bdb->bdb_higher; que = que->que_forward) {
+					precedence = BLOCK(que, PRE, pre_higher);
+					hi_bdb = precedence->pre_hi;
+					ib_fprintf(dbg_file, " %d", hi_bdb->bdb_page);
+					if (precedence->pre_flags & PRE_cleared)
+						ib_fprintf(dbg_file, "(cleared)");
+				}
+				ib_fprintf(dbg_file, "\n");
+			}
+			if (QUE_NOT_EMPTY(bdb->bdb_lower)) {
+				ib_fprintf(dbg_file, "\tdirect lower precedence pages:");
+				for (que = bdb->bdb_lower.que_forward; que != &bdb->bdb_lower;
+					 que = que->que_forward) {
+					precedence = BLOCK(que, PRE, pre_lower);
+					lo_bdb = precedence->pre_low;
+					ib_fprintf(dbg_file, " %d", lo_bdb->bdb_page);
+					if (precedence->pre_flags & PRE_cleared)
+						ib_fprintf(dbg_file, "(cleared)");
+				}
+				ib_fprintf(dbg_file, "\n");
+			}
+		}
+	}
+
+	return TRUE;
+}
+
+
+int DBG_block(register BLK block)
+{
+/**************************************
+ *
+ *	D B G _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a formatted block
+ *
+ **************************************/
+	register int *fields;
+	register int i;
+	SCHAR s[10], string[100], *p;
+	DSC *desc;
+
+#undef BLOCK
+#define BLOCK(struct)	((struct) block)
+	if (!block) {
+		ib_fprintf(dbg_file, "*** NULL ***\n");
+		return FALSE;
+	}
+
+	if (block->blk_type <= (SCHAR) type_MIN
+		|| block->blk_type >= (SCHAR) type_MAX) {
+		ib_fprintf(dbg_file, "%X\t*** BAD BLOCK (%d) ***\n", block,
+				   block->blk_type);
+		return FALSE;
+	}
+
+	if (!block->blk_length) {
+		ib_fprintf(dbg_file, "%X\t*** BAD BLOCK LENGTH (%d) ***\n", block,
+				   block->blk_length);
+		return FALSE;
+	}
+
+	fields = dbt_blocks[block->blk_type];
+	ib_fprintf(dbg_file, "\n%X\t%s (%d)", block, *fields++,
+			   block->blk_length);
+	if (block->blk_type == (SCHAR) type_nod)
+		ib_fprintf(dbg_file, " -- %s",
+				   node_names[(int) ((NOD) block)->nod_type]);
+
+	prt_fields(reinterpret_cast < char *>(block), fields);
+
+	switch ((enum blk_t) block->blk_type) {
+	case type_vec:
+		ib_fprintf(dbg_file, "\t");
+		p = string;
+		*p = 0;
+		for (i = 0; i < ((VEC) block)->vec_count; i++) {
+			sprintf(p, "%X, ", ((VEC) block)->vec_object[i]);
+			if (strlen(string) > 60) {
+				ib_fprintf(dbg_file, "%s\n", string);
+				strcpy(string, "\t\t");
+			}
+			p = string + strlen(string);
+		}
+		ib_fprintf(dbg_file, "%s\n", string);
+		break;
+
+	case type_vcl:
+		ib_fprintf(dbg_file, "\t");
+		p = string;
+		*p = 0;
+		for (i = 0; i < ((VCL) block)->vcl_count; i++) {
+			sprintf(p, "%X, ", ((VCL) block)->vcl_long[i]);
+			if (strlen(string) > 60) {
+				ib_fprintf(dbg_file, "%s\n", string);
+				strcpy(string, "\t\t");
+			}
+			p = string + strlen(string);
+		}
+		ib_fprintf(dbg_file, "%s\n", string);
+		break;
+
+	case type_bcb:
+		prt_que("Empty", &BLOCK(BCB)->bcb_empty);
+		for (i = 0; i < BLOCK(BCB)->bcb_count; i++) {
+			sprintf(s, "mod %d", i);
+			prt_que(s, &BLOCK(BCB)->bcb_rpt[i].bcb_page_mod);
+		}
+		break;
+
+	case type_bdb:
+		ib_fprintf(dbg_file,
+				   "\tUse count: %d, page: %d, flags: %x, ast flags: %x\n",
+				   ((BDB) block)->bdb_use_count, ((BDB) block)->bdb_page,
+				   ((BDB) block)->bdb_flags, ((BDB) block)->bdb_ast_flags);
+		ib_fprintf(dbg_file,
+				   "\tParent: %X, left: %X, right: %X, dirty mask: %X\n",
+				   ((BDB) block)->bdb_parent, ((BDB) block)->bdb_left,
+				   ((BDB) block)->bdb_right, ((BDB) block)->bdb_transactions);
+		prt_que("Que", &BLOCK(BDB)->bdb_que);
+		prt_que("Higher", &BLOCK(BDB)->bdb_higher);
+		prt_que("Lower", &BLOCK(BDB)->bdb_lower);
+		break;
+
+	case type_pre:
+		prt_que("Higher", &BLOCK(PRE)->pre_higher);
+		prt_que("Lower", &BLOCK(PRE)->pre_lower);
+		break;
+
+	case type_fmt:
+		ib_fprintf(dbg_file, "\t");
+		for (i = 0, desc = BLOCK(FMT)->fmt_desc;
+			 i < BLOCK(FMT)->fmt_count; desc++, i++) {
+			prt_dsc(desc, (i % 4) * 20);
+			if (i % 4 == 3)
+				ib_fprintf(dbg_file, "\n\t");
+		}
+		ib_fprintf(dbg_file, "\n");
+		break;
+	}
+
+	return TRUE;
+}
+
+
+int DBG_check(int pool_id)
+{
+/**************************************
+ *
+ *	D B G _ c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check pool for integrity.
+ *
+ **************************************/
+	DBB dbb;
+	HNK hunk;
+	BLK block;
+	VEC vector;
+	PLB pool;
+	SCHAR *hunk_end;
+	USHORT corrupt;
+
+	dbb = GET_DBB;
+
+	corrupt = 0;
+
+	if (!(vector = dbb->dbb_pools))
+		return corrupt;
+
+	if (pool = (PLB) vector->vec_object[pool_id]) {
+		for (hunk = pool->plb_hunks; hunk; hunk = hunk->hnk_next) {
+			hunk_end = hunk->hnk_address + hunk->hnk_length;
+			for (block = (BLK) hunk->hnk_address; block != (BLK) hunk_end;
+				 block =
+				 (BLK) ((SCHAR *) block + (block->blk_length << SHIFT))) {
+				if (block->blk_pool_id != (UCHAR) pool_id) {
+					ib_fprintf(dbg_file, "%X\t*** BAD POOL ID (%d) ***\n",
+							   block, block->blk_pool_id);
+					++corrupt;
+					break;
+				}
+				if (block->blk_type <= (SCHAR) type_MIN
+					|| block->blk_type >= (SCHAR) type_MAX) {
+					ib_fprintf(dbg_file, "%X\t*** BAD BLOCK (%d) ***\n",
+							   block, block->blk_type);
+					++corrupt;
+					break;
+				}
+				if (!block->blk_length) {
+					ib_fprintf(dbg_file,
+							   "%X\t*** BAD BLOCK LENGTH (%d) ***\n", block,
+							   block->blk_length);
+					++corrupt;
+					break;
+				}
+
+			}
+		}
+	}
+
+	return corrupt;
+}
+
+
+int DBG_close(void)
+{
+/**************************************
+ *
+ *	D B G _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close the debugging file.
+ *
+ **************************************/
+
+	ib_fprintf(dbg_file, "\014\014");
+	ib_fclose(dbg_file);
+	dbg_file = ib_stdout;
+	return TRUE;
+}
+
+
+int DBG_eval(int n)
+{
+/**************************************
+ *
+ *	D B G _ e v a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Examine a value.
+ *
+ **************************************/
+
+	ib_fprintf(dbg_file, "octal = %X, decimal = %d, hex = %x\n", n, n, n);
+	return TRUE;
+}
+
+
+int DBG_examine(int *n)
+{
+/**************************************
+ *
+ *	D B G _ e x a m i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Examine a value.
+ *
+ **************************************/
+
+	ib_fprintf(dbg_file, "octal = %X, decimal = %d, hex = %x\n", *n, *n, *n);
+	return TRUE;
+}
+
+
+int DBG_init(void)
+{
+/**************************************
+ *
+ *	D B G _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+/*
+sigset  (2, &DBG_supervisor);
+*/
+	return TRUE;
+}
+
+
+int DBG_open(void)
+{
+/**************************************
+ *
+ *	D B G _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a debugging output file.
+ *
+ **************************************/
+	SCHAR filename[64];
+
+	ib_printf("Debug file: ");
+	ib_scanf("%s", filename);
+	dbg_file = ib_fopen(filename, "w");
+	return TRUE;
+}
+
+
+int DBG_pool(int pool_id)
+{
+/**************************************
+ *
+ *	D B G _ p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print all known blocks.
+ *
+ **************************************/
+	DBB dbb;
+	HNK hunk;
+	BLK block;
+	VEC vector;
+	PLB pool;
+	SCHAR *hunk_end;
+
+	dbb = GET_DBB;
+
+	if (!(vector = dbb->dbb_pools))
+		return TRUE;
+
+	if (pool = (PLB) vector->vec_object[pool_id]) {
+		ib_fprintf(dbg_file, "\nPool %d\n", pool->plb_pool_id);
+		for (hunk = pool->plb_hunks; hunk; hunk = hunk->hnk_next) {
+			ib_fprintf(dbg_file, "HUNK address %X, length %d\n",
+					   hunk->hnk_address, hunk->hnk_length);
+			hunk_end = hunk->hnk_address + hunk->hnk_length;
+			for (block = (BLK) hunk->hnk_address; block != (BLK) hunk_end;
+				 block =
+				 (BLK) ((SCHAR *) block + (block->blk_length << SHIFT))) {
+				if (block->blk_pool_id != (UCHAR) pool_id) {
+					ib_fprintf(dbg_file, "%X\t*** BAD POOL ID (%d) ***\n",
+							   block, block->blk_pool_id);
+					break;
+				}
+				if (!DBG_block(block))
+					break;
+			}
+		}
+	}
+	return TRUE;
+}
+
+
+int DBG_pretty(register NOD node, register int column)
+{
+/**************************************
+ *
+ *	D B G _ p r e t t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pretty print a node tree.
+ *
+ **************************************/
+	RSE rse;
+	REL relation;
+	PRC procedure;
+	NOD *ptr, *end;
+	IRB retrieval;
+	register int i;
+
+#define NODE(struct)	((struct) node)
+
+	if (node && node->nod_header.blk_type == (SCHAR) type_rsb)
+		return rsb_pretty(reinterpret_cast < rsb * >(node), column);
+
+	ib_fprintf(dbg_file, "%8X\t", node);
+	for (i = 0; i < column; i++)
+		ib_putc(' ', dbg_file);
+
+	if (node == NULL)
+		return ib_fprintf(dbg_file, "*** null ***\n");
+
+	if (node->nod_header.blk_type != (SCHAR) type_nod)
+		return ib_fprintf(dbg_file, "*** bad node ***\n");
+
+	ib_fprintf(dbg_file, "%s (%d)", node_names[(int) node->nod_type],
+			   node->nod_impure);
+	column += 4;
+
+	switch (node->nod_type) {
+	case nod_rse:
+		rse = (RSE) node;
+		ib_fprintf(dbg_file, "\n");
+		if (rse->rse_rsb)
+			DBG_pretty(reinterpret_cast < nod * >(rse->rse_rsb), column);
+		else {
+			DBG_pretty(rse->rse_first, column);
+			DBG_pretty(rse->rse_boolean, column);
+			DBG_pretty(rse->rse_sorted, column);
+			DBG_pretty(rse->rse_projection, column);
+			for (ptr = rse->rse_relation, end = ptr + rse->rse_count;
+				 ptr < end; ptr++)
+				DBG_pretty(*ptr, column);
+		}
+		break;
+
+	case nod_argument:
+		ib_fprintf(dbg_file, ", id: %d, message: %X\n",
+				   node->nod_arg[e_arg_number], node->nod_arg[e_arg_message]);
+		if (node->nod_arg[e_arg_flag]) {
+			for (i = 0; i < column + 10; i++)
+				ib_putc(' ', dbg_file);
+			ib_fprintf(dbg_file, "flag:\n");
+			DBG_pretty(node->nod_arg[e_arg_flag], column);
+		}
+		if (node->nod_arg[e_arg_indicator]) {
+			for (i = 0; i < column + 10; i++)
+				ib_putc(' ', dbg_file);
+			ib_fprintf(dbg_file, "indicator:\n");
+			DBG_pretty(node->nod_arg[e_arg_flag], column);
+		}
+		return TRUE;
+
+	case nod_message:
+		ib_fprintf(dbg_file, ", number: %d, format: %X\n",
+				   node->nod_arg[e_msg_number], node->nod_arg[e_msg_format]);
+		return TRUE;
+
+	case nod_field:
+		ib_fprintf(dbg_file, ", stream: %d, id: %d\n",
+				   node->nod_arg[e_fld_stream], node->nod_arg[e_fld_id]);
+		return TRUE;
+
+	case nod_index:
+		retrieval = (IRB) node->nod_arg[e_idx_retrieval];
+		ib_fprintf(dbg_file, ", id: %d\n", retrieval->irb_index);
+		for (ptr = retrieval->irb_value, end =
+			 ptr + retrieval->irb_lower_count; ptr < end; ptr++)
+			DBG_pretty(*ptr, column);
+		for (end = ptr + retrieval->irb_upper_count; ptr < end; ptr++)
+			DBG_pretty(*ptr, column);
+		return TRUE;
+
+	case nod_relation:
+		relation = (REL) node->nod_arg[e_rel_relation];
+		ib_fprintf(dbg_file, ", stream: %d, %s (%X)\n",
+				   node->nod_arg[e_rel_stream], relation->rel_name, relation);
+		return TRUE;
+
+	case nod_procedure:
+		procedure = (PRC) node->nod_arg[e_prc_procedure];
+		ib_fprintf(dbg_file, ", stream: %d, %s (%X)\n",
+				   node->nod_arg[e_prc_stream], procedure->prc_name->str_data,
+				   procedure);
+		if (node->nod_arg[e_prc_inputs])
+			DBG_pretty(node->nod_arg[e_prc_inputs], column);
+		return TRUE;
+
+	case nod_exec_proc:
+		procedure = (PRC) node->nod_arg[e_esp_procedure];
+		ib_fprintf(dbg_file, ", name: %s (%X)\n",
+				   procedure->prc_name->str_data, procedure);
+		for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end;
+			 ptr++)
+			DBG_pretty(*ptr, column);
+		return TRUE;
+
+	case nod_union:
+		ib_fprintf(dbg_file, ", stream: %d\n", node->nod_arg[e_uni_stream]);
+		DBG_pretty(node->nod_arg[e_uni_clauses], column);
+		return TRUE;
+
+	case nod_aggregate:
+		ib_fprintf(dbg_file, ", stream: %d\n", node->nod_arg[e_agg_stream]);
+		DBG_pretty(node->nod_arg[e_agg_rse], column);
+		DBG_pretty(node->nod_arg[e_agg_group], column);
+		DBG_pretty(node->nod_arg[e_agg_map], column);
+		return TRUE;
+
+	case nod_max:
+	case nod_min:
+	case nod_average:
+	case nod_total:
+	case nod_count:
+		ib_fprintf(dbg_file, "\n");
+		DBG_pretty(node->nod_arg[e_stat_rse], column);
+		DBG_pretty(node->nod_arg[e_stat_value], column);
+		DBG_pretty(node->nod_arg[e_stat_default], column);
+		return TRUE;
+
+	default:
+		ib_fprintf(dbg_file, "\n");
+		for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end;
+			 ptr++)
+			DBG_pretty(*ptr, column);
+	}
+
+	if (node->nod_type == nod_for && node->nod_arg[e_for_rsb])
+		rsb_pretty(reinterpret_cast < rsb * >(node->nod_arg[e_for_rsb]),
+				   column);
+	return TRUE;
+}
+
+
+int DBG_supervisor(int arg)
+{
+/**************************************
+ *
+ *	D B G _ s u p e r v i s o r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	prior_frame = (int *) *(&arg - 2);
+
+	debug = 0;
+
+#ifndef VMS
+	ib_fprintf(dbg_file, "\nEntering JRD diagnostic DBG_supervisor\n");
+	int yyparse();
+	yyparse();
+	ib_fprintf(dbg_file, "\nLeaving JRD diagnostic DBG_supervisor\n");
+	DBG_init();
+#endif
+
+	return TRUE;
+}
+
+
+int DBG_rpb(RPB * rpb)
+{
+/**************************************
+ *
+ *	D B G _ r p b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a record paramter block
+ *
+ **************************************/
+
+	ib_fprintf(dbg_file, "\n%X\tRECORD PARAMETER BLOCK", rpb);
+	prt_fields(reinterpret_cast < char *>(rpb), dbt_rpb);
+	DBG_window(reinterpret_cast < int *>(&rpb->rpb_window));
+	return TRUE;
+}
+
+
+int DBG_smb(SMB smb, int column)
+{
+/**************************************
+ *
+ *	D B G _ s m b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pretty print an smb (Sort Memory Block)
+ *
+ **************************************/
+
+	smb::smb_repeat * ptr;
+	int i;
+
+	go_column(column);
+	ib_fprintf(dbg_file, "SMB\n");
+	go_column(column);
+	ib_fprintf(dbg_file,
+			   "keys = %d, count = %d length = %d, key_length = %d\n",
+			   smb->smb_keys, smb->smb_count, smb->smb_length,
+			   smb->smb_key_length);
+	for (i = 0; i < smb->smb_keys; i++) {
+		go_column(column + 2);
+		ib_fprintf(dbg_file,
+				   "key [%d] dtype = %d flags = %d length = %d offset = %d, vary_offset = %d\n",
+				   i,
+				   smb->smb_key_desc[i].skd_dtype,
+				   smb->smb_key_desc[i].skd_flags,
+				   smb->smb_key_desc[i].skd_length,
+				   smb->smb_key_desc[i].skd_offset,
+				   smb->smb_key_desc[i].skd_vary_offset);
+	}
+	for (i = 0; i < smb->smb_count; i++) {
+		ptr = &smb->smb_rpt[i];
+		go_column(column + 2);
+		ib_fprintf(dbg_file, "fld [%d] flag = %d stream = %d field = %d\n",
+				   i, ptr->smb_flag_offset, ptr->smb_stream,
+				   ptr->smb_field_id);
+		prt_dsc(&ptr->smb_desc, column + 4);
+		DBG_pretty(ptr->smb_node, column + 4);
+	}
+	return TRUE;
+}
+
+
+int DBG_verify(void)
+{
+/**************************************
+ *
+ *	D B G _ v e r i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Verify integrity of all pools.
+ *
+ **************************************/
+	DBB dbb;
+	VEC vector;
+	int i;
+
+	dbb = GET_DBB;
+
+	if (!dbg_file)
+		dbg_file = ib_fopen("tt:", "w");
+
+	if (!dbb || !(vector = dbb->dbb_pools))
+		return TRUE;
+
+	for (i = 0; i < vector->vec_count; i++)
+		DBG_check(i);
+
+	return TRUE;
+}
+
+
+int DBG_window(int *window)
+{
+/**************************************
+ *
+ *	D B G _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a window paramter block
+ *
+ **************************************/
+	ib_fprintf(dbg_file, "\n%X\tWINDOW", window);
+	prt_fields(reinterpret_cast < char *>(window), dbt_window);
+	return TRUE;
+}
+
+
+int DBG_memory(void)
+{
+/**************************************
+ *
+ *	D B G _ m e m o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print memory usage
+ *
+ **************************************/
+	DBB dbb;
+	VEC vector;
+	PLB pool;
+	int pool_id;
+	int trans_pools = 0;
+	int req_pools = 0;
+	int other_pools = 0;
+	int pool_type;
+
+
+	dbb = GET_DBB;
+
+	ib_fprintf(dbg_file, "MEMORY UTILIZATION for database\n\n");
+	V4_RW_LOCK_LOCK(dbb->dbb_rw_locks + DBB_WLCK_pools, WLCK_read);
+
+/* walk through all the pools in the database */
+
+	perm_pool_mem = 0;
+	req_pool_mem = 0;
+	trans_pool_mem = 0;
+	other_pool_mem = 0;
+	vector = dbb->dbb_pools;
+	for (pool_id = 0; pool_id < vector->vec_count; pool_id++) {
+		pool = (PLB) vector->vec_object[pool_id];
+		if (!pool)
+			continue;
+		pool_type = DBG_analyze(pool_id);
+		switch (pool_type) {
+		case 1:
+			break;
+		case 2:
+			trans_pools++;
+			break;
+		case 3:
+			req_pools++;
+			break;
+		default:
+			other_pools++;
+			break;
+		}
+	}
+
+	ib_fprintf(dbg_file, "\nTotal memory used in the PERMANENT pool = %ldk\n",
+			   perm_pool_mem);
+	ib_fprintf(dbg_file,
+			   "Total memory used in the %d TRANSACTION pools combined = %ldk\n",
+			   trans_pools, trans_pool_mem);
+	ib_fprintf(dbg_file,
+			   "Total memory used in the %d REQUEST pools combined = %ldk\n",
+			   req_pools, req_pool_mem);
+	ib_fprintf(dbg_file,
+			   "Total memory used in the %d OTHER pools combined = %ldk\n",
+			   other_pools, other_pool_mem);
+	ib_fprintf(dbg_file,
+			   "Total memory used in all the pools combined = %ldk\n",
+			   trans_pool_mem + req_pool_mem + other_pool_mem +
+			   perm_pool_mem);
+
+	ib_fprintf(dbg_file, "\nMemory malloc-ed = %ldk\n", gds_max_alloc / 1024);
+	ib_fprintf(dbg_file, "Memory used of the malloc-ed memory = %ldk\n",
+			   gds_delta_alloc / 1024);
+
+	V4_RW_LOCK_UNLOCK(dbb->dbb_rw_locks + DBB_WLCK_pools);
+	return TRUE;
+}
+
+
+static void go_column(int column)
+{
+/**************************************
+ *
+ *	g o _ c o l u m n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Utility function to print a bunch of spaces.
+ *
+ **************************************/
+
+	while (column-- > 0)
+		ib_fprintf(dbg_file, " ");
+}
+
+
+static void prt_dsc(DSC * desc, int column)
+{
+/**************************************
+ *
+ *	p r t _ d s c 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pretty print an dsc.
+ *
+ **************************************/
+	go_column(column);
+	ib_fprintf(dbg_file, "(a=%d, t=%d, l=%d, scale=%d, subtype=%d)\n",
+			   desc->dsc_address, desc->dsc_dtype, desc->dsc_length,
+			   desc->dsc_scale, desc->dsc_sub_type);
+}
+
+
+static int prt_fields(SCHAR * block, int *fields)
+{
+/**************************************
+ *
+ *	p r t _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print structured block.
+ *
+ **************************************/
+	int length, column, offset;
+	TEXT *string, *ptr, *p, s[80];
+
+	column = 99;
+
+	while (string = (TEXT *) * fields++) {
+		offset = *fields++;
+		length = *fields++;
+		ptr = (SCHAR *) block + offset;
+		switch (length) {
+		case 0:
+		case 1:
+			sprintf(s, string, *ptr);
+			break;
+
+		case 2:
+			sprintf(s, string, *(SSHORT *) ptr);
+			break;
+
+		case 4:
+			sprintf(s, string, *(SLONG *) ptr);
+			break;
+		}
+		for (p = s, length = 0; *p++;)
+			length++;
+		if ((column += length + 1) >= 60) {
+			ib_fprintf(dbg_file, "\n\t");
+			column = length + 1;
+		}
+		ib_fprintf(dbg_file, "%s ", s);
+	}
+
+	ib_fprintf(dbg_file, "\n");
+	return TRUE;
+}
+
+
+static int prt_que(SCHAR * string, QUE que)
+{
+/**************************************
+ *
+ *	p r t _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a formatted que entry.
+ *
+ **************************************/
+
+	ib_fprintf(dbg_file, "\t%X %s forward: %X, backward: %X\n",
+			   que, string, que->que_forward, que->que_backward);
+	return TRUE;
+}
+
+
+static int rsb_pretty(register RSB rsb, register int column)
+{
+/**************************************
+ *
+ *	r s b _ p r e t t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pretty print an rsb tree.
+ *
+ **************************************/
+	REL relation;
+	RSB *ptr, *end;
+	USHORT i;
+
+	ib_fprintf(dbg_file, "%X\t", rsb);
+	for (i = 0; i < column; i++)
+		ib_putc(' ', dbg_file);
+
+	if (rsb == NULL)
+		return ib_fprintf(dbg_file, "*** null ***\n");
+
+	if (rsb->rsb_header.blk_type != (SCHAR) type_rsb)
+		return ib_fprintf(dbg_file, "*** bad rsb ***\n");
+
+	ib_fprintf(dbg_file, "%s (%d), stream: %d",
+			   rsb_names[(int) rsb->rsb_type], rsb->rsb_impure,
+			   rsb->rsb_stream);
+
+	if (relation = rsb->rsb_relation)
+		ib_fprintf(dbg_file, " %s", relation->rel_name);
+
+	column += 4;
+
+	ib_fprintf(dbg_file, "\n");
+
+	if (rsb->rsb_type == rsb_merge)
+		for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count * 2; ptr < end;
+			 ptr += 2)
+			DBG_pretty(reinterpret_cast < nod * >(*ptr), column);
+	else if (rsb->rsb_type != rsb_left_cross)
+		for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count; ptr < end; ptr++)
+			DBG_pretty(reinterpret_cast < nod * >(*ptr), column);
+	else
+		for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count + 1; ptr < end;
+			 ptr++)
+			DBG_pretty(reinterpret_cast < nod * >(*ptr), column);
+
+	if (rsb->rsb_next)
+		DBG_pretty(reinterpret_cast < nod * >(rsb->rsb_next), column);
+	return TRUE;
+}
+
+
+void yyerror(const char *string)
+{
+/**************************************
+ *
+ *	y y e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	YACC error function.  Boring.
+ *
+ **************************************/
+
+	ib_fprintf(dbg_file, "%s\n", string);
+}
+
+
+int yywrap(void)
+{
+/**************************************
+ *
+ *	 y y w r a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wrapup function for YACC.
+ *
+ **************************************/
+
+	return (1);
+}
+
+
+} // extern "C"
diff --git a/src/jrd/dbg.h b/src/jrd/dbg.h
new file mode 100644
index 0000000000..abfa8879e7
--- /dev/null
+++ b/src/jrd/dbg.h
@@ -0,0 +1,41 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dbg.h
+ *	DESCRIPTION:	Debugging symbol table definition
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DBG_H_
+#define _JRD_DBG_H_
+
+enum s_type {
+	symb_routine,
+	symb_offset,
+	symb_printer,
+	symb_absolute
+};
+
+typedef struct symb {
+	char *symb_string;
+	int (**symb_value) ();
+	enum s_type symb_type;
+	short symb_size;
+} *SYMB;
+
+#endif /* _JRD_DBG_H_ */
diff --git a/src/jrd/dbg_proto.h b/src/jrd/dbg_proto.h
new file mode 100644
index 0000000000..594bda2338
--- /dev/null
+++ b/src/jrd/dbg_proto.h
@@ -0,0 +1,58 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dbg_proto.h
+ *	DESCRIPTION:	Prototype header file for dbg.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DBG_PROTO_H_
+#define _JRD_DBG_PROTO_H_
+
+/* Don't declare DBG_supervisor in _ANSI_PROTOTYPES_, it screws up val.c */
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+int DBG_supervisor(int);
+
+int DBG_all(void);
+int DBG_analyze(int);
+int DBG_bdbs(void);
+int DBG_precedence(void);
+int DBG_block(struct blk *);
+int DBG_check(int);
+int DBG_close(void);
+int DBG_eval(int);
+int DBG_examine(int *);
+int DBG_init(void);
+int DBG_open(void);
+int DBG_pool(int);
+int DBG_pretty(struct nod *, int);
+int DBG_rpb(struct rpb *);
+int DBG_smb(struct smb *, int);
+int DBG_verify(void);
+int DBG_window(int *);
+int DBG_memory(void);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_DBG_PROTO_H_ */
diff --git a/src/jrd/dbt.cpp b/src/jrd/dbt.cpp
new file mode 100644
index 0000000000..b29840b661
--- /dev/null
+++ b/src/jrd/dbt.cpp
@@ -0,0 +1,358 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dbt.c
+ *	DESCRIPTION:	Debugging routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/ibase.h"
+#include "../jrd/everything.h"
+#include "../jrd/dbg.h"
+
+#ifdef DELTA
+#define FLD(struct, string, field) 0
+#else
+#define FLD(struct, string, field) string, (SCHAR*) OFFSET (struct, field), (SCHAR*) sizeof (((struct) 0)->field)
+#endif
+
+
+extern "C" {
+
+
+typedef SCHAR *TEXT_PTR;
+
+int
+ *ptr;
+
+TEXT_PTR dbt_window[] = {
+	FLD(WIN *, "Page: %ld", win_page),
+	FLD(WIN *, "Buffer: %x", win_buffer),
+	FLD(WIN *, "BDB: %x", win_bdb),
+	FLD(WIN *, "Scans: %d", win_scans),
+	FLD(WIN *, "Flags: %x", win_flags), 0
+}, dbt_rpb[] = {
+
+	FLD(RPB *, "Relation %x", rpb_relation),
+		FLD(RPB *, "Number %ld", rpb_number),
+		FLD(RPB *, "Trans %ld", rpb_transaction),
+		FLD(RPB *, "Page %ld", rpb_page),
+		FLD(RPB *, "Line %x", rpb_line),
+		FLD(RPB *, "Back page %ld", rpb_b_page),
+		FLD(RPB *, "Line %x", rpb_b_line),
+		FLD(RPB *, "Fragment page %ld", rpb_f_page),
+		FLD(RPB *, "Line %x", rpb_f_line),
+		FLD(RPB *, "Format %x", rpb_format_number),
+		FLD(RPB *, "Address: %x ", rpb_address),
+		FLD(RPB *, "Length %x", rpb_length),
+		FLD(RPB *, "Record %x", rpb_record),
+		FLD(RPB *, "Flags %x", rpb_flags), 0};
+
+static TEXT_PTR dbb_stuff[] = {
+	"DATABASE",
+	FLD(DBB, "BCB: %x", dbb_bcb),
+	FLD(DBB, "Relations: %x", dbb_relations),
+	FLD(DBB, "Lock: %x", dbb_lock),
+	FLD(DBB, "File: %x", dbb_file),
+	FLD(DBB, "Permanent: %x", dbb_permanent),
+	FLD(DBB, "Pools: %x", dbb_pools),
+	FLD(DBB, "Page_size: %d", dbb_page_size),
+	FLD(DBB, "dp_per_pp: %d", dbb_dp_per_pp),
+	0
+}, vec[] = {
+"VECTOR", FLD(VEC, "Count %d", vec_count), 0}, vcl[] = {
+"VECTOR OF ULONGS", FLD(VCL, "Count %d", vcl_count), 0}, frb[] = {
+"FREE", FLD(FRB, "Next %x", frb_next), 0}, hnk[] = {
+
+	"HUNK",
+		FLD(HNK, "Addr: %x", hnk_address),
+		FLD(HNK, "Len: %d", hnk_length),
+
+		FLD(HNK, "Next: %x", hnk_next), 0}, plb[] = {
+	"POOL",
+		FLD(PLB, "Id: %d", plb_pool_id),
+		FLD(PLB, "Free: %x", plb_free),
+
+		FLD(PLB, "Hunk: %x", plb_hunks), 0}, bcb[] = {
+"BUFFER CONTROL", FLD(BCB, "Count: %x", bcb_count), 0}, bdb[] = {
+
+	"BUFFER DESCRIPTOR",
+		FLD(BDB, "Page: %ld", bdb_page),
+		FLD(BDB, "Lock: %x", bdb_lock),
+		FLD(BDB, "Buffer: %x", bdb_buffer),
+		FLD(BDB, "Use count: %x", bdb_use_count),
+		FLD(BDB, "Flags: %x", bdb_flags), 0}, pre[] = {
+
+	"PRECEDENCE",
+		FLD(PRE, "Flags: %x", pre_flags),
+		FLD(PRE, "Low: %x", pre_low),
+
+		FLD(PRE, "High: %x", pre_hi), 0}, lck[] = {
+	"LOCK",
+		FLD(LCK, "Parent: %x", lck_parent),
+		FLD(LCK, "Object: %x", lck_object),
+		FLD(LCK, "Type: %x", lck_type),
+		FLD(LCK, "Physical: %x", lck_physical),
+		FLD(LCK, "Logical: %x", lck_logical),
+		FLD(LCK, "Length: %x", lck_length), 0}, fil[] = {
+"FILE", FLD(FIL, "File desc: %x", fil_desc), 0}, pgc[] = {
+
+	"PAGE CONTROL",
+		FLD(PGC, "High water: %d", pgc_high_water),
+		FLD(PGC, "Pages/PIP: %x", pgc_ppp),
+		FLD(PGC, "First PIP: %x", pgc_pip),
+		FLD(PGC, "Bytes/PIP: %x", pgc_bytes), 0}, rel[] = {
+
+	"RELATION",
+		FLD(REL, "%s", rel_name),
+		FLD(REL, "Id: %d", rel_id),
+		FLD(REL, "Current format: %x", rel_current_format),
+		FLD(REL, "Formats: %x", rel_formats),
+		FLD(REL, "Pages: %x", rel_pages),
+		FLD(REL, "Root: %ld", rel_index_root), 0}, fmt[] = {
+
+	"FORMAT",
+		FLD(FMT, "Count: %d", fmt_count),
+		FLD(FMT, "Length: %d", fmt_length),
+		FLD(FMT, "Version: %d", fmt_version), 0}, req[] = {
+
+	"REQUEST",
+		FLD(REQ, "COUNT: %x", req_count),
+		FLD(REQ, "Impure: %x", req_impure_size),
+		FLD(REQ, "Incarn: %x", req_incarnation),
+		FLD(REQ, "Pool: %x", req_pool),
+		FLD(REQ, "Sub req: %x", req_sub_requests),
+		FLD(REQ, "Trans: %x", req_transaction),
+		FLD(REQ, "Next req: %x", req_request),
+		FLD(REQ, "Msg: %x", req_message),
+		FLD(REQ, "Length: %x", req_length),
+		FLD(REQ, "#msgs: %x", req_nmsgs),
+		FLD(REQ, "Max send: %x", req_msend),
+		FLD(REQ, "Max receive: %x", req_mreceive),
+		FLD(REQ, "Top: %x", req_top_node),
+		FLD(REQ, "Next: %x", req_next),
+		FLD(REQ, "Label: %x", req_label),
+		FLD(REQ, "Op: %x", req_operation),
+
+		FLD(REQ, "Flags: %x", req_flags), 0}, tra[] = {
+	"TRANSACTION",
+		FLD(TRA, "Number: %ld", tra_number),
+		FLD(TRA, "Oldest: %ld", tra_oldest),
+		FLD(TRA, "Next: %x", tra_next),
+		FLD(TRA, "Pool: %x", tra_pool),
+		FLD(TRA, "Lock: %x", tra_lock),
+		FLD(TRA, "Locks: %x", tra_relation_locks),
+		FLD(TRA, "Flags: %x", tra_flags), 0}, nod[] = {
+
+	"NODE",
+		FLD(NOD, "Type: %x", nod_type),
+
+		FLD(NOD, "Impure: %x", nod_impure), 0}, lls[] = {
+	"LINKED LIST STACK",
+		FLD(LLS, "Object: %x", lls_object),
+
+		FLD(LLS, "Next: %x", lls_next), 0}, rec[] = {
+"RECORD", FLD(REC, "Format: %x", rec_format), 0}, rsb[] = {
+
+	"RECORD SOURCE BLOCK",
+		FLD(RSB, "Type: %x", rsb_type),
+		FLD(RSB, "Stream: %x", rsb_stream),
+		FLD(RSB, "Relation: %x", rsb_relation),
+		FLD(RSB, "Next: %x", rsb_next),
+
+		FLD(RSB, "Count: %x", rsb_count), 0}, opt[] = {
+	"OPTIMIZER",
+		FLD(OPT, "CSB: %x", opt_csb),
+
+		FLD(OPT, "Cnt: %x", opt_count), 0}, bms[] = {
+	"BIT MAP SEGMENT",
+		FLD(BMS, "Min: %x", bms_min),
+
+		FLD(BMS, "Max: %x", bms_max), 0}, dfw[] = {
+	"DEFERRED WORK BLOCK",
+		FLD(DFW, "type: %d", dfw_type),
+		FLD(DFW, "next: %x", dfw_next),
+
+		FLD(DFW, "name: %s", dfw_name), 0}, tfb[] = {
+	"TEMPORY FIELD BLOCK",
+		FLD(TFB, "id: %d", tfb_id),
+		FLD(TFB, "dtype: %d", tfb_desc.dsc_dtype),
+		FLD(TFB, "scale: %d", tfb_desc.dsc_scale),
+		FLD(TFB, "len: %d", tfb_desc.dsc_length), 0}, str[] = {
+"string", FLD(STR, "length: %d", str_length), 0}, dcc[] = {
+
+	"DATA COMPRESSION CONTROL",
+		FLD(DCC, "next: %x", dcc_next),
+
+		FLD(DCC, "end: %x", dcc_end), 0}, sbm[] = {
+	"SPARE BIT MAP",
+		FLD(SBM, "state: %d", sbm_state),
+		FLD(SBM, "count: %d", sbm_count),
+		FLD(SBM, "used: %d", sbm_used),
+		FLD(SBM, "high water: %d", sbm_high_water),
+		FLD(SBM, "number: %d", sbm_number), 0}, smb[] = {
+
+	"SORT MAP",
+		FLD(SMB, "count: %d", smb_count),
+		FLD(SMB, "keys: %d", smb_keys),
+		FLD(SMB, "length: %d", smb_length),
+		FLD(SMB, "sort key: %x", smb_key_desc), 0}, blb[] = {
+
+	"BLOB",
+		FLD(BLB, "Relation: %x", blb_relation),
+		FLD(BLB, "Count: %d", blb_count),
+		FLD(BLB, "Length: %d", blb_length),
+		FLD(BLB, "Max seg: %d", blb_max_segment),
+		FLD(BLB, "Flags: %x", blb_flags),
+		FLD(BLB, "Trans: %x", blb_transaction),
+		FLD(BLB, "Next: %x", blb_segment), 0}, irb[] = {
+
+	"INDEX RETRIEVAL",
+		FLD(IRB, "index: %d", irb_index),
+		FLD(IRB, "relation: %x", irb_relation),
+		FLD(IRB, "lower bounds: %d", irb_lower_count),
+		FLD(IRB, "upper boudns: %d", irb_upper_count), 0}, jrn[] = {
+"JOURNAL", 0}, scl[] = {
+"SECURITY CLASS", 0}, fld[] = {
+"FIELD", 0}, ext[] = {
+"EXTERNAL FILE", 0}, mfb[] = {
+"MERGE EQUIVALENCE FILE BLOCK", 0}, riv[] = {
+"SORT MERGE RIVER", 0}, plc[] = {
+"PAGE/LOCK SERVER CONNECTION", 0}, usr[] = {
+"USER IDENTIFICATION BLOCK ", 0}, att[] = {
+"ATTACHMENT BLOCK", 0}, sym[] = {
+"SYMBOL", 0}, fun[] = {
+"FUNCTION", 0}, irl[] = {
+"INDEXED RELATIONSHIP", 0}, acc[] = {
+"ACCESS", 0}, rsc[] = {
+"RESOURCE", 0}, idl[] = {
+"INDEX LOCK", 0}, sdw[] = {
+"SHADOW", 0}, sav[] = {
+"SAVE POINT", 0}, vct[] = {
+"VERB", 0}, btb[] = {
+"BLOCKED THREAD", 0}, blf[] = {
+"BLOB FILTER", 0}, arr[] = {
+"ARRAY DESCRIPTION", 0}, map[] = {
+"MAP BLOCK", 0}, log[] = {
+"LOG BLOCK", 0}, dls[] = {
+"DIR LIST BLOCK", 0}, prc[] = {
+"PROCEDURE", FLD(PRC, "%s", prc_name), FLD(PRC, "Id: %d", prc_id), 0}, prm[] = {
+"PARAMETER", FLD(PRM, "%s", prm_name), 0}, idb[] = {
+"INDEX BLOCK", 0}, bkm[] = {
+"BOOKMARK BLOCK", 0}, rng[] = {
+"REFRESH RANGE BLOCK", 0}, tpc[] = {
+"TIP CACHE BLOCK", 0}, xcp[] = {
+"EXCEPTION LIST BLOCK", 0},
+
+	/* xxx
+	   x [] = {
+	   "x",
+	   FLD (x, "x: %x", x),
+	   0},
+	 */
+	csb[] = {
+	"COMPILE SCRATCH BLOCK",
+		FLD(CSB, "Count: %x", csb_count),
+		FLD(CSB, "Node: %x", csb_node),
+		FLD(CSB, "Streams: %x", csb_n_stream),
+		FLD(CSB, "Running: %x", csb_running),
+
+		FLD(CSB, "BLR: %x", csb_blr), 0}, texttype[] = {
+	"INTL TEXT OBJECT",
+		FLD(TEXTTYPE, "Name: %s", texttype_name),
+		FLD(TEXTTYPE, "Vers: %d", texttype_version),
+		FLD(TEXTTYPE, "ID:   %d", texttype_type),
+		FLD(TEXTTYPE, "CS:   %d", texttype_character_set),
+		FLD(TEXTTYPE, "Cntry:%d", texttype_country),
+		FLD(TEXTTYPE, "Flags:%d", texttype_flags), 0}, charset[] = {
+
+	"INTL Character Set",
+		FLD(CHARSET, "Name: %s", charset_name),
+		FLD(CHARSET, "Vers: %d", charset_version),
+		FLD(CHARSET, "ID:   %d", charset_id),
+		FLD(CHARSET, "B/Ch: %d", charset_max_bytes_per_char),
+		FLD(CHARSET, "B/Ch: %d", charset_min_bytes_per_char),
+		FLD(CHARSET, "Flags:%d", charset_flags), 0}, csconvert[] = {
+
+	"INTL Character set converter",
+		FLD(CSCONVERT, "Name: %s", csconvert_name),
+		FLD(CSCONVERT, "from: %d", csconvert_from),
+		FLD(CSCONVERT, "to:   %d", csconvert_to), 0}, tdbb[] = {
+
+	"THREAD DATA BLOCK",
+		FLD(TDBB, "Status vec: %x", tdbb_status_vector),
+		FLD(TDBB, "Default: %x", tdbb_default), 0}, logfiles[] = {
+"WRITE AHEAD LOG FILE", 0}, svc[] = {
+"SERVICE MANAGER BLOCK", 0}, lwt[] = {
+"LATCH WAIT BLOCK", 0}, vcx[] = {
+"VIEW CONTEXT BLOCK", 0}, srpb[] = {
+"RPB BLOCK", 0};
+
+static int (*dbg_all) (), (*dbg_block) (), (*dbg_examine) (), (*dbg_eval) (),
+	(*dbg_open) (), (*dbg_close) (), (*dbg_pool) (), (*dbg_pretty) (),
+	(*dbg_window) (), (*dbg_rpb) (), (*dbg_bdbs) (), (*dbg_analyze) (),
+	(*dbg_check) (), (*dmp_page) (), (*dmp_active) (), (*dmp_dirty) (),
+	(*dbg_verify) ();
+#define SYM(struct, name)	"name", OFFSET (struct, name), 0, symb_offset, sizeof (((struct) 0)->name),
+
+struct symb dbt_symbols[] = {
+	"blk", &dbg_block, symb_printer, sizeof(int),
+	"ev", &dbg_eval, symb_printer, sizeof(int),
+	"ex", &dbg_examine, symb_printer, sizeof(int),
+	"dump", &dmp_page, symb_printer, sizeof(SLONG),
+	"pool", &dbg_pool, symb_printer, 0,
+	"pretty", &dbg_pretty, symb_printer, 0,
+	"analyze", &dbg_analyze, symb_printer, 0,
+	"window", &dbg_window, symb_printer, 0,
+	"rpb", &dbg_rpb, symb_printer, 0,
+	"check", &dbg_check, symb_printer, 0,
+
+	"dirty", &dmp_dirty, symb_routine, 0,
+	"active", &dmp_active, symb_routine, 0,
+	"all", &dbg_all, symb_routine, 0,
+	"open", &dbg_open, symb_routine, 0,
+	"close", &dbg_close, symb_routine, 0,
+	"bdbs", &dbg_bdbs, symb_routine, 0,
+	"verify", &dbg_verify, symb_routine, 0,
+
+/*
+    "dbb", &dbb, symb_absolute, sizeof (dbb),
+    SYM (DBB, dbb_bcb)
+    SYM (DBB, dbb_relations)
+    SYM (DBB, dbb_pools)
+    SYM (DBB, dbb_requests)
+    SYM (REL, rel_formats)
+    SYM (REL, rel_pages)
+    SYM (REQ, req_top_node)
+    SYM (REQ, req_next)
+*/
+	(SCHAR *) 0, 0, symb_routine, 0
+};
+
+#define BLKDEF(type, name, tail) (TEXT*) name,
+
+#define dbb dbb_stuff
+
+TEXT *dbt_blocks[] = { 0,
+#include "../jrd/blk.h"
+	0
+};
+
+
+} // extern "C"
diff --git a/src/jrd/dfloat_stub.cpp b/src/jrd/dfloat_stub.cpp
new file mode 100644
index 0000000000..609b45d4f1
--- /dev/null
+++ b/src/jrd/dfloat_stub.cpp
@@ -0,0 +1,400 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "../jrd/codes.h"
+
+#define entry(r)	r(status) int	*status; {return error (status); };
+
+entry(gds__attach_database)
+	entry(gds__blob_info)
+	entry(gds__cancel_blob)
+	entry(gds__close_blob)
+	entry(gds__commit_transaction)
+	entry(gds__compile_request)
+	entry(gds__create_blob)
+	entry(gds__create_database)
+	entry(gds__database_cleanup)
+	entry(gds__database_info)
+	entry(gds__detach_database)
+	entry(gds__get_segment)
+	entry(gds__open_blob)
+	entry(gds__prepare_transaction)
+	entry(gds__put_segment)
+	entry(gds__reconnect_transaction)
+	entry(gds__receive)
+	entry(gds__release_request)
+	entry(gds__request_info)
+	entry(gds__rollback_transaction)
+	entry(gds__seek_blob)
+	entry(gds__send)
+	entry(gds__start_and_send)
+	entry(gds__start_request)
+	entry(gds__start_multiple)
+	entry(gds__start_transaction)
+	entry(gds__transaction_info)
+	entry(gds__unwind_request)
+	entry(gds__decode_date)
+	entry(gds__encode_date)
+	entry(gds__print_status)
+	entry(gds__sqlcode)
+	entry(gds__ftof)
+	entry(gds__qtoq)
+	entry(gds__vtof)
+	entry(gds__vtov)
+#if(defined JPN_SJIS  || defined JPN_EUC)
+	entry(gds__ftof2)
+	entry(gds__vtof2)
+	entry(gds__vtov2)
+#endif
+	entry(gds__alloc)
+	entry(gds__free)
+	entry(perf_format)
+	entry(perf_get_info)
+	entry(perf_report)
+	entry(gds__temp_file)
+	entry(gds__vax_integer)
+	entry(gds__encode)
+	entry(gds__decode)
+	entry(gds__interprete)
+	entry(gds__interprete_a)
+	entry(gds__edit)
+	entry(blob_close)
+	entry(blob__display)
+	entry(blob_display)
+	entry(blob__dump)
+	entry(blob_dump)
+	entry(blob__edit)
+	entry(blob_edit)
+	entry(blob_get)
+	entry(blob__load)
+	entry(blob_load)
+	entry(bopen)
+	entry(blob_open)
+	entry(blob_put)
+	entry(unlink)
+	entry(gds__compile_request2)
+	entry(gds__print_blr)
+	entry(gds__version)
+	entry(gds__ddl)
+	entry(gds__close)
+	entry(gds__declare)
+	entry(gds__describe)
+	entry(gds__execute)
+	entry(gds__execute_immediate)
+	entry(gds__fetch)
+	entry(gds__open)
+	entry(gds__prepare)
+	entry(gds__to_sqlda)
+	entry(PYXIS_BOX)
+	entry(PYXIS_CLONE)
+	entry(PYXIS_CREATE_ENTREE)
+	entry(PYXIS_CREATE_OBJECT)
+	entry(PYXIS_find_index)
+	entry(PYXIS_DEFINE_FORMS_RELATION)
+	entry(PYXIS_DELETE_ATTRIBUTE)
+	entry(PYXIS_DELETE_FORM)
+	entry(PYXIS_DELETE_NAMED_ATTRIBUTE)
+	entry(PYXIS_DELETE_OBJECT)
+	entry(pyxis__insert)
+	entry(pyxis__fetch)
+	entry(PYXIS_DUMP)
+	entry(PYXIS_DUMP_LENGTH)
+	entry(PYXIS_EDIT)
+	entry(PYXIS_FIND_OBJECT)
+	entry(PYXIS_FORMAT_FORM)
+	entry(PYXIS_FORMAT_MENU)
+	entry(PYXIS_GET_ATTRIBUTE)
+	entry(PYXIS_GET_ATTRIBUTE_VALUE)
+	entry(PYXIS_GET_CHAR)
+	entry(PYXIS_GET_DATA)
+	entry(PYXIS_GET_STRING)
+	entry(PYXIS_GET_VALUE)
+	entry(pyxis__compile_sub_map)
+	entry(PYXIS_MENU)
+	entry(PYXIS_MOVE)
+	entry(PYXIS_NAVIGATE)
+	entry(PYXIS_POP_FORM)
+	entry(PYXIS_PUSH_FORM)
+	entry(PYXIS_PUSH_TAG)
+	entry(PYXIS_PUT_ATTRIBUTE)
+	entry(PYXIS_PUT_DESC)
+	entry(PYXIS_PUT_SEGMENT)
+	entry(PYXIS_REFERENCE)
+	entry(PYXIS_RELATION_FIELDS)
+	entry(PYXIS_RELATION_FORM)
+	entry(PYXIS_REPLACE_ATTRIBUTE)
+	entry(PYXIS_SELECT)
+	entry(PYXIS_SET_DISPLAY_ATTRIBUTE)
+	entry(PYXIS_SET_FIELD_OPTIONS)
+	entry(PYXIS_STORE_FORM)
+	entry(PYXIS_UPDATE)
+	entry(PYXIS_BUGCHECK)
+	entry(PYXIS_COMPUTE_SIZE)
+	entry(PYXIS_ERROR)
+	entry(PYXIS_LOAD)
+	entry(PYXIS_position)
+	entry(PYXIS_find_field)
+	entry(pyxis__load_form)
+	entry(pyxis__drive_form)
+	entry(pyxis__compile_map)
+	entry(pyxis__create_window)
+	entry(pyxis__delete_window)
+	entry(pyxis__pop_window)
+	entry(pyxis__suspend_window)
+	entry(pyxis__menu)
+	entry(pyxis__reset_form)
+	entry(gds__put_error)
+	entry(pyxis__delete)
+	entry(gds__blob_size)
+	entry(gds__attach_database_d)
+	entry(gds__execute_immediate_d)
+	entry(gds__prepare_d)
+	entry(gds__fetch_a)
+	entry(gds__dsql_finish)
+	entry(PYXIS_GET_UPDATED)
+	entry(PYXIS_TRACE_IN)
+	entry(PYXIS_TRACE_OUT)
+	entry(gds__cancel_events)
+	entry(gds__commit_retaining)
+	entry(gds__create_blob2)
+	entry(gds__enable_subsystem)
+	entry(gds__msg_format)
+	entry(gds__open_blob2)
+	entry(gds__prepare_transaction2)
+	entry(gds__que_events)
+	entry(gds__register_cleanup)
+	entry(gds__unregister_cleanup)
+	entry(gds__set_debug)
+	entry(gds__event_block)
+	entry(gds__event_counts)
+	entry(gds__msg_lookup)
+	entry(gds__msg_open)
+	entry(gds__msg_close)
+	entry(gds__msg_put)
+	entry(gds__parse_bpb)
+	entry(pyxis__drive_menu)
+	entry(pyxis__get_entree)
+	entry(pyxis__initialize_menu)
+	entry(pyxis__put_entree)
+	entry(gds__get_slice)
+	entry(gds__put_slice)
+	entry(PYXIS_GET_KEYNAME)
+	entry(gds__prefix)
+	entry(gds__validate_lib_path)
+	entry(gds__event_wait)
+	entry(gds__thread_start)
+	entry(gds__thread_wait)
+	entry(gds__thread_enter)
+	entry(gds__thread_exit)
+	entry(gds__thread_enable)
+	entry(gds__describe_bind)
+	entry(gds__log)
+	entry(gds__completion_ast)
+	entry(gds__ast_active)
+	entry(gds__wake_init)
+	entry(gds__disable_subsystem)
+	entry(gds__map_blobs)
+	entry(isc_expand_dpb)
+	entry(gds__log_status)
+
+	entry(isc_attach_database)
+	entry(isc_blob_info)
+	entry(isc_cancel_blob)
+	entry(isc_cancel_events)
+	entry(isc_close_blob)
+	entry(isc_commit_retaining)
+	entry(isc_commit_transaction)
+	entry(isc_compile_request)
+	entry(isc_compile_request2)
+	entry(isc_create_blob)
+	entry(isc_create_blob2)
+	entry(isc_create_database)
+	entry(isc_database_cleanup)
+	entry(isc_database_info)
+	entry(isc_ddl)
+	entry(isc_decode_date)
+	entry(isc_detach_database)
+	entry(isc_drop_database)
+	entry(isc_encode_date)
+	entry(isc_event_block)
+	entry(isc_event_counts)
+	entry(isc_ftof)
+	entry(ISC_get_prefix)
+	entry(isc_get_segment)
+	entry(isc_get_slice)
+	entry(isc_interprete)
+	entry(isc_open_blob)
+	entry(isc_open_blob2)
+	entry(ISC_prefix)
+	entry(ISC_prefix_lock)
+	entry(ISC_prefix_msg)
+	entry(isc_prepare_transaction)
+	entry(isc_prepare_transaction2)
+	entry(isc_print_blr)
+	entry(isc_print_status)
+	entry(isc_put_segment)
+	entry(isc_put_slice)
+	entry(isc_qtoq)
+	entry(isc_que_events)
+	entry(isc_receive)
+	entry(isc_reconnect_transaction)
+	entry(isc_release_request)
+	entry(isc_request_info)
+	entry(isc_rollback_transaction)
+	entry(isc_seek_blob)
+	entry(isc_send)
+	entry(isc_service_attach)
+	entry(isc_service_detach)
+	entry(isc_service_query)
+	entry(isc_service_start)
+	entry(isc_set_debug)
+	entry(isc_sqlcode)
+	entry(isc_start_and_send)
+	entry(isc_start_multiple)
+	entry(isc_start_transaction)
+	entry(isc_start_request)
+	entry(isc_transact_request)
+	entry(isc_transaction_info)
+	entry(isc_unwind_request)
+	entry(isc_version)
+	entry(isc_vtof)
+	entry(isc_vtov)
+	entry(isc_wait_for_event)
+
+	entry(isc_close)
+	entry(isc_declare)
+	entry(isc_describe)
+	entry(isc_describe_bind)
+	entry(isc_dsql_finish)
+	entry(isc_dsql_release)
+	entry(isc_execute)
+	entry(isc_execute_immediate)
+	entry(isc_fetch)
+	entry(isc_fetch_a)
+	entry(isc_open)
+	entry(isc_prepare)
+	entry(isc_to_sqlda)
+	entry(isc_array_lookup_desc)
+	entry(isc_array_lookup_bounds)
+	entry(isc_array_set_desc)
+	entry(isc_array_gen_sdl)
+	entry(isc_array_get_slice)
+	entry(isc_array_put_slice)
+
+	entry(isc_compile_map)
+	entry(isc_compile_menu)
+	entry(isc_compile_sub_map)
+	entry(isc_create_window)
+	entry(isc_delete_window)
+	entry(isc_drive_form)
+	entry(isc_drive_menu)
+	entry(isc_form_delete)
+	entry(isc_form_fetch)
+	entry(isc_form_insert)
+	entry(isc_get_entree)
+	entry(isc_initialize_menu)
+	entry(isc_load_form)
+	entry(isc_menu)
+	entry(isc_pop_window)
+	entry(isc_put_entree)
+	entry(isc_reset_form)
+	entry(isc_suspend_window)
+	entry(isc_baddress)
+	entry(isc_execute_immediate_d)
+	entry(isc_prepare_d)
+	entry(isc_print_sqlerror)
+	entry(isc_sql_interprete)
+	entry(isc_vax_integer)
+	entry(isc_rollback_retaining)
+
+	entry(gds__event_block_a)
+
+	entry(isc_dsql_allocate_statement)
+	entry(isc_dsql_alloc_statement2)
+	entry(isc_dsql_execute)
+	entry(isc_dsql_execute2)
+	entry(isc_dsql_execute_m)
+	entry(isc_dsql_execute2_m)
+	entry(isc_dsql_execute_immediate)
+	entry(isc_dsql_execute_immediate_m)
+	entry(isc_dsql_execute_immediate_d)
+	entry(isc_dsql_exec_immed2)
+	entry(isc_dsql_exec_immed2_m)
+	entry(isc_dsql_fetch)
+#ifdef SCROLLABLE_CURSORS
+	entry(isc_dsql_fetch2)
+#endif
+	entry(isc_dsql_fetch_a)
+#ifdef SCROLLABLE_CURSORS
+	entry(isc_dsql_fetch2_a)
+#endif
+	entry(isc_dsql_fetch_m)
+#ifdef SCROLLABLE_CURSORS
+	entry(isc_dsql_fetch2_m)
+#endif
+	entry(isc_dsql_free_statement)
+	entry(isc_dsql_insert)
+	entry(isc_dsql_insert_m)
+	entry(isc_dsql_prepare)
+	entry(isc_dsql_prepare_m)
+	entry(isc_dsql_prepare_d)
+	entry(isc_dsql_set_cursor_name)
+	entry(isc_dsql_sql_info)
+	entry(isc_dsql_describe)
+	entry(isc_dsql_describe_bind)
+	entry(isc_embed_dsql_close)
+	entry(isc_embed_dsql_declare)
+	entry(isc_embed_dsql_execute)
+	entry(isc_embed_dsql_execute2)
+	entry(isc_embed_dsql_execute_immed)
+	entry(isc_embed_dsql_execute_immed_d)
+	entry(isc_embed_dsql_exec_immed2)
+	entry(isc_embed_dsql_exec_immed2_d)
+	entry(isc_embed_dsql_fetch)
+#ifdef SCROLLABLE_CURSORS
+	entry(isc_embed_dsql_fetch2)
+#endif
+	entry(isc_embed_dsql_fetch_a)
+#ifdef SCROLLABLE_CURSORS
+	entry(isc_embed_dsql_fetch2_a)
+#endif
+	entry(isc_embed_dsql_insert)
+	entry(isc_embed_dsql_open)
+	entry(isc_embed_dsql_open2)
+	entry(isc_embed_dsql_prepare)
+	entry(isc_embed_dsql_prepare_d)
+	entry(isc_embed_dsql_release)
+	entry(isc_embed_dsql_describe)
+	entry(isc_embed_dsql_describe_bind)
+
+	entry(SCH_current_thread)
+	entry(SCH_enter)
+	entry(SCH_exit)
+	entry(SCH_hiber)
+	entry(SCH_schedule)
+	entry(SCH_wake)
+
+	 static error(status)
+	 int *status;
+{
+	*status++ = gds_arg_gds;
+	*status++ = gds__unavailable;
+	*status++ = gds_arg_end;
+
+	return gds__unavailable;
+}
diff --git a/src/jrd/dflt.gdl b/src/jrd/dflt.gdl
new file mode 100644
index 0000000000..3401addc26
--- /dev/null
+++ b/src/jrd/dflt.gdl
@@ -0,0 +1,25 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+modify database "bar.gdb";
+
+define field default_no char[3] missing_value "NO";
+
+define field default_full char[7] missing_value "FULL";
+
+define field default_restrict char[7] missing_value "RESTRICT";
diff --git a/src/jrd/dflt.h b/src/jrd/dflt.h
new file mode 100644
index 0000000000..9c2feb5082
--- /dev/null
+++ b/src/jrd/dflt.h
@@ -0,0 +1,65 @@
+/*
+ *      PROGRAM:        JRD Access Method
+ *      MODULE:         dflt.h
+ *      DESCRIPTION:    Defalut values for fields in system relations.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DFLT_H_
+#define _JRD_DFLT_H_
+
+/* This file contains the blr for the default values for fields  
+   in system relations.  The GDEF source for these fields is in
+   DFLT.GDL in the JRD component.  When modifying a system field default value,
+   check out DFLT.GDL, modify the field definition source, to generate the
+   proper blr, replace the blr in DFLT.H, and check both files back in.
+   PLEASE NOTE: Since default values cannot be specified in GDML, the
+   MISSING_VALUE clause is used to generate the BLR for DEFAULT value.  */
+
+/* default value of "NO" for RDB$DEFERRABLE,RDB$INITIALLY_DEFERRED in
+    RDB$RELATION_CONSTRAINTS.                                           */
+
+/* transform int's into network byte format */
+#define TWOBYTES(x)	((x) % 256), ((x) / 256)
+
+static CONST UCHAR dflt_no[] = {
+	blr_version5,
+	blr_literal, blr_text2, TWOBYTES(ttype_ascii), 2, 0, 'N', 'O',
+	blr_eoc
+};
+
+/* default value of "FULL" for RDB$MATCH_OPTION in RDB$REF_CONSTRAINTS   */
+
+static CONST UCHAR dflt_full[] = {
+	blr_version5,
+	blr_literal, blr_text2, TWOBYTES(ttype_ascii), 4, 0, 'F', 'U', 'L', 'L',
+	blr_eoc
+};
+
+/* default value of "RESTRICT" for  RDB$UPDATE_RULE,RDB$DELETE_RULE in
+   RDB$REF_CONSTRAINTS                                                  */
+
+static CONST UCHAR dflt_restrict[] = {
+	blr_version5,
+	blr_literal, blr_text2, TWOBYTES(ttype_ascii), 8, 0, 'R', 'E', 'S', 'T',
+		'R', 'I', 'C', 'T',
+	blr_eoc
+};
+
+#endif
diff --git a/src/jrd/dfw.e b/src/jrd/dfw.e
new file mode 100644
index 0000000000..db7771aa91
--- /dev/null
+++ b/src/jrd/dfw.e
@@ -0,0 +1,4121 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dfw.e
+ *	DESCRIPTION:	Deferred Work handler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef SHLIB_DEFS
+#define LOCAL_SHLIB_DEFS
+#endif
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/val.h"
+#include "../jrd/irq.h"
+#include "../jrd/tra.h"
+#include "../jrd/pio.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../jrd/req.h"
+#include "../jrd/exe.h"
+#include "../jrd/scl.h"
+#include "../jrd/blb.h"
+#include "../jrd/met.h"
+#include "../jrd/lck.h"
+#include "../jrd/sdw.h"
+#include "../jrd/flags.h"
+#include "../jrd/all.h"
+#include "../jrd/intl.h"
+#include "../intl/charsets.h"
+#include "../jrd/align.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/constants.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/btr_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dfw_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/dsc_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/grant_proto.h"
+#include "../jrd/idx_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/isc_f_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/pcmet_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/scl_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/sdw_proto.h"
+#include "../jrd/thd_proto.h"
+#ifndef WINDOWS_ONLY
+#include "../jrd/event_proto.h"
+#endif
+
+#ifdef	WINDOWS_ONLY
+#include "../jrd/seg_proto.h"
+#endif
+
+/* Pick up system relation ids */
+
+#define RELATION(name,id,ods)      id,
+#define FIELD(symbol,name,id,update,ods,new_id,new_ods)
+#define END_RELATION
+
+typedef ENUM rids
+{
+#include "../jrd/relations.h"
+	rel_MAX
+} RIDS;
+
+#undef RELATION
+#undef FIELD
+#undef END_RELATION
+
+/* Define range of user relation ids */
+
+#define MIN_RELATION_ID		rel_MAX
+#define MAX_RELATION_ID		32767
+
+#define COMPUTED_FLAG	128
+#define NULL_BLOB(id)	(!id.gds_quad_high && !id.gds_quad_low)
+#define WAIT_PERIOD	-1
+
+DATABASE DB = FILENAME "ODS.RDB";
+
+/*==================================================================
+**
+** NOTE:
+**
+**	The following functions required the same number of
+**	parameters to be passed.
+**
+**==================================================================
+*/
+static BOOLEAN add_file(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN add_shadow(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN delete_shadow(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN compute_security(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN create_index(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN delete_index(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN create_log(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN delete_log(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN create_procedure(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN delete_procedure(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN modify_procedure(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN create_relation(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN delete_relation(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN scan_relation(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN create_trigger(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN delete_trigger(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN modify_trigger(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN delete_exception(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN delete_field(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN delete_global(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN delete_parameter(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN delete_rfr(TDBB, SSHORT, DFW, TRA);
+static BOOLEAN make_version(TDBB, SSHORT, DFW, TRA);
+
+/* ---------------------------------------------------------------- */
+
+static void check_dependencies(TDBB, TEXT*, TEXT*, USHORT, TRA);
+static void check_filename(TEXT*, USHORT);
+static BOOLEAN find_depend_in_dfw(TDBB, TEXT*, USHORT, USHORT, TRA);
+static void get_array_desc(TDBB, TEXT*, ADS);
+static void get_procedure_dependencies(DFW);
+static void get_trigger_dependencies(DFW);
+static FMT make_format(TDBB, REL, USHORT, TFB);
+static USHORT name_length(TEXT *);
+static void put_summary_blob(BLB, enum rsr_t, SLONG[2]);
+static void put_summary_record(BLB, enum rsr_t, UCHAR *, USHORT);
+static BOOLEAN shadow_defined(TDBB);
+static BOOLEAN wal_defined(TDBB);
+
+static CONST UCHAR nonnull_validation_blr[] =
+{
+	blr_version5,
+	blr_not,
+	blr_missing,
+	blr_fid, 0, 0, 0,
+	blr_eoc
+};
+
+typedef struct task
+{
+	ENUM dfw_t task_type;
+	  BOOLEAN(*task_routine) (TDBB, SSHORT, DFW, TRA);
+} TASK;
+
+static CONST TASK task_table[] =
+{
+	dfw_add_file, add_file,
+	dfw_add_shadow, add_shadow,
+	dfw_delete_index, delete_index,
+	dfw_delete_rfr, delete_rfr,
+	dfw_delete_relation, delete_relation,
+	dfw_delete_shadow, delete_shadow,
+	dfw_delete_field, delete_field,
+	dfw_delete_global, delete_global,
+	dfw_create_relation, create_relation,
+	dfw_update_format, make_version,
+	dfw_scan_relation, scan_relation,
+	dfw_compute_security, compute_security,
+	dfw_create_index, create_index,
+#ifdef EXPRESSION_INDICES
+	dfw_create_expression_index, PCMET_expression_index,
+#endif
+	dfw_delete_expression_index, delete_index,
+	dfw_grant, (BOOLEAN(*)(TDBB, SSHORT, DFW, TRA))GRANT_privileges,
+	dfw_create_trigger, create_trigger,
+	dfw_delete_trigger, delete_trigger,
+	dfw_modify_trigger, modify_trigger,
+	dfw_create_log, create_log,
+	dfw_delete_log, delete_log,
+	dfw_create_procedure, create_procedure,
+	dfw_delete_procedure, delete_procedure,
+	dfw_modify_procedure, modify_procedure,
+	dfw_delete_prm, delete_parameter,
+	dfw_delete_exception, delete_exception,
+	dfw_null, NULL
+};
+
+#ifdef SHLIB_DEFS
+#define strcpy		(*_libgds_strcpy)
+#define strlen		(*_libgds_strlen)
+#define strcmp		(*_libgds_strcmp)
+#define SETJMP		(*_libgds_setjmp)
+#define memcmp		(*_libgds_memcmp)
+#define strncmp		(*_libgds_strncmp)
+#define unlink		(*_libgds_unlink)
+#define _iob		(*_libgds__iob)
+#define ib_fprintf		(*_libgds_fprintf)
+
+extern int strlen();
+extern int strcmp();
+extern int SETJMP();
+extern int memcmp();
+extern int strncmp();
+extern SCHAR *strcpy();
+extern int unlink();
+extern IB_FILE _iob[];
+extern int ib_fprintf();
+#endif
+
+
+USHORT DFW_assign_index_type(DFW work, SSHORT field_type, SSHORT ttype)
+{
+/**************************************
+ *
+ *	D F W _ a s s i g n _ i n d e x _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define the index segment type based
+ * 	on the field's type and subtype.
+ *
+ **************************************/
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	if (field_type == dtype_varying || field_type == dtype_text) {
+		STATUS status[20];
+
+		if (ttype == ttype_none)
+			return idx_string;
+
+		if (ttype == ttype_binary)
+			return idx_byte_array;
+
+		if (ttype == ttype_metadata)
+			return idx_metadata;
+
+		if (ttype == ttype_ascii)
+			return idx_string;
+
+		/* Dynamic text cannot occur here as this is for an on-disk
+		   index, which must be bound to a text type. */
+
+		assert(ttype != ttype_dynamic);
+
+		if (INTL_defined_type(tdbb, status, ttype))
+			return INTL_TEXT_TO_INDEX(ttype);
+
+		ERR_post(gds__no_meta_update,
+				 gds_arg_gds, gds__random, gds_arg_string,
+				 ERR_cstring(work->dfw_name), status[0], status[1], status[2],
+				 status[3],
+				 0);
+	}
+
+	if (field_type == dtype_timestamp)
+		return idx_timestamp2;
+	else if (field_type == dtype_sql_date)
+		return idx_sql_date;
+	else if (field_type == dtype_sql_time)
+		return idx_sql_time;
+
+#ifdef EXACT_NUMERICS
+/* idx_numeric2 used for 64-bit Integer support */
+	if (field_type == dtype_int64)
+		return idx_numeric2;
+#endif
+
+	return idx_numeric;
+}
+
+
+void DFW_delete_deferred( TRA transaction, SLONG sav_number)
+{
+/**************************************
+ *
+ *	D F W _ d e l e t e _ d e f e r r e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of work deferred that was to be done at 
+ *	COMMIT time as the statement has been rolled back.
+ *
+ *	if (sav_number == -1), then  remove all entries.
+ *
+ **************************************/
+	USHORT deferred_meta = 0;
+	DFW work, *ptr;
+
+/* If there is no deferred work, just return */
+
+	if (!transaction->tra_deferred_work) {
+		return;
+	}
+
+/* Remove deferred work and events which are to be rolled back */
+
+	for (ptr = &transaction->tra_deferred_work; work = *ptr;)
+	{
+		if ((work->dfw_sav_number == sav_number) || (sav_number == -1))
+		{
+			*ptr = work->dfw_next;
+			ALL_release((FRB)work);
+		}
+		else
+		{
+			ptr = &(*ptr)->dfw_next;
+			if (work->dfw_type != dfw_post_event)
+				deferred_meta = 1;
+		}
+	}
+
+	if (!deferred_meta) {
+		transaction->tra_flags &= ~TRA_deferred_meta;
+	}
+}
+
+
+void DFW_merge_work(TRA transaction,
+					SLONG old_sav_number,
+					SLONG new_sav_number)
+{
+/**************************************
+ *
+ *	D F W _ m e r g e _ w o r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Merge the deferred work with the previous level.  This will
+ *	be called only of there is a previous level.
+ *
+ **************************************/
+	DFW work, *ptr;
+	DFW work_m, *ptr_m;
+
+/* If there is no deferred work, just return */
+
+	if (!transaction->tra_deferred_work)
+		return;
+
+/* Decrement the save point number in the deferred block
+ * i.e. merge with the previous level.
+ */
+
+	for (ptr = &transaction->tra_deferred_work; work = *ptr;)
+	{
+		if (work->dfw_sav_number == old_sav_number)
+		{
+			work->dfw_sav_number = new_sav_number;
+
+			/* merge this entry with other identical entries at
+			 * same save point level. Start from the beginning and
+			 * stop with the that is being merged.
+			 */
+
+			for (ptr_m = &transaction->tra_deferred_work;
+				 ((work_m = *ptr_m) && (work_m != work));
+				 ptr_m = &(*ptr_m)->dfw_next)
+			{
+				if (work_m->dfw_type == work->dfw_type &&
+					work_m->dfw_id == work->dfw_id &&
+					work_m->dfw_name_length == work->dfw_name_length &&
+					work_m->dfw_sav_number == work->dfw_sav_number)
+				{
+					if ((work->dfw_name_length) &&
+						(memcmp(work->dfw_name,
+								work_m->dfw_name,
+								work->dfw_name_length)))
+					{
+						continue;
+					}
+
+					/* Yes!  There is a duplicate entry.  Take out the
+					 * entry for which the save point was decremented
+					 */
+
+					*ptr = work->dfw_next;
+
+					if (work_m->dfw_name_length)
+						work_m->dfw_count += work->dfw_count;
+
+					ALL_release((FRB)work);
+					work = (DFW) 0;
+					break;
+				}
+			}
+		}
+
+		if (work)
+			ptr = &(*ptr)->dfw_next;
+	}
+}
+
+
+void DFW_perform_system_work(void)
+{
+/**************************************
+ *
+ *	D F W _ p e r f o r m _ s y s t e m _ w o r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush out the work left to be done in the
+ *	system transaction.
+ *
+ **************************************/
+	DBB dbb;
+
+	dbb = GET_DBB;
+
+	DFW_perform_work(dbb->dbb_sys_trans);
+}
+
+
+void DFW_perform_work(TRA transaction)
+{
+/**************************************
+ *
+ *	D F W _ p e r f o r m _ w o r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do work deferred to COMMIT time 'cause that time has
+ *	come.
+ *
+ **************************************/
+	TDBB tdbb = GET_THREAD_DATA;
+	BOOLEAN		dump_shadow = FALSE;
+	SSHORT		phase = 1;
+	JMP_BUF		env;
+	JMP_BUF*	old_env;
+	BOOLEAN		more;
+	DFW			work;
+	DFW*		ptr;
+
+/* If no deferred work or it's all deferred event posting
+   don't bother */
+
+	if (!transaction->tra_deferred_work ||
+		!(transaction->tra_flags & TRA_deferred_meta))
+	{
+		return;
+	}
+
+	tdbb->tdbb_default = transaction->tra_pool;
+
+/* Loop for as long as any of the deferred work routines says that it has
+   more to do.  A deferred work routine should be able to deal with any
+   value of phase, either to say that it wants to be called again in the
+   next phase (by returning TRUE) or that it has nothing more to do in this
+   or later phases (by returning FALSE). By convention, phase 0 has been
+   designated as the cleanup phase. If any non-zero phase punts, then phase 0
+   is executed for all deferred work blocks to cleanup work-in-progress. */
+
+	old_env = (JMP_BUF*) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env))
+	{
+		/* Do any necessary cleanup */
+
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		phase = 0;
+	}
+
+	do
+	{
+		const TASK* task;
+		more = FALSE;
+		for (task = task_table; task->task_type != dfw_null; task++)
+		{
+			for (work = transaction->tra_deferred_work;
+				work;
+				 work = work->dfw_next)
+			{
+				if (work->dfw_type == task->task_type)
+				{
+					if (work->dfw_type == dfw_add_shadow)
+					{
+						dump_shadow = TRUE;
+					}
+					if ((*task->task_routine)(tdbb, phase, work, transaction))
+					{
+						more = TRUE;
+					}
+				}
+			}
+		}
+		if (!phase) {
+			ERR_punt();
+		}
+		phase++;
+	} while (more);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+/* Remove deferred work blocks so that system transaction and
+   commit retaining transactions don't re-execute them. Leave
+   events to be posted after commit */
+
+	for (ptr = &transaction->tra_deferred_work; work = *ptr;)
+	{
+		if ((work->dfw_type == dfw_post_event) ||
+			(work->dfw_type == dfw_delete_shadow))
+		{
+			ptr = &(*ptr)->dfw_next;
+		}
+		else
+		{
+			*ptr = work->dfw_next;
+			ALL_release((FRB)work);
+		}
+	}
+
+	transaction->tra_flags &= ~TRA_deferred_meta;
+
+	if (dump_shadow) {
+		SDW_dump_pages();
+	}
+}
+
+
+void DFW_perform_post_commit_work(TRA transaction)
+{
+/**************************************
+ *
+ *	D F W _ p e r f o r m _ p o s t _ c o m m i t _ w o r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform any post commit work
+ *	1. Post any pending events.
+ *	2. Unlink shadow files for dropped shadows
+ *
+ *	Then, delete it from chain of pending work.
+ *
+ **************************************/
+#ifndef WINDOWS_ONLY
+	DBB dbb;
+	LCK lock;
+#endif
+	STATUS status[20];
+	DFW work, *ptr;
+
+	if (!transaction->tra_deferred_work)
+		return;
+
+#ifndef WINDOWS_ONLY
+	dbb = GET_DBB;
+	lock = dbb->dbb_lock;
+#endif
+
+	for (ptr = &transaction->tra_deferred_work; work = *ptr;)
+		if (work->dfw_type == dfw_post_event)
+		{
+#ifndef WINDOWS_ONLY			/* Events are not supported under LIBS */
+			EVENT_post(	status,
+						lock->lck_length,
+						(TEXT *) & lock->lck_key,
+						work->dfw_name_length,
+						work->dfw_name,
+						work->dfw_count);
+#endif
+			*ptr = work->dfw_next;
+			ALL_release((FRB)work);
+		}
+		else if (work->dfw_type == dfw_delete_shadow)
+		{
+			unlink(work->dfw_name);
+			*ptr = work->dfw_next;
+			ALL_release((FRB)work);
+		}
+		else
+		{
+			ptr = &(*ptr)->dfw_next;
+		}
+}
+
+
+void DFW_post_work( TRA transaction, ENUM dfw_t type, DSC * desc, USHORT id)
+{
+/**************************************
+ *
+ *	D F W _ p o s t _ w o r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post a piece of work to be deferred to commit time.
+ *	If we already know about it, so much the better.
+ *
+ **************************************/
+	DFW work, *ptr;
+	UCHAR *p, *q, *string;
+	USHORT length;
+	TEXT temp[256];				/* Must hold largest metadata field */
+	SLONG sav_number;
+
+	if (!desc)
+	{
+		string = NULL;
+		length = 0;
+	}
+	else
+	{
+		/* Find the actual length of the string, searching until the claimed
+		   end of the string, or the terminating \0, whichever comes first. */
+
+		length = MOV_make_string(desc,
+								ttype_metadata,
+								&string,
+								(VARY*)temp,
+								sizeof(temp));
+
+		p = string;
+		q = string + length;
+		while (p < q && *p)
+		{
+			++p;
+		}
+
+		/* Trim trailing blanks (bug 3355) */
+
+		while (--p >= string && *p == ' ')
+			;
+		length = (p + 1) - string;
+	}
+
+/* get the current save point number */
+
+	sav_number = transaction->tra_save_point ?
+		transaction->tra_save_point->sav_number : 0;
+
+/* Check to see if work is already posted */
+
+	for (ptr = &transaction->tra_deferred_work; work = *ptr;
+		 ptr = &(*ptr)->dfw_next)
+	{
+		if (work->dfw_type == type &&
+			work->dfw_id == id &&
+			work->dfw_name_length == length &&
+			work->dfw_sav_number == sav_number)
+		{
+			if (!length)
+				return;
+			if (!memcmp(string, work->dfw_name, length)) {
+				++work->dfw_count;
+				return;
+			}
+		}
+	}
+
+/* Not already posted, so do so now. */
+
+	*ptr = work = (DFW) ALLOCTV(type_dfw, length);
+	work->dfw_type = type;
+	work->dfw_id = id;
+	work->dfw_count = 1;
+	work->dfw_name_length = length;
+	work->dfw_sav_number = sav_number;
+	if (length)
+		MOVE_FAST(string, work->dfw_name, length);
+
+	if (type != dfw_post_event)
+		transaction->tra_flags |= TRA_deferred_meta;
+	else if (transaction->tra_save_point)
+		transaction->tra_save_point->sav_flags |= SAV_event_post;
+}
+
+
+void DFW_update_index( DFW work, USHORT id, float selectivity)
+{
+/**************************************
+ *
+ *	D F W _ u p d a t e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update information in the index relation after creation
+ *	of the index.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, irq_m_index, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		IDX IN RDB$INDICES WITH IDX.RDB$INDEX_NAME EQ work->dfw_name
+        if (!REQUEST(irq_m_index))
+            REQUEST(irq_m_index) = request;
+		MODIFY IDX USING
+			IDX.RDB$INDEX_ID = id + 1;
+			IDX.RDB$STATISTICS = selectivity;
+		END_MODIFY;
+	END_FOR;
+
+	if (!REQUEST(irq_m_index))
+		REQUEST(irq_m_index) = (BLK)request;
+}
+
+
+static BOOLEAN add_file( TDBB tdbb, SSHORT phase, DFW work, TRA transaction)
+{
+/**************************************
+ *
+ *	a d d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a file to a database.
+ *	This file could be a regular database
+ *	file or a shadow file.  Either way we
+ *	require exclusive access to the database.
+ *
+ **************************************/
+	DBB dbb;
+	USHORT section, shadow_number;
+	SLONG start, max;
+	BLK handle, handle2;
+	TEXT temp[MAX_PATH_LENGTH];
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	switch (phase)
+	{
+	case 0:
+		CCH_release_exclusive(tdbb);
+		return FALSE;
+
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		if (CCH_exclusive(tdbb, LCK_EX, WAIT_PERIOD))
+		{
+			return TRUE;
+		}
+		else
+		{
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__lock_timeout,
+					 gds_arg_gds, gds__obj_in_use,
+					 gds_arg_string, ERR_cstring(dbb->dbb_file->fil_string),
+					 0);
+			return FALSE;
+		}
+	case 4:
+		CCH_flush(tdbb, (USHORT) FLUSH_FINI, 0L);
+		max = PIO_max_alloc(dbb) + 1;
+		handle = handle2 = NULL;
+
+		/* Check the file name for node name.  This has already been done for 
+		   ** shadows in add_shadow () */
+
+		if (work->dfw_type != dfw_add_shadow)
+			check_filename(work->dfw_name, work->dfw_name_length);
+
+		/* get any files to extend into */
+
+		FOR(REQUEST_HANDLE handle) X IN RDB$FILES
+			WITH X.RDB$FILE_NAME EQ work->dfw_name
+				/* First expand the file name This has already been done 
+				   ** for shadows in add_shadow ()) */
+			if (work->dfw_type != dfw_add_shadow)
+			{
+				ISC_expand_filename(X.RDB$FILE_NAME, 0, temp);
+				MODIFY X USING
+					strcpy(X.RDB$FILE_NAME, temp);
+				END_MODIFY;
+			}
+
+			/* If there is no starting position specified, or if it is
+			   too low a value, make a stab at assigning one based on 
+			   the indicated preference for the previous file length. */
+
+			if ((start = X.RDB$FILE_START) < max)
+			{
+				FOR(REQUEST_HANDLE handle2)
+					FIRST 1 Y IN RDB$FILES
+						WITH Y.RDB$SHADOW_NUMBER EQ X.RDB$SHADOW_NUMBER
+						AND Y.RDB$FILE_SEQUENCE NOT MISSING
+						SORTED BY DESCENDING Y.RDB$FILE_SEQUENCE
+						start = Y.RDB$FILE_START + Y.RDB$FILE_LENGTH;
+				END_FOR;
+			}
+
+			start = MAX(max, start);
+			shadow_number = X.RDB$SHADOW_NUMBER;
+			if ((shadow_number &&
+				(section = SDW_add_file(X.RDB$FILE_NAME,
+										start,
+										shadow_number))) ||
+				(section = PAG_add_file(X.RDB$FILE_NAME, start)))
+			{
+				MODIFY X USING
+					X.RDB$FILE_SEQUENCE = section;
+					X.RDB$FILE_START = start;
+				END_MODIFY;
+			}
+		END_FOR;
+
+		CMP_release(tdbb, (REQ)handle);
+		if (handle2)
+		{
+			CMP_release(tdbb, (REQ)handle2);
+		}
+
+		if (section)
+		{
+			handle = NULL;
+			section--;
+			FOR(REQUEST_HANDLE handle) X IN RDB$FILES
+				WITH X.RDB$FILE_SEQUENCE EQ section
+					AND X.RDB$SHADOW_NUMBER EQ shadow_number
+				MODIFY X USING
+					X.RDB$FILE_LENGTH = start - X.RDB$FILE_START;
+				END_MODIFY;
+			END_FOR;
+			CMP_release(tdbb, (REQ)handle);
+		}
+
+		CCH_release_exclusive(tdbb);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+
+static BOOLEAN add_shadow( TDBB tdbb, SSHORT phase, DFW work, TRA transaction)
+{
+/**************************************
+ *
+ *	a d d _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	A file or files have been added for shadowing.
+ *	Get all files for this particular shadow first
+ *	in order of starting page, if specified, then
+ *	in sequence order.
+ *
+ **************************************/
+	DBB dbb;
+	BLK handle;
+	SDW shadow;
+	USHORT sequence, add_sequence;
+	BOOLEAN finished;
+	ULONG min_page;
+	TEXT expanded_fname[1024];
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	switch (phase)
+	{
+	case 0:
+		CCH_release_exclusive(tdbb);
+		return FALSE;
+
+	case 1:
+	case 2:
+	case 3:
+		return TRUE;
+
+	case 4:
+		if (wal_defined(tdbb))
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__wal_shadow_err, 0);
+		/* Msg309: Write-Ahead Log with Shadowing configuration not allowed */
+
+		check_filename(work->dfw_name, work->dfw_name_length);
+
+		/* could have two cases: 
+		   1) this shadow has already been written to, so add this file using
+		   the standard routine to extend a database
+		   2) this file is part of a newly added shadow which has already been
+		   fetched in totem and prepared for writing to, so just ignore it
+		 */
+
+		finished = FALSE;
+		handle = NULL;
+		FOR(REQUEST_HANDLE handle)
+			F IN RDB$FILES
+				WITH F.RDB$FILE_NAME EQ work->dfw_name
+            ISC_expand_filename(F.RDB$FILE_NAME, 0, expanded_fname);
+			MODIFY F USING
+				strcpy(F.RDB$FILE_NAME, expanded_fname);
+			END_MODIFY;
+
+			for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+				if ((F.RDB$SHADOW_NUMBER == shadow->sdw_number) &&
+					!(shadow->sdw_flags & SDW_IGNORE))
+				{
+					if (F.RDB$FILE_FLAGS & FILE_shadow)
+						/* This is the case of a bogus duplicate posted
+						 * work when we added a multi-file shadow 
+						 */
+						finished = TRUE;
+					else if (shadow->sdw_flags & (SDW_dumped))
+					{
+						/* Case of adding a file to a currently active
+						 * shadow set.
+						 * Note: as of 1995-January-31 there is
+						 * no SQL syntax that supports this, but there
+						 * may be GDML
+						 */
+						if (!CCH_exclusive(tdbb, LCK_EX, WAIT_PERIOD))
+							ERR_post(gds__no_meta_update,
+									 gds_arg_gds, gds__lock_timeout,
+									 gds_arg_gds, gds__obj_in_use,
+									 gds_arg_string,
+									 ERR_cstring(dbb->dbb_file->fil_string),
+									 0);
+						add_file(tdbb, phase, work, (TRA) 0);
+						finished = TRUE;
+					}
+					else
+					{
+						/* We cannot add a file to a shadow that is still
+						 * in the process of being created.
+						 */
+						ERR_post(gds__no_meta_update,
+								 gds_arg_gds, gds__obj_in_use,
+								 gds_arg_string,
+								 ERR_cstring(dbb->dbb_file->fil_string),
+								 0);
+					}
+					break;
+				}
+
+		END_FOR;
+		CMP_release(tdbb, (REQ)handle);
+
+		if (finished)
+			return FALSE;
+
+		/* this file is part of a new shadow, so get all files for the shadow
+		   in order of the starting page for the file */
+
+		/* Note that for a multi-file shadow, we have several pieces of
+		 * work posted (one dfw_add_shadow for each file).  Rather than
+		 * trying to cancel the other pieces of work we ignore them
+		 * when they arrive in this routine.
+		 */
+
+		sequence = 0;
+		min_page = 0;
+		shadow = NULL;
+		handle = NULL;
+		FOR(REQUEST_HANDLE handle)
+			X IN RDB$FILES CROSS
+				Y IN RDB$FILES
+				OVER RDB$SHADOW_NUMBER
+				WITH X.RDB$FILE_NAME EQ expanded_fname
+				SORTED BY Y.RDB$FILE_START
+				/* for the first file, create a brand new shadow; for secondary
+				   files that have a starting page specified, add a file */
+			if (!sequence)
+				  SDW_add(Y.RDB$FILE_NAME, Y.RDB$SHADOW_NUMBER, Y.RDB$FILE_FLAGS);
+			else if (Y.RDB$FILE_START)
+			{
+				if (!shadow)
+				{
+					for (shadow = dbb->dbb_shadow;
+						 shadow;
+						 shadow = shadow->sdw_next)
+					{
+						if ((Y.RDB$SHADOW_NUMBER == shadow->sdw_number) &&
+							!(shadow->sdw_flags & SDW_IGNORE))
+						{
+								break;
+						}
+					}
+				}
+
+				if (!shadow)
+					BUGCHECK(203);	/* msg 203 shadow block not found for extend file */
+
+				min_page = MAX((min_page + 1), Y.RDB$FILE_START);
+				add_sequence =
+					SDW_add_file(Y.RDB$FILE_NAME,
+								 min_page,
+								 Y.RDB$SHADOW_NUMBER);
+			}
+
+			/* update the sequence number and bless the file entry as being
+			   good */
+
+			if (!sequence || (Y.RDB$FILE_START && add_sequence))
+			{
+				MODIFY Y
+					Y.RDB$FILE_FLAGS |= FILE_shadow;
+					Y.RDB$FILE_SEQUENCE = sequence;
+					Y.RDB$FILE_START = min_page;
+				END_MODIFY;
+				sequence++;
+			}
+
+		END_FOR;
+		CMP_release(tdbb, (REQ)handle);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static void check_dependencies(TDBB tdbb,
+							   TEXT * dpdo_name,
+							   TEXT * field_name,
+							   USHORT dpdo_type,
+							   TRA transaction)
+{
+/**************************************
+ *
+ *	c h e c k _ d e p e n d e n c i e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check the dependency list for relation or relation.field
+ *	before deleting such.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	USHORT dep_counts[obj_count], i;
+	STATUS obj_type;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	for (i = 0; i < (USHORT) obj_count; i++)
+		dep_counts[i] = 0;
+
+	if (field_name)
+	{
+		request = (BLK) CMP_find_request(tdbb, irq_ch_f_dpd, IRQ_REQUESTS);
+
+		FOR(REQUEST_HANDLE request)
+			DEP IN RDB$DEPENDENCIES
+				WITH DEP.RDB$DEPENDED_ON_NAME EQ dpdo_name
+				AND DEP.RDB$DEPENDED_ON_TYPE = dpdo_type
+				AND DEP.RDB$FIELD_NAME EQ field_name
+				REDUCED TO DEP.RDB$DEPENDENT_NAME 
+            if (!REQUEST(irq_ch_f_dpd))
+				REQUEST(irq_ch_f_dpd) = (BLK)request;
+
+			/* If the found object is also being deleted, there's no dependency */
+
+			if (!find_depend_in_dfw(tdbb,
+									DEP.RDB$DEPENDENT_NAME,
+									DEP.RDB$DEPENDENT_TYPE,
+									0,
+									transaction))
+			{
+				dep_counts[DEP.RDB$DEPENDENT_TYPE]++;
+			}
+		END_FOR;
+
+		if (!REQUEST(irq_ch_f_dpd))
+			REQUEST(irq_ch_f_dpd) = (BLK)request;
+	}
+	else
+	{
+		request = (BLK) CMP_find_request(tdbb, irq_ch_dpd, IRQ_REQUESTS);
+
+		FOR(REQUEST_HANDLE request)
+			DEP IN RDB$DEPENDENCIES
+				WITH DEP.RDB$DEPENDED_ON_NAME EQ dpdo_name
+				AND DEP.RDB$DEPENDED_ON_TYPE = dpdo_type
+				REDUCED TO DEP.RDB$DEPENDENT_NAME 
+
+            if (!REQUEST(irq_ch_dpd))
+				REQUEST(irq_ch_dpd) = (BLK)request;
+
+			/* If the found object is also being deleted, there's no dependency */
+
+			if (!find_depend_in_dfw(tdbb,
+									DEP.RDB$DEPENDENT_NAME,
+									DEP.RDB$DEPENDENT_TYPE,
+									0,
+									transaction))
+			{
+				dep_counts[DEP.RDB$DEPENDENT_TYPE]++;
+			}
+		END_FOR;
+
+		if (!REQUEST(irq_ch_dpd))
+			REQUEST(irq_ch_dpd) = (BLK)request;
+	}
+
+	for (i = 0; i < obj_count; i++)
+		if (dep_counts[i])
+		{
+			switch (dpdo_type)
+			{
+			case obj_relation:
+				obj_type = gds__table_name;
+				break;
+			case obj_procedure:
+				obj_type = gds__proc_name;
+				break;
+			case obj_exception:
+				obj_type = gds__exception_name;
+				break;
+			default:
+				assert(FALSE);
+				break;
+			}
+			if (field_name)
+				ERR_post(	gds__no_meta_update,
+							gds_arg_gds, gds__no_delete,	/* Msg353: can not delete */
+							gds_arg_gds, gds__field_name,
+							gds_arg_string, ERR_cstring(field_name),
+							gds_arg_gds, gds__dependency,
+							gds_arg_number, (SLONG) dep_counts[i],
+							0);	/* Msg310: there are %ld dependencies */
+			else
+				ERR_post(	gds__no_meta_update,
+							gds_arg_gds, gds__no_delete,	/* can not delete */
+							gds_arg_gds, obj_type,
+							gds_arg_string, ERR_cstring(dpdo_name),
+							gds_arg_gds, gds__dependency,
+							gds_arg_number, (SLONG) dep_counts[i],
+							0);	/* there are %ld dependencies */
+		}
+}
+
+
+static void check_filename( TEXT * name, USHORT l)
+{
+/**************************************
+ *
+ *	c h e c k _ f i l e n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make sure that a file path doesn't contain an
+ *	inet node name.
+ *
+ **************************************/
+	TEXT file_name[MAX_PATH_LENGTH], *p, *q;
+	BOOLEAN valid = TRUE;
+
+	l = MIN(l, sizeof(file_name) - 1);
+	for (p = file_name, q = name; l--; *p++ = *q++)
+		;
+	*p = 0;
+	for (p = file_name; *p; p++)
+		if (p[0] == ':' && p[1] == ':')
+			valid = FALSE;
+
+	if (!valid || ISC_check_if_remote(file_name, FALSE))
+		ERR_post(gds__no_meta_update, gds_arg_gds, gds__node_name_err, 0);
+	/* Msg305: A node name is not permitted in a secondary, shadow, or log file name */
+}
+
+
+static BOOLEAN compute_security(TDBB tdbb,
+								SSHORT phase,
+								DFW work,
+								TRA transaction)
+{
+/**************************************
+ *
+ *	c o m p u t e _ s e c u r i t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	There was a change in a security class.  Recompute everything
+ *	it touches.
+ *
+ **************************************/
+	DBB dbb;
+	BLK handle;
+	SCL class;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	switch (phase)
+	{
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		/* Get security class.  This may return NULL if it doesn't exist */
+
+		class = SCL_recompute_class(tdbb, work->dfw_name);
+
+		handle = NULL;
+		FOR(REQUEST_HANDLE handle) X IN RDB$DATABASE
+			WITH X.RDB$SECURITY_CLASS EQ work->dfw_name
+
+            tdbb->tdbb_attachment->att_security_class = class;
+
+		END_FOR;
+		CMP_release(tdbb, (REQ)handle);
+		break;
+	}
+
+	return FALSE;
+
+/**** OBSOLETE!!! Only security class name strings in relations and fields.
+      Note: fld_security_class  --> fld_security_name
+            rel_security_class  --> rel_security_name
+
+handle = NULL;
+for (request_handle handle) x in rdb$relation_fields 
+	with x.rdb$security_class eq work->dfw_name
+    if (relation = MET_lookup_relation (tdbb, x.rdb$relation_name))
+	{
+    	id = MET_lookup_field (tdbb, relation, x.rdb$field_name);
+    	if (field = MET_get_field (relation, id))
+	    field->fld_security_class = class;
+	}
+end_for;
+CMP_release (tdbb, handle);
+
+handle = NULL;
+for (request_handle handle) x in rdb$relations 
+	with x.rdb$security_class eq work->dfw_name
+    if (relation = MET_lookup_relation (tdbb, x.rdb$relation_name))
+        relation->rel_security_class = class;
+end_for;
+CMP_release (tdbb, handle);
+
+****/
+}
+
+
+static BOOLEAN create_index(TDBB tdbb,
+							SSHORT phase,
+							DFW work,
+							TRA transaction)
+{
+/**************************************
+ *
+ *	c r e a t e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new index or change the state of an index between active/inactive.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	REL relation, partner_relation;
+	IDX idx;
+	int key_count;
+	float selectivity;
+	SSHORT text_type;
+	SSHORT collate;
+	BLK handle;
+	WIN window;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	switch (phase)
+	{
+	case 0:
+		handle = NULL;
+
+		/* Drop those indices at clean up time. */
+		FOR(REQUEST_HANDLE handle) IDXN IN RDB$INDICES CROSS
+			IREL IN RDB$RELATIONS OVER RDB$RELATION_NAME
+				WITH IDXN.RDB$INDEX_NAME EQ work->dfw_name
+				/* Views do not have indices */
+			if (IREL.RDB$VIEW_BLR.NULL)
+			{
+				relation = MET_lookup_relation(tdbb, IDXN.RDB$RELATION_NAME);
+
+				/* Fetch the root index page and mark MUST_WRITE, and then
+				   delete the index. It will also clean the index slot. */
+				if (relation->rel_index_root)
+				{
+					if (work->dfw_id != MAX_IDX)
+					{
+						window.win_page = relation->rel_index_root;
+						window.win_flags = 0;
+						CCH_FETCH(tdbb, &window, LCK_write, pag_root);
+						CCH_MARK_MUST_WRITE(tdbb, &window);
+						BTR_delete_index(tdbb, &window, work->dfw_id);
+						work->dfw_id = MAX_IDX;
+					}
+					if (!IDXN.RDB$INDEX_ID.NULL)
+					{
+						MODIFY IDXN USING
+							IDXN.RDB$INDEX_ID.NULL = TRUE;
+						END_MODIFY;
+					}
+				}
+			}
+		END_FOR;
+
+		CMP_release(tdbb, (REQ)handle);
+		CCH_release_exclusive(tdbb);
+		return FALSE;
+
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		key_count = 0;
+		relation = NULL;
+		idx.idx_flags = 0;
+
+		/* Fetch the information necessary to create the index.  On the first
+		   time thru, check to see if the index already exists.  If so, delete
+		   it.  If the index inactive flag is set, don't create the index */
+
+		request = (BLK) CMP_find_request(tdbb, irq_c_index, IRQ_REQUESTS);
+
+		FOR(REQUEST_HANDLE request)
+			IDX IN RDB$INDICES CROSS
+				SEG IN RDB$INDEX_SEGMENTS OVER RDB$INDEX_NAME CROSS
+				RFR IN RDB$RELATION_FIELDS OVER RDB$FIELD_NAME,
+				RDB$RELATION_NAME CROSS
+				FLD IN RDB$FIELDS CROSS
+				REL IN RDB$RELATIONS OVER RDB$RELATION_NAME WITH
+					FLD.RDB$FIELD_NAME EQ RFR.RDB$FIELD_SOURCE AND
+					IDX.RDB$INDEX_NAME EQ work->dfw_name
+            
+            if (!REQUEST(irq_c_index))
+                REQUEST(irq_c_index) = (BLK)request;
+
+			if (!relation)
+			{
+				relation =
+					MET_lookup_relation_id(tdbb, REL.RDB$RELATION_ID, FALSE);
+				if (!relation)
+				{
+					EXE_unwind(tdbb, (REQ)request);
+					ERR_post(gds__no_meta_update,
+							 gds_arg_gds, gds__idx_create_err,
+							 gds_arg_string, ERR_cstring(work->dfw_name),
+							 0);
+					/* Msg308: can't create index %s */
+				}
+				if (IDX.RDB$INDEX_ID && IDX.RDB$STATISTICS < 0.0)
+				{
+					MODIFY IDX
+						IDX.RDB$STATISTICS =
+							IDX_statistics(	tdbb,
+											relation,
+											(USHORT)(IDX.RDB$INDEX_ID - 1));
+					END_MODIFY;
+					EXE_unwind(tdbb, (REQ)request);
+					return FALSE;
+				}
+				if (IDX.RDB$INDEX_ID)
+				{
+					IDX_delete_index(	tdbb,
+										relation,
+										(USHORT)(IDX.RDB$INDEX_ID - 1));
+					MODIFY IDX
+						IDX.RDB$INDEX_ID.NULL = TRUE;
+					END_MODIFY;
+				}
+				if (IDX.RDB$INDEX_INACTIVE)
+				{
+					EXE_unwind(tdbb, (REQ)request);
+					return FALSE;
+				}
+				idx.idx_count = IDX.RDB$SEGMENT_COUNT;
+				if (!idx.idx_count || idx.idx_count > 16)
+				{
+					EXE_unwind(tdbb, (REQ)request);
+					if (!idx.idx_count)
+						ERR_post(gds__no_meta_update,
+								 gds_arg_gds, gds__idx_seg_err,
+								 gds_arg_string, ERR_cstring(work->dfw_name),
+								 0);
+					/* Msg304: segment count of 0 defined for index %s */
+					else
+						ERR_post(gds__no_meta_update,
+								 gds_arg_gds, gds__idx_key_err,
+								 gds_arg_string, ERR_cstring(work->dfw_name),
+								 0);
+					/* Msg311: too many keys defined for index %s */
+				}
+				if (IDX.RDB$UNIQUE_FLAG)
+					idx.idx_flags |= idx_unique;
+				if (IDX.RDB$INDEX_TYPE == 1)
+					idx.idx_flags |= idx_descending;
+				if (!IDX.RDB$FOREIGN_KEY.NULL)
+					idx.idx_flags |= idx_foreign;
+				if (!strncmp(	IDX.RDB$INDEX_NAME,
+								"RDB$PRIMARY",
+								strlen("RDB$PRIMARY")))
+				{
+					idx.idx_flags |= idx_primary;
+				}
+			}
+
+			if (++key_count > idx.idx_count ||
+				SEG.RDB$FIELD_POSITION > idx.idx_count ||
+				FLD.RDB$FIELD_TYPE == blr_blob ||
+				!FLD.RDB$DIMENSIONS.NULL)
+			{
+				EXE_unwind(tdbb, (REQ)request);
+				if (key_count > idx.idx_count)
+					ERR_post(gds__no_meta_update,
+							 gds_arg_gds, gds__idx_key_err,
+							 gds_arg_string, ERR_cstring(work->dfw_name),
+							 0);
+				/* Msg311: too many keys defined for index %s */
+				else if (SEG.RDB$FIELD_POSITION > idx.idx_count)
+					ERR_post(gds__no_meta_update,
+							 gds_arg_gds, gds__inval_key_posn,
+							 /* Msg358: invalid key position */
+							 gds_arg_gds, gds__field_name,
+							 gds_arg_string, ERR_cstring(RFR.RDB$FIELD_NAME),
+							 gds_arg_gds, gds__index_name,
+							 gds_arg_string, ERR_cstring(work->dfw_name),
+							 0);
+				else if (FLD.RDB$FIELD_TYPE == blr_blob)
+					ERR_post(gds__no_meta_update,
+							 gds_arg_gds, gds__blob_idx_err,
+							 gds_arg_string, ERR_cstring(work->dfw_name),
+							 0);
+				/* Msg350: attempt to index blob column in index %s */
+				else
+					ERR_post(gds__no_meta_update,
+							 gds_arg_gds, gds__array_idx_err,
+							 gds_arg_string, ERR_cstring(work->dfw_name),
+							 0);
+				/* Msg351: attempt to index array column in index %s */
+			}
+
+			idx.idx_rpt[SEG.RDB$FIELD_POSITION].idx_field = RFR.RDB$FIELD_ID;
+
+			if (FLD.RDB$CHARACTER_SET_ID.NULL)
+				FLD.RDB$CHARACTER_SET_ID = CS_NONE;
+
+			if (!RFR.RDB$COLLATION_ID.NULL)
+				collate = RFR.RDB$COLLATION_ID;
+			else if (!FLD.RDB$COLLATION_ID.NULL)
+				collate = FLD.RDB$COLLATION_ID;
+			else
+				collate = COLLATE_NONE;
+
+			text_type =
+				INTL_CS_COLL_TO_TTYPE(FLD.RDB$CHARACTER_SET_ID, collate);
+			idx.idx_rpt[SEG.RDB$FIELD_POSITION].idx_itype =
+				DFW_assign_index_type(work,
+									  gds_cvt_blr_dtype[FLD.RDB$FIELD_TYPE],
+									  text_type);
+		END_FOR;
+
+		if (!REQUEST(irq_c_index))
+			REQUEST(irq_c_index) = (BLK)request;
+
+		if (key_count != idx.idx_count)
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__key_field_err,
+					 gds_arg_string, ERR_cstring(work->dfw_name),
+					 0);
+		/* Msg352: too few key columns found for index %s (incorrect column name?) */
+		if (!relation)
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__idx_create_err,
+					 gds_arg_string, ERR_cstring(work->dfw_name),
+					 0);
+		/* Msg308: can't create index %s */
+
+		/* Make sure the relation info is all current */
+
+		MET_scan_relation(tdbb, relation);
+
+		if (relation->rel_view_rse)
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__idx_create_err,
+					 gds_arg_string, ERR_cstring(work->dfw_name),
+					 0);
+		/* Msg308: can't create index %s */
+
+		/* Actually create the index */
+
+		partner_relation = (REL) NULL_PTR;
+		if (idx.idx_flags & idx_foreign)
+		{
+			/* Get an exclusive lock on the database if the index being
+			   defined enforces a foreign key constraint. This will prevent
+			   the constraint from being violated during index construction. */
+
+			if (MET_lookup_partner(tdbb, relation, &idx, work->dfw_name) &&
+				(partner_relation =
+					MET_lookup_relation_id(	tdbb,
+											idx.idx_primary_relation,
+											TRUE)) &&
+				 !CCH_exclusive(tdbb, LCK_EX, LCK_NO_WAIT))
+			{
+				ERR_post(gds__no_meta_update,
+						gds_arg_gds, gds__obj_in_use,
+						gds_arg_string, partner_relation->rel_name,
+						0);
+			}
+		}
+
+		assert(work->dfw_id == MAX_IDX);
+		IDX_create_index(	tdbb,
+							relation,
+							&idx,
+							work->dfw_name,
+							&work->dfw_id,
+							transaction,
+							&selectivity);
+		assert(work->dfw_id == idx.idx_id);
+		DFW_update_index(work, idx.idx_id, selectivity);
+
+		if (partner_relation)
+		{
+			relation->rel_flags |= REL_check_partners;
+			partner_relation->rel_flags |= REL_check_partners;
+			CCH_release_exclusive(tdbb);
+		}
+
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN create_log( TDBB tdbb, SSHORT phase, DFW work, TRA transaction)
+{
+/**************************************
+ *
+ *	c r e a t e _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do work associated with the addition of records to RDB$LOG_FILES
+ *
+ **************************************/
+	BLK handle;
+	TEXT temp[MAX_PATH_LENGTH];
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	switch (phase)
+	{
+	case 0:
+		CCH_release_exclusive(tdbb);
+		return 0;
+
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		if (CCH_exclusive(tdbb, LCK_EX, WAIT_PERIOD))
+			return TRUE;
+		else
+		{
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__lock_timeout,
+					 gds_arg_gds, gds__obj_in_use,
+					 gds_arg_string, ERR_cstring(dbb->dbb_file->fil_string),
+					 0);
+			return FALSE;
+		}
+	case 4:
+
+		handle = NULL;
+		if (shadow_defined(tdbb))
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__wal_shadow_err,
+					 0);
+		/* Msg309: Write-Ahead Log with Shadowing configuration not allowed */
+		check_filename(work->dfw_name, work->dfw_name_length);
+
+		FOR(REQUEST_HANDLE handle) X IN RDB$LOG_FILES
+
+			ISC_expand_filename(X.RDB$FILE_NAME, 0, temp);
+
+			MODIFY X USING
+				strcpy(X.RDB$FILE_NAME, temp);
+			END_MODIFY;
+		END_FOR;
+
+		CMP_release(tdbb, (REQ)handle);
+
+		transaction->tra_flags |= TRA_add_log;
+		PAG_modify_log(transaction->tra_number, TRA_add_log);
+		return TRUE;
+
+	case 5:
+		CCH_release_exclusive(tdbb);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN create_procedure(TDBB	tdbb,
+								SSHORT	phase,
+								DFW		work,
+								TRA		transaction)
+{
+/**************************************
+ *
+ *	c r e a t e _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new procedure.
+ *
+ **************************************/
+	PRC procedure;
+
+	SET_TDBB(tdbb);
+
+	switch (phase)
+	{
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		get_procedure_dependencies(work);
+		if (!(procedure = MET_lookup_procedure(tdbb, work->dfw_name)))
+			return FALSE;
+		procedure->prc_flags |= PRC_create;
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN create_relation(TDBB tdbb,
+							   SSHORT phase,
+							   DFW work,
+							   TRA transaction)
+{
+/**************************************
+ *
+ *	c r e a t e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new relation.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	REL relation;
+	USHORT rel_id, external_flag;
+	GDS__QUAD blob_id;
+	BLK handle;
+	LCK lock;
+	USHORT major_version, minor_original, local_min_relation_id;
+
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	major_version = (SSHORT) dbb->dbb_ods_version;
+	minor_original = (SSHORT) dbb->dbb_minor_original;
+
+	if (ENCODE_ODS(major_version, minor_original) < ODS_9_0)
+		local_min_relation_id = MIN_RELATION_ID;
+	else
+		local_min_relation_id = USER_DEF_REL_INIT_ID;
+
+	switch (phase)
+	{
+	case 0:
+		if (work->dfw_lock)
+		{
+			LCK_release(tdbb, work->dfw_lock);
+			ALL_release((FRB)work->dfw_lock);
+			work->dfw_lock = NULL;
+		}
+		break;
+
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		/* Take a relation lock on rel id -1 before actually
+		   generating a relation id. */
+
+		work->dfw_lock = lock = (LCK) ALLOCDV(type_lck, sizeof(SLONG));
+		lock->lck_dbb = dbb;
+		lock->lck_attachment = tdbb->tdbb_attachment;
+		lock->lck_length = sizeof(SLONG);
+		lock->lck_key.lck_long = -1;
+		lock->lck_type = LCK_relation;
+		lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+		lock->lck_parent = dbb->dbb_lock;
+		lock->lck_owner = (BLK) tdbb->tdbb_attachment;
+
+		LCK_lock_non_blocking(tdbb, lock, LCK_EX, LCK_WAIT);
+
+		/* Assign a relation ID and dbkey length to the new relation.
+		   Probe the candidate relation ID returned from the system
+		   relation RDB$DATABASE to make sure it isn't already assigned.
+		   This can happen from nefarious manipulation of RDB$DATABASE
+		   or wraparound of the next relation ID. Keep looking for a
+		   usable relation ID until the search space is exhausted. */
+
+		rel_id = 0;
+		request = (BLK) CMP_find_request(tdbb, irq_c_relation, IRQ_REQUESTS);
+
+		FOR(REQUEST_HANDLE request)
+			X IN RDB$DATABASE CROSS Y IN RDB$RELATIONS WITH
+				Y.RDB$RELATION_NAME EQ work->dfw_name
+            if (!REQUEST(irq_c_relation))
+                REQUEST(irq_c_relation) = (BLK)request;
+
+			blob_id = Y.RDB$VIEW_BLR;
+			external_flag = Y.RDB$EXTERNAL_FILE[0];
+
+			MODIFY X USING
+				rel_id = X.RDB$RELATION_ID;
+
+				if (rel_id < local_min_relation_id ||
+					rel_id > MAX_RELATION_ID)
+				{
+					rel_id = X.RDB$RELATION_ID = local_min_relation_id;
+				}
+
+				while (relation = MET_lookup_relation_id(tdbb, rel_id++, FALSE))
+				{
+					if (rel_id < local_min_relation_id ||
+						rel_id > MAX_RELATION_ID)
+					{
+						rel_id = local_min_relation_id;
+					}
+					if (rel_id == X.RDB$RELATION_ID)
+					{
+						EXE_unwind(tdbb, (REQ)request);
+						ERR_post(gds__no_meta_update,
+								 gds_arg_gds, gds__table_name,
+								 gds_arg_string, ERR_cstring(work->dfw_name),
+								 gds_arg_gds, gds__imp_exc,
+								 0);
+					}
+				}
+				X.RDB$RELATION_ID = (rel_id > MAX_RELATION_ID) ?
+					local_min_relation_id : rel_id;
+				MODIFY Y USING
+					Y.RDB$RELATION_ID = --rel_id;
+					if (NULL_BLOB(blob_id))
+						Y.RDB$DBKEY_LENGTH = 8;
+					else
+					{
+						/* update the dbkey length to include each of the base
+						   relations */
+
+						handle = NULL;
+						Y.RDB$DBKEY_LENGTH = 0;
+						FOR(REQUEST_HANDLE handle)
+							Z IN RDB$VIEW_RELATIONS CROSS
+								R IN RDB$RELATIONS OVER RDB$RELATION_NAME WITH
+								Z.RDB$VIEW_NAME = work->dfw_name
+
+                            Y.RDB$DBKEY_LENGTH += R.RDB$DBKEY_LENGTH;
+
+						END_FOR;
+						CMP_release(tdbb, (REQ)handle);
+					}
+				END_MODIFY
+			END_MODIFY
+		END_FOR;
+
+		LCK_release(tdbb, lock);
+		ALL_release((FRB)lock);
+		work->dfw_lock = NULL;
+
+		if (!REQUEST(irq_c_relation))
+			REQUEST(irq_c_relation) = request;
+
+		/* If relation wasn't found, don't do anymore. This can happen
+		   when the relation is created and deleted in the same transaction. */
+
+		if (!rel_id)
+			break;
+
+		/* get the relation and flag it to check for dependencies
+		   in the view blr (if it exists) and any computed fields */
+
+		relation = MET_relation(tdbb, rel_id);
+		relation->rel_flags |= REL_get_dependencies;
+
+		/* if this is not a view, create the relation */
+
+		if (NULL_BLOB(blob_id))
+		{
+			if (!external_flag)
+				DPM_create_relation(tdbb, relation);
+		}
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN create_trigger(TDBB tdbb,
+							  SSHORT phase,
+							  DFW work,
+							  TRA transaction)
+{
+/**************************************
+ *
+ *	c r e a t e _ t r i g g e r 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform required actions on creation of trigger.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	switch (phase)
+	{
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		get_trigger_dependencies(work);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN delete_exception(TDBB tdbb,
+								SSHORT phase,
+								DFW work,
+								TRA transaction)
+{
+/**************************************
+ *
+ *	d e l e t e _ e x c e p t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check if it is allowable to delete
+ *	an exception, and if so, clean up after it.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	switch (phase)
+	{
+	case 0:
+		return FALSE;
+
+	case 1:
+		check_dependencies(tdbb, work->dfw_name, NULL_PTR,
+						   obj_exception, transaction);
+		return TRUE;
+
+	case 2:
+		return TRUE;
+
+	case 3:
+		return TRUE;
+
+	case 4:
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN delete_field(TDBB tdbb,
+							SSHORT phase,
+							DFW work,
+							TRA transaction)
+{
+/**************************************
+ *
+ *	d e l e t e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description 
+ *	This whole routine exists just to
+ *	return an error if someone attempts to
+ *	delete a global field that is in use
+ *
+ **************************************/
+	DBB dbb;
+	int field_count;
+	BLK handle;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	switch (phase)
+	{
+	case 1:
+		/* Look up the field in RFR.  If we can't find the field,
+		   go ahead with the delete. */
+
+		handle = NULL;
+		field_count = 0;
+
+		FOR(REQUEST_HANDLE handle)
+			RFR IN RDB$RELATION_FIELDS CROSS
+				REL IN RDB$RELATIONS
+				OVER RDB$RELATION_NAME
+				WITH RFR.RDB$FIELD_SOURCE EQ work->dfw_name
+				/* If the rfr field is also being deleted, there's no dependency */
+			if (!find_depend_in_dfw(tdbb,
+									RFR.RDB$FIELD_NAME,
+									obj_computed,
+									REL.RDB$RELATION_ID,
+									transaction))
+			{
+                field_count++;
+			}
+		END_FOR;
+		CMP_release(tdbb, (REQ)handle);
+
+		if (field_count)
+			ERR_post(gds__no_meta_update,
+					gds_arg_gds, gds__no_delete,	/* Msg353: can not delete */
+					gds_arg_gds, gds__field_name,
+					gds_arg_string, ERR_cstring(work->dfw_name),
+					gds_arg_gds, gds__dependency,
+					gds_arg_number, (SLONG) field_count,
+					0);	/* Msg310: there are %ld dependencies */
+
+	case 2:
+		return TRUE;
+
+	case 3:
+		MET_delete_dependencies(tdbb, work->dfw_name, obj_computed);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN delete_global(TDBB tdbb,
+							 SSHORT phase,
+							 DFW work,
+							 TRA transaction)
+{
+/**************************************
+ *
+ *	d e l e t e _ g l o b a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	If a local field has been deleted,
+ *	check to see if its global field
+ *	is computed. If so, delete all its
+ *	dependencies under the assumption
+ *	that a global computed field has only
+ *	one local field.
+ *
+ **************************************/
+	DBB dbb;
+	BLK handle;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	switch (phase)
+	{
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		handle = NULL;
+		FOR(REQUEST_HANDLE handle)
+			FLD IN RDB$FIELDS WITH
+				FLD.RDB$FIELD_NAME EQ work->dfw_name AND
+				FLD.RDB$COMPUTED_BLR NOT MISSING
+
+            MET_delete_dependencies(tdbb, work->dfw_name, obj_computed);
+
+		END_FOR;
+		CMP_release(tdbb, (REQ)handle);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN delete_index(TDBB tdbb,
+							SSHORT phase,
+							DFW work,
+							TRA transaction)
+{
+/**************************************
+ *
+ *	d e l e t e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	IDL index, *ptr;
+	IDB index_block, *iptr;
+	REL relation;
+	USHORT id, wait;
+
+	SET_TDBB(tdbb);
+
+	switch (phase)
+	{
+	case 0:
+		if (!(relation = MET_lookup_relation(tdbb, work->dfw_name)))
+			return FALSE;
+		id = work->dfw_id - 1;
+		if (index = CMP_get_index_lock(tdbb, relation, id))
+			if (!index->idl_count)
+				LCK_release(tdbb, index->idl_lock);
+		return FALSE;
+
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		/* Look up the relation.  If we can't find the relation,
+		   don't worry about the index. */
+
+		if (!(relation = MET_lookup_relation(tdbb, work->dfw_name)))
+			return FALSE;
+
+		/* Make sure nobody is currently using the index */
+
+		id = work->dfw_id - 1;
+		if (index = CMP_get_index_lock(tdbb, relation, id))
+		{
+			wait = (transaction->tra_flags & TRA_nowait) ? FALSE : TRUE;
+			if (index->idl_count ||
+				!LCK_lock_non_blocking(tdbb, index->idl_lock, LCK_EX, wait))
+			{
+				ERR_post(gds__no_meta_update,
+						  gds_arg_gds, gds__obj_in_use,
+						  gds_arg_string, "INDEX",
+						  0);
+			}
+			index->idl_count++;
+		}
+
+		return TRUE;
+
+	case 4:
+		if (!(relation = MET_lookup_relation(tdbb, work->dfw_name)))
+			return FALSE;
+
+		id = work->dfw_id - 1;
+		index = CMP_get_index_lock(tdbb, relation, id);
+		IDX_delete_index(tdbb, relation, id);
+		if (work->dfw_type == dfw_delete_expression_index)
+			MET_delete_dependencies(tdbb,
+									work->dfw_name,
+									obj_expression_index);
+
+		if (index)
+		{
+			/* in order for us to have gotten the lock in phase 3
+			   * idl_count HAD to be 0, therefore after having incremented
+			   * it for the exclusive lock it would have to be 1.
+			   * IF now it is NOT 1 then someone else got a lock to
+			   * the index and something is seriously wrong */
+			assert(index->idl_count == 1);
+			if (!--index->idl_count)
+			{
+				/* Release index existence lock and memory. */
+
+				for (ptr = &relation->rel_index_locks;
+					*ptr;
+					ptr = &(*ptr)->idl_next)
+				{
+					if (*ptr == index)
+					{
+						*ptr = index->idl_next;
+						break;
+					}
+				}
+				if (index->idl_lock)
+				{
+					LCK_release(tdbb, index->idl_lock);
+					ALL_release((FRB)index->idl_lock);
+				}
+				ALL_release((FRB)index);
+
+				/* Release index refresh lock and memory. */
+
+				for (iptr = &relation->rel_index_blocks;
+					*iptr;
+					 iptr = &(*iptr)->idb_next)
+				{
+					if ((*iptr)->idb_id == id)
+					{
+						index_block = *iptr;
+						*iptr = index_block->idb_next;
+
+						/* Lock was released in IDX_delete_index(). */
+
+						if (index_block->idb_lock)
+							ALL_release((FRB)index_block->idb_lock);
+						ALL_release((FRB)index_block);
+						break;
+					}
+				}
+			}
+		}
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN delete_log(TDBB tdbb, SSHORT phase, DFW work, TRA transaction)
+{
+/**************************************
+ *
+ *	d e l e t e _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do work associated with the deletion of records in RDB$LOG_FILES
+ *
+ **************************************/
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	switch (phase)
+	{
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		if (CCH_exclusive(tdbb, LCK_EX, WAIT_PERIOD))
+			return TRUE;
+		else
+		{
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__lock_timeout,
+					 gds_arg_gds, gds__obj_in_use,
+					 gds_arg_string, ERR_cstring(dbb->dbb_file->fil_string),
+					 0);
+			return FALSE;
+		}
+	case 4:
+		transaction->tra_flags |= TRA_delete_log;
+		PAG_modify_log(transaction->tra_number, TRA_delete_log);
+		return TRUE;
+
+	case 5:
+		CCH_release_exclusive(tdbb);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN delete_parameter(TDBB tdbb,
+								SSHORT phase,
+								DFW work,
+								TRA transaction)
+{
+/**************************************
+ *
+ *	d e l e t e _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description 
+ *	Return an error if someone attempts to
+ *	delete a field from a procedure and it is
+ *	used by a view or procedure.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	switch (phase)
+	{
+	case 1:
+		if (MET_lookup_procedure_id(tdbb, work->dfw_id, FALSE, 0))
+			check_dependencies(tdbb, work->dfw_name, work->dfw_name,
+							   obj_procedure, transaction);
+
+	case 2:
+		return TRUE;
+
+	case 3:
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN delete_procedure(TDBB tdbb,
+								SSHORT phase,
+								DFW work,
+								TRA transaction)
+{
+/**************************************
+ *
+ *	d e l e t e _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check if it is allowable to delete
+ *	a procedure , and if so, clean up after it.
+ *
+ **************************************/
+	PRC procedure;
+	USHORT wait;
+	USHORT old_flags;
+
+	SET_TDBB(tdbb);
+
+	switch (phase)
+	{
+	case 0:
+		if (!(procedure = MET_lookup_procedure_id(tdbb, work->dfw_id, FALSE, 0)))
+			return FALSE;
+
+		wait = (transaction->tra_flags & TRA_nowait) ? FALSE : TRUE;
+		LCK_convert_non_blocking(	tdbb,
+									procedure->prc_existence_lock,
+									LCK_SR,
+									wait);
+		return FALSE;
+
+	case 1:
+		check_dependencies(tdbb, work->dfw_name, NULL_PTR,
+						   obj_procedure, transaction);
+		return TRUE;
+
+	case 2:
+		if (!(procedure = MET_lookup_procedure_id(tdbb, work->dfw_id, FALSE, 0)))
+			return FALSE;
+
+		wait = (transaction->tra_flags & TRA_nowait) ? FALSE : TRUE;
+		if (!LCK_convert_non_blocking(	tdbb,
+										procedure->prc_existence_lock,
+										LCK_EX,
+										wait))
+		{
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__obj_in_use,
+					 gds_arg_string, ERR_cstring(work->dfw_name),
+					 0);
+		}
+
+		/* If we are in a multi-client server, someone else may have marked
+		   procedure obsolete. Unmark and we will remark it later. */
+
+		procedure->prc_flags &= ~PRC_obsolete;
+		return TRUE;
+
+	case 3:
+		return TRUE;
+
+	case 4:
+		if (!(procedure = MET_lookup_procedure_id(tdbb, work->dfw_id, TRUE, 0)))
+			return FALSE;
+
+		if (procedure->prc_use_count)
+		{
+			MET_delete_dependencies(tdbb, work->dfw_name, obj_procedure);
+
+			LCK_release(tdbb, procedure->prc_existence_lock);
+			tdbb->tdbb_database->
+				dbb_procedures->vec_object[procedure->prc_id] = NULL_PTR;
+			return FALSE;
+		}
+
+		old_flags = procedure->prc_flags;
+		procedure->prc_flags |= PRC_obsolete;
+		if (procedure->prc_request)
+		{
+			if (CMP_clone_active(procedure->prc_request))
+			{
+				procedure->prc_flags = old_flags;
+				ERR_post(gds__no_meta_update,
+						 gds_arg_gds, gds__obj_in_use,
+						 gds_arg_string, ERR_cstring(work->dfw_name),
+						 0);
+			}
+
+			CMP_release(tdbb, procedure->prc_request);
+			procedure->prc_request = 0;
+		}
+
+		/* delete dependency lists */
+
+		MET_delete_dependencies(tdbb, work->dfw_name, obj_procedure);
+
+		LCK_release(tdbb, procedure->prc_existence_lock);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN delete_relation(TDBB tdbb,
+							   SSHORT phase,
+							   DFW work,
+							   TRA transaction)
+{
+/**************************************
+ *
+ *	d e l e t e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check if it is allowable to delete
+ *	a relation, and if so, clean up after it.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	REL relation;
+	RSC rsc;
+	USHORT wait, view_count, adjusted;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	switch (phase)
+	{
+	case 0:
+		if (!(relation = MET_lookup_relation_id(tdbb, work->dfw_id, FALSE)))
+			return FALSE;
+
+		if (relation->rel_existence_lock)
+		{
+			wait = (transaction->tra_flags & TRA_nowait) ? FALSE : TRUE;
+			LCK_convert_non_blocking(tdbb,
+									relation->rel_existence_lock,
+									LCK_SR,
+									wait);
+		}
+
+		relation->rel_flags &= ~REL_deleting;
+		return FALSE;
+
+	case 1:
+		/* check if any views use this as a base relation */
+
+		request = NULL;
+		view_count = 0;
+		FOR(REQUEST_HANDLE request)
+			X IN RDB$VIEW_RELATIONS WITH
+			X.RDB$RELATION_NAME EQ work->dfw_name
+				/* If the view is also being deleted, there's no dependency */
+			if (!find_depend_in_dfw(tdbb, X.RDB$VIEW_NAME, obj_view, 0,
+									transaction))
+				view_count++;
+
+		END_FOR;
+		CMP_release(tdbb, (REQ)request);
+
+		if (view_count)
+			ERR_post(gds__no_meta_update,
+					gds_arg_gds, gds__no_delete, /* Msg353: can not delete */
+					gds_arg_gds, gds__table_name,
+					gds_arg_string, ERR_cstring(work->dfw_name),
+					gds_arg_gds, gds__dependency,
+					gds_arg_number, (SLONG) view_count,
+					0);	/* Msg310: there are %ld dependencies */
+		check_dependencies(tdbb, work->dfw_name, NULL_PTR,
+						   obj_relation, transaction);
+		return TRUE;
+
+	case 2:
+		if (!(relation = MET_lookup_relation_id(tdbb, work->dfw_id, FALSE)))
+			return FALSE;
+
+		/* Let relation be deleted if only this transaction is using it */
+
+		adjusted = FALSE;
+		if (relation->rel_use_count == 1)
+			for (rsc = transaction->tra_resources; rsc; rsc = rsc->rsc_next)
+			{
+				if (rsc->rsc_rel == relation)
+				{
+					--relation->rel_use_count;
+					adjusted = TRUE;
+					break;
+				}
+			}
+
+		wait = (transaction->tra_flags & TRA_nowait) ? FALSE : TRUE;
+		if (relation->rel_use_count ||
+			(relation->rel_existence_lock &&
+			 !LCK_convert_non_blocking(	tdbb,
+										relation->rel_existence_lock,
+										LCK_EX,
+										wait)))
+		{
+			if (adjusted)
+				++relation->rel_use_count;
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__obj_in_use,
+					 gds_arg_string, ERR_cstring(work->dfw_name),
+					 0);
+		}
+		return TRUE;
+
+	case 3:
+		return TRUE;
+
+	case 4:
+		if (!(relation = MET_lookup_relation_id(tdbb, work->dfw_id, TRUE)))
+			return FALSE;
+
+		/* Flag relation delete in progress so that active sweep or
+		   garbage collector threads working on relation can skip over it. */
+
+		relation->rel_flags |= REL_deleting;
+
+		/* The sweep and garbage collector threads have no more than
+		   a single record latency in responding to the flagged relation
+		   deletion. Nevertheless, as a defensive programming measure,
+		   don't wait forever if something has gone awry and the sweep
+		   count doesn't run down. */
+
+		for (wait = 0; wait < 60; wait++)
+			if (!relation->rel_sweep_count)
+				break;
+			else
+			{
+				THREAD_EXIT;
+				THREAD_SLEEP(1 * 1000);
+				THREAD_ENTER;
+			}
+
+		if (relation->rel_sweep_count)
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__obj_in_use,
+					 gds_arg_string, ERR_cstring(work->dfw_name),
+					 0);
+
+#ifdef GARBAGE_THREAD
+		/* Free any memory associated with the relation's
+		   garbage collection bitmap. */
+
+		if (relation->rel_gc_bitmap)
+		{
+			SBM_release(relation->rel_gc_bitmap);
+			relation->rel_gc_bitmap = NULL_PTR;
+		}
+#endif
+		if (relation->rel_index_root)
+			IDX_delete_indices(tdbb, relation);
+
+		if (relation->rel_pages)
+			DPM_delete_relation(tdbb, relation);
+
+		/* if this is a view (or even if we don't know),
+		   delete dependency lists */
+
+		if (relation->rel_view_rse || !(relation->rel_flags & REL_scanned))
+			MET_delete_dependencies(tdbb, work->dfw_name, obj_view);
+
+		/* Now that the data, pointer, and index pages are gone,
+		   get rid of formats as well */
+
+		if (relation->rel_existence_lock)
+			LCK_release(tdbb, relation->rel_existence_lock);
+		request = NULL;
+
+		FOR(REQUEST_HANDLE request) X IN RDB$FORMATS WITH
+			X.RDB$RELATION_ID EQ relation->rel_id 
+            ERASE X;
+		END_FOR;
+
+		relation->rel_name = NULL;
+		relation->rel_flags |= REL_deleted;
+		relation->rel_flags &= ~REL_deleting;
+		CMP_release(tdbb, (REQ)request);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN delete_rfr( TDBB tdbb, SSHORT phase, DFW work, TRA transaction)
+{
+/**************************************
+ *
+ *	d e l e t e _ r f r
+ *
+ **************************************
+ *
+ * Functional description 
+ *	This whole routine exists just to
+ *	return an error if someone attempts to
+ *	1. delete a field from a relation if the relation
+ *		is used in a view and the field is referenced in
+ *		the view.  
+ *	2. drop the last column of a table
+ *
+ **************************************/
+	DBB dbb;
+	int rel_exists, field_count, id;
+	BLK handle;
+	TEXT f[32], *p, *q;
+	REL relation;
+	VEC vector;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	switch (phase)
+	{
+	case 1:
+		/* first check if there are any fields used explicitly by the view */
+
+		handle = NULL;
+		field_count = 0;
+		FOR(REQUEST_HANDLE handle)
+			REL IN RDB$RELATIONS CROSS
+				VR IN RDB$VIEW_RELATIONS OVER RDB$RELATION_NAME CROSS
+				VFLD IN RDB$RELATION_FIELDS WITH
+				REL.RDB$RELATION_ID EQ work->dfw_id AND
+				VFLD.RDB$VIEW_CONTEXT EQ VR.RDB$VIEW_CONTEXT AND
+				VFLD.RDB$RELATION_NAME EQ VR.RDB$VIEW_NAME AND
+				VFLD.RDB$BASE_FIELD EQ work->dfw_name
+				/* If the view is also being deleted, there's no dependency */
+			if (!find_depend_in_dfw(tdbb, VR.RDB$VIEW_NAME, obj_view,
+									0, transaction))
+			{
+				for (p = f, q = VFLD.RDB$BASE_FIELD;
+					*q && *q != ' ';
+					*p++ = *q++)
+				{
+					;	/* empty body */
+				}
+				*p = 0;
+				field_count++;
+		}
+		END_FOR;
+		CMP_release(tdbb, (REQ)handle);
+
+		if (field_count)
+			ERR_post(gds__no_meta_update,
+					gds_arg_gds, gds__no_delete,	/* Msg353: can not delete */
+					 gds_arg_gds, gds__field_name,
+					 gds_arg_string, ERR_cstring(f),
+					 gds_arg_gds, gds__dependency,
+					 gds_arg_number, (SLONG) field_count,
+					 0);	/* Msg310: there are %ld dependencies */
+
+		/* now check if there are any dependencies generated through the blr
+		   that defines the relation */
+
+		if (relation = MET_lookup_relation_id(tdbb, work->dfw_id, FALSE))
+			check_dependencies(tdbb, relation->rel_name, work->dfw_name,
+							   obj_relation, transaction);
+
+		/* see if the relation itself is being dropped */
+
+		handle = NULL;
+		rel_exists = 0;
+		FOR(REQUEST_HANDLE handle)
+			REL IN RDB$RELATIONS WITH REL.RDB$RELATION_ID EQ work->dfw_id
+            rel_exists++;
+		END_FOR;
+		if (handle)
+			CMP_release(tdbb, (REQ)handle);
+
+		/* if table exists, check if this is the last column in the table */
+
+		if (rel_exists)
+		{
+			field_count = 0;
+			handle = NULL;
+
+			FOR(REQUEST_HANDLE handle)
+				REL IN RDB$RELATIONS CROSS
+					RFLD IN RDB$RELATION_FIELDS OVER RDB$RELATION_NAME WITH
+					REL.RDB$RELATION_ID EQ work->dfw_id 
+                field_count++;
+			END_FOR;
+			if (handle)
+			{
+				CMP_release(tdbb, (REQ)handle);
+			}
+
+			if (!field_count)
+			{
+				ERR_post(gds__no_meta_update,
+						 gds_arg_gds, gds__del_last_field,
+						 0);
+				/* Msg354: last column in a relation cannot be deleted */
+			}
+		}
+
+	case 2:
+		return TRUE;
+
+	case 3:
+		/* Unlink field from data structures.  Don't try to actually release field and
+		   friends -- somebody may be pointing to them */
+
+		relation = MET_lookup_relation_id(tdbb, work->dfw_id, FALSE);
+		if (relation)
+		{
+			id = MET_lookup_field(tdbb, relation, work->dfw_name);
+			if (id >= 0)
+			{
+				vector = relation->rel_fields;
+				if (vector &&
+					(ULONG)id < vector->vec_count &&
+					vector->vec_object[id])
+				{
+					vector->vec_object[id] = NULL;
+				}
+			}
+		}
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN delete_shadow(TDBB	tdbb,
+							 SSHORT	phase,
+							 DFW	work,
+							 TRA	transaction)
+{
+/**************************************
+ *
+ *	d e l e t e _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description 
+ *	Provide deferred work interface to 
+ *	MET_delete_shadow.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	switch (phase)
+	{
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		MET_delete_shadow(tdbb, work->dfw_id);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN delete_trigger(TDBB tdbb,
+							  SSHORT phase,
+							  DFW work,
+							  TRA transaction)
+{
+/**************************************
+ *
+ *	d e l e t e _ t r i g g e r 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cleanup after a deleted trigger.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	switch (phase)
+	{
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		/* get rid of dependencies */
+
+		MET_delete_dependencies(tdbb, work->dfw_name, obj_trigger);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN find_depend_in_dfw(TDBB tdbb,
+								  TEXT * object_name,
+								  USHORT dep_type,
+								  USHORT rel_id,
+								  TRA transaction)
+{
+/**************************************
+ *
+ *	f i n d _ d e p e n d _ i n _ d f w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check the object to see if it is being
+ *	deleted as part of the deferred work.
+ *	Return FALSE if it is, TRUE otherwise.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	TEXT *p;
+	ENUM dfw_t dfw_type;
+	DFW work;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	for (p = object_name; *p && *p != ' '; p++)
+		;
+	*p = 0;
+
+	switch (dep_type)
+	{
+	case obj_view:
+		dfw_type = dfw_delete_relation;
+		break;
+	case obj_trigger:
+		dfw_type = dfw_delete_trigger;
+		break;
+	case obj_computed:
+		dfw_type = (rel_id) ? dfw_delete_rfr : dfw_delete_global;
+		break;
+	case obj_procedure:
+		dfw_type = dfw_delete_procedure;
+		break;
+	case obj_expression_index:
+		dfw_type = dfw_delete_index;
+		break;
+	default:
+		assert(FALSE);
+		break;
+	}
+
+/* Look to see if an object of the desired type is being deleted. */
+
+	for (work = transaction->tra_deferred_work; work; work = work->dfw_next)
+	{
+		if (work->dfw_type == dfw_type &&
+			!strcmp(object_name, work->dfw_name) &&
+			(!rel_id || rel_id == work->dfw_id))
+		{
+			return TRUE;
+		}
+	}
+
+	if (dfw_type == dfw_delete_global)
+	{
+		/* Computed fields are more complicated.  If the global field isn't being
+		   deleted, see if all of the fields it is the source for, are. */
+
+		request = (BLK) CMP_find_request(tdbb, irq_ch_cmp_dpd, IRQ_REQUESTS);
+
+		FOR(REQUEST_HANDLE request)
+			FLD IN RDB$FIELDS CROSS
+				RFR IN RDB$RELATION_FIELDS CROSS
+				REL IN RDB$RELATIONS
+				WITH FLD.RDB$FIELD_NAME EQ RFR.RDB$FIELD_SOURCE
+				AND FLD.RDB$FIELD_NAME EQ object_name
+				AND REL.RDB$RELATION_NAME EQ RFR.RDB$RELATION_NAME
+            if (!REQUEST(irq_ch_cmp_dpd))
+                REQUEST(irq_ch_cmp_dpd) = request;
+            if (!find_depend_in_dfw(tdbb, RFR.RDB$FIELD_NAME, obj_computed,
+                                    REL.RDB$RELATION_ID, transaction))
+			{
+				EXE_unwind(tdbb, (REQ)request);
+				return FALSE;
+			}
+		END_FOR;
+
+		if (!REQUEST(irq_ch_cmp_dpd))
+			REQUEST(irq_ch_cmp_dpd) = request;
+
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+static void get_array_desc( TDBB tdbb, TEXT * field_name, ADS desc)
+{
+/**************************************
+ *
+ *	g e t _ a r r a y _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get array descriptor for an array.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	struct ads_repeat *ranges;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, irq_r_fld_dim, IRQ_REQUESTS);
+
+	FOR (REQUEST_HANDLE request)
+		D IN RDB$FIELD_DIMENSIONS WITH D.RDB$FIELD_NAME EQ field_name
+        if (!REQUEST(irq_r_fld_dim))
+		{
+            REQUEST(irq_r_fld_dim) = request;
+		}
+		if (D.RDB$DIMENSION >= 0 && D.RDB$DIMENSION < desc->ads_dimensions)
+		{
+			ranges = desc->ads_rpt + D.RDB$DIMENSION;
+			ranges->ads_lower = D.RDB$LOWER_BOUND;
+			ranges->ads_upper = D.RDB$UPPER_BOUND;
+		}
+	END_FOR;
+
+	if (!REQUEST(irq_r_fld_dim))
+	{
+		REQUEST(irq_r_fld_dim) = (BLK)request;
+	}
+
+	desc->ads_count = 1;
+
+	for (ranges = desc->ads_rpt + desc->ads_dimensions;
+		 --ranges >= desc->ads_rpt;)
+	{
+		ranges->ads_length = desc->ads_count;
+		desc->ads_count *= ranges->ads_upper - ranges->ads_lower + 1;
+	}
+
+	desc->ads_version = ADS_VERSION_1;
+	desc->ads_length =
+		ADS_LEN(MAX(desc->ads_struct_count, desc->ads_dimensions));
+	desc->ads_element_length = desc->ads_rpt[0].ads_desc.dsc_length;
+	desc->ads_total_length = desc->ads_element_length * desc->ads_count;
+}
+
+
+static void get_procedure_dependencies(DFW work)
+{
+/**************************************
+ *
+ *	g e t _ p r o c e d u r e _ d e p e n d e n c i e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get relations and fields on which this
+ *	procedure depends, either when it's being
+ *	created or when it's modified.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	PRC procedure;
+	GDS__QUAD blob_id;
+	REQ request;
+	BLK handle;
+	PLB old_pool;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	procedure = NULL;
+
+	handle = (BLK) CMP_find_request(tdbb, irq_c_prc_dpd, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE handle)
+		X IN RDB$PROCEDURES WITH
+			X.RDB$PROCEDURE_NAME EQ work->dfw_name
+        if (!REQUEST(irq_c_prc_dpd)) 
+            REQUEST(irq_c_prc_dpd) = handle;
+        blob_id = X.RDB$PROCEDURE_BLR;
+		procedure = MET_lookup_procedure(tdbb, work->dfw_name);
+
+	END_FOR;
+
+	if (!REQUEST(irq_c_prc_dpd))
+		REQUEST(irq_c_prc_dpd) = handle;
+
+/* get any dependencies now by parsing the blr */
+
+	if (procedure && !NULL_BLOB(blob_id))
+	{
+		old_pool = tdbb->tdbb_default;
+		tdbb->tdbb_default = ALL_pool();
+		MET_get_dependencies(tdbb,
+							NULL_PTR,
+							NULL_PTR,
+							NULL_PTR,
+							(SLONG*)&blob_id,
+							&request,
+							NULL_PTR,
+							work->dfw_name,
+							obj_procedure);
+		if (request)
+			CMP_release(tdbb, request);
+		else
+			ALL_rlpool(tdbb->tdbb_default);
+
+		tdbb->tdbb_default = old_pool;
+	}
+}
+
+
+static void get_trigger_dependencies( DFW work)
+{
+/**************************************
+ *
+ *	g e t _ t r i g g e r _ d e p e n d e n c i e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get relations and fields on which this
+ *	trigger depends, either when it's being
+ *	created or when it's modified.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	REL relation;
+	GDS__QUAD blob_id;
+	REQ request;
+	BLK handle;
+	PLB old_pool;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	relation = NULL;
+
+	handle = (BLK) CMP_find_request(tdbb, irq_c_trigger, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE handle)
+		X IN RDB$TRIGGERS WITH
+			X.RDB$TRIGGER_NAME EQ work->dfw_name 
+        if (!REQUEST(irq_c_trigger))
+            REQUEST(irq_c_trigger) = handle;
+		blob_id = X.RDB$TRIGGER_BLR;
+		relation = MET_lookup_relation(tdbb, X.RDB$RELATION_NAME);
+
+	END_FOR;
+
+	if (!REQUEST(irq_c_trigger))
+		REQUEST(irq_c_trigger) = handle;
+
+/* get any dependencies now by parsing the blr */
+
+	if (relation && !NULL_BLOB(blob_id))
+	{
+		old_pool = tdbb->tdbb_default;
+		tdbb->tdbb_default = ALL_pool();
+		MET_get_dependencies(tdbb, relation,
+							 NULL_PTR,
+							 NULL_PTR,
+							 (SLONG*)&blob_id,
+							 &request,
+							 NULL_PTR,
+							 work->dfw_name,
+							 obj_trigger);
+		ALL_rlpool(tdbb->tdbb_default);
+		tdbb->tdbb_default = old_pool;
+	}
+}
+
+
+static FMT make_format( TDBB tdbb, REL relation, USHORT version, TFB stack)
+{
+/**************************************
+ *
+ *	m a k e _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a format block for a relation.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	FMT format;
+	VEC vector;
+	TFB tfb;
+	BLB blob;
+	USHORT count;
+	ULONG offset, old_offset;
+	DSC *desc;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* Figure out the highest field id and allocate a format block */
+
+	count = 0;
+	for (tfb = stack; tfb; tfb = tfb->tfb_next)
+		count = MAX(count, tfb->tfb_id);
+
+	format = (FMT) ALLOCPV(type_fmt, count + 1);
+	format->fmt_count = count + 1;
+	format->fmt_version = version;
+
+/* Fill in the format block from the temporary field blocks */
+
+	for (tfb = stack; tfb; tfb = tfb->tfb_next)
+	{
+		desc = format->fmt_desc + tfb->tfb_id;
+		if (tfb->tfb_flags & TFB_array)
+		{
+			desc->dsc_dtype = dtype_array;
+			desc->dsc_length = sizeof(GDS__QUAD);
+		}
+		else
+			*desc = tfb->tfb_desc;
+		if (tfb->tfb_flags & TFB_computed)
+			desc->dsc_dtype |= COMPUTED_FLAG;
+	}
+
+/* Compute the offsets of the various fields */
+
+	offset = FLAG_BYTES(count);
+
+	for (count = 0, desc = format->fmt_desc;
+		 count < format->fmt_count;
+		 count++, desc++)
+	{
+		if (desc->dsc_dtype & COMPUTED_FLAG)
+		{
+			desc->dsc_dtype &= ~COMPUTED_FLAG;
+			continue;
+		}
+		if (desc->dsc_dtype)
+		{
+			old_offset = offset;
+			offset = MET_align(desc, (USHORT) offset);
+
+			/* see of record too big */
+
+			if (offset < old_offset)
+			{
+				offset += 65536L;
+				break;
+			}
+			desc->dsc_address = (UCHAR *) (SLONG) offset;
+			offset += desc->dsc_length;
+		}
+	}
+
+	assert(offset <= MAX_USHORT);
+
+	format->fmt_length = (USHORT)offset;
+
+/* Release the temporary field blocks */
+
+	while (tfb = stack)
+	{
+		stack = tfb->tfb_next;
+		ALL_release((FRB)tfb);
+	}
+
+	if (offset > MAX_FORMAT_SIZE)
+	{
+		ALL_release((FRB)format);
+		ERR_post(gds__no_meta_update,
+				 gds_arg_gds, gds__rec_size_err,
+				 gds_arg_number, (SLONG) offset,
+				 gds_arg_gds, gds__table_name,
+				 gds_arg_string, ERR_cstring(relation->rel_name),
+				 0);
+		/* Msg361: new record size of %ld bytes is too big */
+	}
+
+/* Link the format block into the world */
+
+	vector = ALL_vector(dbb->dbb_permanent, &relation->rel_formats, version);
+	vector->vec_object[version] = (BLK) format;
+
+/* Store format in system relation */
+
+	request = (BLK) CMP_find_request(tdbb, irq_format3, IRQ_REQUESTS);
+
+	STORE(REQUEST_HANDLE request)
+		FMT IN RDB$FORMATS 
+        if (!REQUEST(irq_format3))
+            REQUEST(irq_format3) = request;
+		FMT.RDB$FORMAT = version;
+		FMT.RDB$RELATION_ID = relation->rel_id;
+		blob = BLB_create(tdbb, dbb->dbb_sys_trans, (BID)&FMT.RDB$DESCRIPTOR);
+		BLB_put_segment(tdbb,
+						blob,
+						(UCHAR*)format->fmt_desc,
+						(USHORT)(format->fmt_count * sizeof(struct dsc)));
+		BLB_close(tdbb, blob);
+    END_STORE;
+
+	if (!REQUEST(irq_format3))
+		REQUEST(irq_format3) = request;
+
+	return format;
+}
+
+
+static BOOLEAN make_version(TDBB	tdbb,
+							SSHORT	phase,
+							DFW		work,
+							TRA		transaction)
+{
+/**************************************
+ *
+ *	m a k e _ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a new format version for a relation.  While we're at it, make
+ *	sure all fields have id's.  If the relation is a view, make a
+ *	a format anyway -- used for view updates.
+ *
+ *	While we're in the vicinity, also check the updatability of fields.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request_fmt1, request_fmtx;
+	TFB stack, external, tfb;
+	REL relation;
+	BLB blob;
+	GDS__QUAD blob_id;
+	BLK temp;
+	USHORT version, n, external_flag;
+	BOOLEAN null_view, computed_field;
+	SLONG stuff[64];
+	ADS array;
+	STATUS status[20];
+	SSHORT collation;
+	VEC triggers[TRIGGER_MAX], tmp_vector;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	switch (phase)
+	{
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		relation = NULL;
+		stack = external = NULL;
+		computed_field = FALSE;
+
+		for (n = 0; n < TRIGGER_MAX; n++)
+			triggers[n] = NULL_PTR;
+
+		request_fmt1 =
+			(BLK) CMP_find_request(tdbb, irq_format1, IRQ_REQUESTS);
+
+		FOR(REQUEST_HANDLE request_fmt1)
+			REL IN RDB$RELATIONS WITH REL.RDB$RELATION_NAME EQ work->dfw_name
+            if (!REQUEST(irq_format1))
+                REQUEST(irq_format1) = request_fmt1;
+			if (!(relation =
+				 MET_lookup_relation_id(tdbb, REL.RDB$RELATION_ID, FALSE)))
+			{
+				EXE_unwind(tdbb, (REQ)request_fmt1);
+				return FALSE;
+			}
+			blob_id = REL.RDB$VIEW_BLR;
+			null_view = NULL_BLOB(blob_id);
+			external_flag = REL.RDB$EXTERNAL_FILE[0];
+			if (REL.RDB$FORMAT == 255)
+			{
+				EXE_unwind(tdbb, (REQ)request_fmt1);
+				ERR_post(gds__no_meta_update,
+						 gds_arg_gds, gds__table_name,
+						 gds_arg_string, ERR_cstring(work->dfw_name),
+						 gds_arg_gds, gds__version_err,
+						 0);
+				/* Msg357: too many versions */
+			}
+			MODIFY REL USING
+				version = ++REL.RDB$FORMAT;
+				blob = BLB_create(tdbb,
+								dbb->dbb_sys_trans,
+								(BID)&REL.RDB$RUNTIME);
+				request_fmtx =
+					(BLK) CMP_find_request(tdbb, irq_format2, IRQ_REQUESTS);
+				FOR(REQUEST_HANDLE request_fmtx)
+					RFR IN RDB$RELATION_FIELDS CROSS
+						FLD IN RDB$FIELDS WITH
+						RFR.RDB$RELATION_NAME EQ work->dfw_name AND
+						RFR.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME
+                    if (!REQUEST(irq_format2))
+                        REQUEST(irq_format2) = request_fmtx;
+
+					/* Update RFR to reflect new fields id */
+
+					if (!RFR.RDB$FIELD_ID.NULL &&
+						RFR.RDB$FIELD_ID >= REL.RDB$FIELD_ID)
+							REL.RDB$FIELD_ID = RFR.RDB$FIELD_ID + 1;
+
+					if (RFR.RDB$FIELD_ID.NULL || RFR.RDB$UPDATE_FLAG.NULL)
+					MODIFY RFR USING
+						if (RFR.RDB$FIELD_ID.NULL)
+						{
+							if (external_flag)
+							{
+								RFR.RDB$FIELD_ID = RFR.RDB$FIELD_POSITION;
+								/* RFR.RDB$FIELD_POSITION.NULL is
+								   needed to be referenced in the
+								   code somewhere for GPRE to include
+								   this field in the structures that
+								   it generates at the top of this func. */
+								RFR.RDB$FIELD_ID.NULL =
+									RFR.RDB$FIELD_POSITION.NULL;
+							}
+							else
+							{
+								RFR.RDB$FIELD_ID = REL.RDB$FIELD_ID;
+								RFR.RDB$FIELD_ID.NULL = FALSE;
+							}
+							REL.RDB$FIELD_ID++;
+						}
+						if (RFR.RDB$UPDATE_FLAG.NULL)
+						{
+							RFR.RDB$UPDATE_FLAG.NULL = FALSE;
+							RFR.RDB$UPDATE_FLAG = 1;
+							if (!NULL_BLOB(FLD.RDB$COMPUTED_BLR))
+							{
+								RFR.RDB$UPDATE_FLAG = 0;
+								computed_field = TRUE;
+							}
+							if (!null_view && REL.RDB$DBKEY_LENGTH > 8)
+							{
+								temp = NULL;
+								RFR.RDB$UPDATE_FLAG = 0;
+								FOR(REQUEST_HANDLE temp) X IN RDB$TRIGGERS WITH
+									X.RDB$RELATION_NAME EQ work->dfw_name AND
+										X.RDB$TRIGGER_TYPE EQ 1
+                                    RFR.RDB$UPDATE_FLAG = 1;
+								END_FOR;
+								CMP_release(tdbb, (REQ)temp);
+							}
+						}
+					END_MODIFY;
+
+					/* Store stuff in field summary */
+
+					n = RFR.RDB$FIELD_ID;
+					put_summary_record(blob, RSR_field_id, (UCHAR*)&n, sizeof(n));
+					put_summary_record(blob, RSR_field_name,
+									   RFR.RDB$FIELD_NAME,
+									   name_length(RFR.RDB$FIELD_NAME));
+					if (!NULL_BLOB(FLD.RDB$COMPUTED_BLR)
+						&& !RFR.RDB$VIEW_CONTEXT)
+					{
+						put_summary_blob(blob,
+										RSR_computed_blr,
+										(SLONG*)&FLD.RDB$COMPUTED_BLR);
+					}
+					else if (!null_view)
+					{
+						n = RFR.RDB$VIEW_CONTEXT;
+						put_summary_record(blob,
+											RSR_view_context,
+											(UCHAR*)&n,
+											sizeof(n));
+						put_summary_record(blob, RSR_base_field,
+										   RFR.RDB$BASE_FIELD,
+										   name_length(RFR.RDB$BASE_FIELD));
+					}
+					put_summary_blob(blob, RSR_missing_value,
+									 (SLONG*)&FLD.RDB$MISSING_VALUE);
+					put_summary_blob(blob, RSR_default_value,
+								(SLONG*)((NULL_BLOB(RFR.RDB$DEFAULT_VALUE)) ?
+									&FLD.RDB$DEFAULT_VALUE :
+									&RFR.RDB$DEFAULT_VALUE));
+					put_summary_blob(blob, RSR_validation_blr,
+									 (SLONG*)&FLD.RDB$VALIDATION_BLR);
+					if (FLD.RDB$NULL_FLAG || RFR.RDB$NULL_FLAG)
+					{
+						put_summary_record(blob,
+											RSR_field_not_null,
+											(UCHAR*)nonnull_validation_blr,
+											sizeof(nonnull_validation_blr));
+					}
+
+					n = name_length(RFR.RDB$SECURITY_CLASS);
+					if (!RFR.RDB$SECURITY_CLASS.NULL && n)
+						put_summary_record(blob, RSR_security_class,
+										   RFR.RDB$SECURITY_CLASS, n);
+
+					/* Make a temporary field block */
+
+					tfb = (TFB) ALLOCD(type_tfb);
+					tfb->tfb_next = stack;
+					stack = tfb;
+
+					/* for text data types, grab the CHARACTER_SET and
+					   COLLATION to give the type of international text */
+
+					if (FLD.RDB$CHARACTER_SET_ID.NULL)
+						FLD.RDB$CHARACTER_SET_ID = CS_NONE;
+
+					collation = COLLATE_NONE;	/* codepoint collation */
+					if (!FLD.RDB$COLLATION_ID.NULL)
+						collation = FLD.RDB$COLLATION_ID;
+					if (!RFR.RDB$COLLATION_ID.NULL)
+						collation = RFR.RDB$COLLATION_ID;
+
+					DSC_make_descriptor(&tfb->tfb_desc, FLD.RDB$FIELD_TYPE,
+										FLD.RDB$FIELD_SCALE,
+										FLD.RDB$FIELD_LENGTH,
+										FLD.RDB$FIELD_SUB_TYPE,
+										FLD.RDB$CHARACTER_SET_ID, collation);
+
+					/* Make sure the text type specified is implemented */
+					if ((IS_DTYPE_ANY_TEXT(tfb->tfb_desc.dsc_dtype) &&
+						 !INTL_defined_type(tdbb, status,
+											tfb->tfb_desc.dsc_ttype)) ||
+						(tfb->tfb_desc.dsc_dtype == dtype_blob &&
+						 tfb->tfb_desc.dsc_sub_type == BLOB_text &&
+						 !INTL_defined_type(tdbb,
+											status,
+											tfb->tfb_desc.dsc_scale)))
+					{
+						EXE_unwind(tdbb, (REQ)request_fmt1);
+						EXE_unwind(tdbb, (REQ)request_fmtx);
+						ERR_post(gds__no_meta_update,
+								 gds_arg_gds, gds__random,
+								 gds_arg_string, ERR_cstring(work->dfw_name),
+								 status[0], status[1], status[2], status[3],
+								 0);
+					}
+
+					if (!NULL_BLOB(FLD.RDB$COMPUTED_BLR))
+						tfb->tfb_flags |= TFB_computed;
+					tfb->tfb_id = RFR.RDB$FIELD_ID;
+
+					if (n = FLD.RDB$DIMENSIONS)
+					{
+						put_summary_record(	blob,
+											RSR_dimensions,
+											(UCHAR*)&n,
+											sizeof(n));
+						tfb->tfb_flags |= TFB_array;
+						array = (ADS) stuff;
+						MOVE_CLEAR(array, (SLONG) sizeof(struct ads));
+						assert(n <= MAX_UCHAR);
+						array->ads_dimensions = (UCHAR)n;
+						array->ads_struct_count = 1;
+						array->ads_rpt[0].ads_desc = tfb->tfb_desc;
+						get_array_desc(tdbb, FLD.RDB$FIELD_NAME, array);
+						put_summary_record(blob,
+											RSR_array_desc,
+											(UCHAR*)array,
+											array->ads_length);
+					}
+
+					if (external_flag)
+					{
+						tfb = (TFB) ALLOCD(type_tfb);
+						tfb->tfb_next = external;
+						external = tfb;
+						assert(FLD.RDB$EXTERNAL_TYPE <= MAX_UCHAR);
+						tfb->tfb_desc.dsc_dtype = (UCHAR)FLD.RDB$EXTERNAL_TYPE;
+						assert(FLD.RDB$EXTERNAL_SCALE >= MIN_SCHAR &&
+								FLD.RDB$EXTERNAL_SCALE <= MAX_SCHAR);
+						tfb->tfb_desc.dsc_scale = (SCHAR)FLD.RDB$EXTERNAL_SCALE;
+						tfb->tfb_desc.dsc_length = FLD.RDB$EXTERNAL_LENGTH;
+						tfb->tfb_id = RFR.RDB$FIELD_ID;
+					}
+				END_FOR;
+
+				if (!REQUEST(irq_format2))
+					REQUEST(irq_format2) = request_fmtx;
+
+				request_fmtx =
+					(BLK) CMP_find_request(tdbb, irq_format4, IRQ_REQUESTS);
+				FOR(REQUEST_HANDLE request_fmtx)
+					TRG IN RDB$TRIGGERS
+						WITH TRG.RDB$RELATION_NAME = work->dfw_name AND
+						TRG.RDB$SYSTEM_FLAG != 0 AND 
+                        TRG.RDB$SYSTEM_FLAG NOT MISSING 
+                        SORTED BY TRG.RDB$TRIGGER_SEQUENCE 
+                    if (!REQUEST(irq_format4))
+						REQUEST(irq_format4) = request_fmtx;
+
+					if (!TRG.RDB$TRIGGER_INACTIVE)
+					{
+						put_summary_record(blob, RSR_trigger_name,
+										   TRG.RDB$TRIGGER_NAME,
+										   name_length(TRG.RDB$TRIGGER_NAME));
+
+						/* for a view, load the trigger temporarily -- 
+						   this is inefficient since it will just be reloaded
+						   in MET_scan_relation () but it needs to be done
+						   in case the view would otherwise be non-updatable */
+
+						if (!null_view)
+						{
+							if (!relation->rel_name)
+								relation->rel_name =
+									MET_save_name(tdbb,
+												  TRG.RDB$RELATION_NAME);
+							MET_load_trigger(tdbb, relation,
+											 TRG.RDB$TRIGGER_NAME, triggers);
+						}
+					}
+				END_FOR;
+
+				if (!REQUEST(irq_format4))
+					REQUEST(irq_format4) = request_fmtx;
+
+				request_fmtx =
+					(BLK) CMP_find_request(tdbb, irq_format5, IRQ_REQUESTS);
+				/* BUG #8458: Check constraint triggers have to be loaded
+				   (and hence executed) after the user-defined 
+				   triggers because user-defined triggers can modify
+				   the values being inserted or updated so that
+				   the end values stored in the database don't
+				   fulfill the check constraint */
+
+				FOR(REQUEST_HANDLE request_fmtx)
+					TRG IN RDB$TRIGGERS
+						WITH TRG.RDB$RELATION_NAME = work->dfw_name AND
+						(TRG.RDB$SYSTEM_FLAG = 0 OR
+						 TRG.RDB$SYSTEM_FLAG MISSING)
+						 AND NOT(TRG.RDB$TRIGGER_NAME STARTING WITH 'CHECK_'
+							AND TRG.RDB$TRIGGER_SOURCE MISSING)
+                         SORTED BY TRG.RDB$TRIGGER_SEQUENCE 
+                    if (!REQUEST(irq_format5))
+						REQUEST(irq_format5) = request_fmtx;
+
+					if (!TRG.RDB$TRIGGER_INACTIVE)
+					{
+						put_summary_record(blob, RSR_trigger_name,
+										   TRG.RDB$TRIGGER_NAME,
+										   name_length(TRG.RDB$TRIGGER_NAME));
+
+						/* for a view, load the trigger temporarily -- 
+						   this is inefficient since it will just be reloaded
+						   in MET_scan_relation () but it needs to be done
+						   in case the view would otherwise be non-updatable */
+
+						if (!null_view)
+						{
+							if (!relation->rel_name)
+								relation->rel_name =
+									MET_save_name(tdbb,
+												  TRG.RDB$RELATION_NAME);
+							MET_load_trigger(tdbb, relation,
+											 TRG.RDB$TRIGGER_NAME, triggers);
+						}
+					}
+				END_FOR;
+
+				if (!REQUEST(irq_format5))
+					REQUEST(irq_format5) = request_fmtx;
+
+				request_fmtx =
+					(BLK) CMP_find_request(tdbb, irq_format6, IRQ_REQUESTS);
+				FOR(REQUEST_HANDLE request_fmtx)
+					TRG IN RDB$TRIGGERS
+						WITH TRG.RDB$RELATION_NAME = work->dfw_name AND
+						(TRG.RDB$SYSTEM_FLAG = 0 OR 
+                         TRG.RDB$SYSTEM_FLAG MISSING)
+						AND (TRG.RDB$TRIGGER_NAME STARTING WITH 'CHECK_' AND
+						 TRG.RDB$TRIGGER_SOURCE MISSING) 
+                        SORTED BY TRG.RDB$TRIGGER_SEQUENCE 
+
+                    if (!REQUEST(irq_format6))
+						REQUEST(irq_format6) = request_fmtx;
+
+					if (!TRG.RDB$TRIGGER_INACTIVE)
+					{
+						put_summary_record(blob, RSR_trigger_name,
+										   TRG.RDB$TRIGGER_NAME,
+										   name_length(TRG.RDB$TRIGGER_NAME));
+
+						/* for a view, load the trigger temporarily --
+						   this is inefficient since it will just be reloaded
+						   in MET_scan_relation () but it needs to be done
+						   in case the view would otherwise be non-updatable */
+
+						if (!null_view)
+						{
+							if (!relation->rel_name)
+								relation->rel_name =
+									MET_save_name(tdbb,
+												  TRG.RDB$RELATION_NAME);
+							MET_load_trigger(tdbb, relation,
+											 TRG.RDB$TRIGGER_NAME, triggers);
+						}
+					}
+				END_FOR;
+
+				if (!REQUEST(irq_format6))
+					REQUEST(irq_format6) = request_fmtx;
+
+				BLB_close(tdbb, blob);
+			END_MODIFY;
+		END_FOR;
+
+		if (!REQUEST(irq_format1))
+			REQUEST(irq_format1) = request_fmt1;
+
+		/* If we didn't find the relation, it is probably being dropped */
+
+		if (!relation)
+			return FALSE;
+
+		if (!(relation->rel_flags & REL_sys_trigs_being_loaded))
+		{
+			/* We have just loaded the triggers onto the local vector triggers.
+			   Its now time to place them at their rightful place ie the relation
+			   block. 
+			 */
+			tmp_vector = relation->rel_pre_store;
+			relation->rel_pre_store = triggers[TRIGGER_PRE_STORE];
+			MET_release_triggers(tdbb, &tmp_vector);
+
+			tmp_vector = relation->rel_post_store;
+			relation->rel_post_store = triggers[TRIGGER_POST_STORE];
+			MET_release_triggers(tdbb, &tmp_vector);
+
+			tmp_vector = relation->rel_pre_erase;
+			relation->rel_pre_erase = triggers[TRIGGER_PRE_ERASE];
+			MET_release_triggers(tdbb, &tmp_vector);
+
+			tmp_vector = relation->rel_post_erase;
+			relation->rel_post_erase = triggers[TRIGGER_POST_ERASE];
+			MET_release_triggers(tdbb, &tmp_vector);
+
+			tmp_vector = relation->rel_pre_modify;
+			relation->rel_pre_modify = triggers[TRIGGER_PRE_MODIFY];
+			MET_release_triggers(tdbb, &tmp_vector);
+
+			tmp_vector = relation->rel_post_modify;
+			relation->rel_post_modify = triggers[TRIGGER_POST_MODIFY];
+			MET_release_triggers(tdbb, &tmp_vector);
+		}
+		relation->rel_current_format = make_format(tdbb, relation,
+												   version, stack);
+
+		/* in case somebody changed the view definition or a computed
+		   field, reset the dependencies by deleting the current ones
+		   and setting a flag for MET_scan_relation to find the new ones */
+
+		if (!null_view)
+			MET_delete_dependencies(tdbb, work->dfw_name, obj_view);
+
+		if (!null_view || computed_field)
+			relation->rel_flags |= REL_get_dependencies;
+
+		if (external_flag)
+		{
+			temp = NULL;
+			FOR(REQUEST_HANDLE temp) FMT IN RDB$FORMATS WITH
+				FMT.RDB$RELATION_ID EQ relation->rel_id AND
+                FMT.RDB$FORMAT EQ 0 
+                ERASE FMT;
+			END_FOR;
+			CMP_release(tdbb, (REQ)temp);
+			make_format(tdbb, relation, 0, external);
+		}
+
+		relation->rel_flags &= ~REL_scanned;
+		DFW_post_work(transaction, dfw_scan_relation, NULL_PTR,
+					  relation->rel_id);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN modify_procedure(TDBB	tdbb,
+								SSHORT	phase,
+								DFW		work,
+								TRA		transaction)
+{
+/**************************************
+ *
+ *	m o d i f y _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform required actions when modifying procedure.
+ *
+ **************************************/
+	PRC procedure;
+	USHORT wait;
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+
+	switch (phase)
+	{
+	case 0:
+	{
+		procedure = MET_lookup_procedure_id(tdbb,
+											work->dfw_id,
+											FALSE,
+											0);
+		if (!procedure)
+			return FALSE;
+
+		wait = (transaction->tra_flags & TRA_nowait) ? FALSE : TRUE;
+		LCK_convert_non_blocking(tdbb, procedure->prc_existence_lock, LCK_SR,
+								 wait);
+		return FALSE;
+	}
+	case 1:
+		return TRUE;
+
+	case 2:
+		return TRUE;
+
+	case 3:
+		if (!(procedure =
+			 MET_lookup_procedure_id(tdbb, work->dfw_id, FALSE,
+									 0))) return FALSE;
+		wait = (transaction->tra_flags & TRA_nowait) ? FALSE : TRUE;
+
+		/* Let relation be deleted if only this transaction is using it */
+
+		if (!LCK_convert_non_blocking(tdbb, procedure->prc_existence_lock,
+									  LCK_EX, wait))
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__obj_in_use,
+					 gds_arg_string, ERR_cstring(work->dfw_name),
+					 0);
+
+		/* If we are in a multi-client server, someone else may have marked
+		   procedure obsolete. Unmark and we will remark it later. */
+
+		procedure->prc_flags &= ~PRC_obsolete;
+		return TRUE;
+
+	case 4:
+		if (!(procedure =
+			 MET_lookup_procedure_id(tdbb, work->dfw_id, FALSE,
+									 0))) return FALSE;
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env))
+		{
+#ifdef SUPERSERVER
+			THD_rec_mutex_unlock(&tdbb->tdbb_database->dbb_sp_rec_mutex);
+#endif
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			ERR_punt();
+		}
+
+#ifdef SUPERSERVER
+		if (!(tdbb->tdbb_database->dbb_flags & DBB_sp_rec_mutex_init))
+		{
+			THD_rec_mutex_init(&tdbb->tdbb_database->dbb_sp_rec_mutex);
+			tdbb->tdbb_database->dbb_flags |= DBB_sp_rec_mutex_init;
+		}
+		THREAD_EXIT;
+		if (THD_rec_mutex_lock(&tdbb->tdbb_database->dbb_sp_rec_mutex))
+		{
+			THREAD_ENTER;
+			return FALSE;
+		}
+		THREAD_ENTER;
+#endif /* SUPERSERVER */
+		if (procedure->prc_use_count)
+		{
+			USHORT prc_alter_count = procedure->prc_alter_count;
+			if (prc_alter_count > MAX_PROC_ALTER)
+			{
+				ERR_post(gds__no_meta_update,
+						 gds_arg_gds, gds__proc_name,
+						 gds_arg_string, ERR_cstring(work->dfw_name),
+						 gds_arg_gds, gds__version_err,
+						 0);
+				/* Msg357: too many versions */
+			}
+			LCK_release(tdbb, procedure->prc_existence_lock);
+			tdbb->tdbb_database->
+				dbb_procedures->vec_object[procedure->prc_id] = NULL_PTR;
+
+			if (!(procedure = MET_lookup_procedure_id(tdbb,
+														work->dfw_id,
+														FALSE,
+														PRC_being_altered)))
+			{
+#ifdef SUPERSERVER
+				THD_rec_mutex_unlock(&tdbb->tdbb_database->dbb_sp_rec_mutex);
+#endif
+				tdbb->tdbb_setjmp = (UCHAR *) old_env;
+				return FALSE;
+			}
+			procedure->prc_alter_count = ++prc_alter_count;
+		}
+
+		procedure->prc_flags |= PRC_being_altered;
+		if (procedure->prc_request)
+		{
+			if (CMP_clone_active(procedure->prc_request))
+				ERR_post(gds__no_meta_update,
+						 gds_arg_gds, gds__obj_in_use,
+						 gds_arg_string, ERR_cstring(work->dfw_name),
+						 0);
+
+			/* release the request */
+
+			CMP_release(tdbb, procedure->prc_request);
+			procedure->prc_request = 0;
+		}
+
+		/* delete dependency lists */
+
+		MET_delete_dependencies(tdbb, work->dfw_name, obj_procedure);
+
+		/* the procedure has just been scanned by MET_lookup_procedure_id
+		   and its PRC_scanned flag is set. We are going to reread it
+		   from file (create all new dependencies) and do not want this
+		   flag to be set. That is why we do not add PRC_obsolete and
+		   PRC_being_altered flags, we set only these two flags
+		 */
+		procedure->prc_flags = (PRC_obsolete | PRC_being_altered);
+
+		if (procedure->prc_existence_lock)
+			LCK_release(tdbb, procedure->prc_existence_lock);
+
+		/* remove procedure from cache */
+
+		MET_remove_procedure(tdbb, work->dfw_id, NULL);
+
+		/* Now handle the new definition */
+
+		get_procedure_dependencies(work);
+
+		procedure->prc_flags &= ~(PRC_obsolete | PRC_being_altered);
+
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+#ifdef SUPERSERVER
+		THD_rec_mutex_unlock(&tdbb->tdbb_database->dbb_sp_rec_mutex);
+#endif
+
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN modify_trigger(TDBB tdbb,
+							  SSHORT phase,
+							  DFW work,
+							  TRA transaction)
+{
+/**************************************
+ *
+ *	m o d i f y _ t r i g g e r 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform required actions when modifying trigger.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	switch (phase)
+	{
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		/* get rid of old dependencies, bring in the new */
+
+		MET_delete_dependencies(tdbb, work->dfw_name, obj_trigger);
+		get_trigger_dependencies(work);
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static USHORT name_length( TEXT * name)
+{
+/**************************************
+ *
+ *	n a m e _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute effective length of system relation name.
+ *	Trailing blanks are ignored.
+ *
+ **************************************/
+	TEXT *p, *q;
+#define	BLANK	'\040'
+
+	q = name - 1;
+	for (p = name; *p; p++)
+	{
+		if (*p != BLANK)
+			q = p;
+	}
+
+	return ((q + 1) - name);
+}
+
+
+static void put_summary_blob( BLB blob, RSR_T type, SLONG blob_id[2])
+{
+/**************************************
+ *
+ *	p u t _ s u m m a r y _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put an attribute record to the relation summary blob.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLB blr;
+	UCHAR *buffer, temp[128];
+	USHORT length;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* If blob is null, don't both */
+
+	if (!blob_id[0] && !blob_id[1])
+		return;
+
+/* Go ahead and open blob */
+
+	blr = BLB_open(tdbb, dbb->dbb_sys_trans, (BID)blob_id);
+	assert(blr->blb_length <= MAX_USHORT);
+	length = (USHORT)blr->blb_length;
+	buffer = (length > sizeof(temp)) ?
+		(UCHAR *) ALL_malloc((SLONG) blr->blb_length, ERR_jmp) : temp;
+
+/* Setup to cleanup after any error that may occur */
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env))
+	{
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (buffer != temp)
+			ALL_free(buffer);
+		ERR_punt();
+	}
+
+	length = (USHORT)BLB_get_data(tdbb, blr, buffer, (SLONG) length);
+	put_summary_record(blob, type, buffer, length);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (buffer != temp)
+		ALL_free(buffer);
+}
+
+
+static void put_summary_record(BLB blob,
+							   RSR_T type,
+							   UCHAR* data,
+							   USHORT length)
+{
+/**************************************
+ *
+ *	p u t _ s u m m a r y _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put an attribute record to the relation summary blob.
+ *
+ **************************************/
+	TDBB tdbb;
+	UCHAR *p, *buffer, temp[129];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+
+	p = buffer = (length + 1 > sizeof(temp)) ?
+		(UCHAR *) ALL_malloc((SLONG) (length + 1), ERR_jmp) : temp;
+
+	*p++ = (UCHAR) type;
+
+	if (length)
+		do
+			*p++ = *data++;
+		while (--length);
+
+/* Setup to cleanup after any error that may occur */
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env))
+	{
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (buffer != temp)
+			ALL_free(buffer);
+		ERR_punt();
+	}
+
+	BLB_put_segment(tdbb, blob, buffer, (USHORT)(p - buffer));
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (buffer != temp)
+		ALL_free(buffer);
+}
+
+
+static BOOLEAN scan_relation(TDBB tdbb,
+							 SSHORT phase,
+							 DFW work,
+							 TRA transaction)
+{
+/**************************************
+ *
+ *	s c a n _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Call MET_scan_relation with the appropriate 
+ *	relation.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	switch (phase)
+	{
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		MET_scan_relation(tdbb, MET_relation(tdbb, work->dfw_id));
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static BOOLEAN shadow_defined(TDBB tdbb)
+{
+/**************************************
+ *
+ *	s h a d o w _ d e f i n e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return TRUE if any shadows have been has been defined 
+ *      for the database else return FALSE.
+ *
+ **************************************/
+	DBB dbb;
+	BOOLEAN result;
+	BLK handle;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	result = FALSE;
+	handle = NULL;
+
+	FOR(REQUEST_HANDLE handle) FIRST 1 X IN RDB$FILES 
+        WITH X.RDB$SHADOW_NUMBER > 0
+		result = TRUE;
+	END_FOR
+
+	CMP_release(tdbb, (REQ)handle);
+
+	return result;
+}
+
+
+static BOOLEAN wal_defined(TDBB tdbb)
+{
+/**************************************
+ *
+ *	w a l _ d e f i n e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return TRUE if Writ_ahead Log (WAL) has been defined 
+ *      for the database else return FALSE.
+ *
+ **************************************/
+	DBB dbb;
+	BOOLEAN result;
+	BLK handle;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	result = FALSE;
+	handle = NULL;
+
+	FOR(REQUEST_HANDLE handle) FIRST 1 X IN RDB$LOG_FILES
+		result = TRUE;
+	END_FOR
+
+	CMP_release(tdbb, (REQ)handle);
+
+	return result;
+}
diff --git a/src/jrd/dfw_proto.h b/src/jrd/dfw_proto.h
new file mode 100644
index 0000000000..198f2f6a82
--- /dev/null
+++ b/src/jrd/dfw_proto.h
@@ -0,0 +1,44 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dfw_proto.h
+ *	DESCRIPTION:	Prototype header file for dfw.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DFW_PROTO_H_
+#define _JRD_DFW_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+USHORT DFW_assign_index_type(struct dfw *, SSHORT, SSHORT);
+void DFW_delete_deferred(struct tra *, SLONG);
+void DFW_merge_work(struct tra *, SLONG, SLONG);
+void DFW_perform_system_work(void);
+void DFW_perform_work(struct tra *);
+void DFW_perform_post_commit_work(struct tra *);
+void DFW_post_work(struct tra *, ENUM dfw_t, struct dsc *, USHORT);
+void DFW_update_index(struct dfw *, USHORT, float);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_DFW_PROTO_H_ */
diff --git a/src/jrd/divorce.cpp b/src/jrd/divorce.cpp
new file mode 100644
index 0000000000..86a7d5f726
--- /dev/null
+++ b/src/jrd/divorce.cpp
@@ -0,0 +1,123 @@
+/*************	history	************ *
+*	COMPONENT: JRD	MODULE: DIVORCE.C
+*	generated by Marion V2.5     2/6/90
+*	from dev              db	on 16-JUN-1995
+*****************************************************************
+*
+*	19737	smistry	16-JUN-1995
+*	Fix for the control terminal problem on SVR4 and SCO
+*
+*	19736	smistry	16-JUN-1995
+*	A correction in the previous fix to tkae care of platform dependency
+*
+*	19735	smistry	16-JUN-1995
+*	Fix for Control terminal reliquishing in SVR4 systems
+*
+*	14028	katz	15-NOV-1993
+*	Define ANSI prototypes
+*
+*	13379	katz	16-OCT-1993
+*	Move away from C language datatypes
+*
+*	0	katz	7-JUN-1993 
+*	history begins
+*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+*/
+
+
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		divorce.c
+ *	DESCRIPTION:	Divorce process from controlling terminal
+ *
+ * copyright (c) 1986 by Groton Database Systems, Inc.
+ */
+
+#include "../jrd/common.h"
+#include "../jrd/divorce.h"
+
+#ifdef _AIX
+#include <sys/select.h>
+#endif
+#ifndef VMS
+#ifdef WIN_NT
+#include <io.h>
+#else
+#include <sys/ioctl.h>
+#include <signal.h>
+#endif
+#endif	// !VMS
+
+#ifndef WIN_NT
+#include <sys/param.h>
+#endif
+
+#ifndef NOFILE
+#define NOFILE     20
+#endif
+
+
+
+void divorce_terminal(int mask)
+{
+/**************************************
+ *
+ *	d i v o r c e _ t e r m i n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clean up everything in preparation to become an independent
+ *	process.  Close all files except for marked by the input mask.
+ *
+ **************************************/
+	int s, fid;
+
+/* Close all files other than those explicitly requested to stay open */
+
+	for (fid = 0; fid < NOFILE; fid++)
+		if (!(mask & (1 << fid)))
+			s = close(fid);
+
+#ifdef SIGTTOU
+	/* ignore all the teminal related signal if define */
+	signal(SIGTTOU, SIG_IGN);
+	signal(SIGTTIN, SIG_IGN);
+	signal(SIGTSTP, SIG_IGN);
+#endif
+
+#ifdef TIOCNOTTY
+/* Perform terminal divorce */
+/* this is in case of BSD systems */
+
+	fid = open("/dev/tty", 2);
+
+	if (fid >= 0) {
+		s = ioctl(fid, TIOCNOTTY, 0);
+		s = close(fid);
+	}
+#endif
+
+
+/* Finally, get out of the process group */
+
+#if (!defined(VMS) && !defined(NETWARE_386) && !defined(WIN_NT))
+	s = SETPGRP;
+#endif
+}
diff --git a/src/jrd/divorce.h b/src/jrd/divorce.h
new file mode 100644
index 0000000000..a63e27781d
--- /dev/null
+++ b/src/jrd/divorce.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		divor_proto.h
+ *	DESCRIPTION:	Prototype header file for divorce.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DIVOR_PROTO_H_
+#define _JRD_DIVOR_PROTO_H_
+
+extern void divorce_terminal(int);
+
+#endif /* _JRD_DIVOR_PROTO_H_ */
diff --git a/src/jrd/dllshell.cpp b/src/jrd/dllshell.cpp
new file mode 100644
index 0000000000..1e49dab515
--- /dev/null
+++ b/src/jrd/dllshell.cpp
@@ -0,0 +1,67 @@
+/*
+ *      PROGRAM:        JRD Access Method
+ *      MODULE:         dllshell.c
+ *      DESCRIPTION:    Win16 DLL entry and exit functions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <windows.h>
+#include <signal.h>
+
+static void fpe_handler(int);
+static int fpe_count;
+
+/* define a global instance handle */
+HINSTANCE hDLLInstance;
+
+#if !defined(__WIN32__) && !defined(WIN32) && !defined(_WIN32) && !defined(WIN_NT)
+#pragma argsused
+int FAR PASCAL LibMain(HANDLE hInstance, WORD wDataSegment,
+					   WORD wHeapSize, LPSTR lpszCmdLine)
+{
+	/* initialize the global instance handle */
+	hDLLInstance = hInstance;
+
+	/* The startup code for the DLL initializes the local heap (if there is one)
+	   with a call to LocalInit which locks the data segment. */
+	if (wHeapSize != 0)
+		UnlockData(0);
+
+	/* init the floating point exception count and set the handler */
+
+	fpe_count = 0;
+	signal(SIGFPE, fpe_handler);
+
+	return 1;
+}
+
+#pragma argsused
+int FAR PASCAL WEP(int bSystemExit)
+{
+	LOCAL_wep();
+	return 1;
+}
+
+static void fpe_handler(int signal_number)
+{
+	signal(SIGFPE, fpe_handler);	/* reset handler */
+	fpe_count++;				/* count the event */
+}
+
+#endif /* !__WIN32__ */
diff --git a/src/jrd/dls.cpp b/src/jrd/dls.cpp
new file mode 100644
index 0000000000..8955c427eb
--- /dev/null
+++ b/src/jrd/dls.cpp
@@ -0,0 +1,273 @@
+/*
+ *      PROGRAM:        JRD Access Method
+ *      MODULE:         dls.c
+ *      DESCRIPTION:    Temporary file management
+ *			The file contains set of functions that
+ *			are used to manage directory list.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include <stdlib.h>
+#include "../jrd/sort.h"
+#include "../jrd/dls_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/gdsassert.h"
+
+static MDLS DLS_cfg_tmpdir = { NULL, FALSE };	/* directory list object */
+
+/*  Note that the only kind of writing permitted on the fdls list is
+ *  appending a new entry to the existing (possibly empty) list.
+ *  Therefore, we only need a write-lock to protect against
+ *  simultaneous updates: readers don't need a lock because they'll
+ *  always see either the old or the new state of the list, never an
+ *  in-between state.
+ *
+ *  Also note that for this argument to be correct, it is necessary
+ *  that updaters NULL out the "next" pointer of a new element
+ *  *before*, not after, they append the element to the list, so that
+ *  the list is at all times terminated by a NULL pointer.
+ */
+
+static FDLS first_fdls = { 0, 0 };
+static BOOLEAN fdls_mutex_init = FALSE;
+static MUTX_T fdls_mutex[1];
+
+BOOLEAN DLS_get_temp_space(ULONG size, SFB sfb)
+{
+/**************************************
+ *
+ *      D L S _ g e t _ t e m p _ s p a c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate disk space with required size
+ *
+ **************************************/
+
+	MDLS *ptr;
+	BOOLEAN result = FALSE;
+
+	assert(size > (ULONG) 0);
+	assert(sfb);
+
+	ptr = DLS_get_access();
+
+	if (!ptr->mdls_mutex_init) {
+		V4_MUTEX_INIT(ptr->mdls_mutex);
+		ptr->mdls_mutex_init = TRUE;
+	}
+
+	V4_MUTEX_LOCK(ptr->mdls_mutex);
+	if (!sfb->sfb_dls) {
+		/* allocate temp. space starting search from the begining of the dls list */
+		for (sfb->sfb_dls = ptr->mdls_dls;
+			 sfb->sfb_dls;
+			 sfb->sfb_dls = sfb->sfb_dls->dls_next)
+  if (size <= (sfb->sfb_dls->dls_size - sfb->sfb_dls->dls_inuse)) {
+				sfb->sfb_dls->dls_inuse += size;
+				result = TRUE;
+				break;
+			}
+	}
+	else {
+		/* allocate temp. space from the current dls entry */
+		if (size <= (sfb->sfb_dls->dls_size - sfb->sfb_dls->dls_inuse)) {
+			sfb->sfb_dls->dls_inuse += size;
+			result = TRUE;
+		}
+	}
+	V4_MUTEX_UNLOCK(ptr->mdls_mutex);
+
+	return (result);
+}
+
+
+void DLS_put_temp_space(SFB sfb)
+{
+/**************************************
+ *
+ *      D L S _ p u t _ t e m p _ s p a c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release disk space occupied by sort file
+ *
+ **************************************/
+
+	MDLS *ptr;
+
+	if (sfb && sfb->sfb_dls) {
+		ptr = DLS_get_access();
+		assert(ptr->mdls_mutex_init);
+		V4_MUTEX_LOCK(ptr->mdls_mutex);
+		assert(sfb->sfb_dls->dls_inuse >= sfb->sfb_file_size);
+		if (sfb->sfb_dls->dls_inuse > sfb->sfb_file_size)
+			sfb->sfb_dls->dls_inuse -= sfb->sfb_file_size;
+		else
+			sfb->sfb_dls->dls_inuse = 0;
+		V4_MUTEX_UNLOCK(ptr->mdls_mutex);
+	}
+}
+
+
+BOOLEAN API_ROUTINE DLS_add_dir(ULONG size, TEXT * dir_name)
+{
+/**************************************
+ *
+ *      D L S _ a d d _ d i r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Add new entry to the temporary directory list.
+ *
+ **************************************/
+
+	MDLS *mdls;
+	DLS new_dls, dls;
+
+/* allocate dls structure */
+
+	new_dls = (DLS) gds__alloc((SLONG) (sizeof(struct dls) +
+										sizeof(TEXT) * strlen(dir_name)));
+	if (!new_dls)
+		return FALSE;
+
+	strcpy(new_dls->dls_directory, dir_name);
+	new_dls->dls_size = size;
+	new_dls->dls_inuse = 0;
+	new_dls->dls_next = (DLS) NULL;
+
+/* get access to directory list object */
+
+	mdls = DLS_get_access();
+
+/* lock mutex, initialize it in case of the first access */
+
+	if (!mdls->mdls_mutex_init) {
+		V4_MUTEX_INIT(mdls->mdls_mutex);
+		mdls->mdls_mutex_init = TRUE;
+	}
+
+	V4_MUTEX_LOCK(mdls->mdls_mutex);
+
+/* add new entry to the end of list */
+
+	if (!mdls->mdls_dls) {
+		mdls->mdls_dls = new_dls;
+	}
+	else {
+		dls = mdls->mdls_dls;
+		while (dls->dls_next)
+			dls = dls->dls_next;
+		dls->dls_next = new_dls;
+	}
+
+/* release lock */
+
+	V4_MUTEX_UNLOCK(mdls->mdls_mutex);
+
+	return TRUE;
+}
+
+
+MDLS *DLS_get_access(void)
+{
+/**************************************
+ *
+ *      d l s _ _ g e t _ a c c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Return pointer to the temporary file configuration
+ *
+ **************************************/
+
+	return (&DLS_cfg_tmpdir);
+}
+
+BOOLEAN DLS_add_func_dir(TEXT * directory_name)
+{
+/**************************************
+ *
+ *      D L S _ a d d _ f u n c _ d i r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Add an external function directory name to the list
+ *      Return TRUE if successful, FALSE if no memory available.
+ *
+ **************************************/
+	FDLS *current_fdls, *new_fdls;
+	size_t name_length;
+
+	name_length = strlen(directory_name);
+
+	new_fdls = (FDLS *) gds__alloc((SLONG) (sizeof(FDLS) + name_length));
+	if (!new_fdls)
+		return FALSE;
+
+	new_fdls->fdls_next = 0;
+	strcpy(new_fdls->fdls_directory, directory_name);
+
+	/* Lock the mutex for the directory list, initializing it if
+	   this is the first access. */
+
+	if (!fdls_mutex_init) {
+		V4_MUTEX_INIT(fdls_mutex);
+		fdls_mutex_init = TRUE;
+	}
+
+	/* Note that when the distinction is implemented, the
+	   following should be a write lock. */
+	V4_MUTEX_LOCK(fdls_mutex);
+
+	/* Append the new fdls to the list, then release the mutex */
+	current_fdls = &first_fdls;
+	while (current_fdls->fdls_next)
+		current_fdls = current_fdls->fdls_next;
+	current_fdls->fdls_next = new_fdls;
+
+	/* Release the (write) lock for the fdls linked list. */
+	V4_MUTEX_UNLOCK(fdls_mutex);
+
+	return TRUE;
+}
+
+
+FDLS *DLS_get_func_dirs(void)
+{
+/**************************************
+ *
+ *      D L S _ g e t _ f u n c _ d i r s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Return pointer to the first function directory entry
+ *
+ **************************************/
+
+	return first_fdls.fdls_next;
+}
diff --git a/src/jrd/dls_proto.h b/src/jrd/dls_proto.h
new file mode 100644
index 0000000000..d81d4bece2
--- /dev/null
+++ b/src/jrd/dls_proto.h
@@ -0,0 +1,36 @@
+/*
+ *      PROGRAM:        JRD Access Method
+ *      MODULE:         dls_proto.h
+ *      DESCRIPTION:    Temporary file management
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DLS_PROTO_H_
+#define _JRD_DLS_PROTO_H_
+
+#include "../jrd/sort.h"
+
+extern BOOLEAN DLS_get_temp_space(ULONG, SFB);
+extern void DLS_put_temp_space(SFB);
+extern BOOLEAN API_ROUTINE DLS_add_dir(ULONG, TEXT *);
+extern MDLS *DLS_get_access(void);
+extern BOOLEAN DLS_add_func_dir(TEXT *);
+extern FDLS *DLS_get_func_dirs(void);
+
+#endif /* _JRD_DLS_PROTO_H_ */
diff --git a/src/jrd/dmp.cpp b/src/jrd/dmp.cpp
new file mode 100644
index 0000000000..d307022a3e
--- /dev/null
+++ b/src/jrd/dmp.cpp
@@ -0,0 +1,1096 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dmp.c
+ *	DESCRIPTION:	Logical page dumper
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <ctype.h>
+#include <string.h>
+
+#include "../jrd/jrd.h"
+#include "../jrd/lck.h"
+#include "../jrd/ods.h"
+#include "../jrd/cch.h"
+#include "../jrd/pag.h"
+#include "../jrd/val.h"
+#include "../jrd/btr.h"
+#include "../jrd/time.h"
+#include "../jrd/tra.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/dmp_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/sqz_proto.h"
+#include "../jrd/thd_proto.h"
+
+
+extern "C" {
+
+
+extern int (*dbg_block) ();
+
+void (*dmp_active) (void) = DMP_active,
+	(*dmp_dirty) (void) = DMP_dirty, (*dmp_page) (SLONG, USHORT) = DMP_page;
+
+extern IB_FILE *dbg_file;
+
+static void btc_printer(SLONG, BDB, SCHAR *);
+static void btc_printer_errors(SLONG, BDB, SCHAR *);
+static void complement_key(UCHAR *, int);
+static double decompress(SCHAR *);
+static void dmp_blob(register BLP);
+static void dmp_data(register DPG);
+static void dmp_header(register HDR);
+static void dmp_index(BTR, USHORT);
+static void dmp_pip(register PIP, ULONG);
+static void dmp_pointer(register PPG);
+static void dmp_root(register IRT);
+static void dmp_transactions(register TIP, ULONG);
+
+static int dmp_descending = 0;
+
+static CONST SCHAR months[][4] = {
+	"Jan", "Feb", "Mar",
+	"Apr", "May", "Jun",
+	"Jul", "Aug", "Sep",
+	"Oct", "Nov", "Dec"
+};
+
+
+#define TRANS_SHIFT(number)	(((number) & TRA_MASK) << 1)
+#define TRANS_OFFSET(number)	((number) >> TRA_SHIFT)
+
+
+void DMP_active(void)
+{
+/**************************************
+ *
+ *	D M P _ a c t i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump all buffers that are active.
+ *
+ **************************************/
+	DBB dbb;
+	register BCB bcb;
+	register BDB bdb;
+	register USHORT i;
+
+	dbb = GET_DBB;
+
+	bcb = dbb->dbb_bcb;
+	for (i = 0; i < bcb->bcb_count; i++)
+	{
+		bdb = bcb->bcb_rpt[i].bcb_bdb;
+		if (bdb->bdb_use_count)
+		{
+			if (*dbg_block != NULL)
+			{
+				reinterpret_cast<void (*)(BDB)>(*dbg_block)(bdb);
+			}
+			DMP_page(bdb->bdb_page, 0);
+		}
+	}
+}
+
+
+void DMP_btc(void)
+{
+/**************************************
+ *
+ *	D M P _ b t c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump the dirty page b-tree.
+ *
+ **************************************/
+	DBB dbb;
+	register BDB bdb;
+	SLONG level;
+	SCHAR buffer[250];
+
+	dbb = GET_DBB;
+
+	level = 0;
+	bdb = dbb->dbb_bcb->bcb_btree;
+
+	memset(buffer, ' ', sizeof(buffer));
+	buffer[249] = 0;
+
+	if (bdb)
+		btc_printer(level, bdb, buffer);
+	ib_fprintf(dbg_file, "%s\n", buffer);
+}
+
+
+void DMP_btc_errors(void)
+{
+/**************************************
+ *
+ *	D M P _ b t c _ e r r o r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump the dirty page b-tree.
+ *
+ **************************************/
+	DBB dbb;
+	register BDB bdb;
+	SLONG level;
+	SCHAR buffer[250];
+
+	dbb = GET_DBB;
+
+	level = 0;
+	bdb = dbb->dbb_bcb->bcb_btree;
+	if (bdb)
+		btc_printer_errors(level, bdb, buffer);
+}
+
+
+void DMP_btc_ordered(void)
+{
+/**************************************
+ *
+ *	D M P _ b t c _ o r d e r e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump the dirty page b-tree.
+ *
+ **************************************/
+	DBB dbb;
+	register BDB bdb, next;
+	register int i;
+	SLONG max_seen;
+
+	dbb = GET_DBB;
+
+/* Pick starting place at leftmost node */
+
+	ib_fprintf(dbg_file,
+			   "\nDirty Page Binary Tree -- Page (Transaction) { Dirty | Clean }\n");
+
+	max_seen = -3;
+
+	for (next = dbb->dbb_bcb->bcb_btree; next && next->bdb_left;
+		 next = next->bdb_left);
+
+	i = 0;
+
+	while (bdb = next) {
+		if (!bdb->bdb_parent && bdb != dbb->dbb_bcb->bcb_btree) {
+			for (bdb = dbb->dbb_bcb->bcb_btree; bdb;)
+				if (bdb->bdb_left && max_seen < bdb->bdb_page)
+					bdb = bdb->bdb_left;
+				else if (bdb->bdb_right && max_seen > bdb->bdb_page)
+					bdb = bdb->bdb_right;
+				else
+					break;
+			if (!bdb)
+				break;
+		}
+
+		/* Decide where to go next.  The options are (right, then down to the left)
+		   or up */
+		i++;
+		if (bdb->bdb_right && max_seen < bdb->bdb_right->bdb_page)
+			for (next = bdb->bdb_right; next->bdb_left;
+				 next = next->bdb_left);
+		else
+			next = bdb->bdb_parent;
+
+		if (max_seen >= bdb->bdb_page)
+			continue;
+
+		max_seen = bdb->bdb_page;
+
+		ib_fprintf(dbg_file, "\t%ld (%ld) %s%s", bdb->bdb_page,
+				   bdb->bdb_transactions,
+				   (bdb->bdb_flags & BDB_dirty) ? "D" : "C",
+				   (i % 10) ? "," : "\n");
+
+	}
+	ib_fprintf(dbg_file, "\n");
+}
+
+
+void DMP_dirty(void)
+{
+/**************************************
+ *
+ *	D M P _ d i r t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump all buffers that are dirty.
+ *
+ **************************************/
+	DBB dbb;
+	register BCB bcb;
+	register BDB bdb;
+	register USHORT i;
+
+	dbb = GET_DBB;
+
+	bcb = dbb->dbb_bcb;
+	for (i = 0; i < bcb->bcb_count; i++)
+	{
+		bdb = bcb->bcb_rpt[i].bcb_bdb;
+		if (bdb->bdb_flags & BDB_dirty)
+		{
+			if (*dbg_block != NULL)
+			{
+				reinterpret_cast<void (*)(BDB)>(*dbg_block)(bdb);
+			}
+			DMP_page(bdb->bdb_page, 0);
+		}
+	}
+}
+
+
+void DMP_fetched_page(register PAG page,
+					  ULONG		number,
+					  ULONG		sequence,
+					  USHORT page_size)
+{
+/**************************************
+ *
+ *	D M P _ f e t c h e d _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a database page.  Actually, just case on type
+ *	and disptach.  The sequence number is provided by
+ *	the rebuild utility and passed as zero by the standard
+ *	dump code.
+ *
+ **************************************/
+
+	ib_fprintf(dbg_file, "\n%ld\t", number);
+
+	switch (page->pag_type)
+	{
+	case pag_header:
+		dmp_header((HDR) page);
+		break;
+
+	case pag_pages:
+		dmp_pip((PIP) page, sequence);
+		break;
+
+	case pag_transactions:
+		dmp_transactions((TIP) page, sequence);
+		break;
+
+	case pag_pointer:
+		dmp_pointer((PPG) page);
+		break;
+
+	case pag_data:
+		dmp_data((DPG) page);
+		break;
+
+	case pag_root:
+		dmp_root((IRT) page);
+		break;
+
+	case pag_index:
+		dmp_index((BTR) page, page_size);
+		break;
+
+	case pag_blob:
+		dmp_blob((BLP) page);
+		break;
+
+	case pag_ids:
+		ib_fprintf(dbg_file, "GEN-IDS PAGE\n");
+		break;
+
+	case pag_log:
+		ib_fprintf(dbg_file, "WRITE-AHEAD LOG INFO PAGE\n");
+		break;
+
+	default:
+		ib_fprintf(dbg_file, "*** Page %ld (type %d) is undefined ***",
+				   number, page->pag_type);
+	}
+
+	ib_fprintf(dbg_file, "\n");
+}
+
+
+void DMP_page(SLONG number, USHORT page_size)
+{
+/**************************************
+ *
+ *	D M P _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a database page.  Actually, just case on type
+ *	and disptach.
+ *
+ **************************************/
+	WIN window;
+	register PAG page;
+
+	window.win_page = number;
+	window.win_flags = 0;
+	page = CCH_FETCH(NULL_TDBB, &window, LCK_read, 0);
+	DMP_fetched_page(page, number, 0, page_size);
+	CCH_RELEASE(NULL_TDBB, &window);
+}
+
+
+static void btc_printer(SLONG level, BDB bdb, SCHAR * buffer)
+{
+/**************************************
+ *
+ * 	b t c _ p r i n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump the dirty page b-tree recursively
+ *
+ **************************************/
+
+	if (level >= 48) {
+		ib_fprintf(dbg_file, "overflow\n");
+		return;
+	}
+
+	sprintf((buffer + 5 * level + 1), "%.4ld", bdb->bdb_page);
+
+	if (bdb->bdb_left) {
+		buffer[5 * (level + 1)] = 'L';
+		btc_printer(level + 1, bdb->bdb_left, buffer);
+	}
+	else
+		ib_fprintf(dbg_file, "%s\n", buffer);
+
+	memset(buffer, ' ', 250);
+	buffer[249] = 0;
+
+	if (bdb->bdb_right) {
+		buffer[5 * (level + 1)] = 'R';
+		btc_printer(level + 1, bdb->bdb_right, buffer);
+	}
+}
+
+
+static void btc_printer_errors(SLONG level, BDB bdb, SCHAR * buffer)
+{
+/**************************************
+ *
+ * 	b t c _ p r i n t e r _ e r r o r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump the dirty page b-tree recursively
+ *
+ **************************************/
+
+	if (((bdb->bdb_left) && (bdb->bdb_left->bdb_page > bdb->bdb_page)) ||
+		((bdb->bdb_right) && (bdb->bdb_right->bdb_page < bdb->bdb_page)))
+		ib_fprintf(dbg_file, "Whoops! Parent %ld, Left %ld, Right %ld\n",
+				   bdb->bdb_page,
+				   (bdb->bdb_left) ? bdb->bdb_left->bdb_page : 0,
+				   (bdb->bdb_right) ? bdb->bdb_right->bdb_page : 0);
+
+	if (bdb->bdb_left)
+		btc_printer_errors(level + 1, bdb->bdb_left, buffer);
+	if (bdb->bdb_right) {
+		btc_printer_errors(level + 1, bdb->bdb_right, buffer);
+	}
+}
+
+
+static void complement_key(UCHAR * p, int length)
+{
+/**************************************
+ *
+ *	c o m p l e m e n t _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Negate a key for descending index.
+ *
+ **************************************/
+	UCHAR *end;
+
+	for (end = p + length; p < end; p++)
+		*p ^= -1;
+}
+
+
+static double decompress(SCHAR * value)
+{
+/**************************************
+ *
+ *	d e c o m p r e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Re-form a double precision number out of a compressed
+ *	value string (assume string has been null padded to 8
+ *	bytes).
+ *
+ **************************************/
+	double dbl;
+	SSHORT l;
+	SCHAR *p;
+
+	p = (SCHAR *) & dbl;
+
+	if (*value & (1 << 7)) {
+		*p++ = static_cast < SCHAR > (*value++ ^ (1 << 7));
+		l = 7;
+		do
+			*p++ = *value++;
+		while (--l);
+	}
+	else {
+		l = 8;
+		do
+			*p++ = -*value++ - 1;
+		while (--l);
+	}
+
+	return dbl;
+}
+
+
+static void dmp_blob(register BLP page)
+{
+/**************************************
+ *
+ *	d m p _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	USHORT i, n;
+	ULONG *ptr;
+
+	ib_fprintf(dbg_file,
+			   "BLOB PAGE\t checksum %d\t generation %ld\n\tFlags: %x, lead page: %d, sequence: %d, length: %d\n\t",
+			   ((PAG) page)->pag_checksum, ((PAG) page)->pag_generation,
+			   ((PAG) page)->pag_flags, page->blp_lead_page,
+			   page->blp_sequence, page->blp_length);
+
+	if (((PAG) page)->pag_flags & blp_pointers) {
+		n = page->blp_length >> SHIFTLONG;
+		for (i = 0, ptr = (ULONG *) page->blp_page; i < n; i++, ptr++)
+			ib_fprintf(dbg_file, "%d,", *ptr);
+	}
+
+	ib_fprintf(dbg_file, "\n");
+}
+
+
+static void dmp_data(register DPG page)
+{
+/**************************************
+ *
+ *	d m p _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a data page in a semi-readable format.
+ *
+ **************************************/
+	SCHAR*	p;
+	SCHAR*	q;
+	SCHAR*	end;
+	SSHORT	length;
+	SSHORT	expanded_length;
+	USHORT	i;
+	RHD		header;
+	RHDF	fragment;
+	BLH		blob;
+	dpg::dpg_repeat* index;
+	SCHAR	buffer[8096 + 1];
+
+	ib_fprintf(dbg_file,
+			   "DATA PAGE\t checksum %d\t generation %ld\n\tRelation: %d, Sequence: %d, Count: %d, Flags: %x\n",
+			   ((PAG) page)->pag_checksum,
+			   ((PAG) page)->pag_generation,
+			   page->dpg_relation,
+			   page->dpg_sequence,
+			   page->dpg_count,
+			   ((PAG) page)->pag_flags);
+
+	for (i = 0, index = page->dpg_rpt; i < page->dpg_count; i++, index++)
+	{
+		if (index->dpg_length == 0)
+		{
+			ib_fprintf(dbg_file, "\n\t%d - (empty)\n", i);
+			continue;
+		}
+		header = (RHD) ((SCHAR *) page + index->dpg_offset);
+		fragment = (RHDF) header;
+		if (header->rhd_flags & rhd_blob)
+		{
+			blob = (BLH) header;
+			ib_fprintf(dbg_file,
+					   "\n\t%d - (blob) offset: %d, length: %d, flags: %x\n",
+					   i, index->dpg_offset, index->dpg_length,
+					   header->rhd_flags);
+			ib_fprintf(dbg_file,
+					   "\tlevel: %d, lead page: %d, length: %d, count %d\n",
+					   blob->blh_level, blob->blh_lead_page, blob->blh_length,
+					   blob->blh_count);
+			ib_fprintf(dbg_file,
+					   "\tmaxseq: %d, maxseg: %d, flags: %X, sub_type %d\n",
+					   blob->blh_max_sequence, blob->blh_max_segment,
+					   blob->blh_flags, blob->blh_sub_type);
+		}
+		else
+		{
+			expanded_length = 0;
+			if (index->dpg_offset)
+			{
+				if (header->rhd_flags & rhd_incomplete)
+				{
+					length = index->dpg_length - OFFSETA(RHDF, rhdf_data);
+					p = (SCHAR *) ((RHDF) header)->rhdf_data;
+				}
+				else
+				{
+					length = index->dpg_length - OFFSETA(RHD, rhd_data);
+					p = (SCHAR *) header->rhd_data;
+				}
+				for (q = p, end = p + length; q < end;)
+				{
+					if (*q > 0) {
+						expanded_length += *q;
+						q += *q + 1;
+					}
+					else {
+						expanded_length += -(*q);
+						q += 2;
+					}
+				}
+			}
+			ib_fprintf(dbg_file,
+					   "\n\t%d - offset: %d, length: %d, expanded data length: %d\n\t",
+					   i, index->dpg_offset, index->dpg_length,
+					   expanded_length);
+			ib_fprintf(dbg_file, "trans: %d, format: %d, flags: %#x\n\t",
+					   header->rhd_transaction, header->rhd_format,
+					   header->rhd_flags);
+			if (header->rhd_b_page)
+			{
+				ib_fprintf(dbg_file, "back page: %d, line: %d\n\t",
+						   header->rhd_b_page, header->rhd_b_line);
+			}
+			if (header->rhd_flags & rhd_incomplete)
+			{
+				ib_fprintf(dbg_file, "frag page: %d, line: %d\n\t",
+						   fragment->rhdf_f_page, fragment->rhdf_f_line);
+			}
+			if (index->dpg_offset)
+			{
+				if (length < 0)
+				{
+					ib_fprintf(dbg_file, "*** invalid record length ***");
+				}
+				else if (length)
+				{
+					SCHAR *p_save = p;
+					int length_save = length;
+					int compress_value = 0;
+					int cnt;
+					cnt = 0;
+					ib_fprintf(dbg_file,
+							   "Raw Compressed format: (length %d)\n\t",
+							   length);
+					do {
+						if (cnt++ >= 16) {
+							ib_fprintf(dbg_file, "\n\t");
+							cnt = 1;
+						}
+
+						ib_fprintf(dbg_file, "%3d ", *p++);
+					} while (--length);
+
+					ib_fprintf(dbg_file, "\n\t");
+
+					buffer[0] = 0;
+					end = SQZ_decompress(p_save, length_save, &buffer[1],
+										 &buffer[sizeof(buffer)]);
+					cnt = 0;
+					p = &buffer[1];
+					ib_fprintf(dbg_file,
+							   "Decompressed format: (length %d)\n\t",
+							   end - p);
+					do {
+						if (cnt++ >= 20) {
+							ib_fprintf(dbg_file, "\n\t");
+							cnt = 1;
+						}
+
+						if (isprint(*p) &&
+							(isprint(*(p + 1)) || isprint(*(p - 1))))
+						{
+							ib_fprintf(dbg_file, "%2c ", *p++);
+						}
+						else
+						{
+							ib_fprintf(dbg_file, "%02x ", (UCHAR) *p++);
+						}
+					} while (p < end);
+
+					ib_fprintf(dbg_file, "\n");
+				}
+			}
+		}
+	}
+}
+
+
+static void dmp_header(register HDR page)
+{
+/**************************************
+ *
+ *	d m p _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	struct tm time;
+	SCHAR *p, *end;
+	SLONG number;
+	USHORT minor_version;
+
+	minor_version = page->hdr_ods_minor;
+
+	ib_fprintf(dbg_file,
+			   "HEADER PAGE\t checksum %d\t generation %ld\n\tPage size: %d, version: %d.%d(%d), pages: %ld\n",
+			   ((PAG) page)->pag_checksum, ((PAG) page)->pag_generation,
+			   page->hdr_page_size, page->hdr_ods_version, minor_version,
+			   page->hdr_ods_minor_original, page->hdr_PAGES);
+
+	isc_decode_timestamp((GDS_TIMESTAMP *) page->hdr_creation_date, &time);
+	ib_fprintf(dbg_file, "\tCreation date:\t%s %d, %d %d:%02d:%02d\n",
+			   months[time.tm_mon], time.tm_mday, time.tm_year + 1900,
+			   time.tm_hour, time.tm_min, time.tm_sec);
+
+	ib_fprintf(dbg_file,
+			   "\tOldest trans %ld, oldest_active %ld, oldest_snapshot %ld, next trans %ld, bumped trans %ld\n",
+			   page->hdr_oldest_transaction, page->hdr_oldest_active,
+			   page->hdr_oldest_snapshot, page->hdr_next_transaction,
+			   page->hdr_bumped_transaction);
+
+	ib_fprintf(dbg_file,
+			   "\tfile sequence # %d, flags %d, attachment %ld\n",
+			   page->hdr_sequence, page->hdr_flags, page->hdr_attachment_id);
+
+
+	ib_fprintf(dbg_file,
+			   "\timplementation %ld, shadow count %ld\n",
+			   page->hdr_implementation, page->hdr_shadow_count);
+
+
+	ib_fprintf(dbg_file, "\n    Variable header data:\n");
+
+	for (p = (SCHAR *) page->hdr_data, end = p + page->hdr_page_size;
+		 p < end && *p != HDR_end; p += 2 + p[1])
+		switch (*p) {
+		case HDR_root_file_name:
+			ib_printf("\tRoot file name: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_journal_server:
+			ib_printf("\tJournal server: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_file:
+			ib_printf("\tContinuation file: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_last_page:
+			memcpy(&number, p + 2, sizeof(number));
+			ib_printf("\tLast logical page: %ld\n", number);
+			break;
+
+		case HDR_unlicensed:
+			memcpy(&number, p + 2, sizeof(number));
+			ib_printf("\tUnlicensed accesses: %ld\n", number);
+			break;
+
+		case HDR_sweep_interval:
+			memcpy(&number, p + 2, sizeof(number));
+			ib_printf("\tSweep interval: %ld\n", number);
+			break;
+
+		case HDR_log_name:
+			ib_printf("\tLog file name: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_journal_file:
+			ib_printf("\tJournal file: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_password_file_key:
+			ib_printf("\tPassword file key: (can't print)\n");
+			break;
+
+		case HDR_backup_info:
+			ib_printf("\tBackup info: (can't print)\n");
+			break;
+
+		case HDR_cache_file:
+			ib_printf("\tShared cache file: %*s\n", p[1], p + 2);
+			break;
+
+		default:
+			ib_printf("\tUnrecognized option %d, length %d\n", p[0], p[1]);
+		}
+
+	ib_printf("\t*END*\n");
+}
+
+
+static void dmp_index(BTR page, USHORT page_size)
+{
+/**************************************
+ *
+ *	d m p _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	UCHAR	c;
+	UCHAR	value[256];
+	UCHAR	print[256];
+	UCHAR*	p;
+	UCHAR*	q;
+	SSHORT	l;
+	double	n;
+
+	ib_fprintf(dbg_file,
+			   "B-TREE PAGE\t checksum %d\t generation %ld\n"
+			   "\tRelation: %d, Sibling: %ld, Backward Sibling: %ld, Level = %d, Length = %d, Flags = %d\n",
+			   ((PAG) page)->pag_checksum,
+			   ((PAG) page)->pag_generation,
+			   page->btr_relation,
+			   page->btr_sibling,
+			   page->btr_left_sibling,
+			   page->btr_level,
+			   page->btr_length,
+			   ((PAG) page)->pag_flags);
+/* Compute the number of data pages per pointer page.  Each data page
+   requires a 32 bit pointer and a 2 bit control field. */
+	const USHORT dp_per_pp =
+			(USHORT)((ULONG) ((page_size - OFFSETA(PPG, ppg_page)) * 8) /
+						(BITS_PER_LONG + 2));
+	const USHORT max_records = (page_size - sizeof(struct dpg)) /
+								(sizeof(dpg::dpg_repeat) + OFFSETA(RHD, rhd_data));
+
+	BTN end  = (BTN) ((UCHAR *) page + page->btr_length);
+	BTN node = (BTN) page->btr_nodes;
+
+	while (node < end)
+	{
+		const ULONG number = CTO32L(BTN_NUMBER(node));
+
+		/* compute running value */
+
+		p = value + BTN_PREFIX(node);
+		q = BTN_DATA(node);
+		l = BTN_LENGTH(node);
+		if (l)
+		{
+			do {
+				*p++ = *q++;
+			} while (--l);
+		}
+		while (p < &value[8])
+		{
+			*p++ = 0;
+		}
+
+		/* format value as number */
+
+		if (dmp_descending || (page->btr_header.pag_flags & btr_descending))
+			complement_key(value, BTN_PREFIX(node) + BTN_LENGTH(node));
+
+		if ((BTN_PREFIX(node) == 0 && BTN_LENGTH(node) == 0) ||
+			BTN_PREFIX(node) + BTN_LENGTH(node) > 8)
+		{
+			n = 0;
+		}
+		else
+		{
+			n = decompress((SCHAR *) value);
+		}
+
+		/* format value as string for printing */
+
+		p = print;
+		q = value;
+		if (l = BTN_PREFIX(node))
+		{
+			do {
+				c = *q++;
+				*p++ = (c >= ' ' && c <= '~') ? c : '.';
+			} while (--l);
+		}
+		*p++ = '|';
+		if (l = BTN_LENGTH(node))
+		{
+			do {
+				c = *q++;
+				*p++ = (c >= ' ' && c <= '~') ? c : '.';
+			} while (--l);
+		}
+		*p = 0;
+
+		/* print formatted node */
+
+		ib_fprintf(dbg_file, "\t+%x Prefix: %d, length: %d, ",
+				   (SCHAR *) node - (SCHAR *) page, BTN_PREFIX(node),
+				   BTN_LENGTH(node));
+		if (page->btr_level)
+			ib_fprintf(dbg_file, "page number: %ld", number);
+		else
+			ib_fprintf(dbg_file, "number: %ld", number);
+		if (page_size && !page->btr_level) {
+			int pp, slot, line;
+			line = number % max_records;
+			slot = (number / max_records) % dp_per_pp;
+			pp = (number / max_records) / dp_per_pp;
+			ib_fprintf(dbg_file, " (pp=%d,slot=%d,line=%d)", pp, slot, line);
+		}
+		ib_fprintf(dbg_file, ",\t(%s) [%g]\n", print, n);
+
+		if (dmp_descending || (page->btr_header.pag_flags & btr_descending))
+			complement_key(value, BTN_PREFIX(node) + BTN_LENGTH(node));
+
+		node = NEXT_NODE(node);
+	}
+}
+
+
+static void dmp_pip(register PIP page, ULONG sequence)
+{
+/**************************************
+ *
+ *	d m p _ p i p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a page inventory page.
+ *
+ **************************************/
+	DBB dbb;
+	register PGC control;
+	register int n;
+
+	dbb = GET_DBB;
+
+	control = dbb->dbb_pcontrol;
+	ib_fprintf(dbg_file,
+			   "PAGE INVENTORY PAGE\t checksum %d\t generation %ld\n\tMin page: %ld\n\tFree pages:\n\t",
+			   ((PAG) page)->pag_checksum, ((PAG) page)->pag_generation,
+			   page->pip_min);
+
+#define BIT(n) (page->pip_bits [n >> 3] & (1 << (n & 7)))
+
+	for (n = 0; n < control->pgc_ppp;) {
+		while (n < control->pgc_ppp)
+			if (BIT(n))
+				break;
+			else
+				n++;
+		ib_fprintf(dbg_file, "%d - ", n);
+		while (n < control->pgc_ppp)
+			if (!BIT(n))
+				break;
+			else
+				n++;
+		ib_fprintf(dbg_file, "%d, ", n - 1);
+	}
+
+	ib_fprintf(dbg_file, "\n");
+}
+
+
+static void dmp_pointer(register PPG page)
+{
+/**************************************
+ *
+ *	d m p _ p o i n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	DBB dbb;
+	USHORT i;
+	UCHAR *bytes;
+
+	dbb = GET_DBB;
+
+	ib_fprintf(dbg_file,
+			   "POINTER PAGE\t checksum %d\t generation %ld\n\tRelation: %d, Flags: %x, Sequence: %ld, Next: %ld, Count: %d\n",
+			   ((PAG) page)->pag_checksum, ((PAG) page)->pag_generation,
+			   page->ppg_relation, ((PAG) page)->pag_flags,
+			   page->ppg_sequence, page->ppg_next, page->ppg_count);
+	ib_fprintf(dbg_file, "\tMin space slot: %d, Max space slot: %d\n",
+			   page->ppg_min_space, page->ppg_max_space);
+
+	bytes = (UCHAR *) & page->ppg_page[dbb->dbb_dp_per_pp];
+
+	for (i = 0; i < page->ppg_count; i++) {
+		if (i % 20 == 0)
+			/* ib_fprintf (dbg_file, "\n\t%d: ", bytes [i / 4]); */
+			ib_fprintf(dbg_file, "\n\t");
+		ib_fprintf(dbg_file, "%ld ", page->ppg_page[i]);
+	}
+
+	ib_fprintf(dbg_file, "\n");
+}
+
+
+static void dmp_root(register IRT page)
+{
+/**************************************
+ *
+ *	d m p _ r o o t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	irt::irt_repeat * desc;
+	struct irtd *stuff;
+	USHORT i, j;
+
+	ib_fprintf(dbg_file,
+			   "INDEX ROOT PAGE\t checksum %d\t generation %ld\n\tRelation: %d, Count: %d\n",
+			   ((PAG) page)->pag_checksum, ((PAG) page)->pag_generation,
+			   page->irt_relation, page->irt_count);
+	for (i = 0, desc = page->irt_rpt; i < page->irt_count; i++, desc++) {
+		ib_fprintf(dbg_file,
+				   "\t%d -- root: %ld, number of keys: %d, flags: %x\n", i,
+				   desc->irt_root, desc->irt_keys, desc->irt_flags);
+		ib_fprintf(dbg_file, "\t     keys (field, type): ");
+		stuff = (struct irtd *) ((SCHAR *) page + desc->irt_desc);
+		for (j = 0; j < desc->irt_keys; j++, stuff++)
+			ib_fprintf(dbg_file, "(%d, %d),", stuff->irtd_field,
+					   stuff->irtd_itype);
+		ib_fprintf(dbg_file, "\n");
+	}
+}
+
+
+static void dmp_transactions(register TIP page, ULONG sequence)
+{
+/**************************************
+ *
+ *	d m p _ t r a n s a c t i o n 
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	UCHAR *byte, s[101], *p, *end;
+	ULONG transactions_per_tip, number, trans_offset;
+	USHORT shift, state, hundreds;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	transactions_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+
+	ib_fprintf(dbg_file,
+			   "Transaction Inventory Page\t checksum %d\t generation %ld\n",
+			   ((PAG) page)->pag_checksum, ((PAG) page)->pag_generation);
+	if (tdbb->tdbb_transaction)
+		ib_fprintf(dbg_file, "\tCurrent transaction %d",
+				   tdbb->tdbb_transaction->tra_number);
+	else
+		ib_fprintf(dbg_file, "\tCurrent transaction (NULL)");
+	if (sequence)
+		ib_fprintf(dbg_file, "\t first transaction on page %ld",
+				   transactions_per_tip * (sequence - 1));
+	else
+		ib_fprintf(dbg_file, "\t Transactions per TIP %ld",
+				   transactions_per_tip);
+	ib_fprintf(dbg_file, "\tnext TIP page %d\n\n", page->tip_next);
+	ib_fprintf(dbg_file,
+			   "\t          1         2         3         4         5         6         7         8         9\n");
+	ib_fprintf(dbg_file,
+			   "\t0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789\n\n");
+	end = s + sizeof(s) - 1;
+	p = s;
+
+	for (hundreds = number = 0; number < transactions_per_tip; number++)
+	{
+		trans_offset = TRANS_OFFSET(number);
+		byte = page->tip_transactions + trans_offset;
+		shift = TRANS_SHIFT(number);
+		state = (*byte >> shift) & TRA_MASK;
+		*p++ = (state == tra_active) ? 'A' :
+			(state == tra_limbo) ? 'L' : (state == tra_dead) ? 'D' : 'C';
+		if (p >= end) {
+			*p = 0;
+			ib_fprintf(dbg_file, "  %3d\t%s\n", hundreds++, s);
+			p = s;
+		}
+	}
+	while (p < end)
+		*p++ = ' ';
+	*p = 0;
+	ib_fprintf(dbg_file, "  %3d\t%s\n", hundreds, s);
+}
+
+
+} // extern "C"
diff --git a/src/jrd/dmp_proto.h b/src/jrd/dmp_proto.h
new file mode 100644
index 0000000000..1b2c6b04fa
--- /dev/null
+++ b/src/jrd/dmp_proto.h
@@ -0,0 +1,43 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dmp_proto.h
+ *	DESCRIPTION:	Prototype header file for dmp.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DMP_PROTO_H_
+#define _JRD_DMP_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void DMP_active(void);
+void DMP_btc(void);
+void DMP_btc_errors(void);
+void DMP_btc_ordered(void);
+void DMP_dirty(void);
+void DMP_page(SLONG, USHORT);
+void DMP_fetched_page(register struct pag *, ULONG, ULONG, USHORT);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_DMP_PROTO_H_ */
diff --git a/src/jrd/doserr.h b/src/jrd/doserr.h
new file mode 100644
index 0000000000..3f30e77c38
--- /dev/null
+++ b/src/jrd/doserr.h
@@ -0,0 +1,264 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		neterr.h
+ *	DESCRIPTION:	Common network error message handling
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_DOSERR_H_
+#define _REMOTE_DOSERR_H_
+
+#define TCP_ERROR_BEG   WSABASEERR
+#define TCP_ERROR_END   (TCP_ERROR_BEG + 10000L)
+#define SPX_ERROR_BEG   20000L
+#define SPX_ERROR_END   (SPX_ERROR_BEG + 10000L)
+#define WNP_ERROR_BEG   30000L
+#define WNP_ERROR_END   (WNP_ERROR_BEG + 10000L)
+#define LOC_ERROR_BEG   40000L
+#define LOC_ERROR_END   (LOC_ERROR_BEG + 10000L)
+
+#ifndef REMOTE_REMOTE_H
+
+#include <winsock.h>
+#include <nwerror.h>
+#undef SOCKET_NOT_OPEN			/* Defined in nwerror.h, redefined by nxtw.h */
+#undef SOCKET_ALREADY_OPEN		/* Defined in nwerror.h, redefined by nxtw.h */
+#include <nxtw.h>
+#define INCL_ERRORS
+#include <bseerr.h>
+
+#define dos_tcp_wsaeconnrefused                   0
+#define dos_tcp_wsaeintr                          1
+#define dos_tcp_wsaebadf                         -1
+#define dos_tcp_wsaeacces                        -1
+#define dos_tcp_wsaefault                        -1
+#define dos_tcp_wsaeinval                        -1
+#define dos_tcp_wsaemfile                         2
+#define dos_tcp_wsaenametoolong                  -1
+#define dos_tcp_wsaenotsock                      -1
+#define dos_tcp_wsaedestaddrreq                  -1
+#define dos_tcp_wsaemsgsize                       3
+#define dos_tcp_wsaeprototype                    -1
+#define dos_tcp_wsaenoprotoopt                   -1
+#define dos_tcp_wsaeprotonosupport                4
+#define dos_tcp_wsaesocktnosupport                5
+#define dos_tcp_wsaeopnotsupp                     6
+#define dos_tcp_wsaepfnosupport                   7
+#define dos_tcp_wsaeafnosupport                   8
+#define dos_tcp_wsaeaddrinuse                     9
+#define dos_tcp_wsaeaddrnotavail                 10
+#define dos_tcp_wsaenetdown                      11
+#define dos_tcp_wsaenetunreach                   12
+#define dos_tcp_wsaenetreset                     13
+#define dos_tcp_wsaeconnaborted                  14
+#define dos_tcp_wsaeconnreset                    15
+#define dos_tcp_wsaenobufs                       16
+#define dos_tcp_wsaeisconn                       17
+#define dos_tcp_wsaenotconn                      18
+#define dos_tcp_wsaeshutdown                     19
+#define dos_tcp_wsaetoomanyrefs                  -1
+#define dos_tcp_wsaetimedout                     20
+#define dos_tcp_wsaehostdown                     21
+#define dos_tcp_wsaehostunreach                  22
+#define dos_tcp_wsaealready                      23
+#define dos_tcp_wsaeinprogress                   24
+#define dos_tcp_wsaewouldblock                   25
+#define dos_tcp_wsaeloop                         -1
+#define dos_tcp_wsasysnotready                   26
+#define dos_tcp_wsavernotsupported               27
+#define dos_tcp_wsanotinitialised                28
+
+#define dos_spx_name_not_found                   29
+#define dos_spx_not_initialized                  30
+#define dos_spx_connection_terminated            31
+#define dos_spx_no_answer_from_target            32
+#define dos_spx_invalid_connection               33
+#define dos_spx_connection_table_full            34
+#define dos_spx_socket_closed                    35
+#define dos_spx_malformed_packet                 36
+#define dos_spx_socket_not_opened                37
+#define dos_spx_no_dos_memory                    49
+#define dos_spx_no_free_ecb                      50
+#define dos_spx_lock_failed                      51
+#define dos_spx_over_max_limit                   52
+#define dos_spx_prev_init                        53
+
+#define dos_wnp_bad_pipe                         38
+#define dos_wnp_invalid_handle                   -1
+#define dos_wnp_not_enough_memory                39
+#define dos_wnp_bad_length                       40
+#define dos_wnp_broken_pipe                      41
+#define dos_wnp_insufficient_buffer              42
+#define dos_wnp_network_busy                     43
+#define dos_wnp_no_proc_slots                    44
+#define dos_wnp_file_not_found                   45
+#define dos_wnp_path_not_found                   46
+#define dos_wnp_pipe_busy                        47
+#define dos_wnp_invalid_parameter                -1
+#define dos_wnp_dev_not_exist                    48
+#define dos_wnp_rem_not_list		                54
+#define dos_wnp_dup_name			                55
+#define dos_wnp_bad_netpath		                56
+#define dos_wnp_too_many_cmds		                57
+#define dos_wnp_adap_hdw_err		                58
+#define dos_wnp_bad_net_resp		                59
+#define dos_wnp_unexp_net_err		                60
+#define dos_wnp_bad_rem_adap		                61
+#define dos_wnp_netname_deleted		             62
+#define dos_wnp_network_access_denied            63
+#define dos_wnp_bad_dev_type		                64
+#define dos_wnp_bad_net_name		                65
+#define dos_wnp_too_many_names		             66
+#define dos_wnp_too_many_sess		                67
+#define dos_wnp_req_not_accep		                68
+#define dos_wnp_net_write_fault		             69
+#define dos_wnp_pipe_not_connected	             70
+
+#define dos_loc_not_enough_disk_space    	       73
+
+
+#define MAP_DOS_ERROR(code)                                                  \
+   (((code) >= TCP_ERROR_BEG && (code) <= TCP_ERROR_END) ?                   \
+                                 MAP_TCP_ERROR((code))                     : \
+    ((code) >= SPX_ERROR_BEG && (code) <= SPX_ERROR_END) ?                   \
+                                 MAP_SPX_ERROR((code) - SPX_ERROR_BEG)     : \
+    ((code) >= WNP_ERROR_BEG && (code) <= WNP_ERROR_END) ?                   \
+                                 MAP_WNP_ERROR((code) - WNP_ERROR_BEG)     : \
+    ((code) >= LOC_ERROR_BEG && (code) <= LOC_ERROR_END) ?                   \
+                                 MAP_LOC_ERROR((code) - LOC_ERROR_BEG)     : \
+                                 -2)
+
+#define SUB_DOS_BASE(code)                                                   \
+   (((code) >= TCP_ERROR_BEG && (code) <= TCP_ERROR_END) ?                   \
+                                 ((code))                                  : \
+    ((code) >= SPX_ERROR_BEG && (code) <= SPX_ERROR_END) ?                   \
+                                 ((code) - SPX_ERROR_BEG)                  : \
+    ((code) >= WNP_ERROR_BEG && (code) <= WNP_ERROR_END) ?                   \
+                                 ((code) - WNP_ERROR_BEG)                  : \
+    ((code) >= LOC_ERROR_BEG && (code) <= LOC_ERROR_END) ?                   \
+                                 ((code) - LOC_ERROR_BEG)                  : \
+                                 0)
+
+#define MAP_TCP_ERROR(code)                                                  \
+   (code == WSAECONNREFUSED                ? dos_tcp_wsaeconnrefused       : \
+    code == WSAEINTR                       ? dos_tcp_wsaeintr              : \
+    code == WSAEBADF                       ? dos_tcp_wsaebadf              : \
+    code == WSAEACCES                      ? dos_tcp_wsaeacces             : \
+    code == WSAEFAULT                      ? dos_tcp_wsaefault             : \
+    code == WSAEINVAL                      ? dos_tcp_wsaeinval             : \
+    code == WSAEMFILE                      ? dos_tcp_wsaemfile             : \
+    code == WSAENAMETOOLONG                ? dos_tcp_wsaenametoolong       : \
+    code == WSAENOTSOCK                    ? dos_tcp_wsaenotsock           : \
+    code == WSAEDESTADDRREQ                ? dos_tcp_wsaedestaddrreq       : \
+    code == WSAEMSGSIZE                    ? dos_tcp_wsaemsgsize           : \
+    code == WSAEPROTOTYPE                  ? dos_tcp_wsaeprototype         : \
+    code == WSAENOPROTOOPT                 ? dos_tcp_wsaenoprotoopt        : \
+    code == WSAEPROTONOSUPPORT             ? dos_tcp_wsaeprotonosupport    : \
+    code == WSAESOCKTNOSUPPORT             ? dos_tcp_wsaesocktnosupport    : \
+    code == WSAEOPNOTSUPP                  ? dos_tcp_wsaeopnotsupp         : \
+    code == WSAEPFNOSUPPORT                ? dos_tcp_wsaepfnosupport       : \
+    code == WSAEAFNOSUPPORT                ? dos_tcp_wsaeafnosupport       : \
+    code == WSAEADDRINUSE                  ? dos_tcp_wsaeaddrinuse         : \
+    code == WSAEADDRNOTAVAIL               ? dos_tcp_wsaeaddrnotavail      : \
+    code == WSAENETDOWN                    ? dos_tcp_wsaenetdown           : \
+    code == WSAENETUNREACH                 ? dos_tcp_wsaenetunreach        : \
+    code == WSAENETRESET                   ? dos_tcp_wsaenetreset          : \
+    code == WSAECONNABORTED                ? dos_tcp_wsaeconnaborted       : \
+    code == WSAECONNRESET                  ? dos_tcp_wsaeconnreset         : \
+    code == WSAENOBUFS                     ? dos_tcp_wsaenobufs            : \
+    code == WSAEISCONN                     ? dos_tcp_wsaeisconn            : \
+    code == WSAENOTCONN                    ? dos_tcp_wsaenotconn           : \
+    code == WSAESHUTDOWN                   ? dos_tcp_wsaeshutdown          : \
+    code == WSAETOOMANYREFS                ? dos_tcp_wsaetoomanyrefs       : \
+    code == WSAETIMEDOUT                   ? dos_tcp_wsaetimedout          : \
+    code == WSAEHOSTDOWN                   ? dos_tcp_wsaehostdown          : \
+    code == WSAEHOSTUNREACH                ? dos_tcp_wsaehostunreach       : \
+    code == WSAEALREADY                    ? dos_tcp_wsaealready           : \
+    code == WSAEINPROGRESS                 ? dos_tcp_wsaeinprogress        : \
+    code == WSAEWOULDBLOCK                 ? dos_tcp_wsaewouldblock        : \
+    code == WSAELOOP                       ? dos_tcp_wsaeloop              : \
+    code == WSASYSNOTREADY                 ? dos_tcp_wsasysnotready        : \
+    code == WSAVERNOTSUPPORTED             ? dos_tcp_wsavernotsupported    : \
+    code == WSANOTINITIALISED              ? dos_tcp_wsanotinitialised     : \
+                                             -1)
+
+#define MAP_SPX_ERROR(code)                                                  \
+   (code == (INVALID_CONNECTION - 30000)   ? dos_spx_name_not_found        : \
+    code == (NO_SUCH_SEGMENT    - 30000)   ? dos_spx_name_not_found        : \
+    code == (NO_SUCH_PROPERTY   - 30000)   ? dos_spx_name_not_found        : \
+    code == (NO_SUCH_OBJECT     - 30000)   ? dos_spx_name_not_found        : \
+    code == IPXSPX_NOT_INIT                ? dos_spx_not_initialized       : \
+    code == SPX_CONNECTION_TERMINATED      ? dos_spx_connection_terminated : \
+    code == SPX_NO_ANSWER_FROM_TARGET      ? dos_spx_no_answer_from_target : \
+    code == SPX_INVALID_CONNECTION         ? dos_spx_invalid_connection    : \
+    code == SPX_CONNECTION_TABLE_FULL      ? dos_spx_connection_table_full : \
+    code == 0xFC /* SPX_SOCKET_CLOSED */   ? dos_spx_socket_closed         : \
+    code == SPX_MALFORMED_PACKET           ? dos_spx_malformed_packet      : \
+    code == SPX_SOCKET_NOT_OPENED          ? dos_spx_socket_not_opened     : \
+    code == NO_DOS_MEMORY                  ? dos_spx_no_dos_memory         : \
+    code == NO_FREE_ECB                    ? dos_spx_no_free_ecb           : \
+    code == WINLOCK_FAILED                 ? dos_spx_lock_failed           : \
+    code == OVER_MAX_LIMIT                 ? dos_spx_over_max_limit        : \
+    code == IPXSPX_PREV_INIT               ? dos_spx_prev_init             : \
+                                             -1)
+
+/* Note:  The constant for SPX_SOCKET_CLOSED was not found in the headers,
+   but the value 0xFC is described in the documentation */
+
+#define MAP_WNP_ERROR(code)                                                  \
+   (code == ERROR_BAD_PIPE                 ? dos_wnp_bad_pipe              : \
+    code == ERROR_INVALID_HANDLE           ? dos_wnp_invalid_handle        : \
+    code == ERROR_NOT_ENOUGH_MEMORY        ? dos_wnp_not_enough_memory     : \
+    code == ERROR_BAD_LENGTH               ? dos_wnp_bad_length            : \
+    code == ERROR_BROKEN_PIPE              ? dos_wnp_broken_pipe           : \
+    code == ERROR_INSUFFICIENT_BUFFER      ? dos_wnp_insufficient_buffer   : \
+    code == ERROR_NETWORK_BUSY             ? dos_wnp_network_busy          : \
+    code == ERROR_NO_PROC_SLOTS            ? dos_wnp_no_proc_slots         : \
+    code == ERROR_FILE_NOT_FOUND           ? dos_wnp_file_not_found        : \
+    code == ERROR_PATH_NOT_FOUND           ? dos_wnp_path_not_found        : \
+    code == ERROR_PIPE_BUSY                ? dos_wnp_pipe_busy             : \
+    code == ERROR_UNEXP_NET_ERR            ? dos_wnp_unexp_net_err         : \
+    code == ERROR_INVALID_PARAMETER        ? dos_wnp_invalid_parameter     : \
+    code == ERROR_DEV_NOT_EXIST            ? dos_wnp_dev_not_exist         : \
+    code == ERROR_REM_NOT_LIST		       ? dos_wnp_rem_not_list		      : \
+    code == ERROR_DUP_NAME			          ? dos_wnp_dup_name			      : \
+    code == ERROR_BAD_NETPATH		          ? dos_wnp_bad_netpath		      : \
+    code == ERROR_TOO_MANY_CMDS		       ? dos_wnp_too_many_cmds		   : \
+    code == ERROR_ADAP_HDW_ERR		       ? dos_wnp_adap_hdw_err		      : \
+    code == ERROR_BAD_NET_RESP		       ? dos_wnp_bad_net_resp		      : \
+    code == ERROR_UNEXP_NET_ERR		       ? dos_wnp_unexp_net_err		   : \
+    code == ERROR_BAD_REM_ADAP		       ? dos_wnp_bad_rem_adap		      : \
+    code == ERROR_NETNAME_DELETED		    ? dos_wnp_netname_deleted		   : \
+    code == ERROR_NETWORK_ACCESS_DENIED    ? dos_wnp_network_access_denied : \
+    code == ERROR_BAD_DEV_TYPE		       ? dos_wnp_bad_dev_type		      : \
+    code == ERROR_BAD_NET_NAME		       ? dos_wnp_bad_net_name		      : \
+    code == ERROR_TOO_MANY_NAMES		       ? dos_wnp_too_many_names		   : \
+    code == ERROR_TOO_MANY_SESS		       ? dos_wnp_too_many_sess		   : \
+    code == ERROR_REQ_NOT_ACCEP		       ? dos_wnp_req_not_accep		   : \
+    code == ERROR_NET_WRITE_FAULT		    ? dos_wnp_net_write_fault		   : \
+    code == ERROR_PIPE_NOT_CONNECTED	    ? dos_wnp_pipe_not_connected	   : \
+                                             -1)
+
+#define MAP_LOC_ERROR(code)                                                  \
+   (code == ENOSPC                         ? dos_loc_not_enough_disk_space : \
+                                             -1)
+
+#endif /* REMOTE_REMOTE_H */
+
+#endif /* _REMOTE_DOSERR_H_ */
diff --git a/src/jrd/dpm.e b/src/jrd/dpm.e
new file mode 100644
index 0000000000..16cdf9dc93
--- /dev/null
+++ b/src/jrd/dpm.e
@@ -0,0 +1,3296 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dpm.e
+ *	DESCRIPTION:	Data page manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/*
+ * Modified by: Patrick J. P. Griffin
+ * Date: 11/29/2000
+ * Problem:   Bug 116733 Too many generators corrupt database.
+ *            DPM_gen_id was not calculating page and offset correctly.
+ * Change:    Corrected routine to use new variables from PAG_init.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/ibsetjmp.h"
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/ods.h"
+#include "../jrd/req.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/sqz.h"
+#include "../jrd/irq.h"
+#include "../jrd/blb.h"
+#include "../jrd/tra.h"
+#include "../jrd/lls.h"
+#include "../jrd/lck.h"
+#include "../jrd/cch.h"
+#include "../jrd/jrn.h"
+#include "../jrd/pag.h"
+#include "../jrd/sbm.h"
+#include "../jrd/rse.h"
+#ifdef VIO_DEBUG
+#include "../jrd/vio_debug.h"
+#endif
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/sqz_proto.h"
+#include "../jrd/thd_proto.h"
+
+DATABASE DB = FILENAME "ODS.RDB";
+
+#define DECOMPOSE(n, divisor, q, r) {r = n % divisor; q = n / divisor;}
+#define DECOMPOSE_QUOTIENT(n, divisor, q) {q = n / divisor;}
+#define HIGH_WATER(x)	((SSHORT) sizeof (struct dpg) + (SSHORT) sizeof (struct dpg_repeat) * (x - 1))
+#define SPACE_FUDGE	RHDF_SIZE
+
+static void delete_tail(TDBB, RHDF, USHORT);
+static void fragment(TDBB, RPB *, SSHORT, DCC, SSHORT, TRA);
+static void extend_relation(TDBB, REL, WIN *);
+static UCHAR *find_space(TDBB, RPB *, SSHORT, LLS *, REC, USHORT);
+static BOOLEAN get_header(WIN *, SSHORT, register RPB *);
+static PPG get_pointer_page(TDBB, REL, WIN *, USHORT, USHORT);
+static void journal_segment(TDBB, WIN *, USHORT);
+static RHD locate_space(TDBB, register RPB *, SSHORT, LLS *, REC, USHORT);
+static void mark_full(TDBB, register RPB *);
+static void release_dcc(DCC);
+static void store_big_record(TDBB, register RPB *, LLS *, DCC, USHORT);
+
+
+PAG DPM_allocate(TDBB tdbb, WIN * window)
+{
+/**************************************
+ *
+ *	D P M _ a l l o c a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate (and set up for journalling) a data page.
+ *
+ **************************************/
+	DBB dbb;
+	PAG page;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf("DPM_allocate (window page %d)\n",
+				  window ? window->win_page : 0);
+#endif
+
+	page = PAG_allocate(window);
+
+	if (dbb->dbb_wal)
+		CCH_journal_page(tdbb, window);
+
+	return page;
+}
+
+
+void DPM_backout( TDBB tdbb, RPB * rpb)
+{
+/**************************************
+ *
+ *	D P M _ b a c k o u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Backout a record where the record and previous version are on
+ *	the same page.
+ *
+ **************************************/
+	DBB dbb;
+	DPG page;
+	RHD header;
+	USHORT n;
+	struct dpg_repeat *index1, *index2;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("DPM_backout (rpb %d)\n", rpb->rpb_number);
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("    record  %d:%d transaction %d back %d:%d fragment %d:%d flags %d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_b_page, rpb->rpb_b_line, rpb->rpb_f_page,
+			 rpb->rpb_f_line, rpb->rpb_flags);
+#endif
+
+	CCH_MARK(tdbb, &rpb->rpb_window);
+	page = (DPG) rpb->rpb_window.win_buffer;
+	index1 = page->dpg_rpt + rpb->rpb_line;
+	index2 = page->dpg_rpt + rpb->rpb_b_line;
+	*index1 = *index2;
+	index2->dpg_offset = index2->dpg_length = 0;
+
+	header = (RHD) ((SCHAR *) page + index1->dpg_offset);
+	header->rhd_flags &= ~(rhd_chain | rhd_gc_active);
+
+	if (dbb->dbb_wal) {
+		journal_segment(tdbb, &rpb->rpb_window, rpb->rpb_b_line);
+		journal_segment(tdbb, &rpb->rpb_window, rpb->rpb_line);
+	}
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("    old record %d:%d, new record %d:%d, old dpg_count %d, ",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_b_page, rpb->rpb_b_line,
+			 page->dpg_count);
+#endif
+
+/* Check to see if the index got shorter */
+
+	for (n = page->dpg_count; --n;)
+		if (page->dpg_rpt[n].dpg_length)
+			break;
+
+	page->dpg_count = n + 1;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf("    new dpg_count %d\n", page->dpg_count);
+#endif
+
+	CCH_RELEASE(tdbb, &rpb->rpb_window);
+}
+
+
+int DPM_chain( TDBB tdbb, RPB * org_rpb, RPB * new_rpb)
+{
+/**************************************
+ *
+ *	D P M _ c h a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start here with a plausible, but non-active RPB. 
+ *
+ *	We need to create a new version of a record.  If the new version
+ *	fits on the same page as the old record, things are simple and
+ *	quick.  If not, return FALSE and let somebody else suffer.
+ *
+ *	Note that we also return FALSE if the record fetched doesn't
+ *	match the state of the input rpb, or if there is no record for
+ *	that record number.  The caller has to check the results to 
+ *	see what failed if FALSE is returned.  At the moment, there is
+ *	only one caller, VIO_erase. 
+ *
+ **************************************/
+	DBB dbb;
+	RHD header;
+	RPB temp;
+	DPG page;
+	struct dcc dcc;
+	UCHAR *p;
+	SLONG length, fill;			/* Accomodate max record size i.e. 64K */
+	USHORT size;
+	SSHORT top, offset, n, slot, available, space;
+	struct dpg_repeat *index, *end;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("DPM_chain (org_rpb %d, new_rpb %d)\n", org_rpb->rpb_number,
+				  new_rpb ? new_rpb->rpb_number : 0);
+	if (debug_flag > DEBUG_WRITES_INFO) {
+		ib_printf
+			("    org record  %d:%d transaction %d back %d:%d fragment %d:%d flags %d\n",
+			 org_rpb->rpb_page, org_rpb->rpb_line, org_rpb->rpb_transaction,
+			 org_rpb->rpb_b_page, org_rpb->rpb_b_line, org_rpb->rpb_f_page,
+			 org_rpb->rpb_f_line, org_rpb->rpb_flags);
+
+		if (new_rpb)
+			ib_printf("    new record length %d transaction %d flags %d\n",
+					  new_rpb->rpb_length, new_rpb->rpb_transaction,
+					  new_rpb->rpb_flags);
+	}
+#endif
+
+	temp = *org_rpb;
+	size =
+		SQZ_length(tdbb, new_rpb->rpb_address, (int) new_rpb->rpb_length,
+				   &dcc);
+
+	if (!DPM_get(tdbb, org_rpb, LCK_write)) {
+#ifdef VIO_DEBUG
+		if (debug_flag > DEBUG_WRITES_INFO)
+			ib_printf("    record not found in DPM_chain\n");
+#endif
+		release_dcc(dcc.dcc_next);
+		return FALSE;
+	}
+
+/* if somebody has modified the record since we looked last, stop now! */
+
+	if (temp.rpb_transaction != org_rpb->rpb_transaction ||
+		temp.rpb_b_page != org_rpb->rpb_b_page ||
+		temp.rpb_b_line != org_rpb->rpb_b_line) {
+		CCH_RELEASE(tdbb, &org_rpb->rpb_window);
+#ifdef VIO_DEBUG
+		if (debug_flag > DEBUG_WRITES_INFO)
+			ib_printf("    record changed in DPM_chain\n");
+#endif
+		release_dcc(dcc.dcc_next);
+		return FALSE;
+	}
+
+
+	if ((org_rpb->rpb_flags & rpb_delta) && temp.rpb_prior)
+		org_rpb->rpb_prior = temp.rpb_prior;
+	else if (org_rpb->rpb_flags & rpb_delta) {
+		CCH_RELEASE(tdbb, &org_rpb->rpb_window);
+#ifdef VIO_DEBUG
+		if (debug_flag > DEBUG_WRITES_INFO)
+			ib_printf("    record delta state changed\n");
+#endif
+		release_dcc(dcc.dcc_next);
+		return FALSE;
+	}
+
+	page = (DPG) org_rpb->rpb_window.win_buffer;
+
+/* If the record obviously isn't going to fit, don't even try */
+
+	if (size > dbb->dbb_page_size - (sizeof(struct dpg) + RHD_SIZE)) {
+		CCH_RELEASE(tdbb, &org_rpb->rpb_window);
+#ifdef VIO_DEBUG
+		if (debug_flag > DEBUG_WRITES_INFO)
+			ib_printf("    insufficient room found in DPM_chain\n");
+#endif
+		release_dcc(dcc.dcc_next);
+		return FALSE;
+	}
+
+/* The record must be long enough to permit fragmentation later.  If it's
+   too small, compute the number of pad bytes required */
+
+	fill = (RHDF_SIZE - RHD_SIZE) - size;
+	if (fill < 0 || (new_rpb->rpb_flags & rpb_deleted))
+		fill = 0;
+
+	length = ROUNDUP(RHD_SIZE + size + fill, ODS_ALIGNMENT);
+
+/* Find space on page and open slot */
+
+	slot = page->dpg_count;
+	space = dbb->dbb_page_size;
+	top = HIGH_WATER(page->dpg_count);
+	available = dbb->dbb_page_size - top;
+
+	for (index = page->dpg_rpt, end = index + page->dpg_count, n = 0;
+		 index < end; index++, n++) {
+		if (!index->dpg_length && slot == page->dpg_count)
+			slot = n;
+		if (index->dpg_length && (offset = index->dpg_offset)) {
+			available -= ROUNDUP(index->dpg_length, ODS_ALIGNMENT);
+			space = MIN(space, offset);
+		}
+	}
+
+	if (slot == page->dpg_count) {
+		top += sizeof(struct dpg_repeat);
+		available -= sizeof(struct dpg_repeat);
+	}
+
+/* If the record doesn't fit, punt */
+
+	if (length > available) {
+		CCH_RELEASE(tdbb, &org_rpb->rpb_window);
+#ifdef VIO_DEBUG
+		if (debug_flag > DEBUG_WRITES_INFO)
+			ib_printf("    compressed page doesn't have room in DPM_chain\n");
+#endif
+		release_dcc(dcc.dcc_next);
+		return FALSE;
+	}
+
+	CCH_precedence(tdbb, &org_rpb->rpb_window, -org_rpb->rpb_transaction);
+	CCH_MARK(tdbb, &org_rpb->rpb_window);
+
+/* Record fits, in theory.  Check to see if the page needs compression */
+
+	space -= length;
+	if (space < top)
+		space = DPM_compress(tdbb, page) - length;
+
+	if (slot == page->dpg_count)
+		++page->dpg_count;
+
+/* Swap the old record into the new slot and the new record into
+   the old slot */
+
+	new_rpb->rpb_b_page = new_rpb->rpb_page = org_rpb->rpb_page;
+	new_rpb->rpb_b_line = slot;
+	new_rpb->rpb_line = org_rpb->rpb_line;
+
+	index = page->dpg_rpt + org_rpb->rpb_line;
+	header = (RHD) ((SCHAR *) page + index->dpg_offset);
+	header->rhd_flags |= rhd_chain;
+	page->dpg_rpt[slot] = *index;
+
+	index->dpg_offset = space;
+	index->dpg_length = RHD_SIZE + size + fill;
+
+	header = (RHD) ((SCHAR *) page + space);
+	header->rhd_flags = new_rpb->rpb_flags;
+	header->rhd_transaction = new_rpb->rpb_transaction;
+	header->rhd_format = new_rpb->rpb_format_number;
+	header->rhd_b_page = new_rpb->rpb_b_page;
+	header->rhd_b_line = new_rpb->rpb_b_line;
+
+	SQZ_fast(&dcc, new_rpb->rpb_address, header->rhd_data);
+	release_dcc(dcc.dcc_next);
+
+	if (fill) {
+		p = header->rhd_data + size;
+		do
+			*p++ = 0;
+		while (--fill);
+	}
+
+	if (dbb->dbb_wal) {
+		journal_segment(tdbb, &org_rpb->rpb_window, org_rpb->rpb_line);
+		journal_segment(tdbb, &org_rpb->rpb_window, new_rpb->rpb_b_line);
+	}
+
+	CCH_RELEASE(tdbb, &org_rpb->rpb_window);
+
+	return TRUE;
+}
+
+
+int DPM_compress( TDBB tdbb, DPG page)
+{
+/**************************************
+ *
+ *	D P M _ c o m p r e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compress a data page.  Return the high water mark.
+ *
+ **************************************/
+	DBB dbb;
+	register SSHORT space, l;
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+	UCHAR *temp_page = NULL;
+#else
+	UCHAR temp_page[MAX_PAGE_SIZE];
+#endif
+	struct dpg_repeat *index, *end;
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("compress (page)\n");
+	if (debug_flag > DEBUG_TRACE_ALL_INFO)
+		ib_printf("    sequence %d\n", page->dpg_sequence);
+#endif
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+/* allocate a spare buffer which is large enough,
+   and set up to release it in case of error */
+
+	temp_page = (UCHAR *) ALL_malloc((SLONG) dbb->dbb_page_size, ERR_jmp);
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (temp_page)
+			ALL_free(temp_page);
+		ERR_punt();
+	}
+#else
+	if (dbb->dbb_page_size > sizeof(temp_page))
+		BUGCHECK(250);			/* msg 250 temporary page buffer too small */
+#endif
+
+	space = dbb->dbb_page_size;
+	end = page->dpg_rpt + page->dpg_count;
+
+	for (index = page->dpg_rpt; index < end; index++)
+		if (index->dpg_offset) {
+			l = index->dpg_length;
+			space -= ROUNDUP(l, ODS_ALIGNMENT);
+			MOVE_FAST((UCHAR *) page + index->dpg_offset, temp_page + space,
+					  l);
+			index->dpg_offset = space;
+		}
+
+	MOVE_FASTER(temp_page + space,
+				(UCHAR *) page + space, dbb->dbb_page_size - space);
+
+	if (page->dpg_header.pag_type != pag_data)
+		BUGCHECK(251);			/* msg 251 damaged data page */
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+	if (temp_page)
+		ALL_free(temp_page);
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+#endif
+
+	return space;
+}
+
+
+void DPM_create_relation( TDBB tdbb, REL relation)
+{
+/**************************************
+ *
+ *	D P M _ c r e a t e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new relation.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window, root_window;
+	PPG page;
+	VCL vector;
+	IRT root;
+	HDR header;
+	JRNDA record;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("DPM_create_relation (relation %d)\n", relation->rel_id);
+#endif
+
+/* Allocate first pointer page */
+
+	page = (PPG) DPM_allocate(tdbb, &window);
+	page->ppg_header.pag_type = pag_pointer;
+	page->ppg_relation = relation->rel_id;
+	page->ppg_header.pag_flags = ppg_eof;
+	CCH_RELEASE(tdbb, &window);
+
+/* If this is relation 0 (RDB$PAGES), update the header */
+
+	if (relation->rel_id == 0) {
+		root_window.win_page = HEADER_PAGE;
+		root_window.win_flags = 0;
+		header = (HDR) CCH_FETCH(tdbb, &root_window, LCK_write, pag_header);
+		CCH_MARK(tdbb, &root_window);
+		header->hdr_PAGES = window.win_page;
+
+		if (dbb->dbb_wal) {
+			record.jrnda_type = JRNP_DB_HDR_PAGES;
+			record.jrnda_data = window.win_page;
+			CCH_journal_record(tdbb, &root_window, (UCHAR*)&record, JRNDA_SIZE,
+							   NULL_PTR, 0);
+		}
+		CCH_RELEASE(tdbb, &root_window);
+	}
+
+/* Keep track in memory of the first pointer page */
+
+	relation->rel_pages = vector = (VCL) ALLOCPV(type_vcl, 1);
+	vector->vcl_count = 1;
+	vector->vcl_long[0] = window.win_page;
+
+/* Create an index root page */
+
+	root = (IRT) DPM_allocate(tdbb, &root_window);
+	root->irt_header.pag_type = pag_root;
+	root->irt_relation = relation->rel_id;
+/*root->irt_count = 0;*/
+	CCH_RELEASE(tdbb, &root_window);
+	relation->rel_index_root = root_window.win_page;
+
+/* Store page numbers in RDB$PAGES */
+
+	DPM_pages(tdbb, relation->rel_id, pag_pointer, (ULONG) 0,
+			  window.win_page);
+	DPM_pages(tdbb, relation->rel_id, pag_root, (ULONG) 0,
+			  root_window.win_page);
+}
+
+
+SLONG DPM_data_pages(TDBB tdbb, REL relation)
+{
+/**************************************
+ *
+ *	D P M _ d a t a _ p a g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute and return the number of data pages in a relation.
+ *	Some poor sucker is going to use this information to make
+ *	an educated guess at the number of records in the relation.
+ *
+ **************************************/
+	USHORT sequence;
+	WIN window;
+	PPG ppage;
+	SLONG *page, *end_page, pages;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("DPM_data_pages (relation %d)\n", relation->rel_id);
+#endif
+
+	if (!(pages = relation->rel_data_pages)) {
+		window.win_flags = 0;
+		for (sequence = 0;; sequence++) {
+			if (!
+				(ppage =
+				 get_pointer_page(tdbb, relation, &window, sequence, LCK_read))) BUGCHECK(243);	/* msg 243 missing pointer page in DPM_data_pages */
+			page = ppage->ppg_page;
+			end_page = page + ppage->ppg_count;
+			while (page < end_page)
+				if (*page++)
+					pages++;
+			if (ppage->ppg_header.pag_flags & ppg_eof)
+				break;
+			CCH_RELEASE(tdbb, &window);
+		}
+
+		CCH_RELEASE(tdbb, &window);
+#ifdef SUPERSERVER
+		relation->rel_data_pages = pages;
+#endif
+	}
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("    returned pages: %d\n", pages);
+#endif
+
+	return pages;
+}
+
+
+void DPM_delete( TDBB tdbb, RPB * rpb, SLONG prior_page)
+{
+/**************************************
+ *
+ *	D P M _ d e l e t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a fragment from data page.  Assume the page has
+ *	already been fetched (but not marked) for write.  Copy the
+ *	record header into the record parameter block before deleting
+ *	it.  If the record goes empty, release the page.  Release the
+ *	page when we're done.
+ *
+ **************************************/
+	DBB dbb;
+	WIN *window, pwindow;
+	DPG page;
+	PPG ppage;
+	UCHAR flags;
+	SSHORT slot, count;
+	USHORT pp_sequence;
+	SLONG *ptr, number, sequence;
+	JRNP journal;
+	REL relation;
+	struct dpg_repeat *index;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("DPM_delete (rpb %d, prior_page %d)\n", rpb->rpb_number,
+				  prior_page);
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("    record  %d:%d transaction %d back %d:%d fragment %d:%d flags %d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_b_page, rpb->rpb_b_line, rpb->rpb_f_page,
+			 rpb->rpb_f_line, rpb->rpb_flags);
+#endif
+
+	window = &rpb->rpb_window;
+	page = (DPG) window->win_buffer;
+	sequence = page->dpg_sequence;
+	index = &page->dpg_rpt[rpb->rpb_line];
+	number = rpb->rpb_number;
+
+	if (!get_header(window, rpb->rpb_line, rpb)) {
+		CCH_RELEASE(tdbb, window);
+		BUGCHECK(244);			/* msg 244 Fragment does not exist */
+	}
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf("    record length as stored in record header: %d\n",
+				  rpb->rpb_length);
+#endif
+
+	rpb->rpb_number = number;
+
+	CCH_precedence(tdbb, window, prior_page);
+	CCH_MARK(tdbb, window);
+	index->dpg_offset = 0;
+	index->dpg_length = 0;
+
+	if (dbb->dbb_wal)
+		journal_segment(tdbb, window, rpb->rpb_line);
+
+/* Compute the highest line number level on page */
+
+	for (index = &page->dpg_rpt[page->dpg_count];
+		 index > page->dpg_rpt; --index) if (index[-1].dpg_offset)
+			break;
+
+	page->dpg_count = count = index - page->dpg_rpt;
+
+/* If the page is not empty and used to be marked as full, change the
+   state of both the page and the appropriate pointer page. */
+
+	if (count && (page->dpg_header.pag_flags & dpg_full)) {
+		DEBUG page->dpg_header.pag_flags &= ~dpg_full;
+		mark_full(tdbb, rpb);
+
+#ifdef VIO_DEBUG
+		if (debug_flag > DEBUG_WRITES_INFO)
+			ib_printf("    page is no longer full\n");
+#endif
+		return;
+	}
+
+	flags = page->dpg_header.pag_flags;
+	CCH_RELEASE(tdbb, window);
+
+/* If the page is non-empty, we're done. */
+
+	if (count)
+		return;
+
+	if (flags & dpg_orphan) {
+		/* The page inventory page will be written after the page being
+		   released, which will be written after the pages from which earlier
+		   fragments were deleted, which will be written after the page from
+		   which the first fragment is deleted.
+		   The resulting 'must-be-written-after' graph is:
+		   pip --> deallocated page --> prior_page */
+		PAG_release_page(window->win_page, window->win_page);
+		return;
+	}
+
+/* Data page has gone empty.  Refetch page thru pointer page.  If it's
+   still empty, remove page from relation. */
+
+	DECOMPOSE(sequence, dbb->dbb_dp_per_pp, pp_sequence, slot);
+  retry_after_latch_timeout:
+	pwindow.win_flags = 0;
+	if (!
+		(ppage =
+		 get_pointer_page(tdbb, rpb->rpb_relation, &pwindow, pp_sequence,
+						  LCK_write))) BUGCHECK(245);	/* msg 245 pointer page disappeared in DPM_delete */
+
+
+	if (slot >= ppage->ppg_count ||
+		!(window->win_page = ppage->ppg_page[slot])) {
+		CCH_RELEASE(tdbb, &pwindow);
+		return;
+	}
+
+/* Since this fetch for exclusive access follows a (pointer page) fetch for
+   exclusive access, put a timeout on this fetch to be able to recover from
+   possible deadlocks. */
+	page = (DPG) CCH_FETCH_TIMEOUT(tdbb, window, LCK_write, pag_data, -1);
+	if (!page) {
+		CCH_RELEASE(tdbb, &pwindow);
+		goto retry_after_latch_timeout;
+	}
+	if (page->dpg_count) {
+		CCH_RELEASE(tdbb, &pwindow);
+		CCH_RELEASE(tdbb, window);
+		return;
+	}
+
+/* Data page is still empty and still in the relation.  Eliminate the
+   pointer to the data page then release the page. */
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("\tDPM_delete:  page %d is empty and about to be released from relation %d\n",
+			 window->win_page, rpb->rpb_relation->rel_id);
+#endif
+
+/* Make sure that the pointer page is written after the data page.
+   The resulting 'must-be-written-after' graph is:
+      pip --> pp --> deallocated page --> prior_page */
+	CCH_precedence(tdbb, &pwindow, window->win_page);
+
+	CCH_MARK(tdbb, &pwindow);
+	ppage->ppg_page[slot] = 0;
+
+	for (ptr = &ppage->ppg_page[ppage->ppg_count]; ptr > ppage->ppg_page;
+		 --ptr) if (ptr[-1])
+			break;
+
+	ppage->ppg_count = count = ptr - ppage->ppg_page;
+	if (count)
+		count--;
+	ppage->ppg_min_space = MIN(ppage->ppg_min_space, count);
+	relation = rpb->rpb_relation;
+	relation->rel_slot_space = MIN(relation->rel_slot_space, pp_sequence);
+	if (relation->rel_data_pages)
+		--relation->rel_data_pages;
+
+/* If journalling is enabled, make of note */
+
+	if (dbb->dbb_wal) {
+		journal.jrnp_type = JRNP_POINTER_SLOT;
+		journal.jrnp_index = slot;
+		journal.jrnp_length = 0;
+		CCH_journal_record(tdbb, &pwindow, (UCHAR*)&journal, JRNP_SIZE, NULL_PTR, 0);
+	}
+
+	CCH_RELEASE(tdbb, &pwindow);
+	CCH_RELEASE(tdbb, window);
+
+/* Make sure that the page inventory page is written after the pointer page.
+   Earlier, we make sure that the pointer page is written after the data
+   page being released. */
+	PAG_release_page(window->win_page, pwindow.win_page);
+}
+
+
+void DPM_delete_relation( TDBB tdbb, REL relation)
+{
+/**************************************
+ *
+ *	D P M _ d e l e t e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of an unloved, unwanted relation.
+ *
+ **************************************/
+	DBB dbb;
+	USHORT sequence, i;
+	WIN window, data_window;
+	DPG dpage;
+	PPG ppage;
+	BLK handle;
+	UCHAR *flags, pag_flags;
+	SLONG *page;
+	RHD header;
+	struct dpg_repeat *line, *end_line;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	window.win_flags = data_window.win_flags = WIN_large_scan;
+	window.win_scans = data_window.win_scans = 1;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("DPM_delete_relation (relation %d)\n", relation->rel_id);
+#endif
+
+/* Delete all data and pointer pages */
+
+	for (sequence = 0; TRUE; sequence++)
+	{
+		ppage = get_pointer_page(tdbb, relation, &window, sequence, LCK_read);
+		if (!ppage)
+		{
+			 BUGCHECK(246);	/* msg 246 pointer page lost from DPM_delete_relation */
+		}
+		page = ppage->ppg_page;
+		flags = (UCHAR *) (ppage->ppg_page + dbb->dbb_dp_per_pp);
+		for (i = 0; i < ppage->ppg_count; i++, page++)
+		{
+			if (!*page) {
+				continue;
+			}
+			if (flags[i >> 2] & (2 << ((i & 3) << 1)))
+			{
+				data_window.win_page = *page;
+				dpage =
+					(DPG) CCH_FETCH(tdbb, &data_window, LCK_write, pag_data);
+				line = dpage->dpg_rpt;
+				end_line = line + dpage->dpg_count;
+				for (; line < end_line; line++)
+				{
+					if (line->dpg_length)
+					{
+						header = (RHD) ((UCHAR *) dpage + line->dpg_offset);
+						if (header->rhd_flags & rhd_large)
+						{
+							delete_tail(tdbb, (RHDF)header, line->dpg_length);
+						}
+					}
+				}
+				CCH_RELEASE_TAIL(tdbb, &data_window);
+			}
+			PAG_release_page(*page, 0);
+		}
+		pag_flags = ppage->ppg_header.pag_flags;
+		CCH_RELEASE_TAIL(tdbb, &window);
+		PAG_release_page(window.win_page, 0);
+		if (pag_flags & ppg_eof)
+		{
+			break;
+		}
+	}
+
+	ALL_RELEASE(relation->rel_pages);
+	relation->rel_pages = NULL;
+	relation->rel_data_pages = 0;
+
+/* Now get rid of the index root page */
+
+	PAG_release_page(relation->rel_index_root, 0);
+	relation->rel_index_root = 0;
+
+/* Next, cancel out stuff from RDB$PAGES */
+
+	handle = NULL;
+
+	FOR(REQUEST_HANDLE handle) X IN RDB$PAGES WITH
+		X.RDB$RELATION_ID EQ relation->rel_id ERASE X;
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)handle);
+	CCH_flush(tdbb, (USHORT) FLUSH_ALL, 0);
+}
+
+
+BOOLEAN DPM_fetch(TDBB tdbb, register RPB * rpb, USHORT lock)
+{
+/**************************************
+ *
+ *	D P M _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a particular record fragment from page and line numbers.
+ *	Get various header stuff, but don't change the record number.
+ *
+ *	return: TRUE if the fragment is returned.
+ *		FALSE if the fragment is not found.
+ *
+ **************************************/
+	SLONG number;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS)
+		ib_printf("DPM_fetch (rpb %d, lock %d)\n", rpb->rpb_number, lock);
+	if (debug_flag > DEBUG_READS_INFO)
+		ib_printf("    record %d:%d\n", rpb->rpb_page, rpb->rpb_line);
+#endif
+
+	number = rpb->rpb_number;
+	rpb->rpb_window.win_page = rpb->rpb_page;
+	CCH_FETCH(tdbb, &rpb->rpb_window, lock, pag_data);
+
+	if (!get_header(&rpb->rpb_window, rpb->rpb_line, rpb)) {
+		CCH_RELEASE(tdbb, &rpb->rpb_window);
+		return FALSE;
+	}
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS_INFO)
+		ib_printf
+			("    record  %d:%d transaction %d back %d:%d fragment %d:%d flags %d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_b_page, rpb->rpb_b_line, rpb->rpb_f_page,
+			 rpb->rpb_f_line, rpb->rpb_flags);
+#endif
+	rpb->rpb_number = number;
+
+	return TRUE;
+}
+
+
+SSHORT DPM_fetch_back(TDBB tdbb,
+					  register RPB * rpb, USHORT lock, SSHORT latch_wait)
+{
+/**************************************
+ *
+ *	D P M _ f e t c h _ b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Chase a backpointer with a handoff.
+ *
+ * input:
+ *      latch_wait:     1 => Wait as long as necessary to get the latch.
+ *                              This can cause deadlocks of course.
+ *                      0 => If the latch can't be acquired immediately,
+ *                              give up and return 0.
+ *                      <negative number> => Latch timeout interval in seconds.
+ *
+ * return:
+ *	1:	fetch back was successful.
+ *	0:	unsuccessful (only possible is latch_wait <> 1),
+ *			The latch timed out.
+ *			The latch on the fetched page is downgraded to shared.
+ *			The fetched page is unmarked.
+ *
+ **************************************/
+	SLONG number;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS)
+	{
+		ib_printf("DPM_fetch_back (rpb %d, lock %d)\n", rpb->rpb_number,
+				  lock);
+	}
+	if (debug_flag > DEBUG_READS_INFO)
+	{
+		ib_printf("    record  %d:%d transaction %d back %d:%d\n",
+				  rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+				  rpb->rpb_b_page, rpb->rpb_b_line);
+	}
+#endif
+
+/* Possibly allow a latch timeout to occur.  Return error if that is the case. */
+
+	if (!(CCH_HANDOFF_TIMEOUT(tdbb,
+								&rpb->rpb_window,
+								rpb->rpb_b_page,
+								lock,
+								pag_data,
+								latch_wait)))
+	{
+		return 0;
+	}
+
+	number = rpb->rpb_number;
+	rpb->rpb_page = rpb->rpb_b_page;
+	rpb->rpb_line = rpb->rpb_b_line;
+	if (!get_header(&rpb->rpb_window, rpb->rpb_line, rpb))
+	{
+		CCH_RELEASE(tdbb, &rpb->rpb_window);
+		BUGCHECK(291);			/* msg 291 cannot find record back version */
+	}
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS_INFO)
+	{
+		ib_printf("    record fetched  %d:%d transaction %d back %d:%d fragment %d:%d flags %d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_b_page, rpb->rpb_b_line, rpb->rpb_f_page,
+			 rpb->rpb_f_line, rpb->rpb_flags);
+	}
+#endif
+
+
+	rpb->rpb_number = number;
+
+	return 1;
+}
+
+
+void DPM_fetch_fragment( TDBB tdbb, register RPB * rpb, USHORT lock)
+{
+/**************************************
+ *
+ *	D P M _ f e t c h _f r a g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Chase a fragment pointer with a handoff.
+ *
+ **************************************/
+	SLONG number;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS)
+		ib_printf("DPM_fetch_fragment (rpb %d, lock %d)\n", rpb->rpb_number,
+				  lock);
+	if (debug_flag > DEBUG_READS_INFO)
+		ib_printf("    record  %d:%d transaction %d back %d:%d\n",
+				  rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+				  rpb->rpb_b_page, rpb->rpb_b_line);
+#endif
+
+	number = rpb->rpb_number;
+	rpb->rpb_page = rpb->rpb_f_page;
+	rpb->rpb_line = rpb->rpb_f_line;
+	CCH_HANDOFF(tdbb, &rpb->rpb_window, rpb->rpb_page, lock, pag_data);
+
+	if (!get_header(&rpb->rpb_window, rpb->rpb_line, rpb)) {
+		CCH_RELEASE(tdbb, &rpb->rpb_window);
+		BUGCHECK(248);			/* msg 248 cannot find record fragment */
+	}
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS_INFO)
+		ib_printf
+			("    record fetched  %d:%d transaction %d back %d:%d fragment %d:%d flags %d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_b_page, rpb->rpb_b_line, rpb->rpb_f_page,
+			 rpb->rpb_f_line, rpb->rpb_flags);
+#endif
+	rpb->rpb_number = number;
+}
+
+
+SINT64 DPM_gen_id(TDBB tdbb, SLONG generator, USHORT initialize, SINT64 val)
+{
+/**************************************
+ *
+ *	D P M _ g e n _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate relation specific value.
+ *      If initialize is set then value of generator is made 
+ *      equal to val else generator is incremented by val. 
+ *      The resulting value is the result of the function.
+ **************************************/
+	DBB dbb;
+	GPG page;
+	WIN window;
+	VCL vector;
+	USHORT sequence, offset;
+	SINT64 value, *ptr;
+	SLONG *lptr;
+	JRNG journal;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("DPM_gen_id (generator %d, val %" QUADFORMAT "d)\n",
+				  generator, val);
+#endif
+
+	sequence = generator / dbb->dbb_pcontrol->pgc_gpg;
+	offset = generator % dbb->dbb_pcontrol->pgc_gpg;
+
+	if (!(vector = dbb->dbb_gen_id_pages) ||
+		(sequence >= vector->vcl_count) || !(vector->vcl_long[sequence])) {
+		DPM_scan_pages(tdbb);
+		if (!(vector = dbb->dbb_gen_id_pages) ||
+			(sequence >= vector->vcl_count) || !(vector->vcl_long[sequence])) {
+			page = (GPG) DPM_allocate(tdbb, &window);
+			page->gpg_header.pag_type = pag_ids;
+			page->gpg_sequence = sequence;
+			CCH_must_write(&window);
+			CCH_RELEASE(tdbb, &window);
+			DPM_pages(tdbb, 0, pag_ids, (ULONG) sequence, window.win_page);
+			if (!(vector = dbb->dbb_gen_id_pages)) {
+				vector = dbb->dbb_gen_id_pages =
+					(VCL) ALLOCPV(type_vcl, sequence + 1);
+				vector->vcl_count = sequence + 1;
+			}
+			else if (sequence >= vector->vcl_count)
+			{
+				vector = (VCL)ALL_extend((BLK*)&dbb->dbb_gen_id_pages, sequence + 1);
+			}
+			vector->vcl_long[sequence] = window.win_page;
+		}
+	}
+
+	window.win_page = vector->vcl_long[sequence];
+	window.win_flags = 0;
+#ifdef READONLY_DATABASE
+	if (dbb->dbb_flags & DBB_read_only)
+		page = (GPG) CCH_FETCH(tdbb, &window, LCK_read, pag_ids);
+	else
+		page = (GPG) CCH_FETCH(tdbb, &window, LCK_write, pag_ids);
+#else
+	page = (GPG) CCH_FETCH(tdbb, &window, LCK_write, pag_ids);
+#endif /* READONLY_DATABASE */
+
+/*  If we are in ODS >= 10, then we have a pointer to an int64 value in the
+ *  generator page: if earlier than 10, it's a pointer to a long value.
+ *  Pick up the right kind of pointer, based on the ODS version.
+ *  The conditions were commented out 1999-05-14 by ChrisJ, because we
+ *  decided that the V6 engine would only access an ODS-10 database.
+ *  (and uncommented 2000-05-05, also by ChrisJ, when minds changed.)
+ */
+	if (dbb->dbb_ods_version >= ODS_VERSION10)
+		ptr = ((SINT64 *) (page->gpg_values)) + offset;
+	else
+		lptr = ((SLONG *) (((PPG) page)->ppg_page)) + offset;
+
+	if (val || initialize) {
+#ifdef READONLY_DATABASE
+		if (dbb->dbb_flags & DBB_read_only)
+			ERR_post(isc_read_only_database, 0);
+#endif /* READONLY_DATABASE */
+		CCH_MARK(tdbb, &window);
+
+		/* Initialize or increment the quad value in an ODS 10 or later
+		 * generator page, or the long value in ODS <= 9.
+		 * The conditions were commented out 1999-05-14 by ChrisJ, because we
+		 * decided that the V6 engine would only access an ODS-10 database.
+		 * (and uncommented 2000-05-05, also by ChrisJ, when minds changed.)
+		 */
+		if (dbb->dbb_ods_version >= ODS_VERSION10)
+			if (initialize)
+				*ptr = val;
+			else
+				*ptr += val;
+		else if (initialize)
+			*lptr = (SLONG) val;
+		else
+			*lptr += (SLONG) val;
+
+		if (dbb->dbb_wal) {
+	/******* MAKE journalling logical  *******/
+			journal.jrng_type = JRNP_GENERATOR;
+			journal.jrng_offset = offset;
+			journal.jrng_genval = *ptr;
+			CCH_journal_record(tdbb, &window, (UCHAR*)&journal, JRNG_SIZE, NULL_PTR,
+							   0);
+		}
+
+		if (tdbb->tdbb_transaction)
+			tdbb->tdbb_transaction->tra_flags |= TRA_write;
+	}
+
+/*  If we are in ODS >= 10, then we have a pointer to an int64 value in the
+ *  generator page: if earlier than 10, it's a pointer to a long value.
+ *  We always want to return an int64, so convert the long value from the
+ *  old ODS into an int64.
+ * The conditions were commented out 1999-05-14 by ChrisJ, because we
+ * decided that the V6 engine would only access an ODS-10 database.
+ * (and uncommented 2000-05-05, also by ChrisJ, when minds changed.)
+ */
+	if (dbb->dbb_ods_version >= ODS_VERSION10)
+		value = *ptr;
+	else
+		value = (SINT64) * lptr;
+
+	CCH_RELEASE(tdbb, &window);
+
+	return value;
+}
+
+
+int DPM_get( TDBB tdbb, register RPB * rpb, SSHORT lock_type)
+{
+/**************************************
+ *
+ *	D P M _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a specific record in a relation.  If it doesn't exit,
+ *	just return false.
+ *
+ **************************************/
+	DBB dbb;
+	SLONG sequence, page_number;
+	USHORT pp_sequence;
+	register WIN *window;
+	register PPG page;
+	SSHORT slot, line;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS)
+		ib_printf("DPM_get (rpb %d, lock type %d)\n", rpb->rpb_number,
+				  lock_type);
+#endif
+
+	window = &rpb->rpb_window;
+	rpb->rpb_prior = NULL;
+
+/* Find starting point */
+
+	DECOMPOSE(rpb->rpb_number, dbb->dbb_max_records, sequence, line);
+	DECOMPOSE(sequence, dbb->dbb_dp_per_pp, pp_sequence, slot);
+
+/* Check if the record number is OK */
+
+	if ((slot < 0) || (line < 0))
+		return FALSE;
+
+/* Find the next pointer page, data page, and record */
+
+	if (!
+		(page =
+		 get_pointer_page(tdbb, rpb->rpb_relation, window, pp_sequence,
+						  LCK_read))) return FALSE;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS_INFO)
+		ib_printf("    record  %d:%d\n", page->ppg_page[slot], line);
+#endif
+
+	if (page_number = page->ppg_page[slot]) {
+		CCH_HANDOFF(tdbb, window, page_number, lock_type, pag_data);
+		if (get_header(window, line, rpb) &&
+			!(rpb->rpb_flags & (rpb_blob | rpb_chained | rpb_fragment)))
+			return TRUE;
+	}
+
+	CCH_RELEASE(tdbb, window);
+
+	return FALSE;
+}
+
+
+ULONG DPM_get_blob(TDBB tdbb,
+				   BLB blob,
+				   ULONG record_number, USHORT delete_flag, SLONG prior_page)
+{
+/**************************************
+ *
+ *	D P M _ g e t _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a blob block, find the associated blob.  If blob is level 0,
+ *	get the data clump, otherwise get the vector of pointers.  
+ *
+ *	If the delete flag is set, delete the blob header after access
+ *	and return the page number.  This is a kludge, but less code
+ *	a completely separate delete blob call.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment;
+	SLONG sequence, page_number;
+	USHORT pp_sequence;
+	register DPG page;
+	PPG ppage;
+	BLH header;
+	USHORT length, slot, line;
+	VCL vector;
+	UCHAR *p, *q;
+	RPB rpb;
+	struct dpg_repeat *index;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+	rpb.rpb_window.win_flags = WIN_secondary;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS)
+		ib_printf
+			("DPM_get_blob (blob, record_number %d, delete_flag %d, prior_page %d)\n",
+			 record_number, delete_flag, prior_page);
+#endif
+
+/* Find starting point */
+
+	DECOMPOSE(record_number, dbb->dbb_max_records, sequence, line);
+	DECOMPOSE(sequence, dbb->dbb_dp_per_pp, pp_sequence, slot);
+
+/* Find the next pointer page, data page, and record.  If the page or
+   record doesn't exist, or the record isn't a blob, give up and
+   let somebody else complain.  */
+
+	if (!(ppage = get_pointer_page(tdbb, blob->blb_relation, &rpb.rpb_window,
+								   pp_sequence, LCK_read))) {
+		blob->blb_flags |= BLB_damaged;
+		return NULL;
+	}
+
+	if (!(page_number = ppage->ppg_page[slot]))
+	{
+		goto punt;
+	}
+
+	page = (DPG) CCH_HANDOFF(tdbb,
+							&rpb.rpb_window,
+							page_number,
+							(SSHORT)((delete_flag) ? LCK_write : LCK_read),
+							pag_data);
+	if (line >= page->dpg_count)
+		goto punt;
+
+	index = &page->dpg_rpt[line];
+	if (index->dpg_offset == 0)
+		goto punt;
+
+	header = (BLH) ((SCHAR *) page + index->dpg_offset);
+	if (!(header->blh_flags & rhd_blob))
+		goto punt;
+
+/* We've got the blob header and everything looks ducky.  Get the header
+   fields. */
+
+	blob->blb_lead_page = header->blh_lead_page;
+	blob->blb_max_sequence = header->blh_max_sequence;
+	blob->blb_count = header->blh_count;
+	blob->blb_length = header->blh_length;
+	blob->blb_max_segment = header->blh_max_segment;
+	blob->blb_level = header->blh_level;
+	blob->blb_sub_type = header->blh_sub_type;
+
+/* Unless this is the only attachment, don't allow the sequential scan
+   of very large blobs to flush pages used by other attachments. */
+
+	if ((attachment = tdbb->tdbb_attachment) &&
+		(attachment != dbb->dbb_attachments || attachment->att_next)) {
+		/* If the blob has more pages than the page buffer cache then mark
+		   it as large. If this is a database backup then mark any blob as
+		   large as the cumulative effect of scanning many small blobs is
+		   equivalent to scanning single large blobs. */
+
+		if (blob->blb_max_sequence > dbb->dbb_bcb->bcb_count ||
+			attachment->att_flags & ATT_gbak_attachment)
+			blob->blb_flags |= BLB_large_scan;
+	}
+
+	if (header->blh_flags & rhd_stream_blob)
+		blob->blb_flags |= BLB_stream;
+
+	if (header->blh_flags & rhd_damaged) {
+		blob->blb_flags |= BLB_damaged;
+		CCH_RELEASE(tdbb, &rpb.rpb_window);
+		return NULL;
+	}
+
+/* Retrieve the data either into page clump (level 0) or page vector (levels
+   1 and 2). */
+
+	length = index->dpg_length - BLH_SIZE;
+	q = (UCHAR *) header->blh_data;
+
+	if (blob->blb_level == 0) {
+		blob->blb_space_remaining = length;
+		p = blob->blb_data;
+		if (length)
+			MOVE_FASTER(q, p, length);
+	}
+	else {
+		if (!(vector = blob->blb_pages)) {
+			TRA transaction;
+
+			transaction = blob->blb_transaction;
+			vector = blob->blb_pages =
+				(VCL) ALLOCTV(type_vcl, blob->blb_max_pages);
+		}
+		vector->vcl_count = length / sizeof(SLONG);
+		MOVE_FASTER(q, vector->vcl_long, length);
+	}
+
+	if (!delete_flag) {
+		CCH_RELEASE(tdbb, &rpb.rpb_window);
+		return NULL;
+	}
+
+/* We've been asked (nicely) to delete the blob.  So do so. */
+
+	rpb.rpb_relation = blob->blb_relation;
+	rpb.rpb_page = rpb.rpb_window.win_page;
+	rpb.rpb_line = line;
+	DPM_delete(tdbb, &rpb, prior_page);
+	return rpb.rpb_page;
+
+  punt:
+
+	CCH_RELEASE(tdbb, &rpb.rpb_window);
+	blob->blb_flags |= BLB_damaged;
+	return NULL;
+}
+
+
+BOOLEAN DPM_next(TDBB tdbb,
+				 register RPB * rpb,
+				 USHORT lock_type, BOOLEAN backwards, BOOLEAN onepage)
+{
+/**************************************
+ *
+ *	D P M _ n e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next record in a stream.
+ *
+ **************************************/
+	DBB dbb;
+	SLONG sequence, page_number;
+	USHORT pp_sequence;
+	register WIN *window;
+	register PPG ppage;
+	register DPG dpage;
+	SSHORT slot, line, flags;
+	VCL vector;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS)
+		ib_printf("DPM_next (rpb %d)\n", rpb->rpb_number);
+#endif
+
+	window = &rpb->rpb_window;
+	if (window->win_flags & WIN_large_scan) {
+		/* Try to account for staggered execution of large sequential scans. */
+
+		window->win_scans =
+			rpb->rpb_relation->rel_scan_count - rpb->rpb_org_scans;
+		if (window->win_scans < 1)
+			window->win_scans = rpb->rpb_relation->rel_scan_count;
+	}
+	rpb->rpb_prior = NULL;
+
+/* Find starting point */
+
+	if (backwards) {
+		if (rpb->rpb_number > 0)
+			rpb->rpb_number--;
+		else if (rpb->rpb_number < 0) {
+			/*  if the stream was just opened, assume we want to start
+			   at the end of the stream, so compute the last theoretically 
+			   possible rpb_number and go down from there */
+	/** for now, we must force a scan to make sure that we get
+	    the last pointer page: this should be changed to use
+	    a coordination mechanism (probably using a shared lock)
+	    to keep apprised of when a pointer page gets added **/
+
+			DPM_scan_pages(tdbb);
+			if (!(vector = rpb->rpb_relation->rel_pages))
+				return FALSE;
+			pp_sequence = vector->vcl_count;
+			rpb->rpb_number =
+				(((SLONG)
+				  (pp_sequence * dbb->dbb_dp_per_pp) * dbb->dbb_max_records) -
+				 1);
+			line = dbb->dbb_max_records - 1;
+		}
+		else
+			return FALSE;
+	}
+	else
+		rpb->rpb_number++;
+
+	DECOMPOSE(rpb->rpb_number, dbb->dbb_max_records, sequence, line);
+	DECOMPOSE(sequence, dbb->dbb_dp_per_pp, pp_sequence, slot);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS_INFO)
+		ib_printf("    pointer, slot, and line  %d:%d%d\n", pp_sequence, slot,
+				  line);
+#endif
+
+/* Find the next pointer page, data page, and record */
+
+	while (TRUE) {
+		if (!
+			(ppage =
+			 get_pointer_page(tdbb, rpb->rpb_relation, window, pp_sequence,
+							  LCK_read))) BUGCHECK(249);	/* msg 249 pointer page vanished from DPM_next */
+		if (backwards && slot >= ppage->ppg_count)
+			slot = ppage->ppg_count - 1;
+		for (; slot >= 0 && slot < ppage->ppg_count;) {
+			if (page_number = ppage->ppg_page[slot]) {
+#ifdef SUPERSERVER_V2
+				/* Perform sequential prefetch of relation's data pages.
+				   This may need more work for scrollable cursors. */
+
+				if (!onepage && !line && !backwards) {
+					USHORT slot2, i;
+					SLONG pages[PREFETCH_MAX_PAGES + 1];
+
+					if (!(slot % dbb->dbb_prefetch_sequence)) {
+						slot2 = slot;
+						for (i = 0;
+							 i < dbb->dbb_prefetch_pages
+							 && slot2 < ppage->ppg_count;) pages[i++] =
+								ppage->ppg_page[slot2++];
+
+						/* If no more data pages, piggyback next pointer page. */
+
+						if (slot2 >= ppage->ppg_count)
+							pages[i++] = ppage->ppg_next;
+
+						CCH_PREFETCH(tdbb, pages, i);
+					}
+				}
+#endif
+				dpage =
+					(DPG) CCH_HANDOFF(tdbb, window, page_number, lock_type,
+									  pag_data);
+				if (backwards && line >= dpage->dpg_count)
+					line = dpage->dpg_count - 1;
+
+				for (; line >= 0 && line < dpage->dpg_count;
+					 backwards ? line-- : line++)
+					if (get_header(window, line, rpb)
+						&& !(rpb->
+							 rpb_flags & (rpb_blob | rpb_chained |
+										  rpb_fragment))) {
+						rpb->rpb_number =
+							(((SLONG) pp_sequence * dbb->dbb_dp_per_pp) +
+							 slot) * dbb->dbb_max_records + line;
+						return TRUE;
+					}
+
+				/* Prevent large relations from emptying cache. When scrollable
+				   cursors are surfaced, this logic may need to be revisited. */
+
+				if (window->win_flags & WIN_large_scan)
+					CCH_RELEASE_TAIL(tdbb, window);
+				else if (window->win_flags & WIN_garbage_collector &&
+						 window->win_flags & WIN_garbage_collect) {
+					CCH_RELEASE_TAIL(tdbb, window);
+					window->win_flags &= ~WIN_garbage_collect;
+				}
+				else
+					CCH_RELEASE(tdbb, window);
+
+				if (onepage)
+					return FALSE;
+
+				if (!
+					(ppage =
+					 get_pointer_page(tdbb, rpb->rpb_relation, window,
+									  pp_sequence, LCK_read))) BUGCHECK(249);	/* msg 249 pointer page vanished from DPM_next */
+			}
+
+			if (onepage) {
+				CCH_RELEASE(tdbb, window);
+				return FALSE;
+			}
+
+			if (backwards) {
+				slot--;
+				line = dbb->dbb_max_records - 1;
+			}
+			else {
+				slot++;
+				line = 0;
+			}
+		}
+
+		flags = ppage->ppg_header.pag_flags;
+		if (backwards) {
+			pp_sequence--;
+			slot = ppage->ppg_count - 1;
+			line = dbb->dbb_max_records - 1;
+		}
+		else {
+			pp_sequence++;
+			slot = 0;
+			line = 0;
+		}
+
+		if (window->win_flags & WIN_large_scan)
+			CCH_RELEASE_TAIL(tdbb, window);
+		else
+			CCH_RELEASE(tdbb, window);
+		if (flags & ppg_eof || onepage)
+			return FALSE;
+	}
+}
+
+
+void DPM_pages(
+			   TDBB tdbb, SSHORT rel_id, int type, ULONG sequence, SLONG page)
+{
+/**************************************
+ *
+ *	D P M _ p a g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a record in RDB$PAGES.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("DPM_pages (rel_id %d, type %d, sequence %d, page %d)\n",
+				  rel_id, type, sequence, page);
+#endif
+
+	request = (BLK) CMP_find_request(tdbb, irq_s_pages, IRQ_REQUESTS);
+
+	STORE(REQUEST_HANDLE request)
+		X IN RDB$PAGES X.RDB$RELATION_ID = rel_id;
+		X.RDB$PAGE_TYPE = type;
+		X.RDB$PAGE_SEQUENCE = sequence;
+		X.RDB$PAGE_NUMBER = page;
+	END_STORE
+
+	if (!REQUEST(irq_s_pages))
+		REQUEST(irq_s_pages) = request;
+}
+
+
+#ifdef SUPERSERVER_V2
+SLONG DPM_prefetch_bitmap(TDBB tdbb, REL relation, SBM bitmap, SLONG number)
+{
+/**************************************
+ *
+ *	D P M _ p r e f e t c h _ b i t m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a vector of corresponding data page
+ *	numbers from a bitmap of relation record numbers.
+ *	Return the bitmap record number of where we left
+ *	off.
+ *
+ **************************************/
+	DBB dbb;
+	SLONG dp_sequence, prefetch_number;
+	USHORT pp_sequence, i;
+	SSHORT line, slot;
+	WIN window;
+	PPG ppage;
+	SLONG pages[PREFETCH_MAX_PAGES];
+
+	SET_TDBB(tdbb);
+
+/* Empty and singular bitmaps aren't worth prefetch effort. */
+
+	if (!bitmap || bitmap->sbm_state != SBM_PLURAL)
+		return number;
+
+	dbb = tdbb->tdbb_database;
+	window.win_flags = 0;
+
+	for (i = 0; i < dbb->dbb_prefetch_pages;) {
+		DECOMPOSE(number, dbb->dbb_max_records, dp_sequence, line);
+		DECOMPOSE(dp_sequence, dbb->dbb_dp_per_pp, pp_sequence, slot);
+
+		if (!
+			(ppage =
+			 get_pointer_page(tdbb, relation, &window, pp_sequence, LCK_read))) BUGCHECK(249);	/* msg 249 pointer page vanished from DPM_prefetch_bitmap */
+		pages[i] = (slot >= 0
+					&& slot < ppage->ppg_count) ? ppage->ppg_page[slot] : 0;
+		CCH_RELEASE(tdbb, &window);
+
+		if (i++ < dbb->dbb_prefetch_sequence)
+			prefetch_number = number;
+		number = ((dp_sequence + 1) * dbb->dbb_max_records) - 1;
+		if (!SBM_next(bitmap, &number, RSE_get_forward))
+			break;
+	}
+
+	CCH_PREFETCH(tdbb, pages, i);
+	return prefetch_number;
+}
+#endif
+
+
+void DPM_scan_pages( TDBB tdbb)
+{
+/**************************************
+ *
+ *	D P M _ s c a n _ p a g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Scan RDB$PAGES.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	REL relation;
+	VCL *address, vector;
+	WIN window;
+	PPG ppage;
+	int n, sequence;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("DPM_scan_pages ()\n");
+#endif
+
+/* Special case update of RDB$PAGES pointer page vector to avoid
+   infinite recursion from this internal request when RDB$PAGES
+   has been extended with another pointer page. */
+
+	relation = MET_relation(tdbb, 0);
+	address = &relation->rel_pages;
+	vector = *address;
+	sequence = vector->vcl_count - 1;
+	window.win_page = vector->vcl_long[sequence];
+	window.win_flags = 0;
+	ppage = (PPG) CCH_FETCH(tdbb, &window, LCK_read, pag_pointer);
+
+	while (ppage->ppg_next) {
+		++sequence;
+		vector = (VCL) ALL_extend((BLK*)address, sequence + 1);
+		vector->vcl_long[sequence] = ppage->ppg_next;
+		ppage =
+			(PPG) CCH_HANDOFF(tdbb, &window, ppage->ppg_next, LCK_read,
+							  pag_pointer);
+	}
+
+	CCH_RELEASE(tdbb, &window);
+
+	request = (BLK) CMP_find_request(tdbb, irq_r_pages, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request) X IN RDB$PAGES
+
+		if (!REQUEST(irq_r_pages))
+			REQUEST(irq_r_pages) = request;
+		relation = MET_relation(tdbb, X.RDB$RELATION_ID);
+		sequence = X.RDB$PAGE_SEQUENCE;
+		switch (X.RDB$PAGE_TYPE) {
+		case pag_root:
+			relation->rel_index_root = X.RDB$PAGE_NUMBER;
+			continue;
+
+		case pag_pointer:
+			address = &relation->rel_pages;
+			break;
+
+		case pag_transactions:
+			address = &dbb->dbb_t_pages;
+			break;
+
+		case pag_ids:
+			address = &dbb->dbb_gen_id_pages;
+			break;
+
+		default:
+			CORRUPT(257);		/* msg 257 bad record in RDB$PAGES */
+		}
+		n = sequence + 1;
+		if (!(vector = *address)) {
+			vector = *address = (VCL) ALLOCPV(type_vcl, n);
+			vector->vcl_count = n;
+		}
+		else if (sequence >= vector->vcl_count)
+			vector = (VCL) ALL_extend((BLK*)address, n);
+		vector->vcl_long[sequence] = X.RDB$PAGE_NUMBER;
+	END_FOR;
+
+	if (!REQUEST(irq_r_pages))
+		REQUEST(irq_r_pages) = request;
+}
+
+
+void DPM_store( TDBB tdbb, register RPB * rpb, LLS * stack, USHORT type)
+{
+/**************************************
+ *
+ *	D P M _ s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a new record in a relation.  If we can put it on a
+ *	specific page, so much the better.
+ *
+ **************************************/
+	DBB dbb;
+	register RHD header;
+	struct dcc dcc;
+	UCHAR *p;
+	SLONG fill, length;			/* Accomodate max record size i.e. 64K */
+	USHORT size;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("DPM_store (rpb %d, stack, type %d)\n", rpb->rpb_number,
+				  type);
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("    record to store %d:%d transaction %d back %d:%d fragment %d:%d flags %d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_b_page, rpb->rpb_b_line, rpb->rpb_f_page,
+			 rpb->rpb_f_line, rpb->rpb_flags);
+#endif
+
+	size = SQZ_length(tdbb, rpb->rpb_address, (int) rpb->rpb_length, &dcc);
+
+/* If the record isn't going to fit on a page, even if fragmented,
+   handle it a little differently. */
+
+	if (size > dbb->dbb_page_size - (sizeof(struct dpg) + RHD_SIZE)) {
+		store_big_record(tdbb, rpb, stack, &dcc, size);
+		return;
+	}
+
+	fill = (RHDF_SIZE - RHD_SIZE) - size;
+	if (fill < 0)
+		fill = 0;
+
+	length = RHD_SIZE + size + fill;
+	header = locate_space(tdbb, rpb, (SSHORT)length, stack, NULL_PTR, type);
+
+	header->rhd_flags = rpb->rpb_flags;
+	header->rhd_transaction = rpb->rpb_transaction;
+	header->rhd_format = rpb->rpb_format_number;
+	header->rhd_b_page = rpb->rpb_b_page;
+	header->rhd_b_line = rpb->rpb_b_line;
+
+	SQZ_fast(&dcc, rpb->rpb_address, header->rhd_data);
+	release_dcc(dcc.dcc_next);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("    record %d:%d, length %d, rpb_flags %d, f_page %d:%d, b_page %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, length, rpb->rpb_flags,
+			 rpb->rpb_f_page, rpb->rpb_f_line, rpb->rpb_b_page,
+			 rpb->rpb_b_line);
+#endif
+
+	if (fill) {
+		p = header->rhd_data + size;
+		do
+			*p++ = 0;
+		while (--fill);
+	}
+
+	if (dbb->dbb_wal)
+		journal_segment(tdbb, &rpb->rpb_window, rpb->rpb_line);
+
+	CCH_RELEASE(tdbb, &rpb->rpb_window);
+}
+
+
+SLONG DPM_store_blob(TDBB tdbb, BLB blob, REC record)
+{
+/**************************************
+ *
+ *	D P M _ s t o r e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a blob on a data page.  Not so hard, all in all.
+ *
+ **************************************/
+	DBB dbb;
+	RPB rpb;
+	BLH header;
+	USHORT length;
+	SLONG *ptr, *end;
+	UCHAR *p, *q;
+	VCL vector;
+	DPG page;
+	LLS stack;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+	rpb.rpb_window.win_flags = 0;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("DPM_store_blob (blob, record)\n");
+#endif
+
+/* Figure out length of blob on page.  Remember that blob can either
+   be a clump of data or a vector of page pointers. */
+
+	if (blob->blb_level == 0) {
+		length = blob->blb_clump_size - blob->blb_space_remaining;
+		q = (UCHAR *) ((BLP) blob->blb_data)->blp_data;
+	}
+	else {
+		vector = blob->blb_pages;
+		length = vector->vcl_count * sizeof(SLONG);
+		q = (UCHAR *) vector->vcl_long;
+	}
+
+/* Figure out precedence pages, if any */
+
+	stack = NULL;
+
+	if (blob->blb_level > 0)
+		for (ptr = vector->vcl_long, end = ptr + vector->vcl_count;
+			 ptr < end;) LLS_PUSH((BLK) * ptr++, &stack);
+
+/* Locate space to store blob */
+
+	rpb.rpb_relation = blob->blb_relation;
+	header = (BLH) locate_space(tdbb,
+								&rpb,
+								(SSHORT)(BLH_SIZE + length),
+								&stack,
+								record,
+								DPM_other);
+	header->blh_flags = rhd_blob;
+
+	if (blob->blb_flags & BLB_stream)
+		header->blh_flags |= rhd_stream_blob;
+
+	if (blob->blb_level)
+		header->blh_flags |= rhd_large;
+
+	header->blh_lead_page = blob->blb_lead_page;
+	header->blh_max_sequence = blob->blb_max_sequence;
+	header->blh_count = blob->blb_count;
+	header->blh_max_segment = blob->blb_max_segment;
+	header->blh_length = blob->blb_length;
+	header->blh_level = blob->blb_level;
+	header->blh_sub_type = blob->blb_sub_type;
+	p = (UCHAR *) header->blh_data;
+
+	if (length)
+		MOVE_FASTER(q, p, length);
+
+	if (dbb->dbb_wal)
+		journal_segment(tdbb, &rpb.rpb_window, rpb.rpb_line);
+
+	page = (DPG) rpb.rpb_window.win_buffer;
+	if (blob->blb_level && !(page->dpg_header.pag_flags & dpg_large)) {
+		page->dpg_header.pag_flags |= dpg_large;
+		mark_full(tdbb, &rpb);
+	}
+	else
+		CCH_RELEASE(tdbb, &rpb.rpb_window);
+
+	return rpb.rpb_number;
+}
+
+
+void DPM_rewrite_header( TDBB tdbb, RPB * rpb)
+{
+/**************************************
+ *
+ *	D P M _ r e w r i t e _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Re-write benign fields in record header.  This is mostly used
+ *	to purge out old versions.
+ *
+ **************************************/
+	DBB dbb;
+	RHD header;
+	WIN *window;
+	DPG page;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("DPM_rewrite_header (rpb %d)\n", rpb->rpb_number);
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf("    record  %d:%d\n", rpb->rpb_page, rpb->rpb_line);
+#endif
+
+	window = &rpb->rpb_window;
+	page = (DPG) window->win_buffer;
+	header = (RHD) ((SCHAR *) page + page->dpg_rpt[rpb->rpb_line].dpg_offset);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO) {
+		ib_printf
+			("    old flags %d, old transaction %d, old format %d, old back record %d:%d\n",
+			 header->rhd_flags, header->rhd_transaction, header->rhd_format,
+			 header->rhd_b_page, header->rhd_b_line);
+		ib_printf
+			("    new flags %d, new transaction %d, new format %d, new back record %d:%d\n",
+			 rpb->rpb_flags, rpb->rpb_transaction, rpb->rpb_format_number,
+			 rpb->rpb_b_page, rpb->rpb_b_line);
+	}
+#endif
+
+	header->rhd_flags = rpb->rpb_flags;
+	header->rhd_transaction = rpb->rpb_transaction;
+	header->rhd_format = rpb->rpb_format_number;
+	header->rhd_b_page = rpb->rpb_b_page;
+	header->rhd_b_line = rpb->rpb_b_line;
+	if (dbb->dbb_wal)
+		journal_segment(tdbb, &rpb->rpb_window, rpb->rpb_line);
+}
+
+
+void DPM_update( TDBB tdbb, register RPB * rpb, LLS * stack, TRA transaction)
+{
+/**************************************
+ *
+ *	D P M _ u p d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Replace an existing record.
+ *
+ **************************************/
+	DBB dbb;
+	RHD header;
+	DPG page;
+	struct dcc dcc;
+	UCHAR *p;
+	SLONG length, fill;			/* Accomodate max record size i.e. 64K */
+	USHORT size;
+	SSHORT top, offset, slot, available, space, old_length;
+	struct dpg_repeat *index, *end;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("DPM_update (rpb %d, stack, transaction %d)\n",
+				  rpb->rpb_number, transaction ? transaction->tra_number : 0);
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("    record %d:%d transaction %d back %d:%d fragment %d:%d flags %d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_b_page, rpb->rpb_b_line, rpb->rpb_f_page,
+			 rpb->rpb_f_line, rpb->rpb_flags);
+#endif
+
+/* Mark the page as modified, then figure out the compressed length of the
+   replacement record. */
+
+	DEBUG if (stack)
+		while (*stack)
+			CCH_precedence(tdbb, &rpb->rpb_window, (SLONG) LLS_POP(stack));
+
+	CCH_precedence(tdbb, &rpb->rpb_window, -rpb->rpb_transaction);
+	CCH_MARK(tdbb, &rpb->rpb_window);
+	page = (DPG) rpb->rpb_window.win_buffer;
+	size = SQZ_length(tdbb, rpb->rpb_address, (int) rpb->rpb_length, &dcc);
+
+/* It is critical that the record be padded, if necessary, to the length of
+   a fragmented record header.  Compute the amount of fill required.  */
+
+	fill = (RHDF_SIZE - RHD_SIZE) - size;
+	if (fill < 0)
+		fill = 0;
+
+	length = ROUNDUP(RHD_SIZE + size + fill, ODS_ALIGNMENT);
+	slot = rpb->rpb_line;
+
+/* Find space on page */
+
+	space = dbb->dbb_page_size;
+	top = HIGH_WATER(page->dpg_count);
+	available = dbb->dbb_page_size - top;
+	old_length = page->dpg_rpt[slot].dpg_length;
+	page->dpg_rpt[slot].dpg_length = 0;
+
+	for (index = page->dpg_rpt, end = index + page->dpg_count;
+		 index < end; index++)
+		if (offset = index->dpg_offset) {
+			available -= ROUNDUP(index->dpg_length, ODS_ALIGNMENT);
+			space = MIN(space, offset);
+		}
+
+	if (length > available) {
+		fragment(tdbb, rpb, available, &dcc, old_length, transaction);
+		return;
+	}
+
+	space -= length;
+	if (space < top)
+		space = DPM_compress(tdbb, page) - length;
+
+	page->dpg_rpt[slot].dpg_offset = space;
+	page->dpg_rpt[slot].dpg_length = RHD_SIZE + size + fill;
+
+	header = (RHD) ((SCHAR *) page + space);
+	header->rhd_flags = rpb->rpb_flags;
+	header->rhd_transaction = rpb->rpb_transaction;
+	header->rhd_format = rpb->rpb_format_number;
+	header->rhd_b_page = rpb->rpb_b_page;
+	header->rhd_b_line = rpb->rpb_b_line;
+
+	SQZ_fast(&dcc, rpb->rpb_address, header->rhd_data);
+	release_dcc(dcc.dcc_next);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("    record %d:%d, dpg_length %d, rpb_flags %d, rpb_f record %d:%d, rpb_b record %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, page->dpg_rpt[slot].dpg_length,
+			 rpb->rpb_flags, rpb->rpb_f_page, rpb->rpb_f_line,
+			 rpb->rpb_b_page, rpb->rpb_b_line);
+#endif
+
+	if (fill) {
+		p = header->rhd_data + size;
+		do
+			*p++ = 0;
+		while (--fill);
+	}
+
+	if (dbb->dbb_wal)
+		journal_segment(tdbb, &rpb->rpb_window, slot);
+
+	CCH_RELEASE(tdbb, &rpb->rpb_window);
+}
+
+
+static void delete_tail( TDBB tdbb, RHDF header, USHORT length)
+{
+/**************************************
+ *
+ *	d e l e t e _ t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete the tail of a large object.  This is called only from
+ *	DPM_delete_relation.
+ *
+ **************************************/
+	BLH blob;
+	USHORT flags;
+	WIN window;
+	DPG dpage;
+	BLP bpage;
+	SLONG page_number, *page1, *end1, *page2, *end2;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("delete_tail (header, length)\n");
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf("    transaction %d flags %d fragment %d:%d back %d:%d\n",
+				  header->rhdf_transaction, header->rhdf_flags,
+				  header->rhdf_f_page, header->rhdf_f_line,
+				  header->rhdf_b_page, header->rhdf_b_line);
+#endif
+
+	window.win_flags = WIN_large_scan;
+	window.win_scans = 1;
+
+/* If the object isn't a blob, things are a little simpler. */
+
+	if (!(header->rhdf_flags & rhd_blob)) {
+		page_number = header->rhdf_f_page;
+		while (TRUE) {
+			window.win_page = page_number;
+			dpage = (DPG) CCH_FETCH(tdbb, &window, LCK_read, pag_data);
+			header = (RHDF) ((UCHAR *) dpage + dpage->dpg_rpt[0].dpg_offset);
+			flags = header->rhdf_flags;
+			page_number = header->rhdf_f_page;
+			CCH_RELEASE_TAIL(tdbb, &window);
+			PAG_release_page(window.win_page, 0);
+			if (!(flags & rhd_incomplete))
+				break;
+		}
+		return;
+	}
+
+/* Object is a blob, and a big one at that */
+
+	blob = (BLH) header;
+	page1 = blob->blh_page;
+	end1 = page1 + (length - BLH_SIZE) / sizeof(SLONG);
+
+	for (; page1 < end1; page1++) {
+		if (blob->blh_level == 2) {
+			window.win_page = *page1;
+			bpage = (BLP) CCH_FETCH(tdbb, &window, LCK_read, pag_blob);
+			page2 = bpage->blp_page;
+			end2 = page2 + ((bpage->blp_length - BLP_SIZE) / sizeof(SLONG));
+			while (page2 < end2)
+				PAG_release_page(*page2++, 0);
+			CCH_RELEASE_TAIL(tdbb, &window);
+		}
+		PAG_release_page(*page1, 0);
+	}
+}
+
+
+static void fragment(
+					 TDBB tdbb,
+					 RPB * rpb,
+					 SSHORT available_space,
+					 DCC dcc, SSHORT length, TRA transaction)
+{
+/**************************************
+ *
+ *	f r a g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	DPM_update tried to replace a record on a page, but it doesn't
+ *	fit.  The record, obviously, needs to be fragmented.  Stick as
+ *	much as fits on the page and put the rest elsewhere (though not
+ *	in that order.
+ *
+ *	Doesn't sound so bad does it?
+ *
+ *	Little do you know.  The challenge is that we have to put the
+ *	head of the record in the designated page:line space and put
+ *	the tail on a different page.  To maintain on-disk consistency
+ *	we have to write the tail first.  But we don't want anybody
+ *	messing with the head until we get back, and, if possible, we'd
+ *	like to keep as much space on the original page as we can get.
+ *	Making matters worse, we may be storing a new version of the
+ *	record or we may be backing out an old one and replacing it 
+ *	with one older still (replacing a dead rolled back record with
+ *	the preceding version).
+ *
+ *	Here is the order of battle.   If we're creating a new version,
+ *	and the previous version is not a delta, we compress the page
+ *	and create a new record which claims all the available space
+ *	(but which contains garbage).  That record will have our transaction
+ *	id (so it won't be committed for anybody) and it will have legitimate
+ *	back pointers to the previous version.
+ *
+ *	If we're creating a new version and the previous version is a delta,
+ *	we leave the current version in place, putting our transaction id
+ *	on it.  We then point the back pointers to the delta version of the
+ *	same generation of the record, which will have the correct transaction
+ *	id.  Applying deltas to the expanded form of the same version of the
+ *	record is a no-op -- but it doesn't cost much and the case is rare.
+ *
+ *	If we're backing out a rolled back version, we've got another 
+ *	problem.  The rpb we've got is for record version n - 1, not version
+ *	n + 1.  (e.g. I'm transaction 32 removing the rolled back record
+ *	created by transaction 28 and reinstating the committed version
+ *	created by transaction 26.  The rpb I've got is for the record
+ *	written by transaction 26 -- the delta flag indicates whether the
+ *	version written by transaction 24 was a delta, the transaction id
+ *	is for a committed transaction, and the back pointers go back to
+ *	transaction 24's version.  So in that case, we slap our transaction
+ *	is on transaction 28's version (the one we'll be eliminating) and
+ *	don't change anything else.
+ *
+ *	In all cases, once the tail is written and safe, we come back to
+ *	the head, store the remaining data, fix up the record header and
+ *	everything is done.
+ *
+ **************************************/
+	DBB dbb;
+	DPG page;
+	WIN *window;
+	RPB tail_rpb;
+	SSHORT line, space;
+	USHORT pre_header_length, post_header_length;
+	RHDF header;
+	LLS stack;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf
+			("fragment (rpb %d, available_space %d, dcc, length %d, transaction %d)\n",
+			 rpb->rpb_number, available_space, length,
+			 transaction ? transaction->tra_number : 0);
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("    record %d:%d transaction %d back %d:%d fragment %d:%d flags %d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_b_page, rpb->rpb_b_line, rpb->rpb_f_page,
+			 rpb->rpb_f_line, rpb->rpb_flags);
+#endif
+
+/* Start by claiming what space exists on the page.  Note that
+   DPM_update has already set the length for this record to zero,
+   so we're all set for a compress. However, if the current
+   version was re-stored as a delta, or if we're restoring an
+   older version, we must preserve it here so
+   that others may reconstruct it during fragmentation of the
+   new version. */
+
+	window = &rpb->rpb_window;
+	page = (DPG) window->win_buffer;
+	line = rpb->rpb_line;
+
+	if (transaction->tra_number != rpb->rpb_transaction) {
+		header = (RHDF) ((SCHAR *) page + page->dpg_rpt[line].dpg_offset);
+		header->rhdf_transaction = transaction->tra_number;
+		header->rhdf_flags |= rhd_gc_active;
+		page->dpg_rpt[line].dpg_length = available_space = length;
+	}
+	else {
+		if (rpb->rpb_flags & rpb_delta) {
+			header = (RHDF) ((SCHAR *) page + page->dpg_rpt[line].dpg_offset);
+			header->rhdf_flags |= rpb_delta;
+			page->dpg_rpt[line].dpg_length = available_space = length;
+		}
+		else {
+			space = DPM_compress(tdbb, page) - available_space;
+			header = (RHDF) ((SCHAR *) page + space);
+			header->rhdf_flags = rhd_deleted;
+			header->rhdf_f_page = header->rhdf_f_line = 0;
+			page->dpg_rpt[line].dpg_offset = space;
+			page->dpg_rpt[line].dpg_length = available_space;
+		}
+		header->rhdf_transaction = rpb->rpb_transaction;
+		header->rhdf_b_page = rpb->rpb_b_page;
+		header->rhdf_b_line = rpb->rpb_b_line;
+	}
+
+	if (dbb->dbb_wal)
+		journal_segment(tdbb, window, line);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("    rhdf_transaction %d, window record %d:%d, available_space %d, rhdf_flags %d, rhdf_f record %d:%d, rhdf_b record %d:%d\n",
+			 header->rhdf_transaction, window->win_page, line,
+			 available_space, header->rhdf_flags, header->rhdf_f_page,
+			 header->rhdf_f_line, header->rhdf_b_page, header->rhdf_b_line);
+#endif
+
+	CCH_RELEASE(tdbb, window);
+
+/* The next task is to store the tail where it fits.  To do this, we
+   next to compute the size (compressed) of the tail.  This requires
+   first figuring out how much of the original record fits on the
+   original page.  */
+
+	pre_header_length = SQZ_compress_length(dcc, rpb->rpb_address,
+											(int) (available_space -
+												   RHDF_SIZE));
+
+	tail_rpb = *rpb;
+	tail_rpb.rpb_flags = rpb_fragment;
+	tail_rpb.rpb_b_page = 0;
+	tail_rpb.rpb_b_line = 0;
+	tail_rpb.rpb_address = rpb->rpb_address + pre_header_length;
+	tail_rpb.rpb_length = rpb->rpb_length - pre_header_length;
+	tail_rpb.rpb_window.win_flags = 0;
+
+	stack = NULL;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf("    about to store tail\n");
+#endif
+
+	DPM_store(tdbb, &tail_rpb, &stack, DPM_other);
+
+/* That was unreasonablly easy.  Now re-fetch the original page and
+   fill in the fragment pointer */
+
+	page = (DPG) CCH_FETCH(tdbb, window, LCK_write, pag_data);
+	CCH_precedence(tdbb, window, tail_rpb.rpb_page);
+	CCH_MARK(tdbb, window);
+
+	header = (RHDF) ((SCHAR *) page + page->dpg_rpt[line].dpg_offset);
+	header->rhdf_flags = rhd_incomplete | rpb->rpb_flags;
+	header->rhdf_transaction = rpb->rpb_transaction;
+	header->rhdf_format = rpb->rpb_format_number;
+	header->rhdf_f_page = tail_rpb.rpb_page;
+	header->rhdf_f_line = tail_rpb.rpb_line;
+
+	if (transaction->tra_number != rpb->rpb_transaction) {
+		header->rhdf_b_page = rpb->rpb_b_page;
+		header->rhdf_b_line = rpb->rpb_b_line;
+	}
+
+
+	post_header_length =
+		SQZ_compress(dcc, rpb->rpb_address, header->rhdf_data,
+					 (int) (available_space - RHDF_SIZE));
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO) {
+		ib_printf("    fragment head \n");
+		ib_printf
+			("    rhdf_trans %d, window record %d:%d, dpg_length %d\n\trhdf_flags %d, rhdf_f record %d:%d, rhdf_b record %d:%d\n",
+			 header->rhdf_transaction, window->win_page, line,
+			 page->dpg_rpt[line].dpg_length, header->rhdf_flags,
+			 header->rhdf_f_page, header->rhdf_f_line, header->rhdf_b_page,
+			 header->rhdf_b_line);
+	}
+#endif
+
+	if (pre_header_length != post_header_length) {
+		release_dcc(dcc->dcc_next);
+		CCH_RELEASE(tdbb, window);
+		BUGCHECK(252);			/* msg 252 header fragment length changed */
+	}
+
+	if (dbb->dbb_wal)
+		journal_segment(tdbb, window, line);
+
+	release_dcc(dcc->dcc_next);
+	CCH_RELEASE(tdbb, window);
+}
+
+
+static void extend_relation( TDBB tdbb, REL relation, WIN * window)
+{
+/**************************************
+ *
+ *	e x t e n d _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend a relation with a given page.  The window points to an
+ *	already allocated, fetched, and marked data page to be inserted
+ *	into the pointer pages for a given relation. 
+ *	This routine returns a window on the datapage locked for write
+ *
+ **************************************/
+	DBB dbb;
+	SLONG *slots;
+	USHORT pp_sequence, slot;
+	WIN pp_window, new_pp_window;
+	UCHAR *bits;
+	register PPG ppage;
+	DPG dpage;
+	VCL vector;
+	JRNP journal;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+	pp_window.win_flags = new_pp_window.win_flags = 0;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf("     extend_relation (relation %d, window)\n",
+				  relation->rel_id);
+#endif
+
+/* Release faked page before fetching pointer page to prevent deadlocks. This is only
+   a problem for multi-threaded servers using internal latches. The faked page may be
+   dirty from its previous incarnation and involved in a precedence relationship. This
+   special case may need a more general solution. */
+
+	CCH_RELEASE(tdbb, window);
+
+/* Search pointer pages for an empty slot.
+   If we run out of pointer pages, allocate another one.  Note that the code below
+   is not careful in preventing deadlocks when it allocates a new pointer page:
+    - the last already-existing pointer page is fetched with an exclusive latch,
+    - allocation of a new pointer page requires the fetching of the PIP page with
+	an exlusive latch.
+   This might cause a deadlock.  Fortunately, pointer pages don't need to be
+   allocated often. */
+
+  retry_after_latch_timeout:
+
+	for (pp_sequence = relation->rel_slot_space;; pp_sequence++) {
+		if (!
+			(ppage =
+			 get_pointer_page(tdbb, relation, &pp_window, pp_sequence,
+							  LCK_write))) BUGCHECK(253);	/* msg 253 pointer page vanished from extend_relation */
+		slots = ppage->ppg_page;
+		for (slot = 0; slot < ppage->ppg_count; slot++, slots++)
+			if (*slots == 0)
+				break;
+		if (slot < ppage->ppg_count)
+			break;
+		if ((pp_sequence && ppage->ppg_count < dbb->dbb_dp_per_pp) ||
+			(ppage->ppg_count < dbb->dbb_dp_per_pp - 1)) {
+			slot = ppage->ppg_count;
+			break;
+		}
+		if (ppage->ppg_header.pag_flags & ppg_eof) {
+			ppage = (PPG) DPM_allocate(tdbb, &new_pp_window);
+			ppage->ppg_header.pag_type = pag_pointer;
+			ppage->ppg_header.pag_flags |= ppg_eof;
+			ppage->ppg_relation = relation->rel_id;
+			ppage->ppg_sequence = ++pp_sequence;
+			slot = 0;
+			CCH_must_write(&new_pp_window);
+			CCH_RELEASE(tdbb, &new_pp_window);
+
+			vector = (VCL) ALL_extend((BLK*)&relation->rel_pages, pp_sequence + 1);
+			vector->vcl_long[pp_sequence] = new_pp_window.win_page;
+			if (relation->rel_id)
+				DPM_pages(tdbb, relation->rel_id, pag_pointer,
+						  (SLONG) pp_sequence, new_pp_window.win_page);
+			relation->rel_slot_space = pp_sequence;
+
+			ppage = (PPG) pp_window.win_buffer;
+			CCH_MARK(tdbb, &pp_window);
+			ppage->ppg_header.pag_flags &= ~ppg_eof;
+			ppage->ppg_next = new_pp_window.win_page;
+			if (dbb->dbb_wal)
+				CCH_journal_page(tdbb, &pp_window);
+			ppage =
+				(PPG) CCH_HANDOFF(tdbb, &pp_window, new_pp_window.win_page,
+								  LCK_write, pag_pointer);
+			break;
+		}
+		CCH_RELEASE(tdbb, &pp_window);
+	}
+
+/* We've found a slot.  Stick in the pointer to the data page */
+
+	if (ppage->ppg_page[slot])
+		CORRUPT(258);			/* msg 258 page slot not empty */
+
+/* Refetch newly allocated page that was released above.
+   To prevent possible deadlocks (since we own already an exlusive latch and we
+   are asking for another exclusive latch), time out on the latch after 1 second. */
+
+	dpage =
+		(DPG) CCH_FETCH_TIMEOUT(tdbb, window, LCK_write, pag_undefined, -1);
+
+/* In the case of a timeout, retry the whole thing. */
+
+	if (!dpage) {
+		CCH_RELEASE(tdbb, &pp_window);
+		goto retry_after_latch_timeout;
+	}
+
+
+	CCH_MARK(tdbb, window);
+	dpage->dpg_sequence = (SLONG) pp_sequence *dbb->dbb_dp_per_pp + slot;
+	dpage->dpg_relation = relation->rel_id;
+	dpage->dpg_header.pag_type = pag_data;
+	relation->rel_data_space = pp_sequence;
+
+	if (dbb->dbb_wal)
+		CCH_journal_page(tdbb, window);
+
+	CCH_RELEASE(tdbb, window);
+
+	CCH_precedence(tdbb, &pp_window, window->win_page);
+	CCH_MARK_SYSTEM(tdbb, &pp_window);
+	ppage->ppg_page[slot] = window->win_page;
+	ppage->ppg_min_space = MIN(ppage->ppg_min_space, slot);
+	ppage->ppg_count = MAX(ppage->ppg_count, slot + 1);
+	bits = (UCHAR *) (ppage->ppg_page + dbb->dbb_dp_per_pp);
+	bits[slot >> 2] &= ~(1 << ((slot & 3) << 1));
+	if (relation->rel_data_pages)
+		++relation->rel_data_pages;
+
+	if (dbb->dbb_wal) {
+		journal.jrnp_type = JRNP_POINTER_SLOT;
+		journal.jrnp_index = slot;
+		journal.jrnp_length = sizeof(window->win_page);
+		CCH_journal_record(tdbb, &pp_window, (UCHAR*)&journal, JRNP_SIZE,
+						   (UCHAR*)&window->win_page, sizeof(window->win_page));
+	}
+
+	*window = pp_window;
+	CCH_HANDOFF(tdbb, window, ppage->ppg_page[slot], LCK_write, pag_data);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf("   extended_relation (relation %d, window_page %d)\n",
+				  relation->rel_id, window->win_page);
+#endif
+}
+
+
+static UCHAR *find_space(TDBB	tdbb,
+						 RPB*	rpb,
+						 SSHORT	size,
+						 LLS*	stack,
+						 REC	record,
+						 USHORT	type)
+{
+/**************************************
+ *
+ *	f i n d _ s p a c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find space of a given size on a data page.  If no space, return
+ *	null.  If space is found, mark the page, set up the line field
+ *	in the record parameter block, set up the offset/length on the
+ *	data page, and return a pointer to the space.
+ *
+ *	To maintain page precedence when objects point to objects, a stack
+ *	of pages of high precedence may be passed in.  
+ *
+ **************************************/
+	DBB dbb;
+	DPG page;
+	SSHORT i, slot, aligned_size;
+	SSHORT used, space, reserving;
+	struct dpg_repeat *index;
+	RHD header;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	aligned_size = ROUNDUP(size, ODS_ALIGNMENT);
+	page = (DPG) rpb->rpb_window.win_buffer;
+
+/* Scan allocated lines looking for an empty slot, the high water mark,
+   and the amount of space potentially available on the page */
+
+	space = dbb->dbb_page_size;
+	slot = 0;
+	used = HIGH_WATER(page->dpg_count);
+	reserving = !(dbb->dbb_flags & DBB_no_reserve);
+
+	for (i = 0, index = page->dpg_rpt; i < page->dpg_count; i++, index++)
+		if (index->dpg_offset) {
+			space = MIN(space, index->dpg_offset);
+			used += ROUNDUP(index->dpg_length, ODS_ALIGNMENT);
+			if (type == DPM_primary && reserving) {
+				header = (RHD) ((SCHAR *) page + index->dpg_offset);
+				if (!header->rhd_b_page &&
+					!(header->rhd_flags & (rhd_chain | rhd_blob |
+										   rhd_deleted | rhd_fragment)))
+					used += SPACE_FUDGE;
+			}
+		}
+		else if (!slot)
+			slot = i;
+
+	if (!slot)
+		used += sizeof(struct dpg_repeat);
+
+/* If there isn't space, give up */
+
+	if (aligned_size > (int) dbb->dbb_page_size - used) {
+		CCH_MARK(tdbb, &rpb->rpb_window);
+		page->dpg_header.pag_flags |= dpg_full;
+		mark_full(tdbb, rpb);
+		return NULL;
+	}
+
+/* There's space on page.  If the line index needs expansion, do so.
+   If the page need to be compressed, compress it. */
+
+	while (*stack)
+		CCH_precedence(tdbb, &rpb->rpb_window, (SLONG) LLS_POP(stack));
+	CCH_MARK(tdbb, &rpb->rpb_window);
+	i = page->dpg_count + ((slot) ? 0 : 1);
+
+	if (aligned_size > space - HIGH_WATER(i))
+		space = DPM_compress(tdbb, page);
+
+	if (!slot)
+		slot = page->dpg_count++;
+
+	space -= aligned_size;
+	index = &page->dpg_rpt[slot];
+	index->dpg_length = size;
+	index->dpg_offset = space;
+	rpb->rpb_page = rpb->rpb_window.win_page;
+	rpb->rpb_line = slot;
+	rpb->rpb_number =
+		(SLONG) page->dpg_sequence * dbb->dbb_max_records + slot;
+
+	if (record)
+		LLS_PUSH((BLK) rpb->rpb_page, &record->rec_precedence);
+
+	return (UCHAR *) page + space;
+}
+
+
+static BOOLEAN get_header( WIN * window, SSHORT line, register RPB * rpb)
+{
+/**************************************
+ *
+ *	g e t _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy record header fields into a record parameter block.  If
+ *	the line is empty, return false;
+ *
+ **************************************/
+	DPG page;
+	register RHDF header;
+	register struct dpg_repeat *index;
+
+	page = (DPG) window->win_buffer;
+	if (line >= page->dpg_count)
+		return FALSE;
+
+	index = &page->dpg_rpt[line];
+	if (index->dpg_offset == 0)
+		return FALSE;
+
+	header = (RHDF) ((SCHAR *) page + index->dpg_offset);
+	rpb->rpb_page = window->win_page;
+	rpb->rpb_line = line;
+	rpb->rpb_flags = header->rhdf_flags;
+
+	if (!(rpb->rpb_flags & rpb_fragment)) {
+		rpb->rpb_b_page = header->rhdf_b_page;
+		rpb->rpb_b_line = header->rhdf_b_line;
+		rpb->rpb_transaction = header->rhdf_transaction;
+		rpb->rpb_format_number = header->rhdf_format;
+	}
+
+	if (rpb->rpb_flags & rpb_incomplete) {
+		rpb->rpb_f_page = header->rhdf_f_page;
+		rpb->rpb_f_line = header->rhdf_f_line;
+		rpb->rpb_address = header->rhdf_data;
+		rpb->rpb_length = index->dpg_length - RHDF_SIZE;
+	}
+	else {
+		rpb->rpb_address = ((RHD) header)->rhd_data;
+		rpb->rpb_length = index->dpg_length - RHD_SIZE;
+	}
+
+	return TRUE;
+}
+
+
+static PPG get_pointer_page(
+							TDBB tdbb,
+							REL relation,
+							WIN * window, USHORT sequence, USHORT lock)
+{
+/**************************************
+ *
+ *	g e t _ p o i n t e r _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a specific pointer page.  If we don't know about it,
+ *	do a re-scan of RDB$PAGES to find it.  If that doesn't work,
+ *	try the sibling pointer.  If that doesn't work, just stop,
+ *	return NULL, and let our caller think about it.
+ *
+ **************************************/
+	PPG page;
+	VCL vector;
+	SLONG next_ppg;
+
+	SET_TDBB(tdbb);
+
+	if (!(vector = relation->rel_pages) || sequence >= vector->vcl_count) {
+		for (;;) {
+			DPM_scan_pages(tdbb);
+			/* If the relation is gone, then we can't do anything anymore. */
+			if ((!relation) || (!(vector = relation->rel_pages)))
+				return NULL;
+			if (sequence < vector->vcl_count)
+				break;			/* we are in business again */
+			window->win_page = vector->vcl_long[vector->vcl_count - 1];
+			page = (PPG) CCH_FETCH(tdbb, window, lock, pag_pointer);
+			next_ppg = page->ppg_next;
+			CCH_RELEASE(tdbb, window);
+			if (!next_ppg)
+				return NULL;
+			DPM_pages(tdbb, relation->rel_id, pag_pointer, vector->vcl_count,
+					  next_ppg);
+		}
+	}
+
+	window->win_page = vector->vcl_long[sequence];
+	page = (PPG) CCH_FETCH(tdbb, window, lock, pag_pointer);
+
+	if (page->ppg_relation != relation->rel_id ||
+		page->ppg_sequence != sequence) CORRUPT(259);	/* msg 259 bad pointer page */
+
+	return page;
+}
+
+
+static void journal_segment( TDBB tdbb, WIN * window, USHORT slot)
+{
+/**************************************
+ *
+ *	j o u r n a l _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	We just did something to a segment.  Make sure it gets added to
+ *	the journal.
+ *
+ **************************************/
+	JRNP journal;
+	DPG page;
+	struct dpg_repeat *index;
+
+	SET_TDBB(tdbb);
+
+	page = (DPG) window->win_buffer;
+	index = &page->dpg_rpt[slot];
+	journal.jrnp_type = JRNP_DATA_SEGMENT;
+	journal.jrnp_index = slot;
+	journal.jrnp_length = index->dpg_length;
+
+	CCH_journal_record(tdbb, window, (UCHAR*)&journal, JRNP_SIZE,
+					   (UCHAR*) page + index->dpg_offset, index->dpg_length);
+}
+
+
+static RHD locate_space(
+						TDBB tdbb,
+						register RPB * rpb,
+						SSHORT size, LLS * stack, REC record, USHORT type)
+{
+/**************************************
+ *
+ *	l o c a t e _ s p a c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find space in a relation for a record.  Find a likely data page
+ *	and call find_space to see if there really is space there.  If
+ *	we can't find any space, extend the relation.
+ *
+ **************************************/
+	DBB dbb;
+	register WIN *window;
+	REL relation;
+	register PPG ppage;
+	USHORT pp_sequence, slot, i;
+	SLONG dp_number, pp_number, sequence;
+	UCHAR *bits, flags, *space;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	relation = rpb->rpb_relation;
+	window = &rpb->rpb_window;
+
+/* If there is a preferred page, try there first */
+
+	if (type == DPM_secondary) {
+		DECOMPOSE_QUOTIENT(rpb->rpb_number, dbb->dbb_max_records, sequence);
+		DECOMPOSE(sequence, dbb->dbb_dp_per_pp, pp_sequence, slot);
+		if (ppage =
+			get_pointer_page(tdbb, relation, window, pp_sequence,
+							 LCK_read)) if (slot < ppage->ppg_count
+											&& (dp_number =
+												ppage->ppg_page[slot])) {
+				CCH_HANDOFF(tdbb, window, dp_number, LCK_write, pag_data);
+				if (space = find_space(tdbb, rpb, size, stack, record, type))
+					return (RHD) space;
+			}
+			else
+				CCH_RELEASE(tdbb, window);
+	}
+
+/* Look for space anywhere */
+
+	for (pp_sequence = relation->rel_data_space;; pp_sequence++) {
+		relation->rel_data_space = pp_sequence;
+		if (!
+			(ppage =
+			 get_pointer_page(tdbb, relation, window, pp_sequence, LCK_read))) BUGCHECK(254);	/* msg 254 pointer page vanished from relation list in locate_space */
+		pp_number = window->win_page;
+		bits = (UCHAR *) (ppage->ppg_page + dbb->dbb_dp_per_pp);
+		for (slot = ppage->ppg_min_space; slot < ppage->ppg_count; slot++)
+			if ((dp_number = ppage->ppg_page[slot]) &&
+				~bits[slot >> 2] & (1 << ((slot & 3) << 1))) {
+				CCH_HANDOFF(tdbb, window, dp_number, LCK_write, pag_data);
+				if (space = find_space(tdbb, rpb, size, stack, record, type))
+					return (RHD) space;
+				window->win_page = pp_number;
+				ppage = (PPG) CCH_FETCH(tdbb, window, LCK_read, pag_pointer);
+			}
+		flags = ppage->ppg_header.pag_flags;
+		CCH_RELEASE(tdbb, window);
+		if (flags & ppg_eof)
+			break;
+	}
+
+/* Sigh.  No space.  Extend relation. Try for a while
+   in case someone grabs the page before we can get it 
+   locked, then give up on the assumption that things 
+   are really screwed up. */
+
+	for (i = 0; i < 20; i++) {
+		DPM_allocate(tdbb, window);
+		extend_relation(tdbb, relation, window);
+		if (space = find_space(tdbb, rpb, size, stack, record, type))
+			break;
+	}
+	if (i == 20)
+		BUGCHECK(255);			/* msg 255 cannot find free space */
+
+	if (record)
+		LLS_PUSH((BLK) window->win_page, &record->rec_precedence);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf("    extended relation %d with page %d to get %d bytes\n",
+				  relation->rel_id, window->win_page);
+#endif
+
+	return (RHD) space;
+}
+
+
+static void mark_full( TDBB tdbb, register RPB * rpb)
+{
+/**************************************
+ *
+ *	m a r k _ f u l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Mark a fetched page and it's pointer page to indicate the page
+ *	is full.
+ *
+ **************************************/
+	DBB dbb;
+	WIN pp_window;
+	register DPG dpage;
+	register PPG ppage;
+	UCHAR *byte, bit, flags;
+	USHORT slot, pp_sequence;
+	SLONG sequence;
+	REL relation;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+	pp_window.win_flags = 0;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("mark_full ()\n");
+#endif
+
+/* We need to access the pointer page for write.  To avoid deadlocks,
+   we need to release the data page, fetch the pointer page for write,
+   and re-fetch the data page.  If the data page is still empty, set
+   it's "full" bit on the pointer page. */
+
+	dpage = (DPG) rpb->rpb_window.win_buffer;
+	sequence = dpage->dpg_sequence;
+	CCH_RELEASE(tdbb, &rpb->rpb_window);
+
+	relation = rpb->rpb_relation;
+	DECOMPOSE(sequence, dbb->dbb_dp_per_pp, pp_sequence, slot);
+
+/* Fetch the pointer page, then the data page.  Since this is a case of
+   fetching a second page after having fetched the first page with an 
+   exclusive latch, care has to be taken to prevent a deadlock.  This
+   is accomplished by timing out the second latch request and retrying
+   the whole thing. */
+
+	do {
+		if (!
+			(ppage =
+			 get_pointer_page(tdbb, relation, &pp_window, pp_sequence,
+							  LCK_write))) BUGCHECK(256);	/* msg 256 pointer page vanished from mark_full */
+
+		/* If data page has been deleted from relation then there's nothing
+		   left to do. */
+		if (slot >= ppage->ppg_count ||
+			rpb->rpb_window.win_page != ppage->ppg_page[slot]) {
+			CCH_RELEASE(tdbb, &pp_window);
+			return;
+		}
+
+		/* Fetch the data page, but timeout after 1 second to break a possible deadlock. */
+		dpage =
+			(DPG) CCH_FETCH_TIMEOUT(tdbb, &rpb->rpb_window, LCK_read,
+									pag_data, -1);
+
+		/* In case of a latch timeout, release the latch on the pointer page and retry. */
+		if (!dpage)
+			CCH_RELEASE(tdbb, &pp_window);
+	}
+	while (!dpage);
+
+
+	flags = dpage->dpg_header.pag_flags;
+	CCH_RELEASE(tdbb, &rpb->rpb_window);
+
+	CCH_precedence(tdbb, &pp_window, rpb->rpb_window.win_page);
+	CCH_MARK(tdbb, &pp_window);
+
+	bit = 1 << ((slot & 3) << 1);
+	byte = (UCHAR *) (&ppage->ppg_page[dbb->dbb_dp_per_pp]) + (slot >> 2);
+
+	if (flags & dpg_full) {
+		*byte |= bit;
+		ppage->ppg_min_space = MAX(slot + 1, ppage->ppg_min_space);
+	}
+	else {
+		*byte &= ~bit;
+		ppage->ppg_min_space = MIN(slot, ppage->ppg_min_space);
+		relation->rel_data_space = MIN(pp_sequence, relation->rel_data_space);
+	}
+
+/* Next, handle the "large object" bit */
+
+	bit <<= 1;
+
+	if (flags & dpg_large)
+		*byte |= bit;
+	else
+		*byte &= ~bit;
+
+	CCH_RELEASE(tdbb, &pp_window);
+}
+
+
+static void release_dcc( DCC dcc)
+{
+/**************************************
+ *
+ *	r e l e a s e _ d c c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a chain of data compression control block.
+ *
+ **************************************/
+	DCC temp;
+	PLB pool;
+
+	while (dcc) {
+		temp = dcc;
+		dcc = temp->dcc_next;
+		pool = temp->dcc_pool;
+		temp->dcc_next = pool->plb_dccs;
+		pool->plb_dccs = temp;
+	}
+}
+
+
+static void store_big_record(
+							 TDBB tdbb,
+							 register RPB * rpb,
+							 LLS * stack, DCC head_dcc, USHORT size)
+{
+/**************************************
+ *
+ *	s t o r e _ b i g _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a new record in a relation.
+ *
+ **************************************/
+	DBB dbb;
+	DCC dcc, temp_dcc;
+	DPG page;
+	RHDF header;
+	SCHAR *out, *in;
+	SCHAR *control, count;
+	USHORT length, max_data, l, n;
+	SLONG prior;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("store_big_record ()\n");
+#endif
+
+/* Start by finding the last data compression control block and set up
+    to start decompression from the end. */
+
+	for (dcc = head_dcc; dcc->dcc_next; dcc = dcc->dcc_next);
+
+	control = dcc->dcc_end;
+	in = (SCHAR *) rpb->rpb_address + rpb->rpb_length;
+	prior = 0;
+	count = 0;
+	max_data = dbb->dbb_page_size - (sizeof(struct dpg) + RHDF_SIZE);
+
+/* Fill up data pages tail first until what's left fits on a single
+   page. */
+
+	while (size > max_data) {
+		/* Allocate and format data page and fragment header */
+
+		page = (DPG) DPM_allocate(tdbb, &rpb->rpb_window);
+		page->dpg_header.pag_type = pag_data;
+		page->dpg_header.pag_flags = dpg_orphan | dpg_full;
+		page->dpg_relation = rpb->rpb_relation->rel_id;
+		page->dpg_count = 1;
+		header = (RHDF) & page->dpg_rpt[1];
+		page->dpg_rpt[0].dpg_offset = (UCHAR *) header - (UCHAR *) page;
+		page->dpg_rpt[0].dpg_length = max_data + RHDF_SIZE;
+		header->rhdf_flags = (prior) ?
+			rhd_fragment | rhd_incomplete : rhd_fragment;
+		header->rhdf_f_page = prior;
+		length = max_data;
+		size -= length;
+		out = (SCHAR *) header->rhdf_data + length;
+
+		/* Move compressed data onto page */
+
+		while (length > 1) {
+			/* Handle residual count, if any */
+			if (count > 0) {
+				n = l = MIN((USHORT) count, length - 1);
+				do
+					*--out = *--in;
+				while (--n);
+				*--out = l;
+				length -= (SSHORT) (l + 1);	/* bytes remaining on page */
+				count -= (SSHORT) l;	/* bytes remaining in run */
+				continue;
+			}
+
+			/* If we've exhausted this data compression block, find the prior one */
+
+			if (control == dcc->dcc_string) {
+				temp_dcc = dcc;
+				for (dcc = head_dcc; dcc->dcc_next != temp_dcc;
+					 dcc = dcc->dcc_next);
+				control = dcc->dcc_string + sizeof(dcc->dcc_string);
+			}
+			if ((count = *--control) < 0) {
+				*--out = in[-1];
+				*--out = count;
+				in += count;
+				length -= 2;
+			}
+		}
+
+		/* Page is full.  If there is an odd byte left, fudge it. */
+
+		if (length) {
+			*--out = 0;
+			++size;
+		}
+		else if (count > 0)
+			++size;
+		if (prior)
+			CCH_precedence(tdbb, &rpb->rpb_window, prior);
+
+#ifdef VIO_DEBUG
+		if (debug_flag > DEBUG_WRITES_INFO) {
+			ib_printf("    back portion\n");
+			ib_printf
+				("    rpb_window page %d, max_data %d, \n\trhdf_flags %d, prior %d\n",
+				 rpb->rpb_window.win_page, max_data, header->rhdf_flags,
+				 prior);
+		}
+#endif
+
+		if (dbb->dbb_wal)
+			CCH_journal_page(tdbb, &rpb->rpb_window);
+
+		CCH_RELEASE(tdbb, &rpb->rpb_window);
+		prior = rpb->rpb_window.win_page;
+	}
+
+/* What's left fits on a page.  Luckily, we don't have to store it
+   ourselves. */
+
+	release_dcc(head_dcc->dcc_next);
+	size =
+		SQZ_length(tdbb, rpb->rpb_address, in - (SCHAR *) rpb->rpb_address,
+				   head_dcc);
+	header = (RHDF)locate_space(tdbb,
+								rpb,
+								(SSHORT)(RHDF_SIZE + size),
+								stack,
+								NULL_PTR,
+								DPM_other);
+
+	header->rhdf_flags = rhd_incomplete | rhd_large | rpb->rpb_flags;
+	header->rhdf_transaction = rpb->rpb_transaction;
+	header->rhdf_format = rpb->rpb_format_number;
+	header->rhdf_b_page = rpb->rpb_b_page;
+	header->rhdf_b_line = rpb->rpb_b_line;
+	header->rhdf_f_page = prior;
+	header->rhdf_f_line = 0;
+	SQZ_fast(head_dcc, rpb->rpb_address, header->rhdf_data);
+	release_dcc(head_dcc->dcc_next);
+
+	if (dbb->dbb_wal)
+		journal_segment(tdbb, &rpb->rpb_window, rpb->rpb_line);
+
+	page = (DPG) rpb->rpb_window.win_buffer;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO) {
+		ib_printf("    front part\n");
+		ib_printf
+			("    rhdf_trans %d, rpb_window record %d:%d, dpg_length %d \n\trhdf_flags %d, rhdf_f record %d:%d, rhdf_b record %d:%d\n",
+			 header->rhdf_transaction, rpb->rpb_window.win_page,
+			 rpb->rpb_line, page->dpg_rpt[rpb->rpb_line].dpg_length,
+			 header->rhdf_flags, header->rhdf_f_page, header->rhdf_f_line,
+			 header->rhdf_b_page, header->rhdf_b_line);
+	}
+#endif
+
+	if (!(page->dpg_header.pag_flags & dpg_large)) {
+		page->dpg_header.pag_flags |= dpg_large;
+		mark_full(tdbb, rpb);
+	}
+	else
+		CCH_RELEASE(tdbb, &rpb->rpb_window);
+}
diff --git a/src/jrd/dpm_proto.h b/src/jrd/dpm_proto.h
new file mode 100644
index 0000000000..5e1e72dea6
--- /dev/null
+++ b/src/jrd/dpm_proto.h
@@ -0,0 +1,61 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dpm_proto.h
+ *	DESCRIPTION:	Prototype header file for dpm.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DPM_PROTO_H_
+#define _JRD_DPM_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern struct pag *DPM_allocate(TDBB, struct win *);
+extern void DPM_backout(TDBB, struct rpb *);
+extern int DPM_chain(TDBB, struct rpb *, struct rpb *);
+extern int DPM_compress(TDBB, struct dpg *);
+extern void DPM_create_relation(TDBB, struct rel *);
+extern SLONG DPM_data_pages(TDBB, struct rel *);
+extern void DPM_delete(TDBB, struct rpb *, SLONG);
+extern void DPM_delete_relation(TDBB, struct rel *);
+extern BOOLEAN DPM_fetch(TDBB, register struct rpb *, USHORT);
+extern SSHORT DPM_fetch_back(TDBB, register struct rpb *, USHORT, SSHORT);
+extern void DPM_fetch_fragment(TDBB, register struct rpb *, USHORT);
+extern SINT64 DPM_gen_id(TDBB, SLONG, USHORT, SINT64);
+extern int DPM_get(TDBB, register struct rpb *, SSHORT);
+extern ULONG DPM_get_blob(TDBB, struct blb *, ULONG, USHORT, SLONG);
+extern BOOLEAN DPM_next(TDBB, register struct rpb *, USHORT, BOOLEAN,
+						BOOLEAN);
+extern void DPM_pages(TDBB, SSHORT, int, ULONG, SLONG);
+extern SLONG DPM_prefetch_bitmap(struct tdbb *, struct rel *, struct sbm *,
+								 SLONG);
+extern void DPM_scan_pages(TDBB);
+extern void DPM_store(TDBB, register struct rpb *, struct lls **, USHORT);
+extern SLONG DPM_store_blob(TDBB, struct blb *, struct rec *);
+extern void DPM_rewrite_header(TDBB, struct rpb *);
+extern void DPM_update(TDBB, register struct rpb *, struct lls **,
+					   struct tra *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_DPM_PROTO_H_ */
diff --git a/src/jrd/drq.h b/src/jrd/drq.h
new file mode 100644
index 0000000000..9d3e38856f
--- /dev/null
+++ b/src/jrd/drq.h
@@ -0,0 +1,179 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		drq.h
+ *	DESCRIPTION:	Registry of persistent internal DYN requests
+ *
+ *
+ ***************************************************************************
+ *
+ * Note:
+ *
+ *   drq_e_l_idx/109 and drq_l_idx_seg/110 are not used any more. The usage of
+ *   drq_e_l_idx and drq_l_idx_seg in the past is as the following:
+ *    
+ *
+ *      FOR (...) IDX IN RDB$INDICES
+ *               WITH IDX.RDB$RELATION_NAME EQ table_name
+ *                   ...
+ *         FOR (...) FIRST 1 IDX_SEG IN RDB$INDEX_SEGMENTS
+ *                      WITH IDX_SEG.RDB$INDEX_NAME EQ IDX.RDB$INDEX_NAME
+ *                       AND IDX_SEG.RDB$FIELD_NAME = col_nm
+ *                   ...
+ *         END_FOR;
+ *                   ...
+ *      END_FOR;
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DRQ_H_
+#define _JRD_DRQ_H_
+
+#define DYN_REQUEST(drt) dbb->dbb_dyn_req->vec_object[drt]
+
+#define drq_l_prot_mask	0		/* lookup protection mask */
+#define drq_l_user_name	1		/* lookup user name */
+#define drq_s_rel_con	2		/* store relation constraints */
+#define drq_s_chk_con	3		/* store check constraints */
+#define drq_s_ref_con	4		/* store ref constraints */
+#define drq_f_nxt_con	5		/* find next relation constraint name */
+#define drq_f_nxt_fld	6		/* find next field name */
+#define drq_f_nxt_idx	7		/* find next index name */
+#define drq_f_nxt_trg	8		/* find next trigger name */
+#define drq_c_unq_nam	9		/* check for unique field names */
+#define drq_e_rel_con	10		/* erase relation constraints */
+#define drq_n_idx_seg	11		/* count index segments */
+#define drq_c_dup_con	12		/* check for duplicate contraint */
+#define drq_l_intg_con	13		/* lookup an integrity constraint */
+#define drq_s_dims	14			/* store dimensions */
+#define drq_s_files	15			/* store files */
+#define drq_s_filters	16		/* store filters */
+#define drq_s_gens	17			/* store generators */
+#define drq_s_funcs	18			/* store functions */
+#define drq_s_func_args	19		/* store function arguments */
+#define drq_s_gfields	20		/* store global fields */
+#define drq_s_lfields	21		/* store local fields */
+#define drq_s_gfields2	22		/* store global fields */
+#define drq_s_rels	23			/* store relations */
+#define drq_l_rel_name	24		/* lookup relation name */
+#define drq_l_view_rels	25		/* lookup relations in view */
+#define drq_s_usr_prvs	26		/* store user privileges */
+#define drq_s_classes	27		/* store security classes */
+#define drq_s_sql_lfld	28		/* store sql fields */
+#define drq_s_sql_gfld	29		/* store sql fields */
+#define drq_s_triggers	30		/* store triggers */
+#define drq_s_trg_msgs	31		/* store trigger messages */
+#define drq_s_view_rels	32		/* store view relations */
+#define drq_e_dims	33			/* erase dimensions */
+#define drq_e_filters	34		/* erase filters */
+#define drq_e_func_args	35		/* erase functions */
+#define drq_e_funcs	36			/* erase function arguments */
+#define drq_l_fld_src	37		/* lookup a field source */
+#define drq_e_gfields	38		/* erase global fields */
+#define drq_e_indices	39		/* erase indices */
+#define drq_e_idx_segs	40		/* erase index segments */
+#define drq_l_dep_flds	41		/* lookup field referenced by view */
+#define drq_e_lfield	42		/* erase a local field */
+#define drq_e_rel_con2	43		/* erase relation constraints */
+#define drq_e_rel_idxs	44		/* erase indices */
+#define drq_e_rel_flds	45		/* erase relation fields */
+#define drq_e_view_rels	46		/* erase view relations */
+#define drq_e_relation	47		/* erase relation */
+#define drq_e_rel_con3	48		/* erase relation constraints */
+#define drq_e_usr_prvs	49		/* erase user privileges on relation */
+#define drq_e_shadow	50		/* erase shadow */
+#define drq_e_trg_msgs	51		/* erase trigger messages */
+#define drq_e_trigger	52		/* erase trigger */
+#define drq_l_view_rel2	53		/* lookup relations in view */
+#define drq_m_rel_flds	54		/* modify relation fields */
+#define drq_e_trg_msg	55		/* erase trigger message */
+#define drq_e_class	56			/* erase security class */
+#define drq_l_grant1	57		/* lookup grant */
+#define drq_l_grant2	58		/* lookup grant */
+#define drq_s_grant	59			/* store grant */
+#define drq_l_fld_src2	60		/* lookup a field source */
+#define drq_m_database	61		/* modify database */
+#define drq_m_gfield	62		/* modify global field */
+#define drq_m_index	63			/* modify index */
+#define drq_m_lfield	64		/* modify local field */
+#define drq_m_relation	65		/* modify relation */
+#define drq_m_trigger	66		/* modify trigger */
+#define drq_m_trg_msg	67		/* modify trigger message */
+#define drq_e_grant1	68		/* erase grant */
+#define drq_e_grant2	69		/* erase grant */
+#define drq_s_indices	70		/* store indices */
+#define drq_l_lfield	71		/* lookup local field */
+#define drq_s_idx_segs	72		/* store index segments */
+#define drq_l_unq_idx	73		/* lookup a unique index */
+#define drq_l_primary	74		/* lookup a primary something */
+#define drq_e_trg_msgs2	75		/* erase trigger messages */
+#define drq_e_trigger2	76		/* erase trigger */
+#define drq_s_prcs	77			/* store procedure */
+#define drq_l_prc_name	78		/* lookup procedure name */
+#define drq_s_prc_usr_prvs 79	/* store procedure priviledges */
+#define drq_s_prms	80			/* store parameters */
+#define drq_e_prcs	81			/* erase procedure */
+#define drq_e_prms	82			/* erase all of procedure's parameters */
+#define drq_s_prm_src	83		/* store parameter global field */
+#define drq_s_intl_info	84		/* store RDB$CHARACTER_FIELDS */
+#define drq_m_prcs	85			/* modify procedure */
+#define drq_s_log_files 86		/* store log files */
+#define drq_s_cache	87			/* store cache  */
+#define drq_e_prm       88		/* erase a procedure parameter */
+#define drq_s_xcp       89		/* store an exception */
+#define drq_m_xcp       90		/* modify an exception */
+#define drq_e_prc_prvs  91		/* erase user privileges on procedure */
+#define drq_e_prc_prv   92		/* erase procedure's privileges  */
+#define drq_e_trg_prv   93		/* erase trigger's privileges */
+#define drq_d_log       94		/* drop log */
+#define drq_d_cache     95		/* drop cache */
+#define drq_l_log_files 96		/* lookup log files */
+#define drq_l_cache     97		/* lookup cache */
+#define drq_e_sec_class	98		/* delete security classes */
+#define drq_l_gfield    99		/* lookup global field */
+#define drq_g_nxt_con	100		/* generate next relation constraint name */
+#define drq_g_nxt_fld	101		/* generate next field name */
+#define drq_g_nxt_idx	102		/* generate next index name */
+#define drq_g_nxt_trg	103		/* generate next trigger name */
+#define drq_l_fld_pos	104		/* lookup max field position */
+#define drq_e_xcp       105		/* drop an exception */
+#define drq_d_gfields   106		/* drop an global field for procedure param */
+#define drq_l_shadow    107		/* look up a shadow set */
+#define drq_l_files	108			/* look up for defined files */
+#define drq_e_l_idx     109		/* erase indices defined on a local field */
+#define drq_l_idx_seg   110		/* Lookup index segments */
+#define drq_e_l_gfld    111		/* erase global field for a local fields */
+#define drq_gcg1	112			/* grantor_can_grant */
+#define drq_gcg2	113			/* grantor_can_grant */
+#define drq_gcg3	114			/* grantor_can_grant */
+#define drq_gcg4	115			/* grantor_can_grant */
+#define drq_gcg5	116			/* grantor_can_grant */
+#define drq_l_view_idx	117		/* table is view? */
+#define drq_role_gens       118	/* store SQL role */
+#define drq_get_role_nm     119	/* get SQL role */
+#define drq_get_role_au     120	/* get SQL role auth */
+#define drq_del_role_1      121	/* delete SQL role from rdb$user_privilege */
+#define drq_drop_role       122	/* delete SQL role from rdb$roles */
+#define drq_get_rel_owner   123	/* get the owner of any relations */
+#define drq_get_user_priv   124	/* get the grantor of user privileges or
+								   the user who was granted the privileges */
+#define drq_g_rel_constr_nm 125	/* get relation constraint name */
+#define drq_e_rel_const     126	/* erase relation constraints */
+#define drq_MAX             127
+
+#endif /* _JRD_DRQ_H_ */
diff --git a/src/jrd/dsc.cpp b/src/jrd/dsc.cpp
new file mode 100644
index 0000000000..a175fb798d
--- /dev/null
+++ b/src/jrd/dsc.cpp
@@ -0,0 +1,1048 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dsc.c
+ *	DESCRIPTION:	Utility routines for working with data descriptors
+ *
+ *	Note: This module is used by both engine & utility functions.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include <stdlib.h>
+#include "../jrd/common.h"
+#include "../jrd/dsc.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/constants.h"
+#include "../jrd/intl.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/dsc_proto.h"
+
+
+extern "C" {
+
+
+/* When converting non-text values to text, how many bytes to allocate
+   for holding the text image of the value.  */
+
+static USHORT CONST _DSC_convert_to_text_length[DTYPE_TYPE_MAX] =
+{
+	0,							/* dtype_null */
+	0,							/* dtype_text */
+	0,							/* dtype_cstring */
+	0,							/* dtype_varying */
+	0,
+	0,
+	0,							/* dtype_packed */
+	0,							/* dtype_byte */
+	6,							/* dtype_short      -32768 */
+	11,							/* dtype_long       -2147483648 */
+	20,							/* dtype_quad       -9223372036854775808 */
+	15,							/* dtype_real       -1.23456789e+12 */
+	24,							/* dtype_double     -1.2345678901234567e+123 */
+	24,							/* dtype_d_float (believed to have this range)  -1.2345678901234567e+123 */
+	10,							/* dtype_sql_date   YYYY-MM-DD */
+	13,							/* dtype_sql_time   HH:MM:SS.MMMM */
+	25,							/* dtype_timestamp  YYYY-MM-DD HH:MM:SS.MMMM */
+	/*  -- in BLR_version4  DD-Mon-YYYY HH:MM:SS.MMMM */
+	9,							/* dtype_blob       FFFF:FFFF */
+	9,							/* dtype_array      FFFF:FFFF */
+	20							/* dtype_int64      -9223372036854775808 + decimal point */
+};
+
+/* blr to dsc type conversions */
+static CONST USHORT DSC_blr_type_mapping[] = {
+	blr_null,
+	blr_text,
+	blr_cstring,
+	blr_varying,
+	blr_null,
+	blr_null,
+	blr_null,
+	blr_null,
+	blr_short,
+	blr_long,
+	blr_double,
+	blr_d_float,
+	blr_sql_date,
+	blr_sql_time,
+	blr_timestamp,
+	blr_blob,
+	blr_blob,
+	blr_int64
+};
+
+/* Unimplemented names are in lowercase & <brackets> */
+/* Datatypes that represent a range of SQL datatypes are in lowercase */
+static CONST TEXT *CONST DSC_dtype_names[] = {
+	"<dtype_null>",
+	"CHAR",
+	"CSTRING",
+	"VARCHAR",
+	"<dtype_4>",
+	"<dtype_5>",
+	"<packed>",
+	"<byte>",
+	"SMALLINT",					/* Also DECIMAL & NUMERIC */
+	"INTEGER",					/* Also DECIMAL & NUMERIC */
+	"<quad>",
+	"FLOAT",
+	"DOUBLE PRECISION",
+	"<d_float>",
+	"DATE",
+	"TIME",
+	"TIMESTAMP",
+	"BLOB",
+	"ARRAY",
+	"64-bit numeric"
+};
+
+
+/* The result of adding two datatypes in blr_version5 semantics
+   Note: DTYPE_CANNOT as the result means that the operation cannot be done.
+   dtype_null as the result means that we do not yet know the type of one of
+   the operands, so we cannot decide the type of the result. */
+
+CONST BYTE DSC_add_result[DTYPE_TYPE_MAX][DTYPE_TYPE_MAX] = {
+
+/*
+	dtype_null	dtype_text	dtype_cstring	dtype_varying
+	4 (unused)	5 (unused)	dtype_packed	dtype_byte
+	dtype_short	dtype_long	dtype_quad	dtype_real
+	dtype_double	dtype_d_float	dtype_sql_date	dtype_sql_time
+	dtype_timestamp	dtype_blob	dtype_array	dtype_int64
+*/
+
+	/* dtype_null */
+	{dtype_null, dtype_null, dtype_null, dtype_null,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_null, dtype_null, DTYPE_CANNOT, dtype_null,
+	 dtype_null, dtype_null, dtype_null, dtype_null,
+	 dtype_null, DTYPE_CANNOT, DTYPE_CANNOT, dtype_null},
+
+	/* dtype_text */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_cstring */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_varying */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* 4 (unused) */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* 5 (unused) */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_packed */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_byte */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_short */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_int64, dtype_int64, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, dtype_sql_date, dtype_sql_time,
+	 dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT, dtype_int64},
+
+	/* dtype_long */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_int64, dtype_int64, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, dtype_sql_date, dtype_sql_time,
+	 dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT, dtype_int64},
+
+	/* dtype_quad */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_real */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, dtype_sql_date, dtype_sql_time,
+	 dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_double */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, dtype_sql_date, dtype_sql_time,
+	 dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_d_float -- VMS deprecated */
+	{dtype_null, dtype_d_float, dtype_d_float, dtype_d_float,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_d_float, dtype_d_float, DTYPE_CANNOT, dtype_d_float,
+	 dtype_d_float, dtype_d_float, dtype_sql_date, dtype_sql_time,
+	 dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT, dtype_d_float},
+
+	/* dtype_sql_date */
+	{dtype_null, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_sql_date, dtype_sql_date, DTYPE_CANNOT, dtype_sql_date,
+	 dtype_sql_date, dtype_sql_date, DTYPE_CANNOT, dtype_timestamp,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_sql_date},
+
+	/* dtype_sql_time */
+	{dtype_null, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_sql_time, dtype_sql_time, DTYPE_CANNOT, dtype_sql_time,
+	 dtype_sql_time, dtype_sql_time, dtype_timestamp, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_sql_time},
+
+	/* dtype_timestamp */
+	{dtype_null, dtype_timestamp, dtype_timestamp, dtype_timestamp,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_timestamp, dtype_timestamp, DTYPE_CANNOT, dtype_timestamp,
+	 dtype_timestamp, dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_timestamp},
+
+	/* dtype_blob */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_array */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_int64 */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_int64, dtype_int64, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, dtype_sql_date, dtype_sql_time,
+	 dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT, dtype_int64}
+
+};
+
+/* The result of subtracting two datatypes in blr_version5 semantics
+   Note: DTYPE_CANNOT as the result means that the operation cannot be done.
+   dtype_null as the result means that we do not yet know the type of one of
+   the operands, so we cannot decide the type of the result. */
+
+CONST BYTE DSC_sub_result[DTYPE_TYPE_MAX][DTYPE_TYPE_MAX] = {
+
+/*
+	dtype_null	dtype_text	dtype_cstring	dtype_varying
+	4 (unused)	5 (unused)	dtype_packed	dtype_byte
+	dtype_short	dtype_long	dtype_quad	dtype_real
+	dtype_double	dtype_d_float	dtype_sql_date	dtype_sql_time
+	dtype_timestamp	dtype_blob	dtype_array	dtype_int64
+*/
+
+	/* dtype_null */
+	{dtype_null, dtype_null, dtype_null, dtype_null,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_null, dtype_null, DTYPE_CANNOT, dtype_null,
+	 dtype_null, dtype_null, dtype_null, dtype_null,
+	 dtype_null, DTYPE_CANNOT, DTYPE_CANNOT, dtype_null},
+
+	/* dtype_text */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_cstring */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_varying */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* 4 (unused) */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* 5 (unused) */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_packed */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_byte */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_short */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_int64, dtype_int64, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_int64},
+
+	/* dtype_long */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_int64, dtype_int64, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_int64},
+
+	/* dtype_quad */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_real */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_double */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_d_float -- VMS deprecated */
+	{dtype_null, dtype_d_float, dtype_d_float, dtype_d_float,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_d_float, dtype_d_float, DTYPE_CANNOT, dtype_d_float,
+	 dtype_d_float, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_d_float},
+
+	/* dtype_sql_date */
+	{dtype_null, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_sql_date, dtype_sql_date, DTYPE_CANNOT, dtype_sql_date,
+	 dtype_sql_date, dtype_sql_date, dtype_long, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_sql_date},
+
+	/* dtype_sql_time */
+	{dtype_null, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_sql_time, dtype_sql_time, DTYPE_CANNOT, dtype_sql_time,
+	 dtype_sql_time, dtype_sql_time, DTYPE_CANNOT, dtype_long,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_sql_time},
+
+	/* dtype_timestamp */
+	{dtype_null, dtype_timestamp, dtype_timestamp, dtype_timestamp,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_timestamp, dtype_timestamp, DTYPE_CANNOT, dtype_timestamp,
+	 dtype_timestamp, dtype_timestamp, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, DTYPE_CANNOT, DTYPE_CANNOT, dtype_timestamp},
+
+	/* dtype_blob */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_array */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_int64 */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_int64, dtype_int64, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_int64}
+};
+
+
+/* The result of multiplying or dividing two datatypes in blr_version5 semantics
+   Note: DTYPE_CANNOT as the result means that the operation cannot be done.
+   dtype_null as the result means that we do not yet know the type of one of
+   the operands, so we cannot decide the type of the result. */
+
+CONST BYTE DSC_multiply_result[DTYPE_TYPE_MAX][DTYPE_TYPE_MAX] = {
+
+/*
+	dtype_null	dtype_text	dtype_cstring	dtype_varying
+	4 (unused)	5 (unused)	dtype_packed	dtype_byte
+	dtype_short	dtype_long	dtype_quad	dtype_real
+	dtype_double	dtype_d_float	dtype_sql_date	dtype_sql_time
+	dtype_timestamp	dtype_blob	dtype_array	dtype_int64
+*/
+
+	/* dtype_null */
+	{dtype_null, dtype_null, dtype_null, dtype_null,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_null, dtype_null, DTYPE_CANNOT, dtype_null,
+	 dtype_null, dtype_null, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_null},
+
+	/* dtype_text */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_cstring */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_varying */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* 4 (unused) */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* 5 (unused) */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_packed */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_byte */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_short */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_int64, dtype_int64, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_int64},
+
+	/* dtype_long */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_int64, dtype_int64, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_int64},
+
+	/* dtype_quad */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_real */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_double */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_d_float -- VMS deprecated */
+	{dtype_null, dtype_d_float, dtype_d_float, dtype_d_float,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_d_float, dtype_d_float, DTYPE_CANNOT, dtype_d_float,
+	 dtype_d_float, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_d_float},
+
+	/* dtype_sql_date */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_sql_time */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_timestamp */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_blob */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_array */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_int64 */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_int64, dtype_int64, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_int64}
+
+};
+
+/* The result of multiplying two datatypes in blr_version4 semantics.
+   Note: DTYPE_CANNOT as the result means that the operation cannot be done.
+   dtype_null as the result means that we do not yet know the type of one of
+   the operands, so we cannot decide the type of the result. */
+
+CONST BYTE DSC_multiply_blr4_result[DTYPE_TYPE_MAX][DTYPE_TYPE_MAX] = {
+
+/*
+	dtype_null	dtype_text	dtype_cstring	dtype_varying
+	4 (unused)	5 (unused)	dtype_packed	dtype_byte
+	dtype_short	dtype_long	dtype_quad	dtype_real
+	dtype_double	dtype_d_float	dtype_sql_date	dtype_sql_time
+	dtype_timestamp	dtype_blob	dtype_array	dtype_int64
+*/
+
+	/* dtype_null */
+	{dtype_null, dtype_null, dtype_null, dtype_null,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_null, dtype_null, DTYPE_CANNOT, dtype_null,
+	 dtype_null, dtype_null, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_null},
+
+	/* dtype_text */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_long, dtype_long, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_cstring */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_long, dtype_long, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_varying */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_long, dtype_long, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* 4 (unused) */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* 5 (unused) */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_packed */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_byte */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_short */
+	{dtype_null, dtype_long, dtype_long, dtype_long,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_long, dtype_long, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_long */
+	{dtype_null, dtype_long, dtype_long, dtype_long,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_long, dtype_long, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_quad */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_real */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_double */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double},
+
+	/* dtype_d_float -- VMS deprecated */
+	{dtype_null, dtype_d_float, dtype_d_float, dtype_d_float,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_d_float, dtype_d_float, DTYPE_CANNOT, dtype_d_float,
+	 dtype_d_float, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_d_float},
+
+	/* dtype_sql_date */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_sql_time */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_timestamp */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_blob */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_array */
+	{DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT},
+
+	/* dtype_int64 */
+	{dtype_null, dtype_double, dtype_double, dtype_double,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT,
+	 dtype_double, dtype_double, DTYPE_CANNOT, dtype_double,
+	 dtype_double, dtype_d_float, DTYPE_CANNOT, DTYPE_CANNOT,
+	 DTYPE_CANNOT, DTYPE_CANNOT, DTYPE_CANNOT, dtype_double}
+
+};
+
+#ifdef DEV_BUILD
+static BOOLEAN validate_dsc_tables(void);
+#endif
+
+
+
+USHORT DLL_EXPORT DSC_convert_to_text_length(USHORT dsc_type)
+{
+	if (dsc_type < (sizeof(_DSC_convert_to_text_length) /
+					sizeof(_DSC_convert_to_text_length[0])))
+		return _DSC_convert_to_text_length[dsc_type];
+	assert(FALSE);
+	return 0;
+}
+
+
+void DLL_EXPORT DSC_make_descriptor(
+									DSC * desc,
+									USHORT blr_type,
+									SSHORT scale,
+									USHORT length,
+SSHORT sub_type, SSHORT charset, SSHORT collation)
+{
+/**************************************
+ *
+ *	D S C _ m a k e _ d e s c r i p t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make an internal descriptor from external parameters.
+ *
+ **************************************/
+
+#ifdef DEV_BUILD
+	{
+/* Execute this validation code once per server startup only */
+		static BOOLEAN been_here = FALSE;
+		if (!been_here) {
+			been_here = TRUE;
+			assert(validate_dsc_tables());
+		}
+	}
+#endif
+
+	desc->dsc_flags = 0;
+	desc->dsc_address = NULL;
+	desc->dsc_length = length;
+	desc->dsc_scale = (SCHAR) scale;
+	desc->dsc_sub_type = sub_type;
+
+	switch (blr_type) {
+	case blr_text:
+		desc->dsc_dtype = dtype_text;
+		INTL_ASSIGN_DSC(desc, charset, collation);
+		break;
+
+	case blr_varying:
+		desc->dsc_dtype = dtype_varying;
+		desc->dsc_length += sizeof(USHORT);
+		INTL_ASSIGN_DSC(desc, charset, collation);
+		break;
+
+	case blr_short:
+		desc->dsc_length = sizeof(SSHORT);
+		desc->dsc_dtype = dtype_short;
+		break;
+
+	case blr_long:
+		desc->dsc_length = sizeof(SLONG);
+		desc->dsc_dtype = dtype_long;
+		break;
+
+	case blr_int64:
+		desc->dsc_length = sizeof(SINT64);
+		desc->dsc_dtype = dtype_int64;
+		break;
+
+	case blr_quad:
+		desc->dsc_length = 2 * sizeof(SLONG);
+		desc->dsc_dtype = dtype_quad;
+		break;
+
+	case blr_float:
+		desc->dsc_length = sizeof(float);
+		desc->dsc_dtype = dtype_real;
+		break;
+
+	case blr_double:
+#ifndef VMS
+	case blr_d_float:
+#endif
+		desc->dsc_length = sizeof(double);
+		desc->dsc_dtype = dtype_double;
+		break;
+
+#ifdef VMS
+	case blr_d_float:
+		desc->dsc_length = sizeof(double);
+		desc->dsc_dtype = dtype_d_float;
+		break;
+#endif
+
+	case blr_timestamp:
+		desc->dsc_length = 2 * sizeof(SLONG);
+		desc->dsc_dtype = dtype_timestamp;
+		break;
+
+	case blr_sql_date:
+		desc->dsc_length = sizeof(SLONG);
+		desc->dsc_dtype = dtype_sql_date;
+		break;
+
+	case blr_sql_time:
+		desc->dsc_length = sizeof(ULONG);
+		desc->dsc_dtype = dtype_sql_time;
+		break;
+
+	case blr_blob:
+		desc->dsc_length = 2 * sizeof(SLONG);
+		desc->dsc_dtype = dtype_blob;
+		if (sub_type == BLOB_text) {
+			assert(charset <= MAX_SCHAR);
+			desc->dsc_scale = (SCHAR) charset;
+		}
+		break;
+
+	case blr_cstring:
+		desc->dsc_dtype = dtype_cstring;
+		INTL_ASSIGN_DSC(desc, charset, collation);
+		break;
+
+	default:
+		assert(FALSE);
+		desc->dsc_dtype = dtype_null;
+		break;
+	}
+}
+
+
+int DLL_EXPORT DSC_string_length(DSC* desc)
+{
+	/**************************************
+     *
+     *	D S C _ s t r i n g _ l e n g t h
+     *
+     **************************************
+     *
+     * Functional description
+     *	Estimate length of string (in bytes) based on descriptor.
+     *	Estimated length assumes representing string in 
+     *	narrow-char ASCII format.
+     *
+     *	Note that this strips off the short at the
+     *	start of dtype_varying, and the NULL for dtype_cstring.
+     *
+     **************************************/
+
+	switch (desc->dsc_dtype) {
+	case dtype_text:
+		return desc->dsc_length;
+	case dtype_cstring:
+		return desc->dsc_length - 1;
+	case dtype_varying:
+		return desc->dsc_length - sizeof(USHORT);
+	default:
+		if (desc->dsc_scale == 0)
+			return (int) DSC_convert_to_text_length(desc->dsc_dtype);
+		else {
+			if (desc->dsc_scale < 0)
+				return (int) (DSC_convert_to_text_length(desc->dsc_dtype)) +
+					1;
+			else
+				return (int) (DSC_convert_to_text_length(desc->dsc_dtype)) +
+					desc->dsc_scale;
+		}
+	}
+}
+
+
+CONST TEXT *DSC_dtype_tostring(UCHAR dtype)
+{
+	/**************************************
+     *
+     *	D S C _ d t y p e _ t o s t r i n g
+     *
+     **************************************
+     *
+     * Functional description
+     *	Convert a datatype to its textual representation	
+     *	
+     **************************************/
+	if (dtype < (sizeof(DSC_dtype_names) / sizeof(DSC_dtype_names[0])))
+		return DSC_dtype_names[dtype];
+	else
+		return "<unknown>";
+}
+
+
+void DLL_EXPORT DSC_get_dtype_name(DSC * desc, TEXT * buffer, USHORT len)
+{
+	/**************************************
+     *
+     *	D S C _ g e t _ d t y p e _ n a m e
+     *
+     **************************************
+     *
+     * Functional description
+     *	Convert a datatype to its textual representation	
+     *	
+     **************************************/
+	strncpy(buffer, DSC_dtype_tostring(desc->dsc_dtype), len);
+}
+
+
+#ifdef DEV_BUILD
+static BOOLEAN validate_dsc_tables(void)
+{
+/**************************************
+ *
+ *	v a l i d a t e _ d s c _ t a b l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate tables that are used to describe
+ *	operations on descriptors.  Note that this function
+ *	is called as part of a DEV_BUILD assertion check
+ *	only once per server.
+ *
+ * WARNING: the ib_fprintf's are commented out because trying to print
+ *          to ib_stderr when the server is running detached will trash
+ *          server memory.  If you uncomment the ib_printf's and build a
+ *          kit, make sure that you run that server with the -d flag
+ *          so it won't detach from its controlling terminal.
+ *	
+ **************************************/
+	BYTE op1, op2;
+	for (op1 = dtype_null; op1 < DTYPE_TYPE_MAX; op1++)
+		for (op2 = dtype_null; op2 < DTYPE_TYPE_MAX; op2++) {
+
+			if ((DSC_add_result[op1][op2] >= DTYPE_TYPE_MAX) &&
+				(DSC_add_result[op1][op2] != DTYPE_CANNOT)) {
+/*
+	ib_fprintf (ib_stderr, "DSC_add_result [%d][%d] is %d, invalid.\n",
+		 op1, op2, DSC_add_result [op1][op2]);
+*/
+				return FALSE;
+			}
+
+			/* Addition operator must be communitive */
+			if (DSC_add_result[op1][op2] != DSC_add_result[op2][op1]) {
+/*
+	ib_fprintf (ib_stderr,
+"Not commutative: DSC_add_result[%d][%d] = %d, ... [%d][%d] = %d\n",
+		 op1, op2, DSC_add_result [op1][op2],
+		 op2, op1, DSC_add_result [op2][op1] );
+*/
+				return FALSE;
+			}
+
+			/* Difficult to validate Subtraction */
+
+			if ((DSC_sub_result[op1][op2] >= DTYPE_TYPE_MAX) &&
+				(DSC_sub_result[op1][op2] != DTYPE_CANNOT)) {
+/*
+	ib_fprintf (ib_stderr, "DSC_sub_result [%d][%d] is %d, invalid.\n",
+		 op1, op2, DSC_sub_result [op1][op2]);
+*/
+				return FALSE;
+			}
+
+			/* Multiplication operator must be commutative */
+			if (DSC_multiply_result[op1][op2] !=
+				DSC_multiply_result[op2][op1]) {
+/*
+	ib_fprintf (ib_stderr,
+"Not commutative: DSC_multiply_result [%d][%d] = %d,\n\t... [%d][%d] = %d\n",
+		 op1, op2, DSC_multiply_result [op1][op2],
+		 op2, op1, DSC_multiply_result [op2][op1]);
+*/
+				return FALSE;
+			}
+
+			/* Multiplication operator must be communitive */
+			if (DSC_multiply_blr4_result[op1][op2] !=
+				DSC_multiply_blr4_result[op2][op1]) {
+/*
+	ib_fprintf (ib_stderr,
+"Not commutative: DSC_multiply_blr4_result [%d][%d] = %d\n\
+\t... [%d][%d] = %d\n",
+	    op1, op2, DSC_multiply_blr4_result [op1][op2],
+	    op2, op1, DSC_multiply_blr4_result [op2][op1] );
+*/
+				return FALSE;
+			}
+		}
+	return TRUE;
+}
+
+#endif /* DEV_BUILD */
+
+
+} // extern "C"
diff --git a/src/jrd/dsc.h b/src/jrd/dsc.h
new file mode 100644
index 0000000000..6e9e9c5046
--- /dev/null
+++ b/src/jrd/dsc.h
@@ -0,0 +1,200 @@
+/*
+ *	PROGRAM:	JRD access method
+ *	MODULE:		dsc.h
+ *	DESCRIPTION:	Definitions associated with descriptors
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_DSC_H
+#define JRD_DSC_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+/* Descriptor format */
+
+/* WARNING !
+   This run-time structure is stored in RDB$FORMATS.RDB$DESCRIPTORS.
+   Any modification to this structure is tantamount to an ODS change.
+   See MET_format() and make_format() in MET.E for enlightenment.
+*/
+
+typedef struct dsc {
+	UCHAR dsc_dtype;
+	SCHAR dsc_scale;
+	USHORT dsc_length;
+	SSHORT dsc_sub_type;
+	USHORT dsc_flags;
+	UCHAR *dsc_address;
+} DSC;
+
+/* values for dsc_flags */
+/* Note: DSC_null is only reliably set for local variables
+   (blr_variable) */
+#define DSC_null		1
+#define DSC_no_subtype		2	/* dsc has no sub type specified */
+#define DSC_nullable  		4	/* not stored. instead, is derived
+								   from metadata primarily to flag
+								   SQLDA (in DSQL)               */
+
+/* Overload text typing information into the dsc_sub_type field.
+   See intl.h for definitions of text types */
+
+#ifndef dsc_ttype
+#define dsc_ttype	dsc_sub_type
+#endif
+
+#define DSC_GET_CHARSET(dsc)	(((dsc)->dsc_ttype) & 0x00FF)
+#define DSC_GET_COLLATE(dsc)	(((dsc)->dsc_ttype) >> 8)
+
+
+typedef struct alt_dsc {
+	SLONG dsc_combined_type;
+	SSHORT dsc_sub_type;
+	USHORT dsc_flags;			/* Not currently used */
+} ALT_DSC;
+
+
+
+#define DSC_EQUIV(d1,d2) ((((ALT_DSC*) d1)->dsc_combined_type == ((ALT_DSC*) d2)->dsc_combined_type) && \
+			  ((DSC_GET_CHARSET (d1) == DSC_GET_CHARSET (d2)) || d1->dsc_dtype > dtype_any_text))
+
+#ifdef GATEWAY
+typedef struct xdsc {
+	UCHAR dsc_frgn_dtype;
+	SCHAR dsc_frgn_scale;
+	USHORT dsc_frgn_length;
+	UCHAR dsc_isc_dtype;
+	SCHAR dsc_isc_scale;
+	USHORT dsc_isc_length;
+} XDSC;
+#endif
+
+
+
+/* Data types */
+
+/* WARNING: if you add another manifest constant to this group, then you
+ * must add another entry to the array compare_priority in jrd/cvt2.c.
+ */
+
+/* Note that dtype_null actually means that we do not yet know the
+   dtype for this descriptor.  A nice cleanup item would be to globally
+   change it to dtype_unknown.  --chrisj 1999-02-17 */
+
+#define dtype_null	0
+#define dtype_text	1
+#define dtype_cstring	2
+#define dtype_varying	3
+
+#define dtype_packed	6
+#define dtype_byte	7
+#define dtype_short	8
+#define dtype_long	9
+#define dtype_quad	10
+#define dtype_real	11
+#define dtype_double	12
+#define dtype_d_float	13
+#define dtype_sql_date	14
+#define dtype_sql_time	15
+#define dtype_timestamp	16
+#define dtype_blob	17
+#define dtype_array	18
+#define dtype_int64     19
+
+#define DTYPE_TYPE_MAX	20
+
+/* In DSC_*_result tables, DTYPE_CANNOT means that the two operands
+   cannot participate together in the requested operation. */
+
+#define DTYPE_CANNOT   127
+
+/* Historical alias definition */
+#define dtype_date	dtype_timestamp
+
+#define dtype_aligned	dtype_varying
+#define dtype_any_text	dtype_varying
+#define dtype_min_comp	dtype_packed
+#define dtype_max_comp	dtype_d_float
+
+/* NOTE: For types <= dtype_any_text the dsc_sub_type field defines
+   the text type */
+
+#define TEXT_LEN(d)   ((d->dsc_dtype == dtype_text) ? d->dsc_length : (d->dsc_dtype == dtype_cstring) ? d->dsc_length - 1 : d->dsc_length - sizeof(USHORT))
+
+
+/* Text Sub types, distinct from character sets & collations */
+
+#define dsc_text_type_none	0	/* Normal text */
+#define	dsc_text_type_fixed	1	/* strings can contain null bytes */
+#define dsc_text_type_metadata	3	/* string represents system metadata */
+
+
+/* Exact numeric subtypes: with ODS >= 10, these apply when dtype
+   is short, long, or quad. */
+
+#define dsc_num_type_none       0	/* defined as SMALLINT or INTEGER */
+#define dsc_num_type_numeric    1	/* defined as NUMERIC(n,m)        */
+#define dsc_num_type_decimal    2	/* defined as DECIMAL(n,m)        */
+
+
+/* Date type information */
+
+#define DTYPE_IS_TEXT(d)	(((d) >= dtype_text) && ((d) <= dtype_varying))
+#define DTYPE_IS_DATE(t)	(((t) >= dtype_sql_date) && ((t) <= dtype_timestamp))
+
+/* DTYPE_IS_BLOB includes both BLOB and ARRAY since array's are implemented over blobs. */
+#define DTYPE_IS_BLOB(d)        (((d) == dtype_blob) || ((d) == dtype_array))
+
+/* Exact numeric? */
+
+#define DTYPE_IS_EXACT(d)       (((d) == dtype_int64) || \
+				 ((d) == dtype_long)  || \
+				 ((d) == dtype_short))
+
+#ifdef VMS
+#define DTYPE_IS_APPROX(d)       (((d) == dtype_double) || \
+				 ((d) == dtype_real)  || \
+				 ((d) == dtype_d_float))
+#else
+#define DTYPE_IS_APPROX(d)       (((d) == dtype_double) || \
+				  ((d) == dtype_real))
+#endif
+
+#define DTYPE_IS_NUMERIC(d)	((((d) >= dtype_byte) && \
+				  ((d) <= dtype_d_float)) || \
+				 ((d)  == dtype_int64))
+
+/* Macros defining what operations are legal on data types */
+#define DTYPE_CAN_NEGATE(d)	DTYPE_IS_NUMERIC(d)
+#define DTYPE_CAN_AVERAGE(d)	DTYPE_IS_NUMERIC(d)
+#define DTYPE_CAN_DIVIDE(d)	DTYPE_IS_NUMERIC(d)
+#define DTYPE_CAN_MULTIPLY(d)	DTYPE_IS_NUMERIC(d)
+
+
+#define ISC_TIME_SECONDS_PRECISION		10000L
+#define ISC_TIME_SECONDS_PRECISION_SCALE	-4
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_DSC_H */
diff --git a/src/jrd/dsc_proto.h b/src/jrd/dsc_proto.h
new file mode 100644
index 0000000000..f87fd42779
--- /dev/null
+++ b/src/jrd/dsc_proto.h
@@ -0,0 +1,49 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dsc_proto.h
+ *	DESCRIPTION:	Prototype header file for dsc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DSC_PROTO_H_
+#define _JRD_DSC_PROTO_H_
+
+#include "../jrd/dsc.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int DLL_EXPORT DSC_string_length(struct dsc *);
+extern CONST TEXT *DSC_dtype_tostring(UCHAR);
+extern void DLL_EXPORT DSC_get_dtype_name(struct dsc *, TEXT *, USHORT);
+extern void DLL_EXPORT DSC_make_descriptor(struct dsc *, USHORT, SSHORT,
+										   USHORT, SSHORT, SSHORT, SSHORT);
+extern USHORT DLL_EXPORT DSC_convert_to_text_length(USHORT dsc_type);
+
+extern CONST BYTE DSC_add_result[DTYPE_TYPE_MAX][DTYPE_TYPE_MAX];
+extern CONST BYTE DSC_sub_result[DTYPE_TYPE_MAX][DTYPE_TYPE_MAX];
+extern CONST BYTE DSC_multiply_result[DTYPE_TYPE_MAX][DTYPE_TYPE_MAX];
+extern CONST BYTE DSC_multiply_blr4_result[DTYPE_TYPE_MAX][DTYPE_TYPE_MAX];
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_DSC_PROTO_H_ */
diff --git a/src/jrd/dyn.e b/src/jrd/dyn.e
new file mode 100644
index 0000000000..8b929113ae
--- /dev/null
+++ b/src/jrd/dyn.e
@@ -0,0 +1,2150 @@
+/*
+ *	PROGRAM:	JRD Data Definition Utility
+ *	MODULE:		dyn.e
+ *	DESCRIPTION:	Dynamic data definition
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ *    20-Apr-2001 Claudio Valderrama  - Fix bug in grant/revolk by making user
+ *                                      case insensitive.
+ */
+
+#include <stdio.h>
+#include <string.h>
+
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../jrd/jrd.h"
+#include "../jrd/ods.h"
+#include "../jrd/tra.h"
+#include "../jrd/scl.h"
+#include "../jrd/drq.h"
+#include "../jrd/flags.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/lls.h"
+#include "../jrd/all.h"
+#include "../jrd/met.h"
+#include "../jrd/btr.h"
+#include "../jrd/intl.h"
+#include "../jrd/dyn.h"
+#include "../jrd/license.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dyn_proto.h"
+#include "../jrd/dyn_df_proto.h"
+#include "../jrd/dyn_dl_proto.h"
+#include "../jrd/dyn_md_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/inf_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/vio_proto.h"
+
+#ifdef SUPERSERVER
+#define V4_THREADING
+#endif
+#include "../jrd/nlm_thd.h"
+
+#define BLANK	'\040'
+
+DATABASE DB = STATIC "yachts.gdb";
+
+
+
+static void grant(GBL, UCHAR **);
+static BOOLEAN grantor_can_grant_role(TDBB, GBL, TEXT *, TEXT *);
+static BOOLEAN grantor_can_grant(GBL, TEXT *, TEXT *, TEXT *, TEXT *,
+								 BOOLEAN);
+static void revoke(GBL, UCHAR **);
+static void store_privilege(GBL, TEXT *, TEXT *, TEXT *, TEXT *, SSHORT,
+							SSHORT, int);
+
+
+void DYN_ddl( ATT attachment, TRA transaction, USHORT length, UCHAR * ddl)
+{
+/**************************************
+ *
+ *	D Y N _ d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do meta-data.
+ *
+ **************************************/
+	TDBB tdbb;
+#ifdef V4_THREADING
+	DBB dbb;
+#endif
+	STATUS *status;
+	UCHAR *ptr;
+	PLB old_pool;
+	struct gbl gbl;
+	JMP_BUF env, *old_env;
+#ifdef _PPC_
+	JMP_BUF env1;
+#endif
+
+	tdbb = GET_THREAD_DATA;
+#ifdef V4_THREADING
+	dbb = tdbb->tdbb_database;
+#endif
+
+	ptr = ddl;
+
+	if (*ptr++ != gds__dyn_version_1)
+		ERR_post(gds__wrodynver, 0);
+
+	status = tdbb->tdbb_status_vector;
+	*status++ = gds_arg_gds;
+	*status++ = 0;
+	*status = gds_arg_end;
+
+	gbl.gbl_transaction = transaction;
+
+/* Create a pool for DYN to operate in.  It will be released when
+   the routine exits. */
+
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = ALL_pool();
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		if (transaction->tra_save_point &&
+			transaction->tra_save_point->sav_verb_count) {
+			/* An error during undo is very bad and has to be dealt with
+			   by aborting the transaction.  The easiest way is to kill the
+			   application by calling bugcheck. */
+#ifdef _PPC_
+			tdbb->tdbb_setjmp = (UCHAR *) env1;
+			if (!SETJMP(env1))
+#else
+			if (!SETJMP(env))
+#endif
+				VIO_verb_cleanup(tdbb, transaction);
+			else {
+				tdbb->tdbb_setjmp = (UCHAR *) old_env;	/* prepare for BUGCHECK's longjmp */
+				BUGCHECK(290);	/* msg 290 error during savepoint backout */
+			}
+		}
+
+#if     ( defined( SUPERSERVER) && defined( WIN_NT))
+		THD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_dyn);
+#else
+		V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_dyn);
+#endif
+
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		ALL_rlpool(tdbb->tdbb_default);
+		tdbb->tdbb_default = old_pool;
+		ERR_punt();
+	}
+
+#if     ( defined( SUPERSERVER) && defined( WIN_NT))
+	THREAD_EXIT;
+	THD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_dyn);
+	THREAD_ENTER;
+#else
+	V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_dyn);
+#endif
+
+	VIO_start_save_point(tdbb, transaction);
+	transaction->tra_save_point->sav_verb_count++;
+
+	DYN_execute(&gbl, &ptr, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	transaction->tra_save_point->sav_verb_count--;
+	VIO_verb_cleanup(tdbb, transaction);
+
+#if     ( defined( SUPERSERVER) && defined( WIN_NT))
+	THD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_dyn);
+#else
+	V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_dyn);
+#endif
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	ALL_rlpool(tdbb->tdbb_default);
+	tdbb->tdbb_default = old_pool;
+}
+
+
+void DYN_delete_role( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ r o l e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Execute a dynamic ddl statement that deletes a role with all its 
+ *      members of the role.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	VOLATILE USHORT id, err_num;
+	TEXT role_name[32], security_class[32], role_owner[32], user[32];
+	TEXT *ptr1, *ptr2;
+	JMP_BUF env, *old_env;
+	BOOLEAN del_role_ok = TRUE;
+	USHORT major_version, minor_original;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	major_version = (SSHORT) dbb->dbb_ods_version;
+	minor_original = (SSHORT) dbb->dbb_minor_original;
+
+	if (ENCODE_ODS(major_version, minor_original) < ODS_9_0) {
+		DYN_error(FALSE, 196, NULL, NULL, NULL, NULL, NULL);
+		ERR_punt();
+	}
+	else
+	{
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+
+		if (SETJMP(env)) {
+			DYN_rundown_request(old_env, request, -1);
+			if (id == drq_drop_role)
+				DYN_error_punt(TRUE, 191, NULL, NULL, NULL, NULL, NULL);
+			/* msg 191: "ERASE RDB$ROLES failed" */
+			else
+				DYN_error_punt(TRUE, 62, NULL, NULL, NULL, NULL, NULL);
+			/* msg 62: "ERASE RDB$USER_PRIVILEGES failed" */
+		}
+
+		for (ptr1 = tdbb->tdbb_attachment->att_user->usr_user_name, ptr2 =
+			 user; *ptr1; ptr1++, ptr2++)
+			*ptr2 = UPPER7(*ptr1);
+
+		*ptr2 = '\0';
+
+		GET_STRING(ptr, role_name);
+
+		request = (BLK) CMP_find_request(tdbb, drq_drop_role, DYN_REQUESTS);
+		id = drq_drop_role;
+
+		FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+			XX IN RDB$ROLES WITH
+				XX.RDB$ROLE_NAME EQ role_name if (!DYN_REQUEST(drq_drop_role))
+				  DYN_REQUEST(drq_drop_role) = request;
+
+			DYN_terminate(XX.RDB$OWNER_NAME, sizeof(XX.RDB$OWNER_NAME));
+			strcpy(role_owner, XX.RDB$OWNER_NAME);
+
+			if ((tdbb->tdbb_attachment->att_user->usr_flags & USR_locksmith) ||
+				(strcmp(role_owner, user) == 0))
+			{
+				ERASE XX;
+			}
+			else
+			{
+				del_role_ok = FALSE;
+			}
+
+		END_FOR;
+
+		if (!DYN_REQUEST(drq_drop_role))
+			DYN_REQUEST(drq_drop_role) = request;
+
+		if (del_role_ok) {
+			request =
+				(BLK) CMP_find_request(tdbb, drq_del_role_1, DYN_REQUESTS);
+			id = drq_del_role_1;
+
+
+			/* The first OR clause Finds all members of the role
+			   The 2nd OR clause  Finds all privileges granted to the role */
+			FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				PRIV IN RDB$USER_PRIVILEGES WITH
+					(PRIV.RDB$RELATION_NAME EQ role_name AND
+					 PRIV.RDB$OBJECT_TYPE = obj_sql_role)
+					OR(PRIV.RDB$USER EQ role_name AND
+					   PRIV.RDB$USER_TYPE = obj_sql_role)
+
+					if (!DYN_REQUEST(drq_del_role_1))
+					DYN_REQUEST(drq_del_role_1) = request;
+
+				ERASE PRIV;
+
+			END_FOR;
+
+			if (!DYN_REQUEST(drq_del_role_1))
+				DYN_REQUEST(drq_del_role_1) = request;
+
+		}
+		else
+		{
+	/****************************************************
+    **
+    **  only owner of SQL role or USR_locksmith could drop SQL role
+    **
+    *****************************************************/
+			DYN_error(FALSE, 191, user, role_name, NULL, NULL, NULL);
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			ERR_punt();
+		}
+
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	}
+}
+
+
+void DYN_error(USHORT	status_flag,
+			   USHORT	number,
+			   TEXT*	arg1,
+			   TEXT*	arg2,
+			   TEXT*	arg3,
+			   TEXT*	arg4,
+			   TEXT*	arg5)
+{
+/**************************************
+ *
+ *	D Y N _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	DDL failed.
+ *
+ **************************************/
+	TDBB tdbb;
+	STATUS local_status[20], *v1, *v2, *end, arg;
+	TEXT *error_buffer;
+
+
+	tdbb = GET_THREAD_DATA;
+
+	if (tdbb->tdbb_status_vector[1] == gds__no_meta_update)
+		return;
+
+	error_buffer =
+		(TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * BUFFER_MEDIUM));
+
+	if (number)
+		gds__msg_format(NULL_PTR, DYN_MSG_FAC, number,
+						sizeof(TEXT) * BUFFER_MEDIUM, error_buffer, arg1,
+						arg2, arg3, arg4, arg5);
+
+	v1 = local_status;
+
+	*v1++ = gds_arg_gds;
+	*v1++ = gds__no_meta_update;
+	if (number) {
+		*v1++ = gds_arg_gds;
+		*v1++ = gds__random;
+		*v1++ = gds_arg_string;
+		*v1++ = (STATUS) ERR_cstring(error_buffer);
+	}
+	if (status_flag) {
+		v2 = tdbb->tdbb_status_vector;
+
+		/* check every other argument for end of vector */
+
+		end = local_status + sizeof(local_status) - 1;
+		while (v1 < end &&
+			   ((arg = *v2++) != gds_arg_cstring || v1 + 1 < end) &&
+			   (*v1++ = arg)) {
+			*v1++ = *v2++;
+			if (arg == gds_arg_cstring)
+				*v1++ = *v2++;
+		}
+	}
+	*v1 = gds_arg_end;
+	end = v1 + 1;
+
+	for (v1 = local_status, v2 = tdbb->tdbb_status_vector; v1 < end;)
+		*v2++ = *v1++;
+
+	gds__free((SLONG *) error_buffer);
+}
+
+
+void DYN_error_punt(USHORT	status_flag,
+					USHORT	number,
+					TEXT*	arg1,
+					TEXT*	arg2,
+					TEXT*	arg3,
+					TEXT*	arg4,
+					TEXT*	arg5)
+{
+/**************************************
+ *
+ *	D Y N _ e r r o r _ p u n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	DDL failed.
+ *
+ **************************************/
+
+	DYN_error(status_flag, number, arg1, arg2, arg3, arg4, arg5);
+	ERR_punt();
+}
+
+
+BOOLEAN DYN_is_it_sql_role(GBL		gbl,
+						   TEXT*	input_name,
+						   TEXT*	output_name,
+						   TDBB		tdbb)
+{
+/**************************************
+ *
+ *	D Y N _ i s _ i t _ s q l _ r o l e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	If input_name is found in RDB$ROLES, then returns TRUE. Otherwise
+ *    returns FALSE.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	BOOLEAN found;
+	USHORT major_version, minor_original;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	major_version = (SSHORT) dbb->dbb_ods_version;
+	minor_original = (SSHORT) dbb->dbb_minor_original;
+	found = FALSE;
+
+	if (ENCODE_ODS(major_version, minor_original) < ODS_9_0)
+		return found;
+
+	request = (BLK) CMP_find_request(tdbb, drq_get_role_nm, DYN_REQUESTS);
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$ROLES WITH
+			X.RDB$ROLE_NAME EQ input_name
+			if (!DYN_REQUEST(drq_get_role_nm))
+				DYN_REQUEST(drq_get_role_nm) = request;
+
+		found = TRUE;
+		DYN_terminate(X.RDB$OWNER_NAME, sizeof(X.RDB$OWNER_NAME));
+		strcpy(output_name, X.RDB$OWNER_NAME);
+
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_get_role_nm))
+		DYN_REQUEST(drq_get_role_nm) = request;
+
+	return found;
+}
+
+
+void DYN_unsupported_verb(void)
+{
+/**************************************
+ *
+ *	D Y N _ u n s u p p o r t e d _ v e r b
+ *
+ **************************************
+ *
+ * Functional description
+ *	We encountered an unsupported dyn verb.
+ *
+ **************************************/
+
+	DYN_error_punt(FALSE, 2, NULL, NULL, NULL, NULL, NULL);	/* msg 2: "unsupported DYN verb" */
+}
+
+
+void DYN_execute(
+				 GBL gbl,
+				 UCHAR ** ptr,
+				 TEXT * relation_name,
+				 TEXT * field_name,
+				 TEXT * trigger_name,
+TEXT * function_name, TEXT * procedure_name)
+{
+/**************************************
+ *
+ *	D Y N _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement.
+ *
+ **************************************/
+	UCHAR verb;
+
+	switch (verb = *(*ptr)++) {
+	case gds__dyn_begin:
+		while (**ptr != gds__dyn_end)
+			DYN_execute(gbl, ptr, relation_name, field_name,
+						trigger_name, function_name, procedure_name);
+		++(*ptr);
+		break;
+
+		/* Runtime security-related dynamic DDL should not require licensing.
+		   A placeholder case statement for SQL 3 Roles is reserved below. */
+
+	case gds__dyn_grant:
+		grant(gbl, ptr);
+		break;
+
+	case gds__dyn_revoke:
+		revoke(gbl, ptr);
+		break;
+
+/***
+    case gds__dyn_def_role:
+        create_role (gbl, ptr);
+	break;
+***/
+	default:
+		/* make sure that the license allows metadata operations */
+
+		switch (verb) {
+		case gds__dyn_mod_database:
+			DYN_modify_database(gbl, ptr);
+			break;
+
+		case gds__dyn_def_rel:
+		case gds__dyn_def_view:
+			DYN_define_relation(gbl, ptr);
+			break;
+
+		case gds__dyn_mod_rel:
+			DYN_modify_relation(gbl, ptr);
+			break;
+
+		case gds__dyn_delete_rel:
+			DYN_delete_relation(gbl, ptr, relation_name);
+			break;
+
+		case gds__dyn_def_security_class:
+			DYN_define_security_class(gbl, ptr);
+			break;
+
+		case gds__dyn_delete_security_class:
+			DYN_delete_security_class(gbl, ptr);
+			break;
+
+		case gds__dyn_def_exception:
+			DYN_define_exception(gbl, ptr);
+			break;
+
+		case gds__dyn_mod_exception:
+			DYN_modify_exception(gbl, ptr);
+			break;
+
+		case gds__dyn_del_exception:
+			DYN_delete_exception(gbl, ptr);
+			break;
+
+		case gds__dyn_def_filter:
+			DYN_define_filter(gbl, ptr);
+			break;
+
+		case gds__dyn_delete_filter:
+			DYN_delete_filter(gbl, ptr);
+			break;
+
+		case gds__dyn_def_function:
+			DYN_define_function(gbl, ptr);
+			break;
+
+		case gds__dyn_def_function_arg:
+			DYN_define_function_arg(gbl, ptr, function_name);
+			break;
+
+		case gds__dyn_delete_function:
+			DYN_delete_function(gbl, ptr);
+			break;
+
+		case gds__dyn_def_generator:
+			DYN_define_generator(gbl, ptr);
+			break;
+
+		case isc_dyn_def_sql_role:
+			DYN_define_role(gbl, ptr);
+			break;
+
+		case isc_dyn_del_sql_role:
+			DYN_delete_role(gbl, ptr);
+			break;
+
+		case gds__dyn_def_procedure:
+			DYN_define_procedure(gbl, ptr);
+			break;
+
+		case gds__dyn_mod_procedure:
+			DYN_modify_procedure(gbl, ptr);
+			break;
+
+		case gds__dyn_delete_procedure:
+			DYN_delete_procedure(gbl, ptr);
+			break;
+
+		case gds__dyn_def_parameter:
+			DYN_define_parameter(gbl, ptr, procedure_name);
+			break;
+
+		case gds__dyn_delete_parameter:
+			DYN_delete_parameter(gbl, ptr, procedure_name);
+			break;
+
+		case gds__dyn_def_shadow:
+			DYN_define_shadow(gbl, ptr);
+			break;
+
+		case gds__dyn_delete_shadow:
+			DYN_delete_shadow(gbl, ptr);
+			break;
+
+		case gds__dyn_def_trigger:
+			DYN_define_trigger(gbl, ptr, relation_name, NULL, FALSE);
+			break;
+
+		case gds__dyn_mod_trigger:
+			DYN_modify_trigger(gbl, ptr);
+			break;
+
+		case gds__dyn_delete_trigger:
+			DYN_delete_trigger(gbl, ptr);
+			break;
+
+		case gds__dyn_def_trigger_msg:
+			DYN_define_trigger_msg(gbl, ptr, trigger_name);
+			break;
+
+		case gds__dyn_mod_trigger_msg:
+			DYN_modify_trigger_msg(gbl, ptr, trigger_name);
+			break;
+
+		case gds__dyn_delete_trigger_msg:
+			DYN_delete_trigger_msg(gbl, ptr, trigger_name);
+			break;
+
+		case gds__dyn_def_global_fld:
+			DYN_define_global_field(gbl, ptr, relation_name, field_name);
+			break;
+
+		case gds__dyn_mod_global_fld:
+			DYN_modify_global_field(gbl, ptr, relation_name, field_name);
+			break;
+
+		case gds__dyn_delete_global_fld:
+			DYN_delete_global_field(gbl, ptr);
+			break;
+
+		case gds__dyn_def_local_fld:
+			DYN_define_local_field(gbl, ptr, relation_name, field_name);
+			break;
+
+		case gds__dyn_mod_local_fld:
+			DYN_modify_local_field(gbl, ptr, relation_name, NULL);
+			break;
+
+		case gds__dyn_delete_local_fld:
+			DYN_delete_local_field(gbl, ptr, relation_name, field_name);
+			break;
+
+		case isc_dyn_mod_sql_fld:
+			DYN_modify_sql_field(gbl, ptr, relation_name, NULL);
+			break;
+
+		case gds__dyn_def_sql_fld:
+			DYN_define_sql_field(gbl, ptr, relation_name, field_name);
+			break;
+
+		case gds__dyn_def_idx:
+			DYN_define_index(gbl, ptr, relation_name, verb, NULL, NULL, NULL,
+							 NULL);
+			break;
+
+		case gds__dyn_rel_constraint:
+			DYN_define_constraint(gbl, ptr, relation_name, field_name);
+			break;
+
+		case gds__dyn_delete_rel_constraint:
+			DYN_delete_constraint(gbl, ptr, relation_name);
+			break;
+
+		case gds__dyn_mod_idx:
+			DYN_modify_index(gbl, ptr);
+			break;
+
+		case gds__dyn_delete_idx:
+			DYN_delete_index(gbl, ptr);
+			break;
+
+		case gds__dyn_view_relation:
+			DYN_define_view_relation(gbl, ptr, relation_name);
+			break;
+
+		case gds__dyn_def_dimension:
+			DYN_define_dimension(gbl, ptr, relation_name, field_name);
+			break;
+
+		case gds__dyn_delete_dimensions:
+			DYN_delete_dimensions(gbl, ptr, relation_name, field_name);
+			break;
+
+		default:
+			DYN_unsupported_verb();
+			break;
+		}
+	}
+}
+
+
+SLONG DYN_get_number(UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ g e t _ n u m b e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a number and possible clear a null flag.
+ *
+ **************************************/
+	UCHAR *p;
+	USHORT length;
+
+	p = *ptr;
+	length = *p++;
+	length |= (*p++) << 8;
+	*ptr = p + length;
+
+	return gds__vax_integer(p, length);
+}
+
+
+USHORT DYN_get_string(TEXT ** ptr, TEXT * field, USHORT size, USHORT err_flag)
+{
+/**************************************
+ *
+ *	D Y N _ g e t _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a string, move to a target, and, if requested,
+ *	set a null flag.  Return length of string.
+ *	If destination field size is too small, punt.
+ *	Strings need enough space for null pad.
+ *
+ **************************************/
+	TEXT *p;
+	USHORT l, e, length;
+
+	e = 0;
+	p = *ptr;
+	length = (UCHAR) * p++;
+	length |= ((USHORT) ((UCHAR) (*p++))) << 8;
+	if (l = length) {
+		if (length >= size) {
+			if (err_flag)
+				DYN_error_punt(FALSE, 159, NULL, NULL, NULL, NULL, NULL);
+			/* msg 159: Name longer than database field size */
+			else {
+				l = size - 1;
+				e = length - l;
+			}
+		}
+		do
+			*field++ = *p++;
+		while (--l);
+		for (; e; e--)
+			p++;
+	}
+
+	*field = 0;
+	*ptr = p;
+
+	return length;
+}
+
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+void DYN_get_string2( TEXT ** ptr, TEXT * field, USHORT size)
+{
+/**************************************
+ *
+ *	D Y N _ g e t _ s t r i n g 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a string, convert to the interp of
+ *	the engine.
+ *	If the string expands beyond the field size, punt.
+ *
+ **************************************/
+	TEXT *p;
+	USHORT length;
+	USHORT from_interp;
+	USHORT to_interp;
+	DSC from, to;
+
+	to_interp = HOST_INTERP;
+
+	p = *ptr;
+
+	from_interp = *p++;
+	from_interp |= (*p++) << 8;
+
+	length = *p++;
+	length |= (*p++) << 8;
+
+	from.dsc_dtype = dtype_text;
+	from.dsc_scale = from_interp;
+	from.dsc_length = length;
+	from.dsc_address = (UCHAR *) p;
+
+	to.dsc_dtype = dtype_cstring;
+	to.dsc_scale = to_interp;
+	to.dsc_length = size;
+	to.dsc_address = (UCHAR *) field;
+
+	MOV_move(&from, &to);
+
+	p += length;
+	*ptr = p;
+}
+#endif
+
+
+USHORT DYN_put_blr_blob(GBL gbl, UCHAR** ptr, GDS__QUAD* blob_id)
+{
+/**************************************
+ *
+ *	D Y N _ p u t _ b l r _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out a blr blob.
+ *
+ **************************************/
+	TDBB	tdbb;
+	BLB		blob;
+	USHORT	length;
+	UCHAR*	p;
+	JMP_BUF	env;
+	JMP_BUF* old_env;
+
+	tdbb = GET_THREAD_DATA;
+
+	p = *ptr;
+	length = *p++;
+	length |= (*p++) << 8;
+
+	if (!length) {
+		*ptr = p;
+		return length;
+	}
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error_punt(TRUE, 106, NULL, NULL, NULL, NULL, NULL);
+		/* msg 106: "Create metadata blob failed" */
+	}
+
+	blob = BLB_create(tdbb, gbl->gbl_transaction, (BID)blob_id);
+	BLB_put_segment(tdbb, blob, p, length);
+	BLB_close(tdbb, blob);
+
+	tdbb->tdbb_setjmp = (UCHAR*) old_env;
+
+	*ptr = p + length;
+
+	return length;
+}
+
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+USHORT DYN_put_blr_blob2(GBL gbl, UCHAR ** ptr, GDS__QUAD * blob_id)
+{
+/**************************************
+ *
+ *	D Y N _ p u t _ b l r _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out a blob.
+ *	Convert the string to local encoding.
+ * 	Not sure why we call this blr blob	
+ *	This routine is used to put query_header
+ *	which is a text blob.
+ *
+ **************************************/
+	TDBB tdbb;
+	BLK blob;
+	USHORT length;
+	UCHAR *p;
+	USHORT bpb_length, from_interp;
+	UCHAR bpb[20], *p2;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+
+	p = *ptr;
+
+	from_interp = *p++;
+	from_interp |= (*p++) << 8;
+
+	length = *p++;
+	length |= (*p++) << 8;
+
+	if (!length) {
+		*ptr = p;
+		return length;
+	}
+
+	blob = NULL;
+
+	p2 = bpb;
+	*p2++ = gds__bpb_version1;
+	*p2++ = gds__bpb_source_interp;
+	*p2++ = 2;
+	*p2++ = from_interp;
+	*p2++ = from_interp >> 8;
+	bpb_length = p2 - bpb;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error_punt(TRUE, 106, NULL, NULL, NULL, NULL, NULL);
+		/* msg 106: "Create metadata blob failed" */
+	}
+
+	blob =
+		(BLK) BLB_create2(tdbb, gbl->gbl_transaction, blob_id, bpb_length,
+						  bpb);
+	BLB_put_segment(tdbb, blob, p, length);
+	BLB_close(tdbb, blob);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	*ptr = p + length;
+
+	return length;
+}
+#endif
+
+
+USHORT DYN_put_text_blob(GBL gbl, UCHAR ** ptr, GDS__QUAD * blob_id)
+{
+/**************************************
+ *
+ *	D Y N _ p u t _ t e x t _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out a text blob.
+ *
+ **************************************/
+	TDBB tdbb;
+	USHORT length;
+	UCHAR *p, *end;
+	BLB blob;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+
+	p = *ptr;
+	length = *p++;
+	length |= (*p++) << 8;
+
+	if (!length) {
+		*ptr = p;
+		return length;
+	}
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error_punt(TRUE, 106, NULL, NULL, NULL, NULL, NULL);
+		/* msg 106: "Create metadata blob failed" */
+	}
+
+	blob = BLB_create(tdbb, gbl->gbl_transaction, (BID)blob_id);
+
+	for (end = p + length; p < end; p += TEXT_BLOB_LENGTH)
+	{
+		length = (p + TEXT_BLOB_LENGTH <= end) ? TEXT_BLOB_LENGTH : end - p;
+		BLB_put_segment(tdbb, blob, p, length);
+	}
+	BLB_close(tdbb, blob);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	*ptr = end;
+
+	return length;
+}
+
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+USHORT DYN_put_text_blob2(GBL gbl, UCHAR ** ptr, GDS__QUAD * blob_id)
+{
+/**************************************
+ *
+ *	D Y N _ p u t _ t e x t _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out a text blob.
+ *	This one is similar to put_text_blob(),
+ *	except that this one is for tagged description blobs.
+ *
+ **************************************/
+	TDBB tdbb;
+	USHORT length;
+	UCHAR *p, *end;
+	BLK blob;
+	USHORT bpb_length, from_interp;
+	UCHAR bpb[20], *p2;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+
+	p = *ptr;
+
+	from_interp = *p++;
+	from_interp |= (*p++) << 8;
+
+	length = *p++;
+	length |= (*p++) << 8;
+
+	if (!length) {
+		*ptr = p;
+		return length;
+	}
+
+	p2 = bpb;
+	*p2++ = gds__bpb_version1;
+	*p2++ = gds__bpb_source_interp;
+	*p2++ = 2;
+	*p2++ = from_interp;
+	*p2++ = from_interp >> 8;
+	bpb_length = p2 - bpb;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error_punt(TRUE, 106, NULL, NULL, NULL, NULL, NULL);
+		/* msg 106: "Create metadata blob failed" */
+	}
+
+	blob =
+		(BLK) BLB_create2(tdbb, gbl->gbl_transaction, blob_id, bpb_length,
+						  bpb);
+
+	for (end = p + length; p < end; p += TEXT_BLOB_LENGTH) {
+		length = (p + TEXT_BLOB_LENGTH <= end) ? TEXT_BLOB_LENGTH : end - p;
+		BLB_put_segment(tdbb, blob, p, length);
+	}
+	BLB_close(tdbb, blob);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	*ptr = end;
+
+	return length;
+}
+#endif /* (defined JPN_SJIS || defined JPN_EUC) */
+
+
+void DYN_rundown_request( JMP_BUF * old_env, BLK handle, SSHORT id)
+{
+/**************************************
+ *
+ *	D Y N _ r u n d o w n _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a request and save it
+ *	in the dyn internal request list.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	if (old_env)
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (!handle)
+		return;
+
+	EXE_unwind(tdbb, (REQ)handle);
+	if (id >= 0 && !DYN_REQUEST(id))
+		DYN_REQUEST(id) = handle;
+}
+
+
+USHORT DYN_skip_attribute(UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ s k i p _ a t t r i b u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Skip over attribute returning length (excluding
+ *	size of count bytes).
+ *
+ **************************************/
+	UCHAR *p;
+	USHORT length;
+
+	p = *ptr;
+	length = *p++;
+	length |= (*p++) << 8;
+	*ptr = p + length;
+
+	return length;
+}
+
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+USHORT DYN_skip_attribute2(UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ s k i p _ a t t r i b u t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Skip over a tagged attribute returning length 
+ *	(excluding size of count bytes and tag).
+ *
+ **************************************/
+	UCHAR *p;
+	USHORT length;
+	USHORT from_interp;
+
+	p = *ptr;
+
+	from_interp = *p++;
+	from_interp |= (*p++) << 8;
+
+	length = *p++;
+	length |= (*p++) << 8;
+	*ptr = p + length;
+
+	return length;
+}
+#endif
+
+
+void DYN_terminate( TEXT * string, int length)
+{
+/**************************************
+ *
+ *	D Y N _ t e r m i n a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove trailing blanks from a string.
+ *	Ensure that the resulting string (of size length) is
+ *	terminated with a NULL.
+ *
+ **************************************/
+	TEXT *p, *q;
+
+	q = string - 1;
+	for (p = string; *p && --length; p++) {
+		if (*p != BLANK)
+			q = p;
+	}
+
+	*(q + 1) = '\0';
+}
+
+
+static void grant( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	g r a n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute SQL grant operation.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	SSHORT user_type, obj_type;
+	VOLATILE SSHORT id, err_num;
+	int options, duplicate;
+	UCHAR verb;
+	TEXT privileges[16], object[32], field[32], user[32], *p, priv[2];
+	JMP_BUF env, *old_env;
+	BOOLEAN grant_role_stmt = FALSE;
+	TEXT dummy_name[32], grantor[32], *ptr1, *ptr2;
+	USHORT major_version, minor_original;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	major_version = (SSHORT) dbb->dbb_ods_version;
+	minor_original = (SSHORT) dbb->dbb_minor_original;
+
+	GET_STRING(ptr, privileges);
+	if (!strcmp(privileges, "A"))
+		strcpy(privileges, ALL_PRIVILEGES);
+
+	object[0] = field[0] = user[0] = 0;
+	options = 0;
+	obj_type = user_type = -1;
+
+	while ((verb = *(*ptr)++) != gds__dyn_end)
+		switch (verb) {
+		case gds__dyn_rel_name:
+			obj_type = obj_relation;
+			GET_STRING(ptr, object);
+			break;
+
+		case gds__dyn_prc_name:
+			obj_type = obj_procedure;
+			GET_STRING(ptr, object);
+			break;
+
+		case gds__dyn_fld_name:
+			GET_STRING(ptr, field);
+			break;
+
+		case isc_dyn_grant_user_group:
+			user_type = obj_user_group;
+			GET_STRING(ptr, user);
+			break;
+
+		case gds__dyn_grant_user:
+			GET_STRING(ptr, user);
+			if (DYN_is_it_sql_role(gbl, user, dummy_name, tdbb)) {
+				user_type = obj_sql_role;
+			}
+			else {
+				user_type = obj_user;
+				for (ptr1 = user; *ptr1; ptr1++) {
+					*ptr1 = UPPER7(*ptr1);
+				}
+			}
+			break;
+
+		case isc_dyn_sql_role_name:	/* role name in role_name_list */
+			if (ENCODE_ODS(major_version, minor_original) < ODS_9_0) {
+				DYN_error(FALSE, 196, NULL, NULL, NULL, NULL, NULL);
+				ERR_punt();
+			}
+			else {
+				obj_type = obj_sql_role;
+				GET_STRING(ptr, object);
+				grant_role_stmt = TRUE;
+			}
+			break;
+
+		case gds__dyn_grant_proc:
+			user_type = obj_procedure;
+			GET_STRING(ptr, user);
+			break;
+
+		case gds__dyn_grant_trig:
+			user_type = obj_trigger;
+			GET_STRING(ptr, user);
+			break;
+
+		case gds__dyn_grant_view:
+			user_type = obj_view;
+			GET_STRING(ptr, user);
+			break;
+
+		case gds__dyn_grant_options:
+		case isc_dyn_grant_admin_options:
+			options = DYN_get_number(ptr);
+			break;
+
+		default:
+			DYN_unsupported_verb();
+		}
+
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		/* we need to rundown as we have to set the env.
+		   But in case the error is from store_priveledge we have already
+		   unwound the request so passing that as null */
+		DYN_rundown_request(old_env,
+							((id == drq_s_grant || id == drq_gcg1) ? NULL :
+							 request), -1);
+		if (id == drq_l_grant1)
+			DYN_error_punt(TRUE, 77, NULL, NULL, NULL, NULL, NULL);
+		/* msg 77: "SELECT RDB$USER_PRIVILEGES failed in grant" */
+		else if (id == drq_l_grant2)
+			DYN_error_punt(TRUE, 78, NULL, NULL, NULL, NULL, NULL);
+		/* msg 78: "SELECT RDB$USER_PRIVILEGES failed in grant" */
+		else if (id == drq_s_grant || id == drq_gcg1)
+			ERR_punt();
+		/* store_priviledge || grantor_can_grant error already handled, 
+		   just bail out */
+		else if (id == drq_get_role_nm)
+			ERR_punt();
+		else {
+			assert(id == drq_gcg1);
+			DYN_error_punt(TRUE, 78, NULL, NULL, NULL, NULL, NULL);
+			/* msg 78: "SELECT RDB$USER_PRIVILEGES failed in grant" */
+		}
+	}
+
+	request = (BLK)CMP_find_request(tdbb,
+						(USHORT)(field[0] ? drq_l_grant1 : drq_l_grant2),
+						DYN_REQUESTS);
+	for (p = privileges; *p; p++)
+	{
+		duplicate = FALSE;
+		priv[0] = *p;
+		priv[1] = 0;
+		if (field[0])
+		{
+			id = drq_l_grant1;
+			FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				PRIV IN RDB$USER_PRIVILEGES WITH
+					PRIV.RDB$RELATION_NAME EQ object AND
+					PRIV.RDB$OBJECT_TYPE = obj_type AND
+					PRIV.RDB$PRIVILEGE EQ priv AND
+					PRIV.RDB$USER = user AND
+					PRIV.RDB$USER_TYPE = user_type AND
+					PRIV.RDB$GRANTOR EQ UPPERCASE(RDB$USER_NAME) AND
+					PRIV.RDB$FIELD_NAME EQ field
+					if (!DYN_REQUEST(drq_l_grant1))
+						DYN_REQUEST(drq_l_grant1) = request;
+
+				if ((PRIV.RDB$GRANT_OPTION.NULL) ||
+					(PRIV.RDB$GRANT_OPTION) ||
+					(PRIV.RDB$GRANT_OPTION == options)) duplicate = TRUE;
+				else
+					ERASE PRIV;	/* has to be 0 and options == 1 */
+			END_FOR;
+			if (!DYN_REQUEST(drq_l_grant1))
+			{
+				DYN_REQUEST(drq_l_grant1) = request;
+			}
+		}
+		else
+		{
+			id = drq_l_grant2;
+			FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				PRIV IN RDB$USER_PRIVILEGES WITH
+					PRIV.RDB$RELATION_NAME EQ object AND
+					PRIV.RDB$OBJECT_TYPE = obj_type AND
+					PRIV.RDB$PRIVILEGE EQ priv AND
+					PRIV.RDB$USER = user AND
+					PRIV.RDB$USER_TYPE = user_type AND
+					PRIV.RDB$GRANTOR EQ UPPERCASE(RDB$USER_NAME) AND
+					PRIV.RDB$FIELD_NAME MISSING
+					if (!DYN_REQUEST(drq_l_grant2))
+						DYN_REQUEST(drq_l_grant2) = request;
+
+				if ((PRIV.RDB$GRANT_OPTION.NULL) ||
+					(PRIV.RDB$GRANT_OPTION) ||
+					(PRIV.RDB$GRANT_OPTION == options))
+				{
+					duplicate = TRUE;
+				}
+				else
+				{
+					ERASE PRIV;	/* has to be 0 and options == 1 */
+				}
+			END_FOR;
+			if (!DYN_REQUEST(drq_l_grant2))
+			{
+				DYN_REQUEST(drq_l_grant2) = request;
+			}
+		}
+
+		if (duplicate)
+			continue;
+
+		if (grant_role_stmt)
+		{
+			if (ENCODE_ODS(major_version, minor_original) < ODS_9_0) {
+				DYN_error(FALSE, 196, NULL, NULL, NULL, NULL, NULL);
+				ERR_punt();
+			}
+			id = drq_get_role_nm;
+
+			for (ptr1 = tdbb->tdbb_attachment->att_user->usr_user_name,
+				 ptr2 = grantor; *ptr1; ptr1++, ptr2++)
+			{
+				*ptr2 = UPPER7(*ptr1);
+			}
+			*ptr2 = '\0';
+
+			if (!grantor_can_grant_role(tdbb, gbl, grantor, object))
+				ERR_punt();
+
+			if (user_type == obj_sql_role) {
+			/****************************************************
+            **
+            ** temporary restriction. This should be removed once
+            ** GRANT role1 TO rolex is supported and this message
+            ** could be reused for blocking cycles of role grants
+            **
+            *****************************************************/
+				DYN_error(FALSE, 192, user, NULL, NULL, NULL, NULL);
+				tdbb->tdbb_setjmp = (UCHAR *) old_env;
+				ERR_punt();
+			}
+		}
+		else {
+
+			/* In the case where the object is a view, then the grantor must have
+			   some kind of grant privileges on the base table(s)/view(s).  If the
+			   grantor is the owner of the view, then we have to explicitely check
+			   this because the owner of a view by default has grant privileges on
+			   his own view.  If the grantor is not the owner of the view, then the
+			   base table/view grant privilege checks were made when the grantor
+			   got its grant privilege on the view and no further checks are
+			   necessary. */
+
+			if (!obj_type) {	/* relation or view because we cannot distinguish at this point. */
+				id = drq_gcg1;
+				if (!grantor_can_grant
+					(gbl, tdbb->tdbb_attachment->att_user->usr_user_name,
+					 priv, object, field, TRUE)) {
+					/* grantor_can_grant has moved the error string already. 
+					   just punt back to the setjump */
+					ERR_punt();
+				}
+			}
+		}
+
+		id = drq_s_grant;
+		store_privilege(gbl, object, user, field, p, user_type, obj_type,
+						options);
+	}
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+static BOOLEAN grantor_can_grant(
+								 GBL gbl,
+								 TEXT * grantor,
+								 TEXT * privilege,
+								 TEXT * relation_name,
+TEXT * field_name, BOOLEAN top_level)
+{
+/**************************************
+ *
+ *	g r a n t o r _ c a n _ g r a n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	return: TRUE is the grantor has grant privilege on the relation/field.
+ *		FALSE otherwise.
+ *
+ **************************************/
+	JMP_BUF env, *old_env;
+	TDBB tdbb;
+	DBB dbb;
+/* Remember the grant option for non field-specific user-privileges, and the
+   grant option for the user-privileges for the input field.
+   -1 = no privilege found (yet)
+   0 = privilege without grant option found
+   1 = privilege with grant option found */
+	SSHORT go_rel = -1;
+	SSHORT go_fld = -1;
+	BLK request;
+	BOOLEAN sql_relation = FALSE;
+	BOOLEAN relation_exists = FALSE;
+	BOOLEAN field_exists = FALSE;
+	BOOLEAN grantor_is_owner = FALSE;
+	VOLATILE USHORT err_num;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* Verify that the input relation exists. */
+
+	request = (BLK) CMP_find_request(tdbb, drq_gcg4, DYN_REQUESTS);
+
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, err_num, NULL, NULL, NULL, NULL, NULL);
+		/* msg 77: "SELECT RDB$USER_PRIVILEGES failed in grant" */
+
+		return FALSE;
+	}
+
+
+	err_num = 182;				/* for the longjump */
+/* SELECT RDB$RELATIONS failed in grant */
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		REL IN RDB$RELATIONS WITH
+			REL.RDB$RELATION_NAME = relation_name relation_exists = TRUE;
+		if ((!REL.RDB$FLAGS.NULL) && (REL.RDB$FLAGS & REL_sql))
+			sql_relation = TRUE;
+		if (!DYN_REQUEST(drq_gcg4))
+			DYN_REQUEST(drq_gcg4) = request;
+	END_FOR;
+	if (!DYN_REQUEST(drq_gcg4))
+		DYN_REQUEST(drq_gcg4) = request;
+	if (!relation_exists) {
+		DYN_error(FALSE, 175, relation_name, NULL, NULL, NULL, NULL);
+		/* table/view .. does not exist */
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		return FALSE;
+	}
+
+/* Verify the the input field exists. */
+
+	if (field_name[0])
+	{
+		err_num = 183;
+		/* SELECT RDB$RELATION_FIELDS failed in grant */
+		request = (BLK) CMP_find_request(tdbb, drq_gcg5, DYN_REQUESTS);
+		FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+			G_FLD IN RDB$RELATION_FIELDS WITH
+				G_FLD.RDB$RELATION_NAME = relation_name AND
+				G_FLD.RDB$FIELD_NAME = field_name if (!DYN_REQUEST(drq_gcg5))
+				DYN_REQUEST(drq_gcg5) = request;
+			field_exists = TRUE;
+		END_FOR;
+		if (!DYN_REQUEST(drq_gcg5))
+			DYN_REQUEST(drq_gcg5) = request;
+		if (!field_exists) {
+			DYN_error(FALSE, 176, field_name, relation_name, NULL, NULL,
+					  NULL);
+			/* column .. does not exist in table/view .. */
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			return FALSE;
+		}
+	}
+
+/* If the current user is locksmith - allow all grants to occur */
+
+	if (tdbb->tdbb_attachment->att_user->usr_flags & USR_locksmith) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		return TRUE;
+	}
+
+/* If this is a non-sql table, then the owner will probably not have any
+   entries in the rdb$user_privileges table.  Give the owner of a GDML
+   table all privileges. */
+	err_num = 184;
+/* SELECT RDB$RELATIONS/RDB$OWNER_NAME failed in grant */
+
+	request = (BLK) CMP_find_request(tdbb, drq_gcg2, DYN_REQUESTS);
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		REL IN RDB$RELATIONS WITH
+			REL.RDB$RELATION_NAME = relation_name AND
+			REL.RDB$OWNER_NAME = UPPERCASE(grantor)
+			if (!DYN_REQUEST(drq_gcg2))
+			DYN_REQUEST(drq_gcg2) = request;
+		grantor_is_owner = TRUE;
+	END_FOR;
+	if (!DYN_REQUEST(drq_gcg2))
+		DYN_REQUEST(drq_gcg2) = request;
+	if (!sql_relation && grantor_is_owner) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		return TRUE;
+	}
+
+/* Verify that the grantor has the grant option for this relation/field
+   in the rdb$user_privileges.  If not, then we don't need to look further. */
+
+	err_num = 185;
+/* SELECT RDB$USER_PRIVILEGES failed in grant */
+
+	request = (BLK) CMP_find_request(tdbb, drq_gcg1, DYN_REQUESTS);
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		PRV IN RDB$USER_PRIVILEGES WITH
+			PRV.RDB$USER = UPPERCASE(grantor) AND
+			PRV.RDB$USER_TYPE = obj_user AND
+			PRV.RDB$RELATION_NAME = relation_name AND
+			PRV.RDB$OBJECT_TYPE = obj_relation AND
+			PRV.RDB$PRIVILEGE = privilege if (!DYN_REQUEST(drq_gcg1))
+			DYN_REQUEST(drq_gcg1) = request;
+
+		if (PRV.RDB$FIELD_NAME.NULL) {
+			if (PRV.RDB$GRANT_OPTION.NULL || !PRV.RDB$GRANT_OPTION)
+				go_rel = 0;
+			else if (go_rel)
+				go_rel = 1;
+		}
+		else {
+			if (PRV.RDB$GRANT_OPTION.NULL || !PRV.RDB$GRANT_OPTION) {
+				DYN_terminate(PRV.RDB$FIELD_NAME, sizeof(PRV.RDB$FIELD_NAME));
+				if (field_name[0] && !strcmp(field_name, PRV.RDB$FIELD_NAME))
+					go_fld = 0;
+			}
+			else
+			{
+				DYN_terminate(PRV.RDB$FIELD_NAME, sizeof(PRV.RDB$FIELD_NAME));
+				if (field_name[0] && !strcmp(field_name, PRV.RDB$FIELD_NAME))
+					go_fld = 1;
+			}
+		}
+	END_FOR;
+	if (!DYN_REQUEST(drq_gcg1))
+	{
+		DYN_REQUEST(drq_gcg1) = request;
+	}
+
+	if (field_name[0])
+	{
+		if (go_fld == 0)
+		{
+			DYN_error(FALSE,
+					(USHORT)(top_level ? 167 : 168),
+					privilege,
+					field_name,
+					relation_name,
+					NULL,
+					NULL);
+			/* no grant option for privilege .. on column .. of [base] table/view .. */
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			return FALSE;
+		}
+		else if (go_fld == -1)
+		{
+			if (go_rel == 0)
+			{
+				DYN_error(FALSE,
+						(USHORT)(top_level ? 169 : 170),
+						privilege,
+						relation_name,
+						field_name,
+						NULL,
+						NULL);
+				/* no grant option for privilege .. on [base] table/view .. (for column ..) */
+				tdbb->tdbb_setjmp = (UCHAR *) old_env;
+				return FALSE;
+			}
+			else if (go_rel == -1)
+			{
+				DYN_error(FALSE,
+						(USHORT)(top_level ? 171 : 172),
+						privilege,
+						relation_name,
+						field_name,
+						NULL,
+						NULL);
+				/* no .. privilege with grant option on [base] table/view .. (for column ..) */
+				tdbb->tdbb_setjmp = (UCHAR *) old_env;
+				return FALSE;
+			}
+		}
+	}
+	else
+	{
+		if (go_rel == 0)
+		{
+			DYN_error(FALSE, 173, privilege, relation_name, NULL, NULL, NULL);
+			/* no grant option for privilege .. on table/view ..  */
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			return FALSE;
+		}
+		else if (go_rel == -1)
+		{
+			DYN_error(FALSE, 174, privilege, relation_name, NULL, NULL, NULL);
+			/* no .. privilege with grant option on table/view .. */
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			return FALSE;
+		}
+	}
+
+/* If the grantor is not the owner of the relation, then we don't need to
+   check the base table(s)/view(s) because that check was performed when 
+   the grantor was given its privileges. */
+
+	if (!grantor_is_owner) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		return TRUE;
+	}
+
+/* Find all the base fields/relations and check for the correct
+   grant privileges on them. */
+
+	err_num = 186;
+/* SELECT RDB$VIEW_RELATIONS/RDB$RELATION_FIELDS/... failed in grant */
+
+	request = (BLK) CMP_find_request(tdbb, drq_gcg3, DYN_REQUESTS);
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		G_FLD IN RDB$RELATION_FIELDS CROSS
+			G_VIEW IN RDB$VIEW_RELATIONS WITH
+			G_FLD.RDB$RELATION_NAME = relation_name AND
+			G_FLD.RDB$BASE_FIELD NOT MISSING AND
+			G_VIEW.RDB$VIEW_NAME EQ G_FLD.RDB$RELATION_NAME AND
+			G_VIEW.RDB$VIEW_CONTEXT EQ G_FLD.RDB$VIEW_CONTEXT
+			if (!DYN_REQUEST(drq_gcg3)) DYN_REQUEST(drq_gcg3) = request;
+		DYN_terminate(G_FLD.RDB$BASE_FIELD, sizeof(G_FLD.RDB$BASE_FIELD));
+		DYN_terminate(G_FLD.RDB$FIELD_NAME, sizeof(G_FLD.RDB$FIELD_NAME));
+		DYN_terminate(G_VIEW.RDB$RELATION_NAME,
+					  sizeof(G_VIEW.RDB$RELATION_NAME));
+		if (field_name[0]) {
+			if (!strcmp(field_name, G_FLD.RDB$FIELD_NAME))
+				if (!grantor_can_grant
+					(gbl, grantor, privilege, G_VIEW.RDB$RELATION_NAME,
+					 G_FLD.RDB$BASE_FIELD, FALSE)) {
+					tdbb->tdbb_setjmp = (UCHAR *) old_env;
+					return FALSE;
+				}
+		}
+		else {
+			if (!grantor_can_grant
+				(gbl, grantor, privilege, G_VIEW.RDB$RELATION_NAME,
+				 G_FLD.RDB$BASE_FIELD, FALSE)) {
+				tdbb->tdbb_setjmp = (UCHAR *) old_env;
+				return FALSE;
+			}
+		}
+	END_FOR;
+	if (!DYN_REQUEST(drq_gcg3))
+		DYN_REQUEST(drq_gcg3) = request;
+
+/* all done. */
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	return TRUE;
+}
+
+
+static BOOLEAN grantor_can_grant_role(
+									  TDBB tdbb,
+									  GBL gbl,
+									  TEXT * grantor, TEXT * role_name)
+{
+/**************************************
+ *
+ *	g r a n t o r _ c a n _ g r a n t _ r o l e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	return: TRUE if the grantor has admin privilege on the role.
+ *		FALSE otherwise.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	BOOLEAN grantable = FALSE;
+	TEXT owner[32];
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if (tdbb->tdbb_attachment->att_user->usr_flags & USR_locksmith)
+		return TRUE;
+
+/* Fetch the name of the owner of the ROLE */
+	if (DYN_is_it_sql_role(gbl, role_name, owner, tdbb)) {
+		/* The owner of the ROLE can always grant membership */
+		if (strcmp(owner, grantor) == 0)
+			return TRUE;
+	}
+	else {
+	/****************************************************
+    **
+    **  role name not exist.
+    **
+    *****************************************************/
+		DYN_error(FALSE, 188, role_name, NULL, NULL, NULL, NULL);
+		return FALSE;
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_get_role_au, DYN_REQUESTS);
+
+/* The 'grantor' is not the owner of the ROLE, see if they have
+   admin privilege on the role */
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		PRV IN RDB$USER_PRIVILEGES WITH
+			PRV.RDB$USER = UPPERCASE(grantor) AND
+			PRV.RDB$USER_TYPE = obj_user AND
+			PRV.RDB$RELATION_NAME EQ role_name AND
+			PRV.RDB$OBJECT_TYPE = obj_sql_role AND
+			PRV.RDB$PRIVILEGE EQ "M"
+			if (!DYN_REQUEST(drq_get_role_au))
+				DYN_REQUEST(drq_get_role_au) = request;
+
+		if (PRV.RDB$GRANT_OPTION == 2)
+			grantable = TRUE;
+		else {
+	/****************************************************
+	**
+	**  user have no admin option.
+	**
+	*****************************************************/
+			DYN_error(FALSE, 189, grantor, role_name, NULL, NULL, NULL);
+			return FALSE;
+		}
+
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_get_role_au))
+		DYN_REQUEST(drq_get_role_au) = request;
+
+	if (!grantable) {
+	/****************************************************
+    **
+    **  user is not a member of the role.
+    **
+    *****************************************************/
+		DYN_error(FALSE, 190, grantor, role_name, NULL, NULL, NULL);
+		return FALSE;
+	}
+
+	return grantable;
+}
+
+
+static void revoke( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	r e v o k e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Revoke some privileges.
+ *
+ *	Note: According to SQL II, section 11.37, pg 280, 
+ *	general rules 8 & 9,
+ *	if the specified priviledge for the specified user
+ *	does not exist, it is not an exception error condition
+ *	but a completion condition.  Since V4.0 does not support
+ *	completion conditions (warnings) we do not return
+ *	any indication that the revoke operation didn't do
+ *	anything.
+ *	1994-August-2 Rich Damon & David Schnepper
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK old_request, request;
+	VOLATILE USHORT old_id, id;
+	UCHAR verb;
+	SSHORT user_type, obj_type;
+	TEXT privileges[16], object[32], field[32], user[32], *p, *q, temp[2];
+	USHORT all_privs = FALSE;
+	int options;
+	USHORT grant_erased;
+	JMP_BUF env, *old_env;
+	USR revoking_user;
+	TEXT revoking_user_name[32], dummy_name[32];
+	TEXT grantor[32], *ptr1, *ptr2;
+	USHORT major_version, minor_original;
+
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	major_version = (SSHORT) dbb->dbb_ods_version;
+	minor_original = (SSHORT) dbb->dbb_minor_original;
+
+/* Stash away a copy of the revoker's name, in uppercase form */
+
+	revoking_user = tdbb->tdbb_attachment->att_user;
+	for (p = revoking_user->usr_user_name, q = revoking_user_name; *p;
+		 p++, q++)
+		*q = UPPER7(*p);
+	*q = 0;
+
+	GET_STRING(ptr, privileges);
+	if (!strcmp(privileges, "A")) {
+		strcpy(privileges, ALL_PRIVILEGES);
+		all_privs = TRUE;
+	}
+
+	object[0] = field[0] = user[0] = 0;
+	obj_type = user_type = -1;
+	options = 0;
+
+	while ((verb = *(*ptr)++) != gds__dyn_end)
+		switch (verb) {
+		case gds__dyn_rel_name:
+			obj_type = obj_relation;
+			GET_STRING(ptr, object);
+			break;
+
+		case gds__dyn_prc_name:
+			obj_type = obj_procedure;
+			GET_STRING(ptr, object);
+			break;
+
+		case gds__dyn_fld_name:
+			GET_STRING(ptr, field);
+			break;
+
+		case isc_dyn_grant_user_group:
+			user_type = obj_user_group;
+			GET_STRING(ptr, user);
+			break;
+
+		case gds__dyn_grant_user:
+			GET_STRING(ptr, user);
+			if (DYN_is_it_sql_role(gbl, user, dummy_name, tdbb)) {
+				user_type = obj_sql_role;
+			}
+			else {
+				user_type = obj_user;
+				for (ptr1 = user; *ptr1; ptr1++) {
+					*ptr1 = UPPER7(*ptr1);
+				}
+			}
+			break;
+
+		case isc_dyn_sql_role_name:	/* role name in role_name_list */
+			if (ENCODE_ODS(major_version, minor_original) < ODS_9_0) {
+				DYN_error(FALSE, 196, NULL, NULL, NULL, NULL, NULL);
+				ERR_punt();
+			}
+			else {
+				obj_type = obj_sql_role;
+				GET_STRING(ptr, object);
+			}
+			break;
+
+		case gds__dyn_grant_proc:
+			user_type = obj_procedure;
+			GET_STRING(ptr, user);
+			break;
+
+		case gds__dyn_grant_trig:
+			user_type = obj_trigger;
+			GET_STRING(ptr, user);
+			break;
+
+		case gds__dyn_grant_view:
+			user_type = obj_view;
+			GET_STRING(ptr, user);
+			break;
+
+		case gds__dyn_grant_options:
+			options = DYN_get_number(ptr);
+			break;
+
+		default:
+			DYN_unsupported_verb();
+		}
+
+	request = (BLK)CMP_find_request(tdbb,
+						(USHORT)(field[0] ? drq_e_grant1 : drq_e_grant2),
+						DYN_REQUESTS);
+	id = field[0] ? drq_e_grant1 : drq_e_grant2;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		/* we need to rundown as we have to set the env.
+		   But in case the error is from store_priveledge we have already 
+		   unwound the request so passing that as null */
+		DYN_rundown_request(old_env, ((id == drq_s_grant) ? NULL : request),
+							-1);
+		if (id == drq_e_grant1)
+			DYN_error_punt(TRUE, 111, NULL, NULL, NULL, NULL, NULL);
+		/* msg 111: "ERASE RDB$USER_PRIVILEGES failed in revoke(1)" */
+		else if (id == drq_e_grant2)
+			DYN_error_punt(TRUE, 113, NULL, NULL, NULL, NULL, NULL);
+		/* msg 113: "ERASE RDB$USER_PRIVILEGES failed in revoke (3)" */
+		else
+			ERR_punt();
+		/* store_priviledge error already handled, just bail out */
+	}
+
+	temp[1] = 0;
+	for (p = privileges; temp[0] = *p; p++) {
+		grant_erased = FALSE;
+
+		if (field[0]) {
+			FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				PRIV IN RDB$USER_PRIVILEGES WITH
+					PRIV.RDB$PRIVILEGE EQ temp AND
+					PRIV.RDB$RELATION_NAME EQ object AND
+					PRIV.RDB$OBJECT_TYPE = obj_type AND
+					PRIV.RDB$USER = user AND
+					PRIV.RDB$USER_TYPE = user_type AND
+					PRIV.RDB$FIELD_NAME EQ field
+					if (!DYN_REQUEST(drq_e_grant1))
+						DYN_REQUEST(drq_e_grant1) = request;
+
+				DYN_terminate(PRIV.RDB$GRANTOR, sizeof(PRIV.RDB$GRANTOR));
+				if ((revoking_user->usr_flags & USR_locksmith) ||
+					(!strcmp(PRIV.RDB$GRANTOR, revoking_user_name))) {
+					ERASE PRIV;
+					grant_erased = TRUE;
+				};
+
+			END_FOR;
+			if (!DYN_REQUEST(drq_e_grant1))
+				DYN_REQUEST(drq_e_grant1) = request;
+		}
+		else {
+			FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				PRIV IN RDB$USER_PRIVILEGES WITH
+					PRIV.RDB$PRIVILEGE EQ temp AND
+					PRIV.RDB$RELATION_NAME EQ object AND
+					PRIV.RDB$OBJECT_TYPE = obj_type AND
+					PRIV.RDB$USER EQ user AND
+					PRIV.RDB$USER_TYPE = user_type
+					if (!DYN_REQUEST(drq_e_grant2))
+						DYN_REQUEST(drq_e_grant2) = request;
+
+				DYN_terminate(PRIV.RDB$GRANTOR, sizeof(PRIV.RDB$GRANTOR));
+
+				/* revoking a permission at the table level implies
+				   revoking the perm. on all columns. So for all fields
+				   in this table which have been granted the privilege, we
+				   erase the entries from RDB$USER_PRIVILEGES. */
+
+				if ((revoking_user->usr_flags & USR_locksmith) ||
+					(!strcmp(PRIV.RDB$GRANTOR, revoking_user_name))) {
+					ERASE PRIV;
+					grant_erased = TRUE;
+				}
+			END_FOR;
+			if (!DYN_REQUEST(drq_e_grant2))
+				DYN_REQUEST(drq_e_grant2) = request;
+		}
+
+		if (options && grant_erased) {
+			/* Add the privilege without the grant option 
+			 * There is a modify trigger on the rdb$user_privileges
+			 * which disallows the table from being updated.  It would
+			 * have to be changed such that only the grant_option
+			 * field can be updated.
+			 */
+
+			old_id = id;
+			id = drq_s_grant;
+
+			store_privilege(gbl, object, user, field, p, user_type, obj_type,
+							0);
+
+			id = old_id;
+		}
+	}
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+static void store_privilege(
+							GBL gbl,
+							TEXT * object,
+							TEXT * user,
+							TEXT * field,
+							TEXT * privilege,
+SSHORT user_type, SSHORT obj_type, int option)
+{
+/**************************************
+ *
+ *	s t o r e _ p r i v i l e g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Does its own cleanup in case of error, so calling
+ *	routine should not.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_grant, DYN_REQUESTS);
+
+/* need to unwind our own request here!! SM 27-Sep-96 */
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 79, NULL, NULL, NULL, NULL, NULL);
+		/* msg 79: "STORE RDB$USER_PRIVILEGES failed in grant" */
+	}
+
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		PRIV IN RDB$USER_PRIVILEGES PRIV.RDB$FIELD_NAME.NULL = TRUE;
+		strcpy(PRIV.RDB$RELATION_NAME, object);
+		strcpy(PRIV.RDB$USER, user);
+		PRIV.RDB$USER_TYPE = user_type;
+		PRIV.RDB$OBJECT_TYPE = obj_type;
+		if (field && field[0]) {
+			strcpy(PRIV.RDB$FIELD_NAME, field);
+			PRIV.RDB$FIELD_NAME.NULL = FALSE;
+		}
+		PRIV.RDB$PRIVILEGE[0] = privilege[0];
+		PRIV.RDB$PRIVILEGE[1] = 0;
+		PRIV.RDB$GRANT_OPTION = option;
+
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_grant))
+		DYN_REQUEST(drq_s_grant) = request;
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
diff --git a/src/jrd/dyn.h b/src/jrd/dyn.h
new file mode 100644
index 0000000000..f0dc99fd4b
--- /dev/null
+++ b/src/jrd/dyn.h
@@ -0,0 +1,90 @@
+/*
+ *	PROGRAM:	JRD Data Definition Utility
+ *	MODULE:		dyn.h
+ *	DESCRIPTION:	Dynamic data definition local data
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef	_JRD_DYN_H_
+#define _JRD_DYN_H_
+
+#define ALL_PRIVILEGES		"SIUDR"
+		/* all applicable grant/revoke privileges */
+#define ALL_PROC_PRIVILEGES	"X"
+		/* all applicable grant/revoke privileges for a procedure */
+#define DYN_MSG_FAC		8
+#define STUFF_COUNT		4
+#define MAX_KEY			256
+#define TEXT_BLOB_LENGTH	512
+
+#define PRIMARY_KEY		"PRIMARY KEY"
+#define FOREIGN_KEY		"FOREIGN KEY"
+#define UNIQUE_CNSTRT		"UNIQUE"
+#define CHECK_CNSTRT		"CHECK"
+#define NOT_NULL_CNSTRT		"NOT NULL"
+
+#define GET_STRING(from,to)	DYN_get_string (from, to, sizeof (to), TRUE)
+
+#define GET_STRING_2(from,to)	DYN_get_string (from, to, sizeof (to), FALSE)
+
+#define PROC_NAME_SIZE		32
+#define FLD_SRC_LEN		32
+#define FLD_NAME_LEN		32
+#define REL_NAME_LEN		32
+
+
+typedef struct gbl
+{
+	TRA gbl_transaction;
+} *GBL;
+
+typedef struct dyn_fld {
+	DSC dyn_dsc;
+	BOOLEAN dyn_null_flag;
+	USHORT dyn_dtype;
+	USHORT dyn_precision;
+	USHORT dyn_charlen;
+	SSHORT dyn_collation;
+	SSHORT dyn_charset;
+	TEXT dyn_fld_source[FLD_SRC_LEN];
+	TEXT dyn_rel_name[REL_NAME_LEN];
+	TEXT dyn_fld_name[FLD_NAME_LEN];
+
+} *DYN_FLD;
+
+extern void DYN_error(USHORT, USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+extern void DYN_error_punt(USHORT, USHORT, TEXT *, TEXT *, TEXT *, TEXT *,
+						   TEXT *);
+extern void DYN_execute(GBL, UCHAR **, TEXT *, TEXT *, TEXT *, TEXT *,
+						TEXT *);
+extern SLONG DYN_get_number(UCHAR **);
+extern USHORT DYN_get_string(TEXT **, TEXT *, USHORT, USHORT);
+extern void DYN_get_string2(TEXT **, TEXT *, USHORT);
+extern BOOLEAN DYN_is_it_sql_role(GBL, TEXT *, TEXT *, TDBB);
+extern USHORT DYN_put_blr_blob(GBL, UCHAR **, GDS__QUAD *);
+extern USHORT DYN_put_blr_blob2(GBL, UCHAR **, GDS__QUAD *);
+extern USHORT DYN_put_text_blob(GBL, UCHAR **, GDS__QUAD *);
+extern USHORT DYN_put_text_blob2(GBL, UCHAR **, GDS__QUAD *);
+extern void DYN_rundown_request(JMP_BUF *, BLK, SSHORT);
+extern USHORT DYN_skip_attribute(UCHAR **);
+extern USHORT DYN_skip_attribute2(UCHAR **);
+extern void DYN_terminate(TEXT *, int);
+extern void DYN_unsupported_verb(void);
+
+#endif /* _JRD_DYN_H_ */
diff --git a/src/jrd/dyn_def.e b/src/jrd/dyn_def.e
new file mode 100644
index 0000000000..3eb63de9f2
--- /dev/null
+++ b/src/jrd/dyn_def.e
@@ -0,0 +1,4217 @@
+/*
+ *	PROGRAM:	JRD Data Definition Utility
+ *	MODULE:		dyn_define.e
+ *	DESCRIPTION:	Dynamic data definition DYN_define_<x>
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../jrd/constants.h"
+#include "../jrd/jrd.h"
+#include "../jrd/ods.h"
+#include "../jrd/tra.h"
+#include "../jrd/scl.h"
+#include "../jrd/drq.h"
+#include "../jrd/req.h"
+#include "../jrd/flags.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/lls.h"
+#include "../jrd/all.h"
+#include "../jrd/met.h"
+#include "../jrd/btr.h"
+#include "../jrd/intl.h"
+#include "../jrd/dyn.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dyn_proto.h"
+#include "../jrd/dyn_df_proto.h"
+#include "../jrd/dyn_ut_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/inf_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/vio_proto.h"
+#include "../jrd/scl_proto.h"
+#include "../jrd/gdsassert.h"
+
+#ifdef	WINDOWS_ONLY
+#include "../jrd/seg_proto.h"
+#endif
+
+#ifdef SUPERSERVER
+#define V4_THREADING
+#endif
+#include "../jrd/nlm_thd.h"
+
+#define FOR_KEY_UPD_CASCADE  0x01
+#define FOR_KEY_UPD_NULL     0x02
+#define FOR_KEY_UPD_DEFAULT  0x04
+#define FOR_KEY_UPD_NONE     0x08
+#define FOR_KEY_DEL_CASCADE  0x10
+#define FOR_KEY_DEL_NULL     0x20
+#define FOR_KEY_DEL_DEFAULT  0x40
+#define FOR_KEY_DEL_NONE     0x80
+
+DATABASE DB = STATIC "yachts.gdb";
+
+static CONST SCHAR who_blr[] =
+{
+	blr_version5,
+	blr_begin,
+	blr_message, 0, 1, 0,
+	blr_cstring, 32, 0,
+	blr_begin,
+	blr_send, 0,
+	blr_begin,
+	blr_assignment,
+	blr_user_name,
+	blr_parameter, 0, 0, 0,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_eoc
+};
+
+
+static void check_unique_name(TDBB, GBL, TEXT *, BOOLEAN);
+static BOOLEAN find_field_source(TDBB, GBL, TEXT *, USHORT, TEXT *, TEXT *);
+static BOOLEAN get_who(TDBB, GBL, SCHAR *);
+static BOOLEAN is_it_user_name(GBL, TEXT *, TDBB);
+
+
+static int private_getODS()
+{
+	TDBB	tdbb = GET_THREAD_DATA;
+	DBB		dbb = tdbb->tdbb_database;
+
+	CONST SSHORT major_version  = (SSHORT) dbb->dbb_ods_version;
+	CONST SSHORT minor_original = (SSHORT) dbb->dbb_minor_original;
+
+	return ENCODE_ODS(major_version, minor_original);
+}
+
+
+void DYN_define_cache( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ c a c h e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a database cache file.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	UCHAR verb;
+	VOLATILE BLK request;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+	USHORT found = FALSE;
+	VOLATILE SSHORT id;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	request = NULL;
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	id = -1;
+
+	if (SETJMP(env))
+	{
+		if (id == drq_s_cache)
+		{
+			DYN_rundown_request(old_env, request, drq_s_cache);
+			DYN_error_punt(TRUE, 150, NULL, NULL, NULL, NULL, NULL);
+			/* msg 150: STORE RDB$FILES failed */
+		}
+		else
+		{
+			DYN_rundown_request(old_env, request, drq_l_cache);
+			DYN_error_punt(TRUE, 156, NULL, NULL, NULL, NULL, NULL);
+			/* msg 156: Shared cache lookup failed */
+		}
+	}
+	id = drq_l_cache;
+	request = (BLK) CMP_find_request(tdbb, drq_l_cache, DYN_REQUESTS);
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FIL IN RDB$FILES WITH FIL.RDB$FILE_FLAGS EQ FILE_cache 
+        found = TRUE;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_l_cache))
+		DYN_REQUEST(drq_l_cache) = request;
+
+	if (found) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error_punt(FALSE, 148, NULL, NULL, NULL, NULL, NULL);
+		/* msg 148: "Shared cache file already exists" */
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_cache, DYN_REQUESTS);
+	id = drq_s_cache;
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$FILES GET_STRING(ptr, X.RDB$FILE_NAME);
+		X.RDB$FILE_FLAGS = FILE_cache;
+		X.RDB$FILE_FLAGS.NULL = FALSE;
+		X.RDB$FILE_START = 0;
+		X.RDB$FILE_START.NULL = FALSE;
+		X.RDB$FILE_LENGTH.NULL = TRUE;
+
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+		{
+			switch (verb)
+			{
+			case gds__dyn_file_length:
+				X.RDB$FILE_LENGTH = DYN_get_number(ptr);
+				X.RDB$FILE_LENGTH.NULL = FALSE;
+				break;
+
+			default:
+				DYN_unsupported_verb();
+			}
+		}
+
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_cache))
+	{
+		DYN_REQUEST(drq_s_cache) = request;
+	}
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_constraint(
+						   GBL gbl,
+						   UCHAR ** ptr,
+						   TEXT * relation_name, TEXT * field_name)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ c o n s t r a i n t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	creates an integrity constraint and if not a CHECK 
+ *	constraint, also an index for the constraint.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	BLK old_request;
+	VOLATILE SSHORT id, old_id;
+	UCHAR verb;
+	TEXT constraint_name[32], index_name[32], referred_index_name[32];
+	TEXT null_field_name[32], trigger_name[32];
+	int all_count, unique_count;
+	LLS field_list = NULL, list_ptr;
+	STR str;
+	USHORT found, foreign_flag = FALSE, not_null;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+	UCHAR ri_action = 0;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	if (!GET_STRING(ptr, constraint_name))
+		DYN_UTIL_generate_constraint_name(tdbb, gbl, constraint_name);
+
+	request = NULL;
+	id = -1;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		if (id == drq_s_rel_con)
+		{
+			DYN_rundown_request(old_env, request, id);
+			DYN_error_punt(TRUE, 121, NULL, NULL, NULL, NULL, NULL);
+			/* msg 121: "STORE RDB$RELATION_CONSTRAINTS failed" */
+		}
+		else if (id == drq_s_ref_con)
+		{
+			DYN_rundown_request(old_env, request, id);
+			DYN_error_punt(TRUE, 127, NULL, NULL, NULL, NULL, NULL);
+			/* msg 127: "STORE RDB$REF_CONSTRAINTS failed" */
+		}
+
+		DYN_rundown_request(old_env, request, -1);
+		if (id == drq_c_unq_nam)
+			DYN_error_punt(TRUE, 121, NULL, NULL, NULL, NULL, NULL);
+		/* msg 121: "STORE RDB$RELATION_CONSTRAINTS failed" */
+		else if (id == drq_n_idx_seg)
+			DYN_error_punt(TRUE, 124, constraint_name, NULL, NULL, NULL,
+						   NULL);
+		/* msg 124: "A column name is repeated in the definition of constraint: %s" */
+		else if (id == drq_c_dup_con)
+			DYN_error_punt(TRUE, 125, NULL, NULL, NULL, NULL, NULL);
+		/* msg 125: "Integrity constraint lookup failed" */
+		else
+			DYN_error_punt(TRUE, 125, NULL, NULL, NULL, NULL, NULL);
+		/* msg 125: "Integrity constraint lookup failed" */
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_rel_con, DYN_REQUESTS);
+	id = drq_s_rel_con;
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		CRT IN RDB$RELATION_CONSTRAINTS
+        strcpy(CRT.RDB$CONSTRAINT_NAME, constraint_name);
+		strcpy(CRT.RDB$RELATION_NAME, relation_name);
+
+		switch (verb = *(*ptr)++)
+		{
+		case gds__dyn_def_primary_key:
+			strcpy(CRT.RDB$CONSTRAINT_TYPE, PRIMARY_KEY);
+			break;
+
+		case gds__dyn_def_foreign_key:
+			foreign_flag = TRUE;
+			strcpy(CRT.RDB$CONSTRAINT_TYPE, FOREIGN_KEY);
+			DYN_terminate(CRT.RDB$CONSTRAINT_NAME,
+						  sizeof(CRT.RDB$CONSTRAINT_NAME));
+			break;
+
+		case gds__dyn_def_unique:
+			strcpy(CRT.RDB$CONSTRAINT_TYPE, UNIQUE_CNSTRT);
+			break;
+
+		case gds__dyn_def_trigger:
+			strcpy(CRT.RDB$CONSTRAINT_TYPE, CHECK_CNSTRT);
+			CRT.RDB$INDEX_NAME.NULL = TRUE;
+			break;
+
+		case gds__dyn_fld_not_null:
+			strcpy(CRT.RDB$CONSTRAINT_TYPE, NOT_NULL_CNSTRT);
+			CRT.RDB$INDEX_NAME.NULL = TRUE;
+			break;
+
+		default:
+			DYN_unsupported_verb();
+		}
+
+		if (verb != gds__dyn_def_trigger && verb != gds__dyn_fld_not_null) {
+			referred_index_name[0] = 0;
+			DYN_define_index(gbl, ptr, relation_name, verb, index_name,
+							 referred_index_name, constraint_name,
+							 &ri_action);
+			strcpy(CRT.RDB$INDEX_NAME, index_name);
+			CRT.RDB$INDEX_NAME.NULL = FALSE;
+
+			/* check that we have references permissions on the table and
+			   fields that the index:referred_index_name is on. */
+
+			SCL_check_index(tdbb, referred_index_name, SCL_sql_references);
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_rel_con))
+		DYN_REQUEST(drq_s_rel_con) = request;
+
+	if (verb == gds__dyn_def_trigger) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		do {
+			DYN_define_trigger(gbl, ptr, relation_name, trigger_name, FALSE);
+			DYN_UTIL_store_check_constraints(tdbb, gbl, constraint_name,
+											 trigger_name);
+		} while ((verb = *(*ptr)++) == gds__dyn_def_trigger);
+
+		if (verb != gds__dyn_end)
+			DYN_unsupported_verb();
+		return;
+	}
+
+	if (verb == gds__dyn_fld_not_null) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_UTIL_store_check_constraints(tdbb, gbl, constraint_name,
+										 field_name);
+
+		if (*(*ptr)++ != gds__dyn_end)
+			DYN_unsupported_verb();
+		return;
+	}
+
+/* Make sure unique field names were specified for UNIQUE/PRIMARY/FOREIGN */
+/* All fields must have the NOT NULL attribute specified for UNIQUE/PRIMARY. */
+
+	request = (BLK) CMP_find_request(tdbb, drq_c_unq_nam, DYN_REQUESTS);
+	id = drq_c_unq_nam;
+
+	not_null = TRUE;
+	all_count = unique_count = 0;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		IDS IN RDB$INDEX_SEGMENTS
+			CROSS RFR IN RDB$RELATION_FIELDS
+			CROSS FLX IN RDB$FIELDS WITH
+			IDS.RDB$INDEX_NAME EQ index_name AND
+			RFR.RDB$RELATION_NAME EQ relation_name AND
+			RFR.RDB$FIELD_NAME EQ IDS.RDB$FIELD_NAME AND
+			FLX.RDB$FIELD_NAME EQ RFR.RDB$FIELD_SOURCE
+			REDUCED TO IDS.RDB$FIELD_NAME, IDS.RDB$INDEX_NAME,
+			FLX.RDB$NULL_FLAG SORTED BY ASCENDING IDS.
+			RDB$FIELD_NAME 
+        if (!DYN_REQUEST(drq_c_unq_nam))
+            DYN_REQUEST(drq_c_unq_nam) = request;
+
+		if ((FLX.RDB$NULL_FLAG.NULL || !FLX.RDB$NULL_FLAG) &&
+			(RFR.RDB$NULL_FLAG.NULL || !RFR.RDB$NULL_FLAG) &&
+			(foreign_flag == FALSE)) {
+			not_null = FALSE;
+			DYN_terminate(RFR.RDB$FIELD_NAME, sizeof(RFR.RDB$FIELD_NAME));
+			strcpy(null_field_name, RFR.RDB$FIELD_NAME);
+			EXE_unwind(tdbb, (REQ)request);
+			break;
+		}
+
+		unique_count++;
+		str = (STR) ALLOCDV(type_str, sizeof(IDS.RDB$FIELD_NAME) - 1);
+		strcpy(str->str_data, IDS.RDB$FIELD_NAME);
+		LLS_PUSH(str, &field_list);
+	END_FOR;
+	if (!DYN_REQUEST(drq_c_unq_nam))
+		DYN_REQUEST(drq_c_unq_nam) = request;
+
+	if (not_null == FALSE) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error(FALSE, 123, null_field_name, NULL, NULL, NULL, NULL);
+		/* msg 123: "Field: %s not defined as NOT NULL - can't be used in PRIMARY KEY/UNIQUE constraint definition" */
+		ERR_punt();
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_n_idx_seg, DYN_REQUESTS);
+	id = drq_n_idx_seg;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		IDS IN RDB$INDEX_SEGMENTS WITH IDS.RDB$INDEX_NAME EQ index_name
+        if (!DYN_REQUEST(drq_n_idx_seg))
+            DYN_REQUEST(drq_n_idx_seg) = request;
+
+		all_count++;
+	END_FOR;
+	if (!DYN_REQUEST(drq_n_idx_seg))
+		DYN_REQUEST(drq_n_idx_seg) = request;
+
+	if (unique_count != all_count) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error(FALSE, 124, constraint_name, NULL, NULL, NULL, NULL);
+		/* msg 124: "A column name is repeated in the definition of constraint: %s" */
+		ERR_punt();
+	}
+
+/* For PRIMARY KEY/UNIQUE constraints, make sure same set of columns 
+   is not used in another constraint of either type */
+
+	if (foreign_flag == FALSE) {
+		request = (BLK) CMP_find_request(tdbb, drq_c_dup_con, DYN_REQUESTS);
+		id = drq_c_dup_con;
+
+		index_name[0] = 0;
+		list_ptr = NULL;
+		found = FALSE;
+		FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+			CRT IN RDB$RELATION_CONSTRAINTS CROSS
+				IDS IN RDB$INDEX_SEGMENTS OVER RDB$INDEX_NAME
+				WITH CRT.RDB$RELATION_NAME EQ relation_name AND
+				(CRT.RDB$CONSTRAINT_TYPE EQ PRIMARY_KEY OR
+				 CRT.RDB$CONSTRAINT_TYPE EQ UNIQUE_CNSTRT) AND
+				CRT.RDB$CONSTRAINT_NAME NE constraint_name
+				SORTED BY CRT.RDB$INDEX_NAME, DESCENDING IDS.RDB$FIELD_NAME
+            if (!DYN_REQUEST(drq_c_dup_con))
+                DYN_REQUEST(drq_c_dup_con) = request;
+
+			DYN_terminate(CRT.RDB$INDEX_NAME, sizeof(CRT.RDB$INDEX_NAME));
+			if (strcmp(index_name, CRT.RDB$INDEX_NAME)) {
+				if (list_ptr)
+					found = FALSE;
+				if (found)
+					break;
+				list_ptr = field_list;
+				strcpy(index_name, CRT.RDB$INDEX_NAME);
+				found = TRUE;
+			}
+
+			if (list_ptr) {
+				if (strcmp
+					(((STR) list_ptr->lls_object)->str_data,
+					 IDS.RDB$FIELD_NAME)) found = FALSE;
+				list_ptr = list_ptr->lls_next;
+			}
+			else
+				found = FALSE;
+		END_FOR;
+		if (!DYN_REQUEST(drq_c_dup_con))
+			DYN_REQUEST(drq_c_dup_con) = request;
+
+		if (list_ptr)
+			found = FALSE;
+
+		if (found) {
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			DYN_error(FALSE, 126, NULL, NULL, NULL, NULL, NULL);
+			/* msg 126: "Same set of columns cannot be used in more than one PRIMARY KEY and/or UNIQUE constraint definition" */
+			ERR_punt();
+		}
+	}
+	else {						/* Foreign key being defined   */
+
+		request = (BLK) CMP_find_request(tdbb, drq_s_ref_con, DYN_REQUESTS);
+		id = drq_s_ref_con;
+
+		STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+			REF IN RDB$REF_CONSTRAINTS
+				old_request = request;
+			old_id = id;
+			request =
+				(BLK) CMP_find_request(tdbb, drq_l_intg_con, DYN_REQUESTS);
+			id = drq_l_intg_con;
+
+			FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				CRT IN RDB$RELATION_CONSTRAINTS WITH
+					CRT.RDB$INDEX_NAME EQ referred_index_name AND
+					(CRT.RDB$CONSTRAINT_TYPE = PRIMARY_KEY OR
+					 CRT.RDB$CONSTRAINT_TYPE = UNIQUE_CNSTRT)
+
+                if (!DYN_REQUEST(drq_l_intg_con))
+					DYN_REQUEST(drq_l_intg_con) = request;
+
+				DYN_terminate(CRT.RDB$CONSTRAINT_NAME,
+							  sizeof(CRT.RDB$CONSTRAINT_NAME));
+				strcpy(REF.RDB$CONST_NAME_UQ, CRT.RDB$CONSTRAINT_NAME);
+				strcpy(REF.RDB$CONSTRAINT_NAME, constraint_name);
+
+				REF.RDB$UPDATE_RULE.NULL = FALSE;
+				if (ri_action & FOR_KEY_UPD_CASCADE)
+					strcpy(REF.RDB$UPDATE_RULE, RI_ACTION_CASCADE);
+				else if (ri_action & FOR_KEY_UPD_NULL)
+					strcpy(REF.RDB$UPDATE_RULE, RI_ACTION_NULL);
+				else if (ri_action & FOR_KEY_UPD_DEFAULT)
+					strcpy(REF.RDB$UPDATE_RULE, RI_ACTION_DEFAULT);
+				else if (ri_action & FOR_KEY_UPD_NONE)
+					strcpy(REF.RDB$UPDATE_RULE, RI_ACTION_NONE);
+				else
+					/* RESTRICT is the default value for this column */
+					strcpy(REF.RDB$UPDATE_RULE, RI_RESTRICT);
+
+
+				REF.RDB$DELETE_RULE.NULL = FALSE;
+				if (ri_action & FOR_KEY_DEL_CASCADE)
+					strcpy(REF.RDB$DELETE_RULE, RI_ACTION_CASCADE);
+				else if (ri_action & FOR_KEY_DEL_NULL)
+					strcpy(REF.RDB$DELETE_RULE, RI_ACTION_NULL);
+				else if (ri_action & FOR_KEY_DEL_DEFAULT)
+					strcpy(REF.RDB$DELETE_RULE, RI_ACTION_DEFAULT);
+				else if (ri_action & FOR_KEY_DEL_NONE)
+					strcpy(REF.RDB$DELETE_RULE, RI_ACTION_NONE);
+				else
+					/* RESTRICT is the default value for this column */
+					strcpy(REF.RDB$DELETE_RULE, RI_RESTRICT);
+
+			END_FOR;
+			if (!DYN_REQUEST(drq_l_intg_con))
+				DYN_REQUEST(drq_l_intg_con) = request;
+			request = old_request;
+			id = old_id;
+		END_STORE;
+
+		if (!DYN_REQUEST(drq_s_ref_con))
+			DYN_REQUEST(drq_s_ref_con) = request;
+	}
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_dimension(
+						  GBL gbl,
+						  UCHAR ** ptr,
+						  TEXT * relation_name, TEXT * field_name)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ d i m e n s i o n 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	defines a single dimension for a field.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	UCHAR verb;
+	VOLATILE BLK request;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_dims, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		DIM IN RDB$FIELD_DIMENSIONS 
+        DIM.RDB$UPPER_BOUND.NULL = TRUE;
+		DIM.RDB$LOWER_BOUND.NULL = TRUE;
+		DIM.RDB$DIMENSION = (SSHORT)DYN_get_number(ptr);
+		if (field_name)
+			strcpy(DIM.RDB$FIELD_NAME, field_name);
+
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+		{
+			switch (verb)
+			{
+			case gds__dyn_fld_name:
+				GET_STRING(ptr, DIM.RDB$FIELD_NAME);
+				break;
+
+			case gds__dyn_dim_upper:
+				DIM.RDB$UPPER_BOUND = DYN_get_number(ptr);
+				DIM.RDB$UPPER_BOUND.NULL = FALSE;
+				break;
+
+			case gds__dyn_dim_lower:
+				DIM.RDB$LOWER_BOUND = DYN_get_number(ptr);
+				DIM.RDB$LOWER_BOUND.NULL = FALSE;
+				break;
+
+			default:
+				--(*ptr);
+				DYN_execute(gbl, ptr, relation_name, field_name,
+							NULL_PTR, NULL_PTR, NULL_PTR);
+			}
+		}
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env))
+		{
+			DYN_rundown_request(old_env, request, drq_s_dims);
+			DYN_error_punt(TRUE, 3, NULL, NULL, NULL, NULL, NULL);
+			/* msg 3: "STORE RDB$FIELD_DIMENSIONS failed" */
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_dims))
+		DYN_REQUEST(drq_s_dims) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_exception( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ e x c e p t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define an exception.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	UCHAR verb;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_xcp, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$EXCEPTIONS 
+        GET_STRING(ptr, X.RDB$EXCEPTION_NAME);
+		X.RDB$MESSAGE.NULL = TRUE;
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+		{
+			switch (verb)
+			{
+			case gds__dyn_xcp_msg:
+				GET_STRING_2(ptr, X.RDB$MESSAGE);
+				X.RDB$MESSAGE.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_xcp_msg2:
+				DYN_get_string2(ptr, X.RDB$MESSAGE, sizeof(X.RDB$MESSAGE));
+				X.RDB$MESSAGE.NULL = FALSE;
+				break;
+#endif
+
+			default:
+				DYN_unsupported_verb();
+			}
+		}
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env))
+		{
+			DYN_rundown_request(old_env, request, drq_s_trg_msgs);
+			DYN_error_punt(TRUE, 142, NULL, NULL, NULL, NULL, NULL);
+			/* msg 142: "DEFINE EXCEPTION failed" */
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_xcp))
+		DYN_REQUEST(drq_s_xcp) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_file(
+					 GBL gbl,
+					 UCHAR ** ptr,
+					 SLONG shadow_number, SLONG * start, USHORT msg)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a database or shadow file.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	UCHAR verb;
+	VOLATILE BLK request;
+	SLONG temp;
+	USHORT man_auto;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+	TEXT temp_f1[MAXPATHLEN], temp_f[MAXPATHLEN];
+	VOLATILE SSHORT id;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	id = -1;
+
+	if (SETJMP(env))
+	{
+		if (id == drq_l_files)
+		{
+			DYN_rundown_request(old_env, request, drq_l_files);
+			DYN_error_punt(FALSE, 166, NULL, NULL, NULL, NULL, NULL);
+		}
+		else
+		{
+			DYN_rundown_request(old_env, request, drq_s_files);
+			DYN_error_punt(TRUE, msg, NULL, NULL, NULL, NULL, NULL);
+		}
+	}
+
+	request = (BLK) CMP_find_request(tdbb, id = drq_l_files, DYN_REQUESTS);
+
+	GET_STRING(ptr, temp_f1);
+	ISC_expand_filename(temp_f1, 0, temp_f);
+	if (!strcmp(dbb->dbb_filename->str_data, temp_f))
+		DYN_error_punt(FALSE, 166, NULL, NULL, NULL, NULL, NULL);
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FIRST 1 X IN RDB$FILES WITH X.RDB$FILE_NAME EQ temp_f
+            DYN_error_punt(FALSE, 166, NULL, NULL, NULL, NULL, NULL);
+	END_FOR;
+
+	request = (BLK) CMP_find_request(tdbb, id = drq_s_files, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$FILES 
+        strcpy(X.RDB$FILE_NAME, temp_f);
+		X.RDB$SHADOW_NUMBER = (SSHORT)shadow_number;
+		X.RDB$FILE_FLAGS = 0;
+		X.RDB$FILE_FLAGS.NULL = FALSE;
+		X.RDB$FILE_START.NULL = TRUE;
+		X.RDB$FILE_LENGTH.NULL = TRUE;
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+		{
+			switch (verb)
+			{
+			case gds__dyn_file_start:
+				temp = DYN_get_number(ptr);
+				*start = MAX(*start, temp);
+				X.RDB$FILE_START = *start;
+				X.RDB$FILE_START.NULL = FALSE;
+				break;
+
+			case gds__dyn_file_length:
+				X.RDB$FILE_LENGTH = DYN_get_number(ptr);
+				X.RDB$FILE_LENGTH.NULL = FALSE;
+				break;
+
+			case gds__dyn_shadow_man_auto:
+				man_auto = (USHORT)DYN_get_number(ptr);
+				if (man_auto)
+					X.RDB$FILE_FLAGS |= FILE_manual;
+				break;
+
+			case gds__dyn_shadow_conditional:
+				if (DYN_get_number(ptr))
+					X.RDB$FILE_FLAGS |= FILE_conditional;
+				break;
+
+			default:
+				DYN_unsupported_verb();
+			}
+		}
+		*start += X.RDB$FILE_LENGTH;
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_files))
+	{
+		DYN_REQUEST(drq_s_files) = request;
+	}
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_filter( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a blob filter.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	UCHAR verb;
+	VOLATILE BLK request;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_filters, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$FILTERS USING 
+        GET_STRING(ptr, X.RDB$FUNCTION_NAME);
+		X.RDB$OUTPUT_SUB_TYPE.NULL = TRUE;
+		X.RDB$INPUT_SUB_TYPE.NULL = TRUE;
+		X.RDB$MODULE_NAME.NULL = TRUE;
+		X.RDB$ENTRYPOINT.NULL = TRUE;
+		X.RDB$DESCRIPTION.NULL = TRUE;
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+		{
+			switch (verb)
+			{
+			case gds__dyn_filter_in_subtype:
+				X.RDB$INPUT_SUB_TYPE = (SSHORT)DYN_get_number(ptr);
+				X.RDB$INPUT_SUB_TYPE.NULL = FALSE;
+				break;
+
+			case gds__dyn_filter_out_subtype:
+				X.RDB$OUTPUT_SUB_TYPE = (SSHORT)DYN_get_number(ptr);
+				X.RDB$OUTPUT_SUB_TYPE.NULL = FALSE;
+				break;
+
+			case gds__dyn_func_module_name:
+				GET_STRING(ptr, X.RDB$MODULE_NAME);
+				X.RDB$MODULE_NAME.NULL = FALSE;
+				break;
+
+			case gds__dyn_func_entry_point:
+				GET_STRING(ptr, X.RDB$ENTRYPOINT);
+				X.RDB$ENTRYPOINT.NULL = FALSE;
+				break;
+
+			case gds__dyn_description:
+				DYN_put_text_blob(gbl, ptr, &X.RDB$DESCRIPTION);
+				X.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_description2:
+				DYN_put_text_blob2(gbl, ptr, &X.RDB$DESCRIPTION);
+				X.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+#endif
+
+			default:
+				DYN_unsupported_verb();
+			}
+		}
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env))
+		{
+			DYN_rundown_request(old_env, request, drq_s_filters);
+			DYN_error_punt(TRUE, 7, NULL, NULL, NULL, NULL, NULL);
+			/* msg 7: "DEFINE BLOB FILTER failed" */
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_filters))
+		DYN_REQUEST(drq_s_filters) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_function( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a user defined function.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	UCHAR verb;
+	VOLATILE BLK request;
+	JMP_BUF env;
+	VOLATILE JMP_BUF *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_funcs, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$FUNCTIONS USING 
+        GET_STRING(ptr, X.RDB$FUNCTION_NAME);
+		X.RDB$RETURN_ARGUMENT.NULL = TRUE;
+		X.RDB$QUERY_NAME.NULL = TRUE;
+		X.RDB$MODULE_NAME.NULL = TRUE;
+		X.RDB$ENTRYPOINT.NULL = TRUE;
+		X.RDB$DESCRIPTION.NULL = TRUE;
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+		{
+			switch (verb)
+			{
+			case gds__dyn_func_return_argument:
+				X.RDB$RETURN_ARGUMENT = (SSHORT)DYN_get_number(ptr);
+				X.RDB$RETURN_ARGUMENT.NULL = FALSE;
+				if (X.RDB$RETURN_ARGUMENT > MAX_UDF_ARGUMENTS)
+					DYN_error_punt(TRUE, 10, NULL, NULL, NULL, NULL, NULL);
+				/* msg 10: "DEFINE FUNCTION failed" */
+				break;
+
+			case gds__dyn_func_module_name:
+				GET_STRING(ptr, X.RDB$MODULE_NAME);
+				X.RDB$MODULE_NAME.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_query_name:
+				GET_STRING(ptr, X.RDB$QUERY_NAME);
+				X.RDB$QUERY_NAME.NULL = FALSE;
+				break;
+
+			case gds__dyn_func_entry_point:
+				GET_STRING(ptr, X.RDB$ENTRYPOINT);
+				X.RDB$ENTRYPOINT.NULL = FALSE;
+				break;
+
+			case gds__dyn_description:
+				DYN_put_text_blob(gbl, ptr, &X.RDB$DESCRIPTION);
+				X.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_description2:
+				DYN_put_text_blob2(gbl, ptr, &X.RDB$DESCRIPTION);
+				X.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+#endif
+
+			default:
+				--(*ptr);
+				DYN_execute(gbl, ptr, NULL_PTR, NULL_PTR,
+							NULL_PTR, X.RDB$FUNCTION_NAME, NULL_PTR);
+			}
+		}
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env))
+		{
+			/* TMN: Cast away volatile */
+			DYN_rundown_request((JMP_BUF*)old_env, request, drq_s_funcs);
+			DYN_error_punt(TRUE, 10, NULL, NULL, NULL, NULL, NULL);
+			/* msg 10: "DEFINE FUNCTION failed" */
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_funcs))
+		DYN_REQUEST(drq_s_funcs) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_function_arg(GBL gbl, UCHAR** ptr, TEXT* function_name)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ f u n c t i o n _ a r g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a user defined function argument.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	UCHAR verb;
+	VOLATILE BLK request = NULL;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		if (request)
+			DYN_rundown_request(old_env, request, drq_s_func_args);
+		DYN_error_punt(TRUE, 12, NULL, NULL, NULL, NULL, NULL);
+		/* msg 12: "DEFINE FUNCTION ARGUMENT failed" */
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_func_args, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$FUNCTION_ARGUMENTS
+        X.RDB$ARGUMENT_POSITION = (SSHORT)DYN_get_number(ptr);
+
+		if (X.RDB$ARGUMENT_POSITION > MAX_UDF_ARGUMENTS)
+			DYN_error_punt(TRUE, 12, NULL, NULL, NULL, NULL, NULL);
+		/* msg 12: "DEFINE FUNCTION ARGUMENT failed" */
+
+		if (function_name) {
+			strcpy(X.RDB$FUNCTION_NAME, function_name);
+			X.RDB$FUNCTION_NAME.NULL = FALSE;
+		}
+		else
+			X.RDB$FUNCTION_NAME.NULL = TRUE;
+		X.RDB$MECHANISM.NULL = TRUE;
+		X.RDB$FIELD_TYPE.NULL = TRUE;
+		X.RDB$FIELD_SCALE.NULL = TRUE;
+		X.RDB$FIELD_LENGTH.NULL = TRUE;
+		X.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+		X.RDB$CHARACTER_SET_ID.NULL = TRUE;
+		X.RDB$FIELD_PRECISION.NULL = TRUE;
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+			switch (verb)
+			{
+			case gds__dyn_function_name:
+				GET_STRING(ptr, X.RDB$FUNCTION_NAME);
+				X.RDB$FUNCTION_NAME.NULL = FALSE;
+				break;
+
+			case gds__dyn_func_mechanism:
+				X.RDB$MECHANISM = (SSHORT)DYN_get_number(ptr);
+				X.RDB$MECHANISM.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_type:
+				X.RDB$FIELD_TYPE = (SSHORT)DYN_get_number(ptr);
+				X.RDB$FIELD_TYPE.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_sub_type:
+				X.RDB$FIELD_SUB_TYPE = (SSHORT)DYN_get_number(ptr);
+				X.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_scale:
+				X.RDB$FIELD_SCALE = (SSHORT)DYN_get_number(ptr);
+				X.RDB$FIELD_SCALE.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_length:
+				X.RDB$FIELD_LENGTH = (SSHORT)DYN_get_number(ptr);
+				X.RDB$FIELD_LENGTH.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_character_set:
+				X.RDB$CHARACTER_SET_ID = (SSHORT)DYN_get_number(ptr);
+				X.RDB$CHARACTER_SET_ID.NULL = FALSE;
+				break;
+
+			case isc_dyn_fld_precision:
+				X.RDB$FIELD_PRECISION = (SSHORT)DYN_get_number(ptr);
+				X.RDB$FIELD_PRECISION.NULL = FALSE;
+				break;
+
+				/* Ignore the field character length as the system UDF parameter
+				 * table has no place to store the information
+				 * But IB6/FB has the place for this information. CVC 2001.
+				 */
+			case gds__dyn_fld_char_length:
+				if (private_getODS() < ODS_10_0)
+				{
+					(void) DYN_get_number(ptr);
+				}
+				else
+				{
+					X.RDB$CHARACTER_LENGTH      = (SSHORT)DYN_get_number (ptr);
+					X.RDB$CHARACTER_LENGTH.NULL = FALSE;
+				}
+				break;
+
+			default:
+				DYN_unsupported_verb();
+			}
+
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_func_args))
+		DYN_REQUEST(drq_s_func_args) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_generator( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ g e n e r a t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a generator.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_gens, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$GENERATORS 
+
+        GET_STRING(ptr, X.RDB$GENERATOR_NAME);
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env))
+		{
+			DYN_rundown_request(old_env, request, drq_s_gens);
+			DYN_error_punt(TRUE, 8, NULL, NULL, NULL, NULL, NULL);
+			/* msg 8: "DEFINE GENERATOR failed" */
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_gens))
+		DYN_REQUEST(drq_s_gens) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (*(*ptr)++ != gds__dyn_end)
+		DYN_error_punt(TRUE, 9, NULL, NULL, NULL, NULL, NULL);
+	/* msg 9: "DEFINE GENERATOR unexpected dyn verb" */
+}
+
+
+void DYN_define_role( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ r o l e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *     Define a SQL role.
+ *     ROLES cannot be named the same as any existing user name 
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request = NULL;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+	TEXT dummy_name[32], owner_name[32], role_name[32], *p;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	if (private_getODS() < ODS_9_0)
+	{
+		DYN_error(FALSE, 196, NULL, NULL, NULL, NULL, NULL);
+		ERR_punt();
+	}
+
+	strcpy(owner_name, tdbb->tdbb_attachment->att_user->usr_user_name);
+
+	for (p = owner_name; *p; p++)
+		*p = UPPER7(*p);
+	*p = '\0';
+
+	GET_STRING(ptr, role_name);
+
+	if (strcmp(role_name, owner_name) == 0) {
+	/************************************************
+    **
+    ** user name could not be used for SQL role
+    **
+    *************************************************/
+		DYN_error(FALSE, 193, owner_name, NULL, NULL, NULL, NULL);
+		ERR_punt();
+	}
+
+	if (strcmp(role_name, "NONE") == 0) {
+	/************************************************
+    **
+    ** keyword NONE could not be used as SQL role name
+    **
+    *************************************************/
+		DYN_error(FALSE, 195, role_name, NULL, NULL, NULL, NULL);
+		ERR_punt();
+	}
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;	/* save environment */
+	tdbb->tdbb_setjmp = (UCHAR *) env;	/* get new environment */
+
+	if (SETJMP(env))
+	{
+		if (request)
+			DYN_rundown_request(old_env, request, drq_role_gens);
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;	/* restore environment */
+		DYN_error_punt(TRUE, 8, NULL, NULL, NULL, NULL, NULL);
+		/* msg 8: "DEFINE ROLE failed" */
+	}
+
+	if (is_it_user_name(gbl, role_name, tdbb)) {
+	/************************************************
+    **
+    ** user name could not be used for SQL role
+    **
+    *************************************************/
+		DYN_error(FALSE, 193, role_name, NULL, NULL, NULL, NULL);
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;	/* restore environment */
+		ERR_punt();
+	}
+
+	if (DYN_is_it_sql_role(gbl, role_name, dummy_name, tdbb)) {
+	/************************************************
+    **
+    ** SQL role already exist
+    **
+    *************************************************/
+		DYN_error(FALSE, 194, role_name, NULL, NULL, NULL, NULL);
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;	/* restore environment */
+		ERR_punt();
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_role_gens, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$ROLES 
+        strcpy(X.RDB$ROLE_NAME, role_name);
+		strcpy(X.RDB$OWNER_NAME, owner_name);
+
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_role_gens))
+		DYN_REQUEST(drq_role_gens) = request;
+
+	if (*(*ptr)++ != gds__dyn_end)
+		DYN_error_punt(TRUE, 9, NULL, NULL, NULL, NULL, NULL);
+	/* msg 9: "DEFINE ROLE unexpected dyn verb" */
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;	/* restore environment */
+}
+
+
+void DYN_define_global_field(
+							 GBL gbl,
+							 UCHAR ** ptr,
+							 TEXT * relation_name, TEXT * field_name)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	UCHAR verb;
+	VOLATILE BLK request;
+	USHORT dtype;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_gfields, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FLD IN RDB$FIELDS USING 
+
+        if (!GET_STRING(ptr, FLD.RDB$FIELD_NAME))
+            DYN_UTIL_generate_field_name(tdbb, gbl, FLD.RDB$FIELD_NAME);
+
+		FLD.RDB$SYSTEM_FLAG.NULL = TRUE;
+		FLD.RDB$FIELD_SCALE.NULL = TRUE;
+		FLD.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+		FLD.RDB$SEGMENT_LENGTH.NULL = TRUE;
+		FLD.RDB$QUERY_NAME.NULL = TRUE;
+		FLD.RDB$QUERY_HEADER.NULL = TRUE;
+		FLD.RDB$EDIT_STRING.NULL = TRUE;
+		FLD.RDB$MISSING_VALUE.NULL = TRUE;
+		FLD.RDB$COMPUTED_BLR.NULL = TRUE;
+		FLD.RDB$COMPUTED_SOURCE.NULL = TRUE;
+		FLD.RDB$DEFAULT_VALUE.NULL = TRUE;
+		FLD.RDB$DEFAULT_SOURCE.NULL = TRUE;
+		FLD.RDB$VALIDATION_BLR.NULL = TRUE;
+		FLD.RDB$VALIDATION_SOURCE.NULL = TRUE;
+		FLD.RDB$DESCRIPTION.NULL = TRUE;
+		FLD.RDB$DIMENSIONS.NULL = TRUE;
+		FLD.RDB$CHARACTER_LENGTH.NULL = TRUE;
+		FLD.RDB$NULL_FLAG.NULL = TRUE;
+		FLD.RDB$CHARACTER_SET_ID.NULL = TRUE;
+		FLD.RDB$COLLATION_ID.NULL = TRUE;
+		FLD.RDB$FIELD_PRECISION.NULL = TRUE;
+
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+			switch (verb)
+			{
+			case gds__dyn_system_flag:
+				FLD.RDB$SYSTEM_FLAG = (SSHORT)DYN_get_number(ptr);
+				FLD.RDB$SYSTEM_FLAG.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_length:
+				FLD.RDB$FIELD_LENGTH = (SSHORT)DYN_get_number(ptr);
+				FLD.RDB$FIELD_LENGTH.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_type:
+				dtype = (USHORT)DYN_get_number(ptr);
+				FLD.RDB$FIELD_TYPE = (SSHORT)dtype;
+				switch (dtype)
+				{
+				case blr_short:
+					FLD.RDB$FIELD_LENGTH = 2;
+					FLD.RDB$FIELD_LENGTH.NULL = FALSE;
+					break;
+
+				case blr_long:
+				case blr_float:
+				case blr_sql_time:
+				case blr_sql_date:
+					FLD.RDB$FIELD_LENGTH = 4;
+					FLD.RDB$FIELD_LENGTH.NULL = FALSE;
+					break;
+
+				case blr_int64:
+				case blr_quad:
+				case blr_timestamp:
+				case blr_double:
+				case blr_d_float:
+				case blr_blob:
+					FLD.RDB$FIELD_LENGTH = 8;
+					FLD.RDB$FIELD_LENGTH.NULL = FALSE;
+					break;
+
+				default:
+					break;
+				}
+				break;
+
+			case gds__dyn_fld_scale:
+				FLD.RDB$FIELD_SCALE = (SSHORT)DYN_get_number(ptr);
+				FLD.RDB$FIELD_SCALE.NULL = FALSE;
+				break;
+
+			case isc_dyn_fld_precision:
+				FLD.RDB$FIELD_PRECISION = (SSHORT)DYN_get_number(ptr);
+				FLD.RDB$FIELD_PRECISION.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_sub_type:
+				FLD.RDB$FIELD_SUB_TYPE = (SSHORT)DYN_get_number(ptr);
+				FLD.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_char_length:
+				FLD.RDB$CHARACTER_LENGTH = (SSHORT)DYN_get_number(ptr);
+				FLD.RDB$CHARACTER_LENGTH.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_character_set:
+				FLD.RDB$CHARACTER_SET_ID = (SSHORT)DYN_get_number(ptr);
+				FLD.RDB$CHARACTER_SET_ID.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_collation:
+				FLD.RDB$COLLATION_ID = (SSHORT)DYN_get_number(ptr);
+				FLD.RDB$COLLATION_ID.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_segment_length:
+				FLD.RDB$SEGMENT_LENGTH = (SSHORT)DYN_get_number(ptr);
+				FLD.RDB$SEGMENT_LENGTH.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_query_name:
+				GET_STRING(ptr, FLD.RDB$QUERY_NAME);
+				FLD.RDB$QUERY_NAME.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_query_header:
+				DYN_put_blr_blob(gbl, ptr, &FLD.RDB$QUERY_HEADER);
+				FLD.RDB$QUERY_HEADER.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_fld_query_header2:
+				DYN_put_blr_blob2(gbl, ptr, &FLD.RDB$QUERY_HEADER);
+				FLD.RDB$QUERY_HEADER.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_fld_not_null:
+				FLD.RDB$NULL_FLAG.NULL = FALSE;
+				FLD.RDB$NULL_FLAG = TRUE;
+				break;
+
+			case gds__dyn_fld_missing_value:
+				DYN_put_blr_blob(gbl, ptr, &FLD.RDB$MISSING_VALUE);
+				FLD.RDB$MISSING_VALUE.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_computed_blr:
+				DYN_put_blr_blob(gbl, ptr, &FLD.RDB$COMPUTED_BLR);
+				FLD.RDB$COMPUTED_BLR.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_computed_source:
+				DYN_put_text_blob(gbl, ptr, &FLD.RDB$COMPUTED_SOURCE);
+				FLD.RDB$COMPUTED_SOURCE.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_fld_computed_source2:
+				DYN_put_text_blob2(gbl, ptr, &FLD.RDB$COMPUTED_SOURCE);
+				FLD.RDB$COMPUTED_SOURCE.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_fld_default_value:
+				FLD.RDB$DEFAULT_VALUE.NULL = FALSE;
+				DYN_put_blr_blob(gbl, ptr, &FLD.RDB$DEFAULT_VALUE);
+				break;
+
+			case gds__dyn_fld_default_source:
+				FLD.RDB$DEFAULT_SOURCE.NULL = FALSE;
+				DYN_put_text_blob(gbl, ptr, &FLD.RDB$DEFAULT_SOURCE);
+				break;
+
+			case gds__dyn_fld_validation_blr:
+				DYN_put_blr_blob(gbl, ptr, &FLD.RDB$VALIDATION_BLR);
+				FLD.RDB$VALIDATION_BLR.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_validation_source:
+				DYN_put_text_blob(gbl, ptr, &FLD.RDB$VALIDATION_SOURCE);
+				FLD.RDB$VALIDATION_SOURCE.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_fld_validation_source2:
+				DYN_put_text_blob2(gbl, ptr, &FLD.RDB$VALIDATION_SOURCE);
+				FLD.RDB$VALIDATION_SOURCE.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_fld_edit_string:
+				GET_STRING(ptr, FLD.RDB$EDIT_STRING);
+				FLD.RDB$EDIT_STRING.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_fld_edit_string2:
+				DYN_get_string2(ptr, FLD.RDB$EDIT_STRING,
+								sizeof(FLD.RDB$EDIT_STRING));
+				FLD.RDB$EDIT_STRING.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_description:
+				DYN_put_text_blob(gbl, ptr, &FLD.RDB$DESCRIPTION);
+				FLD.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_description2:
+				DYN_put_text_blob2(gbl, ptr, &FLD.RDB$DESCRIPTION);
+				FLD.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_fld_dimensions:
+				FLD.RDB$DIMENSIONS = (SSHORT)DYN_get_number(ptr);
+				FLD.RDB$DIMENSIONS.NULL = FALSE;
+				break;
+
+
+			default:
+				--(*ptr);
+				DYN_execute(gbl, ptr, relation_name,
+							(field_name) ? field_name : FLD.RDB$FIELD_NAME,
+							NULL_PTR, NULL_PTR, NULL_PTR);
+			}
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env))
+		{
+			DYN_rundown_request(old_env, request, drq_s_gfields);
+			DYN_error_punt(TRUE, 13, NULL, NULL, NULL, NULL, NULL);
+			/* msg 13: "STORE RDB$FIELDS failed" */
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_gfields))
+		DYN_REQUEST(drq_s_gfields) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_index(GBL		gbl,
+					  UCHAR**	ptr,
+					  TEXT*		relation_name,
+					  UCHAR		index_type,
+					  TEXT*		new_index_name,
+					  TEXT*		referred_index_name,
+					  TEXT*		cnst_name,
+					  UCHAR*	ri_actionP)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	creates an index.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	BLK old_request;
+	VOLATILE SSHORT id, old_id;
+	const size_t field_name_size = 32;
+	UCHAR index_name[32], referenced_relation[32];
+	UCHAR verb, seg_count, fld_count;
+	LLS field_list = NULL, seg_list = NULL, list_ptr;
+	STR str;
+	USHORT found, key_length, length, referred_cols = 0;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+	TEXT trigger_name[32];
+
+	if (ri_actionP != NULL)
+		(*ri_actionP) = 0;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+	id = -1;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		if (id == drq_s_indices) {
+			DYN_rundown_request(old_env, request, id);
+			DYN_error_punt(TRUE, 21, NULL, NULL, NULL, NULL, NULL);
+			/* msg 21: "STORE RDB$INDICES failed" */
+		}
+		else if (id == drq_s_idx_segs) {
+			DYN_rundown_request(old_env, request, id);
+			DYN_error_punt(TRUE, 15, NULL, NULL, NULL, NULL, NULL);
+			/* msg 15: "STORE RDB$INDICES failed" */
+		}
+
+		DYN_rundown_request(old_env, request, -1);
+		if (id == drq_l_lfield)
+			DYN_error_punt(TRUE, 15, NULL, NULL, NULL, NULL, NULL);
+		/* msg 15: "STORE RDB$INDICES failed" */
+		else if (id == drq_l_unq_idx)
+			DYN_error_punt(TRUE, 17, NULL, NULL, NULL, NULL, NULL);
+		/* msg 17: "Primary Key field lookup failed" */
+		else if (id == drq_l_view_idx)
+			DYN_error_punt(TRUE, 180, NULL, NULL, NULL, NULL, NULL);
+		/* msg 180: "Table Name lookup failed" */
+		else
+			DYN_error_punt(TRUE, 19, NULL, NULL, NULL, NULL, NULL);
+		/* msg 19: "Primary Key lookup failed" */
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_indices, DYN_REQUESTS);
+	id = drq_s_indices;
+
+	referenced_relation[0] = 0;
+	key_length = 0;
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		IDX IN RDB$INDICES 
+        IDX.RDB$UNIQUE_FLAG.NULL = TRUE;
+		IDX.RDB$INDEX_INACTIVE.NULL = TRUE;
+		IDX.RDB$INDEX_TYPE.NULL = TRUE;
+		IDX.RDB$DESCRIPTION.NULL = TRUE;
+		IDX.RDB$FOREIGN_KEY.NULL = TRUE;
+		IDX.RDB$EXPRESSION_SOURCE.NULL = TRUE;
+		IDX.RDB$EXPRESSION_BLR.NULL = TRUE;
+		fld_count = seg_count = 0;
+		if (!GET_STRING(ptr, IDX.RDB$INDEX_NAME))
+			DYN_UTIL_generate_index_name(tdbb, gbl, IDX.RDB$INDEX_NAME,
+										 index_type);
+		if (new_index_name != NULL)
+			strcpy(new_index_name, IDX.RDB$INDEX_NAME);
+		if (relation_name)
+			strcpy(IDX.RDB$RELATION_NAME, relation_name);
+		else if (*(*ptr)++ == gds__dyn_rel_name)
+			GET_STRING(ptr, IDX.RDB$RELATION_NAME);
+		else
+			DYN_error_punt(FALSE, 14, NULL, NULL, NULL, NULL, NULL);
+		/* msg 14: "No relation specified for index" */
+
+		IDX.RDB$RELATION_NAME.NULL = FALSE;
+
+		/* Check if the table is actually a view */
+
+		old_request = request;
+		old_id = id;
+		request = (BLK) CMP_find_request(tdbb, drq_l_view_idx, DYN_REQUESTS);
+		id = drq_l_view_idx;
+
+		FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+			VREL IN RDB$RELATIONS WITH VREL.RDB$RELATION_NAME EQ
+				IDX.RDB$RELATION_NAME 
+            if (!VREL.RDB$VIEW_BLR.NULL)
+                DYN_error_punt(FALSE, 181, NULL, NULL, NULL, NULL, NULL);
+			/* msg 181: "attempt to index a view" */
+
+		END_FOR;
+		if (!DYN_REQUEST(drq_l_view_idx))
+			DYN_REQUEST(drq_l_view_idx) = request;
+
+		request = old_request;
+		id = old_id;
+
+		/* The previous 2 lines and the next two lines can
+		 * deleted as long as no code is added in the middle.
+		 */
+
+		old_request = request;
+		old_id = id;
+		request = (BLK) CMP_find_request(tdbb, drq_l_lfield, DYN_REQUESTS);
+		id = drq_l_lfield;
+
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+			switch (verb)
+			{
+			case gds__dyn_idx_unique:
+				IDX.RDB$UNIQUE_FLAG = (SSHORT)DYN_get_number(ptr);
+				IDX.RDB$UNIQUE_FLAG.NULL = FALSE;
+				break;
+
+			case gds__dyn_idx_inactive:
+				IDX.RDB$INDEX_INACTIVE = (SSHORT)DYN_get_number(ptr);
+				IDX.RDB$INDEX_INACTIVE.NULL = FALSE;
+				break;
+
+			case gds__dyn_idx_type:
+				IDX.RDB$INDEX_TYPE = (SSHORT)DYN_get_number(ptr);
+				IDX.RDB$INDEX_TYPE.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_name:
+				str = (STR) ALLOCDV(type_str, field_name_size - 1);
+				DYN_get_string(ptr, str->str_data, field_name_size, TRUE);
+				LLS_PUSH(str, &seg_list);
+				seg_count++;
+
+				FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+					F IN RDB$RELATION_FIELDS CROSS GF IN RDB$FIELDS
+						WITH GF.RDB$FIELD_NAME EQ F.RDB$FIELD_SOURCE AND
+						F.RDB$FIELD_NAME EQ str->str_data AND
+						IDX.RDB$RELATION_NAME EQ F.RDB$RELATION_NAME
+                    if (!DYN_REQUEST(drq_l_lfield))
+					{
+                        DYN_REQUEST(drq_l_lfield) = request;
+					}
+
+					fld_count++;
+					if (GF.RDB$FIELD_TYPE == blr_blob)
+					{
+						DYN_error_punt(FALSE, 116, IDX.RDB$INDEX_NAME, NULL,
+									   NULL, NULL, NULL);
+						/* msg 116 "attempt to index blob field in index %s" */
+					}
+					else if (!GF.RDB$DIMENSIONS.NULL)
+					{
+						DYN_error_punt(FALSE, 117, IDX.RDB$INDEX_NAME, NULL,
+									   NULL, NULL, NULL);
+						/* msg 117 "attempt to index array field in index %s" */
+					}
+					else if (!GF.RDB$COMPUTED_BLR.NULL)
+					{
+						DYN_error_punt(FALSE, 179, IDX.RDB$INDEX_NAME, NULL,
+									   NULL, NULL, NULL);
+						/* msg 179 "attempt to index COMPUTED BY field in index %s" */
+					}
+					else if (GF.RDB$FIELD_TYPE == blr_varying ||
+							 GF.RDB$FIELD_TYPE == blr_text)
+					{
+						/* Compute the length of the key segment allowing
+						   for international information.  Note that we
+						   must convert a <character set, collation> type
+						   to an index type in order to compute the length */
+						if (!F.RDB$COLLATION_ID.NULL)
+						{
+							length =
+								INTL_key_length(tdbb,
+									INTL_TEXT_TO_INDEX(
+										INTL_CS_COLL_TO_TTYPE(GF.RDB$CHARACTER_SET_ID,
+															  F.RDB$COLLATION_ID)),
+									GF.RDB$FIELD_LENGTH);
+						}
+						else if (!GF.RDB$COLLATION_ID.NULL)
+						{
+							length =
+								INTL_key_length(tdbb,
+									INTL_TEXT_TO_INDEX(
+										INTL_CS_COLL_TO_TTYPE(GF.RDB$CHARACTER_SET_ID,
+											GF.RDB$COLLATION_ID)),
+									GF.RDB$FIELD_LENGTH);
+						}
+						else
+						{
+							length = GF.RDB$FIELD_LENGTH;
+						}
+					}
+					else
+					{
+						length = sizeof(double);
+					}
+					if (key_length)
+					{
+						key_length += ((length + STUFF_COUNT - 1) /
+									   (unsigned) STUFF_COUNT) *
+										(STUFF_COUNT + 1);
+					}
+					else
+					{
+						key_length = length;
+					}
+				END_FOR;
+				if (!DYN_REQUEST(drq_l_lfield))
+					DYN_REQUEST(drq_l_lfield) = request;
+				break;
+
+#ifdef EXPRESSION_INDICES
+				/* for expression indices, store the BLR and the source string */
+
+			case gds__dyn_fld_computed_blr:
+				DYN_put_blr_blob(gbl, ptr, &IDX.RDB$EXPRESSION_BLR);
+				IDX.RDB$EXPRESSION_BLR.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_computed_source:
+				DYN_put_text_blob(gbl, ptr, &IDX.RDB$EXPRESSION_SOURCE);
+				IDX.RDB$EXPRESSION_SOURCE.NULL = FALSE;
+				break;
+#endif
+
+				/* for foreign keys, point to the corresponding relation */
+
+			case gds__dyn_idx_foreign_key:
+				GET_STRING(ptr, referenced_relation);
+				break;
+
+			case gds__dyn_idx_ref_column:
+				str = (STR) ALLOCDV(type_str, field_name_size - 1);
+				DYN_get_string(ptr, str->str_data, field_name_size, TRUE);
+				LLS_PUSH(str, &field_list);
+				referred_cols++;
+				break;
+
+			case gds__dyn_description:
+				DYN_put_text_blob(gbl, ptr, &IDX.RDB$DESCRIPTION);
+				IDX.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_description2:
+				DYN_put_text_blob2(gbl, ptr, &IDX.RDB$DESCRIPTION);
+				IDX.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_foreign_key_delete:
+				assert(ri_actionP != NULL);
+				switch (verb = *(*ptr)++)
+				{
+				case gds__dyn_foreign_key_cascade:
+					(*ri_actionP) |= FOR_KEY_DEL_CASCADE;
+					if ((verb = *(*ptr)++) == gds__dyn_def_trigger)
+					{
+						DYN_define_trigger(gbl, ptr, relation_name,
+										   trigger_name, TRUE);
+						DYN_UTIL_store_check_constraints(tdbb, gbl, cnst_name,
+														 trigger_name);
+					}
+					else
+						DYN_unsupported_verb();
+					break;
+				case gds__dyn_foreign_key_null:
+					(*ri_actionP) |= FOR_KEY_DEL_NULL;
+					if ((verb = *(*ptr)++) == gds__dyn_def_trigger)
+					{
+						DYN_define_trigger(gbl, ptr, relation_name,
+										   trigger_name, TRUE);
+						DYN_UTIL_store_check_constraints(tdbb, gbl, cnst_name,
+														 trigger_name);
+					}
+					else
+						DYN_unsupported_verb();
+					break;
+				case gds__dyn_foreign_key_default:
+					(*ri_actionP) |= FOR_KEY_DEL_DEFAULT;
+					if ((verb = *(*ptr)++) == gds__dyn_def_trigger)
+					{
+						DYN_define_trigger(gbl, ptr, relation_name,
+										   trigger_name, TRUE);
+						DYN_UTIL_store_check_constraints(tdbb, gbl, cnst_name,
+														 trigger_name);
+					}
+					else
+						DYN_unsupported_verb();
+					break;
+				case gds__dyn_foreign_key_none:
+					(*ri_actionP) |= FOR_KEY_DEL_NONE;
+					break;
+				default:
+					assert(0);	/* should not come here */
+					DYN_unsupported_verb();
+				}
+				break;
+
+			case gds__dyn_foreign_key_update:
+				assert(ri_actionP != NULL);
+				switch (verb = *(*ptr)++)
+				{
+				case gds__dyn_foreign_key_cascade:
+					(*ri_actionP) |= FOR_KEY_UPD_CASCADE;
+					if ((verb = *(*ptr)++) == gds__dyn_def_trigger)
+					{
+						DYN_define_trigger(gbl, ptr, relation_name,
+										   trigger_name, TRUE);
+						DYN_UTIL_store_check_constraints(tdbb, gbl, cnst_name,
+														 trigger_name);
+					}
+					else
+						DYN_unsupported_verb();
+					break;
+				case gds__dyn_foreign_key_null:
+					(*ri_actionP) |= FOR_KEY_UPD_NULL;
+					if ((verb = *(*ptr)++) == gds__dyn_def_trigger)
+					{
+						DYN_define_trigger(gbl, ptr, relation_name,
+										   trigger_name, TRUE);
+						DYN_UTIL_store_check_constraints(tdbb, gbl, cnst_name,
+														 trigger_name);
+					}
+					else
+						DYN_unsupported_verb();
+					break;
+				case gds__dyn_foreign_key_default:
+					(*ri_actionP) |= FOR_KEY_UPD_DEFAULT;
+					if ((verb = *(*ptr)++) == gds__dyn_def_trigger)
+					{
+						DYN_define_trigger(gbl, ptr, relation_name,
+										   trigger_name, TRUE);
+						DYN_UTIL_store_check_constraints(tdbb, gbl, cnst_name,
+														 trigger_name);
+					}
+					else
+						DYN_unsupported_verb();
+					break;
+				case gds__dyn_foreign_key_none:
+					(*ri_actionP) |= FOR_KEY_UPD_NONE;
+					break;
+				default:
+					assert(0);	/* should not come here */
+					DYN_unsupported_verb();
+				}
+				break;
+			default:
+				DYN_unsupported_verb();
+			}
+		request = old_request;
+		id = old_id;
+
+		key_length = ROUNDUP(key_length, sizeof(SLONG));
+		if (key_length >= MAX_KEY)
+			DYN_error_punt(FALSE, 118, IDX.RDB$INDEX_NAME, NULL, NULL, NULL,
+						   NULL);
+		/* msg 118 "key size too big for index %s" */
+
+		if (seg_count) {
+			if (seg_count != fld_count)
+				DYN_error_punt(FALSE, 120, IDX.RDB$INDEX_NAME, NULL, NULL,
+							   NULL, NULL);
+			/* msg 118 "Unknown fields in index %s" */
+
+			old_request = request;
+			old_id = id;
+			request =
+				(BLK) CMP_find_request(tdbb, drq_s_idx_segs, DYN_REQUESTS);
+			id = drq_s_idx_segs;
+			while (seg_list) {
+				str = (STR) LLS_POP(&seg_list);
+				STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+					X IN RDB$INDEX_SEGMENTS
+                    strcpy(X.RDB$INDEX_NAME, IDX.RDB$INDEX_NAME);
+					strcpy(X.RDB$FIELD_NAME, str->str_data);
+					X.RDB$FIELD_POSITION = --fld_count;
+					ALL_release((FRB)str);
+				END_STORE;
+			}
+			if (!DYN_REQUEST(drq_s_idx_segs))
+				DYN_REQUEST(drq_s_idx_segs) = request;
+			request = old_request;
+			id = old_id;
+		}
+		else
+#ifdef EXPRESSION_INDICES
+		if (IDX.RDB$EXPRESSION_BLR.NULL)
+#endif
+			DYN_error_punt(FALSE, 119, IDX.RDB$INDEX_NAME, NULL, NULL, NULL,
+						   NULL);
+		/* msg 119 "no keys for index %s" */
+
+		if (field_list) {
+			/* If referring columns count <> referred columns return error */
+
+			if (seg_count != referred_cols)
+				DYN_error_punt(TRUE, 133, NULL, NULL, NULL, NULL, NULL);
+			/* msg 133: "Number of referencing columns do not equal number of referenced columns */
+
+			/* lookup a unique index in the referenced relation with the
+			   referenced fields mentioned */
+
+			old_request = request;
+			old_id = id;
+			request =
+				(BLK) CMP_find_request(tdbb, drq_l_unq_idx, DYN_REQUESTS);
+			id = drq_l_unq_idx;
+
+			index_name[0] = 0;
+			list_ptr = NULL;
+			found = FALSE;
+			FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				Y IN RDB$INDICES CROSS
+					Z IN RDB$INDEX_SEGMENTS OVER RDB$INDEX_NAME WITH
+					Y.RDB$RELATION_NAME EQ referenced_relation AND
+					Y.RDB$UNIQUE_FLAG NOT MISSING
+					SORTED BY Y.RDB$INDEX_NAME,
+					DESCENDING Z.RDB$FIELD_POSITION 
+
+                if (!DYN_REQUEST(drq_l_unq_idx))
+                    DYN_REQUEST(drq_l_unq_idx) = request;
+
+				/* create a control break on index name, in which we set up
+				   to handle a new index, assuming it is the right one */
+
+				DYN_terminate(Y.RDB$INDEX_NAME, sizeof(Y.RDB$INDEX_NAME));
+				if (strcmp(index_name, Y.RDB$INDEX_NAME)) {
+					if (list_ptr)
+						found = FALSE;
+					if (found)
+						break;
+					list_ptr = field_list;
+					strcpy(index_name, Y.RDB$INDEX_NAME);
+					found = TRUE;
+				}
+
+				/* if there are no more fields or the field name doesn't
+				   match, then this is not the correct index */
+
+				if (list_ptr) {
+					DYN_terminate(Z.RDB$FIELD_NAME, sizeof(Z.RDB$FIELD_NAME));
+					DYN_terminate(((STR) list_ptr->lls_object)->str_data,
+								  (int) ((STR) list_ptr->lls_object)->
+								  str_length);
+					if (strcmp(((STR) list_ptr->lls_object)->str_data,
+								Z.RDB$FIELD_NAME))
+					{
+						found = FALSE;
+					}
+					list_ptr = list_ptr->lls_next;
+				}
+				else
+					found = FALSE;
+
+			END_FOR;
+			if (!DYN_REQUEST(drq_l_unq_idx))
+				DYN_REQUEST(drq_l_unq_idx) = request;
+			request = old_request;
+			id = old_id;
+
+			if (list_ptr)
+				found = FALSE;
+
+			if (found) {
+				strcpy(IDX.RDB$FOREIGN_KEY, index_name);
+				IDX.RDB$FOREIGN_KEY.NULL = FALSE;
+				if (referred_index_name != NULL)
+					strcpy(referred_index_name, index_name);
+			}
+			else
+				DYN_error_punt(FALSE, 18, NULL, NULL, NULL, NULL, NULL);
+			/* msg 18: "could not find unique index with specified fields" */
+		}
+		else if (referenced_relation[0]) {
+			old_request = request;
+			old_id = id;
+			request =
+				(BLK) CMP_find_request(tdbb, drq_l_primary, DYN_REQUESTS);
+			id = drq_l_primary;
+
+			FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				IND IN RDB$INDICES WITH
+					IND.RDB$RELATION_NAME EQ referenced_relation AND
+					IND.RDB$INDEX_NAME STARTING "RDB$PRIMARY"
+                if (!DYN_REQUEST(drq_l_primary))
+                    DYN_REQUEST(drq_l_primary) = request;
+
+				/* Number of columns in referred index should be same as number
+				   of columns in referring index */
+
+				if (seg_count != IND.RDB$SEGMENT_COUNT)
+					DYN_error_punt(TRUE, 133, NULL, NULL, NULL, NULL, NULL);
+				/* msg 133: "Number of referencing columns do not equal number of referenced columns" */
+
+				DYN_terminate(IND.RDB$INDEX_NAME, sizeof(IND.RDB$INDEX_NAME));
+				strcpy(IDX.RDB$FOREIGN_KEY, IND.RDB$INDEX_NAME);
+				IDX.RDB$FOREIGN_KEY.NULL = FALSE;
+				if (referred_index_name != NULL)
+					strcpy(referred_index_name, IND.RDB$INDEX_NAME);
+
+			END_FOR;
+			if (!DYN_REQUEST(drq_l_primary))
+				DYN_REQUEST(drq_l_primary) = request;
+			request = old_request;
+			id = old_id;
+
+			if (IDX.RDB$FOREIGN_KEY.NULL)
+				DYN_error_punt(FALSE, 20, NULL, NULL, NULL, NULL, NULL);
+			/* msg 20: "could not find primary key index in specified relation" */
+		}
+
+		IDX.RDB$SEGMENT_COUNT = seg_count;
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_indices))
+		DYN_REQUEST(drq_s_indices) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_local_field(GBL		gbl,
+							UCHAR**	ptr,
+							TEXT*	relation_name,
+							TEXT*	field_name)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ l o c a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	BLK old_request;
+	VOLATILE SSHORT id, old_id;
+	UCHAR verb, *blr;
+	USHORT dtype, length,
+		lflag, sflag, slflag, scflag, clflag, clength, prflag, precision;
+	SSHORT stype, scale;
+	SSHORT charset_id;
+	USHORT charset_id_flag;
+	TEXT *source;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+	SLONG fld_pos;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+	id = -1;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		if (id == drq_s_lfields) {
+			DYN_rundown_request(old_env, request, id);
+			DYN_error_punt(TRUE, 23, NULL, NULL, NULL, NULL, NULL);
+			/* msg 23: "STORE RDB$RELATION_FIELDS failed" */
+		}
+		else {
+			DYN_rundown_request(old_env, request, id);
+			DYN_error_punt(TRUE, 22, NULL, NULL, NULL, NULL, NULL);
+			/* msg 22: "STORE RDB$FIELDS failed" */
+		}
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_lfields, DYN_REQUESTS);
+	id = drq_s_lfields;
+
+	scflag = lflag = sflag = slflag = clflag = prflag = FALSE;
+	charset_id_flag = FALSE;
+	blr = NULL;
+	source = NULL;
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		RFR IN RDB$RELATION_FIELDS 
+        GET_STRING(ptr, RFR.RDB$FIELD_NAME);
+		strcpy(RFR.RDB$FIELD_SOURCE, RFR.RDB$FIELD_NAME);
+		if (field_name != NULL)
+			strcpy(field_name, RFR.RDB$FIELD_NAME);
+		RFR.RDB$RELATION_NAME.NULL = TRUE;
+		if (relation_name) {
+			strcpy(RFR.RDB$RELATION_NAME, relation_name);
+			RFR.RDB$RELATION_NAME.NULL = FALSE;
+		}
+		RFR.RDB$SYSTEM_FLAG = 0;
+		RFR.RDB$SYSTEM_FLAG.NULL = FALSE;
+		RFR.RDB$NULL_FLAG.NULL = TRUE;
+		RFR.RDB$BASE_FIELD.NULL = TRUE;
+		RFR.RDB$UPDATE_FLAG.NULL = TRUE;
+		RFR.RDB$FIELD_POSITION.NULL = TRUE;
+		RFR.RDB$VIEW_CONTEXT.NULL = TRUE;
+		RFR.RDB$QUERY_NAME.NULL = TRUE;
+		RFR.RDB$QUERY_HEADER.NULL = TRUE;
+		RFR.RDB$SECURITY_CLASS.NULL = TRUE;
+		RFR.RDB$DESCRIPTION.NULL = TRUE;
+		RFR.RDB$DEFAULT_VALUE.NULL = TRUE;
+		RFR.RDB$DEFAULT_SOURCE.NULL = TRUE;
+		RFR.RDB$EDIT_STRING.NULL = TRUE;
+		RFR.RDB$COLLATION_ID.NULL = TRUE;
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+			switch (verb)
+			{
+			case gds__dyn_rel_name:
+				GET_STRING(ptr, RFR.RDB$RELATION_NAME);
+				relation_name = RFR.RDB$RELATION_NAME;
+				RFR.RDB$RELATION_NAME.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_source:
+				GET_STRING(ptr, RFR.RDB$FIELD_SOURCE);
+				break;
+
+			case gds__dyn_fld_base_fld:
+				GET_STRING(ptr, RFR.RDB$BASE_FIELD);
+				RFR.RDB$BASE_FIELD.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_query_name:
+				GET_STRING(ptr, RFR.RDB$QUERY_NAME);
+				RFR.RDB$QUERY_NAME.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_query_header:
+				DYN_put_blr_blob(gbl, ptr, &RFR.RDB$QUERY_HEADER);
+				RFR.RDB$QUERY_HEADER.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_fld_query_header2:
+				DYN_put_blr_blob2(gbl, ptr, &RFR.RDB$QUERY_HEADER);
+				RFR.RDB$QUERY_HEADER.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_fld_edit_string:
+				GET_STRING(ptr, RFR.RDB$EDIT_STRING);
+				RFR.RDB$EDIT_STRING.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_fld_edit_string2:
+				DYN_get_string2(ptr, RFR.RDB$EDIT_STRING,
+								sizeof(RFR.RDB$EDIT_STRING));
+				RFR.RDB$EDIT_STRING.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_fld_position:
+				RFR.RDB$FIELD_POSITION = (SSHORT)DYN_get_number(ptr);
+				RFR.RDB$FIELD_POSITION.NULL = FALSE;
+				break;
+
+			case gds__dyn_system_flag:
+				RFR.RDB$SYSTEM_FLAG = (SSHORT)DYN_get_number(ptr);
+				RFR.RDB$SYSTEM_FLAG.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_update_flag:
+			case gds__dyn_update_flag:
+				RFR.RDB$UPDATE_FLAG = (SSHORT)DYN_get_number(ptr);
+				RFR.RDB$UPDATE_FLAG.NULL = FALSE;
+				break;
+
+			case gds__dyn_view_context:
+				RFR.RDB$VIEW_CONTEXT = (SSHORT)DYN_get_number(ptr);
+				RFR.RDB$VIEW_CONTEXT.NULL = FALSE;
+				break;
+
+			case gds__dyn_security_class:
+				GET_STRING(ptr, RFR.RDB$SECURITY_CLASS);
+				RFR.RDB$SECURITY_CLASS.NULL = FALSE;
+				break;
+
+			case gds__dyn_description:
+				DYN_put_text_blob(gbl, ptr, &RFR.RDB$DESCRIPTION);
+				RFR.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_description2:
+				DYN_put_text_blob2(gbl, ptr, &RFR.RDB$DESCRIPTION);
+				RFR.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_fld_computed_blr:
+				DYN_UTIL_generate_field_name(tdbb, gbl, RFR.RDB$FIELD_SOURCE);
+				blr = *ptr;
+				DYN_skip_attribute(ptr);
+				break;
+
+			case gds__dyn_fld_computed_source:
+				source = (TEXT *) * ptr;
+				DYN_skip_attribute(ptr);
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_fld_computed_source2:
+				source = (TEXT *) * ptr;
+				DYN_skip_attribute2(ptr);
+				break;
+#endif
+			case gds__dyn_fld_default_value:
+				RFR.RDB$DEFAULT_VALUE.NULL = FALSE;
+				DYN_put_blr_blob(gbl, ptr, &RFR.RDB$DEFAULT_VALUE);
+				break;
+
+
+			case gds__dyn_fld_default_source:
+				RFR.RDB$DEFAULT_SOURCE.NULL = FALSE;
+				DYN_put_text_blob(gbl, ptr, &RFR.RDB$DEFAULT_SOURCE);
+				break;
+
+			case gds__dyn_fld_not_null:
+				RFR.RDB$NULL_FLAG.NULL = FALSE;
+				RFR.RDB$NULL_FLAG = TRUE;
+				break;
+
+			case gds__dyn_fld_type:
+				dtype = (USHORT)DYN_get_number(ptr);
+				break;
+
+			case gds__dyn_fld_length:
+				length = (USHORT)DYN_get_number(ptr);
+				lflag = TRUE;
+				break;
+
+			case gds__dyn_fld_sub_type:
+				stype = (SSHORT)DYN_get_number(ptr);
+				sflag = TRUE;
+				break;
+
+			case gds__dyn_fld_char_length:
+				clength = (USHORT)DYN_get_number(ptr);
+				clflag = TRUE;
+				break;
+
+			case gds__dyn_fld_segment_length:
+				stype = (SSHORT)DYN_get_number(ptr);
+				slflag = TRUE;
+				break;
+
+			case gds__dyn_fld_scale:
+				scale = (SSHORT)DYN_get_number(ptr);
+				scflag = TRUE;
+				break;
+
+			case isc_dyn_fld_precision:
+				precision = (USHORT)DYN_get_number(ptr);
+				prflag = TRUE;
+				break;
+
+			case gds__dyn_fld_character_set:
+				charset_id = (SSHORT)DYN_get_number(ptr);
+				charset_id_flag = TRUE;
+				break;
+
+			case gds__dyn_fld_collation:
+				RFR.RDB$COLLATION_ID.NULL = FALSE;
+				RFR.RDB$COLLATION_ID = (SSHORT)DYN_get_number(ptr);
+				break;
+
+			default:
+				--(*ptr);
+				DYN_execute(gbl, ptr, relation_name, RFR.RDB$FIELD_SOURCE,
+							NULL_PTR, NULL_PTR, NULL_PTR);
+			}
+
+		if (RFR.RDB$FIELD_POSITION.NULL == TRUE) {
+			fld_pos = -1;
+			DYN_UTIL_generate_field_position(tdbb, gbl, relation_name,
+											 &fld_pos);
+
+			if (fld_pos >= 0) {
+				RFR.RDB$FIELD_POSITION = (SSHORT)++fld_pos;
+				RFR.RDB$FIELD_POSITION.NULL = FALSE;
+			}
+		}
+
+		if (blr) {
+			old_request = request;
+			old_id = id;
+			request =
+				(BLK) CMP_find_request(tdbb, drq_s_gfields2, DYN_REQUESTS);
+
+			STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				FLD IN RDB$FIELDS
+                strcpy(FLD.RDB$FIELD_NAME, RFR.RDB$FIELD_SOURCE);
+				DYN_put_blr_blob(gbl, &blr, &FLD.RDB$COMPUTED_BLR);
+				if (source) {
+#if (defined JPN_EUC || defined JPN_SJIS)
+					DYN_put_text_blob2(gbl, &source,
+									   &FLD.RDB$COMPUTED_SOURCE);
+#else
+					DYN_put_text_blob(gbl, &source, &FLD.RDB$COMPUTED_SOURCE);
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+				}
+				FLD.RDB$FIELD_TYPE = dtype;
+				if (lflag) {
+					FLD.RDB$FIELD_LENGTH = length;
+					FLD.RDB$FIELD_LENGTH.NULL = FALSE;
+				}
+				else
+					FLD.RDB$FIELD_LENGTH.NULL = TRUE;
+				if (sflag) {
+					FLD.RDB$FIELD_SUB_TYPE = stype;
+					FLD.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+				}
+				else
+					FLD.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+				if (clflag) {
+					FLD.RDB$CHARACTER_LENGTH = clength;
+					FLD.RDB$CHARACTER_LENGTH.NULL = FALSE;
+				}
+				else
+					FLD.RDB$CHARACTER_LENGTH.NULL = TRUE;
+				if (slflag) {
+					FLD.RDB$SEGMENT_LENGTH = stype;
+					FLD.RDB$SEGMENT_LENGTH.NULL = FALSE;
+				}
+				else
+					FLD.RDB$SEGMENT_LENGTH.NULL = TRUE;
+				if (scflag) {
+					FLD.RDB$FIELD_SCALE = scale;
+					FLD.RDB$FIELD_SCALE.NULL = FALSE;
+				}
+				else
+					FLD.RDB$FIELD_SCALE.NULL = TRUE;
+				if (prflag) {
+					FLD.RDB$FIELD_PRECISION = precision;
+					FLD.RDB$FIELD_PRECISION.NULL = FALSE;
+				}
+				else
+					FLD.RDB$FIELD_PRECISION.NULL = TRUE;
+				if (charset_id_flag) {
+					FLD.RDB$CHARACTER_SET_ID = charset_id;
+					FLD.RDB$CHARACTER_SET_ID.NULL = FALSE;
+				}
+				else
+					FLD.RDB$CHARACTER_SET_ID.NULL = TRUE;
+
+			END_STORE;
+
+			if (!DYN_REQUEST(drq_s_gfields2))
+				DYN_REQUEST(drq_s_gfields2) = request;
+			request = old_request;
+			id = old_id;
+		}
+
+		if (!RFR.RDB$VIEW_CONTEXT.NULL)
+			find_field_source(tdbb, gbl, relation_name, RFR.RDB$VIEW_CONTEXT,
+							  RFR.RDB$BASE_FIELD, RFR.RDB$FIELD_SOURCE);
+
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_lfields))
+		DYN_REQUEST(drq_s_lfields) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_log_file(
+						 GBL gbl,
+						 UCHAR ** ptr,
+						 USHORT first_log_file, USHORT default_log)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ l o g _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a database or shadow file.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	UCHAR verb;
+	VOLATILE BLK request;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+	USHORT found = FALSE;
+	VOLATILE SSHORT id;
+	STR db_filename;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+	id = -1;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		if (id == drq_s_log_files) {
+			DYN_rundown_request(old_env, request, drq_s_log_files);
+			DYN_error_punt(TRUE, 154, NULL, NULL, NULL, NULL, NULL);
+			/* msg 154: STORE RDB$LOG_FILES failed */
+		}
+		else {
+			DYN_rundown_request(old_env, request, drq_l_log_files);
+			DYN_error_punt(TRUE, 155, NULL, NULL, NULL, NULL, NULL);
+			/* msg 155: Write ahead log lookup failed */
+		}
+	}
+
+	if (first_log_file) {
+		id = drq_l_log_files;
+		request = (BLK) CMP_find_request(tdbb, drq_l_log_files, DYN_REQUESTS);
+		FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+			FIL IN RDB$LOG_FILES found = TRUE;
+		END_FOR
+
+		if (!DYN_REQUEST(drq_l_log_files))
+			DYN_REQUEST(drq_l_log_files) = request;
+
+		if (found) {
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			DYN_error_punt(FALSE, 151, NULL, NULL, NULL, NULL, NULL);
+		}
+		/* msg 151: "Write ahead log already exists" */
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_log_files, DYN_REQUESTS);
+	id = drq_s_log_files;
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$LOG_FILES 
+        X.RDB$FILE_LENGTH.NULL = TRUE;
+		X.RDB$FILE_SEQUENCE.NULL = TRUE;
+		X.RDB$FILE_PARTITIONS.NULL = TRUE;
+		X.RDB$FILE_P_OFFSET.NULL = TRUE;
+
+		if (default_log) {
+			db_filename = dbb->dbb_filename;
+			if (db_filename->str_length >= sizeof(X.RDB$FILE_NAME))
+				DYN_error_punt(FALSE, 159, NULL, NULL, NULL, NULL, NULL);
+			memcpy(X.RDB$FILE_NAME, db_filename->str_data,
+				   (int) db_filename->str_length);
+			X.RDB$FILE_NAME[db_filename->str_length] = '\0';
+#ifdef NETWARE_386
+			ISC_strip_extension(X.RDB$FILE_NAME);
+#endif
+			X.RDB$FILE_FLAGS.NULL = FALSE;
+			X.RDB$FILE_FLAGS = LOG_default | LOG_serial;
+		}
+		else {
+			X.RDB$FILE_FLAGS.NULL = FALSE;
+			X.RDB$FILE_FLAGS = 0;
+			GET_STRING(ptr, X.RDB$FILE_NAME);
+			while ((verb = *(*ptr)++) != gds__dyn_end)
+				switch (verb)
+				{
+				case gds__dyn_file_length:
+					X.RDB$FILE_LENGTH = DYN_get_number(ptr);
+					X.RDB$FILE_LENGTH.NULL = FALSE;
+					break;
+
+				case gds__dyn_log_file_sequence:
+					X.RDB$FILE_SEQUENCE.NULL = FALSE;
+					X.RDB$FILE_SEQUENCE = (SSHORT)DYN_get_number(ptr);
+					break;
+
+				case gds__dyn_log_file_partitions:
+					X.RDB$FILE_PARTITIONS.NULL = FALSE;
+					X.RDB$FILE_PARTITIONS = (SSHORT)DYN_get_number(ptr);
+					break;
+
+				case gds__dyn_log_file_raw:
+					X.RDB$FILE_FLAGS |= LOG_raw;
+					break;
+
+				case gds__dyn_log_file_serial:
+					X.RDB$FILE_FLAGS |= LOG_serial;
+#ifdef NETWARE_386
+					ISC_strip_extension(X.RDB$FILE_NAME);
+#endif
+					break;
+
+				case gds__dyn_log_file_overflow:
+					X.RDB$FILE_FLAGS |= LOG_overflow;
+#ifdef NETWARE_386
+					ISC_strip_extension(X.RDB$FILE_NAME);
+#endif
+					break;
+
+				default:
+					DYN_unsupported_verb();
+				}
+		}
+
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_log_files))
+		DYN_REQUEST(drq_s_log_files) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_parameter( GBL gbl, UCHAR ** ptr, TEXT * procedure_name)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	UCHAR verb;
+	VOLATILE BLK request;
+	BLK request2;
+	USHORT f_length, f_type, f_charlength, f_seg_length,
+		f_scale_null, f_subtype_null, f_seg_length_null,
+		f_charlength_null, f_precision_null, f_charset_null, f_collation_null;
+	VOLATILE SSHORT id;
+	SSHORT f_subtype, f_scale, f_precision;
+	SSHORT f_charset, f_collation;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_prms, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	id = -1;
+	if (SETJMP(env))
+	{
+		if (id == drq_s_prms) {
+			DYN_rundown_request(old_env, request, drq_s_prms);
+			DYN_error_punt(TRUE, 136, NULL, NULL, NULL, NULL, NULL);
+			/* msg 163: "STORE RDB$PROCEDURE_PARAMETERS failed" */
+		}
+		else if (id == drq_s_prm_src) {
+			DYN_rundown_request(old_env, request, drq_s_prm_src);
+			DYN_error_punt(TRUE, 136, NULL, NULL, NULL, NULL, NULL);
+			/* msg 136: "STORE RDB$PROCEDURE_PARAMETERS failed" */
+		}
+		DYN_rundown_request(old_env, request, -1);
+
+		/* Control should never reach this point,
+		   because id should always have one of the values tested above.  */
+		assert(0);
+		DYN_error_punt(TRUE, 0, NULL, NULL, NULL, NULL, NULL);
+	}
+
+	f_length = f_type = f_subtype = f_charlength = f_scale = f_seg_length = 0;
+	f_charset = f_collation = f_precision = 0;
+	f_scale_null = f_subtype_null = f_charlength_null = f_seg_length_null =
+		TRUE;
+	f_precision_null = f_charset_null = f_collation_null = TRUE;
+	id = drq_s_prms;
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		P IN RDB$PROCEDURE_PARAMETERS USING
+        GET_STRING(ptr, P.RDB$PARAMETER_NAME);
+		if (procedure_name) {
+			P.RDB$PROCEDURE_NAME.NULL = FALSE;
+			strcpy(P.RDB$PROCEDURE_NAME, procedure_name);
+		}
+		else
+			P.RDB$PROCEDURE_NAME.NULL = TRUE;
+		P.RDB$PARAMETER_NUMBER.NULL = TRUE;
+		P.RDB$PARAMETER_TYPE.NULL = TRUE;
+		P.RDB$FIELD_SOURCE.NULL = TRUE;
+		P.RDB$SYSTEM_FLAG.NULL = TRUE;
+		P.RDB$DESCRIPTION.NULL = TRUE;
+
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+			switch (verb)
+			{
+			case gds__dyn_system_flag:
+				P.RDB$SYSTEM_FLAG = (SSHORT)DYN_get_number(ptr);
+				P.RDB$SYSTEM_FLAG.NULL = FALSE;
+				break;
+
+			case gds__dyn_prm_number:
+				P.RDB$PARAMETER_NUMBER = (SSHORT)DYN_get_number(ptr);
+				P.RDB$PARAMETER_NUMBER.NULL = FALSE;
+				break;
+
+			case gds__dyn_prm_type:
+				P.RDB$PARAMETER_TYPE = (SSHORT)DYN_get_number(ptr);
+				P.RDB$PARAMETER_TYPE.NULL = FALSE;
+				break;
+
+			case gds__dyn_prc_name:
+				GET_STRING(ptr, P.RDB$PROCEDURE_NAME);
+				P.RDB$PROCEDURE_NAME.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_source:
+				GET_STRING(ptr, P.RDB$FIELD_SOURCE);
+				P.RDB$FIELD_SOURCE.NULL = FALSE;
+				break;
+
+			case gds__dyn_fld_length:
+				f_length = (USHORT)DYN_get_number(ptr);
+				break;
+
+			case gds__dyn_fld_type:
+				f_type = (USHORT)DYN_get_number(ptr);
+				switch (f_type)
+				{
+				case blr_short:
+					f_length = 2;
+					break;
+
+				case blr_long:
+				case blr_float:
+				case blr_sql_time:
+				case blr_sql_date:
+					f_length = 4;
+					break;
+
+				case blr_int64:
+				case blr_quad:
+				case blr_timestamp:
+				case blr_double:
+				case blr_d_float:
+					f_length = 8;
+					break;
+
+				default:
+					if (f_type == blr_blob)
+						f_length = 8;
+					break;
+				}
+				break;
+
+			case gds__dyn_fld_scale:
+				f_scale = (SSHORT)DYN_get_number(ptr);
+				f_scale_null = FALSE;
+				break;
+
+			case isc_dyn_fld_precision:
+				f_precision = (SSHORT)DYN_get_number(ptr);
+				f_precision_null = FALSE;
+				break;
+
+			case gds__dyn_fld_sub_type:
+				f_subtype = (SSHORT)DYN_get_number(ptr);
+				f_subtype_null = FALSE;
+				break;
+
+			case gds__dyn_fld_char_length:
+				f_charlength = (USHORT)DYN_get_number(ptr);
+				f_charlength_null = FALSE;
+				break;
+
+			case gds__dyn_fld_character_set:
+				f_charset = (SSHORT)DYN_get_number(ptr);
+				f_charset_null = FALSE;
+				break;
+
+			case gds__dyn_fld_collation:
+				f_collation = (SSHORT)DYN_get_number(ptr);
+				f_collation_null = FALSE;
+				break;
+
+			case gds__dyn_fld_segment_length:
+				f_seg_length = (USHORT)DYN_get_number(ptr);
+				f_seg_length_null = FALSE;
+				break;
+
+			case gds__dyn_description:
+				DYN_put_text_blob(gbl, ptr, &P.RDB$DESCRIPTION);
+				P.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_description2:
+				DYN_put_text_blob2(gbl, ptr, &P.RDB$DESCRIPTION);
+				P.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+#endif
+
+			default:
+				--(*ptr);
+				DYN_execute(gbl, ptr, NULL_PTR,
+							NULL_PTR, NULL_PTR, NULL_PTR, procedure_name);
+			}
+		if (P.RDB$FIELD_SOURCE.NULL) {
+			/* Need to store dummy global field */
+			id = drq_s_prm_src;
+			request2 =
+				(BLK) CMP_find_request(tdbb, drq_s_prm_src, DYN_REQUESTS);
+			STORE(REQUEST_HANDLE request2 TRANSACTION_HANDLE gbl->gbl_transaction)
+				PS IN RDB$FIELDS USING
+                DYN_UTIL_generate_field_name(tdbb, gbl,
+                                             PS.RDB$FIELD_NAME);
+				strcpy(P.RDB$FIELD_SOURCE, PS.RDB$FIELD_NAME);
+				P.RDB$FIELD_SOURCE.NULL = FALSE;
+				PS.RDB$FIELD_LENGTH = f_length;
+				PS.RDB$FIELD_TYPE = f_type;
+				PS.RDB$FIELD_SUB_TYPE = f_subtype;
+				PS.RDB$FIELD_SUB_TYPE.NULL = f_subtype_null;
+				PS.RDB$FIELD_SCALE = f_scale;
+				PS.RDB$FIELD_SCALE.NULL = f_scale_null;
+				PS.RDB$FIELD_PRECISION = f_precision;
+				PS.RDB$FIELD_PRECISION.NULL = f_precision_null;
+				PS.RDB$SEGMENT_LENGTH = f_seg_length;
+				PS.RDB$SEGMENT_LENGTH.NULL = f_seg_length_null;
+				PS.RDB$CHARACTER_LENGTH = f_charlength;
+				PS.RDB$CHARACTER_LENGTH.NULL = f_charlength_null;
+				PS.RDB$CHARACTER_SET_ID = f_charset;
+				PS.RDB$CHARACTER_SET_ID.NULL = f_charset_null;
+				PS.RDB$COLLATION_ID = f_collation;
+				PS.RDB$COLLATION_ID.NULL = f_collation_null;
+			END_STORE;
+			if (!DYN_REQUEST(drq_s_prm_src))
+				DYN_REQUEST(drq_s_prm_src) = request2;
+			id = drq_s_prms;
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_prms))
+		DYN_REQUEST(drq_s_prms) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_procedure( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	UCHAR verb;
+	USHORT sql_prot;
+	VOLATILE SSHORT id;
+	TEXT procedure_name[PROC_NAME_SIZE], owner_name[32], *p;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	GET_STRING(ptr, procedure_name);
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	sql_prot = FALSE;
+	request = NULL;
+	id = -1;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		if (id == drq_s_prcs) {
+			DYN_rundown_request(old_env, request, id);
+			DYN_error_punt(TRUE, 134, NULL, NULL, NULL, NULL, NULL);
+			/* msg 134: "STORE RDB$PROCEDURES failed" */
+		}
+		else if (id == drq_s_prc_usr_prvs) {
+			DYN_rundown_request(old_env, request, id);
+			DYN_error_punt(TRUE, 25, NULL, NULL, NULL, NULL, NULL);
+			/* msg 25: "STORE RDB$USER_PRIVILEGES failed defining a relation" */
+		}
+
+		DYN_rundown_request(old_env, request, -1);
+		if (id == drq_l_prc_name)
+			DYN_error_punt(TRUE, 134, NULL, NULL, NULL, NULL, NULL);
+		/* msg 134: "STORE RDB$PROCEDURES failed" */
+
+		/* Control should never reach this point, because id should have
+		   one of the values tested-for above. */
+		assert(0);
+		DYN_error_punt(TRUE, 0, NULL, NULL, NULL, NULL, NULL);
+	}
+
+	id = drq_l_prc_name;
+	check_unique_name(tdbb, gbl, procedure_name, TRUE);
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_prcs, DYN_REQUESTS);
+	id = drq_s_prcs;
+
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		P IN RDB$PROCEDURES 
+        strcpy(P.RDB$PROCEDURE_NAME, procedure_name);
+		P.RDB$SYSTEM_FLAG.NULL = TRUE;
+		P.RDB$PROCEDURE_BLR.NULL = TRUE;
+		P.RDB$PROCEDURE_SOURCE.NULL = TRUE;
+		P.RDB$SECURITY_CLASS.NULL = TRUE;
+		P.RDB$DESCRIPTION.NULL = TRUE;
+		P.RDB$PROCEDURE_INPUTS.NULL = TRUE;
+		P.RDB$PROCEDURE_OUTPUTS.NULL = TRUE;
+
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+			switch (verb)
+			{
+			case gds__dyn_system_flag:
+				P.RDB$SYSTEM_FLAG = (SSHORT)DYN_get_number(ptr);
+				P.RDB$SYSTEM_FLAG.NULL = FALSE;
+				break;
+
+			case gds__dyn_prc_blr:
+				P.RDB$PROCEDURE_BLR.NULL = FALSE;
+				DYN_put_blr_blob(gbl, ptr, &P.RDB$PROCEDURE_BLR);
+				break;
+
+			case gds__dyn_description:
+				DYN_put_text_blob(gbl, ptr, &P.RDB$DESCRIPTION);
+				P.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_description2:
+				DYN_put_text_blob2(gbl, ptr, &P.RDB$DESCRIPTION);
+				P.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_prc_source:
+				DYN_put_text_blob(gbl, ptr, &P.RDB$PROCEDURE_SOURCE);
+				P.RDB$PROCEDURE_SOURCE.NULL = FALSE;
+				break;
+
+			case gds__dyn_prc_inputs:
+				P.RDB$PROCEDURE_INPUTS = (SSHORT)DYN_get_number(ptr);
+				P.RDB$PROCEDURE_INPUTS.NULL = FALSE;
+				break;
+
+			case gds__dyn_prc_outputs:
+				P.RDB$PROCEDURE_OUTPUTS = (SSHORT)DYN_get_number(ptr);
+				P.RDB$PROCEDURE_OUTPUTS.NULL = FALSE;
+				break;
+
+			case gds__dyn_security_class:
+				GET_STRING(ptr, P.RDB$SECURITY_CLASS);
+				P.RDB$SECURITY_CLASS.NULL = FALSE;
+				break;
+
+			case gds__dyn_rel_sql_protection:
+				sql_prot = (USHORT)DYN_get_number(ptr);
+				break;
+
+			default:
+				--(*ptr);
+				DYN_execute(gbl, ptr,
+							NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR,
+							procedure_name);
+			}
+
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_prcs))
+		DYN_REQUEST(drq_s_prcs) = request;
+
+	if (sql_prot) {
+		if (get_who(tdbb, gbl, owner_name))
+			DYN_error_punt(TRUE, 134, NULL, NULL, NULL, NULL, NULL);
+		/* msg 134: "STORE RDB$PROCEDURES failed" */
+
+		for (p = ALL_PROC_PRIVILEGES; *p; p++) {
+			request =
+				(BLK) CMP_find_request(tdbb, drq_s_prc_usr_prvs,
+									   DYN_REQUESTS);
+			id = drq_s_prc_usr_prvs;
+
+			STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				X IN RDB$USER_PRIVILEGES
+                strcpy(X.RDB$RELATION_NAME, procedure_name);
+				strcpy(X.RDB$USER, owner_name);
+				X.RDB$USER_TYPE = obj_user;
+				X.RDB$OBJECT_TYPE = obj_procedure;
+				X.RDB$PRIVILEGE[0] = *p;
+				X.RDB$PRIVILEGE[1] = 0;
+			END_STORE;
+
+			if (!DYN_REQUEST(drq_s_prc_usr_prvs))
+				DYN_REQUEST(drq_s_prc_usr_prvs) = request;
+		}
+	}
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_relation( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	BLK old_request;
+	UCHAR verb;
+	USHORT sql_prot, is_a_view, priv;
+	VOLATILE SSHORT id, old_id;
+	STATUS *s;
+	TEXT relation_name[32], owner_name[32], field_name[32], *p;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	sql_prot = is_a_view = FALSE;
+	GET_STRING(ptr, relation_name);
+
+	request = NULL;
+	id = -1;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		if (id == drq_s_rels) {
+			DYN_rundown_request(old_env, request, id);
+			DYN_error_punt(TRUE, 24, NULL, NULL, NULL, NULL, NULL);
+			/* msg 24: "STORE RDB$RELATIONS failed" */
+		}
+		else if (id == drq_s_usr_prvs) {
+			DYN_rundown_request(old_env, request, id);
+			DYN_error_punt(TRUE, 25, NULL, NULL, NULL, NULL, NULL);
+			/* msg 25: "STORE RDB$USER_PRIVILEGES failed defining a relation" */
+		}
+
+		DYN_rundown_request(old_env, request, -1);
+		if (id == drq_l_rel_name)
+			DYN_error_punt(TRUE, 24, NULL, NULL, NULL, NULL, NULL);
+		/* msg 24: "STORE RDB$RELATIONS failed" */
+		else if (id == drq_l_view_rels)
+			DYN_error_punt(TRUE, 115, NULL, NULL, NULL, NULL, NULL);
+		/* msg 115: "CREATE VIEW failed" */
+
+		/* Control should never reach this point, because id should
+		   always have one of the values test-for above. */
+		assert(0);
+		DYN_error_punt(TRUE, 0, NULL, NULL, NULL, NULL, NULL);
+	}
+
+	id = drq_l_rel_name;
+	check_unique_name(tdbb, gbl, relation_name, FALSE);
+	request = (BLK) CMP_find_request(tdbb, drq_s_rels, DYN_REQUESTS);
+	id = drq_s_rels;
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		REL IN RDB$RELATIONS 
+        strcpy(REL.RDB$RELATION_NAME, relation_name);
+		REL.RDB$SYSTEM_FLAG.NULL = TRUE;
+		REL.RDB$VIEW_BLR.NULL = TRUE;
+		REL.RDB$VIEW_SOURCE.NULL = TRUE;
+		REL.RDB$SECURITY_CLASS.NULL = TRUE;
+		REL.RDB$DESCRIPTION.NULL = TRUE;
+		REL.RDB$EXTERNAL_FILE.NULL = TRUE;
+		REL.RDB$FLAGS = 0;
+		REL.RDB$FLAGS.NULL = FALSE;
+
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+			switch (verb)
+			{
+			case gds__dyn_system_flag:
+				REL.RDB$SYSTEM_FLAG = DYN_get_number(ptr);
+				REL.RDB$SYSTEM_FLAG.NULL = FALSE;
+				break;
+
+			case gds__dyn_sql_object:
+				REL.RDB$FLAGS |= REL_sql;
+				break;
+
+			case gds__dyn_view_blr:
+				REL.RDB$VIEW_BLR.NULL = FALSE;
+				is_a_view = TRUE;
+				DYN_put_blr_blob(gbl, ptr, &REL.RDB$VIEW_BLR);
+				break;
+
+			case gds__dyn_description:
+				DYN_put_text_blob(gbl, ptr, &REL.RDB$DESCRIPTION);
+				REL.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_description2:
+				DYN_put_text_blob2(gbl, ptr, &REL.RDB$DESCRIPTION);
+				REL.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_view_source:
+				DYN_put_text_blob(gbl, ptr, &REL.RDB$VIEW_SOURCE);
+				REL.RDB$VIEW_SOURCE.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_view_source2:
+				DYN_put_text_blob2(gbl, ptr, &REL.RDB$VIEW_SOURCE);
+				REL.RDB$VIEW_SOURCE.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_security_class:
+				GET_STRING(ptr, REL.RDB$SECURITY_CLASS);
+				REL.RDB$SECURITY_CLASS.NULL = FALSE;
+				break;
+
+			case gds__dyn_rel_ext_file:
+				GET_STRING(ptr, REL.RDB$EXTERNAL_FILE);
+				if (ISC_check_if_remote(REL.RDB$EXTERNAL_FILE, FALSE))
+					DYN_error_punt(TRUE, 163, NULL, NULL, NULL, NULL, NULL);
+				ISC_expand_filename(REL.RDB$EXTERNAL_FILE,
+									strlen(REL.RDB$EXTERNAL_FILE),
+									REL.RDB$EXTERNAL_FILE);
+				REL.RDB$EXTERNAL_FILE.NULL = FALSE;
+				break;
+
+			case gds__dyn_rel_sql_protection:
+				REL.RDB$FLAGS |= REL_sql;
+				sql_prot = DYN_get_number(ptr);
+				break;
+
+			default:
+				--(*ptr);
+				DYN_execute(gbl, ptr, REL.RDB$RELATION_NAME, field_name,
+							NULL_PTR, NULL_PTR, NULL_PTR);
+			}
+
+		if (sql_prot) {
+			if (get_who(tdbb, gbl, owner_name))
+				DYN_error_punt(TRUE, 115, NULL, NULL, NULL, NULL, NULL);
+			/* msg 115: "CREATE VIEW failed" */
+
+			if (is_a_view) {
+				old_request = request;
+				old_id = id;
+				request =
+					(BLK) CMP_find_request(tdbb, drq_l_view_rels,
+										   DYN_REQUESTS);
+				id = drq_l_view_rels;
+
+				FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+					VRL IN RDB$VIEW_RELATIONS CROSS
+						PREL IN RDB$RELATIONS OVER RDB$RELATION_NAME WITH
+						VRL.RDB$VIEW_NAME EQ relation_name
+                    if (!DYN_REQUEST(drq_l_view_rels))
+                        DYN_REQUEST(drq_l_view_rels) = request;
+
+					if (strcmp(PREL.RDB$OWNER_NAME, owner_name)) {
+						if (DYN_UTIL_get_prot
+							(tdbb, gbl, PREL.RDB$RELATION_NAME, "", &priv))
+							DYN_error_punt(TRUE, 115, NULL, NULL, NULL, NULL,
+										   NULL);
+						/* msg 115: "CREATE VIEW failed" */
+
+						if (!(priv & SCL_read)) {
+							s = tdbb->tdbb_status_vector;
+							*s++ = gds_arg_gds;
+							*s++ = gds__no_priv;
+							*s++ = gds_arg_string;
+							*s++ = (STATUS) "SELECT";	/* Non-Translatable */
+							*s++ = gds_arg_string;
+							*s++ = (STATUS) "TABLE";	/* Non-Translatable */
+							*s++ = gds_arg_string;
+							*s++ =
+								(STATUS) ERR_cstring(REL.RDB$RELATION_NAME);
+							*s = 0;
+							/* msg 32: no permission for %s access to %s %s */
+							DYN_error_punt(TRUE, 115, NULL, NULL, NULL, NULL,
+										   NULL);
+							/* msg 115: "CREATE VIEW failed" */
+						}
+					}
+				END_FOR;
+				if (!DYN_REQUEST(drq_l_view_rels))
+					DYN_REQUEST(drq_l_view_rels) = request;
+				request = old_request;
+				id = old_id;
+			}
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_rels))
+		DYN_REQUEST(drq_s_rels) = request;
+
+	if (sql_prot)
+		for (p = ALL_PRIVILEGES; *p; p++) {
+			request =
+				(BLK) CMP_find_request(tdbb, drq_s_usr_prvs, DYN_REQUESTS);
+			id = drq_s_usr_prvs;
+
+			STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				X IN RDB$USER_PRIVILEGES
+                strcpy(X.RDB$RELATION_NAME, relation_name);
+				strcpy(X.RDB$USER, owner_name);
+				X.RDB$USER_TYPE = obj_user;
+				X.RDB$OBJECT_TYPE = obj_relation;
+				X.RDB$PRIVILEGE[0] = *p;
+				X.RDB$PRIVILEGE[1] = 0;
+				X.RDB$GRANT_OPTION = 1;
+			END_STORE;
+
+			if (!DYN_REQUEST(drq_s_usr_prvs))
+				DYN_REQUEST(drq_s_usr_prvs) = request;
+		}
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_security_class( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	UCHAR verb;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_classes, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		SC IN RDB$SECURITY_CLASSES 
+        GET_STRING(ptr, SC.RDB$SECURITY_CLASS);
+		SC.RDB$ACL.NULL = TRUE;
+		SC.RDB$DESCRIPTION.NULL = TRUE;
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+			switch (verb)
+			{
+			case gds__dyn_scl_acl:
+				DYN_put_blr_blob(gbl, ptr, &SC.RDB$ACL);
+				SC.RDB$ACL.NULL = FALSE;
+				break;
+
+			case gds__dyn_description:
+				DYN_put_text_blob(gbl, ptr, &SC.RDB$DESCRIPTION);
+				SC.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_description2:
+				DYN_put_text_blob2(gbl, ptr, &SC.RDB$DESCRIPTION);
+				SC.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+#endif
+
+			default:
+				DYN_unsupported_verb();
+			}
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env))
+		{
+			DYN_rundown_request(old_env, request, drq_s_classes);
+			DYN_error_punt(TRUE, 27, NULL, NULL, NULL, NULL, NULL);
+			/* msg 27: "STORE RDB$RELATIONS failed" */
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_classes))
+		DYN_REQUEST(drq_s_classes) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_sql_field(GBL		gbl,
+						  UCHAR**	ptr,
+						  TEXT*		relation_name,
+						  TEXT*		field_name)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ s q l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a local, SQL field.  This will require generation of
+ *	an global field name.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	BLK old_request;
+	VOLATILE SSHORT id, old_id;
+	UCHAR verb;
+	USHORT dtype;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+	SLONG fld_pos;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+	id = -1;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		if (id == drq_s_sql_lfld) {
+			DYN_rundown_request(old_env, request, id);
+			DYN_error_punt(TRUE, 29, NULL, NULL, NULL, NULL, NULL);
+			/* msg 29: "STORE RDB$RELATION_FIELDS failed" */
+		}
+		else {
+			DYN_rundown_request(old_env, request, id);
+			DYN_error_punt(TRUE, 28, NULL, NULL, NULL, NULL, NULL);
+			/* msg 28: "STORE RDB$FIELDS failed" */
+		}
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_sql_lfld, DYN_REQUESTS);
+	id = drq_s_sql_lfld;
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		RFR IN RDB$RELATION_FIELDS 
+        GET_STRING(ptr, RFR.RDB$FIELD_NAME);
+		if (field_name != NULL)
+			strcpy(field_name, RFR.RDB$FIELD_NAME);
+		if (relation_name)
+			strcpy(RFR.RDB$RELATION_NAME, relation_name);
+		RFR.RDB$SYSTEM_FLAG = 0;
+		RFR.RDB$SYSTEM_FLAG.NULL = FALSE;
+		RFR.RDB$QUERY_NAME.NULL = TRUE;
+		RFR.RDB$QUERY_HEADER.NULL = TRUE;
+		RFR.RDB$EDIT_STRING.NULL = TRUE;
+		RFR.RDB$FIELD_POSITION.NULL = TRUE;
+		RFR.RDB$VIEW_CONTEXT.NULL = TRUE;
+		RFR.RDB$BASE_FIELD.NULL = TRUE;
+		RFR.RDB$UPDATE_FLAG.NULL = TRUE;
+		RFR.RDB$NULL_FLAG.NULL = TRUE;
+		RFR.RDB$DEFAULT_SOURCE.NULL = TRUE;
+		RFR.RDB$DEFAULT_VALUE.NULL = TRUE;
+		RFR.RDB$COLLATION_ID.NULL = TRUE;
+
+		old_request = request;
+		old_id = id;
+		request = (BLK) CMP_find_request(tdbb, drq_s_sql_gfld, DYN_REQUESTS);
+		id = drq_s_sql_gfld;
+
+		STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+			FLD IN RDB$FIELDS FLD.RDB$SYSTEM_FLAG.NULL = TRUE;
+			FLD.RDB$FIELD_SCALE.NULL = TRUE;
+			FLD.RDB$FIELD_PRECISION.NULL = TRUE;
+			FLD.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+			FLD.RDB$SEGMENT_LENGTH.NULL = TRUE;
+			FLD.RDB$COMPUTED_BLR.NULL = TRUE;
+			FLD.RDB$COMPUTED_SOURCE.NULL = TRUE;
+			FLD.RDB$DEFAULT_VALUE.NULL = TRUE;
+			FLD.RDB$DEFAULT_SOURCE.NULL = TRUE;
+			FLD.RDB$VALIDATION_BLR.NULL = TRUE;
+			FLD.RDB$VALIDATION_SOURCE.NULL = TRUE;
+			FLD.RDB$NULL_FLAG.NULL = TRUE;
+			FLD.RDB$EDIT_STRING.NULL = TRUE;
+			FLD.RDB$DIMENSIONS.NULL = TRUE;
+			FLD.RDB$CHARACTER_LENGTH.NULL = TRUE;
+			FLD.RDB$CHARACTER_SET_ID.NULL = TRUE;
+			FLD.RDB$COLLATION_ID.NULL = TRUE;
+
+			DYN_UTIL_generate_field_name(tdbb, gbl, RFR.RDB$FIELD_SOURCE);
+			strcpy(FLD.RDB$FIELD_NAME, RFR.RDB$FIELD_SOURCE);
+			while ((verb = *(*ptr)++) != gds__dyn_end)
+				switch (verb)
+				{
+				case gds__dyn_rel_name:
+					GET_STRING(ptr, RFR.RDB$RELATION_NAME);
+					break;
+
+				case gds__dyn_fld_query_name:
+					GET_STRING(ptr, RFR.RDB$QUERY_NAME);
+					RFR.RDB$QUERY_NAME.NULL = FALSE;
+					break;
+
+				case gds__dyn_fld_edit_string:
+					GET_STRING(ptr, RFR.RDB$EDIT_STRING);
+					RFR.RDB$EDIT_STRING.NULL = FALSE;
+					break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+				case gds__dyn_fld_edit_string2:
+					DYN_get_string2(ptr, RFR.RDB$EDIT_STRING,
+									sizeof(RFR.RDB$EDIT_STRING));
+					RFR.RDB$EDIT_STRING.NULL = FALSE;
+					break;
+#endif
+
+				case gds__dyn_fld_position:
+					RFR.RDB$FIELD_POSITION = DYN_get_number(ptr);
+					RFR.RDB$FIELD_POSITION.NULL = FALSE;
+					break;
+
+				case gds__dyn_view_context:
+					RFR.RDB$VIEW_CONTEXT = DYN_get_number(ptr);
+					RFR.RDB$VIEW_CONTEXT.NULL = FALSE;
+					break;
+
+				case gds__dyn_system_flag:
+					RFR.RDB$SYSTEM_FLAG = FLD.RDB$SYSTEM_FLAG =
+						DYN_get_number(ptr);
+					RFR.RDB$SYSTEM_FLAG.NULL = FLD.RDB$SYSTEM_FLAG.NULL =
+						FALSE;
+					break;
+
+				case gds__dyn_update_flag:
+					RFR.RDB$UPDATE_FLAG = DYN_get_number(ptr);
+					RFR.RDB$UPDATE_FLAG.NULL = FALSE;
+					break;
+
+				case gds__dyn_fld_length:
+					FLD.RDB$FIELD_LENGTH = DYN_get_number(ptr);
+					break;
+
+				case gds__dyn_fld_computed_blr:
+					FLD.RDB$COMPUTED_BLR.NULL = FALSE;
+					DYN_put_blr_blob(gbl, ptr, &FLD.RDB$COMPUTED_BLR);
+					break;
+
+				case gds__dyn_fld_computed_source:
+					FLD.RDB$COMPUTED_SOURCE.NULL = FALSE;
+					DYN_put_text_blob(gbl, ptr, &FLD.RDB$COMPUTED_SOURCE);
+					break;
+
+				case gds__dyn_fld_default_value:
+					RFR.RDB$DEFAULT_VALUE.NULL = FALSE;
+					DYN_put_blr_blob(gbl, ptr, &RFR.RDB$DEFAULT_VALUE);
+					break;
+
+				case gds__dyn_fld_default_source:
+					RFR.RDB$DEFAULT_SOURCE.NULL = FALSE;
+					DYN_put_text_blob(gbl, ptr, &RFR.RDB$DEFAULT_SOURCE);
+					break;
+
+				case gds__dyn_fld_validation_blr:
+					FLD.RDB$VALIDATION_BLR.NULL = FALSE;
+					DYN_put_blr_blob(gbl, ptr, &FLD.RDB$VALIDATION_BLR);
+					break;
+
+				case gds__dyn_fld_not_null:
+					RFR.RDB$NULL_FLAG.NULL = FALSE;
+					RFR.RDB$NULL_FLAG = TRUE;
+					break;
+
+				case gds__dyn_fld_query_header:
+					DYN_put_blr_blob(gbl, ptr, &RFR.RDB$QUERY_HEADER);
+					RFR.RDB$QUERY_HEADER.NULL = FALSE;
+					break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+				case gds__dyn_fld_query_header2:
+					DYN_put_blr_blob2(gbl, ptr, &RFR.RDB$QUERY_HEADER);
+					RFR.RDB$QUERY_HEADER.NULL = FALSE;
+					break;
+#endif
+
+				case gds__dyn_fld_type:
+					FLD.RDB$FIELD_TYPE = dtype = DYN_get_number(ptr);
+					switch (dtype)
+					{
+					case blr_short:
+						FLD.RDB$FIELD_LENGTH = 2;
+						break;
+
+					case blr_long:
+					case blr_float:
+					case blr_sql_date:
+					case blr_sql_time:
+						FLD.RDB$FIELD_LENGTH = 4;
+						break;
+
+					case blr_int64:
+					case blr_quad:
+					case blr_timestamp:
+					case blr_double:
+					case blr_d_float:
+						FLD.RDB$FIELD_LENGTH = 8;
+						break;
+
+					default:
+						if (dtype == blr_blob)
+							FLD.RDB$FIELD_LENGTH = 8;
+						break;
+					}
+					break;
+
+				case gds__dyn_fld_scale:
+					FLD.RDB$FIELD_SCALE = DYN_get_number(ptr);
+					FLD.RDB$FIELD_SCALE.NULL = FALSE;
+					break;
+
+				case isc_dyn_fld_precision:
+					FLD.RDB$FIELD_PRECISION = DYN_get_number(ptr);
+					FLD.RDB$FIELD_PRECISION.NULL = FALSE;
+					break;
+
+				case gds__dyn_fld_sub_type:
+					FLD.RDB$FIELD_SUB_TYPE = DYN_get_number(ptr);
+					FLD.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+					break;
+
+				case gds__dyn_fld_char_length:
+					FLD.RDB$CHARACTER_LENGTH = DYN_get_number(ptr);
+					FLD.RDB$CHARACTER_LENGTH.NULL = FALSE;
+					break;
+
+				case gds__dyn_fld_character_set:
+					FLD.RDB$CHARACTER_SET_ID = DYN_get_number(ptr);
+					FLD.RDB$CHARACTER_SET_ID.NULL = FALSE;
+					break;
+
+				case gds__dyn_fld_collation:
+					/* Note: the global field's collation is not set, just 
+					 *       the local field.  There is no full "domain" 
+					 *       created for the local field.
+					 *       This is the same decision for items like NULL_FLAG
+					 */
+					RFR.RDB$COLLATION_ID = DYN_get_number(ptr);
+					RFR.RDB$COLLATION_ID.NULL = FALSE;
+					break;
+
+				case gds__dyn_fld_dimensions:
+					FLD.RDB$DIMENSIONS = DYN_get_number(ptr);
+					FLD.RDB$DIMENSIONS.NULL = FALSE;
+					break;
+
+				case gds__dyn_fld_segment_length:
+					FLD.RDB$SEGMENT_LENGTH = DYN_get_number(ptr);
+					FLD.RDB$SEGMENT_LENGTH.NULL = FALSE;
+					break;
+
+				default:
+					--(*ptr);
+					DYN_execute(gbl, ptr, relation_name, RFR.RDB$FIELD_SOURCE,
+								NULL_PTR, NULL_PTR, NULL_PTR);
+				}
+
+			if (RFR.RDB$FIELD_POSITION.NULL == TRUE) {
+				fld_pos = -1;
+				DYN_UTIL_generate_field_position(tdbb, gbl, relation_name,
+												 &fld_pos);
+
+				if (fld_pos >= 0) {
+					RFR.RDB$FIELD_POSITION = ++fld_pos;
+					RFR.RDB$FIELD_POSITION.NULL = FALSE;
+				}
+			}
+
+		END_STORE;
+
+		if (!DYN_REQUEST(drq_s_sql_gfld))
+			DYN_REQUEST(drq_s_sql_gfld) = request;
+		request = old_request;
+		id = old_id;
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_sql_lfld))
+		DYN_REQUEST(drq_s_sql_lfld) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_shadow( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a shadow.
+ *
+ **************************************/
+	SLONG shadow_number, start;
+	UCHAR verb;
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+	BOOLEAN found = FALSE;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	shadow_number = DYN_get_number(ptr);
+
+/* If a shadow set identified by the
+   shadow number already exists return error.  */
+
+	request = (BLK) CMP_find_request(tdbb, drq_l_shadow, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		DYN_rundown_request(old_env, request, drq_l_shadow);
+		DYN_error_punt(TRUE, 164, NULL, NULL, NULL, NULL, NULL);
+		/* msg 164: "Shadow lookup failed" */
+	}
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FIRST 1 X IN RDB$FILES WITH X.RDB$SHADOW_NUMBER EQ shadow_number
+			found = TRUE;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_l_shadow))
+		DYN_REQUEST(drq_l_shadow) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	if (found)
+		DYN_error_punt(FALSE, 165, (TEXT *) shadow_number, NULL, NULL, NULL,
+					   NULL);
+	/* msg 165: "Shadow %ld already exists" */
+
+	start = 0;
+	while ((verb = *(*ptr)++) != gds__dyn_end)
+	{
+		switch (verb)
+		{
+		case gds__dyn_def_file:
+			DYN_define_file(gbl, ptr, shadow_number, &start, 157);
+			break;
+
+		default:
+			DYN_unsupported_verb();
+		}
+	}
+}
+
+
+void DYN_define_trigger(
+						GBL gbl,
+						UCHAR ** ptr,
+						TEXT * relation_name,
+						TEXT * trigger_name, BOOLEAN ignore_perm)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a trigger for a relation.
+ *
+ *
+ * if the ignore_perm flag is TRUE, then this trigger must be defined
+ * now (and fired at run time) without making SQL permissions checks.
+ * In particular, one should not need control permissions on the table
+ * to define this trigger. Currently used to define triggers for
+ * cascading referential interity.
+ * 
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	UCHAR verb, *blr;
+	TEXT t[32], *source;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	if (!GET_STRING(ptr, t))
+		DYN_UTIL_generate_trigger_name(tdbb, gbl, t);
+
+	if (trigger_name != NULL)
+		strcpy(trigger_name, t);
+
+	source = NULL;
+	blr = NULL;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_triggers, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$TRIGGERS 
+        X.RDB$TRIGGER_TYPE.NULL = TRUE;
+		X.RDB$TRIGGER_SEQUENCE = 0;
+		X.RDB$TRIGGER_SEQUENCE.NULL = FALSE;
+		X.RDB$TRIGGER_INACTIVE = 0;
+		X.RDB$TRIGGER_INACTIVE.NULL = FALSE;
+
+		/* currently, we make no difference between ignoring permissions in
+		   order to define this trigger and ignoring permissions checks when the
+		   trigger fires. The RDB$FLAGS is used to indicate permissions checks 
+		   when the trigger fires. Later, if we need to make a difference 
+		   between these, then the caller should pass the required value 
+		   of RDB$FLAGS as an extra argument to this func.  */
+
+		X.RDB$FLAGS = ignore_perm ? TRG_ignore_perm : 0;
+		X.RDB$FLAGS.NULL = FALSE;
+		if (relation_name) {
+			strcpy(X.RDB$RELATION_NAME, relation_name);
+			X.RDB$RELATION_NAME.NULL = FALSE;
+		}
+		else
+			X.RDB$RELATION_NAME.NULL = TRUE;
+		X.RDB$TRIGGER_BLR.NULL = TRUE;
+		X.RDB$TRIGGER_SOURCE.NULL = TRUE;
+		X.RDB$DESCRIPTION.NULL = TRUE;
+		strcpy(X.RDB$TRIGGER_NAME, t);
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+			switch (verb)
+			{
+			case gds__dyn_trg_type:
+				X.RDB$TRIGGER_TYPE = DYN_get_number(ptr);
+				X.RDB$TRIGGER_TYPE.NULL = FALSE;
+				break;
+
+			case gds__dyn_sql_object:
+				X.RDB$FLAGS |= TRG_sql;
+				break;
+
+			case gds__dyn_trg_sequence:
+				X.RDB$TRIGGER_SEQUENCE = DYN_get_number(ptr);
+				break;
+
+			case gds__dyn_trg_inactive:
+				X.RDB$TRIGGER_INACTIVE = DYN_get_number(ptr);
+				break;
+
+			case gds__dyn_rel_name:
+				GET_STRING(ptr, X.RDB$RELATION_NAME);
+				X.RDB$RELATION_NAME.NULL = FALSE;
+				break;
+
+			case gds__dyn_trg_blr:
+				blr = *ptr;
+				DYN_skip_attribute(ptr);
+				DYN_put_blr_blob(gbl, &blr, &X.RDB$TRIGGER_BLR);
+				X.RDB$TRIGGER_BLR.NULL = FALSE;
+				break;
+
+			case gds__dyn_trg_source:
+				source = (TEXT *) * ptr;
+				DYN_skip_attribute(ptr);
+				DYN_put_text_blob(gbl, &source, &X.RDB$TRIGGER_SOURCE);
+				X.RDB$TRIGGER_SOURCE.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_trg_source2:
+				source = (TEXT *) * ptr;
+				DYN_skip_attribute2(ptr);
+				DYN_put_text_blob2(gbl, &source, &X.RDB$TRIGGER_SOURCE);
+				X.RDB$TRIGGER_SOURCE.NULL = FALSE;
+				break;
+#endif
+
+			case gds__dyn_description:
+				DYN_put_text_blob(gbl, ptr, &X.RDB$DESCRIPTION);
+				X.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_description2:
+				DYN_put_text_blob2(gbl, ptr, &X.RDB$DESCRIPTION);
+				X.RDB$DESCRIPTION.NULL = FALSE;
+				break;
+#endif
+
+			default:
+				--(*ptr);
+				DYN_execute(gbl, ptr, X.RDB$RELATION_NAME, NULL_PTR,
+							t, NULL_PTR, NULL_PTR);
+			}
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env))
+		{
+			DYN_rundown_request(old_env, request, drq_s_triggers);
+			DYN_error_punt(TRUE, 31, NULL, NULL, NULL, NULL, NULL);
+			/* msg 31: "DEFINE TRIGGER failed" */
+		}
+
+/* the sed script dyn_def.sed adds the foll. lines of code to the
+   dyn_def.c file.
+   if (ignore_perm)
+       ((REQ)request)->req_flags |= req_ignore_perm;
+   after the request is compiled and before the request is sent.
+   It makes the current request (to define the trigger) go through
+   without checking any permissions lower in the engine */
+
+        MARKER_FOR_SED_SCRIPT
+	END_STORE;
+
+	if (ignore_perm)
+		((REQ) request)->req_flags &= ~req_ignore_perm;
+
+	if (!DYN_REQUEST(drq_s_triggers))
+		DYN_REQUEST(drq_s_triggers) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_trigger_msg( GBL gbl, UCHAR ** ptr, TEXT * trigger_name)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ t r i g g e r _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a trigger message.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	UCHAR verb;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_trg_msgs, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$TRIGGER_MESSAGES 
+        X.RDB$MESSAGE_NUMBER = DYN_get_number(ptr);
+		X.RDB$MESSAGE.NULL = TRUE;
+		if (trigger_name) {
+			strcpy(X.RDB$TRIGGER_NAME, trigger_name);
+			X.RDB$TRIGGER_NAME.NULL = FALSE;
+		}
+		else
+			X.RDB$TRIGGER_NAME.NULL = TRUE;
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+			switch (verb)
+			{
+			case gds__dyn_trg_name:
+				GET_STRING(ptr, X.RDB$TRIGGER_NAME);
+				X.RDB$TRIGGER_NAME.NULL = FALSE;
+				break;
+
+			case gds__dyn_trg_msg:
+				GET_STRING(ptr, X.RDB$MESSAGE);
+				X.RDB$MESSAGE.NULL = FALSE;
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_trg_msg2:
+				DYN_get_string2(ptr, X.RDB$MESSAGE, sizeof(X.RDB$MESSAGE));
+				X.RDB$MESSAGE.NULL = FALSE;
+				break;
+#endif
+
+			default:
+				DYN_unsupported_verb();
+			}
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env))
+		{
+			DYN_rundown_request(old_env, request, drq_s_trg_msgs);
+			DYN_error_punt(TRUE, 33, NULL, NULL, NULL, NULL, NULL);
+			/* msg 33: "DEFINE TRIGGER MESSAGE failed" */
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_trg_msgs))
+		DYN_REQUEST(drq_s_trg_msgs) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_define_view_relation( GBL gbl, UCHAR ** ptr, TEXT * view)
+{
+/**************************************
+ *
+ *	D Y N _ d e f i n e _ v i e w _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a RDB$VIEW_RELATION record.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	VOLATILE BLK request;
+	UCHAR verb;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_view_rels, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		VRL IN RDB$VIEW_RELATIONS 
+        strcpy(VRL.RDB$VIEW_NAME, view);
+		GET_STRING(ptr, VRL.RDB$RELATION_NAME);
+		VRL.RDB$CONTEXT_NAME.NULL = TRUE;
+		VRL.RDB$VIEW_CONTEXT.NULL = TRUE;
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+			switch (verb)
+			{
+			case gds__dyn_view_context:
+				VRL.RDB$VIEW_CONTEXT = DYN_get_number(ptr);
+				VRL.RDB$VIEW_CONTEXT.NULL = FALSE;
+				break;
+
+			case gds__dyn_view_context_name:
+				GET_STRING(ptr, VRL.RDB$CONTEXT_NAME);
+				VRL.RDB$CONTEXT_NAME.NULL = FALSE;
+				break;
+
+			default:
+				--(*ptr);
+				DYN_execute(gbl, ptr, VRL.RDB$RELATION_NAME, NULL_PTR,
+							NULL_PTR, NULL_PTR, NULL_PTR);
+			}
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env))
+		{
+			DYN_rundown_request(old_env, request, drq_s_view_rels);
+			DYN_error_punt(TRUE, 34, NULL, NULL, NULL, NULL, NULL);
+			/* msg 34: "STORE RDB$VIEW_RELATIONS failed" */
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_view_rels))
+		DYN_REQUEST(drq_s_view_rels) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+static void check_unique_name(
+							  TDBB tdbb,
+							  GBL gbl, TEXT * object_name, BOOLEAN proc_flag)
+{
+/**************************************
+ *
+ *	c h e c k _ u n i q u e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check if a procedure, view or relation by
+ *	name of object_name already exists.
+ *	If yes then return error.
+ *
+ **************************************/
+	DBB dbb;
+	VOLATILE BLK request;
+	BOOLEAN found;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		DYN_rundown_request(old_env, request, -1);
+		if (!proc_flag)
+			DYN_error_punt(TRUE, 24, NULL, NULL, NULL, NULL, NULL);
+		/* msg 24: "STORE RDB$RELATIONS failed" */
+		DYN_error_punt(TRUE, 134, NULL, NULL, NULL, NULL, NULL);
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_l_rel_name, DYN_REQUESTS);
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		EREL IN RDB$RELATIONS WITH EREL.RDB$RELATION_NAME EQ object_name
+        if (!DYN_REQUEST(drq_l_rel_name))
+            DYN_REQUEST(drq_l_rel_name) = request;
+
+        found = TRUE;
+	END_FOR;
+	if (!DYN_REQUEST(drq_l_rel_name))
+		DYN_REQUEST(drq_l_rel_name) = request;
+
+	if (found) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error_punt(FALSE, 132, object_name, NULL, NULL, NULL, NULL);
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_l_prc_name, DYN_REQUESTS);
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		EPRC IN RDB$PROCEDURES WITH EPRC.RDB$PROCEDURE_NAME EQ object_name
+        if (!DYN_REQUEST(drq_l_prc_name))
+            DYN_REQUEST(drq_l_prc_name) = request;
+
+		found = TRUE;
+	END_FOR;
+	if (!DYN_REQUEST(drq_l_prc_name))
+		DYN_REQUEST(drq_l_prc_name) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	if (found)
+		DYN_error_punt(FALSE, 135, object_name, NULL, NULL, NULL, NULL);
+}
+
+
+static BOOLEAN find_field_source(
+								 TDBB tdbb,
+								 GBL gbl,
+								 TEXT * view_name,
+								 USHORT context,
+								 TEXT * local_name, TEXT * field_name)
+{
+/**************************************
+ *
+ *	f i n d _ f i e l d _ s o u r c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the original source for a view field.
+ *
+ **************************************/
+	DBB dbb;
+	VOLATILE BLK request;
+	BOOLEAN found;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_l_fld_src2, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env))
+	{
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 80, NULL, NULL, NULL, NULL, NULL);
+		/* msg 80: "Specified domain or source field does not exist" */
+	}
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		VRL IN RDB$VIEW_RELATIONS CROSS
+			RFR IN RDB$RELATION_FIELDS OVER RDB$RELATION_NAME
+			WITH VRL.RDB$VIEW_NAME EQ view_name AND
+			VRL.RDB$VIEW_CONTEXT EQ context AND
+			RFR.RDB$FIELD_NAME EQ local_name 
+
+        if (!DYN_REQUEST(drq_l_fld_src2))
+            DYN_REQUEST(drq_l_fld_src2) = request;
+
+		found = TRUE;
+		DYN_terminate(RFR.RDB$FIELD_SOURCE, sizeof(RFR.RDB$FIELD_SOURCE));
+		strcpy(field_name, RFR.RDB$FIELD_SOURCE);
+	END_FOR;
+	if (!DYN_REQUEST(drq_l_fld_src2))
+		DYN_REQUEST(drq_l_fld_src2) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	return found;
+}
+
+
+static BOOLEAN get_who( TDBB tdbb, GBL gbl, SCHAR * name)
+{
+/**************************************
+ *
+ *	g e t _ w h o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get user name
+ *
+ **************************************/
+	VOLATILE BLK request;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	SET_TDBB(tdbb);
+
+	request = (BLK) CMP_find_request(tdbb, drq_l_user_name, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env))
+	{
+		DYN_rundown_request(old_env, request, drq_l_user_name);
+		return FAILURE;
+	}
+
+	if (!request)
+	{
+		request = (BLK) CMP_compile2(tdbb, who_blr, TRUE);
+	}
+	EXE_start(tdbb, request, gbl->gbl_transaction);
+	EXE_receive(tdbb, request, 0, 32, name);
+
+	DYN_rundown_request(old_env, request, drq_l_user_name);
+
+	return SUCCESS;
+}
+
+
+BOOLEAN is_it_user_name(GBL gbl, TEXT * role_name, TDBB tdbb)
+{
+/**************************************
+ *
+ *	i s _ i t _ u s e r _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *     if role_name is user name returns TRUE. Otherwise returns FALSE
+ *
+ **************************************/
+	DBB dbb;
+	VOLATILE BLK request;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+	BOOLEAN found = FALSE;
+	VOLATILE USHORT request_id;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;	/* save environment */
+	tdbb->tdbb_setjmp = (UCHAR *) env;	/* get new environment */
+	if (SETJMP(env))
+	{
+		if (request)
+			DYN_rundown_request(old_env, request, request_id);
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;	/* restore old env */
+		ERR_punt();
+	}
+
+/* If there is a user with privilege or a grantor on a relation we
+   can infer there is a user with this name */
+
+	request_id = drq_get_user_priv;
+	request = (BLK) CMP_find_request(tdbb, request_id, DYN_REQUESTS);
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		PRIV IN RDB$USER_PRIVILEGES WITH
+			(PRIV.RDB$USER EQ role_name AND
+			 PRIV.RDB$USER_TYPE = obj_user) OR
+			(PRIV.RDB$GRANTOR EQ role_name AND
+			 PRIV.RDB$OBJECT_TYPE = obj_relation)
+
+			found = TRUE;
+
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_get_user_priv))
+		DYN_REQUEST(drq_get_user_priv) = request;
+
+	if (found) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;	/* restore environment */
+		return found;
+	}
+
+/* We can infer that 'role_name' is a user name if it owns any relations
+   Note we can only get here if a user creates a table and revokes all
+   his privileges on the table */
+
+	request_id = drq_get_rel_owner;
+	request = (BLK) CMP_find_request(tdbb, request_id, DYN_REQUESTS);
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		REL IN RDB$RELATIONS WITH
+			REL.RDB$OWNER_NAME EQ role_name 
+
+        found = TRUE;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_get_rel_owner))
+		DYN_REQUEST(drq_get_rel_owner) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;	/* restore environment */
+	return found;
+}
diff --git a/src/jrd/dyn_def.sed b/src/jrd/dyn_def.sed
new file mode 100644
index 0000000000..b1f216b65b
--- /dev/null
+++ b/src/jrd/dyn_def.sed
@@ -0,0 +1,14 @@
+/MARKER_FOR_SED_SCRIPT/{
+N
+h
+N
+h
+N
+h
+N
+h
+s/MARKER_FOR_SED_SCRIPT.*/& \
+if (ignore_perm) \
+    ((REQ)request)->req_flags |= req_ignore_perm; /
+}
+/MARKER_FOR_SED_SCRIPT/D
diff --git a/src/jrd/dyn_del.e b/src/jrd/dyn_del.e
new file mode 100644
index 0000000000..2a2d376131
--- /dev/null
+++ b/src/jrd/dyn_del.e
@@ -0,0 +1,1857 @@
+/*
+ *	PROGRAM:	JRD Data Definition Utility
+ *	MODULE:		dyn_delete.e
+ *	DESCRIPTION:	Dynamic data definition - DYN_delete_<x>
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+#include <string.h>
+
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../jrd/jrd.h"
+#include "../jrd/tra.h"
+#include "../jrd/scl.h"
+#include "../jrd/drq.h"
+#include "../jrd/flags.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/lls.h"
+#include "../jrd/all.h"
+#include "../jrd/met.h"
+#include "../jrd/btr.h"
+#include "../jrd/intl.h"
+#include "../jrd/dyn.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dyn_proto.h"
+#include "../jrd/dyn_proto.h"
+#include "../jrd/dyn_dl_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/inf_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/vio_proto.h"
+
+#ifdef SUPERSERVER
+#define V4_THREADING
+#endif
+#include "../jrd/nlm_thd.h"
+
+DATABASE DB = STATIC "yachts.gdb";
+
+static BOOLEAN delete_constraint_records(GBL, TEXT *, TEXT *);
+static BOOLEAN delete_dimension_records(GBL, TEXT *);
+static void delete_f_key_constraint(TDBB, GBL, TEXT *, TEXT *,
+									TEXT *, TEXT *);
+static void delete_gfield_for_lfield(GBL, TEXT *);
+static BOOLEAN delete_index_segment_records(GBL, TEXT *);
+static BOOLEAN delete_security_class2(GBL, TEXT *);
+
+
+void DYN_delete_constraint( GBL gbl, UCHAR ** ptr, TEXT * relation)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ c o n s t r a i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute ddl to DROP an Integrity Constraint
+ *
+ **************************************/
+	TEXT rel_name[32], constraint[32];
+
+/* GET name of the constraint to be deleted  */
+
+	GET_STRING(ptr, constraint);
+
+	if (relation)
+		strcpy(rel_name, relation);
+	else if (*(*ptr)++ != gds__dyn_rel_name) {
+		DYN_error_punt(FALSE, 128, NULL, NULL, NULL, NULL, NULL);
+		/* msg 128: "No relation specified in delete_constraint" */
+	}
+	else
+		GET_STRING(ptr, rel_name);
+
+	if (!delete_constraint_records(gbl, constraint, rel_name))
+		DYN_error_punt(FALSE, 130, constraint, NULL, NULL, NULL, NULL);
+	/* msg 130: "CONSTRAINT %s does not exist." */
+}
+
+
+void DYN_delete_dimensions(
+						   GBL gbl,
+						   UCHAR ** ptr,
+						   TEXT * relation_name, TEXT * field_name)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ d i m e n s i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete dimensions associated with
+ *	a global field.  Used when modifying
+ *	the datatype and from places where a
+ *	field is deleted directly in the system
+ *	relations.  The DYN version of delete
+ *	global field deletes the dimensions for
+ *	you.
+ *
+ **************************************/
+	TEXT f[32];
+
+	GET_STRING(ptr, f);
+
+	delete_dimension_records(gbl, f);
+
+	while (*(*ptr)++ != gds__dyn_end) {
+		--(*ptr);
+		DYN_execute(gbl, ptr, NULL_PTR, f, NULL_PTR, NULL_PTR, NULL_PTR);
+	}
+}
+
+
+void DYN_delete_exception( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ e x c e p t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes an exception.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	USHORT found;
+	TEXT t[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	GET_STRING(ptr, t);
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_xcp, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 143, NULL, NULL, NULL, NULL, NULL);
+		/* msg 143: "ERASE EXCEPTION failed" */
+	}
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$EXCEPTIONS
+        WITH X.RDB$EXCEPTION_NAME EQ t
+        if (!DYN_REQUEST(drq_e_xcp)) 
+            DYN_REQUEST(drq_e_xcp) = request;
+
+		found = TRUE;
+		ERASE X;
+	END_FOR;
+	if (!DYN_REQUEST(drq_e_xcp))
+		DYN_REQUEST(drq_e_xcp) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (!found)
+		DYN_error_punt(FALSE, 144, NULL, NULL, NULL, NULL, NULL);
+	/* msg 144: "Exception not found" */
+}
+
+
+void DYN_delete_filter( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes a blob filter.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	USHORT found;
+	TEXT f[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_filters, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 36, NULL, NULL, NULL, NULL, NULL);
+		/* msg 36: "ERASE BLOB FILTER failed" */
+	}
+
+	GET_STRING(ptr, f);
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$FILTERS WITH X.RDB$FUNCTION_NAME = f
+        if (!DYN_REQUEST(drq_e_filters))
+            DYN_REQUEST(drq_e_filters) = request;
+
+		ERASE X;
+		found = TRUE;
+	END_FOR;
+	if (!DYN_REQUEST(drq_e_filters))
+		DYN_REQUEST(drq_e_filters) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (!found)
+		DYN_error_punt(FALSE, 37, NULL, NULL, NULL, NULL, NULL);
+	/* msg 37: "Blob Filter not found" */
+
+	if (*(*ptr)++ != gds__dyn_end)
+		DYN_unsupported_verb();
+}
+
+
+void DYN_delete_function( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes a user defined function.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	VOLATILE USHORT id, found;
+	TEXT f[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_func_args, DYN_REQUESTS);
+	id = drq_e_func_args;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		if (id == drq_e_func_args)
+			DYN_error_punt(TRUE, 39, NULL, NULL, NULL, NULL, NULL);
+		/* msg 39: "ERASE RDB$FUNCTION_ARGUMENTS failed" */
+		else
+			DYN_error_punt(TRUE, 40, NULL, NULL, NULL, NULL, NULL);
+		/* msg 40: "ERASE RDB$FUNCTIONS failed" */
+	}
+
+	GET_STRING(ptr, f);
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FA IN RDB$FUNCTION_ARGUMENTS WITH FA.RDB$FUNCTION_NAME EQ f
+        if (!DYN_REQUEST(drq_e_func_args))
+            DYN_REQUEST(drq_e_func_args) = request;
+
+		ERASE FA;
+	END_FOR;
+	if (!DYN_REQUEST(drq_e_func_args))
+		DYN_REQUEST(drq_e_func_args) = request;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_funcs, DYN_REQUESTS);
+	id = drq_e_funcs;
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$FUNCTIONS WITH X.RDB$FUNCTION_NAME EQ f
+        if (!DYN_REQUEST(drq_e_funcs)) 
+            DYN_REQUEST(drq_e_funcs) = request;
+
+		ERASE X;
+		found = TRUE;
+	END_FOR;
+	if (!DYN_REQUEST(drq_e_funcs))
+		DYN_REQUEST(drq_e_funcs) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (!found)
+		DYN_error_punt(FALSE, 41, NULL, NULL, NULL, NULL, NULL);
+	/* msg 41: "Function not found" */
+
+	if (*(*ptr)++ != gds__dyn_end)
+		DYN_unsupported_verb();
+}
+
+
+void DYN_delete_global_field( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes a global field.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	VOLATILE USHORT id, found;
+	TEXT f[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_l_fld_src, DYN_REQUESTS);
+	id = drq_l_fld_src;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		if (id == drq_l_fld_src)
+			DYN_error_punt(TRUE, 44, NULL, NULL, NULL, NULL, NULL);
+		/* msg 44: "ERASE RDB$FIELDS failed" */
+		else
+			DYN_error_punt(TRUE, 45, NULL, NULL, NULL, NULL, NULL);
+		/* msg 45: "ERASE RDB$FIELDS failed" */
+	}
+
+	GET_STRING(ptr, f);
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		Y IN RDB$RELATION_FIELDS WITH Y.RDB$FIELD_SOURCE EQ f
+        if (!DYN_REQUEST(drq_l_fld_src))
+            DYN_REQUEST(drq_l_fld_src) = request;
+
+		DYN_terminate(Y.RDB$FIELD_SOURCE, sizeof(Y.RDB$FIELD_SOURCE));
+		DYN_terminate(Y.RDB$RELATION_NAME, sizeof(Y.RDB$RELATION_NAME));
+		DYN_terminate(Y.RDB$FIELD_NAME, sizeof(Y.RDB$FIELD_NAME));
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(FALSE, 43, Y.RDB$FIELD_SOURCE, Y.RDB$RELATION_NAME,
+					   Y.RDB$FIELD_NAME, NULL, NULL);
+		/* msg 43: "field %s is used in relation %s (local name %s) and can not be dropped" */
+	END_FOR;
+	if (!DYN_REQUEST(drq_l_fld_src))
+		DYN_REQUEST(drq_l_fld_src) = request;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_gfields, DYN_REQUESTS);
+	id = drq_e_gfields;
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$FIELDS WITH X.RDB$FIELD_NAME EQ f
+        if (!DYN_REQUEST(drq_e_gfields))
+            DYN_REQUEST(drq_e_gfields) = request;
+
+		delete_dimension_records(gbl, f);
+		ERASE X;
+		found = TRUE;
+	END_FOR
+	if (!DYN_REQUEST(drq_e_gfields))
+		DYN_REQUEST(drq_e_gfields) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (!found) {
+		DYN_error_punt(FALSE, 46, NULL, NULL, NULL, NULL, NULL);
+		/* msg 46: "Field not found" */
+	}
+
+	while (*(*ptr)++ != gds__dyn_end) {
+		--(*ptr);
+		DYN_execute(gbl, ptr, NULL_PTR, f, NULL_PTR, NULL_PTR, NULL_PTR);
+	}
+}
+
+
+void DYN_delete_index( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes an index.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	USHORT found;
+	TEXT i[32], r[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_indices, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 47, NULL, NULL, NULL, NULL, NULL);
+		/* msg 47: "ERASE RDB$INDICES failed" */
+	}
+
+	GET_STRING(ptr, i);
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		IDX IN RDB$INDICES WITH IDX.RDB$INDEX_NAME EQ i
+        if (!DYN_REQUEST(drq_e_indices))
+            DYN_REQUEST(drq_e_indices) = request;
+
+		strcpy(r, IDX.RDB$RELATION_NAME);
+		found = TRUE;
+		ERASE IDX;
+	END_FOR;
+	if (!DYN_REQUEST(drq_e_indices))
+		DYN_REQUEST(drq_e_indices) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (!found)
+		DYN_error_punt(FALSE, 48, NULL, NULL, NULL, NULL, NULL);
+	/* msg 48: "Index not found" */
+
+	if (!delete_index_segment_records(gbl, i))
+		DYN_error_punt(FALSE, 50, NULL, NULL, NULL, NULL, NULL);
+	/* msg 50: "No segments found for index" */
+
+	while (*(*ptr)++ != gds__dyn_end) {
+		--(*ptr);
+		DYN_execute(gbl, ptr, r, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR);
+	}
+}
+
+
+void DYN_delete_local_field(
+							GBL gbl,
+							UCHAR ** ptr,
+							TEXT * relation_name, TEXT * field_name)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ l o c a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl 'delete local field'
+ *	statement.
+ *
+ *  The rules for dropping a regular column:
+ *  
+ *    1. the column is not referenced in any views.
+ *    2. the column is not part of any user defined indexes.
+ *    3. the column is not used in any SQL statements inside of store
+ *         procedures or triggers
+ *    4. the column is not part of any check-constraints
+ *  
+ *  The rules for dropping a column that was created as primary key:
+ *
+ *    1. the column is not defined as any foreign keys
+ *    2. the column is not defined as part of compound primary keys
+ *
+ *  The rules for dropping a column that was created as foreign key:
+ *
+ *    1. the column is not defined as a compound foreign key. A
+ *         compound foreign key is a foreign key consisted of more
+ *         than one columns.
+ *
+ *  The RI enforcement for dropping primary key column is done by system
+ *  triggers and the RI enforcement for dropping foreign key column is
+ *  done by code and system triggers. See the functional description of
+ *  delete_f_key_constraint function for detail.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request, old_request;
+	VOLATILE USHORT id, found;
+	TEXT tbl_nm[32], col_nm[32], i[32], constraint[32], index_name[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	GET_STRING(ptr, col_nm);
+
+	if (relation_name)
+		strcpy(tbl_nm, relation_name);
+	else if (*(*ptr)++ != gds__dyn_rel_name) {
+		DYN_error_punt(FALSE, 51, NULL, NULL, NULL, NULL, NULL);
+		/* msg 51: "No relation specified in ERASE RFR" */
+	}
+	else
+		GET_STRING(ptr, tbl_nm);
+
+	request = (BLK) CMP_find_request(tdbb, drq_l_dep_flds, DYN_REQUESTS);
+	id = drq_l_dep_flds;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		if (id == drq_l_dep_flds)
+			DYN_error_punt(TRUE, 53, NULL, NULL, NULL, NULL, NULL);
+		/* msg 53: "ERASE RDB$RELATION_FIELDS failed" */
+		else
+			DYN_error_punt(TRUE, 54, NULL, NULL, NULL, NULL, NULL);
+		/* msg 54: "ERASE RDB$RELATION_FIELDS failed" */
+	}
+
+/*
+**  ================================================================
+**  ==
+**  ==  make sure that column is not referenced in any views
+**  ==
+**  ================================================================
+*/
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$RELATION_FIELDS CROSS Y IN RDB$RELATION_FIELDS CROSS
+			Z IN RDB$VIEW_RELATIONS WITH
+			X.RDB$RELATION_NAME EQ tbl_nm AND
+			X.RDB$FIELD_NAME EQ col_nm AND
+			X.RDB$FIELD_NAME EQ Y.RDB$BASE_FIELD AND
+			X.RDB$FIELD_SOURCE EQ Y.RDB$FIELD_SOURCE AND
+			Y.RDB$RELATION_NAME EQ Z.RDB$VIEW_NAME AND
+			X.RDB$RELATION_NAME EQ Z.RDB$RELATION_NAME AND
+			Y.RDB$VIEW_CONTEXT EQ Z.RDB$VIEW_CONTEXT
+        if (!DYN_REQUEST(drq_l_dep_flds))
+            DYN_REQUEST(drq_l_dep_flds) = request;
+
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(FALSE, 52, col_nm, tbl_nm, Y.RDB$RELATION_NAME, NULL,
+					   NULL);
+		/* msg 52: "field %s from relation %s is referenced in view %s" */
+	END_FOR;
+	if (!DYN_REQUEST(drq_l_dep_flds))
+		DYN_REQUEST(drq_l_dep_flds) = request;
+
+/*
+**  ===============================================================
+**  ==
+**  ==  If the column to be dropped is being used as a foreign key
+**  ==  and the coulmn was not part of any compound foreign key,
+**  ==  then we can drop the column. But we have to drop the foreign key
+**  ==  constraint first.
+**  ==
+**  ===============================================================
+*/
+
+	request = (BLK) CMP_find_request(tdbb, drq_g_rel_constr_nm, DYN_REQUESTS);
+	id = drq_g_rel_constr_nm;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		IDX IN RDB$INDICES CROSS
+			IDX_SEG IN RDB$INDEX_SEGMENTS CROSS
+			REL_CONST IN RDB$RELATION_CONSTRAINTS
+			WITH IDX.RDB$RELATION_NAME EQ tbl_nm
+			AND REL_CONST.RDB$RELATION_NAME EQ tbl_nm
+			AND IDX_SEG.RDB$FIELD_NAME EQ col_nm
+			AND IDX.RDB$INDEX_NAME EQ IDX_SEG.RDB$INDEX_NAME
+			AND IDX.RDB$INDEX_NAME EQ REL_CONST.RDB$INDEX_NAME
+			AND REL_CONST.RDB$CONSTRAINT_TYPE EQ FOREIGN_KEY
+        if (!DYN_REQUEST(drq_g_rel_constr_nm))
+            DYN_REQUEST(drq_g_rel_constr_nm) = request;
+
+		if (IDX.RDB$SEGMENT_COUNT == 1) {
+			DYN_terminate(REL_CONST.RDB$CONSTRAINT_NAME,
+						  sizeof(REL_CONST.RDB$CONSTRAINT_NAME));
+			strcpy(constraint, REL_CONST.RDB$CONSTRAINT_NAME);
+
+			DYN_terminate(IDX.RDB$INDEX_NAME, sizeof(IDX.RDB$INDEX_NAME));
+			strcpy(index_name, IDX.RDB$INDEX_NAME);
+
+			delete_f_key_constraint(tdbb, gbl, tbl_nm, col_nm,
+									constraint, index_name);
+		}
+		else {
+			DYN_rundown_request(old_env, request, -1);
+			DYN_error_punt(FALSE, 187, col_nm, tbl_nm,
+						   IDX.RDB$INDEX_NAME, NULL, NULL);
+			/* msg 187: "field %s from relation %s is referenced in index %s" */
+		}
+
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_g_rel_constr_nm))
+		DYN_REQUEST(drq_g_rel_constr_nm) = request;
+
+/*
+**  ================================================================
+**  ==
+**  ==  make sure that column is not referenced in any indexes
+**  ==
+**  ==  NOTE: You still could see the system generated indices even though
+**  ==        they were already been deleted when dropping column that was 
+**  ==        used as foreign key before "commit".
+**  ==
+**  ================================================================
+*/
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_l_idx, DYN_REQUESTS);
+	id = drq_e_l_idx;
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		IDX IN RDB$INDICES
+			WITH IDX.RDB$RELATION_NAME EQ tbl_nm
+        if (!DYN_REQUEST(drq_e_l_idx)) 
+            DYN_REQUEST(drq_e_l_idx) = request;
+
+		found = FALSE;
+		if (strncmp("RDB$", IDX.RDB$INDEX_NAME, 4) != 0) {
+			old_request = request;
+
+			id = drq_l_idx_seg;
+			request =
+				(BLK) CMP_find_request(tdbb, drq_l_idx_seg, DYN_REQUESTS);
+			FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				FIRST 1 IDX_SEG IN RDB$INDEX_SEGMENTS
+					WITH IDX_SEG.RDB$INDEX_NAME EQ IDX.RDB$INDEX_NAME AND
+					IDX_SEG.RDB$FIELD_NAME = col_nm
+                if (!DYN_REQUEST(drq_l_idx_seg))
+                    DYN_REQUEST(drq_l_idx_seg) = request;
+				found = TRUE;
+			END_FOR;
+			if (!DYN_REQUEST(drq_l_idx_seg))
+				DYN_REQUEST(drq_l_idx_seg) = request;
+			request = old_request;
+			id = drq_e_l_idx;
+		}
+		if (found) {
+			DYN_rundown_request(old_env, request, -1);
+			DYN_error_punt(FALSE, 187, col_nm, tbl_nm, IDX.RDB$INDEX_NAME,
+						   NULL, NULL);
+			/* msg 187: "field %s from relation %s is referenced in index %s" */
+		}
+	END_FOR;
+	if (!DYN_REQUEST(drq_e_l_idx))
+		DYN_REQUEST(drq_e_l_idx) = request;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_lfield, DYN_REQUESTS);
+	id = drq_e_lfield;
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		RFR IN RDB$RELATION_FIELDS
+			WITH RFR.RDB$FIELD_NAME EQ col_nm
+			AND RFR.RDB$RELATION_NAME EQ tbl_nm
+        if (!DYN_REQUEST(drq_e_lfield))
+            DYN_REQUEST(drq_e_lfield) = request;
+
+		ERASE RFR;
+		found = TRUE;
+		delete_gfield_for_lfield(gbl, RFR.RDB$FIELD_SOURCE);
+		while (*(*ptr)++ != gds__dyn_end) {
+			--(*ptr);
+			DYN_execute(gbl, ptr, RFR.RDB$RELATION_NAME,
+						RFR.RDB$FIELD_SOURCE, NULL_PTR, NULL_PTR, NULL_PTR);
+		}
+	END_FOR;
+	if (!DYN_REQUEST(drq_e_lfield))
+		DYN_REQUEST(drq_e_lfield) = request;
+
+	if (!found) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error_punt(FALSE, 55, NULL, NULL, NULL, NULL, NULL);
+	}
+	/* msg 55: "Field not found for relation" */
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+}
+
+
+void DYN_delete_parameter( GBL gbl, UCHAR ** ptr, TEXT * proc_name)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes a stored procedure parameter.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK old_request, request;
+	VOLATILE USHORT old_id, id, found;
+	TEXT name[32];
+	JMP_BUF env, *old_env;
+
+	GET_STRING(ptr, name);
+	if (**ptr == gds__dyn_prc_name)
+		DYN_get_string(++ptr, proc_name, PROC_NAME_SIZE, TRUE);
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_prm, DYN_REQUESTS);
+	id = drq_e_prms;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		if (id == drq_e_prms) {
+			DYN_error_punt(TRUE, 138, NULL, NULL, NULL, NULL, NULL);
+			/* msg 138: "ERASE RDB$PROCEDURE_PARAMETERS failed" */
+		}
+		else {
+			DYN_error_punt(TRUE, 35, NULL, NULL, NULL, NULL, NULL);
+			/* msg 35: "ERASE RDB$FIELDS failed" */
+		}
+	}
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		PP IN RDB$PROCEDURE_PARAMETERS WITH PP.RDB$PROCEDURE_NAME EQ proc_name
+			AND PP.RDB$PARAMETER_NAME EQ name 
+        if (!DYN_REQUEST(drq_e_prm))
+            DYN_REQUEST(drq_e_prm) = request;
+		found = TRUE;
+
+		/* get rid of parameters in rdb$fields */
+
+		if (!PP.RDB$FIELD_SOURCE.NULL) {
+			old_request = request;
+			old_id = id;
+			request =
+				(BLK) CMP_find_request(tdbb, drq_d_gfields, DYN_REQUESTS);
+			id = drq_d_gfields;
+
+			FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				FLD IN RDB$FIELDS
+					WITH FLD.RDB$FIELD_NAME EQ PP.RDB$FIELD_SOURCE
+                if (!DYN_REQUEST(drq_d_gfields))
+                    DYN_REQUEST(drq_d_gfields) = request;
+
+				ERASE FLD;
+			END_FOR;
+
+			if (!DYN_REQUEST(drq_d_gfields))
+				DYN_REQUEST(drq_d_gfields) = request;
+
+			request = old_request;
+			id = old_id;
+		}
+		ERASE PP;
+
+	END_FOR;
+	if (!DYN_REQUEST(drq_e_prm))
+		DYN_REQUEST(drq_e_prm) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	if (!found)
+		DYN_error_punt(FALSE, 146, name, proc_name, NULL, NULL, NULL);
+	/* msg 146: "Parameter %s in procedure %s not found" */
+
+	if (*(*ptr)++ != gds__dyn_end)
+		DYN_unsupported_verb();
+}
+
+
+void DYN_delete_procedure( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes a stored procedure.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK old_request, request;
+	VOLATILE USHORT old_id, id, found;
+	TEXT name[32];
+	JMP_BUF env, *old_env;
+
+	GET_STRING(ptr, name);
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	tdbb->tdbb_flags |= TDBB_prc_being_dropped;
+	if (MET_lookup_procedure(tdbb, name) == 0)
+	{
+		tdbb->tdbb_flags &= ~TDBB_prc_being_dropped;
+		DYN_error_punt(FALSE, 140, name, NULL, NULL, NULL, NULL);
+		/* msg 140: "Procedure %s not found" */
+	}
+
+	tdbb->tdbb_flags &= ~TDBB_prc_being_dropped;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_prms, DYN_REQUESTS);
+	id = drq_e_prms;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env))
+	{
+		DYN_rundown_request(old_env, request, -1);
+		if (id == drq_e_prms)
+			DYN_error_punt(TRUE, 138, NULL, NULL, NULL, NULL, NULL);
+		/* msg 138: "ERASE RDB$PROCEDURE_PARAMETERS failed" */
+		else if (id == drq_e_prcs)
+			DYN_error_punt(TRUE, 139, NULL, NULL, NULL, NULL, NULL);
+		/* msg 139: "ERASE RDB$PROCEDURES failed" */
+		else if (id == drq_d_gfields)
+			DYN_error_punt(TRUE, 35, NULL, NULL, NULL, NULL, NULL);
+		/* msg 35: "ERASE RDB$FIELDS failed" */
+		else
+			DYN_error_punt(TRUE, 62, NULL, NULL, NULL, NULL, NULL);
+		/* msg 62: "ERASE RDB$USER_PRIVILEGES failed" */
+	}
+
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		PP IN RDB$PROCEDURE_PARAMETERS WITH PP.RDB$PROCEDURE_NAME EQ name
+
+        if (!DYN_REQUEST(drq_e_prms))
+            DYN_REQUEST(drq_e_prms) = request;
+
+		/* get rid of parameters in rdb$fields */
+
+		if (!PP.RDB$FIELD_SOURCE.NULL) {
+			old_request = request;
+			old_id = id;
+			request =
+				(BLK) CMP_find_request(tdbb, drq_d_gfields, DYN_REQUESTS);
+			id = drq_d_gfields;
+
+			FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+				FLD IN RDB$FIELDS
+					WITH FLD.RDB$FIELD_NAME EQ PP.RDB$FIELD_SOURCE
+
+                if (!DYN_REQUEST(drq_d_gfields))
+                    DYN_REQUEST(drq_d_gfields) = request;
+
+				ERASE FLD;
+			END_FOR;
+
+			if (!DYN_REQUEST(drq_d_gfields))
+				DYN_REQUEST(drq_d_gfields) = request;
+
+			request = old_request;
+			id = old_id;
+		}
+
+		ERASE PP;
+	END_FOR;
+	if (!DYN_REQUEST(drq_e_prms))
+		DYN_REQUEST(drq_e_prms) = request;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_prcs, DYN_REQUESTS);
+	id = drq_e_prcs;
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		P IN RDB$PROCEDURES WITH P.RDB$PROCEDURE_NAME EQ name
+
+        if (!DYN_REQUEST(drq_e_prcs)) 
+            DYN_REQUEST(drq_e_prcs) = request;
+
+		if (!P.RDB$SECURITY_CLASS.NULL)
+			delete_security_class2(gbl, P.RDB$SECURITY_CLASS);
+
+		ERASE P;
+		found = TRUE;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_prcs))
+		DYN_REQUEST(drq_e_prcs) = request;
+
+	if (!found) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error_punt(FALSE, 140, name, NULL, NULL, NULL, NULL);
+		/* msg 140: "Procedure %s not found" */
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_prc_prvs, DYN_REQUESTS);
+	id = drq_e_prc_prvs;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		PRIV IN RDB$USER_PRIVILEGES WITH PRIV.RDB$RELATION_NAME EQ name
+			AND PRIV.RDB$OBJECT_TYPE = obj_procedure
+
+        if (!DYN_REQUEST(drq_e_prc_prvs))
+            DYN_REQUEST(drq_e_prc_prvs) = request;
+
+		ERASE PRIV;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_prc_prvs))
+		DYN_REQUEST(drq_e_prc_prvs) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (*(*ptr)++ != gds__dyn_end)
+		DYN_unsupported_verb();
+}
+
+
+void DYN_delete_relation( GBL gbl, UCHAR ** ptr, TEXT * relation)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes a relation with all its indices, triggers
+ *	and fields.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	VOLATILE USHORT id, found;
+	TEXT relation_name[32], security_class[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	if (relation)
+		strcpy(relation_name, relation);
+	else
+		GET_STRING(ptr, relation_name);
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_rel_con2, DYN_REQUESTS);
+	id = drq_e_rel_con2;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		if (id == drq_e_rel_con2)
+			DYN_error_punt(TRUE, 129, NULL, NULL, NULL, NULL, NULL);
+		/* msg 129: "ERASE RDB$RELATION_CONSTRAINTS failed" */
+		else if (id == drq_e_rel_idxs)
+			DYN_error_punt(TRUE, 57, NULL, NULL, NULL, NULL, NULL);
+		/* msg 57: "ERASE RDB$INDICES failed" */
+		else if (id == drq_e_trg_msgs2)
+			DYN_error_punt(TRUE, 65, NULL, NULL, NULL, NULL, NULL);
+		/* msg 65: "ERASE RDB$TRIGGER_MESSAGES failed" */
+		else if (id == drq_e_trigger2)
+			DYN_error_punt(TRUE, 66, NULL, NULL, NULL, NULL, NULL);
+		/* msg 66: "ERASE RDB$TRIGGERS failed" */
+		else if (id == drq_e_rel_flds)
+			DYN_error_punt(TRUE, 58, NULL, NULL, NULL, NULL, NULL);
+		/* msg 58: "ERASE RDB$RELATION_FIELDS failed" */
+		else if (id == drq_e_view_rels)
+			DYN_error_punt(TRUE, 59, NULL, NULL, NULL, NULL, NULL);
+		/* msg 59: "ERASE RDB$VIEW_RELATIONS failed" */
+		else if (id == drq_e_relation)
+			DYN_error_punt(TRUE, 60, NULL, NULL, NULL, NULL, NULL);
+		/* msg 60: "ERASE RDB$RELATIONS failed" */
+		else if (id == drq_e_rel_con2)
+			DYN_error_punt(TRUE, 129, NULL, NULL, NULL, NULL, NULL);
+		/* msg 129: "ERASE RDB$RELATION_CONSTRAINTS failed" */
+		else if (id == drq_e_sec_class)
+			DYN_error_punt(TRUE, 74, NULL, NULL, NULL, NULL, NULL);
+		/* msg 74: "ERASE RDB$SECURITY_CLASSES failed" */
+		else
+			DYN_error_punt(TRUE, 62, NULL, NULL, NULL, NULL, NULL);
+		/* msg 62: "ERASE RDB$USER_PRIVILEGES failed" */
+	}
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		CRT IN RDB$RELATION_CONSTRAINTS
+			WITH CRT.RDB$RELATION_NAME EQ relation_name AND
+			(CRT.RDB$CONSTRAINT_TYPE EQ PRIMARY_KEY OR
+			 CRT.RDB$CONSTRAINT_TYPE EQ UNIQUE_CNSTRT OR
+			 CRT.RDB$CONSTRAINT_TYPE EQ FOREIGN_KEY)
+		SORTED BY ASCENDING CRT.RDB$CONSTRAINT_TYPE
+
+        if (!DYN_REQUEST(drq_e_rel_con2))
+            DYN_REQUEST(drq_e_rel_con2) = request;
+
+		ERASE CRT;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_rel_con2))
+		DYN_REQUEST(drq_e_rel_con2) = request;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_rel_idxs, DYN_REQUESTS);
+	id = drq_e_rel_idxs;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		IDX IN RDB$INDICES WITH IDX.RDB$RELATION_NAME EQ relation_name
+
+        if (!DYN_REQUEST(drq_e_rel_idxs))
+            DYN_REQUEST(drq_e_rel_idxs) = request;
+
+		delete_index_segment_records(gbl, IDX.RDB$INDEX_NAME);
+		ERASE IDX;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_rel_idxs))
+		DYN_REQUEST(drq_e_rel_idxs) = request;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_trg_msgs2, DYN_REQUESTS);
+	id = drq_e_trg_msgs2;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		TM IN RDB$TRIGGER_MESSAGES CROSS
+			T IN RDB$TRIGGERS WITH T.RDB$RELATION_NAME EQ relation_name AND
+			TM.RDB$TRIGGER_NAME EQ T.RDB$TRIGGER_NAME
+
+        if (!DYN_REQUEST(drq_e_trg_msgs2))
+            DYN_REQUEST(drq_e_trg_msgs2) = request;
+
+		ERASE TM;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_trg_msgs2))
+		DYN_REQUEST(drq_e_trg_msgs2) = request;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_rel_flds, DYN_REQUESTS);
+	id = drq_e_rel_flds;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		RFR IN RDB$RELATION_FIELDS WITH RFR.RDB$RELATION_NAME EQ relation_name
+
+        if (!DYN_REQUEST(drq_e_rel_flds))
+			  DYN_REQUEST(drq_e_rel_flds) = request;
+
+		if (!RFR.RDB$SECURITY_CLASS.NULL
+			&& !strncmp(RFR.RDB$SECURITY_CLASS, "SQL$", 4))
+			delete_security_class2(gbl, RFR.RDB$SECURITY_CLASS);
+
+		ERASE RFR;
+
+		delete_gfield_for_lfield(gbl, RFR.RDB$FIELD_SOURCE);
+
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_rel_flds))
+		DYN_REQUEST(drq_e_rel_flds) = request;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_view_rels, DYN_REQUESTS);
+	id = drq_e_view_rels;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		VR IN RDB$VIEW_RELATIONS WITH VR.RDB$VIEW_NAME EQ relation_name
+        if (!DYN_REQUEST(drq_e_view_rels))
+            DYN_REQUEST(drq_e_view_rels) = request;
+
+		ERASE VR;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_view_rels))
+		DYN_REQUEST(drq_e_view_rels) = request;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_relation, DYN_REQUESTS);
+	id = drq_e_relation;
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		R IN RDB$RELATIONS WITH R.RDB$RELATION_NAME EQ relation_name
+        if (!DYN_REQUEST(drq_e_relation))
+            DYN_REQUEST(drq_e_relation) = request;
+
+		if (!R.RDB$SECURITY_CLASS.NULL
+			&& !strncmp(R.RDB$SECURITY_CLASS, "SQL$", 4))
+			delete_security_class2(gbl, R.RDB$SECURITY_CLASS);
+
+		ERASE R;
+		found = TRUE;
+
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_relation))
+		DYN_REQUEST(drq_e_relation) = request;
+
+	if (!found) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error_punt(FALSE, 61, NULL, NULL, NULL, NULL, NULL);
+		/* msg 61: "Relation not found" */
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_rel_con3, DYN_REQUESTS);
+	id = drq_e_rel_con3;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		CRT IN RDB$RELATION_CONSTRAINTS WITH
+			CRT.RDB$RELATION_NAME EQ relation_name AND
+			(CRT.RDB$CONSTRAINT_TYPE EQ CHECK_CNSTRT OR
+			 CRT.RDB$CONSTRAINT_TYPE EQ NOT_NULL_CNSTRT)
+
+		if (!DYN_REQUEST(drq_e_rel_con3))
+            DYN_REQUEST(drq_e_rel_con3) = request;
+
+		ERASE CRT;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_rel_con3))
+		DYN_REQUEST(drq_e_rel_con3) = request;
+
+/* Triggers must be deleted after check constraints   */
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_trigger2, DYN_REQUESTS);
+	id = drq_e_trigger2;
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$TRIGGERS WITH X.RDB$RELATION_NAME EQ relation_name
+
+        if (!DYN_REQUEST(drq_e_trigger2))
+            DYN_REQUEST(drq_e_trigger2) = request;
+
+		ERASE X;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_trigger2))
+		DYN_REQUEST(drq_e_trigger2) = request;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_usr_prvs, DYN_REQUESTS);
+	id = drq_e_usr_prvs;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		PRIV IN RDB$USER_PRIVILEGES WITH PRIV.
+			RDB$RELATION_NAME EQ relation_name AND 
+            PRIV.RDB$OBJECT_TYPE = obj_relation 
+
+        if (!DYN_REQUEST(drq_e_usr_prvs))
+			DYN_REQUEST(drq_e_usr_prvs) = request;
+
+		ERASE PRIV;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_usr_prvs))
+		DYN_REQUEST(drq_e_usr_prvs) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	while (*(*ptr)++ != gds__dyn_end) {
+		--(*ptr);
+		DYN_execute(gbl, ptr, relation_name, NULL_PTR, NULL_PTR, NULL_PTR,
+					NULL_PTR);
+	}
+}
+
+
+void DYN_delete_security_class( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes a security class.
+ *
+ **************************************/
+	TEXT security_class[32];
+
+	GET_STRING(ptr, security_class);
+
+	if (!delete_security_class2(gbl, security_class))
+		DYN_error_punt(FALSE, 75, NULL, NULL, NULL, NULL, NULL);
+	/* msg 75: "Security class not found" */
+
+	while (*(*ptr)++ != gds__dyn_end) {
+		--(*ptr);
+		DYN_execute(gbl, ptr, NULL_PTR, NULL_PTR, NULL_PTR, NULL_PTR,
+					NULL_PTR);
+	}
+}
+
+
+void DYN_delete_shadow( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a shadow.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	int shadow_number;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/*****
+the code commented out in this routine was meant to delete the
+shadow files, however this cannot be done until the transaction
+is commited, which we cannot do automatically as the user may
+choose to roll it back.
+LLS	files;
+STR	file;
+
+files = NULL;
+*****/
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_shadow, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 63, NULL, NULL, NULL, NULL, NULL);
+		/* msg 63: "ERASE RDB$FILES failed" */
+	}
+
+	shadow_number = DYN_get_number(ptr);
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FIL IN RDB$FILES WITH FIL.RDB$SHADOW_NUMBER EQ shadow_number
+
+        if (!DYN_REQUEST(drq_e_shadow))
+            DYN_REQUEST(drq_e_shadow) = request;
+
+		ERASE FIL;
+/****
+    file = (STR) ALLOCDV (type_str, sizeof (FIL.RDB$FILE_NAME) - 1);
+    strcpy (file->str_data, FIL.RDB$FILE_NAME);
+    LLS_PUSH (file, &files);
+****/
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_shadow))
+		DYN_REQUEST(drq_e_shadow) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+/****
+while (files)
+    {
+    file = LLS_POP (&files);
+    unlink (file->str_data);
+    ALL_release (file);
+    }
+****/
+
+	if (*(*ptr)++ != gds__dyn_end)
+		DYN_unsupported_verb();
+}
+
+
+void DYN_delete_trigger( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes an trigger.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	USHORT id, found;
+	TEXT r[32], t[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_trg_msgs, DYN_REQUESTS);
+	id = drq_e_trg_msgs;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		if (id == drq_e_trg_msgs)
+			DYN_error_punt(TRUE, 65, NULL, NULL, NULL, NULL, NULL);
+		/* msg 65: "ERASE RDB$TRIGGER_MESSAGES failed" */
+		else if (id == drq_e_trigger)
+			DYN_error_punt(TRUE, 66, NULL, NULL, NULL, NULL, NULL);
+		/* msg 66: "ERASE RDB$TRIGGERS failed" */
+		else
+			DYN_error_punt(TRUE, 68, NULL, NULL, NULL, NULL, NULL);
+		/* msg 68: "MODIFY RDB$VIEW_RELATIONS failed" */
+	}
+
+	GET_STRING(ptr, t);
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		TM IN RDB$TRIGGER_MESSAGES WITH TM.RDB$TRIGGER_NAME EQ t
+
+        if (!DYN_REQUEST(drq_e_trg_msgs))
+            DYN_REQUEST(drq_e_trg_msgs) = request;
+
+		ERASE TM;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_trg_msgs))
+		DYN_REQUEST(drq_e_trg_msgs) = request;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_trigger, DYN_REQUESTS);
+	id = drq_e_trigger;
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$TRIGGERS WITH X.RDB$TRIGGER_NAME EQ t
+
+        if (!DYN_REQUEST(drq_e_trigger))
+            DYN_REQUEST(drq_e_trigger) = request;
+
+		gds__vtov(X.RDB$RELATION_NAME, r, sizeof(r));
+		ERASE X;
+		found = TRUE;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_trigger))
+		DYN_REQUEST(drq_e_trigger) = request;
+
+	if (!found) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error_punt(FALSE, 67, NULL, NULL, NULL, NULL, NULL);
+		/* msg 67: "Trigger not found" */
+	}
+
+/* clear the update flags on the fields if this is the last remaining
+   trigger that changes a view */
+
+	request = (BLK) CMP_find_request(tdbb, drq_l_view_rel2, DYN_REQUESTS);
+	id = drq_l_view_rel2;
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FIRST 1 V IN RDB$VIEW_RELATIONS
+			CROSS F IN RDB$RELATION_FIELDS CROSS T IN RDB$TRIGGERS
+			WITH V.RDB$VIEW_NAME EQ r AND
+			F.RDB$RELATION_NAME EQ V.RDB$VIEW_NAME AND
+			F.RDB$RELATION_NAME EQ T.RDB$RELATION_NAME
+
+        if (!DYN_REQUEST(drq_l_view_rel2))
+            DYN_REQUEST(drq_l_view_rel2) = request;
+
+		found = TRUE;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_l_view_rel2))
+		DYN_REQUEST(drq_l_view_rel2) = request;
+
+	if (!found) {
+		request = (BLK) CMP_find_request(tdbb, drq_m_rel_flds, DYN_REQUESTS);
+		id = drq_m_rel_flds;
+
+		FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+			F IN RDB$RELATION_FIELDS WITH F.RDB$RELATION_NAME EQ r
+
+            if (!DYN_REQUEST(drq_m_rel_flds))
+                DYN_REQUEST(drq_m_rel_flds) = request;
+
+			MODIFY F USING
+				F.RDB$UPDATE_FLAG = FALSE;
+			END_MODIFY;
+		END_FOR;
+
+		if (!DYN_REQUEST(drq_m_rel_flds))
+			DYN_REQUEST(drq_m_rel_flds) = request;
+	}
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (*(*ptr)++ != gds__dyn_end)
+		DYN_unsupported_verb();
+}
+
+
+void DYN_delete_trigger_msg( GBL gbl, UCHAR ** ptr, TEXT * trigger_name)
+{
+/**************************************
+ *
+ *	D Y N _ d e l e t e _ t r i g g e r _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes an trigger message.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	USHORT found;
+	int number;
+	TEXT t[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	number = DYN_get_number(ptr);
+	if (trigger_name)
+		strcpy(t, trigger_name);
+	else if (*(*ptr)++ == gds__dyn_trg_name)
+		GET_STRING(ptr, t);
+	else
+		DYN_error_punt(FALSE, 70, NULL, NULL, NULL, NULL, NULL);
+	/* msg 70: "TRIGGER NAME expected" */
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_trg_msg, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 71, NULL, NULL, NULL, NULL, NULL);
+		/* msg 71: "ERASE TRIGGER MESSAGE failed" */
+	}
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$TRIGGER_MESSAGES
+			WITH X.RDB$TRIGGER_NAME EQ t AND X.RDB$MESSAGE_NUMBER EQ number
+
+        if (!DYN_REQUEST(drq_e_trg_msg))
+            DYN_REQUEST(drq_e_trg_msg) = request;
+
+		found = TRUE;
+		ERASE X;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_trg_msg))
+		DYN_REQUEST(drq_e_trg_msg) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (!found)
+		DYN_error_punt(FALSE, 72, NULL, NULL, NULL, NULL, NULL);
+	/* msg 72: "Trigger Message not found" */
+
+	if (*(*ptr)++ != gds__dyn_end)
+		DYN_unsupported_verb();
+}
+
+
+static BOOLEAN delete_constraint_records(
+										 GBL gbl,
+										 TEXT * constraint_name,
+										 TEXT * relation_name)
+{
+/**************************************
+ *
+ *	d e l e t e _ c o n s t r a i n t _ r e c o r d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a record from RDB$RELATION_CONSTRAINTS
+ *	based on a constraint name.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	BOOLEAN found;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_rel_con, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 129, NULL, NULL, NULL, NULL, NULL);
+		/* msg 129: "ERASE RDB$RELATION_CONSTRAINTS failed" */
+	}
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		RC IN RDB$RELATION_CONSTRAINTS
+			WITH RC.RDB$CONSTRAINT_NAME EQ constraint_name AND
+			RC.RDB$RELATION_NAME EQ relation_name
+
+        if (!DYN_REQUEST(drq_e_rel_con))
+            DYN_REQUEST(drq_e_rel_con) = request;
+
+		found = TRUE;
+		ERASE RC;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_rel_con))
+		DYN_REQUEST(drq_e_rel_con) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	return found;
+}
+
+
+static BOOLEAN delete_dimension_records( GBL gbl, TEXT * field_name)
+{
+/**************************************
+ *
+ *	d e l e t e _ d i m e n s i o n s _ r e c o r d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete the records in RDB$FIELD_DIMENSIONS
+ *	pertaining to a field.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	BOOLEAN found;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_dims, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 35, NULL, NULL, NULL, NULL, NULL);
+		/* msg 35: "ERASE RDB$FIELDS failed" */
+	}
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$FIELD_DIMENSIONS WITH X.RDB$FIELD_NAME EQ field_name
+
+        if (!DYN_REQUEST(drq_e_dims))
+            DYN_REQUEST(drq_e_dims) = request;
+
+		found = TRUE;
+		ERASE X;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_dims))
+		DYN_REQUEST(drq_e_dims) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	return found;
+}
+
+
+static void delete_f_key_constraint(
+									TDBB tdbb,
+									GBL gbl,
+									TEXT * tbl_nm,
+									TEXT * col_nm,
+									TEXT * constraint_nm, TEXT * index_name)
+{
+/**************************************
+ *
+ *	d e l e t e _ f _ k e y _ c o n s t r a i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes a record from RDB$RELATION_CONSTRAINTS based on a constraint_nm
+ *  
+ *      On deleting from RDB$RELATION_CONSTRAINTS, 2 system triggers fire:
+ *  
+ *      (A) pre delete trigger: pre_delete_constraint, will:
+ *  
+ *        1. delete a record first from RDB$REF_CONSTRAINTS where
+ *           RDB$REF_CONSTRAINTS.RDB$CONSTRAINT_NAME =  
+ *                               RDB$RELATION_CONSTRAINTS.RDB$CONSTRAINT_NAME
+ *  
+ *      (B) post delete trigger: post_delete_constraint will:
+ *  
+ *        1. also delete a record from RDB$INDICES where
+ *           RDB$INDICES.RDB$INDEX_NAME =
+ *                               RDB$RELATION_CONSTRAINTS.RDB$INDEX_NAME
+ *  
+ *        2. also delete a record from RDB$INDEX_SEGMENTS where
+ *           RDB$INDEX_SEGMENTS.RDB$INDEX_NAME =
+ *                               RDB$RELATION_CONSTRAINTS.RDB$INDEX_NAME
+ *  
+ **************************************/
+	DBB dbb;
+	BLK request;
+	BOOLEAN found;
+	VOLATILE USHORT id;
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_rel_const, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 129, NULL, NULL, NULL, NULL, NULL);
+		/* msg 49: "ERASE RDB$RELATION_CONSTRAINTS failed" */
+	}
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		RC IN RDB$RELATION_CONSTRAINTS
+			WITH RC.RDB$CONSTRAINT_NAME EQ constraint_nm
+			AND RC.RDB$CONSTRAINT_TYPE EQ FOREIGN_KEY
+			AND RC.RDB$RELATION_NAME EQ tbl_nm
+			AND RC.RDB$INDEX_NAME EQ index_name
+
+        if (!DYN_REQUEST(drq_e_rel_const))
+            DYN_REQUEST(drq_e_rel_const) = request;
+
+		found = TRUE;
+		ERASE RC;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_rel_const))
+		DYN_REQUEST(drq_e_rel_const) = request;
+
+	if (!found)
+		DYN_error_punt(FALSE, 130, constraint_nm, NULL, NULL, NULL, NULL);
+	/* msg 130: "CONSTRAINT %s does not exist." */
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+}
+
+
+static void delete_gfield_for_lfield( GBL gbl, TEXT * lfield_name)
+{
+/**************************************
+ *
+ *	d e l e t e _ g f i e l d _ f o r _ l f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement that
+ *	deletes a global field for a given local field.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	request = (BLK) CMP_find_request(tdbb, drq_e_l_gfld, DYN_REQUESTS);
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FLD IN RDB$FIELDS
+			WITH FLD.RDB$FIELD_NAME EQ lfield_name
+			AND FLD.RDB$VALIDATION_SOURCE MISSING AND
+			FLD.RDB$NULL_FLAG MISSING AND
+			FLD.RDB$DEFAULT_SOURCE MISSING AND
+			FLD.RDB$FIELD_NAME STARTING WITH "RDB$" AND
+			NOT ANY RFR IN RDB$RELATION_FIELDS WITH
+			RFR.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME
+
+        if (!DYN_REQUEST(drq_e_l_gfld))
+            DYN_REQUEST(drq_e_l_gfld) = request;
+
+		delete_dimension_records(gbl, FLD.RDB$FIELD_NAME);
+		ERASE FLD;
+	END_FOR;
+
+
+	if (!DYN_REQUEST(drq_e_l_gfld))
+		DYN_REQUEST(drq_e_l_gfld) = request;
+
+}
+
+
+static BOOLEAN delete_index_segment_records( GBL gbl, TEXT * index_name)
+{
+/**************************************
+ *
+ *	d e l e t e _ i n d e x _ s e g m e n t _ r e c o r d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete the records in RDB$INDEX_SEGMENTS
+ *	pertaining to an index.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	BOOLEAN found;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_idx_segs, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 49, NULL, NULL, NULL, NULL, NULL);
+		/* msg 49: "ERASE RDB$INDEX_SEGMENTS failed" */
+	}
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		I_S IN RDB$INDEX_SEGMENTS WITH I_S.RDB$INDEX_NAME EQ index_name
+
+        if (!DYN_REQUEST(drq_e_idx_segs))
+            DYN_REQUEST(drq_e_idx_segs) = request;
+
+		found = TRUE;
+		ERASE I_S;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_idx_segs))
+		DYN_REQUEST(drq_e_idx_segs) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	return found;
+}
+
+
+static BOOLEAN delete_security_class2( GBL gbl, TEXT * security_class)
+{
+/**************************************
+ *
+ *	d e l e t e _ s e c u r i t y _ c l a s s 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Utility routine for delete_security_class(),
+ *	which takes a string as input.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	BOOLEAN found;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_e_class, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 74, NULL, NULL, NULL, NULL, NULL);
+		/* msg 74: "ERASE RDB$SECURITY_CLASSES failed" */
+	}
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		SC IN RDB$SECURITY_CLASSES WITH SC.
+			RDB$SECURITY_CLASS EQ security_class 
+
+        if (!DYN_REQUEST(drq_e_class))
+            DYN_REQUEST(drq_e_class) = request;
+
+		found = TRUE;
+		ERASE SC;
+
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_e_class))
+		DYN_REQUEST(drq_e_class) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	return found;
+}
diff --git a/src/jrd/dyn_df_proto.h b/src/jrd/dyn_df_proto.h
new file mode 100644
index 0000000000..170e243a31
--- /dev/null
+++ b/src/jrd/dyn_df_proto.h
@@ -0,0 +1,52 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		dyn_df_proto.h
+ *	DESCRIPTION:	Prototype Header file for dyn_define.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DYN_DF_PROTO_H_
+#define _JRD_DYN_DF_PROTO_H_
+
+extern void DYN_define_cache(GBL, UCHAR **);
+extern void DYN_define_constraint(GBL, UCHAR **, TEXT *, TEXT *);
+extern void DYN_define_dimension(GBL, UCHAR **, TEXT *, TEXT *);
+extern void DYN_define_exception(GBL, UCHAR **);
+extern void DYN_define_file(GBL, UCHAR **, SLONG, SLONG *, USHORT);
+extern void DYN_define_filter(GBL, UCHAR **);
+extern void DYN_define_function(GBL, UCHAR **);
+extern void DYN_define_function_arg(GBL, UCHAR **, TEXT *);
+extern void DYN_define_generator(GBL, UCHAR **);
+extern void DYN_define_role(GBL, UCHAR **);
+extern void DYN_define_global_field(GBL, UCHAR **, TEXT *, TEXT *);
+extern void DYN_define_index(GBL, UCHAR **, TEXT *, UCHAR, TEXT *, TEXT *,
+							 TEXT *, UCHAR *);
+extern void DYN_define_local_field(GBL, UCHAR **, TEXT *, TEXT *);
+extern void DYN_define_log_file(GBL, UCHAR **, USHORT, USHORT);
+extern void DYN_define_parameter(GBL, UCHAR **, TEXT *);
+extern void DYN_define_procedure(GBL, UCHAR **);
+extern void DYN_define_relation(GBL, UCHAR **);
+extern void DYN_define_security_class(GBL, UCHAR **);
+extern void DYN_define_shadow(GBL, UCHAR **);
+extern void DYN_define_sql_field(GBL, UCHAR **, TEXT *, TEXT *);
+extern void DYN_define_trigger(GBL, UCHAR **, TEXT *, TEXT *, BOOLEAN);
+extern void DYN_define_trigger_msg(GBL, UCHAR **, TEXT *);
+extern void DYN_define_view_relation(GBL, UCHAR **, TEXT *);
+
+#endif /* _JRD_DYN_DF_PROTO_H_ */
diff --git a/src/jrd/dyn_dl_proto.h b/src/jrd/dyn_dl_proto.h
new file mode 100644
index 0000000000..c2dd421793
--- /dev/null
+++ b/src/jrd/dyn_dl_proto.h
@@ -0,0 +1,44 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		dyn_dl_proto.h
+ *	DESCRIPTION:	Prototype Header file for dyn_delete.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DYN_DL_PROTO_H_
+#define _JRD_DYN_DL_PROTO_H_
+
+extern void DYN_delete_constraint(GBL, UCHAR **, TEXT *);
+extern void DYN_delete_dimensions(GBL, UCHAR **, TEXT *, TEXT *);
+extern void DYN_delete_exception(GBL, UCHAR **);
+extern void DYN_delete_filter(GBL, UCHAR **);
+extern void DYN_delete_function(GBL, UCHAR **);
+extern void DYN_delete_global_field(GBL, UCHAR **);
+extern void DYN_delete_index(GBL, UCHAR **);
+extern void DYN_delete_local_field(GBL, UCHAR **, TEXT *, TEXT *);
+extern void DYN_delete_parameter(GBL, UCHAR **, TEXT *);
+extern void DYN_delete_procedure(GBL, UCHAR **);
+extern void DYN_delete_relation(GBL, UCHAR **, TEXT *);
+extern void DYN_delete_role(GBL, UCHAR **);
+extern void DYN_delete_security_class(GBL, UCHAR **);
+extern void DYN_delete_shadow(GBL, UCHAR **);
+extern void DYN_delete_trigger(GBL, UCHAR **);
+extern void DYN_delete_trigger_msg(GBL, UCHAR **, TEXT *);
+
+#endif /* _JRD_DYN_DL_PROTO_H_ */
diff --git a/src/jrd/dyn_md_proto.h b/src/jrd/dyn_md_proto.h
new file mode 100644
index 0000000000..7f6bb67263
--- /dev/null
+++ b/src/jrd/dyn_md_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		dyn_md_proto.h
+ *	DESCRIPTION:	Prototype Header file for dyn_modify.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DYN_MD_PROTO_H_
+#define _JRD_DYN_MD_PROTO_H_
+
+extern void DYN_modify_database(GBL, UCHAR **);
+extern void DYN_modify_exception(GBL, UCHAR **);
+extern void DYN_modify_global_field(GBL, UCHAR **, TEXT *, TEXT *);
+extern void DYN_modify_index(GBL, UCHAR **);
+extern void DYN_modify_local_field(GBL, UCHAR **, TEXT *, TEXT *);
+extern void DYN_modify_procedure(GBL, UCHAR **);
+extern void DYN_modify_relation(GBL, UCHAR **);
+extern void DYN_modify_trigger(GBL, UCHAR **);
+extern void DYN_modify_trigger_msg(GBL, UCHAR **, TEXT *);
+
+#endif /* _JRD_DYN_MD_PROTO_H_ */
diff --git a/src/jrd/dyn_mod.e b/src/jrd/dyn_mod.e
new file mode 100644
index 0000000000..1690ec432c
--- /dev/null
+++ b/src/jrd/dyn_mod.e
@@ -0,0 +1,2842 @@
+/*
+ *	PROGRAM:	JRD Data Definition Utility
+ *	MODULE:		dyn_modify.e
+ *	DESCRIPTION:	Dynamic data definition - DYN_modify_<x>
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * 2001.5.20: Claudio Valderrama: when changing a domain's name,
+ * if it has dimensions, rdb$field_dimensions should be updated, too.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../jrd/jrd.h"
+#include "../jrd/tra.h"
+#include "../jrd/scl.h"
+#include "../jrd/drq.h"
+#include "../jrd/flags.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/lls.h"
+#include "../jrd/all.h"
+#include "../jrd/met.h"
+#include "../jrd/btr.h"
+#include "../jrd/intl.h"
+#include "../jrd/dyn.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dyn_proto.h"
+#include "../jrd/dyn_md_proto.h"
+#include "../jrd/dyn_ut_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/inf_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/vio_proto.h"
+#include "../jrd/dsc_proto.h"
+#ifndef WINDOWS_ONLY
+#include "../jrd/ail.h"
+#endif
+
+#ifdef SUPERSERVER
+#define V4_THREADING
+#endif
+#include "../jrd/nlm_thd.h"
+
+DATABASE DB = STATIC "yachts.gdb";
+
+#define MAX_CHARS_SHORT		6	/* 2**16  = 5 chars + sign */
+#define MAX_CHARS_LONG		11	/* 2**32  = 10 chars + sign */
+#define MAX_CHARS_INT64		20	/* 2**64  = 19 chars + sign */
+#define MAX_CHARS_DOUBLE	22	/* 15 digits + 2 signs + E + decimal + 3 digit exp */
+#define MAX_CHARS_FLOAT		13	/* 7 digits + 2 signs + E + decimal + 2 digit exp */
+
+static UCHAR alloc_info[] = { gds__info_allocation, gds__info_end };
+static void drop_cache(GBL);
+static void drop_log(GBL);
+static void modify_lfield_type(GBL, UCHAR **, TEXT *, TEXT *);
+static void modify_lfield_position(TDBB, DBB, GBL, TEXT *, TEXT *, USHORT,
+								   USHORT);
+static BOOLEAN check_view_dependency(TDBB, DBB, GBL, TEXT *, TEXT *);
+static BOOLEAN check_sptrig_dependency(TDBB, DBB, GBL, TEXT *, TEXT *);
+static void modify_lfield_index(TDBB, DBB, GBL, TEXT *, TEXT *, TEXT *);
+static BOOLEAN field_exists(TDBB, DBB, GBL, TEXT *, TEXT *);
+static BOOLEAN domain_exists(TDBB, DBB, GBL, TEXT *);
+static void get_domain_type(TDBB, DBB, GBL, DYN_FLD);
+static ULONG check_update_fld_type(DYN_FLD, DYN_FLD);
+static void modify_err_punt(TDBB, ULONG, DYN_FLD, DYN_FLD);
+
+
+void DYN_modify_database( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ m o d i f y _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify a database.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	SSHORT length;
+	SLONG start;
+	UCHAR verb, s[128];
+	JMP_BUF env, *old_env;
+#ifndef WINDOWS_ONLY
+	SSHORT num_log_buffers = 0;
+	USHORT log_buffer_size = 0;
+	SLONG check_point_len = 0, group_commit_wait = -1;
+	SSHORT log_params_defined = FALSE;
+#endif
+#ifdef SUPERSERVER
+	USHORT first_log_file = TRUE;
+#endif
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 84, NULL, NULL, NULL, NULL, NULL);
+		/* msg 84: "MODIFY DATABASE failed" */
+	}
+
+	INF_database_info(alloc_info, sizeof(alloc_info), s, sizeof(s));
+
+	if (s[0] != gds__info_allocation) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error_punt(TRUE, 84, NULL, NULL, NULL, NULL, NULL);
+		/* msg 84: "MODIFY DATABASE failed" */
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_m_database, DYN_REQUESTS);
+
+	length = gds__vax_integer(s + 1, 2);
+	start = gds__vax_integer(s + 3, length);
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		DBB IN RDB$DATABASE 
+
+        if (!DYN_REQUEST(drq_m_database))
+            DYN_REQUEST(drq_m_database) = request;
+
+		MODIFY DBB USING
+			while ((verb = *(*ptr)++) != gds__dyn_end)
+				switch (verb) {
+				case gds__dyn_security_class:
+					if (GET_STRING(ptr, DBB.RDB$SECURITY_CLASS))
+						DBB.RDB$SECURITY_CLASS.NULL = FALSE;
+					else
+						DBB.RDB$SECURITY_CLASS.NULL = TRUE;
+					break;
+
+				case gds__dyn_description:
+					if (DYN_put_text_blob(gbl, ptr, &DBB.RDB$DESCRIPTION))
+						DBB.RDB$DESCRIPTION.NULL = FALSE;
+					else
+						DBB.RDB$DESCRIPTION.NULL = TRUE;
+					break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+				case gds__dyn_description2:
+					if (DYN_put_text_blob2(gbl, ptr, &DBB.RDB$DESCRIPTION))
+						DBB.RDB$DESCRIPTION.NULL = FALSE;
+					else
+						DBB.RDB$DESCRIPTION.NULL = TRUE;
+					break;
+#endif
+
+				case gds__dyn_def_file:
+					DYN_define_file(gbl, ptr, (SLONG) 0, &start, 158);
+					break;
+
+#ifdef SUPERSERVER
+				case gds__dyn_def_default_log:
+					DYN_define_log_file(gbl, ptr, first_log_file, TRUE);
+					break;
+
+				case gds__dyn_def_log_file:
+					DYN_define_log_file(gbl, ptr, first_log_file, FALSE);
+					first_log_file = FALSE;
+					break;
+#endif
+
+				case gds__dyn_def_cache_file:
+					DYN_define_cache(gbl, ptr);
+					break;
+
+				case gds__dyn_log_group_commit_wait:
+#ifndef WINDOWS_ONLY
+					group_commit_wait = DYN_get_number(ptr);
+					log_params_defined = TRUE;
+#endif
+					break;
+
+				case gds__dyn_log_buffer_size:
+#ifndef WINDOWS_ONLY
+					log_buffer_size = DYN_get_number(ptr);
+					log_params_defined = TRUE;
+#endif
+					break;
+
+				case gds__dyn_log_check_point_length:
+#ifndef WINDOWS_ONLY
+					check_point_len = DYN_get_number(ptr);
+					log_params_defined = TRUE;
+#endif
+					break;
+
+				case gds__dyn_log_num_of_buffers:
+#ifndef WINDOWS_ONLY
+					num_log_buffers = DYN_get_number(ptr);
+					log_params_defined = TRUE;
+#endif
+					break;
+
+				case gds__dyn_drop_cache:
+					drop_cache(gbl);
+					break;
+
+				case gds__dyn_drop_log:
+					drop_log(gbl);
+					break;
+
+				case gds__dyn_fld_character_set_name:
+					if (GET_STRING(ptr, DBB.RDB$CHARACTER_SET_NAME))
+						DBB.RDB$CHARACTER_SET_NAME.NULL = FALSE;
+					else
+						DBB.RDB$CHARACTER_SET_NAME.NULL = TRUE;
+					break;
+
+				default:
+					--(*ptr);
+					DYN_execute(gbl, ptr, NULL_PTR, NULL_PTR,
+								NULL_PTR, NULL_PTR, NULL_PTR);
+				}
+		END_MODIFY;
+	END_FOR;
+
+#ifndef WINDOWS_ONLY
+	if (log_params_defined)
+		AIL_set_log_options(check_point_len, num_log_buffers, log_buffer_size,
+							group_commit_wait);
+#endif
+
+	if (!DYN_REQUEST(drq_m_database))
+		DYN_REQUEST(drq_m_database) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_modify_exception( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ m o d i f y _ e x c e p t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify an exception.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	USHORT found;
+	UCHAR verb;
+	TEXT t[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_m_xcp, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 145, NULL, NULL, NULL, NULL, NULL);
+		/* msg 145: "MODIFY EXCEPTION failed" */
+	}
+
+	GET_STRING(ptr, t);
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$EXCEPTIONS
+			WITH X.RDB$EXCEPTION_NAME EQ t
+
+        if (!DYN_REQUEST(drq_m_xcp)) DYN_REQUEST(drq_m_xcp) = request;
+
+		found = TRUE;
+		MODIFY X
+			while ((verb = *(*ptr)++) != gds__dyn_end)
+				switch (verb) {
+				case gds__dyn_xcp_msg:
+					GET_STRING(ptr, X.RDB$MESSAGE);
+					X.RDB$MESSAGE.NULL = FALSE;
+					break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+				case gds__dyn_xcp_msg2:
+					DYN_get_string2(ptr, X.RDB$MESSAGE,
+									sizeof(X.RDB$MESSAGE));
+					X.RDB$MESSAGE.NULL = FALSE;
+					break;
+#endif
+
+				default:
+					DYN_unsupported_verb();
+				}
+		END_MODIFY;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_m_xcp))
+		DYN_REQUEST(drq_m_xcp) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (!found)
+		DYN_error_punt(FALSE, 144, NULL, NULL, NULL, NULL, NULL);
+	/* msg 144: "Exception not found" */
+}
+
+
+void DYN_modify_global_field(
+							 GBL gbl,
+							 UCHAR ** ptr,
+							 TEXT * relation_name, TEXT * field_name)
+{
+/**************************************
+ *
+ *	D Y N _ m o d i f y _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement.
+ * Note: a global field here is a SQL domain.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request, old_request;
+	USHORT found, single_validate = FALSE;
+	UCHAR verb;
+	JMP_BUF env, *old_env;
+	DYN_FLD orig_dom, new_dom;
+	BOOLEAN dtype, scale, prec, subtype, charlen, collation, fldlen, nullflg,
+		charset;
+	TEXT *qryname, *qryhdr, *qryhdr2, *edtstr, *edtstr2, *missingval,
+		*singvald, *fldvald, *fldvaldsrc, *fldvaldsrc2, *desc, *desc2,
+		*delvald, *deldflt, *flddftval, *flddfltsrc;
+
+	BOOLEAN bqryname, bqryhdr, bqryhdr2, bedtstr, bedtstr2, bmissingval,
+		bsingvald, bfldvald, bfldvaldsrc, bfldvaldsrc2, bdesc, bdesc2,
+		bdelvald, bdeldflt, bflddftval, bflddfltsrc;
+	BOOLEAN has_dimensions = FALSE;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	dtype = scale = prec = subtype = charlen = collation = fldlen = nullflg =
+		charset = FALSE;
+	bqryname = bqryhdr = bqryhdr2 = bedtstr = bedtstr2 = bmissingval =
+		bsingvald = FALSE;
+	bfldvald = bfldvaldsrc = bfldvaldsrc2 = bdesc = bdesc2 = bdelvald =
+		bdeldflt = bflddftval = bflddfltsrc = FALSE;
+
+
+	request = (BLK) CMP_find_request(tdbb, drq_m_gfield, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		if (orig_dom)
+			gds__free((SLONG *) orig_dom);
+
+		if (new_dom)
+			gds__free((SLONG *) new_dom);
+
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 87, NULL, NULL, NULL, NULL, NULL);
+		/* msg 87: "MODIFY RDB$FIELDS failed" */
+	}
+
+/* Allocate the field structures */
+	orig_dom = (DYN_FLD) gds__alloc(sizeof(struct dyn_fld));
+	if (!orig_dom)
+		DYN_error_punt(TRUE, 211, NULL, NULL, NULL, NULL, NULL);
+
+	MOVE_CLEAR(orig_dom, sizeof(struct dyn_fld));
+
+	new_dom = (DYN_FLD) gds__alloc(sizeof(struct dyn_fld));
+	if (!new_dom)
+		DYN_error_punt(TRUE, 211, NULL, NULL, NULL, NULL, NULL);
+
+	MOVE_CLEAR(new_dom, sizeof(struct dyn_fld));
+
+	GET_STRING(ptr, orig_dom->dyn_fld_name);
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FLD IN RDB$FIELDS WITH FLD.RDB$FIELD_NAME EQ orig_dom->dyn_fld_name
+
+        if (!DYN_REQUEST(drq_m_gfield))
+            DYN_REQUEST(drq_m_gfield) = request;
+
+		found = TRUE;
+
+		DSC_make_descriptor(&orig_dom->dyn_dsc,
+							FLD.RDB$FIELD_TYPE,
+							FLD.RDB$FIELD_SCALE,
+							FLD.RDB$FIELD_LENGTH,
+							FLD.RDB$FIELD_SUB_TYPE,
+							FLD.RDB$CHARACTER_SET_ID, FLD.RDB$COLLATION_ID);
+
+		orig_dom->dyn_dtype = FLD.RDB$FIELD_TYPE;
+		orig_dom->dyn_precision = FLD.RDB$FIELD_PRECISION;
+		orig_dom->dyn_charlen = FLD.RDB$CHARACTER_LENGTH;
+		orig_dom->dyn_collation = FLD.RDB$COLLATION_ID;
+		orig_dom->dyn_null_flag = FLD.RDB$NULL_FLAG;
+
+		/* If the original field type is an array, force its blr type to blr_blob */
+		if (FLD.RDB$DIMENSIONS != 0)
+		{
+			orig_dom->dyn_dtype = blr_blob;
+			has_dimensions = TRUE;
+		}
+
+
+		while ((verb = *(*ptr)++) != gds__dyn_end)
+		{
+			switch (verb)
+			{
+			case gds__dyn_fld_name:
+				{
+					char newfld[32];
+
+					if (GET_STRING(ptr, newfld))
+					{
+						if (!domain_exists(tdbb, dbb, gbl, newfld))
+						{
+							MODIFY FLD USING
+								strcpy(FLD.RDB$FIELD_NAME, newfld);
+								FLD.RDB$FIELD_NAME.NULL = FALSE;
+								old_request = request;
+								request = NULL;
+								/* CVC: Let's update the dimensions, too. */
+								if (has_dimensions)
+								{
+									FOR (REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+										DIM_DOM IN RDB$FIELD_DIMENSIONS
+										WITH DIM_DOM.RDB$FIELD_NAME EQ orig_dom->dyn_fld_name
+										MODIFY DIM_DOM USING
+											strcpy (DIM_DOM.RDB$FIELD_NAME, newfld);
+											DIM_DOM.RDB$FIELD_NAME.NULL = FALSE;
+										END_MODIFY;
+									END_FOR;
+									CMP_release (tdbb, request);
+									request = NULL;
+								}
+								/* CVC: End modification. */
+								FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+									DOM IN RDB$RELATION_FIELDS
+									WITH DOM.RDB$FIELD_SOURCE EQ orig_dom->dyn_fld_name
+									MODIFY DOM USING
+										strcpy(DOM.RDB$FIELD_SOURCE, newfld);
+										DOM.RDB$FIELD_SOURCE.NULL = FALSE;
+									END_MODIFY;
+									modify_lfield_index(tdbb, dbb, gbl,
+														DOM.RDB$RELATION_NAME,
+														DOM.RDB$FIELD_NAME,
+														DOM.RDB$FIELD_NAME);
+								END_FOR;
+								CMP_release(tdbb, (REQ)request);
+								request = old_request;
+							END_MODIFY;
+						}
+						else
+						{
+							DYN_error_punt(FALSE, 204, orig_dom->dyn_fld_name,
+										   newfld, NULL, NULL, NULL);
+							/* msg 204: Cannot rename domain %s to %s.  A domain with that name already exists. */
+						}
+					}
+					break;
+				}
+
+			case gds__dyn_rel_name:
+				GET_STRING(ptr, new_dom->dyn_rel_name);
+				break;
+
+			case gds__dyn_fld_length:
+				fldlen = TRUE;
+				new_dom->dyn_dsc.dsc_length = DYN_get_number(ptr);
+				break;
+
+			case gds__dyn_fld_type:
+				dtype = TRUE;
+				new_dom->dyn_dtype = DYN_get_number(ptr);
+
+				switch (new_dom->dyn_dtype) {
+
+				case blr_text:
+				case blr_text2:
+				case blr_varying:
+				case blr_varying2:
+				case blr_cstring:
+				case blr_cstring2:
+					new_dom->dyn_dsc.dsc_length =
+						DSC_string_length(&new_dom->dyn_dsc);
+					break;
+				case blr_short:
+					new_dom->dyn_dsc.dsc_length = 2;
+					break;
+
+				case blr_long:
+				case blr_float:
+					new_dom->dyn_dsc.dsc_length = 4;
+					break;
+
+				case blr_int64:
+				case blr_sql_time:
+				case blr_sql_date:
+				case blr_timestamp:
+				case blr_double:
+				case blr_d_float:
+					new_dom->dyn_dsc.dsc_length = 8;
+					break;
+
+				default:
+					break;
+				}
+				break;
+
+			case gds__dyn_fld_scale:
+				scale = TRUE;
+				new_dom->dyn_dsc.dsc_scale = DYN_get_number(ptr);
+				break;
+
+			case isc_dyn_fld_precision:
+				prec = TRUE;
+				new_dom->dyn_precision = DYN_get_number(ptr);
+				break;
+
+			case gds__dyn_fld_sub_type:
+				subtype = TRUE;
+				new_dom->dyn_dsc.dsc_sub_type = DYN_get_number(ptr);
+				break;
+
+			case gds__dyn_fld_char_length:
+				charlen = TRUE;
+				new_dom->dyn_charlen = DYN_get_number(ptr);
+				break;
+
+			case gds__dyn_fld_collation:
+				collation = TRUE;
+				new_dom->dyn_collation = DYN_get_number(ptr);
+				break;
+
+			case gds__dyn_fld_character_set:
+				charset = TRUE;
+				new_dom->dyn_charset = DYN_get_number(ptr);
+				break;
+
+			case gds__dyn_fld_not_null:
+				nullflg = TRUE;
+				new_dom->dyn_null_flag = TRUE;
+				break;
+
+			case gds__dyn_fld_query_name:
+				qryname = (TEXT *) * ptr;
+				bqryname = TRUE;
+				DYN_skip_attribute(ptr);
+				break;
+
+			case gds__dyn_fld_query_header:
+				qryhdr = (TEXT *) * ptr;
+				bqryhdr = TRUE;
+				DYN_skip_attribute(ptr);
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_fld_query_header2:
+				qryhdr2 = (TEXT *) * ptr;
+				bqryhdr2 = TRUE;
+				DYN_skip_attribute2(ptr);
+				break;
+#endif
+
+			case gds__dyn_fld_edit_string:
+				edtstr = (TEXT *) * ptr;
+				bedtstr = TRUE;
+				DYN_skip_attribute(ptr);
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_fld_edit_string2:
+				edtstr2 = (TEXT *) * ptr;
+				bedtstr2 = TRUE;
+				DYN_skip_attribute2(ptr);
+				break;
+#endif
+			case gds__dyn_fld_missing_value:
+				missingval = (TEXT *) * ptr;
+				bmissingval = TRUE;
+				DYN_skip_attribute(ptr);
+				break;
+
+			case gds__dyn_single_validation:
+				if (single_validate) {
+					EXE_unwind(tdbb, (REQ)request);
+					DYN_error_punt(FALSE, 160, NULL, NULL, NULL, NULL, NULL);
+					/* msg 160: "Only one constraint allowed for a domain" */
+					break;
+				}
+				else
+					single_validate = TRUE;
+				break;
+
+			case gds__dyn_fld_validation_blr:
+				if (single_validate && (!FLD.RDB$VALIDATION_BLR.NULL)) {
+					EXE_unwind(tdbb, (REQ)request);
+					DYN_error_punt(FALSE, 160, NULL, NULL, NULL, NULL, NULL);
+					/* msg 160: "Only one constraint allowed for a domain" */
+					break;
+				}
+				else
+					single_validate = TRUE;
+
+				fldvald = (TEXT *) * ptr;
+				bfldvald = TRUE;
+				DYN_skip_attribute(ptr);
+				break;
+
+			case gds__dyn_fld_validation_source:
+				fldvaldsrc = (TEXT *) * ptr;
+				bfldvaldsrc = TRUE;
+				DYN_skip_attribute(ptr);
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_fld_validation_source2:
+				fldvaldsrc2 = (TEXT *) * ptr;
+				bfldvaldsrc2 = TRUE;
+				DYN_skip_attribute2(ptr);
+				break;
+#endif
+
+			case gds__dyn_description:
+				desc = (TEXT *) * ptr;
+				bdesc = TRUE;
+				DYN_skip_attribute(ptr);
+				break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			case gds__dyn_description2:
+				desc2 = (TEXT *) * ptr;
+				bdesc2 = TRUE;
+				DYN_skip_attribute2(ptr);
+				break;
+#endif
+			case gds__dyn_del_validation:
+				bdelvald = TRUE;
+				break;
+
+			case gds__dyn_del_default:
+				bdeldflt = TRUE;
+				break;
+
+			case gds__dyn_fld_default_value:
+				flddftval = (TEXT *) * ptr;
+				bflddftval = TRUE;
+				DYN_skip_attribute(ptr);
+				break;
+
+			case gds__dyn_fld_default_source:
+				flddfltsrc = (TEXT *) * ptr;
+				bflddfltsrc = TRUE;
+				DYN_skip_attribute(ptr);
+				break;
+
+			case gds__dyn_fld_dimensions:
+				new_dom->dyn_dtype = blr_blob;
+				break;
+
+				/* These should only be defined for BLOB types and should not come through with
+				 * any other types.  Do nothing with them.
+				 */
+
+			case gds__dyn_fld_segment_length:
+				DYN_get_number(ptr);
+				break;
+
+			default:
+				--(*ptr);
+				DYN_execute(gbl, ptr, relation_name, field_name,
+							NULL_PTR, NULL_PTR, NULL_PTR);
+			}
+		}
+
+
+		/* Now that we have all of the information needed, let's check to see if the field type can be modifed.  Only
+		 * do this, however, if we are actually modifying the datatype of the domain.
+		 */
+
+		if (dtype) {
+			ULONG retval;
+
+			DSC_make_descriptor(&new_dom->dyn_dsc,
+								new_dom->dyn_dtype,
+								new_dom->dyn_dsc.dsc_scale,
+								new_dom->dyn_dsc.dsc_length,
+								new_dom->dyn_dsc.dsc_sub_type,
+								new_dom->dyn_charset, new_dom->dyn_collation);
+			if ((retval = check_update_fld_type(orig_dom, new_dom)) !=
+				SUCCESS) modify_err_punt(tdbb, retval, orig_dom, new_dom);
+		}
+
+		MODIFY FLD USING
+			if (dtype) {
+				FLD.RDB$FIELD_TYPE = new_dom->dyn_dtype;
+				FLD.RDB$FIELD_TYPE.NULL = FALSE;
+
+				/* If the datatype was changed, update any indexes that involved the domain */
+
+				old_request = request;
+				request = NULL;
+				FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+					DOM IN RDB$RELATION_FIELDS 
+                    WITH DOM.RDB$FIELD_SOURCE EQ orig_dom->dyn_fld_name 
+                    modify_lfield_index(tdbb, dbb, gbl,
+                                        DOM.
+                                        RDB$RELATION_NAME,
+                                        DOM.RDB$FIELD_NAME,
+                                        DOM.RDB$FIELD_NAME);
+				END_FOR;
+
+				CMP_release(tdbb, (REQ)request);
+				request = old_request;
+			}
+
+			if (scale) {
+				FLD.RDB$FIELD_SCALE = new_dom->dyn_dsc.dsc_scale;
+				FLD.RDB$FIELD_SCALE.NULL = FALSE;
+			}
+
+			if (prec) {
+				FLD.RDB$FIELD_PRECISION = new_dom->dyn_precision;
+				FLD.RDB$FIELD_PRECISION.NULL = FALSE;
+			}
+
+			if (subtype) {
+				FLD.RDB$FIELD_SUB_TYPE = new_dom->dyn_dsc.dsc_sub_type;
+				FLD.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+			}
+
+			if (charlen) {
+				FLD.RDB$CHARACTER_LENGTH = new_dom->dyn_charlen;
+				FLD.RDB$CHARACTER_LENGTH.NULL = FALSE;
+			}
+
+			if (fldlen) {
+				FLD.RDB$FIELD_LENGTH = new_dom->dyn_dsc.dsc_length;
+				FLD.RDB$FIELD_LENGTH.NULL = FALSE;
+			}
+
+			if (bqryname) {
+				if (GET_STRING(&qryname, FLD.RDB$QUERY_NAME))
+					FLD.RDB$QUERY_NAME.NULL = FALSE;
+				else
+					FLD.RDB$QUERY_NAME.NULL = TRUE;
+			}
+
+			if (bqryhdr) {
+				if (DYN_put_blr_blob(gbl, &qryhdr, &FLD.RDB$QUERY_HEADER))
+					FLD.RDB$QUERY_HEADER.NULL = FALSE;
+				else
+					FLD.RDB$QUERY_HEADER.NULL = TRUE;
+			}
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			if (bqryhdr2) {
+				if (DYN_put_blr_blob2(gbl, &qryhdr2, &FLD.RDB$QUERY_HEADER))
+					FLD.RDB$QUERY_HEADER.NULL = FALSE;
+				else
+					FLD.RDB$QUERY_HEADER.NULL = TRUE;
+			}
+#endif
+
+			if (bedtstr) {
+				if (GET_STRING(&edtstr, FLD.RDB$EDIT_STRING))
+					FLD.RDB$EDIT_STRING.NULL = FALSE;
+				else
+					FLD.RDB$EDIT_STRING.NULL = TRUE;
+			}
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			if (bedtstr2) {
+				if (DYN_get_string2
+					(&edtstr2, FLD.RDB$EDIT_STRING,
+					 sizeof(FLD.RDB$EDIT_STRING))) FLD.RDB$EDIT_STRING.NULL =
+						FALSE;
+				else
+					FLD.RDB$EDIT_STRING.NULL = TRUE;
+			}
+#endif
+
+			if (bmissingval) {
+				if (DYN_put_blr_blob
+					(gbl, &missingval,
+					 &FLD.RDB$MISSING_VALUE)) FLD.RDB$MISSING_VALUE.NULL =
+						FALSE;
+				else
+					FLD.RDB$MISSING_VALUE.NULL = TRUE;
+			}
+
+			if (bfldvald) {
+				if (DYN_put_blr_blob(gbl, &fldvald, &FLD.RDB$VALIDATION_BLR))
+					FLD.RDB$VALIDATION_BLR.NULL = FALSE;
+				else
+					FLD.RDB$VALIDATION_BLR.NULL = TRUE;
+			}
+
+			if (bfldvaldsrc) {
+				if (DYN_put_text_blob
+					(gbl, &fldvaldsrc,
+					 &FLD.RDB$VALIDATION_SOURCE)) FLD.RDB$VALIDATION_SOURCE.
+	  NULL = FALSE;
+				else
+					FLD.RDB$VALIDATION_SOURCE.NULL = TRUE;
+			}
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			if (bfldvaldsrc2) {
+				if (DYN_put_text_blob2
+					(gbl, &fldvaldsrc2,
+					 &FLD.RDB$VALIDATION_SOURCE)) FLD.RDB$VALIDATION_SOURCE.
+	 NULL = FALSE;
+				else
+					FLD.RDB$VALIDATION_SOURCE.NULL = TRUE;
+			}
+#endif
+
+			if (bdesc) {
+				if (DYN_put_text_blob(gbl, &desc, &FLD.RDB$DESCRIPTION))
+					FLD.RDB$DESCRIPTION.NULL = FALSE;
+				else
+					FLD.RDB$DESCRIPTION.NULL = TRUE;
+			}
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+			if (bdesc2) {
+				if (DYN_put_text_blob2(gbl, &desc2, &FLD.RDB$DESCRIPTION))
+					FLD.RDB$DESCRIPTION.NULL = FALSE;
+				else
+					FLD.RDB$DESCRIPTION.NULL = TRUE;
+			}
+#endif
+			if (bdelvald) {
+				FLD.RDB$VALIDATION_BLR.NULL = TRUE;
+				FLD.RDB$VALIDATION_SOURCE.NULL = TRUE;
+			}
+
+			if (bdeldflt) {
+				FLD.RDB$DEFAULT_VALUE.NULL = TRUE;
+				FLD.RDB$DEFAULT_SOURCE.NULL = TRUE;
+			}
+
+			if (bflddftval) {
+				FLD.RDB$DEFAULT_VALUE.NULL = FALSE;
+				DYN_put_blr_blob(gbl, &flddftval, &FLD.RDB$DEFAULT_VALUE);
+			}
+
+			if (bflddfltsrc) {
+				FLD.RDB$DEFAULT_SOURCE.NULL = FALSE;
+				DYN_put_text_blob(gbl, &flddfltsrc, &FLD.RDB$DEFAULT_SOURCE);
+			}
+
+		END_MODIFY;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_m_gfield))
+		DYN_REQUEST(drq_m_gfield) = request;
+
+	if (orig_dom)
+		gds__free((SLONG *) orig_dom);
+
+	if (new_dom)
+		gds__free((SLONG *) new_dom);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (!found)
+		DYN_error_punt(FALSE, 89, NULL, NULL, NULL, NULL, NULL);
+	/* msg 89: "Global field not found" */
+}
+
+
+void DYN_modify_index( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ m o d i f y _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify an existing index
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	USHORT found;
+	UCHAR verb;
+	TEXT name[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_m_index, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 91, NULL, NULL, NULL, NULL, NULL);
+		/* msg 91: "MODIFY RDB$INDICES failed" */
+	}
+
+	GET_STRING(ptr, name);
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		IDX IN RDB$INDICES WITH IDX.RDB$INDEX_NAME EQ name
+
+        if (!DYN_REQUEST(drq_m_index)) DYN_REQUEST(drq_m_index) = request;
+
+		found = TRUE;
+		MODIFY IDX USING
+			while ((verb = *(*ptr)++) != gds__dyn_end)
+				switch (verb) {
+				case gds__dyn_idx_unique:
+					IDX.RDB$UNIQUE_FLAG = DYN_get_number(ptr);
+					IDX.RDB$UNIQUE_FLAG.NULL = FALSE;
+					break;
+
+				case gds__dyn_idx_inactive:
+					IDX.RDB$INDEX_INACTIVE = DYN_get_number(ptr);
+					IDX.RDB$INDEX_INACTIVE.NULL = FALSE;
+					break;
+
+				case gds__dyn_description:
+					if (DYN_put_text_blob(gbl, ptr, &IDX.RDB$DESCRIPTION))
+						IDX.RDB$DESCRIPTION.NULL = FALSE;
+					else
+						IDX.RDB$DESCRIPTION.NULL = TRUE;
+					break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+				case gds__dyn_description2:
+					if (DYN_put_text_blob2(gbl, ptr, &IDX.RDB$DESCRIPTION))
+						IDX.RDB$DESCRIPTION.NULL = FALSE;
+					else
+						IDX.RDB$DESCRIPTION.NULL = TRUE;
+					break;
+#endif
+
+					/* For V4 index selectivity can be set only to -1 */
+
+				case gds__dyn_idx_statistic:
+					IDX.RDB$STATISTICS = -1.0;
+					IDX.RDB$STATISTICS.NULL = FALSE;
+					break;
+
+				default:
+					DYN_unsupported_verb();
+				}
+		END_MODIFY;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_m_index))
+		DYN_REQUEST(drq_m_index) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (!found)
+		DYN_error_punt(FALSE, 93, NULL, NULL, NULL, NULL, NULL);
+	/* msg 93: "Index field not found" */
+}
+
+
+void DYN_modify_local_field(
+							GBL gbl,
+							UCHAR ** ptr,
+							TEXT * relation_name, TEXT * field_name)
+{
+/**************************************
+ *
+ *	D Y N _ m o d i f y _ l o c a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	USHORT found, position, existing_position;
+	USHORT sfflag, qnflag, qhflag, esflag, dflag, system_flag, scflag, nnflag,
+		ntflag, npflag;
+	UCHAR verb;
+	TEXT f[32], r[32], *query_name, *query_header, *edit_string, *description,
+		*security_class, *new_name;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	GET_STRING(ptr, f);
+	r[0] = 0;
+	sfflag = qnflag = qhflag = esflag = dflag = scflag = npflag = nnflag =
+		ntflag = FALSE;
+	while ((verb = *(*ptr)++) != gds__dyn_end)
+		switch (verb) {
+		case gds__dyn_rel_name:
+			GET_STRING(ptr, r);
+			break;
+
+		case gds__dyn_system_flag:
+			system_flag = DYN_get_number(ptr);
+			sfflag = TRUE;
+			break;
+
+		case gds__dyn_fld_position:
+			position = DYN_get_number(ptr);
+			npflag = TRUE;
+			break;
+
+		case isc_dyn_new_fld_name:
+			new_name = (TEXT *) * ptr;
+			nnflag = TRUE;
+			DYN_skip_attribute(ptr);
+			break;
+
+		case gds__dyn_fld_query_name:
+			query_name = (TEXT *) * ptr;
+			qnflag = TRUE;
+			DYN_skip_attribute(ptr);
+			break;
+
+		case gds__dyn_fld_query_header:
+			query_header = (TEXT *) * ptr;
+			qhflag = TRUE;
+			DYN_skip_attribute(ptr);
+			break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+		case gds__dyn_fld_query_header2:
+			query_header = (TEXT *) * ptr;
+			qhflag = TRUE;
+			DYN_skip_attribute2(ptr);
+			break;
+#endif
+
+		case gds__dyn_fld_edit_string:
+			edit_string = (TEXT *) * ptr;
+			esflag = TRUE;
+			DYN_skip_attribute(ptr);
+			break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+		case gds__dyn_fld_edit_string2:
+			edit_string = (TEXT *) * ptr;
+			esflag = TRUE;
+			DYN_skip_attribute2(ptr);
+			break;
+#endif
+
+		case gds__dyn_security_class:
+			security_class = (TEXT *) * ptr;
+			scflag = TRUE;
+			DYN_skip_attribute(ptr);
+			break;
+
+		case gds__dyn_description:
+			description = (TEXT *) * ptr;
+			dflag = TRUE;
+			DYN_skip_attribute(ptr);
+			break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+		case gds__dyn_description2:
+			description = (TEXT *) * ptr;
+			dflag = TRUE;
+			DYN_skip_attribute2(ptr);
+			break;
+#endif
+
+		default:
+			--(*ptr);
+			DYN_execute(gbl, ptr, relation_name, field_name,
+						NULL_PTR, NULL_PTR, NULL_PTR);
+		}
+
+	request = (BLK) CMP_find_request(tdbb, drq_m_lfield, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 95, NULL, NULL, NULL, NULL, NULL);
+		/* msg 95: "MODIFY RDB$RELATION_FIELDS failed" */
+	}
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FLD IN RDB$RELATION_FIELDS
+			WITH FLD.RDB$FIELD_NAME EQ f AND FLD.RDB$RELATION_NAME EQ r
+
+        if (!DYN_REQUEST(drq_m_lfield))
+            DYN_REQUEST(drq_m_lfield) = request;
+
+		found = TRUE;
+
+		MODIFY FLD USING
+			if (npflag)
+				existing_position = FLD.RDB$FIELD_POSITION;
+
+			if (sfflag) {
+				FLD.RDB$SYSTEM_FLAG = system_flag;
+				FLD.RDB$SYSTEM_FLAG.NULL = FALSE;
+			}
+			if (qnflag) {
+				if (GET_STRING(&query_name, FLD.RDB$QUERY_NAME))
+					FLD.RDB$QUERY_NAME.NULL = FALSE;
+				else
+					FLD.RDB$QUERY_NAME.NULL = TRUE;
+			}
+
+			if (nnflag) {
+				TEXT new_fld[FLD_NAME_LEN];
+				GET_STRING(&new_name, new_fld);
+
+				check_view_dependency(tdbb, dbb, gbl, r, f);
+				check_sptrig_dependency(tdbb, dbb, gbl, r, f);
+				if (!field_exists(tdbb, dbb, gbl, r, new_fld)) {
+					strcpy(FLD.RDB$FIELD_NAME, new_fld);
+					modify_lfield_index(tdbb, dbb, gbl, r, f,
+										FLD.RDB$FIELD_NAME);
+				}
+				else {
+					DYN_error_punt(FALSE, 205, f, new_fld, r, NULL, NULL);
+					/* msg 205: Cannot rename field %s to %s.  A field with that name already exists in table %s. */
+				}
+			}
+
+			if (qhflag) {
+#if ( !(defined JPN_SJIS || defined JPN_EUC))
+				if (DYN_put_blr_blob
+					(gbl, &query_header, &FLD.RDB$QUERY_HEADER))
+#else
+				if (DYN_put_blr_blob2
+					(gbl, &query_header, &FLD.RDB$QUERY_HEADER))
+#endif
+					FLD.RDB$QUERY_HEADER.NULL = FALSE;
+				else
+					FLD.RDB$QUERY_HEADER.NULL = TRUE;
+			}
+			if (esflag) {
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+				if (GET_STRING(&edit_string, FLD.RDB$EDIT_STRING))
+#else
+				if (DYN_get_string2
+					(&edit_string, FLD.RDB$EDIT_STRING,
+					 sizeof(FLD.RDB$EDIT_STRING)))
+#endif
+					FLD.RDB$EDIT_STRING.NULL = FALSE;
+				else
+					FLD.RDB$EDIT_STRING.NULL = TRUE;
+			}
+			if (scflag) {
+				if (GET_STRING(&security_class, FLD.RDB$SECURITY_CLASS))
+					FLD.RDB$SECURITY_CLASS.NULL = FALSE;
+				else
+					FLD.RDB$SECURITY_CLASS.NULL = TRUE;
+			}
+			if (dflag) {
+#if (defined JPN_EUC || defined JPN_SJIS)
+				if (DYN_put_text_blob2
+					(gbl, &description, &FLD.RDB$DESCRIPTION))
+#else
+				if (DYN_put_text_blob
+					(gbl, &description, &FLD.RDB$DESCRIPTION))
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+					FLD.RDB$DESCRIPTION.NULL = FALSE;
+				else
+					FLD.RDB$DESCRIPTION.NULL = TRUE;
+			}
+		END_MODIFY;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_m_lfield))
+		DYN_REQUEST(drq_m_lfield) = request;
+
+	if (npflag && found)
+		modify_lfield_position(tdbb, dbb, gbl, r, f, position,
+							   existing_position);
+
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (!found)
+		DYN_error_punt(FALSE, 96, NULL, NULL, NULL, NULL, NULL);
+	/* msg 96: "Local column not found" */
+}
+
+
+void DYN_modify_procedure( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ m o d i f y _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	UCHAR verb;
+	USHORT found;
+	TEXT procedure_name[PROC_NAME_SIZE];
+	JMP_BUF env, *old_env;
+
+	GET_STRING(ptr, procedure_name);
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 141, NULL, NULL, NULL, NULL, NULL);
+		/* msg 141: "MODIFY RDB$PROCEDURES failed" */
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_m_prcs, DYN_REQUESTS);
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		P IN RDB$PROCEDURES WITH P.RDB$PROCEDURE_NAME = procedure_name
+
+        if (!DYN_REQUEST(drq_m_prcs))
+			DYN_REQUEST(drq_m_prcs) = request;
+		found = TRUE;
+
+		/* Set NULL flags to TRUE only for fields which must be specified in the DYN string.
+		   Retain existing values on other fields (RDB$DESCRIPTION, RDB$SECURITY_CLASS),
+		   unless explicitly changed in the DYN string */
+		MODIFY P
+			P.RDB$SYSTEM_FLAG.NULL = TRUE;
+			P.RDB$PROCEDURE_BLR.NULL = TRUE;
+			P.RDB$PROCEDURE_SOURCE.NULL = TRUE;
+			P.RDB$PROCEDURE_INPUTS.NULL = TRUE;
+			P.RDB$PROCEDURE_OUTPUTS.NULL = TRUE;
+
+			while ((verb = *(*ptr)++) != gds__dyn_end)
+				switch (verb) {
+				case gds__dyn_system_flag:
+					P.RDB$SYSTEM_FLAG = DYN_get_number(ptr);
+					P.RDB$SYSTEM_FLAG.NULL = FALSE;
+					break;
+
+				case gds__dyn_prc_blr:
+					P.RDB$PROCEDURE_BLR.NULL = FALSE;
+					DYN_put_blr_blob(gbl, ptr, &P.RDB$PROCEDURE_BLR);
+					break;
+
+				case gds__dyn_description:
+					DYN_put_text_blob(gbl, ptr, &P.RDB$DESCRIPTION);
+					P.RDB$DESCRIPTION.NULL = FALSE;
+					break;
+
+				case gds__dyn_prc_source:
+					DYN_put_text_blob(gbl, ptr, &P.RDB$PROCEDURE_SOURCE);
+					P.RDB$PROCEDURE_SOURCE.NULL = FALSE;
+					break;
+
+				case gds__dyn_prc_inputs:
+					P.RDB$PROCEDURE_INPUTS = DYN_get_number(ptr);
+					P.RDB$PROCEDURE_INPUTS.NULL = FALSE;
+					break;
+
+				case gds__dyn_prc_outputs:
+					P.RDB$PROCEDURE_OUTPUTS = DYN_get_number(ptr);
+					P.RDB$PROCEDURE_OUTPUTS.NULL = FALSE;
+					break;
+
+				case gds__dyn_security_class:
+					GET_STRING(ptr, P.RDB$SECURITY_CLASS);
+					P.RDB$SECURITY_CLASS.NULL = FALSE;
+					break;
+
+				default:
+					--(*ptr);
+					DYN_execute(gbl, ptr, NULL_PTR, NULL_PTR,
+								NULL_PTR, NULL_PTR, procedure_name);
+				}
+
+		END_MODIFY;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_m_prcs))
+		DYN_REQUEST(drq_m_prcs) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	if (!found)
+		DYN_error_punt(FALSE, 140, procedure_name, NULL, NULL, NULL, NULL);
+	/* msg 140: "Procedure %s not found" */
+}
+
+
+void DYN_modify_relation( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ m o d i f y _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify an existing relation
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	USHORT found;
+	UCHAR verb;
+	TEXT name[32], field_name[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	field_name[0] = '\0';
+	GET_STRING(ptr, name);
+
+	request = (BLK) CMP_find_request(tdbb, drq_m_relation, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 99, NULL, NULL, NULL, NULL, NULL);
+		/* msg 99: "MODIFY RDB$RELATIONS failed" */
+	}
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		REL IN RDB$RELATIONS WITH REL.RDB$RELATION_NAME EQ name
+
+        if (!DYN_REQUEST(drq_m_relation))
+            DYN_REQUEST(drq_m_relation) = request;
+
+		if (!REL.RDB$VIEW_BLR.NULL)
+			DYN_error_punt(FALSE, 177, NULL, NULL, NULL, NULL, NULL);
+		found = TRUE;
+		MODIFY REL USING
+			while ((verb = *(*ptr)++) != gds__dyn_end)
+				switch (verb) {
+				case gds__dyn_system_flag:
+					REL.RDB$SYSTEM_FLAG = DYN_get_number(ptr);
+					REL.RDB$SYSTEM_FLAG.NULL = FALSE;
+					break;
+
+				case gds__dyn_security_class:
+					if (GET_STRING(ptr, REL.RDB$SECURITY_CLASS))
+						REL.RDB$SECURITY_CLASS.NULL = FALSE;
+					else
+						REL.RDB$SECURITY_CLASS.NULL = TRUE;
+					break;
+
+				case gds__dyn_rel_ext_file:
+					if (REL.RDB$EXTERNAL_FILE.NULL) {
+						DYN_rundown_request(old_env, request, -1);
+						DYN_error_punt(FALSE, 97, NULL, NULL, NULL, NULL,
+									   NULL);
+						/* msg 97: "add EXTERNAL FILE not allowed" */
+					}
+					if (!GET_STRING(ptr, REL.RDB$EXTERNAL_FILE)) {
+						DYN_rundown_request(old_env, request, -1);
+						DYN_error_punt(FALSE, 98, NULL, NULL, NULL, NULL,
+									   NULL);
+						/* msg 98: "drop EXTERNAL FILE not allowed" */
+					}
+					break;
+
+				case gds__dyn_description:
+					if (DYN_put_text_blob(gbl, ptr, &REL.RDB$DESCRIPTION))
+						REL.RDB$DESCRIPTION.NULL = FALSE;
+					else
+						REL.RDB$DESCRIPTION.NULL = TRUE;
+					break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+				case gds__dyn_description2:
+					if (DYN_put_text_blob2(gbl, ptr, &REL.RDB$DESCRIPTION))
+						REL.RDB$DESCRIPTION.NULL = FALSE;
+					else
+						REL.RDB$DESCRIPTION.NULL = TRUE;
+					break;
+#endif
+				default:
+					--(*ptr);
+					DYN_execute(gbl, ptr, name, field_name,
+								NULL_PTR, NULL_PTR, NULL_PTR);
+				}
+		END_MODIFY;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_m_relation))
+		DYN_REQUEST(drq_m_relation) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (!found)
+		DYN_error_punt(FALSE, 101, NULL, NULL, NULL, NULL, NULL);
+	/* msg 101: "Relation field not found" */
+}
+
+
+void DYN_modify_trigger( GBL gbl, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	D Y N _ m o d i f y _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify a trigger for a relation.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	USHORT found;
+	UCHAR verb, *blr;
+	TEXT trigger_name[32], *source;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_m_trigger, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 102, NULL, NULL, NULL, NULL, NULL);
+		/* msg 102: "MODIFY TRIGGER failed" */
+	}
+
+	GET_STRING(ptr, trigger_name);
+	source = NULL;
+	blr = NULL;
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$TRIGGERS WITH X.RDB$TRIGGER_NAME EQ trigger_name
+
+        if (!DYN_REQUEST(drq_m_trigger))
+            DYN_REQUEST(drq_m_trigger) = request;
+
+		found = TRUE;
+		MODIFY X
+			while ((verb = *(*ptr)++) != gds__dyn_end)
+				switch (verb) {
+				case gds__dyn_trg_name:
+					GET_STRING(ptr, X.RDB$TRIGGER_NAME);
+					break;
+
+				case gds__dyn_trg_type:
+					X.RDB$TRIGGER_TYPE = DYN_get_number(ptr);
+					X.RDB$TRIGGER_TYPE.NULL = FALSE;
+					break;
+
+				case gds__dyn_trg_sequence:
+					X.RDB$TRIGGER_SEQUENCE = DYN_get_number(ptr);
+					X.RDB$TRIGGER_SEQUENCE.NULL = FALSE;
+					break;
+
+				case gds__dyn_trg_inactive:
+					X.RDB$TRIGGER_INACTIVE = DYN_get_number(ptr);
+					X.RDB$TRIGGER_INACTIVE.NULL = FALSE;
+					break;
+
+				case gds__dyn_rel_name:
+					GET_STRING(ptr, X.RDB$RELATION_NAME);
+					X.RDB$RELATION_NAME.NULL = FALSE;
+					break;
+
+				case gds__dyn_trg_blr:
+					blr = *ptr;
+					DYN_skip_attribute(ptr);
+					DYN_put_blr_blob(gbl, &blr, &X.RDB$TRIGGER_BLR);
+					X.RDB$TRIGGER_BLR.NULL = FALSE;
+					break;
+
+				case gds__dyn_trg_source:
+					source = (TEXT *) * ptr;
+					DYN_skip_attribute(ptr);
+					DYN_put_text_blob(gbl, &source, &X.RDB$TRIGGER_SOURCE);
+					X.RDB$TRIGGER_SOURCE.NULL = FALSE;
+					break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+				case gds__dyn_trg_source2:
+					source = (TEXT *) * ptr;
+					DYN_skip_attribute2(ptr);
+					DYN_put_text_blob2(gbl, &source, &X.RDB$TRIGGER_SOURCE);
+					X.RDB$TRIGGER_SOURCE.NULL = FALSE;
+					break;
+#endif
+
+				case gds__dyn_description:
+					DYN_put_text_blob(gbl, ptr, &X.RDB$DESCRIPTION);
+					X.RDB$DESCRIPTION.NULL = FALSE;
+					break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+				case gds__dyn_description2:
+					DYN_put_text_blob2(gbl, ptr, &X.RDB$DESCRIPTION);
+					X.RDB$DESCRIPTION.NULL = FALSE;
+					break;
+#endif
+
+				default:
+					--(*ptr);
+					DYN_execute(gbl, ptr, NULL_PTR, NULL_PTR,
+								trigger_name, NULL_PTR, NULL_PTR);
+				}
+		END_MODIFY;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_m_trigger))
+		DYN_REQUEST(drq_m_trigger) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	if (!found)
+		DYN_error_punt(FALSE, 147, trigger_name, NULL, NULL, NULL, NULL);
+	/* msg 147: "Trigger %s not found" */
+}
+
+
+void DYN_modify_trigger_msg( GBL gbl, UCHAR ** ptr, TEXT * trigger_name)
+{
+/**************************************
+ *
+ *	D Y N _ m o d i f y _ t r i g g e r _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify a trigger message.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	int number;
+	UCHAR verb;
+	TEXT t[32];
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_m_trg_msg, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 105, NULL, NULL, NULL, NULL, NULL);
+		/* msg 105: "MODIFY TRIGGER MESSAGE failed" */
+	}
+
+	number = DYN_get_number(ptr);
+	if (trigger_name)
+		strcpy(t, trigger_name);
+	else if (*(*ptr)++ == gds__dyn_trg_name)
+		GET_STRING(ptr, t);
+	else
+		DYN_error_punt(FALSE, 103, NULL, NULL, NULL, NULL, NULL);
+	/* msg 103: "TRIGGER NAME expected" */
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$TRIGGER_MESSAGES
+			WITH X.RDB$MESSAGE_NUMBER EQ number AND X.RDB$TRIGGER_NAME EQ t
+
+        if (!DYN_REQUEST(drq_m_trg_msg))
+            DYN_REQUEST(drq_m_trg_msg) = request;
+
+		MODIFY X
+			while ((verb = *(*ptr)++) != gds__dyn_end)
+				switch (verb) {
+				case gds__dyn_trg_msg_number:
+					X.RDB$MESSAGE_NUMBER = DYN_get_number(ptr);
+					X.RDB$MESSAGE_NUMBER.NULL = FALSE;
+					break;
+
+				case gds__dyn_trg_msg:
+					GET_STRING(ptr, X.RDB$MESSAGE);
+					X.RDB$MESSAGE.NULL = FALSE;
+					break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+				case gds__dyn_trg_msg2:
+					DYN_get_string2(ptr, X.RDB$MESSAGE,
+									sizeof(X.RDB$MESSAGE));
+					X.RDB$MESSAGE.NULL = FALSE;
+					break;
+#endif
+
+				default:
+					DYN_unsupported_verb();
+				}
+		END_MODIFY;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_m_trg_msg))
+		DYN_REQUEST(drq_m_trg_msg) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+static void drop_cache( GBL gbl)
+{
+/**************************************
+ *
+ *	d r o p _ c a c h e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop the database cache
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	JMP_BUF env, *old_env;
+	USHORT found = FALSE;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_d_cache, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, drq_s_cache);
+		DYN_error_punt(TRUE, 63, NULL, NULL, NULL, NULL, NULL);
+		/* msg 63: ERASE RDB$FILE failed */
+	}
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$FILES WITH X.RDB$FILE_FLAGS EQ FILE_cache 
+
+        ERASE X;
+		found = TRUE;
+
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_d_cache))
+		DYN_REQUEST(drq_d_cache) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	if (!found)
+		DYN_error_punt(FALSE, 149, NULL, NULL, NULL, NULL, NULL);
+	/* msg 149: "Shared cache file not found" */
+}
+
+
+static void drop_log( GBL gbl)
+{
+/**************************************
+ *
+ *	d r o p _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete all log files
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	JMP_BUF env, *old_env;
+	USHORT found = FALSE;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_d_log, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, drq_d_log);
+		DYN_error_punt(TRUE, 153, NULL, NULL, NULL, NULL, NULL);
+		/* msg 153: ERASE RDB$LOG_FILE failed */
+	}
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		X IN RDB$LOG_FILES 
+
+        ERASE X;
+		found = TRUE;
+	END_FOR;
+
+	if (!DYN_REQUEST(drq_d_log))
+		DYN_REQUEST(drq_d_log) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	if (!found)
+		DYN_error_punt(FALSE, 152, NULL, NULL, NULL, NULL, NULL);
+	/* msg 152: "Write ahead log not found" */
+}
+
+static void modify_lfield_position(TDBB tdbb,
+								   DBB dbb,
+								   GBL gbl,
+								   TEXT * relation_name,
+								   TEXT * field_name,
+								   USHORT new_position,
+								   USHORT existing_position)
+{
+/***********************************************************
+ *
+ *  m o d i f y _ l f i e l d _ p o s i t i o n
+ ***********************************************************
+ *
+ *  Functional Description:
+ *     Alters the position of a field with respect to the 
+ *     other fields in the relation.  This will only affect
+ *     the order in which the fields will be returned when either
+ *     viewing the relation or performing select * from the relation.
+ *
+ *     The rules of engagement are as follows:
+ *          if new_position > original position
+ *             increase RDB$FIELD_POSITION for all fields with RDB$FIELD_POSITION 
+ *             between the new_position and existing position of the field
+ *	       then update the position of the field being altered.
+ *              just update the position
+ *
+ *          if new_position < original position
+ *             decrease RDB$FIELD_POSITION for all fields with RDB$FIELD_POSITION 
+ *             between the new_position and existing position of the field
+ *	       then update the position of the field being altered.
+ *
+ *	    if new_position == original_position -- no_op
+ *
+ ***********************************************************/
+	VOLATILE BLK request = NULL;
+	USHORT new_pos = 0;
+	SLONG max_position = -1;
+	JMP_BUF env, *old_env;
+	BOOLEAN move_down = FALSE;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_error_punt(TRUE, 95, NULL, NULL, NULL, NULL, NULL);
+		/* msg 95: "MODIFY RDB$RELATION_FIELDS failed" */
+	}
+
+/* Find the position of the last field in the relation */
+	DYN_UTIL_generate_field_position(tdbb, gbl, relation_name, &max_position);
+
+/* if the existing position of the field is less than the new position of
+ * the field, subtract 1 to move the fields to their new positions otherwise,
+ * increase the value in RDB$FIELD_POSITION by one
+ */
+
+	if (existing_position < new_position)
+		move_down = TRUE;
+
+/* Retrieve the records for the fields which have a position between the
+ * existing field position and the new field position
+ */
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FLD IN RDB$RELATION_FIELDS 
+        WITH FLD.RDB$RELATION_NAME EQ relation_name AND 
+        FLD.RDB$FIELD_POSITION >= MIN(new_position, existing_position) AND 
+        FLD.RDB$FIELD_POSITION <= MAX(new_position, existing_position)
+		MODIFY FLD USING
+			/* If the field is the one we want, change the position, otherwise
+			 * increase the value of RDB$FIELD_POSITION
+			 */
+			MET_exact_name(FLD.RDB$FIELD_NAME);
+			if (strcmp(FLD.RDB$FIELD_NAME, field_name) == 0) {
+				if (new_position > max_position)
+					/* This prevents gaps in the position sequence of the
+					 * fields */
+					FLD.RDB$FIELD_POSITION = max_position;
+				else
+					FLD.RDB$FIELD_POSITION = new_position;
+			}
+			else {
+				if (move_down)
+					FLD.RDB$FIELD_POSITION = FLD.RDB$FIELD_POSITION - 1;
+				else
+					FLD.RDB$FIELD_POSITION = FLD.RDB$FIELD_POSITION + 1;
+			}
+
+			FLD.RDB$FIELD_POSITION.NULL = FALSE;
+		END_MODIFY;
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)request);
+	request = NULL;
+
+/* Once the field position has been changed, make sure that there are no
+ * duplicate field positions and no gaps in the position sequence (this can
+ * not be guaranteed by the query above */
+
+	new_pos = 0;
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FLD IN RDB$RELATION_FIELDS WITH FLD.RDB$RELATION_NAME EQ relation_name
+			SORTED BY ASCENDING FLD.RDB$FIELD_POSITION
+
+        if (FLD.RDB$FIELD_POSITION != new_pos) {
+			MODIFY FLD USING
+				FLD.RDB$FIELD_POSITION = new_pos;
+			END_MODIFY;
+		}
+		new_pos += 1;
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)request);
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+static BOOLEAN check_view_dependency(TDBB tdbb,
+									 DBB dbb,
+									 GBL gbl,
+									 TEXT * relation_name, TEXT * field_name)
+{
+/***********************************************************
+ *
+ *  c h e c k _ v i e w _ d e p e n d e n c y
+ ***********************************************************
+ *
+ *  Functional Description:
+ *	Checks to see if the given field is referenced in a view. If the field
+ *	is referenced in a view, return TRUE, else return FALSE
+ *
+ ***********************************************************/
+	BLK request = NULL;
+	BOOLEAN retval = FALSE;
+	TEXT *view_name;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FIRST 1
+			X IN RDB$RELATION_FIELDS CROSS Y IN RDB$RELATION_FIELDS CROSS
+			Z IN RDB$VIEW_RELATIONS WITH
+			X.RDB$RELATION_NAME EQ relation_name AND
+			X.RDB$FIELD_NAME EQ field_name AND
+			X.RDB$FIELD_NAME EQ Y.RDB$BASE_FIELD AND
+			X.RDB$FIELD_SOURCE EQ Y.RDB$FIELD_SOURCE AND
+			Y.RDB$RELATION_NAME EQ Z.RDB$VIEW_NAME AND
+			X.RDB$RELATION_NAME EQ Z.RDB$RELATION_NAME AND
+			Y.RDB$VIEW_CONTEXT EQ Z.RDB$VIEW_CONTEXT 
+        retval = TRUE;
+		view_name = Z.RDB$VIEW_NAME;
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)request);
+
+	if (retval)
+		DYN_error_punt(FALSE, 206, field_name, relation_name, view_name, NULL,
+					   NULL);
+	/* msg 206: Column %s from table %s is referenced in  %s. */
+
+	return retval;
+
+}
+
+static BOOLEAN check_sptrig_dependency(TDBB tdbb,
+									   DBB dbb,
+									   GBL gbl,
+									   TEXT * relation_name,
+									   TEXT * field_name)
+{
+/***********************************************************
+ *
+ *  c h e c k _ s p t r i g _ d e p e n d e n c y
+ ***********************************************************
+ *
+ *  Functional Description:
+ *	Checks to see if the given field is referenced in a stored procedure
+ *	or trigger.  If the field is refereneced, return TRUE, else return
+ *	FALSE 
+ ***********************************************************/
+	BLK request = NULL;
+	BOOLEAN retval = FALSE;
+	TEXT *dep_name;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FIRST 1
+			DEP IN RDB$DEPENDENCIES WITH
+			DEP.RDB$DEPENDED_ON_NAME EQ relation_name AND
+			DEP.RDB$FIELD_NAME EQ field_name 
+        retval = TRUE;
+		dep_name = DEP.RDB$DEPENDENT_NAME;
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)request);
+
+	if (retval)
+		DYN_error_punt(FALSE, 206, field_name, relation_name, dep_name, NULL,
+					   NULL);
+	/* msg 206: Column %s from table %s is referenced in %s. */
+
+	return retval;
+}
+
+static void modify_lfield_index(TDBB	tdbb,
+								DBB		dbb,
+								GBL		gbl,
+								TEXT*	relation_name,
+								TEXT*	field_name,
+								TEXT*	new_fld_name)
+{
+/***********************************************************
+ *
+ *  m o d i f y _ l f i e l d _ i n d e x
+ ***********************************************************
+ *
+ *  Functional Description:
+ *	Updates the field names in an index and forces the index to be rebuilt
+ *	with the new field names
+ *
+ ***********************************************************/
+	BLK request = NULL;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		IDX IN RDB$INDICES CROSS IDXS IN RDB$INDEX_SEGMENTS WITH
+			IDX.RDB$INDEX_NAME EQ IDXS.RDB$INDEX_NAME AND
+			IDX.RDB$RELATION_NAME EQ relation_name AND
+			IDXS.RDB$FIELD_NAME EQ field_name
+			/* Change the name of the field in the index */
+		MODIFY IDXS USING
+			MOVE_FASTER(new_fld_name, IDXS.RDB$FIELD_NAME,
+						sizeof(IDXS.RDB$FIELD_NAME));
+		END_MODIFY;
+
+		/* Set the index name to itself to tell the index to rebuild */
+		MODIFY IDX USING
+			MOVE_FASTER(IDX.RDB$INDEX_NAME, IDX.RDB$INDEX_NAME,
+						sizeof(IDX.RDB$INDEX_NAME));
+		END_MODIFY;
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)request);
+}
+
+static BOOLEAN field_exists(TDBB tdbb,
+							DBB dbb,
+							GBL gbl, TEXT * relation_name, TEXT * field_name)
+{
+/***********************************************************
+ *
+ *  f i e l d _ e x i s t s
+ ***********************************************************
+ *
+ *  Functional Description:
+ *	Checks to see if the given field already exists in a relation
+ ***********************************************************/
+	BLK request = NULL;
+	BOOLEAN retval = FALSE;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FLD IN RDB$RELATION_FIELDS WITH
+			FLD.RDB$RELATION_NAME EQ relation_name AND
+			FLD.RDB$FIELD_NAME EQ field_name 
+        retval = TRUE;
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)request);
+	return retval;
+}
+
+static BOOLEAN domain_exists(TDBB tdbb, DBB dbb, GBL gbl, TEXT * field_name)
+{
+/***********************************************************
+ *
+ *  d o m a i n _ e x i s t s
+ ***********************************************************
+ *
+ *  Functional Description:
+ *	Checks to see if the given field already exists in a relation
+ ***********************************************************/
+	BLK request = NULL;
+	BOOLEAN retval = FALSE;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FLD IN RDB$FIELDS WITH FLD.RDB$FIELD_NAME EQ field_name 
+        retval = TRUE;
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)request);
+	return retval;
+}
+
+void DYN_modify_sql_field(GBL		gbl,
+						  UCHAR**	ptr,
+						  TEXT*		relation_name,
+						  TEXT*		field_name)
+{
+/**************************************
+ *
+ *	D Y N _ m o d i f y _ sql _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic ddl statement 
+ *      to modify the datatype of a field.
+ *
+ *  If there are dependencies on the field, abort the operation
+ *  unless the dependency is an index.  In this case, rebuild the 
+ *  index once the operation has completed.
+ *
+ *  If the original datatype of the field was a domain:
+ *     if the new type is a domain, just make the change to the new domain
+ *     if it exists
+ *
+ *     if the new type is a base type, just make the change
+ *
+ *  If the original datatype of the field was a base type:
+ *     if the new type is a base type, just make the change
+ *
+ *     if the new type is a domain, make the change to the field
+ *     definition and remove the entry for RDB$FIELD_SOURCE from the original
+ *     field.  In other words ... clean up after ourselves
+ *
+ *  The following conversions are not allowed:
+ *        Blob to anything
+ *        Array to anything
+ *        Date to anything
+ *        Char to any numeric
+ *        Varchar to any numeric
+ *        Anything to Blob
+ *        Anything to Array
+ *
+ *  The following operations return a warning
+ *        Decreasing the length of a char (varchar) field
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request = NULL, first_request;
+	UCHAR verb;
+	JMP_BUF env, *old_env;
+	BOOLEAN found = FALSE, update_domain = FALSE;
+	BOOLEAN dtype, scale, prec, subtype, charlen, collation, fldlen, nullflg,
+		charset;
+	DYN_FLD orig_fld, new_fld, dom_fld;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	dtype = scale = prec = subtype = charlen = collation = fldlen = nullflg =
+		charset = FALSE;
+
+	if (SETJMP(env)) {
+		if (new_fld)
+			gds__free((SLONG *) new_fld);
+
+		if (dom_fld)
+			gds__free((SLONG *) dom_fld);
+
+		if (orig_fld)
+			gds__free((SLONG *) orig_fld);
+
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		DYN_error_punt(TRUE, 95, NULL, NULL, NULL, NULL, NULL);
+		/* msg 95: "MODIFY RDB$RELATION_FIELDS failed" */
+	}
+
+/* Allocate the field structures */
+	orig_fld = (DYN_FLD) gds__alloc(sizeof(struct dyn_fld));
+	if (!orig_fld)
+		DYN_error_punt(FALSE, 211, NULL, NULL, NULL, NULL, NULL);
+
+	MOVE_CLEAR(orig_fld, sizeof(struct dyn_fld));
+
+	new_fld = (DYN_FLD) gds__alloc(sizeof(struct dyn_fld));
+	if (!new_fld)
+		DYN_error_punt(FALSE, 211, NULL, NULL, NULL, NULL, NULL);
+	MOVE_CLEAR(new_fld, sizeof(struct dyn_fld));
+
+	dom_fld = (DYN_FLD) gds__alloc(sizeof(struct dyn_fld));
+	if (!dom_fld)
+		DYN_error_punt(FALSE, 211, NULL, NULL, NULL, NULL, NULL);
+	MOVE_CLEAR(dom_fld, sizeof(struct dyn_fld));
+
+	GET_STRING(ptr, orig_fld->dyn_fld_name);
+
+/* check to see if the field being altered is involved in any type of dependency.
+ * If there is a dependency, call DYN_error_punt (inside the function).
+ */
+	check_sptrig_dependency(tdbb, dbb, gbl, relation_name,
+							orig_fld->dyn_fld_name);
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		RFR IN RDB$RELATION_FIELDS WITH RFR.RDB$RELATION_NAME = relation_name
+			AND RFR.RDB$FIELD_NAME = orig_fld->dyn_fld_name
+        first_request = request;
+		request = NULL;
+
+		found = TRUE;
+
+		FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+			FLD IN RDB$FIELDS WITH FLD.RDB$FIELD_NAME = RFR.RDB$FIELD_SOURCE
+				/* Get information about the original field type.  If a conversion 
+				 * can not be at any time made between
+				 * the two datatypes, error.
+				 */
+				DSC_make_descriptor(&orig_fld->dyn_dsc,
+									FLD.RDB$FIELD_TYPE,
+									FLD.RDB$FIELD_SCALE,
+									FLD.RDB$FIELD_LENGTH,
+									FLD.RDB$FIELD_SUB_TYPE,
+									FLD.RDB$CHARACTER_SET_ID,
+									FLD.RDB$COLLATION_ID);
+
+			orig_fld->dyn_dtype = FLD.RDB$FIELD_TYPE;
+			orig_fld->dyn_precision = FLD.RDB$FIELD_PRECISION;
+			orig_fld->dyn_charlen = FLD.RDB$CHARACTER_LENGTH;
+			orig_fld->dyn_collation = FLD.RDB$COLLATION_ID;
+			orig_fld->dyn_null_flag = FLD.RDB$NULL_FLAG;
+
+			strcpy(orig_fld->dyn_fld_source, RFR.RDB$FIELD_SOURCE);
+
+			/* If the original field type is an array, force its blr type to blr_blob */
+			if (FLD.RDB$DIMENSIONS != 0)
+				orig_fld->dyn_dtype = blr_blob;
+
+			while ((verb = *(*ptr)++) != gds__dyn_end) {
+				switch (verb) {
+				case gds__dyn_fld_source:
+					GET_STRING(ptr, dom_fld->dyn_fld_source);
+					get_domain_type(tdbb, dbb, gbl, dom_fld);
+					update_domain = TRUE;
+					break;
+
+				case gds__dyn_rel_name:
+					GET_STRING(ptr, new_fld->dyn_rel_name);
+					break;
+
+				case gds__dyn_fld_length:
+					fldlen = TRUE;
+					new_fld->dyn_dsc.dsc_length = DYN_get_number(ptr);
+					break;
+
+				case gds__dyn_fld_type:
+					dtype = TRUE;
+					new_fld->dyn_dtype = DYN_get_number(ptr);
+
+					switch (new_fld->dyn_dtype) {
+					case blr_text:
+					case blr_text2:
+					case blr_varying:
+					case blr_varying2:
+					case blr_cstring:
+					case blr_cstring2:
+						new_fld->dyn_dsc.dsc_length =
+							DSC_string_length(&new_fld->dyn_dsc);
+						break;
+
+					case blr_short:
+						new_fld->dyn_dsc.dsc_length = 2;
+						break;
+
+					case blr_long:
+					case blr_float:
+						new_fld->dyn_dsc.dsc_length = 4;
+						break;
+
+					case blr_int64:
+					case blr_sql_time:
+					case blr_sql_date:
+					case blr_timestamp:
+					case blr_double:
+					case blr_d_float:
+						new_fld->dyn_dsc.dsc_length = 8;
+						break;
+
+					default:
+						break;
+					}
+					break;
+
+				case gds__dyn_fld_scale:
+					scale = TRUE;
+					new_fld->dyn_dsc.dsc_scale = DYN_get_number(ptr);
+					break;
+
+				case isc_dyn_fld_precision:
+					prec = TRUE;
+					new_fld->dyn_precision = DYN_get_number(ptr);
+					break;
+
+				case gds__dyn_fld_sub_type:
+					subtype = TRUE;
+					new_fld->dyn_dsc.dsc_sub_type = DYN_get_number(ptr);
+					break;
+
+				case gds__dyn_fld_char_length:
+					charlen = TRUE;
+					new_fld->dyn_charlen = DYN_get_number(ptr);
+					break;
+
+				case gds__dyn_fld_collation:
+					collation = TRUE;
+					new_fld->dyn_collation = DYN_get_number(ptr);
+					break;
+
+				case gds__dyn_fld_character_set:
+					charset = TRUE;
+					new_fld->dyn_charset = DYN_get_number(ptr);
+					break;
+
+				case gds__dyn_fld_not_null:
+					nullflg = TRUE;
+					new_fld->dyn_null_flag = TRUE;
+					break;
+
+				case gds__dyn_fld_dimensions:
+					new_fld->dyn_dtype = blr_blob;
+					break;
+
+					/* These should only be defined for BLOB types and should not come through with
+					 * any other types.  BLOB types are detected above
+					 */
+
+				case gds__dyn_fld_segment_length:
+					DYN_get_number(ptr);
+					break;
+
+				default:
+					--(*ptr);
+					DYN_execute(gbl, ptr, relation_name, RFR.RDB$FIELD_SOURCE,
+								NULL_PTR, NULL_PTR, NULL_PTR);
+				}
+			}
+		END_FOR; /* FLD in RDB$FIELDS */
+		CMP_release(tdbb, (REQ)request);
+		request = NULL;
+
+		/* Now that we have all of the information needed, let's check to see if the field type can be modifed */
+
+
+		if (update_domain) {
+			ULONG retval;
+
+			DSC_make_descriptor(&dom_fld->dyn_dsc,
+								dom_fld->dyn_dtype,
+								dom_fld->dyn_dsc.dsc_scale,
+								dom_fld->dyn_dsc.dsc_length,
+								dom_fld->dyn_dsc.dsc_sub_type,
+								dom_fld->dyn_charset, dom_fld->dyn_collation);
+
+			if ((retval = check_update_fld_type(orig_fld, dom_fld)) !=
+				SUCCESS) modify_err_punt(tdbb, retval, orig_fld, dom_fld);
+
+			/* if the original definition was a base field type, remove the entries from RDB$FIELDS */
+			if (!strncmp(orig_fld->dyn_fld_source, "RDB$", 4)) {
+				FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+					FLD IN RDB$FIELDS WITH FLD.RDB$FIELD_NAME =
+						RFR.RDB$FIELD_SOURCE 
+                    ERASE FLD;
+				END_FOR;
+
+				CMP_release(tdbb, (REQ)request);
+				request = NULL;
+			}
+			request = first_request;
+			MODIFY RFR USING
+				strcpy(RFR.RDB$FIELD_SOURCE, dom_fld->dyn_fld_source);
+				RFR.RDB$FIELD_SOURCE.NULL = FALSE;
+			END_MODIFY;
+			first_request = request;
+		}
+		else {
+			ULONG retval;
+
+			DSC_make_descriptor(&new_fld->dyn_dsc,
+								new_fld->dyn_dtype,
+								new_fld->dyn_dsc.dsc_scale,
+								new_fld->dyn_dsc.dsc_length,
+								new_fld->dyn_dsc.dsc_sub_type,
+								new_fld->dyn_charset, new_fld->dyn_collation);
+
+			if ((retval = check_update_fld_type(orig_fld, new_fld)) !=
+				SUCCESS) modify_err_punt(tdbb, retval, orig_fld, new_fld);
+
+			/* check to see if the original data type for the field was based on a domain.  If it
+			 * was (and now it isn't), remove the domain information and replace it with a generated
+			 * field name for RDB$FIELDS
+			 */
+
+			if (strncmp(orig_fld->dyn_fld_source, "RDB$", 4)) {
+				request = first_request;
+				MODIFY RFR USING
+					DYN_UTIL_generate_field_name(tdbb, gbl,
+												 RFR.RDB$FIELD_SOURCE);
+					strcpy(new_fld->dyn_fld_name, RFR.RDB$FIELD_SOURCE);
+				END_MODIFY;
+				first_request = request;
+				request = NULL;
+
+				STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+					FLD IN RDB$FIELDS 
+                    FLD.RDB$SYSTEM_FLAG.NULL = TRUE;
+					FLD.RDB$FIELD_SCALE.NULL = TRUE;
+					FLD.RDB$FIELD_PRECISION.NULL = TRUE;
+					FLD.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+					FLD.RDB$SEGMENT_LENGTH.NULL = TRUE;
+					FLD.RDB$COMPUTED_BLR.NULL = TRUE;
+					FLD.RDB$COMPUTED_SOURCE.NULL = TRUE;
+					FLD.RDB$DEFAULT_VALUE.NULL = TRUE;
+					FLD.RDB$DEFAULT_SOURCE.NULL = TRUE;
+					FLD.RDB$VALIDATION_BLR.NULL = TRUE;
+					FLD.RDB$VALIDATION_SOURCE.NULL = TRUE;
+					FLD.RDB$NULL_FLAG.NULL = TRUE;
+					FLD.RDB$EDIT_STRING.NULL = TRUE;
+					FLD.RDB$DIMENSIONS.NULL = TRUE;
+					FLD.RDB$CHARACTER_LENGTH.NULL = TRUE;
+					FLD.RDB$CHARACTER_SET_ID.NULL = TRUE;
+					FLD.RDB$COLLATION_ID.NULL = TRUE;
+
+					if (dtype) {
+						FLD.RDB$FIELD_TYPE = new_fld->dyn_dtype;
+						FLD.RDB$FIELD_TYPE.NULL = FALSE;
+					}
+
+					if (scale) {
+						FLD.RDB$FIELD_SCALE = new_fld->dyn_dsc.dsc_scale;
+						FLD.RDB$FIELD_SCALE.NULL = FALSE;
+					}
+
+					if (prec) {
+						FLD.RDB$FIELD_PRECISION = new_fld->dyn_precision;
+						FLD.RDB$FIELD_PRECISION.NULL = FALSE;
+					}
+
+					if (subtype) {
+						FLD.RDB$FIELD_SUB_TYPE =
+							new_fld->dyn_dsc.dsc_sub_type;
+						FLD.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+					}
+
+					if (charlen) {
+						FLD.RDB$CHARACTER_LENGTH = new_fld->dyn_charlen;
+						FLD.RDB$CHARACTER_LENGTH.NULL = FALSE;
+					}
+
+					if (fldlen) {
+						FLD.RDB$FIELD_LENGTH = new_fld->dyn_dsc.dsc_length;
+						FLD.RDB$FIELD_LENGTH.NULL = FALSE;
+					}
+
+					/* Copy the field name into RDB$FIELDS */
+					strcpy(FLD.RDB$FIELD_NAME, new_fld->dyn_fld_name);
+				END_STORE;
+
+				CMP_release(tdbb, (REQ)request);
+				request = NULL;
+			}
+			else {				/* the original and new definitions are both base types */
+
+				FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+					FLD IN RDB$FIELDS WITH FLD.RDB$FIELD_NAME = RFR.RDB$FIELD_SOURCE
+					MODIFY FLD USING
+
+						if (dtype) {
+							FLD.RDB$FIELD_TYPE = new_fld->dyn_dtype;
+							FLD.RDB$FIELD_TYPE.NULL = FALSE;
+						}
+
+						if (scale) {
+							FLD.RDB$FIELD_SCALE = new_fld->dyn_dsc.dsc_scale;
+							FLD.RDB$FIELD_SCALE.NULL = FALSE;
+						}
+
+						if (prec) {
+							FLD.RDB$FIELD_PRECISION = new_fld->dyn_precision;
+							FLD.RDB$FIELD_PRECISION.NULL = FALSE;
+						}
+
+						if (subtype) {
+							FLD.RDB$FIELD_SUB_TYPE =
+								new_fld->dyn_dsc.dsc_sub_type;
+							FLD.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+						}
+
+						if (charlen) {
+							FLD.RDB$CHARACTER_LENGTH = new_fld->dyn_charlen;
+							FLD.RDB$CHARACTER_LENGTH.NULL = FALSE;
+						}
+
+						if (fldlen) {
+							FLD.RDB$FIELD_LENGTH =
+								new_fld->dyn_dsc.dsc_length;
+							FLD.RDB$FIELD_LENGTH.NULL = FALSE;
+						}
+
+					END_MODIFY;
+				END_FOR; /* FLD in RDB$FIELDS */
+				CMP_release(tdbb, (REQ)request);
+				request = NULL;
+			}
+		}						/* else not a domain */
+		request = first_request;
+	END_FOR; /* RFR IN RDB$RELATION_FIELDS */
+	CMP_release(tdbb, (REQ)request);
+	request = NULL;
+
+	if (!found)
+		DYN_error_punt(FALSE, 96, NULL, NULL, NULL, NULL, NULL);
+	/* msg 96: "Local column not found" */
+
+/* Update any indicies that exist */
+	modify_lfield_index(tdbb, dbb, gbl, relation_name, orig_fld->dyn_fld_name,
+						orig_fld->dyn_fld_name);
+
+	if (new_fld)
+		gds__free((SLONG *) new_fld);
+
+	if (dom_fld)
+		gds__free((SLONG *) dom_fld);
+
+	if (orig_fld)
+		gds__free((SLONG *) orig_fld);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+void get_domain_type(TDBB tdbb, DBB dbb, GBL gbl, DYN_FLD dom_fld)
+{
+/**************************************
+ *
+ *	g e t _ d o m a i n _ t y p e	
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrives the type information for a domain so
+ *      that it can be compared to a local field before
+ *      modifying the datatype of a field.
+ *
+ **************************************/
+	BLK request = NULL;
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		FLD IN RDB$FIELDS WITH FLD.RDB$FIELD_NAME EQ dom_fld->dyn_fld_source;
+
+		DSC_make_descriptor(&dom_fld->dyn_dsc,
+							FLD.RDB$FIELD_TYPE,
+							FLD.RDB$FIELD_SCALE,
+							FLD.RDB$FIELD_LENGTH,
+							FLD.RDB$FIELD_SUB_TYPE,
+							FLD.RDB$CHARACTER_SET_ID, FLD.RDB$COLLATION_ID);
+
+		dom_fld->dyn_dtype = FLD.RDB$FIELD_TYPE;
+		dom_fld->dyn_precision = FLD.RDB$FIELD_PRECISION;
+		dom_fld->dyn_charlen = FLD.RDB$CHARACTER_LENGTH;
+		dom_fld->dyn_collation = FLD.RDB$COLLATION_ID;
+		dom_fld->dyn_null_flag = FLD.RDB$NULL_FLAG;
+
+	END_FOR;
+	CMP_release(tdbb, (REQ)request);
+}
+
+static ULONG check_update_fld_type(DYN_FLD orig_fld, DYN_FLD new_fld)
+{
+/**************************************
+ *
+ *	c h e c k _ u p d a t e _ f l d _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare the original field type with the new field type to
+ *      determine if the original type can be changed to the new type
+ *
+ *  The following conversions are not allowed:
+ *        Blob to anything
+ *        Array to anything
+ *        Date to anything
+ *        Char to any numeric
+ *        Varchar to any numeric
+ *        Anything to Blob
+ *        Anything to Array
+ *
+ *  This function returns an error code if the conversion can not be
+ *  made.  If the conversion can be made, SUCCESS is returned
+ **************************************/
+
+
+/* Check to make sure that the old and new types are compatible */
+	switch (orig_fld->dyn_dtype) {
+/* CHARACTER types */
+	case blr_text:
+	case blr_varying:
+	case blr_cstring:
+		switch (new_fld->dyn_dtype) {
+		case blr_blob:
+		case blr_blob_id:
+			return isc_dyn_dtype_invalid;
+			/* Cannot change datatype for column %s.
+			   The operation cannot be performed on BLOB, or ARRAY columns. */
+			break;
+
+		case blr_sql_date:
+		case blr_sql_time:
+		case blr_timestamp:
+		case blr_int64:
+		case blr_long:
+		case blr_short:
+		case blr_d_float:
+		case blr_double:
+		case blr_float:
+			return isc_dyn_dtype_conv_invalid;
+			/* Cannot convert column %s from character to non-character data. */
+			break;
+
+			/* If the original field is a character field and the new field is a character field, 
+			 * is there enough space in the new field? */
+		case blr_text:
+		case blr_varying:
+		case blr_cstring:
+			{
+				USHORT maxflen = 0;
+
+				maxflen = DSC_string_length(&orig_fld->dyn_dsc);
+
+				if (new_fld->dyn_dsc.dsc_length < maxflen)
+					return isc_dyn_char_fld_too_small;
+				/* New size specified for column %s must be greater than %d characters. */
+			}
+			break;
+
+		default:
+			assert(FALSE);
+			return 87;			/* MODIFY RDB$FIELDS FAILED */
+		}
+		break;
+
+/* BLOB and ARRAY types */
+	case blr_blob:
+	case blr_blob_id:
+		return isc_dyn_dtype_invalid;
+		/* Cannot change datatype for column %s.
+		   The operation cannot be performed on BLOB, or ARRAY columns. */
+		break;
+
+/* DATE types */
+	case blr_sql_date:
+	case blr_sql_time:
+	case blr_timestamp:
+		switch (new_fld->dyn_dtype) {
+		case blr_sql_date:
+			if (orig_fld->dyn_dtype == blr_sql_time)
+				return isc_dyn_invalid_dtype_conversion;
+			/* Cannot change datatype for column %s.  Conversion from base type %s to base type %s is not supported. */
+			break;
+
+		case blr_sql_time:
+			if (orig_fld->dyn_dtype == blr_sql_date)
+				return isc_dyn_invalid_dtype_conversion;
+			/* Cannot change datatype for column %s.  Conversion from base type %s to base type %s is not supported. */
+			break;
+
+		case blr_timestamp:
+			if (orig_fld->dyn_dtype == blr_sql_time)
+				return isc_dyn_invalid_dtype_conversion;
+			/* Cannot change datatype for column %s.  Conversion from base type %s to base type %s is not supported. */
+			break;
+
+			/* If the original field is a date field and the new field is a character field, 
+			   * is there enough space in the new field? */
+		case blr_text:
+		case blr_text2:
+		case blr_varying:
+		case blr_varying2:
+		case blr_cstring:
+		case blr_cstring2:
+			{
+				USHORT maxflen = 0;
+
+				maxflen = DSC_string_length(&orig_fld->dyn_dsc);
+
+				if (new_fld->dyn_dsc.dsc_length < maxflen)
+					return isc_dyn_char_fld_too_small;
+				/* New size specified for column %s must be greater than %d characters. */
+			}
+
+			break;
+
+		default:
+			return isc_dyn_invalid_dtype_conversion;
+			/* Cannot change datatype for column %s.  Conversion from base type %s to base type %s is not supported. */
+		}
+		break;
+
+/* NUMERIC types */
+	case blr_int64:
+	case blr_long:
+	case blr_short:
+	case blr_d_float:
+	case blr_double:
+	case blr_float:
+		switch (new_fld->dyn_dtype) {
+		case blr_blob:
+		case blr_blob_id:
+			return isc_dyn_dtype_invalid;
+			/* Cannot change datatype for column %s.
+			   The operation cannot be performed on BLOB, or ARRAY columns. */
+			break;
+
+		case blr_sql_date:
+		case blr_sql_time:
+		case blr_timestamp:
+			return isc_dyn_invalid_dtype_conversion;
+			/* Cannot change datatype for column %s.  Conversion from base type %s to base type %s is not supported. */
+
+			/* If the original field is a numeric field and the new field is a numeric field,
+			 * is there enough space in the new field (do not allow the base type to decrease) */
+
+		case blr_short:
+			switch (orig_fld->dyn_dtype) {
+			case blr_short:
+				break;
+			default:
+				return isc_dyn_invalid_dtype_conversion;
+				/* Cannot change datatype for column %s.  Conversion from base type %s to base type %s is not supported. */
+			}
+			break;
+
+		case blr_long:
+			switch (orig_fld->dyn_dtype) {
+			case blr_long:
+			case blr_short:
+				break;
+			default:
+				return isc_dyn_invalid_dtype_conversion;
+				/* Cannot change datatype for column %s.  Conversion from base type %s to base type %s is not supported. */
+			}
+			break;
+
+		case blr_float:
+			switch (orig_fld->dyn_dtype) {
+			case blr_float:
+			case blr_short:
+				break;
+
+			default:
+				return isc_dyn_invalid_dtype_conversion;
+				/* Cannot change datatype for column %s.  Conversion from base type %s to base type %s is not supported. */
+			}
+			break;
+
+		case blr_int64:
+			switch (orig_fld->dyn_dtype) {
+			case blr_int64:
+			case blr_long:
+			case blr_short:
+				break;
+
+			default:
+				return isc_dyn_invalid_dtype_conversion;
+				/* Cannot change datatype for column %s.  Conversion from base type %s to base type %s is not supported. */
+			}
+			break;
+
+		case blr_d_float:
+		case blr_double:
+			switch (orig_fld->dyn_dtype) {
+			case blr_double:
+			case blr_d_float:
+			case blr_float:
+			case blr_short:
+			case blr_long:
+				break;
+
+			default:
+				return isc_dyn_invalid_dtype_conversion;
+				/* Cannot change datatype for column %s.  Conversion from base type %s to base type %s is not supported. */
+			}
+			break;
+
+			/* If the original field is a numeric field and the new field is a character field, 
+			 * is there enough space in the new field? */
+		case blr_text:
+		case blr_varying:
+		case blr_cstring:
+			{
+				USHORT maxflen = 0;
+
+				maxflen = DSC_string_length(&orig_fld->dyn_dsc);
+
+				if (new_fld->dyn_dsc.dsc_length < maxflen)
+					return isc_dyn_char_fld_too_small;
+				/* New size specified for column %s must be greater than %d characters. */
+			}
+			break;
+
+		default:
+			assert(FALSE);
+			return 87;			/* MODIFY RDB$FIELDS FAILED */
+		}
+		break;
+
+	default:
+		assert(FALSE);
+		return 87;				/* MODIFY RDB$FIELDS FAILED */
+	}
+	return SUCCESS;
+}
+
+static void modify_err_punt(TDBB tdbb,
+							ULONG errorcode,
+							DYN_FLD orig_fld_def, DYN_FLD new_fld_def)
+{
+/**************************************
+ *
+ *	m o d i f y _ e r r _ p u n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	A generic error routine that calls DYN_error_punt
+ *      based on the error code returned by check_update_field_type.
+ *     
+ *      This function is called by DYN_modify_global_field and by   
+ *	DYN_modify_sql_field
+ **************************************/
+
+
+	switch (errorcode) {
+	case isc_dyn_dtype_invalid:
+		DYN_error_punt(FALSE, 207, orig_fld_def->dyn_fld_name, NULL, NULL,
+					   NULL, NULL);
+		/* Cannot change datatype for column %s.The operation cannot be performed on DATE, BLOB, or ARRAY columns. */
+		break;
+
+	case isc_dyn_dtype_conv_invalid:
+		DYN_error_punt(FALSE, 210, orig_fld_def->dyn_fld_name, NULL, NULL,
+					   NULL, NULL);
+		/* Cannot convert column %s from character to non-character data. */
+		break;
+
+	case isc_dyn_char_fld_too_small:
+		/* TMN: Bad, bad, bad cast. int -> TEXT* */
+		DYN_error_punt(FALSE,
+						208,
+						orig_fld_def->dyn_fld_name,
+						(TEXT*)DSC_string_length(&orig_fld_def->dyn_dsc),
+						NULL,
+						NULL,
+						NULL);
+		/* msg 208: New size specified for column %s must be greater than %d characters. */
+		break;
+
+	case isc_dyn_invalid_dtype_conversion:
+		{
+			TEXT orig_type[25], new_type[25];
+
+			DSC_get_dtype_name(&orig_fld_def->dyn_dsc, orig_type,
+							   sizeof(orig_type));
+			DSC_get_dtype_name(&new_fld_def->dyn_dsc, new_type,
+							   sizeof(new_type));
+
+			DYN_error_punt(FALSE, 209, orig_fld_def->dyn_fld_name, orig_type,
+						   new_type, NULL, NULL);
+			/* Cannot convert base type %s to base type %s. */
+			break;
+		}
+
+	default:
+		DYN_error_punt(TRUE, 95, NULL, NULL, NULL, NULL, NULL);
+		/* msg 95: "MODIFY RDB$RELATION_FIELDS failed" */
+	}
+}
diff --git a/src/jrd/dyn_proto.h b/src/jrd/dyn_proto.h
new file mode 100644
index 0000000000..4d5f47fffb
--- /dev/null
+++ b/src/jrd/dyn_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		dyn_proto.h
+ *	DESCRIPTION:	Prototype Header file for dyn.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_DYN_PROTO_H_
+#define _JRD_DYN_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void DYN_ddl(struct att *, struct tra *, USHORT, UCHAR *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_DYN_PROTO_H_ */
diff --git a/src/jrd/dyn_ut_proto.h b/src/jrd/dyn_ut_proto.h
new file mode 100644
index 0000000000..d57e84c639
--- /dev/null
+++ b/src/jrd/dyn_ut_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		dyn_ut_proto.h
+ *	DESCRIPTION:	Prototype Header file for dyn_util.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#ifndef _JRD_DYN_UT_PROTO_H_
+#define _JRD_DYN_UT_PROTO_H_
+
+extern void DYN_UTIL_store_check_constraints(TDBB, GBL, TEXT *, TEXT *);
+extern BOOLEAN DYN_UTIL_get_prot(TDBB, GBL, SCHAR *, SCHAR *, USHORT *);
+extern void DYN_UTIL_generate_trigger_name(TDBB, GBL, TEXT *);
+extern void DYN_UTIL_generate_index_name(TDBB, GBL, TEXT *, UCHAR);
+extern void DYN_UTIL_generate_field_position(TDBB, GBL, TEXT *, SLONG *);
+extern void DYN_UTIL_generate_field_name(TDBB, GBL, TEXT *);
+extern void DYN_UTIL_generate_constraint_name(TDBB, GBL, TEXT *);
+extern SINT64 DYN_UTIL_gen_unique_id(TDBB, GBL, SSHORT, SCHAR *, BLK *);
+
+#endif /* _JRD_DYN_UT_PROTO_H_ */
diff --git a/src/jrd/dyn_util.e b/src/jrd/dyn_util.e
new file mode 100644
index 0000000000..47b6ce3438
--- /dev/null
+++ b/src/jrd/dyn_util.e
@@ -0,0 +1,598 @@
+/*
+ *	PROGRAM:	JRD Data Definition Utility
+ *	MODULE:		dyn_util.e
+ *	DESCRIPTION:	Dynamic data definition - utility functions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+#include <string.h>
+
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../jrd/jrd.h"
+#include "../jrd/tra.h"
+#include "../jrd/scl.h"
+#include "../jrd/drq.h"
+#include "../jrd/flags.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/lls.h"
+#include "../jrd/all.h"
+#include "../jrd/met.h"
+#include "../jrd/btr.h"
+#include "../jrd/intl.h"
+#include "../jrd/dyn.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dyn_proto.h"
+#include "../jrd/dyn_md_proto.h"
+#include "../jrd/dyn_ut_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/inf_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/vio_proto.h"
+#ifndef WINDOWS_ONLY
+#include "../jrd/ail.h"
+#endif
+
+#ifdef SUPERSERVER
+#define V4_THREADING
+#endif
+#include "../jrd/nlm_thd.h"
+
+DATABASE DB = STATIC "yachts.gdb";
+
+static CONST SCHAR gen_id_blr1[] = {
+	blr_version5,
+	blr_begin,
+	blr_message, 0, 1, 0,
+#ifndef EXACT_NUMERICS
+	blr_long, 0,
+#else
+	blr_int64, 0,
+#endif
+	blr_begin,
+	blr_send, 0,
+	blr_begin,
+	blr_assignment,
+	blr_gen_id
+}, gen_id_blr2[] = {
+	blr_literal, blr_long, 0, 1, 0, 0, 0,
+		blr_parameter, 0, 0, 0, blr_end, blr_end, blr_end, blr_eoc};
+
+static CONST SCHAR prot_blr[] = {
+	blr_version5,
+	blr_begin,
+	blr_message, 1, 1, 0,
+	blr_short, 0,
+	blr_message, 0, 2, 0,
+	blr_cstring, 32, 0,
+	blr_cstring, 32, 0,
+	blr_receive, 0,
+	blr_begin,
+	blr_send, 1,
+	blr_begin,
+	blr_assignment,
+	blr_prot_mask,
+	blr_parameter, 0, 0, 0,
+	blr_parameter, 0, 1, 0,
+	blr_parameter, 1, 0, 0,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_eoc
+};
+
+
+
+SINT64 DYN_UTIL_gen_unique_id(TDBB		tdbb,
+							  GBL		gbl,
+							  SSHORT	id,
+							  SCHAR*	generator_name,
+							  BLK*		request)
+{
+/**************************************
+ *
+ *	D Y N _ U T I L _g e n _ u n i q u e _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a unique id using a generator.
+ *
+ **************************************/
+	DBB dbb;
+	REQ req_handle;
+#ifndef EXACT_NUMERICS
+	SLONG value;
+#else
+	SINT64 value;
+#endif
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	req_handle = CMP_find_request(tdbb, id, DYN_REQUESTS);
+
+	if (!req_handle)
+	{
+		/* 32 bytes allocated for size of of a metadata name */
+		SCHAR blr[sizeof(gen_id_blr1) + sizeof(gen_id_blr2) + 1 + 32], *p;
+		assert(strlen(generator_name) < 32);
+
+		p = blr;
+		memcpy(p, gen_id_blr1, sizeof(gen_id_blr1));
+		p += sizeof(gen_id_blr1);
+		*p++ = strlen(generator_name);
+		strcpy(p, generator_name);
+		p += p[-1];
+		memcpy(p, gen_id_blr2, sizeof(gen_id_blr2));
+		p += sizeof(gen_id_blr2);
+		req_handle = CMP_compile2(tdbb, blr, TRUE);
+	}
+	*request = (BLK)req_handle;
+	EXE_start(tdbb, req_handle, dbb->dbb_sys_trans);
+	EXE_receive(tdbb, req_handle, 0, sizeof(value), (UCHAR*)&value);
+	EXE_unwind(tdbb, req_handle);
+	*request = NULL;
+
+	if (!DYN_REQUEST(id)) {
+		DYN_REQUEST(id) = (BLK)req_handle;
+	}
+
+	return value;
+}
+
+
+void DYN_UTIL_generate_constraint_name( TDBB tdbb, GBL gbl, TEXT * buffer)
+{
+/**************************************
+ *
+ *	D Y N _ U T I L _g e n e r a t e _ c o n s t r a i n t _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a name unique to RDB$RELATION_CONSTRAINTS.
+ *
+ **************************************/
+	DBB dbb;
+	VOLATILE BLK request;
+	USHORT found;
+	VOLATILE SSHORT id;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+	id = -1;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, id);
+		DYN_error_punt(TRUE, 131, NULL, NULL, NULL, NULL, NULL);
+		/* msg 131: "Generation of constraint name failed" */
+	}
+
+	do {
+		id = drq_g_nxt_con;
+		sprintf(buffer, "INTEG_%" QUADFORMAT "d",
+				(SINT64) DYN_UTIL_gen_unique_id(tdbb,
+												gbl,
+												drq_g_nxt_con,
+												"RDB$CONSTRAINT_NAME",
+				/* cast away volatile - bad */	(BLK*)&request));
+
+		request = (BLK) CMP_find_request(tdbb, drq_f_nxt_con, DYN_REQUESTS);
+		id = drq_f_nxt_con;
+
+		found = FALSE;
+		FOR(REQUEST_HANDLE request)
+			FIRST 1 X IN RDB$RELATION_CONSTRAINTS
+				WITH X.RDB$CONSTRAINT_NAME EQ buffer
+
+            if (!DYN_REQUEST(drq_f_nxt_con))
+                DYN_REQUEST(drq_f_nxt_con) = request;
+			found = TRUE;
+		END_FOR;
+
+		if (!DYN_REQUEST(drq_f_nxt_con))
+			DYN_REQUEST(drq_f_nxt_con) = request;
+		request = NULL;
+	} while (found);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_UTIL_generate_field_name( TDBB tdbb, GBL gbl, TEXT * buffer)
+{
+/**************************************
+ *
+ *	D Y N _ U T I L _g e n e r a t e _ f i e l d _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a name unique to RDB$FIELDS.
+ *
+ **************************************/
+	DBB dbb;
+	VOLATILE BLK request;
+	USHORT found;
+	VOLATILE SSHORT id;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+	id = -1;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, id);
+		DYN_error_punt(TRUE, 81, NULL, NULL, NULL, NULL, NULL);
+		/* msg 81: "Generation of field name failed" */
+	}
+
+	do {
+		id = drq_g_nxt_fld;
+		sprintf(buffer, "RDB$%" QUADFORMAT "d",
+				(SINT64) DYN_UTIL_gen_unique_id(tdbb,
+												gbl,
+												drq_g_nxt_fld,
+												"RDB$FIELD_NAME",
+				/* cast away volatile - bad */	(BLK*)&request));
+
+		request = (BLK) CMP_find_request(tdbb, drq_f_nxt_fld, DYN_REQUESTS);
+		id = drq_f_nxt_fld;
+
+		found = FALSE;
+		FOR(REQUEST_HANDLE request)
+			FIRST 1 X IN RDB$FIELDS WITH X.RDB$FIELD_NAME EQ buffer
+
+            if (!DYN_REQUEST(drq_f_nxt_fld))
+				DYN_REQUEST(drq_f_nxt_fld) = request;
+			found = TRUE;
+		END_FOR;
+
+		if (!DYN_REQUEST(drq_f_nxt_fld))
+			DYN_REQUEST(drq_f_nxt_fld) = request;
+		request = NULL;
+	} while (found);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_UTIL_generate_field_position(
+									  TDBB tdbb,
+									  GBL gbl,
+									  TEXT * relation_name, SLONG * field_pos)
+{
+/**************************************
+ *
+ *	D Y N _ U T I L _g e n e r a t e _ f i e l d _ p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a field position if not specified
+ *
+ **************************************/
+	DBB dbb;
+	VOLATILE BLK request;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+	SLONG field_position = -1;
+
+	if (!relation_name)
+		return;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, -1);
+		DYN_error_punt(TRUE, 162, NULL, NULL, NULL, NULL, NULL);
+		/* msg 162: "Looking up field position failed" */
+	}
+
+	request = (BLK) CMP_find_request(tdbb, drq_l_fld_pos, DYN_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$RELATION_FIELDS
+			WITH X.RDB$RELATION_NAME EQ relation_name
+
+        if (!DYN_REQUEST(drq_l_fld_pos))
+            DYN_REQUEST(drq_l_fld_pos) = request;
+
+		if (X.RDB$FIELD_POSITION.NULL)
+			continue;
+
+		field_position = MAX(X.RDB$FIELD_POSITION, field_position);
+	END_FOR;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	*field_pos = field_position;
+}
+
+
+void DYN_UTIL_generate_index_name(
+								  TDBB tdbb,
+								  GBL gbl, TEXT * buffer, UCHAR verb)
+{
+/**************************************
+ *
+ *	D Y N _ U T I L _g e n e r a t e _ i n d e x _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a name unique to RDB$INDICES.
+ *
+ **************************************/
+	DBB dbb;
+	VOLATILE BLK request;
+	USHORT found;
+	VOLATILE SSHORT id;
+	SCHAR *format;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+	id = -1;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, id);
+		DYN_error_punt(TRUE, 82, NULL, NULL, NULL, NULL, NULL);
+		/* msg 82: "Generation of index name failed" */
+	}
+
+	do {
+		if (verb == gds__dyn_def_primary_key)
+			format = "RDB$PRIMARY%" QUADFORMAT "d";
+		else if (verb == gds__dyn_def_foreign_key)
+			format = "RDB$FOREIGN%" QUADFORMAT "d";
+		else
+			format = "RDB$%" QUADFORMAT "d";
+		id = drq_g_nxt_idx;
+		sprintf(buffer, format,
+				(SINT64) DYN_UTIL_gen_unique_id(tdbb,
+												gbl,
+												drq_g_nxt_idx,
+												"RDB$INDEX_NAME",
+				/* cast away volatile - bad */	(BLK*)&request));
+
+		request = (BLK) CMP_find_request(tdbb, drq_f_nxt_idx, DYN_REQUESTS);
+		id = drq_f_nxt_idx;
+
+		found = FALSE;
+		FOR(REQUEST_HANDLE request)
+			FIRST 1 X IN RDB$INDICES WITH X.RDB$INDEX_NAME EQ buffer
+
+            if (!DYN_REQUEST(drq_f_nxt_idx))
+				DYN_REQUEST(drq_f_nxt_idx) = request;
+			found = TRUE;
+		END_FOR;
+
+		if (!DYN_REQUEST(drq_f_nxt_idx))
+			DYN_REQUEST(drq_f_nxt_idx) = request;
+		request = NULL;
+	} while (found);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void DYN_UTIL_generate_trigger_name( TDBB tdbb, GBL gbl, TEXT * buffer)
+{
+/**************************************
+ *
+ *	D Y N _ U T I L _g e n e r a t e _ t r i g g e r _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a name unique to RDB$TRIGGERS.
+ *
+ **************************************/
+	DBB dbb;
+	VOLATILE BLK request;
+	USHORT found;
+	VOLATILE SSHORT id;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = NULL;
+	id = -1;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		DYN_rundown_request(old_env, request, id);
+		DYN_error_punt(TRUE, 83, NULL, NULL, NULL, NULL, NULL);
+		/* msg 83: "Generation of trigger name failed" */
+	}
+
+	do {
+		id = drq_g_nxt_trg;
+		sprintf(buffer, "CHECK_%" QUADFORMAT "d",
+				(SINT64) DYN_UTIL_gen_unique_id(tdbb,
+												gbl,
+												drq_g_nxt_trg,
+												"RDB$TRIGGER_NAME",
+				/* cast away volatile - bad */	(BLK*)&request));
+
+		request = (BLK) CMP_find_request(tdbb, drq_f_nxt_trg, DYN_REQUESTS);
+		id = drq_f_nxt_trg;
+
+		found = FALSE;
+		FOR(REQUEST_HANDLE request)
+			FIRST 1 X IN RDB$TRIGGERS WITH X.RDB$TRIGGER_NAME EQ buffer
+
+            if (!DYN_REQUEST(drq_f_nxt_trg))
+				DYN_REQUEST(drq_f_nxt_trg) = request;
+			found = TRUE;
+		END_FOR;
+
+		if (!DYN_REQUEST(drq_f_nxt_trg))
+			DYN_REQUEST(drq_f_nxt_trg) = request;
+		request = NULL;
+	} while (found);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+BOOLEAN DYN_UTIL_get_prot(TDBB		tdbb,
+						  GBL		gbl,
+						  SCHAR*	rname,
+						  SCHAR*	fname,
+						  USHORT*	prot_mask)
+{
+/**************************************
+ *
+ *	D Y N _ U T I L _g e t _ p r o t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get protection mask for relation or relation_field
+ *
+ **************************************/
+	VOLATILE REQ request;
+	struct
+	{
+		SCHAR relation_name[32];
+		SCHAR field_name[32];
+	} in_msg;
+
+	JMP_BUF		env;
+	JMP_BUF*	VOLATILE old_env;
+
+	SET_TDBB(tdbb);
+
+	request = CMP_find_request(tdbb, drq_l_prot_mask, DYN_REQUESTS);
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env))
+	{
+		/* Note that the following cast to BLK not only changes
+		 * the type, it also casts away volatile!
+		 */
+		DYN_rundown_request(old_env, (BLK)request, drq_l_prot_mask);
+		return FAILURE;
+	}
+
+	if (!request)
+	{
+		request = CMP_compile2(tdbb,
+								(SCHAR*)prot_blr, /* const_cast */
+								TRUE);
+	}
+	gds__vtov(rname, in_msg.relation_name, sizeof(in_msg.relation_name));
+	gds__vtov(fname, in_msg.field_name, sizeof(in_msg.field_name));
+	EXE_start(tdbb, request, gbl->gbl_transaction);
+	EXE_send(tdbb, request, 0, sizeof(in_msg), (UCHAR*)&in_msg);
+	EXE_receive(tdbb, request, 1, sizeof(USHORT), (UCHAR*)prot_mask);
+
+	/*
+	 * The "(BLK)" cast, casts away volatile AND changes
+	 * type at the same time - bad
+	 */
+	DYN_rundown_request(old_env,
+						(BLK)request,
+						drq_l_prot_mask);
+
+	return SUCCESS;
+}
+
+
+void DYN_UTIL_store_check_constraints(TDBB	tdbb,
+									  GBL	gbl,
+									  TEXT*	constraint_name,
+									  TEXT*	trigger_name)
+{
+/**************************************
+ *
+ *	D Y N _ U T I L _s t o r e _ c h e c k _ c o n s t r a i n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	DBB dbb;
+	VOLATILE BLK request;
+	JMP_BUF env;
+	JMP_BUF *VOLATILE old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, drq_s_chk_con, DYN_REQUESTS);
+
+	STORE(REQUEST_HANDLE request TRANSACTION_HANDLE gbl->gbl_transaction)
+		CHK IN RDB$CHECK_CONSTRAINTS
+        strcpy(CHK.RDB$CONSTRAINT_NAME, constraint_name);
+		strcpy(CHK.RDB$TRIGGER_NAME, trigger_name);
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env)) {
+			DYN_rundown_request(old_env, request, drq_s_chk_con);
+			DYN_error_punt(TRUE, 122, NULL, NULL, NULL, NULL, NULL);
+			/* msg 122: "STORE RDB$CHECK_CONSTRAINTS failed" */
+		}
+	END_STORE;
+
+	if (!DYN_REQUEST(drq_s_chk_con))
+		DYN_REQUEST(drq_s_chk_con) = request;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
diff --git a/src/jrd/enc.cpp b/src/jrd/enc.cpp
new file mode 100644
index 0000000000..8ea3e35c60
--- /dev/null
+++ b/src/jrd/enc.cpp
@@ -0,0 +1,1017 @@
+#include "../jrd/common.h"
+#include "../jrd/enc_proto.h"
+
+#if (defined NETWARE_386 || defined PC_PLATFORM || \
+	defined WIN_NT || defined VMS)
+#define NO_CRYPT
+#define CRYPT_FUNC	local_crypt
+static TEXT *local_crypt(TEXT *, TEXT *);
+#endif
+
+#ifndef NO_CRYPT
+extern TEXT *crypt();
+#define CRYPT_FUNC	crypt
+#endif
+
+
+extern "C" {
+
+
+/* Changed prototype from DLL_EXPORT to API_ROUTINE - Jeevan */
+#ifndef NO_CRYPT
+TEXT *DLL_EXPORT ENC_crypt(TEXT * string, TEXT * salt)
+{
+/**************************************
+ *
+ *	E N C _ c r y p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Encrypt a string.   If the string is over
+ *	8 bytes, the remaining bytes are not significant.
+ *
+ **************************************/
+
+	return CRYPT_FUNC(string, salt);
+}
+#endif
+
+
+#ifdef NO_CRYPT
+/*
+ * Copyright (c) 1989 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Tom Truscott.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef NULL
+#define NULL		((char*) 0)
+#endif
+
+int des_setkey(register const char *key);
+int des_cipher(const char *in, char *out, long salt, int num_iter);
+
+#if defined(LIBC_SCCS) && !defined(lint)
+static char sccsid[] = "@(#)crypt.c	5.11 (Berkeley) 6/25/91";
+#endif /* LIBC_SCCS and not lint */
+
+/*
+ * UNIX password, and DES, encryption.
+ * By Tom Truscott, trt@rti.rti.org,
+ * from algorithms by Robert W. Baldwin and James Gillogly.
+ *
+ * References:
+ * "Mathematical Cryptology for Computer Scientists and Mathematicians,"
+ * by Wayne Patterson, 1987, ISBN 0-8476-7438-X.
+ *
+ * "Password Security: A Case History," R. Morris and Ken Thompson,
+ * Communications of the ACM, vol. 22, pp. 594-597, Nov. 1979.
+ *
+ * "DES will be Totally Insecure within Ten Years," M.E. Hellman,
+ * IEEE Spectrum, vol. 16, pp. 32-39, July 1979.
+ */
+
+/* =====  Configuration ==================== */
+
+/*
+ * define "MUST_ALIGN" if your compiler cannot load/store
+ * long integers at arbitrary (e.g. odd) memory locations.
+ * (Either that or never pass unaligned addresses to des_cipher!)
+ */
+#if !defined(vax)
+#define	MUST_ALIGN
+#endif
+
+#ifdef CHAR_BITS
+#if CHAR_BITS != 8
+#error C_block structure assumes 8 bit characters
+#endif
+#endif
+
+/*
+ * define "LONG_IS_32_BITS" only if sizeof(long)==4.
+ * This avoids use of bit fields (your compiler may be sloppy with them).
+ */
+#define	LONG_IS_32_BITS
+
+/*
+ * define "B64" to be the declaration for a 64 bit integer.
+ * XXX this feature is currently unused, see "endian" comment below.
+ */
+#if defined(convex)
+#define	B64	long long
+#endif
+
+/*
+ * define "LARGEDATA" to get faster permutations, by using about 72 kilobytes
+ * of lookup tables.  This speeds up des_setkey() and des_cipher(), but has
+ * little effect on crypt().
+ */
+#if defined(notdef)
+#define	LARGEDATA
+#endif
+
+/* compile with "-DSTATIC=int" when profiling */
+#ifndef STATIC
+#define	STATIC	static
+#endif
+
+/* ==================================== */
+
+/*
+ * Cipher-block representation (Bob Baldwin):
+ *
+ * DES operates on groups of 64 bits, numbered 1..64 (sigh).  One
+ * representation is to store one bit per byte in an array of bytes.  Bit N of
+ * the NBS spec is stored as the LSB of the Nth byte (index N-1) in the array.
+ * Another representation stores the 64 bits in 8 bytes, with bits 1..8 in the
+ * first byte, 9..16 in the second, and so on.  The DES spec apparently has
+ * bit 1 in the MSB of the first byte, but that is particularly noxious so we
+ * bit-reverse each byte so that bit 1 is the LSB of the first byte, bit 8 is
+ * the MSB of the first byte.  Specifically, the 64-bit input data and key are
+ * converted to LSB format, and the output 64-bit block is converted back into
+ * MSB format.
+ *
+ * DES operates internally on groups of 32 bits which are expanded to 48 bits
+ * by permutation E and shrunk back to 32 bits by the S boxes.  To speed up
+ * the computation, the expansion is applied only once, the expanded
+ * representation is maintained during the encryption, and a compression
+ * permutation is applied only at the end.  To speed up the S-box lookups,
+ * the 48 bits are maintained as eight 6 bit groups, one per byte, which
+ * directly feed the eight S-boxes.  Within each byte, the 6 bits are the
+ * most significant ones.  The low two bits of each byte are zero.  (Thus,
+ * bit 1 of the 48 bit E expansion is stored as the "4"-valued bit of the
+ * first byte in the eight byte representation, bit 2 of the 48 bit value is
+ * the "8"-valued bit, and so on.)  In fact, a combined "SPE"-box lookup is
+ * used, in which the output is the 64 bit result of an S-box lookup which
+ * has been permuted by P and expanded by E, and is ready for use in the next
+ * iteration.  Two 32-bit wide tables, SPE[0] and SPE[1], are used for this
+ * lookup.  Since each byte in the 48 bit path is a multiple of four, indexed
+ * lookup of SPE[0] and SPE[1] is simple and fast.  The key schedule and
+ * "salt" are also converted to this 8*(6+2) format.  The SPE table size is
+ * 8*64*8 = 4K bytes.
+ *
+ * To speed up bit-parallel operations (such as XOR), the 8 byte
+ * representation is "union"ed with 32 bit values "i0" and "i1", and, on
+ * machines which support it, a 64 bit value "b64".  This data structure,
+ * "C_block", has two problems.  First, alignment restrictions must be
+ * honored.  Second, the byte-order (e.g. little-endian or big-endian) of
+ * the architecture becomes visible.
+ *
+ * The byte-order problem is unfortunate, since on the one hand it is good
+ * to have a machine-independent C_block representation (bits 1..8 in the
+ * first byte, etc.), and on the other hand it is good for the LSB of the
+ * first byte to be the LSB of i0.  We cannot have both these things, so we
+ * currently use the "little-endian" representation and avoid any multi-byte
+ * operations that depend on byte order.  This largely precludes use of the
+ * 64-bit datatype since the relative order of i0 and i1 are unknown.  It
+ * also inhibits grouping the SPE table to look up 12 bits at a time.  (The
+ * 12 bits can be stored in a 16-bit field with 3 low-order zeroes and 1
+ * high-order zero, providing fast indexing into a 64-bit wide SPE.)  On the
+ * other hand, 64-bit datatypes are currently rare, and a 12-bit SPE lookup
+ * requires a 128 kilobyte table, so perhaps this is not a big loss.
+ *
+ * Permutation representation (Jim Gillogly):
+ *
+ * A transformation is defined by its effect on each of the 8 bytes of the
+ * 64-bit input.  For each byte we give a 64-bit output that has the bits in
+ * the input distributed appropriately.  The transformation is then the OR
+ * of the 8 sets of 64-bits.  This uses 8*256*8 = 16K bytes of storage for
+ * each transformation.  Unless LARGEDATA is defined, however, a more compact
+ * table is used which looks up 16 4-bit "chunks" rather than 8 8-bit chunks.
+ * The smaller table uses 16*16*8 = 2K bytes for each transformation.  This
+ * is slower but tolerable, particularly for password encryption in which
+ * the SPE transformation is iterated many times.  The small tables total 9K
+ * bytes, the large tables total 72K bytes.
+ *
+ * The transformations used are:
+ * IE3264: MSB->LSB conversion, initial permutation, and expansion.
+ *	This is done by collecting the 32 even-numbered bits and applying
+ *	a 32->64 bit transformation, and then collecting the 32 odd-numbered
+ *	bits and applying the same transformation.  Since there are only
+ *	32 input bits, the IE3264 transformation table is half the size of
+ *	the usual table.
+ * CF6464: Compression, final permutation, and LSB->MSB conversion.
+ *	This is done by two trivial 48->32 bit compressions to obtain
+ *	a 64-bit block (the bit numbering is given in the "CIFP" table)
+ *	followed by a 64->64 bit "cleanup" transformation.  (It would
+ *	be possible to group the bits in the 64-bit block so that 2
+ *	identical 32->32 bit transformations could be used instead,
+ *	saving a factor of 4 in space and possibly 2 in time, but
+ *	byte-ordering and other complications rear their ugly head.
+ *	Similar opportunities/problems arise in the key schedule
+ *	transforms.)
+ * PC1ROT: MSB->LSB, PC1 permutation, rotate, and PC2 permutation.
+ *	This admittedly baroque 64->64 bit transformation is used to
+ *	produce the first code (in 8*(6+2) format) of the key schedule.
+ * PC2ROT[0]: Inverse PC2 permutation, rotate, and PC2 permutation.
+ *	It would be possible to define 15 more transformations, each
+ *	with a different rotation, to generate the entire key schedule.
+ *	To save space, however, we instead permute each code into the
+ *	next by using a transformation that "undoes" the PC2 permutation,
+ *	rotates the code, and then applies PC2.  Unfortunately, PC2
+ *	transforms 56 bits into 48 bits, dropping 8 bits, so PC2 is not
+ *	invertible.  We get around that problem by using a modified PC2
+ *	which retains the 8 otherwise-lost bits in the unused low-order
+ *	bits of each byte.  The low-order bits are cleared when the
+ *	codes are stored into the key schedule.
+ * PC2ROT[1]: Same as PC2ROT[0], but with two rotations.
+ *	This is faster than applying PC2ROT[0] twice,
+ *
+ * The Bell Labs "salt" (Bob Baldwin):
+ *
+ * The salting is a simple permutation applied to the 48-bit result of E.
+ * Specifically, if bit i (1 <= i <= 24) of the salt is set then bits i and
+ * i+24 of the result are swapped.  The salt is thus a 24 bit number, with
+ * 16777216 possible values.  (The original salt was 12 bits and could not
+ * swap bits 13..24 with 36..48.)
+ *
+ * It is possible, but ugly, to warp the SPE table to account for the salt
+ * permutation.  Fortunately, the conditional bit swapping requires only
+ * about four machine instructions and can be done on-the-fly with about an
+ * 8% performance penalty.
+ */
+
+typedef union {
+	unsigned char b[8];
+	struct {
+#if defined(LONG_IS_32_BITS)
+		/* long is often faster than a 32-bit bit field */
+		long i0;
+		long i1;
+#else
+		long i0:32;
+		long i1:32;
+#endif
+	} b32;
+#if defined(B64)
+	B64 b64;
+#endif
+} C_block;
+
+
+/*
+ * Convert twenty-four-bit long in host-order
+ * to six bits (and 2 low-order zeroes) per char little-endian format.
+ */
+#define	TO_SIX_BIT(rslt, src) {				\
+		C_block cvt;				\
+		cvt.b[0] = (unsigned char)src; src >>= 6;		\
+		cvt.b[1] = (unsigned char)src; src >>= 6;		\
+		cvt.b[2] = (unsigned char)src; src >>= 6;		\
+		cvt.b[3] = (unsigned char)src;				\
+		rslt = (cvt.b32.i0 & 0x3f3f3f3fL) << 2;	\
+	}
+
+/*
+ * These macros may someday permit efficient use of 64-bit integers.
+ */
+#define	ZERO(d,d0,d1)			d0 = 0, d1 = 0
+#define	LOAD(d,d0,d1,bl)		d0 = (bl).b32.i0, d1 = (bl).b32.i1
+#define	LOADREG(d,d0,d1,s,s0,s1)	d0 = s0, d1 = s1
+#define	OR(d,d0,d1,bl)			d0 |= (bl).b32.i0, d1 |= (bl).b32.i1
+#define	STORE(s,s0,s1,bl)		(bl).b32.i0 = s0, (bl).b32.i1 = s1
+#define	DCL_BLOCK(d,d0,d1)		long d0, d1
+
+#if defined(LARGEDATA)
+	/* Waste memory like crazy.  Also, do permutations in line */
+#define	LGCHUNKBITS	3
+#define	CHUNKBITS	(1<<LGCHUNKBITS)
+#define	PERM6464(d,d0,d1,cpp,p)				\
+	LOAD(d,d0,d1,(p)[(0<<CHUNKBITS)+(cpp)[0]]);		\
+	OR (d,d0,d1,(p)[(1<<CHUNKBITS)+(cpp)[1]]);		\
+	OR (d,d0,d1,(p)[(2<<CHUNKBITS)+(cpp)[2]]);		\
+	OR (d,d0,d1,(p)[(3<<CHUNKBITS)+(cpp)[3]]);		\
+	OR (d,d0,d1,(p)[(4<<CHUNKBITS)+(cpp)[4]]);		\
+	OR (d,d0,d1,(p)[(5<<CHUNKBITS)+(cpp)[5]]);		\
+	OR (d,d0,d1,(p)[(6<<CHUNKBITS)+(cpp)[6]]);		\
+	OR (d,d0,d1,(p)[(7<<CHUNKBITS)+(cpp)[7]]);
+#define	PERM3264(d,d0,d1,cpp,p)				\
+	LOAD(d,d0,d1,(p)[(0<<CHUNKBITS)+(cpp)[0]]);		\
+	OR (d,d0,d1,(p)[(1<<CHUNKBITS)+(cpp)[1]]);		\
+	OR (d,d0,d1,(p)[(2<<CHUNKBITS)+(cpp)[2]]);		\
+	OR (d,d0,d1,(p)[(3<<CHUNKBITS)+(cpp)[3]]);
+#else
+	/* "small data" */
+#define	LGCHUNKBITS	2
+#define	CHUNKBITS	(1<<LGCHUNKBITS)
+#define	PERM6464(d,d0,d1,cpp,p)				\
+	{ C_block tblk; permute(cpp,&tblk,p,8); LOAD (d,d0,d1,tblk); }
+#define	PERM3264(d,d0,d1,cpp,p)				\
+	{ C_block tblk; permute(cpp,&tblk,p,4); LOAD (d,d0,d1,tblk); }
+
+
+STATIC void init_des();
+STATIC void init_perm(C_block perm[64 / CHUNKBITS][1 << CHUNKBITS],
+					  unsigned char p[64], int chars_in, int chars_out);
+
+
+STATIC permute(unsigned char *cp, C_block * out, C_block * p, int chars_in)
+{
+	register DCL_BLOCK(D, D0, D1);
+	register C_block *tp;
+	register int t;
+
+	ZERO(D, D0, D1);
+	do {
+		t = *cp++;
+		tp = &p[t & 0xf];
+		OR(D, D0, D1, *tp);
+		p += (1 << CHUNKBITS);
+		tp = &p[t >> 4];
+		OR(D, D0, D1, *tp);
+		p += (1 << CHUNKBITS);
+	} while (--chars_in > 0);
+	STORE(D, D0, D1, *out);
+
+/* function should return a value */
+	return 0;
+}
+#endif /* LARGEDATA */
+
+
+/* =====  (mostly) Standard DES Tables ==================== */
+
+static unsigned char IP[] = {	/* initial permutation */
+	58, 50, 42, 34, 26, 18, 10, 2,
+	60, 52, 44, 36, 28, 20, 12, 4,
+	62, 54, 46, 38, 30, 22, 14, 6,
+	64, 56, 48, 40, 32, 24, 16, 8,
+	57, 49, 41, 33, 25, 17, 9, 1,
+	59, 51, 43, 35, 27, 19, 11, 3,
+	61, 53, 45, 37, 29, 21, 13, 5,
+	63, 55, 47, 39, 31, 23, 15, 7,
+};
+
+/* The final permutation is the inverse of IP - no table is necessary */
+
+static unsigned char ExpandTr[] = {	/* expansion operation */
+	32, 1, 2, 3, 4, 5,
+	4, 5, 6, 7, 8, 9,
+	8, 9, 10, 11, 12, 13,
+	12, 13, 14, 15, 16, 17,
+	16, 17, 18, 19, 20, 21,
+	20, 21, 22, 23, 24, 25,
+	24, 25, 26, 27, 28, 29,
+	28, 29, 30, 31, 32, 1,
+};
+
+static unsigned char PC1[] = {	/* permuted choice table 1 */
+	57, 49, 41, 33, 25, 17, 9,
+	1, 58, 50, 42, 34, 26, 18,
+	10, 2, 59, 51, 43, 35, 27,
+	19, 11, 3, 60, 52, 44, 36,
+
+	63, 55, 47, 39, 31, 23, 15,
+	7, 62, 54, 46, 38, 30, 22,
+	14, 6, 61, 53, 45, 37, 29,
+	21, 13, 5, 28, 20, 12, 4,
+};
+
+static unsigned char Rotates[] = {	/* PC1 rotation schedule */
+	1, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1,
+};
+
+/* note: each "row" of PC2 is left-padded with bits that make it invertible */
+static unsigned char PC2[] = {	/* permuted choice table 2 */
+	9, 18, 14, 17, 11, 24, 1, 5,
+	22, 25, 3, 28, 15, 6, 21, 10,
+	35, 38, 23, 19, 12, 4, 26, 8,
+	43, 54, 16, 7, 27, 20, 13, 2,
+
+	0, 0, 41, 52, 31, 37, 47, 55,
+	0, 0, 30, 40, 51, 45, 33, 48,
+	0, 0, 44, 49, 39, 56, 34, 53,
+	0, 0, 46, 42, 50, 36, 29, 32,
+};
+
+static unsigned char S[8][64] = {	/* 48->32 bit substitution tables */
+	/* S[1]         */
+	14, 4, 13, 1, 2, 15, 11, 8, 3, 10, 6, 12, 5, 9, 0, 7,
+	0, 15, 7, 4, 14, 2, 13, 1, 10, 6, 12, 11, 9, 5, 3, 8,
+	4, 1, 14, 8, 13, 6, 2, 11, 15, 12, 9, 7, 3, 10, 5, 0,
+	15, 12, 8, 2, 4, 9, 1, 7, 5, 11, 3, 14, 10, 0, 6, 13,
+	/* S[2]         */
+	15, 1, 8, 14, 6, 11, 3, 4, 9, 7, 2, 13, 12, 0, 5, 10,
+	3, 13, 4, 7, 15, 2, 8, 14, 12, 0, 1, 10, 6, 9, 11, 5,
+	0, 14, 7, 11, 10, 4, 13, 1, 5, 8, 12, 6, 9, 3, 2, 15,
+	13, 8, 10, 1, 3, 15, 4, 2, 11, 6, 7, 12, 0, 5, 14, 9,
+	/* S[3]         */
+	10, 0, 9, 14, 6, 3, 15, 5, 1, 13, 12, 7, 11, 4, 2, 8,
+	13, 7, 0, 9, 3, 4, 6, 10, 2, 8, 5, 14, 12, 11, 15, 1,
+	13, 6, 4, 9, 8, 15, 3, 0, 11, 1, 2, 12, 5, 10, 14, 7,
+	1, 10, 13, 0, 6, 9, 8, 7, 4, 15, 14, 3, 11, 5, 2, 12,
+	/* S[4]         */
+	7, 13, 14, 3, 0, 6, 9, 10, 1, 2, 8, 5, 11, 12, 4, 15,
+	13, 8, 11, 5, 6, 15, 0, 3, 4, 7, 2, 12, 1, 10, 14, 9,
+	10, 6, 9, 0, 12, 11, 7, 13, 15, 1, 3, 14, 5, 2, 8, 4,
+	3, 15, 0, 6, 10, 1, 13, 8, 9, 4, 5, 11, 12, 7, 2, 14,
+	/* S[5]         */
+	2, 12, 4, 1, 7, 10, 11, 6, 8, 5, 3, 15, 13, 0, 14, 9,
+	14, 11, 2, 12, 4, 7, 13, 1, 5, 0, 15, 10, 3, 9, 8, 6,
+	4, 2, 1, 11, 10, 13, 7, 8, 15, 9, 12, 5, 6, 3, 0, 14,
+	11, 8, 12, 7, 1, 14, 2, 13, 6, 15, 0, 9, 10, 4, 5, 3,
+	/* S[6]         */
+	12, 1, 10, 15, 9, 2, 6, 8, 0, 13, 3, 4, 14, 7, 5, 11,
+	10, 15, 4, 2, 7, 12, 9, 5, 6, 1, 13, 14, 0, 11, 3, 8,
+	9, 14, 15, 5, 2, 8, 12, 3, 7, 0, 4, 10, 1, 13, 11, 6,
+	4, 3, 2, 12, 9, 5, 15, 10, 11, 14, 1, 7, 6, 0, 8, 13,
+	/* S[7]         */
+	4, 11, 2, 14, 15, 0, 8, 13, 3, 12, 9, 7, 5, 10, 6, 1,
+	13, 0, 11, 7, 4, 9, 1, 10, 14, 3, 5, 12, 2, 15, 8, 6,
+	1, 4, 11, 13, 12, 3, 7, 14, 10, 15, 6, 8, 0, 5, 9, 2,
+	6, 11, 13, 8, 1, 4, 10, 7, 9, 5, 0, 15, 14, 2, 3, 12,
+	/* S[8]         */
+	13, 2, 8, 4, 6, 15, 11, 1, 10, 9, 3, 14, 5, 0, 12, 7,
+	1, 15, 13, 8, 10, 3, 7, 4, 12, 5, 6, 11, 0, 14, 9, 2,
+	7, 11, 4, 1, 9, 12, 14, 2, 0, 6, 10, 13, 15, 3, 5, 8,
+	2, 1, 14, 7, 4, 10, 8, 13, 15, 12, 9, 0, 3, 5, 6, 11,
+};
+
+static unsigned char P32Tr[] = {	/* 32-bit permutation function */
+	16, 7, 20, 21,
+	29, 12, 28, 17,
+	1, 15, 23, 26,
+	5, 18, 31, 10,
+	2, 8, 24, 14,
+	32, 27, 3, 9,
+	19, 13, 30, 6,
+	22, 11, 4, 25,
+};
+
+static unsigned char CIFP[] = {	/* compressed/interleaved permutation */
+	1, 2, 3, 4, 17, 18, 19, 20,
+	5, 6, 7, 8, 21, 22, 23, 24,
+	9, 10, 11, 12, 25, 26, 27, 28,
+	13, 14, 15, 16, 29, 30, 31, 32,
+
+	33, 34, 35, 36, 49, 50, 51, 52,
+	37, 38, 39, 40, 53, 54, 55, 56,
+	41, 42, 43, 44, 57, 58, 59, 60,
+	45, 46, 47, 48, 61, 62, 63, 64,
+};
+
+static unsigned char itoa64[] =	/* 0..63 => ascii-64 */
+	"./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
+
+
+/* =====  Tables that are initialized at run time  ==================== */
+
+
+static unsigned char a64toi[128];	/* ascii-64 => 0..63 */
+
+/* Initial key schedule permutation */
+static C_block PC1ROT[64 / CHUNKBITS][1 << CHUNKBITS];
+
+/* Subsequent key schedule rotation permutations */
+static C_block PC2ROT[2][64 / CHUNKBITS][1 << CHUNKBITS];
+
+/* Initial permutation/expansion table */
+static C_block IE3264[32 / CHUNKBITS][1 << CHUNKBITS];
+
+/* Table that combines the S, P, and E operations.  */
+static long SPE[2][8][64];
+
+/* compressed/interleaved => final permutation table */
+static C_block CF6464[64 / CHUNKBITS][1 << CHUNKBITS];
+
+
+/* ==================================== */
+
+
+static C_block constdatablock;	/* encryption constant */
+static char cryptresult[1 + 4 + 4 + 11 + 1];	/* encrypted result */
+#define _PASSWORD_EFMT1 '#'
+/*
+ * Return a pointer to static data consisting of the "setting"
+ * followed by an encryption produced by the "key" and "setting".
+ */
+/* Changed prototype from DLL_EXPORT to API_ROUTINE - Jeevan */
+TEXT* DLL_EXPORT ENC_crypt(TEXT* key, TEXT* setting)
+{
+	unsigned long a, b, d;
+	register char *encp;
+	register long i;
+	register int t;
+	long salt;
+	int num_iter, salt_size;
+	C_block keyblock, rsltblock;
+
+	for (i = 0; i < 8; i++)
+	{
+		if ((t = 2 * (unsigned char) (*key)) != 0)
+			key++;
+		keyblock.b[i] = t;
+	}
+	if (des_setkey((char *) keyblock.b))	/* also initializes "a64toi" */
+		return (NULL);
+
+	encp = &cryptresult[0];
+	switch (*setting) {
+	case _PASSWORD_EFMT1:
+		/*
+		 * Involve the rest of the password 8 characters at a time.
+		 */
+		while (*key) {
+			if (des_cipher((char *) &keyblock, (char *) &keyblock, 0L, 1))
+				return (NULL);
+			for (i = 0; i < 8; i++) {
+				if ((t = 2 * (unsigned char) (*key)) != 0)
+					key++;
+				keyblock.b[i] ^= t;
+			}
+			if (des_setkey((char *) keyblock.b))
+				return (NULL);
+		}
+
+		*encp++ = *setting++;
+
+		/* get iteration count */
+		num_iter = 0;
+		for (i = 4; --i >= 0;) {
+			if ((t = (unsigned char) setting[i]) == '\0')
+				t = '.';
+			encp[i] = t;
+			num_iter = (num_iter << 6) | a64toi[t];
+		}
+		setting += 4;
+		encp += 4;
+		salt_size = 4;
+		break;
+	default:
+		num_iter = 25;
+		salt_size = 2;
+	}
+
+	salt = 0;
+	for (i = salt_size; --i >= 0;) {
+		if ((t = (unsigned char) setting[i]) == '\0')
+			t = '.';
+		encp[i] = t;
+		salt = (salt << 6) | a64toi[t];
+	}
+	encp += salt_size;
+	if (des_cipher((char *) &constdatablock, (char *) &rsltblock,
+				   salt, num_iter)) return (NULL);
+
+	/*
+	 * Encode the 64 cipher bits as 11 ascii characters.
+	 */
+	/* i = ((long)((rsltblock.b[0]<<8) | rsltblock.b[1])<<8) | rsltblock.b[2]; */
+	a = rsltblock.b[0];
+	a = a << 8;
+	b = rsltblock.b[1];
+	b |= a;
+	b = b << 8;
+	d = rsltblock.b[2];
+	b |= d;
+	i = b;
+	encp[3] = itoa64[i & 0x3f];
+	i >>= 6;
+	encp[2] = itoa64[i & 0x3f];
+	i >>= 6;
+	encp[1] = itoa64[i & 0x3f];
+	i >>= 6;
+	encp[0] = itoa64[i];
+	encp += 4;
+
+	/* i = ((long)((rsltblock.b[3]<<8) | rsltblock.b[4])<<8) | rsltblock.b[5]; */
+	a = rsltblock.b[3];
+	a = a << 8;
+	b = rsltblock.b[4];
+	b |= a;
+	b = b << 8;
+	d = rsltblock.b[5];
+	b |= d;
+	i = b;
+	encp[3] = itoa64[i & 0x3f];
+	i >>= 6;
+	encp[2] = itoa64[i & 0x3f];
+	i >>= 6;
+	encp[1] = itoa64[i & 0x3f];
+	i >>= 6;
+	encp[0] = itoa64[i];
+	encp += 4;
+
+/*	i = ((long)((rsltblock.b[6])<<8) | rsltblock.b[7])<<2; */
+	a = rsltblock.b[6];
+	a = a << 8;
+	b = rsltblock.b[7];
+	b |= a;
+	b = b << 2;
+	i = b;
+	encp[2] = itoa64[i & 0x3f];
+	i >>= 6;
+	encp[1] = itoa64[i & 0x3f];
+	i >>= 6;
+	encp[0] = itoa64[i];
+
+	encp[3] = 0;
+
+	return (cryptresult);
+}
+
+
+/*
+ * The Key Schedule, filled in by des_setkey() or setkey().
+ */
+#define	KS_SIZE	16
+static C_block KS[KS_SIZE];
+
+/*
+ * Set up the key schedule from the key.
+ */
+int des_setkey(register const char *key)
+{
+	register DCL_BLOCK(K, K0, K1);
+	register C_block *ptabp;
+	register int i;
+	static int des_ready = 0;
+
+	if (!des_ready) {
+		init_des();
+		des_ready = 1;
+	}
+
+	PERM6464(K, K0, K1, (unsigned char *) key, (C_block *) PC1ROT);
+	key = (char *) &KS[0];
+	STORE(K & ~0x03030303L, K0 & ~0x03030303L, K1, *(C_block *) key);
+	for (i = 1; i < 16; i++) {
+		key += sizeof(C_block);
+		STORE(K, K0, K1, *(C_block *) key);
+		ptabp = (C_block *) PC2ROT[Rotates[i] - 1];
+		PERM6464(K, K0, K1, (unsigned char *) key, ptabp);
+		STORE(K & ~0x03030303L, K0 & ~0x03030303L, K1, *(C_block *) key);
+	}
+	return (0);
+}
+
+/*
+ * Encrypt (or decrypt if num_iter < 0) the 8 chars at "in" with abs(num_iter)
+ * iterations of DES, using the the given 24-bit salt and the pre-computed key
+ * schedule, and store the resulting 8 chars at "out" (in == out is permitted).
+ *
+ * NOTE: the performance of this routine is critically dependent on your
+ * compiler and machine architecture.
+ */
+int des_cipher(const char *in, char *out, long salt, int num_iter)
+{
+	/* variables that we want in registers, most important first */
+#if defined(pdp11)
+	register int j;
+#endif
+	register long L0, L1, R0, R1, k;
+	register C_block *kp;
+	register int ks_inc, loop_count;
+	C_block B;
+
+	L0 = salt;
+	TO_SIX_BIT(salt, L0);		/* convert to 4*(6+2) format */
+
+#if defined(vax) || defined(pdp11)
+	salt = ~salt;				/* "x &~ y" is faster than "x & y". */
+#define	SALT (~salt)
+#else
+#define	SALT salt
+#endif
+
+#if defined(MUST_ALIGN)
+	B.b[0] = in[0];
+	B.b[1] = in[1];
+	B.b[2] = in[2];
+	B.b[3] = in[3];
+	B.b[4] = in[4];
+	B.b[5] = in[5];
+	B.b[6] = in[6];
+	B.b[7] = in[7];
+	LOAD(L, L0, L1, B);
+#else
+	LOAD(L, L0, L1, *(C_block *) in);
+#endif
+	LOADREG(R, R0, R1, L, L0, L1);
+	L0 &= 0x55555555L;
+	L1 &= 0x55555555L;
+	L0 = (L0 << 1) | L1;		/* L0 is the even-numbered input bits */
+	R0 &= 0xaaaaaaaaL;
+	R1 = (R1 >> 1) & 0x55555555L;
+	L1 = R0 | R1;				/* L1 is the odd-numbered input bits */
+	STORE(L, L0, L1, B);
+	PERM3264(L, L0, L1, B.b, (C_block *) IE3264);	/* even bits */
+	PERM3264(R, R0, R1, B.b + 4, (C_block *) IE3264);	/* odd bits */
+
+	if (num_iter >= 0) {		/* encryption */
+		kp = &KS[0];
+		ks_inc = sizeof(*kp);
+	}
+	else {						/* decryption */
+		num_iter = -num_iter;
+		kp = &KS[KS_SIZE - 1];
+		ks_inc = -(int) sizeof(*kp);
+	}
+
+	while (--num_iter >= 0) {
+		loop_count = 8;
+		do {
+
+#define	SPTAB(t, i)	(*(long *)((unsigned char *)t + i*(sizeof(long)/4)))
+#if defined(gould)
+			/* use this if B.b[i] is evaluated just once ... */
+#define	DOXOR(x,y,i)	x^=SPTAB(SPE[0][i],B.b[i]); y^=SPTAB(SPE[1][i],B.b[i]);
+#else
+#if defined(pdp11)
+			/* use this if your "long" int indexing is slow */
+#define	DOXOR(x,y,i)	j=B.b[i]; x^=SPTAB(SPE[0][i],j); y^=SPTAB(SPE[1][i],j);
+#else
+			/* use this if "k" is allocated to a register ... */
+#define	DOXOR(x,y,i)	k=B.b[i]; x^=SPTAB(SPE[0][i],k); y^=SPTAB(SPE[1][i],k);
+#endif
+#endif
+
+#define	CRUNCH(p0, p1, q0, q1)	\
+			k = (q0 ^ q1) & SALT;	\
+			B.b32.i0 = k ^ q0 ^ kp->b32.i0;		\
+			B.b32.i1 = k ^ q1 ^ kp->b32.i1;		\
+			kp = (C_block *)((char *)kp+ks_inc);	\
+							\
+			DOXOR(p0, p1, 0);		\
+			DOXOR(p0, p1, 1);		\
+			DOXOR(p0, p1, 2);		\
+			DOXOR(p0, p1, 3);		\
+			DOXOR(p0, p1, 4);		\
+			DOXOR(p0, p1, 5);		\
+			DOXOR(p0, p1, 6);		\
+			DOXOR(p0, p1, 7);
+
+			CRUNCH(L0, L1, R0, R1);
+			CRUNCH(R0, R1, L0, L1);
+		} while (--loop_count != 0);
+		kp = (C_block *) ((char *) kp - (ks_inc * KS_SIZE));
+
+
+		/* swap L and R */
+		L0 ^= R0;
+		L1 ^= R1;
+		R0 ^= L0;
+		R1 ^= L1;
+		L0 ^= R0;
+		L1 ^= R1;
+	}
+
+	/* store the encrypted (or decrypted) result */
+	L0 = ((L0 >> 3) & 0x0f0f0f0fL) | ((L1 << 1) & 0xf0f0f0f0L);
+	L1 = ((R0 >> 3) & 0x0f0f0f0fL) | ((R1 << 1) & 0xf0f0f0f0L);
+	STORE(L, L0, L1, B);
+	PERM6464(L, L0, L1, B.b, (C_block *) CF6464);
+#if defined(MUST_ALIGN)
+	STORE(L, L0, L1, B);
+	out[0] = B.b[0];
+	out[1] = B.b[1];
+	out[2] = B.b[2];
+	out[3] = B.b[3];
+	out[4] = B.b[4];
+	out[5] = B.b[5];
+	out[6] = B.b[6];
+	out[7] = B.b[7];
+#else
+	STORE(L, L0, L1, *(C_block *) out);
+#endif
+	return (0);
+}
+
+
+/*
+ * Initialize various tables.  This need only be done once.  It could even be
+ * done at compile time, if the compiler were capable of that sort of thing.
+ */
+STATIC void init_des()
+{
+	register int i, j;
+	register long k;
+	register int tableno;
+	static unsigned char perm[64], tmp32[32];	/* "static" for speed */
+
+	/*
+	 * table that converts chars "./0-9A-Za-z"to integers 0-63.
+	 */
+	for (i = 0; i < 64; i++)
+		a64toi[itoa64[i]] = i;
+
+	/*
+	 * PC1ROT - bit reverse, then PC1, then Rotate, then PC2.
+	 */
+	for (i = 0; i < 64; i++)
+		perm[i] = 0;
+	for (i = 0; i < 64; i++) {
+		if ((k = PC2[i]) == 0)
+			continue;
+		k += Rotates[0] - 1;
+		if ((k % 28) < Rotates[0])
+			k -= 28;
+		k = PC1[k];
+		if (k > 0) {
+			k--;
+			k = (k | 07) - (k & 07);
+			k++;
+		}
+		perm[i] = (unsigned char) k;
+	}
+	init_perm(PC1ROT, perm, 8, 8);
+
+	/*
+	 * PC2ROT - PC2 inverse, then Rotate (once or twice), then PC2.
+	 */
+	for (j = 0; j < 2; j++) {
+		unsigned char pc2inv[64];
+		for (i = 0; i < 64; i++)
+			perm[i] = pc2inv[i] = 0;
+		for (i = 0; i < 64; i++) {
+			if ((k = PC2[i]) == 0)
+				continue;
+			pc2inv[k - 1] = i + 1;
+		}
+		for (i = 0; i < 64; i++) {
+			if ((k = PC2[i]) == 0)
+				continue;
+			k += j;
+			if ((k % 28) <= j)
+				k -= 28;
+			perm[i] = pc2inv[k];
+		}
+		init_perm(PC2ROT[j], perm, 8, 8);
+	}
+
+	/*
+	 * Bit reverse, then initial permutation, then expansion.
+	 */
+	for (i = 0; i < 8; i++) {
+		for (j = 0; j < 8; j++) {
+			k = (j < 2) ? 0 : IP[ExpandTr[i * 6 + j - 2] - 1];
+			if (k > 32)
+				k -= 32;
+			else if (k > 0)
+				k--;
+			if (k > 0) {
+				k--;
+				k = (k | 07) - (k & 07);
+				k++;
+			}
+			perm[i * 8 + j] = (unsigned char) k;
+		}
+	}
+	init_perm(IE3264, perm, 4, 8);
+
+	/*
+	 * Compression, then final permutation, then bit reverse.
+	 */
+	for (i = 0; i < 64; i++) {
+		k = IP[CIFP[i] - 1];
+		if (k > 0) {
+			k--;
+			k = (k | 07) - (k & 07);
+			k++;
+		}
+		perm[k - 1] = i + 1;
+	}
+	init_perm(CF6464, perm, 8, 8);
+
+	/*
+	 * SPE table
+	 */
+	for (i = 0; i < 48; i++)
+		perm[i] = P32Tr[ExpandTr[i] - 1];
+	for (tableno = 0; tableno < 8; tableno++) {
+		for (j = 0; j < 64; j++) {
+			k = (((j >> 0) & 01) << 5) |
+				(((j >> 1) & 01) << 3) |
+				(((j >> 2) & 01) << 2) |
+				(((j >> 3) & 01) << 1) |
+				(((j >> 4) & 01) << 0) | (((j >> 5) & 01) << 4);
+			k = S[tableno][k];
+			k = (((k >> 3) & 01) << 0) |
+				(((k >> 2) & 01) << 1) |
+				(((k >> 1) & 01) << 2) | (((k >> 0) & 01) << 3);
+			for (i = 0; i < 32; i++)
+				tmp32[i] = 0;
+			for (i = 0; i < 4; i++)
+				tmp32[4 * tableno + i] = (k >> i) & 01;
+			k = 0;
+			for (i = 24; --i >= 0;)
+				k = (k << 1) | tmp32[perm[i] - 1];
+			TO_SIX_BIT(SPE[0][tableno][j], k);
+			k = 0;
+			for (i = 24; --i >= 0;)
+				k = (k << 1) | tmp32[perm[i + 24] - 1];
+			TO_SIX_BIT(SPE[1][tableno][j], k);
+		}
+	}
+}
+
+/*
+ * Initialize "perm" to represent transformation "p", which rearranges
+ * (perhaps with expansion and/or contraction) one packed array of bits
+ * (of size "chars_in" characters) into another array (of size "chars_out"
+ * characters).
+ *
+ * "perm" must be all-zeroes on entry to this routine.
+ */
+STATIC void
+init_perm(C_block perm[64 / CHUNKBITS][1 << CHUNKBITS],
+		  unsigned char p[64], int chars_in, int chars_out)
+{
+	register int i, j, k, l;
+
+	for (k = 0; k < chars_out * 8; k++) {	/* each output bit position */
+		l = p[k] - 1;			/* where this bit comes from */
+		if (l < 0)
+			continue;			/* output bit is always 0 */
+		i = l >> LGCHUNKBITS;	/* which chunk this bit comes from */
+		l = 1 << (l & (CHUNKBITS - 1));	/* mask for this bit */
+		for (j = 0; j < (1 << CHUNKBITS); j++) {	/* each chunk value */
+			if ((j & l) != 0)
+				perm[i][j].b[k >> 3] |= 1 << (k & 07);
+		}
+	}
+}
+
+/*
+ * "setkey" routine (for backwards compatibility)
+ */
+int setkey(register const char *key)
+{
+	register int i, j, k;
+	C_block keyblock;
+
+	for (i = 0; i < 8; i++) {
+		k = 0;
+		for (j = 0; j < 8; j++) {
+			k <<= 1;
+			k |= (unsigned char) *key++;
+		}
+		keyblock.b[i] = k;
+	}
+	return (des_setkey((char *) keyblock.b));
+}
+
+/*
+ * "encrypt" routine (for backwards compatibility)
+ */
+encrypt(char *block, int flag)
+{
+	register int i, j, k;
+	C_block cblock;
+
+	for (i = 0; i < 8; i++) {
+		k = 0;
+		for (j = 0; j < 8; j++) {
+			k <<= 1;
+			k |= (unsigned char) *block++;
+		}
+		cblock.b[i] = k;
+	}
+	if (des_cipher((char *) &cblock, (char *) &cblock, 0L, (flag ? -1 : 1)))
+		return (1);
+	for (i = 7; i >= 0; i--) {
+		k = cblock.b[i];
+		for (j = 7; j >= 0; j--) {
+			*--block = k & 01;
+			k >>= 1;
+		}
+	}
+	return (0);
+}
+#endif
+
+
+}	// extern "C"
+
diff --git a/src/jrd/enc_proto.h b/src/jrd/enc_proto.h
new file mode 100644
index 0000000000..bca3738806
--- /dev/null
+++ b/src/jrd/enc_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		enc_proto.h
+ *	DESCRIPTION:	Prototype header file for enc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_ENC_PROTO_H_
+#define _JRD_ENC_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern TEXT *DLL_EXPORT ENC_crypt(TEXT *, TEXT *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_ENC_PROTO_H_ */
diff --git a/src/jrd/entry.h b/src/jrd/entry.h
new file mode 100644
index 0000000000..653f3a0782
--- /dev/null
+++ b/src/jrd/entry.h
@@ -0,0 +1,1120 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		entry.h
+ *	DESCRIPTION:	Y-value entrypoints
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/* 
+    Order of battle in ENTRY macro:
+	generic name
+	current local access method entrypoint
+	prior local access method (bridge) entrypoint
+	remote entrypoint
+	OS2 remote name
+	Central server interface
+	RDB interface entrypoint
+	Pipe server interface
+	Bridge pipe server interface
+	Windows local access method entrypoint
+	Win95 interprocess interface
+*/
+
+/*****************************************************
+ *  IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT
+ *
+ *  The order in which these entrypoints appear MUST match
+ *  the order in which the defines for PROC_XXX appear in
+ *  source/jrd/why.c.  Failure to do so will result in
+ *  much frustration
+ ******************************************************/
+
+/*
+ * TMN: Equally important: Don't add a compiler directive like
+ * extern "C" { } to this file since it's included to be the body
+ * of an array (!) from why.c.
+ */
+
+#if 0 && defined(__cplusplus)
+
+
+ENTRYPOINT("gds_attach_database",
+		   jrd8_attach_database,
+		   "jrd5_attach_database",
+		   REM_attach_database,
+		   "_REM_attach_database",
+		   CSI_attach_database,
+		   RDB_attach_database,
+		   PSI_attach_database,
+		   PSI5_attach_database,
+		   "_jrd8_attach_database",
+		   IPI_attach_database,
+		   (STATUS *, SSHORT, SCHAR *, struct att **, SSHORT, SCHAR *,
+			SCHAR *))
+
+	ENTRYPOINT("gds_blob_info", jrd8_blob_info, "jrd5_blob_info", REM_blob_info,
+		   "_REM_blob_info", CSI_blob_info, RDB_blob_info, PSI_blob_info,
+			   PSI5_blob_info, "_jrd8_blob_info", IPI_blob_info, (STATUS *,
+																  struct blb
+																  **, SSHORT,
+																  SCHAR *,
+																  SSHORT,
+																  SCHAR *))
+
+	ENTRYPOINT("gds_cancel_blob", jrd8_cancel_blob, "jrd5_cancel_blob",
+		   REM_cancel_blob, "_REM_cancel_blob", CSI_cancel_blob,
+			   RDB_cancel_blob, PSI_cancel_blob, PSI5_cancel_blob,
+			   "_jrd8_cancel_blob", IPI_cancel_blob, (STATUS *,
+													  struct blb **))
+
+	ENTRYPOINT("gds_close_blob", jrd8_close_blob, "jrd5_close_blob",
+		   REM_close_blob, "_REM_close_blob", CSI_close_blob, RDB_close_blob,
+			   PSI_close_blob, PSI5_close_blob, "_jrd8_close_blob",
+			   IPI_close_blob, (STATUS *, struct blb **))
+
+	ENTRYPOINT("gds_commit_transaction", jrd8_commit_transaction,
+		   "jrd5_commit_transaction", REM_commit_transaction,
+			   "_REM_commit_transaction", CSI_commit_transaction,
+			   RDB_commit_transaction, PSI_commit_transaction,
+			   PSI5_commit_transaction, "_jrd8_commit_transaction",
+			   IPI_commit_transaction, (STATUS *, struct tra **))
+
+	ENTRYPOINT("gds_compile_request", jrd8_compile_request,
+		   "jrd5_compile_request", REM_compile_request,
+		   "_REM_compile_request", CSI_compile_request, RDB_compile_request,
+PSI_compile_request, PSI5_compile_request, "_jrd8_compile_request", IPI_compile_request, (STATUS *,
+															struct att **,
+															struct req **,
+															SSHORT, SCHAR *))
+
+	ENTRYPOINT("gds_create_blob",
+   /****    jrd8_create_blob    ***/ y_valve_no_entrypoint,
+   /****   "jrd5_create_blob"   ***/ NULL,
+   /****     REM_create_blob    ***/ y_valve_no_entrypoint,
+			   "_REM_create_blob",
+   /****     CSI_create_blob    ***/ y_valve_no_entrypoint,
+			   RDB_create_blob, PSI_create_blob, PSI5_create_blob,
+   /****  "_jrd8_create_blob"    ***/ "no_entrypoint",
+			   IPI_create_blob,
+			   (STATUS *, struct rdb **, struct rtr **, struct rbl **,
+				struct bid *))
+
+	ENTRYPOINT("gds_create_database", jrd8_create_database,
+   /****   "jrd5_create_database"   ***/ NULL,
+			   REM_create_database,
+			   "_REM_create_database",
+			   CSI_create_database, RDB_create_database, PSI_create_database,
+   /****    PSI5_create_database    ***/ y_valve_no_entrypoint,
+			   "_jrd8_create_database",
+			   IPI_create_database,
+			   (STATUS *, USHORT, UCHAR *, struct att **, USHORT, UCHAR *,
+				USHORT, UCHAR *))
+
+	ENTRYPOINT("gds_database_info", jrd8_database_info, "jrd5_database_info",
+		   REM_database_info, "_REM_database_info", CSI_database_info,
+			   RDB_database_info, PSI_database_info, PSI5_database_info,
+			   "_jrd8_database_info", IPI_database_info, (STATUS *,
+														  struct att **,
+														  SSHORT, SCHAR *,
+														  SSHORT, SCHAR *))
+
+	ENTRYPOINT("gds_detach_database", jrd8_detach_database,
+		   "jrd5_detach_database", REM_detach_database,
+		   "_REM_detach_database", CSI_detach_database, RDB_detach_database,
+PSI_detach_database, PSI5_detach_database, "_jrd8_detach_database", IPI_detach_database, (STATUS *,
+															struct att **))
+
+	ENTRYPOINT("gds_get_segment", jrd8_get_segment, "jrd5_get_segment",
+		   REM_get_segment, "_REM_get_segment", CSI_get_segment,
+			   RDB_get_segment, PSI_get_segment, PSI5_get_segment,
+			   "_jrd8_get_segment", IPI_get_segment, (STATUS *, struct blb **,
+													  USHORT *, USHORT,
+													  UCHAR *))
+
+	ENTRYPOINT("gds_open_blob",
+   /****    jrd8_open_blob    ***/ y_valve_no_entrypoint,
+   /****   "jrd5_open_blob"   ***/ NULL,
+   /****     REM_open_blob    ***/ y_valve_no_entrypoint,
+			   "_REM_open_blob",
+   /****     CSI_open_blob    ***/ y_valve_no_entrypoint,
+			   RDB_open_blob, PSI_open_blob, PSI5_open_blob,
+   /****  "_jrd8_open_blob"   ***/ "no_entrypoint",
+			   IPI_open_blob,
+			   (STATUS *, struct rdb **, struct rtr **, struct rbl **,
+				struct bid *))
+
+	ENTRYPOINT("gds_prepare_transaction", jrd8_prepare_transaction,
+		   "jrd5_prepare_transaction", REM_prepare_transaction,
+			   "_REM_prepare_transaction", CSI_prepare_transaction,
+			   RDB_prepare_transaction, PSI_prepare_transaction,
+			   PSI5_prepare_transaction, "_jrd8_prepare_transaction",
+			   IPI_prepare_transaction, (STATUS *, struct tra **, USHORT,
+										 UCHAR *))
+
+	ENTRYPOINT("gds_put_segment", jrd8_put_segment, "jrd5_put_segment",
+		   REM_put_segment, "_REM_put_segment", CSI_put_segment,
+			   RDB_put_segment, PSI_put_segment, PSI5_put_segment,
+			   "_jrd8_put_segment", IPI_put_segment, (STATUS *, struct blb **,
+													  USHORT, UCHAR *))
+
+	ENTRYPOINT("gds_reconnect_transaction", jrd8_reconnect_transaction,
+		   "jrd5_reconnect_transaction", REM_reconnect_transaction,
+			   "_REM_reconnect_transaction", CSI_reconnect_transaction,
+			   RDB_reconnect_transaction, PSI_reconnect_transaction,
+			   PSI5_reconnect_transaction, "_jrd8_reconnect_transaction",
+			   IPI_reconnect_transaction, (STATUS *, struct att **,
+										   struct tra **, SSHORT, UCHAR *))
+
+	ENTRYPOINT("gds_receive", jrd8_receive, "jrd5_receive", REM_receive,
+		   "_REM_receive", CSI_receive, RDB_receive, PSI_receive, PSI5_receive,	/* the bridge pipe server will have two less params, but should be OK */
+			   "_jrd8_receive", IPI_receive, (STATUS *, struct req **, USHORT,
+											  USHORT, SCHAR *, SSHORT))
+
+	ENTRYPOINT("gds_release_request", jrd8_release_request,
+		   "jrd5_release_request", REM_release_request,
+		   "_REM_release_request", CSI_release_request, RDB_release_request,
+PSI_release_request, PSI5_release_request, "_jrd8_release_request", IPI_release_request, (STATUS *,
+															struct req **))
+
+	ENTRYPOINT("gds_request_info", jrd8_request_info, "jrd5_request_info",
+		   REM_request_info, "_REM_request_info", CSI_request_info,
+			   RDB_request_info, PSI_request_info, PSI5_request_info,
+			   "_jrd8_request_info", IPI_request_info, (STATUS *,
+														struct req **, SSHORT,
+														SSHORT, SCHAR *,
+														SSHORT, SCHAR *))
+
+	ENTRYPOINT("gds_rollback_transaction", jrd8_rollback_transaction,
+		   "jrd5_rollback_transaction", REM_rollback_transaction,
+			   "_REM_rollback_transaction", CSI_rollback_transaction,
+			   RDB_rollback_transaction, PSI_rollback_transaction,
+			   PSI5_rollback_transaction, "_jrd8_rollback_transaction",
+			   IPI_rollback_transaction, (STATUS *, struct tra **))
+
+	ENTRYPOINT("gds_send", jrd8_send, "jrd5_send", REM_send, "_REM_send",
+		   CSI_send, RDB_send, PSI_send, PSI5_send, "_jrd8_send", IPI_send,
+			   (STATUS *, struct req **, USHORT, USHORT, SCHAR *, SSHORT))
+
+	ENTRYPOINT("gds_start_and_send", jrd8_start_and_send, "jrd5_start_and_send",
+		   REM_start_and_send, "_REM_start_and_send", CSI_start_and_send,
+			   RDB_start_and_send, PSI_start_and_send, PSI5_start_and_send,
+			   "_jrd8_start_and_send", IPI_start_and_send, (STATUS *,
+															struct req **,
+															struct tra **,
+															USHORT, USHORT,
+															SCHAR *, SSHORT))
+
+	ENTRYPOINT("gds_start_request", jrd8_start_request, "jrd5_start_request",
+		   REM_start_request, "_REM_start_request", CSI_start_request,
+			   RDB_start_request, PSI_start_request, PSI5_start_request,
+			   "_jrd8_start_request", IPI_start_request, (STATUS *,
+														  register struct req
+														  **,
+														  register struct tra
+														  **, SSHORT))
+
+	ENTRYPOINT("gds_start_multiple", jrd8_start_multiple, "jrd5_start_multiple",
+   /****     REM_start_multiple    ***/ y_valve_no_entrypoint,
+			   "_REM_start_multiple",
+			   CSI_start_multiple,
+			   RDB_start_multiple,
+			   PSI_start_multiple,
+			   PSI5_start_multiple,
+			   "_jrd8_start_multiple",
+			   IPI_start_multiple,
+			   (STATUS *, struct tra **, USHORT, struct teb *))
+
+	ENTRYPOINT("gds_start_transaction",
+		   jrd8_start_transaction,
+		   "jrd5_start_transaction",
+REM_start_transaction,
+"_REM_start_transaction",
+CSI_start_transaction,
+RDB_start_transaction,
+PSI_start_transaction,
+PSI5_start_transaction,
+"_jrd8_start_transaction", IPI_start_transaction, (STATUS *, struct tra **, SSHORT,...))
+
+	ENTRYPOINT("gds_transaction_info",
+		   jrd8_transaction_info,
+		   "jrd5_transaction_info",
+REM_transaction_info,
+"_REM_transaction_info",
+CSI_transaction_info,
+RDB_transaction_info,
+PSI_transaction_info,
+PSI5_transaction_info,
+"_jrd8_transaction_info",
+IPI_transaction_info, (STATUS *, struct tra **, SSHORT, SCHAR *, SSHORT, SCHAR *))
+
+	ENTRYPOINT("gds_unwind_request",
+		   jrd8_unwind_request,
+		   "jrd5_unwind_request",
+		   REM_unwind_request,
+		   "_REM_unwind_request",
+CSI_unwind_request,
+RDB_unwind_request,
+PSI_unwind_request,
+PSI5_unwind_request,
+"_jrd8_unwind_request", IPI_unwind_request, (STATUS *, struct req **, SSHORT))
+
+	ENTRYPOINT("gds_commit_retaining",
+		   jrd8_commit_retaining,
+		   "jrd5_commit_retaining",
+REM_commit_retaining, "_REM_commit_retaining", CSI_commit_retaining,
+   /****     RDB_commit_retaining    ***/ y_valve_no_entrypoint,
+			   PSI_commit_retaining,
+			   PSI5_commit_retaining,
+			   "_jrd8_commit_retaining",
+			   IPI_commit_retaining, (STATUS *, struct tra **))
+
+	ENTRYPOINT("gds_que_events",
+		   jrd8_que_events,
+		   "jrd5_que_events",
+		   REM_que_events, "_REM_que_events", CSI_que_events,
+   /****     RDB_que_events    ***/ y_valve_no_entrypoint,
+			   PSI_que_events,
+			   PSI5_que_events,
+			   "_jrd8_que_events",
+			   IPI_que_events,
+			   (STATUS *, struct att **, SLONG *, SSHORT, UCHAR *, FPTR_VOID,
+				void *))
+
+	ENTRYPOINT("gds_cancel_events", jrd8_cancel_events, "jrd5_cancel_events",
+		   REM_cancel_events, "_REM_cancel_events", CSI_cancel_events,
+   /****     RDB_cancel_events    ***/ y_valve_no_entrypoint,
+			   PSI_cancel_events,
+			   PSI5_cancel_events,
+			   "_jrd8_cancel_events",
+			   IPI_cancel_events, (STATUS *, struct att **, SLONG *))
+
+	ENTRYPOINT("gds_ddl", jrd8_ddl,
+   /****   "jrd5_ddl"   ***/ NULL,
+			   REM_ddl, "_REM_ddl", CSI_ddl,
+   /****     RDB_ddl    ***/ y_valve_no_entrypoint,
+			   PSI_ddl,
+			   PSI5_ddl,
+			   "_jrd8_ddl",
+			   IPI_ddl,
+			   (STATUS *, struct att **, struct tra **, USHORT, SCHAR *))
+
+	ENTRYPOINT("gds_open_blob2",
+		   jrd8_open_blob2,
+		   "jrd5_open_blob2",
+		   REM_open_blob2, "_REM_open_blob2", CSI_open_blob2,
+   /****     RDB_open_blob2    ***/ y_valve_no_entrypoint,
+			   PSI_open_blob2,
+			   PSI5_open_blob2,
+			   "_jrd8_open_blob2",
+			   IPI_open_blob2,
+			   (STATUS *, struct att **, struct tra **, struct blb **,
+				struct bid *, USHORT, UCHAR *))
+
+	ENTRYPOINT("gds_create_blob2", jrd8_create_blob2, "jrd5_create_blob2",
+		   REM_create_blob2, "_REM_create_blob2", CSI_create_blob2,
+   /****     RDB_create_blob2    ***/ y_valve_no_entrypoint,
+			   PSI_create_blob2,
+			   PSI5_create_blob2,
+			   "_jrd8_create_blob2",
+			   IPI_create_blob2,
+			   (STATUS *, struct att **, struct tra **, struct blb **,
+				struct bid *, USHORT, UCHAR *))
+
+	ENTRYPOINT("gds_get_slice", jrd8_get_slice, "jrd5_get_slice", REM_get_slice,
+		   "_REM_get_slice", CSI_get_slice,
+   /****     RDB_get_slice    ***/ y_valve_no_entrypoint,
+			   PSI_get_slice,
+			   PSI5_get_slice,
+			   "_jrd8_get_slice",
+			   IPI_get_slice,
+			   (STATUS *, struct att **, struct tra **, SLONG *, USHORT,
+				UCHAR *, USHORT, UCHAR *, SLONG, UCHAR *, SLONG *))
+
+	ENTRYPOINT("gds_put_slice", jrd8_put_slice, "jrd5_put_slice", REM_put_slice,
+		   "_REM_put_slice", CSI_put_slice,
+   /****     RDB_put_slice    ***/ y_valve_no_entrypoint,
+			   PSI_put_slice,
+			   PSI5_put_slice,
+			   "_jrd8_put_slice",
+			   IPI_put_slice,
+			   (STATUS *, struct att **, struct tra **, SLONG *, USHORT,
+				UCHAR *, USHORT, UCHAR *, SLONG, UCHAR *))
+
+	ENTRYPOINT("gds_seek_blob", jrd8_seek_blob, "jrd5_seek_blob", REM_seek_blob,
+		   "_REM_seek_blob", CSI_seek_blob,
+   /****     RDB_seek_blob    ***/ y_valve_no_entrypoint,
+			   PSI_seek_blob,
+			   PSI5_seek_blob,
+			   "_jrd8_seek_blob",
+			   IPI_seek_blob,
+			   (STATUS *, struct blb **, SSHORT, SLONG, SLONG *))
+
+	ENTRYPOINT("isc_transact_request", jrd8_transact_request,
+   /****   "jrd5_transact_request"   ***/ NULL,
+			   REM_transact_request,
+			   "_REM_transact_request", CSI_transact_request,
+   /****     RDB_transact_request    ***/ y_valve_no_entrypoint,
+			   PSI_transact_request,
+   /****    PSI5_transact_request    ***/ y_valve_no_entrypoint,
+			   "_jrd8_transact_request",
+			   IPI_transact_request,
+			   (STATUS *, struct att **, struct tra **, USHORT, SCHAR *,
+				USHORT, SCHAR *, USHORT, SCHAR *))
+
+	ENTRYPOINT("isc_drop_database", jrd8_drop_database,
+   /****   "jrd5_drop_database"   ***/ NULL,
+			   REM_drop_database, "_REM_drop_database", CSI_drop_database,
+   /****     RDB_drop_database    ***/ y_valve_no_entrypoint,
+			   PSI_drop_database,
+   /****    PSI5_drop_database    ***/ y_valve_no_entrypoint,
+			   "_jrd8_drop_database",
+			   IPI_drop_database, (STATUS *, struct att **))
+
+/* and the DSQL entry points */
+	ENTRYPOINT("isc_dsql_allocate_statement",
+   /****         jrd8_allocate_statement    ***/
+			   y_valve_no_entrypoint,
+			   "LDSQL_allocate_statement", REM_allocate_statement,
+   /****        "_REM_allocate_statement"   ***/ "no_entrypoint",
+			   CSI_allocate_statement,
+   /****          RDB_allocate_statement    ***/
+			   y_valve_no_entrypoint,
+			   PSI_allocate_statement, PSI5_allocate_statement,
+   /****       "_jrd8_allocate_statement"   ***/ "no_entrypoint",
+			   IPI_allocate_statement,
+			   (STATUS *, struct rdb **, struct rsr **))
+
+	ENTRYPOINT("isc_dsql_execute",
+   /****         jrd8_execute    ***/ y_valve_no_entrypoint,
+			   "LDSQL_execute", REM_execute,
+   /****        "_REM_execute"   ***/ "no_entrypoint",
+			   CSI_execute,
+   /****          RDB_execute    ***/ y_valve_no_entrypoint,
+			   PSI_execute, PSI5_execute,
+   /****       "_jrd8_execute"   ***/ "no_entrypoint",
+			   IPI_execute,
+			   (STATUS *, struct rtr **, struct rsr **, USHORT, UCHAR *,
+				USHORT, USHORT, UCHAR *))
+
+	ENTRYPOINT("isc_dsql_execute2",
+   /****         jrd8_execute2    ***/ y_valve_no_entrypoint,
+   /****        "jrd5_execute2"   ***/ NULL,
+			   REM_execute2,
+   /****        "_REM_execute2"   ***/ "no_entrypoint",
+			   CSI_execute2,
+   /****          RDB_execute2    ***/ y_valve_no_entrypoint,
+			   PSI_execute2,
+   /****         PSI5_execute2    ***/ y_valve_no_entrypoint,
+   /****       "_jrd8_execute2"   ***/ "no_entrypoint",
+			   IPI_execute2,
+			   (STATUS *, struct rtr **, struct rsr **, USHORT, UCHAR *,
+				USHORT, USHORT, UCHAR *, USHORT, UCHAR *, USHORT, USHORT,
+				UCHAR *))
+
+	ENTRYPOINT("isc_dsql_execute_immediate",
+   /****         jrd8_execute_immediate    ***/
+			   y_valve_no_entrypoint,
+			   "LDSQL_execute_immediate", REM_execute_immediate,
+   /****        "_REM_execute_immediate"   ***/ "no_entrypoint",
+			   CSI_execute_immediate,
+   /****          RDB_execute_immediate    ***/
+			   y_valve_no_entrypoint,
+			   PSI_execute_immediate, PSI5_execute_immediate,
+   /****       "_jrd8_execute_immediate"   ***/ "no_entrypoint",
+			   IPI_execute_immediate,
+			   (STATUS *, struct rdb **, struct rtr **, USHORT, UCHAR *,
+				USHORT, USHORT, UCHAR *, USHORT, USHORT, UCHAR *))
+
+	ENTRYPOINT("isc_dsql_execute_immediate2",
+   /****         jrd8_execute_immediate2    ***/
+			   y_valve_no_entrypoint,
+   /****        "jrd5_execute_immediate2"   ***/ NULL,
+			   REM_execute_immediate2,
+   /****        "_REM_execute_immediate2"   ***/ "no_entrypoint",
+			   CSI_execute_immediate2,
+   /****          RDB_execute_immediate2    ***/
+			   y_valve_no_entrypoint,
+			   PSI_execute_immediate2,
+   /****         PSI5_execute_immediate2    ***/
+			   y_valve_no_entrypoint,
+   /****       "_jrd8_execute_immediate2"   ***/ "no_entrypoint",
+			   IPI_execute_immediate2,
+			   (STATUS *, struct rdb **, struct rtr **, USHORT, UCHAR *,
+				USHORT, USHORT, UCHAR *, USHORT, USHORT, UCHAR *, USHORT,
+				UCHAR *, USHORT, USHORT, UCHAR *))
+
+	ENTRYPOINT("isc_dsql_fetch",
+   /****         jrd8_fetch    ***/ y_valve_no_entrypoint,
+			   "LDSQL_fetch", REM_fetch,
+   /****        "_REM_fetch"   ***/ "no_entrypoint",
+			   CSI_fetch,
+   /****          RDB_fetch    ***/ y_valve_no_entrypoint,
+			   PSI_fetch, PSI5_fetch,
+   /****       "_jrd8_fetch"   ***/ "no_entrypoint",
+			   IPI_fetch,
+			   (STATUS *, struct rsr **, USHORT, UCHAR *, USHORT, USHORT,
+				UCHAR *))
+
+	ENTRYPOINT("isc_dsql_free_statement",
+   /****         jrd8_free_statement    ***/
+			   y_valve_no_entrypoint,
+			   "LDSQL_free_statement", REM_free_statement,
+   /****        "_REM_free_statement"   ***/ "no_entrypoint",
+			   CSI_free_statement,
+   /****          RDB_free_statement    ***/
+			   y_valve_no_entrypoint,
+			   PSI_free_statement, PSI5_free_statement,
+   /****       "_jrd8_free_statement"   ***/ "no_entrypoint",
+			   IPI_free_statement, (STATUS *, struct rsr **, USHORT))
+
+	ENTRYPOINT("isc_dsql_insert",
+   /****         jrd8_insert    ***/ y_valve_no_entrypoint,
+   /****        "jrd5_insert"   ***/ NULL,
+			   REM_insert,
+   /****        "_REM_insert"   ***/ "no_entrypoint",
+			   CSI_insert,
+   /****          RDB_insert    ***/ y_valve_no_entrypoint,
+			   PSI_insert,
+   /****         PSI5_insert    ***/ y_valve_no_entrypoint,
+   /****       "_jrd8_insert"   ***/ "no_entrypoint",
+			   IPI_insert,
+			   (STATUS *, struct rsr **, USHORT, UCHAR *, USHORT, USHORT,
+				UCHAR *))
+
+	ENTRYPOINT("isc_dsql_prepare",
+   /****         jrd8_prepare    ***/ y_valve_no_entrypoint,
+			   "LDSQL_prepare", REM_prepare,
+   /****        "_REM_prepare"   ***/ "no_entrypoint",
+			   CSI_prepare,
+   /****          RDB_prepare    ***/ y_valve_no_entrypoint,
+			   PSI_prepare, PSI5_prepare,
+   /****       "_jrd8_prepare"   ***/ "no_entrypoint",
+			   IPI_prepare,
+			   (STATUS *, struct rtr **, struct rsr **, USHORT, UCHAR *,
+				USHORT, USHORT, UCHAR *, USHORT, UCHAR *))
+
+	ENTRYPOINT("isc_dsql_set_cursor",
+   /****         jrd8_set_cursor    ***/ y_valve_no_entrypoint,
+			   "LDSQL_set_cursor", REM_set_cursor_name,
+   /****        "_REM_set_cursor"   ***/ "no_entrypoint",
+			   CSI_set_cursor_name,
+   /****          RDB_set_cursor    ***/ y_valve_no_entrypoint,
+			   PSI_set_cursor_name, PSI5_set_cursor_name,
+   /****       "_jrd8_set_cursor"   ***/ "no_entrypoint",
+			   IPI_set_cursor_name,
+			   (STATUS *, struct rsr **, UCHAR *, USHORT))
+
+	ENTRYPOINT("isc_dsql_sql_info",
+   /****         jrd8_sql_info    ***/ y_valve_no_entrypoint,
+			   "LDSQL_sql_info", REM_sql_info,
+   /****        "_REM_sql_info"   ***/ "no_entrypoint",
+			   CSI_sql_info,
+   /****          RDB_sql_info    ***/ y_valve_no_entrypoint,
+			   PSI_sql_info, PSI5_sql_info,
+   /****       "_jrd8_sql_info"   ***/ "no_entrypoint",
+			   IPI_sql_info,
+			   (STATUS *, struct rsr **, SSHORT, UCHAR *, SSHORT, UCHAR *))
+
+/* and service entry points */
+	ENTRYPOINT("isc_service_attach", jrd8_service_attach,
+   /****   "jrd5_service_attach"   ***/ NULL,
+			   REM_service_attach, "REM_service_attach",
+   /****     CSI_service_attach    ***/ y_valve_no_entrypoint,
+   /****     RDB_service_attach    ***/ y_valve_no_entrypoint,
+			   PSI_attach_service,
+   /****    PSI5_service_attach    ***/ y_valve_no_entrypoint,
+			   "_jrd8_service_attach",
+			   IPI_service_attach,
+			   (STATUS *, USHORT, TEXT *, struct rdb **, USHORT, SCHAR *))
+
+	ENTRYPOINT("isc_service_detach", jrd8_service_detach,
+   /****   "jrd5_service_detach"   ***/ NULL,
+			   REM_service_detach, "REM_service_detach",
+   /****     CSI_service_detach    ***/ y_valve_no_entrypoint,
+   /****     RDB_service_detach    ***/ y_valve_no_entrypoint,
+			   PSI_detach_service,
+   /****    PSI5_service_detach    ***/ y_valve_no_entrypoint,
+			   "_jrd8_service_detach",
+			   IPI_service_detach, (STATUS *, struct rdb **))
+
+	ENTRYPOINT("isc_service_query", jrd8_service_query,
+   /****   "jrd5_service_query"   ***/ NULL,
+			   REM_service_query, "REM_service_query",
+   /****     CSI_service_query    ***/ y_valve_no_entrypoint,
+   /****     RDB_service_query    ***/ y_valve_no_entrypoint,
+			   PSI_query_service,
+   /****    PSI5_service_query    ***/ y_valve_no_entrypoint,
+			   "_jrd8_service_query",
+			   IPI_service_query,
+			   (STATUS *, struct rdb **, USHORT, SCHAR *, USHORT, SCHAR *,
+				USHORT, SCHAR *))
+
+	ENTRYPOINT("isc_service_start", jrd8_service_start,
+   /****   "jrd5_service_start"   ***/ NULL,
+			   REM_service_start, "REM_service_start",
+   /****     CSI_service_start    ***/ y_valve_no_entrypoint,
+   /****     RDB_service_start    ***/ y_valve_no_entrypoint,
+   /****     PSI_service_start    ***/ y_valve_no_entrypoint,
+   /****    PSI5_service_start    ***/ y_valve_no_entrypoint,
+			   "_jrd8_service_start",
+			   IPI_service_start,
+			   (STATUS *, struct svc **, ULONG *, USHORT, SCHAR *))
+
+	ENTRYPOINT("isc_rollback_retaining", jrd8_rollback_retaining,
+   /****    "jrd5_rollback_retaining"   ***/ NULL,
+			   REM_rollback_retaining, "_REM_rollback_retaining",
+   /****    CSI_rollback_retaining    ***/ y_valve_no_entrypoint,
+   /****    RDB_rollback_retaining    ***/ y_valve_no_entrypoint,
+   /****    PSI_rollback_retaining    ***/ y_valve_no_entrypoint,
+   /****    PSI5_rollback_retaining    ***/ y_valve_no_entrypoint,
+			   "_jrd8_rollback_retaining",
+			   IPI_rollback_retaining, (STATUS *, struct tra **))
+#ifdef CANCEL_OPERATION
+	ENTRYPOINT("gds_cancel_operation", jrd8_cancel_operation,
+   /***    "jrd5_cancel_operation"  ***/ NULL,
+   /***     REM_cancel_operation    ***/ y_valve_no_entrypoint,
+   /***    "REM_cancel_operation"   ***/ NULL,
+   /***     CSI_cancel_operation    ***/ y_valve_no_entrypoint,
+   /***     RDB_cancel_operation    ***/ y_valve_no_entrypoint,
+   /***     PSI_cancel_operation    ***/ y_valve_no_entrypoint,
+   /***     PSI5_cancel_operation   ***/ y_valve_no_entrypoint,
+   /***    "_jrd8_cancel_operation" ***/ NULL,
+   /***     IPI_cancel_operation    ***/ y_valve_no_entrypoint,
+			   (STATUS *, struct att **, USHORT))
+#else
+	ENTRYPOINT("gds_cancel_operation",
+   /***	    jrd8_cancel_operation   ***/ y_valve_no_entrypoint,
+   /***    "jrd5_cancel_operation"  ***/ NULL,
+   /***     REM_cancel_operation    ***/ y_valve_no_entrypoint,
+   /***    "REM_cancel_operation"   ***/ NULL,
+   /***     CSI_cancel_operation    ***/ y_valve_no_entrypoint,
+   /***     RDB_cancel_operation    ***/ y_valve_no_entrypoint,
+   /***     PSI_cancel_operation    ***/ y_valve_no_entrypoint,
+   /***     PSI5_cancel_operation   ***/ y_valve_no_entrypoint,
+   /***    "_jrd8_cancel_operation" ***/ NULL,
+   /***     IPI_cancel_operation    ***/ y_valve_no_entrypoint,
+			   (STATUS *, struct att **, USHORT))
+#endif
+#undef ENTRYPOINT
+#else // 0/1
+
+ENTRYPOINT("gds_attach_database",
+		   jrd8_attach_database,
+		   "jrd5_attach_database",
+		   REM_attach_database,
+		   "_REM_attach_database",
+		   CSI_attach_database,
+		   RDB_attach_database,
+		   PSI_attach_database,
+		   PSI5_attach_database, "_jrd8_attach_database", IPI_attach_database)
+
+	ENTRYPOINT("gds_blob_info",
+		   jrd8_blob_info,
+		   "jrd5_blob_info",
+		   REM_blob_info,
+		   "_REM_blob_info",
+CSI_blob_info,
+RDB_blob_info, PSI_blob_info, PSI5_blob_info, "_jrd8_blob_info", IPI_blob_info)
+
+	ENTRYPOINT("gds_cancel_blob",
+		   jrd8_cancel_blob,
+		   "jrd5_cancel_blob",
+		   REM_cancel_blob,
+		   "_REM_cancel_blob",
+CSI_cancel_blob,
+RDB_cancel_blob,
+PSI_cancel_blob, PSI5_cancel_blob, "_jrd8_cancel_blob", IPI_cancel_blob)
+
+	ENTRYPOINT("gds_close_blob",
+		   jrd8_close_blob,
+		   "jrd5_close_blob",
+		   REM_close_blob,
+		   "_REM_close_blob",
+	CSI_close_blob,
+	RDB_close_blob,
+	PSI_close_blob, PSI5_close_blob, "_jrd8_close_blob", IPI_close_blob)
+
+	ENTRYPOINT("gds_commit_transaction",
+		   jrd8_commit_transaction,
+		   "jrd5_commit_transaction",
+REM_commit_transaction,
+"_REM_commit_transaction",
+CSI_commit_transaction,
+RDB_commit_transaction,
+PSI_commit_transaction, PSI5_commit_transaction, "_jrd8_commit_transaction", IPI_commit_transaction)
+
+	ENTRYPOINT("gds_compile_request",
+		   jrd8_compile_request,
+		   "jrd5_compile_request",
+		   REM_compile_request,
+		   "_REM_compile_request",
+CSI_compile_request,
+RDB_compile_request,
+PSI_compile_request,
+PSI5_compile_request, "_jrd8_compile_request", IPI_compile_request)
+
+	ENTRYPOINT("gds_create_blob",
+   /****    jrd8_create_blob    ***/ no_entrypoint,
+   /****   "jrd5_create_blob"   ***/ NULL,
+   /****     REM_create_blob    ***/ no_entrypoint,
+			   "_REM_create_blob",
+   /****     CSI_create_blob    ***/ no_entrypoint,
+			   RDB_create_blob, PSI_create_blob, PSI5_create_blob,
+   /****  "_jrd8_create_blob"    ***/ no_entrypoint,
+			   IPI_create_blob)
+
+	ENTRYPOINT("gds_create_database", jrd8_create_database,
+   /****   "jrd5_create_database"   ***/ NULL,
+			   REM_create_database,
+			   "_REM_create_database",
+			   CSI_create_database, RDB_create_database, PSI_create_database,
+   /****    PSI5_create_database    ***/ no_entrypoint,
+			   "_jrd8_create_database", IPI_create_database)
+
+	ENTRYPOINT("gds_database_info",
+		   jrd8_database_info,
+		   "jrd5_database_info",
+		   REM_database_info,
+		   "_REM_database_info",
+CSI_database_info,
+RDB_database_info,
+PSI_database_info, PSI5_database_info, "_jrd8_database_info", IPI_database_info)
+
+	ENTRYPOINT("gds_detach_database",
+		   jrd8_detach_database,
+		   "jrd5_detach_database",
+		   REM_detach_database,
+		   "_REM_detach_database",
+CSI_detach_database,
+RDB_detach_database,
+PSI_detach_database,
+PSI5_detach_database, "_jrd8_detach_database", IPI_detach_database)
+
+	ENTRYPOINT("gds_get_segment",
+		   jrd8_get_segment,
+		   "jrd5_get_segment",
+		   REM_get_segment,
+		   "_REM_get_segment",
+CSI_get_segment,
+RDB_get_segment,
+PSI_get_segment, PSI5_get_segment, "_jrd8_get_segment", IPI_get_segment)
+
+	ENTRYPOINT("gds_open_blob",
+   /****    jrd8_open_blob    ***/ no_entrypoint,
+   /****   "jrd5_open_blob"   ***/ NULL,
+   /****     REM_open_blob    ***/ no_entrypoint,
+			   "_REM_open_blob",
+   /****     CSI_open_blob    ***/ no_entrypoint,
+			   RDB_open_blob, PSI_open_blob, PSI5_open_blob,
+   /****  "_jrd8_open_blob"   ***/ no_entrypoint,
+			   IPI_open_blob)
+
+	ENTRYPOINT("gds_prepare_transaction",
+		   jrd8_prepare_transaction,
+		   "jrd5_prepare_transaction",
+REM_prepare_transaction,
+"_REM_prepare_transaction",
+CSI_prepare_transaction,
+RDB_prepare_transaction,
+PSI_prepare_transaction, PSI5_prepare_transaction, "_jrd8_prepare_transaction", IPI_prepare_transaction)
+
+	ENTRYPOINT("gds_put_segment",
+		   jrd8_put_segment,
+		   "jrd5_put_segment",
+		   REM_put_segment,
+		   "_REM_put_segment",
+CSI_put_segment,
+RDB_put_segment,
+PSI_put_segment, PSI5_put_segment, "_jrd8_put_segment", IPI_put_segment)
+
+	ENTRYPOINT("gds_reconnect_transaction",
+		   jrd8_reconnect_transaction,
+		   "jrd5_reconnect_transaction",
+REM_reconnect_transaction,
+"_REM_reconnect_transaction",
+CSI_reconnect_transaction,
+RDB_reconnect_transaction,
+PSI_reconnect_transaction, PSI5_reconnect_transaction, "_jrd8_reconnect_transaction", IPI_reconnect_transaction)
+
+	ENTRYPOINT("gds_receive",
+		   jrd8_receive, "jrd5_receive", REM_receive, "_REM_receive", CSI_receive, RDB_receive, PSI_receive, PSI5_receive,	/* the bridge pipe server will have two less params, but should be OK */
+			   "_jrd8_receive", IPI_receive)
+
+	ENTRYPOINT("gds_release_request",
+		   jrd8_release_request,
+		   "jrd5_release_request",
+		   REM_release_request,
+		   "_REM_release_request",
+CSI_release_request,
+RDB_release_request,
+PSI_release_request,
+PSI5_release_request, "_jrd8_release_request", IPI_release_request)
+
+	ENTRYPOINT("gds_request_info",
+		   jrd8_request_info,
+		   "jrd5_request_info",
+		   REM_request_info,
+		   "_REM_request_info",
+CSI_request_info,
+RDB_request_info,
+PSI_request_info, PSI5_request_info, "_jrd8_request_info", IPI_request_info)
+
+	ENTRYPOINT("gds_rollback_transaction",
+		   jrd8_rollback_transaction,
+		   "jrd5_rollback_transaction",
+REM_rollback_transaction,
+"_REM_rollback_transaction",
+CSI_rollback_transaction,
+RDB_rollback_transaction,
+PSI_rollback_transaction, PSI5_rollback_transaction, "_jrd8_rollback_transaction", IPI_rollback_transaction)
+
+	ENTRYPOINT("gds_send",
+		   jrd8_send,
+		   "jrd5_send",
+		   REM_send,
+		   "_REM_send",
+		   CSI_send, RDB_send, PSI_send, PSI5_send, "_jrd8_send", IPI_send)
+
+	ENTRYPOINT("gds_start_and_send",
+		   jrd8_start_and_send,
+		   "jrd5_start_and_send",
+		   REM_start_and_send,
+		   "_REM_start_and_send",
+CSI_start_and_send,
+RDB_start_and_send,
+PSI_start_and_send, PSI5_start_and_send, "_jrd8_start_and_send", IPI_start_and_send)
+
+	ENTRYPOINT("gds_start_request",
+		   jrd8_start_request,
+		   "jrd5_start_request",
+		   REM_start_request,
+		   "_REM_start_request",
+CSI_start_request,
+RDB_start_request,
+PSI_start_request, PSI5_start_request, "_jrd8_start_request", IPI_start_request)
+
+	ENTRYPOINT("gds_start_multiple", jrd8_start_multiple, "jrd5_start_multiple",
+   /****     REM_start_multiple    ***/ no_entrypoint,
+			   "_REM_start_multiple",
+			   CSI_start_multiple,
+			   RDB_start_multiple,
+			   PSI_start_multiple,
+			   PSI5_start_multiple,
+			   "_jrd8_start_multiple", IPI_start_multiple)
+
+	ENTRYPOINT("gds_start_transaction",
+		   jrd8_start_transaction,
+		   "jrd5_start_transaction",
+REM_start_transaction,
+"_REM_start_transaction",
+CSI_start_transaction,
+RDB_start_transaction,
+PSI_start_transaction, PSI5_start_transaction, "_jrd8_start_transaction", IPI_start_transaction)
+
+	ENTRYPOINT("gds_transaction_info",
+		   jrd8_transaction_info,
+		   "jrd5_transaction_info",
+REM_transaction_info,
+"_REM_transaction_info",
+CSI_transaction_info,
+RDB_transaction_info,
+PSI_transaction_info, PSI5_transaction_info, "_jrd8_transaction_info", IPI_transaction_info)
+
+	ENTRYPOINT("gds_unwind_request",
+		   jrd8_unwind_request,
+		   "jrd5_unwind_request",
+		   REM_unwind_request,
+		   "_REM_unwind_request",
+CSI_unwind_request,
+RDB_unwind_request,
+PSI_unwind_request, PSI5_unwind_request, "_jrd8_unwind_request", IPI_unwind_request)
+
+	ENTRYPOINT("gds_commit_retaining",
+		   jrd8_commit_retaining,
+		   "jrd5_commit_retaining",
+REM_commit_retaining, "_REM_commit_retaining", CSI_commit_retaining,
+   /****     RDB_commit_retaining    ***/ no_entrypoint,
+			   PSI_commit_retaining,
+			   PSI5_commit_retaining,
+			   "_jrd8_commit_retaining", IPI_commit_retaining)
+
+	ENTRYPOINT("gds_que_events",
+		   jrd8_que_events,
+		   "jrd5_que_events",
+		   REM_que_events, "_REM_que_events", CSI_que_events,
+   /****     RDB_que_events    ***/ no_entrypoint,
+			   PSI_que_events,
+			   PSI5_que_events, "_jrd8_que_events", IPI_que_events)
+
+	ENTRYPOINT("gds_cancel_events",
+		   jrd8_cancel_events,
+		   "jrd5_cancel_events",
+		   REM_cancel_events, "_REM_cancel_events", CSI_cancel_events,
+   /****     RDB_cancel_events    ***/ no_entrypoint,
+			   PSI_cancel_events,
+			   PSI5_cancel_events, "_jrd8_cancel_events", IPI_cancel_events)
+
+	ENTRYPOINT("gds_ddl", jrd8_ddl,
+   /****   "jrd5_ddl"   ***/ NULL,
+			   REM_ddl, "_REM_ddl", CSI_ddl,
+   /****     RDB_ddl    ***/ no_entrypoint,
+			   PSI_ddl, PSI5_ddl, "_jrd8_ddl", IPI_ddl)
+
+	ENTRYPOINT("gds_open_blob2",
+		   jrd8_open_blob2,
+		   "jrd5_open_blob2",
+		   REM_open_blob2, "_REM_open_blob2", CSI_open_blob2,
+   /****     RDB_open_blob2    ***/ no_entrypoint,
+			   PSI_open_blob2,
+			   PSI5_open_blob2, "_jrd8_open_blob2", IPI_open_blob2)
+
+	ENTRYPOINT("gds_create_blob2",
+		   jrd8_create_blob2,
+		   "jrd5_create_blob2",
+		   REM_create_blob2, "_REM_create_blob2", CSI_create_blob2,
+   /****     RDB_create_blob2    ***/ no_entrypoint,
+			   PSI_create_blob2,
+			   PSI5_create_blob2, "_jrd8_create_blob2", IPI_create_blob2)
+
+	ENTRYPOINT("gds_get_slice",
+		   jrd8_get_slice,
+		   "jrd5_get_slice", REM_get_slice, "_REM_get_slice", CSI_get_slice,
+   /****     RDB_get_slice    ***/ no_entrypoint,
+			   PSI_get_slice,
+			   PSI5_get_slice, "_jrd8_get_slice", IPI_get_slice)
+
+	ENTRYPOINT("gds_put_slice",
+		   jrd8_put_slice,
+		   "jrd5_put_slice", REM_put_slice, "_REM_put_slice", CSI_put_slice,
+   /****     RDB_put_slice    ***/ no_entrypoint,
+			   PSI_put_slice,
+			   PSI5_put_slice, "_jrd8_put_slice", IPI_put_slice)
+
+	ENTRYPOINT("gds_seek_blob",
+		   jrd8_seek_blob,
+		   "jrd5_seek_blob", REM_seek_blob, "_REM_seek_blob", CSI_seek_blob,
+   /****     RDB_seek_blob    ***/ no_entrypoint,
+			   PSI_seek_blob,
+			   PSI5_seek_blob, "_jrd8_seek_blob", IPI_seek_blob)
+
+	ENTRYPOINT("isc_transact_request", jrd8_transact_request,
+   /****   "jrd5_transact_request"   ***/ NULL,
+			   REM_transact_request,
+			   "_REM_transact_request", CSI_transact_request,
+   /****     RDB_transact_request    ***/ no_entrypoint,
+			   PSI_transact_request,
+   /****    PSI5_transact_request    ***/ no_entrypoint,
+			   "_jrd8_transact_request", IPI_transact_request)
+
+	ENTRYPOINT("isc_drop_database", jrd8_drop_database,
+   /****   "jrd5_drop_database"   ***/ NULL,
+			   REM_drop_database, "_REM_drop_database", CSI_drop_database,
+   /****     RDB_drop_database    ***/ no_entrypoint,
+			   PSI_drop_database,
+   /****    PSI5_drop_database    ***/ no_entrypoint,
+			   "_jrd8_drop_database", IPI_drop_database)
+
+/* and the DSQL entry points */
+	ENTRYPOINT("isc_dsql_allocate_statement",
+   /****         jrd8_allocate_statement    ***/ no_entrypoint,
+			   "LDSQL_allocate_statement", REM_allocate_statement,
+   /****        "_REM_allocate_statement"   ***/ "no_entrypoint",
+			   CSI_allocate_statement,
+   /****          RDB_allocate_statement    ***/ no_entrypoint,
+			   PSI_allocate_statement, PSI5_allocate_statement,
+   /****       "_jrd8_allocate_statement"   ***/ no_entrypoint,
+			   IPI_allocate_statement)
+
+	ENTRYPOINT("isc_dsql_execute",
+   /****         jrd8_execute    ***/ no_entrypoint,
+			   "LDSQL_execute", REM_execute,
+   /****        "_REM_execute"   ***/ "no_entrypoint",
+			   CSI_execute,
+   /****          RDB_execute    ***/ no_entrypoint,
+			   PSI_execute, PSI5_execute,
+   /****       "_jrd8_execute"   ***/ no_entrypoint,
+			   IPI_execute)
+
+	ENTRYPOINT("isc_dsql_execute2",
+   /****         jrd8_execute2    ***/ no_entrypoint,
+   /****        "jrd5_execute2"   ***/ NULL,
+			   REM_execute2,
+   /****        "_REM_execute2"   ***/ "no_entrypoint",
+			   CSI_execute2,
+   /****          RDB_execute2    ***/ no_entrypoint,
+			   PSI_execute2,
+   /****         PSI5_execute2    ***/ no_entrypoint,
+   /****       "_jrd8_execute2"   ***/ no_entrypoint,
+			   IPI_execute2)
+
+	ENTRYPOINT("isc_dsql_execute_immediate",
+   /****         jrd8_execute_immediate    ***/ no_entrypoint,
+			   "LDSQL_execute_immediate", REM_execute_immediate,
+   /****        "_REM_execute_immediate"   ***/ "no_entrypoint",
+			   CSI_execute_immediate,
+   /****          RDB_execute_immediate    ***/ no_entrypoint,
+			   PSI_execute_immediate, PSI5_execute_immediate,
+   /****       "_jrd8_execute_immediate"   ***/ no_entrypoint,
+			   IPI_execute_immediate)
+
+	ENTRYPOINT("isc_dsql_execute_immediate2",
+   /****         jrd8_execute_immediate2    ***/ no_entrypoint,
+   /****        "jrd5_execute_immediate2"   ***/ NULL,
+			   REM_execute_immediate2,
+   /****        "_REM_execute_immediate2"   ***/ "no_entrypoint",
+			   CSI_execute_immediate2,
+   /****          RDB_execute_immediate2    ***/ no_entrypoint,
+			   PSI_execute_immediate2,
+   /****         PSI5_execute_immediate2    ***/ no_entrypoint,
+   /****       "_jrd8_execute_immediate2"   ***/ no_entrypoint,
+			   IPI_execute_immediate2)
+
+	ENTRYPOINT("isc_dsql_fetch",
+   /****         jrd8_fetch    ***/ no_entrypoint,
+			   "LDSQL_fetch", REM_fetch,
+   /****        "_REM_fetch"   ***/ "no_entrypoint",
+			   CSI_fetch,
+   /****          RDB_fetch    ***/ no_entrypoint,
+			   PSI_fetch, PSI5_fetch,
+   /****       "_jrd8_fetch"   ***/ no_entrypoint,
+			   IPI_fetch)
+
+	ENTRYPOINT("isc_dsql_free_statement",
+   /****         jrd8_free_statement    ***/ no_entrypoint,
+			   "LDSQL_free_statement", REM_free_statement,
+   /****        "_REM_free_statement"   ***/ "no_entrypoint",
+			   CSI_free_statement,
+   /****          RDB_free_statement    ***/ no_entrypoint,
+			   PSI_free_statement, PSI5_free_statement,
+   /****       "_jrd8_free_statement"   ***/ no_entrypoint,
+			   IPI_free_statement)
+
+	ENTRYPOINT("isc_dsql_insert",
+   /****         jrd8_insert    ***/ no_entrypoint,
+   /****        "jrd5_insert"   ***/ NULL,
+			   REM_insert,
+   /****        "_REM_insert"   ***/ "no_entrypoint",
+			   CSI_insert,
+   /****          RDB_insert    ***/ no_entrypoint,
+			   PSI_insert,
+   /****         PSI5_insert    ***/ no_entrypoint,
+   /****       "_jrd8_insert"   ***/ no_entrypoint,
+			   IPI_insert)
+
+	ENTRYPOINT("isc_dsql_prepare",
+   /****         jrd8_prepare    ***/ no_entrypoint,
+			   "LDSQL_prepare", REM_prepare,
+   /****        "_REM_prepare"   ***/ "no_entrypoint",
+			   CSI_prepare,
+   /****          RDB_prepare    ***/ no_entrypoint,
+			   PSI_prepare, PSI5_prepare,
+   /****       "_jrd8_prepare"   ***/ no_entrypoint,
+			   IPI_prepare)
+
+	ENTRYPOINT("isc_dsql_set_cursor",
+   /****         jrd8_set_cursor    ***/ no_entrypoint,
+			   "LDSQL_set_cursor", REM_set_cursor_name,
+   /****        "_REM_set_cursor"   ***/ "no_entrypoint",
+			   CSI_set_cursor_name,
+   /****          RDB_set_cursor    ***/ no_entrypoint,
+			   PSI_set_cursor_name, PSI5_set_cursor_name,
+   /****       "_jrd8_set_cursor"   ***/ no_entrypoint,
+			   IPI_set_cursor_name)
+
+	ENTRYPOINT("isc_dsql_sql_info",
+   /****         jrd8_sql_info    ***/ no_entrypoint,
+			   "LDSQL_sql_info", REM_sql_info,
+   /****        "_REM_sql_info"   ***/ "no_entrypoint",
+			   CSI_sql_info,
+   /****          RDB_sql_info    ***/ no_entrypoint,
+			   PSI_sql_info, PSI5_sql_info,
+   /****       "_jrd8_sql_info"   ***/ no_entrypoint,
+			   IPI_sql_info)
+
+/* and service entry points */
+	ENTRYPOINT("isc_service_attach", jrd8_service_attach,
+   /****   "jrd5_service_attach"   ***/ NULL,
+			   REM_service_attach, "REM_service_attach",
+   /****     CSI_service_attach    ***/ no_entrypoint,
+   /****     RDB_service_attach    ***/ no_entrypoint,
+			   PSI_attach_service,
+   /****    PSI5_service_attach    ***/ no_entrypoint,
+			   "_jrd8_service_attach", IPI_service_attach)
+
+	ENTRYPOINT("isc_service_detach", jrd8_service_detach,
+   /****   "jrd5_service_detach"   ***/ NULL,
+			   REM_service_detach, "REM_service_detach",
+   /****     CSI_service_detach    ***/ no_entrypoint,
+   /****     RDB_service_detach    ***/ no_entrypoint,
+			   PSI_detach_service,
+   /****    PSI5_service_detach    ***/ no_entrypoint,
+			   "_jrd8_service_detach", IPI_service_detach)
+
+	ENTRYPOINT("isc_service_query", jrd8_service_query,
+   /****   "jrd5_service_query"   ***/ NULL,
+			   REM_service_query, "REM_service_query",
+   /****     CSI_service_query    ***/ no_entrypoint,
+   /****     RDB_service_query    ***/ no_entrypoint,
+			   PSI_query_service,
+   /****    PSI5_service_query    ***/ no_entrypoint,
+			   "_jrd8_service_query", IPI_service_query)
+
+	ENTRYPOINT("isc_service_start", jrd8_service_start,
+   /****   "jrd5_service_start"   ***/ NULL,
+			   REM_service_start, "REM_service_start",
+   /****     CSI_service_start    ***/ no_entrypoint,
+   /****     RDB_service_start    ***/ no_entrypoint,
+   /****     PSI_service_start    ***/ no_entrypoint,
+   /****    PSI5_service_start    ***/ no_entrypoint,
+			   "_jrd8_service_start", IPI_service_start)
+
+	ENTRYPOINT("isc_rollback_retaining", jrd8_rollback_retaining,
+   /****    "jrd5_rollback_retaining"   ***/ NULL,
+			   REM_rollback_retaining, "_REM_rollback_retaining",
+   /****    CSI_rollback_retaining    ***/ no_entrypoint,
+   /****    RDB_rollback_retaining    ***/ no_entrypoint,
+   /****    PSI_rollback_retaining    ***/ no_entrypoint,
+   /****    PSI5_rollback_retaining    ***/ no_entrypoint,
+			   "_jrd8_rollback_retaining", IPI_rollback_retaining)
+#ifdef CANCEL_OPERATION
+	ENTRYPOINT("gds_cancel_operation", jrd8_cancel_operation,
+   /***    "jrd5_cancel_operation"  ***/ NULL,
+   /***     REM_cancel_operation    ***/ no_entrypoint,
+   /***    "REM_cancel_operation"   ***/ NULL,
+   /***     CSI_cancel_operation    ***/ no_entrypoint,
+   /***     RDB_cancel_operation    ***/ no_entrypoint,
+   /***     PSI_cancel_operation    ***/ no_entrypoint,
+   /***     PSI5_cancel_operation   ***/ no_entrypoint,
+   /***    "_jrd8_cancel_operation" ***/ NULL,
+   /***     IPI_cancel_operation    ***/ no_entrypoint)
+#else
+	ENTRYPOINT("gds_cancel_operation",
+   /***	    jrd8_cancel_operation   ***/ no_entrypoint,
+   /***    "jrd5_cancel_operation"  ***/ NULL,
+   /***     REM_cancel_operation    ***/ no_entrypoint,
+   /***    "REM_cancel_operation"   ***/ NULL,
+   /***     CSI_cancel_operation    ***/ no_entrypoint,
+   /***     RDB_cancel_operation    ***/ no_entrypoint,
+   /***     PSI_cancel_operation    ***/ no_entrypoint,
+   /***     PSI5_cancel_operation   ***/ no_entrypoint,
+   /***    "_jrd8_cancel_operation" ***/ NULL,
+   /***     IPI_cancel_operation    ***/ no_entrypoint)
+#endif
+#undef ENTRYPOINT
+#endif // 0/1
diff --git a/src/jrd/envelope.e b/src/jrd/envelope.e
new file mode 100644
index 0000000000..35f1c7f238
--- /dev/null
+++ b/src/jrd/envelope.e
@@ -0,0 +1,315 @@
+/*
+ *	PROGRAM:	Interbase Engine
+ *	MODULE:		envelope.e
+ *	DESCRIPTION:	Envelope generator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+
+database db = "source/jrd/gds_functions.gdb";
+
+typedef enum mech_t
+{
+	mech_unkown = 1,
+	mech_status_vector,
+	mech_char_pointer,
+	mech_cstring,
+	mech_long,
+	mech_short,
+	mech_handle,
+	mech_short_pointer,
+	mech_long_pointer,
+	mech_quad_pointer,
+	mech_array_pointer,
+	mech_routine_pointer,
+	mech_teb_vector,
+	mech_sqlda,
+	mech_int,
+	mech_vax_desc,
+	mech_int_pointer
+} MECH_T;
+
+static IB_FILE *output;
+
+
+
+
+main(argc, argv)
+	 int argc;
+	 SCHAR **argv;
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate envelope.
+ *
+ **************************************/
+	IB_FILE *input;
+	TEXT *p, **end, *envelope, *component;
+	SSHORT c;
+
+	ready;
+	start_transaction;
+	output = ib_stdout;
+	envelope = "isc";
+	component = "JRD";
+
+	for (end = argv + argc, ++argv; argv < end;) {
+		p = *argv++;
+		if (*p == '-')
+			switch (p[1]) {
+			case 'o':
+				output = ib_fopen(*argv++, "w");
+				break;
+
+			case 'e':
+				envelope = *argv++;
+				break;
+
+			case 'c':
+				component = *argv++;
+				break;
+
+			default:
+				ib_fprintf(ib_stderr, "don't understand switch \"%s\"\n", p);
+				abort(1);
+			}
+		else
+			ib_fprintf(ib_stderr, "don't understand \"%s\"\n", p);
+	}
+
+	for x
+		in boilerplates with x.envelope_name eq envelope for y
+			in x.boilerplate y.segment[y.length] = 0;
+	ib_fprintf(output, y.segment);
+	end_for;
+	end_for;
+
+	for f
+		in functions cross e in envelopes over function_name with e.
+			envelope_name eq envelope and f.
+			component eq component sorted by f.function_type,
+			f.function_name if (strcmp(e.ifdef, ""))
+			ib_fprintf(output, "#ifdef %s\n", e.ifdef);
+	gen_function(f.function_name, e.new_name, f.std_call, f.return_type,
+				 e.add_status_vector);
+	if (strcmp(e.ifdef, ""))
+		ib_fprintf(output, "#endif\n");
+	end_for;
+
+	commit;
+	finish;
+	ib_fclose(output);
+}
+
+
+static gen_function(name, new_name, std_call, return_type, add_status_vector)
+	 TEXT *name;
+	 TEXT *new_name;
+	 USHORT std_call;
+	 TEXT *return_type;
+	 USHORT add_status_vector;
+{
+/**************************************
+ *
+ *	g e n _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate an envelope subroutine for an architectural defined
+ *	function (std_$call on Apollo).
+ *
+ **************************************/
+	TEXT *separator, *dtype;
+	USHORT n;
+
+	ib_fprintf(output, "%s %s (", return_type, new_name);
+	separator = "";
+
+	if (add_status_vector) {
+		ib_fprintf(output, "status_vector");
+		separator = ", ";
+	}
+
+	for x
+		in arguments with x.function_name eq name sorted by x.position
+			ib_fprintf(output, "%s%s", separator, x.argument_name);
+	separator = ", ";
+	end_for;
+
+	ib_fprintf(output, ")\n");
+	n = 0;
+
+	if (add_status_vector)
+		ib_fprintf(output, "    long	*status_vector;\n");
+
+	for x
+		in arguments cross y in argument_types
+			over argument_type
+			with x.function_name eq name sorted by x.position
+			if (x.position != ++n)
+			ib_fprintf(ib_stderr, "argument %s of %s is out of sequence\n",
+					   x.argument_name, name);
+	switch (get_dtype(y.argument_type)) {
+	case mech_status_vector:
+		ib_fprintf(output, "    STATUS	*%s;\n", x.argument_name);
+		break;
+
+	case mech_handle:
+		ib_fprintf(output, "    long	*%s;\n", x.argument_name);
+		break;
+
+	case mech_short:
+		ib_fprintf(output, "    short	%s;\n", x.argument_name);
+		break;
+
+	case mech_long:
+		ib_fprintf(output, "    long	%s;\n", x.argument_name);
+		break;
+
+	case mech_int:
+		ib_fprintf(output, "    int	%s;\n", x.argument_name);
+		break;
+
+	case mech_char_pointer:
+		ib_fprintf(output, "    char	*%s;\n", x.argument_name);
+		break;
+
+	case mech_short_pointer:
+		ib_fprintf(output, "    short	*%s;\n", x.argument_name);
+		break;
+
+	case mech_long_pointer:
+		ib_fprintf(output, "    long	*%s;\n", x.argument_name);
+		break;
+
+	case mech_int_pointer:
+		ib_fprintf(output, "    int	*%s;\n", x.argument_name);
+		break;
+
+	case mech_quad_pointer:
+		ib_fprintf(output, "    GDS__QUAD	*%s;\n", x.argument_name);
+		break;
+
+	case mech_array_pointer:
+		ib_fprintf(output, "    char		*%s;\n", x.argument_name);
+		break;
+
+	case mech_routine_pointer:
+		ib_fprintf(output, "    int	(*%s)();\n", x.argument_name);
+		break;
+
+	case mech_teb_vector:
+		ib_fprintf(output, "    TEB	*%s;\n", x.argument_name);
+		break;
+
+	case mech_sqlda:
+		ib_fprintf(output, "    SQLDA	*%s;\n", x.argument_name);
+		break;
+
+	case mech_vax_desc:
+		ib_fprintf(output, "    long	*%s;\n", x.argument_name);
+		break;
+
+	default:
+		ib_printf("gen: don't understand argument_type %s in %s\n",
+				  y.argument_type, name);
+	}
+	end_for;
+
+	ib_fprintf(output, "{\n");
+
+	if (add_status_vector)
+		ib_fprintf(output,
+				   "if (status_vector)\n    {\n    status_vector [0] = 1;\n    status_vector [1] = 0;\n    }\n");
+
+	if (!strcmp(return_type, "void"))
+		ib_fprintf(output, "%s (", name);
+	else
+		ib_fprintf(output, "return %s (", name);
+
+	separator = "";
+
+	for x
+		in arguments cross y in argument_types
+			over argument_type
+			with x.function_name eq name sorted by x.position
+			switch (get_dtype(y.argument_type)) {
+		case mech_short:
+		case mech_long:
+			ib_fprintf(output, "%s%s", separator, x.argument_name);
+			break;
+
+		default:
+			if (std_call)
+				ib_fprintf(output, "%sGDS_VAL(%s)", separator,
+						   x.argument_name);
+			else
+				ib_fprintf(output, "%s%s", separator, x.argument_name);
+		}
+	separator = ",\n\t";
+	end_for;
+
+	ib_fprintf(output, ");\n}\n\n");
+}
+
+
+static get_dtype(string)
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	g e t _ d t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate from argument type string to name.
+ *
+ **************************************/
+
+#define TEST(name, mech)	if (!strcmp (string, name)) return mech
+
+	TEST("short", mech_short);
+	TEST("long", mech_long);
+	TEST("handle", mech_handle);
+	TEST("status_vector", mech_status_vector);
+	TEST("char_pointer", mech_char_pointer);
+	TEST("filename", mech_char_pointer);
+	TEST("short_pointer", mech_short_pointer);
+	TEST("long_pointer", mech_long_pointer);
+	TEST("blob_id", mech_quad_pointer);
+	TEST("array_pointer", mech_array_pointer);
+	TEST("routine_pointer", mech_routine_pointer);
+	TEST("teb_vector", mech_teb_vector);
+	TEST("sqlda", mech_sqlda);
+	TEST("int", mech_int);
+	TEST("int_pointer", mech_int_pointer);
+	TEST("vax_desc", mech_vax_desc);
+
+	ib_printf("don't understand mechanism %s\n", string);
+}
diff --git a/src/jrd/err.cpp b/src/jrd/err.cpp
new file mode 100644
index 0000000000..445891edf6
--- /dev/null
+++ b/src/jrd/err.cpp
@@ -0,0 +1,659 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		err.c
+ *	DESCRIPTION:	Bug check routine
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/codes.h"
+#include "../jrd/iberr.h"
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+#include "../jrd/jrd.h"
+#include "../jrd/pio.h"
+#include "../jrd/val.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../jrd/req.h"
+#include "../jrd/tra.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/met_proto.h"
+#endif
+#include "../jrd/thd_proto.h"
+#include "../jrd/dbg_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+
+#define JRD_FAILURE_SPACE	2048
+#define JRD_FAILURE_UNKNOWN	"<UNKNOWN>"	/* Used when buffer fails */
+
+
+extern "C" {
+
+
+static TEXT *jrd_failures = NULL, *jrd_failures_ptr = NULL;
+
+static void cleanup(void *);
+static void internal_error(STATUS, int);
+
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+void DLL_EXPORT ERR_bugcheck(int number)
+{
+/**************************************
+ *
+ *	E R R _ b u g c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Things seem to be going poorly today.
+ *
+ **************************************/
+	DBB dbb;
+
+	dbb = GET_DBB;
+	dbb->dbb_flags |= DBB_bugcheck;
+
+	CCH_shutdown_database(dbb);
+
+	internal_error(gds__bug_check, number);
+}
+#endif
+
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+void DLL_EXPORT ERR_bugcheck_msg(CONST TEXT* msg)
+{
+/**************************************
+ *
+ *	E R R _ b u g c h e c k _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Things seem to be going poorly today.
+ *
+ **************************************/
+	DBB dbb;
+
+	dbb = GET_DBB;
+
+	dbb->dbb_flags |= DBB_bugcheck;
+	DEBUG;
+
+	CCH_shutdown_database(dbb);
+
+	ERR_post(gds__bug_check, gds_arg_string, ERR_cstring(msg), 0);
+}
+#endif
+
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+void DLL_EXPORT ERR_corrupt(int number)
+{
+/**************************************
+ *
+ *	E R R _ c o r r u p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Things seem to be going poorly today.
+ *
+ **************************************/
+
+	internal_error(gds__db_corrupt, number);
+}
+#endif
+
+
+TEXT* DLL_EXPORT ERR_cstring(CONST TEXT* in_string)
+{
+/**************************************
+ *
+ *	E R R _ c s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a stack local string into an area that is
+ *	guaranteed to exist for a reasonable length of time.
+ *	Only strings that are to be placed in status vectors
+ *	should use this routine.
+ *	A circular buffer is used to hold these strings.  It
+ *	is independent of the JRD allocator mechanism.
+ *
+ **************************************/
+
+	return ERR_string(in_string, strlen(in_string));
+}
+
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+#ifndef GATEWAY
+void DLL_EXPORT ERR_duplicate_error(IDX_E	code,
+									REL		relation,
+									USHORT index_number)
+{
+/**************************************
+ *
+ *	E R R _ d u p l i c a t e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Duplicate error during index update.
+ *
+ **************************************/
+	TEXT index[32], *index_name, constraint[32], *constraint_name;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	MET_lookup_index(tdbb, index, relation->rel_name, index_number + 1);
+	if (index[0]) {
+		index_name = ERR_cstring(index);
+		MET_lookup_cnstrt_for_index(tdbb, constraint, index_name);
+		if (constraint[0])
+			constraint_name = ERR_cstring(constraint);
+	}
+	else {
+		index_name = "***unknown***";
+		constraint_name = "***unknown***";
+	}
+
+	switch (code) {
+	case idx_e_keytoobig:
+		ERR_post(gds__imp_exc, gds_arg_gds, gds__keytoobig,
+				 gds_arg_string, ERR_cstring(index_name), 0);
+		break;
+
+	case idx_e_nullunique:
+		ERR_post(gds__no_dup, gds_arg_string, ERR_cstring(index_name),
+				 gds_arg_gds, gds__nullsegkey, 0);
+		break;
+
+	case idx_e_conversion:
+		ERR_punt();
+		break;
+
+	case idx_e_foreign:
+		ERR_post(gds__foreign_key,
+				 gds_arg_string, ERR_cstring(constraint_name),
+				 gds_arg_string, relation->rel_name, 0);
+		break;
+
+	default:
+		if (constraint[0])
+			ERR_post(gds__unique_key_violation,
+					 gds_arg_string, ERR_cstring(constraint_name),
+					 gds_arg_string, relation->rel_name, 0);
+		else
+			ERR_post(gds__no_dup, gds_arg_string, ERR_cstring(index_name), 0);
+	}
+}
+#endif
+#endif
+
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+void DLL_EXPORT ERR_error(int number)
+{
+/**************************************
+ *
+ *	E R R _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post a user-level error.  This is a temporary mechanism
+ *	that will eventually disappear.
+ *
+ **************************************/
+	TEXT errmsg[MAX_ERRMSG_LEN + 1];
+
+	DEBUG;
+	if (gds__msg_lookup(0, JRD_BUGCHK, number, sizeof(errmsg), errmsg, NULL) <
+		1) sprintf(errmsg, "error code %d", number);
+
+	ERR_post(gds__random, gds_arg_string, ERR_cstring(errmsg), 0);
+}
+#endif
+
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+void DLL_EXPORT ERR_error_msg(CONST TEXT* msg)
+{
+/**************************************
+ *
+ *	E R R _ e r r o r _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post a user-level error.  This is a temporary mechanism
+ *	that will eventually disappear.
+ *
+ **************************************/
+
+	DEBUG;
+	ERR_post(gds__random, gds_arg_string, ERR_cstring(msg), 0);
+}
+#endif
+
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+void DLL_EXPORT ERR_log(int facility, int number, CONST TEXT* message)
+{
+/**************************************
+ *
+ *	E R R _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Log a message to the interbase.log    
+ *
+ **************************************/
+	DBB dbb;
+	TEXT errmsg[MAX_ERRMSG_LEN + 1];
+	TEXT *dbname;
+
+	DEBUG;
+	if (message)
+		strcpy(errmsg, message);
+	else
+		if (gds__msg_lookup(0, facility, number, sizeof(errmsg), errmsg, NULL)
+			< 1)
+		strcpy(errmsg, "Internal error code");
+
+	sprintf(errmsg + strlen(errmsg), " (%d)", number);
+
+	if (dbb = GET_DBB) {
+#ifndef GATEWAY
+		dbname = ((dbb->dbb_file) ? dbb->dbb_file->fil_string : NULL);
+#else
+		dbname = dbb->dbb_filename->str_data;
+#endif
+	}
+
+	gds__log("Database: %s\n\t%s", (dbname) ? dbname : "", errmsg, 0);
+}
+#endif
+
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+BOOLEAN DLL_EXPORT ERR_post_warning(STATUS status, ...)
+{
+/**************************************
+ *
+ *      E R R _ p o s t _ w a r n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post a warning to the current status vector.
+ *
+ **************************************/
+	va_list args;
+	int type, len;
+	STATUS *status_vector, *q;
+	int indx = 0, warning_indx = 0;
+
+	VA_START(args, status);
+	status_vector = ((TDBB) GET_THREAD_DATA)->tdbb_status_vector;
+
+	if (status_vector[0] != gds_arg_gds ||
+		(status_vector[0] == gds_arg_gds && status_vector[1] == 0 &&
+		 status_vector[2] != gds_arg_warning)) {
+		/* this is a blank status vector */
+		status_vector[0] = gds_arg_gds;
+		status_vector[1] = 0;
+		status_vector[2] = gds_arg_end;
+		indx = 2;
+	}
+	else {
+		/* find end of a status vector */
+		PARSE_STATUS(status_vector, indx, warning_indx);
+		if (indx)
+			--indx;
+	}
+
+/* stuff the warning */
+	if (indx + 3 < ISC_STATUS_LENGTH) {
+		status_vector[indx++] = gds_arg_warning;
+		status_vector[indx++] = status;
+		while ((type = va_arg(args, int)) && (indx + 3 < ISC_STATUS_LENGTH))
+			switch (status_vector[indx++] = type) {
+			case gds_arg_warning:
+				status_vector[indx++] = (STATUS) va_arg(args, STATUS);
+				break;
+
+			case gds_arg_string:
+				q = reinterpret_cast < STATUS * >(va_arg(args, TEXT *));
+				if (strlen((TEXT *) q) >= MAX_ERRSTR_LEN) {
+					status_vector[(indx - 1)] = gds_arg_cstring;
+					status_vector[indx++] = MAX_ERRSTR_LEN;
+				}
+				status_vector[indx++] = reinterpret_cast < STATUS > (q);
+				break;
+
+			case gds_arg_interpreted:
+				status_vector[indx++] = va_arg(args, STATUS);
+				break;
+
+			case gds_arg_cstring:
+				len = va_arg(args, int);
+				status_vector[indx++] =
+					(STATUS) (len >= MAX_ERRSTR_LEN) ? MAX_ERRSTR_LEN : len;
+				status_vector[indx++] = (STATUS) va_arg(args, TEXT *);
+				break;
+
+			case gds_arg_number:
+				status_vector[indx++] = (STATUS) va_arg(args, SLONG);
+				break;
+
+			case gds_arg_vms:
+			case gds_arg_unix:
+			case gds_arg_domain:
+			case gds_arg_dos:
+			case gds_arg_mpexl:
+			case gds_arg_next_mach:
+			case gds_arg_netware:
+			case gds_arg_win32:
+			default:
+				status_vector[indx++] = (STATUS) va_arg(args, int);
+				break;
+			}
+		status_vector[indx] = gds_arg_end;
+		return TRUE;
+	}
+	else {
+		/* not enough free space */
+		return FALSE;
+	}
+}
+#endif
+
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+void DLL_EXPORT ERR_post(STATUS status, ...)
+{
+/**************************************
+ *
+ *	E R R _ p o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a status vector and return to the user.
+ *
+ **************************************/
+	STATUS *status_vector;
+	STATUS tmp_status[ISC_STATUS_LENGTH], warning_status[ISC_STATUS_LENGTH];
+	int i, tmp_status_len = 0, status_len = 0, err_status_len = 0;
+	int warning_count = 0, warning_indx = 0;
+
+	status_vector = ((TDBB) GET_THREAD_DATA)->tdbb_status_vector;
+
+/* stuff the status into temp buffer */
+	MOVE_CLEAR(tmp_status, sizeof(tmp_status));
+	STUFF_STATUS(tmp_status, status);
+
+/* calculate length of the status */
+	PARSE_STATUS(tmp_status, tmp_status_len, warning_indx);
+	assert(warning_indx == 0);
+
+	if (status_vector[0] != gds_arg_gds ||
+		(status_vector[0] == gds_arg_gds && status_vector[1] == 0 &&
+		 status_vector[2] != gds_arg_warning)) {
+		/* this is a blank status vector just stuff the status */
+		MOVE_FASTER(tmp_status, status_vector,
+					sizeof(STATUS) * tmp_status_len);
+		DEBUG;
+		ERR_punt();
+	}
+
+	PARSE_STATUS(status_vector, status_len, warning_indx);
+	if (status_len)
+		--status_len;
+
+/* check for duplicated error code */
+	for (i = 0; i < ISC_STATUS_LENGTH; i++) {
+		if (status_vector[i] == gds_arg_end && i == status_len)
+			break;				/* end of argument list */
+
+		if (i && i == warning_indx)
+			break;				/* vector has no more errors */
+
+		if (status_vector[i] == tmp_status[1] && i &&
+			status_vector[i - 1] != gds_arg_warning &&
+			i + tmp_status_len - 2 < ISC_STATUS_LENGTH &&
+			(memcmp(&status_vector[i], &tmp_status[1],
+					sizeof(STATUS) * (tmp_status_len - 2)) == 0)) {
+			/* duplicate found */
+			DEBUG;
+			ERR_punt();
+		}
+	}
+
+/* if the status_vector has only warnings then adjust err_status_len */
+	if ((err_status_len = i) == 2 && warning_indx)
+		err_status_len = 0;
+
+	if (warning_indx) {
+		/* copy current warning(s) to a temp buffer */
+		MOVE_CLEAR(warning_status, sizeof(warning_status));
+		MOVE_FASTER(&status_vector[warning_indx], warning_status,
+					sizeof(STATUS) * (ISC_STATUS_LENGTH - warning_indx));
+		PARSE_STATUS(warning_status, warning_count, warning_indx);
+	}
+
+/* add the status into a real buffer right in between last error
+   and first warning */
+
+	if ((i = err_status_len + tmp_status_len) < ISC_STATUS_LENGTH) {
+		MOVE_FASTER(tmp_status, &status_vector[err_status_len],
+					sizeof(STATUS) * tmp_status_len);
+		/* copy current warning(s) to the status_vector */
+		if (warning_count && i + warning_count - 1 < ISC_STATUS_LENGTH) {
+			MOVE_FASTER(warning_status, &status_vector[i - 1],
+						sizeof(STATUS) * warning_count);
+		}
+	}
+	DEBUG;
+	ERR_punt();
+}
+#endif
+
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+void DLL_EXPORT ERR_punt(void)
+{
+/**************************************
+ *
+ *	E R R _ p u n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Error stuff has been copied to status vector.  Now punt.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	TEXT *dbname;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	if (dbb && (dbb->dbb_flags & DBB_bugcheck)) {
+#ifndef GATEWAY
+		dbname = ((dbb->dbb_file) ? dbb->dbb_file->fil_string : NULL);
+#else
+		dbname = dbb->dbb_filename->str_data;
+#endif
+		gds__log_status(dbname, tdbb->tdbb_status_vector);
+	}
+
+	LONGJMP(reinterpret_cast < jmp_buf & >(tdbb->tdbb_setjmp),
+			(int) tdbb->tdbb_status_vector[1]);
+}
+#endif
+
+
+TEXT* DLL_EXPORT ERR_string(CONST TEXT* in_string, int length)
+{
+/**************************************
+ *
+ *	E R R _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a stack local string into an area that is
+ *	guaranteed to exist for a reasonable length of time.
+ *	Only strings that are to be placed in status vectors
+ *	should use this routine.
+ *	A circular buffer is used to hold these strings.  It
+ *	is independent of the JRD allocator mechanism.
+ *
+ **************************************/
+	TEXT *new_string;
+
+	if (!jrd_failures)
+	{
+		jrd_failures = (TEXT *) ALLOC_LIB_MEMORY((SLONG) JRD_FAILURE_SPACE);
+		/* FREE: apparently never freed */
+		if (!jrd_failures)		/* NOMEM: return a literal */
+			return (TEXT *) JRD_FAILURE_UNKNOWN;
+#ifdef DEBUG_GDS_ALLOC
+		/* This structure does not always get freed before
+		 * process exit
+		 */
+		gds_alloc_flag_unfreed((void *) jrd_failures);
+#endif
+		jrd_failures_ptr = jrd_failures;
+
+#pragma FB_COMPILER_MESSAGE("Fix! Can we change the API to take the real type?")
+		// ugly but currently necessary cast
+		gds__register_cleanup(cleanup, 0);
+	}
+
+/* If there isn't any more room in the buffer, start at the beginning again */
+
+	if (jrd_failures_ptr + length + 1 > jrd_failures + JRD_FAILURE_SPACE)
+	{
+		jrd_failures_ptr = jrd_failures;
+	}
+
+	new_string = jrd_failures_ptr;
+
+	while (length-- &&
+		(jrd_failures_ptr < jrd_failures + JRD_FAILURE_SPACE - 1))
+	{
+		*jrd_failures_ptr++ = *in_string++;
+	}
+	*jrd_failures_ptr++ = 0;
+
+	return new_string;
+}
+
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+void DLL_EXPORT ERR_warning(STATUS status, ...)
+{
+/**************************************
+ *
+ *	E R R _ w a r n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write an error out to the status vector but
+ *	don't longjmp back to the user.  This allows
+ *	sending a warning message back to the user
+ *	without stopping execution of a request.  Note
+ *	that subsequent errors can supersede this one.
+ *
+ **************************************/
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	STUFF_STATUS(tdbb->tdbb_status_vector, status);
+	DEBUG;
+	tdbb->tdbb_request->req_flags |= req_warning;
+}
+#endif
+
+
+static void cleanup(void *arg)
+{
+/**************************************
+ *
+ *	c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Exit handler for image exit.
+ *
+ **************************************/
+
+	if (jrd_failures)
+		FREE_LIB_MEMORY(jrd_failures);
+
+	jrd_failures = NULL;
+}
+
+
+#if ( !defined( REQUESTER) && !defined( SUPERCLIENT))
+static void internal_error(STATUS status, int number)
+{
+/**************************************
+ *
+ *	i n t e r n a l _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Things seem to be going poorly today.
+ *
+ **************************************/
+	TEXT errmsg[MAX_ERRMSG_LEN + 1];
+
+	DEBUG;
+	if (gds__msg_lookup(0, JRD_BUGCHK, number, sizeof(errmsg), errmsg, NULL) <
+		1) strcpy(errmsg, "Internal error code");
+
+	sprintf(errmsg + strlen(errmsg), " (%d)", number);
+
+	ERR_post(status, gds_arg_string, ERR_cstring(errmsg), 0);
+}
+#endif
+
+} /* extern "C" */
diff --git a/src/jrd/err_proto.h b/src/jrd/err_proto.h
new file mode 100644
index 0000000000..7256ed3e06
--- /dev/null
+++ b/src/jrd/err_proto.h
@@ -0,0 +1,57 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		err_proto.h
+ *	DESCRIPTION:	Prototype header file for err.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_ERR_PROTO_H
+#define JRD_ERR_PROTO_H
+
+#ifndef REQUESTER
+#include "../jrd/jrd.h"
+#include "../jrd/btr.h"
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern BOOLEAN DLL_EXPORT ERR_post_warning(STATUS, ...);
+extern void ERR_assert(CONST TEXT*, int);
+extern void DLL_EXPORT ERR_bugcheck(int);
+extern void DLL_EXPORT ERR_bugcheck_msg(CONST TEXT*);
+extern void DLL_EXPORT ERR_corrupt(int);
+extern void DLL_EXPORT ERR_duplicate_error(enum idx_e, struct rel*, USHORT);
+extern void DLL_EXPORT ERR_error(int);
+extern void DLL_EXPORT ERR_error_msg(CONST TEXT *);
+extern void DLL_EXPORT ERR_post(STATUS, ...);
+extern void DLL_EXPORT ERR_punt(void);
+extern void DLL_EXPORT ERR_warning(STATUS, ...);
+extern void DLL_EXPORT ERR_log(int, int, CONST TEXT *);
+#endif /* REQUESTER */
+
+extern TEXT *DLL_EXPORT ERR_cstring(CONST TEXT*);
+extern TEXT *DLL_EXPORT ERR_string(CONST TEXT*, int);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_ERR_PROTO_H */
diff --git a/src/jrd/event.cpp b/src/jrd/event.cpp
new file mode 100644
index 0000000000..de24e493e8
--- /dev/null
+++ b/src/jrd/event.cpp
@@ -0,0 +1,1663 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		event.c
+ *	DESCRIPTION:	Event Manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+#include "../jrd/codes.h"
+#include "../jrd/thd.h"
+#include "../jrd/event.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/isc_signal.h"
+#include "../jrd/event_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+
+#pragma FB_COMPILER_MESSAGE("FIXFIXFIX!!! - DANGER!")
+// We currently can't include jrd/err_proto.h to get the function
+// declaration. :-<
+extern "C" {
+extern void DLL_EXPORT ERR_bugcheck_msg(CONST TEXT *);
+}
+
+
+#ifdef UNIX
+#include <signal.h>
+#define EVENT_SIGNAL	SIGUSR2
+#endif
+
+#ifdef WIN_NT
+#include <process.h>
+#include <windows.h>
+
+#define MUTEX		event_mutex
+#endif
+
+#ifdef SERVER
+#undef MULTI_THREAD
+#endif
+
+#ifndef AST_TYPE
+#define AST_TYPE
+#endif
+
+#ifndef MUTEX
+#define MUTEX		EVENT_header->evh_mutex
+#endif
+
+#define EVENT_FLAG		64
+#define SEMAPHORES		1
+#define MAX_EVENT_BUFFER	65500
+
+
+extern "C" {
+
+
+static EVH acquire(void);
+static FRB alloc_global(UCHAR type, ULONG length, BOOLEAN recurse);
+static SLONG create_process(void);
+static void delete_event(EVNT);
+static void delete_process(SLONG);
+static void delete_request(REQ);
+static void delete_session(SLONG);
+static AST_TYPE deliver(void);
+static void deliver_request(REQ);
+static void exit_handler(void *);
+static EVNT find_event(USHORT, TEXT *, EVNT);
+static void free_global(FRB);
+static RINT historical_interest(SES, SLONG);
+static void init(void *, SH_MEM, int);
+static void insert_tail(SRQ *, SRQ *);
+static EVNT make_event(USHORT, TEXT *, SLONG);
+static void mutex_bugcheck(TEXT *, int);
+static void post_process(PRB);
+static void probe_processes(void);
+static void punt(TEXT *);
+static void release(void);
+static void remove_que(SRQ *);
+static BOOLEAN request_completed(REQ);
+static STATUS return_ok(STATUS *);
+static void THREAD_ROUTINE watcher_thread(void *);
+
+static SSHORT acquire_count;
+static EVH EVENT_header = NULL;
+static SLONG EVENT_process_offset, EVENT_default_size;
+static PRB EVENT_process;
+static SH_MEM_T EVENT_data;
+
+#if defined(WIN_NT)
+static MTX_T event_mutex[1];
+#endif
+
+static struct ipccfg EVENT_hdrtbl[] =
+{
+#if !(defined WIN_NT)
+	"V4_EVENT_MEM_SIZE", -1, &EVENT_default_size, 0, 0,
+	"ANY_EVENT_MEM_SIZE", -1, &EVENT_default_size, -1, 0,
+#endif
+	NULL, -1, NULL, 0, 0
+};
+
+
+int EVENT_cancel(SLONG request_id)
+{
+/**************************************
+ *
+ *	E V E N T _ c a n c e l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel an outstanding event.
+ *
+ **************************************/
+	PRB process;
+	REQ request;
+	SES session;
+	SRQ *que, *que2;
+
+	if (!EVENT_header)
+		return 0;
+
+	ACQUIRE;
+
+	process = (PRB) ABS_PTR(EVENT_process_offset);
+
+	QUE_LOOP(process->prb_sessions, que2) {
+		session = (SES) ((UCHAR *) que2 - OFFSET(SES, ses_sessions));
+		QUE_LOOP(session->ses_requests, que) {
+			request = (REQ) ((UCHAR *) que - OFFSET(REQ, req_requests));
+			if (request->req_request_id == request_id) {
+				delete_request(request);
+				RELEASE;
+				return 0;
+			}
+		}
+	}
+
+	RELEASE;
+	return 0;
+}
+
+
+SLONG EVENT_create_session(STATUS * status_vector)
+{
+/**************************************
+ *
+ *	E V E N T _ c r e a t e _ s e s s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create session.
+ *
+ **************************************/
+	PRB process;
+	SES session;
+	SLONG id;
+
+/* If we're not initialized, do so now */
+
+	if (!EVENT_header && !EVENT_init(status_vector, TRUE))
+		return 0;
+
+	if (!EVENT_process_offset)
+		create_process();
+
+	ACQUIRE;
+	session = (SES) alloc_global(type_ses, (SLONG) sizeof(struct ses), FALSE);
+	process = (PRB) ABS_PTR(EVENT_process_offset);
+	session->ses_process = EVENT_process_offset;
+
+#ifdef MULTI_THREAD
+	session->ses_flags = 0;
+#endif
+
+	insert_tail(&process->prb_sessions, &session->ses_sessions);
+	QUE_INIT(session->ses_requests);
+	id = REL_PTR(session);
+	RELEASE;
+
+	return id;
+}
+
+
+int EVENT_delete_session(SLONG session_id)
+{
+/**************************************
+ *
+ *	E V E N T _ d e l e t e _ s e s s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a session.
+ *
+ **************************************/
+
+	if (!EVENT_header)
+		return 0;
+
+	ACQUIRE;
+	delete_session(session_id);
+	RELEASE;
+	return 0;
+}
+
+
+EVH EVENT_init(STATUS * status_vector, USHORT server_flag)
+{
+/**************************************
+ *
+ *	E V E N T _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for access to shared global region.  If "server_flag" is true,
+ *	create region if it doesn't exist.  Return address of header if region
+ *	exits, otherwise return NULL.
+ *
+ **************************************/
+	TEXT *event_file, buffer[256];
+
+/* If we're already initialized, there's nothing to do */
+
+	if (EVENT_header)
+		return EVENT_header;
+
+	EVENT_default_size = EVENT_DEFAULT_SIZE;
+	ISC_get_config(LOCK_HEADER, EVENT_hdrtbl);
+
+#ifdef SERVER
+	EVENT_data.sh_mem_address = EVENT_header =
+		(EVH) gds__alloc((SLONG) EVENT_default_size);
+/* FREE: apparently only freed at process exit */
+	if (!EVENT_header) {		/* NOMEM: */
+		status_vector[0] = gds_arg_gds;
+		status_vector[1] = gds__virmemexh;
+		status_vector[2] = gds_arg_end;
+		return NULL;
+	}
+#ifdef DEBUG_GDS_ALLOC
+/* This structure is apparently only freed when the process exits */
+/* 1994-October-25 David Schnepper */
+	gds_alloc_flag_unfreed((void *) EVENT_header);
+#endif /* DEBUG_GDS_ALLOC */
+
+	EVENT_data.sh_mem_length_mapped = EVENT_default_size;
+	EVENT_data.sh_mem_mutex_arg = 0;
+	init((SLONG) 0, &EVENT_data, TRUE);
+#else
+
+#if (defined UNIX || NETWARE_386)
+	EVENT_data.sh_mem_semaphores = SEMAPHORES;
+#endif
+
+	gds__prefix_lock(buffer, EVENT_FILE);
+	event_file = buffer;
+
+	if (!(EVENT_header = (EVH) ISC_map_file(status_vector,
+											event_file,
+											reinterpret_cast < void (*)() >
+											(init), 0, EVENT_default_size,
+											&EVENT_data))) {
+#ifdef SERVER
+		gds__free(EVENT_data.sh_mem_address);
+#endif /* SERVER */
+		return NULL;
+	}
+
+#endif
+
+	gds__register_cleanup(exit_handler, 0);
+
+#ifdef UNIX
+#ifndef MULTI_THREAD
+	ISC_signal(EVENT_SIGNAL, deliver, 0);
+#endif
+#endif
+
+	return EVENT_header;
+}
+
+
+int EVENT_post(
+			   STATUS * status_vector,
+			   USHORT major_length,
+			   TEXT * major_code,
+			   USHORT minor_length, TEXT * minor_code, USHORT count)
+{
+/**************************************
+ *
+ *	E V E N T _ p o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an event.
+ *
+ **************************************/
+	REQ request;
+	SRQ *que;
+	PRB process;
+	EVNT event, parent;
+	RINT interest;
+	USHORT flag;
+
+/* If we're not initialized, do so now */
+
+	if (!EVENT_header && !EVENT_init(status_vector, FALSE))
+		return status_vector[1];
+
+	ACQUIRE;
+
+	if ((parent = find_event(major_length, major_code, 0)) &&
+		(event = find_event(minor_length, minor_code, parent))) {
+		event->evnt_count += count;
+		QUE_LOOP(event->evnt_interests, que) {
+			interest = (RINT) ((UCHAR *) que - OFFSET(RINT, rint_interests));
+			if (interest->rint_request) {
+				request = (REQ) ABS_PTR(interest->rint_request);
+				if (interest->rint_count <= event->evnt_count) {
+					process = (PRB) ABS_PTR(request->req_process);
+					process->prb_flags |= PRB_wakeup;
+				}
+			}
+		}
+		for (flag = TRUE; flag;) {
+			flag = FALSE;
+			QUE_LOOP(EVENT_header->evh_processes, que) {
+				process = (PRB) ((UCHAR *) que - OFFSET(PRB, prb_processes));
+				if (process->prb_flags & PRB_wakeup) {
+					post_process(process);
+					flag = TRUE;
+					break;
+				}
+			}
+		}
+	}
+
+	RELEASE;
+
+	return return_ok(status_vector);
+}
+
+
+SLONG EVENT_que(STATUS * status_vector,
+				SLONG session_id,
+				USHORT string_length,
+				TEXT * string,
+				USHORT events_length,
+				UCHAR * events, void (*ast_routine) (), void *ast_arg)
+{
+/**************************************
+ *
+ *	E V E N T _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	UCHAR *p, *end, *find_end;
+	USHORT count, flag, len;
+	SES session;
+	REQ request;
+	EVNT event, parent;
+	RINT interest, prior;
+	PTR *ptr, *ptr2;
+	SLONG id, request_offset, parent_offset, event_offset, ptr_offset;
+
+/* Allocate request block */
+
+	ACQUIRE;
+	request = (REQ) alloc_global(type_req, (SLONG) sizeof(struct req), FALSE);
+	session = (SES) ABS_PTR(session_id);
+	insert_tail(&session->ses_requests, &request->req_requests);
+	request->req_session = session_id;
+	request->req_process = EVENT_process_offset;
+	request->req_ast = ast_routine;
+	request->req_ast_arg = ast_arg;
+	request->req_request_id = id = ++EVENT_header->evh_request_id;
+
+	request_offset = REL_PTR(request);
+
+/* Find parent block */
+
+	if (!(parent = find_event(string_length, string, 0))) {
+		parent = make_event(string_length, string, 0);
+		request = (REQ) ABS_PTR(request_offset);
+		session = (SES) ABS_PTR(session_id);
+	}
+
+	parent_offset = REL_PTR(parent);
+
+/* Process event block */
+
+	ptr = &request->req_interests;
+	ptr_offset = REL_PTR(ptr);
+	p = events + 1;
+	end = events + events_length;
+	flag = FALSE;
+
+	while (p < end) {
+		count = *p++;
+
+		/* The data in the event block may have trailing blanks.  Strip them off. */
+
+		for (find_end = p + count; --find_end >= p && *find_end == ' ';);
+		len = find_end - p + 1;
+		if (!(event = find_event(len, reinterpret_cast < char *>(p), parent))) {
+			event =
+				make_event(len, reinterpret_cast < char *>(p), parent_offset);
+			parent = (EVNT) ABS_PTR(parent_offset);
+			session = (SES) ABS_PTR(session_id);
+			request = (REQ) ABS_PTR(request_offset);
+			ptr = (PTR *) ABS_PTR(ptr_offset);
+		}
+		p += count;
+		event_offset = REL_PTR(event);
+		if (interest = historical_interest(session, event_offset)) {
+			for (ptr2 = &session->ses_interests;
+				 *ptr2 && (prior = (RINT) ABS_PTR(*ptr2));
+				 ptr2 = &prior->rint_next) if (prior == interest) {
+					*ptr2 = interest->rint_next;
+					interest->rint_next = 0;
+					break;
+				}
+		}
+		else {
+			interest =
+				(RINT) alloc_global(type_rint, (SLONG) sizeof(struct rint),
+									FALSE);
+			event = (EVNT) ABS_PTR(event_offset);
+			insert_tail(&event->evnt_interests, &interest->rint_interests);
+			interest->rint_event = event_offset;
+
+			parent = (EVNT) ABS_PTR(parent_offset);
+			request = (REQ) ABS_PTR(request_offset);
+			ptr = (PTR *) ABS_PTR(ptr_offset);
+			session = (SES) ABS_PTR(session_id);
+		}
+		*ptr = REL_PTR(interest);
+		ptr = &interest->rint_next;
+		ptr_offset = REL_PTR(ptr);
+		interest->rint_request = request_offset;
+		interest->rint_count = gds__vax_integer(p, 4);
+		p += 4;
+		if (interest->rint_count <= event->evnt_count)
+			flag = TRUE;
+	}
+
+	if (flag)
+		post_process((PRB) ABS_PTR(EVENT_process_offset));
+
+	RELEASE;
+	return_ok(status_vector);
+
+	return id;
+}
+
+
+static EVH acquire(void)
+{
+/**************************************
+ *
+ *	a c q u i r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Acquire exclusive access to shared global region.
+ *
+ **************************************/
+
+	int mutex_state;
+	SLONG length;
+	EVH header = NULL;
+#ifdef WIN_NT
+	PRB process;
+	EVENT event;
+#endif
+
+#ifdef MULTI_THREAD
+	if (mutex_state = ISC_mutex_lock(MUTEX))
+		mutex_bugcheck("mutex lock", mutex_state);
+	EVENT_header->evh_current_process = EVENT_process_offset;
+#else
+	if (++acquire_count == 1) {
+#ifndef SERVER
+		if (mutex_state = ISC_mutex_lock(MUTEX))
+			mutex_bugcheck("mutex lock", mutex_state);
+#endif
+		EVENT_header->evh_current_process = EVENT_process_offset;
+	}
+#endif
+
+	if (EVENT_header->evh_length > EVENT_data.sh_mem_length_mapped) {
+		length = EVENT_header->evh_length;
+
+#ifdef WIN_NT
+		/* Before remapping the memory, wakeup the watcher thread.
+		 * Then remap the shared memory and allow the watcher thread
+		 * to remap.
+		 */
+		/* Need to make the following code generic to all SUPERSERVER
+		 * platforms. Postponed for now. B.Sriram, 10-Jul-1997
+		 */
+
+		process = (PRB) ABS_PTR(EVENT_process_offset);
+		process->prb_flags |= PRB_remap;
+		event = process->prb_event;
+
+		post_process(process);
+
+		while (1) {
+			RELEASE;
+			Sleep(3);
+			ACQUIRE;
+
+			process = (PRB) ABS_PTR(EVENT_process_offset);
+			if (!(process->prb_flags & PRB_remap))
+				break;
+		}
+#endif /* WIN_NT */
+
+#if (!(defined SUPERSERVER) && (defined MMAP_SUPPORTED))
+		STATUS status_vector[20];
+		header = ISC_remap_file(status_vector, &EVENT_data, length, FALSE);
+#endif
+		if (!header) {
+			RELEASE;
+			gds__log("acquire: Event table remap failed");
+			exit(FINI_ERROR);
+		}
+		EVENT_header = header;
+
+#ifdef WIN_NT
+		process = (PRB) ABS_PTR(EVENT_process_offset);
+		process->prb_flags &= ~PRB_remap_over;
+#endif /* WIN_NT */
+	}
+
+	return EVENT_header;
+}
+
+
+static FRB alloc_global(UCHAR type, ULONG length, BOOLEAN recurse)
+{
+/**************************************
+ *
+ *	a l l o c _ g l o b a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block in shared global region.
+ *
+ **************************************/
+	PTR *ptr, *best;
+	FRB free;
+	SLONG tail, best_tail, ev_length, old_length;
+	STATUS status_vector[20];
+#ifdef WIN_NT
+	PRB process;
+	EVENT event;
+#endif
+
+	length = ROUNDUP(length, sizeof(IPTR));
+	best = NULL;
+
+	for (ptr = &EVENT_header->evh_free; (free = (FRB) ABS_PTR(*ptr)) && *ptr;
+		 ptr = &free->frb_next) {
+		tail = free->frb_header.hdr_length - length;
+		if (tail >= 0 && (!best || tail < best_tail)) {
+			best = ptr;
+			best_tail = tail;
+		}
+	}
+
+	if (!best && !recurse) {
+		old_length = EVENT_data.sh_mem_length_mapped;
+		ev_length = old_length + EVENT_EXTEND_SIZE;
+
+#ifdef WIN_NT
+
+		/* Before remapping the memory, wakeup the watcher thread.
+		 * Then remap the shared memory and allow the watcher thread
+		 * to remap.
+		 */
+
+		process = (PRB) ABS_PTR(EVENT_process_offset);
+		process->prb_flags |= PRB_remap;
+		event = process->prb_event;
+		post_process(process);
+
+		while (1) {
+			RELEASE;
+			THREAD_EXIT;
+			Sleep(3);
+			THREAD_ENTER;
+			ACQUIRE;
+
+			process = (PRB) ABS_PTR(EVENT_process_offset);
+			if (!(process->prb_flags & PRB_remap))
+				break;
+		}
+#endif /* WIN_NT */
+
+#if !((defined SUPERSERVER) && (defined MMAP_SUPPORTED))
+		EVH header =
+			reinterpret_cast < EVH >
+			(ISC_remap_file(status_vector, &EVENT_data, ev_length, TRUE));
+#endif
+		if (header) {
+			free = (FRB) ((UCHAR *) header + old_length);
+/**
+	free->frb_header.hdr_length = EVENT_EXTEND_SIZE - sizeof (struct evh);
+**/
+			free->frb_header.hdr_length =
+				EVENT_data.sh_mem_length_mapped - old_length;
+			free->frb_header.hdr_type = type_frb;
+			free->frb_next = 0;
+
+			EVENT_header = header;
+			EVENT_header->evh_length = EVENT_data.sh_mem_length_mapped;
+
+			free_global(free);
+
+#ifdef WIN_NT
+			process = (PRB) ABS_PTR(EVENT_process_offset);
+			process->prb_flags &= ~PRB_remap_over;
+#endif /* WIN_NT */
+
+			return alloc_global(type, length, TRUE);
+		}
+	}
+
+	if (!best) {
+		RELEASE;
+		gds__log("alloc_global: Event table space exhausted");
+		exit(FINI_ERROR);
+	}
+
+	free = (FRB) ABS_PTR(*best);
+
+	if (best_tail < sizeof(struct frb))
+		*best = free->frb_next;
+	else {
+		free->frb_header.hdr_length -= length;
+		free = (FRB) ((UCHAR *) free + free->frb_header.hdr_length);
+		free->frb_header.hdr_length = length;
+	}
+
+	memset((UCHAR *) free + sizeof(struct hdr), 0,
+		   free->frb_header.hdr_length - sizeof(struct hdr));
+	free->frb_header.hdr_type = type;
+
+	return free;
+}
+
+
+static SLONG create_process(void)
+{
+/**************************************
+ *
+ *	c r e a t e _ p r o c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create process block unless it already exists.
+ *
+ **************************************/
+	PRB process;
+
+	if (EVENT_process_offset)
+		return EVENT_process_offset;
+
+	ACQUIRE;
+	process = (PRB) alloc_global(type_prb, (SLONG) sizeof(struct prb), FALSE);
+	insert_tail(&EVENT_header->evh_processes, &process->prb_processes);
+	QUE_INIT(process->prb_sessions);
+	EVENT_process_offset = REL_PTR(process);
+
+#ifdef MULTI_THREAD
+
+#ifdef NETWARE_386
+	ISC_event_init(process->prb_event, 0, 0);
+#endif
+
+#ifdef SOLARIS_MT
+	STATUS local_status[20];
+	ISC_event_init(process->prb_event, 0, EVENT_SIGNAL);
+	EVENT_process = (PRB) ISC_map_object(local_status, &EVENT_data,
+										 EVENT_process_offset,
+										 sizeof(struct prb));
+#endif
+
+#if !(defined NETWARE_386 || defined SOLARIS_MT)
+	ISC_event_init(process->prb_event, EVENT_SIGNAL, 0);
+#endif
+#endif
+
+#ifdef NETWARE_386
+	process->prb_process_id = GetThreadID();
+#else
+	process->prb_process_id = getpid();
+#endif
+
+	probe_processes();
+	RELEASE;
+
+#ifdef MULTI_THREAD
+	if (gds__thread_start
+		(reinterpret_cast < FPTR_INT_VOID_PTR > (watcher_thread), NULL,
+		 THREAD_medium, THREAD_blast, 0))
+		ERR_bugcheck_msg("cannot start thread");
+#endif
+
+	return EVENT_process_offset;
+}
+
+
+static void delete_event(EVNT event)
+{
+/**************************************
+ *
+ *	d e l e t e _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete an unused and unloved event.
+ *
+ **************************************/
+	EVNT parent;
+
+	remove_que(&event->evnt_events);
+
+	if (event->evnt_parent) {
+		parent = (EVNT) ABS_PTR(event->evnt_parent);
+		if (!--parent->evnt_count)
+			delete_event(parent);
+	}
+
+	free_global((FRB) event);
+}
+
+
+static void delete_process(SLONG process_offset)
+{
+/**************************************
+ *
+ *	d e l e t e _ p r o c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a process block including friends and relations.
+ *
+ **************************************/
+	PRB process;
+	SES session;
+	EVENT events;
+	SLONG value;
+	BOOLEAN timeout;
+
+	process = (PRB) ABS_PTR(process_offset);
+
+/* Delete any open sessions */
+
+	while (!QUE_EMPTY(process->prb_sessions)) {
+		session =
+			(SES) ((UCHAR *) QUE_NEXT(process->prb_sessions) -
+				   OFFSET(SES, ses_sessions));
+		delete_session(REL_PTR(session));
+	}
+
+/* Untangle and release process block */
+
+	remove_que(&process->prb_processes);
+	free_global((FRB) process);
+
+	if (EVENT_process_offset == process_offset) {
+#ifdef MULTI_THREAD
+		/* Terminate the event watcher thread */
+#ifndef NETWARE_386
+		/* When we come through the exit handler, the event semaphore might
+		   have already been released by another exit handler.  So we cannot
+		   use that semaphore to post the event.  Besides, the watcher thread 
+		   would be terminated anyway because the whole NLM is being unloaded. */
+
+		process->prb_flags |= PRB_exiting;
+		timeout = FALSE;
+		while (process->prb_flags & PRB_exiting && !timeout) {
+			ISC_event_post(process->prb_event);
+			value = ISC_event_clear(process->prb_event);
+			RELEASE;
+#ifdef SOLARIS_MT
+			events = EVENT_process->prb_event;
+#else
+			events = process->prb_event;
+#endif
+			timeout = ISC_event_wait(1, &events, &value, 5 * 1000000, 0, 0);
+			ACQUIRE;
+		}
+#endif
+		EVENT_process_offset = NULL;
+#endif
+	}
+}
+
+
+static void delete_request(REQ request)
+{
+/**************************************
+ *
+ *	d e l e t e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an unwanted and unloved request.
+ *
+ **************************************/
+	SES session;
+	RINT interest;
+
+	session = (SES) ABS_PTR(request->req_session);
+
+	while (request->req_interests) {
+		interest = (RINT) ABS_PTR(request->req_interests);
+		request->req_interests = interest->rint_next;
+		if (historical_interest(session, interest->rint_event)) {
+			remove_que(&interest->rint_interests);
+			free_global((FRB) interest);
+		}
+		else {
+			interest->rint_next = session->ses_interests;
+			session->ses_interests = REL_PTR(interest);
+			interest->rint_request = NULL;
+		}
+	}
+
+	remove_que(&request->req_requests);
+	free_global((FRB) request);
+}
+
+
+static void delete_session(SLONG session_id)
+{
+/**************************************
+ *
+ *	d e l e t e _ s e s s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a session.
+ *
+ **************************************/
+	SES session;
+	SRQ requests;
+	REQ request;
+	EVNT event;
+	RINT interest;
+#ifdef MULTI_THREAD
+/*  This code is very Netware specific, so for now I've #ifdef'ed this
+ *  variable out.  In the future, other platforms may find a need to
+ *  use this as well.  --  Morgan Schweers, November 16, 1994
+ */
+	USHORT kill_anyway = 0;		/*  Kill session despite session delivering. */
+	/*  (Generally means session's deliver is hung. */
+#endif
+
+	session = (SES) ABS_PTR(session_id);
+
+#ifdef MULTI_THREAD
+/*  delay gives up control for 250ms, so a 40 iteration timeout is a
+ *  up to 10 second wait for session to finish delivering its message.
+ */
+	while (session->ses_flags & SES_delivering && (++kill_anyway != 40)) {
+		RELEASE;
+		THREAD_EXIT;
+#ifdef NETWARE_386
+		delay(250);
+#endif
+#ifdef WIN_NT
+		Sleep(250);
+#endif
+#if (defined SOLARIS_MT || defined LINUX)
+		sleep(1);
+#endif
+		THREAD_ENTER;
+		ACQUIRE;
+		session = (SES) ABS_PTR(session_id);
+	}
+#endif
+
+/* Delete all requests */
+
+	while (!QUE_EMPTY(session->ses_requests)) {
+		requests = session->ses_requests;
+		request =
+			(REQ) ((UCHAR *) QUE_NEXT(requests) - OFFSET(REQ, req_requests));
+		delete_request(request);
+	}
+
+/* Delete any historical interests */
+
+	while (session->ses_interests) {
+		interest = (RINT) ABS_PTR(session->ses_interests);
+		event = (EVNT) ABS_PTR(interest->rint_event);
+		session->ses_interests = interest->rint_next;
+		remove_que(&interest->rint_interests);
+		free_global((FRB) interest);
+		if (QUE_EMPTY(event->evnt_interests))
+			delete_event(event);
+	}
+
+	remove_que(&session->ses_sessions);
+	free_global((FRB) session);
+}
+
+
+static AST_TYPE deliver(void)
+{
+/**************************************
+ *
+ *	d e l i v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've been poked -- deliver any satisfying requests.
+ *
+ **************************************/
+	PRB process;
+	REQ request;
+	SES session;
+	SRQ *que, *que2;
+	USHORT flag;
+	SLONG session_offset, que2_offset;
+
+#ifdef UNIX
+	if (acquire_count)
+		return;
+#endif
+
+	ACQUIRE;
+	process = (PRB) ABS_PTR(EVENT_process_offset);
+	process->prb_flags &= ~PRB_pending;
+
+	QUE_LOOP(process->prb_sessions, que2) {
+		session = (SES) ((UCHAR *) que2 - OFFSET(SES, ses_sessions));
+#ifdef MULTI_THREAD
+		session->ses_flags |= SES_delivering;
+#endif
+		session_offset = REL_PTR(session);
+		que2_offset = REL_PTR(que2);
+		for (flag = TRUE; flag;) {
+			flag = FALSE;
+			QUE_LOOP(session->ses_requests, que) {
+				request = (REQ) ((UCHAR *) que - OFFSET(REQ, req_requests));
+				if (request_completed(request)) {
+					deliver_request(request);
+					process = (PRB) ABS_PTR(EVENT_process_offset);
+					session = (SES) ABS_PTR(session_offset);
+					que2 = (SRQ *) ABS_PTR(que2_offset);
+					flag = TRUE;
+					break;
+				}
+			}
+		}
+#ifdef MULTI_THREAD
+		session->ses_flags &= ~SES_delivering;
+#endif
+	}
+
+	RELEASE;
+}
+
+
+static void deliver_request(REQ request)
+{
+/**************************************
+ *
+ *	d e l i v e r _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Request has been satisfied, send updated event block to user, then
+ *	Clean up request.
+ *
+ **************************************/
+	void (*ast) ();
+	void *arg;
+	SLONG count;
+	RINT interest;
+	PTR next;
+	EVNT event;
+	UCHAR buffer[512], *p, *event_buffer, *end;
+
+	ast = request->req_ast;
+	arg = request->req_ast_arg;
+	p = event_buffer = buffer;
+	end = buffer + sizeof(buffer);
+	*p++ = 1;
+
+/* Loop thru interest block picking up event name, counts, and unlinking
+   stuff */
+
+	for (next = request->req_interests;
+		 next && (interest = (RINT) ABS_PTR(next));
+		 next = interest->rint_next) {
+		interest = (RINT) ABS_PTR(next);
+		event = (EVNT) ABS_PTR(interest->rint_event);
+		if (end < p + event->evnt_length + 5) {
+			UCHAR *new_buffer;
+			/* Running out of space - allocate some more and copy it over */
+			assert(event_buffer == buffer);	/* we're in this block only once */
+			new_buffer = gds__alloc((SLONG) MAX_EVENT_BUFFER);
+			/* FREE: at procedure exit */
+			if (!new_buffer) {	/* NOMEM: */
+				gds__log("failed to post all events");
+				break;			/* exit loop and send what we have */
+			}
+			event_buffer = new_buffer;
+			memcpy(event_buffer, buffer, p - buffer);
+			p = event_buffer + (p - buffer);
+			end = event_buffer + MAX_EVENT_BUFFER;
+		}
+		*p++ = event->evnt_length;
+		memcpy(p, event->evnt_name, event->evnt_length);
+		p += event->evnt_length;
+		count = event->evnt_count + 1;
+		*p++ = (UCHAR) (count);
+		*p++ = (UCHAR) (count >> 8);
+		*p++ = (UCHAR) (count >> 16);
+		*p++ = (UCHAR) (count >> 24);
+	}
+
+	delete_request(request);
+	RELEASE;
+	reinterpret_cast < void (*) (...) > (*ast) (arg, p - event_buffer,
+												event_buffer);
+	if (event_buffer != buffer)
+		gds__free(event_buffer);
+	ACQUIRE;
+}
+
+
+static void exit_handler(void *arg)
+{
+/**************************************
+ *
+ *	e x i t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cleanup on exit.
+ *
+ **************************************/
+	STATUS local_status[20];
+
+#ifndef NETWARE_386				/*  Otherwise things go away too quickly during unload */
+	if (EVENT_process_offset) {
+		if (EVENT_header->evh_current_process != EVENT_process_offset)
+			ACQUIRE;
+		delete_process(EVENT_process_offset);
+		RELEASE;
+	}
+
+	while (acquire_count > 0)
+		RELEASE;
+#endif /*  !NETWARE  */
+
+#ifndef SERVER
+#ifdef SOLARIS_MT
+	ISC_unmap_object(local_status, &EVENT_data, &EVENT_process,
+					 sizeof(struct prb));
+#endif
+	ISC_unmap_file(local_status, &EVENT_data, 0);
+#endif
+
+	EVENT_header = NULL;
+}
+
+
+static EVNT find_event(USHORT length, TEXT * string, EVNT parent)
+{
+/**************************************
+ *
+ *	f i n d _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup an event.
+ *
+ **************************************/
+	EVNT event;
+	SRQ *que;
+	PTR parent_offset;
+
+	parent_offset = (parent) ? REL_PTR(parent) : 0;
+
+	QUE_LOOP(EVENT_header->evh_events, que) {
+		event = (EVNT) ((UCHAR *) que - OFFSET(EVNT, evnt_events));
+		if (event->evnt_parent == parent_offset &&
+			event->evnt_length == length &&
+			!memcmp(string, event->evnt_name, length)) return event;
+	}
+
+	return NULL;
+}
+
+
+static void free_global(FRB block)
+{
+/**************************************
+ *
+ *	f r e e _ g l o b a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free a previous allocated block.
+ *
+ **************************************/
+	PTR *ptr, offset;
+	FRB free, prior;
+
+	prior = NULL;
+	offset = REL_PTR(block);
+	block->frb_header.hdr_type = type_frb;
+
+	for (ptr = &EVENT_header->evh_free; (free = (FRB) ABS_PTR(*ptr)) && *ptr;
+		 prior = free, ptr = &free->frb_next)
+		if ((SCHAR * HUGE_PTR) block < (SCHAR * HUGE_PTR) free)
+			break;
+
+	if (offset <= 0 || offset > EVENT_header->evh_length ||
+		(prior
+		 && (UCHAR HUGE_PTR *) block <
+		 (UCHAR HUGE_PTR *) prior + prior->frb_header.hdr_length)) {
+		punt("free_global: bad block");
+		return;
+	}
+
+/* Start by linking block into chain */
+
+	block->frb_next = *ptr;
+	*ptr = offset;
+
+/* Try to merge free block with next block */
+
+	if (free
+		&& (SCHAR HUGE_PTR *) block + block->frb_header.hdr_length ==
+		(SCHAR HUGE_PTR *) free) {
+		block->frb_header.hdr_length += free->frb_header.hdr_length;
+		block->frb_next = free->frb_next;
+	}
+
+/* Next, try to merge the free block with the prior block */
+
+	if (prior
+		&& (SCHAR HUGE_PTR *) prior + prior->frb_header.hdr_length ==
+		(SCHAR HUGE_PTR *) block) {
+		prior->frb_header.hdr_length += block->frb_header.hdr_length;
+		prior->frb_next = block->frb_next;
+	}
+}
+
+
+static RINT historical_interest(SES session, PTR event)
+{
+/**************************************
+ *
+ *	h i s t o r i c a l _ i n t e r e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a historical interest, if any, of an event with a session.
+ *
+ **************************************/
+	PTR ptr;
+	RINT interest;
+
+	for (ptr = session->ses_interests;
+		 ptr && (interest = (RINT) ABS_PTR(ptr)); ptr = interest->rint_next)
+		if (interest->rint_event == event)
+			return interest;
+
+	return NULL;
+}
+
+
+static void init(void *arg, SH_MEM shmem_data, int initialize)
+{
+/**************************************
+ *
+ *	i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize global region header.
+ *
+ **************************************/
+	FRB free;
+	int mutex_state;
+
+#if defined(WIN_NT)
+	if (mutex_state = ISC_mutex_init(MUTEX, EVENT_FILE))
+		mutex_bugcheck("mutex init", mutex_state);
+#endif
+
+	if (!initialize)
+		return;
+
+	EVENT_header = (EVH) shmem_data->sh_mem_address;
+	EVENT_header->evh_length = EVENT_data.sh_mem_length_mapped;
+	EVENT_header->evh_version = EVENT_VERSION;
+	EVENT_header->evh_request_id = 0;
+	QUE_INIT(EVENT_header->evh_processes);
+	QUE_INIT(EVENT_header->evh_events);
+
+#ifndef SERVER
+#if !defined(WIN_NT)
+	if (mutex_state = ISC_mutex_init(MUTEX, shmem_data->sh_mem_mutex_arg))
+		mutex_bugcheck("mutex init", mutex_state);
+#endif
+#endif
+
+	free = (FRB) ((UCHAR *) EVENT_header + sizeof(struct evh));
+	free->frb_header.hdr_length =
+		EVENT_data.sh_mem_length_mapped - sizeof(struct evh);
+	free->frb_header.hdr_type = type_frb;
+	free->frb_next = 0;
+
+	EVENT_header->evh_free = (UCHAR *) free - (UCHAR *) EVENT_header;
+}
+
+
+static void insert_tail(SRQ * que, SRQ * node)
+{
+/**************************************
+ *
+ *	i n s e r t _ t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a node at the tail of a que.
+ *
+ **************************************/
+	SRQ *prior;
+
+	node->srq_forward = REL_PTR(que);
+	node->srq_backward = que->srq_backward;
+
+	prior = (SRQ *) ABS_PTR(que->srq_backward);
+	prior->srq_forward = REL_PTR(node);
+	que->srq_backward = REL_PTR(node);
+}
+
+
+static EVNT make_event(USHORT length, TEXT * string, SLONG parent_offset)
+{
+/**************************************
+ *
+ *	m a k e _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate an link in an event.
+ *
+ **************************************/
+	EVNT event, parent;
+
+	event =
+		(EVNT) alloc_global(type_evnt, (SLONG) (sizeof(struct evnt) + length),
+							FALSE);
+	insert_tail(&EVENT_header->evh_events, &event->evnt_events);
+	QUE_INIT(event->evnt_interests);
+
+	if (parent_offset) {
+		event->evnt_parent = parent_offset;
+		parent = (EVNT) ABS_PTR(parent_offset);
+		++parent->evnt_count;
+	}
+
+	event->evnt_length = length;
+	memcpy(event->evnt_name, string, length);
+
+	return event;
+}
+
+
+static void mutex_bugcheck(TEXT * string, int mutex_state)
+{
+/**************************************
+ *
+ *	m u t e x _ b u g c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	There has been a bugcheck during a mutex operation.
+ *	Post the bugcheck.
+ *
+ **************************************/
+	TEXT msg[128];
+
+	sprintf(msg, "EVENT: %s error, status = %d", string, mutex_state);
+	gds__log(msg);
+
+#ifdef NETWARE_386
+	ConsolePrintf("%s\n", msg);
+#else
+	ib_fprintf(ib_stderr, "%s\n", msg);
+#endif
+
+	exit(FINI_ERROR);
+}
+
+
+static void post_process(PRB process)
+{
+/**************************************
+ *
+ *	p o s t _ p r o c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wakeup process.
+ *
+ **************************************/
+
+	process->prb_flags &= ~PRB_wakeup;
+	process->prb_flags |= PRB_pending;
+	RELEASE;
+
+#ifdef SERVER
+	deliver();
+#else
+
+#ifdef MULTI_THREAD
+	ISC_event_post(process->prb_event);
+#else
+
+#ifdef UNIX
+	if (REL_PTR(process) != EVENT_process_offset)
+		ISC_kill(process->prb_process_id, EVENT_SIGNAL);
+#endif
+
+#endif
+	ACQUIRE;
+#endif
+}
+
+
+static void probe_processes(void)
+{
+/**************************************
+ *
+ *	p r o b e _ p r o c e s s e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Probe a process to see if it still exists.  If it doesn't, get
+ *	rid of it.
+ *
+ **************************************/
+	SRQ *que;
+	PRB process;
+	SLONG process_offset;
+
+	QUE_LOOP(EVENT_header->evh_processes, que) {
+		process = (PRB) ((UCHAR *) que - OFFSET(PRB, prb_processes));
+		process_offset = REL_PTR(process);
+		if (process_offset != EVENT_process_offset &&
+			!ISC_check_process_existence(process->prb_process_id,
+										 process->prb_process_uid[0], FALSE)) {
+			que = (SRQ *) ABS_PTR(que->srq_backward);
+			delete_process(process_offset);
+		}
+	}
+}
+
+
+static void punt(TEXT * string)
+{
+/**************************************
+ *
+ *	p u n t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	ib_printf("(EVENT) punt: global region corrupt -- %s\n", string);
+}
+
+
+static void release(void)
+{
+/**************************************
+ *
+ *	r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release exclusive control of shared global region.
+ *
+ **************************************/
+	int mutex_state;
+
+#ifdef EVENT_DEBUG
+	validate();
+#endif
+
+#ifdef MULTI_THREAD
+	EVENT_header->evh_current_process = 0;
+	if (mutex_state = ISC_mutex_unlock(MUTEX))
+		mutex_bugcheck("mutex lock", mutex_state);
+#else
+	if (!--acquire_count) {
+		EVENT_header->evh_current_process = 0;
+#ifndef SERVER
+		if (mutex_state = ISC_mutex_unlock(MUTEX))
+			mutex_bugcheck("mutex lock", mutex_state);
+#endif
+#ifdef UNIX
+		if (EVENT_process_offset) {
+			PRB process = (PRB) ABS_PTR(EVENT_process_offset);
+			if (process->prb_flags & PRB_pending)
+				ISC_kill(process->prb_process_id, EVENT_SIGNAL);
+		}
+#endif
+	}
+#endif
+}
+
+
+static void remove_que(SRQ * node)
+{
+/**************************************
+ *
+ *	r e m o v e _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove a node from a self-relative que.
+ *
+ **************************************/
+	SRQ *que;
+
+	que = (SRQ *) ABS_PTR(node->srq_forward);
+	que->srq_backward = node->srq_backward;
+
+	que = (SRQ *) ABS_PTR(node->srq_backward);
+	que->srq_forward = node->srq_forward;
+	node->srq_forward = node->srq_backward = 0;
+}
+
+
+static BOOLEAN request_completed(REQ request)
+{
+/**************************************
+ *
+ *	r e q u e s t _ c o m p l e t e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if request is completed.
+ *
+ **************************************/
+	PTR next;
+	RINT interest;
+	EVNT event;
+
+	for (next = request->req_interests; next; next = interest->rint_next) {
+		interest = (RINT) ABS_PTR(next);
+		event = (EVNT) ABS_PTR(interest->rint_event);
+		if (interest->rint_count <= event->evnt_count)
+			return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+static STATUS return_ok(STATUS * status_vector)
+{
+/**************************************
+ *
+ *	r e t u r n _ o k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Everything is ducky -- return success.
+ *
+ **************************************/
+
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = 0;
+	*status_vector = gds_arg_end;
+
+	return 0;
+}
+
+
+#ifdef EVENT_DEBUG
+static int validate(void)
+{
+/**************************************
+ *
+ *	v a l i d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make sure everything looks ok.
+ *
+ **************************************/
+	SLONG offset;
+	HDR *block;
+	PTR next_free;
+
+/* Check consistency of global region (debugging only) */
+
+	next_free = 0;
+
+	for (offset = sizeof(struct evh); offset < EVENT_header->evh_length;
+		 offset += block->hdr_length) {
+		block = (HDR *) ABS_PTR(offset);
+		if (!block->hdr_length || !block->hdr_type
+			|| block->hdr_type >= type_max) {
+			punt("bad block length or type");
+			break;
+		}
+		if (next_free)
+			if (offset == next_free)
+				next_free = 0;
+			else if (offset > next_free)
+				punt("bad free chain");
+		if (block->hdr_type == type_frb) {
+			next_free = ((FRB) block)->frb_next;
+			if (next_free >= EVENT_header->evh_length)
+				punt("bad frb_next");
+		}
+	}
+
+	if (offset != EVENT_header->evh_length)
+		punt("bad block length");
+}
+#endif
+
+
+#ifdef MULTI_THREAD
+static void THREAD_ROUTINE watcher_thread(void *dummy)
+{
+/**************************************
+ *
+ *	w a t c h e r _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait for something to happen.
+ *
+ **************************************/
+	PRB process;
+	SLONG value;
+	EVENT events;
+
+	while (EVENT_process_offset) {
+		ACQUIRE;
+		process = (PRB) ABS_PTR(EVENT_process_offset);
+		process->prb_flags &= ~PRB_wakeup;
+
+		if (process->prb_flags & PRB_exiting) {
+			process->prb_flags &= ~PRB_exiting;
+			ISC_event_post(process->prb_event);
+			RELEASE;
+			break;
+		}
+#ifdef WIN_NT
+		if (process->prb_flags & PRB_remap) {
+			process->prb_flags |= PRB_remap_over;
+			process->prb_flags &= ~PRB_remap;
+			RELEASE;
+			while (1) {
+				Sleep(3);
+				ACQUIRE;
+				process = (PRB) ABS_PTR(EVENT_process_offset);
+				RELEASE;
+				if (!(process->prb_flags & PRB_remap_over))
+					break;
+			}
+			ACQUIRE;
+			process = (PRB) ABS_PTR(EVENT_process_offset);
+		}
+#endif
+
+		value = ISC_event_clear(process->prb_event);
+		RELEASE;
+		deliver();
+		ACQUIRE;
+		process = (PRB) ABS_PTR(EVENT_process_offset);
+		RELEASE;
+#ifdef SOLARIS_MT
+		events = EVENT_process->prb_event;
+#else
+		events = process->prb_event;
+#endif
+		ISC_event_wait(1, &events, &value, 0, 0, 0);
+	}
+
+}
+#endif
+
+
+} // extern "C"
diff --git a/src/jrd/event.h b/src/jrd/event.h
new file mode 100644
index 0000000000..911e82f96d
--- /dev/null
+++ b/src/jrd/event.h
@@ -0,0 +1,173 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		event.h
+ *	DESCRIPTION:	Event manager definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_EVENT_H_
+#define _JRD_EVENT_H_
+
+#include "../jrd/isc.h"
+#include "../jrd/file_params.h"
+
+#define PTR			SLONG
+#ifdef WINDOWS_ONLY
+#define BASE                  ((UCHAR huge *) EVENT_header)
+#define REL_PTR(item)         ((UCHAR huge *) item - BASE)
+#define ABS_PTR(item)         (BASE + (UCHAR huge *)item)
+#else
+#define BASE                  ((UCHAR *) EVENT_header)
+#define REL_PTR(item)         ((UCHAR *) item - BASE)
+#define ABS_PTR(item)		(BASE + item)
+#endif /* WINDOWS_ONLY */
+#define ACQUIRE			acquire()
+#define RELEASE			release()
+
+#define QUE_INIT(que)	{que.srq_forward = que.srq_backward = REL_PTR (&que);}
+#define QUE_EMPTY(que)	(que.srq_forward == REL_PTR (&que))
+#define QUE_NEXT(que)	ABS_PTR (que.srq_forward)
+
+#define QUE_LOOP(header,que)	for (que = (SRQ*) QUE_NEXT (header);\
+	que != &header; que = (SRQ*) QUE_NEXT ((*que)))
+
+
+#define SIZE_SHIFT	2
+#define FAST_ALLOC	16
+
+/* Self-relative que block.  Offsets are from the block itself. */
+
+typedef struct srq {
+	PTR srq_forward;			/* Forward offset */
+	PTR srq_backward;			/* Backward offset */
+} SRQ;
+
+/* Global section header */
+
+#define EVH_HASH_SIZE	7
+
+typedef struct evh {
+	SLONG evh_length;			/* Current length of global section */
+	UCHAR evh_version;			/* Version number of global section */
+	SRQ evh_events;				/* Known processes */
+	SRQ evh_processes;			/* Known processes */
+	PTR evh_free;				/* Free blocks */
+	PTR evh_current_process;	/* Current process, if any */
+	MTX_T evh_mutex[1];			/* Mutex controlling access */
+	SLONG evh_request_id;		/* Next request id */
+	PTR evh_hash_table[EVH_HASH_SIZE];
+} *EVH;
+
+/* Common block header */
+
+#define type_hdr	1			/* Event header */
+#define type_frb	2			/* Free block */
+#define type_prb	3			/* Process block */
+#define type_rint	4			/* Request interest block */
+#define type_req	5			/* Request block */
+#define type_evnt	6			/* Event */
+#define type_ses	7			/* Session */
+#define type_max	8
+
+typedef struct hdr
+{
+	SLONG hdr_length;			/* Length of block */
+	UCHAR hdr_type;				/* Type of block */
+} HDR;
+
+/* Free blocks */
+
+typedef struct frb
+{
+	HDR frb_header;
+	SLONG frb_next;				/* Next block */
+} *FRB;
+
+/* Process blocks */
+
+typedef struct prb
+{
+	HDR prb_header;
+	SRQ prb_processes;			/* Process que owned by header */
+	SRQ prb_sessions;			/* Sessions within process */
+	SLONG prb_process_id;		/* Process id */
+	SLONG prb_process_uid[2];	/* Process UID (apollo) */
+	EVENT_T prb_event[1];		/* Event on which to wait */
+	USHORT prb_flags;
+} *PRB;
+
+#define PRB_wakeup	1			/* Schedule a wakeup for process */
+#define PRB_pending	2			/* Wakeup has been requested, and is dangling */
+#define PRB_remap	4			/* need to remap shared memory */
+#define	PRB_remap_over	8		/* remap is over */
+#define PRB_exiting	16			/* Process is exiting */
+
+/* Session block */
+
+typedef struct ses {
+	HDR ses_header;
+	SRQ ses_sessions;			/* Sessions within process */
+	SRQ ses_requests;			/* Outstanding requests */
+	PTR ses_interests;			/* Historical interests */
+	PTR ses_process;			/* Parent process */
+#ifdef MULTI_THREAD
+	USHORT ses_flags;
+#endif
+} *SES;
+
+#define	SES_delivering	1		/* Watcher thread is delivering an event */
+
+/* Event block */
+
+typedef struct evnt {
+	HDR evnt_header;
+	SRQ evnt_events;			/* System event que (owned by header) */
+	SRQ evnt_interests;			/* Que of request interests in event */
+	PTR evnt_hash_collision;	/* Hash table collision pointer */
+	PTR evnt_parent;			/* Major event name */
+	SLONG evnt_count;			/* Current event count */
+	USHORT evnt_length;			/* Length of event name */
+	TEXT evnt_name[1];			/* Event name */
+} *EVNT;
+
+/* Request block */
+
+typedef struct req {
+	HDR req_header;
+	SRQ req_requests;			/* Request que owned by session block */
+	PTR req_process;			/* Parent process block */
+	PTR req_session;			/* Parent session block */
+	PTR req_interests;			/* First interest in request */
+	void (*req_ast) ();			/* Asynchronous routine */
+	void *req_ast_arg;			/* Argument for ast */
+	SLONG req_request_id;		/* Request id, dummy */
+} *REQ;
+
+/* Request interest block */
+
+typedef struct rint {
+	HDR rint_header;
+	SRQ rint_interests;			/* Que owned by event */
+	PTR rint_event;				/* Event of interest */
+	PTR rint_request;			/* Request of interest */
+	PTR rint_next;				/* Next interest of request */
+	SLONG rint_count;			/* Threshhold count */
+} *RINT;
+
+#endif /* _JRD_EVENT_H_ */
diff --git a/src/jrd/event_proto.h b/src/jrd/event_proto.h
new file mode 100644
index 0000000000..b13674c1cc
--- /dev/null
+++ b/src/jrd/event_proto.h
@@ -0,0 +1,43 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		event_proto.h
+ *	DESCRIPTION:	Prototype Header file for event.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_EVENT_PROTO_H_
+#define _JRD_EVENT_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+int EVENT_cancel(SLONG);
+SLONG EVENT_create_session(STATUS *);
+int EVENT_delete_session(SLONG);
+struct evh *EVENT_init(STATUS *, USHORT);
+int EVENT_post(STATUS *, USHORT, TEXT *, USHORT, TEXT *, USHORT);
+SLONG EVENT_que(STATUS *, SLONG, USHORT, TEXT *, USHORT, UCHAR *, FPTR_VOID,
+				void *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_EVENT_PROTO_H_ */
diff --git a/src/jrd/everything.h b/src/jrd/everything.h
new file mode 100644
index 0000000000..94e49afefe
--- /dev/null
+++ b/src/jrd/everything.h
@@ -0,0 +1,48 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "../jrd/jrd.h"
+#include "../jrd/lck.h"
+#include "../jrd/ods.h"
+#include "../jrd/cch.h"
+#include "../jrd/all.h"
+#include "../jrd/pio.h"
+#include "../jrd/pag.h"
+#include "../jrd/val.h"
+#include "../jrd/exe.h"
+#include "../jrd/req.h"
+#include "../jrd/lls.h"
+#include "../jrd/rse.h"
+#include "../jrd/sbm.h"
+#include "../jrd/tra.h"
+#include "../jrd/sqz.h"
+#include "../jrd/blb.h"
+#include "../jrd/btr.h"
+#include "../jrd/jrn.h"
+#include "../jrd/scl.h"
+#include "../jrd/ext.h"
+#include "../jrd/met.h"
+#include "../jrd/sdw.h"
+#include "../jrd/log.h"
+#include "../jrd/intl.h"
+#include "../jrd/intlobj.h"
+#include "../jrd/fil.h"
+#include "../jrd/tpc.h"
+#include "../jrd/rng.h"
+#include "../jrd/svc.h"
+#include "../jrd/blob_filter.h"
diff --git a/src/jrd/evl.cpp b/src/jrd/evl.cpp
new file mode 100644
index 0000000000..e916c5112e
--- /dev/null
+++ b/src/jrd/evl.cpp
@@ -0,0 +1,4948 @@
+/*
+ *      PROGRAM:        JRD Access Method
+ *      MODULE:         evl.c
+ *      DESCRIPTION:    Expression evaluation
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+  * $Id: evl.cpp,v 1.1.1.1 2001-05-23 13:26:09 tamlin Exp $ 
+ */
+
+/*
+ * Modified by: Patrick J. P. Griffin
+ * Date: 11/24/2000
+ * Problem:   select count(0)+1 from rdb$relations where 0=1; returns 0
+ *            In the EVL_group processing, the internal assigment for 
+ *            the literal in the computation is being done on every 
+ *            statement fetch, so if there are no statements fetched
+ *            then the internal field never gets set.
+ * Change:    Added an assignment process for the literal
+ *            before the first fetch.
+ */
+/* 
+ * Modified by: Neil McCalden
+ * Date: 05 Jan 2001
+ * Problem:   Firebird bug: 127375
+ *            Group by on a calculated expression would cause segv
+ *            when it encountered a NULL value as the calculation
+ *            was trying reference a null pointer.
+ * Change:    Test the null flag before trying to expand the value.
+ */
+
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/val.h"
+#include "../jrd/req.h"
+#include "../jrd/exe.h"
+#include "../jrd/sbm.h"
+#include "../jrd/blb.h"
+#include "../jrd/codes.h"
+#include "../jrd/scl.h"
+#include "../jrd/lck.h"
+#include "../jrd/lls.h"
+#include "../jrd/intl.h"
+#include "../jrd/intlobj.h"
+#include "../jrd/rse.h"
+#include "../jrd/quad.h"
+#include "../jrd/sort.h"
+#include "../jrd/blr.h"
+#include "../jrd/tra.h"
+#include "../jrd/constants.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/time.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/bookmark.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/btr_proto.h"
+#include "../jrd/cvt_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/dsc_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/fun_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/lck_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/rlck_proto.h"
+#include "../jrd/rng_proto.h"
+#include "../jrd/rse_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/scl_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/sort_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/align.h"
+
+
+extern "C" {
+
+
+#if defined(WIN_NT) && defined(_MSC_VER)
+#pragma warning(disable: 4244)
+#endif
+
+#define TEMP_LENGTH     128
+
+#ifdef STACK_REDUCTION
+#define TEMP_SIZE(x)	TEMP_LENGTH
+#else
+#define TEMP_SIZE(x)	sizeof (x)
+#endif
+
+#define INT64_LIMIT	(MAX_SINT64 / 10)
+
+#ifdef VMS
+extern double MTH$CVT_D_G(), MTH$CVT_G_D();
+#endif
+
+/*  *** DANGER DANGER WILL ROBINSON ***
+ *  add(), multiply(), and divide() all take the same three arguments, but
+ *  they don't all take them in the same order.  Be careful out there.
+ *  The order should be made to agree as part of the next code cleanup.
+ */
+
+static DSC *add(DSC *, NOD, VLU);
+static DSC *add2(DSC *, NOD, VLU);
+static DSC *add_datetime(DSC *, NOD, VLU);
+static DSC *add_sql_date(DSC *, NOD, VLU);
+static DSC *add_sql_time(DSC *, NOD, VLU);
+static DSC *add_timestamp(DSC *, NOD, VLU);
+static DSC *binary_value(TDBB, NOD, VLU);
+static DSC *cast(TDBB, DSC *, NOD, VLU);
+static SSHORT compute_agg_distinct(TDBB, NOD);
+static DSC *concatenate(TDBB, NOD, VLU);
+static DSC *dbkey(TDBB, NOD, VLU);
+static DSC *eval_statistical(TDBB, NOD, VLU);
+static SINT64 get_day_fraction(DSC * d);
+static DSC *get_mask(TDBB, NOD, VLU);
+static SINT64 get_timestamp_to_isc_ticks(DSC * d);
+static SSHORT init_agg_distinct(TDBB, NOD);
+#ifdef PC_ENGINE
+static DSC *lock_record(TDBB, NOD, VLU);
+static DSC *lock_relation(TDBB, NOD, VLU);
+#endif
+static DSC *lock_state(TDBB, NOD, VLU);
+static DSC *multiply(DSC *, VLU, NOD);
+static DSC *multiply2(DSC *, VLU, NOD);
+static DSC *divide2(DSC *, VLU, NOD);
+static DSC *negate(TDBB, DSC *, VLU);
+static DSC *record_version(TDBB, NOD, VLU);
+static BOOLEAN reject_duplicate(UCHAR *, UCHAR *, int);
+static DSC *scalar(TDBB, NOD, VLU);
+static SSHORT sleuth(TDBB, NOD, DSC *, DSC *);
+static BOOLEAN nc_sleuth_check(TEXTTYPE, USHORT, UCHAR *, UCHAR *, UCHAR *,
+							   UCHAR *);
+static BOOLEAN nc_sleuth_class(TEXTTYPE, USHORT, UCHAR *, UCHAR *, UCHAR);
+static BOOLEAN wc_sleuth_check(TEXTTYPE, USHORT, WCHAR *, WCHAR *, WCHAR *,
+							   WCHAR *);
+static BOOLEAN wc_sleuth_class(TEXTTYPE, USHORT, WCHAR *, WCHAR *, WCHAR);
+static SSHORT string_boolean(TDBB, NOD, DSC *, DSC *);
+static SSHORT string_function(TDBB, NOD, SSHORT, UCHAR *,
+							  SSHORT, UCHAR *, USHORT);
+static DSC *substring(TDBB, VLU, DSC *, USHORT, USHORT);
+
+static DSC *upcase(TDBB, DSC *, VLU);
+
+static CONST UCHAR special[256] = {
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0,	/* $%*+- (dollar, percent, star, plus, minus) */
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,	/* ?     (question) */
+	1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,	/* @     (at-sign) */
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0,	/* [     (open square) */
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0,	/* ~     (tilde) */
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
+};
+
+
+
+#define SECONDS_PER_DAY				(24*60*60)
+#define ISC_TICKS_PER_DAY			(((SINT64)SECONDS_PER_DAY)*ISC_TIME_SECONDS_PRECISION)
+#define DIALECT_3_TIMESTAMP_SCALE	-9
+#define DIALECT_1_TIMESTAMP_SCALE	0
+
+
+
+DSC *DLL_EXPORT EVL_assign_to(TDBB tdbb, register NOD node)
+{
+/**************************************
+ *
+ *      E V L _ a s s i g n _ t o
+ *
+ **************************************
+ *
+ * Functional description
+ *      Evaluate the descriptor of the
+ *      destination node of an assignment.
+ *
+ **************************************/
+	register REQ request;
+	VLU impure;
+	DSC *desc;
+	FMT format;
+	NOD message;
+	REC record;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+	request = tdbb->tdbb_request;
+	impure = (VLU) ((SCHAR *) request + node->nod_impure);
+
+/* The only nodes that can be assigned to are:  argument, field, and variable. */
+
+	switch (node->nod_type) {
+	case nod_argument:
+		message = node->nod_arg[e_arg_message];
+		format = (FMT) message->nod_arg[e_msg_format];
+		desc = &format->fmt_desc[(int) node->nod_arg[e_arg_number]];
+		impure->vlu_desc.dsc_address =
+			(UCHAR *) request + message->nod_impure + (int) desc->dsc_address;
+		impure->vlu_desc.dsc_dtype = desc->dsc_dtype;
+		impure->vlu_desc.dsc_length = desc->dsc_length;
+		impure->vlu_desc.dsc_scale = desc->dsc_scale;
+		impure->vlu_desc.dsc_sub_type = desc->dsc_sub_type;
+		if (IS_DTYPE_ANY_TEXT(desc->dsc_dtype) &&
+			((INTL_TTYPE(desc) == ttype_dynamic) ||
+			 (INTL_GET_CHARSET(desc) == CS_dynamic))) {
+			/* Value is a text value, we're assigning it back to the user
+			   process, user process has not specified a subtype, user
+			   process specified dynamic translation and the DSC isn't from
+			   a 3.3 type request (blr_cstring2 instead of blr_cstring) so
+			   convert the charset to the declared charset of the process. */
+
+			INTL_ASSIGN_DSC(&impure->vlu_desc,
+							tdbb->tdbb_attachment->att_charset, COLLATE_NONE);
+		}
+		return &impure->vlu_desc;
+
+	case nod_field:
+		record =
+			request->req_rpb[(int) node->nod_arg[e_fld_stream]].rpb_record;
+		EVL_field(0, record, (USHORT) node->nod_arg[e_fld_id],
+				  &impure->vlu_desc);
+		if (!impure->vlu_desc.dsc_address)
+			ERR_post(gds__read_only_field, 0);
+		return &impure->vlu_desc;
+
+	case nod_null:
+		return NULL;
+
+	case nod_variable:
+		node = node->nod_arg[e_var_variable];
+		impure = (VLU) ((SCHAR *) request + node->nod_impure);
+		return &impure->vlu_desc;
+
+	default:
+		BUGCHECK(229);			/* msg 229 EVL_assign_to: invalid operation */
+	}
+	return NULL;
+}
+
+
+SBM *DLL_EXPORT EVL_bitmap(TDBB tdbb, register NOD node)
+{
+/**************************************
+ *
+ *      E V L _ b i t m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *      Evaluate bitmap valued expression.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+	switch (node->nod_type) {
+	case nod_bit_and:
+		return SBM_and(EVL_bitmap(tdbb, node->nod_arg[0]),
+					   EVL_bitmap(tdbb, node->nod_arg[1]));
+
+	case nod_bit_or:
+		return SBM_or(EVL_bitmap(tdbb, node->nod_arg[0]),
+					  EVL_bitmap(tdbb, node->nod_arg[1]));
+
+	case nod_bit_dbkey:
+		{
+			DSC *desc;
+			USHORT id;
+			UCHAR *numbers;
+			SLONG rel_dbkey;
+			INV impure;
+
+			impure = (INV) ((SCHAR *) tdbb->tdbb_request + node->nod_impure);
+			SBM_reset(&impure->inv_bitmap);
+			desc = EVL_expr(tdbb, node->nod_arg[0]);
+			id = 1 + 2 * (USHORT) node->nod_arg[1];
+			numbers = desc->dsc_address;
+			numbers += id * sizeof(SLONG);
+			MOVE_FAST(numbers, &rel_dbkey, sizeof(SLONG));
+			rel_dbkey -= 1;
+			SBM_set(tdbb, &impure->inv_bitmap, rel_dbkey);
+			return &impure->inv_bitmap;
+		}
+
+	case nod_index:
+		{
+			INV impure;
+
+			impure = (INV) ((SCHAR *) tdbb->tdbb_request + node->nod_impure);
+			BTR_evaluate(tdbb,
+						 reinterpret_cast <
+						 irb * >(node->nod_arg[e_idx_retrieval]),
+						 &impure->inv_bitmap);
+			return &impure->inv_bitmap;
+		}
+
+	default:
+		BUGCHECK(230);			/* msg 230 EVL_bitmap: invalid operation */
+	}
+	return NULL;
+}
+
+
+BOOLEAN DLL_EXPORT EVL_boolean(TDBB tdbb, register NOD node)
+{
+/**************************************
+ *
+ *      E V L _ b o o l e a n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Evaluate a boolean.
+ *
+ **************************************/
+	REQ request;
+	NOD *ptr;
+	DSC *desc[2];
+	USHORT value;
+	SSHORT comparison;
+	VLU impure;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+/* Handle and pre-processing possible for various nodes.  This includes
+   evaluating argument and checking NULL flags */
+
+	request = tdbb->tdbb_request;
+	ptr = node->nod_arg;
+
+	switch (node->nod_type) {
+	case nod_contains:
+	case nod_starts:
+	case nod_matches:
+	case nod_like:
+	case nod_eql:
+	case nod_neq:
+	case nod_gtr:
+	case nod_geq:
+	case nod_lss:
+	case nod_leq:
+	case nod_between:
+	case nod_sleuth:
+		{
+			NOD rec_version;
+			ULONG flags;
+			SSHORT force_equal;
+
+			request->req_flags &= ~req_same_tx_upd;
+			force_equal = 0;
+
+			/* Evaluate arguments.  If either is null, result is null, but in
+			   any case, evaluate both, since some expressions may later depend
+			   on mappings which are developed here */
+
+			rec_version = *ptr;
+			desc[0] = EVL_expr(tdbb, *ptr++);
+			flags = request->req_flags;
+			request->req_flags &= ~req_null;
+			request->req_flags &= ~req_clone_data_from_default_clause;
+			force_equal |= request->req_flags & req_same_tx_upd;
+
+			desc[1] = EVL_expr(tdbb, *ptr++);
+
+			/* restore preserved NULL state */
+
+			if (flags & req_null)
+				request->req_flags |= req_null;
+
+			if (request->req_flags & req_null)
+				return FALSE;
+
+			force_equal |= request->req_flags & req_same_tx_upd;
+
+			if (node->nod_flags & nod_comparison)
+				comparison = MOV_compare(desc[0], desc[1]);
+
+			/* If we are checking equality of record_version
+			 * and same transaction updated the record,
+			 * force equality.
+			 */
+
+			if ((rec_version->nod_type == nod_rec_version) && (force_equal))
+				comparison = 0;
+
+			request->req_flags &= ~(req_null | req_same_tx_upd);
+		}
+		break;
+
+	case nod_and:
+		value = EVL_boolean(tdbb, *ptr++);
+		break;
+
+	case nod_or:
+		value = EVL_boolean(tdbb, *ptr++);
+		break;
+
+	case nod_not:
+		if ((*ptr)->nod_type == nod_ansi_any
+			|| (*ptr)->nod_type == nod_ansi_all) request->req_flags |=
+				req_ansi_not;
+		value = EVL_boolean(tdbb, *ptr++);
+	}
+
+/* Evaluate node */
+
+	switch (node->nod_type) {
+	case nod_and:
+		{
+			USHORT firstnull, secondnull, value2;
+
+			/* for and,
+			   if either operand is FALSE, then the result is FALSE;
+			   if both are TRUE, the result is TRUE;
+			   otherwise, the result is NULL
+
+			   op 1            op 2            result
+			   ----            ----            ------
+			   F               F                F
+			   F               T                F
+			   F               N                F
+			   T               F                F
+			   T               T                T
+			   T               N                N
+			   N               F                F
+			   N               T                N
+			   N               N                N
+
+			 */
+
+			/* save null state and get other operand */
+
+			firstnull = request->req_flags & req_null;
+			request->req_flags &= ~req_null;
+			value2 = EVL_boolean(tdbb, *ptr);
+			secondnull = request->req_flags & req_null;
+			request->req_flags &= ~req_null;
+
+			if ((!value && !firstnull) || (!value2 && !secondnull))
+				return FALSE;	/* at least one operand was FALSE */
+			else if (value && value2)
+				return TRUE;	/* both true */
+			request->req_flags |= req_null;
+			return FALSE;		/* otherwise, return null */
+		}
+
+	case nod_any:
+	case nod_ansi_any:
+	case nod_ansi_all:
+		{
+			USHORT *invariant_flags;
+			RSB rsb;
+			RSE rse;
+
+			if (node->nod_flags & nod_invariant) {
+				impure = (VLU) ((SCHAR *) request + node->nod_impure);
+				invariant_flags = (USHORT *) & impure->vlu_string;
+				if (*invariant_flags & VLU_computed) {
+					/* An invariant node has already been computed. */
+
+					if ((node->nod_type == nod_ansi_any) &&
+						(*invariant_flags & VLU_null))
+						request->req_flags |= req_null;
+					else
+						request->req_flags &= ~req_null;
+					return impure->vlu_misc.vlu_short;
+				}
+			}
+
+			/* for ansi ANY clauses (and ALL's, which are negated ANY's)
+			   the unoptimized boolean expression must be used, since the
+			   processing of these clauses is order dependant (see rse.c) */
+
+			rse = (RSE) (node->nod_arg[e_any_rse]);
+			rsb = (RSB) (node->nod_arg[e_any_rsb]);
+			if (node->nod_type != nod_any) {
+				rsb->rsb_any_boolean = (NOD) rse->rse_boolean;
+				if (node->nod_type == nod_ansi_any)
+					request->req_flags |= req_ansi_any;
+				else
+					request->req_flags |= req_ansi_all;
+			}
+			RSE_open(tdbb,
+					 reinterpret_cast <
+					 struct rsb *>(node->nod_arg[e_any_rsb]));
+			value =
+				RSE_get_record(tdbb,
+							   reinterpret_cast <
+							   struct rsb *>(node->nod_arg[e_any_rsb]),
+#ifdef SCROLLABLE_CURSORS
+							   RSE_get_next);
+#else
+							   RSE_get_forward);
+#endif
+			RSE_close(tdbb,
+					  reinterpret_cast <
+					  struct rsb *>(node->nod_arg[e_any_rsb]));
+			if (node->nod_type == nod_any)
+				request->req_flags &= ~req_null;
+
+			/* If this is an invariant node, save the return value. */
+
+			if (node->nod_flags & nod_invariant) {
+				*invariant_flags |= VLU_computed;
+				if ((node->nod_type != nod_any) &&
+					(request->req_flags & req_null))
+						*invariant_flags |= VLU_null;
+				impure->vlu_misc.vlu_short = value;
+			}
+			return value;
+		}
+
+	case nod_contains:
+	case nod_starts:
+	case nod_matches:
+	case nod_like:
+		return string_boolean(tdbb, node, desc[0], desc[1]);
+
+	case nod_sleuth:
+		return sleuth(tdbb, node, desc[0], desc[1]);
+
+	case nod_missing:
+		EVL_expr(tdbb, *ptr);
+		if (request->req_flags & req_null) {
+			value = TRUE;
+			request->req_flags &= ~req_null;
+		}
+		else {
+			if (request->req_flags & req_clone_data_from_default_clause) {
+				value = TRUE;
+				request->req_flags &= ~req_clone_data_from_default_clause;
+			}
+			else
+				value = FALSE;
+		}
+		return value;
+
+	case nod_not:
+		if (request->req_flags & req_null)
+			return FALSE;
+		return !value;
+
+	case nod_or:
+		{
+			ULONG flags;
+			USHORT value2;
+
+			/* for or, if either operand is TRUE, then the result is TRUE; if
+			   both are FALSE, the result is FALSE; otherwise, the result is NULL
+
+			   op 1            op 2            result
+			   ----            ----            ------
+			   F               F                F
+			   F               T                T
+			   F               N                N
+			   T               F                T
+			   T               T                T
+			   T               N                T
+			   N               F                N
+			   N               T                T
+			   N               N                N
+
+
+			   also, preserve first operand's value and null state, but still
+			   evaluate second operand, since latter field mappings may
+			   depend on the evaluation */
+
+			flags = request->req_flags;
+			request->req_flags &= ~req_null;
+			value2 = EVL_boolean(tdbb, *ptr);
+			if (value || value2) {
+				request->req_flags &= ~req_null;
+				return TRUE;
+			}
+
+			/* restore saved NULL state */
+
+			if (flags & req_null)
+				request->req_flags |= req_null;
+			return FALSE;
+		}
+
+	case nod_unique:
+		{
+			USHORT *invariant_flags;
+
+			if (node->nod_flags & nod_invariant) {
+				impure = (VLU) ((SCHAR *) request + node->nod_impure);
+				invariant_flags = (USHORT *) & impure->vlu_string;
+				if (*invariant_flags & VLU_computed) {
+					/* An invariant node has already been computed. */
+
+					if (*invariant_flags & VLU_null)
+						request->req_flags |= req_null;
+					else
+						request->req_flags &= ~req_null;
+					return impure->vlu_misc.vlu_short;
+				}
+			}
+
+			RSE_open(tdbb,
+					 reinterpret_cast < rsb * >(node->nod_arg[e_any_rsb]));
+			if (value =
+				RSE_get_record(tdbb,
+							   reinterpret_cast <
+							   rsb * >(node->nod_arg[e_any_rsb]),
+#ifdef SCROLLABLE_CURSORS
+							   RSE_get_next))
+#else
+							   RSE_get_forward))
+#endif
+				value =
+				!RSE_get_record(tdbb,
+								reinterpret_cast <
+								rsb * >(node->nod_arg[e_any_rsb]),
+#ifdef SCROLLABLE_CURSORS
+								RSE_get_next);
+#else
+								RSE_get_forward);
+#endif
+			RSE_close(tdbb,
+					  reinterpret_cast < rsb * >(node->nod_arg[e_any_rsb]));
+
+			/* If this is an invariant node, save the return value. */
+
+			if (node->nod_flags & nod_invariant) {
+				*invariant_flags |= VLU_computed;
+				if (request->req_flags & req_null)
+					*invariant_flags |= VLU_null;
+				impure->vlu_misc.vlu_short = value;
+			}
+			return value;
+		}
+
+	case nod_eql:
+		return ((comparison == 0) ? TRUE : FALSE);
+	case nod_neq:
+		return ((comparison != 0) ? TRUE : FALSE);
+	case nod_gtr:
+		return ((comparison > 0) ? TRUE : FALSE);
+	case nod_geq:
+		return ((comparison >= 0) ? TRUE : FALSE);
+	case nod_lss:
+		return ((comparison < 0) ? TRUE : FALSE);
+	case nod_leq:
+		return ((comparison <= 0) ? TRUE : FALSE);
+
+	case nod_between:
+		return (comparison >= 0 &&
+				MOV_compare(desc[0], EVL_expr(tdbb, node->nod_arg[2])) <= 0) ?
+			TRUE : FALSE;
+
+	default:
+		BUGCHECK(231);			/* msg 231 EVL_bitmap: invalid operation */
+	}
+	return FALSE;
+}
+
+
+DSC *DLL_EXPORT EVL_expr(TDBB tdbb, register NOD node)
+{
+/**************************************
+ *
+ *      E V L _ e x p r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Evaluate a value expression.
+ *
+ **************************************/
+	register REQ request;
+	VLU impure;
+
+	DEV_BLKCHK(node, type_nod);
+
+	if (!node)
+		BUGCHECK(303);			/* msg 303 Invalid expression for evaluation */
+
+	SET_TDBB(tdbb);
+
+	request = tdbb->tdbb_request;
+	impure = (VLU) ((SCHAR *) request + node->nod_impure);
+	request->req_flags &= ~req_null;
+	request->req_flags &= ~req_clone_data_from_default_clause;
+
+/* Do a preliminary screen for either simple nodes or nodes that
+   are special cased elsewhere */
+
+	switch (node->nod_type) {
+	case nod_add:
+	case nod_subtract:
+	case nod_divide:
+	case nod_multiply:
+	case nod_add2:
+	case nod_subtract2:
+	case nod_divide2:
+	case nod_multiply2:
+		return binary_value(tdbb, node, impure);
+
+	case nod_argument:
+		{
+			FMT format;
+			NOD message;
+			DSC *desc;
+
+			if (node->nod_arg[e_arg_flag]) {
+				desc = EVL_expr(tdbb, node->nod_arg[e_arg_flag]);
+				if (MOV_get_long(desc, 0)) {
+					request->req_flags |= req_null;
+				}
+			}
+			message = node->nod_arg[e_arg_message];
+			format = (FMT) message->nod_arg[e_msg_format];
+			desc = &format->fmt_desc[(int) node->nod_arg[e_arg_number]];
+
+			impure->vlu_desc.dsc_address = (UCHAR *) request +
+				message->nod_impure + (int) desc->dsc_address;
+			impure->vlu_desc.dsc_dtype = desc->dsc_dtype;
+			impure->vlu_desc.dsc_length = desc->dsc_length;
+			impure->vlu_desc.dsc_scale = desc->dsc_scale;
+			impure->vlu_desc.dsc_sub_type = desc->dsc_sub_type;
+			return &impure->vlu_desc;
+		}
+
+	case nod_concatenate:
+		return concatenate(tdbb, node, impure);
+
+	case nod_dbkey:
+		return dbkey(tdbb, node, impure);
+
+	case nod_rec_version:
+		return record_version(tdbb, node, impure);
+
+	case nod_field:
+		{
+			REC record;
+
+			record =
+				request->req_rpb[(int) node->
+								 nod_arg[e_fld_stream]].rpb_record;
+			/* In order to "map a null to a default" value (in EVL_field()), 
+			 * the relation block is referenced. 
+			 * Reference: Bug 10116, 10424 
+			 */
+			if (!EVL_field
+				(request->
+				 req_rpb[(USHORT) node->nod_arg[e_fld_stream]].rpb_relation,
+				 record, (USHORT) node->nod_arg[e_fld_id], &impure->vlu_desc))
+				request->req_flags |= req_null;
+			return &impure->vlu_desc;
+		}
+
+	case nod_function:
+		FUN_evaluate(reinterpret_cast <
+					 fun * >(node->nod_arg[e_fun_function]),
+					 node->nod_arg[e_fun_args],
+					 reinterpret_cast < vlu * >(&impure->vlu_desc));
+		return &impure->vlu_desc;
+
+	case nod_literal:
+		return &((LIT) node)->lit_desc;
+
+	case nod_lock_state:
+		return lock_state(tdbb, node, impure);
+#ifdef PC_ENGINE
+	case nod_lock_record:
+		return lock_record(tdbb, node, impure);
+
+	case nod_lock_relation:
+		return lock_relation(tdbb, node, impure);
+
+	case nod_begin_range:
+		return RNG_begin(node, impure);
+#endif
+	case nod_null:
+		request->req_flags |= req_null;
+		return NULL;
+
+	case nod_prot_mask:
+		return get_mask(tdbb, node, impure);
+
+	case nod_current_time:
+	case nod_current_date:
+	case nod_current_timestamp:
+		{
+			ULONG clock;
+			struct tm times;
+			GDS_TIMESTAMP enc_times;
+
+			/* Use the request timestamp, if there is one.  Otherwise
+			   fetch the current clock in order to keep running */
+
+			if (request->req_timestamp)
+				clock = request->req_timestamp;
+			else {
+				assert(FALSE);
+				clock = time(0);
+			}
+			times = *localtime(reinterpret_cast < time_t * >(&clock));
+
+			memset(&impure->vlu_desc, 0, sizeof(impure->vlu_desc));
+			impure->vlu_desc.dsc_address =
+				(UCHAR *) & impure->vlu_misc.vlu_timestamp;
+			if (node->nod_type == nod_current_time)
+				times.tm_year = times.tm_mon = times.tm_mday = 0;
+			else if (node->nod_type == nod_current_date)
+				times.tm_hour = times.tm_min = times.tm_sec = 0;
+			isc_encode_timestamp(&times, &enc_times);
+			switch (node->nod_type) {
+			case nod_current_time:
+				impure->vlu_desc.dsc_dtype = dtype_sql_time;
+				impure->vlu_desc.dsc_length = type_lengths[dtype_sql_time];
+				*(ULONG *) impure->vlu_desc.dsc_address =
+					enc_times.timestamp_time;
+				break;
+			case nod_current_date:
+				impure->vlu_desc.dsc_dtype = dtype_sql_date;
+				impure->vlu_desc.dsc_length = type_lengths[dtype_sql_date];
+				*(ULONG *) impure->vlu_desc.dsc_address =
+					enc_times.timestamp_date;
+				break;
+			case nod_current_timestamp:
+				impure->vlu_desc.dsc_dtype = dtype_timestamp;
+				impure->vlu_desc.dsc_length = type_lengths[dtype_timestamp];
+				*((GDS_TIMESTAMP *) impure->vlu_desc.dsc_address) = enc_times;
+				break;
+			default:
+				assert(FALSE);
+				break;
+			}
+		}
+		return &impure->vlu_desc;
+
+	case nod_user_name:
+		impure->vlu_desc.dsc_dtype = dtype_text;
+		impure->vlu_desc.dsc_sub_type = 0;
+		impure->vlu_desc.dsc_scale = 0;
+		INTL_ASSIGN_TTYPE(&impure->vlu_desc, ttype_metadata);
+		if (tdbb->tdbb_attachment->att_user)
+			impure->vlu_desc.dsc_address =
+				(UCHAR *) tdbb->tdbb_attachment->att_user->usr_user_name;
+		if (impure->vlu_desc.dsc_address != NULL)
+			impure->vlu_desc.dsc_length =
+				strlen(reinterpret_cast <
+					   const char *>(impure->vlu_desc.dsc_address));
+		else
+			impure->vlu_desc.dsc_length = 0;
+		return &impure->vlu_desc;
+
+
+	case nod_extract:
+		{
+			DSC *value;
+			struct tm times;
+			USHORT part;
+			GDS_TIMESTAMP timestamp;
+			ULONG extract_part;
+
+			impure = (VLU) ((SCHAR *) request + node->nod_impure);
+			extract_part = (ULONG) node->nod_arg[e_extract_part];
+			value = EVL_expr(tdbb, node->nod_arg[e_extract_value]);
+			switch (value->dsc_dtype) {
+			case dtype_sql_time:
+				timestamp.timestamp_time = *(GDS_TIME *) value->dsc_address;
+				timestamp.timestamp_date = 0;
+				isc_decode_timestamp(&timestamp, &times);
+				if (extract_part != blr_extract_hour &&
+					extract_part != blr_extract_minute &&
+					extract_part != blr_extract_second)
+						ERR_post(gds__expression_eval_err, 0);
+				break;
+			case dtype_sql_date:
+				timestamp.timestamp_date = *(GDS_DATE *) value->dsc_address;
+				timestamp.timestamp_time = 0;
+				isc_decode_timestamp(&timestamp, &times);
+				if (extract_part == blr_extract_hour ||
+					extract_part == blr_extract_minute ||
+					extract_part == blr_extract_second)
+						ERR_post(gds__expression_eval_err, 0);
+				break;
+			case dtype_timestamp:
+				timestamp = *((GDS_TIMESTAMP *) value->dsc_address);
+				isc_decode_timestamp(&timestamp, &times);
+				break;
+			default:
+				ERR_post(gds__expression_eval_err, 0);
+				break;
+			}
+			impure->vlu_desc.dsc_dtype = dtype_short;
+			impure->vlu_desc.dsc_scale = 0;
+			impure->vlu_desc.dsc_address =
+				reinterpret_cast < UCHAR * >(&impure->vlu_misc.vlu_short);
+			impure->vlu_desc.dsc_length = sizeof(SSHORT);
+			switch (extract_part) {
+			case blr_extract_year:
+				part = times.tm_year + 1900;
+				break;
+			case blr_extract_month:
+				part = times.tm_mon + 1;
+				break;
+			case blr_extract_day:
+				part = times.tm_mday;
+				break;
+			case blr_extract_hour:
+				part = times.tm_hour;
+				break;
+			case blr_extract_minute:
+				part = times.tm_min;
+				break;
+			case blr_extract_second:
+				impure->vlu_desc.dsc_dtype = dtype_long;
+				impure->vlu_desc.dsc_scale = ISC_TIME_SECONDS_PRECISION_SCALE;
+				impure->vlu_desc.dsc_address =
+					reinterpret_cast < UCHAR * >(&impure->vlu_misc.vlu_long);
+				impure->vlu_desc.dsc_length = sizeof(ULONG);
+				*(ULONG *) impure->vlu_desc.dsc_address =
+					times.tm_sec * ISC_TIME_SECONDS_PRECISION +
+					(timestamp.timestamp_time % ISC_TIME_SECONDS_PRECISION);
+				return &impure->vlu_desc;
+			case blr_extract_yearday:
+				part = times.tm_yday;
+				break;
+			case blr_extract_weekday:
+				part = times.tm_wday;
+				break;
+			default:
+				assert(FALSE);
+				part = 0;
+			}
+			*(USHORT *) impure->vlu_desc.dsc_address = part;
+		}
+		return &impure->vlu_desc;
+
+	case nod_max:
+	case nod_min:
+	case nod_count:
+	case nod_count2:
+	case nod_average:
+	case nod_average2:
+	case nod_total:
+	case nod_from:
+		return eval_statistical(tdbb, node, impure);
+
+	case nod_scalar:
+		return scalar(tdbb, node, impure);
+
+	case nod_variable:
+		node = node->nod_arg[e_var_variable];
+		impure = (VLU) ((SCHAR *) request + node->nod_impure);
+		if (impure->vlu_desc.dsc_flags & DSC_null)
+			request->req_flags |= req_null;
+		return &impure->vlu_desc;
+
+	case nod_value_if:
+		return EVL_expr(tdbb, (EVL_boolean(tdbb, node->nod_arg[0])) ?
+						node->nod_arg[1] : node->nod_arg[2]);
+
+#ifdef PC_ENGINE
+	case nod_crack:
+		{
+			RSB rsb;
+			IRSB irsb;
+
+			rsb = *(RSB *) node->nod_arg[1];
+			if (rsb->rsb_type == rsb_boolean)
+				rsb = rsb->rsb_next;
+			irsb = (IRSB) ((UCHAR *) request + rsb->rsb_impure);
+			impure->vlu_desc.dsc_address =
+				(UCHAR *) & impure->vlu_misc.vlu_long;
+			impure->vlu_desc.dsc_dtype = dtype_long;
+			impure->vlu_desc.dsc_length = sizeof(ULONG);
+			impure->vlu_desc.dsc_scale = 0;
+			impure->vlu_misc.vlu_long =
+				irsb->irsb_flags & (irsb_bof | irsb_eof | irsb_crack);
+			return &impure->vlu_desc;
+		}
+
+	case nod_get_bookmark:
+		{
+			BKM bookmark;
+
+			bookmark =
+				RSE_get_bookmark(tdbb, *(RSB *) node->nod_arg[e_getmark_rsb]);
+			return &bookmark->bkm_desc;
+		}
+
+	case nod_bookmark:
+		{
+			BKM bookmark;
+
+			bookmark = BKM_lookup(node->nod_arg[e_bookmark_id]);
+			return &bookmark->bkm_key_desc;
+		}
+
+	case nod_cardinality:
+		impure->vlu_misc.vlu_long =
+			(*(RSB *) node->nod_arg[e_card_rsb])->rsb_cardinality;
+		impure->vlu_desc.dsc_dtype = dtype_long;
+		impure->vlu_desc.dsc_length = sizeof(ULONG);
+		impure->vlu_desc.dsc_scale = 0;
+		impure->vlu_desc.dsc_sub_type = 0;
+		impure->vlu_desc.dsc_address = (UCHAR *) & impure->vlu_misc.vlu_long;
+		return &impure->vlu_desc;
+#endif
+	}
+
+	{
+/* Evaluate arguments */
+
+		DSC *values[3];
+
+		if (node->nod_count) {
+			NOD *ptr, *end;
+			DSC **v;
+
+			for (ptr = node->nod_arg, end = ptr + node->nod_count, v = values;
+				 ptr < end;) {
+				*v++ = EVL_expr(tdbb, *ptr++);
+				if (request->req_flags & req_null)
+					return NULL;
+			}
+		}
+
+		switch (node->nod_type) {
+		case nod_gen_id:		/* return a 32-bit generator value */
+			impure->vlu_misc.vlu_long = (SLONG) DPM_gen_id(tdbb,
+														   (SLONG)
+														   node->nod_arg
+														   [e_gen_id], 0,
+														   MOV_get_int64
+														   (values[0], 0));
+			impure->vlu_desc.dsc_dtype = dtype_long;
+			impure->vlu_desc.dsc_length = sizeof(SLONG);
+			impure->vlu_desc.dsc_scale = 0;
+			impure->vlu_desc.dsc_sub_type = 0;
+			impure->vlu_desc.dsc_address =
+				(UCHAR *) & impure->vlu_misc.vlu_long;
+			return &impure->vlu_desc;
+
+		case nod_gen_id2:
+			impure->vlu_misc.vlu_int64 = DPM_gen_id(tdbb,
+													(SLONG)
+													node->nod_arg[e_gen_id],
+													0,
+													MOV_get_int64(values[0],
+																  0));
+			impure->vlu_desc.dsc_dtype = dtype_int64;
+			impure->vlu_desc.dsc_length = sizeof(SINT64);
+			impure->vlu_desc.dsc_scale = 0;
+			impure->vlu_desc.dsc_sub_type = 0;
+			impure->vlu_desc.dsc_address =
+				(UCHAR *) & impure->vlu_misc.vlu_int64;
+			return &impure->vlu_desc;
+
+		case nod_negate:
+			return negate(tdbb, values[0], impure);
+
+		case nod_substr:
+			return substring(tdbb, impure,
+							 values[0],
+							 (SSHORT) MOV_get_long(values[1], 0),
+							 (SSHORT) MOV_get_long(values[2], 0));
+
+		case nod_upcase:
+			return upcase(tdbb, values[0], impure);
+
+		case nod_cast:
+			return cast(tdbb, values[0], node, impure);
+
+		default:
+			BUGCHECK(232);		/* msg 232 EVL_expr: invalid operation */
+		}
+	}
+	return NULL;
+}
+
+
+BOOLEAN DLL_EXPORT EVL_field(register REL relation,
+							 register REC record,
+							 register USHORT id, register DSC * desc)
+{
+/**************************************
+ *
+ *      E V L _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Evaluate a field by filling out a descriptor.
+ *
+ **************************************/
+	register FMT format;
+
+	DEV_BLKCHK(record, type_rec);
+
+	if (!record) {
+		ERR_warning(gds__no_cur_rec, 0);
+		return FALSE;
+	}
+
+	if (format = record->rec_format)
+		*desc = format->fmt_desc[id];
+
+	if (!format || id >= format->fmt_count || !desc->dsc_length) {
+		/* Map a non-existent field to a default value, if available.
+		 * This enables automatic format upgrade for data rows.
+		 * Handle Outer Joins and such specially!
+		 * Reference: Bug 10424, 10116
+		 */
+		FLD temp_field;
+
+		/* rec_format == NULL indicates we're performing a 
+		   join-to-null operation for outer joins */
+
+		if (record && record->rec_format && relation) {
+			/* A database sweep does not scan a relation's metadata. However
+			 * the change to substitute a default value for a missing "not null" 
+			 * field makes it necessary to reference the field block. 
+			 */
+			if (!relation->rel_fields) {
+				TDBB tdbb = NULL;
+
+				SET_TDBB(tdbb);
+				MET_scan_relation(tdbb, relation);
+			}
+
+			if (temp_field =
+				reinterpret_cast <
+				fld *
+				>(relation->rel_fields->
+				  vec_object[id])) if (temp_field->fld_default_value
+									   && temp_field->fld_not_null) {
+					if (temp_field->fld_default_value->nod_type ==
+						nod_user_name) {
+						desc->dsc_dtype = dtype_text;
+						desc->dsc_sub_type = 0;
+						desc->dsc_scale = 0;
+						INTL_ASSIGN_TTYPE(desc, ttype_metadata);
+						desc->dsc_address =
+							(UCHAR *) relation->rel_owner_name;
+						desc->dsc_length =
+							strlen(reinterpret_cast <
+								   const char *>(desc->dsc_address));
+						return TRUE;
+					}
+					else if (temp_field->fld_default_value->nod_type ==
+							 nod_current_date
+							 || temp_field->fld_default_value->nod_type ==
+							 nod_current_time
+							 || temp_field->fld_default_value->nod_type ==
+							 nod_current_timestamp) {
+						static CONST GDS_TIMESTAMP temp_timestamp = { 0, 0 };
+						desc->dsc_dtype = dtype_timestamp;
+						desc->dsc_scale = 0;
+						desc->dsc_flags = 0;
+						desc->dsc_address =
+							reinterpret_cast < UCHAR * >(const_cast <
+														 ISC_TIMESTAMP *
+														 >(&temp_timestamp));
+						desc->dsc_length = sizeof(temp_timestamp);
+						return TRUE;
+					}
+					else {
+						LIT default_literal;
+						DSC *default_desc = NULL;
+
+						default_literal =
+							reinterpret_cast <
+							lit * >(temp_field->fld_default_value);
+
+						if (default_literal->nod_type == nod_null)
+							ERR_post(gds__not_valid,
+									 gds_arg_string, temp_field->fld_name,
+									 gds_arg_string, "*** null ***", 0);
+
+						assert(default_literal->nod_type == nod_literal);
+
+						default_desc = &default_literal->lit_desc;
+						desc->dsc_dtype = default_desc->dsc_dtype;
+						desc->dsc_scale = default_desc->dsc_scale;
+						desc->dsc_length = default_desc->dsc_length;
+						desc->dsc_sub_type = default_desc->dsc_sub_type;
+						desc->dsc_flags = default_desc->dsc_flags;
+						desc->dsc_address = default_desc->dsc_address;
+						return TRUE;
+					}
+				}
+				else {
+					desc->dsc_dtype = dtype_text;
+					desc->dsc_length = 1;
+					desc->dsc_sub_type = 0;
+					desc->dsc_scale = 0;
+					desc->dsc_ttype = ttype_ascii;
+					desc->dsc_address = (UCHAR *) " ";
+					return FALSE;
+				}
+		}
+		else {
+			desc->dsc_dtype = dtype_text;
+			desc->dsc_length = 1;
+			desc->dsc_sub_type = 0;
+			desc->dsc_scale = 0;
+			desc->dsc_ttype = ttype_ascii;
+			desc->dsc_address = (UCHAR *) " ";
+			return FALSE;
+		}
+	}
+
+/* If the offset of the field is 0, the field can't possible exist */
+
+	if (!desc->dsc_address)
+		return FALSE;
+
+	desc->dsc_address = record->rec_data + (int) desc->dsc_address;
+
+	if (TEST_NULL(record, id)) {
+		desc->dsc_flags |= DSC_null;
+		return FALSE;
+	}
+	else {
+		desc->dsc_flags &= ~DSC_null;
+		return TRUE;
+	}
+}
+
+
+USHORT DLL_EXPORT EVL_group(TDBB tdbb, BLK rsb, NOD node, USHORT state)
+{
+/**************************************
+ *
+ *      E V L _ g r o u p
+ *
+ **************************************
+ *
+ * Functional description
+ *      Compute the next aggregated record of a value group.  EVL_group
+ *      is driven by, and returns, a state variable.  The values of the
+ *      state are:
+ *
+ *              3       Entering EVL group beforing fetching the first record.
+ *              1       Values are pending from a prior fetch
+ *              2       We encountered EOF from the last attempted fetch
+ *              0       We processed everything now process (EOF)
+ *
+ **************************************/
+	REQ request;
+	NOD group, map, *ptr, *end, from, field;
+	DSC temp, *desc;
+	VLUX impure;
+	struct vlu vtemp;
+	REC record;
+	USHORT id;
+	SLONG result;
+	double d;
+	SINT64 i;
+	ASB asb;
+	IASB asb_impure;
+	UCHAR *data;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+/* if we found the last record last time, we're all done  */
+
+	if (state == 2)
+		return 0;
+
+	vtemp.vlu_string = NULL;
+	request = tdbb->tdbb_request;
+	map = node->nod_arg[e_agg_map];
+	group = node->nod_arg[e_agg_group];
+
+/* Initialize the aggregate record */
+
+	for (ptr = map->nod_arg, end = ptr + map->nod_count; ptr < end; ptr++) {
+		from = (*ptr)->nod_arg[e_asgn_from];
+		impure = (VLUX) ((SCHAR *) request + from->nod_impure);
+		impure->vlux_count = 0;
+		switch (from->nod_type) {
+		case nod_agg_average:
+		case nod_agg_average_distinct:
+			impure->vlu_desc.dsc_dtype = DEFAULT_DOUBLE;
+			impure->vlu_desc.dsc_length = sizeof(double);
+			impure->vlu_desc.dsc_sub_type = 0;
+			impure->vlu_desc.dsc_scale = 0;
+			impure->vlu_desc.dsc_address =
+				(UCHAR *) & impure->vlu_misc.vlu_double;
+			impure->vlu_misc.vlu_double = 0;
+			if (from->nod_type == nod_agg_average_distinct)
+				/* Initialize a sort to reject duplicate values */
+				init_agg_distinct(tdbb, from);
+			break;
+
+		case nod_agg_average2:
+		case nod_agg_average_distinct2:
+			/* Initialize the result area as an int64.  If the field being
+			   averaged is approximate numeric, the first call to add2 will
+			   convert the descriptor to double. */
+			impure->vlu_desc.dsc_dtype = dtype_int64;
+			impure->vlu_desc.dsc_length = sizeof(SINT64);
+			impure->vlu_desc.dsc_sub_type = 0;
+			impure->vlu_desc.dsc_scale = from->nod_scale;
+			impure->vlu_desc.dsc_address =
+				(UCHAR *) & impure->vlu_misc.vlu_int64;
+			impure->vlu_misc.vlu_int64 = 0;
+			if (from->nod_type == nod_agg_average_distinct2)
+				/* Initialize a sort to reject duplicate values */
+				init_agg_distinct(tdbb, from);
+			break;
+
+		case nod_agg_total:
+		case nod_agg_total_distinct:
+			impure->vlu_desc.dsc_dtype = dtype_long;
+			impure->vlu_desc.dsc_length = sizeof(SLONG);
+			impure->vlu_desc.dsc_sub_type = 0;
+			impure->vlu_desc.dsc_scale = 0;
+			impure->vlu_desc.dsc_address =
+				(UCHAR *) & impure->vlu_misc.vlu_long;
+			impure->vlu_misc.vlu_long = 0;
+			if (from->nod_type == nod_agg_total_distinct)
+				/* Initialize a sort to reject duplicate values */
+				init_agg_distinct(tdbb, from);
+			break;
+
+		case nod_agg_total2:
+		case nod_agg_total_distinct2:
+			/* Initialize the result area as an int64.  If the field being
+			   averaged is approximate numeric, the first call to add2 will
+			   convert the descriptor to double. */
+			impure->vlu_desc.dsc_dtype = dtype_int64;
+			impure->vlu_desc.dsc_length = sizeof(SINT64);
+			impure->vlu_desc.dsc_sub_type = 0;
+			impure->vlu_desc.dsc_scale = from->nod_scale;
+			impure->vlu_desc.dsc_address =
+				(UCHAR *) & impure->vlu_misc.vlu_int64;
+			impure->vlu_misc.vlu_int64 = 0;
+			if (from->nod_type == nod_agg_total_distinct2)
+				/* Initialize a sort to reject duplicate values */
+				init_agg_distinct(tdbb, from);
+			break;
+
+		case nod_agg_min:
+		case nod_agg_min_indexed:
+		case nod_agg_max:
+		case nod_agg_max_indexed:
+			impure->vlu_desc.dsc_dtype = 0;
+			break;
+
+		case nod_agg_count:
+		case nod_agg_count2:
+		case nod_agg_count_distinct:
+			impure->vlu_desc.dsc_dtype = dtype_long;
+			impure->vlu_desc.dsc_length = sizeof(SLONG);
+			impure->vlu_desc.dsc_sub_type = 0;
+			impure->vlu_desc.dsc_scale = 0;
+			impure->vlu_desc.dsc_address =
+				(UCHAR *) & impure->vlu_misc.vlu_long;
+			impure->vlu_misc.vlu_long = 0;
+			if (from->nod_type == nod_agg_count_distinct)
+				/* Initialize a sort to reject duplicate values */
+				init_agg_distinct(tdbb, from);
+			break;
+
+		case nod_literal:		/* pjpg 20001124 */
+			EXE_assignment(tdbb, *ptr);
+			break;
+		}
+	}
+
+/* If there isn't a record pending, open the stream and get one */
+
+	if ((state == 0) || (state == 3)) {
+		RSE_open(tdbb, reinterpret_cast < struct rsb *>(rsb));
+#ifdef SCROLLABLE_CURSORS
+		if (!RSE_get_record
+			(tdbb, reinterpret_cast < struct rsb *>(rsb), RSE_get_next))
+#else
+		if (!RSE_get_record
+			(tdbb, reinterpret_cast < struct rsb *>(rsb), RSE_get_forward))
+#endif
+		{
+			if (group)
+				return 0;
+			state = 2;
+		}
+	}
+
+	if (group)
+		for (ptr = group->nod_arg, end = ptr + group->nod_count; ptr < end;
+			 ptr++) {
+			from = *ptr;
+			impure = (VLUX) ((SCHAR *) request + from->nod_impure);
+			desc = EVL_expr(tdbb, from);
+			if (request->req_flags & req_null)
+				impure->vlu_desc.dsc_address = NULL;
+			else
+				EVL_make_value(tdbb, desc,
+							   reinterpret_cast < vlu * >(impure));
+		}
+
+/* Loop thru records until either a value change or EOF */
+
+	while (state != 2) {
+		state = 1;
+
+		/* in the case of a group by, look for a change in value of any of 
+		   the columns; if we find one, stop aggregating and return what we have */
+
+		if (group)
+			for (ptr = group->nod_arg, end = ptr + group->nod_count;
+				 ptr < end; ptr++) {
+				from = *ptr;
+				impure = (VLUX) ((SCHAR *) request + from->nod_impure);
+				if (impure->vlu_desc.dsc_address)
+					EVL_make_value(tdbb, &impure->vlu_desc, &vtemp);
+				else
+					vtemp.vlu_desc.dsc_address = NULL;
+				desc = EVL_expr(tdbb, from);
+				if (request->req_flags & req_null) {
+					impure->vlu_desc.dsc_address = NULL;
+					if (vtemp.vlu_desc.dsc_address)
+						goto break_out;
+				}
+				else {
+					EVL_make_value(tdbb, desc,
+								   reinterpret_cast < vlu * >(impure));
+					if (!vtemp.vlu_desc.dsc_address
+						|| MOV_compare(&vtemp.vlu_desc, desc))
+						goto break_out;
+				}
+			}
+
+		/* go through and compute all the aggregates on this record */
+
+		for (ptr = map->nod_arg, end = ptr + map->nod_count; ptr < end; ptr++) {
+			from = (*ptr)->nod_arg[e_asgn_from];
+			impure = (VLUX) ((SCHAR *) request + from->nod_impure);
+			switch (from->nod_type) {
+			case nod_agg_min:
+			case nod_agg_min_indexed:
+			case nod_agg_max:
+			case nod_agg_max_indexed:
+				desc = EVL_expr(tdbb, from->nod_arg[0]);
+				if (request->req_flags & req_null)
+					break;
+				++impure->vlux_count;
+				if (!impure->vlu_desc.dsc_dtype) {
+					EVL_make_value(tdbb, desc,
+								   reinterpret_cast <
+								   vlu * >(&impure->vlu_desc));
+					break;
+				}
+				result =
+					MOV_compare(desc, reinterpret_cast < dsc * >(impure));
+				if (
+					(result > 0
+					 && (from->nod_type == nod_agg_max
+						 || from->nod_type == nod_agg_max_indexed))
+					|| (result < 0
+						&& (from->nod_type == nod_agg_min
+							|| from->nod_type ==
+							nod_agg_min_indexed))) EVL_make_value(tdbb, desc,
+																  reinterpret_cast
+																  < vlu *
+																  >(impure));
+
+				/* if a max or min has been mapped to an index, then the first record is the eof */
+
+				if (from->nod_type == nod_agg_max_indexed ||
+					from->nod_type == nod_agg_min_indexed) state = 2;
+				break;
+
+			case nod_agg_total:
+			case nod_agg_average:
+				desc = EVL_expr(tdbb, from->nod_arg[0]);
+				if (request->req_flags & req_null)
+					break;
+				++impure->vlux_count;
+				add(desc, from, reinterpret_cast < vlu * >(impure));
+				break;
+
+			case nod_agg_total2:
+			case nod_agg_average2:
+				desc = EVL_expr(tdbb, from->nod_arg[0]);
+				if (request->req_flags & req_null)
+					break;
+				++impure->vlux_count;
+				add2(desc, from, reinterpret_cast < vlu * >(impure));
+				break;
+
+			case nod_agg_count2:
+				++impure->vlux_count;
+				desc = EVL_expr(tdbb, from->nod_arg[0]);
+				if (request->req_flags & req_null)
+					break;
+
+			case nod_agg_count:
+				++impure->vlux_count;
+				++impure->vlu_misc.vlu_long;
+				break;
+
+			case nod_agg_count_distinct:
+			case nod_agg_total_distinct:
+			case nod_agg_average_distinct:
+			case nod_agg_average_distinct2:
+			case nod_agg_total_distinct2:
+				desc = EVL_expr(tdbb, from->nod_arg[0]);
+				if (request->req_flags & req_null)
+					break;
+				/* "Put" the value to sort. */
+				asb = (ASB) from->nod_arg[1];
+				asb_impure = (IASB) ((SCHAR *) request + asb->nod_impure);
+				if (SORT_put(tdbb->tdbb_status_vector,
+							 reinterpret_cast <
+							 scb * >(asb_impure->iasb_sort_handle),
+							 reinterpret_cast < unsigned long **>(&data)))
+					  ERR_punt();
+				MOVE_CLEAR(data, ROUNDUP_LONG(asb->asb_key_desc->skd_length));
+				asb->asb_desc.dsc_address = data;
+				MOV_move(desc, &asb->asb_desc);
+				break;
+
+			default:
+				EXE_assignment(tdbb, *ptr);
+			}
+		}
+
+#ifdef SCROLLABLE_CURSORS
+		if (!RSE_get_record(tdbb, rsb, RSE_get_next))
+#else
+		if (!RSE_get_record
+			(tdbb, reinterpret_cast < struct rsb *>(rsb), RSE_get_forward))
+#endif
+			  state = 2;
+	}
+
+  break_out:
+
+/* Finish up any residual computations and get out */
+
+	if (vtemp.vlu_string)
+		ALL_release(reinterpret_cast < frb * >(vtemp.vlu_string));
+
+	for (ptr = map->nod_arg, end = ptr + map->nod_count; ptr < end; ptr++) {
+		from = (*ptr)->nod_arg[e_asgn_from];
+		field = (*ptr)->nod_arg[e_asgn_to];
+		id = (USHORT) field->nod_arg[e_fld_id];
+		record =
+			request->req_rpb[(int) field->nod_arg[e_fld_stream]].rpb_record;
+		impure = (VLUX) ((SCHAR *) request + from->nod_impure);
+		switch (from->nod_type) {
+		case nod_agg_min:
+		case nod_agg_min_indexed:
+		case nod_agg_max:
+		case nod_agg_max_indexed:
+		case nod_agg_total:
+		case nod_agg_total_distinct:
+		case nod_agg_total2:
+		case nod_agg_total_distinct2:
+			if ((from->nod_type == nod_agg_total_distinct) ||
+				(from->nod_type == nod_agg_total_distinct2))
+				compute_agg_distinct(tdbb, from);
+			if (!impure->vlux_count) {
+				SET_NULL(record, id);
+				break;
+			}
+			/* If vlux_count is non-zero, we need to fall through. */
+		case nod_agg_count:
+		case nod_agg_count2:
+		case nod_agg_count_distinct:
+			if (from->nod_type == nod_agg_count_distinct)
+				compute_agg_distinct(tdbb, from);
+			if (!impure->vlu_desc.dsc_dtype)
+				SET_NULL(record, id);
+			else {
+				MOV_move(&impure->vlu_desc, EVL_expr(tdbb, field));
+				CLEAR_NULL(record, id);
+			}
+			break;
+
+		case nod_agg_average_distinct:
+			compute_agg_distinct(tdbb, from);
+			/* fall through */
+		case nod_agg_average:
+			if (!impure->vlux_count) {
+				SET_NULL(record, id);
+				break;
+			}
+			CLEAR_NULL(record, id);
+			temp.dsc_dtype = DEFAULT_DOUBLE;
+			temp.dsc_length = sizeof(double);
+			temp.dsc_scale = 0;
+			temp.dsc_sub_type = 0;
+			temp.dsc_address = (UCHAR *) & d;
+			d = MOV_get_double(&impure->vlu_desc) / impure->vlux_count;
+			MOV_move(&temp, EVL_expr(tdbb, field));
+			break;
+
+		case nod_agg_average_distinct2:
+			compute_agg_distinct(tdbb, from);
+			/* fall through */
+		case nod_agg_average2:
+			if (!impure->vlux_count) {
+				SET_NULL(record, id);
+				break;
+			}
+			CLEAR_NULL(record, id);
+			temp.dsc_sub_type = 0;
+			if (dtype_int64 == impure->vlu_desc.dsc_dtype) {
+				temp.dsc_dtype = dtype_int64;
+				temp.dsc_length = sizeof(SINT64);
+				temp.dsc_scale = impure->vlu_desc.dsc_scale;
+				temp.dsc_address = (UCHAR *) & i;
+				i = *((SINT64 *) impure->vlu_desc.dsc_address) /
+					impure->vlux_count;
+			}
+			else {
+				temp.dsc_dtype = DEFAULT_DOUBLE;
+				temp.dsc_length = sizeof(double);
+				temp.dsc_scale = 0;
+				temp.dsc_address = (UCHAR *) & d;
+				d = MOV_get_double(&impure->vlu_desc) / impure->vlux_count;
+			}
+			MOV_move(&temp, EVL_expr(tdbb, field));
+			break;
+		}
+	}
+
+	return state;
+}
+
+
+void DLL_EXPORT EVL_make_value(TDBB tdbb, DSC * desc, VLU value)
+{
+/**************************************
+ *
+ *      E V L _ m a k e _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Make a value block reflect the value of a descriptor. 
+ *
+ **************************************/
+	DSC from;
+
+	SET_TDBB(tdbb);
+
+/* Handle the fixed length data types first.  They're easy. */
+
+	from = *desc;
+	value->vlu_desc = *desc;
+	value->vlu_desc.dsc_address = (UCHAR *) & value->vlu_misc;
+
+	switch (from.dsc_dtype) {
+	case dtype_short:
+		value->vlu_misc.vlu_short = *((SSHORT *) from.dsc_address);
+		return;
+
+	case dtype_long:
+	case dtype_real:
+	case dtype_sql_time:
+	case dtype_sql_date:
+		value->vlu_misc.vlu_long = *((SLONG *) from.dsc_address);
+		return;
+
+	case dtype_int64:
+		value->vlu_misc.vlu_int64 = *((SINT64 *) from.dsc_address);
+		return;
+
+	case dtype_double:
+#ifdef VMS
+	case dtype_d_float:
+#endif
+		value->vlu_misc.vlu_double = *((double *) from.dsc_address);
+		return;
+
+	case dtype_timestamp:
+	case dtype_quad:
+		value->vlu_misc.vlu_dbkey[0] = ((SLONG *) from.dsc_address)[0];
+		value->vlu_misc.vlu_dbkey[1] = ((SLONG *) from.dsc_address)[1];
+		return;
+
+	case dtype_text:
+	case dtype_varying:
+	case dtype_cstring:
+		break;
+	default:
+		assert(FALSE);
+		break;
+	}
+
+	{
+		STR string;
+		UCHAR temp[128], *address, *p;
+		USHORT length;
+		USHORT ttype;
+
+/* Get string.  If necessary, get_string will convert the string into a
+   temporary buffer.  Since this will always be the result of a conversion,
+   this isn't a serious problem. */
+
+		length =
+			MOV_get_string_ptr(&from, &ttype, &address,
+							   reinterpret_cast < vary * >(temp),
+							   sizeof(temp));
+
+/* Allocate a string block of sufficient size. */
+
+		if ((string = value->vlu_string) && string->str_length < length) {
+			ALL_release(reinterpret_cast < frb * >(string));
+			string = NULL;
+		}
+
+		if (!string) {
+			string = value->vlu_string = (STR) ALLOCDV(type_str, length);
+			string->str_length = length;
+		}
+
+		value->vlu_desc.dsc_dtype = dtype_text;
+		value->vlu_desc.dsc_length = length;
+		value->vlu_desc.dsc_address = p = string->str_data;
+		value->vlu_desc.dsc_sub_type = 0;
+		value->vlu_desc.dsc_scale = 0;
+		INTL_ASSIGN_TTYPE(&value->vlu_desc, ttype);
+
+		if (address && length)
+			MOVE_FAST(address, p, length);
+	}
+}
+
+
+USHORT DLL_EXPORT EVL_mb_contains(TDBB tdbb,
+								  TEXTTYPE obj,
+								  UCHAR * p1,
+								  USHORT l1, UCHAR * p2, USHORT l2)
+{
+/**************************************
+ *
+ *      E V L _ m b _ c o n t a i n s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	USHORT buffer1[100], buffer2[100];	/* arbitrary size for optimization */
+	USHORT *pp1 = buffer1;
+	USHORT *pp2 = buffer2;
+	USHORT len1, len2;			/* byte counts */
+	STR buf1, buf2;
+	USHORT ret_val;
+	SSHORT err_code;
+	USHORT err_pos;
+
+	SET_TDBB(tdbb);
+
+	len1 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  NULL, 0,
+																	  p1, l1,
+																	  &err_code,
+																	  &err_pos);
+	len2 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  NULL, 0,
+																	  p2, l2,
+																	  &err_code,
+																	  &err_pos);
+
+	if (len1 > sizeof(buffer1)) {
+		buf1 = (STR) ALLOCDV(type_str, len1);
+		pp1 = (USHORT *) buf1->str_data;
+	}
+	if (len2 > sizeof(buffer2)) {
+		buf2 = (STR) ALLOCDV(type_str, len2);
+		pp2 = (USHORT *) buf2->str_data;
+	}
+
+	len1 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  pp1,
+																	  len1,
+																	  p1, l1,
+																	  &err_code,
+																	  &err_pos);
+	len2 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  pp2,
+																	  len2,
+																	  p2, l2,
+																	  &err_code,
+																	  &err_pos);
+
+	ret_val = EVL_wc_contains(tdbb, obj, pp1, len1, pp2, len2);
+
+	if (pp1 != buffer1)
+		ALL_release(reinterpret_cast < frb * >(buf1));
+	if (pp2 != buffer2)
+		ALL_release(reinterpret_cast < frb * >(buf2));
+
+	return ret_val;
+}
+
+
+USHORT DLL_EXPORT EVL_mb_like(TDBB tdbb,
+							  TEXTTYPE obj,
+							  UCHAR * p1,
+							  SSHORT l1,
+							  UCHAR * p2, SSHORT l2, WCHAR escape_char)
+{
+/**************************************
+ *
+ *      E V L _ m b _ l i k e 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Multi-Byte version of Like().
+ *      Front-end of like() in Japanese version.
+ *      
+ *      Prepare buffer of short, then "copy" char-based data
+ *      into the new short-based buffer. Use the new buffer for
+ *      later processing with wc_like().
+ *
+ **************************************/
+	USHORT buffer1[100], buffer2[100];	/* arbitrary size for optimization */
+	USHORT *pp1 = buffer1;
+	USHORT *pp2 = buffer2;
+	USHORT len1, len2;
+	STR buf1, buf2;
+	USHORT ret_val;
+	SSHORT err_code;
+	USHORT err_pos;
+
+	SET_TDBB(tdbb);
+
+	len1 =
+		reinterpret_cast <USHORT(*)(...)>(obj->texttype_fn_to_wc) (	obj,
+																	NULL, 0,
+																	p1, l1,
+																	&err_code,
+																	&err_pos);
+	len2 =
+		reinterpret_cast <USHORT(*)(...)>(obj->texttype_fn_to_wc)(	obj,
+																	NULL, 0,
+																	p2, l2,
+																	&err_code,
+																	&err_pos);
+	if (len1 > sizeof(buffer1)) {
+		buf1 = (STR) ALLOCDV(type_str, len1);
+		pp1 = (USHORT *) buf1->str_data;
+	}
+	if (len2 > sizeof(buffer2)) {
+		buf2 = (STR) ALLOCDV(type_str, len2);
+		pp2 = (USHORT *) buf2->str_data;
+	}
+
+	len1 =
+		reinterpret_cast <USHORT(*)(...)>(obj->texttype_fn_to_wc)(	obj,
+																	pp1,
+																	len1,
+																	p1, l1,
+																	&err_code,
+																	&err_pos);
+	len2 =
+		reinterpret_cast <USHORT(*)(...)> (obj->texttype_fn_to_wc)(	obj,
+																	pp2,
+																	len2,
+																	p2, l2,
+																	&err_code,
+																	&err_pos);
+
+	ret_val = EVL_wc_like(tdbb, obj, pp1, len1, pp2, len2, escape_char);
+
+	if (pp1 != buffer1)
+		ALL_release(reinterpret_cast<frb*>(buf1));
+	if (pp2 != buffer2)
+		ALL_release(reinterpret_cast<frb*>(buf2));
+
+	return ret_val;
+}
+
+
+USHORT DLL_EXPORT EVL_mb_matches(TDBB tdbb,
+								 TEXTTYPE obj,
+								 UCHAR * p1, SSHORT l1, UCHAR * p2, SSHORT l2)
+{
+/**************************************
+ *
+ *      E V L _ m b _ m a t c h e s 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Front-end of matches() in Japanese version.
+ *      Prepare buffer of short, then "copy" char-based data
+ *      into the new short-based buffer. Use the new buffer for
+ *      later processing with EVL_wc_matches().
+ *
+ **************************************/
+	USHORT buffer1[100], buffer2[100];	/* arbitrary size for optimization */
+	USHORT *pp1 = buffer1;
+	USHORT *pp2 = buffer2;
+	USHORT len1, len2;
+	STR buf1, buf2;
+	USHORT ret_val;
+	SSHORT err_code;
+	USHORT err_pos;
+
+	SET_TDBB(tdbb);
+
+	len1 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  NULL, 0,
+																	  p1, l1,
+																	  &err_code,
+																	  &err_pos);
+	len2 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  NULL, 0,
+																	  p2, l2,
+																	  &err_code,
+																	  &err_pos);
+	if (len1 > sizeof(buffer1)) {
+		buf1 = (STR) ALLOCDV(type_str, len1);
+		pp1 = (USHORT *) buf1->str_data;
+	}
+	if (len2 > sizeof(buffer2)) {
+		buf2 = (STR) ALLOCDV(type_str, len2);
+		pp2 = (USHORT *) buf2->str_data;
+	}
+
+	len1 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  pp1,
+																	  len1,
+																	  p1, l1,
+																	  &err_code,
+																	  &err_pos);
+	len2 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  pp2,
+																	  len2,
+																	  p2, l2,
+																	  &err_code,
+																	  &err_pos);
+
+	ret_val = EVL_wc_matches(tdbb, obj, pp1, len1, pp2, len2);
+
+	if (pp1 != buffer1)
+		ALL_release(reinterpret_cast < frb * >(buf1));
+	if (pp2 != buffer2)
+		ALL_release(reinterpret_cast < frb * >(buf2));
+
+	return ret_val;
+}
+
+
+USHORT DLL_EXPORT EVL_mb_sleuth_check(TDBB tdbb,
+									  TEXTTYPE obj,
+									  USHORT flags,
+									  UCHAR * search,
+									  USHORT search_bytes,
+									  UCHAR * match, USHORT match_bytes)
+{
+/**************************************
+ *
+ *      E V L _ m b _ s l e u t h _ c h e c k 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Front-end of sleuth_check() in Japanese version.
+ *      Prepare buffer of short, then "copy" char-based data
+ *      into the new short-based buffer. Use the new buffer for
+ *      later processing with sleuth_check().
+ *
+ **************************************/
+	USHORT buffer1[100];		/* arbitrary size for optimization */
+	USHORT *pp1 = buffer1;
+	USHORT len1;
+	STR buf1;
+	USHORT ret_val;
+	SSHORT err_code;
+	USHORT err_pos;
+
+	assert(obj != NULL);
+	assert(search != NULL);
+	assert(match != NULL);
+
+/* Note: search_merge has already converted the match
+   string to wide character (see note in sleuth()) */
+
+	SET_TDBB(tdbb);
+
+	len1 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  NULL, 0,
+																	  search,
+																	  search_bytes,
+																	  &err_code,
+																	  &err_pos);
+	if (len1 > sizeof(buffer1)) {
+		buf1 = (STR) ALLOCDV(type_str, len1);
+		pp1 = (USHORT *) buf1->str_data;
+	}
+
+	len1 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  pp1,
+																	  len1,
+																	  search,
+																	  search_bytes,
+																	  &err_code,
+																	  &err_pos);
+
+	ret_val =
+		EVL_wc_sleuth_check(tdbb, obj, 0, pp1, len1,
+							reinterpret_cast < USHORT * >(match),
+							match_bytes);
+
+	if (pp1 != buffer1)
+		ALL_release(reinterpret_cast < frb * >(buf1));
+
+	return ret_val;
+}
+
+
+USHORT DLL_EXPORT EVL_mb_sleuth_merge(TDBB tdbb,
+									  TEXTTYPE obj,
+									  UCHAR * match,
+									  USHORT match_bytes,
+									  UCHAR * control,
+									  USHORT control_bytes,
+									  UCHAR * combined, USHORT combined_bytes)
+{
+/**************************************
+ *
+ *      E V L _ m b _ s l e u t h _ m e r g e 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Front-end of sleuth_merge() in Japanese version.
+ *
+ **************************************/
+	USHORT buffer1[100], buffer2[100];	/* arbitrary size for optimization */
+	USHORT *pp1 = buffer1;
+	USHORT *pp2 = buffer2;
+	USHORT len1, len2;
+	STR buf1, buf2;
+	USHORT ret_val;
+	SSHORT err_code;
+	USHORT err_pos;
+
+	assert(obj != NULL);
+	assert(control != NULL);
+	assert(match != NULL);
+	assert(combined != NULL);
+
+	SET_TDBB(tdbb);
+
+	len1 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  NULL, 0,
+																	  match,
+																	  match_bytes,
+																	  &err_code,
+																	  &err_pos);
+	len2 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  NULL, 0,
+																	  control,
+																	  control_bytes,
+																	  &err_code,
+																	  &err_pos);
+	if (len1 > sizeof(buffer1)) {
+		buf1 = (STR) ALLOCDV(type_str, len1);
+		pp1 = (USHORT *) buf1->str_data;
+	}
+	if (len2 > sizeof(buffer2)) {
+		buf2 = (STR) ALLOCDV(type_str, len2);
+		pp2 = (USHORT *) buf2->str_data;
+	}
+
+	len1 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  pp1,
+																	  len1,
+																	  match,
+																	  match_bytes,
+																	  &err_code,
+																	  &err_pos);
+	len2 =
+		reinterpret_cast < USHORT(*)(...) > (obj->texttype_fn_to_wc) (obj,
+																	  pp2,
+																	  len2,
+																	  control,
+																	  control_bytes,
+																	  &err_code,
+																	  &err_pos);
+
+	ret_val = EVL_wc_sleuth_merge(tdbb, obj, pp1, len1, pp2,
+								  len2,
+								  reinterpret_cast < USHORT * >(combined),
+								  combined_bytes);
+
+	if (pp1 != buffer1)
+		ALL_release(reinterpret_cast < frb * >(buf1));
+	if (pp2 != buffer2)
+		ALL_release(reinterpret_cast < frb * >(buf2));
+
+	return ret_val;
+}
+
+
+USHORT DLL_EXPORT EVL_nc_contains(TDBB tdbb_dummy,
+								  TEXTTYPE obj,
+								  UCHAR * p1,
+								  USHORT l1, UCHAR * p2, USHORT l2)
+{
+/**************************************
+ *
+ *      E V L _ n c _ c o n t a i n s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	UCHAR *q1, *q2, c1, c2;
+	SSHORT l;
+
+	while (l1 >= l2) {
+		--l1;
+		q1 = p1++;
+		q2 = p2;
+		l = l2;
+		do {
+			if (--l < 0)
+				return TRUE;
+			c1 = *q1++;
+			c2 = *q2++;
+		} while (reinterpret_cast < USHORT(*)(...) >
+				 (*obj->texttype_fn_to_upper) (obj,
+											   c1) == reinterpret_cast <
+				 USHORT(*)(...) > (*obj->texttype_fn_to_upper) (obj, c2));
+	}
+
+	return FALSE;
+}
+
+
+/**************************************
+ *
+ *      E V L _ n c _ l i k e
+ *
+ **************************************
+ */
+/**************************************
+ *
+ *      E V L _ n c _ m a t c h e s
+ *
+ **************************************
+ */
+/**************************************
+ *
+ *      E V L _ n c _ s l e u t h _ c h e c k
+ *
+ **************************************
+ */
+#define LIKENAME                EVL_nc_like
+#define LIKETYPE                UCHAR
+#define MATCHESNAME             EVL_nc_matches
+#define MATCHESTYPE             UCHAR
+#define SLEUTHNAME              EVL_nc_sleuth_check
+#define SLEUTH_MERGE_NAME       EVL_nc_sleuth_merge
+#define SLEUTH_AUX              nc_sleuth_check
+#define SLEUTH_CLASS_NAME       nc_sleuth_class
+#define SLEUTHTYPE              UCHAR
+
+#define EVL_LIKE_INCLUDED_BY_EVL_CPP
+} // extern "C"
+#include "../jrd/evl_like.cpp"
+extern "C" {
+#undef EVL_LIKE_INCLUDED_BY_EVL_CPP
+
+#undef LIKENAME
+#undef LIKETYPE
+#undef MATCHESNAME
+#undef MATCHESTYPE
+#undef SLEUTHNAME
+#undef SLEUTH_MERGE_NAME
+#undef SLEUTH_AUX
+#undef SLEUTH_CLASS_NAME
+#undef SLEUTHTYPE
+
+
+USHORT DLL_EXPORT EVL_wc_contains(TDBB tdbb_dumm,
+								  TEXTTYPE obj, WCHAR * p1, USHORT l1,	/* byte count */
+								  WCHAR * p2, USHORT l2)
+{
+/**************************************
+ *
+ *      E V L _ w c _ c o n t a i n s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	WCHAR *q1, *q2, c1, c2;
+	SSHORT l;
+
+	while (l1 >= l2) {
+		l1 -= 2;
+		q1 = p1++;
+		q2 = p2;
+		l = l2;
+		do {
+			l -= 2;
+			if (l < 0)
+				return TRUE;
+			c1 = *q1++;
+			c2 = *q2++;
+		} while (reinterpret_cast < USHORT(*)(...) >
+				 (*obj->texttype_fn_to_upper) (obj,
+											   c1) == reinterpret_cast <
+				 USHORT(*)(...) > (*obj->texttype_fn_to_upper) (obj, c2));
+	}
+
+	return FALSE;
+}
+
+/**************************************
+ *
+ *      E V L _ w c _ l i k e
+ *
+ **************************************
+ */
+/**************************************
+ *
+ *      E V L _ w c _ m a t c h e s
+ *
+ **************************************
+ */
+/**************************************
+ *
+ *      E V L _ w c _ s l e u t h _ c h e c k
+ *
+ **************************************
+ */
+#define LIKENAME                EVL_wc_like
+#define LIKETYPE                WCHAR
+#define MATCHESNAME             EVL_wc_matches
+#define MATCHESTYPE             WCHAR
+#define SLEUTHNAME              EVL_wc_sleuth_check
+#define SLEUTH_MERGE_NAME       EVL_wc_sleuth_merge
+#define SLEUTH_AUX              wc_sleuth_check
+#define SLEUTH_CLASS_NAME       wc_sleuth_class
+#define SLEUTHTYPE              WCHAR
+
+#define EVL_LIKE_INCLUDED_BY_EVL_CPP
+#include "../jrd/evl_like.cpp"
+#undef EVL_LIKE_INCLUDED_BY_EVL_CPP
+
+#undef LIKENAME
+#undef LIKETYPE
+#undef MATCHESNAME
+#undef MATCHESTYPE
+#undef SLEUTHNAME
+#undef SLEUTH_MERGE_NAME
+#undef SLEUTH_AUX
+#undef SLEUTH_CLASS_NAME
+#undef SLEUTHTYPE
+
+
+
+static DSC *add(DSC * desc, NOD node, VLU value)
+{
+/**************************************
+ *
+ *      a d d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Add (or subtract) the contents of a descriptor to value
+ *      block, with dialect-1 semantics.
+ *      This function can be removed when dialect-3 becomes
+ *      the lowest supported dialect.  (Version 7.0?)
+ *
+ **************************************/
+	DSC *result;
+	double d1, d2;
+	SLONG l1, l2;
+
+	DEV_BLKCHK(node, type_nod);
+	assert(node->nod_type == nod_add ||
+		   node->nod_type == nod_subtract ||
+		   node->nod_type == nod_total ||
+		   node->nod_type == nod_average ||
+		   node->nod_type == nod_agg_total ||
+		   node->nod_type == nod_agg_average ||
+		   node->nod_type == nod_agg_total_distinct ||
+		   node->nod_type == nod_agg_average_distinct);
+
+	result = &value->vlu_desc;
+
+/* Handle date arithmetic */
+
+	if (node->nod_flags & nod_date) {
+		return add_datetime(desc, node, value);
+	}
+
+/* Handle floating arithmetic */
+
+	if (node->nod_flags & nod_double) {
+		d1 = MOV_get_double(desc);
+		d2 = MOV_get_double(&value->vlu_desc);
+		value->vlu_misc.vlu_double = (node->nod_type == nod_subtract) ?
+			d2 - d1 : d1 + d2;
+		result->dsc_dtype = DEFAULT_DOUBLE;
+		result->dsc_length = sizeof(double);
+		result->dsc_scale = 0;
+		result->dsc_sub_type = 0;
+		result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_double;
+		return result;
+	}
+
+/* Handle (oh, ugh) quad arithmetic */
+
+	if (node->nod_flags & nod_quad) {
+		SQUAD q1, q2;
+
+		q1 = MOV_get_quad(desc, node->nod_scale);
+		q2 = MOV_get_quad(&value->vlu_desc, node->nod_scale);
+		result->dsc_dtype = dtype_quad;
+		result->dsc_length = sizeof(SQUAD);
+		result->dsc_scale = node->nod_scale;
+		value->vlu_misc.vlu_quad = (node->nod_type == nod_subtract) ?
+			QUAD_SUBTRACT(q2, q1, (FPTR_VOID) ERR_post) :
+			QUAD_ADD(q1, q2, (FPTR_VOID) ERR_post);
+		result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_quad;
+
+		return result;
+	}
+
+/* Everything else defaults to longword */
+
+	l1 = MOV_get_long(desc, node->nod_scale);
+	l2 = MOV_get_long(&value->vlu_desc, node->nod_scale);
+	result->dsc_dtype = dtype_long;
+	result->dsc_length = sizeof(SLONG);
+	result->dsc_scale = node->nod_scale;
+	value->vlu_misc.vlu_long =
+		(node->nod_type == nod_subtract) ? l2 - l1 : l1 + l2;
+	result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_long;
+
+	result->dsc_sub_type = 0;
+	return result;
+}
+
+
+static DSC *add2(DSC * desc, NOD node, VLU value)
+{
+/**************************************
+ *
+ *      a d d 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Add (or subtract) the contents of a descriptor to value
+ *      block, with dialect-3 semantics, as in the blr_add,
+ *      blr_subtract, and blr_agg_total verbs following a
+ *      blr_version5
+ *
+ **************************************/
+	DSC *result;
+	double d1, d2;
+	SINT64 i1, i2;
+
+	DEV_BLKCHK(node, type_nod);
+	assert(node->nod_type == nod_add2 ||
+		   node->nod_type == nod_subtract2 ||
+		   node->nod_type == nod_average2 ||
+		   node->nod_type == nod_agg_total2 ||
+		   node->nod_type == nod_agg_average2 ||
+		   node->nod_type == nod_agg_total_distinct2 ||
+		   node->nod_type == nod_agg_average_distinct2);
+
+	result = &value->vlu_desc;
+
+/* Handle date arithmetic */
+
+	if (node->nod_flags & nod_date) {
+		return add_datetime(desc, node, value);
+	}
+
+/* Handle floating arithmetic */
+
+	if (node->nod_flags & nod_double) {
+		d1 = MOV_get_double(desc);
+		d2 = MOV_get_double(&value->vlu_desc);
+		value->vlu_misc.vlu_double = (node->nod_type == nod_subtract2) ?
+			d2 - d1 : d1 + d2;
+		result->dsc_dtype = DEFAULT_DOUBLE;
+		result->dsc_length = sizeof(double);
+		result->dsc_scale = 0;
+		result->dsc_sub_type = 0;
+		result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_double;
+		return result;
+	}
+
+/* Handle (oh, ugh) quad arithmetic */
+
+	if (node->nod_flags & nod_quad) {
+		SQUAD q1, q2;
+
+		q1 = MOV_get_quad(desc, node->nod_scale);
+		q2 = MOV_get_quad(&value->vlu_desc, node->nod_scale);
+		result->dsc_dtype = dtype_quad;
+		result->dsc_length = sizeof(SQUAD);
+		result->dsc_scale = node->nod_scale;
+		value->vlu_misc.vlu_quad = (node->nod_type == nod_subtract2) ?
+			QUAD_SUBTRACT(q2, q1, (FPTR_VOID) ERR_post) :
+			QUAD_ADD(q1, q2, (FPTR_VOID) ERR_post);
+		result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_quad;
+
+		return result;
+	}
+
+/* Everything else defaults to int64 */
+
+	i1 = MOV_get_int64(desc, node->nod_scale);
+	i2 = MOV_get_int64(&value->vlu_desc, node->nod_scale);
+	result->dsc_dtype = dtype_int64;
+	result->dsc_length = sizeof(SINT64);
+	result->dsc_scale = node->nod_scale;
+	value->vlu_misc.vlu_int64 =
+		(node->nod_type == nod_subtract2) ? i2 - i1 : i1 + i2;
+	result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_int64;
+
+	result->dsc_sub_type = MAX(desc->dsc_sub_type,
+							   value->vlu_desc.dsc_sub_type);
+
+/* If the operands of an addition have the same sign, and their sum has
+   the opposite sign, then overflow occurred.  If the two addends have
+   opposite signs, then the result will lie between the two addends, and
+   overflow cannot occur.
+   If this is a subtraction, note that we invert the sign bit, rather than
+   negating the argument, so that subtraction of MIN_SINT64, which is
+   unchanged by negation, will be correctly treated like the addition of
+   a positive number for the purposes of this test.
+
+   Test cases for a Gedankenexperiment, considering the sign bits of the
+   operands and result after the inversion below:                L  Rt  Sum
+
+        MIN_SINT64 - MIN_SINT64 ==          0, with no overflow  1   0   0
+       -MAX_SINT64 - MIN_SINT64 ==          1, with no overflow  1   0   0
+        1          - MIN_SINT64 == overflow                      0   0   1
+       -1          - MIN_SINT64 == MAX_SINT64, no overflow       1   0   0
+*/
+
+	if (node->nod_type == nod_subtract2)
+		i1 ^= MIN_SINT64;		/* invert the sign bit */
+	if (((i1 ^ i2) >= 0) && ((i1 ^ value->vlu_misc.vlu_int64) < 0))
+		ERR_post(isc_exception_integer_overflow, 0);
+
+	return result;
+}
+
+
+static DSC *add_datetime(DSC * desc, NOD node, VLU value)
+{
+/**************************************
+ *
+ *      a d d _ d a t e t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Vector out to one of the actual datetime addition routines
+ *
+ **************************************/
+	BYTE dtype;					/* Which addition routine to use? */
+
+	assert(node->nod_flags & nod_date);
+
+/* Value is the LHS of the operand.  desc is the RHS */
+
+	if ((node->nod_type == nod_add) || (node->nod_type == nod_add2)) {
+		dtype = DSC_add_result[value->vlu_desc.dsc_dtype][desc->dsc_dtype];
+	}
+	else {
+		assert((node->nod_type == nod_subtract)
+			   || (node->nod_type == nod_subtract2));
+		dtype = DSC_sub_result[value->vlu_desc.dsc_dtype][desc->dsc_dtype];
+
+		/* Is this a <date type> - <date type> construct? 
+		   chose the proper routine to do the subtract from the 
+		   LHS of expression
+		   Thus:   <TIME> - <TIMESTAMP> uses TIME arithmetic
+		   <DATE> - <TIMESTAMP> uses DATE arithmetic
+		   <TIMESTAMP> - <DATE> uses TIMESTAMP arithmetic */
+		if (DTYPE_IS_NUMERIC(dtype))
+			dtype = value->vlu_desc.dsc_dtype;
+
+		/* Handle historical <timestamp> = <string> - <value> case */
+		if (!DTYPE_IS_DATE(dtype) &&
+			(IS_DTYPE_ANY_TEXT(value->vlu_desc.dsc_dtype) ||
+			 IS_DTYPE_ANY_TEXT(desc->dsc_dtype))) dtype = dtype_timestamp;
+	}
+
+	switch (dtype) {
+	case dtype_timestamp:
+	default:
+		/* This needs to handle a dtype_sql_date + dtype_sql_time */
+		/* For historical reasons prior to V6 - handle any types for 
+		   timestamp arithmetic */
+		return add_timestamp(desc, node, value);
+
+	case dtype_sql_time:
+		return add_sql_time(desc, node, value);
+
+	case dtype_sql_date:
+		return add_sql_date(desc, node, value);
+
+	case DTYPE_CANNOT:
+		ERR_post(gds__expression_eval_err, 0);
+		return NULL;
+	};
+}
+
+
+static DSC *add_sql_date(DSC * desc, NOD node, VLU value)
+{
+/**************************************
+ *
+ *      a d d _ s q l _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform date arithmetic
+ *
+ *	DATE -   DATE	   Result is SLONG
+ *	DATE +/- NUMERIC   Numeric is interpreted as days DECIMAL(*,0).
+ *	NUMERIC +/- TIME   Numeric is interpreted as days DECIMAL(*,0).
+ *
+ **************************************/
+	DSC *result;
+	SINT64 d1, d2;
+	BOOLEAN op1_is_date = FALSE;
+	BOOLEAN op2_is_date = FALSE;
+	ISC_TIMESTAMP new_date;
+	struct tm times;
+
+	DEV_BLKCHK(node, type_nod);
+	assert(node->nod_type == nod_add ||
+		   node->nod_type == nod_subtract ||
+		   node->nod_type == nod_add2 || node->nod_type == nod_subtract2);
+
+	result = &value->vlu_desc;
+
+	assert(value->vlu_desc.dsc_dtype == dtype_sql_date ||
+		   desc->dsc_dtype == dtype_sql_date);
+
+/* Coerce operand1 to a count of days */
+	if (value->vlu_desc.dsc_dtype == dtype_sql_date) {
+		d1 = *((GDS_DATE *) value->vlu_desc.dsc_address);
+		op1_is_date++;
+	}
+	else
+		d1 = MOV_get_int64(&value->vlu_desc, 0);
+
+/* Coerce operand2 to a count of days */
+	if (desc->dsc_dtype == dtype_sql_date) {
+		d2 = *((GDS_DATE *) desc->dsc_address);
+		op2_is_date++;
+	}
+	else
+		d2 = MOV_get_int64(desc, 0);
+
+	if (((node->nod_type == nod_subtract)
+		 || (node->nod_type == nod_subtract2)) && op1_is_date && op2_is_date) {
+		d2 = d1 - d2;
+		value->vlu_misc.vlu_int64 = d2;
+		result->dsc_dtype = dtype_int64;
+		result->dsc_length = sizeof(SINT64);
+		result->dsc_scale = 0;
+		result->dsc_sub_type = 0;
+		result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_int64;
+		return result;
+	}
+
+	assert(op1_is_date || op2_is_date);
+	assert(!(op1_is_date && op2_is_date));
+
+/* Perform the operation */
+
+	if ((node->nod_type == nod_subtract) || (node->nod_type == nod_subtract2)) {
+		assert(op1_is_date);
+		d2 = d1 - d2;
+	}
+	else
+		d2 = d1 + d2;
+
+/*
+   BUG: 68427
+   d2 should not be out of range  (0001 - 9999) for the year
+
+   The valid range for dates is 0001-01-01 to 9999-12-31.  If the
+   calculation extends this range, return an error
+*/
+
+	new_date.timestamp_time = 0;
+	new_date.timestamp_date = d2;
+	isc_decode_timestamp(&new_date, &times);
+
+	if ((times.tm_year + 1900) < MIN_YEAR
+		|| (times.tm_year) + 1900 >
+		MAX_YEAR) ERR_post(gds__expression_eval_err, gds_arg_gds,
+						   isc_date_range_exceeded, 0);
+
+	value->vlu_misc.vlu_sql_date = d2;
+
+	result->dsc_dtype = dtype_sql_date;
+	result->dsc_length = type_lengths[result->dsc_dtype];
+	result->dsc_scale = 0;
+	result->dsc_sub_type = 0;
+	result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_sql_date;
+	return result;
+
+}
+
+
+static DSC *add_sql_time(DSC * desc, NOD node, VLU value)
+{
+/**************************************
+ *
+ *      a d d _ s q l _ t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform time arithmetic
+ *
+ *	TIME -   TIME	   Result is SLONG, scale -4
+ *	TIME +/- NUMERIC   Numeric is interpreted as seconds DECIMAL(*,4).
+ *	NUMERIC +/- TIME   Numeric is interpreted as seconds DECIMAL(*,4).
+ *
+ **************************************/
+	DSC *result;
+	SINT64 d1, d2;
+	BOOLEAN op1_is_time = FALSE;
+	BOOLEAN op2_is_time = FALSE;
+
+	DEV_BLKCHK(node, type_nod);
+	assert(node->nod_type == nod_add ||
+		   node->nod_type == nod_subtract ||
+		   node->nod_type == nod_add2 || node->nod_type == nod_subtract2);
+
+	result = &value->vlu_desc;
+
+	assert(value->vlu_desc.dsc_dtype == dtype_sql_time ||
+		   desc->dsc_dtype == dtype_sql_time);
+
+/* Coerce operand1 to a count of seconds */
+	if (value->vlu_desc.dsc_dtype == dtype_sql_time) {
+		d1 = *(GDS_TIME *) value->vlu_desc.dsc_address;
+		op1_is_time++;
+		assert(d1 >= 0 && d1 < ISC_TICKS_PER_DAY);
+	}
+	else
+		d1 =
+			MOV_get_int64(&value->vlu_desc, ISC_TIME_SECONDS_PRECISION_SCALE);
+
+/* Coerce operand2 to a count of seconds */
+	if (desc->dsc_dtype == dtype_sql_time) {
+		d2 = *(GDS_TIME *) desc->dsc_address;
+		op2_is_time++;
+		assert(d2 >= 0 && d2 < ISC_TICKS_PER_DAY);
+	}
+	else
+		d2 = MOV_get_int64(desc, ISC_TIME_SECONDS_PRECISION_SCALE);
+
+	if (((node->nod_type == nod_subtract)
+		 || (node->nod_type == nod_subtract2)) && op1_is_time && op2_is_time) {
+		d2 = d1 - d2;
+		/* Overflow cannot occur as the range of supported TIME values
+		   is less than the range of INTEGER */
+		value->vlu_misc.vlu_long = d2;
+		result->dsc_dtype = dtype_long;
+		result->dsc_length = sizeof(SLONG);
+		result->dsc_scale = ISC_TIME_SECONDS_PRECISION_SCALE;
+		result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_long;
+		return result;
+	}
+
+	assert(op1_is_time || op2_is_time);
+	assert(!(op1_is_time && op2_is_time));
+
+/* Perform the operation */
+
+	if ((node->nod_type == nod_subtract) || (node->nod_type == nod_subtract2)) {
+		assert(op1_is_time);
+		d2 = d1 - d2;
+	}
+	else
+		d2 = d1 + d2;
+
+/* Make sure to use modulo 24 hour arithmetic */
+
+/* Make the result positive */
+	while (d2 < 0)
+		d2 += (ISC_TICKS_PER_DAY);
+
+/* And make it in the range of values for a day */
+	d2 %= (ISC_TICKS_PER_DAY);
+
+	assert(d2 >= 0 && d2 < ISC_TICKS_PER_DAY);
+
+	value->vlu_misc.vlu_sql_time = d2;
+
+	result->dsc_dtype = dtype_sql_time;
+	result->dsc_length = type_lengths[result->dsc_dtype];
+	result->dsc_scale = 0;
+	result->dsc_sub_type = 0;
+	result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_sql_time;
+	return result;
+}
+
+
+static DSC *add_timestamp(DSC * desc, NOD node, VLU value)
+{
+/**************************************
+ *
+ *      a d d _ t i m e s t a m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform date&time arithmetic
+ *
+ *	TIMESTAMP - TIMESTAMP	Result is INT64
+ *	TIMESTAMP +/- NUMERIC   Numeric is interpreted as days DECIMAL(*,*).
+ *	NUMERIC +/- TIMESTAMP   Numeric is interpreted as days DECIMAL(*,*).
+ *	DATE	+   TIME
+ *	TIME	+   DATE
+ *
+ **************************************/
+	DSC *result;
+	SINT64 d1, d2;
+	BOOLEAN op1_is_timestamp = FALSE;
+	BOOLEAN op2_is_timestamp = FALSE;
+	ISC_TIMESTAMP new_date;
+	struct tm times;
+
+	DEV_BLKCHK(node, type_nod);
+	assert(node->nod_type == nod_add ||
+		   node->nod_type == nod_subtract ||
+		   node->nod_type == nod_add2 || node->nod_type == nod_subtract2);
+
+	result = &value->vlu_desc;
+
+/* Operand 1 is Value -- Operand 2 is desc */
+
+	if (value->vlu_desc.dsc_dtype == dtype_sql_date) {
+		/* DATE + TIME */
+		if ((desc->dsc_dtype == dtype_sql_time) &&
+			((node->nod_type == nod_add) || (node->nod_type == nod_add2))) {
+			value->vlu_misc.vlu_timestamp.timestamp_date =
+				value->vlu_misc.vlu_sql_date;
+			value->vlu_misc.vlu_timestamp.timestamp_time =
+				*(GDS_TIME *) desc->dsc_address;
+			goto return_result;
+		}
+		ERR_post(gds__expression_eval_err, 0);
+	}
+	else if (desc->dsc_dtype == dtype_sql_date) {
+		/* TIME + DATE */
+		if ((value->vlu_desc.dsc_dtype == dtype_sql_time) &&
+			((node->nod_type == nod_add) || (node->nod_type == nod_add2))) {
+			value->vlu_misc.vlu_timestamp.timestamp_time =
+				value->vlu_misc.vlu_sql_time;
+			value->vlu_misc.vlu_timestamp.timestamp_date =
+				*(GDS_DATE *) desc->dsc_address;
+			goto return_result;
+		}
+		ERR_post(gds__expression_eval_err, 0);
+	}
+
+/* For historical reasons (behavior prior to V6), 
+   there are times we will do timestamp arithmetic without a 
+   timestamp being involved.  
+   In such an event we need to convert a text type to a timestamp when
+   we don't already have one.
+   We assume any text string must represent a timestamp value.  */
+
+/* If we're subtracting, and the 2nd operand is a timestamp, or
+   something that looks & smells like it could be a timestamp, then
+   we must be doing <timestamp> - <timestamp> subtraction.
+   Notes that this COULD be as strange as <string> - <string>, but 
+   because nod_date is set in the nod_flags we know we're supposed 
+   to use some form of date arithmetic */
+
+	if (((node->nod_type == nod_subtract)
+		 || (node->nod_type == nod_subtract2))
+		&& ((desc->dsc_dtype == dtype_timestamp)
+			|| DTYPE_IS_TEXT(desc->dsc_dtype))) {
+
+		/* Handle cases of
+		   <string>    - <string>
+		   <string>    - <timestamp>
+		   <timestamp> - <string>
+		   <timestamp> - <timestamp>
+		   in which cases we assume the string represents a timestamp value */
+
+		/* If the first operand couldn't represent a timestamp, bomb out */
+
+		if (!((value->vlu_desc.dsc_dtype == dtype_timestamp) ||
+			  DTYPE_IS_TEXT(value->vlu_desc.dsc_dtype)))
+				ERR_post(gds__expression_eval_err, 0);
+
+		d1 = get_timestamp_to_isc_ticks(&value->vlu_desc);
+		d2 = get_timestamp_to_isc_ticks(desc);
+
+		d2 = d1 - d2;
+
+		if (node->nod_type == nod_subtract2) {
+
+			/* mutlipy by 100,000 so that we can have the result as decimal (18,9) 
+			 * We have 10 ^-4; to convert this to 10^-9 we need to multiply by
+			 * 100,000. Of course all this is true only because we are dividing
+			 * by SECONDS_PER_DAY 
+			 * now divide by the number of seconds per day, this will give us the
+			 * result as a int64 of type decimal (18, 9) in days instead of
+			 * seconds.
+			 *
+			 * But SECONDS_PER_DAY has 2 trailing zeroes (because it is 24 * 60 *
+			 * 60), so instead of calculating (X * 100000) / SECONDS_PER_DAY,
+			 * use (X * (100000 / 100)) / (SECONDS_PER_DAY / 100), which can be
+			 * simplified to (X * 1000) / (SECONDS_PER_DAY / 100)
+			 * Since the largest possible difference in timestamps is about 3E11
+			 * seconds or 3E15 isc_ticks, the product won't exceed approximately
+			 * 3E18, which fits into an INT64.  
+			 */
+			d2 = (d2 * 1000) / (SINT64) (SECONDS_PER_DAY / 100);
+			value->vlu_misc.vlu_int64 = (SINT64) d2;
+			result->dsc_dtype = dtype_int64;
+			result->dsc_length = sizeof(SINT64);
+			result->dsc_scale = DIALECT_3_TIMESTAMP_SCALE;
+			result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_int64;
+			return result;
+		}
+		else {
+			/* This is dialect 1 subtraction returning double as before */
+			value->vlu_misc.vlu_double =
+				(double) d2 / ((double) ISC_TICKS_PER_DAY);
+			result->dsc_dtype = dtype_double;
+			result->dsc_length = sizeof(double);
+			result->dsc_scale = DIALECT_1_TIMESTAMP_SCALE;
+			result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_double;
+			return result;
+		}
+	}
+
+/* From here we know our result must be a <timestamp>.  The only
+   legal cases are:
+	<timestamp> +/-  <numeric>
+	<numeric>   +    <timestamp>
+   However, the nod_date flag might have been set on any type of
+   nod_add / nod_subtract equation -- so we must detect any invalid
+   operands.   Any <string> value is assumed to be convertable to
+   a timestamp */
+
+/* Coerce operand1 to a count of microseconds */
+	if ((value->vlu_desc.dsc_dtype == dtype_timestamp)
+		|| (DTYPE_IS_TEXT(value->vlu_desc.dsc_dtype))) {
+		op1_is_timestamp = TRUE;
+	};
+
+/* Coerce operand2 to a count of microseconds */
+	if ((desc->dsc_dtype == dtype_timestamp)
+		|| (DTYPE_IS_TEXT(desc->dsc_dtype))) {
+		op2_is_timestamp = TRUE;
+	};
+
+/* Exactly one of the operands must be a timestamp or
+   convertable into a timestamp, otherwise it's one of 
+	   <numeric>   +/- <numeric>
+	or <timestamp> +/- <timestamp>
+	or <string>    +/- <string>
+   which are errors */
+
+	if (op1_is_timestamp == op2_is_timestamp)
+		ERR_post(gds__expression_eval_err, 0);
+
+	if (op1_is_timestamp) {
+		d1 = get_timestamp_to_isc_ticks(&value->vlu_desc);
+		d2 = get_day_fraction(desc);
+	}
+	else {
+		assert((node->nod_type == nod_add) || (node->nod_type == nod_add2));
+		assert(op2_is_timestamp);
+		d1 = get_day_fraction(&value->vlu_desc);
+		d2 = get_timestamp_to_isc_ticks(desc);
+	};
+
+/* Perform the operation */
+
+	if ((node->nod_type == nod_subtract) || (node->nod_type == nod_subtract2)) {
+		assert(op1_is_timestamp);
+		d2 = d1 - d2;
+	}
+	else
+		d2 = d1 + d2;
+
+/* Convert the count of microseconds back to a date / time format */
+
+	value->vlu_misc.vlu_timestamp.timestamp_date = d2 / (ISC_TICKS_PER_DAY);
+	value->vlu_misc.vlu_timestamp.timestamp_time = (d2 % ISC_TICKS_PER_DAY);
+
+/*
+   BUG: 68427
+   d2 should not be out of range  (0001 - 9999) for the year
+
+   The valid range for dates is 0001-01-01 to 9999-12-31.  If the
+   calculation extends this range, return an error
+*/
+
+	new_date.timestamp_time = 0;
+	new_date.timestamp_date = value->vlu_misc.vlu_timestamp.timestamp_date;
+	isc_decode_timestamp(&new_date, &times);
+
+	if ((times.tm_year + 1900) < MIN_YEAR
+		|| (times.tm_year) + 1900 >
+		MAX_YEAR) ERR_post(gds__expression_eval_err, gds_arg_gds,
+						   isc_date_range_exceeded, 0);
+
+
+/* Make sure the TIME portion is non-negative */
+
+	if ((SLONG) value->vlu_misc.vlu_timestamp.timestamp_time < 0) {
+		value->vlu_misc.vlu_timestamp.timestamp_time =
+			((SLONG) value->vlu_misc.vlu_timestamp.timestamp_time) +
+			ISC_TICKS_PER_DAY;
+		value->vlu_misc.vlu_timestamp.timestamp_date -= 1;
+	}
+
+  return_result:
+/* Caution: target of GOTO */
+
+	assert(value->vlu_misc.vlu_timestamp.timestamp_time >= 0 &&
+		   value->vlu_misc.vlu_timestamp.timestamp_time < ISC_TICKS_PER_DAY);
+
+	result->dsc_dtype = dtype_timestamp;
+	result->dsc_length = type_lengths[result->dsc_dtype];
+	result->dsc_scale = 0;
+	result->dsc_sub_type = 0;
+	result->dsc_address = (UCHAR *) & value->vlu_misc.vlu_timestamp;
+	return result;
+}
+
+
+static DSC *binary_value(TDBB tdbb, NOD node, VLU impure)
+{
+/**************************************
+ *
+ *      b i n a r y _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Evaluate a binary value expression.
+ *
+ **************************************/
+	register REQ request;
+	DSC *desc1, *desc2;
+	double divisor;
+	ULONG flags;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+	request = tdbb->tdbb_request;
+	impure = (VLU) ((SCHAR *) request + node->nod_impure);
+
+/* Evaluate arguments.  If either is null, result is null, but in
+   any case, evaluate both, since some expressions may later depend
+   on mappings which are developed here */
+
+	desc1 = EVL_expr(tdbb, node->nod_arg[0]);
+	flags = request->req_flags;
+	request->req_flags &= ~req_null;
+
+	desc2 = EVL_expr(tdbb, node->nod_arg[1]);
+
+/* restore saved NULL state */
+
+	if (flags & req_null)
+		request->req_flags |= req_null;
+
+	if (request->req_flags & req_null)
+		return NULL;
+
+	EVL_make_value(tdbb, desc1, impure);
+
+	switch (node->nod_type) {
+	case nod_add:				/* with dialect-1 semantics */
+	case nod_subtract:
+		return add(desc2, node, impure);
+
+	case nod_divide:			/* dialect-1 semantics */
+		divisor = MOV_get_double(desc2);
+		if (divisor == 0)
+			ERR_post(gds__arith_except, 0);
+		impure->vlu_misc.vlu_double =
+			DOUBLE_DIVIDE(MOV_get_double(desc1), divisor);
+		impure->vlu_desc.dsc_dtype = DEFAULT_DOUBLE;
+		impure->vlu_desc.dsc_length = sizeof(double);
+		impure->vlu_desc.dsc_address = (UCHAR *) & impure->vlu_misc;
+		return &impure->vlu_desc;
+
+	case nod_multiply:			/* dialect-1 semantics */
+		return multiply(desc2, impure, node);
+
+	case nod_add2:				/* with dialect-3 semantics */
+	case nod_subtract2:
+		return add2(desc2, node, impure);
+
+	case nod_multiply2:		/* dialect-3 semantics */
+		return multiply2(desc2, impure, node);
+
+	case nod_divide2:			/* dialect-3 semantics */
+		return divide2(desc2, impure, node);
+
+	default:
+		BUGCHECK(232);			/* msg 232 EVL_expr: invalid operation */
+	}
+	return NULL;
+}
+
+
+static DSC *cast(TDBB tdbb, DSC * value, NOD node, VLU impure)
+{
+/**************************************
+ *
+ *      c a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Cast from one datatype to another.
+ *
+ **************************************/
+	FMT format;
+	STR string;
+	USHORT length;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+/* value is present; make the conversion */
+
+	format = (FMT) node->nod_arg[e_cast_fmt];
+	impure->vlu_desc = format->fmt_desc[0];
+	impure->vlu_desc.dsc_address = (UCHAR *) & impure->vlu_misc;
+	if (DTYPE_IS_TEXT(impure->vlu_desc.dsc_dtype)) {
+		length = DSC_string_length(&impure->vlu_desc);
+		if (length <= 0) {
+			/* cast is a subtype cast only */
+
+			length = DSC_string_length(value);
+			if (impure->vlu_desc.dsc_dtype == dtype_cstring)
+				length++;		/* for NULL byte */
+			else if (impure->vlu_desc.dsc_dtype == dtype_varying)
+				length += sizeof(USHORT);
+			impure->vlu_desc.dsc_length = length;
+		}
+		length = impure->vlu_desc.dsc_length;
+
+		/* Allocate a string block of sufficient size. */
+
+		if ((string = impure->vlu_string) && string->str_length < length) {
+			ALL_release(reinterpret_cast < frb * >(string));
+			string = NULL;
+		}
+
+		if (!string) {
+			string = impure->vlu_string = (STR) ALLOCDV(type_str, length);
+			string->str_length = length;
+		}
+
+		impure->vlu_desc.dsc_address = string->str_data;
+	}
+
+	MOV_move(value, &impure->vlu_desc);
+
+	return &impure->vlu_desc;
+}
+
+
+static SSHORT compute_agg_distinct(TDBB tdbb, NOD node)
+{
+/**************************************
+ *
+ *      c o m p u t e _ a g g _ d i s t i n c t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Sort/project the values and compute      
+ *      the aggregate.
+ *
+ **************************************/
+	REQ request;
+	DSC *desc;
+	VLUX impure;
+	ASB asb;
+	IASB asb_impure;
+	SSHORT ret_val = 0;
+	UCHAR *data;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+	request = tdbb->tdbb_request;
+	asb = (ASB) node->nod_arg[1];
+	asb_impure = (IASB) ((SCHAR *) request + asb->nod_impure);
+	desc = &asb->asb_desc;
+	impure = (VLUX) ((SCHAR *) request + node->nod_impure);
+
+/* Sort the values already "put" to sort */
+
+	if (SORT_sort(	tdbb->tdbb_status_vector,
+					reinterpret_cast<SCB> (asb_impure->iasb_sort_handle)))
+	{
+		ERR_punt();
+	}
+
+/* Now get the sorted/projected values and compute the aggregate */
+
+	while (TRUE) {
+		SORT_get(tdbb->tdbb_status_vector,
+				 reinterpret_cast < SCB > (asb_impure->iasb_sort_handle),
+				 reinterpret_cast < ULONG ** >(&data)
+#ifdef SCROLLABLE_CURSORS
+				 , RSE_get_forward
+#endif
+			);
+
+		if (data == NULL) {
+			/* we are done, close the sort */
+			SORT_fini(reinterpret_cast < SCB > (asb_impure->iasb_sort_handle),
+					  tdbb->tdbb_attachment);
+			asb_impure->iasb_sort_handle = NULL;
+			break;
+		}
+
+		desc->dsc_address = data;
+		switch (node->nod_type) {
+		case nod_agg_total_distinct:
+		case nod_agg_average_distinct:
+			++impure->vlux_count;
+			add(desc, node, reinterpret_cast < vlu * >(impure));
+			break;
+
+		case nod_agg_total_distinct2:
+		case nod_agg_average_distinct2:
+			++impure->vlux_count;
+			add2(desc, node, reinterpret_cast < vlu * >(impure));
+			break;
+
+		case nod_agg_count_distinct:
+			++impure->vlux_count;
+			++impure->vlu_misc.vlu_long;
+			break;
+		}
+	}
+
+	return ret_val;
+
+}
+
+
+static DSC *concatenate(TDBB tdbb, NOD node, VLU impure)
+{
+/**************************************
+ *
+ *      c o n c a t e n a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Concatenate two strings.  
+ *
+ **************************************/
+	REQ request;
+	DSC *value1, *value2;
+	ULONG flags;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+/* Evaluate sub expressions.  If either is missing, return NULL result. */
+
+	request = tdbb->tdbb_request;
+
+/* Evaluate arguments.  If either is null, result is null, but in
+   any case, evaluate both, since some expressions may later depend
+   on mappings which are developed here */
+
+	value1 = EVL_expr(tdbb, node->nod_arg[0]);
+	flags = request->req_flags;
+	request->req_flags &= ~req_null;
+
+	value2 = EVL_expr(tdbb, node->nod_arg[1]);
+
+/* restore saved NULL state */
+
+	if (flags & req_null) {
+		request->req_flags |= req_null;
+		return value1;
+	}
+
+	if (request->req_flags & req_null)
+		return value2;
+
+	{
+		DSC desc;
+		UCHAR *p, temp1[32], temp2[256], *address1, *address2;
+		USHORT length1, length2;
+		USHORT ttype1;
+		STR temp3 = NULL;
+
+/* Both values are present; build the concatenation */
+
+		length1 =
+			MOV_get_string_ptr(value1, &ttype1, &address1,
+							   reinterpret_cast < vary * >(temp1),
+							   sizeof(temp1));
+
+/* value2 will be converted to the same text type as value1 */
+
+		if ((value2->dsc_sub_type != CS_NONE) &&
+			((ttype1 == CS_NONE) || (ttype1 == CS_ASCII)))
+			ttype1 = value2->dsc_sub_type;
+
+		length2 =
+			MOV_make_string2(value2, ttype1, &address2,
+							 reinterpret_cast < vary * >(temp2),
+							 sizeof(temp2), &temp3);
+
+		desc.dsc_dtype = dtype_text;
+		desc.dsc_sub_type = 0;
+		desc.dsc_scale = 0;
+		desc.dsc_length = length1 + length2;
+		desc.dsc_address = NULL;
+		INTL_ASSIGN_TTYPE(&desc, ttype1);
+
+		EVL_make_value(tdbb, &desc, impure);
+		p = impure->vlu_desc.dsc_address;
+
+		if (length1)
+			do
+				*p++ = *address1++;
+			while (--length1);
+
+		if (length2)
+			do
+				*p++ = *address2++;
+			while (--length2);
+
+		if (temp3)
+			ALL_release(reinterpret_cast < frb * >(temp3));
+	}
+	return &impure->vlu_desc;
+}
+
+
+#ifndef GATEWAY
+static DSC *dbkey(TDBB tdbb, NOD node, VLU impure)
+{
+/**************************************
+ *
+ *      d b k e y       ( J R D )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Make up a dbkey for a record stream.  A dbkey is expressed
+ *      as an 8 byte character string.
+ *
+ **************************************/
+	RPB *rpb;
+	REQ request;
+	REL relation;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+/* Get request, record parameter block, and relation for stream */
+
+	request = tdbb->tdbb_request;
+	impure = (VLU) ((SCHAR *) request + node->nod_impure);
+	rpb = &request->req_rpb[(int) node->nod_arg[0]];
+	relation = rpb->rpb_relation;
+
+/* Format dbkey as vector of relation id, record number */
+
+	if (relation->rel_file) {
+		impure->vlu_misc.vlu_dbkey[0] = rpb->rpb_b_page;
+		impure->vlu_misc.vlu_dbkey[1] = rpb->rpb_b_line;
+	}
+	else {
+		impure->vlu_misc.vlu_dbkey[0] = relation->rel_id;
+		impure->vlu_misc.vlu_dbkey[1] = rpb->rpb_number + 1;
+	}
+
+/* Initialize descriptor */
+
+	impure->vlu_desc.dsc_address = (UCHAR *) impure->vlu_misc.vlu_dbkey;
+	impure->vlu_desc.dsc_dtype = dtype_text;
+	impure->vlu_desc.dsc_length = 8;
+	impure->vlu_desc.dsc_ttype = ttype_binary;
+
+	return &impure->vlu_desc;
+}
+#else
+
+
+static DSC *dbkey(TDBB tdbb, NOD node, VLUK impure)
+{
+/**************************************
+ *
+ *      d b k e y       ( G a t e w a y )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Make up a dbkey for a record stream.  A dbkey is expressed
+ *      as an 18 byte character string.
+ *
+ **************************************/
+	RPB *rpb;
+	REQ request;
+	REL relation;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+/* Get request, record parameter block, and relation for stream */
+
+	request = tdbb->tdbb_request;
+	impure = (VLUK) ((SCHAR *) request + node->nod_impure);
+	rpb = &request->req_rpb[(int) node->nod_arg[0]];
+	relation = rpb->rpb_relation;
+
+/* Copy rowid from record buffer */
+
+	MOVE_FAST(rpb->rpb_record->rec_data +
+			  (int) relation->rel_current_format->
+			  fmt_desc[relation->rel_key_field].dsc_address,
+			  impure->vlu_misc.vlu_rowid, 18);
+
+/* Initialize descriptor */
+
+	impure->vlu_desc.dsc_address = (UCHAR *) impure->vlu_misc.vlu_rowid;
+	impure->vlu_desc.dsc_dtype = dtype_text;
+	impure->vlu_desc.dsc_length = 18;
+	impure->vlu_desc.dsc_ttype = ttype_binary;
+
+	return &impure->vlu_desc;
+}
+#endif
+
+
+static DSC *eval_statistical(TDBB tdbb, NOD node, VLU impure)
+{
+/**************************************
+ *
+ *      e v a l _ s t a t i s t i c a l
+ *
+ **************************************
+ *
+ * Functional description
+ *      Evaluate a statistical expression.
+ *
+ **************************************/
+	REQ request;
+	DSC *desc, *value;
+	ULONG flag;
+	USHORT *invariant_flags;
+	BLK rsb;
+	SSHORT result;
+	SLONG count;
+	double d;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+/* Get started by opening stream */
+
+	request = tdbb->tdbb_request;
+	desc = &impure->vlu_desc;
+
+	if (node->nod_flags & nod_invariant) {
+		invariant_flags = (USHORT *) & impure->vlu_string;
+		if (*invariant_flags & VLU_computed) {
+			/* An invariant node has already been computed. */
+
+			if (*invariant_flags & VLU_null)
+				request->req_flags |= req_null;
+			else
+				request->req_flags &= ~req_null;
+			return desc;
+		}
+	}
+
+	flag = req_null;
+	if ((nod_average2 == node->nod_type)) {
+		impure->vlu_misc.vlu_int64 = 0;
+		impure->vlu_desc.dsc_dtype = dtype_int64;
+		impure->vlu_desc.dsc_length = sizeof(SINT64);
+		impure->vlu_desc.dsc_address = (UCHAR *) & impure->vlu_misc.vlu_int64;
+		impure->vlu_desc.dsc_scale = 0;
+	}
+	else {
+		impure->vlu_misc.vlu_long = 0;
+		impure->vlu_desc.dsc_dtype = dtype_long;
+		impure->vlu_desc.dsc_length = sizeof(SLONG);
+		impure->vlu_desc.dsc_address = (UCHAR *) & impure->vlu_misc.vlu_long;
+	}
+	count = 0;
+
+	rsb = (BLK) node->nod_arg[e_stat_rsb];
+	RSE_open(tdbb, reinterpret_cast < struct rsb *>(rsb));
+
+/* Handle each variety separately */
+
+	switch (node->nod_type) {
+	case nod_count:
+		flag = 0;
+		while (RSE_get_record(tdbb, reinterpret_cast < struct rsb *>(rsb),
+#ifdef SCROLLABLE_CURSORS
+							  RSE_get_next))
+#else
+							  RSE_get_forward))
+#endif
+		++ impure->vlu_misc.vlu_long;
+		break;
+
+	case nod_count2:
+		flag = 0;
+		while (RSE_get_record(tdbb, reinterpret_cast < struct rsb *>(rsb),
+#ifdef SCROLLABLE_CURSORS
+							  RSE_get_next))
+#else
+							  RSE_get_forward))
+#endif
+		{
+			value = EVL_expr(tdbb, node->nod_arg[e_stat_value]);
+			if (!(request->req_flags & req_null))
+				++impure->vlu_misc.vlu_long;
+		}
+		break;
+
+	case nod_min:
+	case nod_max:
+		while (RSE_get_record(tdbb, reinterpret_cast < struct rsb *>(rsb),
+#ifdef SCROLLABLE_CURSORS
+							  RSE_get_next))
+#else
+							  RSE_get_forward))
+#endif
+		{
+			value = EVL_expr(tdbb, node->nod_arg[e_stat_value]);
+			if (request->req_flags & req_null)
+				continue;
+			if (flag ||
+				((result = MOV_compare(value, desc)) < 0 &&
+				 node->nod_type == nod_min) ||
+				(node->nod_type != nod_min && result > 0)) {
+				flag = 0;
+				EVL_make_value(tdbb, value, impure);
+			}
+		}
+		break;
+
+	case nod_from:
+		if (RSE_get_record(tdbb, reinterpret_cast < struct rsb *>(rsb),
+#ifdef SCROLLABLE_CURSORS
+						   RSE_get_next))
+#else
+						   RSE_get_forward))
+#endif
+		{
+			desc = EVL_expr(tdbb, node->nod_arg[e_stat_value]);
+		}
+		else
+		{
+			if (node->nod_arg[e_stat_default])
+				desc = EVL_expr(tdbb, node->nod_arg[e_stat_default]);
+			else
+				ERR_post(gds__from_no_match, 0);
+		}
+		flag = request->req_flags;
+		break;
+
+	case nod_average:			/* total or average with dialect-1 semantics */
+	case nod_total:
+		while (RSE_get_record(tdbb, reinterpret_cast < struct rsb *>(rsb),
+#ifdef SCROLLABLE_CURSORS
+								RSE_get_next))
+#else
+								RSE_get_forward))
+#endif
+		{
+			desc = EVL_expr(tdbb, node->nod_arg[e_stat_value]);
+			if (request->req_flags & req_null)
+				continue;
+			/* Note: if the field being SUMed or AVERAGEd is short or long,
+			   impure will stay long, and the first add() will
+			   set the correct scale; if it is approximate numeric,
+			   the first add() will convert impure to double. */
+			add(desc, node, impure);
+			count++;
+		}
+		desc = &impure->vlu_desc;
+		if (node->nod_type == nod_total) {
+			flag = 0;
+			break;
+		}
+		if (!count)
+			break;
+		d = MOV_get_double(&impure->vlu_desc);
+		impure->vlu_misc.vlu_double = d / count;
+		impure->vlu_desc.dsc_dtype = DEFAULT_DOUBLE;
+		impure->vlu_desc.dsc_length = sizeof(double);
+		impure->vlu_desc.dsc_scale = 0;
+		flag = 0;
+		break;
+
+	case nod_average2:			/* average with dialect-3 semantics */
+		while (RSE_get_record(tdbb, reinterpret_cast < struct rsb *>(rsb),
+#ifdef SCROLLABLE_CURSORS
+							  RSE_get_next))
+#else
+							  RSE_get_forward))
+#endif
+		{
+			desc = EVL_expr(tdbb, node->nod_arg[e_stat_value]);
+			if (request->req_flags & req_null)
+				continue;
+			/* Note: if the field being SUMed or AVERAGEd is exact
+			   numeric, impure will stay int64, and the first add() will
+			   set the correct scale; if it is approximate numeric,
+			   the first add() will convert impure to double. */
+			add(desc, node, impure);
+			count++;
+		}
+		desc = &impure->vlu_desc;
+		if (!count)
+			break;
+		/* We know the sum, but we want the average.  To get it, divide
+		   the sum by the count.  Since count is exact, dividing an int64
+		   sum by count should leave an int64 average, while dividing a
+		   double sum by count should leave a double average. */
+		if (dtype_int64 == impure->vlu_desc.dsc_dtype)
+			impure->vlu_misc.vlu_int64 /= count;
+		else
+			impure->vlu_misc.vlu_double /= count;
+		flag = 0;
+		break;
+
+#ifndef AIX_PPC
+	default:
+		BUGCHECK(233);			/* msg 233 eval_statistical: invalid operation */
+#endif
+	}
+
+#ifdef AIX_PPC
+	if (node->nod_type != nod_count &&
+		node->nod_type != nod_count2 &&
+		node->nod_type != nod_min &&
+		node->nod_type != nod_max &&
+		node->nod_type != nod_from &&
+		node->nod_type != nod_average &&
+		node->nod_type != nod_average2 && node->nod_type != nod_total)
+		BUGCHECK(233);			/* msg 233 eval_statistical: invalid operation */
+#endif
+
+/* Close stream and return value */
+
+	RSE_close(tdbb, reinterpret_cast < struct rsb *>(rsb));
+	request->req_flags &= ~req_null;
+	request->req_flags |= flag;
+
+/* If this is an invariant node, save the return value.  If the
+   descriptor does not point to the impure area for this node then
+   point this node's descriptor to the correct place; copy the whole
+   structure to be absolutely sure */
+
+	if (node->nod_flags & nod_invariant) {
+		*invariant_flags |= VLU_computed;
+		if (request->req_flags & req_null)
+			*invariant_flags |= VLU_null;
+		if (desc && (desc != &impure->vlu_desc))
+			impure->vlu_desc = *desc;
+	}
+
+	return desc;
+}
+
+
+static SINT64 get_day_fraction(DSC * d)
+{
+/**************************************
+ *
+ *      g e t _ d a y _ f r a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Take the input number, assume it represents a fractional
+ *	count of days.  Convert it to a count of microseconds.
+ *
+ **************************************/
+	DSC result;
+	double result_days;
+
+	result.dsc_dtype = dtype_double;
+	result.dsc_scale = 0;
+	result.dsc_flags = 0;
+	result.dsc_sub_type = 0;
+	result.dsc_length = sizeof(double);
+	result.dsc_address = reinterpret_cast < UCHAR * >(&result_days);
+
+/* Convert the input number to a double */
+	CVT_move(d, &result, reinterpret_cast < void (*)() > (ERR_post));
+
+/* There's likely some loss of precision here due to rounding of number */
+
+	return (SINT64) (result_days * ISC_TICKS_PER_DAY);
+}
+
+
+
+static DSC *get_mask(TDBB tdbb, NOD node, VLU impure)
+{
+/**************************************
+ *
+ *      g e t _ m a s k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Compute protection mask.
+ *
+ **************************************/
+	TEXT *p1, *p2, relation_name[32], field_name[32];
+	DSC *value;
+	REQ request;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+	request = tdbb->tdbb_request;
+	p1 = p2 = NULL;
+	value = EVL_expr(tdbb, node->nod_arg[0]);
+
+	if (!(request->req_flags & req_null)) {
+		p1 = relation_name;
+		MOV_get_name(value, p1);
+		value = EVL_expr(tdbb, node->nod_arg[1]);
+		if (!(request->req_flags & req_null)) {
+			p2 = field_name;
+			MOV_get_name(value, p2);
+		}
+	}
+
+	request->req_flags &= ~req_null;
+
+	impure->vlu_misc.vlu_long = SCL_get_mask(p1, p2);
+	impure->vlu_desc.dsc_dtype = dtype_long;
+	impure->vlu_desc.dsc_length = sizeof(SLONG);
+	impure->vlu_desc.dsc_scale = 0;
+	impure->vlu_desc.dsc_address = (UCHAR *) & impure->vlu_misc.vlu_long;
+
+	return &impure->vlu_desc;
+}
+
+
+static SINT64 get_timestamp_to_isc_ticks(DSC * d)
+{
+/**************************************
+ *
+ *	g e t _ t i m e s t a m p _ t o _ i s c _ t i c k s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Take the input value, which is either a timestamp
+ *	or a string representing a timestamp.  Convert it to
+ *	a timestamp, and then return that timestamp as a
+ *	count of isc_ticks since the base date and time
+ *	in MJD time arithmetic.
+ *	ISC_TICKS or isc_ticks are actually deci - milli seconds or
+ *	tenthousandth of seconds per day. This is derived from the 
+ *	ISC_TIME_SECONDS_PRECISION.
+ *
+ **************************************/
+	DSC result;
+	GDS_TIMESTAMP result_timestamp;
+
+	result.dsc_dtype = dtype_timestamp;
+	result.dsc_scale = 0;
+	result.dsc_flags = 0;
+	result.dsc_sub_type = 0;
+	result.dsc_length = sizeof(GDS_TIMESTAMP);
+	result.dsc_address = reinterpret_cast < UCHAR * >(&result_timestamp);
+
+	CVT_move(d, &result, reinterpret_cast < void (*)() > (ERR_post));
+
+	return ((SINT64) result_timestamp.timestamp_date) * ISC_TICKS_PER_DAY
+		+ (SINT64) result_timestamp.timestamp_time;
+}
+
+
+static SSHORT init_agg_distinct(TDBB tdbb, NOD node)
+{
+/**************************************
+ *
+ *      i n i t _ a g g _ d i s t i n c t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Initialize a sort for distinct aggregate.
+ *
+ **************************************/
+	REQ request;
+	ASB asb;
+	SCB handle;
+	SKD *sort_key;
+	IASB asb_impure;
+	SSHORT ret_val = 0;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+	request = tdbb->tdbb_request;
+
+	asb = (ASB) node->nod_arg[1];
+	asb_impure = (IASB) ((SCHAR *) request + asb->nod_impure);
+	sort_key = asb->asb_key_desc;
+
+	handle =
+		SORT_init(tdbb->tdbb_status_vector,
+				  ROUNDUP_LONG(sort_key->skd_length), 1, sort_key,
+				  reinterpret_cast < UCHAR(*)() > (reject_duplicate), 0,
+				  tdbb->tdbb_attachment);
+
+	if (!(asb_impure->iasb_sort_handle = (SLONG *) handle))
+		ERR_punt();
+
+	return ret_val;
+}
+
+
+#ifdef PC_ENGINE
+static DSC *lock_record(TDBB tdbb, NOD node, VLU impure)
+{
+/**************************************
+ *
+ *      l o c k _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lock a record and return a descriptor
+ *      pointing to the lock handle.
+ *
+ **************************************/
+	REQ request;
+	DSC *desc;
+	USHORT lock_level;
+	RSB rsb;
+	RPB *rpb;
+	LCK lock = NULL;
+
+	SET_TDBB(tdbb);
+
+	request = tdbb->tdbb_request;
+
+	DEV_BLKCHK(node, type_nod);
+
+/* Initialize descriptor */
+
+	impure->vlu_desc.dsc_address = (UCHAR *) & impure->vlu_misc.vlu_long;
+	impure->vlu_desc.dsc_dtype = dtype_long;
+	impure->vlu_desc.dsc_length = sizeof(ULONG);
+	impure->vlu_desc.dsc_scale = 0;
+
+/* get the locking level */
+
+	desc = EVL_expr(tdbb, node->nod_arg[e_lockrec_level]);
+	lock_level = (USHORT) MOV_get_long(desc, 0);
+	if (lock_level > LCK_EX)
+		ERR_post(gds__bad_lock_level, gds_arg_number, (SLONG) lock_level, 0);
+
+/* perform the actual lock (or unlock) */
+
+	rsb = *(RSB *) node->nod_arg[e_lockrec_rsb];
+	rpb = request->req_rpb + rsb->rsb_stream;
+	if (!lock_level)
+		RLCK_unlock_record(0, rpb);
+	else if (!(lock = RLCK_lock_record(rpb, lock_level, 0, 0)))
+		ERR_warning(gds__record_lock, 0);
+
+/* return the lock handle (actually the pointer to the lock block) */
+
+#if !defined(HAS_64BIT_POINTERS)
+	impure->vlu_misc.vlu_long = (ULONG) lock;
+#else
+	{
+		ATT att;
+		ULONG slot;
+
+		/* The lock pointer can't be stored in a ULONG.  Therefore we must
+		   generate a ULONG value that can be used to retrieve the pointer.
+		   Basically we will keep a vector of user locks and give the user
+		   an index into this vector.  When the user releases a lock, its
+		   slot in the vector is zeroed and it becomes available for reuse. */
+
+		att = tdbb->tdbb_attachment;
+		slot = ALL_get_free_object(tdbb->tdbb_database->dbb_permanent,
+								   &att->att_lck_quick_ref, 50);
+		att->att_lck_quick_ref->vec_object[slot] = lock;
+		impure->vlu_misc.vlu_long = slot;
+	}
+#endif
+
+	return &impure->vlu_desc;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+static DSC *lock_relation(TDBB tdbb, NOD node, VLU impure)
+{
+/**************************************
+ *
+ *      l o c k _ r e l a t i o n 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lock a relation and return a descriptor
+ *      pointing to the lock handle.
+ *
+ **************************************/
+	DSC *desc;
+	USHORT lock_level;
+	NOD relation_node;
+	REL relation;
+	LCK lock = NULL;
+
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(node, type_nod);
+
+/* Initialize descriptor */
+
+	impure->vlu_desc.dsc_address = (UCHAR *) & impure->vlu_misc.vlu_long;
+	impure->vlu_desc.dsc_dtype = dtype_long;
+	impure->vlu_desc.dsc_length = sizeof(ULONG);
+	impure->vlu_desc.dsc_scale = 0;
+
+/* get the locking level */
+
+	desc = EVL_expr(tdbb, node->nod_arg[e_lockrel_level]);
+	lock_level = (USHORT) MOV_get_long(desc, 0);
+	if (lock_level > LCK_EX)
+		ERR_post(gds__bad_lock_level, gds_arg_number, (SLONG) lock_level, 0);
+
+/* perform the actual lock (or unlock) */
+
+	relation_node = node->nod_arg[e_lockrel_relation];
+	relation = (REL) relation_node->nod_arg[e_rel_relation];
+	if (!lock_level)
+		RLCK_unlock_relation(0, relation);
+	else
+		lock = RLCK_lock_relation(relation, lock_level, 0, relation);
+
+/* return the lock handle (actually the pointer to the lock block) */
+
+#if !defined(HAS_64BIT_POINTERS)
+	impure->vlu_misc.vlu_long = (ULONG) lock;
+#else
+	{
+		ATT att;
+		ULONG slot;
+
+		SET_TDBB(tdbb);
+
+		/* The lock pointer can't be stored in a ULONG.  Therefore we must
+		   generate a ULONG value that can be used to retrieve the pointer.
+		   Basically we will keep a vector of user locks and give the user
+		   an index into this vector.  When the user releases a lock, its
+		   slot in the vector is zeroed and it becomes available for reuse. */
+
+		att = tdbb->tdbb_attachment;
+		slot = ALL_get_free_object(tdbb->tdbb_database->dbb_permanent,
+								   &att->att_lck_quick_ref, 50);
+		att->att_lck_quick_ref->vec_object[slot] = lock;
+		impure->vlu_misc.vlu_long = slot;
+	}
+#endif
+
+	return &impure->vlu_desc;
+}
+#endif
+
+
+static DSC *lock_state(TDBB tdbb, NOD node, VLU impure)
+{
+/**************************************
+ *
+ *      l o c k _ s t a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Compute state of an attachment id.  The values
+ *      returned are:
+ *
+ *          0 - value is null
+ *          1 - attachment is gone
+ *          2 - we are that attachment
+ *          3 - attachment is active
+ *
+ **************************************/
+	DBB dbb;
+	REQ request;
+	DSC *desc;
+	SLONG id;
+
+	SET_TDBB(tdbb);
+
+	dbb = tdbb->tdbb_database;
+
+	DEV_BLKCHK(node, type_nod);
+
+/* Initialize descriptor */
+
+	impure->vlu_desc.dsc_address = (UCHAR *) & impure->vlu_misc.vlu_long;
+	impure->vlu_desc.dsc_dtype = dtype_long;
+	impure->vlu_desc.dsc_length = sizeof(SLONG);
+	impure->vlu_desc.dsc_scale = 0;
+
+/* Evaluate attachment id */
+
+	request = tdbb->tdbb_request;
+	desc = EVL_expr(tdbb, node->nod_arg[0]);
+
+	if (request->req_flags & req_null)
+		impure->vlu_misc.vlu_long = 0;
+	else {
+		id = MOV_get_long(desc, 0);
+		if (id == PAG_attachment_id())
+			impure->vlu_misc.vlu_long = 2;
+		else {
+			struct lck temp_lock;
+			/* fill out a lock block, zeroing it out first */
+
+			MOVE_CLEAR(&temp_lock, sizeof(struct lck));
+			temp_lock.lck_header.blk_type = type_lck;
+			temp_lock.lck_parent = dbb->dbb_lock;
+			temp_lock.lck_type = LCK_attachment;
+			temp_lock.lck_owner_handle =
+				LCK_get_owner_handle(tdbb, temp_lock.lck_type);
+			temp_lock.lck_length = sizeof(SLONG);
+			temp_lock.lck_key.lck_long = id;
+
+			if (LCK_lock(tdbb, &temp_lock, LCK_write, FALSE)) {
+				impure->vlu_misc.vlu_long = 1;
+				LCK_release(tdbb, &temp_lock);
+			}
+			else
+				impure->vlu_misc.vlu_long = 3;
+		}
+	}
+
+	return &impure->vlu_desc;
+}
+
+
+static DSC *multiply(DSC * desc, VLU value, NOD node)
+{
+/**************************************
+ *
+ *      m u l t i p l y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Multiply two numbers, with SQL dialect-1 semantics
+ *      This function can be removed when dialect-3 becomes
+ *      the lowest supported dialect.  (Version 7.0?)
+ *
+ **************************************/
+	double d1, d2;
+	SLONG l1, l2;
+	SSHORT scale;
+
+	DEV_BLKCHK(node, type_nod);
+
+/* Handle floating arithmetic */
+
+	if (node->nod_flags & nod_double) {
+		d1 = MOV_get_double(desc);
+		d2 = MOV_get_double(&value->vlu_desc);
+		value->vlu_misc.vlu_double = DOUBLE_MULTIPLY(d1, d2);
+		value->vlu_desc.dsc_dtype = DEFAULT_DOUBLE;
+		value->vlu_desc.dsc_length = sizeof(double);
+		value->vlu_desc.dsc_scale = 0;
+		value->vlu_desc.dsc_address = (UCHAR *) & value->vlu_misc.vlu_double;
+		return &value->vlu_desc;
+	}
+
+/* Handle (oh, ugh) quad arithmetic */
+
+	if (node->nod_flags & nod_quad) {
+		SQUAD q1, q2;
+
+		scale = NUMERIC_SCALE(value->vlu_desc);
+		q1 = MOV_get_quad(desc, node->nod_scale - scale);
+		q2 = MOV_get_quad(&value->vlu_desc, scale);
+		value->vlu_desc.dsc_dtype = dtype_quad;
+		value->vlu_desc.dsc_length = sizeof(SQUAD);
+		value->vlu_desc.dsc_scale = node->nod_scale;
+		value->vlu_misc.vlu_quad =
+			QUAD_MULTIPLY(q1, q2, (FPTR_VOID) ERR_post);
+		value->vlu_desc.dsc_address = (UCHAR *) & value->vlu_misc.vlu_quad;
+
+		return &value->vlu_desc;
+	}
+
+/* Everything else defaults to longword */
+
+	scale = NUMERIC_SCALE(value->vlu_desc);
+	l1 = MOV_get_long(desc, node->nod_scale - scale);
+	l2 = MOV_get_long(&value->vlu_desc, scale);
+	value->vlu_desc.dsc_dtype = dtype_long;
+	value->vlu_desc.dsc_length = sizeof(SLONG);
+	value->vlu_desc.dsc_scale = node->nod_scale;
+	value->vlu_misc.vlu_long = l1 * l2;
+	value->vlu_desc.dsc_address = (UCHAR *) & value->vlu_misc.vlu_long;
+
+	return &value->vlu_desc;
+}
+
+
+static DSC *multiply2(DSC * desc, VLU value, NOD node)
+{
+/**************************************
+ *
+ *      m u l t i p l y 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Multiply two numbers, with dialect-3 semantics,
+ *      implementing blr_version5 ... blr_multiply.
+ *
+ **************************************/
+	double d1, d2;
+	SINT64 i1, i2;
+	UINT64 u1, u2, u_limit;		/* used to check for overflow */
+	SSHORT scale;
+
+	DEV_BLKCHK(node, type_nod);
+
+/* Handle floating arithmetic */
+
+	if (node->nod_flags & nod_double) {
+		d1 = MOV_get_double(desc);
+		d2 = MOV_get_double(&value->vlu_desc);
+		value->vlu_misc.vlu_double = DOUBLE_MULTIPLY(d1, d2);
+		value->vlu_desc.dsc_dtype = DEFAULT_DOUBLE;
+		value->vlu_desc.dsc_length = sizeof(double);
+		value->vlu_desc.dsc_scale = 0;
+		value->vlu_desc.dsc_address = (UCHAR *) & value->vlu_misc.vlu_double;
+		return &value->vlu_desc;
+	}
+
+/* Handle (oh, ugh) quad arithmetic */
+
+	if (node->nod_flags & nod_quad) {
+		SQUAD q1, q2;
+
+		scale = NUMERIC_SCALE(value->vlu_desc);
+		q1 = MOV_get_quad(desc, node->nod_scale - scale);
+		q2 = MOV_get_quad(&value->vlu_desc, scale);
+		value->vlu_desc.dsc_dtype = dtype_quad;
+		value->vlu_desc.dsc_length = sizeof(SQUAD);
+		value->vlu_desc.dsc_scale = node->nod_scale;
+		value->vlu_misc.vlu_quad =
+			QUAD_MULTIPLY(q1, q2, (FPTR_VOID) ERR_post);
+		value->vlu_desc.dsc_address = (UCHAR *) & value->vlu_misc.vlu_quad;
+
+		return &value->vlu_desc;
+	}
+
+/* Everything else defaults to int64 */
+
+	scale = NUMERIC_SCALE(value->vlu_desc);
+	i1 = MOV_get_int64(desc, node->nod_scale - scale);
+	i2 = MOV_get_int64(&value->vlu_desc, scale);
+
+/*
+   We need to report an overflow if
+       (i1 * i2 < MIN_SINT64) || (i1 * i2 > MAX_SINT64)
+   which is equivalent to
+       (i1 < MIN_SINT64 / i2) || (i1 > MAX_SINT64 / i2)
+   
+   Unfortunately, a trial division to see whether the multiplication will
+   overflow is expensive: fortunately, we only need perform one division and
+   test for one of the two cases, depending on whether the factors have the
+   same or opposite signs.
+
+   Unfortunately, in C it is unspecified which way division rounds
+   when one or both arguments are negative.  (ldiv() is guaranteed to
+   round towards 0, but the standard does not yet require an lldiv()
+   or whatever for 64-bit operands.  This makes the problem messy.
+   We use UINT64s for the checking, thus ensuring that our division rounds
+   down.  This means that we have to check the sign of the product first
+   in order to know whether the maximum abs(i1*i2) is MAX_SINT64 or
+   (MAX_SINT64+1).
+
+   Of course, if a factor is 0, the product will also be 0, and we don't
+   need a trial-division to be sure the multiply won't overflow.
+ */
+
+	u1 = (i1 >= 0) ? i1 : -i1;	/* abs(i1) */
+	u2 = (i2 >= 0) ? i2 : -i2;	/* abs(i2) */
+	u_limit = ((i1 ^ i2) >= 0) ? MAX_SINT64 : MAX_SINT64 + 1;	/* largest product */
+
+	if ((u1 != 0) && ((u_limit / u1) < u2))
+		ERR_post(isc_exception_integer_overflow, 0);
+
+	value->vlu_desc.dsc_dtype = dtype_int64;
+	value->vlu_desc.dsc_length = sizeof(SINT64);
+	value->vlu_desc.dsc_scale = node->nod_scale;
+	value->vlu_misc.vlu_int64 = i1 * i2;
+	value->vlu_desc.dsc_address = (UCHAR *) & value->vlu_misc.vlu_int64;
+
+	return &value->vlu_desc;
+}
+
+
+static DSC *divide2(DSC * desc, VLU value, NOD node)
+{
+/**************************************
+ *
+ *      d i v i d e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Divide two numbers, with SQL dialect-3 semantics,
+ *      as in the blr_version5 ... blr_divide or
+ *                blr_version5 ... blr_average ....
+ *
+ **************************************/
+	double d1, d2;
+	SINT64 i1, i2;
+	SSHORT addl_scale;
+
+	DEV_BLKCHK(node, type_nod);
+
+/* Handle floating arithmetic */
+
+	if (node->nod_flags & nod_double) {
+		d2 = MOV_get_double(desc);
+		if (d2 == 0.0)
+			ERR_post(gds__arith_except, 0);
+		d1 = MOV_get_double(&value->vlu_desc);
+		value->vlu_misc.vlu_double = DOUBLE_DIVIDE(d1, d2);
+		value->vlu_desc.dsc_dtype = DEFAULT_DOUBLE;
+		value->vlu_desc.dsc_length = sizeof(double);
+		value->vlu_desc.dsc_scale = 0;
+		value->vlu_desc.dsc_address = (UCHAR *) & value->vlu_misc.vlu_double;
+		return &value->vlu_desc;
+	}
+
+/* Everything else defaults to int64 */
+
+/*
+ * In the SQL standard, the precision and scale of the quotient of exact
+ * numeric dividend and divisor are implementation-defined: we have defined
+ * the precision as 18 (in other words, an SINT64), and the scale as the
+ * sum of the scales of the two operands.  To make this work, we have to
+ * multiply by pow(10, -2* (scale of divisor)).
+ *
+ * To see this, consider the operation n1 / n2, and represent the numbers
+ * by ordered pairs (v1, s1) and (v2, s2), representing respectively the
+ * integer value and the scale of each operation, so that
+ *     n1 = v1 * pow(10, s1), and
+ *     n2 = v2 * pow(10, s2)
+ * Then the quotient is ...
+ * 
+ *     v1 * pow(10,s1)
+ *     ----------------- = (v1/v2) * pow(10, s1-s2)
+ *     v2 * pow(10,s2)
+ * 
+ * But we want the scale of the result to be (s1+s2), not (s1-s2)
+ * so we need to multiply by 1 in the form
+ *         pow(10, -2 * s2) * pow(20, 2 * s2)
+ * which, after regrouping, gives us ...
+ *   =  ((v1 * pow(10, -2*s2))/v2) * pow(10, 2*s2) * pow(10, s1-s2)
+ *   =  ((v1 * pow(10, -2*s2))/v2) * pow(10, 2*s2 + s1 - s2)
+ *   =  ((v1 * pow(10, -2*s2))/v2) * pow(10, s1 + s2)
+ * or in our ordered-pair notation, 
+ *      ( v1 * pow(10, -2*s2) / v2, s1 + s2 )
+ *
+ * To maximize the amount of information in the result, we scale up the
+ * the dividend as far as we can without causing overflow, then we perform
+ * the division, then do any additional required scaling.
+ *
+ * Who'da thunk that 9th-grade algebra would prove so useful.
+ *                                      -- Chris Jewell, December 1998
+ */
+	i2 = MOV_get_int64(desc, desc->dsc_scale);
+	if (i2 == 0)
+		ERR_post(gds__arith_except, 0);
+
+	i1 = MOV_get_int64(&value->vlu_desc, value->vlu_desc.dsc_scale);
+
+/* MIN_SINT64 / -1 = (MAX_SINT64 + 1), which overflows in SINT64. */
+	if ((i1 == MIN_SINT64) && (i2 == -1))
+		ERR_post(isc_exception_integer_overflow, 0);
+
+/* Scale the dividend by as many of the needed powers of 10 as possible
+   without causing an overflow. */
+	addl_scale = 2 * desc->dsc_scale;
+	while ((addl_scale < 0) && (i1 <= INT64_LIMIT)) {
+		i1 *= 10;
+		++addl_scale;
+	}
+
+/* If we couldn't use up all the additional scaling by multiplying the
+   dividend by 10, but there are trailing zeroes in the divisor, we can
+   get the same effect by dividing the divisor by 10 instead. */
+	while ((addl_scale < 0) && (0 == (i2 % 10))) {
+		i2 /= 10;
+		++addl_scale;
+	}
+
+	value->vlu_desc.dsc_dtype = dtype_int64;
+	value->vlu_desc.dsc_length = sizeof(SINT64);
+	value->vlu_desc.dsc_scale = node->nod_scale;
+	value->vlu_misc.vlu_int64 = i1 / i2;
+	value->vlu_desc.dsc_address = (UCHAR *) & value->vlu_misc.vlu_int64;
+
+/* If we couldn't do all the required scaling beforehand without causing
+   an overflow, do the rest of it now.  If we get an overflow now, then
+   the result is really too big to store in a properly-scaled SINT64,
+   so report the error. For example, MAX_SINT64 / 1.00 overflows. */
+	while ((addl_scale < 0) && (value->vlu_misc.vlu_int64 < INT64_LIMIT)) {
+		value->vlu_misc.vlu_int64 *= 10;
+		addl_scale++;
+	}
+	if (addl_scale < 0)
+		ERR_post(gds__arith_except, 0);
+
+	return &value->vlu_desc;
+}
+
+
+static DSC *negate(TDBB tdbb, DSC * desc, VLU value)
+{
+/**************************************
+ *
+ *      n e g a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Negate a single value
+ *
+ **************************************/
+#ifdef VMS
+	double d1;
+#endif
+
+	SET_TDBB(tdbb);
+	EVL_make_value(tdbb, desc, value);
+
+	switch (value->vlu_desc.dsc_dtype) {
+	case dtype_short:
+		if (value->vlu_misc.vlu_short == MIN_SSHORT)
+			ERR_post(isc_exception_integer_overflow, 0);
+		value->vlu_misc.vlu_short = -value->vlu_misc.vlu_short;
+		break;
+
+	case dtype_long:
+		if (value->vlu_misc.vlu_long == MIN_SLONG)
+			ERR_post(isc_exception_integer_overflow, 0);
+		value->vlu_misc.vlu_long = -value->vlu_misc.vlu_long;
+		break;
+
+	case dtype_real:
+		value->vlu_misc.vlu_float = -value->vlu_misc.vlu_float;
+		break;
+
+	case DEFAULT_DOUBLE:
+		value->vlu_misc.vlu_double = -value->vlu_misc.vlu_double;
+		break;
+
+#ifdef VMS
+	case SPECIAL_DOUBLE:
+		d1 = -CNVT_TO_DFLT(&value->vlu_misc.vlu_double);
+		value->vlu_misc.vlu_double = CNVT_FROM_DFLT(&d1);
+		break;
+#endif
+
+	case dtype_quad:
+		value->vlu_misc.vlu_quad =
+			QUAD_NEGATE(value->vlu_misc.vlu_quad, (FPTR_VOID) ERR_post);
+		break;
+
+	case dtype_int64:
+		if (value->vlu_misc.vlu_int64 == MIN_SINT64)
+			ERR_post(isc_exception_integer_overflow, 0);
+		value->vlu_misc.vlu_int64 = -value->vlu_misc.vlu_int64;
+		break;
+
+	default:
+		value->vlu_misc.vlu_double = -MOV_get_double(&value->vlu_desc);
+		value->vlu_desc.dsc_dtype = DEFAULT_DOUBLE;
+		value->vlu_desc.dsc_length = sizeof(double);
+		value->vlu_desc.dsc_scale = 0;
+		value->vlu_desc.dsc_address = (UCHAR *) & value->vlu_misc.vlu_double;
+	}
+
+	return &value->vlu_desc;
+}
+static DSC *record_version(TDBB tdbb, NOD node, VLU impure)
+{
+/**************************************
+ *
+ *      r e c o r d _ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Make up a record version for a record stream.
+ *      The tid of the record will be used.  This will be returned 
+ *      as a 4 byte character string.
+ *
+ **************************************/
+	RPB *rpb;
+	REQ request;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+/* Get request, record parameter block for stream */
+
+	request = tdbb->tdbb_request;
+	impure = (VLU) ((SCHAR *) request + node->nod_impure);
+	rpb = &request->req_rpb[(int) node->nod_arg[0]];
+
+/* If the current transaction has updated the record, the record version
+ * coming in from DSQL will have the original transaction # (or current
+ * transaction if the current transaction updated the record in a different
+ * request.).  In these cases, mark the request so that the boolean
+ * to check equality of record version will be forced to evaluate to true.
+ */
+
+	if (tdbb->tdbb_request->req_transaction->tra_number ==
+		rpb->rpb_transaction) request->req_flags |= req_same_tx_upd;
+	else {
+		/* If the transaction is a commit retain, check if the record was
+		 * last updated in one of its own prior transactions
+		 */
+
+		if (request->req_transaction->tra_commit_sub_trans)
+			if (SBM_test
+				(request->req_transaction->tra_commit_sub_trans,
+				 rpb->rpb_transaction)) request->req_flags |= req_same_tx_upd;
+	}
+
+/* Initialize descriptor */
+
+	impure->vlu_misc.vlu_long = rpb->rpb_transaction;
+	impure->vlu_desc.dsc_address = (UCHAR *) & impure->vlu_misc.vlu_long;
+	impure->vlu_desc.dsc_dtype = dtype_text;
+	impure->vlu_desc.dsc_length = 4;
+	impure->vlu_desc.dsc_ttype = ttype_binary;
+
+	return &impure->vlu_desc;
+}
+
+
+static BOOLEAN reject_duplicate(UCHAR * data1, UCHAR * data2, int user_arg)
+{
+/**************************************
+ *
+ *      r e j e c t _ d u p l i c a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Callback routine used by sort/project to reject duplicate values.
+ *      Particularly dumb routine -- always returns TRUE;
+ *
+ **************************************/
+
+	return TRUE;
+}
+
+
+static DSC *scalar(TDBB tdbb, NOD node, VLU impure)
+{
+/**************************************
+ *
+ *      s c a l a r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Evaluate a scalar item from an array.
+ *
+ **************************************/
+	SLONG subscripts[16], *p;
+	NOD list, *ptr, *end;
+	DSC *desc;
+	REQ request;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+	desc = EVL_expr(tdbb, node->nod_arg[e_scl_field]);
+	request = tdbb->tdbb_request;
+
+	if (request->req_flags & req_null)
+		return NULL;
+
+	if (desc->dsc_dtype != dtype_array)
+		IBERROR(261);			/* msg 261 scalar operator used on field which is not an array */
+
+	list = node->nod_arg[e_scl_subscripts];
+
+	for (ptr = list->nod_arg, end = ptr + list->nod_count, p = subscripts;
+		 ptr < end;) {
+		*p++ = MOV_get_long(EVL_expr(tdbb, *ptr++), 0);
+		if (request->req_flags & req_null)
+			return NULL;
+	}
+
+	BLB_scalar(tdbb,
+			   request->req_transaction,
+			   reinterpret_cast < bid * >(desc->dsc_address),
+			   list->nod_count,
+			   subscripts, reinterpret_cast < vlu * >(&impure->vlu_desc));
+
+	return &impure->vlu_desc;
+}
+
+
+static SSHORT sleuth(TDBB tdbb, NOD node, DSC * desc1, DSC * desc2)
+{
+/**************************************
+ *
+ *      s l e u t h
+ *
+ **************************************
+ *
+ * Functional description
+ *      Execute SLEUTH operator.
+ *
+ **************************************/
+	BLB blob;
+	DSC *desc3;
+#ifndef STACK_REDUCTION
+	UCHAR *p1, *p2, temp1[TEMP_LENGTH], temp2[TEMP_LENGTH],
+		buffer[BUFFER_LARGE], control[BUFFER_SMALL];
+#else
+	STR temp_str;
+	UCHAR *p1, *p2, *temp1, *temp2, *buffer, *control;
+#endif
+	SSHORT l1, l2;
+	USHORT ttype;
+	STR data_str = NULL, match_str = NULL, sleuth_str = NULL;
+	SSHORT ret_val;
+	TEXTTYPE obj;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+#ifdef STACK_REDUCTION
+/* do a block allocate */
+	temp_str = (STR) ALLOCDV(type_str, ((SLONG)
+										(sizeof(UCHAR) *
+										 (2 * TEMP_LENGTH + BUFFER_LARGE +
+										  BUFFER_SMALL))));
+	temp1 = temp_str->str_data;
+	temp2 = temp1 + TEMP_LENGTH;
+	buffer = temp2 + TEMP_LENGTH;
+	control = buffer + BUFFER_LARGE;
+#endif
+
+/* Choose interpretation for the operation */
+
+	if (desc1->dsc_dtype == dtype_blob) {
+		if (desc1->dsc_sub_type == BLOB_text)
+			ttype = desc1->dsc_scale;	/* Load blob character set */
+		else
+			ttype = INTL_TTYPE(desc2);
+	}
+	else
+		ttype = INTL_TTYPE(desc1);
+
+	obj =
+		reinterpret_cast < TEXTTYPE >
+		(INTL_obj_lookup
+		 (tdbb, type_texttype, ttype, (FPTR_VOID) ERR_post, NULL));
+
+/* Get operator definition string (control string) */
+
+	desc3 = EVL_expr(tdbb, node->nod_arg[2]);
+	l1 =
+		MOV_make_string2(desc3, ttype, &p1,
+						 reinterpret_cast < vary * >(temp1), TEMP_SIZE(temp1),
+						 &sleuth_str);
+/* Get address and length of search string */
+	l2 =
+		MOV_make_string2(desc2, ttype, &p2,
+						 reinterpret_cast < vary * >(temp2), TEMP_SIZE(temp2),
+						 &match_str);
+/* Merge search and control strings */
+	l2 =
+		reinterpret_cast < USHORT(*)(...) >
+		(obj->texttype_fn_sleuth_merge) (tdbb, obj, p2, l2, p1, l1, control,
+										 BUFFER_SMALL);
+
+/* l2 is result's byte-count */
+
+/* Note: resulting string from sleuth_merge is either WCHAR or NCHAR 
+   and never Multibyte (see note in EVL_mb_sleuth_check) */
+
+	if (desc1->dsc_dtype != dtype_blob) {
+		/* Source is not a blob, do a simple search */
+
+		l1 =
+			MOV_make_string2(desc1, ttype, &p1,
+							 reinterpret_cast < vary * >(temp1),
+							 TEMP_SIZE(temp1), &data_str);
+		ret_val =
+			reinterpret_cast < USHORT(*)(...) >
+			(obj->texttype_fn_sleuth_check) (tdbb, obj, 0, p1, l1, control,
+											 l2);
+	}
+	else {
+		/* Source string is a blob, things get interesting */
+
+		blob =
+			BLB_open(tdbb, tdbb->tdbb_request->req_transaction,
+					 reinterpret_cast < bid * >(desc1->dsc_address));
+
+		ret_val = FALSE;
+		while (!(blob->blb_flags & BLB_eof)) {
+#ifdef STACK_REDUCTION
+			l1 = BLB_get_segment(tdbb, blob, buffer, BUFFER_LARGE);
+#else
+			l1 = BLB_get_segment(tdbb, blob, buffer, sizeof(buffer));
+#endif
+			if (reinterpret_cast < USHORT(*)(...) >
+				(obj->texttype_fn_sleuth_check) (tdbb, obj, 0, buffer, l1,
+												 control, l2)) {
+				ret_val = TRUE;
+				break;
+			}
+		}
+
+		BLB_close(tdbb, blob);
+	}
+
+	if (data_str)
+		ALL_release(reinterpret_cast < frb * >(data_str));
+	if (sleuth_str)
+		ALL_release(reinterpret_cast < frb * >(sleuth_str));
+	if (match_str)
+		ALL_release(reinterpret_cast < frb * >(match_str));
+
+#ifdef STACK_REDUCTION
+/*  block de-alloc all local variables */
+	ALL_release(temp_str);
+#endif
+	return ret_val;
+}
+
+
+static SSHORT string_boolean(TDBB tdbb, NOD node, DSC * desc1, DSC * desc2)
+{
+/**************************************
+ *
+ *      s t r i n g _ b o o l e a n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Perform one of the complex string functions CONTAINING, MATCHES,
+ *      or STARTS WITH.
+ *
+ **************************************/
+	BLB blob;
+
+#ifndef STACK_REDUCTION
+	UCHAR *p1, *p2, temp1[TEMP_LENGTH], temp2[TEMP_LENGTH],
+		buffer[BUFFER_LARGE];
+#else
+	STR temp_str;
+	UCHAR *p1, *p2, *temp1, *temp2, *buffer;
+#endif
+	SSHORT l1, l2, l;
+	USHORT type1, xtype1;
+	STR match_str = NULL;
+	SSHORT ret_val;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(node, type_nod);
+
+#ifdef STACK_REDUCTION
+/*  do a block allocation of local variables */
+	temp_str =
+		(STR) ALLOCDV(type_str,
+					  (SLONG) (sizeof(UCHAR) *
+							   (2 * TEMP_LENGTH + BUFFER_LARGE)));
+	temp1 = temp_str->str_data;
+	temp2 = temp1 + TEMP_LENGTH;
+	buffer = temp2 + TEMP_LENGTH;
+#endif
+
+	if (desc1->dsc_dtype != dtype_blob) {
+		/* Source is not a blob, do a simple search */
+
+		/* Get text type of data string */
+
+		type1 = INTL_TEXT_TYPE(*desc1);
+
+		/* Get address and length of search string - convert to datatype of data */
+
+		l2 =
+			MOV_make_string2(desc2, type1, &p2,
+							 reinterpret_cast < vary * >(temp2),
+							 TEMP_SIZE(temp2), &match_str);
+		l1 =
+			MOV_get_string_ptr(desc1, &xtype1, &p1,
+							   reinterpret_cast < vary * >(temp1),
+							   TEMP_SIZE(temp1));
+
+		assert(xtype1 == type1);
+		ret_val = string_function(tdbb, node, l1, p1, l2, p2, type1);
+	}
+	else {
+		/* Source string is a blob, things get interesting */
+
+		/* Get address and length of search string - make it string if neccessary
+		 * but don't transliterate character set if the source blob is binary
+		 */
+
+		if (desc1->dsc_sub_type == BLOB_text) {
+			type1 = desc1->dsc_scale;	/* pick up character set of blob */
+			l2 =
+				MOV_make_string2(desc2, type1, &p2,
+								 reinterpret_cast < vary * >(temp2),
+								 TEMP_SIZE(temp2), &match_str);
+		}
+		else {
+			type1 = ttype_none;	/* Do byte matching */
+			l2 =
+				MOV_get_string(desc2, &p2, reinterpret_cast < vary * >(temp2),
+							   TEMP_SIZE(temp2));
+		}
+
+		blob =
+			BLB_open(tdbb, tdbb->tdbb_request->req_transaction,
+					 reinterpret_cast < bid * >(desc1->dsc_address));
+
+		/* Performs the string_function on each segment of the blob until
+		   a positive result is obtained */
+
+		ret_val = FALSE;
+		while (!(blob->blb_flags & BLB_eof)) {
+#ifdef STACK_REDUCTION
+			l1 = BLB_get_segment(tdbb, blob, buffer, BUFFER_LARGE);
+#else
+			l1 = BLB_get_segment(tdbb, blob, buffer, sizeof(buffer));
+#endif
+			if (string_function(tdbb, node, l1, buffer, l2, p2, type1)) {
+				ret_val = TRUE;
+				break;
+			}
+			if (node->nod_type == nod_starts)
+				break;
+		}
+
+		BLB_close(tdbb, blob);
+	}
+
+	if (match_str)
+		ALL_release(reinterpret_cast < frb * >(match_str));
+
+#ifdef STACK_REDUCTION
+/*  do a block deallocation of local variables */
+	ALL_release(temp_str);
+#endif
+	return ret_val;
+}
+
+
+static SSHORT string_function(
+							  TDBB tdbb,
+							  NOD node,
+							  SSHORT l1,
+							  UCHAR * p1, SSHORT l2, UCHAR * p2, USHORT ttype)
+{
+/**************************************
+ *
+ *      s t r i n g _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Perform one of the complex string functions CONTAINING, MATCHES,
+ *      or STARTS WITH.
+ *
+ **************************************/
+	TEXTTYPE obj;
+
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(node, type_nod);
+
+/* Handle "STARTS WITH" */
+
+	if (node->nod_type == nod_starts) {
+		if (l1 < l2)
+			return FALSE;
+		while (--l2 >= 0)
+			if (*p1++ != *p2++)
+				return FALSE;
+		return TRUE;
+	}
+
+	obj =
+		reinterpret_cast < TEXTTYPE >
+		(INTL_obj_lookup
+		 (tdbb, type_texttype, ttype, (FPTR_VOID) ERR_post, NULL));
+
+/* Handle contains */
+
+	if (node->nod_type == nod_contains) {
+		return reinterpret_cast < USHORT(*)(...) >
+			(obj->texttype_fn_contains) (tdbb, obj, p1, l1, p2, l2);
+	}
+
+/* Handle LIKE and MATCHES*/
+
+	if (node->nod_type == nod_like) {
+		WCHAR escape;
+
+		escape = 0;
+		/* ensure 3rd argument (escape char) is in operation text type */
+		if (node->nod_count == 3) {
+			UCHAR *q1;
+			USHORT l3, consumed;
+#ifndef STACK_REDUCTION
+			UCHAR temp3[TEMP_LENGTH];
+#else
+			STR temp_str;
+			UCHAR *temp3;
+
+			SET_TDBB(tdbb);
+			temp_str = (STR) ALLOCDV(type_str, (sizeof(UCHAR) * TEMP_LENGTH));
+			temp3 = temp_str->str_data;
+#endif
+
+			/* Convert ESCAPE to operation character set */
+			l3 = MOV_make_string(EVL_expr(tdbb, node->nod_arg[2]),
+								 ttype, &q1, (VARY *) temp3,
+								 TEMP_SIZE(temp3));
+			if (!l3)
+				ERR_post(gds__like_escape_invalid, 0);
+			/* Grab the first character from the string */
+			consumed =
+				reinterpret_cast < USHORT(*)(...) >
+				(obj->texttype_fn_mbtowc) (obj, &escape, q1, l3);
+
+			/* If characters left, or null byte character, return error */
+			if (consumed <= 0 || consumed != l3 || (escape == 0))
+				ERR_post(gds__like_escape_invalid, 0);
+
+#ifdef STACK_REDUCTION
+			ALL_release(temp_str);
+#endif
+		}
+		return reinterpret_cast < USHORT(*)(...) >
+			(obj->texttype_fn_like) (tdbb, obj, p1, l1, p2, l2, escape);
+	}
+
+	return reinterpret_cast < USHORT(*)(...) >
+		(obj->texttype_fn_matches) (tdbb, obj, p1, l1, p2, l2);
+}
+
+
+static DSC *substring(
+					  TDBB tdbb,
+					  VLU impure, DSC * value, USHORT offset, USHORT length)
+{
+/**************************************
+ *
+ *      s u b s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Perform substring function.
+ *
+ **************************************/
+	DSC desc;
+	UCHAR temp[32];
+	USHORT ttype;
+
+	SET_TDBB(tdbb);
+	desc.dsc_dtype = dtype_text;
+	desc.dsc_length =
+		MOV_get_string_ptr(value, &ttype, &desc.dsc_address,
+						   reinterpret_cast < vary * >(temp), sizeof(temp));
+	desc.dsc_address += offset;
+	INTL_ASSIGN_TTYPE(&desc, ttype);
+
+	if (offset > desc.dsc_length)
+		desc.dsc_length = 0;
+	else {
+		desc.dsc_length -= offset;
+		if (length < desc.dsc_length)
+			desc.dsc_length = length;
+	}
+
+	EVL_make_value(tdbb, &desc, impure);
+
+	return &impure->vlu_desc;
+}
+
+
+static DSC *upcase(TDBB tdbb, DSC * value, VLU impure)
+{
+/**************************************
+ *
+ *      u p c a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Upcase a string.
+ *
+ **************************************/
+	USHORT temp[16];
+	DSC desc;
+	UCHAR *p, *end;
+	USHORT ttype;
+
+	SET_TDBB(tdbb);
+	desc.dsc_length =
+		MOV_get_string_ptr(value, &ttype, &desc.dsc_address,
+						   reinterpret_cast < vary * >(temp), sizeof(temp));
+	desc.dsc_dtype = dtype_text;
+	INTL_ASSIGN_TTYPE(&desc, ttype);
+	EVL_make_value(tdbb, &desc, impure);
+
+	if ((desc.dsc_ttype == ttype_ascii) ||
+		(desc.dsc_ttype == ttype_none) || (desc.dsc_ttype == ttype_metadata)) {
+		for (p = (UCHAR *) impure->vlu_desc.dsc_address, end =
+			 p + impure->vlu_desc.dsc_length; p < end; p++)
+			*p = UPPER7(*p);
+	}
+	else
+		INTL_str_to_upper(tdbb, &impure->vlu_desc);
+
+	return &impure->vlu_desc;
+}
+
+
+} // extern "C"
diff --git a/src/jrd/evl_like.cpp b/src/jrd/evl_like.cpp
new file mode 100644
index 0000000000..eac3d1f7f3
--- /dev/null
+++ b/src/jrd/evl_like.cpp
@@ -0,0 +1,526 @@
+#ifndef EVL_LIKE_INCLUDED_BY_EVL_CPP
+
+#pragma message ("Do not compile this file stand-alone. It gets included by evl.cpp!")
+
+#else // EVL_LIKE_INCLUDED_BY_EVL_CPP
+
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		evl_like.c
+ *	DESCRIPTION:	Expression evaluation (international)
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#define SLEUTH_insensitive	1
+#define COND_UPPER(obj,c)	((flags & SLEUTH_insensitive) ?	\
+		reinterpret_cast<USHORT(*)(...)>(((obj)->texttype_fn_to_upper)) ((obj), (c)) : (c))
+
+#define SQL_MATCH_ONE		'_'
+#define SQL_MATCH_ANY		'%'
+
+#define GDML_MATCH_ONE		'?'
+#define GDML_MATCH_ANY		'*'
+
+#define GDML_QUOTE		'@'
+#define GDML_NOT		'~'
+#define GDML_RANGE		'-'
+#define GDML_CLASS_START	'['
+#define GDML_CLASS_END		']'
+#define GDML_SUBSTITUTE		'='
+#define GDML_FLAG_SET		'+'
+#define GDML_FLAG_CLEAR		'-'
+#define GDML_COMMA		','
+#define GDML_LPAREN		'('
+#define GDML_RPAREN		')'
+
+
+extern "C" {
+
+
+USHORT LIKENAME(TDBB tdbb, TEXTTYPE obj, LIKETYPE * p1, SSHORT l1_bytes,	/* byte count */
+				LIKETYPE * p2, SSHORT l2_bytes,	/* byte count */
+				WCHAR escape_char)
+{
+/**************************************
+ *
+ *	E V L _ ? ? _ l i k e
+ *	E V L _ w c _ l i k e
+ *	E V L _ n c _ l i k e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return true if a string (p1, l1) matches a given pattern (p2, l2).
+ *	The character '_' in the pattern may match any single character
+ *	in the the string, and the character '%' may match any sequence
+ *	of characters.
+ *
+ *	Wide char version operates on USHORT-based buffer,
+ *	instead of UCHAR-based.
+ *
+ *	Note Bene: LIKETYPE is defined by including file (evl.c) to either
+ *	    WCHAR or NCHAR, depending on the varient being compiled here.
+ *
+ *	(escape_char == 0) means no escape character is specified.
+ *
+ **************************************/
+	LIKETYPE c;
+	USHORT escape;
+	SSHORT l1, l2;
+
+	assert(obj != NULL);
+	assert(p1 != NULL);
+	assert(p2 != NULL);
+	assert((l1_bytes % sizeof(LIKETYPE)) == 0);
+	assert((l2_bytes % sizeof(LIKETYPE)) == 0);
+
+	l1 = l1_bytes / sizeof(LIKETYPE);
+	l2 = l2_bytes / sizeof(LIKETYPE);
+
+	escape = FALSE;
+
+	while (l2-- > 0) {
+		c = *p2++;
+		if (escape_char && ((WCHAR) c == escape_char)) {
+			if (l2-- > 0) {
+				c = *p2++;
+				/* Note: SQL II says <escape_char><escape_char> is error condition */
+				if (((WCHAR) c == escape_char) ||
+					((WCHAR) c == (WCHAR) SQL_MATCH_ANY) ||
+					((WCHAR) c == (WCHAR) SQL_MATCH_ONE))
+					escape = TRUE;
+			}
+			if (!escape)
+				ERR_post(gds__like_escape_invalid, 0);
+		}
+		if (!escape && (c == (LIKETYPE) SQL_MATCH_ANY)) {
+			while ((l2 > 0) && (*p2 == (LIKETYPE) SQL_MATCH_ANY)) {
+				l2--;
+				p2++;
+			}
+			if (l2 == 0)
+				return TRUE;
+			while (l1)
+				if (LIKENAME(tdbb, obj, p1++, l1-- * sizeof(LIKETYPE),
+							 p2, l2 * sizeof(LIKETYPE), escape_char))
+					return TRUE;
+			return FALSE;
+		}
+		if (l1-- == 0)
+			return FALSE;
+		if ((escape || c != (LIKETYPE) SQL_MATCH_ONE) && c != *p1)
+			return FALSE;
+		escape = FALSE;
+		p1++;
+	}
+
+	return (l1) ? FALSE : TRUE;
+}
+
+
+USHORT MATCHESNAME(TDBB tdbb,
+				   TEXTTYPE obj,
+				   MATCHESTYPE * p1,
+				   SSHORT l1_bytes, MATCHESTYPE * p2, SSHORT l2_bytes)
+{
+/**************************************
+ *
+ *	E V L _ ? ? _ m a t c h e s
+ *	E V L _ w c _ m a t c h e s
+ *	E V L _ n c _ m a t c h e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return true if a string (p1, l1) matches a given pattern (p2, l2).
+ *	The character '?' in the pattern may match any single character
+ *	in the the string, and the character '*' may match any sequence
+ *	of characters.
+ *
+ *	Wide SCHAR version operates on short-based buffer,
+ *	instead of SCHAR-based.
+ *
+ * Matches is not a case-sensitive operation, thus it has no
+ * 8-bit international impact.
+ *
+ **************************************/
+	MATCHESTYPE c;
+	SSHORT l1, l2;
+
+	assert(obj != NULL);
+	assert(p1 != NULL);
+	assert(p2 != NULL);
+	assert((l1_bytes % sizeof(MATCHESTYPE)) == 0);
+	assert((l2_bytes % sizeof(MATCHESTYPE)) == 0);
+
+	l1 = l1_bytes / sizeof(MATCHESTYPE);
+	l2 = l2_bytes / sizeof(MATCHESTYPE);
+
+	while (l2-- > 0) {
+		c = *p2++;
+		if (c == (MATCHESTYPE) GDML_MATCH_ANY) {
+			while ((l2 > 0) && (*p2 == (MATCHESTYPE) GDML_MATCH_ANY)) {
+				l2--;
+				p2++;
+			}
+			if (l2 == 0)
+				return TRUE;
+			while (l1)
+				if (MATCHESNAME(tdbb, obj, p1++,
+								l1-- * sizeof(MATCHESTYPE), p2,
+								l2 * sizeof(MATCHESTYPE))) return TRUE;
+			return FALSE;
+		}
+		if (l1-- == 0)
+			return FALSE;
+		if ((c != (MATCHESTYPE) GDML_MATCH_ONE && c != *p1))
+			return FALSE;
+		p1++;
+	}
+
+	return (l1) ? FALSE : TRUE;
+}
+
+
+USHORT SLEUTHNAME(TDBB tdbb_dummy,
+				  TEXTTYPE obj,
+				  USHORT flags,
+				  SLEUTHTYPE * search,
+				  USHORT search_len, SLEUTHTYPE * match, USHORT match_len)
+{
+/**************************************
+ *
+ *	E V L _ ? ? _ s l e u t h _ c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Evaluate the "sleuth" search operator.
+ *
+ *	Turn the (pointer, byte length) input parameters into
+ *	(pointer, end_pointer) for use in SLEUTH_AUX
+ *
+ **************************************/
+	SLEUTHTYPE *end_match, *end_search;
+
+	assert((match_len % sizeof(SLEUTHTYPE)) == 0);
+	assert((search_len % sizeof(SLEUTHTYPE)) == 0);
+
+	end_match = match + (match_len / sizeof(SLEUTHTYPE));
+	end_search = search + (search_len / sizeof(SLEUTHTYPE));
+
+	return ((USHORT)
+			SLEUTH_AUX(obj, flags, search, end_search, match, end_match));
+}
+
+
+USHORT SLEUTH_MERGE_NAME(TDBB tdbb_dummy,
+						 TEXTTYPE obj,
+						 SLEUTHTYPE * match,
+						 USHORT match_bytes,
+						 SLEUTHTYPE * control,
+						 USHORT control_bytes,
+						 SLEUTHTYPE * combined, USHORT combined_bytes)
+{
+/**************************************
+ *
+ *	E V L _ ? ? _ s l e u t h _ m e r g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Merge the matching pattern and control strings to give a cannonical
+ *	matching pattern.  Return the length of the combined string. 
+ *
+ * 	What this routine does is to take the language template, strip off 
+ *	the prefix and put it in the output string, then parse the definitions
+ *	into an array of character pointers.  The index array is the defined
+ *	character.   The routine then takes the actual match pattern and uses
+ *	the characters in it to index into the definitions to produce an equivalent
+ *	pattern in the cannonical language.
+ *
+ *	The silly loop setting *v++ to zero initializes the array up to the
+ *	highest character defined (also max_op).  Believe it or not, that part
+ *	is not a bug.
+ *
+ **************************************/
+	SLEUTHTYPE c, *comb, **v, *vector[256], **end_vector, *p, max_op,
+		temp[256], *t, *end_match, *end_control;
+
+	assert(obj != NULL);
+	assert(match != NULL);
+	assert(control != NULL);
+	assert(combined != NULL);
+
+	assert((match_bytes % sizeof(SLEUTHTYPE)) == 0);
+	assert((control_bytes % sizeof(SLEUTHTYPE)) == 0);
+
+	end_match = match + (match_bytes / sizeof(SLEUTHTYPE));
+	end_control = control + (control_bytes / sizeof(SLEUTHTYPE));
+
+	max_op = 0;
+	comb = combined;
+	v = vector;
+	t = temp;
+
+/* Parse control string into substitution strings and initializing string */
+
+	while (control < end_control) {
+		c = *control++;
+		if (*control == GDML_SUBSTITUTE) {
+			/* Note: don't allow substitution characters larger than vector */
+
+			end_vector =
+				vector +
+				((((int) c) < sizeof(vector) / sizeof(vector[0])) ? c : 0);
+			while (v <= end_vector)
+				*v++ = 0;
+			*end_vector = t;
+			++control;
+			while (control < end_control) {
+				c = *control++;
+				if ((t > temp && t[-1] == GDML_QUOTE)
+					|| ((c != GDML_COMMA) && (c != GDML_RPAREN)))
+					*t++ = c;
+				else
+					break;
+			}
+			*t++ = 0;
+		}
+		else if (c == GDML_QUOTE && control < end_control)
+			*comb++ = *control++;
+		else if (c == GDML_RPAREN)
+			break;
+		else if (c != GDML_LPAREN)
+			*comb++ = c;
+	}
+
+	max_op = v - vector;
+
+/* Interpret matching string, substituting where appropriate */
+
+	while (match < end_match) {
+		c = *match++;
+
+		/* if we've got a defined character, slurp the definition */
+
+		if (c <= max_op && (p = vector[c])) {
+			while (*p)
+				*comb++ = *p++;
+
+			/* if we've got the definition of a quote character, 
+			   slurp the next character too */
+
+			if (comb > combined && comb[-1] == GDML_QUOTE && *match)
+				*comb++ = *match++;
+		}
+
+		/* at this point we've got a non-match, but as it might be one of ours, 
+		   quote it. */
+
+		else {
+			if ((((int) c) < sizeof(special)) && special[c] &&
+				comb > combined && comb[-1] != GDML_QUOTE)
+				*comb++ = GDML_QUOTE;
+			*comb++ = c;
+		}
+	}
+
+/* Put in trailing stuff */
+
+	while (control < end_control)
+		*comb++ = *control++;
+
+	/* YYY - need to add code watching for overflow of combined */
+
+	return (comb - combined) * sizeof(SLEUTHTYPE);
+}
+
+
+static BOOLEAN SLEUTH_AUX(
+						  TEXTTYPE obj,
+						  USHORT flags,
+						  SLEUTHTYPE * search,
+						  SLEUTHTYPE * end_search,
+SLEUTHTYPE * match, SLEUTHTYPE * end_match)
+{
+/**************************************
+ *
+ *	s l e u t h _ a u x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Evaluate the "sleuth" search operator.
+ *
+ **************************************/
+	SLEUTHTYPE c, d, *class_, *end_class;
+
+	assert(obj != NULL);
+	assert(search != NULL);
+	assert(end_search != NULL);
+	assert(match != NULL);
+	assert(end_match != NULL);
+	assert(search <= end_search);
+	assert(match <= end_match);
+
+	while (match < end_match) {
+		c = *match++;
+		if ((c == GDML_QUOTE && (c = *match++)) ||
+			((((int) c) < sizeof(special)) && !special[c])) {
+			c = COND_UPPER(obj, c);
+			if (match >= end_match || *match != GDML_MATCH_ANY) {
+				if (search >= end_search)
+					return FALSE;
+				d = *search++;
+				if (c != COND_UPPER(obj, d))
+					return FALSE;
+			}
+			else {
+				++match;
+				for (;;)
+					if (SLEUTH_AUX
+						(obj, flags, search, end_search, match,
+						 end_match)) return TRUE;
+					else if (search < end_search) {
+						d = *search++;
+						if (c != COND_UPPER(obj, d))
+							return FALSE;
+					}
+					else
+						return FALSE;
+			}
+		}
+		else if (c == GDML_MATCH_ONE)
+			if (match >= end_match || *match != GDML_MATCH_ANY) {
+				if (search >= end_search)
+					return FALSE;
+				search++;
+			}
+			else {
+				if (++match >= end_match)
+					return TRUE;
+				for (;;)
+					if (SLEUTH_AUX
+						(obj, flags, search, end_search, match,
+						 end_match)) return TRUE;
+					else if (++search >= end_search)
+						return FALSE;
+			}
+		else if (c == GDML_CLASS_START) {
+			class_ = match;
+			while (*match++ != GDML_CLASS_END)
+				if (match >= end_match)
+					return FALSE;
+			end_class = match - 1;
+			if (match >= end_match || *match != GDML_MATCH_ANY) {
+				if (!SLEUTH_CLASS_NAME
+					(obj, flags, class_, end_class, *search++))
+					return FALSE;
+			}
+			else {
+				++match;
+				for (;;)
+					if (SLEUTH_AUX
+						(obj, flags, search, end_search, match,
+						 end_match)) return TRUE;
+					else if (search < end_search) {
+						if (!SLEUTH_CLASS_NAME
+							(obj, flags, class_, end_class, *search++))
+							return FALSE;
+					}
+					else
+						return FALSE;
+			}
+		}
+		else if (c == GDML_FLAG_SET) {
+			c = *match++;
+			if (c == 's' || c == 'S')
+				flags &= ~SLEUTH_insensitive;
+		}
+		else if (c == GDML_FLAG_CLEAR) {
+			c = *match++;
+			if (c == 's' || c == 'S')
+				flags |= SLEUTH_insensitive;
+		}
+	}
+
+	if (search < end_search)
+		return FALSE;
+
+	return TRUE;
+}
+
+
+static BOOLEAN SLEUTH_CLASS_NAME(
+								 TEXTTYPE obj,
+								 USHORT flags,
+								 SLEUTHTYPE * class_,
+								 SLEUTHTYPE * end_class, SLEUTHTYPE character)
+{
+/**************************************
+ *
+ *	s l e u t h _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if a character is a member of a class.
+ *	Japanese version operates on short-based buffer,
+ *	instead of SCHAR-based.
+ *
+ **************************************/
+	SLEUTHTYPE c;
+	USHORT result;
+
+	assert(obj != NULL);
+	assert(class_ != NULL);
+	assert(end_class != NULL);
+	assert(class_ <= end_class);
+
+	result = TRUE;
+	character = COND_UPPER(obj, character);
+
+	if (*class_ == GDML_NOT) {
+		++class_;
+		result = FALSE;
+	}
+
+	while (class_ < end_class) {
+		c = *class_++;
+		if (c == GDML_QUOTE) {
+			if (*class_++ == character)
+				return TRUE;
+		}
+		else if (*class_ == GDML_RANGE) {
+			class_ += 2;
+			if (character >= c && character <= class_[-1])
+				return result;
+		}
+		else if (character == c)
+			return result;
+	}
+
+	return (result) ? FALSE : TRUE;
+}
+
+
+} // extern "C"
+
+#endif // EVL_LIKE_INCLUDED_BY_EVL_CPP
diff --git a/src/jrd/evl_proto.h b/src/jrd/evl_proto.h
new file mode 100644
index 0000000000..16e1bf8531
--- /dev/null
+++ b/src/jrd/evl_proto.h
@@ -0,0 +1,105 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		evl_proto.h
+ *	DESCRIPTION:	Prototype header file for evl.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_EVL_PROTO_H_
+#define _JRD_EVL_PROTO_H_
+
+/* for structure texttype */
+#include "../jrd/intlobj.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern struct dsc *DLL_EXPORT EVL_assign_to(TDBB tdbb, register struct nod *);
+
+extern struct sbm **DLL_EXPORT EVL_bitmap(TDBB tdbb, register struct nod *);
+
+extern BOOLEAN DLL_EXPORT EVL_boolean(TDBB tdbb, register struct nod *);
+
+extern struct dsc *DLL_EXPORT EVL_expr(TDBB tdbb, register struct nod *);
+
+extern BOOLEAN DLL_EXPORT EVL_field(register struct rel *,
+									register struct rec *,
+									register USHORT, register DSC *);
+
+extern USHORT DLL_EXPORT EVL_group
+	(TDBB tdbb, struct blk *, struct nod *, USHORT);
+
+extern USHORT DLL_EXPORT EVL_mb_contains
+	(TDBB tdbb, struct texttype *, UCHAR *, USHORT, UCHAR *, USHORT);
+
+extern USHORT DLL_EXPORT EVL_mb_like
+	(TDBB tdbb, struct texttype *, UCHAR *, SSHORT, UCHAR *, SSHORT, USHORT);
+
+extern USHORT DLL_EXPORT EVL_mb_matches
+	(TDBB tdbb, struct texttype *, UCHAR *, SSHORT, UCHAR *, SSHORT);
+
+extern USHORT DLL_EXPORT EVL_mb_sleuth_check
+	(TDBB tdbb, struct texttype *, USHORT, UCHAR *, USHORT, UCHAR *, USHORT);
+
+extern USHORT DLL_EXPORT EVL_mb_sleuth_merge
+	(TDBB tdbb,
+	 struct texttype *, UCHAR *, USHORT, UCHAR *, USHORT, UCHAR *, USHORT);
+
+extern void DLL_EXPORT EVL_make_value(TDBB tdbb, struct dsc *, struct vlu *);
+
+extern USHORT DLL_EXPORT EVL_nc_contains
+	(TDBB tdbb, struct texttype *, UCHAR *, USHORT, UCHAR *, USHORT);
+
+extern USHORT EVL_nc_like
+	(TDBB tdbb, struct texttype *, UCHAR *, SSHORT, UCHAR *, SSHORT, USHORT);
+
+extern USHORT EVL_nc_matches
+	(TDBB tdbb, struct texttype *, UCHAR *, SSHORT, UCHAR *, SSHORT);
+
+extern USHORT EVL_nc_sleuth_check
+	(TDBB tdbb, struct texttype *, USHORT, UCHAR *, USHORT, UCHAR *, USHORT);
+
+extern USHORT EVL_nc_sleuth_merge
+	(TDBB tdbb,
+	 struct texttype *, UCHAR *, USHORT, UCHAR *, USHORT, UCHAR *, USHORT);
+
+extern USHORT DLL_EXPORT EVL_wc_contains
+	(TDBB tdbb, struct texttype *, USHORT *, USHORT, USHORT *, USHORT);
+
+extern USHORT EVL_wc_like
+	(TDBB tdbb,
+	 struct texttype *, USHORT *, SSHORT, USHORT *, SSHORT, USHORT);
+
+extern USHORT EVL_wc_matches
+	(TDBB tdbb, struct texttype *, USHORT *, SSHORT, USHORT *, SSHORT);
+
+extern USHORT EVL_wc_sleuth_check
+	(TDBB tdbb,
+	 struct texttype *, USHORT, USHORT *, USHORT, USHORT *, USHORT);
+
+extern USHORT EVL_wc_sleuth_merge
+	(TDBB tdbb,
+	 struct texttype *, USHORT *, USHORT, USHORT *, USHORT, USHORT *, USHORT);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_EVL_PROTO_H_ */
diff --git a/src/jrd/exe.cpp b/src/jrd/exe.cpp
new file mode 100644
index 0000000000..246162a517
--- /dev/null
+++ b/src/jrd/exe.cpp
@@ -0,0 +1,3723 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		exe.c
+ *	DESCRIPTION:	Statement execution
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: exe.cpp,v 1.1.1.1 2001-05-23 13:26:17 tamlin Exp $
+*/
+
+#include <time.h>
+
+#include "../jrd/common.h"
+#include "../jrd/ibsetjmp.h"
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/req.h"
+#include "../jrd/val.h"
+#include "../jrd/exe.h"
+#include "../jrd/tra.h"
+#include "../jrd/codes.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../jrd/rse.h"
+#include "../jrd/lck.h"
+#include "../jrd/intl.h"
+#include "../jrd/rng.h"
+#include "../jrd/sbm.h"
+#include "../jrd/blb.h"
+#include "../jrd/blr.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/bookmark.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/btr_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dfw_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/ext_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/idx_proto.h"
+#include "../jrd/jrd_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/opt_proto.h"
+#include "../jrd/par_proto.h"
+#include "../jrd/rlck_proto.h"
+#include "../jrd/rse_proto.h"
+#include "../jrd/rng_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/tra_proto.h"
+#include "../jrd/vio_proto.h"
+#include "../jrd/isc_s_proto.h"
+
+#ifdef HSDEBUGSTACK
+#include "TestStck.h"
+#endif
+
+
+extern "C" {
+
+
+// fwd. decl.
+IDX_E IDX_modify_check_constraints(TDBB tdbb,
+								   RPB * org_rpb,
+								   RPB * new_rpb,
+								   TRA transaction,
+								   REL * bad_relation, USHORT * bad_index);	// defined in idx.cpp
+
+
+#ifdef SHLIB_DEFS
+#undef send
+#endif
+
+
+static NOD erase(TDBB, NOD, SSHORT);
+static void execute_looper(TDBB, REQ, TRA, ENUM req::req_s);
+static void execute_procedure(TDBB, NOD);
+static REQ execute_triggers(TDBB, VEC *, REC, REC);
+static NOD looper(TDBB, REQ, NOD);
+static NOD modify(TDBB, register NOD, SSHORT);
+static NOD receive_msg(TDBB, register NOD);
+static void release_blobs(TDBB, REQ);
+static void release_proc_save_points(REQ);
+static void release_triggers(TDBB, VEC);
+#ifdef SCROLLABLE_CURSORS
+static NOD seek_rse(TDBB, REQ, NOD);
+static void seek_rsb(TDBB, REQ, RSB, USHORT, SLONG);
+#endif
+static NOD selct(TDBB, register NOD);
+static NOD send_msg(TDBB, register NOD);
+static void set_error(TDBB, XCP);
+static NOD stall(TDBB, register NOD);
+static NOD store(TDBB, register NOD, SSHORT);
+static BOOLEAN test_error(TDBB, XCP);
+static void trigger_failure(TDBB, REQ);
+static void validate(TDBB, NOD);
+
+#ifdef PC_ENGINE
+static BOOLEAN check_crack(RSB, USHORT);
+static NOD find(TDBB, register NOD);
+static NOD find_dbkey(TDBB, register NOD);
+static LCK implicit_record_lock(TRA, RPB *);
+static NOD release_bookmark(TDBB, NOD);
+static NOD set_bookmark(TDBB, NOD);
+static NOD set_index(TDBB, register NOD);
+static NOD stream(TDBB, register NOD);
+#endif
+
+#ifdef DEBUG_GDS_ALLOC
+static SLONG memory_debug = 1;
+static SLONG memory_count = 0;
+#endif /* DEBUG_GDS_ALLOC */
+
+/* macro definitions */
+
+#define NULL_STRING	"*** null ***"
+#ifdef PC_PLATFORM
+/* The PC cannot support that many recursions */
+#define	MAX_CLONES	75
+#endif
+
+#if (defined SUPERSERVER) && (defined WIN_NT || defined SOLARIS_MT)
+#define MAX_CLONES	750
+#endif
+
+#if defined (HP10) && defined (SUPERSERVER)
+#define MAX_CLONES	110
+#endif
+
+#ifdef DECOSF
+#define MAX_CLONES	200
+#endif
+
+#ifndef MAX_CLONES
+#define MAX_CLONES	1000
+#endif
+
+#define ALL_TRIGS	0
+#define PRE_TRIG	1
+#define POST_TRIG	2
+
+/* this constant defines how many records are locked
+   before we check whether record locking has been
+   turned off for a given relation; if we set the 
+   constant to a low number, we will do too much 
+   locking in the case where record locking is always
+   turned on; too high and we will do too much record
+   locking in the case where someone is only occasionally
+   locking a record */
+
+#define RECORD_LOCK_CHECK_INTERVAL	10
+
+
+
+void EXE_assignment(TDBB tdbb, NOD node)
+{
+/**************************************
+ *
+ *	E X E _ a s s i g n m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform an assignment
+ *
+ **************************************/
+	register REQ request;
+	DSC *to_desc, *from_desc, *missing, *indicator, temp;
+	register NOD to;
+	REC record;
+	SSHORT null, id, len;
+
+	DEV_BLKCHK(node, type_nod);
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	BLKCHK(node, type_nod);
+
+/* Get descriptors of receiving and sending fields/parmaters, variables, etc. */
+
+	missing = NULL;
+	if (node->nod_arg[e_asgn_missing])
+		missing = EVL_expr(tdbb, node->nod_arg[e_asgn_missing]);
+
+	to = node->nod_arg[e_asgn_to];
+	to_desc = EVL_assign_to(tdbb, to);
+	request->req_flags &= ~req_null;
+	from_desc = EVL_expr(tdbb, node->nod_arg[e_asgn_from]);
+	null = (request->req_flags & req_null) ? -1 : 0;
+
+	if (!null && missing && MOV_compare(missing, from_desc) == 0)
+		null = -1;
+
+/* If the value is non-missing, move/convert it.  Otherwise fill the
+   field with appropriate nulls. */
+
+	if (!null) {
+		/* if necessary and appropriate, use the indicator variable */
+
+		if (to->nod_type == nod_argument && to->nod_arg[e_arg_indicator]) {
+			indicator = EVL_assign_to(tdbb, to->nod_arg[e_arg_indicator]);
+			temp.dsc_dtype = dtype_short;
+			temp.dsc_length = sizeof(SSHORT);
+			temp.dsc_scale = 0;
+			temp.dsc_sub_type = 0;
+
+			if ((from_desc->dsc_dtype <= dtype_varying) &&
+				(to_desc->dsc_dtype <= dtype_varying) &&
+				(TEXT_LEN(from_desc) > TEXT_LEN(to_desc)))
+				len = TEXT_LEN(from_desc);
+			else
+				len = 0;
+
+			temp.dsc_address = (UCHAR *) & len;
+			MOV_move(&temp, indicator);
+
+			if (len) {
+				temp = *from_desc;
+				temp.dsc_length = TEXT_LEN(to_desc);
+				if (temp.dsc_dtype == dtype_cstring)
+					temp.dsc_length += 1;
+				else if (temp.dsc_dtype == dtype_varying)
+					temp.dsc_length += 2;
+				from_desc = &temp;
+			}
+		}
+
+#ifndef VMS
+		if (DTYPE_IS_BLOB(to_desc->dsc_dtype))
+#else
+		if (DTYPE_IS_BLOB(to_desc->dsc_dtype)
+			&& to_desc->dsc_dtype != dtype_d_float)
+#endif
+			BLB_move(tdbb, from_desc, to_desc, to);
+
+		else if (!DSC_EQUIV(from_desc, to_desc))
+			MOV_move(from_desc, to_desc);
+
+		else if (from_desc->dsc_dtype == dtype_short)
+			*((SSHORT *) to_desc->dsc_address) =
+				*((SSHORT *) from_desc->dsc_address);
+
+		else if (from_desc->dsc_dtype == dtype_long)
+			*((SLONG *) to_desc->dsc_address) =
+				*((SLONG *) from_desc->dsc_address);
+
+		else if (from_desc->dsc_dtype == dtype_int64)
+			*((SINT64 *) to_desc->dsc_address) =
+				*((SINT64 *) from_desc->dsc_address);
+
+		else if (((U_IPTR) from_desc->dsc_address & (ALIGNMENT - 1)) ||
+				 ((U_IPTR) to_desc->dsc_address & (ALIGNMENT - 1)))
+			MOVE_FAST(from_desc->dsc_address, to_desc->dsc_address,
+					  from_desc->dsc_length);
+
+		else
+			MOVE_FASTER(from_desc->dsc_address, to_desc->dsc_address,
+						from_desc->dsc_length);
+		to_desc->dsc_flags &= ~DSC_null;
+	}
+	else if (node->nod_arg[e_asgn_missing2] &&
+			 (missing = EVL_expr(tdbb, node->nod_arg[e_asgn_missing2]))) {
+		MOV_move(missing, to_desc);
+		to_desc->dsc_flags |= DSC_null;
+	}
+	else {
+		UCHAR *p;
+		USHORT l;
+
+		l = to_desc->dsc_length;
+		p = to_desc->dsc_address;
+		switch (to_desc->dsc_dtype) {
+		case dtype_text:
+			/* YYY - not necessarily the right thing to do */
+			/* for text formats that don't have trailing spaces */
+			if (l)
+				do
+					*p++ = ' ';
+				while (--l);
+			break;
+
+		case dtype_cstring:
+			*p = 0;
+			break;
+
+		case dtype_varying:
+			*(SSHORT *) p = 0;
+			break;
+
+		default:
+			do
+				*p++ = 0;
+			while (--l);
+			break;
+		}
+		to_desc->dsc_flags |= DSC_null;
+	}
+
+/* Handle the null flag as appropriate for fields and message arguments. */
+
+	if (to->nod_type == nod_field) {
+		id = (USHORT) to->nod_arg[e_fld_id];
+		record = request->req_rpb[(int) to->nod_arg[e_fld_stream]].rpb_record;
+		if (null)
+			SET_NULL(record, id);
+		else
+			CLEAR_NULL(record, id);
+	}
+	else if (to->nod_type == nod_argument && to->nod_arg[e_arg_flag]) {
+		to_desc = EVL_assign_to(tdbb, to->nod_arg[e_arg_flag]);
+
+		/* If the null flag is a string with an effective length of one,
+		   then -1 will not fit.  Therefore, store 1 instead. */
+
+		if (null &&
+			to_desc->dsc_dtype <= dtype_varying &&
+			to_desc->dsc_length <=
+			((to_desc->dsc_dtype == dtype_text) ? 1 : ((to_desc->dsc_dtype ==
+														dtype_cstring) ? 2 :
+													   3))) null = 1;
+
+		temp.dsc_dtype = dtype_short;
+		temp.dsc_length = sizeof(SSHORT);
+		temp.dsc_scale = 0;
+		temp.dsc_sub_type = 0;
+		temp.dsc_address = (UCHAR *) & null;
+		MOV_move(&temp, to_desc);
+		if (null && to->nod_arg[e_arg_indicator]) {
+			to_desc = EVL_assign_to(tdbb, to->nod_arg[e_arg_indicator]);
+			MOV_move(&temp, to_desc);
+		}
+	}
+
+	request->req_operation = req::req_return;
+}
+
+
+#ifdef PC_ENGINE
+BOOLEAN EXE_crack(TDBB tdbb, RSB rsb, USHORT flags)
+{
+/**************************************
+ *
+ *	E X E _ c r a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check whether stream is on a crack, BOF
+ *	or EOF, according to the flags passed.
+ *
+ **************************************/
+	REQ request;
+	RPB *rpb;
+	IRSB impure;
+
+
+	DEV_BLKCHK(rsb, type_rsb);
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+
+/* correct boolean rsbs to point to the "real" rsb */
+
+	if (rsb->rsb_type == rsb_boolean)
+		rsb = rsb->rsb_next;
+	impure = (IRSB) ((UCHAR *) request + rsb->rsb_impure);
+
+/* if any of the passed flags are set, return TRUE */
+
+	if (impure->irsb_flags & flags)
+		return TRUE;
+	else
+		return FALSE;
+}
+#endif
+
+
+REQ EXE_find_request(TDBB tdbb, REQ request, BOOLEAN validate)
+{
+/**************************************
+ *
+ *	E X E _ f i n d _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find an inactive incarnation of a trigger request.  If necessary,
+ *	clone it.
+ *
+ **************************************/
+#ifdef ANY_THREADING
+	DBB dbb;
+#endif
+	REQ clone, next;
+	USHORT n, clones, count;
+	VEC vector;
+
+	DEV_BLKCHK(request, type_req);
+
+	SET_TDBB(tdbb);
+#ifdef ANY_THREADING
+	dbb = tdbb->tdbb_database;
+#endif
+
+/* I found a core file from my test runs that came from a NULL request -
+ * but have no idea what test was running.  Let's bugcheck so we can
+ * figure it out
+ */
+	if (!request)
+		BUGCHECK /* REQUEST */ (167);	/* msg 167 invalid SEND request */
+
+	THD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_clone);
+	clone = NULL;
+	count = 0;
+	if (!(request->req_flags & req_in_use))
+		clone = request;
+	else {
+		if (request->req_attachment == tdbb->tdbb_attachment)
+			count++;
+
+		/* Request exists and is in use.  Search clones for one in use by
+		   this attachment. If not found, return first inactive request. */
+
+		clones = (vector =
+				  request->req_sub_requests) ? (vector->vec_count - 1) : 0;
+
+		for (n = 1; n <= clones; n++) {
+			next = CMP_clone_request(tdbb, request, n, validate);
+			if (next->req_attachment == tdbb->tdbb_attachment) {
+				if (!(next->req_flags & req_in_use)) {
+					clone = next;
+					break;
+				}
+				else
+					count++;
+			}
+			else if (!(next->req_flags & req_in_use) && !clone)
+				clone = next;
+		}
+
+		if (count > MAX_CLONES) {
+			THD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_clone);
+			ERR_post(gds__req_max_clones_exceeded, 0);
+		}
+		if (!clone)
+			clone = CMP_clone_request(tdbb, request, n, validate);
+	}
+	clone->req_attachment = tdbb->tdbb_attachment;
+	clone->req_flags |= req_in_use;
+	THD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_clone);
+	return clone;
+}
+
+
+#ifdef PC_ENGINE
+void EXE_mark_crack(TDBB tdbb, RSB rsb, USHORT flag)
+{
+/**************************************
+ *
+ *	E X E _ m a r k _ c r a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Mark a stream as being at a crack,
+ *	plus report the fact in the status
+ *	vector.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(rsb, type_rsb);
+
+/* correct boolean rsbs to point to the "real" rsb */
+
+	if (rsb->rsb_type == rsb_boolean)
+		rsb = rsb->rsb_next;
+
+	RSE_MARK_CRACK(tdbb, rsb, flag);
+
+	if (flag == irsb_eof)
+		ERR_warning(gds__stream_eof, 0);
+	else if (flag == irsb_bof)
+		ERR_warning(gds__stream_bof, 0);
+	else if (flag & irsb_crack)
+		ERR_warning(gds__stream_crack, 0);
+}
+#endif
+
+
+void EXE_receive(TDBB		tdbb,
+				 REQ		request,
+				 USHORT		msg,
+				 USHORT		length,
+				 UCHAR*		buffer)
+{
+/**************************************
+ *
+ *	E X E _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a message from JRD to the host program.  This corresponds to
+ *	a JRD BLR/NOD send.
+ *
+ **************************************/
+	NOD message;
+	FMT format;
+	TRA transaction;
+	SAV save_sav_point;
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(request, type_req);
+
+	transaction = request->req_transaction;
+
+	if (!(request->req_flags & req_active)) {
+		ERR_post(gds_req_sync, 0);
+	}
+
+	if (request->req_flags & req_proc_fetch)
+	{
+		/* request->req_proc_sav_point stores all the request savepoints.
+		   When going to continue execution put request save point list
+		   into transaction->tra_save_point so that it is used in looper.
+		   When we come back to EXE_receive() restore
+		   transaction->tra_save_point and merge all work done under
+		   stored procedure savepoints into the current transaction
+		   savepoint, which is the savepoint for fetch. */
+
+		save_sav_point = transaction->tra_save_point;
+		transaction->tra_save_point = request->req_proc_sav_point;
+		request->req_proc_sav_point = save_sav_point;
+
+		if (!transaction->tra_save_point) {
+			VIO_start_save_point(tdbb, transaction);
+		}
+		
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+
+		if (SETJMP(env))
+		{
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			save_sav_point = transaction->tra_save_point;
+			transaction->tra_save_point = request->req_proc_sav_point;
+			request->req_proc_sav_point = save_sav_point;
+			release_proc_save_points(request);
+			LONGJMP(reinterpret_cast < jmp_buf & >(old_env), -1);
+		}
+	}
+
+	if (request->req_message->nod_type == nod_stall
+#ifdef SCROLLABLE_CURSORS
+		|| request->req_flags & req_fetch_required
+#endif
+		)
+		execute_looper(tdbb, request, transaction, req::req_sync);
+
+	if (!(request->req_flags & req_active) ||
+		request->req_operation != req::req_send)
+	{
+		ERR_post(gds_req_sync, 0);
+	}
+
+	message = request->req_message;
+	format = (FMT) message->nod_arg[e_msg_format];
+
+	if (msg != (USHORT) message->nod_arg[e_msg_number])
+		ERR_post(gds_req_sync, 0);
+
+	if (length != format->fmt_length)
+		ERR_post(gds__port_len,
+				 gds_arg_number, (SLONG) length,
+				 gds_arg_number, (SLONG) format->fmt_length, 0);
+
+	if ((U_IPTR) buffer & (ALIGNMENT - 1))
+		MOVE_FAST((SCHAR *) request + message->nod_impure, buffer, length);
+	else
+		MOVE_FASTER((SCHAR *) request + message->nod_impure, buffer, length);
+
+	execute_looper(tdbb, request, transaction, req::req_proceed);
+
+	if (request->req_flags & req_proc_fetch) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		save_sav_point = transaction->tra_save_point;
+		transaction->tra_save_point = request->req_proc_sav_point;
+		request->req_proc_sav_point = save_sav_point;
+		VIO_merge_proc_sav_points(tdbb, transaction,
+								  &request->req_proc_sav_point);
+	}
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+void EXE_seek(TDBB tdbb, REQ request, USHORT direction, ULONG offset)
+{
+/**************************************
+ *
+ *      E X E _ s e e k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Seek a given request in a particular direction 
+ *	for offset records. 
+ *
+ **************************************/
+	VEC vector;
+	RSB rsb;
+	SLONG i;
+
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(request, type_req);
+
+/* loop through all RSEs in the request, 
+   and describe the rsb tree for that rsb;
+   go backwards because items were popped
+   off the stack backwards */
+
+	vector = request->req_fors;
+	if (!vector)
+		return FALSE;
+
+/* find the top-level rsb in the request and seek it */
+
+	for (i = vector->vec_count - 1; i >= 0; i--)
+		if (rsb = (RSB) vector->vec_object[i]) {
+			seek_rsb(tdbb, request, rsb, direction, offset);
+			break;
+		}
+}
+#endif
+
+
+void EXE_send(TDBB		tdbb,
+			  REQ		request,
+			  USHORT	msg,
+			  USHORT	length,
+			  UCHAR*	buffer)
+{
+/**************************************
+ *
+ *	E X E _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a message from the host program to the engine.  
+ *	This corresponds to a blr_receive or blr_select statement.
+ *
+ **************************************/
+	NOD node, message, *ptr, *end;
+	FMT format;
+	TRA transaction;
+#ifdef SCROLLABLE_CURSORS
+	USHORT save_operation;
+	NOD save_next = NULL, save_message;
+#endif
+
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(request, type_req);
+
+	if (!(request->req_flags & req_active))
+		ERR_post(gds_req_sync, 0);
+
+#ifdef SCROLLABLE_CURSORS
+/* look for an asynchronous send message--if such 
+   a message was defined, we allow the user to send 
+   us a message at any time during request execution */
+
+	if ((message = request->req_async_message) &&
+		(node = message->nod_arg[e_send_message]) &&
+		(msg == (USHORT) node->nod_arg[e_msg_number])) {
+		/* save the current state of the request so we can go 
+		   back to what was interrupted */
+
+		save_operation = request->req_operation;
+		save_message = request->req_message;
+		save_next = request->req_next;
+
+		request->req_operation = req_receive;
+		request->req_message = node;
+		request->req_next = message->nod_arg[e_send_statement];
+
+		/* indicate that we are processing an asynchronous message */
+
+		request->req_flags |= req_async_processing;
+	}
+	else {
+#endif
+		if (request->req_operation != req::req_receive)
+			ERR_post(gds_req_sync, 0);
+		node = request->req_message;
+#ifdef SCROLLABLE_CURSORS
+	}
+#endif
+
+	transaction = request->req_transaction;
+
+	if (node->nod_type == nod_message)
+		message = node;
+	else if (node->nod_type == nod_select)
+		for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end;
+			 ptr++) {
+			message = (*ptr)->nod_arg[e_send_message];
+			if ((USHORT) message->nod_arg[e_msg_number] == msg) {
+				request->req_next = *ptr;
+				break;
+			}
+		}
+	else
+		BUGCHECK(167);			/* msg 167 invalid SEND request */
+
+	format = (FMT) message->nod_arg[e_msg_format];
+
+	if (msg != (USHORT) message->nod_arg[e_msg_number])
+		ERR_post(gds_req_sync, 0);
+
+	if (length != format->fmt_length)
+		ERR_post(gds__port_len,
+				 gds_arg_number, (SLONG) length,
+				 gds_arg_number, (SLONG) format->fmt_length, 0);
+
+	if ((U_IPTR) buffer & (ALIGNMENT - 1))
+		MOVE_FAST(buffer, (SCHAR *) request + message->nod_impure, length);
+	else
+		MOVE_FASTER(buffer, (SCHAR *) request + message->nod_impure, length);
+
+	execute_looper(tdbb, request, transaction, req::req_proceed);
+
+#ifdef SCROLLABLE_CURSORS
+	if (save_next) {
+		/* if the message was sent asynchronously, restore all the 
+		   previous values so that whatever we were trying to do when 
+		   the message came in is what we do next */
+
+		request->req_operation = save_operation;
+		request->req_message = save_message;
+		request->req_next = save_next;
+	}
+#endif
+}
+
+
+#ifdef GATEWAY
+void EXE_set_fields_null(TDBB tdbb, REC record, FMT format)
+{
+/**************************************
+ *
+ *	E X E _ s e t _ f i e l d s _ n u l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize all fields in a record to missing.
+ *
+ **************************************/
+	USHORT count;
+
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(record, type_rec);
+	DEV_BLKCHK(format, type_fmt);
+
+	if ((count = format->fmt_count) <= 1)
+		((SSHORT *) record->rec_data)[0] = -1;
+	else {
+		((SSHORT *) record->rec_data)[0] = ((SSHORT *) record->rec_data)[1] = -1;
+		MOVE_FAST(record->rec_data, record->rec_data + (2 * sizeof(SSHORT)),
+				  (USHORT) ((count - 2) * sizeof(SSHORT)));
+	}
+}
+#endif
+
+
+void EXE_start(TDBB tdbb, REQ request, TRA transaction)
+{
+/**************************************
+ *
+ *	E X E _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start an execution running.
+ *
+ **************************************/
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	BLKCHK(request, type_req);
+	BLKCHK(transaction, type_tra);
+
+	if (request->req_flags & req_active)
+		ERR_post(gds_req_sync, gds_arg_gds, gds__reqinuse, 0);
+
+	if (transaction->tra_flags & TRA_prepared)
+		ERR_post(gds__req_no_trans, 0);
+
+/* Post resources to transaction block.  In particular, the interest locks
+   on relations/indices are copied to the transaction, which is very
+   important for (short-lived) dynamically compiled requests.  This will
+   provide transaction stability by preventing a relation from being
+   dropped after it has been referenced from an active transaction. */
+
+	TRA_post_resources(tdbb, transaction, request->req_resources);
+
+	request->req_transaction = transaction;
+	request->req_flags &= REQ_FLAGS_INIT_MASK;
+	request->req_flags |= req_active;
+	request->req_flags &= ~req_reserved;
+	request->req_operation = req::req_evaluate;
+
+/* set up to count records affected by request */
+
+	request->req_flags |= req_count_records;
+	request->req_records_selected = 0;
+	request->req_records_updated = 0;
+	request->req_records_inserted = 0;
+	request->req_records_deleted = 0;
+
+/* Store request start time for timestamp work */
+	if (!request->req_timestamp)
+		request->req_timestamp = time(NULL);
+
+	if (request->req_invariants) {
+		/* Set all invariants to not computed. */
+
+		NOD *ptr, *end;
+		USHORT *invariant_flags;
+		VLU impure;
+
+		ptr = (NOD *) request->req_invariants->vec_object;
+		end = ptr + request->req_invariants->vec_count;
+		for (; ptr < end; ptr++)
+			if (*ptr) {
+				impure = (VLU) ((SCHAR *) request + (*ptr)->nod_impure);
+				invariant_flags = (USHORT *) & impure->vlu_string;
+				*invariant_flags = 0;
+			}
+	}
+
+/* Start a save point if not in middle of one  */
+
+	if (transaction && (transaction != dbb->dbb_sys_trans)) {
+		VIO_start_save_point(tdbb, transaction);
+	}
+#ifdef WIN_NT
+	START_CHECK_FOR_EXCEPTIONS(NULL);
+#endif
+	looper(tdbb, request, request->req_top_node);
+#ifdef WIN_NT
+	END_CHECK_FOR_EXCEPTIONS(NULL);
+#endif
+
+/* If any requested modify/delete/insert ops have completed, forget them */
+
+	if (transaction && (transaction != dbb->dbb_sys_trans) &&
+		transaction->tra_save_point &&
+		!transaction->tra_save_point->sav_verb_count) {
+		/* Forget about any undo for this verb */
+
+		VIO_verb_cleanup(tdbb, transaction);
+	}
+}
+
+
+void EXE_unwind(TDBB tdbb, REQ request)
+{
+/**************************************
+ *
+ *	E X E _ u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a request, maybe active, maybe not.  This is particlarly
+ *	simple since nothing really needs to be done.
+ *
+ **************************************/
+	BLK *ptr, *end;
+	struct plb *old_pool;
+	REQ old_request;
+
+	DEV_BLKCHK(request, type_req);
+
+	SET_TDBB(tdbb);
+
+	if (request->req_flags & req_active) {
+		if (request->req_fors) {
+			old_pool = tdbb->tdbb_default;
+			tdbb->tdbb_default = request->req_pool;
+			old_request = tdbb->tdbb_request;
+			tdbb->tdbb_request = request;
+			tdbb->tdbb_transaction = request->req_transaction;
+			for (ptr = request->req_fors->vec_object, end =
+				 ptr + request->req_fors->vec_count; ptr < end; ptr++)
+				if (*ptr)
+					RSE_close(tdbb, reinterpret_cast < struct rsb *>(*ptr));
+			tdbb->tdbb_default = old_pool;
+			tdbb->tdbb_request = old_request;
+		}
+		release_blobs(tdbb, request);
+	}
+
+	if (request->req_proc_sav_point && (request->req_flags & req_proc_fetch))
+		release_proc_save_points(request);
+
+	request->req_flags &= ~(req_active | req_proc_fetch | req_reserved);
+	request->req_flags |= req_abort | req_stall;
+	request->req_timestamp = 0;
+
+#ifdef GATEWAY
+/* Unwind request from connected DBMS's point of view */
+
+	FRGN_unwind(request);
+#endif
+}
+
+
+
+static NOD erase(TDBB tdbb, NOD node, SSHORT which_trig)
+{
+/**************************************
+ *
+ *	e r a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform erase operation.
+ *
+ **************************************/
+	DBB dbb;
+	REQ request, trigger;
+	RPB *rpb;
+	REL relation;
+	REC record;
+	FMT format;
+	TRA transaction;
+#ifdef PC_ENGINE
+	LCK implicit_lock = NULL, record_locking;
+	RSB rsb = NULL;
+	JMP_BUF env, *old_env;
+	IRSB impure;
+#endif
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	BLKCHK(node, type_nod);
+
+	request = tdbb->tdbb_request;
+	transaction = request->req_transaction;
+	rpb = &request->req_rpb[(int) node->nod_arg[e_erase_stream]];
+	relation = rpb->rpb_relation;
+
+#ifdef PC_ENGINE
+/* for navigational streams, retrieve the rsb */
+
+	if (node->nod_arg[e_erase_rsb]) {
+		rsb = *(RSB *) node->nod_arg[e_erase_rsb];
+		impure = (IRSB) ((UCHAR *) request + rsb->rsb_impure);
+	}
+#endif
+
+	switch (request->req_operation) {
+	case req::req_evaluate:
+		if (!node->nod_arg[e_erase_statement])
+			break;
+		format = MET_current(tdbb, rpb->rpb_relation);
+		record = VIO_record(tdbb, rpb, format, tdbb->tdbb_default);
+		rpb->rpb_address = record->rec_data;
+		rpb->rpb_length = format->fmt_length;
+		rpb->rpb_format_number = format->fmt_version;
+		return node->nod_arg[e_erase_statement];
+
+	case req::req_return:
+		break;
+
+	default:
+		return node->nod_parent;
+	}
+
+#ifdef PC_ENGINE
+/* if we are on a crack in a navigational stream, erase 
+   is not a valid operation */
+
+	if (rsb && EXE_crack(tdbb, rsb, irsb_bof | irsb_eof | irsb_crack)) {
+		EXE_mark_crack(tdbb, rsb, impure->irsb_flags);
+		request->req_operation = req::req_return;
+		return node->nod_parent;
+	}
+#endif
+
+	request->req_operation = req::req_return;
+	RLCK_reserve_relation(tdbb, transaction, relation, TRUE, TRUE);
+
+/* If the stream was sorted, the various fields in the rpb are
+   probably junk.  Just to make sure that everything is cool,
+   refetch and release the record. */
+
+	if (rpb->rpb_stream_flags & RPB_s_refetch) {
+		SLONG tid_fetch;
+
+		tid_fetch = rpb->rpb_transaction;
+		if ((!DPM_get(tdbb, rpb, LCK_read)) ||
+			(!VIO_chase_record_version(tdbb,
+									   rpb,
+									   NULL,
+									   transaction,
+									   reinterpret_cast <
+									   blk *
+									   >(tdbb->tdbb_default))))
+				ERR_post(gds__deadlock, gds_arg_gds, gds__update_conflict, 0);
+		VIO_data(tdbb, rpb,
+				 reinterpret_cast < blk * >(tdbb->tdbb_request->req_pool));
+
+		/* If record is present, and the transaction is read committed,
+		 * make sure the record has not been updated.  Also, punt after
+		 * VIO_data () call which will release the page.
+		 */
+
+		if ((transaction->tra_flags & TRA_read_committed) &&
+			(tid_fetch != rpb->rpb_transaction))
+				ERR_post(gds__deadlock, gds_arg_gds, gds__update_conflict, 0);
+
+		rpb->rpb_stream_flags &= ~RPB_s_refetch;
+	}
+
+#ifndef GATEWAY
+
+#ifdef PC_ENGINE
+/* set up to do record locking; in case of a consistency
+   mode transaction, we already have an exclusive lock on
+   the table, so don't bother */
+
+	if (!(transaction->tra_flags & TRA_degree3)) {
+		/* check whether record locking is turned on */
+
+		record_locking = RLCK_record_locking(relation);
+		if (record_locking->lck_physical != LCK_PR) {
+			/* get an implicit lock on the record */
+
+			implicit_lock = implicit_record_lock(transaction, rpb);
+
+			/* set up to catch any errors so that we can 
+			   release the implicit lock */
+
+			old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+			tdbb->tdbb_setjmp = (UCHAR *) env;
+			if (SETJMP(env)) {
+				tdbb->tdbb_setjmp = (UCHAR *) old_env;
+				RLCK_unlock_record_implicit(implicit_lock, 0);
+				LONGJMP(old_env, -1);
+			}
+		}
+	}
+#endif
+
+	if (transaction != dbb->dbb_sys_trans)
+		++transaction->tra_save_point->sav_verb_count;
+
+/* Handle pre-operation trigger */
+
+	if (relation->rel_pre_erase &&
+		which_trig != POST_TRIG &&
+		(trigger =
+		 execute_triggers(tdbb, &relation->rel_pre_erase, rpb->rpb_record,
+						  0))) trigger_failure(tdbb, trigger);
+
+	if (relation->rel_file)
+		EXT_erase(rpb, reinterpret_cast < int *>(transaction));
+	else if (!relation->rel_view_rse)
+		VIO_erase(tdbb, rpb, transaction);
+
+/* Handle post operation trigger */
+
+	if (relation->rel_post_erase &&
+		which_trig != PRE_TRIG &&
+		(trigger = execute_triggers(tdbb, &relation->rel_post_erase,
+									rpb->rpb_record, 0)))
+			trigger_failure(tdbb, trigger);
+
+/* call IDX_erase (which checks constraints) after all post erase triggers 
+   have fired. This is required for cascading referential integrity, which 
+   can be implemented as post_erase triggers */
+
+	if (!relation->rel_file & !relation->rel_view_rse) {
+		REL bad_relation;
+		USHORT bad_index;
+		IDX_E error_code;
+
+		if (error_code =
+			IDX_erase(tdbb, rpb, transaction, &bad_relation,
+					  &bad_index)) ERR_duplicate_error(error_code,
+													   bad_relation,
+													   bad_index);
+	}
+
+	request->req_records_deleted++;
+
+	if (transaction != dbb->dbb_sys_trans)
+		--transaction->tra_save_point->sav_verb_count;
+
+#ifdef PC_ENGINE
+	if (implicit_lock) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		RLCK_unlock_record_implicit(implicit_lock, 0);
+	}
+
+/* if the stream is navigational, it is now positioned on a crack */
+
+	if (rsb)
+		RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+#endif
+#else
+	VIO_erase(rpb, transaction, node->nod_arg[e_erase_sql]);
+#endif
+
+	return node->nod_parent;
+}
+
+
+static void execute_looper(
+						   TDBB tdbb,
+						   REQ request,
+						   TRA transaction, ENUM req::req_s next_state)
+{
+/**************************************
+ *
+ *	e x e c u t e _ l o o p e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wrapper around looper. This will execute
+ *	looper with the save point mechanism.
+ *
+ **************************************/
+	DBB dbb;
+
+	DEV_BLKCHK(request, type_req);
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* Start a save point */
+
+	if (!(request->req_flags & req_proc_fetch) && request->req_transaction)
+		if (transaction && (transaction != dbb->dbb_sys_trans))
+			VIO_start_save_point(tdbb, transaction);
+
+	request->req_flags &= ~req_stall;
+	request->req_operation = next_state;
+	looper(tdbb, request, request->req_next);
+
+/* If any requested modify/delete/insert ops have completed, forget them */
+
+	if (!(request->req_flags & req_proc_fetch) && request->req_transaction)
+		if (transaction && (transaction != dbb->dbb_sys_trans) &&
+			transaction->tra_save_point &&
+			!transaction->tra_save_point->sav_verb_count) {
+			/* Forget about any undo for this verb */
+
+			VIO_verb_cleanup(tdbb, transaction);
+		}
+}
+
+
+static void execute_procedure(TDBB tdbb, NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a stored procedure.  Begin by
+ *	assigning the input parameters.  End
+ *	by assigning the output parameters.
+ *
+ **************************************/
+	REQ request, proc_request;
+	NOD in_message, out_message, temp;
+	FMT format;
+	USHORT in_msg_length, out_msg_length;
+	SCHAR *in_msg, *out_msg;
+	PRC procedure;
+	STR temp_buffer = NULL;
+	SLONG save_point_number;
+	TRA transaction;
+	JMP_BUF env, *old_env;
+	struct plb *old_pool;
+
+	SET_TDBB(tdbb);
+	BLKCHK(node, type_nod);
+
+	request = tdbb->tdbb_request;
+
+	if (temp = node->nod_arg[e_esp_inputs]) {
+		NOD *ptr, *end;
+
+		for (ptr = temp->nod_arg, end = ptr + temp->nod_count; ptr < end;
+			 ptr++)
+			EXE_assignment(tdbb, *ptr);
+	}
+
+	if (in_message = node->nod_arg[e_esp_in_msg]) {
+		format = (FMT) in_message->nod_arg[e_msg_format];
+		in_msg_length = format->fmt_length;
+		in_msg = (SCHAR *) request + in_message->nod_impure;
+	}
+	if (out_message = node->nod_arg[e_esp_out_msg]) {
+		format = (FMT) out_message->nod_arg[e_msg_format];
+		out_msg_length = format->fmt_length;
+		out_msg = (SCHAR *) request + out_message->nod_impure;
+	}
+
+	procedure = (PRC) node->nod_arg[e_esp_procedure];
+	proc_request = EXE_find_request(tdbb, procedure->prc_request, FALSE);
+
+	if (!out_message) {
+		format = (FMT) procedure->prc_output_msg->nod_arg[e_msg_format];
+		out_msg_length = format->fmt_length;
+		temp_buffer =
+			(STR) ALLOCDV(type_str, out_msg_length + DOUBLE_ALIGN - 1);
+		out_msg =
+			(SCHAR *) FB_ALIGN((U_IPTR) temp_buffer->str_data, DOUBLE_ALIGN);
+	}
+
+/* Save the old pool */
+
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = proc_request->req_pool;
+
+/* Catch errors so we can unwind cleanly */
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		tdbb->tdbb_default = old_pool;
+		tdbb->tdbb_request = request;
+		EXE_unwind(tdbb, proc_request);
+		proc_request->req_flags &= ~(req_in_use | req_proc_fetch);
+		proc_request->req_timestamp = 0;
+		if (temp_buffer)
+			ALL_release(reinterpret_cast < frb * >(temp_buffer));
+		LONGJMP(reinterpret_cast < jmp_buf & >(old_env), -1);
+	}
+
+	transaction = request->req_transaction;
+	save_point_number = transaction->tra_save_point->sav_number;
+
+	proc_request->req_timestamp = request->req_timestamp;
+	EXE_start(tdbb, proc_request, transaction);
+	if (in_message)
+		EXE_send(tdbb, proc_request, 0, in_msg_length,
+				 reinterpret_cast < UCHAR * >(in_msg));
+
+	EXE_receive(tdbb, proc_request, 1, out_msg_length,
+				reinterpret_cast < UCHAR * >(out_msg));
+
+/* Clean up all savepoints started during execution of the
+   procedure */
+
+	if (transaction != tdbb->tdbb_database->dbb_sys_trans) {
+		SAV save_point;
+
+		for (save_point = transaction->tra_save_point;
+			 save_point && save_point_number < save_point->sav_number;
+			 save_point = transaction->tra_save_point)
+			VIO_verb_cleanup(tdbb, transaction);
+	}
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	tdbb->tdbb_default = old_pool;
+	EXE_unwind(tdbb, proc_request);
+	tdbb->tdbb_request = request;
+	if (temp = node->nod_arg[e_esp_outputs]) {
+		NOD *ptr, *end;
+
+		for (ptr = temp->nod_arg, end = ptr + temp->nod_count; ptr < end;
+			 ptr++)
+			EXE_assignment(tdbb, *ptr);
+	}
+	if (temp_buffer)
+		ALL_release(reinterpret_cast < frb * >(temp_buffer));
+	proc_request->req_attachment = NULL;
+	proc_request->req_flags &= ~(req_in_use | req_proc_fetch);
+	proc_request->req_timestamp = 0;
+}
+
+
+#ifndef GATEWAY
+static REQ execute_triggers(
+							TDBB tdbb,
+							VEC * triggers, REC old_rec, REC new_rec)
+{
+/**************************************
+ *
+ *	e x e c u t e _ t r i g g e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute group of triggers.  Return pointer to failing trigger
+ *	if any blow up.
+ *
+ **************************************/
+	REQ *ptr, *end, result;
+	VOLATILE REQ trigger = NULL;
+	TRA transaction;
+	VOLATILE VEC vector;
+	JMP_BUF env, *old_env;
+
+	DEV_BLKCHK(*triggers, type_vec);
+	DEV_BLKCHK(old_rec, type_rec);
+	DEV_BLKCHK(new_rec, type_rec);
+
+	if (!*triggers)
+		return NULL;
+
+	SET_TDBB(tdbb);
+
+	transaction = tdbb->tdbb_request->req_transaction;
+	vector = *triggers;
+	result = NULL;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (vector != *triggers)
+			release_triggers(tdbb, vector);
+		if (!trigger)
+			LONGJMP(reinterpret_cast < jmp_buf & >(old_env), -1);
+		else
+			return trigger;
+	}
+
+	for (ptr = (REQ *) vector->vec_object, end = ptr + vector->vec_count;
+		 ptr < end; ptr++) {
+		trigger = EXE_find_request(tdbb, *ptr, FALSE);
+		trigger->req_rpb[0].rpb_record = old_rec;
+		trigger->req_rpb[1].rpb_record = new_rec;
+		trigger->req_timestamp = tdbb->tdbb_request->req_timestamp;
+		EXE_start(tdbb, trigger, transaction);
+		trigger->req_attachment = NULL;
+		trigger->req_flags &= ~req_in_use;
+		trigger->req_timestamp = 0;
+		if (trigger->req_operation == req::req_unwind) {
+			result = trigger;
+			break;
+		}
+	}
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (vector != *triggers)
+		release_triggers(tdbb, vector);
+
+	return result;
+}
+#endif
+
+
+#ifndef GATEWAY
+#ifdef PC_ENGINE
+static NOD find(TDBB tdbb, register NOD node)
+{
+/**************************************
+ *
+ *	f i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the given key value in a stream.
+ *	Assume that the stream is open.
+ *
+ **************************************/
+	register REQ request;
+	RSB rsb;
+	USHORT operator, direction;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	BLKCHK(node, type_nod);
+
+	if (request->req_operation == req::req_evaluate) {
+		rsb = *((RSB *) node->nod_arg[e_find_rsb]);
+
+		operator = (USHORT) MOV_get_long(EVL_expr(tdbb,
+												  node->nod_arg
+												  [e_find_operator]), 0);
+		if (operator != blr_eql && operator != blr_leq && operator != blr_lss
+			&& operator != blr_geq && operator != blr_gtr)
+			ERR_post(gds__invalid_operator, 0);
+
+		direction = (USHORT) MOV_get_long(EVL_expr(tdbb,
+												   node->nod_arg
+												   [e_find_direction]), 0);
+		if (direction != blr_backward && direction != blr_forward
+			&& direction != blr_backward_starting
+			&& direction !=
+			blr_forward_starting) ERR_post(gds__invalid_direction, 0);
+
+		/* try to find the record; the position is defined to be on a crack 
+		   regardless of whether we are at BOF or EOF; also be sure to perpetuate
+		   the forced crack (bug #7024) */
+
+		if (!
+			(RSE_find_record
+			 (tdbb, rsb, operator, direction,
+			  node->nod_arg[e_find_args]))) if (EXE_crack(tdbb, rsb,
+														  irsb_bof | irsb_eof
+														  | irsb_crack))
+				if (EXE_crack(tdbb, rsb, irsb_forced_crack))
+					EXE_mark_crack(tdbb, rsb, irsb_crack | irsb_forced_crack);
+				else if (EXE_crack(tdbb, rsb, irsb_bof))
+					EXE_mark_crack(tdbb, rsb, irsb_bof);
+				else if (EXE_crack(tdbb, rsb, irsb_eof))
+					EXE_mark_crack(tdbb, rsb, irsb_eof);
+				else
+					EXE_mark_crack(tdbb, rsb, irsb_crack);
+
+		request->req_operation = req::req_return;
+	}
+
+	return node->nod_parent;
+}
+#endif
+#endif
+
+
+#ifndef GATEWAY
+#ifdef PC_ENGINE
+static NOD find_dbkey(TDBB tdbb, register NOD node)
+{
+/**************************************
+ *
+ *	f i n d _ d b k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the given dbkey in a navigational stream,
+ *	resetting the position of the stream to that record.
+ *
+ **************************************/
+	register REQ request;
+	RSB rsb;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	BLKCHK(node, type_nod);
+
+	if (request->req_operation == req::req_evaluate) {
+		rsb = *((RSB *) node->nod_arg[e_find_dbkey_rsb]);
+
+		if (!
+			(RSE_find_dbkey
+			 (tdbb, rsb, node->nod_arg[e_find_dbkey_dbkey],
+			  node->nod_arg[e_find_dbkey_version]))) EXE_mark_crack(tdbb, rsb,
+																	irsb_crack);
+
+		request->req_operation = req::req_return;
+	}
+
+	return node->nod_parent;
+}
+#endif
+#endif
+
+
+
+#ifdef PC_ENGINE
+static LCK implicit_record_lock(TRA transaction, RPB * rpb)
+{
+/**************************************
+ *
+ *	i m p l i c i t _ r e c o r d _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	An update to a record is being attempted and
+ *	record locking has been initiated.  Take out
+ *	an implicit record lock to prevent updating
+ *	a record that someone has explicitly locked.
+ *
+ **************************************/
+	LCK lock, record_locking;
+	REL relation;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	DEV_BLKCHK(transaction, type_tra);
+
+	relation = rpb->rpb_relation;
+	record_locking = relation->rel_record_locking;
+
+/* occasionally we should check whether we really still need to 
+   do record locking; this is defined as RECORD_LOCK_CHECK_INTERVAL--
+   if we can get a PR on the record locking lock there is no need
+   to do implicit locking anymore */
+
+	if ((record_locking->lck_physical == LCK_none) &&
+		!(relation->rel_lock_total % RECORD_LOCK_CHECK_INTERVAL) &&
+		LCK_lock_non_blocking(tdbb, record_locking, LCK_PR, FALSE))
+		return NULL;
+
+	if (!(lock = RLCK_lock_record_implicit(transaction, rpb, LCK_SW, 0, 0)))
+		ERR_post(gds__record_lock, 0);
+
+	return lock;
+}
+#endif
+
+
+static NOD looper(TDBB tdbb, REQ request, NOD in_node)
+{
+/**************************************
+ *
+ *	l o o p e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cycle thru request execution tree.  Return next node for
+ *	execution on stall or request complete.
+ *
+ **************************************/
+	DBB dbb;
+	STA impure;
+	SSHORT error_pending;
+	SLONG save_point_number;
+	SSHORT which_erase_trig = 0, which_sto_trig = 0, which_mod_trig = 0;
+	REQ old_request;
+	VOLATILE NOD node, top_node = NULL, prev_node;
+	TRA transaction;
+	JMP_BUF env, *old_env;
+	struct plb *old_pool;
+#if defined(DEBUG_GDS_ALLOC) && FALSE
+	int node_type;
+#endif
+
+
+/* If an error happens during the backout of a savepoint, then the transaction
+   must be marked 'dead' because that is the only way to clean up after a
+   failed backout.  The easiest way to do this is to kill the application
+   by calling bugcheck.
+   To facilitate catching errors during VIO_verb_cleanup, the following
+   define is used. */
+#define VERB_CLEANUP							\
+	{								\
+	JMP_BUF env2, *old_env2;					\
+	old_env2 = (JMP_BUF*) tdbb->tdbb_setjmp;			\
+	tdbb->tdbb_setjmp = (UCHAR*) env2;				\
+	if (!SETJMP (env2))						\
+	    {								\
+	    VIO_verb_cleanup (tdbb, transaction);				\
+	    tdbb->tdbb_setjmp = (UCHAR*) old_env2; /* restore old env */\
+	    }								\
+	else								\
+	    {								\
+	    /* Cause bugcheck to longjmp out of looper. */		\
+	    tdbb->tdbb_setjmp = (UCHAR*) old_env; 			\
+	    if (dbb->dbb_flags & DBB_bugcheck)				\
+		LONGJMP (reinterpret_cast<jmp_buf&>(old_env), (int) tdbb->tdbb_status_vector [1]);	\
+	    else							\
+	    	BUGCHECK (290); /* msg 290 error during savepoint backout */\
+	    }								\
+	}
+
+	if (!(transaction = request->req_transaction))
+		ERR_post(gds__req_no_trans, 0);
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	BLKCHK(in_node, type_nod);
+
+/* Save the old pool and request to restore on exit */
+
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = request->req_pool;
+	old_request = tdbb->tdbb_request;
+	tdbb->tdbb_request = request;
+	tdbb->tdbb_transaction = transaction;
+	save_point_number = (transaction->tra_save_point) ?
+		transaction->tra_save_point->sav_number : 0;
+
+	node = in_node;
+
+/* Catch errors so we can unwind cleanly */
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	error_pending = FALSE;
+
+	if (SETJMP(env)) {
+		/* If the database is already bug-checked, then get out. */
+		if (dbb->dbb_flags & DBB_bugcheck)
+			LONGJMP(reinterpret_cast < jmp_buf & >(old_env),
+					(int) tdbb->tdbb_status_vector[1]);
+
+#ifdef GATEWAY
+		/* Unwind request from connected DBMS's point of view.
+		   Set up special error handling in case something
+		   happens there. */
+
+		if (!SETJMP(env))
+			FRGN_unwind(request);
+
+		/* Continue with normal JRD unwind */
+#endif
+
+		/* Since an error happened, the current savepoint needs to be undone. */
+		if (transaction != dbb->dbb_sys_trans) {
+			++transaction->tra_save_point->sav_verb_count;
+			VERB_CLEANUP;
+		}
+
+		error_pending = TRUE;
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		request->req_operation = req::req_unwind;
+		request->req_label = 0;
+	}
+
+/* Execute stuff until we drop */
+
+	while (node && !(request->req_flags & req_stall)) {
+#ifdef MULTI_THREAD
+
+		if (request->req_operation == req::req_evaluate &&
+			(--tdbb->tdbb_quantum < 0) && !tdbb->tdbb_inhibit)
+			(void) JRD_reschedule(tdbb, 0, TRUE);
+
+#endif
+#if defined(DEBUG_GDS_ALLOC) && FALSE
+		node_type = node->nod_type;
+#endif
+		switch (node->nod_type) {
+		case nod_asn_list:
+			if (request->req_operation == req::req_evaluate) {
+				VOLATILE NOD *ptr, *end;
+
+				for (ptr = node->nod_arg, end = ptr + node->nod_count;
+					 ptr < end; ptr++)
+					EXE_assignment(tdbb, *ptr);
+				request->req_operation = req::req_return;
+			}
+			node = node->nod_parent;
+			break;
+
+		case nod_assignment:
+			if (request->req_operation == req::req_evaluate)
+				EXE_assignment(tdbb, node);
+			node = node->nod_parent;
+			break;
+
+		case nod_dcl_variable:
+			{
+				VLU variable;
+
+				variable = (VLU) ((SCHAR *) request + node->nod_impure);
+				variable->vlu_desc = *(DSC *) (node->nod_arg + e_dcl_desc);
+				variable->vlu_desc.dsc_flags = 0;
+				variable->vlu_desc.dsc_address =
+					(UCHAR *) & variable->vlu_misc;
+				if (variable->vlu_desc.dsc_dtype <= dtype_varying
+					&& !variable->vlu_string) {
+					variable->vlu_string =
+						(STR) ALLOCDV(type_str,
+									  variable->vlu_desc.dsc_length);
+					variable->vlu_string->str_length =
+						variable->vlu_desc.dsc_length;
+					variable->vlu_desc.dsc_address =
+						variable->vlu_string->str_data;
+				}
+				request->req_operation = req::req_return;
+				node = node->nod_parent;
+			}
+			break;
+
+		case nod_erase:
+			if ((request->req_operation == req::req_return) &&
+				(node->nod_arg[e_erase_sub_erase])) {
+				if (!top_node) {
+					top_node = node;
+					which_erase_trig = PRE_TRIG;
+				}
+				prev_node = node;
+				node = erase(tdbb, node, which_erase_trig);
+				if (which_erase_trig == PRE_TRIG) {
+					node = prev_node->nod_arg[e_erase_sub_erase];
+					node->nod_parent = prev_node;
+				}
+				if (top_node == prev_node && which_erase_trig == POST_TRIG) {
+					top_node = NULL;
+					which_erase_trig = ALL_TRIGS;
+				}
+				else
+					request->req_operation = req::req_evaluate;
+			}
+			else {
+				prev_node = node;
+				node = erase(tdbb, node, ALL_TRIGS);
+				if (!(prev_node->nod_arg[e_erase_sub_erase]) &&
+					which_erase_trig == PRE_TRIG)
+					which_erase_trig = POST_TRIG;
+			}
+			break;
+
+		case nod_exec_proc:
+			if (request->req_operation == req::req_unwind) {
+				node = node->nod_parent;
+				break;
+			}
+			execute_procedure(tdbb, node);
+			node = node->nod_parent;
+			request->req_operation = req::req_return;
+			break;
+
+		case nod_for:
+			switch (request->req_operation) {
+			case req::req_evaluate:
+				RSE_open(tdbb, (RSB) node->nod_arg[e_for_rsb]);
+			case req::req_return:
+				if (node->nod_arg[e_for_stall]) {
+					node = node->nod_arg[e_for_stall];
+					break;
+				}
+			case req::req_sync:
+				if (RSE_get_record(tdbb, (RSB) node->nod_arg[e_for_rsb],
+#ifdef SCROLLABLE_CURSORS
+								   RSE_get_next))
+#else
+								   RSE_get_forward))
+#endif
+				{
+					node = node->nod_arg[e_for_statement];
+					request->req_operation = req::req_evaluate;
+					break;
+				}
+				request->req_operation = req::req_return;
+			default:
+				RSE_close(tdbb, (RSB) node->nod_arg[e_for_rsb]);
+				node = node->nod_parent;
+			}
+			break;
+
+		case nod_abort:
+			switch (request->req_operation) {
+			case req::req_evaluate:
+				set_error(tdbb, reinterpret_cast < xcp * >(node->nod_arg[0]));
+
+			default:
+				node = node->nod_parent;
+			}
+			break;
+
+		case nod_start_savepoint:
+			switch (request->req_operation) {
+			case req::req_evaluate:
+				/* Start a save point */
+
+				if (transaction != dbb->dbb_sys_trans)
+					VIO_start_save_point(tdbb, transaction);
+
+			default:
+				node = node->nod_parent;
+				request->req_operation = req::req_return;
+			}
+			break;
+
+		case nod_end_savepoint:
+			switch (request->req_operation) {
+			case req::req_evaluate:
+			case req::req_unwind:
+				/* If any requested modify/delete/insert
+				   ops have completed, forget them */
+				if (transaction != dbb->dbb_sys_trans) {
+					/* If an error is still pending when the savepoint is 
+					   supposed to end, then the application didn't handle the
+					   error and the savepoint should be undone. */
+					if (error_pending)
+						++transaction->tra_save_point->sav_verb_count;
+					VERB_CLEANUP;
+				}
+
+			default:
+				node = node->nod_parent;
+				request->req_operation = req::req_return;
+			}
+			break;
+
+		case nod_handler:
+			switch (request->req_operation) {
+			case req::req_evaluate:
+				node = node->nod_arg[0];
+				break;
+
+			case req::req_unwind:
+				if (!request->req_label)
+					request->req_operation = req::req_return;
+
+			default:
+				node = node->nod_parent;
+			}
+			break;
+
+		case nod_block:
+			switch (request->req_operation) {
+				SLONG count;
+				SAV save_point;
+
+			case req::req_evaluate:
+				if (transaction != dbb->dbb_sys_trans) {
+					VIO_start_save_point(tdbb, transaction);
+					save_point = transaction->tra_save_point;
+					count = save_point->sav_number;
+					MOVE_FAST(&count,
+							  (SCHAR *) request + node->nod_impure,
+							  sizeof(SLONG));
+				}
+				node = node->nod_arg[e_blk_action];
+				break;
+
+			case req::req_unwind:
+				{
+					VOLATILE NOD handlers, *ptr, *end;
+
+					if (request->req_flags & req_leave) {
+			/** Although the req_operation is set to req_unwind
+			    it is not an error case if req_leave bit is set.
+			    req_leave bit indicates that we hit an EXIT 
+			    statement in the procedure code.
+			    Do not perform the error handling stuff.
+			**/
+						node = node->nod_parent;
+						break;
+					}
+					if (transaction != dbb->dbb_sys_trans) {
+						MOVE_FAST((SCHAR *) request + node->nod_impure,
+								  &count, sizeof(SLONG));
+						/* Since there occurred an error (req_unwind), undo all savepoints
+						   up to, but not including, the savepoint of this block.  The
+						   savepoint of this block will be dealt with below. */
+						for (save_point = transaction->tra_save_point;
+							 save_point && count < save_point->sav_number;
+							 save_point = transaction->tra_save_point) {
+							++transaction->tra_save_point->sav_verb_count;
+							VERB_CLEANUP;
+						}
+					}
+					if (handlers = node->nod_arg[e_blk_handlers]) {
+						ULONG prev_req_error_handler;
+
+						node = node->nod_parent;
+						for (ptr = handlers->nod_arg,
+							 end = ptr + handlers->nod_count; ptr < end;
+							 ptr++)
+								if (test_error
+									(tdbb,
+									 reinterpret_cast <
+									 xcp *
+									 >((*ptr)->nod_arg[e_err_conditions]))) {
+								request->req_operation = req::req_evaluate;
+								node = (*ptr)->nod_arg[e_err_action];
+								error_pending = FALSE;
+								/* On entering looper old_request etc. are saved.
+								   On recursive calling we will loose the actual old
+								   request for that invocation of looper. Avoid this. */
+								tdbb->tdbb_default = old_pool;
+								tdbb->tdbb_request = old_request;
+
+								/* Save the previous state of req_error_handler
+								   bit. We need to restore it later. This is
+								   necessary if the error handler is deeply 
+								   nested. */
+
+								prev_req_error_handler =
+									request->req_flags & req_error_handler;
+								request->req_flags |= req_error_handler;
+								node = looper(tdbb, request, node);
+								request->req_flags &= ~(req_error_handler);
+								request->req_flags |= prev_req_error_handler;
+
+								/* Note: Previously the above call
+								   "node = looper (tdbb, request, node);"
+								   never returned back till the node tree
+								   was executed completely. Now that the looper
+								   has changed its behaviour such that it
+								   returns back after handling error. This 
+								   makes it necessary that the jmpbuf be reset
+								   so that looper can proceede with the 
+								   preocessing of execution tree. If this is
+								   not done then anymore errors will take the
+								   engine out of looper there by abruptly
+								   terminating the processing. */
+
+								tdbb->tdbb_setjmp = (UCHAR *) env;
+								tdbb->tdbb_default = request->req_pool;
+								tdbb->tdbb_request = request;
+								/* The error is dealt with by the application, cleanup
+								   this block's savepoint. */
+								if (transaction != dbb->dbb_sys_trans) {
+									for (save_point =
+										 transaction->tra_save_point;
+										 save_point
+										 && count <= save_point->sav_number;
+										 save_point =
+										 transaction->tra_save_point)
+							   VERB_CLEANUP;
+								}
+							}
+					}
+					else
+						node = node->nod_parent;
+
+					/* If the application didn't have an error handler, then
+					   the error will still be pending.  Undo the block by
+					   using its savepoint. */
+
+					if (error_pending && transaction != dbb->dbb_sys_trans) {
+						++transaction->tra_save_point->sav_verb_count;
+						VERB_CLEANUP;
+					}
+				}
+				break;
+
+			case req::req_return:
+				if (transaction != dbb->dbb_sys_trans) {
+					MOVE_FAST((SCHAR *) request + node->nod_impure,
+							  &count, sizeof(SLONG));
+					for (save_point = transaction->tra_save_point;
+						 save_point && count <= save_point->sav_number;
+						 save_point = transaction->tra_save_point)
+						VERB_CLEANUP;
+				}
+			default:
+				node = node->nod_parent;
+			}
+			break;
+
+		case nod_error_handler:
+			if (request->req_flags & req_error_handler && !error_pending) {
+				tdbb->tdbb_setjmp = (UCHAR *) old_env;
+				return node;
+			}
+			node = node->nod_parent;
+			node = node->nod_parent;
+			if (request->req_operation == req::req_unwind)
+				node = node->nod_parent;
+			break;
+
+		case nod_label:
+			switch (request->req_operation) {
+			case req::req_evaluate:
+				node = node->nod_arg[e_lbl_statement];
+				break;
+
+			case req::req_unwind:
+				if (request->req_label == (USHORT) node->nod_arg[e_lbl_label]) {
+					request->req_flags &= ~req_leave;
+					request->req_operation = req::req_return;
+				}
+
+			default:
+				node = node->nod_parent;
+			}
+			break;
+
+		case nod_leave:
+			request->req_flags |= req_leave;
+			request->req_operation = req::req_unwind;
+			request->req_label = (USHORT) node->nod_arg[0];
+			node = node->nod_parent;
+			break;
+
+		case nod_list:
+			impure = (STA) ((SCHAR *) request + node->nod_impure);
+			switch (request->req_operation) {
+			case req::req_evaluate:
+				impure->sta_state = 0;
+			case req::req_return:
+			case req::req_sync:
+				if (impure->sta_state < node->nod_count) {
+					request->req_operation = req::req_evaluate;
+					node = node->nod_arg[impure->sta_state++];
+					break;
+				}
+				request->req_operation = req::req_return;
+			default:
+				node = node->nod_parent;
+			}
+			break;
+
+		case nod_loop:
+			switch (request->req_operation) {
+			case req::req_evaluate:
+			case req::req_return:
+				node = node->nod_arg[0];
+				request->req_operation = req::req_evaluate;
+				break;
+
+			default:
+				node = node->nod_parent;
+			}
+			break;
+
+		case nod_if:
+			if (request->req_operation == req::req_evaluate)
+				if (EVL_boolean(tdbb, node->nod_arg[e_if_boolean])) {
+					node = node->nod_arg[e_if_true];
+					break;
+				}
+				else if (node->nod_arg[e_if_false]) {
+					node = node->nod_arg[e_if_false];
+					break;
+				}
+				else
+					request->req_operation = req::req_return;
+			node = node->nod_parent;
+			break;
+
+		case nod_modify:
+			impure = (STA) ((SCHAR *) request + node->nod_impure);
+			if ((request->req_operation == req::req_return) &&
+				(!impure->sta_state) && (node->nod_arg[e_mod_sub_mod])) {
+				if (!top_node) {
+					top_node = node;
+					which_mod_trig = PRE_TRIG;
+				}
+				prev_node = node;
+				node = modify(tdbb, node, which_mod_trig);
+				if (which_mod_trig == PRE_TRIG) {
+					node = prev_node->nod_arg[e_mod_sub_mod];
+					node->nod_parent = prev_node;
+				}
+				if (top_node == prev_node && which_mod_trig == POST_TRIG) {
+					top_node = NULL;
+					which_mod_trig = ALL_TRIGS;
+				}
+				else
+					request->req_operation = req::req_evaluate;
+			}
+			else {
+				prev_node = node;
+				node = modify(tdbb, node, ALL_TRIGS);
+				if (!(prev_node->nod_arg[e_mod_sub_mod]) &&
+					which_mod_trig == PRE_TRIG) which_mod_trig = POST_TRIG;
+			}
+
+			break;
+
+		case nod_nop:
+			request->req_operation = req::req_return;
+			node = node->nod_parent;
+			break;
+
+		case nod_receive:
+			node = receive_msg(tdbb, node);
+			break;
+
+		case nod_post:
+			DFW_post_work(transaction, dfw_post_event,
+						  EVL_expr(tdbb, node->nod_arg[0]), 0);
+
+			/* for an autocommit transaction, events can be posted
+			 * without any updates */
+
+			if (transaction->tra_flags & TRA_autocommit)
+				transaction->tra_flags |= TRA_perform_autocommit;
+		case nod_message:
+			if (request->req_operation == req::req_evaluate)
+				request->req_operation = req::req_return;
+			node = node->nod_parent;
+			break;
+
+		case nod_stall:
+			node = stall(tdbb, node);
+			break;
+
+		case nod_select:
+			node = selct(tdbb, node);
+			break;
+
+		case nod_send:
+			node = send_msg(tdbb, node);
+			break;
+
+		case nod_store:
+			impure = (STA) ((SCHAR *) request + node->nod_impure);
+			if ((request->req_operation == req::req_return) &&
+				(!impure->sta_state) && (node->nod_arg[e_sto_sub_store])) {
+				if (!top_node) {
+					top_node = node;
+					which_sto_trig = PRE_TRIG;
+				}
+				prev_node = node;
+				node = store(tdbb, node, which_sto_trig);
+				if (which_sto_trig == PRE_TRIG) {
+					node = prev_node->nod_arg[e_sto_sub_store];
+					node->nod_parent = prev_node;
+				}
+				if (top_node == prev_node && which_sto_trig == POST_TRIG) {
+					top_node = NULL;
+					which_sto_trig = ALL_TRIGS;
+				}
+				else
+					request->req_operation = req::req_evaluate;
+			}
+			else {
+				prev_node = node;
+				node = store(tdbb, node, ALL_TRIGS);
+				if (!(prev_node->nod_arg[e_sto_sub_store]) &&
+					which_sto_trig == PRE_TRIG)
+					which_sto_trig = POST_TRIG;
+			}
+
+			break;
+
+#ifdef SCROLLABLE_CURSORS
+		case nod_seek:
+			node = seek_rse(tdbb, request, node);
+			break;
+#endif
+
+#ifdef PC_ENGINE
+		case nod_stream:
+			node = stream(tdbb, node);
+			break;
+
+		case nod_find:
+			node = find(tdbb, node);
+			break;
+
+		case nod_find_dbkey:
+		case nod_find_dbkey_version:
+			node = find_dbkey(tdbb, node);
+			break;
+
+		case nod_set_index:
+			node = set_index(tdbb, node);
+			break;
+
+		case nod_set_bookmark:
+			node = set_bookmark(tdbb, node);
+			break;
+
+		case nod_release_bookmark:
+			node = release_bookmark(tdbb, node);
+			break;
+
+		case nod_end_range:
+			node = RNG_end(node);
+			break;
+
+		case nod_delete_range:
+			node = RNG_delete(node);
+			break;
+
+		case nod_delete_ranges:
+			if (request->req_operation == req::req_evaluate) {
+				RNG_delete_ranges(request);
+				request->req_operation = req::req_return;
+			}
+			node = node->nod_parent;
+			break;
+
+		case nod_range_relation:
+			node = RNG_add_relation(node);
+			break;
+
+		case nod_release_lock:
+			if (request->req_operation == req::req_evaluate) {
+				DSC *desc;
+
+				desc = EVL_expr(tdbb, node->nod_arg[e_rellock_lock]);
+#if !defined(HAS_64BIT_POINTERS)
+				RLCK_release_lock(*(LCK *) desc->dsc_address);
+#else
+				{
+					ATT attachment;
+					LCK lock;
+					ULONG slot;
+					VEC vector;
+
+					attachment = tdbb->tdbb_attachment;
+
+					lock = NULL;
+					slot = *(ULONG *) desc->dsc_address;
+					if ((vector = attachment->att_lck_quick_ref) &&
+						slot < vector->vec_count)
+							lock = (LCK) vector->vec_object[slot];
+					RLCK_release_lock(lock);
+					vector->vec_object[slot] = NULL;
+				}
+#endif
+				request->req_operation = req::req_return;
+			}
+			node = node->nod_parent;
+			break;
+
+		case nod_release_locks:
+			if (request->req_operation == req::req_evaluate) {
+				RLCK_release_locks(request->req_attachment);
+				request->req_operation = req::req_return;
+			}
+			node = node->nod_parent;
+			break;
+
+		case nod_force_crack:
+			if (request->req_operation == req::req_evaluate) {
+				RSE_MARK_CRACK(tdbb, *(RSB *) node->nod_arg[1],
+							   irsb_crack | irsb_forced_crack);
+				request->req_operation = req::req_return;
+			}
+			node = node->nod_parent;
+			break;
+
+		case nod_reset_stream:
+			if (request->req_operation == req::req_evaluate) {
+				RSE_reset_position(tdbb,
+								   *(RSB *) node->nod_arg[e_reset_from_rsb],
+								   request->req_rpb +
+								   (USHORT) node->nod_arg[e_reset_to_stream]);
+				request->req_operation = req::req_return;
+			}
+			node = node->nod_parent;
+			break;
+#endif
+
+		case nod_set_generator:
+			if (request->req_operation == req::req_evaluate) {
+				DSC *desc;
+
+				desc = EVL_expr(tdbb, node->nod_arg[e_gen_value]);
+				(void) DPM_gen_id(tdbb, (SLONG) node->nod_arg[e_gen_id], 1,
+								  MOV_get_int64(desc, 0));
+				request->req_operation = req::req_return;
+			}
+			node = node->nod_parent;
+			break;
+
+		case nod_set_generator2:
+			if (request->req_operation == req::req_evaluate) {
+				DSC *desc;
+
+				desc = EVL_expr(tdbb, node->nod_arg[e_gen_value]);
+				(void) DPM_gen_id(tdbb, (SLONG) node->nod_arg[e_gen_id], 1,
+								  MOV_get_int64(desc, 0));
+				request->req_operation = req::req_return;
+			}
+			node = node->nod_parent;
+			break;
+
+		default:
+			BUGCHECK(168);		/* msg 168 looper: action not yet implemented */
+		}
+#ifdef HSDEBUGSTACK
+		TestStack();
+#endif
+#if defined(DEBUG_GDS_ALLOC) && defined(PROD_BUILD)
+		memory_count++;
+		if ((memory_count % memory_debug) == 0)
+			ALL_check_memory();
+#endif
+	}
+
+/* if there is no node, assume we have finished processing the 
+   request unless we are in the middle of processing an asynchronous message */
+
+	if (!node
+#ifdef SCROLLABLE_CURSORS
+		&& !(request->req_flags & req_async_processing)
+#endif
+		) {
+		request->req_flags &= ~(req_active | req_reserved);
+		request->req_timestamp = 0;
+		release_blobs(tdbb, request);
+	}
+
+	request->req_next = node;
+	tdbb->tdbb_default = old_pool;
+	tdbb->tdbb_transaction = (tdbb->tdbb_request = old_request) ?
+		old_request->req_transaction : NULL;
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+/* in the case of a pending error condition (one which did not
+   result in a longjmp to the top of looper), we need to delete
+   the last savepoint */
+
+	if (error_pending) {
+		if (transaction != dbb->dbb_sys_trans) {
+			SAV save_point;
+
+			for (save_point = transaction->tra_save_point; ((save_point)
+															&&
+															(save_point_number
+															 <= save_point->
+															 sav_number));
+				 save_point = transaction->tra_save_point) {
+				if (error_pending)
+					++transaction->tra_save_point->sav_verb_count;
+				VERB_CLEANUP;
+			}
+		}
+
+		ERR_punt();
+	}
+
+/* if the request was aborted, assume that we have already
+   longjmp'ed to the top of looper, and therefore that the last 
+   savepoint has already been deleted */
+
+	if (request->req_flags & req_abort)
+		ERR_post(gds_req_sync, 0);
+
+	return node;
+}
+
+
+static NOD modify(TDBB tdbb, register NOD node, SSHORT which_trig)
+{
+/**************************************
+ *
+ *	m o d i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a MODIFY statement.
+ *
+ **************************************/
+	DBB dbb;
+	register REQ request, trigger;
+	STA impure;
+	FMT org_format, new_format;
+	SSHORT org_stream, new_stream;
+	REC org_record, new_record;
+	RPB *org_rpb, *new_rpb;
+	REL relation;
+	TRA transaction;
+#ifdef PC_ENGINE
+	RSB rsb = NULL;
+	LCK implicit_lock = NULL, record_locking;
+	JMP_BUF env, *old_env;
+	IRSB irsb;
+#endif
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	BLKCHK(node, type_nod);
+
+	request = tdbb->tdbb_request;
+	transaction = request->req_transaction;
+	impure = (STA) ((SCHAR *) request + node->nod_impure);
+
+	org_stream = (USHORT) node->nod_arg[e_mod_org_stream];
+	org_rpb = &request->req_rpb[org_stream];
+	relation = org_rpb->rpb_relation;
+
+	new_stream = (USHORT) node->nod_arg[e_mod_new_stream];
+	new_rpb = &request->req_rpb[new_stream];
+
+#ifdef PC_ENGINE
+/* for navigational streams, retrieve the rsb */
+
+	if (node->nod_arg[e_mod_rsb]) {
+		rsb = *(RSB *) node->nod_arg[e_mod_rsb];
+		irsb = (IRSB) ((UCHAR *) request + rsb->rsb_impure);
+	}
+
+/* if we are on a crack in a navigational stream, modify is an illegal operation */
+
+	if (rsb && EXE_crack(tdbb, rsb, irsb_bof | irsb_eof | irsb_crack)) {
+		EXE_mark_crack(tdbb, rsb, irsb->irsb_flags);
+		request->req_operation = req::req_return;
+		return node->nod_parent;
+	}
+#endif
+
+/* If the stream was sorted, the various fields in the rpb are
+   probably junk.  Just to make sure that everything is cool,
+   refetch and release the record. */
+
+	if (org_rpb->rpb_stream_flags & RPB_s_refetch) {
+		SLONG tid_fetch;
+
+		tid_fetch = org_rpb->rpb_transaction;
+		if ((!DPM_get(tdbb, org_rpb, LCK_read)) ||
+			(!VIO_chase_record_version(tdbb,
+									   org_rpb,
+									   NULL,
+									   transaction,
+									   reinterpret_cast < BLK >
+									   (tdbb->tdbb_default))))
+				ERR_post(gds__deadlock, gds_arg_gds, gds__update_conflict, 0);
+		VIO_data(tdbb, org_rpb,
+				 reinterpret_cast < BLK > (tdbb->tdbb_request->req_pool));
+
+		/* If record is present, and the transaction is read committed,
+		 * make sure the record has not been updated.  Also, punt after
+		 * VIO_data () call which will release the page.
+		 */
+
+		if ((transaction->tra_flags & TRA_read_committed) &&
+			(tid_fetch != org_rpb->rpb_transaction))
+				ERR_post(gds__deadlock, gds_arg_gds, gds__update_conflict, 0);
+
+		org_rpb->rpb_stream_flags &= ~RPB_s_refetch;
+	}
+
+	switch (request->req_operation) {
+	case req::req_evaluate:
+		break;
+
+	case req::req_return:
+		if (impure->sta_state) {
+			impure->sta_state = 0;
+			org_record = org_rpb->rpb_record;
+			new_record = new_rpb->rpb_record;
+			MOVE_FASTER(new_record->rec_data, org_record->rec_data,
+						new_record->rec_length);
+			request->req_operation = req::req_evaluate;
+			return node->nod_arg[e_mod_statement];
+		}
+
+#ifndef GATEWAY
+#ifdef PC_ENGINE
+		/* check to see if record locking has been initiated in this database;
+		   if so then lock the record for shared write so that normal processing
+		   will be able to read or write the record but not when an explicit
+		   lock has been taken out */
+
+		if (!(transaction->tra_flags & TRA_degree3)) {
+			record_locking = RLCK_record_locking(relation);
+			if (record_locking->lck_physical != LCK_PR) {
+				implicit_lock = implicit_record_lock(transaction, org_rpb);
+
+				/* set up to catch any errors so that we can release the lock */
+
+				old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+				tdbb->tdbb_setjmp = (UCHAR *) env;
+				if (SETJMP(env)) {
+					tdbb->tdbb_setjmp = (UCHAR *) old_env;
+					RLCK_unlock_record_implicit(implicit_lock, 0);
+					LONGJMP(old_env, -1);
+				}
+			}
+		}
+#endif
+
+		if (transaction != dbb->dbb_sys_trans)
+			++transaction->tra_save_point->sav_verb_count;
+
+		if (relation->rel_pre_modify &&
+			which_trig != POST_TRIG &&
+			(trigger = execute_triggers(tdbb, &relation->rel_pre_modify,
+										org_rpb->rpb_record,
+										new_rpb->rpb_record)))
+				trigger_failure(tdbb, trigger);
+
+		if (node->nod_arg[e_mod_validate])
+			validate(tdbb, node->nod_arg[e_mod_validate]);
+
+		if (relation->rel_file)
+			EXT_modify(org_rpb, new_rpb,
+					   reinterpret_cast < int *>(transaction));
+		else if (!relation->rel_view_rse) {
+			SSHORT bad_index;
+			REL bad_relation;
+			IDX_E error_code;
+
+			VIO_modify(tdbb, org_rpb, new_rpb, transaction);
+			if (error_code = IDX_modify(tdbb,
+										org_rpb,
+										new_rpb,
+										transaction,
+										&bad_relation,
+										reinterpret_cast <
+										USHORT *
+										>(&bad_index)))
+					ERR_duplicate_error(error_code, bad_relation, bad_index);
+		}
+
+		if (relation->rel_post_modify &&
+			which_trig != PRE_TRIG &&
+			(trigger = execute_triggers(tdbb, &relation->rel_post_modify,
+										org_rpb->rpb_record,
+										new_rpb->rpb_record)))
+				trigger_failure(tdbb, trigger);
+
+		/* now call IDX_modify_check_constrints after all post modify triggers 
+		   have fired.  This is required for cascading referential integrity, 
+		   which can be implemented as post_erase triggers */
+
+		if (!relation->rel_file && !relation->rel_view_rse) {
+			SSHORT bad_index;
+			REL bad_relation;
+			IDX_E error_code;
+
+			if (error_code = IDX_modify_check_constraints(tdbb,
+														  org_rpb,
+														  new_rpb,
+														  transaction,
+														  &bad_relation,
+														  reinterpret_cast <
+														  USHORT *
+														  >(&bad_index)))
+					ERR_duplicate_error(error_code, bad_relation, bad_index);
+		}
+
+		if (transaction != dbb->dbb_sys_trans)
+			--transaction->tra_save_point->sav_verb_count;
+
+#ifdef PC_ENGINE
+		if (implicit_lock) {
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			RLCK_unlock_record_implicit(implicit_lock, 0);
+		}
+
+		/* if the stream is navigational, we must position the stream on the new 
+		   record version, but first set the record number  */
+
+		new_rpb->rpb_number = org_rpb->rpb_number;
+		if (rsb)
+			RSE_reset_position(tdbb, rsb, new_rpb);
+#endif
+#else
+		if (node->nod_arg[e_mod_validate])
+			validate(tdbb, node->nod_arg[e_mod_validate]);
+		VIO_modify(tdbb, org_rpb, new_rpb, transaction,
+				   node->nod_arg[e_mod_sql]);
+#endif
+
+		request->req_records_updated++;
+
+		if (which_trig != PRE_TRIG) {
+			org_record = org_rpb->rpb_record;
+			org_rpb->rpb_record = new_rpb->rpb_record;
+			new_rpb->rpb_record = org_record;
+		}
+
+	default:
+		return node->nod_parent;
+	}
+
+	impure->sta_state = 0;
+	RLCK_reserve_relation(tdbb, transaction, relation, TRUE, TRUE);
+
+/* Fall thru on evaluate to set up for modify before executing sub-statement.
+   This involves finding the appropriate format, making sure a record block
+   exists for the stream and is big enough, and copying fields from the
+   original record to the new record. */
+
+	new_format = MET_current(tdbb, new_rpb->rpb_relation);
+	new_record = VIO_record(tdbb, new_rpb, new_format, tdbb->tdbb_default);
+	new_rpb->rpb_address = new_record->rec_data;
+	new_rpb->rpb_length = new_format->fmt_length;
+	new_rpb->rpb_format_number = new_format->fmt_version;
+
+	if (!(org_record = org_rpb->rpb_record)) {
+		org_record =
+			VIO_record(tdbb, org_rpb, new_format, tdbb->tdbb_default);
+		org_format = org_record->rec_format;
+		org_rpb->rpb_address = org_record->rec_data;
+		org_rpb->rpb_length = org_format->fmt_length;
+		org_rpb->rpb_format_number = org_format->fmt_version;
+	}
+	else
+		org_format = org_record->rec_format;
+
+/* Copy the original record to the new record.  If the format hasn't changed,
+   this is a simple move.  If the format has changed, each field must be
+   fetched and moved separately, remembering to set the missing flag. */
+
+	if (new_format->fmt_version == org_format->fmt_version)
+		MOVE_FASTER(org_record->rec_data, new_rpb->rpb_address,
+					new_rpb->rpb_length);
+	else {
+		SSHORT i;
+		DSC org_desc, new_desc;
+
+		for (i = 0; i < new_format->fmt_count; i++) {
+			/* In order to "map a null to a default" value (in EVL_field()), 
+			 * the relation block is referenced. 
+			 * Reference: Bug 10116, 10424 
+			 */
+			CLEAR_NULL(new_record, i);
+			if (EVL_field(new_rpb->rpb_relation, new_record, i, &new_desc)) {
+				if (EVL_field
+					(org_rpb->rpb_relation, org_record, i,
+					 &org_desc)) MOV_move(&org_desc, &new_desc);
+				else {
+					SET_NULL(new_record, i);
+					if (new_desc.dsc_dtype) {
+						UCHAR *p;
+						USHORT n;
+
+						p = new_desc.dsc_address;
+						n = new_desc.dsc_length;
+						do
+							*p++ = 0;
+						while (--n);
+					}
+				}				/* if (org_record) */
+			}					/* if (new_record) */
+		}						/* for (fmt_count) */
+	}
+
+	if (node->nod_arg[e_mod_map_view]) {
+		impure->sta_state = 1;
+		return node->nod_arg[e_mod_map_view];
+	}
+
+	return node->nod_arg[e_mod_statement];
+}
+
+
+static NOD receive_msg(TDBB tdbb, register NOD node)
+{
+/**************************************
+ *
+ *	r e c e i v e _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a RECEIVE statement.  This can be entered either
+ *	with "req_evaluate" (ordinary receive statement) or
+ *	"req_proceed" (select statement).  In the latter case,
+ *	the statement isn't every formalled evaluated.
+ *
+ **************************************/
+	register REQ request;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	BLKCHK(node, type_nod);
+
+	switch (request->req_operation) {
+	case req::req_evaluate:
+		request->req_operation = req::req_receive;
+		request->req_message = node->nod_arg[e_send_message];
+		request->req_flags |= req_stall;
+		return node;
+
+	case req::req_proceed:
+		request->req_operation = req::req_evaluate;
+		return (node->nod_arg[e_send_statement]);
+
+	default:
+		return (node->nod_parent);
+	}
+}
+
+
+static void release_blobs(TDBB tdbb, REQ request)
+{
+/**************************************
+ *
+ *	r e l e a s e _ b l o b s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release temporary blobs assigned by this request.
+ *
+ **************************************/
+	TRA transaction;
+	BLB *blob;
+	ARR *array;
+
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(request, type_req);
+
+	if (transaction = request->req_transaction) {
+		DEV_BLKCHK(transaction, type_tra);
+
+		/* Release blobs assigned by this request */
+
+		for (blob = &transaction->tra_blobs; *blob;) {
+			DEV_BLKCHK(*blob, type_blb);
+			if ((*blob)->blb_request == request)
+				BLB_cancel(tdbb, *blob);
+			else
+				blob = &(*blob)->blb_next;
+		}
+
+		/* Release arrays assigned by this request */
+
+		for (array = &transaction->tra_arrays; *array;) {
+			DEV_BLKCHK(*array, type_arr);
+			if ((*array)->arr_request == request)
+				BLB_release_array(*array);
+			else
+				array = &(*array)->arr_next;
+		}
+	}
+}
+
+
+#ifdef PC_ENGINE
+static NOD release_bookmark(TDBB tdbb, NOD node)
+{
+/**************************************
+ *
+ *	r e l e a s e _ b o o k m a r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Deallocate the passed bookmark.
+ *
+ **************************************/
+	REQ request;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	BLKCHK(node, type_nod);
+
+	if (request->req_operation == req::req_evaluate) {
+		BKM_release(node->nod_arg[e_relmark_id]);
+		request->req_operation = req::req_return;
+	}
+
+	return node->nod_parent;
+}
+#endif
+
+
+static void release_proc_save_points(REQ request)
+{
+/**************************************
+ *
+ *	r e l e a s e _ p r o c _ s a v e _ p o i n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release temporary blobs assigned by this request.
+ *
+ **************************************/
+	TRA transaction;
+	SAV sav_point, temp_sav_point;
+
+/* Release savepoints assigned by this request */
+
+	if ((transaction = request->req_transaction) &&
+		(sav_point = request->req_proc_sav_point)) {
+		for (temp_sav_point = sav_point; temp_sav_point->sav_next;
+			 temp_sav_point = temp_sav_point->sav_next);
+		temp_sav_point->sav_next = transaction->tra_save_free;
+		transaction->tra_save_free = sav_point;
+	}
+	request->req_proc_sav_point = NULL;
+}
+
+
+static void release_triggers(TDBB tdbb, VEC vector)
+{
+/**************************************
+ *
+ *	r e l e a s e _ t r i g g e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release vector of triggers if inactive.
+ *
+ **************************************/
+	REQ *ptr, *end;
+
+	SET_TDBB(tdbb);
+
+	for (ptr = (REQ *) vector->vec_object, end = ptr + vector->vec_count;
+		 ptr < end; ptr++)
+		if (*ptr && CMP_clone_active(*ptr))
+			return;
+
+	for (ptr = (REQ *) vector->vec_object, end = ptr + vector->vec_count;
+		 ptr < end; ptr++)
+		if (*ptr)
+			CMP_release(tdbb, *ptr);
+
+	ALL_release(reinterpret_cast < frb * >(vector));
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+static NOD seek_rse(TDBB tdbb, REQ request, NOD node)
+{
+/**************************************
+ *
+ *      s e e k _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a nod_seek, which specifies 
+ *	a direction and offset in which to 
+ *	scroll a record selection expression.
+ *
+ **************************************/
+	USHORT direction;
+	SLONG offset;
+	RSE rse;
+
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(node, type_nod);
+
+	if (request->req_operation == req::req_proceed) {
+		/* get input arguments */
+
+		direction = MOV_get_long(EVL_expr(tdbb,
+										  node->nod_arg[e_seek_direction]),
+								 0);
+		offset =
+			MOV_get_long(EVL_expr(tdbb, node->nod_arg[e_seek_offset]), 0);
+
+		rse = (RSE) node->nod_arg[e_seek_rse];
+
+		seek_rsb(tdbb, request, rse->rse_rsb, direction, offset);
+
+		request->req_operation = req::req_return;
+	}
+
+	return node->nod_parent;
+}
+#endif
+
+
+#ifdef SCROLLABLE_CURSORS
+static void seek_rsb(
+					 TDBB tdbb,
+					 REQ request, RSB rsb, USHORT direction, SLONG offset)
+{
+/**************************************
+ *
+ *      s e e k _ r s b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allow scrolling through a stream as defined 
+ *	by the input rsb.  Handles cracks, refresh 
+ *	ranges, and multiple seeking.  Uses RSE_get_record ()
+ *	to do the actual work.
+ *
+ **************************************/
+	USHORT crack_flag = 0;
+	IRSB impure;
+	IRSB next_impure;
+
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(rsb, type_rsb);
+	impure = (IRSB) ((UCHAR *) request + rsb->rsb_impure);
+
+/* look past any boolean to the actual stream */
+
+	if (rsb->rsb_type == rsb_boolean) {
+		seek_rsb(tdbb, request, rsb->rsb_next, direction, offset);
+
+		/* set the backwards flag */
+
+		next_impure = (IRSB) ((UCHAR *) request + rsb->rsb_next->rsb_impure);
+
+		if (next_impure->irsb_flags & irsb_last_backwards)
+			impure->irsb_flags |= irsb_last_backwards;
+		else
+			impure->irsb_flags &= ~irsb_last_backwards;
+		return;
+	}
+
+/* do simple boundary checking for bof and eof */
+
+	switch (direction) {
+	case blr_forward:
+		if (impure->irsb_flags & irsb_eof)
+			ERR_post(isc_stream_eof, 0);
+		break;
+
+	case blr_backward:
+		if (impure->irsb_flags & irsb_bof)
+			ERR_post(isc_stream_bof, 0);
+		break;
+
+	case blr_bof_forward:
+	case blr_eof_backward:
+		break;
+
+	default:
+		BUGCHECK(232);
+	}
+
+/* the actual offset to seek may be one less because the next time 
+   through the blr_for loop we will seek one record--flag the fact 
+   that a fetch is required on this stream in case it doesn't happen 
+   (for example when GPRE generates BLR which does not stall prior to 
+   the blr_for, as DSQL does) */
+
+	if (offset > 0)
+		switch (direction) {
+		case blr_forward:
+		case blr_bof_forward:
+			if (!(impure->irsb_flags & irsb_last_backwards)) {
+				offset--;
+				if (!(impure->irsb_flags & irsb_bof))
+					request->req_flags |= req_fetch_required;
+			}
+			break;
+
+		case blr_backward:
+		case blr_eof_backward:
+			if (impure->irsb_flags & irsb_last_backwards) {
+				offset--;
+				if (!(impure->irsb_flags & irsb_eof))
+					request->req_flags |= req_fetch_required;
+			}
+			break;
+		}
+
+/* now do the actual seek */
+
+	switch (direction) {
+	case blr_forward:			/* go forward from the current location */
+
+#ifdef PC_ENGINE
+		if ((offset == 1) && request->req_begin_ranges)
+			impure->irsb_flags |= irsb_refresh;
+#endif
+
+		/* the rsb_backwards flag is used to indicate the direction to seek in; 
+		   this is sticky in the sense that after the user has seek'ed in the 
+		   backward direction, the next retrieval from a blr_for loop will also 
+		   be in the backward direction--this allows us to continue scrolling 
+		   without constantly sending messages to the engine */
+
+		impure->irsb_flags &= ~irsb_last_backwards;
+
+		while (offset) {
+			offset--;
+			if (!(RSE_get_record(tdbb, rsb, RSE_get_next)))
+				break;
+		}
+		break;
+
+	case blr_backward:			/* go backward from the current location */
+
+#ifdef PC_ENGINE
+		if ((offset == 1) && request->req_begin_ranges)
+			impure->irsb_flags |= irsb_refresh;
+#endif
+
+		impure->irsb_flags |= irsb_last_backwards;
+
+		while (offset) {
+			offset--;
+			if (!(RSE_get_record(tdbb, rsb, RSE_get_next)))
+				break;
+		}
+		break;
+
+	case blr_bof_forward:		/* go forward from the beginning of the stream */
+
+		RSE_close(tdbb, rsb);
+		RSE_open(tdbb, rsb);
+
+		impure->irsb_flags &= ~irsb_last_backwards;
+
+		while (offset) {
+			offset--;
+			if (!(RSE_get_record(tdbb, rsb, RSE_get_next)))
+				break;
+		}
+		break;
+
+	case blr_eof_backward:		/* go backward from the end of the stream */
+
+		RSE_close(tdbb, rsb);
+		RSE_open(tdbb, rsb);
+
+		/* if this is a stream type which uses bof and eof flags, 
+		   reverse the sense of bof and eof in this case */
+
+		if (impure->irsb_flags & irsb_bof) {
+			impure->irsb_flags &= ~irsb_bof;
+			impure->irsb_flags |= irsb_eof;
+		}
+
+		impure->irsb_flags |= irsb_last_backwards;
+
+		while (offset) {
+			offset--;
+			if (!(RSE_get_record(tdbb, rsb, RSE_get_next)))
+				break;
+		}
+		break;
+
+	default:
+		BUGCHECK(232);
+	}
+
+#ifdef PC_ENGINE
+	impure->irsb_flags &= ~irsb_refresh;
+#endif
+}
+#endif
+
+
+static NOD selct(TDBB tdbb, register NOD node)
+{
+/**************************************
+ *
+ *	s e l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a SELECT statement.  This is more than a little
+ *	obscure.  We first set up the SELECT statement as the
+ *	"message" and stall on receive (waiting for user send).
+ *	EXE_send will then loop thru the sub-statements of select
+ *	looking for the appropriate RECEIVE statement.  When (or if)
+ *	it finds it, it will set it up the next statement to be
+ *	executed.  The RECEIVE, then, will be entered with the
+ *	operation "req_proceed."
+ *
+ **************************************/
+	register REQ request;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	BLKCHK(node, type_nod);
+
+	switch (request->req_operation) {
+	case req::req_evaluate:
+		request->req_message = node;
+		request->req_operation = req::req_receive;
+		request->req_flags |= req_stall;
+		return node;
+
+	default:
+		return node->nod_parent;
+	}
+}
+
+
+
+static NOD send_msg(TDBB tdbb, register NOD node)
+{
+/**************************************
+ *
+ *	s e n d _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a SEND statement.
+ *
+ **************************************/
+	register REQ request;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	BLKCHK(node, type_nod);
+
+	switch (request->req_operation) {
+	case req::req_evaluate:
+		return (node->nod_arg[e_send_statement]);
+
+	case req::req_return:
+		request->req_operation = req::req_send;
+		request->req_message = node->nod_arg[e_send_message];
+		request->req_flags |= req_stall;
+		return node;
+
+	case req::req_proceed:
+		request->req_operation = req::req_return;
+		return node->nod_parent;
+
+	default:
+		return (node->nod_parent);
+	}
+}
+
+
+#ifdef PC_ENGINE
+static NOD set_bookmark(TDBB tdbb, NOD node)
+{
+/**************************************
+ *
+ *	s e t _ b o o k m a r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set a stream to the location of the
+ *	specified bookmark.
+ *
+ **************************************/
+	REQ request;
+	BKM bookmark;
+	USHORT stream;
+	RPB *rpb;
+	RSB rsb;
+	IRSB impure;
+
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	BLKCHK(node, type_nod);
+
+	if (request->req_operation == req::req_evaluate) {
+		bookmark = BKM_lookup(node->nod_arg[e_setmark_id]);
+		stream = (USHORT) node->nod_arg[e_setmark_stream];
+		rpb = &request->req_rpb[stream];
+		rsb = *((RSB *) node->nod_arg[e_setmark_rsb]);
+		impure = (IRSB) ((UCHAR *) request + rsb->rsb_impure);
+
+		/* check if the bookmark was at beginning or end of file 
+		   and flag the rsb accordingly */
+
+		RSE_MARK_CRACK(tdbb, rsb, 0);
+		if (bookmark->bkm_flags & bkm_bof)
+			RSE_MARK_CRACK(tdbb, rsb, irsb_bof);
+		else if (bookmark->bkm_flags & bkm_eof)
+			RSE_MARK_CRACK(tdbb, rsb, irsb_eof);
+		else if (bookmark->bkm_flags & bkm_crack) {
+			RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+			if (bookmark->bkm_flags & bkm_forced_crack)
+				RSE_MARK_CRACK(tdbb, rsb, irsb_forced_crack);
+		}
+
+		if (!RSE_set_bookmark(tdbb, rsb, rpb, bookmark))
+			EXE_mark_crack(tdbb, rsb,
+						   impure->irsb_flags & (irsb_crack | irsb_eof |
+												 irsb_bof));
+
+		request->req_operation = req::req_return;
+	}
+
+	return node->nod_parent;
+}
+#endif
+
+
+static void set_error(TDBB tdbb, XCP condition)
+{
+/**************************************
+ *
+ *	s e t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set status vector according to specified error condition
+ *	and jump to handle error accordingly.
+ *
+ **************************************/
+	register REQ request;
+	TEXT name[32], relation_name[32], message[82], *s, *r;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+
+	switch (condition->xcp_rpt[0].xcp_type) {
+	case xcp_sql_code:
+		ERR_post(gds__sqlerr,
+				 gds_arg_number, (SLONG) condition->xcp_rpt[0].xcp_code, 0);
+
+	case xcp_gds_code:
+		if (condition->xcp_rpt[0].xcp_code == gds__check_constraint) {
+			MET_lookup_cnstrt_for_trigger(tdbb, name, relation_name,
+										  request->req_trg_name);
+			s = (name[0]) ? name : "";
+			r = (relation_name[0]) ? relation_name : "";
+			ERR_post(condition->xcp_rpt[0].xcp_code,
+					 gds_arg_string, ERR_cstring(s),
+					 gds_arg_string, ERR_cstring(r), 0);
+		}
+		else
+			ERR_post(condition->xcp_rpt[0].xcp_code, 0);
+
+	case xcp_xcp_code:
+		MET_lookup_exception(tdbb, condition->xcp_rpt[0].xcp_code,
+							 name, message);
+		if (message[0])
+			s = message;
+		else if (name[0])
+			s = name;
+		else
+			s = NULL;
+		if (s)
+			ERR_post(gds__except,
+					 gds_arg_number, (SLONG) condition->xcp_rpt[0].xcp_code,
+					 gds_arg_gds, gds__random, gds_arg_string, ERR_cstring(s),
+					 0);
+		else
+			ERR_post(gds__except, gds_arg_number,
+					 (SLONG) condition->xcp_rpt[0].xcp_code, 0);
+	}
+}
+
+
+#ifdef PC_ENGINE
+static NOD set_index(TDBB tdbb, register NOD node)
+{
+/**************************************
+ *
+ *	s e t _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a SET INDEX statement.
+ *
+ **************************************/
+	register REQ request;
+	USHORT stream, id;
+	RPB *rpb;
+	REL relation;
+	IDX idx;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	BLKCHK(node, type_nod);
+
+	if (request->req_operation == req::req_evaluate) {
+		stream = (USHORT) node->nod_arg[e_index_stream];
+
+		rpb = &request->req_rpb[stream];
+		relation = rpb->rpb_relation;
+
+		/* if id is non-zero, get the index definition;
+		   otherwise it indicates revert to natural order */
+
+		id = MOV_get_long(EVL_expr(tdbb, node->nod_arg[e_index_index]), 0);
+		if (id && BTR_lookup(tdbb, relation, id - 1, &idx))
+			ERR_post(gds__indexnotdefined, gds_arg_string, relation->rel_name,
+					 gds_arg_number, (SLONG) id, 0);
+
+		/* generate a new rsb in place of the old */
+
+		RSE_close(tdbb, *(RSB *) node->nod_arg[e_index_rsb]);
+		OPT_set_index(tdbb, request, (RSB *) node->nod_arg[e_index_rsb],
+					  relation, id ? &idx : (IDX *) 0);
+		RSE_open(tdbb, *(RSB *) node->nod_arg[e_index_rsb]);
+
+		request->req_operation = req::req_return;
+	}
+
+	return node->nod_parent;
+}
+#endif
+
+
+static NOD stall(TDBB tdbb, register NOD node)
+{
+/**************************************
+ *
+ *	s t a l l 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a stall statement.
+ *	This is like a blr_receive, except that there is no
+ *	need for a gds__send () from the user (i.e. EXE_send () in the engine).
+ *	A gds__receive () will unblock the user.
+ *
+ **************************************/
+	register REQ request;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	BLKCHK(node, type_nod);
+
+	switch (request->req_operation) {
+	case req::req_sync:
+		return node->nod_parent;
+
+	case req::req_proceed:
+		request->req_operation = req::req_return;
+		return node->nod_parent;
+
+	default:
+		request->req_message = node;
+		request->req_operation = req::req_return;
+		request->req_flags |= req_stall;
+		return node;
+	}
+}
+
+
+static NOD store(TDBB tdbb, register NOD node, SSHORT which_trig)
+{
+/**************************************
+ *
+ *	s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a STORE statement.
+ *
+ **************************************/
+	DBB dbb;
+	register REQ request;
+	STA impure;
+	REQ trigger;
+	FMT format;
+	SSHORT stream, n;
+	USHORT length;
+	REC record;
+	RPB *rpb;
+	DSC *desc;
+	REL relation;
+	TRA transaction;
+	register UCHAR *p;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	BLKCHK(node, type_nod);
+
+	request = tdbb->tdbb_request;
+	transaction = request->req_transaction;
+	impure = (STA) ((SCHAR *) request + node->nod_impure);
+	stream = (USHORT) node->nod_arg[e_sto_relation]->nod_arg[e_rel_stream];
+	rpb = &request->req_rpb[stream];
+	relation = rpb->rpb_relation;
+
+	switch (request->req_operation) {
+	case req::req_evaluate:
+		impure->sta_state = 0;
+		RLCK_reserve_relation(tdbb, transaction, relation, TRUE, TRUE);
+		break;
+
+	case req::req_return:
+		if (impure->sta_state)
+			return node->nod_parent;
+		record = rpb->rpb_record;
+		format = record->rec_format;
+
+#ifndef GATEWAY
+		if (transaction != dbb->dbb_sys_trans)
+			++transaction->tra_save_point->sav_verb_count;
+
+		if (relation->rel_pre_store &&
+			(which_trig != POST_TRIG) &&
+			(trigger = execute_triggers(tdbb, &relation->rel_pre_store,
+										0, record)))
+				trigger_failure(tdbb, trigger);
+#endif
+
+		if (node->nod_arg[e_sto_validate])
+			validate(tdbb, node->nod_arg[e_sto_validate]);
+
+		/* For optimum on-disk record compression, zero all unassigned
+		   fields. In addition, zero the tail of assigned varying fields
+		   so that previous remnants don't defeat compression efficiency. */
+
+		for (n = 0; n < format->fmt_count; n++) {
+			desc = &format->fmt_desc[n];
+			if (!desc->dsc_address)
+				continue;
+			p = record->rec_data + (SLONG) desc->dsc_address;
+			if (TEST_NULL(record, n)) {
+				if (length = desc->dsc_length)
+					do
+						*p++ = 0;
+					while (--length);
+			}
+			else if (desc->dsc_dtype == dtype_varying) {
+				VARY *vary;
+
+				vary = (VARY *) p;
+				if ((length = desc->dsc_length - sizeof(USHORT)) >
+					vary->vary_length) {
+					p = vary->vary_string + vary->vary_length;
+					length -= vary->vary_length;
+					do
+						*p++ = 0;
+					while (--length);
+				}
+			}
+		}
+
+#ifndef GATEWAY
+		if (relation->rel_file)
+			EXT_store(rpb, reinterpret_cast < int *>(transaction));
+		else if (!relation->rel_view_rse) {
+			SSHORT bad_index;
+			REL bad_relation;
+			IDX_E error_code;
+
+			VIO_store(tdbb, rpb, transaction);
+			if ((error_code = IDX_store(tdbb,
+										rpb,
+										transaction,
+										&bad_relation,
+										reinterpret_cast <
+										USHORT *
+										>(&bad_index))))
+					ERR_duplicate_error(error_code, bad_relation, bad_index);
+		}
+
+		if (relation->rel_post_store &&
+			(which_trig != PRE_TRIG) &&
+			(trigger = execute_triggers(tdbb, &relation->rel_post_store,
+										0, record)))
+				trigger_failure(tdbb, trigger);
+
+		request->req_records_inserted++;
+
+		if (transaction != dbb->dbb_sys_trans)
+			--transaction->tra_save_point->sav_verb_count;
+#else
+		VIO_store(tdbb, rpb, transaction, node->nod_arg[e_sto_sql]);
+#endif
+
+		if (node->nod_arg[e_sto_statement2]) {
+			impure->sta_state = 1;
+			request->req_operation = req::req_evaluate;
+			return node->nod_arg[e_sto_statement2];
+		}
+
+	default:
+		return node->nod_parent;
+	}
+
+/* Fall thru on evaluate to set up for store before executing sub-statement.
+   This involves finding the appropriate format, making sure a record block
+   exists for the stream and is big enough, and initialize all null flags
+   to "missing." */
+
+	format = MET_current(tdbb, relation);
+	record = VIO_record(tdbb, rpb, format, tdbb->tdbb_default);
+
+	rpb->rpb_address = record->rec_data;
+	rpb->rpb_length = format->fmt_length;
+	rpb->rpb_format_number = format->fmt_version;
+
+/* Initialize all fields to missing */
+
+#ifndef GATEWAY
+	p = record->rec_data;
+	if (n = (format->fmt_count + 7) >> 3)
+		do
+			*p++ = 0xff;
+		while (--n);
+#else
+	EXE_set_fields_null(tdbb, record, format);
+#endif
+
+	return node->nod_arg[e_sto_statement];
+}
+
+
+#ifdef PC_ENGINE
+static NOD stream(TDBB tdbb, register NOD node)
+{
+/**************************************
+ *
+ *	s t r e a m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a STREAM statement.
+ *
+ **************************************/
+	register REQ request;
+	RSB rsb;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	BLKCHK(node, type_nod);
+
+	rsb = ((RSE) node)->rse_rsb;
+
+	switch (request->req_operation) {
+	case req::req_evaluate:
+		RSE_open(tdbb, rsb);
+		request->req_operation = req::req_return;
+
+	case req::req_return:
+		node = node->nod_parent;
+		break;
+
+	default:
+		RSE_close(tdbb, rsb);
+		node = node->nod_parent;
+	}
+
+	return node;
+}
+#endif
+
+
+static BOOLEAN test_error(TDBB tdbb, XCP conditions)
+{
+/**************************************
+ *
+ *	t e s t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Test for match of current state with list of error conditions.
+ *
+ **************************************/
+	SSHORT i, sqlcode;
+	STATUS *status_vector;
+
+	SET_TDBB(tdbb);
+	status_vector = tdbb->tdbb_status_vector;
+	sqlcode = gds__sqlcode(status_vector);
+
+	for (i = 0; i < conditions->xcp_count; i++) {
+		switch (conditions->xcp_rpt[i].xcp_type) {
+		case xcp_sql_code:
+			if (sqlcode == conditions->xcp_rpt[i].xcp_code) {
+				status_vector[0] = 0;
+				status_vector[1] = 0;
+				return TRUE;
+			}
+			break;
+
+		case xcp_gds_code:
+			if (status_vector[1] == conditions->xcp_rpt[i].xcp_code) {
+				status_vector[0] = 0;
+				status_vector[1] = 0;
+				return TRUE;
+			}
+			break;
+
+		case xcp_xcp_code:
+			if ((status_vector[1] == gds__except) &&
+				(status_vector[3] == conditions->xcp_rpt[i].xcp_code)) {
+				status_vector[0] = 0;
+				status_vector[1] = 0;
+				return TRUE;
+			}
+			break;
+
+		case xcp_default:
+			status_vector[0] = 0;
+			status_vector[1] = 0;
+			return TRUE;
+		}
+	}
+
+	return FALSE;
+}
+
+
+#ifndef GATEWAY
+static void trigger_failure(TDBB tdbb, REQ trigger)
+{
+/**************************************
+ *
+ *	t r i g g e r _ f a i l u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Trigger failed, report error.
+ *
+ **************************************/
+	TEXT *msg;
+	STATUS code;
+
+	SET_TDBB(tdbb);
+	EXE_unwind(tdbb, trigger);
+	trigger->req_attachment = NULL;
+	trigger->req_flags &= ~req_in_use;
+	trigger->req_timestamp = 0;
+	if (trigger->req_flags & req_leave) {
+		trigger->req_flags &= ~req_leave;
+		if (trigger->req_trg_name &&
+			(msg =
+			 MET_trigger_msg(tdbb, trigger->req_trg_name,
+							 trigger->req_label))) {
+			if (trigger->req_flags & req_sys_trigger) {
+				code = PAR_symbol_to_gdscode(msg);
+				if (code)
+					ERR_post(gds__integ_fail,
+							 gds_arg_number, (SLONG) trigger->req_label,
+							 gds_arg_gds, code, 0);
+			}
+			ERR_post(gds__integ_fail,
+					 gds_arg_number, (SLONG) trigger->req_label,
+					 gds_arg_gds, gds__random, gds_arg_string, msg, 0);
+		}
+		else
+			ERR_post(gds__integ_fail, gds_arg_number,
+					 (SLONG) trigger->req_label, 0);
+	}
+	else
+		ERR_punt();
+}
+#endif
+
+
+static void validate(TDBB tdbb, NOD list)
+{
+/**************************************
+ *
+ *	v a l i d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a list of validation expressions.
+ *
+ **************************************/
+	NOD *ptr1, *ptr2;
+
+	SET_TDBB(tdbb);
+	BLKCHK(list, type_nod);
+
+	for (ptr1 = list->nod_arg, ptr2 = ptr1 + list->nod_count;
+		 ptr1 < ptr2; ptr1++)
+	{
+		if (!EVL_boolean(tdbb, (*ptr1)->nod_arg[e_val_boolean]))
+		{
+			/* Validation error -- report result */
+
+			NOD			node;
+			VEC			vector;
+			REL			relation;
+			REQ			request;
+			FLD			field;
+			TEXT*		value;
+			TEXT		temp[128];
+			CONST TEXT*	name;
+			USHORT length, stream, id;
+
+			node = (*ptr1)->nod_arg[e_val_value];
+			request = tdbb->tdbb_request;
+			length = MOV_make_string(EVL_expr(tdbb, node),
+									 ttype_dynamic,
+									 reinterpret_cast<UCHAR**>(&value),
+									 reinterpret_cast<VARY*>(temp),
+									 sizeof(temp));
+
+			if (request->req_flags & req_null ||
+				request->req_flags & req_clone_data_from_default_clause)
+			{
+				value = "*** null ***";
+			}
+			else if (!length)
+			{
+				value = "";
+			}
+			else
+			{
+				value = ERR_string(value, length);
+			}
+
+			if (node->nod_type == nod_field)
+			{
+				stream = (USHORT) node->nod_arg[e_fld_stream];
+				id = (USHORT) node->nod_arg[e_fld_id];
+				relation = request->req_rpb[stream].rpb_relation;
+
+				if ((vector = relation->rel_fields) &&
+					id < vector->vec_count &&
+					(field = (FLD) vector->vec_object[id]))
+				{
+					name = field->fld_name;
+				}
+			}
+
+			if (!name)
+			{
+				name = "*** unknown ***";
+			}
+
+			ERR_post(gds__not_valid, gds_arg_string, name,
+					 gds_arg_string, value, 0);
+		}
+	}
+}
+
+
+} // extern "C"
diff --git a/src/jrd/exe.h b/src/jrd/exe.h
new file mode 100644
index 0000000000..2d8e0010db
--- /dev/null
+++ b/src/jrd/exe.h
@@ -0,0 +1,596 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		exe.h
+ *	DESCRIPTION:	Execution block definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_EXE_H_
+#define _JRD_EXE_H_
+
+#define NODE(type, name, keyword) type,
+
+typedef ENUM nod_t {
+#include "../jrd/nod.h"
+	nod_MAX
+#undef NODE
+} NOD_T;
+
+#include "../jrd/dsc.h"
+
+
+/* NOTE: The definition of structures rse and lit must be defined in
+	 exactly the same way as structure nod through item nod_count.
+	 If you change one, be sure to change all of them. */
+
+typedef struct nod {
+	struct blk nod_header;
+	struct nod *nod_parent;
+	SLONG nod_impure;			/* Inpure offset from request block */
+	NOD_T nod_type;				/* Type of node */
+	UCHAR nod_flags;
+	SCHAR nod_scale;			/* Target scale factor */
+	USHORT nod_count;			/* Number of arguments */
+	struct nod *nod_arg[1];
+} *NOD;
+
+#define nod_comparison 	1
+#define nod_id		1			/* marks a field node as a blr_fid guy */
+#define nod_quad	2			/* compute in quad (default is long) */
+#define nod_any_and     2		/* and node is mapping of quantified predicate */
+#define nod_double	4
+#define nod_date	8
+#define nod_value	16			/* full value area required in impure space */
+#define nod_evaluate	32		/* (Gateway only) */
+#define nod_agg_dbkey	64		/* dbkey of an aggregate */
+#define nod_invariant	128		/* node is recognized as being invariant */
+
+
+
+/* Special RSE node */
+
+typedef struct rse {
+	struct blk nod_header;
+	struct nod *nod_parent;
+	SLONG nod_impure;			/* Inpure offset from request block */
+	NOD_T nod_type;				/* Type of node */
+	UCHAR nod_flags;
+	SCHAR nod_scale;			/* Target scale factor */
+	USHORT nod_count;			/* Number of arguments */
+	USHORT rse_count;
+	USHORT rse_jointype;		/* inner, left, right, full */
+	struct rsb *rse_rsb;
+	struct nod *rse_first;
+	struct nod *rse_boolean;
+	struct nod *rse_sorted;
+	struct nod *rse_projection;
+	struct nod *rse_aggregate;	/* singleton aggregate for optimizing to index */
+	struct nod *rse_plan;		/* user-specified access plan */
+#ifdef SCROLLABLE_CURSORS
+	struct nod *rse_async_message;	/* asynchronous message to send for scrolling */
+#endif
+	struct nod *rse_relation[1];
+} *RSE;
+
+#define rse_stream	1			/* flags rse-type node as a blr_stream type */
+#define rse_singular	2		/* flags rse-type node as from a singleton select */
+#define rse_variant	4			/* flags rse as variant (not invariant?) */
+
+#define rse_delta	(sizeof(struct rse)-sizeof(struct nod))/sizeof(((NOD) 0)->nod_arg[0])
+
+
+/* Literal value */
+
+typedef struct lit {
+	struct blk nod_header;
+	struct nod *nod_parent;
+	SLONG nod_impure;			/* Inpure offset from request block */
+	NOD_T nod_type;				/* Type of node */
+	UCHAR nod_flags;
+	SCHAR nod_scale;			/* Target scale factor */
+	USHORT nod_count;			/* Number of arguments */
+	struct dsc lit_desc;
+	UCHAR lit_data[1];
+} *LIT;
+
+#define lit_delta	(sizeof (struct dsc) / sizeof (NOD*))
+
+
+/* Aggregate Sort Block (for DISTINCT aggregates) */
+
+typedef struct asb {
+	struct blk nod_header;
+	struct nod *nod_parent;
+	SLONG nod_impure;			/* Impure offset from request block */
+	NOD_T nod_type;				/* Type of node */
+	UCHAR nod_flags;
+	SCHAR nod_scale;
+	USHORT nod_count;
+	struct dsc asb_desc;
+	struct skd *asb_key_desc;	/* for the aggregate   */
+	UCHAR asb_key_data[1];
+} *ASB;
+
+#define asb_delta	((sizeof(struct asb) - sizeof(struct nod)) / sizeof (NOD*))
+
+
+/* Various structures in the impure area */
+
+typedef struct sta {
+	SSHORT sta_state;
+} *STA;
+
+typedef struct vlu {
+	struct dsc vlu_desc;
+	struct str *vlu_string;
+	union {
+		SSHORT vlu_short;
+		SLONG vlu_long;
+		SINT64 vlu_int64;
+		SQUAD vlu_quad;
+		SLONG vlu_dbkey[2];
+		float vlu_float;
+		double vlu_double;
+		GDS_TIMESTAMP vlu_timestamp;
+		GDS_TIME vlu_sql_time;
+		GDS_DATE vlu_sql_date;
+	} vlu_misc;
+} *VLU;
+
+typedef struct vlux {
+	struct dsc vlu_desc;
+	struct str *vlu_string;
+	union {
+		SSHORT vlu_short;
+		SLONG vlu_long;
+		SINT64 vlu_int64;
+		SQUAD vlu_quad;
+		SLONG vlu_dbkey[2];
+		float vlu_float;
+		double vlu_double;
+		GDS_TIMESTAMP vlu_timestamp;
+		GDS_TIME vlu_sql_time;
+		GDS_DATE vlu_sql_date;
+	} vlu_misc;
+	SLONG vlux_count;
+} *VLUX;
+
+
+
+#ifdef GATEWAY
+typedef struct vluk {
+	struct dsc vlu_desc;
+	struct str *vlu_string;
+	union {
+		SSHORT vlu_short;
+		SLONG vlu_long;
+		SINT64 vlu_int64;
+		SQUAD vlu_quad;
+		SLONG vlu_dbkey[2];
+		float vlu_float;
+		double vlu_double;
+		SCHAR vlu_rowid[18];
+		GDS_TIMESTAMP vlu_timestamp;
+		GDS_TIME vlu_sql_time;
+		GDS_DATE vlu_sql_date;
+	} vlu_misc;
+} *VLUK;
+#endif
+
+#define VLU_computed	1		/* An invariant sub-query has been computed */
+#define VLU_null	2			/* An invariant sub-query computed to null */
+
+
+/* Inversion (i.e. nod_index) impure area */
+
+typedef struct inv {
+	struct sbm *inv_bitmap;
+} *INV;
+
+
+/* ASB impure area */
+
+typedef struct iasb {
+	SLONG *iasb_sort_handle;
+} *IASB;
+
+
+/* Various field positions */
+
+#define	e_for_re		0
+#define	e_for_statement		1
+#define	e_for_stall		2
+#define	e_for_rsb		3
+#define	e_for_length		4
+
+#define	e_arg_flag		0
+#define e_arg_indicator		1
+#define	e_arg_message		2
+#define	e_arg_number		3
+#define	e_arg_length		4
+
+#define	e_msg_number		0
+#define	e_msg_format		1
+#define	e_msg_next		2
+#define	e_msg_length		3
+
+#define	e_fld_stream		0
+#define	e_fld_id		1
+#define	e_fld_default_value	2	/* hold column default value info if any,
+								   (LIT) */
+#define	e_fld_length		3
+
+#define	e_sto_statement		0
+#define	e_sto_statement2	1
+#define e_sto_sub_store		2
+#define e_sto_validate		3
+#define	e_sto_relation		4
+#define e_sto_stream		5
+#ifndef GATEWAY
+#define	e_sto_length		6
+#else
+#define e_sto_sql		6
+#define	e_sto_length		7
+#endif
+
+#define e_erase_statement	0
+#define e_erase_sub_erase 	1
+#define	e_erase_stream		2
+#define e_erase_rsb		3
+#ifndef GATEWAY
+#define	e_erase_length		4
+#else
+#define e_erase_sql		4
+#define	e_erase_length		5
+#endif
+
+#define	e_mod_statement		0
+#define e_mod_sub_mod		1
+#define e_mod_validate		2
+#define e_mod_map_view		3
+#define	e_mod_org_stream	4
+#define	e_mod_new_stream	5
+#define e_mod_rsb		6
+#ifndef GATEWAY
+#define	e_mod_length		7
+#else
+#define e_mod_sql		7
+#define	e_mod_length		8
+#endif
+
+#define	e_send_statement	0
+#define	e_send_message		1
+#define	e_send_length		2
+
+#define	e_asgn_from		0
+#define	e_asgn_to		1
+#define e_asgn_missing		2	/* Value for comparison for missing */
+#define e_asgn_missing2		3	/* Value for substitute for missing */
+#define	e_asgn_length		4
+
+#define	e_rel_stream		0
+#define	e_rel_relation		1
+#define	e_rel_view		2		/* parent view for posting access */
+#define e_rel_alias		3		/* SQL alias for the relation */
+#define e_rel_context		4	/* user-specified context number for the relation reference */
+#define	e_rel_length		5
+
+#define	e_idx_retrieval		0
+#define	e_idx_length		1
+
+#define	e_lbl_statement		0
+#define	e_lbl_label		1
+#define	e_lbl_length		2
+
+#define	e_any_rse		0
+#define	e_any_rsb		1
+#define	e_any_length		2
+
+#define e_if_boolean		0
+#define e_if_true		1
+#define e_if_false		2
+#define e_if_length		3
+
+#define e_hnd_statement		0
+#define e_hnd_length		1
+
+#define e_val_boolean		0
+#define e_val_value		1
+#define e_val_length		2
+
+#define e_uni_stream		0	/* Stream for union */
+#define e_uni_clauses		1	/* rse's for union */
+#define e_uni_length		2
+
+#define e_agg_stream		0
+#define e_agg_rse		1
+#define e_agg_group		2
+#define e_agg_map		3
+#define e_agg_length		4
+
+/* Statistical expressions */
+
+#define	e_stat_rse		0
+#define	e_stat_value		1
+#define	e_stat_default		2
+#define	e_stat_rsb		3
+#define	e_stat_length		4
+
+/* Execute stored procedure */
+
+#define e_esp_inputs		0
+#define e_esp_in_msg		1
+#define e_esp_outputs		2
+#define e_esp_out_msg		3
+#define e_esp_procedure		4
+#define e_esp_length		5
+
+/* Stored procedure view */
+
+#define e_prc_inputs		0
+#define e_prc_in_msg		1
+#define e_prc_stream		2
+#define e_prc_procedure		3
+#define e_prc_length		4
+
+/* Function expression */
+
+#define e_fun_args		0
+#define e_fun_function		1
+#define e_fun_length		2
+
+/* Generate id */
+
+#define e_gen_value		0
+#define e_gen_relation		1
+#define e_gen_id		1		/* Generator id (replaces e_gen_relation) */
+#define e_gen_length		2
+
+/* Protection mask */
+
+#define e_pro_class		0
+#define e_pro_relation		1
+#define e_pro_length		2
+
+/* Variable declaraction */
+
+#define e_var_id		0
+#define e_var_variable		1
+#define e_var_length		2
+
+#define e_dcl_id		0
+#define e_dcl_desc		1
+#define e_dcl_length		(1 + sizeof (DSC)/sizeof (NOD))	/* Room for descriptor */
+
+#define e_dep_object		0	/* node for registering dependencies */
+#define e_dep_object_type	1
+#define e_dep_field		2
+#define e_dep_length		3
+
+#define e_scl_field		0		/* Scalar expression (blr_index) */
+#define e_scl_subscripts	1
+#define e_scl_length		2
+
+#define	e_blk_action		0
+#define	e_blk_handlers		1
+#define	e_blk_length		2
+
+#define	e_err_action		0
+#define	e_err_conditions	1
+#define	e_err_length		2
+
+/* Datatype cast operator */
+
+#define e_cast_source		0
+#define e_cast_fmt		1
+#define e_cast_length		2
+
+/* IDAPI semantics nodes */
+
+#define e_index_index		0	/* set current index (blr_set_index) */
+#define e_index_stream		1
+#define e_index_rsb		2
+#define e_index_length		3
+
+#define e_seek_offset		0	/* for seeking through a stream */
+#define e_seek_direction	1
+#define e_seek_rse		2
+#define e_seek_length		3
+
+#define e_find_args		0		/* for finding a key value in a stream */
+#define e_find_operator		1
+#define e_find_direction	2
+#define e_find_stream		3
+#define e_find_rsb		4
+#define e_find_length		5
+
+#define e_bookmark_id		0	/* nod_bookmark */
+#define e_bookmark_length	1
+
+#define e_setmark_id		0	/* nod_set_bookmark */
+#define e_setmark_stream	1
+#define e_setmark_rsb		2
+#define e_setmark_length	3
+
+#define e_getmark_stream	0	/* nod_get_bookmark */
+#define e_getmark_rsb		1
+#define e_getmark_length	2
+
+#define e_relmark_id		0	/* nod_release_bookmark */
+#define e_relmark_length	1
+
+#define e_lockrel_relation	0	/* nod_lock_relation */
+#define e_lockrel_level		1
+#define e_lockrel_length	2
+
+#define e_lockrec_level		0	/* nod_lock_record */
+#define e_lockrec_stream	1
+#define e_lockrec_rsb		2
+#define e_lockrec_length	3
+
+#define e_brange_number		0	/* nod_begin_range */
+#define e_brange_length		1
+
+#define e_erange_number		0	/* nod_end_range */
+#define e_erange_length		1
+
+#define e_drange_number		0	/* nod_delete_range */
+#define e_drange_length		1
+
+#define e_rellock_lock		0	/* nod_release_lock */
+#define e_rellock_length	1
+
+#define e_find_dbkey_dbkey	0	/* double duty for nod_find_dbkey and nod_find_dbkey_version */
+#define e_find_dbkey_version	1
+#define e_find_dbkey_stream	2
+#define e_find_dbkey_rsb	3
+#define e_find_dbkey_length	4
+
+#define e_range_relation_number	  0	/* nod_range_relation */
+#define e_range_relation_relation 1
+#define e_range_relation_length	  2
+
+#define e_retrieve_relation	0
+#define e_retrieve_access_type	1
+#define e_retrieve_length	2
+
+#define e_reset_from_stream	0
+#define e_reset_to_stream	1
+#define e_reset_from_rsb	2
+#define e_reset_length		3
+
+#define e_card_stream		0
+#define e_card_rsb		1
+#define e_card_length		2
+
+/* SQL Date supporting nodes */
+#define e_extract_value		0	/* Node */
+#define e_extract_part		1	/* Integer */
+#define e_extract_count		1	/* Number of nodes */
+#define e_extract_length	2	/* Number of entries in nod_args */
+
+#define e_current_date_length	1
+#define e_current_time_length	1
+#define e_current_timestamp_length	1
+
+
+/* Compile scratch block */
+
+/*
+ * TMN: I had to move the enclosed csb_repeat outside this class,
+ * since it's part of the C API. Compiling as C++ would enclose it.
+ */
+
+struct csb_repeat {
+	UCHAR csb_stream;			/* Map user context to internal stream */
+	UCHAR csb_view_stream;		/* stream number for view relation, below */
+	USHORT csb_flags;
+	USHORT csb_indices;			/* Number of indices */
+
+	struct rel *csb_relation;
+	struct str *csb_alias;		/* SQL alias name for this instance of relation */
+	struct prc *csb_procedure;
+	struct rel *csb_view;		/* parent view */
+
+	struct idx *csb_idx;		/* Packed description of indices */
+	struct str *csb_idx_allocation;	/* Memory allocated to hold index descriptions */
+	struct nod *csb_message;	/* Msg for send/receive */
+	struct fmt *csb_format;		/* Default fmt for stream */
+	struct sbm *csb_fields;		/* Fields referenced */
+#ifndef GATEWAY
+	float csb_cardinality;		/* Cardinality of relation */
+	struct nod *csb_plan;		/* user-specified plan for this relation */
+#else
+	struct sbm *csb_asgn_flds;	/* Fields that are assigned from */
+	struct rsb *csb_selct_rsb;	/* SELECT statement's rsb */
+	struct nod *csb_selct_bool;	/* SELECT statement's boolean */
+	struct nod *csb_selct_sort;	/* SELECT statement's sort clause */
+	struct sql *csb_sql_selct;	/* SELECT statement */
+	struct nod *csb_other_nod;	/* non-SELECT statement's node */
+	struct sql *csb_sql_other;	/* non-SELECT statement */
+#endif
+	UCHAR *csb_map;				/* Stream map for views */
+	struct rsb **csb_rsb_ptr;	/* point to rsb for nod_stream */
+};
+
+
+typedef struct csb {
+	struct blk csb_header;
+	UCHAR *csb_blr;
+	UCHAR *csb_running;
+	struct nod *csb_node;
+	struct acc *csb_access;		/* Access items to be checked */
+	struct vec *csb_variables;	/* Vector of variables, if any */
+	struct rsc *csb_resources;	/* Resources (relations and indexes) */
+	struct lls *csb_dependencies;	/* objects this request depends upon */
+	struct lls *csb_fors;		/* stack of fors */
+	struct lls *csb_invariants;	/* stack of invariant nodes */
+	struct lls *csb_current_rses;	/* rse's within whose scope we are */
+#ifdef SCROLLABLE_CURSORS
+	struct rse *csb_current_rse;	/* this holds the rse currently being processed; 
+									   unlike the current_rses stack, it references any expanded view rse */
+#endif
+	struct nod *csb_async_message;	/* asynchronous message to send to request */
+	USHORT csb_count;			/* Current tail count */
+	USHORT csb_n_stream;		/* Next available stream */
+	USHORT csb_msg_number;		/* Highest used message number */
+	SLONG csb_impure;			/* Next offset into impure area */
+	USHORT csb_g_flags;
+	struct csb_repeat csb_rpt[1];
+} *CSB;
+
+#define csb_internal	     	0x1	/* "csb_g_flag" switch */
+#define csb_get_dependencies 	0x2
+#define csb_ignore_perm 	0x4	/* ignore permissions checks */
+#define csb_blr_version4 	0x8	/* The blr is of version 4 */
+
+#define csb_active 	1
+#define csb_used	2
+#define csb_view_update	4		/* View update w/wo trigger is in progress */
+#define csb_trigger	8			/* NEW or OLD context in trigger */
+#define csb_no_dbkey	16		/* Stream doesn't have a dbkey */
+#define csb_validation	32		/* We're in a validation expression (RDB hack) */
+#define csb_store	64			/* we are processing a store statement */
+#define csb_modify	128			/* we are processing a modify */
+#define csb_compute	256			/* compute cardinality for this stream */
+#define csb_erase	512			/* we are processing an erase */
+#define csb_unmatched	1024	/* stream has conjuncts unmatched by any index */
+
+#define csb_dbkey	8192		/* Dbkey as been requested (Gateway only) */
+#define csb_update	16384		/* Erase or modify for relation */
+#define csb_made_river	32768	/* stream has been included in a river */
+
+
+/* Exception condition list */
+
+typedef struct xcp {
+	struct blk xcp_header;
+	SLONG xcp_count;
+	struct xcp_repeat {
+		SSHORT xcp_type;
+		SLONG xcp_code;
+	} xcp_rpt[1];
+} *XCP;
+
+#define xcp_sql_code	1
+#define xcp_gds_code	2
+#define xcp_xcp_code	3
+#define xcp_default	4
+
+#endif /* _JRD_EXE_H_ */
diff --git a/src/jrd/exe_proto.h b/src/jrd/exe_proto.h
new file mode 100644
index 0000000000..51af3fab11
--- /dev/null
+++ b/src/jrd/exe_proto.h
@@ -0,0 +1,50 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		exe_proto.h
+ *	DESCRIPTION:	Prototype header file for exe.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_EXE_PROTO_H
+#define JRD_EXE_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void EXE_assignment(TDBB, struct nod*);
+extern struct req *EXE_find_request(TDBB, struct req *, BOOLEAN);
+extern void EXE_receive(TDBB, struct req*, USHORT, USHORT, UCHAR*);
+extern void EXE_send(TDBB, struct req *, USHORT, USHORT, UCHAR *);
+extern void EXE_start(TDBB, struct req *, struct tra *);
+extern void EXE_unwind(TDBB, struct req *);
+#ifdef SCROLLABLE_CURSORS
+extern void EXE_seek(TDBB, struct req *, USHORT, ULONG);
+#endif
+
+#ifdef PC_ENGINE
+extern BOOLEAN EXE_crack(TDBB, struct rsb *, USHORT);
+extern void EXE_mark_crack(TDBB, struct rsb *, USHORT);
+#endif
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_EXE_PROTO_H */
diff --git a/src/jrd/ext.cpp b/src/jrd/ext.cpp
new file mode 100644
index 0000000000..4dbba255ad
--- /dev/null
+++ b/src/jrd/ext.cpp
@@ -0,0 +1,558 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		ext.c
+ *	DESCRIPTION:	External file access
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/req.h"
+#include "../jrd/val.h"
+#include "../jrd/exe.h"
+#include "../jrd/rse.h"
+#include "../jrd/ext.h"
+#include "../jrd/tra.h"
+#include "../jrd/codes.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/ext_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/vio_proto.h"
+
+
+extern "C" {
+
+
+#ifdef WIN_NT
+#define FOPEN_TYPE	"a+b"
+#define FOPEN_READ_ONLY	"rb"
+#define	SYS_ERR		gds_arg_win32
+#endif
+
+#ifndef FOPEN_TYPE
+#define FOPEN_TYPE	"a+"
+#define FOPEN_READ_ONLY	"rb"
+#endif
+
+#ifdef NETWARE_386
+#define SYS_ERR		gds_arg_netware
+#endif
+
+
+#ifndef SYS_ERR
+#define SYS_ERR		gds_arg_unix
+#endif
+
+
+static void io_error(EXT, TEXT *, STATUS, SLONG);
+
+
+void EXT_close(RSB rsb)
+{
+/**************************************
+ *
+ *	E X T _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a record stream for an external file.
+ *
+ **************************************/
+}
+
+
+void EXT_erase(RPB * rpb, int *transaction)
+{
+/**************************************
+ *
+ *	E X T _ e r a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update an external file.
+ *
+ **************************************/
+
+	ERR_post(isc_ext_file_delete, 0);
+}
+
+
+EXT EXT_file(REL relation, TEXT * file_name, SLONG * description)
+{
+/**************************************
+ *
+ *	E X T _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a file block for external file access.
+ *
+ **************************************/
+	DBB dbb;
+	EXT file;
+
+	dbb = GET_DBB;
+	CHECK_DBB(dbb);
+
+/* if we already have a external file associated with this relation just
+ * return the file structure */
+	if (relation->rel_file) {
+		EXT_fini(relation);
+	}
+	relation->rel_file = file =
+		(EXT) ALLOCPV(type_ext, strlen(file_name) + 1);
+	strcpy(reinterpret_cast < char *>(file->ext_filename), file_name);
+
+	file->ext_flags = 0;
+#ifdef READONLY_DATABASE
+	file->ext_ifi = (int *) NULL;
+/* If the database is updateable, then try opening the external files in
+ * RW mode. If the DB is ReadOnly, then open the external files only in
+ * ReadOnly mode, thus being consistent.
+ */
+	if (!(dbb->dbb_flags & DBB_read_only))
+		file->ext_ifi = (int *) ib_fopen(file_name, FOPEN_TYPE);
+	if (!(file->ext_ifi))
+#else
+	if (!(file->ext_ifi = (int *) ib_fopen(file_name, FOPEN_TYPE)))
+#endif
+	{
+		/* could not open the file as read write attempt as read only */
+		if (!(file->ext_ifi = (int *) ib_fopen(file_name, FOPEN_READ_ONLY)))
+			ERR_post(isc_io_error,
+					 gds_arg_string, "ib_fopen",
+					 gds_arg_string,
+					 ERR_cstring(reinterpret_cast <
+								 char *>(file->ext_filename)), isc_arg_gds,
+					 isc_io_open_err, SYS_ERR, errno, 0);
+		else
+			file->ext_flags |= EXT_readonly;
+	}
+
+	return file;
+}
+
+
+void EXT_fini(REL relation)
+{
+/**************************************
+ *
+ *	E X T _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close the file associated with a relation.
+ *
+ **************************************/
+	EXT file;
+
+	if (relation->rel_file) {
+		file = relation->rel_file;
+		if (file->ext_ifi)
+			ib_fclose((IB_FILE *) file->ext_ifi);
+		/* before zeroing out the rel_file we need to deallocate the memory */
+		ALL_release(reinterpret_cast < frb * >(relation->rel_file));
+		relation->rel_file = 0;
+	}
+}
+
+
+int EXT_get(RSB rsb)
+{
+/**************************************
+ *
+ *	E X T _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from an external file.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	REL relation;
+	EXT file;
+	RPB *rpb;
+	REC record;
+	FMT format;
+	LIT literal;
+	DSC *desc_ptr, desc;
+	FLD field, *field_ptr;
+	SSHORT c, l, offset, i;
+	UCHAR *p;
+	SLONG currec;
+
+	tdbb = GET_THREAD_DATA;
+
+	relation = rsb->rsb_relation;
+	file = relation->rel_file;
+	request = tdbb->tdbb_request;
+
+	if (request->req_flags & req_abort)
+		return FALSE;
+
+	rpb = &request->req_rpb[rsb->rsb_stream];
+	record = rpb->rpb_record;
+	format = record->rec_format;
+
+	offset = (SSHORT) format->fmt_desc[0].dsc_address;
+	p = record->rec_data + offset;
+	l = record->rec_length - offset;
+
+	if (file->ext_ifi == 0 ||
+		(ib_fseek((IB_FILE *) file->ext_ifi, rpb->rpb_ext_pos, 0) != 0))
+		ERR_post(isc_io_error,
+				 gds_arg_string, "ib_fseek",
+				 gds_arg_string,
+				 ERR_cstring(reinterpret_cast < char *>(file->ext_filename)),
+				 isc_arg_gds, isc_io_open_err, SYS_ERR, errno, 0);
+
+	while (l--) {
+		c = ib_getc((IB_FILE *) file->ext_ifi);
+		if (c == EOF)
+			return FALSE;
+		*p++ = c;
+	}
+	rpb->rpb_ext_pos = ib_ftell((IB_FILE *) file->ext_ifi);
+
+/* Loop thru fields setting missing fields to either blanks/zeros
+   or the missing value */
+
+	field_ptr = (FLD *) relation->rel_fields->vec_object;
+	desc_ptr = format->fmt_desc;
+
+	for (i = 0; i < format->fmt_count; i++, field_ptr++, desc_ptr++) {
+		SET_NULL(record, i);
+		if (!desc_ptr->dsc_length || !(field = *field_ptr))
+			continue;
+		if (literal = (LIT) field->fld_missing_value) {
+			desc = *desc_ptr;
+			desc.dsc_address = record->rec_data + (int) desc.dsc_address;
+			if (!MOV_compare(&literal->lit_desc, &desc))
+				continue;
+		}
+		CLEAR_NULL(record, i);
+	}
+
+	return TRUE;
+}
+
+
+void EXT_modify(RPB * old_rpb, RPB * new_rpb, int *transaction)
+{
+/**************************************
+ *
+ *	E X T _ m o d i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update an external file.
+ *
+ **************************************/
+
+/* ERR_post (gds_wish_list, gds_arg_interpreted, "EXT_modify: not yet implemented", 0); */
+	ERR_post(isc_ext_file_modify, 0);
+}
+
+
+void EXT_open(RSB rsb)
+{
+/**************************************
+ *
+ *	E X T _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a record stream for an external file.
+ *
+ **************************************/
+	TDBB tdbb;
+	REL relation;
+	REQ request;
+	RPB *rpb;
+	REC record;
+	FMT format;
+
+	tdbb = GET_THREAD_DATA;
+
+	relation = rsb->rsb_relation;
+	request = tdbb->tdbb_request;
+	rpb = &request->req_rpb[rsb->rsb_stream];
+
+	if (!(record = rpb->rpb_record) || !(format = record->rec_format)) {
+		format = MET_current(tdbb, relation);
+		VIO_record(tdbb, rpb, format, request->req_pool);
+	}
+
+	rpb->rpb_ext_pos = 0;
+}
+
+
+RSB EXT_optimize(register OPT opt, SSHORT stream, NOD * sort_ptr)
+{
+/**************************************
+ *
+ *	E X T _ o p t i m i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile and optimize a record selection expression into a
+ *	set of record source blocks (rsb's).
+ *
+ **************************************/
+	TDBB tdbb;
+	register CSB csb;
+	REL relation;
+	RSB rsb;
+/* all these are un refrenced due to the code commented below 
+NOD		node, inversion;
+register opt::opt_repeat	*tail, *opt_end;
+SSHORT		i, size;
+*/
+	SSHORT size;
+	csb_repeat *csb_tail;
+
+	tdbb = GET_THREAD_DATA;
+
+	csb = opt->opt_csb;
+	csb_tail = &csb->csb_rpt[stream];
+	relation = csb_tail->csb_relation;
+
+/* Time to find inversions.  For each index on the relation
+   match all unused booleans against the index looking for upper
+   and lower bounds that can be computed by the index.  When
+   all unused conjunctions are exhausted, see if there is enough
+   information for an index retrieval.  If so, build up and
+   inversion component of the boolean. */
+
+/*
+inversion = NULL;
+opt_end = opt->opt_rpt + opt->opt_count;
+
+if (opt->opt_count)
+    for (i = 0; i < csb_tail->csb_indices; i++)
+	{
+	clear_bounds (opt, idx);
+	for (tail = opt->opt_rpt; tail < opt_end; tail++)
+	    {
+	    node = tail->opt_conjunct;
+	    if (!(tail->opt_flags & opt_used) && 
+		computable (csb, node, -1))
+		match (opt, stream, node, idx);
+	    if (node->nod_type == nod_starts)
+		compose (&inversion, 
+			 make_starts (opt, node, stream, idx), nod_bit_and);
+	    }
+	compose (&inversion, make_index (opt, relation, idx), 
+		nod_bit_and);
+	idx = idx->idx_rpt + idx->idx_count;
+	}
+*/
+
+
+	rsb = (RSB) ALLOCDV(type_rsb, 0);
+	rsb->rsb_type = rsb_ext_sequential;
+	size = sizeof(struct irsb);
+
+	rsb->rsb_stream = stream;
+	rsb->rsb_relation = relation;
+	rsb->rsb_impure = csb->csb_impure;
+	csb->csb_impure += size;
+
+	return rsb;
+}
+
+
+void EXT_ready(REL relation)
+{
+/**************************************
+ *
+ *	E X T _ r e a d y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an external file.
+ *
+ **************************************/
+}
+
+
+void EXT_store(RPB * rpb, int *transaction)
+{
+/**************************************
+ *
+ *	E X T _ s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update an external file.
+ *
+ **************************************/
+	REL relation;
+	REC record;
+	FMT format;
+	EXT file;
+	FLD *field_ptr, field;
+	LIT literal;
+	DSC desc, *desc_ptr;
+	UCHAR *p;
+	USHORT i, l, offset;
+
+	relation = rpb->rpb_relation;
+	file = relation->rel_file;
+	record = rpb->rpb_record;
+	format = record->rec_format;
+
+/* Loop thru fields setting missing fields to either blanks/zeros
+   or the missing value */
+
+/* check if file is read only if read only then 
+   post error we cannot write to this file */
+	if (file->ext_flags & EXT_readonly) {
+#ifdef READONLY_DATABASE
+		DBB dbb;
+
+		dbb = GET_DBB;
+		CHECK_DBB(dbb);
+		/* Distinguish error message for a ReadOnly database */
+		if (dbb->dbb_flags & DBB_read_only)
+			ERR_post(isc_read_only_database, 0);
+		else
+#endif /* READONLY_DATABASE */
+			ERR_post(isc_io_error,
+					 gds_arg_string, "insert",
+					 gds_arg_string, file->ext_filename,
+					 isc_arg_gds, isc_io_write_err,
+					 gds_arg_gds, gds__ext_readonly_err, 0);
+	}
+
+	field_ptr = (FLD *) relation->rel_fields->vec_object;
+	desc_ptr = format->fmt_desc;
+
+	for (i = 0; i < format->fmt_count; i++, field_ptr++, desc_ptr++)
+		if ((field = *field_ptr) &&
+			!field->fld_computation &&
+			desc_ptr->dsc_length && TEST_NULL(record, i)) {
+			p = record->rec_data + (int) desc_ptr->dsc_address;
+			if (literal = (LIT) field->fld_missing_value) {
+				desc = *desc_ptr;
+				desc.dsc_address = p;
+				MOV_move(&literal->lit_desc, &desc);
+			}
+			else {
+				l = desc_ptr->dsc_length;
+				offset = (desc_ptr->dsc_dtype == dtype_text) ? ' ' : 0;
+				do
+					*p++ = offset;
+				while (--l);
+			}
+		}
+
+	offset = (USHORT) format->fmt_desc[0].dsc_address;
+	p = record->rec_data + offset;
+	l = record->rec_length - offset;
+
+	if (file->ext_ifi == 0
+		|| (ib_fseek((IB_FILE *) file->ext_ifi, (SLONG) 0, 2) != 0))
+		ERR_post(isc_io_error, gds_arg_string, "ib_fseek", gds_arg_string,
+				 ERR_cstring(reinterpret_cast < char *>(file->ext_filename)),
+				 isc_arg_gds, isc_io_open_err, SYS_ERR, errno, 0);
+	for (; l--; ++p)
+		ib_putc(*p, (IB_FILE *) file->ext_ifi);
+	ib_fflush((IB_FILE *) file->ext_ifi);
+}
+
+
+void EXT_trans_commit(TRA transaction)
+{
+/**************************************
+ *
+ *	E X T _ t r a n s _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkin at transaction commit time.
+ *
+ **************************************/
+}
+
+
+void EXT_trans_prepare(TRA transaction)
+{
+/**************************************
+ *
+ *	E X T _ t r a n s _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkin at transaction prepare time.
+ *
+ **************************************/
+}
+
+
+void EXT_trans_rollback(TRA transaction)
+{
+/**************************************
+ *
+ *	E X T _ t r a n s _ r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkin at transaction rollback time.
+ *
+ **************************************/
+}
+
+
+void EXT_trans_start(TRA transaction)
+{
+/**************************************
+ *
+ *	E X T _ t r a n s _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkin at start transaction time.
+ *
+ **************************************/
+}
+
+
+} // extern "C"
diff --git a/src/jrd/ext.h b/src/jrd/ext.h
new file mode 100644
index 0000000000..5f65dd951f
--- /dev/null
+++ b/src/jrd/ext.h
@@ -0,0 +1,64 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		ext.h
+ *	DESCRIPTION:	External file access definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_EXT_H_
+#define _JRD_EXT_H_
+
+/* External file access block */
+
+typedef struct ext {
+	struct blk ext_header;
+	struct fmt *ext_format;		/* External format */
+	UCHAR *ext_stuff;			/* Random stuff */
+	USHORT ext_flags;			/* Misc and cruddy flags */
+#ifdef VMS
+	int ext_ifi;				/* Internal file identifier */
+	int ext_isi;				/* Internal stream (default) */
+#else
+	int *ext_ifi;				/* Internal file identifier */
+	int *ext_isi;				/* Internal stream (default) */
+#endif
+	USHORT ext_record_length;	/* Record length */
+	USHORT ext_file_type;		/* File type */
+	USHORT ext_index_count;		/* Number of indices */
+	UCHAR *ext_indices;			/* Index descriptions */
+	UCHAR ext_dbkey[8];			/* DBKEY */
+	UCHAR ext_filename[1];
+} *EXT;
+
+#define EXT_opened	1			/* File has been opened */
+#define EXT_eof		2			/* Positioned at EOF */
+#define EXT_readonly	4		/* File could only be opened for read */
+
+typedef struct irsb_ext {
+	USHORT irsb_flags;			/* flags (a whole word!) */
+	UCHAR irsb_ext_dbkey[8];	/* DBKEY */
+} *IRSB_EXT;
+
+/* Overload record parameter block with external file stuff */
+
+#define rpb_ext_pos	rpb_page
+#define rpb_ext_isi	rpb_f_page
+#define rpb_ext_dbkey	rpb_b_page
+
+#endif /* _JRD_EXT_H_ */
diff --git a/src/jrd/ext_proto.h b/src/jrd/ext_proto.h
new file mode 100644
index 0000000000..b73c6d00f5
--- /dev/null
+++ b/src/jrd/ext_proto.h
@@ -0,0 +1,54 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		ext_proto.h
+ *	DESCRIPTION:	Prototype header file for ext.c & extvms.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_EXT_PROTO_H_
+#define _JRD_EXT_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void EXT_close(struct rsb *);
+extern void EXT_erase(struct rpb *, int *);
+extern struct ext *EXT_file(struct rel *, TEXT *, SLONG *);
+extern void EXT_fini(struct rel *);
+extern int EXT_get(struct rsb *);
+extern void EXT_modify(struct rpb *, struct rpb *, int *);
+#ifdef VMS
+extern int EXT_open(struct rsb *);
+#else
+extern void EXT_open(struct rsb *);
+#endif
+extern struct rsb *EXT_optimize(register struct opt *, SSHORT, struct nod **);
+extern void EXT_ready(struct rel *);
+extern void EXT_store(struct rpb *, int *);
+extern void EXT_trans_commit(struct tra *);
+extern void EXT_trans_prepare(struct tra *);
+extern void EXT_trans_rollback(struct tra *);
+extern void EXT_trans_start(struct tra *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_EXT_PROTO_H_ */
diff --git a/src/jrd/extvms.cpp b/src/jrd/extvms.cpp
new file mode 100644
index 0000000000..a340cd0c21
--- /dev/null
+++ b/src/jrd/extvms.cpp
@@ -0,0 +1,1367 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		extvms.c
+ *	DESCRIPTION:	External file access
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/jrd.h"
+#include "../jrd/req.h"
+#include "../jrd/val.h"
+#include "../jrd/exe.h"
+#include "../jrd/rse.h"
+#include "../jrd/ext.h"
+#include "../jrd/codes.h"
+#include "../jrd/tra.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+#include "../jrd/ext_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/opt_proto.h"
+#include "../jrd/vio_proto.h"
+
+#include rms
+
+#define DEFAULT_FILE	".dat"
+#define MAX_KEYS	20
+
+static struct FAB fab;
+static struct RAB rab;
+
+static BOOLEAN check_sort(NOD, IDX *, USHORT);
+static BOOLEAN compare(UCHAR *, UCHAR *, USHORT);
+static int compare_segment(NOD, UCHAR *, DSC *);
+static int connect(EXT, USHORT);
+static void disconnect(EXT);
+static void expand_format(FMT, FMT);
+static SLONG find_field(FMT, USHORT, USHORT, USHORT);
+static int get_dbkey(RSB);
+static int get_indexed(RSB);
+static USHORT get_key_segment(NOD, UCHAR *, DSC *);
+static BOOLEAN get_sequential(RSB);
+static BOOLEAN match_index(FMT, struct XABKEY *, IDX *);
+static int open_indexed(RSB);
+static int open_sequential(RSB);
+static void position_by_rfa(EXT, USHORT *);
+static void set_flags(REL, REC);
+static void set_missing(REL, REC);
+
+
+void EXT_close(RSB rsb)
+{
+/**************************************
+ *
+ *	E X T _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a record stream for an external file.
+ *
+ **************************************/
+	TDBB tdbb;
+	REL relation;
+	EXT file;
+	REQ request;
+	RPB *rpb;
+	int status;
+
+	tdbb = GET_THREAD_DATA;
+
+	relation = rsb->rsb_relation;
+	file = relation->rel_file;
+	request = tdbb->tdbb_request;
+	rpb = &request->req_rpb[rsb->rsb_stream];
+
+	if ((rab.rab$w_isi = rpb->rpb_ext_isi) &&
+		rpb->rpb_ext_isi != file->ext_isi) {
+		disconnect(file);
+		rpb->rpb_ext_isi = 0;
+	}
+}
+
+
+void EXT_erase(RPB * rpb, int *transaction)
+{
+/**************************************
+ *
+ *	E X T _ e r a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update an external file.
+ *
+ **************************************/
+	REL relation;
+	EXT file;
+	int status;
+
+	if (rpb->rpb_stream_flags & RPB_s_refetch)
+		IBERROR(180);			/* msg 180 can't reposition for update after sort for RMS */
+
+	relation = rpb->rpb_relation;
+	file = relation->rel_file;
+	rab.rab$w_isi = rpb->rpb_ext_isi;
+	rab.rab$l_rop = 0;
+
+	position_by_rfa(file, &rpb->rpb_ext_dbkey);
+	status = sys$delete(&rab);
+
+	if (!(status & 1))
+		ERR_post(isc_io_error,
+				 gds_arg_string, "sys$delete",
+				 gds_arg_string, file->ext_filename,
+				 isc_arg_gds, isc_io_delete_err, gds_arg_vms, status, 0);
+}
+
+
+EXT EXT_file(REL relation, TEXT * file_name, SLONG * description)
+{
+/**************************************
+ *
+ *	E X T _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a file block for external file access.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	int status;
+	USHORT l;
+	EXT file;
+	IDX *index;
+	STR string;
+	FMT format;
+	UCHAR index_buffer[MAX_KEYS * sizeof(IDX)];
+	struct XABSUM summary;
+	struct XABKEY *key, *end, **ptr, keys[MAX_KEYS];
+	UCHAR *lognam;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* Allocate and fill out an external file block.  Get the
+   external format and flesh it out using the internal
+   format. */
+
+	l = strlen(file_name);
+	relation->rel_file = file = ALLOCPV(type_ext, l);
+	strcpy(file->ext_filename, file_name);
+	format = file->ext_format = MET_format(tdbb, relation, 0);
+	expand_format(format, MET_current(tdbb, relation));
+
+/* Groan -- time to check in with RMS.  We're going to start
+   by formatting and openning a FAB (file access block).  Rather
+   than cart the full FAB around, just save the "ifi" (internal
+   FAB identifier) for later use.  To avoid an extra DISPLAY
+   operation, allocate and link in a summary XAB (extended
+   attribute block) to determine the number of indices for an
+   indexed file. */
+
+	fab = cc$rms_fab;
+	fab.fab$l_dna = DEFAULT_FILE;
+	fab.fab$b_dns = sizeof(DEFAULT_FILE) - 1;
+	fab.fab$l_fna = file->ext_filename;
+	fab.fab$b_fns = l;
+
+/* this was put in for Healthdyne;   if the logical name is defined and
+   if it says "READONLY", then we open the file read only.  if the
+   logical name is defined and it is not READONLY, then let there be
+   an error. */
+
+	if (lognam = getenv("GDS_RMSACCESS")) {
+		if (strcmp(lognam, "READONLY") == 0)
+			fab.fab$b_fac = FAB$M_GET;
+	}
+	else
+		fab.fab$b_fac = FAB$M_DEL | FAB$M_GET | FAB$M_PUT | FAB$M_UPD;
+
+	fab.fab$b_shr = FAB$M_MSE | FAB$M_SHRGET | FAB$M_SHRPUT |
+		FAB$M_SHRDEL | FAB$M_SHRUPD;
+	fab.fab$l_xab = &summary;
+	summary = cc$rms_xabsum;
+
+	status = sys$open(&fab);
+	fab.fab$l_xab = NULL;
+
+	if (!(status & 1))
+		ERR_post(isc_io_error,
+				 gds_arg_string, "sys$open",
+				 gds_arg_string, file->ext_filename,
+				 isc_arg_gds, isc_io_open_err, gds_arg_vms, status, 0);
+
+/* If this is an indexed file, process keys.  For each known key,
+   allocate a format a temporary key definition XAB.  Link the
+   whole herd of XABs to the FAB and do an RMS DISPLAY operation
+   to get key definitions.  For each key, try to match it against
+   the external format by datatype, offset, and length.  If we can't
+   match the key, ignore it */
+
+	if (fab.fab$b_org == FAB$C_IDX) {
+		ptr = (struct XABKEY *) &fab.fab$l_xab;
+		for (key = keys, end = key + summary.xab$b_nok; key < end; key++) {
+			*key = cc$rms_xabkey;
+			key->xab$b_ref = key - keys;
+			*ptr = key;
+			ptr = &key->xab$l_nxt;
+		}
+		status = sys$display(&fab);
+		fab.fab$l_xab = NULL;
+		if (!(status & 1))
+			ERR_post(isc_io_error,
+					 gds_arg_string, "sys$display",
+					 gds_arg_string, file->ext_filename,
+					 isc_arg_gds, isc_io_access_err, gds_arg_vms, status, 0);
+		index = (IDX *) index_buffer;
+		for (key = keys; key < end; key++)
+			if (match_index(format, key, index)) {
+				++file->ext_index_count;
+				index = (IDX *) (index->idx_rpt + index->idx_count);
+			}
+		if (l = (UCHAR *) index - index_buffer) {
+			string = (STR) ALLOCDV(type_str, l);
+			MOVE_FAST(index_buffer, string->str_data, l);
+			file->ext_indices = string->str_data;
+		}
+	}
+
+/* Set up an internal stream for the file.  Since RMS supports
+   multiple streams for ISAM files, each indexed stream will
+   allocate separate connections for their stream. */
+
+	rab = cc$rms_rab;
+	rab.rab$l_fab = &fab;
+	file->ext_isi = connect(file, 0);
+	file->ext_ifi = fab.fab$w_ifi;
+	file->ext_file_type = fab.fab$b_org;
+
+	return file;
+}
+
+
+void EXT_fini(REL relation)
+{
+/**************************************
+ *
+ *	E X T _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close the file associated with a relation.
+ *
+ **************************************/
+	EXT file;
+	int status;
+
+	file = relation->rel_file;
+
+	if (fab.fab$w_ifi = file->ext_ifi) {
+		status = sys$close(&fab);
+		if (!(status & 1))
+			ERR_post(isc_io_error,
+					 gds_arg_string, "sys$close",
+					 gds_arg_string, file->ext_filename,
+					 isc_arg_gds, isc_io_close_err, gds_arg_vms, status, 0);
+	}
+
+	file->ext_ifi = 0;
+}
+
+
+int EXT_get(RSB rsb)
+{
+/**************************************
+ *
+ *	E X T _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from an external file.
+ *
+ **************************************/
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	if (tdbb->tdbb_request->req_flags & req_abort)
+		return FALSE;
+
+	switch (rsb->rsb_type) {
+	case rsb_ext_sequential:
+		return get_sequential(rsb);
+
+	case rsb_ext_indexed:
+		return get_indexed(rsb);
+
+	case rsb_ext_dbkey:
+		return get_dbkey(rsb);
+
+	default:
+		IBERROR(181);			/* msg 181 external access type not implemented */
+	}
+}
+
+
+void EXT_modify(RPB * old_rpb, RPB * new_rpb, int *transaction)
+{
+/**************************************
+ *
+ *	E X T _ m o d i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update an external file.
+ *
+ **************************************/
+	REL relation;
+	EXT file;
+	REQ request;
+	REC record;
+	FMT format;
+	int offset, status;
+
+	if (old_rpb->rpb_stream_flags & RPB_s_refetch)
+		IBERROR(180);			/* msg 180 cannot reposition for update after sort for RMS */
+
+	record = new_rpb->rpb_record;
+	relation = new_rpb->rpb_relation;
+	file = relation->rel_file;
+	format = record->rec_format;
+	set_missing(old_rpb->rpb_relation, record);
+	offset = FLAG_BYTES(format->fmt_count);
+
+	rab.rab$w_isi = old_rpb->rpb_ext_isi;
+	rab.rab$l_rop = 0;
+
+	position_by_rfa(file, &old_rpb->rpb_ext_dbkey);
+	rab.rab$l_rbf = record->rec_data + offset;
+	rab.rab$w_rsz = record->rec_length - offset;
+
+	status = sys$update(&rab);
+	if (!(status & 1))
+		ERR_post(isc_io_error,
+				 gds_arg_string, "sys$update",
+				 gds_arg_string, file->ext_filename,
+				 isc_arg_gds, isc_io_write_err, gds_arg_vms, status, 0);
+}
+
+
+EXT_open(RSB rsb)
+{
+/**************************************
+ *
+ *	E X T _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a record stream for an external file.
+ *
+ **************************************/
+	TDBB tdbb;
+	REL relation;
+	REQ request;
+	RPB *rpb;
+	REC record;
+	FMT format;
+	EXT file;
+
+	tdbb = GET_THREAD_DATA;
+
+	relation = rsb->rsb_relation;
+	request = tdbb->tdbb_request;
+	rpb = &request->req_rpb[rsb->rsb_stream];
+
+	if (!(record = rpb->rpb_record) || !(format = record->rec_format)) {
+		format = MET_current(tdbb, relation);
+		record = VIO_record(tdbb, rpb, format, request->req_pool);
+	}
+
+	switch (rsb->rsb_type) {
+	case rsb_ext_sequential:
+		return open_sequential(rsb);
+
+	case rsb_ext_indexed:
+		return open_indexed(rsb);
+
+	case rsb_ext_dbkey:
+		file = relation->rel_file;
+		rpb->rpb_ext_isi = file->ext_isi;
+		return;
+
+	default:
+		IBERROR(181);			/* msg 181 external access type not implemented */
+	}
+}
+
+
+RSB EXT_optimize(register OPT opt, SSHORT stream, NOD * sort_ptr)
+{
+/**************************************
+ *
+ *	E X T _ o p t i m i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile and optimize a record selection expression into a
+ *	set of record source blocks (rsb's).
+ *
+ **************************************/
+	TDBB tdbb;
+	register CSB csb;
+	REL relation;
+	RSB rsb;
+	NOD dbkey, inversion;
+	EXT file;
+	IDX *idx;
+	SSHORT i, size;
+	register opt::opt_repeat * tail, *opt_end;
+	csb_repeat *csb_tail;
+
+	tdbb = GET_THREAD_DATA;
+
+/* Start by chasing around finding pointers to the various
+   data structures */
+
+	csb = opt->opt_csb;
+	csb_tail = &csb->csb_rpt[stream];
+	relation = csb_tail->csb_relation;
+	file = relation->rel_file;
+	dbkey = inversion = NULL;
+
+/* Check for a dbkey retrieval.  If we find it, ignore everything
+   else */
+
+	for (tail = opt->opt_rpt, opt_end = tail + opt->opt_count;
+		 tail < opt_end; tail++)
+		if (!(tail->opt_flags & opt_used) &&
+			(dbkey = OPT_make_dbkey(opt, tail->opt_conjunct, stream)))
+			break;
+
+/* If there are booleans availables and indices to optimize
+   against, go at it */
+
+	if (!dbkey && opt->opt_count && (idx = file->ext_indices))
+		for (i = 0; i < file->ext_index_count; i++) {
+			if (OPT_match_index(opt, stream, idx) &&
+				opt->opt_rpt[0].opt_lower) {
+				inversion = OPT_make_index(tdbb, opt, relation, idx);
+				if (check_sort(*sort_ptr, idx, stream))
+					*sort_ptr = NULL;
+				break;
+			}
+			idx = idx->idx_rpt + idx->idx_count;
+		}
+
+/* Depending on whether or not an index was selected build either
+   and external indexed or an external sequential record stream
+   block */
+
+	if (dbkey) {
+		rsb = (RSB) ALLOCDV(type_rsb, 1);
+		rsb->rsb_type = rsb_ext_dbkey;
+		rsb->rsb_count = 1;
+		size = sizeof(struct irsb_index);
+		rsb->rsb_arg[0] = (RSB) dbkey;
+	}
+	else if (inversion) {
+		rsb = (RSB) ALLOCDV(type_rsb, 1);
+		rsb->rsb_type = rsb_ext_indexed;
+		rsb->rsb_count = 1;
+		size = sizeof(struct irsb_index);
+		rsb->rsb_arg[0] = (RSB) inversion;
+	}
+	else {
+		rsb = (RSB) ALLOCDV(type_rsb, 0);
+		rsb->rsb_type = rsb_ext_sequential;
+		size = sizeof(struct irsb);
+	}
+
+/* Finish filling out the record stream block and allocate some
+   space in the impure area of the request for stream state information */
+
+	rsb->rsb_stream = stream;
+	rsb->rsb_relation = relation;
+	rsb->rsb_impure = CMP_impure(csb, size);
+
+	return rsb;
+}
+
+
+void EXT_ready(REL relation)
+{
+/**************************************
+ *
+ *	E X T _ r e a d y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an external file.
+ *
+ **************************************/
+}
+
+
+void EXT_store(RPB * rpb, int *transaction)
+{
+/**************************************
+ *
+ *	E X T _ s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update an external  *
+ **************************************/
+	REL relation;
+	REC record;
+	FMT format;
+	EXT file;
+	int status;
+	USHORT offset;
+
+	relation = rpb->rpb_relation;
+	file = relation->rel_file;
+	record = rpb->rpb_record;
+	format = record->rec_format;
+	set_missing(relation, record);
+	offset = FLAG_BYTES(format->fmt_count);
+
+	rab.rab$w_isi = file->ext_isi;
+	rab.rab$l_rbf = record->rec_data + offset;
+	rab.rab$w_rsz = record->rec_length - offset;
+	rab.rab$l_rop = 0;
+
+	if (file->ext_file_type == FAB$C_IDX)
+		rab.rab$b_rac = RAB$C_KEY;
+	else if (!(file->ext_flags & EXT_eof)) {
+		disconnect(file);
+		rab.rab$l_rop |= RAB$M_EOF;
+		file->ext_isi = connect(file, 0);
+		rab.rab$b_rac = RAB$C_SEQ;
+		file->ext_flags |= EXT_eof;
+	}
+
+	status = sys$put(&rab);
+	if (!(status & 1))
+		ERR_post(isc_io_error,
+				 gds_arg_string, "sys$put",
+				 gds_arg_string, file->ext_filename,
+				 isc_arg_gds, isc_io_write_err, gds_arg_vms, status, 0);
+
+}
+
+
+void EXT_trans_commit(TRA transaction)
+{
+/**************************************
+ *
+ *	E X T _ t r a n s _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkin at transaction commit time.
+ *
+ **************************************/
+}
+
+
+void EXT_trans_prepare(TRA transaction)
+{
+/**************************************
+ *
+ *	E X T _ t r a n s _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkin at transaction prepare time.
+ *
+ **************************************/
+}
+
+
+void EXT_trans_rollback(TRA transaction)
+{
+/**************************************
+ *
+ *	E X T _ t r a n s _ r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkin at transaction rollback time.
+ *
+ **************************************/
+}
+
+
+void EXT_trans_start(TRA transaction)
+{
+/**************************************
+ *
+ *	E X T _ t r a n s _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkin at start transaction time.
+ *
+ **************************************/
+}
+
+
+static BOOLEAN check_sort(NOD sort, IDX * index, USHORT stream)
+{
+/**************************************
+ *
+ *	c h e c k _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check a sort node against an index to see if the
+ *	sort is totally redundant.
+ *
+ **************************************/
+	NOD field, *ptr, *end;
+	idx::idx_repeat * tail;
+
+/* If there is no sort, or there are more keys than
+   index segments, we obviously can optimize anything */
+
+	if (!sort || sort->nod_count > index->idx_count)
+		return FALSE;
+
+/* For each sort key, make sure the key matches the index segment,
+   and that the sort is ascending */
+
+	for (ptr = sort->nod_arg, end = ptr + sort->nod_count, tail =
+		 index->idx_rpt; ptr < end; ptr++, tail++) {
+		field = *ptr;
+		if (field->nod_type != nod_field ||
+			(USHORT) field->nod_arg[e_fld_stream] != stream ||
+			(USHORT) field->nod_arg[e_fld_id] != tail->idx_field ||
+			ptr[sort->nod_count]) return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+static BOOLEAN compare(UCHAR * string1, UCHAR * string2, USHORT length)
+{
+/**************************************
+ *
+ *	c o m p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two strings for equality.
+ *
+ **************************************/
+
+	do
+		if (*string1++ != *string2++)
+			return 1;
+	while (--length);
+
+	return 0;
+}
+
+
+static int compare_segment(NOD node, UCHAR * buffer, DSC * target)
+{
+/**************************************
+ *
+ *	c o m p a r e _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare field in record against upper bound.  Return
+ *	comparison.
+ *
+ **************************************/
+	DSC *source, desc;
+
+	source = EVL_expr(tdbb, node);
+	desc = *target;
+	desc.dsc_address = (ULONG) desc.dsc_address + buffer;
+
+	return MOV_compare(&desc, source);
+}
+
+
+static int connect(EXT file, USHORT key)
+{
+/**************************************
+ *
+ *	c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect RAB and report any errors.
+ *
+ **************************************/
+	int status;
+
+	rab.rab$w_isi = 0;
+	rab.rab$b_krf = key;
+	status = sys$connect(&rab);
+
+	if (!(status & 1))
+		ERR_post(isc_io_error,
+				 gds_arg_string, "sys$connect",
+				 gds_arg_string, file->ext_filename,
+				 isc_arg_gds, isc_io_access_err, gds_arg_vms, status, 0);
+
+	return rab.rab$w_isi;
+}
+
+
+static void disconnect(EXT file)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disconnect rab and check status.
+ *
+ **************************************/
+	int status;
+
+	status = sys$disconnect(&rab);
+
+	if (!(status & 1))
+		ERR_post(isc_io_error,
+				 gds_arg_string, "sys$disconnect",
+				 gds_arg_string, file->ext_filename,
+				 isc_arg_gds, isc_io_close_err, gds_arg_vms, status, 0);
+}
+
+
+static void expand_format(FMT external, FMT internal)
+{
+/**************************************
+ *
+ *	e x p a n d _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Merge internal and external formats -- if external info
+ *	is missing, default from internal.
+ *
+ *	Note: this doesn't yet handle datatypes supported in external
+ *	files but not internally.
+ *
+ **************************************/
+	DSC *idesc, *edesc, *end;
+	SLONG offset;
+
+/* For now, more or less ignore external type declarations */
+
+	offset = 0;
+
+	for (idesc = internal->fmt_desc, edesc = external->fmt_desc,
+		 end = edesc + external->fmt_count; edesc < end; edesc++, idesc++) {
+		*edesc = *idesc;
+		edesc->dsc_address = (UCHAR *) offset;
+		offset += edesc->dsc_length;
+	}
+
+	external->fmt_length = offset;
+}
+
+
+static SLONG find_field(
+						FMT format, USHORT type, USHORT offset, USHORT length)
+{
+/**************************************
+ *
+ *	f i n d _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a format block and the offset and length of a
+ *	field, find the field id.  If we can't identify the
+ *	field, return -1.
+ *
+ **************************************/
+	DSC *desc, *end;
+	USHORT n;
+
+	for (n = 0, desc = format->fmt_desc, end = desc + format->fmt_count;
+		 desc < end; desc++, n++)
+		if ((int) desc->dsc_address == offset && desc->dsc_length == length)
+			switch (type) {
+			case XAB$C_IN2:
+				if (desc->dsc_dtype == dtype_short)
+					return n;
+				break;
+
+			case XAB$C_IN4:
+				if (desc->dsc_dtype == dtype_long)
+					return n;
+				break;
+
+			case XAB$C_IN8:
+				if (desc->dsc_dtype == dtype_timestamp ||
+					desc->dsc_dtype == dtype_quad) return n;
+				break;
+
+			case XAB$C_BN8:
+				if (desc->dsc_dtype == dtype_timestamp)
+					return n;
+				break;
+
+			case XAB$C_STG:
+				if (desc->dsc_dtype == dtype_text)
+					return n;
+				break;
+			}
+
+	return -1;
+}
+
+
+static get_dbkey(RSB rsb)
+{
+/**************************************
+ *
+ *	g e t _ d b k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from an external file.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	REL relation;
+	EXT file;
+	RPB *rpb;
+	REC record;
+	DSC *desc;
+	NOD node;
+	FMT format;
+	int status;
+	SSHORT offset;
+	IRSB_EXT impure;
+
+	tdbb = GET_THREAD_DATA;
+
+/* Chase down misc pointers */
+
+	relation = rsb->rsb_relation;
+	file = relation->rel_file;
+	request = tdbb->tdbb_request;
+
+	impure = (UCHAR *) request + rsb->rsb_impure;
+	rpb = &request->req_rpb[rsb->rsb_stream];
+	record = rpb->rpb_record;
+	format = record->rec_format;
+
+/* If this isn't the first time thru its the last time thru */
+
+	if (!(impure->irsb_flags & irsb_first))
+		return FALSE;
+
+/* Evaluate expression */
+
+	node = (NOD) rsb->rsb_arg[0];
+	desc = EVL_expr(tdbb, node->nod_arg[0]);
+
+	offset = FLAG_BYTES(format->fmt_count);
+	rab.rab$w_isi = rpb->rpb_ext_isi;
+	rab.rab$l_ubf = record->rec_data + offset;
+	rab.rab$w_usz = record->rec_length - offset;
+
+/* If the rab is shared and has been moved, reposition it */
+
+	position_by_rfa(file, desc->dsc_address);
+	impure->irsb_flags &= ~irsb_first;
+	file->ext_flags &= ~EXT_eof;
+
+	if (status == RMS$_EOF)
+		return FALSE;
+
+	sys$free(&rab);
+	set_flags(relation, record);
+	MOVE_FAST(rab.rab$w_rfa, &rpb->rpb_ext_dbkey, sizeof(rab.rab$w_rfa));
+	MOVE_FAST(rab.rab$w_rfa, file->ext_dbkey, sizeof(rab.rab$w_rfa));
+
+	return TRUE;
+}
+
+
+static get_indexed(RSB rsb)
+{
+/**************************************
+ *
+ *	g e t _ i n d e x e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from an external file.
+ *
+ **************************************/
+	TDBB tdbb;
+	NOD node, *ptr, *end;
+	EXT file;
+	IRB retrieval;
+	REL relation;
+	FMT format;
+	IDX *index;
+	REQ request;
+	RPB *rpb;
+	UCHAR key_buffer[256], *p;
+	int status, result;
+	IRSB_EXT impure;
+	idx::idx_repeat * segment;
+
+	tdbb = GET_THREAD_DATA;
+
+/* Start by finding the signficant data structures for the stream.  These
+   are mainly used to initialize the stream at some particular key value */
+
+	relation = rsb->rsb_relation;
+	file = relation->rel_file;
+	format = file->ext_format;
+
+	request = tdbb->tdbb_request;
+	rpb = &request->req_rpb[rsb->rsb_stream];
+	impure = (UCHAR *) request + rsb->rsb_impure;
+
+	node = rsb->rsb_arg[0];
+	retrieval = (IRB) node->nod_arg[e_idx_retrieval];
+	index = &retrieval->irb_desc;
+
+/* If this is the first time through on this stream, and a lower
+   value is present, position the RMS stream with a keyed access.
+   In theory, this could have been done in "open_indexed", but
+   it is a little more convenient to do it here */
+
+	if (impure->irsb_flags & irsb_first)
+		if (retrieval->irb_lower_count) {
+			p = key_buffer;
+			segment = index->idx_rpt;
+			for (ptr = retrieval->irb_value, end =
+				 ptr + retrieval->irb_lower_count; ptr < end;
+				 ptr++, segment++) p +=
+					get_key_segment(*ptr, p,
+									format->fmt_desc + segment->idx_field);
+			rab.rab$b_krf = index->idx_id;
+			rab.rab$l_kbf = key_buffer;
+			rab.rab$b_ksz = p - key_buffer;
+			rab.rab$b_rac = RAB$C_KEY;
+			rab.rab$l_rop =
+				(retrieval->irb_generic & irb_equality) ? 0 : RAB$M_KGE;
+			status = sys$find(&rab);
+			file->ext_flags &= ~EXT_eof;
+			if (status == RMS$_EOF || status == RMS$_RNF)
+				return FALSE;
+			if (!(status & 1))
+				ERR_post(isc_io_error,
+						 gds_arg_string, "sys$find",
+						 gds_arg_string, file->ext_filename,
+						 isc_arg_gds, isc_io_read_err,
+						 gds_arg_vms, status, 0);
+		}
+
+/* Do an RMS sequential get on the stream.  If it comes back
+   EOF, we're done */
+
+	if (!get_sequential(rsb))
+		return FALSE;
+
+/* Check record against upper bound.  If we pass it, we're done.
+   Note: this code ignores issues of inclusive/exclusive upper
+   bound.  Since the full boolean will be applied anyway, the only
+   danger is processing a few extraneous records. */
+
+	segment = index->idx_rpt;
+
+	for (ptr = retrieval->irb_value + index->idx_count,
+		 end = ptr + retrieval->irb_upper_count; ptr < end; ptr++, segment++) {
+		result =
+			compare_segment(*ptr, rab.rab$l_ubf,
+							format->fmt_desc + segment->idx_field);
+		if (result < 0)
+			break;
+		if (result > 0)
+			return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+static USHORT get_key_segment(NOD node, UCHAR * buffer, DSC * target)
+{
+/**************************************
+ *
+ *	g e t _ k e y _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a data descriptor, key buffer and description,
+ *	build an RMS key segment.  This is basically trivial
+ *	as SLONG as the RMS data type matches the internal data
+ *	type.
+ *
+ **************************************/
+	DSC *source, desc;
+
+	source = EVL_expr(tdbb, node);
+	desc = *target;
+	desc.dsc_address = buffer;
+	MOV_move(source, &desc);
+
+	return desc.dsc_length;
+}
+
+
+static BOOLEAN get_sequential(RSB rsb)
+{
+/**************************************
+ *
+ *	g e t _ s e q u e n t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from an external file.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	REL relation;
+	EXT file;
+	RPB *rpb;
+	REC record;
+	FMT format;
+	int status;
+	SSHORT offset;
+	IRSB_EXT impure;
+
+	tdbb = GET_THREAD_DATA;
+
+	relation = rsb->rsb_relation;
+	file = relation->rel_file;
+	request = tdbb->tdbb_request;
+
+	impure = (UCHAR *) request + rsb->rsb_impure;
+	rpb = &request->req_rpb[rsb->rsb_stream];
+	record = rpb->rpb_record;
+	format = record->rec_format;
+
+	offset = FLAG_BYTES(format->fmt_count);
+	rab.rab$w_isi = rpb->rpb_ext_isi;
+	rab.rab$l_ubf = record->rec_data + offset;
+	rab.rab$w_usz = record->rec_length - offset;
+
+/* If the rab is shared and has been moved, reposition it */
+
+	if (rpb->rpb_ext_isi == file->ext_isi &&
+		!(impure->irsb_flags & irsb_first) &&
+		compare(file->ext_dbkey, &rpb->rpb_ext_dbkey, sizeof(rab.rab$w_rfa)))
+		position_by_rfa(file, &rpb->rpb_ext_dbkey);
+
+	rab.rab$b_rac = RAB$C_SEQ;
+	status = sys$get(&rab);
+	impure->irsb_flags &= ~irsb_first;
+	file->ext_flags &= ~EXT_eof;
+
+	if (status == RMS$_EOF)
+		return FALSE;
+
+	if (!(status & 1))
+		ERR_post(isc_io_error,
+				 gds_arg_string, "sys$get",
+				 gds_arg_string, file->ext_filename,
+				 isc_arg_gds, isc_io_read_err, gds_arg_vms, status, 0);
+
+	sys$free(&rab);
+	set_flags(relation, record);
+	MOVE_FAST(rab.rab$w_rfa, &rpb->rpb_ext_dbkey, sizeof(rab.rab$w_rfa));
+
+/* If we're using the shared stream, save the current dbkey to
+   determine whether repositioning will be required next time
+   thru */
+
+	if (rpb->rpb_ext_isi == file->ext_isi)
+		MOVE_FAST(rab.rab$w_rfa, file->ext_dbkey, sizeof(rab.rab$w_rfa));
+
+	return TRUE;
+}
+
+
+static BOOLEAN match_index(FMT format, struct XABKEY *xab, IDX * idx)
+{
+/**************************************
+ *
+ *	m a t c h _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to match RMS key against fields.  If success, build
+ *	internal index description and return TRUE.  Otherwise
+ *	return FALSE.
+ *
+ **************************************/
+	int n, dtype;
+	UCHAR *size, *end;
+	USHORT *position;
+	idx::idx_repeat * tail;
+
+	size = &xab->xab$b_siz;
+	end = size + xab->xab$b_nsg;
+	position = &xab->xab$w_pos;
+	tail = idx->idx_rpt;
+
+	for (; size < end; size++, position++, tail++) {
+		if ((n = find_field(format, xab->xab$b_dtp, *position, *size)) < 0)
+			return FALSE;
+		tail->idx_field = n;
+		tail->idx_itype = xab->xab$b_dtp;
+	}
+
+	idx->idx_count = xab->xab$b_nsg;
+	idx->idx_selectivity = .01;
+	idx->idx_flags = 0;
+	idx->idx_id = xab->xab$b_ref;
+
+	return TRUE;
+}
+
+
+static open_indexed(RSB rsb)
+{
+/**************************************
+ *
+ *	o p e n _ i n d e x e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a record stream for an external file.
+ *
+ **************************************/
+	TDBB tdbb;
+	REL relation;
+	EXT file;
+	REQ request;
+	RPB *rpb;
+	NOD node;
+	IRB retrieval;
+	IDX *index;
+	int status;
+
+	tdbb = GET_THREAD_DATA;
+
+	relation = rsb->rsb_relation;
+	file = relation->rel_file;
+	request = tdbb->tdbb_request;
+	rpb = &request->req_rpb[rsb->rsb_stream];
+	node = (NOD) rsb->rsb_arg[0];
+	retrieval = (IRB) node->nod_arg[e_idx_retrieval];
+	index = &retrieval->irb_desc;
+
+/* Create internal RMS rab (irab) for stream.  Connect
+   temporary shared rab, then save internal rab number */
+
+	fab.fab$w_ifi = file->ext_ifi;
+	rpb->rpb_ext_isi = connect(file, index->idx_id);
+}
+
+
+static open_sequential(RSB rsb)
+{
+/**************************************
+ *
+ *	o p e n _ s e q u e n t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a record stream for an external file.
+ *
+ **************************************/
+	TDBB tdbb;
+	REL relation;
+	EXT file;
+	REQ request;
+	RPB *rpb;
+	int status;
+
+	tdbb = GET_THREAD_DATA;
+
+	relation = rsb->rsb_relation;
+	file = relation->rel_file;
+	request = tdbb->tdbb_request;
+	rpb = &request->req_rpb[rsb->rsb_stream];
+
+	if (file->ext_file_type == FAB$C_IDX) {
+		fab.fab$w_ifi = file->ext_ifi;
+		rpb->rpb_ext_isi = connect(file, 0);
+	}
+	else {
+		file->ext_flags &= ~EXT_eof;
+		rpb->rpb_ext_isi = rab.rab$w_isi = file->ext_isi;
+		status = sys$ib_rewind(&rab);
+		if (!(status & 1))
+			ERR_post(isc_io_error,
+					 gds_arg_string, "sys$ib_rewind",
+					 gds_arg_string, file->ext_filename,
+					 isc_arg_gds, isc_io_access_err, gds_arg_vms, status, 0);
+	}
+}
+
+
+static void position_by_rfa(EXT file, USHORT * rfa)
+{
+/**************************************
+ *
+ *	p o s i t i o n _ b y _ r f a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Position file to specific RFA.
+ *
+ **************************************/
+	int status;
+
+	MOVE_FAST(rfa, rab.rab$w_rfa, sizeof(rab.rab$w_rfa));
+	rab.rab$b_rac = RAB$C_RFA;
+	file->ext_flags &= ~EXT_eof;
+	status = sys$get(&rab);
+
+	if (!(status & 1))
+		ERR_post(isc_io_error,
+				 gds_arg_string, "sys$get by RFA",
+				 gds_arg_string, file->ext_filename,
+				 isc_arg_gds, isc_io_access_err, gds_arg_vms, status, 0);
+}
+
+
+static void set_flags(REL relation, REC record)
+{
+/**************************************
+ *
+ *	s e t _ f l a g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set missing flags for a record.
+ *
+ **************************************/
+	FMT format;
+	LIT literal;
+	DSC *desc_ptr, desc;
+	FLD field, *field_ptr;
+	SSHORT l, offset, i;
+	UCHAR *p;
+
+	format = record->rec_format;
+	field_ptr = relation->rel_fields->vec_object;
+	desc_ptr = format->fmt_desc;
+
+	for (i = 0; i < format->fmt_count; i++, field_ptr++, desc_ptr++) {
+		SET_NULL(record, i);
+		if (!desc_ptr->dsc_length || !(field = *field_ptr))
+			continue;
+		if (literal = field->fld_missing_value) {
+			desc = *desc_ptr;
+			desc.dsc_address = record->rec_data + (int) desc.dsc_address;
+			if (!MOV_compare(&literal->lit_desc, &desc))
+				continue;
+		}
+		CLEAR_NULL(record, i);
+	}
+}
+
+
+static void set_missing(REL relation, REC record)
+{
+/**************************************
+ *
+ *	s e t _ m i s s i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set missing values for MODIFY/STORE.
+ *
+ **************************************/
+	FMT format;
+	FLD *field_ptr, field;
+	LIT literal;
+	DSC desc, *desc_ptr;
+	UCHAR *p;
+	USHORT i, l, offset;
+
+	format = record->rec_format;
+	field_ptr = relation->rel_fields->vec_object;
+	desc_ptr = format->fmt_desc;
+
+	for (i = 0; i < format->fmt_count; i++, field_ptr++, desc_ptr++)
+		if ((field = *field_ptr) &&
+			!field->fld_computation &&
+			(l = desc_ptr->dsc_length) && TEST_NULL(record, i)) {
+			p = record->rec_data + (int) desc_ptr->dsc_address;
+			if (literal = field->fld_missing_value) {
+				desc = *desc_ptr;
+				desc.dsc_address = p;
+				MOV_move(&literal->lit_desc, &desc);
+			}
+			else {
+				offset = (desc_ptr->dsc_dtype == dtype_text) ? ' ' : 0;
+				do
+					*p++ = offset;
+				while (--l);
+			}
+		}
+}
diff --git a/src/jrd/fields.h b/src/jrd/fields.h
new file mode 100644
index 0000000000..b81f52c9af
--- /dev/null
+++ b/src/jrd/fields.h
@@ -0,0 +1,119 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		fields.h
+ *	DESCRIPTION:	Global system relation fields
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef BLOB_SIZE
+#define BLOB_SIZE	8
+#endif
+
+#define TIMESTAMP_SIZE	8
+
+	FIELD(fld_context		, nam_v_context		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_ctx_name		, nam_context		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_description	, nam_description	, dtype_blob	, BLOB_SIZE		, BLOB_text				, 0, NULL)
+	FIELD(fld_edit_string	, nam_edit_string	, dtype_varying	, 127			, 0						, 0, NULL)
+	FIELD(fld_f_id			, nam_f_id			, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_f_name		, nam_f_name		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_flag			, nam_sys_flag		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_i_id			, nam_i_id			, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_i_name		, nam_i_name		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_f_length		, nam_f_length		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_f_position	, nam_f_position	, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_f_scale		, nam_f_scale		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_f_type		, nam_f_type		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_format		, nam_fmt			, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_key_length	, nam_key_length	, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_p_number		, nam_p_number		, dtype_long	, sizeof(SLONG)	, 0						, 0, NULL)
+	FIELD(fld_p_sequence	, nam_p_sequence	, dtype_long	, sizeof(SLONG)	, 0						, 0, NULL)
+	FIELD(fld_p_type		, nam_p_type		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_q_header		, nam_q_header		, dtype_blob	, BLOB_SIZE		, BLOB_text				, 0, NULL)
+	FIELD(fld_r_id			, nam_r_id			, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_r_name		, nam_r_name		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_s_count		, nam_s_count		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_s_length		, nam_s_length		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_source		, nam_source		, dtype_blob	, BLOB_SIZE		, BLOB_text				, 0, NULL)
+	FIELD(fld_sub_type		, nam_f_sub_type	, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_v_blr			, nam_v_blr			, dtype_blob	, BLOB_SIZE		, BLOB_blr				, 0, NULL)
+	FIELD(fld_validation	, nam_vl_blr		, dtype_blob	, BLOB_SIZE		, BLOB_blr				, 0, NULL)
+	FIELD(fld_value			, nam_value			, dtype_blob	, BLOB_SIZE		, BLOB_blr				, 0, NULL)
+	FIELD(fld_class			, nam_class			, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_acl			, nam_acl			, dtype_blob	, BLOB_SIZE		, BLOB_acl				, 0, NULL)
+	FIELD(fld_file_name		, nam_file_name		, dtype_varying	, 255			, 0						, 0, NULL)
+	FIELD(fld_file_seq		, nam_file_seq		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_file_start	, nam_file_start	, dtype_long	, sizeof(SLONG)	, 0						, 0, NULL)
+	FIELD(fld_file_length	, nam_file_length	, dtype_long	, sizeof(SLONG)	, 0						, 0, NULL)
+	FIELD(fld_file_flags	, nam_file_flags	, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_trigger		, nam_trigger		, dtype_blob	, BLOB_SIZE		, BLOB_blr				, 0, NULL)
+
+	FIELD(fld_trg_name		, nam_trg_name		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_gnr_name		, nam_gnr_name		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_fun_name		, nam_fun_name		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_ext_name		, nam_ext_name		, dtype_text	, 31			, 0						, 0, NULL)
+	FIELD(fld_typ_name		, nam_typ_name		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_dimensions	, nam_dimensions	, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_runtime		, nam_runtime		, dtype_blob	, BLOB_SIZE		, BLOB_summary			, 0, NULL)
+	FIELD(fld_trg_seq		, nam_trg_seq		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_gnr_type		, nam_gnr_type		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_trg_type		, nam_trg_type		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_obj_type		, nam_obj_type		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_mechanism		, nam_mechanism		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_f_descr		, nam_desc			, dtype_blob	, BLOB_SIZE		, BLOB_format			, 0, NULL)
+	FIELD(fld_fun_type		, nam_fun_type		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_trans_id		, nam_trans_id		, dtype_long	, sizeof(SLONG)	, 0						, 0, NULL)
+	FIELD(fld_trans_state	, nam_trans_state	, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_time			, nam_time			, dtype_timestamp, TIMESTAMP_SIZE,0						, 0, NULL)
+	FIELD(fld_trans_desc	, nam_trans_desc	, dtype_blob	, BLOB_SIZE		, BLOB_tra				, 0, NULL)
+	FIELD(fld_msg			, nam_msg			, dtype_varying	, 80			, 0						, 0, NULL)
+	FIELD(fld_msg_num		, nam_msg_num		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_user			, nam_user			, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_privilege		, nam_privilege		, dtype_text	, 6				, 0						, 0, NULL)
+	FIELD(fld_ext_desc		, nam_ext_desc		, dtype_blob	, BLOB_SIZE		, BLOB_extfile			, 0, NULL)
+	FIELD(fld_shad_num		, nam_shad_num		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_gen_name		, nam_gen_name		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_gen_id		, nam_gen_id		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_bound			, nam_bound			, dtype_long	, sizeof(SLONG)	, 0						, 0, NULL)
+	FIELD(fld_dim			, nam_dim			, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_statistics	, nam_statistics	, dtype_double	, sizeof(double), 0						, 0, NULL)
+	FIELD(fld_null_flag		, nam_null_flag		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_con_name		, nam_con_name		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_con_type		, nam_con_type		, dtype_text	, 11			, 0						, 0, NULL)
+	FIELD(fld_defer			, nam_defer			, dtype_text	, 3				, 0						, 0, dflt_no)
+	FIELD(fld_match			, nam_match			, dtype_text	, 7				, 0						, 0, dflt_full)
+	FIELD(fld_rule			, nam_rule			, dtype_text	, 11			, 0						, 0, dflt_restrict)
+	FIELD(fld_file_partitions, nam_file_partitions, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_prc_blr		, nam_prc_blr		, dtype_blob	, BLOB_SIZE		, BLOB_blr				, 0, NULL)
+	FIELD(fld_prc_id		, nam_prc_id		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_prc_prm		, nam_prc_prm		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_prc_name		, nam_prc_name		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_prm_name		, nam_prm_name		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_prm_number	, nam_prm_number	, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_prm_type		, nam_prm_type		, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+
+	FIELD(fld_charset_name	, nam_charset_name	, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_charset_id	, nam_charset_id	, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_collate_name	, nam_collate_name	, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_collate_id	, nam_collate_id	, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
+	FIELD(fld_num_chars		, nam_num_chars		, dtype_long	, sizeof(SLONG)	, 0						, 0, NULL)
+	FIELD(fld_xcp_name		, nam_xcp_name		, dtype_text	, 31			, dsc_text_type_metadata, 0, NULL)
+	FIELD(fld_xcp_number	, nam_xcp_number	, dtype_long	, sizeof(SLONG)	, 0						, 0, NULL)
+	FIELD(fld_file_p_offset	, nam_file_p_offset	, dtype_long	, sizeof(SLONG)	, 0						, 0, NULL)
+	FIELD(fld_f_precision	, nam_f_precision	, dtype_short	, sizeof(SSHORT), 0						, 0, NULL)
diff --git a/src/jrd/fil.h b/src/jrd/fil.h
new file mode 100644
index 0000000000..763f300de5
--- /dev/null
+++ b/src/jrd/fil.h
@@ -0,0 +1,77 @@
+/*
+ *	PROGRAM:	JRD temp file space list
+ *	MODULE:		fil.h
+ *	DESCRIPTION:	Lists of directories for temporary files or UDFs
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_FIL_H_
+#define _JRD_FIL_H_
+
+#include "../jrd/thd.h"
+
+#ifdef UNIX
+#define WORKDIR        "/tmp/"
+#endif
+
+#ifdef PC_PLATFORM
+#ifdef NETWARE_386
+#define WORKDIR        "sys:\\tmp\\"
+#else
+#define WORKDIR        ""
+#endif
+#endif
+
+#ifdef WIN_NT
+#define WORKDIR        "/temp/"
+#endif
+
+#ifdef VMS
+#define WORKDIR        "SYS$SCRATCH:"
+#endif
+
+#define	ALLROOM		-1			/* use all available space */
+
+/* Defined the directory list structures. */
+
+/* Temporary workfile directory list. */
+
+typedef struct dls {
+	SLONG dls_header;
+	struct dls *dls_next;
+	ULONG dls_size;				/* Maximum size in the directory */
+	ULONG dls_inuse;			/* Occupied space in the directory */
+	TEXT dls_directory[2];		/* Directory name */
+} *DLS;
+
+typedef struct mdls {
+	DLS mdls_dls;				/* Pointer to the directory list */
+	BOOLEAN mdls_mutex_init;
+	MUTX_T mdls_mutex[1];		/* Mutex for directory list. Must
+								   be locked before list operations */
+} MDLS;
+
+/* external function directory list */
+
+typedef struct fdls {
+	struct fdls *fdls_next;
+	TEXT fdls_directory[1];
+} FDLS;
+
+#endif /* _JRD_FIL_H_ */
diff --git a/src/jrd/file_params.h b/src/jrd/file_params.h
new file mode 100644
index 0000000000..8a684ec700
--- /dev/null
+++ b/src/jrd/file_params.h
@@ -0,0 +1,204 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		file_params.h
+ *	DESCRIPTION:	File parameter definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_FILE_PARAMS_H_
+#define _JRD_FILE_PARAMS_H_
+
+#define EVENT_DEFAULT_SIZE	32768
+#define EVENT_EXTEND_SIZE	32768
+#define EVENT_VERSION		2
+#define EVENT_SEMAPHORES	1
+
+#ifdef NOHOSTNAME
+#define EVENT_FILE		"isc_event1"
+#define LOCK_FILE		"isc_lock1.gbl"
+#define CSI_FILE		"isc_csv1"
+#define INIT_FILE		"isc_init1"
+#define GUARD_FILE		"isc_guard1"
+#else
+#ifdef SMALL_FILE_NAMES
+#define EVENT_FILE		"isce1.%s"
+#define LOCK_FILE		"iscl1.%s"
+#define CSI_FILE		"iscc1.%s"
+#define INIT_FILE		"isci1.%s"
+#define GUARD_FILE		"iscg1.%s"
+#endif
+#endif
+
+
+#ifdef NETWARE_386
+
+#define LOCK_HEADER		"isc_conf"
+
+#endif
+
+
+#ifdef VMS
+#define EVENT_FILE		"[000000]isc_event1.%s"
+#define INIT_FILE		"[000000]isc_init1.%s"
+#define GUARD_FILE		"[000000]isc_guard1.%s"
+#endif
+
+#if defined WIN_NT
+#define EVENT_FILE		"%s.evn"
+#define LOCK_FILE		"%s.lck"
+#define CSI_FILE		"%s.csv"
+#define LOCK_HEADER		"ibconfig"
+#define INIT_FILE		"%s.int"
+#define GUARD_FILE		"%s.grd"
+#endif
+
+#ifndef EVENT_FILE
+#define EVENT_FILE		"isc_event1.%s"
+#endif
+
+#ifndef LOCK_FILE
+#define LOCK_FILE		"isc_lock1.%s"
+#endif
+
+#ifndef CSI_FILE
+#define CSI_FILE		"isc_csv1.%s"
+#endif
+
+#ifndef LOCK_HEADER
+#define LOCK_HEADER		"isc_config"
+#endif
+
+#ifndef INIT_FILE
+#define INIT_FILE		"isc_init1.%s"
+#endif
+
+#ifndef GUARD_FILE
+#define GUARD_FILE		"isc_guard1.%s"
+#endif
+
+#ifdef sun
+#ifndef SUN3_3
+#include <sys/types.h>
+#include <sys/ipc.h>
+#define SUNOS4
+#endif
+#endif
+
+#ifdef EPSON
+#include <sys/types.h>
+#include <sys/ipc.h>
+#endif
+
+#ifdef LINUX
+#include <sys/types.h>
+#include <sys/ipc.h>
+#endif
+
+#if defined FREEBSD || defined NETBSD
+#include <sys/types.h>
+#include <sys/ipc.h>
+#endif
+
+#ifdef CSV
+#define CSI_DEFAULT_SIZE	262144
+#define CSI_EXTEND_SIZE		32768
+#define MAX_PROCESSES		16
+#endif
+
+#ifdef UNIX
+#define WORKFILE	"/tmp/"
+#ifdef LINUX
+#define ISC_PREFIX	"/opt/interbase/"
+#else
+#define ISC_PREFIX	"/usr/interbase/"
+#endif
+#endif
+
+
+/* keep MSG_FILE_LANG in sync with build_file.e */
+
+#ifdef PC_PLATFORM
+#ifdef NETWARE_386
+#define WORKFILE	"sys:\\tmp\\"
+#define ISC_PREFIX	"sys:\\interbas\\"
+#define TEMP_PATTERN	""
+#else
+#define WORKFILE	""
+#define ISC_PREFIX	"c:/interbas/"
+#define TEMP_PATTERN	"XXXXXX"
+#endif
+#define MSG_FILE	"interbas.msg"
+#define MSG_FILE_LANG	"%.8s.msg"
+#define LOCALE_MAX	5
+#define LOGFILE		"interbas.log"
+#endif
+
+#ifdef WIN_NT
+#define WORKFILE	"c:\\temp\\"
+#define ISC_PREFIX	"c:\\Program Files\\Borland\\InterBase/"
+#define MSG_FILE	"interbase.msg"
+#define MSG_FILE_LANG	"intl/%.8s.msg"
+#define LOCALE_MAX	6
+#define LOGFILE		"interbase.log"
+#define TEMP_PATTERN	"XXXXXX"
+#endif
+
+#ifdef VMS
+#define MSG_FILE	"[sysmsg]interbase_msg.dat"
+#define MSG_FILE_LANG	"[sysmsg]interbase_%.10s.dat"
+#define LOCALE_MAX	10
+#define LOGFILE		"[syserr]interbase.log"
+#define WORKFILE	"SYS$SCRATCH:"
+#define ISC_LOGICAL	"interbase:"
+#define ISC_LOGICAL_LOCK	"interbase_lock:"
+
+typedef struct isc_vms_prefix
+{
+	TEXT*	isc_prefix;
+	TEXT*	vms_prefix;
+} *ISC_VMS_PREFIX;
+
+static struct isc_vms_prefix trans_prefix[] =
+{
+	"[SYSMSG]", "SYS$MESSAGE:",
+	"[SYSEXE]", "SYS$SYSTEM:",
+	"[SYSMGR]", "SYS$MANAGER:",
+	"[SYSLIB]", "SYS$LIBRARY:",
+	"[SYSHLP]", "SYS$HELP:",
+	"[SYSERR]", "SYS$ERRORLOG:",
+	"[000000]", "SYS$SYSTEM:",
+	NULL, NULL
+};
+#endif
+
+#ifndef MSG_FILE
+#define MSG_FILE	"interbase.msg"
+#define MSG_FILE_LANG	"intl/%.10s.msg"
+#define LOCALE_MAX	10
+#endif
+
+#ifndef LOGFILE
+#define LOGFILE		"interbase.log"
+#endif
+
+#ifndef TEMP_PATTERN
+#define TEMP_PATTERN	"_XXXXXX"
+#endif
+
+#endif /* _JRD_FILE_PARAMS_H_ */
diff --git a/src/jrd/filte_proto.h b/src/jrd/filte_proto.h
new file mode 100644
index 0000000000..82ba411a13
--- /dev/null
+++ b/src/jrd/filte_proto.h
@@ -0,0 +1,43 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		filte_proto.h
+ *	DESCRIPTION:	Prototype Header file for filters.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_FILTE_PROTO_H_
+#define _JRD_FILTE_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern STATUS filter_acl(USHORT, struct ctl *);
+extern STATUS filter_blr(USHORT, struct ctl *);
+extern STATUS filter_format(USHORT, struct ctl *);
+extern STATUS filter_runtime(USHORT, struct ctl *);
+extern STATUS filter_text(USHORT, struct ctl *);
+extern STATUS filter_transliterate_text(USHORT, struct ctl *);
+extern STATUS filter_trans(USHORT, struct ctl *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_FILTE_PROTO_H_ */
diff --git a/src/jrd/filters.cpp b/src/jrd/filters.cpp
new file mode 100644
index 0000000000..1cf667951b
--- /dev/null
+++ b/src/jrd/filters.cpp
@@ -0,0 +1,1302 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		filters.c
+ *	DESCRIPTION:	Blob filters for system define objects
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/acl.h"
+#include "../jrd/val.h"
+#include "../jrd/met.h"
+#include "../jrd/blob_filter.h"
+#include "../jrd/intl.h"
+#include "../jrd/intlobj.h"
+#include "../intl/charsets.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/filte_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/thd_proto.h"
+
+static STATUS caller(USHORT, CTL, USHORT, SCHAR *, USHORT *);
+static void dump_blr(CTL, USHORT, SCHAR *);
+static void move(SCHAR *, SCHAR *, USHORT);
+static STATUS string_filter(USHORT, CTL);
+static void string_put(CTL, SCHAR *);
+
+/* Note:  This table is used to indicate which bytes could represent
+ *	  ASCII characters - and is used to filter "untyped" blobs
+ *	  (subtype 0) to type text.
+ *	  For V3 historical reasons, only ASCII byte values are passed
+ *	  through.  All other byte values are mapped to ascii '.'
+ */
+static CONST UCHAR char_tab[128] =
+	{ 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0
+};
+
+
+/* Miscellaneous filter stuff (should be moved someday) */
+
+typedef struct tmp {
+	struct tmp *tmp_next;
+	USHORT tmp_length;
+	TEXT tmp_string[1];
+} *TMP;
+
+#ifdef VMS
+#define WILD_CARD_UIC "<*,*>"
+#else
+#define WILD_CARD_UIC "(*.*)"
+#endif
+
+/* TXNN: Used on filter of internal data structure to text */
+static CONST TEXT acl_privs[] = "?CGDRWPIEUTX??", acl_ids[][16] = {
+	"?: ",
+	"group: ",
+	"user: ",
+	"person: ",
+	"project: ",
+	"organization: ",
+	"node: ",
+	"view: ",
+	"all views",
+	"trigger: ",
+	"procedure: ",
+	"role: "
+};
+
+/* TXNN: Used on filter of internal data structure to text */
+static CONST TEXT dtypes[][36] = {
+	"",
+	"TEXT, length %d",
+	"COUNTED_STRING, length %d",
+	"VARYING, max length %d",
+	"",
+	"",
+	"PACKED DECIMAL, length %d, scale %d",
+	"BYTE, scale %d",
+	"SHORT, scale %d",
+	"LONG, scale %d",
+	"QUAD, scale %d",
+	"FLOAT",
+	"DOUBLE",
+	"D_FLOAT",
+	"",
+	"",
+	"DATE",
+	"BLOB",
+	"ARRAY"
+};
+
+
+STATUS filter_acl(USHORT action, CTL control)
+{
+/**************************************
+ *
+ *	f i l t e r _ a c l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get next segment from a access control list.
+ *
+ **************************************/
+	SCHAR *p, *temp, c, buffer[512];
+	TEXT line[256], *out;
+	SLONG l;
+	USHORT length;
+	STATUS status;
+	BOOLEAN all_wild;
+
+	if (action != ACTION_open)
+		return string_filter(action, control);
+
+/* Initialize for retrieval */
+
+	l = control->ctl_source_handle->ctl_total_length;
+	p = temp =
+		(l <= sizeof(buffer)) ? buffer : (SCHAR *) gds__alloc((SLONG) l);
+/* FREE: at procedure exit */
+	if (!p)						/* NOMEM: */
+		return gds_virmemexh;
+
+	status = caller(ACTION_get_segment, control, (USHORT) l, temp, &length);
+
+	if (!status) {
+		sprintf(line, "ACL version %d", (int) *p++);
+		string_put(control, line);
+		out = line;
+
+		while (c = *p++)
+			switch (c) {
+			case ACL_id_list:
+				all_wild = TRUE;
+				*out++ = '\t';
+				while ((c = *p++) != 0) {
+					all_wild = FALSE;
+					sprintf(out, "%s%.*s, ", acl_ids[c], *p, p + 1);
+					p += *p + 1;
+					while (*out)
+						++out;
+				}
+				if (all_wild) {
+					sprintf(out, "all users: %s, ", WILD_CARD_UIC);
+					while (*out)
+						++out;
+				}
+				break;
+
+			case ACL_priv_list:
+				sprintf(out, "privileges: (");
+				while (*out)
+					++out;
+				while (c = *p++)
+					*out++ = acl_privs[c];
+				*out++ = ')';
+				*out = 0;
+				string_put(control, line);
+				out = line;
+				break;
+			}
+	}
+
+	control->ctl_data[1] = control->ctl_data[0];
+
+	if (temp != buffer)
+		gds__free(temp);
+
+	return SUCCESS;
+}
+
+
+STATUS filter_blr(USHORT action, CTL control)
+{
+/**************************************
+ *
+ *	f i l t e r _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get next segment from a blr blob. 
+ *	Doctor up Rdb BLR blobs that omit
+ *	the BLR eoc so the pretty printer
+ *	doesn't complain.
+ *
+ **************************************/
+	SCHAR *temp, buffer[512];
+	USHORT length;
+	SLONG l;
+	STATUS status;
+
+	if (action != ACTION_open)
+		return string_filter(action, control);
+
+/* Initialize for retrieval */
+
+	l = 1 + control->ctl_source_handle->ctl_total_length;
+	temp = (l <= sizeof(buffer)) ? buffer : (SCHAR *) gds__alloc((SLONG) l);
+/* FREE: at procedure exit */
+	if (!temp)					/* NOMEM: */
+		return gds_virmemexh;
+
+	status = caller(ACTION_get_segment, control, (USHORT) l, temp, &length);
+
+	if (!status) {
+		if ((l > length) && (temp[length - 1] != blr_eoc))
+			temp[length] = blr_eoc;
+		gds__print_blr(reinterpret_cast < UCHAR * >(temp),
+					   reinterpret_cast < void (*)() > (dump_blr),
+					   reinterpret_cast < char *>(control), 0);
+	}
+
+	control->ctl_data[1] = control->ctl_data[0];
+
+	if (temp != buffer)
+		gds__free(temp);
+
+	return SUCCESS;
+}
+
+
+STATUS filter_format(USHORT action, CTL control)
+{
+/**************************************
+ *
+ *	f i l t e r _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get next segment from a record format blob.
+ *
+ **************************************/
+	USHORT length;
+	STATUS status;
+	int value;
+	DSC desc;
+	TEXT *p, temp1[64], temp2[64];
+
+/* Unless this is a get segment call, just return success */
+
+	if (action != ACTION_get_segment)
+		return SUCCESS;
+
+/* Loop thru descriptors looking for one with a data type */
+
+	for (;;) {
+		status = caller(ACTION_get_segment,
+						control,
+						sizeof(desc),
+						reinterpret_cast < char *>(&desc), &length);
+		if (status != SUCCESS && status != gds_segment)
+			return status;
+		if (desc.dsc_dtype)
+			break;
+		++control->ctl_data[0];
+	}
+
+	value = desc.dsc_scale;
+	p = const_cast < char *>(dtypes[desc.dsc_dtype]);
+
+	if (desc.dsc_dtype == dtype_text)
+		value = desc.dsc_length;
+	else if (desc.dsc_dtype == dtype_varying)
+		value = desc.dsc_length - sizeof(SSHORT);
+	else if (desc.dsc_dtype > dtype_array) {
+		p = "data type %d unknown";
+		value = desc.dsc_dtype;
+	}
+
+	if ((desc.dsc_dtype <= dtype_any_text) && (desc.dsc_ttype != 0)) {
+		sprintf(temp2, p, value);
+		sprintf(temp1, "%s, sub-type %d", temp2, INTL_TTYPE(&desc));
+	}
+	else
+		sprintf(temp1, p, value);
+
+	sprintf(temp2, "%ld: %s", control->ctl_data[0]++, temp1);
+
+	if ((length = strlen(temp2)) > control->ctl_buffer_length)
+		length = control->ctl_buffer_length;
+
+	control->ctl_segment_length = length;
+	move(temp2, reinterpret_cast < char *>(control->ctl_buffer), length);
+
+	return SUCCESS;
+}
+
+
+STATUS filter_runtime(USHORT action, CTL control)
+{
+/**************************************
+ *
+ *	f i l t e r _ r u n t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get next segment from a relation runtime summary blob.
+ *
+ **************************************/
+	USHORT length, buff_len, n, blr;
+	STATUS status;
+	TEXT *p, *q, *buff, temp[256], line[128];
+
+	if (action == ACTION_close)
+		return string_filter(action, control);
+
+/* Unless this is a get segment call, just return success */
+
+	if (action != ACTION_get_segment)
+		return SUCCESS;
+
+/* If there is a string filter active, use it first */
+
+	if (control->ctl_data[0]) {
+		status = string_filter(action, control);
+		if (status != gds_segstr_eof)
+			return status;
+		string_filter(ACTION_close, control);
+	}
+
+/* Loop thru descriptors looking for one with a data type */
+
+	buff = temp;
+	buff_len = sizeof(temp);
+	control->ctl_data[3] = 8;
+
+	status = caller(ACTION_get_segment, control, buff_len, buff, &length);
+
+	if (status == gds_segment)
+		return gds_segstr_eof;
+
+	if (status)
+		return status;
+
+	buff[length] = 0;
+	p = buff + 1;
+	q = (TEXT *) & n;
+	q[0] = p[0];
+	q[1] = p[1];
+	blr = FALSE;
+
+	switch ((RSR_T) buff[0]) {
+	case RSR_field_name:
+		sprintf(line, "    name: %s", p);
+		break;
+
+	case RSR_field_id:
+		sprintf(line, "Field id: %d", n);
+		break;
+
+	case RSR_dimensions:
+		sprintf(line, "Array dimensions: %d", n);
+		break;
+
+	case RSR_array_desc:
+		sprintf(line, "Array descriptor");
+		break;
+
+	case RSR_view_context:
+		sprintf(line, "    view_context: %d", n);
+		break;
+
+	case RSR_base_field:
+		sprintf(line, "    base_field: %s", p);
+		break;
+
+	case RSR_computed_blr:
+		sprintf(line, "    computed_blr:");
+		blr = TRUE;
+		break;
+
+	case RSR_missing_value:
+		sprintf(line, "    missing_value:");
+		blr = TRUE;
+		break;
+
+	case RSR_default_value:
+		sprintf(line, "    default_value:");
+		blr = TRUE;
+		break;
+
+	case RSR_validation_blr:
+		sprintf(line, "    validation_blr:");
+		blr = TRUE;
+		break;
+
+	case RSR_security_class:
+		sprintf(line, "    security_class: %s", p);
+		break;
+
+	case RSR_trigger_name:
+		sprintf(line, "    trigger_name: %s", p);
+		break;
+
+	default:
+		sprintf(line, "*** unknown verb %d ***", (int) buff[0]);
+	}
+
+	if ((length = strlen(line)) > control->ctl_buffer_length) {
+		/* The string is too long for the caller's buffer.  Save the
+		   entire string for output by the string_filter routine. */
+
+		string_put(control, line);
+		length = 0;
+	}
+
+	if (blr) {
+		gds__print_blr(reinterpret_cast < UCHAR * >(p),
+					   reinterpret_cast < void (*)() > (dump_blr),
+					   reinterpret_cast < char *>(control), 0);
+		control->ctl_data[1] = control->ctl_data[0];
+	}
+
+	if (!length) {
+		/* The string was too long for the caller's buffer.  Return
+		   as much as possible to the user. */
+
+		return string_filter(action, control);
+	}
+
+	control->ctl_segment_length = length;
+	move(line, reinterpret_cast < char *>(control->ctl_buffer),
+		 control->ctl_segment_length);
+
+	return status;
+}
+
+
+STATUS filter_text(USHORT action, CTL control)
+{
+/**************************************
+ *
+ *	f i l t e r _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get next segment from a text blob.  Handle embedded
+ *	carriage returns as separate segments.
+ *
+ *	The usage of the variable ctl_data slots:
+ *
+ *	    ctl_data [0]	residual bytes
+ *	    ctl_data [1]	address of temp space
+ *	    ctl_data [2]	flag indicating residual bytes was segment
+ *	    ctl_data [3]	length of temp space
+ *
+ **************************************/
+	CTL source;
+	TEXT *p, *left_over;
+	USHORT length, l, left_length, buffer_used;
+	STATUS status;
+
+	switch (action) {
+	case ACTION_open:
+		source = control->ctl_source_handle;
+		control->ctl_total_length = source->ctl_total_length;
+		control->ctl_max_segment = source->ctl_max_segment;
+		control->ctl_number_segments = source->ctl_number_segments;
+		control->ctl_data[0] = control->ctl_data[1] = control->ctl_data[2] =
+			control->ctl_data[3] = 0;
+		return SUCCESS;
+
+	case ACTION_close:
+		if (control->ctl_data[1]) {
+			gds__free((SLONG *) control->ctl_data[1]);
+			control->ctl_data[1] = (IPTR) NULL;
+		}
+		return SUCCESS;
+
+	case ACTION_get_segment:
+		break;
+
+	case ACTION_put_segment:
+	case ACTION_create:
+	case ACTION_seek:
+		return gds_uns_ext;
+
+	case ACTION_alloc:
+	case ACTION_free:
+		return SUCCESS;
+
+	default:
+		BUGCHECK(289);			/* Unknown blob filter ACTION */
+		return gds_uns_ext;
+	}
+
+/* Drop thru for ACTION_get_segment. */
+
+	left_over = 0;
+	left_length = 0;
+	buffer_used = 0;
+
+/* if there was any data left over from previous get, use as much as
+   user's buffer will hold */
+
+	if (length = control->ctl_data[0]) {
+		buffer_used = MIN(length, control->ctl_buffer_length);
+		MOVE_FAST((void *) control->ctl_data[1], control->ctl_buffer,
+				  buffer_used);
+
+		/* remember how much did not get used */
+
+		if (length > buffer_used) {
+			left_over = (TEXT *) control->ctl_data[1] + buffer_used;
+			left_length = length - buffer_used;
+		}
+		else {
+			left_over = 0;
+			left_length = 0;
+		}
+	}
+
+/* if there was no data left over from previous get or all the data
+   left from previous get was used and there is still more of that segment
+   not read, do a get segment */
+
+	if ((buffer_used == 0) || (control->ctl_data[2]
+							   &&
+							   ((l
+								 =
+								 (control->ctl_buffer_length - buffer_used)) >
+								0))) {
+		l = control->ctl_buffer_length - buffer_used;
+		status = caller(ACTION_get_segment,
+						control,
+						l,
+						reinterpret_cast <
+						char *>(control->ctl_buffer + buffer_used), &l);
+		if (status == gds_segment)
+			control->ctl_data[2] = gds_segment;
+		else if (status)
+			return status;
+		else
+			control->ctl_data[2] = SUCCESS;
+		buffer_used += l;
+	}
+
+/* Search data for unprintable data or EOL */
+
+	for (p = reinterpret_cast < char *>(control->ctl_buffer), l = buffer_used;
+		 l; p++, --l) {
+		if (*p == '\n') {
+			/* Found a newline.  First save what comes after the newline. */
+
+			control->ctl_segment_length = (UCHAR *) p - control->ctl_buffer;
+			control->ctl_data[0] = l - 1;
+
+			/* if control buffer cannot accommodate what needs to be saved, free
+			   the control buffer */
+
+			if (control->ctl_data[1]
+				&& (control->ctl_data[0] > control->ctl_data[3])) {
+				gds__free((SLONG *) control->ctl_data[1]);
+				control->ctl_data[1] = (IPTR) NULL;
+				control->ctl_data[3] = 0;
+			}
+
+			/* if there is no control buffer allocate one */
+
+			if (!control->ctl_data[1]) {
+				control->ctl_data[1] =
+					(IPTR) gds__alloc((SLONG) control->ctl_buffer_length);
+				/* FREE: above & ACTION_close in this procedure */
+				if (!control->ctl_data[1])	/* NOMEM: */
+					return gds_virmemexh;
+				control->ctl_data[3] = control->ctl_buffer_length;
+			}
+
+			/* save data after found newline */
+
+			MOVE_FAST(p + 1, (void *) control->ctl_data[1], l - 1);
+
+			/* if there was data in control buffer not moved to user's buffer,
+			   move it to be contiguous with what was saved from user's buffer
+			   (note this can work with out more checking than is done here
+			   because if there was left over:
+			   1. we did not have to free & reallocate buffer
+			   2. what we moved back from user's buffer was able to fit in
+			   control buffer before what was left over. */
+
+			if (left_over) {
+				p = (TEXT *) control->ctl_data[1] + l - 1;
+				MOVE_FAST(left_over, p, left_length);
+				control->ctl_data[0] += left_length;
+			}
+			return SUCCESS;
+		}
+
+		/* replace unprintable characters */
+
+		if (*(UCHAR *) p >= sizeof(char_tab) || !char_tab[*p])
+			*p = '.';
+	}
+
+/* couldn't find a newline, return what there is, saving what was left
+   in control buffer and setting return status based on existence of
+   left over or whether or not control buffer did not hold end of segment */
+
+	control->ctl_segment_length = buffer_used;
+	if (left_over) {
+		MOVE_FAST(left_over, (void *) control->ctl_data[1], left_length);
+		control->ctl_data[0] = left_length;
+		return gds_segment;
+	}
+	else {
+		control->ctl_data[0] = 0;
+		return control->ctl_data[2];
+	}
+}
+
+
+STATUS filter_transliterate_text(USHORT action, CTL control)
+{
+/**************************************
+ *
+ *	f i l t e r _ t r a n s l i t e r a t e _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get next segment from a text blob.  
+ *	Convert the text from one character set to another.
+ *
+ *	The usage of the variable ctl_data slots:
+ *	    ctl_data [0]	Pointer to ctlaux structure below,
+ *
+ **************************************/
+	CTL source;
+	TEXT *p, *left_over;
+	USHORT length, l, left_length, buffer_used;
+	USHORT unused_len;
+	STATUS status;
+	USHORT outlen;
+	SSHORT err_code;
+	USHORT err_position;
+	SSHORT can_use_more;
+	USHORT bytes_read_from_source;
+	SSHORT source_cs, dest_cs;
+	SSHORT i;
+	USHORT result_length;
+
+	typedef struct ctlaux {
+		CSCONVERT ctlaux_obj1;	/* Intl object that does tx for us */
+		BYTE *ctlaux_buffer1;	/* Temporary buffer for transliteration */
+		CTL ctlaux_subfilter;	/* For chaining transliterate filters */
+		STATUS ctlaux_source_blob_status;	/* marks when source is EOF, etc */
+		USHORT ctlaux_buffer1_len;	/* size of ctlaux_buffer1 in bytes */
+		USHORT ctlaux_expansion_factor;	/* factor for text expand/contraction */
+		USHORT ctlaux_buffer1_unused;	/* unused bytes in ctlaux_buffer1 */
+	} *CTLAUX;
+
+	CTLAUX aux;
+	TDBB tdbb = NULL_TDBB;
+/* Note: Cannot pass tdbb without API change to user filters */
+
+#define EXP_SCALE		128		/* to keep expansion non-floating */
+
+	aux = (CTLAUX) control->ctl_data[0];
+
+	switch (action) {
+	case ACTION_open:
+	case ACTION_create:
+		for (i = 0;
+			 i < (sizeof(control->ctl_data) / sizeof(control->ctl_data[0]));
+			 i++)
+			control->ctl_data[i] = 0;
+		aux = NULL;
+
+		source = control->ctl_source_handle;
+		control->ctl_number_segments = source->ctl_number_segments;
+
+		source_cs = control->ctl_from_sub_type;
+		dest_cs = control->ctl_to_sub_type;
+
+		aux = (CTLAUX) gds__alloc((SLONG) sizeof(*aux));
+		/* FREE: on ACTION_close in this routine */
+		if (!aux)				/* NOMEM: */
+			return gds_virmemexh;
+#ifdef DEBUG_GDS_ALLOC
+		/* BUG 7907: this is not freed in error cases */
+		gds_alloc_flag_unfreed(aux);
+#endif
+		control->ctl_data[0] = (IPTR) aux;
+
+		aux->ctlaux_source_blob_status = SUCCESS;
+		aux->ctlaux_buffer1_unused = 0;
+		aux->ctlaux_expansion_factor = EXP_SCALE * 1;
+
+		SET_TDBB(tdbb);
+		aux->ctlaux_obj1 = INTL_convert_lookup(tdbb, dest_cs, source_cs);
+		if (!aux->ctlaux_obj1) {
+			/* Do the convert the hard way, via Unicode.
+			   In this case, we become the filter from Unicode to
+			   the destination format.  And we setup as our source
+			   a filter from <source> to <Unicode>.
+			   recursively using the same routine. */
+
+			if (action == ACTION_open) {
+				aux->ctlaux_obj1 =
+					INTL_convert_lookup(tdbb, dest_cs, CS_UNICODE101);
+			}
+			else {
+				aux->ctlaux_obj1 =
+					INTL_convert_lookup(tdbb, CS_UNICODE101, source_cs);
+			}
+
+			if (!aux->ctlaux_obj1) {
+				control->ctl_status[0] = gds_arg_gds;
+				control->ctl_status[1] = gds_text_subtype;
+				control->ctl_status[2] = gds_arg_number;
+				control->ctl_status[3] = dest_cs;
+				control->ctl_status[4] = gds_arg_end;
+				return gds_text_subtype;
+			}
+
+			aux->ctlaux_subfilter =
+				(CTL) caller(ACTION_alloc, control, 0, NULL, NULL);
+
+			/* This is freed in BLF_close_filter */
+
+			*(aux->ctlaux_subfilter) = *control;
+
+			control->ctl_source_handle = aux->ctlaux_subfilter;
+			control->ctl_source =
+				reinterpret_cast < long (*) () > (filter_transliterate_text);
+			source = control->ctl_source_handle;
+
+			if (action == ACTION_open) {
+				control->ctl_from_sub_type = CS_UNICODE101;
+				aux->ctlaux_subfilter->ctl_to_sub_type = CS_UNICODE101;
+			}
+			else {
+				control->ctl_to_sub_type = CS_UNICODE101;
+				aux->ctlaux_subfilter->ctl_from_sub_type = CS_UNICODE101;
+			}
+
+
+			/* Now that the new filter has been inserted, tell it to open */
+
+			status = caller(action, control, 0, NULL, NULL);
+			if (status)
+				return status;
+		}
+
+		if (action == ACTION_open) {
+			control->ctl_max_segment =
+				reinterpret_cast < USHORT(*)(...) >
+				(*aux->ctlaux_obj1->csconvert_convert) (aux->ctlaux_obj1,
+														NULL, 0, NULL,
+														(USHORT)
+														source->ctl_max_segment,
+														&err_code,
+														&err_position);
+
+			if (source->ctl_max_segment && control->ctl_max_segment)
+				aux->ctlaux_expansion_factor =
+					(EXP_SCALE * control->ctl_max_segment) /
+					source->ctl_max_segment;
+			else
+				aux->ctlaux_expansion_factor = (EXP_SCALE * 1);
+
+			assert(aux->ctlaux_expansion_factor != 0);
+
+			control->ctl_total_length =
+				source->ctl_total_length * aux->ctlaux_expansion_factor /
+				EXP_SCALE;
+
+			aux->ctlaux_buffer1_len =
+				MAX(control->ctl_max_segment, source->ctl_max_segment);
+			aux->ctlaux_buffer1_len =
+				MAX(aux->ctlaux_buffer1_len,
+					(80 * aux->ctlaux_expansion_factor) / EXP_SCALE);
+		}
+		else {					/* ACTION_create */
+
+			USHORT tmp;
+
+			/* In a create, the source->ctl_max_segment size isn't set (as
+			 * nothing has been written!).  Therefore, take a best guess
+			 * for an appropriate buffer size, allocate that, and re-allocate
+			 * later if we guess wrong.
+			 */
+			tmp =
+				reinterpret_cast < USHORT(*)(...) >
+				(*aux->ctlaux_obj1->csconvert_convert) (aux->ctlaux_obj1,
+														NULL, 0, NULL,
+														(USHORT) 128,
+														&err_code,
+														&err_position);
+			aux->ctlaux_expansion_factor = (EXP_SCALE * tmp) / 128;
+
+			assert(aux->ctlaux_expansion_factor != 0);
+
+			aux->ctlaux_buffer1_len =
+				80 * aux->ctlaux_expansion_factor / EXP_SCALE;
+		}
+
+		/* Allocate the temporary buffer  - make sure it is big enough for
+		 * either source or destination, and at least 80 bytes in size
+		 */
+
+		aux->ctlaux_buffer1_len = MAX(aux->ctlaux_buffer1_len, 80);
+		assert(aux->ctlaux_buffer1_len != 0);
+
+		aux->ctlaux_buffer1 =
+			(BYTE *) gds__alloc((SLONG) aux->ctlaux_buffer1_len);
+		/* FREE: on ACTION_close in this procedure */
+		if (!aux->ctlaux_buffer1)	/* NOMEM: */
+			return gds_virmemexh;
+
+#ifdef DEBUG_GDS_ALLOC
+		/* BUG 7907: this is not freed in error cases */
+		gds_alloc_flag_unfreed(aux->ctlaux_buffer1);
+#endif
+
+		return SUCCESS;
+
+	case ACTION_close:
+		if (aux && aux->ctlaux_buffer1) {
+			gds__free((SLONG *) aux->ctlaux_buffer1);
+			aux->ctlaux_buffer1 = NULL;
+			aux->ctlaux_buffer1_len = 0;
+		}
+		if (aux) {
+			gds__free(aux);
+			control->ctl_data[0] = (IPTR) NULL;
+			aux = NULL;
+		}
+		return SUCCESS;
+
+	case ACTION_get_segment:
+		/* Fall through to handle get_segment below */
+		break;
+
+	case ACTION_put_segment:
+		/* Now convert from the input buffer into the temporary buffer */
+
+		/* How much space do we need to convert? */
+		result_length =
+			reinterpret_cast < USHORT(*)(...) >
+			(*aux->ctlaux_obj1->csconvert_convert) (aux->ctlaux_obj1, NULL, 0,
+													control->ctl_buffer,
+													control->ctl_buffer_length,
+													&err_code, &err_position);
+
+		/* Allocate a new buffer if we don't have enough */
+		if (result_length > aux->ctlaux_buffer1_len) {
+			gds__free((SLONG *) aux->ctlaux_buffer1);
+			aux->ctlaux_buffer1_len = result_length;
+			aux->ctlaux_buffer1 = (BYTE *) gds__alloc((SLONG) result_length);
+			/* FREE: above & ACTION_close in this routine */
+			if (!aux->ctlaux_buffer1)	/* NOMEM: */
+				return gds_virmemexh;
+		}
+
+		/* convert the text */
+
+		result_length =
+			reinterpret_cast < USHORT(*)(...) >
+			(*aux->ctlaux_obj1->csconvert_convert) (aux->ctlaux_obj1,
+													aux->ctlaux_buffer1,
+													aux->ctlaux_buffer1_len,
+													control->ctl_buffer,
+													control->ctl_buffer_length,
+													&err_code, &err_position);
+
+		if (err_code)
+			return gds_transliteration_failed;
+
+		/* hand the text off to the next stage of the filter */
+
+		status = caller(ACTION_put_segment,
+						control,
+						result_length,
+						(SCHAR *) aux->ctlaux_buffer1, (USHORT *) NULL);
+
+		if (status)
+			return status;
+
+		/* update local control variables for segment length */
+
+		if (result_length > control->ctl_max_segment)
+			control->ctl_max_segment = result_length;
+
+		control->ctl_total_length += result_length;
+		control->ctl_number_segments++;
+
+		return SUCCESS;
+
+	case ACTION_seek:
+		return gds_uns_ext;
+
+	case ACTION_alloc:
+	case ACTION_free:
+		return SUCCESS;
+
+	default:
+		BUGCHECK(289);			/* Unknown blob filter ACTION */
+		return gds_uns_ext;
+	}
+
+/* Drop thru for ACTION_get_segment. */
+
+/* Do we already have enough bytes in temp buffer to fill output buffer? */
+
+	length = aux->ctlaux_buffer1_unused;
+	if (length) {
+		if (control->ctl_buffer_length <
+			(length * aux->ctlaux_expansion_factor / EXP_SCALE)) {
+			/* No need to fetch more bytes, we have enough pending */
+			can_use_more = FALSE;
+		}
+		else
+			can_use_more = TRUE;
+
+		/* Always keep a minimal count of bytes in the input buffer, 
+		 * to prevent the case of truncated characters.
+		 */
+		if (length < 3)
+			can_use_more = TRUE;
+	}
+
+/* Load data into the temporary buffer if,
+   a) we've finished the current segment (no data left in buffer)
+   b) We haven't finished reading the current segment from the
+      source and could use more data for the forthcoming convert
+      (We don't want to blindly keep topping off this buffer if we
+       already have more than we can use) */
+
+	if (!length || can_use_more
+		&& (aux->ctlaux_source_blob_status == gds_segment)) {
+		/* Get a segment, or partial segment, from the source 
+		 * into the temporary buffer
+		 */
+
+		status = caller(ACTION_get_segment,
+						control,
+						(USHORT) (aux->ctlaux_buffer1_len - length),
+						(SCHAR *) (aux->ctlaux_buffer1 + length),
+						(USHORT *) & bytes_read_from_source);
+		if (status == gds_segment)	/* source has more segment bytes */
+			aux->ctlaux_source_blob_status = status;
+		else if (status == gds_segstr_eof) {	/* source blob is finished */
+			if (length == 0)	/* are we done too? */
+				return gds_segstr_eof;
+			aux->ctlaux_source_blob_status = SUCCESS;
+		}
+		else if (status)		/* general error */
+			return status;
+		else					/* complete segment in buffer */
+			aux->ctlaux_source_blob_status = SUCCESS;
+		length += bytes_read_from_source;
+	}
+
+/* Now convert from the temporary buffer into the destination buffer */
+
+	result_length =
+		reinterpret_cast < USHORT(*)(...) >
+		(*aux->ctlaux_obj1->csconvert_convert) (aux->ctlaux_obj1,
+												control->ctl_buffer,
+												control->ctl_buffer_length,
+												aux->ctlaux_buffer1, length,
+												&err_code, &err_position);
+
+	if (err_code == CS_CONVERT_ERROR)
+		return gds_transliteration_failed;
+
+	if (err_code == CS_BAD_INPUT) {
+		/* Bad input *might* be due to input buffer truncation in the middle
+		   of a character, so shuffle bytes, add some more data, and try again.
+		   If we already tried that then it's really some bad input */
+
+		if (err_position == 0)
+			return gds_transliteration_failed;
+	}
+	if (err_code == 0)
+		unused_len = 0;
+	else
+		unused_len = length - err_position;
+	control->ctl_segment_length = result_length;
+	if (unused_len)
+		move((TEXT *) (aux->ctlaux_buffer1 + err_position),
+			 (TEXT *) aux->ctlaux_buffer1, unused_len);
+	aux->ctlaux_buffer1_unused = unused_len;
+
+/* update local control variables for segment length */
+
+	if (result_length > control->ctl_max_segment)
+		control->ctl_max_segment = result_length;
+
+/* No need up update ctl_number_segments as this filter doesn't change it */
+/* No need to update ctl_total_length as we calculated an estimate on entry */
+
+/* see if we still have data we couldn't send to application */
+
+	if (unused_len)
+		return gds_segment;		/* can't fit all data into user buffer */
+
+/* We handed back all our data, but did we GET all the data 
+ * from the source?
+ */
+
+	return (aux->ctlaux_source_blob_status ==
+			gds_segment) ? gds_segment : SUCCESS;
+}
+
+
+STATUS filter_trans(USHORT action, CTL control)
+{
+/**************************************
+ *
+ *	f i l t e r _ t r a n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pretty print a transaction description.
+ *
+ **************************************/
+	SCHAR *p, *end, *temp, c, buffer[512];
+	TEXT *out, line[256];
+	USHORT length;
+	STATUS status;
+	SLONG id, l;
+
+	if (action != ACTION_open)
+		return string_filter(action, control);
+
+/* Initialize for retrieval */
+
+	l = control->ctl_source_handle->ctl_total_length;
+	p = temp =
+		(l <= sizeof(buffer)) ? buffer : (SCHAR *) gds__alloc((SLONG) l);
+/* FREE: at procedure exit */
+	if (!p)						/* NOMEM: */
+		return gds_virmemexh;
+
+	status = caller(ACTION_get_segment, control, (USHORT) l, temp, &length);
+
+	if (!status) {
+		sprintf(line, "Transaction description version: %d", (int) *p++);
+		string_put(control, line);
+		out = line;
+		end = temp + length;
+
+		while (p < end) {
+			c = *p++;
+			length = *p++;
+			switch (c) {
+			case TDR_HOST_SITE:
+				sprintf(out, "Host site: %.*s", length, p);
+				break;
+
+			case TDR_DATABASE_PATH:
+				sprintf(out, "Database path: %.*s", length, p);
+				break;
+
+			case TDR_REMOTE_SITE:
+				sprintf(out, "    Remote site: %.*s", length, p);
+				break;
+
+			case TDR_TRANSACTION_ID:
+				id =
+					gds__vax_integer(reinterpret_cast < UCHAR * >(p), length);
+				sprintf(out, "    Transaction id: %ld", id);
+				break;
+
+			default:
+				sprintf(out, "item %d not understood", (int) p[-1]);
+				string_put(control, line);
+				goto break_out;
+			}
+			string_put(control, line);
+			p = p + length;
+		}
+	}
+
+  break_out:
+	control->ctl_data[1] = control->ctl_data[0];
+
+	if (temp != buffer)
+		gds__free(temp);
+
+	return SUCCESS;
+}
+
+
+static STATUS caller(
+					 USHORT action,
+					 CTL control,
+					 USHORT buffer_length,
+					 SCHAR * buffer, USHORT * return_length)
+{
+/**************************************
+ *
+ *	c a l l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Call next source filter.
+ *
+ **************************************/
+	STATUS status;
+	CTL source;
+
+	source = control->ctl_source_handle;
+	source->ctl_status = control->ctl_status;
+	source->ctl_buffer = reinterpret_cast < UCHAR * >(buffer);
+	source->ctl_buffer_length = buffer_length;
+
+	status =
+		reinterpret_cast < STATUS(*)(...) > (*source->ctl_source) (action,
+																   source);
+
+	if (return_length)
+		*return_length = source->ctl_segment_length;
+
+	return status;
+}
+
+
+static void dump_blr(CTL control, USHORT offset, TEXT * line)
+{
+/**************************************
+ *
+ *	d u m p _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Callback routine for BLR dumping.
+ *
+ **************************************/
+	SLONG l;
+	TEXT *p, *end, *temp, buffer[256];
+
+	l = (USHORT) control->ctl_data[3] + strlen(line);
+	temp = (l < sizeof(buffer)) ? buffer : (TEXT *) gds__alloc((SLONG) l);
+/* FREE: at procedure exit */
+	if (!temp) {				/* NOMEM: */
+		/* No memory left - ignore the padding spaces and put the data */
+		string_put(control, line);
+		return;
+	}
+
+/* Pad out to indent length with spaces */
+	for (p = temp, end = p + (USHORT) control->ctl_data[3]; p < end;)
+		*p++ = ' ';
+
+	sprintf(p, "%s", line);
+	string_put(control, temp);
+
+	if (temp != buffer)
+		gds__free(temp);
+}
+
+
+static void move(TEXT * from, TEXT * to, USHORT length)
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move some bytes.
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+}
+
+
+static STATUS string_filter(USHORT action, CTL control)
+{
+/**************************************
+ *
+ *	s t r i n g _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle stuff for batched string filters.  This is used by filter_blr
+ *	and filter_acl.
+ *
+ **************************************/
+	TMP string;
+	USHORT length;
+
+	switch (action) {
+	case ACTION_close:
+		while (string = (TMP) control->ctl_data[0]) {
+			control->ctl_data[0] = (IPTR) string->tmp_next;
+			gds__free(string);
+		}
+		return SUCCESS;
+
+	case ACTION_get_segment:
+		if (!(string = (TMP) control->ctl_data[1]))
+			return gds_segstr_eof;
+		length = string->tmp_length - control->ctl_data[2];
+		if (length > control->ctl_buffer_length)
+			length = control->ctl_buffer_length;
+		move(string->tmp_string + (USHORT) control->ctl_data[2],
+			 reinterpret_cast < char *>(control->ctl_buffer), length);
+		control->ctl_data[2] += length;
+		if (control->ctl_data[2] == string->tmp_length) {
+			control->ctl_data[1] = (IPTR) string->tmp_next;
+			control->ctl_data[2] = 0;
+		}
+		control->ctl_segment_length = length;
+		return (length <= control->ctl_buffer_length) ? SUCCESS : gds_segment;
+
+	case ACTION_put_segment:
+	case ACTION_create:
+	case ACTION_seek:
+	case ACTION_open:
+		return gds_uns_ext;
+
+	case ACTION_alloc:
+	case ACTION_free:
+		return SUCCESS;
+
+	default:
+		BUGCHECK(289);			/* Unknown blob filter ACTION */
+		return gds_uns_ext;
+	}
+}
+
+
+static void string_put(CTL control, TEXT * line)
+{
+/**************************************
+ *
+ *	s t r i n g _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a line of string to a string formatted blob.
+ *
+ **************************************/
+	TMP string, prior;
+	USHORT l;
+
+	l = strlen(line);
+	string = (TMP) gds__alloc((SLONG) (sizeof(struct tmp) + l));
+/* FREE: on ACTION_close in string_filter() */
+	if (!string) {				/* NOMEM: */
+		assert(FALSE);			/* out of memory */
+		return;					/* & No error handling at this level */
+	}
+	string->tmp_next = NULL;
+	string->tmp_length = l;
+	move(line, string->tmp_string, l);
+
+	if (prior = (TMP) control->ctl_data[1])
+		prior->tmp_next = string;
+	else
+		control->ctl_data[0] = (IPTR) string;
+
+	control->ctl_data[1] = (IPTR) string;
+	++control->ctl_number_segments;
+	control->ctl_total_length += l;
+	control->ctl_max_segment = MAX(control->ctl_max_segment, l);
+}
diff --git a/src/jrd/flags.h b/src/jrd/flags.h
new file mode 100644
index 0000000000..3770b769ff
--- /dev/null
+++ b/src/jrd/flags.h
@@ -0,0 +1,51 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		flags.h
+ *	DESCRIPTION:	Various flag definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_FLAGS_H_
+#define _JRD_FLAGS_H_
+
+/* flags for RDB$FILE_FLAGS */
+
+#define FILE_shadow	1
+#define FILE_inactive	2
+#define FILE_manual	4
+#define FILE_cache	8
+#define FILE_conditional 16
+
+/* flags for RDB$LOG_FILES */
+
+#define LOG_serial      1
+#define LOG_default     2
+#define LOG_raw         4
+#define LOG_overflow    8
+
+/* flags for RDB$RELATIONS */
+
+#define REL_sql		1
+
+/* flags for RDB$TRIGGERS */
+
+#define TRG_sql		0x1
+#define TRG_ignore_perm	0x2		/* trigger ignores permissions checks */
+
+#endif /* _JRD_FLAGS_H_ */
diff --git a/src/jrd/flu.cpp b/src/jrd/flu.cpp
new file mode 100644
index 0000000000..7de34ff172
--- /dev/null
+++ b/src/jrd/flu.cpp
@@ -0,0 +1,1142 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		flu.c
+ *	DESCRIPTION:	Function Lookup Code
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: flu.cpp,v 1.1.1.1 2001-05-23 13:26:12 tamlin Exp $
+*/
+
+#include "../jrd/common.h"
+#include "../jrd/flu.h"
+#include "../jrd/gdsassert.h"
+
+#ifdef SHLIB_DEFS
+// TMN: Why the ... declare this one in the middle of a buch of includes?!
+extern "C" {
+#define FUNCTIONS_entrypoint	(*_libgds_FUNCTIONS_entrypoint)
+}
+#endif
+
+#include "../jrd/flu_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/dls_proto.h"
+#include <string.h>
+
+
+/* VMS Specific Stuff */
+
+#ifdef VMS
+
+#include <descrip.h>
+#include <ssdef.h>
+
+static int condition_handler(int *, int *, int *);
+
+#endif
+
+
+/* HP-UX specific stuff */
+
+#if (defined HP700 || defined HP10)
+#include <dl.h>
+#include <shl.h>
+#include <unistd.h>
+#include <libgen.h>
+#define IB_UDF_DIR 	"UDF/"
+#endif
+
+#ifdef HM300
+#define _A_OUT_INCLUDED
+#include <dl.h>
+#include <shl.h>
+#endif
+
+
+/* SGI, EPSON, UNIXWARE, M88K, DECOSF specific stuff */
+
+#if (defined SOLARIS || defined sgi || defined EPSON || defined M88K || defined UNIXWARE || defined NCR3000 || defined DECOSF || defined SCO_EV || defined linux || defined AIX_PPC)
+#include <dlfcn.h>
+#define DYNAMIC_SHARED_LIBRARIES
+#include <unistd.h>
+#include <libgen.h>
+#define IB_UDF_DIR              "UDF/"
+#endif
+
+#if defined FREEBSD || defined NETBSD
+#include <dlfcn.h>
+#define DYNAMIC_SHARED_LIBRARIES
+#include <unistd.h>
+#define IB_UDF_DIR              "UDF/"
+/*
+ * Define our own dirname(), because we don't have a syscall for it.
+ * !! WARNING !! WARNING !! WARNING !!
+ * I'm hoping that the use of static result is OK here, and justify
+ * its use by noting that A) we're not using threads, and B) callers
+ * don't seem to hang onto the result for very long.  Since none of
+ * its callers ever have to clean up anyway, I'm assuming that real
+ * syscall versions do it the same way, except that they probably offer
+ * thread-safeness as well.
+ */
+const char* dirname(const char* fname)
+{
+	static char result[512];
+	int i = 0;
+	int last = 0;
+
+	if (strlen(fname) == 0)
+		return ".";
+	strcpy(result, fname);
+	while (*fname) {
+		i++;
+		if (*fname == '/')
+			last = i;
+		fname++;
+	}
+	if (last == 0) {
+		last = 1;
+		result[0] = '.';
+	}
+	result[last] = '\0';
+	return result;
+}
+#endif
+
+
+/* DG specific stuff */
+
+#ifdef DGUX
+#include <sys/stat.h>
+#include <sys/types.h>
+
+#define NON_DL_COMPATIBLE
+
+#ifndef NON_DL_COMPATIBLE
+#include <dlfcn.h>
+#endif
+#endif
+
+
+/* Windows NT stuff */
+
+#ifdef WIN_NT
+#include <windows.h>
+#include <stdlib.h>
+#include <io.h>
+#define IB_UDF_DIR		"UDF\\"
+/* Where is the international character set module found? */
+#define IB_INTL_DIR		"intl\\"
+#endif
+
+
+extern "C" {
+
+
+/* Where is the international character set module found? */
+#ifndef IB_INTL_DIR
+#define IB_INTL_DIR		"intl/"
+#endif
+
+static MOD FLU_modules = 0;		/* External function/filter modules */
+
+/* prototypes for private functions */
+static MOD search_for_module(TEXT *, TEXT *);
+#ifdef WIN_NT
+static void adjust_loadlib_name(TEXT *, TEXT *);
+#endif
+
+
+
+MOD FLU_lookup_module(TEXT* module)
+{
+/**************************************
+ *
+ *	F L U _ l o o k u p _ m o d u l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup external function module descriptor.
+ *
+ **************************************/
+	MOD mod;
+	USHORT length;
+#ifndef WIN_NT
+	TEXT *p;
+
+	for (p = module; *p && *p != ' '; p++)
+		;
+	if (*p)
+		*p = 0;
+#endif
+
+	length = strlen(module);
+
+	for (mod = FLU_modules; mod; mod = mod->mod_next)
+		if (mod->mod_length == length && !strcmp(mod->mod_name, module))
+			return mod;
+
+	return 0;
+}
+
+
+void FLU_unregister_module(MOD module)
+{
+/**************************************
+ *
+ *	F L U _ u n r e g i s t e r _ m o d u l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unregister interest in an external function module.
+ *	Unload module if it's uninteresting.
+ *
+ **************************************/
+	MOD *mod;
+
+/* Module is in-use by other databases.*/
+
+	if (--module->mod_use_count > 0)
+		return;
+
+/* Unlink from list of active modules, unload it, and release memory. */
+
+	for (mod = &FLU_modules; *mod; mod = &(*mod)->mod_next)
+		if (*mod == module) {
+			*mod = module->mod_next;
+			break;
+		}
+
+#if (defined HP700 || defined HP10)
+	shl_unload(module->mod_handle);
+#endif
+
+#if defined(SOLARIS) || defined(LINUX) || defined(FREEBSD) || defined(NETBSD) || defined (AIX_PPC)
+	dlclose(module->mod_handle);
+#endif
+#ifdef WIN_NT
+	FreeLibrary(module->mod_handle);
+#endif
+
+	gds__free(module);
+}
+
+
+#ifdef VMS
+#define LOOKUP
+FPTR_INT ISC_lookup_entrypoint(TEXT * module,
+							   TEXT * name, TEXT * ib_path_env_var)
+{
+/**************************************
+ *
+ *	I S C _ l o o k u p _ e n t r y p o i n t  ( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup entrypoint of function.
+ *
+ **************************************/
+	FPTR_INT function;
+	TEXT *p;
+	struct dsc$descriptor mod_desc, nam_desc;
+	TEXT absolute_module[MAXPATHLEN];
+
+	if (function = FUNCTIONS_entrypoint(module, name))
+		return function;
+
+	if (ib_path_env_var == NULL)
+		strcpy(absolute_module, module);
+	else
+		if (!gds__validate_lib_path
+			(module, ib_path_env_var, absolute_module,
+			 sizeof(absolute_module))) return NULL;
+
+	REPLACE THIS COMPILER ERROR WITH CODE TO VERIFY THAT THE MODULE IS FOUND
+		EITHER IN $INTERBASE:UDF, or $INTERBASE:intl,
+		OR IN ONE OF THE DIRECTORIES NAMED IN EXTERNAL_FUNCTION_DIRECTORY
+		LINES IN ISC_CONFIG.for (p = absolute_module; *p && *p != ' '; p++);
+
+	ISC_make_desc(absolute_module, &mod_desc, p - absolute_module);
+
+	for (p = name; *p && *p != ' '; p++);
+
+	ISC_make_desc(name, &nam_desc, p - name);
+	VAXC$ESTABLISH(condition_handler);
+
+	if (!(lib$find_image_symbol(&mod_desc, &nam_desc, &function, NULL) & 1))
+		return NULL;
+
+	return function;
+}
+#endif
+
+
+/*
+  The commented #if which immediately follows has been replaced.
+  The OLD_AIX and OLD_AIX_PPC #if has been added to disable the
+  code segment for current AIX builds.
+*/
+/*
+#if (defined AIX || defined AIX_PPC)
+*/
+#if (defined OLD_AIX || defined OLD_AIX_PPC)
+#define LOOKUP
+FPTR_INT ISC_lookup_entrypoint(TEXT * module,
+							   TEXT * name, TEXT * ib_path_env_var)
+{
+/**************************************
+ *
+ *	I S C _ l o o k u p _ e n t r y p o i n t  ( A I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup entrypoint of function.
+ *
+ **************************************/
+	FPTR_INT function;
+	TEXT *p;
+	TEXT absolute_module[MAXPATHLEN];
+
+	if (function = FUNCTIONS_entrypoint(module, name))
+		return function;
+
+	for (p = module; *p && *p != ' '; p++);
+	if (*p)
+		*p = 0;
+
+	if (ib_path_env_var == NULL)
+		strcpy(absolute_module, module);
+	else
+		if (!gds__validate_lib_path
+			(module, ib_path_env_var, absolute_module,
+			 sizeof(absolute_module))) return NULL;
+
+	REPLACE THIS COMPILER ERROR WITH CODE TO VERIFY THAT THE MODULE IS FOUND
+		EITHER IN $INTERBASE / UDF, OR $INTERBASE / intl,
+		OR IN ONE OF THE DIRECTORIES NAMED IN EXTERNAL_FUNCTION_DIRECTORY
+		LINES IN ISC_CONFIG.function = load(absolute_module, 0, NULL);
+
+	return function;
+}
+#endif
+
+
+#if (defined HP700 || defined HP10)
+#define LOOKUP
+FPTR_INT ISC_lookup_entrypoint(TEXT * module,
+							   TEXT * name, TEXT * ib_path_env_var)
+{
+/**************************************
+ *
+ *	I S C _ l o o k u p _ e n t r y p o i n t  ( H P 9 0 0 0 s 7 0 0 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup entrypoint of function.
+ *
+ **************************************/
+	FPTR_INT function;
+	TEXT *p;
+	MOD mod;
+	TEXT absolute_module[MAXPATHLEN];
+
+	if (function = FUNCTIONS_entrypoint(module, name))
+		return function;
+
+	for (p = module; *p && *p != ' '; p++);
+	if (*p)
+		*p = 0;
+	for (p = name; *p && *p != ' '; p++);
+	if (*p)
+		*p = 0;
+
+	if (!*module || !*name)
+		return NULL;
+
+/* Check if external function module has already been loaded */
+
+	if (!(mod = FLU_lookup_module(module))) {
+		USHORT length;
+
+#ifdef EXT_LIB_PATH
+		if (ib_path_env_var == NULL)
+			strcpy(absolute_module, module);
+		else
+			if (!gds__validate_lib_path
+				(module, ib_path_env_var, absolute_module,
+				 sizeof(absolute_module))) return NULL;
+#else
+		strcpy(absolute_module, module);
+#endif /* EXT_LIB_PATH */
+
+		length = strlen(absolute_module);
+
+		/* call search_for_module with the supplied name, 
+		   and if unsuccessful, then with <name>.sl . */
+		mod = search_for_module(absolute_module, name);
+		if (!mod) {
+			strcat(absolute_module, ".sl");
+			mod = search_for_module(absolute_module, name);
+		}
+		if (!mod)
+			return NULL;
+
+		assert(mod->mod_handle);	/* assert that we found the module */
+		mod->mod_use_count = 0;
+		mod->mod_length = length;
+		strcpy(mod->mod_name, module);
+		mod->mod_next = FLU_modules;
+		FLU_modules = mod;
+	}
+
+	++mod->mod_use_count;
+
+	if (shl_findsym(&mod->mod_handle, name, TYPE_PROCEDURE, &function))
+		return NULL;
+
+	return function;
+}
+
+
+static MOD search_for_module(TEXT * module, TEXT * name)
+{
+/**************************************
+ *
+ *	s e a r c h _ f o r _ m o d u l e	( H P 9 0 0 0 s 7 0 0 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look for a module (as named in a 'DECLARE EXTERNAL FUNCTION'
+ *      statement.
+ *
+ **************************************/
+	MOD mod;
+	char *dirp;
+	TEXT ib_lib_path[MAXPATHLEN];
+	TEXT absolute_module[MAXPATHLEN];
+	FDLS *dir_list;
+	BOOLEAN found_module;
+
+	strcpy(absolute_module, module);
+
+	if (!(mod = (MOD) gds__alloc(sizeof(struct mod) +
+								 strlen(absolute_module)))) return NULL;
+
+	dirp = dirname(absolute_module);
+	if (('.' == dirp[0]) && ('\0' == dirp[1])) {
+		/*  We have a simple module name, without a directory. */
+
+		gds__prefix(ib_lib_path, IB_UDF_DIR);
+		strncat(ib_lib_path, module, MAXPATHLEN - strlen(ib_lib_path) - 1);
+		if (!access(ib_lib_path, R_OK | X_OK)) {
+			/* Module is in the default UDF directory: load it. */
+			if (!(mod->mod_handle = shl_load(ib_lib_path, BIND_DEFERRED, 0))) {
+				gds__free(mod);
+				return NULL;
+			}
+		}
+		else {
+			gds__prefix(ib_lib_path, IB_INTL_DIR);
+			strncat(ib_lib_path, module,
+					MAXPATHLEN - strlen(ib_lib_path) - 1);
+			if (!access(ib_lib_path, R_OK | X_OK)) {
+				/* Module is in the international character set directory:
+				   load it. */
+				if (!(mod->mod_handle = shl_load(ib_lib_path,
+												 BIND_DEFERRED, 0))) {
+					gds__free(mod);
+					return NULL;
+				}
+			}
+			else {
+				/*  The module is not in a default directory, so ...
+				 *  use the EXTERNAL_FUNCTION_DIRECTORY lines from isc_config.
+				 */
+				dir_list = DLS_get_func_dirs();
+				found_module = FALSE;
+				while (dir_list && !found_module) {
+					strcpy(ib_lib_path, dir_list->fdls_directory);
+					strcat(ib_lib_path, "/");
+					strncat(ib_lib_path, module,
+							MAXPATHLEN - strlen(ib_lib_path) - 1);
+					if (!access(ib_lib_path, R_OK | X_OK)) {
+						if (!(mod->mod_handle = shl_load(ib_lib_path,
+														 BIND_DEFERRED, 0))) {
+							gds__free(mod);
+							return NULL;
+						}
+						found_module = TRUE;
+					}
+					dir_list = dir_list->fdls_next;
+				}
+				if (!found_module) {
+					gds__free(mod);
+					return NULL;
+				}
+			}					/* else module is not in the INTL directory */
+		}						/* else module is not in the default UDF directory, so ... */
+	}							/* if dirname is "." */
+	else {
+		/*  The module name includes a directory path.
+		 *  The directory must be the standard UDF directory, or the
+		 *  the standard international directory, or listed in
+		 *  an EXTERNAL_FUNCTION_DIRECTORY line in isc_config,
+		 *  and the module must be accessible in that directory.
+		 */
+		gds__prefix(ib_lib_path, IB_UDF_DIR);
+		ib_lib_path[strlen(ib_lib_path) - 1] = '\0';	/* drop trailing "/" */
+		found_module = !strcmp(ib_lib_path, dirp);
+		if (!found_module) {
+			gds__prefix(ib_lib_path, IB_INTL_DIR);
+			ib_lib_path[strlen(ib_lib_path) - 1] = '\0';	/* drop trailing / */
+			found_module = !strcmp(ib_lib_path, dirp);
+		}
+		if (!found_module) {
+			/* It's not the default directory, so try the ones listed
+			 * in EXTERNAL_FUNCTION_DIRECTORY lines in isc_config.
+			 */
+			dir_list = DLS_get_func_dirs();
+			while (dir_list && !found_module) {
+				if (!strcmp(dir_list->fdls_directory, dirp))
+					found_module = TRUE;
+				dir_list = dir_list->fdls_next;
+			}
+		}
+		if (found_module)
+			found_module = (!access(module, R_OK | X_OK)) &&
+				(0 != (mod->mod_handle = shl_load(module, BIND_DEFERRED, 0)));
+		if (!found_module) {
+			gds__free(mod);
+			return NULL;
+		}
+	}							/* else module name includes a directory path, so ... */
+	return mod;
+}
+#endif
+
+
+#ifdef HM300
+#define LOOKUP
+FPTR_INT ISC_lookup_entrypoint(TEXT * module,
+							   TEXT * name, TEXT * ib_path_env_var)
+{
+/**************************************
+ *
+ *	I S C _ l o o k u p _ e n t r y p o i n t  ( H P 9 0 0 0 s 3 0 0 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup entrypoint of function.
+ *
+ **************************************/
+	FPTR_INT function;
+	TEXT *p;
+	shl_t handle;
+	TEXT buffer[256];
+	TEXT absolute_module[MAXPATHLEN];
+
+	if (function = FUNCTIONS_entrypoint(module, name))
+		return function;
+
+	for (p = module; *p && *p != ' '; p++);
+	if (*p)
+		*p = 0;
+	p = buffer;
+	*p++ = '_';
+	for (; (*p = *name) && *name != ' '; p++, name++);
+	*p = 0;
+
+	if (ib_path_env_var == NULL)
+		strcpy(absolute_module, module);
+	else
+		if (!gds__validate_lib_path
+			(module, ib_path_env_var, absolute_module,
+			 sizeof(absolute_module))) return NULL;
+
+	REPLACE THIS COMPILER ERROR WITH CODE TO VERIFY THAT THE MODULE IS FOUND
+		EITHER IN $INTERBASE / UDF, OR $INTERBASE / intl,
+		OR IN ONE OF THE DIRECTORIES NAMED IN EXTERNAL_FUNCTION_DIRECTORY
+		LINES IN
+		ISC_CONFIG.if (!
+					   (handle = shl_load(absolute_module, BIND_DEFERRED, 0L))
+|| shl_findsym(&handle, buffer, TYPE_PROCEDURE, &function))
+		return NULL;
+
+	return function;
+}
+#endif
+
+
+#ifdef DYNAMIC_SHARED_LIBRARIES
+#define LOOKUP
+FPTR_INT ISC_lookup_entrypoint(TEXT * module,
+							   TEXT * name, TEXT * ib_path_env_var)
+{
+/**************************************
+ *
+ *	I S C _ l o o k u p _ e n t r y p o i n t  ( SVR4 including SOLARIS )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup entrypoint of function.
+ *
+ **************************************/
+	FPTR_INT function;
+	TEXT *p;
+	MOD mod;
+	TEXT absolute_module[MAXPATHLEN];
+
+	if (function = FUNCTIONS_entrypoint(module, name))
+		return function;
+
+#ifdef NON_DL_COMPATIBLE
+	return NULL;
+#else
+	for (p = module; *p && *p != ' '; p++);
+	if (*p)
+		*p = 0;
+	for (p = name; *p && *p != ' '; p++);
+	if (*p)
+		*p = 0;
+
+	if (!*module || !*name)
+		return NULL;
+
+/* Check if external function module has already been loaded */
+
+	if (!(mod = FLU_lookup_module(module))) {
+		USHORT length;
+
+#ifdef EXT_LIB_PATH
+		if (ib_path_env_var == NULL)
+			strcpy(absolute_module, module);
+		else
+			if (!gds__validate_lib_path
+				(module, ib_path_env_var, absolute_module,
+				 sizeof(absolute_module))) return NULL;
+#else
+		strcpy(absolute_module, module);
+#endif /* EXT_LIB_PATH */
+
+		length = strlen(absolute_module);
+
+		/* call search_for_module with the supplied name, 
+		   and if unsuccessful, then with <name>.so . */
+		mod = search_for_module(absolute_module, name);
+		if (!mod) {
+			strcat(absolute_module, ".so");
+			mod = search_for_module(absolute_module, name);
+		}
+		if (!mod)
+			return NULL;
+
+		assert(mod->mod_handle);	/* assert that we found the module */
+		mod->mod_use_count = 0;
+		mod->mod_length = length;
+		strcpy(mod->mod_name, module);
+		mod->mod_next = FLU_modules;
+		FLU_modules = mod;
+	}
+
+	++mod->mod_use_count;
+
+	return dlsym(mod->mod_handle, name);
+#endif /* NON_DL_COMPATIBLE */
+}
+
+
+static MOD search_for_module(TEXT * module, TEXT * name)
+{
+/**************************************
+ *
+ *	s e a r c h _ f o r _ m o d u l e	( SVR4 including SOLARIS )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look for a module (as named in a 'DECLARE EXTERNAL FUNCTION'
+ *      statement.
+ *
+ **************************************/
+	MOD mod;
+	char *dirp;
+	TEXT ib_lib_path[MAXPATHLEN];
+	TEXT absolute_module[MAXPATHLEN];	/* for _access()  ???   */
+	FDLS *dir_list;
+	BOOLEAN found_module;
+
+	strcpy(absolute_module, module);
+
+	if (!(mod = (MOD) gds__alloc(sizeof(struct mod) +
+								 strlen(absolute_module)))) return NULL;
+	dirp = dirname(absolute_module);
+	if (('.' == dirp[0]) && ('\0' == dirp[1])) {
+		/*  We have a simple module name without a directory. */
+
+		gds__prefix(ib_lib_path, IB_UDF_DIR);
+		strncat(ib_lib_path, module, MAXPATHLEN - strlen(ib_lib_path) - 1);
+		if (!access(ib_lib_path, R_OK)) {
+			/* Module is in the standard UDF directory: load it. */
+			if (!(mod->mod_handle = dlopen(ib_lib_path, RTLD_LAZY))) {
+				gds__free(mod);
+				return NULL;
+			}
+		}
+		else {
+			gds__prefix(ib_lib_path, IB_INTL_DIR);
+			strncat(ib_lib_path, module,
+					MAXPATHLEN - strlen(ib_lib_path) - 1);
+			if (!access(ib_lib_path, R_OK)) {
+				/* Module is in the default directory: load it. */
+				if (!(mod->mod_handle = dlopen(ib_lib_path, RTLD_LAZY))) {
+					gds__free(mod);
+					return NULL;
+				}
+			}
+			else {
+				/*  The module is not in the default directory, so ...
+				 *  use the EXTERNAL_FUNCTION_DIRECTORY lines from isc_config.
+				 */
+				dir_list = DLS_get_func_dirs();
+				found_module = FALSE;
+				while (dir_list && !found_module) {
+					strcpy(ib_lib_path, dir_list->fdls_directory);
+					strcat(ib_lib_path, "/");
+					strncat(ib_lib_path, module,
+							MAXPATHLEN - strlen(ib_lib_path) - 1);
+					if (!access(ib_lib_path, R_OK)) {
+						if (!(mod->mod_handle = dlopen(ib_lib_path,
+													   RTLD_LAZY))) {
+							gds__free(mod);
+							return NULL;
+						}
+						found_module = TRUE;
+					}
+					dir_list = dir_list->fdls_next;
+				}
+				if (!found_module) {
+					gds__free(mod);
+					return NULL;
+				}
+			}					/* else module is not in the INTL directory */
+		}						/* else module is not in the default directory, so ... */
+	}							/* if *dirp is "." */
+	else {
+		/*  The module name includes a directory path.
+		 *  The directory must be the standard UDF directory, or the
+		 *  standard international directory, or listed in
+		 *  an EXTERNAL_FUNCTION_DIRECTORY line in isc_config,
+		 *  and the module must be accessible in that directory.
+		 */
+		gds__prefix(ib_lib_path, IB_UDF_DIR);
+		ib_lib_path[strlen(ib_lib_path) - 1] = '\0';	/* drop trailing "/" */
+		found_module = !strcmp(ib_lib_path, dirp);
+		if (!found_module) {
+			gds__prefix(ib_lib_path, IB_INTL_DIR);
+			ib_lib_path[strlen(ib_lib_path) - 1] = '\0';	/* drop trailing / */
+			found_module = !strcmp(ib_lib_path, dirp);
+		}
+		if (!found_module) {
+			/* It's not the default directory, so try the ones listed
+			 * in EXTERNAL_FUNCTION_DIRECTORY lines in isc_config.
+			 */
+			dir_list = DLS_get_func_dirs();
+			while (dir_list && !found_module) {
+				if (!strcmp(dir_list->fdls_directory, dirp))
+					found_module = TRUE;
+				dir_list = dir_list->fdls_next;
+			}
+		}
+		if (found_module)
+			found_module = (!access(module, R_OK)) &&
+				(0 != (mod->mod_handle = dlopen(module, RTLD_LAZY)));
+		if (!found_module) {
+			gds__free(mod);
+			return NULL;
+		}
+	}							/* else module name includes a directory path, so ... */
+	return mod;
+}
+#endif
+
+
+#ifdef DGUX
+#define LOOKUP
+FPTR_INT ISC_lookup_entrypoint(TEXT * module,
+							   TEXT * name, TEXT * ib_path_env_var)
+{
+/**************************************
+ *
+ *	I S C _ l o o k u p _ e n t r y p o i n t  ( D G U X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup entrypoint of function.
+ *
+ **************************************/
+	FPTR_INT function;
+	TEXT *p;
+	void *handle;
+	struct stat stdbuf;
+	TEXT absolute_module[MAXPATHLEN];
+
+	if (function = FUNCTIONS_entrypoint(module, name))
+		return function;
+
+#ifdef NON_DL_COMPATIBLE
+	return NULL;
+#else
+	for (p = module; *p && *p != ' '; p++);
+	if (*p)
+		*p = 0;
+	for (p = name; *p && *p != ' '; p++);
+	if (*p)
+		*p = 0;
+
+	if (!*module || stat(module, &stdbuf))
+		return NULL;
+
+	if (ib_path_env_var == NULL)
+		strcpy(absolute_module, module);
+	else
+		if (!gds__validate_lib_path
+			(module, ib_path_env_var, absolute_module,
+			 sizeof(absolute_module))) return NULL;
+
+	REPLACE THIS COMPILER ERROR WITH CODE TO VERIFY THAT THE MODULE IS FOUND
+		EITHER IN $INTERBASE / UDF, OR $INTERBASE / intl,
+		OR IN ONE OF THE DIRECTORIES NAMED IN EXTERNAL_FUNCTION_DIRECTORY
+		LINES IN
+		ISC_CONFIG.if (!(handle = dlopen(absolute_module, RTLD_LAZY))) return
+			NULL;
+
+	return dlsym(handle, name);
+#endif
+}
+#endif
+
+
+#ifdef WIN_NT
+#define LOOKUP
+FPTR_INT ISC_lookup_entrypoint(TEXT * module,
+							   TEXT * name, TEXT * ib_path_env_var)
+{
+/**************************************
+ *
+ *	I S C _ l o o k u p _ e n t r y p o i n t	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup entrypoint of function.
+ *	If ib_path_env_var is defined, make sure 
+ *	that the module is in the path defined
+ *	by that environment variable.
+ *
+ **************************************/
+	FPTR_INT function;
+	TEXT *p;
+	MOD mod;
+	TEXT absolute_module[MAXPATHLEN];	/* for _access()     */
+
+	if (function = FUNCTIONS_entrypoint(module, name))
+		return function;
+
+	for (p = name; *p && *p != ' '; p++);
+	if (*p)
+		*p = 0;
+
+	/* Check if external function module has already been loaded */
+
+	if (!(mod = FLU_lookup_module(module))) {
+		USHORT length;
+
+#ifdef EXT_LIB_PATH
+		if (ib_path_env_var == NULL)
+			strcpy(absolute_module, module);
+		else
+			if (!gds__validate_lib_path
+				(module, ib_path_env_var, absolute_module,
+				 sizeof(absolute_module))) return NULL;
+#else
+		strcpy(absolute_module, module);
+#endif /* EXT_LIB_PATH */
+
+		length = strlen(absolute_module);
+
+		/* call search_for_module with the supplied name, and if unsuccessful,
+		   then with <name>.DLL (if the name did not have a trailing "."). */
+		mod = search_for_module(absolute_module, name);
+		if (!mod) {
+			if ((absolute_module[length - 1] != '.') &&
+				stricmp(absolute_module + length - 4, ".DLL")) {
+				strcat(absolute_module, ".DLL");
+				mod = search_for_module(absolute_module, name);
+			}
+		}
+		if (!mod)
+			return NULL;
+
+		assert(mod->mod_handle);	/* assert that we found the module */
+		mod->mod_use_count = 0;
+		mod->mod_length = length;
+		strcpy(mod->mod_name, module);
+		mod->mod_next = FLU_modules;
+		FLU_modules = mod;
+	}
+
+	++mod->mod_use_count;
+
+	/* The Borland compiler prefixes an '_' for functions compiled
+	   with the __cdecl calling convention. */
+
+	if (!(function = (FPTR_INT) GetProcAddress(mod->mod_handle, name))) {
+		TEXT buffer[128];
+
+		p = buffer;
+		*p++ = '_';
+		while (*p++ = *name++);
+		function = (FPTR_INT) GetProcAddress(mod->mod_handle, buffer);
+	}
+
+	return function;
+}
+
+
+static MOD search_for_module(TEXT * module, TEXT * name)
+{
+/**************************************
+ *
+ *	s e a r c h _ f o r _ m o d u l e	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look for a module (as named in a 'DECLARE EXTERNAL FUNCTION'
+ *      statement.  Adjust for differences between behavior of
+ *      _access() and LoadLibrary() w.r.t. implicit .DLL suffix.
+ *
+ **************************************/
+	MOD mod;
+/*  We need different versions of the file name to pass to _access()
+ *  and to LoadLibrary(), because LoadLibrary() implicitly appends
+ *  .DLL to the supplied name and access does not.  We need to control
+ *  exactly what name is being used by each routine.
+ */
+	TEXT ib_lib_path[MAXPATHLEN];	/* for access()      */
+	TEXT absolute_module[MAXPATHLEN];	/* for _access()  ???   */
+	TEXT loadlib_name[MAXPATHLEN];	/* for LoadLibrary() */
+	TEXT drive_buf[_MAX_DRIVE];
+	TEXT dir_buf[_MAX_DIR];
+	FDLS *dir_list;
+	USHORT length;
+	BOOLEAN found_module;
+
+	length = strlen(module);
+
+	if (!(mod = (MOD) gds__alloc(sizeof(struct mod) + length)))
+		return NULL;
+
+	/* Set absolute_module to the drive and directory prefix part of
+	   module, like dirname() under Unix. */
+	_splitpath(module, drive_buf, dir_buf, (char *) 0, (char *) 0);
+	strcpy(absolute_module, drive_buf);
+	strcat(absolute_module, dir_buf);
+
+	if (0 == absolute_module[0]) {
+		/*  We have a simple module name without a directory. */
+
+		gds__prefix(ib_lib_path, IB_UDF_DIR);
+		strncat(ib_lib_path, module, MAXPATHLEN - strlen(ib_lib_path) - 1);
+		adjust_loadlib_name(ib_lib_path, loadlib_name);
+		if (!_access(ib_lib_path, 4 /* read permission */ )) {
+			/* Module is in the default UDF directory: load it. */
+			if (!(mod->mod_handle = LoadLibrary(loadlib_name))) {
+				gds__free(mod);
+				return NULL;
+			}
+		}
+		else {
+			gds__prefix(ib_lib_path, IB_INTL_DIR);
+			strncat(ib_lib_path, module,
+					MAXPATHLEN - strlen(ib_lib_path) - 1);
+			if (!_access(ib_lib_path, 4 /* read permission */ )) {
+				/* Module is in the default international library: load it */
+				if (!(mod->mod_handle = LoadLibrary(ib_lib_path))) {
+					gds__free(mod);
+					return NULL;
+				}
+			}
+			else {
+				/*  The module is not in the default directory, so ...
+				 *  use the EXTERNAL_FUNCTION_DIRECTORY lines from isc_config.
+				 */
+				dir_list = DLS_get_func_dirs();
+				found_module = FALSE;
+				while (dir_list && !found_module) {
+					strcpy(ib_lib_path, dir_list->fdls_directory);
+					strcat(ib_lib_path, "\\");
+					strncat(ib_lib_path, module,
+							MAXPATHLEN - strlen(ib_lib_path) - 1);
+					if (!_access(ib_lib_path, 4 /* read permission */ )) {
+						if (!(mod->mod_handle = LoadLibrary(ib_lib_path))) {
+							gds__free(mod);
+							return NULL;
+						}
+						found_module = TRUE;
+					}
+					dir_list = dir_list->fdls_next;
+				}
+				if (!found_module) {
+					gds__free(mod);
+					return NULL;
+				}
+			}					/* else module is not in the INTL directory */
+		}						/* else module is not in the default UDF directory, so ... */
+	}							/* if path part of name is empty */
+	else {
+		/*  The module name includes a directory path.
+		 *  The directory must be either $INTERBASE/UDF, or $INTERBASE/intl
+		 *  or listed in an EXTERNAL_FUNCTION_DIRECTORY line in isc_config,
+		 *  and the module must be accessible in that directory.
+		 */
+		gds__prefix(ib_lib_path, IB_UDF_DIR);
+		found_module = !stricmp(ib_lib_path, absolute_module);
+		if (!found_module) {
+			gds__prefix(ib_lib_path, IB_INTL_DIR);
+			found_module = !stricmp(ib_lib_path, absolute_module);
+		}
+		if (!found_module) {
+			/* It's not the default directory, so try the ones listed
+			 * in EXTERNAL_FUNCTION_DIRECTORY lines in isc_config.
+			 */
+			dir_list = DLS_get_func_dirs();
+			while (dir_list && !found_module) {
+				if (!stricmp(dir_list->fdls_directory, absolute_module))
+					found_module = TRUE;
+				dir_list = dir_list->fdls_next;
+			}
+		}
+		if (found_module)
+			found_module = (!_access(module, 4 /* read ok? */ )) &&
+				(0 != (mod->mod_handle = LoadLibrary(module)));
+		if (!found_module) {
+			gds__free(mod);
+			return NULL;
+		}
+	}							/* else module name includes a directory path, so ... */
+	return mod;
+}
+
+
+static void adjust_loadlib_name(TEXT * access_path, TEXT * load_path)
+{
+/**************************************
+ *
+ *	a d j u s t _ l o a d l i b _ n a m e	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look for a module (as named in a 'DECLARE EXTERNAL FUNCTION'
+ *      statement.  Adjust for differences between behavior of
+ *      _access() and LoadLibrary() w.r.t. implicit .DLL suffix.
+ *
+ **************************************/
+
+	USHORT length;
+
+	length = strlen(access_path);
+	strcpy(load_path, access_path);
+
+	/*  Adjust the names to be passed to _access() and LoadLibrary(),
+	 *  so that they will refer to the same file, despite the implicit
+	 *  adjustments performed by LoadLibrary.
+	 *  Input     _access() arg   LoadLibrary() arg  LoadLibrary() uses...
+	 *  -------   -------------   -----------------  ------------------
+	 *  foo.      foo             foo.               foo
+	 *  foo       foo             foo.               foo
+	 *  foo.dll   foo.dll         foo.dll            foo.dll
+	 */
+	if (stricmp(access_path + length - 4, ".dll")) {
+		if ('.' == access_path[length - 1]) {
+			access_path[length - 1] = '\0';
+		}
+		else {
+			load_path[length] = '.';
+			load_path[length + 1] = '\0';
+		}
+	}
+}
+#endif
+
+
+#ifndef LOOKUP
+FPTR_INT ISC_lookup_entrypoint(TEXT * module,
+							   TEXT * name, TEXT * ib_path_env_var)
+{
+/**************************************
+ *
+ *	I S C _ l o o k u p _ e n t r y p o i n t  ( d e f a u l t )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup entrypoint of function.
+ *
+ **************************************/
+	FPTR_INT function;
+
+	if (function = FUNCTIONS_entrypoint(module, name))
+		return function;
+
+	return NULL;
+}
+#endif
+
+
+#ifdef VMS
+static int condition_handler(int *sig, int *mech, int *enbl)
+{
+/**************************************
+ *
+ *	c o n d i t i o n _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Ignore signal from "lib$find_symbol".
+ *
+ **************************************/
+
+	return SS$_CONTINUE;
+}
+#endif
+
+
+} // extern "C"
diff --git a/src/jrd/flu.h b/src/jrd/flu.h
new file mode 100644
index 0000000000..05cbed9744
--- /dev/null
+++ b/src/jrd/flu.h
@@ -0,0 +1,61 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		flu.h
+ *	DESCRIPTION:	Function lookup definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_FLU_H_
+#define _JRD_FLU_H_
+
+#if (defined HP700 || defined HP10)
+#define MODULE_HANDLE
+#include <dl.h>
+#include <shl.h>
+typedef shl_t HMOD;
+#endif
+
+#ifdef SOLARIS
+#define MODULE_HANDLE
+#include <dlfcn.h>
+typedef void *HMOD;
+#endif
+
+#ifdef WIN_NT
+#define MODULE_HANDLE
+#include <windows.h>
+typedef HMODULE HMOD;
+#endif
+
+#ifndef MODULE_HANDLE
+#define MODULE_HANDLE
+typedef void *HMOD;
+#endif
+
+/* External function module descriptor */
+
+typedef struct mod {
+	HMOD mod_handle;			/* Handle to search for entrypoints */
+	struct mod *mod_next;		/* Linked list of open modules */
+	SLONG mod_use_count;		/* Databases interested in module */
+	USHORT mod_length;			/* Module name length */
+	TEXT mod_name[1];			/* Module name */
+} *MOD;
+
+#endif /* _JRD_FLU_H_ */
diff --git a/src/jrd/flu_proto.h b/src/jrd/flu_proto.h
new file mode 100644
index 0000000000..7839c92095
--- /dev/null
+++ b/src/jrd/flu_proto.h
@@ -0,0 +1,54 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		flu_proto.h
+ *	DESCRIPTION:	Prototype header file for flu.c, functions.c, builtin.c,
+ *			and qatest.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_FLU_PROTO_H_
+#define _JRD_FLU_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern struct mod *DLL_EXPORT FLU_lookup_module(TEXT *);
+extern void DLL_EXPORT FLU_unregister_module(struct mod *);
+extern int (*ISC_lookup_entrypoint(TEXT *, TEXT *, TEXT *)) (void);
+extern int (*FUNCTIONS_entrypoint(TEXT *, TEXT *)) (void);
+extern int (*BUILTIN_entrypoint(TEXT *, TEXT *)) (void);
+
+/*
+   This shouldn't be in a production server,
+   If we should ever need this again, 
+   this should be enabled *ONLY* for
+   the debug version.
+   FSG 18.Dez.2000
+   
+*/
+
+/*extern int		       QATEST_entrypoint (ULONG *, void *, void *, void *);
+*/
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_FLU_PROTO_H_ */
diff --git a/src/jrd/fun.e b/src/jrd/fun.e
new file mode 100644
index 0000000000..71448100e1
--- /dev/null
+++ b/src/jrd/fun.e
@@ -0,0 +1,998 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		fun.e
+ *	DESCRIPTION:	External Function handling code.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: fun.e,v 1.1.1.1 2001-05-23 13:26:07 tamlin Exp $
+*/
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/val.h"
+#include "../jrd/exe.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/req.h"
+#include "../jrd/lls.h"
+#include "../jrd/blb.h"
+#include "../jrd/flu.h"
+#include "../jrd/common.h"
+#include "../jrd/constants.h"
+#include "../jrd/ibsetjmp.h"
+#ifndef GATEWAY
+#include "../jrd/irq.h"
+#else
+#include "../gway/irq.h"
+#endif
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dsc_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/flu_proto.h"
+#include "../jrd/fun_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/sym_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/isc_s_proto.h"
+
+#ifdef NETWARE_386
+#define V4_THREADING
+#endif
+#include "../jrd/nlm_thd.h"
+
+typedef SSHORT(*FPTR_SSHORT) ();
+typedef SLONG(*FPTR_SLONG) ();
+typedef SINT64(*FPTR_SINT64) ();
+typedef float (*FPTR_REAL) ();
+typedef double (*FPTR_DOUBLE) ();
+typedef UCHAR *(*FPTR_UCHAR) ();
+
+#ifdef VMS
+#define CALL_UDF(ptr)		(*ptr) (args [0], args[1], args[2], args[3], args [4], args [5], args [6], args [7], args [8], args [9])
+#else
+#define CALL_UDF(ptr)		(ptr) (args [0], args[1], args[2], args[3], args [4], args [5], args [6], args [7], args [8], args [9])
+#endif
+
+DATABASE DB = FILENAME "ODS.RDB";
+
+#ifdef VMS
+extern double MTH$CVT_D_G(), MTH$CVT_G_D();
+#endif
+
+#define EXCEPTION_MESSAGE "The user defined function: \t%s\n\t   referencing entrypoint: \t%s\n\t                in module: \t%s\n\tcaused the fatal exception:"
+
+static SSHORT blob_get_segment(BLB, UCHAR *, USHORT, USHORT *);
+static void blob_put_segment(BLB, UCHAR *, USHORT);
+static SLONG blob_lseek(BLB, USHORT, SLONG);
+static SLONG get_scalar_array(struct fun_repeat *, DSC *, SAD, LLS *);
+
+
+void DLL_EXPORT FUN_evaluate( FUN function, NOD node, VLU value)
+{
+/**************************************
+ *
+ *	F U N _ e v a l u a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Evaluate a function.
+ *
+ **************************************/
+	TDBB tdbb;
+	NOD *ptr;
+	DSC *input, temp_desc;
+	SLONG **ap, *arg_ptr, args[MAX_UDF_ARGUMENTS + 1], *ip;
+	SSHORT s, *sp;
+	SLONG l, *lp, null_quad[2], *blob_id;
+	SINT64 i64, *pi64;
+	USHORT length, null_flag;
+	float f, *fp;
+	double *dp, d;
+	UCHAR temp[800], *temp_ptr, *p;
+	STR string, temp_string;
+	LLS blob_stack, array_stack;
+	REQ request;
+	BLB blob;
+	BLOB blob_desc;
+	struct fun_repeat *tail, *end, *return_ptr;
+	JMP_BUF *old_env, env;
+	SSHORT unsup_datatype;
+
+	tdbb = GET_THREAD_DATA;
+
+/* Start by constructing argument list */
+
+	if (function->fun_temp_length < sizeof(temp)) {
+		temp_string = NULL;
+		temp_ptr = temp;
+		MOVE_CLEAR(temp, sizeof(temp));
+	}
+	else
+	{
+		/* Need to align the starting address because it consists of
+		   a number of data blocks with aligned length */
+
+		temp_string =
+			(STR) ALLOCDV(type_str,
+						  function->fun_temp_length + DOUBLE_ALIGN - 1);
+		MOVE_CLEAR(temp_string->str_data, temp_string->str_length);
+		temp_ptr =
+			(UCHAR *) FB_ALIGN((U_IPTR) temp_string->str_data, DOUBLE_ALIGN);
+	}
+
+	MOVE_CLEAR(args, sizeof(args));
+	arg_ptr = args;
+	blob_stack = array_stack = NULL;
+	request = tdbb->tdbb_request;
+	null_flag = (USHORT)(request->req_flags & req_null);
+	return_ptr = function->fun_rpt + function->fun_return_arg;
+	value->vlu_desc = return_ptr->fun_desc;
+	value->vlu_desc.dsc_address = (UCHAR *) & value->vlu_misc;
+	ptr = node->nod_arg;
+
+/* Trap any potential errors */
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (temp_string)
+			ALL_release((FRB)temp_string);
+		while (array_stack)
+			ALL_free((SCHAR*)LLS_POP(&array_stack));
+		ERR_punt();
+	}
+
+	START_CHECK_FOR_EXCEPTIONS(function->fun_exception_message);
+
+/* If the return data type is any of the string types, allocate space to
+   hold value */
+
+	if (value->vlu_desc.dsc_dtype <= dtype_varying) {
+		length = value->vlu_desc.dsc_length;
+		if ((string = value->vlu_string) && string->str_length < length) {
+			ALL_release((FRB)string);
+			string = NULL;
+		}
+		if (!string) {
+			string = (STR) ALLOCDV(type_str, length);
+			string->str_length = length;
+			value->vlu_string = string;
+		}
+		value->vlu_desc.dsc_address = string->str_data;
+	}
+
+/* Process arguments */
+
+	for (tail = function->fun_rpt + 1, end = tail + function->fun_count;
+		 tail < end; tail++) {
+		if (tail == return_ptr)
+			input = (DSC *) value;
+		else
+			input = EVL_expr(tdbb, *ptr++);
+		ap = (SLONG **) arg_ptr;
+
+		/* If we're passing data type ISC descriptor, there's nothing left to
+		   be done */
+
+		if (tail->fun_mechanism == FUN_descriptor) {
+			*ap++ = (SLONG *) input;
+			arg_ptr = (SLONG *) ap;
+			continue;
+		}
+
+		temp_desc = tail->fun_desc;
+		temp_desc.dsc_address = temp_ptr;
+		length = FB_ALIGN(temp_desc.dsc_length, DOUBLE_ALIGN);
+
+		/* If we've got a null argument, just pass zeros (got any better ideas?) */
+
+		if (!input || (request->req_flags & req_null))
+		{
+			if (tail->fun_mechanism == FUN_value)
+			{
+				p = (UCHAR *) arg_ptr;
+				MOVE_CLEAR(p, (SLONG) length);
+				p += length;
+				arg_ptr = (SLONG *) p;
+				continue;
+			}
+			else
+			{
+				MOVE_CLEAR(temp_ptr, (SLONG) length);
+			}
+		}
+#ifndef GATEWAY
+		else if ((SSHORT) abs(tail->fun_mechanism) == FUN_scalar_array)
+		{
+			length = get_scalar_array(tail, input, (SAD)temp_ptr, &array_stack);
+		}
+#endif
+		else
+		{
+			switch (tail->fun_desc.dsc_dtype)
+			{
+			case dtype_short:
+				s = MOV_get_long(input, (SSHORT) tail->fun_desc.dsc_scale);
+				if (tail->fun_mechanism == FUN_value) {
+					/* For (apparent) portability reasons, SHORT by value
+					 * is always passed as a LONG.  See v3.2 release notes
+					 * Passing by value is not supported in SQL due to
+					 * these problems, but can still occur in GDML.
+					 * 1994-September-28 David Schnepper 
+					 */
+					*arg_ptr++ = (SLONG) s;
+					continue;
+				}
+				sp = (SSHORT *) temp_ptr;
+				*sp = s;
+				break;
+
+			case dtype_sql_time:
+			case dtype_sql_date:
+			case dtype_long:
+				/* this check added for bug 74193 */
+				if (tail->fun_desc.dsc_dtype == dtype_long)
+				{
+					l =
+						MOV_get_long(input,
+									 (SSHORT) tail->fun_desc.dsc_scale);
+				}
+				else
+				{
+					/* for sql_date and sql_time just move the value to a long, 
+					   scale does not mean anything for it */
+					l = *((SLONG *) (input->dsc_address));
+				}
+
+				if (tail->fun_mechanism == FUN_value)
+				{
+					*arg_ptr++ = l;
+					continue;
+				}
+				lp = (SLONG *) temp_ptr;
+				*lp = l;
+				break;
+
+			case dtype_int64:
+				i64 = MOV_get_int64(input, (SSHORT) tail->fun_desc.dsc_scale);
+				if (tail->fun_mechanism == FUN_value)
+				{
+					pi64 = (SINT64 *) arg_ptr;
+					*pi64++ = i64;
+					arg_ptr = (SLONG *) pi64;
+					continue;
+				}
+				pi64 = (SINT64 *) temp_ptr;
+				*pi64 = i64;
+				break;
+
+			case dtype_real:
+				f = (float) MOV_get_double(input);
+				if (tail->fun_mechanism == FUN_value)
+				{
+					/* For (apparent) portability reasons, FLOAT by value
+					 * is always passed as a DOUBLE.  See v3.2 release notes
+					 * Passing by value is not supported in SQL due to
+					 * these problems, but can still occur in GDML.
+					 * 1994-September-28 David Schnepper 
+					 */
+					dp = (double *) arg_ptr;
+					*dp++ = (double) f;
+					arg_ptr = (SLONG *) dp;
+					continue;
+				}
+				fp = (float *) temp_ptr;
+				*fp = f;
+				break;
+
+			case dtype_double:
+#ifdef VMS
+			case dtype_d_float:
+				d = MOV_get_double(input);
+				if (tail->fun_desc.dsc_dtype == SPECIAL_DOUBLE)
+				{
+					d = CNVT_FROM_DFLT(&d);
+				}
+#else
+				d = MOV_get_double(input);
+#endif
+				if (tail->fun_mechanism == FUN_value)
+				{
+					dp = (double *) arg_ptr;
+					*dp++ = d;
+					arg_ptr = (SLONG *) dp;
+					continue;
+				}
+				dp = (double *) temp_ptr;
+				*dp = d;
+				break;
+
+			case dtype_text:
+			case dtype_cstring:
+			case dtype_varying:
+				if (tail == return_ptr) {
+					temp_ptr = value->vlu_desc.dsc_address;
+					length = 0;
+				}
+				else
+					MOV_move(input, &temp_desc);
+				break;
+
+			case dtype_timestamp:
+			case dtype_quad:
+			case dtype_array:
+				MOV_move(input, &temp_desc);
+				break;
+
+			case dtype_blob:
+				blob_desc = (BLOB) temp_ptr;
+				length = sizeof(struct blob);
+				if (tail == return_ptr)
+				{
+					blob =
+						BLB_create(tdbb, tdbb->tdbb_request->req_transaction,
+								   (BID) & value->vlu_misc);
+				}
+				else
+				{
+					if (request->req_flags & req_null) {
+						null_quad[0] = null_quad[1] = 0;
+						blob_id = null_quad;
+					}
+					else
+					{
+						if (input->dsc_dtype != dtype_quad &&
+							input->dsc_dtype != dtype_blob)
+							ERR_post(gds__wish_list,
+									 gds_arg_gds, gds__blobnotsup,
+									 gds_arg_string, "conversion", 0);
+						blob_id = (SLONG *) input->dsc_address;
+					}
+					blob = BLB_open(tdbb,
+									tdbb->tdbb_request->req_transaction,
+									(BID)blob_id);
+				}
+				LLS_PUSH(blob, &blob_stack);
+				blob_desc->blob_get_segment = blob_get_segment;
+				blob_desc->blob_put_segment = blob_put_segment;
+				blob_desc->blob_seek = blob_lseek;
+				blob_desc->blob_handle = (int *) blob;
+				blob_desc->blob_number_segments = blob->blb_count;
+				blob_desc->blob_max_segment = blob->blb_max_segment;
+				blob_desc->blob_total_length = blob->blb_length;
+				break;
+
+			default:
+				assert(FALSE);
+				MOV_move(input, &temp_desc);
+				break;
+
+			}
+		}
+
+		*ap++ = (SLONG *) temp_ptr;
+		arg_ptr = (SLONG *) ap;
+		temp_ptr += length;
+	}
+
+	unsup_datatype = 0;
+
+	if (function->fun_return_arg)
+	{
+		THREAD_EXIT;
+		CALL_UDF(function->fun_entrypoint);
+		THREAD_ENTER;
+	}
+	else if ((SLONG) return_ptr->fun_mechanism == FUN_value)
+	{
+		switch (value->vlu_desc.dsc_dtype)
+		{
+		case dtype_sql_time:
+		case dtype_sql_date:
+		case dtype_long:
+			THREAD_EXIT;
+			value->vlu_misc.vlu_long =
+				CALL_UDF((FPTR_SLONG) function->fun_entrypoint);
+			THREAD_ENTER;
+			break;
+
+		case dtype_short:
+			/* For (apparent) portability reasons, SHORT by value
+			 * must always be returned as a LONG.  See v3.2 release notes
+			 * 1994-September-28 David Schnepper 
+			 */
+			THREAD_EXIT;
+			value->vlu_misc.vlu_short = (SSHORT)
+				CALL_UDF((FPTR_SLONG) function->fun_entrypoint);
+			THREAD_ENTER;
+			break;
+
+		case dtype_real:
+			/* For (apparent) portability reasons, FLOAT by value
+			 * must always be returned as a DOUBLE.  See v3.2 release notes
+			 * 1994-September-28 David Schnepper 
+			 */
+			THREAD_EXIT;
+			value->vlu_misc.vlu_float = (float)
+				CALL_UDF((FPTR_DOUBLE) function->fun_entrypoint);
+			THREAD_ENTER;
+			break;
+
+		case dtype_int64:
+			THREAD_EXIT;
+			value->vlu_misc.vlu_int64 =
+				CALL_UDF((FPTR_SINT64) function->fun_entrypoint);
+			THREAD_ENTER;
+			break;
+
+		case dtype_double:
+#ifdef VMS
+		case dtype_d_float:
+#endif
+			THREAD_EXIT;
+			value->vlu_misc.vlu_double =
+				CALL_UDF((FPTR_DOUBLE) function->fun_entrypoint);
+			THREAD_ENTER;
+			break;
+
+		case dtype_timestamp:
+		default:
+			unsup_datatype = 1;
+			break;
+		}
+	}
+	else
+	{
+		THREAD_EXIT;
+		temp_ptr = CALL_UDF(*(FPTR_UCHAR) function->fun_entrypoint);
+		THREAD_ENTER;
+
+		if (temp_ptr != NULL)
+		{
+			switch (value->vlu_desc.dsc_dtype)
+			{
+			case dtype_sql_date:
+			case dtype_sql_time:
+			case dtype_long:
+				value->vlu_misc.vlu_long = *(SLONG *) temp_ptr;
+				break;
+
+			case dtype_short:
+				value->vlu_misc.vlu_short = *(SSHORT *) temp_ptr;
+				break;
+
+			case dtype_real:
+				value->vlu_misc.vlu_float = *(float *) temp_ptr;
+				break;
+
+			case dtype_int64:
+				value->vlu_misc.vlu_int64 = *(SINT64 *) temp_ptr;
+				break;
+
+			case dtype_double:
+#ifdef VMS
+			case dtype_d_float:
+#endif
+				value->vlu_misc.vlu_double = *(double *) temp_ptr;
+				break;
+
+			case dtype_text:
+			case dtype_cstring:
+			case dtype_varying:
+				temp_desc = value->vlu_desc;
+				temp_desc.dsc_address = temp_ptr;
+				temp_desc.dsc_length = strlen(temp_ptr) + 1;
+				MOV_move(&temp_desc, &value->vlu_desc);
+				break;
+
+			case dtype_timestamp:
+				ip = (SLONG *) temp_ptr;
+				value->vlu_misc.vlu_dbkey[0] = *ip++;
+				value->vlu_misc.vlu_dbkey[1] = *ip;
+				break;
+
+			default:
+				unsup_datatype = 1;
+				break;
+			}
+			/* check if this is function has the FREE_IT set, if set and
+			   return_value is not null, then free the return value */
+			if (((SLONG) return_ptr->fun_mechanism < 0) && temp_ptr)
+				free(temp_ptr);
+		}
+	}
+
+	END_CHECK_FOR_EXCEPTIONS(function->fun_exception_message);
+
+	if (unsup_datatype)
+		IBERROR(169);			/* msg 169 return data type not supported */
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+	if (temp_string)
+		ALL_release((FRB)temp_string);
+
+	while (blob_stack)
+	{
+		BLB_close(tdbb, (BLB)LLS_POP(&blob_stack));
+	}
+
+	while (array_stack)
+	{
+		ALL_free((SCHAR*)LLS_POP(&array_stack));
+	}
+
+	if (temp_ptr == NULL)
+	{
+		request->req_flags |= req_null;
+	}
+	else
+	{
+		request->req_flags &= ~req_null;
+	}
+	request->req_flags |= null_flag;
+}
+
+
+void DLL_EXPORT FUN_fini( TDBB tdbb)
+{
+/**************************************
+ *
+ *	F U N _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unregister interest in external function modules.
+ *
+ **************************************/
+	DBB dbb;
+
+	dbb = tdbb->tdbb_database;
+
+	while (dbb->dbb_modules)
+		FLU_unregister_module((MOD) LLS_POP(&dbb->dbb_modules));
+}
+
+
+void DLL_EXPORT FUN_init(void)
+{
+/**************************************
+ *
+ *	F U N _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize external function mechanism.
+ *
+ **************************************/
+}
+
+
+FUN DLL_EXPORT FUN_lookup_function(TEXT * name)
+{
+/**************************************
+ *
+ *	F U N _ l o o k u p _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup function by name.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request_fun, request_arg;
+	FUN function, prior;
+	SYM symbol;
+	STR string;
+	STR exception_msg;
+	TEXT *p;
+	MOD module;
+	LLS stack;
+	USHORT count, args, l;
+	ULONG length;
+	struct fun_repeat *tail, temp[MAX_UDF_ARGUMENTS + 1];
+#ifdef GATEWAY
+	JMP_BUF *old_env, env;
+#endif
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* Start by looking for already defined symbol */
+
+	V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_udf);
+
+	for (symbol = SYM_lookup(name); symbol; symbol = symbol->sym_homonym)
+		if ((int) (symbol->sym_type = SYM_fun)) {
+			V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_udf);
+			return (FUN) symbol->sym_object;
+		}
+
+#ifdef GATEWAY
+/* Trap any potential errors */
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		return prior;
+	}
+#endif
+
+	prior = NULL;
+
+	request_fun = (BLK) CMP_find_request(tdbb, irq_l_functions, IRQ_REQUESTS);
+	request_arg = (BLK) CMP_find_request(tdbb, irq_l_args, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request_fun) X IN RDB$FUNCTIONS
+		WITH X.RDB$FUNCTION_NAME EQ name 
+        if (!REQUEST(irq_l_functions))
+            REQUEST(irq_l_functions) = request_fun;
+		count = args = 0;
+		MOVE_CLEAR(temp, (SLONG) sizeof(temp));
+		length = 0;
+		FOR(REQUEST_HANDLE request_arg) Y IN RDB$FUNCTION_ARGUMENTS
+			WITH Y.RDB$FUNCTION_NAME EQ X.RDB$FUNCTION_NAME
+				SORTED BY Y.RDB$ARGUMENT_POSITION 
+
+            if (!REQUEST(irq_l_args))
+                REQUEST(irq_l_args) = request_arg;
+			tail = temp + Y.RDB$ARGUMENT_POSITION;
+			tail->fun_mechanism = (FUN_T) Y.RDB$MECHANISM;
+			count = MAX(count, Y.RDB$ARGUMENT_POSITION);
+			DSC_make_descriptor(&tail->fun_desc, Y.RDB$FIELD_TYPE,
+								Y.RDB$FIELD_SCALE, Y.RDB$FIELD_LENGTH,
+								Y.RDB$FIELD_SUB_TYPE, Y.RDB$CHARACTER_SET_ID,
+								0);
+
+			if (tail->fun_desc.dsc_dtype == dtype_cstring)
+				tail->fun_desc.dsc_length++;
+
+			if (Y.RDB$ARGUMENT_POSITION != X.RDB$RETURN_ARGUMENT)
+				++args;
+			l = FB_ALIGN(tail->fun_desc.dsc_length, DOUBLE_ALIGN);
+			if (tail->fun_desc.dsc_dtype == dtype_blob)
+				l = sizeof(struct blob);
+			length += l;
+        END_FOR;
+		function = (FUN) ALLOCPV(type_fun, count + 1);
+		function->fun_count = count;
+		function->fun_args = args;
+		function->fun_return_arg = X.RDB$RETURN_ARGUMENT;
+		function->fun_type = X.RDB$FUNCTION_TYPE;
+		function->fun_temp_length = length;
+		MOVE_FAST(temp, function->fun_rpt,
+				  (count + 1) * sizeof(struct fun_repeat));
+#ifndef	WIN_NT					/* NT allows blanks in file paths */
+		for (p = X.RDB$MODULE_NAME; *p && *p != ' '; p++);
+		*p = 0;
+#endif
+		for (p = X.RDB$ENTRYPOINT; *p && *p != ' '; p++);
+		*p = 0;
+
+		/* Prepare the exception message to be used in case this function ever
+		   causes an exception.  This is done at this time to save us from preparing
+		   (thus allocating) this message every time the function is called. */
+		exception_msg =
+			(STR) ALLOCPV(type_str,
+						  strlen(EXCEPTION_MESSAGE) + strlen(name) +
+						  strlen(X.RDB$ENTRYPOINT) +
+						  strlen(X.RDB$MODULE_NAME) + 1);
+		sprintf(exception_msg->str_data, EXCEPTION_MESSAGE, name,
+				X.RDB$ENTRYPOINT, X.RDB$MODULE_NAME);
+		function->fun_exception_message = exception_msg;
+
+		function->fun_entrypoint =
+			ISC_lookup_entrypoint(X.RDB$MODULE_NAME, X.RDB$ENTRYPOINT,
+								  ISC_EXT_LIB_PATH_ENV);
+
+		if (module = FLU_lookup_module(X.RDB$MODULE_NAME)) {
+			/* Register interest in the module by database. */
+
+			for (stack = dbb->dbb_modules; stack; stack = stack->lls_next)
+				if (module == (MOD) stack->lls_object)
+					break;
+
+			/* If the module was already registered with this database
+			   then decrement the use count that was incremented in
+			   ISC_lookup_entrypoint() above. Otherwise push it onto
+			   the stack of registered modules. */
+
+			if (stack)
+			{
+				FLU_unregister_module(module);
+			}
+			else
+			{
+				PLB old_pool;
+
+				old_pool = tdbb->tdbb_default;
+				tdbb->tdbb_default = dbb->dbb_permanent;
+				LLS_PUSH(module, &dbb->dbb_modules);
+				tdbb->tdbb_default = old_pool;
+			}
+		}
+
+		/* Could not find a function with given MODULE, ENTRYPOINT,
+		 * Try the list of internally implemented functions.
+		 */
+		if (!function->fun_entrypoint)
+			function->fun_entrypoint =
+				BUILTIN_entrypoint(X.RDB$MODULE_NAME, X.RDB$ENTRYPOINT);
+
+		if (prior) {
+			function->fun_homonym = prior->fun_homonym;
+			prior->fun_homonym = function;
+		}
+		else
+		{
+			prior = function;
+			function->fun_symbol = symbol = (SYM) ALLOCP(type_sym);
+			symbol->sym_object = (BLK) function;
+			string = (STR) ALLOCPV(type_str, strlen(name));
+			strcpy(string->str_data, name);
+			symbol->sym_string = (TEXT *) string->str_data;
+			symbol->sym_type = SYM_fun;
+			SYM_insert(symbol);
+		}
+	END_FOR;
+
+	if (!REQUEST(irq_l_functions))
+		REQUEST(irq_l_functions) = request_fun;
+	if (!REQUEST(irq_l_args))
+		REQUEST(irq_l_args) = request_arg;
+
+	V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_udf);
+
+#ifdef GATEWAY
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+#endif
+
+	return prior;
+}
+
+
+FUN DLL_EXPORT FUN_resolve(CSB csb, FUN function, NOD args)
+{
+/**************************************
+ *
+ *	F U N _ r e s o l v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Resolve instance of potentially overloaded function.
+ *
+ **************************************/
+	FUN best;
+	NOD *ptr, *end;
+	DSC arg;
+	int best_score, score;
+	struct fun_repeat *tail;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	best = NULL;
+	best_score = 0;
+	end = args->nod_arg + args->nod_count;
+
+	for (; function; function = function->fun_homonym)
+		if (function->fun_entrypoint && function->fun_args == args->nod_count) {
+			score = 0;
+			for (ptr = args->nod_arg, tail = function->fun_rpt + 1; ptr < end;
+				 ptr++, tail++) {
+				CMP_get_desc(tdbb, csb, *ptr, &arg);
+				if ((SSHORT) abs(tail->fun_mechanism) == FUN_descriptor)
+					score += 10;
+				else if (tail->fun_desc.dsc_dtype == dtype_blob ||
+						 arg.dsc_dtype == dtype_blob) {
+					score = 0;
+					break;
+				}
+				else if (tail->fun_desc.dsc_dtype >= arg.dsc_dtype)
+					score += 10 - (arg.dsc_dtype - tail->fun_desc.dsc_dtype);
+				else
+					score += 1;
+			}
+			if (!best || score > best_score) {
+				best_score = score;
+				best = function;
+			}
+		}
+
+	return best;
+}
+
+
+static SLONG blob_lseek( BLB blob, USHORT mode, SLONG offset)
+{
+/**************************************
+ *
+ *	b l o b _ l s e e k
+ *
+ **************************************
+ *
+ * Functional description
+ *	lseek a  a blob segement.  Return the offset 
+ *
+ **************************************/
+
+	SLONG return_offset;
+
+/* add thread enter and thread_exit wrappers */
+	THREAD_ENTER;
+	return_offset = BLB_lseek(blob, mode, offset);
+	THREAD_EXIT;
+	return (return_offset);
+}
+
+
+static void blob_put_segment( BLB blob, UCHAR * buffer, USHORT length)
+{
+/**************************************
+ *
+ *	b l o b _ p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put  segment into a blob.  Return nothing 
+ *
+ **************************************/
+	TDBB tdbb;
+
+/* As this is a call-back from a UDF, must reacquire the
+   engine mutex */
+
+	THREAD_ENTER;
+	tdbb = GET_THREAD_DATA;
+	BLB_put_segment(tdbb, blob, buffer, length);
+	THREAD_EXIT;
+}
+
+
+static SSHORT blob_get_segment(
+							   BLB blob,
+							   UCHAR * buffer,
+							   USHORT length, USHORT * return_length)
+{
+/**************************************
+ *
+ *	b l o b _ g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get next segment of a blob.  Return the following:
+ *
+ *		1	-- Complete segment has been returned.
+ *		0	-- End of blob (no data returned).
+ *		-1	-- Current segment is incomplete.
+ *
+ **************************************/
+	TDBB tdbb;
+
+/* add thread enter and thread_exit wrappers */
+	THREAD_ENTER;
+	tdbb = GET_THREAD_DATA;
+	*return_length = BLB_get_segment(tdbb, blob, buffer, length);
+	THREAD_EXIT;
+
+	if (blob->blb_flags & BLB_eof)
+		return 0;
+
+	if (blob->blb_fragment_size)
+		return -1;
+
+	return 1;
+}
+
+
+#ifndef GATEWAY
+static SLONG get_scalar_array(struct fun_repeat*	arg,
+							  DSC*	value,
+							  SAD	scalar_desc,
+							  LLS*	stack)
+{
+/**************************************
+ *
+ *	g e t _ s c a l a r _ a r r a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get and format a scalar array descriptor, then allocate space
+ *	and fetch the array.  If conversion is required, convert.
+ *	Return length of array desc.
+ *
+ **************************************/
+	TDBB tdbb;
+	BLB blob;
+	ADS array_desc;
+	SLONG stuff[ADS_LEN(16) / 4], n;
+	UCHAR *data, *temp;
+	DSC from, to;
+	USHORT dimensions;
+	struct ads_repeat *tail1;
+	struct sad_repeat *tail2, *end;
+
+	tdbb = GET_THREAD_DATA;
+
+/* Get first the array descriptor, then the array */
+
+	array_desc = (ADS) stuff;
+	blob = BLB_get_array(tdbb,
+						tdbb->tdbb_request->req_transaction,
+						(BID)value->dsc_address,
+						array_desc);
+	data = (UCHAR *) ALL_malloc(array_desc->ads_total_length, ERR_jmp);
+	BLB_get_data(tdbb, blob, data, array_desc->ads_total_length);
+	dimensions = array_desc->ads_dimensions;
+
+/* Convert array, if necessary */
+
+	to = arg->fun_desc;
+	from = array_desc->ads_rpt[0].ads_desc;
+
+	if (to.dsc_dtype != from.dsc_dtype ||
+		to.dsc_scale != from.dsc_scale || to.dsc_length != from.dsc_length) {
+		n = array_desc->ads_count;
+		to.dsc_address = temp =
+			(UCHAR *) ALL_malloc((SLONG) to.dsc_length * n, ERR_jmp);
+		from.dsc_address = data;
+		for (; n; --n, to.dsc_address += to.dsc_length,
+			 from.dsc_address += array_desc->ads_element_length)
+				MOV_move(&from, &to);
+		ALL_free(data);
+		data = temp;
+	}
+
+/* Fill out the scalar array descriptor */
+
+	LLS_PUSH(data, stack);
+	scalar_desc->sad_desc = arg->fun_desc;
+	scalar_desc->sad_desc.dsc_address = data;
+	scalar_desc->sad_dimensions = dimensions;
+
+	for (tail2 = scalar_desc->sad_rpt, end = tail2 + dimensions, tail1 =
+		 array_desc->ads_rpt; tail2 < end; ++tail1, ++tail2) {
+		tail2->sad_upper = tail1->ads_upper;
+		tail2->sad_lower = tail1->ads_lower;
+	}
+
+	return sizeof(struct sad) + (dimensions - 1) * sizeof(struct sad_repeat);
+}
+#endif
diff --git a/src/jrd/fun_proto.h b/src/jrd/fun_proto.h
new file mode 100644
index 0000000000..a33aa6f24f
--- /dev/null
+++ b/src/jrd/fun_proto.h
@@ -0,0 +1,42 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		fun_proto.h
+ *	DESCRIPTION:	Prototype header file for fun.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_FUN_PROTO_H_
+#define _JRD_FUN_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void DLL_EXPORT FUN_evaluate(struct fun *, struct nod *, struct vlu *);
+extern void DLL_EXPORT FUN_fini(struct tdbb *);
+extern void DLL_EXPORT FUN_init(void);
+extern struct fun *DLL_EXPORT FUN_lookup_function(TEXT *);
+extern struct fun *DLL_EXPORT FUN_resolve(struct csb *, struct fun *,
+										  struct nod *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_FUN_PROTO_H_ */
diff --git a/src/jrd/functions.cpp b/src/jrd/functions.cpp
new file mode 100644
index 0000000000..85c9c96fbf
--- /dev/null
+++ b/src/jrd/functions.cpp
@@ -0,0 +1,129 @@
+/*
+ *	PROGRAM:	InterBase Access Method
+ *	MODULE:		functions.c
+ *	DESCRIPTION:	External entrypoint definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+
+/* defined in common.h, which is included by ib_stdio.h: typedef int (*FPTR_INT)(); */
+
+
+extern "C" {
+
+
+typedef struct {
+	char *fn_module;
+	char *fn_entrypoint;
+	FPTR_INT fn_function;
+} FN;
+
+
+FPTR_INT FUNCTIONS_entrypoint(char *, char *);
+static int test(long, char *);
+
+
+#pragma FB_COMPILER_MESSAGE("Fix! function pointer cast!")
+
+static FN isc_functions[] = {
+	"test_module", "test_function", (int (*)()) test,
+	0, 0, 0
+};
+
+#ifdef SHLIB_DEFS
+#define strcmp		(*_libfun_strcmp)
+#define sprintf		(*_libfun_sprintf)
+
+extern int strcmp();
+extern int sprintf();
+#endif
+
+
+FPTR_INT FUNCTIONS_entrypoint(char *module, char *entrypoint)
+{
+/**************************************
+ *
+ *	F U N C T I O N S _ e n t r y p o i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup function in hardcoded table.  The module and
+ *	entrypoint names are null terminated, but may contain
+ *	insignificant trailing blanks.
+ *
+ **************************************/
+	FN *function;
+	char *p, temp[128], *ep;
+
+	p = temp;
+
+	while (*module && *module != ' ')
+		*p++ = *module++;
+
+	*p++ = 0;
+	ep = p;
+
+	while (*entrypoint && *entrypoint != ' ')
+		*p++ = *entrypoint++;
+
+	*p = 0;
+
+	for (function = isc_functions; function->fn_module; ++function)
+		if (!strcmp(temp, function->fn_module)
+			&& !strcmp(ep, function->fn_entrypoint))
+			return function->fn_function;
+
+	return 0;
+}
+
+
+static int test(long n, char *result)
+{
+/**************************************
+ *
+ *	t e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sample extern function.  Defined in database by:
+ *
+ *	define function test module_name "test_module" entry_point "test_function"
+ *	    long by value,
+ *	    char [20] by reference return_argument;
+ *
+ **************************************/
+
+	sprintf(result, "%d is a number", n);
+	const char *end = result + 20;
+
+	while (*result)
+		result++;
+
+	while (result < end)
+		*result++ = ' ';
+
+	return 0;
+}
+
+
+} // extern "C"
diff --git a/src/jrd/gds.bas b/src/jrd/gds.bas
new file mode 100644
index 0000000000..d36cc48a10
--- /dev/null
+++ b/src/jrd/gds.bas
@@ -0,0 +1,384 @@
+!  The contents of this file are subject to the Interbase Public
+!  License Version 1.0 (the "License"); you may not use this file
+!  except in compliance with the License. You may obtain a copy
+!  of the License at http://www.Inprise.com/IPL.html
+!
+!  Software distributed under the License is distributed on an
+!  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+!  or implied. See the License for the specific language governing
+!  rights and limitations under the License.
+!
+!  The Original Code was created by Inprise Corporation
+!  and its predecessors. Portions created by Inprise Corporation are
+!  Copyright (C) Inprise Corporation.
+!
+!  All Rights Reserved.
+!  Contributor(s): ______________________________________.
+
+	!*
+	!*	PROGRAM:	BASIC preprocessor
+	!*	MODULE:		gds.bas
+	!*	DESCRIPTION:	BLR constants
+	!*
+	
+! Error codes
+
+	DECLARE LONG CONSTANT gds_facility = 20
+	DECLARE LONG CONSTANT gds_err_base = 335544320
+	DECLARE LONG CONSTANT gds_err_factor = 1
+	DECLARE LONG CONSTANT    gds_arg_end  = 0 
+	DECLARE LONG CONSTANT    gds_arg_gds  = 1 
+	DECLARE LONG CONSTANT    gds_arg_string = 2 
+	DECLARE LONG CONSTANT    gds_arg_cstring = 3 
+	DECLARE LONG CONSTANT    gds_arg_number = 4 
+	DECLARE LONG CONSTANT    gds_arg_interpreted = 5 
+	DECLARE LONG CONSTANT    gds_arg_vms  = 6 
+	DECLARE LONG CONSTANT    gds_arg_unix = 7 
+	DECLARE LONG CONSTANT    gds_arg_domain = 8 
+        DECLARE LONG CONSTANT    gds_err_max = 138
+
+	DECLARE LONG CONSTANT gds__arith_except        	= 335544321
+	DECLARE LONG CONSTANT gds__bad_dbkey           	= 335544322
+	DECLARE LONG CONSTANT gds__bad_db_format       	= 335544323
+	DECLARE LONG CONSTANT gds__bad_db_handle       	= 335544324
+	DECLARE LONG CONSTANT gds__bad_dpb_content     	= 335544325
+	DECLARE LONG CONSTANT gds__bad_dpb_form        	= 335544326
+	DECLARE LONG CONSTANT gds__bad_req_handle      	= 335544327
+	DECLARE LONG CONSTANT gds__bad_segstr_handle   	= 335544328
+	DECLARE LONG CONSTANT gds__bad_segstr_id       	= 335544329
+	DECLARE LONG CONSTANT gds__bad_tpb_content     	= 335544330
+	DECLARE LONG CONSTANT gds__bad_tpb_form        	= 335544331
+	DECLARE LONG CONSTANT gds__bad_trans_handle    	= 335544332
+	DECLARE LONG CONSTANT gds__bug_check           	= 335544333
+	DECLARE LONG CONSTANT gds__convert_error       	= 335544334
+	DECLARE LONG CONSTANT gds__db_corrupt          	= 335544335
+	DECLARE LONG CONSTANT gds__deadlock            	= 335544336
+	DECLARE LONG CONSTANT gds__excess_trans        	= 335544337
+	DECLARE LONG CONSTANT gds__from_no_match       	= 335544338
+	DECLARE LONG CONSTANT gds__infinap             	= 335544339
+	DECLARE LONG CONSTANT gds__infona              	= 335544340
+	DECLARE LONG CONSTANT gds__infunk              	= 335544341
+	DECLARE LONG CONSTANT gds__integ_fail          	= 335544342
+	DECLARE LONG CONSTANT gds__invalid_blr         	= 335544343
+	DECLARE LONG CONSTANT gds__io_error            	= 335544344
+	DECLARE LONG CONSTANT gds__lock_conflict       	= 335544345
+	DECLARE LONG CONSTANT gds__metadata_corrupt    	= 335544346
+	DECLARE LONG CONSTANT gds__not_valid           	= 335544347
+	DECLARE LONG CONSTANT gds__no_cur_rec          	= 335544348
+	DECLARE LONG CONSTANT gds__no_dup              	= 335544349
+	DECLARE LONG CONSTANT gds__no_finish           	= 335544350
+	DECLARE LONG CONSTANT gds__no_meta_update      	= 335544351
+	DECLARE LONG CONSTANT gds__no_priv             	= 335544352
+	DECLARE LONG CONSTANT gds__no_recon            	= 335544353
+	DECLARE LONG CONSTANT gds__no_record           	= 335544354
+	DECLARE LONG CONSTANT gds__no_segstr_close     	= 335544355
+	DECLARE LONG CONSTANT gds__obsolete_metadata   	= 335544356
+	DECLARE LONG CONSTANT gds__open_trans          	= 335544357
+	DECLARE LONG CONSTANT gds__port_len            	= 335544358
+	DECLARE LONG CONSTANT gds__read_only_field     	= 335544359
+	DECLARE LONG CONSTANT gds__read_only_rel       	= 335544360
+	DECLARE LONG CONSTANT gds__read_only_trans     	= 335544361
+	DECLARE LONG CONSTANT gds__read_only_view      	= 335544362
+	DECLARE LONG CONSTANT gds__req_no_trans        	= 335544363
+	DECLARE LONG CONSTANT gds__req_sync            	= 335544364
+	DECLARE LONG CONSTANT gds__req_wrong_db        	= 335544365
+	DECLARE LONG CONSTANT gds__segment             	= 335544366
+	DECLARE LONG CONSTANT gds__segstr_eof          	= 335544367
+	DECLARE LONG CONSTANT gds__segstr_no_op        	= 335544368
+	DECLARE LONG CONSTANT gds__segstr_no_read      	= 335544369
+	DECLARE LONG CONSTANT gds__segstr_no_trans     	= 335544370
+	DECLARE LONG CONSTANT gds__segstr_no_write     	= 335544371
+	DECLARE LONG CONSTANT gds__segstr_wrong_db     	= 335544372
+	DECLARE LONG CONSTANT gds__sys_request         	= 335544373
+	DECLARE LONG CONSTANT gds__unavailable         	= 335544375
+	DECLARE LONG CONSTANT gds__unres_rel           	= 335544376
+	DECLARE LONG CONSTANT gds__uns_ext             	= 335544377
+	DECLARE LONG CONSTANT gds__wish_list           	= 335544378
+	DECLARE LONG CONSTANT gds__wrong_ods           	= 335544379
+	DECLARE LONG CONSTANT gds__wronumarg           	= 335544380
+	DECLARE LONG CONSTANT gds__imp_exc             	= 335544381
+	DECLARE LONG CONSTANT gds__random              	= 335544382
+	DECLARE LONG CONSTANT gds__fatal_conflict      	= 335544383
+
+! Minor codes subject to change
+
+	DECLARE LONG CONSTANT gds__badblk              	= 335544384
+	DECLARE LONG CONSTANT gds__invpoolcl           	= 335544385
+	DECLARE LONG CONSTANT gds__nopoolids           	= 335544386
+	DECLARE LONG CONSTANT gds__relbadblk           	= 335544387
+	DECLARE LONG CONSTANT gds__blktoobig           	= 335544388
+	DECLARE LONG CONSTANT gds__bufexh              	= 335544389
+	DECLARE LONG CONSTANT gds__syntaxerr           	= 335544390
+	DECLARE LONG CONSTANT gds__bufinuse            	= 335544391
+	DECLARE LONG CONSTANT gds__bdbincon            	= 335544392
+	DECLARE LONG CONSTANT gds__reqinuse            	= 335544393
+	DECLARE LONG CONSTANT gds__badodsver           	= 335544394
+	DECLARE LONG CONSTANT gds__relnotdef           	= 335544395
+	DECLARE LONG CONSTANT gds__fldnotdef           	= 335544396
+	DECLARE LONG CONSTANT gds__dirtypage           	= 335544397
+	DECLARE LONG CONSTANT gds__waifortra           	= 335544398
+	DECLARE LONG CONSTANT gds__doubleloc           	= 335544399
+	DECLARE LONG CONSTANT gds__nodnotfnd           	= 335544400
+	DECLARE LONG CONSTANT gds__dupnodfnd           	= 335544401
+	DECLARE LONG CONSTANT gds__locnotmar           	= 335544402
+	DECLARE LONG CONSTANT gds__badpagtyp           	= 335544403
+	DECLARE LONG CONSTANT gds__corrupt             	= 335544404
+	DECLARE LONG CONSTANT gds__badpage             	= 335544405
+	DECLARE LONG CONSTANT gds__badindex            	= 335544406
+	DECLARE LONG CONSTANT gds__dbbnotzer           	= 335544407
+	DECLARE LONG CONSTANT gds__tranotzer           	= 335544408
+	DECLARE LONG CONSTANT gds__trareqmis           	= 335544409
+	DECLARE LONG CONSTANT gds__badhndcnt           	= 335544410
+	DECLARE LONG CONSTANT gds__wrotpbver           	= 335544411
+	DECLARE LONG CONSTANT gds__wroblrver           	= 335544412
+	DECLARE LONG CONSTANT gds__wrodpbver           	= 335544413
+	DECLARE LONG CONSTANT gds__blobnotsup          	= 335544414
+	DECLARE LONG CONSTANT gds__badrelation         	= 335544415
+	DECLARE LONG CONSTANT gds__nodetach            	= 335544416
+	DECLARE LONG CONSTANT gds__notremote           	= 335544417
+	DECLARE LONG CONSTANT gds__trainlim            	= 335544418
+	DECLARE LONG CONSTANT gds__notinlim            	= 335544419
+	DECLARE LONG CONSTANT gds__traoutsta           	= 335544420
+	DECLARE LONG CONSTANT gds__connect_reject      	= 335544421
+	DECLARE LONG CONSTANT gds__dbfile              	= 335544422
+	DECLARE LONG CONSTANT gds__orphan              	= 335544423
+	DECLARE LONG CONSTANT gds__no_lock_mgr         	= 335544424
+	DECLARE LONG CONSTANT gds__ctxinuse            	= 335544425
+	DECLARE LONG CONSTANT gds__ctxnotdef           	= 335544426
+	DECLARE LONG CONSTANT gds__datnotsup           	= 335544427
+	DECLARE LONG CONSTANT gds__badmsgnum           	= 335544428
+	DECLARE LONG CONSTANT gds__badparnum           	= 335544429
+	DECLARE LONG CONSTANT gds__virmemexh           	= 335544430
+	DECLARE LONG CONSTANT gds__blocking_signal     	= 335544431
+	DECLARE LONG CONSTANT gds__lockmanerr          	= 335544432
+	DECLARE LONG CONSTANT gds__journerr            	= 335544433
+	DECLARE LONG CONSTANT gds__keytoobig           	= 335544434
+	DECLARE LONG CONSTANT gds__nullsegkey          	= 335544435
+	DECLARE LONG CONSTANT gds__sqlerr              	= 335544436	
+	DECLARE LONG CONSTANT gds__wrodynver           	= 335544437
+        DECLARE LONG CONSTANT gds__obj_in_use           = 335544453
+        DECLARE LONG CONSTANT gds__nofilter             = 335544454
+        DECLARE LONG CONSTANT gds__shadow_accessed      = 335544455
+        DECLARE LONG CONSTANT gds__invalid_sdl          = 335544456
+        DECLARE LONG CONSTANT gds__out_of_bounds        = 335544457
+        DECLARE LONG CONSTANT gds__invalid_dimension    = 335544458
+
+! Database parameter block stuff 
+
+	DECLARE BYTE CONSTANT gds__dpb_version1			= 1
+
+	DECLARE BYTE CONSTANT gds__dpb_cdd_pathname		= 1
+	DECLARE BYTE CONSTANT gds__dpb_allocation		= 2
+	DECLARE BYTE CONSTANT gds__dpb_journal 			= 3
+	DECLARE BYTE CONSTANT gds__dpb_page_size 		= 4
+	DECLARE BYTE CONSTANT gds__dpb_num_buffers 		= 5
+	DECLARE BYTE CONSTANT gds__dpb_buffer_length		= 6
+	DECLARE BYTE CONSTANT gds__dpb_debug 			= 7
+	DECLARE BYTE CONSTANT gds__dpb_garbage_collect		= 8
+	DECLARE BYTE CONSTANT gds__dpb_verify 			= 9
+	DECLARE BYTE CONSTANT gds__dpb_sweep 			= 10
+	DECLARE BYTE CONSTANT gds__dpb_enable_journal		= 11
+	DECLARE BYTE CONSTANT gds__dpb_disable_journal		= 12
+	DECLARE BYTE CONSTANT gds__dpb_dbkey_scope		= 13
+	DECLARE BYTE CONSTANT gds__dpb_number_of_users		= 14
+	DECLARE BYTE CONSTANT gds__dpb_trace			= 15
+	DECLARE BYTE CONSTANT gds__dpb_no_garbage_collect	= 16
+	DECLARE BYTE CONSTANT gds__dpb_damaged			= 17
+	DECLARE BYTE CONSTANT gds__dpb_license			= 18
+	DECLARE BYTE CONSTANT gds__dpb_sys_user_name		= 19
+	DECLARE BYTE CONSTANT gds__dpb_encrypt_key		= 20
+	DECLARE BYTE CONSTANT gds__dpb_activate_shadow		= 21
+	DECLARE BYTE CONSTANT gds__dpb_sweep_interval		= 22
+	DECLARE BYTE CONSTANT gds__dpb_delete_shadow		= 23
+
+	DECLARE BYTE CONSTANT gds__dpb_pages			= 1
+	DECLARE BYTE CONSTANT gds__dpb_records			= 2
+	DECLARE BYTE CONSTANT gds__dpb_indices			= 4
+	DECLARE BYTE CONSTANT gds__dpb_transactions		= 8
+	DECLARE BYTE CONSTANT gds__dpb_no_update		= 16
+	DECLARE BYTE CONSTANT gds__dpb_repair			= 32
+	DECLARE BYTE CONSTANT gds__dpb_ignore			= 64
+
+! Bit assignments in RDB$SYSTEM_FLAG 
+
+	DECLARE BYTE CONSTANT RDB_system		= 1
+	DECLARE BYTE CONSTANT RDB_id_assigned		= 2
+
+! Transaction parameter blob stuff 
+
+	DECLARE BYTE CONSTANT gds__tpb_version1		= 1
+	DECLARE BYTE CONSTANT gds__tpb_version3		= 3
+	DECLARE BYTE CONSTANT gds__tpb_consistency	= 1
+	DECLARE BYTE CONSTANT gds__tpb_concurrency	= 2
+	DECLARE BYTE CONSTANT gds__tpb_shared		= 3
+	DECLARE BYTE CONSTANT gds__tpb_protected	= 4
+	DECLARE BYTE CONSTANT gds__tpb_exclusive	= 5
+	DECLARE BYTE CONSTANT gds__tpb_wait		= 6
+	DECLARE BYTE CONSTANT gds__tpb_nowait		= 7
+	DECLARE BYTE CONSTANT gds__tpb_read		= 8
+	DECLARE BYTE CONSTANT gds__tpb_write		= 9
+	DECLARE BYTE CONSTANT gds__tpb_lock_read	= 10
+	DECLARE BYTE CONSTANT gds__tpb_lock_write	= 11
+	DECLARE BYTE CONSTANT gds__tpb_verb_time	= 12
+	DECLARE BYTE CONSTANT gds__tpb_commit_time	= 13
+	DECLARE BYTE CONSTANT gds__tpb_ignore_limbo	= 14
+
+! Blob Parameter Block
+
+	DECLARE BYTE CONSTANT gds__bpb_version1		= 1
+	DECLARE BYTE CONSTANT gds__bpb_source_type	= 1
+	DECLARE BYTE CONSTANT gds__bpb_target_type	= 2
+	DECLARE BYTE CONSTANT gds__bpb_type		= 3
+
+	DECLARE BYTE CONSTANT gds__bpb_type_segmented	= 0
+	DECLARE BYTE CONSTANT gds__bpb_type_stream	= 1
+
+
+! Dynamic SQL datatypes 
+
+	DECLARE WORD CONSTANT SQL_TEXT		= 452
+	DECLARE WORD CONSTANT SQL_VARYING	= 448
+	DECLARE WORD CONSTANT SQL_SHORT		= 500
+	DECLARE WORD CONSTANT SQL_LONG		= 496
+	DECLARE WORD CONSTANT SQL_DOUBLE	= 480
+	DECLARE WORD CONSTANT SQL_D_FLOAT	= 530
+	DECLARE WORD CONSTANT SQL_FLOAT		= 482
+	DECLARE WORD CONSTANT SQL_DATE		= 510
+	DECLARE WORD CONSTANT SQL_BLOB		= 520
+
+! Forms Package definitions 
+
+! Map definition block definitions 
+
+	DECLARE BYTE CONSTANT PYXIS__MAP_VERSION1		= 1
+	DECLARE BYTE CONSTANT PYXIS__MAP_FIELD2			= 2
+	DECLARE BYTE CONSTANT PYXIS__MAP_FIELD1			= 3
+	DECLARE BYTE CONSTANT PYXIS__MAP_MESSAGE		= 4
+	DECLARE BYTE CONSTANT PYXIS__MAP_TERMINATOR		= 5
+	DECLARE BYTE CONSTANT PYXIS__MAP_TERMINATING_FIELD	= 6
+	DECLARE BYTE CONSTANT PYXIS__MAP_OPAQUE			= 7
+	DECLARE BYTE CONSTANT PYXIS__MAP_TRANSPARENT		= 8
+	DECLARE BYTE CONSTANT PYXIS__MAP_TAG			= 9
+	DECLARE BYTE CONSTANT PYXIS__MAP_SUB_FORM		= 10
+	DECLARE BYTE CONSTANT PYXIS__MAP_ITEM_INDEX		= 11
+	DECLARE BYTE CONSTANT PYXIS__MAP_SUB_FIELD		= 12
+	DECLARE BYTE CONSTANT PYXIS__MAP_END			= -1
+
+! Field option flags for display options 
+
+	DECLARE WORD CONSTANT PYXIS__OPT_DISPLAY	= 1
+	DECLARE WORD CONSTANT PYXIS__OPT_UPDATE		= 2
+	DECLARE WORD CONSTANT PYXIS__OPT_WAKEUP		= 4
+	DECLARE WORD CONSTANT PYXIS__OPT_POSITION	= 8
+
+! Field option values following display 
+
+	DECLARE WORD CONSTANT PYXIS__OPT_NULL		= 1
+	DECLARE WORD CONSTANT PYXIS__OPT_DEFAULT	= 2
+	DECLARE WORD CONSTANT PYXIS__OPT_INITIAL	= 3
+	DECLARE WORD CONSTANT PYXIS__OPT_USER_DATA	= 4
+
+! Pseudo key definitions 
+
+	DECLARE WORD CONSTANT PYXIS__KEY_DELETE		= 127
+	DECLARE WORD CONSTANT PYXIS__KEY_UP		= 128
+	DECLARE WORD CONSTANT PYXIS__KEY_DOWN		= 129
+	DECLARE WORD CONSTANT PYXIS__KEY_RIGHT		= 130
+	DECLARE WORD CONSTANT PYXIS__KEY_LEFT		= 131
+	DECLARE WORD CONSTANT PYXIS__KEY_PF1		= 132
+	DECLARE WORD CONSTANT PYXIS__KEY_PF2		= 133
+	DECLARE WORD CONSTANT PYXIS__KEY_PF3		= 134
+	DECLARE WORD CONSTANT PYXIS__KEY_PF4		= 135
+	DECLARE WORD CONSTANT PYXIS__KEY_PF5		= 136
+	DECLARE WORD CONSTANT PYXIS__KEY_PF6		= 137
+	DECLARE WORD CONSTANT PYXIS__KEY_PF7		= 138
+	DECLARE WORD CONSTANT PYXIS__KEY_PF8		= 139
+	DECLARE WORD CONSTANT PYXIS__KEY_PF9		= 140
+	DECLARE WORD CONSTANT PYXIS__KEY_ENTER		= 141
+	DECLARE WORD CONSTANT PYXIS__KEY_SCROLL_TOP	= 146
+	DECLARE WORD CONSTANT PYXIS__KEY_SCROLL_BOTTOM	= 147
+
+! Menu definition stuff 
+
+	DECLARE BYTE CONSTANT PYXIS__MENU_VERSION1	= 1
+	DECLARE BYTE CONSTANT PYXIS__MENU_LABEL		= 2
+	DECLARE BYTE CONSTANT PYXIS__MENU_ENTREE	= 3
+	DECLARE BYTE CONSTANT PYXIS__MENU_OPAQUE	= 4
+	DECLARE BYTE CONSTANT PYXIS__MENU_TRANSPARENT	= 5
+	DECLARE BYTE CONSTANT PYXIS__MENU_HORIZONTAL	= 6
+	DECLARE BYTE CONSTANT PYXIS__MENU_VERTICAL	= 7
+	DECLARE BYTE CONSTANT PYXIS__MENU_END		= -1
+
+
+	EXTERNAL LONG FUNCTION GDS__SQLCODE BY REF
+	EXTERNAL SUB GDS__ATTACH_DATABASE BY REF
+	EXTERNAL SUB GDS__CANCEL_BLOB BY REF
+        EXTERNAL SUB GDS__CANCEL_EVENTS BY REF
+	EXTERNAL SUB GDS__CLOSE_BLOB BY REF
+        EXTERNAL SUB GDS__COMMIT_RETAINING BY REF
+	EXTERNAL SUB GDS__COMMIT_TRANSACTION BY REF
+	EXTERNAL SUB GDS__COMPILE_REQUEST BY REF
+	EXTERNAL SUB GDS__CREATE_BLOB BY REF
+        EXTERNAL SUB GDS__CREATE_BLOB2 BY REF
+	EXTERNAL SUB GDS__CREATE_DATABASE BY REF
+	EXTERNAL SUB GDS__DETACH_DATABASE BY REF
+        EXTERNAL SUB GDS_EVENT_WAIT BY REF
+	EXTERNAL LONG FUNCTION GDS__GET_SEGMENT BY REF
+	EXTERNAL SUB GDS__OPEN_BLOB BY REF
+        EXTERNAL SUB GDS__OPEN_BLOB2 BY REF
+	EXTERNAL SUB GDS__PREPARE_TRANSACTION BY REF
+        EXTERNAL SUB GDS__PREPARE_TRANSACTION2 BY REF
+	EXTERNAL LONG FUNCTION GDS__PUT_SEGMENT BY REF
+        EXTERNAL SUB GDS__QUE_EVENTS BY REF
+	EXTERNAL SUB GDS__RECEIVE BY REF
+	EXTERNAL SUB GDS__RELEASE_REQUEST BY REF
+	EXTERNAL SUB GDS__ROLLBACK_TRANSACTION BY REF
+	EXTERNAL SUB GDS__SEND BY REF
+        EXTERNAL SUB gds__set_debug BY REF
+	EXTERNAL SUB GDS__START_AND_SEND BY REF
+	EXTERNAL SUB GDS__START_REQUEST BY REF
+	EXTERNAL SUB GDS__START_MULTIPLE BY REF
+	EXTERNAL SUB GDS__START_TRANSACTION BY REF
+	EXTERNAL SUB GDS__UNWIND_REQUEST BY REF
+	EXTERNAL SUB gds__print_status BY REF
+	EXTERNAL SUB gds__encode_date BY REF
+	EXTERNAL SUB gds__decode_date BY REF
+	EXTERNAL SUB blob__display BY REF
+	EXTERNAL SUB blob__dump BY REF
+	EXTERNAL SUB blob__edit BY REF
+	EXTERNAL SUB blob__load BY REF
+	EXTERNAL SUB gds__close BY REF
+	EXTERNAL SUB gds__declare BY REF
+	EXTERNAL SUB gds__describe BY REF
+	EXTERNAL SUB gds__dsql_finish BY REF
+	EXTERNAL SUB gds__execute BY REF
+	EXTERNAL SUB gds__execute_immediate BY REF
+	EXTERNAL LONG FUNCTION gds__fetch BY REF
+	EXTERNAL SUB gds__open BY REF
+	EXTERNAL SUB gds__prepare BY REF
+        EXTERNAL SUB gds__open_blob_filtered BY REF
+        EXTERNAL SUB gds__get_segment_filtered BY REF
+        EXTERNAL SUB gds__close_blob_filtered BY REF
+        EXTERNAL SUB gds__event_counts BY REF
+        EXTERNAL SUB gds__event_block BY REF
+        EXTERNAL SUB gds__get_slice BY REF
+        EXTERNAL SUB gds__put_slice BY REF
+        EXTERNAL SUB gds__seek_blob BY REF
+        EXTERNAL SUB gds__ddl BY REF
+	EXTERNAL SUB pyxis__compile_map BY REF
+	EXTERNAL SUB pyxis__compile_sub_map BY REF
+	EXTERNAL SUB pyxis__create_window BY REF
+	EXTERNAL SUB pyxis__delete_window BY REF
+	EXTERNAL SUB pyxis__drive_form BY REF
+	EXTERNAL SUB pyxis__fetch BY REF
+	EXTERNAL SUB pyxis__insert BY REF
+	EXTERNAL SUB pyxis__load_form BY REF
+	EXTERNAL WORD FUNCTION pyxis__menu BY REF
+	EXTERNAL SUB pyxis__pop_window BY REF
+	EXTERNAL SUB pyxis__reset_form BY REF
+	EXTERNAL SUB pyxis__drive_menu BY REF
+	EXTERNAL SUB pyxis__initialize_menu BY REF
+	EXTERNAL SUB pyxis__get_entree BY REF
+	EXTERNAL SUB pyxis__put_entree BY REF
+
+
diff --git a/src/jrd/gds.cpp b/src/jrd/gds.cpp
new file mode 100644
index 0000000000..34f0d691d5
--- /dev/null
+++ b/src/jrd/gds.cpp
@@ -0,0 +1,5008 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		gds.c
+ *	DESCRIPTION:	User callable routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#define IO_RETRY	20
+
+#ifdef SHLIB_DEFS
+#define LOCAL_SHLIB_DEFS
+#endif
+
+#define ISC_TIME_SECONDS_PRECISION		10000L
+#define ISC_TIME_SECONDS_PRECISION_SCALE	-4
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/common.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/file_params.h"
+#include "../jrd/msg_encode.h"
+#include "../jrd/iberr.h"
+#include "../jrd/gds_proto.h"
+
+#ifndef WIN_NT
+#include <sys/param.h>
+#endif
+
+#include <stdarg.h>
+#include "../jrd/time.h"
+#include "../jrd/misc.h"
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+#include <io.h>
+#endif
+
+#if defined(WIN_NT)
+#include <io.h>
+#endif
+
+#ifdef VMS
+#include <file.h>
+#include <ib_perror.h>
+#include <descrip.h>
+#include <types.h>
+#include <stat.h>
+#include <rmsdef.h>
+
+#else /* !VMS */
+
+#include <errno.h>
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#ifndef PC_PLATFORM
+#ifndef WIN_NT
+#include <sys/file.h>
+#endif
+#endif
+
+#ifndef O_RDWR
+#include <fcntl.h>
+#endif
+
+#ifdef UNIX
+#include <unistd.h>
+#ifdef SUPERSERVER
+#include <sys/mman.h>
+#include <sys/resource.h>
+#endif
+#endif
+
+#endif /* VMS */
+
+/* Turn on V4 mutex protection for gds__alloc/free */
+
+#ifdef WIN_NT
+#define V4_THREADING
+#endif
+
+#ifdef SOLARIS_MT
+#ifndef PIPE_LIBRARY
+#define V4_THREADING
+#endif
+#endif
+
+#ifdef SUPERSERVER
+#define V4_THREADING			/* RFM: 9/22/2000 fix from Inprise tree, 
+								   Inprise bug 114840 */
+#endif
+
+#ifdef SUPERSERVER
+static CONST TEXT gdslogid[] = " (Server)";
+#else
+#ifdef SUPERCLIENT
+static CONST TEXT gdslogid[] = " (Client)";
+#else
+static CONST TEXT gdslogid[] = "";
+#endif
+#endif
+
+#include "../jrd/sql_code.h"
+#include "../jrd/thd.h"
+#include "../jrd/codes.h"
+#include "../jrd/blr.h"
+#include "../jrd/msg.h"
+#include "../jrd/fil.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#ifndef REQUESTER
+#include "../jrd/isc_i_proto.h"
+#endif
+
+#ifdef WIN_NT
+#define _WINSOCKAPI_
+
+#include <windows.h>
+#include "thd_proto.h"
+#include "err_proto.h"
+
+#undef leave
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT		SCHAR
+
+/* TMN: 27 Jul 2000 - Macro redefinition warning removed */
+#ifdef MAXPATHLEN
+#undef MAXPATHLEN
+#endif /* MAXPATHLEN */
+
+#define MAXPATHLEN	MAX_PATH
+#endif /* WIN_NT */
+
+extern "C" {
+
+#ifdef sparc
+#ifndef SOLARIS
+extern int ib_printf();
+#endif
+#endif
+
+#if !(defined VMS || defined PC_PLATFORM || defined WIN_NT || defined linux || defined FREEBSD || defined NETBSD)
+extern int errno;
+extern SCHAR *sys_errlist[];
+extern int sys_nerr;
+#endif
+
+#ifdef NETWARE_386
+#include <conio.h>
+#define	PRINTF			ConsolePrintf
+#endif
+
+#ifndef PRINTF
+#define PRINTF 			ib_printf
+#endif
+
+static char *ib_prefix = 0;
+static char *ib_prefix_lock = 0;
+static char *ib_prefix_msg = 0;
+
+
+
+static CONST SCHAR *FAR_VARIABLE CONST messages[] = {
+#include "../jrd/msgs.h"
+	0							/* Null entry to terminate list */
+};
+
+#ifdef IMP
+typedef unsigned int mode_t;
+typedef int pid_t;
+#endif
+
+
+#ifdef M88K
+#define GETTIMEOFDAY(time,tz)	gettimeofday (time)
+#endif
+
+#ifndef GETTIMEOFDAY
+#define GETTIMEOFDAY(time,tz)	gettimeofday (time, tz)
+#define TIMEOFDAY_TZ
+#endif
+
+#ifdef NETWARE_386
+extern int regular_malloc;
+struct timezon {
+	int tz_minuteswest;
+	int tz_dsttime;
+};
+#endif
+
+#if (ALIGNMENT == 8)
+#define GDS_ALLOC_ALIGNMENT	8
+#else
+#define GDS_ALLOC_ALIGNMENT	4
+#endif
+#define ALLOC_ROUNDUP(n)		ROUNDUP ((n),GDS_ALLOC_ALIGNMENT)
+
+typedef struct free {
+	struct free *free_next;
+	SLONG free_length;
+#ifdef DEBUG_GDS_ALLOC
+	SLONG free_count;
+#endif
+} *FREE;
+
+
+#ifdef DEBUG_GDS_ALLOC
+
+#define DBG_MEM_FILE	"memory.dbg"
+
+#ifdef NETWARE_386
+#define	NEWLINE	"\r\n"
+#endif
+
+#ifndef NEWLINE
+#define NEWLINE "\n"
+#endif
+
+typedef struct alloc
+{
+	union
+	{
+		ULONG alloc_length;		/* aka block[0] */
+		struct free alloc_freed;
+	} alloc_status;
+	TEXT alloc_magic1[6];		/* set to ALLOC_HEADER1_MAGIC */
+	TEXT alloc_filename[30];	/* filename of caller */
+	ULONG alloc_lineno;			/* lineno   of caller */
+	ULONG alloc_requested_length;	/* requested len from caller */
+	ULONG alloc_flags;			/* Internal flags */
+	ULONG alloc_callno;			/* Which call to gds__alloc() */
+	struct alloc *alloc_next;	/* Next buffer in the chain */
+	TEXT alloc_magic2[8];		/* set to ALLOC_HEADER2_MAGIC */
+} *ALLOC;
+
+
+#define ALLOC_HEADER_SIZE 	ALLOC_ROUNDUP(sizeof (struct alloc))
+#define ALLOC_TAILER_SIZE	6
+
+#define ALLOC_HEADER1_MAGIC_ALLOCATED	"FBTAG"
+#define ALLOC_HEADER1_MAGIC_FREED	"FREED"
+#define ALLOC_HEADER2_MAGIC		"@START1#"
+#define ALLOC_TAILER_MAGIC		"END01"
+
+#define ALLOC_FREED_PATTERN		0xCB
+#define ALLOC_ALLOC_PATTERN		0xFD
+
+#define ALLOC_FREQUENCY			99	/* how often to validate memory */
+
+
+static ALLOC gds_alloc_chain = NULL;
+static ULONG gds_alloc_call_count = 0;
+static ULONG gds_alloc_state = ~0;
+static ULONG gds_alloc_nomem = ~0;
+static ULONG gds_free_call_count = 0;
+static ULONG gds_bug_alloc_count = 0;
+static ULONG gds_bug_free_count = 0;
+static struct alloc
+ *gds_alloc_watchpoint = NULL;	/* For SUN debugging */
+static ULONG gds_alloc_watch_call_count = 0;
+
+#define SAVE_DEBUG_INFO(b,f,l) {\
+	strncpy (((ALLOC) (b))->alloc_magic1, ALLOC_HEADER1_MAGIC_ALLOCATED, sizeof (((ALLOC) (b))->alloc_magic1)); \
+	strncpy (((ALLOC) (b))->alloc_magic2, ALLOC_HEADER2_MAGIC, sizeof (((ALLOC) (b))->alloc_magic2)); \
+	strncpy (((ALLOC) (b))->alloc_filename, f, sizeof (((ALLOC) (b))->alloc_filename)); \
+	((ALLOC) (b))->alloc_requested_length = size_request; \
+	((ALLOC) (b))->alloc_flags = 0; \
+	((ALLOC) (b))->alloc_lineno = l; \
+	((ALLOC) (b))->alloc_callno = gds_alloc_call_count; \
+	\
+	/* Link this block into the list of blocks */ \
+	((ALLOC) (b))->alloc_next = gds_alloc_chain; \
+	gds_alloc_chain = ((ALLOC) (b)); \
+	\
+	/* Set the "tailer" at the end of the allocated memory */ \
+	memcpy ( ((BLOB_PTR *) (b)) + ALLOC_HEADER_SIZE + size_request, \
+		ALLOC_TAILER_MAGIC, ALLOC_TAILER_SIZE); \
+	\
+	/* Initialize the allocated memory */ \
+	memset (((UCHAR *) (b)) + ALLOC_HEADER_SIZE, ALLOC_ALLOC_PATTERN, size_request); \
+	}
+
+static void		gds_alloc_validate(ALLOC);
+static BOOLEAN	gds_alloc_validate_free_pattern(UCHAR *, ULONG);
+static void		gds_alloc_validate_freed(ALLOC);
+static void		validate_memory(void);
+
+#endif
+
+#ifndef SAVE_DEBUG_INFO
+#define SAVE_DEBUG_INFO(b,f,l)
+#endif
+
+#ifndef ALLOC_HEADER_SIZE
+#define ALLOC_HEADER_SIZE 	ALLOC_ROUNDUP(sizeof (ULONG))
+#endif
+
+#ifndef ALLOC_TAILER_SIZE
+#define ALLOC_TAILER_SIZE	0
+#endif
+
+#define ALLOC_OVERHEAD		(ALLOC_HEADER_SIZE + ALLOC_TAILER_SIZE)
+
+#ifdef PC_PLATFORM
+#ifdef NETWARE_386
+#define GDS_ALLOC_EXTEND_SIZE	102400L
+#else
+#define GDS_ALLOC_EXTEND_SIZE	2048L
+#endif
+#endif
+
+#ifndef GDS_ALLOC_EXTEND_SIZE
+#ifdef SUPERCLIENT
+#define GDS_ALLOC_EXTEND_SIZE	8192
+#else
+#define GDS_ALLOC_EXTEND_SIZE	102400
+#endif
+#endif
+
+#ifndef FOPEN_APPEND_TYPE
+#define FOPEN_APPEND_TYPE	"a"
+#endif
+
+#ifndef O_BINARY
+#define O_BINARY		0
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN		1024
+#endif
+
+#ifndef GENERIC_SQLCODE
+#define GENERIC_SQLCODE		-999
+#endif
+
+static char ib_prefix_val[MAXPATHLEN];
+static char ib_prefix_lock_val[MAXPATHLEN];
+static char ib_prefix_msg_val[MAXPATHLEN];
+
+
+#ifndef INCLUDE_FB_TYPES_H
+#include "../include/fb_types.h"
+#endif
+
+
+typedef struct msg
+{
+	ULONG msg_top_tree;
+	int msg_file;
+	USHORT msg_bucket_size;
+	USHORT msg_levels;
+	SCHAR msg_bucket[1];
+} *MSG;
+
+typedef struct ctl
+{
+	UCHAR *ctl_blr;				/* Running blr string */
+	UCHAR *ctl_blr_start;		/* Original start of blr string */
+	void (*ctl_routine) ();		/* Call back */
+	SCHAR *ctl_user_arg;		/* User argument */
+	TEXT *ctl_ptr;
+	SSHORT ctl_language;
+	TEXT ctl_buffer[1024];
+} *CTL;
+
+#ifdef DEV_BUILD
+void GDS_breakpoint(int);
+#endif
+
+
+static void		blr_error(CTL, TEXT *, TEXT *);
+static void		blr_format(CTL, TEXT *, ...);
+static void		blr_indent(CTL, SSHORT);
+static void		blr_print_blr(CTL, UCHAR);
+static SCHAR	blr_print_byte(CTL);
+static int		blr_print_char(CTL);
+static void		blr_print_cond(CTL);
+static int		blr_print_dtype(CTL);
+static void		blr_print_join(CTL);
+static SLONG	blr_print_line(CTL, SSHORT);
+static void		blr_print_verb(CTL, SSHORT);
+static int		blr_print_word(CTL);
+
+static void		cleanup_malloced_memory(void *);
+static ULONG	free_memory(void *);
+static void		init(void);
+static int		yday(struct tm *);
+#if (defined SOLARIS && defined SUPERSERVER)
+static UCHAR*	mmap_anon(SLONG);
+#endif
+static void		ndate(SLONG, struct tm *);
+static GDS_DATE	nday(struct tm *);
+static void		sanitize(TEXT *);
+
+/* Generic cleanup handlers */
+
+typedef struct clean
+{
+	struct clean*	clean_next;
+	void			(*clean_routine)(void*);
+	void*			clean_arg;
+} *CLEAN;
+
+static CLEAN	cleanup_handlers = NULL;
+static FREE		pool = NULL;
+static void**	malloced_memory = NULL;
+static MSG		default_msg = NULL;
+static SLONG	initialized = FALSE;
+static MUTX_T	alloc_mutex;
+
+#ifdef DEV_BUILD
+SLONG gds_delta_alloc = 0, gds_max_alloc = 0;	/* Used in DBG_memory */
+#endif
+
+#ifdef UNIX
+static SLONG gds_pid = 0;
+#endif
+
+#if (defined SOLARIS && defined SUPERSERVER)
+static int anon_fd = -1;
+static int page_size = -1;
+#endif
+
+/* VMS structure to declare exit handler */
+
+#ifdef VMS
+static SLONG exit_status = 0;
+static struct
+{
+	SLONG link;
+	int (*exit_handler) ();
+	SLONG args;
+	SLONG arg[1];
+} exit_description;
+#endif
+
+
+
+#ifdef SHLIB_DEFS
+#define SETJMP		(*_libgds_setjmp)
+#define sprintf		(*_libgds_sprintf)
+#define vsprintf	(*_libgds_vsprintf)
+#define strlen		(*_libgds_strlen)
+#define strcpy		(*_libgds_strcpy)
+#define LONGJMP		(*_libgds_longjmp)
+#define _iob		(*_libgds__iob)
+#define getpid		(*_libgds_getpid)
+#define ib_fprintf	(*_libgds_fprintf)
+#define ib_printf	(*_libgds_printf)
+#define ib_fopen	(*_libgds_fopen)
+#define ib_fclose	(*_libgds_fclose)
+#define sys_nerr	(*_libgds_sys_nerr)
+#define sys_errlist	(*_libgds_sys_errlist)
+#define malloc		(*_libgds_malloc)
+#define gettimeofday(*_libgds_gettimeofday)
+#define ctime		(*_libgds_ctime)
+#define getenv		(*_libgds_getenv)
+#define lseek		(*_libgds_lseek)
+#define read		(*_libgds_read)
+#define memcpy		(*_libgds_memcpy)
+#define open		(*_libgds_open)
+#define strcat		(*_libgds_strcat)
+#define ib_fputs	(*_libgds_fputs)
+#define ib_fputc	(*_libgds_fputc)
+#define mktemp		(*_libgds_mktemp)
+#define unlink		(*_libgds_unlink)
+#define close		(*_libgds_close)
+#define strncmp		(*_libgds_strncmp)
+#define time		(*_libgds_time)
+#define ib_fflush	(*_libgds_fflush)
+#define errno		(*_libgds_errno)
+#define umask		(*_libgds_umask)
+#define atexit		(*_libgds_atexit)
+#define ib_vfprintf	(*_libgds_vfprintf)
+
+extern int SETJMP();
+extern int sprintf();
+extern int vsprintf();
+extern int strlen();
+extern SCHAR *strcpy();
+extern void LONGJMP();
+extern IB_FILE _iob[];
+extern pid_t getpid();
+extern int ib_fprintf();
+extern int ib_printf();
+extern IB_FILE *ib_fopen();
+extern int ib_fclose();
+extern int sys_nerr;
+extern SCHAR *sys_errlist[];
+extern void *malloc();
+extern int gettimeofday();
+extern SCHAR *ctime();
+extern SCHAR *getenv();
+extern off_t lseek();
+extern int read();
+extern void *memcpy();
+extern int open();
+extern SCHAR *strcat();
+extern int ib_fputs();
+extern int ib_fputc();
+extern SCHAR *mktemp();
+extern int unlink();
+extern int close();
+extern int strncmp();
+extern time_t time();
+extern int ib_fflush();
+extern int errno;
+extern mode_t umask();
+extern int atexit();
+extern int ib_vfprintf();
+#endif /* SHLIB_DEFS */
+
+
+/* BLR Pretty print stuff */
+
+#ifndef JMP_BUF
+error JMP_BUF not defined !
+#else /* JMP_BUF */
+static JMP_BUF env;				/* Error return environment */
+#endif /* JMP_BUF */
+
+#define PRINT_VERB 	blr_print_verb (control, level)
+#define PRINT_LINE	blr_print_line (control, (SSHORT) offset)
+#define PRINT_BYTE	blr_print_byte (control)
+#define PRINT_CHAR	blr_print_char (control)
+#define PRINT_WORD	blr_print_word (control)
+#define PRINT_COND	blr_print_cond (control)
+#define PRINT_DTYPE	blr_print_dtype (control)
+#define PRINT_JOIN	blr_print_join (control)
+#define BLR_BYTE	*(control->ctl_blr)++
+#define PUT_BYTE(byte)	*(control->ctl_ptr)++ = byte
+
+#define op_line		 1
+#define op_verb		 2
+#define op_byte		 3
+#define op_word		 4
+#define op_pad		 5
+#define op_dtype	 6
+#define op_message	 7
+#define op_literal	 8
+#define op_begin	 9
+#define op_map		 10
+#define op_args		 11
+#define op_union	 12
+#define op_indent	 13
+#define op_join		 14
+#define op_parameters	 15
+#define op_error_handler 16
+#define op_set_error	 17
+#define op_literals	 18
+#define op_relation	 20
+
+static const UCHAR
+	/* generic print formats */
+	zero[] = { op_line, 0 },
+	one[] = { op_line, op_verb, 0},
+	two[] = { op_line, op_verb, op_verb, 0},
+	three[] = { op_line, op_verb, op_verb, op_verb, 0},
+	field[] = { op_byte, op_byte, op_literal, op_pad, op_line, 0},
+	byte[] = { op_byte, op_line, 0},
+	byte_args[] = { op_byte, op_line, op_args, 0},
+	byte_byte[] = { op_byte, op_byte, op_line, 0},
+	byte_verb[] = { op_byte, op_line, op_verb, 0},
+	byte_verb_verb[] = { op_byte, op_line, op_verb, op_verb, 0},
+	byte_literal[] = { op_byte, op_literal, op_line, 0},
+	byte_byte_verb[] = { op_byte, op_byte, op_line, op_verb, 0},
+	parm[] = { op_byte, op_word, op_line, 0},	/* also field id */
+
+	parm2[] = { op_byte, op_word, op_word, op_line, 0},
+	parm3[] = { op_byte, op_word, op_word, op_word, op_line, 0},
+
+	/* formats specific to a verb */
+	begin[] = { op_line, op_begin, op_verb, 0},
+	literal[] = { op_dtype, op_literal, op_line, 0},
+	message[] = { op_byte, op_word, op_line, op_message, 0},
+	rse[] = { op_byte, op_line, op_begin, op_verb, 0},
+	relation[] = { op_byte, op_literal, op_pad, op_byte, op_line, 0},
+	relation2[] = { op_byte, op_literal, op_line, op_indent, op_byte, op_literal, op_pad,
+		op_byte, op_line, 0},
+		aggregate[] = { op_byte, op_line, op_verb, op_verb, op_verb, 0},
+	rid[] = { op_word, op_byte, op_line, 0},
+	rid2[] = { op_word, op_byte, op_literal, op_pad, op_byte, op_line, 0},
+	union_ops[] = { op_byte, op_byte, op_line, op_union, 0},
+	map[] = { op_word, op_line, op_map, 0},
+	function[] = { op_byte, op_literal, op_byte, op_line, op_args, 0},
+	gen_id[] = { op_byte, op_literal, op_line, op_verb, 0},
+	declare[] = { op_word, op_dtype, op_line, 0},
+	variable[] = { op_word, op_line, 0},
+	indx[] = { op_line, op_verb, op_indent, op_byte, op_line, op_args, 0},
+	find[] = { op_byte, op_verb, op_verb, op_indent, op_byte, op_line, op_args, 0},
+	seek[] = { op_line, op_verb, op_verb, 0},
+	join[] = { op_join, op_line, 0},
+	exec_proc[] = { op_byte, op_literal, op_line, op_indent, op_word, op_line, op_parameters,
+		op_indent, op_word, op_line, op_parameters, 0},
+	procedure[] = {  op_byte, op_literal, op_pad, op_byte, op_line, op_indent, op_word,
+		op_line, op_parameters, 0},
+	pid[] = { op_word, op_pad, op_byte, op_line, op_indent, op_word, op_line,
+		op_parameters, 0},
+	error_handler[] = { op_word, op_line, op_error_handler, 0},
+	set_error[] = { op_set_error, op_line, 0},
+	cast[] = { op_dtype, op_line, op_verb, 0},
+	indices[] = { op_byte, op_line, op_literals, 0},
+	lock_relation[] = { op_line, op_indent, op_relation, op_line, op_verb, 0},
+	range_relation[] = { op_line, op_verb, op_indent, op_relation, op_line, 0},
+	extract[] = { op_line, op_byte, op_verb, 0};
+
+static const struct
+{
+	const char *blr_string;
+	const UCHAR *blr_operators;
+} FAR_VARIABLE blr_table[] = {
+#include "../jrd/blp.h"
+	0, 0
+};
+
+
+#define ISC_ENV		"INTERBASE"
+#define ISC_LOCK_ENV    "INTERBASE_LOCK"
+#define ISC_MSG_ENV     "INTERBASE_MSG"
+
+#ifdef WIN_NT
+#define EXPAND_PATH(relative, absolute)		_fullpath(absolute, relative, MAXPATHLEN)
+#define COMPARE_PATH(a,b)			_stricmp(a,b)
+#else
+#define EXPAND_PATH(relative, absolute)		realpath(relative, absolute)
+#define COMPARE_PATH(a,b)			strcmp(a,b)
+#endif
+
+
+/* This is duplicated from gds.h */
+
+#define blr_gds_code			0
+#define blr_sql_code			1
+#define blr_exception			2
+#define blr_trigger_code		3
+#define blr_default_code		4
+
+#define gds__bpb_version1		1
+#define gds__bpb_source_type	1
+#define gds__bpb_target_type	2
+#define gds__bpb_type			3
+#define gds__bpb_source_interp  4
+#define gds__bpb_target_interp  5
+
+#define gds__bpb_type_segmented	0
+#define gds__bpb_type_stream	1
+
+#ifdef SUPERSERVER
+extern SLONG allr_delta_alloc;
+extern SLONG alld_delta_alloc;
+extern SLONG all_delta_alloc;
+SLONG trace_pools = 0;
+SLONG free_map_debug = 0;
+static void freemap(int cod);
+void gds_print_delta_counters(IB_FILE *);
+#endif
+
+
+
+
+#ifdef DEBUG_GDS_ALLOC
+
+UCHAR *API_ROUTINE gds__alloc_debug(
+									SLONG size_request,
+									TEXT * filename, ULONG lineno)
+#else
+
+UCHAR *API_ROUTINE gds__alloc(SLONG size_request)
+#endif
+{
+/**************************************
+ *
+ *	g d s _ $ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block of memory.
+ *
+ **************************************/
+	SLONG *block = NULL;
+	SLONG size;
+	ULONG factor;
+	FREE *next, *best, free_blk;
+	SLONG tail, best_tail = 0;
+
+#ifdef VMS
+	SLONG status;
+#endif
+
+	if (size_request <= 0) {
+		DEV_REPORT("gds__alloc: non-positive size allocation request\n");	/* TXNN */
+		BREAKPOINT(__LINE__);
+		return NULL;
+	}
+
+	if (!initialized)
+		init();
+
+
+#ifdef DEBUG_GDS_ALLOC
+	gds_alloc_call_count++;
+	if (gds_alloc_call_count == gds_bug_alloc_count) {
+		PRINTF("gds_alloc() call %ld reached\n", gds_bug_alloc_count);
+		BREAKPOINT(__LINE__);
+	}
+
+/* If we want to validate all memory on each call, do so now */
+	if ((gds_alloc_state < gds_alloc_call_count) ||
+		(gds_bug_alloc_count && (gds_bug_alloc_count < gds_alloc_call_count))
+		|| ((gds_alloc_call_count % ALLOC_FREQUENCY) == 0)) {
+		V4_MUTEX_LOCK(&alloc_mutex);
+		gds_alloc_report(ALLOC_silent, __FILE__, __LINE__);
+		V4_MUTEX_UNLOCK(&alloc_mutex);
+	}
+
+/* Simulate out of memory */
+	if (gds_alloc_nomem <= gds_alloc_call_count)
+		return NULL;
+#endif
+
+/* Add the size of malloc overhead to the block, and then
+ * round up the block size according to the desired alignment
+ * for the platform
+ * Make sure that for a multiple of 1K allocate ALLOC_OVERHEAD 
+ * times the multiple. This ensures that on freeing and subsequent
+ * re-allocating we don't fragment the free memory list
+*/
+	factor = 1;
+	if (!(size_request & (1024 - 1)))
+		factor = size_request / 1024;
+	size = size_request + ALLOC_OVERHEAD * factor;
+	size = ROUNDUP(size, GDS_ALLOC_ALIGNMENT);
+#ifdef DEV_BUILD
+	gds_delta_alloc += size;
+#endif
+
+#ifdef NETWARE_386
+	if (regular_malloc)
+	{
+		block = (SLONG *) malloc(size);
+		if (!block)
+		{
+			ib_perror("gds__alloc()");
+			return NULL;
+		}
+
+		block[0] = size;
+		SAVE_DEBUG_INFO(block, filename, lineno);
+		return (UCHAR *) block + ALLOC_HEADER_SIZE;
+	}
+#endif
+
+	V4_MUTEX_LOCK(&alloc_mutex);
+
+/* Find the free block with the shortest tail */
+
+	best = NULL;
+
+	for (next = &pool; (free_blk = *next) != NULL; next = &(*next)->free_next)
+	{
+		if (free_blk->free_length <= 0 ||
+			(free_blk->free_next
+			 && (UCHAR HUGE_PTR *) free_blk + free_blk->free_length >
+			 (UCHAR HUGE_PTR *) free_blk->free_next))
+		{
+			DEV_REPORT("gds__alloc: memory pool corrupted\n");	/* TXNN */
+			BREAKPOINT(__LINE__);
+			*next = NULL;
+			break;
+		}
+		if ((tail = free_blk->free_length - size) >= 0)
+		{
+			if (!best || tail < best_tail)
+			{
+				best = next;
+				if (!(best_tail = tail))
+					break;
+			}
+		}
+	}
+
+/* If there was a fit, return the block */
+
+	if (best)
+	{
+		if (best_tail <= sizeof(struct free) + ALLOC_OVERHEAD)
+		{
+			/* There's only a little left over, give client the whole chunk */
+			size = (*best)->free_length;
+			block = (SLONG *) * best;
+			*best = (*best)->free_next;
+#ifdef DEBUG_GDS_ALLOC
+			/* We're going to give some memory off the free list - before doing
+			 * so, let's make sure it still looks like free memory.
+			 */
+			gds_alloc_validate_freed((ALLOC) block);
+#endif /* DEBUG_GDS_ALLOC */
+		}
+		else
+		{
+			/* Shave off what we need from the end of the free chunk */
+			block = (SLONG *) ((UCHAR *) * best + best_tail);
+			(*best)->free_length -= size;
+#ifdef DEBUG_GDS_ALLOC
+			/* We're going to give some memory off the free list - before doing
+			 * so, let's make sure it still looks like free memory.
+			 */
+			(void) gds_alloc_validate_free_pattern((UCHAR *) block, (ULONG) size);
+#endif /* DEBUG_GDS_ALLOC */
+		}
+		block[0] = size;
+
+		SAVE_DEBUG_INFO(block, filename, lineno);
+
+		V4_MUTEX_UNLOCK(&alloc_mutex);
+		return (UCHAR *) block + ALLOC_HEADER_SIZE;
+	}
+
+/* We need to extend the address space.  Do so in multiples of the
+ * extend quantity, release the extra, and return the block.
+ * If we can't get a multiple of the extend size, try again using
+ * the minimal amount of memory needed before returning "out of memory".
+ * The minimal amount must include the malloc/free overhead amounts.
+ */
+
+	tail = (((size + sizeof(struct free) + ALLOC_ROUNDUP(sizeof(void *)) +
+			  ALLOC_OVERHEAD) / GDS_ALLOC_EXTEND_SIZE) +
+			1) * GDS_ALLOC_EXTEND_SIZE;
+
+#ifdef VMS
+	status = lib$get_vm(&tail, &block);
+	if (!(status & 1))
+	{
+		tail = (size + sizeof(struct free) +
+				ALLOC_ROUNDUP(sizeof(void *)) + ALLOC_OVERHEAD);
+		status = lib$get_vm(&tail, &block);
+		if (!(status & 1))
+		{
+			V4_MUTEX_UNLOCK(&alloc_mutex);
+			return NULL;
+		}
+	}
+#define MEMORY_ALLOCATED
+#endif
+
+#ifndef MEMORY_ALLOCATED
+	if ((block = (SLONG *) malloc(tail)) == NULL)
+	{
+		tail = (size + sizeof(struct free) +
+				ALLOC_ROUNDUP(sizeof(void *)) + ALLOC_OVERHEAD);
+		if ((block = (SLONG *) malloc(tail)) == NULL)
+		{
+			V4_MUTEX_UNLOCK(&alloc_mutex);
+			return NULL;
+		}
+	}
+#endif
+#undef MEMORY_ALLOCATED
+
+/* Insert the allocated block into a simple linked list */
+
+	*((void **) block) = (void *) malloced_memory;
+	malloced_memory = (void **) block;
+	block = (SLONG *) ((UCHAR *) block + ALLOC_ROUNDUP(sizeof(void *)));
+
+#ifdef DEV_BUILD
+	gds_max_alloc += tail;
+#endif
+
+	tail -= size + ALLOC_ROUNDUP(sizeof(void *));
+
+#ifdef DEV_BUILD
+	gds_delta_alloc += tail;
+#endif
+
+#ifdef DEBUG_GDS_ALLOC
+	memset((UCHAR *) block, ALLOC_FREED_PATTERN, tail);
+#endif
+
+	block[0] = tail;
+	(void) free_memory((SLONG *) ((UCHAR *) block + ALLOC_HEADER_SIZE));
+
+#ifdef SUPERSERVER
+	if (free_map_debug)
+		freemap(0);
+#endif
+
+
+	block = (SLONG *) ((UCHAR *) block + tail);
+	block[0] = size;
+
+	SAVE_DEBUG_INFO(block, filename, lineno);
+
+	V4_MUTEX_UNLOCK(&alloc_mutex);
+	return (UCHAR *) block + ALLOC_HEADER_SIZE;
+}
+
+
+STATUS API_ROUTINE gds__decode(STATUS code, USHORT * fac, USHORT * class_)
+{
+/**************************************
+ *
+ *	g d s _ $ d e c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a status codes from system dependent form to
+ *	network form.
+ *
+ **************************************/
+
+	if (!code)
+		return SUCCESS;
+	else if (code & ISC_MASK != ISC_MASK)
+		/* not an ISC error message */
+		return code;
+
+	*fac = GET_FACILITY(code);
+	*class_ = GET_CLASS(code);
+	return GET_CODE(code);
+
+}
+
+
+void API_ROUTINE isc_decode_date(GDS_QUAD * date, void *times_arg)
+{
+/**************************************
+ *
+ *	i s c _ d e c o d e _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from internal timestamp format to UNIX time structure.
+ *
+ *	Note: this API is historical - the prefered entrypoint is
+ *	isc_decode_timestamp
+ *
+ **************************************/
+	isc_decode_timestamp((GDS_TIMESTAMP *) date, times_arg);
+}
+
+
+void API_ROUTINE isc_decode_sql_date(GDS_DATE * date, void *times_arg)
+{
+/**************************************
+ *
+ *	i s c _ d e c o d e _ s q l _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from internal DATE format to UNIX time structure.
+ *
+ **************************************/
+	struct tm *times;
+
+	times = (struct tm *) times_arg;
+	memset(times, 0, sizeof(*times));
+
+	ndate(*date, times);
+	times->tm_yday = yday(times);
+	if ((times->tm_wday = (*date + 3) % 7) < 0)
+		times->tm_wday += 7;
+}
+
+
+void API_ROUTINE isc_decode_sql_time(GDS_TIME * sql_time, void *times_arg)
+{
+/**************************************
+ *
+ *	i s c _ d e c o d e _ s q l _ t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from internal TIME format to UNIX time structure.
+ *
+ **************************************/
+	ULONG minutes;
+	struct tm *times;
+
+	times = (struct tm *) times_arg;
+	memset(times, 0, sizeof(*times));
+
+	minutes = *sql_time / (ISC_TIME_SECONDS_PRECISION * 60);
+	times->tm_hour = minutes / 60;
+	times->tm_min = minutes % 60;
+	times->tm_sec = (*sql_time / ISC_TIME_SECONDS_PRECISION) % 60;
+}
+
+
+void API_ROUTINE isc_decode_timestamp(GDS_TIMESTAMP * date, void *times_arg)
+{
+/**************************************
+ *
+ *	i s c _ d e c o d e _ t i m e s t a m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from internal timestamp format to UNIX time structure.
+ *
+ *	Note: the date arguement is really an ISC_TIMESTAMP -- however the
+ *	definition of ISC_TIMESTAMP is not available from all the source
+ *	modules that need to use isc_encode_timestamp
+ *
+ **************************************/
+	SLONG minutes;
+	struct tm *times;
+
+	times = (struct tm *) times_arg;
+	memset(times, 0, sizeof(*times));
+
+	ndate(date->timestamp_date, times);
+	times->tm_yday = yday(times);
+	if ((times->tm_wday = (date->timestamp_date + 3) % 7) < 0)
+		times->tm_wday += 7;
+
+	minutes = date->timestamp_time / (ISC_TIME_SECONDS_PRECISION * 60);
+	times->tm_hour = minutes / 60;
+	times->tm_min = minutes % 60;
+	times->tm_sec = (date->timestamp_time / ISC_TIME_SECONDS_PRECISION) % 60;
+}
+
+
+STATUS API_ROUTINE gds__encode(STATUS code, USHORT facility)
+{
+/**************************************
+ *
+ *	g d s _ $ e n c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a status codes from network format to system
+ *	dependent form.
+ *
+ **************************************/
+
+	if (!code)
+		return SUCCESS;
+
+	return ENCODE_ISC_MSG(code, facility);
+}
+
+
+void API_ROUTINE isc_encode_date(void *times_arg, GDS_QUAD * date)
+{
+/**************************************
+ *
+ *	i s c _ e n c o d e _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from UNIX time structure to internal timestamp format.
+ *
+ *	Note: This API is historical -- the prefered entrypoint is
+ *	isc_encode_timestamp
+ *
+ **************************************/
+	isc_encode_timestamp(times_arg, (GDS_TIMESTAMP *) date);
+}
+
+
+void API_ROUTINE isc_encode_sql_date(void *times_arg, GDS_DATE * date)
+{
+/**************************************
+ *
+ *	i s c _ e n c o d e _ s q l _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from UNIX time structure to internal date format.
+ *
+ **************************************/
+
+	*date = nday((struct tm *) times_arg);
+}
+
+
+void API_ROUTINE isc_encode_sql_time(void *times_arg, GDS_TIME * isc_time)
+{
+/**************************************
+ *
+ *	i s c _ e n c o d e _ s q l _ t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from UNIX time structure to internal TIME format.
+ *
+ **************************************/
+	struct tm *times;
+
+	times = (struct tm *) times_arg;
+	*isc_time = ((times->tm_hour * 60 + times->tm_min) * 60 +
+				 times->tm_sec) * ISC_TIME_SECONDS_PRECISION;
+}
+
+
+void API_ROUTINE isc_encode_timestamp(void *times_arg, GDS_TIMESTAMP * date)
+{
+/**************************************
+ *
+ *	i s c _ e n c o d e _ t i m e s t a m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from UNIX time structure to internal timestamp format.
+ *
+ *	Note: the date arguement is really an ISC_TIMESTAMP -- however the
+ *	definition of ISC_TIMESTAMP is not available from all the source
+ *	modules that need to use isc_encode_timestamp
+ *
+ **************************************/
+	struct tm *times;
+
+	times = (struct tm *) times_arg;
+
+	date->timestamp_date = nday(times);
+	date->timestamp_time =
+		((times->tm_hour * 60 + times->tm_min) * 60 +
+		 times->tm_sec) * ISC_TIME_SECONDS_PRECISION;
+}
+
+
+ULONG API_ROUTINE gds__free(void *blk)
+{
+/**************************************
+ *
+ *	g d s _ $ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block allocated by gds__alloc.  Return number
+ *	of bytes released. Called under mutex protection.
+ *
+ **************************************/
+	ULONG released;
+
+	V4_MUTEX_LOCK(&alloc_mutex);
+
+#ifdef DEBUG_GDS_ALLOC
+	gds_free_call_count++;
+	if (!blk) {
+		DEV_REPORT("gds__free: tried to release NULL\n");
+		BREAKPOINT(__LINE__);
+	}
+	else
+	{
+		ALLOC alloc, *p;
+		BOOLEAN found = FALSE;
+		ULONG save_length;
+
+		alloc = (ALLOC) (((char *) blk) - ALLOC_HEADER_SIZE);
+
+		for (p = &gds_alloc_chain; *p; p = &((*p)->alloc_next))
+		{
+			if (*p == alloc)
+			{
+				found++;
+				*p = (*p)->alloc_next;
+				break;
+			}
+		}
+		if (!found)
+		{
+			DEV_REPORT("gds__free: Tried to free unallocated block\n");
+			BREAKPOINT(__LINE__);
+		}
+		else {
+			/* Always validate the buffer we're about to free */
+			gds_alloc_validate(alloc);
+
+			/* If we want to validate all memory on each call, do so now */
+			if (gds_alloc_state < gds_alloc_call_count)
+				gds_alloc_report(ALLOC_silent, __FILE__, __LINE__);
+
+			/* Now zap the contents of the freed block - including the debug
+			 * information as it is difficult to distinguish blocks freed
+			 * by the suballocater vs blocks freed from a client
+			 */
+			strncpy(alloc->alloc_magic1, ALLOC_HEADER1_MAGIC_FREED,
+					sizeof(alloc->alloc_magic1));
+
+			save_length = alloc->alloc_status.alloc_length;
+			memset(alloc, ALLOC_FREED_PATTERN, save_length);
+			alloc->alloc_status.alloc_length = save_length;;
+		}
+	};
+#endif
+
+	released = free_memory(blk);
+	blk = NULL;
+	V4_MUTEX_UNLOCK(&alloc_mutex);
+	return released;
+}
+
+
+#ifdef DEV_BUILD
+
+void GDS_breakpoint(int parameter)
+{
+/**************************************
+ *
+ *	G D S _ b r e a k p o i n t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Just a handy place to put a debugger breakpoint
+ *	Calls to this can then be embedded for DEV_BUILD
+ *	using the BREAKPOINT(x) macro.
+ *
+ **************************************/
+#ifdef NETWARE_386
+	Breakpoint(parameter);
+#endif
+
+/* Put a breakpoint here via the debugger */
+}
+#endif
+
+
+SINT64 API_ROUTINE isc_portable_integer(UCHAR * ptr, SSHORT length)
+{
+/**************************************
+ *
+ *	i s c _ p o r t a b l e _ i n t e g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up (and convert) a Little Endian (VAX) style integer 
+ *      of length 1, 2, 4 or 8 bytes to local system's Endian format.
+ *
+ *   various parameter blocks (i.e., dpb, tpb, spb) flatten out multibyte
+ *   values into little endian byte ordering before network transmission.
+ *   programs need to use this function in order to get the correct value
+ *   of the integer in the correct Endian format.
+ *
+ * **Note**
+ *
+ *   This function is similar to gds__vax_integer() in functionality.
+ *   The difference is in the return type. Changed from SLONG to SINT64
+ *   Since gds__vax_integer() is a public API routine, it could not be
+ *   changed. This function has been made public so gbak can use it.
+ *
+ **************************************/
+	SINT64 value;
+	SSHORT shift;
+
+	assert(length <= 8);
+	value = shift = 0;
+
+	while (--length >= 0) {
+		value += ((SINT64) * ptr++) << shift;
+		shift += 8;
+	}
+
+	return value;
+}
+
+
+#ifdef DEBUG_GDS_ALLOC
+
+static void validate_memory(void)
+{
+/**************************************
+ *
+ *	v a l i d a t e _ m e m o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Utility function to call from the debugger, which sometimes
+ *	doesn't like passing parameters.
+ *
+ **************************************/
+	gds_alloc_report(ALLOC_silent, "from debugger", 0);
+}
+#endif
+
+
+#ifdef DEBUG_GDS_ALLOC
+
+static void gds_alloc_validate(ALLOC p)
+{
+/**************************************
+ *
+ *	g d s _ a l l o c _ v a l i d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Test a memory buffer to see if it appears intact.
+ *
+ **************************************/
+	USHORT errors = 0;
+
+/* This might be a garbage pointer, so try and validate it first */
+
+	if (!p) {
+		errors++;
+		DEV_REPORT("gds_alloc_validate: pointer doesn't look right\n");
+	}
+
+	if (!errors
+		&& strncmp(p->alloc_magic1, ALLOC_HEADER1_MAGIC_ALLOCATED,
+				   sizeof(p->alloc_magic1))) {
+		errors++;
+		DEV_REPORT("gds_alloc_validate: Header marker1 mismatch\n");
+	}
+
+	if (!errors
+		&& strncmp(p->alloc_magic2, ALLOC_HEADER2_MAGIC,
+				   sizeof(p->alloc_magic2))) {
+		errors++;
+		DEV_REPORT("gds_alloc_validate: Header marker2 mismatch\n");
+	}
+
+	if (!errors
+		&& memcmp(((BLOB_PTR *) p) + ALLOC_HEADER_SIZE +
+				  p->alloc_requested_length, ALLOC_TAILER_MAGIC,
+				  ALLOC_TAILER_SIZE)) {
+		errors++;
+		DEV_REPORT("gds_alloc_validate: tailer marker mismatch\n");
+	}
+
+	if (!errors && p->alloc_status.alloc_length < p->alloc_requested_length) {
+		errors++;
+		DEV_REPORT
+			("gds_alloc_validate: Header has been trashed (smaller than req)\n");
+	}
+
+	if (!errors && p->alloc_status.alloc_length < ALLOC_OVERHEAD) {
+		errors++;
+		DEV_REPORT
+			("gds_alloc_validate: Header has been trashed (smaller than min)\n");
+	}
+
+	if (errors) {
+		char buffer[150];
+		sprintf(buffer,
+				"gds_alloc_validate: %lx len=%5ld file=%15.30s line=%4ld call=%ld alloc=%ld free=%ld%s",
+				p,
+				p->alloc_requested_length,
+				p->alloc_filename,
+				p->alloc_lineno,
+				p->alloc_callno,
+				gds_alloc_call_count, gds_free_call_count, NEWLINE);
+		DEV_REPORT(buffer);
+		BREAKPOINT(__LINE__);
+	}
+}
+#endif
+
+
+#ifdef DEBUG_GDS_ALLOC
+static BOOLEAN gds_alloc_validate_free_pattern(
+											   register UCHAR * ptr,
+											   register ULONG len)
+{
+/**************************************
+ *
+ *	g d s _ a l l o c _ v a l i d a t e _ f r e e _ p a t t e r n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk a chunk of memory to see if it is all the same
+ *	"color", eg: freed.
+ *
+ *	Return TRUE if the memory looks OK, FALSE if it has
+ *	been clobbered.
+ *
+ **************************************/
+	while (len--)
+		if (*ptr++ != ALLOC_FREED_PATTERN) {
+			char buffer[100];
+			sprintf(buffer,
+					"gds_alloc_validate_free_pattern: Write to freed memory at %lx\n",
+					(ptr - 1));
+			DEV_REPORT(buffer);
+			BREAKPOINT(__LINE__);
+			return FALSE;
+		}
+
+	return TRUE;
+}
+#endif /* DEBUG_GDS_ALLOC */
+
+
+#ifdef DEBUG_GDS_ALLOC
+static void gds_alloc_validate_freed(ALLOC p)
+{
+/**************************************
+ *
+ *	g d s _ a l l o c _ v a l i d a t e _ f r e e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Test a memory buffer to see if it appears freed.
+ *
+ **************************************/
+	USHORT errors = 0;
+
+/* This might be a garbage pointer, so try and validate it first */
+
+	if (!p) {
+		errors++;
+		DEV_REPORT("gds_alloc_validate_freed: pointer doesn't look right\n");
+	}
+
+/* Now look at the space, is it all the same pattern? */
+	if (!errors) {
+		register UCHAR *ptr;
+		register ULONG len;
+		ptr = ((UCHAR *) p) + sizeof(struct free);
+		len = p->alloc_status.alloc_freed.free_length - sizeof(struct free);
+		if (!gds_alloc_validate_free_pattern(ptr, len))
+			errors++;
+	}
+
+	if (errors) {
+		char buffer[150];
+		sprintf(buffer,
+				"gds_alloc_validate_freed: %lx len=%5ld alloc=%ld free=%ld%s",
+				p,
+				p->alloc_status.alloc_freed.free_length,
+				gds_alloc_call_count, gds_free_call_count, NEWLINE);
+		DEV_REPORT(buffer);
+		BREAKPOINT(__LINE__);
+	}
+}
+#endif
+
+
+#ifdef DEBUG_GDS_ALLOC
+
+void gds_alloc_watch(void *p)
+{
+/**************************************
+ *
+ *	g d s _ a l l o c _ w a t c h 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start watching a memory location.
+ *
+ **************************************/
+
+	gds_alloc_watch_call_count++;
+
+/* Do we have a new place to watch?  If so, set our watcher */
+	if (p) {
+		gds_alloc_watchpoint = (ALLOC) ((UCHAR *) p - ALLOC_HEADER_SIZE);
+		gds_alloc_watch_call_count = 1;
+	}
+
+/* If we have a watchpoint, check that it's still valid */
+	if (gds_alloc_watchpoint)
+		gds_alloc_validate(gds_alloc_watchpoint);
+}
+#endif /* DEBUG_GDS_ALLOC */
+
+
+#ifdef DEBUG_GDS_ALLOC
+
+void API_ROUTINE gds_alloc_flag_unfreed(void *blk)
+{
+/**************************************
+ *
+ *	g d s _ a l l o c _ f l a g _ u n f r e e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flag a buffer as "known to be unfreed" so we
+ *	don't report it in gds_alloc_report
+ *
+ **************************************/
+	ALLOC p;
+
+/* Point to the start of the block */
+	p = (ALLOC) (((UCHAR *) blk) - ALLOC_HEADER_SIZE);
+
+/* Might as well validate it while we're here */
+	gds_alloc_validate(p);
+
+/* Flag it as "already known" */
+	p->alloc_flags |= ALLOC_dont_report;
+
+}
+#endif /* DEBUG_GDS_ALLOC */
+
+
+#ifdef DEBUG_GDS_ALLOC
+
+void API_ROUTINE gds_alloc_report(ULONG flags, char *filename, int lineno)
+{
+/**************************************
+ *
+ *	g d s _ a l l o c _ r e p o r t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print buffers that might be memory leaks.
+ *	Or that might have been clobbered.
+ *
+ **************************************/
+	ALLOC p;
+	IB_FILE *f = NULL;
+	char buffer[150];
+	TEXT name[MAXPATHLEN];
+	BOOLEAN stderr_reporting = TRUE;
+
+	if (flags & ALLOC_check_each_call)
+		gds_alloc_state = gds_alloc_call_count;
+	if (flags & ALLOC_dont_check)
+		gds_alloc_state = ~0;
+
+	for (p = gds_alloc_chain; p; p = p->alloc_next) {
+		gds_alloc_validate(p);
+		if ((!(p->alloc_flags & ALLOC_dont_report) &&
+			 !(flags & ALLOC_silent)) ||
+			 (flags & ALLOC_verbose))
+		{
+			if (f == NULL)
+			{
+#pragma FB_COMPILER_MESSAGE("TMN: Possible change needed")
+#ifdef WIN16_ONLY
+				f = ib_fopen("C:\iserver.err", "at");
+#else
+				gds__prefix(name, "iserver.err");
+				f = ib_fopen(name, "at");
+#endif
+				ib_fflush(ib_stdout);
+				ib_fflush(ib_stderr);
+				sprintf(buffer,
+						"%sgds_alloc_report: flags %ld file %15.15s lineno %ld alloc=%ld free=%ld%s%s",
+						NEWLINE, flags, filename ? filename : "?", lineno,
+						gds_alloc_call_count, gds_free_call_count, NEWLINE,
+						NEWLINE);
+				if (getenv("NO_GDS_ALLOC_REPORT"))
+					stderr_reporting = FALSE;
+				if (stderr_reporting)
+					DEV_REPORT(buffer);
+				if (f) {
+					ib_fprintf(f, buffer);
+				}
+			}
+			sprintf(buffer,
+					"Unfreed alloc: %lx len=%5ld file=%15.30s line=%4ld call=%4ld%s",
+					p,
+					p->alloc_requested_length,
+					p->alloc_filename,
+					p->alloc_lineno, p->alloc_callno, NEWLINE);
+			if (stderr_reporting) {
+				DEV_REPORT(buffer);
+			}
+			if (f) {
+				ib_fprintf(f, buffer);
+			}
+		}
+		if (flags & ALLOC_mark_current) {
+			p->alloc_flags |= ALLOC_dont_report;
+		}
+	}
+
+/* Walk the list of free blocks and validate they haven't been referenced */
+	for (p = (ALLOC) pool; p;
+		 p = (ALLOC) p->alloc_status.alloc_freed.free_next)
+	{
+		gds_alloc_validate_freed(p);
+	}
+
+	if (f) {
+		ib_fclose(f);
+	}
+}
+#endif
+
+
+SLONG API_ROUTINE gds__interprete(char *s, STATUS ** vector)
+{
+/**************************************
+ *
+ *	g d s _ $ i n t e r p r e t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a status code with arguments to a string.  Return the
+ *	length of the string while updating the vector address.  If the
+ *	message is null (end of messages) or invalid, return 0;
+ *
+ **************************************/
+	TEXT *p, *q, *temp;
+	SSHORT l, temp_len;
+
+	TEXT **arg, *args[10];
+	STATUS code, *v;
+	UCHAR x;
+	STATUS decoded;
+#ifdef VMS
+	STATUS status;
+	TEXT flags[4];
+	struct dsc$descriptor_s desc;
+#endif
+
+	if (!**vector)
+		return 0;
+
+	temp = NULL;
+
+	/* handle a case: "no errors, some warning(s)" */
+	if ((*vector)[1] == 0 && (*vector)[2] == isc_arg_warning) {
+		v = *vector + 4;
+		code = (*vector)[3];
+	}
+	else {
+		v = *vector + 2;
+		code = (*vector)[1];
+	}
+
+	arg = args;
+
+	/* Parse and collect any arguments that may be present */
+
+	for (;;) {
+		x = (UCHAR) * v++;
+		switch (x) {
+		case gds_arg_string:
+		case gds_arg_number:
+			*arg++ = (TEXT *) * v++;
+			continue;
+
+		case gds_arg_cstring:
+			if (!temp) {
+				/* We need a temporary buffer when cstrings are involved.
+				   Give up if we can't get one. */
+
+				p = temp = (TEXT *) gds__alloc((SLONG) BUFFER_SMALL);
+				temp_len = (SSHORT) BUFFER_SMALL;
+				/* FREE: at procedure exit */
+				if (!temp)		/* NOMEM: */
+					return 0;
+			}
+			l = (SSHORT) * v++;
+			q = (TEXT *) * v++;
+			*arg++ = p;
+
+			/* ensure that we do not overflow the buffer allocated */
+			l = (temp_len < l) ? temp_len : l;
+			if (l)
+				do
+					*p++ = *q++;
+				while (--l);
+			*p++ = 0;
+			continue;
+
+		default:
+			break;
+		}
+		--v;
+		break;
+	}
+
+/* Handle primary code on a system by system basis */
+
+	switch ((UCHAR) (*vector)[0]) {
+	case isc_arg_warning:
+	case gds_arg_gds:
+		{
+			USHORT fac = 0, class_ = 0;
+			decoded = gds__decode(code, &fac, &class_);
+			if (gds__msg_format(0, fac, (USHORT) decoded,
+								128, s, args[0], args[1], args[2], args[3],
+								args[4]) < 0) {
+				if ((decoded < (sizeof(messages) / sizeof(messages[0])) - 1)
+					&& (decoded >= 0))
+					sprintf(s, messages[decoded], args[0], args[1], args[2],
+							args[3], args[4]);
+				else
+					sprintf(s, "unknown ISC error %ld", code);	/* TXNN */
+			}
+		}
+		break;
+
+	case gds_arg_interpreted:
+		p = s;
+		q = (TEXT *) (*vector)[1];
+		while ((*p++ = *q++) != NULL);
+		break;
+
+	case gds_arg_netware:
+		if (code > 0 && code < sys_nerr && (p = sys_errlist[code]))
+			strcpy(s, p);
+		else if (code == 60)
+			strcpy(s, "connection timed out");
+		else if (code == 61)
+			strcpy(s, "connection refused");
+		else
+			sprintf(s, "unknown NetWare error %ld", code);
+		break;
+
+	case gds_arg_unix:
+#ifdef NETWARE_386
+		if (code > 0 && code < sys_nerr && (p = sys_errlist[code]))
+			strcpy(s, p);
+		else if (code == 60)
+			strcpy(s, "connection timed out");
+		else if (code == 61)
+			strcpy(s, "connection refused");
+		else
+			sprintf(s, "unknown NetWare error %ld", code);
+#endif
+
+#ifndef NETWARE_386
+#ifndef PC_PLATFORM
+		if (code > 0 && code < sys_nerr && (p = sys_errlist[code]))
+			strcpy(s, p);
+		else if (code == 60)
+			strcpy(s, "connection timed out");
+		else if (code == 61)
+			strcpy(s, "connection refused");
+		else
+#endif
+			sprintf(s, "unknown unix error %ld", code);	/* TXNN */
+#endif
+		break;
+
+	case gds_arg_dos:
+
+#ifdef NETWARE_386
+		sprintf(s, "unknown Netware error %ld", code);	/* TXNN */
+#else
+		sprintf(s, "unknown dos error %ld", code);	/* TXNN */
+#endif
+		break;
+
+#ifdef VMS
+	case gds_arg_vms:
+		l = 0;
+		desc.dsc$b_class = DSC$K_CLASS_S;
+		desc.dsc$b_dtype = DSC$K_DTYPE_T;
+		desc.dsc$w_length = 128;
+		desc.dsc$a_pointer = s;
+		status = sys$getmsg(code, &l, &desc, 15, flags);
+		if (status & 1)
+			s[l] = 0;
+		else
+			sprintf(s, "uninterpreted VMS code %x", code);	/* TXNN */
+		break;
+#endif
+
+#ifdef WIN_NT
+	case gds_arg_win32:
+		if (!(l = (SSHORT) FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,
+										 NULL,
+										 code,
+										 GetUserDefaultLangID(),
+										 s,
+										 128,
+										 NULL))) sprintf(s, "unknown Win32 error %ld", code);	/* TXNN */
+		break;
+#endif
+
+	default:
+		if (temp)
+			gds__free((SLONG *) temp);
+		return 0;
+	}
+
+
+	if (temp)
+		gds__free((SLONG *) temp);
+
+	*vector = v;
+	p = s;
+	while (*p)
+		p++;
+
+	return p - s;
+}
+
+
+void API_ROUTINE gds__interprete_a(
+								   SCHAR * s,
+								   SSHORT * length,
+								   STATUS * vector, SSHORT * offset)
+{
+/**************************************
+ *
+ *	g d s _ $ i n t e r p r e t e _ a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a status code with arguments to a string.  Return the
+ *	length of the string while updating the vector address.  If the
+ *	message is null (end of messages) or invalid, return 0;
+ *	Ada being an unsatisfactory excuse for a language, fall back on
+ *	the concept of indexing into the vector.
+ *
+ **************************************/
+	STATUS *v;
+
+	v = vector + *offset;
+	*length = (SSHORT) gds__interprete(s, &v);
+	*offset = v - vector;
+}
+
+
+void API_ROUTINE gds__log(TEXT * text, ...)
+{
+/**************************************
+ *
+ *	g d s _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an event to a log file.
+ *
+ **************************************/
+	va_list ptr;
+	IB_FILE *file;
+	SLONG t[2];
+#if !(defined VMS || defined PC_PLATFORM || defined WIN_NT)
+	SLONG z[2];
+#endif
+	int oldmask;
+#if defined(STACK_EFFICIENT) && !defined(DEV_BUILD) && !defined(DEBUG_GDS_ALLOC)
+	TEXT *name = (TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * MAXPATHLEN));
+#else /* STACK_EFFICIENT */
+	TEXT name[MAXPATHLEN];
+#endif /* STACK_EFFICIENT */
+
+#if !(defined VMS || defined PC_PLATFORM || defined WIN_NT)
+	GETTIMEOFDAY(t, z);
+#define LOG_TIME_OBTAINED
+#endif
+
+#ifdef LOG_TIME_OBTAINED
+#undef LOG_TIME_OBTAINED
+#else
+	time(t);
+#endif
+
+	gds__prefix(name, LOGFILE);
+
+	oldmask = umask(0111);
+
+	if ((file = ib_fopen(name, FOPEN_APPEND_TYPE)) != NULL)
+	{
+		ib_fprintf(file, "%s%s\t%.25s\t", ISC_get_host(name, MAXPATHLEN),
+				   gdslogid, ctime(t));
+		VA_START(ptr, text);
+		ib_vfprintf(file, text, ptr);
+		ib_fprintf(file, "\n\n");
+		ib_fclose(file);
+	}
+
+	umask(oldmask);
+
+#if defined(STACK_EFFICIENT) && !defined(DEV_BUILD) && !defined(DEBUG_GDS_ALLOC)
+	gds__free((SLONG *) name);
+#endif /* STACK_EFFICIENT */
+
+}
+
+
+void API_ROUTINE gds__log_status(TEXT * database, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	g d s _ $ l o g _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Log error to error log.
+ *
+ **************************************/
+	TEXT *buffer, *p;
+
+	buffer = (TEXT *) gds__alloc((SLONG) BUFFER_XLARGE);
+/* FREE: at procedure exit */
+	if (!buffer)				/* NOMEM: */
+		return;
+
+	p = buffer;
+	sprintf(p, "Database: %s", (database) ? database : "");
+
+	do {
+		while (*p)
+			p++;
+		*p++ = '\n';
+		*p++ = '\t';
+	} while (gds__interprete(p, &status_vector));
+
+	p[-2] = 0;
+	gds__log(buffer, 0);
+	gds__free((SLONG *) buffer);
+}
+
+
+int API_ROUTINE gds__msg_close(void *handle)
+{
+/**************************************
+ *
+ *	g d s _ $ m s g _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close the message file and zero out static variable.
+ *
+ **************************************/
+
+	MSG message = reinterpret_cast < MSG > (handle);
+
+	if (!message) {
+		if (!default_msg) {
+			return 0;
+		}
+		message = default_msg;
+	}
+
+	default_msg = (MSG) NULL;
+
+	int fd = message->msg_file;
+
+	FREE_LIB_MEMORY(message);
+
+	if (fd <= 0)
+		return 0;
+
+	return close(fd);
+}
+
+
+SSHORT API_ROUTINE gds__msg_format(void *handle,
+								   USHORT facility,
+								   USHORT number,
+								   USHORT length,
+								   TEXT * buffer,
+								   TEXT * arg1,
+								   TEXT * arg2,
+								   TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	g d s _ $ m s g _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup and format message.  Return as much of formatted string
+ *	as fits in caller's buffer.
+ *
+ **************************************/
+	TEXT *p, *formatted, *end;
+	USHORT l;
+	SLONG size;
+	int n;
+
+	size = (SLONG) (((arg1) ? MAX_ERRSTR_LEN : 0) +
+					((arg2) ? MAX_ERRSTR_LEN : 0) +
+					((arg3) ? MAX_ERRSTR_LEN : 0) +
+					((arg4) ? MAX_ERRSTR_LEN : 0) +
+					((arg5) ? MAX_ERRSTR_LEN : 0) + MAX_ERRMSG_LEN);
+
+	size = (size < length) ? length : size;
+
+	formatted = (TEXT *) gds__alloc((SLONG) size);
+
+	if (!formatted)				/* NOMEM: */
+		return -1;
+
+/* Let's assume that the text to be output will never be shorter
+   than the raw text of the message to be formatted.  Then we can
+   use the caller's buffer to temporarily hold the raw text. */
+
+	n = gds__msg_lookup(handle, facility, number, length, buffer, NULL);
+
+	if (n > 0 && n < length)
+		sprintf(formatted, buffer, arg1, arg2, arg3, arg4, arg5);
+	else {
+		sprintf(formatted, "can't format message %d:%d -- ", facility,
+				number);
+		if (n == -1)
+			strcat(formatted, "message text not found");
+		else if (n == -2) {
+			strcat(formatted, "message file ");
+			for (p = formatted; *p;)
+				p++;
+			gds__prefix_msg(p, MSG_FILE);
+			strcat(p, " not found");
+		}
+		else {
+			for (p = formatted; *p;)
+				p++;
+			sprintf(p, "message system code %d", n);
+		}
+	}
+
+	l = strlen(formatted);
+	end = buffer + length - 1;
+
+	for (p = formatted; *p && buffer < end;)
+		*buffer++ = *p++;
+	*buffer = 0;
+
+	gds__free((SLONG *) formatted);
+	return ((n > 0) ? l : -l);
+}
+
+
+SSHORT API_ROUTINE gds__msg_lookup(void *handle,
+								   USHORT facility,
+								   USHORT number,
+								   USHORT length,
+								   TEXT * buffer, USHORT * flags)
+{
+/**************************************
+ *
+ *	g d s _ $ m s g _ l o o k u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup a message.  Return as much of the record as fits in the
+ *	callers buffer.  Return the FULL size of the message, or negative
+ *	number if we can't find the message.
+ *
+ **************************************/
+	MSG message;
+	int status;
+	USHORT n;
+	MSGREC leaf;
+	MSGNOD node, end;
+	ULONG position, code;
+	TEXT *p;
+
+/* Handle default message file */
+
+	if (!(message = (MSG) handle) && !(message = default_msg)) {
+		/* Try environment variable setting first */
+
+		if ((p = getenv("ISC_MSGS")) == NULL ||
+			(status =
+			 gds__msg_open(reinterpret_cast < void **>(&message), p))) {
+			TEXT translated_msg_file[sizeof(MSG_FILE_LANG) + LOCALE_MAX + 1];
+			TEXT *msg_file;
+
+			/* Try declared language of this attachment */
+			/* This is not quite the same as the language declared on the
+			   READY statement */
+
+			msg_file = (TEXT *) gds__alloc((SLONG) MAXPATHLEN);
+			/* FREE: at block exit */
+			if (!msg_file)		/* NOMEM: */
+				return -2;
+
+			p = getenv("LC_MESSAGES");
+			if (p != NULL) {
+				sanitize(p);
+				sprintf(translated_msg_file, MSG_FILE_LANG, p);
+				gds__prefix_msg(msg_file, translated_msg_file);
+				status =
+					gds__msg_open(reinterpret_cast < void **>(&message),
+								  msg_file);
+			}
+			else
+				status = 1;
+			if (status) {
+				/* Default to standard message file */
+
+				gds__prefix_msg(msg_file, MSG_FILE);
+				status =
+					gds__msg_open(reinterpret_cast < void **>(&message),
+								  msg_file);
+			}
+			gds__free((SLONG *) msg_file);
+		}
+
+		if (status)
+			return status;
+
+		default_msg = message;
+	}
+
+/* Search down index levels to the leaf.  If we get lost, punt */
+
+	code = MSG_NUMBER(facility, number);
+	end = (MSGNOD) ((SCHAR *) message->msg_bucket + message->msg_bucket_size);
+	position = message->msg_top_tree;
+
+	for (n = 1, status = 0; !status; n++) {
+		if (lseek(message->msg_file, position, 0) < 0)
+			status = -6;
+		else if (read(message->msg_file, message->msg_bucket,
+					  message->msg_bucket_size) < 0)
+			status = -7;
+		else if (n == message->msg_levels)
+			break;
+		else {
+			for (node = (MSGNOD) message->msg_bucket; !status; node++) {
+				if (node >= end) {
+					status = -8;
+					break;
+				}
+				else if (node->msgnod_code >= code) {
+					position = node->msgnod_seek;
+					break;
+				}
+			}
+		}
+	}
+
+	if (!status) {
+		/* Search the leaf */
+		for (leaf = (MSGREC) message->msg_bucket; !status;
+			 leaf = NEXT_LEAF(leaf)) {
+			if (leaf >= (MSGREC) end || leaf->msgrec_code > code) {
+				status = -1;
+				break;
+			}
+			else if (leaf->msgrec_code == code) {
+				/* We found the correct message, so return it to the user */
+				n = MIN(length - 1, leaf->msgrec_length);
+				memcpy(buffer, leaf->msgrec_text, n);
+				buffer[n] = 0;
+
+				if (flags)
+					*flags = leaf->msgrec_flags;
+
+				status = leaf->msgrec_length;
+				break;
+			}
+		}
+	}
+
+	return status;
+}
+
+
+int API_ROUTINE gds__msg_open(void **handle, TEXT * filename)
+{
+/**************************************
+ *
+ *	g d s _ $ m s g _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to open a message file.  If successful, return a status of 0
+ *	and update a message handle.
+ *
+ **************************************/
+	int n;
+	MSG message;
+	ISC_MSGHDR header;
+
+	if ((n = open(filename, O_RDONLY | O_BINARY, 0)) < 0)
+		return -2;
+
+	if (read(n, &header, sizeof(header)) < 0) {
+		(void) close(n);
+		return -3;
+	}
+
+	if (header.msghdr_major_version != MSG_MAJOR_VERSION ||
+		(SSHORT) header.msghdr_minor_version < MSG_MINOR_VERSION) {
+		(void) close(n);
+		return -4;
+	}
+
+	message =
+		(MSG) ALLOC_LIB_MEMORY((SLONG) sizeof(struct msg) +
+							   header.msghdr_bucket_size - 1);
+/* FREE: in gds__msg_close */
+	if (!message) {				/* NOMEM: return non-open error */
+		(void) close(n);
+		return -5;
+	}
+
+#ifdef DEBUG_GDS_ALLOC
+/* This will only be freed if the client closes the message file for us */
+	gds_alloc_flag_unfreed((void *) message);
+#endif
+
+	message->msg_file = n;
+	message->msg_bucket_size = header.msghdr_bucket_size;
+	message->msg_levels = header.msghdr_levels;
+	message->msg_top_tree = header.msghdr_top_tree;
+
+
+	*handle = message;
+
+	return 0;
+}
+
+
+void API_ROUTINE gds__msg_put(
+							  void *handle,
+							  USHORT facility,
+							  USHORT number,
+							  TEXT * arg1,
+TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	g d s _ $ m s g _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup and format message.  Return as much of formatted string
+ *	as fits in callers buffer.
+ *
+ **************************************/
+#ifdef STACK_EFFICIENT
+	TEXT *formatted =
+		(TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * BUFFER_MEDIUM));
+#else /* STACK_EFFICIENT */
+	TEXT formatted[512];
+#endif /* STACK_EFFICIENT */
+
+	gds__msg_format(handle, facility, number, sizeof(TEXT) * BUFFER_MEDIUM,
+					formatted, arg1, arg2, arg3, arg4, arg5);
+	gds__put_error(formatted);
+#ifdef STACK_EFFICIENT
+	gds__free((SLONG *) formatted);
+#endif /* STACK_EFFICIENT */
+}
+
+
+SLONG API_ROUTINE gds__get_prefix(SSHORT arg_type, TEXT * passed_string)
+{
+/**************************************
+ *
+ *	g d s _ $ g e t _ p r e f i x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find appropriate InterBase command line arguments 
+ *	for Interbase file prefix.
+ *
+ *      arg_type is 0 for $INTERBASE, 1 for $INTERBASE_LOCK 
+ *      and 2 for $INTERBASE_MSG
+ *
+ *      Function returns 0 on success and -1 on failure
+ **************************************/
+
+	char *prefix_ptr;
+	int count = 0;
+#if 0
+	char *prefix_array;			/* = {ib_prefix, ib_prefix_lock, ib_prefix_msg}; */
+#endif
+
+
+	if (arg_type < IB_PREFIX_TYPE || arg_type > IB_PREFIX_MSG_TYPE)
+		return ((SLONG) - 1);
+
+	switch (arg_type) {
+	case IB_PREFIX_TYPE:
+		prefix_ptr = ib_prefix = ib_prefix_val;
+		break;
+	case IB_PREFIX_LOCK_TYPE:
+		prefix_ptr = ib_prefix_lock = ib_prefix_lock_val;
+		break;
+	case IB_PREFIX_MSG_TYPE:
+		prefix_ptr = ib_prefix_msg = ib_prefix_msg_val;
+		break;
+	default:
+		return ((SLONG) - 1);
+	}
+/* the command line argument was 'H' for interbase home */
+	while (*prefix_ptr++ = *passed_string++) {
+		/* if the next character is space, newline or carriage return OR
+		   number of characters exceeded */
+		if (*passed_string == ' ' || *passed_string == 10
+			|| *passed_string == 13 || (count == MAXPATHLEN)) {
+			*(prefix_ptr++) = '\0';
+			break;
+		}
+		count++;
+	}
+	if (!count) {
+		prefix_ptr = NULL;
+		return ((SLONG) - 1);
+	}
+	return ((SLONG) 0);
+}
+
+
+#ifndef VMS
+void API_ROUTINE gds__prefix(TEXT * string, TEXT * root)
+{
+/**************************************
+ *
+ *	g d s _ $ p r e f i x	( n o n - V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find appropriate InterBase file prefix.
+ *	Override conditional defines with
+ *	the enviroment variable INTERBASE if it is set.
+ *
+ **************************************/
+
+	string[0] = 0;
+
+	if (ib_prefix == NULL) {
+		if (!(ib_prefix = getenv(ISC_ENV)))
+		{
+#if defined(WIN_NT)
+			ib_prefix = ib_prefix_val;
+			if (ISC_get_registry_var("RootDirectory", ib_prefix, MAXPATHLEN, 0) != -1)
+			{
+				TEXT *p = ib_prefix + strlen(ib_prefix);
+				if (p != ib_prefix)
+					if (p[-1] == '\\')
+						p[-1] = '/';
+					else if (p[-1] != '/') {
+						*p++ = '/';
+						*p = 0;
+					}
+			}
+			else {
+				/* TMN: 2 Aug 2000 - No registry entry found.       */
+				/* Try to get "Program Files" from env var.         */
+				/* If that fails, fallback to the hardcoded path.   */
+
+				ib_prefix = getenv("ProgramFiles");
+				if (ib_prefix) {
+					strcpy(ib_prefix_val, ib_prefix);
+					strcat(ib_prefix_val, "\\Borland\\Interbase\\");
+				}
+				else {
+					/* ISC_PREFIX currently defaults to      */
+					/* "C:\Program Files\Borland\InterBase\" */
+					strcpy(ib_prefix_val, ISC_PREFIX);
+				}
+			}
+#else	// WIN_NT
+			ib_prefix = ISC_PREFIX;
+			strcat(ib_prefix_val, ib_prefix);
+#endif
+			ib_prefix = ib_prefix_val;
+		}
+	}
+	strcat(string, ib_prefix);
+#ifndef NETWARE_386
+	if (string[strlen(string) - 1] != '/')
+		strcat(string, "/");
+#endif
+	strcat(string, root);
+}
+#endif /* !defined(VMS) */
+
+
+#ifdef VMS
+void API_ROUTINE gds__prefix(TEXT * string, TEXT * root)
+{
+/**************************************
+ *
+ *	g d s _ $ p r e f i x	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find appropriate InterBase file prefix.
+ *	Override conditional defines with
+ *	the enviroment variable INTERBASE if it is set.
+ *
+ **************************************/
+	TEXT temp[256], *p, *q;
+	ISC_VMS_PREFIX prefix;
+	SSHORT len;
+
+	if (*root != '[') {
+		strcpy(string, root);
+		return;
+	}
+
+/* Check for the existence of an InterBase logical name.  If there is 
+   one use it, otherwise use the system directories. */
+
+	if (ISC_expand_logical_once(ISC_LOGICAL, sizeof(ISC_LOGICAL) - 2, temp)) {
+		strcpy(string, ISC_LOGICAL);
+		strcat(string, root);
+		return;
+	}
+
+	for (p = temp, q = root; *p = UPPER7(*q); q++)
+		if (*p++ == ']')
+			break;
+
+	len = p - temp;
+	for (prefix = trans_prefix; prefix->isc_prefix; prefix++)
+		if (!strncmp(temp, prefix->isc_prefix, len)) {
+			strcpy(string, prefix->vms_prefix);
+			strcat(string, &root[len]);
+			return;
+		}
+
+	strcpy(string, &root[len]);
+}
+#endif
+
+
+#ifndef VMS
+void API_ROUTINE gds__prefix_lock(TEXT * string, TEXT * root)
+{
+/********************************************************
+ *
+ *	g d s _ $ p r e f i x _ l o c k	( n o n - V M S )
+ *
+ ********************************************************
+ *
+ * Functional description
+ *	Find appropriate InterBase lock file prefix.
+ *	Override conditional defines with the enviroment
+ *      variable INTERBASE_LOCK if it is set.
+ *
+ **************************************/
+	string[0] = 0;
+
+	if (ib_prefix_lock == NULL) {
+		if (!(ib_prefix_lock = getenv(ISC_LOCK_ENV))) {
+			ib_prefix_lock = ib_prefix_lock_val;
+			gds__prefix(ib_prefix_lock, "");
+		}
+		else {
+			strcat(ib_prefix_lock_val, ib_prefix_lock);
+			ib_prefix_lock = ib_prefix_lock_val;
+		}
+	}
+	strcat(string, ib_prefix_lock);
+#ifndef NETWARE_386
+	if (string[strlen(string) - 1] != '/')
+		strcat(string, "/");
+#endif
+	strcat(string, root);
+}
+#endif
+
+
+#ifdef VMS
+void API_ROUTINE gds__prefix_lock(TEXT * string, TEXT * root)
+{
+/************************************************
+ *
+ *	g d s _ $ p r e f i x _ l o c k	( V M S )
+ *
+ ************************************************
+ *
+ * Functional description
+ *	Find appropriate InterBase lock file prefix.
+ *	Override conditional defines with the enviroment
+ *      variable INTERBASE_LOCK if it is set.
+ *
+ *************************************************/
+	TEXT temp[256], *p, *q;
+	ISC_VMS_PREFIX prefix;
+	SSHORT len;
+
+	if (*root != '[') {
+		strcpy(string, root);
+		return;
+	}
+
+/* Check for the existence of an InterBase logical name.  If there is 
+   one use it, otherwise use the system directories. */
+
+	if (ISC_expand_logical_once
+		(ISC_LOGICAL_LOCK, sizeof(ISC_LOGICAL_LOCK) - 2, temp)) {
+		strcpy(string, ISC_LOGICAL_LOCK);
+		strcat(string, root);
+		return;
+	}
+
+	for (p = temp, q = root; *p = UPPER7(*q); q++)
+		if (*p++ == ']')
+			break;
+
+	len = p - temp;
+	for (prefix = trans_prefix; prefix->isc_prefix; prefix++)
+		if (!strncmp(temp, prefix->isc_prefix, len)) {
+			strcpy(string, prefix->vms_prefix);
+			strcat(string, &root[len]);
+			return;
+		}
+
+	strcpy(string, &root[len]);
+}
+#endif
+
+#ifndef VMS
+void API_ROUTINE gds__prefix_msg(TEXT * string, TEXT * root)
+{
+/********************************************************
+ *
+ *      g d s _ $ p r e f i x _ m s g ( n o n - V M S )
+ *
+ ********************************************************
+ *
+ * Functional description
+ *      Find appropriate InterBase message file prefix.
+ *      Override conditional defines with the enviroment
+ *      variable INTERBASE_MSG if it is set.
+ *
+ *
+ **************************************/
+	string[0] = 0;
+
+	if (ib_prefix_msg == NULL) {
+		if (!(ib_prefix_msg = getenv(ISC_MSG_ENV))) {
+			ib_prefix_msg = ib_prefix_msg_val;
+			gds__prefix(ib_prefix_msg, "");
+		}
+		else {
+			strcat(ib_prefix_msg_val, ib_prefix_msg);
+			ib_prefix_msg = ib_prefix_msg_val;
+		}
+	}
+
+	strcat(string, ib_prefix_msg);
+#ifndef NETWARE_386
+	if (string[strlen(string) - 1] != '/')
+		strcat(string, "/");
+#endif
+	strcat(string, root);
+}
+#endif
+
+#ifdef VMS
+void API_ROUTINE gds__prefix_msg(TEXT * string, TEXT * root)
+{
+/************************************************
+ *
+ *      g d s _ $ p r e f i x _ m s g ( V M S )
+ *
+ ************************************************
+ *
+ * Functional description
+ *      Find appropriate InterBase message file prefix.
+ *      Override conditional defines with the enviroment
+ *      variable INTERBASE_MSG if it is set.
+ *
+ *************************************************/
+	TEXT temp[256], *p, *q;
+	ISC_VMS_PREFIX prefix;
+	SSHORT len;
+
+	if (*root != '[') {
+		strcpy(string, root);
+		return;
+	}
+
+
+/* Check for the existence of an InterBase logical name.  If there is
+   one use it, otherwise use the system directories. */
+
+/* ISC_LOGICAL_MSG macro needs to be defined, check non VMS version of routine
+   for functionality. */
+	if (ISC_expand_logical_once
+		(ISC_LOGICAL_MSG, sizeof(ISC_LOGICAL_MSG) - 2, te mp)) {
+		strcpy(string, ISC_LOGICAL_MSG);
+		strcat(string, root);
+		return;
+	}
+
+	for (p = temp, q = root; *p = UPPER7(*q); q++)
+		if (*p++ == ']')
+			break;
+
+	len = p - temp;
+	for (prefix = trans_prefix; prefix->isc_prefix; prefix++)
+		if (!strncmp(temp, prefix->isc_prefix, len)) {
+			strcpy(string, prefix->vms_prefix);
+			strcat(string, &root[len]);
+			return;
+		}
+
+	strcpy(string, &root[len]);
+}
+#endif
+
+
+STATUS API_ROUTINE gds__print_status(STATUS * vec)
+{
+/**************************************
+ *
+ *	g d s _ p r i n t _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Interprete a status vector.
+ *
+ **************************************/
+	STATUS *vector;
+	TEXT *s;
+
+	if (!vec || (!vec[1] && vec[2] == gds_arg_end))
+		return SUCCESS;
+
+	s = (TEXT *) gds__alloc((SLONG) BUFFER_LARGE);
+/* FREE: at procedure return */
+	if (!s)						/* NOMEM: */
+		return vec[1];
+
+	vector = vec;
+
+	if (!gds__interprete(s, &vector)) {
+		gds__free((SLONG *) s);
+		return vec[1];
+	}
+
+	gds__put_error(s);
+	s[0] = '-';
+
+	while (gds__interprete(s + 1, &vector))
+		gds__put_error(s);
+
+	gds__free((SLONG *) s);
+
+	return vec[1];
+}
+
+
+USHORT API_ROUTINE gds__parse_bpb(USHORT bpb_length,
+								  UCHAR * bpb,
+								  USHORT * source, USHORT * target)
+{
+/**************************************
+ *
+ *	g d s _ p a r s e _ b p b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get blob type, source sub_type and target sub-type
+ *	from a blob parameter block.
+ *
+ **************************************/
+
+	return gds__parse_bpb2(bpb_length, bpb, source, target, NULL, NULL);
+}
+
+
+USHORT API_ROUTINE gds__parse_bpb2(USHORT bpb_length,
+								   UCHAR * bpb,
+								   USHORT * source,
+								   USHORT * target,
+								   USHORT * source_interp,
+								   USHORT * target_interp)
+{
+/**************************************
+ *
+ *	g d s _ p a r s e _ b p b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get blob type, source sub_type and target sub-type
+ *	from a blob parameter block.
+ *	Basically gds__parse_bpb() with additional:
+ *	source_interp and target_interp.
+ *
+ **************************************/
+	UCHAR *p, *end, op;
+	USHORT type, length;
+
+	type = *source = *target = 0;
+
+	if (source_interp)
+		*source_interp = 0;
+	if (target_interp)
+		*target_interp = 0;
+
+	if (!bpb_length)
+		return type;
+
+	p = bpb;
+	end = p + bpb_length;
+
+	if (*p++ != gds__bpb_version1)
+		return type;
+
+	while (p < end) {
+		op = *p++;
+		length = *p++;
+		switch (op) {
+		case gds__bpb_source_type:
+			*source = (USHORT) gds__vax_integer(p, length);
+			break;
+
+		case gds__bpb_target_type:
+			*target = (USHORT) gds__vax_integer(p, length);
+			break;
+
+		case gds__bpb_type:
+			type = (USHORT) gds__vax_integer(p, length);
+			break;
+
+		case gds__bpb_source_interp:
+			if (source_interp)
+				*source_interp = (USHORT) gds__vax_integer(p, length);
+			break;
+
+		case gds__bpb_target_interp:
+			if (target_interp)
+				*target_interp = (USHORT) gds__vax_integer(p, length);
+			break;
+
+		default:
+			break;
+		}
+		p += length;
+	}
+
+	return type;
+}
+
+
+SLONG API_ROUTINE gds__ftof(register SCHAR * string,
+							register USHORT GDS_VAL(length1),
+							register SCHAR * field,
+							register USHORT GDS_VAL(length2))
+{
+/**************************************
+ *
+ *	g d s _ f t o f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a fixed length string to a fixed length string.
+ *	This is typically generated by the preprocessor to
+ *	move strings around.
+ *
+ **************************************/
+	USHORT l, fill;
+
+	fill = GDS_VAL(length2) - GDS_VAL(length1);
+
+	if ((l = MIN(GDS_VAL(length1), GDS_VAL(length2))) > 0)
+		do
+			*field++ = *string++;
+		while (--l);
+
+	if (fill > 0)
+		do
+			*field++ = ' ';
+		while (--fill);
+
+	return 0;
+}
+
+
+int API_ROUTINE gds__print_blr(
+							   UCHAR * blr,
+							   void (*routine) (),
+							   SCHAR * user_arg, SSHORT language)
+{
+/**************************************
+ *
+ *	g d s _ $ p r i n t _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pretty print blr thru callback routine.
+ *
+ **************************************/
+	struct ctl ctl, *control;
+	SCHAR eoc;
+	SLONG offset;
+	SSHORT version, level;
+
+	if (SETJMP(env))
+		return -1;
+
+	control = &ctl;
+	level = 0;
+	offset = 0;
+
+	if (!routine) {
+		routine = (void (*)()) PRINTF;
+		user_arg = "%4d %s\n";
+	}
+
+	control->ctl_routine = routine;
+	control->ctl_user_arg = user_arg;
+	control->ctl_blr = control->ctl_blr_start = blr;
+	control->ctl_ptr = control->ctl_buffer;
+	control->ctl_language = language;
+
+	version = BLR_BYTE;
+
+	if ((version != blr_version4) && (version != blr_version5))
+		blr_error(control, "*** blr version %d is not supported ***",
+				  (TEXT *) version);
+
+	blr_format(control,
+			   (version == blr_version4) ? "blr_version4," : "blr_version5,");
+	PRINT_LINE;
+	PRINT_VERB;
+
+	offset = control->ctl_blr - control->ctl_blr_start;
+	eoc = BLR_BYTE;
+
+	if (eoc != blr_eoc)
+		blr_error(control, "*** expected end of command, encounted %d ***",
+				  (TEXT *) eoc);
+
+	blr_format(control, "blr_eoc");
+	PRINT_LINE;
+
+	return 0;
+}
+
+
+void API_ROUTINE gds__put_error(TEXT * string)
+{
+/**************************************
+ *
+ *	g d s _ p u t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put out a line of error text.
+ *
+ **************************************/
+
+#ifdef VMS
+#define PUT_ERROR
+	struct dsc$descriptor_s desc;
+
+	ISC_make_desc(string, &desc, 0);
+	lib$put_output(&desc);
+#endif
+
+#ifdef NETWARE_386
+#define PUT_ERROR
+	ConsolePrintf("%s\n", string);
+#endif
+
+#ifdef PUT_ERROR
+#undef PUT_ERROR
+#else
+	ib_fputs(string, ib_stderr);
+	ib_fputc('\n', ib_stderr);
+	ib_fflush(ib_stderr);
+#endif
+}
+
+
+void API_ROUTINE gds__qtoq(void *quad_in, void *quad_out)
+{
+/**************************************
+ *
+ *	g d s _ q t o q
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a quad value to another quad value.  This
+ *      call is generated by the preprocessor when assigning
+ *      quad values in FORTRAN.
+ *
+ **************************************/
+
+	*((GDS_QUAD *) quad_out) = *((GDS_QUAD *) quad_in);
+}
+
+
+void API_ROUTINE gds__register_cleanup(FPTR_VOID_PTR routine, void *arg)
+{
+/**************************************
+ *
+ *	g d s _ r e g i s t e r _ c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Register a cleanup handler.
+ *
+ **************************************/
+
+/* 
+ * Ifdef out for windows client.  We have not implemented any way of 
+ * determining when a task ends, therefore this never gets called.
+*/
+
+	CLEAN clean;
+
+	if (!initialized)
+		init();
+
+	clean = (CLEAN) ALLOC_LIB_MEMORY((SLONG) sizeof(struct clean));
+	clean->clean_next = cleanup_handlers;
+	cleanup_handlers = clean;
+	clean->clean_routine = routine;
+	clean->clean_arg = arg;
+
+#ifdef DEBUG_GDS_ALLOC
+/* Startup function - known to be unfreed */
+	gds_alloc_flag_unfreed((void *) clean);
+#endif
+}
+
+
+SLONG API_ROUTINE gds__sqlcode(STATUS * status_vector)
+{
+/**************************************
+ *
+ *	g d s _ s q l c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate GDS error code to SQL error code.  This is a little
+ *	imprecise (to say the least) because we don't know the proper
+ *	SQL codes.  One must do what what can; stiff upper lip, and all
+ *	that.
+ *
+ *	Scan a status vector - if we find gds__sqlerr in the "right"
+ *	positions, return the code that follows.  Otherwise, for the
+ *	first code for which there is a non-generic SQLCODE, return it.
+ *
+ **************************************/
+	USHORT code;
+	SLONG sqlcode;
+	STATUS *s;
+	USHORT have_sqlcode;
+
+	if (!status_vector) {
+		DEV_REPORT("gds__sqlcode: NULL status vector");
+		return GENERIC_SQLCODE;
+	}
+
+	have_sqlcode = FALSE;
+	sqlcode = GENERIC_SQLCODE;	/* error of last resort */
+
+/* SQL code -999 (GENERIC_SQLCODE) is generic, meaning "no other sql code
+ * known".  Now scan the status vector, seeing if there is ANY sqlcode
+ * reported.  Make note of the first error in the status vector who's 
+ * SQLCODE is NOT -999, that will be the return code if there is no specific
+ * sqlerr reported.
+ */
+
+	s = status_vector;
+	while (*s != gds_arg_end)
+	{
+		if (*s == gds_arg_gds)
+		{
+			s++;
+			if (*s == gds__sqlerr)
+			{
+				return *(s + 2);
+			}
+
+			if (!have_sqlcode) {
+				/* Now check the hard-coded mapping table of gds_codes to
+				   sql_codes */
+				USHORT fac = 0, class_ = 0;
+
+				code = (USHORT) gds__decode(status_vector[1], &fac, &class_);
+
+				if ((code < sizeof(gds__sql_code) / sizeof(gds__sql_code[0])) &&
+					(gds__sql_code[code] != GENERIC_SQLCODE))
+				{
+					sqlcode = gds__sql_code[code];
+					have_sqlcode = TRUE;
+				}
+			}
+			s++;
+		}
+		else if (*s == gds_arg_cstring)
+			s += 3;				/* skip: gds_arg_cstring <len> <ptr> */
+		else
+			s += 2;				/* skip: gds_arg_* <item> */
+	};
+
+	return sqlcode;
+}
+
+
+void API_ROUTINE gds__sqlcode_s(STATUS * status_vector, ULONG * sqlcode)
+{
+/**************************************
+ *
+ *	g d s _ s q l c o d e _ s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate GDS error code to SQL error code.  This is a little
+ *	imprecise (to say the least) because we don't know the proper
+ *	SQL codes.  One must do what what can; stiff upper lip, and all
+ *	that.  THIS IS THE COBOL VERSION.  (Some cobols son't have 
+ *	return values for calls...
+ *
+ **************************************/
+
+	*sqlcode = gds__sqlcode(status_vector);
+}
+
+
+UCHAR *API_ROUTINE gds__sys_alloc(SLONG size)
+{
+/**************************************
+ *
+ *	g d s _ $ s y s _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block of system memory.   This
+ *	memory may or may not, depending on the
+ *	platform, be part of InterBase's suballocated
+ *	memory pool.
+ *
+ **************************************/
+
+#ifndef SUPERSERVER
+	return gds__alloc(size);
+
+#else
+	UCHAR *memory;
+	ULONG *block;
+
+	size += ALLOC_OVERHEAD;
+	size = ALLOC_ROUNDUP(size);
+
+#ifdef NETWARE
+	REPLACE THIS ILLEGAL COMMENT WITH NETWARE IMPLEMENTATION
+		Malloc / free may be good enough as long as free() returns
+		the memory back to a system - wide heap.
+#define SYS_ALLOC_DEFINED
+#endif
+#ifdef UNIX
+#ifdef MAP_ANONYMOUS
+	  memory = mmap(NULL, size, (PROT_READ | PROT_WRITE),
+					(MAP_ANONYMOUS |
+#ifndef LINUX
+/* In LINUX, there is no such thing as MAP_VARIABLE. Hence, it gives 
+   compilation error. The equivalent functionality is default, 
+   if you do not specify MAP_FIXED */
+					 MAP_VARIABLE |
+#endif							/* LINUX */
+					 MAP_PRIVATE), -1, 0);
+	if (memory == (UCHAR *) - 1) {
+		if (errno == ENOMEM)
+			return NULL;
+		else
+			ERR_post(isc_sys_request, isc_arg_string, "mmap", isc_arg_unix,
+					 errno, 0);
+	}
+#define SYS_ALLOC_DEFINED
+#else
+#ifdef SOLARIS
+	if (!(memory = mmap_anon(size)))	/* Jump thru hoops for Solaris. */
+		return NULL;
+#define SYS_ALLOC_DEFINED
+#endif
+#endif /* MAP_ANONYMOUS */
+#endif /* UNIX */
+
+#ifdef VMS
+	{
+		SLONG status;
+
+		status = lib$get_vm(&size, &memory);
+		if (!(status & 1))
+			return NULL;
+	}
+#define SYS_ALLOC_DEFINED
+#endif
+
+#ifdef WIN_NT
+
+	if (!
+		(memory =
+		 reinterpret_cast <
+		 UCHAR * >(VirtualAlloc(NULL, size, MEM_COMMIT, PAGE_READWRITE)))) {
+		return NULL;
+/***
+    DWORD error = GetLastError();
+
+    if (error == ERROR_NOT_ENOUGH_MEMORY)
+	return NULL;
+    else
+    	ERR_post (gds__sys_request, gds_arg_string, "VirtualAlloc",
+        	  gds_arg_win32, error, 0);
+***/
+	}
+#define SYS_ALLOC_DEFINED
+#endif
+
+#ifdef SYS_ALLOC_DEFINED
+	block = (ULONG *) memory;
+	*block = size;
+	return memory + ALLOC_HEADER_SIZE;
+#else
+	return NULL;
+#endif
+
+#endif /* SUPERSERVER */
+}
+
+
+SLONG API_ROUTINE gds__sys_free(void *blk)
+{
+/**************************************
+ *
+ *	g d s _ $ s y s _ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free system memory back where it came from.
+ *
+ **************************************/
+
+#ifndef SUPERSERVER
+	return gds__free(blk);
+
+#else
+
+	ULONG* block = (ULONG *) ((UCHAR *) blk - ALLOC_HEADER_SIZE);
+	blk = (void *) block;
+	ULONG length = *block;
+
+#ifdef NETWARE
+#error NETWARE is unimplemented
+//	REPLACE THIS ILLEGAL COMMENT WITH NETWARE IMPLEMENTATION
+//		Malloc / free may be good enough as long as free() returns
+//		the memory back to a system - wide heap.
+#define SYS_FREE_DEFINED
+#endif	// NETWARE
+
+#ifdef UNIX
+	if (munmap(blk, length) == -1) {
+		ERR_post(isc_sys_request, isc_arg_string, "munmap", isc_arg_unix,
+				 errno, 0);
+	}
+#define SYS_FREE_DEFINED
+#endif	// UNIX
+
+#ifdef VMS
+	{
+		SLONG status;
+
+		status = lib$free_vm(&length, &blk);
+		if (!(status & 1))
+			ERR_post(isc_sys_request, isc_arg_string, "lib$free_vm",
+					 isc_arg_vms, status, 0);
+	}
+#define SYS_FREE_DEFINED
+#endif	// VMS
+
+#ifdef WIN_NT
+	if (!VirtualFree((LPVOID) blk, (DWORD) 0, MEM_RELEASE))
+	{
+		const DWORD dwErr = GetLastError();
+		ERR_post(gds__sys_request, gds_arg_string, "VirtualFree",
+				 gds_arg_win32, dwErr, 0);
+	}
+#define SYS_FREE_DEFINED
+#endif	// WIN_NT
+
+#ifdef SYS_FREE_DEFINED
+	return length - ALLOC_OVERHEAD;
+#else
+	return 0L;
+#endif
+#endif /* SUPERSERVER */
+}
+
+
+void* API_ROUTINE gds__temp_file(	BOOLEAN	flag,
+									TEXT*	string,
+									TEXT*	expanded_string)
+{
+/**************************************
+ *
+ *	g d s _ $ t e m p _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create and open a temp file with a given root.  Unless the
+ *	address of a buffer for the expanded file name string is
+ *	given, make up the file "pre-deleted". Return -1 on failure.
+ *
+ **************************************/
+
+	return gds__tmp_file2(flag, string, expanded_string, NULL);
+}
+
+
+void *gds__tmp_file2(
+					 BOOLEAN flag,
+					 TEXT * string, TEXT * expanded_string, TEXT * dir)
+{
+/**************************************
+ *
+ *      g d s _ _ t m p _ f i l e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create and open a temp file with a given location.
+ *      Unless the address of a buffer for the expanded file name string is
+ *      given, make up the file "pre-deleted". Return -1 on failure.
+ *
+ **************************************/
+
+	IB_FILE *file;
+	TEXT file_name[256], *p, *q, *end, temp_dir[256];
+	SSHORT i;
+
+	p = file_name;
+	end = p + sizeof(file_name) - 8;
+
+#ifdef VMS
+	q = WORKFILE;
+#else
+	if (!(q = dir) && !(q = getenv("INTERBASE_TMP")) && !(q = getenv("TMP")))
+#ifdef WIN_NT
+		if ((i = (SSHORT) GetTempPath(sizeof(temp_dir), temp_dir)) &&
+			i < sizeof(temp_dir))
+			q = temp_dir;
+		else
+#endif
+			q = WORKFILE;
+#endif /* VMS */
+
+	for (; p < end && *q;)
+		*p++ = *q++;
+
+#ifndef VMS
+#if (defined PC_PLATFORM || defined WIN_NT)
+	if (p > file_name && p[-1] != '\\' && p[-1] != '/' && p < end)
+		*p++ = '\\';
+#else
+	if (p > file_name && p[-1] != '/' && p < end)
+		*p++ = '/';
+#endif
+#endif
+
+	for (q = string; p < end && *q;)
+		*p++ = *q++;
+
+	for (q = TEMP_PATTERN; *q;)
+		*p++ = *q++;
+
+	*p = 0;
+
+#if !(defined FREEBSD || defined NETBSD)
+	MKTEMP(file_name, string);
+
+	if (expanded_string)
+		strcpy(expanded_string, file_name);
+
+#ifdef VMS
+	if (flag) {
+		file = (expanded_string) ?
+			ib_fopen(file_name, "w") : ib_fopen(file_name, "w", "fop=tmd");
+		if (!file)
+			return (void *) -1;
+	}
+	else {
+		file = (expanded_string) ?
+			open(file_name, O_RDWR | O_CREAT | O_TRUNC, 0600) :
+			open(file_name, O_RDWR | O_CREAT | O_TRUNC, 0600, "fop=tmd");
+		if (file == (IB_FILE *) - 1)
+			return (void *) -1;
+	}
+#else
+	if (flag) {
+		for (i = 0; i < IO_RETRY; i++) {
+			if (file = ib_fopen(file_name, "w+"))
+				break;
+#ifndef NETWARE_386
+			if (!SYSCALL_INTERRUPTED(errno))
+				return (void *) -1;
+#endif
+		}
+		if (!file)
+			return (void *) -1;
+	}
+	else {
+		for (i = 0; i < IO_RETRY; i++) {
+			file =
+				(IB_FILE *) (int) open(file_name,
+									   O_RDWR | O_CREAT | O_TRUNC | O_BINARY,
+									   0600);
+			if (file != (IB_FILE *) - 1)
+				break;
+#ifndef NETWARE_386
+			if (!SYSCALL_INTERRUPTED(errno))
+				return (void *) -1;
+#endif
+		}
+		if (file == (IB_FILE *) - 1)
+			return (void *) -1;
+	}
+
+	if (!expanded_string)
+		unlink(file_name);
+#endif
+
+#else /* defined FREEBSD/NETBSD */
+	file = (IB_FILE *) mkstemp(file_name);
+	if (file == (IB_FILE *) - 1)
+		return (void *) -1;
+
+	if (flag)
+		if (!(file = fdopen((int) file, "w+")))
+			return (void *) -1;
+
+	if (expanded_string)
+		strcpy(expanded_string, file_name);
+
+	if (!expanded_string) {
+		unlink(file_name);
+	}
+#endif /* FREEBSD/NETBSD */
+
+	return (void *) file;
+}
+
+
+void API_ROUTINE gds__unregister_cleanup(FPTR_VOID_PTR routine, void *arg)
+{
+/**************************************
+ *
+ *	g d s _ u n r e g i s t e r _ c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unregister a cleanup handler.
+ *
+ **************************************/
+	CLEAN *clean_ptr, clean;
+
+	for (clean_ptr = &cleanup_handlers; clean = *clean_ptr;
+		 clean_ptr = &clean->clean_next) if (clean->clean_routine == routine
+											 && clean->clean_arg == arg) {
+			*clean_ptr = clean->clean_next;
+			FREE_LIB_MEMORY(clean);
+			break;
+		}
+}
+
+
+#ifndef VMS
+BOOLEAN API_ROUTINE gds__validate_lib_path(TEXT * module,
+										   TEXT * ib_env_var,
+										   TEXT * resolved_module,
+										   SLONG length)
+{
+/**************************************
+ *
+ *	g d s _ $ v a l i d a t e _ l i b _ p a t h	( n o n - V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the InterBase external library path variable.
+ *	Validate that the path to the library module name 
+ *	in the path specified.  If the external lib path
+ *	is not defined then accept any path, and return 
+ *	TRUE. If the module is in the path then return TRUE 
+ * 	else, if the module is not in the path return FALSE.
+ *
+ **************************************/
+	TEXT *p, *q;
+	TEXT *token;
+	TEXT abs_module[MAXPATHLEN];
+	TEXT abs_module_path[MAXPATHLEN];
+	TEXT abs_path[MAXPATHLEN];
+	TEXT path[MAXPATHLEN];
+	TEXT temp_ib_lib_path[MAXPATHLEN];
+	TEXT *ib_ext_lib_path = 0;
+
+	if (!(ib_ext_lib_path = getenv(ib_env_var))) {
+#ifdef WIN_NT
+		ib_ext_lib_path = temp_ib_lib_path;
+		if (ISC_get_registry_var(ib_env_var, ib_ext_lib_path, MAXPATHLEN, 0)
+			<= 0)
+#endif /* WIN_NT */
+		{
+			strncpy(resolved_module, module, length);
+			return TRUE;		/* The variable is not defined.  Retrun TRUE */
+		}
+	}
+
+	if (EXPAND_PATH(module, abs_module)) {
+		/* Extract the path from the absolute module name */
+		for (p = abs_module, q = NULL; *p; p++)
+			if ((*p == '\\') || (*p == '/'))
+				q = p;
+
+		memset(abs_module_path, 0, MAXPATHLEN);
+		strncpy(abs_module_path, abs_module, q - abs_module);
+
+		/* Check to see if the module path is in the lib path
+		   if it is return TURE.  If it does not find it, then
+		   the module path is not valid so return FALSE */
+		token = strtok(ib_ext_lib_path, ";");
+		while (token != NULL) {
+			strcpy(path, token);
+			/* make sure that there is no traing slash on the path */
+			p = path + strlen(path);
+			if ((p != path) && ((p[-1] == '/') || (p[-1] == '\\')))
+				p[-1] = 0;
+			if ((EXPAND_PATH(path, abs_path))
+				&& (!COMPARE_PATH(abs_path, abs_module_path))) {
+				strncpy(resolved_module, abs_module, length);
+				return TRUE;
+			}
+			token = strtok(NULL, ";");
+		}
+	}
+	return FALSE;
+}
+#endif
+
+
+#ifdef VMS
+BOOLEAN API_ROUTINE gds__validate_lib_path(TEXT * module,
+										   TEXT * ib_env_var,
+										   TEXT * resolved_module,
+										   SLONG length)
+{
+/**************************************
+ *
+ *	g d s _ $ v a l i d a t e _ l i b _ p a t h	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the InterBase external library path variable.
+ *	Validate that the path to the library module name 
+ *	in the path specified.  If the external lib path
+ *	is not defined then accept any path, and return true.
+ * 	If the module is not in the path return FALSE.
+ *
+ **************************************/
+	TEXT *p, *q;
+	TEXT path[MAXPATHLEN];
+	TEXT abs_module_path[MAXPATHLEN];
+	TEXT abs_module[MAXPATHLEN];
+
+/* Check for the existence of an InterBase logical name.  If there is 
+   one use it, otherwise use the system directories. */
+
+	COMPILER ERROR ! BEFORE DOING A VMS POST PLEASE
+		MAKE SURE THAT THIS FUNCTION WORKS THE SAME WAY
+		AS THE NON -
+		VMS ONE
+		DOES.if (!
+				 (ISC_expand_logical_once
+				  (ib_env_var, strlen(ib_env_var) - 2, path))) return TRUE;
+
+	if (ISC_expand_logical_once(module, strlen(module) - 2, abs_module)) {
+		/* Extract the path from the module name */
+		for (p = abs_module, q = NULL; *p; p++)
+			if (*p == ']')
+				q = p;
+
+		memset(abs_module_path, 0, MAXPATHLEN);
+		strncpy(abs_module_path, abs_module, q - abs_module + 1);
+
+		/* Check to see if the module path is the same as lib path
+		   if it is return TURE.  If not then the module path is 
+		   not valid so return FALSE */
+		if (!strcmp(path, abs_module_path))
+			return TRUE;
+	}
+	return FALSE;
+}
+#endif
+
+
+SLONG API_ROUTINE gds__vax_integer(UCHAR * ptr, SSHORT length)
+{
+/**************************************
+ *
+ *	g d s _ $ v a x _ i n t e g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up (and convert) a VAX style integer of length 1, 2, or 4
+ *	bytes.
+ *
+ **************************************/
+	SLONG value;
+	SSHORT shift;
+
+	value = shift = 0;
+
+	while (--length >= 0) {
+		value += ((SLONG) * ptr++) << shift;
+		shift += 8;
+	}
+
+	return value;
+}
+
+
+void API_ROUTINE gds__vtof(
+						   register SCHAR * string,
+						   register SCHAR * field, register USHORT length)
+{
+/**************************************
+ *
+ *	g d s _ v t o f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a null terminated string to a fixed length
+ *	field.  The call is primarily generated  by the
+ *	preprocessor.
+ *
+ **************************************/
+
+	while (*string) {
+		*field++ = *string++;
+		if (--length <= 0)
+			return;
+	}
+
+	if (length > 0)
+		do
+			*field++ = ' ';
+		while (--length);
+}
+
+
+void API_ROUTINE gds__vtov(CONST SCHAR* string, SCHAR* field, SSHORT length)
+{
+/**************************************
+ *
+ *	g d s _ v t o v
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a null terminated string to a fixed length
+ *	field.  The call is primarily generated  by the
+ *	preprocessor.  Until gds__vtof, the target string
+ *	is null terminated.
+ *
+ **************************************/
+
+	--length;
+
+	while ((*field++ = *string++) != NULL)
+		if (--length <= 0) {
+			*field = 0;
+			return;
+		}
+}
+
+
+void API_ROUTINE isc_print_sqlerror(SSHORT sqlcode, STATUS * status)
+{
+/**************************************
+ *
+ *	i s c _ p r i n t _ s q l e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given an sqlcode, give as much info as possible.
+ *      Decide whether status is worth mentioning.
+ *
+ **************************************/
+	TEXT error_buffer[192], *p;
+
+	sprintf(error_buffer, "SQLCODE: %d\nSQL ERROR:\n", sqlcode);
+	for (p = error_buffer; *p;)
+		p++;
+	isc_sql_interprete(sqlcode, p,
+					   (SSHORT) (sizeof(error_buffer) - (p - error_buffer) -
+								 2));
+	while (*p)
+		p++;
+	*p++ = '\n';
+	*p = 0;
+	gds__put_error(error_buffer);
+
+	if (status && status[1]) {
+		gds__put_error("ISC STATUS: ");
+		gds__print_status(status);
+	}
+}
+
+
+void API_ROUTINE isc_sql_interprete(
+									SSHORT sqlcode,
+									TEXT * buffer, SSHORT length)
+{
+/**************************************
+ *
+ *	i s c _ s q l _ i n t e r p r e t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given an sqlcode, return a buffer full of message
+ *	This is very simple because all we have is the
+ *      message number, and the sqlmessages have as yet no
+ *	arguments
+ *
+ *	NOTE: As of 21-APR-1999, sqlmessages HAVE arguments hence use
+ *	      an empty string instead of NULLs.
+ *	      
+ **************************************/
+	TEXT *str = "";
+
+	if (sqlcode < 0)
+		gds__msg_format(0, 13, (USHORT) (1000 + sqlcode), length, buffer,
+						str, str, str, str, str);
+	else
+		gds__msg_format(0, 14, sqlcode, length, buffer,
+						str, str, str, str, str);
+}
+
+
+#ifdef NETWARE_386
+int gettimeofday(struct timeval *tp, struct timezon *tzp)
+{
+/**************************************
+ *
+ *      g e t t i m e o f d a y		( N E T W A R E )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Compute time of day on NETWARE.
+ *
+ **************************************/
+	time_t buffer;
+
+	time(&buffer);
+
+	if (tp) {
+		tp->tv_sec = (SLONG) buffer;	/* since 1/1/1970 */
+		tp->tv_usec = 0L;
+	}
+	if (tzp) {
+		tzset();
+		tzp->tz_minuteswest = timezone / 60;	/* Netware in seconds */
+		tzp->tz_dsttime = daylight;
+	}
+
+	return 0;
+}
+#endif
+
+
+#ifdef VMS
+int unlink(SCHAR * file)
+{
+/**************************************
+ *
+ *	u n l i n k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of a file and all of its versions.
+ *
+ **************************************/
+	int status;
+	struct dsc$descriptor_s desc;
+
+	ISC_make_desc(file, &desc, 0);
+
+	for (;;) {
+		status = lib$delete_file(&desc);
+		if (!(status & 1))
+			break;
+	}
+
+	if (!status)
+		return 0;
+	else if (status != RMS$_FNF)
+		return -1;
+	else
+		return 0;
+}
+#endif
+
+
+static void blr_error(CTL control, TEXT * string, TEXT * arg1)
+{
+/**************************************
+ *
+ *	b l r _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report back an error message and unwind.
+ *
+ **************************************/
+	USHORT offset;
+
+	blr_format(control, string, arg1);
+	offset = 0;
+	PRINT_LINE;
+	LONGJMP(env, -1);
+}
+
+
+static void blr_format(CTL control, TEXT * string, ...)
+{
+/**************************************
+ *
+ *	b l r _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format an utterance.
+ *
+ **************************************/
+	va_list ptr;
+
+	VA_START(ptr, string);
+	vsprintf(control->ctl_ptr, string, ptr);
+	while (*control->ctl_ptr)
+		control->ctl_ptr++;
+}
+
+
+static void blr_indent(CTL control, SSHORT level)
+{
+/**************************************
+ *
+ *	b l r _ i n d e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Indent for pretty printing.
+ *
+ **************************************/
+
+	level *= 3;
+	while (--level >= 0)
+		PUT_BYTE(' ');
+}
+
+
+
+static void blr_print_blr(CTL control, UCHAR operator_)
+{
+/**************************************
+ *
+ *	b l r _ p r i n t _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a blr item.
+ *
+ **************************************/
+	SCHAR *p;
+
+	if (operator_ > (sizeof(blr_table) / sizeof(blr_table[0])) ||
+		!(p = (SCHAR *) /* const_cast */ blr_table[operator_].blr_string))
+		blr_error(control, "*** blr operator %d is undefined ***",
+				  (TEXT *) operator_);
+
+	blr_format(control, "blr_%s, ", p);
+}
+
+
+static SCHAR blr_print_byte(CTL control)
+{
+/**************************************
+ *
+ *	b l r _ p r i n t _ b y t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a byte as a numeric value and return same.
+ *
+ **************************************/
+	UCHAR v;
+
+	v = BLR_BYTE;
+	blr_format(control, (control->ctl_language) ? "chr(%d), " : "%d, ",
+			   (TEXT *) v);
+
+	return v;
+}
+
+
+static blr_print_char(CTL control)
+{
+/**************************************
+ *
+ *	b l r _ p r i n t _ c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a byte as a numeric value and return same.
+ *
+ **************************************/
+	SCHAR c;
+	UCHAR v;
+	SSHORT printable;
+
+	v = c = BLR_BYTE;
+	printable = (c >= 'a' && c <= 'z') ||
+		(c >= 'A' && c <= 'Z') ||
+		(c >= '0' && c <= '9' || c == '$' || c == '_');
+
+	if (printable)
+		blr_format(control, "'%c',", (TEXT *) c);
+	else if (control->ctl_language)
+		blr_format(control, "chr(%d),", (TEXT *) v);
+	else
+		blr_format(control, "%d,", (TEXT *) c);
+
+	return c;
+}
+
+
+static void blr_print_cond(CTL control)
+{
+/**************************************
+ *
+ *	b l r _ p r i n t _ c o n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print an error condition.
+ *
+ **************************************/
+	USHORT ctype;
+	SSHORT n;
+
+	ctype = BLR_BYTE;
+
+	switch (ctype) {
+	case blr_gds_code:
+		blr_format(control, "blr_gds_code, ");
+		n = PRINT_BYTE;
+		while (--n >= 0)
+			PRINT_CHAR;
+		break;
+
+	case blr_exception:
+		blr_format(control, "blr_exception, ");
+		n = PRINT_BYTE;
+		while (--n >= 0)
+			PRINT_CHAR;
+		break;
+
+	case blr_sql_code:
+		blr_format(control, "blr_sql_code, ");
+		PRINT_WORD;
+		break;
+
+	case blr_default_code:
+		blr_format(control, "blr_default_code, ");
+		break;
+
+	default:
+		blr_error(control, "*** invalid condition type ***", NULL);
+		break;
+	}
+	return;
+}
+
+
+static blr_print_dtype(CTL control)
+{
+/**************************************
+ *
+ *	b l r _ p r i n t _ d t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a datatype sequence and return the length of the
+ *	data described.
+ *
+ **************************************/
+	USHORT dtype;
+	SCHAR *string;
+	SSHORT length;
+	UCHAR v1, v2;
+
+	dtype = BLR_BYTE;
+
+/* Special case blob (261) to keep down the size of the
+   jump table */
+
+	switch (dtype) {
+	case blr_short:
+		string = "short";
+		length = 2;
+		break;
+
+	case blr_long:
+		string = "long";
+		length = 4;
+		break;
+
+	case blr_int64:
+		string = "int64";
+		length = 8;
+		break;
+
+	case blr_quad:
+		string = "quad";
+		length = 8;
+		break;
+
+	case blr_timestamp:
+		string = "timestamp";
+		length = 8;
+		break;
+
+	case blr_sql_time:
+		string = "sql_time";
+		length = 4;
+		break;
+
+	case blr_sql_date:
+		string = "sql_date";
+		length = 4;
+		break;
+
+	case blr_float:
+		string = "float";
+		length = 4;
+		break;
+
+	case blr_double:
+		string = "double";
+
+		/* for double literal, return the length of the numeric string */
+
+		v1 = *(control->ctl_blr);
+		v2 = *(control->ctl_blr + 1);
+		length = ((v2 << 8) | v1) + 2;
+		break;
+
+	case blr_d_float:
+		string = "d_float";
+		length = 8;
+		break;
+
+	case blr_text:
+		string = "text";
+		break;
+
+	case blr_cstring:
+		string = "cstring";
+		break;
+
+	case blr_varying:
+		string = "varying";
+		break;
+
+	case blr_text2:
+		string = "text2";
+		break;
+
+	case blr_cstring2:
+		string = "cstring2";
+		break;
+
+	case blr_varying2:
+		string = "varying2";
+		break;
+
+	default:
+		blr_error(control, "*** invalid data type ***", NULL);
+		break;
+	}
+
+	blr_format(control, "blr_%s, ", string);
+
+	switch (dtype) {
+	case blr_text:
+		length = PRINT_WORD;
+		break;
+
+	case blr_varying:
+		length = PRINT_WORD + 2;
+		break;
+
+	case blr_short:
+	case blr_long:
+	case blr_quad:
+	case blr_int64:
+		PRINT_BYTE;
+		break;
+
+	case blr_text2:
+		PRINT_WORD;
+		length = PRINT_WORD;
+		break;
+
+	case blr_varying2:
+		PRINT_WORD;
+		length = PRINT_WORD + 2;
+		break;
+
+	case blr_cstring2:
+		PRINT_WORD;
+		length = PRINT_WORD;
+		break;
+
+	default:
+		if (dtype == blr_cstring)
+			length = PRINT_WORD;
+		break;
+	}
+
+	return length;
+}
+
+
+static void blr_print_join(CTL control)
+{
+/**************************************
+ *
+ *	b l r _ p r i n t _ j o i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a join type.
+ *
+ **************************************/
+	USHORT join_type;
+	SCHAR *string;
+
+	join_type = BLR_BYTE;
+
+	switch (join_type) {
+	case blr_inner:
+		string = "inner";
+		break;
+
+	case blr_left:
+		string = "left";
+		break;
+
+	case blr_right:
+		string = "right";
+		break;
+
+	case blr_full:
+		string = "full";
+		break;
+
+	default:
+		blr_error(control, "*** invalid join type ***", NULL);
+		break;
+	}
+
+	blr_format(control, "blr_%s, ", string);
+}
+
+
+static SLONG blr_print_line(CTL control, SSHORT offset)
+{
+/**************************************
+ *
+ *	b l r _ p r i n t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Invoke callback routine to print (or do something with) a line.
+ *
+ **************************************/
+
+	*control->ctl_ptr = 0;
+
+#pragma FB_COMPILER_MESSAGE("Fix! Ugly function pointer cast!")
+
+	((void (*)(...)) (*control->ctl_routine)) (control->ctl_user_arg, offset, control->ctl_buffer);
+	control->ctl_ptr = control->ctl_buffer;
+
+	return control->ctl_blr - control->ctl_blr_start;
+}
+
+
+static void blr_print_verb(CTL control, SSHORT level)
+{
+/**************************************
+ *
+ *	b l r _ p r i n t _ v e r b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Primary recursive routine to print BLR.
+ *
+ **************************************/
+	SSHORT n, n2;
+	SLONG offset;
+
+	offset = control->ctl_blr - control->ctl_blr_start;
+	blr_indent(control, level);
+	UCHAR operator_ = BLR_BYTE;
+
+	if ((SCHAR) operator_ == (SCHAR) blr_end) {
+		blr_format(control, "blr_end, ");
+		PRINT_LINE;
+		return;
+	}
+
+	blr_print_blr(control, operator_);
+	level++;
+	const UCHAR *ops = blr_table[operator_].blr_operators;
+
+	while (*ops)
+		switch (*ops++) {
+		case op_verb:
+			PRINT_VERB;
+			break;
+
+		case op_line:
+			offset = PRINT_LINE;
+			break;
+
+		case op_byte:
+			n = PRINT_BYTE;
+			break;
+
+		case op_word:
+			n = PRINT_WORD;
+			break;
+
+		case op_pad:
+			PUT_BYTE(' ');
+			break;
+
+		case op_dtype:
+			n = PRINT_DTYPE;
+			break;
+
+		case op_literal:
+			while (--n >= 0)
+				PRINT_CHAR;
+			break;
+
+		case op_join:
+			PRINT_JOIN;
+			break;
+
+		case op_message:
+			while (--n >= 0) {
+				blr_indent(control, level);
+				PRINT_DTYPE;
+				offset = PRINT_LINE;
+			}
+			break;
+
+		case op_parameters:
+			level++;
+			while (--n >= 0)
+				PRINT_VERB;
+			level--;
+			break;
+
+		case op_error_handler:
+			while (--n >= 0) {
+				blr_indent(control, level);
+				PRINT_COND;
+				offset = PRINT_LINE;
+			}
+			break;
+
+		case op_set_error:
+			PRINT_COND;
+			break;
+
+		case op_indent:
+			blr_indent(control, level);
+			break;
+
+		case op_begin:
+			while ((SCHAR) * (control->ctl_blr) != (SCHAR) blr_end)
+				PRINT_VERB;
+			break;
+
+		case op_map:
+			while (--n >= 0) {
+				blr_indent(control, level);
+				PRINT_WORD;
+				offset = PRINT_LINE;
+				PRINT_VERB;
+			}
+			break;
+
+		case op_args:
+			while (--n >= 0)
+				PRINT_VERB;
+			break;
+
+		case op_literals:
+			while (--n >= 0) {
+				blr_indent(control, level);
+				n2 = PRINT_BYTE;
+				while (--n2 >= 0)
+					PRINT_CHAR;
+				offset = PRINT_LINE;
+			}
+			break;
+
+		case op_union:
+			while (--n >= 0) {
+				PRINT_VERB;
+				PRINT_VERB;
+			}
+			break;
+
+		case op_relation:
+			operator_ = BLR_BYTE;
+			blr_print_blr(control, operator_);
+			if (operator_ != blr_relation && operator_ != blr_rid)
+				blr_error(control,
+						  "*** blr_relation or blr_rid must be object of blr_lock_relation, %d found ***",
+						  (TEXT *) operator_);
+
+			if (operator_ == blr_relation) {
+				n = PRINT_BYTE;
+				while (--n >= 0)
+					PRINT_CHAR;
+			}
+			else
+				PRINT_WORD;
+			break;
+
+		default:
+			assert(FALSE);
+			break;
+		}
+}
+
+
+static int blr_print_word(CTL control)
+{
+/**************************************
+ *
+ *	b l r _ p r i n t _ w o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a VAX word as a numeric value an return same.
+ *
+ **************************************/
+	UCHAR v1, v2;
+
+	v1 = BLR_BYTE;
+	v2 = BLR_BYTE;
+	blr_format(control,
+			   (control->ctl_language) ? "chr(%d),chr(%d), " : "%d,%d, ",
+			   (TEXT *) v1, (TEXT *) v2);
+
+	return (v2 << 8) | v1;
+}
+
+
+void gds__cleanup(void)
+{
+/**************************************
+ *
+ *	c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Exit handler for image exit.
+ *
+ **************************************/
+	CLEAN clean;
+	FPTR_VOID_PTR routine;
+	void *arg;
+
+#ifdef UNIX
+	if (gds_pid != getpid())
+		return;
+#endif
+
+	gds__msg_close(NULL);
+
+	while (clean = cleanup_handlers) {
+		cleanup_handlers = clean->clean_next;
+		routine = clean->clean_routine;
+		arg = clean->clean_arg;
+
+		/* We must free the handler before calling it because there
+		   may be a handler (and is) that frees all memory that has
+		   been allocated. */
+
+		FREE_LIB_MEMORY(clean);
+
+#pragma FB_COMPILER_MESSAGE("Fix! Ugly function pointer cast!")
+
+		((void (*)(void *)) (*routine)) (arg);
+	}
+
+	V4_MUTEX_DESTROY(&alloc_mutex);
+/* V4_DESTROY; */
+	initialized = 0;
+}
+
+
+static void cleanup_malloced_memory(void *arg)
+{
+/**************************************
+ *
+ *	c l e a n u p _ m a l l o c e d _ m e m o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return the real memory that was acquired in gds__alloc
+ *	to the system.  Refer to gds__alloc for the cases when
+ *	the malloc pointer is saved and when the malloc pointer
+ *	is not saved.
+ *	This substantive work of this function is only turned on
+ *	for Novell.
+ *
+ **************************************/
+	void *ptr;
+
+#ifdef NETWARE_386
+#ifdef DEBUG_GDS_ALLOC
+	gds_alloc_report(ALLOC_verbose, __FILE__, __LINE__);
+#endif
+#endif
+
+#if (defined (NETWARE_386) || defined (WIN_NT) || defined (UNIX))
+	while (ptr = malloced_memory) {
+		malloced_memory = reinterpret_cast < void **>(*malloced_memory);
+		free(ptr);
+	}
+#endif
+
+	pool = NULL;
+
+#if (defined SOLARIS && defined SUPERSERVER)
+
+/* Close the file used as the basis for generating
+   anonymous virtual memory. Since it is created
+   pre-deleted there's no need to unlink it here. */
+
+	close(anon_fd);
+	anon_fd = -1;
+#endif
+}
+
+
+static ULONG free_memory(void *blk)
+{
+/**************************************
+ *
+ *	f r e e _ m e m o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block allocated by gds__alloc.  Return number
+ *	of bytes released.
+ *
+ **************************************/
+	register FREE HUGE_PTR *ptr, prior, free_blk, block;
+	SLONG length;
+
+#ifdef DEV_BUILD
+	if (!blk) {
+		DEV_REPORT("gds__free: Tried to free NULL\n");
+		BREAKPOINT(__LINE__);
+		return 0;
+	}
+#endif
+
+	block = (FREE) ((UCHAR *) blk - ALLOC_HEADER_SIZE);
+	blk = block;
+
+#ifdef DEV_BUILD
+	gds_delta_alloc -= *((ULONG *) blk);
+#endif
+	length = block->free_length = *((ULONG *) blk);
+
+#ifdef DEBUG_GDS_ALLOC
+	block->free_count = gds_free_call_count;
+	if (gds_bug_free_count && (gds_free_call_count == gds_bug_free_count)) {
+		PRINTF("gds__free call %d reached, address=%lx\n", gds_bug_free_count,
+			   blk);
+		BREAKPOINT(__LINE__);
+	}
+#endif
+
+#ifdef DEV_BUILD
+	if (length <= ALLOC_OVERHEAD) {
+		DEV_REPORT("gds__free: attempt to release bad block (too small)\n");	/* TXNN */
+		BREAKPOINT(__LINE__);
+		return 0;
+	}
+#endif
+
+#ifdef NETWARE_386
+	if (regular_malloc) {
+		free(blk);
+		return length - ALLOC_OVERHEAD;
+	}
+#endif
+
+/* Find the logical place in the free block list for the returning
+   block.  If it adjoins existing blocks, merge it (them). */
+
+	prior = NULL;
+
+	for (ptr = &pool; (free_blk = *ptr) != NULL;
+		 prior = free_blk, ptr = &free_blk->free_next) {
+		if (free_blk->free_next
+			&& (UCHAR HUGE_PTR *) free_blk >=
+			(UCHAR HUGE_PTR *) free_blk->free_next) {
+			DEV_REPORT("gds__free: pool corrupted");	/* TXNN */
+			BREAKPOINT(__LINE__);
+			free_blk = *ptr = NULL;
+			break;
+		}
+		if ((UCHAR HUGE_PTR *) block < (UCHAR HUGE_PTR *) free_blk)
+			break;
+	}
+
+/* Make sure everything is completely kosher */
+
+	if (block->free_length <= 0 ||
+		(prior
+		 && (UCHAR HUGE_PTR *) block <
+		 (UCHAR HUGE_PTR *) prior + prior->free_length) || (free_blk
+															&& (UCHAR HUGE_PTR
+																*) block +
+															block->free_length
+															>
+															(UCHAR HUGE_PTR *)
+															free_blk)) {
+		DEV_REPORT("gds__free: attempt to release bad block\n");	/* TXNN */
+		BREAKPOINT(__LINE__);
+		return 0;
+	}
+
+/* Start by linking block into chain */
+
+	block->free_next = free_blk;
+	*ptr = block;
+
+/* Try to merge the free block with the next block */
+
+	if (free_blk
+		&& (UCHAR HUGE_PTR *) block + block->free_length ==
+		(UCHAR HUGE_PTR *) free_blk) {
+		block->free_length += free_blk->free_length;
+		block->free_next = free_blk->free_next;
+#ifdef DEBUG_GDS_ALLOC
+		/* We're making a larger free chuck - be sure to color the header
+		 * of the "merged" block as freed space 
+		 */
+		memset(free_blk, ALLOC_FREED_PATTERN, sizeof(struct free));
+#endif
+	}
+
+/* Next, try to merge the free block with the prior block */
+
+	if (prior
+		&& (UCHAR HUGE_PTR *) prior + prior->free_length ==
+		(UCHAR HUGE_PTR *) block) {
+		prior->free_length += block->free_length;
+		prior->free_next = block->free_next;
+#ifdef DEBUG_GDS_ALLOC
+		/* We're making a larger free chuck - be sure to color the header
+		 * of the "merged" block as freed space 
+		 */
+		memset(block, ALLOC_FREED_PATTERN, sizeof(struct free));
+#endif
+	}
+
+#ifdef DEBUG_GDS_ALLOC
+	if (gds_bug_free_count && (gds_free_call_count >= gds_bug_free_count))
+		gds_alloc_report(ALLOC_silent, __FILE__, __LINE__);
+#endif
+
+/* The number of bytes freed from the user's point
+   of view - eg: the block length, less the malloc overhead */
+
+	if (length % (1024 + ALLOC_OVERHEAD) == 0) {
+		return (length - ALLOC_OVERHEAD * (length / (1024 + ALLOC_OVERHEAD)));
+	}
+
+	return length - ALLOC_OVERHEAD;
+}
+
+
+static void init(void)
+{
+/**************************************
+ *
+ *	i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do anything necessary to initialize module/system.
+ *
+ **************************************/
+#if defined(VMS)
+	STATUS status;
+#endif
+
+	if (initialized)
+		return;
+
+#ifdef DEBUG_GDS_ALLOC
+	{
+		char *t = getenv("DEBUG_GDS_ALLOC");
+		if (t) {
+			/* Set which call to gds__alloc starts full memory debugging */
+			if (*t >= '0' && *t <= '9')
+				gds_alloc_state = atoi(t);
+			else
+				gds_alloc_state = 0;
+		}
+		t = getenv("DEBUG_GDS_ALLOC_NOMEM");
+		if (t) {
+			/* Set which call to gds__alloc "exhausts" available memory */
+			if (*t >= '0' && *t <= '9')
+				gds_alloc_nomem = atoi(t);
+			else
+				gds_alloc_nomem = 0;
+		}
+		/* Open the memory debugging configuration file, if any. */
+
+		IB_FILE *file = ib_fopen(DBG_MEM_FILE, "r");
+		if (file) {
+			ib_fscanf(file, "%ld", &gds_bug_alloc_count);
+			ib_fscanf(file, "%ld", &gds_bug_free_count);
+			PRINTF("gds_bug_alloc_count=%d, gds_bug_free_count=%d\n",
+				   gds_bug_alloc_count, gds_bug_free_count);
+			ib_fclose(file);
+		}
+	}
+	BREAKPOINT(__LINE__);
+#endif /* DEBUG_GDS_ALLOC */
+
+	/* V4_INIT; */
+	/* V4_GLOBAL_MUTEX_LOCK; */
+	if (initialized) {
+		/*  V4_GLOBAL_MUTEX_UNLOCK; */
+		return;
+	}
+
+	V4_MUTEX_INIT(&alloc_mutex);
+
+#ifdef VMS
+	exit_description.exit_handler = cleanup;
+	exit_description.args = 1;
+	exit_description.arg[0] = &exit_status;
+	status = sys$dclexh(&exit_description);
+#endif
+
+#ifdef UNIX
+	gds_pid = getpid();
+#ifdef SUPERSERVER
+#if (defined SOLARIS || defined HP10 || defined LINUX)
+	{
+		/* Increase max open files to hard limit for Unix
+		   platforms which are known to have low soft limits. */
+
+		struct rlimit old, new;
+
+		if (!getrlimit(RLIMIT_NOFILE, &old) && old.rlim_cur < old.rlim_max) {
+			new.rlim_cur = new.rlim_max = old.rlim_max;
+			if (!setrlimit(RLIMIT_NOFILE, &new))
+				gds__log("Open file limit increased from %d to %d",
+						 old.rlim_cur, new.rlim_cur);
+		}
+	}
+#endif
+#endif /* SUPERSERVER */
+#endif /* UNIX */
+
+#ifdef ATEXIT
+	ATEXIT(gds__cleanup);
+#endif
+
+	initialized = 1;
+
+	gds__register_cleanup(cleanup_malloced_memory, 0);
+
+#ifndef REQUESTER
+	ISC_signal_init();
+#endif
+
+	/* V4_GLOBAL_MUTEX_UNLOCK; */
+}
+
+
+static int yday(struct tm *times)
+{
+/**************************************
+ *
+ *	y d a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a calendar date to the day-of-year.
+ *
+ *	The unix time structure considers
+ *	january 1 to be Year day 0, although it
+ *	is day 1 of the month.   (Note that QLI,
+ *	when printing Year days takes the other
+ *	view.)   
+ *
+ **************************************/
+	SSHORT day, month, year;
+	CONST BYTE *days;
+	static CONST BYTE month_days[] =
+		{ 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
+
+	day = times->tm_mday;
+	month = times->tm_mon;
+	year = times->tm_year + 1900;
+
+	--day;
+
+	for (days = month_days; days < month_days + month; days++)
+		day += *days;
+
+	if (month < 2)
+		return day;
+
+/* Add a day as we're past the leap-day */
+	if (!(year % 4))
+		day++;
+
+/* Ooops - year's divisible by 100 aren't leap years */
+	if (!(year % 100))
+		day--;
+
+/* Unless they are also divisible by 400! */
+	if (!(year % 400))
+		day++;
+
+	return day;
+}
+
+
+#if (defined SOLARIS && defined SUPERSERVER)
+static UCHAR *mmap_anon(SLONG size)
+{
+/**************************************
+ *
+ *	m m a p _ a n o n			(S O L A R I S)
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate anonymous virtual memory for Solaris.
+ *	Use an arbitrary file descriptor as a basis
+ *	for file mapping.
+ *
+ **************************************/
+	UCHAR *memory, *va, *va_end, *va1;
+	ULONG chunk, errno1;
+
+/* Choose SYS_ALLOC_CHUNK such that it is always valid for the
+   underlying mapped file and is a multiple of any conceivable
+   memory page size that a hardware platform might support. */
+
+#define SYS_ALLOC_CHUNK	0x20000	/* 131,072 bytes */
+
+/* All virtual addresses generated will be remapped or wrapped around
+   to the start of the mapped file. The mapped file must be at least
+   SYS_ALLOC_CHUCK large to guarantee valid memory references. */
+
+	if (anon_fd == -1) {
+		anon_fd = (int) gds__temp_file(FALSE, "gds_anon", NULL);
+		while (ftruncate(anon_fd, SYS_ALLOC_CHUNK) == -1)
+			if (!SYSCALL_INTERRUPTED(errno)) {
+				close(anon_fd);
+				anon_fd = -1;
+				ERR_post(isc_sys_request, isc_arg_string, "ftruncate",
+						 isc_arg_unix, errno, 0);
+			}
+	}
+
+/* Get memory page size for virtual memory checking. */
+
+	if (page_size == -1 && (page_size = sysconf(_SC_PAGESIZE)) == -1)
+		ERR_post(isc_sys_request, isc_arg_string, "sysconf", isc_arg_unix,
+				 errno, 0);
+
+/* Generate a virtually contiguous address space for size requested.
+   MAP_PRIVATE is critical here, otherwise the mapped file turns to jelly. */
+
+	memory = mmap(0, size, (PROT_READ | PROT_WRITE), MAP_PRIVATE, anon_fd, 0);
+	if (memory == MAP_FAILED) {
+		/* If no swap space or memory available maybe caller can ask for less.
+		   Punt on unexpected errors. */
+
+		if (errno == EAGAIN || errno == ENOMEM)
+			return NULL;
+		else
+			ERR_post(isc_sys_request, isc_arg_string, "mmap", isc_arg_unix,
+					 errno, 0);
+	}
+
+/* Memory returned from mmap should always be page-aligned. */
+
+	assert(((ULONG) memory & (page_size - 1)) == 0);
+
+/* Some of this virtual address space may be invalid because the
+   mapped file isn't large enough, remap all virtual addresses to
+   the beginning of the file which will validate the illegal memory
+   references. The use of MAP_FIXED guarantees that the virtual
+   address space remains contiguous during this legerdemain. */
+
+	va = memory;
+	va_end = memory + size;
+
+	for (va += SYS_ALLOC_CHUNK; va < va_end; va += chunk) {
+		chunk = MIN(va_end - va, SYS_ALLOC_CHUNK);
+		va1 = mmap(va, chunk, (PROT_READ | PROT_WRITE),
+				   (MAP_PRIVATE | MAP_FIXED), anon_fd, 0);
+		if (va1 != va) {
+			assert(FALSE);
+			errno1 = errno;
+			munmap(memory, size);
+			ERR_post(isc_sys_request, isc_arg_string, "mmap", isc_arg_unix,
+					 errno1, 0);
+		}
+	}
+
+/* All modfiy references will transparently revector from the mapped
+   file to private memory backed by the swap file. However, since the
+   database buffer pool uses this allocation mechanism, make the
+   revectoring happen now by touching each memory page. This protects
+   against DMA (Direct Memory Access) transfers used by "raw" I/O
+   device interfaces which may bypass the virtual memory manager. */
+
+	for (va = memory; va < va_end; va += page_size)
+		*(ULONG *) va = (ULONG) va;
+
+#ifdef DEV_BUILD
+/* Since the mapped object is mapped repeatedly by different
+   chunks of the virtual address space, check the same physical
+   memory pages aren't being shared by labeling each virtual page
+   with its address. Verify every page is still labeled correctly .*/
+
+	for (va = memory; va < va_end; va += page_size)
+		assert(*(ULONG *) va == (ULONG) va);
+#endif
+
+	return memory;
+}
+#endif
+
+
+static void ndate(SLONG nday, struct tm *times)
+{
+/**************************************
+ *
+ *	n d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a numeric day to [day, month, year].
+ *
+ * Calenders are divided into 4 year cycles.
+ * 3 Non-Leap years, and 1 leap year.
+ * Each cycle takes 365*4 + 1 == 1461 days.
+ * There is a further cycle of 100 4 year cycles.
+ * Every 100 years, the normally expected leap year
+ * is not present.  Every 400 years it is.
+ * This cycle takes 100 * 1461 - 3 == 146097 days
+ * The origin of the constant 2400001 is unknown.
+ * The origin of the constant 1721119 is unknown.
+ * The difference between 2400001 and 1721119 is the
+ * number of days From 0/0/0000 to our base date of
+ * 11/xx/1858. (678882)
+ * The origin of the constant 153 is unknown.
+ *
+ * This whole routine has problems with ndates
+ * less than -678882 (Approx 2/1/0000).
+ *
+ **************************************/
+	SLONG year, month, day;
+	SLONG century;
+
+	nday -= 1721119 - 2400001;
+	century = (4 * nday - 1) / 146097;
+	nday = 4 * nday - 1 - 146097 * century;
+	day = nday / 4;
+
+	nday = (4 * day + 3) / 1461;
+	day = 4 * day + 3 - 1461 * nday;
+	day = (day + 4) / 4;
+
+	month = (5 * day - 3) / 153;
+	day = 5 * day - 3 - 153 * month;
+	day = (day + 5) / 5;
+
+	year = 100 * century + nday;
+
+	if (month < 10)
+		month += 3;
+	else {
+		month -= 9;
+		year += 1;
+	}
+
+	times->tm_mday = (int) day;
+	times->tm_mon = (int) month - 1;
+	times->tm_year = (int) year - 1900;
+}
+
+
+static GDS_DATE nday(struct tm *times)
+{
+/**************************************
+ *
+ *	n d a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a calendar date to a numeric day
+ *	(the number of days since the base date).
+ *
+ **************************************/
+	SSHORT day, month, year;
+	SLONG c, ya;
+
+	day = times->tm_mday;
+	month = times->tm_mon + 1;
+	year = times->tm_year + 1900;
+
+	if (month > 2)
+		month -= 3;
+	else {
+		month += 9;
+		year -= 1;
+	}
+
+	c = year / 100;
+	ya = year - 100 * c;
+
+	return (GDS_DATE) (((SINT64) 146097 * c) / 4 +
+					   (1461 * ya) / 4 +
+					   (153 * month + 2) / 5 + day + 1721119 - 2400001);
+}
+
+
+static void sanitize(TEXT * locale)
+{
+/**************************************
+ *
+ *	s a n i t i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clean up a locale to make it acceptable for use in file names
+ *      for Windows NT, PC, and mpexl: remove any '.' or '_' for mpexl,
+ *	replace any period with '_' for NT or PC.
+ *
+ **************************************/
+	TEXT ch;
+
+	while (*locale) {
+		ch = *locale;
+		if (ch == '.')
+			*locale = '_';
+		locale++;
+	}
+}
+
+
+#ifdef DEBUG_GDS_ALLOC
+#undef gds__alloc
+
+UCHAR *API_ROUTINE gds__alloc(SLONG size)
+{
+/**************************************
+ *
+ *	g d s _ $ a l l o c     (alternate debug entrypoint)
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	NOTE: This function should be the last in the file due to
+ *	the undef of gds__alloc above.
+ *
+ *	For modules not recompiled with DEBUG_GDS_ALLOC, this provides
+ *	an entry point to malloc again.
+ *
+ **************************************/
+	return gds__alloc_debug(size, "-- Unknown --", 0);
+}
+#endif
+
+#ifdef SUPERSERVER
+static void freemap(int cod)
+{
+	FREE *next, free_blk;
+	ULONG free_list_count = 0;
+	ULONG total_free = 0;
+
+	ib_printf("\nFree Start\t\tFree Length\t\tFree End\n");
+	for (next = &pool; (free_blk = *next) != NULL; next = &(*next)->free_next) {
+		++free_list_count;
+		total_free += free_blk->free_length;
+		ib_printf("%x\t\t\t%d\t\t\t%x\n", (UCHAR HUGE_PTR *) free_blk,
+				  free_blk->free_length,
+				  (UCHAR HUGE_PTR *) (free_blk + free_blk->free_length));
+	}
+	ib_printf("Stats after %s\n", (cod) ? "Merging" : "Allocating");
+	ib_printf("Free list count    = %d\n", free_list_count);
+	ib_printf("Total Free         = %d\n", total_free);
+	gds_print_delta_counters(ib_stdout);
+}
+
+void gds_print_delta_counters(IB_FILE * fptr)
+{
+#ifdef DEV_BUILD
+	ib_fprintf(fptr, "gds_delta_alloc    = %d\n", gds_delta_alloc);
+	ib_fprintf(fptr, "gds_max_alloc      = %d\n", gds_max_alloc);
+#endif
+	ib_fprintf(fptr, "allr_delta_alloc   = %d\n", allr_delta_alloc);
+	ib_fprintf(fptr, "alld_delta_alloc   = %d\n", alld_delta_alloc);
+	ib_fprintf(fptr, "all_delta_alloc    = %d\n", all_delta_alloc);
+}
+#endif
+
+} // extern "C"
diff --git a/src/jrd/gds.def b/src/jrd/gds.def
new file mode 100644
index 0000000000..f6af773658
--- /dev/null
+++ b/src/jrd/gds.def
@@ -0,0 +1,284 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+; 
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+; 
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+; 
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;------------------------------------------------------------
+;  WHY DLL MODULE DEFINITION FILE
+;------------------------------------------------------------
+
+LIBRARY     GDS
+
+DESCRIPTION 'WHY VALVE AND DSQL INTERBASE MODULE'
+CODE MOVEABLE
+DATA MOVEABLE SINGLE
+SEGMENTS
+        _TEXT           DISCARDABLE
+        ALT_TEXT        DISCARDABLE
+        FLU_TEXT        PRELOAD
+        GDSWEP_TEXT     PRELOAD
+        LICENSE_TEXT    DISCARDABLE
+        WHY_TEXT        DISCARDABLE
+        PERF_TEXT       DISCARDABLE
+        UTL_TEXT        DISCARDABLE
+        THIN_TEXT       DISCARDABLE
+        PREPARSE_TEXT   DISCARDABLE
+        USER_DSQ_TEXT   DISCARDABLE
+        BLOB_TEXT       DISCARDABLE
+        ARRAY_TEXT      DISCARDABLE
+        DLLSHELL_TEXT   PRELOAD
+EXPORTS
+; All ordinals > 254 are new to GDS
+; Highest ordinal:  266
+; ALT.C
+	_gds__extend_dpb		    @127
+
+	_isc_attach_database		    @61
+	_isc_blob_display		    @142
+	_isc_blob_dump                      @143
+	_isc_blob_edit                      @144
+	_isc_blob_info			    @62
+	_isc_blob_load                      @145
+	_isc_cancel_blob		    @63
+	_isc_cancel_events		    @244
+	_isc_close_blob                     @64
+	_isc_commit_retaining               @65
+	_isc_commit_transaction             @66
+	_isc_compile_request                @67
+	_isc_compile_request2               @68
+	_isc_create_blob                    @69
+	_isc_create_blob2                   @70
+	_isc_create_database                @71
+	_isc_database_cleanup		    @146
+	_isc_database_info                  @72
+	_isc_ddl                            @73
+	_isc_decode_date               	    @74
+	_isc_detach_database           	    @75
+	_isc_encode_date		    @90
+	_isc_event_block                    @91
+	_isc_event_block_a                  @147
+	_isc_event_block_s                  @148
+	_isc_event_counts                   @92
+	_isc_free			    @222
+	_isc_ftof                           @93
+	_isc_get_segment                    @94
+	_isc_get_slice                      @95
+	_isc_interprete                     @96
+	_isc_open_blob                      @97
+	_isc_open_blob2                     @98
+	_isc_prepare_transaction            @99
+	_isc_prepare_transaction2           @100
+	_isc_print_blr                      @101
+	_isc_print_status                   @102
+	_isc_put_segment                    @103
+	_isc_put_slice                      @104
+	_isc_qtoq                           @105
+	_isc_que_events			    @216
+	_isc_receive                        @106
+	_isc_reconnect_transaction          @107
+	_isc_release_request                @108
+	_isc_request_info                   @109
+	_isc_rollback_transaction           @110
+	_isc_seek_blob                      @111
+	_isc_send                           @112
+	_isc_set_debug                      @113
+	_isc_sqlcode			    @115
+	_isc_sqlcode_s			    @149
+	_isc_start_and_send		    @116
+	_isc_start_multiple                 @117
+	_isc_start_request                  @118
+	_isc_start_transaction              @119
+	_isc_transaction_info               @120
+	_isc_unwind_request                 @121
+	_isc_vax_integer                    @122
+	_isc_version                        @123
+	_isc_vtof                           @124
+	_isc_vtov                           @125
+
+; ../JRD/LICENSE.C
+	_LICENSE_mask			    @126
+
+; ../DSQL/PREPARSE.C
+	_PREPARSE_execute		    @255
+
+; ../DSQL/USER_DSQ.C
+	_gds__close			    @167
+	_gds__declare                       @168
+	_gds__describe                      @169
+	_gds__describe_bind                 @170
+	_gds__dsql_finish                   @171
+	_gds__execute                       @172
+	_gds__execute_immediate             @173
+	_gds__fetch                         @174
+	_gds__fetch_a                       @175
+	_gds__open                          @176
+	_gds__prepare                       @177
+	_gds__to_sqlda                      @178
+
+	_isc_close                          @179
+	_isc_declare                        @180
+	_isc_describe                       @181
+	_isc_describe_bind                  @182
+	_isc_dsql_fetch_a                   @183
+	_isc_dsql_finish                    @184
+	_isc_dsql_release                   @185
+	_isc_embed_dsql_close               @130
+	_isc_embed_dsql_declare             @131
+	_isc_embed_dsql_descr_bind          @186
+	_isc_embed_dsql_describe            @132
+	_isc_embed_dsql_describe_bind       @133
+	_isc_embed_dsql_exec_immed          @187
+	_isc_embed_dsql_exec_immed2         @256
+	_isc_embed_dsql_execute             @134
+	_isc_embed_dsql_execute2            @265
+	_isc_embed_dsql_execute_immed       @135
+	_isc_embed_dsql_fetch               @136
+	_isc_embed_dsql_fetch_a             @188
+	_isc_embed_dsql_insert              @257
+	_isc_embed_dsql_length              @189
+	_isc_embed_dsql_open                @137
+	_isc_embed_dsql_open2               @258
+	_isc_embed_dsql_prepare             @138
+	_isc_embed_dsql_release             @139
+	_isc_execute                        @190
+	_isc_execute_immediate		    @191
+	_isc_fetch                          @192
+	_isc_fetch_a                        @193
+	_isc_open                           @194
+	_isc_prepare                        @195
+	_isc_to_sqlda                       @196
+
+; ../JRD/WHY.C
+	_gds__attach_database               @19
+	_gds__blob_info                     @199
+	_gds__cancel_blob                   @200
+	_gds__cancel_events                 @250
+	_gds__close_blob                    @21
+	_gds__commit_retaining              @22
+	_gds__commit_transaction            @23
+	_gds__compile_request               @24
+	_gds__compile_request2              @25
+	_gds__create_blob                   @26
+	_gds__create_blob2                  @201
+	_gds__create_database               @27
+	_gds__database_cleanup              @28
+	_gds__database_info                 @29
+	_gds__ddl                           @30
+	_gds__detach_database               @32
+	_gds__disable_subsystem             @202
+	_gds__enable_subsystem              @203
+	_gds__event_wait                    @259
+	_gds__get_segment                   @37
+	_gds__get_slice                     @204
+	_gds__open_blob                     @40
+	_gds__open_blob2                    @41
+	_gds__prepare_transaction           @42
+	_gds__prepare_transaction2          @205
+	_gds__put_segment                   @45
+	_gds__put_slice                     @206
+	_gds__que_events                    @249
+	_gds__receive                       @46
+	_gds__reconnect_transaction         @207
+	_gds__release_request               @48
+	_gds__request_info                  @208
+	_gds__rollback_transaction          @49
+	_gds__seek_blob                     @209
+	_gds__send                          @50
+	_gds__start_and_send                @51
+	_gds__start_multiple                @210
+	_gds__start_request                 @52
+	_gds__start_transaction             @53
+	_gds__transaction_cleanup           @211
+	_gds__transaction_info              @212
+	_gds__unwind_request                @56
+
+	_isc_drop_database		    @231
+	_isc_dsql_alloc_statement      	    @260
+	_isc_dsql_alloc_statement2          @223
+	_isc_dsql_allocate_statement        @76
+	_isc_dsql_describe             	    @77
+	_isc_dsql_describe_bind        	    @78
+	_isc_dsql_exec_immed2               @220
+	_isc_dsql_exec_immed2_m             @261
+	_isc_dsql_exec_immed3_m             @253
+	_isc_dsql_exec_immediate	    @262
+	_isc_dsql_exec_immediate_m          @263
+	_isc_dsql_execute              	    @79
+	_isc_dsql_execute_immediate    	    @80
+	_isc_dsql_execute_immediate_m  	    @81
+	_isc_dsql_execute_m            	    @82
+	_isc_dsql_execute2                  @221
+	_isc_dsql_execute2_m                @252
+	_isc_dsql_fetch                	    @83
+	_isc_dsql_fetch_m              	    @84
+	_isc_dsql_free_statement       	    @85
+	_isc_dsql_insert                    @264
+	_isc_dsql_insert_m                  @254
+	_isc_dsql_prepare              	    @86
+	_isc_dsql_prepare_m      	    @87
+	_isc_dsql_set_cursor_name           @88
+	_isc_dsql_sql_info                  @89
+	_isc_service_attach                 @217
+	_isc_service_detach                 @218
+	_isc_service_query                  @219
+	_isc_service_start		    @266
+	_isc_transact_request		    @243
+
+; ../JRD/THIN.C
+	_gds__alloc  		= _THIN_gds__alloc 	   	@18
+	_gds__free   		= _THIN_gds__free	    	@36
+	_gds__msg_format  	= _THIN_gds__msg_format    	@39
+	_gds__temp_file	  	= _THIN_gds__temp_file     	@55
+	_gds__vax_integer 	= _THIN_gds__vax_integer    	@57
+	_gds__print_status	= _THIN_gds__print_status	@44
+	_isc_sql_interprete	= _THIN_isc_sql_interprete	@114
+
+; ../DSQL/BLOB.C
+	_isc_blob_default_desc         @235
+	_isc_blob_gen_bpb              @236
+	_isc_blob_lookup_desc          @234
+	_isc_blob_set_desc             @242
+
+; PERF.C
+	_perf_format                   @232
+	_perf_get_info                 @233
+
+; UTL.C
+	_BLOB_close                    @7
+	_BLOB_get                      @197
+	_BLOB_display                  @2
+	_BLOB_dump                     @3
+	_BLOB_edit                     @4
+	_BLOB_load                     @5
+	_BLOB_open                     @198
+	_BLOB_put                      @6
+	_Bopen                         @8
+
+	_gds__blob_size                @20
+	_gds__edit                     @33
+	_gds__version                  @58
+
+	_isc_expand_dpb                @224
+	_isc_format_implementation     @237
+
+; ..\DSQL\ARRAY.C
+	_isc_array_gen_sdl		@225
+	_isc_array_get_slice		@226
+	_isc_array_lookup_bounds	@227
+	_isc_array_lookup_desc		@228
+	_isc_array_set_desc		@229
+	_isc_array_put_slice		@230
+;-------------------------------------------
+		WEP                            	@1   RESIDENTNAME
+
diff --git a/src/jrd/gds.hxx b/src/jrd/gds.hxx
new file mode 100644
index 0000000000..6981f7ca99
--- /dev/null
+++ b/src/jrd/gds.hxx
@@ -0,0 +1,1076 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ *      PROGRAM:        C preprocessor
+ *      MODULE:         gds.hxx
+ *      DESCRIPTION:    BLR constants for C++
+ */
+ 
+#define gds_version3
+ 
+#define GDS_TRUE        1
+#define GDS_FALSE       0
+
+typedef long    gds_db_handle;
+typedef long    gds_req_handle;
+typedef long    gds_tr_handle;
+typedef long    gds_blob_handle;
+typedef long    gds_win_handle;
+typedef long    gds_form_handle;
+typedef long    gds_stmt_handle;
+typedef void    (*gds_callback)();
+
+typedef struct {
+    long                gds_quad_high;
+    unsigned long       gds_quad_low;
+} GDS_QUAD;
+
+typedef struct {
+    short       array_bound_lower;
+    short       array_bound_upper;
+} ISC_ARRAY_BOUND;
+
+typedef struct {
+    unsigned char       array_desc_dtype;
+    char                array_desc_scale;
+    unsigned short      array_desc_length;
+    char                array_desc_field_name [32];
+    char                array_desc_relation_name [32];
+    short               array_desc_dimensions;
+    short               array_desc_flags;
+    ISC_ARRAY_BOUND     array_desc_bounds [16];
+} ISC_ARRAY_DESC;
+
+/* Dynamic SQL definitions */
+ 
+typedef struct {
+    short       sqltype;
+    short       sqllen;
+    char        *sqldata;
+    short       *sqlind;
+    short       sqlname_length;
+    char        sqlname [30];
+} SQLVAR;
+ 
+typedef struct {
+    char        sqldaid [8];
+    long        sqldabc;
+    short       sqln;
+    short       sqld;
+    SQLVAR      sqlvar [1];
+} SQLDA;
+ 
+#define SQLDA_LENGTH(n)         (sizeof (SQLDA) + (n-1) * sizeof (SQLVAR))
+
+/* Extended SQLDA */
+ 
+typedef struct {
+    short       sqltype;
+    short       sqlscale;
+    short       sqlsubtype;
+    short       sqllen;
+    char        *sqldata;
+    short       *sqlind;
+    short       sqlname_length;
+    char        sqlname [32];
+    short       relname_length;
+    char        relname [32];
+    short       ownname_length;
+    char        ownname [32];
+    short       aliasname_length;
+    char        aliasname [32];
+} XSQLVAR;
+ 
+const char SQLDA_VERSION1                   = 1;
+
+typedef struct {
+    short       version;
+    char        sqldaid [8];
+    long        sqldabc;
+    short       sqln;
+    short       sqld;
+    XSQLVAR     sqlvar [1];
+} XSQLDA;
+ 
+#define XSQLDA_LENGTH(n)        (sizeof (XSQLDA) + (n-1) * sizeof (XSQLVAR))
+
+#ifdef _Windows
+typedef struct {
+    unsigned short      length;
+    char                string[];
+} VARYING;
+#endif
+
+
+#define GDS_STATUS      long
+
+#ifdef _Windows
+#define GDS_EXPORT      far cdecl _loadds _export
+#else
+#define GDS_EXPORT
+#endif
+
+extern "C" {
+  GDS_STATUS GDS_EXPORT isc_attach_database (long*, short, char*, gds_db_handle*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_blob_info (long*, gds_blob_handle*, short, char*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_cancel_blob (long*, gds_blob_handle*);
+  GDS_STATUS GDS_EXPORT isc_close_blob (long*, gds_blob_handle*);
+  GDS_STATUS GDS_EXPORT isc_commit_transaction (long*, gds_tr_handle*);
+  GDS_STATUS GDS_EXPORT isc_compile_request  (long*, gds_db_handle*, gds_req_handle*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_compile_request2 (long*, gds_db_handle*, gds_req_handle*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_create_blob  (long*, gds_db_handle*, gds_tr_handle*, gds_blob_handle*, GDS_QUAD*);
+  GDS_STATUS GDS_EXPORT isc_create_blob2  (long*, gds_db_handle*, gds_tr_handle*, gds_blob_handle*, GDS_QUAD*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_create_database  (long*, short, char*, gds_db_handle*, short, char*, short);
+  GDS_STATUS GDS_EXPORT isc_database_info  (long*, gds_db_handle*, short, char*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_detach_database (long*, gds_db_handle*);
+  GDS_STATUS GDS_EXPORT isc_get_segment (long*, gds_blob_handle*, unsigned short*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_open_blob (long*, gds_db_handle*, gds_tr_handle*, gds_blob_handle*, GDS_QUAD*);
+  GDS_STATUS GDS_EXPORT isc_open_blob2 (long*, gds_db_handle*, gds_tr_handle*, gds_blob_handle*, GDS_QUAD*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_prepare_transaction  (long*, gds_tr_handle*);
+  GDS_STATUS GDS_EXPORT isc_prepare_transaction2  (long*, gds_tr_handle*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_put_segment  (long*, gds_blob_handle*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_receive (long*, gds_req_handle*, short, short, void*, short);
+  GDS_STATUS GDS_EXPORT isc_reconnect_transaction  (long*, gds_db_handle*, gds_tr_handle*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_request_info  (long*, gds_req_handle*, short, short, char*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_release_request  (long*, gds_req_handle*);
+  GDS_STATUS GDS_EXPORT isc_rollback_transaction  (long*, gds_tr_handle*);
+  GDS_STATUS GDS_EXPORT isc_seek_blob (long*, gds_blob_handle*, short, long, long*);
+  GDS_STATUS GDS_EXPORT isc_send (long*, gds_req_handle*, short, short, void*, short);
+  GDS_STATUS GDS_EXPORT isc_start_and_send (long*, gds_req_handle*, gds_tr_handle*, short, short, void*, short);
+  GDS_STATUS GDS_EXPORT isc_start_multiple  (long*, gds_tr_handle*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_start_request (long*, gds_req_handle*, gds_tr_handle*, short);
+  GDS_STATUS GDS_EXPORT isc_start_transaction (long*, gds_tr_handle*, short, ...);
+  GDS_STATUS GDS_EXPORT isc_transaction_info  (long*, gds_tr_handle*, short, char*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_unwind_request  (long*, gds_tr_handle*, short);
+  GDS_STATUS GDS_EXPORT isc_interprete  (char*, long**);
+  GDS_STATUS GDS_EXPORT isc_sql_interprete  (short, char*, short);
+  GDS_STATUS GDS_EXPORT isc_print_sql_error  (long, long*);
+  GDS_STATUS GDS_EXPORT isc_print_status  (long*);
+  GDS_STATUS GDS_EXPORT isc_sqlcode  (long*);
+  GDS_STATUS GDS_EXPORT isc_ddl (long*, gds_db_handle*, gds_tr_handle*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_commit_retaining (long*, gds_tr_handle*);
+  GDS_STATUS GDS_EXPORT isc_que_events (long*, gds_db_handle*, long*, short, char*, gds_callback, void*);
+  GDS_STATUS GDS_EXPORT isc_cancel_events (long*, gds_db_handle*, long*);
+  GDS_STATUS GDS_EXPORT isc_wait_for_event (long*, gds_db_handle*, short, char*, char*);
+  GDS_STATUS GDS_EXPORT isc_event_counts (long*, short, char*, char*);
+  GDS_STATUS GDS_EXPORT isc_event_block (char**, char**, short, ...);
+  GDS_STATUS GDS_EXPORT isc_get_slice (long*, gds_db_handle*, gds_tr_handle*, GDS_QUAD*, short, char*, short, long*,
+			long, void*, long*);
+  GDS_STATUS GDS_EXPORT isc_put_slice (long*, gds_db_handle*, gds_tr_handle*, GDS_QUAD*, short, char*, short, long*,
+			long, void*);
+  GDS_STATUS GDS_EXPORT isc_ddl (long*, gds_db_handle*, gds_tr_handle*, short, char*);
+    }
+extern "C" {
+  GDS_STATUS GDS_EXPORT isc_prepare (long*, gds_db_handle*, gds_tr_handle*, char*, short*, char*, SQLDA*);
+  GDS_STATUS GDS_EXPORT isc_declare (long*, char*, char*);
+  GDS_STATUS GDS_EXPORT isc_open (long*, gds_tr_handle*, char*, SQLDA*);
+  GDS_STATUS GDS_EXPORT isc_fetch (long*, char*, SQLDA*);
+  GDS_STATUS GDS_EXPORT isc_close (long*, char*);
+  GDS_STATUS GDS_EXPORT isc_describe (long*, char*, SQLDA*);
+  GDS_STATUS GDS_EXPORT isc_describe_bind (long*, char*, SQLDA*);
+  GDS_STATUS GDS_EXPORT isc_dsql_finish (long*);
+  GDS_STATUS GDS_EXPORT isc_dsql_release (long*, char*);
+  GDS_STATUS GDS_EXPORT isc_execute (long*, gds_tr_handle*, char*, SQLDA*);
+  GDS_STATUS GDS_EXPORT isc_execute_immediate (long*, gds_db_handle*, gds_tr_handle*, short*, char*);
+  GDS_STATUS GDS_EXPORT isc_array_gen_sdl (long*, ISC_ARRAY_DESC*, short*, char*, char*);
+  GDS_STATUS GDS_EXPORT isc_array_get_slice (long*, long*, long*, GDS_QUAD*, ISC_ARRAY_DESC*, void*, long*);
+  GDS_STATUS GDS_EXPORT isc_array_lookup_bounds (long*, long*, long*, char*, char*, ISC_ARRAY_DESC*);
+  GDS_STATUS GDS_EXPORT isc_array_lookup_desc (long*, long*, long*, char*, char*, ISC_ARRAY_DESC*);
+  GDS_STATUS GDS_EXPORT isc_array_set_desc (long*, char*, char*, short*, short*, short*, ISC_ARRAY_DESC*);
+  GDS_STATUS GDS_EXPORT isc_array_put_slice (long*, long*, long*, GDS_QUAD*, ISC_ARRAY_DESC*, void*, long*);
+    }
+extern "C" {
+  GDS_STATUS GDS_EXPORT isc_dsql_allocate_statement (long*, gds_db_handle*, gds_stmt_handle*);
+  GDS_STATUS GDS_EXPORT isc_dsql_describe (long*, gds_stmt_handle*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_dsql_describe_bind (long*, gds_stmt_handle*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_dsql_execute (long*, gds_tr_handle*, gds_stmt_handle*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_dsql_execute_m (long*, gds_tr_handle*, gds_stmt_handle*, short, char*, short, short, char*);
+  GDS_STATUS GDS_EXPORT isc_dsql_execute_immediate (long*, gds_db_handle*, gds_tr_handle*, short, char*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_dsql_execute_immediate_m (long*, gds_db_handle*, gds_tr_handle*, short, char*, short,
+			short, char*, short, short, char*);
+  GDS_STATUS GDS_EXPORT isc_dsql_fetch (long*, gds_stmt_handle*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_dsql_fetch_m (long*, gds_stmt_handle*, short, char*, short, short, char*);
+  GDS_STATUS GDS_EXPORT isc_dsql_free_statement (long*, gds_stmt_handle*, short);
+  GDS_STATUS GDS_EXPORT isc_dsql_prepare (long*, gds_tr_handle*, gds_stmt_handle*, short, char*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_dsql_prepare_m (long*, gds_tr_handle*, gds_stmt_handle*, short, char*, short,
+			short, char*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_dsql_set_cursor_name (long*, gds_stmt_handle*, char*, short);
+  GDS_STATUS GDS_EXPORT isc_dsql_sql_info (long*, gds_stmt_handle*, short, char*, short, char*);
+  GDS_STATUS GDS_EXPORT isc_embed_dsql_close (long*, char*);
+  GDS_STATUS GDS_EXPORT isc_embed_dsql_declare (long*, char*, char*);
+  GDS_STATUS GDS_EXPORT isc_embed_dsql_describe (long*, char*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_embed_dsql_describe_bind (long*, char*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_embed_dsql_execute (long*, gds_tr_handle*, char*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_embed_dsql_execute_immed (long*, gds_db_handle*, gds_tr_handle*, short, char*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_embed_dsql_fetch (long*, char*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_embed_dsql_open (long*, gds_tr_handle*, char*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_embed_dsql_prepare (long*, gds_db_handle*, gds_tr_handle*, char*, short, char*, short, void*);
+  GDS_STATUS GDS_EXPORT isc_embed_dsql_release (long*, char*);
+    }
+extern "C" {
+  GDS_STATUS GDS_EXPORT BLOB_edit (GDS_QUAD*, gds_db_handle, gds_tr_handle, char*);
+  GDS_STATUS GDS_EXPORT BLOB_display (GDS_QUAD*, gds_db_handle, gds_tr_handle, char*);
+  GDS_STATUS GDS_EXPORT BLOB_load (GDS_QUAD*, gds_db_handle, gds_tr_handle, char*);
+  GDS_STATUS GDS_EXPORT BLOB_dump (GDS_QUAD*, gds_db_handle, gds_tr_handle, char*);
+    }
+extern "C" {
+  GDS_STATUS GDS_EXPORT isc_initialize_menu (long*, gds_req_handle*);
+  GDS_STATUS GDS_EXPORT isc_put_entree (long*, gds_req_handle*, short*, char*, long*);
+  GDS_STATUS GDS_EXPORT isc_get_entree (long*, gds_req_handle*, short*, char*, long*, short*);
+  GDS_STATUS GDS_EXPORT isc_drive_menu (long*, gds_win_handle*, gds_req_handle*, short*, char*, short*, char*, short*,
+			short*, char*, long*);
+  GDS_STATUS GDS_EXPORT isc_drive_form (long*, gds_db_handle*, gds_tr_handle*, gds_win_handle*, gds_req_handle*,
+			void*, void*);
+  GDS_STATUS GDS_EXPORT isc_load_form (long*, gds_db_handle*, gds_tr_handle*, gds_form_handle*, short*, char*);
+  GDS_STATUS GDS_EXPORT isc_compile_map (long*, gds_form_handle*, gds_req_handle*, short*, char*);
+  GDS_STATUS GDS_EXPORT isc_compile_menu (long*, gds_form_handle*, gds_req_handle*, short*, char*);
+  GDS_STATUS GDS_EXPORT isc_compile_sub_map (long*, gds_win_handle*, gds_req_handle*, short*, char*);
+  GDS_STATUS GDS_EXPORT isc_form_fetch (long*, gds_db_handle*, gds_tr_handle*, gds_req_handle*, void*);
+  GDS_STATUS GDS_EXPORT isc_form_delete (long*, gds_form_handle*);
+  GDS_STATUS GDS_EXPORT isc_form_insert (long*, gds_db_handle*, gds_tr_handle*, gds_req_handle*, void*);
+  GDS_STATUS GDS_EXPORT isc_reset_form (long*, gds_req_handle*);
+  GDS_STATUS GDS_EXPORT isc_delete_window (long*, gds_win_handle*);
+  GDS_STATUS GDS_EXPORT isc_pop_window (long*, gds_win_handle*);
+  GDS_STATUS GDS_EXPORT isc_suspend_window (long*, gds_win_handle*);
+  GDS_STATUS GDS_EXPORT isc_create_window (long*, gds_win_handle*, short*, char*, short*, short*);
+  GDS_STATUS GDS_EXPORT isc_menu (long*, gds_win_handle*, gds_req_handle*, short*, char*);
+    }
+extern "C" {
+    void     GDS_EXPORT isc_ftof  (char*, short, char*, short);
+  GDS_STATUS GDS_EXPORT isc_print_blr (char*, gds_callback, void*, short);
+    void     GDS_EXPORT isc_qtoq (GDS_QUAD*, GDS_QUAD*);
+    void     GDS_EXPORT isc_vtof (char*, char*, short);
+    void     GDS_EXPORT isc_vtov (char*, char*, short);
+    void     GDS_EXPORT isc_version (gds_db_handle*, gds_callback, long);
+  GDS_STATUS GDS_EXPORT isc_vax_integer (char*, short);
+    void     GDS_EXPORT isc_set_debug (long);
+  GDS_STATUS GDS_EXPORT isc_encode_date (void*, GDS_QUAD*);
+  GDS_STATUS GDS_EXPORT isc_decode_date (GDS_QUAD*, void*);
+  GDS_STATUS GDS_EXPORT isc_free (long*);
+    void     GDS_EXPORT isc_extend_dpb (char**, short*, char*, char*);
+    }
+#define blr_word(n) (n % 256), (n / 256)
+ 
+const char blr_text                        = 14;
+const char blr_short                       = 7;
+const char blr_long                        = 8;
+const char blr_quad                        = 9;
+const char blr_float                       = 10;
+const char blr_double                      = 27;
+const char blr_d_float                     = 11;
+const char blr_date                        = 35;
+const char blr_varying                     = 37;
+const short blr_blob                       = 261;
+const char blr_cstring                     = 40;
+const char blr_blob_id                     = 45;
+ 
+const char blr_inner                       = 0;
+const char blr_left                        = 1;
+const char blr_right                       = 2;
+const char blr_full                        = 3;
+ 
+const char blr_version4                    = 4;
+const char blr_eoc                         = 76;
+const char blr_end                         = -1;
+ 
+const char blr_assignment                  = 1;
+const char blr_begin                       = 2;
+const char blr_dcl_variable                = 3;
+const char blr_message                     = 4;
+const char blr_erase                       = 5;
+const char blr_fetch                       = 6;
+const char blr_for                         = 7;
+const char blr_if                          = 8;
+const char blr_loop                        = 9;
+const char blr_modify                      = 10;
+const char blr_handler                     = 11;
+const char blr_receive                     = 12;
+const char blr_select                      = 13;
+const char blr_send                        = 14;
+const char blr_store                       = 15;
+const char blr_label                       = 17;
+const char blr_leave                       = 18;
+const char blr_store2                      = 19;
+const char blr_post                        = 20;
+ 
+const char blr_literal                     = 21;
+const char blr_dbkey                       = 22;
+const char blr_field                       = 23;
+const char blr_fid                         = 24;
+const char blr_parameter                   = 25;
+const char blr_variable                    = 26;
+const char blr_average                     = 27;
+const char blr_count                       = 28;
+const char blr_maximum                     = 29;
+const char blr_minimum                     = 30;
+const char blr_total                       = 31;
+const char blr_add                         = 34;
+const char blr_subtract                    = 35;
+const char blr_multiply                    = 36;
+const char blr_divide                      = 37;
+const char blr_negate                      = 38;
+const char blr_concatenate                 = 39;
+const char blr_substring                   = 40;
+const char blr_parameter2                  = 41;
+const char blr_from                        = 42;
+const char blr_via                         = 43;
+const char blr_user_name                   = 44;
+const char blr_null                        = 45;
+ 
+const char blr_eql                         = 47;
+const char blr_neq                         = 48;
+const char blr_gtr                         = 49;
+const char blr_geq                         = 50;
+const char blr_lss                         = 51;
+const char blr_leq                         = 52;
+const char blr_containing                  = 53;
+const char blr_matching                    = 54;
+const char blr_starting                    = 55;
+const char blr_between                     = 56;
+const char blr_or                          = 57;
+const char blr_and                         = 58;
+const char blr_not                         = 59;
+const char blr_any                         = 60;
+const char blr_missing                     = 61;
+const char blr_unique                      = 62;
+const char blr_like                        = 63;
+
+const char blr_stream                      = 65;
+const char blr_set_index                   = 66;
+ 
+const char blr_rse                         = 67;
+const char blr_first                       = 68;
+const char blr_project                     = 69;
+const char blr_sort                        = 70;
+const char blr_boolean                     = 71;
+const char blr_ascending                   = 72;
+const char blr_descending                  = 73;
+const char blr_relation                    = 74;
+const char blr_rid                         = 75;
+const char blr_union                       = 76;
+const char blr_map                         = 77;
+const char blr_group_by                    = 78;
+const char blr_aggregate                   = 79;
+const char blr_join_type                   = 80;
+ 
+const char blr_agg_count                   = 83;
+const char blr_agg_max                     = 84;
+const char blr_agg_min                     = 85;
+const char blr_agg_total                   = 86;
+const char blr_agg_average                 = 87;
+const char blr_run_count                   = 88;
+const char blr_run_max                     = 89;
+const char blr_run_min                     = 90;
+const char blr_run_total                   = 91;
+const char blr_run_average                 = 92;
+ 
+const char blr_function                    = 100;
+const char blr_gen_id                      = 101;
+const char blr_prot_mask                   = 102;
+const char blr_upcase                      = 103;
+const char blr_lock_state                  = 104;
+const char blr_value_if                    = 105;
+const char blr_matching2                   = 106;
+const char blr_index                       = 107;
+const char blr_ansi_like                   = 108;
+const char blr_bookmark                    = 109;
+const char blr_crack                       = 110;
+const char blr_force_crack                 = 111;
+const char blr_seek                        = 112;
+const char blr_find                        = 113;
+const char blr_lock_relation               = 114;
+const char blr_lock_record                 = 115;
+const char blr_set_bookmark		   = 116;
+const char blr_get_bookmark		   = 117;
+const char blr_rs_stream                   = 119;
+const char blr_exec_proc                   = 120;
+const char blr_begin_range                 = 121;
+const char blr_end_range                   = 122;
+const char blr_delete_range                = 123;
+ 
+/* Database parameter block stuff */
+ 
+const char gds_dpb_version1                = 1;
+const char gds_dpb_cdd_pathname            = 1;
+const char gds_dpb_allocation              = 2;
+const char gds_dpb_journal                 = 3;
+const char gds_dpb_page_size               = 4;
+const char gds_dpb_num_buffers             = 5;
+const char gds_dpb_buffer_length           = 6;
+const char gds_dpb_debug                   = 7;
+const char gds_dpb_garbage_collect         = 8;
+const char gds_dpb_verify                  = 9;
+const char gds_dpb_sweep                   = 10;
+const char gds_dpb_enable_journal          = 11;
+const char gds_dpb_disable_journal         = 12;
+const char gds_dpb_dbkey_scope             = 13;
+const char gds_dpb_number_of_users         = 14;
+const char gds_dpb_trace                   = 15;
+const char gds_dpb_no_garbage_collect      = 16;
+const char gds_dpb_damaged                 = 17;
+const char gds_dpb_license                 = 18;
+const char gds_dpb_sys_user_name           = 19;
+const char gds_dpb_encrypt_key             = 20;
+const char gds_dpb_activate_shadow         = 21;
+const char gds_dpb_sweep_interval          = 22;
+const char gds_dpb_delete_shadow           = 23;
+const char gds_dpb_force_write             = 24;
+const char gds_dpb_begin_log               = 25;
+const char gds_dpb_quit_log                = 26;
+const char gds_dpb_no_reserve              = 27;
+const char gds_dpb_user_name               = 28;
+const char gds_dpb_password                = 29;
+const char gds_dpb_password_enc            = 30;
+const char gds_dpb_sys_user_name_enc       = 31;
+ 
+const char gds_dpb_pages                   = 1;
+const char gds_dpb_records                 = 2;
+const char gds_dpb_indices                 = 4;
+const char gds_dpb_transactions            = 8;
+const char gds_dpb_no_update               = 16;
+const char gds_dpb_repair                  = 32;
+const char gds_dpb_ignore                  = 64;
+ 
+/* Bit assignments in RDB$SYSTEM_FLAG */
+ 
+const char RDB_system                      = 1;
+const char RDB_id_assigned                 = 2;
+ 
+/* Transaction parameter blob stuff */
+ 
+const char gds_tpb_version1                = 1;
+const char gds_tpb_version3                = 3;
+const char gds_tpb_consistency             = 1;
+const char gds_tpb_concurrency             = 2;
+const char gds_tpb_shared                  = 3;
+const char gds_tpb_protected               = 4;
+const char gds_tpb_exclusive               = 5;
+const char gds_tpb_wait                    = 6;
+const char gds_tpb_nowait                  = 7;
+const char gds_tpb_read                    = 8;
+const char gds_tpb_write                   = 9;
+const char gds_tpb_lock_read               = 10;
+const char gds_tpb_lock_write              = 11;
+const char gds_tpb_verb_time               = 12;
+const char gds_tpb_commit_time             = 13;
+const char gds_tpb_ignore_limbo            = 14;
+ 
+/* Blob Parameter Block */
+ 
+const char gds_bpb_version1                = 1;
+const char gds_bpb_source_type             = 1;
+const char gds_bpb_target_type             = 2;
+const char gds_bpb_type                    = 3;
+const char gds_bpb_type_segmented          = 0;
+const char gds_bpb_type_stream             = 1;
+ 
+/* Blob stream stuff */ 
+ 
+typedef struct bstream {
+    int         *bstr_blob;             /* Blob handle */
+    char        *bstr_buffer;           /* Address of buffer */
+    char        *bstr_ptr;              /* Next character */
+    short       bstr_length;            /* Length of buffer */
+    short       bstr_cnt;               /* Characters in buffer */
+    char        bstr_mode;              /* (mode) ? OUTPUT : INPUT */
+} BSTREAM;
+ 
+#define getb(p) (--(p)->bstr_cnt >= 0 ? *(p)->bstr_ptr++ & 0377: BLOB_get (p))
+#define putb(x,p) ((x == '\n' || (!(--(p)->bstr_cnt))) ? BLOB_put (x,p) : ((int) (*(p)->bstr_ptr++ = (unsigned) (x))))
+#define putbx(x,p) ((!(--(p)->bstr_cnt)) ? BLOB_put (x,p) : ((int) (*(p)->bstr_ptr++ = (unsigned) (x))))
+ 
+extern "C" {
+    BSTREAM *Bopen (GDS_QUAD*, gds_db_handle, gds_tr_handle, char*);
+	BSTREAM *BLOB_open (gds_blob_handle, char*, char*);
+    }
+ 
+extern "C" {
+    int GDS_EXPORT BLOB_close (BSTREAM*);
+    int GDS_EXPORT BLOB_get (BSTREAM*);
+    int GDS_EXPORT BLOB_put (int, BSTREAM*);
+    }
+/* Information call declarations */
+ 
+/* Common, structural codes */
+ 
+const char gds_info_end                    = 1;
+const char gds_info_truncated              = 2;
+const char gds_info_error                  = 3;
+ 
+/* Database information items */
+ 
+const char gds_info_db_id                  = 4;
+const char gds_info_reads                  = 5;
+const char gds_info_writes                 = 6;
+const char gds_info_fetches                = 7;
+const char gds_info_marks                  = 8;
+const char gds_info_implementation         = 11;
+const char gds_info_version                = 12;
+const char gds_info_base_level             = 13;
+const char gds_info_page_size              = 14;
+const char gds_info_num_buffers            = 15;
+const char gds_info_limbo                  = 16;
+const char gds_info_current_memory         = 17;
+const char gds_info_max_memory             = 18;
+const char gds_info_window_turns           = 19;
+const char gds_info_license                = 20;
+const char gds_info_allocation             = 21;
+const char gds_info_attachment_id          = 22;
+const char gds_info_read_seq_count         = 23;
+const char gds_info_read_idx_count         = 24;
+const char gds_info_insert_count           = 25;
+const char gds_info_update_count           = 26;
+const char gds_info_delete_count           = 27;
+const char gds_info_backout_count          = 28;
+const char gds_info_purge_count            = 29;
+const char gds_info_expunge_count          = 30;
+const char gds_info_sweep_interval         = 31;
+const char gds_info_ods_version            = 32;
+const char gds_info_ods_minor_version      = 33;
+const char gds_info_no_reserve             = 34;
+ 
+/* Database Info Return Values */
+ 
+const char gds_info_db_impl_rdb_vms        = 1;
+const char gds_info_db_impl_rdb_eln        = 2;
+const char gds_info_db_impl_rdb_eln_dev    = 3;
+const char gds_info_db_impl_rdb_vms_y      = 4;
+const char gds_info_db_impl_rdb_eln_y      = 5;
+const char gds_info_db_impl_jri            = 6;
+const char gds_info_db_impl_jsv            = 7;
+const char gds_info_db_impl_isc_a          = 25;
+const char gds_info_db_impl_isc_u          = 26;
+const char gds_info_db_impl_isc_v          = 27;
+const char gds_info_db_impl_isc_s          = 28;
+const char gds_info_db_impl_isc_apl_68K    = 25;
+const char gds_info_db_impl_isc_vax_ultr   = 26;
+const char gds_info_db_impl_isc_vms        = 27;
+const char gds_info_db_impl_isc_sun_68k    = 28;
+const char gds_info_db_impl_isc_os2        = 29;
+const char gds_info_db_impl_isc_sun4       = 30;
+const char gds_info_db_impl_isc_hp_ux      = 31;
+const char gds_info_db_impl_isc_sun_386i   = 32;
+const char gds_info_db_impl_isc_vms_orcl   = 33;
+const char gds_info_db_impl_isc_mac_aux    = 34;
+const char gds_info_db_impl_isc_rt_aix     = 35;
+const char gds_info_db_impl_isc_mips_ult   = 36;
+const char gds_info_db_impl_isc_apl_dn10   = 37;
+const char gds_info_db_class_access        = 1;
+const char gds_info_db_class_y_valve       = 2;
+const char gds_info_db_class_rem_int       = 3;
+const char gds_info_db_class_rem_srvr      = 4;
+const char gds_info_db_class_pipe_int      = 7;
+const char gds_info_db_class_pipe_srvr     = 8;
+const char gds_info_db_class_sam_int       = 9;
+const char gds_info_db_class_sam_srvr      = 10;
+const char gds_info_db_class_gateway       = 11;
+ 
+/* Request information items */
+ 
+const char gds_info_number_messages        = 4;
+const char gds_info_max_message            = 5;
+const char gds_info_max_send               = 6;
+const char gds_info_max_receive            = 7;
+const char gds_info_state                  = 8;
+const char gds_info_message_number         = 9;
+const char gds_info_message_size           = 10;
+const char gds_info_request_cost           = 11;
+const char gds_info_req_active             = 2;
+const char gds_info_req_inactive           = 3;
+const char gds_info_req_send               = 4;
+const char gds_info_req_receive            = 5;
+const char gds_info_req_select             = 6;
+ 
+/* Blob information items */
+ 
+const char gds_info_blob_num_segments      = 4;
+const char gds_info_blob_max_segment       = 5;
+const char gds_info_blob_total_length      = 6;
+const char gds_info_blob_type              = 7;
+ 
+/* Transaction information items */
+ 
+const char gds_info_tra_id                 = 4;
+ 
+/* SQL information items */
+
+const char gds_info_sql_select             = 4;
+const char gds_info_sql_bind               = 5;
+const char gds_info_sql_num_variables      = 6;
+const char gds_info_sql_describe_vars      = 7;
+const char gds_info_sql_describe_end       = 8;
+const char gds_info_sql_sqlda_seq          = 9;
+const char gds_info_sql_message_seq        = 10;
+const char gds_info_sql_type               = 11;
+const char gds_info_sql_sub_type           = 12;
+const char gds_info_sql_scale              = 13;
+const char gds_info_sql_length             = 14;
+const char gds_info_sql_null_ind           = 15;
+const char gds_info_sql_field              = 16;
+const char gds_info_sql_relation           = 17;
+const char gds_info_sql_owner              = 18;
+const char gds_info_sql_alias              = 19;
+const char gds_info_sql_sqlda_start        = 20;
+const char gds_info_sql_stmt_type          = 21;
+
+/* SQL information return values */
+
+const char gds_info_sql_stmt_select        = 1;
+const char gds_info_sql_stmt_insert        = 2;
+const char gds_info_sql_stmt_update        = 3;
+const char gds_info_sql_stmt_delete        = 4;
+const char gds_info_sql_stmt_ddl           = 5;
+const char gds_info_sql_stmt_commit        = 10;
+const char gds_info_sql_stmt_rollback      = 11;
+const char gds_info_sql_stmt_select_for_upd = 12;
+
+/* Error codes */
+ 
+const long gds_facility                    = 20;
+const long gds_err_base                    = 335544320L;
+const long gds_err_factor                  = 1;
+const long gds_arg_end                     = 0;
+const long gds_arg_gds                     = 1;
+const long gds_arg_string                  = 2;
+const long gds_arg_cstring                 = 3;
+const long gds_arg_number                  = 4;
+const long gds_arg_interpreted             = 5;
+const long gds_arg_vms                     = 6;
+const long gds_arg_unix                    = 7;
+const long gds_arg_domain                  = 8;
+const long gds_arg_dos                     = 9;
+const long gds_arg_mpexl                   = 10;
+
+const long gds_arith_except                = 335544321L;
+const long gds_bad_dbkey                   = 335544322L;
+const long gds_bad_db_format               = 335544323L;
+const long gds_bad_db_handle               = 335544324L;
+const long gds_bad_dpb_content             = 335544325L;
+const long gds_bad_dpb_form                = 335544326L;
+const long gds_bad_req_handle              = 335544327L;
+const long gds_bad_segstr_handle           = 335544328L;
+const long gds_bad_segstr_id               = 335544329L;
+const long gds_bad_tpb_content             = 335544330L;
+const long gds_bad_tpb_form                = 335544331L;
+const long gds_bad_trans_handle            = 335544332L;
+const long gds_bug_check                   = 335544333L;
+const long gds_convert_error               = 335544334L;
+const long gds_db_corrupt                  = 335544335L;
+const long gds_deadlock                    = 335544336L;
+const long gds_excess_trans                = 335544337L;
+const long gds_from_no_match               = 335544338L;
+const long gds_infinap                     = 335544339L;
+const long gds_infona                      = 335544340L;
+const long gds_infunk                      = 335544341L;
+const long gds_integ_fail                  = 335544342L;
+const long gds_invalid_blr                 = 335544343L;
+const long gds_io_error                    = 335544344L;
+const long gds_lock_conflict               = 335544345L;
+const long gds_metadata_corrupt            = 335544346L;
+const long gds_not_valid                   = 335544347L;
+const long gds_no_cur_rec                  = 335544348L;
+const long gds_no_dup                      = 335544349L;
+const long gds_no_finish                   = 335544350L;
+const long gds_no_meta_update              = 335544351L;
+const long gds_no_priv                     = 335544352L;
+const long gds_no_recon                    = 335544353L;
+const long gds_no_record                   = 335544354L;
+const long gds_no_segstr_close             = 335544355L;
+const long gds_obsolete_metadata           = 335544356L;
+const long gds_open_trans                  = 335544357L;
+const long gds_port_len                    = 335544358L;
+const long gds_read_only_field             = 335544359L;
+const long gds_read_only_rel               = 335544360L;
+const long gds_read_only_trans             = 335544361L;
+const long gds_read_only_view              = 335544362L;
+const long gds_req_no_trans                = 335544363L;
+const long gds_req_sync                    = 335544364L;
+const long gds_req_wrong_db                = 335544365L;
+const long gds_segment                     = 335544366L;
+const long gds_segstr_eof                  = 335544367L;
+const long gds_segstr_no_op                = 335544368L;
+const long gds_segstr_no_read              = 335544369L;
+const long gds_segstr_no_trans             = 335544370L;
+const long gds_segstr_no_write             = 335544371L;
+const long gds_segstr_wrong_db             = 335544372L;
+const long gds_sys_request                 = 335544373L;
+const long gds_stream_eof                  = 335544374L;
+const long gds_unavailable                 = 335544375L;
+const long gds_unres_rel                   = 335544376L;
+const long gds_uns_ext                     = 335544377L;
+const long gds_wish_list                   = 335544378L;
+const long gds_wrong_ods                   = 335544379L;
+const long gds_wronumarg                   = 335544380L;
+const long gds_imp_exc                     = 335544381L;
+const long gds_random                      = 335544382L;
+const long gds_fatal_conflict              = 335544383L;
+ 
+/* Minor codes subject to change */
+ 
+const long gds_badblk                      = 335544384L;
+const long gds_invpoolcl                   = 335544385L;
+const long gds_nopoolids                   = 335544386L;
+const long gds_relbadblk                   = 335544387L;
+const long gds_blktoobig                   = 335544388L;
+const long gds_bufexh                      = 335544389L;
+const long gds_syntaxerr                   = 335544390L;
+const long gds_bufinuse                    = 335544391L;
+const long gds_bdbincon                    = 335544392L;
+const long gds_reqinuse                    = 335544393L;
+const long gds_badodsver                   = 335544394L;
+const long gds_relnotdef                   = 335544395L;
+const long gds_fldnotdef                   = 335544396L;
+const long gds_dirtypage                   = 335544397L;
+const long gds_waifortra                   = 335544398L;
+const long gds_doubleloc                   = 335544399L;
+const long gds_nodnotfnd                   = 335544400L;
+const long gds_dupnodfnd                   = 335544401L;
+const long gds_locnotmar                   = 335544402L;
+const long gds_badpagtyp                   = 335544403L;
+const long gds_corrupt                     = 335544404L;
+const long gds_badpage                     = 335544405L;
+const long gds_badindex                    = 335544406L;
+const long gds_dbbnotzer                   = 335544407L;
+const long gds_tranotzer                   = 335544408L;
+const long gds_trareqmis                   = 335544409L;
+const long gds_badhndcnt                   = 335544410L;
+const long gds_wrotpbver                   = 335544411L;
+const long gds_wroblrver                   = 335544412L;
+const long gds_wrodpbver                   = 335544413L;
+const long gds_blobnotsup                  = 335544414L;
+const long gds_badrelation                 = 335544415L;
+const long gds_nodetach                    = 335544416L;
+const long gds_notremote                   = 335544417L;
+const long gds_trainlim                    = 335544418L;
+const long gds_notinlim                    = 335544419L;
+const long gds_traoutsta                   = 335544420L;
+const long gds_connect_reject              = 335544421L;
+const long gds_dbfile                      = 335544422L;
+const long gds_orphan                      = 335544423L;
+const long gds_no_lock_mgr                 = 335544424L;
+const long gds_ctxinuse                    = 335544425L;
+const long gds_ctxnotdef                   = 335544426L;
+const long gds_datnotsup                   = 335544427L;
+const long gds_badmsgnum                   = 335544428L;
+const long gds_badparnum                   = 335544429L;
+const long gds_virmemexh                   = 335544430L;
+const long gds_blocking_signal             = 335544431L;
+const long gds_lockmanerr                  = 335544432L;
+const long gds_journerr                    = 335544433L;
+const long gds_keytoobig                   = 335544434L;
+const long gds_nullsegkey                  = 335544435L;
+const long gds_sqlerr                      = 335544436L;
+const long gds_wrodynver                   = 335544437L;
+const long gds_funnotdef                   = 335544438L;
+const long gds_funmismat                   = 335544439L;
+const long gds_bad_msg_vec                 = 335544440L;
+const long gds_bad_detach                  = 335544441L;
+const long gds_noargacc_read               = 335544442L;
+const long gds_noargacc_write              = 335544443L;
+const long gds_read_only                   = 335544444L;
+const long gds_ext_err                     = 335544445L;
+const long gds_non_updatable               = 335544446L;
+const long gds_no_rollback                 = 335544447L;
+const long gds_bad_sec_info                = 335544448L;
+const long gds_invalid_sec_info            = 335544449L;
+const long gds_misc_interpreted            = 335544450L;
+const long gds_update_conflict             = 335544451L;
+const long gds_unlicensed                  = 335544452L;
+const long gds_obj_in_use                  = 335544453L;
+const long gds_nofilter                    = 335544454L;
+const long gds_shadow_accessed             = 335544455L;
+const long gds_invalid_sdl                 = 335544456L;
+const long gds_out_of_bounds               = 335544457L;
+const long gds_invalid_dimension           = 335544458L;
+const long gds_rec_in_limbo                = 335544459L;
+const long gds_shadow_missing              = 335544460L;
+const long gds_cant_validate               = 335544461L;
+const long gds_cant_start_journal          = 335544462L;
+const long gds_gennotdef                   = 335544463L;
+const long gds_cant_start_logging          = 335544464L;
+const long gds_bad_segstr_type             = 335544465L;
+const long gds_foreign_key                 = 335544466L;
+const long gds_high_minor                  = 335544467L;
+const long gds_tra_state                   = 335544468L;
+const long gds_trans_invalid               = 335544469L;
+const long gds_buf_invalid                 = 335544470L;
+ 
+/* Dynamic Data Definition Language operators */
+ 
+/* Version number */
+ 
+const char gds_dyn_version_1               = 1;
+const char gds_dyn_eoc                     = -1;
+ 
+/* Operations (may be nested) */
+ 
+const char gds_dyn_begin                   = 2;
+const char gds_dyn_end                     = 3;
+const char gds_dyn_if                      = 4;
+const char gds_dyn_def_database            = 5;
+const char gds_dyn_def_global_fld          = 6;
+const char gds_dyn_def_local_fld           = 7;
+const char gds_dyn_def_idx                 = 8;
+const char gds_dyn_def_rel                 = 9;
+const char gds_dyn_def_sql_fld             = 10;
+const char gds_dyn_def_view                = 12;
+const char gds_dyn_def_trigger             = 15;
+const char gds_dyn_def_security_class      = 120;
+const char gds_dyn_def_dimension           = 140;
+const char gds_dyn_mod_rel                 = 11;
+const char gds_dyn_mod_global_fld          = 13;
+const char gds_dyn_mod_idx                 = 102;
+const char gds_dyn_mod_local_fld           = 14;
+const char gds_dyn_mod_view                = 16;
+const char gds_dyn_mod_security_class      = 122;
+const char gds_dyn_mod_trigger             = 113;
+const char gds_dyn_delete_database         = 18;
+const char gds_dyn_delete_rel              = 19;
+const char gds_dyn_delete_global_fld       = 20;
+const char gds_dyn_delete_local_fld        = 21;
+const char gds_dyn_delete_idx              = 22;
+const char gds_dyn_delete_security_class   = 123;
+const char gds_dyn_delete_dimensions       = 143;
+const char gds_dyn_grant                   = 30;
+const char gds_dyn_revoke                  = 31;
+const char gds_dyn_def_primary_key         = 37;
+const char gds_dyn_def_foreign_key         = 38;
+ 
+/* View specific stuff */
+ 
+const char gds_dyn_view_blr                = 43;
+const char gds_dyn_view_source             = 44;
+const char gds_dyn_view_relation           = 45;
+const char gds_dyn_view_context            = 46;
+const char gds_dyn_view_context_name       = 47;
+ 
+/* Generic attributes */
+ 
+const char gds_dyn_rel_name                = 50;
+const char gds_dyn_fld_name                = 51;
+const char gds_dyn_idx_name                = 52;
+const char gds_dyn_description             = 53;
+const char gds_dyn_security_class          = 54;
+const char gds_dyn_system_flag             = 55;
+const char gds_dyn_update_flag             = 56;
+ 
+/* Relation specific attributes */
+ 
+const char gds_dyn_rel_dbkey_length        = 61;
+const char gds_dyn_rel_store_trig          = 62;
+const char gds_dyn_rel_modify_trig         = 63;
+const char gds_dyn_rel_erase_trig          = 64;
+const char gds_dyn_rel_store_trig_source   = 65;
+const char gds_dyn_rel_modify_trig_source  = 66;
+const char gds_dyn_rel_erase_trig_source   = 67;
+const char gds_dyn_rel_ext_file            = 68;
+const char gds_dyn_rel_sql_protection      = 69;
+ 
+/* Global field specific attributes */
+ 
+const char gds_dyn_fld_type                = 70;
+const char gds_dyn_fld_length              = 71;
+const char gds_dyn_fld_scale               = 72;
+const char gds_dyn_fld_sub_type            = 73;
+const char gds_dyn_fld_segment_length      = 74;
+const char gds_dyn_fld_query_header        = 75;
+const char gds_dyn_fld_edit_string         = 76;
+const char gds_dyn_fld_validation_blr      = 77;
+const char gds_dyn_fld_validation_source   = 78;
+const char gds_dyn_fld_computed_blr        = 79;
+const char gds_dyn_fld_computed_source     = 80;
+const char gds_dyn_fld_missing_value       = 81;
+const char gds_dyn_fld_default_value       = 82;
+const char gds_dyn_fld_query_name          = 83;
+const char gds_dyn_fld_dimensions          = 84;
+ 
+/* Local field specific attributes */
+ 
+const char gds_dyn_fld_source              = 90;
+const char gds_dyn_fld_base_fld            = 91;
+const char gds_dyn_fld_position            = 92;
+const char gds_dyn_fld_update_flag         = 93;
+ 
+/* Index specific attributes */
+ 
+const char gds_dyn_idx_unique              = 100;
+const char gds_dyn_idx_inactive            = 101;
+const char gds_dyn_idx_type                = 103;
+const char gds_dyn_idx_foreign_key         = 104;
+const char gds_dyn_idx_ref_column          = 105;
+ 
+/* Trigger specific attributes */
+ 
+const char gds_dyn_trg_type                = 110;
+const char gds_dyn_trg_blr                 = 111;
+const char gds_dyn_trg_source              = 112;
+const char gds_dyn_trg_name                = 114;
+const char gds_dyn_trg_sequence            = 115;
+const char gds_dyn_trg_inactive            = 116;
+const char gds_dyn_trg_msg_number          = 117;
+const char gds_dyn_trg_msg                 = 118;
+ 
+/* Security Class specific attributes */
+ 
+const char gds_dyn_scl_acl                 = 121;
+const char gds_dyn_grant_user              = 130;
+const char gds_dyn_grant_options           = 132;
+ 
+/* Dimension specific information */
+ 
+const char gds_dyn_dim_lower               = 141;
+const char gds_dyn_dim_upper               = 142;
+ 
+/* File specific attributes */
+
+const char gds_dyn_file_name               = 125;
+const char gds_dyn_file_start              = 126;
+const char gds_dyn_file_length             = 127;
+const char gds_dyn_shadow_number           = 128;
+const char gds_dyn_shadow_man_auto         = 129;
+const char gds_dyn_shadow_conditional      = 130;
+
+/* Function specific attributes */
+
+const char gds_dyn_function_name           = 145;
+const char gds_dyn_function_type           = 146;
+const char gds_dyn_func_module_name        = 147;
+const char gds_dyn_func_entry_point        = 148;
+const char gds_dyn_func_return_argument    = 149;
+const char gds_dyn_func_arg_position       = 150;
+const char gds_dyn_func_mechanism          = 151;
+const char gds_dyn_filter_in_subtype       = 152;
+const char gds_dyn_filter_out_subtype      = 153;
+
+/* Generator specific attributes */
+
+const char gds_dyn_generator_name          = 95;
+const char gds_dyn_generator_id            = 96;
+
+/* Array slice description language (SDL) */
+ 
+const char gds_sdl_version1                = 1;
+const char gds_sdl_eoc                     = -1;
+const char gds_sdl_relation                = 2;
+const char gds_sdl_rid                     = 3;
+const char gds_sdl_field                   = 4;
+const char gds_sdl_fid                     = 5;
+const char gds_sdl_struct                  = 6;
+const char gds_sdl_variable                = 7;
+const char gds_sdl_scalar                  = 8;
+const char gds_sdl_tiny_integer            = 9;
+const char gds_sdl_short_integer           = 10;
+const char gds_sdl_long_integer            = 11;
+const char gds_sdl_literal                 = 12;
+const char gds_sdl_add                     = 13;
+const char gds_sdl_subtract                = 14;
+const char gds_sdl_multiply                = 15;
+const char gds_sdl_divide                  = 16;
+const char gds_sdl_negate                  = 17;
+const char gds_sdl_eql                     = 18;
+const char gds_sdl_neq                     = 19;
+const char gds_sdl_gtr                     = 20;
+const char gds_sdl_geq                     = 21;
+const char gds_sdl_lss                     = 22;
+const char gds_sdl_leq                     = 23;
+const char gds_sdl_and                     = 24;
+const char gds_sdl_or                      = 25;
+const char gds_sdl_not                     = 26;
+const char gds_sdl_while                   = 27;
+const char gds_sdl_assignment              = 28;
+const char gds_sdl_label                   = 29;
+const char gds_sdl_leave                   = 30;
+const char gds_sdl_begin                   = 31;
+const char gds_sdl_end                     = 32;
+const char gds_sdl_do3                     = 33;
+const char gds_sdl_do2                     = 34;
+const char gds_sdl_do1                     = 35;
+const char gds_sdl_element                 = 36;
+ 
+const short SQL_TEXT                        = 452;
+const short SQL_VARYING                     = 448;
+const short SQL_SHORT                       = 500;
+const short SQL_LONG                        = 496;
+const short SQL_FLOAT                       = 482;
+const short SQL_DOUBLE                      = 480;
+const short SQL_DATE                        = 510;
+const short SQL_BLOB                        = 520;
+ 
+/* Forms Package definitions */
+ 
+/* Map definition block definitions */
+ 
+const char PYXIS_MAP_VERSION1              = 1;
+const char PYXIS_MAP_FIELD2                = 2;
+const char PYXIS_MAP_FIELD1                = 3;
+const char PYXIS_MAP_MESSAGE               = 4;
+const char PYXIS_MAP_TERMINATOR            = 5;
+const char PYXIS_MAP_TERMINATING_FIELD     = 6;
+const char PYXIS_MAP_OPAQUE                = 7;
+const char PYXIS_MAP_TRANSPARENT           = 8;
+const char PYXIS_MAP_TAG                   = 9;
+const char PYXIS_MAP_SUB_FORM              = 10;
+const char PYXIS_MAP_ITEM_INDEX            = 11;
+const char PYXIS_MAP_SUB_FIELD             = 12;
+const char PYXIS_MAP_END                   = -1;
+ 
+/* Field option flags for display options */
+ 
+const char PYXIS_OPT_DISPLAY               = 1;
+const char PYXIS_OPT_UPDATE                = 2;
+const char PYXIS_OPT_WAKEUP                = 4;
+const char PYXIS_OPT_POSITION              = 8;
+ 
+/* Field option values following display */
+ 
+const char PYXIS_OPT_NULL                  = 1;
+const char PYXIS_OPT_DEFAULT               = 2;
+const char PYXIS_OPT_INITIAL               = 3;
+const char PYXIS_OPT_USER_DATA             = 4;
+ 
+/* Pseudo key definitions */
+ 
+const char PYXIS_KEY_DELETE                = 127;
+const char PYXIS_KEY_UP                    = 128;
+const char PYXIS_KEY_DOWN                  = 129;
+const char PYXIS_KEY_RIGHT                 = 130;
+const char PYXIS_KEY_LEFT                  = 131;
+const char PYXIS_KEY_PF1                   = 132;
+const char PYXIS_KEY_PF2                   = 133;
+const char PYXIS_KEY_PF3                   = 134;
+const char PYXIS_KEY_PF4                   = 135;
+const char PYXIS_KEY_PF5                   = 136;
+const char PYXIS_KEY_PF6                   = 137;
+const char PYXIS_KEY_PF7                   = 138;
+const char PYXIS_KEY_PF8                   = 139;
+const char PYXIS_KEY_PF9                   = 140;
+const char PYXIS_KEY_ENTER                 = 141;
+const char PYXIS_KEY_SCROLL_TOP            = 146;
+const char PYXIS_KEY_SCROLL_BOTTOM         = 147;
+ 
+/* Menu definition stuff */
+ 
+const char PYXIS_MENU_VERSION1             = 1;
+const char PYXIS_MENU_LABEL                = 2;
+const char PYXIS_MENU_ENTREE               = 3;
+const char PYXIS_MENU_OPAQUE               = 4;
+const char PYXIS_MENU_TRANSPARENT          = 5;
+const char PYXIS_MENU_HORIZONTAL           = 6;
+const char PYXIS_MENU_VERTICAL             = 7;
+const char PYXIS_MENU_END                  = -1;
diff --git a/src/jrd/gds.pas b/src/jrd/gds.pas
new file mode 100644
index 0000000000..b04bbb8d58
--- /dev/null
+++ b/src/jrd/gds.pas
@@ -0,0 +1,1600 @@
+(*******************************************************************)
+(*                                                                 *)
+(* The contents of this file are subject to the Interbase Public   *)
+(* License Version 1.0 (the "License"); you may not use this file  *)
+(* except in compliance with the License. You may obtain a copy    *)
+(* of the License at http://www.Inprise.com/IPL.html                 *)
+(*                                                                 *)
+(* Software distributed under the License is distributed on an     *)
+(* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express     *)
+(* or implied. See the License for the specific language governing *)
+(* rights and limitations under the License.                       *)
+(*                                                                 *)
+(* The Original Code was created by Inprise Corporation *)
+(* and its predecessors. Portions created by Inprise Corporation are     *)
+(* Copyright (C) Inprise Corporation. *)
+(*                                                                 *)
+(* All Rights Reserved.                                            *)
+(* Contributor(s): ______________________________________.         *)
+(*******************************************************************)
+
+(*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		gds.pas
+ *	DESCRIPTION:	GDS constants, procedures, etc.
+ *)
+
+type
+    gds__handle	= ^integer32;
+    gds__string	= array [1..65535] of char;
+    gds__status_vector	= array [1..20] of integer32;
+    gds__quad		= array [1..2] of integer32;
+    gds__vector		= array [1..256] of integer32;
+    gds__evb_t		= array [1..256, 1..31] of char;
+    gds__teb_t	= record
+		    dbb_ptr	: ^gds__handle;
+		    tpb_len	: integer32;
+		    tpb_ptr	: UNIV_PTR;                       
+                 end;
+    gds__tm	= record
+		    tm_sec	: integer32;
+		    tm_min	: integer32;
+		    tm_hour	: integer32;
+		    tm_mday	: integer32;
+		    tm_mon	: integer32;
+		    tm_year	: integer32;
+		    tm_wday	: integer32;
+		    tm_yday	: integer32;
+		    tm_isdst	: integer32;
+		end;
+    sqlvar	= record                    
+		    sqltype		: integer16;
+		    sqllen		: integer16;
+		    sqldata		: UNIV_PTR;
+		    sqlind		: UNIV_PTR;
+		    sqlname_length	: integer16;
+		    sqlname		: array [1..30] of char;
+		end;
+    sqlda	= record
+		    sqldaid		: array [1..8] of char;
+		    sqldabc		: integer32;
+		    sqln		: integer16;
+		    sqld		: integer16;
+		    sqlvars		: array [1..100] of sqlvar;
+		end;
+    xsqlvar	= record                    
+		    sqltype		: integer16;
+		    sqlscale		: integer16;
+		    sqlsubtype		: integer16;
+		    sqllen		: integer16;
+		    sqldata		: UNIV_PTR;
+		    sqlind		: UNIV_PTR;
+		    sqlname_length	: integer16;
+		    sqlname		: array [1..32] of char;
+		    relname_length	: integer16;
+		    relname		: array [1..32] of char;
+		    ownname_length	: integer16;
+		    ownname		: array [1..32] of char;
+		    aliasname_length	: integer16;
+		    aliasname		: array [1..32] of char;
+		end;
+    xsqlda	= record
+		    version		: integer16;
+		    sqldaid		: array [1..8] of char;
+		    sqldabc		: integer32;
+		    sqln		: integer16;
+		    sqld		: integer16;
+		    sqlvars		: array [1..100] of xsqlvar;
+		end;
+
+procedure GDS__SET_DEBUG (
+        in	debug_val	: integer32
+        ); extern;
+
+procedure GDS__ATTACH_DATABASE (
+	out	stat		: gds__status_vector; 
+	in	name_length	: integer16;
+	in	file_name	: UNIV gds__string; 
+	in out	db_handle	: gds__handle;
+	in	dpb_length	: integer16;
+	in	dpb		: UNIV gds__string
+	); extern;
+
+procedure GDS__CANCEL_BLOB (
+	out 	stat		: gds__status_vector; 
+	in out	blob_handle	: gds__handle
+	); extern;
+
+procedure GDS__CANCEL_EVENTS (
+        out     stat            : gds__status_vector;
+        in out  db_handle       : gds__handle;
+        in      id              : gds__handle
+        ); extern;
+
+procedure GDS__CLOSE_BLOB (
+	out 	stat		: gds__status_vector; 
+	in out	blob_handle	: gds__handle
+	); extern;
+
+procedure GDS__COMMIT_RETAINING (
+	out	stat		: gds__status_vector; 
+	in out	tra_handle	: gds__handle
+	); extern;
+
+procedure GDS__COMMIT_TRANSACTION (
+	out	stat		: gds__status_vector; 
+	in out	tra_handle	: gds__handle
+	); extern;
+
+procedure GDS__COMPILE_REQUEST (
+	out	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in out	request_handle	: gds__handle;
+	in	blr_length	: integer16;
+	in	blr		: UNIV gds__string
+	); extern;
+
+procedure GDS__COMPILE_REQUEST2 (
+	out	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in out	request_handle	: gds__handle;
+	in	blr_length	: integer16;
+	in	blr		: UNIV gds__string
+	); extern;
+
+procedure GDS__CREATE_BLOB (
+	out 	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in	tra_handle	: gds__handle;
+	in out	blob_handle	: gds__handle;
+	out	blob_id		: gds__quad
+	); extern;
+
+procedure GDS__CREATE_BLOB2 (
+        out     stat            : gds__status_vector;
+        in      db_handle       : gds__handle;
+        in      tra_handle      : gds__handle;
+        in out  blob_handle     : gds__handle;
+        out     blob_id         : gds__quad;
+        in      bpb_length      : integer16;
+        in      bpb             : UNIV gds__string
+        ); extern;
+
+procedure GDS__CREATE_DATABASE (
+	out 	stat		: gds__status_vector; 
+	in	name_length	: integer16;
+	in	file_name	: UNIV gds__string; 
+	in out	db_handle	: gds__handle;
+	in	dpb_length	: integer16;
+	in	dpb		: UNIV gds__string;
+	in	dpb_type	: integer16
+	); extern;
+
+procedure GDS__DDL (
+	out 	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in	tra_handle	: gds__handle;
+	in	mblr_length	: integer16;
+	in	mblr		: UNIV gds__string
+	); extern;
+
+procedure GDS__DETACH_DATABASE (
+	out	stat		: gds__status_vector; 
+	in out	db_handle	: gds__handle
+	); extern;
+
+procedure GDS__DROP_DATABASE (
+	out 	stat		: gds__status_vector; 
+	in	name_length	: integer16;
+	in	file_name	: UNIV gds__string; 
+	in	dbtype		: integer16
+	); extern;
+
+function GDS__EVENT_BLOCK_A (
+        out     events          : UNIV_PTR;
+        out     buffer          : UNIV_PTR;
+        in      length          : integer16;
+	in      names           : UNIV gds__evb_t
+	) : integer16; extern;
+
+procedure GDS__EVENT_COUNTS_ (
+        out     counts          : UNIV gds__vector;
+        in      length          : integer16;
+        in      event_buffer    : UNIV_PTR;
+        in      result_buffer   : UNIV_PTR
+        ); extern;
+
+procedure GDS__EVENT_WAIT_ (
+        out     stat            : gds__status_vector;
+        in      db_handle       : gds__handle;
+        in      length          : integer16;
+        in      events          : UNIV_PTR;
+        in      buffer          : UNIV_PTR
+        ); extern;
+
+procedure GDS__GET_SLICE (
+	out 	stat		: gds__status_vector; 
+        in      db_handle       : gds__handle;
+        in      tra_handle      : gds__handle;
+	in	blob_id         : gds__quad;
+        in      sdl_length      : integer16;
+        in      sdl             : UNIV gds__string;
+        in      param_length    : integer16;
+        in      param           : UNIV gds__string;
+        in      slice_length    : integer32;
+        in      slice           : UNIV gds__string;
+        in out  return_length   : integer32
+	); extern;
+
+function GDS__GET_SEGMENT (
+	out 	stat		: gds__status_vector; 
+	in	blob_handle	: gds__handle;
+	out	length		: integer16;
+	in	buffer_length	: integer16;
+	out	buffer		: UNIV gds__string
+	): integer32; extern;
+
+procedure GDS__OPEN_BLOB (
+	out 	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in	tra_handle	: gds__handle;
+	in out	blob_handle	: gds__handle;
+	in	blob_id		: gds__quad
+	); extern;
+
+procedure GDS__OPEN_BLOB2 (
+	out 	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in	tra_handle	: gds__handle;
+	in out	blob_handle	: gds__handle;
+	in	blob_id		: gds__quad;
+        in      bpb_length      : integer16;
+        in      bpb             : UNIV gds__string
+	); extern;
+
+procedure GDS__PREPARE_TRANSACTION (
+	out	stat		: gds__status_vector; 
+	in out	tra_handle	: gds__handle
+	); extern;
+
+procedure GDS__PREPARE_TRANSACTION2 (
+	out	stat		: gds__status_vector; 
+	in out	tra_handle	: gds__handle;
+        in      msg_length      : integer16;
+        in      msg             : UNIV gds__string
+	); extern;
+
+function GDS__PUT_SEGMENT (
+	out 	stat		: gds__status_vector; 
+	in	blob_handle	: gds__handle;
+	in	length		: integer16;
+	out	buffer		: UNIV gds__string
+	): integer32; extern;
+
+procedure GDS__PUT_SLICE (
+	out 	stat		: gds__status_vector; 
+        in      db_handle       : gds__handle;
+        in      tra_handle      : gds__handle;
+	in	blob_id         : gds__quad;
+        in      sdl_length      : integer16;
+        in      sdl             : UNIV gds__string;
+        in      param_length    : integer16;
+        in      param           : UNIV gds__string;
+        in      slice_length    : integer32;
+        in      slice           : UNIV gds__string
+	); extern;
+
+procedure GDS__QUE_EVENTS (
+        out     stat            : gds__status_vector;
+        in      db_handle       : gds__handle;
+        in      id              : gds__quad;
+        in      length          : integer16;
+        in      events          : UNIV gds__string;
+        in      ast             : gds__handle;
+        in      arg             : gds__quad
+        ); extern;
+
+procedure GDS__RECEIVE (
+	out	stat		: gds__status_vector; 
+	in	request_handle	: gds__handle;
+	in	message_type	: integer16;
+	in	message_length	: integer16;
+	in out	message		: UNIV gds__string;
+	in	instantiation	: integer16
+	); extern;
+
+procedure GDS__RELEASE_REQUEST (
+	out	stat		: gds__status_vector; 
+	in	request_handle	: gds__handle
+	); extern;
+
+procedure GDS__ROLLBACK_TRANSACTION (
+	out	stat		: gds__status_vector; 
+	in out	tra_handle	: gds__handle
+	); extern;
+
+procedure GDS__SEND (
+	out	stat		: gds__status_vector; 
+	in	request_handle	: gds__handle;
+	in	message_type	: integer16;
+	in	message_length	: integer16;
+	in	message		: UNIV gds__string;
+	in	instantiation	: integer16
+	); extern;
+
+procedure GDS__START_AND_SEND (
+	out	stat		: gds__status_vector; 
+	in	request_handle	: gds__handle;
+	in	tra_handle	: gds__handle;
+	in	message_type	: integer16;
+	in	message_length	: integer16;
+	in	message		: UNIV gds__string;
+	in	instantiation	: integer16
+	); extern;
+
+procedure GDS__START_REQUEST (
+	out	stat		: gds__status_vector; 
+	in	request_handle	: gds__handle;
+	in	tra_handle	: gds__handle;
+	in	instantiation	: integer16
+	); extern;
+
+procedure GDS__START_MULTIPLE (
+	out	stat		: gds__status_vector; 
+	in out	tra_handle	: gds__handle;
+	in	tra_count	: integer16;
+	in	teb		: UNIV gds__string
+	); extern;
+
+procedure GDS__START_TRANSACTION (
+	out	stat		: gds__status_vector; 
+	in out	tra_handle	: gds__handle;
+	in	tra_count	: integer16;
+	in	db_handle	: gds__handle;
+	in	tpb_length	: integer16;
+	in	tpb		: UNIV gds__string
+	); extern;
+
+procedure GDS__UNWIND_REQUEST (
+	out	stat		: gds__status_vector; 
+	in	request_handle	: gds__handle;
+	in	instantiation	: integer16
+	); extern;
+
+procedure isc_dsql_allocate_statement (
+	out	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in out	stmt_handle	: gds__handle
+	); extern;
+
+procedure isc_dsql_alloc_statement2 (
+	out	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in out	stmt_handle	: gds__handle
+	); extern;
+
+procedure isc_dsql_execute_m (
+	out	stat		: gds__status_vector; 
+	in out	tra_handle	: gds__handle;
+	in out	stmt_handle	: gds__handle;
+	in	blr_length	: integer32;
+	in	blr		: UNIV gds__string;
+	in	msg_type	: integer32;
+	in	msg_length	: integer32;
+	in	msg		: UNIV gds__string
+	); extern; val_param;
+
+procedure isc_dsql_execute2_m (
+	out	stat		: gds__status_vector; 
+	in out	tra_handle	: gds__handle;
+	in out	stmt_handle	: gds__handle;
+	in	in_blr_length	: integer32;
+	in	in_blr		: UNIV gds__string;
+	in	in_msg_type	: integer32;
+	in	in_msg_length	: integer32;
+	in	in_msg		: UNIV gds__string;
+	in	out_blr_length	: integer32;
+	in	out_blr		: UNIV gds__string;
+	in	out_msg_type	: integer32;
+	in	out_msg_length	: integer32;
+	in out	out_msg		: UNIV gds__string
+	); extern; val_param;
+
+procedure isc_dsql_free_statement (
+	out	stat		: gds__status_vector; 
+	in out	stmt_handle	: gds__handle;
+	in	option		: integer32
+	); extern; val_param;
+
+procedure isc_dsql_set_cursor_name (
+	out	stat		: gds__status_vector; 
+	in out	stmt_handle	: gds__handle;
+	in	cursor_name	: UNIV gds__string;
+	in	cursor_type	: integer32
+	); extern; val_param;
+
+procedure gds__ftof (
+	in	string1		: UNIV gds__string;
+	in	length1		: integer16;
+	in	string2		: UNIV gds__string;
+	in	length2		: integer16
+	); extern;
+
+procedure gds__print_status (
+	in	stat		: gds__status_vector
+	); extern;
+
+function gds__sqlcode (
+	in	stat		: gds__status_vector
+	) : integer32; extern;
+
+
+procedure gds__encode_date (
+	in	times		: gds__tm;
+	out	date 		: gds__quad
+    ); extern;
+
+procedure gds__decode_date (
+	in	date 		: gds__quad;
+	out	times		: gds__tm 
+    ); extern;
+
+procedure isc_exec_procedure (
+	out	stat		: gds__status_vector; 
+	in out	db_handle	: gds__handle;
+	in out	tra_handle	: gds__handle;
+	in	name_length	: integer32;
+	in	proc_name	: UNIV gds__string; 
+	in	blr_length	: integer32;
+	in	blr		: UNIV gds__string;
+	in	in_msg_length	: integer32;
+	in	in_msg		: UNIV gds__string;
+	in	out_msg_length	: integer32;
+	in out	out_msg		: UNIV gds__string
+	); extern; val_param;
+
+const
+    gds__true	= 1;
+    gds__false  = 0;
+
+    blr_text = chr(14);                                                
+    blr_short = chr(7);
+    blr_long = chr(8);
+    blr_quad = chr(9);
+    blr_float = chr(10);
+    blr_double = chr(27);
+    blr_d_float = chr(11);
+    blr_date = chr(35);
+    blr_varying = chr(37);
+    blr_cstring = chr(40);
+    blr_blob = chr(261);
+    blr_version4 = chr(4);
+    blr_eoc = chr(76);
+    blr_end = chr(255);
+    blr_blob_id = chr(45);
+
+    blr_inner = chr(0);
+    blr_left = chr(1);
+    blr_right = chr(2);
+    blr_full = chr(3);
+
+    blr_gds_code = chr(0);
+    blr_sql_code = chr(1);
+    blr_exception = chr(2);
+    blr_trigger_code = chr(3);
+    blr_default_code = chr(4);
+
+    blr_assignment = chr(1);
+    blr_begin = chr(2);
+    blr_message = chr(4);
+    blr_erase = chr(5);
+    blr_fetch = chr(6);
+    blr_for = chr(7);
+    blr_if = chr(8);
+    blr_loop = chr(9);
+    blr_modify = chr(10);
+    blr_handler = chr(11);
+    blr_receive = chr(12);
+    blr_select = chr(13);
+    blr_send = chr(14);
+    blr_store = chr(15);
+    blr_label = chr(17);
+    blr_leave = chr(18);
+    blr_literal = chr(21);
+    blr_dbkey = chr(22);
+    blr_field = chr(23);
+    blr_fid = chr(24);
+    blr_parameter = chr(25);
+    blr_variable = chr(26);
+    blr_average = chr(27);
+    blr_count = chr(28);
+    blr_maximum = chr(29);
+    blr_minimum = chr(30);
+    blr_total = chr(31);
+
+    blr_add = chr(34);
+    blr_subtract = chr(35);
+    blr_multiply = chr(36);
+    blr_divide = chr(37);
+    blr_negate = chr(38);
+    blr_concatenate = chr(39);
+    blr_substring = chr(40);
+    blr_parameter2 = chr(41);
+    blr_from = chr(42);
+    blr_via = chr(43);
+    blr_null = chr(45);
+
+    blr_eql = chr(47);
+    blr_neq = chr(48);
+    blr_gtr = chr(49);
+    blr_geq = chr(50);
+    blr_lss = chr(51);
+    blr_leq = chr(52);
+    blr_containing = chr(53);
+    blr_matching = chr(54);
+    blr_starting = chr(55);
+    blr_between = chr(56);
+    blr_or = chr(57);
+    blr_and = chr(58);
+    blr_not = chr(59);
+    blr_any = chr(60);
+    blr_missing = chr(61);
+    blr_unique = chr(62);
+    blr_like = chr(63);
+
+    blr_stream = chr(65);
+    blr_set_index = chr(66);
+
+    blr_rse = chr(67);
+    blr_first = chr(68);
+    blr_project = chr(69);
+    blr_sort = chr(70);
+    blr_boolean = chr(71);
+    blr_ascending = chr(72);
+    blr_descending = chr(73);
+    blr_relation = chr(74);
+    blr_rid = chr(75);
+    blr_union = chr(76);
+    blr_map = chr(77);
+    blr_group_by = chr(78);
+    blr_aggregate = chr(79);
+    blr_join_type = chr(80);
+
+    blr_agg_count = chr(83);
+    blr_agg_max	= chr(84);
+    blr_agg_min	= chr(85);
+    blr_agg_total = chr(86);
+    blr_agg_average = chr(87);
+    blr_run_count = chr(118);
+    blr_run_max	= chr(89);
+    blr_run_min	= chr(90);
+    blr_run_total = chr(91);
+    blr_run_average = chr(92);
+    blr_upcase = chr(103);
+    blr_lock_state = chr(104);
+    blr_value_if = chr(105);
+    blr_matching2 = chr(106);
+    blr_index = chr(107);
+    blr_ansi_like = chr(108);
+    blr_bookmark = chr(109);
+    blr_crack = chr(110);
+    blr_force_crack = chr(111);
+    blr_seek = chr(112);
+    blr_find = chr(113);
+    blr_lock_relation = chr(114);
+    blr_lock_record = chr(115);
+    blr_set_bookmark = chr(116);
+    blr_get_bookmark = chr(117);
+
+    blr_parameter3 = chr(88);
+    blr_rs_stream = chr(119);
+    blr_exec_proc = chr(120);
+
+    blr_begin_range = chr(121);
+    blr_end_range = chr(122);
+    blr_delete_range = chr(123);
+    blr_procedure = chr(124);
+    blr_pid = chr(125);
+    blr_exec_pid = chr(126);
+    blr_singular = chr(127);
+    blr_abort = chr(128);
+    blr_block = chr(129);
+    blr_error_handler = chr(130);
+    blr_cast = chr(131);
+
+
+(* Database parameter block stuff *)
+
+     gds__dpb_version1		= chr (1);
+
+     gds__dpb_cdd_pathname	= chr (1);	(* not implemented *)
+     gds__dpb_allocation	= chr (2);	(* not implemented *)
+     gds__dpb_journal 		= chr (3);
+     gds__dpb_page_size 	= chr (4);
+     gds__dpb_num_buffers 	= chr (5);
+     gds__dpb_buffer_length	= chr (6);	(* not implemented *)
+     gds__dpb_debug 		= chr (7);	(* not implemented *)
+     gds__dpb_garbage_collect	= chr (8);	(* not implemented *)
+     gds__dpb_verify 		= chr (9);
+     gds__dpb_sweep 		= chr (10);
+     gds__dpb_enable_journal	= chr (11);
+     gds__dpb_disable_journal	= chr (12);
+     gds__dpb_dbkey_scope	= chr (13);	(* not implemented *)
+     gds__dpb_number_of_users	= chr (14);	(* not implemented *)
+     gds__dpb_trace		= chr (15);	(* not implemented *)
+     gds__dpb_no_garbage_collect = chr (16);	(* not implemented *)
+     gds__dpb_damaged		= chr (17);	(* not implemented *)
+     gds__dpb_license           = chr (18);
+     gds__dpb_sys_user_name     = chr (19);
+     gds__dpb_encrypt_key       = chr (20);
+     gds__dpb_activate_shadow   = chr (21);
+     gds__dpb_sweep_interval    = chr (22);
+     gds__dpb_delete_shadow     = chr (23);
+     gds__dpb_force_write       = chr (24);
+     gds__dpb_begin_log         = chr (25);
+     gds__dpb_quit_log          = chr (26);
+     gds__dpb_no_reserve        = chr (27);
+     gds__dpb_user_name         = chr (28);
+     gds__dpb_password          = chr (29);
+     gds__dpb_password_enc      = chr (30);
+     gds__dpb_sys_user_name_enc = chr (31);
+
+     gds__dpb_pages		= chr(1);
+     gds__dpb_records 		= chr(2);
+     gds__dpb_indices 		= chr(4);
+     gds__dpb_transactions 	= chr(8);
+     gds__dpb_no_update 	= chr(16);
+     gds__dpb_repair 		= chr(32);
+     gds__dpb_ignore 		= chr(64);
+
+
+
+(* Transaction parameter block stuff *)
+
+    gds__tpb_version3	 = chr (3);
+    gds__tpb_consistency = chr (1);
+    gds__tpb_concurrency = chr (2);
+    gds__tpb_shared	 = chr (3);
+    gds__tpb_protected	 = chr (4);
+    gds__tpb_exclusive	 = chr (5);
+    gds__tpb_wait	 = chr (6);
+    gds__tpb_nowait	 = chr (7);
+    gds__tpb_read	 = chr (8);
+    gds__tpb_write	 = chr (9);
+    gds__tpb_lock_read	 = chr (10);
+    gds__tpb_lock_write	 = chr (11);
+    gds__tpb_verb_time	 = chr (12);
+    gds__tpb_commit_time = chr (13);
+    gds__tpb_ignore_limbo = chr (14);
+
+(* Blob parameter block stuff *)
+
+     gds__bpb_version1		= chr (1);
+     gds__bpb_source_type	= chr (1);
+     gds__bpb_target_type	= chr (2);
+     gds__bpb_type		= chr (3);
+
+     gds__bpb_type_segmented	= chr (0);
+     gds__bpb_type_stream	= chr (1);
+
+(* Blob routine declarations *)
+
+type
+    gds__field_name	= array [1..31] of char;
+    gds__file_name	= array [1..128] of char;
+
+procedure blob__display (
+	in	blob_id		: gds__quad;
+	in 	db_handle	: gds__handle;
+	in 	tra_handle	: gds__handle;
+        in	field_name	: univ gds__field_name;
+        in      name_length	: integer16
+	); extern;
+
+procedure blob__dump (
+	in	blob_id		: gds__quad;
+	in 	db_handle	: gds__handle;
+	in 	tra_handle	: gds__handle;
+        in	file_name	: univ gds__file_name;
+        in      name_length	: integer16
+	); extern;
+
+procedure blob__edit (
+	in	blob_id		: gds__quad;
+	in 	db_handle	: gds__handle;
+	in 	tra_handle	: gds__handle;
+        in	field_name	: univ gds__field_name;
+        in      name_length	: integer16
+	); extern;
+
+procedure blob__load (
+	in	blob_id		: gds__quad;
+	in 	db_handle	: gds__handle;
+	in 	tra_handle	: gds__handle;
+        in	file_name	: univ gds__file_name;
+        in      name_length	: integer16
+	); extern;
+
+(* Dynamic SQL procedures *)
+
+procedure gds__close (
+	out	stat		: gds__status_vector; 
+	in	cursor_name	: UNIV gds__string
+	); extern;
+
+procedure gds__declare (
+	out	stat		: gds__status_vector; 
+	in	statement_name	: UNIV gds__string;
+	in	cursor_name	: UNIV gds__string
+	); extern;
+
+procedure gds__describe (
+	out	stat		: gds__status_vector; 
+	in	statement_name	: UNIV gds__string;
+	in out	descriptor	: UNIV sqlda
+	); extern;
+
+procedure gds__describe_bind (
+	out	stat		: gds__status_vector; 
+	in	statement_name	: UNIV gds__string;
+	in out	descriptor	: UNIV sqlda
+	); extern;
+
+procedure gds__dsql_finish (
+	in	db_handle	: gds__handle
+	); extern;
+
+procedure gds__execute (
+	out	stat		: gds__status_vector; 
+	in	trans_handle	: gds__handle;
+	in	statement_name	: UNIV gds__string;
+	in out	descriptor	: UNIV sqlda
+	); extern;
+
+procedure gds__execute_immediate (
+	out	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in	trans_handle	: gds__handle;
+	in	string_length	: integer;
+	in	string		: UNIV gds__string
+	); extern;
+
+function gds__fetch (
+	out	stat		: gds__status_vector; 
+	in	cursor_name	: UNIV gds__string;
+	in out	descriptor	: UNIV sqlda
+	) : integer32; extern;
+
+procedure gds__open (
+	out	stat		: gds__status_vector; 
+	in	trans_handle	: gds__handle;
+	in	cursor_name	: UNIV gds__string;
+	in out	descriptor	: UNIV sqlda
+	); extern;
+
+procedure gds__prepare (
+	out	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in	trans_handle	: gds__handle;
+	in	statement_name	: UNIV gds__string;
+	in	string_length	: integer;
+	in	string		: UNIV gds__string;
+	in out	descriptor	: UNIV sqlda
+	); extern;
+
+procedure isc_embed_dsql_close (
+	out	stat		: gds__status_vector; 
+	in	cursor_name	: UNIV gds__string
+	); extern;
+
+procedure isc_embed_dsql_declare (
+	out	stat		: gds__status_vector; 
+	in	statement_name	: UNIV gds__string;
+	in	cursor_name	: UNIV gds__string
+	); extern;
+
+procedure isc_embed_dsql_describe (
+	out	stat		: gds__status_vector; 
+	in	statement_name	: UNIV gds__string;
+	in	dialect		: integer32;
+	in out	descriptor	: UNIV sqlda
+	); extern; val_param;
+
+procedure isc_embed_dsql_describe_bind (
+	out	stat		: gds__status_vector; 
+	in	statement_name	: UNIV gds__string;
+	in	dialect		: integer32;
+	in out	descriptor	: UNIV sqlda
+	); extern; val_param;
+
+procedure isc_embed_dsql_execute (
+	out	stat		: gds__status_vector; 
+	in out	trans_handle	: gds__handle;
+	in	statement_name	: UNIV gds__string;
+	in	dialect		: integer32;
+	in out	descriptor	: UNIV sqlda
+	); extern; val_param;
+
+procedure isc_embed_dsql_execute2 (
+	out	stat		: gds__status_vector; 
+	in out	trans_handle	: gds__handle;
+	in	statement_name	: UNIV gds__string;
+	in	dialect		: integer32;
+	in out	in_descriptor	: UNIV sqlda;
+	in out	out_descriptor	: UNIV sqlda
+	); extern; val_param;
+
+procedure isc_embed_dsql_execute_immed (
+	out	stat		: gds__status_vector; 
+	in out	db_handle	: gds__handle;
+	in out	trans_handle	: gds__handle;
+	in	string_length	: integer32;
+	in	string		: UNIV gds__string;
+	in	dialect		: integer32;
+	in out	descriptor	: UNIV sqlda
+	); extern; val_param;
+
+function isc_embed_dsql_fetch (
+	out	stat		: gds__status_vector; 
+	in	cursor_name	: UNIV gds__string;
+	in	dialect		: integer32;
+	in out	descriptor	: UNIV sqlda
+	) : integer32; extern; val_param;
+
+procedure isc_embed_dsql_open (
+	out	stat		: gds__status_vector; 
+	in out	trans_handle	: gds__handle;
+	in	cursor_name	: UNIV gds__string;
+	in	dialect		: integer32;
+	in out	descriptor	: UNIV sqlda
+	); extern; val_param;
+
+procedure isc_embed_dsql_prepare (
+	out	stat		: gds__status_vector; 
+	in out	db_handle	: gds__handle;
+	in out	trans_handle	: gds__handle;
+	in	statement_name	: UNIV gds__string;
+	in	string_length	: integer32;
+	in	string		: UNIV gds__string;
+	in	dialect		: integer32;
+	in out	descriptor	: UNIV sqlda
+	); extern; val_param;
+
+procedure isc_embed_dsql_release (
+	out	stat		: gds__status_vector; 
+	in	statement_name	: UNIV gds__string
+	); extern;
+
+(* Information parameters *)
+
+(* Common, structural codes *)
+const
+    gds__info_end		= chr(1);
+    gds__info_truncated		= chr(2);
+    gds__info_error		= chr(3);
+
+(* Database information items *)
+
+    gds__info_db_id		= chr(4);
+    gds__info_reads		= chr(5);
+    gds__info_writes		= chr(6);
+    gds__info_fetches		= chr(7);
+    gds__info_marks		= chr(8);
+    gds__info_implementation 	= chr(11);
+    gds__info_version		= chr(12);
+    gds__info_base_level	= chr(13);
+    gds__info_page_size		= chr(14);
+    gds__info_num_buffers	= chr(15);
+    gds__info_limbo		= chr(16);
+    gds__info_current_memory	= chr(17);
+    gds__info_max_memory	= chr(18);
+    gds__info_window_turns	= chr(19);
+    gds__info_license           = chr(20);
+    gds__info_allocation        = chr(21);
+    gds__info_attachment_id     = chr(22);
+    gds__info_read_seq_count    = chr(23);
+    gds__info_read_idx_count    = chr(24);
+    gds__info_insert_count      = chr(25);
+    gds__info_update_count      = chr(26);
+    gds__info_delete_count      = chr(27);
+    gds__info_backout_count     = chr(28);
+    gds__info_purge_count       = chr(29);
+    gds__info_expunge_count     = chr(30);
+    gds__info_sweep_interval    = chr(31);
+    gds__info_ods_version       = chr(32);
+    gds__info_ods_minor_version = chr(33);
+    gds__info_no_reserve        = chr(34);
+
+
+(* Request information items *)
+
+    gds__info_number_messages	= chr(4);
+    gds__info_max_message	= chr(5);
+    gds__info_max_send		= chr(6);
+    gds__info_max_receive	= chr(7);
+    gds__info_state		= chr(8);
+    gds__info_message_number	= chr(9);
+    gds__info_message_size	= chr(10);
+    gds__info_request_cost	= chr(11);
+
+    gds__info_req_active	= chr(2);
+    gds__info_req_inactive	= chr(3);
+    gds__info_req_send		= chr(4);
+    gds__info_req_receive	= chr(5);
+    gds__info_req_select	= chr(6);
+
+(* Blob information items *)
+
+    gds__info_blob_num_segments	= chr(4);
+    gds__info_blob_max_segment	= chr(5);
+    gds__info_blob_total_length	= chr(6);
+    gds__info_blob_type		= chr(7);
+
+(* Transaction information items *)
+
+    gds__info_tra_id		= chr(4);
+
+(* SQL information items *)
+
+    gds__info_sql_select        = chr(4);
+    gds__info_sql_bind          = chr(5);
+    gds__info_sql_num_variables = chr(6);
+    gds__info_sql_describe_vars = chr(7);
+    gds__info_sql_describe_end  = chr(8);
+    gds__info_sql_sqlda_seq     = chr(9);
+    gds__info_sql_message_seq   = chr(10);
+    gds__info_sql_type          = chr(11);
+    gds__info_sql_sub_type      = chr(12);
+    gds__info_sql_scale         = chr(13);
+    gds__info_sql_length        = chr(14);
+    gds__info_sql_null_ind      = chr(15);
+    gds__info_sql_field         = chr(16);
+    gds__info_sql_relation      = chr(17);
+    gds__info_sql_owner         = chr(18);
+    gds__info_sql_alias         = chr(19);
+
+(* Error codes *)
+
+CONST
+	gds_facility		= 20;
+	gds_err_base		= 335544320;
+	gds_err_factor		= 1;
+	gds_arg_end		= 0;	(* end of argument list *)
+	gds_arg_gds		= 1;	(* generic DSRI status value *)
+	gds_arg_string		= 2;	(* string argument *)
+	gds_arg_cstring		= 3;	(* count & string argument *)
+	gds_arg_number		= 4;	(* numeric argument (long) *)
+	gds_arg_interpreted	= 5;	(* interpreted status code (string) *)
+	gds_arg_vms		= 6;	(* VAX/VMS status code (long) *)
+	gds_arg_unix		= 7;	(* UNIX error code *)
+	gds_arg_domain		= 8;	(* Apollo/Domain error code *)
+	gds_arg_dos		= 9;	(* DOS error code *)
+	gds_arg_mpexl		= 10;	(* MPE XL error code *)
+	gds_arg_mpexl_ipc	= 11;	(* MPE XL (IPC) error code *)
+
+	gds__arith_except         = 335544321;
+	gds__bad_dbkey            = 335544322;
+	gds__bad_db_format        = 335544323;
+	gds__bad_db_handle        = 335544324;
+	gds__bad_dpb_content      = 335544325;
+	gds__bad_dpb_form         = 335544326;
+	gds__bad_req_handle       = 335544327;
+	gds__bad_segstr_handle    = 335544328;
+	gds__bad_segstr_id        = 335544329;
+	gds__bad_tpb_content      = 335544330;
+	gds__bad_tpb_form         = 335544331;
+	gds__bad_trans_handle     = 335544332;
+	gds__bug_check            = 335544333;
+	gds__convert_error        = 335544334;
+	gds__db_corrupt           = 335544335;
+	gds__deadlock             = 335544336;
+	gds__excess_trans         = 335544337;
+	gds__from_no_match        = 335544338;
+	gds__infinap              = 335544339;
+	gds__infona               = 335544340;
+	gds__infunk               = 335544341;
+	gds__integ_fail           = 335544342;
+	gds__invalid_blr          = 335544343;
+	gds__io_error             = 335544344;
+	gds__lock_conflict        = 335544345;
+	gds__metadata_corrupt     = 335544346;
+	gds__not_valid            = 335544347;
+	gds__no_cur_rec           = 335544348;
+	gds__no_dup               = 335544349;
+	gds__no_finish            = 335544350;
+	gds__no_meta_update       = 335544351;
+	gds__no_priv              = 335544352;
+	gds__no_recon             = 335544353;
+	gds__no_record            = 335544354;
+	gds__no_segstr_close      = 335544355;
+	gds__obsolete_metadata    = 335544356;
+	gds__open_trans           = 335544357;
+	gds__port_len             = 335544358;
+	gds__read_only_field      = 335544359;
+	gds__read_only_rel        = 335544360;
+	gds__read_only_trans      = 335544361;
+	gds__read_only_view       = 335544362;
+	gds__req_no_trans         = 335544363;
+	gds__req_sync             = 335544364;
+	gds__req_wrong_db         = 335544365;
+	gds__segment              = 335544366;
+	gds__segstr_eof           = 335544367;
+	gds__segstr_no_op         = 335544368;
+	gds__segstr_no_read       = 335544369;
+	gds__segstr_no_trans      = 335544370;
+	gds__segstr_no_write      = 335544371;
+	gds__segstr_wrong_db      = 335544372;
+	gds__sys_request          = 335544373;
+	gds__unavailable          = 335544375;
+	gds__unres_rel            = 335544376;
+	gds__uns_ext              = 335544377;
+	gds__wish_list            = 335544378;
+	gds__wrong_ods            = 335544379;
+	gds__wronumarg            = 335544380;
+	gds__imp_exc              = 335544381;
+	gds__random               = 335544382;
+	gds__fatal_conflict       = 335544383;
+
+(* Minor codes subject to change *)
+
+	gds__badblk               = 335544384;
+	gds__invpoolcl            = 335544385;
+	gds__nopoolids            = 335544386;
+	gds__relbadblk            = 335544387;
+	gds__blktoobig            = 335544388;
+	gds__bufexh               = 335544389;
+	gds__syntaxerr            = 335544390;
+	gds__bufinuse             = 335544391;
+	gds__bdbincon             = 335544392;
+	gds__reqinuse             = 335544393;
+	gds__badodsver            = 335544394;
+	gds__relnotdef            = 335544395;
+	gds__fldnotdef            = 335544396;
+	gds__dirtypage            = 335544397;
+	gds__waifortra            = 335544398;
+	gds__doubleloc            = 335544399;
+	gds__nodnotfnd            = 335544400;
+	gds__dupnodfnd            = 335544401;
+	gds__locnotmar            = 335544402;
+	gds__badpagtyp            = 335544403;
+	gds__corrupt              = 335544404;
+	gds__badpage              = 335544405;
+	gds__badindex             = 335544406;
+	gds__dbbnotzer            = 335544407;
+	gds__tranotzer            = 335544408;
+	gds__trareqmis            = 335544409;
+	gds__badhndcnt            = 335544410;
+	gds__wrotpbver            = 335544411;
+	gds__wroblrver            = 335544412;
+	gds__wrodpbver            = 335544413;
+	gds__blobnotsup           = 335544414;
+	gds__badrelation          = 335544415;
+	gds__nodetach             = 335544416;
+	gds__notremote            = 335544417;
+	gds__trainlim             = 335544418;
+	gds__notinlim             = 335544419;
+	gds__traoutsta            = 335544420;
+	gds__connect_reject       = 335544421;
+	gds__dbfile               = 335544422;
+	gds__orphan               = 335544423;
+	gds__no_lock_mgr          = 335544424;
+	gds__ctxinuse             = 335544425;
+	gds__ctxnotdef            = 335544426;
+	gds__datnotsup            = 335544427;
+	gds__badmsgnum            = 335544428;
+	gds__badparnum            = 335544429;
+	gds__virmemexh            = 335544430;
+	gds__blocking_signal      = 335544431;
+	gds__lockmanerr           = 335544432;
+	gds__journerr             = 335544433;
+	gds__keytoobig            = 335544434;
+	gds__nullsegkey           = 335544435;
+	gds__sqlerr               = 335544436;
+	gds__wrodynver            = 335544437;
+        gds__obj_in_use           = 335544453;
+        gds__nofilter             = 335544454;
+        gds__shadow_accessed      = 335544455;
+        gds__invalid_sdl          = 335544456;
+        gds__out_of_bounds        = 335544457;
+        gds__invalid_dimension    = 335544458;
+        gds__rec_in_limbo         = 335544459;
+        gds__shadow_missing       = 335544460;
+        gds__cant_validate        = 335544461;
+        gds__cant_start_journal   = 335544462;
+        gds__gennotdef            = 335544463;
+        gds__cant_start_logging   = 335544464;
+        gds__bad_segstr_type      = 335544465;
+        gds__foreign_key          = 335544466;
+        gds__high_minor           = 335544467;
+        gds__tra_state            = 335544468;
+        gds__trans_invalid        = 335544469;
+        gds__buf_invalid          = 335544470;
+        gds__indexnotdefined      = 335544471;
+        gds__login                = 335544472;
+        gds__invalid_bookmark     = 335544473;
+        gds__bad_lock_level       = 335544474;
+        gds__relation_lock        = 335544475;
+        gds__record_lock          = 335544476;
+        gds__max_idx              = 335544477;
+        gds__jrn_enable           = 335544478;
+        gds__old_failure          = 335544479;
+        gds__old_in_progress      = 335544480;
+        gds__old_no_space         = 335544481;
+        gds__no_wal_no_jrn        = 335544482;
+        gds__num_old_files        = 335544483;
+        gds__wal_file_open        = 335544484;
+        gds__bad_stmt_handle      = 335544485;
+        gds__wal_failure          = 335544486;
+        gds__walw_err             = 335544487;
+        gds__logh_small           = 335544488;
+        gds__logh_inv_version     = 335544489;
+        gds__logh_open_flag       = 335544490;
+        gds__logh_open_flag2      = 335544491;
+        gds__logh_diff_dbname     = 335544492;
+        gds__logf_unexpected_eof  = 335544493;
+        gds__logr_incomplete      = 335544494;
+        gds__logr_header_small    = 335544495;
+        gds__logb_small           = 335544496;
+        gds__wal_illegal_attach   = 335544497;
+        gds__wal_invalid_wpb      = 335544498;
+        gds__wal_err_rollover     = 335544499;
+        gds__no_wal               = 335544500;
+        gds__drop_wal             = 335544501;
+        gds__stream_not_defined   = 335544502;
+        gds__unknown_183          = 335544503;
+        gds__wal_subsys_error     = 335544504;
+        gds__wal_subsys_corrupt   = 335544505;
+        gds__no_archive           = 335544506;
+        gds__store_proc_failed    = 335544507;
+        gds__range_in_use         = 335544508;
+        gds__range_not_found      = 335544509;
+        gds__charset_not_found    = 335544510;
+        gds__lock_timeout         = 335544511;
+        gds__prcnotdef            = 335544512;
+        gds__prcmismat            = 335544513;
+        gds_err_max               = 193;
+
+(* Dynamic Data Definition Language operators *)
+
+(* Version number *)
+
+	gds__dyn_version_1		= chr(1);
+	gds__dyn_eoc			= chr(255);
+
+(* Operations (may be nested) *)
+
+	gds__dyn_begin			= chr(2);
+	gds__dyn_end			= chr(3);
+	gds__dyn_if			= chr(4);
+
+	gds__dyn_def_database		= chr(5);
+	gds__dyn_def_global_fld		= chr(6);
+	gds__dyn_def_local_fld		= chr(7);
+	gds__dyn_def_idx		= chr(8);
+	gds__dyn_def_rel		= chr(9);
+	gds__dyn_def_sql_fld		= chr(10);
+	gds__dyn_def_view		= chr(12);
+	gds__dyn_def_trigger		= chr(15);
+	gds__dyn_def_security_class	= chr(120);
+	gds__dyn_def_dimension		= chr(140);
+
+	gds__dyn_mod_rel		= chr(11);
+	gds__dyn_mod_global_fld		= chr(13);
+	gds__dyn_mod_idx		= chr(102);
+	gds__dyn_mod_local_fld		= chr(14);
+	gds__dyn_mod_view		= chr(16);
+	gds__dyn_mod_database		= chr(39);
+	gds__dyn_mod_security_class	= chr(122);
+	gds__dyn_mod_trigger		= chr(113);
+
+	gds__dyn_delete_database	= chr(18);
+	gds__dyn_delete_rel		= chr(19);
+	gds__dyn_delete_global_fld	= chr(20);
+	gds__dyn_delete_local_fld	= chr(21);
+	gds__dyn_delete_idx		= chr(22);
+	gds__dyn_delete_security_class	= chr(123);
+	gds__dyn_delete_dimensions	= chr(143);
+
+        gds__dyn_grant                  = chr(30);
+        gds__dyn_revoke                 = chr(31);
+        gds__dyn_def_primary_key        = chr(37);
+        gds__dyn_def_foreign_key        = chr(38);
+        gds__dyn_def_unique             = chr(40);
+        gds__dyn_def_procedure          = chr(164);
+        gds__dyn_delete_procedure       = chr(165);
+        gds__dyn_def_parameter          = chr(135);
+        gds__dyn_delete_parameter       = chr(136);
+        gds__dyn_def_intl_info          = chr(172);
+        gds__dyn_mod_procedure          = chr(175);
+
+        gds__dyn_def_exception		= chr(181);
+        gds__dyn_mod_exception		= chr(182);
+        gds__dyn_del_exception		= chr(183);
+
+        gds__dyn_xcp_msg2		= chr(184);
+        gds__dyn_xcp_msg		= chr(185);
+
+        gds__dyn_grant_proc		= chr(186);
+        gds__dyn_grant_trig		= chr(187);
+        gds__dyn_grant_view		= chr(188);
+
+(* View specific stuff *)
+
+	gds__dyn_view_blr		= chr(43);
+	gds__dyn_view_source		= chr(44);
+	gds__dyn_view_relation		= chr(45);
+	gds__dyn_view_context		= chr(46);
+	gds__dyn_view_context_name	= chr(47);
+
+(* Generic attributes *)
+
+	gds__dyn_rel_name		= chr(50);
+	gds__dyn_fld_name		= chr(51);
+	gds__dyn_idx_name		= chr(52);
+	gds__dyn_description		= chr(53);
+	gds__dyn_security_class		= chr(54);
+	gds__dyn_system_flag		= chr(55);
+	gds__dyn_update_flag		= chr(56);
+	gds__dyn_prc_name		= chr(166);
+	gds__dyn_prm_name		= chr(137);
+
+(* Relation specific attributes *)
+
+	gds__dyn_rel_dbkey_length	= chr(61);
+	gds__dyn_rel_store_trig		= chr(62);
+	gds__dyn_rel_modify_trig	= chr(63);
+	gds__dyn_rel_erase_trig		= chr(64);
+	gds__dyn_rel_store_trig_source	= chr(65);
+	gds__dyn_rel_modify_trig_source	= chr(66);
+	gds__dyn_rel_erase_trig_source	= chr(67);
+	gds__dyn_rel_erase_ext_file	= chr(68);
+        gds__dyn_rel_sql_protection     = chr(69);
+        gds__dyn_rel_constraint         = chr(162);
+        gds__dyn_delete_rel_constraint  = chr(163);
+
+(* Global field specific attributes *)
+
+	gds__dyn_fld_type		= chr(70);
+	gds__dyn_fld_length		= chr(71);
+	gds__dyn_fld_scale		= chr(72);
+	gds__dyn_fld_sub_type		= chr(73);
+	gds__dyn_fld_segment_length	= chr(74);
+	gds__dyn_fld_query_header	= chr(75);
+	gds__dyn_fld_edit_string	= chr(76);
+	gds__dyn_fld_validation_blr	= chr(77);
+	gds__dyn_fld_validate_source	= chr(78);
+	gds__dyn_fld_computed_blr	= chr(79);
+	gds__dyn_fld_computed_source	= chr(80);
+	gds__dyn_fld_missing_value	= chr(81);
+	gds__dyn_fld_default_value	= chr(82);
+	gds__dyn_fld_query_name		= chr(83);
+	gds__dyn_fld_dimensions		= chr(84);
+	gds__dyn_fld_not_null		= chr(85);
+	gds__dyn_fld_collation_name	= chr(173);
+	gds__dyn_fld_character_set_name = chr(174);
+
+(* Local field specific attributes *)
+
+	gds__dyn_fld_source		= chr(90);
+	gds__dyn_fld_base_fld		= chr(91);
+	gds__dyn_fld_position		= chr(92);
+	gds__dyn_fld_update_flag	= chr(93);
+
+(* Index specific attributes *)
+
+	gds__dyn_idx_unique		= chr(100);
+	gds__dyn_idx_active		= chr(101);
+        gds__dyn_idx_type               = chr(103);
+        gds__dyn_idx_foreign_key        = chr(104);
+        gds__dyn_idx_ref_column         = chr(105);
+
+(* Trigger specific attributes *)
+
+	gds__dyn_trg_type		= chr(110);
+	gds__dyn_trg_blr		= chr(111);
+	gds__dyn_trg_source		= chr(112);
+	gds__dyn_trg_name		= chr(114);
+	gds__dyn_trg_sequence		= chr(115);
+	gds__dyn_trg_inactive		= chr(116);
+	gds__dyn_trg_msg_number		= chr(117);
+	gds__dyn_trg_msg		= chr(118);
+
+(* Security Class specific attributes *)
+
+	gds__dyn_scl_acl		= chr(121);
+
+(* Grant/Revoke specific attributes *)
+
+        gds__dyn_grant_user             = chr(130);
+        gds__dyn_grant_grantor          = chr(131);
+        gds__dyn_grant_options          = chr(132);
+
+(* dimension specific stuff *)
+
+	gds__dyn_dim_lower		= chr(141);
+	gds__dyn_dim_upper		= chr(142);
+
+(* File specific attributes *)
+
+	gds__dyn_file_name		= chr(125);
+	gds__dyn_file_start		= chr(126);
+	gds__dyn_file_length		= chr(127);
+	gds__dyn_shadow_number		= chr(128);
+	gds__dyn_shadow_man_auto	= chr(129);
+	gds__dyn_shadow_conditional	= chr(130);
+
+(* Function specific attributes *)
+
+	gds__dyn_function_name		= chr(145);
+	gds__dyn_function_type		= chr(146);
+	gds__dyn_func_module_name	= chr(147);
+	gds__dyn_func_entry_point	= chr(148);
+	gds__dyn_func_return_argument	= chr(149);
+	gds__dyn_func_arg_position	= chr(150);
+	gds__dyn_func_mechanism		= chr(151);
+	gds__dyn_filter_in_subtype	= chr(152);
+	gds__dyn_filter_out_subtype	= chr(153);
+
+(* Generator specific attributes *)
+
+	gds__dyn_generator_name		= chr(95);
+	gds__dyn_generator_id		= chr(96);
+
+(* International specific attributes *)
+
+	gds__dyn_fld_cription2		= chr(154);
+	gds__dyn_fld_computed_source2	= chr(155);
+	gds__dyn_fld_edit_string2	= chr(156);
+	gds__dyn_fld_query_header2	= chr(157);
+	gds__dyn_fld_validation_source2	= chr(158);
+	gds__dyn_fld_trg_msg2		= chr(159);
+	gds__dyn_fld_trg_source2	= chr(160);
+	gds__dyn_fld_view_source2	= chr(161);
+
+(* Procedure specific attributes *)
+
+	gds__dyn_prc_inputs		= chr(167);
+	gds__dyn_prc_outputs		= chr(168);
+	gds__dyn_prc_source		= chr(169);
+	gds__dyn_prc_blr		= chr(170);
+	gds__dyn_prc_source2		= chr(171);
+
+(* Procedure parameter specific attributes *)
+
+	gds__dyn_prm_number		= chr(138);
+	gds__dyn_prm_type		= chr(139);
+
+(* Array slice description language (SDL) *)
+
+        gds__sdl_version1               = chr(1);
+        gds__sdl_eoc                    = chr(-1);
+        gds__sdl_relation               = chr(2);
+        gds__sdl_rid                    = chr(3);
+        gds__sdl_field                  = chr(4);
+        gds__sdl_fid                    = chr(5);
+        gds__sdl_struct                 = chr(6);
+        gds__sdl_variable               = chr(7);
+        gds__sdl_scalar                 = chr(8);
+        gds__sdl_tiny_integer           = chr(9);
+        gds__sdl_short_integer          = chr(10);
+        gds__sdl_long_integer           = chr(11);
+        gds__sdl_literal                = chr(12);
+        gds__sdl_add                    = chr(13);
+        gds__sdl_subtract               = chr(14);
+        gds__sdl_multiply               = chr(15);
+        gds__sdl_divide                 = chr(16);
+        gds__sdl_negate                 = chr(17);
+        gds__sdl_eql                    = chr(18);
+        gds__sdl_neq                    = chr(19);
+        gds__sdl_gtr                    = chr(20);
+        gds__sdl_geq                    = chr(21);
+        gds__sdl_lss                    = chr(22);
+        gds__sdl_leq                    = chr(23);
+        gds__sdl_and                    = chr(24);
+        gds__sdl_or                     = chr(25);
+        gds__sdl_not                    = chr(26);
+        gds__sdl_while                  = chr(27);
+        gds__sdl_assignment             = chr(28);
+        gds__sdl_label                  = chr(29);
+        gds__sdl_leave                  = chr(30);
+        gds__sdl_begin                  = chr(31);
+        gds__sdl_end                    = chr(32);
+        gds__sdl_do3                    = chr(33);
+        gds__sdl_do2                    = chr(34);
+        gds__sdl_do1                    = chr(35);
+        gds__sdl_element                = chr(36);
+
+
+(* Dynamic SQL datatypes *)
+
+CONST
+	SQL_TEXT	= 452;
+	SQL_VARYING	= 448;
+	SQL_SHORT	= 500;
+	SQL_LONG	= 496;
+	SQL_FLOAT	= 482;
+	SQL_DOUBLE	= 480;
+	SQL_D_FLOAT	= 530;
+	SQL_DATE	= 510;
+	SQL_BLOB	= 520;
+
+(* Forms Package definitions *)
+
+(* Map definition block definitions *)
+
+CONST
+	PYXIS__MAP_VERSION1		= chr(1);
+	PYXIS__MAP_FIELD2		= chr(2);
+	PYXIS__MAP_FIELD1		= chr(3);
+	PYXIS__MAP_MESSAGE		= chr(4);
+	PYXIS__MAP_TERMINATOR		= chr(5);
+	PYXIS__MAP_TERMINATING_FIELD	= chr(6);
+	PYXIS__MAP_OPAQUE		= chr(7);
+	PYXIS__MAP_TRANSPARENT		= chr(8);
+	PYXIS__MAP_TAG			= chr(9);
+	PYXIS__MAP_SUB_FORM		= chr(10);
+	PYXIS__MAP_ITEM_INDEX		= chr(11);
+	PYXIS__MAP_SUB_FIELD		= chr(12);
+	PYXIS__MAP_END			= chr(255);
+
+(* Field option flags for display options *)
+
+CONST
+	PYXIS__OPT_DISPLAY	= 1;
+	PYXIS__OPT_UPDATE	= 2;
+	PYXIS__OPT_WAKEUP	= 4;
+	PYXIS__OPT_POSITION	= 8;
+
+(* Field option values following display *)
+
+CONST
+	PYXIS__OPT_NULL		= 1;
+	PYXIS__OPT_DEFAULT	= 2;
+	PYXIS__OPT_INITIAL	= 3;
+	PYXIS__OPT_USER_DATA	= 4;
+
+(* Pseudo key definitions *)
+
+CONST
+	PYXIS__KEY_DELETE		= 127;
+	PYXIS__KEY_UP			= 128;
+	PYXIS__KEY_DOWN			= 129;
+	PYXIS__KEY_RIGHT		= 130;
+	PYXIS__KEY_LEFT			= 131;
+	PYXIS__KEY_PF1			= 132;
+	PYXIS__KEY_PF2			= 133;
+	PYXIS__KEY_PF3			= 134;
+	PYXIS__KEY_PF4			= 135;
+	PYXIS__KEY_PF5			= 136;
+	PYXIS__KEY_PF6			= 137;
+	PYXIS__KEY_PF7			= 138;
+	PYXIS__KEY_PF8			= 139;
+	PYXIS__KEY_PF9			= 140;
+	PYXIS__KEY_ENTER		= 141;
+	PYXIS__KEY_SCROLL_TOP		= 146;
+	PYXIS__KEY_SCROLL_BOTTOM	= 147;
+
+(* Menu definition stuff *)
+
+CONST
+	PYXIS__MENU_VERSION1		= chr(1);
+	PYXIS__MENU_LABEL		= chr(2);
+	PYXIS__MENU_ENTREE		= chr(3);
+	PYXIS__MENU_OPAQUE		= chr(4);
+	PYXIS__MENU_TRANSPARENT		= chr(5);
+	PYXIS__MENU_HORIZONTAL		= chr(6);
+	PYXIS__MENU_VERTICAL		= chr(7);
+	PYXIS__MENU_END			= chr(255);
+
+procedure pyxis__compile_map (
+	out	stat		: gds__status_vector; 
+	in 	form_handle	: gds__handle;
+	out 	map_handle	: gds__handle;
+	in	length		: integer16;
+	in	map		: UNIV gds__string
+	); extern;
+
+procedure pyxis__compile_sub_map (
+	out	stat		: gds__status_vector; 
+	in 	form_handle	: gds__handle;
+	out 	map_handle	: gds__handle;
+	in	length		: integer16;
+	in	map		: UNIV gds__string
+	); extern;
+
+procedure pyxis__create_window (
+	in out	window_handle	: gds__handle;
+	in	name_length	: integer16;
+	in	file_name	: UNIV gds__string; 
+	in out	width		: integer16;
+	in out	height		: integer16
+	); extern;
+
+procedure pyxis__delete_window (
+	in out	window_handle	: gds__handle
+	); extern;
+
+procedure pyxis__drive_form (
+	out	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in	trans_handle	: gds__handle;
+	in out	window_handle	: gds__handle;
+	in 	map_handle	: gds__handle;
+	in	input		: UNIV gds__string;
+	in	output		: UNIV gds__string
+	); extern;
+
+procedure pyxis__fetch (
+	out	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in	trans_handle	: gds__handle;
+	in 	map_handle	: gds__handle;
+	in	output		: UNIV gds__string
+	); extern;
+
+procedure pyxis__insert (
+	out	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in	trans_handle	: gds__handle;
+	in 	map_handle	: gds__handle;
+	in	input		: UNIV gds__string
+	); extern;
+
+procedure pyxis__load_form (
+	out	stat		: gds__status_vector; 
+	in	db_handle	: gds__handle;
+	in 	trans_handle	: gds__handle;
+	in out	form_handle	: gds__handle;
+	in	name_length	: integer16;
+	in	form_name	: UNIV gds__string 
+	); extern;
+
+function pyxis__menu (
+	in out	window_handle	: gds__handle;
+	in out	menu_handle	: gds__handle;
+	in	length		: integer16;
+	in	menu		: UNIV gds__string
+	) : integer16; extern;
+
+procedure pyxis__pop_window (
+	in 	window_handle	: gds__handle
+	); extern;
+
+procedure pyxis__reset_form (
+	out	stat		: gds__status_vector; 
+	in	window_handle	: gds__handle
+	); extern;
+
+procedure pyxis__drive_menu (
+	in out	window_handle	: gds__handle;
+	in out	menu_handle	: gds__handle;
+	in	blr_length	: integer16;
+	in	blr_source	: UNIV gds__string;
+	in	title_length	: integer16;
+	in	title		: UNIV gds__string;
+	out	terminator	: integer16;
+	out	entree_length	: integer16;
+	out	entree_text	: UNIV gds__string;
+	out	entree_value	: integer32
+	); extern;
+
+procedure pyxis__get_entree (
+	in	menu_handle	: gds__handle;
+	out	entree_length	: integer16;
+	out	entree_text	: UNIV gds__string;
+	out	entree_value	: integer32;
+	out	entree_end	: integer16
+	); extern;
+
+procedure pyxis__initialize_menu (
+	in out	menu_handle	: gds__handle
+	); extern;
+
+procedure pyxis__put_entree (
+	in	menu_handle	: gds__handle;
+	in	entree_length	: integer16;
+	in	entree_text	: UNIV gds__string;
+	in	entree_value	: integer32
+	); extern;
+
+
diff --git a/src/jrd/gds.pli b/src/jrd/gds.pli
new file mode 100644
index 0000000000..884f5fd733
--- /dev/null
+++ b/src/jrd/gds.pli
@@ -0,0 +1,1027 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ *
+ *	PROGRAM:	PLI preprocessor
+ *	MODULE:		gds.pli
+ *	DESCRIPTION:	BLR constants
+ */
+
+%REPLACE GDS__TRUE BY 1;
+%REPLACE GDS__FALSE BY 0;
+
+%REPLACE blr_text	BY 14;
+%REPLACE blr_short	BY 7;
+%REPLACE blr_long	BY 8;
+%REPLACE blr_quad	BY 9;
+%REPLACE blr_float	BY 10;
+%REPLACE blr_double	BY 27;
+%REPLACE blr_d_float	BY 11;
+%REPLACE blr_date	BY 35;
+%REPLACE blr_varying	BY 37;
+%REPLACE blr_blob	BY 261;
+%REPLACE blr_cstring	BY 40;
+
+%REPLACE blr_version4	BY 4;
+%REPLACE blr_version4_extended	BY 20;
+%REPLACE blr_eoc	BY 76;
+%REPLACE blr_end	BY 255;
+
+%REPLACE blr_assignment	BY 1;
+%REPLACE blr_begin	BY 2;
+%REPLACE blr_message	BY 4;
+%REPLACE blr_erase	BY 5;
+%REPLACE blr_fetch	BY 6;
+%REPLACE blr_for	BY 7;
+%REPLACE blr_if		BY 8;
+%REPLACE blr_loop	BY 9;
+%REPLACE blr_modify	BY 10;
+%REPLACE blr_handler	BY 11;
+%REPLACE blr_receive	BY 12;
+%REPLACE blr_select	BY 13;
+%REPLACE blr_send	BY 14;
+%REPLACE blr_store	BY 15;
+%REPLACE blr_label	BY 17;
+%REPLACE blr_leave	BY 18;
+%REPLACE blr_literal	BY 21;
+%REPLACE blr_dbkey	BY 22;
+%REPLACE blr_field	BY 23;
+%REPLACE blr_fid	BY 24;
+%REPLACE blr_parameter	BY 25;
+%REPLACE blr_variable	BY 26;
+%REPLACE blr_average	BY 27;
+%REPLACE blr_count	BY 28;
+%REPLACE blr_maximum	BY 29;
+%REPLACE blr_minimum	BY 30;
+%REPLACE blr_total	BY 31;
+
+%REPLACE blr_add	BY 34;
+%REPLACE blr_subtract	BY 35;
+%REPLACE blr_multiply	BY 36;
+%REPLACE blr_divide	BY 37;
+%REPLACE blr_negate	BY 38;
+%REPLACE blr_concatenate BY 39;
+%REPLACE blr_substring	BY 40;
+%REPLACE blr_parameter2	BY 41;
+%REPLACE blr_from	BY 42;
+%REPLACE blr_via	BY 43;
+%REPLACE blr_null	BY 45;
+
+%REPLACE blr_eql	BY 47;
+%REPLACE blr_neq	BY 48;
+%REPLACE blr_gtr	BY 49;
+%REPLACE blr_geq	BY 50;
+%REPLACE blr_lss	BY 51;
+%REPLACE blr_leq	BY 52;
+%REPLACE blr_containing	BY 53;
+%REPLACE blr_matching	BY 54;
+%REPLACE blr_starting	BY 55;
+%REPLACE blr_between	BY 56;
+%REPLACE blr_or		BY 57;
+%REPLACE blr_and	BY 58;
+%REPLACE blr_not	BY 59;
+%REPLACE blr_any	BY 60;
+%REPLACE blr_missing	BY 61;
+%REPLACE blr_unique	BY 62;
+%REPLACE blr_like	BY 63;
+
+%REPLACE blr_stream     BY 65;
+%REPLACE blr_set_index  BY 66;
+
+%REPLACE blr_rse	BY 67;
+%REPLACE blr_first	BY 68;
+%REPLACE blr_project	BY 69;
+%REPLACE blr_sort	BY 70;
+%REPLACE blr_boolean	BY 71;
+%REPLACE blr_ascending	BY 72;
+%REPLACE blr_descending	BY 73;
+%REPLACE blr_relation	BY 74;
+%REPLACE blr_rid	BY 75;
+%REPLACE blr_union	BY 76;
+%REPLACE blr_map	BY 77;
+%REPLACE blr_group_by	BY 78;
+%REPLACE blr_aggregate	BY 79;
+%REPLACE blr_join_type  BY 80;
+
+%REPLACE blr_agg_count	BY 83;
+%REPLACE blr_agg_max	BY 84;
+%REPLACE blr_agg_min	BY 85;
+%REPLACE blr_agg_total	BY 86;
+%REPLACE blr_agg_average BY 87;
+%REPLACE blr_run_count	BY 88;
+%REPLACE blr_run_max	BY 89;
+%REPLACE blr_run_min	BY 90;
+%REPLACE blr_run_total	BY 91;
+%REPLACE blr_run_average BY 92;
+%REPLACE blr_upcase     BY 103;
+%REPLACE blr_lock_state BY 104;
+%REPLACE blr_value_if   BY 105;
+%REPLACE blr_matching2  BY 106;
+%REPLACE blr_index      BY 107;
+%REPLACE blr_ansi_like  BY 108;
+
+%REPLACE blr_bookmark   BY 109;
+%REPLACE blr_crack      BY 110;
+%REPLACE blr_force_crack BY 111;
+%REPLACE blr_seek       BY 112;
+%REPLACE blr_find       BY 113;
+%REPLACE blr_lock_relation BY 114;
+%REPLACE blr_lock_record BY 115;
+%REPLACE blr_set_bookmark BY 116;
+%REPLACE blr_get_bookmark BY 117;
+
+%REPLACE blr_rs_stream  BY 119;
+%REPLACE blr_exec_proc  BY 120;
+
+%REPLACE blr_begin_range BY 121;
+%REPLACE blr_end_range  BY 122;
+%REPLACE blr_delete_range BY 123;
+
+%REPLACE blr_inner      BY 0;
+%REPLACE blr_left       BY 1;
+%REPLACE blr_right      BY 2;
+%REPLACE blr_full       BY 3;
+
+
+/* Array slice description language (SDL) */
+
+%REPLACE gds__sdl_version1          BY 1;
+%REPLACE gds__sdl_eoc               BY -1;
+%REPLACE gds__sdl_relation          BY 2;
+%REPLACE gds__sdl_rid               BY 3;
+%REPLACE gds__sdl_field             BY 4;
+%REPLACE gds__sdl_fid               BY 5;
+%REPLACE gds__sdl_struct            BY 6;
+%REPLACE gds__sdl_variable          BY 7;
+%REPLACE gds__sdl_scalar            BY 8;
+%REPLACE gds__sdl_tiny_integer      BY 9;
+%REPLACE gds__sdl_short_integer     BY 10;
+%REPLACE gds__sdl_long_integer      BY 11;
+%REPLACE gds__sdl_literal           BY 12;
+%REPLACE gds__sdl_add               BY 13;
+%REPLACE gds__sdl_subtract          BY 14;
+%REPLACE gds__sdl_multiply          BY 15;
+%REPLACE gds__sdl_divide            BY 16;
+%REPLACE gds__sdl_negate            BY 17;
+%REPLACE gds__sdl_eql               BY 18;
+%REPLACE gds__sdl_neq               BY 19;
+%REPLACE gds__sdl_gtr               BY 20;
+%REPLACE gds__sdl_geq               BY 21;
+%REPLACE gds__sdl_lss               BY 22;
+%REPLACE gds__sdl_leq               BY 23;
+%REPLACE gds__sdl_and               BY 24;
+%REPLACE gds__sdl_or                BY 25;
+%REPLACE gds__sdl_not               BY 26;
+%REPLACE gds__sdl_while             BY 27;
+%REPLACE gds__sdl_assignment        BY 28;
+%REPLACE gds__sdl_label             BY 29;
+%REPLACE gds__sdl_leave             BY 30;
+%REPLACE gds__sdl_begin             BY 31;
+%REPLACE gds__sdl_end               BY 32;
+%REPLACE gds__sdl_do3               BY 33;
+%REPLACE gds__sdl_do2               BY 34;
+%REPLACE gds__sdl_do1               BY 35;
+%REPLACE gds__sdl_element           BY 36;
+
+%REPLACE dsc$k_dtype_t			BY 14;
+%REPLACE dsc$k_dtype_vt			BY 37;
+%REPLACE dsc$k_dtype_w			BY 7;
+%REPLACE dsc$k_dtype_l			BY 8;
+%REPLACE dsc$k_dtype_q			BY 9;
+%REPLACE dsc$k_dtype_f			BY 10;
+%REPLACE dsc$k_dtype_g			BY 27;
+%REPLACE dsc$k_dtype_adt		BY 35;
+
+%REPLACE rdb$k_dpb_cdd_pathname		BY 1;
+%REPLACE rdb$k_dpb_allocation		BY 2;
+%REPLACE rdb$k_dpb_aij			BY 3;
+%REPLACE rdb$k_dpb_page_size		BY 4;
+%REPLACE rdb$k_dpb_num_buff		BY 5;
+%REPLACE rdb$k_dpb_buffer_length	BY 6;
+%REPLACE rdb$k_dpb_debug		BY 7;
+%REPLACE rdb$k_dpb_garbage_collect	BY 8;
+%REPLACE rdb$k_dpb_verify		BY 9;
+%REPLACE rdb$k_dpb_sweep		BY 10;
+%REPLACE rdb$k_dpb_enable_journal	BY 11;
+%REPLACE rdb$k_dpb_disable_journal	BY 12;
+%REPLACE rdb$k_dpb_dbkey_scope		BY 13;
+%REPLACE rdb$k_dpb_number_of_users	BY 14;
+
+%REPLACE rdb$k_db_type_default		BY 0;
+%REPLACE rdb$k_db_type_vms		BY 1;
+%REPLACE rdb$k_db_type_eln		BY 2;
+%REPLACE rdb$k_db_type_gds		BY -1;
+
+/* Database parameter block stuff */
+
+%REPLACE gds__dpb_cdd_pathname		BY 1;	/* not implemented */
+%REPLACE gds__dpb_allocation		BY 2;	/* not implemented */
+%REPLACE gds__dpb_journal 		BY 3;	/* not implemented */
+%REPLACE gds__dpb_page_size 		BY 4;
+%REPLACE gds__dpb_buffers 		BY 5;
+%REPLACE gds__dpb_buffer_length		BY 6;	/* not implemented */
+%REPLACE gds__dpb_debug 		BY 7;	/* not implemented */
+%REPLACE gds__dpb_garbage_collect	BY 8;	/* not implemented */
+%REPLACE gds__dpb_verify 		BY 9;
+%REPLACE gds__dpb_sweep 		BY 10;
+%REPLACE gds__dpb_enable_journal	BY 11;
+%REPLACE gds__dpb_disable_journal	BY 12;
+%REPLACE gds__dpb_dbkey_scope		BY 13;	/* not implemented */
+%REPLACE gds__dpb_number_of_users	BY 14;	/* not implemented */
+%REPLACE gds__dpb_trace			BY 15;	/* not implemented */
+%REPLACE gds__dpb_no_garbage_collect	BY 16;	/* not implemented */
+%REPLACE gds__dpb_damaged		BY 17;	/* not implemented */
+%REPLACE gds__dpb_license		BY 18;
+%REPLACE gds__dpb_sys_user_name		BY 19;	/* User Name (advisory only) */
+%REPLACE gds__dpb_encrypt_key		BY 20;	/* Encryption key */
+%REPLACE gds__dpb_activate_shadow	BY 21;	
+%REPLACE gds__dpb_sweep_interval	BY 22;
+%REPLACE gds__dpb_delete_shadow		BY 23;
+
+%REPLACE gds__dpb_pages			BY 1;
+%REPLACE gds__dpb_records		BY 2;
+%REPLACE gds__dpb_indices		BY 4;
+%REPLACE gds__dpb_transactions		BY 8;
+%REPLACE gds__dpb_no_update		BY 16;
+%REPLACE gds__dpb_repair		BY 32;
+
+/* Bit assignments in RDB$SYSTEM_FLAG */
+
+%REPLACE RDB_system		BY 1;	/* Object belongs to system */
+%REPLACE RDB_id_assigned	BY 2;	/* Internal id has been assigned */
+
+/* Transaction parameter blob stuff */
+
+%REPLACE gds__tpb_version1	BY 1;
+%REPLACE gds__tpb_version3	BY 3;
+%REPLACE gds__tpb_consistency	BY 1;
+%REPLACE gds__tpb_concurrency	BY 2;
+%REPLACE gds__tpb_shared	BY 3;
+%REPLACE gds__tpb_protected	BY 4;
+%REPLACE gds__tpb_exclusive	BY 5;
+%REPLACE gds__tpb_wait		BY 6;
+%REPLACE gds__tpb_nowait	BY 7;
+%REPLACE gds__tpb_read		BY 8;
+%REPLACE gds__tpb_write		BY 9;
+%REPLACE gds__tpb_lock_read	BY 10;
+%REPLACE gds__tpb_lock_write	BY 11;
+%REPLACE gds__tpb_verb_time	BY 12;
+%REPLACE gds__tpb_commit_time	BY 13;
+
+
+/* Blob parameter block stuff */
+
+%REPLACE gds__bpb_version1		BY 1;
+%REPLACE gds__bpb_source_type		BY 1;
+%REPLACE gds__bpb_target_type		BY 2;
+%REPLACE gds__bpb_type			BY 3;
+
+%REPLACE gds__bpb_type_segmented	BY 0;
+%REPLACE gds__bpb_type_stream		BY 1;
+
+/* Information call declarations */
+
+/* Common, structural codes */
+
+%REPLACE gds__info_end			BY 1;
+%REPLACE gds__info_truncated		BY 2;
+%REPLACE gds__info_error		BY 3;
+
+/* Database information items */
+
+%REPLACE gds__info_db_id		BY 4;
+%REPLACE gds__info_reads		BY 5;
+%REPLACE gds__info_writes		BY 6;
+%REPLACE gds__info_fetches		BY 7;
+%REPLACE gds__info_marks		BY 8;
+%REPLACE gds__info_implementation 	BY 11;
+%REPLACE gds__info_version		BY 12;
+%REPLACE gds__info_base_level		BY 13;
+%REPLACE gds__info_page_size		BY 14;
+%REPLACE gds__info_number_buffers	BY 15;
+%REPLACE gds__info_limbo		BY 16;
+%REPLACE gds__info_current_memory	BY 17;
+%REPLACE gds__info_max_memory		BY 18;
+%REPLACE gds__info_window_turns		BY 19;
+%REPLACE gds__info_license              BY 20;
+%REPLACE gds__info_allocation           BY 21;
+%REPLACE gds__info_attachment_id        BY 22;
+%REPLACE gds__info_read_seq_count       BY 23;
+%REPLACE gds__info_read_idx_count       BY 24;
+%REPLACE gds__info_insert_count         BY 25;
+%REPLACE gds__info_update_count         BY 26;
+%REPLACE gds__info_delete_count         BY 27;
+%REPLACE gds__info_backout_count        BY 28;
+%REPLACE gds__info_purge_count          BY 29;
+%REPLACE gds__info_expunge_count        BY 30;
+%REPLACE gds__info_sweep_interval       BY 31;
+%REPLACE gds__info_ods_version          BY 32;
+%REPLACE gds__info_ods_minor_version    BY 33;
+
+/* Request information items */
+
+%REPLACE gds__info_number_messages	BY 4;
+%REPLACE gds__info_max_message		BY 5;
+%REPLACE gds__info_max_send		BY 6;
+%REPLACE gds__info_max_receive		BY 7;
+%REPLACE gds__info_state		BY 8;
+%REPLACE gds__info_message_number	BY 9;
+%REPLACE gds__info_message_size		BY 10;
+%REPLACE gds__info_request_cost		BY 11;
+
+%REPLACE gds__info_req_active		BY 2;
+%REPLACE gds__info_req_inactive		BY 3;
+%REPLACE gds__info_req_send		BY 4;
+%REPLACE gds__info_req_receive		BY 5;
+%REPLACE gds__info_req_select		BY 6;
+
+/* Blob information items */
+
+%REPLACE gds__info_number_segments	BY 4;
+%REPLACE gds__info_max_segment		BY 5;
+%REPLACE gds__info_total_length		BY 6;
+%REPLACE gds__info_blob_type		BY 7;
+
+/* Transaction information items */
+
+%REPLACE gds__info_transaction_id	BY 4;
+
+
+%REPLACE gds_facility BY 20;
+%REPLACE gds_err_base BY 335544320;
+%REPLACE gds_err_factor BY 1;
+%REPLACE    gds_arg_end  BY 0;
+%REPLACE    gds_arg_gds  BY 1;
+%REPLACE    gds_arg_string BY 2;
+%REPLACE    gds_arg_cstring BY 3; 
+%REPLACE    gds_arg_number BY 4; 
+%REPLACE    gds_arg_interpreted BY 5;
+%REPLACE    gds_arg_vms  BY 6;
+%REPLACE    gds_arg_unix BY 7;
+%REPLACE    gds_arg_domain BY 8;
+
+%REPLACE gds__arith_except        	BY 335544321;
+%REPLACE gds__bad_dbkey           	BY 335544322;
+%REPLACE gds__bad_db_format       	BY 335544323;
+%REPLACE gds__bad_db_handle       	BY 335544324;
+%REPLACE gds__bad_dpb_content     	BY 335544325;
+%REPLACE gds__bad_dpb_form        	BY 335544326;
+%REPLACE gds__bad_req_handle      	BY 335544327;
+%REPLACE gds__bad_segstr_handle   	BY 335544328;
+%REPLACE gds__bad_segstr_id       	BY 335544329;
+%REPLACE gds__bad_tpb_content     	BY 335544330;
+%REPLACE gds__bad_tpb_form        	BY 335544331;
+%REPLACE gds__bad_trans_handle    	BY 335544332;
+%REPLACE gds__bug_check           	BY 335544333;
+%REPLACE gds__convert_error       	BY 335544334;
+%REPLACE gds__db_corrupt          	BY 335544335;
+%REPLACE gds__deadlock            	BY 335544336;
+%REPLACE gds__excess_trans        	BY 335544337;
+%REPLACE gds__from_no_match       	BY 335544338;
+%REPLACE gds__infinap             	BY 335544339;
+%REPLACE gds__infona              	BY 335544340;
+%REPLACE gds__infunk              	BY 335544341;
+%REPLACE gds__integ_fail          	BY 335544342;
+%REPLACE gds__invalid_blr         	BY 335544343;
+%REPLACE gds__io_error            	BY 335544344;
+%REPLACE gds__lock_conflict       	BY 335544345;
+%REPLACE gds__metadata_corrupt    	BY 335544346;
+%REPLACE gds__not_valid           	BY 335544347;
+%REPLACE gds__no_cur_rec          	BY 335544348;
+%REPLACE gds__no_dup              	BY 335544349;
+%REPLACE gds__no_finish           	BY 335544350;
+%REPLACE gds__no_meta_update      	BY 335544351;
+%REPLACE gds__no_priv             	BY 335544352;
+%REPLACE gds__no_recon            	BY 335544353;
+%REPLACE gds__no_record           	BY 335544354;
+%REPLACE gds__no_segstr_close     	BY 335544355;
+%REPLACE gds__obsolete_metadata   	BY 335544356;
+%REPLACE gds__open_trans          	BY 335544357;
+%REPLACE gds__port_len            	BY 335544358;
+%REPLACE gds__read_only_field     	BY 335544359;
+%REPLACE gds__read_only_rel       	BY 335544360;
+%REPLACE gds__read_only_trans     	BY 335544361;
+%REPLACE gds__read_only_view      	BY 335544362;
+%REPLACE gds__req_no_trans        	BY 335544363;
+%REPLACE gds__req_sync            	BY 335544364;
+%REPLACE gds__req_wrong_db        	BY 335544365;
+%REPLACE gds__segment             	BY 335544366;
+%REPLACE gds__segstr_eof          	BY 335544367;
+%REPLACE gds__segstr_no_op        	BY 335544368;
+%REPLACE gds__segstr_no_read      	BY 335544369;
+%REPLACE gds__segstr_no_trans     	BY 335544370;
+%REPLACE gds__segstr_no_write     	BY 335544371;
+%REPLACE gds__segstr_wrong_db     	BY 335544372;
+%REPLACE gds__sys_request         	BY 335544373;
+%REPLACE gds__unavailable         	BY 335544375;
+%REPLACE gds__unres_rel           	BY 335544376;
+%REPLACE gds__uns_ext             	BY 335544377;
+%REPLACE gds__wish_list           	BY 335544378;
+%REPLACE gds__wrong_ods           	BY 335544379;
+%REPLACE gds__wronumarg           	BY 335544380;
+%REPLACE gds__imp_exc             	BY 335544381;
+%REPLACE gds__random              	BY 335544382;
+%REPLACE gds__fatal_conflict      	BY 335544383;
+
+/* Minor codes subject to change */
+
+%REPLACE gds__badblk              	BY 335544384;
+%REPLACE gds__invpoolcl           	BY 335544385;
+%REPLACE gds__nopoolids           	BY 335544386;
+%REPLACE gds__relbadblk           	BY 335544387;
+%REPLACE gds__blktoobig           	BY 335544388;
+%REPLACE gds__bufexh              	BY 335544389;
+%REPLACE gds__syntaxerr           	BY 335544390;
+%REPLACE gds__bufinuse            	BY 335544391;
+%REPLACE gds__bdbincon            	BY 335544392;
+%REPLACE gds__reqinuse            	BY 335544393;
+%REPLACE gds__badodsver           	BY 335544394;
+%REPLACE gds__relnotdef           	BY 335544395;
+%REPLACE gds__fldnotdef           	BY 335544396;
+%REPLACE gds__dirtypage           	BY 335544397;
+%REPLACE gds__waifortra           	BY 335544398;
+%REPLACE gds__doubleloc           	BY 335544399;
+%REPLACE gds__nodnotfnd           	BY 335544400;
+%REPLACE gds__dupnodfnd           	BY 335544401;
+%REPLACE gds__locnotmar           	BY 335544402;
+%REPLACE gds__badpagtyp           	BY 335544403;
+%REPLACE gds__corrupt             	BY 335544404;
+%REPLACE gds__badpage             	BY 335544405;
+%REPLACE gds__badindex            	BY 335544406;
+%REPLACE gds__dbbnotzer           	BY 335544407;
+%REPLACE gds__tranotzer           	BY 335544408;
+%REPLACE gds__trareqmis           	BY 335544409;
+%REPLACE gds__badhndcnt           	BY 335544410;
+%REPLACE gds__wrotpbver           	BY 335544411;
+%REPLACE gds__wroblrver           	BY 335544412;
+%REPLACE gds__wrodpbver           	BY 335544413;
+%REPLACE gds__blobnotsup          	BY 335544414;
+%REPLACE gds__badrelation         	BY 335544415;
+%REPLACE gds__nodetach            	BY 335544416;
+%REPLACE gds__notremote           	BY 335544417;
+%REPLACE gds__trainlim            	BY 335544418;
+%REPLACE gds__notinlim            	BY 335544419;
+%REPLACE gds__traoutsta           	BY 335544420;
+%REPLACE gds__connect_reject      	BY 335544421;
+%REPLACE gds__dbfile              	BY 335544422;
+%REPLACE gds__orphan              	BY 335544423;
+%REPLACE gds__no_lock_mgr         	BY 335544424;
+%REPLACE gds__ctxinuse            	BY 335544425;
+%REPLACE gds__ctxnotdef           	BY 335544426;
+%REPLACE gds__datnotsup           	BY 335544427;
+%REPLACE gds__badmsgnum           	BY 335544428;
+%REPLACE gds__badparnum           	BY 335544429;
+%REPLACE gds__virmemexh           	BY 335544430;
+%REPLACE gds__blocking_signal     	BY 335544431;
+%REPLACE gds__lockmanerr          	BY 335544432;
+%REPLACE gds__journerr            	BY 335544433;
+%REPLACE gds__keytoobig           	BY 335544434;
+%REPLACE gds__nullsegkey          	BY 335544435;
+%REPLACE gds__sqlerr              	BY 335544436;
+%REPLACE gds__wrodynver              	BY 335544437;
+%REPLACE gds__obj_in_use                BY 335544453;
+%REPLACE gds__nofilter                  BY 335544454;
+%REPLACE gds__shadow_accessed     	BY 335544455;
+%REPLACE gds__invalid_sdl         	BY 335544456;
+%REPLACE gds__out_of_bounds       	BY 335544457;
+%REPLACE gds__invalid_dimension   	BY 335544458;
+
+
+DECLARE GDS__SQLCODE ENTRY(
+	(20) FIXED)	/* status vector */
+	RETURNS (FIXED);
+
+DECLARE GDS__ATTACH_DATABASE ENTRY(
+	ANY VALUE,			/* status vector */
+	FIXED BINARY (15) VALUE,	/* file name length */
+	ANY,				/* file name */
+	ANY,				/* database handle */
+	FIXED BINARY (15) VALUE,	/* dpb length */
+	ANY );			/* dpb */
+
+DECLARE GDS__CANCEL_BLOB ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY);		/* blob handle */
+
+DECLARE GDS__CANCEL_EVENTS ENTRY(
+        ANY VALUE,       /* status vector */
+        ANY,             /* database handle */
+        ANY);            /* id */
+
+DECLARE GDS__CLOSE_BLOB ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY);		/* blob handle */
+
+DECLARE GDS__COMMIT_RETAINING ENTRY(
+        ANY VALUE,      /* status vector */
+        ANY);           /* transaction handle */
+
+DECLARE GDS__COMMIT_TRANSACTION ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY);		/* transaction handle */
+
+DECLARE GDS__COMPILE_REQUEST ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY,		/* database handle */
+	ANY,		/* request handle */
+	FIXED BINARY (15) VALUE,	/* blr length */
+	ANY);		/* blr */
+
+DECLARE GDS__COMPILE_REQUEST2 ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY,		/* database handle */
+	ANY,		/* request handle */
+	FIXED BINARY (15) VALUE,	/* blr length */
+	ANY);		/* blr */
+
+DECLARE GDS__CREATE_BLOB ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY,		/* database handle */
+	ANY,		/* transaction handle */
+	ANY,		/* blob handle */
+	(2) FIXED);		/* blob id */
+
+DECLARE GDS__CREATE_BLOB2 ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY,		/* database handle */
+	ANY,		/* transaction handle */
+	ANY,		/* blob handle */
+	(2) FIXED,	/* blob id */
+        FIXED BINARY (15) VALUE,        /* blob parameter block length */
+        ANY);           /* blob parameter block */
+
+DECLARE GDS__CREATE_DATABASE ENTRY(
+	ANY VALUE,			/* status vector */
+	FIXED BINARY (15) VALUE,	/* file name length */
+	ANY,				/* file name */
+	ANY,				/* database handle */
+	FIXED BINARY (15) VALUE,	/* dpb length */
+	ANY  VALUE,			/* dpb */
+	FIXED BINARY (15) VALUE);	/* database type */
+
+DECLARE GDS__DDL ENTRY(
+	ANY VALUE,			/* status vector */
+	ANY,				/* database handle */
+	ANY,				/* transaction handle */
+	FIXED BINARY (15) VALUE,	/* mblr length */
+	ANY);				/* mblr */
+
+DECLARE GDS__DETACH_DATABASE ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY);		/* database handle */
+
+DECLARE GDS__DROP_DATABASE ENTRY(
+	ANY VALUE,			/* status vector */
+	FIXED BINARY (15) VALUE,	/* file name length */
+	ANY,				/* file name */
+	FIXED BINARY (15) VALUE);	/* database type */
+
+DECLARE GDS__EVENT_WAIT ENTRY(
+        ANY VALUE,      /* status vector */
+        ANY,            /* database handle */
+        ANY,            /* length */
+        ANY,            /* events */
+        ANY);           /* buffer */
+
+DECLARE GDS__GET_SEGMENT ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY,		/* blob handle */
+	ANY,	/* segment length */
+	FIXED BINARY (15) VALUE,	/* buffer length */
+	ANY)		/* buffer */
+	RETURNS (FIXED);
+
+DECLARE GDS__GET_SLICE ENTRY(
+        ANY VALUE,      /* status vector */
+        ANY,            /* database handle */
+        ANY,            /* transaction handle */
+        ANY,            /* array (blob) id */
+        FIXED BINARY (15),  /* sdl length */
+        ANY,            /* sdl */
+        FIXED BINARY (15),  /* parameter length */
+        ANY,            /* parameter */
+        FIXED BINARY (31),  /* slice length */
+        ANY,            /* slice */
+        FIXED BINARY (31));  /* return length */
+
+DECLARE GDS__OPEN_BLOB ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY,		/* database handle */
+	ANY,		/* transaction handle */
+	ANY,		/* blob handle */
+	(2) FIXED);		/* blob id */
+
+DECLARE GDS__OPEN_BLOB2 ENTRY(
+	ANY VALUE,	   /* status vector */
+	ANY,		   /* database handle */
+	ANY,		   /* transaction handle */
+	ANY,		   /* blob handle */
+	(2) FIXED,	   /* blob id */
+        FIXED BINARY (15), /* blob parameter block length */
+        ANY);              /* blob parameter block */
+
+DECLARE GDS__PREPARE_TRANSACTION ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY);		/* transaction handle */
+
+DECLARE GDS__PREPARE_TRANSACTION2 ENTRY(
+	ANY VALUE,	   /* status vector */
+	ANY,		   /* transaction handle */
+        FIXED BINARY (15),
+        ANY);
+
+DECLARE GDS__PUT_SEGMENT ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY,		/* blob handle */
+	FIXED BINARY (15) VALUE,	/* buffer length */
+	ANY)		/* buffer */
+	RETURNS (FIXED);
+
+DECLARE GDS__PUT_SLICE ENTRY(
+        ANY VALUE,      /* status vector */
+        ANY,            /* database handle */
+        ANY,            /* transaction handle */
+        ANY,            /* array (blob) id */
+        FIXED BINARY (15),  /* sdl length */
+        ANY,            /* sdl */
+        FIXED BINARY (15),  /* parameter length */
+        ANY,            /* parameter */
+        FIXED BINARY (31),  /* slice length */
+        ANY);            /* slice */
+
+DECLARE GDS__QUE_EVENTS ENTRY(
+        ANY VALUE,      /* status vector */
+        ANY,            /* database handle */
+        ANY,            /* id */
+        ANY,            /* length */
+        ANY,            /* events */
+        ANY,            /* ast */
+        ANY);           /* arg */
+
+DECLARE GDS__RECEIVE ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY,		/* request handle */
+	FIXED BINARY (15) VALUE,	/* message type */
+	FIXED BINARY (15) VALUE,	/* message length */
+	PTR VALUE,		/* message */
+	FIXED BINARY (15) VALUE);	/* instantiation */
+
+DECLARE GDS__RELEASE_REQUEST ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY);		/* request handle */
+
+DECLARE GDS__ROLLBACK_TRANSACTION ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY);		/* transaction handle */
+
+DECLARE GDS__SEND ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY,		/* request handle */
+	FIXED BINARY (15) VALUE,	/* message type */
+	FIXED BINARY (15) VALUE,	/* message length */
+	ANY,		/* message */
+	FIXED BINARY (15) VALUE);	/* instantiation */
+
+DECLARE GDS__SET_DEBUG ENTRY(
+        FIXED BINARY (15) VALUE);
+
+DECLARE GDS__START_AND_SEND ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY,		/* request handle */
+	ANY,		/* transaction handle */
+	FIXED BINARY (15) VALUE,	/* message type */
+	FIXED BINARY (15) VALUE,	/* message length */
+	ANY,		/* message */
+	FIXED BINARY (15) VALUE);	/* instantiation */
+
+DECLARE GDS__START_REQUEST ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY,		/* request handle */
+	ANY,		/* transaction handle */
+	FIXED BINARY (15) VALUE);	/* instantiation */
+
+DECLARE GDS__START_MULTIPLE ENTRY(
+	ANY VALUE,	/* status vector */
+	ANY,		/* transaction handle */
+	FIXED BINARY (15) VALUE,	/* transaction count */
+	ANY);		/* teb */
+
+DECLARE GDS__START_TRANSACTION ENTRY(
+	ANY VALUE,			/* status vector */
+	ANY,				/* transaction handle */
+	FIXED BINARY (15) VALUE,	/* transaction count */
+	ANY VALUE,			/* database handle */
+	FIXED BINARY (15) VALUE,	/* tpb length */
+	ANY VALUE) 			/* tpb */
+	OPTIONS (VARIABLE);
+
+DECLARE GDS__STATUS_AND_STOP ENTRY(
+	ANY VALUE);		/* status vector */
+
+DECLARE GDS__UNWIND_REQUEST ENTRY(
+	ANY VALUE,			/* status vector */
+	ANY,				/* request handle */
+	FIXED BINARY (15) VALUE);	/* instantiation */
+
+DECLARE gds__print_status ENTRY(
+	(20) FIXED);		/* status vector */
+
+
+DECLARE gds__encode_date ENTRY(
+	ANY,		/* time record */
+	(2) FIXED);		/* date */
+
+DECLARE gds__decode_date ENTRY(
+	(2) FIXED,		/* date */
+	ANY);		/* time record */
+
+
+DECLARE blob__display ENTRY (
+		(2) FIXED,	/* blob_id*/
+		ANY,		/* database handle */
+		ANY,		/* transaction handle */
+		ANY,		/* field name */
+                ANY);		/* name_length */
+
+DECLARE blob__dump ENTRY (
+		(2) FIXED,	/* blob_id*/
+		ANY,		/* database handle */
+		ANY,		/* transaction handle */
+		ANY,		/* file name */
+                ANY);		/* name_length */
+
+DECLARE blob__edit ENTRY (
+		(2) FIXED,	/* blob_id*/
+		ANY,		/* database handle */
+		ANY,		/* transaction handle */
+		ANY,		/* field name */
+                ANY);		/* name_length */
+
+DECLARE blob__load ENTRY (
+		(2) FIXED,	/* blob_id*/
+		ANY,		/* database handle */
+		ANY,		/* transaction handle */
+		ANY,		/* file name */
+                ANY);		/* name_length */
+
+/* Dynamic SQL datatypes */
+
+%REPLACE  SQL_TEXT	BY 452;
+%REPLACE  SQL_VARYING	BY 448;
+%REPLACE  SQL_SHORT	BY 500;
+%REPLACE  SQL_LONG	BY 496;
+%REPLACE  SQL_FLOAT	BY 482;
+%REPLACE  SQL_DOUBLE	BY 480;
+%REPLACE  SQL_D_FLOAT	BY 530;
+%REPLACE  SQL_DATE	BY 510;
+%REPLACE  SQL_BLOB	BY 520;
+
+/* Dynamic SQL DECLAREs */
+
+DECLARE gds__close ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY		/* cursor_name */
+	);
+
+DECLARE gds__declare ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,		/* statement_name */
+	ANY		/* cursor_name */
+	);
+
+DECLARE gds__describe ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,		/* statement_name */
+	ANY		/* descriptor */
+	);
+
+DECLARE gds__dsql_finish ENTRY (
+	ANY		/* db_handle */
+	);
+
+DECLARE gds__execute ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,		/* trans_handle	*/
+	ANY,		/* statement_name */
+	ANY		/* descriptor */
+	);
+
+DECLARE gds__execute_immediate ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,		/* db_handle */
+	ANY,		/* trans_handle */
+	ANY,		/* string_length */
+	ANY		/* string */
+	);
+
+DECLARE gds__fetch ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,		/* cursor_name */
+	ANY		/* descriptor */
+	) RETURNS (FIXED);
+
+DECLARE gds__open ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,		/* trans_handle */
+	ANY,		/* cursor_name */
+	ANY		/* descriptor */
+	);
+
+DECLARE gds__prepare ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,		/* db_handle */
+	ANY,		/* trans_handle */
+	ANY,		/* statement_name */
+	ANY,		/* string_length */
+	ANY,		/* string */
+	ANY		/* descriptor */
+	);
+
+/* Forms Package definitions */
+
+/* Map definition block definitions */
+
+%REPLACE  PYXIS__MAP_VERSION1		BY 1;
+%REPLACE  PYXIS__MAP_FIELD2		BY 2;
+%REPLACE  PYXIS__MAP_FIELD1		BY 3;
+%REPLACE  PYXIS__MAP_MESSAGE		BY 4;
+%REPLACE  PYXIS__MAP_TERMINATOR		BY 5;
+%REPLACE  PYXIS__MAP_TERMINATING_FIELD	BY 6;
+%REPLACE  PYXIS__MAP_OPAQUE		BY 7;
+%REPLACE  PYXIS__MAP_TRANSPARENT	BY 8;
+%REPLACE  PYXIS__MAP_TAG		BY 9;
+%REPLACE  PYXIS__MAP_SUB_FORM		BY 10;
+%REPLACE  PYXIS__MAP_ITEM_INDEX		BY 11;
+%REPLACE  PYXIS__MAP_SUB_FIELD		BY 12;
+%REPLACE  PYXIS__MAP_END		BY -1;
+
+/* Field option flags for display options */
+
+%REPLACE  PYXIS__OPT_DISPLAY	BY 1;
+%REPLACE  PYXIS__OPT_UPDATE	BY 2;
+%REPLACE  PYXIS__OPT_WAKEUP	BY 4;
+%REPLACE  PYXIS__OPT_POSITION	BY 8;
+
+/* Field option values following display */
+
+%REPLACE  PYXIS__OPT_NULL	BY 1;
+%REPLACE  PYXIS__OPT_DEFAULT	BY 2;
+%REPLACE  PYXIS__OPT_INITIAL	BY 3;
+%REPLACE  PYXIS__OPT_USER_DATA	BY 4;
+
+/* Pseudo key definitions */
+
+%REPLACE  PYXIS__KEY_DELETE		BY 127;
+%REPLACE  PYXIS__KEY_UP			BY 128;
+%REPLACE  PYXIS__KEY_DOWN		BY 129;
+%REPLACE  PYXIS__KEY_RIGHT		BY 130;
+%REPLACE  PYXIS__KEY_LEFT		BY 131;
+%REPLACE  PYXIS__KEY_PF1		BY 132;
+%REPLACE  PYXIS__KEY_PF2		BY 133;
+%REPLACE  PYXIS__KEY_PF3		BY 134;
+%REPLACE  PYXIS__KEY_PF4		BY 135;
+%REPLACE  PYXIS__KEY_PF5		BY 136;
+%REPLACE  PYXIS__KEY_PF6		BY 137;
+%REPLACE  PYXIS__KEY_PF7		BY 138;
+%REPLACE  PYXIS__KEY_PF8		BY 139;
+%REPLACE  PYXIS__KEY_PF9		BY 140;
+%REPLACE  PYXIS__KEY_ENTER		BY 141;
+%REPLACE  PYXIS__KEY_SCROLL_TOP		BY 146;
+%REPLACE  PYXIS__KEY_SCROLL_BOTTOM	BY 147;
+
+/* Menu definition stuff */
+
+%REPLACE  PYXIS__MENU_VERSION1		BY 1;
+%REPLACE  PYXIS__MENU_LABEL		BY 2;
+%REPLACE  PYXIS__MENU_ENTREE		BY 3;
+%REPLACE  PYXIS__MENU_OPAQUE		BY 4;
+%REPLACE  PYXIS__MENU_TRANSPARENT	BY 5;
+%REPLACE  PYXIS__MENU_HORIZONTAL	BY 6;
+%REPLACE  PYXIS__MENU_VERTICAL		BY 7;
+%REPLACE  PYXIS__MENU_END		BY -1;
+
+DECLARE pyxis__compile_map ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,			/* form handle */
+	ANY,			/* map handle */
+	FIXED BINARY (15),	/* length */
+	ANY			/* map handle */
+	);
+
+DECLARE pyxis__compile_sub_map ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,			/* form handle */
+	ANY,			/* map handle */
+	FIXED BINARY (15),	/* length */
+	ANY			/* map */
+	);
+
+DECLARE pyxis__create_window ENTRY (
+	ANY,			/* window handle */
+	FIXED BINARY (15),	/* length */
+	ANY,			/* file_name */
+	FIXED BINARY (15),	/* width */
+	FIXED BINARY (15)	/* height */
+	);
+
+DECLARE pyxis__delete_window ENTRY (
+	ANY		/* window handle */
+	);
+
+DECLARE pyxis__drive_form ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,			/* database handle */
+	ANY,			/* transaction handle */
+	ANY,			/* window handle */
+	ANY,			/* map handle */
+	ANY,			/* input */
+	ANY			/* output */
+	);
+
+DECLARE pyxis__fetch ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,		/* database handle */
+	ANY,		/* transaction handle */
+	ANY,		/* map handle */
+	ANY		/* output */
+	);
+
+DECLARE pyxis__insert ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,		/* database handle */
+	ANY,		/* transaction handle */
+	ANY,		/* map handle */
+	ANY		/* intput */
+	);
+
+DECLARE pyxis__load_form ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY,		/* database handle */
+	ANY,		/* transaction handle */
+	ANY,		/* form handle */
+	ANY,		/* map handle */
+	ANY		/* form_name */
+	);
+
+DECLARE pyxis__menu ENTRY (
+	ANY,			/* window handle */
+	ANY,			/* menu handle */
+	FIXED BINARY (15),	/* length */
+	ANY			/* menu */
+	) RETURNS (FIXED BINARY (15));
+
+DECLARE pyxis__pop_window ENTRY (
+	ANY		/* window handle */
+	);
+
+DECLARE pyxis__reset_form ENTRY (
+	ANY VALUE,		/* status vector */
+	ANY		/* window handle */
+	);
+
+DECLARE pyxis__drive_menu ENTRY (
+	ANY,			/* window_handle */
+	ANY,			/* menu_handle */
+	FIXED BINARY (15),	/* blr_length */
+	ANY,			/* blr_source */
+	FIXED BINARY (15),	/* title_length */
+	ANY,			/* title */
+	FIXED BINARY (15),	/* terminator */
+	FIXED BINARY (15),	/* entree_length */
+	ANY,			/* entree_text */
+	ANY			/* entree_value */
+	);
+        
+DECLARE pyxis__get_entree ENTRY (
+	ANY,			/* menu_handle */
+	FIXED BINARY (15),	/* entree_length */
+	ANY,			/* entree_text */
+	ANY,			/* entree_value */
+	FIXED BINARY (15)	/* entree_end */
+	);
+
+DECLARE pyxis__initialize_menu ENTRY (
+	ANY			/* menu_handle */
+	);
+
+DECLARE pyxis__put_entree ENTRY (
+	ANY,			/* menu_handle */
+	FIXED BINARY (15),	/* entree_length */
+	ANY,			/* entree_text */
+	ANY			/* entree_value */
+	);
+
diff --git a/src/jrd/gds.vpas b/src/jrd/gds.vpas
new file mode 100644
index 0000000000..1ed0f24857
--- /dev/null
+++ b/src/jrd/gds.vpas
@@ -0,0 +1,1618 @@
+(*******************************************************************)
+(*                                                                 *)
+(* The contents of this file are subject to the Interbase Public   *)
+(* License Version 1.0 (the "License"); you may not use this file  *)
+(* except in compliance with the License. You may obtain a copy    *)
+(* of the License at http://www.Inprise.com/IPL.html                 *)
+(*                                                                 *)
+(* Software distributed under the License is distributed on an     *)
+(* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express     *)
+(* or implied. See the License for the specific language governing *)
+(* rights and limitations under the License.                       *)
+(*                                                                 *)
+(* The Original Code was created by Inprise Corporation *)
+(* and its predecessors. Portions created by Inprise Corporation are     *)
+(* Copyright (C) Inprise Corporation. *)
+(*                                                                 *)
+(* All Rights Reserved.                                            *)
+(* Contributor(s): ______________________________________.         *)
+(*******************************************************************)
+
+(*
+ *	PROGRAM:	Preprocessor
+ *	MODULE:		sql.pas
+ *	DESCRIPTION:	SQL constants, procedures, etc.
+ *)
+
+type
+    gds__short = [word] -32768..32767;
+    gds__handle	= ^integer;
+    gds__string	= array [1..65535] of char;
+    gds__ptr_type = [UNSAFE] ^gds__string;
+    gds__status_vector	= array [1..20] of integer;
+    gds__quad		= array [1..2] of integer;
+    gds__vector		= array [1..256] of integer;
+    gds__evb_t		= array [1..256, 1..31] of char;
+    gds__teb_t		= record
+			dbb_ptr	: gds__ptr_type;
+			tpb_len	: integer;
+			tpb_ptr	: gds__ptr_type;
+                      end;
+    gds__tm		= record
+			    tm_sec	: integer;
+			    tm_min	: integer;
+			    tm_hour	: integer;
+			    tm_mday	: integer;
+			    tm_mon	: integer;
+			    tm_year	: integer;
+			    tm_wday	: integer;
+			    tm_yday	: integer;
+			    tm_isdst	: integer;
+			end;
+    sqlvar	= record
+		    sqltype		: gds__short;
+		    sqllen		: gds__short;
+		    sqldata		: gds__ptr_type;
+		    sqlind		: gds__ptr_type;
+		    sqlname_length	: gds__short;
+		    sqlname		: array [1..30] of char;
+		end;
+    sqlda	= record
+		    sqldaid		: array [1..8] of char;
+		    sqldabc		: integer;
+		    sqln		: gds__short;
+		    sqld		: gds__short;
+		    sqlvars		: array [1..100] of sqlvar;
+		end;
+    xsqlvar	= record                    
+		    sqltype		: gds__short;
+		    sqlscale		: gds__short;
+		    sqlsubtype		: gds__short;
+		    sqllen		: gds__short;
+		    sqldata		: gds__ptr_type;
+		    sqlind		: gds__ptr_type;
+		    sqlname_length	: gds__short;
+		    sqlname		: array [1..32] of char;
+		    relname_length	: gds__short;
+		    relname		: array [1..32] of char;
+		    ownname_length	: gds__short;
+		    ownname		: array [1..32] of char;
+		    aliasname_length	: gds__short;
+		    aliasname		: array [1..32] of char;
+		end;
+    xsqlda	= record
+		    version		: gds__short;
+		    sqldaid		: array [1..8] of char;
+		    sqldabc		: integer;
+		    sqln		: gds__short;
+		    sqld		: gds__short;
+		    sqlvars		: array [1..100] of xsqlvar;
+		end;
+
+procedure GDS__SET_DEBUG (
+		debug_val	: [IMMEDIATE] gds__short
+        ); extern;
+
+procedure gds__ATTACH_DATABASE (
+	var	stat		: gds__status_vector; 
+		name_length	: [IMMEDIATE] gds__short;
+		file_name	: gds__ptr_type; 
+	var	db_handle	: gds__handle;
+		dpb_length	: [IMMEDIATE] gds__short;
+		dpb		: gds__ptr_type
+	); extern;
+
+procedure gds__ATTACH_DATABASE_D (
+	var	stat		: gds__status_vector; 
+		file_name	: gds__ptr_type; 
+	var	db_handle	: gds__handle;
+		dpb_length	: [IMMEDIATE] gds__short;
+		dpb		: gds__ptr_type
+	); extern;
+
+function isc_BADDRESS (
+		handle		: gds__ptr_type
+	) : integer; extern;
+
+procedure gds__CANCEL_BLOB (
+	var 	stat		: gds__status_vector; 
+	var	blob_handle	: gds__handle
+	); extern;
+
+procedure GDS__CANCEL_EVENTS (
+        var     stat            : gds__status_vector;
+        var     db_handle       : gds__handle;
+                id              : gds__handle
+        ); extern;
+
+procedure gds__CLOSE_BLOB (
+	var 	stat		: gds__status_vector; 
+	var	blob_handle	: gds__handle
+	); extern;
+
+procedure GDS__COMMIT_RETAINING (
+	var	stat		: gds__status_vector; 
+	var	tra_handle	: gds__handle
+	); extern;
+
+procedure gds__COMMIT_TRANSACTION (
+	var	stat		: gds__status_vector; 
+	var	tra_handle	: gds__handle
+	); extern;
+
+procedure gds__COMPILE_REQUEST (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+	var	request_handle	: gds__handle;
+		blr_length	: [IMMEDIATE] gds__short;
+		blr		: gds__ptr_type
+	); extern;
+
+procedure gds__COMPILE_REQUEST2 (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+	var	request_handle	: gds__handle;
+		blr_length	: [IMMEDIATE] gds__short;
+		blr		: gds__ptr_type
+	); extern;
+
+procedure gds__CREATE_BLOB (
+	var 	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		tra_handle	: gds__handle;
+	var	blob_handle	: gds__handle;
+	var	blob_id		: gds__quad
+	); extern;
+
+procedure GDS__CREATE_BLOB2 (
+        var     stat            : gds__status_vector;
+                db_handle       : gds__handle;
+                tra_handle      : gds__handle;
+        var     blob_handle     : gds__handle;
+        var     blob_id         : gds__quad;
+                bpb_length      : integer;
+                bpb             : gds__ptr_type
+        ); extern;
+
+procedure GDS__CREATE_DATABASE (
+	var 	stat		: gds__status_vector; 
+		name_length	: [IMMEDIATE] gds__short;
+		file_name	: gds__ptr_type;
+	var	db_handle	: gds__handle;
+		dpb_length	: [IMMEDIATE] gds__short;
+		dpb		: gds__ptr_type;
+		dpb_type	: [IMMEDIATE] gds__short
+	); extern;
+
+procedure GDS__DDL (
+	var 	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		tra_handle	: gds__handle;
+		mblr_length	: [IMMEDIATE] gds__short;
+		mblr		: gds__ptr_type
+	); extern;
+
+
+procedure gds__DETACH_DATABASE (
+	var	stat		: gds__status_vector; 
+	var	db_handle	: gds__handle
+	); extern;
+
+procedure gds__DROP_DATABASE (
+	var 	stat		: gds__status_vector; 
+		name_length	: [IMMEDIATE] gds__short;
+		file_name	: gds__ptr_type; 
+		db_type		: [IMMEDIATE] gds__short
+	); extern;
+
+function GDS__EVENT_BLOCK_A (
+	var	events          : gds__ptr_type;
+	var	buffer          : gds__ptr_type;
+		length          : [IMMEDIATE] gds__short;
+		names           : gds__evb_t
+	) : gds__short; extern;
+
+procedure GDS__EVENT_COUNTS (
+	var	counts          : gds__vector;
+		length          : [IMMEDIATE] gds__short;
+		event_buffer    : [IMMEDIATE] gds__ptr_type;
+		result_buffer   : [IMMEDIATE] gds__ptr_type
+	); extern;
+
+procedure GDS__EVENT_WAIT (
+	var	stat            : gds__status_vector;
+		db_handle       : gds__handle;
+		length          : [IMMEDIATE] gds__short;
+		events          : [IMMEDIATE] gds__ptr_type;
+		buffer          : [IMMEDIATE] gds__ptr_type
+        ); extern;
+
+procedure GDS__GET_SLICE (
+	var 	stat		: gds__status_vector; 
+                db_handle       : gds__handle;
+                tra_handle      : gds__handle;
+		blob_id         : gds__quad;
+                sdl_length      : [IMMEDIATE] gds__short;
+                sdl             : gds__ptr_type;
+                param_length    : [IMMEDIATE] gds__short;
+                param           : gds__ptr_type;
+                slice_length    : [IMMEDIATE] integer;
+                slice           : gds__ptr_type;
+        var     return_length   : integer
+	); extern;
+
+function gds__GET_SEGMENT (
+	var 	stat		: gds__status_vector; 
+		blob_handle	: gds__handle;
+	var	length		: gds__short;
+		buffer_length	: [IMMEDIATE] gds__short;
+	var	buffer		: gds__ptr_type
+	): integer; extern;
+
+procedure gds__OPEN_BLOB (
+	var 	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		tra_handle	: gds__handle;
+	var	blob_handle	: gds__handle;
+		blob_id		: gds__quad
+	); extern;
+
+procedure GDS__OPEN_BLOB2 (
+	var 	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		tra_handle	: gds__handle;
+	var	blob_handle	: gds__handle;
+		blob_id		: gds__quad;
+                bpb_length      : integer;
+                bpb             : gds__ptr_type
+	); extern;
+
+procedure gds__PREPARE_TRANSACTION (
+	var	stat		: gds__status_vector; 
+	var	tra_handle	: gds__handle
+	); extern;
+
+procedure gds__STATUS_AND_STOP (
+	var	stat		: gds__status_vector
+	); extern;
+
+function gds__PUT_SEGMENT (
+	var 	stat		: gds__status_vector; 
+		blob_handle	: gds__handle;
+		length		: [IMMEDIATE] gds__short;
+		buffer		: gds__ptr_type
+	): integer; extern;
+
+procedure GDS__PUT_SLICE (
+	var 	stat		: gds__status_vector; 
+                db_handle       : gds__handle;
+                tra_handle      : gds__handle;
+		blob_id         : gds__quad;
+                sdl_length      : [IMMEDIATE] gds__short;
+                sdl             : gds__ptr_type;
+                param_length    : [IMMEDIATE] gds__short;
+                param           : gds__ptr_type;
+                slice_length    : [IMMEDIATE] integer;
+                slice           : gds__ptr_type
+	); extern;
+
+procedure GDS__QUE_EVENTS (
+        var     stat            : gds__status_vector;
+                db_handle       : gds__handle;
+                id              : gds__quad;
+                length          : [IMMEDIATE] gds__short;
+                events          : gds__ptr_type;
+                ast             : gds__handle;
+                arg             : gds__quad
+        ); extern;
+
+procedure gds__RECEIVE (
+	var	stat		: gds__status_vector; 
+		request_handle	: gds__handle;
+		message_type	: [IMMEDIATE] gds__short;
+		message_length	: [IMMEDIATE] gds__short;
+	var	message		: gds__ptr_type;
+		instantiation	: [IMMEDIATE] gds__short
+	); extern;
+
+procedure gds__RELEASE_REQUEST (
+	var	stat		: gds__status_vector; 
+	var	request_handle	: gds__handle
+	); extern;
+
+procedure gds__ROLLBACK_TRANSACTION (
+	var	stat		: gds__status_vector; 
+	var	tra_handle	: gds__handle
+	); extern;
+
+procedure gds__SEND (
+	var	stat		: gds__status_vector; 
+		request_handle	: gds__handle;
+		message_type	: [IMMEDIATE] gds__short;
+		message_length	: [IMMEDIATE] gds__short;
+		message		: gds__ptr_type;
+		instantiation	: [IMMEDIATE] gds__short
+	); extern;
+
+procedure gds__START_AND_SEND (
+	var	stat		: gds__status_vector; 
+		request_handle	: gds__handle;
+		tra_handle	: gds__handle;
+		message_type	: [IMMEDIATE] gds__short;
+		message_length	: [IMMEDIATE] gds__short;
+		message		: gds__ptr_type;
+		instantiation	: [IMMEDIATE] gds__short
+	); extern;
+
+procedure gds__START_REQUEST (
+	var	stat		: gds__status_vector; 
+		request_handle	: gds__handle;
+		tra_handle	: gds__handle;
+		instantiation	: [IMMEDIATE] gds__short
+	); extern;
+
+procedure gds__START_MULTIPLE (
+	var	stat		: gds__status_vector; 
+	var	tra_handle	: gds__handle;
+		tra_count	: [IMMEDIATE] gds__short;
+		teb		: gds__ptr_type
+	); extern;
+
+procedure gds__START_TRANSACTION (
+	var	stat		: gds__status_vector; 
+	var	tra_handle	: gds__handle;
+		tra_count	: [IMMEDIATE] gds__short;
+		db_handle	: gds__handle;
+		tpb_length	: [IMMEDIATE] gds__short;
+		tpb		: gds__ptr_type
+	); extern;
+
+procedure gds__UNWIND_REQUEST (
+	var	stat		: gds__status_vector; 
+		request_handle	: gds__handle;
+		instantiation	: [IMMEDIATE] gds__short
+	); extern;
+
+procedure isc_dsql_allocate_statement (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+	var	stmt_handle	: gds__handle
+	); extern;
+
+procedure isc_dsql_alloc_statement2 (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+	var	stmt_handle	: gds__handle
+	); extern;
+
+procedure isc_dsql_execute_m (
+	var	stat		: gds__status_vector; 
+		tra_handle	: gds__handle;
+		stmt_handle	: gds__handle;
+		blr_length	: [IMMEDIATE] gds__short;
+		blr		: gds__ptr_type;
+		msg_type	: [IMMEDIATE] gds__short;
+		msg_length	: [IMMEDIATE] gds__short;
+		msg		: gds__ptr_type
+	); extern;
+
+procedure isc_dsql_execute2_m (
+	var	stat		: gds__status_vector; 
+		tra_handle	: gds__handle;
+		stmt_handle	: gds__handle;
+		in_blr_length	: [IMMEDIATE] gds__short;
+		in_blr		: gds__ptr_type;
+		in_msg_type	: [IMMEDIATE] gds__short;
+		in_msg_length	: [IMMEDIATE] gds__short;
+		in_msg		: gds__ptr_type;
+		out_blr_length	: [IMMEDIATE] gds__short;
+		out_blr		: gds__ptr_type;
+		out_msg_type	: [IMMEDIATE] gds__short;
+		out_msg_length	: [IMMEDIATE] gds__short;
+	var	out_msg		: gds__ptr_type
+	); extern;
+
+procedure isc_dsql_free_statement (
+	var	stat		: gds__status_vector; 
+		stmt_handle	: gds__handle;
+		option		: [IMMEDIATE] gds__short
+	); extern;
+
+procedure isc_dsql_set_cursor_name (
+	var	stat		: gds__status_vector; 
+		stmt_handle	: gds__handle;
+		cursor_name	: gds__ptr_type;
+		cursor_type	: [IMMEDIATE] gds__short
+	); extern;
+
+procedure gds__ftof (
+		string1		: [REFERENCE] gds__ptr_type;
+                length1		: [IMMEDIATE] gds__short;
+		string2		: [REFERENCE] gds__ptr_type;
+                length2		: [IMMEDIATE] gds__short
+	); extern;
+
+procedure gds__print_status (
+		stat		: gds__status_vector
+	); extern;
+
+function gds__sqlcode (
+		stat		: gds__status_vector
+	) : integer; extern;
+
+
+procedure gds__encode_date (
+		times		: gds__tm;
+	var	date 		: gds__quad
+    ); extern;
+
+procedure gds__decode_date (
+		date 		: gds__quad;
+	var	times		: gds__tm 
+    ); extern;
+
+procedure isc_exec_procedure (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		tra_handle	: gds__handle;
+		name_length	: [IMMEDIATE] gds__short;
+		proc_name	: gds__ptr_type; 
+		blr_length	: [IMMEDIATE] gds__short;
+		blr		: gds__ptr_type
+		in_msg_length	: [IMMEDIATE] gds__short;
+		in_msg		: gds__ptr_type;
+		out_msg_length	: [IMMEDIATE] gds__short;
+		out_msg		: gds__ptr_type
+	); extern;
+
+const
+    gds__true	= 1;
+    gds__false  = 0;
+
+    blr_text = chr(14);
+    blr_short = chr(7);
+    blr_long = chr(8);
+    blr_quad = chr(9);
+    blr_float = chr(10);
+    blr_double = chr(27);
+    blr_d_float = chr(11);
+    blr_date = chr(35);
+    blr_varying = chr(37);
+    blr_cstring = chr(40);
+(*    blr_blob = chr(261); *)
+    blr_version4 = chr(4);
+    blr_version4_extended = chr(20);
+    blr_eoc = chr(76);
+    blr_end = chr(255);
+    blr_blob_id = chr(45); 
+    blr_inner = chr(0);
+    blr_left = chr(1);
+    blr_right = chr(2);
+    blr_full = chr(3);
+
+    blr_gds_code = chr(0);
+    blr_sql_code = chr(1);
+    blr_exception = chr(2);
+    blr_trigger_code = chr(3);
+    blr_default_code = chr(4);
+
+    blr_assignment = chr(1);
+    blr_begin = chr(2);
+    blr_message = chr(4);
+    blr_erase = chr(5);
+    blr_fetch = chr(6);
+    blr_for = chr(7);
+    blr_if = chr(8);
+    blr_loop = chr(9);
+    blr_modify = chr(10);
+    blr_handler = chr(11);
+    blr_receive = chr(12);
+    blr_select = chr(13);
+    blr_send = chr(14);
+    blr_store = chr(15);
+    blr_label = chr(17);
+    blr_leave = chr(18);
+    blr_literal = chr(21);
+    blr_dbkey = chr(22);
+    blr_field = chr(23);
+    blr_fid = chr(24);
+    blr_parameter = chr(25);
+    blr_variable = chr(26);
+    blr_average = chr(27);
+    blr_count = chr(28);
+    blr_maximum = chr(29);
+    blr_minimum = chr(30);
+    blr_total = chr(31);
+
+    blr_add = chr(34);
+    blr_subtract = chr(35);
+    blr_multiply = chr(36);
+    blr_divide = chr(37);
+    blr_negate = chr(38);
+    blr_concatenate = chr(39);
+    blr_substring = chr(40);
+    blr_parameter2 = chr(41);
+    blr_from = chr(42);
+    blr_via = chr(43);
+    blr_null = chr(45);
+
+    blr_eql = chr(47);
+    blr_neq = chr(48);
+    blr_gtr = chr(49);
+    blr_geq = chr(50);
+    blr_lss = chr(51);
+    blr_leq = chr(52);
+    blr_containing = chr(53);
+    blr_matching = chr(54);
+    blr_starting = chr(55);
+    blr_between = chr(56);
+    blr_or = chr(57);
+    blr_and = chr(58);
+    blr_not = chr(59);
+    blr_any = chr(60);
+    blr_missing = chr(61);
+    blr_unique = chr(62);
+    blr_like = chr(63);
+
+    blr_stream = chr(65);
+    blr_set_index = chr(66);
+
+    blr_rse = chr(67);
+    blr_first = chr(68);
+    blr_project = chr(69);
+    blr_sort = chr(70);
+    blr_boolean = chr(71);
+    blr_ascending = chr(72);
+    blr_descending = chr(73);
+    blr_relation = chr(74);
+    blr_rid = chr(75);
+    blr_union = chr(76);
+    blr_map = chr(77);
+    blr_group_by = chr(78);
+    blr_aggregate = chr(79);
+
+    blr_agg_count = chr(83);
+    blr_agg_max	= chr(84);
+    blr_agg_min	= chr(85);
+    blr_agg_total = chr(86);
+    blr_agg_average = chr(87);
+    blr_run_count = chr(118);
+    blr_run_max	= chr(89);
+    blr_run_min	= chr(90);
+    blr_run_total = chr(91);
+    blr_run_average = chr(92);
+    blr_upcase = chr(103);
+    blr_lock_state = chr(104);
+    blr_value_if = chr(105);
+    blr_matching2 = chr(106);
+    blr_index = chr(107);
+    blr_ansi_like = chr(108);
+
+    blr_bookmark = chr(109);
+    blr_crack = chr(110);
+    blr_force_crack = chr(111);
+    blr_seek = chr(112);
+    blr_find = chr(113);
+    blr_lock_relation = chr(114);
+    blr_lock_record = chr(115);
+    blr_set_bookmark = chr(116);
+    blr_get_bookmark = chr(117);
+
+    blr_parameter3 = chr(88);
+    blr_rs_stream = chr(119);
+    blr_exec_proc = chr(120);
+
+    blr_begin_range = chr(121);
+    blr_end_range = chr(122);
+    blr_delete_range = chr(123);
+    blr_procedure = chr(124);
+    blr_pid = chr(125);
+    blr_exec_pid = chr(126);
+    blr_singular = chr(127);
+    blr_abort = chr(128);
+    blr_block = chr(129);
+    blr_error_handler = chr(130);
+    blr_cast = chr(131);
+ 
+(* Database parameter block stuff *)
+
+     gds__dpb_version1		= chr (1);
+
+     gds__dpb_cdd_pathname	= chr (1);	(* not implemented *)
+     gds__dpb_allocation	= chr (2);	(* not implemented *)
+     gds__dpb_journal 		= chr (3);
+     gds__dpb_page_size 	= chr (4);
+     gds__dpb_num_buffers 	= chr (5);
+     gds__dpb_buffer_length	= chr (6);	(* not implemented *)
+     gds__dpb_debug 		= chr (7);	(* not implemented *)
+     gds__dpb_garbage_collect	= chr (8);	(* not implemented *)
+     gds__dpb_verify 		= chr (9);
+     gds__dpb_sweep 		= chr (10);
+     gds__dpb_enable_journal	= chr (11);
+     gds__dpb_disable_journal	= chr (12);
+     gds__dpb_dbkey_scope	= chr (13);	(* not implemented *)
+     gds__dpb_number_of_users	= chr (14);	(* not implemented *)
+     gds__dpb_trace		= chr (15);	(* not implemented *)
+     gds__dpb_no_garbage_collect = chr (16);	(* not implemented *)
+     gds__dpb_damaged		= chr (17);	(* not implemented *)
+     gds__dpb_license		= chr (18);
+     gds__dpb_sys_user_name	= chr (19);
+     gds__dpb_encrypt_key	= chr (20);
+     gds__dpb_activate_shadow	= chr (21);
+     gds__dpb_sweep_interval	= chr (22);
+     gds__dpb_delete_shadow	= chr (23);
+     gds__dpb_force_write       = chr (24);
+     gds__dpb_begin_log         = chr (25);
+     gds__dpb_quit_log          = chr (26);
+     gds__dpb_no_reserve        = chr (27);
+     gds__dpb_user_name         = chr (28);
+     gds__dpb_password          = chr (29);
+     gds__dpb_password_enc      = chr (30);
+     gds__dpb_sys_user_name_enc = chr (31);
+
+
+     gds__dpb_pages		= chr(1);
+     gds__dpb_records 		= chr(2);
+     gds__dpb_indices 		= chr(4);
+     gds__dpb_transactions 	= chr(8);
+     gds__dpb_no_update 	= chr(16);
+     gds__dpb_repair 		= chr(32);
+     gds__dpb_ignore 		= chr(64);
+
+
+
+(* Transaction parameter block stuff *)
+
+    gds__tpb_version1	 = chr (1);
+    gds__tpb_version3	 = chr (3);
+    gds__tpb_consistency = chr (1);
+    gds__tpb_concurrency = chr (2);
+    gds__tpb_shared	 = chr (3);
+    gds__tpb_protected	 = chr (4);
+    gds__tpb_exclusive	 = chr (5);
+    gds__tpb_wait	 = chr (6);
+    gds__tpb_nowait	 = chr (7);
+    gds__tpb_read	 = chr (8);
+    gds__tpb_write	 = chr (9);
+    gds__tpb_lock_read	 = chr (10);
+    gds__tpb_lock_write	 = chr (11);
+    gds__tpb_verb_time	 = chr (12);
+    gds__tpb_commit_time = chr (13);
+    gds__tpb_ignore_limbo = chr (14);
+
+(* Blob parameter block stuff *)
+
+     gds__bpb_version1		= chr (1);
+     gds__bpb_source_type	= chr (1);
+     gds__bpb_target_type	= chr (2);
+     gds__bpb_type		= chr (3);
+
+     gds__bpb_type_segmented	= chr (0);
+     gds__bpb_type_stream	= chr (1);
+
+(* Blob routine declarations *)
+
+type
+    gds__field_name	= array [1..31] of char;
+    gds__file_name	= array [1..128] of char;
+
+procedure blob__display (
+		blob_id		: gds__quad;
+	 	db_handle	: gds__handle;
+	 	tra_handle	: gds__handle;
+        	field_name	: gds__ptr_type;
+                name_length	: [IMMEDIATE] integer
+	); extern;
+
+procedure blob__dump (
+		blob_id		: gds__quad;
+	 	db_handle	: gds__handle;
+	 	tra_handle	: gds__handle;
+        	file_name	: gds__ptr_type;
+        	name_length	: [IMMEDIATE] integer
+	); extern;
+
+procedure blob__edit (
+		blob_id		: gds__quad;
+	 	db_handle	: gds__handle;
+	 	tra_handle	: gds__handle;
+        	field_name	: gds__ptr_type;
+        	name_length	: [IMMEDIATE] integer
+	); extern;
+
+procedure blob__load (
+		blob_id		: gds__quad;
+	 	db_handle	: gds__handle;
+	 	tra_handle	: gds__handle;
+        	file_name	: gds__ptr_type;
+        	name_length	: [IMMEDIATE] integer
+	); extern;
+
+(* Dynamic SQL procedures *)
+
+procedure gds__close (
+	var	stat		: gds__status_vector; 
+		cursor_name	: gds__ptr_type
+	); extern;
+
+procedure gds__declare (
+	var	stat		: gds__status_vector; 
+		statement_name	: gds__ptr_type;
+		cursor_name	: gds__ptr_type
+	); extern;
+
+procedure gds__describe (
+	var	stat		: gds__status_vector; 
+		statement_name	: gds__ptr_type;
+	var	descriptor	: gds__ptr_type
+	); extern;
+
+procedure gds__dsql_finish (
+		db_handle	: gds__handle
+	); extern;
+
+procedure gds__execute (
+	var	stat		: gds__status_vector; 
+		trans_handle	: gds__handle;
+		statement_name	: gds__ptr_type;
+	var	descriptor	: gds__ptr_type
+	); extern;
+
+procedure gds__execute_immediate (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		trans_handle	: gds__handle;
+		string_length	: gds__short;
+		string		: gds__ptr_type
+	); extern;
+
+function gds__fetch (
+	var	stat		: gds__status_vector; 
+		cursor_name	: gds__ptr_type;
+	var	descriptor	: gds__ptr_type
+	) : integer; extern;
+
+procedure gds__open (
+	var	stat		: gds__status_vector; 
+		trans_handle	: gds__handle;
+		cursor_name	: gds__ptr_type;
+	var	descriptor	: gds__ptr_type
+	); extern;
+
+procedure gds__prepare (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		trans_handle	: gds__handle;
+		statement_name	: gds__ptr_type;
+		string_length	: gds__short;
+		string		: gds__ptr_type; 
+	var	descriptor	: gds__ptr_type
+	); extern;
+
+procedure isc_embed_dsql_close (
+	var	stat		: gds__status_vector; 
+		cursor_name	: gds__ptr_type
+	); extern;
+
+procedure isc_embed_dsql_declare (
+	var	stat		: gds__status_vector; 
+		statement_name	: gds__ptr_type;
+		cursor_name	: gds__ptr_type
+	); extern;
+
+procedure isc_embed_dsql_describe (
+	var	stat		: gds__status_vector; 
+		statement_name	: gds__ptr_type;
+		dialect		: [IMMEDIATE] gds__short;
+	var	descriptor	: gds__ptr_type
+	); extern;
+
+procedure isc_embed_dsql_describe_bind (
+	var	stat		: gds__status_vector; 
+		statement_name	: gds__ptr_type;
+		dialect		: [IMMEDIATE] gds__short;
+	var	descriptor	: gds__ptr_type
+	); extern;
+
+procedure isc_embed_dsql_execute (
+	var	stat		: gds__status_vector; 
+		trans_handle	: gds__handle;
+		statement_name	: gds__ptr_type;
+		dialect		: [IMMEDIATE] gds__short;
+	var	descriptor	: gds__ptr_type
+	); extern;
+
+procedure isc_embed_dsql_execute2 (
+	var	stat		: gds__status_vector; 
+		trans_handle	: gds__handle;
+		statement_name	: gds__ptr_type;
+		dialect		: [IMMEDIATE] gds__short;
+	var	in_descriptor	: gds__ptr_type;
+	var	out_descriptor	: gds__ptr_type
+	); extern;
+
+procedure isc_embed_dsql_execute_immed (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		trans_handle	: gds__handle;
+		string_length	: [IMMEDIATE] gds__short;
+		string		: gds__ptr_type;
+		dialect		: [IMMEDIATE] gds__short;
+	var	descriptor	: gds__ptr_type
+	); extern;
+
+function isc_embed_dsql_fetch (
+	var	stat		: gds__status_vector; 
+		cursor_name	: gds__ptr_type;
+		dialect		: [IMMEDIATE] gds__short;
+	var	descriptor	: gds__ptr_type
+	) : integer; extern;
+
+procedure isc_embed_dsql_open (
+	var	stat		: gds__status_vector; 
+		trans_handle	: gds__handle;
+		cursor_name	: gds__ptr_type;
+		dialect		: [IMMEDIATE] gds__short;
+	var	descriptor	: gds__ptr_type
+	); extern;
+
+procedure isc_embed_dsql_prepare (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		trans_handle	: gds__handle;
+		statement_name	: gds__ptr_type;
+		string_length	: [IMMEDIATE] gds__short;
+		string		: gds__ptr_type;
+		dialect		: [IMMEDIATE] gds__short;
+	var	descriptor	: gds__ptr_type
+	); extern;
+
+procedure isc_embed_dsql_release (
+	var	stat		: gds__status_vector; 
+		statement_name	: gds__ptr_type
+	); extern;
+
+(* Information parameters *)
+
+(* Common, structural codes *)
+const
+    gds__info_end		= chr(1);
+    gds__info_truncated		= chr(2);
+    gds__info_error		= chr(3);
+
+(* Database information items *)
+
+    gds__info_db_id		= chr(4);
+    gds__info_reads		= chr(5);
+    gds__info_writes		= chr(6);
+    gds__info_fetches		= chr(7);
+    gds__info_marks		= chr(8);
+    gds__info_implementation 	= chr(11);
+    gds__info_version		= chr(12);
+    gds__info_base_level	= chr(13);
+    gds__info_page_size		= chr(14);
+    gds__info_num_buffers	= chr(15);
+    gds__info_limbo		= chr(16);
+    gds__info_current_memory	= chr(17);
+    gds__info_max_memory	= chr(18);
+    gds__info_window_turns	= chr(19);
+    gds__info_license           = chr(20);
+    gds__info_allocation        = chr(21);
+    gds__info_attachment_id     = chr(22);
+    gds__info_read_seq_count    = chr(23);
+    gds__info_read_idx_count    = chr(24);
+    gds__info_insert_count      = chr(25);
+    gds__info_update_count      = chr(26);
+    gds__info_delete_count      = chr(27);
+    gds__info_backout_count     = chr(28);
+    gds__info_purge_count       = chr(29);
+    gds__info_expunge_count     = chr(30);
+    gds__info_sweep_interval    = chr(31);
+    gds__info_ods_version       = chr(32);
+    gds__info_ods_minor_version = chr(33);
+    gds__info_no_reserve        = chr(34);
+
+
+(* Request information items *)
+
+    gds__info_number_messages	= chr(4);
+    gds__info_max_message	= chr(5);
+    gds__info_max_send		= chr(6);
+    gds__info_max_receive	= chr(7);
+    gds__info_state		= chr(8);
+    gds__info_message_number	= chr(9);
+    gds__info_message_size	= chr(10);
+    gds__info_request_cost	= chr(11);
+
+    gds__info_req_active	= chr(2);
+    gds__info_req_inactive	= chr(3);
+    gds__info_req_send		= chr(4);
+    gds__info_req_receive	= chr(5);
+    gds__info_req_select	= chr(6);
+
+(* Blob information items *)
+
+    gds__info_blob_num_segments	= chr(4);
+    gds__info_blob_max_segment	= chr(5);
+    gds__info_blob_total_length	= chr(6);
+    gds__info_blob_type		= chr(7);
+
+(* Transaction information items *)
+
+    gds__info_tra_id		= chr(4);
+
+(* SQL information items *)
+
+    gds__info_sql_select        = chr(4);
+    gds__info_sql_bind          = chr(5);
+    gds__info_sql_num_variables = chr(6);
+    gds__info_sql_describe_vars = chr(7);
+    gds__info_sql_describe_end  = chr(8);
+    gds__info_sql_sqlda_seq     = chr(9);
+    gds__info_sql_message_seq   = chr(10);
+    gds__info_sql_type          = chr(11);
+    gds__info_sql_sub_type      = chr(12);
+    gds__info_sql_scale         = chr(13);
+    gds__info_sql_length        = chr(14);
+    gds__info_sql_null_ind      = chr(15);
+    gds__info_sql_field         = chr(16);
+    gds__info_sql_relation      = chr(17);
+    gds__info_sql_owner         = chr(18);
+    gds__info_sql_alias         = chr(19);
+
+(* Error codes *)
+
+CONST
+	gds_facility		= 20;
+	gds_err_base		= 335544320;
+	gds_err_factor		= 1;
+	gds_arg_end		= 0;	(* end of argument list *)
+	gds_arg_gds		= 1;	(* generic DSRI status value *)
+	gds_arg_string		= 2;	(* string argument *)
+	gds_arg_cstring		= 3;	(* count & string argument *)
+	gds_arg_number		= 4;	(* numeric argument (long) *)
+	gds_arg_interpreted	= 5;	(* interpreted status code (string) *)
+	gds_arg_vms		= 6;	(* VAX/VMS status code (long) *)
+	gds_arg_unix		= 7;	(* UNIX error code *)
+	gds_arg_domain		= 8;	(* Apollo/Domain error code *)
+	gds_arg_dos		= 9;	(* DOS error code *)
+	gds_arg_mpexl		= 10;	(* MPE XL error code *)
+	gds_arg_mpexl_ipc	= 11;	(* MPE XL (IPC) error code *)
+
+	gds__arith_except         = 335544321;
+	gds__bad_dbkey            = 335544322;
+	gds__bad_db_format        = 335544323;
+	gds__bad_db_handle        = 335544324;
+	gds__bad_dpb_content      = 335544325;
+	gds__bad_dpb_form         = 335544326;
+	gds__bad_req_handle       = 335544327;
+	gds__bad_segstr_handle    = 335544328;
+	gds__bad_segstr_id        = 335544329;
+	gds__bad_tpb_content      = 335544330;
+	gds__bad_tpb_form         = 335544331;
+	gds__bad_trans_handle     = 335544332;
+	gds__bug_check            = 335544333;
+	gds__convert_error        = 335544334;
+	gds__db_corrupt           = 335544335;
+	gds__deadlock             = 335544336;
+	gds__excess_trans         = 335544337;
+	gds__from_no_match        = 335544338;
+	gds__infinap              = 335544339;
+	gds__infona               = 335544340;
+	gds__infunk               = 335544341;
+	gds__integ_fail           = 335544342;
+	gds__invalid_blr          = 335544343;
+	gds__io_error             = 335544344;
+	gds__lock_conflict        = 335544345;
+	gds__metadata_corrupt     = 335544346;
+	gds__not_valid            = 335544347;
+	gds__no_cur_rec           = 335544348;
+	gds__no_dup               = 335544349;
+	gds__no_finish            = 335544350;
+	gds__no_meta_update       = 335544351;
+	gds__no_priv              = 335544352;
+	gds__no_recon             = 335544353;
+	gds__no_record            = 335544354;
+	gds__no_segstr_close      = 335544355;
+	gds__obsolete_metadata    = 335544356;
+	gds__open_trans           = 335544357;
+	gds__port_len             = 335544358;
+	gds__read_only_field      = 335544359;
+	gds__read_only_rel        = 335544360;
+	gds__read_only_trans      = 335544361;
+	gds__read_only_view       = 335544362;
+	gds__req_no_trans         = 335544363;
+	gds__req_sync             = 335544364;
+	gds__req_wrong_db         = 335544365;
+	gds__segment              = 335544366;
+	gds__segstr_eof           = 335544367;
+	gds__segstr_no_op         = 335544368;
+	gds__segstr_no_read       = 335544369;
+	gds__segstr_no_trans      = 335544370;
+	gds__segstr_no_write      = 335544371;
+	gds__segstr_wrong_db      = 335544372;
+	gds__sys_request          = 335544373;
+	gds__unavailable          = 335544375;
+	gds__unres_rel            = 335544376;
+	gds__uns_ext              = 335544377;
+	gds__wish_list            = 335544378;
+	gds__wrong_ods            = 335544379;
+	gds__wronumarg            = 335544380;
+	gds__imp_exc              = 335544381;
+	gds__random               = 335544382;
+	gds__fatal_conflict       = 335544383;
+
+(* Minor codes subject to change *)
+
+	gds__badblk               = 335544384;
+	gds__invpoolcl            = 335544385;
+	gds__nopoolids            = 335544386;
+	gds__relbadblk            = 335544387;
+	gds__blktoobig            = 335544388;
+	gds__bufexh               = 335544389;
+	gds__syntaxerr            = 335544390;
+	gds__bufinuse             = 335544391;
+	gds__bdbincon             = 335544392;
+	gds__reqinuse             = 335544393;
+	gds__badodsver            = 335544394;
+	gds__relnotdef            = 335544395;
+	gds__fldnotdef            = 335544396;
+	gds__dirtypage            = 335544397;
+	gds__waifortra            = 335544398;
+	gds__doubleloc            = 335544399;
+	gds__nodnotfnd            = 335544400;
+	gds__dupnodfnd            = 335544401;
+	gds__locnotmar            = 335544402;
+	gds__badpagtyp            = 335544403;
+	gds__corrupt              = 335544404;
+	gds__badpage              = 335544405;
+	gds__badindex             = 335544406;
+	gds__dbbnotzer            = 335544407;
+	gds__tranotzer            = 335544408;
+	gds__trareqmis            = 335544409;
+	gds__badhndcnt            = 335544410;
+	gds__wrotpbver            = 335544411;
+	gds__wroblrver            = 335544412;
+	gds__wrodpbver            = 335544413;
+	gds__blobnotsup           = 335544414;
+	gds__badrelation          = 335544415;
+	gds__nodetach             = 335544416;
+	gds__notremote            = 335544417;
+	gds__trainlim             = 335544418;
+	gds__notinlim             = 335544419;
+	gds__traoutsta            = 335544420;
+	gds__connect_reject       = 335544421;
+	gds__dbfile               = 335544422;
+	gds__orphan               = 335544423;
+	gds__no_lock_mgr          = 335544424;
+	gds__ctxinuse             = 335544425;
+	gds__ctxnotdef            = 335544426;
+	gds__datnotsup            = 335544427;
+	gds__badmsgnum            = 335544428;
+	gds__badparnum            = 335544429;
+	gds__virmemexh            = 335544430;
+	gds__blocking_signal      = 335544431;
+	gds__lockmanerr           = 335544432;
+	gds__journerr             = 335544433;
+	gds__keytoobig            = 335544434;
+	gds__nullsegkey           = 335544435;
+	gds__sqlerr               = 335544436;
+	gds__wrodynver            = 335544437;
+        gds__obj_in_use           = 335544453;
+        gds__nofilter             = 335544454;
+        gds__shadow_accessed      = 335544455;
+        gds__invalid_sdl          = 335544456;
+        gds__out_of_bounds        = 335544457;
+        gds__invalid_dimension    = 335544458;
+        gds__rec_in_limbo         = 335544459;
+        gds__shadow_missing       = 335544460;
+        gds__cant_validate        = 335544461;
+        gds__cant_start_journal   = 335544462;
+        gds__gennotdef            = 335544463;
+        gds__cant_start_logging   = 335544464;
+        gds__bad_segstr_type      = 335544465;
+        gds__foreign_key          = 335544466;
+        gds__high_minor           = 335544467;
+        gds__tra_state            = 335544468;
+        gds__trans_invalid        = 335544469;
+        gds__buf_invalid          = 335544470;
+        gds__indexnotdefined      = 335544471;
+	gds__login                = 335544472;
+	gds__invalid_bookmark     = 335544473;
+	gds__bad_lock_level       = 335544474;
+	gds__relation_lock        = 335544475;
+	gds__record_lock          = 335544476;
+	gds__max_idx              = 335544477;
+	gds__jrn_enable           = 335544478;
+	gds__old_failure          = 335544479;
+	gds__old_in_progress      = 335544480;
+	gds__old_no_space         = 335544481;
+	gds__no_wal_no_jrn        = 335544482;
+	gds__num_old_files        = 335544483;
+	gds__wal_file_open        = 335544484;
+	gds__bad_stmt_handle      = 335544485;
+	gds__wal_failure          = 335544486;
+	gds__walw_err             = 335544487;
+	gds__logh_small           = 335544488;
+	gds__logh_inv_version     = 335544489;
+	gds__logh_open_flag       = 335544490;
+	gds__logh_open_flag2      = 335544491;
+	gds__logh_diff_dbname     = 335544492;
+	gds__logf_unexpected_eof  = 335544493;
+	gds__logr_incomplete      = 335544494;
+	gds__logr_header_small    = 335544495;
+	gds__logb_small           = 335544496;
+	gds__wal_illegal_attach   = 335544497;
+	gds__wal_invalid_wpb      = 335544498;
+	gds__wal_err_rollover     = 335544499;
+	gds__no_wal               = 335544500;
+	gds__drop_wal             = 335544501;
+	gds__stream_not_defined   = 335544502;
+	gds__unknown_183          = 335544503;
+	gds__wal_subsys_error     = 335544504;
+	gds__wal_subsys_corrupt   = 335544505;
+	gds__no_archive           = 335544506;
+	gds__store_proc_failed    = 335544507;
+	gds__range_in_use         = 335544508;
+	gds__range_not_found      = 335544509;
+	gds__charset_not_found    = 335544510;
+	gds__lock_timeout         = 335544511;
+	gds__prcnotdef            = 335544512;
+	gds__prcmismat            = 335544513;
+	gds_err_max               = 193;
+
+(* Dynamic Data Definition Language operators *)
+
+(* Version number *)
+
+	gds__dyn_version_1		= chr(1);
+	gds__dyn_eoc			= chr(255);
+
+(* Operations (may be nested) *)
+
+	gds__dyn_begin			= chr(2);
+	gds__dyn_end			= chr(3);
+	gds__dyn_if			= chr(4);
+
+	gds__dyn_def_database		= chr(5);
+	gds__dyn_def_global_fld		= chr(6);
+	gds__dyn_def_local_fld		= chr(7);
+	gds__dyn_def_idx		= chr(8);
+	gds__dyn_def_rel		= chr(9);
+	gds__dyn_def_sql_fld		= chr(10);
+	gds__dyn_def_view		= chr(12);
+	gds__dyn_def_trigger		= chr(15);
+	gds__dyn_def_security_class	= chr(120);
+	gds__dyn_def_dimension		= chr(140);
+
+	gds__dyn_mod_rel		= chr(11);
+	gds__dyn_mod_global_fld		= chr(13);
+	gds__dyn_mod_idx		= chr(102);
+	gds__dyn_mod_local_fld		= chr(14);
+	gds__dyn_mod_view		= chr(16);
+	gds__dyn_mod_security_class	= chr(122);
+	gds__dyn_mod_trigger		= chr(113);
+
+	gds__dyn_delete_database	= chr(18);
+	gds__dyn_delete_rel		= chr(19);
+	gds__dyn_delete_global_fld	= chr(20);
+	gds__dyn_delete_local_fld	= chr(21);
+	gds__dyn_delete_idx		= chr(22);
+	gds__dyn_delete_security_class	= chr(123);
+	gds__dyn_delete_dimensions	= chr(143);
+
+        gds__dyn_grant                  = chr(30);
+        gds__dyn_revoke                 = chr(31);
+        gds__dyn_def_primary_key        = chr(37);
+        gds__dyn_def_foreign_key        = chr(38);
+        gds__dyn_def_unique             = chr(40);
+	gds__dyn_def_procedure          = chr(164);
+	gds__dyn_delete_procedure       = chr(165);
+	gds__dyn_def_parameter          = chr(135);
+	gds__dyn_delete_parameter       = chr(136);
+	gds__dyn_def_intl_info          = chr(172);
+	gds__dyn_mod_procedure          = chr(175);
+
+(* Booleans *)
+
+	gds__dyn_rel_defined		= chr(30);
+	gds__dyn_global_fld_defined	= chr(31);
+	gds__dyn_local_fld_defined	= chr(32);
+	gds__dyn_index_defined		= chr(33);
+	gds__dyn_not			= chr(34);
+	gds__dyn_and			= chr(35);
+	gds__dyn_or			= chr(36);
+
+(* View specific stuff *)
+
+	gds__dyn_view_blr		= chr(43);
+	gds__dyn_view_source		= chr(44);
+	gds__dyn_view_relation		= chr(45);
+	gds__dyn_view_context		= chr(46);
+	gds__dyn_view_context_name	= chr(47);
+
+(* Generic attributes *)
+
+	gds__dyn_rel_name		= chr(50);
+	gds__dyn_fld_name		= chr(51);
+	gds__dyn_idx_name		= chr(52);
+	gds__dyn_description		= chr(53);
+	gds__dyn_security_class		= chr(54);
+	gds__dyn_system_flag		= chr(55);
+	gds__dyn_update_flag		= chr(56);
+        gds__dyn_prc_name               = chr(166);
+	gds__dyn_prm_name               = chr(137);
+
+(* Relation specific attributes *)
+
+	gds__dyn_rel_dbkey_length	= chr(61);
+	gds__dyn_rel_store_trig		= chr(62);
+	gds__dyn_rel_modify_trig	= chr(63);
+	gds__dyn_rel_erase_trig		= chr(64);
+	gds__dyn_rel_store_trig_source	= chr(65);
+	gds__dyn_rel_modify_trig_source	= chr(66);
+	gds__dyn_rel_erase_trig_source	= chr(67);
+	gds__dyn_rel_erase_ext_file	= chr(68);
+        gds__dyn_rel_sql_protection     = chr(69);
+        gds__dyn_rel_constraint         = chr(162);
+	gds__dyn_delete_rel_constraint  = chr(163);
+
+(* Global field specific attributes *)
+
+	gds__dyn_fld_type		= chr(70);
+	gds__dyn_fld_length		= chr(71);
+	gds__dyn_fld_scale		= chr(72);
+	gds__dyn_fld_sub_type		= chr(73);
+	gds__dyn_fld_segment_length	= chr(74);
+	gds__dyn_fld_query_header	= chr(75);
+	gds__dyn_fld_edit_string	= chr(76);
+	gds__dyn_fld_validation_blr	= chr(77);
+	gds__dyn_fld_validate_source	= chr(78);
+	gds__dyn_fld_computed_blr	= chr(79);
+	gds__dyn_fld_computed_source	= chr(80);
+	gds__dyn_fld_missing_value	= chr(81);
+	gds__dyn_fld_default_value	= chr(82);
+	gds__dyn_fld_query_name		= chr(83);
+	gds__dyn_fld_dimensions		= chr(84);
+        gds__dyn_fld_not_null           = chr(85);
+	gds__dyn_fld_collation_name     = chr(173);
+	gds__dyn_fld_character_set_name = chr(174);
+
+(* Local field specific attributes *)
+
+	gds__dyn_fld_source		= chr(90);
+	gds__dyn_fld_base_fld		= chr(91);
+	gds__dyn_fld_position		= chr(92);
+	gds__dyn_fld_update_flag	= chr(93);
+
+(* Index specific attributes *)
+
+	gds__dyn_idx_unique		= chr(100);
+	gds__dyn_idx_active		= chr(101);
+        gds__dyn_idx_type               = chr(103);
+        gds__dyn_idx_foreign_key        = chr(104);
+        gds__dyn_idx_ref_column         = chr(105);
+
+(* Trigger specific attributes *)
+
+	gds__dyn_trg_type		= chr(110);
+	gds__dyn_trg_blr		= chr(111);
+	gds__dyn_trg_source		= chr(112);
+	gds__dyn_trg_name		= chr(114);
+	gds__dyn_trg_sequence		= chr(115);
+	gds__dyn_trg_inactive		= chr(116);
+	gds__dyn_trg_msg_number		= chr(117);
+	gds__dyn_trg_msg		= chr(118);
+
+(* Security Class specific attributes *)
+
+	gds__dyn_scl_acl		= chr(121);
+
+(* Grant/Revoke specific attributes *)
+
+        gds__dyn_grant_user             = chr(130);
+        gds__dyn_grant_proc             = chr(186);
+        gds__dyn_grant_trig             = chr(187);
+        gds__dyn_grant_view             = chr(188);
+        gds__dyn_grant_grantor          = chr(131);
+        gds__dyn_grant_options          = chr(132);
+
+(* dimension specific stuff *)
+
+	gds__dyn_dim_lower		= chr(141);
+	gds__dyn_dim_upper		= chr(142);
+
+(* File specific attributes *)
+
+	gds__dyn_file_name		= chr(125);
+	gds__dyn_file_start		= chr(126);
+	gds__dyn_file_length		= chr(127);
+	gds__dyn_shadow_number		= chr(128);
+	gds__dyn_shadow_man_auto	= chr(129);
+	gds__dyn_shadow_conditional	= chr(130);
+
+(* Function specific attributes *)
+
+	gds__dyn_function_name		= chr(145);
+	gds__dyn_function_type		= chr(146);
+	gds__dyn_func_module_name	= chr(147);
+	gds__dyn_func_entry_point	= chr(148);
+	gds__dyn_func_return_argument	= chr(149);
+	gds__dyn_func_arg_position	= chr(150);
+	gds__dyn_func_mechanism		= chr(151);
+	gds__dyn_filter_in_subtype	= chr(152);
+	gds__dyn_filter_out_subtype	= chr(153);
+
+(* Generator specific attributes *)
+
+	gds__dyn_generator_name		= chr(95);
+	gds__dyn_generator_id		= chr(96);
+
+(* International specific attributes *)
+
+	gds__dyn_fld_cription2          = chr(154);
+	gds__dyn_fld_computed_source2   = chr(155);
+	gds__dyn_fld_edit_string2       = chr(156);
+	gds__dyn_fld_query_header2      = chr(157);
+	gds__dyn_fld_validation_source2 = chr(158);
+	gds__dyn_fld_trg_msg2           = chr(159);
+	gds__dyn_fld_trg_source2        = chr(160);
+	gds__dyn_fld_view_source2       = chr(161);
+
+(* Procedure specific attributes *)
+
+	gds__dyn_prc_inputs             = chr(167);
+	gds__dyn_prc_outputs            = chr(168);
+	gds__dyn_prc_source             = chr(169);
+	gds__dyn_prc_blr                = chr(170);
+	gds__dyn_prc_source2            = chr(171);
+
+(* Procedure parameter specific attributes *)
+
+	gds__dyn_prm_number             = chr(138);
+	gds__dyn_prm_type               = chr(139);
+
+(* Exception specific attributes *)
+
+	gds__dyn_def_exception          = chr(181);
+	gds__dyn_mod_exception          = chr(182);
+	gds__dyn_del_exception          = chr(183);
+	gds__dyn_xcp_msg2               = chr(184);
+	gds__dyn_xcp_msg                = chr(185);
+
+(* Array slice description language (SDL) *)
+
+        gds__sdl_version1               = chr(1);
+        gds__sdl_eoc                    = chr(255);
+        gds__sdl_relation               = chr(2);
+        gds__sdl_rid                    = chr(3);
+        gds__sdl_field                  = chr(4);
+        gds__sdl_fid                    = chr(5);
+        gds__sdl_struct                 = chr(6);
+        gds__sdl_variable               = chr(7);
+        gds__sdl_scalar                 = chr(8);
+        gds__sdl_tiny_integer           = chr(9);
+        gds__sdl_short_integer          = chr(10);
+        gds__sdl_long_integer           = chr(11);
+        gds__sdl_literal                = chr(12);
+        gds__sdl_add                    = chr(13);
+        gds__sdl_subtract               = chr(14);
+        gds__sdl_multiply               = chr(15);
+        gds__sdl_divide                 = chr(16);
+        gds__sdl_negate                 = chr(17);
+        gds__sdl_eql                    = chr(18);
+        gds__sdl_neq                    = chr(19);
+        gds__sdl_gtr                    = chr(20);
+        gds__sdl_geq                    = chr(21);
+        gds__sdl_lss                    = chr(22);
+        gds__sdl_leq                    = chr(23);
+        gds__sdl_and                    = chr(24);
+        gds__sdl_or                     = chr(25);
+        gds__sdl_not                    = chr(26);
+        gds__sdl_while                  = chr(27);
+        gds__sdl_assignment             = chr(28);
+        gds__sdl_label                  = chr(29);
+        gds__sdl_leave                  = chr(30);
+        gds__sdl_begin                  = chr(31);
+        gds__sdl_end                    = chr(32);
+        gds__sdl_do3                    = chr(33);
+        gds__sdl_do2                    = chr(34);
+        gds__sdl_do1                    = chr(35);
+        gds__sdl_element                = chr(36);
+
+
+(* Dynamic SQL datatypes *)
+
+CONST
+	SQL_TEXT	= 452;
+	SQL_VARYING	= 448;
+	SQL_SHORT	= 500;
+	SQL_LONG	= 496;
+	SQL_FLOAT	= 482;
+	SQL_DOUBLE	= 480;
+	SQL_D_FLOAT	= 530;
+	SQL_DATE	= 510;
+	SQL_BLOB	= 520;
+
+(* Forms Package definitions *)
+
+(* Map definition block definitions *)
+
+CONST
+	PYXIS__MAP_VERSION1		= chr(1);
+	PYXIS__MAP_FIELD2		= chr(2);
+	PYXIS__MAP_FIELD1		= chr(3);
+	PYXIS__MAP_MESSAGE		= chr(4);
+	PYXIS__MAP_TERMINATOR		= chr(5);
+	PYXIS__MAP_TERMINATING_FIELD	= chr(6);
+	PYXIS__MAP_OPAQUE		= chr(7);
+	PYXIS__MAP_TRANSPARENT		= chr(8);
+	PYXIS__MAP_TAG			= chr(9);
+	PYXIS__MAP_SUB_FORM		= chr(10);
+	PYXIS__MAP_ITEM_INDEX		= chr(11);
+	PYXIS__MAP_SUB_FIELD		= chr(12);
+	PYXIS__MAP_END			= chr(255);
+
+(* Field option flags for display options *)
+
+CONST
+	PYXIS__OPT_DISPLAY	= 1;
+	PYXIS__OPT_UPDATE	= 2;
+	PYXIS__OPT_WAKEUP	= 4;
+	PYXIS__OPT_POSITION	= 8;
+
+(* Field option values following display *)
+
+CONST
+	PYXIS__OPT_NULL		= 1;
+	PYXIS__OPT_DEFAULT	= 2;
+	PYXIS__OPT_INITIAL	= 3;
+	PYXIS__OPT_USER_DATA	= 4;
+
+(* Pseudo key definitions *)
+
+CONST
+	PYXIS__KEY_DELETE		= 127;
+	PYXIS__KEY_UP			= 128;
+	PYXIS__KEY_DOWN			= 129;
+	PYXIS__KEY_RIGHT		= 130;
+	PYXIS__KEY_LEFT			= 131;
+	PYXIS__KEY_PF1			= 132;
+	PYXIS__KEY_PF2			= 133;
+	PYXIS__KEY_PF3			= 134;
+	PYXIS__KEY_PF4			= 135;
+	PYXIS__KEY_PF5			= 136;
+	PYXIS__KEY_PF6			= 137;
+	PYXIS__KEY_PF7			= 138;
+	PYXIS__KEY_PF8			= 139;
+	PYXIS__KEY_PF9			= 140;
+	PYXIS__KEY_ENTER		= 141;
+	PYXIS__KEY_SCROLL_TOP		= 146;
+	PYXIS__KEY_SCROLL_BOTTOM	= 147;
+
+(* Menu definition stuff *)
+
+CONST
+	PYXIS__MENU_VERSION1		= chr(1);
+	PYXIS__MENU_LABEL		= chr(2);
+	PYXIS__MENU_ENTREE		= chr(3);
+	PYXIS__MENU_OPAQUE		= chr(4);
+	PYXIS__MENU_TRANSPARENT		= chr(5);
+	PYXIS__MENU_HORIZONTAL		= chr(6);
+	PYXIS__MENU_VERTICAL		= chr(7);
+	PYXIS__MENU_END			= chr(255);
+
+procedure pyxis__compile_map (
+	var	stat		: gds__status_vector; 
+	 	form_handle	: gds__handle;
+	var 	map_handle	: gds__handle;
+		length		: gds__short;
+		map		: gds__ptr_type
+	); extern;
+
+procedure pyxis__compile_sub_map (
+	var	stat		: gds__status_vector; 
+	 	form_handle	: gds__handle;
+	var 	map_handle	: gds__handle;
+		length		: gds__short;
+		map		: gds__ptr_type
+	); extern;
+
+procedure pyxis__create_window (
+	var	window_handle	: gds__handle;
+		name_length	: gds__short;
+		file_name	: gds__ptr_type;
+	var	width		: gds__short;
+	var	height		: gds__short
+	); extern;
+
+procedure pyxis__delete_window (
+	var	window_handle	: gds__handle
+	); extern;
+
+procedure pyxis__drive_form (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		trans_handle	: gds__handle;
+	var	window_handle	: gds__handle;
+	 	map_handle	: gds__handle;
+		input		: gds__ptr_type;
+		output		: gds__ptr_type
+	); extern;
+
+procedure pyxis__fetch (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		trans_handle	: gds__handle;
+	 	map_handle	: gds__handle;
+		output		: gds__ptr_type
+	); extern;
+
+procedure pyxis__insert (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		trans_handle	: gds__handle;
+	 	map_handle	: gds__handle;
+		input		: gds__ptr_type
+	); extern;
+
+procedure pyxis__load_form (
+	var	stat		: gds__status_vector; 
+		db_handle	: gds__handle;
+		trans_handle	: gds__handle;
+	var	form_handle	: gds__handle;
+		name_length	: gds__short;
+		form_name	: gds__ptr_type
+	); extern;
+
+function pyxis__menu (
+	var	window_handle	: gds__handle;
+	var	menu_handle	: gds__handle;
+		length		: gds__short;
+		menu		: gds__ptr_type
+	) : gds__short; extern;
+
+procedure pyxis__pop_window (
+	 	window_handle	: gds__handle
+	); extern;
+
+procedure pyxis__reset_form (
+	var	stat		: gds__status_vector; 
+		window_handle	: gds__handle
+	); extern;
+
+procedure pyxis__drive_menu (
+	var	window_handle	: gds__handle;
+	var	menu_handle	: gds__handle;
+		blr_length	: gds__short;
+		blr_source	: gds__ptr_type;
+		title_length	: gds__short;
+		title		: gds__ptr_type;
+	var	terminator	: gds__short;
+	var	entree_length	: gds__short;
+		entree_text	: gds__ptr_type;
+	var	entree_value	: integer
+	); extern;
+
+
+procedure pyxis__get_entree (
+		menu_handle	: gds__handle;
+	var	entree_length	: gds__short;
+		entree_text	: gds__ptr_type;
+	var	entree_value	: integer;
+	var	entree_end	: gds__short
+	); extern;
+
+procedure pyxis__initialize_menu (
+	var	menu_handle	: gds__handle
+	); extern;
+
+procedure pyxis__put_entree (
+		menu_handle	: gds__handle;
+		entree_length	: gds__short;
+		entree_text	: gds__ptr_type;
+		entree_value	: integer
+	); extern;
+
+
+[HIDDEN] PROCEDURE LIB$SCOPY_DXDX; EXTERNAL;
diff --git a/src/jrd/gds5entry.mar b/src/jrd/gds5entry.mar
new file mode 100644
index 0000000000..e08ac41d9c
--- /dev/null
+++ b/src/jrd/gds5entry.mar
@@ -0,0 +1,59 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+;
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+;
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+;
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+
+	.title	gds5entry	"GDS Shareable Library Entry Vector"
+
+	.macro	entry	foo
+	.transfer	foo
+	.mask		foo
+	jmp		l^foo+2
+	.endm
+
+entry	jrd5_attach_database
+entry	jrd5_blob_info
+entry	jrd5_cancel_blob
+entry	jrd5_cancel_events
+entry	jrd5_close_blob
+entry	jrd5_commit_retaining
+entry	jrd5_commit_transaction
+entry	jrd5_compile_request
+entry	jrd5_create_blob2
+entry	jrd5_create_database
+entry	jrd5_database_info
+entry	jrd5_detach_database
+entry	jrd5_get_segment
+entry	jrd5_get_slice
+entry	jrd5_open_blob2
+entry	jrd5_prepare_transaction
+entry	jrd5_put_segment
+entry	jrd5_put_slice
+entry	jrd5_que_events
+entry	jrd5_receive
+entry	jrd5_reconnect_transaction
+entry	jrd5_release_request
+entry	jrd5_request_info
+entry	jrd5_rollback_transaction
+entry	jrd5_seek_blob
+entry	jrd5_send
+entry	jrd5_start_and_send
+entry	jrd5_start_multiple
+entry	jrd5_start_request
+entry	jrd5_start_transaction
+entry	jrd5_transaction_info
+entry	jrd5_unwind_request
+entry	DYN_ddl
+	.end
diff --git a/src/jrd/gds_aix.f b/src/jrd/gds_aix.f
new file mode 100644
index 0000000000..43a8e0cbcb
--- /dev/null
+++ b/src/jrd/gds_aix.f
@@ -0,0 +1,1460 @@
+C  The contents of this file are subject to the Interbase Public
+C  License Version 1.0 (the "License"); you may not use this file
+C  except in compliance with the License. You may obtain a copy
+C  of the License at http://www.Inprise.com/IPL.html
+C
+C  Software distributed under the License is distributed on an
+C  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+C  or implied. See the License for the specific language governing
+C  rights and limitations under the License.
+C
+C  The Original Code was created by Inprise Corporation
+C  and its predecessors. Portions created by Inprise Corporation are
+C  Copyright (C) Inprise Corporation.
+C
+C  All Rights Reserved.
+C  Contributor(s): ______________________________________.
+C
+C         PROGRAM:        Preprocessor
+C         MODULE:         gds.ftn
+C         DESCRIPTION:    GDS constants, procedures, etc.
+C 
+
+C     PROCEDURE GDS__ATTACH_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  FILE_NAME,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       DPB_LENGTH,     { INPUT }
+C        CHARACTER* (*)  DPB             { INPUT }
+C        )
+
+C     PROCEDURE ISC_BADDRESS (
+C        INTEGER*4       HANDLE          { INPUT }
+C        INTEGER*4       ADDRESS         { OUTPUT }
+C        )
+
+C     PROCEDURE GDS__CANCEL_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     { INPUT }
+C        )
+
+C     PROCEDURE GDS__CANCEL_EVENTS (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       ID              { INPUT }
+C        )
+
+C     PROCEDURE GDS__CLOSE_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     { INPUT }
+C        )
+
+C     PROCEDURE GDS__COMMIT_RETAINING (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE      { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE      { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__COMPILE_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR             { INPUT }
+C        )
+
+C     PROCEDURE GDS__COMPILE_REQUEST2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR             { INPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2)      { OUTPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_BLOB2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2),      { OUTPUT }
+C        CHARACTER* (*)  BPB             { INPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  FILE_NAME,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       DPB_LENGTH,     { INPUT }
+C        CHARACTER* (*)  DPB             { INPUT }
+C        )
+
+C     PROCEDURE GDS__DETACH_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE       { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__EVENT_WAIT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  EVENTS,         { INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          { INPUT/OUTPUT }
+C        )
+
+      INTEGER*4 GDS__GET_SEGMENT 
+C     INTEGER*4 FUNCTION GDS__GET_SEGMENT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       LENGTH,         { OUTPUT }
+C        INTEGER*2       BUFFER_LENGTH,  { INPUT }
+C        CHARACTER* (*)  BUFFER          { INPUT }
+C        )
+
+C     INTEGER*4 FUNCTION GDS__GET_SLICE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       SDL_LENGTH,     { INPUT }
+C        CHARACTER* (*)  SDL,            { INPUT }
+C        INTEGER*2       PARAM_LENGTH,   { INPUT }
+C        CHARACTER* (*)  PARAM,          { INPUT }
+C        INTEGER*4       SLICE_LENGTH,   { INPUT }
+C        CHARACTER* (*)  SLICE,          { INPUT }
+C        INTEGER*4       RETURN_LENGTH   { INPUT }
+C        )
+
+C     PROCEDURE GDS__OPEN_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2)     { INPUT }
+C        )
+
+C     PROCEDURE GDS__OPEN_BLOB2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2),    { INPUT }
+C        CHARACTER* (*)  BPB             { INPUT }
+C        )
+
+C      PROCEDURE GDS__COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT / OUTPUT }
+C        )
+
+      INTEGER*4 GDS__PUT_SEGMENT 
+C     INTEGER*4 FUNCTION GDS__PUT_SEGMENT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  BUFFER,         { INPUT }
+C        )
+
+C     INTEGER*4 FUNCTION GDS__PUT_SLICE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       SDL_LENGTH,     { INPUT }
+C        CHARACTER* (*)  SDL,            { INPUT }
+C        INTEGER*2       PARAM_LENGTH,   { INPUT }
+C        CHARACTER* (*)  PARAM,          { INPUT }
+C        INTEGER*4       SLICE_LENGTH,   { INPUT }
+C        CHARACTER* (*)  SLICE           { INPUT }
+C        )
+
+C     PROCEDURE GDS__QUE_EVENTS (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       ID,             { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  EVENTS,         { INPUT/OUTPUT }
+C        INTEGER*4       AST,            { INPUT }
+C        INTEGER*4       ARG             { INPUT }
+C        )
+
+C     PROCEDURE GDS__RECEIVE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE GDS__RELEASE_REQUEST (
+C        INTEGER*4       STAT(20),        { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE   { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__ROLLBACK_TRANSACTION (
+C        INTEGER*4       STAT(20),         { OUTPUT }
+C        INTEGER*4       TRA_HANDLE        { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__SEND (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE GDS__SET_DEBUG (
+C        INTEGER*4       DEBUG_VAL       { INPUT }
+C        )
+
+C     PROCEDURE GDS__START_AND_SEND (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE GDS__START_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT  }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+   
+C     PROCEDURE GDS__START_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT / OUTPUT }
+C        INTEGER*2       TRA_COUNT,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       TPB_LENGTH      { INPUT }
+C        CHARACTER* (*)  TPB             { INPUT }
+C        )
+
+C     PROCEDURE GDS__UNWIND_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE gds__ftof (
+C        CHARACTER* (*)  STRING1,        { INPUT }
+C        INTEGER*2       LENGTH1,        { INPUT }
+C        CHARACTER* (*)  STRING2,        { INPUT }
+C        INTEGER*2       LENGTH2         { INPUT }
+C        )
+
+C     PROCEDURE gds__print_status (
+C        INTEGER*4       STAT(20)        { INPUT }
+C        )
+ 
+C     INTEGER FUNCTION gds__sqlcode (
+C        INTEGER*4       STAT(20)        { INPUT }
+C        )
+ 
+C     procedure gds__close (
+C        out     stat            : gds__status_vector; 
+C        in      cursor_name     : UNIV gds__string
+C        ); extern;
+
+C     procedure gds__declare (
+C        out       stat               : gds__status_vector; 
+C        in        statement_name     : UNIV gds__string;
+C        in        cursor_name        : UNIV gds__string
+C        ); extern;
+
+C     procedure gds__describe (
+C        out       stat               : gds__status_vector; 
+C        in        statement_name     : UNIV gds__string;
+C        in out    descriptor         : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__execute (
+C        out       stat                : gds__status_vector; 
+C        in        trans_handle        : gds__handle;
+C        in        statement_name      : UNIV gds__string;
+C        in out    descriptor          : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__execute_immediate (
+C        out       stat               : gds__status_vector; 
+C        in        db_handle          : gds__handle;
+C        in        trans_handle       : gds__handle;
+C        in        string_length      : integer;
+C        in        string             : UNIV gds__string
+C        ); extern;
+
+      INTEGER*4 GDS__FETCH
+C     function gds__fetch (
+C        out       stat              : gds__status_vector; 
+C        in        cursor_name       : UNIV gds__string;
+C        in out        descriptor    : UNIV sqlda
+C        ) : integer32; extern;
+
+C     procedure gds__open (
+C        out       stat              : gds__status_vector; 
+C        in        trans_handle      : gds__handle;
+C        in        cursor_name       : UNIV gds__string;
+C        in out    descriptor        : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__prepare (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        statement_name   : UNIV gds__string;
+C        in        string_length    : integer;
+C        in        string           : UNIV gds__string;
+C        in out    descriptor       : UNIV sqlda
+C        ); extern;
+
+C     procedure pyxis__compile_map (
+C        out       stat                : gds__status_vector; 
+C        in        form_handle         : gds__handle;
+C        out       map_handle          : gds__handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__compile_sub_map (
+C        out       stat                : gds__status_vector; 
+C        in        form_handle         : gds__handle;
+C        out       map_handle          : gds__handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__create_window (
+C        in out    window_handle      : gds__handle;
+C        in        name_length        : integer16;
+C        in        file_name          : UNIV gds__string; 
+C        in out    width              : integer16;
+C        in out    height             : integer16
+C        ); extern;
+
+C     procedure pyxis__delete_window (
+C        in out        window_handle        : gds__handle
+C        ); extern;
+
+C     procedure pyxis__drive_form (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in out    window_handle    : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        input            : UNIV gds__string;
+C        in        output           : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__fetch (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        output           : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__insert (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        input            : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__load_form (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in out    form_handle      : gds__handle;
+C        in        name_length      : integer16;
+C        in        form_name        : UNIV gds__string 
+C        ); extern;
+
+      INTEGER*2 PYXIS__MENU
+C     function pyxis__menu (
+C        in out    window_handle    : gds__handle;
+C        in out    menu_handle      : gds__handle;
+C        in        length           : integer16;
+C        in        menu             : UNIV gds__string
+C        ) : integer16; extern;
+
+C     procedure pyxis__pop_window (
+C        in        window_handle    : gds__handle
+C        ); extern;
+
+C     procedure pyxis__reset_form (
+C        out       stat            : gds__status_vector; 
+C        in        window_handle   : gds__handle
+C        ); extern;
+
+C     procedure pyxis__drive_menu (
+C        in out    window_handle     : gds__handle;
+C        in out    menu_handle       : gds__handle;
+C        in        blr_length        : integer16;
+C        in        blr_source        : UNIV gds__string;
+C        in        title_length      : integer16;
+C        in        title             : UNIV gds__string;
+C        out       terminator        : integer16;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV gds__string;
+C        out       entree_value      : integer32
+C        ); extern;
+
+C     procedure pyxis__get_entree (
+C        in        menu_handle       : gds__handle;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV gds__string;
+C        out       entree_value      : integer32;
+C        out       entree_end        : integer16
+C        ); extern;
+
+C     procedure pyxis__initialize_menu (
+C        in out        menu_handle   : gds__handle
+C        ); extern;
+
+C     procedure pyxis__put_entree (
+C        in        menu_handle        : gds__handle;
+C        in        entree_length      : integer16;
+C        in        entree_text        : UNIV gds__string;
+C        in        entree_value       : integer32
+C        ); extern;
+
+C     PROCEDURE isc_exec_procedure (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  PROC_NAME,      { INPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR,             { INPUT }
+C        INTEGER*2       IN_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  IN_MESSAGE,        { INPUT }
+C        INTEGER*2       OUT_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  OUT_MESSAGE        { INPUT / OUTPUT }
+C        )
+
+       INTEGER*2 GDS__TRUE, GDS__FALSE
+       PARAMETER (
+     +    GDS__TRUE = 1,
+     +    GDS__FALSE = 0)
+
+       INTEGER*2  BLR_BLOB
+       PARAMETER  (BLR_BLOB = 261)
+
+       INTEGER*1 
+     +    BLR_TEXT, BLR_SHORT, BLR_LONG, BLR_QUAD, BLR_FLOAT,
+     +    BLR_DOUBLE, BLR_D_FLOAT, BLR_DATE, BLR_VARYING, BLR_CSTRING,
+     +    BLR_VERSION4, BLR_EOC, BLR_END
+
+       PARAMETER (
+     +    BLR_TEXT = 14,
+     +    BLR_SHORT = 7,
+     +    BLR_LONG = 8,
+     +    BLR_QUAD = 9,
+     +    BLR_FLOAT = 10,
+     +    BLR_DOUBLE = 27,
+     +    BLR_D_FLOAT = 11,
+     +    BLR_DATE = 35,
+     +    BLR_VARYING = 37,
+     +    BLR_CSTRING = 40,
+     +    BLR_VERSION4 = 4,
+     +    BLR_EOC = 76,
+     +    BLR_END = 255)
+
+      INTEGER*1
+     +    BLR_ASSIGNMENT, BLR_BEGIN, BLR_MESSAGE, BLR_ERASE, BLR_FETCH,
+     +    BLR_FOR, BLR_IF, BLR_LOOP, BLR_MODIFY, BLR_HANDLER, 
+     +    BLR_RECEIVE, BLR_SELECT, BLR_SEND, BLR_STORE, BLR_LABEL,
+     +    BLR_LEAVE
+
+
+      PARAMETER (
+     +    BLR_ASSIGNMENT = 1,
+     +    BLR_BEGIN = 2,
+     +    BLR_MESSAGE = 4,
+     +    BLR_ERASE = 5,
+     +    BLR_FETCH = 6,
+     +    BLR_FOR = 7,
+     +    BLR_IF = 8,
+     +    BLR_LOOP = 9,
+     +    BLR_MODIFY = 10,
+     +    BLR_HANDLER = 11,
+     +    BLR_RECEIVE = 12,
+     +    BLR_SELECT = 13,
+     +    BLR_SEND = 14,
+     +    BLR_STORE = 15,
+     +    BLR_LABEL = 17,
+     +    BLR_LEAVE = 18)
+
+      INTEGER*1
+     +    BLR_LITERAL, BLR_DBKEY, BLR_FIELD, BLR_FID, BLR_PARAMETER,
+     +    BLR_VARIABLE, BLR_AVERAGE, BLR_COUNT, BLR_MAXIMUM, 
+     +    BLR_MINIMUM, BLR_TOTAL
+
+      PARAMETER (
+     +    BLR_LITERAL = 21,
+     +    BLR_DBKEY = 22,
+     +    BLR_FIELD = 23,
+     +    BLR_FID = 24,
+     +    BLR_PARAMETER = 25,
+     +    BLR_VARIABLE = 26,
+     +    BLR_AVERAGE = 27,
+     +    BLR_COUNT = 28,
+     +    BLR_MAXIMUM = 29,
+     +    BLR_MINIMUM = 30,
+     +    BLR_TOTAL = 31)
+
+      INTEGER*1
+     +    BLR_ADD, BLR_SUBTRACT, BLR_MULTIPLY, BLR_DIVIDE,
+     +    BLR_NEGATE, BLR_CONCATENATE, BLR_SUBSTRING, 
+     +    BLR_PARAMETER2, BLR_FROM, BLR_VIA, BLR_NULL
+     
+
+      PARAMETER (
+     +    BLR_ADD = 34,
+     +    BLR_SUBTRACT = 35,
+     +    BLR_MULTIPLY = 36,
+     +    BLR_DIVIDE = 37,
+     +    BLR_NEGATE = 38,
+     +    BLR_CONCATENATE = 39,
+     +    BLR_SUBSTRING = 40,
+     +    BLR_PARAMETER2 = 41,
+     +    BLR_FROM = 42,
+     +    BLR_VIA = 43,
+     +    BLR_NULL = 45)
+
+      INTEGER*1
+     +    BLR_EQL, BLR_NEQ, BLR_GTR, BLR_GEQ, BLR_LSS, BLR_LEQ, 
+     +    BLR_CONTAINING, BLR_MATCHING, BLR_STARTING, BLR_BETWEEN, 
+     +    BLR_OR, BLR_AND, BLR_NOT, BLR_ANY, BLR_MISSING, BLR_LIKE,
+     +    BLR_UNIQUE
+
+       PARAMETER (
+     +    BLR_EQL = 47,
+     +    BLR_NEQ = 48,
+     +    BLR_GTR = 49,
+     +    BLR_GEQ = 50,
+     +    BLR_LSS = 51,
+     +    BLR_LEQ = 52,
+     +    BLR_CONTAINING = 53,
+     +    BLR_MATCHING = 54,
+     +    BLR_STARTING = 55,
+     +    BLR_BETWEEN = 56,
+     +    BLR_OR = 57,
+     +    BLR_AND = 58,
+     +    BLR_NOT = 59,
+     +    BLR_ANY = 60,
+     +    BLR_MISSING = 61,
+     +    BLR_UNIQUE = 62,
+     +    BLR_LIKE = 63)
+
+      INTEGER*1
+     +    BLR_RSE, BLR_FIRST, BLR_PROJECT, BLR_SORT, BLR_BOOLEAN, 
+     +    BLR_ASCENDING, BLR_DESCENDING, BLR_RELATION, BLR_RID,
+     +    BLR_UNION, BLR_MAP, BLR_GROUP_BY, BLR_AGGREGATE,
+     +    BLR_JOIN_TYPE
+
+
+      PARAMETER (
+     +    BLR_RSE = 67,
+     +    BLR_FIRST = 68,
+     +    BLR_PROJECT = 69,
+     +    BLR_SORT = 70,
+     +    BLR_BOOLEAN = 71,
+     +    BLR_ASCENDING = 72,
+     +    BLR_DESCENDING = 73,
+     +    BLR_RELATION = 74,
+     +    BLR_RID = 75,
+     +    BLR_UNION = 76,
+     +    BLR_MAP = 77,
+     +    BLR_GROUP_BY = 78,     
+     +    BLR_AGGREGATE = 79,
+     +    BLR_JOIN_TYPE = 80)
+
+      INTEGER*1
+     +    BLR_INNER, BLR_LEFT, BLR_RIGHT, BLR_FULL
+
+      PARAMETER (
+     +    BLR_INNER = 0,
+     +    BLR_LEFT = 1,
+     +    BLR_RIGHT = 2,
+     +    BLR_FULL = 3)
+
+      INTEGER*1
+     +    BLR_AGG_COUNT, BLR_AGG_MAX, BLR_AGG_MIN, BLR_AGG_TOTAL,
+     +    BLR_AGG_AVERAGE, BLR_RUN_COUNT, BLR_RUN_MAX, BLR_RUN_MIN,
+     +    BLR_RUN_TOTAL, BLR_RUN_AVERAGE
+
+      PARAMETER (
+     +    BLR_AGG_COUNT = 83,     
+     +    BLR_AGG_MAX = 84,
+     +    BLR_AGG_MIN = 85,
+     +    BLR_AGG_TOTAL = 86,
+     +    BLR_AGG_AVERAGE = 87,
+     +    BLR_RUN_COUNT = 118,
+     +    BLR_RUN_MAX = 89,
+     +    BLR_RUN_MIN = 90,
+     +    BLR_RUN_TOTAL = 91,
+     +    BLR_RUN_AVERAGE = 92) 
+
+      INTEGER*1
+     +    BLR_FUNCTION, BLR_GEN_ID, BLR_PROT_MASK, BLR_UPCASE,
+     +    BLR_LOCK_STATE, BLR_VALUE_IF, BLR_MATCHING2, BLR_INDEX
+
+      PARAMETER (
+     +    BLR_FUNCTION = 100,
+     +    BLR_GEN_ID = 101,
+     +    BLR_PROT_MASK = 102,
+     +    BLR_UPCASE = 103,
+     +    BLR_LOCK_STATE = 104,
+     +    BLR_VALUE_IF = 105,
+     +    BLR_MATCHING2 = 106,
+     +    BLR_INDEX = 107)
+
+      INTEGER*1
+     +    BLR_ANSI_LIKE, BLR_BOOKMARK, BLR_CRACK,
+     +    BLR_FORCE_CRACK, BLR_SEEK, BLR_FIND,
+     +    BLR_LOCK_RELATION, BLR_LOCK_RECORD,
+     +    BLR_SET_BOOKMARK, BLR_GET_BOOKMARK
+
+      PARAMETER (
+     +    BLR_ANSI_LIKE = 108,
+     +    BLR_BOOKMARK = 109,
+     +    BLR_CRACK = 110,
+     +    BLR_FORCE_CRACK = 111,
+     +    BLR_SEEK = 112,
+     +    BLR_FIND = 113,
+     +    BLR_LOCK_RELATION = 114,
+     +    BLR_LOCK_RECORD = 115,
+     +    BLR_SET_BOOKMARK = 116,
+     +    BLR_GET_BOOKMARK = 117)
+
+      INTEGER*1
+     +    BLR_RS_STREAM, BLR_EXEC_PROC, BLR_BEGIN_RANGE,
+     +    BLR_END_RANGE, BLR_DELETE_RANGE, BLR_PROCEDURE,
+     +    BLR_PID, BLR_EXEC_PID, BLR_SINGULAR, BLR_ABORT,
+     +    BLR_BLOCK, BLR_ERROR_HANDLER, BLR_PARAMETER3,
+     +    BLR_CAST
+
+      PARAMETER (
+     +    BLR_PARAMETER3 = 88,
+     +    BLR_RS_STREAM = 119,
+     +    BLR_EXEC_PROC = 120,
+     +    BLR_BEGIN_RANGE = 121,
+     +    BLR_END_RANGE = 122,
+     +    BLR_DELETE_RANGE = 123,
+     +    BLR_PROCEDURE = 124,
+     +    BLR_PID = 125,
+     +    BLR_EXEC_PID = 126,
+     +    BLR_SINGULAR = 127,
+     +    BLR_ABORT = 128,
+     +    BLR_BLOCK = 129,
+     +    BLR_ERROR_HANDLER = 130,
+     +    BLR_CAST = 131)
+
+      INTEGER*1
+     +    BLR_GDS_CODE, BLR_SQL_CODE, BLR_EXCEPTION,
+     +    BLR_TRIGGER_CODE, BLR_DEFAULT_CODE
+
+      PARAMETER (
+     +    BLR_GDS_CODE = 0,
+     +    BLR_SQL_CODE = 1,
+     +    BLR_EXCEPTION = 2,
+     +    BLR_TRIGGER_CODE = 3,
+     +    BLR_DEFAULT_CODE = 4)
+
+C     database parameter block stuff 
+
+      INTEGER*1
+     +     GDS__DPB_CDD_PATHNAME, GDS__DPB_ALLOCATION,
+     +     GDS__DPB_JOURNAL, GDS__DPB_PAGE_SIZE,
+     +     GDS__DPB_BUFFERS,  GDS__DPB_BUFFER_LENGTH,
+     +     GDS__DPB_DEBUG, GDS__DPB_GARBAGE_COLLECT,
+     +     GDS__DPB_VERIFY,  GDS__DPB_SWEEP,
+     +     GDS__DPB_ENABLE_JOURNAL, GDS__DPB_DISABLE_JOURNAL,
+     +     GDS__DPB_DBKEY_SCOPE, GDS__DPB_NUMBER_OF_USERS,
+     +     GDS__DPB_TRACE, GDS__DPB_NO_GARBAGE_COLLECT,
+     +     GDS__DPB_DAMAGED, GDS__DPB_LICENSE, GDS__DPB_USER_NAME,
+     +     GDS__DPB_ENCRYPT_KEY, GDS__DPB_ACTIVATE_SHADOW,
+     +     GDS__DPB_SWEEP_INTERVAL, GDS__DPB_DELETE_SHADOW
+
+
+      PARAMETER (
+     +     GDS__DPB_CDD_PATHNAME          = 1,    
+C                                                        { NOT IMPLEMENTED }
+     +     GDS__DPB_ALLOCATION            = 2,   
+C                                                         { NOT IMPLEMENTED }
+     +     GDS__DPB_JOURNAL               = 3,    
+C                                                        { NOT IMPLEMENTED }
+     +     GDS__DPB_PAGE_SIZE             = 4,
+     +     GDS__DPB_BUFFERS               = 5,
+     +     GDS__DPB_BUFFER_LENGTH         = 6,    
+C                                                        { NOT IMPLEMENTED }
+     +     GDS__DPB_DEBUG                 = 7,    
+C                                                        { NOT IMPLEMENTED }
+     +     GDS__DPB_GARBAGE_COLLECT       = 8,    
+C                                                        { NOT IMPLEMENTED }
+     +     GDS__DPB_VERIFY                = 9,
+     +     GDS__DPB_SWEEP                 = 10,
+     +     GDS__DPB_ENABLE_JOURNAL        = 11,
+     +     GDS__DPB_DISABLE_JOURNAL       = 12,
+     +     GDS__DPB_DBKEY_SCOPE           = 13,    
+C                                                        { NOT IMPLEMENTED }
+     +     GDS__DPB_NUMBER_OF_USERS       = 14,    
+C                                                        { NOT IMPLEMENTED }
+     +     GDS__DPB_TRACE                 = 15,    
+C                                                        { NOT IMPLEMENTED }
+     +     GDS__DPB_NO_GARBAGE_COLLECT    = 16,    
+C                                                        { NOT IMPLEMENTED }
+     +     GDS__DPB_DAMAGED               = 17,    
+C                                                        { NOT IMPLEMENTED }
+     +     GDS__DPB_LICENSE               = 18,
+     +     GDS__DPB_USER_NAME             = 19)
+
+      PARAMETER (
+     +     GDS__DPB_ENCRYPT_KEY           = 20,
+     +     GDS__DPB_ACTIVATE_SHADOW       = 21,
+     +     GDS__DPB_SWEEP_INTERVAL        = 22,
+     +     GDS__DPB_DELETE_SHADOW         = 23)
+
+      INTEGER*1
+     +     GDS__DPB_PAGES, GDS__DPB_RECORDS, 
+     +     GDS__DPB_INDICES, GDS__DPB_TRANSACTIONS, 
+     +     GDS__DPB_NO_UPDATE, GDS__DPB_REPAIR
+
+      PARAMETER (
+     +     GDS__DPB_PAGES = 1,
+     +     GDS__DPB_RECORDS = 2,
+     +     GDS__DPB_INDICES = 4,
+     +     GDS__DPB_TRANSACTIONS = 8,
+     +     GDS__DPB_NO_UPDATE = 16,
+     +     GDS__DPB_REPAIR = 32)
+
+
+
+C     Transaction parameter block stuff 
+
+      INTEGER*1
+     + GDS__TPB_VERSION3, GDS__TPB_CONSISTENCY, GDS__TPB_CONCURRENCY,
+     + GDS__TPB_SHARED, GDS__TPB_PROTECTED, GDS__TPB_EXCLUSIVE,
+     + GDS__TPB_WAIT, GDS__TPB_NOWAIT, GDS__TPB_READ, GDS__TPB_WRITE,
+     + GDS__TPB_LOCK_READ, GDS__TPB_LOCK_WRITE, GDS__TPB_VERB_TIME,
+     + GDS__TPB_COMMIT_TIME                            
+
+
+      PARAMETER (
+     + GDS__TPB_VERSION3     = 3,
+     + GDS__TPB_CONSISTENCY  = 1,
+     + GDS__TPB_CONCURRENCY  = 2,
+     + GDS__TPB_SHARED       = 3,
+     + GDS__TPB_PROTECTED    = 4,
+     + GDS__TPB_EXCLUSIVE    = 5,
+     + GDS__TPB_WAIT         = 6,
+     + GDS__TPB_NOWAIT       = 7,
+     + GDS__TPB_READ         = 8,
+     + GDS__TPB_WRITE        = 9,
+     + GDS__TPB_LOCK_READ    = 10,
+     + GDS__TPB_LOCK_WRITE   = 11,
+     + GDS__TPB_VERB_TIME    = 12,
+     + GDS__TPB_COMMIT_TIME  = 13)
+
+C Blob Parameter Block
+
+      INTEGER*1
+     +  gds__bpb_version1, gds__bpb_source_type, gds__bpb_target_type,
+     +  gds__bpb_type, gds__bpb_type_segmented, gds__bpb_type_stream
+
+      PARAMETER (
+     +  gds__bpb_version1           = 1,
+     +  gds__bpb_source_type        = 1,
+     +  gds__bpb_target_type        = 2,
+     +  gds__bpb_type               = 3,
+
+     +  gds__bpb_type_segmented     = 0,
+     +  gds__bpb_type_stream        = 1)
+
+C     Information parameters
+
+C Common, structural codes 
+
+      INTEGER*1  GDS__INFO_END, GDS__INFO_TRUNCATED,
+     +    GDS__INFO_ERROR
+
+      PARAMETER (
+     +    GDS__INFO_END                  = 1,
+     +    GDS__INFO_TRUNCATED            = 2,
+     +    GDS__INFO_ERROR                = 3)
+
+C DATABASE INFORMATION ITEMS 
+
+      INTEGER*1 GDS__INFO_ID, GDS__INFO_READS, GDS__INFO_WRITES,
+     +    GDS__INFO_FETCHES, GDS__INFO_MARKS, GDS__INFO_IMPLEMENTATION,
+     +    GDS__INFO_VERSION, GDS__INFO_BASE_LEVEL, GDS__INFO_PAGE_SIZE,
+     +    GDS__INFO_NUM_BUFFERS, GDS__INFO_LIMBO,
+     +    GDS__INFO_CURRENT_MEMORY, GDS__INFO_MAX_MEMORY,
+     +    GDS__INFO_WINDOW_TURNS, GDS__INFO_DB_ID
+
+      PARAMETER (
+     +    GDS__INFO_DB_ID                = 4,
+     +    GDS__INFO_READS                = 5,
+     +    GDS__INFO_WRITES               = 6,
+     +    GDS__INFO_FETCHES              = 7,
+     +    GDS__INFO_MARKS                = 8,
+     +    GDS__INFO_IMPLEMENTATION       = 11,
+     +    GDS__INFO_VERSION              = 12,
+     +    GDS__INFO_BASE_LEVEL           = 13,
+     +    GDS__INFO_PAGE_SIZE            = 14,
+     +    GDS__INFO_NUM_BUFFERS          = 15,
+     +    GDS__INFO_LIMBO                = 16,
+     +    GDS__INFO_CURRENT_MEMORY       = 17,
+     +    GDS__INFO_MAX_MEMORY           = 18,
+     +    GDS__INFO_WINDOW_TURNS         = 19)
+
+      INTEGER*1 GDS__INFO_LICENSE, GDS__INFO_ALLOCATION,
+     +    GDS__INFO_ATTACHMENT_ID, GDS__INFO_READ_SEQ_COUNT,
+     +    GDS__INFO_READ_IDX_COUNT, GDS__INFO_INSERT_COUNT,
+     +    GDS__INFO_UPDATE_COUNT,
+     +    GDS__INFO_DELETE_COUNT, GDS__INFO_BACKOUT_COUNT,
+     +    GDS__INFO_PURGE_COUNT, GDS__INFO_EXPUNGE_COUNT,
+     +    GDS__INFO_SWEEP_INTERVAL, GDS__INFO_ODS_VERSION,
+     +    GDS__INFO_ODS_MINOR_VERSION
+
+      PARAMETER (
+     +    GDS__INFO_LICENSE              = 20,
+     +    GDS__INFO_ALLOCATION           = 21,
+     +    GDS__INFO_ATTACHMENT_ID        = 22,
+     +    GDS__INFO_READ_SEQ_COUNT       = 23,
+     +    GDS__INFO_READ_IDX_COUNT       = 24, 
+     +    GDS__INFO_INSERT_COUNT          = 25,
+     +    GDS__INFO_UPDATE_COUNT         = 26,
+     +    GDS__INFO_DELETE_COUNT         = 27, 
+     +    GDS__INFO_BACKOUT_COUNT        = 28,
+     +    GDS__INFO_PURGE_COUNT          = 29, 
+     +    GDS__INFO_EXPUNGE_COUNT        = 30,
+     +    GDS__INFO_SWEEP_INTERVAL       = 31, 
+     +    GDS__INFO_ODS_VERSION          = 32,
+     +    GDS__INFO_ODS_MINOR_VERSION    = 33)
+
+
+C REQUEST INFORMATION ITEMS 
+
+      INTEGER*1 GDS__INFO_NUMBER_MESSAGES, GDS__INFO_MAX_MESSAGE,
+     +    GDS__INFO_MAX_SEND, GDS__INFO_MAX_RECEIVE, GDS__INFO_STATE,
+     +    GDS__INFO_MESSAGE_NUMBER, GDS__INFO_MESSAGE_SIZE,
+     +    GDS__INFO_REQUEST_COST, GDS__INFO_REQ_ACTIVE,
+     +    GDS__INFO_REQ_INACTIVE, GDS__INFO_REQ_SEND,
+     +    GDS__INFO_REQ_RECEIVE, GDS__INFO_REQ_SELECT
+
+      PARAMETER (
+     +    GDS__INFO_NUMBER_MESSAGES     = 4,
+     +    GDS__INFO_MAX_MESSAGE         = 5,
+     +    GDS__INFO_MAX_SEND            = 6,
+     +    GDS__INFO_MAX_RECEIVE         = 7,
+     +    GDS__INFO_STATE               = 8,
+     +    GDS__INFO_MESSAGE_NUMBER      = 9,
+     +    GDS__INFO_MESSAGE_SIZE        = 10,
+     +    GDS__INFO_REQUEST_COST        = 11,
+     +    GDS__INFO_REQ_ACTIVE          = 2,
+     +    GDS__INFO_REQ_INACTIVE        = 3,
+     +    GDS__INFO_REQ_SEND            = 4,
+     +    GDS__INFO_REQ_RECEIVE         = 5,
+     +    GDS__INFO_REQ_SELECT          = 6)
+
+C BLOB INFORMATION ITEMS 
+
+      INTEGER*1 GDS__INFO_BLOB_NUM_SEGMENTS,
+     +    GDS__INFO_BLOB_MAX_SEGMENT,
+     +    GDS__INFO_BLOB_TOTAL_LENGTH,
+     +    GDS__INFO_BLOB_TYPE
+
+      PARAMETER (
+     +    GDS__INFO_BLOB_NUM_SEGMENTS   = 4,
+     +    GDS__INFO_BLOB_MAX_SEGMENT    = 5,
+     +    GDS__INFO_BLOB_TOTAL_LENGTH   = 6,
+     +    GDS__INFO_BLOB_TYPE           = 7)
+
+C TRANSACTION INFORMATION ITEMS 
+
+      INTEGER*1 GDS__INFO_TRA_ID
+      PARAMETER (
+     +    GDS__INFO_TRA_ID               = 4)
+
+C Dynamic SQL datatypes
+
+      INTEGER*2
+     + SQL_TEXT,
+     + SQL_VARYING,
+     + SQL_SHORT,
+     + SQL_LONG,
+     + SQL_FLOAT,
+     + SQL_DOUBLE,
+     + SQL_D_FLOAT,
+     + SQL_DATE,
+     + SQL_BLOB
+
+      PARAMETER (
+     + SQL_TEXT = 452,
+     + SQL_VARYING = 448,
+     + SQL_SHORT = 500,
+     + SQL_LONG = 496,
+     + SQL_FLOAT = 482,
+     + SQL_DOUBLE = 480,
+     + SQL_D_FLOAT = 530,
+     + SQL_DATE = 510,
+     + SQL_BLOB = 520)
+
+C  Forms Package definitions 
+
+C  Map definition block definitions 
+
+      INTEGER*2
+     + PYXIS__MAP_VERSION1,
+     + PYXIS__MAP_FIELD2,
+     + PYXIS__MAP_FIELD1,
+     + PYXIS__MAP_MESSAGE,
+     + PYXIS__MAP_TERMINATOR,
+     + PYXIS__MAP_TERMINATING_FIELD,
+     + PYXIS__MAP_OPAQUE,
+     + PYXIS__MAP_TRANSPARENT,
+     + PYXIS__MAP_TAG,
+     + PYXIS__MAP_SUB_FORM,
+     + PYXIS__MAP_ITEM_INDEX,
+     + PYXIS__MAP_SUB_FIELD,
+     + PYXIS__MAP_END
+
+      PARAMETER (
+     + PYXIS__MAP_VERSION1                    = 1,
+     + PYXIS__MAP_FIELD2                      = 2,
+     + PYXIS__MAP_FIELD1                      = 3,
+     + PYXIS__MAP_MESSAGE                     = 4,
+     + PYXIS__MAP_TERMINATOR                  = 5,
+     + PYXIS__MAP_TERMINATING_FIELD           = 6,
+     + PYXIS__MAP_OPAQUE                      = 7,
+     + PYXIS__MAP_TRANSPARENT                 = 8,
+     + PYXIS__MAP_TAG                         = 9,
+     + PYXIS__MAP_SUB_FORM                    = 10,
+     + PYXIS__MAP_ITEM_INDEX                  = 11,
+     + PYXIS__MAP_SUB_FIELD                   = 12,
+     + PYXIS__MAP_END                         = -1)
+
+C  Field option flags for display options 
+
+      INTEGER*2
+     + PYXIS__OPT_DISPLAY,
+     + PYXIS__OPT_UPDATE,
+     + PYXIS__OPT_WAKEUP,
+     + PYXIS__OPT_POSITION
+
+      PARAMETER (
+     + PYXIS__OPT_DISPLAY                     = 1,
+     + PYXIS__OPT_UPDATE                      = 2,
+     + PYXIS__OPT_WAKEUP                      = 4,
+     + PYXIS__OPT_POSITION                    = 8)
+
+C  Field option values following display 
+
+      INTEGER*2
+     + PYXIS__OPT_NULL,
+     + PYXIS__OPT_DEFAULT,
+     + PYXIS__OPT_INITIAL,
+     + PYXIS__OPT_USER_DATA
+
+      PARAMETER (
+     + PYXIS__OPT_NULL                        = 1,
+     + PYXIS__OPT_DEFAULT                     = 2,
+     + PYXIS__OPT_INITIAL                     = 3,
+     + PYXIS__OPT_USER_DATA                   = 4)
+
+C  Pseudo key definitions 
+
+      INTEGER*2
+     + PYXIS__KEY_DELETE,
+     + PYXIS__KEY_UP,
+     + PYXIS__KEY_DOWN,
+     + PYXIS__KEY_RIGHT,
+     + PYXIS__KEY_LEFT,
+     + PYXIS__KEY_PF1,
+     + PYXIS__KEY_PF2,
+     + PYXIS__KEY_PF3,
+     + PYXIS__KEY_PF4,
+     + PYXIS__KEY_PF5,
+     + PYXIS__KEY_PF6,
+     + PYXIS__KEY_PF7,
+     + PYXIS__KEY_PF8,
+     + PYXIS__KEY_PF9,
+     + PYXIS__KEY_ENTER,
+     + PYXIS__KEY_SCROLL_TOP,
+     + PYXIS__KEY_SCROLL_BOTTOM
+
+      PARAMETER (
+     + PYXIS__KEY_DELETE                      = 127,
+     + PYXIS__KEY_UP                          = 128,
+     + PYXIS__KEY_DOWN                        = 129,
+     + PYXIS__KEY_RIGHT                       = 130,
+     + PYXIS__KEY_LEFT                        = 131,
+     + PYXIS__KEY_PF1                         = 132,
+     + PYXIS__KEY_PF2                         = 133,
+     + PYXIS__KEY_PF3                         = 134,
+     + PYXIS__KEY_PF4                         = 135,
+     + PYXIS__KEY_PF5                         = 136,
+     + PYXIS__KEY_PF6                         = 137,
+     + PYXIS__KEY_PF7                         = 138,
+     + PYXIS__KEY_PF8                         = 139,
+     + PYXIS__KEY_PF9                         = 140,
+     + PYXIS__KEY_ENTER                       = 141,
+     + PYXIS__KEY_SCROLL_TOP                  = 146,
+     + PYXIS__KEY_SCROLL_BOTTOM               = 147)
+
+C  Menu definition stuff 
+
+      INTEGER*2
+     + PYXIS__MENU_VERSION1,
+     + PYXIS__MENU_LABEL,
+     + PYXIS__MENU_ENTREE,
+     + PYXIS__MENU_OPAQUE,
+     + PYXIS__MENU_TRANSPARENT,
+     + PYXIS__MENU_HORIZONTAL,
+     + PYXIS__MENU_VERTICAL,
+     + PYXIS__MENU_END
+
+      PARAMETER (
+     + PYXIS__MENU_VERSION1                   = 1,
+     + PYXIS__MENU_LABEL                      = 2,
+     + PYXIS__MENU_ENTREE                     = 3,
+     + PYXIS__MENU_OPAQUE                     = 4,
+     + PYXIS__MENU_TRANSPARENT                = 5,
+     + PYXIS__MENU_HORIZONTAL                 = 6,
+     + PYXIS__MENU_VERTICAL                   = 7,
+     + PYXIS__MENU_END                        = -1)
+
+
+C     Error Codes
+
+      INTEGER*4
+     + GDS_FACILITY,
+     + GDS_ERR_BASE,
+     + GDS_ERR_FACTOR
+
+      INTEGER*4
+     + GDS_ARG_END,          
+C                             { end of argument list }
+     + GDS_ARG_GDS,          
+C                             { generic DSRI status value }
+     + GDS_ARG_STRING,       
+C                             { string argument }
+     + GDS_ARG_CSTRING,      
+C                             { count & string argument }
+     + GDS_ARG_NUMBER,       
+C                             { numeric argument (long) }
+     + GDS_ARG_INTERPRETED,  
+C                             { interpreted status code (string) }
+     + GDS_ARG_VMS,          
+C                             { VAX/VMS status code (long) }
+     + GDS_ARG_UNIX,         
+C                             { UNIX error code }
+     + GDS_ARG_DOMAIN       
+C                             { Apollo/Domain error code }
+
+
+      PARAMETER (
+     + GDS_FACILITY    = 20,
+     + GDS_ERR_BASE    = 335544320,
+     + GDS_ERR_FACTOR  = 1)
+
+      PARAMETER (
+     + GDS_ARG_END          = 0,   
+C                             { end of argument list }
+     + GDS_ARG_GDS          = 1,   
+C                             { generic DSRI status value }
+     + GDS_ARG_STRING       = 2,   
+C                             { string argument }
+     + GDS_ARG_CSTRING      = 3,   
+C                             { count & string argument }
+     + GDS_ARG_NUMBER       = 4,   
+C                             { numeric argument (long) }
+     + GDS_ARG_INTERPRETED  = 5,   
+C                             { interpreted status code (string) }
+     + GDS_ARG_VMS          = 6,   
+C                             { VAX/VMS status code (long) }
+     + GDS_ARG_UNIX         = 7,   
+C                             { UNIX error code }
+     + GDS_ARG_DOMAIN       = 8)   
+C                             { Apollo/Domain error code }
+
+      INTEGER*4 GDS__arith_except        
+      PARAMETER (GDS__arith_except         = 335544321)
+      INTEGER*4 GDS__bad_dbkey           
+      PARAMETER (GDS__bad_dbkey            = 335544322)
+      INTEGER*4 GDS__bad_db_format       
+      PARAMETER (GDS__bad_db_format        = 335544323)
+      INTEGER*4 GDS__bad_db_handle       
+      PARAMETER (GDS__bad_db_handle        = 335544324)
+      INTEGER*4 GDS__bad_dpb_content     
+      PARAMETER (GDS__bad_dpb_content      = 335544325)
+      INTEGER*4 GDS__bad_dpb_form        
+      PARAMETER (GDS__bad_dpb_form         = 335544326)
+      INTEGER*4 GDS__bad_req_handle      
+      PARAMETER (GDS__bad_req_handle       = 335544327)
+      INTEGER*4 GDS__bad_segstr_handle   
+      PARAMETER (GDS__bad_segstr_handle    = 335544328)
+      INTEGER*4 GDS__bad_segstr_id       
+      PARAMETER (GDS__bad_segstr_id        = 335544329)
+      INTEGER*4 GDS__bad_tpb_content     
+      PARAMETER (GDS__bad_tpb_content      = 335544330)
+      INTEGER*4 GDS__bad_tpb_form        
+      PARAMETER (GDS__bad_tpb_form         = 335544331)
+      INTEGER*4 GDS__bad_trans_handle    
+      PARAMETER (GDS__bad_trans_handle     = 335544332)
+      INTEGER*4 GDS__bug_check           
+      PARAMETER (GDS__bug_check            = 335544333)
+      INTEGER*4 GDS__convert_error       
+      PARAMETER (GDS__convert_error        = 335544334)
+      INTEGER*4 GDS__db_corrupt          
+      PARAMETER (GDS__db_corrupt           = 335544335)
+      INTEGER*4 GDS__deadlock            
+      PARAMETER (GDS__deadlock             = 335544336)
+      INTEGER*4 GDS__excess_trans        
+      PARAMETER (GDS__excess_trans         = 335544337)
+      INTEGER*4 GDS__from_no_match       
+      PARAMETER (GDS__from_no_match        = 335544338)
+      INTEGER*4 GDS__infinap             
+      PARAMETER (GDS__infinap              = 335544339)
+      INTEGER*4 GDS__infona              
+      PARAMETER (GDS__infona               = 335544340)
+      INTEGER*4 GDS__infunk              
+      PARAMETER (GDS__infunk               = 335544341)
+      INTEGER*4 GDS__integ_fail          
+      PARAMETER (GDS__integ_fail           = 335544342)
+      INTEGER*4 GDS__invalid_blr         
+      PARAMETER (GDS__invalid_blr          = 335544343)
+      INTEGER*4 GDS__io_error            
+      PARAMETER (GDS__io_error             = 335544344)
+      INTEGER*4 GDS__lock_conflict       
+      PARAMETER (GDS__lock_conflict        = 335544345)
+      INTEGER*4 GDS__metadata_corrupt    
+      PARAMETER (GDS__metadata_corrupt     = 335544346)
+      INTEGER*4 GDS__not_valid           
+      PARAMETER (GDS__not_valid            = 335544347)
+      INTEGER*4 GDS__no_cur_rec          
+      PARAMETER (GDS__no_cur_rec           = 335544348)
+      INTEGER*4 GDS__no_dup              
+      PARAMETER (GDS__no_dup               = 335544349)
+      INTEGER*4 GDS__no_finish           
+      PARAMETER (GDS__no_finish            = 335544350)
+      INTEGER*4 GDS__no_meta_update      
+      PARAMETER (GDS__no_meta_update       = 335544351)
+      INTEGER*4 GDS__no_priv             
+      PARAMETER (GDS__no_priv              = 335544352)
+      INTEGER*4 GDS__no_recon            
+      PARAMETER (GDS__no_recon             = 335544353)
+      INTEGER*4 GDS__no_record           
+      PARAMETER (GDS__no_record            = 335544354)
+      INTEGER*4 GDS__no_segstr_close     
+      PARAMETER (GDS__no_segstr_close      = 335544355)
+      INTEGER*4 GDS__obsolete_metadata   
+      PARAMETER (GDS__obsolete_metadata    = 335544356)
+      INTEGER*4 GDS__open_trans          
+      PARAMETER (GDS__open_trans           = 335544357)
+      INTEGER*4 GDS__port_len            
+      PARAMETER (GDS__port_len             = 335544358)
+      INTEGER*4 GDS__read_only_field     
+      PARAMETER (GDS__read_only_field      = 335544359)
+      INTEGER*4 GDS__read_only_rel       
+      PARAMETER (GDS__read_only_rel        = 335544360)
+      INTEGER*4 GDS__read_only_trans     
+      PARAMETER (GDS__read_only_trans      = 335544361)
+      INTEGER*4 GDS__read_only_view      
+      PARAMETER (GDS__read_only_view       = 335544362)
+      INTEGER*4 GDS__req_no_trans        
+      PARAMETER (GDS__req_no_trans         = 335544363)
+      INTEGER*4 GDS__req_sync            
+      PARAMETER (GDS__req_sync             = 335544364)
+      INTEGER*4 GDS__req_wrong_db        
+      PARAMETER (GDS__req_wrong_db         = 335544365)
+      INTEGER*4 GDS__segment             
+      PARAMETER (GDS__segment              = 335544366)
+      INTEGER*4 GDS__segstr_eof          
+      PARAMETER (GDS__segstr_eof           = 335544367)
+      INTEGER*4 GDS__segstr_no_op        
+      PARAMETER (GDS__segstr_no_op         = 335544368)
+      INTEGER*4 GDS__segstr_no_read      
+      PARAMETER (GDS__segstr_no_read       = 335544369)
+      INTEGER*4 GDS__segstr_no_trans     
+      PARAMETER (GDS__segstr_no_trans      = 335544370)
+      INTEGER*4 GDS__segstr_no_write     
+      PARAMETER (GDS__segstr_no_write      = 335544371)
+      INTEGER*4 GDS__segstr_wrong_db     
+      PARAMETER (GDS__segstr_wrong_db      = 335544372)
+      INTEGER*4 GDS__sys_request         
+      PARAMETER (GDS__sys_request          = 335544373)
+      INTEGER*4 GDS__unavailable         
+      PARAMETER (GDS__unavailable          = 335544375)
+      INTEGER*4 GDS__unres_rel           
+      PARAMETER (GDS__unres_rel            = 335544376)
+      INTEGER*4 GDS__uns_ext             
+      PARAMETER (GDS__uns_ext              = 335544377)
+      INTEGER*4 GDS__wish_list           
+      PARAMETER (GDS__wish_list            = 335544378)
+      INTEGER*4 GDS__wrong_ods           
+      PARAMETER (GDS__wrong_ods            = 335544379)
+      INTEGER*4 GDS__wronumarg           
+      PARAMETER (GDS__wronumarg            = 335544380)
+      INTEGER*4 GDS__imp_exc             
+      PARAMETER (GDS__imp_exc              = 335544381)
+      INTEGER*4 GDS__random              
+      PARAMETER (GDS__random               = 335544382)
+      INTEGER*4 GDS__fatal_conflict      
+      PARAMETER (GDS__fatal_conflict       = 335544383)
+
+C     Minor codes subject to change 
+
+      INTEGER*4 GDS__badblk              
+      PARAMETER (GDS__badblk               = 335544384)
+      INTEGER*4 GDS__invpoolcl           
+      PARAMETER (GDS__invpoolcl            = 335544385)
+      INTEGER*4 GDS__nopoolids           
+      PARAMETER (GDS__nopoolids            = 335544386)
+      INTEGER*4 GDS__relbadblk           
+      PARAMETER (GDS__relbadblk            = 335544387)
+      INTEGER*4 GDS__blktoobig           
+      PARAMETER (GDS__blktoobig            = 335544388)
+      INTEGER*4 GDS__bufexh              
+      PARAMETER (GDS__bufexh               = 335544389)
+      INTEGER*4 GDS__syntaxerr           
+      PARAMETER (GDS__syntaxerr            = 335544390)
+      INTEGER*4 GDS__bufinuse            
+      PARAMETER (GDS__bufinuse             = 335544391)
+      INTEGER*4 GDS__bdbincon            
+      PARAMETER (GDS__bdbincon             = 335544392)
+      INTEGER*4 GDS__reqinuse            
+      PARAMETER (GDS__reqinuse             = 335544393)
+      INTEGER*4 GDS__badodsver           
+      PARAMETER (GDS__badodsver            = 335544394)
+      INTEGER*4 GDS__relnotdef           
+      PARAMETER (GDS__relnotdef            = 335544395)
+      INTEGER*4 GDS__fldnotdef           
+      PARAMETER (GDS__fldnotdef            = 335544396)
+      INTEGER*4 GDS__dirtypage           
+      PARAMETER (GDS__dirtypage            = 335544397)
+      INTEGER*4 GDS__waifortra           
+      PARAMETER (GDS__waifortra            = 335544398)
+      INTEGER*4 GDS__doubleloc           
+      PARAMETER (GDS__doubleloc            = 335544399)
+      INTEGER*4 GDS__nodnotfnd           
+      PARAMETER (GDS__nodnotfnd            = 335544400)
+      INTEGER*4 GDS__dupnodfnd           
+      PARAMETER (GDS__dupnodfnd            = 335544401)
+      INTEGER*4 GDS__locnotmar           
+      PARAMETER (GDS__locnotmar            = 335544402)
+      INTEGER*4 GDS__badpagtyp           
+      PARAMETER (GDS__badpagtyp            = 335544403)
+      INTEGER*4 GDS__corrupt             
+      PARAMETER (GDS__corrupt              = 335544404)
+      INTEGER*4 GDS__badpage             
+      PARAMETER (GDS__badpage              = 335544405)
+      INTEGER*4 GDS__badindex            
+      PARAMETER (GDS__badindex             = 335544406)
+      INTEGER*4 GDS__dbbnotzer           
+      PARAMETER (GDS__dbbnotzer            = 335544407)
+      INTEGER*4 GDS__tranotzer           
+      PARAMETER (GDS__tranotzer            = 335544408)
+      INTEGER*4 GDS__trareqmis           
+      PARAMETER (GDS__trareqmis            = 335544409)
+      INTEGER*4 GDS__badhndcnt           
+      PARAMETER (GDS__badhndcnt            = 335544410)
+      INTEGER*4 GDS__wrotpbver           
+      PARAMETER (GDS__wrotpbver            = 335544411)
+      INTEGER*4 GDS__wroblrver           
+      PARAMETER (GDS__wroblrver            = 335544412)
+      INTEGER*4 GDS__wrodpbver           
+      PARAMETER (GDS__wrodpbver            = 335544413)
+      INTEGER*4 GDS__blobnotsup          
+      PARAMETER (GDS__blobnotsup           = 335544414)
+      INTEGER*4 GDS__badrelation         
+      PARAMETER (GDS__badrelation          = 335544415)
+      INTEGER*4 GDS__nodetach            
+      PARAMETER (GDS__nodetach             = 335544416)
+      INTEGER*4 GDS__notremote           
+      PARAMETER (GDS__notremote            = 335544417)
+      INTEGER*4 GDS__trainlim            
+      PARAMETER (GDS__trainlim             = 335544418)
+      INTEGER*4 GDS__notinlim            
+      PARAMETER (GDS__notinlim             = 335544419)
+      INTEGER*4 GDS__traoutsta           
+      PARAMETER (GDS__traoutsta            = 335544420)
+      INTEGER*4 GDS__connect_reject      
+      PARAMETER (GDS__connect_reject       = 335544421)
+      INTEGER*4 GDS__dbfile              
+      PARAMETER (GDS__dbfile               = 335544422)
+      INTEGER*4 GDS__orphan              
+      PARAMETER (GDS__orphan               = 335544423)
+      INTEGER*4 GDS__no_lock_mgr         
+      PARAMETER (GDS__no_lock_mgr          = 335544424)
+      INTEGER*4 GDS__ctxinuse            
+      PARAMETER (GDS__ctxinuse             = 335544425)
+      INTEGER*4 GDS__ctxnotdef           
+      PARAMETER (GDS__ctxnotdef            = 335544426)
+      INTEGER*4 GDS__datnotsup           
+      PARAMETER (GDS__datnotsup            = 335544427)
+      INTEGER*4 GDS__badmsgnum           
+      PARAMETER (GDS__badmsgnum            = 335544428)
+      INTEGER*4 GDS__badparnum           
+      PARAMETER (GDS__badparnum            = 335544429)
+      INTEGER*4 GDS__virmemexh           
+      PARAMETER (GDS__virmemexh            = 335544430)
+      INTEGER*4 GDS__blocking_signal     
+      PARAMETER (GDS__blocking_signal      = 335544431)
+      INTEGER*4 GDS__lockmanerr          
+      PARAMETER (GDS__lockmanerr           = 335544432)
+      INTEGER*4 GDS__journerr            
+      PARAMETER (GDS__journerr             = 335544433)
+      INTEGER*4 GDS__keytoobig           
+      PARAMETER (GDS__keytoobig            = 335544434)
+      INTEGER*4 GDS__nullsegkey          
+      PARAMETER (GDS__nullsegkey           = 335544435)
+      INTEGER*4 GDS__sqlerr              
+      PARAMETER (GDS__sqlerr               = 335544436)
+      INTEGER*4 GDS__wrodynver           
+      PARAMETER (GDS__wrodynver            = 335544437)
+      INTEGER*4 gds__obj_in_use
+      PARAMETER (gds__obj_in_use           = 335544453)
+      INTEGER*4 gds__no_filter
+      PARAMETER (gds__no_filter            = 335544454)
+      INTEGER*4 gds__shadow_accessed
+      PARAMETER (gds__shadow_accessed      = 335544455)
+      INTEGER*4 gds__invalid_sdl
+      PARAMETER (gds__invalid_sdl          = 335544456)
+      INTEGER*4 gds__out_of_bounds
+      PARAMETER (gds__out_of_bounds        = 335544457)
+      INTEGER*4 gds__invalid_dimension
+      PARAMETER (gds__invalid_dimension    = 335544458)
+      INTEGER*4 gds__rec_in_limbo
+      PARAMETER (gds__rec_in_limbo = 335544459)
+      INTEGER*4 gds__shadow_missing
+      PARAMETER (gds__shadow_missing = 335544460)
+      INTEGER*4 gds__cant_validate
+      PARAMETER (gds__cant_validate = 335544461)
+      INTEGER*4 gds__cant_start_journal
+      PARAMETER (gds__cant_start_journal = 335544462)
+      INTEGER*4 gds__gennotdef
+      PARAMETER (gds__gennotdef = 335544463)
+      INTEGER*4 gds__cant_start_logging
+      PARAMETER (gds__cant_start_logging = 335544464)
+      INTEGER*4 gds__bad_segstr_type
+      PARAMETER (gds__bad_segstr_type = 335544465)
+      INTEGER*4 gds__foreign_key
+      PARAMETER (gds__foreign_key = 335544466)
+      INTEGER*4 gds__high_minor
+      PARAMETER (gds__high_minor = 335544467)
+      INTEGER*4 gds__tra_state
+      PARAMETER (gds__tra_state = 335544468)
+      INTEGER*4 gds__trans_invalid
+      PARAMETER (gds__trans_invalid = 335544469)
+      INTEGER*4 gds__buf_invalid
+      PARAMETER (gds__buf_invalid = 335544470)
+      INTEGER*4 gds__indexnotdefined
+      PARAMETER (gds__indexnotdefined = 335544471)
+      INTEGER*4 gds__login
+      PARAMETER (gds__login = 335544472)
+      INTEGER*4 gds__invalid_bookmark
+      PARAMETER (gds__invalid_bookmark = 335544473)
+      INTEGER*4 gds__bad_lock_level
+      PARAMETER (gds__bad_lock_level = 335544474)
+      INTEGER*4 gds__relation_lock
+      PARAMETER (gds__relation_lock = 335544475)
+      INTEGER*4 gds__record_lock
+      PARAMETER (gds__record_lock = 335544476)
+      INTEGER*4 gds__max_idx
+      PARAMETER (gds__max_idx = 335544477)
+      INTEGER*4 gds__jrn_enable
+      PARAMETER (gds__jrn_enable = 335544478)
+      INTEGER*4 gds__old_failure
+      PARAMETER (gds__old_failure = 335544479)
+      INTEGER*4 gds__old_in_porgress
+      PARAMETER (gds__old_in_progress = 335544480)
+      INTEGER*4 gds__old_no_space
+      PARAMETER (gds__old_no_space = 335544481)
+      INTEGER*4 gds__no_wal_no_jrn
+      PARAMETER (gds__no_wal_no_jrn = 335544482)
+      INTEGER*4 gds__num_old_files
+      PARAMETER (gds__num_old_files = 335544483)
+      INTEGER*4 gds__wal_file_open
+      PARAMETER (gds__wal_file_open = 335544484)
+      INTEGER*4 gds__bad_stmt_handle
+      PARAMETER (gds__bad_stmt_handle = 335544485)
+      INTEGER*4 gds__wal_failure
+      PARAMETER (gds__wal_failue = 335544486)
+      INTEGER*4 gds__walw_err
+      PARAMETER (gds__walw_err = 335544487)
+      INTEGER*4 gds__logh_small
+      PARAMETER (gds__logh_small = 335544488)
+      INTEGER*4 gds__logh_inv_version
+      PARAMETER (gds__logh_inv_version = 335544489)
+      INTEGER*4 gds__logh_open_flag
+      PARAMETER (gds__logh_open_flag = 335544490)
+      INTEGER*4 gds__logh_open_flag2
+      PARAMETER (gds__logh_open_flag2 = 335544491)
+      INTEGER*4 gds__logh_diff_dbname
+      PARAMETER (gds__logh_diff_dbname = 335544492)
+      INTEGER*4 gds__logf_unexpected_eof
+      PARAMETER (gds__logf_unexpected_eof = 335544493)
+      INTEGER*4 gds__logr_incomplete
+      PARAMETER (gds__logr_incomplete = 335544494)
+      INTEGER*4 gds__logr_header_small
+      PARAMETER (gds__logr_header_small = 335544495)
+      INTEGER*4 gds__logb_small
+      PARAMETER (gds__logb_small = 335544496)
+      INTEGER*4 gds__wal_illegal_attach
+      PARAMETER (gds__wal_illegal_attach = 335544497)
+      INTEGER*4 gds__wal_invalid_wpb
+      PARAMETER (gds__wal_invalid_wpb = 335544498)
+      INTEGER*4 gds__wal_err_rollover
+      PARAMETER (gds__wal_err_rollover = 335544499)
+      INTEGER*4 gds__no_wal
+      PARAMETER (gds__no_wal = 335544500)
+      INTEGER*4 gds__drop_wal
+      PARAMETER (gds__drop_wal = 335544501)
+      INTEGER*4 gds__stream_not_defined
+      PARAMETER (gds__stream_not_defined = 335544502)
+      INTEGER*4 gds__unknown_183
+      PARAMETER (gds__unknown_183 = 335544503)
+      INTEGER*4 gds__wal_subsys_error
+      PARAMETER (gds__wal_subsys_error = 335544504)
+      INTEGER*4 gds__wal_subsys_corrupt
+      PARAMETER (gds__wal_subsys_corrupt = 335544505)
+      INTEGER*4 gds__no_archive
+      PARAMETER (gds__no_archive = 335544506)
+      INTEGER*4 gds__store_proc_failed
+      PARAMETER (gds__store_proc_failed = 335544507)
+      INTEGER*4 gds__range_in_use
+      PARAMETER (gds__range_in_use = 335544508)
+      INTEGER*4 gds__range_not_found
+      PARAMETER (gds__range_not_found = 335544508)
+      INTEGER*4 gds__charset_not_found
+      PARAMETER (gds__charset_not_found = 335544510)
+      INTEGER*4 gds__lock_timeout
+      PARAMETER (gds__lock_timeout = 335544511)
+      INTEGER*4 gds__prcnotdef
+      PARAMETER (gds__prcnotdef = 335544512)
+      INTEGER*4 gds__prcmismat
+      PARAMETER (gds__prcmismat = 335544513)
+
diff --git a/src/jrd/gds_apollo.f b/src/jrd/gds_apollo.f
new file mode 100644
index 0000000000..2ab9b553e4
--- /dev/null
+++ b/src/jrd/gds_apollo.f
@@ -0,0 +1,1442 @@
+C  The contents of this file are subject to the Interbase Public
+C  License Version 1.0 (the "License"); you may not use this file
+C  except in compliance with the License. You may obtain a copy
+C  of the License at http://www.Inprise.com/IPL.html
+C
+C  Software distributed under the License is distributed on an
+C  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+C  or implied. See the License for the specific language governing
+C  rights and limitations under the License.
+C
+C  The Original Code was created by Inprise Corporation
+C  and its predecessors. Portions created by Inprise Corporation are
+C  Copyright (C) Inprise Corporation.
+C
+C  All Rights Reserved.
+C  Contributor(s): ______________________________________.
+C
+C         PROGRAM:        Preprocessor
+C         MODULE:         gds.ftn
+C         DESCRIPTION:    GDS constants, procedures, etc.
+C 
+
+C     PROCEDURE GDS__ATTACH_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  FILE_NAME,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       DPB_LENGTH,     { INPUT }
+C        CHARACTER* (*)  DPB             { INPUT }
+C        )
+
+      INTEGER*4 ISC_BADDRESS
+C     INTEGER*4 FUNCTION ISC_BADDRESS (
+C        INTEGER*4       HANDLE          !( INPUT )
+C        )
+
+C     PROCEDURE GDS__CANCEL_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     { INPUT }
+C        )
+
+C     PROCEDURE GDS__CANCEL_EVENTS (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       ID              { INPUT }
+C        )
+
+C     PROCEDURE GDS__CLOSE_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     { INPUT }
+C        )
+
+C     PROCEDURE GDS__COMMIT_RETAINING (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE      { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE      { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__COMPILE_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR             { INPUT }
+C        )
+
+C     PROCEDURE GDS__COMPILE_REQUEST2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR             { INPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2)      { OUTPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_BLOB2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2),      { OUTPUT }
+C        CHARACTER* (*)  BPB             { INPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  FILE_NAME,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       DPB_LENGTH,     { INPUT }
+C        CHARACTER* (*)  DPB             { INPUT }
+C        )
+
+C     PROCEDURE GDS__DETACH_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE       { INPUT / OUTPUT }
+C        )
+
+      INTEGER*2 GDS__EVENT_BLOCK_A
+C     PROCEDURE GDS__EVENT_BLOCK_A (
+C        CHARACTER* (*)  EVENTS,         !{ INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          !{ INPUT/OUTPUT }
+C        INTEGER*2       COUNT,          !{ INPUT }
+C        CHARACTER*31    EVENT_NAMES     !{ INPUT/OUTPUT }
+C        )
+
+C     PROCEDURE GDS__EVENT_WAIT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  EVENTS,         { INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          { INPUT/OUTPUT }
+C        )
+
+      INTEGER*4 GDS__GET_SEGMENT 
+C     INTEGER*4 FUNCTION GDS__GET_SEGMENT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       LENGTH,         { OUTPUT }
+C        INTEGER*2       BUFFER_LENGTH,  { INPUT }
+C        CHARACTER* (*)  BUFFER          { INPUT }
+C        )
+
+C     INTEGER*4 FUNCTION GDS__GET_SLICE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       SDL_LENGTH,     { INPUT }
+C        CHARACTER* (*)  SDL,            { INPUT }
+C        INTEGER*2       PARAM_LENGTH,   { INPUT }
+C        CHARACTER* (*)  PARAM,          { INPUT }
+C        INTEGER*4       SLICE_LENGTH,   { INPUT }
+C        CHARACTER* (*)  SLICE,          { INPUT }
+C        INTEGER*4       RETURN_LENGTH   { INPUT }
+C        )
+
+C     PROCEDURE GDS__OPEN_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2)     { INPUT }
+C        )
+
+C     PROCEDURE GDS__OPEN_BLOB2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2),    { INPUT }
+C        CHARACTER* (*)  BPB             { INPUT }
+C        )
+
+C      PROCEDURE GDS__COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT / OUTPUT }
+C        )
+
+      INTEGER*4 GDS__PUT_SEGMENT 
+C     INTEGER*4 FUNCTION GDS__PUT_SEGMENT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  BUFFER,         { INPUT }
+C        )
+
+C     INTEGER*4 FUNCTION GDS__PUT_SLICE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       SDL_LENGTH,     { INPUT }
+C        CHARACTER* (*)  SDL,            { INPUT }
+C        INTEGER*2       PARAM_LENGTH,   { INPUT }
+C        CHARACTER* (*)  PARAM,          { INPUT }
+C        INTEGER*4       SLICE_LENGTH,   { INPUT }
+C        CHARACTER* (*)  SLICE           { INPUT }
+C        )
+
+C     PROCEDURE GDS__QUE_EVENTS (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       ID,             { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  EVENTS,         { INPUT/OUTPUT }
+C        INTEGER*4       AST,            { INPUT }
+C        INTEGER*4       ARG             { INPUT }
+C        )
+
+C     PROCEDURE GDS__RECEIVE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE GDS__RELEASE_REQUEST (
+C        INTEGER*4       STAT(20),        { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE   { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__ROLLBACK_TRANSACTION (
+C        INTEGER*4       STAT(20),         { OUTPUT }
+C        INTEGER*4       TRA_HANDLE        { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__SEND (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE GDS__SET_DEBUG (
+C        INTEGER*4       DEBUG_VAL       { INPUT }
+C        )
+
+C     PROCEDURE GDS__START_AND_SEND (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE GDS__START_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT  }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+   
+C     PROCEDURE GDS__START_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT / OUTPUT }
+C        INTEGER*2       TRA_COUNT,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       TPB_LENGTH      { INPUT }
+C        CHARACTER* (*)  TPB             { INPUT }
+C        )
+
+C     PROCEDURE GDS__UNWIND_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE gds__ftof (
+C        CHARACTER* (*)  STRING1,        { INPUT }
+C        INTEGER*2       LENGTH1,        { INPUT }
+C        CHARACTER* (*)  STRING2,        { INPUT }
+C        INTEGER*2       LENGTH2         { INPUT }
+C        )
+
+C     PROCEDURE gds__print_status (
+C        INTEGER*4       STAT(20)        { INPUT }
+C        )
+ 
+C     INTEGER FUNCTION gds__sqlcode (
+C        INTEGER*4       STAT(20)        { INPUT }
+C        )
+ 
+C     procedure gds__close (
+C        out     stat            : gds__status_vector; 
+C        in      cursor_name     : UNIV gds__string
+C        ); extern;
+
+C     procedure gds__declare (
+C        out       stat               : gds__status_vector; 
+C        in        statement_name     : UNIV gds__string;
+C        in        cursor_name        : UNIV gds__string
+C        ); extern;
+
+C     procedure gds__describe (
+C        out       stat               : gds__status_vector; 
+C        in        statement_name     : UNIV gds__string;
+C        in out    descriptor         : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__execute (
+C        out       stat                : gds__status_vector; 
+C        in        trans_handle        : gds__handle;
+C        in        statement_name      : UNIV gds__string;
+C        in out    descriptor          : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__execute_immediate (
+C        out       stat               : gds__status_vector; 
+C        in        db_handle          : gds__handle;
+C        in        trans_handle       : gds__handle;
+C        in        string_length      : integer;
+C        in        string             : UNIV gds__string
+C        ); extern;
+
+      INTEGER*4 GDS__FETCH
+C     function gds__fetch (
+C        out       stat              : gds__status_vector; 
+C        in        cursor_name       : UNIV gds__string;
+C        in out        descriptor    : UNIV sqlda
+C        ) : integer32; extern;
+
+C     procedure gds__open (
+C        out       stat              : gds__status_vector; 
+C        in        trans_handle      : gds__handle;
+C        in        cursor_name       : UNIV gds__string;
+C        in out    descriptor        : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__prepare (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        statement_name   : UNIV gds__string;
+C        in        string_length    : integer;
+C        in        string           : UNIV gds__string;
+C        in out    descriptor       : UNIV sqlda
+C        ); extern;
+
+C     procedure pyxis__compile_map (
+C        out       stat                : gds__status_vector; 
+C        in        form_handle         : gds__handle;
+C        out       map_handle          : gds__handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__compile_sub_map (
+C        out       stat                : gds__status_vector; 
+C        in        form_handle         : gds__handle;
+C        out       map_handle          : gds__handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__create_window (
+C        in out    window_handle      : gds__handle;
+C        in        name_length        : integer16;
+C        in        file_name          : UNIV gds__string; 
+C        in out    width              : integer16;
+C        in out    height             : integer16
+C        ); extern;
+
+C     procedure pyxis__delete_window (
+C        in out        window_handle        : gds__handle
+C        ); extern;
+
+C     procedure pyxis__drive_form (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in out    window_handle    : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        input            : UNIV gds__string;
+C        in        output           : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__fetch (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        output           : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__insert (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        input            : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__load_form (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in out    form_handle      : gds__handle;
+C        in        name_length      : integer16;
+C        in        form_name        : UNIV gds__string 
+C        ); extern;
+
+      INTEGER*2 PYXIS__MENU
+C     function pyxis__menu (
+C        in out    window_handle    : gds__handle;
+C        in out    menu_handle      : gds__handle;
+C        in        length           : integer16;
+C        in        menu             : UNIV gds__string
+C        ) : integer16; extern;
+
+C     procedure pyxis__pop_window (
+C        in        window_handle    : gds__handle
+C        ); extern;
+
+C     procedure pyxis__reset_form (
+C        out       stat            : gds__status_vector; 
+C        in        window_handle   : gds__handle
+C        ); extern;
+
+C     procedure pyxis__drive_menu (
+C        in out    window_handle     : gds__handle;
+C        in out    menu_handle       : gds__handle;
+C        in        blr_length        : integer16;
+C        in        blr_source        : UNIV gds__string;
+C        in        title_length      : integer16;
+C        in        title             : UNIV gds__string;
+C        out       terminator        : integer16;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV gds__string;
+C        out       entree_value      : integer32
+C        ); extern;
+
+C     procedure pyxis__get_entree (
+C        in        menu_handle       : gds__handle;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV gds__string;
+C        out       entree_value      : integer32;
+C        out       entree_end        : integer16
+C        ); extern;
+
+C     procedure pyxis__initialize_menu (
+C        in out        menu_handle   : gds__handle
+C        ); extern;
+
+C     procedure pyxis__put_entree (
+C        in        menu_handle        : gds__handle;
+C        in        entree_length      : integer16;
+C        in        entree_text        : UNIV gds__string;
+C        in        entree_value       : integer32
+C        ); extern;
+
+C     PROCEDURE isc_exec_procedure (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  PROC_NAME,      { INPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR,             { INPUT }
+C        INTEGER*2       IN_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  IN_MESSAGE,        { INPUT }
+C        INTEGER*2       OUT_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  OUT_MESSAGE        { INPUT / OUTPUT }
+C        )
+
+       INTEGER*2 GDS__TRUE, GDS__FALSE
+       PARAMETER (
+     +    GDS__TRUE = 1,
+     +    GDS__FALSE = 0)
+
+       INTEGER*2  BLR_BLOB
+       PARAMETER  (BLR_BLOB = 261)
+
+       CHARACTER*1 
+     +    BLR_TEXT, BLR_SHORT, BLR_LONG, BLR_QUAD, BLR_FLOAT,
+     +    BLR_DOUBLE, BLR_D_FLOAT, BLR_DATE, BLR_VARYING, BLR_CSTRING,
+     +    BLR_VERSION4, BLR_EOC, BLR_END
+
+       PARAMETER (
+     +    BLR_TEXT = CHAR(14),
+     +    BLR_SHORT = CHAR(7),
+     +    BLR_LONG = CHAR(8),
+     +    BLR_QUAD = CHAR(9),
+     +    BLR_FLOAT = CHAR(10),
+     +    BLR_DOUBLE = CHAR(27),
+     +    BLR_D_FLOAT = CHAR(11),
+     +    BLR_DATE = CHAR(35),
+     +    BLR_VARYING = CHAR(37),
+     +    BLR_CSTRING = CHAR(40),
+     +    BLR_VERSION4 = CHAR(4),
+     +    BLR_EOC = CHAR(76),
+     +    BLR_END = CHAR(255))
+
+      CHARACTER*1
+     +    BLR_ASSIGNMENT, BLR_BEGIN, BLR_MESSAGE, BLR_ERASE, BLR_FETCH,
+     +    BLR_FOR, BLR_IF, BLR_LOOP, BLR_MODIFY, BLR_HANDLER, 
+     +    BLR_RECEIVE, BLR_SELECT, BLR_SEND, BLR_STORE, BLR_LABEL,
+     +    BLR_LEAVE
+
+
+      PARAMETER (
+     +    BLR_ASSIGNMENT = CHAR(1),
+     +    BLR_BEGIN = CHAR(2),
+     +    BLR_MESSAGE = CHAR(4),
+     +    BLR_ERASE = CHAR(5),
+     +    BLR_FETCH = CHAR(6),
+     +    BLR_FOR = CHAR(7),
+     +    BLR_IF = CHAR(8),
+     +    BLR_LOOP = CHAR(9),
+     +    BLR_MODIFY = CHAR(10),
+     +    BLR_HANDLER = CHAR(11),
+     +    BLR_RECEIVE = CHAR(12),
+     +    BLR_SELECT = CHAR(13),
+     +    BLR_SEND = CHAR(14),
+     +    BLR_STORE = CHAR(15),
+     +    BLR_LABEL = CHAR(17),
+     +    BLR_LEAVE = CHAR(18))
+
+      CHARACTER*1
+     +    BLR_LITERAL, BLR_DBKEY, BLR_FIELD, BLR_FID, BLR_PARAMETER,
+     +    BLR_VARIABLE, BLR_AVERAGE, BLR_COUNT, BLR_MAXIMUM, 
+     +    BLR_MINIMUM, BLR_TOTAL
+
+      PARAMETER (
+     +    BLR_LITERAL = CHAR(21),
+     +    BLR_DBKEY = CHAR(22),
+     +    BLR_FIELD = CHAR(23),
+     +    BLR_FID = CHAR(24),
+     +    BLR_PARAMETER = CHAR(25),
+     +    BLR_VARIABLE = CHAR(26),
+     +    BLR_AVERAGE = CHAR(27),
+     +    BLR_COUNT = CHAR(28),
+     +    BLR_MAXIMUM = CHAR(29),
+     +    BLR_MINIMUM = CHAR(30),
+     +    BLR_TOTAL = CHAR(31))
+
+      CHARACTER*1
+     +    BLR_ADD, BLR_SUBTRACT, BLR_MULTIPLY, BLR_DIVIDE,
+     +    BLR_NEGATE, BLR_CONCATENATE, BLR_SUBSTRING, 
+     +    BLR_PARAMETER2, BLR_FROM, BLR_VIA, BLR_NULL
+     
+
+      PARAMETER (
+     +    BLR_ADD = CHAR(34),
+     +    BLR_SUBTRACT = CHAR(35),
+     +    BLR_MULTIPLY = CHAR(36),
+     +    BLR_DIVIDE = CHAR(37),
+     +    BLR_NEGATE = CHAR(38),
+     +    BLR_CONCATENATE = CHAR(39),
+     +    BLR_SUBSTRING = CHAR(40),
+     +    BLR_PARAMETER2 = CHAR(41),
+     +    BLR_FROM = CHAR(42),
+     +    BLR_VIA = CHAR(43),
+     +    BLR_NULL = CHAR(45))
+
+      CHARACTER*1
+     +    BLR_EQL, BLR_NEQ, BLR_GTR, BLR_GEQ, BLR_LSS, BLR_LEQ, 
+     +    BLR_CONTAINING, BLR_MATCHING, BLR_STARTING, BLR_BETWEEN, 
+     +    BLR_OR, BLR_AND, BLR_NOT, BLR_ANY, BLR_MISSING, BLR_LIKE,
+     +    BLR_UNIQUE
+
+       PARAMETER (
+     +    BLR_EQL = CHAR(47),
+     +    BLR_NEQ = CHAR(48),
+     +    BLR_GTR = CHAR(49),
+     +    BLR_GEQ = CHAR(50),
+     +    BLR_LSS = CHAR(51),
+     +    BLR_LEQ = CHAR(52),
+     +    BLR_CONTAINING = CHAR(53),
+     +    BLR_MATCHING = CHAR(54),
+     +    BLR_STARTING = CHAR(55),
+     +    BLR_BETWEEN = CHAR(56),
+     +    BLR_OR = CHAR(57),
+     +    BLR_AND = CHAR(58),
+     +    BLR_NOT = CHAR(59),
+     +    BLR_ANY = CHAR(60),
+     +    BLR_MISSING = CHAR(61),
+     +    BLR_UNIQUE = CHAR(62),
+     +    BLR_LIKE = CHAR(63))
+
+      CHARACTER*1
+     +    BLR_RSE, BLR_FIRST, BLR_PROJECT, BLR_SORT, BLR_BOOLEAN, 
+     +    BLR_ASCENDING, BLR_DESCENDING, BLR_RELATION, BLR_RID,
+     +    BLR_UNION, BLR_MAP, BLR_GROUP_BY, BLR_AGGREGATE,
+     +    BLR_JOIN_TYPE
+
+
+      PARAMETER (
+     +    BLR_RSE = CHAR(67),
+     +    BLR_FIRST = CHAR(68),
+     +    BLR_PROJECT = CHAR(69),
+     +    BLR_SORT = CHAR(70),
+     +    BLR_BOOLEAN = CHAR(71),
+     +    BLR_ASCENDING = CHAR(72),
+     +    BLR_DESCENDING = CHAR(73),
+     +    BLR_RELATION = CHAR(74),
+     +    BLR_RID = CHAR(75),
+     +    BLR_UNION = CHAR(76),
+     +    BLR_MAP = CHAR(77),
+     +    BLR_GROUP_BY = CHAR(78),     
+     +    BLR_AGGREGATE = CHAR(79),
+     +    BLR_JOIN_TYPE = CHAR(80))
+
+      CHARACTER*1
+     +    BLR_INNER, BLR_LEFT, BLR_RIGHT, BLR_FULL
+
+      PARAMETER (
+     +    BLR_INNER = CHAR(0),
+     +    BLR_LEFT = CHAR(1),
+     +    BLR_RIGHT = CHAR(2),
+     +    BLR_FULL = CHAR(3))
+
+      CHARACTER*1
+     +    BLR_AGG_COUNT, BLR_AGG_MAX, BLR_AGG_MIN, BLR_AGG_TOTAL,
+     +    BLR_AGG_AVERAGE, BLR_RUN_COUNT, BLR_RUN_MAX, BLR_RUN_MIN,
+     +    BLR_RUN_TOTAL, BLR_RUN_AVERAGE
+
+      PARAMETER (
+     +    BLR_AGG_COUNT = CHAR(83),     
+     +    BLR_AGG_MAX = CHAR(84),
+     +    BLR_AGG_MIN = CHAR(85),
+     +    BLR_AGG_TOTAL = CHAR(86),
+     +    BLR_AGG_AVERAGE = CHAR(87),
+     +    BLR_RUN_COUNT = CHAR(118),
+     +    BLR_RUN_MAX = CHAR(89),
+     +    BLR_RUN_MIN = CHAR(90),
+     +    BLR_RUN_TOTAL = CHAR(91),
+     +    BLR_RUN_AVERAGE = CHAR(92)) 
+
+      CHARACTER*1
+     +    BLR_FUNCTION, BLR_GEN_ID, BLR_PROT_MASK, BLR_UPCASE,
+     +    BLR_LOCK_STATE, BLR_VALUE_IF, BLR_MATCHING2, BLR_INDEX
+
+      PARAMETER (
+     +    BLR_FUNCTION = CHAR(100),
+     +    BLR_GEN_ID = CHAR(101),
+     +    BLR_PROT_MASK = CHAR(102),
+     +    BLR_UPCASE = CHAR(103),
+     +    BLR_LOCK_STATE = CHAR(104),
+     +    BLR_VALUE_IF = CHAR(105),
+     +    BLR_MATCHING2 = CHAR(106),
+     +    BLR_INDEX = CHAR(107))
+
+      CHARACTER*1
+     +    BLR_ANSI_LIKE, BLR_BOOKMARK, BLR_CRACK,
+     +    BLR_FORCE_CRACK, BLR_SEEK, BLR_FIND,
+     +    BLR_LOCK_RELATION, BLR_LOCK_RECORD,
+     +    BLR_SET_BOOKMARK, BLR_GET_BOOKMARK
+
+      PARAMETER (
+     +    BLR_ANSI_LIKE = CHAR(108),
+     +    BLR_BOOKMARK = CHAR(109),
+     +    BLR_CRACK = CHAR(110),
+     +    BLR_FORCE_CRACK = CHAR(111),
+     +    BLR_SEEK = CHAR(112),
+     +    BLR_FIND = CHAR(113),
+     +    BLR_LOCK_RELATION = CHAR(114),
+     +    BLR_LOCK_RECORD = CHAR(115),
+     +    BLR_SET_BOOKMARK = CHAR(116),
+     +    BLR_GET_BOOKMARK = CHAR(117))
+
+      CHARACTER*1
+     +    BLR_RS_STREAM, BLR_EXEC_PROC, BLR_BEGIN_RANGE,
+     +    BLR_END_RANGE, BLR_DELETE_RANGE, BLR_PROCEDURE,
+     +    BLR_PID, BLR_EXEC_PID, BLR_SINGULAR, BLR_ABORT,
+     +    BLR_BLOCK, BLR_ERROR_HANDLER, BLR_PARAMETER3,
+     +    BLR_CAST
+
+      PARAMETER (
+     +    BLR_PARAMETER3 = CHAR(88),
+     +    BLR_RS_STREAM = CHAR(119),
+     +    BLR_EXEC_PROC = CHAR(120),
+     +    BLR_BEGIN_RANGE = CHAR(121),
+     +    BLR_END_RANGE = CHAR(122),
+     +    BLR_DELETE_RANGE = CHAR(123),
+     +    BLR_PROCEDURE = CHAR(124),
+     +    BLR_PID = CHAR(125),
+     +    BLR_EXEC_PID = CHAR(126),
+     +    BLR_SINGULAR = CHAR(127),
+     +    BLR_ABORT = CHAR(128),
+     +    BLR_BLOCK = CHAR(129),
+     +    BLR_ERROR_HANDLER = CHAR(130),
+     +    BLR_CAST = CHAR(131))
+
+      CHARACTER*1
+     +    BLR_GDS_CODE, BLR_SQL_CODE, BLR_EXCEPTION,
+     +    BLR_TRIGGER_CODE, BLR_DEFAULT_CODE
+
+      PARAMETER (
+     +    BLR_GDS_CODE = CHAR(0),
+     +    BLR_SQL_CODE = CHAR(1),
+     +    BLR_EXCEPTION= CHAR(2),
+     +    BLR_TRIGGER_CODE = CHAR(3),
+     +    BLR_DEFAULT_CODE = CHAR(4))
+
+C     database parameter block stuff 
+
+      CHARACTER*1
+     +     GDS__DPB_CDD_PATHNAME, GDS__DPB_ALLOCATION,
+     +     GDS__DPB_JOURNAL, GDS__DPB_PAGE_SIZE,
+     +     GDS__DPB_BUFFERS,  GDS__DPB_BUFFER_LENGTH,
+     +     GDS__DPB_DEBUG, GDS__DPB_GARBAGE_COLLECT,
+     +     GDS__DPB_VERIFY,  GDS__DPB_SWEEP,
+     +     GDS__DPB_ENABLE_JOURNAL, GDS__DPB_DISABLE_JOURNAL,
+     +     GDS__DPB_DBKEY_SCOPE, GDS__DPB_NUMBER_OF_USERS,
+     +     GDS__DPB_TRACE, GDS__DPB_NO_GARBAGE_COLLECT,
+     +     GDS__DPB_DAMAGED, GDS__DPB_LICENSE, GDS__DPB_SYS_USER_NAME,
+     +     GDS__DPB_ENCRYPT_KEY, GDS__DPB_ACTIVATE_SHADOW,
+     +     GDS__DPB_SWEEP_INTERVAL, GDS__DPB_DELETE_SHADOW
+
+
+      PARAMETER (
+     +     GDS__DPB_CDD_PATHNAME       = CHAR (1), {NOT IMPLEMENTED}
+     +     GDS__DPB_ALLOCATION         = CHAR (2), {NOT IMPLEMENTED}
+     +     GDS__DPB_JOURNAL            = CHAR (3), {NOT IMPLEMENTED}
+     +     GDS__DPB_PAGE_SIZE          = CHAR (4),
+     +     GDS__DPB_BUFFERS            = CHAR (5), 
+     +     GDS__DPB_BUFFER_LENGTH      = CHAR (6), {NOT IMPLEMENTED}
+     +     GDS__DPB_DEBUG              = CHAR (7), {NOT IMPLEMENTED}
+     +     GDS__DPB_GARBAGE_COLLECT    = CHAR (8), {NOT IMPLEMENTED}
+     +     GDS__DPB_VERIFY             = CHAR (9),
+     +     GDS__DPB_SWEEP              = CHAR (10),
+     +     GDS__DPB_ENABLE_JOURNAL     = CHAR (11),
+     +     GDS__DPB_DISABLE_JOURNAL    = CHAR (12),
+     +     GDS__DPB_DBKEY_SCOPE        = CHAR (13), {NOT IMPLEMENTED}
+     +     GDS__DPB_NUMBER_OF_USERS    = CHAR (14), {NOT IMPLEMENTED}
+     +     GDS__DPB_TRACE              = CHAR (15), {NOT IMPLEMENTED}
+     +     GDS__DPB_NO_GARBAGE_COLLECT = CHAR (16), {NOT IMPLEMENTED}
+     +     GDS__DPB_DAMAGED            = CHAR (17), {NOT IMPLEMENTED}
+     +     GDS__DPB_LICENSE            = CHAR (18),
+     +     GDS__DPB_SYS_USER_NAME      = CHAR (19))
+
+      PARAMETER (
+     +     GDS__DPB_ENCRYPT_KEY           = CHAR (20),
+     +     GDS__DPB_ACTIVATE_SHADOW       = CHAR (21),
+     +     GDS__DPB_SWEEP_INTERVAL        = CHAR (22),
+     +     GDS__DPB_DELETE_SHADOW         = CHAR (23))
+
+      CHARACTER*1
+     +     GDS__DPB_PAGES, GDS__DPB_RECORDS, 
+     +     GDS__DPB_INDICES, GDS__DPB_TRANSACTIONS, 
+     +     GDS__DPB_NO_UPDATE, GDS__DPB_REPAIR
+
+      PARAMETER (
+     +     GDS__DPB_PAGES = CHAR(1),
+     +     GDS__DPB_RECORDS = CHAR(2),
+     +     GDS__DPB_INDICES = CHAR(4),
+     +     GDS__DPB_TRANSACTIONS = CHAR(8),
+     +     GDS__DPB_NO_UPDATE = CHAR(16),
+     +     GDS__DPB_REPAIR = CHAR(32))
+
+
+
+C     Transaction parameter block stuff 
+
+      CHARACTER*1
+     + GDS__TPB_VERSION3, GDS__TPB_CONSISTENCY, GDS__TPB_CONCURRENCY,
+     + GDS__TPB_SHARED, GDS__TPB_PROTECTED, GDS__TPB_EXCLUSIVE,
+     + GDS__TPB_WAIT, GDS__TPB_NOWAIT, GDS__TPB_READ, GDS__TPB_WRITE,
+     + GDS__TPB_LOCK_READ, GDS__TPB_LOCK_WRITE, GDS__TPB_VERB_TIME,
+     + GDS__TPB_COMMIT_TIME                            
+
+
+      PARAMETER (
+     + GDS__TPB_VERSION3     = CHAR (3),
+     + GDS__TPB_CONSISTENCY  = CHAR (1),
+     + GDS__TPB_CONCURRENCY  = CHAR (2),
+     + GDS__TPB_SHARED       = CHAR (3),
+     + GDS__TPB_PROTECTED    = CHAR (4),
+     + GDS__TPB_EXCLUSIVE    = CHAR (5),
+     + GDS__TPB_WAIT         = CHAR (6),
+     + GDS__TPB_NOWAIT       = CHAR (7),
+     + GDS__TPB_READ         = CHAR (8),
+     + GDS__TPB_WRITE        = CHAR (9),
+     + GDS__TPB_LOCK_READ    = CHAR (10),
+     + GDS__TPB_LOCK_WRITE   = CHAR (11),
+     + GDS__TPB_VERB_TIME    = CHAR (12),
+     + GDS__TPB_COMMIT_TIME  = CHAR (13))
+
+C Blob Parameter Block
+
+      CHARACTER*1
+     +  gds__bpb_version1, gds__bpb_source_type, gds__bpb_target_type,
+     +  gds__bpb_type, gds__bpb_type_segmented, gds__bpb_type_stream
+
+      PARAMETER (
+     +  gds__bpb_version1           = CHAR (1),
+     +  gds__bpb_source_type        = CHAR (1),
+     +  gds__bpb_target_type        = CHAR (2),
+     +  gds__bpb_type               = CHAR (3),
+
+     +  gds__bpb_type_segmented     = CHAR (0),
+     +  gds__bpb_type_stream        = CHAR (1))
+
+C     Information parameters
+
+C Common, structural codes 
+
+      CHARACTER*1  GDS__INFO_END, GDS__INFO_TRUNCATED,
+     +    GDS__INFO_ERROR
+
+      PARAMETER (
+     +    GDS__INFO_END                  = CHAR(1),
+     +    GDS__INFO_TRUNCATED            = CHAR(2),
+     +    GDS__INFO_ERROR                = CHAR(3))
+
+C DATABASE INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_ID, GDS__INFO_READS, GDS__INFO_WRITES,
+     +    GDS__INFO_FETCHES, GDS__INFO_MARKS, GDS__INFO_IMPLEMENTATION,
+     +    GDS__INFO_VERSION, GDS__INFO_BASE_LEVEL, GDS__INFO_PAGE_SIZE,
+     +    GDS__INFO_NUM_BUFFERS, GDS__INFO_LIMBO,
+     +    GDS__INFO_CURRENT_MEMORY, GDS__INFO_MAX_MEMORY,
+     +    GDS__INFO_WINDOW_TURNS, GDS__INFO_DB_ID
+
+      PARAMETER (
+     +    GDS__INFO_DB_ID                = CHAR(4),
+     +    GDS__INFO_READS                = CHAR(5),
+     +    GDS__INFO_WRITES               = CHAR(6),
+     +    GDS__INFO_FETCHES              = CHAR(7),
+     +    GDS__INFO_MARKS                = CHAR(8),
+     +    GDS__INFO_IMPLEMENTATION       = CHAR(11),
+     +    GDS__INFO_VERSION              = CHAR(12),
+     +    GDS__INFO_BASE_LEVEL           = CHAR(13),
+     +    GDS__INFO_PAGE_SIZE            = CHAR(14),
+     +    GDS__INFO_NUM_BUFFERS          = CHAR(15),
+     +    GDS__INFO_LIMBO                = CHAR(16),
+     +    GDS__INFO_CURRENT_MEMORY       = CHAR(17),
+     +    GDS__INFO_MAX_MEMORY           = CHAR(18),
+     +    GDS__INFO_WINDOW_TURNS         = CHAR(19))
+
+      CHARACTER*1 GDS__INFO_LICENSE, GDS__INFO_ALLOCATION,
+     +    GDS__INFO_ATTACHMENT_ID, GDS__INFO_READ_SEQ_COUNT,
+     +    GDS__INFO_READ_IDX_COUNT, GDS__INFO_INSERT_COUNT,
+     +    GDS__INFO_UPDATE_COUNT,
+     +    GDS__INFO_DELETE_COUNT, GDS__INFO_BACKOUT_COUNT,
+     +    GDS__INFO_PURGE_COUNT, GDS__INFO_EXPUNGE_COUNT,
+     +    GDS__INFO_SWEEP_INTERVAL, GDS__INFO_ODS_VERSION,
+     +    GDS__INFO_ODS_MINOR_VERSION
+
+      PARAMETER (
+     +    GDS__INFO_LICENSE              = CHAR(20),
+     +    GDS__INFO_ALLOCATION           = CHAR(21),
+     +    GDS__INFO_ATTACHMENT_ID        = CHAR(22),
+     +    GDS__INFO_READ_SEQ_COUNT       = CHAR(23),
+     +    GDS__INFO_READ_IDX_COUNT       = CHAR(24), 
+     +    GDS__INFO_INSERT_COUNT          = CHAR(25),
+     +    GDS__INFO_UPDATE_COUNT         = CHAR(26),
+     +    GDS__INFO_DELETE_COUNT         = CHAR(27), 
+     +    GDS__INFO_BACKOUT_COUNT        = CHAR(28),
+     +    GDS__INFO_PURGE_COUNT          = CHAR(29), 
+     +    GDS__INFO_EXPUNGE_COUNT        = CHAR(30),
+     +    GDS__INFO_SWEEP_INTERVAL       = CHAR(31), 
+     +    GDS__INFO_ODS_VERSION          = CHAR(32),
+     +    GDS__INFO_ODS_MINOR_VERSION    = CHAR(33))
+
+
+
+C REQUEST INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_NUMBER_MESSAGES, GDS__INFO_MAX_MESSAGE,
+     +    GDS__INFO_MAX_SEND, GDS__INFO_MAX_RECEIVE, GDS__INFO_STATE,
+     +    GDS__INFO_MESSAGE_NUMBER, GDS__INFO_MESSAGE_SIZE,
+     +    GDS__INFO_REQUEST_COST, GDS__INFO_REQ_ACTIVE,
+     +    GDS__INFO_REQ_INACTIVE, GDS__INFO_REQ_SEND,
+     +    GDS__INFO_REQ_RECEIVE, GDS__INFO_REQ_SELECT
+
+      PARAMETER (
+     +    GDS__INFO_NUMBER_MESSAGES     = CHAR(4),
+     +    GDS__INFO_MAX_MESSAGE         = CHAR(5),
+     +    GDS__INFO_MAX_SEND            = CHAR(6),
+     +    GDS__INFO_MAX_RECEIVE         = CHAR(7),
+     +    GDS__INFO_STATE               = CHAR(8),
+     +    GDS__INFO_MESSAGE_NUMBER      = CHAR(9),
+     +    GDS__INFO_MESSAGE_SIZE        = CHAR(10),
+     +    GDS__INFO_REQUEST_COST        = CHAR(11),
+     +    GDS__INFO_REQ_ACTIVE          = CHAR(2),
+     +    GDS__INFO_REQ_INACTIVE        = CHAR(3),
+     +    GDS__INFO_REQ_SEND            = CHAR(4),
+     +    GDS__INFO_REQ_RECEIVE         = CHAR(5),
+     +    GDS__INFO_REQ_SELECT          = CHAR(6))
+
+C BLOB INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_BLOB_NUM_SEGMENTS,
+     +    GDS__INFO_BLOB_MAX_SEGMENT,
+     +    GDS__INFO_BLOB_TOTAL_LENGTH,
+     +    GDS__INFO_BLOB_TYPE
+
+      PARAMETER (
+     +    GDS__INFO_BLOB_NUM_SEGMENTS   = CHAR(4),
+     +    GDS__INFO_BLOB_MAX_SEGMENT    = CHAR(5),
+     +    GDS__INFO_BLOB_TOTAL_LENGTH   = CHAR(6),
+     +    GDS__INFO_BLOB_TYPE           = CHAR(7))
+
+C TRANSACTION INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_TRA_ID
+      PARAMETER (
+     +    GDS__INFO_TRA_ID               = CHAR(4))
+
+C Dynamic SQL datatypes
+
+      INTEGER*2
+     + SQL_TEXT,
+     + SQL_VARYING,
+     + SQL_SHORT,
+     + SQL_LONG,
+     + SQL_FLOAT,
+     + SQL_DOUBLE,
+     + SQL_D_FLOAT,
+     + SQL_DATE,
+     + SQL_BLOB
+
+      PARAMETER (
+     + SQL_TEXT = 452,
+     + SQL_VARYING = 448,
+     + SQL_SHORT = 500,
+     + SQL_LONG = 496,
+     + SQL_FLOAT = 482,
+     + SQL_DOUBLE = 480,
+     + SQL_D_FLOAT = 530,
+     + SQL_DATE = 510,
+     + SQL_BLOB = 520)
+
+C  Forms Package definitions 
+
+C  Map definition block definitions 
+
+      INTEGER*2
+     + PYXIS__MAP_VERSION1,
+     + PYXIS__MAP_FIELD2,
+     + PYXIS__MAP_FIELD1,
+     + PYXIS__MAP_MESSAGE,
+     + PYXIS__MAP_TERMINATOR,
+     + PYXIS__MAP_TERMINATING_FIELD,
+     + PYXIS__MAP_OPAQUE,
+     + PYXIS__MAP_TRANSPARENT,
+     + PYXIS__MAP_TAG,
+     + PYXIS__MAP_SUB_FORM,
+     + PYXIS__MAP_ITEM_INDEX,
+     + PYXIS__MAP_SUB_FIELD,
+     + PYXIS__MAP_END
+
+      PARAMETER (
+     + PYXIS__MAP_VERSION1                    = 1,
+     + PYXIS__MAP_FIELD2                      = 2,
+     + PYXIS__MAP_FIELD1                      = 3,
+     + PYXIS__MAP_MESSAGE                     = 4,
+     + PYXIS__MAP_TERMINATOR                  = 5,
+     + PYXIS__MAP_TERMINATING_FIELD           = 6,
+     + PYXIS__MAP_OPAQUE                      = 7,
+     + PYXIS__MAP_TRANSPARENT                 = 8,
+     + PYXIS__MAP_TAG                         = 9,
+     + PYXIS__MAP_SUB_FORM                    = 10,
+     + PYXIS__MAP_ITEM_INDEX                  = 11,
+     + PYXIS__MAP_SUB_FIELD                   = 12,
+     + PYXIS__MAP_END                         = -1)
+
+C  Field option flags for display options 
+
+      INTEGER*2
+     + PYXIS__OPT_DISPLAY,
+     + PYXIS__OPT_UPDATE,
+     + PYXIS__OPT_WAKEUP,
+     + PYXIS__OPT_POSITION
+
+      PARAMETER (
+     + PYXIS__OPT_DISPLAY                     = 1,
+     + PYXIS__OPT_UPDATE                      = 2,
+     + PYXIS__OPT_WAKEUP                      = 4,
+     + PYXIS__OPT_POSITION                    = 8)
+
+C  Field option values following display 
+
+      INTEGER*2
+     + PYXIS__OPT_NULL,
+     + PYXIS__OPT_DEFAULT,
+     + PYXIS__OPT_INITIAL,
+     + PYXIS__OPT_USER_DATA
+
+      PARAMETER (
+     + PYXIS__OPT_NULL                        = 1,
+     + PYXIS__OPT_DEFAULT                     = 2,
+     + PYXIS__OPT_INITIAL                     = 3,
+     + PYXIS__OPT_USER_DATA                   = 4)
+
+C  Pseudo key definitions 
+
+      INTEGER*2
+     + PYXIS__KEY_DELETE,
+     + PYXIS__KEY_UP,
+     + PYXIS__KEY_DOWN,
+     + PYXIS__KEY_RIGHT,
+     + PYXIS__KEY_LEFT,
+     + PYXIS__KEY_PF1,
+     + PYXIS__KEY_PF2,
+     + PYXIS__KEY_PF3,
+     + PYXIS__KEY_PF4,
+     + PYXIS__KEY_PF5,
+     + PYXIS__KEY_PF6,
+     + PYXIS__KEY_PF7,
+     + PYXIS__KEY_PF8,
+     + PYXIS__KEY_PF9,
+     + PYXIS__KEY_ENTER,
+     + PYXIS__KEY_SCROLL_TOP,
+     + PYXIS__KEY_SCROLL_BOTTOM
+
+      PARAMETER (
+     + PYXIS__KEY_DELETE                      = 127,
+     + PYXIS__KEY_UP                          = 128,
+     + PYXIS__KEY_DOWN                        = 129,
+     + PYXIS__KEY_RIGHT                       = 130,
+     + PYXIS__KEY_LEFT                        = 131,
+     + PYXIS__KEY_PF1                         = 132,
+     + PYXIS__KEY_PF2                         = 133,
+     + PYXIS__KEY_PF3                         = 134,
+     + PYXIS__KEY_PF4                         = 135,
+     + PYXIS__KEY_PF5                         = 136,
+     + PYXIS__KEY_PF6                         = 137,
+     + PYXIS__KEY_PF7                         = 138,
+     + PYXIS__KEY_PF8                         = 139,
+     + PYXIS__KEY_PF9                         = 140,
+     + PYXIS__KEY_ENTER                       = 141,
+     + PYXIS__KEY_SCROLL_TOP                  = 146,
+     + PYXIS__KEY_SCROLL_BOTTOM               = 147)
+
+C  Menu definition stuff 
+
+      INTEGER*2
+     + PYXIS__MENU_VERSION1,
+     + PYXIS__MENU_LABEL,
+     + PYXIS__MENU_ENTREE,
+     + PYXIS__MENU_OPAQUE,
+     + PYXIS__MENU_TRANSPARENT,
+     + PYXIS__MENU_HORIZONTAL,
+     + PYXIS__MENU_VERTICAL,
+     + PYXIS__MENU_END
+
+      PARAMETER (
+     + PYXIS__MENU_VERSION1                   = 1,
+     + PYXIS__MENU_LABEL                      = 2,
+     + PYXIS__MENU_ENTREE                     = 3,
+     + PYXIS__MENU_OPAQUE                     = 4,
+     + PYXIS__MENU_TRANSPARENT                = 5,
+     + PYXIS__MENU_HORIZONTAL                 = 6,
+     + PYXIS__MENU_VERTICAL                   = 7,
+     + PYXIS__MENU_END                        = -1)
+
+
+C     Error Codes
+
+      INTEGER*4
+     + GDS_FACILITY,
+     + GDS_ERR_BASE,
+     + GDS_ERR_FACTOR
+
+      INTEGER*4
+     + GDS_ARG_END,          { end of argument list }
+     + GDS_ARG_GDS,          { generic DSRI status value }
+     + GDS_ARG_STRING,       { string argument }
+     + GDS_ARG_CSTRING,      { count & string argument }
+     + GDS_ARG_NUMBER,       { numeric argument (long) }
+     + GDS_ARG_INTERPRETED,  { interpreted status code (string) }
+     + GDS_ARG_VMS,          { VAX/VMS status code (long) }
+     + GDS_ARG_UNIX,         { UNIX error code }
+     + GDS_ARG_DOMAIN       { Apollo/Domain error code }
+
+
+      PARAMETER (
+     + GDS_FACILITY    = 20,
+     + GDS_ERR_BASE    = 335544320,
+     + GDS_ERR_FACTOR  = 1)
+
+      PARAMETER (
+     + GDS_ARG_END          = 0,   { end of argument list }
+     + GDS_ARG_GDS          = 1,   { generic DSRI status value }
+     + GDS_ARG_STRING       = 2,   { string argument }
+     + GDS_ARG_CSTRING      = 3,   { count & string argument }
+     + GDS_ARG_NUMBER       = 4,   { numeric argument (long) }
+     + GDS_ARG_INTERPRETED  = 5,   { interpreted status code (string) }
+     + GDS_ARG_VMS          = 6,   { VAX/VMS status code (long) }
+     + GDS_ARG_UNIX         = 7,   { UNIX error code }
+     + GDS_ARG_DOMAIN       = 8)   { Apollo/Domain error code }
+
+      INTEGER*4 GDS__arith_except        
+      PARAMETER (GDS__arith_except         = 335544321)
+      INTEGER*4 GDS__bad_dbkey           
+      PARAMETER (GDS__bad_dbkey            = 335544322)
+      INTEGER*4 GDS__bad_db_format       
+      PARAMETER (GDS__bad_db_format        = 335544323)
+      INTEGER*4 GDS__bad_db_handle       
+      PARAMETER (GDS__bad_db_handle        = 335544324)
+      INTEGER*4 GDS__bad_dpb_content     
+      PARAMETER (GDS__bad_dpb_content      = 335544325)
+      INTEGER*4 GDS__bad_dpb_form        
+      PARAMETER (GDS__bad_dpb_form         = 335544326)
+      INTEGER*4 GDS__bad_req_handle      
+      PARAMETER (GDS__bad_req_handle       = 335544327)
+      INTEGER*4 GDS__bad_segstr_handle   
+      PARAMETER (GDS__bad_segstr_handle    = 335544328)
+      INTEGER*4 GDS__bad_segstr_id       
+      PARAMETER (GDS__bad_segstr_id        = 335544329)
+      INTEGER*4 GDS__bad_tpb_content     
+      PARAMETER (GDS__bad_tpb_content      = 335544330)
+      INTEGER*4 GDS__bad_tpb_form        
+      PARAMETER (GDS__bad_tpb_form         = 335544331)
+      INTEGER*4 GDS__bad_trans_handle    
+      PARAMETER (GDS__bad_trans_handle     = 335544332)
+      INTEGER*4 GDS__bug_check           
+      PARAMETER (GDS__bug_check            = 335544333)
+      INTEGER*4 GDS__convert_error       
+      PARAMETER (GDS__convert_error        = 335544334)
+      INTEGER*4 GDS__db_corrupt          
+      PARAMETER (GDS__db_corrupt           = 335544335)
+      INTEGER*4 GDS__deadlock            
+      PARAMETER (GDS__deadlock             = 335544336)
+      INTEGER*4 GDS__excess_trans        
+      PARAMETER (GDS__excess_trans         = 335544337)
+      INTEGER*4 GDS__from_no_match       
+      PARAMETER (GDS__from_no_match        = 335544338)
+      INTEGER*4 GDS__infinap             
+      PARAMETER (GDS__infinap              = 335544339)
+      INTEGER*4 GDS__infona              
+      PARAMETER (GDS__infona               = 335544340)
+      INTEGER*4 GDS__infunk              
+      PARAMETER (GDS__infunk               = 335544341)
+      INTEGER*4 GDS__integ_fail          
+      PARAMETER (GDS__integ_fail           = 335544342)
+      INTEGER*4 GDS__invalid_blr         
+      PARAMETER (GDS__invalid_blr          = 335544343)
+      INTEGER*4 GDS__io_error            
+      PARAMETER (GDS__io_error             = 335544344)
+      INTEGER*4 GDS__lock_conflict       
+      PARAMETER (GDS__lock_conflict        = 335544345)
+      INTEGER*4 GDS__metadata_corrupt    
+      PARAMETER (GDS__metadata_corrupt     = 335544346)
+      INTEGER*4 GDS__not_valid           
+      PARAMETER (GDS__not_valid            = 335544347)
+      INTEGER*4 GDS__no_cur_rec          
+      PARAMETER (GDS__no_cur_rec           = 335544348)
+      INTEGER*4 GDS__no_dup              
+      PARAMETER (GDS__no_dup               = 335544349)
+      INTEGER*4 GDS__no_finish           
+      PARAMETER (GDS__no_finish            = 335544350)
+      INTEGER*4 GDS__no_meta_update      
+      PARAMETER (GDS__no_meta_update       = 335544351)
+      INTEGER*4 GDS__no_priv             
+      PARAMETER (GDS__no_priv              = 335544352)
+      INTEGER*4 GDS__no_recon            
+      PARAMETER (GDS__no_recon             = 335544353)
+      INTEGER*4 GDS__no_record           
+      PARAMETER (GDS__no_record            = 335544354)
+      INTEGER*4 GDS__no_segstr_close     
+      PARAMETER (GDS__no_segstr_close      = 335544355)
+      INTEGER*4 GDS__obsolete_metadata   
+      PARAMETER (GDS__obsolete_metadata    = 335544356)
+      INTEGER*4 GDS__open_trans          
+      PARAMETER (GDS__open_trans           = 335544357)
+      INTEGER*4 GDS__port_len            
+      PARAMETER (GDS__port_len             = 335544358)
+      INTEGER*4 GDS__read_only_field     
+      PARAMETER (GDS__read_only_field      = 335544359)
+      INTEGER*4 GDS__read_only_rel       
+      PARAMETER (GDS__read_only_rel        = 335544360)
+      INTEGER*4 GDS__read_only_trans     
+      PARAMETER (GDS__read_only_trans      = 335544361)
+      INTEGER*4 GDS__read_only_view      
+      PARAMETER (GDS__read_only_view       = 335544362)
+      INTEGER*4 GDS__req_no_trans        
+      PARAMETER (GDS__req_no_trans         = 335544363)
+      INTEGER*4 GDS__req_sync            
+      PARAMETER (GDS__req_sync             = 335544364)
+      INTEGER*4 GDS__req_wrong_db        
+      PARAMETER (GDS__req_wrong_db         = 335544365)
+      INTEGER*4 GDS__segment             
+      PARAMETER (GDS__segment              = 335544366)
+      INTEGER*4 GDS__segstr_eof          
+      PARAMETER (GDS__segstr_eof           = 335544367)
+      INTEGER*4 GDS__segstr_no_op        
+      PARAMETER (GDS__segstr_no_op         = 335544368)
+      INTEGER*4 GDS__segstr_no_read      
+      PARAMETER (GDS__segstr_no_read       = 335544369)
+      INTEGER*4 GDS__segstr_no_trans     
+      PARAMETER (GDS__segstr_no_trans      = 335544370)
+      INTEGER*4 GDS__segstr_no_write     
+      PARAMETER (GDS__segstr_no_write      = 335544371)
+      INTEGER*4 GDS__segstr_wrong_db     
+      PARAMETER (GDS__segstr_wrong_db      = 335544372)
+      INTEGER*4 GDS__sys_request         
+      PARAMETER (GDS__sys_request          = 335544373)
+      INTEGER*4 GDS__unavailable         
+      PARAMETER (GDS__unavailable          = 335544375)
+      INTEGER*4 GDS__unres_rel           
+      PARAMETER (GDS__unres_rel            = 335544376)
+      INTEGER*4 GDS__uns_ext             
+      PARAMETER (GDS__uns_ext              = 335544377)
+      INTEGER*4 GDS__wish_list           
+      PARAMETER (GDS__wish_list            = 335544378)
+      INTEGER*4 GDS__wrong_ods           
+      PARAMETER (GDS__wrong_ods            = 335544379)
+      INTEGER*4 GDS__wronumarg           
+      PARAMETER (GDS__wronumarg            = 335544380)
+      INTEGER*4 GDS__imp_exc             
+      PARAMETER (GDS__imp_exc              = 335544381)
+      INTEGER*4 GDS__random              
+      PARAMETER (GDS__random               = 335544382)
+      INTEGER*4 GDS__fatal_conflict      
+      PARAMETER (GDS__fatal_conflict       = 335544383)
+
+C     Minor codes subject to change 
+
+      INTEGER*4 GDS__badblk              
+      PARAMETER (GDS__badblk               = 335544384)
+      INTEGER*4 GDS__invpoolcl           
+      PARAMETER (GDS__invpoolcl            = 335544385)
+      INTEGER*4 GDS__nopoolids           
+      PARAMETER (GDS__nopoolids            = 335544386)
+      INTEGER*4 GDS__relbadblk           
+      PARAMETER (GDS__relbadblk            = 335544387)
+      INTEGER*4 GDS__blktoobig           
+      PARAMETER (GDS__blktoobig            = 335544388)
+      INTEGER*4 GDS__bufexh              
+      PARAMETER (GDS__bufexh               = 335544389)
+      INTEGER*4 GDS__syntaxerr           
+      PARAMETER (GDS__syntaxerr            = 335544390)
+      INTEGER*4 GDS__bufinuse            
+      PARAMETER (GDS__bufinuse             = 335544391)
+      INTEGER*4 GDS__bdbincon            
+      PARAMETER (GDS__bdbincon             = 335544392)
+      INTEGER*4 GDS__reqinuse            
+      PARAMETER (GDS__reqinuse             = 335544393)
+      INTEGER*4 GDS__badodsver           
+      PARAMETER (GDS__badodsver            = 335544394)
+      INTEGER*4 GDS__relnotdef           
+      PARAMETER (GDS__relnotdef            = 335544395)
+      INTEGER*4 GDS__fldnotdef           
+      PARAMETER (GDS__fldnotdef            = 335544396)
+      INTEGER*4 GDS__dirtypage           
+      PARAMETER (GDS__dirtypage            = 335544397)
+      INTEGER*4 GDS__waifortra           
+      PARAMETER (GDS__waifortra            = 335544398)
+      INTEGER*4 GDS__doubleloc           
+      PARAMETER (GDS__doubleloc            = 335544399)
+      INTEGER*4 GDS__nodnotfnd           
+      PARAMETER (GDS__nodnotfnd            = 335544400)
+      INTEGER*4 GDS__dupnodfnd           
+      PARAMETER (GDS__dupnodfnd            = 335544401)
+      INTEGER*4 GDS__locnotmar           
+      PARAMETER (GDS__locnotmar            = 335544402)
+      INTEGER*4 GDS__badpagtyp           
+      PARAMETER (GDS__badpagtyp            = 335544403)
+      INTEGER*4 GDS__corrupt             
+      PARAMETER (GDS__corrupt              = 335544404)
+      INTEGER*4 GDS__badpage             
+      PARAMETER (GDS__badpage              = 335544405)
+      INTEGER*4 GDS__badindex            
+      PARAMETER (GDS__badindex             = 335544406)
+      INTEGER*4 GDS__dbbnotzer           
+      PARAMETER (GDS__dbbnotzer            = 335544407)
+      INTEGER*4 GDS__tranotzer           
+      PARAMETER (GDS__tranotzer            = 335544408)
+      INTEGER*4 GDS__trareqmis           
+      PARAMETER (GDS__trareqmis            = 335544409)
+      INTEGER*4 GDS__badhndcnt           
+      PARAMETER (GDS__badhndcnt            = 335544410)
+      INTEGER*4 GDS__wrotpbver           
+      PARAMETER (GDS__wrotpbver            = 335544411)
+      INTEGER*4 GDS__wroblrver           
+      PARAMETER (GDS__wroblrver            = 335544412)
+      INTEGER*4 GDS__wrodpbver           
+      PARAMETER (GDS__wrodpbver            = 335544413)
+      INTEGER*4 GDS__blobnotsup          
+      PARAMETER (GDS__blobnotsup           = 335544414)
+      INTEGER*4 GDS__badrelation         
+      PARAMETER (GDS__badrelation          = 335544415)
+      INTEGER*4 GDS__nodetach            
+      PARAMETER (GDS__nodetach             = 335544416)
+      INTEGER*4 GDS__notremote           
+      PARAMETER (GDS__notremote            = 335544417)
+      INTEGER*4 GDS__trainlim            
+      PARAMETER (GDS__trainlim             = 335544418)
+      INTEGER*4 GDS__notinlim            
+      PARAMETER (GDS__notinlim             = 335544419)
+      INTEGER*4 GDS__traoutsta           
+      PARAMETER (GDS__traoutsta            = 335544420)
+      INTEGER*4 GDS__connect_reject      
+      PARAMETER (GDS__connect_reject       = 335544421)
+      INTEGER*4 GDS__dbfile              
+      PARAMETER (GDS__dbfile               = 335544422)
+      INTEGER*4 GDS__orphan              
+      PARAMETER (GDS__orphan               = 335544423)
+      INTEGER*4 GDS__no_lock_mgr         
+      PARAMETER (GDS__no_lock_mgr          = 335544424)
+      INTEGER*4 GDS__ctxinuse            
+      PARAMETER (GDS__ctxinuse             = 335544425)
+      INTEGER*4 GDS__ctxnotdef           
+      PARAMETER (GDS__ctxnotdef            = 335544426)
+      INTEGER*4 GDS__datnotsup           
+      PARAMETER (GDS__datnotsup            = 335544427)
+      INTEGER*4 GDS__badmsgnum           
+      PARAMETER (GDS__badmsgnum            = 335544428)
+      INTEGER*4 GDS__badparnum           
+      PARAMETER (GDS__badparnum            = 335544429)
+      INTEGER*4 GDS__virmemexh           
+      PARAMETER (GDS__virmemexh            = 335544430)
+      INTEGER*4 GDS__blocking_signal     
+      PARAMETER (GDS__blocking_signal      = 335544431)
+      INTEGER*4 GDS__lockmanerr          
+      PARAMETER (GDS__lockmanerr           = 335544432)
+      INTEGER*4 GDS__journerr            
+      PARAMETER (GDS__journerr             = 335544433)
+      INTEGER*4 GDS__keytoobig           
+      PARAMETER (GDS__keytoobig            = 335544434)
+      INTEGER*4 GDS__nullsegkey          
+      PARAMETER (GDS__nullsegkey           = 335544435)
+      INTEGER*4 GDS__sqlerr              
+      PARAMETER (GDS__sqlerr               = 335544436)
+      INTEGER*4 GDS__wrodynver           
+      PARAMETER (GDS__wrodynver            = 335544437)
+      INTEGER*4 gds__obj_in_use
+      PARAMETER (gds__obj_in_use           = 335544453)
+      INTEGER*4 gds__no_filter
+      PARAMETER (gds__no_filter            = 335544454)
+      INTEGER*4 gds__shadow_accessed
+      PARAMETER (gds__shadow_accessed      = 335544455)
+      INTEGER*4 gds__invalid_sdl
+      PARAMETER (gds__invalid_sdl          = 335544456)
+      INTEGER*4 gds__out_of_bounds
+      PARAMETER (gds__out_of_bounds        = 335544457)
+      INTEGER*4 gds__invalid_dimension
+      PARAMETER (gds__invalid_dimension    = 335544458)
+      INTEGER*4 gds__rec_in_limbo
+      PARAMETER (gds__rec_in_limbo = 335544459)
+      INTEGER*4 gds__shadow_missing
+      PARAMETER (gds__shadow_missing = 335544460)
+      INTEGER*4 gds__cant_validate
+      PARAMETER (gds__cant_validate = 335544461)
+      INTEGER*4 gds__cant_start_journal
+      PARAMETER (gds__cant_start_journal = 335544462)
+      INTEGER*4 gds__gennotdef
+      PARAMETER (gds__gennotdef = 335544463)
+      INTEGER*4 gds__cant_start_logging
+      PARAMETER (gds__cant_start_logging = 335544464)
+      INTEGER*4 gds__bad_segstr_type
+      PARAMETER (gds__bad_segstr_type = 335544465)
+      INTEGER*4 gds__foreign_key
+      PARAMETER (gds__foreign_key = 335544466)
+      INTEGER*4 gds__high_minor
+      PARAMETER (gds__high_minor = 335544467)
+      INTEGER*4 gds__tra_state
+      PARAMETER (gds__tra_state = 335544468)
+      INTEGER*4 gds__trans_invalid
+      PARAMETER (gds__trans_invalid = 335544469)
+      INTEGER*4 gds__buf_invalid
+      PARAMETER (gds__buf_invalid = 335544470)
+      INTEGER*4 gds__indexnotdefined
+      PARAMETER (gds__indexnotdefined = 335544471)
+      INTEGER*4 gds__login
+      PARAMETER (gds__login = 335544472)
+      INTEGER*4 gds__invalid_bookmark
+      PARAMETER (gds__invalid_bookmark = 335544473)
+      INTEGER*4 gds__bad_lock_level
+      PARAMETER (gds__bad_lock_level = 335544474)
+      INTEGER*4 gds__relation_lock
+      PARAMETER (gds__relation_lock = 335544475)
+      INTEGER*4 gds__record_lock
+      PARAMETER (gds__record_lock = 335544476)
+      INTEGER*4 gds__max_idx
+      PARAMETER (gds__max_idx = 335544477)
+      INTEGER*4 gds__jrn_enable
+      PARAMETER (gds__jrn_enable = 335544478)
+      INTEGER*4 gds__old_failure
+      PARAMETER (gds__old_failure = 335544479)
+      INTEGER*4 gds__old_in_porgress
+      PARAMETER (gds__old_in_progress = 335544480)
+      INTEGER*4 gds__old_no_space
+      PARAMETER (gds__old_no_space = 335544481)
+      INTEGER*4 gds__no_wal_no_jrn
+      PARAMETER (gds__no_wal_no_jrn = 335544482)
+      INTEGER*4 gds__num_old_files
+      PARAMETER (gds__num_old_files = 335544483)
+      INTEGER*4 gds__wal_file_open
+      PARAMETER (gds__wal_file_open = 335544484)
+      INTEGER*4 gds__bad_stmt_handle
+      PARAMETER (gds__bad_stmt_handle = 335544485)
+      INTEGER*4 gds__wal_failure
+      PARAMETER (gds__wal_failue = 335544486)
+      INTEGER*4 gds__walw_err
+      PARAMETER (gds__walw_err = 335544487)
+      INTEGER*4 gds__logh_small
+      PARAMETER (gds__logh_small = 335544488)
+      INTEGER*4 gds__logh_inv_version
+      PARAMETER (gds__logh_inv_version = 335544489)
+      INTEGER*4 gds__logh_open_flag
+      PARAMETER (gds__logh_open_flag = 335544490)
+      INTEGER*4 gds__logh_open_flag2
+      PARAMETER (gds__logh_open_flag2 = 335544491)
+      INTEGER*4 gds__logh_diff_dbname
+      PARAMETER (gds__logh_diff_dbname = 335544492)
+      INTEGER*4 gds__logf_unexpected_eof
+      PARAMETER (gds__logf_unexpected_eof = 335544493)
+      INTEGER*4 gds__logr_incomplete
+      PARAMETER (gds__logr_incomplete = 335544494)
+      INTEGER*4 gds__logr_header_small
+      PARAMETER (gds__logr_header_small = 335544495)
+      INTEGER*4 gds__logb_small
+      PARAMETER (gds__logb_small = 335544496)
+      INTEGER*4 gds__wal_illegal_attach
+      PARAMETER (gds__wal_illegal_attach = 335544497)
+      INTEGER*4 gds__wal_invalid_wpb
+      PARAMETER (gds__wal_invalid_wpb = 335544498)
+      INTEGER*4 gds__wal_err_rollover
+      PARAMETER (gds__wal_err_rollover = 335544499)
+      INTEGER*4 gds__no_wal
+      PARAMETER (gds__no_wal = 335544500)
+      INTEGER*4 gds__drop_wal
+      PARAMETER (gds__drop_wal = 335544501)
+      INTEGER*4 gds__stream_not_defined
+      PARAMETER (gds__stream_not_defined = 335544502)
+      INTEGER*4 gds__unknown_183
+      PARAMETER (gds__unknown_183 = 335544503)
+      INTEGER*4 gds__wal_subsys_error
+      PARAMETER (gds__wal_subsys_error = 335544504)
+      INTEGER*4 gds__wal_subsys_corrupt
+      PARAMETER (gds__wal_subsys_corrupt = 335544505)
+      INTEGER*4 gds__no_archive
+      PARAMETER (gds__no_archive = 335544506)
+      INTEGER*4 gds__store_proc_failed
+      PARAMETER (gds__store_proc_failed = 335544507)
+      INTEGER*4 gds__range_in_use
+      PARAMETER (gds__range_in_use = 335544508)
+      INTEGER*4 gds__range_not_found
+      PARAMETER (gds__range_not_found = 335544508)
+      INTEGER*4 gds__charset_not_found
+      PARAMETER (gds__charset_not_found = 335544510)
+      INTEGER*4 gds__lock_timeout
+      PARAMETER (gds__lock_timeout = 335544511)
+      INTEGER*4 gds__prcnotdef
+      PARAMETER (gds__prcnotdef = 335544512)
+      INTEGER*4 gds__prcmismat
+      PARAMETER (gds__prcmismat = 335544513)
+
+
+
diff --git a/src/jrd/gds_h3.f b/src/jrd/gds_h3.f
new file mode 100644
index 0000000000..f1cdd2c86e
--- /dev/null
+++ b/src/jrd/gds_h3.f
@@ -0,0 +1,1572 @@
+C  The contents of this file are subject to the Interbase Public
+C  License Version 1.0 (the "License"); you may not use this file
+C  except in compliance with the License. You may obtain a copy
+C  of the License at http://www.Inprise.com/IPL.html
+C
+C  Software distributed under the License is distributed on an
+C  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+C  or implied. See the License for the specific language governing
+C  rights and limitations under the License.
+C
+C  The Original Code was created by Inprise Corporation
+C  and its predecessors. Portions created by Inprise Corporation are
+C  Copyright (C) Inprise Corporation.
+C
+C  All Rights Reserved.
+C  Contributor(s): ______________________________________.
+C
+C         PROGRAM:        Preprocessor
+C         MODULE:         gds.ftn
+C         DESCRIPTION:    GDS constants, procedures, etc.
+C 
+
+$ALIAS gds__attach_database (%REF, %VAL, %REF, %REF, %VAL, %REF)
+
+$ALIAS gds__blob_display (%REF, %REF, %REF, %REF, %REF)
+$ALIAS gds__blob_dump (%REF, %REF, %REF, %REF, %REF)
+$ALIAS gds__blob_edit (%REF, %REF, %REF, %REF, %REF)
+$ALIAS gds__blob_load (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS gds__cancel_blob (%REF, %REF)
+
+$ALIAS gds__cancel_events (%REF, %REF, %REF)
+$ALIAS gds__close (%REF, %REF)
+$ALIAS gds__close_blob (%REF, %REF)
+$ALIAS gds__commit_retaining (%REF, %REF)
+$ALIAS gds__commit_transaction (%REF, %REF)
+$ALIAS gds__compile_request (%REF, %REF, %REF, %VAL, %REF)
+$ALIAS gds__compile_request2 (%REF, %REF, %REF, %VAL, %REF)
+$ALIAS gds__create_blob (%REF, %REF, %REF, %REF, %REF)
+$ALIAS gds__create_blob2 (%REF, %REF, %REF, %REF, %REF, %VAL, %REF)
+$ALIAS gds__create_database (%REF, %VAL, %REF, %REF, %VAL, %REF, %REF)
+
+$ALIAS gds__ddl (%REF, %REF,  %REF, %VAL, %REF)
+$ALIAS gds__declare (%REF, %REF, %REF)
+$ALIAS gds__decode_date (%REF, %REF)
+$ALIAS gds__describe (%REF, %REF, %REF)
+$ALIAS gds__detach_database (%REF, %REF)
+$ALIAS gds__dsql_finish (%REF)
+
+$ALIAS gds__encode_date (%REF, %REF)
+$ALIAS gds__event_block_a (%REF, %REF, %VAL, %REF)
+$ALIAS gds__event_counts (%REF, %VAL, %VAL, %VAL)
+$ALIAS gds__event_wait (%REF, %REF, %VAL, %VAL, %VAL)
+$ALIAS gds__execute (%REF, %REF, %REF, %REF)
+$ALIAS gds__execute_immediate (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS gds__fetch (%REF, %REF, %REF)
+$ALIAS gds__ftof (%REF, %VAL, %REF, %VAL)
+
+$ALIAS gds__get_segment (%REF, %REF, %REF, %VAL, %REF)
+$ALIAS gds__get_slice (%REF, %REF, %REF, %REF, %VAL, %REF, %VAL,\
+$ %REF, %VAL, %REF, %REF)
+
+$ALIAS gds__open (%REF, %REF, %REF, %REF)
+$ALIAS gds__open_blob (%REF, %REF, %REF, %REF, %REF)
+$ALIAS gds__open_blob2 (%REF, %REF, %REF, %REF, %REF, %VAL, %REF)
+
+$ALIAS gds__prepare (%REF, %REF, %REF, %REF, %REF, %REF, %REF)
+$ALIAS gds__prepare_transaction (%REF, %REF)
+$ALIAS gds__prepare_transaction2 (%REF, %REF, %VAL, %REF)
+$ALIAS gds__print_status (%REF)
+$ALIAS gds__put_segment (%REF, %REF, %VAL, %REF)
+$ALIAS gds__put_slice (%REF, %REF, %REF, %REF, %VAL, %REF, %VAL, %REF,\
+$ %VAL, %REF)
+
+$ALIAS gds__que_events (%REF, %REF, %REF, %VAL, %REF, %VAL, %REF)
+
+$ALIAS gds__receive (%REF, %REF, %VAL, %VAL, %REF, %VAL)
+$ALIAS gds__rollback_transaction (%REF, %REF)
+
+$ALIAS gds__sqlcode (%REF)
+$ALIAS gds__send (%REF, %REF, %VAL, %VAL, %REF, %VAL)
+$ALIAS gds__start_and_send (%REF, %REF, %REF, %VAL, %VAL, %REF, %VAL)
+$ALIAS gds__start_multiple (%REF, %REF, %VAL, %REF)
+$ALIAS gds__start_request (%REF, %REF, %REF, %VAL)
+$ALIAS gds__start_transaction (%REF, %REF, %VAL, %REF, %VAL, %REF)
+
+$ALIAS gds__unwind_request (%REF, %REF, %VAL)
+
+$ALIAS gds__version (%REF, %VAL, %REF)
+
+$ALIAS isc_baddress (%REF)
+
+$ALIAS isc_dsql_allocate_statement (%REF, %REF, %REF)
+$ALIAS isc_dsql_alloc_statement2 (%REF, %REF, %REF)
+$ALIAS isc_dsql_execute_m (%REF, %REF, %REF, %VAL, %REF, %VAL,\
+$ %VAL, %VAL)
+$ALIAS isc_dsql_execute2_m (%REF, %REF, %REF, %VAL, %REF, %VAL,\
+$ %VAL, %VAL, %VAL, %REF, %VAL, %VAL, %VAL)
+$ALIAS isc_dsql_free_statement (%REF, %REF, %VAL)
+$ALIAS isc_dsql_set_cursor_name (%REF, %REF, %REF, %VAL)
+
+$ALIAS isc_embed_dsql_close (%REF, %REF)
+$ALIAS isc_embed_dsql_declare (%REF, %REF, %REF)
+$ALIAS isc_embed_dsql_describe (%REF, %REF, %VAL, %VAL)
+$ALIAS isc_embed_dsql_describe_bind (%REF, %REF, %VAL, %VAL)
+$ALIAS isc_embed_dsql_execute (%REF, %REF, %REF, %VAL, %VAL)
+$ALIAS isc_embed_dsql_execute2 (%REF, %REF, %REF, %VAL, %VAL, %VAL)
+$ALIAS isc_embed_dsql_execute_immed (%REF, %REF, %REF, %VAL, %REF,\
+$ %VAL, %VAL)
+$ALIAS isc_embed_dsql_fetch (%REF, %REF, %VAL, %VAL)
+$ALIAS isc_embed_dsql_open (%REF, %REF, %REF, %VAL, %VAL)
+$ALIAS isc_embed_dsql_prepare (%REF, %REF, %REF, %REF, %VAL, %REF,\
+$ %VAL, %VAL)
+$ALIAS isc_embed_dsql_release (%REF, %REF)
+
+$ALIAS pyxis__compile_map (%REF, %REF, %REF, %REF, %REF)
+$ALIAS pyxis__compile_menu (%REF, %REF, %REF, %REF)
+$ALIAS pyxis__compile_sub_map (%REF, %REF, %REF, %REF, %REF)
+$ALIAS pyxis__create_window (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__delete_window (%REF)
+$ALIAS pyxis__drive_form (%REF, %REF, %REF, %REF, %REF, %REF, %REF)
+$ALIAS pyxis__drive_menu (%REF, %REF, %REF, %REF, %REF, %REF, %REF,\
+$ %REF, %REF, %REF)
+
+$ALIAS pyxis__fetch (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__get_entree (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__initialize_menu (%REF)
+$ALIAS pyxis__insert (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__load_form (%REF, %REF, %REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__menu (%REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__pop_window (%REF)
+$ALIAS pyxis__put_entree (%REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__reset_form (%REF, %REF)
+$ALIAS pyxis__suspend_window (%REF)
+$ALIAS blob__edit (%REF, %REF, %REF, %REF, %REF)
+$ALIAS blob__display (%REF, %REF, %REF, %REF, %REF)
+$ALIAS blob__dump (%REF, %REF, %REF, %REF, %REF)
+$ALIAS blob__load (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS isc_exec_procedure (%REF, %REF, %REF, %VAL, %REF,\
+$ %VAL, %REF, %VAL, %REF, %VAL, %REF)
+
+C     PROCEDURE GDS__ATTACH_DATABASE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    !{ INPUT }
+C        CHARACTER* (*)  FILE_NAME,      !{ INPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*2       DPB_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  DPB             !{ INPUT }
+C        )
+
+      INTEGER*4 ISC_BADDRESS 
+C     INTEGER*4 FUNCTION ISC_BADDRESS (
+C        INTEGER*4       HANDLE          !( INPUT )
+C        )
+
+C     PROCEDURE GDS__CANCEL_BLOB (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__CANCEL_EVENTS (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       ID              !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__CLOSE_BLOB (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__COMMIT_RETAINING (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE      !{ INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE      !{ INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__COMPILE_REQUEST (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  BLR             !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__COMPILE_REQUEST2 (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  BLR             !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_BLOB (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2)      !{ OUTPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_BLOB2 (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2),      !{ OUTPUT }
+C        CHARACTER* (*)  BPB             !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_DATABASE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    !{ INPUT }
+C        CHARACTER* (*)  FILE_NAME,      !{ INPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*2       DPB_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  DPB             !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__DETACH_DATABASE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE       !{ INPUT / OUTPUT }
+C        )
+
+      INTEGER*2 GDS__EVENT_BLOCK_A
+C     PROCEDURE GDS__EVENT_BLOCK_A (
+C        CHARACTER* (*)  EVENTS,         !{ INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          !{ INPUT/OUTPUT }
+C        INTEGER*2       COUNT,          !{ INPUT }
+C        CHARACTER*31    EVENT_NAMES     !{ INPUT/OUTPUT }
+C        )
+
+C     PROCEDURE GDS__EVENT_WAIT (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*2       LENGTH,         !{ INPUT }
+C        CHARACTER* (*)  EVENTS,         !{ INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          !{ INPUT/OUTPUT }
+C        )
+
+      INTEGER*4 GDS__GET_SEGMENT 
+C     INTEGER*4 FUNCTION GDS__GET_SEGMENT (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT }
+C        INTEGER*2       LENGTH,         !{ OUTPUT }
+C        INTEGER*2       BUFFER_LENGTH,  !{ INPUT }
+C        CHARACTER* (*)  BUFFER          !{ INPUT }
+C        )
+
+      INTEGER*4 GDS__GET_SLICE 
+C     INTEGER*4 FUNCTION GDS__GET_SLICE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT }
+C        INTEGER*2       SDL_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  SDL,            !{ INPUT }
+C        INTEGER*2       PARAM_LENGTH,   !{ INPUT }
+C        CHARACTER* (*)  PARAM,          !{ INPUT }
+C        INTEGER*4       SLICE_LENGTH,   !{ INPUT }
+C        CHARACTER* (*)  SLICE,          !{ INPUT }
+C        INTEGER*4       RETURN_LENGTH   !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__OPEN_BLOB (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2)     !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__OPEN_BLOB2 (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2),    !{ INPUT }
+C        CHARACTER* (*)  BPB             !{ INPUT }
+C        )
+
+C      PROCEDURE GDS__COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT / OUTPUT }
+C        )
+
+      INTEGER*4 GDS__PUT_SEGMENT 
+C     INTEGER*4 FUNCTION GDS__PUT_SEGMENT (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT }
+C        INTEGER*2       LENGTH,         !{ INPUT }
+C        CHARACTER* (*)  BUFFER,         !{ INPUT }
+C        )
+
+      INTEGER*4 GDS__PUT_SLICE
+C     INTEGER*4 FUNCTION GDS__PUT_SLICE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT }
+C        INTEGER*2       SDL_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  SDL,            !{ INPUT }
+C        INTEGER*2       PARAM_LENGTH,   !{ INPUT }
+C        CHARACTER* (*)  PARAM,          !{ INPUT }
+C        INTEGER*4       SLICE_LENGTH,   !{ INPUT }
+C        CHARACTER* (*)  SLICE           !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__QUE_EVENTS (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       ID,             !{ INPUT }
+C        INTEGER*2       LENGTH,         !{ INPUT }
+C        CHARACTER* (*)  EVENTS,         !{ INPUT/OUTPUT }
+C        INTEGER*4       AST,            !{ INPUT }
+C        INTEGER*4       ARG             !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__RECEIVE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   !{ INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, !{ INPUT }
+C        CHARACTER* (*)  MESSAGE,        !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__RELEASE_REQUEST (
+C        INTEGER*4       STAT(20),        !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE   !{ INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__ROLLBACK_TRANSACTION (
+C        INTEGER*4       STAT(20),         !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE        !{ INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__SEND (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   !{ INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, !{ INPUT }
+C        CHARACTER* (*)  MESSAGE,        !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__SET_DEBUG (
+C        INTEGER*4       DEBUG_VAL       !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__START_AND_SEND (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT / OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   !{ INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, !{ INPUT }
+C        CHARACTER* (*)  MESSAGE,        !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__START_REQUEST (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT  }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+   
+C     PROCEDURE GDS__START_TRANSACTION (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT / OUTPUT }
+C        INTEGER*2       TRA_COUNT,      !{ INPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*2       TPB_LENGTH      !{ INPUT }
+C        CHARACTER* (*)  TPB             !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__UNWIND_REQUEST (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+
+C     PROCEDURE gds__ftof (
+C        CHARACTER* (*)  STRING1,        !{ INPUT }
+C        INTEGER*2       LENGTH1,        !{ INPUT }
+C        CHARACTER* (*)  STRING2,        !{ INPUT }
+C        INTEGER*2       LENGTH2         !{ INPUT }
+C        )
+
+C     PROCEDURE gds__print_status (
+C        INTEGER*4       STAT(20)        !{ INPUT }
+C        )
+ 
+C     INTEGER FUNCTION gds__sqlcode (
+C        INTEGER*4       STAT(20)        !{ INPUT }
+C        )
+ 
+C     procedure gds__close (
+C        out     stat            : gds__status_vector; 
+C        in      cursor_name     : UNIV gds__string
+C        ); extern;
+
+C     procedure gds__declare (
+C        out       stat               : gds__status_vector; 
+C        in        statement_name     : UNIV gds__string;
+C        in        cursor_name        : UNIV gds__string
+C        ); extern;
+
+C     procedure gds__describe (
+C        out       stat               : gds__status_vector; 
+C        in        statement_name     : UNIV gds__string;
+C        in out    descriptor         : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__execute (
+C        out       stat                : gds__status_vector; 
+C        in        trans_handle        : gds__handle;
+C        in        statement_name      : UNIV gds__string;
+C        in out    descriptor          : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__execute_immediate (
+C        out       stat               : gds__status_vector; 
+C        in        db_handle          : gds__handle;
+C        in        trans_handle       : gds__handle;
+C        in        string_length      : integer;
+C        in        string             : UNIV gds__string
+C        ); extern;
+
+      INTEGER*4 GDS__FETCH
+C     function gds__fetch (
+C        out       stat              : gds__status_vector; 
+C        in        cursor_name       : UNIV gds__string;
+C        in out        descriptor    : UNIV sqlda
+C        ) : integer32; extern;
+
+C     procedure gds__open (
+C        out       stat              : gds__status_vector; 
+C        in        trans_handle      : gds__handle;
+C        in        cursor_name       : UNIV gds__string;
+C        in out    descriptor        : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__prepare (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        statement_name   : UNIV gds__string;
+C        in        string_length    : integer;
+C        in        string           : UNIV gds__string;
+C        in out    descriptor       : UNIV sqlda
+C        ); extern;
+
+C     procedure pyxis__compile_map (
+C        out       stat                : gds__status_vector; 
+C        in        form_handle         : gds__handle;
+C        out       map_handle          : gds__handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__compile_sub_map (
+C        out       stat                : gds__status_vector; 
+C        in        form_handle         : gds__handle;
+C        out       map_handle          : gds__handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__create_window (
+C        in out    window_handle      : gds__handle;
+C        in        name_length        : integer16;
+C        in        file_name          : UNIV gds__string; 
+C        in out    width              : integer16;
+C        in out    height             : integer16
+C        ); extern;
+
+C     procedure pyxis__delete_window (
+C        in out        window_handle        : gds__handle
+C        ); extern;
+
+C     procedure pyxis__drive_form (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in out    window_handle    : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        input            : UNIV gds__string;
+C        in        output           : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__fetch (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        output           : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__insert (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        input            : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__load_form (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in out    form_handle      : gds__handle;
+C        in        name_length      : integer16;
+C        in        form_name        : UNIV gds__string 
+C        ); extern;
+
+      INTEGER*2 PYXIS__MENU
+C     function pyxis__menu (
+C        in out    window_handle    : gds__handle;
+C        in out    menu_handle      : gds__handle;
+C        in        length           : integer16;
+C        in        menu             : UNIV gds__string
+C        ) : integer16; extern;
+
+C     procedure pyxis__pop_window (
+C        in        window_handle    : gds__handle
+C        ); extern;
+
+C     procedure pyxis__reset_form (
+C        out       stat            : gds__status_vector; 
+C        in        window_handle   : gds__handle
+C        ); extern;
+
+C     procedure pyxis__drive_menu (
+C        in out    window_handle     : gds__handle;
+C        in out    menu_handle       : gds__handle;
+C        in        blr_length        : integer16;
+C        in        blr_source        : UNIV gds__string;
+C        in        title_length      : integer16;
+C        in        title             : UNIV gds__string;
+C        out       terminator        : integer16;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV gds__string;
+C        out       entree_value      : integer32
+C        ); extern;
+
+C     procedure pyxis__get_entree (
+C        in        menu_handle       : gds__handle;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV gds__string;
+C        out       entree_value      : integer32;
+C        out       entree_end        : integer16
+C        ); extern;
+
+C     procedure pyxis__initialize_menu (
+C        in out        menu_handle   : gds__handle
+C        ); extern;
+
+C     procedure pyxis__put_entree (
+C        in        menu_handle        : gds__handle;
+C        in        entree_length      : integer16;
+C        in        entree_text        : UNIV gds__string;
+C        in        entree_value       : integer32
+C        ); extern;
+
+C     PROCEDURE isc_exec_procedure (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  PROC_NAME,      { INPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR,             { INPUT }
+C        INTEGER*2       IN_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  IN_MESSAGE,        { INPUT }
+C        INTEGER*2       OUT_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  OUT_MESSAGE        { INPUT / OUTPUT }
+C        )
+
+       INTEGER*2 GDS__TRUE, GDS__FALSE
+       PARAMETER (
+     +    GDS__TRUE = 1,
+     +    GDS__FALSE = 0)
+
+       INTEGER*2  BLR_BLOB
+       PARAMETER  (BLR_BLOB = 261)
+
+       CHARACTER*1 
+     +    BLR_TEXT, BLR_SHORT, BLR_LONG, BLR_QUAD, BLR_FLOAT,
+     +    BLR_DOUBLE, BLR_D_FLOAT, BLR_DATE, BLR_VARYING, BLR_CSTRING,
+     +    BLR_VERSION4, BLR_EOC, BLR_END
+
+       PARAMETER (
+     +    BLR_TEXT = CHAR(14),
+     +    BLR_SHORT = CHAR(7),
+     +    BLR_LONG = CHAR(8),
+     +    BLR_QUAD = CHAR(9),
+     +    BLR_FLOAT = CHAR(10),
+     +    BLR_DOUBLE = CHAR(27),
+     +    BLR_D_FLOAT = CHAR(11),
+     +    BLR_DATE = CHAR(35),
+     +    BLR_VARYING = CHAR(37),
+     +    BLR_CSTRING = CHAR(40),
+     +    BLR_VERSION4 = CHAR(4),
+     +    BLR_EOC = CHAR(76),
+     +    BLR_END = CHAR(255))
+
+      CHARACTER*1
+     +    BLR_ASSIGNMENT, BLR_BEGIN, BLR_MESSAGE, BLR_ERASE, BLR_FETCH,
+     +    BLR_FOR, BLR_IF, BLR_LOOP, BLR_MODIFY, BLR_HANDLER, 
+     +    BLR_RECEIVE, BLR_SELECT, BLR_SEND, BLR_STORE, BLR_LABEL,
+     +    BLR_LEAVE
+
+
+      PARAMETER (
+     +    BLR_ASSIGNMENT = CHAR(1),
+     +    BLR_BEGIN = CHAR(2),
+     +    BLR_MESSAGE = CHAR(4),
+     +    BLR_ERASE = CHAR(5),
+     +    BLR_FETCH = CHAR(6),
+     +    BLR_FOR = CHAR(7),
+     +    BLR_IF = CHAR(8),
+     +    BLR_LOOP = CHAR(9),
+     +    BLR_MODIFY = CHAR(10),
+     +    BLR_HANDLER = CHAR(11),
+     +    BLR_RECEIVE = CHAR(12),
+     +    BLR_SELECT = CHAR(13),
+     +    BLR_SEND = CHAR(14),
+     +    BLR_STORE = CHAR(15),
+     +    BLR_LABEL = CHAR(17),
+     +    BLR_LEAVE = CHAR(18))
+
+      CHARACTER*1
+     +    BLR_LITERAL, BLR_DBKEY, BLR_FIELD, BLR_FID, BLR_PARAMETER,
+     +    BLR_VARIABLE, BLR_AVERAGE, BLR_COUNT, BLR_MAXIMUM, 
+     +    BLR_MINIMUM, BLR_TOTAL
+
+      PARAMETER (
+     +    BLR_LITERAL = CHAR(21),
+     +    BLR_DBKEY = CHAR(22),
+     +    BLR_FIELD = CHAR(23),
+     +    BLR_FID = CHAR(24),
+     +    BLR_PARAMETER = CHAR(25),
+     +    BLR_VARIABLE = CHAR(26),
+     +    BLR_AVERAGE = CHAR(27),
+     +    BLR_COUNT = CHAR(28),
+     +    BLR_MAXIMUM = CHAR(29),
+     +    BLR_MINIMUM = CHAR(30),
+     +    BLR_TOTAL = CHAR(31))
+
+      CHARACTER*1
+     +    BLR_ADD, BLR_SUBTRACT, BLR_MULTIPLY, BLR_DIVIDE,
+     +    BLR_NEGATE, BLR_CONCATENATE, BLR_SUBSTRING, 
+     +    BLR_PARAMETER2, BLR_FROM, BLR_VIA, BLR_NULL
+     
+
+      PARAMETER (
+     +    BLR_ADD = CHAR(34),
+     +    BLR_SUBTRACT = CHAR(35),
+     +    BLR_MULTIPLY = CHAR(36),
+     +    BLR_DIVIDE = CHAR(37),
+     +    BLR_NEGATE = CHAR(38),
+     +    BLR_CONCATENATE = CHAR(39),
+     +    BLR_SUBSTRING = CHAR(40),
+     +    BLR_PARAMETER2 = CHAR(41),
+     +    BLR_FROM = CHAR(42),
+     +    BLR_VIA = CHAR(43),
+     +    BLR_NULL = CHAR(45))
+
+      CHARACTER*1
+     +    BLR_EQL, BLR_NEQ, BLR_GTR, BLR_GEQ, BLR_LSS, BLR_LEQ, 
+     +    BLR_CONTAINING, BLR_MATCHING, BLR_STARTING, BLR_BETWEEN, 
+     +    BLR_OR, BLR_AND, BLR_NOT, BLR_ANY, BLR_MISSING, BLR_LIKE,
+     +    BLR_UNIQUE
+
+       PARAMETER (
+     +    BLR_EQL = CHAR(47),
+     +    BLR_NEQ = CHAR(48),
+     +    BLR_GTR = CHAR(49),
+     +    BLR_GEQ = CHAR(50),
+     +    BLR_LSS = CHAR(51),
+     +    BLR_LEQ = CHAR(52),
+     +    BLR_CONTAINING = CHAR(53),
+     +    BLR_MATCHING = CHAR(54),
+     +    BLR_STARTING = CHAR(55),
+     +    BLR_BETWEEN = CHAR(56),
+     +    BLR_OR = CHAR(57),
+     +    BLR_AND = CHAR(58),
+     +    BLR_NOT = CHAR(59),
+     +    BLR_ANY = CHAR(60),
+     +    BLR_MISSING = CHAR(61),
+     +    BLR_UNIQUE = CHAR(62),
+     +    BLR_LIKE = CHAR(63))
+
+      CHARACTER*1
+     +    BLR_RSE, BLR_FIRST, BLR_PROJECT, BLR_SORT, BLR_BOOLEAN, 
+     +    BLR_ASCENDING, BLR_DESCENDING, BLR_RELATION, BLR_RID,
+     +    BLR_UNION, BLR_MAP, BLR_GROUP_BY, BLR_AGGREGATE,
+     +    BLR_JOIN_TYPE
+
+
+      PARAMETER (
+     +    BLR_RSE = CHAR(67),
+     +    BLR_FIRST = CHAR(68),
+     +    BLR_PROJECT = CHAR(69),
+     +    BLR_SORT = CHAR(70),
+     +    BLR_BOOLEAN = CHAR(71),
+     +    BLR_ASCENDING = CHAR(72),
+     +    BLR_DESCENDING = CHAR(73),
+     +    BLR_RELATION = CHAR(74),
+     +    BLR_RID = CHAR(75),
+     +    BLR_UNION = CHAR(76),
+     +    BLR_MAP = CHAR(77),
+     +    BLR_GROUP_BY = CHAR(78),     
+     +    BLR_AGGREGATE = CHAR(79),
+     +    BLR_JOIN_TYPE = CHAR(80))
+
+      CHARACTER*1
+     +    BLR_INNER, BLR_LEFT, BLR_RIGHT, BLR_FULL
+
+      PARAMETER (
+     +    BLR_INNER = CHAR(0),
+     +    BLR_LEFT = CHAR(1),
+     +    BLR_RIGHT = CHAR(2),
+     +    BLR_FULL = CHAR(3))
+
+      CHARACTER*1
+     +    BLR_AGG_COUNT, BLR_AGG_MAX, BLR_AGG_MIN, BLR_AGG_TOTAL,
+     +    BLR_AGG_AVERAGE, BLR_RUN_COUNT, BLR_RUN_MAX, BLR_RUN_MIN,
+     +    BLR_RUN_TOTAL, BLR_RUN_AVERAGE
+
+      PARAMETER (
+     +    BLR_AGG_COUNT = CHAR(83),     
+     +    BLR_AGG_MAX = CHAR(84),
+     +    BLR_AGG_MIN = CHAR(85),
+     +    BLR_AGG_TOTAL = CHAR(86),
+     +    BLR_AGG_AVERAGE = CHAR(87),
+     +    BLR_RUN_COUNT = CHAR(118),
+     +    BLR_RUN_MAX = CHAR(89),
+     +    BLR_RUN_MIN = CHAR(90),
+     +    BLR_RUN_TOTAL = CHAR(91),
+     +    BLR_RUN_AVERAGE = CHAR(92)) 
+
+      CHARACTER*1
+     +    BLR_FUNCTION, BLR_GEN_ID, BLR_PROT_MASK, BLR_UPCASE,
+     +    BLR_LOCK_STATE, BLR_VALUE_IF, BLR_MATCHING2, BLR_INDEX
+
+      PARAMETER (
+     +    BLR_FUNCTION = CHAR(100),
+     +    BLR_GEN_ID = CHAR(101),
+     +    BLR_PROT_MASK = CHAR(102),
+     +    BLR_UPCASE = CHAR(103),
+     +    BLR_LOCK_STATE = CHAR(104),
+     +    BLR_VALUE_IF = CHAR(105),
+     +    BLR_MATCHING2 = CHAR(106),
+     +    BLR_INDEX = CHAR(107))
+
+      CHARACTER*1
+     +    BLR_ANSI_LIKE, BLR_BOOKMARK, BLR_CRACK,
+     +    BLR_FORCE_CRACK, BLR_SEEK, BLR_FIND,
+     +    BLR_LOCK_RELATION, BLR_LOCK_RECORD,
+     +    BLR_SET_BOOKMARK, BLR_GET_BOOKMARK
+
+      PARAMETER (
+     +    BLR_ANSI_LIKE = CHAR(108),
+     +    BLR_BOOKMARK = CHAR(109),
+     +    BLR_CRACK = CHAR(110),
+     +    BLR_FORCE_CRACK = CHAR(111),
+     +    BLR_SEEK = CHAR(112),
+     +    BLR_FIND = CHAR(113),
+     +    BLR_LOCK_RELATION = CHAR(114),
+     +    BLR_LOCK_RECORD = CHAR(115),
+     +    BLR_SET_BOOKMARK = CHAR(116),
+     +    BLR_GET_BOOKMARK = CHAR(117))
+
+      CHARACTER*1
+     +    BLR_RS_STREAM, BLR_EXEC_PROC, BLR_BEGIN_RANGE,
+     +    BLR_END_RANGE, BLR_DELETE_RANGE, BLR_PROCEDURE,
+     +    BLR_PID, BLR_EXEC_PID, BLR_SINGULAR, BLR_ABORT,
+     +    BLR_BLOCK, BLR_ERROR_HANDLER, BLR_PARAMETER3,
+     +    BLR_CAST
+
+      PARAMETER (
+     +    BLR_PARAMETER3 = CHAR(88),
+     +    BLR_RS_STREAM = CHAR(119),
+     +    BLR_EXEC_PROC = CHAR(120),
+     +    BLR_BEGIN_RANGE = CHAR(121),
+     +    BLR_END_RANGE = CHAR(122),
+     +    BLR_DELETE_RANGE = CHAR(123),
+     +    BLR_PROCEDURE = CHAR(124),
+     +    BLR_PID = CHAR(125),
+     +    BLR_EXEC_PID = CHAR(126),
+     +    BLR_SINGULAR = CHAR(127),
+     +    BLR_ABORT = CHAR(128),
+     +    BLR_BLOCK = CHAR(129),
+     +    BLR_ERROR_HANDLER = CHAR(130),
+     +    BLR_CAST = CHAR(131))
+
+      CHARACTER*1
+     +    BLR_GDS_CODE, BLR_SQL_CODE, BLR_EXCEPTION,
+     +    BLR_TRIGGER_CODE, BLR_DEFAULT_CODE
+
+      PARAMETER (
+     +    BLR_GDS_CODE = CHAR(0),
+     +    BLR_SQL_CODE = CHAR(1),
+     +    BLR_EXCEPTION = CHAR(2),
+     +    BLR_TRIGGER_CODE = CHAR(3),
+     +    BLR_DEFAULT_CODE = CHAR(4))
+
+C     database parameter block stuff 
+
+      CHARACTER*1
+     +     GDS__DPB_CDD_PATHNAME, GDS__DPB_ALLOCATION,
+     +     GDS__DPB_JOURNAL, GDS__DPB_PAGE_SIZE,
+     +     GDS__DPB_BUFFERS,  GDS__DPB_BUFFER_LENGTH,
+     +     GDS__DPB_DEBUG, GDS__DPB_GARBAGE_COLLECT,
+     +     GDS__DPB_VERIFY,  GDS__DPB_SWEEP,
+     +     GDS__DPB_ENABLE_JOURNAL, GDS__DPB_DISABLE_JOURNAL,
+     +     GDS__DPB_DBKEY_SCOPE, GDS__DPB_NUMBER_OF_USERS,
+     +     GDS__DPB_TRACE, GDS__DPB_NO_GARBAGE_COLLECT,
+     +     GDS__DPB_DAMAGED, GDS__DPB_LICENSE, GDS__DPB_USER_NAME,
+     +     GDS__DPB_ENCRYPT_KEY
+
+
+      PARAMETER (
+     +     GDS__DPB_CDD_PATHNAME          = CHAR (1),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_ALLOCATION            = CHAR (2),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_JOURNAL               = CHAR (3),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_PAGE_SIZE             = CHAR (4),
+     +     GDS__DPB_BUFFERS               = CHAR (5),
+     +     GDS__DPB_BUFFER_LENGTH         = CHAR (6),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_DEBUG                 = CHAR (7),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_GARBAGE_COLLECT       = CHAR (8),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_VERIFY                = CHAR (9),
+     +     GDS__DPB_SWEEP                 = CHAR (10),
+     +     GDS__DPB_ENABLE_JOURNAL        = CHAR (11),
+     +     GDS__DPB_DISABLE_JOURNAL       = CHAR (12),
+     +     GDS__DPB_DBKEY_SCOPE           = CHAR (13),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_NUMBER_OF_USERS       = CHAR (14),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_TRACE                 = CHAR (15),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_NO_GARBAGE_COLLECT    = CHAR (16),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_DAMAGED               = CHAR (17),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_LICENSE               = CHAR (18),
+     +     GDS__DPB_USER_NAME             = CHAR (19))
+
+      PARAMETER (
+     +     GDS__DPB_ENCRYPT_KEY           = CHAR (20),
+     +     GDS__DPB_ACTIVATE_SHADOW       = CHAR (21),
+     +     GDS__DPB_SWEEP_INTERVAL        = CHAR (22),
+     +     GDS__DPB_DELETE_SHADOW         = CHAR (23))
+
+      CHARACTER*1
+     +     GDS__DPB_PAGES, GDS__DPB_RECORDS, 
+     +     GDS__DPB_INDICES, GDS__DPB_TRANSACTIONS, 
+     +     GDS__DPB_NO_UPDATE, GDS__DPB_REPAIR
+
+      PARAMETER (
+     +     GDS__DPB_PAGES = CHAR(1),
+     +     GDS__DPB_RECORDS = CHAR(2),
+     +     GDS__DPB_INDICES = CHAR(4),
+     +     GDS__DPB_TRANSACTIONS = CHAR(8),
+     +     GDS__DPB_NO_UPDATE = CHAR(16),
+     +     GDS__DPB_REPAIR = CHAR(32))
+
+
+
+C     Transaction parameter block stuff 
+
+      CHARACTER*1
+     + GDS__TPB_VERSION3, GDS__TPB_CONSISTENCY, GDS__TPB_CONCURRENCY,
+     + GDS__TPB_SHARED, GDS__TPB_PROTECTED, GDS__TPB_EXCLUSIVE,
+     + GDS__TPB_WAIT, GDS__TPB_NOWAIT, GDS__TPB_READ, GDS__TPB_WRITE,
+     + GDS__TPB_LOCK_READ, GDS__TPB_LOCK_WRITE, GDS__TPB_VERB_TIME,
+     + GDS__TPB_COMMIT_TIME                            
+
+
+      PARAMETER (
+     + GDS__TPB_VERSION3     = CHAR (3),
+     + GDS__TPB_CONSISTENCY  = CHAR (1),
+     + GDS__TPB_CONCURRENCY  = CHAR (2),
+     + GDS__TPB_SHARED       = CHAR (3),
+     + GDS__TPB_PROTECTED    = CHAR (4),
+     + GDS__TPB_EXCLUSIVE    = CHAR (5),
+     + GDS__TPB_WAIT         = CHAR (6),
+     + GDS__TPB_NOWAIT       = CHAR (7),
+     + GDS__TPB_READ         = CHAR (8),
+     + GDS__TPB_WRITE        = CHAR (9),
+     + GDS__TPB_LOCK_READ    = CHAR (10),
+     + GDS__TPB_LOCK_WRITE   = CHAR (11),
+     + GDS__TPB_VERB_TIME    = CHAR (12),
+     + GDS__TPB_COMMIT_TIME  = CHAR (13))
+
+C Blob Parameter Block
+
+      CHARACTER*1
+     +  gds__bpb_version1, gds__bpb_source_type, gds__bpb_target_type,
+     +  gds__bpb_type, gds__bpb_type_segmented, gds__bpb_type_stream
+
+      PARAMETER (
+     +  gds__bpb_version1           = CHAR (1),
+     +  gds__bpb_source_type        = CHAR (1),
+     +  gds__bpb_target_type        = CHAR (2),
+     +  gds__bpb_type               = CHAR (3),
+
+     +  gds__bpb_type_segmented     = CHAR (0),
+     +  gds__bpb_type_stream        = CHAR (1))
+
+C     Information parameters
+
+C Common, structural codes 
+
+      CHARACTER*1  GDS__INFO_END, GDS__INFO_TRUNCATED,
+     +    GDS__INFO_ERROR
+
+      PARAMETER (
+     +    GDS__INFO_END                  = CHAR(1),
+     +    GDS__INFO_TRUNCATED            = CHAR(2),
+     +    GDS__INFO_ERROR                = CHAR(3))
+
+C DATABASE INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_ID, GDS__INFO_READS, GDS__INFO_WRITES,
+     +    GDS__INFO_FETCHES, GDS__INFO_MARKS, GDS__INFO_IMPLEMENTATION,
+     +    GDS__INFO_VERSION, GDS__INFO_BASE_LEVEL, GDS__INFO_PAGE_SIZE,
+     +    GDS__INFO_NUM_BUFFERS, GDS__INFO_LIMBO,
+     +    GDS__INFO_CURRENT_MEMORY, GDS__INFO_MAX_MEMORY,
+     +    GDS__INFO_WINDOW_TURNS, GDS__INFO_DB_ID
+
+      PARAMETER (
+     +    GDS__INFO_DB_ID                = CHAR(4),
+     +    GDS__INFO_READS                = CHAR(5),
+     +    GDS__INFO_WRITES               = CHAR(6),
+     +    GDS__INFO_FETCHES              = CHAR(7),
+     +    GDS__INFO_MARKS                = CHAR(8),
+     +    GDS__INFO_IMPLEMENTATION       = CHAR(11),
+     +    GDS__INFO_VERSION              = CHAR(12),
+     +    GDS__INFO_BASE_LEVEL           = CHAR(13),
+     +    GDS__INFO_PAGE_SIZE            = CHAR(14),
+     +    GDS__INFO_NUM_BUFFERS          = CHAR(15),
+     +    GDS__INFO_LIMBO                = CHAR(16),
+     +    GDS__INFO_CURRENT_MEMORY       = CHAR(17),
+     +    GDS__INFO_MAX_MEMORY           = CHAR(18),
+     +    GDS__INFO_WINDOW_TURNS         = CHAR(19))
+
+      CHARACTER*1 GDS__INFO_LICENSE, GDS__INFO_ALLOCATION,
+     +    GDS__INFO_ATTACHMENT_ID, GDS__INFO_READ_SEQ_COUNT,
+     +    GDS__INFO_READ_IDX_COUNT, GDS__INFO_INSERT_COUNT,
+     +    GDS__INFO_UPDATE_COUNT,
+     +    GDS__INFO_DELETE_COUNT, GDS__INFO_BACKOUT_COUNT,
+     +    GDS__INFO_PURGE_COUNT, GDS__INFO_EXPUNGE_COUNT,
+     +    GDS__INFO_SWEEP_INTERVAL, GDS__INFO_ODS_VERSION,
+     +    GDS__INFO_ODS_MINOR_VERSION
+
+      PARAMETER (
+     +    GDS__INFO_LICENSE              = CHAR(20),
+     +    GDS__INFO_ALLOCATION           = CHAR(21),
+     +    GDS__INFO_ATTACHMENT_ID        = CHAR(22),
+     +    GDS__INFO_READ_SEQ_COUNT       = CHAR(23),
+     +    GDS__INFO_READ_IDX_COUNT       = CHAR(24), 
+     +    GDS__INFO_INSERT_COUNT          = CHAR(25),
+     +    GDS__INFO_UPDATE_COUNT         = CHAR(26),
+     +    GDS__INFO_DELETE_COUNT         = CHAR(27), 
+     +    GDS__INFO_BACKOUT_COUNT        = CHAR(28),
+     +    GDS__INFO_PURGE_COUNT          = CHAR(29), 
+     +    GDS__INFO_EXPUNGE_COUNT        = CHAR(30),
+     +    GDS__INFO_SWEEP_INTERVAL       = CHAR(31), 
+     +    GDS__INFO_ODS_VERSION          = CHAR(32),
+     +    GDS__INFO_ODS_MINOR_VERSION    = CHAR(33))
+
+
+C REQUEST INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_NUMBER_MESSAGES, GDS__INFO_MAX_MESSAGE,
+     +    GDS__INFO_MAX_SEND, GDS__INFO_MAX_RECEIVE, GDS__INFO_STATE,
+     +    GDS__INFO_MESSAGE_NUMBER, GDS__INFO_MESSAGE_SIZE,
+     +    GDS__INFO_REQUEST_COST, GDS__INFO_REQ_ACTIVE,
+     +    GDS__INFO_REQ_INACTIVE, GDS__INFO_REQ_SEND,
+     +    GDS__INFO_REQ_RECEIVE, GDS__INFO_REQ_SELECT
+
+      PARAMETER (
+     +    GDS__INFO_NUMBER_MESSAGES     = CHAR(4),
+     +    GDS__INFO_MAX_MESSAGE         = CHAR(5),
+     +    GDS__INFO_MAX_SEND            = CHAR(6),
+     +    GDS__INFO_MAX_RECEIVE         = CHAR(7),
+     +    GDS__INFO_STATE               = CHAR(8),
+     +    GDS__INFO_MESSAGE_NUMBER      = CHAR(9),
+     +    GDS__INFO_MESSAGE_SIZE        = CHAR(10),
+     +    GDS__INFO_REQUEST_COST        = CHAR(11),
+     +    GDS__INFO_REQ_ACTIVE          = CHAR(2),
+     +    GDS__INFO_REQ_INACTIVE        = CHAR(3),
+     +    GDS__INFO_REQ_SEND            = CHAR(4),
+     +    GDS__INFO_REQ_RECEIVE         = CHAR(5),
+     +    GDS__INFO_REQ_SELECT          = CHAR(6))
+
+C BLOB INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_BLOB_NUM_SEGMENTS,
+     +    GDS__INFO_BLOB_MAX_SEGMENT,
+     +    GDS__INFO_BLOB_TOTAL_LENGTH,
+     +    GDS__INFO_BLOB_TYPE
+
+      PARAMETER (
+     +    GDS__INFO_BLOB_NUM_SEGMENTS   = CHAR(4),
+     +    GDS__INFO_BLOB_MAX_SEGMENT    = CHAR(5),
+     +    GDS__INFO_BLOB_TOTAL_LENGTH   = CHAR(6),
+     +    GDS__INFO_BLOB_TYPE           = CHAR(7))
+
+C TRANSACTION INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_TRA_ID
+      PARAMETER (
+     +    GDS__INFO_TRA_ID               = CHAR(4))
+
+C Dynamic SQL datatypes
+
+      INTEGER*2
+     + SQL_TEXT,
+     + SQL_VARYING,
+     + SQL_SHORT,
+     + SQL_LONG,
+     + SQL_FLOAT,
+     + SQL_DOUBLE,
+     + SQL_D_FLOAT,
+     + SQL_DATE,
+     + SQL_BLOB
+
+      PARAMETER (
+     + SQL_TEXT = 452,
+     + SQL_VARYING = 448,
+     + SQL_SHORT = 500,
+     + SQL_LONG = 496,
+     + SQL_FLOAT = 482,
+     + SQL_DOUBLE = 480,
+     + SQL_D_FLOAT = 530,
+     + SQL_DATE = 510,
+     + SQL_BLOB = 520)
+
+C  Forms Package definitions 
+
+C  Map definition block definitions 
+
+      INTEGER*2
+     + PYXIS__MAP_VERSION1,
+     + PYXIS__MAP_FIELD2,
+     + PYXIS__MAP_FIELD1,
+     + PYXIS__MAP_MESSAGE,
+     + PYXIS__MAP_TERMINATOR,
+     + PYXIS__MAP_TERMINATING_FIELD,
+     + PYXIS__MAP_OPAQUE,
+     + PYXIS__MAP_TRANSPARENT,
+     + PYXIS__MAP_TAG,
+     + PYXIS__MAP_SUB_FORM,
+     + PYXIS__MAP_ITEM_INDEX,
+     + PYXIS__MAP_SUB_FIELD,
+     + PYXIS__MAP_END
+
+      PARAMETER (
+     + PYXIS__MAP_VERSION1                    = 1,
+     + PYXIS__MAP_FIELD2                      = 2,
+     + PYXIS__MAP_FIELD1                      = 3,
+     + PYXIS__MAP_MESSAGE                     = 4,
+     + PYXIS__MAP_TERMINATOR                  = 5,
+     + PYXIS__MAP_TERMINATING_FIELD           = 6,
+     + PYXIS__MAP_OPAQUE                      = 7,
+     + PYXIS__MAP_TRANSPARENT                 = 8,
+     + PYXIS__MAP_TAG                         = 9,
+     + PYXIS__MAP_SUB_FORM                    = 10,
+     + PYXIS__MAP_ITEM_INDEX                  = 11,
+     + PYXIS__MAP_SUB_FIELD                   = 12,
+     + PYXIS__MAP_END                         = -1)
+
+C  Field option flags for display options 
+
+      INTEGER*2
+     + PYXIS__OPT_DISPLAY,
+     + PYXIS__OPT_UPDATE,
+     + PYXIS__OPT_WAKEUP,
+     + PYXIS__OPT_POSITION
+
+      PARAMETER (
+     + PYXIS__OPT_DISPLAY                     = 1,
+     + PYXIS__OPT_UPDATE                      = 2,
+     + PYXIS__OPT_WAKEUP                      = 4,
+     + PYXIS__OPT_POSITION                    = 8)
+
+C  Field option values following display 
+
+      INTEGER*2
+     + PYXIS__OPT_NULL,
+     + PYXIS__OPT_DEFAULT,
+     + PYXIS__OPT_INITIAL,
+     + PYXIS__OPT_USER_DATA
+
+      PARAMETER (
+     + PYXIS__OPT_NULL                        = 1,
+     + PYXIS__OPT_DEFAULT                     = 2,
+     + PYXIS__OPT_INITIAL                     = 3,
+     + PYXIS__OPT_USER_DATA                   = 4)
+
+C  Pseudo key definitions 
+
+      INTEGER*2
+     + PYXIS__KEY_DELETE,
+     + PYXIS__KEY_UP,
+     + PYXIS__KEY_DOWN,
+     + PYXIS__KEY_RIGHT,
+     + PYXIS__KEY_LEFT,
+     + PYXIS__KEY_PF1,
+     + PYXIS__KEY_PF2,
+     + PYXIS__KEY_PF3,
+     + PYXIS__KEY_PF4,
+     + PYXIS__KEY_PF5,
+     + PYXIS__KEY_PF6,
+     + PYXIS__KEY_PF7,
+     + PYXIS__KEY_PF8,
+     + PYXIS__KEY_PF9,
+     + PYXIS__KEY_ENTER,
+     + PYXIS__KEY_SCROLL_TOP,
+     + PYXIS__KEY_SCROLL_BOTTOM
+
+      PARAMETER (
+     + PYXIS__KEY_DELETE                      = 127,
+     + PYXIS__KEY_UP                          = 128,
+     + PYXIS__KEY_DOWN                        = 129,
+     + PYXIS__KEY_RIGHT                       = 130,
+     + PYXIS__KEY_LEFT                        = 131,
+     + PYXIS__KEY_PF1                         = 132,
+     + PYXIS__KEY_PF2                         = 133,
+     + PYXIS__KEY_PF3                         = 134,
+     + PYXIS__KEY_PF4                         = 135,
+     + PYXIS__KEY_PF5                         = 136,
+     + PYXIS__KEY_PF6                         = 137,
+     + PYXIS__KEY_PF7                         = 138,
+     + PYXIS__KEY_PF8                         = 139,
+     + PYXIS__KEY_PF9                         = 140,
+     + PYXIS__KEY_ENTER                       = 141,
+     + PYXIS__KEY_SCROLL_TOP                  = 146,
+     + PYXIS__KEY_SCROLL_BOTTOM               = 147)
+
+C  Menu definition stuff 
+
+      INTEGER*2
+     + PYXIS__MENU_VERSION1,
+     + PYXIS__MENU_LABEL,
+     + PYXIS__MENU_ENTREE,
+     + PYXIS__MENU_OPAQUE,
+     + PYXIS__MENU_TRANSPARENT,
+     + PYXIS__MENU_HORIZONTAL,
+     + PYXIS__MENU_VERTICAL,
+     + PYXIS__MENU_END
+
+      PARAMETER (
+     + PYXIS__MENU_VERSION1                   = 1,
+     + PYXIS__MENU_LABEL                      = 2,
+     + PYXIS__MENU_ENTREE                     = 3,
+     + PYXIS__MENU_OPAQUE                     = 4,
+     + PYXIS__MENU_TRANSPARENT                = 5,
+     + PYXIS__MENU_HORIZONTAL                 = 6,
+     + PYXIS__MENU_VERTICAL                   = 7,
+     + PYXIS__MENU_END                        = -1)
+
+
+C     Error Codes
+
+      INTEGER*4
+     + GDS_FACILITY,
+     + GDS_ERR_BASE,
+     + GDS_ERR_FACTOR
+
+      INTEGER*4
+     + GDS_ARG_END,          !{ end of argument list }
+     + GDS_ARG_GDS,          !{ generic DSRI status value }
+     + GDS_ARG_STRING,       !{ string argument }
+     + GDS_ARG_CSTRING,      !{ count & string argument }
+     + GDS_ARG_NUMBER,       !{ numeric argument (long) }
+     + GDS_ARG_INTERPRETED,  !{ interpreted status code (string) }
+     + GDS_ARG_VMS,          !{ VAX/VMS status code (long) }
+     + GDS_ARG_UNIX,         !{ UNIX error code }
+     + GDS_ARG_DOMAIN       !{ Apollo/Domain error code }
+
+
+      PARAMETER (
+     + GDS_FACILITY    = 20,
+     + GDS_ERR_BASE    = 335544320,
+     + GDS_ERR_FACTOR  = 1)
+
+      PARAMETER (
+     + GDS_ARG_END          = 0,   !{ end of argument list }
+     + GDS_ARG_GDS          = 1,   !{ generic DSRI status value }
+     + GDS_ARG_STRING       = 2,   !{ string argument }
+     + GDS_ARG_CSTRING      = 3,   !{ count & string argument }
+     + GDS_ARG_NUMBER       = 4,   !{ numeric argument (long) }
+     + GDS_ARG_INTERPRETED  = 5,   !{ interpreted status code (string) }
+     + GDS_ARG_VMS          = 6,   !{ VAX/VMS status code (long) }
+     + GDS_ARG_UNIX         = 7,   !{ UNIX error code }
+     + GDS_ARG_DOMAIN       = 8)   !{ Apollo/Domain error code }
+
+      INTEGER*4 GDS__arith_except        
+      PARAMETER (GDS__arith_except         = 335544321)
+      INTEGER*4 GDS__bad_dbkey           
+      PARAMETER (GDS__bad_dbkey            = 335544322)
+      INTEGER*4 GDS__bad_db_format       
+      PARAMETER (GDS__bad_db_format        = 335544323)
+      INTEGER*4 GDS__bad_db_handle       
+      PARAMETER (GDS__bad_db_handle        = 335544324)
+      INTEGER*4 GDS__bad_dpb_content     
+      PARAMETER (GDS__bad_dpb_content      = 335544325)
+      INTEGER*4 GDS__bad_dpb_form        
+      PARAMETER (GDS__bad_dpb_form         = 335544326)
+      INTEGER*4 GDS__bad_req_handle      
+      PARAMETER (GDS__bad_req_handle       = 335544327)
+      INTEGER*4 GDS__bad_segstr_handle   
+      PARAMETER (GDS__bad_segstr_handle    = 335544328)
+      INTEGER*4 GDS__bad_segstr_id       
+      PARAMETER (GDS__bad_segstr_id        = 335544329)
+      INTEGER*4 GDS__bad_tpb_content     
+      PARAMETER (GDS__bad_tpb_content      = 335544330)
+      INTEGER*4 GDS__bad_tpb_form        
+      PARAMETER (GDS__bad_tpb_form         = 335544331)
+      INTEGER*4 GDS__bad_trans_handle    
+      PARAMETER (GDS__bad_trans_handle     = 335544332)
+      INTEGER*4 GDS__bug_check           
+      PARAMETER (GDS__bug_check            = 335544333)
+      INTEGER*4 GDS__convert_error       
+      PARAMETER (GDS__convert_error        = 335544334)
+      INTEGER*4 GDS__db_corrupt          
+      PARAMETER (GDS__db_corrupt           = 335544335)
+      INTEGER*4 GDS__deadlock            
+      PARAMETER (GDS__deadlock             = 335544336)
+      INTEGER*4 GDS__excess_trans        
+      PARAMETER (GDS__excess_trans         = 335544337)
+      INTEGER*4 GDS__from_no_match       
+      PARAMETER (GDS__from_no_match        = 335544338)
+      INTEGER*4 GDS__infinap             
+      PARAMETER (GDS__infinap              = 335544339)
+      INTEGER*4 GDS__infona              
+      PARAMETER (GDS__infona               = 335544340)
+      INTEGER*4 GDS__infunk              
+      PARAMETER (GDS__infunk               = 335544341)
+      INTEGER*4 GDS__integ_fail          
+      PARAMETER (GDS__integ_fail           = 335544342)
+      INTEGER*4 GDS__invalid_blr         
+      PARAMETER (GDS__invalid_blr          = 335544343)
+      INTEGER*4 GDS__io_error            
+      PARAMETER (GDS__io_error             = 335544344)
+      INTEGER*4 GDS__lock_conflict       
+      PARAMETER (GDS__lock_conflict        = 335544345)
+      INTEGER*4 GDS__metadata_corrupt    
+      PARAMETER (GDS__metadata_corrupt     = 335544346)
+      INTEGER*4 GDS__not_valid           
+      PARAMETER (GDS__not_valid            = 335544347)
+      INTEGER*4 GDS__no_cur_rec          
+      PARAMETER (GDS__no_cur_rec           = 335544348)
+      INTEGER*4 GDS__no_dup              
+      PARAMETER (GDS__no_dup               = 335544349)
+      INTEGER*4 GDS__no_finish           
+      PARAMETER (GDS__no_finish            = 335544350)
+      INTEGER*4 GDS__no_meta_update      
+      PARAMETER (GDS__no_meta_update       = 335544351)
+      INTEGER*4 GDS__no_priv             
+      PARAMETER (GDS__no_priv              = 335544352)
+      INTEGER*4 GDS__no_recon            
+      PARAMETER (GDS__no_recon             = 335544353)
+      INTEGER*4 GDS__no_record           
+      PARAMETER (GDS__no_record            = 335544354)
+      INTEGER*4 GDS__no_segstr_close     
+      PARAMETER (GDS__no_segstr_close      = 335544355)
+      INTEGER*4 GDS__obsolete_metadata   
+      PARAMETER (GDS__obsolete_metadata    = 335544356)
+      INTEGER*4 GDS__open_trans          
+      PARAMETER (GDS__open_trans           = 335544357)
+      INTEGER*4 GDS__port_len            
+      PARAMETER (GDS__port_len             = 335544358)
+      INTEGER*4 GDS__read_only_field     
+      PARAMETER (GDS__read_only_field      = 335544359)
+      INTEGER*4 GDS__read_only_rel       
+      PARAMETER (GDS__read_only_rel        = 335544360)
+      INTEGER*4 GDS__read_only_trans     
+      PARAMETER (GDS__read_only_trans      = 335544361)
+      INTEGER*4 GDS__read_only_view      
+      PARAMETER (GDS__read_only_view       = 335544362)
+      INTEGER*4 GDS__req_no_trans        
+      PARAMETER (GDS__req_no_trans         = 335544363)
+      INTEGER*4 GDS__req_sync            
+      PARAMETER (GDS__req_sync             = 335544364)
+      INTEGER*4 GDS__req_wrong_db        
+      PARAMETER (GDS__req_wrong_db         = 335544365)
+      INTEGER*4 GDS__segment             
+      PARAMETER (GDS__segment              = 335544366)
+      INTEGER*4 GDS__segstr_eof          
+      PARAMETER (GDS__segstr_eof           = 335544367)
+      INTEGER*4 GDS__segstr_no_op        
+      PARAMETER (GDS__segstr_no_op         = 335544368)
+      INTEGER*4 GDS__segstr_no_read      
+      PARAMETER (GDS__segstr_no_read       = 335544369)
+      INTEGER*4 GDS__segstr_no_trans     
+      PARAMETER (GDS__segstr_no_trans      = 335544370)
+      INTEGER*4 GDS__segstr_no_write     
+      PARAMETER (GDS__segstr_no_write      = 335544371)
+      INTEGER*4 GDS__segstr_wrong_db     
+      PARAMETER (GDS__segstr_wrong_db      = 335544372)
+      INTEGER*4 GDS__sys_request         
+      PARAMETER (GDS__sys_request          = 335544373)
+      INTEGER*4 GDS__unavailable         
+      PARAMETER (GDS__unavailable          = 335544375)
+      INTEGER*4 GDS__unres_rel           
+      PARAMETER (GDS__unres_rel            = 335544376)
+      INTEGER*4 GDS__uns_ext             
+      PARAMETER (GDS__uns_ext              = 335544377)
+      INTEGER*4 GDS__wish_list           
+      PARAMETER (GDS__wish_list            = 335544378)
+      INTEGER*4 GDS__wrong_ods           
+      PARAMETER (GDS__wrong_ods            = 335544379)
+      INTEGER*4 GDS__wronumarg           
+      PARAMETER (GDS__wronumarg            = 335544380)
+      INTEGER*4 GDS__imp_exc             
+      PARAMETER (GDS__imp_exc              = 335544381)
+      INTEGER*4 GDS__random              
+      PARAMETER (GDS__random               = 335544382)
+      INTEGER*4 GDS__fatal_conflict      
+      PARAMETER (GDS__fatal_conflict       = 335544383)
+
+C     Minor codes subject to change 
+
+      INTEGER*4 GDS__badblk              
+      PARAMETER (GDS__badblk               = 335544384)
+      INTEGER*4 GDS__invpoolcl           
+      PARAMETER (GDS__invpoolcl            = 335544385)
+      INTEGER*4 GDS__nopoolids           
+      PARAMETER (GDS__nopoolids            = 335544386)
+      INTEGER*4 GDS__relbadblk           
+      PARAMETER (GDS__relbadblk            = 335544387)
+      INTEGER*4 GDS__blktoobig           
+      PARAMETER (GDS__blktoobig            = 335544388)
+      INTEGER*4 GDS__bufexh              
+      PARAMETER (GDS__bufexh               = 335544389)
+      INTEGER*4 GDS__syntaxerr           
+      PARAMETER (GDS__syntaxerr            = 335544390)
+      INTEGER*4 GDS__bufinuse            
+      PARAMETER (GDS__bufinuse             = 335544391)
+      INTEGER*4 GDS__bdbincon            
+      PARAMETER (GDS__bdbincon             = 335544392)
+      INTEGER*4 GDS__reqinuse            
+      PARAMETER (GDS__reqinuse             = 335544393)
+      INTEGER*4 GDS__badodsver           
+      PARAMETER (GDS__badodsver            = 335544394)
+      INTEGER*4 GDS__relnotdef           
+      PARAMETER (GDS__relnotdef            = 335544395)
+      INTEGER*4 GDS__fldnotdef           
+      PARAMETER (GDS__fldnotdef            = 335544396)
+      INTEGER*4 GDS__dirtypage           
+      PARAMETER (GDS__dirtypage            = 335544397)
+      INTEGER*4 GDS__waifortra           
+      PARAMETER (GDS__waifortra            = 335544398)
+      INTEGER*4 GDS__doubleloc           
+      PARAMETER (GDS__doubleloc            = 335544399)
+      INTEGER*4 GDS__nodnotfnd           
+      PARAMETER (GDS__nodnotfnd            = 335544400)
+      INTEGER*4 GDS__dupnodfnd           
+      PARAMETER (GDS__dupnodfnd            = 335544401)
+      INTEGER*4 GDS__locnotmar           
+      PARAMETER (GDS__locnotmar            = 335544402)
+      INTEGER*4 GDS__badpagtyp           
+      PARAMETER (GDS__badpagtyp            = 335544403)
+      INTEGER*4 GDS__corrupt             
+      PARAMETER (GDS__corrupt              = 335544404)
+      INTEGER*4 GDS__badpage             
+      PARAMETER (GDS__badpage              = 335544405)
+      INTEGER*4 GDS__badindex            
+      PARAMETER (GDS__badindex             = 335544406)
+      INTEGER*4 GDS__dbbnotzer           
+      PARAMETER (GDS__dbbnotzer            = 335544407)
+      INTEGER*4 GDS__tranotzer           
+      PARAMETER (GDS__tranotzer            = 335544408)
+      INTEGER*4 GDS__trareqmis           
+      PARAMETER (GDS__trareqmis            = 335544409)
+      INTEGER*4 GDS__badhndcnt           
+      PARAMETER (GDS__badhndcnt            = 335544410)
+      INTEGER*4 GDS__wrotpbver           
+      PARAMETER (GDS__wrotpbver            = 335544411)
+      INTEGER*4 GDS__wroblrver           
+      PARAMETER (GDS__wroblrver            = 335544412)
+      INTEGER*4 GDS__wrodpbver           
+      PARAMETER (GDS__wrodpbver            = 335544413)
+      INTEGER*4 GDS__blobnotsup          
+      PARAMETER (GDS__blobnotsup           = 335544414)
+      INTEGER*4 GDS__badrelation         
+      PARAMETER (GDS__badrelation          = 335544415)
+      INTEGER*4 GDS__nodetach            
+      PARAMETER (GDS__nodetach             = 335544416)
+      INTEGER*4 GDS__notremote           
+      PARAMETER (GDS__notremote            = 335544417)
+      INTEGER*4 GDS__trainlim            
+      PARAMETER (GDS__trainlim             = 335544418)
+      INTEGER*4 GDS__notinlim            
+      PARAMETER (GDS__notinlim             = 335544419)
+      INTEGER*4 GDS__traoutsta           
+      PARAMETER (GDS__traoutsta            = 335544420)
+      INTEGER*4 GDS__connect_reject      
+      PARAMETER (GDS__connect_reject       = 335544421)
+      INTEGER*4 GDS__dbfile              
+      PARAMETER (GDS__dbfile               = 335544422)
+      INTEGER*4 GDS__orphan              
+      PARAMETER (GDS__orphan               = 335544423)
+      INTEGER*4 GDS__no_lock_mgr         
+      PARAMETER (GDS__no_lock_mgr          = 335544424)
+      INTEGER*4 GDS__ctxinuse            
+      PARAMETER (GDS__ctxinuse             = 335544425)
+      INTEGER*4 GDS__ctxnotdef           
+      PARAMETER (GDS__ctxnotdef            = 335544426)
+      INTEGER*4 GDS__datnotsup           
+      PARAMETER (GDS__datnotsup            = 335544427)
+      INTEGER*4 GDS__badmsgnum           
+      PARAMETER (GDS__badmsgnum            = 335544428)
+      INTEGER*4 GDS__badparnum           
+      PARAMETER (GDS__badparnum            = 335544429)
+      INTEGER*4 GDS__virmemexh           
+      PARAMETER (GDS__virmemexh            = 335544430)
+      INTEGER*4 GDS__blocking_signal     
+      PARAMETER (GDS__blocking_signal      = 335544431)
+      INTEGER*4 GDS__lockmanerr          
+      PARAMETER (GDS__lockmanerr           = 335544432)
+      INTEGER*4 GDS__journerr            
+      PARAMETER (GDS__journerr             = 335544433)
+      INTEGER*4 GDS__keytoobig           
+      PARAMETER (GDS__keytoobig            = 335544434)
+      INTEGER*4 GDS__nullsegkey          
+      PARAMETER (GDS__nullsegkey           = 335544435)
+      INTEGER*4 GDS__sqlerr              
+      PARAMETER (GDS__sqlerr               = 335544436)
+      INTEGER*4 GDS__wrodynver           
+      PARAMETER (GDS__wrodynver            = 335544437)
+      INTEGER*4 gds__obj_in_use
+      PARAMETER (gds__obj_in_use           = 335544453)
+      INTEGER*4 gds__no_filter
+      PARAMETER (gds__no_filter            = 335544454)
+      INTEGER*4 gds__shadow_accessed
+      PARAMETER (gds__shadow_accessed      = 335544455)
+      INTEGER*4 gds__invalid_sdl
+      PARAMETER (gds__invalid_sdl          = 335544456)
+      INTEGER*4 gds__out_of_bounds
+      PARAMETER (gds__out_of_bounds        = 335544457)
+      INTEGER*4 gds__invalid_dimension
+      PARAMETER (gds__invalid_dimension    = 335544458)
+      INTEGER*4 gds__rec_in_limbo
+      PARAMETER (gds__rec_in_limbo = 335544459)
+      INTEGER*4 gds__shadow_missing
+      PARAMETER (gds__shadow_missing = 335544460)
+      INTEGER*4 gds__cant_validate
+      PARAMETER (gds__cant_validate = 335544461)
+      INTEGER*4 gds__cant_start_journal
+      PARAMETER (gds__cant_start_journal = 335544462)
+      INTEGER*4 gds__gennotdef
+      PARAMETER (gds__gennotdef = 335544463)
+      INTEGER*4 gds__cant_start_logging
+      PARAMETER (gds__cant_start_logging = 335544464)
+      INTEGER*4 gds__bad_segstr_type
+      PARAMETER (gds__bad_segstr_type = 335544465)
+      INTEGER*4 gds__foreign_key
+      PARAMETER (gds__foreign_key = 335544466)
+      INTEGER*4 gds__high_minor
+      PARAMETER (gds__high_minor = 335544467)
+      INTEGER*4 gds__tra_state
+      PARAMETER (gds__tra_state = 335544468)
+      INTEGER*4 gds__trans_invalid
+      PARAMETER (gds__trans_invalid = 335544469)
+      INTEGER*4 gds__buf_invalid
+      PARAMETER (gds__buf_invalid = 335544470)
+      INTEGER*4 gds__indexnotdefined
+      PARAMETER (gds__indexnotdefined = 335544471)
+      INTEGER*4 gds__login
+      PARAMETER (gds__login = 335544472)
+      INTEGER*4 gds__invalid_bookmark
+      PARAMETER (gds__invalid_bookmark = 335544473)
+      INTEGER*4 gds__bad_lock_level
+      PARAMETER (gds__bad_lock_level = 335544474)
+      INTEGER*4 gds__relation_lock
+      PARAMETER (gds__relation_lock = 335544475)
+      INTEGER*4 gds__record_lock
+      PARAMETER (gds__record_lock = 335544476)
+      INTEGER*4 gds__max_idx
+      PARAMETER (gds__max_idx = 335544477)
+      INTEGER*4 gds__jrn_enable
+      PARAMETER (gds__jrn_enable = 335544478)
+      INTEGER*4 gds__old_failure
+      PARAMETER (gds__old_failure = 335544479)
+      INTEGER*4 gds__old_in_porgress
+      PARAMETER (gds__old_in_progress = 335544480)
+      INTEGER*4 gds__old_no_space
+      PARAMETER (gds__old_no_space = 335544481)
+      INTEGER*4 gds__no_wal_no_jrn
+      PARAMETER (gds__no_wal_no_jrn = 335544482)
+      INTEGER*4 gds__num_old_files
+      PARAMETER (gds__num_old_files = 335544483)
+      INTEGER*4 gds__wal_file_open
+      PARAMETER (gds__wal_file_open = 335544484)
+      INTEGER*4 gds__bad_stmt_handle
+      PARAMETER (gds__bad_stmt_handle = 335544485)
+      INTEGER*4 gds__wal_failure
+      PARAMETER (gds__wal_failue = 335544486)
+      INTEGER*4 gds__walw_err
+      PARAMETER (gds__walw_err = 335544487)
+      INTEGER*4 gds__logh_small
+      PARAMETER (gds__logh_small = 335544488)
+      INTEGER*4 gds__logh_inv_version
+      PARAMETER (gds__logh_inv_version = 335544489)
+      INTEGER*4 gds__logh_open_flag
+      PARAMETER (gds__logh_open_flag = 335544490)
+      INTEGER*4 gds__logh_open_flag2
+      PARAMETER (gds__logh_open_flag2 = 335544491)
+      INTEGER*4 gds__logh_diff_dbname
+      PARAMETER (gds__logh_diff_dbname = 335544492)
+      INTEGER*4 gds__logf_unexpected_eof
+      PARAMETER (gds__logf_unexpected_eof = 335544493)
+      INTEGER*4 gds__logr_incomplete
+      PARAMETER (gds__logr_incomplete = 335544494)
+      INTEGER*4 gds__logr_header_small
+      PARAMETER (gds__logr_header_small = 335544495)
+      INTEGER*4 gds__logb_small
+      PARAMETER (gds__logb_small = 335544496)
+      INTEGER*4 gds__wal_illegal_attach
+      PARAMETER (gds__wal_illegal_attach = 335544497)
+      INTEGER*4 gds__wal_invalid_wpb
+      PARAMETER (gds__wal_invalid_wpb = 335544498)
+      INTEGER*4 gds__wal_err_rollover
+      PARAMETER (gds__wal_err_rollover = 335544499)
+      INTEGER*4 gds__no_wal
+      PARAMETER (gds__no_wal = 335544500)
+      INTEGER*4 gds__drop_wal
+      PARAMETER (gds__drop_wal = 335544501)
+      INTEGER*4 gds__stream_not_defined
+      PARAMETER (gds__stream_not_defined = 335544502)
+      INTEGER*4 gds__unknown_183
+      PARAMETER (gds__unknown_183 = 335544503)
+      INTEGER*4 gds__wal_subsys_error
+      PARAMETER (gds__wal_subsys_error = 335544504)
+      INTEGER*4 gds__wal_subsys_corrupt
+      PARAMETER (gds__wal_subsys_corrupt = 335544505)
+      INTEGER*4 gds__no_archive
+      PARAMETER (gds__no_archive = 335544506)
+      INTEGER*4 gds__store_proc_failed
+      PARAMETER (gds__store_proc_failed = 335544507)
+      INTEGER*4 gds__range_in_use
+      PARAMETER (gds__range_in_use = 335544508)
+      INTEGER*4 gds__range_not_found
+      PARAMETER (gds__range_not_found = 335544508)
+      INTEGER*4 gds__charset_not_found
+      PARAMETER (gds__charset_not_found = 335544510)
+      INTEGER*4 gds__lock_timeout
+      PARAMETER (gds__lock_timeout = 335544511)
+      INTEGER*4 gds__prcnotdef
+      PARAMETER (gds__prcnotdef = 335544512)
+      INTEGER*4 gds__prcmismat
+      PARAMETER (gds__prcmismat = 335544513)
+
+      INTEGER*4 GDS__INT_ARG
+      INTEGER*2 GDS__INT2
+      GDS__INT2 (GDS__INT_ARG) = GDS__INT_ARG
+
diff --git a/src/jrd/gds_hp.f b/src/jrd/gds_hp.f
new file mode 100644
index 0000000000..7f35c8cc0f
--- /dev/null
+++ b/src/jrd/gds_hp.f
@@ -0,0 +1,3716 @@
+C  The contents of this file are subject to the Interbase Public
+C  License Version 1.0 (the "License"); you may not use this file
+C  except in compliance with the License. You may obtain a copy
+C  of the License at http://www.Inprise.com/IPL.html
+C
+C  Software distributed under the License is distributed on an
+C  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+C  or implied. See the License for the specific language governing
+C  rights and limitations under the License.
+C
+C  The Original Code was created by Inprise Corporation
+C  and its predecessors. Portions created by Inprise Corporation are
+C  Copyright (C) Inprise Corporation.
+C
+C  All Rights Reserved.
+C  Contributor(s): ______________________________________.
+C
+C         PROGRAM:        Preprocessor
+C         MODULE:         gds.ftn
+C         DESCRIPTION:    GDS constants, procedures, etc.
+C 
+
+      INTEGER*2 INT2
+$ALIAS gds__attach_database (%REF, %VAL, %REF, %REF, %VAL, %REF)
+
+$ALIAS gds__blob_display (%REF, %REF, %REF, %REF, %REF)
+$ALIAS gds__blob_dump (%REF, %REF, %REF, %REF, %REF)
+$ALIAS gds__blob_edit (%REF, %REF, %REF, %REF, %REF)
+$ALIAS gds__blob_load (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS gds__cancel_blob (%REF, %REF)
+
+$ALIAS gds__cancel_events (%REF, %REF, %REF)
+$ALIAS gds__close (%REF, %REF)
+$ALIAS gds__close_blob (%REF, %REF)
+$ALIAS gds__commit_retaining (%REF, %REF)
+$ALIAS gds__commit_transaction (%REF, %REF)
+$ALIAS gds__compile_request (%REF, %REF, %REF, %VAL, %REF)
+$ALIAS gds__compile_request2 (%REF, %REF, %REF, %VAL, %REF)
+$ALIAS gds__create_blob (%REF, %REF, %REF, %REF, %REF)
+$ALIAS gds__create_blob2 (%REF, %REF, %REF, %REF, %REF, %VAL, %REF)
+$ALIAS gds__create_database (%REF, %VAL, %REF, %REF, %VAL, %REF, %REF)
+
+$ALIAS gds__ddl (%REF, %REF,  %REF, %VAL, %REF)
+$ALIAS gds__declare (%REF, %REF, %REF)
+$ALIAS gds__decode_date (%REF, %REF)
+$ALIAS gds__describe (%REF, %REF, %REF)
+$ALIAS gds__detach_database (%REF, %REF)
+$ALIAS gds__dsql_finish (%REF)
+
+$ALIAS gds__encode_date (%REF, %REF)
+$ALIAS gds__event_block_a (%REF, %REF, %VAL, %REF)
+$ALIAS gds__event_counts (%REF, %VAL, %VAL, %VAL)
+$ALIAS gds__event_wait (%REF, %REF, %VAL, %VAL, %VAL)
+$ALIAS gds__execute (%REF, %REF, %REF, %REF)
+$ALIAS gds__execute_immediate (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS gds__fetch (%REF, %REF, %REF)
+$ALIAS gds__ftof (%REF, %VAL, %REF, %VAL)
+
+$ALIAS gds__get_segment (%REF, %REF, %REF, %VAL, %REF)
+$ALIAS gds__get_slice (%REF, %REF, %REF, %REF, %VAL, %REF, %VAL,\
+$ %REF, %VAL, %REF, %REF)
+
+$ALIAS gds__open (%REF, %REF, %REF, %REF)
+$ALIAS gds__open_blob (%REF, %REF, %REF, %REF, %REF)
+$ALIAS gds__open_blob2 (%REF, %REF, %REF, %REF, %REF, %VAL, %REF)
+
+$ALIAS gds__prepare (%REF, %REF, %REF, %REF, %REF, %REF, %REF)
+$ALIAS gds__prepare_transaction (%REF, %REF)
+$ALIAS gds__prepare_transaction2 (%REF, %REF, %VAL, %REF)
+$ALIAS gds__print_status (%REF)
+$ALIAS gds__put_segment (%REF, %REF, %VAL, %REF)
+$ALIAS gds__put_slice (%REF, %REF, %REF, %REF, %VAL, %REF, %VAL, %REF,\
+$ %VAL, %REF)
+
+$ALIAS gds__que_events (%REF, %REF, %REF, %VAL, %REF, %VAL, %REF)
+
+$ALIAS gds__receive (%REF, %REF, %VAL, %VAL, %REF, %VAL)
+$ALIAS gds__rollback_transaction (%REF, %REF)
+
+$ALIAS gds__sqlcode (%REF)
+$ALIAS gds__send (%REF, %REF, %VAL, %VAL, %REF, %VAL)
+$ALIAS gds__start_and_send (%REF, %REF, %REF, %VAL, %VAL, %REF, %VAL)
+$ALIAS gds__start_multiple (%REF, %REF, %VAL, %REF)
+$ALIAS gds__start_request (%REF, %REF, %REF, %VAL)
+$ALIAS gds__start_transaction (%REF, %REF, %VAL, %REF, %VAL, %REF)
+
+$ALIAS gds__unwind_request (%REF, %REF, %VAL)
+
+$ALIAS gds__version (%REF, %VAL, %REF)
+
+$ALIAS isc_baddress (%REF)
+
+$ALIAS isc_dsql_allocate_statement (%REF, %REF, %REF)
+$ALIAS isc_dsql_alloc_statement2 (%REF, %REF, %REF)
+$ALIAS isc_dsql_execute_m (%REF, %REF, %REF, %VAL, %REF, %VAL,\
+$ %VAL, %VAL)
+$ALIAS isc_dsql_execute2_m (%REF, %REF, %REF, %VAL, %REF, %VAL,\
+$ %VAL, %VAL, %VAL, %REF, %VAL, %VAL, %VAL)
+$ALIAS isc_dsql_free_statement (%REF, %REF, %VAL)
+$ALIAS isc_dsql_set_cursor_name (%REF, %REF, %REF, %VAL)
+
+$ALIAS isc_embed_dsql_close (%REF, %REF)
+$ALIAS isc_embed_dsql_declare (%REF, %REF, %REF)
+$ALIAS isc_embed_dsql_describe (%REF, %REF, %VAL, %VAL)
+$ALIAS isc_embed_dsql_describe_bind (%REF, %REF, %VAL, %VAL)
+$ALIAS isc_embed_dsql_execute (%REF, %REF, %REF, %VAL, %VAL)
+$ALIAS isc_embed_dsql_execute2 (%REF, %REF, %REF, %VAL, %VAL, %VAL)
+$ALIAS isc_embed_dsql_execute_immed (%REF, %REF, %REF, %VAL, %REF,\
+$ %VAL, %VAL)
+$ALIAS isc_embed_dsql_fetch (%REF, %REF, %VAL, %VAL)
+$ALIAS isc_embed_dsql_open (%REF, %REF, %REF, %VAL, %VAL)
+$ALIAS isc_embed_dsql_prepare (%REF, %REF, %REF, %REF, %VAL, %REF,\
+$ %VAL, %VAL)
+$ALIAS isc_embed_dsql_release (%REF, %REF)
+
+$ALIAS pyxis__compile_map (%REF, %REF, %REF, %REF, %REF)
+$ALIAS pyxis__compile_menu (%REF, %REF, %REF, %REF)
+$ALIAS pyxis__compile_sub_map (%REF, %REF, %REF, %REF, %REF)
+$ALIAS pyxis__create_window (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__delete_window (%REF)
+$ALIAS pyxis__drive_form (%REF, %REF, %REF, %REF, %REF, %REF, %REF)
+$ALIAS pyxis__drive_menu (%REF, %REF, %REF, %REF, %REF, %REF, %REF,\
+$ %REF, %REF, %REF)
+
+$ALIAS pyxis__fetch (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__get_entree (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__initialize_menu (%REF)
+$ALIAS pyxis__insert (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__load_form (%REF, %REF, %REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__menu (%REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__pop_window (%REF)
+$ALIAS pyxis__put_entree (%REF, %REF, %REF, %REF)
+
+$ALIAS pyxis__reset_form (%REF, %REF)
+$ALIAS pyxis__suspend_window (%REF)
+$ALIAS blob__edit (%REF, %REF, %REF, %REF, %REF)
+$ALIAS blob__display (%REF, %REF, %REF, %REF, %REF)
+$ALIAS blob__dump (%REF, %REF, %REF, %REF, %REF)
+$ALIAS blob__load (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS isc_exec_procedure (%REF, %REF, %REF, %VAL, %REF,\
+$ %VAL, %REF, %VAL, %REF, %VAL, %REF)
+
+$ALIAS isc_attach_database (%REF, %VAL, %REF, %REF, %VAL, %VAL)
+
+$ALIAS isc_blob_display (%REF, %REF, %REF, %REF, %REF)
+$ALIAS isc_blob_dump (%REF, %REF, %REF, %REF, %REF)
+$ALIAS isc_blob_edit (%REF, %REF, %REF, %REF, %REF)
+$ALIAS isc_blob_load (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS isc_cancel_blob (%REF, %REF)
+
+$ALIAS isc_cancel_events (%REF, %REF, %REF)
+$ALIAS isc_close (%REF, %REF)
+$ALIAS isc_close_blob (%REF, %REF)
+$ALIAS isc_commit_retaining (%REF, %REF)
+$ALIAS isc_commit_transaction (%REF, %REF)
+$ALIAS isc_compile_request (%REF, %REF, %REF, %VAL, %REF)
+$ALIAS isc_compile_request2 (%REF, %REF, %REF, %VAL, %REF)
+$ALIAS isc_create_blob (%REF, %REF, %REF, %REF, %REF)
+$ALIAS isc_create_blob2 (%REF, %REF, %REF, %REF, %REF, %VAL, %REF)
+$ALIAS isc_create_database (%REF, %VAL, %REF, %REF, %VAL, %VAL, %REF)
+
+$ALIAS isc_ddl (%REF, %REF,  %REF, %VAL, %REF)
+$ALIAS isc_declare (%REF, %REF, %REF)
+$ALIAS isc_decode_date (%REF, %REF)
+$ALIAS isc_describe (%REF, %REF, %REF)
+$ALIAS isc_detach_database (%REF, %REF)
+$ALIAS isc_dsql_finish (%REF)
+
+$ALIAS isc_encode_date (%REF, %REF)
+$ALIAS isc_event_block_a (%REF, %REF, %VAL, %REF)
+$ALIAS isc_event_counts (%REF, %VAL, %VAL, %VAL)
+$ALIAS isc_event_wait (%REF, %REF, %VAL, %VAL, %VAL)
+$ALIAS isc_execute (%REF, %REF, %REF, %REF)
+$ALIAS isc_execute_immediate (%REF, %REF, %REF, %REF, %REF)
+
+$ALIAS isc_fetch (%REF, %REF, %REF)
+$ALIAS isc_ftof (%REF, %VAL, %REF, %VAL)
+
+$ALIAS isc_get_segment (%REF, %REF, %REF, %VAL, %REF)
+$ALIAS isc_get_slice (%REF, %REF, %REF, %REF, %VAL, %REF, %VAL,\
+$ %REF, %VAL, %REF, %REF)
+
+$ALIAS isc_open (%REF, %REF, %REF, %REF)
+$ALIAS isc_open_blob (%REF, %REF, %REF, %REF, %REF)
+$ALIAS isc_open_blob2 (%REF, %REF, %REF, %REF, %REF, %VAL, %REF)
+
+$ALIAS isc_prepare (%REF, %REF, %REF, %REF, %REF, %REF, %REF)
+$ALIAS isc_prepare_transaction (%REF, %REF)
+$ALIAS isc_prepare_transaction2 (%REF, %REF, %VAL, %REF)
+$ALIAS isc_print_status (%REF)
+$ALIAS isc_put_segment (%REF, %REF, %VAL, %REF)
+$ALIAS isc_put_slice (%REF, %REF, %REF, %REF, %VAL, %REF, %VAL, %REF,\
+$ %VAL, %REF)
+
+$ALIAS isc_que_events (%REF, %REF, %REF, %VAL, %REF, %VAL, %REF)
+
+$ALIAS isc_receive (%REF, %REF, %VAL, %VAL, %REF, %VAL)
+$ALIAS isc_rollback_transaction (%REF, %REF)
+
+$ALIAS isc_sqlcode (%REF)
+$ALIAS isc_send (%REF, %REF, %VAL, %VAL, %REF, %VAL)
+$ALIAS isc_start_and_send (%REF, %REF, %REF, %VAL, %VAL, %REF, %VAL)
+$ALIAS isc_start_multiple (%REF, %REF, %VAL, %REF)
+$ALIAS isc_start_request (%REF, %REF, %REF, %VAL)
+$ALIAS isc_start_transaction (%REF, %REF, %VAL, %REF, %VAL, %REF)
+
+$ALIAS isc_unwind_request (%REF, %REF, %VAL)
+
+$ALIAS isc_version (%REF, %VAL, %REF)
+$ALIAS isc_modify_dpb (%REF, %REF, %VAL, %REF, %VAL)
+$ALIAS isc_free (%VAL)
+
+C     PROCEDURE GDS__ATTACH_DATABASE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    !{ INPUT }
+C        CHARACTER* (*)  FILE_NAME,      !{ INPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*2       DPB_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  DPB             !{ INPUT }
+C        )
+
+      INTEGER*4 ISC_BADDRESS 
+C     INTEGER*4 FUNCTION ISC_BADDRESS (
+C        INTEGER*4       HANDLE          !( INPUT )
+C        )
+
+C     PROCEDURE GDS__CANCEL_BLOB (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__CANCEL_EVENTS (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       ID              !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__CLOSE_BLOB (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__COMMIT_RETAINING (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE      !{ INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE      !{ INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__COMPILE_REQUEST (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  BLR             !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__COMPILE_REQUEST2 (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  BLR             !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_BLOB (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2)      !{ OUTPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_BLOB2 (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2),      !{ OUTPUT }
+C        CHARACTER* (*)  BPB             !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_DATABASE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    !{ INPUT }
+C        CHARACTER* (*)  FILE_NAME,      !{ INPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*2       DPB_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  DPB             !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__DETACH_DATABASE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE       !{ INPUT / OUTPUT }
+C        )
+
+      INTEGER*2 GDS__EVENT_BLOCK_A
+C     PROCEDURE GDS__EVENT_BLOCK_A (
+C        CHARACTER* (*)  EVENTS,         !{ INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          !{ INPUT/OUTPUT }
+C        INTEGER*2       COUNT,          !{ INPUT }
+C        CHARACTER*31    EVENT_NAMES     !{ INPUT/OUTPUT }
+C        )
+
+C     PROCEDURE GDS__EVENT_WAIT (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*2       LENGTH,         !{ INPUT }
+C        CHARACTER* (*)  EVENTS,         !{ INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          !{ INPUT/OUTPUT }
+C        )
+
+      INTEGER*4 GDS__GET_SEGMENT 
+C     INTEGER*4 FUNCTION GDS__GET_SEGMENT (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT }
+C        INTEGER*2       LENGTH,         !{ OUTPUT }
+C        INTEGER*2       BUFFER_LENGTH,  !{ INPUT }
+C        CHARACTER* (*)  BUFFER          !{ INPUT }
+C        )
+
+      INTEGER*4 GDS__GET_SLICE 
+C     INTEGER*4 FUNCTION GDS__GET_SLICE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT }
+C        INTEGER*2       SDL_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  SDL,            !{ INPUT }
+C        INTEGER*2       PARAM_LENGTH,   !{ INPUT }
+C        CHARACTER* (*)  PARAM,          !{ INPUT }
+C        INTEGER*4       SLICE_LENGTH,   !{ INPUT }
+C        CHARACTER* (*)  SLICE,          !{ INPUT }
+C        INTEGER*4       RETURN_LENGTH   !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__OPEN_BLOB (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2)     !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__OPEN_BLOB2 (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2),    !{ INPUT }
+C        CHARACTER* (*)  BPB             !{ INPUT }
+C        )
+
+C      PROCEDURE GDS__COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT / OUTPUT }
+C        )
+
+      INTEGER*4 GDS__PUT_SEGMENT 
+C     INTEGER*4 FUNCTION GDS__PUT_SEGMENT (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT }
+C        INTEGER*2       LENGTH,         !{ INPUT }
+C        CHARACTER* (*)  BUFFER,         !{ INPUT }
+C        )
+
+      INTEGER*4 GDS__PUT_SLICE
+C     INTEGER*4 FUNCTION GDS__PUT_SLICE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT }
+C        INTEGER*2       SDL_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  SDL,            !{ INPUT }
+C        INTEGER*2       PARAM_LENGTH,   !{ INPUT }
+C        CHARACTER* (*)  PARAM,          !{ INPUT }
+C        INTEGER*4       SLICE_LENGTH,   !{ INPUT }
+C        CHARACTER* (*)  SLICE           !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__QUE_EVENTS (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       ID,             !{ INPUT }
+C        INTEGER*2       LENGTH,         !{ INPUT }
+C        CHARACTER* (*)  EVENTS,         !{ INPUT/OUTPUT }
+C        INTEGER*4       AST,            !{ INPUT }
+C        INTEGER*4       ARG             !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__RECEIVE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   !{ INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, !{ INPUT }
+C        CHARACTER* (*)  MESSAGE,        !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__RELEASE_REQUEST (
+C        INTEGER*4       STAT(20),        !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE   !{ INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__ROLLBACK_TRANSACTION (
+C        INTEGER*4       STAT(20),         !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE        !{ INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__SEND (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   !{ INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, !{ INPUT }
+C        CHARACTER* (*)  MESSAGE,        !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__SET_DEBUG (
+C        INTEGER*4       DEBUG_VAL       !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__START_AND_SEND (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT / OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   !{ INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, !{ INPUT }
+C        CHARACTER* (*)  MESSAGE,        !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__START_REQUEST (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT  }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+   
+C     PROCEDURE GDS__START_TRANSACTION (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT / OUTPUT }
+C        INTEGER*2       TRA_COUNT,      !{ INPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*2       TPB_LENGTH      !{ INPUT }
+C        CHARACTER* (*)  TPB             !{ INPUT }
+C        )
+
+C     PROCEDURE GDS__UNWIND_REQUEST (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+
+C     PROCEDURE gds__ftof (
+C        CHARACTER* (*)  STRING1,        !{ INPUT }
+C        INTEGER*2       LENGTH1,        !{ INPUT }
+C        CHARACTER* (*)  STRING2,        !{ INPUT }
+C        INTEGER*2       LENGTH2         !{ INPUT }
+C        )
+
+C     PROCEDURE gds__print_status (
+C        INTEGER*4       STAT(20)        !{ INPUT }
+C        )
+ 
+C     INTEGER FUNCTION gds__sqlcode (
+C        INTEGER*4       STAT(20)        !{ INPUT }
+C        )
+ 
+C     procedure gds__close (
+C        out     stat            : gds__status_vector; 
+C        in      cursor_name     : UNIV gds__string
+C        ); extern;
+
+C     procedure gds__declare (
+C        out       stat               : gds__status_vector; 
+C        in        statement_name     : UNIV gds__string;
+C        in        cursor_name        : UNIV gds__string
+C        ); extern;
+
+C     procedure gds__describe (
+C        out       stat               : gds__status_vector; 
+C        in        statement_name     : UNIV gds__string;
+C        in out    descriptor         : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__execute (
+C        out       stat                : gds__status_vector; 
+C        in        trans_handle        : gds__handle;
+C        in        statement_name      : UNIV gds__string;
+C        in out    descriptor          : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__execute_immediate (
+C        out       stat               : gds__status_vector; 
+C        in        db_handle          : gds__handle;
+C        in        trans_handle       : gds__handle;
+C        in        string_length      : integer;
+C        in        string             : UNIV gds__string
+C        ); extern;
+
+      INTEGER*4 GDS__FETCH
+C     function gds__fetch (
+C        out       stat              : gds__status_vector; 
+C        in        cursor_name       : UNIV gds__string;
+C        in out        descriptor    : UNIV sqlda
+C        ) : integer32; extern;
+
+C     procedure gds__open (
+C        out       stat              : gds__status_vector; 
+C        in        trans_handle      : gds__handle;
+C        in        cursor_name       : UNIV gds__string;
+C        in out    descriptor        : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__prepare (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        statement_name   : UNIV gds__string;
+C        in        string_length    : integer;
+C        in        string           : UNIV gds__string;
+C        in out    descriptor       : UNIV sqlda
+C        ); extern;
+
+C     procedure pyxis__compile_map (
+C        out       stat                : gds__status_vector; 
+C        in        form_handle         : gds__handle;
+C        out       map_handle          : gds__handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__compile_sub_map (
+C        out       stat                : gds__status_vector; 
+C        in        form_handle         : gds__handle;
+C        out       map_handle          : gds__handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__create_window (
+C        in out    window_handle      : gds__handle;
+C        in        name_length        : integer16;
+C        in        file_name          : UNIV gds__string; 
+C        in out    width              : integer16;
+C        in out    height             : integer16
+C        ); extern;
+
+C     procedure pyxis__delete_window (
+C        in out        window_handle        : gds__handle
+C        ); extern;
+
+C     procedure pyxis__drive_form (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in out    window_handle    : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        input            : UNIV gds__string;
+C        in        output           : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__fetch (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        output           : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__insert (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        input            : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__load_form (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in out    form_handle      : gds__handle;
+C        in        name_length      : integer16;
+C        in        form_name        : UNIV gds__string 
+C        ); extern;
+
+      INTEGER*2 PYXIS__MENU
+C     function pyxis__menu (
+C        in out    window_handle    : gds__handle;
+C        in out    menu_handle      : gds__handle;
+C        in        length           : integer16;
+C        in        menu             : UNIV gds__string
+C        ) : integer16; extern;
+
+C     procedure pyxis__pop_window (
+C        in        window_handle    : gds__handle
+C        ); extern;
+
+C     procedure pyxis__reset_form (
+C        out       stat            : gds__status_vector; 
+C        in        window_handle   : gds__handle
+C        ); extern;
+
+C     procedure pyxis__drive_menu (
+C        in out    window_handle     : gds__handle;
+C        in out    menu_handle       : gds__handle;
+C        in        blr_length        : integer16;
+C        in        blr_source        : UNIV gds__string;
+C        in        title_length      : integer16;
+C        in        title             : UNIV gds__string;
+C        out       terminator        : integer16;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV gds__string;
+C        out       entree_value      : integer32
+C        ); extern;
+
+C     procedure pyxis__get_entree (
+C        in        menu_handle       : gds__handle;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV gds__string;
+C        out       entree_value      : integer32;
+C        out       entree_end        : integer16
+C        ); extern;
+
+C     procedure pyxis__initialize_menu (
+C        in out        menu_handle   : gds__handle
+C        ); extern;
+
+C     procedure pyxis__put_entree (
+C        in        menu_handle        : gds__handle;
+C        in        entree_length      : integer16;
+C        in        entree_text        : UNIV gds__string;
+C        in        entree_value       : integer32
+C        ); extern;
+
+C     PROCEDURE isc_exec_procedure (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  PROC_NAME,      { INPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR,             { INPUT }
+C        INTEGER*2       IN_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  IN_MESSAGE,        { INPUT }
+C        INTEGER*2       OUT_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  OUT_MESSAGE        { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE ISC_ATTACH_DATABASE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    !{ INPUT }
+C        CHARACTER* (*)  FILE_NAME,      !{ INPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*2       DPB_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  DPB             !{ INPUT }
+C        )
+
+C     INTEGER*4 FUNCTION ISC_BADDRESS (
+C        INTEGER*4       HANDLE          !( INPUT )
+C        )
+
+C     PROCEDURE ISC_CANCEL_BLOB (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_CANCEL_EVENTS (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       ID              !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_CLOSE_BLOB (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_COMMIT_RETAINING (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE      !{ INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE ISC_COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE      !{ INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE ISC_COMPILE_REQUEST (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  BLR             !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_COMPILE_REQUEST2 (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  BLR             !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_CREATE_BLOB (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2)      !{ OUTPUT }
+C        )
+
+C     PROCEDURE ISC_CREATE_BLOB2 (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2),      !{ OUTPUT }
+C        CHARACTER* (*)  BPB             !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_CREATE_DATABASE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    !{ INPUT }
+C        CHARACTER* (*)  FILE_NAME,      !{ INPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*2       DPB_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  DPB             !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_DETACH_DATABASE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE       !{ INPUT / OUTPUT }
+C        )
+
+      INTEGER*2 ISC_EVENT_BLOCK_A
+C     PROCEDURE ISC_EVENT_BLOCK_A (
+C        CHARACTER* (*)  EVENTS,         !{ INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          !{ INPUT/OUTPUT }
+C        INTEGER*2       COUNT,          !{ INPUT }
+C        CHARACTER*31    EVENT_NAMES     !{ INPUT/OUTPUT }
+C        )
+
+C     PROCEDURE ISC_EVENT_WAIT (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*2       LENGTH,         !{ INPUT }
+C        CHARACTER* (*)  EVENTS,         !{ INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          !{ INPUT/OUTPUT }
+C        )
+
+      INTEGER*4 ISC_GET_SEGMENT 
+C     INTEGER*4 FUNCTION ISC_GET_SEGMENT (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT }
+C        INTEGER*2       LENGTH,         !{ OUTPUT }
+C        INTEGER*2       BUFFER_LENGTH,  !{ INPUT }
+C        CHARACTER* (*)  BUFFER          !{ INPUT }
+C        )
+
+      INTEGER*4 ISC_GET_SLICE 
+C     INTEGER*4 FUNCTION ISC_GET_SLICE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT }
+C        INTEGER*2       SDL_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  SDL,            !{ INPUT }
+C        INTEGER*2       PARAM_LENGTH,   !{ INPUT }
+C        CHARACTER* (*)  PARAM,          !{ INPUT }
+C        INTEGER*4       SLICE_LENGTH,   !{ INPUT }
+C        CHARACTER* (*)  SLICE,          !{ INPUT }
+C        INTEGER*4       RETURN_LENGTH   !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_OPEN_BLOB (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2)     !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_OPEN_BLOB2 (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2),    !{ INPUT }
+C        CHARACTER* (*)  BPB             !{ INPUT }
+C        )
+
+C      PROCEDURE ISC_COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT / OUTPUT }
+C        )
+
+      INTEGER*4 ISC_PUT_SEGMENT 
+C     INTEGER*4 FUNCTION ISC_PUT_SEGMENT (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT }
+C        INTEGER*2       LENGTH,         !{ INPUT }
+C        CHARACTER* (*)  BUFFER,         !{ INPUT }
+C        )
+
+      INTEGER*4 ISC_PUT_SLICE
+C     INTEGER*4 FUNCTION ISC_PUT_SLICE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    !{ INPUT }
+C        INTEGER*2       SDL_LENGTH,     !{ INPUT }
+C        CHARACTER* (*)  SDL,            !{ INPUT }
+C        INTEGER*2       PARAM_LENGTH,   !{ INPUT }
+C        CHARACTER* (*)  PARAM,          !{ INPUT }
+C        INTEGER*4       SLICE_LENGTH,   !{ INPUT }
+C        CHARACTER* (*)  SLICE           !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_QUE_EVENTS (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*4       ID,             !{ INPUT }
+C        INTEGER*2       LENGTH,         !{ INPUT }
+C        CHARACTER* (*)  EVENTS,         !{ INPUT/OUTPUT }
+C        INTEGER*4       AST,            !{ INPUT }
+C        INTEGER*4       ARG             !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_RECEIVE (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   !{ INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, !{ INPUT }
+C        CHARACTER* (*)  MESSAGE,        !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_RELEASE_REQUEST (
+C        INTEGER*4       STAT(20),        !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE   !{ INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE ISC_ROLLBACK_TRANSACTION (
+C        INTEGER*4       STAT(20),         !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE        !{ INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE ISC_SEND (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   !{ INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, !{ INPUT }
+C        CHARACTER* (*)  MESSAGE,        !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_SET_DEBUG (
+C        INTEGER*4       DEBUG_VAL       !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_START_AND_SEND (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT / OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   !{ INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, !{ INPUT }
+C        CHARACTER* (*)  MESSAGE,        !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_START_REQUEST (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT  }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+   
+C     PROCEDURE ISC_START_TRANSACTION (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     !{ INPUT / OUTPUT }
+C        INTEGER*2       TRA_COUNT,      !{ INPUT }
+C        INTEGER*4       DB_HANDLE,      !{ INPUT }
+C        INTEGER*2       TPB_LENGTH      !{ INPUT }
+C        CHARACTER* (*)  TPB             !{ INPUT }
+C        )
+
+C     PROCEDURE ISC_UNWIND_REQUEST (
+C        INTEGER*4       STAT(20),       !{ OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, !{ INPUT }
+C        INTEGER*2       INSTANTIATION   !{ INPUT }
+C        )
+
+C     PROCEDURE isc_ftof (
+C        CHARACTER* (*)  STRING1,        !{ INPUT }
+C        INTEGER*2       LENGTH1,        !{ INPUT }
+C        CHARACTER* (*)  STRING2,        !{ INPUT }
+C        INTEGER*2       LENGTH2         !{ INPUT }
+C        )
+
+C     PROCEDURE isc_print_status (
+C        INTEGER*4       STAT(20)        !{ INPUT }
+C        )
+ 
+C     INTEGER FUNCTION isc_sqlcode (
+C        INTEGER*4       STAT(20)        !{ INPUT }
+C        )
+ 
+C     procedure isc_close (
+C        out     stat            : isc_status_vector; 
+C        in      cursor_name     : UNIV isc_string
+C        ); extern;
+
+C     procedure isc_declare (
+C        out       stat               : isc_status_vector; 
+C        in        statement_name     : UNIV isc_string;
+C        in        cursor_name        : UNIV isc_string
+C        ); extern;
+
+C     procedure isc_describe (
+C        out       stat               : isc_status_vector; 
+C        in        statement_name     : UNIV isc_string;
+C        in out    descriptor         : UNIV sqlda
+C        ); extern;
+
+C     procedure isc_execute (
+C        out       stat                : isc_status_vector; 
+C        in        trans_handle        : isc_handle;
+C        in        statement_name      : UNIV isc_string;
+C        in out    descriptor          : UNIV sqlda
+C        ); extern;
+
+C     procedure isc_execute_immediate (
+C        out       stat               : isc_status_vector; 
+C        in        db_handle          : isc_handle;
+C        in        trans_handle       : isc_handle;
+C        in        string_length      : integer;
+C        in        string             : UNIV isc_string
+C        ); extern;
+
+      INTEGER*4 ISC_FETCH
+C     function isc_fetch (
+C        out       stat              : isc_status_vector; 
+C        in        cursor_name       : UNIV isc_string;
+C        in out        descriptor    : UNIV sqlda
+C        ) : integer32; extern;
+
+C     procedure isc_open (
+C        out       stat              : isc_status_vector; 
+C        in        trans_handle      : isc_handle;
+C        in        cursor_name       : UNIV isc_string;
+C        in out    descriptor        : UNIV sqlda
+C        ); extern;
+
+C     procedure isc_prepare (
+C        out       stat             : isc_status_vector; 
+C        in        db_handle        : isc_handle;
+C        in        trans_handle     : isc_handle;
+C        in        statement_name   : UNIV isc_string;
+C        in        string_length    : integer;
+C        in        string           : UNIV isc_string;
+C        in out    descriptor       : UNIV sqlda
+C        ); extern;
+
+C     procedure pyxis__compile_map (
+C        out       stat                : isc_status_vector; 
+C        in        form_handle         : isc_handle;
+C        out       map_handle          : isc_handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV isc_string
+C        ); extern;
+
+C     procedure pyxis__compile_sub_map (
+C        out       stat                : isc_status_vector; 
+C        in        form_handle         : isc_handle;
+C        out       map_handle          : isc_handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV isc_string
+C        ); extern;
+
+C     procedure pyxis__create_window (
+C        in out    window_handle      : isc_handle;
+C        in        name_length        : integer16;
+C        in        file_name          : UNIV isc_string; 
+C        in out    width              : integer16;
+C        in out    height             : integer16
+C        ); extern;
+
+C     procedure pyxis__delete_window (
+C        in out        window_handle        : isc_handle
+C        ); extern;
+
+C     procedure pyxis__drive_form (
+C        out       stat             : isc_status_vector; 
+C        in        db_handle        : isc_handle;
+C        in        trans_handle     : isc_handle;
+C        in out    window_handle    : isc_handle;
+C        in        map_handle       : isc_handle;
+C        in        input            : UNIV isc_string;
+C        in        output           : UNIV isc_string
+C        ); extern;
+
+C     procedure pyxis__fetch (
+C        out       stat             : isc_status_vector; 
+C        in        db_handle        : isc_handle;
+C        in        trans_handle     : isc_handle;
+C        in        map_handle       : isc_handle;
+C        in        output           : UNIV isc_string
+C        ); extern;
+
+C     procedure pyxis__insert (
+C        out       stat             : isc_status_vector; 
+C        in        db_handle        : isc_handle;
+C        in        trans_handle     : isc_handle;
+C        in        map_handle       : isc_handle;
+C        in        input            : UNIV isc_string
+C        ); extern;
+
+C     procedure pyxis__load_form (
+C        out       stat             : isc_status_vector; 
+C        in        db_handle        : isc_handle;
+C        in        trans_handle     : isc_handle;
+C        in out    form_handle      : isc_handle;
+C        in        name_length      : integer16;
+C        in        form_name        : UNIV isc_string 
+C        ); extern;
+
+C     function pyxis__menu (
+C        in out    window_handle    : isc_handle;
+C        in out    menu_handle      : isc_handle;
+C        in        length           : integer16;
+C        in        menu             : UNIV isc_string
+C        ) : integer16; extern;
+
+C     procedure pyxis__pop_window (
+C        in        window_handle    : isc_handle
+C        ); extern;
+
+C     procedure pyxis__reset_form (
+C        out       stat            : isc_status_vector; 
+C        in        window_handle   : isc_handle
+C        ); extern;
+
+C     procedure pyxis__drive_menu (
+C        in out    window_handle     : isc_handle;
+C        in out    menu_handle       : isc_handle;
+C        in        blr_length        : integer16;
+C        in        blr_source        : UNIV isc_string;
+C        in        title_length      : integer16;
+C        in        title             : UNIV isc_string;
+C        out       terminator        : integer16;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV isc_string;
+C        out       entree_value      : integer32
+C        ); extern;
+
+C     procedure pyxis__get_entree (
+C        in        menu_handle       : isc_handle;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV isc_string;
+C        out       entree_value      : integer32;
+C        out       entree_end        : integer16
+C        ); extern;
+
+C     procedure pyxis__initialize_menu (
+C        in out        menu_handle   : isc_handle
+C        ); extern;
+
+C     procedure pyxis__put_entree (
+C        in        menu_handle        : isc_handle;
+C        in        entree_length      : integer16;
+C        in        entree_text        : UNIV isc_string;
+C        in        entree_value       : integer32
+C        ); extern;
+
+C     PROCEDURE isc_exec_procedure (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  PROC_NAME,      { INPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR,             { INPUT }
+C        INTEGER*2       IN_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  IN_MESSAGE,        { INPUT }
+C        INTEGER*2       OUT_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  OUT_MESSAGE        { INPUT / OUTPUT }
+C        )
+
+       INTEGER*2 GDS__TRUE, GDS__FALSE
+       PARAMETER (
+     +    GDS__TRUE = 1,
+     +    GDS__FALSE = 0)
+
+       INTEGER*2 ISC_TRUE, ISC_FALSE
+       PARAMETER (
+     +    ISC_TRUE = 1,
+     +    ISC_FALSE = 0)
+
+       INTEGER*2  BLR_BLOB
+       PARAMETER  (BLR_BLOB = 261)
+
+       CHARACTER*1 
+     +    BLR_TEXT, BLR_SHORT, BLR_LONG, BLR_QUAD, BLR_FLOAT,
+     +    BLR_DOUBLE, BLR_D_FLOAT, BLR_DATE, BLR_VARYING, BLR_CSTRING,
+     +    BLR_VERSION4, BLR_EOC, BLR_END
+
+       PARAMETER (
+     +    BLR_TEXT = CHAR(14),
+     +    BLR_SHORT = CHAR(7),
+     +    BLR_LONG = CHAR(8),
+     +    BLR_QUAD = CHAR(9),
+     +    BLR_FLOAT = CHAR(10),
+     +    BLR_DOUBLE = CHAR(27),
+     +    BLR_D_FLOAT = CHAR(11),
+     +    BLR_DATE = CHAR(35),
+     +    BLR_VARYING = CHAR(37),
+     +    BLR_CSTRING = CHAR(40),
+     +    BLR_VERSION4 = CHAR(4),
+     +    BLR_EOC = CHAR(76),
+     +    BLR_END = CHAR(255))
+
+      CHARACTER*1
+     +    BLR_ASSIGNMENT, BLR_BEGIN, BLR_MESSAGE, BLR_ERASE, BLR_FETCH,
+     +    BLR_FOR, BLR_IF, BLR_LOOP, BLR_MODIFY, BLR_HANDLER, 
+     +    BLR_RECEIVE, BLR_SELECT, BLR_SEND, BLR_STORE, BLR_LABEL,
+     +    BLR_LEAVE
+
+
+      PARAMETER (
+     +    BLR_ASSIGNMENT = CHAR(1),
+     +    BLR_BEGIN = CHAR(2),
+     +    BLR_MESSAGE = CHAR(4),
+     +    BLR_ERASE = CHAR(5),
+     +    BLR_FETCH = CHAR(6),
+     +    BLR_FOR = CHAR(7),
+     +    BLR_IF = CHAR(8),
+     +    BLR_LOOP = CHAR(9),
+     +    BLR_MODIFY = CHAR(10),
+     +    BLR_HANDLER = CHAR(11),
+     +    BLR_RECEIVE = CHAR(12),
+     +    BLR_SELECT = CHAR(13),
+     +    BLR_SEND = CHAR(14),
+     +    BLR_STORE = CHAR(15),
+     +    BLR_LABEL = CHAR(17),
+     +    BLR_LEAVE = CHAR(18))
+
+      CHARACTER*1
+     +    BLR_LITERAL, BLR_DBKEY, BLR_FIELD, BLR_FID, BLR_PARAMETER,
+     +    BLR_VARIABLE, BLR_AVERAGE, BLR_COUNT, BLR_MAXIMUM, 
+     +    BLR_MINIMUM, BLR_TOTAL
+
+      PARAMETER (
+     +    BLR_LITERAL = CHAR(21),
+     +    BLR_DBKEY = CHAR(22),
+     +    BLR_FIELD = CHAR(23),
+     +    BLR_FID = CHAR(24),
+     +    BLR_PARAMETER = CHAR(25),
+     +    BLR_VARIABLE = CHAR(26),
+     +    BLR_AVERAGE = CHAR(27),
+     +    BLR_COUNT = CHAR(28),
+     +    BLR_MAXIMUM = CHAR(29),
+     +    BLR_MINIMUM = CHAR(30),
+     +    BLR_TOTAL = CHAR(31))
+
+      CHARACTER*1
+     +    BLR_ADD, BLR_SUBTRACT, BLR_MULTIPLY, BLR_DIVIDE,
+     +    BLR_NEGATE, BLR_CONCATENATE, BLR_SUBSTRING, 
+     +    BLR_PARAMETER2, BLR_FROM, BLR_VIA, BLR_NULL
+     
+
+      PARAMETER (
+     +    BLR_ADD = CHAR(34),
+     +    BLR_SUBTRACT = CHAR(35),
+     +    BLR_MULTIPLY = CHAR(36),
+     +    BLR_DIVIDE = CHAR(37),
+     +    BLR_NEGATE = CHAR(38),
+     +    BLR_CONCATENATE = CHAR(39),
+     +    BLR_SUBSTRING = CHAR(40),
+     +    BLR_PARAMETER2 = CHAR(41),
+     +    BLR_FROM = CHAR(42),
+     +    BLR_VIA = CHAR(43),
+     +    BLR_NULL = CHAR(45))
+
+      CHARACTER*1
+     +    BLR_EQL, BLR_NEQ, BLR_GTR, BLR_GEQ, BLR_LSS, BLR_LEQ, 
+     +    BLR_CONTAINING, BLR_MATCHING, BLR_STARTING, BLR_BETWEEN, 
+     +    BLR_OR, BLR_AND, BLR_NOT, BLR_ANY, BLR_MISSING, BLR_LIKE,
+     +    BLR_UNIQUE
+
+       PARAMETER (
+     +    BLR_EQL = CHAR(47),
+     +    BLR_NEQ = CHAR(48),
+     +    BLR_GTR = CHAR(49),
+     +    BLR_GEQ = CHAR(50),
+     +    BLR_LSS = CHAR(51),
+     +    BLR_LEQ = CHAR(52),
+     +    BLR_CONTAINING = CHAR(53),
+     +    BLR_MATCHING = CHAR(54),
+     +    BLR_STARTING = CHAR(55),
+     +    BLR_BETWEEN = CHAR(56),
+     +    BLR_OR = CHAR(57),
+     +    BLR_AND = CHAR(58),
+     +    BLR_NOT = CHAR(59),
+     +    BLR_ANY = CHAR(60),
+     +    BLR_MISSING = CHAR(61),
+     +    BLR_UNIQUE = CHAR(62),
+     +    BLR_LIKE = CHAR(63))
+
+      CHARACTER*1
+     +    BLR_RSE, BLR_FIRST, BLR_PROJECT, BLR_SORT, BLR_BOOLEAN, 
+     +    BLR_ASCENDING, BLR_DESCENDING, BLR_RELATION, BLR_RID,
+     +    BLR_UNION, BLR_MAP, BLR_GROUP_BY, BLR_AGGREGATE,
+     +    BLR_JOIN_TYPE
+
+
+      PARAMETER (
+     +    BLR_RSE = CHAR(67),
+     +    BLR_FIRST = CHAR(68),
+     +    BLR_PROJECT = CHAR(69),
+     +    BLR_SORT = CHAR(70),
+     +    BLR_BOOLEAN = CHAR(71),
+     +    BLR_ASCENDING = CHAR(72),
+     +    BLR_DESCENDING = CHAR(73),
+     +    BLR_RELATION = CHAR(74),
+     +    BLR_RID = CHAR(75),
+     +    BLR_UNION = CHAR(76),
+     +    BLR_MAP = CHAR(77),
+     +    BLR_GROUP_BY = CHAR(78),     
+     +    BLR_AGGREGATE = CHAR(79),
+     +    BLR_JOIN_TYPE = CHAR(80))
+
+      CHARACTER*1
+     +    BLR_INNER, BLR_LEFT, BLR_RIGHT, BLR_FULL
+
+      PARAMETER (
+     +    BLR_INNER = CHAR(0),
+     +    BLR_LEFT = CHAR(1),
+     +    BLR_RIGHT = CHAR(2),
+     +    BLR_FULL = CHAR(3))
+
+      CHARACTER*1
+     +    BLR_AGG_COUNT, BLR_AGG_MAX, BLR_AGG_MIN, BLR_AGG_TOTAL,
+     +    BLR_AGG_AVERAGE, BLR_RUN_COUNT, BLR_RUN_MAX, BLR_RUN_MIN,
+     +    BLR_RUN_TOTAL, BLR_RUN_AVERAGE
+
+      PARAMETER (
+     +    BLR_AGG_COUNT = CHAR(83),     
+     +    BLR_AGG_MAX = CHAR(84),
+     +    BLR_AGG_MIN = CHAR(85),
+     +    BLR_AGG_TOTAL = CHAR(86),
+     +    BLR_AGG_AVERAGE = CHAR(87),
+     +    BLR_RUN_COUNT = CHAR(118),
+     +    BLR_RUN_MAX = CHAR(89),
+     +    BLR_RUN_MIN = CHAR(90),
+     +    BLR_RUN_TOTAL = CHAR(91),
+     +    BLR_RUN_AVERAGE = CHAR(92)) 
+
+      CHARACTER*1
+     +    BLR_FUNCTION, BLR_GEN_ID, BLR_PROT_MASK, BLR_UPCASE,
+     +    BLR_LOCK_STATE, BLR_VALUE_IF, BLR_MATCHING2, BLR_INDEX
+
+      PARAMETER (
+     +    BLR_FUNCTION = CHAR(100),
+     +    BLR_GEN_ID = CHAR(101),
+     +    BLR_PROT_MASK = CHAR(102),
+     +    BLR_UPCASE = CHAR(103),
+     +    BLR_LOCK_STATE = CHAR(104),
+     +    BLR_VALUE_IF = CHAR(105),
+     +    BLR_MATCHING2 = CHAR(106),
+     +    BLR_INDEX = CHAR(107))
+
+      CHARACTER*1
+     +    BLR_ANSI_LIKE, BLR_BOOKMARK, BLR_CRACK,
+     +    BLR_FORCE_CRACK, BLR_SEEK, BLR_FIND,
+     +    BLR_LOCK_RELATION, BLR_LOCK_RECORD,
+     +    BLR_SET_BOOKMARK, BLR_GET_BOOKMARK
+
+      PARAMETER (
+     +    BLR_ANSI_LIKE = CHAR(108),
+     +    BLR_BOOKMARK = CHAR(109),
+     +    BLR_CRACK = CHAR(110),
+     +    BLR_FORCE_CRACK = CHAR(111),
+     +    BLR_SEEK = CHAR(112),
+     +    BLR_FIND = CHAR(113),
+     +    BLR_LOCK_RELATION = CHAR(114),
+     +    BLR_LOCK_RECORD = CHAR(115),
+     +    BLR_SET_BOOKMARK = CHAR(116),
+     +    BLR_GET_BOOKMARK = CHAR(117))
+
+      CHARACTER*1
+     +    BLR_RS_STREAM, BLR_EXEC_PROC, BLR_BEGIN_RANGE,
+     +    BLR_END_RANGE, BLR_DELETE_RANGE, BLR_PROCEDURE,
+     +    BLR_PID, BLR_EXEC_PID, BLR_SINGULAR, BLR_ABORT,
+     +    BLR_BLOCK, BLR_ERROR_HANDLER, BLR_PARAMETER3,
+     +    BLR_CAST
+
+      PARAMETER (
+     +    BLR_PARAMETER3 = CHAR(88),
+     +    BLR_RS_STREAM = CHAR(119),
+     +    BLR_EXEC_PROC = CHAR(120),
+     +    BLR_BEGIN_RANGE = CHAR(121),
+     +    BLR_END_RANGE = CHAR(122),
+     +    BLR_DELETE_RANGE = CHAR(123),
+     +    BLR_PROCEDURE = CHAR(124),
+     +    BLR_PID = CHAR(125),
+     +    BLR_EXEC_PID = CHAR(126),
+     +    BLR_SINGULAR = CHAR(127),
+     +    BLR_ABORT = CHAR(128),
+     +    BLR_BLOCK = CHAR(129),
+     +    BLR_ERROR_HANDLER = CHAR(130),
+     +    BLR_CAST = CHAR(131))
+
+      CHARACTER*1
+     +    BLR_GDS_CODE, BLR_SQL_CODE, BLR_EXCEPTION,
+     +    BLR_TRIGGER_CODE, BLR_DEFAULT_CODE
+
+      PARAMETER (
+     +    BLR_GDS_CODE = CHAR(0),
+     +    BLR_SQL_CODE = CHAR(1),
+     +    BLR_EXCEPTION = CHAR(2),
+     +    BLR_TRIGGER_CODE = CHAR(3),
+     +    BLR_DEFAULT_CODE = CHAR(4))
+
+C     database parameter block stuff 
+
+      CHARACTER*1
+     +     GDS__DPB_VERSION1,
+     +     GDS__DPB_CDD_PATHNAME, ISC_DPB_ALLOCATION,
+     +     GDS__DPB_JOURNAL, ISC_DPB_PAGE_SIZE,
+     +     GDS__DPB_BUFFERS,  ISC_DPB_BUFFER_LENGTH,
+     +     GDS__DPB_DEBUG, ISC_DPB_GARBAGE_COLLECT,
+     +     GDS__DPB_VERIFY,  ISC_DPB_SWEEP,
+     +     GDS__DPB_ENABLE_JOURNAL, ISC_DPB_DISABLE_JOURNAL,
+     +     GDS__DPB_DBKEY_SCOPE, ISC_DPB_NUMBER_OF_USERS,
+     +     GDS__DPB_TRACE, ISC_DPB_NO_GARBAGE_COLLECT,
+     +     GDS__DPB_DAMAGED, ISC_DPB_LICENSE, ISC_DPB_SYS_USER_NAME,
+     +     GDS__DPB_ENCRYPT_KEY, ISC_DPB_ACTIVATE_SHADOW, ISC_DPB_SWEEP_INTERVAL,
+     +     GDS__DPB_DELETE_SHADOW, ISC_DPB_FORCE_WRITE, ISC_DPB_BEGIN_LOG, 
+     +     GDS__DPB_QUIT_LOG, ISC_DPB_NO_RESERVE, ISC_DPB_USER_NAME,
+     +     GDS__DPB_PASSWORD, ISC_DPB_PASSWORD_ENC, ISC_DPB_SYS_USER_NAME_ENC,
+     +     GDS__DPB_INTERP, ISC_DPB_ONLINE_DUMP, ISC_DPB_OLD_FILE_SIZE,
+     +     GDS__DPB_OLD_NUM_FILES, ISC_DPB_OLD_FILE, ISC_DPB_OLD_START_PAGE,
+     +     GDS__DPB_OLD_START_SEQNO, ISC_DPB_OLD_START_FILE, ISC_DPB_DROP_WALFILE,
+     +     GDS__DPB_OLD_DUMP_ID, ISC_DPB_WAL_BACKUP_DIR, ISC_DPB_WAL_CHKPTLEN,
+     +     GDS__DPB_WAL_NUMBUFS, ISC_DPB_WAL_BUFSIZE, ISC_DPB_WAL_GRP_CMT_WAIT,
+     +     GDS__DPB_LC_MESSAGES, ISC_DPB_LC_CTYPE, ISC_DPB_CACHE_MANAGER,
+     +     GDS__DPB_SHUTDOWN, ISC_DPB_ONLINE, ISC_DPB_SHUTDOWN_DELAY,
+     +     GDS__DPB_RESERVED, ISC_DPB_OVERWRITE, ISC_DPB_SEC_ATTACH,
+     +     GDS__DPB_DISABLE_WAL
+
+      PARAMETER (
+     +     GDS__DPB_VERSION1              = CHAR (1),
+     +     GDS__DPB_CDD_PATHNAME          = CHAR (1),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_ALLOCATION            = CHAR (2),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_JOURNAL               = CHAR (3),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_PAGE_SIZE             = CHAR (4),
+     +     GDS__DPB_BUFFERS               = CHAR (5),
+     +     GDS__DPB_BUFFER_LENGTH         = CHAR (6),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_DEBUG                 = CHAR (7),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_GARBAGE_COLLECT       = CHAR (8),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_VERIFY                = CHAR (9),
+     +     GDS__DPB_SWEEP                 = CHAR (10),
+     +     GDS__DPB_ENABLE_JOURNAL        = CHAR (11),
+     +     GDS__DPB_DISABLE_JOURNAL       = CHAR (12),
+     +     GDS__DPB_DBKEY_SCOPE           = CHAR (13),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_NUMBER_OF_USERS       = CHAR (14),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_TRACE                 = CHAR (15),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_NO_GARBAGE_COLLECT    = CHAR (16),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_DAMAGED               = CHAR (17),    !{ NOT IMPLEMENTED }
+     +     GDS__DPB_LICENSE               = CHAR (18),
+     +     GDS__DPB_SYS_USER_NAME         = CHAR (19))
+
+      PARAMETER (
+     +     GDS__DPB_ENCRYPT_KEY           = CHAR (20),
+     +     GDS__DPB_ACTIVATE_SHADOW       = CHAR (21),
+     +     GDS__DPB_SWEEP_INTERVAL        = CHAR (22),
+     +     GDS__DPB_DELETE_SHADOW         = CHAR (23))
+
+
+      PARAMETER (
+     +     GDS__DPB_FORCE_WRITE           = CHAR (24),
+     +     GDS__DPB_BEGIN_LOG             = CHAR (25),
+     +     GDS__DPB_QUIT_LOG              = CHAR (26),
+     +     GDS__DPB_NO_RESERVE            = CHAR (27),
+     +     GDS__DPB_USER_NAME             = CHAR (28),
+     +     GDS__DPB_PASSWORD              = CHAR (29),
+     +     GDS__DPB_PASSWORD_ENC          = CHAR (30),
+     +     GDS__DPB_SYS_USER_NAME_ENC     = CHAR (31),
+     +     GDS__DPB_INTERP                = CHAR (32),
+     +     GDS__DPB_ONLINE_DUMP           = CHAR (33),
+     +     GDS__DPB_OLD_FILE_SIZE         = CHAR (34),
+     +     GDS__DPB_OLD_NUM_FILES         = CHAR (35),
+     +     GDS__DPB_OLD_FILE              = CHAR (36),
+     +     GDS__DPB_OLD_START_PAGE        = CHAR (37),
+     +     GDS__DPB_OLD_START_SEQNO       = CHAR (38),
+     +     GDS__DPB_OLD_START_FILE        = CHAR (39),
+     +     GDS__DPB_DROP_WALFILE          = CHAR (40),
+     +     GDS__DPB_OLD_DUMP_ID           = CHAR (41),
+     +     GDS__DPB_WAL_BACKUP_DIR        = CHAR (42),
+     +     GDS__DPB_WAL_CHKPTLEN          = CHAR (43),
+     +     GDS__DPB_WAL_NUMBUFS           = CHAR (44),
+     +     GDS__DPB_WAL_BUFSIZE           = CHAR (45),
+     +     GDS__DPB_WAL_GRP_CMT_WAIT      = CHAR (46),
+     +     GDS__DPB_LC_MESSAGES           = CHAR (47),
+     +     GDS__DPB_LC_CTYPE              = CHAR (48),
+     +     GDS__DPB_CACHE_MANAGER	 = CHAR (49),
+     +     GDS__DPB_SHUTDOWN		 = CHAR (50),
+     +     GDS__DPB_ONLINE		 = CHAR (51),
+     +     GDS__DPB_SHUTDOWN_DELAY	 = CHAR (52),
+     +     GDS__DPB_RESERVED		 = CHAR (53),
+     +     GDS__DPB_OVERWRITE		 = CHAR (54),
+     +     GDS__DPB_SEC_ATTACH		 = CHAR (55),
+     +     GDS__DPB_DISABLE_WAL		 = CHAR (56))
+
+      CHARACTER*1
+     +     GDS__DPB_PAGES, GDS__DPB_RECORDS, 
+     +     GDS__DPB_INDICES, GDS__DPB_TRANSACTIONS, 
+     +     GDS__DPB_NO_UPDATE, GDS__DPB_REPAIR
+
+      PARAMETER (
+     +     GDS__DPB_PAGES = CHAR(1),
+     +     GDS__DPB_RECORDS = CHAR(2),
+     +     GDS__DPB_INDICES = CHAR(4),
+     +     GDS__DPB_TRANSACTIONS = CHAR(8),
+     +     GDS__DPB_NO_UPDATE = CHAR(16),
+     +     GDS__DPB_REPAIR = CHAR(32))
+
+
+
+C     Transaction parameter block stuff 
+
+      CHARACTER*1
+     + GDS__TPB_VERSION3, GDS__TPB_CONSISTENCY, GDS__TPB_CONCURRENCY,
+     + GDS__TPB_SHARED, GDS__TPB_PROTECTED, GDS__TPB_EXCLUSIVE,
+     + GDS__TPB_WAIT, GDS__TPB_NOWAIT, GDS__TPB_READ, GDS__TPB_WRITE,
+     + GDS__TPB_LOCK_READ, GDS__TPB_LOCK_WRITE, GDS__TPB_VERB_TIME,
+     + GDS__TPB_COMMIT_TIME                            
+
+
+      PARAMETER (
+     + GDS__TPB_VERSION3     = CHAR (3),
+     + GDS__TPB_CONSISTENCY  = CHAR (1),
+     + GDS__TPB_CONCURRENCY  = CHAR (2),
+     + GDS__TPB_SHARED       = CHAR (3),
+     + GDS__TPB_PROTECTED    = CHAR (4),
+     + GDS__TPB_EXCLUSIVE    = CHAR (5),
+     + GDS__TPB_WAIT         = CHAR (6),
+     + GDS__TPB_NOWAIT       = CHAR (7),
+     + GDS__TPB_READ         = CHAR (8),
+     + GDS__TPB_WRITE        = CHAR (9),
+     + GDS__TPB_LOCK_READ    = CHAR (10),
+     + GDS__TPB_LOCK_WRITE   = CHAR (11),
+     + GDS__TPB_VERB_TIME    = CHAR (12),
+     + GDS__TPB_COMMIT_TIME  = CHAR (13))
+
+C Blob Parameter Block
+
+      CHARACTER*1
+     +  gds__bpb_version1, gds__bpb_source_type, gds__bpb_target_type,
+     +  gds__bpb_type, gds__bpb_type_segmented, gds__bpb_type_stream
+
+      PARAMETER (
+     +  gds__bpb_version1           = CHAR (1),
+     +  gds__bpb_source_type        = CHAR (1),
+     +  gds__bpb_target_type        = CHAR (2),
+     +  gds__bpb_type               = CHAR (3),
+
+     +  gds__bpb_type_segmented     = CHAR (0),
+     +  gds__bpb_type_stream        = CHAR (1))
+
+C     Information parameters
+
+C Common, structural codes 
+
+      CHARACTER*1  GDS__INFO_END, GDS__INFO_TRUNCATED,
+     +    GDS__INFO_ERROR
+
+      PARAMETER (
+     +    GDS__INFO_END                  = CHAR(1),
+     +    GDS__INFO_TRUNCATED            = CHAR(2),
+     +    GDS__INFO_ERROR                = CHAR(3))
+
+C DATABASE INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_ID, GDS__INFO_READS, GDS__INFO_WRITES,
+     +    GDS__INFO_FETCHES, GDS__INFO_MARKS, GDS__INFO_IMPLEMENTATION,
+     +    GDS__INFO_VERSION, GDS__INFO_BASE_LEVEL, GDS__INFO_PAGE_SIZE,
+     +    GDS__INFO_NUM_BUFFERS, GDS__INFO_LIMBO,
+     +    GDS__INFO_CURRENT_MEMORY, GDS__INFO_MAX_MEMORY,
+     +    GDS__INFO_WINDOW_TURNS, GDS__INFO_DB_ID
+
+      PARAMETER (
+     +    GDS__INFO_DB_ID                = CHAR(4),
+     +    GDS__INFO_READS                = CHAR(5),
+     +    GDS__INFO_WRITES               = CHAR(6),
+     +    GDS__INFO_FETCHES              = CHAR(7),
+     +    GDS__INFO_MARKS                = CHAR(8),
+     +    GDS__INFO_IMPLEMENTATION       = CHAR(11),
+     +    GDS__INFO_VERSION              = CHAR(12),
+     +    GDS__INFO_BASE_LEVEL           = CHAR(13),
+     +    GDS__INFO_PAGE_SIZE            = CHAR(14),
+     +    GDS__INFO_NUM_BUFFERS          = CHAR(15),
+     +    GDS__INFO_LIMBO                = CHAR(16),
+     +    GDS__INFO_CURRENT_MEMORY       = CHAR(17),
+     +    GDS__INFO_MAX_MEMORY           = CHAR(18),
+     +    GDS__INFO_WINDOW_TURNS         = CHAR(19))
+
+      CHARACTER*1 GDS__INFO_LICENSE, GDS__INFO_ALLOCATION,
+     +    GDS__INFO_ATTACHMENT_ID, GDS__INFO_READ_SEQ_COUNT,
+     +    GDS__INFO_READ_IDX_COUNT, GDS__INFO_INSERT_COUNT,
+     +    GDS__INFO_UPDATE_COUNT,
+     +    GDS__INFO_DELETE_COUNT, GDS__INFO_BACKOUT_COUNT,
+     +    GDS__INFO_PURGE_COUNT, GDS__INFO_EXPUNGE_COUNT,
+     +    GDS__INFO_SWEEP_INTERVAL, GDS__INFO_ODS_VERSION,
+     +    GDS__INFO_ODS_MINOR_VERSION
+
+      PARAMETER (
+     +    GDS__INFO_LICENSE              = CHAR(20),
+     +    GDS__INFO_ALLOCATION           = CHAR(21),
+     +    GDS__INFO_ATTACHMENT_ID        = CHAR(22),
+     +    GDS__INFO_READ_SEQ_COUNT       = CHAR(23),
+     +    GDS__INFO_READ_IDX_COUNT       = CHAR(24), 
+     +    GDS__INFO_INSERT_COUNT          = CHAR(25),
+     +    GDS__INFO_UPDATE_COUNT         = CHAR(26),
+     +    GDS__INFO_DELETE_COUNT         = CHAR(27), 
+     +    GDS__INFO_BACKOUT_COUNT        = CHAR(28),
+     +    GDS__INFO_PURGE_COUNT          = CHAR(29), 
+     +    GDS__INFO_EXPUNGE_COUNT        = CHAR(30),
+     +    GDS__INFO_SWEEP_INTERVAL       = CHAR(31), 
+     +    GDS__INFO_ODS_VERSION          = CHAR(32),
+     +    GDS__INFO_ODS_MINOR_VERSION    = CHAR(33))
+
+
+C REQUEST INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_NUMBER_MESSAGES, GDS__INFO_MAX_MESSAGE,
+     +    GDS__INFO_MAX_SEND, GDS__INFO_MAX_RECEIVE, GDS__INFO_STATE,
+     +    GDS__INFO_MESSAGE_NUMBER, GDS__INFO_MESSAGE_SIZE,
+     +    GDS__INFO_REQUEST_COST, GDS__INFO_REQ_ACTIVE,
+     +    GDS__INFO_REQ_INACTIVE, GDS__INFO_REQ_SEND,
+     +    GDS__INFO_REQ_RECEIVE, GDS__INFO_REQ_SELECT
+
+      PARAMETER (
+     +    GDS__INFO_NUMBER_MESSAGES     = CHAR(4),
+     +    GDS__INFO_MAX_MESSAGE         = CHAR(5),
+     +    GDS__INFO_MAX_SEND            = CHAR(6),
+     +    GDS__INFO_MAX_RECEIVE         = CHAR(7),
+     +    GDS__INFO_STATE               = CHAR(8),
+     +    GDS__INFO_MESSAGE_NUMBER      = CHAR(9),
+     +    GDS__INFO_MESSAGE_SIZE        = CHAR(10),
+     +    GDS__INFO_REQUEST_COST        = CHAR(11),
+     +    GDS__INFO_REQ_ACTIVE          = CHAR(2),
+     +    GDS__INFO_REQ_INACTIVE        = CHAR(3),
+     +    GDS__INFO_REQ_SEND            = CHAR(4),
+     +    GDS__INFO_REQ_RECEIVE         = CHAR(5),
+     +    GDS__INFO_REQ_SELECT          = CHAR(6))
+
+C BLOB INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_BLOB_NUM_SEGMENTS,
+     +    GDS__INFO_BLOB_MAX_SEGMENT,
+     +    GDS__INFO_BLOB_TOTAL_LENGTH,
+     +    GDS__INFO_BLOB_TYPE
+
+      PARAMETER (
+     +    GDS__INFO_BLOB_NUM_SEGMENTS   = CHAR(4),
+     +    GDS__INFO_BLOB_MAX_SEGMENT    = CHAR(5),
+     +    GDS__INFO_BLOB_TOTAL_LENGTH   = CHAR(6),
+     +    GDS__INFO_BLOB_TYPE           = CHAR(7))
+
+C TRANSACTION INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_TRA_ID
+      PARAMETER (
+     +    GDS__INFO_TRA_ID               = CHAR(4))
+
+C Dynamic SQL datatypes
+
+      INTEGER*2
+     + SQL_TEXT,
+     + SQL_VARYING,
+     + SQL_SHORT,
+     + SQL_LONG,
+     + SQL_FLOAT,
+     + SQL_DOUBLE,
+     + SQL_D_FLOAT,
+     + SQL_DATE,
+     + SQL_BLOB
+
+      PARAMETER (
+     + SQL_TEXT = 452,
+     + SQL_VARYING = 448,
+     + SQL_SHORT = 500,
+     + SQL_LONG = 496,
+     + SQL_FLOAT = 482,
+     + SQL_DOUBLE = 480,
+     + SQL_D_FLOAT = 530,
+     + SQL_DATE = 510,
+     + SQL_BLOB = 520)
+
+C  Forms Package definitions 
+
+C  Map definition block definitions 
+
+      INTEGER*2
+     + PYXIS__MAP_VERSION1,
+     + PYXIS__MAP_FIELD2,
+     + PYXIS__MAP_FIELD1,
+     + PYXIS__MAP_MESSAGE,
+     + PYXIS__MAP_TERMINATOR,
+     + PYXIS__MAP_TERMINATING_FIELD,
+     + PYXIS__MAP_OPAQUE,
+     + PYXIS__MAP_TRANSPARENT,
+     + PYXIS__MAP_TAG,
+     + PYXIS__MAP_SUB_FORM,
+     + PYXIS__MAP_ITEM_INDEX,
+     + PYXIS__MAP_SUB_FIELD,
+     + PYXIS__MAP_END
+
+      PARAMETER (
+     + PYXIS__MAP_VERSION1                    = 1,
+     + PYXIS__MAP_FIELD2                      = 2,
+     + PYXIS__MAP_FIELD1                      = 3,
+     + PYXIS__MAP_MESSAGE                     = 4,
+     + PYXIS__MAP_TERMINATOR                  = 5,
+     + PYXIS__MAP_TERMINATING_FIELD           = 6,
+     + PYXIS__MAP_OPAQUE                      = 7,
+     + PYXIS__MAP_TRANSPARENT                 = 8,
+     + PYXIS__MAP_TAG                         = 9,
+     + PYXIS__MAP_SUB_FORM                    = 10,
+     + PYXIS__MAP_ITEM_INDEX                  = 11,
+     + PYXIS__MAP_SUB_FIELD                   = 12,
+     + PYXIS__MAP_END                         = -1)
+
+C  Field option flags for display options 
+
+      INTEGER*2
+     + PYXIS__OPT_DISPLAY,
+     + PYXIS__OPT_UPDATE,
+     + PYXIS__OPT_WAKEUP,
+     + PYXIS__OPT_POSITION
+
+      PARAMETER (
+     + PYXIS__OPT_DISPLAY                     = 1,
+     + PYXIS__OPT_UPDATE                      = 2,
+     + PYXIS__OPT_WAKEUP                      = 4,
+     + PYXIS__OPT_POSITION                    = 8)
+
+C  Field option values following display 
+
+      INTEGER*2
+     + PYXIS__OPT_NULL,
+     + PYXIS__OPT_DEFAULT,
+     + PYXIS__OPT_INITIAL,
+     + PYXIS__OPT_USER_DATA
+
+      PARAMETER (
+     + PYXIS__OPT_NULL                        = 1,
+     + PYXIS__OPT_DEFAULT                     = 2,
+     + PYXIS__OPT_INITIAL                     = 3,
+     + PYXIS__OPT_USER_DATA                   = 4)
+
+C  Pseudo key definitions 
+
+      INTEGER*2
+     + PYXIS__KEY_DELETE,
+     + PYXIS__KEY_UP,
+     + PYXIS__KEY_DOWN,
+     + PYXIS__KEY_RIGHT,
+     + PYXIS__KEY_LEFT,
+     + PYXIS__KEY_PF1,
+     + PYXIS__KEY_PF2,
+     + PYXIS__KEY_PF3,
+     + PYXIS__KEY_PF4,
+     + PYXIS__KEY_PF5,
+     + PYXIS__KEY_PF6,
+     + PYXIS__KEY_PF7,
+     + PYXIS__KEY_PF8,
+     + PYXIS__KEY_PF9,
+     + PYXIS__KEY_ENTER,
+     + PYXIS__KEY_SCROLL_TOP,
+     + PYXIS__KEY_SCROLL_BOTTOM
+
+      PARAMETER (
+     + PYXIS__KEY_DELETE                      = 127,
+     + PYXIS__KEY_UP                          = 128,
+     + PYXIS__KEY_DOWN                        = 129,
+     + PYXIS__KEY_RIGHT                       = 130,
+     + PYXIS__KEY_LEFT                        = 131,
+     + PYXIS__KEY_PF1                         = 132,
+     + PYXIS__KEY_PF2                         = 133,
+     + PYXIS__KEY_PF3                         = 134,
+     + PYXIS__KEY_PF4                         = 135,
+     + PYXIS__KEY_PF5                         = 136,
+     + PYXIS__KEY_PF6                         = 137,
+     + PYXIS__KEY_PF7                         = 138,
+     + PYXIS__KEY_PF8                         = 139,
+     + PYXIS__KEY_PF9                         = 140,
+     + PYXIS__KEY_ENTER                       = 141,
+     + PYXIS__KEY_SCROLL_TOP                  = 146,
+     + PYXIS__KEY_SCROLL_BOTTOM               = 147)
+
+C  Menu definition stuff 
+
+      INTEGER*2
+     + PYXIS__MENU_VERSION1,
+     + PYXIS__MENU_LABEL,
+     + PYXIS__MENU_ENTREE,
+     + PYXIS__MENU_OPAQUE,
+     + PYXIS__MENU_TRANSPARENT,
+     + PYXIS__MENU_HORIZONTAL,
+     + PYXIS__MENU_VERTICAL,
+     + PYXIS__MENU_END
+
+      PARAMETER (
+     + PYXIS__MENU_VERSION1                   = 1,
+     + PYXIS__MENU_LABEL                      = 2,
+     + PYXIS__MENU_ENTREE                     = 3,
+     + PYXIS__MENU_OPAQUE                     = 4,
+     + PYXIS__MENU_TRANSPARENT                = 5,
+     + PYXIS__MENU_HORIZONTAL                 = 6,
+     + PYXIS__MENU_VERTICAL                   = 7,
+     + PYXIS__MENU_END                        = -1)
+
+
+C     database parameter block stuff 
+
+      CHARACTER*1
+     +     ISC_DPB_VERSION1,
+     +     ISC_DPB_CDD_PATHNAME, ISC_DPB_ALLOCATION,
+     +     ISC_DPB_JOURNAL, ISC_DPB_PAGE_SIZE,
+     +     ISC_DPB_BUFFERS,  ISC_DPB_BUFFER_LENGTH,
+     +     ISC_DPB_DEBUG, ISC_DPB_GARBAGE_COLLECT,
+     +     ISC_DPB_VERIFY,  ISC_DPB_SWEEP,
+     +     ISC_DPB_ENABLE_JOURNAL, ISC_DPB_DISABLE_JOURNAL,
+     +     ISC_DPB_DBKEY_SCOPE, ISC_DPB_NUMBER_OF_USERS,
+     +     ISC_DPB_TRACE, ISC_DPB_NO_GARBAGE_COLLECT,
+     +     ISC_DPB_DAMAGED, ISC_DPB_LICENSE, ISC_DPB_SYS_USER_NAME,
+     +     ISC_DPB_ENCRYPT_KEY, ISC_DPB_ACTIVATE_SHADOW, ISC_DPB_SWEEP_INTERVAL,
+     +     ISC_DPB_DELETE_SHADOW, ISC_DPB_FORCE_WRITE, ISC_DPB_BEGIN_LOG, 
+     +     ISC_DPB_QUIT_LOG, ISC_DPB_NO_RESERVE, ISC_DPB_USER_NAME,
+     +     ISC_DPB_PASSWORD, ISC_DPB_PASSWORD_ENC, ISC_DPB_SYS_USER_NAME_ENC,
+     +     ISC_DPB_INTERP, ISC_DPB_ONLINE_DUMP, ISC_DPB_OLD_FILE_SIZE,
+     +     ISC_DPB_OLD_NUM_FILES, ISC_DPB_OLD_FILE, ISC_DPB_OLD_START_PAGE,
+     +     ISC_DPB_OLD_START_SEQNO, ISC_DPB_OLD_START_FILE, ISC_DPB_DROP_WALFILE,
+     +     ISC_DPB_OLD_DUMP_ID, ISC_DPB_WAL_BACKUP_DIR, ISC_DPB_WAL_CHKPTLEN,
+     +     ISC_DPB_WAL_NUMBUFS, ISC_DPB_WAL_BUFSIZE, ISC_DPB_WAL_GRP_CMT_WAIT,
+     +     ISC_DPB_LC_MESSAGES, ISC_DPB_LC_CTYPE, ISC_DPB_CACHE_MANAGER,
+     +     ISC_DPB_SHUTDOWN, ISC_DPB_ONLINE, ISC_DPB_SHUTDOWN_DELAY,
+     +     ISC_DPB_RESERVED, ISC_DPB_OVERWRITE, ISC_DPB_SEC_ATTACH,
+     +     ISC_DPB_DISABLE_WAL
+
+      PARAMETER (
+     +     ISC_DPB_VERSION1              = CHAR (1),
+     +     ISC_DPB_CDD_PATHNAME          = CHAR (1),    !{ NOT IMPLEMENTED }
+     +     ISC_DPB_ALLOCATION            = CHAR (2),    !{ NOT IMPLEMENTED }
+     +     ISC_DPB_JOURNAL               = CHAR (3),    !{ NOT IMPLEMENTED }
+     +     ISC_DPB_PAGE_SIZE             = CHAR (4),
+     +     ISC_DPB_BUFFERS               = CHAR (5),
+     +     ISC_DPB_BUFFER_LENGTH         = CHAR (6),    !{ NOT IMPLEMENTED }
+     +     ISC_DPB_DEBUG                 = CHAR (7),    !{ NOT IMPLEMENTED }
+     +     ISC_DPB_GARBAGE_COLLECT       = CHAR (8),    !{ NOT IMPLEMENTED }
+     +     ISC_DPB_VERIFY                = CHAR (9),
+     +     ISC_DPB_SWEEP                 = CHAR (10),
+     +     ISC_DPB_ENABLE_JOURNAL        = CHAR (11),
+     +     ISC_DPB_DISABLE_JOURNAL       = CHAR (12),
+     +     ISC_DPB_DBKEY_SCOPE           = CHAR (13),    !{ NOT IMPLEMENTED }
+     +     ISC_DPB_NUMBER_OF_USERS       = CHAR (14),    !{ NOT IMPLEMENTED }
+     +     ISC_DPB_TRACE                 = CHAR (15),    !{ NOT IMPLEMENTED }
+     +     ISC_DPB_NO_GARBAGE_COLLECT    = CHAR (16),    !{ NOT IMPLEMENTED }
+     +     ISC_DPB_DAMAGED               = CHAR (17),    !{ NOT IMPLEMENTED }
+     +     ISC_DPB_LICENSE               = CHAR (18),
+     +     ISC_DPB_SYS_USER_NAME         = CHAR (19))
+
+      PARAMETER (
+     +     ISC_DPB_ENCRYPT_KEY           = CHAR (20),
+     +     ISC_DPB_ACTIVATE_SHADOW       = CHAR (21),
+     +     ISC_DPB_SWEEP_INTERVAL        = CHAR (22),
+     +     ISC_DPB_DELETE_SHADOW         = CHAR (23))
+
+
+      PARAMETER (
+     +     ISC_DPB_FORCE_WRITE           = CHAR (24),
+     +     ISC_DPB_BEGIN_LOG             = CHAR (25),
+     +     ISC_DPB_QUIT_LOG              = CHAR (26),
+     +     ISC_DPB_NO_RESERVE            = CHAR (27),
+     +     ISC_DPB_USER_NAME             = CHAR (28),
+     +     ISC_DPB_PASSWORD              = CHAR (29),
+     +     ISC_DPB_PASSWORD_ENC          = CHAR (30),
+     +     ISC_DPB_SYS_USER_NAME_ENC     = CHAR (31),
+     +     ISC_DPB_INTERP                = CHAR (32),
+     +     ISC_DPB_ONLINE_DUMP           = CHAR (33),
+     +     ISC_DPB_OLD_FILE_SIZE         = CHAR (34),
+     +     ISC_DPB_OLD_NUM_FILES         = CHAR (35),
+     +     ISC_DPB_OLD_FILE              = CHAR (36),
+     +     ISC_DPB_OLD_START_PAGE        = CHAR (37),
+     +     ISC_DPB_OLD_START_SEQNO       = CHAR (38),
+     +     ISC_DPB_OLD_START_FILE        = CHAR (39),
+     +     ISC_DPB_DROP_WALFILE          = CHAR (40),
+     +     ISC_DPB_OLD_DUMP_ID           = CHAR (41),
+     +     ISC_DPB_WAL_BACKUP_DIR        = CHAR (42),
+     +     ISC_DPB_WAL_CHKPTLEN          = CHAR (43),
+     +     ISC_DPB_WAL_NUMBUFS           = CHAR (44),
+     +     ISC_DPB_WAL_BUFSIZE           = CHAR (45),
+     +     ISC_DPB_WAL_GRP_CMT_WAIT      = CHAR (46),
+     +     ISC_DPB_LC_MESSAGES           = CHAR (47),
+     +     ISC_DPB_LC_CTYPE              = CHAR (48),
+     +     ISC_DPB_CACHE_MANAGER	 = CHAR (49),
+     +     ISC_DPB_SHUTDOWN		 = CHAR (50),
+     +     ISC_DPB_ONLINE		 = CHAR (51),
+     +     ISC_DPB_SHUTDOWN_DELAY	 = CHAR (52),
+     +     ISC_DPB_RESERVED		 = CHAR (53),
+     +     ISC_DPB_OVERWRITE		 = CHAR (54),
+     +     ISC_DPB_SEC_ATTACH		 = CHAR (55),
+     +     ISC_DPB_DISABLE_WAL		 = CHAR (56))
+
+      CHARACTER*1
+     +     ISC_DPB_PAGES, ISC_DPB_RECORDS, 
+     +     ISC_DPB_INDICES, ISC_DPB_TRANSACTIONS, 
+     +     ISC_DPB_NO_UPDATE, ISC_DPB_REPAIR
+
+      PARAMETER (
+     +     ISC_DPB_PAGES = CHAR(1),
+     +     ISC_DPB_RECORDS = CHAR(2),
+     +     ISC_DPB_INDICES = CHAR(4),
+     +     ISC_DPB_TRANSACTIONS = CHAR(8),
+     +     ISC_DPB_NO_UPDATE = CHAR(16),
+     +     ISC_DPB_REPAIR = CHAR(32))
+
+
+
+C     Transaction parameter block stuff 
+
+      CHARACTER*1
+     + ISC_TPB_VERSION3, ISC_TPB_CONSISTENCY, ISC_TPB_CONCURRENCY,
+     + ISC_TPB_SHARED, ISC_TPB_PROTECTED, ISC_TPB_EXCLUSIVE,
+     + ISC_TPB_WAIT, ISC_TPB_NOWAIT, ISC_TPB_READ, ISC_TPB_WRITE,
+     + ISC_TPB_LOCK_READ, ISC_TPB_LOCK_WRITE, ISC_TPB_VERB_TIME,
+     + ISC_TPB_COMMIT_TIME                            
+
+
+      PARAMETER (
+     + ISC_TPB_VERSION3     = CHAR (3),
+     + ISC_TPB_CONSISTENCY  = CHAR (1),
+     + ISC_TPB_CONCURRENCY  = CHAR (2),
+     + ISC_TPB_SHARED       = CHAR (3),
+     + ISC_TPB_PROTECTED    = CHAR (4),
+     + ISC_TPB_EXCLUSIVE    = CHAR (5),
+     + ISC_TPB_WAIT         = CHAR (6),
+     + ISC_TPB_NOWAIT       = CHAR (7),
+     + ISC_TPB_READ         = CHAR (8),
+     + ISC_TPB_WRITE        = CHAR (9),
+     + ISC_TPB_LOCK_READ    = CHAR (10),
+     + ISC_TPB_LOCK_WRITE   = CHAR (11),
+     + ISC_TPB_VERB_TIME    = CHAR (12),
+     + ISC_TPB_COMMIT_TIME  = CHAR (13))
+
+C Blob Parameter Block
+
+      CHARACTER*1
+     +  isc_bpb_version1, isc_bpb_source_type, isc_bpb_target_type,
+     +  isc_bpb_type, isc_bpb_type_segmented, isc_bpb_type_stream
+
+      PARAMETER (
+     +  isc_bpb_version1           = CHAR (1),
+     +  isc_bpb_source_type        = CHAR (1),
+     +  isc_bpb_target_type        = CHAR (2),
+     +  isc_bpb_type               = CHAR (3),
+
+     +  isc_bpb_type_segmented     = CHAR (0),
+     +  isc_bpb_type_stream        = CHAR (1))
+
+C     Information parameters
+
+C Common, structural codes 
+
+      CHARACTER*1  ISC_INFO_END, ISC_INFO_TRUNCATED,
+     +    ISC_INFO_ERROR
+
+      PARAMETER (
+     +    ISC_INFO_END                  = CHAR(1),
+     +    ISC_INFO_TRUNCATED            = CHAR(2),
+     +    ISC_INFO_ERROR                = CHAR(3))
+
+C DATABASE INFORMATION ITEMS 
+
+      CHARACTER*1 ISC_INFO_ID, ISC_INFO_READS, ISC_INFO_WRITES,
+     +    ISC_INFO_FETCHES, ISC_INFO_MARKS, ISC_INFO_IMPLEMENTATION,
+     +    ISC_INFO_VERSION, ISC_INFO_BASE_LEVEL, ISC_INFO_PAGE_SIZE,
+     +    ISC_INFO_NUM_BUFFERS, ISC_INFO_LIMBO,
+     +    ISC_INFO_CURRENT_MEMORY, ISC_INFO_MAX_MEMORY,
+     +    ISC_INFO_WINDOW_TURNS, ISC_INFO_DB_ID
+
+      PARAMETER (
+     +    ISC_INFO_DB_ID                = CHAR(4),
+     +    ISC_INFO_READS                = CHAR(5),
+     +    ISC_INFO_WRITES               = CHAR(6),
+     +    ISC_INFO_FETCHES              = CHAR(7),
+     +    ISC_INFO_MARKS                = CHAR(8),
+     +    ISC_INFO_IMPLEMENTATION       = CHAR(11),
+     +    ISC_INFO_VERSION              = CHAR(12),
+     +    ISC_INFO_BASE_LEVEL           = CHAR(13),
+     +    ISC_INFO_PAGE_SIZE            = CHAR(14),
+     +    ISC_INFO_NUM_BUFFERS          = CHAR(15),
+     +    ISC_INFO_LIMBO                = CHAR(16),
+     +    ISC_INFO_CURRENT_MEMORY       = CHAR(17),
+     +    ISC_INFO_MAX_MEMORY           = CHAR(18),
+     +    ISC_INFO_WINDOW_TURNS         = CHAR(19))
+
+      CHARACTER*1 ISC_INFO_LICENSE, ISC_INFO_ALLOCATION,
+     +    ISC_INFO_ATTACHMENT_ID, ISC_INFO_READ_SEQ_COUNT,
+     +    ISC_INFO_READ_IDX_COUNT, ISC_INFO_INSERT_COUNT,
+     +    ISC_INFO_UPDATE_COUNT,
+     +    ISC_INFO_DELETE_COUNT, ISC_INFO_BACKOUT_COUNT,
+     +    ISC_INFO_PURGE_COUNT, ISC_INFO_EXPUNGE_COUNT,
+     +    ISC_INFO_SWEEP_INTERVAL, ISC_INFO_ODS_VERSION,
+     +    ISC_INFO_ODS_MINOR_VERSION
+
+      PARAMETER (
+     +    ISC_INFO_LICENSE              = CHAR(20),
+     +    ISC_INFO_ALLOCATION           = CHAR(21),
+     +    ISC_INFO_ATTACHMENT_ID        = CHAR(22),
+     +    ISC_INFO_READ_SEQ_COUNT       = CHAR(23),
+     +    ISC_INFO_READ_IDX_COUNT       = CHAR(24), 
+     +    ISC_INFO_INSERT_COUNT          = CHAR(25),
+     +    ISC_INFO_UPDATE_COUNT         = CHAR(26),
+     +    ISC_INFO_DELETE_COUNT         = CHAR(27), 
+     +    ISC_INFO_BACKOUT_COUNT        = CHAR(28),
+     +    ISC_INFO_PURGE_COUNT          = CHAR(29), 
+     +    ISC_INFO_EXPUNGE_COUNT        = CHAR(30),
+     +    ISC_INFO_SWEEP_INTERVAL       = CHAR(31), 
+     +    ISC_INFO_ODS_VERSION          = CHAR(32),
+     +    ISC_INFO_ODS_MINOR_VERSION    = CHAR(33))
+
+
+C REQUEST INFORMATION ITEMS 
+
+      CHARACTER*1 ISC_INFO_NUMBER_MESSAGES, ISC_INFO_MAX_MESSAGE,
+     +    ISC_INFO_MAX_SEND, ISC_INFO_MAX_RECEIVE, ISC_INFO_STATE,
+     +    ISC_INFO_MESSAGE_NUMBER, ISC_INFO_MESSAGE_SIZE,
+     +    ISC_INFO_REQUEST_COST, ISC_INFO_REQ_ACTIVE,
+     +    ISC_INFO_REQ_INACTIVE, ISC_INFO_REQ_SEND,
+     +    ISC_INFO_REQ_RECEIVE, ISC_INFO_REQ_SELECT
+
+      PARAMETER (
+     +    ISC_INFO_NUMBER_MESSAGES     = CHAR(4),
+     +    ISC_INFO_MAX_MESSAGE         = CHAR(5),
+     +    ISC_INFO_MAX_SEND            = CHAR(6),
+     +    ISC_INFO_MAX_RECEIVE         = CHAR(7),
+     +    ISC_INFO_STATE               = CHAR(8),
+     +    ISC_INFO_MESSAGE_NUMBER      = CHAR(9),
+     +    ISC_INFO_MESSAGE_SIZE        = CHAR(10),
+     +    ISC_INFO_REQUEST_COST        = CHAR(11),
+     +    ISC_INFO_REQ_ACTIVE          = CHAR(2),
+     +    ISC_INFO_REQ_INACTIVE        = CHAR(3),
+     +    ISC_INFO_REQ_SEND            = CHAR(4),
+     +    ISC_INFO_REQ_RECEIVE         = CHAR(5),
+     +    ISC_INFO_REQ_SELECT          = CHAR(6))
+
+C BLOB INFORMATION ITEMS 
+
+      CHARACTER*1 ISC_INFO_BLOB_NUM_SEGMENTS,
+     +    ISC_INFO_BLOB_MAX_SEGMENT,
+     +    ISC_INFO_BLOB_TOTAL_LENGTH,
+     +    ISC_INFO_BLOB_TYPE
+
+      PARAMETER (
+     +    ISC_INFO_BLOB_NUM_SEGMENTS   = CHAR(4),
+     +    ISC_INFO_BLOB_MAX_SEGMENT    = CHAR(5),
+     +    ISC_INFO_BLOB_TOTAL_LENGTH   = CHAR(6),
+     +    ISC_INFO_BLOB_TYPE           = CHAR(7))
+
+C TRANSACTION INFORMATION ITEMS 
+
+      CHARACTER*1 ISC_INFO_TRA_ID
+      PARAMETER (
+     +    ISC_INFO_TRA_ID               = CHAR(4))
+
+C     Error Codes
+
+      INTEGER*4
+     + GDS_FACILITY,
+     + GDS_ERR_BASE,
+     + GDS_ERR_FACTOR
+
+      INTEGER*4
+     + GDS_ARG_END,          !{ end of argument list }
+     + GDS_ARG_GDS,          !{ generic DSRI status value }
+     + GDS_ARG_STRING,       !{ string argument }
+     + GDS_ARG_CSTRING,      !{ count & string argument }
+     + GDS_ARG_NUMBER,       !{ numeric argument (long) }
+     + GDS_ARG_INTERPRETED,  !{ interpreted status code (string) }
+     + GDS_ARG_VMS,          !{ VAX/VMS status code (long) }
+     + GDS_ARG_UNIX,         !{ UNIX error code }
+     + GDS_ARG_DOMAIN       !{ Apollo/Domain error code }
+
+
+      PARAMETER (
+     + GDS_FACILITY    = 20,
+     + GDS_ERR_BASE    = 335544320,
+     + GDS_ERR_FACTOR  = 1)
+
+      PARAMETER (
+     + GDS_ARG_END          = 0,   !{ end of argument list }
+     + GDS_ARG_GDS          = 1,   !{ generic DSRI status value }
+     + GDS_ARG_STRING       = 2,   !{ string argument }
+     + GDS_ARG_CSTRING      = 3,   !{ count & string argument }
+     + GDS_ARG_NUMBER       = 4,   !{ numeric argument (long) }
+     + GDS_ARG_INTERPRETED  = 5,   !{ interpreted status code (string) }
+     + GDS_ARG_VMS          = 6,   !{ VAX/VMS status code (long) }
+     + GDS_ARG_UNIX         = 7,   !{ UNIX error code }
+     + GDS_ARG_DOMAIN       = 8)   !{ Apollo/Domain error code }
+
+C     Error Codes
+
+      INTEGER*4
+     + ISC_FACILITY,
+     + ISC_ERR_BASE,
+     + ISC_ERR_FACTOR
+
+      INTEGER*4
+     + ISC_ARG_END,          !{ end of argument list }
+     + ISC_ARG_GDS,          !{ generic DSRI status value }
+     + ISC_ARG_STRING,       !{ string argument }
+     + ISC_ARG_CSTRING,      !{ count & string argument }
+     + ISC_ARG_NUMBER,       !{ numeric argument (long) }
+     + ISC_ARG_INTERPRETED,  !{ interpreted status code (string) }
+     + ISC_ARG_VMS,          !{ VAX/VMS status code (long) }
+     + ISC_ARG_UNIX,         !{ UNIX error code }
+     + ISC_ARG_DOMAIN       !{ Apollo/Domain error code }
+
+
+      PARAMETER (
+     + ISC_FACILITY    = 20,
+     + ISC_ERR_BASE    = 335544320,
+     + ISC_ERR_FACTOR  = 1)
+
+      PARAMETER (
+     + ISC_ARG_END          = 0,   !{ end of argument list }
+     + ISC_ARG_GDS          = 1,   !{ generic DSRI status value }
+     + ISC_ARG_STRING       = 2,   !{ string argument }
+     + ISC_ARG_CSTRING      = 3,   !{ count & string argument }
+     + ISC_ARG_NUMBER       = 4,   !{ numeric argument (long) }
+     + ISC_ARG_INTERPRETED  = 5,   !{ interpreted status code (string) }
+     + ISC_ARG_VMS          = 6,   !{ VAX/VMS status code (long) }
+     + ISC_ARG_UNIX         = 7,   !{ UNIX error code }
+     + ISC_ARG_DOMAIN       = 8)   !{ Apollo/Domain error code }
+
+
+      INTEGER*4 GDS__arith_except        
+      PARAMETER (GDS__arith_except         = 335544321)
+      INTEGER*4 GDS__bad_dbkey           
+      PARAMETER (GDS__bad_dbkey            = 335544322)
+      INTEGER*4 GDS__bad_db_format       
+      PARAMETER (GDS__bad_db_format        = 335544323)
+      INTEGER*4 GDS__bad_db_handle       
+      PARAMETER (GDS__bad_db_handle        = 335544324)
+      INTEGER*4 GDS__bad_dpb_content     
+      PARAMETER (GDS__bad_dpb_content      = 335544325)
+      INTEGER*4 GDS__bad_dpb_form        
+      PARAMETER (GDS__bad_dpb_form         = 335544326)
+      INTEGER*4 GDS__bad_req_handle      
+      PARAMETER (GDS__bad_req_handle       = 335544327)
+      INTEGER*4 GDS__bad_segstr_handle   
+      PARAMETER (GDS__bad_segstr_handle    = 335544328)
+      INTEGER*4 GDS__bad_segstr_id       
+      PARAMETER (GDS__bad_segstr_id        = 335544329)
+      INTEGER*4 GDS__bad_tpb_content     
+      PARAMETER (GDS__bad_tpb_content      = 335544330)
+      INTEGER*4 GDS__bad_tpb_form        
+      PARAMETER (GDS__bad_tpb_form         = 335544331)
+      INTEGER*4 GDS__bad_trans_handle    
+      PARAMETER (GDS__bad_trans_handle     = 335544332)
+      INTEGER*4 GDS__bug_check           
+      PARAMETER (GDS__bug_check            = 335544333)
+      INTEGER*4 GDS__convert_error       
+      PARAMETER (GDS__convert_error        = 335544334)
+      INTEGER*4 GDS__db_corrupt          
+      PARAMETER (GDS__db_corrupt           = 335544335)
+      INTEGER*4 GDS__deadlock            
+      PARAMETER (GDS__deadlock             = 335544336)
+      INTEGER*4 GDS__excess_trans        
+      PARAMETER (GDS__excess_trans         = 335544337)
+      INTEGER*4 GDS__from_no_match       
+      PARAMETER (GDS__from_no_match        = 335544338)
+      INTEGER*4 GDS__infinap             
+      PARAMETER (GDS__infinap              = 335544339)
+      INTEGER*4 GDS__infona              
+      PARAMETER (GDS__infona               = 335544340)
+      INTEGER*4 GDS__infunk              
+      PARAMETER (GDS__infunk               = 335544341)
+      INTEGER*4 GDS__integ_fail          
+      PARAMETER (GDS__integ_fail           = 335544342)
+      INTEGER*4 GDS__invalid_blr         
+      PARAMETER (GDS__invalid_blr          = 335544343)
+      INTEGER*4 GDS__io_error            
+      PARAMETER (GDS__io_error             = 335544344)
+      INTEGER*4 GDS__lock_conflict       
+      PARAMETER (GDS__lock_conflict        = 335544345)
+      INTEGER*4 GDS__metadata_corrupt    
+      PARAMETER (GDS__metadata_corrupt     = 335544346)
+      INTEGER*4 GDS__not_valid           
+      PARAMETER (GDS__not_valid            = 335544347)
+      INTEGER*4 GDS__no_cur_rec          
+      PARAMETER (GDS__no_cur_rec           = 335544348)
+      INTEGER*4 GDS__no_dup              
+      PARAMETER (GDS__no_dup               = 335544349)
+      INTEGER*4 GDS__no_finish           
+      PARAMETER (GDS__no_finish            = 335544350)
+      INTEGER*4 GDS__no_meta_update      
+      PARAMETER (GDS__no_meta_update       = 335544351)
+      INTEGER*4 GDS__no_priv             
+      PARAMETER (GDS__no_priv              = 335544352)
+      INTEGER*4 GDS__no_recon            
+      PARAMETER (GDS__no_recon             = 335544353)
+      INTEGER*4 GDS__no_record           
+      PARAMETER (GDS__no_record            = 335544354)
+      INTEGER*4 GDS__no_segstr_close     
+      PARAMETER (GDS__no_segstr_close      = 335544355)
+      INTEGER*4 GDS__obsolete_metadata   
+      PARAMETER (GDS__obsolete_metadata    = 335544356)
+      INTEGER*4 GDS__open_trans          
+      PARAMETER (GDS__open_trans           = 335544357)
+      INTEGER*4 GDS__port_len            
+      PARAMETER (GDS__port_len             = 335544358)
+      INTEGER*4 GDS__read_only_field     
+      PARAMETER (GDS__read_only_field      = 335544359)
+      INTEGER*4 GDS__read_only_rel       
+      PARAMETER (GDS__read_only_rel        = 335544360)
+      INTEGER*4 GDS__read_only_trans     
+      PARAMETER (GDS__read_only_trans      = 335544361)
+      INTEGER*4 GDS__read_only_view      
+      PARAMETER (GDS__read_only_view       = 335544362)
+      INTEGER*4 GDS__req_no_trans        
+      PARAMETER (GDS__req_no_trans         = 335544363)
+      INTEGER*4 GDS__req_sync            
+      PARAMETER (GDS__req_sync             = 335544364)
+      INTEGER*4 GDS__req_wrong_db        
+      PARAMETER (GDS__req_wrong_db         = 335544365)
+      INTEGER*4 GDS__segment             
+      PARAMETER (GDS__segment              = 335544366)
+      INTEGER*4 GDS__segstr_eof          
+      PARAMETER (GDS__segstr_eof           = 335544367)
+      INTEGER*4 GDS__segstr_no_op        
+      PARAMETER (GDS__segstr_no_op         = 335544368)
+      INTEGER*4 GDS__segstr_no_read      
+      PARAMETER (GDS__segstr_no_read       = 335544369)
+      INTEGER*4 GDS__segstr_no_trans     
+      PARAMETER (GDS__segstr_no_trans      = 335544370)
+      INTEGER*4 GDS__segstr_no_write     
+      PARAMETER (GDS__segstr_no_write      = 335544371)
+      INTEGER*4 GDS__segstr_wrong_db     
+      PARAMETER (GDS__segstr_wrong_db      = 335544372)
+      INTEGER*4 GDS__sys_request         
+      PARAMETER (GDS__sys_request          = 335544373)
+      INTEGER*4 GDS__stream_eof          
+      PARAMETER (GDS__stream_eof           = 335544374)
+      INTEGER*4 GDS__unavailable         
+      PARAMETER (GDS__unavailable          = 335544375)
+      INTEGER*4 GDS__unres_rel           
+      PARAMETER (GDS__unres_rel            = 335544376)
+      INTEGER*4 GDS__uns_ext             
+      PARAMETER (GDS__uns_ext              = 335544377)
+      INTEGER*4 GDS__wish_list           
+      PARAMETER (GDS__wish_list            = 335544378)
+      INTEGER*4 GDS__wrong_ods           
+      PARAMETER (GDS__wrong_ods            = 335544379)
+      INTEGER*4 GDS__wronumarg           
+      PARAMETER (GDS__wronumarg            = 335544380)
+      INTEGER*4 GDS__imp_exc             
+      PARAMETER (GDS__imp_exc              = 335544381)
+      INTEGER*4 GDS__random              
+      PARAMETER (GDS__random               = 335544382)
+      INTEGER*4 GDS__fatal_conflict      
+      PARAMETER (GDS__fatal_conflict       = 335544383)
+      INTEGER*4 GDS__badblk              
+      PARAMETER (GDS__badblk               = 335544384)
+      INTEGER*4 GDS__invpoolcl           
+      PARAMETER (GDS__invpoolcl            = 335544385)
+      INTEGER*4 GDS__nopoolids           
+      PARAMETER (GDS__nopoolids            = 335544386)
+      INTEGER*4 GDS__relbadblk           
+      PARAMETER (GDS__relbadblk            = 335544387)
+      INTEGER*4 GDS__blktoobig           
+      PARAMETER (GDS__blktoobig            = 335544388)
+      INTEGER*4 GDS__bufexh              
+      PARAMETER (GDS__bufexh               = 335544389)
+      INTEGER*4 GDS__syntaxerr           
+      PARAMETER (GDS__syntaxerr            = 335544390)
+      INTEGER*4 GDS__bufinuse            
+      PARAMETER (GDS__bufinuse             = 335544391)
+      INTEGER*4 GDS__bdbincon            
+      PARAMETER (GDS__bdbincon             = 335544392)
+      INTEGER*4 GDS__reqinuse            
+      PARAMETER (GDS__reqinuse             = 335544393)
+      INTEGER*4 GDS__badodsver           
+      PARAMETER (GDS__badodsver            = 335544394)
+      INTEGER*4 GDS__relnotdef           
+      PARAMETER (GDS__relnotdef            = 335544395)
+      INTEGER*4 GDS__fldnotdef           
+      PARAMETER (GDS__fldnotdef            = 335544396)
+      INTEGER*4 GDS__dirtypage           
+      PARAMETER (GDS__dirtypage            = 335544397)
+      INTEGER*4 GDS__waifortra           
+      PARAMETER (GDS__waifortra            = 335544398)
+      INTEGER*4 GDS__doubleloc           
+      PARAMETER (GDS__doubleloc            = 335544399)
+      INTEGER*4 GDS__nodnotfnd           
+      PARAMETER (GDS__nodnotfnd            = 335544400)
+      INTEGER*4 GDS__dupnodfnd           
+      PARAMETER (GDS__dupnodfnd            = 335544401)
+      INTEGER*4 GDS__locnotmar           
+      PARAMETER (GDS__locnotmar            = 335544402)
+      INTEGER*4 GDS__badpagtyp           
+      PARAMETER (GDS__badpagtyp            = 335544403)
+      INTEGER*4 GDS__corrupt             
+      PARAMETER (GDS__corrupt              = 335544404)
+      INTEGER*4 GDS__badpage             
+      PARAMETER (GDS__badpage              = 335544405)
+      INTEGER*4 GDS__badindex            
+      PARAMETER (GDS__badindex             = 335544406)
+      INTEGER*4 GDS__dbbnotzer           
+      PARAMETER (GDS__dbbnotzer            = 335544407)
+      INTEGER*4 GDS__tranotzer           
+      PARAMETER (GDS__tranotzer            = 335544408)
+      INTEGER*4 GDS__trareqmis           
+      PARAMETER (GDS__trareqmis            = 335544409)
+      INTEGER*4 GDS__badhndcnt           
+      PARAMETER (GDS__badhndcnt            = 335544410)
+      INTEGER*4 GDS__wrotpbver           
+      PARAMETER (GDS__wrotpbver            = 335544411)
+      INTEGER*4 GDS__wroblrver           
+      PARAMETER (GDS__wroblrver            = 335544412)
+      INTEGER*4 GDS__wrodpbver           
+      PARAMETER (GDS__wrodpbver            = 335544413)
+      INTEGER*4 GDS__blobnotsup          
+      PARAMETER (GDS__blobnotsup           = 335544414)
+      INTEGER*4 GDS__badrelation         
+      PARAMETER (GDS__badrelation          = 335544415)
+      INTEGER*4 GDS__nodetach            
+      PARAMETER (GDS__nodetach             = 335544416)
+      INTEGER*4 GDS__notremote           
+      PARAMETER (GDS__notremote            = 335544417)
+      INTEGER*4 GDS__trainlim            
+      PARAMETER (GDS__trainlim             = 335544418)
+      INTEGER*4 GDS__notinlim            
+      PARAMETER (GDS__notinlim             = 335544419)
+      INTEGER*4 GDS__traoutsta           
+      PARAMETER (GDS__traoutsta            = 335544420)
+      INTEGER*4 GDS__connect_reject      
+      PARAMETER (GDS__connect_reject       = 335544421)
+      INTEGER*4 GDS__dbfile              
+      PARAMETER (GDS__dbfile               = 335544422)
+      INTEGER*4 GDS__orphan              
+      PARAMETER (GDS__orphan               = 335544423)
+      INTEGER*4 GDS__no_lock_mgr         
+      PARAMETER (GDS__no_lock_mgr          = 335544424)
+      INTEGER*4 GDS__ctxinuse            
+      PARAMETER (GDS__ctxinuse             = 335544425)
+      INTEGER*4 GDS__ctxnotdef           
+      PARAMETER (GDS__ctxnotdef            = 335544426)
+      INTEGER*4 GDS__datnotsup           
+      PARAMETER (GDS__datnotsup            = 335544427)
+      INTEGER*4 GDS__badmsgnum           
+      PARAMETER (GDS__badmsgnum            = 335544428)
+      INTEGER*4 GDS__badparnum           
+      PARAMETER (GDS__badparnum            = 335544429)
+      INTEGER*4 GDS__virmemexh           
+      PARAMETER (GDS__virmemexh            = 335544430)
+      INTEGER*4 GDS__blocking_signal     
+      PARAMETER (GDS__blocking_signal      = 335544431)
+      INTEGER*4 GDS__lockmanerr          
+      PARAMETER (GDS__lockmanerr           = 335544432)
+      INTEGER*4 GDS__journerr            
+      PARAMETER (GDS__journerr             = 335544433)
+      INTEGER*4 GDS__keytoobig           
+      PARAMETER (GDS__keytoobig            = 335544434)
+      INTEGER*4 GDS__nullsegkey          
+      PARAMETER (GDS__nullsegkey           = 335544435)
+      INTEGER*4 GDS__sqlerr              
+      PARAMETER (GDS__sqlerr               = 335544436)
+      INTEGER*4 GDS__wrodynver           
+      PARAMETER (GDS__wrodynver            = 335544437)
+      INTEGER*4 GDS__funnotdef           
+      PARAMETER (GDS__funnotdef            = 335544438)
+      INTEGER*4 GDS__funmismat           
+      PARAMETER (GDS__funmismat            = 335544439)
+      INTEGER*4 GDS__bad_msg_vec         
+      PARAMETER (GDS__bad_msg_vec          = 335544440)
+      INTEGER*4 GDS__bad_detach          
+      PARAMETER (GDS__bad_detach           = 335544441)
+      INTEGER*4 GDS__noargacc_read       
+      PARAMETER (GDS__noargacc_read        = 335544442)
+      INTEGER*4 GDS__noargacc_write      
+      PARAMETER (GDS__noargacc_write       = 335544443)
+      INTEGER*4 GDS__read_only           
+      PARAMETER (GDS__read_only            = 335544444)
+      INTEGER*4 GDS__ext_err             
+      PARAMETER (GDS__ext_err              = 335544445)
+      INTEGER*4 GDS__non_updatable       
+      PARAMETER (GDS__non_updatable        = 335544446)
+      INTEGER*4 GDS__no_rollback         
+      PARAMETER (GDS__no_rollback          = 335544447)
+      INTEGER*4 GDS__bad_sec_info        
+      PARAMETER (GDS__bad_sec_info         = 335544448)
+      INTEGER*4 GDS__invalid_sec_info    
+      PARAMETER (GDS__invalid_sec_info     = 335544449)
+      INTEGER*4 GDS__misc_interpreted    
+      PARAMETER (GDS__misc_interpreted     = 335544450)
+      INTEGER*4 GDS__update_conflict     
+      PARAMETER (GDS__update_conflict      = 335544451)
+      INTEGER*4 GDS__unlicensed          
+      PARAMETER (GDS__unlicensed           = 335544452)
+      INTEGER*4 GDS__obj_in_use          
+      PARAMETER (GDS__obj_in_use           = 335544453)
+      INTEGER*4 GDS__nofilter            
+      PARAMETER (GDS__nofilter             = 335544454)
+      INTEGER*4 GDS__shadow_accessed     
+      PARAMETER (GDS__shadow_accessed      = 335544455)
+      INTEGER*4 GDS__invalid_sdl         
+      PARAMETER (GDS__invalid_sdl          = 335544456)
+      INTEGER*4 GDS__out_of_bounds       
+      PARAMETER (GDS__out_of_bounds        = 335544457)
+      INTEGER*4 GDS__invalid_dimension   
+      PARAMETER (GDS__invalid_dimension    = 335544458)
+      INTEGER*4 GDS__rec_in_limbo        
+      PARAMETER (GDS__rec_in_limbo         = 335544459)
+      INTEGER*4 GDS__shadow_missing      
+      PARAMETER (GDS__shadow_missing       = 335544460)
+      INTEGER*4 GDS__cant_validate       
+      PARAMETER (GDS__cant_validate        = 335544461)
+      INTEGER*4 GDS__cant_start_journal  
+      PARAMETER (GDS__cant_start_journal   = 335544462)
+      INTEGER*4 GDS__gennotdef           
+      PARAMETER (GDS__gennotdef            = 335544463)
+      INTEGER*4 GDS__cant_start_logging  
+      PARAMETER (GDS__cant_start_logging   = 335544464)
+      INTEGER*4 GDS__bad_segstr_type     
+      PARAMETER (GDS__bad_segstr_type      = 335544465)
+      INTEGER*4 GDS__foreign_key         
+      PARAMETER (GDS__foreign_key          = 335544466)
+      INTEGER*4 GDS__high_minor          
+      PARAMETER (GDS__high_minor           = 335544467)
+      INTEGER*4 GDS__tra_state           
+      PARAMETER (GDS__tra_state            = 335544468)
+      INTEGER*4 GDS__trans_invalid       
+      PARAMETER (GDS__trans_invalid        = 335544469)
+      INTEGER*4 GDS__buf_invalid         
+      PARAMETER (GDS__buf_invalid          = 335544470)
+      INTEGER*4 GDS__indexnotdefined     
+      PARAMETER (GDS__indexnotdefined      = 335544471)
+      INTEGER*4 GDS__login               
+      PARAMETER (GDS__login                = 335544472)
+      INTEGER*4 GDS__invalid_bookmark    
+      PARAMETER (GDS__invalid_bookmark     = 335544473)
+      INTEGER*4 GDS__bad_lock_level      
+      PARAMETER (GDS__bad_lock_level       = 335544474)
+      INTEGER*4 GDS__relation_lock       
+      PARAMETER (GDS__relation_lock        = 335544475)
+      INTEGER*4 GDS__record_lock         
+      PARAMETER (GDS__record_lock          = 335544476)
+      INTEGER*4 GDS__max_idx             
+      PARAMETER (GDS__max_idx              = 335544477)
+      INTEGER*4 GDS__jrn_enable          
+      PARAMETER (GDS__jrn_enable           = 335544478)
+      INTEGER*4 GDS__old_failure         
+      PARAMETER (GDS__old_failure          = 335544479)
+      INTEGER*4 GDS__old_in_progress     
+      PARAMETER (GDS__old_in_progress      = 335544480)
+      INTEGER*4 GDS__old_no_space        
+      PARAMETER (GDS__old_no_space         = 335544481)
+      INTEGER*4 GDS__no_wal_no_jrn       
+      PARAMETER (GDS__no_wal_no_jrn        = 335544482)
+      INTEGER*4 GDS__num_old_files       
+      PARAMETER (GDS__num_old_files        = 335544483)
+      INTEGER*4 GDS__wal_file_open       
+      PARAMETER (GDS__wal_file_open        = 335544484)
+      INTEGER*4 GDS__bad_stmt_handle     
+      PARAMETER (GDS__bad_stmt_handle      = 335544485)
+      INTEGER*4 GDS__wal_failure         
+      PARAMETER (GDS__wal_failure          = 335544486)
+      INTEGER*4 GDS__walw_err            
+      PARAMETER (GDS__walw_err             = 335544487)
+      INTEGER*4 GDS__logh_small          
+      PARAMETER (GDS__logh_small           = 335544488)
+      INTEGER*4 GDS__logh_inv_version    
+      PARAMETER (GDS__logh_inv_version     = 335544489)
+      INTEGER*4 GDS__logh_open_flag      
+      PARAMETER (GDS__logh_open_flag       = 335544490)
+      INTEGER*4 GDS__logh_open_flag2     
+      PARAMETER (GDS__logh_open_flag2      = 335544491)
+      INTEGER*4 GDS__logh_diff_dbname    
+      PARAMETER (GDS__logh_diff_dbname     = 335544492)
+      INTEGER*4 GDS__logf_unexpected_eof 
+      PARAMETER (GDS__logf_unexpected_eof  = 335544493)
+      INTEGER*4 GDS__logr_incomplete     
+      PARAMETER (GDS__logr_incomplete      = 335544494)
+      INTEGER*4 GDS__logr_header_small   
+      PARAMETER (GDS__logr_header_small    = 335544495)
+      INTEGER*4 GDS__logb_small          
+      PARAMETER (GDS__logb_small           = 335544496)
+      INTEGER*4 GDS__wal_illegal_attach  
+      PARAMETER (GDS__wal_illegal_attach   = 335544497)
+      INTEGER*4 GDS__wal_invalid_wpb     
+      PARAMETER (GDS__wal_invalid_wpb      = 335544498)
+      INTEGER*4 GDS__wal_err_rollover    
+      PARAMETER (GDS__wal_err_rollover     = 335544499)
+      INTEGER*4 GDS__no_wal              
+      PARAMETER (GDS__no_wal               = 335544500)
+      INTEGER*4 GDS__drop_wal            
+      PARAMETER (GDS__drop_wal             = 335544501)
+      INTEGER*4 GDS__stream_not_defined  
+      PARAMETER (GDS__stream_not_defined   = 335544502)
+      INTEGER*4 GDS__wal_subsys_error    
+      PARAMETER (GDS__wal_subsys_error     = 335544503)
+      INTEGER*4 GDS__wal_subsys_corrupt  
+      PARAMETER (GDS__wal_subsys_corrupt   = 335544504)
+      INTEGER*4 GDS__no_archive          
+      PARAMETER (GDS__no_archive           = 335544505)
+      INTEGER*4 GDS__shutinprog          
+      PARAMETER (GDS__shutinprog           = 335544506)
+      INTEGER*4 GDS__range_in_use        
+      PARAMETER (GDS__range_in_use         = 335544507)
+      INTEGER*4 GDS__range_not_found     
+      PARAMETER (GDS__range_not_found      = 335544508)
+      INTEGER*4 GDS__charset_not_found   
+      PARAMETER (GDS__charset_not_found    = 335544509)
+      INTEGER*4 GDS__lock_timeout        
+      PARAMETER (GDS__lock_timeout         = 335544510)
+      INTEGER*4 GDS__prcnotdef           
+      PARAMETER (GDS__prcnotdef            = 335544511)
+      INTEGER*4 GDS__prcmismat           
+      PARAMETER (GDS__prcmismat            = 335544512)
+      INTEGER*4 GDS__wal_bugcheck        
+      PARAMETER (GDS__wal_bugcheck         = 335544513)
+      INTEGER*4 GDS__wal_cant_expand     
+      PARAMETER (GDS__wal_cant_expand      = 335544514)
+      INTEGER*4 GDS__codnotdef           
+      PARAMETER (GDS__codnotdef            = 335544515)
+      INTEGER*4 GDS__xcpnotdef           
+      PARAMETER (GDS__xcpnotdef            = 335544516)
+      INTEGER*4 GDS__except              
+      PARAMETER (GDS__except               = 335544517)
+      INTEGER*4 GDS__cache_restart       
+      PARAMETER (GDS__cache_restart        = 335544518)
+      INTEGER*4 GDS__bad_lock_handle     
+      PARAMETER (GDS__bad_lock_handle      = 335544519)
+      INTEGER*4 GDS__jrn_present         
+      PARAMETER (GDS__jrn_present          = 335544520)
+      INTEGER*4 GDS__wal_err_rollover2   
+      PARAMETER (GDS__wal_err_rollover2    = 335544521)
+      INTEGER*4 GDS__wal_err_logwrite    
+      PARAMETER (GDS__wal_err_logwrite     = 335544522)
+      INTEGER*4 GDS__wal_err_jrn_comm    
+      PARAMETER (GDS__wal_err_jrn_comm     = 335544523)
+      INTEGER*4 GDS__wal_err_expansion   
+      PARAMETER (GDS__wal_err_expansion    = 335544524)
+      INTEGER*4 GDS__wal_err_setup       
+      PARAMETER (GDS__wal_err_setup        = 335544525)
+      INTEGER*4 GDS__wal_err_ww_sync     
+      PARAMETER (GDS__wal_err_ww_sync      = 335544526)
+      INTEGER*4 GDS__wal_err_ww_start    
+      PARAMETER (GDS__wal_err_ww_start     = 335544527)
+      INTEGER*4 GDS__shutdown            
+      PARAMETER (GDS__shutdown             = 335544528)
+      INTEGER*4 GDS__existing_priv_mod   
+      PARAMETER (GDS__existing_priv_mod    = 335544529)
+      INTEGER*4 GDS__primary_key_ref     
+      PARAMETER (GDS__primary_key_ref      = 335544530)
+      INTEGER*4 GDS__primary_key_notnull 
+      PARAMETER (GDS__primary_key_notnull  = 335544531)
+      INTEGER*4 GDS__ref_cnstrnt_notfound
+      PARAMETER (GDS__ref_cnstrnt_notfound = 335544532)
+      INTEGER*4 GDS__foreign_key_notfound
+      PARAMETER (GDS__foreign_key_notfound = 335544533)
+      INTEGER*4 GDS__ref_cnstrnt_update  
+      PARAMETER (GDS__ref_cnstrnt_update   = 335544534)
+      INTEGER*4 GDS__check_cnstrnt_update
+      PARAMETER (GDS__check_cnstrnt_update = 335544535)
+      INTEGER*4 GDS__check_cnstrnt_del   
+      PARAMETER (GDS__check_cnstrnt_del    = 335544536)
+      INTEGER*4 GDS__integ_index_seg_del 
+      PARAMETER (GDS__integ_index_seg_del  = 335544537)
+      INTEGER*4 GDS__integ_index_seg_mod 
+      PARAMETER (GDS__integ_index_seg_mod  = 335544538)
+      INTEGER*4 GDS__integ_index_del     
+      PARAMETER (GDS__integ_index_del      = 335544539)
+      INTEGER*4 GDS__integ_index_mod     
+      PARAMETER (GDS__integ_index_mod      = 335544540)
+      INTEGER*4 GDS__check_trig_del      
+      PARAMETER (GDS__check_trig_del       = 335544541)
+      INTEGER*4 GDS__check_trig_update   
+      PARAMETER (GDS__check_trig_update    = 335544542)
+      INTEGER*4 GDS__cnstrnt_fld_del     
+      PARAMETER (GDS__cnstrnt_fld_del      = 335544543)
+      INTEGER*4 GDS__cnstrnt_fld_rename  
+      PARAMETER (GDS__cnstrnt_fld_rename   = 335544544)
+      INTEGER*4 GDS__rel_cnstrnt_update  
+      PARAMETER (GDS__rel_cnstrnt_update   = 335544545)
+      INTEGER*4 GDS__constaint_on_view   
+      PARAMETER (GDS__constaint_on_view    = 335544546)
+      INTEGER*4 GDS__invld_cnstrnt_type  
+      PARAMETER (GDS__invld_cnstrnt_type   = 335544547)
+      INTEGER*4 GDS__primary_key_exists  
+      PARAMETER (GDS__primary_key_exists   = 335544548)
+      INTEGER*4 GDS__systrig_update      
+      PARAMETER (GDS__systrig_update       = 335544549)
+      INTEGER*4 GDS__not_rel_owner       
+      PARAMETER (GDS__not_rel_owner        = 335544550)
+      INTEGER*4 GDS__grant_obj_notfound  
+      PARAMETER (GDS__grant_obj_notfound   = 335544551)
+      INTEGER*4 GDS__grant_fld_notfound  
+      PARAMETER (GDS__grant_fld_notfound   = 335544552)
+      INTEGER*4 GDS__grant_nopriv        
+      PARAMETER (GDS__grant_nopriv         = 335544553)
+      INTEGER*4 GDS__nonsql_security_rel 
+      PARAMETER (GDS__nonsql_security_rel  = 335544554)
+      INTEGER*4 GDS__nonsql_security_fld 
+      PARAMETER (GDS__nonsql_security_fld  = 335544555)
+      INTEGER*4 GDS__wal_cache_err       
+      PARAMETER (GDS__wal_cache_err        = 335544556)
+      INTEGER*4 GDS__shutfail            
+      PARAMETER (GDS__shutfail             = 335544557)
+      INTEGER*4 GDS__check_constraint    
+      PARAMETER (GDS__check_constraint     = 335544558)
+      INTEGER*4 GDS__bad_svc_handle      
+      PARAMETER (GDS__bad_svc_handle       = 335544559)
+      INTEGER*4 GDS__shutwarn            
+      PARAMETER (GDS__shutwarn             = 335544560)
+      INTEGER*4 GDS__wrospbver           
+      PARAMETER (GDS__wrospbver            = 335544561)
+      INTEGER*4 GDS__bad_spb_form        
+      PARAMETER (GDS__bad_spb_form         = 335544562)
+      INTEGER*4 GDS__svcnotdef           
+      PARAMETER (GDS__svcnotdef            = 335544563)
+      INTEGER*4 GDS__no_jrn              
+      PARAMETER (GDS__no_jrn               = 335544564)
+      INTEGER*4 GDS__transliteration_fail
+      PARAMETER (GDS__transliteration_fail = 335544565)
+      INTEGER*4 GDS__start_cm_for_wal    
+      PARAMETER (GDS__start_cm_for_wal     = 335544566)
+      INTEGER*4 GDS__wal_ovflow_log_requi
+      PARAMETER (GDS__wal_ovflow_log_requi = 335544567)
+      INTEGER*4 GDS__text_subtype        
+      PARAMETER (GDS__text_subtype         = 335544568)
+      INTEGER*4 GDS__dsql_error          
+      PARAMETER (GDS__dsql_error           = 335544569)
+      INTEGER*4 GDS__dsql_command_err    
+      PARAMETER (GDS__dsql_command_err     = 335544570)
+      INTEGER*4 GDS__dsql_constant_err   
+      PARAMETER (GDS__dsql_constant_err    = 335544571)
+      INTEGER*4 GDS__dsql_cursor_err     
+      PARAMETER (GDS__dsql_cursor_err      = 335544572)
+      INTEGER*4 GDS__dsql_datatype_err   
+      PARAMETER (GDS__dsql_datatype_err    = 335544573)
+      INTEGER*4 GDS__dsql_decl_err       
+      PARAMETER (GDS__dsql_decl_err        = 335544574)
+      INTEGER*4 GDS__dsql_cursor_update_e
+      PARAMETER (GDS__dsql_cursor_update_e = 335544575)
+      INTEGER*4 GDS__dsql_cursor_open_err
+      PARAMETER (GDS__dsql_cursor_open_err = 335544576)
+      INTEGER*4 GDS__dsql_cursor_close_er
+      PARAMETER (GDS__dsql_cursor_close_er = 335544577)
+      INTEGER*4 GDS__dsql_field_err      
+      PARAMETER (GDS__dsql_field_err       = 335544578)
+      INTEGER*4 GDS__dsql_internal_err   
+      PARAMETER (GDS__dsql_internal_err    = 335544579)
+      INTEGER*4 GDS__dsql_relation_err   
+      PARAMETER (GDS__dsql_relation_err    = 335544580)
+      INTEGER*4 GDS__dsql_procedure_err  
+      PARAMETER (GDS__dsql_procedure_err   = 335544581)
+      INTEGER*4 GDS__dsql_request_err    
+      PARAMETER (GDS__dsql_request_err     = 335544582)
+      INTEGER*4 GDS__dsql_sqlda_err      
+      PARAMETER (GDS__dsql_sqlda_err       = 335544583)
+      INTEGER*4 GDS__dsql_var_count_err  
+      PARAMETER (GDS__dsql_var_count_err   = 335544584)
+      INTEGER*4 GDS__dsql_stmt_handle    
+      PARAMETER (GDS__dsql_stmt_handle     = 335544585)
+      INTEGER*4 GDS__dsql_function_err   
+      PARAMETER (GDS__dsql_function_err    = 335544586)
+      INTEGER*4 GDS__dsql_blob_err       
+      PARAMETER (GDS__dsql_blob_err        = 335544587)
+      INTEGER*4 GDS__collation_not_found 
+      PARAMETER (GDS__collation_not_found  = 335544588)
+      INTEGER*4 GDS__collation_not_for_ch
+      PARAMETER (GDS__collation_not_for_ch = 335544589)
+      INTEGER*4 GDS__dsql_dup_option     
+      PARAMETER (GDS__dsql_dup_option      = 335544590)
+      INTEGER*4 GDS__dsql_tran_err       
+      PARAMETER (GDS__dsql_tran_err        = 335544591)
+      INTEGER*4 GDS__dsql_invalid_array  
+      PARAMETER (GDS__dsql_invalid_array   = 335544592)
+      INTEGER*4 GDS__dsql_max_arr_dim_exc
+      PARAMETER (GDS__dsql_max_arr_dim_exc = 335544593)
+      INTEGER*4 GDS__dsql_arr_range_error
+      PARAMETER (GDS__dsql_arr_range_error = 335544594)
+      INTEGER*4 GDS__dsql_trigger_err    
+      PARAMETER (GDS__dsql_trigger_err     = 335544595)
+      INTEGER*4 GDS__dsql_subselect_err  
+      PARAMETER (GDS__dsql_subselect_err   = 335544596)
+      INTEGER*4 GDS__dsql_crdb_prepare_er
+      PARAMETER (GDS__dsql_crdb_prepare_er = 335544597)
+      INTEGER*4 GDS__specify_field_err   
+      PARAMETER (GDS__specify_field_err    = 335544598)
+      INTEGER*4 GDS__num_field_err       
+      PARAMETER (GDS__num_field_err        = 335544599)
+      INTEGER*4 GDS__col_name_err        
+      PARAMETER (GDS__col_name_err         = 335544600)
+      INTEGER*4 GDS__where_err           
+      PARAMETER (GDS__where_err            = 335544601)
+      INTEGER*4 GDS__table_view_err      
+      PARAMETER (GDS__table_view_err       = 335544602)
+      INTEGER*4 GDS__distinct_err        
+      PARAMETER (GDS__distinct_err         = 335544603)
+      INTEGER*4 GDS__key_field_count_err 
+      PARAMETER (GDS__key_field_count_err  = 335544604)
+      INTEGER*4 GDS__subquery_err        
+      PARAMETER (GDS__subquery_err         = 335544605)
+      INTEGER*4 GDS__expression_eval_err 
+      PARAMETER (GDS__expression_eval_err  = 335544606)
+      INTEGER*4 GDS__node_err            
+      PARAMETER (GDS__node_err             = 335544607)
+      INTEGER*4 GDS__command_end_err     
+      PARAMETER (GDS__command_end_err      = 335544608)
+      INTEGER*4 GDS__index_name          
+      PARAMETER (GDS__index_name           = 335544609)
+      INTEGER*4 GDS__exception_name      
+      PARAMETER (GDS__exception_name       = 335544610)
+      INTEGER*4 GDS__field_name          
+      PARAMETER (GDS__field_name           = 335544611)
+      INTEGER*4 GDS__token_err           
+      PARAMETER (GDS__token_err            = 335544612)
+      INTEGER*4 GDS__union_err           
+      PARAMETER (GDS__union_err            = 335544613)
+      INTEGER*4 GDS__dsql_construct_err  
+      PARAMETER (GDS__dsql_construct_err   = 335544614)
+      INTEGER*4 GDS__field_aggregate_err 
+      PARAMETER (GDS__field_aggregate_err  = 335544615)
+      INTEGER*4 GDS__field_ref_err       
+      PARAMETER (GDS__field_ref_err        = 335544616)
+      INTEGER*4 GDS__order_by_err        
+      PARAMETER (GDS__order_by_err         = 335544617)
+      INTEGER*4 GDS__return_mode_err     
+      PARAMETER (GDS__return_mode_err      = 335544618)
+      INTEGER*4 GDS__extern_func_err     
+      PARAMETER (GDS__extern_func_err      = 335544619)
+      INTEGER*4 GDS__alias_conflict_err  
+      PARAMETER (GDS__alias_conflict_err   = 335544620)
+      INTEGER*4 GDS__procedure_conflict_e
+      PARAMETER (GDS__procedure_conflict_e = 335544621)
+      INTEGER*4 GDS__relation_conflict_er
+      PARAMETER (GDS__relation_conflict_er = 335544622)
+      INTEGER*4 GDS__dsql_domain_err     
+      PARAMETER (GDS__dsql_domain_err      = 335544623)
+      INTEGER*4 GDS__idx_seg_err         
+      PARAMETER (GDS__idx_seg_err          = 335544624)
+      INTEGER*4 GDS__node_name_err       
+      PARAMETER (GDS__node_name_err        = 335544625)
+      INTEGER*4 GDS__table_name          
+      PARAMETER (GDS__table_name           = 335544626)
+      INTEGER*4 GDS__proc_name           
+      PARAMETER (GDS__proc_name            = 335544627)
+      INTEGER*4 GDS__idx_create_err      
+      PARAMETER (GDS__idx_create_err       = 335544628)
+      INTEGER*4 GDS__wal_shadow_err      
+      PARAMETER (GDS__wal_shadow_err       = 335544629)
+      INTEGER*4 GDS__dependency          
+      PARAMETER (GDS__dependency           = 335544630)
+      INTEGER*4 GDS__idx_key_err         
+      PARAMETER (GDS__idx_key_err          = 335544631)
+      INTEGER*4 GDS__dsql_file_length_err
+      PARAMETER (GDS__dsql_file_length_err = 335544632)
+      INTEGER*4 GDS__dsql_shadow_number_e
+      PARAMETER (GDS__dsql_shadow_number_e = 335544633)
+      INTEGER*4 GDS__dsql_token_unk_err  
+      PARAMETER (GDS__dsql_token_unk_err   = 335544634)
+      INTEGER*4 GDS__dsql_no_relation_ali
+      PARAMETER (GDS__dsql_no_relation_ali = 335544635)
+      INTEGER*4 GDS__indexname           
+      PARAMETER (GDS__indexname            = 335544636)
+      INTEGER*4 GDS__no_stream_plan      
+      PARAMETER (GDS__no_stream_plan       = 335544637)
+      INTEGER*4 GDS__stream_twice        
+      PARAMETER (GDS__stream_twice         = 335544638)
+      INTEGER*4 GDS__stream_not_found    
+      PARAMETER (GDS__stream_not_found     = 335544639)
+      INTEGER*4 GDS__collation_requires_t
+      PARAMETER (GDS__collation_requires_t = 335544640)
+      INTEGER*4 GDS__dsql_domain_not_foun
+      PARAMETER (GDS__dsql_domain_not_foun = 335544641)
+      INTEGER*4 GDS__index_unused        
+      PARAMETER (GDS__index_unused         = 335544642)
+      INTEGER*4 GDS__dsql_self_join      
+      PARAMETER (GDS__dsql_self_join       = 335544643)
+      INTEGER*4 GDS__stream_bof          
+      PARAMETER (GDS__stream_bof           = 335544644)
+      INTEGER*4 GDS__stream_crack        
+      PARAMETER (GDS__stream_crack         = 335544645)
+      INTEGER*4 GDS__db_or_file_exists   
+      PARAMETER (GDS__db_or_file_exists    = 335544646)
+      INTEGER*4 GDS__invalid_operator    
+      PARAMETER (GDS__invalid_operator     = 335544647)
+      INTEGER*4 GDS__conn_lost           
+      PARAMETER (GDS__conn_lost            = 335544648)
+      INTEGER*4 GDS__bad_checksum        
+      PARAMETER (GDS__bad_checksum         = 335544649)
+      INTEGER*4 GDS__page_type_err       
+      PARAMETER (GDS__page_type_err        = 335544650)
+      INTEGER*4 GDS__ext_readonly_err    
+      PARAMETER (GDS__ext_readonly_err     = 335544651)
+      INTEGER*4 GDS__sing_select_err     
+      PARAMETER (GDS__sing_select_err      = 335544652)
+      INTEGER*4 GDS__psw_attach          
+      PARAMETER (GDS__psw_attach           = 335544653)
+      INTEGER*4 GDS__psw_start_trans     
+      PARAMETER (GDS__psw_start_trans      = 335544654)
+      INTEGER*4 GDS__invalid_direction   
+      PARAMETER (GDS__invalid_direction    = 335544655)
+      INTEGER*4 GDS__dsql_var_conflict   
+      PARAMETER (GDS__dsql_var_conflict    = 335544656)
+      INTEGER*4 GDS__dsql_no_blob_array  
+      PARAMETER (GDS__dsql_no_blob_array   = 335544657)
+      INTEGER*4 GDS__dsql_base_table     
+      PARAMETER (GDS__dsql_base_table      = 335544658)
+      INTEGER*4 GDS__duplicate_base_table
+      PARAMETER (GDS__duplicate_base_table = 335544659)
+      INTEGER*4 GDS__view_alias          
+      PARAMETER (GDS__view_alias           = 335544660)
+      INTEGER*4 GDS__index_root_page_full
+      PARAMETER (GDS__index_root_page_full = 335544661)
+      INTEGER*4 GDS__dsql_blob_type_unkno
+      PARAMETER (GDS__dsql_blob_type_unkno = 335544662)
+      INTEGER*4 GDS__req_max_clones_excee
+      PARAMETER (GDS__req_max_clones_excee = 335544663)
+      INTEGER*4 GDS__dsql_duplicate_spec 
+      PARAMETER (GDS__dsql_duplicate_spec  = 335544664)
+      INTEGER*4 GDS__unique_key_violation
+      PARAMETER (GDS__unique_key_violation = 335544665)
+      INTEGER*4 GDS__srvr_version_too_old
+      PARAMETER (GDS__srvr_version_too_old = 335544666)
+      INTEGER*4 GDS__drdb_completed_with_
+      PARAMETER (GDS__drdb_completed_with_ = 335544667)
+      INTEGER*4 GDS__dsql_procedure_use_e
+      PARAMETER (GDS__dsql_procedure_use_e = 335544668)
+      INTEGER*4 GDS__dsql_count_mismatch 
+      PARAMETER (GDS__dsql_count_mismatch  = 335544669)
+      INTEGER*4 GDS__blob_idx_err        
+      PARAMETER (GDS__blob_idx_err         = 335544670)
+      INTEGER*4 GDS__array_idx_err       
+      PARAMETER (GDS__array_idx_err        = 335544671)
+      INTEGER*4 GDS__key_field_err       
+      PARAMETER (GDS__key_field_err        = 335544672)
+      INTEGER*4 GDS__no_delete           
+      PARAMETER (GDS__no_delete            = 335544673)
+      INTEGER*4 GDS__del_last_field      
+      PARAMETER (GDS__del_last_field       = 335544674)
+      INTEGER*4 GDS__sort_err            
+      PARAMETER (GDS__sort_err             = 335544675)
+      INTEGER*4 GDS__sort_mem_err        
+      PARAMETER (GDS__sort_mem_err         = 335544676)
+      INTEGER*4 GDS__version_err         
+      PARAMETER (GDS__version_err          = 335544677)
+      INTEGER*4 GDS__inval_key_posn      
+      PARAMETER (GDS__inval_key_posn       = 335544678)
+      INTEGER*4 GDS__no_segments_err     
+      PARAMETER (GDS__no_segments_err      = 335544679)
+      INTEGER*4 GDS__crrp_data_err       
+      PARAMETER (GDS__crrp_data_err        = 335544680)
+      INTEGER*4 GDS__rec_size_err        
+      PARAMETER (GDS__rec_size_err         = 335544681)
+      INTEGER*4 GDS__dsql_field_ref      
+      PARAMETER (GDS__dsql_field_ref       = 335544682)
+      INTEGER*4 GDS__req_depth_exceeded  
+      PARAMETER (GDS__req_depth_exceeded   = 335544683)
+      INTEGER*4 GDS__no_field_access     
+      PARAMETER (GDS__no_field_access      = 335544684)
+      INTEGER*4 GDS__no_dbkey            
+      PARAMETER (GDS__no_dbkey             = 335544685)
+      INTEGER*4 GDS__jrn_format_err      
+      PARAMETER (GDS__jrn_format_err       = 335544686)
+      INTEGER*4 GDS__jrn_file_full       
+      PARAMETER (GDS__jrn_file_full        = 335544687)
+      INTEGER*4 GDS__dsql_open_cursor_req
+      PARAMETER (GDS__dsql_open_cursor_req = 335544688)
+      INTEGER*4 GDS__ib_error            
+      PARAMETER (GDS__ib_error             = 335544689)
+      INTEGER*4 GDS__cache_redef         
+      PARAMETER (GDS__cache_redef          = 335544690)
+      INTEGER*4 GDS__cache_too_small     
+      PARAMETER (GDS__cache_too_small      = 335544691)
+      INTEGER*4 GDS__log_redef           
+      PARAMETER (GDS__log_redef            = 335544692)
+      INTEGER*4 GDS__log_too_small       
+      PARAMETER (GDS__log_too_small        = 335544693)
+      INTEGER*4 GDS__partition_too_small 
+      PARAMETER (GDS__partition_too_small  = 335544694)
+      INTEGER*4 GDS__partition_not_supp  
+      PARAMETER (GDS__partition_not_supp   = 335544695)
+      INTEGER*4 GDS__log_length_spec     
+      PARAMETER (GDS__log_length_spec      = 335544696)
+      INTEGER*4 GDS__precision_err       
+      PARAMETER (GDS__precision_err        = 335544697)
+      INTEGER*4 GDS__scale_nogt          
+      PARAMETER (GDS__scale_nogt           = 335544698)
+      INTEGER*4 GDS__expec_short         
+      PARAMETER (GDS__expec_short          = 335544699)
+      INTEGER*4 GDS__expec_long          
+      PARAMETER (GDS__expec_long           = 335544700)
+      INTEGER*4 GDS__expec_ushort        
+      PARAMETER (GDS__expec_ushort         = 335544701)
+      INTEGER*4 GDS__like_escape_invalid 
+      PARAMETER (GDS__like_escape_invalid  = 335544702)
+      INTEGER*4 GDS__svcnoexe            
+      PARAMETER (GDS__svcnoexe             = 335544703)
+      INTEGER*4 GDS__net_lookup_err      
+      PARAMETER (GDS__net_lookup_err       = 335544704)
+      INTEGER*4 GDS__service_unknown     
+      PARAMETER (GDS__service_unknown      = 335544705)
+      INTEGER*4 GDS__host_unknown        
+      PARAMETER (GDS__host_unknown         = 335544706)
+      INTEGER*4 GDS__grant_nopriv_on_base
+      PARAMETER (GDS__grant_nopriv_on_base = 335544707)
+      INTEGER*4 GDS__dyn_fld_ambiguous   
+      PARAMETER (GDS__dyn_fld_ambiguous    = 335544708)
+      INTEGER*4 GDS__dsql_agg_ref_err    
+      PARAMETER (GDS__dsql_agg_ref_err     = 335544709)
+      INTEGER*4 GDS__complex_view        
+      PARAMETER (GDS__complex_view         = 335544710)
+      INTEGER*4 GDS__unprepared_stmt     
+      PARAMETER (GDS__unprepared_stmt      = 335544711)
+      INTEGER*4 GDS__expec_positive      
+      PARAMETER (GDS__expec_positive       = 335544712)
+      INTEGER*4 GDS__dsql_sqlda_value_err
+      PARAMETER (GDS__dsql_sqlda_value_err = 335544713)
+      INTEGER*4 GDS__invalid_array_id    
+      PARAMETER (GDS__invalid_array_id     = 335544714)
+      INTEGER*4 GDS__extfile_uns_op      
+      PARAMETER (GDS__extfile_uns_op       = 335544715)
+      INTEGER*4 GDS__svc_in_use          
+      PARAMETER (GDS__svc_in_use           = 335544716)
+      INTEGER*4 GDS__err_stack_limit     
+      PARAMETER (GDS__err_stack_limit      = 335544717)
+      INTEGER*4 GDS__invalid_key         
+      PARAMETER (GDS__invalid_key          = 335544718)
+      INTEGER*4 GDS__net_init_error      
+      PARAMETER (GDS__net_init_error       = 335544719)
+      INTEGER*4 GDS__loadlib_failure     
+      PARAMETER (GDS__loadlib_failure      = 335544720)
+      INTEGER*4 GDS__network_error       
+      PARAMETER (GDS__network_error        = 335544721)
+      INTEGER*4 GDS__net_connect_err     
+      PARAMETER (GDS__net_connect_err      = 335544722)
+      INTEGER*4 GDS__net_connect_listen_e
+      PARAMETER (GDS__net_connect_listen_e = 335544723)
+      INTEGER*4 GDS__net_event_connect_er
+      PARAMETER (GDS__net_event_connect_er = 335544724)
+      INTEGER*4 GDS__net_event_listen_err
+      PARAMETER (GDS__net_event_listen_err = 335544725)
+      INTEGER*4 GDS__net_read_err        
+      PARAMETER (GDS__net_read_err         = 335544726)
+      INTEGER*4 GDS__net_write_err       
+      PARAMETER (GDS__net_write_err        = 335544727)
+      INTEGER*4 GDS__integ_index_deactiva
+      PARAMETER (GDS__integ_index_deactiva = 335544728)
+      INTEGER*4 GDS__integ_deactivate_pri
+      PARAMETER (GDS__integ_deactivate_pri = 335544729)
+      INTEGER*4 GDS__cse_not_supported   
+      PARAMETER (GDS__cse_not_supported    = 335544730)
+
+
+      INTEGER*4 ISC_arith_except        
+      PARAMETER (ISC_arith_except         = 335544321)
+      INTEGER*4 ISC_bad_dbkey           
+      PARAMETER (ISC_bad_dbkey            = 335544322)
+      INTEGER*4 ISC_bad_db_format       
+      PARAMETER (ISC_bad_db_format        = 335544323)
+      INTEGER*4 ISC_bad_db_handle       
+      PARAMETER (ISC_bad_db_handle        = 335544324)
+      INTEGER*4 ISC_bad_dpb_content     
+      PARAMETER (ISC_bad_dpb_content      = 335544325)
+      INTEGER*4 ISC_bad_dpb_form        
+      PARAMETER (ISC_bad_dpb_form         = 335544326)
+      INTEGER*4 ISC_bad_req_handle      
+      PARAMETER (ISC_bad_req_handle       = 335544327)
+      INTEGER*4 ISC_bad_segstr_handle   
+      PARAMETER (ISC_bad_segstr_handle    = 335544328)
+      INTEGER*4 ISC_bad_segstr_id       
+      PARAMETER (ISC_bad_segstr_id        = 335544329)
+      INTEGER*4 ISC_bad_tpb_content     
+      PARAMETER (ISC_bad_tpb_content      = 335544330)
+      INTEGER*4 ISC_bad_tpb_form        
+      PARAMETER (ISC_bad_tpb_form         = 335544331)
+      INTEGER*4 ISC_bad_trans_handle    
+      PARAMETER (ISC_bad_trans_handle     = 335544332)
+      INTEGER*4 ISC_bug_check           
+      PARAMETER (ISC_bug_check            = 335544333)
+      INTEGER*4 ISC_convert_error       
+      PARAMETER (ISC_convert_error        = 335544334)
+      INTEGER*4 ISC_db_corrupt          
+      PARAMETER (ISC_db_corrupt           = 335544335)
+      INTEGER*4 ISC_deadlock            
+      PARAMETER (ISC_deadlock             = 335544336)
+      INTEGER*4 ISC_excess_trans        
+      PARAMETER (ISC_excess_trans         = 335544337)
+      INTEGER*4 ISC_from_no_match       
+      PARAMETER (ISC_from_no_match        = 335544338)
+      INTEGER*4 ISC_infinap             
+      PARAMETER (ISC_infinap              = 335544339)
+      INTEGER*4 ISC_infona              
+      PARAMETER (ISC_infona               = 335544340)
+      INTEGER*4 ISC_infunk              
+      PARAMETER (ISC_infunk               = 335544341)
+      INTEGER*4 ISC_integ_fail          
+      PARAMETER (ISC_integ_fail           = 335544342)
+      INTEGER*4 ISC_invalid_blr         
+      PARAMETER (ISC_invalid_blr          = 335544343)
+      INTEGER*4 ISC_io_error            
+      PARAMETER (ISC_io_error             = 335544344)
+      INTEGER*4 ISC_lock_conflict       
+      PARAMETER (ISC_lock_conflict        = 335544345)
+      INTEGER*4 ISC_metadata_corrupt    
+      PARAMETER (ISC_metadata_corrupt     = 335544346)
+      INTEGER*4 ISC_not_valid           
+      PARAMETER (ISC_not_valid            = 335544347)
+      INTEGER*4 ISC_no_cur_rec          
+      PARAMETER (ISC_no_cur_rec           = 335544348)
+      INTEGER*4 ISC_no_dup              
+      PARAMETER (ISC_no_dup               = 335544349)
+      INTEGER*4 ISC_no_finish           
+      PARAMETER (ISC_no_finish            = 335544350)
+      INTEGER*4 ISC_no_meta_update      
+      PARAMETER (ISC_no_meta_update       = 335544351)
+      INTEGER*4 ISC_no_priv             
+      PARAMETER (ISC_no_priv              = 335544352)
+      INTEGER*4 ISC_no_recon            
+      PARAMETER (ISC_no_recon             = 335544353)
+      INTEGER*4 ISC_no_record           
+      PARAMETER (ISC_no_record            = 335544354)
+      INTEGER*4 ISC_no_segstr_close     
+      PARAMETER (ISC_no_segstr_close      = 335544355)
+      INTEGER*4 ISC_obsolete_metadata   
+      PARAMETER (ISC_obsolete_metadata    = 335544356)
+      INTEGER*4 ISC_open_trans          
+      PARAMETER (ISC_open_trans           = 335544357)
+      INTEGER*4 ISC_port_len            
+      PARAMETER (ISC_port_len             = 335544358)
+      INTEGER*4 ISC_read_only_field     
+      PARAMETER (ISC_read_only_field      = 335544359)
+      INTEGER*4 ISC_read_only_rel       
+      PARAMETER (ISC_read_only_rel        = 335544360)
+      INTEGER*4 ISC_read_only_trans     
+      PARAMETER (ISC_read_only_trans      = 335544361)
+      INTEGER*4 ISC_read_only_view      
+      PARAMETER (ISC_read_only_view       = 335544362)
+      INTEGER*4 ISC_req_no_trans        
+      PARAMETER (ISC_req_no_trans         = 335544363)
+      INTEGER*4 ISC_req_sync            
+      PARAMETER (ISC_req_sync             = 335544364)
+      INTEGER*4 ISC_req_wrong_db        
+      PARAMETER (ISC_req_wrong_db         = 335544365)
+      INTEGER*4 ISC_segment             
+      PARAMETER (ISC_segment              = 335544366)
+      INTEGER*4 ISC_segstr_eof          
+      PARAMETER (ISC_segstr_eof           = 335544367)
+      INTEGER*4 ISC_segstr_no_op        
+      PARAMETER (ISC_segstr_no_op         = 335544368)
+      INTEGER*4 ISC_segstr_no_read      
+      PARAMETER (ISC_segstr_no_read       = 335544369)
+      INTEGER*4 ISC_segstr_no_trans     
+      PARAMETER (ISC_segstr_no_trans      = 335544370)
+      INTEGER*4 ISC_segstr_no_write     
+      PARAMETER (ISC_segstr_no_write      = 335544371)
+      INTEGER*4 ISC_segstr_wrong_db     
+      PARAMETER (ISC_segstr_wrong_db      = 335544372)
+      INTEGER*4 ISC_sys_request         
+      PARAMETER (ISC_sys_request          = 335544373)
+      INTEGER*4 ISC_stream_eof          
+      PARAMETER (ISC_stream_eof           = 335544374)
+      INTEGER*4 ISC_unavailable         
+      PARAMETER (ISC_unavailable          = 335544375)
+      INTEGER*4 ISC_unres_rel           
+      PARAMETER (ISC_unres_rel            = 335544376)
+      INTEGER*4 ISC_uns_ext             
+      PARAMETER (ISC_uns_ext              = 335544377)
+      INTEGER*4 ISC_wish_list           
+      PARAMETER (ISC_wish_list            = 335544378)
+      INTEGER*4 ISC_wrong_ods           
+      PARAMETER (ISC_wrong_ods            = 335544379)
+      INTEGER*4 ISC_wronumarg           
+      PARAMETER (ISC_wronumarg            = 335544380)
+      INTEGER*4 ISC_imp_exc             
+      PARAMETER (ISC_imp_exc              = 335544381)
+      INTEGER*4 ISC_random              
+      PARAMETER (ISC_random               = 335544382)
+      INTEGER*4 ISC_fatal_conflict      
+      PARAMETER (ISC_fatal_conflict       = 335544383)
+      INTEGER*4 ISC_badblk              
+      PARAMETER (ISC_badblk               = 335544384)
+      INTEGER*4 ISC_invpoolcl           
+      PARAMETER (ISC_invpoolcl            = 335544385)
+      INTEGER*4 ISC_nopoolids           
+      PARAMETER (ISC_nopoolids            = 335544386)
+      INTEGER*4 ISC_relbadblk           
+      PARAMETER (ISC_relbadblk            = 335544387)
+      INTEGER*4 ISC_blktoobig           
+      PARAMETER (ISC_blktoobig            = 335544388)
+      INTEGER*4 ISC_bufexh              
+      PARAMETER (ISC_bufexh               = 335544389)
+      INTEGER*4 ISC_syntaxerr           
+      PARAMETER (ISC_syntaxerr            = 335544390)
+      INTEGER*4 ISC_bufinuse            
+      PARAMETER (ISC_bufinuse             = 335544391)
+      INTEGER*4 ISC_bdbincon            
+      PARAMETER (ISC_bdbincon             = 335544392)
+      INTEGER*4 ISC_reqinuse            
+      PARAMETER (ISC_reqinuse             = 335544393)
+      INTEGER*4 ISC_badodsver           
+      PARAMETER (ISC_badodsver            = 335544394)
+      INTEGER*4 ISC_relnotdef           
+      PARAMETER (ISC_relnotdef            = 335544395)
+      INTEGER*4 ISC_fldnotdef           
+      PARAMETER (ISC_fldnotdef            = 335544396)
+      INTEGER*4 ISC_dirtypage           
+      PARAMETER (ISC_dirtypage            = 335544397)
+      INTEGER*4 ISC_waifortra           
+      PARAMETER (ISC_waifortra            = 335544398)
+      INTEGER*4 ISC_doubleloc           
+      PARAMETER (ISC_doubleloc            = 335544399)
+      INTEGER*4 ISC_nodnotfnd           
+      PARAMETER (ISC_nodnotfnd            = 335544400)
+      INTEGER*4 ISC_dupnodfnd           
+      PARAMETER (ISC_dupnodfnd            = 335544401)
+      INTEGER*4 ISC_locnotmar           
+      PARAMETER (ISC_locnotmar            = 335544402)
+      INTEGER*4 ISC_badpagtyp           
+      PARAMETER (ISC_badpagtyp            = 335544403)
+      INTEGER*4 ISC_corrupt             
+      PARAMETER (ISC_corrupt              = 335544404)
+      INTEGER*4 ISC_badpage             
+      PARAMETER (ISC_badpage              = 335544405)
+      INTEGER*4 ISC_badindex            
+      PARAMETER (ISC_badindex             = 335544406)
+      INTEGER*4 ISC_dbbnotzer           
+      PARAMETER (ISC_dbbnotzer            = 335544407)
+      INTEGER*4 ISC_tranotzer           
+      PARAMETER (ISC_tranotzer            = 335544408)
+      INTEGER*4 ISC_trareqmis           
+      PARAMETER (ISC_trareqmis            = 335544409)
+      INTEGER*4 ISC_badhndcnt           
+      PARAMETER (ISC_badhndcnt            = 335544410)
+      INTEGER*4 ISC_wrotpbver           
+      PARAMETER (ISC_wrotpbver            = 335544411)
+      INTEGER*4 ISC_wroblrver           
+      PARAMETER (ISC_wroblrver            = 335544412)
+      INTEGER*4 ISC_wrodpbver           
+      PARAMETER (ISC_wrodpbver            = 335544413)
+      INTEGER*4 ISC_blobnotsup          
+      PARAMETER (ISC_blobnotsup           = 335544414)
+      INTEGER*4 ISC_badrelation         
+      PARAMETER (ISC_badrelation          = 335544415)
+      INTEGER*4 ISC_nodetach            
+      PARAMETER (ISC_nodetach             = 335544416)
+      INTEGER*4 ISC_notremote           
+      PARAMETER (ISC_notremote            = 335544417)
+      INTEGER*4 ISC_trainlim            
+      PARAMETER (ISC_trainlim             = 335544418)
+      INTEGER*4 ISC_notinlim            
+      PARAMETER (ISC_notinlim             = 335544419)
+      INTEGER*4 ISC_traoutsta           
+      PARAMETER (ISC_traoutsta            = 335544420)
+      INTEGER*4 ISC_connect_reject      
+      PARAMETER (ISC_connect_reject       = 335544421)
+      INTEGER*4 ISC_dbfile              
+      PARAMETER (ISC_dbfile               = 335544422)
+      INTEGER*4 ISC_orphan              
+      PARAMETER (ISC_orphan               = 335544423)
+      INTEGER*4 ISC_no_lock_mgr         
+      PARAMETER (ISC_no_lock_mgr          = 335544424)
+      INTEGER*4 ISC_ctxinuse            
+      PARAMETER (ISC_ctxinuse             = 335544425)
+      INTEGER*4 ISC_ctxnotdef           
+      PARAMETER (ISC_ctxnotdef            = 335544426)
+      INTEGER*4 ISC_datnotsup           
+      PARAMETER (ISC_datnotsup            = 335544427)
+      INTEGER*4 ISC_badmsgnum           
+      PARAMETER (ISC_badmsgnum            = 335544428)
+      INTEGER*4 ISC_badparnum           
+      PARAMETER (ISC_badparnum            = 335544429)
+      INTEGER*4 ISC_virmemexh           
+      PARAMETER (ISC_virmemexh            = 335544430)
+      INTEGER*4 ISC_blocking_signal     
+      PARAMETER (ISC_blocking_signal      = 335544431)
+      INTEGER*4 ISC_lockmanerr          
+      PARAMETER (ISC_lockmanerr           = 335544432)
+      INTEGER*4 ISC_journerr            
+      PARAMETER (ISC_journerr             = 335544433)
+      INTEGER*4 ISC_keytoobig           
+      PARAMETER (ISC_keytoobig            = 335544434)
+      INTEGER*4 ISC_nullsegkey          
+      PARAMETER (ISC_nullsegkey           = 335544435)
+      INTEGER*4 ISC_sqlerr              
+      PARAMETER (ISC_sqlerr               = 335544436)
+      INTEGER*4 ISC_wrodynver           
+      PARAMETER (ISC_wrodynver            = 335544437)
+      INTEGER*4 ISC_funnotdef           
+      PARAMETER (ISC_funnotdef            = 335544438)
+      INTEGER*4 ISC_funmismat           
+      PARAMETER (ISC_funmismat            = 335544439)
+      INTEGER*4 ISC_bad_msg_vec         
+      PARAMETER (ISC_bad_msg_vec          = 335544440)
+      INTEGER*4 ISC_bad_detach          
+      PARAMETER (ISC_bad_detach           = 335544441)
+      INTEGER*4 ISC_noargacc_read       
+      PARAMETER (ISC_noargacc_read        = 335544442)
+      INTEGER*4 ISC_noargacc_write      
+      PARAMETER (ISC_noargacc_write       = 335544443)
+      INTEGER*4 ISC_read_only           
+      PARAMETER (ISC_read_only            = 335544444)
+      INTEGER*4 ISC_ext_err             
+      PARAMETER (ISC_ext_err              = 335544445)
+      INTEGER*4 ISC_non_updatable       
+      PARAMETER (ISC_non_updatable        = 335544446)
+      INTEGER*4 ISC_no_rollback         
+      PARAMETER (ISC_no_rollback          = 335544447)
+      INTEGER*4 ISC_bad_sec_info        
+      PARAMETER (ISC_bad_sec_info         = 335544448)
+      INTEGER*4 ISC_invalid_sec_info    
+      PARAMETER (ISC_invalid_sec_info     = 335544449)
+      INTEGER*4 ISC_misc_interpreted    
+      PARAMETER (ISC_misc_interpreted     = 335544450)
+      INTEGER*4 ISC_update_conflict     
+      PARAMETER (ISC_update_conflict      = 335544451)
+      INTEGER*4 ISC_unlicensed          
+      PARAMETER (ISC_unlicensed           = 335544452)
+      INTEGER*4 ISC_obj_in_use          
+      PARAMETER (ISC_obj_in_use           = 335544453)
+      INTEGER*4 ISC_nofilter            
+      PARAMETER (ISC_nofilter             = 335544454)
+      INTEGER*4 ISC_shadow_accessed     
+      PARAMETER (ISC_shadow_accessed      = 335544455)
+      INTEGER*4 ISC_invalid_sdl         
+      PARAMETER (ISC_invalid_sdl          = 335544456)
+      INTEGER*4 ISC_out_of_bounds       
+      PARAMETER (ISC_out_of_bounds        = 335544457)
+      INTEGER*4 ISC_invalid_dimension   
+      PARAMETER (ISC_invalid_dimension    = 335544458)
+      INTEGER*4 ISC_rec_in_limbo        
+      PARAMETER (ISC_rec_in_limbo         = 335544459)
+      INTEGER*4 ISC_shadow_missing      
+      PARAMETER (ISC_shadow_missing       = 335544460)
+      INTEGER*4 ISC_cant_validate       
+      PARAMETER (ISC_cant_validate        = 335544461)
+      INTEGER*4 ISC_cant_start_journal  
+      PARAMETER (ISC_cant_start_journal   = 335544462)
+      INTEGER*4 ISC_gennotdef           
+      PARAMETER (ISC_gennotdef            = 335544463)
+      INTEGER*4 ISC_cant_start_logging  
+      PARAMETER (ISC_cant_start_logging   = 335544464)
+      INTEGER*4 ISC_bad_segstr_type     
+      PARAMETER (ISC_bad_segstr_type      = 335544465)
+      INTEGER*4 ISC_foreign_key         
+      PARAMETER (ISC_foreign_key          = 335544466)
+      INTEGER*4 ISC_high_minor          
+      PARAMETER (ISC_high_minor           = 335544467)
+      INTEGER*4 ISC_tra_state           
+      PARAMETER (ISC_tra_state            = 335544468)
+      INTEGER*4 ISC_trans_invalid       
+      PARAMETER (ISC_trans_invalid        = 335544469)
+      INTEGER*4 ISC_buf_invalid         
+      PARAMETER (ISC_buf_invalid          = 335544470)
+      INTEGER*4 ISC_indexnotdefined     
+      PARAMETER (ISC_indexnotdefined      = 335544471)
+      INTEGER*4 ISC_login               
+      PARAMETER (ISC_login                = 335544472)
+      INTEGER*4 ISC_invalid_bookmark    
+      PARAMETER (ISC_invalid_bookmark     = 335544473)
+      INTEGER*4 ISC_bad_lock_level      
+      PARAMETER (ISC_bad_lock_level       = 335544474)
+      INTEGER*4 ISC_relation_lock       
+      PARAMETER (ISC_relation_lock        = 335544475)
+      INTEGER*4 ISC_record_lock         
+      PARAMETER (ISC_record_lock          = 335544476)
+      INTEGER*4 ISC_max_idx             
+      PARAMETER (ISC_max_idx              = 335544477)
+      INTEGER*4 ISC_jrn_enable          
+      PARAMETER (ISC_jrn_enable           = 335544478)
+      INTEGER*4 ISC_old_failure         
+      PARAMETER (ISC_old_failure          = 335544479)
+      INTEGER*4 ISC_old_in_progress     
+      PARAMETER (ISC_old_in_progress      = 335544480)
+      INTEGER*4 ISC_old_no_space        
+      PARAMETER (ISC_old_no_space         = 335544481)
+      INTEGER*4 ISC_no_wal_no_jrn       
+      PARAMETER (ISC_no_wal_no_jrn        = 335544482)
+      INTEGER*4 ISC_num_old_files       
+      PARAMETER (ISC_num_old_files        = 335544483)
+      INTEGER*4 ISC_wal_file_open       
+      PARAMETER (ISC_wal_file_open        = 335544484)
+      INTEGER*4 ISC_bad_stmt_handle     
+      PARAMETER (ISC_bad_stmt_handle      = 335544485)
+      INTEGER*4 ISC_wal_failure         
+      PARAMETER (ISC_wal_failure          = 335544486)
+      INTEGER*4 ISC_walw_err            
+      PARAMETER (ISC_walw_err             = 335544487)
+      INTEGER*4 ISC_logh_small          
+      PARAMETER (ISC_logh_small           = 335544488)
+      INTEGER*4 ISC_logh_inv_version    
+      PARAMETER (ISC_logh_inv_version     = 335544489)
+      INTEGER*4 ISC_logh_open_flag      
+      PARAMETER (ISC_logh_open_flag       = 335544490)
+      INTEGER*4 ISC_logh_open_flag2     
+      PARAMETER (ISC_logh_open_flag2      = 335544491)
+      INTEGER*4 ISC_logh_diff_dbname    
+      PARAMETER (ISC_logh_diff_dbname     = 335544492)
+      INTEGER*4 ISC_logf_unexpected_eof 
+      PARAMETER (ISC_logf_unexpected_eof  = 335544493)
+      INTEGER*4 ISC_logr_incomplete     
+      PARAMETER (ISC_logr_incomplete      = 335544494)
+      INTEGER*4 ISC_logr_header_small   
+      PARAMETER (ISC_logr_header_small    = 335544495)
+      INTEGER*4 ISC_logb_small          
+      PARAMETER (ISC_logb_small           = 335544496)
+      INTEGER*4 ISC_wal_illegal_attach  
+      PARAMETER (ISC_wal_illegal_attach   = 335544497)
+      INTEGER*4 ISC_wal_invalid_wpb     
+      PARAMETER (ISC_wal_invalid_wpb      = 335544498)
+      INTEGER*4 ISC_wal_err_rollover    
+      PARAMETER (ISC_wal_err_rollover     = 335544499)
+      INTEGER*4 ISC_no_wal              
+      PARAMETER (ISC_no_wal               = 335544500)
+      INTEGER*4 ISC_drop_wal            
+      PARAMETER (ISC_drop_wal             = 335544501)
+      INTEGER*4 ISC_stream_not_defined  
+      PARAMETER (ISC_stream_not_defined   = 335544502)
+      INTEGER*4 ISC_wal_subsys_error    
+      PARAMETER (ISC_wal_subsys_error     = 335544503)
+      INTEGER*4 ISC_wal_subsys_corrupt  
+      PARAMETER (ISC_wal_subsys_corrupt   = 335544504)
+      INTEGER*4 ISC_no_archive          
+      PARAMETER (ISC_no_archive           = 335544505)
+      INTEGER*4 ISC_shutinprog          
+      PARAMETER (ISC_shutinprog           = 335544506)
+      INTEGER*4 ISC_range_in_use        
+      PARAMETER (ISC_range_in_use         = 335544507)
+      INTEGER*4 ISC_range_not_found     
+      PARAMETER (ISC_range_not_found      = 335544508)
+      INTEGER*4 ISC_charset_not_found   
+      PARAMETER (ISC_charset_not_found    = 335544509)
+      INTEGER*4 ISC_lock_timeout        
+      PARAMETER (ISC_lock_timeout         = 335544510)
+      INTEGER*4 ISC_prcnotdef           
+      PARAMETER (ISC_prcnotdef            = 335544511)
+      INTEGER*4 ISC_prcmismat           
+      PARAMETER (ISC_prcmismat            = 335544512)
+      INTEGER*4 ISC_wal_bugcheck        
+      PARAMETER (ISC_wal_bugcheck         = 335544513)
+      INTEGER*4 ISC_wal_cant_expand     
+      PARAMETER (ISC_wal_cant_expand      = 335544514)
+      INTEGER*4 ISC_codnotdef           
+      PARAMETER (ISC_codnotdef            = 335544515)
+      INTEGER*4 ISC_xcpnotdef           
+      PARAMETER (ISC_xcpnotdef            = 335544516)
+      INTEGER*4 ISC_except              
+      PARAMETER (ISC_except               = 335544517)
+      INTEGER*4 ISC_cache_restart       
+      PARAMETER (ISC_cache_restart        = 335544518)
+      INTEGER*4 ISC_bad_lock_handle     
+      PARAMETER (ISC_bad_lock_handle      = 335544519)
+      INTEGER*4 ISC_jrn_present         
+      PARAMETER (ISC_jrn_present          = 335544520)
+      INTEGER*4 ISC_wal_err_rollover2   
+      PARAMETER (ISC_wal_err_rollover2    = 335544521)
+      INTEGER*4 ISC_wal_err_logwrite    
+      PARAMETER (ISC_wal_err_logwrite     = 335544522)
+      INTEGER*4 ISC_wal_err_jrn_comm    
+      PARAMETER (ISC_wal_err_jrn_comm     = 335544523)
+      INTEGER*4 ISC_wal_err_expansion   
+      PARAMETER (ISC_wal_err_expansion    = 335544524)
+      INTEGER*4 ISC_wal_err_setup       
+      PARAMETER (ISC_wal_err_setup        = 335544525)
+      INTEGER*4 ISC_wal_err_ww_sync     
+      PARAMETER (ISC_wal_err_ww_sync      = 335544526)
+      INTEGER*4 ISC_wal_err_ww_start    
+      PARAMETER (ISC_wal_err_ww_start     = 335544527)
+      INTEGER*4 ISC_shutdown            
+      PARAMETER (ISC_shutdown             = 335544528)
+      INTEGER*4 ISC_existing_priv_mod   
+      PARAMETER (ISC_existing_priv_mod    = 335544529)
+      INTEGER*4 ISC_primary_key_ref     
+      PARAMETER (ISC_primary_key_ref      = 335544530)
+      INTEGER*4 ISC_primary_key_notnull 
+      PARAMETER (ISC_primary_key_notnull  = 335544531)
+      INTEGER*4 ISC_ref_cnstrnt_notfound
+      PARAMETER (ISC_ref_cnstrnt_notfound = 335544532)
+      INTEGER*4 ISC_foreign_key_notfound
+      PARAMETER (ISC_foreign_key_notfound = 335544533)
+      INTEGER*4 ISC_ref_cnstrnt_update  
+      PARAMETER (ISC_ref_cnstrnt_update   = 335544534)
+      INTEGER*4 ISC_check_cnstrnt_update
+      PARAMETER (ISC_check_cnstrnt_update = 335544535)
+      INTEGER*4 ISC_check_cnstrnt_del   
+      PARAMETER (ISC_check_cnstrnt_del    = 335544536)
+      INTEGER*4 ISC_integ_index_seg_del 
+      PARAMETER (ISC_integ_index_seg_del  = 335544537)
+      INTEGER*4 ISC_integ_index_seg_mod 
+      PARAMETER (ISC_integ_index_seg_mod  = 335544538)
+      INTEGER*4 ISC_integ_index_del     
+      PARAMETER (ISC_integ_index_del      = 335544539)
+      INTEGER*4 ISC_integ_index_mod     
+      PARAMETER (ISC_integ_index_mod      = 335544540)
+      INTEGER*4 ISC_check_trig_del      
+      PARAMETER (ISC_check_trig_del       = 335544541)
+      INTEGER*4 ISC_check_trig_update   
+      PARAMETER (ISC_check_trig_update    = 335544542)
+      INTEGER*4 ISC_cnstrnt_fld_del     
+      PARAMETER (ISC_cnstrnt_fld_del      = 335544543)
+      INTEGER*4 ISC_cnstrnt_fld_rename  
+      PARAMETER (ISC_cnstrnt_fld_rename   = 335544544)
+      INTEGER*4 ISC_rel_cnstrnt_update  
+      PARAMETER (ISC_rel_cnstrnt_update   = 335544545)
+      INTEGER*4 ISC_constaint_on_view   
+      PARAMETER (ISC_constaint_on_view    = 335544546)
+      INTEGER*4 ISC_invld_cnstrnt_type  
+      PARAMETER (ISC_invld_cnstrnt_type   = 335544547)
+      INTEGER*4 ISC_primary_key_exists  
+      PARAMETER (ISC_primary_key_exists   = 335544548)
+      INTEGER*4 ISC_systrig_update      
+      PARAMETER (ISC_systrig_update       = 335544549)
+      INTEGER*4 ISC_not_rel_owner       
+      PARAMETER (ISC_not_rel_owner        = 335544550)
+      INTEGER*4 ISC_grant_obj_notfound  
+      PARAMETER (ISC_grant_obj_notfound   = 335544551)
+      INTEGER*4 ISC_grant_fld_notfound  
+      PARAMETER (ISC_grant_fld_notfound   = 335544552)
+      INTEGER*4 ISC_grant_nopriv        
+      PARAMETER (ISC_grant_nopriv         = 335544553)
+      INTEGER*4 ISC_nonsql_security_rel 
+      PARAMETER (ISC_nonsql_security_rel  = 335544554)
+      INTEGER*4 ISC_nonsql_security_fld 
+      PARAMETER (ISC_nonsql_security_fld  = 335544555)
+      INTEGER*4 ISC_wal_cache_err       
+      PARAMETER (ISC_wal_cache_err        = 335544556)
+      INTEGER*4 ISC_shutfail            
+      PARAMETER (ISC_shutfail             = 335544557)
+      INTEGER*4 ISC_check_constraint    
+      PARAMETER (ISC_check_constraint     = 335544558)
+      INTEGER*4 ISC_bad_svc_handle      
+      PARAMETER (ISC_bad_svc_handle       = 335544559)
+      INTEGER*4 ISC_shutwarn            
+      PARAMETER (ISC_shutwarn             = 335544560)
+      INTEGER*4 ISC_wrospbver           
+      PARAMETER (ISC_wrospbver            = 335544561)
+      INTEGER*4 ISC_bad_spb_form        
+      PARAMETER (ISC_bad_spb_form         = 335544562)
+      INTEGER*4 ISC_svcnotdef           
+      PARAMETER (ISC_svcnotdef            = 335544563)
+      INTEGER*4 ISC_no_jrn              
+      PARAMETER (ISC_no_jrn               = 335544564)
+      INTEGER*4 ISC_transliteration_fail
+      PARAMETER (ISC_transliteration_fail = 335544565)
+      INTEGER*4 ISC_start_cm_for_wal    
+      PARAMETER (ISC_start_cm_for_wal     = 335544566)
+      INTEGER*4 ISC_wal_ovflow_log_requi
+      PARAMETER (ISC_wal_ovflow_log_requi = 335544567)
+      INTEGER*4 ISC_text_subtype        
+      PARAMETER (ISC_text_subtype         = 335544568)
+      INTEGER*4 ISC_dsql_error          
+      PARAMETER (ISC_dsql_error           = 335544569)
+      INTEGER*4 ISC_dsql_command_err    
+      PARAMETER (ISC_dsql_command_err     = 335544570)
+      INTEGER*4 ISC_dsql_constant_err   
+      PARAMETER (ISC_dsql_constant_err    = 335544571)
+      INTEGER*4 ISC_dsql_cursor_err     
+      PARAMETER (ISC_dsql_cursor_err      = 335544572)
+      INTEGER*4 ISC_dsql_datatype_err   
+      PARAMETER (ISC_dsql_datatype_err    = 335544573)
+      INTEGER*4 ISC_dsql_decl_err       
+      PARAMETER (ISC_dsql_decl_err        = 335544574)
+      INTEGER*4 ISC_dsql_cursor_update_e
+      PARAMETER (ISC_dsql_cursor_update_e = 335544575)
+      INTEGER*4 ISC_dsql_cursor_open_err
+      PARAMETER (ISC_dsql_cursor_open_err = 335544576)
+      INTEGER*4 ISC_dsql_cursor_close_er
+      PARAMETER (ISC_dsql_cursor_close_er = 335544577)
+      INTEGER*4 ISC_dsql_field_err      
+      PARAMETER (ISC_dsql_field_err       = 335544578)
+      INTEGER*4 ISC_dsql_internal_err   
+      PARAMETER (ISC_dsql_internal_err    = 335544579)
+      INTEGER*4 ISC_dsql_relation_err   
+      PARAMETER (ISC_dsql_relation_err    = 335544580)
+      INTEGER*4 ISC_dsql_procedure_err  
+      PARAMETER (ISC_dsql_procedure_err   = 335544581)
+      INTEGER*4 ISC_dsql_request_err    
+      PARAMETER (ISC_dsql_request_err     = 335544582)
+      INTEGER*4 ISC_dsql_sqlda_err      
+      PARAMETER (ISC_dsql_sqlda_err       = 335544583)
+      INTEGER*4 ISC_dsql_var_count_err  
+      PARAMETER (ISC_dsql_var_count_err   = 335544584)
+      INTEGER*4 ISC_dsql_stmt_handle    
+      PARAMETER (ISC_dsql_stmt_handle     = 335544585)
+      INTEGER*4 ISC_dsql_function_err   
+      PARAMETER (ISC_dsql_function_err    = 335544586)
+      INTEGER*4 ISC_dsql_blob_err       
+      PARAMETER (ISC_dsql_blob_err        = 335544587)
+      INTEGER*4 ISC_collation_not_found 
+      PARAMETER (ISC_collation_not_found  = 335544588)
+      INTEGER*4 ISC_collation_not_for_ch
+      PARAMETER (ISC_collation_not_for_ch = 335544589)
+      INTEGER*4 ISC_dsql_dup_option     
+      PARAMETER (ISC_dsql_dup_option      = 335544590)
+      INTEGER*4 ISC_dsql_tran_err       
+      PARAMETER (ISC_dsql_tran_err        = 335544591)
+      INTEGER*4 ISC_dsql_invalid_array  
+      PARAMETER (ISC_dsql_invalid_array   = 335544592)
+      INTEGER*4 ISC_dsql_max_arr_dim_exc
+      PARAMETER (ISC_dsql_max_arr_dim_exc = 335544593)
+      INTEGER*4 ISC_dsql_arr_range_error
+      PARAMETER (ISC_dsql_arr_range_error = 335544594)
+      INTEGER*4 ISC_dsql_trigger_err    
+      PARAMETER (ISC_dsql_trigger_err     = 335544595)
+      INTEGER*4 ISC_dsql_subselect_err  
+      PARAMETER (ISC_dsql_subselect_err   = 335544596)
+      INTEGER*4 ISC_dsql_crdb_prepare_er
+      PARAMETER (ISC_dsql_crdb_prepare_er = 335544597)
+      INTEGER*4 ISC_specify_field_err   
+      PARAMETER (ISC_specify_field_err    = 335544598)
+      INTEGER*4 ISC_num_field_err       
+      PARAMETER (ISC_num_field_err        = 335544599)
+      INTEGER*4 ISC_col_name_err        
+      PARAMETER (ISC_col_name_err         = 335544600)
+      INTEGER*4 ISC_where_err           
+      PARAMETER (ISC_where_err            = 335544601)
+      INTEGER*4 ISC_table_view_err      
+      PARAMETER (ISC_table_view_err       = 335544602)
+      INTEGER*4 ISC_distinct_err        
+      PARAMETER (ISC_distinct_err         = 335544603)
+      INTEGER*4 ISC_key_field_count_err 
+      PARAMETER (ISC_key_field_count_err  = 335544604)
+      INTEGER*4 ISC_subquery_err        
+      PARAMETER (ISC_subquery_err         = 335544605)
+      INTEGER*4 ISC_expression_eval_err 
+      PARAMETER (ISC_expression_eval_err  = 335544606)
+      INTEGER*4 ISC_node_err            
+      PARAMETER (ISC_node_err             = 335544607)
+      INTEGER*4 ISC_command_end_err     
+      PARAMETER (ISC_command_end_err      = 335544608)
+      INTEGER*4 ISC_index_name          
+      PARAMETER (ISC_index_name           = 335544609)
+      INTEGER*4 ISC_exception_name      
+      PARAMETER (ISC_exception_name       = 335544610)
+      INTEGER*4 ISC_field_name          
+      PARAMETER (ISC_field_name           = 335544611)
+      INTEGER*4 ISC_token_err           
+      PARAMETER (ISC_token_err            = 335544612)
+      INTEGER*4 ISC_union_err           
+      PARAMETER (ISC_union_err            = 335544613)
+      INTEGER*4 ISC_dsql_construct_err  
+      PARAMETER (ISC_dsql_construct_err   = 335544614)
+      INTEGER*4 ISC_field_aggregate_err 
+      PARAMETER (ISC_field_aggregate_err  = 335544615)
+      INTEGER*4 ISC_field_ref_err       
+      PARAMETER (ISC_field_ref_err        = 335544616)
+      INTEGER*4 ISC_order_by_err        
+      PARAMETER (ISC_order_by_err         = 335544617)
+      INTEGER*4 ISC_return_mode_err     
+      PARAMETER (ISC_return_mode_err      = 335544618)
+      INTEGER*4 ISC_extern_func_err     
+      PARAMETER (ISC_extern_func_err      = 335544619)
+      INTEGER*4 ISC_alias_conflict_err  
+      PARAMETER (ISC_alias_conflict_err   = 335544620)
+      INTEGER*4 ISC_procedure_conflict_e
+      PARAMETER (ISC_procedure_conflict_e = 335544621)
+      INTEGER*4 ISC_relation_conflict_er
+      PARAMETER (ISC_relation_conflict_er = 335544622)
+      INTEGER*4 ISC_dsql_domain_err     
+      PARAMETER (ISC_dsql_domain_err      = 335544623)
+      INTEGER*4 ISC_idx_seg_err         
+      PARAMETER (ISC_idx_seg_err          = 335544624)
+      INTEGER*4 ISC_node_name_err       
+      PARAMETER (ISC_node_name_err        = 335544625)
+      INTEGER*4 ISC_table_name          
+      PARAMETER (ISC_table_name           = 335544626)
+      INTEGER*4 ISC_proc_name           
+      PARAMETER (ISC_proc_name            = 335544627)
+      INTEGER*4 ISC_idx_create_err      
+      PARAMETER (ISC_idx_create_err       = 335544628)
+      INTEGER*4 ISC_wal_shadow_err      
+      PARAMETER (ISC_wal_shadow_err       = 335544629)
+      INTEGER*4 ISC_dependency          
+      PARAMETER (ISC_dependency           = 335544630)
+      INTEGER*4 ISC_idx_key_err         
+      PARAMETER (ISC_idx_key_err          = 335544631)
+      INTEGER*4 ISC_dsql_file_length_err
+      PARAMETER (ISC_dsql_file_length_err = 335544632)
+      INTEGER*4 ISC_dsql_shadow_number_e
+      PARAMETER (ISC_dsql_shadow_number_e = 335544633)
+      INTEGER*4 ISC_dsql_token_unk_err  
+      PARAMETER (ISC_dsql_token_unk_err   = 335544634)
+      INTEGER*4 ISC_dsql_no_relation_ali
+      PARAMETER (ISC_dsql_no_relation_ali = 335544635)
+      INTEGER*4 ISC_indexname           
+      PARAMETER (ISC_indexname            = 335544636)
+      INTEGER*4 ISC_no_stream_plan      
+      PARAMETER (ISC_no_stream_plan       = 335544637)
+      INTEGER*4 ISC_stream_twice        
+      PARAMETER (ISC_stream_twice         = 335544638)
+      INTEGER*4 ISC_stream_not_found    
+      PARAMETER (ISC_stream_not_found     = 335544639)
+      INTEGER*4 ISC_collation_requires_t
+      PARAMETER (ISC_collation_requires_t = 335544640)
+      INTEGER*4 ISC_dsql_domain_not_foun
+      PARAMETER (ISC_dsql_domain_not_foun = 335544641)
+      INTEGER*4 ISC_index_unused        
+      PARAMETER (ISC_index_unused         = 335544642)
+      INTEGER*4 ISC_dsql_self_join      
+      PARAMETER (ISC_dsql_self_join       = 335544643)
+      INTEGER*4 ISC_stream_bof          
+      PARAMETER (ISC_stream_bof           = 335544644)
+      INTEGER*4 ISC_stream_crack        
+      PARAMETER (ISC_stream_crack         = 335544645)
+      INTEGER*4 ISC_db_or_file_exists   
+      PARAMETER (ISC_db_or_file_exists    = 335544646)
+      INTEGER*4 ISC_invalid_operator    
+      PARAMETER (ISC_invalid_operator     = 335544647)
+      INTEGER*4 ISC_conn_lost           
+      PARAMETER (ISC_conn_lost            = 335544648)
+      INTEGER*4 ISC_bad_checksum        
+      PARAMETER (ISC_bad_checksum         = 335544649)
+      INTEGER*4 ISC_page_type_err       
+      PARAMETER (ISC_page_type_err        = 335544650)
+      INTEGER*4 ISC_ext_readonly_err    
+      PARAMETER (ISC_ext_readonly_err     = 335544651)
+      INTEGER*4 ISC_sing_select_err     
+      PARAMETER (ISC_sing_select_err      = 335544652)
+      INTEGER*4 ISC_psw_attach          
+      PARAMETER (ISC_psw_attach           = 335544653)
+      INTEGER*4 ISC_psw_start_trans     
+      PARAMETER (ISC_psw_start_trans      = 335544654)
+      INTEGER*4 ISC_invalid_direction   
+      PARAMETER (ISC_invalid_direction    = 335544655)
+      INTEGER*4 ISC_dsql_var_conflict   
+      PARAMETER (ISC_dsql_var_conflict    = 335544656)
+      INTEGER*4 ISC_dsql_no_blob_array  
+      PARAMETER (ISC_dsql_no_blob_array   = 335544657)
+      INTEGER*4 ISC_dsql_base_table     
+      PARAMETER (ISC_dsql_base_table      = 335544658)
+      INTEGER*4 ISC_duplicate_base_table
+      PARAMETER (ISC_duplicate_base_table = 335544659)
+      INTEGER*4 ISC_view_alias          
+      PARAMETER (ISC_view_alias           = 335544660)
+      INTEGER*4 ISC_index_root_page_full
+      PARAMETER (ISC_index_root_page_full = 335544661)
+      INTEGER*4 ISC_dsql_blob_type_unkno
+      PARAMETER (ISC_dsql_blob_type_unkno = 335544662)
+      INTEGER*4 ISC_req_max_clones_excee
+      PARAMETER (ISC_req_max_clones_excee = 335544663)
+      INTEGER*4 ISC_dsql_duplicate_spec 
+      PARAMETER (ISC_dsql_duplicate_spec  = 335544664)
+      INTEGER*4 ISC_unique_key_violation
+      PARAMETER (ISC_unique_key_violation = 335544665)
+      INTEGER*4 ISC_srvr_version_too_old
+      PARAMETER (ISC_srvr_version_too_old = 335544666)
+      INTEGER*4 ISC_drdb_completed_with_
+      PARAMETER (ISC_drdb_completed_with_ = 335544667)
+      INTEGER*4 ISC_dsql_procedure_use_e
+      PARAMETER (ISC_dsql_procedure_use_e = 335544668)
+      INTEGER*4 ISC_dsql_count_mismatch 
+      PARAMETER (ISC_dsql_count_mismatch  = 335544669)
+      INTEGER*4 ISC_blob_idx_err        
+      PARAMETER (ISC_blob_idx_err         = 335544670)
+      INTEGER*4 ISC_array_idx_err       
+      PARAMETER (ISC_array_idx_err        = 335544671)
+      INTEGER*4 ISC_key_field_err       
+      PARAMETER (ISC_key_field_err        = 335544672)
+      INTEGER*4 ISC_no_delete           
+      PARAMETER (ISC_no_delete            = 335544673)
+      INTEGER*4 ISC_del_last_field      
+      PARAMETER (ISC_del_last_field       = 335544674)
+      INTEGER*4 ISC_sort_err            
+      PARAMETER (ISC_sort_err             = 335544675)
+      INTEGER*4 ISC_sort_mem_err        
+      PARAMETER (ISC_sort_mem_err         = 335544676)
+      INTEGER*4 ISC_version_err         
+      PARAMETER (ISC_version_err          = 335544677)
+      INTEGER*4 ISC_inval_key_posn      
+      PARAMETER (ISC_inval_key_posn       = 335544678)
+      INTEGER*4 ISC_no_segments_err     
+      PARAMETER (ISC_no_segments_err      = 335544679)
+      INTEGER*4 ISC_crrp_data_err       
+      PARAMETER (ISC_crrp_data_err        = 335544680)
+      INTEGER*4 ISC_rec_size_err        
+      PARAMETER (ISC_rec_size_err         = 335544681)
+      INTEGER*4 ISC_dsql_field_ref      
+      PARAMETER (ISC_dsql_field_ref       = 335544682)
+      INTEGER*4 ISC_req_depth_exceeded  
+      PARAMETER (ISC_req_depth_exceeded   = 335544683)
+      INTEGER*4 ISC_no_field_access     
+      PARAMETER (ISC_no_field_access      = 335544684)
+      INTEGER*4 ISC_no_dbkey            
+      PARAMETER (ISC_no_dbkey             = 335544685)
+      INTEGER*4 ISC_jrn_format_err      
+      PARAMETER (ISC_jrn_format_err       = 335544686)
+      INTEGER*4 ISC_jrn_file_full       
+      PARAMETER (ISC_jrn_file_full        = 335544687)
+      INTEGER*4 ISC_dsql_open_cursor_req
+      PARAMETER (ISC_dsql_open_cursor_req = 335544688)
+      INTEGER*4 ISC_ib_error            
+      PARAMETER (ISC_ib_error             = 335544689)
+      INTEGER*4 ISC_cache_redef         
+      PARAMETER (ISC_cache_redef          = 335544690)
+      INTEGER*4 ISC_cache_too_small     
+      PARAMETER (ISC_cache_too_small      = 335544691)
+      INTEGER*4 ISC_log_redef           
+      PARAMETER (ISC_log_redef            = 335544692)
+      INTEGER*4 ISC_log_too_small       
+      PARAMETER (ISC_log_too_small        = 335544693)
+      INTEGER*4 ISC_partition_too_small 
+      PARAMETER (ISC_partition_too_small  = 335544694)
+      INTEGER*4 ISC_partition_not_supp  
+      PARAMETER (ISC_partition_not_supp   = 335544695)
+      INTEGER*4 ISC_log_length_spec     
+      PARAMETER (ISC_log_length_spec      = 335544696)
+      INTEGER*4 ISC_precision_err       
+      PARAMETER (ISC_precision_err        = 335544697)
+      INTEGER*4 ISC_scale_nogt          
+      PARAMETER (ISC_scale_nogt           = 335544698)
+      INTEGER*4 ISC_expec_short         
+      PARAMETER (ISC_expec_short          = 335544699)
+      INTEGER*4 ISC_expec_long          
+      PARAMETER (ISC_expec_long           = 335544700)
+      INTEGER*4 ISC_expec_ushort        
+      PARAMETER (ISC_expec_ushort         = 335544701)
+      INTEGER*4 ISC_like_escape_invalid 
+      PARAMETER (ISC_like_escape_invalid  = 335544702)
+      INTEGER*4 ISC_svcnoexe            
+      PARAMETER (ISC_svcnoexe             = 335544703)
+      INTEGER*4 ISC_net_lookup_err      
+      PARAMETER (ISC_net_lookup_err       = 335544704)
+      INTEGER*4 ISC_service_unknown     
+      PARAMETER (ISC_service_unknown      = 335544705)
+      INTEGER*4 ISC_host_unknown        
+      PARAMETER (ISC_host_unknown         = 335544706)
+      INTEGER*4 ISC_grant_nopriv_on_base
+      PARAMETER (ISC_grant_nopriv_on_base = 335544707)
+      INTEGER*4 ISC_dyn_fld_ambiguous   
+      PARAMETER (ISC_dyn_fld_ambiguous    = 335544708)
+      INTEGER*4 ISC_dsql_agg_ref_err    
+      PARAMETER (ISC_dsql_agg_ref_err     = 335544709)
+      INTEGER*4 ISC_complex_view        
+      PARAMETER (ISC_complex_view         = 335544710)
+      INTEGER*4 ISC_unprepared_stmt     
+      PARAMETER (ISC_unprepared_stmt      = 335544711)
+      INTEGER*4 ISC_expec_positive      
+      PARAMETER (ISC_expec_positive       = 335544712)
+      INTEGER*4 ISC_dsql_sqlda_value_err
+      PARAMETER (ISC_dsql_sqlda_value_err = 335544713)
+      INTEGER*4 ISC_invalid_array_id    
+      PARAMETER (ISC_invalid_array_id     = 335544714)
+      INTEGER*4 ISC_extfile_uns_op      
+      PARAMETER (ISC_extfile_uns_op       = 335544715)
+      INTEGER*4 ISC_svc_in_use          
+      PARAMETER (ISC_svc_in_use           = 335544716)
+      INTEGER*4 ISC_err_stack_limit     
+      PARAMETER (ISC_err_stack_limit      = 335544717)
+      INTEGER*4 ISC_invalid_key         
+      PARAMETER (ISC_invalid_key          = 335544718)
+      INTEGER*4 ISC_net_init_error      
+      PARAMETER (ISC_net_init_error       = 335544719)
+      INTEGER*4 ISC_loadlib_failure     
+      PARAMETER (ISC_loadlib_failure      = 335544720)
+      INTEGER*4 ISC_network_error       
+      PARAMETER (ISC_network_error        = 335544721)
+      INTEGER*4 ISC_net_connect_err     
+      PARAMETER (ISC_net_connect_err      = 335544722)
+      INTEGER*4 ISC_net_connect_listen_e
+      PARAMETER (ISC_net_connect_listen_e = 335544723)
+      INTEGER*4 ISC_net_event_connect_er
+      PARAMETER (ISC_net_event_connect_er = 335544724)
+      INTEGER*4 ISC_net_event_listen_err
+      PARAMETER (ISC_net_event_listen_err = 335544725)
+      INTEGER*4 ISC_net_read_err        
+      PARAMETER (ISC_net_read_err         = 335544726)
+      INTEGER*4 ISC_net_write_err       
+      PARAMETER (ISC_net_write_err        = 335544727)
+      INTEGER*4 ISC_integ_index_deactiva
+      PARAMETER (ISC_integ_index_deactiva = 335544728)
+      INTEGER*4 ISC_integ_deactivate_pri
+      PARAMETER (ISC_integ_deactivate_pri = 335544729)
+      INTEGER*4 ISC_cse_not_supported   
+      PARAMETER (ISC_cse_not_supported    = 335544730)
+
+      INTEGER*4 GDS__INT_ARG
+      INTEGER*2 GDS__INT2
+      INTEGER*4 ISC_INT_ARG
+      INTEGER*2 ISC_INT2
+
+      GDS__INT2 (GDS__INT_ARG) = GDS__INT_ARG
+      ISC_INT2 (ISC_INT_ARG) = ISC_INT_ARG
+
diff --git a/src/jrd/gds_proto.h b/src/jrd/gds_proto.h
new file mode 100644
index 0000000000..e4070fff88
--- /dev/null
+++ b/src/jrd/gds_proto.h
@@ -0,0 +1,148 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		gds_proto.h
+ *	DESCRIPTION:	Prototype header file for gds.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_GDS_PROTO_H
+#define JRD_GDS_PROTO_H
+
+#ifndef GDS_VAL
+#define GDS_VAL(val)	(val)
+#define GDS_REF(val)	(&val)
+#endif
+
+#ifndef IB_PREFIX_TYPE
+#define IB_PREFIX_TYPE 0
+#define IB_PREFIX_LOCK_TYPE 1
+#define IB_PREFIX_MSG_TYPE 2
+#endif
+
+#ifndef INCLUDE_FB_TYPES_H
+#include "../include/fb_types.h"
+#endif
+
+#include "../jrd/fil.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+#ifdef DEBUG_GDS_ALLOC
+
+#define gds__alloc(s)		gds__alloc_debug ((s),(TEXT *)__FILE__,(ULONG)__LINE__)
+extern UCHAR *API_ROUTINE gds__alloc_debug(SLONG, TEXT *, ULONG);
+extern void API_ROUTINE gds_alloc_flag_unfreed(void *);
+extern void API_ROUTINE gds_alloc_report(ULONG, char *, int);
+
+#define	ALLOC_dont_report	(1L << 0)	/* Don't report this block */
+#define	ALLOC_silent		(1L << 1)	/* Don't report new leaks */
+#define	ALLOC_verbose		(1L << 2)	/* Report all leaks, even old */
+#define	ALLOC_mark_current	(1L << 3)	/* Mark all current leaks */
+#define ALLOC_check_each_call	(1L << 4)	/* Check memory integrity on each alloc/free call */
+#define ALLOC_dont_check	(1L << 5)	/* Stop checking integrity on each call */
+
+#else /* DEBUG_GDS_ALLOC */
+
+extern UCHAR *API_ROUTINE gds__alloc(SLONG);
+
+#endif /* DEBUG_GDS_ALLOC */
+
+#if !defined(__cplusplus)
+typedef GDS_QUAD GDS__QUAD;
+#endif
+
+extern STATUS API_ROUTINE gds__decode(STATUS, USHORT *, USHORT *);
+extern void API_ROUTINE isc_decode_date(GDS_QUAD *, void *);
+extern void API_ROUTINE isc_decode_sql_date(GDS_DATE *, void *);
+extern void API_ROUTINE isc_decode_sql_time(GDS_TIME *, void *);
+extern void API_ROUTINE isc_decode_timestamp(GDS_TIMESTAMP *, void *);
+extern STATUS API_ROUTINE gds__encode(STATUS, USHORT);
+extern void API_ROUTINE isc_encode_date(void *, GDS_QUAD *);
+extern void API_ROUTINE isc_encode_sql_date(void *, GDS_DATE *);
+extern void API_ROUTINE isc_encode_sql_time(void *, GDS_TIME *);
+extern void API_ROUTINE isc_encode_timestamp(void *, GDS_TIMESTAMP *);
+extern ULONG API_ROUTINE gds__free(void *);
+extern SLONG API_ROUTINE gds__interprete(char *, STATUS **);
+extern void API_ROUTINE gds__interprete_a(SCHAR *, SSHORT *, STATUS *,
+										  SSHORT *);
+extern void API_ROUTINE gds__log(TEXT *, ...);
+extern void API_ROUTINE gds__log_status(TEXT *, STATUS *);
+extern int API_ROUTINE gds__msg_close(void *);
+extern SSHORT API_ROUTINE gds__msg_format(void *, USHORT, USHORT, USHORT,
+										  TEXT *, TEXT *, TEXT *, TEXT *,
+										  TEXT *, TEXT *);
+extern SSHORT API_ROUTINE gds__msg_lookup(void *, USHORT, USHORT, USHORT,
+										  TEXT *, USHORT *);
+extern int API_ROUTINE gds__msg_open(void **, TEXT *);
+extern void API_ROUTINE gds__msg_put(void *, USHORT, USHORT, TEXT *, TEXT *,
+									 TEXT *, TEXT *, TEXT *);
+#ifdef NETWARE_386
+extern void API_ROUTINE gds__prefix(TEXT *, void *);
+extern void API_ROUTINE gds__prefix_lock(TEXT *, void *);
+#else
+extern void API_ROUTINE gds__prefix(TEXT *, TEXT *);
+extern void API_ROUTINE gds__prefix_lock(TEXT *, TEXT *);
+extern void API_ROUTINE gds__prefix_msg(TEXT *, TEXT *);
+#endif
+extern SLONG API_ROUTINE gds__get_prefix(SSHORT, TEXT *);
+extern STATUS API_ROUTINE gds__print_status(STATUS *);
+extern USHORT API_ROUTINE gds__parse_bpb(USHORT, UCHAR *, USHORT *, USHORT *);
+extern USHORT API_ROUTINE gds__parse_bpb2(USHORT, UCHAR *, USHORT *, USHORT *,
+										  USHORT *, USHORT *);
+extern SLONG API_ROUTINE gds__ftof(SCHAR *, USHORT GDS_VAL(length1), SCHAR *,
+								   USHORT GDS_VAL(length2));
+extern int API_ROUTINE gds__print_blr(UCHAR *, FPTR_VOID, SCHAR *, SSHORT);
+extern void API_ROUTINE gds__put_error(TEXT *);
+extern void API_ROUTINE gds__qtoq(void *, void *);
+extern void API_ROUTINE gds__register_cleanup(FPTR_VOID_PTR, void *);
+extern SLONG API_ROUTINE gds__sqlcode(STATUS *);
+extern void API_ROUTINE gds__sqlcode_s(STATUS *, ULONG *);
+extern UCHAR *API_ROUTINE gds__sys_alloc(SLONG);
+extern SLONG API_ROUTINE gds__sys_free(void *);
+extern void *API_ROUTINE gds__temp_file(BOOLEAN, TEXT *, TEXT *);
+extern void API_ROUTINE gds__unregister_cleanup(FPTR_VOID_PTR, void *);
+extern BOOLEAN API_ROUTINE gds__validate_lib_path(TEXT *, TEXT *, TEXT *,
+												  SLONG);
+extern SLONG API_ROUTINE gds__vax_integer(UCHAR *, SSHORT);
+extern void API_ROUTINE gds__vtof(SCHAR *, SCHAR *, USHORT);
+extern void API_ROUTINE gds__vtov(CONST SCHAR *, SCHAR *, SSHORT);
+extern void API_ROUTINE isc_print_sqlerror(SSHORT, STATUS *);
+extern void API_ROUTINE isc_sql_interprete(SSHORT, TEXT *, SSHORT);
+extern void *gds__tmp_file2(BOOLEAN, TEXT *, TEXT *, TEXT *);
+extern SINT64 API_ROUTINE isc_portable_integer(UCHAR *, SSHORT);
+extern void gds__cleanup(void);
+
+#ifdef NETWARE_386
+extern SCHAR *mktemp(SCHAR *);
+#endif
+
+#ifdef VMS
+extern int unlink(SCHAR *);
+#endif
+
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+
+#endif /* JRD_GDS_PROTO_H */
diff --git a/src/jrd/gds_sun.f b/src/jrd/gds_sun.f
new file mode 100644
index 0000000000..d78ab76044
--- /dev/null
+++ b/src/jrd/gds_sun.f
@@ -0,0 +1,3576 @@
+C  The contents of this file are subject to the Interbase Public
+C  License Version 1.0 (the "License"); you may not use this file
+C  except in compliance with the License. You may obtain a copy
+C  of the License at http://www.Inprise.com/IPL.html
+C
+C  Software distributed under the License is distributed on an
+C  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+C  or implied. See the License for the specific language governing
+C  rights and limitations under the License.
+C
+C  The Original Code was created by Inprise Corporation
+C  and its predecessors. Portions created by Inprise Corporation are
+C  Copyright (C) Inprise Corporation.
+C
+C  All Rights Reserved.
+C  Contributor(s): ______________________________________.
+C
+C         PROGRAM:        Preprocessor
+C         MODULE:         gds.ftn
+C         DESCRIPTION:    GDS constants, procedures, etc.
+C 
+
+      INTEGER*2 INT2
+
+C     PROCEDURE GDS__ATTACH_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  FILE_NAME,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       DPB_LENGTH,     { INPUT }
+C        CHARACTER* (*)  DPB             { INPUT }
+C        )
+
+      INTEGER*4 ISC_BADDRESS 
+C     INTEGER*4 FUNCTION ISC_BADDRESS (
+C        INTEGER*4       HANDLE          { INPUT }
+C        )
+
+C     PROCEDURE GDS__CANCEL_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     { INPUT }
+C        )
+
+C     PROCEDURE GDS__CANCEL_EVENTS (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       ID              { INPUT }
+C        )
+
+C     PROCEDURE GDS__CLOSE_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     { INPUT }
+C        )
+
+C     PROCEDURE GDS__COMMIT_RETAINING (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE      { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE      { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__COMPILE_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR             { INPUT }
+C        )
+
+C     PROCEDURE GDS__COMPILE_REQUEST2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR             { INPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2)      { OUTPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_BLOB2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2),      { OUTPUT }
+C        CHARACTER* (*)  BPB             { INPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  FILE_NAME,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       DPB_LENGTH,     { INPUT }
+C        CHARACTER* (*)  DPB             { INPUT }
+C        )
+
+C     PROCEDURE GDS__DETACH_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE       { INPUT / OUTPUT }
+C        )
+
+      INTEGER*2 GDS__EVENT_BLOCK_A
+C     PROCEDURE GDS__EVENT_BLOCK_A (
+C        CHARACTER* (*)  EVENTS,         { INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          { INPUT/OUTPUT }
+C        INTEGER*2       COUNT,          { INPUT }
+C        CHARACTER*31    EVENT_NAMES     { INPUT/OUTPUT }
+C        )
+
+C     PROCEDURE GDS__EVENT_WAIT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  EVENTS,         { INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          { INPUT/OUTPUT }
+C        )
+
+      INTEGER*4 GDS__GET_SEGMENT 
+C     INTEGER*4 FUNCTION GDS__GET_SEGMENT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       LENGTH,         { OUTPUT }
+C        INTEGER*2       BUFFER_LENGTH,  { INPUT }
+C        CHARACTER* (*)  BUFFER          { INPUT }
+C        )
+
+      INTEGER*4 GDS__GET_SLICE 
+C     INTEGER*4 FUNCTION GDS__GET_SLICE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       SDL_LENGTH,     { INPUT }
+C        CHARACTER* (*)  SDL,            { INPUT }
+C        INTEGER*2       PARAM_LENGTH,   { INPUT }
+C        CHARACTER* (*)  PARAM,          { INPUT }
+C        INTEGER*4       SLICE_LENGTH,   { INPUT }
+C        CHARACTER* (*)  SLICE,          { INPUT }
+C        INTEGER*4       RETURN_LENGTH   { INPUT }
+C        )
+
+C     PROCEDURE GDS__OPEN_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2)     { INPUT }
+C        )
+
+C     PROCEDURE GDS__OPEN_BLOB2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2),    { INPUT }
+C        CHARACTER* (*)  BPB             { INPUT }
+C        )
+
+C      PROCEDURE GDS__COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT / OUTPUT }
+C        )
+
+      INTEGER*4 GDS__PUT_SEGMENT 
+C     INTEGER*4 FUNCTION GDS__PUT_SEGMENT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  BUFFER,         { INPUT }
+C        )
+
+      INTEGER*4 GDS__PUT_SLICE
+C     INTEGER*4 FUNCTION GDS__PUT_SLICE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       SDL_LENGTH,     { INPUT }
+C        CHARACTER* (*)  SDL,            { INPUT }
+C        INTEGER*2       PARAM_LENGTH,   { INPUT }
+C        CHARACTER* (*)  PARAM,          { INPUT }
+C        INTEGER*4       SLICE_LENGTH,   { INPUT }
+C        CHARACTER* (*)  SLICE           { INPUT }
+C        )
+
+C     PROCEDURE GDS__QUE_EVENTS (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       ID,             { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  EVENTS,         { INPUT/OUTPUT }
+C        INTEGER*4       AST,            { INPUT }
+C        INTEGER*4       ARG             { INPUT }
+C        )
+
+C     PROCEDURE GDS__RECEIVE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE GDS__RELEASE_REQUEST (
+C        INTEGER*4       STAT(20),        { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE   { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__ROLLBACK_TRANSACTION (
+C        INTEGER*4       STAT(20),         { OUTPUT }
+C        INTEGER*4       TRA_HANDLE        { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__SEND (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE GDS__SET_DEBUG (
+C        INTEGER*4       DEBUG_VAL       { INPUT }
+C        )
+
+C     PROCEDURE GDS__START_AND_SEND (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE GDS__START_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT  }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+   
+C     PROCEDURE GDS__START_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT / OUTPUT }
+C        INTEGER*2       TRA_COUNT,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       TPB_LENGTH      { INPUT }
+C        CHARACTER* (*)  TPB             { INPUT }
+C        )
+
+C     PROCEDURE GDS__UNWIND_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE gds__ftof (
+C        CHARACTER* (*)  STRING1,        { INPUT }
+C        INTEGER*2       LENGTH1,        { INPUT }
+C        CHARACTER* (*)  STRING2,        { INPUT }
+C        INTEGER*2       LENGTH2         { INPUT }
+C        )
+
+C     PROCEDURE gds__print_status (
+C        INTEGER*4       STAT(20)        { INPUT }
+C        )
+ 
+C     INTEGER FUNCTION gds__sqlcode (
+C        INTEGER*4       STAT(20)        { INPUT }
+C        )
+ 
+C     procedure gds__close (
+C        out     stat            : gds__status_vector; 
+C        in      cursor_name     : UNIV gds__string
+C        ); extern;
+
+C     procedure gds__declare (
+C        out       stat               : gds__status_vector; 
+C        in        statement_name     : UNIV gds__string;
+C        in        cursor_name        : UNIV gds__string
+C        ); extern;
+
+C     procedure gds__describe (
+C        out       stat               : gds__status_vector; 
+C        in        statement_name     : UNIV gds__string;
+C        in out    descriptor         : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__execute (
+C        out       stat                : gds__status_vector; 
+C        in        trans_handle        : gds__handle;
+C        in        statement_name      : UNIV gds__string;
+C        in out    descriptor          : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__execute_immediate (
+C        out       stat               : gds__status_vector; 
+C        in        db_handle          : gds__handle;
+C        in        trans_handle       : gds__handle;
+C        in        string_length      : integer;
+C        in        string             : UNIV gds__string
+C        ); extern;
+
+      INTEGER*4 GDS__FETCH
+C     function gds__fetch (
+C        out       stat              : gds__status_vector; 
+C        in        cursor_name       : UNIV gds__string;
+C        in out        descriptor    : UNIV sqlda
+C        ) : integer32; extern;
+
+C     procedure gds__open (
+C        out       stat              : gds__status_vector; 
+C        in        trans_handle      : gds__handle;
+C        in        cursor_name       : UNIV gds__string;
+C        in out    descriptor        : UNIV sqlda
+C        ); extern;
+
+C     procedure gds__prepare (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        statement_name   : UNIV gds__string;
+C        in        string_length    : integer;
+C        in        string           : UNIV gds__string;
+C        in out    descriptor       : UNIV sqlda
+C        ); extern;
+
+C     procedure pyxis__compile_map (
+C        out       stat                : gds__status_vector; 
+C        in        form_handle         : gds__handle;
+C        out       map_handle          : gds__handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__compile_sub_map (
+C        out       stat                : gds__status_vector; 
+C        in        form_handle         : gds__handle;
+C        out       map_handle          : gds__handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__create_window (
+C        in out    window_handle      : gds__handle;
+C        in        name_length        : integer16;
+C        in        file_name          : UNIV gds__string; 
+C        in out    width              : integer16;
+C        in out    height             : integer16
+C        ); extern;
+
+C     procedure pyxis__delete_window (
+C        in out        window_handle        : gds__handle
+C        ); extern;
+
+C     procedure pyxis__drive_form (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in out    window_handle    : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        input            : UNIV gds__string;
+C        in        output           : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__fetch (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        output           : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__insert (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in        map_handle       : gds__handle;
+C        in        input            : UNIV gds__string
+C        ); extern;
+
+C     procedure pyxis__load_form (
+C        out       stat             : gds__status_vector; 
+C        in        db_handle        : gds__handle;
+C        in        trans_handle     : gds__handle;
+C        in out    form_handle      : gds__handle;
+C        in        name_length      : integer16;
+C        in        form_name        : UNIV gds__string 
+C        ); extern;
+
+      INTEGER*2 PYXIS__MENU
+C     function pyxis__menu (
+C        in out    window_handle    : gds__handle;
+C        in out    menu_handle      : gds__handle;
+C        in        length           : integer16;
+C        in        menu             : UNIV gds__string
+C        ) : integer16; extern;
+
+C     procedure pyxis__pop_window (
+C        in        window_handle    : gds__handle
+C        ); extern;
+
+C     procedure pyxis__reset_form (
+C        out       stat            : gds__status_vector; 
+C        in        window_handle   : gds__handle
+C        ); extern;
+
+C     procedure pyxis__drive_menu (
+C        in out    window_handle     : gds__handle;
+C        in out    menu_handle       : gds__handle;
+C        in        blr_length        : integer16;
+C        in        blr_source        : UNIV gds__string;
+C        in        title_length      : integer16;
+C        in        title             : UNIV gds__string;
+C        out       terminator        : integer16;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV gds__string;
+C        out       entree_value      : integer32
+C        ); extern;
+
+C     procedure pyxis__get_entree (
+C        in        menu_handle       : gds__handle;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV gds__string;
+C        out       entree_value      : integer32;
+C        out       entree_end        : integer16
+C        ); extern;
+
+C     procedure pyxis__initialize_menu (
+C        in out        menu_handle   : gds__handle
+C        ); extern;
+
+C     procedure pyxis__put_entree (
+C        in        menu_handle        : gds__handle;
+C        in        entree_length      : integer16;
+C        in        entree_text        : UNIV gds__string;
+C        in        entree_value       : integer32
+C        ); extern;
+
+C     PROCEDURE isc_exec_procedure (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  PROC_NAME,      { INPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR,             { INPUT }
+C        INTEGER*2       IN_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  IN_MESSAGE,        { INPUT }
+C        INTEGER*2       OUT_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  OUT_MESSAGE        { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE ISC_ATTACH_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  FILE_NAME,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       DPB_LENGTH,     { INPUT }
+C        CHARACTER* (*)  DPB             { INPUT }
+C        )
+
+C     INTEGER*4 FUNCTION ISC_BADDRESS (
+C        INTEGER*4       HANDLE          ( INPUT )
+C        )
+
+C     PROCEDURE ISC_CANCEL_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     { INPUT }
+C        )
+
+C     PROCEDURE ISC_CANCEL_EVENTS (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       ID              { INPUT }
+C        )
+
+C     PROCEDURE ISC_CLOSE_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     { INPUT }
+C        )
+
+C     PROCEDURE ISC_COMMIT_RETAINING (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE      { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE ISC_COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE      { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE ISC_COMPILE_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR             { INPUT }
+C        )
+
+C     PROCEDURE ISC_COMPILE_REQUEST2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR             { INPUT }
+C        )
+
+C     PROCEDURE ISC_CREATE_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2)      { OUTPUT }
+C        )
+
+C     PROCEDURE ISC_CREATE_BLOB2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2),      { OUTPUT }
+C        CHARACTER* (*)  BPB             { INPUT }
+C        )
+
+C     PROCEDURE ISC_CREATE_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  FILE_NAME,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       DPB_LENGTH,     { INPUT }
+C        CHARACTER* (*)  DPB             { INPUT }
+C        )
+
+C     PROCEDURE ISC_DETACH_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE       { INPUT / OUTPUT }
+C        )
+
+      INTEGER*2 ISC_EVENT_BLOCK_A
+C     PROCEDURE ISC_EVENT_BLOCK_A (
+C        CHARACTER* (*)  EVENTS,         { INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          { INPUT/OUTPUT }
+C        INTEGER*2       COUNT,          { INPUT }
+C        CHARACTER*31    EVENT_NAMES     { INPUT/OUTPUT }
+C        )
+
+C     PROCEDURE ISC_EVENT_WAIT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  EVENTS,         { INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          { INPUT/OUTPUT }
+C        )
+
+      INTEGER*4 ISC_GET_SEGMENT 
+C     INTEGER*4 FUNCTION ISC_GET_SEGMENT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       LENGTH,         { OUTPUT }
+C        INTEGER*2       BUFFER_LENGTH,  { INPUT }
+C        CHARACTER* (*)  BUFFER          { INPUT }
+C        )
+
+C      INTEGER*4 ISC_GET_SLICE 
+C     INTEGER*4 FUNCTION ISC_GET_SLICE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       SDL_LENGTH,     { INPUT }
+C        CHARACTER* (*)  SDL,            { INPUT }
+C        INTEGER*2       PARAM_LENGTH,   { INPUT }
+C        CHARACTER* (*)  PARAM,          { INPUT }
+C        INTEGER*4       SLICE_LENGTH,   { INPUT }
+C        CHARACTER* (*)  SLICE,          { INPUT }
+C        INTEGER*4       RETURN_LENGTH   { INPUT }
+C        )
+
+C     PROCEDURE ISC_OPEN_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2)     { INPUT }
+C        )
+
+C     PROCEDURE ISC_OPEN_BLOB2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2),    { INPUT }
+C        CHARACTER* (*)  BPB             { INPUT }
+C        )
+
+C      PROCEDURE ISC_COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT / OUTPUT }
+C        )
+
+      INTEGER*4 ISC_PUT_SEGMENT 
+C     INTEGER*4 FUNCTION ISC_PUT_SEGMENT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  BUFFER,         { INPUT }
+C        )
+
+C      INTEGER*4 ISC_PUT_SLICE
+C     INTEGER*4 FUNCTION ISC_PUT_SLICE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       SDL_LENGTH,     { INPUT }
+C        CHARACTER* (*)  SDL,            { INPUT }
+C        INTEGER*2       PARAM_LENGTH,   { INPUT }
+C        CHARACTER* (*)  PARAM,          { INPUT }
+C        INTEGER*4       SLICE_LENGTH,   { INPUT }
+C        CHARACTER* (*)  SLICE           { INPUT }
+C        )
+
+C     PROCEDURE ISC_QUE_EVENTS (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       ID,             { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  EVENTS,         { INPUT/OUTPUT }
+C        INTEGER*4       AST,            { INPUT }
+C        INTEGER*4       ARG             { INPUT }
+C        )
+
+C     PROCEDURE ISC_RECEIVE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE ISC_RELEASE_REQUEST (
+C        INTEGER*4       STAT(20),        { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE   { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE ISC_ROLLBACK_TRANSACTION (
+C        INTEGER*4       STAT(20),         { OUTPUT }
+C        INTEGER*4       TRA_HANDLE        { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE ISC_SEND (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE ISC_SET_DEBUG (
+C        INTEGER*4       DEBUG_VAL       { INPUT }
+C        )
+
+C     PROCEDURE ISC_START_AND_SEND (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE ISC_START_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT  }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+   
+C     PROCEDURE ISC_START_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT / OUTPUT }
+C        INTEGER*2       TRA_COUNT,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       TPB_LENGTH      { INPUT }
+C        CHARACTER* (*)  TPB             { INPUT }
+C        )
+
+C     PROCEDURE ISC_UNWIND_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE isc_ftof (
+C        CHARACTER* (*)  STRING1,        { INPUT }
+C        INTEGER*2       LENGTH1,        { INPUT }
+C        CHARACTER* (*)  STRING2,        { INPUT }
+C        INTEGER*2       LENGTH2         { INPUT }
+C        )
+
+C     PROCEDURE isc_print_status (
+C        INTEGER*4       STAT(20)        { INPUT }
+C        )
+ 
+C     INTEGER FUNCTION isc_sqlcode (
+C        INTEGER*4       STAT(20)        { INPUT }
+C        )
+ 
+C     procedure isc_close (
+C        out     stat            : isc_status_vector; 
+C        in      cursor_name     : UNIV isc_string
+C        ); extern;
+
+C     procedure isc_declare (
+C        out       stat               : isc_status_vector; 
+C        in        statement_name     : UNIV isc_string;
+C        in        cursor_name        : UNIV isc_string
+C        ); extern;
+
+C     procedure isc_describe (
+C        out       stat               : isc_status_vector; 
+C        in        statement_name     : UNIV isc_string;
+C        in out    descriptor         : UNIV sqlda
+C        ); extern;
+
+C     procedure isc_execute (
+C        out       stat                : isc_status_vector; 
+C        in        trans_handle        : isc_handle;
+C        in        statement_name      : UNIV isc_string;
+C        in out    descriptor          : UNIV sqlda
+C        ); extern;
+
+C     procedure isc_execute_immediate (
+C        out       stat               : isc_status_vector; 
+C        in        db_handle          : isc_handle;
+C        in        trans_handle       : isc_handle;
+C        in        string_length      : integer;
+C        in        string             : UNIV isc_string
+C        ); extern;
+
+      INTEGER*4 ISC_FETCH
+C     function isc_fetch (
+C        out       stat              : isc_status_vector; 
+C        in        cursor_name       : UNIV isc_string;
+C        in out        descriptor    : UNIV sqlda
+C        ) : integer32; extern;
+
+C     procedure isc_open (
+C        out       stat              : isc_status_vector; 
+C        in        trans_handle      : isc_handle;
+C        in        cursor_name       : UNIV isc_string;
+C        in out    descriptor        : UNIV sqlda
+C        ); extern;
+
+C     procedure isc_prepare (
+C        out       stat             : isc_status_vector; 
+C        in        db_handle        : isc_handle;
+C        in        trans_handle     : isc_handle;
+C        in        statement_name   : UNIV isc_string;
+C        in        string_length    : integer;
+C        in        string           : UNIV isc_string;
+C        in out    descriptor       : UNIV sqlda
+C        ); extern;
+
+C     procedure pyxis__compile_map (
+C        out       stat                : isc_status_vector; 
+C        in        form_handle         : isc_handle;
+C        out       map_handle          : isc_handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV isc_string
+C        ); extern;
+
+C     procedure pyxis__compile_sub_map (
+C        out       stat                : isc_status_vector; 
+C        in        form_handle         : isc_handle;
+C        out       map_handle          : isc_handle;
+C        in        length              : integer16;
+C        in        map                 : UNIV isc_string
+C        ); extern;
+
+C     procedure pyxis__create_window (
+C        in out    window_handle      : isc_handle;
+C        in        name_length        : integer16;
+C        in        file_name          : UNIV isc_string; 
+C        in out    width              : integer16;
+C        in out    height             : integer16
+C        ); extern;
+
+C     procedure pyxis__delete_window (
+C        in out        window_handle        : isc_handle
+C        ); extern;
+
+C     procedure pyxis__drive_form (
+C        out       stat             : isc_status_vector; 
+C        in        db_handle        : isc_handle;
+C        in        trans_handle     : isc_handle;
+C        in out    window_handle    : isc_handle;
+C        in        map_handle       : isc_handle;
+C        in        input            : UNIV isc_string;
+C        in        output           : UNIV isc_string
+C        ); extern;
+
+C     procedure pyxis__fetch (
+C        out       stat             : isc_status_vector; 
+C        in        db_handle        : isc_handle;
+C        in        trans_handle     : isc_handle;
+C        in        map_handle       : isc_handle;
+C        in        output           : UNIV isc_string
+C        ); extern;
+
+C     procedure pyxis__insert (
+C        out       stat             : isc_status_vector; 
+C        in        db_handle        : isc_handle;
+C        in        trans_handle     : isc_handle;
+C        in        map_handle       : isc_handle;
+C        in        input            : UNIV isc_string
+C        ); extern;
+
+C     procedure pyxis__load_form (
+C        out       stat             : isc_status_vector; 
+C        in        db_handle        : isc_handle;
+C        in        trans_handle     : isc_handle;
+C        in out    form_handle      : isc_handle;
+C        in        name_length      : integer16;
+C        in        form_name        : UNIV isc_string 
+C        ); extern;
+
+C     function pyxis__menu (
+C        in out    window_handle    : isc_handle;
+C        in out    menu_handle      : isc_handle;
+C        in        length           : integer16;
+C        in        menu             : UNIV isc_string
+C        ) : integer16; extern;
+
+C     procedure pyxis__pop_window (
+C        in        window_handle    : isc_handle
+C        ); extern;
+
+C     procedure pyxis__reset_form (
+C        out       stat            : isc_status_vector; 
+C        in        window_handle   : isc_handle
+C        ); extern;
+
+C     procedure pyxis__drive_menu (
+C        in out    window_handle     : isc_handle;
+C        in out    menu_handle       : isc_handle;
+C        in        blr_length        : integer16;
+C        in        blr_source        : UNIV isc_string;
+C        in        title_length      : integer16;
+C        in        title             : UNIV isc_string;
+C        out       terminator        : integer16;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV isc_string;
+C        out       entree_value      : integer32
+C        ); extern;
+
+C     procedure pyxis__get_entree (
+C        in        menu_handle       : isc_handle;
+C        out       entree_length     : integer16;
+C        out       entree_text       : UNIV isc_string;
+C        out       entree_value      : integer32;
+C        out       entree_end        : integer16
+C        ); extern;
+
+C     procedure pyxis__initialize_menu (
+C        in out        menu_handle   : isc_handle
+C        ); extern;
+
+C     procedure pyxis__put_entree (
+C        in        menu_handle        : isc_handle;
+C        in        entree_length      : integer16;
+C        in        entree_text        : UNIV isc_string;
+C        in        entree_value       : integer32
+C        ); extern;
+
+C     PROCEDURE isc_exec_procedure (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  PROC_NAME,      { INPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR,             { INPUT }
+C        INTEGER*2       IN_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  IN_MESSAGE,        { INPUT }
+C        INTEGER*2       OUT_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  OUT_MESSAGE        { INPUT / OUTPUT }
+C        )
+
+       INTEGER*2 GDS__TRUE, GDS__FALSE
+       PARAMETER (
+     +    GDS__TRUE = 1,
+     +    GDS__FALSE = 0)
+
+       INTEGER*2 ISC_TRUE, ISC_FALSE
+       PARAMETER (
+     +    ISC_TRUE = 1,
+     +    ISC_FALSE = 0)
+
+       INTEGER*2  BLR_BLOB
+       PARAMETER  (BLR_BLOB = 261)
+
+       CHARACTER*1 
+     +    BLR_TEXT, BLR_SHORT, BLR_LONG, BLR_QUAD, BLR_FLOAT,
+     +    BLR_DOUBLE, BLR_D_FLOAT, BLR_DATE, BLR_VARYING, BLR_CSTRING,
+     +    BLR_VERSION4, BLR_EOC, BLR_END
+
+       PARAMETER (
+     +    BLR_TEXT = CHAR(14),
+     +    BLR_SHORT = CHAR(7),
+     +    BLR_LONG = CHAR(8),
+     +    BLR_QUAD = CHAR(9),
+     +    BLR_FLOAT = CHAR(10),
+     +    BLR_DOUBLE = CHAR(27),
+     +    BLR_D_FLOAT = CHAR(11),
+     +    BLR_DATE = CHAR(35),
+     +    BLR_VARYING = CHAR(37),
+     +    BLR_CSTRING = CHAR(40),
+     +    BLR_VERSION4 = CHAR(4),
+     +    BLR_EOC = CHAR(76),
+     +    BLR_END = CHAR(255))
+
+      CHARACTER*1
+     +    BLR_ASSIGNMENT, BLR_BEGIN, BLR_MESSAGE, BLR_ERASE, BLR_FETCH,
+     +    BLR_FOR, BLR_IF, BLR_LOOP, BLR_MODIFY, BLR_HANDLER, 
+     +    BLR_RECEIVE, BLR_SELECT, BLR_SEND, BLR_STORE, BLR_LABEL,
+     +    BLR_LEAVE
+
+
+      PARAMETER (
+     +    BLR_ASSIGNMENT = CHAR(1),
+     +    BLR_BEGIN = CHAR(2),
+     +    BLR_MESSAGE = CHAR(4),
+     +    BLR_ERASE = CHAR(5),
+     +    BLR_FETCH = CHAR(6),
+     +    BLR_FOR = CHAR(7),
+     +    BLR_IF = CHAR(8),
+     +    BLR_LOOP = CHAR(9),
+     +    BLR_MODIFY = CHAR(10),
+     +    BLR_HANDLER = CHAR(11),
+     +    BLR_RECEIVE = CHAR(12),
+     +    BLR_SELECT = CHAR(13),
+     +    BLR_SEND = CHAR(14),
+     +    BLR_STORE = CHAR(15),
+     +    BLR_LABEL = CHAR(17),
+     +    BLR_LEAVE = CHAR(18))
+
+      CHARACTER*1
+     +    BLR_LITERAL, BLR_DBKEY, BLR_FIELD, BLR_FID, BLR_PARAMETER,
+     +    BLR_VARIABLE, BLR_AVERAGE, BLR_COUNT, BLR_MAXIMUM, 
+     +    BLR_MINIMUM, BLR_TOTAL
+
+      PARAMETER (
+     +    BLR_LITERAL = CHAR(21),
+     +    BLR_DBKEY = CHAR(22),
+     +    BLR_FIELD = CHAR(23),
+     +    BLR_FID = CHAR(24),
+     +    BLR_PARAMETER = CHAR(25),
+     +    BLR_VARIABLE = CHAR(26),
+     +    BLR_AVERAGE = CHAR(27),
+     +    BLR_COUNT = CHAR(28),
+     +    BLR_MAXIMUM = CHAR(29),
+     +    BLR_MINIMUM = CHAR(30),
+     +    BLR_TOTAL = CHAR(31))
+
+      CHARACTER*1
+     +    BLR_ADD, BLR_SUBTRACT, BLR_MULTIPLY, BLR_DIVIDE,
+     +    BLR_NEGATE, BLR_CONCATENATE, BLR_SUBSTRING, 
+     +    BLR_PARAMETER2, BLR_FROM, BLR_VIA, BLR_NULL
+     
+
+      PARAMETER (
+     +    BLR_ADD = CHAR(34),
+     +    BLR_SUBTRACT = CHAR(35),
+     +    BLR_MULTIPLY = CHAR(36),
+     +    BLR_DIVIDE = CHAR(37),
+     +    BLR_NEGATE = CHAR(38),
+     +    BLR_CONCATENATE = CHAR(39),
+     +    BLR_SUBSTRING = CHAR(40),
+     +    BLR_PARAMETER2 = CHAR(41),
+     +    BLR_FROM = CHAR(42),
+     +    BLR_VIA = CHAR(43),
+     +    BLR_NULL = CHAR(45))
+
+      CHARACTER*1
+     +    BLR_EQL, BLR_NEQ, BLR_GTR, BLR_GEQ, BLR_LSS, BLR_LEQ, 
+     +    BLR_CONTAINING, BLR_MATCHING, BLR_STARTING, BLR_BETWEEN, 
+     +    BLR_OR, BLR_AND, BLR_NOT, BLR_ANY, BLR_MISSING, BLR_LIKE,
+     +    BLR_UNIQUE
+
+       PARAMETER (
+     +    BLR_EQL = CHAR(47),
+     +    BLR_NEQ = CHAR(48),
+     +    BLR_GTR = CHAR(49),
+     +    BLR_GEQ = CHAR(50),
+     +    BLR_LSS = CHAR(51),
+     +    BLR_LEQ = CHAR(52),
+     +    BLR_CONTAINING = CHAR(53),
+     +    BLR_MATCHING = CHAR(54),
+     +    BLR_STARTING = CHAR(55),
+     +    BLR_BETWEEN = CHAR(56),
+     +    BLR_OR = CHAR(57),
+     +    BLR_AND = CHAR(58),
+     +    BLR_NOT = CHAR(59),
+     +    BLR_ANY = CHAR(60),
+     +    BLR_MISSING = CHAR(61),
+     +    BLR_UNIQUE = CHAR(62),
+     +    BLR_LIKE = CHAR(63))
+
+      CHARACTER*1
+     +    BLR_RSE, BLR_FIRST, BLR_PROJECT, BLR_SORT, BLR_BOOLEAN, 
+     +    BLR_ASCENDING, BLR_DESCENDING, BLR_RELATION, BLR_RID,
+     +    BLR_UNION, BLR_MAP, BLR_GROUP_BY, BLR_AGGREGATE,
+     +    BLR_JOIN_TYPE
+
+
+      PARAMETER (
+     +    BLR_RSE = CHAR(67),
+     +    BLR_FIRST = CHAR(68),
+     +    BLR_PROJECT = CHAR(69),
+     +    BLR_SORT = CHAR(70),
+     +    BLR_BOOLEAN = CHAR(71),
+     +    BLR_ASCENDING = CHAR(72),
+     +    BLR_DESCENDING = CHAR(73),
+     +    BLR_RELATION = CHAR(74),
+     +    BLR_RID = CHAR(75),
+     +    BLR_UNION = CHAR(76),
+     +    BLR_MAP = CHAR(77),
+     +    BLR_GROUP_BY = CHAR(78),     
+     +    BLR_AGGREGATE = CHAR(79),
+     +    BLR_JOIN_TYPE = CHAR(80))
+
+      CHARACTER*1
+     +    BLR_INNER, BLR_LEFT, BLR_RIGHT, BLR_FULL
+
+      PARAMETER (
+     +    BLR_INNER = CHAR(0),
+     +    BLR_LEFT = CHAR(1),
+     +    BLR_RIGHT = CHAR(2),
+     +    BLR_FULL = CHAR(3))
+
+      CHARACTER*1
+     +    BLR_AGG_COUNT, BLR_AGG_MAX, BLR_AGG_MIN, BLR_AGG_TOTAL,
+     +    BLR_AGG_AVERAGE, BLR_RUN_COUNT, BLR_RUN_MAX, BLR_RUN_MIN,
+     +    BLR_RUN_TOTAL, BLR_RUN_AVERAGE
+
+      PARAMETER (
+     +    BLR_AGG_COUNT = CHAR(83),     
+     +    BLR_AGG_MAX = CHAR(84),
+     +    BLR_AGG_MIN = CHAR(85),
+     +    BLR_AGG_TOTAL = CHAR(86),
+     +    BLR_AGG_AVERAGE = CHAR(87),
+     +    BLR_RUN_COUNT = CHAR(118),
+     +    BLR_RUN_MAX = CHAR(89),
+     +    BLR_RUN_MIN = CHAR(90),
+     +    BLR_RUN_TOTAL = CHAR(91),
+     +    BLR_RUN_AVERAGE = CHAR(92)) 
+
+      CHARACTER*1
+     +    BLR_FUNCTION, BLR_GEN_ID, BLR_PROT_MASK, BLR_UPCASE,
+     +    BLR_LOCK_STATE, BLR_VALUE_IF, BLR_MATCHING2, BLR_INDEX
+
+      PARAMETER (
+     +    BLR_FUNCTION = CHAR(100),
+     +    BLR_GEN_ID = CHAR(101),
+     +    BLR_PROT_MASK = CHAR(102),
+     +    BLR_UPCASE = CHAR(103),
+     +    BLR_LOCK_STATE = CHAR(104),
+     +    BLR_VALUE_IF = CHAR(105),
+     +    BLR_MATCHING2 = CHAR(106),
+     +    BLR_INDEX = CHAR(107))
+
+      CHARACTER*1
+     +    BLR_ANSI_LIKE, BLR_BOOKMARK, BLR_CRACK,
+     +    BLR_FORCE_CRACK, BLR_SEEK, BLR_FIND,
+     +    BLR_LOCK_RELATION, BLR_LOCK_RECORD,
+     +    BLR_SET_BOOKMARK, BLR_GET_BOOKMARK
+
+      PARAMETER (
+     +    BLR_ANSI_LIKE = CHAR(108),
+     +    BLR_BOOKMARK = CHAR(109),
+     +    BLR_CRACK = CHAR(110),
+     +    BLR_FORCE_CRACK = CHAR(111),
+     +    BLR_SEEK = CHAR(112),
+     +    BLR_FIND = CHAR(113),
+     +    BLR_LOCK_RELATION = CHAR(114),
+     +    BLR_LOCK_RECORD = CHAR(115),
+     +    BLR_SET_BOOKMARK = CHAR(116),
+     +    BLR_GET_BOOKMARK = CHAR(117))
+
+      CHARACTER*1
+     +    BLR_RS_STREAM, BLR_EXEC_PROC, BLR_BEGIN_RANGE,
+     +    BLR_END_RANGE, BLR_DELETE_RANGE, BLR_PROCEDURE,
+     +    BLR_PID, BLR_EXEC_PID, BLR_SINGULAR, BLR_ABORT,
+     +    BLR_BLOCK, BLR_ERROR_HANDLER, BLR_PARAMETER3,
+     +    BLR_CAST
+
+      PARAMETER (
+     +    BLR_PARAMETER3 = CHAR(88),
+     +    BLR_RS_STREAM = CHAR(119),
+     +    BLR_EXEC_PROC = CHAR(120),
+     +    BLR_BEGIN_RANGE = CHAR(121),
+     +    BLR_END_RANGE = CHAR(122),
+     +    BLR_DELETE_RANGE = CHAR(123),
+     +    BLR_PROCEDURE = CHAR(124),
+     +    BLR_PID = CHAR(125),
+     +    BLR_EXEC_PID = CHAR(126),
+     +    BLR_SINGULAR = CHAR(127),
+     +    BLR_ABORT = CHAR(128),
+     +    BLR_BLOCK = CHAR(129),
+     +    BLR_ERROR_HANDLER = CHAR(130),
+     +    BLR_CAST = CHAR(131))
+
+      CHARACTER*1
+     +    BLR_GDS_CODE, BLR_SQL_CODE, BLR_EXCEPTION,
+     +    BLR_TRIGGER_CODE, BLR_DEFAULT_CODE
+
+      PARAMETER (
+     +    BLR_GDS_CODE = CHAR(0),
+     +    BLR_SQL_CODE = CHAR(1),
+     +    BLR_EXCEPTION = CHAR(2),
+     +    BLR_TRIGGER_CODE = CHAR(3),
+     +    BLR_DEFAULT_CODE = CHAR(4))
+
+C     database parameter block stuff 
+
+      CHARACTER*1
+     +     GDS__DPB_VERSION1,
+     +     GDS__DPB_CDD_PATHNAME, GDS__DPB_ALLOCATION,
+     +     GDS__DPB_JOURNAL, GDS__DPB_PAGE_SIZE,
+     +     GDS__DPB_BUFFERS,  GDS__DPB_BUFFER_LENGTH,
+     +     GDS__DPB_DEBUG, GDS__DPB_GARBAGE_COLLECT,
+     +     GDS__DPB_VERIFY,  GDS__DPB_SWEEP,
+     +     GDS__DPB_ENABLE_JOURNAL, GDS__DPB_DISABLE_JOURNAL,
+     +     GDS__DPB_DBKEY_SCOPE, GDS__DPB_NUMBER_OF_USERS,
+     +     GDS__DPB_TRACE, GDS__DPB_NO_GARBAGE_COLLECT
+
+      CHARACTER*1
+     +     GDS__DPB_DAMAGED, GDS__DPB_LICENSE, GDS__DPB_SYS_USER_NAME,
+     +     GDS__DPB_ENCRYPT_KEY, GDS__DPB_ACTIVATE_SHADOW, GDS__DPB_SWEEP_INTERVAL,
+     +     GDS__DPB_DELETE_SHADOW, GDS__DPB_FORCE_WRITE, GDS__DPB_BEGIN_LOG, 
+     +     GDS__DPB_QUIT_LOG, GDS__DPB_NO_RESERVE, GDS__DPB_USER_NAME,
+     +     GDS__DPB_PASSWORD, GDS__DPB_PASSWORD_ENC, GDS__DPB_SYS_USER_NAME_ENC,
+     +     GDS__DPB_INTERP, GDS__DPB_ONLINE_DUMP, GDS__DPB_OLD_FILE_SIZE,
+     +     GDS__DPB_OLD_NUM_FILES, GDS__DPB_OLD_FILE, GDS__DPB_OLD_START_PAGE,
+     +     GDS__DPB_OLD_START_SEQNO, GDS__DPB_OLD_START_FILE, GDS__DPB_DROP_WALFILE,
+     +     GDS__DPB_OLD_DUMP_ID, GDS__DPB_WAL_BACKUP_DIR, GDS__DPB_WAL_CHKPTLEN
+
+      CHARACTER*1
+     +     GDS__DPB_WAL_NUMBUFS, GDS__DPB_WAL_BUFSIZE, GDS__DPB_WAL_GRP_CMT_WAIT,
+     +     GDS__DPB_LC_MESSAGES, GDS__DPB_LC_CTYPE, GDS__DPB_CACHE_MANAGER,
+     +     GDS__DPB_SHUTDOWN, GDS__DPB_ONLINE, GDS__DPB_SHUTDOWN_DELAY,
+     +     GDS__DPB_RESERVED, GDS__DPB_OVERWRITE, GDS__DPB_SEC_ATTACH,
+     +     GDS__DPB_DISABLE_WAL
+
+      PARAMETER (
+     +     GDS__DPB_VERSION1              = CHAR (1),
+     +     GDS__DPB_CDD_PATHNAME          = CHAR (1),
+     +     GDS__DPB_ALLOCATION            = CHAR (2), 
+     +     GDS__DPB_JOURNAL               = CHAR (3),
+     +     GDS__DPB_PAGE_SIZE             = CHAR (4),
+     +     GDS__DPB_BUFFERS               = CHAR (5),
+     +     GDS__DPB_BUFFER_LENGTH         = CHAR (6),
+     +     GDS__DPB_DEBUG                 = CHAR (7),
+     +     GDS__DPB_GARBAGE_COLLECT       = CHAR (8),
+     +     GDS__DPB_VERIFY                = CHAR (9),
+     +     GDS__DPB_SWEEP                 = CHAR (10))
+
+
+      PARAMETER (
+     +     GDS__DPB_ENABLE_JOURNAL        = CHAR (11),
+     +     GDS__DPB_DISABLE_JOURNAL       = CHAR (12),
+     +     GDS__DPB_DBKEY_SCOPE           = CHAR (13),
+     +     GDS__DPB_NUMBER_OF_USERS       = CHAR (14), 
+     +     GDS__DPB_TRACE                 = CHAR (15),
+     +     GDS__DPB_NO_GARBAGE_COLLECT    = CHAR (16), 
+     +     GDS__DPB_DAMAGED               = CHAR (17),
+     +     GDS__DPB_LICENSE               = CHAR (18),
+     +     GDS__DPB_SYS_USER_NAME         = CHAR (19))
+
+      PARAMETER (
+     +     GDS__DPB_ENCRYPT_KEY           = CHAR (20),
+     +     GDS__DPB_ACTIVATE_SHADOW       = CHAR (21),
+     +     GDS__DPB_SWEEP_INTERVAL        = CHAR (22),
+     +     GDS__DPB_DELETE_SHADOW         = CHAR (23))
+
+
+      PARAMETER (
+     +     GDS__DPB_FORCE_WRITE           = CHAR (24),
+     +     GDS__DPB_BEGIN_LOG             = CHAR (25),
+     +     GDS__DPB_QUIT_LOG              = CHAR (26),
+     +     GDS__DPB_NO_RESERVE            = CHAR (27),
+     +     GDS__DPB_USER_NAME             = CHAR (28),
+     +     GDS__DPB_PASSWORD              = CHAR (29),
+     +     GDS__DPB_PASSWORD_ENC          = CHAR (30),
+     +     GDS__DPB_SYS_USER_NAME_ENC     = CHAR (31),
+     +     GDS__DPB_INTERP                = CHAR (32),
+     +     GDS__DPB_ONLINE_DUMP           = CHAR (33),
+     +     GDS__DPB_OLD_FILE_SIZE         = CHAR (34))
+
+      PARAMETER (
+     +     GDS__DPB_OLD_NUM_FILES         = CHAR (35),
+     +     GDS__DPB_OLD_FILE              = CHAR (36),
+     +     GDS__DPB_OLD_START_PAGE        = CHAR (37),
+     +     GDS__DPB_OLD_START_SEQNO       = CHAR (38),
+     +     GDS__DPB_OLD_START_FILE        = CHAR (39),
+     +     GDS__DPB_DROP_WALFILE          = CHAR (40),
+     +     GDS__DPB_OLD_DUMP_ID           = CHAR (41),
+     +     GDS__DPB_WAL_BACKUP_DIR        = CHAR (42),
+     +     GDS__DPB_WAL_CHKPTLEN          = CHAR (43),
+     +     GDS__DPB_WAL_NUMBUFS           = CHAR (44),
+     +     GDS__DPB_WAL_BUFSIZE           = CHAR (45))
+
+
+      PARAMETER (
+     +     GDS__DPB_WAL_GRP_CMT_WAIT      = CHAR (46),
+     +     GDS__DPB_LC_MESSAGES           = CHAR (47),
+     +     GDS__DPB_LC_CTYPE              = CHAR (48),
+     +     GDS__DPB_CACHE_MANAGER	 = CHAR (49),
+     +     GDS__DPB_SHUTDOWN		 = CHAR (50),
+     +     GDS__DPB_ONLINE		 = CHAR (51),
+     +     GDS__DPB_SHUTDOWN_DELAY	 = CHAR (52),
+     +     GDS__DPB_RESERVED		 = CHAR (53),
+     +     GDS__DPB_OVERWRITE		 = CHAR (54),
+     +     GDS__DPB_SEC_ATTACH		 = CHAR (55),
+     +     GDS__DPB_DISABLE_WAL		 = CHAR (56))
+
+      CHARACTER*1
+     +     GDS__DPB_PAGES, GDS__DPB_RECORDS, 
+     +     GDS__DPB_INDICES, GDS__DPB_TRANSACTIONS, 
+     +     GDS__DPB_NO_UPDATE, GDS__DPB_REPAIR
+
+      PARAMETER (
+     +     GDS__DPB_PAGES = CHAR(1),
+     +     GDS__DPB_RECORDS = CHAR(2),
+     +     GDS__DPB_INDICES = CHAR(4),
+     +     GDS__DPB_TRANSACTIONS = CHAR(8),
+     +     GDS__DPB_NO_UPDATE = CHAR(16),
+     +     GDS__DPB_REPAIR = CHAR(32))
+
+
+
+C     Transaction parameter block stuff 
+
+      CHARACTER*1
+     + GDS__TPB_VERSION3, GDS__TPB_CONSISTENCY, GDS__TPB_CONCURRENCY,
+     + GDS__TPB_SHARED, GDS__TPB_PROTECTED, GDS__TPB_EXCLUSIVE,
+     + GDS__TPB_WAIT, GDS__TPB_NOWAIT, GDS__TPB_READ, GDS__TPB_WRITE,
+     + GDS__TPB_LOCK_READ, GDS__TPB_LOCK_WRITE, GDS__TPB_VERB_TIME,
+     + GDS__TPB_COMMIT_TIME                            
+
+
+      PARAMETER (
+     + GDS__TPB_VERSION3     = CHAR (3),
+     + GDS__TPB_CONSISTENCY  = CHAR (1),
+     + GDS__TPB_CONCURRENCY  = CHAR (2),
+     + GDS__TPB_SHARED       = CHAR (3),
+     + GDS__TPB_PROTECTED    = CHAR (4),
+     + GDS__TPB_EXCLUSIVE    = CHAR (5),
+     + GDS__TPB_WAIT         = CHAR (6),
+     + GDS__TPB_NOWAIT       = CHAR (7),
+     + GDS__TPB_READ         = CHAR (8),
+     + GDS__TPB_WRITE        = CHAR (9),
+     + GDS__TPB_LOCK_READ    = CHAR (10),
+     + GDS__TPB_LOCK_WRITE   = CHAR (11),
+     + GDS__TPB_VERB_TIME    = CHAR (12),
+     + GDS__TPB_COMMIT_TIME  = CHAR (13))
+
+C Blob Parameter Block
+
+      CHARACTER*1
+     +  gds__bpb_version1, gds__bpb_source_type, gds__bpb_target_type,
+     +  gds__bpb_type, gds__bpb_type_segmented, gds__bpb_type_stream
+
+      PARAMETER (
+     +  gds__bpb_version1           = CHAR (1),
+     +  gds__bpb_source_type        = CHAR (1),
+     +  gds__bpb_target_type        = CHAR (2),
+     +  gds__bpb_type               = CHAR (3),
+
+     +  gds__bpb_type_segmented     = CHAR (0),
+     +  gds__bpb_type_stream        = CHAR (1))
+
+C     Information parameters
+
+C Common, structural codes 
+
+      CHARACTER*1  GDS__INFO_END, GDS__INFO_TRUNCATED,
+     +    GDS__INFO_ERROR
+
+      PARAMETER (
+     +    GDS__INFO_END                  = CHAR(1),
+     +    GDS__INFO_TRUNCATED            = CHAR(2),
+     +    GDS__INFO_ERROR                = CHAR(3))
+
+C DATABASE INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_ID, GDS__INFO_READS, GDS__INFO_WRITES,
+     +    GDS__INFO_FETCHES, GDS__INFO_MARKS, GDS__INFO_IMPLEMENTATION,
+     +    GDS__INFO_VERSION, GDS__INFO_BASE_LEVEL, GDS__INFO_PAGE_SIZE,
+     +    GDS__INFO_NUM_BUFFERS, GDS__INFO_LIMBO,
+     +    GDS__INFO_CURRENT_MEMORY, GDS__INFO_MAX_MEMORY,
+     +    GDS__INFO_WINDOW_TURNS, GDS__INFO_DB_ID
+
+      PARAMETER (
+     +    GDS__INFO_DB_ID                = CHAR(4),
+     +    GDS__INFO_READS                = CHAR(5),
+     +    GDS__INFO_WRITES               = CHAR(6),
+     +    GDS__INFO_FETCHES              = CHAR(7),
+     +    GDS__INFO_MARKS                = CHAR(8),
+     +    GDS__INFO_IMPLEMENTATION       = CHAR(11),
+     +    GDS__INFO_VERSION              = CHAR(12),
+     +    GDS__INFO_BASE_LEVEL           = CHAR(13),
+     +    GDS__INFO_PAGE_SIZE            = CHAR(14),
+     +    GDS__INFO_NUM_BUFFERS          = CHAR(15),
+     +    GDS__INFO_LIMBO                = CHAR(16),
+     +    GDS__INFO_CURRENT_MEMORY       = CHAR(17),
+     +    GDS__INFO_MAX_MEMORY           = CHAR(18),
+     +    GDS__INFO_WINDOW_TURNS         = CHAR(19))
+
+      CHARACTER*1 GDS__INFO_LICENSE, GDS__INFO_ALLOCATION,
+     +    GDS__INFO_ATTACHMENT_ID, GDS__INFO_READ_SEQ_COUNT,
+     +    GDS__INFO_READ_IDX_COUNT, GDS__INFO_INSERT_COUNT,
+     +    GDS__INFO_UPDATE_COUNT,
+     +    GDS__INFO_DELETE_COUNT, GDS__INFO_BACKOUT_COUNT,
+     +    GDS__INFO_PURGE_COUNT, GDS__INFO_EXPUNGE_COUNT,
+     +    GDS__INFO_SWEEP_INTERVAL, GDS__INFO_ODS_VERSION,
+     +    GDS__INFO_ODS_MINOR_VERSION
+
+      PARAMETER (
+     +    GDS__INFO_LICENSE              = CHAR(20),
+     +    GDS__INFO_ALLOCATION           = CHAR(21),
+     +    GDS__INFO_ATTACHMENT_ID        = CHAR(22),
+     +    GDS__INFO_READ_SEQ_COUNT       = CHAR(23),
+     +    GDS__INFO_READ_IDX_COUNT       = CHAR(24), 
+     +    GDS__INFO_INSERT_COUNT          = CHAR(25),
+     +    GDS__INFO_UPDATE_COUNT         = CHAR(26),
+     +    GDS__INFO_DELETE_COUNT         = CHAR(27), 
+     +    GDS__INFO_BACKOUT_COUNT        = CHAR(28),
+     +    GDS__INFO_PURGE_COUNT          = CHAR(29), 
+     +    GDS__INFO_EXPUNGE_COUNT        = CHAR(30),
+     +    GDS__INFO_SWEEP_INTERVAL       = CHAR(31), 
+     +    GDS__INFO_ODS_VERSION          = CHAR(32),
+     +    GDS__INFO_ODS_MINOR_VERSION    = CHAR(33))
+
+
+C REQUEST INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_NUMBER_MESSAGES, GDS__INFO_MAX_MESSAGE,
+     +    GDS__INFO_MAX_SEND, GDS__INFO_MAX_RECEIVE, GDS__INFO_STATE,
+     +    GDS__INFO_MESSAGE_NUMBER, GDS__INFO_MESSAGE_SIZE,
+     +    GDS__INFO_REQUEST_COST, GDS__INFO_REQ_ACTIVE,
+     +    GDS__INFO_REQ_INACTIVE, GDS__INFO_REQ_SEND,
+     +    GDS__INFO_REQ_RECEIVE, GDS__INFO_REQ_SELECT
+
+      PARAMETER (
+     +    GDS__INFO_NUMBER_MESSAGES     = CHAR(4),
+     +    GDS__INFO_MAX_MESSAGE         = CHAR(5),
+     +    GDS__INFO_MAX_SEND            = CHAR(6),
+     +    GDS__INFO_MAX_RECEIVE         = CHAR(7),
+     +    GDS__INFO_STATE               = CHAR(8),
+     +    GDS__INFO_MESSAGE_NUMBER      = CHAR(9),
+     +    GDS__INFO_MESSAGE_SIZE        = CHAR(10),
+     +    GDS__INFO_REQUEST_COST        = CHAR(11),
+     +    GDS__INFO_REQ_ACTIVE          = CHAR(2),
+     +    GDS__INFO_REQ_INACTIVE        = CHAR(3),
+     +    GDS__INFO_REQ_SEND            = CHAR(4),
+     +    GDS__INFO_REQ_RECEIVE         = CHAR(5),
+     +    GDS__INFO_REQ_SELECT          = CHAR(6))
+
+C BLOB INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_BLOB_NUM_SEGMENTS,
+     +    GDS__INFO_BLOB_MAX_SEGMENT,
+     +    GDS__INFO_BLOB_TOTAL_LENGTH,
+     +    GDS__INFO_BLOB_TYPE
+
+      PARAMETER (
+     +    GDS__INFO_BLOB_NUM_SEGMENTS   = CHAR(4),
+     +    GDS__INFO_BLOB_MAX_SEGMENT    = CHAR(5),
+     +    GDS__INFO_BLOB_TOTAL_LENGTH   = CHAR(6),
+     +    GDS__INFO_BLOB_TYPE           = CHAR(7))
+
+C TRANSACTION INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_TRA_ID
+      PARAMETER (
+     +    GDS__INFO_TRA_ID               = CHAR(4))
+
+C Dynamic SQL datatypes
+
+      INTEGER*2
+     + SQL_TEXT,
+     + SQL_VARYING,
+     + SQL_SHORT,
+     + SQL_LONG,
+     + SQL_FLOAT,
+     + SQL_DOUBLE,
+     + SQL_D_FLOAT,
+     + SQL_DATE,
+     + SQL_BLOB
+
+      PARAMETER (
+     + SQL_TEXT = 452,
+     + SQL_VARYING = 448,
+     + SQL_SHORT = 500,
+     + SQL_LONG = 496,
+     + SQL_FLOAT = 482,
+     + SQL_DOUBLE = 480,
+     + SQL_D_FLOAT = 530,
+     + SQL_DATE = 510,
+     + SQL_BLOB = 520)
+
+C  Forms Package definitions 
+
+C  Map definition block definitions 
+
+      INTEGER*2
+     + PYXIS__MAP_VERSION1,
+     + PYXIS__MAP_FIELD2,
+     + PYXIS__MAP_FIELD1,
+     + PYXIS__MAP_MESSAGE,
+     + PYXIS__MAP_TERMINATOR,
+     + PYXIS__MAP_TERMINATING_FIELD,
+     + PYXIS__MAP_OPAQUE,
+     + PYXIS__MAP_TRANSPARENT,
+     + PYXIS__MAP_TAG,
+     + PYXIS__MAP_SUB_FORM,
+     + PYXIS__MAP_ITEM_INDEX,
+     + PYXIS__MAP_SUB_FIELD,
+     + PYXIS__MAP_END
+
+      PARAMETER (
+     + PYXIS__MAP_VERSION1                    = 1,
+     + PYXIS__MAP_FIELD2                      = 2,
+     + PYXIS__MAP_FIELD1                      = 3,
+     + PYXIS__MAP_MESSAGE                     = 4,
+     + PYXIS__MAP_TERMINATOR                  = 5,
+     + PYXIS__MAP_TERMINATING_FIELD           = 6,
+     + PYXIS__MAP_OPAQUE                      = 7,
+     + PYXIS__MAP_TRANSPARENT                 = 8,
+     + PYXIS__MAP_TAG                         = 9,
+     + PYXIS__MAP_SUB_FORM                    = 10,
+     + PYXIS__MAP_ITEM_INDEX                  = 11,
+     + PYXIS__MAP_SUB_FIELD                   = 12,
+     + PYXIS__MAP_END                         = -1)
+
+C  Field option flags for display options 
+
+      INTEGER*2
+     + PYXIS__OPT_DISPLAY,
+     + PYXIS__OPT_UPDATE,
+     + PYXIS__OPT_WAKEUP,
+     + PYXIS__OPT_POSITION
+
+      PARAMETER (
+     + PYXIS__OPT_DISPLAY                     = 1,
+     + PYXIS__OPT_UPDATE                      = 2,
+     + PYXIS__OPT_WAKEUP                      = 4,
+     + PYXIS__OPT_POSITION                    = 8)
+
+C  Field option values following display 
+
+      INTEGER*2
+     + PYXIS__OPT_NULL,
+     + PYXIS__OPT_DEFAULT,
+     + PYXIS__OPT_INITIAL,
+     + PYXIS__OPT_USER_DATA
+
+      PARAMETER (
+     + PYXIS__OPT_NULL                        = 1,
+     + PYXIS__OPT_DEFAULT                     = 2,
+     + PYXIS__OPT_INITIAL                     = 3,
+     + PYXIS__OPT_USER_DATA                   = 4)
+
+C  Pseudo key definitions 
+
+      INTEGER*2
+     + PYXIS__KEY_DELETE,
+     + PYXIS__KEY_UP,
+     + PYXIS__KEY_DOWN,
+     + PYXIS__KEY_RIGHT,
+     + PYXIS__KEY_LEFT,
+     + PYXIS__KEY_PF1,
+     + PYXIS__KEY_PF2,
+     + PYXIS__KEY_PF3,
+     + PYXIS__KEY_PF4,
+     + PYXIS__KEY_PF5,
+     + PYXIS__KEY_PF6,
+     + PYXIS__KEY_PF7,
+     + PYXIS__KEY_PF8,
+     + PYXIS__KEY_PF9,
+     + PYXIS__KEY_ENTER,
+     + PYXIS__KEY_SCROLL_TOP,
+     + PYXIS__KEY_SCROLL_BOTTOM
+
+      PARAMETER (
+     + PYXIS__KEY_DELETE                      = 127,
+     + PYXIS__KEY_UP                          = 128,
+     + PYXIS__KEY_DOWN                        = 129,
+     + PYXIS__KEY_RIGHT                       = 130,
+     + PYXIS__KEY_LEFT                        = 131,
+     + PYXIS__KEY_PF1                         = 132,
+     + PYXIS__KEY_PF2                         = 133,
+     + PYXIS__KEY_PF3                         = 134,
+     + PYXIS__KEY_PF4                         = 135,
+     + PYXIS__KEY_PF5                         = 136,
+     + PYXIS__KEY_PF6                         = 137,
+     + PYXIS__KEY_PF7                         = 138,
+     + PYXIS__KEY_PF8                         = 139,
+     + PYXIS__KEY_PF9                         = 140,
+     + PYXIS__KEY_ENTER                       = 141,
+     + PYXIS__KEY_SCROLL_TOP                  = 146,
+     + PYXIS__KEY_SCROLL_BOTTOM               = 147)
+
+C  Menu definition stuff 
+
+      INTEGER*2
+     + PYXIS__MENU_VERSION1,
+     + PYXIS__MENU_LABEL,
+     + PYXIS__MENU_ENTREE,
+     + PYXIS__MENU_OPAQUE,
+     + PYXIS__MENU_TRANSPARENT,
+     + PYXIS__MENU_HORIZONTAL,
+     + PYXIS__MENU_VERTICAL,
+     + PYXIS__MENU_END
+
+      PARAMETER (
+     + PYXIS__MENU_VERSION1                   = 1,
+     + PYXIS__MENU_LABEL                      = 2,
+     + PYXIS__MENU_ENTREE                     = 3,
+     + PYXIS__MENU_OPAQUE                     = 4,
+     + PYXIS__MENU_TRANSPARENT                = 5,
+     + PYXIS__MENU_HORIZONTAL                 = 6,
+     + PYXIS__MENU_VERTICAL                   = 7,
+     + PYXIS__MENU_END                        = -1)
+
+
+C     database parameter block stuff 
+
+      INTEGER*4
+     +     ISC_DPB_VERSION1,
+     +     ISC_DPB_CDD_PATHNAME, ISC_DPB_ALLOCATION,
+     +     ISC_DPB_JOURNAL, ISC_DPB_PAGE_SIZE,
+     +     ISC_DPB_BUFFERS,  ISC_DPB_BUFFER_LENGTH,
+     +     ISC_DPB_DEBUG, ISC_DPB_GARBAGE_COLLECT,
+     +     ISC_DPB_VERIFY,  ISC_DPB_SWEEP,
+     +     ISC_DPB_ENABLE_JOURNAL, ISC_DPB_DISABLE_JOURNAL,
+     +     ISC_DPB_DBKEY_SCOPE, ISC_DPB_NUMBER_OF_USERS,
+     +     ISC_DPB_TRACE, ISC_DPB_NO_GARBAGE_COLLECT
+
+      INTEGER*2
+     +     ISC_DPB_DAMAGED, ISC_DPB_LICENSE, ISC_DPB_SYS_USER_NAME,
+     +     ISC_DPB_ENCRYPT_KEY, ISC_DPB_ACTIVATE_SHADOW, ISC_DPB_SWEEP_INTERVAL,
+     +     ISC_DPB_DELETE_SHADOW, ISC_DPB_FORCE_WRITE, ISC_DPB_BEGIN_LOG, 
+     +     ISC_DPB_QUIT_LOG, ISC_DPB_NO_RESERVE, ISC_DPB_USER_NAME,
+     +     ISC_DPB_PASSWORD, ISC_DPB_PASSWORD_ENC, ISC_DPB_SYS_USER_NAME_ENC,
+     +     ISC_DPB_INTERP, ISC_DPB_ONLINE_DUMP, ISC_DPB_OLD_FILE_SIZE,
+     +     ISC_DPB_OLD_NUM_FILES, ISC_DPB_OLD_FILE, ISC_DPB_OLD_START_PAGE,
+     +     ISC_DPB_OLD_START_SEQNO, ISC_DPB_OLD_START_FILE, ISC_DPB_DROP_WALFILE
+
+      INTEGER*2
+     +     ISC_DPB_OLD_DUMP_ID, ISC_DPB_WAL_BACKUP_DIR, ISC_DPB_WAL_CHKPTLEN,
+     +     ISC_DPB_WAL_NUMBUFS, ISC_DPB_WAL_BUFSIZE, ISC_DPB_WAL_GRP_CMT_WAIT,
+     +     ISC_DPB_LC_MESSAGES, ISC_DPB_LC_CTYPE, ISC_DPB_CACHE_MANAGER,
+     +     ISC_DPB_SHUTDOWN, ISC_DPB_ONLINE, ISC_DPB_SHUTDOWN_DELAY,
+     +     ISC_DPB_RESERVED, ISC_DPB_OVERWRITE, ISC_DPB_SEC_ATTACH,
+     +     ISC_DPB_DISABLE_WAL
+
+      PARAMETER (
+     +     ISC_DPB_VERSION1              = 1,
+     +     ISC_DPB_CDD_PATHNAME          = 1,
+     +     ISC_DPB_ALLOCATION            = 2, 
+     +     ISC_DPB_JOURNAL               = 3,
+     +     ISC_DPB_PAGE_SIZE             = 4,
+     +     ISC_DPB_BUFFERS               = 5,
+     +     ISC_DPB_BUFFER_LENGTH         = 6,
+     +     ISC_DPB_DEBUG                 = 7,
+     +     ISC_DPB_GARBAGE_COLLECT       = 8,
+     +     ISC_DPB_VERIFY                = 9,
+     +     ISC_DPB_SWEEP                 = 10)
+
+      PARAMETER (
+     +     ISC_DPB_ENABLE_JOURNAL        = 11,
+     +     ISC_DPB_DISABLE_JOURNAL       = 12,
+     +     ISC_DPB_DBKEY_SCOPE           = 13,
+     +     ISC_DPB_NUMBER_OF_USERS       = 14, 
+     +     ISC_DPB_TRACE                 = 15,
+     +     ISC_DPB_NO_GARBAGE_COLLECT    = 16, 
+     +     ISC_DPB_DAMAGED               = 17,
+     +     ISC_DPB_LICENSE               = 18,
+     +     ISC_DPB_SYS_USER_NAME         = 19)
+
+      PARAMETER (
+     +     ISC_DPB_ENCRYPT_KEY           = 20,
+     +     ISC_DPB_ACTIVATE_SHADOW       = 21,
+     +     ISC_DPB_SWEEP_INTERVAL        = 22,
+     +     ISC_DPB_DELETE_SHADOW         = 23)
+
+
+      PARAMETER (
+     +     ISC_DPB_FORCE_WRITE           = 24,
+     +     ISC_DPB_BEGIN_LOG             = 25,
+     +     ISC_DPB_QUIT_LOG              = 26,
+     +     ISC_DPB_NO_RESERVE            = 27,
+     +     ISC_DPB_USER_NAME             = 28,
+     +     ISC_DPB_PASSWORD              = 29,
+     +     ISC_DPB_PASSWORD_ENC          = 30,
+     +     ISC_DPB_SYS_USER_NAME_ENC     = 31,
+     +     ISC_DPB_INTERP                = 32,
+     +     ISC_DPB_ONLINE_DUMP           = 33,
+     +     ISC_DPB_OLD_FILE_SIZE         = 34)
+
+      PARAMETER (
+     +     ISC_DPB_OLD_NUM_FILES         = 35,
+     +     ISC_DPB_OLD_FILE              = 36,
+     +     ISC_DPB_OLD_START_PAGE        = 37,
+     +     ISC_DPB_OLD_START_SEQNO       = 38,
+     +     ISC_DPB_OLD_START_FILE        = 39,
+     +     ISC_DPB_DROP_WALFILE          = 40,
+     +     ISC_DPB_OLD_DUMP_ID           = 41,
+     +     ISC_DPB_WAL_BACKUP_DIR        = 42,
+     +     ISC_DPB_WAL_CHKPTLEN          = 43,
+     +     ISC_DPB_WAL_NUMBUFS           = 44,
+     +     ISC_DPB_WAL_BUFSIZE           = 45)
+
+      PARAMETER (
+     +     ISC_DPB_WAL_GRP_CMT_WAIT      = 46,
+     +     ISC_DPB_LC_MESSAGES           = 47,
+     +     ISC_DPB_LC_CTYPE              = 48,
+     +     ISC_DPB_CACHE_MANAGER	 = 49,
+     +     ISC_DPB_SHUTDOWN		 = 50,
+     +     ISC_DPB_ONLINE		 = 51,
+     +     ISC_DPB_SHUTDOWN_DELAY	 = 52,
+     +     ISC_DPB_RESERVED		 = 53,
+     +     ISC_DPB_OVERWRITE		 = 54,
+     +     ISC_DPB_SEC_ATTACH		 = 55,
+     +     ISC_DPB_DISABLE_WAL		 = 56)
+
+      CHARACTER*1
+     +     ISC_DPB_PAGES, ISC_DPB_RECORDS, 
+     +     ISC_DPB_INDICES, ISC_DPB_TRANSACTIONS, 
+     +     ISC_DPB_NO_UPDATE, ISC_DPB_REPAIR
+
+      PARAMETER (
+     +     ISC_DPB_PAGES = CHAR(1),
+     +     ISC_DPB_RECORDS = CHAR(2),
+     +     ISC_DPB_INDICES = CHAR(4),
+     +     ISC_DPB_TRANSACTIONS = CHAR(8),
+     +     ISC_DPB_NO_UPDATE = CHAR(16),
+     +     ISC_DPB_REPAIR = CHAR(32))
+
+
+
+C     Transaction parameter block stuff 
+
+      CHARACTER*1
+     + ISC_TPB_VERSION3, ISC_TPB_CONSISTENCY, ISC_TPB_CONCURRENCY,
+     + ISC_TPB_SHARED, ISC_TPB_PROTECTED, ISC_TPB_EXCLUSIVE,
+     + ISC_TPB_WAIT, ISC_TPB_NOWAIT, ISC_TPB_READ, ISC_TPB_WRITE,
+     + ISC_TPB_LOCK_READ, ISC_TPB_LOCK_WRITE, ISC_TPB_VERB_TIME,
+     + ISC_TPB_COMMIT_TIME                            
+
+
+      PARAMETER (
+     + ISC_TPB_VERSION3     = CHAR (3),
+     + ISC_TPB_CONSISTENCY  = CHAR (1),
+     + ISC_TPB_CONCURRENCY  = CHAR (2),
+     + ISC_TPB_SHARED       = CHAR (3),
+     + ISC_TPB_PROTECTED    = CHAR (4),
+     + ISC_TPB_EXCLUSIVE    = CHAR (5),
+     + ISC_TPB_WAIT         = CHAR (6),
+     + ISC_TPB_NOWAIT       = CHAR (7),
+     + ISC_TPB_READ         = CHAR (8),
+     + ISC_TPB_WRITE        = CHAR (9),
+     + ISC_TPB_LOCK_READ    = CHAR (10),
+     + ISC_TPB_LOCK_WRITE   = CHAR (11),
+     + ISC_TPB_VERB_TIME    = CHAR (12),
+     + ISC_TPB_COMMIT_TIME  = CHAR (13))
+
+C Blob Parameter Block
+
+      CHARACTER*1
+     +  isc_bpb_version1, isc_bpb_source_type, isc_bpb_target_type,
+     +  isc_bpb_type, isc_bpb_type_segmented, isc_bpb_type_stream
+
+      PARAMETER (
+     +  isc_bpb_version1           = CHAR (1),
+     +  isc_bpb_source_type        = CHAR (1),
+     +  isc_bpb_target_type        = CHAR (2),
+     +  isc_bpb_type               = CHAR (3),
+
+     +  isc_bpb_type_segmented     = CHAR (0),
+     +  isc_bpb_type_stream        = CHAR (1))
+
+C     Information parameters
+
+C Common, structural codes 
+
+      CHARACTER*1  ISC_INFO_END, ISC_INFO_TRUNCATED,
+     +    ISC_INFO_ERROR
+
+      PARAMETER (
+     +    ISC_INFO_END                  = CHAR(1),
+     +    ISC_INFO_TRUNCATED            = CHAR(2),
+     +    ISC_INFO_ERROR                = CHAR(3))
+
+C DATABASE INFORMATION ITEMS 
+
+      CHARACTER*1 ISC_INFO_ID, ISC_INFO_READS, ISC_INFO_WRITES,
+     +    ISC_INFO_FETCHES, ISC_INFO_MARKS, ISC_INFO_IMPLEMENTATION,
+     +    ISC_INFO_VERSION, ISC_INFO_BASE_LEVEL, ISC_INFO_PAGE_SIZE,
+     +    ISC_INFO_NUM_BUFFERS, ISC_INFO_LIMBO,
+     +    ISC_INFO_CURRENT_MEMORY, ISC_INFO_MAX_MEMORY,
+     +    ISC_INFO_WINDOW_TURNS, ISC_INFO_DB_ID
+
+      PARAMETER (
+     +    ISC_INFO_DB_ID                = CHAR(4),
+     +    ISC_INFO_READS                = CHAR(5),
+     +    ISC_INFO_WRITES               = CHAR(6),
+     +    ISC_INFO_FETCHES              = CHAR(7),
+     +    ISC_INFO_MARKS                = CHAR(8),
+     +    ISC_INFO_IMPLEMENTATION       = CHAR(11),
+     +    ISC_INFO_VERSION              = CHAR(12),
+     +    ISC_INFO_BASE_LEVEL           = CHAR(13),
+     +    ISC_INFO_PAGE_SIZE            = CHAR(14),
+     +    ISC_INFO_NUM_BUFFERS          = CHAR(15),
+     +    ISC_INFO_LIMBO                = CHAR(16),
+     +    ISC_INFO_CURRENT_MEMORY       = CHAR(17),
+     +    ISC_INFO_MAX_MEMORY           = CHAR(18),
+     +    ISC_INFO_WINDOW_TURNS         = CHAR(19))
+
+      CHARACTER*1 ISC_INFO_LICENSE, ISC_INFO_ALLOCATION,
+     +    ISC_INFO_ATTACHMENT_ID, ISC_INFO_READ_SEQ_COUNT,
+     +    ISC_INFO_READ_IDX_COUNT, ISC_INFO_INSERT_COUNT,
+     +    ISC_INFO_UPDATE_COUNT,
+     +    ISC_INFO_DELETE_COUNT, ISC_INFO_BACKOUT_COUNT,
+     +    ISC_INFO_PURGE_COUNT, ISC_INFO_EXPUNGE_COUNT,
+     +    ISC_INFO_SWEEP_INTERVAL, ISC_INFO_ODS_VERSION,
+     +    ISC_INFO_ODS_MINOR_VERSION
+
+      PARAMETER (
+     +    ISC_INFO_LICENSE              = CHAR(20),
+     +    ISC_INFO_ALLOCATION           = CHAR(21),
+     +    ISC_INFO_ATTACHMENT_ID        = CHAR(22),
+     +    ISC_INFO_READ_SEQ_COUNT       = CHAR(23),
+     +    ISC_INFO_READ_IDX_COUNT       = CHAR(24), 
+     +    ISC_INFO_INSERT_COUNT          = CHAR(25),
+     +    ISC_INFO_UPDATE_COUNT         = CHAR(26),
+     +    ISC_INFO_DELETE_COUNT         = CHAR(27), 
+     +    ISC_INFO_BACKOUT_COUNT        = CHAR(28),
+     +    ISC_INFO_PURGE_COUNT          = CHAR(29), 
+     +    ISC_INFO_EXPUNGE_COUNT        = CHAR(30),
+     +    ISC_INFO_SWEEP_INTERVAL       = CHAR(31), 
+     +    ISC_INFO_ODS_VERSION          = CHAR(32),
+     +    ISC_INFO_ODS_MINOR_VERSION    = CHAR(33))
+
+
+C REQUEST INFORMATION ITEMS 
+
+      CHARACTER*1 ISC_INFO_NUMBER_MESSAGES, ISC_INFO_MAX_MESSAGE,
+     +    ISC_INFO_MAX_SEND, ISC_INFO_MAX_RECEIVE, ISC_INFO_STATE,
+     +    ISC_INFO_MESSAGE_NUMBER, ISC_INFO_MESSAGE_SIZE,
+     +    ISC_INFO_REQUEST_COST, ISC_INFO_REQ_ACTIVE,
+     +    ISC_INFO_REQ_INACTIVE, ISC_INFO_REQ_SEND,
+     +    ISC_INFO_REQ_RECEIVE, ISC_INFO_REQ_SELECT
+
+      PARAMETER (
+     +    ISC_INFO_NUMBER_MESSAGES     = CHAR(4),
+     +    ISC_INFO_MAX_MESSAGE         = CHAR(5),
+     +    ISC_INFO_MAX_SEND            = CHAR(6),
+     +    ISC_INFO_MAX_RECEIVE         = CHAR(7),
+     +    ISC_INFO_STATE               = CHAR(8),
+     +    ISC_INFO_MESSAGE_NUMBER      = CHAR(9),
+     +    ISC_INFO_MESSAGE_SIZE        = CHAR(10),
+     +    ISC_INFO_REQUEST_COST        = CHAR(11),
+     +    ISC_INFO_REQ_ACTIVE          = CHAR(2),
+     +    ISC_INFO_REQ_INACTIVE        = CHAR(3),
+     +    ISC_INFO_REQ_SEND            = CHAR(4),
+     +    ISC_INFO_REQ_RECEIVE         = CHAR(5),
+     +    ISC_INFO_REQ_SELECT          = CHAR(6))
+
+C BLOB INFORMATION ITEMS 
+
+      CHARACTER*1 ISC_INFO_BLOB_NUM_SEGMENTS,
+     +    ISC_INFO_BLOB_MAX_SEGMENT,
+     +    ISC_INFO_BLOB_TOTAL_LENGTH,
+     +    ISC_INFO_BLOB_TYPE
+
+      PARAMETER (
+     +    ISC_INFO_BLOB_NUM_SEGMENTS   = CHAR(4),
+     +    ISC_INFO_BLOB_MAX_SEGMENT    = CHAR(5),
+     +    ISC_INFO_BLOB_TOTAL_LENGTH   = CHAR(6),
+     +    ISC_INFO_BLOB_TYPE           = CHAR(7))
+
+C TRANSACTION INFORMATION ITEMS 
+
+      CHARACTER*1 ISC_INFO_TRA_ID
+      PARAMETER (
+     +    ISC_INFO_TRA_ID               = CHAR(4))
+
+C     Error Codes
+
+      INTEGER*4
+     + GDS_FACILITY,
+     + GDS_ERR_BASE,
+     + GDS_ERR_FACTOR
+
+      INTEGER*4
+     + GDS_ARG_END,          
+C				{ end of argument list }
+     + GDS_ARG_GDS,          
+C				{ generic DSRI status value }
+     + GDS_ARG_STRING,       
+C				{ string argument }
+     + GDS_ARG_CSTRING,      
+C				{ count & string argument }
+     + GDS_ARG_NUMBER,       
+C				{ numeric argument (long) }
+     + GDS_ARG_INTERPRETED,  
+C				{ interpreted status code (string) }
+     + GDS_ARG_VMS,          
+C				{ VAX/VMS status code (long) }
+     + GDS_ARG_UNIX,         
+C				{ UNIX error code }
+     + GDS_ARG_DOMAIN       
+C				{ Apollo/Domain error code }
+
+
+      PARAMETER (
+     + GDS_FACILITY    = 20,
+     + GDS_ERR_BASE    = 335544320,
+     + GDS_ERR_FACTOR  = 1)
+
+      PARAMETER (
+     + GDS_ARG_END          = 0,   
+C				{ end of argument list }
+     + GDS_ARG_GDS          = 1,   
+C				{ generic DSRI status value }
+     + GDS_ARG_STRING       = 2,   
+C				{ string argument }
+     + GDS_ARG_CSTRING      = 3,   
+C				{ count & string argument }
+     + GDS_ARG_NUMBER       = 4,   
+C				{ numeric argument (long) }
+     + GDS_ARG_INTERPRETED  = 5,   
+C				{ interpreted status code (string) }
+     + GDS_ARG_VMS          = 6,   
+C				{ VAX/VMS status code (long) }
+     + GDS_ARG_UNIX         = 7,   
+C				{ UNIX error code }
+     + GDS_ARG_DOMAIN       = 8)   
+C				{ Apollo/Domain error code }
+
+C     Error Codes
+
+      INTEGER*4
+     + ISC_FACILITY,
+     + ISC_ERR_BASE,
+     + ISC_ERR_FACTOR
+
+      INTEGER*4
+     + ISC_ARG_END,          
+C				{ end of argument list }
+     + ISC_ARG_GDS,          
+C				{ generic DSRI status value }
+     + ISC_ARG_STRING,       
+C				{ string argument }
+     + ISC_ARG_CSTRING,      
+C				{ count & string argument }
+     + ISC_ARG_NUMBER,       
+C				{ numeric argument (long) }
+     + ISC_ARG_INTERPRETED,  
+C				{ interpreted status code (string) }
+     + ISC_ARG_VMS,          
+C				{ VAX/VMS status code (long) }
+     + ISC_ARG_UNIX,         
+C				{ UNIX error code }
+     + ISC_ARG_DOMAIN       
+C				{ Apollo/Domain error code }
+
+
+      PARAMETER (
+     + ISC_FACILITY    = 20,
+     + ISC_ERR_BASE    = 335544320,
+     + ISC_ERR_FACTOR  = 1)
+
+      PARAMETER (
+     + ISC_ARG_END          = 0,   
+C				{ end of argument list }
+     + ISC_ARG_GDS          = 1,   
+C				{ generic DSRI status value }
+     + ISC_ARG_STRING       = 2,   
+C				{ string argument }
+     + ISC_ARG_CSTRING      = 3,   
+C				{ count & string argument }
+     + ISC_ARG_NUMBER       = 4,   
+C				{ numeric argument (long) }
+     + ISC_ARG_INTERPRETED  = 5,   
+C				{ interpreted status code (string) }
+     + ISC_ARG_VMS          = 6,   
+C				{ VAX/VMS status code (long) }
+     + ISC_ARG_UNIX         = 7,   
+C				{ UNIX error code }
+     + ISC_ARG_DOMAIN       = 8)   
+C				{ Apollo/Domain error code }
+
+
+      INTEGER*4 GDS__arith_except        
+      PARAMETER (GDS__arith_except         = 335544321)
+      INTEGER*4 GDS__bad_dbkey           
+      PARAMETER (GDS__bad_dbkey            = 335544322)
+      INTEGER*4 GDS__bad_db_format       
+      PARAMETER (GDS__bad_db_format        = 335544323)
+      INTEGER*4 GDS__bad_db_handle       
+      PARAMETER (GDS__bad_db_handle        = 335544324)
+      INTEGER*4 GDS__bad_dpb_content     
+      PARAMETER (GDS__bad_dpb_content      = 335544325)
+      INTEGER*4 GDS__bad_dpb_form        
+      PARAMETER (GDS__bad_dpb_form         = 335544326)
+      INTEGER*4 GDS__bad_req_handle      
+      PARAMETER (GDS__bad_req_handle       = 335544327)
+      INTEGER*4 GDS__bad_segstr_handle   
+      PARAMETER (GDS__bad_segstr_handle    = 335544328)
+      INTEGER*4 GDS__bad_segstr_id       
+      PARAMETER (GDS__bad_segstr_id        = 335544329)
+      INTEGER*4 GDS__bad_tpb_content     
+      PARAMETER (GDS__bad_tpb_content      = 335544330)
+      INTEGER*4 GDS__bad_tpb_form        
+      PARAMETER (GDS__bad_tpb_form         = 335544331)
+      INTEGER*4 GDS__bad_trans_handle    
+      PARAMETER (GDS__bad_trans_handle     = 335544332)
+      INTEGER*4 GDS__bug_check           
+      PARAMETER (GDS__bug_check            = 335544333)
+      INTEGER*4 GDS__convert_error       
+      PARAMETER (GDS__convert_error        = 335544334)
+      INTEGER*4 GDS__db_corrupt          
+      PARAMETER (GDS__db_corrupt           = 335544335)
+      INTEGER*4 GDS__deadlock            
+      PARAMETER (GDS__deadlock             = 335544336)
+      INTEGER*4 GDS__excess_trans        
+      PARAMETER (GDS__excess_trans         = 335544337)
+      INTEGER*4 GDS__from_no_match       
+      PARAMETER (GDS__from_no_match        = 335544338)
+      INTEGER*4 GDS__infinap             
+      PARAMETER (GDS__infinap              = 335544339)
+      INTEGER*4 GDS__infona              
+      PARAMETER (GDS__infona               = 335544340)
+      INTEGER*4 GDS__infunk              
+      PARAMETER (GDS__infunk               = 335544341)
+      INTEGER*4 GDS__integ_fail          
+      PARAMETER (GDS__integ_fail           = 335544342)
+      INTEGER*4 GDS__invalid_blr         
+      PARAMETER (GDS__invalid_blr          = 335544343)
+      INTEGER*4 GDS__io_error            
+      PARAMETER (GDS__io_error             = 335544344)
+      INTEGER*4 GDS__lock_conflict       
+      PARAMETER (GDS__lock_conflict        = 335544345)
+      INTEGER*4 GDS__metadata_corrupt    
+      PARAMETER (GDS__metadata_corrupt     = 335544346)
+      INTEGER*4 GDS__not_valid           
+      PARAMETER (GDS__not_valid            = 335544347)
+      INTEGER*4 GDS__no_cur_rec          
+      PARAMETER (GDS__no_cur_rec           = 335544348)
+      INTEGER*4 GDS__no_dup              
+      PARAMETER (GDS__no_dup               = 335544349)
+      INTEGER*4 GDS__no_finish           
+      PARAMETER (GDS__no_finish            = 335544350)
+      INTEGER*4 GDS__no_meta_update      
+      PARAMETER (GDS__no_meta_update       = 335544351)
+      INTEGER*4 GDS__no_priv             
+      PARAMETER (GDS__no_priv              = 335544352)
+      INTEGER*4 GDS__no_recon            
+      PARAMETER (GDS__no_recon             = 335544353)
+      INTEGER*4 GDS__no_record           
+      PARAMETER (GDS__no_record            = 335544354)
+      INTEGER*4 GDS__no_segstr_close     
+      PARAMETER (GDS__no_segstr_close      = 335544355)
+      INTEGER*4 GDS__obsolete_metadata   
+      PARAMETER (GDS__obsolete_metadata    = 335544356)
+      INTEGER*4 GDS__open_trans          
+      PARAMETER (GDS__open_trans           = 335544357)
+      INTEGER*4 GDS__port_len            
+      PARAMETER (GDS__port_len             = 335544358)
+      INTEGER*4 GDS__read_only_field     
+      PARAMETER (GDS__read_only_field      = 335544359)
+      INTEGER*4 GDS__read_only_rel       
+      PARAMETER (GDS__read_only_rel        = 335544360)
+      INTEGER*4 GDS__read_only_trans     
+      PARAMETER (GDS__read_only_trans      = 335544361)
+      INTEGER*4 GDS__read_only_view      
+      PARAMETER (GDS__read_only_view       = 335544362)
+      INTEGER*4 GDS__req_no_trans        
+      PARAMETER (GDS__req_no_trans         = 335544363)
+      INTEGER*4 GDS__req_sync            
+      PARAMETER (GDS__req_sync             = 335544364)
+      INTEGER*4 GDS__req_wrong_db        
+      PARAMETER (GDS__req_wrong_db         = 335544365)
+      INTEGER*4 GDS__segment             
+      PARAMETER (GDS__segment              = 335544366)
+      INTEGER*4 GDS__segstr_eof          
+      PARAMETER (GDS__segstr_eof           = 335544367)
+      INTEGER*4 GDS__segstr_no_op        
+      PARAMETER (GDS__segstr_no_op         = 335544368)
+      INTEGER*4 GDS__segstr_no_read      
+      PARAMETER (GDS__segstr_no_read       = 335544369)
+      INTEGER*4 GDS__segstr_no_trans     
+      PARAMETER (GDS__segstr_no_trans      = 335544370)
+      INTEGER*4 GDS__segstr_no_write     
+      PARAMETER (GDS__segstr_no_write      = 335544371)
+      INTEGER*4 GDS__segstr_wrong_db     
+      PARAMETER (GDS__segstr_wrong_db      = 335544372)
+      INTEGER*4 GDS__sys_request         
+      PARAMETER (GDS__sys_request          = 335544373)
+      INTEGER*4 GDS__stream_eof          
+      PARAMETER (GDS__stream_eof           = 335544374)
+      INTEGER*4 GDS__unavailable         
+      PARAMETER (GDS__unavailable          = 335544375)
+      INTEGER*4 GDS__unres_rel           
+      PARAMETER (GDS__unres_rel            = 335544376)
+      INTEGER*4 GDS__uns_ext             
+      PARAMETER (GDS__uns_ext              = 335544377)
+      INTEGER*4 GDS__wish_list           
+      PARAMETER (GDS__wish_list            = 335544378)
+      INTEGER*4 GDS__wrong_ods           
+      PARAMETER (GDS__wrong_ods            = 335544379)
+      INTEGER*4 GDS__wronumarg           
+      PARAMETER (GDS__wronumarg            = 335544380)
+      INTEGER*4 GDS__imp_exc             
+      PARAMETER (GDS__imp_exc              = 335544381)
+      INTEGER*4 GDS__random              
+      PARAMETER (GDS__random               = 335544382)
+      INTEGER*4 GDS__fatal_conflict      
+      PARAMETER (GDS__fatal_conflict       = 335544383)
+      INTEGER*4 GDS__badblk              
+      PARAMETER (GDS__badblk               = 335544384)
+      INTEGER*4 GDS__invpoolcl           
+      PARAMETER (GDS__invpoolcl            = 335544385)
+      INTEGER*4 GDS__nopoolids           
+      PARAMETER (GDS__nopoolids            = 335544386)
+      INTEGER*4 GDS__relbadblk           
+      PARAMETER (GDS__relbadblk            = 335544387)
+      INTEGER*4 GDS__blktoobig           
+      PARAMETER (GDS__blktoobig            = 335544388)
+      INTEGER*4 GDS__bufexh              
+      PARAMETER (GDS__bufexh               = 335544389)
+      INTEGER*4 GDS__syntaxerr           
+      PARAMETER (GDS__syntaxerr            = 335544390)
+      INTEGER*4 GDS__bufinuse            
+      PARAMETER (GDS__bufinuse             = 335544391)
+      INTEGER*4 GDS__bdbincon            
+      PARAMETER (GDS__bdbincon             = 335544392)
+      INTEGER*4 GDS__reqinuse            
+      PARAMETER (GDS__reqinuse             = 335544393)
+      INTEGER*4 GDS__badodsver           
+      PARAMETER (GDS__badodsver            = 335544394)
+      INTEGER*4 GDS__relnotdef           
+      PARAMETER (GDS__relnotdef            = 335544395)
+      INTEGER*4 GDS__fldnotdef           
+      PARAMETER (GDS__fldnotdef            = 335544396)
+      INTEGER*4 GDS__dirtypage           
+      PARAMETER (GDS__dirtypage            = 335544397)
+      INTEGER*4 GDS__waifortra           
+      PARAMETER (GDS__waifortra            = 335544398)
+      INTEGER*4 GDS__doubleloc           
+      PARAMETER (GDS__doubleloc            = 335544399)
+      INTEGER*4 GDS__nodnotfnd           
+      PARAMETER (GDS__nodnotfnd            = 335544400)
+      INTEGER*4 GDS__dupnodfnd           
+      PARAMETER (GDS__dupnodfnd            = 335544401)
+      INTEGER*4 GDS__locnotmar           
+      PARAMETER (GDS__locnotmar            = 335544402)
+      INTEGER*4 GDS__badpagtyp           
+      PARAMETER (GDS__badpagtyp            = 335544403)
+      INTEGER*4 GDS__corrupt             
+      PARAMETER (GDS__corrupt              = 335544404)
+      INTEGER*4 GDS__badpage             
+      PARAMETER (GDS__badpage              = 335544405)
+      INTEGER*4 GDS__badindex            
+      PARAMETER (GDS__badindex             = 335544406)
+      INTEGER*4 GDS__dbbnotzer           
+      PARAMETER (GDS__dbbnotzer            = 335544407)
+      INTEGER*4 GDS__tranotzer           
+      PARAMETER (GDS__tranotzer            = 335544408)
+      INTEGER*4 GDS__trareqmis           
+      PARAMETER (GDS__trareqmis            = 335544409)
+      INTEGER*4 GDS__badhndcnt           
+      PARAMETER (GDS__badhndcnt            = 335544410)
+      INTEGER*4 GDS__wrotpbver           
+      PARAMETER (GDS__wrotpbver            = 335544411)
+      INTEGER*4 GDS__wroblrver           
+      PARAMETER (GDS__wroblrver            = 335544412)
+      INTEGER*4 GDS__wrodpbver           
+      PARAMETER (GDS__wrodpbver            = 335544413)
+      INTEGER*4 GDS__blobnotsup          
+      PARAMETER (GDS__blobnotsup           = 335544414)
+      INTEGER*4 GDS__badrelation         
+      PARAMETER (GDS__badrelation          = 335544415)
+      INTEGER*4 GDS__nodetach            
+      PARAMETER (GDS__nodetach             = 335544416)
+      INTEGER*4 GDS__notremote           
+      PARAMETER (GDS__notremote            = 335544417)
+      INTEGER*4 GDS__trainlim            
+      PARAMETER (GDS__trainlim             = 335544418)
+      INTEGER*4 GDS__notinlim            
+      PARAMETER (GDS__notinlim             = 335544419)
+      INTEGER*4 GDS__traoutsta           
+      PARAMETER (GDS__traoutsta            = 335544420)
+      INTEGER*4 GDS__connect_reject      
+      PARAMETER (GDS__connect_reject       = 335544421)
+      INTEGER*4 GDS__dbfile              
+      PARAMETER (GDS__dbfile               = 335544422)
+      INTEGER*4 GDS__orphan              
+      PARAMETER (GDS__orphan               = 335544423)
+      INTEGER*4 GDS__no_lock_mgr         
+      PARAMETER (GDS__no_lock_mgr          = 335544424)
+      INTEGER*4 GDS__ctxinuse            
+      PARAMETER (GDS__ctxinuse             = 335544425)
+      INTEGER*4 GDS__ctxnotdef           
+      PARAMETER (GDS__ctxnotdef            = 335544426)
+      INTEGER*4 GDS__datnotsup           
+      PARAMETER (GDS__datnotsup            = 335544427)
+      INTEGER*4 GDS__badmsgnum           
+      PARAMETER (GDS__badmsgnum            = 335544428)
+      INTEGER*4 GDS__badparnum           
+      PARAMETER (GDS__badparnum            = 335544429)
+      INTEGER*4 GDS__virmemexh           
+      PARAMETER (GDS__virmemexh            = 335544430)
+      INTEGER*4 GDS__blocking_signal     
+      PARAMETER (GDS__blocking_signal      = 335544431)
+      INTEGER*4 GDS__lockmanerr          
+      PARAMETER (GDS__lockmanerr           = 335544432)
+      INTEGER*4 GDS__journerr            
+      PARAMETER (GDS__journerr             = 335544433)
+      INTEGER*4 GDS__keytoobig           
+      PARAMETER (GDS__keytoobig            = 335544434)
+      INTEGER*4 GDS__nullsegkey          
+      PARAMETER (GDS__nullsegkey           = 335544435)
+      INTEGER*4 GDS__sqlerr              
+      PARAMETER (GDS__sqlerr               = 335544436)
+      INTEGER*4 GDS__wrodynver           
+      PARAMETER (GDS__wrodynver            = 335544437)
+      INTEGER*4 GDS__funnotdef           
+      PARAMETER (GDS__funnotdef            = 335544438)
+      INTEGER*4 GDS__funmismat           
+      PARAMETER (GDS__funmismat            = 335544439)
+      INTEGER*4 GDS__bad_msg_vec         
+      PARAMETER (GDS__bad_msg_vec          = 335544440)
+      INTEGER*4 GDS__bad_detach          
+      PARAMETER (GDS__bad_detach           = 335544441)
+      INTEGER*4 GDS__noargacc_read       
+      PARAMETER (GDS__noargacc_read        = 335544442)
+      INTEGER*4 GDS__noargacc_write      
+      PARAMETER (GDS__noargacc_write       = 335544443)
+      INTEGER*4 GDS__read_only           
+      PARAMETER (GDS__read_only            = 335544444)
+      INTEGER*4 GDS__ext_err             
+      PARAMETER (GDS__ext_err              = 335544445)
+      INTEGER*4 GDS__non_updatable       
+      PARAMETER (GDS__non_updatable        = 335544446)
+      INTEGER*4 GDS__no_rollback         
+      PARAMETER (GDS__no_rollback          = 335544447)
+      INTEGER*4 GDS__bad_sec_info        
+      PARAMETER (GDS__bad_sec_info         = 335544448)
+      INTEGER*4 GDS__invalid_sec_info    
+      PARAMETER (GDS__invalid_sec_info     = 335544449)
+      INTEGER*4 GDS__misc_interpreted    
+      PARAMETER (GDS__misc_interpreted     = 335544450)
+      INTEGER*4 GDS__update_conflict     
+      PARAMETER (GDS__update_conflict      = 335544451)
+      INTEGER*4 GDS__unlicensed          
+      PARAMETER (GDS__unlicensed           = 335544452)
+      INTEGER*4 GDS__obj_in_use          
+      PARAMETER (GDS__obj_in_use           = 335544453)
+      INTEGER*4 GDS__nofilter            
+      PARAMETER (GDS__nofilter             = 335544454)
+      INTEGER*4 GDS__shadow_accessed     
+      PARAMETER (GDS__shadow_accessed      = 335544455)
+      INTEGER*4 GDS__invalid_sdl         
+      PARAMETER (GDS__invalid_sdl          = 335544456)
+      INTEGER*4 GDS__out_of_bounds       
+      PARAMETER (GDS__out_of_bounds        = 335544457)
+      INTEGER*4 GDS__invalid_dimension   
+      PARAMETER (GDS__invalid_dimension    = 335544458)
+      INTEGER*4 GDS__rec_in_limbo        
+      PARAMETER (GDS__rec_in_limbo         = 335544459)
+      INTEGER*4 GDS__shadow_missing      
+      PARAMETER (GDS__shadow_missing       = 335544460)
+      INTEGER*4 GDS__cant_validate       
+      PARAMETER (GDS__cant_validate        = 335544461)
+      INTEGER*4 GDS__cant_start_journal  
+      PARAMETER (GDS__cant_start_journal   = 335544462)
+      INTEGER*4 GDS__gennotdef           
+      PARAMETER (GDS__gennotdef            = 335544463)
+      INTEGER*4 GDS__cant_start_logging  
+      PARAMETER (GDS__cant_start_logging   = 335544464)
+      INTEGER*4 GDS__bad_segstr_type     
+      PARAMETER (GDS__bad_segstr_type      = 335544465)
+      INTEGER*4 GDS__foreign_key         
+      PARAMETER (GDS__foreign_key          = 335544466)
+      INTEGER*4 GDS__high_minor          
+      PARAMETER (GDS__high_minor           = 335544467)
+      INTEGER*4 GDS__tra_state           
+      PARAMETER (GDS__tra_state            = 335544468)
+      INTEGER*4 GDS__trans_invalid       
+      PARAMETER (GDS__trans_invalid        = 335544469)
+      INTEGER*4 GDS__buf_invalid         
+      PARAMETER (GDS__buf_invalid          = 335544470)
+      INTEGER*4 GDS__indexnotdefined     
+      PARAMETER (GDS__indexnotdefined      = 335544471)
+      INTEGER*4 GDS__login               
+      PARAMETER (GDS__login                = 335544472)
+      INTEGER*4 GDS__invalid_bookmark    
+      PARAMETER (GDS__invalid_bookmark     = 335544473)
+      INTEGER*4 GDS__bad_lock_level      
+      PARAMETER (GDS__bad_lock_level       = 335544474)
+      INTEGER*4 GDS__relation_lock       
+      PARAMETER (GDS__relation_lock        = 335544475)
+      INTEGER*4 GDS__record_lock         
+      PARAMETER (GDS__record_lock          = 335544476)
+      INTEGER*4 GDS__max_idx             
+      PARAMETER (GDS__max_idx              = 335544477)
+      INTEGER*4 GDS__jrn_enable          
+      PARAMETER (GDS__jrn_enable           = 335544478)
+      INTEGER*4 GDS__old_failure         
+      PARAMETER (GDS__old_failure          = 335544479)
+      INTEGER*4 GDS__old_in_progress     
+      PARAMETER (GDS__old_in_progress      = 335544480)
+      INTEGER*4 GDS__old_no_space        
+      PARAMETER (GDS__old_no_space         = 335544481)
+      INTEGER*4 GDS__no_wal_no_jrn       
+      PARAMETER (GDS__no_wal_no_jrn        = 335544482)
+      INTEGER*4 GDS__num_old_files       
+      PARAMETER (GDS__num_old_files        = 335544483)
+      INTEGER*4 GDS__wal_file_open       
+      PARAMETER (GDS__wal_file_open        = 335544484)
+      INTEGER*4 GDS__bad_stmt_handle     
+      PARAMETER (GDS__bad_stmt_handle      = 335544485)
+      INTEGER*4 GDS__wal_failure         
+      PARAMETER (GDS__wal_failure          = 335544486)
+      INTEGER*4 GDS__walw_err            
+      PARAMETER (GDS__walw_err             = 335544487)
+      INTEGER*4 GDS__logh_small          
+      PARAMETER (GDS__logh_small           = 335544488)
+      INTEGER*4 GDS__logh_inv_version    
+      PARAMETER (GDS__logh_inv_version     = 335544489)
+      INTEGER*4 GDS__logh_open_flag      
+      PARAMETER (GDS__logh_open_flag       = 335544490)
+      INTEGER*4 GDS__logh_open_flag2     
+      PARAMETER (GDS__logh_open_flag2      = 335544491)
+      INTEGER*4 GDS__logh_diff_dbname    
+      PARAMETER (GDS__logh_diff_dbname     = 335544492)
+      INTEGER*4 GDS__logf_unexpected_eof 
+      PARAMETER (GDS__logf_unexpected_eof  = 335544493)
+      INTEGER*4 GDS__logr_incomplete     
+      PARAMETER (GDS__logr_incomplete      = 335544494)
+      INTEGER*4 GDS__logr_header_small   
+      PARAMETER (GDS__logr_header_small    = 335544495)
+      INTEGER*4 GDS__logb_small          
+      PARAMETER (GDS__logb_small           = 335544496)
+      INTEGER*4 GDS__wal_illegal_attach  
+      PARAMETER (GDS__wal_illegal_attach   = 335544497)
+      INTEGER*4 GDS__wal_invalid_wpb     
+      PARAMETER (GDS__wal_invalid_wpb      = 335544498)
+      INTEGER*4 GDS__wal_err_rollover    
+      PARAMETER (GDS__wal_err_rollover     = 335544499)
+      INTEGER*4 GDS__no_wal              
+      PARAMETER (GDS__no_wal               = 335544500)
+      INTEGER*4 GDS__drop_wal            
+      PARAMETER (GDS__drop_wal             = 335544501)
+      INTEGER*4 GDS__stream_not_defined  
+      PARAMETER (GDS__stream_not_defined   = 335544502)
+      INTEGER*4 GDS__wal_subsys_error    
+      PARAMETER (GDS__wal_subsys_error     = 335544503)
+      INTEGER*4 GDS__wal_subsys_corrupt  
+      PARAMETER (GDS__wal_subsys_corrupt   = 335544504)
+      INTEGER*4 GDS__no_archive          
+      PARAMETER (GDS__no_archive           = 335544505)
+      INTEGER*4 GDS__shutinprog          
+      PARAMETER (GDS__shutinprog           = 335544506)
+      INTEGER*4 GDS__range_in_use        
+      PARAMETER (GDS__range_in_use         = 335544507)
+      INTEGER*4 GDS__range_not_found     
+      PARAMETER (GDS__range_not_found      = 335544508)
+      INTEGER*4 GDS__charset_not_found   
+      PARAMETER (GDS__charset_not_found    = 335544509)
+      INTEGER*4 GDS__lock_timeout        
+      PARAMETER (GDS__lock_timeout         = 335544510)
+      INTEGER*4 GDS__prcnotdef           
+      PARAMETER (GDS__prcnotdef            = 335544511)
+      INTEGER*4 GDS__prcmismat           
+      PARAMETER (GDS__prcmismat            = 335544512)
+      INTEGER*4 GDS__wal_bugcheck        
+      PARAMETER (GDS__wal_bugcheck         = 335544513)
+      INTEGER*4 GDS__wal_cant_expand     
+      PARAMETER (GDS__wal_cant_expand      = 335544514)
+      INTEGER*4 GDS__codnotdef           
+      PARAMETER (GDS__codnotdef            = 335544515)
+      INTEGER*4 GDS__xcpnotdef           
+      PARAMETER (GDS__xcpnotdef            = 335544516)
+      INTEGER*4 GDS__except              
+      PARAMETER (GDS__except               = 335544517)
+      INTEGER*4 GDS__cache_restart       
+      PARAMETER (GDS__cache_restart        = 335544518)
+      INTEGER*4 GDS__bad_lock_handle     
+      PARAMETER (GDS__bad_lock_handle      = 335544519)
+      INTEGER*4 GDS__jrn_present         
+      PARAMETER (GDS__jrn_present          = 335544520)
+      INTEGER*4 GDS__wal_err_rollover2   
+      PARAMETER (GDS__wal_err_rollover2    = 335544521)
+      INTEGER*4 GDS__wal_err_logwrite    
+      PARAMETER (GDS__wal_err_logwrite     = 335544522)
+      INTEGER*4 GDS__wal_err_jrn_comm    
+      PARAMETER (GDS__wal_err_jrn_comm     = 335544523)
+      INTEGER*4 GDS__wal_err_expansion   
+      PARAMETER (GDS__wal_err_expansion    = 335544524)
+      INTEGER*4 GDS__wal_err_setup       
+      PARAMETER (GDS__wal_err_setup        = 335544525)
+      INTEGER*4 GDS__wal_err_ww_sync     
+      PARAMETER (GDS__wal_err_ww_sync      = 335544526)
+      INTEGER*4 GDS__wal_err_ww_start    
+      PARAMETER (GDS__wal_err_ww_start     = 335544527)
+      INTEGER*4 GDS__shutdown            
+      PARAMETER (GDS__shutdown             = 335544528)
+      INTEGER*4 GDS__existing_priv_mod   
+      PARAMETER (GDS__existing_priv_mod    = 335544529)
+      INTEGER*4 GDS__primary_key_ref     
+      PARAMETER (GDS__primary_key_ref      = 335544530)
+      INTEGER*4 GDS__primary_key_notnull 
+      PARAMETER (GDS__primary_key_notnull  = 335544531)
+      INTEGER*4 GDS__ref_cnstrnt_notfound
+      PARAMETER (GDS__ref_cnstrnt_notfound = 335544532)
+      INTEGER*4 GDS__foreign_key_notfound
+      PARAMETER (GDS__foreign_key_notfound = 335544533)
+      INTEGER*4 GDS__ref_cnstrnt_update  
+      PARAMETER (GDS__ref_cnstrnt_update   = 335544534)
+      INTEGER*4 GDS__check_cnstrnt_update
+      PARAMETER (GDS__check_cnstrnt_update = 335544535)
+      INTEGER*4 GDS__check_cnstrnt_del   
+      PARAMETER (GDS__check_cnstrnt_del    = 335544536)
+      INTEGER*4 GDS__integ_index_seg_del 
+      PARAMETER (GDS__integ_index_seg_del  = 335544537)
+      INTEGER*4 GDS__integ_index_seg_mod 
+      PARAMETER (GDS__integ_index_seg_mod  = 335544538)
+      INTEGER*4 GDS__integ_index_del     
+      PARAMETER (GDS__integ_index_del      = 335544539)
+      INTEGER*4 GDS__integ_index_mod     
+      PARAMETER (GDS__integ_index_mod      = 335544540)
+      INTEGER*4 GDS__check_trig_del      
+      PARAMETER (GDS__check_trig_del       = 335544541)
+      INTEGER*4 GDS__check_trig_update   
+      PARAMETER (GDS__check_trig_update    = 335544542)
+      INTEGER*4 GDS__cnstrnt_fld_del     
+      PARAMETER (GDS__cnstrnt_fld_del      = 335544543)
+      INTEGER*4 GDS__cnstrnt_fld_rename  
+      PARAMETER (GDS__cnstrnt_fld_rename   = 335544544)
+      INTEGER*4 GDS__rel_cnstrnt_update  
+      PARAMETER (GDS__rel_cnstrnt_update   = 335544545)
+      INTEGER*4 GDS__constaint_on_view   
+      PARAMETER (GDS__constaint_on_view    = 335544546)
+      INTEGER*4 GDS__invld_cnstrnt_type  
+      PARAMETER (GDS__invld_cnstrnt_type   = 335544547)
+      INTEGER*4 GDS__primary_key_exists  
+      PARAMETER (GDS__primary_key_exists   = 335544548)
+      INTEGER*4 GDS__systrig_update      
+      PARAMETER (GDS__systrig_update       = 335544549)
+      INTEGER*4 GDS__not_rel_owner       
+      PARAMETER (GDS__not_rel_owner        = 335544550)
+      INTEGER*4 GDS__grant_obj_notfound  
+      PARAMETER (GDS__grant_obj_notfound   = 335544551)
+      INTEGER*4 GDS__grant_fld_notfound  
+      PARAMETER (GDS__grant_fld_notfound   = 335544552)
+      INTEGER*4 GDS__grant_nopriv        
+      PARAMETER (GDS__grant_nopriv         = 335544553)
+      INTEGER*4 GDS__nonsql_security_rel 
+      PARAMETER (GDS__nonsql_security_rel  = 335544554)
+      INTEGER*4 GDS__nonsql_security_fld 
+      PARAMETER (GDS__nonsql_security_fld  = 335544555)
+      INTEGER*4 GDS__wal_cache_err       
+      PARAMETER (GDS__wal_cache_err        = 335544556)
+      INTEGER*4 GDS__shutfail            
+      PARAMETER (GDS__shutfail             = 335544557)
+      INTEGER*4 GDS__check_constraint    
+      PARAMETER (GDS__check_constraint     = 335544558)
+      INTEGER*4 GDS__bad_svc_handle      
+      PARAMETER (GDS__bad_svc_handle       = 335544559)
+      INTEGER*4 GDS__shutwarn            
+      PARAMETER (GDS__shutwarn             = 335544560)
+      INTEGER*4 GDS__wrospbver           
+      PARAMETER (GDS__wrospbver            = 335544561)
+      INTEGER*4 GDS__bad_spb_form        
+      PARAMETER (GDS__bad_spb_form         = 335544562)
+      INTEGER*4 GDS__svcnotdef           
+      PARAMETER (GDS__svcnotdef            = 335544563)
+      INTEGER*4 GDS__no_jrn              
+      PARAMETER (GDS__no_jrn               = 335544564)
+      INTEGER*4 GDS__transliteration_fail
+      PARAMETER (GDS__transliteration_fail = 335544565)
+      INTEGER*4 GDS__start_cm_for_wal    
+      PARAMETER (GDS__start_cm_for_wal     = 335544566)
+      INTEGER*4 GDS__wal_ovflow_log_requi
+      PARAMETER (GDS__wal_ovflow_log_requi = 335544567)
+      INTEGER*4 GDS__text_subtype        
+      PARAMETER (GDS__text_subtype         = 335544568)
+      INTEGER*4 GDS__dsql_error          
+      PARAMETER (GDS__dsql_error           = 335544569)
+      INTEGER*4 GDS__dsql_command_err    
+      PARAMETER (GDS__dsql_command_err     = 335544570)
+      INTEGER*4 GDS__dsql_constant_err   
+      PARAMETER (GDS__dsql_constant_err    = 335544571)
+      INTEGER*4 GDS__dsql_cursor_err     
+      PARAMETER (GDS__dsql_cursor_err      = 335544572)
+      INTEGER*4 GDS__dsql_datatype_err   
+      PARAMETER (GDS__dsql_datatype_err    = 335544573)
+      INTEGER*4 GDS__dsql_decl_err       
+      PARAMETER (GDS__dsql_decl_err        = 335544574)
+      INTEGER*4 GDS__dsql_cursor_update_e
+      PARAMETER (GDS__dsql_cursor_update_e = 335544575)
+      INTEGER*4 GDS__dsql_cursor_open_err
+      PARAMETER (GDS__dsql_cursor_open_err = 335544576)
+      INTEGER*4 GDS__dsql_cursor_close_er
+      PARAMETER (GDS__dsql_cursor_close_er = 335544577)
+      INTEGER*4 GDS__dsql_field_err      
+      PARAMETER (GDS__dsql_field_err       = 335544578)
+      INTEGER*4 GDS__dsql_internal_err   
+      PARAMETER (GDS__dsql_internal_err    = 335544579)
+      INTEGER*4 GDS__dsql_relation_err   
+      PARAMETER (GDS__dsql_relation_err    = 335544580)
+      INTEGER*4 GDS__dsql_procedure_err  
+      PARAMETER (GDS__dsql_procedure_err   = 335544581)
+      INTEGER*4 GDS__dsql_request_err    
+      PARAMETER (GDS__dsql_request_err     = 335544582)
+      INTEGER*4 GDS__dsql_sqlda_err      
+      PARAMETER (GDS__dsql_sqlda_err       = 335544583)
+      INTEGER*4 GDS__dsql_var_count_err  
+      PARAMETER (GDS__dsql_var_count_err   = 335544584)
+      INTEGER*4 GDS__dsql_stmt_handle    
+      PARAMETER (GDS__dsql_stmt_handle     = 335544585)
+      INTEGER*4 GDS__dsql_function_err   
+      PARAMETER (GDS__dsql_function_err    = 335544586)
+      INTEGER*4 GDS__dsql_blob_err       
+      PARAMETER (GDS__dsql_blob_err        = 335544587)
+      INTEGER*4 GDS__collation_not_found 
+      PARAMETER (GDS__collation_not_found  = 335544588)
+      INTEGER*4 GDS__collation_not_for_ch
+      PARAMETER (GDS__collation_not_for_ch = 335544589)
+      INTEGER*4 GDS__dsql_dup_option     
+      PARAMETER (GDS__dsql_dup_option      = 335544590)
+      INTEGER*4 GDS__dsql_tran_err       
+      PARAMETER (GDS__dsql_tran_err        = 335544591)
+      INTEGER*4 GDS__dsql_invalid_array  
+      PARAMETER (GDS__dsql_invalid_array   = 335544592)
+      INTEGER*4 GDS__dsql_max_arr_dim_exc
+      PARAMETER (GDS__dsql_max_arr_dim_exc = 335544593)
+      INTEGER*4 GDS__dsql_arr_range_error
+      PARAMETER (GDS__dsql_arr_range_error = 335544594)
+      INTEGER*4 GDS__dsql_trigger_err    
+      PARAMETER (GDS__dsql_trigger_err     = 335544595)
+      INTEGER*4 GDS__dsql_subselect_err  
+      PARAMETER (GDS__dsql_subselect_err   = 335544596)
+      INTEGER*4 GDS__dsql_crdb_prepare_er
+      PARAMETER (GDS__dsql_crdb_prepare_er = 335544597)
+      INTEGER*4 GDS__specify_field_err   
+      PARAMETER (GDS__specify_field_err    = 335544598)
+      INTEGER*4 GDS__num_field_err       
+      PARAMETER (GDS__num_field_err        = 335544599)
+      INTEGER*4 GDS__col_name_err        
+      PARAMETER (GDS__col_name_err         = 335544600)
+      INTEGER*4 GDS__where_err           
+      PARAMETER (GDS__where_err            = 335544601)
+      INTEGER*4 GDS__table_view_err      
+      PARAMETER (GDS__table_view_err       = 335544602)
+      INTEGER*4 GDS__distinct_err        
+      PARAMETER (GDS__distinct_err         = 335544603)
+      INTEGER*4 GDS__key_field_count_err 
+      PARAMETER (GDS__key_field_count_err  = 335544604)
+      INTEGER*4 GDS__subquery_err        
+      PARAMETER (GDS__subquery_err         = 335544605)
+      INTEGER*4 GDS__expression_eval_err 
+      PARAMETER (GDS__expression_eval_err  = 335544606)
+      INTEGER*4 GDS__node_err            
+      PARAMETER (GDS__node_err             = 335544607)
+      INTEGER*4 GDS__command_end_err     
+      PARAMETER (GDS__command_end_err      = 335544608)
+      INTEGER*4 GDS__index_name          
+      PARAMETER (GDS__index_name           = 335544609)
+      INTEGER*4 GDS__exception_name      
+      PARAMETER (GDS__exception_name       = 335544610)
+      INTEGER*4 GDS__field_name          
+      PARAMETER (GDS__field_name           = 335544611)
+      INTEGER*4 GDS__token_err           
+      PARAMETER (GDS__token_err            = 335544612)
+      INTEGER*4 GDS__union_err           
+      PARAMETER (GDS__union_err            = 335544613)
+      INTEGER*4 GDS__dsql_construct_err  
+      PARAMETER (GDS__dsql_construct_err   = 335544614)
+      INTEGER*4 GDS__field_aggregate_err 
+      PARAMETER (GDS__field_aggregate_err  = 335544615)
+      INTEGER*4 GDS__field_ref_err       
+      PARAMETER (GDS__field_ref_err        = 335544616)
+      INTEGER*4 GDS__order_by_err        
+      PARAMETER (GDS__order_by_err         = 335544617)
+      INTEGER*4 GDS__return_mode_err     
+      PARAMETER (GDS__return_mode_err      = 335544618)
+      INTEGER*4 GDS__extern_func_err     
+      PARAMETER (GDS__extern_func_err      = 335544619)
+      INTEGER*4 GDS__alias_conflict_err  
+      PARAMETER (GDS__alias_conflict_err   = 335544620)
+      INTEGER*4 GDS__procedure_conflict_e
+      PARAMETER (GDS__procedure_conflict_e = 335544621)
+      INTEGER*4 GDS__relation_conflict_er
+      PARAMETER (GDS__relation_conflict_er = 335544622)
+      INTEGER*4 GDS__dsql_domain_err     
+      PARAMETER (GDS__dsql_domain_err      = 335544623)
+      INTEGER*4 GDS__idx_seg_err         
+      PARAMETER (GDS__idx_seg_err          = 335544624)
+      INTEGER*4 GDS__node_name_err       
+      PARAMETER (GDS__node_name_err        = 335544625)
+      INTEGER*4 GDS__table_name          
+      PARAMETER (GDS__table_name           = 335544626)
+      INTEGER*4 GDS__proc_name           
+      PARAMETER (GDS__proc_name            = 335544627)
+      INTEGER*4 GDS__idx_create_err      
+      PARAMETER (GDS__idx_create_err       = 335544628)
+      INTEGER*4 GDS__wal_shadow_err      
+      PARAMETER (GDS__wal_shadow_err       = 335544629)
+      INTEGER*4 GDS__dependency          
+      PARAMETER (GDS__dependency           = 335544630)
+      INTEGER*4 GDS__idx_key_err         
+      PARAMETER (GDS__idx_key_err          = 335544631)
+      INTEGER*4 GDS__dsql_file_length_err
+      PARAMETER (GDS__dsql_file_length_err = 335544632)
+      INTEGER*4 GDS__dsql_shadow_number_e
+      PARAMETER (GDS__dsql_shadow_number_e = 335544633)
+      INTEGER*4 GDS__dsql_token_unk_err  
+      PARAMETER (GDS__dsql_token_unk_err   = 335544634)
+      INTEGER*4 GDS__dsql_no_relation_ali
+      PARAMETER (GDS__dsql_no_relation_ali = 335544635)
+      INTEGER*4 GDS__indexname           
+      PARAMETER (GDS__indexname            = 335544636)
+      INTEGER*4 GDS__no_stream_plan      
+      PARAMETER (GDS__no_stream_plan       = 335544637)
+      INTEGER*4 GDS__stream_twice        
+      PARAMETER (GDS__stream_twice         = 335544638)
+      INTEGER*4 GDS__stream_not_found    
+      PARAMETER (GDS__stream_not_found     = 335544639)
+      INTEGER*4 GDS__collation_requires_t
+      PARAMETER (GDS__collation_requires_t = 335544640)
+      INTEGER*4 GDS__dsql_domain_not_foun
+      PARAMETER (GDS__dsql_domain_not_foun = 335544641)
+      INTEGER*4 GDS__index_unused        
+      PARAMETER (GDS__index_unused         = 335544642)
+      INTEGER*4 GDS__dsql_self_join      
+      PARAMETER (GDS__dsql_self_join       = 335544643)
+      INTEGER*4 GDS__stream_bof          
+      PARAMETER (GDS__stream_bof           = 335544644)
+      INTEGER*4 GDS__stream_crack        
+      PARAMETER (GDS__stream_crack         = 335544645)
+      INTEGER*4 GDS__db_or_file_exists   
+      PARAMETER (GDS__db_or_file_exists    = 335544646)
+      INTEGER*4 GDS__invalid_operator    
+      PARAMETER (GDS__invalid_operator     = 335544647)
+      INTEGER*4 GDS__conn_lost           
+      PARAMETER (GDS__conn_lost            = 335544648)
+      INTEGER*4 GDS__bad_checksum        
+      PARAMETER (GDS__bad_checksum         = 335544649)
+      INTEGER*4 GDS__page_type_err       
+      PARAMETER (GDS__page_type_err        = 335544650)
+      INTEGER*4 GDS__ext_readonly_err    
+      PARAMETER (GDS__ext_readonly_err     = 335544651)
+      INTEGER*4 GDS__sing_select_err     
+      PARAMETER (GDS__sing_select_err      = 335544652)
+      INTEGER*4 GDS__psw_attach          
+      PARAMETER (GDS__psw_attach           = 335544653)
+      INTEGER*4 GDS__psw_start_trans     
+      PARAMETER (GDS__psw_start_trans      = 335544654)
+      INTEGER*4 GDS__invalid_direction   
+      PARAMETER (GDS__invalid_direction    = 335544655)
+      INTEGER*4 GDS__dsql_var_conflict   
+      PARAMETER (GDS__dsql_var_conflict    = 335544656)
+      INTEGER*4 GDS__dsql_no_blob_array  
+      PARAMETER (GDS__dsql_no_blob_array   = 335544657)
+      INTEGER*4 GDS__dsql_base_table     
+      PARAMETER (GDS__dsql_base_table      = 335544658)
+      INTEGER*4 GDS__duplicate_base_table
+      PARAMETER (GDS__duplicate_base_table = 335544659)
+      INTEGER*4 GDS__view_alias          
+      PARAMETER (GDS__view_alias           = 335544660)
+      INTEGER*4 GDS__index_root_page_full
+      PARAMETER (GDS__index_root_page_full = 335544661)
+      INTEGER*4 GDS__dsql_blob_type_unkno
+      PARAMETER (GDS__dsql_blob_type_unkno = 335544662)
+      INTEGER*4 GDS__req_max_clones_excee
+      PARAMETER (GDS__req_max_clones_excee = 335544663)
+      INTEGER*4 GDS__dsql_duplicate_spec 
+      PARAMETER (GDS__dsql_duplicate_spec  = 335544664)
+      INTEGER*4 GDS__unique_key_violation
+      PARAMETER (GDS__unique_key_violation = 335544665)
+      INTEGER*4 GDS__srvr_version_too_old
+      PARAMETER (GDS__srvr_version_too_old = 335544666)
+      INTEGER*4 GDS__drdb_completed_with_
+      PARAMETER (GDS__drdb_completed_with_ = 335544667)
+      INTEGER*4 GDS__dsql_procedure_use_e
+      PARAMETER (GDS__dsql_procedure_use_e = 335544668)
+      INTEGER*4 GDS__dsql_count_mismatch 
+      PARAMETER (GDS__dsql_count_mismatch  = 335544669)
+      INTEGER*4 GDS__blob_idx_err        
+      PARAMETER (GDS__blob_idx_err         = 335544670)
+      INTEGER*4 GDS__array_idx_err       
+      PARAMETER (GDS__array_idx_err        = 335544671)
+      INTEGER*4 GDS__key_field_err       
+      PARAMETER (GDS__key_field_err        = 335544672)
+      INTEGER*4 GDS__no_delete           
+      PARAMETER (GDS__no_delete            = 335544673)
+      INTEGER*4 GDS__del_last_field      
+      PARAMETER (GDS__del_last_field       = 335544674)
+      INTEGER*4 GDS__sort_err            
+      PARAMETER (GDS__sort_err             = 335544675)
+      INTEGER*4 GDS__sort_mem_err        
+      PARAMETER (GDS__sort_mem_err         = 335544676)
+      INTEGER*4 GDS__version_err         
+      PARAMETER (GDS__version_err          = 335544677)
+      INTEGER*4 GDS__inval_key_posn      
+      PARAMETER (GDS__inval_key_posn       = 335544678)
+      INTEGER*4 GDS__no_segments_err     
+      PARAMETER (GDS__no_segments_err      = 335544679)
+      INTEGER*4 GDS__crrp_data_err       
+      PARAMETER (GDS__crrp_data_err        = 335544680)
+      INTEGER*4 GDS__rec_size_err        
+      PARAMETER (GDS__rec_size_err         = 335544681)
+      INTEGER*4 GDS__dsql_field_ref      
+      PARAMETER (GDS__dsql_field_ref       = 335544682)
+      INTEGER*4 GDS__req_depth_exceeded  
+      PARAMETER (GDS__req_depth_exceeded   = 335544683)
+      INTEGER*4 GDS__no_field_access     
+      PARAMETER (GDS__no_field_access      = 335544684)
+      INTEGER*4 GDS__no_dbkey            
+      PARAMETER (GDS__no_dbkey             = 335544685)
+      INTEGER*4 GDS__jrn_format_err      
+      PARAMETER (GDS__jrn_format_err       = 335544686)
+      INTEGER*4 GDS__jrn_file_full       
+      PARAMETER (GDS__jrn_file_full        = 335544687)
+      INTEGER*4 GDS__dsql_open_cursor_req
+      PARAMETER (GDS__dsql_open_cursor_req = 335544688)
+      INTEGER*4 GDS__ib_error            
+      PARAMETER (GDS__ib_error             = 335544689)
+      INTEGER*4 GDS__cache_redef         
+      PARAMETER (GDS__cache_redef          = 335544690)
+      INTEGER*4 GDS__cache_too_small     
+      PARAMETER (GDS__cache_too_small      = 335544691)
+      INTEGER*4 GDS__log_redef           
+      PARAMETER (GDS__log_redef            = 335544692)
+      INTEGER*4 GDS__log_too_small       
+      PARAMETER (GDS__log_too_small        = 335544693)
+      INTEGER*4 GDS__partition_too_small 
+      PARAMETER (GDS__partition_too_small  = 335544694)
+      INTEGER*4 GDS__partition_not_supp  
+      PARAMETER (GDS__partition_not_supp   = 335544695)
+      INTEGER*4 GDS__log_length_spec     
+      PARAMETER (GDS__log_length_spec      = 335544696)
+      INTEGER*4 GDS__precision_err       
+      PARAMETER (GDS__precision_err        = 335544697)
+      INTEGER*4 GDS__scale_nogt          
+      PARAMETER (GDS__scale_nogt           = 335544698)
+      INTEGER*4 GDS__expec_short         
+      PARAMETER (GDS__expec_short          = 335544699)
+      INTEGER*4 GDS__expec_long          
+      PARAMETER (GDS__expec_long           = 335544700)
+      INTEGER*4 GDS__expec_ushort        
+      PARAMETER (GDS__expec_ushort         = 335544701)
+      INTEGER*4 GDS__like_escape_invalid 
+      PARAMETER (GDS__like_escape_invalid  = 335544702)
+      INTEGER*4 GDS__svcnoexe            
+      PARAMETER (GDS__svcnoexe             = 335544703)
+      INTEGER*4 GDS__net_lookup_err      
+      PARAMETER (GDS__net_lookup_err       = 335544704)
+      INTEGER*4 GDS__service_unknown     
+      PARAMETER (GDS__service_unknown      = 335544705)
+      INTEGER*4 GDS__host_unknown        
+      PARAMETER (GDS__host_unknown         = 335544706)
+      INTEGER*4 GDS__grant_nopriv_on_base
+      PARAMETER (GDS__grant_nopriv_on_base = 335544707)
+      INTEGER*4 GDS__dyn_fld_ambiguous   
+      PARAMETER (GDS__dyn_fld_ambiguous    = 335544708)
+      INTEGER*4 GDS__dsql_agg_ref_err    
+      PARAMETER (GDS__dsql_agg_ref_err     = 335544709)
+      INTEGER*4 GDS__complex_view        
+      PARAMETER (GDS__complex_view         = 335544710)
+      INTEGER*4 GDS__unprepared_stmt     
+      PARAMETER (GDS__unprepared_stmt      = 335544711)
+      INTEGER*4 GDS__expec_positive      
+      PARAMETER (GDS__expec_positive       = 335544712)
+      INTEGER*4 GDS__dsql_sqlda_value_err
+      PARAMETER (GDS__dsql_sqlda_value_err = 335544713)
+      INTEGER*4 GDS__invalid_array_id    
+      PARAMETER (GDS__invalid_array_id     = 335544714)
+      INTEGER*4 GDS__extfile_uns_op      
+      PARAMETER (GDS__extfile_uns_op       = 335544715)
+      INTEGER*4 GDS__svc_in_use          
+      PARAMETER (GDS__svc_in_use           = 335544716)
+      INTEGER*4 GDS__err_stack_limit     
+      PARAMETER (GDS__err_stack_limit      = 335544717)
+      INTEGER*4 GDS__invalid_key         
+      PARAMETER (GDS__invalid_key          = 335544718)
+      INTEGER*4 GDS__net_init_error      
+      PARAMETER (GDS__net_init_error       = 335544719)
+      INTEGER*4 GDS__loadlib_failure     
+      PARAMETER (GDS__loadlib_failure      = 335544720)
+      INTEGER*4 GDS__network_error       
+      PARAMETER (GDS__network_error        = 335544721)
+      INTEGER*4 GDS__net_connect_err     
+      PARAMETER (GDS__net_connect_err      = 335544722)
+      INTEGER*4 GDS__net_connect_listen_e
+      PARAMETER (GDS__net_connect_listen_e = 335544723)
+      INTEGER*4 GDS__net_event_connect_er
+      PARAMETER (GDS__net_event_connect_er = 335544724)
+      INTEGER*4 GDS__net_event_listen_err
+      PARAMETER (GDS__net_event_listen_err = 335544725)
+      INTEGER*4 GDS__net_read_err        
+      PARAMETER (GDS__net_read_err         = 335544726)
+      INTEGER*4 GDS__net_write_err       
+      PARAMETER (GDS__net_write_err        = 335544727)
+      INTEGER*4 GDS__integ_index_deactiva
+      PARAMETER (GDS__integ_index_deactiva = 335544728)
+      INTEGER*4 GDS__integ_deactivate_pri
+      PARAMETER (GDS__integ_deactivate_pri = 335544729)
+      INTEGER*4 GDS__cse_not_supported   
+      PARAMETER (GDS__cse_not_supported    = 335544730)
+
+
+      INTEGER*4 ISC_arith_except        
+      PARAMETER (ISC_arith_except         = 335544321)
+      INTEGER*4 ISC_bad_dbkey           
+      PARAMETER (ISC_bad_dbkey            = 335544322)
+      INTEGER*4 ISC_bad_db_format       
+      PARAMETER (ISC_bad_db_format        = 335544323)
+      INTEGER*4 ISC_bad_db_handle       
+      PARAMETER (ISC_bad_db_handle        = 335544324)
+      INTEGER*4 ISC_bad_dpb_content     
+      PARAMETER (ISC_bad_dpb_content      = 335544325)
+      INTEGER*4 ISC_bad_dpb_form        
+      PARAMETER (ISC_bad_dpb_form         = 335544326)
+      INTEGER*4 ISC_bad_req_handle      
+      PARAMETER (ISC_bad_req_handle       = 335544327)
+      INTEGER*4 ISC_bad_segstr_handle   
+      PARAMETER (ISC_bad_segstr_handle    = 335544328)
+      INTEGER*4 ISC_bad_segstr_id       
+      PARAMETER (ISC_bad_segstr_id        = 335544329)
+      INTEGER*4 ISC_bad_tpb_content     
+      PARAMETER (ISC_bad_tpb_content      = 335544330)
+      INTEGER*4 ISC_bad_tpb_form        
+      PARAMETER (ISC_bad_tpb_form         = 335544331)
+      INTEGER*4 ISC_bad_trans_handle    
+      PARAMETER (ISC_bad_trans_handle     = 335544332)
+      INTEGER*4 ISC_bug_check           
+      PARAMETER (ISC_bug_check            = 335544333)
+      INTEGER*4 ISC_convert_error       
+      PARAMETER (ISC_convert_error        = 335544334)
+      INTEGER*4 ISC_db_corrupt          
+      PARAMETER (ISC_db_corrupt           = 335544335)
+      INTEGER*4 ISC_deadlock            
+      PARAMETER (ISC_deadlock             = 335544336)
+      INTEGER*4 ISC_excess_trans        
+      PARAMETER (ISC_excess_trans         = 335544337)
+      INTEGER*4 ISC_from_no_match       
+      PARAMETER (ISC_from_no_match        = 335544338)
+      INTEGER*4 ISC_infinap             
+      PARAMETER (ISC_infinap              = 335544339)
+      INTEGER*4 ISC_infona              
+      PARAMETER (ISC_infona               = 335544340)
+      INTEGER*4 ISC_infunk              
+      PARAMETER (ISC_infunk               = 335544341)
+      INTEGER*4 ISC_integ_fail          
+      PARAMETER (ISC_integ_fail           = 335544342)
+      INTEGER*4 ISC_invalid_blr         
+      PARAMETER (ISC_invalid_blr          = 335544343)
+      INTEGER*4 ISC_io_error            
+      PARAMETER (ISC_io_error             = 335544344)
+      INTEGER*4 ISC_lock_conflict       
+      PARAMETER (ISC_lock_conflict        = 335544345)
+      INTEGER*4 ISC_metadata_corrupt    
+      PARAMETER (ISC_metadata_corrupt     = 335544346)
+      INTEGER*4 ISC_not_valid           
+      PARAMETER (ISC_not_valid            = 335544347)
+      INTEGER*4 ISC_no_cur_rec          
+      PARAMETER (ISC_no_cur_rec           = 335544348)
+      INTEGER*4 ISC_no_dup              
+      PARAMETER (ISC_no_dup               = 335544349)
+      INTEGER*4 ISC_no_finish           
+      PARAMETER (ISC_no_finish            = 335544350)
+      INTEGER*4 ISC_no_meta_update      
+      PARAMETER (ISC_no_meta_update       = 335544351)
+      INTEGER*4 ISC_no_priv             
+      PARAMETER (ISC_no_priv              = 335544352)
+      INTEGER*4 ISC_no_recon            
+      PARAMETER (ISC_no_recon             = 335544353)
+      INTEGER*4 ISC_no_record           
+      PARAMETER (ISC_no_record            = 335544354)
+      INTEGER*4 ISC_no_segstr_close     
+      PARAMETER (ISC_no_segstr_close      = 335544355)
+      INTEGER*4 ISC_obsolete_metadata   
+      PARAMETER (ISC_obsolete_metadata    = 335544356)
+      INTEGER*4 ISC_open_trans          
+      PARAMETER (ISC_open_trans           = 335544357)
+      INTEGER*4 ISC_port_len            
+      PARAMETER (ISC_port_len             = 335544358)
+      INTEGER*4 ISC_read_only_field     
+      PARAMETER (ISC_read_only_field      = 335544359)
+      INTEGER*4 ISC_read_only_rel       
+      PARAMETER (ISC_read_only_rel        = 335544360)
+      INTEGER*4 ISC_read_only_trans     
+      PARAMETER (ISC_read_only_trans      = 335544361)
+      INTEGER*4 ISC_read_only_view      
+      PARAMETER (ISC_read_only_view       = 335544362)
+      INTEGER*4 ISC_req_no_trans        
+      PARAMETER (ISC_req_no_trans         = 335544363)
+      INTEGER*4 ISC_req_sync            
+      PARAMETER (ISC_req_sync             = 335544364)
+      INTEGER*4 ISC_req_wrong_db        
+      PARAMETER (ISC_req_wrong_db         = 335544365)
+      INTEGER*4 ISC_segment             
+      PARAMETER (ISC_segment              = 335544366)
+      INTEGER*4 ISC_segstr_eof          
+      PARAMETER (ISC_segstr_eof           = 335544367)
+      INTEGER*4 ISC_segstr_no_op        
+      PARAMETER (ISC_segstr_no_op         = 335544368)
+      INTEGER*4 ISC_segstr_no_read      
+      PARAMETER (ISC_segstr_no_read       = 335544369)
+      INTEGER*4 ISC_segstr_no_trans     
+      PARAMETER (ISC_segstr_no_trans      = 335544370)
+      INTEGER*4 ISC_segstr_no_write     
+      PARAMETER (ISC_segstr_no_write      = 335544371)
+      INTEGER*4 ISC_segstr_wrong_db     
+      PARAMETER (ISC_segstr_wrong_db      = 335544372)
+      INTEGER*4 ISC_sys_request         
+      PARAMETER (ISC_sys_request          = 335544373)
+      INTEGER*4 ISC_stream_eof          
+      PARAMETER (ISC_stream_eof           = 335544374)
+      INTEGER*4 ISC_unavailable         
+      PARAMETER (ISC_unavailable          = 335544375)
+      INTEGER*4 ISC_unres_rel           
+      PARAMETER (ISC_unres_rel            = 335544376)
+      INTEGER*4 ISC_uns_ext             
+      PARAMETER (ISC_uns_ext              = 335544377)
+      INTEGER*4 ISC_wish_list           
+      PARAMETER (ISC_wish_list            = 335544378)
+      INTEGER*4 ISC_wrong_ods           
+      PARAMETER (ISC_wrong_ods            = 335544379)
+      INTEGER*4 ISC_wronumarg           
+      PARAMETER (ISC_wronumarg            = 335544380)
+      INTEGER*4 ISC_imp_exc             
+      PARAMETER (ISC_imp_exc              = 335544381)
+      INTEGER*4 ISC_random              
+      PARAMETER (ISC_random               = 335544382)
+      INTEGER*4 ISC_fatal_conflict      
+      PARAMETER (ISC_fatal_conflict       = 335544383)
+      INTEGER*4 ISC_badblk              
+      PARAMETER (ISC_badblk               = 335544384)
+      INTEGER*4 ISC_invpoolcl           
+      PARAMETER (ISC_invpoolcl            = 335544385)
+      INTEGER*4 ISC_nopoolids           
+      PARAMETER (ISC_nopoolids            = 335544386)
+      INTEGER*4 ISC_relbadblk           
+      PARAMETER (ISC_relbadblk            = 335544387)
+      INTEGER*4 ISC_blktoobig           
+      PARAMETER (ISC_blktoobig            = 335544388)
+      INTEGER*4 ISC_bufexh              
+      PARAMETER (ISC_bufexh               = 335544389)
+      INTEGER*4 ISC_syntaxerr           
+      PARAMETER (ISC_syntaxerr            = 335544390)
+      INTEGER*4 ISC_bufinuse            
+      PARAMETER (ISC_bufinuse             = 335544391)
+      INTEGER*4 ISC_bdbincon            
+      PARAMETER (ISC_bdbincon             = 335544392)
+      INTEGER*4 ISC_reqinuse            
+      PARAMETER (ISC_reqinuse             = 335544393)
+      INTEGER*4 ISC_badodsver           
+      PARAMETER (ISC_badodsver            = 335544394)
+      INTEGER*4 ISC_relnotdef           
+      PARAMETER (ISC_relnotdef            = 335544395)
+      INTEGER*4 ISC_fldnotdef           
+      PARAMETER (ISC_fldnotdef            = 335544396)
+      INTEGER*4 ISC_dirtypage           
+      PARAMETER (ISC_dirtypage            = 335544397)
+      INTEGER*4 ISC_waifortra           
+      PARAMETER (ISC_waifortra            = 335544398)
+      INTEGER*4 ISC_doubleloc           
+      PARAMETER (ISC_doubleloc            = 335544399)
+      INTEGER*4 ISC_nodnotfnd           
+      PARAMETER (ISC_nodnotfnd            = 335544400)
+      INTEGER*4 ISC_dupnodfnd           
+      PARAMETER (ISC_dupnodfnd            = 335544401)
+      INTEGER*4 ISC_locnotmar           
+      PARAMETER (ISC_locnotmar            = 335544402)
+      INTEGER*4 ISC_badpagtyp           
+      PARAMETER (ISC_badpagtyp            = 335544403)
+      INTEGER*4 ISC_corrupt             
+      PARAMETER (ISC_corrupt              = 335544404)
+      INTEGER*4 ISC_badpage             
+      PARAMETER (ISC_badpage              = 335544405)
+      INTEGER*4 ISC_badindex            
+      PARAMETER (ISC_badindex             = 335544406)
+      INTEGER*4 ISC_dbbnotzer           
+      PARAMETER (ISC_dbbnotzer            = 335544407)
+      INTEGER*4 ISC_tranotzer           
+      PARAMETER (ISC_tranotzer            = 335544408)
+      INTEGER*4 ISC_trareqmis           
+      PARAMETER (ISC_trareqmis            = 335544409)
+      INTEGER*4 ISC_badhndcnt           
+      PARAMETER (ISC_badhndcnt            = 335544410)
+      INTEGER*4 ISC_wrotpbver           
+      PARAMETER (ISC_wrotpbver            = 335544411)
+      INTEGER*4 ISC_wroblrver           
+      PARAMETER (ISC_wroblrver            = 335544412)
+      INTEGER*4 ISC_wrodpbver           
+      PARAMETER (ISC_wrodpbver            = 335544413)
+      INTEGER*4 ISC_blobnotsup          
+      PARAMETER (ISC_blobnotsup           = 335544414)
+      INTEGER*4 ISC_badrelation         
+      PARAMETER (ISC_badrelation          = 335544415)
+      INTEGER*4 ISC_nodetach            
+      PARAMETER (ISC_nodetach             = 335544416)
+      INTEGER*4 ISC_notremote           
+      PARAMETER (ISC_notremote            = 335544417)
+      INTEGER*4 ISC_trainlim            
+      PARAMETER (ISC_trainlim             = 335544418)
+      INTEGER*4 ISC_notinlim            
+      PARAMETER (ISC_notinlim             = 335544419)
+      INTEGER*4 ISC_traoutsta           
+      PARAMETER (ISC_traoutsta            = 335544420)
+      INTEGER*4 ISC_connect_reject      
+      PARAMETER (ISC_connect_reject       = 335544421)
+      INTEGER*4 ISC_dbfile              
+      PARAMETER (ISC_dbfile               = 335544422)
+      INTEGER*4 ISC_orphan              
+      PARAMETER (ISC_orphan               = 335544423)
+      INTEGER*4 ISC_no_lock_mgr         
+      PARAMETER (ISC_no_lock_mgr          = 335544424)
+      INTEGER*4 ISC_ctxinuse            
+      PARAMETER (ISC_ctxinuse             = 335544425)
+      INTEGER*4 ISC_ctxnotdef           
+      PARAMETER (ISC_ctxnotdef            = 335544426)
+      INTEGER*4 ISC_datnotsup           
+      PARAMETER (ISC_datnotsup            = 335544427)
+      INTEGER*4 ISC_badmsgnum           
+      PARAMETER (ISC_badmsgnum            = 335544428)
+      INTEGER*4 ISC_badparnum           
+      PARAMETER (ISC_badparnum            = 335544429)
+      INTEGER*4 ISC_virmemexh           
+      PARAMETER (ISC_virmemexh            = 335544430)
+      INTEGER*4 ISC_blocking_signal     
+      PARAMETER (ISC_blocking_signal      = 335544431)
+      INTEGER*4 ISC_lockmanerr          
+      PARAMETER (ISC_lockmanerr           = 335544432)
+      INTEGER*4 ISC_journerr            
+      PARAMETER (ISC_journerr             = 335544433)
+      INTEGER*4 ISC_keytoobig           
+      PARAMETER (ISC_keytoobig            = 335544434)
+      INTEGER*4 ISC_nullsegkey          
+      PARAMETER (ISC_nullsegkey           = 335544435)
+      INTEGER*4 ISC_sqlerr              
+      PARAMETER (ISC_sqlerr               = 335544436)
+      INTEGER*4 ISC_wrodynver           
+      PARAMETER (ISC_wrodynver            = 335544437)
+      INTEGER*4 ISC_funnotdef           
+      PARAMETER (ISC_funnotdef            = 335544438)
+      INTEGER*4 ISC_funmismat           
+      PARAMETER (ISC_funmismat            = 335544439)
+      INTEGER*4 ISC_bad_msg_vec         
+      PARAMETER (ISC_bad_msg_vec          = 335544440)
+      INTEGER*4 ISC_bad_detach          
+      PARAMETER (ISC_bad_detach           = 335544441)
+      INTEGER*4 ISC_noargacc_read       
+      PARAMETER (ISC_noargacc_read        = 335544442)
+      INTEGER*4 ISC_noargacc_write      
+      PARAMETER (ISC_noargacc_write       = 335544443)
+      INTEGER*4 ISC_read_only           
+      PARAMETER (ISC_read_only            = 335544444)
+      INTEGER*4 ISC_ext_err             
+      PARAMETER (ISC_ext_err              = 335544445)
+      INTEGER*4 ISC_non_updatable       
+      PARAMETER (ISC_non_updatable        = 335544446)
+      INTEGER*4 ISC_no_rollback         
+      PARAMETER (ISC_no_rollback          = 335544447)
+      INTEGER*4 ISC_bad_sec_info        
+      PARAMETER (ISC_bad_sec_info         = 335544448)
+      INTEGER*4 ISC_invalid_sec_info    
+      PARAMETER (ISC_invalid_sec_info     = 335544449)
+      INTEGER*4 ISC_misc_interpreted    
+      PARAMETER (ISC_misc_interpreted     = 335544450)
+      INTEGER*4 ISC_update_conflict     
+      PARAMETER (ISC_update_conflict      = 335544451)
+      INTEGER*4 ISC_unlicensed          
+      PARAMETER (ISC_unlicensed           = 335544452)
+      INTEGER*4 ISC_obj_in_use          
+      PARAMETER (ISC_obj_in_use           = 335544453)
+      INTEGER*4 ISC_nofilter            
+      PARAMETER (ISC_nofilter             = 335544454)
+      INTEGER*4 ISC_shadow_accessed     
+      PARAMETER (ISC_shadow_accessed      = 335544455)
+      INTEGER*4 ISC_invalid_sdl         
+      PARAMETER (ISC_invalid_sdl          = 335544456)
+      INTEGER*4 ISC_out_of_bounds       
+      PARAMETER (ISC_out_of_bounds        = 335544457)
+      INTEGER*4 ISC_invalid_dimension   
+      PARAMETER (ISC_invalid_dimension    = 335544458)
+      INTEGER*4 ISC_rec_in_limbo        
+      PARAMETER (ISC_rec_in_limbo         = 335544459)
+      INTEGER*4 ISC_shadow_missing      
+      PARAMETER (ISC_shadow_missing       = 335544460)
+      INTEGER*4 ISC_cant_validate       
+      PARAMETER (ISC_cant_validate        = 335544461)
+      INTEGER*4 ISC_cant_start_journal  
+      PARAMETER (ISC_cant_start_journal   = 335544462)
+      INTEGER*4 ISC_gennotdef           
+      PARAMETER (ISC_gennotdef            = 335544463)
+      INTEGER*4 ISC_cant_start_logging  
+      PARAMETER (ISC_cant_start_logging   = 335544464)
+      INTEGER*4 ISC_bad_segstr_type     
+      PARAMETER (ISC_bad_segstr_type      = 335544465)
+      INTEGER*4 ISC_foreign_key         
+      PARAMETER (ISC_foreign_key          = 335544466)
+      INTEGER*4 ISC_high_minor          
+      PARAMETER (ISC_high_minor           = 335544467)
+      INTEGER*4 ISC_tra_state           
+      PARAMETER (ISC_tra_state            = 335544468)
+      INTEGER*4 ISC_trans_invalid       
+      PARAMETER (ISC_trans_invalid        = 335544469)
+      INTEGER*4 ISC_buf_invalid         
+      PARAMETER (ISC_buf_invalid          = 335544470)
+      INTEGER*4 ISC_indexnotdefined     
+      PARAMETER (ISC_indexnotdefined      = 335544471)
+      INTEGER*4 ISC_login               
+      PARAMETER (ISC_login                = 335544472)
+      INTEGER*4 ISC_invalid_bookmark    
+      PARAMETER (ISC_invalid_bookmark     = 335544473)
+      INTEGER*4 ISC_bad_lock_level      
+      PARAMETER (ISC_bad_lock_level       = 335544474)
+      INTEGER*4 ISC_relation_lock       
+      PARAMETER (ISC_relation_lock        = 335544475)
+      INTEGER*4 ISC_record_lock         
+      PARAMETER (ISC_record_lock          = 335544476)
+      INTEGER*4 ISC_max_idx             
+      PARAMETER (ISC_max_idx              = 335544477)
+      INTEGER*4 ISC_jrn_enable          
+      PARAMETER (ISC_jrn_enable           = 335544478)
+      INTEGER*4 ISC_old_failure         
+      PARAMETER (ISC_old_failure          = 335544479)
+      INTEGER*4 ISC_old_in_progress     
+      PARAMETER (ISC_old_in_progress      = 335544480)
+      INTEGER*4 ISC_old_no_space        
+      PARAMETER (ISC_old_no_space         = 335544481)
+      INTEGER*4 ISC_no_wal_no_jrn       
+      PARAMETER (ISC_no_wal_no_jrn        = 335544482)
+      INTEGER*4 ISC_num_old_files       
+      PARAMETER (ISC_num_old_files        = 335544483)
+      INTEGER*4 ISC_wal_file_open       
+      PARAMETER (ISC_wal_file_open        = 335544484)
+      INTEGER*4 ISC_bad_stmt_handle     
+      PARAMETER (ISC_bad_stmt_handle      = 335544485)
+      INTEGER*4 ISC_wal_failure         
+      PARAMETER (ISC_wal_failure          = 335544486)
+      INTEGER*4 ISC_walw_err            
+      PARAMETER (ISC_walw_err             = 335544487)
+      INTEGER*4 ISC_logh_small          
+      PARAMETER (ISC_logh_small           = 335544488)
+      INTEGER*4 ISC_logh_inv_version    
+      PARAMETER (ISC_logh_inv_version     = 335544489)
+      INTEGER*4 ISC_logh_open_flag      
+      PARAMETER (ISC_logh_open_flag       = 335544490)
+      INTEGER*4 ISC_logh_open_flag2     
+      PARAMETER (ISC_logh_open_flag2      = 335544491)
+      INTEGER*4 ISC_logh_diff_dbname    
+      PARAMETER (ISC_logh_diff_dbname     = 335544492)
+      INTEGER*4 ISC_logf_unexpected_eof 
+      PARAMETER (ISC_logf_unexpected_eof  = 335544493)
+      INTEGER*4 ISC_logr_incomplete     
+      PARAMETER (ISC_logr_incomplete      = 335544494)
+      INTEGER*4 ISC_logr_header_small   
+      PARAMETER (ISC_logr_header_small    = 335544495)
+      INTEGER*4 ISC_logb_small          
+      PARAMETER (ISC_logb_small           = 335544496)
+      INTEGER*4 ISC_wal_illegal_attach  
+      PARAMETER (ISC_wal_illegal_attach   = 335544497)
+      INTEGER*4 ISC_wal_invalid_wpb     
+      PARAMETER (ISC_wal_invalid_wpb      = 335544498)
+      INTEGER*4 ISC_wal_err_rollover    
+      PARAMETER (ISC_wal_err_rollover     = 335544499)
+      INTEGER*4 ISC_no_wal              
+      PARAMETER (ISC_no_wal               = 335544500)
+      INTEGER*4 ISC_drop_wal            
+      PARAMETER (ISC_drop_wal             = 335544501)
+      INTEGER*4 ISC_stream_not_defined  
+      PARAMETER (ISC_stream_not_defined   = 335544502)
+      INTEGER*4 ISC_wal_subsys_error    
+      PARAMETER (ISC_wal_subsys_error     = 335544503)
+      INTEGER*4 ISC_wal_subsys_corrupt  
+      PARAMETER (ISC_wal_subsys_corrupt   = 335544504)
+      INTEGER*4 ISC_no_archive          
+      PARAMETER (ISC_no_archive           = 335544505)
+      INTEGER*4 ISC_shutinprog          
+      PARAMETER (ISC_shutinprog           = 335544506)
+      INTEGER*4 ISC_range_in_use        
+      PARAMETER (ISC_range_in_use         = 335544507)
+      INTEGER*4 ISC_range_not_found     
+      PARAMETER (ISC_range_not_found      = 335544508)
+      INTEGER*4 ISC_charset_not_found   
+      PARAMETER (ISC_charset_not_found    = 335544509)
+      INTEGER*4 ISC_lock_timeout        
+      PARAMETER (ISC_lock_timeout         = 335544510)
+      INTEGER*4 ISC_prcnotdef           
+      PARAMETER (ISC_prcnotdef            = 335544511)
+      INTEGER*4 ISC_prcmismat           
+      PARAMETER (ISC_prcmismat            = 335544512)
+      INTEGER*4 ISC_wal_bugcheck        
+      PARAMETER (ISC_wal_bugcheck         = 335544513)
+      INTEGER*4 ISC_wal_cant_expand     
+      PARAMETER (ISC_wal_cant_expand      = 335544514)
+      INTEGER*4 ISC_codnotdef           
+      PARAMETER (ISC_codnotdef            = 335544515)
+      INTEGER*4 ISC_xcpnotdef           
+      PARAMETER (ISC_xcpnotdef            = 335544516)
+      INTEGER*4 ISC_except              
+      PARAMETER (ISC_except               = 335544517)
+      INTEGER*4 ISC_cache_restart       
+      PARAMETER (ISC_cache_restart        = 335544518)
+      INTEGER*4 ISC_bad_lock_handle     
+      PARAMETER (ISC_bad_lock_handle      = 335544519)
+      INTEGER*4 ISC_jrn_present         
+      PARAMETER (ISC_jrn_present          = 335544520)
+      INTEGER*4 ISC_wal_err_rollover2   
+      PARAMETER (ISC_wal_err_rollover2    = 335544521)
+      INTEGER*4 ISC_wal_err_logwrite    
+      PARAMETER (ISC_wal_err_logwrite     = 335544522)
+      INTEGER*4 ISC_wal_err_jrn_comm    
+      PARAMETER (ISC_wal_err_jrn_comm     = 335544523)
+      INTEGER*4 ISC_wal_err_expansion   
+      PARAMETER (ISC_wal_err_expansion    = 335544524)
+      INTEGER*4 ISC_wal_err_setup       
+      PARAMETER (ISC_wal_err_setup        = 335544525)
+      INTEGER*4 ISC_wal_err_ww_sync     
+      PARAMETER (ISC_wal_err_ww_sync      = 335544526)
+      INTEGER*4 ISC_wal_err_ww_start    
+      PARAMETER (ISC_wal_err_ww_start     = 335544527)
+      INTEGER*4 ISC_shutdown            
+      PARAMETER (ISC_shutdown             = 335544528)
+      INTEGER*4 ISC_existing_priv_mod   
+      PARAMETER (ISC_existing_priv_mod    = 335544529)
+      INTEGER*4 ISC_primary_key_ref     
+      PARAMETER (ISC_primary_key_ref      = 335544530)
+      INTEGER*4 ISC_primary_key_notnull 
+      PARAMETER (ISC_primary_key_notnull  = 335544531)
+      INTEGER*4 ISC_ref_cnstrnt_notfound
+      PARAMETER (ISC_ref_cnstrnt_notfound = 335544532)
+      INTEGER*4 ISC_foreign_key_notfound
+      PARAMETER (ISC_foreign_key_notfound = 335544533)
+      INTEGER*4 ISC_ref_cnstrnt_update  
+      PARAMETER (ISC_ref_cnstrnt_update   = 335544534)
+      INTEGER*4 ISC_check_cnstrnt_update
+      PARAMETER (ISC_check_cnstrnt_update = 335544535)
+      INTEGER*4 ISC_check_cnstrnt_del   
+      PARAMETER (ISC_check_cnstrnt_del    = 335544536)
+      INTEGER*4 ISC_integ_index_seg_del 
+      PARAMETER (ISC_integ_index_seg_del  = 335544537)
+      INTEGER*4 ISC_integ_index_seg_mod 
+      PARAMETER (ISC_integ_index_seg_mod  = 335544538)
+      INTEGER*4 ISC_integ_index_del     
+      PARAMETER (ISC_integ_index_del      = 335544539)
+      INTEGER*4 ISC_integ_index_mod     
+      PARAMETER (ISC_integ_index_mod      = 335544540)
+      INTEGER*4 ISC_check_trig_del      
+      PARAMETER (ISC_check_trig_del       = 335544541)
+      INTEGER*4 ISC_check_trig_update   
+      PARAMETER (ISC_check_trig_update    = 335544542)
+      INTEGER*4 ISC_cnstrnt_fld_del     
+      PARAMETER (ISC_cnstrnt_fld_del      = 335544543)
+      INTEGER*4 ISC_cnstrnt_fld_rename  
+      PARAMETER (ISC_cnstrnt_fld_rename   = 335544544)
+      INTEGER*4 ISC_rel_cnstrnt_update  
+      PARAMETER (ISC_rel_cnstrnt_update   = 335544545)
+      INTEGER*4 ISC_constaint_on_view   
+      PARAMETER (ISC_constaint_on_view    = 335544546)
+      INTEGER*4 ISC_invld_cnstrnt_type  
+      PARAMETER (ISC_invld_cnstrnt_type   = 335544547)
+      INTEGER*4 ISC_primary_key_exists  
+      PARAMETER (ISC_primary_key_exists   = 335544548)
+      INTEGER*4 ISC_systrig_update      
+      PARAMETER (ISC_systrig_update       = 335544549)
+      INTEGER*4 ISC_not_rel_owner       
+      PARAMETER (ISC_not_rel_owner        = 335544550)
+      INTEGER*4 ISC_grant_obj_notfound  
+      PARAMETER (ISC_grant_obj_notfound   = 335544551)
+      INTEGER*4 ISC_grant_fld_notfound  
+      PARAMETER (ISC_grant_fld_notfound   = 335544552)
+      INTEGER*4 ISC_grant_nopriv        
+      PARAMETER (ISC_grant_nopriv         = 335544553)
+      INTEGER*4 ISC_nonsql_security_rel 
+      PARAMETER (ISC_nonsql_security_rel  = 335544554)
+      INTEGER*4 ISC_nonsql_security_fld 
+      PARAMETER (ISC_nonsql_security_fld  = 335544555)
+      INTEGER*4 ISC_wal_cache_err       
+      PARAMETER (ISC_wal_cache_err        = 335544556)
+      INTEGER*4 ISC_shutfail            
+      PARAMETER (ISC_shutfail             = 335544557)
+      INTEGER*4 ISC_check_constraint    
+      PARAMETER (ISC_check_constraint     = 335544558)
+      INTEGER*4 ISC_bad_svc_handle      
+      PARAMETER (ISC_bad_svc_handle       = 335544559)
+      INTEGER*4 ISC_shutwarn            
+      PARAMETER (ISC_shutwarn             = 335544560)
+      INTEGER*4 ISC_wrospbver           
+      PARAMETER (ISC_wrospbver            = 335544561)
+      INTEGER*4 ISC_bad_spb_form        
+      PARAMETER (ISC_bad_spb_form         = 335544562)
+      INTEGER*4 ISC_svcnotdef           
+      PARAMETER (ISC_svcnotdef            = 335544563)
+      INTEGER*4 ISC_no_jrn              
+      PARAMETER (ISC_no_jrn               = 335544564)
+      INTEGER*4 ISC_transliteration_fail
+      PARAMETER (ISC_transliteration_fail = 335544565)
+      INTEGER*4 ISC_start_cm_for_wal    
+      PARAMETER (ISC_start_cm_for_wal     = 335544566)
+      INTEGER*4 ISC_wal_ovflow_log_requi
+      PARAMETER (ISC_wal_ovflow_log_requi = 335544567)
+      INTEGER*4 ISC_text_subtype        
+      PARAMETER (ISC_text_subtype         = 335544568)
+      INTEGER*4 ISC_dsql_error          
+      PARAMETER (ISC_dsql_error           = 335544569)
+      INTEGER*4 ISC_dsql_command_err    
+      PARAMETER (ISC_dsql_command_err     = 335544570)
+      INTEGER*4 ISC_dsql_constant_err   
+      PARAMETER (ISC_dsql_constant_err    = 335544571)
+      INTEGER*4 ISC_dsql_cursor_err     
+      PARAMETER (ISC_dsql_cursor_err      = 335544572)
+      INTEGER*4 ISC_dsql_datatype_err   
+      PARAMETER (ISC_dsql_datatype_err    = 335544573)
+      INTEGER*4 ISC_dsql_decl_err       
+      PARAMETER (ISC_dsql_decl_err        = 335544574)
+      INTEGER*4 ISC_dsql_cursor_update_e
+      PARAMETER (ISC_dsql_cursor_update_e = 335544575)
+      INTEGER*4 ISC_dsql_cursor_open_err
+      PARAMETER (ISC_dsql_cursor_open_err = 335544576)
+      INTEGER*4 ISC_dsql_cursor_close_er
+      PARAMETER (ISC_dsql_cursor_close_er = 335544577)
+      INTEGER*4 ISC_dsql_field_err      
+      PARAMETER (ISC_dsql_field_err       = 335544578)
+      INTEGER*4 ISC_dsql_internal_err   
+      PARAMETER (ISC_dsql_internal_err    = 335544579)
+      INTEGER*4 ISC_dsql_relation_err   
+      PARAMETER (ISC_dsql_relation_err    = 335544580)
+      INTEGER*4 ISC_dsql_procedure_err  
+      PARAMETER (ISC_dsql_procedure_err   = 335544581)
+      INTEGER*4 ISC_dsql_request_err    
+      PARAMETER (ISC_dsql_request_err     = 335544582)
+      INTEGER*4 ISC_dsql_sqlda_err      
+      PARAMETER (ISC_dsql_sqlda_err       = 335544583)
+      INTEGER*4 ISC_dsql_var_count_err  
+      PARAMETER (ISC_dsql_var_count_err   = 335544584)
+      INTEGER*4 ISC_dsql_stmt_handle    
+      PARAMETER (ISC_dsql_stmt_handle     = 335544585)
+      INTEGER*4 ISC_dsql_function_err   
+      PARAMETER (ISC_dsql_function_err    = 335544586)
+      INTEGER*4 ISC_dsql_blob_err       
+      PARAMETER (ISC_dsql_blob_err        = 335544587)
+      INTEGER*4 ISC_collation_not_found 
+      PARAMETER (ISC_collation_not_found  = 335544588)
+      INTEGER*4 ISC_collation_not_for_ch
+      PARAMETER (ISC_collation_not_for_ch = 335544589)
+      INTEGER*4 ISC_dsql_dup_option     
+      PARAMETER (ISC_dsql_dup_option      = 335544590)
+      INTEGER*4 ISC_dsql_tran_err       
+      PARAMETER (ISC_dsql_tran_err        = 335544591)
+      INTEGER*4 ISC_dsql_invalid_array  
+      PARAMETER (ISC_dsql_invalid_array   = 335544592)
+      INTEGER*4 ISC_dsql_max_arr_dim_exc
+      PARAMETER (ISC_dsql_max_arr_dim_exc = 335544593)
+      INTEGER*4 ISC_dsql_arr_range_error
+      PARAMETER (ISC_dsql_arr_range_error = 335544594)
+      INTEGER*4 ISC_dsql_trigger_err    
+      PARAMETER (ISC_dsql_trigger_err     = 335544595)
+      INTEGER*4 ISC_dsql_subselect_err  
+      PARAMETER (ISC_dsql_subselect_err   = 335544596)
+      INTEGER*4 ISC_dsql_crdb_prepare_er
+      PARAMETER (ISC_dsql_crdb_prepare_er = 335544597)
+      INTEGER*4 ISC_specify_field_err   
+      PARAMETER (ISC_specify_field_err    = 335544598)
+      INTEGER*4 ISC_num_field_err       
+      PARAMETER (ISC_num_field_err        = 335544599)
+      INTEGER*4 ISC_col_name_err        
+      PARAMETER (ISC_col_name_err         = 335544600)
+      INTEGER*4 ISC_where_err           
+      PARAMETER (ISC_where_err            = 335544601)
+      INTEGER*4 ISC_table_view_err      
+      PARAMETER (ISC_table_view_err       = 335544602)
+      INTEGER*4 ISC_distinct_err        
+      PARAMETER (ISC_distinct_err         = 335544603)
+      INTEGER*4 ISC_key_field_count_err 
+      PARAMETER (ISC_key_field_count_err  = 335544604)
+      INTEGER*4 ISC_subquery_err        
+      PARAMETER (ISC_subquery_err         = 335544605)
+      INTEGER*4 ISC_expression_eval_err 
+      PARAMETER (ISC_expression_eval_err  = 335544606)
+      INTEGER*4 ISC_node_err            
+      PARAMETER (ISC_node_err             = 335544607)
+      INTEGER*4 ISC_command_end_err     
+      PARAMETER (ISC_command_end_err      = 335544608)
+      INTEGER*4 ISC_index_name          
+      PARAMETER (ISC_index_name           = 335544609)
+      INTEGER*4 ISC_exception_name      
+      PARAMETER (ISC_exception_name       = 335544610)
+      INTEGER*4 ISC_field_name          
+      PARAMETER (ISC_field_name           = 335544611)
+      INTEGER*4 ISC_token_err           
+      PARAMETER (ISC_token_err            = 335544612)
+      INTEGER*4 ISC_union_err           
+      PARAMETER (ISC_union_err            = 335544613)
+      INTEGER*4 ISC_dsql_construct_err  
+      PARAMETER (ISC_dsql_construct_err   = 335544614)
+      INTEGER*4 ISC_field_aggregate_err 
+      PARAMETER (ISC_field_aggregate_err  = 335544615)
+      INTEGER*4 ISC_field_ref_err       
+      PARAMETER (ISC_field_ref_err        = 335544616)
+      INTEGER*4 ISC_order_by_err        
+      PARAMETER (ISC_order_by_err         = 335544617)
+      INTEGER*4 ISC_return_mode_err     
+      PARAMETER (ISC_return_mode_err      = 335544618)
+      INTEGER*4 ISC_extern_func_err     
+      PARAMETER (ISC_extern_func_err      = 335544619)
+      INTEGER*4 ISC_alias_conflict_err  
+      PARAMETER (ISC_alias_conflict_err   = 335544620)
+      INTEGER*4 ISC_procedure_conflict_e
+      PARAMETER (ISC_procedure_conflict_e = 335544621)
+      INTEGER*4 ISC_relation_conflict_er
+      PARAMETER (ISC_relation_conflict_er = 335544622)
+      INTEGER*4 ISC_dsql_domain_err     
+      PARAMETER (ISC_dsql_domain_err      = 335544623)
+      INTEGER*4 ISC_idx_seg_err         
+      PARAMETER (ISC_idx_seg_err          = 335544624)
+      INTEGER*4 ISC_node_name_err       
+      PARAMETER (ISC_node_name_err        = 335544625)
+      INTEGER*4 ISC_table_name          
+      PARAMETER (ISC_table_name           = 335544626)
+      INTEGER*4 ISC_proc_name           
+      PARAMETER (ISC_proc_name            = 335544627)
+      INTEGER*4 ISC_idx_create_err      
+      PARAMETER (ISC_idx_create_err       = 335544628)
+      INTEGER*4 ISC_wal_shadow_err      
+      PARAMETER (ISC_wal_shadow_err       = 335544629)
+      INTEGER*4 ISC_dependency          
+      PARAMETER (ISC_dependency           = 335544630)
+      INTEGER*4 ISC_idx_key_err         
+      PARAMETER (ISC_idx_key_err          = 335544631)
+      INTEGER*4 ISC_dsql_file_length_err
+      PARAMETER (ISC_dsql_file_length_err = 335544632)
+      INTEGER*4 ISC_dsql_shadow_number_e
+      PARAMETER (ISC_dsql_shadow_number_e = 335544633)
+      INTEGER*4 ISC_dsql_token_unk_err  
+      PARAMETER (ISC_dsql_token_unk_err   = 335544634)
+      INTEGER*4 ISC_dsql_no_relation_ali
+      PARAMETER (ISC_dsql_no_relation_ali = 335544635)
+      INTEGER*4 ISC_indexname           
+      PARAMETER (ISC_indexname            = 335544636)
+      INTEGER*4 ISC_no_stream_plan      
+      PARAMETER (ISC_no_stream_plan       = 335544637)
+      INTEGER*4 ISC_stream_twice        
+      PARAMETER (ISC_stream_twice         = 335544638)
+      INTEGER*4 ISC_stream_not_found    
+      PARAMETER (ISC_stream_not_found     = 335544639)
+      INTEGER*4 ISC_collation_requires_t
+      PARAMETER (ISC_collation_requires_t = 335544640)
+      INTEGER*4 ISC_dsql_domain_not_foun
+      PARAMETER (ISC_dsql_domain_not_foun = 335544641)
+      INTEGER*4 ISC_index_unused        
+      PARAMETER (ISC_index_unused         = 335544642)
+      INTEGER*4 ISC_dsql_self_join      
+      PARAMETER (ISC_dsql_self_join       = 335544643)
+      INTEGER*4 ISC_stream_bof          
+      PARAMETER (ISC_stream_bof           = 335544644)
+      INTEGER*4 ISC_stream_crack        
+      PARAMETER (ISC_stream_crack         = 335544645)
+      INTEGER*4 ISC_db_or_file_exists   
+      PARAMETER (ISC_db_or_file_exists    = 335544646)
+      INTEGER*4 ISC_invalid_operator    
+      PARAMETER (ISC_invalid_operator     = 335544647)
+      INTEGER*4 ISC_conn_lost           
+      PARAMETER (ISC_conn_lost            = 335544648)
+      INTEGER*4 ISC_bad_checksum        
+      PARAMETER (ISC_bad_checksum         = 335544649)
+      INTEGER*4 ISC_page_type_err       
+      PARAMETER (ISC_page_type_err        = 335544650)
+      INTEGER*4 ISC_ext_readonly_err    
+      PARAMETER (ISC_ext_readonly_err     = 335544651)
+      INTEGER*4 ISC_sing_select_err     
+      PARAMETER (ISC_sing_select_err      = 335544652)
+      INTEGER*4 ISC_psw_attach          
+      PARAMETER (ISC_psw_attach           = 335544653)
+      INTEGER*4 ISC_psw_start_trans     
+      PARAMETER (ISC_psw_start_trans      = 335544654)
+      INTEGER*4 ISC_invalid_direction   
+      PARAMETER (ISC_invalid_direction    = 335544655)
+      INTEGER*4 ISC_dsql_var_conflict   
+      PARAMETER (ISC_dsql_var_conflict    = 335544656)
+      INTEGER*4 ISC_dsql_no_blob_array  
+      PARAMETER (ISC_dsql_no_blob_array   = 335544657)
+      INTEGER*4 ISC_dsql_base_table     
+      PARAMETER (ISC_dsql_base_table      = 335544658)
+      INTEGER*4 ISC_duplicate_base_table
+      PARAMETER (ISC_duplicate_base_table = 335544659)
+      INTEGER*4 ISC_view_alias          
+      PARAMETER (ISC_view_alias           = 335544660)
+      INTEGER*4 ISC_index_root_page_full
+      PARAMETER (ISC_index_root_page_full = 335544661)
+      INTEGER*4 ISC_dsql_blob_type_unkno
+      PARAMETER (ISC_dsql_blob_type_unkno = 335544662)
+      INTEGER*4 ISC_req_max_clones_excee
+      PARAMETER (ISC_req_max_clones_excee = 335544663)
+      INTEGER*4 ISC_dsql_duplicate_spec 
+      PARAMETER (ISC_dsql_duplicate_spec  = 335544664)
+      INTEGER*4 ISC_unique_key_violation
+      PARAMETER (ISC_unique_key_violation = 335544665)
+      INTEGER*4 ISC_srvr_version_too_old
+      PARAMETER (ISC_srvr_version_too_old = 335544666)
+      INTEGER*4 ISC_drdb_completed_with_
+      PARAMETER (ISC_drdb_completed_with_ = 335544667)
+      INTEGER*4 ISC_dsql_procedure_use_e
+      PARAMETER (ISC_dsql_procedure_use_e = 335544668)
+      INTEGER*4 ISC_dsql_count_mismatch 
+      PARAMETER (ISC_dsql_count_mismatch  = 335544669)
+      INTEGER*4 ISC_blob_idx_err        
+      PARAMETER (ISC_blob_idx_err         = 335544670)
+      INTEGER*4 ISC_array_idx_err       
+      PARAMETER (ISC_array_idx_err        = 335544671)
+      INTEGER*4 ISC_key_field_err       
+      PARAMETER (ISC_key_field_err        = 335544672)
+      INTEGER*4 ISC_no_delete           
+      PARAMETER (ISC_no_delete            = 335544673)
+      INTEGER*4 ISC_del_last_field      
+      PARAMETER (ISC_del_last_field       = 335544674)
+      INTEGER*4 ISC_sort_err            
+      PARAMETER (ISC_sort_err             = 335544675)
+      INTEGER*4 ISC_sort_mem_err        
+      PARAMETER (ISC_sort_mem_err         = 335544676)
+      INTEGER*4 ISC_version_err         
+      PARAMETER (ISC_version_err          = 335544677)
+      INTEGER*4 ISC_inval_key_posn      
+      PARAMETER (ISC_inval_key_posn       = 335544678)
+      INTEGER*4 ISC_no_segments_err     
+      PARAMETER (ISC_no_segments_err      = 335544679)
+      INTEGER*4 ISC_crrp_data_err       
+      PARAMETER (ISC_crrp_data_err        = 335544680)
+      INTEGER*4 ISC_rec_size_err        
+      PARAMETER (ISC_rec_size_err         = 335544681)
+      INTEGER*4 ISC_dsql_field_ref      
+      PARAMETER (ISC_dsql_field_ref       = 335544682)
+      INTEGER*4 ISC_req_depth_exceeded  
+      PARAMETER (ISC_req_depth_exceeded   = 335544683)
+      INTEGER*4 ISC_no_field_access     
+      PARAMETER (ISC_no_field_access      = 335544684)
+      INTEGER*4 ISC_no_dbkey            
+      PARAMETER (ISC_no_dbkey             = 335544685)
+      INTEGER*4 ISC_jrn_format_err      
+      PARAMETER (ISC_jrn_format_err       = 335544686)
+      INTEGER*4 ISC_jrn_file_full       
+      PARAMETER (ISC_jrn_file_full        = 335544687)
+      INTEGER*4 ISC_dsql_open_cursor_req
+      PARAMETER (ISC_dsql_open_cursor_req = 335544688)
+      INTEGER*4 ISC_ib_error            
+      PARAMETER (ISC_ib_error             = 335544689)
+      INTEGER*4 ISC_cache_redef         
+      PARAMETER (ISC_cache_redef          = 335544690)
+      INTEGER*4 ISC_cache_too_small     
+      PARAMETER (ISC_cache_too_small      = 335544691)
+      INTEGER*4 ISC_log_redef           
+      PARAMETER (ISC_log_redef            = 335544692)
+      INTEGER*4 ISC_log_too_small       
+      PARAMETER (ISC_log_too_small        = 335544693)
+      INTEGER*4 ISC_partition_too_small 
+      PARAMETER (ISC_partition_too_small  = 335544694)
+      INTEGER*4 ISC_partition_not_supp  
+      PARAMETER (ISC_partition_not_supp   = 335544695)
+      INTEGER*4 ISC_log_length_spec     
+      PARAMETER (ISC_log_length_spec      = 335544696)
+      INTEGER*4 ISC_precision_err       
+      PARAMETER (ISC_precision_err        = 335544697)
+      INTEGER*4 ISC_scale_nogt          
+      PARAMETER (ISC_scale_nogt           = 335544698)
+      INTEGER*4 ISC_expec_short         
+      PARAMETER (ISC_expec_short          = 335544699)
+      INTEGER*4 ISC_expec_long          
+      PARAMETER (ISC_expec_long           = 335544700)
+      INTEGER*4 ISC_expec_ushort        
+      PARAMETER (ISC_expec_ushort         = 335544701)
+      INTEGER*4 ISC_like_escape_invalid 
+      PARAMETER (ISC_like_escape_invalid  = 335544702)
+      INTEGER*4 ISC_svcnoexe            
+      PARAMETER (ISC_svcnoexe             = 335544703)
+      INTEGER*4 ISC_net_lookup_err      
+      PARAMETER (ISC_net_lookup_err       = 335544704)
+      INTEGER*4 ISC_service_unknown     
+      PARAMETER (ISC_service_unknown      = 335544705)
+      INTEGER*4 ISC_host_unknown        
+      PARAMETER (ISC_host_unknown         = 335544706)
+      INTEGER*4 ISC_grant_nopriv_on_base
+      PARAMETER (ISC_grant_nopriv_on_base = 335544707)
+      INTEGER*4 ISC_dyn_fld_ambiguous   
+      PARAMETER (ISC_dyn_fld_ambiguous    = 335544708)
+      INTEGER*4 ISC_dsql_agg_ref_err    
+      PARAMETER (ISC_dsql_agg_ref_err     = 335544709)
+      INTEGER*4 ISC_complex_view        
+      PARAMETER (ISC_complex_view         = 335544710)
+      INTEGER*4 ISC_unprepared_stmt     
+      PARAMETER (ISC_unprepared_stmt      = 335544711)
+      INTEGER*4 ISC_expec_positive      
+      PARAMETER (ISC_expec_positive       = 335544712)
+      INTEGER*4 ISC_dsql_sqlda_value_err
+      PARAMETER (ISC_dsql_sqlda_value_err = 335544713)
+      INTEGER*4 ISC_invalid_array_id    
+      PARAMETER (ISC_invalid_array_id     = 335544714)
+      INTEGER*4 ISC_extfile_uns_op      
+      PARAMETER (ISC_extfile_uns_op       = 335544715)
+      INTEGER*4 ISC_svc_in_use          
+      PARAMETER (ISC_svc_in_use           = 335544716)
+      INTEGER*4 ISC_err_stack_limit     
+      PARAMETER (ISC_err_stack_limit      = 335544717)
+      INTEGER*4 ISC_invalid_key         
+      PARAMETER (ISC_invalid_key          = 335544718)
+      INTEGER*4 ISC_net_init_error      
+      PARAMETER (ISC_net_init_error       = 335544719)
+      INTEGER*4 ISC_loadlib_failure     
+      PARAMETER (ISC_loadlib_failure      = 335544720)
+      INTEGER*4 ISC_network_error       
+      PARAMETER (ISC_network_error        = 335544721)
+      INTEGER*4 ISC_net_connect_err     
+      PARAMETER (ISC_net_connect_err      = 335544722)
+      INTEGER*4 ISC_net_connect_listen_e
+      PARAMETER (ISC_net_connect_listen_e = 335544723)
+      INTEGER*4 ISC_net_event_connect_er
+      PARAMETER (ISC_net_event_connect_er = 335544724)
+      INTEGER*4 ISC_net_event_listen_err
+      PARAMETER (ISC_net_event_listen_err = 335544725)
+      INTEGER*4 ISC_net_read_err        
+      PARAMETER (ISC_net_read_err         = 335544726)
+      INTEGER*4 ISC_net_write_err       
+      PARAMETER (ISC_net_write_err        = 335544727)
+      INTEGER*4 ISC_integ_index_deactiva
+      PARAMETER (ISC_integ_index_deactiva = 335544728)
+      INTEGER*4 ISC_integ_deactivate_pri
+      PARAMETER (ISC_integ_deactivate_pri = 335544729)
+      INTEGER*4 ISC_cse_not_supported   
+      PARAMETER (ISC_cse_not_supported    = 335544730)
+
+      INTEGER*4 GDS__INT_ARG
+      INTEGER*2 GDS__INT2
+      INTEGER*4 ISC_INT_ARG
+      INTEGER*2 ISC_INT2
+
+      GDS__INT2 (GDS__INT_ARG) = GDS__INT_ARG
+      ISC_INT2 (ISC_INT_ARG) = ISC_INT_ARG
+
diff --git a/src/jrd/gds_vms.f b/src/jrd/gds_vms.f
new file mode 100644
index 0000000000..a1efca8403
--- /dev/null
+++ b/src/jrd/gds_vms.f
@@ -0,0 +1,1433 @@
+C  The contents of this file are subject to the Interbase Public
+C  License Version 1.0 (the "License"); you may not use this file
+C  except in compliance with the License. You may obtain a copy
+C  of the License at http://www.Inprise.com/IPL.html
+C
+C  Software distributed under the License is distributed on an
+C  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+C  or implied. See the License for the specific language governing
+C  rights and limitations under the License.
+C
+C  The Original Code was created by Inprise Corporation
+C  and its predecessors. Portions created by Inprise Corporation are
+C  Copyright (C) Inprise Corporation.
+C
+C  All Rights Reserved.
+C  Contributor(s): ______________________________________.
+C
+C         PROGRAM:        Preprocessor
+C         MODULE:         gds.for
+C         DESCRIPTION:    GDS constants, procedures, etc. for VMS
+C 
+
+C     PROCEDURE GDS__ATTACH_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  FILE_NAME,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       DPB_LENGTH,     { INPUT }
+C        CHARACTER* (*)  DPB             { INPUT }
+C        )
+
+      INTEGER*4 ISC_BADDRESS 
+C     INTEGER*4 FUNCTION ISC_BADDRESS (
+C        INTEGER*4       HANDLE          !( INPUT )
+C        )
+
+C     PROCEDURE GDS__CANCEL_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     { INPUT }
+C        )
+
+C     PROCEDURE GDS__CANCEL_EVENTS (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       ID              { INPUT }
+C        )
+
+C     PROCEDURE GDS__CLOSE_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE     { INPUT }
+C        )
+
+C     PROCEDURE GDS__COMMIT_RETAINING (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE      { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE      { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__COMPILE_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR             { INPUT }
+C        )
+
+C     PROCEDURE GDS__COMPILE_REQUEST2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR             { INPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2)      { OUTPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_BLOB2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID(2),     { OUTPUT }
+C        CHARACTER* (*)  BPB             { INPUT }
+C        )
+
+C     PROCEDURE GDS__CREATE_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  FILE_NAME,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       DPB_LENGTH,     { INPUT }
+C        CHARACTER* (*)  DPB             { INPUT }
+C        )
+
+C     PROCEDURE GDS__DETACH_DATABASE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE       { INPUT / OUTPUT }
+C        )
+
+      INTEGER*2 GDS__EVENT_BLOCK_A
+C     PROCEDURE GDS__EVENT_BLOCK_A (
+C        CHARACTER* (*)  EVENTS,         !{ INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          !{ INPUT/OUTPUT }
+C        INTEGER*2       COUNT,          !{ INPUT }
+C        CHARACTER*31    EVENT_NAMES     !{ INPUT/OUTPUT }
+C        )
+
+C     PROCEDURE GDS__EVENT_WAIT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  EVENTS,         { INPUT/OUTPUT }
+C        CHARACTER* (*)  BUFFER          { INPUT/OUTPUT }
+C        )
+
+      INTEGER*4 GDS__GET_SEGMENT 
+C     INTEGER*4 FUNCTION GDS__GET_SEGMENT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       LENGTH,         { OUTPUT }
+C        INTEGER*2       BUFFER_LENGTH,  { INPUT }
+C        CHARACTER* (*)  BUFFER          { INPUT }
+C        )
+
+C     INTEGER*4 FUNCTION GDS__GET_SLICE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       SDL_LENGTH,     { INPUT }
+C        CHARACTER* (*)  SDL,            { INPUT }
+C        INTEGER*2       PARAM_LENGTH,   { INPUT }
+C        CHARACTER* (*)  PARAM,          { INPUT }
+C        INTEGER*4       SLICE_LENGTH,   { INPUT }
+C        CHARACTER* (*)  SLICE,          { INPUT }
+C        INTEGER*4       RETURN_LENGTH   { INPUT }
+C        )
+
+C     PROCEDURE GDS__OPEN_BLOB (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2)     { INPUT }
+C        )
+
+C     PROCEDURE GDS__OPEN_BLOB2 (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT / OUTPUT }
+C        INTEGER*4       BLOB_ID (2),    { INPUT }
+C        CHARACTER* (*)  BPB             { INPUT }
+C        )
+
+C      PROCEDURE GDS__COMMIT_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT / OUTPUT }
+C        )
+
+      INTEGER*4 GDS__PUT_SEGMENT 
+C     INTEGER*4 FUNCTION GDS__PUT_SEGMENT (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  BUFFER,         { INPUT }
+C        )
+
+C     INTEGER*4 FUNCTION GDS__PUT_SLICE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { OUTPUT }
+C        INTEGER*4       BLOB_HANDLE,    { INPUT }
+C        INTEGER*2       SDL_LENGTH,     { INPUT }
+C        CHARACTER* (*)  SDL,            { INPUT }
+C        INTEGER*2       PARAM_LENGTH,   { INPUT }
+C        CHARACTER* (*)  PARAM,          { INPUT }
+C        INTEGER*4       SLICE_LENGTH,   { INPUT }
+C        CHARACTER* (*)  SLICE           { INPUT }
+C        )
+
+C     PROCEDURE GDS__QUE_EVENTS (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       ID,             { INPUT }
+C        INTEGER*2       LENGTH,         { INPUT }
+C        CHARACTER* (*)  EVENTS,         { INPUT/OUTPUT }
+C        INTEGER*4       AST,            { INPUT }
+C        INTEGER*4       ARG             { INPUT }
+C        )
+
+C     PROCEDURE GDS__RECEIVE (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE GDS__RELEASE_REQUEST (
+C        INTEGER*4       STAT(20),        { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE   { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__ROLLBACK_TRANSACTION (
+C        INTEGER*4       STAT(20),         { OUTPUT }
+C        INTEGER*4       TRA_HANDLE        { INPUT / OUTPUT }
+C        )
+
+C     PROCEDURE GDS__SEND (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE GDS__SET_DEBUG (
+C        INTEGER*4       DEBUG_VAL       { INPUT }
+C        )
+
+C     PROCEDURE GDS__START_AND_SEND (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT / OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       MESSAGE_TYPE,   { INPUT }
+C        INTEGER*2       MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  MESSAGE,        { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE GDS__START_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT  }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+   
+C     PROCEDURE GDS__START_TRANSACTION (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT / OUTPUT }
+C        INTEGER*2       TRA_COUNT,      { INPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*2       TPB_LENGTH      { INPUT }
+C        CHARACTER* (*)  TPB             { INPUT }
+C        )
+
+C     PROCEDURE GDS__UNWIND_REQUEST (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       REQUEST_HANDLE, { INPUT }
+C        INTEGER*2       INSTANTIATION   { INPUT }
+C        )
+
+C     PROCEDURE gds__ftof (
+C        CHARACTER* (*)  STRING1,        { INPUT }
+C        INTEGER*2       LENGTH1,        { INPUT }
+C        CHARACTER* (*)  STRING2,        { INPUT }
+C        INTEGER*2       LENGTH2         { INPUT }
+C        )
+
+C     PROCEDURE gds__print_status (
+C        INTEGER*4       STAT(20)        { INPUT }
+C        )
+ 
+C     INTEGER FUNCTION gds__sqlcode (
+C        INTEGER*4       STAT(20)        { INPUT }
+C        )
+ 
+C     procedure gds__close (
+C	out	stat		: gds__status_vector; 
+C	in	cursor_name	: UNIV gds__string
+C	); extern;
+
+C     procedure gds__declare (
+C	out	stat		: gds__status_vector; 
+C	in	statement_name	: UNIV gds__string;
+C	in	cursor_name	: UNIV gds__string
+C	); extern;
+
+C     procedure gds__describe (
+C	out	stat		: gds__status_vector; 
+C	in	statement_name	: UNIV gds__string;
+C	in out	descriptor	: UNIV sqlda
+C	); extern;
+
+C     procedure gds__execute (
+C	out	stat		: gds__status_vector; 
+C	in	trans_handle	: gds__handle;
+C	in	statement_name	: UNIV gds__string;
+C	in out	descriptor	: UNIV sqlda
+C	); extern;
+
+C     procedure gds__execute_immediate (
+C	out	stat		: gds__status_vector; 
+C	in	db_handle	: gds__handle;
+C	in	trans_handle	: gds__handle;
+C	in	string_length	: integer;
+C	in	string		: UNIV gds__string
+C	); extern;
+
+      INTEGER*4 GDS__FETCH
+C     function gds__fetch (
+C	out	stat		: gds__status_vector; 
+C	in	cursor_name	: UNIV gds__string;
+C	in out	descriptor	: UNIV sqlda
+C	) : integer32; extern;
+
+C     procedure gds__open (
+C	out	stat		: gds__status_vector; 
+C	in	trans_handle	: gds__handle;
+C	in	cursor_name	: UNIV gds__string;
+C	in out	descriptor	: UNIV sqlda
+C	); extern;
+
+C     procedure gds__prepare (
+C	out	stat		: gds__status_vector; 
+C	in	db_handle	: gds__handle;
+C	in	trans_handle	: gds__handle;
+C	in	statement_name	: UNIV gds__string;
+C	in	string_length	: integer;
+C	in	string		: UNIV gds__string;
+C	in out	descriptor	: UNIV sqlda
+C	); extern;
+
+C     procedure pyxis__compile_map (
+C	out	stat		: gds__status_vector; 
+C	in 	form_handle	: gds__handle;
+C	out 	map_handle	: gds__handle;
+C	in	length		: integer16;
+C	in	map		: UNIV gds__string
+C	); extern;
+
+C     procedure pyxis__compile_sub_map (
+C	out	stat		: gds__status_vector; 
+C	in 	form_handle	: gds__handle;
+C	out 	map_handle	: gds__handle;
+C	in	length		: integer16;
+C	in	map		: UNIV gds__string
+C	); extern;
+
+C     procedure pyxis__create_window (
+C	in out	window_handle	: gds__handle;
+C	in	name_length	: integer16;
+C	in	file_name	: UNIV gds__string; 
+C	in out	width		: integer16;
+C	in out	height		: integer16
+C	); extern;
+
+C     procedure pyxis__delete_window (
+C	in out	window_handle	: gds__handle
+C	); extern;
+
+C     procedure pyxis__drive_form (
+C	out	stat		: gds__status_vector; 
+C	in	db_handle	: gds__handle;
+C	in	trans_handle	: gds__handle;
+C	in out	window_handle	: gds__handle;
+C	in 	map_handle	: gds__handle;
+C	in	input		: UNIV gds__string;
+C	in	output		: UNIV gds__string
+C	); extern;
+
+C     procedure pyxis__fetch (
+C	out	stat		: gds__status_vector; 
+C	in	db_handle	: gds__handle;
+C	in	trans_handle	: gds__handle;
+C	in 	map_handle	: gds__handle;
+C	in	output		: UNIV gds__string
+C	); extern;
+
+C     procedure pyxis__insert (
+C	out	stat		: gds__status_vector; 
+C	in	db_handle	: gds__handle;
+C	in	trans_handle	: gds__handle;
+C	in 	map_handle	: gds__handle;
+C	in	input		: UNIV gds__string
+C	); extern;
+
+C     procedure pyxis__load_form (
+C	out	stat		: gds__status_vector; 
+C	in	db_handle	: gds__handle;
+C	in 	trans_handle	: gds__handle;
+C	in out	form_handle	: gds__handle;
+C	in	name_length	: integer16;
+C	in	form_name	: UNIV gds__string 
+C	); extern;
+
+      INTEGER*2 PYXIS__MENU
+C     function pyxis__menu (
+C	in out	window_handle	: gds__handle;
+C	in out	menu_handle	: gds__handle;
+C	in	length		: integer16;
+C	in	menu		: UNIV gds__string
+C	) : integer16; extern;
+
+C     procedure pyxis__pop_window (
+C	in 	window_handle	: gds__handle
+C	); extern;
+
+C     procedure pyxis__reset_form (
+C	out	stat		: gds__status_vector; 
+C	in	window_handle	: gds__handle
+C	); extern;
+
+C     procedure pyxis__drive_menu (
+C	in out	window_handle	: gds__handle;
+C	in out	menu_handle	: gds__handle;
+C	in	blr_length	: integer16;
+C	in	blr_source	: UNIV gds__string;
+C	in	title_length	: integer16;
+C	in	title		: UNIV gds__string;
+C	out	terminator	: integer16;
+C	out	entree_length	: integer16;
+C	out	entree_text	: UNIV gds__string;
+C	out	entree_value	: integer32
+C	); extern;
+
+C     procedure pyxis__get_entree (
+C	in	menu_handle	: gds__handle;
+C	out	entree_length	: integer16;
+C	out	entree_text	: UNIV gds__string;
+C	out	entree_value	: integer32;
+C	out	entree_end	: integer16
+C	); extern;
+
+C     procedure pyxis__initialize_menu (
+C	in out	menu_handle	: gds__handle
+C	); extern;
+
+C     procedure pyxis__put_entree (
+C	in	menu_handle	: gds__handle;
+C	in	entree_length	: integer16;
+C	in	entree_text	: UNIV gds__string;
+C	in	entree_value	: integer32
+C	); extern;
+
+C     PROCEDURE isc_exec_procedure (
+C        INTEGER*4       STAT(20),       { OUTPUT }
+C        INTEGER*4       DB_HANDLE,      { INPUT }
+C        INTEGER*4       TRA_HANDLE,     { INPUT }
+C        INTEGER*2       NAME_LENGTH,    { INPUT }
+C        CHARACTER* (*)  PROC_NAME,      { INPUT }
+C        INTEGER*2       BLR_LENGTH,     { INPUT }
+C        CHARACTER* (*)  BLR,             { INPUT }
+C        INTEGER*2       IN_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  IN_MESSAGE,        { INPUT }
+C        INTEGER*2       OUT_MESSAGE_LENGTH, { INPUT }
+C        CHARACTER* (*)  OUT_MESSAGE        { INPUT / OUTPUT }
+C        )
+
+       INTEGER*2 GDS__TRUE, GDS__FALSE
+       PARAMETER (
+     +    GDS__TRUE = 1,
+     +    GDS__FALSE = 0)
+
+       INTEGER*2  BLR_BLOB
+       PARAMETER  (BLR_BLOB = 261)
+
+       CHARACTER*1 
+     +    BLR_TEXT, BLR_SHORT, BLR_LONG, BLR_QUAD, BLR_FLOAT,
+     +    BLR_DOUBLE, BLR_D_FLOAT, BLR_DATE, BLR_VARYING, BLR_CSTRING,
+     +    BLR_VERSION4, BLR_EOC, BLR_END
+
+       PARAMETER (
+     +    BLR_TEXT = CHAR(14),
+     +    BLR_SHORT = CHAR(7),
+     +    BLR_LONG = CHAR(8),
+     +    BLR_QUAD = CHAR(9),
+     +    BLR_FLOAT = CHAR(10),
+     +    BLR_DOUBLE = CHAR(27),
+     +    BLR_D_FLOAT = CHAR(11),
+     +    BLR_DATE = CHAR(35),
+     +    BLR_VARYING = CHAR(37),
+     +    BLR_CSTRING = CHAR(40),
+     +    BLR_VERSION4 = CHAR(4),
+     +    BLR_EOC = CHAR(76),
+     +    BLR_END = CHAR(255))
+
+      CHARACTER*1
+     +    BLR_ASSIGNMENT, BLR_BEGIN, BLR_MESSAGE, BLR_ERASE, BLR_FETCH,
+     +    BLR_FOR, BLR_IF, BLR_LOOP, BLR_MODIFY, BLR_HANDLER, 
+     +    BLR_RECEIVE, BLR_SELECT, BLR_SEND, BLR_STORE, BLR_LABEL,
+     +    BLR_LEAVE
+
+
+      PARAMETER (
+     +    BLR_ASSIGNMENT = CHAR(1),
+     +    BLR_BEGIN = CHAR(2),
+     +    BLR_MESSAGE = CHAR(4),
+     +    BLR_ERASE = CHAR(5),
+     +    BLR_FETCH = CHAR(6),
+     +    BLR_FOR = CHAR(7),
+     +    BLR_IF = CHAR(8),
+     +    BLR_LOOP = CHAR(9),
+     +    BLR_MODIFY = CHAR(10),
+     +    BLR_HANDLER = CHAR(11),
+     +    BLR_RECEIVE = CHAR(12),
+     +    BLR_SELECT = CHAR(13),
+     +    BLR_SEND = CHAR(14),
+     +    BLR_STORE = CHAR(15),
+     +    BLR_LABEL = CHAR(17),
+     +    BLR_LEAVE = CHAR(18))
+
+      CHARACTER*1
+     +    BLR_LITERAL, BLR_DBKEY, BLR_FIELD, BLR_FID, BLR_PARAMETER,
+     +    BLR_VARIABLE, BLR_AVERAGE, BLR_COUNT, BLR_MAXIMUM, 
+     +    BLR_MINIMUM, BLR_TOTAL
+
+      PARAMETER (
+     +    BLR_LITERAL = CHAR(21),
+     +    BLR_DBKEY = CHAR(22),
+     +    BLR_FIELD = CHAR(23),
+     +    BLR_FID = CHAR(24),
+     +    BLR_PARAMETER = CHAR(25),
+     +    BLR_VARIABLE = CHAR(26),
+     +    BLR_AVERAGE = CHAR(27),
+     +    BLR_COUNT = CHAR(28),
+     +    BLR_MAXIMUM = CHAR(29),
+     +    BLR_MINIMUM = CHAR(30),
+     +    BLR_TOTAL = CHAR(31))
+
+      CHARACTER*1
+     +    BLR_ADD, BLR_SUBTRACT, BLR_MULTIPLY, BLR_DIVIDE,
+     +    BLR_NEGATE, BLR_CONCATENATE, BLR_SUBSTRING, 
+     +    BLR_PARAMETER2, BLR_FROM, BLR_VIA, BLR_NULL
+     
+
+      PARAMETER (
+     +    BLR_ADD = CHAR(34),
+     +    BLR_SUBTRACT = CHAR(35),
+     +    BLR_MULTIPLY = CHAR(36),
+     +    BLR_DIVIDE = CHAR(37),
+     +    BLR_NEGATE = CHAR(38),
+     +    BLR_CONCATENATE = CHAR(39),
+     +    BLR_SUBSTRING = CHAR(40),
+     +    BLR_PARAMETER2 = CHAR(41),
+     +    BLR_FROM = CHAR(42),
+     +    BLR_VIA = CHAR(43),
+     +    BLR_NULL = CHAR(45))
+
+      CHARACTER*1
+     +    BLR_EQL, BLR_NEQ, BLR_GTR, BLR_GEQ, BLR_LSS, BLR_LEQ, 
+     +    BLR_CONTAINING, BLR_MATCHING, BLR_STARTING, BLR_BETWEEN, 
+     +    BLR_OR, BLR_AND, BLR_NOT, BLR_ANY, BLR_MISSING, BLR_LIKE,
+     +    BLR_UNIQUE
+
+       PARAMETER (
+     +    BLR_EQL = CHAR(47),
+     +    BLR_NEQ = CHAR(48),
+     +    BLR_GTR = CHAR(49),
+     +    BLR_GEQ = CHAR(50),
+     +    BLR_LSS = CHAR(51),
+     +    BLR_LEQ = CHAR(52),
+     +    BLR_CONTAINING = CHAR(53),
+     +    BLR_MATCHING = CHAR(54),
+     +    BLR_STARTING = CHAR(55),
+     +    BLR_BETWEEN = CHAR(56),
+     +    BLR_OR = CHAR(57),
+     +    BLR_AND = CHAR(58),
+     +    BLR_NOT = CHAR(59),
+     +    BLR_ANY = CHAR(60),
+     +    BLR_MISSING = CHAR(61),
+     +    BLR_UNIQUE = CHAR(62),
+     +    BLR_LIKE = CHAR(63))
+
+      CHARACTER*1
+     +    BLR_RSE, BLR_FIRST, BLR_PROJECT, BLR_SORT, BLR_BOOLEAN, 
+     +    BLR_ASCENDING, BLR_DESCENDING, BLR_RELATION, BLR_RID,
+     +    BLR_UNION, BLR_MAP, BLR_GROUP_BY, BLR_AGGREGATE,
+     +    BLR_JOIN_TYPE
+
+
+      PARAMETER (
+     +    BLR_RSE = CHAR(67),
+     +    BLR_FIRST = CHAR(68),
+     +    BLR_PROJECT = CHAR(69),
+     +    BLR_SORT = CHAR(70),
+     +    BLR_BOOLEAN = CHAR(71),
+     +    BLR_ASCENDING = CHAR(72),
+     +    BLR_DESCENDING = CHAR(73),
+     +    BLR_RELATION = CHAR(74),
+     +    BLR_RID = CHAR(75),
+     +    BLR_UNION = CHAR(76),
+     +    BLR_MAP = CHAR(77),
+     +    BLR_GROUP_BY = CHAR(78),     
+     +    BLR_AGGREGATE = CHAR(79),
+     +    BLR_JOIN_TYPE = CHAR(80))
+
+      CHARACTER*1
+     +    BLR_INNER, BLR_LEFT, BLR_RIGHT, BLR_FULL
+
+      PARAMETER (
+     +    BLR_INNER = CHAR(0),
+     +    BLR_LEFT = CHAR(1),
+     +    BLR_RIGHT = CHAR(2),
+     +    BLR_FULL = CHAR(3))
+
+      CHARACTER*1
+     +    BLR_AGG_COUNT, BLR_AGG_MAX, BLR_AGG_MIN, BLR_AGG_TOTAL,
+     +    BLR_AGG_AVERAGE, BLR_RUN_COUNT, BLR_RUN_MAX, BLR_RUN_MIN,
+     +    BLR_RUN_TOTAL, BLR_RUN_AVERAGE
+
+      PARAMETER (
+     +    BLR_AGG_COUNT = CHAR(83),     
+     +    BLR_AGG_MAX = CHAR(84),
+     +    BLR_AGG_MIN = CHAR(85),
+     +    BLR_AGG_TOTAL = CHAR(86),
+     +    BLR_AGG_AVERAGE = CHAR(87),
+     +    BLR_RUN_COUNT = CHAR(118),
+     +    BLR_RUN_MAX = CHAR(89),
+     +    BLR_RUN_MIN = CHAR(90),
+     +    BLR_RUN_TOTAL = CHAR(91),
+     +    BLR_RUN_AVERAGE = CHAR(92)) 
+
+      CHARACTER*1
+     +    BLR_FUNCTION, BLR_GEN_ID, BLR_PROT_MASK, BLR_UPCASE,
+     +    BLR_LOCK_STATE, BLR_VALUE_IF, BLR_MATCHING2, BLR_INDEX
+
+      PARAMETER (
+     +    BLR_FUNCTION = CHAR(100),
+     +    BLR_GEN_ID = CHAR(101),
+     +    BLR_PROT_MASK = CHAR(102),
+     +    BLR_UPCASE = CHAR(103),
+     +    BLR_LOCK_STATE = CHAR(104),
+     +    BLR_VALUE_IF = CHAR(105),
+     +    BLR_MATCHING2 = CHAR(106),
+     +    BLR_INDEX = CHAR(107))
+
+      CHARACTER*1
+     +    BLR_ANSI_LIKE, BLR_BOOKMARK, BLR_CRACK,
+     +    BLR_FORCE_CRACK, BLR_SEEK, BLR_FIND,
+     +    BLR_LOCK_RELATION, BLR_LOCK_RECORD,
+     +    BLR_SET_BOOKMARK, BLR_GET_BOOKMARK
+
+      PARAMETER (
+     +    BLR_ANSI_LIKE = CHAR(108),
+     +    BLR_BOOKMARK = CHAR(109),
+     +    BLR_CRACK = CHAR(110),
+     +    BLR_FORCE_CRACK = CHAR(111),
+     +    BLR_SEEK = CHAR(112),
+     +    BLR_FIND = CHAR(113),
+     +    BLR_LOCK_RELATION = CHAR(114),
+     +    BLR_LOCK_RECORD = CHAR(115),
+     +    BLR_SET_BOOKMARK = CHAR(116),
+     +    BLR_GET_BOOKMARK = CHAR(117))
+
+      CHARACTER*1
+     +    BLR_RS_STREAM, BLR_EXEC_PROC, BLR_BEGIN_RANGE,
+     +    BLR_END_RANGE, BLR_DELETE_RANGE, BLR_PROCEDURE,
+     +    BLR_PID, BLR_EXEC_PID, BLR_SINGULAR, BLR_ABORT,
+     +    BLR_BLOCK, BLR_ERROR_HANDLER, BLR_PARAMETER3,
+     +    BLR_CAST
+
+      PARAMETER (
+     +    BLR_PARAMETER3 = CHAR(88),
+     +    BLR_RS_STREAM = CHAR(119),
+     +    BLR_EXEC_PROC = CHAR(120),
+     +    BLR_BEGIN_RANGE = CHAR(121),
+     +    BLR_END_RANGE = CHAR(122),
+     +    BLR_DELETE_RANGE = CHAR(123),
+     +    BLR_PROCEDURE = CHAR(124),
+     +    BLR_PID = CHAR(125),
+     +    BLR_EXEC_PID = CHAR(126),
+     +    BLR_SINGULAR = CHAR(127),
+     +    BLR_ABORT = CHAR(128),
+     +    BLR_BLOCK = CHAR(129),
+     +    BLR_ERROR_HANDLER = CHAR(130),
+     +    BLR_CAST = CHAR(131))
+
+      CHARACTER*1
+     +    BLR_GDS_CODE, BLR_SQL_CODE, BLR_EXCEPTION,
+     +    BLR_TRIGGER_CODE, BLR_DEFAULT_CODE
+
+      PARAMETER (
+     +    BLR_GDS_CODE = CHAR(0),
+     +    BLR_SQL_CODE = CHAR(1),
+     +    BLR_EXCEPTION = CHAR(2),
+     +    BLR_TRIGGER_CODE = CHAR(3),
+     +    BLR_DEFAULT_CODE = CHAR(4))
+
+C     database parameter block stuff 
+
+      CHARACTER*1
+     +     GDS__DPB_CDD_PATHNAME, GDS__DPB_ALLOCATION,
+     +     GDS__DPB_JOURNAL, GDS__DPB_PAGE_SIZE,
+     +     GDS__DPB_BUFFERS,  GDS__DPB_BUFFER_LENGTH,
+     +     GDS__DPB_DEBUG, GDS__DPB_GARBAGE_COLLECT,
+     +     GDS__DPB_VERIFY,  GDS__DPB_SWEEP,
+     +     GDS__DPB_ENABLE_JOURNAL, GDS__DPB_DISABLE_JOURNAL,
+     +     GDS__DPB_DBKEY_SCOPE, GDS__DPB_NUMBER_OF_USERS,
+     +     GDS__DPB_TRACE, GDS__DPB_NO_GARBAGE_COLLECT,
+     +     GDS__DPB_DAMAGED, GDS__DPB_LICENSE, GDS__DPB_SYS_USER_NAME,
+     +     GDS__DPB_ENCRYPT_KEY, GDS__DPB_ACTIVATE_SHADOW,
+     +     GDS__DPB_SWEEP_INTERVAL, GDS__DPB_DELETE_SHADOW
+
+      PARAMETER (
+     +     GDS__DPB_CDD_PATHNAME       = CHAR (1), !{NOT IMPLEMENTED}
+     +     GDS__DPB_ALLOCATION         = CHAR (2), !{NOT IMPLEMENTED}
+     +     GDS__DPB_JOURNAL            = CHAR (3), !{NOT IMPLEMENTED}
+     +     GDS__DPB_PAGE_SIZE          = CHAR (4),
+     +     GDS__DPB_BUFFERS            = CHAR (5),
+     +     GDS__DPB_BUFFER_LENGTH      = CHAR (6), !{NOT IMPLEMENTED}
+     +     GDS__DPB_DEBUG              = CHAR (7), !{NOT IMPLEMENTED}
+     +     GDS__DPB_GARBAGE_COLLECT    = CHAR (8), !{NOT IMPLEMENTED}
+     +     GDS__DPB_VERIFY             = CHAR (9),
+     +     GDS__DPB_SWEEP              = CHAR (10),
+     +     GDS__DPB_ENABLE_JOURNAL     = CHAR (11),
+     +     GDS__DPB_DISABLE_JOURNAL    = CHAR (12),
+     +     GDS__DPB_DBKEY_SCOPE        = CHAR (13), !{NOT IMPLEMENTED}
+     +     GDS__DPB_NUMBER_OF_USERS    = CHAR (14), !{NOT IMPLEMENTED}
+     +     GDS__DPB_TRACE              = CHAR (15), !{NOT IMPLEMENTED}
+     +     GDS__DPB_NO_GARBAGE_COLLECT = CHAR (16), !{NOT IMPLEMENTED}
+     +     GDS__DPB_DAMAGED            = CHAR (17), !{NOT IMPLEMENTED}
+     +     GDS__DPB_LICENSE            = CHAR (18),
+     +     GDS__DPB_SYS_USER_NAME      = CHAR (19))
+
+      PARAMETER (
+     +     GDS__DPB_ENCRYPT_KEY           = CHAR (20),
+     +     GDS__DPB_ACTIVATE_SHADOW       = CHAR (21),
+     +     GDS__DPB_SWEEP_INTERVAL        = CHAR (22),
+     +     GDS__DPB_DELETE_SHADOW         = CHAR (23))
+
+      CHARACTER*1
+     +     GDS__DPB_PAGES, GDS__DPB_RECORDS, 
+     +     GDS__DPB_INDICES, GDS__DPB_TRANSACTIONS, 
+     +     GDS__DPB_NO_UPDATE, GDS__DPB_REPAIR
+
+      PARAMETER (
+     +     GDS__DPB_PAGES = CHAR(1),
+     +     GDS__DPB_RECORDS = CHAR(2),
+     +     GDS__DPB_INDICES = CHAR(4),
+     +     GDS__DPB_TRANSACTIONS = CHAR(8),
+     +     GDS__DPB_NO_UPDATE = CHAR(16),
+     +     GDS__DPB_REPAIR = CHAR(32))
+
+
+
+C     Transaction parameter block stuff 
+
+      CHARACTER*1
+     + GDS__TPB_VERSION3, GDS__TPB_CONSISTENCY, GDS__TPB_CONCURRENCY,
+     + GDS__TPB_SHARED, GDS__TPB_PROTECTED, GDS__TPB_EXCLUSIVE,
+     + GDS__TPB_WAIT, GDS__TPB_NOWAIT, GDS__TPB_READ, GDS__TPB_WRITE,
+     + GDS__TPB_LOCK_READ, GDS__TPB_LOCK_WRITE, GDS__TPB_VERB_TIME,
+     + GDS__TPB_COMMIT_TIME                            
+
+
+      PARAMETER (
+     + GDS__TPB_VERSION3     = CHAR (3),
+     + GDS__TPB_CONSISTENCY  = CHAR (1),
+     + GDS__TPB_CONCURRENCY  = CHAR (2),
+     + GDS__TPB_SHARED       = CHAR (3),
+     + GDS__TPB_PROTECTED    = CHAR (4),
+     + GDS__TPB_EXCLUSIVE    = CHAR (5),
+     + GDS__TPB_WAIT         = CHAR (6),
+     + GDS__TPB_NOWAIT       = CHAR (7),
+     + GDS__TPB_READ         = CHAR (8),
+     + GDS__TPB_WRITE        = CHAR (9),
+     + GDS__TPB_LOCK_READ    = CHAR (10),
+     + GDS__TPB_LOCK_WRITE   = CHAR (11),
+     + GDS__TPB_VERB_TIME    = CHAR (12),
+     + GDS__TPB_COMMIT_TIME  = CHAR (13))
+
+C Blob Parameter Block
+
+      CHARACTER*1
+     +  gds__bpb_version1, gds__bpb_source_type, gds__bpb_target_type,
+     +  gds__bpb_type, gds__bpb_type_segmented, gds__bpb_type_stream
+
+      PARAMETER (
+     +  gds__bpb_version1	= CHAR (1),
+     +  gds__bpb_source_type	= CHAR (1),
+     +  gds__bpb_target_type	= CHAR (2),
+     +  gds__bpb_type		= CHAR (3),
+
+     +  gds__bpb_type_segmented	= CHAR (0),
+     +  gds__bpb_type_stream	= CHAR (1))
+
+C     Information parameters
+
+C Common, structural codes 
+
+      CHARACTER*1  GDS__INFO_END, GDS__INFO_TRUNCATED,
+     +    GDS__INFO_ERROR
+
+      PARAMETER (
+     +    GDS__INFO_END                  = CHAR(1),
+     +    GDS__INFO_TRUNCATED            = CHAR(2),
+     +    GDS__INFO_ERROR                = CHAR(3))
+
+C DATABASE INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_ID, GDS__INFO_READS, GDS__INFO_WRITES,
+     +    GDS__INFO_FETCHES, GDS__INFO_MARKS, GDS__INFO_IMPLEMENTATION,
+     +    GDS__INFO_VERSION, GDS__INFO_BASE_LEVEL, GDS__INFO_PAGE_SIZE,
+     +    GDS__INFO_NUM_BUFFERS, GDS__INFO_LIMBO,
+     +    GDS__INFO_CURRENT_MEMORY, GDS__INFO_MAX_MEMORY,
+     +    GDS__INFO_WINDOW_TURNS, GDS__INFO_DB_ID
+
+      PARAMETER (
+     +    GDS__INFO_DB_ID                = CHAR(4),
+     +    GDS__INFO_READS                = CHAR(5),
+     +    GDS__INFO_WRITES               = CHAR(6),
+     +    GDS__INFO_FETCHES              = CHAR(7),
+     +    GDS__INFO_MARKS                = CHAR(8),
+     +    GDS__INFO_IMPLEMENTATION       = CHAR(11),
+     +    GDS__INFO_VERSION              = CHAR(12),
+     +    GDS__INFO_BASE_LEVEL           = CHAR(13),
+     +    GDS__INFO_PAGE_SIZE            = CHAR(14),
+     +    GDS__INFO_NUM_BUFFERS          = CHAR(15),
+     +    GDS__INFO_LIMBO                = CHAR(16),
+     +    GDS__INFO_CURRENT_MEMORY       = CHAR(17),
+     +    GDS__INFO_MAX_MEMORY           = CHAR(18),
+     +    GDS__INFO_WINDOW_TURNS         = CHAR(19))
+
+      CHARACTER*1 GDS__INFO_LICENSE, GDS__INFO_ALLOCATION,
+     +    GDS__INFO_ATTACHMENT_ID, GDS__INFO_READ_SEQ_COUNT,
+     +    GDS__INFO_READ_IDX_COUNT, GDS__INFO_INSERT_COUNT,
+     +    GDS__INFO_UPDATE_COUNT,
+     +    GDS__INFO_DELETE_COUNT, GDS__INFO_BACKOUT_COUNT,
+     +    GDS__INFO_PURGE_COUNT, GDS__INFO_EXPUNGE_COUNT,
+     +    GDS__INFO_SWEEP_INTERVAL, GDS__INFO_ODS_VERSION,
+     +    GDS__INFO_ODS_MINOR_VERSION
+
+      PARAMETER (
+     +    GDS__INFO_LICENSE              = CHAR(20),
+     +    GDS__INFO_ALLOCATION           = CHAR(21),
+     +    GDS__INFO_ATTACHMENT_ID        = CHAR(22),
+     +    GDS__INFO_READ_SEQ_COUNT       = CHAR(23),
+     +    GDS__INFO_READ_IDX_COUNT       = CHAR(24), 
+     +    GDS__INFO_INSERT_COUNT          = CHAR(25),
+     +    GDS__INFO_UPDATE_COUNT         = CHAR(26),
+     +    GDS__INFO_DELETE_COUNT         = CHAR(27), 
+     +    GDS__INFO_BACKOUT_COUNT        = CHAR(28),
+     +    GDS__INFO_PURGE_COUNT          = CHAR(29), 
+     +    GDS__INFO_EXPUNGE_COUNT        = CHAR(30),
+     +    GDS__INFO_SWEEP_INTERVAL       = CHAR(31), 
+     +    GDS__INFO_ODS_VERSION          = CHAR(32),
+     +    GDS__INFO_ODS_MINOR_VERSION    = CHAR(33))
+
+C REQUEST INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_NUMBER_MESSAGES, GDS__INFO_MAX_MESSAGE,
+     +    GDS__INFO_MAX_SEND, GDS__INFO_MAX_RECEIVE, GDS__INFO_STATE,
+     +    GDS__INFO_MESSAGE_NUMBER, GDS__INFO_MESSAGE_SIZE,
+     +    GDS__INFO_REQUEST_COST, GDS__INFO_REQ_ACTIVE,
+     +    GDS__INFO_REQ_INACTIVE, GDS__INFO_REQ_SEND,
+     +    GDS__INFO_REQ_RECEIVE, GDS__INFO_REQ_SELECT
+
+      PARAMETER (
+     +    GDS__INFO_NUMBER_MESSAGES     = CHAR(4),
+     +    GDS__INFO_MAX_MESSAGE         = CHAR(5),
+     +    GDS__INFO_MAX_SEND            = CHAR(6),
+     +    GDS__INFO_MAX_RECEIVE         = CHAR(7),
+     +    GDS__INFO_STATE               = CHAR(8),
+     +    GDS__INFO_MESSAGE_NUMBER      = CHAR(9),
+     +    GDS__INFO_MESSAGE_SIZE        = CHAR(10),
+     +    GDS__INFO_REQUEST_COST        = CHAR(11),
+     +    GDS__INFO_REQ_ACTIVE          = CHAR(2),
+     +    GDS__INFO_REQ_INACTIVE        = CHAR(3),
+     +    GDS__INFO_REQ_SEND            = CHAR(4),
+     +    GDS__INFO_REQ_RECEIVE         = CHAR(5),
+     +    GDS__INFO_REQ_SELECT          = CHAR(6))
+
+C BLOB INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_BLOB_NUM_SEGMENTS,
+     +    GDS__INFO_BLOB_MAX_SEGMENT,
+     +    GDS__INFO_BLOB_TOTAL_LENGTH,
+     +    GDS__INFO_BLOB_TYPE
+
+      PARAMETER (
+     +    GDS__INFO_BLOB_NUM_SEGMENTS   = CHAR(4),
+     +    GDS__INFO_BLOB_MAX_SEGMENT    = CHAR(5),
+     +    GDS__INFO_BLOB_TOTAL_LENGTH   = CHAR(6),
+     +    GDS__INFO_BLOB_TYPE           = CHAR(7))
+
+C TRANSACTION INFORMATION ITEMS 
+
+      CHARACTER*1 GDS__INFO_TRA_ID
+      PARAMETER (
+     +    GDS__INFO_TRA_ID               = CHAR(4))
+
+C Dynamic SQL datatypes
+
+      INTEGER*2
+     + SQL_TEXT,
+     + SQL_VARYING,
+     + SQL_SHORT,
+     + SQL_LONG,
+     + SQL_FLOAT,
+     + SQL_DOUBLE,
+     + SQL_D_FLOAT,
+     + SQL_DATE,
+     + SQL_BLOB
+
+      PARAMETER (
+     + SQL_TEXT = 452,
+     + SQL_VARYING = 448,
+     + SQL_SHORT = 500,
+     + SQL_LONG = 496,
+     + SQL_FLOAT = 482,
+     + SQL_DOUBLE = 480,
+     + SQL_D_FLOAT = 530,
+     + SQL_DATE = 510,
+     + SQL_BLOB = 520)
+
+C  Forms Package definitions 
+
+C  Map definition block definitions 
+
+      INTEGER*2
+     + PYXIS__MAP_VERSION1,
+     + PYXIS__MAP_FIELD2,
+     + PYXIS__MAP_FIELD1,
+     + PYXIS__MAP_MESSAGE,
+     + PYXIS__MAP_TERMINATOR,
+     + PYXIS__MAP_TERMINATING_FIELD,
+     + PYXIS__MAP_OPAQUE,
+     + PYXIS__MAP_TRANSPARENT,
+     + PYXIS__MAP_TAG,
+     + PYXIS__MAP_SUB_FORM,
+     + PYXIS__MAP_ITEM_INDEX,
+     + PYXIS__MAP_SUB_FIELD,
+     + PYXIS__MAP_END
+
+      PARAMETER (
+     + PYXIS__MAP_VERSION1                    = 1,
+     + PYXIS__MAP_FIELD2                      = 2,
+     + PYXIS__MAP_FIELD1                      = 3,
+     + PYXIS__MAP_MESSAGE                     = 4,
+     + PYXIS__MAP_TERMINATOR                  = 5,
+     + PYXIS__MAP_TERMINATING_FIELD           = 6,
+     + PYXIS__MAP_OPAQUE                      = 7,
+     + PYXIS__MAP_TRANSPARENT                 = 8,
+     + PYXIS__MAP_TAG                         = 9,
+     + PYXIS__MAP_SUB_FORM                    = 10,
+     + PYXIS__MAP_ITEM_INDEX                  = 11,
+     + PYXIS__MAP_SUB_FIELD                   = 12,
+     + PYXIS__MAP_END                         = -1)
+
+C  Field option flags for display options 
+
+      INTEGER*2
+     + PYXIS__OPT_DISPLAY,
+     + PYXIS__OPT_UPDATE,
+     + PYXIS__OPT_WAKEUP,
+     + PYXIS__OPT_POSITION
+
+      PARAMETER (
+     + PYXIS__OPT_DISPLAY                     = 1,
+     + PYXIS__OPT_UPDATE                      = 2,
+     + PYXIS__OPT_WAKEUP                      = 4,
+     + PYXIS__OPT_POSITION                    = 8)
+
+C  Field option values following display 
+
+      INTEGER*2
+     + PYXIS__OPT_NULL,
+     + PYXIS__OPT_DEFAULT,
+     + PYXIS__OPT_INITIAL,
+     + PYXIS__OPT_USER_DATA
+
+      PARAMETER (
+     + PYXIS__OPT_NULL                        = 1,
+     + PYXIS__OPT_DEFAULT                     = 2,
+     + PYXIS__OPT_INITIAL                     = 3,
+     + PYXIS__OPT_USER_DATA                   = 4)
+
+C  Pseudo key definitions 
+
+      INTEGER*2
+     + PYXIS__KEY_DELETE,
+     + PYXIS__KEY_UP,
+     + PYXIS__KEY_DOWN,
+     + PYXIS__KEY_RIGHT,
+     + PYXIS__KEY_LEFT,
+     + PYXIS__KEY_PF1,
+     + PYXIS__KEY_PF2,
+     + PYXIS__KEY_PF3,
+     + PYXIS__KEY_PF4,
+     + PYXIS__KEY_PF5,
+     + PYXIS__KEY_PF6,
+     + PYXIS__KEY_PF7,
+     + PYXIS__KEY_PF8,
+     + PYXIS__KEY_PF9,
+     + PYXIS__KEY_ENTER,
+     + PYXIS__KEY_SCROLL_TOP,
+     + PYXIS__KEY_SCROLL_BOTTOM
+
+      PARAMETER (
+     + PYXIS__KEY_DELETE                      = 127,
+     + PYXIS__KEY_UP                          = 128,
+     + PYXIS__KEY_DOWN                        = 129,
+     + PYXIS__KEY_RIGHT                       = 130,
+     + PYXIS__KEY_LEFT                        = 131,
+     + PYXIS__KEY_PF1                         = 132,
+     + PYXIS__KEY_PF2                         = 133,
+     + PYXIS__KEY_PF3                         = 134,
+     + PYXIS__KEY_PF4                         = 135,
+     + PYXIS__KEY_PF5                         = 136,
+     + PYXIS__KEY_PF6                         = 137,
+     + PYXIS__KEY_PF7                         = 138,
+     + PYXIS__KEY_PF8                         = 139,
+     + PYXIS__KEY_PF9                         = 140,
+     + PYXIS__KEY_ENTER                       = 141,
+     + PYXIS__KEY_SCROLL_TOP                  = 146,
+     + PYXIS__KEY_SCROLL_BOTTOM               = 147)
+
+C  Menu definition stuff 
+
+      INTEGER*2
+     + PYXIS__MENU_VERSION1,
+     + PYXIS__MENU_LABEL,
+     + PYXIS__MENU_ENTREE,
+     + PYXIS__MENU_OPAQUE,
+     + PYXIS__MENU_TRANSPARENT,
+     + PYXIS__MENU_HORIZONTAL,
+     + PYXIS__MENU_VERTICAL,
+     + PYXIS__MENU_END
+
+      PARAMETER (
+     + PYXIS__MENU_VERSION1                   = 1,
+     + PYXIS__MENU_LABEL                      = 2,
+     + PYXIS__MENU_ENTREE                     = 3,
+     + PYXIS__MENU_OPAQUE                     = 4,
+     + PYXIS__MENU_TRANSPARENT                = 5,
+     + PYXIS__MENU_HORIZONTAL                 = 6,
+     + PYXIS__MENU_VERTICAL                   = 7,
+     + PYXIS__MENU_END                        = -1)
+
+
+C     Error Codes
+
+      INTEGER*4
+     + GDS_FACILITY,
+     + GDS_ERR_BASE,
+     + GDS_ERR_FACTOR
+
+      INTEGER*4
+     + GDS_ARG_END,          !{ end of argument list }
+     + GDS_ARG_GDS,          !{ generic DSRI status value }
+     + GDS_ARG_STRING,       !{ string argument }
+     + GDS_ARG_CSTRING,      !{ count & string argument }
+     + GDS_ARG_NUMBER,       !{ numeric argument (long) }
+     + GDS_ARG_INTERPRETED,  !{ interpreted status code (string) }
+     + GDS_ARG_VMS,          !{ VAX/VMS status code (long) }
+     + GDS_ARG_UNIX,         !{ UNIX error code }
+     + GDS_ARG_DOMAIN        !{ Apollo/Domain error code }
+
+
+      PARAMETER (
+     + GDS_FACILITY    = 20,
+     + GDS_ERR_BASE    = 335544320,
+     + GDS_ERR_FACTOR  = 1)
+
+      PARAMETER (
+     + GDS_ARG_END          = 0,   !{ end of argument list }
+     + GDS_ARG_GDS          = 1,   !{ generic DSRI status value }
+     + GDS_ARG_STRING       = 2,   !{ string argument }
+     + GDS_ARG_CSTRING      = 3,   !{ count & string argument }
+     + GDS_ARG_NUMBER       = 4,   !{ numeric argument (long) }
+     + GDS_ARG_INTERPRETED  = 5,   !{ interpreted status code (string) }
+     + GDS_ARG_VMS          = 6,   !{ VAX/VMS status code (long) }
+     + GDS_ARG_UNIX         = 7,   !{ UNIX error code }
+     + GDS_ARG_DOMAIN       = 8)   !{ Apollo/Domain error code }
+
+
+      INTEGER*4 GDS__arith_except        
+      PARAMETER (GDS__arith_except         = 335544321)
+      INTEGER*4 GDS__bad_dbkey           
+      PARAMETER (GDS__bad_dbkey            = 335544322)
+      INTEGER*4 GDS__bad_db_format       
+      PARAMETER (GDS__bad_db_format        = 335544323)
+      INTEGER*4 GDS__bad_db_handle       
+      PARAMETER (GDS__bad_db_handle        = 335544324)
+      INTEGER*4 GDS__bad_dpb_content     
+      PARAMETER (GDS__bad_dpb_content      = 335544325)
+      INTEGER*4 GDS__bad_dpb_form        
+      PARAMETER (GDS__bad_dpb_form         = 335544326)
+      INTEGER*4 GDS__bad_req_handle      
+      PARAMETER (GDS__bad_req_handle       = 335544327)
+      INTEGER*4 GDS__bad_segstr_handle   
+      PARAMETER (GDS__bad_segstr_handle    = 335544328)
+      INTEGER*4 GDS__bad_segstr_id       
+      PARAMETER (GDS__bad_segstr_id        = 335544329)
+      INTEGER*4 GDS__bad_tpb_content     
+      PARAMETER (GDS__bad_tpb_content      = 335544330)
+      INTEGER*4 GDS__bad_tpb_form        
+      PARAMETER (GDS__bad_tpb_form         = 335544331)
+      INTEGER*4 GDS__bad_trans_handle    
+      PARAMETER (GDS__bad_trans_handle     = 335544332)
+      INTEGER*4 GDS__bug_check           
+      PARAMETER (GDS__bug_check            = 335544333)
+      INTEGER*4 GDS__convert_error       
+      PARAMETER (GDS__convert_error        = 335544334)
+      INTEGER*4 GDS__db_corrupt          
+      PARAMETER (GDS__db_corrupt           = 335544335)
+      INTEGER*4 GDS__deadlock            
+      PARAMETER (GDS__deadlock             = 335544336)
+      INTEGER*4 GDS__from_no_match       
+      PARAMETER (GDS__from_no_match        = 335544338)
+      INTEGER*4 GDS__infinap             
+      PARAMETER (GDS__infinap              = 335544339)
+      INTEGER*4 GDS__infona              
+      PARAMETER (GDS__infona               = 335544340)
+      INTEGER*4 GDS__infunk              
+      PARAMETER (GDS__infunk               = 335544341)
+      INTEGER*4 GDS__integ_fail          
+      PARAMETER (GDS__integ_fail           = 335544342)
+      INTEGER*4 GDS__invalid_blr         
+      PARAMETER (GDS__invalid_blr          = 335544343)
+      INTEGER*4 GDS__io_error            
+      PARAMETER (GDS__io_error             = 335544344)
+      INTEGER*4 GDS__lock_conflict       
+      PARAMETER (GDS__lock_conflict        = 335544345)
+      INTEGER*4 GDS__metadata_corrupt    
+      PARAMETER (GDS__metadata_corrupt     = 335544346)
+      INTEGER*4 GDS__not_valid           
+      PARAMETER (GDS__not_valid            = 335544347)
+      INTEGER*4 GDS__no_cur_rec          
+      PARAMETER (GDS__no_cur_rec           = 335544348)
+      INTEGER*4 GDS__no_dup              
+      PARAMETER (GDS__no_dup               = 335544349)
+      INTEGER*4 GDS__no_finish           
+      PARAMETER (GDS__no_finish            = 335544350)
+      INTEGER*4 GDS__no_meta_update      
+      PARAMETER (GDS__no_meta_update       = 335544351)
+      INTEGER*4 GDS__no_priv             
+      PARAMETER (GDS__no_priv              = 335544352)
+      INTEGER*4 GDS__no_recon            
+      PARAMETER (GDS__no_recon             = 335544353)
+      INTEGER*4 GDS__no_record           
+      PARAMETER (GDS__no_record            = 335544354)
+      INTEGER*4 GDS__no_segstr_close     
+      PARAMETER (GDS__no_segstr_close      = 335544355)
+      INTEGER*4 GDS__obsolete_metadata   
+      PARAMETER (GDS__obsolete_metadata    = 335544356)
+      INTEGER*4 GDS__open_trans          
+      PARAMETER (GDS__open_trans           = 335544357)
+      INTEGER*4 GDS__port_len            
+      PARAMETER (GDS__port_len             = 335544358)
+      INTEGER*4 GDS__read_only_field     
+      PARAMETER (GDS__read_only_field      = 335544359)
+      INTEGER*4 GDS__read_only_rel       
+      PARAMETER (GDS__read_only_rel        = 335544360)
+      INTEGER*4 GDS__read_only_trans     
+      PARAMETER (GDS__read_only_trans      = 335544361)
+      INTEGER*4 GDS__read_only_view      
+      PARAMETER (GDS__read_only_view       = 335544362)
+      INTEGER*4 GDS__req_no_trans        
+      PARAMETER (GDS__req_no_trans         = 335544363)
+      INTEGER*4 GDS__req_sync            
+      PARAMETER (GDS__req_sync             = 335544364)
+      INTEGER*4 GDS__req_wrong_db        
+      PARAMETER (GDS__req_wrong_db         = 335544365)
+      INTEGER*4 GDS__segment             
+      PARAMETER (GDS__segment              = 335544366)
+      INTEGER*4 GDS__segstr_eof          
+      PARAMETER (GDS__segstr_eof           = 335544367)
+      INTEGER*4 GDS__segstr_no_op        
+      PARAMETER (GDS__segstr_no_op         = 335544368)
+      INTEGER*4 GDS__segstr_no_read      
+      PARAMETER (GDS__segstr_no_read       = 335544369)
+      INTEGER*4 GDS__segstr_no_trans     
+      PARAMETER (GDS__segstr_no_trans      = 335544370)
+      INTEGER*4 GDS__segstr_no_write     
+      PARAMETER (GDS__segstr_no_write      = 335544371)
+      INTEGER*4 GDS__segstr_wrong_db     
+      PARAMETER (GDS__segstr_wrong_db      = 335544372)
+      INTEGER*4 GDS__sys_request         
+      PARAMETER (GDS__sys_request          = 335544373)
+      INTEGER*4 GDS__unavailable         
+      PARAMETER (GDS__unavailable          = 335544375)
+      INTEGER*4 GDS__unres_rel           
+      PARAMETER (GDS__unres_rel            = 335544376)
+      INTEGER*4 GDS__uns_ext             
+      PARAMETER (GDS__uns_ext              = 335544377)
+      INTEGER*4 GDS__wish_list           
+      PARAMETER (GDS__wish_list            = 335544378)
+      INTEGER*4 GDS__wrong_ods           
+      PARAMETER (GDS__wrong_ods            = 335544379)
+      INTEGER*4 GDS__wronumarg           
+      PARAMETER (GDS__wronumarg            = 335544380)
+      INTEGER*4 GDS__imp_exc             
+      PARAMETER (GDS__imp_exc              = 335544381)
+      INTEGER*4 GDS__random              
+      PARAMETER (GDS__random               = 335544382)
+      INTEGER*4 GDS__fatal_conflict      
+      PARAMETER (GDS__fatal_conflict       = 335544383)
+
+C     Minor codes subject to change 
+
+      INTEGER*4 GDS__badblk              
+      PARAMETER (GDS__badblk               = 335544384)
+      INTEGER*4 GDS__invpoolcl           
+      PARAMETER (GDS__invpoolcl            = 335544385)
+      INTEGER*4 GDS__nopoolids           
+      PARAMETER (GDS__nopoolids            = 335544386)
+      INTEGER*4 GDS__relbadblk           
+      PARAMETER (GDS__relbadblk            = 335544387)
+      INTEGER*4 GDS__blktoobig           
+      PARAMETER (GDS__blktoobig            = 335544388)
+      INTEGER*4 GDS__bufexh              
+      PARAMETER (GDS__bufexh               = 335544389)
+      INTEGER*4 GDS__syntaxerr           
+      PARAMETER (GDS__syntaxerr            = 335544390)
+      INTEGER*4 GDS__bufinuse            
+      PARAMETER (GDS__bufinuse             = 335544391)
+      INTEGER*4 GDS__bdbincon            
+      PARAMETER (GDS__bdbincon             = 335544392)
+      INTEGER*4 GDS__reqinuse            
+      PARAMETER (GDS__reqinuse             = 335544393)
+      INTEGER*4 GDS__badodsver           
+      PARAMETER (GDS__badodsver            = 335544394)
+      INTEGER*4 GDS__relnotdef           
+      PARAMETER (GDS__relnotdef            = 335544395)
+      INTEGER*4 GDS__fldnotdef           
+      PARAMETER (GDS__fldnotdef            = 335544396)
+      INTEGER*4 GDS__dirtypage           
+      PARAMETER (GDS__dirtypage            = 335544397)
+      INTEGER*4 GDS__waifortra           
+      PARAMETER (GDS__waifortra            = 335544398)
+      INTEGER*4 GDS__doubleloc           
+      PARAMETER (GDS__doubleloc            = 335544399)
+      INTEGER*4 GDS__nodnotfnd           
+      PARAMETER (GDS__nodnotfnd            = 335544400)
+      INTEGER*4 GDS__dupnodfnd           
+      PARAMETER (GDS__dupnodfnd            = 335544401)
+      INTEGER*4 GDS__locnotmar           
+      PARAMETER (GDS__locnotmar            = 335544402)
+      INTEGER*4 GDS__badpagtyp           
+      PARAMETER (GDS__badpagtyp            = 335544403)
+      INTEGER*4 GDS__corrupt             
+      PARAMETER (GDS__corrupt              = 335544404)
+      INTEGER*4 GDS__badpage             
+      PARAMETER (GDS__badpage              = 335544405)
+      INTEGER*4 GDS__badindex            
+      PARAMETER (GDS__badindex             = 335544406)
+      INTEGER*4 GDS__dbbnotzer           
+      PARAMETER (GDS__dbbnotzer            = 335544407)
+      INTEGER*4 GDS__tranotzer           
+      PARAMETER (GDS__tranotzer            = 335544408)
+      INTEGER*4 GDS__trareqmis           
+      PARAMETER (GDS__trareqmis            = 335544409)
+      INTEGER*4 GDS__badhndcnt           
+      PARAMETER (GDS__badhndcnt            = 335544410)
+      INTEGER*4 GDS__wrotpbver           
+      PARAMETER (GDS__wrotpbver            = 335544411)
+      INTEGER*4 GDS__wroblrver           
+      PARAMETER (GDS__wroblrver            = 335544412)
+      INTEGER*4 GDS__wrodpbver           
+      PARAMETER (GDS__wrodpbver            = 335544413)
+      INTEGER*4 GDS__blobnotsup          
+      PARAMETER (GDS__blobnotsup           = 335544414)
+      INTEGER*4 GDS__badrelation         
+      PARAMETER (GDS__badrelation          = 335544415)
+      INTEGER*4 GDS__nodetach            
+      PARAMETER (GDS__nodetach             = 335544416)
+      INTEGER*4 GDS__notremote           
+      PARAMETER (GDS__notremote            = 335544417)
+      INTEGER*4 GDS__trainlim            
+      PARAMETER (GDS__trainlim             = 335544418)
+      INTEGER*4 GDS__notinlim            
+      PARAMETER (GDS__notinlim             = 335544419)
+      INTEGER*4 GDS__traoutsta           
+      PARAMETER (GDS__traoutsta            = 335544420)
+      INTEGER*4 GDS__connect_reject      
+      PARAMETER (GDS__connect_reject       = 335544421)
+      INTEGER*4 GDS__dbfile              
+      PARAMETER (GDS__dbfile               = 335544422)
+      INTEGER*4 GDS__orphan              
+      PARAMETER (GDS__orphan               = 335544423)
+      INTEGER*4 GDS__no_lock_mgr         
+      PARAMETER (GDS__no_lock_mgr          = 335544424)
+      INTEGER*4 GDS__ctxinuse            
+      PARAMETER (GDS__ctxinuse             = 335544425)
+      INTEGER*4 GDS__ctxnotdef           
+      PARAMETER (GDS__ctxnotdef            = 335544426)
+      INTEGER*4 GDS__datnotsup           
+      PARAMETER (GDS__datnotsup            = 335544427)
+      INTEGER*4 GDS__badmsgnum           
+      PARAMETER (GDS__badmsgnum            = 335544428)
+      INTEGER*4 GDS__badparnum           
+      PARAMETER (GDS__badparnum            = 335544429)
+      INTEGER*4 GDS__virmemexh           
+      PARAMETER (GDS__virmemexh            = 335544430)
+      INTEGER*4 GDS__blocking_signal     
+      PARAMETER (GDS__blocking_signal      = 335544431)
+      INTEGER*4 GDS__lockmanerr          
+      PARAMETER (GDS__lockmanerr           = 335544432)
+      INTEGER*4 GDS__journerr            
+      PARAMETER (GDS__journerr             = 335544433)
+      INTEGER*4 GDS__wrodynver           
+      PARAMETER (GDS__wrodynver            = 335544437)
+      INTEGER*4 gds__obj_in_use
+      PARAMETER (gds__obj_in_use           = 335544453)
+      INTEGER*4 gds__no_filter
+      PARAMETER (gds__no_filter            = 335544454)
+      INTEGER*4 gds__shadow_accessed
+      PARAMETER (gds__shadow_accessed      = 335544455)
+      INTEGER*4 gds__invalid_sdl
+      PARAMETER (gds__invalid_sdl          = 335544456)
+      INTEGER*4 gds__out_of_bounds
+      PARAMETER (gds__out_of_bounds        = 335544457)
+      INTEGER*4 gds__invalid_dimension
+      PARAMETER (gds__invalid_dimension    = 335544458)
+      INTEGER*4 gds__rec_in_limbo
+      PARAMETER (gds__rec_in_limbo = 335544459)
+      INTEGER*4 gds__shadow_missing
+      PARAMETER (gds__shadow_missing = 335544460)
+      INTEGER*4 gds__cant_validate
+      PARAMETER (gds__cant_validate = 335544461)
+      INTEGER*4 gds__cant_start_journal
+      PARAMETER (gds__cant_start_journal = 335544462)
+      INTEGER*4 gds__gennotdef
+      PARAMETER (gds__gennotdef = 335544463)
+      INTEGER*4 gds__cant_start_logging
+      PARAMETER (gds__cant_start_logging = 335544464)
+      INTEGER*4 gds__bad_segstr_type
+      PARAMETER (gds__bad_segstr_type = 335544465)
+      INTEGER*4 gds__foreign_key
+      PARAMETER (gds__foreign_key = 335544466)
+      INTEGER*4 gds__high_minor
+      PARAMETER (gds__high_minor = 335544467)
+      INTEGER*4 gds__tra_state
+      PARAMETER (gds__tra_state = 335544468)
+      INTEGER*4 gds__trans_invalid
+      PARAMETER (gds__trans_invalid = 335544469)
+      INTEGER*4 gds__buf_invalid
+      PARAMETER (gds__buf_invalid = 335544470)
+      INTEGER*4 gds__indexnotdefined
+      PARAMETER (gds__indexnotdefined = 335544471)
+      INTEGER*4 gds__login
+      PARAMETER (gds__login = 335544472)
+      INTEGER*4 gds__invalid_bookmark
+      PARAMETER (gds__invalid_bookmark = 335544473)
+      INTEGER*4 gds__bad_lock_level
+      PARAMETER (gds__bad_lock_level = 335544474)
+      INTEGER*4 gds__relation_lock
+      PARAMETER (gds__relation_lock = 335544475)
+      INTEGER*4 gds__record_lock
+      PARAMETER (gds__record_lock = 335544476)
+      INTEGER*4 gds__max_idx
+      PARAMETER (gds__max_idx = 335544477)
+      INTEGER*4 gds__jrn_enable
+      PARAMETER (gds__jrn_enable = 335544478)
+      INTEGER*4 gds__old_failure
+      PARAMETER (gds__old_failure = 335544479)
+      INTEGER*4 gds__old_in_porgress
+      PARAMETER (gds__old_in_progress = 335544480)
+      INTEGER*4 gds__old_no_space
+      PARAMETER (gds__old_no_space = 335544481)
+      INTEGER*4 gds__no_wal_no_jrn
+      PARAMETER (gds__no_wal_no_jrn = 335544482)
+      INTEGER*4 gds__num_old_files
+      PARAMETER (gds__num_old_files = 335544483)
+      INTEGER*4 gds__wal_file_open
+      PARAMETER (gds__wal_file_open = 335544484)
+      INTEGER*4 gds__bad_stmt_handle
+      PARAMETER (gds__bad_stmt_handle = 335544485)
+      INTEGER*4 gds__wal_failure
+      PARAMETER (gds__wal_failue = 335544486)
+      INTEGER*4 gds__walw_err
+      PARAMETER (gds__walw_err = 335544487)
+      INTEGER*4 gds__logh_small
+      PARAMETER (gds__logh_small = 335544488)
+      INTEGER*4 gds__logh_inv_version
+      PARAMETER (gds__logh_inv_version = 335544489)
+      INTEGER*4 gds__logh_open_flag
+      PARAMETER (gds__logh_open_flag = 335544490)
+      INTEGER*4 gds__logh_open_flag2
+      PARAMETER (gds__logh_open_flag2 = 335544491)
+      INTEGER*4 gds__logh_diff_dbname
+      PARAMETER (gds__logh_diff_dbname = 335544492)
+      INTEGER*4 gds__logf_unexpected_eof
+      PARAMETER (gds__logf_unexpected_eof = 335544493)
+      INTEGER*4 gds__logr_incomplete
+      PARAMETER (gds__logr_incomplete = 335544494)
+      INTEGER*4 gds__logr_header_small
+      PARAMETER (gds__logr_header_small = 335544495)
+      INTEGER*4 gds__logb_small
+      PARAMETER (gds__logb_small = 335544496)
+      INTEGER*4 gds__wal_illegal_attach
+      PARAMETER (gds__wal_illegal_attach = 335544497)
+      INTEGER*4 gds__wal_invalid_wpb
+      PARAMETER (gds__wal_invalid_wpb = 335544498)
+      INTEGER*4 gds__wal_err_rollover
+      PARAMETER (gds__wal_err_rollover = 335544499)
+      INTEGER*4 gds__no_wal
+      PARAMETER (gds__no_wal = 335544500)
+      INTEGER*4 gds__drop_wal
+      PARAMETER (gds__drop_wal = 335544501)
+      INTEGER*4 gds__stream_not_defined
+      PARAMETER (gds__stream_not_defined = 335544502)
+      INTEGER*4 gds__unknown_183
+      PARAMETER (gds__unknown_183 = 335544503)
+      INTEGER*4 gds__wal_subsys_error
+      PARAMETER (gds__wal_subsys_error = 335544504)
+      INTEGER*4 gds__wal_subsys_corrupt
+      PARAMETER (gds__wal_subsys_corrupt = 335544505)
+      INTEGER*4 gds__no_archive
+      PARAMETER (gds__no_archive = 335544506)
+      INTEGER*4 gds__store_proc_failed
+      PARAMETER (gds__store_proc_failed = 335544507)
+      INTEGER*4 gds__range_in_use
+      PARAMETER (gds__range_in_use = 335544508)
+      INTEGER*4 gds__range_not_found
+      PARAMETER (gds__range_not_found = 335544508)
+      INTEGER*4 gds__charset_not_found
+      PARAMETER (gds__charset_not_found = 335544510)
+      INTEGER*4 gds__lock_timeout
+      PARAMETER (gds__lock_timeout = 335544511)
+      INTEGER*4 gds__prcnotdef
+      PARAMETER (gds__prcnotdef = 335544512)
+      INTEGER*4 gds__prcmismat
+      PARAMETER (gds__prcmismat = 335544513)
+
+
+
+
diff --git a/src/jrd/gdsassert.h b/src/jrd/gdsassert.h
new file mode 100644
index 0000000000..11006180a7
--- /dev/null
+++ b/src/jrd/gdsassert.h
@@ -0,0 +1,52 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef _JRD_GDSASSERT_H_
+#define _JRD_GDSASSERT_H_
+
+#ifndef assert
+
+#ifdef DEV_BUILD
+
+#include <stdlib.h>				// abort()
+
+#include "../jrd/ib_stdio.h"
+
+
+/* assert() has been made into a generic version that works across
+ * gds components.  Previously, the assert() defined here was only
+ * usable within the engine.
+ * 1996-Feb-09 David Schnepper 
+ */
+#ifdef SUPERSERVER
+#define _assert(ex)	{if (!(ex)){(void) gds__log ("GDS Assertion failure: %s %ld\n", __FILE__, __LINE__); abort();}}
+#else
+#define _assert(ex)	{if (!(ex)){(void) ib_fprintf (ib_stderr, "GDS Assertion failure: %s %ld\n", __FILE__, __LINE__); abort();}}
+#endif
+#define assert(ex)	_assert(ex)
+
+#else
+
+#define _assert(ex)				/* nothing */
+#define assert(ex)				/* nothing */
+
+#endif /* DEV_BUILD */
+
+#endif /* assert */
+
+#endif /* _JRD_GDSASSERT_H_ */
diff --git a/src/jrd/gdsentry.mar b/src/jrd/gdsentry.mar
new file mode 100644
index 0000000000..901cb896dc
--- /dev/null
+++ b/src/jrd/gdsentry.mar
@@ -0,0 +1,383 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+;
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+;
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+;
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+
+	.title	gdsentry	"GDS Shareable Library Entry Vector"
+
+	.macro	entry	foo
+	.transfer	foo
+	.mask		foo
+	jmp		l^foo+2
+	.endm
+
+	.macro	no_entry	foo
+foo::
+	.mask		PYXIS_bugcheck
+	jmp		l^PYXIS_bugcheck+2
+	.endm
+
+entry	gds__attach_database
+entry	gds__blob_info
+entry	gds__cancel_blob
+entry	gds__close_blob
+entry	gds__commit_transaction
+entry	gds__compile_request
+entry	gds__create_blob
+entry	gds__create_database
+entry	gds__database_info
+entry	gds__detach_database
+entry	gds__get_segment
+entry	gds__open_blob
+entry	gds__prepare_transaction
+entry	gds__put_segment
+entry	gds__reconnect_transaction
+entry	gds__receive
+entry	gds__release_request
+entry	gds__request_info
+entry	gds__rollback_transaction
+entry	gds__send
+entry	gds__start_and_send
+entry	gds__start_request
+entry	gds__start_multiple
+entry	gds__start_transaction
+entry	gds__transaction_info
+entry	gds__unwind_request
+
+entry 	gds__decode_date
+entry 	gds__encode_date
+entry 	gds__print_status
+entry 	gds__sqlcode
+entry 	gds__ftof
+entry 	gds__qtoq
+entry 	gds__vtof
+entry 	gds__vtov
+
+entry	gds__alloc
+entry	gds__free
+
+entry	perf_format
+entry	perf_get_info
+entry	perf_report
+
+entry	gds__temp_file
+entry	gds__vax_integer
+entry	gds__encode
+entry	gds__decode
+entry	gds__interprete
+entry	gds__edit
+
+entry	blob_close
+entry	blob__display
+entry	blob_display
+entry	blob__dump
+entry	blob_dump
+entry	blob__edit
+entry	blob_edit
+entry	blob_get
+entry	blob__load
+entry	blob_load
+entry	bopen
+entry	blob_open
+entry	blob_put
+
+entry	unlink
+entry	gds__compile_request2
+entry	gds__print_blr
+entry	gds__version
+
+entry	gds__ddl
+no_entry	gds__ddl_fini
+no_entry	gds__ddl_init
+no_entry	gds__ddl_relation_defined
+no_entry	gds__ddl_update
+
+entry	gds__close
+entry	gds__declare
+entry	gds__describe
+entry	gds__execute
+entry	gds__execute_immediate
+entry	gds__fetch
+entry	gds__open
+entry	gds__prepare
+entry	gds__to_sqlda
+
+entry 	PYXIS_BOX 
+entry 	PYXIS_CLONE 
+entry 	PYXIS_CREATE_ENTREE 
+entry 	PYXIS_CREATE_OBJECT 
+entry 	PYXIS_find_index 
+entry 	PYXIS_DEFINE_FORMS_RELATION 
+entry 	PYXIS_DELETE_ATTRIBUTE 
+entry 	PYXIS_DELETE_FORM 
+entry 	PYXIS_DELETE_NAMED_ATTRIBUTE 
+entry 	PYXIS_DELETE_OBJECT 
+entry 	pyxis__insert
+entry	pyxis__fetch
+entry 	PYXIS_DUMP 
+entry 	PYXIS_DUMP_LENGTH 
+entry 	PYXIS_EDIT 
+entry 	PYXIS_FIND_OBJECT 
+no_entry 	pyxis__dummy4
+entry 	PYXIS_FORMAT_FORM 
+entry 	PYXIS_FORMAT_MENU 
+no_entry 	PYXIS_CREATE_PROMPT 
+entry 	PYXIS_GET_ATTRIBUTE 
+entry 	PYXIS_GET_ATTRIBUTE_VALUE 
+entry 	PYXIS_GET_CHAR 
+entry	PYXIS_GET_DATA
+no_entry	PYXIS_GET_NUMBER
+entry	PYXIS_GET_STRING
+entry	PYXIS_GET_VALUE
+entry 	pyxis__compile_sub_map
+no_entry 	pyxis__dummy3
+entry 	PYXIS_MENU 
+entry 	PYXIS_MOVE 
+entry	PYXIS_NAVIGATE
+entry	PYXIS_POP_FORM
+no_entry 	PYXIS_PROMPT 
+entry	PYXIS_PUSH_FORM
+entry	PYXIS_PUSH_TAG
+entry 	PYXIS_PUT_ATTRIBUTE 
+entry	PYXIS_PUT_DESC
+no_entry	PYXIS_PUT_NUMBER
+entry	PYXIS_PUT_SEGMENT
+no_entry	PYXIS_PUT_STRING
+entry 	PYXIS_REFERENCE 
+entry	PYXIS_RELATION_FIELDS
+entry	PYXIS_RELATION_FORM
+entry 	PYXIS_REPLACE_ATTRIBUTE 
+no_entry	pyxis__dummy1
+entry 	PYXIS_SELECT 
+entry 	PYXIS_SET_DISPLAY_ATTRIBUTE 
+entry	PYXIS_SET_FIELD_OPTIONS
+entry 	PYXIS_STORE_FORM 
+entry	PYXIS_UPDATE
+no_entry	pyxis__dummy2
+entry	PYXIS_BUGCHECK
+entry	PYXIS_COMPUTE_SIZE
+entry	PYXIS_ERROR
+entry	PYXIS_LOAD
+entry	PYXIS_position
+entry	PYXIS_find_field
+entry	pyxis__load_form
+entry	pyxis__drive_form
+entry	pyxis__compile_map
+entry	pyxis__create_window
+entry	pyxis__delete_window
+entry	pyxis__pop_window
+entry	pyxis__suspend_window
+entry	pyxis__menu
+entry	pyxis__reset_form
+
+entry	gds__put_error
+entry	pyxis__delete
+entry	gds__blob_size
+
+entry	gds__attach_database_d
+entry	gds__execute_immediate_d
+entry	gds__prepare_d
+entry	gds__fetch_a
+
+entry	PYXIS_GET_UPDATED
+entry	PYXIS_TRACE_IN
+entry	PYXIS_TRACE_OUT
+
+entry	gds__cancel_events
+entry	gds__commit_retaining
+entry	gds__create_blob2
+entry	gds__enable_subsystem
+entry	gds__msg_format
+entry	gds__open_blob2
+entry	gds__prepare_transaction2
+entry	gds__que_events
+entry	gds__register_cleanup
+entry	gds__set_debug
+entry	gds__event_block
+entry	gds__event_counts
+entry	gds__msg_lookup
+entry	gds__msg_open
+entry	gds__msg_put
+entry	gds__parse_bpb
+
+entry	pyxis__drive_menu
+entry	pyxis__get_entree
+entry	pyxis__initialize_menu
+entry	pyxis__put_entree
+
+entry	gds__get_slice
+entry	gds__put_slice
+entry	PYXIS_GET_KEYNAME
+
+entry	gds__prefix
+entry	gds__dsql_finish
+
+entry	gds__event_wait
+entry	gds__thread_start
+entry	gds__thread_wait
+entry	gds__thread_enter
+entry	gds__thread_exit
+entry	gds__thread_enable
+
+entry	gds__describe_bind
+entry	gds__log
+entry	gds__completion_ast
+entry	gds__ast_active
+entry	gds__wake_init
+entry	gds__disable_subsystem
+
+entry	isc_attach_database
+entry	isc_blob_info
+entry	isc_cancel_blob
+entry	isc_cancel_events
+entry	isc_close_blob
+entry	isc_commit_retaining
+entry	isc_commit_transaction
+entry	isc_compile_request
+entry	isc_compile_request2
+entry	isc_create_blob
+entry	isc_create_blob2
+entry	isc_create_database
+entry	isc_database_info
+entry	isc_ddl
+entry	isc_decode_date
+entry	isc_detach_database
+entry	isc_event_counts
+entry	isc_ftof
+entry	isc_get_segment
+entry	isc_get_slice
+entry	isc_interprete
+entry	isc_open_blob
+entry	isc_open_blob2
+entry	isc_prepare_transaction
+entry	isc_prepare_transaction2
+entry	isc_print_status
+entry	isc_put_segment
+entry	isc_put_slice
+entry	isc_qtoq
+entry	isc_que_events
+entry	isc_receive
+entry	isc_reconnect_transaction
+entry	isc_release_request
+entry	isc_request_info
+entry	isc_rollback_transaction
+entry	isc_send
+entry	isc_sqlcode
+entry	isc_start_and_send
+entry	isc_start_multiple
+entry	isc_start_transaction
+entry	isc_start_request
+entry	isc_transaction_info
+entry	isc_unwind_request
+entry	isc_version
+entry	isc_vtof
+entry	isc_vtov
+entry	isc_wait_for_event
+
+entry	isc_close
+entry	isc_declare
+entry	isc_describe
+entry	isc_describe_bind
+entry	isc_dsql_finish
+entry	isc_dsql_release
+entry	isc_execute
+entry	isc_execute_immediate
+entry	isc_fetch
+entry	isc_fetch_a
+entry	isc_open
+entry	isc_prepare
+entry	isc_to_sqlda
+entry	isc_array_lookup_desc
+entry	isc_array_lookup_bounds
+entry	isc_array_set_desc
+entry	isc_array_gen_sdl
+entry	isc_array_get_slice
+entry	isc_array_put_slice
+
+entry	isc_compile_map
+entry	isc_compile_menu
+entry	isc_compile_sub_map
+entry	isc_create_window
+entry	isc_delete_window
+entry	isc_drive_form
+entry	isc_drive_menu
+entry	isc_form_delete
+entry	isc_form_fetch
+entry	isc_form_insert
+entry	isc_get_entree
+entry	isc_initialize_menu
+entry	isc_load_form
+entry	isc_menu
+entry	isc_pop_window
+entry	isc_put_entree
+entry	isc_reset_form
+entry	isc_suspend_window
+entry	isc_event_block
+entry	gds__seek_blob
+entry	isc_seek_blob
+entry 	isc_encode_date
+entry	isc_print_blr
+entry	gds__database_cleanup
+entry	isc_database_cleanup
+entry	isc_set_debug
+entry	isc_print_sqlerror
+entry	isc_sql_interprete
+
+entry	gds__event_block_a
+entry	gds__interprete_a
+
+entry	isc_execute_immediate_d
+entry	isc_prepare_d
+
+entry	isc_dsql_execute
+entry	isc_dsql_execute_m
+entry	isc_dsql_execute_immediate
+entry	isc_dsql_execute_immediate_m
+entry	isc_dsql_fetch
+entry	isc_dsql_fetch_a
+entry	isc_dsql_fetch_m
+entry	isc_dsql_free_statement
+entry	isc_dsql_prepare
+entry	isc_dsql_prepare_m
+entry	isc_dsql_set_cursor_name
+entry	isc_dsql_sql_info
+entry	isc_dsql_allocate_statement
+entry	isc_dsql_describe
+entry	isc_dsql_describe_bind
+entry	isc_embed_dsql_close
+entry	isc_embed_dsql_declare
+entry	isc_embed_dsql_execute
+entry	isc_embed_dsql_execute_immed
+entry	isc_embed_dsql_fetch
+entry	isc_embed_dsql_fetch_a
+entry	isc_embed_dsql_open
+entry	isc_embed_dsql_prepare
+entry	isc_embed_dsql_release
+entry	isc_embed_dsql_describe
+entry	isc_embed_dsql_describe_bind
+entry	isc_embed_dsql_execute_immed_d
+entry	isc_embed_dsql_prepare_d
+entry	isc_dsql_execute_immediate_d
+entry	isc_dsql_prepare_d
+
+entry	isc_baddress
+entry	gds__map_blobs
+
+entry	isc_dsql_alloc_statement2
+entry	isc_vax_integer
+
+entry	BLOB_text_dump
+entry	BLOB_text_load
+	.end
diff --git a/src/jrd/gdsold.h b/src/jrd/gdsold.h
new file mode 100644
index 0000000000..5793f2506c
--- /dev/null
+++ b/src/jrd/gdsold.h
@@ -0,0 +1,2635 @@
+/*
+ *	PROGRAM:	C preprocessor
+ *	MODULE:		gds.h
+ *	DESCRIPTION:	BLR constants
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_GDSOLD_H_
+#define _JRD_GDSOLD_H_
+
+#define gds_version3
+
+#define GDS_TRUE	1
+#define GDS_FALSE	0
+#if !(defined __cplusplus)
+#define GDS__TRUE	GDS_TRUE
+#define GDS__FALSE	GDS_FALSE
+#endif
+
+#if (defined __osf__ && defined __alpha)
+#define GDS_LONG	int
+#define GDS_ULONG	unsigned int
+#else
+#define GDS_LONG	long
+#define GDS_ULONG	unsigned long
+#endif
+
+#define GDS_STATUS	long
+
+#define GDS_VAL(val)	val
+#define GDS_REF(val)	&val
+#define GDS_TYPE	GDS_STATUS
+
+#define CANCEL_disable	1
+#define CANCEL_enable	2
+#define CANCEL_raise	3
+
+/******************************************************************/
+/* define type, export and other stuff based on c/c++ and Windows */
+/******************************************************************/
+
+#define  GDS_FAR	ISC_FAR
+#define  GDS_EXPORT     ISC_EXPORT
+
+typedef void GDS_FAR *gds_db_handle;
+typedef void GDS_FAR *gds_req_handle;
+typedef void GDS_FAR *gds_tr_handle;
+typedef void GDS_FAR *gds_blob_handle;
+typedef void GDS_FAR *gds_win_handle;
+typedef void GDS_FAR *gds_form_handle;
+typedef void GDS_FAR *gds_stmt_handle;
+typedef void GDS_FAR *gds_svc_handle;
+typedef void (GDS_FAR * gds_callback) ();
+
+
+/*************************/
+/* Old OSRI entrypoints  */
+/*************************/
+
+#ifndef NO_OSRI_ENTRYPOINTS
+
+/* #ifndef __cplusplus */
+
+#ifdef __cplusplus
+extern "C" {
+typedef GDS_QUAD GDS__QUAD;
+#endif
+
+#if defined(__STDC__) || defined(_Windows) || \
+    (defined(_MSC_VER) && defined(WIN32)) || defined(_WINDOWS) || \
+    (defined(__BORLANDC__) && (defined(__WIN32__) )) || \
+    defined(AIX_PPC) || \
+	defined(__cplusplus)
+
+
+GDS_STATUS GDS_EXPORT gds__attach_database(GDS_STATUS GDS_FAR *,
+										   short,
+										   char GDS_FAR *,
+										   void GDS_FAR * GDS_FAR *,
+										   short,
+										   char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__blob_info(GDS_STATUS GDS_FAR *,
+									 void GDS_FAR * GDS_FAR *,
+									 short,
+									 char GDS_FAR *,
+									 short,
+									 char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__cancel_blob(GDS_STATUS GDS_FAR *,
+									   void GDS_FAR * GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__close_blob(GDS_STATUS GDS_FAR *,
+									  void GDS_FAR * GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__commit_transaction(GDS_STATUS GDS_FAR *,
+											  void GDS_FAR * GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__compile_request(GDS_STATUS GDS_FAR *,
+										   void GDS_FAR * GDS_FAR *,
+										   void GDS_FAR * GDS_FAR *,
+										   short,
+										   char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__compile_request2(GDS_STATUS GDS_FAR *,
+											void GDS_FAR * GDS_FAR *,
+											void GDS_FAR * GDS_FAR *,
+											short,
+											char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__create_blob(GDS_STATUS GDS_FAR *,
+									   void GDS_FAR * GDS_FAR *,
+									   void GDS_FAR * GDS_FAR *,
+									   void GDS_FAR * GDS_FAR *,
+									   GDS__QUAD GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__create_blob2(GDS_STATUS GDS_FAR *,
+										void GDS_FAR * GDS_FAR *,
+										void GDS_FAR * GDS_FAR *,
+										void GDS_FAR * GDS_FAR *,
+										GDS__QUAD GDS_FAR *,
+										short,
+										char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__create_database(GDS_STATUS GDS_FAR *,
+										   short,
+										   char GDS_FAR *,
+										   void GDS_FAR * GDS_FAR *,
+										   short,
+										   char GDS_FAR *,
+										   short);
+
+GDS_STATUS GDS_EXPORT gds__database_info(GDS_STATUS GDS_FAR *,
+										 void GDS_FAR * GDS_FAR *,
+										 short,
+										 char GDS_FAR *,
+										 short,
+										 char GDS_FAR *);
+
+void GDS_EXPORT gds__decode_date(GDS__QUAD GDS_FAR *,
+								 void GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__detach_database(GDS_STATUS GDS_FAR *,
+										   void GDS_FAR * GDS_FAR *);
+
+GDS_ULONG GDS_EXPORT gds__free(void GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__get_segment(GDS_STATUS GDS_FAR *,
+									   void GDS_FAR * GDS_FAR *,
+									   unsigned short GDS_FAR *,
+									   unsigned short,
+									   char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__open_blob(GDS_STATUS GDS_FAR *,
+									 void GDS_FAR * GDS_FAR *,
+									 void GDS_FAR * GDS_FAR *,
+									 void GDS_FAR * GDS_FAR *,
+									 GDS__QUAD GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__open_blob2(GDS_STATUS GDS_FAR *,
+									  void GDS_FAR * GDS_FAR *,
+									  void GDS_FAR * GDS_FAR *,
+									  void GDS_FAR * GDS_FAR *,
+									  GDS__QUAD GDS_FAR *,
+									  short,
+									  char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__prepare_transaction(GDS_STATUS GDS_FAR *,
+											   void GDS_FAR * GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__prepare_transaction2(GDS_STATUS GDS_FAR *,
+												void GDS_FAR * GDS_FAR *,
+												short,
+												char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__put_segment(GDS_STATUS GDS_FAR *,
+									   void GDS_FAR * GDS_FAR *,
+									   unsigned short,
+									   char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__receive(GDS_STATUS GDS_FAR *,
+								   void GDS_FAR * GDS_FAR *,
+								   short,
+								   short,
+								   void GDS_FAR *,
+								   short);
+
+GDS_STATUS GDS_EXPORT gds__reconnect_transaction(GDS_STATUS GDS_FAR *,
+												 void GDS_FAR * GDS_FAR *,
+												 void GDS_FAR * GDS_FAR *,
+												 short,
+												 char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__request_info(GDS_STATUS GDS_FAR *,
+										void GDS_FAR * GDS_FAR *,
+										short,
+										short,
+										char GDS_FAR *,
+										short,
+										char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__release_request(GDS_STATUS GDS_FAR *,
+										   void GDS_FAR * GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__rollback_transaction(GDS_STATUS GDS_FAR *,
+												void GDS_FAR * GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__seek_blob(GDS_STATUS GDS_FAR *,
+									 void GDS_FAR * GDS_FAR *,
+									 short,
+									 GDS_LONG,
+									 GDS_LONG GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__send(GDS_STATUS GDS_FAR *,
+								void GDS_FAR * GDS_FAR *,
+								short,
+								short,
+								void GDS_FAR *,
+								short);
+
+void GDS_EXPORT gds__set_debug(int);
+
+GDS_STATUS GDS_EXPORT gds__start_and_send(GDS_STATUS GDS_FAR *,
+										  void GDS_FAR * GDS_FAR *,
+										  void GDS_FAR * GDS_FAR *,
+										  short,
+										  short,
+										  void GDS_FAR *,
+										  short);
+
+GDS_STATUS GDS_EXPORT gds__start_multiple(GDS_STATUS GDS_FAR *,
+										  void GDS_FAR * GDS_FAR *,
+										  short,
+										  void GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__start_request(GDS_STATUS GDS_FAR *,
+										 void GDS_FAR * GDS_FAR *,
+										 void GDS_FAR * GDS_FAR *,
+										 short);
+
+GDS_STATUS GDS_EXPORT gds__start_transaction(GDS_STATUS GDS_FAR *,
+											 void GDS_FAR * GDS_FAR *,
+											 short, ...);
+
+GDS_STATUS GDS_EXPORT gds__transaction_info(GDS_STATUS GDS_FAR *,
+											void GDS_FAR * GDS_FAR *,
+											short,
+											char GDS_FAR *,
+											short,
+											char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__unwind_request(GDS_STATUS GDS_FAR *,
+										  void GDS_FAR * GDS_FAR *,
+										  short);
+
+GDS_LONG GDS_EXPORT gds__ftof(char GDS_FAR *,
+							  unsigned short,
+							  char GDS_FAR *,
+							  unsigned short);
+
+void GDS_EXPORT gds__vtov(CONST SCHAR GDS_FAR*,
+						  SCHAR GDS_FAR *,
+						  SSHORT);
+
+int GDS_EXPORT gds__version(void GDS_FAR * GDS_FAR *,
+							void (GDS_FAR *) (),
+							void GDS_FAR *);
+
+int GDS_EXPORT gds__disable_subsystem(char GDS_FAR *);
+
+int GDS_EXPORT gds__enable_subsystem(char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__print_status(GDS_STATUS GDS_FAR *);
+
+GDS_LONG GDS_EXPORT gds__sqlcode(GDS_STATUS GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__ddl(GDS_STATUS GDS_FAR *,
+							   void GDS_FAR * GDS_FAR *,
+							   void GDS_FAR * GDS_FAR *,
+							   short,
+							   char GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__commit_retaining(GDS_STATUS GDS_FAR *,
+											void GDS_FAR * GDS_FAR *);
+
+void GDS_EXPORT gds__encode_date(void GDS_FAR *,
+								 GDS__QUAD GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__que_events(GDS_STATUS GDS_FAR *,
+									  void GDS_FAR * GDS_FAR *,
+									  GDS_LONG GDS_FAR *,
+									  short,
+									  char GDS_FAR *,
+									  void (GDS_FAR *) (),
+									  void GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__cancel_events(GDS_STATUS GDS_FAR *,
+										 void GDS_FAR * GDS_FAR *,
+										 GDS_LONG GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__event_wait(GDS_STATUS GDS_FAR *,
+									  void GDS_FAR * GDS_FAR *,
+									  short,
+									  char GDS_FAR *,
+									  char GDS_FAR *);
+
+void GDS_EXPORT gds__event_counts(unsigned GDS_LONG GDS_FAR *,
+								  short,
+								  char GDS_FAR *,
+								  char GDS_FAR *);
+
+GDS_LONG GDS_EXPORT gds__event_block(char GDS_FAR * GDS_FAR *,
+									 char GDS_FAR * GDS_FAR *,
+									 unsigned short, ...);
+
+GDS_STATUS GDS_EXPORT gds__get_slice(GDS_STATUS GDS_FAR *,
+									 void GDS_FAR * GDS_FAR *,
+									 void GDS_FAR * GDS_FAR *,
+									 GDS__QUAD GDS_FAR *,
+									 short,
+									 char GDS_FAR *,
+									 short,
+									 GDS_LONG GDS_FAR *,
+									 GDS_LONG,
+									 void GDS_FAR *,
+									 GDS_LONG GDS_FAR *);
+
+GDS_STATUS GDS_EXPORT gds__put_slice(GDS_STATUS GDS_FAR *,
+									 void GDS_FAR * GDS_FAR *,
+									 void GDS_FAR * GDS_FAR *,
+									 GDS__QUAD GDS_FAR *,
+									 short,
+									 char GDS_FAR *,
+									 short,
+									 GDS_LONG GDS_FAR *,
+									 GDS_LONG,
+									 void GDS_FAR *);
+
+void GDS_EXPORT gds__vtof(char GDS_FAR *,
+						  char GDS_FAR *,
+						  unsigned short);
+
+#else /* __STDC__ && stuff */
+
+
+
+#ifndef _Windows
+#ifndef _WINDOWS
+GDS_TYPE GDS_EXPORT gds__attach_database();
+GDS_TYPE GDS_EXPORT gds__blob_info();
+GDS_TYPE GDS_EXPORT gds__cancel_blob();
+GDS_TYPE GDS_EXPORT gds__close_blob();
+GDS_TYPE GDS_EXPORT gds__commit_transaction();
+GDS_TYPE GDS_EXPORT gds__compile_request();
+GDS_TYPE GDS_EXPORT gds__compile_request2();
+GDS_TYPE GDS_EXPORT gds__create_blob();
+GDS_TYPE GDS_EXPORT gds__create_blob2();
+GDS_TYPE GDS_EXPORT gds__create_database();
+GDS_TYPE GDS_EXPORT gds__database_info();
+GDS_TYPE GDS_EXPORT gds__detach_database();
+GDS_TYPE GDS_EXPORT gds__get_segment();
+GDS_TYPE GDS_EXPORT gds__open_blob();
+GDS_TYPE GDS_EXPORT gds__open_blob2();
+GDS_TYPE GDS_EXPORT gds__prepare_transaction();
+GDS_TYPE GDS_EXPORT gds__prepare_transaction2();
+GDS_TYPE GDS_EXPORT gds__put_segment();
+GDS_TYPE GDS_EXPORT gds__receive();
+GDS_TYPE GDS_EXPORT gds__reconnect_transaction();
+GDS_TYPE GDS_EXPORT gds__request_info();
+GDS_TYPE GDS_EXPORT gds__release_request();
+GDS_TYPE GDS_EXPORT gds__rollback_transaction();
+GDS_TYPE GDS_EXPORT gds__seek_blob();
+GDS_TYPE GDS_EXPORT gds__send();
+GDS_TYPE GDS_EXPORT gds__start_and_send();
+GDS_TYPE GDS_EXPORT gds__start_multiple();
+GDS_TYPE GDS_EXPORT gds__start_request();
+GDS_TYPE GDS_EXPORT gds__start_transaction();
+GDS_TYPE GDS_EXPORT gds__transaction_info();
+GDS_TYPE GDS_EXPORT gds__unwind_request();
+GDS_TYPE GDS_EXPORT gds__ftof();
+GDS_TYPE GDS_EXPORT gds__print_status();
+GDS_TYPE GDS_EXPORT gds__sqlcode();
+GDS_TYPE GDS_EXPORT gds__ddl();
+GDS_TYPE GDS_EXPORT gds__commit_retaining();
+GDS_TYPE GDS_EXPORT gds__que_events();
+GDS_TYPE GDS_EXPORT gds__cancel_events();
+GDS_TYPE GDS_EXPORT gds__event_wait();
+GDS_TYPE GDS_EXPORT gds__event_block();
+GDS_TYPE GDS_EXPORT gds__get_slice();
+GDS_TYPE GDS_EXPORT gds__put_slice();
+GDS_TYPE GDS_EXPORT gds__seek_blob();
+
+void GDS_EXPORT gds__event_counts();
+void GDS_EXPORT gds__set_debug();
+void GDS_EXPORT gds__vtof();
+
+
+#endif /* _WINDOWS */
+
+#endif /* _Windows */
+
+#endif /* __STDC__ && stuff */
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+/* #endif *//* __cplusplus */
+
+#endif /* NO_OSRI_ENTRYPOINTS */
+
+
+
+
+/**********************************/
+/* Database parameter block stuff */
+/**********************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dpb_version1                  1
+#define gds__dpb_cdd_pathname              1
+#define gds__dpb_allocation                2
+#define gds__dpb_journal                   3
+#define gds__dpb_page_size                 4
+#define gds__dpb_num_buffers               5
+#define gds__dpb_buffer_length             6
+#define gds__dpb_debug                     7
+#define gds__dpb_garbage_collect           8
+#define gds__dpb_verify                    9
+#define gds__dpb_sweep                     10
+#define gds__dpb_enable_journal            11
+#define gds__dpb_disable_journal           12
+#define gds__dpb_dbkey_scope               13
+#define gds__dpb_number_of_users           14
+#define gds__dpb_trace                     15
+#define gds__dpb_no_garbage_collect        16
+#define gds__dpb_damaged                   17
+#define gds__dpb_license                   18
+#define gds__dpb_sys_user_name             19
+#define gds__dpb_encrypt_key               20
+#define gds__dpb_activate_shadow           21
+#define gds__dpb_sweep_interval            22
+#define gds__dpb_delete_shadow             23
+#define gds__dpb_force_write               24
+#define gds__dpb_begin_log                 25
+#define gds__dpb_quit_log                  26
+#define gds__dpb_no_reserve                27
+#define gds__dpb_user_name                 28
+#define gds__dpb_password                  29
+#define gds__dpb_password_enc              30
+#define gds__dpb_sys_user_name_enc         31
+#define gds__dpb_interp                    32
+#define gds__dpb_online_dump               33
+#define gds__dpb_old_file_size             34
+#define gds__dpb_old_num_files             35
+#define gds__dpb_old_file                  36
+#define gds__dpb_old_start_page            37
+#define gds__dpb_old_start_seqno           38
+#define gds__dpb_old_start_file            39
+#define gds__dpb_drop_walfile              40
+#define gds__dpb_old_dump_id               41
+#define gds__dpb_wal_backup_dir            42
+#define gds__dpb_wal_chkptlen              43
+#define gds__dpb_wal_numbufs               44
+#define gds__dpb_wal_bufsize               45
+#define gds__dpb_wal_grp_cmt_wait          46
+#define gds__dpb_lc_messages               47
+#define gds__dpb_lc_ctype                  48
+#define gds__dpb_cache_manager		   49
+#define gds__dpb_shutdown		   50
+#define gds__dpb_online			   51
+#define gds__dpb_shutdown_delay		   52
+#define gds__dpb_reserved		   53
+#define gds__dpb_overwrite		   54
+#define gds__dpb_sec_attach		   55
+#define gds__dpb_disable_wal		   56
+#define gds__dpb_connect_timeout	   57
+#define gds__dpb_dummy_packet_interval     58
+
+#else /* c++ definitions */
+
+const char gds_dpb_version1 = 1;
+const char gds_dpb_cdd_pathname = 1;
+const char gds_dpb_allocation = 2;
+const char gds_dpb_journal = 3;
+const char gds_dpb_page_size = 4;
+const char gds_dpb_num_buffers = 5;
+const char gds_dpb_buffer_length = 6;
+const char gds_dpb_debug = 7;
+const char gds_dpb_garbage_collect = 8;
+const char gds_dpb_verify = 9;
+const char gds_dpb_sweep = 10;
+const char gds_dpb_enable_journal = 11;
+const char gds_dpb_disable_journal = 12;
+const char gds_dpb_dbkey_scope = 13;
+const char gds_dpb_number_of_users = 14;
+const char gds_dpb_trace = 15;
+const char gds_dpb_no_garbage_collect = 16;
+const char gds_dpb_damaged = 17;
+const char gds_dpb_license = 18;
+const char gds_dpb_sys_user_name = 19;
+const char gds_dpb_encrypt_key = 20;
+const char gds_dpb_activate_shadow = 21;
+const char gds_dpb_sweep_interval = 22;
+const char gds_dpb_delete_shadow = 23;
+const char gds_dpb_force_write = 24;
+const char gds_dpb_begin_log = 25;
+const char gds_dpb_quit_log = 26;
+const char gds_dpb_no_reserve = 27;
+const char gds_dpb_user_name = 28;
+const char gds_dpb_password = 29;
+const char gds_dpb_password_enc = 30;
+const char gds_dpb_sys_user_name_enc = 31;
+const char gds_dpb_interp = 32;
+const char gds_dpb_online_dump = 33;
+const char gds_dpb_old_file_size = 34;
+const char gds_dpb_old_num_files = 35;
+const char gds_dpb_old_file = 36;
+const char gds_dpb_old_start_page = 37;
+const char gds_dpb_old_start_seqno = 38;
+const char gds_dpb_old_start_file = 39;
+const char gds_dpb_drop_walfile = 40;
+const char gds_dpb_old_dump_id = 41;
+const char gds_dpb_wal_backup_dir = 42;
+const char gds_dpb_wal_chkptlen = 43;
+const char gds_dpb_wal_numbufs = 44;
+const char gds_dpb_wal_bufsize = 45;
+const char gds_dpb_wal_grp_cmt_wait = 46;
+const char gds_dpb_lc_messages = 47;
+const char gds_dpb_lc_ctype = 48;
+const char gds_dpb_cache_manager = 49;
+const char gds_dpb_shutdown = 50;
+const char gds_dpb_online = 51;
+const char gds_dpb_shutdown_delay = 52;
+const char gds_dpb_reserved = 53;
+const char gds_dpb_overwrite = 54;
+const char gds_dpb_sec_attach = 55;
+const char gds_dpb_disable_wal = 56;
+const char gds_dpb_connect_timeout = 57;
+const char gds_dpb_dummy_packet_interval = 58;
+
+#endif
+
+
+
+/**********************************/
+/* gds__dpb_verify specific flags */
+/**********************************/
+
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dpb_pages                     1
+#define gds__dpb_records                   2
+#define gds__dpb_indices                   4
+#define gds__dpb_transactions              8
+#define gds__dpb_no_update                 16
+#define gds__dpb_repair                    32
+#define gds__dpb_ignore                    64
+
+#else /* c++ definitions */
+
+const char gds_dpb_pages = 1;
+const char gds_dpb_records = 2;
+const char gds_dpb_indices = 4;
+const char gds_dpb_transactions = 8;
+const char gds_dpb_no_update = 16;
+const char gds_dpb_repair = 32;
+const char gds_dpb_ignore = 64;
+
+#endif
+
+/************************************/
+/* gds__dpb_shutdown specific flags */
+/************************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dpb_shut_cache               1
+#define gds__dpb_shut_attachment          2
+#define gds__dpb_shut_transaction         4
+#define gds__dpb_shut_force               8
+
+#else /* c++ definitions */
+
+const char gds_dpb_shut_cache = 1;
+const char gds_dpb_shut_attachment = 2;
+const char gds_dpb_shut_transaction = 4;
+const char gds_dpb_shut_force = 8;
+
+#endif
+
+
+/*************************************/
+/* Transaction parameter block stuff */
+/*************************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__tpb_version1                  1
+#define gds__tpb_version3                  3
+#define gds__tpb_consistency               1
+#define gds__tpb_concurrency               2
+#define gds__tpb_shared                    3
+#define gds__tpb_protected                 4
+#define gds__tpb_exclusive                 5
+#define gds__tpb_wait                      6
+#define gds__tpb_nowait                    7
+#define gds__tpb_read                      8
+#define gds__tpb_write                     9
+#define gds__tpb_lock_read                 10
+#define gds__tpb_lock_write                11
+#define gds__tpb_verb_time                 12
+#define gds__tpb_commit_time               13
+#define gds__tpb_ignore_limbo              14
+#define gds__tpb_read_committed		   15
+#define gds__tpb_autocommit		   16
+#define gds__tpb_rec_version		   17
+#define gds__tpb_no_rec_version		   18
+#define gds__tpb_restart_requests	   19
+#define gds__tpb_no_auto_undo              20
+
+#else /* c++ definitions */
+
+const char gds_tpb_version1 = 1;
+const char gds_tpb_version3 = 3;
+const char gds_tpb_consistency = 1;
+const char gds_tpb_concurrency = 2;
+const char gds_tpb_shared = 3;
+const char gds_tpb_protected = 4;
+const char gds_tpb_exclusive = 5;
+const char gds_tpb_wait = 6;
+const char gds_tpb_nowait = 7;
+const char gds_tpb_read = 8;
+const char gds_tpb_write = 9;
+const char gds_tpb_lock_read = 10;
+const char gds_tpb_lock_write = 11;
+const char gds_tpb_verb_time = 12;
+const char gds_tpb_commit_time = 13;
+const char gds_tpb_ignore_limbo = 14;
+const char gds_tpb_read_committed = 15;
+const char gds_tpb_autocommit = 16;
+const char gds_tpb_rec_version = 17;
+const char gds_tpb_no_rec_version = 18;
+const char gds_tpb_restart_requests = 19;
+const char gds_tpb_no_auto_undo = 20;
+
+#endif
+
+
+
+
+/************************/
+/* Blob Parameter Block */
+/************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__bpb_version1                  1
+#define gds__bpb_source_type               1
+#define gds__bpb_target_type               2
+#define gds__bpb_type                      3
+#define gds__bpb_source_interp             4
+#define gds__bpb_target_interp             5
+
+#else /* c++ definitions */
+
+const char gds_bpb_version1 = 1;
+const char gds_bpb_source_type = 1;
+const char gds_bpb_target_type = 2;
+const char gds_bpb_type = 3;
+const char gds_bpb_source_interp = 4;
+const char gds_bpb_target_interp = 5;
+
+#endif
+
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__bpb_type_segmented            0
+#define gds__bpb_type_stream               1
+
+#else /* c++ definitions */
+
+const char gds_bpb_type_segmented = 0;
+const char gds_bpb_type_stream = 1;
+
+#endif
+
+
+/*********************************/
+/* Service parameter block stuff */
+/*********************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__spb_version1                  1
+#define gds__spb_user_name                 2
+#define gds__spb_sys_user_name             3
+#define gds__spb_sys_user_name_enc         4
+#define gds__spb_password                  5
+#define gds__spb_password_enc              6
+#define gds__spb_command_line              7
+#define gds__spb_connect_timeout           8
+#define gds__spb_dummy_packet_interval     9
+
+#else /* c++ definitions */
+
+const char gds_spb_version1 = 1;
+const char gds_spb_user_name = 2;
+const char gds_spb_sys_user_name = 3;
+const char gds_spb_sys_user_name_enc = 4;
+const char gds_spb_password = 5;
+const char gds_spb_password_enc = 6;
+const char gds_spb_command_line = 7;
+const char gds_spb_connect_timeout = 8;
+const char gds_spb_dummy_packet_interval = 9;
+
+#endif
+
+
+
+
+/*********************************/
+/* Information call declarations */
+/*********************************/
+
+/****************************/
+/* Common, structural codes */
+/****************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__info_end                      1
+#define gds__info_truncated                2
+#define gds__info_error                    3
+
+#else /* c++ definitions */
+
+const char gds_info_end = 1;
+const char gds_info_truncated = 2;
+const char gds_info_error = 3;
+
+#endif
+
+
+
+
+/******************************/
+/* Database information items */
+/******************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__info_db_id                    4
+#define gds__info_reads                    5
+#define gds__info_writes                   6
+#define gds__info_fetches                  7
+#define gds__info_marks                    8
+#define gds__info_implementation           11
+#define gds__info_version                  12
+#define gds__info_base_level               13
+#define gds__info_page_size                14
+#define gds__info_num_buffers              15
+#define gds__info_limbo                    16
+#define gds__info_current_memory           17
+#define gds__info_max_memory               18
+#define gds__info_window_turns             19
+#define gds__info_license                  20
+#define gds__info_allocation               21
+#define gds__info_attachment_id            22
+#define gds__info_read_seq_count           23
+#define gds__info_read_idx_count           24
+#define gds__info_insert_count             25
+#define gds__info_update_count             26
+#define gds__info_delete_count             27
+#define gds__info_backout_count            28
+#define gds__info_purge_count              29
+#define gds__info_expunge_count            30
+#define gds__info_sweep_interval           31
+#define gds__info_ods_version              32
+#define gds__info_ods_minor_version        33
+#define gds__info_no_reserve               34
+#define gds__info_logfile                  35
+#define gds__info_cur_logfile_name         36
+#define gds__info_cur_log_part_offset      37
+#define gds__info_num_wal_buffers          38
+#define gds__info_wal_buffer_size          39
+#define gds__info_wal_ckpt_length          40
+#define gds__info_wal_cur_ckpt_interval    41
+#define gds__info_wal_prv_ckpt_fname       42
+#define gds__info_wal_prv_ckpt_poffset     43
+#define gds__info_wal_recv_ckpt_fname      44
+#define gds__info_wal_recv_ckpt_poffset    45
+#define gds__info_wal_grpc_wait_usecs      47
+#define gds__info_wal_num_io               48
+#define gds__info_wal_avg_io_size          49
+#define gds__info_wal_num_commits          50
+#define gds__info_wal_avg_grpc_size        51
+#define gds__info_forced_writes		   52
+
+#else /* c++ definitions */
+
+const char gds_info_db_id = 4;
+const char gds_info_reads = 5;
+const char gds_info_writes = 6;
+const char gds_info_fetches = 7;
+const char gds_info_marks = 8;
+const char gds_info_implementation = 11;
+const char gds_info_version = 12;
+const char gds_info_base_level = 13;
+const char gds_info_page_size = 14;
+const char gds_info_num_buffers = 15;
+const char gds_info_limbo = 16;
+const char gds_info_current_memory = 17;
+const char gds_info_max_memory = 18;
+const char gds_info_window_turns = 19;
+const char gds_info_license = 20;
+const char gds_info_allocation = 21;
+const char gds_info_attachment_id = 22;
+const char gds_info_read_seq_count = 23;
+const char gds_info_read_idx_count = 24;
+const char gds_info_insert_count = 25;
+const char gds_info_update_count = 26;
+const char gds_info_delete_count = 27;
+const char gds_info_backout_count = 28;
+const char gds_info_purge_count = 29;
+const char gds_info_expunge_count = 30;
+const char gds_info_sweep_interval = 31;
+const char gds_info_ods_version = 32;
+const char gds_info_ods_minor_version = 33;
+const char gds_info_no_reserve = 34;
+const char gds_info_logfile = 35;
+const char gds_info_cur_logfile_name = 36;
+const char gds_info_cur_log_part_offset = 37;
+const char gds_info_num_wal_buffers = 38;
+const char gds_info_wal_buffer_size = 39;
+const char gds_info_wal_ckpt_length = 40;
+const char gds_info_wal_cur_ckpt_interval = 41;
+const char gds_info_wal_prv_ckpt_fname = 42;
+const char gds_info_wal_prv_ckpt_poffset = 43;
+const char gds_info_wal_recv_ckpt_fname = 44;
+const char gds_info_wal_recv_ckpt_poffset = 45;
+const char gds_info_wal_grpc_wait_usecs = 47;
+const char gds_info_wal_num_io = 48;
+const char gds_info_wal_avg_io_size = 49;
+const char gds_info_wal_num_commits = 50;
+const char gds_info_wal_avg_grpc_size = 51;
+const char gds_info_forced_writes = 52;
+
+#endif
+
+
+/**************************************/
+/* Database information return values */
+/**************************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__info_db_impl_rdb_vms          1
+#define gds__info_db_impl_rdb_eln          2
+#define gds__info_db_impl_rdb_eln_dev      3
+#define gds__info_db_impl_rdb_vms_y        4
+#define gds__info_db_impl_rdb_eln_y        5
+#define gds__info_db_impl_jri              6
+#define gds__info_db_impl_jsv              7
+#define gds__info_db_impl_isc_a            25
+#define gds__info_db_impl_isc_u            26
+#define gds__info_db_impl_isc_v            27
+#define gds__info_db_impl_isc_s            28
+#define gds__info_db_impl_isc_apl_68K      25
+#define gds__info_db_impl_isc_vax_ultr     26
+#define gds__info_db_impl_isc_vms          27
+#define gds__info_db_impl_isc_sun_68k      28
+#define gds__info_db_impl_isc_os2          29
+#define gds__info_db_impl_isc_sun4         30
+#define gds__info_db_impl_isc_hp_ux        31
+#define gds__info_db_impl_isc_sun_386i     32
+#define gds__info_db_impl_isc_vms_orcl     33
+#define gds__info_db_impl_isc_mac_aux      34
+#define gds__info_db_impl_isc_rt_aix       35
+#define gds__info_db_impl_isc_mips_ult     36
+#define gds__info_db_impl_isc_xenix        37
+#define gds__info_db_impl_isc_dg           38
+#define gds__info_db_impl_isc_hp_mpexl     39
+#define gds__info_db_impl_isc_hp_ux68K     40
+#define gds__info_db_impl_isc_sgi          41
+#define gds__info_db_impl_isc_sco_unix     42
+#define gds__info_db_impl_isc_cray         43
+#define gds__info_db_impl_isc_imp          44
+#define gds__info_db_impl_isc_delta        45
+#define gds__info_db_impl_isc_next         46
+#define gds__info_db_impl_isc_dos          47
+#define gds__info_db_impl_isc_winnt        48
+#define gds__info_db_impl_isc_epson        49
+
+#define gds__info_db_class_access          1
+#define gds__info_db_class_y_valve         2
+#define gds__info_db_class_rem_int         3
+#define gds__info_db_class_rem_srvr        4
+#define gds__info_db_class_pipe_int        7
+#define gds__info_db_class_pipe_srvr       8
+#define gds__info_db_class_sam_int         9
+#define gds__info_db_class_sam_srvr        10
+#define gds__info_db_class_gateway         11
+#define gds__info_db_class_cache           12
+
+#else /* c++ definitions */
+
+const char gds_info_db_impl_rdb_vms = 1;
+const char gds_info_db_impl_rdb_eln = 2;
+const char gds_info_db_impl_rdb_eln_dev = 3;
+const char gds_info_db_impl_rdb_vms_y = 4;
+const char gds_info_db_impl_rdb_eln_y = 5;
+const char gds_info_db_impl_jri = 6;
+const char gds_info_db_impl_jsv = 7;
+const char gds_info_db_impl_isc_a = 25;
+const char gds_info_db_impl_isc_u = 26;
+const char gds_info_db_impl_isc_v = 27;
+const char gds_info_db_impl_isc_s = 28;
+const char gds_info_db_impl_isc_apl_68K = 25;
+const char gds_info_db_impl_isc_vax_ultr = 26;
+const char gds_info_db_impl_isc_vms = 27;
+const char gds_info_db_impl_isc_sun_68k = 28;
+const char gds_info_db_impl_isc_os2 = 29;
+const char gds_info_db_impl_isc_sun4 = 30;
+const char gds_info_db_impl_isc_hp_ux = 31;
+const char gds_info_db_impl_isc_sun_386i = 32;
+const char gds_info_db_impl_isc_vms_orcl = 33;
+const char gds_info_db_impl_isc_mac_aux = 34;
+const char gds_info_db_impl_isc_rt_aix = 35;
+const char gds_info_db_impl_isc_mips_ult = 36;
+const char gds_info_db_impl_isc_xenix = 37;
+const char gds_info_db_impl_isc_dg = 38;
+const char gds_info_db_impl_isc_hp_mpexl = 39;
+const char gds_info_db_impl_isc_hp_ux68K = 40;
+const char gds_info_db_impl_isc_sgi = 41;
+const char gds_info_db_impl_isc_sco_unix = 42;
+const char gds_info_db_impl_isc_cray = 43;
+const char gds_info_db_impl_isc_imp = 44;
+const char gds_info_db_impl_isc_delta = 45;
+const char gds_info_db_impl_isc_next = 46;
+const char gds_info_db_impl_isc_dos = 47;
+const char gds_info_db_impl_isc_winnt = 48;
+const char gds_info_db_impl_isc_epson = 49;
+
+const char gds_info_db_class_access = 1;
+const char gds_info_db_class_y_valve = 2;
+const char gds_info_db_class_rem_int = 3;
+const char gds_info_db_class_rem_srvr = 4;
+const char gds_info_db_class_pipe_int = 7;
+const char gds_info_db_class_pipe_srvr = 8;
+const char gds_info_db_class_sam_int = 9;
+const char gds_info_db_class_sam_srvr = 10;
+const char gds_info_db_class_gateway = 11;
+const char gds_info_db_class_cache = 12;
+
+#endif
+
+
+
+
+
+/*****************************/
+/* Request information items */
+/*****************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__info_number_messages          4
+#define gds__info_max_message              5
+#define gds__info_max_send                 6
+#define gds__info_max_receive              7
+#define gds__info_state                    8
+#define gds__info_message_number           9
+#define gds__info_message_size             10
+#define gds__info_request_cost             11
+#define gds__info_access_path              12
+#define gds__info_req_select_count         13
+#define gds__info_req_insert_count         14
+#define gds__info_req_update_count         15
+#define gds__info_req_delete_count         16
+
+/*********************/
+/* access path items */
+/*********************/
+
+#define gds__info_rsb_end		   0
+#define gds__info_rsb_begin		   1
+#define gds__info_rsb_type		   2
+#define gds__info_rsb_relation		   3
+#define gds__info_rsb_plan                 4
+
+/*************/
+/* rsb types */
+/*************/
+
+#define gds__info_rsb_unknown		   1
+#define gds__info_rsb_indexed		   2
+#define gds__info_rsb_navigate		   3
+#define gds__info_rsb_sequential	   4
+#define gds__info_rsb_cross		   5
+#define gds__info_rsb_sort		   6
+#define gds__info_rsb_first		   7
+#define gds__info_rsb_boolean		   8
+#define gds__info_rsb_union		   9
+#define gds__info_rsb_aggregate		  10
+#define gds__info_rsb_merge		  11
+#define gds__info_rsb_ext_sequential	  12
+#define gds__info_rsb_ext_indexed	  13
+#define gds__info_rsb_ext_dbkey		  14
+#define gds__info_rsb_left_cross	  15
+#define gds__info_rsb_select		  16
+#define gds__info_rsb_sql_join		  17
+#define gds__info_rsb_simulate		  18
+#define gds__info_rsb_sim_cross		  19
+#define gds__info_rsb_once		  20
+#define gds__info_rsb_procedure		  21
+
+/**********************/
+/* bitmap expressions */
+/**********************/
+
+#define gds__info_rsb_and		1
+#define gds__info_rsb_or		2
+#define gds__info_rsb_dbkey		3
+#define gds__info_rsb_index		4
+
+#define gds__info_req_active               2
+#define gds__info_req_inactive             3
+#define gds__info_req_send                 4
+#define gds__info_req_receive              5
+#define gds__info_req_select               6
+
+#else /* c++ definitions */
+
+const char gds_info_number_messages = 4;
+const char gds_info_max_message = 5;
+const char gds_info_max_send = 6;
+const char gds_info_max_receive = 7;
+const char gds_info_state = 8;
+const char gds_info_message_number = 9;
+const char gds_info_message_size = 10;
+const char gds_info_request_cost = 11;
+const char gds_info_access_path = 12;
+const char gds_info_req_select_count = 13;
+const char gds_info_req_insert_count = 14;
+const char gds_info_req_update_count = 15;
+const char gds_info_req_delete_count = 16;
+
+/*********************/
+/* access path items */
+/*********************/
+
+const char gds_info_rsb_end = 0;
+const char gds_info_rsb_begin = 1;
+const char gds_info_rsb_type = 2;
+const char gds_info_rsb_relation = 3;
+
+
+
+/*************/
+/* rsb types */
+/*************/
+
+const char gds_info_rsb_unknown = 1;
+const char gds_info_rsb_indexed = 2;
+const char gds_info_rsb_navigate = 3;
+const char gds_info_rsb_sequential = 4;
+const char gds_info_rsb_cross = 5;
+const char gds_info_rsb_sort = 6;
+const char gds_info_rsb_first = 7;
+const char gds_info_rsb_boolean = 8;
+const char gds_info_rsb_union = 9;
+const char gds_info_rsb_aggregate = 10;
+const char gds_info_rsb_merge = 11;
+const char gds_info_rsb_ext_sequential = 12;
+const char gds_info_rsb_ext_indexed = 13;
+const char gds_info_rsb_ext_dbkey = 14;
+const char gds_info_rsb_left_cross = 15;
+const char gds_info_rsb_select = 16;
+const char gds_info_rsb_sql_join = 17;
+const char gds_info_rsb_simulate = 18;
+const char gds_info_rsb_sim_cross = 19;
+const char gds_info_rsb_once = 20;
+const char gds_info_rsb_procedure = 21;
+
+/**********************/
+/* bitmap expressions */
+/**********************/
+
+const char gds_info_rsb_and = 1;
+const char gds_info_rsb_or = 2;
+const char gds_info_rsb_dbkey = 3;
+const char gds_info_rsb_index = 4;
+
+const char gds_info_req_active = 2;
+const char gds_info_req_inactive = 3;
+const char gds_info_req_send = 4;
+const char gds_info_req_receive = 5;
+const char gds_info_req_select = 6;
+
+#endif
+
+
+/**************************/
+/* Blob information items */
+/**************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__info_blob_num_segments        4
+#define gds__info_blob_max_segment         5
+#define gds__info_blob_total_length        6
+#define gds__info_blob_type                7
+
+#else /* c++ definitions */
+
+const char gds_info_blob_num_segments = 4;
+const char gds_info_blob_max_segment = 5;
+const char gds_info_blob_total_length = 6;
+const char gds_info_blob_type = 7;
+
+#endif
+
+
+
+
+/*********************************/
+/* Transaction information items */
+/*********************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__info_tra_id                   4
+
+#else /* c++ definitions */
+
+const char gds_info_tra_id = 4;
+
+#endif
+
+
+/*****************************/
+/* Service information items */
+/*****************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__info_svc_version              4
+#define gds__info_svc_message              5
+#define gds__info_svc_total_length         6
+#define gds__info_svc_response             7
+#define gds__info_svc_response_more        8
+#define gds__info_svc_line                 9
+#define gds__info_svc_to_eof               10
+#define gds__info_svc_timeout              11
+
+#else /* c++ definitions */
+
+const char gds_info_svc_version = 4;
+const char gds_info_svc_message = 5;
+const char gds_info_svc_total_length = 6;
+const char gds_info_svc_response = 7;
+const char gds_info_svc_response_more = 8;
+const char gds_info_svc_line = 9;
+const char gds_info_svc_to_eof = 10;
+const char gds_info_svc_timeout = 11;
+
+#endif
+
+/*************************/
+/* SQL information items */
+/*************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__info_sql_select               4
+#define gds__info_sql_bind                 5
+#define gds__info_sql_num_variables        6
+#define gds__info_sql_describe_vars        7
+#define gds__info_sql_describe_end         8
+#define gds__info_sql_sqlda_seq            9
+#define gds__info_sql_message_seq          10
+#define gds__info_sql_type                 11
+#define gds__info_sql_sub_type             12
+#define gds__info_sql_scale                13
+#define gds__info_sql_length               14
+#define gds__info_sql_null_ind             15
+#define gds__info_sql_field                16
+#define gds__info_sql_relation             17
+#define gds__info_sql_owner                18
+#define gds__info_sql_alias                19
+#define gds__info_sql_sqlda_start          20
+#define gds__info_sql_stmt_type            21
+#define gds__info_sql_get_plan             22
+#define gds__info_sql_records		   23
+
+#else /* c++ definitions */
+
+const char gds_info_sql_select = 4;
+const char gds_info_sql_bind = 5;
+const char gds_info_sql_num_variables = 6;
+const char gds_info_sql_describe_vars = 7;
+const char gds_info_sql_describe_end = 8;
+const char gds_info_sql_sqlda_seq = 9;
+const char gds_info_sql_message_seq = 10;
+const char gds_info_sql_type = 11;
+const char gds_info_sql_sub_type = 12;
+const char gds_info_sql_scale = 13;
+const char gds_info_sql_length = 14;
+const char gds_info_sql_null_ind = 15;
+const char gds_info_sql_field = 16;
+const char gds_info_sql_relation = 17;
+const char gds_info_sql_owner = 18;
+const char gds_info_sql_alias = 19;
+const char gds_info_sql_sqlda_start = 20;
+const char gds_info_sql_stmt_type = 21;
+const char gds_info_sql_get_plan = 22;
+const char gds_info_sql_records = 23;
+
+#endif
+
+
+
+
+/*********************************/
+/* SQL information return values */
+/*********************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__info_sql_stmt_select          1
+#define gds__info_sql_stmt_insert          2
+#define gds__info_sql_stmt_update          3
+#define gds__info_sql_stmt_delete          4
+#define gds__info_sql_stmt_ddl             5
+#define gds__info_sql_stmt_get_segment     6
+#define gds__info_sql_stmt_put_segment     7
+#define gds__info_sql_stmt_exec_procedure  8
+#define gds__info_sql_stmt_start_trans     9
+#define gds__info_sql_stmt_commit          10
+#define gds__info_sql_stmt_rollback        11
+#define gds__info_sql_stmt_select_for_upd  12
+
+#else /* c++ definitions */
+
+const char gds_info_sql_stmt_select = 1;
+const char gds_info_sql_stmt_insert = 2;
+const char gds_info_sql_stmt_update = 3;
+const char gds_info_sql_stmt_delete = 4;
+const char gds_info_sql_stmt_ddl = 5;
+const char gds_info_sql_stmt_get_segment = 6;
+const char gds_info_sql_stmt_put_segment = 7;
+const char gds_info_sql_stmt_exec_procedure = 8;
+const char gds_info_sql_stmt_start_trans = 9;
+const char gds_info_sql_stmt_commit = 10;
+const char gds_info_sql_stmt_rollback = 11;
+const char gds_info_sql_stmt_select_for_upd = 12;
+
+#endif
+
+/***************/
+/* Error codes */
+/***************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds_facility                       20
+#define gds_err_base                       335544320L
+#define gds_err_factor                     1
+#define gds_arg_end                        0
+#define gds_arg_gds                        1
+#define gds_arg_string                     2
+#define gds_arg_cstring                    3
+#define gds_arg_number                     4
+#define gds_arg_interpreted                5
+#define gds_arg_vms                        6
+#define gds_arg_unix                       7
+#define gds_arg_domain                     8
+#define gds_arg_dos                        9
+#define gds_arg_mpexl                      10
+#define gds_arg_mpexl_ipc                  11
+#define gds_arg_next_mach		   15
+#define gds_arg_netware		           16
+#define gds_arg_win32                      17
+
+#else /* c++ definitions */
+
+const GDS_LONG gds_facility = 20;
+const GDS_LONG gds_err_base = 335544320L;
+const GDS_LONG gds_err_factor = 1;
+const GDS_LONG gds_arg_end = 0;
+const GDS_LONG gds_arg_gds = 1;
+const GDS_LONG gds_arg_string = 2;
+const GDS_LONG gds_arg_cstring = 3;
+const GDS_LONG gds_arg_number = 4;
+const GDS_LONG gds_arg_interpreted = 5;
+const GDS_LONG gds_arg_vms = 6;
+const GDS_LONG gds_arg_unix = 7;
+const GDS_LONG gds_arg_domain = 8;
+const GDS_LONG gds_arg_dos = 9;
+const GDS_LONG gds_arg_mpexl = 10;
+const GDS_LONG gds_arg_mpexl_ipc = 11;
+const GDS_LONG gds_arg_next_mach = 15;
+const GDS_LONG gds_arg_netware = 16;
+const GDS_LONG gds_arg_win32 = 17;
+
+#endif
+
+#ifndef	__cplusplus				/* c definitions */
+
+#include "../jrd/codes.h"
+
+#else /* c++ definitions */
+
+const GDS_LONG gds_arith_except = 335544321L;
+const GDS_LONG gds_bad_dbkey = 335544322L;
+const GDS_LONG gds_bad_db_format = 335544323L;
+const GDS_LONG gds_bad_db_handle = 335544324L;
+const GDS_LONG gds_bad_dpb_content = 335544325L;
+const GDS_LONG gds_bad_dpb_form = 335544326L;
+const GDS_LONG gds_bad_req_handle = 335544327L;
+const GDS_LONG gds_bad_segstr_handle = 335544328L;
+const GDS_LONG gds_bad_segstr_id = 335544329L;
+const GDS_LONG gds_bad_tpb_content = 335544330L;
+const GDS_LONG gds_bad_tpb_form = 335544331L;
+const GDS_LONG gds_bad_trans_handle = 335544332L;
+const GDS_LONG gds_bug_check = 335544333L;
+const GDS_LONG gds_convert_error = 335544334L;
+const GDS_LONG gds_db_corrupt = 335544335L;
+const GDS_LONG gds_deadlock = 335544336L;
+const GDS_LONG gds_excess_trans = 335544337L;
+const GDS_LONG gds_from_no_match = 335544338L;
+const GDS_LONG gds_infinap = 335544339L;
+const GDS_LONG gds_infona = 335544340L;
+const GDS_LONG gds_infunk = 335544341L;
+const GDS_LONG gds_integ_fail = 335544342L;
+const GDS_LONG gds_invalid_blr = 335544343L;
+const GDS_LONG gds_io_error = 335544344L;
+const GDS_LONG gds_lock_conflict = 335544345L;
+const GDS_LONG gds_metadata_corrupt = 335544346L;
+const GDS_LONG gds_not_valid = 335544347L;
+const GDS_LONG gds_no_cur_rec = 335544348L;
+const GDS_LONG gds_no_dup = 335544349L;
+const GDS_LONG gds_no_finish = 335544350L;
+const GDS_LONG gds_no_meta_update = 335544351L;
+const GDS_LONG gds_no_priv = 335544352L;
+const GDS_LONG gds_no_recon = 335544353L;
+const GDS_LONG gds_no_record = 335544354L;
+const GDS_LONG gds_no_segstr_close = 335544355L;
+const GDS_LONG gds_obsolete_metadata = 335544356L;
+const GDS_LONG gds_open_trans = 335544357L;
+const GDS_LONG gds_port_len = 335544358L;
+const GDS_LONG gds_read_only_field = 335544359L;
+const GDS_LONG gds_read_only_rel = 335544360L;
+const GDS_LONG gds_read_only_trans = 335544361L;
+const GDS_LONG gds_read_only_view = 335544362L;
+const GDS_LONG gds_req_no_trans = 335544363L;
+const GDS_LONG gds_req_sync = 335544364L;
+const GDS_LONG gds_req_wrong_db = 335544365L;
+const GDS_LONG gds_segment = 335544366L;
+const GDS_LONG gds_segstr_eof = 335544367L;
+const GDS_LONG gds_segstr_no_op = 335544368L;
+const GDS_LONG gds_segstr_no_read = 335544369L;
+const GDS_LONG gds_segstr_no_trans = 335544370L;
+const GDS_LONG gds_segstr_no_write = 335544371L;
+const GDS_LONG gds_segstr_wrong_db = 335544372L;
+const GDS_LONG gds_sys_request = 335544373L;
+const GDS_LONG gds_stream_eof = 335544374L;
+const GDS_LONG gds_unavailable = 335544375L;
+const GDS_LONG gds_unres_rel = 335544376L;
+const GDS_LONG gds_uns_ext = 335544377L;
+const GDS_LONG gds_wish_list = 335544378L;
+const GDS_LONG gds_wrong_ods = 335544379L;
+const GDS_LONG gds_wronumarg = 335544380L;
+const GDS_LONG gds_imp_exc = 335544381L;
+const GDS_LONG gds_random = 335544382L;
+const GDS_LONG gds_fatal_conflict = 335544383L;
+const GDS_LONG gds_badblk = 335544384L;
+const GDS_LONG gds_invpoolcl = 335544385L;
+const GDS_LONG gds_nopoolids = 335544386L;
+const GDS_LONG gds_relbadblk = 335544387L;
+const GDS_LONG gds_blktoobig = 335544388L;
+const GDS_LONG gds_bufexh = 335544389L;
+const GDS_LONG gds_syntaxerr = 335544390L;
+const GDS_LONG gds_bufinuse = 335544391L;
+const GDS_LONG gds_bdbincon = 335544392L;
+const GDS_LONG gds_reqinuse = 335544393L;
+const GDS_LONG gds_badodsver = 335544394L;
+const GDS_LONG gds_relnotdef = 335544395L;
+const GDS_LONG gds_fldnotdef = 335544396L;
+const GDS_LONG gds_dirtypage = 335544397L;
+const GDS_LONG gds_waifortra = 335544398L;
+const GDS_LONG gds_doubleloc = 335544399L;
+const GDS_LONG gds_nodnotfnd = 335544400L;
+const GDS_LONG gds_dupnodfnd = 335544401L;
+const GDS_LONG gds_locnotmar = 335544402L;
+const GDS_LONG gds_badpagtyp = 335544403L;
+const GDS_LONG gds_corrupt = 335544404L;
+const GDS_LONG gds_badpage = 335544405L;
+const GDS_LONG gds_badindex = 335544406L;
+const GDS_LONG gds_dbbnotzer = 335544407L;
+const GDS_LONG gds_tranotzer = 335544408L;
+const GDS_LONG gds_trareqmis = 335544409L;
+const GDS_LONG gds_badhndcnt = 335544410L;
+const GDS_LONG gds_wrotpbver = 335544411L;
+const GDS_LONG gds_wroblrver = 335544412L;
+const GDS_LONG gds_wrodpbver = 335544413L;
+const GDS_LONG gds_blobnotsup = 335544414L;
+const GDS_LONG gds_badrelation = 335544415L;
+const GDS_LONG gds_nodetach = 335544416L;
+const GDS_LONG gds_notremote = 335544417L;
+const GDS_LONG gds_trainlim = 335544418L;
+const GDS_LONG gds_notinlim = 335544419L;
+const GDS_LONG gds_traoutsta = 335544420L;
+const GDS_LONG gds_connect_reject = 335544421L;
+const GDS_LONG gds_dbfile = 335544422L;
+const GDS_LONG gds_orphan = 335544423L;
+const GDS_LONG gds_no_lock_mgr = 335544424L;
+const GDS_LONG gds_ctxinuse = 335544425L;
+const GDS_LONG gds_ctxnotdef = 335544426L;
+const GDS_LONG gds_datnotsup = 335544427L;
+const GDS_LONG gds_badmsgnum = 335544428L;
+const GDS_LONG gds_badparnum = 335544429L;
+const GDS_LONG gds_virmemexh = 335544430L;
+const GDS_LONG gds_blocking_signal = 335544431L;
+const GDS_LONG gds_lockmanerr = 335544432L;
+const GDS_LONG gds_journerr = 335544433L;
+const GDS_LONG gds_keytoobig = 335544434L;
+const GDS_LONG gds_nullsegkey = 335544435L;
+const GDS_LONG gds_sqlerr = 335544436L;
+const GDS_LONG gds_wrodynver = 335544437L;
+const GDS_LONG gds_funnotdef = 335544438L;
+const GDS_LONG gds_funmismat = 335544439L;
+const GDS_LONG gds_bad_msg_vec = 335544440L;
+const GDS_LONG gds_bad_detach = 335544441L;
+const GDS_LONG gds_noargacc_read = 335544442L;
+const GDS_LONG gds_noargacc_write = 335544443L;
+const GDS_LONG gds_read_only = 335544444L;
+const GDS_LONG gds_ext_err = 335544445L;
+const GDS_LONG gds_non_updatable = 335544446L;
+const GDS_LONG gds_no_rollback = 335544447L;
+const GDS_LONG gds_bad_sec_info = 335544448L;
+const GDS_LONG gds_invalid_sec_info = 335544449L;
+const GDS_LONG gds_misc_interpreted = 335544450L;
+const GDS_LONG gds_update_conflict = 335544451L;
+const GDS_LONG gds_unlicensed = 335544452L;
+const GDS_LONG gds_obj_in_use = 335544453L;
+const GDS_LONG gds_nofilter = 335544454L;
+const GDS_LONG gds_shadow_accessed = 335544455L;
+const GDS_LONG gds_invalid_sdl = 335544456L;
+const GDS_LONG gds_out_of_bounds = 335544457L;
+const GDS_LONG gds_invalid_dimension = 335544458L;
+const GDS_LONG gds_rec_in_limbo = 335544459L;
+const GDS_LONG gds_shadow_missing = 335544460L;
+const GDS_LONG gds_cant_validate = 335544461L;
+const GDS_LONG gds_cant_start_journal = 335544462L;
+const GDS_LONG gds_gennotdef = 335544463L;
+const GDS_LONG gds_cant_start_logging = 335544464L;
+const GDS_LONG gds_bad_segstr_type = 335544465L;
+const GDS_LONG gds_foreign_key = 335544466L;
+const GDS_LONG gds_high_minor = 335544467L;
+const GDS_LONG gds_tra_state = 335544468L;
+const GDS_LONG gds_trans_invalid = 335544469L;
+const GDS_LONG gds_buf_invalid = 335544470L;
+const GDS_LONG gds_indexnotdefined = 335544471L;
+const GDS_LONG gds_login = 335544472L;
+const GDS_LONG gds_invalid_bookmark = 335544473L;
+const GDS_LONG gds_bad_lock_level = 335544474L;
+const GDS_LONG gds_relation_lock = 335544475L;
+const GDS_LONG gds_record_lock = 335544476L;
+const GDS_LONG gds_max_idx = 335544477L;
+const GDS_LONG gds_jrn_enable = 335544478L;
+const GDS_LONG gds_old_failure = 335544479L;
+const GDS_LONG gds_old_in_progress = 335544480L;
+const GDS_LONG gds_old_no_space = 335544481L;
+const GDS_LONG gds_no_wal_no_jrn = 335544482L;
+const GDS_LONG gds_num_old_files = 335544483L;
+const GDS_LONG gds_wal_file_open = 335544484L;
+const GDS_LONG gds_bad_stmt_handle = 335544485L;
+const GDS_LONG gds_wal_failure = 335544486L;
+const GDS_LONG gds_walw_err = 335544487L;
+const GDS_LONG gds_logh_small = 335544488L;
+const GDS_LONG gds_logh_inv_version = 335544489L;
+const GDS_LONG gds_logh_open_flag = 335544490L;
+const GDS_LONG gds_logh_open_flag2 = 335544491L;
+const GDS_LONG gds_logh_diff_dbname = 335544492L;
+const GDS_LONG gds_logf_unexpected_eof = 335544493L;
+const GDS_LONG gds_logr_incomplete = 335544494L;
+const GDS_LONG gds_logr_header_small = 335544495L;
+const GDS_LONG gds_logb_small = 335544496L;
+const GDS_LONG gds_wal_illegal_attach = 335544497L;
+const GDS_LONG gds_wal_invalid_wpb = 335544498L;
+const GDS_LONG gds_wal_err_rollover = 335544499L;
+const GDS_LONG gds_no_wal = 335544500L;
+const GDS_LONG gds_drop_wal = 335544501L;
+const GDS_LONG gds_stream_not_defined = 335544502L;
+const GDS_LONG gds_wal_subsys_error = 335544503L;
+const GDS_LONG gds_wal_subsys_corrupt = 335544504L;
+const GDS_LONG gds_no_archive = 335544505L;
+const GDS_LONG gds_shutinprog = 335544506L;
+const GDS_LONG gds_range_in_use = 335544507L;
+const GDS_LONG gds_range_not_found = 335544508L;
+const GDS_LONG gds_charset_not_found = 335544509L;
+const GDS_LONG gds_lock_timeout = 335544510L;
+const GDS_LONG gds_prcnotdef = 335544511L;
+const GDS_LONG gds_prcmismat = 335544512L;
+const GDS_LONG gds_wal_bugcheck = 335544513L;
+const GDS_LONG gds_wal_cant_expand = 335544514L;
+const GDS_LONG gds_codnotdef = 335544515L;
+const GDS_LONG gds_xcpnotdef = 335544516L;
+const GDS_LONG gds_except = 335544517L;
+const GDS_LONG gds_cache_restart = 335544518L;
+const GDS_LONG gds_bad_lock_handle = 335544519L;
+const GDS_LONG gds_jrn_present = 335544520L;
+const GDS_LONG gds_wal_err_rollover2 = 335544521L;
+const GDS_LONG gds_wal_err_logwrite = 335544522L;
+const GDS_LONG gds_wal_err_jrn_comm = 335544523L;
+const GDS_LONG gds_wal_err_expansion = 335544524L;
+const GDS_LONG gds_wal_err_setup = 335544525L;
+const GDS_LONG gds_wal_err_ww_sync = 335544526L;
+const GDS_LONG gds_wal_err_ww_start = 335544527L;
+const GDS_LONG gds_shutdown = 335544528L;
+const GDS_LONG gds_existing_priv_mod = 335544529L;
+const GDS_LONG gds_primary_key_ref = 335544530L;
+const GDS_LONG gds_primary_key_notnull = 335544531L;
+const GDS_LONG gds_ref_cnstrnt_notfound = 335544532L;
+const GDS_LONG gds_foreign_key_notfound = 335544533L;
+const GDS_LONG gds_ref_cnstrnt_update = 335544534L;
+const GDS_LONG gds_check_cnstrnt_update = 335544535L;
+const GDS_LONG gds_check_cnstrnt_del = 335544536L;
+const GDS_LONG gds_integ_index_seg_del = 335544537L;
+const GDS_LONG gds_integ_index_seg_mod = 335544538L;
+const GDS_LONG gds_integ_index_del = 335544539L;
+const GDS_LONG gds_integ_index_mod = 335544540L;
+const GDS_LONG gds_check_trig_del = 335544541L;
+const GDS_LONG gds_check_trig_update = 335544542L;
+const GDS_LONG gds_cnstrnt_fld_del = 335544543L;
+const GDS_LONG gds_cnstrnt_fld_rename = 335544544L;
+const GDS_LONG gds_rel_cnstrnt_update = 335544545L;
+const GDS_LONG gds_constaint_on_view = 335544546L;
+const GDS_LONG gds_invld_cnstrnt_type = 335544547L;
+const GDS_LONG gds_primary_key_exists = 335544548L;
+const GDS_LONG gds_systrig_update = 335544549L;
+const GDS_LONG gds_not_rel_owner = 335544550L;
+const GDS_LONG gds_grant_obj_notfound = 335544551L;
+const GDS_LONG gds_grant_fld_notfound = 335544552L;
+const GDS_LONG gds_grant_nopriv = 335544553L;
+const GDS_LONG gds_nonsql_security_rel = 335544554L;
+const GDS_LONG gds_nonsql_security_fld = 335544555L;
+const GDS_LONG gds_wal_cache_err = 335544556L;
+const GDS_LONG gds_shutfail = 335544557L;
+const GDS_LONG gds_check_constraint = 335544558L;
+const GDS_LONG gds_bad_svc_handle = 335544559L;
+const GDS_LONG gds_shutwarn = 335544560L;
+const GDS_LONG gds_wrospbver = 335544561L;
+const GDS_LONG gds_bad_spb_form = 335544562L;
+const GDS_LONG gds_svcnotdef = 335544563L;
+const GDS_LONG gds_no_jrn = 335544564L;
+const GDS_LONG gds_transliteration_failed = 335544565L;
+const GDS_LONG gds_start_cm_for_wal = 335544566L;
+const GDS_LONG gds_wal_ovflow_log_required = 335544567L;
+const GDS_LONG gds_text_subtype = 335544568L;
+const GDS_LONG gds_dsql_error = 335544569L;
+const GDS_LONG gds_dsql_command_err = 335544570L;
+const GDS_LONG gds_dsql_constant_err = 335544571L;
+const GDS_LONG gds_dsql_cursor_err = 335544572L;
+const GDS_LONG gds_dsql_datatype_err = 335544573L;
+const GDS_LONG gds_dsql_decl_err = 335544574L;
+const GDS_LONG gds_dsql_cursor_update_err = 335544575L;
+const GDS_LONG gds_dsql_cursor_open_err = 335544576L;
+const GDS_LONG gds_dsql_cursor_close_err = 335544577L;
+const GDS_LONG gds_dsql_field_err = 335544578L;
+const GDS_LONG gds_dsql_internal_err = 335544579L;
+const GDS_LONG gds_dsql_relation_err = 335544580L;
+const GDS_LONG gds_dsql_procedure_err = 335544581L;
+const GDS_LONG gds_dsql_request_err = 335544582L;
+const GDS_LONG gds_dsql_sqlda_err = 335544583L;
+const GDS_LONG gds_dsql_var_count_err = 335544584L;
+const GDS_LONG gds_dsql_stmt_handle = 335544585L;
+const GDS_LONG gds_dsql_function_err = 335544586L;
+const GDS_LONG gds_dsql_blob_err = 335544587L;
+const GDS_LONG gds_collation_not_found = 335544588L;
+const GDS_LONG gds_collation_not_for_charset = 335544589L;
+const GDS_LONG gds_dsql_dup_option = 335544590L;
+const GDS_LONG gds_dsql_tran_err = 335544591L;
+const GDS_LONG gds_dsql_invalid_array = 335544592L;
+const GDS_LONG gds_dsql_max_arr_dim_exceeded = 335544593L;
+const GDS_LONG gds_dsql_arr_range_error = 335544594L;
+const GDS_LONG gds_dsql_trigger_err = 335544595L;
+const GDS_LONG gds_dsql_subselect_err = 335544596L;
+const GDS_LONG gds_dsql_crdb_prepare_err = 335544597L;
+const GDS_LONG gds_specify_field_err = 335544598L;
+const GDS_LONG gds_num_field_err = 335544599L;
+const GDS_LONG gds_col_name_err = 335544600L;
+const GDS_LONG gds_where_err = 335544601L;
+const GDS_LONG gds_table_view_err = 335544602L;
+const GDS_LONG gds_distinct_err = 335544603L;
+const GDS_LONG gds_key_field_count_err = 335544604L;
+const GDS_LONG gds_subquery_err = 335544605L;
+const GDS_LONG gds_expression_eval_err = 335544606L;
+const GDS_LONG gds_node_err = 335544607L;
+const GDS_LONG gds_command_end_err = 335544608L;
+const GDS_LONG gds_index_name = 335544609L;
+const GDS_LONG gds_exception_name = 335544610L;
+const GDS_LONG gds_field_name = 335544611L;
+const GDS_LONG gds_token_err = 335544612L;
+const GDS_LONG gds_union_err = 335544613L;
+const GDS_LONG gds_dsql_construct_err = 335544614L;
+const GDS_LONG gds_field_aggregate_err = 335544615L;
+const GDS_LONG gds_field_ref_err = 335544616L;
+const GDS_LONG gds_order_by_err = 335544617L;
+const GDS_LONG gds_return_mode_err = 335544618L;
+const GDS_LONG gds_extern_func_err = 335544619L;
+const GDS_LONG gds_alias_conflict_err = 335544620L;
+const GDS_LONG gds_procedure_conflict_error = 335544621L;
+const GDS_LONG gds_relation_conflict_err = 335544622L;
+const GDS_LONG gds_dsql_domain_err = 335544623L;
+const GDS_LONG gds_idx_seg_err = 335544624L;
+const GDS_LONG gds_node_name_err = 335544625L;
+const GDS_LONG gds_table_name = 335544626L;
+const GDS_LONG gds_proc_name = 335544627L;
+const GDS_LONG gds_idx_create_err = 335544628L;
+const GDS_LONG gds_wal_shadow_err = 335544629L;
+const GDS_LONG gds_dependency = 335544630L;
+const GDS_LONG gds_idx_key_err = 335544631L;
+const GDS_LONG gds_dsql_file_length_err = 335544632L;
+const GDS_LONG gds_dsql_shadow_number_err = 335544633L;
+const GDS_LONG gds_dsql_token_unk_err = 335544634L;
+const GDS_LONG gds_dsql_no_relation_alias = 335544635L;
+const GDS_LONG gds_indexname = 335544636L;
+const GDS_LONG gds_no_stream_plan = 335544637L;
+const GDS_LONG gds_stream_twice = 335544638L;
+const GDS_LONG gds_stream_not_found = 335544639L;
+const GDS_LONG gds_collation_requires_text = 335544640L;
+const GDS_LONG gds_dsql_domain_not_found = 335544641L;
+const GDS_LONG gds_index_unused = 335544642L;
+const GDS_LONG gds_dsql_self_join = 335544643L;
+const GDS_LONG gds_stream_bof = 335544644L;
+const GDS_LONG gds_stream_crack = 335544645L;
+const GDS_LONG gds_db_or_file_exists = 335544646L;
+const GDS_LONG gds_invalid_operator = 335544647L;
+const GDS_LONG gds_conn_lost = 335544648L;
+const GDS_LONG gds_bad_checksum = 335544649L;
+const GDS_LONG gds_page_type_err = 335544650L;
+const GDS_LONG gds_ext_readonly_err = 335544651L;
+const GDS_LONG gds_sing_select_err = 335544652L;
+const GDS_LONG gds_psw_attach = 335544653L;
+const GDS_LONG gds_psw_start_trans = 335544654L;
+const GDS_LONG gds_invalid_direction = 335544655L;
+const GDS_LONG gds_dsql_var_conflict = 335544656L;
+const GDS_LONG gds_dsql_no_blob_array = 335544657L;
+const GDS_LONG gds_dsql_base_table = 335544658L;
+const GDS_LONG gds_duplicate_base_table = 335544659L;
+const GDS_LONG gds_view_alias = 335544660L;
+const GDS_LONG gds_index_root_page_full = 335544661L;
+const GDS_LONG gds_dsql_blob_type_unknown = 335544662L;
+const GDS_LONG gds_req_max_clones_exceeded = 335544663L;
+const GDS_LONG gds_dsql_duplicate_spec = 335544664L;
+const GDS_LONG gds_unique_key_violation = 335544665L;
+const GDS_LONG gds_srvr_version_too_old = 335544666L;
+const GDS_LONG gds_drdb_completed_with_errs = 335544667L;
+const GDS_LONG gds_dsql_procedure_use_err = 335544668L;
+const GDS_LONG gds_dsql_count_mismatch = 335544669L;
+const GDS_LONG gds_blob_idx_err = 335544670L;
+const GDS_LONG gds_array_idx_err = 335544671L;
+const GDS_LONG gds_key_field_err = 335544672L;
+const GDS_LONG gds_no_delete = 335544673L;
+const GDS_LONG gds_del_last_field = 335544674L;
+const GDS_LONG gds_sort_err = 335544675L;
+const GDS_LONG gds_sort_mem_err = 335544676L;
+const GDS_LONG gds_version_err = 335544677L;
+const GDS_LONG gds_inval_key_posn = 335544678L;
+const GDS_LONG gds_no_segments_err = 335544679L;
+const GDS_LONG gds_crrp_data_err = 335544680L;
+const GDS_LONG gds_rec_size_err = 335544681L;
+const GDS_LONG gds_dsql_field_ref = 335544682L;
+const GDS_LONG gds_req_depth_exceeded = 335544683L;
+const GDS_LONG gds_no_field_access = 335544684L;
+const GDS_LONG gds_no_dbkey = 335544685L;
+const GDS_LONG gds_jrn_format_err = 335544686L;
+const GDS_LONG gds_jrn_file_full = 335544687L;
+const GDS_LONG gds_dsql_open_cursor_request = 335544688L;
+const GDS_LONG gds_err_max = 368L;
+
+#endif
+
+#undef GDS_LONG
+
+
+
+/**********************************************/
+/* Dynamic Data Definition Language operators */
+/**********************************************/
+
+/******************/
+/* Version number */
+/******************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_version_1                 1
+#define gds__dyn_eoc                       -1
+
+#else /* c++ definitions */
+
+const char gds_dyn_version_1 = 1;
+const char gds_dyn_eoc = -1;
+
+#endif
+
+/******************************/
+/* Operations (may be nested) */
+/******************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_begin                     2
+#define gds__dyn_end                       3
+#define gds__dyn_if                        4
+#define gds__dyn_def_database              5
+#define gds__dyn_def_global_fld            6
+#define gds__dyn_def_local_fld             7
+#define gds__dyn_def_idx                   8
+#define gds__dyn_def_rel                   9
+#define gds__dyn_def_sql_fld               10
+#define gds__dyn_def_view                  12
+#define gds__dyn_def_trigger               15
+#define gds__dyn_def_security_class        120
+#define gds__dyn_def_dimension             140
+#define gds__dyn_def_generator             24
+#define gds__dyn_def_function              25
+#define gds__dyn_def_filter                26
+#define gds__dyn_def_function_arg          27
+#define gds__dyn_def_shadow                34
+#define gds__dyn_def_trigger_msg           17
+#define gds__dyn_def_file                  36
+#define gds__dyn_mod_database              39
+#define gds__dyn_mod_rel                   11
+#define gds__dyn_mod_global_fld            13
+#define gds__dyn_mod_idx                   102
+#define gds__dyn_mod_local_fld             14
+#define gds__dyn_mod_view                  16
+#define gds__dyn_mod_security_class        122
+#define gds__dyn_mod_trigger               113
+#define gds__dyn_mod_trigger_msg           28
+#define gds__dyn_delete_database           18
+#define gds__dyn_delete_rel                19
+#define gds__dyn_delete_global_fld         20
+#define gds__dyn_delete_local_fld          21
+#define gds__dyn_delete_idx                22
+#define gds__dyn_delete_security_class     123
+#define gds__dyn_delete_dimensions         143
+#define gds__dyn_delete_trigger            23
+#define gds__dyn_delete_trigger_msg        29
+#define gds__dyn_delete_filter             32
+#define gds__dyn_delete_function           33
+#define gds__dyn_delete_shadow             35
+#define gds__dyn_grant                     30
+#define gds__dyn_revoke                    31
+#define gds__dyn_def_primary_key           37
+#define gds__dyn_def_foreign_key           38
+#define gds__dyn_def_unique                40
+#define gds__dyn_def_procedure             164
+#define gds__dyn_delete_procedure          165
+#define gds__dyn_def_parameter             135
+#define gds__dyn_delete_parameter          136
+#define gds__dyn_mod_procedure             175
+#define gds__dyn_def_log_file              176
+#define gds__dyn_def_cache_file            180
+#define gds__dyn_def_exception             181
+#define gds__dyn_mod_exception             182
+#define gds__dyn_del_exception             183
+#define gds__dyn_drop_log                  194
+#define gds__dyn_drop_cache                195
+#define gds__dyn_def_default_log           202
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_begin = 2;
+const unsigned char gds_dyn_end = 3;
+const unsigned char gds_dyn_if = 4;
+const unsigned char gds_dyn_def_database = 5;
+const unsigned char gds_dyn_def_global_fld = 6;
+const unsigned char gds_dyn_def_local_fld = 7;
+const unsigned char gds_dyn_def_idx = 8;
+const unsigned char gds_dyn_def_rel = 9;
+const unsigned char gds_dyn_def_sql_fld = 10;
+const unsigned char gds_dyn_def_view = 12;
+const unsigned char gds_dyn_def_trigger = 15;
+const unsigned char gds_dyn_def_security_class = 120;
+const unsigned char gds_dyn_def_dimension = 140;
+const unsigned char gds_dyn_def_generator = 24;
+const unsigned char gds_dyn_def_function = 25;
+const unsigned char gds_dyn_def_filter = 26;
+const unsigned char gds_dyn_def_function_arg = 27;
+const unsigned char gds_dyn_def_shadow = 34;
+const unsigned char gds_dyn_def_trigger_msg = 17;
+const unsigned char gds_dyn_def_file = 36;
+const unsigned char gds_dyn_mod_database = 39;
+const unsigned char gds_dyn_mod_rel = 11;
+const unsigned char gds_dyn_mod_global_fld = 13;
+const unsigned char gds_dyn_mod_idx = 102;
+const unsigned char gds_dyn_mod_local_fld = 14;
+const unsigned char gds_dyn_mod_view = 16;
+const unsigned char gds_dyn_mod_security_class = 122;
+const unsigned char gds_dyn_mod_trigger = 113;
+const unsigned char gds_dyn_mod_trigger_msg = 28;
+const unsigned char gds_dyn_delete_database = 18;
+const unsigned char gds_dyn_delete_rel = 19;
+const unsigned char gds_dyn_delete_global_fld = 20;
+const unsigned char gds_dyn_delete_local_fld = 21;
+const unsigned char gds_dyn_delete_idx = 22;
+const unsigned char gds_dyn_delete_security_class = 123;
+const unsigned char gds_dyn_delete_dimensions = 143;
+const unsigned char gds_dyn_delete_trigger = 23;
+const unsigned char gds_dyn_delete_trigger_msg = 29;
+const unsigned char gds_dyn_delete_filter = 32;
+const unsigned char gds_dyn_delete_function = 33;
+const unsigned char gds_dyn_delete_shadow = 35;
+const unsigned char gds_dyn_grant = 30;
+const unsigned char gds_dyn_revoke = 31;
+const unsigned char gds_dyn_def_primary_key = 37;
+const unsigned char gds_dyn_def_foreign_key = 38;
+const unsigned char gds_dyn_def_unique = 40;
+const unsigned char gds_dyn_def_procedure = 164;
+const unsigned char gds_dyn_delete_procedure = 165;
+const unsigned char gds_dyn_def_parameter = 135;
+const unsigned char gds_dyn_delete_parameter = 136;
+const unsigned char gds_dyn_mod_procedure = 175;
+const unsigned char gds_dyn_def_log_file = 176;
+const unsigned char gds_dyn_def_cache_file = 180;
+const unsigned char gds_dyn_def_exception = 181;
+const unsigned char gds_dyn_mod_exception = 182;
+const unsigned char gds_dyn_del_exception = 183;
+const unsigned char gds_dyn_drop_log = 194;
+const unsigned char gds_dyn_drop_cache = 195;
+const unsigned char gds_dyn_def_default_log = 202;
+
+#endif
+
+
+
+
+/***********************/
+/* View specific stuff */
+/***********************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_view_blr                  43
+#define gds__dyn_view_source               44
+#define gds__dyn_view_relation             45
+#define gds__dyn_view_context              46
+#define gds__dyn_view_context_name         47
+
+#else /* c++ definitions */
+
+const char gds_dyn_view_blr = 43;
+const char gds_dyn_view_source = 44;
+const char gds_dyn_view_relation = 45;
+const char gds_dyn_view_context = 46;
+const char gds_dyn_view_context_name = 47;
+
+#endif
+
+/**********************/
+/* Generic attributes */
+/**********************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_rel_name                  50
+#define gds__dyn_fld_name                  51
+#define gds__dyn_idx_name                  52
+#define gds__dyn_description               53
+#define gds__dyn_security_class            54
+#define gds__dyn_system_flag               55
+#define gds__dyn_update_flag               56
+#define gds__dyn_prc_name                  166
+#define gds__dyn_prm_name                  137
+#define gds__dyn_sql_object                196
+#define gds__dyn_fld_character_set_name    174
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_rel_name = 50;
+const unsigned char gds_dyn_fld_name = 51;
+const unsigned char gds_dyn_idx_name = 52;
+const unsigned char gds_dyn_description = 53;
+const unsigned char gds_dyn_security_class = 54;
+const unsigned char gds_dyn_system_flag = 55;
+const unsigned char gds_dyn_update_flag = 56;
+const unsigned char gds_dyn_prc_name = 166;
+const unsigned char gds_dyn_prm_name = 137;
+const unsigned char gds_dyn_sql_object = 196;
+const unsigned char gds_dyn_fld_character_set_name = 174;
+
+#endif
+
+/********************************/
+/* Relation specific attributes */
+/********************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_rel_dbkey_length          61
+#define gds__dyn_rel_store_trig            62
+#define gds__dyn_rel_modify_trig           63
+#define gds__dyn_rel_erase_trig            64
+#define gds__dyn_rel_store_trig_source     65
+#define gds__dyn_rel_modify_trig_source    66
+#define gds__dyn_rel_erase_trig_source     67
+#define gds__dyn_rel_ext_file              68
+#define gds__dyn_rel_sql_protection        69
+#define gds__dyn_rel_constraint            162
+#define gds__dyn_delete_rel_constraint     163
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_rel_dbkey_length = 61;
+const unsigned char gds_dyn_rel_store_trig = 62;
+const unsigned char gds_dyn_rel_modify_trig = 63;
+const unsigned char gds_dyn_rel_erase_trig = 64;
+const unsigned char gds_dyn_rel_store_trig_source = 65;
+const unsigned char gds_dyn_rel_modify_trig_source = 66;
+const unsigned char gds_dyn_rel_erase_trig_source = 67;
+const unsigned char gds_dyn_rel_ext_file = 68;
+const unsigned char gds_dyn_rel_sql_protection = 69;
+const unsigned char gds_dyn_rel_constraint = 162;
+const unsigned char gds_dyn_delete_rel_constraint = 163;
+
+#endif
+
+
+/************************************/
+/* Global field specific attributes */
+/************************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_fld_type                  70
+#define gds__dyn_fld_length                71
+#define gds__dyn_fld_scale                 72
+#define gds__dyn_fld_sub_type              73
+#define gds__dyn_fld_segment_length        74
+#define gds__dyn_fld_query_header          75
+#define gds__dyn_fld_edit_string           76
+#define gds__dyn_fld_validation_blr        77
+#define gds__dyn_fld_validation_source     78
+#define gds__dyn_fld_computed_blr          79
+#define gds__dyn_fld_computed_source       80
+#define gds__dyn_fld_missing_value         81
+#define gds__dyn_fld_default_value         82
+#define gds__dyn_fld_query_name            83
+#define gds__dyn_fld_dimensions            84
+#define gds__dyn_fld_not_null              85
+#define gds__dyn_fld_char_length           172
+#define gds__dyn_fld_collation             173
+#define gds__dyn_fld_default_source        193
+#define gds__dyn_del_default               197
+#define gds__dyn_del_validation            198
+#define gds__dyn_single_validation         199
+#define gds__dyn_fld_character_set         203
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_fld_type = 70;
+const unsigned char gds_dyn_fld_length = 71;
+const unsigned char gds_dyn_fld_scale = 72;
+const unsigned char gds_dyn_fld_sub_type = 73;
+const unsigned char gds_dyn_fld_segment_length = 74;
+const unsigned char gds_dyn_fld_query_header = 75;
+const unsigned char gds_dyn_fld_edit_string = 76;
+const unsigned char gds_dyn_fld_validation_blr = 77;
+const unsigned char gds_dyn_fld_validation_source = 78;
+const unsigned char gds_dyn_fld_computed_blr = 79;
+const unsigned char gds_dyn_fld_computed_source = 80;
+const unsigned char gds_dyn_fld_missing_value = 81;
+const unsigned char gds_dyn_fld_default_value = 82;
+const unsigned char gds_dyn_fld_query_name = 83;
+const unsigned char gds_dyn_fld_dimensions = 84;
+const unsigned char gds_dyn_fld_not_null = 85;
+const unsigned char gds_dyn_fld_char_length = 172;
+const unsigned char gds_dyn_fld_collation = 173;
+const unsigned char gds_dyn_fld_default_source = 193;
+const unsigned char gds_dyn_del_default = 197;
+const unsigned char gds_dyn_del_validation = 198;
+const unsigned char gds_dyn_single_validation = 199;
+const unsigned char gds_dyn_fld_character_set = 203;
+
+#endif
+
+
+/***********************************/
+/* Local field specific attributes */
+/***********************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_fld_source                90
+#define gds__dyn_fld_base_fld              91
+#define gds__dyn_fld_position              92
+#define gds__dyn_fld_update_flag           93
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_fld_source = 90;
+const unsigned char gds_dyn_fld_base_fld = 91;
+const unsigned char gds_dyn_fld_position = 92;
+const unsigned char gds_dyn_fld_update_flag = 93;
+
+#endif
+
+
+/*****************************/
+/* Index specific attributes */
+/*****************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_idx_unique                100
+#define gds__dyn_idx_inactive              101
+#define gds__dyn_idx_type                  103
+#define gds__dyn_idx_foreign_key           104
+#define gds__dyn_idx_ref_column            105
+#define gds__dyn_idx_statistic		   204
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_idx_unique = 100;
+const unsigned char gds_dyn_idx_inactive = 101;
+const unsigned char gds_dyn_idx_type = 103;
+const unsigned char gds_dyn_idx_foreign_key = 104;
+const unsigned char gds_dyn_idx_ref_column = 105;
+const unsigned char gds_dyn_idx_statistic = 204;
+
+#endif
+
+
+/*******************************/
+/* Trigger specific attributes */
+/*******************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_trg_type                  110
+#define gds__dyn_trg_blr                   111
+#define gds__dyn_trg_source                112
+#define gds__dyn_trg_name                  114
+#define gds__dyn_trg_sequence              115
+#define gds__dyn_trg_inactive              116
+#define gds__dyn_trg_msg_number            117
+#define gds__dyn_trg_msg                   118
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_trg_type = 110;
+const unsigned char gds_dyn_trg_blr = 111;
+const unsigned char gds_dyn_trg_source = 112;
+const unsigned char gds_dyn_trg_name = 114;
+const unsigned char gds_dyn_trg_sequence = 115;
+const unsigned char gds_dyn_trg_inactive = 116;
+const unsigned char gds_dyn_trg_msg_number = 117;
+const unsigned char gds_dyn_trg_msg = 118;
+
+#endif
+
+
+/**************************************/
+/* Security Class specific attributes */
+/**************************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_scl_acl                   121
+#define gds__dyn_grant_user                130
+#define gds__dyn_grant_proc                186
+#define gds__dyn_grant_trig                187
+#define gds__dyn_grant_view                188
+#define gds__dyn_grant_options             132
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_scl_acl = 121;
+const unsigned char gds_dyn_grant_user = 130;
+const unsigned char gds_dyn_grant_proc = 186;
+const unsigned char gds_dyn_grant_trig = 187;
+const unsigned char gds_dyn_grant_view = 188;
+const unsigned char gds_dyn_grant_options = 132;
+
+#endif
+
+
+/**********************************/
+/* Dimension specific information */
+/**********************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_dim_lower                 141
+#define gds__dyn_dim_upper                 142
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_dim_lower = 141;
+const unsigned char gds_dyn_dim_upper = 142;
+
+#endif
+
+
+/****************************/
+/* File specific attributes */
+/****************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_file_name                 125
+#define gds__dyn_file_start                126
+#define gds__dyn_file_length               127
+#define gds__dyn_shadow_number             128
+#define gds__dyn_shadow_man_auto           129
+#define gds__dyn_shadow_conditional        130
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_file_name = 125;
+const unsigned char gds_dyn_file_start = 126;
+const unsigned char gds_dyn_file_length = 127;
+const unsigned char gds_dyn_shadow_number = 128;
+const unsigned char gds_dyn_shadow_man_auto = 129;
+const unsigned char gds_dyn_shadow_conditional = 130;
+
+#endif
+
+/********************************/
+/* Log file specific attributes */
+/********************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_log_file_sequence         177
+#define gds__dyn_log_file_partitions       178
+#define gds__dyn_log_file_serial           179
+#define gds__dyn_log_file_overflow         200
+#define gds__dyn_log_file_raw		   201
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_log_file_sequence = 177;
+const unsigned char gds_dyn_log_file_partitions = 178;
+const unsigned char gds_dyn_log_file_serial = 179;
+const unsigned char gds_dyn_log_file_overflow = 200;
+const unsigned char gds_dyn_log_file_raw = 201;
+
+#endif
+
+
+/***************************/
+/* Log specific attributes */
+/***************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_log_group_commit_wait     189
+#define gds__dyn_log_buffer_size           190
+#define gds__dyn_log_check_point_length    191
+#define gds__dyn_log_num_of_buffers        192
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_log_group_commit_wait = 189;
+const unsigned char gds_dyn_log_buffer_size = 190;
+const unsigned char gds_dyn_log_check_point_length = 191;
+const unsigned char gds_dyn_log_num_of_buffers = 192;
+
+#endif
+
+/********************************/
+/* Function specific attributes */
+/********************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_function_name             145
+#define gds__dyn_function_type             146
+#define gds__dyn_func_module_name          147
+#define gds__dyn_func_entry_point          148
+#define gds__dyn_func_return_argument      149
+#define gds__dyn_func_arg_position         150
+#define gds__dyn_func_mechanism            151
+#define gds__dyn_filter_in_subtype         152
+#define gds__dyn_filter_out_subtype        153
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_function_name = 145;
+const unsigned char gds_dyn_function_type = 146;
+const unsigned char gds_dyn_func_module_name = 147;
+const unsigned char gds_dyn_func_entry_point = 148;
+const unsigned char gds_dyn_func_return_argument = 149;
+const unsigned char gds_dyn_func_arg_position = 150;
+const unsigned char gds_dyn_func_mechanism = 151;
+const unsigned char gds_dyn_filter_in_subtype = 152;
+const unsigned char gds_dyn_filter_out_subtype = 153;
+
+#endif
+
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_description2		   154
+#define gds__dyn_fld_computed_source2	   155
+#define gds__dyn_fld_edit_string2	   156
+#define gds__dyn_fld_query_header2	   157
+#define gds__dyn_fld_validation_source2    158
+#define gds__dyn_trg_msg2	   	   159
+#define gds__dyn_trg_source2	   	   160
+#define gds__dyn_view_source2		   161
+#define gds__dyn_xcp_msg2                  184
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_description2 = 154;
+const unsigned char gds_dyn_fld_computed_source2 = 155;
+const unsigned char gds_dyn_fld_edit_string2 = 156;
+const unsigned char gds_dyn_fld_query_header2 = 157;
+const unsigned char gds_dyn_fld_validation_source2 = 158;
+const unsigned char gds_dyn_trg_msg2 = 159;
+const unsigned char gds_dyn_trg_source2 = 160;
+const unsigned char gds_dyn_view_source2 = 161;
+const unsigned char gds_dyn_xcp_msg2 = 184;
+
+#endif
+
+
+
+/*********************************/
+/* Generator specific attributes */
+/*********************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_generator_name            95
+#define gds__dyn_generator_id              96
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_generator_name = 95;
+const unsigned char gds_dyn_generator_id = 96;
+
+#endif
+
+
+/*********************************/
+/* Procedure specific attributes */
+/*********************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_prc_inputs                167
+#define gds__dyn_prc_outputs               168
+#define gds__dyn_prc_source                169
+#define gds__dyn_prc_blr                   170
+#define gds__dyn_prc_source2               171
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_prc_inputs = 167;
+const unsigned char gds_dyn_prc_outputs = 168;
+const unsigned char gds_dyn_prc_source = 169;
+const unsigned char gds_dyn_prc_blr = 170;
+const unsigned char gds_dyn_prc_source2 = 171;
+
+#endif
+
+
+/*********************************/
+/* Parameter specific attributes */
+/*********************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_prm_number                138
+#define gds__dyn_prm_type                  139
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_prm_number = 138;
+const unsigned char gds_dyn_prm_type = 139;
+
+#endif
+
+/********************************/
+/* Relation specific attributes */
+/********************************/
+
+#ifndef       __cplusplus		/* c definitions */
+
+#define gds__dyn_xcp_msg                   185
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_xcp_msg = 185;
+
+#endif
+
+
+/**********************************************/
+/* Cascading referential integrity values     */
+/**********************************************/
+#ifndef __cplusplus				/* c definitions */
+
+#define gds__dyn_foreign_key_update        205
+#define gds__dyn_foreign_key_delete        206
+#define gds__dyn_foreign_key_cascade       207
+#define gds__dyn_foreign_key_default       208
+#define gds__dyn_foreign_key_null          209
+#define gds__dyn_foreign_key_none          210
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_foreign_key_update = 205;
+const unsigned char gds_dyn_foreign_key_delete = 206;
+const unsigned char gds_dyn_foreign_key_cascade = 207;
+const unsigned char gds_dyn_foreign_key_default = 208;
+const unsigned char gds_dyn_foreign_key_null = 209;
+const unsigned char gds_dyn_foreign_key_none = 210;
+
+#endif
+
+
+/****************************/
+/* Last $dyn value assigned */
+/****************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__dyn_last_dyn_value            210
+
+#else /* c++ definitions */
+
+const unsigned char gds_dyn_last_dyn_value = 210;
+
+#endif
+
+
+
+
+
+/******************************************/
+/* Array slice description language (SDL) */
+/******************************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__sdl_version1                  1
+#define gds__sdl_eoc                       -1
+#define gds__sdl_relation                  2
+#define gds__sdl_rid                       3
+#define gds__sdl_field                     4
+#define gds__sdl_fid                       5
+#define gds__sdl_struct                    6
+#define gds__sdl_variable                  7
+#define gds__sdl_scalar                    8
+#define gds__sdl_tiny_integer              9
+#define gds__sdl_short_integer             10
+#define gds__sdl_long_integer              11
+#define gds__sdl_literal                   12
+#define gds__sdl_add                       13
+#define gds__sdl_subtract                  14
+#define gds__sdl_multiply                  15
+#define gds__sdl_divide                    16
+#define gds__sdl_negate                    17
+#define gds__sdl_eql                       18
+#define gds__sdl_neq                       19
+#define gds__sdl_gtr                       20
+#define gds__sdl_geq                       21
+#define gds__sdl_lss                       22
+#define gds__sdl_leq                       23
+#define gds__sdl_and                       24
+#define gds__sdl_or                        25
+#define gds__sdl_not                       26
+#define gds__sdl_while                     27
+#define gds__sdl_assignment                28
+#define gds__sdl_label                     29
+#define gds__sdl_leave                     30
+#define gds__sdl_begin                     31
+#define gds__sdl_end                       32
+#define gds__sdl_do3                       33
+#define gds__sdl_do2                       34
+#define gds__sdl_do1                       35
+#define gds__sdl_element                   36
+
+#else /* c++ definitions */
+
+const unsigned char gds_sdl_version1 = 1;
+const unsigned char gds_sdl_eoc = -1;
+const unsigned char gds_sdl_relation = 2;
+const unsigned char gds_sdl_rid = 3;
+const unsigned char gds_sdl_field = 4;
+const unsigned char gds_sdl_fid = 5;
+const unsigned char gds_sdl_struct = 6;
+const unsigned char gds_sdl_variable = 7;
+const unsigned char gds_sdl_scalar = 8;
+const unsigned char gds_sdl_tiny_integer = 9;
+const unsigned char gds_sdl_short_integer = 10;
+const unsigned char gds_sdl_long_integer = 11;
+const unsigned char gds_sdl_literal = 12;
+const unsigned char gds_sdl_add = 13;
+const unsigned char gds_sdl_subtract = 14;
+const unsigned char gds_sdl_multiply = 15;
+const unsigned char gds_sdl_divide = 16;
+const unsigned char gds_sdl_negate = 17;
+const unsigned char gds_sdl_eql = 18;
+const unsigned char gds_sdl_neq = 19;
+const unsigned char gds_sdl_gtr = 20;
+const unsigned char gds_sdl_geq = 21;
+const unsigned char gds_sdl_lss = 22;
+const unsigned char gds_sdl_leq = 23;
+const unsigned char gds_sdl_and = 24;
+const unsigned char gds_sdl_or = 25;
+const unsigned char gds_sdl_not = 26;
+const unsigned char gds_sdl_while = 27;
+const unsigned char gds_sdl_assignment = 28;
+const unsigned char gds_sdl_label = 29;
+const unsigned char gds_sdl_leave = 30;
+const unsigned char gds_sdl_begin = 31;
+const unsigned char gds_sdl_end = 32;
+const unsigned char gds_sdl_do3 = 33;
+const unsigned char gds_sdl_do2 = 34;
+const unsigned char gds_sdl_do1 = 35;
+const unsigned char gds_sdl_element = 36;
+
+#endif
+
+
+/********************************************/
+/* International text interpretation values */
+/********************************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define gds__interp_eng_ascii              0
+#define gds__interp_jpn_sjis               5
+#define gds__interp_jpn_euc                6
+
+#else /* c++ definitions */
+
+const unsigned char gds_interp_eng_ascii = 0;
+const unsigned char gds_interp_jpn_sjis = 5;
+const unsigned char gds_interp_jpn_euc = 6;
+
+#endif
+
+
+/*****************************/
+/* Forms Package definitions */
+/*****************************/
+
+/************************************/
+/* Map definition block definitions */
+/************************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define PYXIS__MAP_VERSION1                1
+#define PYXIS__MAP_FIELD2                  2
+#define PYXIS__MAP_FIELD1                  3
+#define PYXIS__MAP_MESSAGE                 4
+#define PYXIS__MAP_TERMINATOR              5
+#define PYXIS__MAP_TERMINATING_FIELD       6
+#define PYXIS__MAP_OPAQUE                  7
+#define PYXIS__MAP_TRANSPARENT             8
+#define PYXIS__MAP_TAG                     9
+#define PYXIS__MAP_SUB_FORM                10
+#define PYXIS__MAP_ITEM_INDEX              11
+#define PYXIS__MAP_SUB_FIELD               12
+#define PYXIS__MAP_END                     -1
+
+#else /* c++ definitions */
+
+const char PYXIS_MAP_VERSION1 = 1;
+const char PYXIS_MAP_FIELD2 = 2;
+const char PYXIS_MAP_FIELD1 = 3;
+const char PYXIS_MAP_MESSAGE = 4;
+const char PYXIS_MAP_TERMINATOR = 5;
+const char PYXIS_MAP_TERMINATING_FIELD = 6;
+const char PYXIS_MAP_OPAQUE = 7;
+const char PYXIS_MAP_TRANSPARENT = 8;
+const char PYXIS_MAP_TAG = 9;
+const char PYXIS_MAP_SUB_FORM = 10;
+const char PYXIS_MAP_ITEM_INDEX = 11;
+const char PYXIS_MAP_SUB_FIELD = 12;
+const char PYXIS_MAP_END = -1;
+
+#endif
+
+
+/******************************************/
+/* Field option flags for display options */
+/******************************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define PYXIS__OPT_DISPLAY                 1
+#define PYXIS__OPT_UPDATE                  2
+#define PYXIS__OPT_WAKEUP                  4
+#define PYXIS__OPT_POSITION                8
+
+#else /* c++ definitions */
+
+const unsigned char PYXIS_OPT_DISPLAY = 1;
+const unsigned char PYXIS_OPT_UPDATE = 2;
+const unsigned char PYXIS_OPT_WAKEUP = 4;
+const unsigned char PYXIS_OPT_POSITION = 8;
+
+#endif
+
+
+/*****************************************/
+/* Field option values following display */
+/*****************************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define PYXIS__OPT_NULL                    1
+#define PYXIS__OPT_DEFAULT                 2
+#define PYXIS__OPT_INITIAL                 3
+#define PYXIS__OPT_USER_DATA               4
+
+#else /* c++ definitions */
+
+const unsigned char PYXIS_OPT_NULL = 1;
+const unsigned char PYXIS_OPT_DEFAULT = 2;
+const unsigned char PYXIS_OPT_INITIAL = 3;
+const unsigned char PYXIS_OPT_USER_DATA = 4;
+
+#endif
+
+
+/**************************/
+/* Pseudo key definitions */
+/**************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define PYXIS__KEY_DELETE                  127
+#define PYXIS__KEY_UP                      128
+#define PYXIS__KEY_DOWN                    129
+#define PYXIS__KEY_RIGHT                   130
+#define PYXIS__KEY_LEFT                    131
+#define PYXIS__KEY_PF1                     132
+#define PYXIS__KEY_PF2                     133
+#define PYXIS__KEY_PF3                     134
+#define PYXIS__KEY_PF4                     135
+#define PYXIS__KEY_PF5                     136
+#define PYXIS__KEY_PF6                     137
+#define PYXIS__KEY_PF7                     138
+#define PYXIS__KEY_PF8                     139
+#define PYXIS__KEY_PF9                     140
+#define PYXIS__KEY_ENTER                   141
+#define PYXIS__KEY_SCROLL_TOP              146
+#define PYXIS__KEY_SCROLL_BOTTOM           147
+
+#else /* c++ definitions */
+
+const unsigned char PYXIS_KEY_DELETE = 127;
+const unsigned char PYXIS_KEY_UP = 128;
+const unsigned char PYXIS_KEY_DOWN = 129;
+const unsigned char PYXIS_KEY_RIGHT = 130;
+const unsigned char PYXIS_KEY_LEFT = 131;
+const unsigned char PYXIS_KEY_PF1 = 132;
+const unsigned char PYXIS_KEY_PF2 = 133;
+const unsigned char PYXIS_KEY_PF3 = 134;
+const unsigned char PYXIS_KEY_PF4 = 135;
+const unsigned char PYXIS_KEY_PF5 = 136;
+const unsigned char PYXIS_KEY_PF6 = 137;
+const unsigned char PYXIS_KEY_PF7 = 138;
+const unsigned char PYXIS_KEY_PF8 = 139;
+const unsigned char PYXIS_KEY_PF9 = 140;
+const unsigned char PYXIS_KEY_ENTER = 141;
+const unsigned char PYXIS_KEY_SCROLL_TOP = 146;
+const unsigned char PYXIS_KEY_SCROLL_BOTTOM = 147;
+
+#endif
+
+
+/*************************/
+/* Menu definition stuff */
+/*************************/
+
+#ifndef	__cplusplus				/* c definitions */
+
+#define PYXIS__MENU_VERSION1               1
+#define PYXIS__MENU_LABEL                  2
+#define PYXIS__MENU_ENTREE                 3
+#define PYXIS__MENU_OPAQUE                 4
+#define PYXIS__MENU_TRANSPARENT            5
+#define PYXIS__MENU_HORIZONTAL             6
+#define PYXIS__MENU_VERTICAL               7
+#define PYXIS__MENU_END                    -1
+
+#else /* c++ definitions */
+
+const unsigned char PYXIS_MENU_VERSION1 = 1;
+const unsigned char PYXIS_MENU_LABEL = 2;
+const unsigned char PYXIS_MENU_ENTREE = 3;
+const unsigned char PYXIS_MENU_OPAQUE = 4;
+const unsigned char PYXIS_MENU_TRANSPARENT = 5;
+const unsigned char PYXIS_MENU_HORIZONTAL = 6;
+const unsigned char PYXIS_MENU_VERTICAL = 7;
+const unsigned char PYXIS_MENU_END = -1;
+
+#endif
+
+#endif /* _JRD_GDSOLD_H_ */
diff --git a/src/jrd/grammar.cpp b/src/jrd/grammar.cpp
new file mode 100644
index 0000000000..f8024d2dd3
--- /dev/null
+++ b/src/jrd/grammar.cpp
@@ -0,0 +1,701 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdlib.h>
+
+
+# line 44 "grammar.y"
+#include "../jrd/dbg.h"
+
+extern "C" {
+
+void yyerror(const char *string);	// defined in dbg.cpp
+
+void DMP_active(void);
+int DBG_open(void);
+int DBG_close(void);
+
+
+extern int *prior_frame;
+#define SYM_FIELD(ptr, field) (((SYMB) ptr)->field)
+# define NUMBER 257
+# define ROUTINE 258
+# define OFFSET 259
+# define SYMBOL 260
+# define OTHER 261
+# define ARROW 262
+# define PRINTER 263
+#define yyclearin yychar = -1
+#define yyerrok yyerrflag = 0
+extern int yychar;
+extern int yyerrflag;
+#ifndef YYMAXDEPTH
+#define YYMAXDEPTH 150
+#endif
+#ifndef YYSTYPE
+#define YYSTYPE int
+#endif
+YYSTYPE yylval, yyval;
+# define YYERRCODE 256
+
+
+# line 159 "grammar.y"
+
+
+#include "../jrd/jlx.cpp"
+int yyexca[] = {
+	-1, 1,
+	0, -1,
+	10, 10,
+	59, 10,
+	-2, 0,
+};
+# define YYNPROD 21
+# define YYLAST 237
+int yyact[] = {
+
+	8, 32, 22, 20, 19, 21, 22, 31, 20, 6,
+	21, 22, 16, 30, 9, 11, 18, 12, 17, 2,
+	1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 4, 0, 24, 25, 26, 27, 28, 29,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 10, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 23, 0,
+	0, 0, 23, 3, 0, 7, 0, 23, 0, 0,
+	5, 0, 0, 14, 0, 15, 13
+};
+int yypact[] = {
+
+	-1000, -33, 4, 5, -1000, -24, -259, -1000, -1000, -1000,
+	-1000, -1000, -35, -1000, -1000, -1000, -24, -24, -24, -24,
+	-24, -24, -246, -252, -1000, -44, -40, -35, -44, -44,
+	-1000, -1000, -1000
+};
+int yypgo[] = {
+
+	0, 20, 19, 17
+};
+int yyr1[] = {
+
+	0, 1, 1, 1, 1, 1, 2, 2, 2, 2,
+	2, 3, 3, 3, 3, 3, 3, 3, 3, 3,
+	3
+};
+int yyr2[] = {
+
+	0, 0, 6, 6, 7, 5, 5, 7, 3, 3,
+	0, 3, 2, 7, 7, 3, 7, 7, 5, 5,
+	7
+};
+int yychk[] = {
+
+	-1000, -1, -2, 256, 65, 263, 42, 258, 33, 10,
+	59, 10, -3, 260, 257, 259, 36, 42, 40, 263,
+	43, 45, 46, 262, -3, -3, -3, -3, -3, -3,
+	259, 259, 41
+};
+int yydef[] = {
+
+	1, -2, 0, 0, 5, 0, 0, 8, 9, 2,
+	3, 4, 6, 11, 12, 15, 0, 0, 0, 0,
+	0, 0, 0, 0, 18, 19, 0, 7, 13, 14,
+	16, 17, 20
+};
+typedef struct {
+	char *t_name;
+	int t_val;
+} yytoktype;
+#ifndef YYDEBUG
+#	define YYDEBUG	0			/* don't allow debugging */
+#endif
+
+#if YYDEBUG
+
+yytoktype yytoks[] = {
+	"NUMBER", 257,
+	"ROUTINE", 258,
+	"OFFSET", 259,
+	"SYMBOL", 260,
+	"OTHER", 261,
+	"ARROW", 262,
+	"PRINTER", 263,
+	"+", 43,
+	"-", 45,
+	"*", 42,
+	".", 46,
+	"$", 36,
+	"-unknown-", -1				/* ends search */
+};
+
+char *yyreds[] = {
+	"-no such reduction-",
+	"list : /* empty */",
+	"list : list statement '\n'",
+	"list : list statement ';'",
+	"list : list error '\n'",
+	"list : list 'A'",
+	"statement : PRINTER expr",
+	"statement : '*' PRINTER expr",
+	"statement : ROUTINE",
+	"statement : '!'",
+	"statement : /* empty */",
+	"expr : SYMBOL",
+	"expr : NUMBER",
+	"expr : expr '+' expr",
+	"expr : expr '-' expr",
+	"expr : OFFSET",
+	"expr : expr '.' OFFSET",
+	"expr : expr ARROW OFFSET",
+	"expr : '$' expr",
+	"expr : '*' expr",
+	"expr : '(' expr ')'",
+};
+#endif /* YYDEBUG */
+#line 1 "/usr/lib/yaccpar"
+/*	@(#)yaccpar 1.10 89/04/04 SMI; from S5R3 1.10	*/
+
+/*
+** Skeleton parser driver for yacc output
+*/
+
+/*
+** yacc user known macros and defines
+*/
+#define YYERROR		goto yyerrlab
+#define YYACCEPT	{ free(yys); free(yyv); return(0); }
+#define YYABORT		{ free(yys); free(yyv); return(1); }
+#define YYBACKUP( newtoken, newvalue )\
+{\
+	if ( yychar >= 0 || ( yyr2[ yytmp ] >> 1 ) != 1 )\
+	{\
+		yyerror( "syntax error - cannot backup" );\
+		goto yyerrlab;\
+	}\
+	yychar = newtoken;\
+	yystate = *yyps;\
+	yylval = newvalue;\
+	goto yynewstate;\
+}
+#define YYRECOVERING()	(!!yyerrflag)
+#ifndef YYDEBUG
+#	define YYDEBUG	1			/* make debugging available */
+#endif
+
+/*
+** user known globals
+*/
+int yydebug;					/* set to 1 to get debugging */
+
+/*
+** driver internal defines
+*/
+#define YYFLAG		(-1000)
+
+/*
+** static variables used by the parser
+*/
+static YYSTYPE *yyv;			/* value stack */
+static int *yys;				/* state stack */
+
+static YYSTYPE *yypv;			/* top of value stack */
+static int *yyps;				/* top of state stack */
+
+static int yystate;				/* current state */
+static int yytmp;				/* extra var (lasts between blocks) */
+
+int yynerrs;					/* number of errors */
+
+int yyerrflag;					/* error recovery flag */
+int yychar;						/* current input token number */
+
+
+/*
+** yyparse - return 0 if worked, 1 if syntax error not recovered from
+*/
+int yyparse()
+{
+	register YYSTYPE *yypvt;	/* top of value stack for $vars */
+	unsigned yymaxdepth = YYMAXDEPTH;
+
+	/*
+	   ** Initialize externals - yyparse may be called more than once
+	 */
+	yyv = (YYSTYPE *) malloc(yymaxdepth * sizeof(YYSTYPE));
+	yys = (int *) malloc(yymaxdepth * sizeof(int));
+	if (!yyv || !yys) {
+		yyerror("out of memory");
+		return (1);
+	}
+	yypv = &yyv[-1];
+	yyps = &yys[-1];
+	yystate = 0;
+	yytmp = 0;
+	yynerrs = 0;
+	yyerrflag = 0;
+	yychar = -1;
+
+	goto yystack;
+	{
+		register YYSTYPE *yy_pv;	/* top of value stack */
+		register int *yy_ps;	/* top of state stack */
+		register int yy_state;	/* current state */
+		register int yy_n;		/* internal state number info */
+
+		/*
+		   ** get globals into registers.
+		   ** branch to here only if YYBACKUP was called.
+		 */
+	  yynewstate:
+		yy_pv = yypv;
+		yy_ps = yyps;
+		yy_state = yystate;
+		goto yy_newstate;
+
+		/*
+		   ** get globals into registers.
+		   ** either we just started, or we just finished a reduction
+		 */
+	  yystack:
+		yy_pv = yypv;
+		yy_ps = yyps;
+		yy_state = yystate;
+
+		/*
+		   ** top of for (;;) loop while no reductions done
+		 */
+	  yy_stack:
+		/*
+		   ** put a state and value onto the stacks
+		 */
+#if YYDEBUG
+		/*
+		   ** if debugging, look up token value in list of value vs.
+		   ** name pairs.  0 and negative (-1) are special values.
+		   ** Note: linear search is used since time is not a real
+		   ** consideration while debugging.
+		 */
+		if (yydebug) {
+			register int yy_i;
+
+			(void) ib_printf("State %d, token ", yy_state);
+			if (yychar == 0)
+				(void) ib_printf("end-of-file\n");
+			else if (yychar < 0)
+				(void) ib_printf("-none-\n");
+			else {
+				for (yy_i = 0; yytoks[yy_i].t_val >= 0; yy_i++) {
+					if (yytoks[yy_i].t_val == yychar)
+						break;
+				}
+				(void) ib_printf("%s\n", yytoks[yy_i].t_name);
+			}
+		}
+#endif /* YYDEBUG */
+		if (++yy_ps >= &yys[yymaxdepth]) {	/* room on stack? */
+			/*
+			   ** reallocate and recover.  Note that pointers
+			   ** have to be reset, or bad things will happen
+			 */
+			int yyps_index = (yy_ps - yys);
+			int yypv_index = (yy_pv - yyv);
+			int yypvt_index = (yypvt - yyv);
+			yymaxdepth += YYMAXDEPTH;
+			yyv = (YYSTYPE *) realloc((char *) yyv,
+									  yymaxdepth * sizeof(YYSTYPE));
+			yys = (int *) realloc((char *) yys, yymaxdepth * sizeof(int));
+			if (!yyv || !yys) {
+				yyerror("yacc stack overflow");
+				return (1);
+			}
+			yy_ps = yys + yyps_index;
+			yy_pv = yyv + yypv_index;
+			yypvt = yyv + yypvt_index;
+		}
+		*yy_ps = yy_state;
+		*++yy_pv = yyval;
+
+		/*
+		   ** we have a new state - find out what to do
+		 */
+	  yy_newstate:
+		if ((yy_n = yypact[yy_state]) <= YYFLAG)
+			goto yydefault;		/* simple state */
+#if YYDEBUG
+		/*
+		   ** if debugging, need to mark whether new token grabbed
+		 */
+		yytmp = yychar < 0;
+#endif
+		if ((yychar < 0) && ((yychar = yylex()) < 0))
+			yychar = 0;			/* reached EOF */
+#if YYDEBUG
+		if (yydebug && yytmp) {
+			register int yy_i;
+
+			(void) ib_printf("Received token ");
+			if (yychar == 0)
+				(void) ib_printf("end-of-file\n");
+			else if (yychar < 0)
+				(void) ib_printf("-none-\n");
+			else {
+				for (yy_i = 0; yytoks[yy_i].t_val >= 0; yy_i++) {
+					if (yytoks[yy_i].t_val == yychar)
+						break;
+				}
+				(void) ib_printf("%s\n", yytoks[yy_i].t_name);
+			}
+		}
+#endif /* YYDEBUG */
+		if (((yy_n += yychar) < 0) || (yy_n >= YYLAST))
+			goto yydefault;
+		if (yychk[yy_n = yyact[yy_n]] == yychar) {	/*valid shift */
+			yychar = -1;
+			yyval = yylval;
+			yy_state = yy_n;
+			if (yyerrflag > 0)
+				yyerrflag--;
+			goto yy_stack;
+		}
+
+	  yydefault:
+		if ((yy_n = yydef[yy_state]) == -2) {
+#if YYDEBUG
+			yytmp = yychar < 0;
+#endif
+			if ((yychar < 0) && ((yychar = yylex()) < 0))
+				yychar = 0;		/* reached EOF */
+#if YYDEBUG
+			if (yydebug && yytmp) {
+				register int yy_i;
+
+				(void) ib_printf("Received token ");
+				if (yychar == 0)
+					(void) ib_printf("end-of-file\n");
+				else if (yychar < 0)
+					(void) ib_printf("-none-\n");
+				else {
+					for (yy_i = 0; yytoks[yy_i].t_val >= 0; yy_i++) {
+						if (yytoks[yy_i].t_val == yychar) {
+							break;
+						}
+					}
+					(void) ib_printf("%s\n", yytoks[yy_i].t_name);
+				}
+			}
+#endif /* YYDEBUG */
+			/*
+			   ** look through exception table
+			 */
+			{
+				register int *yyxi = yyexca;
+
+				while ((*yyxi != -1) || (yyxi[1] != yy_state)) {
+					yyxi += 2;
+				}
+				while ((*(yyxi += 2) >= 0) && (*yyxi != yychar));
+				if ((yy_n = yyxi[1]) < 0)
+					YYACCEPT;
+			}
+		}
+
+		/*
+		   ** check for syntax error
+		 */
+		if (yy_n == 0) {		/* have an error */
+			/* no worry about speed here! */
+			switch (yyerrflag) {
+			case 0:			/* new error */
+				yyerror("syntax error");
+				goto skip_init;
+			  yyerrlab:
+				/*
+				   ** get globals into registers.
+				   ** we have a user generated syntax type error
+				 */
+				yy_pv = yypv;
+				yy_ps = yyps;
+				yy_state = yystate;
+				yynerrs++;
+			  skip_init:
+			case 1:
+			case 2:			/* incompletely recovered error */
+				/* try again... */
+				yyerrflag = 3;
+				/*
+				   ** find state where "error" is a legal
+				   ** shift action
+				 */
+				while (yy_ps >= yys) {
+					yy_n = yypact[*yy_ps] + YYERRCODE;
+					if (yy_n >= 0 && yy_n < YYLAST &&
+						yychk[yyact[yy_n]] == YYERRCODE) {
+						/*
+						   ** simulate shift of "error"
+						 */
+						yy_state = yyact[yy_n];
+						goto yy_stack;
+					}
+					/*
+					   ** current state has no shift on
+					   ** "error", pop stack
+					 */
+#if YYDEBUG
+#	define _POP_ "Error recovery pops state %d, uncovers state %d\n"
+					if (yydebug)
+						(void) ib_printf(_POP_, *yy_ps, yy_ps[-1]);
+#	undef _POP_
+#endif
+					yy_ps--;
+					yy_pv--;
+				}
+				/*
+				   ** there is no state on stack with "error" as
+				   ** a valid shift.  give up.
+				 */
+				YYABORT;
+			case 3:			/* no shift yet; eat a token */
+#if YYDEBUG
+				/*
+				   ** if debugging, look up token in list of
+				   ** pairs.  0 and negative shouldn't occur,
+				   ** but since timing doesn't matter when
+				   ** debugging, it doesn't hurt to leave the
+				   ** tests here.
+				 */
+				if (yydebug) {
+					register int yy_i;
+
+					(void) ib_printf("Error recovery discards ");
+					if (yychar == 0)
+						(void) ib_printf("token end-of-file\n");
+					else if (yychar < 0)
+						(void) ib_printf("token -none-\n");
+					else {
+						for (yy_i = 0; yytoks[yy_i].t_val >= 0; yy_i++) {
+							if (yytoks[yy_i].t_val == yychar) {
+								break;
+							}
+						}
+						(void) ib_printf("token %s\n", yytoks[yy_i].t_name);
+					}
+				}
+#endif /* YYDEBUG */
+				if (yychar == 0)	/* reached EOF. quit */
+					YYABORT;
+				yychar = -1;
+				goto yy_newstate;
+			}
+		}						/* end if ( yy_n == 0 ) */
+		/*
+		   ** reduction by production yy_n
+		   ** put stack tops, etc. so things right after switch
+		 */
+#if YYDEBUG
+		/*
+		   ** if debugging, print the string that is the user's
+		   ** specification of the reduction which is just about
+		   ** to be done.
+		 */
+		if (yydebug)
+			(void) ib_printf("Reduce by (%d) \"%s\"\n", yy_n, yyreds[yy_n]);
+#endif
+		yytmp = yy_n;			/* value to switch over */
+		yypvt = yy_pv;			/* $vars top of value stack */
+		/*
+		   ** Look in goto table for next state
+		   ** Sorry about using yy_state here as temporary
+		   ** register variable, but why not, if it works...
+		   ** If yyr2[ yy_n ] doesn't have the low order bit
+		   ** set, then there is no action to be done for
+		   ** this reduction.  So, no saving & unsaving of
+		   ** registers done.  The only difference between the
+		   ** code just after the if and the body of the if is
+		   ** the goto yy_stack in the body.  This way the test
+		   ** can be made before the choice of what to do is needed.
+		 */
+		{
+			/* length of production doubled with extra bit */
+			register int yy_len = yyr2[yy_n];
+
+			if (!(yy_len & 01)) {
+				yy_len >>= 1;
+				yyval = (yy_pv -= yy_len)[1];	/* $$ = $1 */
+				yy_state = yypgo[yy_n = yyr1[yy_n]] + *(yy_ps -= yy_len) + 1;
+				if (yy_state >= YYLAST ||
+					yychk[yy_state = yyact[yy_state]] != -yy_n) {
+					yy_state = yyact[yypgo[yy_n]];
+				}
+				goto yy_stack;
+			}
+			yy_len >>= 1;
+			yyval = (yy_pv -= yy_len)[1];	/* $$ = $1 */
+			yy_state = yypgo[yy_n = yyr1[yy_n]] + *(yy_ps -= yy_len) + 1;
+			if (yy_state >= YYLAST ||
+				yychk[yy_state = yyact[yy_state]] != -yy_n) {
+				yy_state = yyact[yypgo[yy_n]];
+			}
+		}
+		/* save until reenter driver code */
+		yystate = yy_state;
+		yyps = yy_ps;
+		yypv = yy_pv;
+	}
+	/*
+	   ** code supplied by user is placed in this switch
+	 */
+	switch (yytmp) {
+
+	case 4:
+# line 60 "grammar.y"
+		{
+			yyerrok;
+		}
+		break;
+	case 5:
+# line 64 "grammar.y"
+		{
+			DMP_active();
+		}
+		break;
+	case 6:
+# line 70 "grammar.y"
+		{
+			int (*routine) ();
+			SYMB symbol;
+			SLONG stuff;
+			symbol = (SYMB) (yypvt[-1]);
+			stuff = yypvt[-0];
+			if (routine = *symbol->symb_value)
+				reinterpret_cast < void (*) (...) > (*routine) (stuff, 0);
+		} break;
+	case 7:
+# line 80 "grammar.y"
+		{
+			int (*routine) ();
+			SYMB symbol;
+
+			symbol = (SYMB) (yypvt[-1]);
+			if (routine = *symbol->symb_value) {
+				DBG_open();
+				reinterpret_cast < void (*) (...) >
+					(*routine) ((SLONG) yypvt[-0], 0);
+				DBG_close();
+			}
+		} break;
+	case 8:
+# line 93 "grammar.y"
+		{
+			int (*routine) ();
+			SYMB symbol;
+
+			symbol = (SYMB) (yypvt[-0]);
+			if (routine = *symbol->symb_value)
+				reinterpret_cast < void (*) (...) > (*routine) (0);
+		} break;
+	case 9:
+# line 102 "grammar.y"
+		{
+			system("csh");
+			ib_printf("\n");
+		}
+		break;
+	case 11:
+# line 110 "grammar.y"
+		{
+			SYMB symbol;
+
+			symbol = (SYMB) (yypvt[-0]);
+			yyval = (YYSTYPE) symbol->symb_value;
+		}
+		break;
+	case 13:
+# line 118 "grammar.y"
+		{
+			yyval = yypvt[-2] + yypvt[-0];
+		}
+		break;
+	case 14:
+# line 122 "grammar.y"
+		{
+			yyval = yypvt[-2] - yypvt[-0];
+		}
+		break;
+	case 15:
+# line 126 "grammar.y"
+		{
+			SYMB symbol;
+
+			symbol = (SYMB) (yypvt[-0]);
+			yyval = (YYSTYPE) symbol->symb_value;
+		}
+		break;
+	case 16:
+# line 133 "grammar.y"
+		{
+			SYMB symbol;
+
+			symbol = (SYMB) (yypvt[-0]);
+			yyval = yypvt[-2] + (int) symbol->symb_value;
+		} break;
+	case 17:
+# line 140 "grammar.y"
+		{
+			SYMB symbol;
+
+			symbol = (SYMB) (yypvt[-0]);
+			yyval = *(int *) (yypvt[-2] + symbol->symb_value);
+		} break;
+	case 18:
+# line 147 "grammar.y"
+		{
+			yyval = prior_frame[yypvt[-0] + 1];
+		}
+		break;
+	case 19:
+# line 151 "grammar.y"
+		{
+			yyval = *(int *) yypvt[-0];
+		} break;
+	case 20:
+# line 155 "grammar.y"
+		{
+			yyval = yypvt[-1];
+		}
+		break;
+	}
+	goto yystack;				/* reset registers in driver code */
+}
+
+
+} // extern "C"
diff --git a/src/jrd/grammar.y b/src/jrd/grammar.y
new file mode 100644
index 0000000000..a8a73d8f56
--- /dev/null
+++ b/src/jrd/grammar.y
@@ -0,0 +1,137 @@
+%{
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "../jrd/dbg.h"
+extern int	*prior_frame;
+#define SYM_FIELD(ptr, field) (((SYMB) ptr)->field)
+%}
+
+%token	NUMBER, ROUTINE, OFFSET, SYMBOL, OTHER, ARROW, PRINTER
+%left "+","-"
+%left '*'
+%right ARROW, "."
+%left '$'
+%%
+
+list	:
+	| list statement '\n'
+	| list statement ';'
+	| list error '\n'
+	    {
+	    yyerrok;
+	    }
+	| list 'A'       	/* dummy to get routines loaded */
+	    {
+	    DMP_active();
+	    }
+	;
+
+statement : PRINTER expr
+	    {
+	    int		(*routine)();
+	    SYMB	symbol;
+	    SLONG	stuff;
+	    symbol = (SYMB) ($1);
+	    stuff = $2;
+	    if (routine = *symbol->symb_value)
+		(*routine) (stuff, 0);
+	    }
+	| '*'  PRINTER expr
+	    {
+	    int		(*routine)();
+	    SYMB	symbol;
+
+	    symbol = (SYMB) ($2);
+	    if (routine = *symbol->symb_value)
+		{
+		DBG_open();
+		(*routine) ((SLONG) $3, 0);
+		DBG_close();
+		}
+	    }
+	| ROUTINE
+	    {
+	    int		(*routine)();
+	    SYMB	symbol;
+
+	    symbol = (SYMB) ($1);
+	    if (routine = *symbol->symb_value)
+		(*routine) (0);
+	    }
+	| '!'
+	    {
+	    system ("csh");
+	    printf ("\n");
+	    }
+	|	/* Nothing */
+	;
+
+expr	: SYMBOL
+	    {
+	    SYMB	symbol;
+
+	    symbol = (SYMB) ($1);
+	    $$ = (YYSTYPE) symbol->symb_value;
+	    }
+	| NUMBER
+	| expr '+' expr
+	    {
+	    $$ = $1 + $3;
+	    }
+	| expr '-' expr
+	    {
+	    $$ = $1 - $3;
+	    }
+	| OFFSET
+	    {
+	    SYMB	symbol;
+
+	    symbol = (SYMB) ($1);
+	    $$ = (YYSTYPE) symbol->symb_value;
+	    }
+	| expr '.' OFFSET
+	    {
+	    SYMB	symbol;
+
+	    symbol = (SYMB) ($3);
+	    $$ = $1 + (int) symbol->symb_value;
+	    }
+	| expr ARROW OFFSET
+	    {
+	    SYMB	symbol;
+
+	    symbol = (SYMB) ($3);
+	    $$ = *(int *) ($1 + symbol->symb_value);
+	    }
+	| '$' expr
+	    {
+		$$ = prior_frame [$2 + 1];
+	    }
+	| '*' expr
+	    {
+		$$ = *(int *) $2;
+	    }
+	| '(' expr ')'
+	    {
+		$$ = $2;
+	    }
+	;
+%%
+
+#include "../jrd/jlx.c"
diff --git a/src/jrd/grant.e b/src/jrd/grant.e
new file mode 100644
index 0000000000..dfe975a70e
--- /dev/null
+++ b/src/jrd/grant.e
@@ -0,0 +1,1401 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		grant.e
+ *	DESCRIPTION:	SQL Grant/Revoke Handler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/scl.h"
+#include "../jrd/acl.h"
+#include "../jrd/irq.h"
+#include "../jrd/blb.h"
+#include "../jrd/req.h"
+#include "../jrd/tra.h"
+#include "../jrd/val.h"
+#include "../jrd/met.h"
+#include "../jrd/intl.h"
+#ifdef NETWARE_386
+#define V4_THREADING
+#endif
+#include "../jrd/nlm_thd.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dfw_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/grant_proto.h"
+#include "../jrd/jrd_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/scl_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/ibsetjmp.h"
+
+/* privileges given to the owner of a relation */
+
+#define OWNER_PRIVS	SCL_control | SCL_read | SCL_write | SCL_delete | SCL_protect
+#define VIEW_PRIVS	SCL_read | SCL_write | SCL_delete
+#define ACL_BUFFER_SIZE	4096
+#define DEFAULT_CLASS	"SQL$DEFAULT"
+
+#define CHECK_ACL_BOUND(to, start, length_ptr, move_length)\
+          {\
+          if (((start)->str_data + *length_ptr) < (to + move_length))  {start = GRANT_realloc_acl(start, &to, length_ptr);} \
+          }
+#define CHECK_AND_MOVE(to, from, start, length_ptr) {CHECK_ACL_BOUND (to, start, length_ptr, 1); *(to)++ = from;}
+#define CHECK_MOVE_INCR(to, from, start, length_ptr) {CHECK_ACL_BOUND (to, start, length_ptr, 1); *(to)++ = (from)++;}
+
+DATABASE DB = STATIC "yachts.lnk";
+
+static void define_default_class(TDBB, TEXT *, TEXT *, UCHAR *, USHORT);
+static void delete_security_class(TDBB, TEXT *);
+static void finish_security_class(UCHAR **, USHORT, STR *, ULONG *);
+static void get_object_info(TDBB, TEXT *, SSHORT,
+							TEXT *, TEXT *, TEXT *, USHORT *);
+static USHORT get_public_privs(TDBB, TEXT *, SSHORT);
+static void get_user_privs(TDBB, UCHAR **, TEXT *,
+						   SSHORT, TEXT *, USHORT, STR *, ULONG *);
+static void grant_user(UCHAR**, TEXT*, SSHORT, USHORT, STR*, ULONG*);
+static void grant_views(UCHAR **, USHORT, STR *, ULONG *);
+static void purge_default_class(TEXT *, SSHORT);
+static USHORT save_field_privileges(TDBB, STR *, UCHAR **,
+									TEXT *, TEXT *, USHORT, ULONG *);
+static void save_security_class(TDBB, TEXT *, UCHAR *, USHORT);
+static USHORT trans_sql_priv(TEXT *);
+static USHORT terminate(TEXT *);
+static SLONG squeeze_acl(UCHAR *, UCHAR **, TEXT *, SSHORT);
+static BOOLEAN check_string(TEXT *, TEXT *);
+
+
+STR GRANT_realloc_acl(STR		start_ptr,
+					  UCHAR**	write_ptr,
+					  ULONG * buffer_length)
+{
+/**************************************
+ *
+ *	G R A N T _ r e a l l o c _ a c l 
+ *
+ **************************************
+ *
+ * Functional description
+ *	The ACl list is greater than  the current length, Increase it by
+ *	MAX_AXL_SIZE. Do a ERR_punt in case of no memory!
+ *
+ **************************************/
+
+	ULONG old_offset = (ULONG) (*write_ptr - start_ptr->str_data);
+	ULONG realloc_length = *buffer_length + ACL_BUFFER_SIZE;
+
+
+/* realloc the new length, ERR_punt incase of no memory */
+	(void) ALL_extend((BLK*)&start_ptr, realloc_length);
+
+/* the write_ptr is set back to the same offset in the new buffer*/
+	*write_ptr = start_ptr->str_data + old_offset;
+
+
+	*buffer_length = realloc_length;
+
+	return (start_ptr);
+}
+
+
+int GRANT_privileges( TDBB tdbb, SSHORT phase, DFW work)
+{
+/**************************************
+ *
+ *	G R A N T _ p r i v i l e g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute access control list from SQL privileges.
+ *	This calculation is tricky and involves interaction between 
+ *	the relation-level and field-level privileges.  Do not change 
+ *	the order of operations	lightly.
+ *
+ **************************************/
+
+	switch (phase) {
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		{
+			UCHAR *acl, *temp_acl;
+			UCHAR *default_acl;
+			TEXT s_class[32], owner[32], default_class[32];
+			STR str_buffer = NULL, str_default_buffer = NULL;
+			USHORT public, aggregate_public, restrct, view;
+			ULONG length = ACL_BUFFER_SIZE, *length_ptr = &length;
+			ULONG default_length = ACL_BUFFER_SIZE, *default_length_ptr =
+				&default_length;
+
+			JMP_BUF env, *old_env;
+			DBB dbb;
+
+			SET_TDBB(tdbb);
+
+			restrct = FALSE;
+
+			dbb = tdbb->tdbb_database;
+			V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_grant_priv);
+			get_object_info(tdbb, work->dfw_name, work->dfw_id, owner,
+							s_class, default_class, &view);
+
+			if (!s_class[0]) {
+				V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_grant_priv);
+				return FALSE;
+			}
+
+			/* start the acl off by giving the owner all privileges */
+
+
+			old_env = (JMP_BUF*)tdbb->tdbb_setjmp;
+			tdbb->tdbb_setjmp = (UCHAR *) env;
+			if (SETJMP(env)) {
+				tdbb->tdbb_setjmp = (UCHAR *) old_env;
+				if (str_buffer) {
+					ALL_release((FRB)str_buffer);
+				}
+				if (str_default_buffer)
+					ALL_release((FRB)str_default_buffer);
+				ERR_punt();
+			}
+
+
+			str_buffer = (STR) ALLOCPV(type_str, ACL_BUFFER_SIZE);
+			str_default_buffer = (STR) ALLOCPV(type_str, ACL_BUFFER_SIZE);
+
+			acl = str_buffer->str_data;
+
+			CHECK_AND_MOVE(acl, ACL_version, str_buffer, length_ptr);
+			grant_user(&acl,
+						owner,
+						obj_user,
+						(USHORT)((work->dfw_id == obj_procedure) ?
+							(SCL_execute | OWNER_PRIVS) : OWNER_PRIVS),
+						&str_buffer,
+						length_ptr);
+
+			/* Pick up any relation-level privileges */
+
+			public = get_public_privs(tdbb, work->dfw_name, work->dfw_id);
+			get_user_privs(tdbb, &acl, work->dfw_name, work->dfw_id,
+						   owner, public, &str_buffer, length_ptr);
+
+			if (work->dfw_id == obj_relation) {
+				/* If we have the space to copy the acl list 
+				   no need to realloc */
+				if (length > default_length) {
+					(void) ALL_extend((BLK*)&str_default_buffer, length);
+					default_length = length;
+				}
+				/* Now handle field-level privileges.  This might require adding
+				   UPDATE privilege to the relation-level acl,  Therefore, save
+				   off the relation acl because we need to add a default field
+				   acl in that case. */
+
+				MOVE_FAST(str_buffer->str_data, str_default_buffer->str_data,
+						  (int) (acl - str_buffer->str_data));
+				default_acl =
+					str_default_buffer->str_data + (acl -
+													str_buffer->str_data);
+				temp_acl = acl;
+
+				aggregate_public = save_field_privileges(tdbb, &str_buffer,
+														 &acl, work->dfw_name,
+														 owner, public,
+														 length_ptr);
+
+				/* SQL tables don't need the 'all priviliges to all views' acl anymore.
+				   This special acl was only generated for SQL. */
+				/* grant_views (&acl, VIEW_PRIVS); */
+
+				/* finish off and store the security class for the relation */
+
+				finish_security_class(&acl, aggregate_public, &str_buffer,
+									  length_ptr);
+
+				save_security_class(tdbb,
+									s_class,
+									str_buffer->str_data,
+									(USHORT)(acl - str_buffer->str_data));
+
+				if (temp_acl != acl)	/* relation privs were added? */
+					restrct = TRUE;
+
+				/* if there have been privileges added at the relation level which
+				   need to be restricted from other fields in the relation,
+				   update the acl for them */
+
+				if (restrct)
+				{
+					finish_security_class(&default_acl, public,
+										  &str_default_buffer,
+										  default_length_ptr);
+					define_default_class(
+						tdbb,
+						work->dfw_name,
+						default_class,
+						str_default_buffer->str_data,
+						(USHORT)(default_acl - str_default_buffer->str_data));
+				}
+			}
+			else {
+				finish_security_class(&acl, public, &str_buffer, length_ptr);
+				save_security_class(tdbb, s_class, str_buffer->str_data,
+									(USHORT)(acl - str_buffer->str_data));
+			}
+
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			if (str_buffer) {
+				ALL_release((FRB)str_buffer);
+				ALL_release((FRB)str_default_buffer);
+			}
+
+			V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_grant_priv);
+			break;
+		}
+
+	default:
+		break;
+	}
+
+	DFW_perform_system_work();
+
+	return FALSE;
+}
+
+
+static void define_default_class(
+								 TDBB tdbb,
+								 TEXT * relation_name,
+								 TEXT * default_class,
+								 UCHAR * buffer, USHORT length)
+{
+/**************************************
+ *
+ *	d e f i n e _ d e f a u l t _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update the default security class for fields
+ *	which have not been specifically granted
+ *	any privileges.  We must grant them all
+ *	privileges which were specifically granted
+ *	at the relation level, but none of the
+ *	privileges we added at the relation level
+ *	for the purpose of accessing other fields.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	DSC desc;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if (!*default_class) {
+#ifndef EXACT_NUMERICS
+		sprintf(default_class, "%s%ld\0", DEFAULT_CLASS,
+				DPM_gen_id(tdbb, MET_lookup_generator(tdbb, DEFAULT_CLASS), 0,
+						   (SLONG) 1));
+#else
+		sprintf(default_class, "%s%" QUADFORMAT "d\0", DEFAULT_CLASS,
+				DPM_gen_id(tdbb, MET_lookup_generator(tdbb, DEFAULT_CLASS), 0,
+						   (SINT64) 1));
+#endif
+
+		request = (BLK) CMP_find_request(tdbb, irq_grant7, IRQ_REQUESTS);
+
+		FOR(REQUEST_HANDLE request)
+			REL IN RDB$RELATIONS
+				WITH REL.RDB$RELATION_NAME EQ relation_name
+
+            if (!REQUEST(irq_grant7)) REQUEST(irq_grant7) = request;
+
+            MODIFY REL USING
+				REL.RDB$DEFAULT_CLASS.NULL = FALSE;
+				jrd_vtof(default_class, REL.RDB$DEFAULT_CLASS,
+						 sizeof(REL.RDB$DEFAULT_CLASS));
+			END_MODIFY;
+
+		END_FOR;
+
+		if (!REQUEST(irq_grant7))
+			REQUEST(irq_grant7) = request;
+	}
+
+	save_security_class(tdbb, default_class, buffer, length);
+
+	desc.dsc_dtype = dtype_text;
+	desc.dsc_sub_type = 0;
+	desc.dsc_scale = 0;
+	desc.dsc_ttype = ttype_metadata;
+	desc.dsc_address = (UCHAR *) relation_name;
+	desc.dsc_length = strlen(desc.dsc_address);
+	DFW_post_work(dbb->dbb_sys_trans, dfw_scan_relation, &desc, 0);
+}
+
+
+static void delete_security_class( TDBB tdbb, TEXT * s_class)
+{
+/**************************************
+ *
+ *	d e l e t e _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a security class.
+ *
+ **************************************/
+	DBB dbb;
+	BLK handle;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	handle = NULL;
+
+	FOR(REQUEST_HANDLE handle)
+		CLS IN RDB$SECURITY_CLASSES
+			WITH CLS.RDB$SECURITY_CLASS EQ s_class 
+        ERASE CLS;
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)handle);
+}
+
+
+static void finish_security_class(UCHAR**	acl_ptr,
+								  USHORT	public,
+								  STR*		start_ptr,
+								  ULONG*	length_ptr)
+{
+/**************************************
+ *
+ *	f i n i s h _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Finish off a security class, putting
+ *	in a wildcard for any public privileges.
+ *
+ **************************************/
+	UCHAR *acl;
+
+	acl = *acl_ptr;
+
+	if (public) {
+		CHECK_AND_MOVE(acl, ACL_id_list, *start_ptr, length_ptr);
+		SCL_move_priv(&acl, public, start_ptr, length_ptr);
+	}
+
+	CHECK_AND_MOVE(acl, ACL_end, *start_ptr, length_ptr);
+
+	*acl_ptr = acl;
+}
+
+
+static USHORT get_public_privs(
+							   TDBB tdbb, TEXT * object_name, SSHORT obj_type)
+{
+/**************************************
+ *
+ *	g e t _ p u b l i c _ p r i v s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get public privileges for a particular object.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	USHORT public;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	public = 0;
+
+	request = (BLK) CMP_find_request(tdbb, irq_grant5, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		PRV IN RDB$USER_PRIVILEGES
+			WITH PRV.RDB$RELATION_NAME EQ object_name AND
+			PRV.RDB$OBJECT_TYPE EQ obj_type AND
+			PRV.RDB$USER EQ "PUBLIC" AND
+			PRV.RDB$USER_TYPE EQ obj_user AND
+			PRV.RDB$FIELD_NAME MISSING 
+        if (!REQUEST(irq_grant5))
+            REQUEST(irq_grant5) = request;
+        public |= trans_sql_priv(PRV.RDB$PRIVILEGE);
+	END_FOR;
+
+	if (!REQUEST(irq_grant5))
+		REQUEST(irq_grant5) = request;
+
+	return public;
+}
+
+
+static void get_object_info(
+							TDBB tdbb,
+							TEXT * object_name,
+							SSHORT obj_type,
+							TEXT * owner,
+TEXT * s_class, TEXT * default_class, USHORT * view)
+{
+/**************************************
+ *
+ *	g e t _ o b j e c t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	This could be done in MET_scan_relation () or MET_lookup_procedure,
+ *	but presumably we wish to make sure the information we have is
+ *	up-to-the-minute.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	owner[0] = '\0';
+	s_class[0] = '\0';
+	default_class[0] = '\0';
+	*view = FALSE;
+
+	if (obj_type == obj_relation) {
+		request = (BLK) CMP_find_request(tdbb, irq_grant1, IRQ_REQUESTS);
+
+		FOR(REQUEST_HANDLE request)
+			REL IN RDB$RELATIONS WITH
+				REL.RDB$RELATION_NAME EQ object_name 
+
+            if (!REQUEST(irq_grant1))
+                REQUEST(irq_grant1) = request;
+			terminate(REL.RDB$SECURITY_CLASS);
+			strcpy(s_class, REL.RDB$SECURITY_CLASS);
+			terminate(REL.RDB$DEFAULT_CLASS);
+			strcpy(default_class, REL.RDB$DEFAULT_CLASS);
+			terminate(REL.RDB$OWNER_NAME);
+			strcpy(owner, REL.RDB$OWNER_NAME);
+			*view = (REL.RDB$VIEW_BLR.gds_quad_high ||
+					 REL.RDB$VIEW_BLR.gds_quad_low) ? TRUE : FALSE;
+		END_FOR;
+
+		if (!REQUEST(irq_grant1))
+			REQUEST(irq_grant1) = request;
+	}
+	else {
+		request = (BLK) CMP_find_request(tdbb, irq_grant9, IRQ_REQUESTS);
+
+		FOR(REQUEST_HANDLE request)
+			REL IN RDB$PROCEDURES WITH
+				REL.RDB$PROCEDURE_NAME EQ object_name
+
+            if (!REQUEST(irq_grant9)) REQUEST(irq_grant9) = request;
+
+			terminate(REL.RDB$SECURITY_CLASS);
+			strcpy(s_class, REL.RDB$SECURITY_CLASS);
+			strcpy(default_class, "");
+			terminate(REL.RDB$OWNER_NAME);
+			strcpy(owner, REL.RDB$OWNER_NAME);
+			*view = FALSE;
+		END_FOR;
+
+		if (!REQUEST(irq_grant9))
+			REQUEST(irq_grant9) = request;
+	}
+}
+
+
+static void get_user_privs(TDBB		tdbb,
+						   UCHAR**	acl_ptr,
+						   TEXT*	object_name,
+						   SSHORT	obj_type,
+						   TEXT*	owner,
+						   USHORT	public,
+						   STR*		start_ptr,
+						   ULONG*	length_ptr)
+{
+/**************************************
+ *
+ *	g e t _ u s e r _ p r i v s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get privileges for a particular object.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	UCHAR *acl;
+	TEXT user[32];
+	USHORT priv;
+	SSHORT user_type;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	acl = *acl_ptr;
+	user[0] = 0;
+	user_type = -2;
+
+	request = (BLK) CMP_find_request(tdbb, irq_grant2, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		PRV IN RDB$USER_PRIVILEGES
+			WITH PRV.RDB$RELATION_NAME EQ object_name AND
+			PRV.RDB$OBJECT_TYPE EQ obj_type AND
+			(PRV.RDB$USER NE "PUBLIC" OR PRV.RDB$USER_TYPE NE obj_user) AND
+			(PRV.RDB$USER NE owner OR PRV.RDB$USER_TYPE NE obj_user) AND
+			PRV.RDB$FIELD_NAME MISSING
+			SORTED BY PRV.RDB$USER, PRV.RDB$USER_TYPE
+
+        if (!REQUEST(irq_grant2)) REQUEST(irq_grant2) = request;
+
+		terminate(PRV.RDB$USER);
+		if (strcmp(PRV.RDB$USER, user) || PRV.RDB$USER_TYPE != user_type)
+		{
+			if (user[0])
+			{
+				grant_user(&acl, user, user_type, priv, start_ptr, length_ptr);
+			}
+			user_type = PRV.RDB$USER_TYPE;
+			if (user_type == obj_user)
+			{
+				priv = public;
+			}
+			else
+			{
+				priv = 0;
+			}
+			strcpy(user, PRV.RDB$USER);
+		}
+		priv |= trans_sql_priv(PRV.RDB$PRIVILEGE);
+	END_FOR;
+
+	if (!REQUEST(irq_grant2))
+		REQUEST(irq_grant2) = request;
+
+	if (user[0])
+		grant_user(&acl, user, user_type, priv, start_ptr, length_ptr);
+
+	*acl_ptr = acl;
+}
+
+
+static void grant_user(UCHAR**	acl_ptr,
+					   TEXT*	user,
+					   SSHORT	user_type,
+					   USHORT	privs,
+					   STR*		start_ptr,
+					   ULONG*	length_ptr)
+{
+/**************************************
+ *
+ *	g r a n t _ u s e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Grant privileges to a particular user.
+ *
+ **************************************/
+	UCHAR *acl;
+	UCHAR length;
+
+	acl = *acl_ptr;
+
+	CHECK_AND_MOVE(acl, ACL_id_list, *start_ptr, length_ptr);
+	switch (user_type) {
+	case obj_user_group:
+		CHECK_AND_MOVE(acl, id_group, *start_ptr, length_ptr);
+		break;
+
+	case obj_sql_role:
+		CHECK_AND_MOVE(acl, id_sql_role, *start_ptr, length_ptr);
+		break;
+
+	case obj_user:
+		CHECK_AND_MOVE(acl, id_person, *start_ptr, length_ptr);
+		break;
+
+	case obj_procedure:
+		CHECK_AND_MOVE(acl, id_procedure, *start_ptr, length_ptr);
+		break;
+
+	case obj_trigger:
+		CHECK_AND_MOVE(acl, id_trigger, *start_ptr, length_ptr);
+		break;
+
+	case obj_view:
+		CHECK_AND_MOVE(acl, id_view, *start_ptr, length_ptr);
+		break;
+
+	default:
+		BUGCHECK(292);			/* Illegal user_type */
+
+	}
+
+	length = strlen(user);
+	CHECK_AND_MOVE(acl, (UCHAR) length, *start_ptr, length_ptr);
+	if (length) {
+		CHECK_ACL_BOUND(acl, *start_ptr, length_ptr, length);
+		MOVE_FAST(user, acl, length);
+		acl += length;
+	}
+
+	SCL_move_priv(&acl, privs, start_ptr, length_ptr);
+
+	*acl_ptr = acl;
+}
+
+
+static void grant_views(
+						UCHAR ** acl_ptr,
+						USHORT privs, STR * start_ptr, ULONG * length_ptr)
+{
+/**************************************
+ *
+ *	g r a n t _ v i e w s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Grant privileges to all views.
+ *
+ **************************************/
+	UCHAR *acl;
+
+	acl = *acl_ptr;
+
+	CHECK_AND_MOVE(acl, ACL_id_list, *start_ptr, length_ptr);
+	CHECK_AND_MOVE(acl, id_views, *start_ptr, length_ptr);
+	CHECK_AND_MOVE(acl, 0, *start_ptr, length_ptr);
+	SCL_move_priv(&acl, privs, start_ptr, length_ptr);
+
+	*acl_ptr = acl;
+}
+
+
+static void purge_default_class( TEXT * object_name, SSHORT obj_type)
+{
+/**************************************
+ *
+ *	p u r g e _ d e f a u l t _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of any previously defined 
+ *	default security class for this relation.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	DSC desc;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, irq_grant8, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		REL IN RDB$RELATIONS
+			WITH REL.RDB$RELATION_NAME EQ object_name
+			AND REL.RDB$DEFAULT_CLASS NOT MISSING 
+
+        if (!REQUEST(irq_grant8))
+            REQUEST(irq_grant8) = request;
+		terminate(REL.RDB$DEFAULT_CLASS);
+		delete_security_class(tdbb, REL.RDB$DEFAULT_CLASS);
+
+		MODIFY REL USING
+			REL.RDB$DEFAULT_CLASS.NULL = TRUE;
+		END_MODIFY;
+
+	END_FOR;
+
+	if (!REQUEST(irq_grant8))
+		REQUEST(irq_grant8) = request;
+
+	desc.dsc_dtype = dtype_text;
+	desc.dsc_sub_type = 0;
+	desc.dsc_scale = 0;
+	desc.dsc_ttype = ttype_metadata;
+	desc.dsc_address = (UCHAR *) object_name;
+	desc.dsc_length = strlen(desc.dsc_address);
+	DFW_post_work(dbb->dbb_sys_trans, dfw_scan_relation, &desc, 0);
+}
+
+
+static USHORT save_field_privileges(
+									TDBB tdbb,
+									STR * str_relation_buffer,
+									UCHAR ** acl_ptr,
+TEXT * relation_name, TEXT * owner, USHORT public, ULONG * length_ptr)
+{
+/**************************************
+ *
+ *	s a v e _ f i e l d _ p r i v i l e g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the privileges for all fields within a relation.
+ *	All fields must be given the initial relation-level privileges.
+ *	Conversely, field-level privileges must be added to the relation 
+ *	security class to be effective.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request, request2;
+	TEXT field_name[32], user[32], s_class[32];
+	UCHAR *field_acl, *relation_acl;
+	USHORT priv, field_public, aggregate_public;
+	USHORT field_priv, relation_priv;
+	DSC desc;
+	SSHORT user_type;
+	int field_buffer_start_index, i;
+
+	STR relation_buffer = *str_relation_buffer;
+
+	JMP_BUF env, *old_env;
+	STR str_field_buffer = NULL, str_field_buffer_start = NULL;
+
+	ULONG field_length, start_length;
+	ULONG *field_length_ptr = &field_length, *start_length_ptr =
+		&start_length;
+
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	old_env = (JMP_BUF*)tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (str_field_buffer)
+			ALL_release((FRB)str_field_buffer);
+		if (str_field_buffer_start)
+			ALL_release((FRB)str_field_buffer_start);
+		ERR_punt();
+	}
+/* initialize the field-level acl buffer to include all relation-level privs */
+
+	str_field_buffer_start = (STR)ALLOCPV(type_str, *length_ptr);
+	str_field_buffer       = (STR)ALLOCPV(type_str, *length_ptr);
+
+	field_length = start_length = *length_ptr;
+
+
+
+	MOVE_FAST(relation_buffer->str_data, str_field_buffer->str_data,
+			  (int) (*acl_ptr - relation_buffer->str_data));
+	field_buffer_start_index = (int) (*acl_ptr - relation_buffer->str_data);
+	field_acl = str_field_buffer->str_data + field_buffer_start_index;
+	relation_acl = relation_buffer->str_data + field_buffer_start_index;
+
+/* remember this starting point for subsequent fields. */
+	for (i = 0; field_buffer_start_index > i;
+		 i++, str_field_buffer_start->str_data[i] =
+		 str_field_buffer->str_data[i]);
+
+	field_name[0] = 0;
+	user[0] = 0;
+	aggregate_public = public;
+
+	request = (BLK) CMP_find_request(tdbb, irq_grant6, IRQ_REQUESTS);
+	request2 = NULL;
+
+	FOR(REQUEST_HANDLE request)
+		FLD IN RDB$RELATION_FIELDS CROSS
+			PRV IN RDB$USER_PRIVILEGES
+			OVER RDB$RELATION_NAME, RDB$FIELD_NAME
+			WITH PRV.RDB$OBJECT_TYPE EQ obj_relation AND
+			PRV.RDB$RELATION_NAME EQ relation_name AND
+			PRV.RDB$FIELD_NAME NOT MISSING AND
+			(PRV.RDB$USER NE owner OR PRV.RDB$USER_TYPE NE obj_user)
+		SORTED BY PRV.RDB$FIELD_NAME, PRV.RDB$USER 
+
+        if (!REQUEST(irq_grant6))
+            REQUEST(irq_grant6) = request;
+		terminate(PRV.RDB$USER);
+		terminate(PRV.RDB$FIELD_NAME);
+
+		/* create a control break on field_name,user */
+
+		if (strcmp(PRV.RDB$USER, user) ||
+			strcmp(PRV.RDB$FIELD_NAME, field_name))
+		{
+			/* flush out information for old user */
+
+			if (user[0])
+			{
+				if (strcmp(user, "PUBLIC"))
+				{
+					field_priv = 
+						(USHORT)(	public |
+									priv |
+									squeeze_acl(str_field_buffer->str_data,
+												&field_acl,
+												user,
+												user_type));
+					grant_user(&field_acl,
+								user,
+								user_type,
+								field_priv,
+								&str_field_buffer,
+								field_length_ptr);
+					relation_priv =
+						(USHORT)(	public |
+									priv |
+									squeeze_acl(relation_buffer->str_data,
+												&relation_acl,
+												user,
+												user_type));
+					grant_user(&relation_acl,
+								user,
+								user_type,
+								relation_priv,
+								str_relation_buffer,
+								length_ptr);
+				}
+				else
+				{
+					field_public = field_public | public | priv;
+				}
+			}
+
+			/* initialize for new user */
+
+			priv = 0;
+			strcpy(user, PRV.RDB$USER);
+			user_type = PRV.RDB$USER_TYPE;
+		}
+
+		/* create a control break on field_name */
+
+		if (strcmp(PRV.RDB$FIELD_NAME, field_name)) {
+			/* finish off the last field, adding a wildcard at end, giving PUBLIC
+			   all privileges available at the table level as well as those
+			   granted at the field level */
+
+			if (field_name[0]) {
+				aggregate_public |= field_public;
+				finish_security_class(&field_acl,
+										(USHORT)(field_public | public),
+										&str_field_buffer,
+										field_length_ptr);
+				save_security_class(
+						tdbb,
+						s_class,
+						str_field_buffer->str_data,
+						(USHORT)(field_acl - str_field_buffer->str_data));
+			}
+
+			/* initialize for new field */
+
+			strcpy(field_name, PRV.RDB$FIELD_NAME);
+			terminate(FLD.RDB$SECURITY_CLASS);
+			strcpy(s_class, FLD.RDB$SECURITY_CLASS);
+			if (!s_class[0]) {
+				/* There is no security class name for this field, then make one.
+				   Note that the field security class name is set here and in the
+				   pre-store trigger for rdb$user_privileges.  This field security
+				   class name is removed in the pre erase trigger for
+				   rdb$user_privileges. */
+				FOR(REQUEST_HANDLE request2)
+					FLD2 IN RDB$RELATION_FIELDS WITH
+						FLD2.RDB$RELATION_NAME EQ FLD.RDB$RELATION_NAME
+						AND FLD2.RDB$FIELD_NAME EQ FLD.RDB$FIELD_NAME
+					MODIFY FLD2
+#ifndef EXACT_NUMERICS
+						sprintf(s_class, "%s%ld\0", "SQL$GRANT",
+								DPM_gen_id(tdbb,
+										   MET_lookup_generator(tdbb,
+																"RDB$SECURITY_CLASS"),
+										   0, (SLONG) 1));
+#else
+						sprintf(s_class, "%s%" QUADFORMAT "d\0", "SQL$GRANT",
+								DPM_gen_id(tdbb,
+										   MET_lookup_generator(tdbb,
+																"RDB$SECURITY_CLASS"),
+										   0, (SINT64) 1));
+#endif
+						jrd_vtof(s_class, FLD2.RDB$SECURITY_CLASS,
+								 sizeof(FLD2.RDB$SECURITY_CLASS));
+					END_MODIFY;
+				END_FOR;
+			}
+			field_public = 0;
+
+			/* restart a security class at the end of the relation-level privs */
+
+			i = 0;
+			while (field_buffer_start_index > i)
+			{
+				++i;
+				str_field_buffer->str_data[i] =
+					str_field_buffer_start->str_data[i];
+			}
+
+			field_acl = str_field_buffer->str_data + field_buffer_start_index;
+		}
+
+		priv |= trans_sql_priv(PRV.RDB$PRIVILEGE);
+	END_FOR;
+
+	if (!REQUEST(irq_grant6))
+		REQUEST(irq_grant6) = request;
+
+	if (request2)
+		CMP_release(tdbb, (REQ)request2);
+
+/* flush out the last user's info */
+
+	if (user[0])
+	{
+		if (strcmp(user, "PUBLIC"))
+		{
+			field_priv =
+				(USHORT)(	public |
+							priv |
+							squeeze_acl(str_field_buffer->str_data,
+										&field_acl,
+										user,
+										user_type));
+			grant_user(&field_acl,
+						user,
+						user_type,
+						field_priv,
+						&str_field_buffer,
+						field_length_ptr);
+			relation_priv =
+				(USHORT)(	public |
+							priv |
+							squeeze_acl(relation_buffer->str_data,
+										&relation_acl,
+										user,
+										user_type));
+			grant_user(&relation_acl,
+						user,
+						user_type,
+						relation_priv,
+						str_relation_buffer,
+						length_ptr);
+		}
+		else
+		{
+			field_public = field_public | public | priv;
+		}
+	}
+
+/* flush out the last field's info, and schedule a format update */
+
+	if (field_name[0])
+	{
+		aggregate_public |= field_public;
+		finish_security_class(&field_acl,
+							(USHORT)(field_public | public),
+							&str_field_buffer,
+							field_length_ptr);
+		save_security_class(tdbb,
+							s_class,
+							str_field_buffer->str_data,
+							(USHORT)(field_acl - str_field_buffer->str_data));
+		desc.dsc_dtype = dtype_text;
+		desc.dsc_sub_type = 0;
+		desc.dsc_scale = 0;
+		desc.dsc_ttype = ttype_metadata;
+		desc.dsc_address = (UCHAR *) relation_name;
+		desc.dsc_length = strlen(desc.dsc_address);
+		DFW_post_work(dbb->dbb_sys_trans, dfw_update_format, &desc, 0);
+	}
+
+	*acl_ptr = relation_acl;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	if (str_field_buffer)
+	{
+		ALL_release((FRB)str_field_buffer);
+		ALL_release((FRB)str_field_buffer_start);
+	}
+
+	return aggregate_public;
+}
+
+
+static void save_security_class(TDBB	tdbb,
+								TEXT*	s_class,
+								UCHAR*	buffer,
+								USHORT	length)
+{
+/**************************************
+ *
+ *	s a v e _ s e c u r i t y _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store or update the named security class.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	USHORT found;
+	GDS__QUAD blob_id;
+	BLB blob;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	blob = BLB_create(tdbb, dbb->dbb_sys_trans, (BID)&blob_id);
+	BLB_put_segment(tdbb, blob, buffer, length);
+	BLB_close(tdbb, blob);
+
+	request = (BLK) CMP_find_request(tdbb, irq_grant3, IRQ_REQUESTS);
+
+	found = FALSE;
+	FOR(REQUEST_HANDLE request)
+		CLS IN RDB$SECURITY_CLASSES
+			WITH CLS.RDB$SECURITY_CLASS EQ s_class 
+        if (!REQUEST(irq_grant3))
+            REQUEST(irq_grant3) = request;
+        found = TRUE;
+		MODIFY CLS
+			CLS.RDB$ACL = blob_id;
+		END_MODIFY;
+	END_FOR;
+
+	if (!REQUEST(irq_grant3))
+		REQUEST(irq_grant3) = request;
+
+	if (!found) {
+		request = (BLK) CMP_find_request(tdbb, irq_grant4, IRQ_REQUESTS);
+
+		STORE(REQUEST_HANDLE request)
+			CLS IN RDB$SECURITY_CLASSES
+            jrd_vtof(s_class, CLS.RDB$SECURITY_CLASS,
+                     sizeof(CLS.RDB$SECURITY_CLASS));
+			CLS.RDB$ACL = blob_id;
+		END_STORE;
+
+		if (!REQUEST(irq_grant4))
+			REQUEST(irq_grant4) = request;
+	}
+}
+
+
+static USHORT trans_sql_priv( TEXT * privileges)
+{
+/**************************************
+ *
+ *	t r a n s _ s q l _ p r i v
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a SQL privilege letter into an internal privilege bit.
+ *
+ **************************************/
+	USHORT priv;
+
+	priv = 0;
+
+	switch (UPPER7(privileges[0])) {
+	case 'S':
+		priv |= SCL_read;
+		break;
+	case 'I':
+		priv |= SCL_sql_insert;
+		break;
+	case 'U':
+		priv |= SCL_sql_update;
+		break;
+	case 'D':
+		priv |= SCL_sql_delete;
+		break;
+	case 'R':
+		priv |= SCL_sql_references;
+		break;
+	case 'X':
+		priv |= SCL_execute;
+		break;
+	}
+
+	return priv;
+}
+
+
+static USHORT terminate( TEXT * string)
+{
+/**************************************
+ *
+ *	t e r m i n a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zap trailing blank or null terminated string to null terminated string.
+ *	Return length.
+ *
+ **************************************/
+	TEXT *p, *q;
+#define	BLANK	'\040'
+
+/* Scan forwards to end-of-string -- record the last non-BLANK we saw */
+	q = string - 1;
+	for (p = string; *p; p++) {
+		if (*p != BLANK)
+			q = p;
+	}
+
+	*(q + 1) = '\0';
+
+	return (q + 1) - string;
+}
+
+
+static SLONG squeeze_acl(UCHAR*		acl_base,
+						 UCHAR**	acl_ptr,
+						 TEXT*		user,
+						 SSHORT		user_type)
+{
+/**************************************
+ *
+ *	s q u e e z e _ a c l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk an access control list looking for a hit.  If a hit
+ *	is found, return privileges and squeeze out that acl-element.
+ *	The caller will use the returned privilege to insert a new
+ *	privilege for the input user.
+ *
+ **************************************/
+	UCHAR *dup_acl;
+	UCHAR *acl;
+	UCHAR *dest, *source;
+	SLONG privilege = 0;
+	USHORT hit = FALSE;
+	UCHAR c;
+	int length;
+	UCHAR l;
+
+
+/* Make sure that this half-finished acl looks good enough to process. */
+	**acl_ptr = 0;
+	acl = acl_base;
+
+	if (*acl++ != ACL_version)
+		BUGCHECK(160);			/* msg 160 wrong ACL version */
+
+	while (c = *acl++)
+		switch (c) {
+		case ACL_id_list:
+			dup_acl = acl - 1;
+			hit = TRUE;
+			while (c = *acl++) {
+				switch (c) {
+				case id_person:
+					if (user_type != obj_user)
+						hit = FALSE;
+					if (check_string(acl, user))
+						hit = FALSE;
+					break;
+
+				case id_sql_role:
+					if (user_type != obj_sql_role)
+						hit = FALSE;
+					if (check_string(acl, user))
+						hit = FALSE;
+					break;
+
+				case id_view:
+					if (user_type != obj_view)
+						hit = FALSE;
+					if (check_string(acl, user))
+						hit = FALSE;
+					break;
+
+				case id_procedure:
+					if (user_type != obj_procedure)
+						hit = FALSE;
+					if (check_string(acl, user))
+						hit = FALSE;
+					break;
+
+				case id_trigger:
+					if (user_type != obj_trigger)
+						hit = FALSE;
+					if (check_string(acl, user))
+						hit = FALSE;
+					break;
+
+				case id_project:
+				case id_organization:
+					hit = FALSE;
+					check_string(acl, user);
+					break;
+
+				case id_views:
+					hit = FALSE;
+					break;
+
+				case id_node:
+				case id_user:
+					hit = FALSE;
+					for (l = *acl++; l; acl++, l--);
+					break;
+
+				case id_group:
+					if (user_type != obj_user_group)
+						hit = FALSE;
+					if (check_string(acl, user))
+						hit = FALSE;
+					break;
+
+				default:
+					BUGCHECK(293);	/* bad ACL */
+				}
+				acl += *acl + 1;
+			}
+			break;
+
+		case ACL_priv_list:
+			if (hit) {
+				while (c = *acl++)
+					switch (c) {
+					case priv_control:
+						privilege |= SCL_control;
+						break;
+
+					case priv_read:
+						privilege |= SCL_read;
+						break;
+
+					case priv_write:
+						privilege |= SCL_write;
+						break;
+
+					case priv_sql_insert:
+						privilege |= SCL_sql_insert;
+						break;
+
+					case priv_sql_delete:
+						privilege |= SCL_sql_delete;
+						break;
+
+					case priv_sql_references:
+						privilege |= SCL_sql_references;
+						break;
+
+					case priv_sql_update:
+						privilege |= SCL_sql_update;
+						break;
+
+					case priv_delete:
+						privilege |= SCL_delete;
+						break;
+
+					case priv_grant:
+						privilege |= SCL_grant;
+						break;
+
+					case priv_protect:
+						privilege |= SCL_protect;
+						break;
+
+					case priv_execute:
+						privilege |= SCL_execute;
+						break;
+
+					default:
+						BUGCHECK(293);	/* bad ACL */
+					}
+				/* Squeeze out duplicate acl element. */
+				dest = dup_acl;
+				source = acl;
+				length = *acl_ptr - source + 1;
+				*acl_ptr = *acl_ptr - (source - dest);
+				acl = dup_acl;
+				for (; length; *dest++ = *source++, length--);
+			}
+			else
+				while (*acl++);
+			break;
+
+		default:
+			BUGCHECK(293);		/* bad ACL */
+		}
+
+	return privilege;
+}
+
+
+static BOOLEAN check_string( TEXT * acl, TEXT * string)
+{
+/**************************************
+ *
+ *      c h e c k _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Check a string against an acl string.  If they don't match,
+ *      return TRUE.
+ *
+ **************************************/
+	USHORT l;
+	TEXT c1, c2;
+
+/* JPN: Since Kanji User names are not allowed, No need to fix this UPPER loop. */
+
+	if (l = *acl++)
+		do {
+			c1 = *acl++;
+			c2 = *string++;
+			if (UPPER7(c1) != UPPER7(c2))
+				return TRUE;
+		} while (--l);
+
+	return (*string && *string != ' ') ? TRUE : FALSE;
+}
diff --git a/src/jrd/grant.gdl b/src/jrd/grant.gdl
new file mode 100644
index 0000000000..6472471ebf
--- /dev/null
+++ b/src/jrd/grant.gdl
@@ -0,0 +1,689 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+define database "bar.gdb";
+
+/*
+define generator RDB$SECURITY_CLASS;
+define generator SQL$DEFAULT;
+define generator RDB$PROCEDURES;
+define generator RDB$EXCEPTIONS;
+*/
+
+/*
+ * The SYSDBA_USER_NAME name is assumed to be "SYSDBA" in the
+ * below trigger
+ */
+define trigger grant_trigger for rdb$user_privileges pre store 0
+    begin
+	if new.rdb$object_type = 0
+	    begin
+	    if not any rel in rdb$relations
+	        with rel.rdb$relation_name eq new.rdb$relation_name
+		abort 0;
+	    if new.rdb$field_name not missing
+		if not any rlf in rdb$relation_fields
+		    with rlf.rdb$relation_name eq new.rdb$relation_name and
+		    rlf.rdb$field_name eq new.rdb$field_name
+		    abort 1;
+	    end;
+	if new.rdb$object_type = 5 and
+	   not any prc in rdb$procedures
+	     with prc.rdb$procedure_name eq new.rdb$relation_name
+	    abort 0;
+
+	if new.rdb$user_type = 0  or new.rdb$user_type = 3  or
+	   new.rdb$user_type = 4  or new.rdb$user_type = 6  or
+	   new.rdb$user_type = 7  or new.rdb$user_type = 8  or
+	   new.rdb$user_type = 9  or new.rdb$user_type = 10 or
+	   new.rdb$user_type = 11 or new.rdb$user_type = 12
+	    new.rdb$user = UPPERCASE (new.rdb$user);
+
+	if new.rdb$grantor missing
+	    new.rdb$grantor = UPPERCASE (rdb$user_name);
+	if new.rdb$object_type = 0
+	    begin
+	    /* Verify that the grantor has the 'grant option'. */
+	    for rel in rdb$relations
+	        with rel.rdb$relation_name eq new.rdb$relation_name
+		/* As part of the creation of a table/view, the creator gets
+		   records that gives him/her all privileges. */
+		if rel.rdb$owner_name eq UPPERCASE (rdb$user_name) and
+		   rel.rdb$owner_name eq new.rdb$grantor and
+		   rel.rdb$owner_name eq new.rdb$user or
+		   UPPERCASE (rdb$user_name) eq "SYSDBA"
+		    begin
+		    end
+		else
+		/* The owner always has the grant option.  
+		   A non-owner should have the grant option explicitely granted. */
+		if rel.rdb$owner_name ne UPPERCASE (rdb$user_name)
+		    begin
+		    if not any priv in rdb$user_privileges 
+			with priv.rdb$relation_name eq new.rdb$relation_name and
+			     priv.rdb$object_type   eq 0 and
+			     priv.rdb$privilege     eq new.rdb$privilege and
+			     priv.rdb$user          eq new.rdb$grantor and
+			     priv.rdb$user_type     eq 8 and
+			     priv.rdb$grant_option ne 0 and
+			     (priv.rdb$field_name missing or 
+                    	      priv.rdb$field_name eq new.rdb$field_name)
+			abort 2;
+		    end
+		else
+		/* If a view-owner is granting privileges on his/her view, then
+		   verify that the view owner has the grant option on the base table/view. */
+		if new.rdb$field_name not missing
+		    begin
+		    for fld in rdb$relation_fields cross
+			view in rdb$view_relations cross
+			rel2 in rdb$relations
+			with fld.rdb$field_name eq new.rdb$field_name and
+			     fld.rdb$relation_name eq new.rdb$relation_name and
+			     fld.rdb$base_field not missing and
+			     view.rdb$view_name eq fld.rdb$relation_name and
+			     view.rdb$view_context eq fld.rdb$view_context and
+			     view.rdb$relation_name eq rel2.rdb$relation_name
+			if rel2.rdb$owner_name ne rel.rdb$owner_name
+			   and UPPERCASE (rdb$user_name) ne "SYSDBA"
+			    begin
+			    if not any priv in rdb$user_privileges
+				with priv.rdb$relation_name eq rel2.rdb$relation_name and
+				     priv.rdb$object_type   eq 0 and
+				     priv.rdb$privilege     eq new.rdb$privilege and
+				     priv.rdb$user          eq rel.rdb$owner_name and
+				     priv.rdb$user_type     eq 8 and
+				     priv.rdb$grant_option ne 0 and
+				     (priv.rdb$field_name missing or
+				      priv.rdb$field_name eq fld.rdb$base_field)
+				abort 5;
+			    end;
+		    end_for;
+		    end
+		else
+		    begin
+		    for view in rdb$view_relations cross
+			rel2 in rdb$relations
+			with view.rdb$view_name eq new.rdb$relation_name and
+			     view.rdb$relation_name eq rel2.rdb$relation_name
+			if rel2.rdb$owner_name ne rel.rdb$owner_name
+			   and UPPERCASE (rdb$user_name) ne "SYSDBA"
+			    begin
+			    if not any priv in rdb$user_privileges
+				with priv.rdb$relation_name eq rel2.rdb$relation_name and
+				     priv.rdb$object_type   eq 0 and
+				     priv.rdb$privilege     eq new.rdb$privilege and
+				     priv.rdb$user          eq rel.rdb$owner_name and
+				     priv.rdb$user_type     eq 8 and
+				     priv.rdb$grant_option ne 0 and
+				     priv.rdb$field_name missing
+				abort 5;
+			    end;
+		    end_for;
+		    end
+		if rel.rdb$security_class missing
+		    modify rel
+			rel.rdb$security_class = "SQL$" | rel.rdb$relation_name;
+		    end_modify
+		else if rel.rdb$security_class != "SQL$" | rel.rdb$relation_name
+		    abort 3;
+	    end_for;
+	    if new.rdb$field_name not missing
+		for rfl in rdb$relation_fields
+		    with rfl.rdb$relation_name eq new.rdb$relation_name and
+		    rfl.rdb$field_name eq new.rdb$field_name
+		    if rfl.rdb$security_class missing
+			modify rfl
+			    rfl.rdb$security_class = "SQL$GRANT" | gen_id (RDB$SECURITY_CLASS, 1);
+			end_modify;
+		    else if rfl.rdb$security_class not starting "SQL$GRANT"
+			abort 4;
+		end_for;
+	    end
+	else if new.rdb$object_type = 5
+	    for prc in rdb$procedures
+	        with prc.rdb$procedure_name eq new.rdb$relation_name
+		if prc.rdb$owner_name ne UPPERCASE (rdb$user_name)
+			   and UPPERCASE (rdb$user_name) ne "SYSDBA"
+		    if not any priv in rdb$user_privileges 
+			with priv.rdb$relation_name eq new.rdb$relation_name and
+			     priv.rdb$object_type   eq 5 and
+			     priv.rdb$privilege     eq new.rdb$privilege and
+			     priv.rdb$user          eq new.rdb$grantor and
+			     priv.rdb$user_type     eq 8 and
+			     priv.rdb$grant_option ne 0 and
+			     (priv.rdb$field_name missing or 
+                    	      priv.rdb$field_name eq new.rdb$field_name)
+			abort 2;
+		if prc.rdb$security_class missing
+		    modify prc
+			prc.rdb$security_class = "SQL$" | prc.rdb$procedure_name;
+		    end_modify
+		else if prc.rdb$security_class != "SQL$" | prc.rdb$procedure_name
+		    abort 3;
+	    end_for;
+    end;
+end_trigger;
+
+/***
+define trigger revoke_trigger for rdb$user_privileges pre erase 0
+    if old.rdb$grantor ne UPPERCASE (rdb$user_name)
+	abort 0;
+end_trigger;
+***/
+
+define trigger revoke_trigger for rdb$user_privileges pre erase 0
+    if old.rdb$field_name not missing
+        for rf in rdb$relation_fields
+  	    with rf.rdb$relation_name eq old.rdb$relation_name and
+	         rf.rdb$field_name eq old.rdb$field_name
+            if rf.rdb$security_class starting "SQL$GRANT"
+		begin
+		    for sec in rdb$security_classes
+			  with sec.rdb$security_class eq rf.rdb$security_class
+			erase sec;
+		    end_for;
+	            modify rf
+                        rf.rdb$security_class = null;
+	            end_modify;
+		end;
+        end_for;
+end_trigger;
+
+define trigger grant_revoke for rdb$user_privileges pre modify 0
+    abort 0;
+end_trigger;
+
+define trigger system_protection_1 for rdb$triggers pre modify 0
+    if old.rdb$trigger_name containing 'RDB$'
+	abort 0;
+end_trigger;
+
+define trigger system_protection_2 for rdb$triggers pre erase 0
+    if old.rdb$trigger_name containing 'RDB$'
+	abort 0;
+end_trigger;
+
+define trigger system_protection_3 for rdb$relations pre store 0
+    if new.rdb$owner_name missing
+	new.rdb$owner_name = UPPERCASE (rdb$user_name);
+end_trigger;
+
+define trigger system_protection_4 for rdb$relations pre modify 0
+    if old.rdb$owner_name ne new.rdb$owner_name and
+       old.rdb$owner_name ne UPPERCASE (rdb$user_name)
+	abort 0;
+end_trigger;
+
+/* triggers for integrity constraints           */
+
+define trigger add_constraint for rdb$relation_constraints
+pre store:
+begin
+	if any r in rdb$relations with 
+           r.rdb$relation_name = new.rdb$relation_name
+	   and r.rdb$view_source not missing 
+              abort 1;
+
+        if NOT (new.RDB$CONSTRAINT_TYPE = 'UNIQUE' OR  
+	   new.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY' OR
+	   new.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY' OR
+	   new.RDB$CONSTRAINT_TYPE = 'NOT NULL' OR
+	   new.RDB$CONSTRAINT_TYPE = 'CHECK')
+	abort 2;
+
+	if (new.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY')
+	begin
+	 if ANY r in rdb$relation_constraints with 
+                 r.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY'
+	         and r.rdb$relation_name = new.rdb$relation_name
+	 abort 3;
+	end;
+	
+end;
+end_trigger
+message 1: "Cannot define constraints on VIEWS", 
+message 2: "internal gds software consistency check (Invalid RDB$CONSTRAINT_TYPE)",
+message 3: "Attempt to define a second primary key for the same relation";
+
+define trigger update_constraint for rdb$relation_constraints
+pre modify:
+begin
+    abort 1;
+end;
+end_trigger
+message 1: "Can't update constraints (RDB$RELATION_CONSTRAINTS).";
+
+define trigger pre_delete_constraint for rdb$relation_constraints
+pre erase:
+begin
+	if old.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY' OR
+           old.RDB$CONSTRAINT_TYPE = 'UNIQUE'
+	begin
+	 if ANY r in rdb$ref_constraints with 
+	        r.rdb$CONST_NAME_UQ = old.rdb$constraint_name
+	 abort 1;
+	end;
+     
+	if old.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY'
+	begin
+	  for c in RDB$REF_CONSTRAINTS
+		with old.RDB$CONSTRAINT_NAME = c.RDB$CONSTRAINT_NAME
+                erase c;
+          end_for;
+        end;
+
+        if old.RDB$CONSTRAINT_TYPE = 'NOT NULL'
+        begin
+          for chk in RDB$CHECK_CONSTRAINTS cross
+              fld in RDB$RELATION_FIELDS cross
+              idx in RDB$INDICES cross
+              ids in RDB$INDEX_SEGMENTS with
+              old.RDB$CONSTRAINT_NAME = chk.RDB$CONSTRAINT_NAME AND
+              fld.RDB$FIELD_NAME = chk.RDB$TRIGGER_NAME AND
+              fld.RDB$RELATION_NAME = old.RDB$RELATION_NAME AND
+              fld.RDB$FIELD_NAME = ids.RDB$FIELD_NAME AND
+              idx.RDB$RELATION_NAME = old.RDB$RELATION_NAME AND
+              idx.RDB$INDEX_NAME = ids.RDB$INDEX_NAME
+              if any const in RDB$RELATION_CONSTRAINTS with
+                 const.RDB$INDEX_NAME = ids.RDB$INDEX_NAME AND
+                 (const.RDB$CONSTRAINT_TYPE = 'UNIQUE' OR
+                  const.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY')
+           abort 2;
+           end_for;
+         end;
+end;
+end_trigger
+message 1: "Cannot delete PRIMARY KEY being used in FOREIGN KEY definition.",
+message 2: "Cannot drop NOT NULL constraint for fields in PRIMARY/UNIQUE constraints.";
+
+
+define trigger post_delete_constraint for rdb$relation_constraints
+post erase:
+begin
+	if old.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY' OR
+	   old.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY' OR
+	   old.RDB$CONSTRAINT_TYPE = 'UNIQUE'     
+        begin
+	  for i in RDB$INDICES with old.RDB$INDEX_NAME = i.RDB$INDEX_NAME 
+	        erase i;
+                for is in RDB$INDEX_SEGMENTS 
+		   with is.RDB$INDEX_NAME = i.RDB$INDEX_NAME erase is;
+		end_for;
+	  end_for;
+	end;
+     
+        if old.RDB$CONSTRAINT_TYPE = 'NOT NULL'
+        begin
+          for c in  RDB$CHECK_CONSTRAINTS cross
+              f in rdb$relation_fields with
+                 old.RDB$CONSTRAINT_NAME = c.RDB$CONSTRAINT_NAME and
+                    f.RDB$RELATION_NAME = old.RDB$RELATION_NAME and
+                    f.RDB$FIELD_NAME = c.RDB$TRIGGER_NAME
+                    erase c;
+                    modify f using
+                      f.RDB$NULL_FLAG = 0;
+                    end_modify;
+          end_for;
+        end;
+
+        if old.RDB$CONSTRAINT_TYPE = 'CHECK'
+        begin
+            for chk in  RDB$CHECK_CONSTRAINTS
+                with old.RDB$CONSTRAINT_NAME = chk.RDB$CONSTRAINT_NAME
+              erase chk;
+              for t in RDB$TRIGGERS
+               with t.RDB$TRIGGER_NAME = chk.RDB$TRIGGER_NAME and
+                    t.RDB$RELATION_NAME = old.RDB$RELATION_NAME
+               erase t;
+              end_for;
+          end_for;
+        end;
+
+
+end;
+end_trigger;
+
+define trigger add_ref_constraint for rdb$ref_constraints
+pre store:
+begin
+	if NOT ANY r in rdb$relation_constraints with 
+		    r.RDB$CONSTRAINT_NAME = new.RDB$CONSTRAINT_NAME and
+		 r.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY'
+	   abort 1;
+
+	if NOT ANY r in rdb$relation_constraints with
+		    r. RDB$CONSTRAINT_NAME = new.RDB$CONST_NAME_UQ and
+		    (r.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY' OR 
+                     r.RDB$CONSTRAINT_TYPE = 'UNIQUE')
+	   abort 2;
+end;
+end_trigger
+message 1: "Name of Referential Constraint not defined in constraints relation.",
+message 2: "Non-existent Primary or Unique key specifed for Foreign Key.";
+
+define trigger update_ref_constraint for rdb$ref_constraints
+pre modify:
+begin
+    abort 1;
+end;
+end_trigger
+message 1: "Can't update constraints (RDB$REF_CONSTRAINTS).";
+
+define trigger update_check_constraint for rdb$check_constraints
+pre modify:
+begin
+    abort 1;
+end;
+end_trigger
+message 1: "Can't update constraints (RDB$CHECK_CONSTRAINTS).";
+
+define trigger pre_delete_check_constraint for rdb$check_constraints
+pre erase:
+begin
+
+        if any c in RDB$RELATION_CONSTRAINTS with
+           c.RDB$CONSTRAINT_NAME = old.RDB$CONSTRAINT_NAME 
+           abort 2;
+end;
+end_trigger
+message 1: "Can't delete CHECK constraint entry (RDB$CHECK_CONSTRAINTS)";
+
+define trigger post_delete_check_constraint for rdb$check_constraints
+post erase:
+begin
+       for f in rdb$relation_fields cross
+            cnst in RDB$RELATION_CONSTRAINTS with
+            f.RDB$RELATION_NAME = cnst.RDB$RELATION_NAME and
+            cnst.RDB$CONSTRAINT_NAME = old.RDB$CONSTRAINT_NAME and
+            cnst.RDB$CONSTRAINT_TYPE = 'NOT NULL' and
+            f.RDB$FIELD_NAME = old.RDB$TRIGGER_NAME
+           modify f using
+              f.RDB$NULL_FLAG = 0;
+           end_modify;
+        end_for;
+
+        for t in RDB$TRIGGERS cross
+            cnst in RDB$RELATION_CONSTRAINTS with
+            cnst.RDB$CONSTRAINT_NAME = old.RDB$CONSTRAINT_NAME and
+            cnst.RDB$CONSTRAINT_TYPE = 'CHECK' and
+            t.RDB$RELATION_NAME = cnst.RDB$RELATION_NAME and
+            t.RDB$TRIGGER_NAME = old.RDB$TRIGGER_NAME
+            erase t;
+        end_for;
+
+end;
+end_trigger;
+
+define trigger delete_constraint_segs for rdb$index_segments
+pre erase:
+begin
+	if any c in RDB$RELATION_CONSTRAINTS with 
+	   c.RDB$INDEX_NAME = old.RDB$INDEX_NAME
+	abort 1;
+end;
+end_trigger
+message 1: "Can't delete index segment used by an Integrity Constraint";
+
+
+define trigger update_constraint_segs for rdb$index_segments
+pre modify:
+begin
+	if any c in RDB$RELATION_CONSTRAINTS with 
+	   c.RDB$INDEX_NAME = old.RDB$INDEX_NAME
+	abort 1;
+end;
+end_trigger
+message 1: "Can't update index segment used by an Integrity Constraint";
+
+define trigger delete_constraint_idx for rdb$indices
+pre erase:
+begin
+	if any c in RDB$RELATION_CONSTRAINTS with 
+	   c.RDB$INDEX_NAME = old.RDB$INDEX_NAME
+	abort 1;
+end;
+end_trigger
+message 1: "Can't delete index used by an Integrity Constraint";
+
+define trigger update_constraint_idx for rdb$indices
+pre modify :
+begin
+	if any c in RDB$RELATION_CONSTRAINTS with 
+	   c.RDB$INDEX_NAME = old.RDB$INDEX_NAME
+	begin
+	    if NOT (old.RDB$INDEX_NAME = new.RDB$INDEX_NAME AND
+	        old.RDB$RELATION_NAME = new.RDB$RELATION_NAME AND
+		old.RDB$INDEX_ID = new.RDB$INDEX_ID AND
+		old.RDB$SEGMENT_COUNT = new.RDB$SEGMENT_COUNT AND
+		old.RDB$FOREIGN_KEY = new.RDB$FOREIGN_KEY) 
+	    abort 1;
+	end;
+	for cnst in RDB$RELATION_CONSTRAINTS cross
+	    idx1 in RDB$INDICES cross
+	    idx2 in RDB$INDICES
+	    with
+		cnst.RDB$INDEX_NAME = old.RDB$INDEX_NAME and
+		idx1.RDB$INDEX_NAME = old.RDB$INDEX_NAME and
+		idx2.RDB$FOREIGN_KEY = old.RDB$INDEX_NAME and
+		new.RDB$INDEX_INACTIVE = 1 and
+		( old.RDB$INDEX_INACTIVE = 0 or
+		  old.RDB$INDEX_INACTIVE = null)
+		    abort 2;
+	end_for;
+	if any c in RDB$RELATION_CONSTRAINTS with 
+	   c.RDB$INDEX_NAME = old.RDB$INDEX_NAME and
+           ( c.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY' or
+             c.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY')
+	begin
+	   if new.RDB$INDEX_INACTIVE = 1 and
+	      ( old.RDB$INDEX_INACTIVE = 0 or
+	        old.RDB$INDEX_INACTIVE = null)
+	      abort 3;
+        end;
+end;
+end_trigger
+message 1: "Can't modify index used by an Integrity Constraint",
+message 2: "Can't deactivate index used by an Integrity Constraint",
+message 3: "Can't deactivate a primary index";
+
+define trigger delete_constraint_trigger for rdb$triggers
+pre erase:
+begin
+        for chk in RDB$CHECK_CONSTRAINTS cross
+            cnst in RDB$RELATION_CONSTRAINTS with
+            chk.RDB$TRIGGER_NAME = old.RDB$TRIGGER_NAME and
+            cnst.RDB$CONSTRAINT_NAME = chk.RDB$CONSTRAINT_NAME and
+            cnst.RDB$CONSTRAINT_TYPE = 'CHECK'
+               abort 1;
+        end_for;
+
+end;
+end_trigger
+message 1: "Can't delete trigger used by an Integrity Constraint";
+
+define trigger update_constraint_trigger for rdb$triggers
+pre modify:
+begin
+        for chk in RDB$CHECK_CONSTRAINTS cross
+            cnst in RDB$RELATION_CONSTRAINTS with
+            chk.RDB$TRIGGER_NAME = old.RDB$TRIGGER_NAME and
+            cnst.RDB$CONSTRAINT_NAME = chk.RDB$CONSTRAINT_NAME and
+            cnst.RDB$CONSTRAINT_TYPE = 'CHECK'
+               abort 1;
+        end_for;
+
+end;
+end_trigger
+message 1: "Can't update trigger used by a CHECK Constraint";
+
+define trigger pre_delete_field for rdb$relation_fields
+pre erase:
+begin
+
+for idx in RDB$INDICES cross
+    cnst in RDB$RELATION_CONSTRAINTS cross
+    ids in RDB$INDEX_SEGMENTS with
+    idx.RDB$RELATION_NAME = old.RDB$RELATION_NAME AND
+    idx.RDB$INDEX_NAME = ids.RDB$INDEX_NAME AND
+    cnst.RDB$INDEX_NAME = ids.RDB$INDEX_NAME AND
+    ids.RDB$FIELD_NAME = old.RDB$FIELD_NAME AND
+    (cnst.RDB$CONSTRAINT_TYPE = 'UNIQUE' OR
+     cnst.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY' OR
+     cnst.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY')
+     if any ids1 in RDB$INDEX_SEGMENTS with
+        ids1.RDB$INDEX_NAME = ids.RDB$INDEX_NAME AND
+        ids1.RDB$FIELD_NAME NE old.RDB$FIELD_NAME
+           abort 1
+     else
+        erase cnst;
+end_for;
+end;
+end_trigger
+message 1: "Cannot delete field being used in an integrity constraint.";
+
+define trigger pre_modify_field for rdb$relation_fields
+pre modify:
+begin
+
+if old.rdb$field_name != new.rdb$field_name
+for idx in RDB$INDICES cross
+    cnst in RDB$RELATION_CONSTRAINTS cross
+    ids in RDB$INDEX_SEGMENTS with
+    idx.RDB$RELATION_NAME = old.RDB$RELATION_NAME AND
+    idx.RDB$INDEX_NAME = ids.RDB$INDEX_NAME AND
+    cnst.RDB$INDEX_NAME = ids.RDB$INDEX_NAME AND
+    ids.RDB$FIELD_NAME = old.RDB$FIELD_NAME AND
+    (cnst.RDB$CONSTRAINT_TYPE = 'UNIQUE' OR
+     cnst.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY' OR
+     cnst.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY')
+           abort 1;
+end_for;
+
+end;
+end_trigger
+message 1: "Cannot rename field being used in an integrity constraint.";
+
+define trigger post_delete_field for rdb$relation_fields
+post erase:
+begin
+
+for chk in RDB$CHECK_CONSTRAINTS cross
+    const in RDB$RELATION_CONSTRAINTS with
+    old.RDB$FIELD_NAME = chk.RDB$TRIGGER_NAME AND
+    const.RDB$CONSTRAINT_NAME = chk.RDB$CONSTRAINT_NAME AND
+    old.RDB$RELATION_NAME = const.RDB$RELATION_NAME AND
+    const.RDB$CONSTRAINT_TYPE = 'NOT NULL'
+
+    erase const;
+    erase chk;
+
+end_for;
+end;
+end_trigger;
+
+define trigger system_protection_5 for rdb$procedures pre store 0
+    begin
+    if new.rdb$owner_name missing
+	new.rdb$owner_name = UPPERCASE (rdb$user_name);
+    new.rdb$procedure_id = gen_id (RDB$PROCEDURES, 1);
+    end;
+end_trigger;
+
+define trigger system_protection_6 for rdb$procedures pre modify 0
+    if old.rdb$owner_name ne new.rdb$owner_name and
+       old.rdb$owner_name ne UPPERCASE (rdb$user_name)
+	abort 0;
+end_trigger;
+
+define trigger new_exception for rdb$exceptions pre store 0
+    begin
+    new.rdb$exception_number = gen_id (RDB$EXCEPTIONS, 1);
+    end;
+end_trigger;
+
+define trigger post_del_for_constraint for rdb$relation_constraints
+post erase:
+begin
+	/* To be able to drop foreign key constriants with 
+	   referential action. When this trigger fires, it
+	   runs without checking for any privileges. This is an ODS
+	   8.1 trigger */
+
+        if old.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY'
+        begin
+            for chk in  RDB$CHECK_CONSTRAINTS
+                with old.RDB$CONSTRAINT_NAME = chk.RDB$CONSTRAINT_NAME
+              erase chk;
+
+              for t in RDB$TRIGGERS
+               with t.RDB$TRIGGER_NAME = chk.RDB$TRIGGER_NAME 
+               erase t;
+              end_for;
+          end_for;
+        end;
+
+end;
+end_trigger;
+
+define trigger post_del_check_for_constraint for rdb$check_constraints
+post erase:
+begin
+	/* To be able to drop foreign key constriants with 
+	   referential action.  When this trigger fires, it
+	   runs without checking for any privileges.  This is an ODS
+	   8.1 trigger */
+
+        for t in RDB$TRIGGERS cross
+            cnst in RDB$RELATION_CONSTRAINTS with
+            cnst.RDB$CONSTRAINT_NAME = old.RDB$CONSTRAINT_NAME and
+            cnst.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY' and
+            t.RDB$TRIGGER_NAME = old.RDB$TRIGGER_NAME
+            erase t;
+        end_for;
+
+end;
+end_trigger;
+
+
+/* this trigger (grantor_check_trigger) was added as a fix to bug 8071.
+   the same trigger is defined for ON UPDATE and ON DELETE, in
+   addition to the ON INSERT (below). This is an ODS 8.1 trigger. 
+*/
+define trigger grantor_check_trigger for rdb$user_privileges pre store 0
+    begin
+	/* If grantor is missing, trigger grant_trigger will assign it to
+	   rdb$user_name.
+	   If the grantor is not the current user or SYSDBA, make sure
+	   the grantor is the owner of the table.
+	 */
+	if ( (new.rdb$grantor not missing) and
+	     (new.rdb$grantor ne UPPERCASE (rdb$user_name)) and
+	     (UPPERCASE (rdb$user_name) ne "SYSDBA")
+	   )
+	   begin
+	   for rel in rdb$relations with
+	       rel.rdb$relation_name = "RDB$DATABASE"
+	       if ( (rel.rdb$owner_name missing) or
+		    (rel.rdb$owner_name ne UPPERCASE(rdb$user_name)) )
+	           abort 0;
+	   end_for
+	   end
+    end;
+end_trigger;
+
diff --git a/src/jrd/grant_proto.h b/src/jrd/grant_proto.h
new file mode 100644
index 0000000000..abce9243e1
--- /dev/null
+++ b/src/jrd/grant_proto.h
@@ -0,0 +1,38 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		grant_proto.h
+ *	DESCRIPTION:	Function prototypes for file grant.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_GRANT_PROTO_H_
+#define _JRD_GRANT_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int GRANT_privileges(TDBB, SSHORT, struct dfw *);
+extern STR GRANT_realloc_acl(STR, UCHAR **, ULONG *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_GRANT_PROTO_H_  */
diff --git a/src/jrd/ib_stdio.cpp b/src/jrd/ib_stdio.cpp
new file mode 100644
index 0000000000..882d7f8e32
--- /dev/null
+++ b/src/jrd/ib_stdio.cpp
@@ -0,0 +1,5824 @@
+/* 
+ * This is a substitute for stdio, incorporated into InterBase for use
+ * on platforms, such as Solaris, where the vendor-supplied stdio
+ * prevents fopen() and its kin from working if the open() system call
+ * returns a file descriptor greater than 255.
+ *
+ * Helloooo Suuun!  We're not running on PDP-11s any more!
+ */
+
+/*-
+ * Copyright (c) 1990, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Chris Torek.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+/* The following copyright notice applies to the function ib__dtoa()
+ * below, which was extracted from stdlib/netbsd_strtod.c on FreeBSD.
+ */
+
+/****************************************************************
+ *
+ * The author of this software is David M. Gay.
+ *
+ * Copyright (c) 1991 by AT&T.
+ *
+ * Permission to use, copy, modify, and distribute this software for any
+ * purpose without fee is hereby granted, provided that this entire notice
+ * is included in all copies of any software which is or includes a copy
+ * or modification of this software and in all copies of the supporting
+ * documentation for such software.
+ *
+ * THIS SOFTWARE IS BEING PROVIDED "AS IS", WITHOUT ANY EXPRESS OR IMPLIED
+ * WARRANTY.  IN PARTICULAR, NEITHER THE AUTHOR NOR AT&T MAKES ANY
+ * REPRESENTATION OR WARRANTY OF ANY KIND CONCERNING THE MERCHANTABILITY
+ * OF THIS SOFTWARE OR ITS FITNESS FOR ANY PARTICULAR PURPOSE.
+ *
+ ***************************************************************/
+
+/* Please send bug reports to
+	David M. Gay
+	AT&T Bell Laboratories, Room 2C-463
+	600 Mountain Avenue
+	Murray Hill, NJ 07974-2070
+	U.S.A.
+	dmg@research.att.com or research!dmg
+ */
+
+
+/*
+ * We started with /usr/src/lib/libc/stdio from FreeBSD 3.4, for those
+ * trying to track the origin of this code.
+ */
+
+/* Firebird changes:-
+ * Small fixes to get gcc to compile module on Solaris sparc - Neil McCalden
+ * Add support for Solaris x86  - Neil McCalden
+ */
+
+/*
+$Id: ib_stdio.cpp,v 1.1.1.1 2001-05-23 13:26:18 tamlin Exp $
+*/
+
+#include "source/jrd/common.h"
+#ifdef NEED_IB_STDIO
+#include "ib_stdio.h"
+#include <stdlib.h>
+#include <errno.h>
+#include <sys/types.h>
+#include <sys/uio.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <sys/param.h>
+#include <unistd.h>
+#include <string.h>
+#include <sys/file.h>
+#include <stdarg.h>
+#include <math.h>
+#ifdef SOLARIS
+#include <ieeefp.h>
+#endif
+#include <ctype.h>
+#include <limits.h>
+#include <signal.h>
+
+/* The following definition was included from <machine/param.h> on BSD,
+ * but that header doesn't exist on some other platforms.
+ * This definition may be wrong for some platforms.
+ */
+#define ALIGNBYTES (sizeof(int) - 1)
+
+/* From <paths.h> on BSD */
+#define _PATH_TMP "/tmp/"
+
+#define DEFFILEMODE (0666)
+
+/*  On BSD, these types come from sys/types.h or whatever.  We equate them
+ *  to types which we define for each platform in jrd/common.h.
+ */
+#define u_quad_t UINT64
+#define quad_t   SINT64
+#define QUAD_MAX MAX_SINT64
+
+/* Give some BSD <stdlib.h> function names Solaris equivalents. */
+#define strtoq  strtoll
+#define strtouq strtoull
+
+/* These macros call do-nothing functions on BSD: we'll make the macro
+   definitions empty for our purposes. */
+#define FLOCKFILE(fp)
+#define FUNLOCKFILE(fp)
+
+/* These come from stdio/local.h on BSD */
+
+/*
+ * Return true iff the given FILE cannot be written now.
+ */
+#define	cantwrite(fp) \
+	((((fp)->_flags & IB__SWR) == 0 || (fp)->_bf._base == NULL) && \
+	 ib__swsetup(fp))
+
+/*
+ * Test whether the given stdio file has an active ungetc buffer;
+ * release such a buffer, without restoring ordinary unread data.
+ */
+#define	HASUB(fp) ((fp)->_ub._base != NULL)
+#define	FREEUB(fp) { \
+	if ((fp)->_ub._base != (fp)->_ubuf) \
+		free((char *)(fp)->_ub._base); \
+	(fp)->_ub._base = NULL; \
+}
+
+/*
+ * test for an fgetln() buffer.
+ */
+#define	HASLB(fp) ((fp)->_lb._base != NULL)
+#define	FREELB(fp) { \
+	free((char *)(fp)->_lb._base); \
+	(fp)->_lb._base = NULL; \
+}
+
+
+/* BSD stdio wants to see __collate_load_error, which is privately
+ * available from locale/collate.c in libc.  In moving this off BSD,
+ * we will treat this as a constant.  The value 1 is what the BSD
+ * library initializes the variable to: the value is unchanged when
+ * the client program asks for either of the locales "C" or "POSIX",
+ * so we use that as the fixed value of this unvarying variable.
+ */
+static const int ib__collate_load_error = 1;
+
+ /*
+    * The first few FILEs are statically allocated; others are dynamically
+    * allocated and linked in via this glue structure.
+  */
+static struct glue {
+	struct glue *next;
+	int niobs;
+	IB_FILE *iobs;
+};
+
+/* The following 2 defines are taken from stdio/floatio.h in BSD */
+
+/*
+ * Floating point scanf/printf (input/output) definitions.
+ */
+
+/* 11-bit exponent (VAX G floating point) is 308 decimal digits */
+#define	MAXEXP		308
+/* 128 bit fraction takes up 39 decimal digits; max reasonable precision */
+#define	MAXFRACT	39
+
+
+
+/* Prototypes for functions used before their definitions. */
+
+static int ib__sread(void *, char *, int);
+static int ib__swrite(void *, char const *, int n);
+static ib_fpos_t ib__sseek(void *, ib_fpos_t, int);
+static int ib__sclose(void *);
+static IB_FILE *ib__sfp(void);
+static void ib__sinit(void);
+static void ib__smakebuf(IB_FILE *);
+static char *ib__dtoa(double, int, int, int *, int *, char **);
+int ib__sflush(register IB_FILE * fp);
+
+/*
+ * I/O descriptors for ib__sfvwrite().
+ */
+struct ib__siov {
+	void *iov_base;
+	size_t iov_len;
+};
+struct ib__suio {
+	struct ib__siov *uio_iov;
+	int uio_iovcnt;
+	int uio_resid;
+};
+
+/* The following function comes from stdlib on BSD. */
+
+static void *reallocf(void *ptr, size_t size)
+{
+	void *nptr;
+
+	nptr = realloc(ptr, size);
+	if (!nptr && ptr)
+		free(ptr);
+	return (nptr);
+}
+
+
+
+
+#undef ib_clearerr
+
+void ib_clearerr(IB_FILE * fp)
+{
+	FLOCKFILE(fp);
+	ib__sclearerr(fp);
+	FUNLOCKFILE(fp);
+}
+
+int ib_fclose(register IB_FILE * fp)
+{
+	register int r;
+
+	if (fp->_flags == 0) {		/* not open! */
+		errno = EBADF;
+		return (EOF);
+	}
+	FLOCKFILE(fp);
+	r = fp->_flags & IB__SWR ? ib__sflush(fp) : 0;
+	if (fp->_close != NULL && (*fp->_close) (fp->_cookie) < 0)
+		r = EOF;
+	if (fp->_flags & IB__SMBF)
+		free((char *) fp->_bf._base);
+	if (HASUB(fp))
+		FREEUB(fp);
+	if (HASLB(fp))
+		FREELB(fp);
+	FUNLOCKFILE(fp);
+	fp->_flags = 0;				/* Release this FILE for reuse. */
+	fp->_file = -1;
+	fp->_r = fp->_w = 0;		/* Mess up if reaccessed. */
+	return (r);
+}
+
+IB_FILE *ib_fdopen(int fd, const char *mode)
+{
+	register IB_FILE *fp;
+	static int nofile;
+	int flags, oflags, fdflags, tmp;
+
+	if (nofile == 0)
+		nofile = getdtablesize();
+
+	if ((flags = ib__sflags(mode, &oflags)) == 0)
+		return (NULL);
+
+	/* Make sure the mode the user wants is a subset of the actual mode. */
+	if ((fdflags = fcntl(fd, F_GETFL, 0)) < 0)
+		return (NULL);
+	tmp = fdflags & O_ACCMODE;
+	if (tmp != O_RDWR && (tmp != (oflags & O_ACCMODE))) {
+		errno = EINVAL;
+		return (NULL);
+	}
+
+	if ((fp = ib__sfp()) == NULL)
+		return (NULL);
+	fp->_flags = flags;
+	/*
+	 * If opened for appending, but underlying descriptor does not have
+	 * O_APPEND bit set, assert IB__SAPP so that ib__swrite() will lseek
+	 * to end before each write.
+	 */
+	if ((oflags & O_APPEND) && !(fdflags & O_APPEND))
+		fp->_flags |= IB__SAPP;
+	fp->_file = fd;
+	fp->_cookie = fp;
+	fp->_read = ib__sread;
+	fp->_write = ib__swrite;
+	fp->_seek = ib__sseek;
+	fp->_close = ib__sclose;
+	return (fp);
+}
+
+/*
+ * A subroutine version of the macro feof.
+ */
+#undef ib_feof
+
+int ib_feof(IB_FILE * fp)
+{
+	return (ib__sfeof(fp));
+}
+
+/*
+ * A subroutine version of the macro ferror.
+ */
+#undef ib_ferror
+
+int ib_ferror(IB_FILE * fp)
+{
+	return (ib__sferror(fp));
+}
+
+
+/* Flush a single file, or (if fp is NULL) all files.  */
+int ib_fflush(register IB_FILE * fp)
+{
+	int retval;
+
+	if (fp == NULL)
+		return (ib_fwalk(ib__sflush));
+	FLOCKFILE(fp);
+	if ((fp->_flags & (IB__SWR | IB__SRW)) == 0) {
+		errno = EBADF;
+		retval = EOF;
+	}
+	else {
+		retval = ib__sflush(fp);
+	}
+	FUNLOCKFILE(fp);
+	return (retval);
+}
+
+int ib__sflush(register IB_FILE * fp)
+{
+	register unsigned char *p;
+	register int n, t;
+
+	t = fp->_flags;
+	if ((t & IB__SWR) == 0)
+		return (0);
+
+	if ((p = fp->_bf._base) == NULL)
+		return (0);
+
+	n = fp->_p - p;				/* write this much */
+
+	/*
+	 * Set these immediately to avoid problems with longjmp and to allow
+	 * exchange buffering (via setvbuf) in user write function.
+	 */
+	fp->_p = p;
+	fp->_w = t & (IB__SLBF | IB__SNBF) ? 0 : fp->_bf._size;
+
+	for (; n > 0; n -= t, p += t) {
+		t = (*fp->_write) (fp->_cookie, (char *) p, n);
+		if (t <= 0) {
+			fp->_flags |= IB__SERR;
+			return (EOF);
+		}
+	}
+	return (0);
+}
+
+
+int ib_fgetc(IB_FILE * fp)
+{
+	int retval;
+	FLOCKFILE(fp);
+	retval = ib__sgetc(fp);
+	FUNLOCKFILE(fp);
+	return (retval);
+}
+
+
+/*
+ * Expand the line buffer.  Return -1 on error.
+#ifdef notdef
+ * The `new size' does not account for a terminating '\0',
+ * so we add 1 here.
+#endif
+ */
+int ib__slbexpand(IB_FILE * fp, size_t newsize)
+{
+	void *p;
+
+#ifdef notdef
+	++newsize;
+#endif
+	if (fp->_lb._size >= newsize)
+		return (0);
+	if ((p = realloc(fp->_lb._base, newsize)) == NULL)
+		return (-1);
+	fp->_lb._base = p;
+	fp->_lb._size = newsize;
+	return (0);
+}
+
+/*
+ * Get an input line.  The returned pointer often (but not always)
+ * points into a stdio buffer.  Fgetln does not alter the text of
+ * the returned line (which is thus not a C string because it will
+ * not necessarily end with '\0'), but does allow callers to modify
+ * it if they wish.  Thus, we set __SMOD in case the caller does.
+ */
+char *ib_fgetln(register IB_FILE * fp, size_t * lenp)
+{
+	register unsigned char *p;
+	register size_t len;
+	size_t off;
+
+	/* make sure there is input */
+	if (fp->_r <= 0 && ib__srefill(fp)) {
+		*lenp = 0;
+		return (NULL);
+	}
+
+	/* look for a newline in the input */
+	if ((p = memchr((void *) fp->_p, '\n', (size_t) fp->_r)) != NULL) {
+		register char *ret;
+
+		/*
+		 * Found one.  Flag buffer as modified to keep fseek from
+		 * `optimising' a backward seek, in case the user stomps on
+		 * the text.
+		 */
+		p++;					/* advance over it */
+		ret = (char *) fp->_p;
+		*lenp = len = p - fp->_p;
+		fp->_flags |= IB__SMOD;
+		fp->_r -= len;
+		fp->_p = p;
+		return (ret);
+	}
+
+	/*
+	 * We have to copy the current buffered data to the line buffer.
+	 * As a bonus, though, we can leave off the IB__SMOD.
+	 *
+	 * OPTIMISTIC is length that we (optimistically) expect will
+	 * accomodate the `rest' of the string, on each trip through the
+	 * loop below.
+	 */
+#define OPTIMISTIC 80
+
+	for (len = fp->_r, off = 0;; len += fp->_r) {
+		register size_t diff;
+
+		/*
+		 * Make sure there is room for more bytes.  Copy data from
+		 * file buffer to line buffer, refill file and look for
+		 * newline.  The loop stops only when we find a newline.
+		 */
+		if (ib__slbexpand(fp, len + OPTIMISTIC))
+			goto error;
+		(void) memcpy((void *) (fp->_lb._base + off), (void *) fp->_p,
+					  len - off);
+		off = len;
+		if (ib__srefill(fp))
+			break;				/* EOF or error: return partial line */
+		if ((p = memchr((void *) fp->_p, '\n', (size_t) fp->_r)) == NULL)
+			continue;
+
+		/* got it: finish up the line (like code above) */
+		p++;
+		diff = p - fp->_p;
+		len += diff;
+		if (ib__slbexpand(fp, len))
+			goto error;
+		(void) memcpy((void *) (fp->_lb._base + off), (void *) fp->_p, diff);
+		fp->_r -= diff;
+		fp->_p = p;
+		break;
+	}
+	*lenp = len;
+#ifdef notdef
+	fp->_lb._base[len] = 0;
+#endif
+	return ((char *) fp->_lb._base);
+
+  error:
+	*lenp = 0;					/* ??? */
+	return (NULL);				/* ??? */
+}
+
+int ib_fgetpos(IB_FILE * fp, ib_fpos_t * pos)
+{
+	int retval;
+	FLOCKFILE(fp);
+	retval = (*pos = ib_ftello(fp)) == (ib_fpos_t) - 1;
+	FUNLOCKFILE(fp);
+	return (retval);
+}
+
+/*
+ * Read at most n-1 characters from the given file.
+ * Stop when a newline has been read, or the count runs out.
+ * Return first argument, or NULL if no characters were read.
+ */
+char *ib_fgets(char *buf, register int n, register IB_FILE * fp)
+{
+	register size_t len;
+	register char *s;
+	register unsigned char *p, *t;
+
+	if (n <= 0)					/* sanity check */
+		return (NULL);
+
+	FLOCKFILE(fp);
+	s = buf;
+	n--;						/* leave space for NUL */
+	while (n != 0) {
+		/*
+		 * If the buffer is empty, refill it.
+		 */
+		if ((len = fp->_r) <= 0) {
+			if (ib__srefill(fp)) {
+				/* EOF/error: stop with partial or no line */
+				if (s == buf) {
+					FUNLOCKFILE(fp);
+					return (NULL);
+				}
+				break;
+			}
+			len = fp->_r;
+		}
+		p = fp->_p;
+
+		/*
+		 * Scan through at most n bytes of the current buffer,
+		 * looking for '\n'.  If found, copy up to and including
+		 * newline, and stop.  Otherwise, copy entire chunk
+		 * and loop.
+		 */
+		if (len > n)
+			len = n;
+		t = memchr((void *) p, '\n', len);
+		if (t != NULL) {
+			len = ++t - p;
+			fp->_r -= len;
+			fp->_p = t;
+			(void) memcpy((void *) s, (void *) p, len);
+			s[len] = 0;
+			FUNLOCKFILE(fp);
+			return (buf);
+		}
+		fp->_r -= len;
+		fp->_p += len;
+		(void) memcpy((void *) s, (void *) p, len);
+		s += len;
+		n -= len;
+	}
+	*s = 0;
+	FUNLOCKFILE(fp);
+	return (buf);
+}
+
+/*
+ * A subroutine version of the macro fileno.
+ */
+#undef ib_fileno
+
+int ib_fileno(IB_FILE * fp)
+{
+	return (ib__sfileno(fp));
+}
+
+
+static int ib__sdidinit;
+
+#define	NDYNAMIC 10				/* add ten more whenever necessary */
+
+#define	std(flags, file) \
+	{0,0,0,flags,file,{0},0,ib__sF+file,ib__sclose,ib__sread,ib__sseek,ib__swrite}
+/*	 p r w flags file _bf z  cookie      close     read      seek      write */
+
+				/* the usual - (stdin + stdout + stderr) */
+static IB_FILE usual[IB_FOPEN_MAX - 3];
+static struct glue uglue = { 0, IB_FOPEN_MAX - 3, usual };
+
+#define IB_STDIN_FILENO 0
+#define IB_STDOUT_FILENO 1
+#define IB_STDERR_FILENO 2
+
+IB_FILE ib__sF[3] = {
+	std(IB__SRD, IB_STDIN_FILENO),	/* stdin */
+	std(IB__SWR, IB_STDOUT_FILENO),	/* stdout */
+	std(IB__SWR | IB__SNBF, IB_STDERR_FILENO)	/* stderr */
+};
+
+struct glue ib__sglue = { &uglue, 3, ib__sF };
+
+static struct glue *moreglue(int);
+
+static struct glue *moreglue(register int n)
+{
+	register struct glue *g;
+	register IB_FILE *p;
+	static IB_FILE empty;
+
+	g = (struct glue *) malloc(sizeof(*g) + ALIGNBYTES + n * sizeof(IB_FILE));
+	if (g == NULL)
+		return (NULL);
+	/*
+	 * Note that the ALIGN macro invoked is the one in
+	 * jrd/common.h, not the one which BSD code expects to find in
+	 * <machine/param.h>, which has a different number of arguments
+	 */
+	p = (IB_FILE *) FB_ALIGN(((unsigned) (g + 1)), (sizeof(int)));
+	g->next = NULL;
+	g->niobs = n;
+	g->iobs = p;
+	while (--n >= 0)
+		*p++ = empty;
+	return (g);
+}
+
+/*
+ * Find a free FILE for fopen et al.
+ */
+IB_FILE *ib__sfp(void)
+{
+	register IB_FILE *fp;
+	register int n;
+	register struct glue *g;
+
+	if (!ib__sdidinit)
+		ib__sinit();
+	for (g = &ib__sglue;; g = g->next) {
+		for (fp = g->iobs, n = g->niobs; --n >= 0; fp++)
+			if (fp->_flags == 0)
+				goto found;
+		if (g->next == NULL && (g->next = moreglue(NDYNAMIC)) == NULL)
+			break;
+	}
+	return (NULL);
+  found:
+	fp->_flags = 1;				/* reserve this slot; caller sets real flags */
+	fp->_p = NULL;				/* no current pointer */
+	fp->_w = 0;					/* nothing to read or write */
+	fp->_r = 0;
+	fp->_bf._base = NULL;		/* no buffer */
+	fp->_bf._size = 0;
+	fp->_lbfsize = 0;			/* not line buffered */
+	fp->_file = -1;				/* no file */
+/*	fp->_cookie = <any>; *//* caller sets cookie, _read/_write etc */
+	fp->_ub._base = NULL;		/* no ungetc buffer */
+	fp->_ub._size = 0;
+	fp->_lb._base = NULL;		/* no line buffer */
+	fp->_lb._size = 0;
+	return (fp);
+}
+
+/*
+ * exit() calls _cleanup() through *__cleanup, set whenever we
+ * open or buffer a file.  This chicanery is done so that programs
+ * that do not use stdio need not link it all in.
+ *
+ * The name `_cleanup' is, alas, fairly well known outside stdio.
+ *
+ * This InterBase version will use the atexit() mechanism for cleanup
+ * so the _cleanup magic name is not an issue for us.
+ */
+void ib_cleanup(void)
+{
+	/* (void) ib_fwalk(ib_fclose); */
+	(void) ib_fwalk(ib__sflush);	/* `cheating' */
+}
+
+/*
+ * ib__sinit() is called whenever stdio's internal variables must be set up.
+ */
+static void ib__sinit(void)
+{
+	/* make sure we clean up on exit */
+	/*    ib__cleanup = ib_cleanup;       /* conservative */
+	atexit(ib_cleanup);
+	ib__sdidinit = 1;
+}
+
+/*
+ * Return the (stdio) flags for a given mode.  Store the flags
+ * to be passed to an open() syscall through *optr.
+ * Return 0 on error.
+ */
+int ib__sflags(register const char *mode, int *optr)
+{
+	register int ret, m, o;
+
+	switch (*mode++) {
+
+	case 'r':					/* open for reading */
+		ret = IB__SRD;
+		m = O_RDONLY;
+		o = 0;
+		break;
+
+	case 'w':					/* open for writing */
+		ret = IB__SWR;
+		m = O_WRONLY;
+		o = O_CREAT | O_TRUNC;
+		break;
+
+	case 'a':					/* open for appending */
+		ret = IB__SWR;
+		m = O_WRONLY;
+		o = O_CREAT | O_APPEND;
+		break;
+
+	default:					/* illegal mode */
+		errno = EINVAL;
+		return (0);
+	}
+
+	/* [rwa]\+ or [rwa]b\+ means read and write */
+	if (*mode == '+' || (*mode == 'b' && mode[1] == '+')) {
+		ret = IB__SRW;
+		m = O_RDWR;
+	}
+	*optr = m | o;
+	return (ret);
+}
+
+IB_FILE *ib_fopen(const char *file, const char *mode)
+{
+	register IB_FILE *fp;
+	register int f;
+	int flags, oflags;
+
+	if ((flags = ib__sflags(mode, &oflags)) == 0)
+		return (NULL);
+	if ((fp = ib__sfp()) == NULL)
+		return (NULL);
+	if ((f = open(file, oflags, DEFFILEMODE)) < 0) {
+		fp->_flags = 0;			/* release */
+		return (NULL);
+	}
+	fp->_file = f;
+	fp->_flags = flags;
+	fp->_cookie = fp;
+	fp->_read = ib__sread;
+	fp->_write = ib__swrite;
+	fp->_seek = ib__sseek;
+	fp->_close = ib__sclose;
+
+	/*
+	 * When opening in append mode, even though we use O_APPEND,
+	 * we need to seek to the end so that ftell() gets the right
+	 * answer.  If the user then alters the seek pointer, or
+	 * the file extends, this will fail, but there is not much
+	 * we can do about this.  (We could set __SAPP and check in
+	 * fseek and ftell.)
+	 */
+	if (oflags & O_APPEND)
+		(void) ib__sseek((void *) fp, (fpos_t) 0, SEEK_END);
+	return (fp);
+}
+
+int ib_fprintf(IB_FILE * fp, const char *fmt, ...)
+{
+	int ret;
+	va_list ap;
+
+	va_start(ap, fmt);
+	ret = ib_vfprintf(fp, fmt, ap);
+	va_end(ap);
+	return (ret);
+}
+
+/*
+ * fpurge: like fflush, but without writing anything: leave the
+ * given FILE's buffer empty.
+ */
+int ib_fpurge(register IB_FILE * fp)
+{
+	int retval;
+	FLOCKFILE(fp);
+	if (!fp->_flags) {
+		errno = EBADF;
+		retval = EOF;
+	}
+	else {
+		if (HASUB(fp))
+			FREEUB(fp);
+		fp->_p = fp->_bf._base;
+		fp->_r = 0;
+		fp->_w = fp->_flags & (IB__SLBF | IB__SNBF) ? 0 : fp->_bf._size;
+		retval = 0;
+	}
+	FUNLOCKFILE(fp);
+	return (retval);
+}
+int ib_fputc(int c, register IB_FILE * fp)
+{
+	int retval;
+	FLOCKFILE(fp);
+	retval = ib_putc(c, fp);
+	FUNLOCKFILE(fp);
+	return (retval);
+}
+
+
+/* a prototype which is needed now ... */
+int ib__sfvwrite(IB_FILE *, struct ib__suio *);
+
+/*
+ * Write the given string to the given file.
+ */
+int ib_fputs(const char *s, IB_FILE * fp)
+{
+	int retval;
+	struct ib__suio uio;
+	struct ib__siov iov;
+
+	iov.iov_base = (void *) s;
+	iov.iov_len = uio.uio_resid = strlen(s);
+	uio.uio_iov = &iov;
+	uio.uio_iovcnt = 1;
+	FLOCKFILE(fp);
+	retval = ib__sfvwrite(fp, &uio);
+	FUNLOCKFILE(fp);
+	return (retval);
+}
+
+size_t ib_fread(void *buf, size_t size, size_t count, register IB_FILE * fp)
+{
+	register size_t resid;
+	register char *p;
+	register int r;
+	size_t total;
+
+	/*
+	 * The ANSI standard requires a return value of 0 for a count
+	 * or a size of 0.  Peculiarly, it imposes no such requirements
+	 * on fwrite; it only requires fread to be broken.
+	 */
+	if ((resid = count * size) == 0)
+		return (0);
+	FLOCKFILE(fp);
+	if (fp->_r < 0)
+		fp->_r = 0;
+	total = resid;
+	p = buf;
+	while (resid > (r = fp->_r)) {
+		(void) memcpy((void *) p, (void *) fp->_p, (size_t) r);
+		fp->_p += r;
+		/* fp->_r = 0 ... done in ib__srefill */
+		p += r;
+		resid -= r;
+		if (ib__srefill(fp)) {
+			/* no more input: return partial result */
+			FUNLOCKFILE(fp);
+			return ((total - resid) / size);
+		}
+	}
+	(void) memcpy((void *) p, (void *) fp->_p, resid);
+	fp->_r -= resid;
+	fp->_p += resid;
+	FUNLOCKFILE(fp);
+	return (count);
+}
+
+/*
+ * Re-direct an existing, open (probably) file to some other file.
+ * ANSI is written such that the original file gets closed if at
+ * all possible, no matter what.
+ */
+IB_FILE *ib_freopen(const char *file, const char *mode, register IB_FILE * fp)
+{
+	register int f;
+	int flags, isopen, oflags, sverrno, wantfd;
+
+	if ((flags = ib__sflags(mode, &oflags)) == 0) {
+		(void) ib_fclose(fp);
+		return (NULL);
+	}
+
+	if (!ib__sdidinit)
+		ib__sinit();
+
+	/*
+	 * There are actually programs that depend on being able to "freopen"
+	 * descriptors that weren't originally open.  Keep this from breaking.
+	 * Remember whether the stream was open to begin with, and which file
+	 * descriptor (if any) was associated with it.  If it was attached to
+	 * a descriptor, defer closing it; freopen("/dev/stdin", "r", stdin)
+	 * should work.  This is unnecessary if it was not a Unix file.
+	 */
+	if (fp->_flags == 0) {
+		fp->_flags = IB__SEOF;	/* hold on to it */
+		isopen = 0;
+		wantfd = -1;
+	}
+	else {
+		/* flush the stream; ANSI doesn't require this. */
+		if (fp->_flags & IB__SWR)
+			(void) ib__sflush(fp);
+		/* if close is NULL, closing is a no-op, hence pointless */
+		isopen = fp->_close != NULL;
+		if ((wantfd = fp->_file) < 0 && isopen) {
+			(void) (*fp->_close) (fp->_cookie);
+			isopen = 0;
+		}
+	}
+
+	/* Get a new descriptor to refer to the new file. */
+	f = open(file, oflags, DEFFILEMODE);
+	if (f < 0 && isopen) {
+		/* If out of fd's close the old one and try again. */
+		if (errno == ENFILE || errno == EMFILE) {
+			(void) (*fp->_close) (fp->_cookie);
+			isopen = 0;
+			f = open(file, oflags, DEFFILEMODE);
+		}
+	}
+	sverrno = errno;
+
+	/*
+	 * Finish closing fp.  Even if the open succeeded above, we cannot
+	 * keep fp->_base: it may be the wrong size.  This loses the effect
+	 * of any setbuffer calls, but stdio has always done this before.
+	 */
+	if (isopen)
+		(void) (*fp->_close) (fp->_cookie);
+	if (fp->_flags & IB__SMBF)
+		free((char *) fp->_bf._base);
+	fp->_w = 0;
+	fp->_r = 0;
+	fp->_p = NULL;
+	fp->_bf._base = NULL;
+	fp->_bf._size = 0;
+	fp->_lbfsize = 0;
+	if (HASUB(fp))
+		FREEUB(fp);
+	fp->_ub._size = 0;
+	if (HASLB(fp))
+		FREELB(fp);
+	fp->_lb._size = 0;
+
+	if (f < 0) {				/* did not get it after all */
+		fp->_flags = 0;			/* set it free */
+		errno = sverrno;		/* restore in case _close clobbered */
+		return (NULL);
+	}
+
+	/*
+	 * If reopening something that was open before on a real file, try
+	 * to maintain the descriptor.  Various C library routines (perror)
+	 * assume stderr is always fd STDERR_FILENO, even if being freopen'd.
+	 */
+	if (wantfd >= 0 && f != wantfd) {
+		if (dup2(f, wantfd) >= 0) {
+			(void) close(f);
+			f = wantfd;
+		}
+	}
+
+	fp->_flags = flags;
+	fp->_file = f;
+	fp->_cookie = fp;
+	fp->_read = ib__sread;
+	fp->_write = ib__swrite;
+	fp->_seek = ib__sseek;
+	fp->_close = ib__sclose;
+	return (fp);
+}
+
+int ib_fscanf(IB_FILE * fp, char const *fmt, ...)
+{
+	int ret;
+	va_list ap;
+
+	va_start(ap, fmt);
+	FLOCKFILE(fp);
+	ret = ib__svfscanf(fp, fmt, ap);
+	va_end(ap);
+	FUNLOCKFILE(fp);
+	return (ret);
+}
+
+#define	POS_ERR	(-(ib_fpos_t)1)
+
+int ib_fseek(register IB_FILE * fp, long offset, int whence)
+{
+	return (ib_fseeko(fp, offset, whence));
+}
+
+/*
+ * Seek the given file to the given offset.
+ * `Whence' must be one of the three SEEK_* macros.
+ */
+int ib_fseeko(register IB_FILE * fp, off_t offset, int whence)
+{
+	register ib_fpos_t(*seekfn) (void *, fpos_t, int);
+	ib_fpos_t target, curoff;
+	size_t n;
+	struct stat st;
+	int havepos;
+
+	/* make sure stdio is set up */
+	if (!ib__sdidinit)
+		ib__sinit();
+
+	FLOCKFILE(fp);
+	/*
+	 * Have to be able to seek.
+	 */
+	if ((seekfn = fp->_seek) == NULL) {
+		errno = ESPIPE;			/* historic practice */
+		FUNLOCKFILE(fp);
+		return (EOF);
+	}
+
+	/*
+	 * Change any SEEK_CUR to SEEK_SET, and check `whence' argument.
+	 * After this, whence is either SEEK_SET or SEEK_END.
+	 */
+	switch (whence) {
+
+	case SEEK_CUR:
+		/*
+		 * In order to seek relative to the current stream offset,
+		 * we have to first find the current stream offset a la
+		 * ftell (see ftell for details).
+		 */
+		if (fp->_flags & IB__SOFF)
+			curoff = fp->_offset;
+		else {
+			curoff = (*seekfn) (fp->_cookie, (fpos_t) 0, SEEK_CUR);
+			if (curoff == -1) {
+				FUNLOCKFILE(fp);
+				return (EOF);
+			}
+		}
+		if (fp->_flags & IB__SRD) {
+			curoff -= fp->_r;
+			if (HASUB(fp))
+				curoff -= fp->_ur;
+		}
+		else if (fp->_flags & IB__SWR && fp->_p != NULL)
+			curoff += fp->_p - fp->_bf._base;
+
+		offset += curoff;
+		whence = SEEK_SET;
+		havepos = 1;
+		break;
+
+	case SEEK_SET:
+	case SEEK_END:
+		curoff = 0;				/* XXX just to keep gcc quiet */
+		havepos = 0;
+		break;
+
+	default:
+		errno = EINVAL;
+		FUNLOCKFILE(fp);
+		return (EOF);
+	}
+
+	/*
+	 * Can only optimise if:
+	 *  reading (and not reading-and-writing);
+	 *  not unbuffered; and
+	 *  this is a `regular' Unix file (and hence seekfn==ib__sseek).
+	 * We must check IB__NBF first, because it is possible to have IB__NBF
+	 * and IB__SOPT both set.
+	 */
+	if (fp->_bf._base == NULL)
+		ib__smakebuf(fp);
+	if (fp->_flags & (IB__SWR | IB__SRW | IB__SNBF | IB__SNPT))
+		goto dumb;
+	if ((fp->_flags & IB__SOPT) == 0) {
+		if (seekfn != ib__sseek ||
+			fp->_file < 0 || fstat(fp->_file, &st) ||
+			(st.st_mode & S_IFMT) != S_IFREG) {
+			fp->_flags |= IB__SNPT;
+			goto dumb;
+		}
+		fp->_blksize = st.st_blksize;
+		fp->_flags |= IB__SOPT;
+	}
+
+	/*
+	 * We are reading; we can try to optimise.
+	 * Figure out where we are going and where we are now.
+	 */
+	if (whence == SEEK_SET)
+		target = offset;
+	else {
+		if (fstat(fp->_file, &st))
+			goto dumb;
+		target = st.st_size + offset;
+	}
+
+	if (!havepos) {
+		if (fp->_flags & IB__SOFF)
+			curoff = fp->_offset;
+		else {
+			curoff = (*seekfn) (fp->_cookie, (fpos_t) 0, SEEK_CUR);
+			if (curoff == POS_ERR)
+				goto dumb;
+		}
+		curoff -= fp->_r;
+		if (HASUB(fp))
+			curoff -= fp->_ur;
+	}
+
+	/*
+	 * Compute the number of bytes in the input buffer (pretending
+	 * that any ungetc() input has been discarded).  Adjust current
+	 * offset backwards by this count so that it represents the
+	 * file offset for the first byte in the current input buffer.
+	 */
+	if (HASUB(fp)) {
+		curoff += fp->_r;		/* kill off ungetc */
+		n = fp->_up - fp->_bf._base;
+		curoff -= n;
+		n += fp->_ur;
+	}
+	else {
+		n = fp->_p - fp->_bf._base;
+		curoff -= n;
+		n += fp->_r;
+	}
+
+	/*
+	 * If the target offset is within the current buffer,
+	 * simply adjust the pointers, clear EOF, undo ungetc(),
+	 * and return.  (If the buffer was modified, we have to
+	 * skip this; see fgetln.c.)
+	 */
+	if ((fp->_flags & IB__SMOD) == 0 &&
+		target >= curoff && target < curoff + n) {
+		register int o = target - curoff;
+
+		fp->_p = fp->_bf._base + o;
+		fp->_r = n - o;
+		if (HASUB(fp))
+			FREEUB(fp);
+		fp->_flags &= ~IB__SEOF;
+		FUNLOCKFILE(fp);
+		return (0);
+	}
+
+	/*
+	 * The place we want to get to is not within the current buffer,
+	 * but we can still be kind to the kernel copyout mechanism.
+	 * By aligning the file offset to a block boundary, we can let
+	 * the kernel use the VM hardware to map pages instead of
+	 * copying bytes laboriously.  Using a block boundary also
+	 * ensures that we only read one block, rather than two.
+	 */
+	curoff = target & ~(fp->_blksize - 1);
+	if ((*seekfn) (fp->_cookie, curoff, SEEK_SET) == POS_ERR)
+		goto dumb;
+	fp->_r = 0;
+	fp->_p = fp->_bf._base;
+	if (HASUB(fp))
+		FREEUB(fp);
+	fp->_flags &= ~IB__SEOF;
+	n = target - curoff;
+	if (n) {
+		if (ib__srefill(fp) || fp->_r < n)
+			goto dumb;
+		fp->_p += n;
+		fp->_r -= n;
+	}
+	FUNLOCKFILE(fp);
+	return (0);
+
+	/*
+	 * We get here if we cannot optimise the seek ... just
+	 * do it.  Allow the seek function to change fp->_bf._base.
+	 */
+  dumb:
+	if (ib__sflush(fp) ||
+		(*seekfn) (fp->_cookie, (ib_fpos_t) offset, whence) == POS_ERR) {
+		FUNLOCKFILE(fp);
+		return (EOF);
+	}
+	/* success: clear EOF indicator and discard ungetc() data */
+	if (HASUB(fp))
+		FREEUB(fp);
+	fp->_p = fp->_bf._base;
+	fp->_r = 0;
+/* fp->_w = 0; *//* unnecessary (I think...) */
+	fp->_flags &= ~IB__SEOF;
+	FUNLOCKFILE(fp);
+	return (0);
+}
+
+/*
+ * fsetpos: like fseek.
+ */
+int ib_fsetpos(IB_FILE * iop, const ib_fpos_t * pos)
+{
+	return (ib_fseeko(iop, (off_t) * pos, SEEK_SET));
+}
+
+/*
+ * standard ftell function.
+ */
+long ib_ftell(register IB_FILE * fp)
+{
+	register off_t rv;
+	rv = ib_ftello(fp);
+	if ((long) rv != rv) {
+		errno = EOVERFLOW;
+		return (-1);
+	}
+	return (rv);
+}
+
+/*
+ * ib_ftello: return current offset.
+ */
+off_t ib_ftello(register IB_FILE * fp)
+{
+	register ib_fpos_t pos;
+
+	if (fp->_seek == NULL) {
+		errno = ESPIPE;			/* historic practice */
+		return (-1L);
+	}
+
+	FLOCKFILE(fp);
+	/*
+	 * Find offset of underlying I/O object, then
+	 * adjust for buffered bytes.
+	 */
+	if (fp->_flags & IB__SOFF)
+		pos = fp->_offset;
+	else {
+		pos = (*fp->_seek) (fp->_cookie, (fpos_t) 0, SEEK_CUR);
+		if (pos == -1) {
+			FUNLOCKFILE(fp);
+			return (pos);
+		}
+	}
+	if (fp->_flags & IB__SRD) {
+		/*
+		 * Reading.  Any unread characters (including
+		 * those from ungetc) cause the position to be
+		 * smaller than that in the underlying object.
+		 */
+		pos -= fp->_r;
+		if (HASUB(fp))
+			pos -= fp->_ur;
+	}
+	else if (fp->_flags & IB__SWR && fp->_p != NULL) {
+		/*
+		 * Writing.  Any buffered characters cause the
+		 * position to be greater than that in the
+		 * underlying object.
+		 */
+		pos += fp->_p - fp->_bf._base;
+	}
+	FUNLOCKFILE(fp);
+	return (pos);
+}
+
+IB_FILE *ib_funopen(const void *cookie,
+					int (*readfn) (),
+					int (*writefn) (),
+					ib_fpos_t(*seekfn) (void *cookie, ib_fpos_t off,
+										int whence), int (*closefn) ())
+{
+	register IB_FILE *fp;
+	int flags;
+
+	if (readfn == NULL) {
+		if (writefn == NULL) {	/* illegal */
+			errno = EINVAL;
+			return (NULL);
+		}
+		else
+			flags = IB__SWR;	/* write only */
+	}
+	else {
+		if (writefn == NULL)
+			flags = IB__SRD;	/* read only */
+		else
+			flags = IB__SRW;	/* read-write */
+	}
+	if ((fp = ib__sfp()) == NULL)
+		return (NULL);
+	fp->_flags = flags;
+	fp->_file = -1;
+	fp->_cookie = (void *) cookie;
+	fp->_read = readfn;
+	fp->_write = writefn;
+	fp->_seek = seekfn;
+	fp->_close = closefn;
+	return (fp);
+}
+
+
+int ib_fwalk(register int (*function) (IB_FILE *))
+{
+	register IB_FILE *fp;
+	register int n, ret;
+	register struct glue *g;
+
+	ret = 0;
+	for (g = &ib__sglue; g != NULL; g = g->next)
+		for (fp = g->iobs, n = g->niobs; --n >= 0; fp++)
+			if (fp->_flags != 0)
+				ret |= (*function) (fp);
+	return (ret);
+}
+
+
+/*
+ * Write `count' objects (each size `size') from memory to the given file.
+ * Return the number of whole objects written.
+ */
+size_t ib_fwrite(const void *buf, size_t size, size_t count, IB_FILE * fp)
+{
+	size_t n;
+	struct ib__suio uio;
+	struct ib__siov iov;
+
+	iov.iov_base = (void *) buf;
+	uio.uio_resid = iov.iov_len = n = count * size;
+	uio.uio_iov = &iov;
+	uio.uio_iovcnt = 1;
+
+	FLOCKFILE(fp);
+	/*
+	 * The usual case is success (ib__sfvwrite returns 0);
+	 * skip the divide if this happens, since divides are
+	 * generally slow and since this occurs whenever size==0.
+	 */
+	if (ib__sfvwrite(fp, &uio) != 0)
+		count = (n - uio.uio_resid) / size;
+	FUNLOCKFILE(fp);
+	return (count);
+}
+
+/*
+ * A subroutine version of the macro getc.
+ */
+#undef ib_getc
+
+int ib_getc(register IB_FILE * fp)
+{
+	int retval;
+	FLOCKFILE(fp);
+	retval = ib__sgetc(fp);
+	FUNLOCKFILE(fp);
+	return (retval);
+}
+
+/*
+ * A subroutine version of the macro getchar.
+ */
+
+#undef ib_getchar
+
+int ib_getchar(void)
+{
+	int retval;
+	FLOCKFILE(ib_stdin);
+	retval = ib_getc(ib_stdin);
+	FUNLOCKFILE(ib_stdin);
+	return (retval);
+}
+
+int ib_getw(IB_FILE * fp)
+{
+	int x;
+
+	return (ib_fread((void *) &x, sizeof(x), 1, fp) == 1 ? x : EOF);
+}
+
+/*
+ * Allocate a file buffer, or switch to unbuffered I/O.
+ * Per the ANSI C standard, ALL tty devices default to line buffered.
+ *
+ * As a side effect, we set IB__SOPT or IB__SNPT (en/dis-able fseek
+ * optimisation) right after the fstat() that finds the buffer size.
+ */
+static void ib__smakebuf(register IB_FILE * fp)
+{
+	register void *p;
+	register int flags;
+	size_t size;
+	int couldbetty;
+
+	if (fp->_flags & IB__SNBF) {
+		fp->_bf._base = fp->_p = fp->_nbuf;
+		fp->_bf._size = 1;
+		return;
+	}
+	flags = ib__swhatbuf(fp, &size, &couldbetty);
+	if ((p = malloc(size)) == NULL) {
+		fp->_flags |= IB__SNBF;
+		fp->_bf._base = fp->_p = fp->_nbuf;
+		fp->_bf._size = 1;
+		return;
+	}
+	/* ib__cleanup = ib_cleanup; */
+	flags |= IB__SMBF;
+	fp->_bf._base = fp->_p = p;
+	fp->_bf._size = size;
+	if (couldbetty && isatty(fp->_file))
+		flags |= IB__SLBF;
+	fp->_flags |= flags;
+}
+
+/*
+ * Internal routine to determine `proper' buffering for a file.
+ */
+int ib__swhatbuf(register IB_FILE * fp, size_t * bufsize, int *couldbetty)
+{
+	struct stat st;
+
+	if (fp->_file < 0 || fstat(fp->_file, &st) < 0) {
+		*couldbetty = 0;
+		*bufsize = BUFSIZ;
+		return (IB__SNPT);
+	}
+
+	/* could be a tty iff it is a character device */
+	*couldbetty = (st.st_mode & S_IFMT) == S_IFCHR;
+	if (st.st_blksize <= 0) {
+		*bufsize = BUFSIZ;
+		return (IB__SNPT);
+	}
+
+	/*
+	 * Optimise ib_fseek() only if it is a regular file.  (The test for
+	 * ib__sseek is mainly paranoia.)  It is safe to set _blksize
+	 * unconditionally; it will only be used if IB__SOPT is also set.
+	 */
+	*bufsize = st.st_blksize;
+	fp->_blksize = st.st_blksize;
+	return ((st.st_mode & S_IFMT) == S_IFREG && fp->_seek == ib__sseek ?
+			IB__SOPT : IB__SNPT);
+}
+
+void ib_perror(const char *s)
+{
+	register struct iovec *v;
+	struct iovec iov[4];
+
+	v = iov;
+	if (s != NULL && *s != '\0') {
+		v->iov_base = (char *) s;
+		v->iov_len = strlen(s);
+		v++;
+		v->iov_base = ": ";
+		v->iov_len = 2;
+		v++;
+	}
+	v->iov_base = strerror(errno);
+	v->iov_len = strlen(v->iov_base);
+	v++;
+	v->iov_base = "\n";
+	v->iov_len = 1;
+	(void) writev(STDERR_FILENO, iov, (v - iov) + 1);
+}
+
+
+int ib_printf(char const *fmt, ...)
+{
+	int ret;
+	va_list ap;
+
+	va_start(ap, fmt);
+	ret = ib_vfprintf(ib_stdout, fmt, ap);
+	va_end(ap);
+	return (ret);
+}
+
+/*
+ * A subroutine version of the macro putc.
+ */
+#undef ib_putc
+
+int ib_putc(int c, register IB_FILE * fp)
+{
+	int retval;
+	FLOCKFILE(fp);
+	retval = ib__sputc(c, fp);
+	FUNLOCKFILE(fp);
+	return (retval);
+}
+
+#undef ib_putchar
+
+/*
+ * A subroutine version of the macro putchar
+ */
+int ib_putchar(int c)
+{
+	int retval;
+	register IB_FILE *so = ib_stdout;
+
+	FLOCKFILE(so);
+	retval = ib__sputc(c, so);
+	FUNLOCKFILE(so);
+	return (retval);
+}
+
+/*
+ * Write the given string to stdout, appending a newline.
+ */
+int ib_puts(char const *s)
+{
+	int retval;
+	size_t c = strlen(s);
+	struct ib__suio uio;
+	struct ib__siov iov[2];
+
+	iov[0].iov_base = (void *) s;
+	iov[0].iov_len = c;
+	iov[1].iov_base = "\n";
+	iov[1].iov_len = 1;
+	uio.uio_resid = c + 1;
+	uio.uio_iov = &iov[0];
+	uio.uio_iovcnt = 2;
+	FLOCKFILE(ib_stdout);
+	retval = ib__sfvwrite(ib_stdout, &uio) ? EOF : '\n';
+	FUNLOCKFILE(ib_stdout);
+	return (retval);
+}
+
+int ib_putw(int w, IB_FILE * fp)
+{
+	int retval;
+	struct ib__suio uio;
+	struct ib__siov iov;
+
+	iov.iov_base = &w;
+	iov.iov_len = uio.uio_resid = sizeof(w);
+	uio.uio_iov = &iov;
+	uio.uio_iovcnt = 1;
+	FLOCKFILE(fp);
+	retval = ib__sfvwrite(fp, &uio);
+	FUNLOCKFILE(fp);
+	return (retval);
+}
+
+
+static int lflush(IB_FILE * fp)
+{
+
+	if ((fp->_flags & (IB__SLBF | IB__SWR)) == (IB__SLBF | IB__SWR))
+		return (ib__sflush(fp));
+	return (0);
+}
+
+/*
+ * Refill a stdio buffer.
+ * Return EOF on eof or error, 0 otherwise.
+ */
+int ib__srefill(register IB_FILE * fp)
+{
+
+	/* make sure stdio is set up */
+	if (!ib__sdidinit)
+		ib__sinit();
+
+	fp->_r = 0;					/* largely a convenience for callers */
+
+	/* SysV does not make this test; take it out for compatibility */
+	if (fp->_flags & IB__SEOF)
+		return (EOF);
+
+	/* if not already reading, have to be reading and writing */
+	if ((fp->_flags & IB__SRD) == 0) {
+		if ((fp->_flags & IB__SRW) == 0) {
+			errno = EBADF;
+			return (EOF);
+		}
+		/* switch to reading */
+		if (fp->_flags & IB__SWR) {
+			if (ib__sflush(fp))
+				return (EOF);
+			fp->_flags &= ~IB__SWR;
+			fp->_w = 0;
+			fp->_lbfsize = 0;
+		}
+		fp->_flags |= IB__SRD;
+	}
+	else {
+		/*
+		 * We were reading.  If there is an ungetc buffer,
+		 * we must have been reading from that.  Drop it,
+		 * restoring the previous buffer (if any).  If there
+		 * is anything in that buffer, return.
+		 */
+		if (HASUB(fp)) {
+			FREEUB(fp);
+			if ((fp->_r = fp->_ur) != 0) {
+				fp->_p = fp->_up;
+				return (0);
+			}
+		}
+	}
+
+	if (fp->_bf._base == NULL)
+		ib__smakebuf(fp);
+
+	/*
+	 * Before reading from a line buffered or unbuffered file,
+	 * flush all line buffered output files, per the ANSI C
+	 * standard.
+	 */
+	if (fp->_flags & (IB__SLBF | IB__SNBF))
+		(void) ib_fwalk(lflush);
+	fp->_p = fp->_bf._base;
+	fp->_r = (*fp->_read) (fp->_cookie, (char *) fp->_p, fp->_bf._size);
+	fp->_flags &= ~IB__SMOD;	/* buffer contents are again pristine */
+	if (fp->_r <= 0) {
+		if (fp->_r == 0)
+			fp->_flags |= IB__SEOF;
+		else {
+			fp->_r = 0;
+			fp->_flags |= IB__SERR;
+		}
+		return (EOF);
+	}
+	return (0);
+}
+
+
+void ib_rewind(register IB_FILE * fp)
+{
+	FLOCKFILE(fp);
+	(void) ib_fseek(fp, 0L, SEEK_SET);
+	ib_clearerr(fp);
+	FUNLOCKFILE(fp);
+	errno = 0;					/* not required, but seems reasonable */
+}
+
+int ib__srefill(IB_FILE *);
+
+/*
+ * Handle getc() when the buffer ran out:
+ * Refill, then return the first character
+ * in the newly-filled buffer.
+ */
+int ib__srget(register IB_FILE * fp)
+{
+	if (ib__srefill(fp) == 0) {
+		fp->_r--;
+		return (*fp->_p++);
+	}
+	return (EOF);
+}
+int ib_scanf(char const *fmt, ...)
+{
+	int ret;
+	va_list ap;
+
+	va_start(ap, fmt);
+	FLOCKFILE(ib_stdin);
+	ret = ib__svfscanf(ib_stdin, fmt, ap);
+	FUNLOCKFILE(ib_stdin);
+	va_end(ap);
+	return (ret);
+}
+
+void ib_setbuf(IB_FILE * fp, char *buf)
+{
+	(void) ib_setvbuf(fp, buf, buf ? _IOFBF : _IONBF, BUFSIZ);
+}
+
+void ib_setbuffer(register IB_FILE * fp, char *buf, int size)
+{
+
+	(void) ib_setvbuf(fp, buf, buf ? _IOFBF : _IONBF, (size_t) size);
+}
+
+/*
+ * set line buffering
+ */
+int ib_setlinebuf(IB_FILE * fp)
+{
+
+	return (ib_setvbuf(fp, (char *) NULL, _IOLBF, (size_t) 0));
+}
+
+/*
+ * Set one of the three kinds of buffering, optionally including
+ * a buffer.
+ */
+int ib_setvbuf(register IB_FILE * fp,
+			   char *buf, register int mode, register size_t size)
+{
+	register int ret, flags;
+	size_t iosize;
+	int ttyflag;
+
+	/*
+	 * Verify arguments.  The `int' limit on `size' is due to this
+	 * particular implementation.  Note, buf and size are ignored
+	 * when setting _IONBF.
+	 */
+	if (mode != _IONBF)
+		if ((mode != _IOFBF && mode != _IOLBF) || (int) size < 0)
+			return (EOF);
+
+	FLOCKFILE(fp);
+	/*
+	 * Write current buffer, if any.  Discard unread input (including
+	 * ungetc data), cancel line buffering, and free old buffer if
+	 * malloc()ed.  We also clear any eof condition, as if this were
+	 * a seek.
+	 */
+	ret = 0;
+	(void) ib__sflush(fp);
+	if (HASUB(fp))
+		FREEUB(fp);
+	fp->_r = fp->_lbfsize = 0;
+	flags = fp->_flags;
+	if (flags & IB__SMBF)
+		free((void *) fp->_bf._base);
+	flags &= ~(IB__SLBF | IB__SNBF | IB__SMBF | IB__SOPT |
+			   IB__SNPT | IB__SEOF);
+
+	/* If setting unbuffered mode, skip all the hard work. */
+	if (mode == _IONBF)
+		goto nbf;
+
+	/*
+	 * Find optimal I/O size for seek optimization.  This also returns
+	 * a `tty flag' to suggest that we check isatty(fd), but we do not
+	 * care since our caller told us how to buffer.
+	 */
+	flags |= ib__swhatbuf(fp, &iosize, &ttyflag);
+	if (size == 0) {
+		buf = NULL;				/* force local allocation */
+		size = iosize;
+	}
+
+	/* Allocate buffer if needed. */
+	if (buf == NULL) {
+		if ((buf = malloc(size)) == NULL) {
+			/*
+			 * Unable to honor user's request.  We will return
+			 * failure, but try again with file system size.
+			 */
+			ret = EOF;
+			if (size != iosize) {
+				size = iosize;
+				buf = malloc(size);
+			}
+		}
+		if (buf == NULL) {
+			/* No luck; switch to unbuffered I/O. */
+		  nbf:
+			fp->_flags = flags | IB__SNBF;
+			fp->_w = 0;
+			fp->_bf._base = fp->_p = fp->_nbuf;
+			fp->_bf._size = 1;
+			FUNLOCKFILE(fp);
+			return (ret);
+		}
+		flags |= IB__SMBF;
+	}
+
+	/*
+	 * Kill any seek optimization if the buffer is not the
+	 * right size.
+	 *
+	 * SHOULD WE ALLOW MULTIPLES HERE (i.e., ok iff (size % iosize) == 0)?
+	 */
+	if (size != iosize)
+		flags |= IB__SNPT;
+
+	/*
+	 * Fix up the FILE fields, and set ib__cleanup for output flush on
+	 * exit (since we are buffered in some way).
+	 */
+	if (mode == _IOLBF)
+		flags |= IB__SLBF;
+	fp->_flags = flags;
+	fp->_bf._base = fp->_p = (unsigned char *) buf;
+	fp->_bf._size = size;
+	/* fp->_lbfsize is still 0 */
+	if (flags & IB__SWR) {
+		/*
+		 * Begin or continue writing: see ib__swsetup().  Note
+		 * that IB__SNBF is impossible (it was handled earlier).
+		 */
+		if (flags & IB__SLBF) {
+			fp->_w = 0;
+			fp->_lbfsize = -fp->_bf._size;
+		}
+		else
+			fp->_w = size;
+	}
+	else {
+		/* begin/continue reading, or stay in intermediate state */
+		fp->_w = 0;
+	}
+	/* ib__cleanup = ib_cleanup; */
+
+	FUNLOCKFILE(fp);
+	return (ret);
+}
+
+/*
+ * Small standard I/O/seek/close functions.
+ * These maintain the `known seek offset' for seek optimisation.
+ */
+static int ib__sread(void *cookie, char *buf, int n)
+{
+	register IB_FILE *fp = cookie;
+	register int ret;
+
+	ret = read(fp->_file, buf, (size_t) n);
+	/* if the read succeeded, update the current offset */
+	if (ret >= 0)
+		fp->_offset += ret;
+	else
+		fp->_flags &= ~IB__SOFF;	/* paranoia */
+	return (ret);
+}
+
+static int ib__swrite(void *cookie, char const *buf, int n)
+{
+	register IB_FILE *fp = cookie;
+
+	if (fp->_flags & IB__SAPP)
+		(void) lseek(fp->_file, (off_t) 0, SEEK_END);
+	fp->_flags &= ~IB__SOFF;	/* in case FAPPEND mode is set */
+	return (write(fp->_file, buf, (size_t) n));
+}
+
+static ib_fpos_t ib__sseek(void *cookie, ib_fpos_t offset, int whence)
+{
+	register IB_FILE *fp = cookie;
+	register off_t ret;
+
+	ret = lseek(fp->_file, (off_t) offset, whence);
+	if (ret == -1)
+		fp->_flags &= ~IB__SOFF;
+	else {
+		fp->_flags |= IB__SOFF;
+		fp->_offset = ret;
+	}
+	return (ret);
+}
+
+static int ib__sclose(void *cookie)
+{
+	return (close(((IB_FILE *) cookie)->_file));
+}
+
+IB_FILE *ib_tmpfile(void)
+{
+	sigset_t set, oset;
+	IB_FILE *fp;
+	int fd, sverrno;
+#define	TRAILER	"tmp.XXXXXX"
+	char buf[sizeof(_PATH_TMP) + sizeof(TRAILER)];
+
+	(void) memcpy(buf, _PATH_TMP, sizeof(_PATH_TMP) - 1);
+	(void) memcpy(buf + sizeof(_PATH_TMP) - 1, TRAILER, sizeof(TRAILER));
+
+	sigfillset(&set);
+	(void) sigprocmask(SIG_BLOCK, &set, &oset);
+
+	fd = mkstemp(buf);
+	if (fd != -1)
+		(void) unlink(buf);
+
+	(void) sigprocmask(SIG_SETMASK, &oset, NULL);
+
+	if (fd == -1)
+		return (NULL);
+
+	if ((fp = ib_fdopen(fd, "w+")) == NULL) {
+		sverrno = errno;
+		(void) close(fd);
+		errno = sverrno;
+		return (NULL);
+	}
+	return (fp);
+}
+
+/*
+ * Expand the ungetc buffer `in place'.  That is, adjust fp->_p when
+ * the buffer moves, so that it points the same distance from the end,
+ * and move the bytes in the buffer around as necessary so that they
+ * are all at the end (stack-style).
+ */
+static int ib__submore(register IB_FILE * fp)
+{
+	register int i;
+	register unsigned char *p;
+
+	if (fp->_ub._base == fp->_ubuf) {
+		/*
+		 * Get a new buffer (rather than expanding the old one).
+		 */
+		if ((p = malloc((size_t) BUFSIZ)) == NULL)
+			return (EOF);
+		fp->_ub._base = p;
+		fp->_ub._size = BUFSIZ;
+		p += BUFSIZ - sizeof(fp->_ubuf);
+		for (i = sizeof(fp->_ubuf); --i >= 0;)
+			p[i] = fp->_ubuf[i];
+		fp->_p = p;
+		return (0);
+	}
+	i = fp->_ub._size;
+	p = realloc(fp->_ub._base, (size_t) (i << 1));
+	if (p == NULL)
+		return (EOF);
+	/* no overlap (hence can use memcpy) because we doubled the size */
+	(void) memcpy((void *) (p + i), (void *) p, (size_t) i);
+	fp->_p = p + i;
+	fp->_ub._base = p;
+	fp->_ub._size = i << 1;
+	return (0);
+}
+
+int ib_ungetc(int c, register IB_FILE * fp)
+{
+	if (c == EOF)
+		return (EOF);
+	if (!ib__sdidinit)
+		ib__sinit();
+	FLOCKFILE(fp);
+	if ((fp->_flags & IB__SRD) == 0) {
+		/*
+		 * Not already reading: no good unless reading-and-writing.
+		 * Otherwise, flush any current write stuff.
+		 */
+		if ((fp->_flags & IB__SRW) == 0) {
+			FUNLOCKFILE(fp);
+			return (EOF);
+		}
+		if (fp->_flags & IB__SWR) {
+			if (ib__sflush(fp)) {
+				FUNLOCKFILE(fp);
+				return (EOF);
+			}
+			fp->_flags &= ~IB__SWR;
+			fp->_w = 0;
+			fp->_lbfsize = 0;
+		}
+		fp->_flags |= IB__SRD;
+	}
+	c = (unsigned char) c;
+
+	/*
+	 * If we are in the middle of ungetc'ing, just continue.
+	 * This may require expanding the current ungetc buffer.
+	 */
+	if (HASUB(fp)) {
+		if (fp->_r >= fp->_ub._size && ib__submore(fp)) {
+			FUNLOCKFILE(fp);
+			return (EOF);
+		}
+		*--fp->_p = c;
+		fp->_r++;
+		FUNLOCKFILE(fp);
+		return (c);
+	}
+	fp->_flags &= ~IB__SEOF;
+
+	/*
+	 * If we can handle this by simply backing up, do so,
+	 * but never replace the original character.
+	 * (This makes sscanf() work when scanning `const' data.)
+	 */
+	if (fp->_bf._base != NULL && fp->_p > fp->_bf._base && fp->_p[-1] == c) {
+		fp->_p--;
+		fp->_r++;
+		FUNLOCKFILE(fp);
+		return (c);
+	}
+
+	/*
+	 * Create an ungetc buffer.
+	 * Initially, we will use the `reserve' buffer.
+	 */
+	fp->_ur = fp->_r;
+	fp->_up = fp->_p;
+	fp->_ub._base = fp->_ubuf;
+	fp->_ub._size = sizeof(fp->_ubuf);
+	fp->_ubuf[sizeof(fp->_ubuf) - 1] = c;
+	fp->_p = &fp->_ubuf[sizeof(fp->_ubuf) - 1];
+	fp->_r = 1;
+	FUNLOCKFILE(fp);
+	return (c);
+}
+
+/*
+ * Actual printf innards.
+ *
+ * This code is large and complicated...
+ */
+
+/* Define FLOATING_POINT to get floating point. */
+#define	FLOATING_POINT
+
+static int ib__sprint(IB_FILE *, struct ib__suio *);
+static int ib__sbprintf(IB_FILE *, const char *, va_list);
+static char *ib__ultoa(u_long, char *, int, int, char *);
+static char *ib__uqtoa(u_quad_t, char *, int, int, char *);
+static void ib__find_arguments(const char *, va_list, void ***);
+static void ib__grow_type_table(int, unsigned char **, int *);
+
+/*
+ * Flush out all the vectors defined by the given uio,
+ * then reset it so that it can be reused.
+ */
+static int ib__sprint(IB_FILE * fp, register struct ib__suio *uio)
+{
+	register int err;
+
+	if (uio->uio_resid == 0) {
+		uio->uio_iovcnt = 0;
+		return (0);
+	}
+	err = ib__sfvwrite(fp, uio);
+	uio->uio_resid = 0;
+	uio->uio_iovcnt = 0;
+	return (err);
+}
+
+/*
+ * Helper function for `fprintf to unbuffered unix file': creates a
+ * temporary buffer.  We only work on write-only files; this avoids
+ * worries about ungetc buffers and so forth.
+ */
+static int ib__sbprintf(register IB_FILE * fp, const char *fmt, va_list ap)
+{
+	int ret;
+	IB_FILE fake;
+	unsigned char buf[BUFSIZ];
+
+	/* copy the important variables */
+	fake._flags = fp->_flags & ~IB__SNBF;
+	fake._file = fp->_file;
+	fake._cookie = fp->_cookie;
+	fake._write = fp->_write;
+
+	/* set up the buffer */
+	fake._bf._base = fake._p = buf;
+	fake._bf._size = fake._w = sizeof(buf);
+	fake._lbfsize = 0;			/* not actually used, but Just In Case */
+
+	/* do the work, then copy any error status */
+	ret = ib_vfprintf(&fake, fmt, ap);
+	if (ret >= 0 && ib_fflush(&fake))
+		ret = EOF;
+	if (fake._flags & IB__SERR)
+		fp->_flags |= IB__SERR;
+	return (ret);
+}
+
+/*
+ * Macros for converting digits to letters and vice versa
+ */
+#define	to_digit(c)	((c) - '0')
+#define is_digit(c)	((unsigned)to_digit(c) <= 9)
+#define	to_char(n)	((n) + '0')
+
+/*
+ * Convert an unsigned long to ASCII for printf purposes, returning
+ * a pointer to the first character of the string representation.
+ * Octal numbers can be forced to have a leading zero; hex numbers
+ * use the given digits.
+ */
+static char *ib__ultoa(register u_long val, char *endp, int base, int octzero,
+					   char *xdigs)
+{
+	register char *cp = endp;
+	register long sval;
+
+	/*
+	 * Handle the three cases separately, in the hope of getting
+	 * better/faster code.
+	 */
+	switch (base) {
+	case 10:
+		if (val < 10) {			/* many numbers are 1 digit */
+			*--cp = to_char(val);
+			return (cp);
+		}
+		/*
+		 * On many machines, unsigned arithmetic is harder than
+		 * signed arithmetic, so we do at most one unsigned mod and
+		 * divide; this is sufficient to reduce the range of
+		 * the incoming value to where signed arithmetic works.
+		 */
+		if (val > LONG_MAX) {
+			*--cp = to_char(val % 10);
+			sval = val / 10;
+		}
+		else
+			sval = val;
+		do {
+			*--cp = to_char(sval % 10);
+			sval /= 10;
+		} while (sval != 0);
+		break;
+
+	case 8:
+		do {
+			*--cp = to_char(val & 7);
+			val >>= 3;
+		} while (val);
+		if (octzero && *cp != '0')
+			*--cp = '0';
+		break;
+
+	case 16:
+		do {
+			*--cp = xdigs[val & 15];
+			val >>= 4;
+		} while (val);
+		break;
+
+	default:					/* oops */
+		abort();
+	}
+	return (cp);
+}
+
+/* Identical to ib__ultoa, but for quads. */
+static char *ib__uqtoa(register u_quad_t val, char *endp,
+					   int base, int octzero, char *xdigs)
+{
+	register char *cp = endp;
+	register quad_t sval;
+
+	/* quick test for small values; ib__ultoa is typically much faster */
+	/* (perhaps instead we should run until small, then call ib__ultoa?) */
+	if (val <= ULONG_MAX)
+		return (ib__ultoa((u_long) val, endp, base, octzero, xdigs));
+	switch (base) {
+	case 10:
+		if (val < 10) {
+			*--cp = to_char(val % 10);
+			return (cp);
+		}
+		if (val > QUAD_MAX) {
+			*--cp = to_char(val % 10);
+			sval = val / 10;
+		}
+		else
+			sval = val;
+		do {
+			*--cp = to_char(sval % 10);
+			sval /= 10;
+		} while (sval != 0);
+		break;
+
+	case 8:
+		do {
+			*--cp = to_char(val & 7);
+			val >>= 3;
+		} while (val);
+		if (octzero && *cp != '0')
+			*--cp = '0';
+		break;
+
+	case 16:
+		do {
+			*--cp = xdigs[val & 15];
+			val >>= 4;
+		} while (val);
+		break;
+
+	default:
+		abort();
+	}
+	return (cp);
+}
+
+
+#define	BUF		(MAXEXP+MAXFRACT+1)	/* + decimal point */
+#define	DEFPREC		6
+
+static char *cvt(double, int, int, char *, int *, int, int *);
+static int exponent(char *, int, int);
+
+#ifdef SOLARIS
+
+/* On Solaris 2.6 or 7, "man isinf" will tell you to include <sunmath.h>
+ * and link with -lsunmath.  Unfortunatel, neither /usr/include/sunmath.h
+ * nor /usr/lib/libsunmath.* exists on Sparc Solaris 2.6 or 7 systems
+ * available to us, so we supply a substitute here.
+ */
+static int isinf(double x)
+{
+	fpclass_t class_;
+
+	class_ = fpclass(x);
+	return (FP_NINF == class_) || (FP_PINF == class_);
+}
+
+#endif
+
+
+#define STATIC_ARG_TBL_SIZE 8	/* Size of static argument table. */
+
+/*
+ * Flags used during conversion.
+ */
+#define	ALT		0x001			/* alternate form */
+#define	HEXPREFIX	0x002		/* add 0x or 0X prefix */
+#define	LADJUST		0x004		/* left adjustment */
+#define	LONGDBL		0x008		/* long double */
+#define	LONGINT		0x010		/* long integer */
+#define	QUADINT		0x020		/* quad integer */
+#define	SHORTINT	0x040		/* short integer */
+#define	ZEROPAD		0x080		/* zero (as opposed to blank) pad */
+#define FPT		0x100			/* Floating point number */
+int ib_vfprintf(IB_FILE * fp, const char *fmt0, va_list ap)
+{
+	register char *fmt;			/* format string */
+	register int ch;			/* character from fmt */
+	register int n, n2;			/* handy integer (short term usage) */
+	register char *cp;			/* handy char pointer (short term usage) */
+	register struct ib__siov *iovp;	/* for PRINT macro */
+	register int flags;			/* flags as above */
+	int ret;					/* return value accumulator */
+	int width;					/* width from format (%8d), or 0 */
+	int prec;					/* precision from format (%.3d), or -1 */
+	char sign;					/* sign prefix (' ', '+', '-', or \0) */
+	char softsign;				/* temporary negative sign for floats */
+	double _double;				/* double precision arguments %[eEfgG] */
+	int expt;					/* integer value of exponent */
+	int expsize;				/* character count for expstr */
+	int ndig;					/* actual number of digits returned by cvt */
+	char expstr[7];				/* buffer for exponent string */
+	u_long ulval;				/* integer arguments %[diouxX] */
+	u_quad_t uqval;				/* %q integers */
+	int base;					/* base for [diouxX] conversion */
+	int dprec;					/* a copy of prec if [diouxX], 0 otherwise */
+	int realsz;					/* field size expanded by dprec, sign, etc */
+	int size;					/* size of converted field or string */
+	int prsize;					/* max size of printed field */
+	char *xdigs;				/* digits for [xX] conversion */
+#define NIOV 8
+	struct ib__suio uio;		/* output information: summary */
+	struct ib__siov iov[NIOV];	/* ... and individual io vectors */
+	char buf[BUF];				/* space for %c, %[diouxX], %[eEfgG] */
+	char ox[2];					/* space for 0x hex-prefix */
+	void **argtable;			/* args, built due to positional arg */
+	void *statargtable[STATIC_ARG_TBL_SIZE];
+	int nextarg;				/* 1-based argument index */
+	va_list orgap;				/* original argument pointer */
+
+	/*
+	 * Choose PADSIZE to trade efficiency vs. size.  If larger printf
+	 * fields occur frequently, increase PADSIZE and make the initialisers
+	 * below longer.
+	 */
+#define	PADSIZE	16				/* pad chunk size */
+	static char blanks[PADSIZE] =
+		{ ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ',
+		' ', ' ', ' '
+	};
+	static char zeroes[PADSIZE] =
+		{ '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0',
+		'0', '0', '0'
+	};
+
+	/*
+	 * BEWARE, these `goto error' on error, and PAD uses `n'.
+	 */
+#define	PRINT(ptr, len) { \
+	iovp->iov_base = (ptr); \
+	iovp->iov_len = (len); \
+	uio.uio_resid += (len); \
+	iovp++; \
+	if (++uio.uio_iovcnt >= NIOV) { \
+		if (ib__sprint(fp, &uio)) \
+			goto error; \
+		iovp = iov; \
+	} \
+}
+#define	PAD(howmany, with) { \
+	if ((n = (howmany)) > 0) { \
+		while (n > PADSIZE) { \
+			PRINT(with, PADSIZE); \
+			n -= PADSIZE; \
+		} \
+		PRINT(with, n); \
+	} \
+}
+#define	FLUSH() { \
+	if (uio.uio_resid && ib__sprint(fp, &uio)) \
+		goto error; \
+	uio.uio_iovcnt = 0; \
+	iovp = iov; \
+}
+
+	/*
+	 * Get the argument indexed by nextarg.   If the argument table is
+	 * built, use it to get the argument.  If its not, get the next
+	 * argument (and arguments must be gotten sequentially).
+	 */
+#define GETARG(type) \
+        ((argtable != NULL) ? *((type*)(argtable[nextarg++])) : \
+            (nextarg++, va_arg(ap, type)))
+
+	/*
+	 * To extend shorts properly, we need both signed and unsigned
+	 * argument extraction methods.
+	 */
+#define	SARG() \
+	(flags&LONGINT ? GETARG(long) : \
+	    flags&SHORTINT ? (long)(short)GETARG(int) : \
+	    (long)GETARG(int))
+#define	UARG() \
+	(flags&LONGINT ? GETARG(u_long) : \
+	    flags&SHORTINT ? (u_long)(u_short)GETARG(int) : \
+	    (u_long)GETARG(u_int))
+
+	/*
+	 * Get * arguments, including the form *nn$.  Preserve the nextarg
+	 * that the argument can be gotten once the type is determined.
+	 */
+#define GETASTER(val) \
+        n2 = 0; \
+        cp = fmt; \
+        while (is_digit(*cp)) { \
+                n2 = 10 * n2 + to_digit(*cp); \
+                cp++; \
+        } \
+        if (*cp == '$') { \
+            	int hold = nextarg; \
+                if (argtable == NULL) { \
+                        argtable = statargtable; \
+                        ib__find_arguments (fmt0, orgap, &argtable); \
+                } \
+                nextarg = n2; \
+                val = GETARG (int); \
+                nextarg = hold; \
+                fmt = ++cp; \
+        } else { \
+		val = GETARG (int); \
+        }
+
+
+	FLOCKFILE(fp);
+	/* sorry, ib_fprintf(read_only_file, "") returns EOF, not 0 */
+	if (cantwrite(fp)) {
+		FUNLOCKFILE(fp);
+		return (EOF);
+	}
+
+	/* optimise ib_fprintf(stderr) (and other unbuffered Unix files) */
+	if ((fp->_flags & (IB__SNBF | IB__SWR | IB__SRW)) == (IB__SNBF | IB__SWR)
+		&& fp->_file >= 0) {
+		FUNLOCKFILE(fp);
+		return (ib__sbprintf(fp, fmt0, ap));
+	}
+
+	fmt = (char *) fmt0;
+	argtable = NULL;
+	nextarg = 1;
+	orgap = ap;
+	uio.uio_iov = iovp = iov;
+	uio.uio_resid = 0;
+	uio.uio_iovcnt = 0;
+	ret = 0;
+
+	/*
+	 * Scan the format for conversions (`%' character).
+	 */
+	for (;;) {
+		for (cp = fmt; (ch = *fmt) != '\0' && ch != '%'; fmt++)
+			/* void */ ;
+		if ((n = fmt - cp) != 0) {
+			if ((unsigned) ret + n > INT_MAX) {
+				ret = EOF;
+				goto error;
+			}
+			PRINT(cp, n);
+			ret += n;
+		}
+		if (ch == '\0')
+			goto done;
+		fmt++;					/* skip over '%' */
+
+		flags = 0;
+		dprec = 0;
+		width = 0;
+		prec = -1;
+		sign = '\0';
+
+	  rflag:ch = *fmt++;
+	  reswitch:switch (ch) {
+		case ' ':
+			/*
+			 * ``If the space and + flags both appear, the space
+			 * flag will be ignored.''
+			 *  -- ANSI X3J11
+			 */
+			if (!sign)
+				sign = ' ';
+			goto rflag;
+		case '#':
+			flags |= ALT;
+			goto rflag;
+		case '*':
+			/*
+			 * ``A negative field width argument is taken as a
+			 * - flag followed by a positive field width.''
+			 *  -- ANSI X3J11
+			 * They don't exclude field widths read from args.
+			 */
+			GETASTER(width);
+			if (width >= 0)
+				goto rflag;
+			width = -width;
+			/* FALLTHROUGH */
+		case '-':
+			flags |= LADJUST;
+			goto rflag;
+		case '+':
+			sign = '+';
+			goto rflag;
+		case '.':
+			if ((ch = *fmt++) == '*') {
+				GETASTER(n);
+				prec = n < 0 ? -1 : n;
+				goto rflag;
+			}
+			n = 0;
+			while (is_digit(ch)) {
+				n = 10 * n + to_digit(ch);
+				ch = *fmt++;
+			}
+			prec = n < 0 ? -1 : n;
+			goto reswitch;
+		case '0':
+			/*
+			 * ``Note that 0 is taken as a flag, not as the
+			 * beginning of a field width.''
+			 *  -- ANSI X3J11
+			 */
+			flags |= ZEROPAD;
+			goto rflag;
+		case '1':
+		case '2':
+		case '3':
+		case '4':
+		case '5':
+		case '6':
+		case '7':
+		case '8':
+		case '9':
+			n = 0;
+			do {
+				n = 10 * n + to_digit(ch);
+				ch = *fmt++;
+			} while (is_digit(ch));
+			if (ch == '$') {
+				nextarg = n;
+				if (argtable == NULL) {
+					argtable = statargtable;
+					ib__find_arguments(fmt0, orgap, &argtable);
+				}
+				goto rflag;
+			}
+			width = n;
+			goto reswitch;
+#ifdef FLOATING_POINT
+		case 'L':
+			flags |= LONGDBL;
+			goto rflag;
+#endif
+		case 'h':
+			flags |= SHORTINT;
+			goto rflag;
+		case 'l':
+			if (flags & LONGINT)
+				flags |= QUADINT;
+			else
+				flags |= LONGINT;
+			goto rflag;
+		case 'q':
+			flags |= QUADINT;
+			goto rflag;
+		case 'c':
+			*(cp = buf) = GETARG(int);
+			size = 1;
+			sign = '\0';
+			break;
+		case 'D':
+			flags |= LONGINT;
+		 /*FALLTHROUGH*/ case 'd':
+		case 'i':
+			if (flags & QUADINT) {
+				uqval = GETARG(quad_t);
+				if ((quad_t) uqval < 0) {
+					uqval = -uqval;
+					sign = '-';
+				}
+			}
+			else {
+				ulval = SARG();
+				if ((long) ulval < 0) {
+					ulval = -ulval;
+					sign = '-';
+				}
+			}
+			base = 10;
+			goto number;
+		case 'e':
+		case 'E':
+		case 'f':
+			goto fp_begin;
+		case 'g':
+		case 'G':
+			if (prec == 0)
+				prec = 1;
+		  fp_begin:if (prec == -1)
+				prec = DEFPREC;
+			if (flags & LONGDBL)
+				/* XXX this loses precision. */
+				_double = (double) GETARG(long double);
+			else
+				_double = GETARG(double);
+			/* do this before tricky precision changes */
+			if (isinf(_double)) {
+				if (_double < 0)
+					sign = '-';
+				cp = "Inf";
+				size = 3;
+				break;
+			}
+			if (isnan(_double)) {
+				cp = "NaN";
+				size = 3;
+				break;
+			}
+			flags |= FPT;
+			cp = cvt(_double, prec, flags, &softsign, &expt, ch, &ndig);
+			if (ch == 'g' || ch == 'G') {
+				if (expt <= -4 || expt > prec)
+					ch = (ch == 'g') ? 'e' : 'E';
+				else
+					ch = 'g';
+			}
+			if (ch <= 'e') {	/* 'e' or 'E' fmt */
+				--expt;
+				expsize = exponent(expstr, expt, ch);
+				size = expsize + ndig;
+				if (ndig > 1 || flags & ALT)
+					++size;
+			}
+			else if (ch == 'f') {	/* f fmt */
+				if (expt > 0) {
+					size = expt;
+					if (prec || flags & ALT)
+						size += prec + 1;
+				}
+				else			/* "0.X" */
+					size = prec + 2;
+			}
+			else if (expt >= ndig) {	/* fixed g fmt */
+				size = expt;
+				if (flags & ALT)
+					++size;
+			}
+			else
+				size = ndig + (expt > 0 ? 1 : 2 - expt);
+
+			if (softsign)
+				sign = '-';
+			break;
+
+		case 'n':
+			if (flags & QUADINT)
+				*GETARG(quad_t *) = ret;
+			else if (flags & LONGINT)
+				*GETARG(long *) = ret;
+			else if (flags & SHORTINT)
+				*GETARG(short *) = ret;
+			else
+				*GETARG(int *) = ret;
+			continue;			/* no output */
+		case 'O':
+			flags |= LONGINT;
+		 /*FALLTHROUGH*/ case 'o':
+			if (flags & QUADINT)
+				uqval = GETARG(u_quad_t);
+			else
+				ulval = UARG();
+			base = 8;
+			goto nosign;
+		case 'p':
+			/*
+			 * ``The argument shall be a pointer to void.  The
+			 * value of the pointer is converted to a sequence
+			 * of printable characters, in an implementation-
+			 * defined manner.''
+			 *  -- ANSI X3J11
+			 */
+			ulval = (u_long) GETARG(void *);
+			base = 16;
+			xdigs = "0123456789abcdef";
+			flags = (flags & ~QUADINT) | HEXPREFIX;
+			ch = 'x';
+			goto nosign;
+		case 's':
+			if ((cp = GETARG(char *)) == NULL)
+				  cp = "(null)";
+			if (prec >= 0) {
+				/*
+				 * can't use strlen; can only look for the
+				 * NUL in the first `prec' characters, and
+				 * strlen() will go further.
+				 */
+				char *p = memchr(cp, 0, (size_t) prec);
+
+				if (p != NULL) {
+					size = p - cp;
+					if (size > prec)
+						size = prec;
+				}
+				else
+					size = prec;
+			}
+			else
+				size = strlen(cp);
+			sign = '\0';
+			break;
+		case 'U':
+			flags |= LONGINT;
+		 /*FALLTHROUGH*/ case 'u':
+			if (flags & QUADINT)
+				uqval = GETARG(u_quad_t);
+			else
+				ulval = UARG();
+			base = 10;
+			goto nosign;
+		case 'X':
+			xdigs = "0123456789ABCDEF";
+			goto hex;
+		case 'x':
+			xdigs = "0123456789abcdef";
+		  hex:if (flags & QUADINT)
+				uqval = GETARG(u_quad_t);
+			else
+				ulval = UARG();
+			base = 16;
+			/* leading 0x/X only if non-zero */
+			if (flags & ALT && (flags & QUADINT ? uqval != 0 : ulval != 0))
+				flags |= HEXPREFIX;
+
+			/* unsigned conversions */
+		  nosign:sign = '\0';
+			/*
+			 * ``... diouXx conversions ... if a precision is
+			 * specified, the 0 flag will be ignored.''
+			 *  -- ANSI X3J11
+			 */
+		  number:if ((dprec = prec) >= 0)
+				flags &= ~ZEROPAD;
+
+			/*
+			 * ``The result of converting a zero value with an
+			 * explicit precision of zero is no characters.''
+			 *  -- ANSI X3J11
+			 */
+			cp = buf + BUF;
+			if (flags & QUADINT) {
+				if (uqval != 0 || prec != 0)
+					cp = ib__uqtoa(uqval, cp, base, flags & ALT, xdigs);
+			}
+			else {
+				if (ulval != 0 || prec != 0)
+					cp = ib__ultoa(ulval, cp, base, flags & ALT, xdigs);
+			}
+			size = buf + BUF - cp;
+			break;
+		default:				/* "%?" prints ?, unless ? is NUL */
+			if (ch == '\0')
+				goto done;
+			/* pretend it was %c with argument ch */
+			cp = buf;
+			*cp = ch;
+			size = 1;
+			sign = '\0';
+			break;
+		}
+
+		/*
+		 * All reasonable formats wind up here.  At this point, `cp'
+		 * points to a string which (if not flags&LADJUST) should be
+		 * padded out to `width' places.  If flags&ZEROPAD, it should
+		 * first be prefixed by any sign or other prefix; otherwise,
+		 * it should be blank padded before the prefix is emitted.
+		 * After any left-hand padding and prefixing, emit zeroes
+		 * required by a decimal [diouxX] precision, then print the
+		 * string proper, then emit zeroes required by any leftover
+		 * floating precision; finally, if LADJUST, pad with blanks.
+		 *
+		 * Compute actual size, so we know how much to pad.
+		 * size excludes decimal prec; realsz includes it.
+		 */
+		realsz = dprec > size ? dprec : size;
+		if (sign)
+			realsz++;
+		else if (flags & HEXPREFIX)
+			realsz += 2;
+
+		prsize = width > realsz ? width : realsz;
+		if ((unsigned) ret + prsize > INT_MAX) {
+			ret = EOF;
+			goto error;
+		}
+
+		/* right-adjusting blank padding */
+		if ((flags & (LADJUST | ZEROPAD)) == 0)
+			PAD(width - realsz, blanks);
+
+		/* prefix */
+		if (sign) {
+			PRINT(&sign, 1);
+		}
+		else if (flags & HEXPREFIX) {
+			ox[0] = '0';
+			ox[1] = ch;
+			PRINT(ox, 2);
+		}
+
+		/* right-adjusting zero padding */
+		if ((flags & (LADJUST | ZEROPAD)) == ZEROPAD)
+			PAD(width - realsz, zeroes);
+
+		/* leading zeroes from decimal precision */
+		PAD(dprec - size, zeroes);
+
+		/* the string or number proper */
+
+		if ((flags & FPT) == 0) {
+			PRINT(cp, size);
+		}
+		else {					/* glue together f_p fragments */
+			if (ch >= 'f') {	/* 'f' or 'g' */
+				if (_double == 0) {
+					/* kludge for ib__dtoa irregularity */
+					if (expt >= ndig && (flags & ALT) == 0) {
+						PRINT("0", 1);
+					}
+					else {
+						PRINT("0.", 2);
+						PAD(ndig - 1, zeroes);
+					}
+				}
+				else if (expt <= 0) {
+					PRINT("0.", 2);
+					PAD(-expt, zeroes);
+					PRINT(cp, ndig);
+				}
+				else if (expt >= ndig) {
+					PRINT(cp, ndig);
+					PAD(expt - ndig, zeroes);
+					if (flags & ALT)
+						PRINT(".", 1);
+				}
+				else {
+					PRINT(cp, expt);
+					cp += expt;
+					PRINT(".", 1);
+					PRINT(cp, ndig - expt);
+				}
+			}
+			else {				/* 'e' or 'E' */
+				if (ndig > 1 || flags & ALT) {
+					ox[0] = *cp++;
+					ox[1] = '.';
+					PRINT(ox, 2);
+					if (_double) {
+						PRINT(cp, ndig - 1);
+					}
+					else		/* 0.[0..] */
+						/* ib__dtoa irregularity */
+						PAD(ndig - 1, zeroes);
+				}
+				else			/* XeYYY */
+					PRINT(cp, 1);
+				PRINT(expstr, expsize);
+			}
+		}
+
+		/* left-adjusting padding (always blank) */
+		if (flags & LADJUST)
+			PAD(width - realsz, blanks);
+
+		/* finally, adjust ret */
+		ret += prsize;
+
+		FLUSH();				/* copy out the I/O vectors */
+	}
+  done:
+	FLUSH();
+  error:
+	if (ib__sferror(fp))
+		ret = EOF;
+	FUNLOCKFILE(fp);
+	if ((argtable != NULL) && (argtable != statargtable))
+		free(argtable);
+	return (ret);
+	/* NOTREACHED */
+}
+
+/*
+ * Type ids for argument type table.
+ */
+#define T_UNUSED	0
+#define T_SHORT		1
+#define T_U_SHORT	2
+#define TP_SHORT	3
+#define T_INT		4
+#define T_U_INT		5
+#define TP_INT		6
+#define T_LONG		7
+#define T_U_LONG	8
+#define TP_LONG		9
+#define T_QUAD		10
+#define T_U_QUAD	11
+#define TP_QUAD		12
+#define T_DOUBLE	13
+#define T_LONG_DOUBLE	14
+#define TP_CHAR		15
+#define TP_VOID		16
+
+/*
+ * Find all arguments when a positional parameter is encountered.  Returns a
+ * table, indexed by argument number, of pointers to each arguments.  The
+ * initial argument table should be an array of STATIC_ARG_TBL_SIZE entries.
+ * It will be replaces with a malloc-ed on if it overflows.
+ */
+static void ib__find_arguments(const char *fmt0, va_list ap, void ***argtable)
+{
+	register char *fmt;			/* format string */
+	register int ch;			/* character from fmt */
+	register int n, n2;			/* handy integer (short term usage) */
+	register char *cp;			/* handy char pointer (short term usage) */
+	register int flags;			/* flags as above */
+	int width;					/* width from format (%8d), or 0 */
+	unsigned char *typetable;	/* table of types */
+	unsigned char stattypetable[STATIC_ARG_TBL_SIZE];
+	int tablesize;				/* current size of type table */
+	int tablemax;				/* largest used index in table */
+	int nextarg;				/* 1-based argument index */
+
+	/*
+	 * Add an argument type to the table, expanding if necessary.
+	 */
+	/* Solaris C was complaining that the two sides of the next ":"
+	 * operator have different types, so we cast the 0 to void,
+	 * so it will match the void return type of the function on the left.
+	 */
+	/* ib__grow_type_table(nextarg, &typetable, &tablesize) : 0,  */
+#define ADDTYPE(type) \
+	((nextarg >= tablesize) ? \
+		ib__grow_type_table(nextarg, &typetable, &tablesize) : \
+	         (void) 0, \
+	typetable[nextarg++] = type, \
+	(nextarg > tablemax) ? tablemax = nextarg : 0)
+
+#define	ADDSARG() \
+	((flags&LONGINT) ? ADDTYPE(T_LONG) : \
+		((flags&SHORTINT) ? ADDTYPE(T_SHORT) : ADDTYPE(T_INT)))
+
+#define	ADDUARG() \
+	((flags&LONGINT) ? ADDTYPE(T_U_LONG) : \
+		((flags&SHORTINT) ? ADDTYPE(T_U_SHORT) : ADDTYPE(T_U_INT)))
+
+	/*
+	 * Add * arguments to the type array.
+	 */
+#define ADDASTER() \
+	n2 = 0; \
+	cp = fmt; \
+	while (is_digit(*cp)) { \
+		n2 = 10 * n2 + to_digit(*cp); \
+		cp++; \
+	} \
+	if (*cp == '$') { \
+		int hold = nextarg; \
+		nextarg = n2; \
+		ADDTYPE (T_INT); \
+		nextarg = hold; \
+		fmt = ++cp; \
+	} else { \
+		ADDTYPE (T_INT); \
+	}
+	fmt = (char *) fmt0;
+	typetable = stattypetable;
+	tablesize = STATIC_ARG_TBL_SIZE;
+	tablemax = 0;
+	nextarg = 1;
+	memset(typetable, T_UNUSED, STATIC_ARG_TBL_SIZE);
+
+	/*
+	 * Scan the format for conversions (`%' character).
+	 */
+	for (;;) {
+		for (cp = fmt; (ch = *fmt) != '\0' && ch != '%'; fmt++)
+			/* void */ ;
+		if (ch == '\0')
+			goto done;
+		fmt++;					/* skip over '%' */
+
+		flags = 0;
+		width = 0;
+
+	  rflag:ch = *fmt++;
+	  reswitch:switch (ch) {
+		case ' ':
+		case '#':
+			goto rflag;
+		case '*':
+			/*            ADDASTER (); */
+			goto rflag;
+		case '-':
+		case '+':
+			goto rflag;
+		case '.':
+			if ((ch = *fmt++) == '*') {
+				ADDASTER();
+				goto rflag;
+			}
+			while (is_digit(ch)) {
+				ch = *fmt++;
+			}
+			goto reswitch;
+		case '0':
+			goto rflag;
+		case '1':
+		case '2':
+		case '3':
+		case '4':
+		case '5':
+		case '6':
+		case '7':
+		case '8':
+		case '9':
+			n = 0;
+			do {
+				n = 10 * n + to_digit(ch);
+				ch = *fmt++;
+			} while (is_digit(ch));
+			if (ch == '$') {
+				nextarg = n;
+				goto rflag;
+			}
+			width = n;
+			goto reswitch;
+#ifdef FLOATING_POINT
+		case 'L':
+			flags |= LONGDBL;
+			goto rflag;
+#endif
+		case 'h':
+			flags |= SHORTINT;
+			goto rflag;
+		case 'l':
+			if (flags & LONGINT)
+				flags |= QUADINT;
+			else
+				flags |= LONGINT;
+			goto rflag;
+		case 'q':
+			flags |= QUADINT;
+			goto rflag;
+		case 'c':
+			ADDTYPE(T_INT);
+			break;
+		case 'D':
+			flags |= LONGINT;
+		 /*FALLTHROUGH*/ case 'd':
+		case 'i':
+			if (flags & QUADINT) {
+				ADDTYPE(T_QUAD);
+			}
+			else {
+				ADDSARG();
+			}
+			break;
+#ifdef FLOATING_POINT
+		case 'e':
+		case 'E':
+		case 'f':
+		case 'g':
+		case 'G':
+			if (flags & LONGDBL)
+				ADDTYPE(T_LONG_DOUBLE);
+			else
+				ADDTYPE(T_DOUBLE);
+			break;
+#endif /* FLOATING_POINT */
+		case 'n':
+			if (flags & QUADINT)
+				ADDTYPE(TP_QUAD);
+			else if (flags & LONGINT)
+				ADDTYPE(TP_LONG);
+			else if (flags & SHORTINT)
+				ADDTYPE(TP_SHORT);
+			else
+				ADDTYPE(TP_INT);
+			continue;			/* no output */
+		case 'O':
+			flags |= LONGINT;
+		 /*FALLTHROUGH*/ case 'o':
+			if (flags & QUADINT)
+				ADDTYPE(T_U_QUAD);
+			else
+				ADDUARG();
+			break;
+		case 'p':
+			ADDTYPE(TP_VOID);
+			break;
+		case 's':
+			ADDTYPE(TP_CHAR);
+			break;
+		case 'U':
+			flags |= LONGINT;
+		 /*FALLTHROUGH*/ case 'u':
+			if (flags & QUADINT)
+				ADDTYPE(T_U_QUAD);
+			else
+				ADDUARG();
+			break;
+		case 'X':
+		case 'x':
+			if (flags & QUADINT)
+				ADDTYPE(T_U_QUAD);
+			else
+				ADDUARG();
+			break;
+		default:				/* "%?" prints ?, unless ? is NUL */
+			if (ch == '\0')
+				goto done;
+			break;
+		}
+	}
+  done:
+	/*
+	 * Build the argument table.
+	 */
+	if (tablemax >= STATIC_ARG_TBL_SIZE) {
+		*argtable = (void **)
+			malloc(sizeof(void *) * (tablemax + 1));
+	}
+
+	(*argtable)[0] = NULL;
+	for (n = 1; n <= tablemax; n++) {
+		switch (typetable[n]) {
+		case T_UNUSED:
+			(*argtable)[n] = (void *) &va_arg(ap, int);
+			break;
+		case T_SHORT:
+			(*argtable)[n] = (void *) &va_arg(ap, int);
+			break;
+		case T_U_SHORT:
+			(*argtable)[n] = (void *) &va_arg(ap, int);
+			break;
+		case TP_SHORT:
+			(*argtable)[n] = (void *) &va_arg(ap, short *);
+			break;
+		case T_INT:
+			(*argtable)[n] = (void *) &va_arg(ap, int);
+			break;
+		case T_U_INT:
+			(*argtable)[n] = (void *) &va_arg(ap, unsigned int);
+			break;
+		case TP_INT:
+			(*argtable)[n] = (void *) &va_arg(ap, int *);
+			break;
+		case T_LONG:
+			(*argtable)[n] = (void *) &va_arg(ap, long);
+			break;
+		case T_U_LONG:
+			(*argtable)[n] = (void *) &va_arg(ap, unsigned long);
+			break;
+		case TP_LONG:
+			(*argtable)[n] = (void *) &va_arg(ap, long *);
+			break;
+		case T_QUAD:
+			(*argtable)[n] = (void *) &va_arg(ap, quad_t);
+			break;
+		case T_U_QUAD:
+			(*argtable)[n] = (void *) &va_arg(ap, u_quad_t);
+			break;
+		case TP_QUAD:
+			(*argtable)[n] = (void *) &va_arg(ap, quad_t *);
+			break;
+		case T_DOUBLE:
+			(*argtable)[n] = (void *) &va_arg(ap, double);
+			break;
+		case T_LONG_DOUBLE:
+			(*argtable)[n] = (void *) &va_arg(ap, long double);
+			break;
+		case TP_CHAR:
+			(*argtable)[n] = (void *) &va_arg(ap, char *);
+			break;
+		case TP_VOID:
+			(*argtable)[n] = (void *) &va_arg(ap, void *);
+			break;
+		}
+	}
+
+	if ((typetable != NULL) && (typetable != stattypetable))
+		free(typetable);
+}
+
+/*
+ * Increase the size of the type table.
+ */
+static void
+ib__grow_type_table(int nextarg, unsigned char **typetable, int *tablesize)
+{
+	unsigned char *oldtable = *typetable;
+	int newsize = *tablesize * 2;
+
+	if (*tablesize == STATIC_ARG_TBL_SIZE) {
+		*typetable = (unsigned char *)
+			malloc(sizeof(unsigned char) * newsize);
+		bcopy(oldtable, *typetable, *tablesize);
+	}
+	else {
+		*typetable = (unsigned char *)
+			reallocf(typetable, sizeof(unsigned char) * newsize);
+
+	}
+	memset(&typetable[*tablesize], T_UNUSED, (newsize - *tablesize));
+
+	*tablesize = newsize;
+}
+
+
+static char *cvt(double value, int ndigits, int flags, char *sign,
+				 int *decpt, int ch, int *length)
+{
+	int mode, dsgn;
+	char *digits, *bp, *rve;
+
+	if (ch == 'f')
+		mode = 3;				/* ndigits after the decimal point */
+	else {
+		/*
+		 * To obtain ndigits after the decimal point for the 'e'
+		 * and 'E' formats, round to ndigits + 1 significant
+		 * figures.
+		 */
+		if (ch == 'e' || ch == 'E')
+			ndigits++;
+		mode = 2;				/* ndigits significant digits */
+	}
+	if (value < 0) {
+		value = -value;
+		*sign = '-';
+	}
+	else
+		*sign = '\000';
+	digits = ib__dtoa(value, mode, ndigits, decpt, &dsgn, &rve);
+	if ((ch != 'g' && ch != 'G') || flags & ALT) {
+		/* print trailing zeros */
+		bp = digits + ndigits;
+		if (ch == 'f') {
+			if (*digits == '0' && value)
+				*decpt = -ndigits + 1;
+			bp += *decpt;
+		}
+		if (value == 0)			/* kludge for ib__dtoa irregularity */
+			rve = bp;
+		while (rve < bp)
+			*rve++ = '0';
+	}
+	*length = rve - digits;
+	return (digits);
+}
+
+static int exponent(char *p0, int exp, int fmtch)
+{
+	register char *p, *t;
+	char expbuf[MAXEXP];
+
+	p = p0;
+	*p++ = fmtch;
+	if (exp < 0) {
+		exp = -exp;
+		*p++ = '-';
+	}
+	else
+		*p++ = '+';
+	t = expbuf + MAXEXP;
+	if (exp > 9) {
+		do {
+			*--t = to_char(exp % 10);
+		} while ((exp /= 10) > 9);
+		*--t = to_char(exp);
+		for (; t < expbuf + MAXEXP; *p++ = *t++);
+	}
+	else {
+		*p++ = '0';
+		*p++ = to_char(exp);
+	}
+	return (p - p0);
+}
+
+
+#define	BUF		513				/* Maximum length of numeric string. */
+
+/*
+ * Flags used during conversion.
+ */
+#define	LONG		0x01		/* l: long or double */
+#define	LONGDBL		0x02		/* L: long double */
+#define	SHORT		0x04		/* h: short */
+#define	SUPPRESS	0x08		/* suppress assignment */
+#define	POINTER		0x10		/* weird %p pointer (`fake hex') */
+#define	NOSKIP		0x20		/* do not skip blanks */
+#define	QUAD		0x400
+
+/*
+ * The following are used in numeric conversions only:
+ * SIGNOK, NDIGITS, DPTOK, and EXPOK are for floating point;
+ * SIGNOK, NDIGITS, PFXOK, and NZDIGITS are for integral.
+ */
+#define	SIGNOK		0x40		/* +/- is (still) legal */
+#define	NDIGITS		0x80		/* no digits detected */
+
+#define	DPTOK		0x100		/* (float) decimal point is still legal */
+#define	EXPOK		0x200		/* (float) exponent (e+3, etc) still legal */
+
+#define	PFXOK		0x100		/* 0x prefix is (still) legal */
+#define	NZDIGITS	0x200		/* no zero digits detected */
+
+/*
+ * Conversion types.
+ */
+#define	CT_CHAR		0			/* %c conversion */
+#define	CT_CCL		1			/* %[...] conversion */
+#define	CT_STRING	2			/* %s conversion */
+#define	CT_INT		3			/* integer, i.e., strtoq or strtouq */
+#define	CT_FLOAT	4			/* floating, i.e., strtod */
+
+#define u_char unsigned char
+#define u_long unsigned long
+
+static u_char *ib__sccl(char *, u_char *);
+
+/*
+ * vfscanf
+ */
+int ib__svfscanf(register IB_FILE * fp, char const *fmt0, va_list ap)
+{
+	register u_char *fmt = (u_char *) fmt0;
+	register int c;				/* character from format, or conversion */
+	register size_t width;		/* field width, or 0 */
+	register char *p;			/* points into all kinds of strings */
+	register int n;				/* handy integer */
+	register int flags;			/* flags as defined above */
+	register char *p0;			/* saves original value of p when necessary */
+	int nassigned;				/* number of fields assigned */
+	int nconversions;			/* number of conversions */
+	int nread;					/* number of characters consumed from fp */
+	int base;					/* base argument to strtoq/strtouq */
+	u_quad_t(*ccfn) ();			/* conversion function (strtoq/strtouq) */
+	char ccltab[256];			/* character class table for %[...] */
+	char buf[BUF];				/* buffer for numeric conversions */
+
+	/* `basefix' is used to avoid `if' tests in the integer scanner */
+	static short basefix[17] =
+		{ 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 };
+
+	nassigned = 0;
+	nconversions = 0;
+	nread = 0;
+	base = 0;					/* XXX just to keep gcc happy */
+	ccfn = NULL;				/* XXX just to keep gcc happy */
+	for (;;) {
+		c = *fmt++;
+		if (c == 0)
+			return (nassigned);
+		if (isspace(c)) {
+			while ((fp->_r > 0 || ib__srefill(fp) == 0) && isspace(*fp->_p))
+				nread++, fp->_r--, fp->_p++;
+			continue;
+		}
+		if (c != '%')
+			goto literal;
+		width = 0;
+		flags = 0;
+		/*
+		 * switch on the format.  continue if done;
+		 * break once format type is derived.
+		 */
+	  again:c = *fmt++;
+		switch (c) {
+		case '%':
+		  literal:
+			if (fp->_r <= 0 && ib__srefill(fp))
+				goto input_failure;
+			if (*fp->_p != c)
+				goto match_failure;
+			fp->_r--, fp->_p++;
+			nread++;
+			continue;
+
+		case '*':
+			flags |= SUPPRESS;
+			goto again;
+		case 'l':
+			flags |= LONG;
+			goto again;
+		case 'q':
+			flags |= QUAD;
+			goto again;
+		case 'L':
+			flags |= LONGDBL;
+			goto again;
+		case 'h':
+			flags |= SHORT;
+			goto again;
+
+		case '0':
+		case '1':
+		case '2':
+		case '3':
+		case '4':
+		case '5':
+		case '6':
+		case '7':
+		case '8':
+		case '9':
+			width = width * 10 + c - '0';
+			goto again;
+
+			/*
+			 * Conversions.
+			 * Those marked `compat' are for 4.[123]BSD compatibility.
+			 *
+			 * (According to ANSI, E and X formats are supposed
+			 * to the same as e and x.  Sorry about that.)
+			 */
+		case 'D':				/* compat */
+			flags |= LONG;
+			/* FALLTHROUGH */
+		case 'd':
+			c = CT_INT;
+			ccfn = (u_quad_t(*)())strtoq;
+			base = 10;
+			break;
+
+		case 'i':
+			c = CT_INT;
+			ccfn = (u_quad_t(*)())strtoq;
+			base = 0;
+			break;
+
+		case 'O':				/* compat */
+			flags |= LONG;
+			/* FALLTHROUGH */
+		case 'o':
+			c = CT_INT;
+			ccfn = strtouq;
+			base = 8;
+			break;
+
+		case 'u':
+			c = CT_INT;
+			ccfn = strtouq;
+			base = 10;
+			break;
+
+		case 'X':				/* compat   XXX */
+			flags |= LONG;
+			/* FALLTHROUGH */
+		case 'x':
+			flags |= PFXOK;		/* enable 0x prefixing */
+			c = CT_INT;
+			ccfn = strtouq;
+			base = 16;
+			break;
+
+		case 'E':				/* compat   XXX */
+		case 'F':				/* compat */
+			flags |= LONG;
+			/* FALLTHROUGH */
+		case 'e':
+		case 'f':
+		case 'g':
+			c = CT_FLOAT;
+			break;
+
+		case 's':
+			c = CT_STRING;
+			break;
+
+		case '[':
+			fmt = ib__sccl(ccltab, fmt);
+			flags |= NOSKIP;
+			c = CT_CCL;
+			break;
+
+		case 'c':
+			flags |= NOSKIP;
+			c = CT_CHAR;
+			break;
+
+		case 'p':				/* pointer format is like hex */
+			flags |= POINTER | PFXOK;
+			c = CT_INT;
+			ccfn = strtouq;
+			base = 16;
+			break;
+
+		case 'n':
+			nconversions++;
+			if (flags & SUPPRESS)	/* ??? */
+				continue;
+			if (flags & SHORT)
+				*va_arg(ap, short *) = nread;
+			else if (flags & LONG)
+				*va_arg(ap, long *) = nread;
+			else if (flags & QUAD)
+				*va_arg(ap, quad_t *) = nread;
+			else
+				*va_arg(ap, int *) = nread;
+			continue;
+
+			/*
+			 * Disgusting backwards compatibility hacks.    XXX
+			 */
+		case '\0':				/* compat */
+			return (EOF);
+
+		default:				/* compat */
+			if (isupper(c))
+				flags |= LONG;
+			c = CT_INT;
+			ccfn = (u_quad_t(*)())strtoq;
+			base = 10;
+			break;
+		}
+
+		/*
+		 * We have a conversion that requires input.
+		 */
+		if (fp->_r <= 0 && ib__srefill(fp))
+			goto input_failure;
+
+		/*
+		 * Consume leading white space, except for formats
+		 * that suppress this.
+		 */
+		if ((flags & NOSKIP) == 0) {
+			while (isspace(*fp->_p)) {
+				nread++;
+				if (--fp->_r > 0)
+					fp->_p++;
+				else if (ib__srefill(fp))
+					goto input_failure;
+			}
+			/*
+			 * Note that there is at least one character in
+			 * the buffer, so conversions that do not set NOSKIP
+			 * ca no longer result in an input failure.
+			 */
+		}
+
+		/*
+		 * Do the conversion.
+		 */
+		switch (c) {
+
+		case CT_CHAR:
+			/* scan arbitrary characters (sets NOSKIP) */
+			if (width == 0)
+				width = 1;
+			if (flags & SUPPRESS) {
+				size_t sum = 0;
+				for (;;) {
+					if ((n = fp->_r) < width) {
+						sum += n;
+						width -= n;
+						fp->_p += n;
+						if (ib__srefill(fp)) {
+							if (sum == 0)
+								goto input_failure;
+							break;
+						}
+					}
+					else {
+						sum += width;
+						fp->_r -= width;
+						fp->_p += width;
+						break;
+					}
+				}
+				nread += sum;
+			}
+			else {
+				size_t r = ib_fread((void *) va_arg(ap, char *), 1,
+									width, fp);
+
+				if (r == 0)
+					goto input_failure;
+				nread += r;
+				nassigned++;
+			}
+			nconversions++;
+			break;
+
+		case CT_CCL:
+			/* scan a (nonempty) character class (sets NOSKIP) */
+			if (width == 0)
+				width = (size_t) ~ 0;	/* `infinity' */
+			/* take only those things in the class */
+			if (flags & SUPPRESS) {
+				n = 0;
+				while (ccltab[*fp->_p]) {
+					n++, fp->_r--, fp->_p++;
+					if (--width == 0)
+						break;
+					if (fp->_r <= 0 && ib__srefill(fp)) {
+						if (n == 0)
+							goto input_failure;
+						break;
+					}
+				}
+				if (n == 0)
+					goto match_failure;
+			}
+			else {
+				p0 = p = va_arg(ap, char *);
+				while (ccltab[*fp->_p]) {
+					fp->_r--;
+					*p++ = *fp->_p++;
+					if (--width == 0)
+						break;
+					if (fp->_r <= 0 && ib__srefill(fp)) {
+						if (p == p0)
+							goto input_failure;
+						break;
+					}
+				}
+				n = p - p0;
+				if (n == 0)
+					goto match_failure;
+				*p = 0;
+				nassigned++;
+			}
+			nread += n;
+			nconversions++;
+			break;
+
+		case CT_STRING:
+			/* like CCL, but zero-length string OK, & no NOSKIP */
+			if (width == 0)
+				width = (size_t) ~ 0;
+			if (flags & SUPPRESS) {
+				n = 0;
+				while (!isspace(*fp->_p)) {
+					n++, fp->_r--, fp->_p++;
+					if (--width == 0)
+						break;
+					if (fp->_r <= 0 && ib__srefill(fp))
+						break;
+				}
+				nread += n;
+			}
+			else {
+				p0 = p = va_arg(ap, char *);
+				while (!isspace(*fp->_p)) {
+					fp->_r--;
+					*p++ = *fp->_p++;
+					if (--width == 0)
+						break;
+					if (fp->_r <= 0 && ib__srefill(fp))
+						break;
+				}
+				*p = 0;
+				nread += p - p0;
+				nassigned++;
+			}
+			nconversions++;
+			continue;
+
+		case CT_INT:
+			/* scan an integer as if by strtoq/strtouq */
+#ifdef hardway
+			if (width == 0 || width > sizeof(buf) - 1)
+				width = sizeof(buf) - 1;
+#else
+			/* size_t is unsigned, hence this optimisation */
+			if (--width > sizeof(buf) - 2)
+				width = sizeof(buf) - 2;
+			width++;
+#endif
+			flags |= SIGNOK | NDIGITS | NZDIGITS;
+			for (p = buf; width; width--) {
+				c = *fp->_p;
+				/*
+				 * Switch on the character; `goto ok'
+				 * if we accept it as a part of number.
+				 */
+				switch (c) {
+
+					/*
+					 * The digit 0 is always legal, but is
+					 * special.  For %i conversions, if no
+					 * digits (zero or nonzero) have been
+					 * scanned (only signs), we will have
+					 * base==0.  In that case, we should set
+					 * it to 8 and enable 0x prefixing.
+					 * Also, if we have not scanned zero digits
+					 * before this, do not turn off prefixing
+					 * (someone else will turn it off if we
+					 * have scanned any nonzero digits).
+					 */
+				case '0':
+					if (base == 0) {
+						base = 8;
+						flags |= PFXOK;
+					}
+					if (flags & NZDIGITS)
+						flags &= ~(SIGNOK | NZDIGITS | NDIGITS);
+					else
+						flags &= ~(SIGNOK | PFXOK | NDIGITS);
+					goto ok;
+
+					/* 1 through 7 always legal */
+				case '1':
+				case '2':
+				case '3':
+				case '4':
+				case '5':
+				case '6':
+				case '7':
+					base = basefix[base];
+					flags &= ~(SIGNOK | PFXOK | NDIGITS);
+					goto ok;
+
+					/* digits 8 and 9 ok iff decimal or hex */
+				case '8':
+				case '9':
+					base = basefix[base];
+					if (base <= 8)
+						break;	/* not legal here */
+					flags &= ~(SIGNOK | PFXOK | NDIGITS);
+					goto ok;
+
+					/* letters ok iff hex */
+				case 'A':
+				case 'B':
+				case 'C':
+				case 'D':
+				case 'E':
+				case 'F':
+				case 'a':
+				case 'b':
+				case 'c':
+				case 'd':
+				case 'e':
+				case 'f':
+					/* no need to fix base here */
+					if (base <= 10)
+						break;	/* not legal here */
+					flags &= ~(SIGNOK | PFXOK | NDIGITS);
+					goto ok;
+
+					/* sign ok only as first character */
+				case '+':
+				case '-':
+					if (flags & SIGNOK) {
+						flags &= ~SIGNOK;
+						goto ok;
+					}
+					break;
+
+					/* x ok iff flag still set & 2nd char */
+				case 'x':
+				case 'X':
+					if (flags & PFXOK && p == buf + 1) {
+						base = 16;	/* if %i */
+						flags &= ~PFXOK;
+						goto ok;
+					}
+					break;
+				}
+
+				/*
+				 * If we got here, c is not a legal character
+				 * for a number.  Stop accumulating digits.
+				 */
+				break;
+			  ok:
+				/*
+				 * c is legal: store it and look at the next.
+				 */
+				*p++ = c;
+				if (--fp->_r > 0)
+					fp->_p++;
+				else if (ib__srefill(fp))
+					break;		/* EOF */
+			}
+			/*
+			 * If we had only a sign, it is no good; push
+			 * back the sign.  If the number ends in `x',
+			 * it was [sign] '0' 'x', so push back the x
+			 * and treat it as [sign] '0'.
+			 */
+			if (flags & NDIGITS) {
+				if (p > buf)
+					(void) ib_ungetc(*(u_char *)-- p, fp);
+				goto match_failure;
+			}
+			c = ((u_char *) p)[-1];
+			if (c == 'x' || c == 'X') {
+				--p;
+				(void) ib_ungetc(c, fp);
+			}
+			if ((flags & SUPPRESS) == 0) {
+				u_quad_t res;
+
+				*p = 0;
+				res = (*ccfn) (buf, (char **) NULL, base);
+				if (flags & POINTER)
+					*va_arg(ap, void **) = (void *) (u_long) res;
+				else if (flags & SHORT)
+					*va_arg(ap, short *) = res;
+				else if (flags & LONG)
+					*va_arg(ap, long *) = res;
+				else if (flags & QUAD)
+					*va_arg(ap, quad_t *) = res;
+				else
+					*va_arg(ap, int *) = res;
+				nassigned++;
+			}
+			nread += p - buf;
+			nconversions++;
+			break;
+
+		case CT_FLOAT:
+			/* scan a floating point number as if by strtod */
+#ifdef hardway
+			if (width == 0 || width > sizeof(buf) - 1)
+				width = sizeof(buf) - 1;
+#else
+			/* size_t is unsigned, hence this optimisation */
+			if (--width > sizeof(buf) - 2)
+				width = sizeof(buf) - 2;
+			width++;
+#endif
+			flags |= SIGNOK | NDIGITS | DPTOK | EXPOK;
+			for (p = buf; width; width--) {
+				c = *fp->_p;
+				/*
+				 * This code mimicks the integer conversion
+				 * code, but is much simpler.
+				 */
+				switch (c) {
+
+				case '0':
+				case '1':
+				case '2':
+				case '3':
+				case '4':
+				case '5':
+				case '6':
+				case '7':
+				case '8':
+				case '9':
+					flags &= ~(SIGNOK | NDIGITS);
+					goto fok;
+
+				case '+':
+				case '-':
+					if (flags & SIGNOK) {
+						flags &= ~SIGNOK;
+						goto fok;
+					}
+					break;
+				case '.':
+					if (flags & DPTOK) {
+						flags &= ~(SIGNOK | DPTOK);
+						goto fok;
+					}
+					break;
+				case 'e':
+				case 'E':
+					/* no exponent without some digits */
+					if ((flags & (NDIGITS | EXPOK)) == EXPOK) {
+						flags = (flags & ~(EXPOK | DPTOK)) | SIGNOK | NDIGITS;
+						goto fok;
+					}
+					break;
+				}
+				break;
+			  fok:
+				*p++ = c;
+				if (--fp->_r > 0)
+					fp->_p++;
+				else if (ib__srefill(fp))
+					break;		/* EOF */
+			}
+			/*
+			 * If no digits, might be missing exponent digits
+			 * (just give back the exponent) or might be missing
+			 * regular digits, but had sign and/or decimal point.
+			 */
+			if (flags & NDIGITS) {
+				if (flags & EXPOK) {
+					/* no digits at all */
+					while (p > buf)
+						ib_ungetc(*(u_char *)-- p, fp);
+					goto match_failure;
+				}
+				/* just a bad exponent (e and maybe sign) */
+				c = *(u_char *)-- p;
+				if (c != 'e' && c != 'E') {
+					(void) ib_ungetc(c, fp);	/* sign */
+					c = *(u_char *)-- p;
+				}
+				(void) ib_ungetc(c, fp);
+			}
+			if ((flags & SUPPRESS) == 0) {
+				double res;
+
+				*p = 0;
+				/* XXX this loses precision for long doubles. */
+				res = strtod(buf, (char **) NULL);
+				if (flags & LONGDBL)
+					*va_arg(ap, long double *) = res;
+				else if (flags & LONG)
+					*va_arg(ap, double *) = res;
+				else
+					*va_arg(ap, float *) = res;
+				nassigned++;
+			}
+			nread += p - buf;
+			nconversions++;
+			break;
+		}
+	}
+  input_failure:
+	return (nconversions != 0 ? nassigned : EOF);
+  match_failure:
+	return (nassigned);
+}
+
+/*
+ * Fill in the given table from the scanset at the given format
+ * (just after `[').  Return a pointer to the character past the
+ * closing `]'.  The table has a 1 wherever characters should be
+ * considered part of the scanset.
+ */
+static u_char *ib__sccl(register char *tab, register u_char * fmt)
+{
+	register int c, n, v, i;
+
+	/* first `clear' the whole table */
+	c = *fmt++;					/* first char hat => negated scanset */
+	if (c == '^') {
+		v = 1;					/* default => accept */
+		c = *fmt++;				/* get new first char */
+	}
+	else
+		v = 0;					/* default => reject */
+
+	/* XXX: Will not work if sizeof(tab*) > sizeof(char) */
+	(void) memset(tab, v, 256);
+
+	if (c == 0)
+		return (fmt - 1);		/* format ended before closing ] */
+
+	/*
+	 * Now set the entries corresponding to the actual scanset
+	 * to the opposite of the above.
+	 *
+	 * The first character may be ']' (or '-') without being special;
+	 * the last character may be '-'.
+	 */
+	v = 1 - v;
+	for (;;) {
+		tab[c] = v;				/* take character c */
+	  doswitch:
+		n = *fmt++;				/* and examine the next */
+		switch (n) {
+
+		case 0:				/* format ended too soon */
+			return (fmt - 1);
+
+		case '-':
+			/*
+			 * A scanset of the form
+			 *  [01+-]
+			 * is defined as `the digit 0, the digit 1,
+			 * the character +, the character -', but
+			 * the effect of a scanset such as
+			 *  [a-zA-Z0-9]
+			 * is implementation defined.  The V7 Unix
+			 * scanf treats `a-z' as `the letters a through
+			 * z', but treats `a-a' as `the letter a, the
+			 * character -, and the letter a'.
+			 *
+			 * For compatibility, the `-' is not considerd
+			 * to define a range if the character following
+			 * it is either a close bracket (required by ANSI)
+			 * or is not numerically greater than the character
+			 * we just stored in the table (c).
+			 */
+			n = *fmt;
+			if (n == ']'
+				|| (ib__collate_load_error ? n < c :
+					ib__collate_range_cmp(n, c) < 0)
+				) {
+				c = '-';
+				break;			/* resume the for(;;) */
+			}
+			fmt++;
+			/* fill in the range */
+			if (ib__collate_load_error) {
+				do {
+					tab[++c] = v;
+				} while (c < n);
+			}
+			else {
+				for (i = 0; i < 256; i++)
+					if (ib__collate_range_cmp(c, i) < 0
+						&& ib__collate_range_cmp(i, n) <= 0)
+						tab[i] = v;
+			}
+#if 1							/* XXX another disgusting compatibility hack */
+			c = n;
+			/*
+			 * Alas, the V7 Unix scanf also treats formats
+			 * such as [a-c-e] as `the letters a through e'.
+			 * This too is permitted by the standard....
+			 */
+			goto doswitch;
+#else
+			c = *fmt++;
+			if (c == 0)
+				return (fmt - 1);
+			if (c == ']')
+				return (fmt);
+#endif
+			break;
+
+		case ']':				/* end of scanset */
+			return (fmt);
+
+		default:				/* just another character */
+			c = n;
+			break;
+		}
+	}
+	/* NOTREACHED */
+}
+int ib_vprintf(char const *fmt, va_list ap)
+{
+	return (ib_vfprintf(ib_stdout, fmt, ap));
+}
+int ib_vscanf(const char *fmt, va_list ap)
+{
+	int retval;
+
+	FLOCKFILE(stdin);
+	retval = ib__svfscanf(ib_stdin, fmt, ap);
+	FUNLOCKFILE(ib_stdin);
+	return (retval);
+}
+
+
+/*
+ * Write the given character into the (probably full) buffer for
+ * the given file.  Flush the buffer out if it is or becomes full,
+ * or if c=='\n' and the file is line buffered.
+ */
+int ib__swbuf(register int c, register IB_FILE * fp)
+{
+	register int n;
+
+	/*
+	 * In case we cannot write, or longjmp takes us out early,
+	 * make sure _w is 0 (if fully- or un-buffered) or -_bf._size
+	 * (if line buffered) so that we will get called again.
+	 * If we did not do this, a sufficient number of ib_putc()
+	 * calls might wrap _w from negative to positive.
+	 */
+	fp->_w = fp->_lbfsize;
+	if (cantwrite(fp))
+		return (EOF);
+	c = (unsigned char) c;
+
+	/*
+	 * If it is completely full, flush it out.  Then, in any case,
+	 * stuff c into the buffer.  If this causes the buffer to fill
+	 * completely, or if c is '\n' and the file is line buffered,
+	 * flush it (perhaps a second time).  The second flush will always
+	 * happen on unbuffered streams, where _bf._size==1; fflush()
+	 * guarantees that ib_putc() will always call wbuf() by setting _w
+	 * to 0, so we need not do anything else.
+	 */
+	n = fp->_p - fp->_bf._base;
+	if (n >= fp->_bf._size) {
+		if (ib_fflush(fp))
+			return (EOF);
+		n = 0;
+	}
+	fp->_w--;
+	*fp->_p++ = c;
+	if (++n == fp->_bf._size || (fp->_flags & IB__SLBF && c == '\n'))
+		if (ib_fflush(fp))
+			return (EOF);
+	return (c);
+}
+
+
+/*
+ * Various output routines call wsetup to be sure it is safe to write,
+ * because either _flags does not include IB__SWR, or _buf is NULL.
+ * _wsetup returns 0 if OK to write, nonzero otherwise.
+ */
+int ib__swsetup(register IB_FILE * fp)
+{
+	/* make sure stdio is set up */
+	if (!ib__sdidinit)
+		ib__sinit();
+
+	/*
+	 * If we are not writing, we had better be reading and writing.
+	 */
+	if ((fp->_flags & IB__SWR) == 0) {
+		if ((fp->_flags & IB__SRW) == 0)
+			return (EOF);
+		if (fp->_flags & IB__SRD) {
+			/* clobber any ib_ungetc data */
+			if (HASUB(fp))
+				FREEUB(fp);
+			fp->_flags &= ~(IB__SRD | IB__SEOF);
+			fp->_r = 0;
+			fp->_p = fp->_bf._base;
+		}
+		fp->_flags |= IB__SWR;
+	}
+
+	/*
+	 * Make a buffer if necessary, then set _w.
+	 */
+	if (fp->_bf._base == NULL)
+		ib__smakebuf(fp);
+	if (fp->_flags & IB__SLBF) {
+		/*
+		 * It is line buffered, so make _lbfsize be -_bufsize
+		 * for the putc() macro.  We will change _lbfsize back
+		 * to 0 whenever we turn off IB__SWR.
+		 */
+		fp->_w = 0;
+		fp->_lbfsize = -fp->_bf._size;
+	}
+	else
+		fp->_w = fp->_flags & IB__SNBF ? 0 : fp->_bf._size;
+	return (0);
+}
+
+
+/*
+ * Write some memory regions.  Return zero on success, EOF on error.
+ *
+ * This routine is large and unsightly, but most of the ugliness due
+ * to the three different kinds of output buffering is handled here.
+ */
+int ib__sfvwrite(register IB_FILE * fp, register struct ib__suio *uio)
+{
+	register size_t len;
+	register char *p;
+	register struct ib__siov *iov;
+	register int w, s;
+	char *nl;
+	int nlknown, nldist;
+
+	if ((len = uio->uio_resid) == 0)
+		return (0);
+	/* make sure we can write */
+	if (cantwrite(fp))
+		return (EOF);
+
+#define	MIN(a, b) ((a) < (b) ? (a) : (b))
+#define	COPY(n)	  (void)memcpy((void *)fp->_p, (void *)p, (size_t)(n))
+
+	iov = uio->uio_iov;
+	p = iov->iov_base;
+	len = iov->iov_len;
+	iov++;
+#define GETIOV(extra_work) \
+	while (len == 0) { \
+		extra_work; \
+		p = iov->iov_base; \
+		len = iov->iov_len; \
+		iov++; \
+	}
+	if (fp->_flags & IB__SNBF) {
+		/*
+		 * Unbuffered: write up to BUFSIZ bytes at a time.
+		 */
+		do {
+			GETIOV(;);
+			w = (*fp->_write) (fp->_cookie, p, MIN(len, BUFSIZ));
+			if (w <= 0)
+				goto err;
+			p += w;
+			len -= w;
+		} while ((uio->uio_resid -= w) != 0);
+	}
+	else if ((fp->_flags & IB__SLBF) == 0) {
+		/*
+		 * Fully buffered: fill partially full buffer, if any,
+		 * and then flush.  If there is no partial buffer, write
+		 * one _bf._size byte chunk directly (without copying).
+		 *
+		 * String output is a special case: write as many bytes
+		 * as fit, but pretend we wrote everything.  This makes
+		 * snprintf() return the number of bytes needed, rather
+		 * than the number used, and avoids its write function
+		 * (so that the write function can be invalid).
+		 */
+		do {
+			GETIOV(;);
+			if ((fp->_flags & (IB__SALC | IB__SSTR)) ==
+				(IB__SALC | IB__SSTR) && fp->_w < len) {
+				size_t blen = fp->_p - fp->_bf._base;
+
+				/*
+				 * Alloc an extra 128 bytes (+ 1 for NULL)
+				 * so we don't call realloc(3) so often.
+				 */
+				fp->_w = len + 128;
+				fp->_bf._size = blen + len + 128;
+				fp->_bf._base = reallocf(fp->_bf._base, fp->_bf._size + 1);
+				if (fp->_bf._base == NULL)
+					goto err;
+				fp->_p = fp->_bf._base + blen;
+			}
+			w = fp->_w;
+			if (fp->_flags & IB__SSTR) {
+				if (len < w)
+					w = len;
+				if (w > 0) {
+					COPY(w);	/* copy MIN(fp->_w,len), */
+					fp->_w -= w;
+					fp->_p += w;
+				}
+				w = len;		/* but pretend copied all */
+			}
+			else if (fp->_p > fp->_bf._base && len > w) {
+				/* fill and flush */
+				COPY(w);
+/* fp->_w -= w; *//* unneeded */
+				fp->_p += w;
+				if (ib_fflush(fp))
+					goto err;
+			}
+			else if (len >= (w = fp->_bf._size)) {
+				/* write directly */
+				w = (*fp->_write) (fp->_cookie, p, w);
+				if (w <= 0)
+					goto err;
+			}
+			else {
+				/* fill and done */
+				w = len;
+				COPY(w);
+				fp->_w -= w;
+				fp->_p += w;
+			}
+			p += w;
+			len -= w;
+		} while ((uio->uio_resid -= w) != 0);
+	}
+	else {
+		/*
+		 * Line buffered: like fully buffered, but we
+		 * must check for newlines.  Compute the distance
+		 * to the first newline (including the newline),
+		 * or `infinity' if there is none, then pretend
+		 * that the amount to write is MIN(len,nldist).
+		 */
+		nlknown = 0;
+		nldist = 0;				/* XXX just to keep gcc happy */
+		do {
+			GETIOV(nlknown = 0);
+			if (!nlknown) {
+				nl = memchr((void *) p, '\n', len);
+				nldist = nl ? nl + 1 - p : len + 1;
+				nlknown = 1;
+			}
+			s = MIN(len, nldist);
+			w = fp->_w + fp->_bf._size;
+			if (fp->_p > fp->_bf._base && s > w) {
+				COPY(w);
+				/* fp->_w -= w; */
+				fp->_p += w;
+				if (ib_fflush(fp))
+					goto err;
+			}
+			else if (s >= (w = fp->_bf._size)) {
+				w = (*fp->_write) (fp->_cookie, p, w);
+				if (w <= 0)
+					goto err;
+			}
+			else {
+				w = s;
+				COPY(w);
+				fp->_w -= w;
+				fp->_p += w;
+			}
+			if ((nldist -= w) == 0) {
+				/* copied the newline: flush and forget */
+				if (ib_fflush(fp))
+					goto err;
+				nlknown = 0;
+			}
+			p += w;
+			len -= w;
+		} while ((uio->uio_resid -= w) != 0);
+	}
+	return (0);
+
+  err:
+	fp->_flags |= IB__SERR;
+	return (EOF);
+}
+
+/* This stuff all comes from stdlib/netbsd_strtod.c */
+
+
+#ifdef MALLOC
+#ifdef KR_headers
+extern char *MALLOC();
+#else
+extern void *MALLOC(size_t);
+#endif
+#else
+#define MALLOC malloc
+#endif
+
+#ifdef SOLARIS
+#ifdef sparc
+#define IEEE_BIG_ENDIAN
+#else
+#define IEEE_LITTLE_ENDIAN
+#undef VAX
+#endif
+#define IEEE_ARITHMETIC
+#endif
+
+
+#ifdef IEEE_ARITHMETIC
+#define DBL_DIG 15
+#define DBL_MAX_10_EXP 308
+#define DBL_MAX_EXP 1024
+#define FLT_RADIX 2
+#define FLT_ROUNDS 1
+#define DBL_MAX 1.7976931348623157e+308
+#endif
+
+
+#ifdef IEEE_LITTLE_ENDIAN
+#define word0(x) ((ULONG *)&x)[1]
+#define word1(x) ((ULONG *)&x)[0]
+#else
+#define word0(x) ((ULONG *)&x)[0]
+#define word1(x) ((ULONG *)&x)[1]
+#endif
+
+#if defined(IEEE_LITTLE_ENDIAN) + defined(IEEE_BIG_ENDIAN) + defined(VAX) + \
+    defined(IBM) != 1
+Exactly one of IEEE_LITTLE_ENDIAN IEEE_BIG_ENDIAN, VAX, or IBM should be defined.
+#endif
+#if defined(IEEE_LITTLE_ENDIAN) + defined(IEEE_BIG_ENDIAN)
+#define Exp_shift  20
+#define Exp_shift1 20
+#define Exp_msk1    0x100000
+#define Exp_msk11   0x100000
+#define Exp_mask  0x7ff00000
+#define P 53
+#define Bias 1023
+#define IEEE_Arith
+#define Emin (-1022)
+#define Exp_1  0x3ff00000
+#define Exp_11 0x3ff00000
+#define Ebits 11
+#define Frac_mask  0xfffff
+#define Frac_mask1 0xfffff
+#define Ten_pmax 22
+#define Bletch 0x10
+#define Bndry_mask  0xfffff
+#define Bndry_mask1 0xfffff
+#define LSB 1
+#define Sign_bit 0x80000000
+#define Log2P 1
+#define Tiny0 0
+#define Tiny1 1
+#define Quick_max 14
+#define Int_max 14
+#define Infinite(x) (word0(x) == 0x7ff00000)	/* sufficient test for here */
+#else
+#undef  Sudden_Underflow
+#define Sudden_Underflow
+#ifdef IBM
+#define Exp_shift  24
+#define Exp_shift1 24
+#define Exp_msk1   0x1000000
+#define Exp_msk11  0x1000000
+#define Exp_mask  0x7f000000
+#define P 14
+#define Bias 65
+#define Exp_1  0x41000000
+#define Exp_11 0x41000000
+#define Ebits 8					/* exponent has 7 bits, but 8 is the right value in b2d */
+#define Frac_mask  0xffffff
+#define Frac_mask1 0xffffff
+#define Bletch 4
+#define Ten_pmax 22
+#define Bndry_mask  0xefffff
+#define Bndry_mask1 0xffffff
+#define LSB 1
+#define Sign_bit 0x80000000
+#define Log2P 4
+#define Tiny0 0x100000
+#define Tiny1 0
+#define Quick_max 14
+#define Int_max 15
+#else							/* VAX */
+#define Exp_shift  23
+#define Exp_shift1 7
+#define Exp_msk1    0x80
+#define Exp_msk11   0x800000
+#define Exp_mask  0x7f80
+#define P 56
+#define Bias 129
+#define Exp_1  0x40800000
+#define Exp_11 0x4080
+#define Ebits 8
+#define Frac_mask  0x7fffff
+#define Frac_mask1 0xffff007f
+#define Ten_pmax 24
+#define Bletch 2
+#define Bndry_mask  0xffff007f
+#define Bndry_mask1 0xffff007f
+#define LSB 0x10000
+#define Sign_bit 0x8000
+#define Log2P 1
+#define Tiny0 0x80
+#define Tiny1 0
+#define Quick_max 15
+#define Int_max 15
+#endif
+#endif
+#ifndef IEEE_Arith
+#define ROUND_BIASED
+#endif
+#ifdef Unsigned_Shifts
+#define Sign_Extend(a,b) if (b < 0) a |= 0xffff0000;
+#else
+#define Sign_Extend(a,b)		/*no-op */
+#endif
+	struct
+	Bigint {
+	struct Bigint *next;
+	int k, maxwds, sign, wds;
+	ULONG x[1];
+};
+
+typedef struct Bigint Bigint;
+
+static const double tens[] = {
+	1e0, 1e1, 1e2, 1e3, 1e4, 1e5, 1e6, 1e7, 1e8, 1e9,
+	1e10, 1e11, 1e12, 1e13, 1e14, 1e15, 1e16, 1e17, 1e18, 1e19,
+	1e20, 1e21, 1e22
+#ifdef VAX
+		, 1e23, 1e24
+#endif
+};
+
+#ifdef IEEE_Arith
+static const double bigtens[] = { 1e16, 1e32, 1e64, 1e128, 1e256 };
+static const double tinytens[] = { 1e-16, 1e-32, 1e-64, 1e-128, 1e-256 };
+#define n_bigtens 5
+#else
+#ifdef IBM
+static const double bigtens[] = { 1e16, 1e32, 1e64 };
+static const double tinytens[] = { 1e-16, 1e-32, 1e-64 };
+#define n_bigtens 3
+#else
+static const double bigtens[] = { 1e16, 1e32 };
+static const double tinytens[] = { 1e-16, 1e-32 };
+#define n_bigtens 2
+#endif
+#endif
+
+static Bigint *Balloc(int);
+static void Bfree(Bigint *);
+static Bigint *multadd(Bigint *, int, int);
+static Bigint *mult(Bigint *, Bigint *);
+static Bigint *i2b(int);
+
+static Bigint *p5s;
+
+static Bigint *pow5mult(Bigint * b, int k)
+{
+	Bigint *b1, *p5, *p51;
+	int i;
+	static int p05[3] = { 5, 25, 125 };
+
+	if ((i = k & 3) != 0)
+		b = multadd(b, p05[i - 1], 0);
+
+	if (!(k >>= 2))
+		return b;
+	if (!(p5 = p5s)) {
+		/* first time */
+		p5 = p5s = i2b(625);
+		p5->next = 0;
+	}
+	for (;;) {
+		if (k & 1) {
+			b1 = mult(b, p5);
+			Bfree(b);
+			b = b1;
+		}
+		if (!(k >>= 1))
+			break;
+		if (!(p51 = p5->next)) {
+			p51 = p5->next = mult(p5, p5);
+			p51->next = 0;
+		}
+		p5 = p51;
+	}
+	return b;
+}
+
+
+static Bigint *lshift(Bigint * b, int k)
+{
+	int i, k1, n, n1;
+	Bigint *b1;
+	ULONG *x, *x1, *xe, z;
+
+#ifdef Pack_32
+	n = k >> 5;
+#else
+	n = k >> 4;
+#endif
+	k1 = b->k;
+	n1 = n + b->wds + 1;
+	for (i = b->maxwds; n1 > i; i <<= 1)
+		k1++;
+	b1 = Balloc(k1);
+	x1 = b1->x;
+	for (i = 0; i < n; i++)
+		*x1++ = 0;
+	x = b->x;
+	xe = x + b->wds;
+#ifdef Pack_32
+	if (k &= 0x1f) {
+		k1 = 32 - k;
+		z = 0;
+		do {
+			*x1++ = *x << k | z;
+			z = *x++ >> k1;
+		}
+		while (x < xe);
+		if ((*x1 = z) != 0)
+			++n1;
+	}
+#else
+	if (k &= 0xf) {
+		k1 = 16 - k;
+		z = 0;
+		do {
+			*x1++ = *x << k & 0xffff | z;
+			z = *x++ >> k1;
+		}
+		while (x < xe);
+		if (*x1 = z)
+			++n1;
+	}
+#endif
+	else
+		do
+			*x1++ = *x++;
+		while (x < xe);
+	b1->wds = n1 - 1;
+	Bfree(b);
+	return b1;
+}
+
+static int cmp(Bigint * a, Bigint * b)
+{
+	ULONG *xa, *xa0, *xb, *xb0;
+	int i, j;
+
+	i = a->wds;
+	j = b->wds;
+#ifdef DEBUG
+	if (i > 1 && !a->x[i - 1])
+		Bug("cmp called with a->x[a->wds-1] == 0");
+	if (j > 1 && !b->x[j - 1])
+		Bug("cmp called with b->x[b->wds-1] == 0");
+#endif
+	if (i -= j)
+		return i;
+	xa0 = a->x;
+	xa = xa0 + j;
+	xb0 = b->x;
+	xb = xb0 + j;
+	for (;;) {
+		if (*--xa != *--xb)
+			return *xa < *xb ? -1 : 1;
+		if (xa <= xa0)
+			break;
+	}
+	return 0;
+}
+
+static Bigint *diff(Bigint * a, Bigint * b)
+{
+	Bigint *c;
+	int i, wa, wb;
+	SLONG borrow, y;			/* We need signed shifts here. */
+	ULONG *xa, *xae, *xb, *xbe, *xc;
+#ifdef Pack_32
+	SLONG z;
+#endif
+
+	i = cmp(a, b);
+	if (!i) {
+		c = Balloc(0);
+		c->wds = 1;
+		c->x[0] = 0;
+		return c;
+	}
+	if (i < 0) {
+		c = a;
+		a = b;
+		b = c;
+		i = 1;
+	}
+	else
+		i = 0;
+	c = Balloc(a->k);
+	c->sign = i;
+	wa = a->wds;
+	xa = a->x;
+	xae = xa + wa;
+	wb = b->wds;
+	xb = b->x;
+	xbe = xb + wb;
+	xc = c->x;
+	borrow = 0;
+#ifdef Pack_32
+	do {
+		y = (*xa & 0xffff) - (*xb & 0xffff) + borrow;
+		borrow = y >> 16;
+		Sign_Extend(borrow, y);
+		z = (*xa++ >> 16) - (*xb++ >> 16) + borrow;
+		borrow = z >> 16;
+		Sign_Extend(borrow, z);
+		Storeinc(xc, z, y);
+	}
+	while (xb < xbe);
+	while (xa < xae) {
+		y = (*xa & 0xffff) + borrow;
+		borrow = y >> 16;
+		Sign_Extend(borrow, y);
+		z = (*xa++ >> 16) + borrow;
+		borrow = z >> 16;
+		Sign_Extend(borrow, z);
+		Storeinc(xc, z, y);
+	}
+#else
+	do {
+		y = *xa++ - *xb++ + borrow;
+		borrow = y >> 16;
+		Sign_Extend(borrow, y);
+		*xc++ = y & 0xffff;
+	}
+	while (xb < xbe);
+	while (xa < xae) {
+		y = *xa++ + borrow;
+		borrow = y >> 16;
+		Sign_Extend(borrow, y);
+		*xc++ = y & 0xffff;
+	}
+#endif
+	while (!*--xc)
+		wa--;
+	c->wds = wa;
+	return c;
+}
+
+static Bigint *d2b(double d, int *e, int *bits)
+{
+	Bigint *b;
+	int de, i, k;
+	ULONG *x, y, z;
+#ifdef VAX
+	ULONG d0, d1;
+	d0 = word0(d) >> 16 | word0(d) << 16;
+	d1 = word1(d) >> 16 | word1(d) << 16;
+#else
+#define d0 word0(d)
+#define d1 word1(d)
+#endif
+
+#ifdef Pack_32
+	b = Balloc(1);
+#else
+	b = Balloc(2);
+#endif
+	x = b->x;
+
+	z = d0 & Frac_mask;
+	d0 &= 0x7fffffff;			/* clear sign bit, which we ignore */
+#ifdef Sudden_Underflow
+	de = (int) (d0 >> Exp_shift);
+#ifndef IBM
+	z |= Exp_msk11;
+#endif
+#else
+	if ((de = (int) (d0 >> Exp_shift)) != 0)
+		z |= Exp_msk1;
+#endif
+#ifdef Pack_32
+	if ((y = d1) != 0) {
+		if ((k = lo0bits(&y)) != 0) {
+			x[0] = y | z << (32 - k);
+			z >>= k;
+		}
+		else
+			x[0] = y;
+		i = b->wds = (x[1] = z) ? 2 : 1;
+	}
+	else {
+#ifdef DEBUG
+		if (!z)
+			Bug("Zero passed to d2b");
+#endif
+		k = lo0bits(&z);
+		x[0] = z;
+		i = b->wds = 1;
+		k += 32;
+	}
+#else
+	if (y = d1) {
+		if (k = lo0bits(&y))
+			if (k >= 16) {
+				x[0] = y | z << 32 - k & 0xffff;
+				x[1] = z >> k - 16 & 0xffff;
+				x[2] = z >> k;
+				i = 2;
+			}
+			else {
+				x[0] = y & 0xffff;
+				x[1] = y >> 16 | z << 16 - k & 0xffff;
+				x[2] = z >> k & 0xffff;
+				x[3] = z >> k + 16;
+				i = 3;
+			}
+		else {
+			x[0] = y & 0xffff;
+			x[1] = y >> 16;
+			x[2] = z & 0xffff;
+			x[3] = z >> 16;
+			i = 3;
+		}
+	}
+	else {
+#ifdef DEBUG
+		if (!z)
+			Bug("Zero passed to d2b");
+#endif
+		k = lo0bits(&z);
+		if (k >= 16) {
+			x[0] = z;
+			i = 0;
+		}
+		else {
+			x[0] = z & 0xffff;
+			x[1] = z >> 16;
+			i = 1;
+		}
+		k += 32;
+	}
+	while (!x[i])
+		--i;
+	b->wds = i + 1;
+#endif
+#ifndef Sudden_Underflow
+	if (de) {
+#endif
+#ifdef IBM
+		*e = (de - Bias - (P - 1) << 2) + k;
+		*bits = 4 * P + 8 - k - hi0bits(word0(d) & Frac_mask);
+#else
+		*e = de - Bias - (P - 1) + k;
+		*bits = P - k;
+#endif
+#ifndef Sudden_Underflow
+	}
+	else {
+		*e = de - Bias - (P - 1) + 1 + k;
+#ifdef Pack_32
+		*bits = 32 * i - hi0bits(x[i - 1]);
+#else
+		*bits = (i + 2) * 16 - hi0bits(x[i]);
+#endif
+	}
+#endif
+	return b;
+}
+
+#undef d0
+#undef d1
+
+#define Kmax 15
+static Bigint *freelist[Kmax + 1];
+
+static Bigint *Balloc(int k)
+{
+	int x;
+	Bigint *rv;
+
+	if ((rv = freelist[k]) != NULL) {
+		freelist[k] = rv->next;
+	}
+	else {
+		x = 1 << k;
+		rv = (Bigint *) MALLOC(sizeof(Bigint) + (x - 1) * sizeof(SLONG));
+		rv->k = k;
+		rv->maxwds = x;
+	}
+	rv->sign = rv->wds = 0;
+	return rv;
+}
+
+static void Bfree(Bigint * v)
+{
+	if (v) {
+		v->next = freelist[v->k];
+		freelist[v->k] = v;
+	}
+}
+
+#define Bcopy(x,y) memcpy((char *)&x->sign, (char *)&y->sign, \
+y->wds*sizeof(SLONG) + 2*sizeof(int))
+
+static Bigint *multadd(Bigint * b, int m, int a)
+	/* multiply by m and add a */
+{
+	int i, wds;
+	ULONG *x, y;
+#ifdef Pack_32
+	ULONG xi, z;
+#endif
+	Bigint *b1;
+
+	wds = b->wds;
+	x = b->x;
+	i = 0;
+	do {
+#ifdef Pack_32
+		xi = *x;
+		y = (xi & 0xffff) * m + a;
+		z = (xi >> 16) * m + (y >> 16);
+		a = (int) (z >> 16);
+		*x++ = (z << 16) + (y & 0xffff);
+#else
+		y = *x * m + a;
+		a = (int) (y >> 16);
+		*x++ = y & 0xffff;
+#endif
+	}
+	while (++i < wds);
+	if (a) {
+		if (wds >= b->maxwds) {
+			b1 = Balloc(b->k + 1);
+			Bcopy(b1, b);
+			Bfree(b);
+			b = b1;
+		}
+		b->x[wds++] = a;
+		b->wds = wds;
+	}
+	return b;
+}
+
+
+
+static int hi0bits(ULONG x)
+{
+	int k = 0;
+
+	if (!(x & 0xffff0000)) {
+		k = 16;
+		x <<= 16;
+	}
+	if (!(x & 0xff000000)) {
+		k += 8;
+		x <<= 8;
+	}
+	if (!(x & 0xf0000000)) {
+		k += 4;
+		x <<= 4;
+	}
+	if (!(x & 0xc0000000)) {
+		k += 2;
+		x <<= 2;
+	}
+	if (!(x & 0x80000000)) {
+		k++;
+		if (!(x & 0x40000000))
+			return 32;
+	}
+	return k;
+}
+
+static int lo0bits(ULONG * y)
+{
+	int k;
+	ULONG x = *y;
+
+	if (x & 7) {
+		if (x & 1)
+			return 0;
+		if (x & 2) {
+			*y = x >> 1;
+			return 1;
+		}
+		*y = x >> 2;
+		return 2;
+	}
+	k = 0;
+	if (!(x & 0xffff)) {
+		k = 16;
+		x >>= 16;
+	}
+	if (!(x & 0xff)) {
+		k += 8;
+		x >>= 8;
+	}
+	if (!(x & 0xf)) {
+		k += 4;
+		x >>= 4;
+	}
+	if (!(x & 0x3)) {
+		k += 2;
+		x >>= 2;
+	}
+	if (!(x & 1)) {
+		k++;
+		x >>= 1;
+		if (!x & 1)
+			return 32;
+	}
+	*y = x;
+	return k;
+}
+
+static Bigint *i2b(int i)
+{
+	Bigint *b;
+
+	b = Balloc(1);
+	b->x[0] = i;
+	b->wds = 1;
+	return b;
+}
+
+static Bigint *mult(Bigint * a, Bigint * b)
+{
+	Bigint *c;
+	int k, wa, wb, wc;
+	ULONG carry, y, z;
+	ULONG *x, *xa, *xae, *xb, *xbe, *xc, *xc0;
+#ifdef Pack_32
+	ULONG z2;
+#endif
+
+	if (a->wds < b->wds) {
+		c = a;
+		a = b;
+		b = c;
+	}
+	k = a->k;
+	wa = a->wds;
+	wb = b->wds;
+	wc = wa + wb;
+	if (wc > a->maxwds)
+		k++;
+	c = Balloc(k);
+	for (x = c->x, xa = x + wc; x < xa; x++)
+		*x = 0;
+	xa = a->x;
+	xae = xa + wa;
+	xb = b->x;
+	xbe = xb + wb;
+	xc0 = c->x;
+#ifdef Pack_32
+	for (; xb < xbe; xb++, xc0++) {
+		if ((y = *xb & 0xffff) != 0) {
+			x = xa;
+			xc = xc0;
+			carry = 0;
+			do {
+				z = (*x & 0xffff) * y + (*xc & 0xffff) + carry;
+				carry = z >> 16;
+				z2 = (*x++ >> 16) * y + (*xc >> 16) + carry;
+				carry = z2 >> 16;
+				Storeinc(xc, z2, z);
+			}
+			while (x < xae);
+			*xc = carry;
+		}
+		if ((y = *xb >> 16) != 0) {
+			x = xa;
+			xc = xc0;
+			carry = 0;
+			z2 = *xc;
+			do {
+				z = (*x & 0xffff) * y + (*xc >> 16) + carry;
+				carry = z >> 16;
+				Storeinc(xc, z, z2);
+				z2 = (*x++ >> 16) * y + (*xc & 0xffff) + carry;
+				carry = z2 >> 16;
+			}
+			while (x < xae);
+			*xc = z2;
+		}
+	}
+#else
+	for (; xb < xbe; xc0++) {
+		if (y = *xb++) {
+			x = xa;
+			xc = xc0;
+			carry = 0;
+			do {
+				z = *x++ * y + *xc + carry;
+				carry = z >> 16;
+				*xc++ = z & 0xffff;
+			}
+			while (x < xae);
+			*xc = carry;
+		}
+	}
+#endif
+	for (xc0 = c->x, xc = xc0 + wc; wc > 0 && !*--xc; --wc);
+	c->wds = wc;
+	return c;
+}
+
+static int quorem(Bigint * b, Bigint * S)
+{
+	int n;
+	SLONG borrow, y;
+	ULONG carry, q, ys;
+	ULONG *bx, *bxe, *sx, *sxe;
+#ifdef Pack_32
+	SLONG z;
+	ULONG si, zs;
+#endif
+
+	n = S->wds;
+#ifdef DEBUG
+	/*debug */ if (b->wds > n)
+		/*debug */
+		Bug("oversize b in quorem");
+#endif
+	if (b->wds < n)
+		return 0;
+	sx = S->x;
+	sxe = sx + --n;
+	bx = b->x;
+	bxe = bx + n;
+	q = *bxe / (*sxe + 1);		/* ensure q <= true quotient */
+#ifdef DEBUG
+	/*debug */ if (q > 9)
+		/*debug */
+		Bug("oversized quotient in quorem");
+#endif
+	if (q) {
+		borrow = 0;
+		carry = 0;
+		do {
+#ifdef Pack_32
+			si = *sx++;
+			ys = (si & 0xffff) * q + carry;
+			zs = (si >> 16) * q + (ys >> 16);
+			carry = zs >> 16;
+			y = (*bx & 0xffff) - (ys & 0xffff) + borrow;
+			borrow = y >> 16;
+			Sign_Extend(borrow, y);
+			z = (*bx >> 16) - (zs & 0xffff) + borrow;
+			borrow = z >> 16;
+			Sign_Extend(borrow, z);
+			Storeinc(bx, z, y);
+#else
+			ys = *sx++ * q + carry;
+			carry = ys >> 16;
+			y = *bx - (ys & 0xffff) + borrow;
+			borrow = y >> 16;
+			Sign_Extend(borrow, y);
+			*bx++ = y & 0xffff;
+#endif
+		}
+		while (sx <= sxe);
+		if (!*bxe) {
+			bx = b->x;
+			while (--bxe > bx && !*bxe)
+				--n;
+			b->wds = n;
+		}
+	}
+	if (cmp(b, S) >= 0) {
+		q++;
+		borrow = 0;
+		carry = 0;
+		bx = b->x;
+		sx = S->x;
+		do {
+#ifdef Pack_32
+			si = *sx++;
+			ys = (si & 0xffff) + carry;
+			zs = (si >> 16) + (ys >> 16);
+			carry = zs >> 16;
+			y = (*bx & 0xffff) - (ys & 0xffff) + borrow;
+			borrow = y >> 16;
+			Sign_Extend(borrow, y);
+			z = (*bx >> 16) - (zs & 0xffff) + borrow;
+			borrow = z >> 16;
+			Sign_Extend(borrow, z);
+			Storeinc(bx, z, y);
+#else
+			ys = *sx++ + carry;
+			carry = ys >> 16;
+			y = *bx - (ys & 0xffff) + borrow;
+			borrow = y >> 16;
+			Sign_Extend(borrow, y);
+			*bx++ = y & 0xffff;
+#endif
+		}
+		while (sx <= sxe);
+		bx = b->x;
+		bxe = bx + n;
+		if (!*bxe) {
+			while (--bxe > bx && !*bxe)
+				--n;
+			b->wds = n;
+		}
+	}
+	return q;
+}
+
+/* dtoa for IEEE arithmetic (dmg): convert double to ASCII string.
+ *
+ * Inspired by "How to Print Floating-Point Numbers Accurately" by
+ * Guy L. Steele, Jr. and Jon L. White [Proc. ACM SIGPLAN '90, pp. 92-101].
+ *
+ * Modifications:
+ *	1. Rather than iterating, we use a simple numeric overestimate
+ *	   to determine k = floor(log10(d)).  We scale relevant
+ *	   quantities using O(log2(k)) rather than O(k) multiplications.
+ *	2. For some modes > 2 (corresponding to ecvt and fcvt), we don't
+ *	   try to generate digits strictly left to right.  Instead, we
+ *	   compute with fewer bits and propagate the carry if necessary
+ *	   when rounding the final digit up.  This is often faster.
+ *	3. Under the assumption that input will be rounded nearest,
+ *	   mode 0 renders 1e23 as 1e23 rather than 9.999999999999999e22.
+ *	   That is, we allow equality in stopping tests when the
+ *	   round-nearest rule will give the same floating-point value
+ *	   as would satisfaction of the stopping test with strict
+ *	   inequality.
+ *	4. We remove common factors of powers of 2 from relevant
+ *	   quantities.
+ *	5. When converting floating-point integers less than 1e16,
+ *	   we use floating-point arithmetic rather than resorting
+ *	   to multiple-precision integers.
+ *	6. When asked to produce fewer than 15 digits, we first try
+ *	   to get by with floating-point arithmetic; we resort to
+ *	   multiple-precision integer arithmetic only if we cannot
+ *	   guarantee that the floating-point calculation has given
+ *	   the correctly rounded result.  For k requested digits and
+ *	   "uniformly" distributed input, the probability is
+ *	   something like 10^(k-15) that we must resort to the SLONG
+ *	   calculation.
+ */
+
+char *ib__dtoa
+	(double d, int mode, int ndigits, int *decpt, int *sign, char **rve) {
+	/* Arguments ndigits, decpt, sign are similar to those
+	   of ecvt and fcvt; trailing zeros are suppressed from
+	   the returned string.  If not null, *rve is set to point
+	   to the end of the return value.  If d is +-Infinity or NaN,
+	   then *decpt is set to 9999.
+
+	   mode:
+	   0 ==> shortest string that yields d when read in
+	   and rounded to nearest.
+	   1 ==> like 0, but with Steele & White stopping rule;
+	   e.g. with IEEE P754 arithmetic , mode 0 gives
+	   1e23 whereas mode 1 gives 9.999999999999999e22.
+	   2 ==> max(1,ndigits) significant digits.  This gives a
+	   return value similar to that of ecvt, except
+	   that trailing zeros are suppressed.
+	   3 ==> through ndigits past the decimal point.  This
+	   gives a return value similar to that from fcvt,
+	   except that trailing zeros are suppressed, and
+	   ndigits can be negative.
+	   4-9 should give the same return values as 2-3, i.e.,
+	   4 <= mode <= 9 ==> same return as mode
+	   2 + (mode & 1).  These modes are mainly for
+	   debugging; often they run slower but sometimes
+	   faster than modes 2-3.
+	   4,5,8,9 ==> left-to-right digit generation.
+	   6-9 ==> don't try fast floating-point estimate
+	   (if applicable).
+
+	   Values of mode other than 0-9 are treated as mode 0.
+
+	   Sufficient space is allocated to the return value
+	   to hold the suppressed trailing zeros.
+	 */
+
+	int bbits, b2, b5, be, dig, i, ieps, ilim0,
+		j, j1, k, k0, k_check, leftright, m2, m5, s2, s5, try_quick;
+	int ilim = 0, ilim1 = 0, spec_case = 0;	/* pacify gcc */
+	SLONG L;
+#ifndef Sudden_Underflow
+	int denorm;
+	ULONG x;
+#endif
+	Bigint *b, *b1, *delta, *mhi, *S;
+	Bigint *mlo = NULL;			/* pacify gcc */
+	double d2, ds, eps;
+	char *s, *s0;
+	static Bigint *result;
+	static int result_k;
+
+	if (result) {
+		result->k = result_k;
+		result->maxwds = 1 << result_k;
+		Bfree(result);
+		result = 0;
+	}
+
+	if (word0(d) & Sign_bit) {
+		/* set sign for everything, including 0's and NaNs */
+		*sign = 1;
+		word0(d) &= ~Sign_bit;	/* clear sign bit */
+	}
+	else
+		*sign = 0;
+
+#if defined(IEEE_Arith) + defined(VAX)
+#ifdef IEEE_Arith
+	if ((word0(d) & Exp_mask) == Exp_mask)
+#else
+	if (word0(d) == 0x8000)
+#endif
+	{
+		/* Infinity or NaN */
+		*decpt = 9999;
+		s =
+#ifdef IEEE_Arith
+			!word1(d) && !(word0(d) & 0xfffff) ? "Infinity" :
+#endif
+			"NaN";
+		if (rve)
+			*rve =
+#ifdef IEEE_Arith
+				s[3] ? s + 8 :
+#endif
+				s + 3;
+		return s;
+	}
+#endif
+#ifdef IBM
+	d += 0;						/* normalize */
+#endif
+	if (!d) {
+		*decpt = 1;
+		s = "0";
+		if (rve)
+			*rve = s + 1;
+		return s;
+	}
+
+	b = d2b(d, &be, &bbits);
+#ifdef Sudden_Underflow
+	i = (int) (word0(d) >> Exp_shift1 & (Exp_mask >> Exp_shift1));
+#else
+	if ((i = (int) (word0(d) >> Exp_shift1 & (Exp_mask >> Exp_shift1))) != 0) {
+#endif
+		d2 = d;
+		word0(d2) &= Frac_mask1;
+		word0(d2) |= Exp_11;
+#ifdef IBM
+		if (j = 11 - hi0bits(word0(d2) & Frac_mask))
+			d2 /= 1 << j;
+#endif
+
+		/* log(x)   ~=~ log(1.5) + (x-1.5)/1.5
+		 * log10(x)  =  log(x) / log(10)
+		 *      ~=~ log(1.5)/log(10) + (x-1.5)/(1.5*log(10))
+		 * log10(d) = (i-Bias)*log(2)/log(10) + log10(d2)
+		 *
+		 * This suggests computing an approximation k to log10(d) by
+		 *
+		 * k = (i - Bias)*0.301029995663981
+		 *  + ( (d2-1.5)*0.289529654602168 + 0.176091259055681 );
+		 *
+		 * We want k to be too large rather than too small.
+		 * The error in the first-order Taylor series approximation
+		 * is in our favor, so we just round up the constant enough
+		 * to compensate for any error in the multiplication of
+		 * (i - Bias) by 0.301029995663981; since |i - Bias| <= 1077,
+		 * and 1077 * 0.30103 * 2^-52 ~=~ 7.2e-14,
+		 * adding 1e-13 to the constant term more than suffices.
+		 * Hence we adjust the constant term to 0.1760912590558.
+		 * (We could get a more accurate k by invoking log10,
+		 *  but this is probably not worthwhile.)
+		 */
+
+		i -= Bias;
+#ifdef IBM
+		i <<= 2;
+		i += j;
+#endif
+#ifndef Sudden_Underflow
+		denorm = 0;
+	}
+	else {
+		/* d is denormalized */
+
+		i = bbits + be + (Bias + (P - 1) - 1);
+		x = i > 32 ? word0(d) << (64 - i) | word1(d) >> (i - 32)
+			: word1(d) << (32 - i);
+		d2 = x;
+		word0(d2) -= 31 * Exp_msk1;	/* adjust exponent */
+		i -= (Bias + (P - 1) - 1) + 1;
+		denorm = 1;
+	}
+#endif
+	ds =
+		(d2 - 1.5) * 0.289529654602168 + 0.1760912590558 +
+		i * 0.301029995663981;
+	k = (int) ds;
+	if (ds < 0. && ds != k)
+		k--;					/* want k = floor(ds) */
+	k_check = 1;
+	if (k >= 0 && k <= Ten_pmax) {
+		if (d < tens[k])
+			k--;
+		k_check = 0;
+	}
+	j = bbits - i - 1;
+	if (j >= 0) {
+		b2 = 0;
+		s2 = j;
+	}
+	else {
+		b2 = -j;
+		s2 = 0;
+	}
+	if (k >= 0) {
+		b5 = 0;
+		s5 = k;
+		s2 += k;
+	}
+	else {
+		b2 -= k;
+		b5 = -k;
+		s5 = 0;
+	}
+	if (mode < 0 || mode > 9)
+		mode = 0;
+	try_quick = 1;
+	if (mode > 5) {
+		mode -= 4;
+		try_quick = 0;
+	}
+	leftright = 1;
+	switch (mode) {
+	case 0:
+	case 1:
+		ilim = ilim1 = -1;
+		i = 18;
+		ndigits = 0;
+		break;
+	case 2:
+		leftright = 0;
+		/* no break */
+	case 4:
+		if (ndigits <= 0)
+			ndigits = 1;
+		ilim = ilim1 = i = ndigits;
+		break;
+	case 3:
+		leftright = 0;
+		/* no break */
+	case 5:
+		i = ndigits + k + 1;
+		ilim = i;
+		ilim1 = i - 1;
+		if (i <= 0)
+			i = 1;
+	}
+	j = sizeof(ULONG);
+	for (result_k = 0; sizeof(Bigint) - sizeof(ULONG) + j <= i; j <<= 1)
+		result_k++;
+	result = Balloc(result_k);
+	s = s0 = (char *) result;
+
+	if (ilim >= 0 && ilim <= Quick_max && try_quick) {
+
+		/* Try to get by with floating-point arithmetic. */
+
+		i = 0;
+		d2 = d;
+		k0 = k;
+		ilim0 = ilim;
+		ieps = 2;				/* conservative */
+		if (k > 0) {
+			ds = tens[k & 0xf];
+			j = k >> 4;
+			if (j & Bletch) {
+				/* prevent overflows */
+				j &= Bletch - 1;
+				d /= bigtens[n_bigtens - 1];
+				ieps++;
+			}
+			for (; j; j >>= 1, i++)
+				if (j & 1) {
+					ieps++;
+					ds *= bigtens[i];
+				}
+			d /= ds;
+		}
+		else if ((j1 = -k) != 0) {
+			d *= tens[j1 & 0xf];
+			for (j = j1 >> 4; j; j >>= 1, i++)
+				if (j & 1) {
+					ieps++;
+					d *= bigtens[i];
+				}
+		}
+		if (k_check && d < 1. && ilim > 0) {
+			if (ilim1 <= 0)
+				goto fast_failed;
+			ilim = ilim1;
+			k--;
+			d *= 10.;
+			ieps++;
+		}
+		eps = ieps * d + 7.;
+		word0(eps) -= (P - 1) * Exp_msk1;
+		if (ilim == 0) {
+			S = mhi = 0;
+			d -= 5.;
+			if (d > eps)
+				goto one_digit;
+			if (d < -eps)
+				goto no_digits;
+			goto fast_failed;
+		}
+#ifndef No_leftright
+		if (leftright) {
+			/* Use Steele & White method of only
+			 * generating digits needed.
+			 */
+			eps = 0.5 / tens[ilim - 1] - eps;
+			for (i = 0;;) {
+				L = d;
+				d -= L;
+				*s++ = '0' + (int) L;
+				if (d < eps)
+					goto ret1;
+				if (1. - d < eps)
+					goto bump_up;
+				if (++i >= ilim)
+					break;
+				eps *= 10.;
+				d *= 10.;
+			}
+		}
+		else {
+#endif
+			/* Generate ilim digits, then fix them up. */
+			eps *= tens[ilim - 1];
+			for (i = 1;; i++, d *= 10.) {
+				L = d;
+				d -= L;
+				*s++ = '0' + (int) L;
+				if (i == ilim) {
+					if (d > 0.5 + eps)
+						goto bump_up;
+					else if (d < 0.5 - eps) {
+						while (*--s == '0');
+						s++;
+						goto ret1;
+					}
+					break;
+				}
+			}
+#ifndef No_leftright
+		}
+#endif
+	  fast_failed:
+		s = s0;
+		d = d2;
+		k = k0;
+		ilim = ilim0;
+	}
+
+	/* Do we have a "small" integer? */
+
+	if (be >= 0 && k <= Int_max) {
+		/* Yes. */
+		ds = tens[k];
+		if (ndigits < 0 && ilim <= 0) {
+			S = mhi = 0;
+			if (ilim < 0 || d <= 5 * ds)
+				goto no_digits;
+			goto one_digit;
+		}
+		for (i = 1;; i++) {
+			L = d / ds;
+			d -= L * ds;
+#ifdef Check_FLT_ROUNDS
+			/* If FLT_ROUNDS == 2, L will usually be high by 1 */
+			if (d < 0) {
+				L--;
+				d += ds;
+			}
+#endif
+			*s++ = '0' + (int) L;
+			if (i == ilim) {
+				d += d;
+				if (d > ds || (d == ds && L & 1)) {
+				  bump_up:
+					while (*--s == '9')
+						if (s == s0) {
+							k++;
+							*s = '0';
+							break;
+						}
+					++*s++;
+				}
+				break;
+			}
+			if (!(d *= 10.))
+				break;
+		}
+		goto ret1;
+	}
+
+	m2 = b2;
+	m5 = b5;
+	mhi = mlo = 0;
+	if (leftright) {
+		if (mode < 2) {
+			i =
+#ifndef Sudden_Underflow
+				denorm ? be + (Bias + (P - 1) - 1 + 1) :
+#endif
+#ifdef IBM
+				1 + 4 * P - 3 - bbits + ((bbits + be - 1) & 3);
+#else
+				1 + P - bbits;
+#endif
+		}
+		else {
+			j = ilim - 1;
+			if (m5 >= j)
+				m5 -= j;
+			else {
+				s5 += j -= m5;
+				b5 += j;
+				m5 = 0;
+			}
+			if ((i = ilim) < 0) {
+				m2 -= i;
+				i = 0;
+			}
+		}
+		b2 += i;
+		s2 += i;
+		mhi = i2b(1);
+	}
+	if (m2 > 0 && s2 > 0) {
+		i = m2 < s2 ? m2 : s2;
+		b2 -= i;
+		m2 -= i;
+		s2 -= i;
+	}
+	if (b5 > 0) {
+		if (leftright) {
+			if (m5 > 0) {
+				mhi = pow5mult(mhi, m5);
+				b1 = mult(mhi, b);
+				Bfree(b);
+				b = b1;
+			}
+			if ((j = b5 - m5) != 0)
+				b = pow5mult(b, j);
+		}
+		else
+			b = pow5mult(b, b5);
+	}
+	S = i2b(1);
+	if (s5 > 0)
+		S = pow5mult(S, s5);
+
+	/* Check for special case that d is a normalized power of 2. */
+
+	if (mode < 2) {
+		if (!word1(d) && !(word0(d) & Bndry_mask)
+#ifndef Sudden_Underflow
+			&& word0(d) & Exp_mask
+#endif
+			) {
+			/* The special case */
+			b2 += Log2P;
+			s2 += Log2P;
+			spec_case = 1;
+		}
+		else
+			spec_case = 0;
+	}
+
+	/* Arrange for convenient computation of quotients:
+	 * shift left if necessary so divisor has 4 leading 0 bits.
+	 *
+	 * Perhaps we should just compute leading 28 bits of S once
+	 * and for all and pass them and a shift to quorem, so it
+	 * can do shifts and ors to compute the numerator for q.
+	 */
+#ifdef Pack_32
+	if ((i = ((s5 ? 32 - hi0bits(S->x[S->wds - 1]) : 1) + s2) & 0x1f) != 0)
+		i = 32 - i;
+#else
+	if (i = ((s5 ? 32 - hi0bits(S->x[S->wds - 1]) : 1) + s2) & 0xf)
+		i = 16 - i;
+#endif
+	if (i > 4) {
+		i -= 4;
+		b2 += i;
+		m2 += i;
+		s2 += i;
+	}
+	else if (i < 4) {
+		i += 28;
+		b2 += i;
+		m2 += i;
+		s2 += i;
+	}
+	if (b2 > 0)
+		b = lshift(b, b2);
+	if (s2 > 0)
+		S = lshift(S, s2);
+	if (k_check) {
+		if (cmp(b, S) < 0) {
+			k--;
+			b = multadd(b, 10, 0);	/* we botched the k estimate */
+			if (leftright)
+				mhi = multadd(mhi, 10, 0);
+			ilim = ilim1;
+		}
+	}
+	if (ilim <= 0 && mode > 2) {
+		if (ilim < 0 || cmp(b, S = multadd(S, 5, 0)) <= 0) {
+			/* no digits, fcvt style */
+		  no_digits:
+			k = -1 - ndigits;
+			goto ret;
+		}
+	  one_digit:
+		*s++ = '1';
+		k++;
+		goto ret;
+	}
+	if (leftright) {
+		if (m2 > 0)
+			mhi = lshift(mhi, m2);
+
+		/* Compute mlo -- check for special case
+		 * that d is a normalized power of 2.
+		 */
+
+		mlo = mhi;
+		if (spec_case) {
+			mhi = Balloc(mhi->k);
+			Bcopy(mhi, mlo);
+			mhi = lshift(mhi, Log2P);
+		}
+
+		for (i = 1;; i++) {
+			dig = quorem(b, S) + '0';
+			/* Do we yet have the shortest decimal string
+			 * that will round to d?
+			 */
+			j = cmp(b, mlo);
+			delta = diff(S, mhi);
+			j1 = delta->sign ? 1 : cmp(b, delta);
+			Bfree(delta);
+#ifndef ROUND_BIASED
+			if (j1 == 0 && !mode && !(word1(d) & 1)) {
+				if (dig == '9')
+					goto round_9_up;
+				if (j > 0)
+					dig++;
+				*s++ = dig;
+				goto ret;
+			}
+#endif
+			if (j < 0 || (j == 0 && !mode
+#ifndef ROUND_BIASED
+						  && !(word1(d) & 1)
+#endif
+				)) {
+				if (j1 > 0) {
+					b = lshift(b, 1);
+					j1 = cmp(b, S);
+					if ((j1 > 0 || (j1 == 0 && dig & 1))
+						&& dig++ == '9')
+						goto round_9_up;
+				}
+				*s++ = dig;
+				goto ret;
+			}
+			if (j1 > 0) {
+				if (dig == '9') {	/* possible if i == 1 */
+				  round_9_up:
+					*s++ = '9';
+					goto roundoff;
+				}
+				*s++ = dig + 1;
+				goto ret;
+			}
+			*s++ = dig;
+			if (i == ilim)
+				break;
+			b = multadd(b, 10, 0);
+			if (mlo == mhi)
+				mlo = mhi = multadd(mhi, 10, 0);
+			else {
+				mlo = multadd(mlo, 10, 0);
+				mhi = multadd(mhi, 10, 0);
+			}
+		}
+	}
+	else
+		for (i = 1;; i++) {
+			*s++ = dig = quorem(b, S) + '0';
+			if (i >= ilim)
+				break;
+			b = multadd(b, 10, 0);
+		}
+
+	/* Round off last digit */
+
+	b = lshift(b, 1);
+	j = cmp(b, S);
+	if (j > 0 || (j == 0 && dig & 1)) {
+	  roundoff:
+		while (*--s == '9')
+			if (s == s0) {
+				k++;
+				*s++ = '1';
+				goto ret;
+			}
+		++*s++;
+	}
+	else {
+		while (*--s == '0');
+		s++;
+	}
+  ret:
+	Bfree(S);
+	if (mhi) {
+		if (mlo && mlo != mhi)
+			Bfree(mlo);
+		Bfree(mhi);
+	}
+  ret1:
+	Bfree(b);
+	if (s == s0) {				/* don't return empty string */
+		*s++ = '0';
+		k = 0;
+	}
+	*s = 0;
+	*decpt = k + 1;
+	if (rve)
+		*rve = s;
+	return s0;
+}
+
+/* end of inclusions from libc/stdlib/netbsd_strtod.c */
+
+/* From libc/locale/collcmp.c */
+
+/*
+ * Copyright (C) 1996 by Andrey A. Chernov, Moscow, Russia.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ * $FreeBSD: src/lib/libc/locale/collcmp.c,v 1.11.2.1 1999/08/29 14:47:13 peter Exp $
+ */
+
+#define ASCII_COMPATIBLE_COLLATE	/* see usr.bin/colldef/data */
+
+/*
+ * Compare two characters converting collate information
+ * into ASCII-compatible range, it allows to handle
+ * "[a-z]"-type ranges with national characters.
+ */
+
+static int ib__collate_range_cmp(c1, c2)
+	 int c1, c2;
+{
+	static char s1[2], s2[2];
+	int ret;
+#ifndef ASCII_COMPATIBLE_COLLATE
+	int as1, as2, al1, al2;
+#endif
+
+	c1 &= UCHAR_MAX;
+	c2 &= UCHAR_MAX;
+	if (c1 == c2)
+		return (0);
+
+#ifndef ASCII_COMPATIBLE_COLLATE
+	as1 = isascii(c1);
+	as2 = isascii(c2);
+	al1 = isalpha(c1);
+	al2 = isalpha(c2);
+
+	if (as1 || as2 || al1 || al2) {
+		if ((as1 && as2) || (!al1 && !al2))
+			return (c1 - c2);
+		if (al1 && !al2) {
+			if (isupper(c1))
+				return ('A' - c2);
+			else
+				return ('a' - c2);
+		}
+		else if (al2 && !al1) {
+			if (isupper(c2))
+				return (c1 - 'A');
+			else
+				return (c1 - 'a');
+		}
+	}
+#endif
+	s1[0] = c1;
+	s2[0] = c2;
+	if ((ret = strcoll(s1, s2)) != 0)
+		return (ret);
+	return (c1 - c2);
+}
+
+
+#endif /* NEED_IB_STDIO */
diff --git a/src/jrd/ib_stdio.h b/src/jrd/ib_stdio.h
new file mode 100644
index 0000000000..02a1a1f181
--- /dev/null
+++ b/src/jrd/ib_stdio.h
@@ -0,0 +1,428 @@
+/*
+ * Copyright (c) 1990, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Chris Torek.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)stdio.h	8.5 (Berkeley) 4/29/95
+ * $FreeBSD: src/include/stdio.h,v 1.21.2.2 1999/08/29 14:38:56 peter Exp $
+ */
+
+#ifndef	IB_STDIO_H_
+#define	IB_STDIO_H_
+
+#ifndef IB_COMMON_H
+#include "../jrd/common.h"
+#endif
+
+#include <stdio.h>
+#include <stdarg.h>
+
+#define ib_fpos_t	fpos_t
+
+#ifndef NEED_IB_STDIO
+
+/* This is a platform with an adequate stdio implementation,
+ * so just define macros which will map all of our names
+ * to the usual names supplied by the platform's stdio.
+ */
+
+#define ib_stdin	stdin
+#define ib_stdout	stdout
+#define ib_stderr	stderr
+#define ib_clearerr	clearerr
+#define ib_fclose	fclose
+#define ib_feof		feof
+#define ib_ferror	ferror
+#define ib_fflush	fflush
+#define ib_fgetc	fgetc
+#define ib_fgetpos	fgetpos
+#define ib_fgets	fgets
+#define ib_fopen	fopen
+#define ib_fprintf	fprintf
+#define ib_fputc	fputc
+#define ib_fputs	fputs
+#define ib_fread	fread
+#define ib_freopen	freopen
+#define ib_fscanf	fscanf
+#define ib_fseek	fseek
+#define ib_fsetpos	fsetpos
+#define ib_ftell	ftell
+#define ib_fwrite	fwrite
+#define ib_getc		getc
+#define ib_getchar	getchar
+#define ib_perror	perror
+#define ib_printf	printf
+#define ib_putc		putc
+#define ib_putchar	putchar
+#define ib_puts		puts
+#define ib_rewind	rewind
+#define ib_scanf	scanf
+#define ib_setbuf	setbuf
+#define ib_setvbuf	setvbuf
+#define ib_tmpfile	tmpfile
+#define ib_ungetc	ungetc
+#define ib_vfprintf	vfprintf
+#define ib_vprintf	vprintf
+#define ib_fdopen	fdopen
+#define ib_fileno	fileno
+#define IB_FILE         FILE
+
+#else /* NEED_IB_STDIO */
+
+/* @#$% Solaris doesn't let you fopen() a FILE if the underlying open()
+ * returns a file descriptor > 255, so we need our private substitute
+ * for stdio.
+ */
+
+
+#include "source/jrd/cdefs.h"
+#include "source/jrd/ansi.h"
+
+#ifdef	_BSD_SIZE_T_
+typedef _BSD_SIZE_T_ size_t;
+#undef	_BSD_SIZE_T_
+#endif
+
+#ifndef NULL
+#define	NULL	0
+#endif
+
+#define	IB_FSTDIO				/* Define for new stdio with functions. */
+
+/*
+ * NB: to fit things in six character monocase externals, the stdio
+ * code uses the prefix `__s' for stdio objects, typically followed
+ * by a three-character attempt at a mnemonic.
+ *
+ * The InterBase version doesn't care about implementations with 6-char
+ * limits on external names, and names starting with _ belong to the
+ * implementation, so those names all gets "ib" as a prefix.
+ */
+
+/* stdio buffers */
+struct ib__sbuf {
+	unsigned char *_base;
+	int _size;
+};
+
+/*
+ * stdio state variables.
+ *
+ * The following always hold:
+ *
+ *	if (_flags&(__SLBF|__SWR)) == (__SLBF|__SWR),
+ *		_lbfsize is -_bf._size, else _lbfsize is 0
+ *	if _flags&__SRD, _w is 0
+ *	if _flags&__SWR, _r is 0
+ *
+ * This ensures that the getc and putc macros (or inline functions) never
+ * try to write or read from a file that is in `read' or `write' mode.
+ * (Moreover, they can, and do, automatically switch from read mode to
+ * write mode, and back, on "r+" and "w+" files.)
+ *
+ * _lbfsize is used only to make the inline line-buffered output stream
+ * code as compact as possible.
+ *
+ * _ub, _up, and _ur are used when ungetc() pushes back more characters
+ * than fit in the current _bf, or when ungetc() pushes back a character
+ * that does not match the previous one in _bf.  When this happens,
+ * _ub._base becomes non-nil (i.e., a stream has ungetc() data iff
+ * _ub._base!=NULL) and _up and _ur save the current values of _p and _r.
+ *
+ * NB: see WARNING above before changing the layout of this structure!
+ */
+typedef struct ib__sFILE {
+	unsigned char *_p;			/* current position in (some) buffer */
+	int _r;						/* read space left for getc() */
+	int _w;						/* write space left for putc() */
+	short _flags;				/* flags, below; this FILE is free if 0 */
+	short _file;				/* fileno, if Unix descriptor, else -1 */
+	struct ib__sbuf _bf;		/* the buffer (at least 1 byte, if !NULL) */
+	int _lbfsize;				/* 0 or -_bf._size, for inline putc */
+
+	/* operations */
+	void *_cookie;				/* cookie passed to io functions */
+	int (*_close) (void *);
+	int (*_read) (void *, char *, int);
+	  ib_fpos_t(*_seek) (void *, ib_fpos_t, int);
+	int (*_write) (void *, const char *, int);
+
+	/* separate buffer for long sequences of ungetc() */
+	struct ib__sbuf _ub;		/* ungetc buffer */
+	unsigned char *_up;			/* saved _p when _p is doing ungetc data */
+	int _ur;					/* saved _r when _r is counting ungetc data */
+
+	/* tricks to meet minimum requirements even when malloc() fails */
+	unsigned char _ubuf[3];		/* guarantee an ungetc() buffer */
+	unsigned char _nbuf[1];		/* guarantee a getc() buffer */
+
+	/* separate buffer for fgetln() when line crosses buffer boundary */
+	struct ib__sbuf _lb;		/* buffer for fgetln() */
+
+	/* Unix stdio files get aligned to block boundaries on fseek() */
+	int _blksize;				/* stat.st_blksize (may be != _bf._size) */
+	ib_fpos_t _offset;			/* current lseek offset (see WARNING) */
+} IB_FILE;
+
+extern IB_FILE ib__sF[];
+
+#define	IB__SLBF	0x0001		/* line buffered */
+#define	IB__SNBF	0x0002		/* unbuffered */
+#define	IB__SRD		0x0004		/* OK to read */
+#define	IB__SWR		0x0008		/* OK to write */
+	/* RD and WR are never simultaneously asserted */
+#define	IB__SRW		0x0010		/* open for reading & writing */
+#define	IB__SEOF	0x0020		/* found EOF */
+#define	IB__SERR	0x0040		/* found error */
+#define	IB__SMBF	0x0080		/* _buf is from malloc */
+#define	IB__SAPP	0x0100		/* fdopen()ed in append mode */
+#define	IB__SSTR	0x0200		/* this is an sprintf/snprintf string */
+#define	IB__SOPT	0x0400		/* do fseek() optimization */
+#define	IB__SNPT	0x0800		/* do not do fseek() optimization */
+#define	IB__SOFF	0x1000		/* set iff _offset is in fact correct */
+#define	IB__SMOD	0x2000		/* true => fgetln modified _p text */
+#define	IB__SALC	0x4000		/* allocate string space dynamically */
+
+/*
+ * The following three definitions are for ANSI C, which took them
+ * from System V, which brilliantly took internal interface macros and
+ * made them official arguments to setvbuf(), without renaming them.
+ * Hence, these ugly _IOxxx names are *supposed* to appear in user code.
+ *
+ * Although numbered as their counterparts above, the implementation
+ * does not rely on this.
+ */
+/* #define	_IOFBF	0   	*//* setvbuf should set fully buffered */
+/* #define	_IOLBF	1	*//* setvbuf should set line buffered */
+/* #define	_IONBF	2	*//* setvbuf should set unbuffered */
+
+/* #define	BUFSIZ	1024	*//* size of buffer used by setbuf */
+/* #define	EOF	(-1) */
+
+/*
+ * FOPEN_MAX is a minimum maximum, and is the number of streams that
+ * stdio can provide without attempting to allocate further resources
+ * (which could fail).  Do not use this for anything.
+ */
+				/* must be == _POSIX_STREAM_MAX <limits.h> */
+#define	IB_FOPEN_MAX	8		/* must be <= OPEN_MAX <sys/syslimits.h> */
+/* Should the above be 8 (_POSIX_STREAM_MAX) or 64 (OPEN_MAX)? ????? */
+#define	IB_FILENAME_MAX	1024	/* must be <= PATH_MAX <sys/syslimits.h> on */
+				/* BSD, but in <limits.h> on Solaris */
+
+
+#define	ib_stdin	(&ib__sF[0])
+#define	ib_stdout	(&ib__sF[1])
+#define	ib_stderr	(&ib__sF[2])
+
+/*
+ * Functions defined in ANSI C standard.
+ */
+
+void ib_clearerr(IB_FILE *);
+int ib_fclose(IB_FILE *);
+int ib_feof(IB_FILE *);
+int ib_ferror(IB_FILE *);
+int ib_fflush(IB_FILE *);
+int ib_fgetc(IB_FILE *);
+int ib_fgetpos(IB_FILE *, ib_fpos_t *);
+char *ib_fgets(char *, int, IB_FILE *);
+IB_FILE *ib_fopen(const char *, const char *);
+int ib_fprintf(IB_FILE *, const char *, ...);
+int ib_fputc(int, IB_FILE *);
+int ib_fputs(const char *, IB_FILE *);
+size_t ib_fread(void *, size_t, size_t, IB_FILE *);
+IB_FILE *ib_freopen(const char *, const char *, IB_FILE *);
+int ib_fscanf(IB_FILE *, const char *, ...);
+int ib_fseek(IB_FILE *, long, int);
+int ib_fsetpos(IB_FILE *, const ib_fpos_t *);
+long ib_ftell(IB_FILE *);
+size_t ib_fwrite(const void *, size_t, size_t, IB_FILE *);
+int ib_getc(IB_FILE *);
+int ib_getchar(void);
+void ib_perror(const char *);
+int ib_printf(const char *, ...);
+int ib_putc(int, IB_FILE *);
+int ib_putchar(int);
+int ib_puts(const char *);
+void ib_rewind(IB_FILE *);
+int ib_scanf(const char *, ...);
+void ib_setbuf(IB_FILE *, char *);
+int ib_setvbuf(IB_FILE *, char *, int, size_t);
+IB_FILE *ib_tmpfile(void);
+int ib_ungetc(int, IB_FILE *);
+int ib_vfprintf(IB_FILE *, const char *, va_list);
+int ib_vprintf(const char *, va_list);
+
+/*
+ * Functions defined in POSIX 1003.1.
+ */
+/* size for cuserid(3); UT_NAMESIZE + 1, see <utmp.h> */
+#define	L_cuserid	17
+
+__BEGIN_DECLS IB_FILE * ib_fdopen(int, const char *);
+int ib_fileno(IB_FILE *);
+
+__END_DECLS
+/*
+ * Routines that are purely local.
+ */
+__BEGIN_DECLS int ib_asprintf(char **, const char *, ...) __printflike(2, 3);
+	 char *ib_fgetln(IB_FILE *, size_t *);
+	 int ib_fpurge(IB_FILE *);
+	 int ib_fseeko(IB_FILE *, off_t, int);
+	 off_t ib_ftello(IB_FILE *);
+	 int ib_getw(IB_FILE *);
+	 int ib_pclose(IB_FILE *);
+	 FILE *ib_popen(const char *, const char *);
+	 int ib_putw(int, IB_FILE *);
+	 void ib_setbuffer(IB_FILE *, char *, int);
+	 int ib_setlinebuf(IB_FILE *);
+/* char	*tempnam (const char *, const char *); */
+	 int ib_vscanf(const char *, va_list) __scanflike(1, 0);
+__END_DECLS
+/*
+ * This is a #define because the function is used internally and
+ * (unlike vfscanf) the name __svfscanf is guaranteed not to collide
+ * with a user function when _ANSI_SOURCE or _POSIX_SOURCE is defined.
+ */
+#define	 ib_vfscanf	ib__svfscanf
+/*
+ * Stdio function-access interface.
+ */
+__BEGIN_DECLS
+	IB_FILE * ib_funopen(const void *,
+							 int (*)(void *, char *, int),
+						 int (*)(void *, const char *, int),
+						 ib_fpos_t(*)(void *, ib_fpos_t, int),
+						 int (*)(void *));
+__END_DECLS
+#define	ib_fropen(cookie, fn) ib_funopen(cookie, fn, 0, 0, 0)
+#define	ib_fwopen(cookie, fn) ib_funopen(cookie, 0, fn, 0, 0)
+/*
+ * Functions internal to the implementation.
+ */
+	 __BEGIN_DECLS int ib__srget(IB_FILE *);
+	 int ib__svfscanf(IB_FILE *, const char *, va_list);
+	 int ib__swbuf(int, IB_FILE *);
+__END_DECLS
+/*
+ * The __sfoo macros are here so that we can
+ * define function versions in the C library.
+ */
+#define	ib__sgetc(p) (--(p)->_r < 0 ? ib__srget(p) : (int)(*(p)->_p++))
+#if defined(__GNUC__) && defined(__STDC__)
+	 static __inline int ib__sputc(int _c, IB_FILE * _p)
+{
+	if (--_p->_w >= 0 || (_p->_w >= _p->_lbfsize && (char) _c != '\n'))
+		return (*_p->_p++ = _c);
+	else
+		return (ib__swbuf(_c, _p));
+}
+#else
+/*
+ * This has been tuned to generate reasonable code on the vax using pcc.
+ */
+#define	ib__sputc(c, p) \
+	(--(p)->_w < 0 ? \
+		(p)->_w >= (p)->_lbfsize ? \
+			(*(p)->_p = (c)), *(p)->_p != '\n' ? \
+				(int)*(p)->_p++ : \
+				ib__swbuf('\n', p) : \
+			ib__swbuf((int)(c), p) : \
+		(*(p)->_p = (c), (int)*(p)->_p++))
+#endif
+#define	ib__sfeof(p)	(((p)->_flags & IB__SEOF) != 0)
+#define	ib__sferror(p)	(((p)->_flags & IB__SERR) != 0)
+#define	ib__sclearerr(p) ((void)((p)->_flags &= ~(IB__SERR|IB__SEOF)))
+#define	ib__sfileno(p)	((p)->_file)
+/*
+ * See ISO/IEC 9945-1 ANSI/IEEE Std 1003.1 Second Edition 1996-07-12
+ * B.8.2.7 for the rationale behind the *_unlocked() macros.
+ */
+#define	ib_feof_unlocked(p)	ib__sfeof(p)
+#define	ib_ferror_unlocked(p)	ib__sferror(p)
+#define	ib_clearerr_unlocked(p)	ib__sclearerr(p)
+#define	ib_fileno_unlocked(p)	ib__sfileno(p)
+#ifndef  _THREAD_SAFE
+#define	ib_feof(p)	ib_feof_unlocked(p)
+#define	ib_ferror(p)	ib_ferror_unlocked(p)
+#define	ib_clearerr(p)	ib_clearerr_unlocked(p)
+#define	ib_fileno(p)	ib_fileno_unlocked(p)
+#endif
+#ifndef lint
+#define	ib_getc_unlocked(fp)	ib__sgetc(fp)
+#define ib_putc_unlocked(x, fp)	ib__sputc(x, fp)
+#ifdef	_THREAD_SAFE
+	 void ib_flockfile_debug(IB_FILE *, char *, int);
+#ifdef	_FLOCK_DEBUG
+#define IB_FLOCKFILE(x)	ib__flockfile_debug(x, __FILE__, __LINE__)
+#else
+#define IB_FLOCKFILE(x)	ib_flockfile(x)
+#endif
+	 static __inline int \ ib__getc_locked(IB_FILE * _fp) \
+{
+	\extern int ib__isthreaded;
+	\int _ret;
+	\if (__isthreaded)
+		\IB_FLOCKFILE(_fp);
+	\_ret = ib_getc_unlocked(_fp);
+	\if (ib__isthreaded)
+		\ib_funlockfile(_fp);
+	\return (_ret);
+\}
+static __inline int \ ib__putc_locked(int _x, IB_FILE * _fp) \
+{
+	\extern int ib__isthreaded;
+	\int _ret;
+	\if (ib__isthreaded)
+		\IB_FLOCKFILE(_fp);
+	\_ret = ib_putc_unlocked(_x, _fp);
+	\if (ib__isthreaded)
+		\ib_funlockfile(_fp);
+	\return (_ret);
+\}
+
+#define	ib_getc(fp)	ib__getc_locked(fp)
+#define	ib_putc(x, fp)	ib__putc_locked(x, fp)
+#else
+#define	ib_getc(fp)	ib_getc_unlocked(fp)
+#define ib_putc(x, fp)	ib_putc_unlocked(x, fp)
+#endif
+#endif /* lint */
+#define	ib_getchar()		ib_getc(ib_stdin)
+#define	ib_getchar_unlocked()	ib_getc_unlocked(ib_stdin)
+#define	ib_putchar(x)		ib_putc(x, ib_stdout)
+#define	ib_putchar_unlocked(x)	ib_putc_unlocked(x, ib_stdout)
+#endif /* NEED_IB_STDIO */
+#endif /* !IB_STDIO_H_ */
diff --git a/src/jrd/ibase.h b/src/jrd/ibase.h
new file mode 100644
index 0000000000..5c6cccc81b
--- /dev/null
+++ b/src/jrd/ibase.h
@@ -0,0 +1,2384 @@
+/*
+ *	MODULE:		ibase.h
+ *	DESCRIPTION:	OSRI entrypoints and defines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Added TCP_NO_DELAY option for superserver on Linux
+ * FSG 16.03.2001 
+ */
+/*
+$Id: ibase.h,v 1.1.1.1 2001-05-23 13:26:15 tamlin Exp $
+ */
+
+#ifndef JRD_IBASE_H
+#define JRD_IBASE_H
+
+#ifndef INCLUDE_FB_TYPES_H
+#include "../include/fb_types.h"
+#endif
+
+#define isc_version4
+
+#define  ISC_TRUE	1
+#define  ISC_FALSE	0
+#if !(defined __cplusplus)
+#define  ISC__TRUE	ISC_TRUE
+#define  ISC__FALSE	ISC_FALSE
+#endif
+
+#if (defined __osf__ && defined __alpha)
+#define  ISC_LONG	int
+#define  ISC_ULONG	unsigned int
+#else
+#define  ISC_LONG	signed long
+#define  ISC_ULONG	unsigned long
+#endif
+
+#define  ISC_SHORT	signed short
+#define  ISC_USHORT	unsigned short
+#define  ISC_STATUS	long
+
+#define ISC_UCHAR	unsigned char
+
+#define  DSQL_close     1
+#define  DSQL_drop      2
+
+
+/******************************************************************/
+/* Define type, export and other stuff based on c/c++ and Windows */
+/******************************************************************/
+
+#if (defined(_MSC_VER) && defined(_WIN32)) || \
+    (defined(__BORLANDC__) && (defined(__WIN32__) || defined(__OS2__)))
+#  define  ISC_FAR
+#  define  ISC_EXPORT	__stdcall
+#  define  ISC_EXPORT_VARARG	__cdecl
+	typedef __int64 ISC_INT64;
+	typedef unsigned __int64 ISC_UINT64;
+#  define  ISC_INT64_DEFINED
+#else /* Not Windows/NT */
+#  if (defined(__IBMC__) && defined(__OS2__))
+#    define  ISC_FAR
+#    define  ISC_EXPORT	_System
+#    define  ISC_EXPORT_VARARG	ISC_EXPORT
+#  else /* not IBM C Set++ for OS/2 */
+#    if ( defined( _Windows) || defined( _WINDOWS))
+#      define  ISC_FAR	__far
+#      define  ISC_EXPORT     ISC_FAR __cdecl __loadds __export
+#      define  ISC_EXPORT_VARARG	ISC_EXPORT
+#    else /* Not Windows/NT, OS/2 or Windows */
+#      define  ISC_FAR
+#      define  ISC_EXPORT
+#      define  ISC_EXPORT_VARARG
+#    endif /* Windows and Not Windows/NT or OS/2 */
+#  endif /* IBM C Set++ for OS/2 */
+#endif /* Windows/NT */
+
+/*******************************************************************/
+/* 64 bit Integers                                                 */
+/*******************************************************************/
+
+#ifdef  ISC_INT64_DEFINED
+#undef  ISC_INT64_DEFINED
+#else
+typedef long long int			ISC_INT64;
+typedef unsigned long long int	ISC_UINT64;
+#endif
+
+/*******************************************************************/
+/* Time & Date Support                                             */
+/*******************************************************************/
+
+#ifndef ISC_TIMESTAMP_DEFINED
+typedef long			ISC_DATE;
+typedef unsigned long	ISC_TIME;
+typedef struct
+{
+	ISC_DATE timestamp_date;
+	ISC_TIME timestamp_time;
+} ISC_TIMESTAMP;
+#define ISC_TIMESTAMP_DEFINED
+#endif	/* ISC_TIMESTAMP_DEFINED */
+
+#define ISC_TIME_SECONDS_PRECISION          10000L
+#define ISC_TIME_SECONDS_PRECISION_SCALE    -4
+
+/*******************************************************************/
+/* Blob id structure                                               */
+/*******************************************************************/
+
+
+#if !(defined __cplusplus)
+typedef GDS_QUAD GDS__QUAD;
+#endif /* !(defined __cplusplus) */
+
+#if 1
+
+/* TMN: What *is* really the right definition of these structs?! */
+/* Is e.g a GDS_QUAD to be signed or unsigned?! */
+
+#ifndef ISC_QUAD
+
+typedef struct {
+    unsigned long uquad_high;
+    unsigned long uquad_low;
+} ISC_UQUAD;
+
+typedef struct {
+    signed long    squad_high;
+    unsigned long  squad_low;
+} ISC_SQUAD; 
+
+#define GDS_QUAD  ISC_UQUAD
+#define GDS__QUAD ISC_UQUAD
+
+#define gds_quad_high uquad_high
+#define gds_quad_low  uquad_low
+
+#define ISC_QUAD    ISC_UQUAD
+#define isc_quad_high uquad_high
+#define isc_quad_low uquad_low
+
+#endif	/* ISC_QUAD */
+
+#else	/* 1 */
+
+#define	isc_quad_high	gds_quad_high
+#define	isc_quad_low	gds_quad_low
+
+#endif	/* 1 */
+
+typedef struct
+{
+	short array_bound_lower;
+	short array_bound_upper;
+} ISC_ARRAY_BOUND;
+
+typedef struct
+{
+	unsigned char	array_desc_dtype;
+	char			array_desc_scale;
+	unsigned short	array_desc_length;
+	char			array_desc_field_name[32];
+	char			array_desc_relation_name[32];
+	short			array_desc_dimensions;
+	short			array_desc_flags;
+	ISC_ARRAY_BOUND	array_desc_bounds[16];
+} ISC_ARRAY_DESC;
+
+typedef struct
+{
+	short			blob_desc_subtype;
+	short			blob_desc_charset;
+	short			blob_desc_segment_size;
+	unsigned char	blob_desc_field_name[32];
+	unsigned char	blob_desc_relation_name[32];
+} ISC_BLOB_DESC;
+
+
+
+/***************************/
+/* Blob control structure  */
+/***************************/
+
+typedef struct isc_blob_ctl
+{
+	ISC_STATUS	(ISC_FAR* ctl_source)();	/* Source filter */
+	struct isc_blob_ctl ISC_FAR*	ctl_source_handle;	/* Argument to pass to source filter */
+	short					ctl_to_sub_type;		/* Target type */
+	short					ctl_from_sub_type;		/* Source type */
+	unsigned short			ctl_buffer_length;		/* Length of buffer */
+	unsigned short			ctl_segment_length;		/* Length of current segment */
+	unsigned short			ctl_bpb_length;			/* Length of blob parameter  block */
+	char ISC_FAR*			ctl_bpb;				/* Address of blob parameter block */
+	unsigned char ISC_FAR*	ctl_buffer;				/* Address of segment buffer */
+	ISC_LONG				ctl_max_segment;		/* Length of longest segment */
+	ISC_LONG				ctl_number_segments;	/* Total number of segments */
+	ISC_LONG				ctl_total_length;		/* Total length of blob */
+	ISC_STATUS ISC_FAR*		ctl_status;				/* Address of status vector */
+	long					ctl_data[8];			/* Application specific data */
+} ISC_FAR* ISC_BLOB_CTL;
+
+/***************************/
+/* Blob stream definitions */
+/***************************/
+
+typedef struct bstream
+{
+	void ISC_FAR*	bstr_blob;		/* Blob handle */
+	char ISC_FAR*	bstr_buffer;	/* Address of buffer */
+	char ISC_FAR*	bstr_ptr;		/* Next character */
+	short			bstr_length;	/* Length of buffer */
+	short			bstr_cnt;		/* Characters in buffer */
+	char			bstr_mode;		/* (mode) ? OUTPUT : INPUT */
+} BSTREAM;
+
+/* Three ugly macros, one even using octal radix... sigh... */
+#define getb(p)	(--(p)->bstr_cnt >= 0 ? *(p)->bstr_ptr++ & 0377: BLOB_get (p))
+#define putb(x,p) (((x) == '\n' || (!(--(p)->bstr_cnt))) ? BLOB_put ((x),p) : ((int) (*(p)->bstr_ptr++ = (unsigned) (x))))
+#define putbx(x,p) ((!(--(p)->bstr_cnt)) ? BLOB_put ((x),p) : ((int) (*(p)->bstr_ptr++ = (unsigned) (x))))
+
+
+/***************************/
+/* Dynamic SQL definitions */
+/***************************/
+
+/******************************/
+/* Declare the extended SQLDA */
+/******************************/
+
+#ifndef FB_SQLDA
+
+typedef struct
+{
+	short			sqltype;			/* datatype of field */
+	short			sqlscale;			/* scale factor */
+	short			sqlsubtype;			/* datatype subtype - BLOBs & Text types only */
+	short			sqllen;				/* length of data area */
+	char ISC_FAR*	sqldata;			/* address of data */
+	short ISC_FAR*	sqlind;				/* address of indicator variable */
+	short			sqlname_length;		/* length of sqlname field */
+	char			sqlname[32];		/* name of field, name length + space for NULL */
+	short			relname_length;		/* length of relation name */
+	char			relname[32];		/* field's relation name + space for NULL */
+	short			ownname_length;		/* length of owner name */
+	char			ownname[32];		/* relation's owner name + space for  NULL */
+	short			aliasname_length;	/* length of alias name */
+	char			aliasname[32];		/* relation's alias name + space for NULL */
+} XSQLVAR;
+
+typedef struct
+{
+	short		version;			/* version of this XSQLDA */
+	char		sqldaid[8];			/* XSQLDA name field */
+	ISC_LONG	sqldabc;			/* length in bytes of SQLDA */
+	short		sqln;				/* number of fields allocated */
+	short		sqld;				/* actual number of fields */
+	XSQLVAR		sqlvar[1];			/* first field address */
+} XSQLDA;
+
+#define XSQLDA_LENGTH(n)	(sizeof (XSQLDA) + ((n)-1) * sizeof (XSQLVAR))
+
+#define SQLDA_VERSION1				1
+
+#define SQL_DIALECT_V5				1	/* meaning is same as DIALECT_xsqlda */
+#define SQL_DIALECT_V6_TRANSITION	2	/* flagging anything that is delimited
+										   by double quotes as an error and
+										   flagging keyword DATE as an error */
+#define SQL_DIALECT_V6				3	/* supports SQL delimited identifier,
+										   SQLDATE/DATE, TIME, TIMESTAMP,
+										   CURRENT_DATE, CURRENT_TIME,
+										   CURRENT_TIMESTAMP, and 64-bit exact
+										   numeric type */
+#define SQL_DIALECT_CURRENT		SQL_DIALECT_V6	/* latest IB DIALECT */
+
+
+#define FB_SQLDA
+#endif
+
+/********************************/
+/* InterBase Handle Definitions */
+/********************************/
+
+typedef void ISC_FAR* isc_att_handle;
+typedef void ISC_FAR* isc_blob_handle;
+typedef void ISC_FAR* isc_db_handle;
+typedef void ISC_FAR* isc_form_handle;
+typedef void ISC_FAR* isc_req_handle;
+typedef void ISC_FAR* isc_stmt_handle;
+typedef void ISC_FAR* isc_svc_handle;
+typedef void ISC_FAR* isc_tr_handle;
+typedef void ISC_FAR* isc_win_handle;
+typedef void (ISC_FAR* isc_callback) ();
+typedef ISC_LONG isc_resv_handle;
+
+
+/***************************/
+/* OSRI database functions */
+/***************************/
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+ISC_STATUS ISC_EXPORT isc_attach_database(ISC_STATUS ISC_FAR*,
+										  short,
+										  char ISC_FAR*,
+										  isc_db_handle ISC_FAR*,
+										  short,
+										  char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_array_gen_sdl(ISC_STATUS ISC_FAR*,
+										ISC_ARRAY_DESC ISC_FAR*,
+										short ISC_FAR*,
+										char ISC_FAR*,
+										short ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_array_get_slice(ISC_STATUS ISC_FAR*,
+										  isc_db_handle ISC_FAR*,
+										  isc_tr_handle ISC_FAR*,
+										  ISC_QUAD ISC_FAR*,
+										  ISC_ARRAY_DESC ISC_FAR*,
+										  void ISC_FAR*,
+										  ISC_LONG ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_array_lookup_bounds(ISC_STATUS ISC_FAR*,
+											  isc_db_handle ISC_FAR*,
+											  isc_tr_handle ISC_FAR*,
+											  char ISC_FAR*,
+											  char ISC_FAR*,
+											  ISC_ARRAY_DESC ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_array_lookup_desc(ISC_STATUS ISC_FAR*,
+											isc_db_handle ISC_FAR*,
+											isc_tr_handle ISC_FAR*,
+											char ISC_FAR*,
+											char ISC_FAR*,
+											ISC_ARRAY_DESC ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_array_set_desc(ISC_STATUS ISC_FAR*,
+										 char ISC_FAR*,
+										 char ISC_FAR*,
+										 short ISC_FAR*,
+										 short ISC_FAR*,
+										 short ISC_FAR*,
+										 ISC_ARRAY_DESC ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_array_put_slice(ISC_STATUS ISC_FAR*,
+										  isc_db_handle ISC_FAR*,
+										  isc_tr_handle ISC_FAR*,
+										  ISC_QUAD ISC_FAR*,
+										  ISC_ARRAY_DESC ISC_FAR*,
+										  void ISC_FAR*,
+										  ISC_LONG ISC_FAR*);
+
+void ISC_EXPORT isc_blob_default_desc(ISC_BLOB_DESC ISC_FAR*,
+									  unsigned char ISC_FAR*,
+									  unsigned char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_blob_gen_bpb(ISC_STATUS ISC_FAR*,
+									   ISC_BLOB_DESC ISC_FAR*,
+									   ISC_BLOB_DESC ISC_FAR*,
+									   unsigned short,
+									   unsigned char ISC_FAR*,
+									   unsigned short ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_blob_info(ISC_STATUS ISC_FAR*,
+									isc_blob_handle ISC_FAR*,
+									short,
+									char ISC_FAR*,
+									short,
+									char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_blob_lookup_desc(ISC_STATUS ISC_FAR*,
+										   isc_db_handle ISC_FAR*,
+										   isc_tr_handle ISC_FAR*,
+										   unsigned char ISC_FAR*,
+										   unsigned char ISC_FAR*,
+										   ISC_BLOB_DESC ISC_FAR*,
+										   unsigned char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_blob_set_desc(ISC_STATUS ISC_FAR*,
+										unsigned char ISC_FAR*,
+										unsigned char ISC_FAR*,
+										short,
+										short,
+										short,
+										ISC_BLOB_DESC ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_cancel_blob(ISC_STATUS ISC_FAR*,
+									  isc_blob_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_cancel_events(ISC_STATUS ISC_FAR*,
+										isc_db_handle ISC_FAR*,
+										ISC_LONG ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_close_blob(ISC_STATUS ISC_FAR*,
+									 isc_blob_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_commit_retaining(ISC_STATUS ISC_FAR*,
+										   isc_tr_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_commit_transaction(ISC_STATUS ISC_FAR*,
+											 isc_tr_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_create_blob(ISC_STATUS ISC_FAR*,
+									  isc_db_handle ISC_FAR*,
+									  isc_tr_handle ISC_FAR*,
+									  isc_blob_handle ISC_FAR*,
+									  ISC_QUAD ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_create_blob2(ISC_STATUS ISC_FAR*,
+									   isc_db_handle ISC_FAR*,
+									   isc_tr_handle ISC_FAR*,
+									   isc_blob_handle ISC_FAR*,
+									   ISC_QUAD ISC_FAR*,
+									   short,
+									   char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_create_database(ISC_STATUS ISC_FAR*,
+										  short,
+										  char ISC_FAR*,
+										  isc_db_handle ISC_FAR*,
+										  short,
+										  char ISC_FAR*,
+										  short);
+
+ISC_STATUS ISC_EXPORT isc_database_info(ISC_STATUS ISC_FAR*,
+										isc_db_handle ISC_FAR*,
+										short,
+										char ISC_FAR*,
+										short,
+										char ISC_FAR*);
+
+void ISC_EXPORT isc_decode_date(ISC_QUAD ISC_FAR*,
+								void ISC_FAR*);
+
+void ISC_EXPORT isc_decode_sql_date(ISC_DATE ISC_FAR*,
+									void ISC_FAR*);
+
+void ISC_EXPORT isc_decode_sql_time(ISC_TIME ISC_FAR*,
+									void ISC_FAR*);
+
+void ISC_EXPORT isc_decode_timestamp(ISC_TIMESTAMP ISC_FAR*,
+									 void ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_detach_database(ISC_STATUS ISC_FAR*,
+										  isc_db_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_drop_database(ISC_STATUS ISC_FAR*,
+										isc_db_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_allocate_statement(ISC_STATUS ISC_FAR*,
+												  isc_db_handle ISC_FAR*,
+												  isc_stmt_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_alloc_statement2(ISC_STATUS ISC_FAR*,
+												isc_db_handle ISC_FAR*,
+												isc_stmt_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_describe(ISC_STATUS ISC_FAR*,
+										isc_stmt_handle ISC_FAR*,
+										unsigned short,
+										XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_describe_bind(ISC_STATUS ISC_FAR*,
+											 isc_stmt_handle ISC_FAR*,
+											 unsigned short,
+											 XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_exec_immed2(ISC_STATUS ISC_FAR*,
+										   isc_db_handle ISC_FAR*,
+										   isc_tr_handle ISC_FAR*,
+										   unsigned short,
+										   char ISC_FAR*,
+										   unsigned short,
+										   XSQLDA ISC_FAR*,
+										   XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_execute(ISC_STATUS ISC_FAR*,
+									   isc_tr_handle ISC_FAR*,
+									   isc_stmt_handle ISC_FAR*,
+									   unsigned short,
+									   XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_execute2(ISC_STATUS ISC_FAR*,
+										isc_tr_handle ISC_FAR*,
+										isc_stmt_handle ISC_FAR*,
+										unsigned short,
+										XSQLDA ISC_FAR*,
+										XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_execute_immediate(ISC_STATUS ISC_FAR*,
+												 isc_db_handle ISC_FAR*,
+												 isc_tr_handle ISC_FAR*,
+												 unsigned short,
+												 char ISC_FAR*,
+												 unsigned short,
+												 XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_fetch(ISC_STATUS ISC_FAR*,
+									 isc_stmt_handle ISC_FAR*,
+									 unsigned short,
+									 XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_finish(isc_db_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_free_statement(ISC_STATUS ISC_FAR*,
+											  isc_stmt_handle ISC_FAR*,
+											  unsigned short);
+
+ISC_STATUS ISC_EXPORT isc_dsql_insert(ISC_STATUS ISC_FAR*,
+									  isc_stmt_handle ISC_FAR*,
+									  unsigned short,
+									  XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_prepare(ISC_STATUS ISC_FAR*,
+									   isc_tr_handle ISC_FAR*,
+									   isc_stmt_handle ISC_FAR*,
+									   unsigned short,
+									   char ISC_FAR*,
+									   unsigned short,
+									   XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_set_cursor_name(ISC_STATUS ISC_FAR*,
+											   isc_stmt_handle ISC_FAR*,
+											   char ISC_FAR*,
+											   unsigned short);
+
+ISC_STATUS ISC_EXPORT isc_dsql_sql_info(ISC_STATUS ISC_FAR*,
+										isc_stmt_handle ISC_FAR*,
+										short,
+										char ISC_FAR*,
+										short,
+										char ISC_FAR*);
+
+void ISC_EXPORT isc_encode_date(void ISC_FAR*,
+								ISC_QUAD ISC_FAR*);
+
+void ISC_EXPORT isc_encode_sql_date(void ISC_FAR*,
+									ISC_DATE ISC_FAR*);
+
+void ISC_EXPORT isc_encode_sql_time(void ISC_FAR*,
+									ISC_TIME ISC_FAR*);
+
+void ISC_EXPORT isc_encode_timestamp(void ISC_FAR*,
+									 ISC_TIMESTAMP ISC_FAR*);
+
+ISC_LONG ISC_EXPORT_VARARG isc_event_block(char ISC_FAR* ISC_FAR*,
+										   char ISC_FAR* ISC_FAR*,
+										   unsigned short, ...);
+
+void ISC_EXPORT isc_event_counts(ISC_ULONG ISC_FAR*,
+								 short,
+								 char ISC_FAR*,
+								 char ISC_FAR*);
+
+/* 17 May 2001 - isc_expand_dpb is DEPRECATED */
+void ISC_EXPORT_VARARG isc_expand_dpb(char ISC_FAR* ISC_FAR*,
+									  short ISC_FAR*, ...);
+
+int ISC_EXPORT isc_modify_dpb(char ISC_FAR* ISC_FAR*,
+							  short ISC_FAR*,
+							  unsigned short,
+							  char ISC_FAR*,
+							  short);
+
+ISC_LONG ISC_EXPORT isc_free(char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_get_segment(ISC_STATUS ISC_FAR*,
+									  isc_blob_handle ISC_FAR*,
+									  unsigned short ISC_FAR*,
+									  unsigned short,
+									  char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_get_slice(ISC_STATUS ISC_FAR*,
+									isc_db_handle ISC_FAR*,
+									isc_tr_handle ISC_FAR*,
+									ISC_QUAD ISC_FAR*,
+									short,
+									char ISC_FAR*,
+									short,
+									ISC_LONG ISC_FAR*,
+									ISC_LONG,
+									void ISC_FAR*,
+									ISC_LONG ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_interprete(char ISC_FAR*,
+									 ISC_STATUS ISC_FAR* ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_open_blob(ISC_STATUS ISC_FAR*,
+									isc_db_handle ISC_FAR*,
+									isc_tr_handle ISC_FAR*,
+									isc_blob_handle ISC_FAR*,
+									ISC_QUAD ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_open_blob2(ISC_STATUS ISC_FAR*,
+									 isc_db_handle ISC_FAR*,
+									 isc_tr_handle ISC_FAR*,
+									 isc_blob_handle ISC_FAR*,
+									 ISC_QUAD ISC_FAR*,
+									 ISC_USHORT,
+									 ISC_UCHAR ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_prepare_transaction2(ISC_STATUS ISC_FAR*,
+											   isc_tr_handle ISC_FAR*,
+											   ISC_USHORT,
+											   ISC_UCHAR ISC_FAR*);
+
+void ISC_EXPORT isc_print_sqlerror(ISC_SHORT,
+								   ISC_STATUS ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_print_status(ISC_STATUS ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_put_segment(ISC_STATUS ISC_FAR*,
+									  isc_blob_handle ISC_FAR*,
+									  unsigned short,
+									  char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_put_slice(ISC_STATUS ISC_FAR*,
+									isc_db_handle ISC_FAR*,
+									isc_tr_handle ISC_FAR*,
+									ISC_QUAD ISC_FAR*,
+									short,
+									char ISC_FAR*,
+									short,
+									ISC_LONG ISC_FAR*,
+									ISC_LONG,
+									void ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_que_events(ISC_STATUS ISC_FAR*,
+									 isc_db_handle ISC_FAR*,
+									 ISC_LONG ISC_FAR*,
+									 ISC_USHORT,
+									 ISC_UCHAR ISC_FAR*,
+									 isc_callback,
+									 void ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_rollback_retaining(ISC_STATUS ISC_FAR*,
+											 isc_tr_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_rollback_transaction(ISC_STATUS ISC_FAR*,
+											   isc_tr_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_start_multiple(ISC_STATUS ISC_FAR*,
+										 isc_tr_handle ISC_FAR*,
+										 short,
+										 void ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT_VARARG isc_start_transaction(ISC_STATUS ISC_FAR*,
+												   isc_tr_handle ISC_FAR*,
+												   short, ...);
+
+ISC_LONG ISC_EXPORT isc_sqlcode(ISC_STATUS ISC_FAR*);
+
+void ISC_EXPORT isc_sql_interprete(short,
+								   char ISC_FAR*,
+								   short);
+
+ISC_STATUS ISC_EXPORT isc_transaction_info(ISC_STATUS ISC_FAR*,
+										   isc_tr_handle ISC_FAR*,
+										   short,
+										   char ISC_FAR*,
+										   short,
+										   char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_transact_request(ISC_STATUS ISC_FAR*,
+										   isc_db_handle ISC_FAR*,
+										   isc_tr_handle ISC_FAR*,
+										   unsigned short,
+										   char ISC_FAR*,
+										   unsigned short,
+										   char ISC_FAR*,
+										   unsigned short,
+										   char ISC_FAR*);
+
+ISC_LONG ISC_EXPORT isc_vax_integer(char ISC_FAR*,
+									short);
+
+ISC_INT64 ISC_EXPORT isc_portable_integer(unsigned char ISC_FAR*,
+										  short);
+
+/*************************************/
+/* Security Functions and structures */
+/*************************************/
+
+#define sec_uid_spec		    0x01
+#define sec_gid_spec		    0x02
+#define sec_server_spec		    0x04
+#define sec_password_spec	    0x08
+#define sec_group_name_spec	    0x10
+#define sec_first_name_spec	    0x20
+#define sec_middle_name_spec        0x40
+#define sec_last_name_spec	    0x80
+#define sec_dba_user_name_spec      0x100
+#define sec_dba_password_spec       0x200
+
+#define sec_protocol_tcpip            1
+#define sec_protocol_netbeui          2
+#define sec_protocol_spx              3
+#define sec_protocol_local            4
+
+typedef struct {
+	short sec_flags;			/* which fields are specified */
+	int uid;					/* the user's id */
+	int gid;					/* the user's group id */
+	int protocol;				/* protocol to use for connection */
+	char ISC_FAR*server;		/* server to administer */
+	char ISC_FAR*user_name;	/* the user's name */
+	char ISC_FAR*password;		/* the user's password */
+	char ISC_FAR*group_name;	/* the group name */
+	char ISC_FAR*first_name;	/* the user's first name */
+	char ISC_FAR*middle_name;	/* the user's middle name */
+	char ISC_FAR*last_name;	/* the user's last name */
+	char ISC_FAR*dba_user_name;	/* the dba user name */
+	char ISC_FAR*dba_password;	/* the dba password */
+} USER_SEC_DATA;
+
+int ISC_EXPORT isc_add_user(ISC_STATUS ISC_FAR*, USER_SEC_DATA *);
+
+int ISC_EXPORT isc_delete_user(ISC_STATUS ISC_FAR*, USER_SEC_DATA *);
+
+int ISC_EXPORT isc_modify_user(ISC_STATUS ISC_FAR*, USER_SEC_DATA *);
+
+/**********************************/
+/*  Other OSRI functions          */
+/**********************************/
+
+ISC_STATUS ISC_EXPORT isc_compile_request(ISC_STATUS ISC_FAR*,
+										  isc_db_handle ISC_FAR*,
+										  isc_req_handle ISC_FAR*,
+										  short,
+										  char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_compile_request2(ISC_STATUS ISC_FAR*,
+										   isc_db_handle ISC_FAR*,
+										   isc_req_handle ISC_FAR*,
+										   short,
+										   char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_ddl(ISC_STATUS ISC_FAR*,
+							  isc_db_handle ISC_FAR*,
+							  isc_tr_handle ISC_FAR*,
+							  short,
+							  char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_prepare_transaction(ISC_STATUS ISC_FAR*,
+											  isc_tr_handle ISC_FAR*);
+
+
+ISC_STATUS ISC_EXPORT isc_receive(ISC_STATUS ISC_FAR*,
+								  isc_req_handle ISC_FAR*,
+								  short,
+								  short,
+								  void ISC_FAR*,
+								  short);
+
+ISC_STATUS ISC_EXPORT isc_reconnect_transaction(ISC_STATUS ISC_FAR*,
+												isc_db_handle ISC_FAR*,
+												isc_tr_handle ISC_FAR*,
+												short,
+												char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_release_request(ISC_STATUS ISC_FAR*,
+										  isc_req_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_request_info(ISC_STATUS ISC_FAR*,
+									   isc_req_handle ISC_FAR*,
+									   short,
+									   short,
+									   char ISC_FAR*,
+									   short,
+									   char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_seek_blob(ISC_STATUS ISC_FAR*,
+									isc_blob_handle ISC_FAR*,
+									short,
+									ISC_LONG,
+									ISC_LONG ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_send(ISC_STATUS ISC_FAR*,
+							   isc_req_handle ISC_FAR*,
+							   short,
+							   short,
+							   void ISC_FAR*,
+							   short);
+
+ISC_STATUS ISC_EXPORT isc_start_and_send(ISC_STATUS ISC_FAR*,
+										 isc_req_handle ISC_FAR*,
+										 isc_tr_handle ISC_FAR*,
+										 short,
+										 short,
+										 void ISC_FAR*,
+										 short);
+
+ISC_STATUS ISC_EXPORT isc_start_request(ISC_STATUS ISC_FAR*,
+										isc_req_handle ISC_FAR*,
+										isc_tr_handle ISC_FAR*,
+										short);
+
+ISC_STATUS ISC_EXPORT isc_unwind_request(ISC_STATUS ISC_FAR*,
+										 isc_tr_handle ISC_FAR*,
+										 short);
+
+ISC_STATUS ISC_EXPORT isc_wait_for_event(ISC_STATUS ISC_FAR*,
+										 isc_db_handle ISC_FAR*,
+										 short,
+										 char ISC_FAR*,
+										 char ISC_FAR*);
+
+
+/*****************************/
+/* Other Sql functions       */
+/*****************************/
+
+ISC_STATUS ISC_EXPORT isc_close(ISC_STATUS ISC_FAR*,
+								char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_declare(ISC_STATUS ISC_FAR*,
+								  char ISC_FAR*,
+								  char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_describe(ISC_STATUS ISC_FAR*,
+								   char ISC_FAR*,
+								   XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_describe_bind(ISC_STATUS ISC_FAR*,
+										char ISC_FAR*,
+										XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_execute(ISC_STATUS ISC_FAR*,
+								  isc_tr_handle ISC_FAR*,
+								  char ISC_FAR*,
+								  XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_execute_immediate(ISC_STATUS ISC_FAR*,
+											isc_db_handle ISC_FAR*,
+											isc_tr_handle ISC_FAR*,
+											short ISC_FAR*,
+											char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_fetch(ISC_STATUS ISC_FAR*,
+								char ISC_FAR*,
+								XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_open(ISC_STATUS ISC_FAR*,
+							   isc_tr_handle ISC_FAR*,
+							   char ISC_FAR*,
+							   XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_prepare(ISC_STATUS ISC_FAR*,
+								  isc_db_handle ISC_FAR*,
+								  isc_tr_handle ISC_FAR*,
+								  char ISC_FAR*,
+								  short ISC_FAR*,
+								  char ISC_FAR*,
+								  XSQLDA ISC_FAR*);
+
+
+/*************************************/
+/* Other Dynamic sql functions       */
+/*************************************/
+
+ISC_STATUS ISC_EXPORT isc_dsql_execute_m(ISC_STATUS ISC_FAR*,
+										 isc_tr_handle ISC_FAR*,
+										 isc_stmt_handle ISC_FAR*,
+										 unsigned short,
+										 char ISC_FAR*,
+										 unsigned short,
+										 unsigned short,
+										 char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_execute2_m(ISC_STATUS ISC_FAR*,
+										  isc_tr_handle ISC_FAR*,
+										  isc_stmt_handle ISC_FAR*,
+										  unsigned short,
+										  char ISC_FAR*,
+										  unsigned short,
+										  unsigned short,
+										  char ISC_FAR*,
+										  unsigned short,
+										  char ISC_FAR*,
+										  unsigned short,
+										  unsigned short,
+										  char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_execute_immediate_m(ISC_STATUS ISC_FAR*,
+												   isc_db_handle ISC_FAR*,
+												   isc_tr_handle ISC_FAR*,
+												   unsigned short,
+												   char ISC_FAR*,
+												   unsigned short,
+												   unsigned short,
+												   char ISC_FAR*,
+												   unsigned short,
+												   unsigned short,
+												   char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_exec_immed3_m(ISC_STATUS ISC_FAR*,
+											 isc_db_handle ISC_FAR*,
+											 isc_tr_handle ISC_FAR*,
+											 unsigned short,
+											 char ISC_FAR*,
+											 unsigned short,
+											 unsigned short,
+											 char ISC_FAR*,
+											 unsigned short,
+											 unsigned short,
+											 char ISC_FAR*,
+											 unsigned short,
+											 char ISC_FAR*,
+											 unsigned short,
+											 unsigned short,
+											 char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_fetch_m(ISC_STATUS ISC_FAR*,
+									   isc_stmt_handle ISC_FAR*,
+									   unsigned short,
+									   char ISC_FAR*,
+									   unsigned short,
+									   unsigned short,
+									   char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_insert_m(ISC_STATUS ISC_FAR*,
+										isc_stmt_handle ISC_FAR*,
+										unsigned short,
+										char ISC_FAR*,
+										unsigned short,
+										unsigned short,
+										char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_prepare_m(ISC_STATUS ISC_FAR*,
+										 isc_tr_handle ISC_FAR*,
+										 isc_stmt_handle ISC_FAR*,
+										 unsigned short,
+										 char ISC_FAR*,
+										 unsigned short,
+										 unsigned short,
+										 char ISC_FAR*,
+										 unsigned short,
+										 char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_dsql_release(ISC_STATUS ISC_FAR*,
+									   char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_close(ISC_STATUS ISC_FAR*,
+										   char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_declare(ISC_STATUS ISC_FAR*,
+											 char ISC_FAR*,
+											 char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_describe(ISC_STATUS ISC_FAR*,
+											  char ISC_FAR*,
+											  unsigned short,
+											  XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_describe_bind(ISC_STATUS ISC_FAR*,
+												   char ISC_FAR*,
+												   unsigned short,
+												   XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_execute(ISC_STATUS ISC_FAR*,
+											 isc_tr_handle ISC_FAR*,
+											 char ISC_FAR*,
+											 unsigned short,
+											 XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_execute2(ISC_STATUS ISC_FAR*,
+											  isc_tr_handle ISC_FAR*,
+											  char ISC_FAR*,
+											  unsigned short,
+											  XSQLDA ISC_FAR*,
+											  XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_execute_immed(ISC_STATUS ISC_FAR*,
+												   isc_db_handle ISC_FAR*,
+												   isc_tr_handle ISC_FAR*,
+												   unsigned short,
+												   char ISC_FAR*,
+												   unsigned short,
+												   XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_fetch(ISC_STATUS ISC_FAR*,
+										   char ISC_FAR*,
+										   unsigned short,
+										   XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_open(ISC_STATUS ISC_FAR*,
+										  isc_tr_handle ISC_FAR*,
+										  char ISC_FAR*,
+										  unsigned short,
+										  XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_open2(ISC_STATUS ISC_FAR*,
+										   isc_tr_handle ISC_FAR*,
+										   char ISC_FAR*,
+										   unsigned short,
+										   XSQLDA ISC_FAR*,
+										   XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_insert(ISC_STATUS ISC_FAR*,
+											char ISC_FAR*,
+											unsigned short,
+											XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_prepare(ISC_STATUS ISC_FAR*,
+											 isc_db_handle ISC_FAR*,
+											 isc_tr_handle ISC_FAR*,
+											 char ISC_FAR*,
+											 unsigned short,
+											 char ISC_FAR*,
+											 unsigned short,
+											 XSQLDA ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_embed_dsql_release(ISC_STATUS ISC_FAR*,
+											 char ISC_FAR*);
+
+
+/******************************/
+/* Other Blob functions       */
+/******************************/
+
+BSTREAM ISC_FAR*ISC_EXPORT BLOB_open(isc_blob_handle,
+									  char ISC_FAR*,
+									  int);
+
+int ISC_EXPORT BLOB_put(char,
+						BSTREAM ISC_FAR*);
+
+int ISC_EXPORT BLOB_close(BSTREAM ISC_FAR*);
+
+int ISC_EXPORT BLOB_get(BSTREAM ISC_FAR*);
+
+int ISC_EXPORT BLOB_display(ISC_QUAD ISC_FAR*,
+							isc_db_handle,
+							isc_tr_handle,
+							char ISC_FAR*);
+
+int ISC_EXPORT BLOB_dump(ISC_QUAD ISC_FAR*,
+						 isc_db_handle,
+						 isc_tr_handle,
+						 char ISC_FAR*);
+
+int ISC_EXPORT BLOB_edit(ISC_QUAD ISC_FAR*,
+						 isc_db_handle,
+						 isc_tr_handle,
+						 char ISC_FAR*);
+
+int ISC_EXPORT BLOB_load(ISC_QUAD ISC_FAR*,
+						 isc_db_handle,
+						 isc_tr_handle,
+						 char ISC_FAR*);
+
+int ISC_EXPORT BLOB_text_dump(ISC_QUAD ISC_FAR*,
+							  isc_db_handle,
+							  isc_tr_handle,
+							  char ISC_FAR*);
+
+int ISC_EXPORT BLOB_text_load(ISC_QUAD ISC_FAR*,
+							  isc_db_handle,
+							  isc_tr_handle,
+							  char ISC_FAR*);
+
+BSTREAM ISC_FAR*ISC_EXPORT Bopen(ISC_QUAD ISC_FAR*,
+								  isc_db_handle,
+								  isc_tr_handle,
+								  char ISC_FAR*);
+
+BSTREAM ISC_FAR*ISC_EXPORT Bopen2(ISC_QUAD ISC_FAR*,
+								   isc_db_handle,
+								   isc_tr_handle,
+								   char ISC_FAR*,
+								   unsigned short);
+
+
+/******************************/
+/* Other Misc functions       */
+/******************************/
+
+ISC_LONG ISC_EXPORT isc_ftof(char ISC_FAR*,
+							 unsigned short,
+							 char ISC_FAR*,
+							 unsigned short);
+
+ISC_STATUS ISC_EXPORT isc_print_blr(char ISC_FAR*,
+									isc_callback,
+									void ISC_FAR*,
+									short);
+
+void ISC_EXPORT isc_set_debug(int);
+
+void ISC_EXPORT isc_qtoq(ISC_QUAD ISC_FAR*,
+						 ISC_QUAD ISC_FAR*);
+
+void ISC_EXPORT isc_vtof(char ISC_FAR*,
+						 char ISC_FAR*,
+						 unsigned short);
+
+void ISC_EXPORT isc_vtov(char ISC_FAR*,
+						 char ISC_FAR*,
+						 short);
+
+int ISC_EXPORT isc_version(isc_db_handle ISC_FAR*,
+						   isc_callback,
+						   void ISC_FAR*);
+
+ISC_LONG ISC_EXPORT isc_reset_fpe(unsigned short);
+
+
+/*****************************************/
+/* Service manager functions             */
+/*****************************************/
+
+#define ADD_SPB_LENGTH(p, length)	{*(p)++ = (length); \
+    					 *(p)++ = (length) >> 8;}
+
+#define ADD_SPB_NUMERIC(p, data)	{*(p)++ = (data); \
+    					 *(p)++ = (data) >> 8; \
+					 *(p)++ = (data) >> 16; \
+					 *(p)++ = (data) >> 24;}
+
+ISC_STATUS ISC_EXPORT isc_service_attach(ISC_STATUS ISC_FAR*,
+										 unsigned short,
+										 char ISC_FAR*,
+										 isc_svc_handle ISC_FAR*,
+										 unsigned short,
+										 char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_service_detach(ISC_STATUS ISC_FAR*,
+										 isc_svc_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_service_query(ISC_STATUS ISC_FAR*,
+										isc_svc_handle ISC_FAR*,
+										isc_resv_handle ISC_FAR*,
+										unsigned short,
+										char ISC_FAR*,
+										unsigned short,
+										char ISC_FAR*,
+										unsigned short,
+										char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_service_start(ISC_STATUS ISC_FAR*,
+										isc_svc_handle ISC_FAR*,
+										isc_resv_handle ISC_FAR*,
+										unsigned short,
+										char ISC_FAR*);
+
+
+/*******************************/
+/* Forms functions             */
+/*******************************/
+
+ISC_STATUS ISC_EXPORT isc_compile_map(ISC_STATUS ISC_FAR*,
+									  isc_form_handle ISC_FAR*,
+									  isc_req_handle ISC_FAR*,
+									  short ISC_FAR*,
+									  char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_compile_menu(ISC_STATUS ISC_FAR*,
+									   isc_form_handle ISC_FAR*,
+									   isc_req_handle ISC_FAR*,
+									   short ISC_FAR*,
+									   char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_compile_sub_map(ISC_STATUS ISC_FAR*,
+										  isc_win_handle ISC_FAR*,
+										  isc_req_handle ISC_FAR*,
+										  short ISC_FAR*,
+										  char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_create_window(ISC_STATUS ISC_FAR*,
+										isc_win_handle ISC_FAR*,
+										short ISC_FAR*,
+										char ISC_FAR*,
+										short ISC_FAR*,
+										short ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_delete_window(ISC_STATUS ISC_FAR*,
+										isc_win_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_drive_form(ISC_STATUS ISC_FAR*,
+									 isc_db_handle ISC_FAR*,
+									 isc_tr_handle ISC_FAR*,
+									 isc_win_handle ISC_FAR*,
+									 isc_req_handle ISC_FAR*,
+									 unsigned char ISC_FAR*,
+									 unsigned char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_drive_menu(ISC_STATUS ISC_FAR*,
+									 isc_win_handle ISC_FAR*,
+									 isc_req_handle ISC_FAR*,
+									 short ISC_FAR*,
+									 char ISC_FAR*,
+									 short ISC_FAR*,
+									 char ISC_FAR*,
+									 short ISC_FAR*,
+									 short ISC_FAR*,
+									 char ISC_FAR*,
+									 ISC_LONG ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_form_delete(ISC_STATUS ISC_FAR*,
+									  isc_form_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_form_fetch(ISC_STATUS ISC_FAR*,
+									 isc_db_handle ISC_FAR*,
+									 isc_tr_handle ISC_FAR*,
+									 isc_req_handle ISC_FAR*,
+									 unsigned char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_form_insert(ISC_STATUS ISC_FAR*,
+									  isc_db_handle ISC_FAR*,
+									  isc_tr_handle ISC_FAR*,
+									  isc_req_handle ISC_FAR*,
+									  unsigned char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_get_entree(ISC_STATUS ISC_FAR*,
+									 isc_req_handle ISC_FAR*,
+									 short ISC_FAR*,
+									 char ISC_FAR*,
+									 ISC_LONG ISC_FAR*,
+									 short ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_initialize_menu(ISC_STATUS ISC_FAR*,
+										  isc_req_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_menu(ISC_STATUS ISC_FAR*,
+							   isc_win_handle ISC_FAR*,
+							   isc_req_handle ISC_FAR*,
+							   short ISC_FAR*,
+							   char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_load_form(ISC_STATUS ISC_FAR*,
+									isc_db_handle ISC_FAR*,
+									isc_tr_handle ISC_FAR*,
+									isc_form_handle ISC_FAR*,
+									short ISC_FAR*,
+									char ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_pop_window(ISC_STATUS ISC_FAR*,
+									 isc_win_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_put_entree(ISC_STATUS ISC_FAR*,
+									 isc_req_handle ISC_FAR*,
+									 short ISC_FAR*,
+									 char ISC_FAR*,
+									 ISC_LONG ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_reset_form(ISC_STATUS ISC_FAR*,
+									 isc_req_handle ISC_FAR*);
+
+ISC_STATUS ISC_EXPORT isc_suspend_window(ISC_STATUS ISC_FAR*,
+										 isc_win_handle ISC_FAR*);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+
+/***************************************************/
+/* Actions to pass to the blob filter (ctl_source) */
+/***************************************************/
+
+#define isc_blob_filter_open             0
+#define isc_blob_filter_get_segment      1
+#define isc_blob_filter_close            2
+#define isc_blob_filter_create           3
+#define isc_blob_filter_put_segment      4
+#define isc_blob_filter_alloc            5
+#define isc_blob_filter_free             6
+#define isc_blob_filter_seek             7
+
+/*******************/
+/* Blr definitions */
+/*******************/
+
+#include "../jrd/blr.h"
+
+
+/**********************************/
+/* Database parameter block stuff */
+/**********************************/
+
+#define isc_dpb_version1                  1
+#define isc_dpb_cdd_pathname              1
+#define isc_dpb_allocation                2
+#define isc_dpb_journal                   3
+#define isc_dpb_page_size                 4
+#define isc_dpb_num_buffers               5
+#define isc_dpb_buffer_length             6
+#define isc_dpb_debug                     7
+#define isc_dpb_garbage_collect           8
+#define isc_dpb_verify                    9
+#define isc_dpb_sweep                     10
+#define isc_dpb_enable_journal            11
+#define isc_dpb_disable_journal           12
+#define isc_dpb_dbkey_scope               13
+#define isc_dpb_number_of_users           14
+#define isc_dpb_trace                     15
+#define isc_dpb_no_garbage_collect        16
+#define isc_dpb_damaged                   17
+#define isc_dpb_license                   18
+#define isc_dpb_sys_user_name             19
+#define isc_dpb_encrypt_key               20
+#define isc_dpb_activate_shadow           21
+#define isc_dpb_sweep_interval            22
+#define isc_dpb_delete_shadow             23
+#define isc_dpb_force_write               24
+#define isc_dpb_begin_log                 25
+#define isc_dpb_quit_log                  26
+#define isc_dpb_no_reserve                27
+#define isc_dpb_user_name                 28
+#define isc_dpb_password                  29
+#define isc_dpb_password_enc              30
+#define isc_dpb_sys_user_name_enc         31
+#define isc_dpb_interp                    32
+#define isc_dpb_online_dump               33
+#define isc_dpb_old_file_size             34
+#define isc_dpb_old_num_files             35
+#define isc_dpb_old_file                  36
+#define isc_dpb_old_start_page            37
+#define isc_dpb_old_start_seqno           38
+#define isc_dpb_old_start_file            39
+#define isc_dpb_drop_walfile              40
+#define isc_dpb_old_dump_id               41
+#define isc_dpb_wal_backup_dir            42
+#define isc_dpb_wal_chkptlen              43
+#define isc_dpb_wal_numbufs               44
+#define isc_dpb_wal_bufsize               45
+#define isc_dpb_wal_grp_cmt_wait          46
+#define isc_dpb_lc_messages               47
+#define isc_dpb_lc_ctype                  48
+#define isc_dpb_cache_manager		  49
+#define isc_dpb_shutdown		  50
+#define isc_dpb_online			  51
+#define isc_dpb_shutdown_delay		  52
+#define isc_dpb_reserved		  53
+#define isc_dpb_overwrite		  54
+#define isc_dpb_sec_attach		  55
+#define isc_dpb_disable_wal		  56
+#define isc_dpb_connect_timeout           57
+#define isc_dpb_dummy_packet_interval     58
+#define isc_dpb_gbak_attach               59
+#define isc_dpb_sql_role_name             60
+#define isc_dpb_set_page_buffers          61
+#define isc_dpb_working_directory         62
+#define isc_dpb_sql_dialect               63
+#define isc_dpb_set_db_readonly           64
+#define isc_dpb_set_db_sql_dialect        65
+#define isc_dpb_gfix_attach		  66
+#define isc_dpb_gstat_attach		  67
+
+/*********************************/
+/* isc_dpb_verify specific flags */
+/*********************************/
+
+#define isc_dpb_pages                     1
+#define isc_dpb_records                   2
+#define isc_dpb_indices                   4
+#define isc_dpb_transactions              8
+#define isc_dpb_no_update                 16
+#define isc_dpb_repair                    32
+#define isc_dpb_ignore                    64
+
+/***********************************/
+/* isc_dpb_shutdown specific flags */
+/***********************************/
+
+#define isc_dpb_shut_cache               1
+#define isc_dpb_shut_attachment          2
+#define isc_dpb_shut_transaction         4
+#define isc_dpb_shut_force               8
+
+/**************************************/
+/* Bit assignments in RDB$SYSTEM_FLAG */
+/**************************************/
+
+#define RDB_system                         1
+#define RDB_id_assigned                    2
+
+
+/*************************************/
+/* Transaction parameter block stuff */
+/*************************************/
+
+#define isc_tpb_version1                  1
+#define isc_tpb_version3                  3
+#define isc_tpb_consistency               1
+#define isc_tpb_concurrency               2
+#define isc_tpb_shared                    3
+#define isc_tpb_protected                 4
+#define isc_tpb_exclusive                 5
+#define isc_tpb_wait                      6
+#define isc_tpb_nowait                    7
+#define isc_tpb_read                      8
+#define isc_tpb_write                     9
+#define isc_tpb_lock_read                 10
+#define isc_tpb_lock_write                11
+#define isc_tpb_verb_time                 12
+#define isc_tpb_commit_time               13
+#define isc_tpb_ignore_limbo              14
+#define isc_tpb_read_committed		  15
+#define isc_tpb_autocommit		  16
+#define isc_tpb_rec_version		  17
+#define isc_tpb_no_rec_version		  18
+#define isc_tpb_restart_requests	  19
+#define isc_tpb_no_auto_undo              20
+
+
+/************************/
+/* Blob Parameter Block */
+/************************/
+
+#define isc_bpb_version1                  1
+#define isc_bpb_source_type               1
+#define isc_bpb_target_type               2
+#define isc_bpb_type                      3
+#define isc_bpb_source_interp             4
+#define isc_bpb_target_interp             5
+#define isc_bpb_filter_parameter          6
+
+#define isc_bpb_type_segmented            0
+#define isc_bpb_type_stream               1
+
+
+/*********************************/
+/* Service parameter block stuff */
+/*********************************/
+
+#define isc_spb_version1                  1
+#define isc_spb_current_version           2
+#define isc_spb_version			  isc_spb_current_version
+#define isc_spb_user_name                 isc_dpb_user_name
+#define isc_spb_sys_user_name             isc_dpb_sys_user_name
+#define isc_spb_sys_user_name_enc         isc_dpb_sys_user_name_enc
+#define isc_spb_password                  isc_dpb_password
+#define isc_spb_password_enc              isc_dpb_password_enc
+#define isc_spb_command_line              105
+#define isc_spb_dbname                    106
+#define isc_spb_verbose                   107
+#define isc_spb_options                   108
+
+#define isc_spb_connect_timeout           isc_dpb_connect_timeout
+#define isc_spb_dummy_packet_interval     isc_dpb_dummy_packet_interval
+#define isc_spb_sql_role_name             isc_dpb_sql_role_name
+
+
+/*********************************/
+/* Information call declarations */
+/*********************************/
+
+/****************************/
+/* Common, structural codes */
+/****************************/
+
+#define isc_info_end                      1
+#define isc_info_truncated                2
+#define isc_info_error                    3
+#define isc_info_data_not_ready	          4
+#define isc_info_flag_end		  127
+
+/******************************/
+/* Database information items */
+/******************************/
+
+#define isc_info_db_id                    4
+#define isc_info_reads                    5
+#define isc_info_writes                   6
+#define isc_info_fetches                  7
+#define isc_info_marks                    8
+#define isc_info_implementation           11
+#define isc_info_version                  12
+#define isc_info_base_level               13
+#define isc_info_page_size                14
+#define isc_info_num_buffers              15
+#define isc_info_limbo                    16
+#define isc_info_current_memory           17
+#define isc_info_max_memory               18
+#define isc_info_window_turns             19
+#define isc_info_license                  20
+#define isc_info_allocation               21
+#define isc_info_attachment_id            22
+#define isc_info_read_seq_count           23
+#define isc_info_read_idx_count           24
+#define isc_info_insert_count             25
+#define isc_info_update_count             26
+#define isc_info_delete_count             27
+#define isc_info_backout_count            28
+#define isc_info_purge_count              29
+#define isc_info_expunge_count            30
+#define isc_info_sweep_interval           31
+#define isc_info_ods_version              32
+#define isc_info_ods_minor_version        33
+#define isc_info_no_reserve               34
+#define isc_info_logfile                  35
+#define isc_info_cur_logfile_name         36
+#define isc_info_cur_log_part_offset      37
+#define isc_info_num_wal_buffers          38
+#define isc_info_wal_buffer_size          39
+#define isc_info_wal_ckpt_length          40
+#define isc_info_wal_cur_ckpt_interval    41
+#define isc_info_wal_prv_ckpt_fname       42
+#define isc_info_wal_prv_ckpt_poffset     43
+#define isc_info_wal_recv_ckpt_fname      44
+#define isc_info_wal_recv_ckpt_poffset    45
+#define isc_info_wal_grpc_wait_usecs      47
+#define isc_info_wal_num_io               48
+#define isc_info_wal_avg_io_size          49
+#define isc_info_wal_num_commits          50
+#define isc_info_wal_avg_grpc_size        51
+#define isc_info_forced_writes		  52
+#define isc_info_user_names		  53
+#define isc_info_page_errors		  54
+#define isc_info_record_errors		  55
+#define isc_info_bpage_errors		  56
+#define isc_info_dpage_errors	  	  57
+#define isc_info_ipage_errors	  	  58
+#define isc_info_ppage_errors		  59
+#define isc_info_tpage_errors	  	  60
+#define isc_info_set_page_buffers         61
+#define isc_info_db_sql_dialect           62
+#define isc_info_db_read_only             63
+#define isc_info_db_size_in_pages	  64
+#define frb_info_att_charset		 101
+
+/**************************************/
+/* Database information return values */
+/**************************************/
+
+#define isc_info_db_impl_rdb_vms          1
+#define isc_info_db_impl_rdb_eln          2
+#define isc_info_db_impl_rdb_eln_dev      3
+#define isc_info_db_impl_rdb_vms_y        4
+#define isc_info_db_impl_rdb_eln_y        5
+#define isc_info_db_impl_jri              6
+#define isc_info_db_impl_jsv              7
+#define isc_info_db_impl_isc_a            25
+#define isc_info_db_impl_isc_u            26
+#define isc_info_db_impl_isc_v            27
+#define isc_info_db_impl_isc_s            28
+#define isc_info_db_impl_isc_apl_68K      25
+#define isc_info_db_impl_isc_vax_ultr     26
+#define isc_info_db_impl_isc_vms          27
+#define isc_info_db_impl_isc_sun_68k      28
+#define isc_info_db_impl_isc_os2          29
+#define isc_info_db_impl_isc_sun4         30
+#define isc_info_db_impl_isc_hp_ux        31
+#define isc_info_db_impl_isc_sun_386i     32
+#define isc_info_db_impl_isc_vms_orcl     33
+#define isc_info_db_impl_isc_mac_aux      34
+#define isc_info_db_impl_isc_rt_aix       35
+#define isc_info_db_impl_isc_mips_ult     36
+#define isc_info_db_impl_isc_xenix        37
+#define isc_info_db_impl_isc_dg           38
+#define isc_info_db_impl_isc_hp_mpexl     39
+#define isc_info_db_impl_isc_hp_ux68K     40
+#define isc_info_db_impl_isc_sgi          41
+#define isc_info_db_impl_isc_sco_unix     42
+#define isc_info_db_impl_isc_cray         43
+#define isc_info_db_impl_isc_imp          44
+#define isc_info_db_impl_isc_delta        45
+#define isc_info_db_impl_isc_next         46
+#define isc_info_db_impl_isc_dos          47
+#define isc_info_db_impl_isc_winnt        48
+#define isc_info_db_impl_isc_epson        49
+
+#define isc_info_db_class_access          1
+#define isc_info_db_class_y_valve         2
+#define isc_info_db_class_rem_int         3
+#define isc_info_db_class_rem_srvr        4
+#define isc_info_db_class_pipe_int        7
+#define isc_info_db_class_pipe_srvr       8
+#define isc_info_db_class_sam_int         9
+#define isc_info_db_class_sam_srvr        10
+#define isc_info_db_class_gateway         11
+#define isc_info_db_class_cache           12
+
+/*****************************/
+/* Request information items */
+/*****************************/
+
+#define isc_info_number_messages          4
+#define isc_info_max_message              5
+#define isc_info_max_send                 6
+#define isc_info_max_receive              7
+#define isc_info_state                    8
+#define isc_info_message_number           9
+#define isc_info_message_size             10
+#define isc_info_request_cost             11
+#define isc_info_access_path              12
+#define isc_info_req_select_count         13
+#define isc_info_req_insert_count         14
+#define isc_info_req_update_count         15
+#define isc_info_req_delete_count         16
+
+
+/*********************/
+/* Access path items */
+/*********************/
+
+#define isc_info_rsb_end		   0
+#define isc_info_rsb_begin		   1
+#define isc_info_rsb_type		   2
+#define isc_info_rsb_relation		   3
+#define isc_info_rsb_plan                  4
+
+/*************/
+/* Rsb types */
+/*************/
+
+#define isc_info_rsb_unknown		   1
+#define isc_info_rsb_indexed		   2
+#define isc_info_rsb_navigate		   3
+#define isc_info_rsb_sequential	 	   4
+#define isc_info_rsb_cross		   5
+#define isc_info_rsb_sort		   6
+#define isc_info_rsb_first		   7
+#define isc_info_rsb_boolean		   8
+#define isc_info_rsb_union		   9
+#define isc_info_rsb_aggregate		  10
+#define isc_info_rsb_merge		  11
+#define isc_info_rsb_ext_sequential	  12
+#define isc_info_rsb_ext_indexed	  13
+#define isc_info_rsb_ext_dbkey		  14
+#define isc_info_rsb_left_cross	 	  15
+#define isc_info_rsb_select		  16
+#define isc_info_rsb_sql_join		  17
+#define isc_info_rsb_simulate		  18
+#define isc_info_rsb_sim_cross		  19
+#define isc_info_rsb_once		  20
+#define isc_info_rsb_procedure		  21
+
+/**********************/
+/* Bitmap expressions */
+/**********************/
+
+#define isc_info_rsb_and		1
+#define isc_info_rsb_or			2
+#define isc_info_rsb_dbkey		3
+#define isc_info_rsb_index		4
+
+#define isc_info_req_active               2
+#define isc_info_req_inactive             3
+#define isc_info_req_send                 4
+#define isc_info_req_receive              5
+#define isc_info_req_select               6
+#define isc_info_req_sql_stall		  7
+
+/**************************/
+/* Blob information items */
+/**************************/
+
+#define isc_info_blob_num_segments        4
+#define isc_info_blob_max_segment         5
+#define isc_info_blob_total_length        6
+#define isc_info_blob_type                7
+
+/*********************************/
+/* Transaction information items */
+/*********************************/
+
+#define isc_info_tra_id                   4
+
+/*****************************
+ * Service action items      *
+ *****************************/
+
+#define isc_action_svc_backup          1	/* Starts database backup process on the server */
+#define isc_action_svc_restore         2	/* Starts database restore process on the server */
+#define isc_action_svc_repair          3	/* Starts database repair process on the server */
+#define isc_action_svc_add_user        4	/* Adds a new user to the security database */
+#define isc_action_svc_delete_user     5	/* Deletes a user record from the security database */
+#define isc_action_svc_modify_user     6	/* Modifies a user record in the security database */
+#define isc_action_svc_display_user    7	/* Displays a user record from the security database */
+#define isc_action_svc_properties      8	/* Sets database properties */
+#define isc_action_svc_add_license     9	/* Adds a license to the license file */
+#define isc_action_svc_remove_license 10	/* Removes a license from the license file */
+#define isc_action_svc_db_stats	      11	/* Retrieves database statistics */
+#define isc_action_svc_get_ib_log     12	/* Retrieves the InterBase log file from the server */
+
+/*****************************
+ * Service information items *
+ *****************************/
+
+#define isc_info_svc_svr_db_info      50	/* Retrieves the number of attachments and databases */
+#define isc_info_svc_get_license      51	/* Retrieves all license keys and IDs from the license file */
+#define isc_info_svc_get_license_mask 52	/* Retrieves a bitmask representing licensed options on the server */
+#define isc_info_svc_get_config       53	/* Retrieves the parameters and values for IB_CONFIG */
+#define isc_info_svc_version          54	/* Retrieves the version of the services manager */
+#define isc_info_svc_server_version   55	/* Retrieves the version of the InterBase server */
+#define isc_info_svc_implementation   56	/* Retrieves the implementation of the InterBase server */
+#define isc_info_svc_capabilities     57	/* Retrieves a bitmask representing the server's capabilities */
+#define isc_info_svc_user_dbpath      58	/* Retrieves the path to the security database in use by the server */
+#define isc_info_svc_get_env	      59	/* Retrieves the setting of $INTERBASE */
+#define isc_info_svc_get_env_lock     60	/* Retrieves the setting of $INTERBASE_LCK */
+#define isc_info_svc_get_env_msg      61	/* Retrieves the setting of $INTERBASE_MSG */
+#define isc_info_svc_line             62	/* Retrieves 1 line of service output per call */
+#define isc_info_svc_to_eof           63	/* Retrieves as much of the server output as will fit in the supplied buffer */
+#define isc_info_svc_timeout          64	/* Sets / signifies a timeout value for reading service information */
+#define isc_info_svc_get_licensed_users 65	/* Retrieves the number of users licensed for accessing the server */
+#define isc_info_svc_limbo_trans	66	/* Retrieve the limbo transactions */
+#define isc_info_svc_running		67	/* Checks to see if a service is running on an attachment */
+#define isc_info_svc_get_users		68	/* Returns the user information from isc_action_svc_display_users */
+
+/******************************************************
+ * Parameters for isc_action_{add|delete|modify)_user *
+ ******************************************************/
+
+#define isc_spb_sec_userid            5
+#define isc_spb_sec_groupid           6
+#define isc_spb_sec_username          7
+#define isc_spb_sec_password          8
+#define isc_spb_sec_groupname         9
+#define isc_spb_sec_firstname         10
+#define isc_spb_sec_middlename        11
+#define isc_spb_sec_lastname          12
+
+/*******************************************************
+ * Parameters for isc_action_svc_(add|remove)_license, *
+ * isc_info_svc_get_license                            *
+ *******************************************************/
+
+#define isc_spb_lic_key               5
+#define isc_spb_lic_id                6
+#define isc_spb_lic_desc              7
+
+
+/*****************************************
+ * Parameters for isc_action_svc_backup  *
+ *****************************************/
+
+#define isc_spb_bkp_file                 5
+#define isc_spb_bkp_factor               6
+#define isc_spb_bkp_length               7
+#define isc_spb_bkp_ignore_checksums     0x01
+#define isc_spb_bkp_ignore_limbo         0x02
+#define isc_spb_bkp_metadata_only        0x04
+#define isc_spb_bkp_no_garbage_collect   0x08
+#define isc_spb_bkp_old_descriptions     0x10
+#define isc_spb_bkp_non_transportable    0x20
+#define isc_spb_bkp_convert              0x40
+#define isc_spb_bkp_expand		 0x80
+
+/********************************************
+ * Parameters for isc_action_svc_properties *
+ ********************************************/
+
+#define isc_spb_prp_page_buffers		5
+#define isc_spb_prp_sweep_interval		6
+#define isc_spb_prp_shutdown_db			7
+#define isc_spb_prp_deny_new_attachments	9
+#define isc_spb_prp_deny_new_transactions	10
+#define isc_spb_prp_reserve_space		11
+#define isc_spb_prp_write_mode			12
+#define isc_spb_prp_access_mode			13
+#define isc_spb_prp_set_sql_dialect		14
+#define isc_spb_prp_activate			0x0100
+#define isc_spb_prp_db_online			0x0200
+
+/********************************************
+ * Parameters for isc_spb_prp_reserve_space *
+ ********************************************/
+
+#define isc_spb_prp_res_use_full	35
+#define isc_spb_prp_res			36
+
+/******************************************
+ * Parameters for isc_spb_prp_write_mode  *
+ ******************************************/
+
+#define isc_spb_prp_wm_async		37
+#define isc_spb_prp_wm_sync			38
+
+/******************************************
+ * Parameters for isc_spb_prp_access_mode *
+ ******************************************/
+
+#define isc_spb_prp_am_readonly		39
+#define isc_spb_prp_am_readwrite	40
+
+/*****************************************
+ * Parameters for isc_action_svc_repair  *
+ *****************************************/
+
+#define isc_spb_rpr_commit_trans		15
+#define isc_spb_rpr_rollback_trans		34
+#define isc_spb_rpr_recover_two_phase	17
+#define isc_spb_tra_id					18
+#define isc_spb_single_tra_id			19
+#define isc_spb_multi_tra_id			20
+#define isc_spb_tra_state				21
+#define isc_spb_tra_state_limbo			22
+#define isc_spb_tra_state_commit		23
+#define isc_spb_tra_state_rollback		24
+#define isc_spb_tra_state_unknown		25
+#define isc_spb_tra_host_site			26
+#define isc_spb_tra_remote_site			27
+#define isc_spb_tra_db_path				28
+#define isc_spb_tra_advise				29
+#define isc_spb_tra_advise_commit		30
+#define isc_spb_tra_advise_rollback		31
+#define isc_spb_tra_advise_unknown		33
+
+#define isc_spb_rpr_validate_db			0x01
+#define isc_spb_rpr_sweep_db			0x02
+#define isc_spb_rpr_mend_db				0x04
+#define isc_spb_rpr_list_limbo_trans	0x08
+#define isc_spb_rpr_check_db			0x10
+#define isc_spb_rpr_ignore_checksum		0x20
+#define isc_spb_rpr_kill_shadows		0x40
+#define isc_spb_rpr_full				0x80
+
+/*****************************************
+ * Parameters for isc_action_svc_restore *
+ *****************************************/
+
+#define isc_spb_res_buffers				9
+#define isc_spb_res_page_size			10
+#define isc_spb_res_length				11
+#define isc_spb_res_access_mode			12
+#define isc_spb_res_deactivate_idx		0x0100
+#define isc_spb_res_no_shadow			0x0200
+#define isc_spb_res_no_validity			0x0400
+#define isc_spb_res_one_at_a_time		0x0800
+#define isc_spb_res_replace				0x1000
+#define isc_spb_res_create				0x2000
+#define isc_spb_res_use_all_space		0x4000
+
+/******************************************
+ * Parameters for isc_spb_res_access_mode  *
+ ******************************************/
+
+#define isc_spb_res_am_readonly			isc_spb_prp_am_readonly
+#define isc_spb_res_am_readwrite		isc_spb_prp_am_readwrite
+
+/*******************************************
+ * Parameters for isc_info_svc_svr_db_info *
+ *******************************************/
+
+#define isc_spb_num_att			5
+#define isc_spb_num_db			6
+
+/*****************************************
+ * Parameters for isc_info_svc_db_stats  *
+ *****************************************/
+
+#define isc_spb_sts_data_pages		0x01
+#define isc_spb_sts_db_log			0x02
+#define isc_spb_sts_hdr_pages		0x04
+#define isc_spb_sts_idx_pages		0x08
+#define isc_spb_sts_sys_relations	0x10
+
+/*************************/
+/* SQL information items */
+/*************************/
+
+#define isc_info_sql_select               4
+#define isc_info_sql_bind                 5
+#define isc_info_sql_num_variables        6
+#define isc_info_sql_describe_vars        7
+#define isc_info_sql_describe_end         8
+#define isc_info_sql_sqlda_seq            9
+#define isc_info_sql_message_seq          10
+#define isc_info_sql_type                 11
+#define isc_info_sql_sub_type             12
+#define isc_info_sql_scale                13
+#define isc_info_sql_length               14
+#define isc_info_sql_null_ind             15
+#define isc_info_sql_field                16
+#define isc_info_sql_relation             17
+#define isc_info_sql_owner                18
+#define isc_info_sql_alias                19
+#define isc_info_sql_sqlda_start          20
+#define isc_info_sql_stmt_type            21
+#define isc_info_sql_get_plan             22
+#define isc_info_sql_records		  23
+#define isc_info_sql_batch_fetch	  24
+
+/*********************************/
+/* SQL information return values */
+/*********************************/
+
+#define isc_info_sql_stmt_select          1
+#define isc_info_sql_stmt_insert          2
+#define isc_info_sql_stmt_update          3
+#define isc_info_sql_stmt_delete          4
+#define isc_info_sql_stmt_ddl             5
+#define isc_info_sql_stmt_get_segment     6
+#define isc_info_sql_stmt_put_segment     7
+#define isc_info_sql_stmt_exec_procedure  8
+#define isc_info_sql_stmt_start_trans     9
+#define isc_info_sql_stmt_commit          10
+#define isc_info_sql_stmt_rollback        11
+#define isc_info_sql_stmt_select_for_upd  12
+#define isc_info_sql_stmt_set_generator   13
+
+
+/***********************************/
+/* Server configuration key values */
+/***********************************/
+
+#define	ISCCFG_LOCKMEM_KEY	0
+#define ISCCFG_LOCKSEM_KEY	1
+#define ISCCFG_LOCKSIG_KEY	2
+#define ISCCFG_EVNTMEM_KEY	3
+#define ISCCFG_DBCACHE_KEY	4
+#define ISCCFG_PRIORITY_KEY	5
+#define ISCCFG_IPCMAP_KEY	6
+#define ISCCFG_MEMMIN_KEY	7
+#define ISCCFG_MEMMAX_KEY	8
+#define	ISCCFG_LOCKORDER_KEY	9
+#define	ISCCFG_ANYLOCKMEM_KEY	10
+#define ISCCFG_ANYLOCKSEM_KEY	11
+#define ISCCFG_ANYLOCKSIG_KEY	12
+#define ISCCFG_ANYEVNTMEM_KEY	13
+#define ISCCFG_LOCKHASH_KEY	14
+#define ISCCFG_DEADLOCK_KEY	15
+#define ISCCFG_LOCKSPIN_KEY	16
+#define ISCCFG_CONN_TIMEOUT_KEY 17
+#define ISCCFG_DUMMY_INTRVL_KEY 18
+#define ISCCFG_TRACE_POOLS_KEY  19	/* Internal Use only */
+#define ISCCFG_REMOTE_BUFFER_KEY	20
+
+#ifdef SET_TCP_NO_DELAY
+#define ISCCFG_NO_NAGLE_KEY	21
+#endif
+
+
+/***************/
+/* Error codes */
+/***************/
+
+#define isc_facility                       20
+#define isc_err_base                       335544320L
+#define isc_err_factor                     1
+#define isc_arg_end                        0
+#define isc_arg_gds                        1
+#define isc_arg_string                     2
+#define isc_arg_cstring                    3
+#define isc_arg_number                     4
+#define isc_arg_interpreted                5
+#define isc_arg_vms                        6
+#define isc_arg_unix                       7
+#define isc_arg_domain                     8
+#define isc_arg_dos                        9
+#define isc_arg_mpexl                      10
+#define isc_arg_mpexl_ipc                  11
+#define isc_arg_next_mach		   15
+#define isc_arg_netware		           16
+#define isc_arg_win32                      17
+#define isc_arg_warning                    18
+
+#include <iberror.h>
+
+/**********************************************/
+/* Dynamic Data Definition Language operators */
+/**********************************************/
+
+/******************/
+/* Version number */
+/******************/
+
+#define isc_dyn_version_1                 1
+#define isc_dyn_eoc                       255
+
+/******************************/
+/* Operations (may be nested) */
+/******************************/
+
+#define isc_dyn_begin                     2
+#define isc_dyn_end                       3
+#define isc_dyn_if                        4
+#define isc_dyn_def_database              5
+#define isc_dyn_def_global_fld            6
+#define isc_dyn_def_local_fld             7
+#define isc_dyn_def_idx                   8
+#define isc_dyn_def_rel                   9
+#define isc_dyn_def_sql_fld               10
+#define isc_dyn_def_view                  12
+#define isc_dyn_def_trigger               15
+#define isc_dyn_def_security_class        120
+#define isc_dyn_def_dimension             140
+#define isc_dyn_def_generator             24
+#define isc_dyn_def_function              25
+#define isc_dyn_def_filter                26
+#define isc_dyn_def_function_arg          27
+#define isc_dyn_def_shadow                34
+#define isc_dyn_def_trigger_msg           17
+#define isc_dyn_def_file                  36
+#define isc_dyn_mod_database              39
+#define isc_dyn_mod_rel                   11
+#define isc_dyn_mod_global_fld            13
+#define isc_dyn_mod_idx                   102
+#define isc_dyn_mod_local_fld             14
+#define isc_dyn_mod_sql_fld		  216
+#define isc_dyn_mod_view                  16
+#define isc_dyn_mod_security_class        122
+#define isc_dyn_mod_trigger               113
+#define isc_dyn_mod_trigger_msg           28
+#define isc_dyn_delete_database           18
+#define isc_dyn_delete_rel                19
+#define isc_dyn_delete_global_fld         20
+#define isc_dyn_delete_local_fld          21
+#define isc_dyn_delete_idx                22
+#define isc_dyn_delete_security_class     123
+#define isc_dyn_delete_dimensions         143
+#define isc_dyn_delete_trigger            23
+#define isc_dyn_delete_trigger_msg        29
+#define isc_dyn_delete_filter             32
+#define isc_dyn_delete_function           33
+#define isc_dyn_delete_shadow             35
+#define isc_dyn_grant                     30
+#define isc_dyn_revoke                    31
+#define isc_dyn_def_primary_key           37
+#define isc_dyn_def_foreign_key           38
+#define isc_dyn_def_unique                40
+#define isc_dyn_def_procedure             164
+#define isc_dyn_delete_procedure          165
+#define isc_dyn_def_parameter             135
+#define isc_dyn_delete_parameter          136
+#define isc_dyn_mod_procedure             175
+#define isc_dyn_def_log_file              176
+#define isc_dyn_def_cache_file            180
+#define isc_dyn_def_exception             181
+#define isc_dyn_mod_exception             182
+#define isc_dyn_del_exception             183
+#define isc_dyn_drop_log                  194
+#define isc_dyn_drop_cache                195
+#define isc_dyn_def_default_log           202
+
+/***********************/
+/* View specific stuff */
+/***********************/
+
+#define isc_dyn_view_blr                  43
+#define isc_dyn_view_source               44
+#define isc_dyn_view_relation             45
+#define isc_dyn_view_context              46
+#define isc_dyn_view_context_name         47
+
+/**********************/
+/* Generic attributes */
+/**********************/
+
+#define isc_dyn_rel_name                  50
+#define isc_dyn_fld_name                  51
+#define isc_dyn_new_fld_name		  215
+#define isc_dyn_idx_name                  52
+#define isc_dyn_description               53
+#define isc_dyn_security_class            54
+#define isc_dyn_system_flag               55
+#define isc_dyn_update_flag               56
+#define isc_dyn_prc_name                  166
+#define isc_dyn_prm_name                  137
+#define isc_dyn_sql_object                196
+#define isc_dyn_fld_character_set_name    174
+
+/********************************/
+/* Relation specific attributes */
+/********************************/
+
+#define isc_dyn_rel_dbkey_length          61
+#define isc_dyn_rel_store_trig            62
+#define isc_dyn_rel_modify_trig           63
+#define isc_dyn_rel_erase_trig            64
+#define isc_dyn_rel_store_trig_source     65
+#define isc_dyn_rel_modify_trig_source    66
+#define isc_dyn_rel_erase_trig_source     67
+#define isc_dyn_rel_ext_file              68
+#define isc_dyn_rel_sql_protection        69
+#define isc_dyn_rel_constraint            162
+#define isc_dyn_delete_rel_constraint     163
+
+/************************************/
+/* Global field specific attributes */
+/************************************/
+
+#define isc_dyn_fld_type                  70
+#define isc_dyn_fld_length                71
+#define isc_dyn_fld_scale                 72
+#define isc_dyn_fld_sub_type              73
+#define isc_dyn_fld_segment_length        74
+#define isc_dyn_fld_query_header          75
+#define isc_dyn_fld_edit_string           76
+#define isc_dyn_fld_validation_blr        77
+#define isc_dyn_fld_validation_source     78
+#define isc_dyn_fld_computed_blr          79
+#define isc_dyn_fld_computed_source       80
+#define isc_dyn_fld_missing_value         81
+#define isc_dyn_fld_default_value         82
+#define isc_dyn_fld_query_name            83
+#define isc_dyn_fld_dimensions            84
+#define isc_dyn_fld_not_null              85
+#define isc_dyn_fld_precision             86
+#define isc_dyn_fld_char_length           172
+#define isc_dyn_fld_collation             173
+#define isc_dyn_fld_default_source        193
+#define isc_dyn_del_default               197
+#define isc_dyn_del_validation            198
+#define isc_dyn_single_validation         199
+#define isc_dyn_fld_character_set         203
+
+/***********************************/
+/* Local field specific attributes */
+/***********************************/
+
+#define isc_dyn_fld_source                90
+#define isc_dyn_fld_base_fld              91
+#define isc_dyn_fld_position              92
+#define isc_dyn_fld_update_flag           93
+
+/*****************************/
+/* Index specific attributes */
+/*****************************/
+
+#define isc_dyn_idx_unique                100
+#define isc_dyn_idx_inactive              101
+#define isc_dyn_idx_type                  103
+#define isc_dyn_idx_foreign_key           104
+#define isc_dyn_idx_ref_column            105
+#define isc_dyn_idx_statistic		  204
+
+/*******************************/
+/* Trigger specific attributes */
+/*******************************/
+
+#define isc_dyn_trg_type                  110
+#define isc_dyn_trg_blr                   111
+#define isc_dyn_trg_source                112
+#define isc_dyn_trg_name                  114
+#define isc_dyn_trg_sequence              115
+#define isc_dyn_trg_inactive              116
+#define isc_dyn_trg_msg_number            117
+#define isc_dyn_trg_msg                   118
+
+/**************************************/
+/* Security Class specific attributes */
+/**************************************/
+
+#define isc_dyn_scl_acl                   121
+#define isc_dyn_grant_user                130
+#define isc_dyn_grant_proc                186
+#define isc_dyn_grant_trig                187
+#define isc_dyn_grant_view                188
+#define isc_dyn_grant_options             132
+#define isc_dyn_grant_user_group          205
+
+
+/**********************************/
+/* Dimension specific information */
+/**********************************/
+
+#define isc_dyn_dim_lower                 141
+#define isc_dyn_dim_upper                 142
+
+/****************************/
+/* File specific attributes */
+/****************************/
+
+#define isc_dyn_file_name                 125
+#define isc_dyn_file_start                126
+#define isc_dyn_file_length               127
+#define isc_dyn_shadow_number             128
+#define isc_dyn_shadow_man_auto           129
+#define isc_dyn_shadow_conditional        130
+
+/********************************/
+/* Log file specific attributes */
+/********************************/
+
+#define isc_dyn_log_file_sequence         177
+#define isc_dyn_log_file_partitions       178
+#define isc_dyn_log_file_serial           179
+#define isc_dyn_log_file_overflow         200
+#define isc_dyn_log_file_raw		  201
+
+/***************************/
+/* Log specific attributes */
+/***************************/
+
+#define isc_dyn_log_group_commit_wait     189
+#define isc_dyn_log_buffer_size           190
+#define isc_dyn_log_check_point_length    191
+#define isc_dyn_log_num_of_buffers        192
+
+/********************************/
+/* Function specific attributes */
+/********************************/
+
+#define isc_dyn_function_name             145
+#define isc_dyn_function_type             146
+#define isc_dyn_func_module_name          147
+#define isc_dyn_func_entry_point          148
+#define isc_dyn_func_return_argument      149
+#define isc_dyn_func_arg_position         150
+#define isc_dyn_func_mechanism            151
+#define isc_dyn_filter_in_subtype         152
+#define isc_dyn_filter_out_subtype        153
+
+
+#define isc_dyn_description2		  154
+#define isc_dyn_fld_computed_source2	  155
+#define isc_dyn_fld_edit_string2	  156
+#define isc_dyn_fld_query_header2	  157
+#define isc_dyn_fld_validation_source2	  158
+#define isc_dyn_trg_msg2		  159
+#define isc_dyn_trg_source2		  160
+#define isc_dyn_view_source2		  161
+#define isc_dyn_xcp_msg2		  184
+
+/*********************************/
+/* Generator specific attributes */
+/*********************************/
+
+#define isc_dyn_generator_name            95
+#define isc_dyn_generator_id              96
+
+/*********************************/
+/* Procedure specific attributes */
+/*********************************/
+
+#define isc_dyn_prc_inputs                167
+#define isc_dyn_prc_outputs               168
+#define isc_dyn_prc_source                169
+#define isc_dyn_prc_blr                   170
+#define isc_dyn_prc_source2               171
+
+/*********************************/
+/* Parameter specific attributes */
+/*********************************/
+
+#define isc_dyn_prm_number                138
+#define isc_dyn_prm_type                  139
+
+/********************************/
+/* Relation specific attributes */
+/********************************/
+
+#define isc_dyn_xcp_msg                   185
+
+/**********************************************/
+/* Cascading referential integrity values     */
+/**********************************************/
+#define isc_dyn_foreign_key_update        205
+#define isc_dyn_foreign_key_delete        206
+#define isc_dyn_foreign_key_cascade       207
+#define isc_dyn_foreign_key_default       208
+#define isc_dyn_foreign_key_null          209
+#define isc_dyn_foreign_key_none          210
+
+/***********************/
+/* SQL role values     */
+/***********************/
+#define isc_dyn_def_sql_role              211
+#define isc_dyn_sql_role_name             212
+#define isc_dyn_grant_admin_options       213
+#define isc_dyn_del_sql_role              214
+
+/****************************/
+/* Last $dyn value assigned */
+/****************************/
+
+#define isc_dyn_last_dyn_value            216
+
+/******************************************/
+/* Array slice description language (SDL) */
+/******************************************/
+
+#define isc_sdl_version1                  1
+#define isc_sdl_eoc                       255
+#define isc_sdl_relation                  2
+#define isc_sdl_rid                       3
+#define isc_sdl_field                     4
+#define isc_sdl_fid                       5
+#define isc_sdl_struct                    6
+#define isc_sdl_variable                  7
+#define isc_sdl_scalar                    8
+#define isc_sdl_tiny_integer              9
+#define isc_sdl_short_integer             10
+#define isc_sdl_long_integer              11
+#define isc_sdl_literal                   12
+#define isc_sdl_add                       13
+#define isc_sdl_subtract                  14
+#define isc_sdl_multiply                  15
+#define isc_sdl_divide                    16
+#define isc_sdl_negate                    17
+#define isc_sdl_eql                       18
+#define isc_sdl_neq                       19
+#define isc_sdl_gtr                       20
+#define isc_sdl_geq                       21
+#define isc_sdl_lss                       22
+#define isc_sdl_leq                       23
+#define isc_sdl_and                       24
+#define isc_sdl_or                        25
+#define isc_sdl_not                       26
+#define isc_sdl_while                     27
+#define isc_sdl_assignment                28
+#define isc_sdl_label                     29
+#define isc_sdl_leave                     30
+#define isc_sdl_begin                     31
+#define isc_sdl_end                       32
+#define isc_sdl_do3                       33
+#define isc_sdl_do2                       34
+#define isc_sdl_do1                       35
+#define isc_sdl_element                   36
+
+/********************************************/
+/* International text interpretation values */
+/********************************************/
+
+#define isc_interp_eng_ascii              0
+#define isc_interp_jpn_sjis               5
+#define isc_interp_jpn_euc                6
+
+/*******************/
+/* SQL definitions */
+/*******************/
+
+#define SQL_TEXT                           452
+#define SQL_VARYING                        448
+#define SQL_SHORT                          500
+#define SQL_LONG                           496
+#define SQL_FLOAT                          482
+#define SQL_DOUBLE                         480
+#define SQL_D_FLOAT                        530
+#define SQL_TIMESTAMP                      510
+#define SQL_BLOB                           520
+#define SQL_ARRAY                          540
+#define SQL_QUAD                           550
+#define SQL_TYPE_TIME			   560
+#define SQL_TYPE_DATE                      570
+#define SQL_INT64			   580
+
+/* Historical alias for pre V6 applications */
+#define SQL_DATE			SQL_TIMESTAMP
+
+/*****************/
+/* Blob Subtypes */
+/*****************/
+
+/* types less than zero are reserved for customer use */
+
+#define isc_blob_untyped                   0
+
+/* internal subtypes */
+
+#define isc_blob_text                      1
+#define isc_blob_blr                       2
+#define isc_blob_acl                       3
+#define isc_blob_ranges                    4
+#define isc_blob_summary                   5
+#define isc_blob_format                    6
+#define isc_blob_tra                       7
+#define isc_blob_extfile                   8
+
+/* the range 20-30 is reserved for dBASE and Paradox types */
+
+#define isc_blob_formatted_memo            20
+#define isc_blob_paradox_ole               21
+#define isc_blob_graphic                   22
+#define isc_blob_dbase_ole                 23
+#define isc_blob_typed_binary              24
+
+/* Deprecated definitions maintained for compatibility only */
+
+#define isc_info_db_SQL_dialect           62
+#define isc_dpb_SQL_dialect               63
+#define isc_dpb_set_db_SQL_dialect        65
+
+#endif /* JRD_IBASE_H */
diff --git a/src/jrd/iberr.cpp b/src/jrd/iberr.cpp
new file mode 100644
index 0000000000..1a81888500
--- /dev/null
+++ b/src/jrd/iberr.cpp
@@ -0,0 +1,164 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		iberr.c
+ *	DESCRIPTION:	Generic Interbase error handling routines.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/ibsetjmp.h"
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../jrd/codes.h"
+#include "../jrd/iberr.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/iberr_proto.h"
+
+static void post_error(STATUS *, SCHAR *, UCHAR *, STATUS, ...);
+
+
+void IBERR_append_status(STATUS * status_vector, STATUS status, ...)
+{
+/**************************************
+ *
+ *	I B E R R _  a p p e n d _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Append the given status vector with the passed arguments.
+ *
+ **************************************/
+	STATUS local_status[20], *appended, *status_end;
+
+/* First build a local status vector with the passed arguments */
+
+	STUFF_STATUS(local_status, status);
+
+/* Now find the end of the passed status vector info */
+
+	for (status_end = status_vector + 20; *status_vector; status_vector++);
+
+/* Now append the newly built local status vector to the passed one */
+
+	appended = local_status;
+	while ((*status_vector++ = *appended++) && status_vector < status_end);
+}
+
+
+void IBERR_build_status(STATUS * status_vector, STATUS status, ...)
+{
+/**************************************
+ *
+ *	I B E R R _ b u i l d _ s t a t u s 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fill up a status vector with the passed arguments.
+ *
+ **************************************/
+
+	STUFF_STATUS(status_vector, status);
+}
+
+
+void IBERR_bugcheck(
+					STATUS * status_vector,
+					SCHAR * dbname,
+					UCHAR * longjmp_addr, int number, TEXT * errmsg)
+{
+/**************************************
+ *
+ *	I B E R R _ b u g c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Things seem to be going poorly today.
+ *
+ **************************************/
+	USHORT flags, len;
+
+	if (gds__msg_lookup(0, JRD_BUGCHK, number, MAX_ERRMSG_LEN, errmsg,
+						&flags) < 1)
+		strcpy(errmsg, "Internal error code");
+
+	len = strlen(errmsg);
+	sprintf(errmsg + len, " (%d)", number);
+
+	post_error(status_vector, dbname, longjmp_addr, gds__bug_check,
+			   gds_arg_string, errmsg, 0);
+}
+
+
+void IBERR_error(
+				 STATUS * status_vector,
+				 SCHAR * dbname,
+				 UCHAR * longjmp_addr, int number, TEXT * errmsg)
+{
+/**************************************
+ *
+ *	I B E R R _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post a user-level error.  This is a temporary mechanism
+ *	that will eventually disappear.
+ *
+ **************************************/
+	USHORT flags;
+
+	if (gds__msg_lookup(0, JRD_BUGCHK, number, MAX_ERRMSG_LEN, errmsg,
+						&flags) < 1)
+		sprintf(errmsg, "error code %d", number);
+
+	post_error(status_vector, dbname, longjmp_addr, gds__random,
+			   gds_arg_string, errmsg, 0);
+}
+
+
+static void post_error(
+					   STATUS * status_vector,
+					   SCHAR * dbname,
+					   UCHAR * longjmp_addr, STATUS status, ...)
+{
+/**************************************
+ *
+ *	p o s t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a status vector and return to the user.
+ *
+ **************************************/
+
+	STUFF_STATUS(status_vector, status);
+
+	if (status_vector[1] == gds__db_corrupt ||
+		status_vector[1] == gds__bug_check)
+			gds__log_status(dbname, status_vector);
+
+	if (longjmp_addr)
+		LONGJMP(reinterpret_cast < jmp_buf & >(longjmp_addr),
+				(int) status_vector[1]);
+}
diff --git a/src/jrd/iberr.h b/src/jrd/iberr.h
new file mode 100644
index 0000000000..4ca32b8ee3
--- /dev/null
+++ b/src/jrd/iberr.h
@@ -0,0 +1,118 @@
+/*
+ *        PROGRAM:        JRD Access Method
+ *        MODULE:         iberr.h
+ *        DESCRIPTION:    Interbase error handling definitions.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_IBERR_H
+#define JRD_IBERR_H
+
+#include "../jrd/gdsassert.h"
+#include "../misc/status.h"
+
+/*
+ * TMN: Leave INIT_STATUS as macro for now. At least "why.c" (what
+ * is to become "y_valve.cpp" need it.
+ */
+
+#define INIT_STATUS(status)	status [0] = gds_arg_gds;\
+				status [1] = 0;\
+				status [2] = gds_arg_end
+
+
+#if 1
+
+/* TMN: The hits just keep on coming. The macro STUFF_STATUS MUST be
+ * defined so it can get instantiated in the "calling" place because of
+ * the use of varargs. I trimmed this one a bit though by putting the
+ * majority of the macro into a function.
+ */
+
+#define STUFF_STATUS(status_vector,status)              \
+{                                                       \
+    va_list args;                                       \
+    VA_START (args, status);                            \
+    STUFF_STATUS_function(status_vector, status, args); \
+}
+
+#else	/* 0/1 */
+
+#define STUFF_STATUS(status_vector,status)      \
+{						\
+va_list args;                                   \
+STATUS  *p, *q;                                 \
+int     type, len;                              \
+                                                \
+VA_START (args, status);                        \
+p = status_vector;                              \
+                                                \
+*p++ = (STATUS)gds_arg_gds;                     \
+*p++ = status;                                  \
+                                                \
+while ((type = va_arg (args, int)) && ((p - status_vector) < 17))    \
+    switch (*p++ = type)                        \
+    {                                           \
+    case gds_arg_gds:                           \
+        *p++ = (STATUS) va_arg (args, STATUS);  \
+        break;                                  \
+                                                \
+    case gds_arg_string:                        \
+        q = (STATUS*) va_arg (args, TEXT*);	\
+	if (strlen ((TEXT*)q) >= MAX_ERRSTR_LEN)\
+	    {					\
+	    *(p -1) = gds_arg_cstring;		\
+	    *p++ = (STATUS) MAX_ERRSTR_LEN;	\
+	    }					\
+	*p++ = (STATUS) q;			\
+        break;                                  \
+                                                \
+    case gds_arg_interpreted:                   \
+	*p++ = (STATUS) va_arg (args, TEXT*);   \
+	break;                                  \
+						\
+    case gds_arg_cstring:                       \
+	len = (int) va_arg (args, int);		\
+        *p++ = (STATUS) (len >= MAX_ERRSTR_LEN) ? MAX_ERRSTR_LEN : len;\
+        *p++ = (STATUS) va_arg (args, TEXT*);   \
+        break;                                  \
+                                                \
+    case gds_arg_number:                        \
+        *p++ = (STATUS) va_arg (args, SLONG);   \
+        break;                                  \
+                                                \
+    case gds_arg_vms:                           \
+    case gds_arg_unix:                          \
+    case gds_arg_domain:                        \
+    case gds_arg_dos:                           \
+    case gds_arg_mpexl:                         \
+    case gds_arg_next_mach:                     \
+    case gds_arg_netware:                       \
+    case gds_arg_win32:                         \
+    default:                                    \
+        *p++ = (STATUS) va_arg (args, int);     \
+        break;                                  \
+    }						\
+*p = gds_arg_end;				\
+}
+/* end of STUFF_STATUS */			
+
+#endif	/* 0/1 */
+
+#endif /* JRD_IBERR_H */
diff --git a/src/jrd/iberr_proto.h b/src/jrd/iberr_proto.h
new file mode 100644
index 0000000000..8f26a970d8
--- /dev/null
+++ b/src/jrd/iberr_proto.h
@@ -0,0 +1,32 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		iberr_proto.h
+ *	DESCRIPTION:	Prototype header file for iberr.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_IBERR_PROTO_H_
+#define _JRD_IBERR_PROTO_H_
+
+extern void IBERR_append_status(STATUS *, STATUS, ...);
+extern void IBERR_build_status(STATUS *, STATUS, ...);
+extern void IBERR_bugcheck(STATUS *, SCHAR *, UCHAR *, int, TEXT *);
+extern void IBERR_error(STATUS *, SCHAR *, UCHAR *, int, TEXT *);
+
+#endif /* _JRD_IBERR_PROTO_H_ */
diff --git a/src/jrd/ibinitdll.cpp b/src/jrd/ibinitdll.cpp
new file mode 100644
index 0000000000..387b03bd8d
--- /dev/null
+++ b/src/jrd/ibinitdll.cpp
@@ -0,0 +1,50 @@
+/*
+ *      PROGRAM:        InterBase Window platforms
+ *      MODULE:         ibinitdll.c
+ *      DESCRIPTION:    DLL entry/exit function
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <windows.h>
+
+HINSTANCE hIBDLLInstance;
+#ifdef SUPERSERVER
+
+#ifdef  _MSC_VER
+BOOL WINAPI _CRT_INIT(HINSTANCE, DWORD, LPVOID);
+#else
+BOOL WINAPI _CRT_INIT(HINSTANCE HIdummy, DWORD DWdummy, LPVOID LPVdummy)
+{
+	return TRUE;
+}
+#endif
+
+#else /* SUPERSERVER */
+
+BOOL WINAPI DllMain(HINSTANCE h, DWORD reason, LPVOID reserved)
+{
+
+	/* save instance value */
+
+	hIBDLLInstance = h;
+
+	return TRUE;
+}
+
+#endif /* else of ifdef SUPERSERVER */
diff --git a/src/jrd/ibsetjmp.h b/src/jrd/ibsetjmp.h
new file mode 100644
index 0000000000..d05b94e984
--- /dev/null
+++ b/src/jrd/ibsetjmp.h
@@ -0,0 +1,72 @@
+/*
+ *	PROGRAM:	JRD access method
+ *	MODULE:		ibsetjmp.h
+ *	DESCRIPTION:	Defines for setjmp/longjmp
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_IBSETJMP_H_
+#define _JRD_IBSETJMP_H_
+
+
+#include <setjmp.h>
+
+#define SETJMP	setjmp
+#define LONGJMP	longjmp
+#define	JMP_BUF	jmp_buf
+
+#ifdef UNIX
+#include <signal.h>
+
+#define SIGSETJMP 	sigsetjmp
+#define SIGLONGJMP 	siglongjmp
+#define	SIGJMP_BUF	sigjmp_buf
+
+#ifdef SUPERSERVER
+#define START_CHECK_FOR_EXCEPTIONS(err)	{ \
+					SIGJMP_BUF	sigenv; \
+					int		sig; \
+					tdbb->tdbb_sigsetjmp = (UCHAR*) sigenv; \
+					if (sig = SIGSETJMP (sigenv, 1)) \
+					    ISC_exception_post(sig, err); \
+					ISC_sync_signals_set();
+#define END_CHECK_FOR_EXCEPTIONS(err)   ISC_sync_signals_reset(); }
+#endif /* SUPER_SERVER */
+
+#endif /* UNIX */
+
+#ifdef WIN_NT
+#ifdef SUPERSERVER
+#include <excpt.h>
+#define START_CHECK_FOR_EXCEPTIONS(err)	__try {
+#define  END_CHECK_FOR_EXCEPTIONS(err) 	} __except ( ISC_exception_post(GetExceptionCode(),err)) { }
+#endif /* SUPER_SERVER */
+#endif /* WIN_NT */
+
+/* generic macros */
+#ifndef START_CHECK_FOR_EXCEPTIONS
+#define START_CHECK_FOR_EXCEPTIONS(err)
+#endif
+
+#ifndef END_CHECK_FOR_EXCEPTIONS
+#define END_CHECK_FOR_EXCEPTIONS(err)
+#endif
+
+
+#endif /* _JRD_IBSETJMP_H_ */
diff --git a/src/jrd/ids.h b/src/jrd/ids.h
new file mode 100644
index 0000000000..999ab9cd92
--- /dev/null
+++ b/src/jrd/ids.h
@@ -0,0 +1,377 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+
+
+
+
+
+
+
+
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		relations.h
+ *	DESCRIPTION:	System relation definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+#define f_pag_page 0
+#define f_pag_id 1
+#define f_pag_seq 2
+#define f_pag_type 3
+#define f_dat_desc 0
+#define f_dat_id 1
+#define f_dat_class 2
+#define f_dat_charset 3
+#define f_fld_name 0
+#define f_fld_qname 1
+#define f_fld_v_blr 2
+#define f_fld_v_source 3
+#define f_fld_computed 4
+#define f_fld_csource 5
+#define f_fld_default 6
+#define f_fld_dsource 7
+#define f_fld_length 8
+#define f_fld_scale 9
+#define f_fld_type 10
+#define f_fld_sub_type 11
+#define f_fld_missing 12
+#define f_fld_msource 13
+#define f_fld_desc 14
+#define f_fld_sys_flag 15
+#define f_fld_qheader 16
+#define f_fld_seg_len 17
+#define f_fld_estring 18
+#define f_fld_ext_length 19
+#define f_fld_ext_scale 20
+#define f_fld_ext_type 21
+#define f_fld_dimensions 22
+#define f_fld_null_flag 23
+#define f_fld_char_length 24
+#define f_fld_coll_id 25
+#define f_fld_charset_id 26
+#define f_fld_precision 27
+#define f_seg_name 0
+#define f_seg_field 1
+#define f_seg_position 2
+#define f_idx_name 0
+#define f_idx_relation 1
+#define f_idx_id 2
+#define f_idx_flag 3
+#define f_idx_desc 4
+#define f_idx_count 5
+#define f_idx_inactive 6
+#define f_idx_type 7
+#define f_idx_foreign 8
+#define f_idx_sys_flag 9
+#define f_idx_exp_blr 10
+#define f_idx_exp_source 11
+#define f_idx_statistics 12
+#define f_rfr_fname 0
+#define f_rfr_rname 1
+#define f_rfr_sname 2
+#define f_rfr_qname 3
+#define f_rfr_base 4
+#define f_rfr_estring 5
+#define f_rfr_position 6
+#define f_rfr_qheader 7
+#define f_rfr_flag 8
+#define f_rfr_id 9
+#define f_rfr_context 10
+#define f_rfr_desc 11
+#define f_rfr_default 12
+#define f_rfr_sys_flag 13
+#define f_rfr_class 14
+#define f_rfr_complex 15
+#define f_rfr_null_flag 16
+#define f_rfr_dsource 17
+#define f_rfr_coll_id 18
+#define f_rel_blr 0
+#define f_rel_source 1
+#define f_rel_desc 2
+#define f_rel_id 3
+#define f_rel_sys_flag 4
+#define f_rel_key_len 5
+#define f_rel_format 6
+#define f_rel_field_id 7
+#define f_rel_name 8
+#define f_rel_class 9
+#define f_rel_ext_file 10
+#define f_rel_runtime 11
+#define f_rel_ext_desc 12
+#define f_rel_owner 13
+#define f_rel_def_class 14
+#define f_rel_flags 15
+#define f_vrl_vname 0
+#define f_vrl_rname 1
+#define f_vrl_context 2
+#define f_vrl_cname 3
+#define f_fmt_rid 0
+#define f_fmt_format 1
+#define f_fmt_desc 2
+#define f_cls_class 0
+#define f_cls_acl 1
+#define f_cls_desc 2
+#define f_file_name 0
+#define f_file_seq 1
+#define f_file_start 2
+#define f_file_length 3
+#define f_file_flags 4
+#define f_file_shad_num 5
+#define f_typ_field 0
+#define f_typ_type 1
+#define f_typ_name 2
+#define f_typ_desc 3
+#define f_typ_sys_flag 4
+#define f_trg_name 0
+#define f_trg_rname 1
+#define f_trg_seq 2
+#define f_trg_type 3
+#define f_trg_source 4
+#define f_trg_blr 5
+#define f_trg_desc 6
+#define f_trg_inactive 7
+#define f_trg_sys_flag 8
+#define f_trg_flags 9
+#define f_dpd_name 0
+#define f_dpd_o_name 1
+#define f_dpd_f_name 2
+#define f_dpd_type 3
+#define f_dpd_o_type 4
+#define f_fun_name 0
+#define f_fun_type 1
+#define f_fun_qname 2
+#define f_fun_desc 3
+#define f_fun_module 4
+#define f_fun_entry 5
+#define f_fun_ret_arg 6
+#define f_fun_sys_flag 7
+#define f_arg_fun_name 0
+#define f_arg_pos 1
+#define f_arg_mech 2
+#define f_arg_type 3
+#define f_arg_scale 4
+#define f_arg_length 5
+#define f_arg_sub_type 6
+#define f_arg_charset_id 7
+#define f_arg_precision 8
+#define f_arg_char_length 9
+#define f_flt_name 0
+#define f_flt_desc 1
+#define f_flt_module 2
+#define f_flt_entry 3
+#define f_flt_input 4
+#define f_flt_output 5
+#define f_flt_sys_flag 6
+#define f_msg_trigger 0
+#define f_msg_number 1
+#define f_msg_msg 2
+#define f_prv_user 0
+#define f_prv_grantor 1
+#define f_prv_priv 2
+#define f_prv_grant 3
+#define f_prv_rname 4
+#define f_prv_fname 5
+#define f_prv_u_type 6
+#define f_prv_o_type 7
+#define f_trn_id 0
+#define f_trn_state 1
+#define f_trn_time 2
+#define f_trn_desc 3
+#define f_gen_name 0
+#define f_gen_id 1
+#define f_gen_sys_flag 2
+#define f_dims_fname 0
+#define f_dims_dim 1
+#define f_dims_lower 2
+#define f_dims_upper 3
+#define f_rcon_cname 0
+#define f_rcon_ctype 1
+#define f_rcon_rname 2
+#define f_rcon_dfr 3
+#define f_rcon_idfr 4
+#define f_rcon_iname 5
+#define f_refc_cname 0
+#define f_refc_uq 1
+#define f_refc_match 2
+#define f_refc_upd_rul 3
+#define f_refc_del_rul 4
+#define f_ccon_cname 0
+#define f_ccon_tname 1
+#define f_log_name 0
+#define f_log_seq 1
+#define f_log_length 2
+#define f_log_partitions 3
+#define f_log_p_offset 4
+#define f_log_flags 5
+#define f_prc_name 0
+#define f_prc_id 1
+#define f_prc_inputs 2
+#define f_prc_outputs 3
+#define f_prc_desc 4
+#define f_prc_source 5
+#define f_prc_blr 6
+#define f_prc_class 7
+#define f_prc_owner 8
+#define f_prc_runtime 9
+#define f_prc_sys_flag 10
+#define f_prm_name 0
+#define f_prm_procedure 1
+#define f_prm_number 2
+#define f_prm_type 3
+#define f_prm_sname 4
+#define f_prm_desc 5
+#define f_prm_sys_flag 6
+#define f_cs_cs_name 0
+#define f_cs_form_of_use 1
+#define f_cs_num_chars 2
+#define f_cs_def_collate 3
+#define f_cs_id 4
+#define f_cs_sys_flag 5
+#define f_cs_desc 6
+#define f_cs_fun_name 7
+#define f_cs_bytes_char 8
+#define f_coll_name 0
+#define f_coll_id 1
+#define f_coll_cs_id 2
+#define f_coll_attr 3
+#define f_coll_sys_flag 4
+#define f_coll_desc 5
+#define f_coll_fun_name 6
+#define f_xcp_name 0
+#define f_xcp_number 1
+#define f_xcp_msg 2
+#define f_xcp_desc 3
+#define f_xcp_sys_flag 4
+#define f_rol_name 0
+#define f_rol_owner 1
diff --git a/src/jrd/ids.m b/src/jrd/ids.m
new file mode 100644
index 0000000000..783bbf562c
--- /dev/null
+++ b/src/jrd/ids.m
@@ -0,0 +1,30 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+changequote([,])
+define(NEXT, [N define([N], incr(N))]) 
+
+define(RELATION, [define([N], 0)])
+define(FIELD, [divert(1)[#define] $1 NEXT 
+divert(0)dnl])
+define(END_RELATION, )
+
+define(FIELD_ODS8, )
+
+include(relations.h)
diff --git a/src/jrd/idx.cpp b/src/jrd/idx.cpp
new file mode 100644
index 0000000000..95031f1088
--- /dev/null
+++ b/src/jrd/idx.cpp
@@ -0,0 +1,1370 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		idx.c
+ *	DESCRIPTION:	Index manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/val.h"
+#include "../jrd/intl.h"
+#include "../jrd/req.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../jrd/sort.h"
+#include "../jrd/lls.h"
+#include "../jrd/tra.h"
+#include "../jrd/codes.h"
+#include "../jrd/sbm.h"
+#include "../jrd/exe.h"
+#include "../jrd/scl.h"
+#include "../jrd/lck.h"
+#include "../jrd/rse.h"
+#include "../jrd/cch.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/btr_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/idx_proto.h"
+#include "../jrd/jrd_proto.h"
+#include "../jrd/lck_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/sort_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/vio_proto.h"
+
+
+extern "C" {
+
+
+static CONST SCHAR NULL_STR = '\0';
+
+/* Data to be passed to index fast load duplicates routine */
+
+typedef struct ifl {
+	SLONG ifl_duplicates;
+	USHORT ifl_key_length;
+} *IFL;
+
+static IDX_E check_duplicates(TDBB, REC, IDX *, IIB *, REL);
+static IDX_E check_foreign_key(TDBB, REC, REL, TRA, IDX *, REL *, USHORT *);
+static IDX_E check_partner_index(TDBB, REL, REC, TRA, IDX *, REL, SSHORT);
+static BOOLEAN duplicate_key(UCHAR *, UCHAR *, IFL);
+static SLONG get_root_page(TDBB, REL);
+static void index_block_flush(IDB);
+static IDX_E insert_key(TDBB, REL, REC, TRA, WIN *, IIB *, REL *, USHORT *);
+static BOOLEAN key_equal(KEY *, KEY *);
+static void signal_index_deletion(TDBB, REL, USHORT);
+
+
+void IDX_check_access(TDBB tdbb, CSB csb, REL view, REL relation, FLD field)
+{
+/**************************************
+ *
+ *	I D X _ c h e c k _ a c c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check the various indices in a relation
+ *	to see if we need REFERENCES access to fields
+ *	in the primary key.   Don't call this routine for
+ *	views or external relations, since the mechanism
+ *	ain't there.
+ *
+ **************************************/
+	WIN window, referenced_window;
+	IDX idx, referenced_idx;
+	REL referenced_relation;
+	FLD referenced_field;
+	IRT referenced_root;
+	USHORT index_id, i;
+	idx::idx_repeat * idx_desc;
+
+	SET_TDBB(tdbb);
+
+	idx.idx_id = (UCHAR) - 1;
+	window.win_flags = 0;
+
+	while (BTR_next_index(tdbb, relation, 0, &idx, &window))
+		if (idx.idx_flags & idx_foreign) {
+			/* find the corresponding primary key index */
+
+			if (!MET_lookup_partner
+				(tdbb, relation, &idx,
+				 reinterpret_cast < UCHAR * >(const_cast <
+											  SCHAR *
+											  >(&NULL_STR)))) continue;
+			referenced_relation =
+				MET_relation(tdbb, idx.idx_primary_relation);
+			MET_scan_relation(tdbb, referenced_relation);
+			index_id = (USHORT) idx.idx_primary_index;
+
+			/* get the description of the primary key index */
+
+			referenced_window.win_page =
+				get_root_page(tdbb, referenced_relation);
+			referenced_window.win_flags = 0;
+			referenced_root =
+				(IRT) CCH_FETCH(tdbb, &referenced_window, LCK_read, pag_root);
+			if (!BTR_description
+				(referenced_relation, referenced_root, &referenced_idx,
+				 index_id)) BUGCHECK(173);	/* msg 173 referenced index description not found */
+
+			/* post references access to each field in the index */
+
+			idx_desc = referenced_idx.idx_rpt;
+			for (i = 0; i < referenced_idx.idx_count; i++, idx_desc++) {
+				referenced_field =
+					MET_get_field(referenced_relation, idx_desc->idx_field);
+				CMP_post_access(tdbb, csb,
+								referenced_relation->rel_security_name, view,
+								0, 0, SCL_sql_references, "TABLE",
+								referenced_relation->rel_name);
+				CMP_post_access(tdbb, csb,
+								referenced_field->fld_security_name, 0, 0, 0,
+								SCL_sql_references, "COLUMN",
+								referenced_field->fld_name);
+			}
+
+			CCH_RELEASE(tdbb, &referenced_window);
+		}
+}
+
+
+void IDX_create_index(
+					  TDBB tdbb,
+					  REL relation,
+					  IDX * idx,
+					  UCHAR * index_name,
+					  USHORT * index_id, TRA transaction, float *selectivity)
+{
+/**************************************
+ *
+ *	I D X _ c r e a t e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create and populate index.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment;
+	USHORT key_length, l;
+	RPB primary, secondary;
+	LLS stack;
+	REC record, gc_record;
+	ISR isr;
+	KEY key;
+	SCB sort_handle;
+	SKD key_desc;
+	UCHAR *p, *q, pad;
+	REL partner_relation;
+	USHORT partner_index_id;
+	BOOLEAN cancel = FALSE;
+	IDX_E result = idx_e_ok;
+	struct ifl ifl_data;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if (relation->rel_file)
+		ERR_post(gds__no_meta_update, gds_arg_gds, gds__extfile_uns_op,
+				 gds_arg_string, ERR_cstring(relation->rel_name), 0);
+
+	BTR_reserve_slot(tdbb, relation, transaction, idx);
+
+	if (index_id)
+		*index_id = idx->idx_id;
+
+	primary.rpb_relation = secondary.rpb_relation = relation;
+	primary.rpb_number = -1;
+	primary.rpb_window.win_flags = secondary.rpb_window.win_flags = 0;
+
+	key_length = ROUNDUP(BTR_key_length(relation, idx), sizeof(SLONG));
+	if (key_length >= MAX_KEY)
+		ERR_post(gds__no_meta_update,
+				 gds_arg_gds,
+				 gds__keytoobig,
+				 gds_arg_string,
+				 ERR_cstring(reinterpret_cast < char *>(index_name)), 0);
+#ifdef IGNORE_NULL_IDX_KEY
+/* accomodate enough space to prepend sort key with a BOOLEAN as 
+ * SORTP_VAL_IS_NULL for initial NULL segment records. */
+	key_length += sizeof(SORTP);
+#endif /* IGNORE_NULL_IDX_KEY */
+	stack = NULL;
+	pad = (idx->idx_flags & idx_descending) ? -1 : 0;
+
+	ifl_data.ifl_duplicates = 0;
+	ifl_data.ifl_key_length = key_length;
+
+	key_desc.skd_dtype = SKD_bytes;
+	key_desc.skd_flags = SKD_ascending;
+	key_desc.skd_length = key_length;
+	key_desc.skd_offset = 0;
+	key_desc.skd_vary_offset = 0;
+
+	sort_handle = SORT_init(tdbb->tdbb_status_vector,
+							key_length + sizeof(struct isr),
+							1,
+							&key_desc,
+							reinterpret_cast < UCHAR(*)() > (duplicate_key),
+							&ifl_data, tdbb->tdbb_attachment);
+
+	if (!sort_handle)
+		ERR_punt();
+
+	if (idx->idx_flags & idx_foreign) {
+		if (!MET_lookup_partner(tdbb, relation, idx, index_name))
+			BUGCHECK(173);		/* msg 173 referenced index description not found */
+		partner_relation = MET_relation(tdbb, idx->idx_primary_relation);
+		partner_index_id = (USHORT) idx->idx_primary_index;
+	}
+
+/* Checkout a garbage collect record block for fetching data. */
+
+	gc_record = VIO_gc_record(tdbb, relation);
+
+/* Unless this is the only attachment or a database restore, worry about
+   preserving the page working sets of other attachments. */
+
+	if ((attachment = tdbb->tdbb_attachment) &&
+		(attachment != dbb->dbb_attachments || attachment->att_next)) {
+		if (attachment->att_flags & ATT_gbak_attachment ||
+			DPM_data_pages(tdbb, relation) > dbb->dbb_bcb->bcb_count) {
+			primary.rpb_window.win_flags = secondary.rpb_window.win_flags =
+				WIN_large_scan;
+			primary.rpb_org_scans = secondary.rpb_org_scans =
+				relation->rel_scan_count++;
+		}
+	}
+
+/* Loop thru the relation computing index keys.  If there are old versions,
+   find them, too. */
+
+	while (!cancel && DPM_next(tdbb, &primary, LCK_read, FALSE, FALSE)) {
+		if (transaction && !VIO_garbage_collect(tdbb, &primary, transaction))
+			continue;
+		if (primary.rpb_flags & rpb_deleted)
+			CCH_RELEASE(tdbb, &primary.rpb_window);
+		else {
+			primary.rpb_record = gc_record;
+			VIO_data(tdbb, &primary,
+					 reinterpret_cast < BLK > (dbb->dbb_permanent));
+			gc_record = primary.rpb_record;
+			LLS_PUSH(primary.rpb_record, &stack);
+		}
+		secondary.rpb_page = primary.rpb_b_page;
+		secondary.rpb_line = primary.rpb_b_line;
+		secondary.rpb_prior = primary.rpb_prior;
+		while (secondary.rpb_page) {
+			if (!DPM_fetch(tdbb, &secondary, LCK_read))
+				break;			/* must be garbage collected */
+			secondary.rpb_record = NULL;
+			VIO_data(tdbb, &secondary,
+					 reinterpret_cast < BLK > (tdbb->tdbb_default));
+			LLS_PUSH(secondary.rpb_record, &stack);
+			secondary.rpb_page = secondary.rpb_b_page;
+			secondary.rpb_line = secondary.rpb_b_line;
+		}
+
+		while (stack) {
+			record = (REC) LLS_POP(&stack);
+
+			/* If foreign key index is being defined, make sure foreign
+			   key definition will not be violated */
+
+			if (idx->idx_flags & idx_foreign) {
+				/* find out if there is a null segment by faking uniqueness --
+				   if there is one, don't bother to check the primary key */
+
+				if (!(idx->idx_flags & idx_unique)) {
+					idx->idx_flags |= idx_unique;
+					result = BTR_key(tdbb, relation, record, idx, &key);
+					idx->idx_flags &= ~idx_unique;
+				}
+				if (result == idx_e_nullunique)
+					result = idx_e_ok;
+				else
+					result =
+						check_partner_index(tdbb, relation, record,
+											transaction, idx,
+											partner_relation,
+											partner_index_id);
+			}
+
+			if (result != idx_e_ok ||
+				BTR_key(tdbb, relation, record, idx,
+						&key) == idx_e_nullunique) {
+				do {
+					if (record != gc_record)
+						ALL_release(reinterpret_cast < frb * >(record));
+				} while (stack && (record = (REC) LLS_POP(&stack)));
+				SORT_fini(sort_handle, tdbb->tdbb_attachment);
+				gc_record->rec_flags &= ~REC_gc_active;
+				if (primary.rpb_window.win_flags & WIN_large_scan)
+					--relation->rel_scan_count;
+				if (result != idx_e_ok)
+					ERR_duplicate_error(result, partner_relation,
+										partner_index_id);
+				else
+					ERR_post(gds__no_dup, gds_arg_string,
+							 ERR_cstring(reinterpret_cast <
+										 char *>(index_name)), gds_arg_gds,
+							 gds__nullsegkey, 0);
+			}
+
+#ifdef IGNORE_NULL_IDX_KEY
+			/* Offset BOOLEAN in the beginning of the sort record key */
+			if (key.key_length > (key_length - sizeof(SORTP)))
+#else
+			if (key.key_length > key_length)
+#endif /* IGNORE_NULL_IDX_KEY */
+			{
+				do {
+					if (record != gc_record)
+						ALL_release(reinterpret_cast < frb * >(record));
+				} while (stack && (record = (REC) LLS_POP(&stack)));
+				SORT_fini(sort_handle, tdbb->tdbb_attachment);
+				gc_record->rec_flags &= ~REC_gc_active;
+				if (primary.rpb_window.win_flags & WIN_large_scan)
+					--relation->rel_scan_count;
+				BUGCHECK(174);	/* msg 174 index key too big */
+			}
+			if (SORT_put
+				(tdbb->tdbb_status_vector, sort_handle,
+				 reinterpret_cast < ULONG ** >(&p))) {
+				do {
+					if (record != gc_record)
+						ALL_release(reinterpret_cast < frb * >(record));
+				} while (stack && (record = (REC) LLS_POP(&stack)));
+				SORT_fini(sort_handle, tdbb->tdbb_attachment);
+				gc_record->rec_flags &= ~REC_gc_active;
+				if (primary.rpb_window.win_flags & WIN_large_scan)
+					--relation->rel_scan_count;
+				ERR_punt();
+			}
+
+			/* try to catch duplicates early */
+
+			if ((idx->idx_flags & idx_unique) && ifl_data.ifl_duplicates) {
+				do {
+					if (record != gc_record)
+						ALL_release(reinterpret_cast < frb * >(record));
+				} while (stack && (record = (REC) LLS_POP(&stack)));
+				SORT_fini(sort_handle, tdbb->tdbb_attachment);
+				gc_record->rec_flags &= ~REC_gc_active;
+				if (primary.rpb_window.win_flags & WIN_large_scan)
+					--relation->rel_scan_count;
+				ERR_post(gds__no_dup, gds_arg_string,
+						 ERR_cstring(reinterpret_cast < char *>(index_name)),
+						 0);
+			}
+
+#ifdef IGNORE_NULL_IDX_KEY
+			/* Initialize first longword of sort record key for NULL/non-NULL 
+			 * values. When sorting and merge runs happen later, this BOOLEAN
+			 * valued longword will be used to order NULL valued records high */
+			if (key.key_flags & KEY_first_segment_is_null)
+				*((SORTP *) p) = SORTP_VAL_IS_NULL;
+			else
+				*((SORTP *) p) = SORTP_VAL_IS_NOT_NULL;
+			p += sizeof(SORTP);
+#endif /* IGNORE_NULL_IDX_KEY */
+
+			l = key.key_length;
+			q = key.key_data;
+
+			assert(l > 0);
+
+			do
+				*p++ = *q++;
+			while (--l);
+#ifdef IGNORE_NULL_IDX_KEY
+			/* Offset BOOLEAN in the beginning of the sort record key */
+			if (l = key_length - key.key_length - sizeof(SORTP))
+#else
+			if (l = key_length - key.key_length)
+#endif /* IGNORE_NULL_IDX_KEY */
+				do
+					*p++ = pad;
+				while (--l);
+			isr = (ISR) p;
+			isr->isr_key_length = key.key_length;
+			isr->isr_record_number = primary.rpb_number;
+			isr->isr_flags = (stack) ? ISR_secondary : 0;
+			if (record != gc_record)
+				ALL_release(reinterpret_cast < frb * >(record));
+		}
+
+#ifdef MULTI_THREAD
+		if (--tdbb->tdbb_quantum < 0 && !tdbb->tdbb_inhibit)
+			cancel = JRD_reschedule(tdbb, 0, FALSE);
+#endif
+	}
+
+	gc_record->rec_flags &= ~REC_gc_active;
+	if (primary.rpb_window.win_flags & WIN_large_scan)
+		--relation->rel_scan_count;
+
+	if (cancel || SORT_sort(tdbb->tdbb_status_vector, sort_handle)) {
+		SORT_fini(sort_handle, tdbb->tdbb_attachment);
+		ERR_punt();
+	}
+
+	if ((idx->idx_flags & idx_unique) && ifl_data.ifl_duplicates) {
+		SORT_fini(sort_handle, tdbb->tdbb_attachment);
+		ERR_post(gds__no_dup, gds_arg_string,
+				 ERR_cstring(reinterpret_cast < char *>(index_name)), 0);
+	}
+
+	BTR_create(tdbb, relation, idx, key_length, sort_handle, selectivity);
+
+	if ((idx->idx_flags & idx_unique) && ifl_data.ifl_duplicates) {
+		SORT_fini(sort_handle, tdbb->tdbb_attachment);
+		ERR_post(gds__no_dup, gds_arg_string,
+				 ERR_cstring(reinterpret_cast < char *>(index_name)), 0);
+	}
+}
+
+
+IDB IDX_create_index_block(TDBB tdbb, REL relation, UCHAR id)
+{
+/**************************************
+ *
+ *	I D X _ c r e a t e _ i n d e x _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an index block and an associated
+ *	lock block for the specified index.
+ *
+ **************************************/
+	DBB dbb;
+	IDB index_block;
+	LCK lock;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	index_block = (IDB) ALLOCP(type_idb);
+	index_block->idb_id = id;
+
+/* link the block in with the relation linked list */
+
+	index_block->idb_next = relation->rel_index_blocks;
+	relation->rel_index_blocks = index_block;
+
+/* create a shared lock for the index, to coordinate
+   any modification to the index so that the cached information
+   about the index will be discarded */
+
+	index_block->idb_lock = lock = (LCK) ALLOCPV(type_lck, 0);
+	lock->lck_parent = dbb->dbb_lock;
+	lock->lck_dbb = dbb;
+	lock->lck_key.lck_long = index_block->idb_id;
+	lock->lck_length = sizeof(lock->lck_key.lck_long);
+	lock->lck_type = LCK_expression;
+	lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+	lock->lck_ast = reinterpret_cast < int (*) () > (index_block_flush);
+	lock->lck_object = (BLK) index_block;
+
+	return index_block;
+}
+
+
+void IDX_delete_index(TDBB tdbb, REL relation, USHORT id)
+{
+/**************************************
+ *
+ *	I D X _ d e l e t e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a single index.
+ *
+ **************************************/
+	WIN window;
+
+	SET_TDBB(tdbb);
+
+	signal_index_deletion(tdbb, relation, id);
+
+	window.win_page = relation->rel_index_root;
+	window.win_flags = 0;
+	CCH_FETCH(tdbb, &window, LCK_write, pag_root);
+
+	BTR_delete_index(tdbb, &window, id);
+}
+
+
+void IDX_delete_indices(TDBB tdbb, REL relation)
+{
+/**************************************
+ *
+ *	I D X _ d e l e t e _ i n d i c e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete all known indices in preparation for deleting a
+ *	complete relation.
+ *
+ **************************************/
+	WIN window;
+	IRT root;
+	SSHORT i;
+
+	SET_TDBB(tdbb);
+
+	window.win_page = relation->rel_index_root;
+	window.win_flags = 0;
+	root = (IRT) CCH_FETCH(tdbb, &window, LCK_write, pag_root);
+
+	for (i = 0; i < root->irt_count; i++) {
+		BTR_delete_index(tdbb, &window, i);
+		root = (IRT) CCH_FETCH(tdbb, &window, LCK_write, pag_root);
+	}
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+IDX_E IDX_erase(TDBB tdbb,
+				RPB * rpb,
+				TRA transaction, REL * bad_relation, USHORT * bad_index)
+{
+/**************************************
+ *
+ *	I D X _ e r a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check the various indices prior to an ERASE operation.
+ *	If one is a primary key, check its partner for 
+ *	a duplicate record.
+ *
+ **************************************/
+	WIN window;
+	IDX idx;
+	IDX_E error_code;
+
+	SET_TDBB(tdbb);
+
+	error_code = idx_e_ok;
+	idx.idx_id = (UCHAR) - 1;
+	window.win_flags = 0;
+
+	while (BTR_next_index
+		   (tdbb, rpb->rpb_relation, transaction, &idx,
+			&window)) if (idx.idx_flags & (idx_primary | idx_unique)) {
+			error_code =
+				check_foreign_key(tdbb, rpb->rpb_record, rpb->rpb_relation,
+								  transaction, &idx, bad_relation, bad_index);
+			if (idx_e_ok != error_code) {
+				CCH_RELEASE(tdbb, &window);
+				break;
+			}
+		}
+
+	return error_code;
+}
+
+
+void IDX_garbage_collect(TDBB tdbb, RPB * rpb, LLS going, LLS staying)
+{
+/**************************************
+ *
+ *	I D X _ g a r b a g e _ c o l l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform garbage collection for a bunch of records.  Scan
+ *	through the indices defined for a relation.  Garbage collect
+ *	each.
+ *
+ **************************************/
+	LLS stack1, stack2;
+	REC rec1, rec2;
+	IIB insertion;
+	IDX idx;
+	KEY key1, key2;
+	WIN window;
+	IRT root;
+	USHORT i;
+
+	SET_TDBB(tdbb);
+
+	insertion.iib_descriptor = &idx;
+	insertion.iib_number = rpb->rpb_number;
+	insertion.iib_relation = rpb->rpb_relation;
+	insertion.iib_key = &key1;
+
+	window.win_page = rpb->rpb_relation->rel_index_root;
+	window.win_flags = 0;
+	root = (IRT) CCH_FETCH(tdbb, &window, LCK_read, pag_root);
+
+	for (i = 0; i < root->irt_count; i++)
+		if (BTR_description(rpb->rpb_relation, root, &idx, i)) {
+			for (stack1 = going; stack1; stack1 = stack1->lls_next) {
+				rec1 = (REC) stack1->lls_object;
+				BTR_key(tdbb, rpb->rpb_relation, rec1, &idx, &key1);
+
+				/* Make sure the index doesn't exist in any record remaining */
+
+				for (stack2 = staying; stack2; stack2 = stack2->lls_next) {
+					rec2 = (REC) stack2->lls_object;
+					BTR_key(tdbb, rpb->rpb_relation, rec2, &idx, &key2);
+					if (key_equal(&key1, &key2))
+						break;
+				}
+				if (stack2)
+					continue;
+
+				/* Get rid of index node */
+
+				BTR_remove(tdbb, &window, &insertion);
+				root = (IRT) CCH_FETCH(tdbb, &window, LCK_read, pag_root);
+				if (stack1->lls_next)
+					BTR_description(rpb->rpb_relation, root, &idx, i);
+			}
+		}
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+IDX_E IDX_modify(TDBB tdbb,
+				 RPB * org_rpb,
+				 RPB * new_rpb,
+				 TRA transaction, REL * bad_relation, USHORT * bad_index)
+{
+/**************************************
+ *
+ *	I D X _ m o d i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update the various indices after a MODIFY operation.  If a duplicate
+ *	index is violated, return the index number.  If successful, return
+ *	-1.
+ *
+ **************************************/
+	WIN window;
+	IDX idx;
+	IIB insertion;
+	KEY key1, key2;
+	IDX_E error_code;
+
+	SET_TDBB(tdbb);
+
+	insertion.iib_relation = org_rpb->rpb_relation;
+	insertion.iib_number = org_rpb->rpb_number;
+	insertion.iib_key = &key1;
+	insertion.iib_descriptor = &idx;
+	insertion.iib_transaction = transaction;
+	error_code = idx_e_ok;
+	idx.idx_id = (UCHAR) - 1;
+	window.win_flags = 0;
+
+	while (BTR_next_index
+		   (tdbb, org_rpb->rpb_relation, transaction, &idx, &window)) {
+		*bad_index = idx.idx_id;
+		*bad_relation = new_rpb->rpb_relation;
+		if (error_code =
+			BTR_key(tdbb, new_rpb->rpb_relation, new_rpb->rpb_record, &idx,
+					&key1)) {
+			CCH_RELEASE(tdbb, &window);
+			break;
+		}
+		BTR_key(tdbb, org_rpb->rpb_relation, org_rpb->rpb_record, &idx,
+				&key2);
+		if (!key_equal(&key1, &key2)) {
+			if (error_code =
+				insert_key(tdbb, new_rpb->rpb_relation, new_rpb->rpb_record,
+						   transaction, &window, &insertion, bad_relation,
+						   bad_index)) return error_code;
+		}
+	}
+
+	return error_code;
+}
+
+
+IDX_E IDX_modify_check_constraints(TDBB tdbb,
+								   RPB * org_rpb,
+								   RPB * new_rpb,
+								   TRA transaction,
+								   REL * bad_relation, USHORT * bad_index)
+{
+/**************************************
+ *
+ *	I D X _ m o d i f y _ c h e c k _ c o n s t r a i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for foreign key constraint after a modify statement
+ *
+ **************************************/
+	WIN window;
+	IDX idx;
+	KEY key1, key2;
+	IDX_E error_code;
+
+	SET_TDBB(tdbb);
+
+	error_code = idx_e_ok;
+	idx.idx_id = (UCHAR) - 1;
+	window.win_flags = 0;
+
+/* If relation's primary/unique keys have no dependencies by other
+   relations' foreign keys then don't bother cycling thru all index
+   descriptions. */
+
+	if (!(org_rpb->rpb_relation->rel_flags & REL_check_partners) &&
+		!(org_rpb->rpb_relation->rel_primary_dpnds.prim_reference_ids))
+			return error_code;
+
+/* Now check all the foreign key constraints. Referential integrity relation
+   could be established by primary key/foreign key or unique key/foreign key */
+
+	while (BTR_next_index
+		   (tdbb, org_rpb->rpb_relation, transaction, &idx, &window)) {
+		if (!(idx.idx_flags & (idx_primary | idx_unique))
+			|| !MET_lookup_partner(tdbb, org_rpb->rpb_relation, &idx,
+								   reinterpret_cast < UCHAR * >(const_cast <
+																SCHAR *
+																>
+																(&NULL_STR))))
+				continue;
+		*bad_index = idx.idx_id;
+		*bad_relation = new_rpb->rpb_relation;
+		if (
+			(error_code =
+			 BTR_key(tdbb, new_rpb->rpb_relation, new_rpb->rpb_record, &idx,
+					 &key1))
+			|| (error_code =
+				BTR_key(tdbb, org_rpb->rpb_relation, org_rpb->rpb_record,
+						&idx, &key2))) {
+			CCH_RELEASE(tdbb, &window);
+			break;
+		}
+		if (!key_equal(&key1, &key2)) {
+			error_code =
+				check_foreign_key(tdbb, org_rpb->rpb_record,
+								  org_rpb->rpb_relation, transaction, &idx,
+								  bad_relation, bad_index);
+			if (idx_e_ok != error_code) {
+				CCH_RELEASE(tdbb, &window);
+				return error_code;
+			}
+		}
+	}
+
+	return error_code;
+}
+
+
+float IDX_statistics(TDBB tdbb, REL relation, USHORT id)
+{
+/**************************************
+ *
+ *	I D X _ s t a t i s t i c s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Scan index pages recomputing
+ *	selectivity.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	return BTR_selectivity(tdbb, relation, id);
+}
+
+
+IDX_E IDX_store(TDBB tdbb,
+				RPB * rpb,
+				TRA transaction, REL * bad_relation, USHORT * bad_index)
+{
+/**************************************
+ *
+ *	I D X _ s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update the various indices after a STORE operation.  If a duplicate
+ *	index is violated, return the index number.  If successful, return
+ *	-1.
+ *
+ **************************************/
+	WIN window;
+	IDX idx;
+	IIB insertion;
+	KEY key;
+	IDX_E error_code;
+
+	SET_TDBB(tdbb);
+
+	insertion.iib_relation = rpb->rpb_relation;
+	insertion.iib_number = rpb->rpb_number;
+	insertion.iib_key = &key;
+	insertion.iib_descriptor = &idx;
+	insertion.iib_transaction = transaction;
+
+	error_code = idx_e_ok;
+	idx.idx_id = (UCHAR) - 1;
+	window.win_flags = 0;
+
+	while (BTR_next_index
+		   (tdbb, rpb->rpb_relation, transaction, &idx, &window)) {
+		*bad_index = idx.idx_id;
+		*bad_relation = rpb->rpb_relation;
+		if (error_code =
+			BTR_key(tdbb, rpb->rpb_relation, rpb->rpb_record, &idx, &key)) {
+			CCH_RELEASE(tdbb, &window);
+			break;
+		}
+		if (error_code =
+			insert_key(tdbb, rpb->rpb_relation, rpb->rpb_record, transaction,
+					   &window, &insertion, bad_relation, bad_index))
+			return error_code;
+	}
+
+	return error_code;
+}
+
+
+static IDX_E check_duplicates(
+							  TDBB tdbb,
+							  REC record,
+							  IDX * record_idx,
+							  IIB * insertion, REL relation_2)
+{
+/**************************************
+ *
+ *	c h e c k _ d u p l i c a t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make sure there aren't any active duplicates for
+ *	a unique index or a foreign key.
+ *
+ **************************************/
+	IDX_E result;
+	RPB rpb;
+	IDX *insertion_idx;
+	DSC desc1, desc2;
+	USHORT field_id, flag, i, flag_2;
+	REL relation_1;
+
+	SET_TDBB(tdbb);
+
+	result = idx_e_ok;
+	insertion_idx = insertion->iib_descriptor;
+
+	rpb.rpb_number = -1;
+	rpb.rpb_relation = insertion->iib_relation;
+	rpb.rpb_record = NULL;
+	rpb.rpb_window.win_flags = 0;
+	relation_1 = insertion->iib_relation;
+
+	while (SBM_next
+		   (insertion->iib_duplicates, &rpb.rpb_number, RSE_get_forward)) {
+		if (rpb.rpb_number != insertion->iib_number
+			&& VIO_get_current(tdbb, &rpb, insertion->iib_transaction,
+							   reinterpret_cast < BLK > (tdbb->tdbb_default),
+							   record_idx->idx_flags & idx_foreign)) {
+			if (rpb.rpb_flags & rpb_deleted) {
+				result = idx_e_duplicate;
+				break;
+			}
+
+			/* check the values of the fields in the record being inserted with the 
+			   record retrieved -- for unique indexes the insertion index and the 
+			   record index are the same, but for foreign keys they are different */
+
+			for (i = 0; i < insertion_idx->idx_count; i++) {
+				field_id = insertion_idx->idx_rpt[i].idx_field;
+				/* In order to "map a null to a default" value (in EVL_field()), 
+				 * the relation block is referenced. 
+				 * Reference: Bug 10116, 10424 
+				 */
+				flag =
+					EVL_field(relation_1, rpb.rpb_record, field_id, &desc1);
+
+				field_id = record_idx->idx_rpt[i].idx_field;
+				flag_2 = EVL_field(relation_2, record, field_id, &desc2);
+
+				if (flag != flag_2 || MOV_compare(&desc1, &desc2) != 0)
+					break;
+			}
+
+			if (i >= insertion_idx->idx_count) {
+				result = idx_e_duplicate;
+				break;
+			}
+		}
+	}
+
+	if (rpb.rpb_record)
+		ALL_release(reinterpret_cast < frb * >(rpb.rpb_record));
+
+	return result;
+}
+
+
+static IDX_E check_foreign_key(
+							   TDBB tdbb,
+							   REC record,
+							   REL relation,
+							   TRA transaction,
+							   IDX * idx,
+REL * bad_relation, USHORT * bad_index)
+{
+/**************************************
+ *
+ *	c h e c k _ f o r e i g n _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	The passed index participates in a foreign key.
+ *	Check the passed record to see if a corresponding 
+ *	record appears in the partner index.
+ *
+ **************************************/
+	IDX_E result;
+	int index_number;
+	REL partner_relation;
+	USHORT index_id;
+
+	SET_TDBB(tdbb);
+
+	result = idx_e_ok;
+
+	if (!MET_lookup_partner
+		(tdbb, relation, idx,
+		 reinterpret_cast < UCHAR * >(const_cast < SCHAR * >(&NULL_STR))))
+		return result;
+
+	if (idx->idx_flags & idx_foreign) {
+		partner_relation = MET_relation(tdbb, idx->idx_primary_relation);
+		index_id = (USHORT) idx->idx_primary_index;
+		result =
+			check_partner_index(tdbb, relation, record, transaction, idx,
+								partner_relation, index_id);
+	}
+	else if (idx->idx_flags & (idx_primary | idx_unique))
+		for (index_number = 0;
+			 index_number < idx->idx_foreign_primaries->vec_count;
+			 index_number++) {
+			if (idx->idx_id !=
+				(UCHAR) idx->
+				idx_foreign_primaries->vec_object[index_number]) continue;
+			partner_relation =
+				MET_relation(tdbb,
+							 (int) idx->
+							 idx_foreign_relations->vec_object[index_number]);
+			index_id =
+				(USHORT) idx->idx_foreign_indexes->vec_object[index_number];
+			if (result =
+				check_partner_index(tdbb, relation, record, transaction, idx,
+									partner_relation, index_id))
+				break;
+		}
+
+	if (result) {
+		if (idx->idx_flags & idx_foreign) {
+			*bad_relation = relation;
+			*bad_index = idx->idx_id;
+		}
+		else {
+			*bad_relation = partner_relation;
+			*bad_index = index_id;
+		}
+	}
+
+	return result;
+}
+
+
+static IDX_E check_partner_index(
+								 TDBB tdbb,
+								 REL relation,
+								 REC record,
+								 TRA transaction,
+								 IDX * idx,
+REL partner_relation, SSHORT index_id)
+{
+/**************************************
+ *
+ *	c h e c k _ p a r t n e r _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	The passed index participates in a foreign key.
+ *	Check the passed record to see if a corresponding 
+ *	record appears in the partner index.
+ *
+ **************************************/
+	IDX_E result;
+	WIN window;
+	IRT root;
+	IDX partner_idx;
+	IIB insertion;
+	KEY key;
+	SBM bitmap;
+	struct irb retrieval;
+
+	SET_TDBB(tdbb);
+
+	result = idx_e_ok;
+
+/* get the index root page for the partner relation */
+
+	window.win_page = get_root_page(tdbb, partner_relation);
+	window.win_flags = 0;
+	root = (IRT) CCH_FETCH(tdbb, &window, LCK_read, pag_root);
+
+/* get the description of the partner index */
+
+	if (!BTR_description(partner_relation, root, &partner_idx, index_id))
+		BUGCHECK(175);			/* msg 175 partner index description not found */
+
+/* get the key in the original index */
+
+	result = BTR_key(tdbb, relation, record, idx, &key);
+	CCH_RELEASE(tdbb, &window);
+
+/* now check for current duplicates */
+
+	if (result == idx_e_ok) {
+		/* fill out a retrieval block for the purpose of 
+		   generating a bitmap of duplicate records  */
+
+		bitmap = NULL;
+		MOVE_CLEAR(&retrieval, sizeof(struct irb));
+		retrieval.irb_header.blk_type = type_irb;
+		retrieval.irb_index = partner_idx.idx_id;
+		MOVE_FAST(&partner_idx, &retrieval.irb_desc,
+				  sizeof(retrieval.irb_desc));
+		retrieval.irb_generic = irb_equality;
+		retrieval.irb_relation = partner_relation;
+		retrieval.irb_key = &key;
+		retrieval.irb_upper_count = idx->idx_count;
+		retrieval.irb_lower_count = idx->idx_count;
+		BTR_evaluate(tdbb, &retrieval, &bitmap);
+
+		/* if there is a bitmap, it means duplicates were found */
+
+		if (bitmap) {
+			insertion.iib_descriptor = &partner_idx;
+			insertion.iib_relation = partner_relation;
+			insertion.iib_number = -1;
+			insertion.iib_duplicates = bitmap;
+			insertion.iib_transaction = transaction;
+			result =
+				check_duplicates(tdbb, record, idx, &insertion, relation);
+			if (idx->idx_flags & (idx_primary | idx_unique))
+				result = result ? idx_e_foreign : idx_e_ok;
+			if (idx->idx_flags & idx_foreign)
+				result = result ? idx_e_ok : idx_e_foreign;
+			SBM_release(bitmap);
+		}
+		else if (idx->idx_flags & idx_foreign)
+			result = idx_e_foreign;
+	}
+
+	return result;
+}
+
+
+
+static BOOLEAN duplicate_key(UCHAR * record1, UCHAR * record2, IFL ifl_data)
+{
+/**************************************
+ *
+ *	d u p l i c a t e _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Callback routine for duplicate keys during index creation.  Just
+ *	bump a counter.
+ *
+ **************************************/
+	ISR rec1, rec2;
+
+	rec1 = (ISR) (record1 + ifl_data->ifl_key_length);
+	rec2 = (ISR) (record2 + ifl_data->ifl_key_length);
+
+	if (!(rec1->isr_flags & ISR_secondary) &&
+		!(rec2->isr_flags & ISR_secondary)) ++ifl_data->ifl_duplicates;
+
+	return FALSE;
+}
+
+
+static SLONG get_root_page(TDBB tdbb, REL relation)
+{
+/**************************************
+ *
+ *	g e t _ r o o t _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the root page for a relation.
+ *
+ **************************************/
+	SLONG page;
+
+	SET_TDBB(tdbb);
+
+	if (!(page = relation->rel_index_root)) {
+		DPM_scan_pages(tdbb);
+		page = relation->rel_index_root;
+	}
+
+	return page;
+}
+
+
+static void index_block_flush(IDB index_block)
+{
+/**************************************
+ *
+ *	i n d e x _ b l o c k _ f l u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	An exclusive lock has been requested on the
+ *	index block.  The information in the cached
+ *	index block is no longer valid, so clear it 
+ *	out and release the lock.
+ *
+ **************************************/
+	LCK lock;
+	struct tdbb thd_context, *tdbb;
+
+/* Since this routine will be called asynchronously, we must establish
+   a thread context. */
+
+	SET_THREAD_DATA;
+
+	lock = index_block->idb_lock;
+
+	if (lock->lck_attachment)
+		tdbb->tdbb_database = lock->lck_attachment->att_database;
+	tdbb->tdbb_attachment = lock->lck_attachment;
+	tdbb->tdbb_quantum = QUANTUM;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+
+/* release the index expression request, which also has
+   the effect of releasing the expression tree */
+
+	if (index_block->idb_expression_request)
+		CMP_release(tdbb, index_block->idb_expression_request);
+
+	index_block->idb_expression_request = NULL;
+	index_block->idb_expression = NULL;
+	MOVE_CLEAR(&index_block->idb_expression_desc, sizeof(struct dsc));
+
+	LCK_release(tdbb, lock);
+
+/* Restore the prior thread context */
+
+	RESTORE_THREAD_DATA;
+}
+
+
+static IDX_E insert_key(
+						TDBB tdbb,
+						REL relation,
+						REC record,
+						TRA transaction,
+						WIN * window_ptr,
+IIB * insertion, REL * bad_relation, USHORT * bad_index)
+{
+/**************************************
+ *
+ *	i n s e r t _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a key in the index.  
+ *	If this is a unique index, check for active duplicates.  
+ *	If this is a foreign key, check for duplicates in the
+ *	primary key index.
+ *
+ **************************************/
+	IDX_E result;
+	IDX *idx;
+	KEY key;
+
+	SET_TDBB(tdbb);
+
+	result = idx_e_ok;
+	idx = insertion->iib_descriptor;
+
+/* Insert the key into the index.  If the index is unique, BTR
+   will keep track of duplicates. */
+
+	insertion->iib_duplicates = NULL;
+	BTR_insert(tdbb, window_ptr, insertion);
+
+	if (insertion->iib_duplicates) {
+		result = check_duplicates(tdbb, record, idx, insertion, NULL);
+		SBM_release(insertion->iib_duplicates);
+	}
+
+	if (result != idx_e_ok)
+		return result;
+
+/* if we are dealing with a foreign key index, 
+   check for an insert into the corresponding 
+   primary key index */
+
+	if (idx->idx_flags & idx_foreign) {
+		/* find out if there is a null segment by faking uniqueness --
+		   if there is one, don't bother to check the primary key */
+
+		idx->idx_flags |= idx_unique;
+		CCH_FETCH(tdbb, window_ptr, LCK_read, pag_root);
+		result = BTR_key(tdbb, relation, record, idx, &key);
+		CCH_RELEASE(tdbb, window_ptr);
+		idx->idx_flags &= ~idx_unique;
+		if (result == idx_e_nullunique)
+			return idx_e_ok;
+
+		result =
+			check_foreign_key(tdbb, record, insertion->iib_relation,
+							  transaction, idx, bad_relation, bad_index);
+	}
+
+	return result;
+}
+
+
+static BOOLEAN key_equal(KEY * key1, KEY * key2)
+{
+/**************************************
+ *
+ *	k e y _ e q u a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two keys for equality.
+ *
+ **************************************/
+	SSHORT l;
+	UCHAR *p, *q;
+
+	if ((l = key1->key_length) != key2->key_length)
+		return FALSE;
+
+	p = key1->key_data;
+	q = key2->key_data;
+
+	if (l)
+		do
+			if (*p++ != *q++)
+				return FALSE;
+		while (--l);
+
+	return TRUE;
+}
+
+
+static void signal_index_deletion(TDBB tdbb, REL relation, USHORT id)
+{
+/**************************************
+ *
+ *	s i g n a l _ i n d e x _ d e l e t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	On delete of an index, force all 
+ *	processes to get rid of index info.
+ *
+ **************************************/
+	IDB index_block;
+	LCK lock = NULL;
+
+	SET_TDBB(tdbb);
+
+/* get an exclusive lock on the associated index
+   block (if it exists) to make sure that all other
+   processes flush their cached information about
+   this index */
+
+	for (index_block = relation->rel_index_blocks; index_block;
+		 index_block = index_block->idb_next) if (index_block->idb_id == id) {
+			lock = index_block->idb_lock;
+			break;
+		}
+
+/* if one didn't exist, create it */
+
+	if (!index_block) {
+		index_block = IDX_create_index_block(tdbb, relation, id);
+		lock = index_block->idb_lock;
+	}
+
+/* signal other processes to clear out the index block */
+
+	if (lock->lck_physical == LCK_SR)
+		LCK_convert_non_blocking(tdbb, lock, LCK_EX, TRUE);
+	else
+		LCK_lock_non_blocking(tdbb, lock, LCK_EX, TRUE);
+
+/* and clear out our index block as well */
+
+	index_block_flush(index_block);
+}
+
+} // extern "C"
diff --git a/src/jrd/idx.h b/src/jrd/idx.h
new file mode 100644
index 0000000000..dd8a8cfbec
--- /dev/null
+++ b/src/jrd/idx.h
@@ -0,0 +1,340 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		idx
+ *	DESCRIPTION:	Declarations for index initialization
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_IDX_H_
+#define _JRD_IDX_H_
+
+
+
+
+/* Indices to be created */
+
+/* Maxinum number of segments in any existing system index */
+#define INI_IDX_MAX_SEGMENTS	2
+
+struct ini_idx_t {
+	UCHAR ini_idx_index_id;
+	UCHAR ini_idx_version_flag;
+	UCHAR ini_idx_relid;
+	UCHAR ini_idx_unique_flag;
+	UCHAR ini_idx_segment_count;
+	struct ini_idx_segment_t {
+		UCHAR ini_idx_rfld_id;
+		UCHAR ini_idx_type;
+	} ini_idx_segment[INI_IDX_MAX_SEGMENTS];
+};
+
+/* Encoded descriptions of system indices */
+
+#define INDEX(id,flag,rel,unique,count) {(id),(flag),(UCHAR) (rel),(unique),(count),{
+#define SEGMENT(fld,type)		 {(fld),(type)}
+
+
+static CONST struct ini_idx_t indices[] = {
+
+/*
+define index RDB$INDEX_0 for RDB$RELATIONS unique
+	RDB$RELATION_NAME;
+*/
+	INDEX(0, ODS_8_0, rel_relations, idx_unique, 1)
+		SEGMENT(f_rel_name, idx_metadata)	/* relation name */
+}},
+/*
+define index RDB$INDEX_1 for RDB$RELATIONS 
+	RDB$RELATION_ID;
+*/
+INDEX(1, ODS_8_0, rel_relations, 0, 1) SEGMENT(f_rel_id, idx_numeric)	/* relation id */
+}},
+/*
+define index RDB$INDEX_2 for RDB$FIELDS unique
+	RDB$FIELD_NAME;
+*/
+INDEX(2, ODS_8_0, rel_fields, idx_unique, 1) SEGMENT(f_fld_name, idx_metadata)	/* field name */
+}},
+/*
+define index RDB$INDEX_3 for RDB$RELATION_FIELDS 
+	RDB$FIELD_SOURCE;
+*/
+INDEX(3, ODS_8_0, rel_rfr, 0, 1) SEGMENT(f_rfr_sname, idx_metadata)	/* field source name */
+}},
+/*
+define index RDB$INDEX_4 for RDB$RELATION_FIELDS 
+	RDB$RELATION_NAME;
+*/
+INDEX(4, ODS_8_0, rel_rfr, 0, 1) SEGMENT(f_rfr_rname, idx_metadata)	/* relation name in RFR */
+}},
+/*
+define index RDB$INDEX_5 for RDB$INDICES unique
+	RDB$INDEX_NAME;
+*/
+INDEX(5, ODS_8_0, rel_indices, idx_unique, 1) SEGMENT(f_idx_name, idx_metadata)	/* index name */
+}},
+/*
+define index RDB$INDEX_6 for RDB$INDEX_SEGMENTS 
+	RDB$INDEX_NAME;
+*/
+INDEX(6, ODS_8_0, rel_segments, 0, 1) SEGMENT(f_seg_name, idx_metadata)	/* index name in seg */
+}},
+/*
+define index RDB$INDEX_7 for RDB$SECURITY_CLASSES unique
+	RDB$SECURITY_CLASS;
+*/
+INDEX(7, ODS_8_0, rel_classes, idx_unique, 1) SEGMENT(f_cls_class, idx_metadata)	/* security class */
+}},
+/*
+define index RDB$INDEX_8 for RDB$TRIGGERS unique
+	RDB$TRIGGER_NAME;
+*/
+INDEX(8, ODS_8_0, rel_triggers, idx_unique, 1) SEGMENT(f_trg_name, idx_metadata)	/* trigger name */
+}},
+/*
+define index RDB$INDEX_9 for RDB$FUNCTIONS unique
+	RDB$FUNCTION_NAME;
+*/
+INDEX(9, ODS_8_0, rel_funs, idx_unique, 1) SEGMENT(f_fun_name, idx_metadata)	/* function name */
+}},
+/*
+define index RDB$INDEX_10 for RDB$FUNCTION_ARGUMENTS 
+	RDB$FUNCTION_NAME;
+*/
+INDEX(10, ODS_8_0, rel_args, 0, 1) SEGMENT(f_arg_fun_name, idx_metadata)	/* function name */
+}},
+/*
+define index RDB$INDEX_11 for RDB$GENERATORS unique
+	RDB$GENERATOR_NAME;
+*/
+INDEX(11, ODS_8_0, rel_gens, idx_unique, 1) SEGMENT(f_gen_name, idx_metadata)	/* Generator name */
+}},
+/*
+define index RDB$INDEX_12 for RDB$RELATION_CONSTRAINTS unique
+	RDB$CONSTRAINT_NAME;
+*/
+INDEX(12, ODS_8_0, rel_rcon, idx_unique, 1) SEGMENT(f_rcon_cname, idx_metadata)	/* constraint name */
+}},
+/*
+define index RDB$INDEX_13 for RDB$REF_CONSTRAINTS unique
+	RDB$CONSTRAINT_NAME;
+*/
+INDEX(13, ODS_8_0, rel_refc, idx_unique, 1) SEGMENT(f_refc_cname, idx_metadata)	/* constraint name */
+}},
+/*
+define index RDB$INDEX_14 for RDB$CHECK_CONSTRAINTS 
+	RDB$CONSTRAINT_NAME;
+*/
+INDEX(14, ODS_8_0, rel_ccon, 0, 1) SEGMENT(f_ccon_cname, idx_metadata)	/* constraint name */
+}},
+/*
+define index RDB$INDEX_15 for RDB$RELATION_FIELDS unique
+	RDB$FIELD_NAME,
+	RDB$RELATION_NAME;
+*/
+INDEX(15, ODS_8_0, rel_rfr, idx_unique, 2) SEGMENT(f_rfr_fname, idx_metadata),	/* field name */
+SEGMENT(f_rfr_rname, idx_metadata)	/* relation name */
+}},
+/*
+define index RDB$INDEX_16 for RDB$FORMATS 
+	RDB$RELATION_ID,
+	RDB$FORMAT;
+*/
+INDEX(16, ODS_8_0, rel_formats, 0, 2) SEGMENT(f_fmt_rid, idx_numeric),	/* relation id */
+SEGMENT(f_fmt_format, idx_numeric)	/* format id */
+}},
+/*
+define index RDB$INDEX_17 for RDB$FILTERS 
+	RDB$INPUT_SUB_TYPE,
+	RDB$OUTPUT_SUB_TYPE;
+*/
+INDEX(17, ODS_8_0, rel_filters, 0, 2) SEGMENT(f_flt_input, idx_numeric),	/* input subtype */
+SEGMENT(f_flt_output, idx_numeric)	/* output subtype */
+}},
+/*
+define index RDB$INDEX_18 for RDB$PROCEDURE_PARAMETERS unique
+	RDB$PROCEDURE_NAME,
+	RDB$PARAMETER_NAME;
+*/
+INDEX(18, ODS_8_0, rel_prc_prms, idx_unique, 2) SEGMENT(f_prm_procedure, idx_metadata),	/* procedure name */
+SEGMENT(f_prm_name, idx_metadata)	/* parameter name */
+}},
+/*
+ * Index on rel_files removed 93-Feb-27 by DaveS.
+ * f_file_name is now 255 bytes, which with roundup creates
+ * an index key which is too large.
+ * Per Deej, this is only necessary to prevent someone creating
+ * a shadow file of the same name as the database file.
+ * Once large indices are implemented this should be reactivated.
+ * 
+ *   INDEX (XX, no_ODS, rel_files, idx_unique, 1)
+ *	SEGMENT (f_file_name, idx_string)
+ *   }},
+ */
+/*
+define index RDB$INDEX_19 for RDB$CHARACTER_SETS unique
+	RDB$CHARACTER_SET_NAME;
+*/
+INDEX(19, ODS_8_0, rel_charsets, idx_unique, 1) SEGMENT(f_cs_cs_name, idx_metadata)	/* character set name */
+}},
+/*
+define index RDB$INDEX_20 for RDB$COLLATIONS unique
+	RDB$COLLATION_NAME;
+*/
+INDEX(20, ODS_8_0, rel_collations, idx_unique, 1) SEGMENT(f_coll_name, idx_metadata)	/* collation name */
+}},
+/*
+define index RDB$INDEX_21 for RDB$PROCEDURES unique
+	RDB$PROCEDURE_NAME;
+*/
+INDEX(21, ODS_8_0, rel_procedures, idx_unique, 1) SEGMENT(f_prc_name, idx_metadata)	/* procedure name */
+}},
+/*
+define index RDB$INDEX_22 for RDB$PROCEDURES 
+	RDB$PROCEDURE_ID;
+*/
+INDEX(22, ODS_8_0, rel_procedures, 0, 1) SEGMENT(f_prc_id, idx_numeric)	/* procedure id */
+}},
+/*
+define index RDB$INDEX_23 for RDB$EXCEPTIONS unique
+	RDB$EXCEPTION_NAME;
+*/
+INDEX(23, ODS_8_0, rel_exceptions, idx_unique, 1) SEGMENT(f_xcp_name, idx_metadata)	/* exception name */
+}},
+/*
+define index RDB$INDEX_24 for RDB$EXCEPTIONS 
+	RDB$EXCEPTION_NUMBER;
+*/
+INDEX(24, ODS_8_0, rel_exceptions, 0, 1) SEGMENT(f_xcp_number, idx_numeric)	/* exception number */
+}},
+/*
+define index RDB$INDEX_25 for RDB$CHARACTER_SETS unique
+	RDB$CHARACTER_SET_ID;
+*/
+INDEX(25, ODS_8_0, rel_charsets, idx_unique, 1) SEGMENT(f_cs_id, idx_numeric)	/* character set id */
+}},
+/*
+define index RDB$INDEX_26 for RDB$COLLATIONS unique
+	RDB$COLLATION_ID,
+	RDB$CHARACTER_SET_ID;
+*/
+INDEX(26, ODS_8_0, rel_collations, idx_unique, 2)
+SEGMENT(f_coll_id, idx_numeric), SEGMENT(f_coll_cs_id, idx_numeric)
+}},
+	/* Last index in ODS 8.0 is RDB$INDEX_26 */
+	/* New indices added as part of ODS 8.1
+	 * These are now indices on all system tables that previously 
+	 * did not have one, except for RDB$PAGES & RDB$LOG_FILES
+	 * An index on rel_pages would help DROP TABLE, but not any other
+	 * operation.
+	 */
+/*
+define index RDB$INDEX_27 for RDB$DEPENDENCIES 
+	RDB$DEPENDENT_NAME;
+*/
+INDEX(27, ODS_8_1, rel_dpds, 0, 1) SEGMENT(f_dpd_name, idx_metadata)	/* dependent name */
+}},
+/*
+define index RDB$INDEX_28 for RDB$DEPENDENCIES 
+	RDB$DEPENDED_ON_NAME;
+*/
+INDEX(28, ODS_8_1, rel_dpds, 0, 1) SEGMENT(f_dpd_o_name, idx_metadata)	/* dependent on name */
+}},
+/*
+define index RDB$INDEX_29 for RDB$USER_PRIVILEGES 
+	RDB$RELATION_NAME;
+*/
+INDEX(29, ODS_8_1, rel_priv, 0, 1) SEGMENT(f_prv_rname, idx_metadata)	/* relation name */
+}},
+/*
+define index RDB$INDEX_30 for RDB$USER_PRIVILEGES 
+	RDB$USER;
+*/
+INDEX(30, ODS_8_1, rel_priv, 0, 1) SEGMENT(f_prv_user, idx_metadata)	/* granted user */
+}},
+/*
+define index RDB$INDEX_31 for RDB$INDICES 
+	RDB$RELATION_NAME;
+*/
+INDEX(31, ODS_8_1, rel_indices, 0, 1) SEGMENT(f_idx_relation, idx_metadata)	/* indexed relation */
+}},
+/*
+define index RDB$INDEX_32 for RDB$TRANSACTIONS unique
+	RDB$TRANSACTION_ID;
+*/
+INDEX(32, ODS_8_1, rel_trans, idx_unique, 1) SEGMENT(f_trn_id, idx_numeric)	/* transaction id */
+}},
+/*
+define index RDB$INDEX_33 for RDB$VIEW_RELATIONS
+	RDB$VIEW_NAME;
+*/
+INDEX(33, ODS_8_1, rel_vrel, 0, 1) SEGMENT(f_vrl_vname, idx_metadata)	/* View name */
+}},
+/*
+define index RDB$INDEX_34 for RDB$VIEW_RELATIONS 
+	RDB$RELATION_NAME;
+*/
+INDEX(34, ODS_8_1, rel_vrel, 0, 1) SEGMENT(f_vrl_rname, idx_metadata)	/* base relation name */
+}},
+/*
+define index RDB$INDEX_35 for RDB$TRIGGER_MESSAGES 
+	RDB$TRIGGER_NAME;
+*/
+INDEX(35, ODS_8_1, rel_msgs, 0, 1) SEGMENT(f_msg_trigger, idx_metadata)	/* trigger name */
+}},
+/*
+define index RDB$INDEX_36 for RDB$FIELD_DIMENSIONS 
+	RDB$FIELD_NAME;
+*/
+INDEX(36, ODS_8_1, rel_dims, 0, 1) SEGMENT(f_dims_fname, idx_metadata)	/* array name */
+}},
+/*
+define index RDB$INDEX_37 for RDB$TYPES 
+	RDB$TYPE_NAME;
+*/
+INDEX(37, ODS_8_1, rel_types, 0, 1) SEGMENT(f_typ_name, idx_metadata)	/* type name */
+}},
+/*
+define index RDB$INDEX_38 for RDB$TRIGGERS 
+	RDB$RELATION_NAME;
+*/
+INDEX(38, ODS_8_1, rel_triggers, 0, 1) SEGMENT(f_trg_rname, idx_metadata)	/* triggered relation */
+}},
+/*
+define index RDB$INDEX_39 for RDB$ROLES unique
+	RDB$ROLE_NAME;
+*/
+INDEX(39, ODS_9_0, rel_roles, idx_unique, 1) SEGMENT(f_rol_name, idx_metadata)	/* role name */
+}},
+	/* Last index in ODS 9.0 is RDB$INDEX_39 */
+	/* New indices added as part of ODS 9.1     
+	 * These are now indices on all system tables that previously 
+	 * did not have one.
+	 */
+/*
+define index RDB$INDEX_40 for RDB$CHECK_CONSTRAINTS 
+	RDB$TRIGGER_NAME;
+*/
+INDEX(40, ODS_9_1, rel_ccon, 0, 1) SEGMENT(f_ccon_tname, idx_metadata)	/* trigger name */
+}}
+	/* Last index in ODS 9.1 is RDB$INDEX_40 */ };
+
+#define SYSTEM_INDEX_COUNT	(sizeof (indices)/sizeof (indices[0]))
+
+#endif /* _JRD_IDX_H_ */
diff --git a/src/jrd/idx_proto.h b/src/jrd/idx_proto.h
new file mode 100644
index 0000000000..56cb08659d
--- /dev/null
+++ b/src/jrd/idx_proto.h
@@ -0,0 +1,59 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		idx_proto.h
+ *	DESCRIPTION:	Prototype header file for idx.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_IDX_PROTO_H_
+#define _JRD_IDX_PROTO_H_
+
+#include "../jrd/btr.h"
+#include "../jrd/exe.h"
+#include "../jrd/req.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void IDX_check_access(TDBB, struct csb *, struct rel *, struct rel *,
+							 struct fld *);
+extern void IDX_create_index(TDBB, struct rel *, struct idx *, UCHAR *,
+							 USHORT *, struct tra *, float *);
+extern struct idb *IDX_create_index_block(TDBB, struct rel *, UCHAR);
+extern void IDX_delete_index(TDBB, struct rel *, USHORT);
+extern void IDX_delete_indices(TDBB, struct rel *);
+extern enum idx_e IDX_erase(TDBB, struct rpb *, struct tra *, struct rel **,
+							USHORT *);
+extern void IDX_garbage_collect(TDBB, struct rpb *, struct lls *,
+								struct lls *);
+extern enum idx_e IDX_modify(struct tdbb *, struct rpb *, struct rpb *,
+							 struct tra *, struct rel **, USHORT *);
+extern enum idx_e IDX_modify_check_constraint(struct rpb *, struct rpb *,
+											  struct tra *, struct rel **,
+											  USHORT *);
+extern float IDX_statistics(TDBB, struct rel *, USHORT);
+extern enum idx_e IDX_store(struct tdbb *, struct rpb *, struct tra *,
+							struct rel **, USHORT *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_IDX_PROTO_H_ */
diff --git a/src/jrd/inf.cpp b/src/jrd/inf.cpp
new file mode 100644
index 0000000000..c9b6247319
--- /dev/null
+++ b/src/jrd/inf.cpp
@@ -0,0 +1,1136 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		inf.c
+ *	DESCRIPTION:	Information handler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/tra.h"
+#include "../jrd/blb.h"
+#include "../jrd/req.h"
+#include "../jrd/val.h"
+#include "../jrd/exe.h"
+#include "../jrd/pio.h"
+#include "../jrd/ods.h"
+#include "../jrd/scl.h"
+#ifndef GATEWAY
+#include "../jrd/lck.h"
+#include "../jrd/cch.h"
+#include "../jrd/license.h"
+#else
+#include ".._gway/gway/csr.h"
+#include ".._gway/gway/license.h"
+#endif
+#include "../wal/wal.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/inf_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/opt_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/tra_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/err_proto.h"
+
+
+extern "C" {
+
+
+/*
+ * The variable DBSERVER_BASE_LEVEL was originally IB_MAJOR_VER but with
+ * the change to Firebird this number could no longer be used.
+ * The DBSERVER_BASE_LEVEL for firebird starts at 6 which is the base level
+ * of InterBase(r) from which Firebird was derived.
+ * It is expected that this value will increase as changes are added to 
+ * Firebird
+ */
+
+#define DBSERVER_BASE_LEVEL 6
+
+
+#define STUFF_WORD(p, value)	{*p++ = value; *p++ = value >> 8;}
+#define STUFF(p, value)		*p++ = value
+
+static USHORT get_counts(USHORT, UCHAR *, USHORT);
+
+
+int INF_blob_info(
+				  BLB blob,
+				  SCHAR * items,
+				  SSHORT item_length, SCHAR * info, SSHORT buffer_length)
+{
+/**************************************
+ *
+ *	I N F _ b l o b _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process requests for blob info.
+ *
+ **************************************/
+	SCHAR item, *end_items, *end, buffer[128];
+	SSHORT length;
+
+	end_items = items + item_length;
+	end = info + buffer_length;
+
+	while (items < end_items && *items != gds_info_end) {
+		switch ((item = *items++)) {
+		case gds_info_end:
+			break;
+
+		case gds_info_blob_num_segments:
+			length = INF_convert(blob->blb_count, buffer);
+			break;
+
+		case gds_info_blob_max_segment:
+			length = INF_convert(blob->blb_max_segment, buffer);
+			break;
+
+		case gds_info_blob_total_length:
+			length = INF_convert(blob->blb_length, buffer);
+			break;
+
+		case gds_info_blob_type:
+			buffer[0] = (blob->blb_flags & BLB_stream) ? 1 : 0;
+			length = 1;
+			break;
+
+		default:
+			buffer[0] = item;
+			item = gds_info_error;
+			length = 1 + INF_convert(gds_infunk, buffer + 1);
+			break;
+		}
+		if (!(info = INF_put_item(item, length, buffer, info, end)))
+			return FALSE;
+	}
+
+	*info++ = gds_info_end;
+
+	return TRUE;
+}
+
+
+USHORT DLL_EXPORT INF_convert(SLONG number, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	I N F _ c o n v e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a number to VAX form -- least significant bytes first.
+ *	Return the length.
+ *
+ **************************************/
+	SLONG n;
+	SCHAR *p;
+
+#ifdef VAX
+	n = number;
+	p = (SCHAR *) & n;
+	*buffer++ = *p++;
+	*buffer++ = *p++;
+	*buffer++ = *p++;
+	*buffer = *p;
+
+#else
+
+	p = (SCHAR *) & number;
+	p += 3;
+	*buffer++ = *p--;
+	*buffer++ = *p--;
+	*buffer++ = *p--;
+	*buffer = *p;
+
+#endif
+
+	return 4;
+}
+
+
+#ifndef GATEWAY
+int INF_database_info(
+					  SCHAR * items,
+					  SSHORT item_length, SCHAR * info, SSHORT buffer_length)
+{
+/**************************************
+ *
+ *	I N F _ d a t a b a s e _ i n f o	( J R D )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process requests for database info.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	TRA transaction;
+	FIL file;
+	SCHAR item, *end_items, *end, buffer[256], *p, *q;
+	SCHAR site[256];
+	SSHORT length, l;
+	SLONG id;
+	SCHAR wal_name[256];
+	SLONG wal_p_offset;
+	WALS WAL_segment;
+	ATT err_att, att;
+	USR user;
+	SLONG err_val;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	if (dbb->dbb_wal)
+		WAL_segment = dbb->dbb_wal->wal_segment;
+	else
+		WAL_segment = NULL;
+	transaction = NULL;
+	end_items = items + item_length;
+	end = info + buffer_length;
+
+	err_att = att = NULL;
+
+	while (items < end_items && *items != gds_info_end) {
+		p = buffer;
+		switch ((item = *items++)) {
+		case gds_info_end:
+			break;
+
+		case gds_info_reads:
+			length = INF_convert(dbb->dbb_reads, buffer);
+			break;
+
+		case gds_info_writes:
+			length = INF_convert(dbb->dbb_writes, buffer);
+			break;
+
+		case gds_info_fetches:
+			length = INF_convert(dbb->dbb_fetches, buffer);
+			break;
+
+		case gds_info_marks:
+			length = INF_convert(dbb->dbb_marks, buffer);
+			break;
+
+		case gds_info_page_size:
+			length = INF_convert(dbb->dbb_page_size, buffer);
+			break;
+
+		case gds_info_num_buffers:
+			length = INF_convert(dbb->dbb_bcb->bcb_count, buffer);
+			break;
+
+		case isc_info_set_page_buffers:
+			length = INF_convert(dbb->dbb_page_buffers, buffer);
+			break;
+
+		case gds_info_logfile:
+			length = INF_convert((dbb->dbb_wal) ? TRUE : FALSE, buffer);
+			break;
+
+		case gds_info_cur_logfile_name:
+			wal_name[0] = 0;
+			if (WAL_segment)
+				strcpy(wal_name, WAL_segment->wals_logname);
+			*p++ = l = strlen(wal_name);
+			for (q = wal_name; l; l--)
+				*p++ = *q++;
+			length = p - buffer;
+			break;
+
+		case gds_info_cur_log_part_offset:
+			wal_p_offset = 0;
+			if (WAL_segment)
+				wal_p_offset = WAL_segment->wals_log_partition_offset;
+			length = INF_convert(wal_p_offset, buffer);
+			break;
+
+		case gds_info_num_wal_buffers:
+			if (WAL_segment)
+				length = INF_convert(WAL_segment->wals_maxbufs, buffer);
+			else
+				length = 0;
+			break;
+
+		case gds_info_wal_buffer_size:
+			if (WAL_segment)
+				length = INF_convert(WAL_segment->wals_bufsize, buffer);
+			else
+				length = 0;
+			break;
+
+		case gds_info_wal_ckpt_length:
+			if (WAL_segment)
+				/* User specified checkpoint length multiplied by 1024 (OneK)
+				   is kept in WAL_segment */
+				length =
+					INF_convert(WAL_segment->wals_max_ckpt_intrvl / OneK,
+								buffer);
+			else
+				length = 0;
+			break;
+
+		case gds_info_wal_cur_ckpt_interval:
+			if (WAL_segment)
+				length =
+					INF_convert(WAL_segment->wals_cur_ckpt_intrvl, buffer);
+			else
+				length = 0;
+			break;
+
+		case gds_info_wal_prv_ckpt_fname:
+			wal_name[0] = 0;
+			if (WAL_segment)
+				strcpy(wal_name, WAL_segment->wals_ckpt_logname);
+			*p++ = l = strlen(wal_name);
+			for (q = wal_name; l; l--)
+				*p++ = *q++;
+			length = p - buffer;
+			break;
+
+		case gds_info_wal_prv_ckpt_poffset:
+			wal_p_offset = 0;
+			if (WAL_segment)
+				wal_p_offset = WAL_segment->wals_ckpt_log_p_offset;
+			length = INF_convert(wal_p_offset, buffer);
+			break;
+
+		case gds_info_wal_recv_ckpt_fname:
+			/* Get the information from the header or wal page */
+			length = 0;
+			break;
+
+		case gds_info_wal_recv_ckpt_poffset:
+			/* Get the information from the header or wal page */
+			length = 0;
+			break;
+
+		case gds_info_wal_grpc_wait_usecs:
+			if (WAL_segment)
+				length =
+					INF_convert(WAL_segment->wals_grpc_wait_usecs, buffer);
+			else
+				length = 0;
+			break;
+
+		case gds_info_wal_num_io:
+			if (WAL_segment)
+				length = INF_convert(WAL_segment->wals_IO_count, buffer);
+			else
+				length = 0;
+			break;
+
+		case gds_info_wal_avg_io_size:
+			if (WAL_segment)
+				length = INF_convert(WAL_segment->wals_total_IO_bytes /
+									 (WAL_segment->wals_IO_count ?
+									  WAL_segment->wals_IO_count : 1),
+									 buffer);
+			else
+				length = 0;
+			break;
+
+		case gds_info_wal_num_commits:
+			if (WAL_segment)
+				length = INF_convert(WAL_segment->wals_commit_count, buffer);
+			else
+				length = 0;
+			break;
+
+		case gds_info_wal_avg_grpc_size:
+			if (WAL_segment)
+				length = INF_convert(WAL_segment->wals_commit_count /
+									 (WAL_segment->wals_grpc_count ?
+									  WAL_segment->wals_grpc_count : 1),
+									 buffer);
+			else
+				length = 0;
+			break;
+
+		case gds_info_current_memory:
+			length = INF_convert(dbb->dbb_current_memory, buffer);
+			break;
+
+		case gds_info_max_memory:
+			length = INF_convert(dbb->dbb_max_memory, buffer);
+			break;
+
+		case gds_info_attachment_id:
+			length = INF_convert(PAG_attachment_id(), buffer);
+			break;
+
+		case gds_info_ods_version:
+			length = INF_convert(dbb->dbb_ods_version, buffer);
+			break;
+
+		case gds_info_ods_minor_version:
+			length = INF_convert(dbb->dbb_minor_version, buffer);
+			break;
+
+		case gds_info_allocation:
+			CCH_flush(tdbb, (USHORT) FLUSH_ALL, 0L);
+			length = INF_convert(PIO_max_alloc(dbb), buffer);
+			break;
+
+		case gds_info_sweep_interval:
+			length = INF_convert(dbb->dbb_sweep_interval, buffer);
+			break;
+
+		case gds_info_read_seq_count:
+			length =
+				get_counts(DBB_read_seq_count,
+						   reinterpret_cast < UCHAR * >(buffer),
+						   sizeof(buffer));
+			break;
+
+		case gds_info_read_idx_count:
+			length =
+				get_counts(DBB_read_idx_count,
+						   reinterpret_cast < UCHAR * >(buffer),
+						   sizeof(buffer));
+			break;
+
+		case gds_info_update_count:
+			length =
+				get_counts(DBB_update_count,
+						   reinterpret_cast < UCHAR * >(buffer),
+						   sizeof(buffer));
+			break;
+
+		case gds_info_insert_count:
+			length =
+				get_counts(DBB_insert_count,
+						   reinterpret_cast < UCHAR * >(buffer),
+						   sizeof(buffer));
+			break;
+
+		case gds_info_delete_count:
+			length =
+				get_counts(DBB_delete_count,
+						   reinterpret_cast < UCHAR * >(buffer),
+						   sizeof(buffer));
+			break;
+
+		case gds_info_backout_count:
+			length =
+				get_counts(DBB_backout_count,
+						   reinterpret_cast < UCHAR * >(buffer),
+						   sizeof(buffer));
+			break;
+
+		case gds_info_purge_count:
+			length =
+				get_counts(DBB_purge_count,
+						   reinterpret_cast < UCHAR * >(buffer),
+						   sizeof(buffer));
+			break;
+
+		case gds_info_expunge_count:
+			length =
+				get_counts(DBB_expunge_count,
+						   reinterpret_cast < UCHAR * >(buffer),
+						   sizeof(buffer));
+			break;
+
+		case gds_info_implementation:
+			STUFF(p, 1);		/* Count */
+			STUFF(p, IMPLEMENTATION);
+			STUFF(p, 1);		/* Class */
+			length = p - buffer;
+			break;
+
+		case gds_info_base_level:
+			/* info_base_level is used by the client to represent
+			 * what the server is capable of.  It is equivalent to the
+			 * ods version of a database.  For example, 
+			 * ods_version represents what the database 'knows'
+			 * base_level represents what the server 'knows'
+			 */
+			STUFF(p, 1);		/* Count */
+#ifdef SCROLLABLE_CURSORS
+			UPDATE WITH VERSION OF SERVER SUPPORTING
+				SCROLLABLE CURSORS STUFF(p, 5);	/* base level of scrollable cursors */
+#else
+			/* IB_MAJOR_VER is defined as a character string */
+			STUFF(p, DBSERVER_BASE_LEVEL);	/* base level of current version */
+#endif
+			length = p - buffer;
+			break;
+
+		case gds_info_version:
+			STUFF(p, 1);
+			STUFF(p, sizeof(GDS_VERSION) - 1);
+			for (q = GDS_VERSION; *q;)
+				STUFF(p, *q++);
+			length = p - buffer;
+			break;
+
+		case gds_info_db_id:
+			file = dbb->dbb_file;
+			STUFF(p, 2);
+			*p++ = l = file->fil_length;
+			for (q = file->fil_string; *q;)
+				*p++ = *q++;
+			ISC_get_host(site, sizeof(site));
+			*p++ = l = strlen(site);
+			for (q = site; *q;)
+				*p++ = *q++;
+			length = p - buffer;
+			break;
+
+		case gds_info_no_reserve:
+			*p++ = (dbb->dbb_flags & DBB_no_reserve) ? 1 : 0;
+			length = p - buffer;
+			break;
+
+		case gds_info_forced_writes:
+			*p++ = (dbb->dbb_flags & DBB_force_write) ? 1 : 0;
+			length = p - buffer;
+			break;
+
+		case gds_info_limbo:
+			if (!transaction)
+				transaction = TRA_start(tdbb, 0, NULL);
+			for (id = transaction->tra_oldest;
+				 id < transaction->tra_number; id++)
+				if (TRA_snapshot_state(tdbb, transaction, id) == tra_limbo &&
+					TRA_wait(tdbb, transaction, id, TRUE) == tra_limbo) {
+					length = INF_convert(id, buffer);
+					if (!
+						(info =
+						 INF_put_item(item, length, buffer, info, end))) {
+						if (transaction)
+							TRA_commit(tdbb, transaction, FALSE);
+						return FALSE;
+					}
+				}
+			continue;
+
+		case isc_info_user_names:
+			for (att = dbb->dbb_attachments; att; att = att->att_next) {
+				if (att->att_flags & ATT_shutdown)
+					continue;
+				if (user = att->att_user) {
+					p = buffer;
+					*p++ = l = strlen(user->usr_user_name);
+					for (q = user->usr_user_name; l; l--)
+						*p++ = *q++;
+					length = p - buffer;
+					if (!
+						(info =
+						 INF_put_item(item, length, buffer, info, end))) {
+						if (transaction)
+							TRA_commit(tdbb, transaction, FALSE);
+						return FALSE;
+					}
+				}
+			}
+			continue;
+
+		case isc_info_page_errors:
+			err_att = tdbb->tdbb_attachment;
+			if (err_att->att_val_errors) {
+				err_val =
+					err_att->att_val_errors->vcl_long[VAL_PAG_WRONG_TYPE]
+					+ err_att->att_val_errors->vcl_long[VAL_PAG_CHECKSUM_ERR]
+					+ err_att->att_val_errors->vcl_long[VAL_PAG_DOUBLE_ALLOC]
+					+ err_att->att_val_errors->vcl_long[VAL_PAG_IN_USE]
+					+ err_att->att_val_errors->vcl_long[VAL_PAG_ORPHAN];
+			}
+			else
+				err_val = 0;
+
+			length = INF_convert(err_val, buffer);
+			break;
+
+		case isc_info_bpage_errors:
+			err_att = tdbb->tdbb_attachment;
+			if (err_att->att_val_errors) {
+				err_val =
+					err_att->att_val_errors->vcl_long[VAL_BLOB_INCONSISTENT]
+					+ err_att->att_val_errors->vcl_long[VAL_BLOB_CORRUPT]
+					+ err_att->att_val_errors->vcl_long[VAL_BLOB_TRUNCATED];
+			}
+			else
+				err_val = 0;
+
+			length = INF_convert(err_val, buffer);
+			break;
+
+		case isc_info_record_errors:
+			err_att = tdbb->tdbb_attachment;
+			if (err_att->att_val_errors) {
+				err_val =
+					err_att->att_val_errors->vcl_long[VAL_REC_CHAIN_BROKEN]
+					+ err_att->att_val_errors->vcl_long[VAL_REC_DAMAGED]
+					+ err_att->att_val_errors->vcl_long[VAL_REC_BAD_TID]
+					+
+					err_att->
+					att_val_errors->vcl_long[VAL_REC_FRAGMENT_CORRUPT] +
+					err_att->att_val_errors->vcl_long[VAL_REC_WRONG_LENGTH] +
+					err_att->att_val_errors->vcl_long[VAL_REL_CHAIN_ORPHANS];
+			}
+			else
+				err_val = 0;
+
+			length = INF_convert(err_val, buffer);
+			break;
+
+		case isc_info_dpage_errors:
+			err_att = tdbb->tdbb_attachment;
+			if (err_att->att_val_errors) {
+				err_val =
+					err_att->att_val_errors->vcl_long[VAL_DATA_PAGE_CONFUSED]
+					+
+					err_att->att_val_errors->vcl_long[VAL_DATA_PAGE_LINE_ERR];
+			}
+			else
+				err_val = 0;
+
+			length = INF_convert(err_val, buffer);
+			break;
+
+		case isc_info_ipage_errors:
+			err_att = tdbb->tdbb_attachment;
+			if (err_att->att_val_errors) {
+				err_val =
+					err_att->att_val_errors->vcl_long[VAL_INDEX_PAGE_CORRUPT]
+					+
+					err_att->
+					att_val_errors->vcl_long[VAL_INDEX_ROOT_MISSING] +
+					err_att->att_val_errors->
+					vcl_long[VAL_INDEX_MISSING_ROWS] +
+					err_att->att_val_errors->vcl_long[VAL_INDEX_ORPHAN_CHILD];
+			}
+			else
+				err_val = 0;
+
+			length = INF_convert(err_val, buffer);
+			break;
+
+		case isc_info_ppage_errors:
+			err_att = tdbb->tdbb_attachment;
+			if (err_att->att_val_errors) {
+				err_val = err_att->att_val_errors->vcl_long[VAL_P_PAGE_LOST]
+					+
+					err_att->
+					att_val_errors->vcl_long[VAL_P_PAGE_INCONSISTENT];
+			}
+			else
+				err_val = 0;
+
+			length = INF_convert(err_val, buffer);
+			break;
+
+		case isc_info_tpage_errors:
+			err_att = tdbb->tdbb_attachment;
+			if (err_att->att_val_errors) {
+				err_val = err_att->att_val_errors->vcl_long[VAL_TIP_LOST]
+					+ err_att->att_val_errors->vcl_long[VAL_TIP_LOST_SEQUENCE]
+					+ err_att->att_val_errors->vcl_long[VAL_TIP_CONFUSED];
+			}
+			else
+				err_val = 0;
+
+			length = INF_convert(err_val, buffer);
+			break;
+
+		case isc_info_db_sql_dialect:
+			/*
+			   **
+			   ** there are 3 types of databases:
+			   **
+			   **   1. a DB that is created before V6.0. This DB only speak SQL 
+			   **        dialect 1 and 2.
+			   **
+			   **   2. a non ODS 10 DB is backed up/restored in IB V6.0. Since
+			   **        this DB contained some old SQL dialect, therefore it
+			   **        speaks SQL dialect 1, 2, and 3
+			   **
+			   **   3. a DB that is created in V6.0. This DB speak SQL 
+			   **        dialect 1, 2 or 3 depending the DB was created
+			   **        under which SQL dialect.
+			   **
+			 */
+			if (ENCODE_ODS(dbb->dbb_ods_version, dbb->dbb_minor_original)
+				>= ODS_10_0)
+				if (dbb->dbb_flags & DBB_DB_SQL_dialect_3)
+					/* 
+					   ** DB created in IB V6.0 by client SQL dialect 3 
+					 */
+					*p++ = SQL_DIALECT_V6;
+				else
+					/* 
+					   ** old DB was gbaked in IB V6.0
+					 */
+					*p++ = SQL_DIALECT_V5;
+			else
+				*p++ = SQL_DIALECT_V5;	/* pre ODS 10 DB */
+
+			length = p - buffer;
+			break;
+
+#ifdef READONLY_DATABASE
+		case isc_info_db_read_only:
+			*p++ = (dbb->dbb_flags & DBB_read_only) ? 1 : 0;
+			length = p - buffer;
+
+			break;
+#endif /* READONLY_DATABASE */
+
+		case isc_info_db_size_in_pages:
+			CCH_flush(tdbb, (USHORT) FLUSH_ALL, 0L);
+			length = INF_convert(PIO_act_alloc(dbb), buffer);
+			break;
+
+		case frb_info_att_charset:
+			length = INF_convert(tdbb->tdbb_attachment->att_charset, buffer);
+			break;
+
+		default:
+			buffer[0] = item;
+			item = gds_info_error;
+			length = 1 + INF_convert(gds_infunk, buffer + 1);
+			break;
+		}
+		if (!(info = INF_put_item(item, length, buffer, info, end))) {
+			if (transaction)
+				TRA_commit(tdbb, transaction, FALSE);
+			return FALSE;
+		}
+	}
+
+	if (transaction)
+		TRA_commit(tdbb, transaction, FALSE);
+
+	*info++ = gds_info_end;
+
+	return TRUE;
+}
+#else
+
+
+int INF_database_info(
+					  SCHAR * items,
+					  SSHORT item_length, SCHAR * info, SSHORT buffer_length)
+{
+/**************************************
+ *
+ *	I N F _ d a t a b a s e _ i n f o	( G a t e w a y )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process requests for database info.
+ *
+ **************************************/
+	DBB dbb;
+	STR file;
+	SCHAR item, *end_items, *end, buffer[256], *p, *q;
+	SCHAR site[256];
+	SSHORT length, l;
+	SLONG id;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	end_items = items + item_length;
+	end = info + buffer_length;
+
+	while (items < end_items && *items != gds_info_end) {
+		p = buffer;
+		switch ((item = *items++)) {
+		case gds_info_end:
+			break;
+
+		case gds_info_reads:
+			length = INF_convert(dbb->dbb_reads, buffer);
+			break;
+
+		case gds_info_writes:
+			length = INF_convert(dbb->dbb_writes, buffer);
+			break;
+
+		case gds_info_fetches:
+			length = INF_convert(dbb->dbb_fetches, buffer);
+			break;
+
+		case gds_info_marks:
+			length = INF_convert(dbb->dbb_marks, buffer);
+			break;
+
+		case gds_info_page_size:
+			length = INF_convert(0, buffer);
+			break;
+
+		case gds_info_num_buffers:
+			length =
+				INF_convert(dbb->dbb_attachment->att_fdb->fdb_count, buffer);
+			break;
+
+		case gds_info_current_memory:
+			length = INF_convert(dbb->dbb_current_memory, buffer);
+			break;
+
+		case gds_info_max_memory:
+			length = INF_convert(dbb->dbb_max_memory, buffer);
+			break;
+
+		case gds_info_attachment_id:
+		case gds_info_allocation:
+		case gds_info_read_seq_count:
+		case gds_info_read_idx_count:
+		case gds_info_update_count:
+		case gds_info_insert_count:
+		case gds_info_delete_count:
+		case gds_info_backout_count:
+		case gds_info_purge_count:
+		case gds_info_expunge_count:
+		case gds_info_sweep_interval:
+			length = INF_convert(0, buffer);
+			break;
+
+		case gds_info_implementation:
+			STUFF(p, 1);		/* Count */
+			STUFF(p, IMPLEMENTATION);
+			STUFF(p, 11);		/* Class */
+			length = p - buffer;
+			break;
+
+		case gds_info_base_level:
+			STUFF(p, 1);		/* Count */
+			STUFF(p, 4);		/* base level */
+			length = p - buffer;
+			break;
+
+		case gds_info_version:
+			STUFF(p, 1);
+			STUFF(p, sizeof(GWAY_GDS_VERSION) - 1);
+			for (q = GWAY_GDS_VERSION; *q;)
+				STUFF(p, *q++);
+			length = p - buffer;
+			break;
+
+		case gds_info_db_id:
+			file = dbb->dbb_filename;
+			STUFF(p, 2);
+			*p++ = l = file->str_length;
+			for (q = file->str_data; *q;)
+				*p++ = *q++;
+			ISC_get_host(site, sizeof(site));
+			*p++ = l = strlen(site);
+			for (q = site; *q;)
+				*p++ = *q++;
+			length = p - buffer;
+			break;
+
+		case gds_info_limbo:
+			continue;
+
+		default:
+			buffer[0] = item;
+			item = gds_info_error;
+			length = 1 + INF_convert(gds_infunk, buffer + 1);
+			break;
+		}
+		if (!(info = INF_put_item(item, length, buffer, info, end)))
+			return FALSE;
+	}
+
+	*info++ = gds_info_end;
+
+	return TRUE;
+}
+#endif
+
+
+SCHAR *INF_put_item(SCHAR item,
+					USHORT length, SCHAR * string, SCHAR * ptr, SCHAR * end)
+{
+/**************************************
+ *
+ *	I N F _ p u t _ i t e m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put information item in output buffer if there is room, and
+ *	return an updated pointer.  If there isn't room for the item,
+ *	indicate truncation and return NULL.
+ *
+ **************************************/
+
+	if (ptr + length + 3 >= end) {
+		*ptr = gds_info_truncated;
+		return NULL;
+	}
+
+	*ptr++ = item;
+	STUFF_WORD(ptr, length);
+
+	if (length) {
+		MEMMOVE(string, ptr, length);
+		ptr += length;
+	}
+
+	return ptr;
+}
+
+
+int INF_request_info(
+					 REQ request,
+					 SCHAR * items,
+					 SSHORT item_length, SCHAR * info, SSHORT buffer_length)
+{
+/**************************************
+ *
+ *	I N F _ r e q u e s t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return information about requests.
+ *
+ **************************************/
+	NOD node;
+	FMT format;
+	SCHAR item, *end_items, *end, buffer[256], *buffer_ptr;
+	SSHORT state;
+	USHORT length = 0;
+
+	end_items = items + item_length;
+	end = info + buffer_length;
+	memset(buffer, 0, sizeof(buffer));
+	buffer_ptr = buffer;
+
+	while (items < end_items && *items != gds_info_end) {
+		switch ((item = *items++)) {
+		case gds_info_end:
+			break;
+
+		case gds_info_number_messages:
+			length = INF_convert(request->req_nmsgs, buffer_ptr);
+			break;
+
+		case gds_info_max_message:
+			length = INF_convert(request->req_mmsg, buffer_ptr);
+			break;
+
+		case gds_info_max_send:
+			length = INF_convert(request->req_msend, buffer_ptr);
+			break;
+
+		case gds_info_max_receive:
+			length = INF_convert(request->req_mreceive, buffer_ptr);
+			break;
+
+		case gds_info_req_select_count:
+			length = INF_convert(request->req_records_selected, buffer_ptr);
+			break;
+
+		case gds_info_req_insert_count:
+			length = INF_convert(request->req_records_inserted, buffer_ptr);
+			break;
+
+		case gds_info_req_update_count:
+			length = INF_convert(request->req_records_updated, buffer_ptr);
+			break;
+
+		case gds_info_req_delete_count:
+			length = INF_convert(request->req_records_deleted, buffer_ptr);
+			break;
+
+		case gds_info_access_path:
+
+			/* the access path has the potential to be large, so if the default 
+			   buffer is not big enough, allocate a really large one--don't 
+			   continue to allocate larger and larger, because of the potential 
+			   for a bug which would bring the server to its knees */
+
+			if (!OPT_access_path
+				(request, buffer_ptr, sizeof(buffer), &length)) {
+				buffer_ptr = (SCHAR *) gds__alloc(BUFFER_XLARGE);
+				OPT_access_path(request, buffer_ptr, BUFFER_XLARGE, &length);
+			}
+			break;
+
+		case gds_info_state:
+			state = gds_info_req_active;
+			if (request->req_operation == req::req_send)
+				state = gds_info_req_send;
+			else if (request->req_operation == req::req_receive) {
+				node = request->req_next;
+				if (node->nod_type == nod_select)
+					state = gds_info_req_select;
+				else
+					state = gds_info_req_receive;
+			}
+			else if ((request->req_operation == req::req_return) &&
+					 (request->req_flags & req_stall))
+				state = isc_info_req_sql_stall;
+			if (!(request->req_flags & req_active))
+				state = gds_info_req_inactive;
+			length = INF_convert(state, buffer_ptr);
+			break;
+
+		case gds_info_message_number:
+		case gds_info_message_size:
+			if (!(request->req_flags & req_active) ||
+				request->req_operation != req::req_receive &&
+				request->req_operation != req::req_send) {
+				buffer_ptr[0] = item;
+				item = gds_info_error;
+				length = 1 + INF_convert(gds_infinap, buffer_ptr + 1);
+				break;
+			}
+			node = request->req_message;
+			if (item == gds_info_message_number)
+				length =
+					INF_convert((SLONG) node->nod_arg[e_msg_number],
+								buffer_ptr);
+			else {
+				format = (FMT) node->nod_arg[e_msg_format];
+				length = INF_convert(format->fmt_length, buffer_ptr);
+			}
+			break;
+
+		case gds_info_request_cost:
+		default:
+			buffer_ptr[0] = item;
+			item = gds_info_error;
+			length = 1 + INF_convert(gds_infunk, buffer_ptr + 1);
+			break;
+		}
+
+		info = INF_put_item(item, length, buffer_ptr, info, end);
+
+		if (buffer_ptr != buffer) {
+			gds__free(buffer_ptr);
+			buffer_ptr = buffer;
+		}
+
+		if (!info)
+			return FALSE;
+	}
+
+	*info++ = gds_info_end;
+
+	return TRUE;
+}
+
+
+int INF_transaction_info(
+						 TRA transaction,
+						 SCHAR * items,
+						 SSHORT item_length,
+						 SCHAR * info, SSHORT buffer_length)
+{
+/**************************************
+ *
+ *	I N F _ t r a n s a c t i o n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process requests for blob info.
+ *
+ **************************************/
+	SCHAR item, *end_items, *end, buffer[128];
+	SSHORT length;
+
+	end_items = items + item_length;
+	end = info + buffer_length;
+
+	while (items < end_items && *items != gds_info_end) {
+		switch ((item = *items++)) {
+		case gds_info_end:
+			break;
+
+		case gds_info_tra_id:
+			length = INF_convert(transaction->tra_number, buffer);
+			break;
+
+		default:
+			buffer[0] = item;
+			item = gds_info_error;
+			length = 1 + INF_convert(gds_infunk, buffer + 1);
+			break;
+		}
+		if (!(info = INF_put_item(item, length, buffer, info, end)))
+			return FALSE;
+	}
+
+	*info++ = gds_info_end;
+
+	return TRUE;
+}
+
+
+#ifndef GATEWAY
+static USHORT get_counts(USHORT count_id, UCHAR * buffer, USHORT length)
+{
+/**************************************
+ *
+ *	g e t _ c o u n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return operation counts for relation.
+ *
+ **************************************/
+	TDBB tdbb;
+	SLONG n, *ptr;
+	UCHAR *p, *end;
+	USHORT relation_id;
+	VCL vector;
+
+	tdbb = GET_THREAD_DATA;
+
+	if (!(vector = tdbb->tdbb_attachment->att_counts[count_id]))
+		return 0;
+
+	p = buffer;
+	end = p + length - 6;
+
+	for (relation_id = 0, ptr = vector->vcl_long;
+		 relation_id < vector->vcl_count && buffer < end; ++relation_id)
+		if (n = *ptr++) {
+			STUFF_WORD(p, relation_id);
+			p += INF_convert(n, reinterpret_cast < char *>(p));
+		}
+
+	return p - buffer;
+}
+#endif
+
+
+} // extern "C"
diff --git a/src/jrd/inf.h b/src/jrd/inf.h
new file mode 100644
index 0000000000..f640a8c701
--- /dev/null
+++ b/src/jrd/inf.h
@@ -0,0 +1,190 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		inf.h
+ *	DESCRIPTION:	Information codes definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_INF_H_
+#define _JRD_INF_H_
+
+/* Common, structural codes */
+
+#define gds__info_end			1
+#define gds__info_truncated		2
+#define gds__info_error			3
+
+/* Database information items */
+
+#define gds__info_db_id			4
+#define gds__info_reads			5
+#define gds__info_writes		6
+#define gds__info_fetches		7
+#define gds__info_marks			8
+#define gds__info_implementation 	11
+#define gds__info_version		12
+#define gds__info_base_level		13
+#define gds__info_page_size		14
+#define gds__info_num_buffers		15
+#define gds__info_limbo			16
+#define gds__info_current_memory	17
+#define gds__info_max_memory		18
+#define gds__info_window_turns		19
+#define gds__info_license		20
+#define gds__info_allocation		21
+#define gds__info_attachment_id	 	22
+#define gds__info_read_seq_count	23
+#define gds__info_read_idx_count	24
+#define gds__info_insert_count		25
+#define gds__info_update_count		26
+#define gds__info_delete_count		27
+#define gds__info_backout_count	 	28
+#define gds__info_purge_count		29
+#define gds__info_expunge_count		30
+#define gds__info_sweep_interval	31
+#define gds__info_ods_version		32
+#define gds__info_ods_minor_version	33
+#define gds__info_no_reserve		34
+#define gds__info_logfile		35
+#define gds__info_cur_logfile_name	36
+#define gds__info_cur_log_part_offset	37
+#define gds__info_num_wal_buffers	38
+#define gds__info_wal_buffer_size	39
+#define gds__info_wal_ckpt_length	40
+#define gds__info_wal_cur_ckpt_interval 41
+#define gds__info_wal_prv_ckpt_fname	42
+#define gds__info_wal_prv_ckpt_poffset	43
+#define gds__info_wal_recv_ckpt_fname	44
+#define gds__info_wal_recv_ckpt_poffset 45
+#define gds__info_wal_grpc_wait_usecs	47
+#define gds__info_wal_num_io		48
+#define gds__info_wal_avg_io_size	49
+#define gds__info_wal_num_commits	50
+#define gds__info_wal_avg_grpc_size	51
+#define gds__info_forced_writes		52
+
+
+/* Request information items */
+
+#define gds__info_number_messages	4
+#define gds__info_max_message		5
+#define gds__info_max_send		6
+#define gds__info_max_receive		7
+#define gds__info_state			8
+#define gds__info_message_number	9
+#define gds__info_message_size		10
+#define gds__info_request_cost		11
+#define gds__info_access_path		12
+#define gds__info_req_select_count	13
+#define gds__info_req_insert_count	14
+#define gds__info_req_update_count	15
+#define gds__info_req_delete_count	16
+
+#define gds__info_req_active		2
+#define gds__info_req_inactive		3
+#define gds__info_req_send		4
+#define gds__info_req_receive		5
+#define gds__info_req_select		6
+
+/* access path items */
+
+#define gds__info_rsb_end		0
+#define gds__info_rsb_begin		1
+#define gds__info_rsb_type		2
+#define gds__info_rsb_relation		3
+
+/* rsb types */
+
+#define gds__info_rsb_unknown		1
+#define gds__info_rsb_indexed		2
+#define gds__info_rsb_navigate		3
+#define gds__info_rsb_sequential	4
+#define gds__info_rsb_cross		5
+#define gds__info_rsb_sort		6
+#define gds__info_rsb_first		7
+#define gds__info_rsb_boolean		8
+#define gds__info_rsb_union		9
+#define gds__info_rsb_aggregate		10
+#define gds__info_rsb_merge		11
+#define gds__info_rsb_ext_sequential	12
+#define gds__info_rsb_ext_indexed	13
+#define gds__info_rsb_ext_dbkey		14
+#define gds__info_rsb_left_cross	15
+#define gds__info_rsb_select		16
+#define gds__info_rsb_sql_join		17
+#define gds__info_rsb_simulate		18
+#define gds__info_rsb_sim_cross		19
+#define gds__info_rsb_once		20
+#define gds__info_rsb_procedure		21
+
+/* bitmap expressions */
+
+#define gds__info_rsb_and		1
+#define gds__info_rsb_or		2
+#define gds__info_rsb_dbkey		3
+#define gds__info_rsb_index		4
+
+
+/* Blob information items */
+
+#define gds__info_blob_num_segments	4
+#define gds__info_blob_max_segment	5
+#define gds__info_blob_total_length	6
+#define gds__info_blob_type		7
+
+
+/* Transaction information items */
+
+#define gds__info_tra_id		4
+
+
+/* Service information items */
+
+#define gds__info_svc_version		4
+#define gds__info_svc_message		5
+#define gds__info_svc_total_length	6
+#define gds__info_svc_response		7
+#define gds__info_svc_response_more	8
+#define gds__info_svc_line		9
+#define gds__info_svc_to_eof		10
+#define gds__info_svc_timeout		11
+
+
+/* SQL information items */
+
+#define gds__info_sql_select		4
+#define gds__info_sql_bind		5
+#define gds__info_sql_num_variables	6
+#define gds__info_sql_describe_vars	7
+#define gds__info_sql_describe_end	8
+#define gds__info_sql_sqlda_seq		9
+#define gds__info_sql_message_seq	10
+#define gds__info_sql_type		11
+#define gds__info_sql_sub_type		12
+#define gds__info_sql_scale		13
+#define gds__info_sql_length		14
+#define gds__info_sql_null_ind		15
+#define gds__info_sql_field		16
+#define gds__info_sql_relation		17
+#define gds__info_sql_owner		18
+#define gds__info_sql_alias		19
+#define gds__info_sql_sqlda_start	20
+#define gds__info_sql_stmt_type		21
+
+#endif /* _JRD_INF_H_ */
diff --git a/src/jrd/inf_proto.h b/src/jrd/inf_proto.h
new file mode 100644
index 0000000000..509d1a23a5
--- /dev/null
+++ b/src/jrd/inf_proto.h
@@ -0,0 +1,43 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		inf_proto.h
+ *	DESCRIPTION:	Prototype header file for inf.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_INF_PROTO_H_
+#define _JRD_INF_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int INF_blob_info(struct blb *, SCHAR *, SSHORT, SCHAR *, SSHORT);
+extern USHORT DLL_EXPORT INF_convert(SLONG, SCHAR *);
+extern int INF_database_info(SCHAR *, SSHORT, SCHAR *, SSHORT);
+extern SCHAR *INF_put_item(SCHAR, USHORT, SCHAR *, SCHAR *, SCHAR *);
+extern int INF_request_info(struct req *, SCHAR *, SSHORT, SCHAR *, SSHORT);
+extern int INF_transaction_info(struct tra *, SCHAR *, SSHORT, SCHAR *,
+								SSHORT);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_INF_PROTO_H_ */
diff --git a/src/jrd/ini.e b/src/jrd/ini.e
new file mode 100644
index 0000000000..d2cbff432f
--- /dev/null
+++ b/src/jrd/ini.e
@@ -0,0 +1,1636 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		ini.e
+ *	DESCRIPTION:	Metadata initialization / population
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include "../jrd/flags.h"
+#include "../jrd/jrd.h"
+#include "../jrd/val.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../jrd/ids.h"
+#include "../jrd/tra.h"
+#include "../jrd/trig.h"
+#include "../jrd/intl.h"
+#include "../jrd/dflt.h"
+#include "../jrd/constants.h"
+#include "../jrd/ini.h"
+#include "../jrd/idx.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dfw_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/idx_proto.h"
+#include "../jrd/ini_proto.h"
+#include "../jrd/jrd_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/obj.h"
+#include "../jrd/acl.h"
+#include "../jrd/irq.h"
+
+DATABASE DB = FILENAME "ODS.RDB";
+
+#define PAD(string, field) jrd_vtof (string, field, sizeof (field))
+#define MAX_ACL_SIZE    4096
+#define DEFAULT_CLASS   "SQL$DEFAULT"
+
+static void add_generator(TEXT*, BLK*);
+static void add_global_fields(USHORT);
+static void add_index_set(DBB, USHORT, USHORT, USHORT);
+static void add_new_triggers(USHORT, USHORT);
+static void add_relation_fields(USHORT);
+static void add_security_to_sys_rel(TDBB, TEXT*, TEXT*, TEXT*, SSHORT);
+static void add_trigger(TEXT*, BLK*, BLK*);
+static void add_user_priv(TDBB, TEXT*, TEXT*, TEXT*, TEXT);
+static void modify_relation_field(TDBB, CONST UCHAR*, CONST UCHAR*, BLK*);
+static void store_generator(TDBB, CONST GEN*, BLK*);
+static void store_global_field(TDBB, GFLD*, BLK*);
+static void store_intlnames(TDBB, DBB);
+static void store_message(TDBB, CONST TRIGMSG*, BLK*);
+static void store_relation_field(TDBB, CONST UCHAR*, CONST UCHAR*, int, BLK*, int);
+static void store_trigger(TDBB, CONST TRG*, BLK*);
+
+
+/* This is the table used in defining triggers; note that
+   RDB$TRIGGER_0 was first changed to RDB$TRIGGER_7 to make it easier to
+   upgrade a database to support field-level grant.  It has since been
+   changed to RDB$TRIGGER_9 to handle SQL security on relations whose
+   name is > 27 characters */
+
+static CONST TRG FAR_VARIABLE triggers[] =
+{
+	"RDB$TRIGGER_1", (UCHAR) nam_user_privileges,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_MODIFY, sizeof(trigger3), trigger3,
+		0, ODS_8_0,
+	"RDB$TRIGGER_8", (UCHAR) nam_user_privileges,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_ERASE, sizeof(trigger2), trigger2,
+		0, ODS_8_0,
+	"RDB$TRIGGER_9", (UCHAR) nam_user_privileges,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_STORE, sizeof(trigger1), trigger1,
+		0, ODS_8_0,
+	"RDB$TRIGGER_2", (UCHAR) nam_trgs,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_MODIFY, sizeof(trigger4), trigger4,
+		0, ODS_8_0,
+	"RDB$TRIGGER_3", (UCHAR) nam_trgs,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_ERASE, sizeof(trigger4), trigger4,
+		0, ODS_8_0,
+	"RDB$TRIGGER_4", (UCHAR) nam_relations,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_STORE, sizeof(trigger5), trigger5,
+		0, ODS_8_0,
+	"RDB$TRIGGER_5", (UCHAR) nam_relations,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_MODIFY, sizeof(trigger6), trigger6,
+		0, ODS_8_0,
+	"RDB$TRIGGER_6", (UCHAR) nam_gens,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_STORE, sizeof(trigger7), trigger7,
+		0, ODS_8_0,
+	"RDB$TRIGGER_26", (UCHAR) nam_rel_constr,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_STORE, sizeof(trigger26), trigger26,
+		0, ODS_8_0,
+	"RDB$TRIGGER_25", (UCHAR) nam_rel_constr,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_MODIFY, sizeof(trigger25),
+		trigger25, 0, ODS_8_0,
+	"RDB$TRIGGER_10", (UCHAR) nam_rel_constr,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_ERASE, sizeof(trigger10), trigger10,
+		0, ODS_8_0,
+	"RDB$TRIGGER_11", (UCHAR) nam_rel_constr,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.POST_ERASE, sizeof(trigger11),
+		trigger11, 0, ODS_8_0,
+	"RDB$TRIGGER_12", (UCHAR) nam_ref_constr,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_STORE, sizeof(trigger12), trigger12,
+		0, ODS_8_0,
+	"RDB$TRIGGER_13", (UCHAR) nam_ref_constr,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_MODIFY, sizeof(trigger13),
+		trigger13, 0, ODS_8_0,
+	"RDB$TRIGGER_14", (UCHAR) nam_chk_constr,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_MODIFY, sizeof(trigger14),
+		trigger14, 0, ODS_8_0,
+	"RDB$TRIGGER_15", (UCHAR) nam_chk_constr,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_ERASE, sizeof(trigger15), trigger15,
+		0, ODS_8_0,
+	"RDB$TRIGGER_16", (UCHAR) nam_chk_constr,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.POST_ERASE, sizeof(trigger16),
+		trigger16, 0, ODS_8_0,
+	"RDB$TRIGGER_17", (UCHAR) nam_i_segments,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_ERASE, sizeof(trigger17), trigger17,
+		0, ODS_8_0,
+	"RDB$TRIGGER_18", (UCHAR) nam_i_segments,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_MODIFY, sizeof(trigger18),
+		trigger18, 0, ODS_8_0,
+	"RDB$TRIGGER_19", (UCHAR) nam_indices,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_ERASE, sizeof(trigger19), trigger19,
+		0, ODS_8_0,
+	"RDB$TRIGGER_20", (UCHAR) nam_indices,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_MODIFY, sizeof(trigger20),
+		trigger20, 0, ODS_8_0,
+	"RDB$TRIGGER_21", (UCHAR) nam_trgs,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_ERASE, sizeof(trigger21), trigger21,
+		0, ODS_8_0,
+	"RDB$TRIGGER_22", (UCHAR) nam_trgs,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_MODIFY, sizeof(trigger22),
+		trigger22, 0, ODS_8_0,
+	"RDB$TRIGGER_23", (UCHAR) nam_r_fields,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_ERASE, sizeof(trigger23), trigger23,
+		0, ODS_8_0,
+	"RDB$TRIGGER_24", (UCHAR) nam_r_fields,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_MODIFY, sizeof(trigger24),
+		trigger24, 0, ODS_8_0,
+	"RDB$TRIGGER_27", (UCHAR) nam_r_fields,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.POST_ERASE, sizeof(trigger27),
+		trigger27, 0, ODS_8_0,
+	"RDB$TRIGGER_28", (UCHAR) nam_procedures,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_STORE, sizeof(trigger28), trigger28,
+		0, ODS_8_0,
+	"RDB$TRIGGER_29", (UCHAR) nam_procedures,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_MODIFY, sizeof(trigger29),
+		trigger29, 0, ODS_8_0,
+	"RDB$TRIGGER_30", (UCHAR) nam_exceptions,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_STORE, sizeof(trigger30), trigger30,
+		0, ODS_8_0,
+	"RDB$TRIGGER_31", (UCHAR) nam_user_privileges,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_MODIFY, sizeof(trigger31),
+		trigger31, 0, ODS_8_1,
+	"RDB$TRIGGER_32", (UCHAR) nam_user_privileges,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_ERASE, sizeof(trigger31), trigger31,
+		0, ODS_8_1,
+	"RDB$TRIGGER_33", (UCHAR) nam_user_privileges,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.PRE_STORE, sizeof(trigger31), trigger31,
+		0, ODS_8_1,
+	"RDB$TRIGGER_34", (UCHAR) nam_rel_constr,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.POST_ERASE, sizeof(trigger34),
+		trigger34, TRG_ignore_perm, ODS_8_1,
+	"RDB$TRIGGER_35", (UCHAR) nam_chk_constr,
+		RDB$TRIGGERS.RDB$TRIGGER_TYPE.POST_ERASE, sizeof(trigger35),
+		trigger35, TRG_ignore_perm, ODS_8_1,
+	0, 0, 0, 0, 0, 0
+};
+
+
+/* this table is used in defining messages for system triggers */
+
+static CONST TRIGMSG FAR_VARIABLE trigger_messages[] =
+{
+	"RDB$TRIGGER_9", 0, "grant_obj_notfound", ODS_8_0,
+	"RDB$TRIGGER_9", 1, "grant_fld_notfound", ODS_8_0,
+	"RDB$TRIGGER_9", 2, "grant_nopriv", ODS_8_0,
+	"RDB$TRIGGER_9", 3, "nonsql_security_rel", ODS_8_0,
+	"RDB$TRIGGER_9", 4, "nonsql_security_fld", ODS_8_0,
+	"RDB$TRIGGER_9", 5, "grant_nopriv_on_base", ODS_8_0,
+	"RDB$TRIGGER_1", 0, "existing_priv_mod", ODS_8_0,
+	"RDB$TRIGGER_2", 0, "systrig_update", ODS_8_0,
+	"RDB$TRIGGER_3", 0, "systrig_update", ODS_8_0,
+	"RDB$TRIGGER_5", 0, "not_rel_owner", ODS_8_0,
+	"RDB$TRIGGER_24", 1, "cnstrnt_fld_rename", ODS_8_0,
+	"RDB$TRIGGER_23", 1, "cnstrnt_fld_del", ODS_8_0,
+	"RDB$TRIGGER_22", 1, "check_trig_update", ODS_8_0,
+	"RDB$TRIGGER_21", 1, "check_trig_del", ODS_8_0,
+	"RDB$TRIGGER_20", 1, "integ_index_mod", ODS_8_0,
+	"RDB$TRIGGER_20", 2, "integ_index_deactivate", ODS_8_0,
+	"RDB$TRIGGER_20", 3, "integ_deactivate_primary", ODS_8_0,
+	"RDB$TRIGGER_19", 1, "integ_index_del", ODS_8_0,
+	"RDB$TRIGGER_18", 1, "integ_index_seg_mod", ODS_8_0,
+	"RDB$TRIGGER_17", 1, "integ_index_seg_del", ODS_8_0,
+	"RDB$TRIGGER_15", 1, "check_cnstrnt_del", ODS_8_0,
+	"RDB$TRIGGER_14", 1, "check_cnstrnt_update", ODS_8_0,
+	"RDB$TRIGGER_13", 1, "ref_cnstrnt_update", ODS_8_0,
+	"RDB$TRIGGER_12", 1, "ref_cnstrnt_notfound", ODS_8_0,
+	"RDB$TRIGGER_12", 2, "foreign_key_notfound", ODS_8_0,
+	"RDB$TRIGGER_10", 1, "primary_key_ref", ODS_8_0,
+	"RDB$TRIGGER_10", 2, "primary_key_notnull", ODS_8_0,
+	"RDB$TRIGGER_25", 1, "rel_cnstrnt_update", ODS_8_0,
+	"RDB$TRIGGER_26", 1, "constaint_on_view", ODS_8_0,
+	"RDB$TRIGGER_26", 2, "invld_cnstrnt_type", ODS_8_0,
+	"RDB$TRIGGER_26", 3, "primary_key_exists", ODS_8_0,
+	"RDB$TRIGGER_31", 0, "no_write_user_priv", ODS_8_1,
+	"RDB$TRIGGER_32", 0, "no_write_user_priv", ODS_8_1,
+	"RDB$TRIGGER_33", 0, "no_write_user_priv", ODS_8_1,
+	0, 0, 0, 0
+};
+
+
+
+void INI_format(TEXT* owner)
+{
+/**************************************
+ *
+ *	I N I _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize system relations in the database.
+ *	The full complement of metadata should be
+ *	stored here.
+ *
+ **************************************/
+	TDBB			tdbb;
+	DBB				dbb;
+	int				n;
+	CONST RTYP*		type;
+	CONST UCHAR*	relfld;
+	CONST UCHAR*	fld;
+	GFLD*			gfield;
+	CONST TRG*		trigger;
+	CONST TRIGMSG*	message;
+	CONST GEN*		generator;
+	TEXT			string[32];
+	TEXT*			p;
+	BLK				handle1;
+	BLK				handle2;
+
+	UCHAR*			acl;
+	UCHAR			buffer[MAX_ACL_SIZE];
+	TEXT*			p_1;
+	USHORT			length;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* Uppercase owner name */
+
+	*string = 0;
+	if (owner && *owner)
+	{
+		p = string;
+		while (*p++ = UPPER7(*owner))
+		{
+			++owner;
+		}
+	}
+
+/* Make sure relations exist already */
+
+	for (n = 0; n < (int) rel_MAX; n++) {
+		DPM_create_relation(tdbb, MET_relation(tdbb, (USHORT)n));
+	}
+
+/* Store RELATIONS and RELATION_FIELDS */
+
+	handle1 = handle2 = NULL;
+	for (relfld = relfields; relfld[RFLD_R_NAME]; relfld = fld + 1)
+	{
+		for (n = 0, fld = relfld + RFLD_RPT; fld[RFLD_F_NAME];
+			 fld += RFLD_F_LENGTH)
+		{
+			if (!fld[RFLD_F_MINOR])
+			{
+				UCHAR* pFld    = (UCHAR*) fld;		/* const_cast */
+				UCHAR* pRelFld = (UCHAR*) relfld;	/* const_cast */
+				store_relation_field(tdbb, pFld, pRelFld, n, &handle2, TRUE);
+				n++;
+			}
+		}
+
+		STORE(REQUEST_HANDLE handle1) X IN RDB$RELATIONS
+			X.RDB$RELATION_ID = relfld[RFLD_R_ID];
+			PAD(names[relfld[RFLD_R_NAME]], X.RDB$RELATION_NAME);
+			X.RDB$FIELD_ID = n;
+			X.RDB$FORMAT = 0;
+			X.RDB$SYSTEM_FLAG = RDB_system;
+			X.RDB$DBKEY_LENGTH = 8;
+			X.RDB$OWNER_NAME.NULL = TRUE;
+
+			if (*string)
+			{
+				PAD(string, X.RDB$OWNER_NAME);
+				X.RDB$OWNER_NAME.NULL = FALSE;
+			}
+
+		END_STORE;
+	}
+
+	CMP_release(tdbb, (REQ)handle1);
+	CMP_release(tdbb, (REQ)handle2);
+	handle1 = handle2 = NULL;
+
+/* Store global FIELDS */
+
+	for (gfield = (GFLD*) gfields; gfield->gfld_name; gfield++)
+	{
+		store_global_field(tdbb, gfield, &handle1);
+	}
+
+	CMP_release(tdbb, (REQ)handle1);
+	handle1 = NULL;
+
+	STORE(REQUEST_HANDLE handle1) X IN RDB$DATABASE
+		X.RDB$RELATION_ID = (int) USER_DEF_REL_INIT_ID;
+	END_STORE
+
+	CMP_release(tdbb, (REQ)handle1);
+	handle1 = NULL;
+
+/* Create indices for system relations */
+	add_index_set(dbb, FALSE, 0, 0);
+
+/* Create parameter types */
+
+	handle1 = NULL;
+
+	for (type = types; type->rtyp_name; ++type)
+	{
+		STORE(REQUEST_HANDLE handle1) X IN RDB$TYPES
+			PAD(names[type->rtyp_field], X.RDB$FIELD_NAME);
+			PAD(type->rtyp_name, X.RDB$TYPE_NAME);
+			X.RDB$TYPE = type->rtyp_value;
+			X.RDB$SYSTEM_FLAG = RDB_system;
+		END_STORE;
+	}
+
+	CMP_release(tdbb, (REQ)handle1);
+
+/* Store symbols for international character sets & collations */
+
+	store_intlnames(tdbb, dbb);
+
+/* Create generators to be used by system triggers */
+
+	handle1 = NULL;
+	for (generator = generators; generator->gen_name; generator++)
+	{
+		store_generator(tdbb, generator, &handle1);
+	}
+	CMP_release(tdbb, (REQ)handle1);
+
+/* store system-defined triggers */
+
+	handle1 = NULL;
+	for (trigger = triggers; trigger->trg_relation; ++trigger)
+	{
+		store_trigger(tdbb, trigger, &handle1);
+	}
+	CMP_release(tdbb, (REQ)handle1);
+
+/* store trigger messages to go with triggers */
+
+	handle1 = NULL;
+	for (message = trigger_messages; message->trigmsg_name; ++message)
+	{
+		store_message(tdbb, message, &handle1);
+	}
+	CMP_release(tdbb, (REQ)handle1);
+
+	DFW_perform_system_work();
+
+	add_relation_fields(0);
+
+/*
+====================================================================
+==
+== Add security on RDB$ROLES system table
+==
+======================================================================
+*/
+
+	acl = buffer;
+	*acl++ = ACL_version;
+	*acl++ = ACL_id_list;
+	*acl++ = id_person;
+	p_1 = string;
+	length = strlen(string);
+	*acl++ = (UCHAR)length;
+	if (length)
+	{
+		do {
+			*acl++ = *p_1++;
+		} while (--length);
+	}
+	*acl++ = ACL_end;
+	*acl++ = ACL_priv_list;
+	*acl++ = priv_protect;
+	*acl++ = priv_control;
+	*acl++ = priv_delete;
+	*acl++ = priv_write;
+	*acl++ = priv_read;
+	*acl++ = ACL_end;
+	*acl++ = ACL_id_list;
+	*acl++ = ACL_end;
+	*acl++ = ACL_priv_list;
+	*acl++ = priv_read;
+	*acl++ = ACL_end;
+	*acl++ = ACL_end;
+	length = acl - buffer;
+
+	add_security_to_sys_rel(tdbb, string, "RDB$ROLES", buffer, length);
+
+}
+
+
+USHORT INI_get_trig_flags(TEXT* trig_name)
+{
+/*********************************************
+ *
+ *      I N I _ g e t _ t r i g _ f l a g s
+ *
+ *********************************************
+ *
+ * Functional description
+ *      Return the trigger flags for a system trigger.
+ *
+ **************************************/
+	CONST TRG* trig;
+
+	for (trig = triggers; trig->trg_length > 0; trig++)
+	{
+		if (!strcmp(trig->trg_name, trig_name))
+		{
+			return (trig->trg_flags);
+		}
+	}
+
+	return (0);
+}
+
+
+void INI_init(void)
+{
+/**************************************
+ *
+ *	I N I _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize in memory meta data.  Assume that all meta data
+ *	fields exist in the database even if this is not the case.
+ *	Do not fill in the format length or the address in each
+ *	format descriptor.
+ *
+ **************************************/
+	DBB				dbb;
+	REL				relation;
+	FMT				format;
+	FLD*			field;
+	VEC				formats;
+	VEC				fields;
+	int				n;
+	CONST UCHAR*	relfld;
+	CONST UCHAR*	fld;
+	DSC*			desc;
+	CONST GFLD*		gfield;
+	CONST TRG*		trigger;
+	TDBB			tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	for (relfld = relfields; relfld[RFLD_R_NAME]; relfld = fld + 1)
+	{
+		relation = MET_relation(tdbb, relfld[RFLD_R_ID]);
+		relation->rel_flags |= REL_system;
+		relation->rel_name = (/* const_cast */ TEXT*)names[relfld[RFLD_R_NAME]];
+		relation->rel_length = strlen(relation->rel_name);
+		n = 0;
+		for (fld = relfld + RFLD_RPT; fld[RFLD_F_NAME]; fld += RFLD_F_LENGTH)
+		{
+			n++;
+		}
+
+		/* Set a flag if their is a trigger on the relation.  Later we may
+		   need to compile it. */
+
+		for (trigger = triggers; trigger->trg_relation; trigger++)
+		{
+			if (relation->rel_name == names[trigger->trg_relation])
+			{
+				relation->rel_flags |= REL_sys_triggers;
+				break;
+			}
+		}
+
+		relation->rel_fields = fields = (VEC) ALLOCPV(type_vec, n);
+		fields->vec_count = n;
+		field = (FLD *) fields->vec_object;
+		relation->rel_current_format = format = (FMT) ALLOCPV(type_fmt, n);
+		relation->rel_formats = formats = (VEC) ALLOCPV(type_vec, 1);
+		formats->vec_count = 1;
+		formats->vec_object[0] = (BLK) format;
+		format->fmt_count = n;
+		desc = format->fmt_desc;
+
+		for (fld = relfld + RFLD_RPT; fld[RFLD_F_NAME];
+			 fld += RFLD_F_LENGTH, desc++, field++)
+		{
+			gfield = &gfields[fld[RFLD_F_ID]];
+			desc->dsc_length = gfield->gfld_length;
+			desc->dsc_dtype = gfield->gfld_dtype;
+			*field = (FLD) ALLOCPV(type_fld, 0);
+			(*field)->fld_name = names[fld[RFLD_F_NAME]];
+			(*field)->fld_length = strlen((*field)->fld_name);
+		}
+	}
+}
+
+
+void INI_init2(void)
+{
+/**************************************
+ *
+ *	I N I _ i n i t 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Re-initialize in memory meta data.  Fill in
+ *	format 0 based on the minor ODS version of
+ *	the database when it was created.
+ *
+ **************************************/
+	REL				relation;
+	FMT				format;
+	int				n;
+	CONST UCHAR*	relfld;
+	CONST UCHAR*	fld;
+	DSC*			desc;
+	TDBB			tdbb;
+	USHORT			major_version;
+	USHORT			minor_original;
+	USHORT			id;
+	register VEC	vector;
+	DBB				dbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	major_version = (SSHORT) dbb->dbb_ods_version;
+	minor_original = (SSHORT) dbb->dbb_minor_original;
+	vector = dbb->dbb_relations;
+
+	for (relfld = relfields; relfld[RFLD_R_NAME]; relfld = fld + 1)
+	{
+		if (relfld[RFLD_R_MINOR] > ENCODE_ODS(major_version, minor_original))
+		{
+		/*****************************************************
+        **
+        ** free the space allocated for RDB$ROLES
+        **
+        ******************************************************/
+			id = relfld[RFLD_R_ID];
+			relation = (REL)vector->vec_object[id];
+			ALL_release((FRB)relation->rel_current_format);
+			ALL_release((FRB)relation->rel_formats);
+			ALL_release((FRB)relation->rel_fields);
+			vector->vec_object[id] = NULL;
+			fld = relfld + RFLD_RPT;
+			while (fld[RFLD_F_NAME])
+			{
+				fld += RFLD_F_LENGTH;
+			}
+		}
+		else
+		{
+			relation = MET_relation(tdbb, relfld[RFLD_R_ID]);
+			format = relation->rel_current_format;
+
+			for (n = 0, fld = relfld + RFLD_RPT; fld[RFLD_F_NAME];
+				 fld += RFLD_F_LENGTH)
+			{
+				/* If the ODS is less than 10, then remove all fields named
+				 * RDB$FIELD_PRECISION and field RDB$CHARACTER_LENGTH from
+				 * relation RDB$FUNCTION_ARGUMENTS , as they were not present
+				 * in < 10 ODS
+				 */
+				if (fld[RFLD_F_NAME] == nam_f_precision ||
+					(fld[RFLD_F_NAME] == nam_char_length &&
+					 relfld[RFLD_R_NAME] == nam_args))
+				{
+					if (major_version >= ODS_VERSION10)
+					{
+						if (!fld[RFLD_F_MINOR])
+						{
+							n++;
+							if (fld[RFLD_F_UPD_MINOR])
+								relation->rel_flags |= REL_force_scan;
+						}
+						else
+						{
+							relation->rel_flags |= REL_force_scan;
+						}
+					}
+				}
+				else
+				{
+					if (!fld[RFLD_F_MINOR])
+					{
+						n++;
+						if (fld[RFLD_F_UPD_MINOR])
+							relation->rel_flags |= REL_force_scan;
+					}
+					else
+					{
+						relation->rel_flags |= REL_force_scan;
+					}
+				}
+			}
+
+			relation->rel_fields->vec_count = n;
+			format->fmt_count = n;
+			format->fmt_length = (USHORT)FLAG_BYTES(n);
+			desc = format->fmt_desc;
+			for (fld = relfld + RFLD_RPT; fld[RFLD_F_NAME];
+				 fld += RFLD_F_LENGTH, desc++)
+			{
+				if (n-- > 0)
+				{
+					format->fmt_length = (USHORT)MET_align(desc, format->fmt_length);
+					desc->dsc_address = (UCHAR*) (SLONG) format->fmt_length;
+					format->fmt_length += desc->dsc_length;
+				}
+			}
+		}
+	}
+}
+
+
+TRG* INI_lookup_sys_trigger(REL				relation,
+							TRG*			trigger,
+							CONST UCHAR**	blr,
+							UCHAR*			trigger_type,
+							CONST SCHAR**	trigger_name,
+							USHORT*			trig_flags)
+{
+/**************************************
+ *
+ *	I N I _ l o o k u p _ s y s _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup the next trigger for a system relation.
+ *
+ **************************************/
+
+	trigger = (trigger) ? trigger + 1 : triggers;
+
+	for (; trigger->trg_relation; trigger++)
+	{
+		if (!strcmp(relation->rel_name, names[trigger->trg_relation]))
+		{
+			*blr = trigger->trg_blr;
+			*trigger_type = trigger->trg_type;
+			*trigger_name = trigger->trg_name;
+			*trig_flags = trigger->trg_flags;
+			return trigger;
+		}
+	}
+
+	return NULL;
+}
+
+
+void INI_update_database(void)
+{
+/**************************************
+ *
+ *	I N I _ u p d a t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform changes to ODS that were required 
+ *	since ODS 8 and are dynamically updatable.
+ *
+ * %% Note %% Update the switch() statement to reflect new major ODS 
+ *            addition
+ **************************************/
+	DBB dbb;
+	HDR header;
+	WIN window;
+	USHORT major_version, minor_version;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef READONLY_DATABASE
+/* If database is ReadOnly, return without upgrading ODS */
+	if (dbb->dbb_flags & DBB_read_only)
+		return;
+#endif
+
+/* check out the update version to see if we have work to do */
+
+	major_version = (SSHORT) dbb->dbb_ods_version;
+	minor_version = (SSHORT) dbb->dbb_minor_version;
+
+/*******************************************************************
+** when old engine is attaching a newer ODS database, do nothing
+********************************************************************/
+
+/* if database ODS is less than the server's, then upgrade */
+	if (ENCODE_ODS(major_version, minor_version) >= ODS_CURRENT_VERSION)
+	{
+		return;
+	}
+
+/*******************************************************************
+** when new engine is attaching an older ODS database 
+**   perform the necessary modifications
+********************************************************************/
+
+	if (major_version == ODS_VERSION8)
+	{
+	/*** NOTE: The following two functions/structures need to understand
+               the difference between major ODS versions. The structure
+               which holds their information needs to have an additional field
+               to define which major ODS version they belong to.
+               PENDING WORK.
+                 add_global_fields (major_version, minor_version);
+                 add_relation_fields (major_version, minor_version);
+               Look at add_new_triggers() for reference.
+     ***/
+
+		add_global_fields(minor_version);
+		add_relation_fields(minor_version);
+	}
+
+	add_index_set(dbb, TRUE, major_version, minor_version);
+	add_new_triggers(major_version, minor_version);
+
+	/* if the database was updated; mark it with the current ODS minor
+	   version so other process will attempt to do so. We mark this after
+	   doing the update so that no other process can see the new minor
+	   version but not the update. */
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK(tdbb, &window);
+
+/* Only minor upgrades can occur within a major ODS, define which one   
+   occured here. */
+	switch (major_version)
+	{
+	case ODS_VERSION8:
+		header->hdr_ods_minor = ODS_CURRENT8;
+		break;
+	case ODS_VERSION9:
+		header->hdr_ods_minor = ODS_CURRENT9;
+		break;
+	case ODS_VERSION10:
+		header->hdr_ods_minor = ODS_CURRENT10;
+		break;
+	default:
+		/* Make sure we add a new case per new major ODS. Look at code above */
+		assert(FALSE);
+		header->hdr_ods_minor = minor_version;
+		break;
+	}
+
+	dbb->dbb_minor_version = header->hdr_ods_minor;
+	CCH_RELEASE(tdbb, &window);
+
+	DFW_perform_system_work();
+}
+
+
+static void add_generator(TEXT* generator_name, BLK* handle)
+{
+/**************************************
+ *
+ *	a d d _ g e n e r a t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a generator of the given name.
+ *	This routine is used to upgrade ODS versions.
+ *	DO NOT DELETE, even though it is not used
+ *	now, since it may be used when we go to 8.1.
+ *
+ **************************************/
+	TDBB tdbb;
+	CONST GEN* generator = generators;
+
+	tdbb = GET_THREAD_DATA;
+
+/* find the new generator to be stored; assume it exists in the table */
+/* TMN: If it doesn't exist in the table, we will CRASH here! */
+
+	while (strcmp(generator->gen_name, generator_name))
+	{
+		++generator;
+	}
+
+	store_generator(tdbb, generator, handle);
+}
+
+
+static void add_global_fields( USHORT minor_version)
+{
+/**************************************
+ *
+ *	a d d _ g l o b a l _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add any global fields which have a non-zero
+ *	update number in the fields table.  That
+ *	is, those that have been added since the last
+ *	ODS change.
+ *
+ **************************************/
+	TDBB tdbb;
+	BLK handle;
+	GFLD*gfield;
+
+	tdbb = GET_THREAD_DATA;
+
+/* add desired global fields to system relations  */
+
+	handle = NULL;
+	for (gfield = (GFLD*) gfields; gfield->gfld_name; gfield++)
+	{
+		if (minor_version < gfield->gfld_minor)
+		{
+			store_global_field(tdbb, gfield, &handle);
+		}
+	}
+
+	if (handle) {
+		CMP_release(tdbb, (REQ)handle);
+	}
+
+	DFW_perform_system_work();
+}
+
+
+static void add_index_set(DBB		dbb,
+						  USHORT	update_ods,
+						  USHORT	major_version,
+						  USHORT	minor_version)
+{
+/**************************************
+ *
+ *	a d d _ i n d e x _ s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add system indices.  If update_ods is TRUE we are performing
+ *	an ODS update, and only add the indices marked as newer than
+ *	ODS (major_version,minor_version).
+ *
+ **************************************/
+	TDBB	tdbb;
+	REL		relation;
+	TEXT	string[32];
+	CONST struct ini_idx_t*	index;
+	CONST struct ini_idx_segment_t*segment;
+	IDX		idx;
+	struct idx_repeat* tail;
+	USHORT	position;
+	FLD		field;
+	float	selectivity;
+	BLK		handle1;
+	BLK		handle2;
+	USHORT	n;
+
+	tdbb = GET_THREAD_DATA;
+	handle1 = handle2 = NULL;
+
+	for (n = 0; n < SYSTEM_INDEX_COUNT; n++)
+	{
+		index = &indices[n];
+
+		/* For minor ODS updates, only add indices newer than on-disk ODS */
+		if (update_ods &&
+			((index->ini_idx_version_flag <=
+				ENCODE_ODS(major_version, minor_version)) ||
+			 (index->ini_idx_version_flag > ODS_CURRENT_VERSION) ||
+			 (((USHORT) DECODE_ODS_MAJOR(index->ini_idx_version_flag)) !=
+			  major_version)))
+		{
+			/* The DECODE_ODS_MAJOR() is used (in this case) to instruct the server 
+			   to perform updates for minor ODS versions only within a major ODS */
+			continue;
+		}
+
+		STORE(REQUEST_HANDLE handle1) X IN RDB$INDICES
+			relation = MET_relation(tdbb, index->ini_idx_relid);
+			PAD(relation->rel_name, X.RDB$RELATION_NAME);
+			sprintf(string, "RDB$INDEX_%d", index->ini_idx_index_id);
+			PAD(string, X.RDB$INDEX_NAME);
+			X.RDB$UNIQUE_FLAG = index->ini_idx_unique_flag;
+			X.RDB$SEGMENT_COUNT = index->ini_idx_segment_count;
+			X.RDB$SYSTEM_FLAG = 1;
+			X.RDB$INDEX_INACTIVE = 0;
+
+			/* Store each segment for the index */
+
+			for (position = 0, tail = idx.idx_rpt;
+				 position < index->ini_idx_segment_count; position++, tail++)
+			{
+				segment = &index->ini_idx_segment[position];
+				STORE(REQUEST_HANDLE handle2) Y IN RDB$INDEX_SEGMENTS
+					field =
+						(FLD) relation->rel_fields->
+									vec_object[segment->ini_idx_rfld_id];
+
+					Y.RDB$FIELD_POSITION = position;
+					PAD(X.RDB$INDEX_NAME, Y.RDB$INDEX_NAME);
+					PAD(field->fld_name, Y.RDB$FIELD_NAME);
+					tail->idx_field = segment->ini_idx_rfld_id;
+					tail->idx_itype = segment->ini_idx_type;
+				END_STORE;
+			}
+			idx.idx_count = index->ini_idx_segment_count;
+			idx.idx_flags = index->ini_idx_unique_flag;
+			IDX_create_index(tdbb, relation, &idx, string, NULL_PTR, NULL_PTR,
+							 &selectivity);
+			X.RDB$INDEX_ID = idx.idx_id + 1;
+		END_STORE;
+
+	}
+	if (handle1) {
+		CMP_release(tdbb, (REQ)handle1);
+	}
+	if (handle2) {
+		CMP_release(tdbb, (REQ)handle2);
+	}
+}
+
+
+static void add_new_triggers(USHORT major_version, USHORT minor_version)
+{
+/**************************************
+ *
+ *	a d d _ n e w _ t r i g g e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store all new ODS 8.x (x > 0) triggers. 
+ *      The major and minor_version passed in are the ODS versions
+ *      before the ODS is upgraded. 
+ *	This routine is used to upgrade ODS versions.
+ *
+ **************************************/
+	TDBB			tdbb;
+	CONST TRG*		trig;
+	CONST TRIGMSG*	message;
+	BLK				handle1;
+	BLK				handle2;
+
+	tdbb = GET_THREAD_DATA;
+
+	handle1 = handle2 = NULL;
+
+/* add all new triggers, that were added since the database was created */
+	for (trig = triggers; trig->trg_length > 0; trig++)
+	{
+		if ((trig->trg_ods_version > ENCODE_ODS(major_version, minor_version))
+			&& (DECODE_ODS_MAJOR(trig->trg_ods_version) == major_version))
+		{
+			store_trigger(tdbb, trig, &handle1);
+		}
+	}
+
+	for (message = trigger_messages; message->trigmsg_name; message++)
+	{
+		if ((message->trg_ods_version >
+				ENCODE_ODS(major_version, minor_version)) &&
+			(DECODE_ODS_MAJOR(message->trg_ods_version) == major_version))
+		{
+			store_message(tdbb, message, &handle2);
+		}
+	}
+
+	if (handle1) {
+		CMP_release(tdbb, (REQ)handle1);
+	}
+	if (handle2) {
+		CMP_release(tdbb, (REQ)handle2);
+	}
+}
+
+
+static void add_relation_fields( USHORT minor_version)
+{
+/**************************************
+ *
+ *	a d d _ r e l a t i o n _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add any local fields which have a non-zero
+ *	update number in the relfields table.  That
+ *	is, those that have been added since the last
+ *	ODS change.
+ *
+ **************************************/
+	TDBB			tdbb;
+	DBB				dbb;
+	DSC				desc;
+	BLK				s_handle;
+	BLK				m_handle;
+	CONST UCHAR*	fld;
+	CONST UCHAR*	relfld;
+	int				n;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* add desired fields to system relations, forcing a new format version */
+
+	s_handle = m_handle = NULL;
+	for (relfld = relfields; relfld[RFLD_R_NAME]; relfld = fld + 1)
+	{
+		for (n = 0, fld = relfld + RFLD_RPT; fld[RFLD_F_NAME];
+			 n++, fld += RFLD_F_LENGTH)
+		{
+			if (minor_version < fld[RFLD_F_MINOR] ||
+				minor_version < fld[RFLD_F_UPD_MINOR])
+			{
+				if (minor_version < fld[RFLD_F_MINOR])
+				{
+					store_relation_field(tdbb, fld, relfld, n, &s_handle,
+										 FALSE);
+				}
+				else
+				{
+					modify_relation_field(tdbb, fld, relfld, &m_handle);
+				}
+				desc.dsc_dtype = dtype_text;
+				INTL_ASSIGN_DSC(&desc, CS_METADATA, COLLATE_NONE);
+				desc.dsc_address = (UCHAR*) names[relfld[RFLD_R_NAME]];
+				desc.dsc_length = strlen(desc.dsc_address);
+				DFW_post_work(dbb->dbb_sys_trans, dfw_update_format, &desc, 0);
+			}
+		}
+	}
+
+	if (s_handle) {
+		CMP_release(tdbb, (REQ)s_handle);
+	}
+	if (m_handle) {
+		CMP_release(tdbb, (REQ)m_handle);
+	}
+
+	DFW_perform_system_work();
+}
+
+
+static void add_security_to_sys_rel(TDBB	tdbb,
+									TEXT*	user_name,
+									TEXT*	rel_name,
+									TEXT*	acl,
+									SSHORT	acl_length)
+{
+/**************************************
+ *
+ *      a d d _ s e c u r i t y _ t o _ s y s _ r e l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *      Add security to system relations. Only the owner of the 
+ *      database has SELECT/INSERT/UPDATE/DELETE privileges on
+ *      any system relations. Any other users only has SELECT
+ *      privilege.
+ *
+ **************************************/
+
+	DBB dbb;
+	GDS__QUAD blob_id_1, blob_id_2;
+	BLB blob;
+	BLK handle1;
+	TEXT sec_class_name[100];
+	TEXT default_class[32];
+	SSHORT cnt;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	strcpy(sec_class_name, "SQL$");
+	strcat(sec_class_name, rel_name);
+
+	blob = BLB_create(tdbb, dbb->dbb_sys_trans, (BID)&blob_id_1);
+	BLB_put_segment(tdbb, blob, acl, acl_length);
+	BLB_close(tdbb, blob);
+
+	blob = BLB_create(tdbb, dbb->dbb_sys_trans, (BID)&blob_id_2);
+	BLB_put_segment(tdbb, blob, acl, acl_length);
+	BLB_close(tdbb, blob);
+
+	sprintf(default_class, "%s%" QUADFORMAT "d\0", DEFAULT_CLASS,
+			DPM_gen_id(tdbb, MET_lookup_generator(tdbb, DEFAULT_CLASS),
+					   0, (SINT64) 1));
+
+	for (cnt = 0; cnt < 6; cnt++)
+	{
+		handle1 = NULL;
+
+		STORE(REQUEST_HANDLE handle1) PRIV IN RDB$USER_PRIVILEGES
+			switch (cnt)
+		{
+			case 0:
+				strcpy(PRIV.RDB$USER, user_name);
+				PRIV.RDB$PRIVILEGE[0] = 'S';
+				PRIV.RDB$GRANT_OPTION = 1;
+				break;
+			case 1:
+				strcpy(PRIV.RDB$USER, user_name);
+				PRIV.RDB$PRIVILEGE[0] = 'I';
+				PRIV.RDB$GRANT_OPTION = 1;
+				break;
+			case 2:
+				strcpy(PRIV.RDB$USER, user_name);
+				PRIV.RDB$PRIVILEGE[0] = 'U';
+				PRIV.RDB$GRANT_OPTION = 1;
+				break;
+			case 3:
+				strcpy(PRIV.RDB$USER, user_name);
+				PRIV.RDB$PRIVILEGE[0] = 'D';
+				PRIV.RDB$GRANT_OPTION = 1;
+				break;
+			case 4:
+				strcpy(PRIV.RDB$USER, user_name);
+				PRIV.RDB$PRIVILEGE[0] = 'R';
+				PRIV.RDB$GRANT_OPTION = 1;
+				break;
+			default:
+				strcpy(PRIV.RDB$USER, "PUBLIC");
+				PRIV.RDB$PRIVILEGE[0] = 'S';
+				PRIV.RDB$GRANT_OPTION = 0;
+				break;
+			}
+			strcpy(PRIV.RDB$GRANTOR, user_name);
+			PRIV.RDB$PRIVILEGE[1] = 0;
+			strcpy(PRIV.RDB$RELATION_NAME, rel_name);
+			PRIV.RDB$FIELD_NAME.NULL = TRUE;
+			PRIV.RDB$USER_TYPE = obj_user;
+			PRIV.RDB$OBJECT_TYPE = obj_relation;
+		END_STORE;
+
+		CMP_release(tdbb, (REQ)handle1);
+	}
+
+	handle1 = NULL;
+
+	STORE(REQUEST_HANDLE handle1)
+		CLS IN RDB$SECURITY_CLASSES
+        jrd_vtof(sec_class_name, CLS.RDB$SECURITY_CLASS,
+                 sizeof(CLS.RDB$SECURITY_CLASS));
+		CLS.RDB$ACL = blob_id_1;
+	END_STORE;
+
+	CMP_release(tdbb, (REQ)handle1);
+
+	handle1 = NULL;
+
+	STORE(REQUEST_HANDLE handle1)
+		CLS IN RDB$SECURITY_CLASSES
+        jrd_vtof(default_class, CLS.RDB$SECURITY_CLASS,
+                 sizeof(CLS.RDB$SECURITY_CLASS));
+		CLS.RDB$ACL = blob_id_2;
+	END_STORE;
+
+	CMP_release(tdbb, (REQ)handle1);
+
+	handle1 = NULL;
+
+	FOR(REQUEST_HANDLE handle1) REL IN RDB$RELATIONS
+		WITH REL.RDB$RELATION_NAME EQ rel_name
+		MODIFY REL USING
+			REL.RDB$DEFAULT_CLASS.NULL = FALSE;
+            jrd_vtof(default_class, REL.RDB$DEFAULT_CLASS,
+                     sizeof(REL.RDB$DEFAULT_CLASS));
+		END_MODIFY;
+
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)handle1);
+
+}
+
+
+static void add_trigger(TEXT* trigger_name, BLK* handle1, BLK* handle2)
+{
+/**************************************
+ *
+ *	a d d _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a trigger of the given name.
+ *	This routine is used to upgrade ODS versions.
+ *	DO NOT DELETE, even though it is not used
+ *	now, since it will be used when we go to 8.1.
+ *
+ **************************************/
+	TDBB			tdbb;
+	CONST TRG*		trigger;
+	CONST TRIGMSG*	message;
+
+	tdbb = GET_THREAD_DATA;
+
+/* Find the new trigger to be stored; assume it exists in the table */
+
+	trigger = triggers;
+	while (strcmp(trigger->trg_name, trigger_name))
+	{
+		++trigger;
+	}
+
+	store_trigger(tdbb, trigger, handle1);
+
+/* Look for any related trigger messages */
+
+	for (message = trigger_messages; message->trigmsg_name; ++message)
+	{
+		if (!strcmp(message->trigmsg_name, trigger->trg_name))
+		{
+			store_message(tdbb, message, handle2);
+		}
+	}
+}
+
+
+static void modify_relation_field(TDBB			tdbb,
+								  CONST UCHAR*	fld,
+								  CONST UCHAR*	relfld,
+								  BLK*			handle)
+{
+/**************************************
+ *
+ *	m o d i f y _ r e l a t i o n _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify a local field according to the 
+ *	passed information.  Note that the field id and
+ *	field position do not change.
+ *
+ **************************************/
+	DBB			dbb;
+	CONST GFLD*	gfield;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	FOR(REQUEST_HANDLE * handle) X IN RDB$RELATION_FIELDS WITH
+		X.RDB$RELATION_NAME EQ names[relfld[RFLD_R_NAME]] AND
+			X.RDB$FIELD_NAME EQ names[fld[RFLD_F_NAME]]
+		MODIFY X USING
+			gfield = &gfields[fld[RFLD_F_UPD_ID]];
+			PAD(names[gfield->gfld_name], X.RDB$FIELD_SOURCE);
+			X.RDB$UPDATE_FLAG = fld[RFLD_F_UPDATE];
+		END_MODIFY;
+	END_FOR;
+}
+
+
+static void store_generator(TDBB tdbb, CONST GEN* generator, BLK* handle)
+{
+/**************************************
+ *
+ *	s t o r e _ g e n e r a t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store the passed generator according to 
+ *	the information in the generator block.
+ *
+ **************************************/
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	STORE(REQUEST_HANDLE * handle) X IN RDB$GENERATORS
+		PAD(generator->gen_name, X.RDB$GENERATOR_NAME);
+		X.RDB$GENERATOR_ID = generator->gen_id;
+		X.RDB$SYSTEM_FLAG = RDB_system;
+	END_STORE;
+}
+
+
+static void store_global_field(TDBB tdbb, GFLD* gfield, BLK* handle)
+{
+/**************************************
+ *
+ *	s t o r e _ g l o b a l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a global field according to the 
+ *	passed information.
+ *
+ **************************************/
+	DBB dbb;
+	TRA trans;
+	struct blb *blob;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	trans = dbb->dbb_sys_trans;
+
+	STORE(REQUEST_HANDLE * handle) X IN RDB$FIELDS
+		PAD(names[gfield->gfld_name], X.RDB$FIELD_NAME);
+		X.RDB$FIELD_LENGTH = gfield->gfld_length;
+		X.RDB$FIELD_SCALE = 0;
+		X.RDB$SYSTEM_FLAG = RDB_system;
+		X.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+		X.RDB$CHARACTER_SET_ID.NULL = TRUE;
+		X.RDB$COLLATION_ID.NULL = TRUE;
+		X.RDB$SEGMENT_LENGTH.NULL = TRUE;
+		if (gfield->gfld_dflt_blr)
+		{
+			blob = BLB_create(tdbb, trans, (BID)&X.RDB$DEFAULT_VALUE);
+			BLB_put_segment(tdbb,
+							blob,
+							(UCHAR*)gfield->gfld_dflt_blr,
+							gfield->gfld_dflt_len);
+			BLB_close(tdbb, blob);
+			X.RDB$DEFAULT_VALUE.NULL = FALSE;
+		}
+		else
+		{
+			X.RDB$DEFAULT_VALUE.NULL = TRUE;
+		}
+		switch (gfield->gfld_dtype)
+		{
+		case dtype_timestamp:
+			X.RDB$FIELD_TYPE = (int) blr_timestamp;
+			break;
+
+		case dtype_sql_time:
+			X.RDB$FIELD_TYPE = (int) blr_sql_time;
+			break;
+
+		case dtype_sql_date:
+			X.RDB$FIELD_TYPE = (int) blr_sql_date;
+			break;
+
+		case dtype_short:
+		case dtype_long:
+		case dtype_int64:
+			if (gfield->gfld_dtype == dtype_short)
+				X.RDB$FIELD_TYPE = (int) blr_short;
+			else if (gfield->gfld_dtype == dtype_long)
+				X.RDB$FIELD_TYPE = (int) blr_long;
+			else
+				X.RDB$FIELD_TYPE = (int) blr_int64;
+			if ((gfield->gfld_sub_type == dsc_num_type_numeric) ||
+				(gfield->gfld_sub_type == dsc_num_type_decimal))
+			{
+				X.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+				X.RDB$FIELD_SUB_TYPE = gfield->gfld_sub_type;
+			}
+			break;
+
+		case dtype_double:
+			X.RDB$FIELD_TYPE = (int) blr_double;
+			break;
+
+		case dtype_text:
+		case dtype_varying:
+			if (gfield->gfld_dtype == dtype_text)
+			{
+				X.RDB$FIELD_TYPE = (int) blr_text;
+			}
+			else
+			{
+				X.RDB$FIELD_TYPE = (int) blr_varying;
+				X.RDB$FIELD_LENGTH -= sizeof(USHORT);
+			}
+			if (gfield->gfld_sub_type == dsc_text_type_metadata)
+			{
+				X.RDB$CHARACTER_SET_ID.NULL = FALSE;
+				X.RDB$CHARACTER_SET_ID = CS_METADATA;
+				X.RDB$COLLATION_ID.NULL = FALSE;
+				X.RDB$COLLATION_ID = COLLATE_NONE;
+				X.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+				X.RDB$FIELD_SUB_TYPE = gfield->gfld_sub_type;
+			}
+			else
+			{
+				X.RDB$CHARACTER_SET_ID.NULL = FALSE;
+				X.RDB$CHARACTER_SET_ID = CS_NONE;
+				X.RDB$COLLATION_ID.NULL = FALSE;
+				X.RDB$COLLATION_ID = COLLATE_NONE;
+			}
+			break;
+
+		case dtype_blob:
+			X.RDB$FIELD_TYPE = (int) blr_blob;
+			X.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+			X.RDB$SEGMENT_LENGTH.NULL = FALSE;
+			X.RDB$FIELD_SUB_TYPE = gfield->gfld_sub_type;
+			X.RDB$SEGMENT_LENGTH = 80;
+			if (gfield->gfld_sub_type == BLOB_text)
+			{
+				X.RDB$CHARACTER_SET_ID.NULL = FALSE;
+				X.RDB$CHARACTER_SET_ID = CS_METADATA;
+			}
+			break;
+
+		default:
+			assert(FALSE);
+			break;
+		}
+
+	END_STORE;
+}
+
+
+static void store_intlnames(TDBB tdbb, DBB dbb)
+{
+/**************************************
+ *
+ *	s t o r e _ i n t l n a m e s 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store symbolic names & information for international
+ *	character sets & collations.
+ *
+ **************************************/
+	CONST CS_TYPE*		csptr;
+	CONST COLL_TYPE*	collptr;
+	BLK					handle;
+
+	SET_TDBB(tdbb);
+
+	handle = NULL;
+	for (csptr = cs_types; csptr->init_charset_name; csptr++)
+	{
+		STORE(REQUEST_HANDLE handle) X IN RDB$CHARACTER_SETS USING
+			PAD(csptr->init_charset_name, X.RDB$CHARACTER_SET_NAME);
+			PAD(csptr->init_charset_name, X.RDB$DEFAULT_COLLATE_NAME);
+			X.RDB$CHARACTER_SET_ID = csptr->init_charset_id;
+			X.RDB$BYTES_PER_CHARACTER = csptr->init_charset_bytes_per_char;
+			X.RDB$SYSTEM_FLAG = RDB_system;
+		END_STORE;
+	}
+
+	CMP_release(tdbb, (REQ)handle);
+	handle = NULL;
+
+	for (collptr = coll_types; collptr->init_collation_name; collptr++)
+	{
+		STORE(REQUEST_HANDLE handle) X IN RDB$COLLATIONS USING
+			PAD(collptr->init_collation_name, X.RDB$COLLATION_NAME);
+			X.RDB$CHARACTER_SET_ID = collptr->init_collation_charset;
+			X.RDB$COLLATION_ID = collptr->init_collation_id;
+			X.RDB$SYSTEM_FLAG = RDB_system;
+		END_STORE;
+	}
+
+	CMP_release(tdbb, (REQ)handle);
+	handle = NULL;
+}
+
+
+static void store_message(TDBB tdbb, CONST TRIGMSG* message, BLK* handle)
+{
+/**************************************
+ *
+ *	s t o r e _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store system trigger messages.
+ *
+ **************************************/
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* store the trigger */
+
+	STORE(REQUEST_HANDLE * handle) X IN RDB$TRIGGER_MESSAGES
+		PAD(message->trigmsg_name, X.RDB$TRIGGER_NAME);
+		X.RDB$MESSAGE_NUMBER = message->trigmsg_number;
+		PAD(message->trigmsg_text, X.RDB$MESSAGE);
+	END_STORE;
+}
+
+
+static void store_relation_field(TDBB			tdbb,
+								 CONST UCHAR*	fld,
+								 CONST UCHAR*	relfld,
+								 int			field_id,
+								 BLK*			handle,
+								 int			fmt0_flag)
+{
+/**************************************
+ *
+ *	s t o r e _ r e l a t i o n _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a local field according to the 
+ *	passed information.
+ *
+ **************************************/
+	DBB			dbb;
+	CONST GFLD*	gfield;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	STORE(REQUEST_HANDLE * handle) X IN RDB$RELATION_FIELDS
+		gfield = (fld[RFLD_F_UPD_MINOR] && !fmt0_flag) ?
+			&gfields[fld[RFLD_F_UPD_ID]] : &gfields[fld[RFLD_F_ID]];
+		PAD(names[relfld[RFLD_R_NAME]], X.RDB$RELATION_NAME);
+		PAD(names[fld[RFLD_F_NAME]], X.RDB$FIELD_NAME);
+		PAD(names[gfield->gfld_name], X.RDB$FIELD_SOURCE);
+		X.RDB$FIELD_POSITION = field_id;
+		X.RDB$FIELD_ID = field_id;
+		X.RDB$SYSTEM_FLAG = RDB_system;
+		X.RDB$UPDATE_FLAG = fld[RFLD_F_UPDATE];
+	END_STORE;
+}
+
+
+static void store_trigger(TDBB tdbb, CONST TRG* trigger, BLK* handle)
+{
+/**************************************
+ *
+ *	s t o r e _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store the trigger according to the 
+ *	information in the trigger block.
+ *
+ **************************************/
+	DBB dbb;
+	TRA trans;
+	DSC desc;
+	struct blb *blob;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	trans = dbb->dbb_sys_trans;
+
+/* indicate that the relation format needs revising */
+
+	desc.dsc_dtype = dtype_text;
+	INTL_ASSIGN_DSC(&desc, CS_METADATA, COLLATE_NONE);
+	desc.dsc_address = (UCHAR*) names[trigger->trg_relation];
+	desc.dsc_length = strlen(desc.dsc_address);
+	DFW_post_work(trans, dfw_update_format, &desc, 0);
+
+/* store the trigger */
+
+	STORE(REQUEST_HANDLE * handle) X IN RDB$TRIGGERS
+		PAD(trigger->trg_name, X.RDB$TRIGGER_NAME);
+		PAD(names[trigger->trg_relation], X.RDB$RELATION_NAME);
+		X.RDB$TRIGGER_SEQUENCE = 0;
+		X.RDB$SYSTEM_FLAG = RDB_system;
+		X.RDB$TRIGGER_TYPE = trigger->trg_type;
+		X.RDB$FLAGS = trigger->trg_flags;
+		blob = BLB_create(tdbb, trans, (BID)&X.RDB$TRIGGER_BLR);
+		BLB_put_segment(tdbb,
+						blob,
+						(UCHAR*)trigger->trg_blr,
+						trigger->trg_length);
+		BLB_close(tdbb, blob);
+	END_STORE;
+}
diff --git a/src/jrd/ini.h b/src/jrd/ini.h
new file mode 100644
index 0000000000..c1a739dff9
--- /dev/null
+++ b/src/jrd/ini.h
@@ -0,0 +1,207 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		ini.h
+ *	DESCRIPTION:	Declarations for metadata initialization
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/* Note that this file is used by jrdmet.c in gpre 
+   as well as by ini.e in JRD.  Make sure that any
+   changes are compatible in both places. */
+
+#include "../jrd/intl.h"
+#include "../intl/country_codes.h"
+#include "../intl/charsets.h"
+
+/* Define name ids */
+
+#define NAME(name, id) id,
+
+typedef ENUM nam_i { nam_MIN,
+#include "../jrd/names.h"
+nam_MAX} name_ids;
+
+#undef NAME
+
+/* Define name strings */
+
+#define NAME(name, id) name,
+
+static CONST TEXT* CONST FAR_VARIABLE names[] =
+{
+	0,
+#include "../jrd/names.h"
+};
+#undef NAME
+
+
+/* Pick up global ids */
+
+
+#define FIELD(type,name,dtype,length,sub_type,ods,dflt_blr)	type,
+typedef ENUM gflds {
+#include "../jrd/fields.h"
+gfld_MAX} GFLDS;
+#undef FIELD
+
+/* Pick up actual global fields */
+
+#ifndef GPRE
+#define FIELD(type,name,dtype,length,sub_type,ods,dflt_blr)	(UCHAR) type, (UCHAR) name, dtype, length, sub_type, ods, dflt_blr, sizeof (dflt_blr),
+#else
+#define FIELD(type,name,dtype,length,sub_type,ods,dflt_blr)	(UCHAR) type, (UCHAR) name, dtype, length, sub_type, ods, NULL, 0,
+#endif
+
+typedef struct gfld
+{
+	UCHAR gfld_type;
+	UCHAR gfld_name;
+	UCHAR gfld_dtype;
+	UCHAR gfld_length;
+	UCHAR gfld_sub_type;
+	UCHAR gfld_minor;
+	CONST UCHAR *gfld_dflt_blr;
+	USHORT gfld_dflt_len;
+} GFLD;
+
+static CONST struct gfld FAR_VARIABLE gfields[] = {
+#include "../jrd/fields.h"
+	0, 0, dtype_null, 0, 0, 0, NULL, 0
+};
+#undef FIELD
+
+
+/* Pick up relation ids */
+
+#define RELATION(name, id, ods) id,
+#define FIELD(symbol, name, id, update, ods, upd_id, upd_ods)
+#define END_RELATION
+typedef ENUM rids {
+#include "../jrd/relations.h"
+rel_MAX} RIDS;
+#undef RELATION
+#undef FIELD
+#undef END_RELATION
+
+/* Pick up relations themselves */
+
+#define RELATION(name, id, ods)	(UCHAR) name,(UCHAR) id, ods,
+#define FIELD(symbol, name, id, update, ods, upd_id, upd_ods)\
+				(UCHAR) name, (UCHAR) id, update, ods, (UCHAR) upd_id, upd_ods,
+#define END_RELATION		0,
+
+#define RFLD_R_NAME	0
+#define RFLD_R_ID	1
+#define RFLD_R_MINOR	2
+#define RFLD_RPT	3
+
+#define RFLD_F_NAME	0
+#define RFLD_F_ID	1
+#define RFLD_F_UPDATE	2
+#define RFLD_F_MINOR	3
+#define RFLD_F_UPD_ID	4
+#define RFLD_F_UPD_MINOR 5
+#define RFLD_F_LENGTH	6
+
+static CONST UCHAR FAR_VARIABLE relfields[] =
+{
+#include "../jrd/relations.h"
+	0
+};
+
+#undef RELATION
+#undef FIELD
+#undef END_RELATION
+
+
+/* obtain field types */
+
+typedef struct rtyp {
+	CONST TEXT *rtyp_name;
+	SSHORT rtyp_value;
+	UCHAR rtyp_field;
+} RTYP;
+
+#define TYPE(text, type, field)	{ text, type, (UCHAR) field },
+
+#define CHARSET(name, cs_id, coll_id, bytes, num, s1, s2) \
+				{(name), (cs_id),   (UCHAR) nam_charset_name},
+#define CSALIAS(name, cs_id)	{(name), (cs_id),   (UCHAR) nam_charset_name},
+#define COLLATION(name, cc_id, cs_id, coll_id, sym)
+#define END_CHARSET
+
+static CONST RTYP FAR_VARIABLE types[] = {
+#include "../jrd/types.h"
+#include "../jrd/intlnames.h"
+	{NULL, 0, 0}
+};
+
+#undef TYPE
+#undef CHARSET
+#undef CSALIAS
+#undef COLLATION
+#undef END_CHARSET
+
+
+#ifndef GPRE
+/* obtain international names */
+
+typedef struct initcharset {
+	CONST UCHAR *init_charset_name;
+	SSHORT init_charset_id;
+	USHORT init_charset_bytes_per_char;
+} CS_TYPE;
+
+#define CHARSET(name, cs_id, coll_id, bytes, num, s1, s2) \
+	{ (CONST UCHAR *) (name), (cs_id), (bytes)},
+#define CSALIAS(name, cs_id)
+#define COLLATION(name, cc_id, cs_id, coll_id, sym)
+#define END_CHARSET
+
+static CONST CS_TYPE cs_types[] = {
+#include "../jrd/intlnames.h"
+	{NULL, 0, 0}
+};
+#undef CHARSET
+#undef CSALIAS
+#undef COLLATION
+#undef END_CHARSET
+
+typedef struct initcollation {
+	CONST UCHAR *init_collation_name;
+	SSHORT init_collation_charset;
+	SSHORT init_collation_id;
+} COLL_TYPE;
+
+#define CHARSET(name, cs_id, coll_id, bytes, num, s1, s2) \
+	{ (CONST UCHAR *) (name), (cs_id), (coll_id) },
+#define CSALIAS(name, cs_id)
+#define COLLATION(name, cc_id, cs_id, coll_id, sym) \
+	{ (CONST UCHAR *) (name), (cs_id), (coll_id) },
+#define END_CHARSET
+
+static CONST COLL_TYPE coll_types[] = {
+#include "../jrd/intlnames.h"
+	{NULL, 0, 0}
+};
+#undef CHARSET
+#undef CSALIAS
+#undef COLLATION
+#undef END_CHARSET
+#endif
diff --git a/src/jrd/ini_proto.h b/src/jrd/ini_proto.h
new file mode 100644
index 0000000000..e9a8ebf57b
--- /dev/null
+++ b/src/jrd/ini_proto.h
@@ -0,0 +1,44 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		ini_proto.h
+ *	DESCRIPTION:	Prototype header file for ini.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_INI_PROTO_H_
+#define _JRD_INI_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void INI_format(TEXT *);
+extern USHORT INI_get_trig_flags(TEXT *);
+extern void INI_init(void);
+extern void INI_init2(void);
+extern struct trg *INI_lookup_sys_trigger(struct rel *, struct trg *,
+										  CONST UCHAR**, UCHAR*, CONST SCHAR**,
+										  USHORT *);
+extern void INI_update_database(void);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_INI_PROTO_H_ */
diff --git a/src/jrd/intl.cpp b/src/jrd/intl.cpp
new file mode 100644
index 0000000000..a55609eead
--- /dev/null
+++ b/src/jrd/intl.cpp
@@ -0,0 +1,3045 @@
+/*************  history ************
+*
+*       COMPONENT: JRD  MODULE: INTL.C
+*       generated by Marion V2.5     2/6/90
+*       from dev              db        on 4-JAN-1995
+*****************************************************************
+*
+*       42 4711 3 11 17  tamlin   2001
+*       Added silly numbers before my name, and converted it to C++.
+*
+*       18850   daves   4-JAN-1995
+*       Fix gds__alloc usage
+*
+*       18837   deej    31-DEC-1994
+*       fixing up HARBOR_MERGE
+*
+*       18821   deej    27-DEC-1994
+*       HARBOR MERGE
+*
+*       18789   jdavid  19-DEC-1994
+*       Cast some functions
+*
+*       17508   jdavid  15-JUL-1994
+*       Bring it up to date
+*
+*       17500   daves   13-JUL-1994
+*       Bug 6645: Different calculation of partial keys
+*
+*       17202   katz    24-MAY-1994
+*       PC_PLATFORM requires the .dll extension
+*
+*       17191   katz    23-MAY-1994
+*       OS/2 requires the .dll extension
+*
+*       17180   katz    23-MAY-1994
+*       Define location of DLL on OS/2
+*
+*       17149   katz    20-MAY-1994
+*       In JRD, gds_arg_number arguments are SLONG's not int's
+*
+*       16633   daves   19-APR-1994
+*       Bug 6202: International licensing uses INTERNATIONAL product code
+*
+*       16555   katz    17-APR-1994
+*       The last argument of calls to ERR_post should be 0
+*
+*       16521   katz    14-APR-1994
+*       Borland C needs a decorated symbol to lookup
+*
+*       16403   daves   8-APR-1994 
+*       Bug 6441: Emit an error whenever transliteration from ttype_binary attempted
+*
+*       16141   katz    28-MAR-1994
+*       Don't declare return value from ISC_lookup_entrypoint as API_ROUTINE
+*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+*/
+
+
+/*
+ *      PROGRAM:        JRD Intl
+ *      MODULE:         intl.c
+ *      DESCRIPTION:    International text support routines
+ *
+ * copyright (c) 1992, 1993 by Borland International
+ */
+
+#include <string.h>
+#include "../jrd/ib_stdio.h"
+#include "../jrd/jrd.h"
+#include "../jrd/req.h"
+#include "../jrd/val.h"
+#include "../jrd/codes.h"
+#include "../jrd/intl.h"
+#include "../jrd/intlobj.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../intl/charsets.h"
+#include "../intl/country_codes.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/license.h"
+#ifdef INTL_BACKEND
+#include "../intl/ld_proto.h"
+#endif
+#include "../jrd/all_proto.h"
+#include "../jrd/cvt_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+#include "../jrd/flu_proto.h"
+#include "../jrd/fun_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/iberr_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/thd_proto.h"
+
+
+extern "C" {
+
+
+#ifdef DEV_BUILD
+
+#define isprintable(x)  ((((unsigned char)(x)) & 0x7F) >= ' ')
+
+#ifdef DEBUG_INTL
+#define INTL_TRACE(args)     gds__log args
+#else
+#define INTL_TRACE(args)
+#endif
+
+#define IS_TEXT(x)      (((x)->dsc_dtype == dtype_text)   ||\
+			 ((x)->dsc_dtype == dtype_varying)||\
+			 ((x)->dsc_dtype == dtype_cstring))
+#else
+#define INTL_TRACE(args)
+#endif
+
+#define TTYPE_TO_CHARSET(tt)    ((SSHORT)((tt) & 0x00FF))
+#define TTYPE_TO_COLLATION(tt)  ((SSHORT)((tt) >> 8))
+
+
+typedef unsigned char FILECHAR;
+typedef USHORT UNICODE;
+
+typedef USHORT fss_wchar_t;
+typedef int fss_size_t;
+
+static BOOLEAN all_spaces(TDBB, CHARSET_ID, BYTE *, USHORT, USHORT);
+static void common_8bit_init(CHARSET, USHORT, ASCII *, BYTE *, BYTE *,
+							 BYTE *);
+static void common_convert_init(CSCONVERT, USHORT, USHORT, FPTR_SHORT, BYTE *,
+								BYTE *);
+static USHORT cs_ascii_init(CHARSET, USHORT, USHORT);
+static USHORT cs_none_init(CHARSET, USHORT, USHORT);
+static USHORT cs_binary_init(CHARSET, USHORT, USHORT);
+static USHORT cs_unicode_fss_init(CHARSET, USHORT, USHORT);
+static USHORT cs_unicode_init(CHARSET, USHORT, USHORT);
+static USHORT cvt_ascii_utf_init(CSCONVERT, USHORT, USHORT);
+static USHORT cvt_none_to_unicode(CSCONVERT, WCHAR *, USHORT, UCHAR *, USHORT,
+								  SSHORT *, USHORT *);
+static USHORT cvt_ascii_to_unicode(CSCONVERT, WCHAR *, USHORT, UCHAR *,
+								   USHORT, SSHORT *, USHORT *);
+static USHORT cvt_unicode_to_ascii(CSCONVERT, NCHAR *, USHORT, WCHAR *,
+								   USHORT, SSHORT *, USHORT *);
+static void dump_hex(UCHAR *, USHORT);
+static void dump_latin(UCHAR *, USHORT);
+static void finish_texttype_init(TEXTTYPE, FPTR_VOID, STATUS *);
+static fss_size_t fss_mbtowc(fss_wchar_t *, UCHAR *, fss_size_t);
+static fss_size_t fss_wctomb(UCHAR *, fss_wchar_t);
+static USHORT internal_ch_copy(TEXTTYPE, UCHAR);
+static USHORT internal_ch_to_lower(TEXTTYPE, UCHAR);
+static USHORT internal_ch_to_upper(TEXTTYPE, UCHAR);
+static SSHORT internal_compare(TEXTTYPE, USHORT, UCHAR *, USHORT, UCHAR *);
+static USHORT internal_keylength(TEXTTYPE, USHORT);
+static SSHORT internal_mb_mbtowc(TEXTTYPE, WCHAR *, UCHAR *, USHORT);
+static SSHORT internal_nc_mbtowc(TEXTTYPE, WCHAR *, UCHAR *, USHORT);
+static SSHORT internal_str_copy(TEXTTYPE, USHORT, UCHAR *, USHORT, UCHAR *);
+static USHORT cvt_utffss_to_ascii(CSCONVERT, UCHAR *, USHORT, UCHAR *, USHORT,
+								  SSHORT *, USHORT *);
+static SSHORT internal_str_to_upper(TEXTTYPE, USHORT, UCHAR *, USHORT,
+									UCHAR *);
+static USHORT internal_string_to_key(TEXTTYPE, USHORT, UCHAR *, USHORT,
+									 UCHAR *, USHORT);
+static SSHORT internal_wc_mbtowc(TEXTTYPE, WCHAR *, UCHAR *, USHORT);
+static USHORT mb_to_wc(CSCONVERT, WCHAR *, USHORT, MBCHAR *, USHORT, SSHORT *,
+					   USHORT *);
+static USHORT nc_to_wc(CSCONVERT, WCHAR *, USHORT, UCHAR *, USHORT, SSHORT *,
+					   USHORT *);
+static BOOLEAN obj_init(USHORT, SSHORT, SSHORT, void *, FPTR_VOID, STATUS *);
+static void pad_spaces(TDBB, CHARSET_ID, BYTE *, USHORT);
+static USHORT ttype_ascii_init(TEXTTYPE, USHORT, USHORT);
+static USHORT ttype_none_init(TEXTTYPE, USHORT, USHORT);
+static USHORT ttype_binary_init(TEXTTYPE, USHORT, USHORT);
+static USHORT ttype_unicode_fss_init(TEXTTYPE, USHORT, USHORT);
+static USHORT wc_to_mb(CSCONVERT, MBCHAR *, USHORT, WCHAR *, USHORT, SSHORT *,
+					   USHORT *);
+static USHORT wc_to_nc(CSCONVERT, NCHAR *, USHORT, WCHAR *, USHORT, SSHORT *,
+					   USHORT *);
+static USHORT wc_to_wc(CSCONVERT, WCHAR *, USHORT, WCHAR *, USHORT, SSHORT *,
+					   USHORT *);
+
+#define INTL_TEXTTYPE(p,err)    ((TEXTTYPE) INTL_obj_lookup (tdbb, type_texttype, (p), (err), NULL))
+#define INTL_CHARSETTYPE(p,err) ((CHARSET) INTL_obj_lookup (tdbb, type_charset, (p), (err), NULL))
+
+
+#define NUM_ELEMENTS(x)         (sizeof ((x))/sizeof ((x)[0]))
+
+/* Name of module that implements text-type (n) */
+
+#ifdef VMS
+/* Note: MUST be only the file name.  The VMS lib$find_shared_image
+ *       call insists on file name only, not any "path" components.
+ */
+#define INTL_MODULE1    "GDSINTL"
+#define INTL_MODULE2    "GDSINTL2"
+#endif
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+#define INTL_MODULE1 "intl.dll"
+#define INTL_MODULE2 "intl2.dll"
+#endif
+
+#ifdef WIN_NT
+/* prefixed with $INTERBASE */
+#define INTL_MODULE1 "gdsintl.dll"
+#define INTL_MODULE2 "gdsintl2.dll"
+#endif
+
+#ifndef INTL_MODULE1
+/* prefixed with $INTERBASE */
+#define INTL_MODULE1 "gdsintl"
+#define INTL_MODULE2 "gdsintl2"
+#endif
+
+#ifndef __BORLANDC__
+#define INTL_LOOKUP_ENTRY1      "LD_lookup"
+#define INTL_LOOKUP_ENTRY2      "LD2_lookup"
+#define INTL_USER_ENTRY         "USER_TEXTTYPE_%03d"
+#else
+#define INTL_LOOKUP_ENTRY1      "_LD_lookup"
+#define INTL_LOOKUP_ENTRY2      "_LD2_lookup"
+#define INTL_USER_ENTRY         "_USER_TEXTTYPE_%03d"
+#endif
+
+
+CHARSET_ID DLL_EXPORT INTL_charset(TDBB tdbb, USHORT ttype, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      I N T L _ c h a r s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Return the character set ID for a piece of text.
+ *
+ **************************************/
+
+	switch (ttype)
+	{
+	case ttype_none:
+		return (CS_NONE);
+	case ttype_ascii:
+		return (CS_ASCII);
+	case ttype_unicode_fss:
+		return (CS_UNICODE_FSS);
+	case ttype_binary:
+		return (CS_BINARY);
+	case ttype_dynamic:
+		SET_TDBB(tdbb);
+		return (tdbb->tdbb_attachment->att_charset);
+	default:
+		return (TTYPE_TO_CHARSET(ttype));
+	}
+}
+
+
+int DLL_EXPORT INTL_compare(
+							TDBB tdbb,
+							DSC * pText1, DSC * pText2, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      I N T L _ c o m p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Compare two pieces of international text.
+ *
+ **************************************/
+	UCHAR *p1, *p2;
+	USHORT length1, length2;
+	UCHAR buffer[MAX_KEY];
+	SSHORT compare_type;
+	TEXTTYPE obj;
+	USHORT t1, t2;
+
+	SET_TDBB(tdbb);
+
+	assert(pText1 != NULL);
+	assert(pText2 != NULL);
+	assert(IS_TEXT(pText1) && IS_TEXT(pText2));
+	assert(INTL_data_or_binary(pText1) || INTL_data_or_binary(pText2));
+	assert(err);
+
+/* normal compare routine from CVT_compare */
+/* trailing spaces in strings are ignored for comparision */
+
+	length1 = CVT_get_string_ptr(pText1, &t1, &p1, NULL, 0, err);
+	length2 = CVT_get_string_ptr(pText2, &t2, &p2, NULL, 0, err);
+
+/* YYY - by SQL II compare_type must be explicit in the
+   SQL statement if there is any doubt */
+
+	compare_type = MAX(t1, t2);	/* YYY */
+
+	if (t1 != t2) {
+		CHARSET_ID cs1, cs2;
+		cs1 = INTL_charset(tdbb, t1, err);
+		cs2 = INTL_charset(tdbb, t2, err);
+		if (cs1 != cs2) {
+			if (compare_type != t2) {
+				/* convert pText2 to pText1's type, if possible */
+				/* YYY - should failure to convert really return 
+				   an error here?  
+				   Support joining a 437 & Latin1 Column, and we
+				   pick the compare_type as 437, still only want the
+				   equal values....
+				   But then, what about < operations, which make no
+				   sense if the string cannot be expressed...
+				 */
+
+				length2 = INTL_convert_bytes(tdbb, cs1,
+											 buffer, sizeof(buffer),
+											 cs2, p2, length2, err);
+				p2 = buffer;
+			}
+			else {
+				/* convert pText1 to pText2's type, if possible */
+
+				length1 = INTL_convert_bytes(tdbb, cs2,
+											 buffer, sizeof(buffer),
+											 cs1, p1, length1, err);
+				p1 = buffer;
+			}
+		}
+	}
+
+	obj = INTL_TEXTTYPE(compare_type, err);
+
+	return reinterpret_cast < short (*) (...) >
+		(obj->texttype_fn_compare) (obj, length1, p1, length2, p2);
+}
+
+
+USHORT DLL_EXPORT INTL_convert_bytes(
+									 TDBB tdbb,
+									 CHARSET_ID dest_type,
+									 BYTE * dest_ptr,
+									 USHORT dest_len,
+CHARSET_ID src_type, BYTE * src_ptr, USHORT src_len, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      I N T L _ c o n v e r t _ b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Given a string of bytes in one character set, convert it to another 
+ *      character set.
+ *
+ *      If (dest_ptr) is NULL, return the count of bytes needed to convert
+ *      the string.  This does not guarantee the string can be converted,
+ *      the purpose of this is to allocate a large enough buffer.
+ *
+ * RETURNS:
+ *      Length of resulting string, in bytes.
+ *      calls (err) if conversion error occurs.
+ *
+ **************************************/
+	UCHAR *start_dest_ptr;
+	USHORT len;
+	USHORT len2;
+	CSCONVERT cs_obj;
+	CHARSET from_cs, to_cs;
+	SSHORT err_code = 0;
+	USHORT err_position;
+	BYTE *tmp_buffer;
+
+	SET_TDBB(tdbb);
+
+
+	assert(src_ptr != NULL);
+	assert(src_type != dest_type);
+	assert(err != NULL);
+
+	start_dest_ptr = dest_ptr;
+
+	if ((dest_type == CS_BINARY) || (dest_type == CS_NONE)) {
+
+		/* See if we just need a length estimate */
+		if (dest_ptr == NULL)
+			return (src_len);
+
+		len = MIN(dest_len, src_len);
+		if (len)
+			do
+				*dest_ptr++ = *src_ptr++;
+			while (--len);
+
+		/* See if only space characters are remaining */
+		len = src_len - MIN(dest_len, src_len);
+		if (!len || all_spaces(tdbb, src_type, src_ptr, len, 0))
+			return (dest_ptr - start_dest_ptr);
+		else
+			reinterpret_cast < void (*) (...) > (*err) (gds__arith_except, 0);
+	}
+	else if (src_len == 0)
+		return (0);
+	else if (src_type == CS_BINARY)
+		reinterpret_cast < void (*) (...) > (*err) (gds__arith_except,
+													gds_arg_gds,
+													gds__transliteration_failed,
+													0);
+	else
+		/* character sets are known to be different */
+	{
+		/* Do we know an object from cs1 to cs2? */
+
+		cs_obj = INTL_convert_lookup(tdbb, dest_type, src_type);
+		if (cs_obj != NULL) {
+			len =
+				reinterpret_cast < USHORT(*)(...) >
+				(*cs_obj->csconvert_convert) (cs_obj, dest_ptr, dest_len,
+											  src_ptr, src_len, &err_code,
+											  &err_position);
+			if (!err_code || ((err_code == CS_TRUNCATION_ERROR)
+							  && all_spaces(tdbb, src_type, src_ptr, src_len,
+											err_position))) return (len);
+			else if (err_code == CS_TRUNCATION_ERROR)
+				reinterpret_cast < void (*) (...) > (*err) (gds__arith_except,
+															0);
+			else
+				reinterpret_cast < void (*) (...) > (*err) (gds__arith_except,
+															gds_arg_gds,
+															gds__transliteration_failed,
+															0);
+
+		}
+
+		/* Find a CS1 to UNICODE object */
+
+		from_cs = INTL_CHARSETTYPE(src_type, (FPTR_VOID) NULL);
+		if (from_cs == NULL)
+			reinterpret_cast < void (*) (...) > (*err) (gds__arith_except,
+														gds_arg_gds,
+														gds__text_subtype,
+														gds_arg_number,
+														(SLONG) src_type, 0);
+
+		/* 
+		   ** allocate a temporary buffer that is large enough. 2 = sizeof WCHAR
+		 */
+		tmp_buffer = (BYTE *) gds__alloc((SLONG) src_len * 2);
+
+		cs_obj = &from_cs->charset_to_unicode;
+		assert(cs_obj != NULL);
+		len =
+			reinterpret_cast < USHORT(*)(...) >
+			(*cs_obj->csconvert_convert) (cs_obj, tmp_buffer, src_len * 2,
+										  src_ptr, src_len, &err_code,
+										  &err_position);
+		if (err_code && !((err_code == CS_TRUNCATION_ERROR)
+						  && all_spaces(tdbb, src_type, src_ptr, src_len,
+										err_position))) {
+			gds__free((SLONG *) tmp_buffer);
+			if (err_code == CS_TRUNCATION_ERROR)
+				reinterpret_cast < void (*) (...) > (*err) (gds__arith_except,
+															0);
+			else
+				reinterpret_cast < void (*) (...) > (*err) (gds__arith_except,
+															gds_arg_gds,
+															gds__transliteration_failed,
+															0);
+		}
+
+		/* Find a UNICODE to CS2 object */
+
+		to_cs = INTL_CHARSETTYPE(dest_type, (FPTR_VOID) NULL);
+		if (to_cs == NULL) {
+			gds__free((SLONG *) tmp_buffer);
+			reinterpret_cast < void (*) (...) > (*err) (gds__arith_except,
+														gds_arg_gds,
+														gds__text_subtype,
+														gds_arg_number,
+														(SLONG) dest_type, 0);
+		}
+		cs_obj = &to_cs->charset_from_unicode;
+		assert(cs_obj != NULL);
+		len2 =
+			reinterpret_cast < USHORT(*)(...) >
+			(*cs_obj->csconvert_convert) (cs_obj, dest_ptr, dest_len,
+										  tmp_buffer, len, &err_code,
+										  &err_position);
+
+		if (err_code &&
+			!((err_code == CS_TRUNCATION_ERROR) &&
+			  all_spaces(tdbb, CS_UNICODE101, tmp_buffer, len, err_position))) {
+			gds__free((SLONG *) tmp_buffer);
+			if (err_code == CS_TRUNCATION_ERROR)
+				reinterpret_cast < void (*) (...) > (*err) (gds__arith_except,
+															0);
+			else
+				reinterpret_cast < void (*) (...) > (*err) (gds__arith_except,
+															gds_arg_gds,
+															gds__transliteration_failed,
+															0);
+		}
+
+		gds__free((SLONG *) tmp_buffer);
+		return (len2);
+	}
+	return (0);					/* to remove compiler errors.  This should never be executed */
+}
+
+
+CSCONVERT DLL_EXPORT INTL_convert_lookup(TDBB tdbb,
+										 CHARSET_ID to_cs, CHARSET_ID from_cs)
+{
+/**************************************
+ *
+ *      I N T L _ c o n v e r t _ l o o k u p
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	VEC vector;
+	CHARSET charset;
+	CSCONVERT converter;
+	USHORT i;
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	if (from_cs == CS_dynamic)
+		from_cs = tdbb->tdbb_attachment->att_charset;
+
+	if (to_cs == CS_dynamic)
+		to_cs = tdbb->tdbb_attachment->att_charset;
+
+/* Should from_cs == to_cs? be handled better? YYY */
+
+	assert(from_cs != CS_dynamic);
+	assert(to_cs != CS_dynamic);
+
+	charset = INTL_CHARSETTYPE(from_cs, (FPTR_VOID) NULL);
+	if (charset == NULL)
+		return (NULL);
+
+	vector = charset->charset_converters;
+
+	if (!(vector)) {
+		vector = charset->charset_converters = (VEC) ALLOCPV(type_vec, 10);
+		assert(vector != NULL);
+		vector->vec_count = 10;
+	}
+
+	for (i = 0; i < vector->vec_count; i++) {
+		converter = (CSCONVERT) (vector->vec_object[i]);
+		if (converter == NULL)
+			break;
+		if (converter->csconvert_to == to_cs) {
+			if (converter->csconvert_flags & CONVERTTYPE_init)
+				return (converter);
+			else
+				return NULL;
+		}
+	}
+
+	if (i >= vector->vec_count) {
+		vector =
+			(VEC) ALL_extend(reinterpret_cast <
+							 BLK * >(&charset->charset_converters), i + 10);
+		converter = NULL;
+	}
+
+	if (to_cs == CS_UNICODE101) {
+		converter = &charset->charset_to_unicode;
+	}
+	else if (from_cs == CS_UNICODE101) {
+		CHARSET charset2;
+		charset2 = INTL_CHARSETTYPE(to_cs, (FPTR_VOID) NULL);
+		if (charset2 == NULL)
+			return (NULL);
+		converter = &charset2->charset_from_unicode;
+	}
+	else {
+		if (converter == NULL)
+			converter = (CSCONVERT) ALLOCP(type_csconvert);
+
+		if (obj_init(type_csconvert, to_cs, from_cs, converter, NULL, NULL)) {
+			/* Can't find a conversion object - cache that info in the
+			 * list of converters.
+			 */
+			vector->vec_object[i] = (BLK) converter;
+			converter->csconvert_flags = 0;
+			converter->csconvert_from = from_cs;
+			converter->csconvert_to = to_cs;
+			return NULL;
+		}
+	}
+
+	vector->vec_object[i] = (BLK) converter;
+	converter->csconvert_flags |= CONVERTTYPE_init;
+
+	assert(converter->csconvert_from == from_cs);
+	assert(converter->csconvert_to == to_cs);
+
+	return (converter);
+}
+
+
+int DLL_EXPORT INTL_convert_string(DSC * to, DSC * from, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      I N T L _ c o n v e r t _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert a string from one type to another
+ *
+ * RETURNS:
+ *      0 if no error in conversion
+ *      non-zero otherwise.
+ *
+ **************************************/
+	UCHAR *p, *q;
+	UCHAR *from_ptr;
+	CHARSET_ID to_cs, from_cs;
+	USHORT from_type;
+	TDBB tdbb;
+	USHORT from_len, from_fill;
+	USHORT to_size, to_len, to_fill;
+
+/* Note: This function is called from outside the engine as
+   well as inside - we likely can't get rid of GET_THREAD_DATA here */
+	tdbb = GET_THREAD_DATA;
+	if (tdbb == NULL)			/* are we in the Engine? */
+		return (1);				/* no, then can't access intl gah */
+
+	assert(to != NULL);
+	assert(from != NULL);
+	assert(IS_TEXT(to) && IS_TEXT(from));
+
+	from_cs = INTL_charset(tdbb, INTL_TTYPE(from), err);
+	to_cs = INTL_charset(tdbb, INTL_TTYPE(to), err);
+
+	p = to->dsc_address;
+
+/* Must convert dtype(cstring,text,vary) and ttype(ascii,binary,..intl..) */
+
+	from_len = CVT_get_string_ptr(from, &from_type, &from_ptr, NULL, 0, err);
+
+	to_size = to_len = TEXT_LEN(to);
+
+	q = from_ptr;
+	switch (to->dsc_dtype) {
+	case dtype_text:
+		if ((from_cs != to_cs) && (to_cs != CS_BINARY) && (to_cs != CS_NONE)) {
+
+			to_len = INTL_convert_bytes(tdbb, to_cs, to->dsc_address, to_size,
+										from_cs, from_ptr, from_len, err);
+			to_fill = to_size - to_len;
+			from_fill = 0;		/* Convert_bytes handles source truncation */
+			p += to_len;
+		}
+		else {
+			/* binary string can always be converted TO by byte-copy */
+
+			to_len = MIN(from_len, to_size);
+			from_fill = from_len - to_len;
+			to_fill = to_size - to_len;
+			if (to_len)
+				do
+					*p++ = *q++;
+				while (--to_len);
+		}
+
+		if (to_fill > 0)
+			pad_spaces(tdbb, to_cs, p, to_fill);
+		break;
+
+	case dtype_cstring:
+		if ((from_cs != to_cs) && (to_cs != CS_BINARY) && (to_cs != CS_NONE)) {
+			to_len = INTL_convert_bytes(tdbb, to_cs, to->dsc_address, to_size,
+										from_cs, from_ptr, from_len, err);
+			to->dsc_address[to_len] = 0;
+			from_fill = 0;		/* Convert_bytes handles source truncation */
+		}
+		else {
+			/* binary string can always be converted TO by byte-copy */
+
+			to_len = MIN(from_len, to_size);
+			from_fill = from_len - to_len;
+			if (to_len)
+				do
+					*p++ = *q++;
+				while (--to_len);
+			*p = 0;
+		}
+		break;
+
+	case dtype_varying:
+		if ((from_cs != to_cs) && (to_cs != CS_BINARY) && (to_cs != CS_NONE)) {
+
+			to_len =
+				INTL_convert_bytes(tdbb, to_cs,
+								   ((VARY *) to->dsc_address)->vary_string,
+								   to_size, from_cs, from_ptr, from_len, err);
+			((VARY *) to->dsc_address)->vary_length = to_len;
+			from_fill = 0;		/* Convert_bytes handles source truncation */
+		}
+		else {
+			/* binary string can always be converted TO by byte-copy */
+			to_len = MIN(from_len, to_size);
+			from_fill = from_len - to_len;
+			((VARY *) p)->vary_length = to_len;
+			p = ((VARY *) p)->vary_string;
+			if (to_len)
+				do
+					*p++ = *q++;
+				while (--to_len);
+		}
+		break;
+	}
+
+	if (from_fill)
+		/* Make sure remaining characters on From string are spaces */
+		if (!all_spaces(tdbb, from_cs, q, from_fill, 0))
+			reinterpret_cast < void (*) (...) > (*err) (gds__arith_except, 0);
+
+	return 0;
+}
+
+
+#ifdef DEV_BUILD
+int DLL_EXPORT INTL_data(DSC * pText)
+{
+/**************************************
+ *
+ *      I N T L _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *      Given an input text descriptor, 
+ *      return TRUE if the data pointed to respresents
+ *      international text (subject to user defined or non-binary
+ *      collation or comparison).
+ *
+ **************************************/
+
+	assert(pText != NULL);
+
+	if (!IS_TEXT(pText))
+		return FALSE;
+
+	if (!INTERNAL_TTYPE(pText))
+		return TRUE;
+
+	return FALSE;
+}
+#endif
+
+
+#ifdef DEV_BUILD
+int DLL_EXPORT INTL_data_or_binary(DSC * pText)
+{
+/**************************************
+ *
+ *      I N T L _ d a t a _ o r _ b i n a r y
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return (INTL_data(pText) || (pText->dsc_ttype == ttype_binary));
+}
+#endif
+
+
+int DLL_EXPORT INTL_defined_type(TDBB tdbb, STATUS * status, SSHORT t_type)
+{
+/**************************************
+ *
+ *      I N T L _ d e f i n e d _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Is (t_type) a known text type?
+ * Return:
+ *      FALSE   type is not defined.
+ *      TRUE    type is defined
+ *      status  set to gds_status codes to describe any error.
+ *
+ * Note:
+ *      Due to cleanup that must happen in DFW, this routine
+ *      must return, and not call ERR directly.
+ *
+ **************************************/
+	TEXTTYPE obj;
+
+	SET_TDBB(tdbb);
+
+	if (status)
+		status[0] = gds_arg_end;
+	obj =
+		reinterpret_cast < TEXTTYPE >
+		(INTL_obj_lookup
+		 (tdbb, type_texttype, t_type, (FPTR_VOID) NULL, status));
+	if (obj == NULL)
+		return FALSE;
+	return ((obj->texttype_flags & TEXTTYPE_init) == TEXTTYPE_init);
+}
+
+
+SSHORT DLL_EXPORT INTL_fss_mbtowc(TEXTTYPE * obj,
+								  WCHAR * wc, NCHAR * p, USHORT n)
+{
+/**************************************
+ *
+ *      I N T L _ f s s _ m b t o w c
+ *
+ **************************************
+ *
+ * Functional description
+ *      InterBase interface to mbtowc function for Unicode
+ *      text in FSS bytestream format.
+ *
+ * Return:      (common to all mbtowc routines)
+ *      -1      Error in parsing next character
+ *      <n>     Count of characters consumed.
+ *      *wc     Next character from byte steam (if wc <> NULL)
+ *
+ * Note: This routine has a cousin in intl/cv_utffss.c
+ *
+ **************************************/
+	assert(obj);
+	assert(wc);
+	assert(p);
+
+	return fss_mbtowc(wc, p, n);
+}
+
+
+/*
+ * The following was provided by Ken Thompson of AT&T Bell Laboratories,
+ * <ken@research.att.com>, on Tue, 8 Sep 92 03:22:07 EDT, to the X/Open
+ * Joint Internationalization Group.  Some minor formatting changes have
+ * been made by Glenn Adams, <glenn@metis.com>.
+ *
+ * -------------------------------------------------------------------------
+ *  File System Safe Universal Character Set Transformation Format (FSS-UTF)
+ * -------------------------------------------------------------------------
+ *
+ * With the approval of ISO/IEC 10646 (Unicode) as an international
+ * standard and the anticipated wide spread use of this universal coded
+ * character set (UCS), it is necessary for historically ASCII based
+ * operating systems to devise ways to cope with representation and
+ * handling of the large number of characters that are possible to be
+ * encoded by this new standard.
+ *
+ * There are several challenges presented by UCS which must be dealt with
+ * by historical operating systems and the C-language programming
+ * environment.  The most significant of these challenges is the encoding
+ * scheme used by UCS. More precisely, the challenge is the marrying of
+ * the UCS standard with existing programming languages and existing
+ * operating systems and utilities.
+ *
+ * The challenges of the programming languages and the UCS standard are
+ * being dealt with by other activities in the industry.  However, we are
+ * still faced with the handling of UCS by historical operating systems
+ * and utilities.  Prominent among the operating system UCS handling
+ * concerns is the representation of the data within the file system.  An
+ * underlying assumption is that there is an absolute requirement to
+ * maintain the existing operating system software investment while at
+ * the same time taking advantage of the use the large number of
+ * characters provided by the UCS.
+ *
+ * UCS provides the capability to encode multi-lingual text within a
+ * single coded character set.  However, UCS and its UTF variant do not
+ * protect null bytes and/or the ASCII slash ("/") making these character
+ * encodings incompatible with existing Unix implementations.  The
+ * following proposal provides a Unix compatible transformation format of
+ * UCS such that Unix systems can support multi-lingual text in a single
+ * encoding.  This transformation format encoding is intended to be used
+ * as a file code.  This transformation format encoding of UCS is
+ * intended as an intermediate step towards full UCS support.  However,
+ * since nearly all Unix implementations face the same obstacles in
+ * supporting UCS, this proposal is intended to provide a common and
+ * compatible encoding during this transition stage.
+ *
+ * Goal/Objective
+ * --------------
+ *
+ * With the assumption that most, if not all, of the issues surrounding
+ * the handling and storing of UCS in historical operating system file
+ * systems are understood, the objective is to define a UCS
+ * transformation format which also meets the requirement of being usable
+ * on a historical operating system file system in a non-disruptive
+ * manner.  The intent is that UCS will be the process code for the
+ * transformation format, which is usable as a file code.
+ *
+ * Criteria for the Transformation Format
+ * --------------------------------------
+ *
+ * Below are the guidelines that were used in defining the UCS
+ * transformation format:
+ *
+ *      1) Compatibility with historical file systems:
+ *
+ *      Historical file systems disallow the null byte and the ASCII
+ *      slash character as a part of the file name.
+ *
+ *      2) Compatibility with existing programs:
+ *
+ *      The existing model for multibyte processing is that ASCII does
+ *      not occur anywhere in a multibyte encoding.  There should be
+ *      no ASCII code values for any part of a transformation format
+ *      representation of a character that was not in the ASCII
+ *      character set in the UCS representation of the character.
+ *
+ *      3) Ease of conversion from/to UCS.
+ *
+ *      4) The first byte should indicate the number of bytes to
+ *      follow in a multibyte sequence.
+ *
+ *      5) The transformation format should not be extravagant in
+ *      terms of number of bytes used for encoding.
+ *
+ *      6) It should be possible to find the start of a character
+ *      efficiently starting from an arbitrary location in a byte
+ *      stream.
+ *
+ * Proposed FSS-UTF
+ * ----------------
+ *
+ * The proposed UCS transformation format encodes UCS values in the range
+ * [0,0x7fffffff] using multibyte characters of lengths 1, 2, 3, 4, 5,
+ * and 6 bytes.  For all encodings of more than one byte, the initial
+ * byte determines the number of bytes used and the high-order bit in
+ * each byte is set.  Every byte that does not start 10xxxxxx is the
+ * start of a UCS character sequence.
+ *
+ * An easy way to remember this transformation format is to note that the
+ * number of high-order 1's in the first byte signifies the number of
+ * bytes in the multibyte character:
+ *
+ * Bits  Hex Min  Hex Max  Byte Sequence in Binary
+ *   7  00000000 0000007f 0vvvvvvv
+ *  11  00000080 000007FF 110vvvvv 10vvvvvv
+ *  16  00000800 0000FFFF 1110vvvv 10vvvvvv 10vvvvvv
+ *  21  00010000 001FFFFF 11110vvv 10vvvvvv 10vvvvvv 10vvvvvv
+ *  26  00200000 03FFFFFF 111110vv 10vvvvvv 10vvvvvv 10vvvvvv 10vvvvvv
+ *  31  04000000 7FFFFFFF 1111110v 10vvvvvv 10vvvvvv 10vvvvvv 10vvvvvv 10vvvvvv
+ *
+ * The UCS value is just the concatenation of the v bits in the multibyte
+ * encoding.  When there are multiple ways to encode a value, for example
+ * UCS 0, only the SSHORTest encoding is legal.
+ *
+ * Below are sample implementations of the C standard wctomb() and
+ * mbtowc() functions which demonstrate the algorithms for converting
+ * from UCS to the transformation format and converting from the
+ * transformation format to UCS. The sample implementations include error
+ * checks, some of which may not be necessary for conformance:
+ *
+ */
+
+typedef struct {
+	int cmask;
+	int cval;
+	int shift;
+	SLONG lmask;
+	SLONG lval;
+} Tab;
+
+static CONST Tab tab[] = {
+	0x80, 0x00, 0 * 6, 0x7F, 0,	/* 1 byte sequence */
+	0xE0, 0xC0, 1 * 6, 0x7FF, 0x80,	/* 2 byte sequence */
+	0xF0, 0xE0, 2 * 6, 0xFFFF, 0x800,	/* 3 byte sequence */
+	0xF8, 0xF0, 3 * 6, 0x1FFFFF, 0x10000,	/* 4 byte sequence */
+	0xFC, 0xF8, 4 * 6, 0x3FFFFFF, 0x200000,	/* 5 byte sequence */
+	0xFE, 0xFC, 5 * 6, 0x7FFFFFFF, 0x4000000,	/* 6 byte sequence */
+	0,							/* end of table    */
+};
+
+
+static fss_size_t fss_mbtowc(fss_wchar_t * p, UCHAR * s, fss_size_t n)
+{
+	SLONG l;
+	int c0, c, nc;
+	Tab *t;
+
+	if (s == 0)
+		return 0;
+
+	nc = 0;
+	if (n <= nc)
+		return -1;
+	c0 = *s & 0xff;
+	l = c0;
+	for (t = const_cast < Tab * >(tab); t->cmask; t++) {
+		nc++;
+		if ((c0 & t->cmask) == t->cval) {
+			l &= t->lmask;
+			if (l < t->lval)
+				return -1;
+			*p = l;
+			return nc;
+		}
+		if (n <= nc)
+			return -1;
+		s++;
+		c = (*s ^ 0x80) & 0xFF;
+		if (c & 0xC0)
+			return -1;
+		l = (l << 6) | c;
+	}
+	return -1;
+}
+
+
+static fss_size_t fss_wctomb(UCHAR * s, fss_wchar_t wc)
+{
+	SLONG l;
+	int c, nc;
+	Tab *t;
+
+	if (s == 0)
+		return 0;
+
+	l = wc;
+	nc = 0;
+	for (t = const_cast < Tab * >(tab); t->cmask; t++) {
+		nc++;
+		if (l <= t->lmask) {
+			c = t->shift;
+			*s = t->cval | (l >> c);
+			while (c > 0) {
+				c -= 6;
+				s++;
+				*s = 0x80 | ((l >> c) & 0x3F);
+			}
+			return nc;
+		}
+	}
+	return -1;
+}
+
+
+USHORT DLL_EXPORT INTL_fss_to_unicode(CSCONVERT obj,
+									  UNICODE * dest_ptr, USHORT dest_len,	/* BYTE count */
+									  NCHAR * src_ptr,
+									  USHORT src_len,
+									  SSHORT * err_code,
+									  USHORT * err_position)
+{
+	UNICODE *start;
+	USHORT src_start = src_len;
+	fss_size_t res;
+
+	assert(src_ptr != NULL || dest_ptr == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (dest_ptr == NULL)
+		return (src_len * 2);	/* All single byte narrow characters */
+
+	start = dest_ptr;
+	src_start = src_len;
+	while ((src_len) && (dest_len >= sizeof(*dest_ptr))) {
+		res = fss_mbtowc(dest_ptr, src_ptr, src_len);
+		if (res == -1) {
+			*err_code = CS_BAD_INPUT;
+			break;
+		}
+		assert(res <= src_len);
+		dest_ptr++;
+		dest_len -= sizeof(*dest_ptr);
+		src_ptr += res;
+		src_len -= res;
+	}
+	if (src_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = src_start - src_len;
+	return ((dest_ptr - start) * sizeof(*dest_ptr));
+}
+
+
+USHORT DLL_EXPORT INTL_unicode_to_fss(CSCONVERT obj,
+									  MBCHAR * fss_str,
+									  USHORT fss_len,
+									  UNICODE * unicode_str, USHORT unicode_len,	/* BYTE count */
+									  SSHORT * err_code,
+									  USHORT * err_position)
+{
+	UCHAR *start;
+	USHORT src_start = unicode_len;
+	UCHAR tmp_buffer[6];
+	UCHAR *p;
+	fss_size_t res;
+
+	assert(unicode_str != NULL || fss_str == NULL);
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+	assert(obj != NULL);
+	assert(obj->csconvert_convert == (FPTR_SHORT) INTL_unicode_to_fss);
+
+	*err_code = 0;
+
+/* See if we're only after a length estimate */
+	if (fss_str == NULL)
+		return ((unicode_len + 1) / 2 * 3);	/* worst case - all han character input */
+
+	start = fss_str;
+	while ((fss_len) && (unicode_len >= sizeof(*unicode_str))) {
+		/* Convert the wide character into temp buffer */
+		res = fss_wctomb(tmp_buffer, *unicode_str);
+		if (res == -1) {
+			*err_code = CS_BAD_INPUT;
+			break;
+		}
+		/* will the mb sequence fit into space left? */
+		if (res > fss_len) {
+			*err_code = CS_TRUNCATION_ERROR;
+			break;
+		}
+		/* copy the converted bytes into the destination */
+		p = tmp_buffer;
+		for (; res; res--, fss_len--)
+			*fss_str++ = *p++;
+		unicode_len -= sizeof(*unicode_str);
+		unicode_str++;
+	}
+	if (unicode_len && !*err_code) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = src_start - unicode_len;
+	return ((fss_str - start) * sizeof(*fss_str));
+}
+
+
+WCHAR DLL_EXPORT INTL_getch(TDBB tdbb,
+							TEXTTYPE * obj,
+							SSHORT t_type, UCHAR ** ptr, USHORT * count)
+{
+/**************************************
+ *
+ *      I N T L _ g e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get next character from a buffer.
+ *
+ **************************************/
+	SSHORT used;
+	USHORT wc;
+
+	SET_TDBB(tdbb);
+
+	assert(obj);
+	assert(ptr);
+
+	if (*obj == NULL) {
+		*obj = INTL_TEXTTYPE(t_type, (FPTR_VOID) ERR_post);
+		assert(*obj);
+		assert((*obj)->texttype_fn_mbtowc);
+	}
+	used =
+		reinterpret_cast < short (*) (...) >
+		(*(*obj)->texttype_fn_mbtowc) (*obj, &wc, *ptr, *count);
+	if (used == -1)
+		return 0;
+	*ptr += used;
+	*count -= used;
+	return wc;
+}
+
+
+void DLL_EXPORT INTL_init(TDBB tdbb)
+{
+/**************************************
+ *
+ *      I N T L _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	DBB dbb;
+	VEC vector;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	if (!(vector = dbb->dbb_text_objects)) {
+		vector = dbb->dbb_text_objects = (VEC) ALLOCPV(type_vec, 25);
+		vector->vec_count = 25;
+	}
+	if (!(vector = dbb->dbb_charsets)) {
+		vector = dbb->dbb_charsets = (VEC) ALLOCPV(type_vec, 25);
+		vector->vec_count = 25;
+	}
+}
+
+
+USHORT DLL_EXPORT INTL_key_length(TDBB tdbb, USHORT idxType, USHORT iLength)
+{
+/**************************************
+ *
+ *      I N T L _ k e y _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *      Given an index type, and a maximum length (iLength)
+ *      return the length of the byte string key descriptor to
+ *      use when collating text of this type.
+ *
+ **************************************/
+	USHORT key_length;
+	TEXTTYPE obj;
+	SSHORT ttype;
+
+	SET_TDBB(tdbb);
+
+
+	assert(idxType >= idx_first_intl_string);
+
+	ttype = INTL_INDEX_TO_TEXT(idxType);
+
+	if (ttype >= 0 && ttype <= ttype_last_internal)
+		key_length = iLength;
+	else {
+		obj = INTL_TEXTTYPE(ttype, (FPTR_VOID) ERR_post);
+		key_length =
+			reinterpret_cast < USHORT(*)(...) >
+			(*obj->texttype_fn_key_length) (obj, iLength);
+	}
+
+/* Validity checks on the computed key_length */
+
+	if (key_length > MAX_KEY)
+		key_length = MAX_KEY;
+
+	if (key_length < iLength)
+		key_length = iLength;
+
+	return (key_length);
+}
+
+
+void *DLL_EXPORT INTL_obj_lookup(
+								 TDBB tdbb,
+								 USHORT objtype,
+								 SSHORT parm1, FPTR_VOID err, STATUS * status)
+{
+/**************************************
+ *
+ *      I N T L _ o b j _ l o o k u p
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *      Lookup either a character set descriptor or
+ *      texttype descriptor object.
+ *
+ *      First, search the appropriate vector that hangs
+ *      off the dbb.  If not found, then call the lower
+ *      level lookup routine to find it in the libraries.
+ *
+ * Returns:
+ *      *object         - if no errors;
+ *      <never>         - if error & err non NULL
+ *      NULL            - if error & err NULL
+ *
+ **************************************/
+	DBB dbb;
+	VEC vector, *pVector;
+	BLK cs_object;
+	CHARSET cs;
+	USHORT id;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	assert((objtype == type_charset) || (objtype == type_texttype));
+
+	if (objtype == type_charset) {
+		pVector = &dbb->dbb_charsets;
+		id = TTYPE_TO_CHARSET(parm1);
+		if (id == CS_dynamic)
+			id = tdbb->tdbb_attachment->att_charset;
+	}
+	else {
+		if (parm1 == ttype_dynamic)
+			parm1 = MAP_CHARSET_TO_TTYPE(tdbb->tdbb_attachment->att_charset);
+
+		cs =
+			(CHARSET) INTL_obj_lookup(tdbb, type_charset, parm1, err, status);
+		if (!cs)
+			return NULL;
+		pVector = &cs->charset_collations;
+		id = TTYPE_TO_COLLATION(parm1);
+	}
+
+	assert(pVector != NULL);
+	vector = *pVector;
+	assert(vector != NULL);
+
+	if (id >= vector->vec_count)
+		vector =
+			(VEC) ALL_extend(reinterpret_cast < BLK * >(pVector), id + 10);
+
+	if (!(cs_object = vector->vec_object[id])) {
+		cs_object = ALLOCP(objtype);
+		vector->vec_object[id] = (BLK) cs_object;
+	}
+
+	assert(cs_object != NULL);
+
+	if (objtype == type_charset) {
+		if (((CHARSET) cs_object)->charset_flags & CHARSET_init)
+			return (cs_object);
+		if (obj_init
+			(objtype, TTYPE_TO_CHARSET(parm1), 0, cs_object, err,
+			 (STATUS *) status)) return (NULL);
+		((CHARSET) cs_object)->charset_collations =
+			(VEC) ALLOCPV(type_vec, 10);
+		((CHARSET) cs_object)->charset_collations->vec_count = 10;
+		((CHARSET) cs_object)->charset_flags |= CHARSET_init;
+		return (cs_object);
+	}
+
+	assert(objtype == type_texttype);
+
+	if (((TEXTTYPE) cs_object)->texttype_flags & TEXTTYPE_init)
+		return (cs_object);
+
+	if (obj_init(objtype, parm1, 0, cs_object, err, (STATUS *) status))
+		return (NULL);
+	finish_texttype_init((TEXTTYPE) cs_object, err, status);
+	if (((TEXTTYPE) cs_object)->texttype_flags & TEXTTYPE_init)
+		return (cs_object);
+	return NULL;
+}
+
+
+void DLL_EXPORT INTL_pad_spaces(
+								TDBB tdbb,
+								DSC * type, UCHAR * string, USHORT length)
+{
+/**************************************
+ *
+ *      I N T L _ p a d _ s p a c e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Pad a buffer with spaces, using the character
+ *      set's defined space character.
+ *
+ **************************************/
+	USHORT charset;
+
+	SET_TDBB(tdbb);
+
+	assert(type != NULL);
+	assert(IS_TEXT(type));
+	assert(string != NULL);
+
+	charset = INTL_charset(tdbb, type->dsc_ttype, NULL);
+	pad_spaces(tdbb, charset, string, length);
+}
+
+
+USHORT DLL_EXPORT INTL_string_to_key(
+									 TDBB tdbb,
+									 USHORT idxType,
+									 DSC * pString,
+									 DSC * pByte, USHORT partial)
+{
+/**************************************
+ *
+ *      I N T L _ s t r i n g _ t o _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Given an input string, convert it to a byte string
+ *      that will collate naturally (byte order).
+ *
+ *      Return the length of the resulting byte string.
+ *
+ **************************************/
+	USHORT len, outlen;
+	UCHAR *src, *dest;
+	UCHAR buffer[MAX_KEY];
+	UCHAR pad_char;
+	TEXTTYPE obj;
+	SSHORT ttype;
+
+	SET_TDBB(tdbb);
+
+
+	assert(idxType >= idx_first_intl_string || idxType == idx_string
+		   || idxType == idx_byte_array || idxType == idx_metadata);
+	assert(pString != NULL);
+	assert(pByte != NULL);
+	assert(pString->dsc_address != NULL);
+	assert(pByte->dsc_address != NULL);
+	assert(pByte->dsc_dtype == dtype_text);
+
+	switch (idxType) {
+	case idx_string:
+		pad_char = ' ';
+		ttype = ttype_none;
+		break;
+	case idx_byte_array:
+		pad_char = 0;
+		ttype = ttype_binary;
+		break;
+	case idx_metadata:
+		pad_char = ' ';
+		ttype = ttype_metadata;
+		break;
+	default:
+		pad_char = 0;
+		ttype = INTL_INDEX_TO_TEXT(idxType);
+		break;
+	}
+
+/* Make a string into the proper type of text */
+
+	len =
+		CVT_make_string(pString, ttype, &src,
+						reinterpret_cast < vary * >(buffer), sizeof(buffer),
+						(FPTR_VOID) ERR_post);
+
+	dest = pByte->dsc_address;
+	switch (ttype) {
+	case ttype_metadata:
+	case ttype_binary:
+	case ttype_ascii:
+	case ttype_none:
+		while (len--)
+			*dest++ = *src++;
+		/* strip off ending pad characters */
+		while (dest > pByte->dsc_address)
+			if (*(dest - 1) == pad_char)
+				dest--;
+			else
+				break;
+		outlen = (dest - pByte->dsc_address);
+		break;
+	default:
+		obj = INTL_TEXTTYPE(ttype, (FPTR_VOID) ERR_post);
+		outlen =
+			reinterpret_cast < USHORT(*)(...) >
+			(*obj->texttype_fn_string_to_key) (obj, len, src,
+											   pByte->dsc_length, dest,
+											   partial);
+		break;
+	}
+
+	return (outlen);
+}
+
+
+int DLL_EXPORT INTL_str_to_upper(TDBB tdbb, DSC * pString)
+{
+/**************************************
+ *
+ *      I N T L _ s t r _ t o _ u p p e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Given an input string, convert it to uppercase 
+ *
+ **************************************/
+	USHORT len;
+	UCHAR *src, *dest;
+	UCHAR buffer[MAX_KEY];
+	USHORT ttype;
+	TEXTTYPE obj;
+
+	SET_TDBB(tdbb);
+
+	assert(pString != NULL);
+	assert(pString->dsc_address != NULL);
+
+	len =
+		CVT_get_string_ptr(pString, &ttype, &src,
+						   reinterpret_cast < vary * >(buffer),
+						   sizeof(buffer), (FPTR_VOID) ERR_post);
+	switch (ttype) {
+	case ttype_binary:
+		/* cannot uppercase binary strings */
+		break;
+
+	case ttype_none:
+	case ttype_ascii:
+	case ttype_unicode_fss:
+		dest = src;
+		while (len--) {
+			*dest++ = UPPER7(*src);
+			src++;
+		}
+		break;
+
+	default:
+		obj = INTL_TEXTTYPE(ttype, (FPTR_VOID) ERR_post);
+
+		(void) reinterpret_cast < short (*) (...) >
+			(*obj->texttype_fn_str_to_upper) (obj, len, src, len, src);
+		break;
+	}
+/* 
+ * Added to remove compiler errors. Callers are not checking
+ * the return code from this function 4/5/95. 
+*/
+	return (0);
+}
+
+
+UCHAR DLL_EXPORT INTL_upper(TDBB tdbb, USHORT ttype, UCHAR ch)
+{
+/**************************************
+ *
+ *      I N T L _ u p p e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Given an input character, convert it to uppercase 
+ *
+ **************************************/
+	TEXTTYPE obj;
+
+	SET_TDBB(tdbb);
+
+
+	switch (ttype) {
+	case ttype_binary:
+		/* cannot uppercase binary strings */
+		return (ch);
+
+	case ttype_none:
+	case ttype_ascii:
+	case ttype_unicode_fss:
+		return (UPPER7(ch));
+
+	default:
+		obj = INTL_TEXTTYPE(ttype, (FPTR_VOID) ERR_post);
+		return ((UCHAR) reinterpret_cast < USHORT(*)(...) >
+				(*obj->texttype_fn_to_upper) (obj, ch));
+	}
+
+}
+
+
+static BOOLEAN all_spaces(
+						  TDBB tdbb,
+						  CHARSET_ID charset,
+						  BYTE * ptr, USHORT len, USHORT offset)
+{
+/**************************************
+ *
+ *      a l l _ s p a c e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      determine if the string at ptr[offset] ... ptr[len] is entirely
+ *      spaces, as per the space definition of (charset).
+ *      The binary representation of a Space is character-set dependent.
+ *      (0x20 for Ascii, 0x0020 for Unicode, 0x20 for SJIS, but must watch for 
+ *      0x??20, which is NOT a space.
+ **************************************/
+	CHARSET obj;
+	BYTE *p;
+	BYTE *end, *space, *end_space;
+
+	SET_TDBB(tdbb);
+
+	assert(ptr != NULL);
+
+	obj = INTL_CHARSETTYPE(charset, (FPTR_VOID) ERR_post);
+
+	assert(obj != NULL);
+
+/*
+ * We are assuming offset points to the first byte which was not
+ * consumed in a conversion.  And that offset is pointing
+ * to a character boundary
+ */
+
+/* Single-octet character sets are optimized here */
+
+	if (obj->charset_space_length == 1) {
+		p = &ptr[offset];
+		end = &ptr[len];
+		while (p < end) {
+			if (*p++ != *obj->charset_space_character)
+				return (FALSE);
+		}
+		return (TRUE);
+	}
+	else {
+		p = &ptr[offset];
+		end = &ptr[len];
+		end_space = &obj->charset_space_character[obj->charset_space_length];
+		while (p < end) {
+			space = obj->charset_space_character;
+			while (p < end && space < end_space) {
+				if (*p++ != *space++)
+					return (FALSE);
+			}
+		}
+		return (TRUE);
+	}
+}
+
+
+static void common_convert_init(
+								CSCONVERT csptr,
+								USHORT to_cs,
+								USHORT from_cs,
+								FPTR_SHORT cvt_fn,
+BYTE * datatable, BYTE * datatable2)
+{
+/**************************************
+ *
+ *      c o m m o n _ c o n v e r t _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	csptr->csconvert_version = 40;
+	csptr->csconvert_name = (ASCII *) "DIRECT";
+	csptr->csconvert_from = from_cs;
+	csptr->csconvert_to = to_cs;
+	csptr->csconvert_convert = cvt_fn;
+	csptr->csconvert_datatable = datatable;
+	csptr->csconvert_misc = datatable2;
+}
+
+
+static void finish_texttype_init(
+								 TEXTTYPE txtobj,
+								 FPTR_VOID err, STATUS * status)
+{
+/**************************************
+ *
+ *      f i n i s h _ t e x t t y p e _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *      Finish initializing a text object with pointers to 
+ *      internal routines.
+ *      This is also a handy place to check the licensing bits
+ *      for the text object.
+ *
+ * Returns:
+ *      The TEXTTYPE_init bit in texttype_flags is set if the
+ *      object is sucessfully initialized.
+ *
+ **************************************/
+
+	if ((txtobj->texttype_fn_to_wc == NULL) &&
+		(txtobj->texttype_bytes_per_char == 1)) {
+		/* Finish initialization of a narrow character object */
+
+		txtobj->texttype_fn_to_wc = (FPTR_SHORT) nc_to_wc;
+		txtobj->texttype_fn_contains = (FPTR_SHORT) EVL_nc_contains;
+		txtobj->texttype_fn_matches = (FPTR_SHORT) EVL_nc_matches;
+		txtobj->texttype_fn_like = (FPTR_SHORT) EVL_nc_like;
+		txtobj->texttype_fn_sleuth_merge = (FPTR_SHORT) EVL_nc_sleuth_merge;
+		txtobj->texttype_fn_sleuth_check = (FPTR_SHORT) EVL_nc_sleuth_check;
+
+		if (!txtobj->texttype_fn_mbtowc)
+			txtobj->texttype_fn_mbtowc = (FPTR_short) internal_nc_mbtowc;
+	}
+	else if ((txtobj->texttype_fn_to_wc == NULL) &&
+			 (txtobj->texttype_bytes_per_char == 2)) {
+		/* Finish initialization of a wide character object */
+
+		txtobj->texttype_fn_to_wc = (FPTR_SHORT) wc_to_wc;
+		txtobj->texttype_fn_contains = (FPTR_SHORT) EVL_wc_contains;
+		txtobj->texttype_fn_matches = (FPTR_SHORT) EVL_wc_matches;
+		txtobj->texttype_fn_like = (FPTR_SHORT) EVL_wc_like;
+		txtobj->texttype_fn_sleuth_merge = (FPTR_SHORT) EVL_wc_sleuth_merge;
+		txtobj->texttype_fn_sleuth_check = (FPTR_SHORT) EVL_wc_sleuth_check;
+		if (!txtobj->texttype_fn_mbtowc)
+			txtobj->texttype_fn_mbtowc = (FPTR_short) internal_wc_mbtowc;
+	}
+	else if (txtobj->texttype_fn_to_wc != NULL) {
+		/* Finish initialization of a multibyte character object */
+
+		txtobj->texttype_fn_contains = (FPTR_SHORT) EVL_mb_contains;
+		txtobj->texttype_fn_matches = (FPTR_SHORT) EVL_mb_matches;
+		txtobj->texttype_fn_like = (FPTR_SHORT) EVL_mb_like;
+		txtobj->texttype_fn_sleuth_merge = (FPTR_SHORT) EVL_mb_sleuth_merge;
+		txtobj->texttype_fn_sleuth_check = (FPTR_SHORT) EVL_mb_sleuth_check;
+		if (!txtobj->texttype_fn_mbtowc)
+			txtobj->texttype_fn_mbtowc = (FPTR_short) internal_mb_mbtowc;
+	}
+	else
+		assert(0);
+
+	txtobj->texttype_flags |= TEXTTYPE_init;
+}
+
+
+static USHORT internal_ch_copy(TEXTTYPE obj, UCHAR ch)
+{
+/**************************************
+ *
+ *      i n t e r n a l _ c h _ c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return (ch);
+}
+
+
+static USHORT internal_ch_to_upper(TEXTTYPE obj, UCHAR ch)
+{
+/**************************************
+ *
+ *      i n t e r n a l _ c h _ t o _ u p p e r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return (UPPER7(ch));
+}
+
+
+static USHORT internal_ch_to_lower(TEXTTYPE obj, UCHAR ch)
+{
+/**************************************
+ *
+ *      i n t e r n a l _ c h _ t o _ l o w e r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return ((((ch) >= 'A') && ((ch) < 'Z')) ? ((ch) - 'A' + 'a') : (ch));
+}
+
+
+static SSHORT internal_compare(
+							   TEXTTYPE obj,
+							   USHORT length1,
+							   UCHAR * p1, USHORT length2, UCHAR * p2)
+{
+/**************************************
+ *
+ *      i n t e r n a l _ c o m p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SSHORT fill;
+	UCHAR pad;
+
+	pad = (obj->texttype_type == ttype_binary) ? 0 : ' ';
+	fill = length1 - length2;
+	if (length1 >= length2) {
+		if (length2)
+			do
+				if (*p1++ != *p2++)
+					if (p1[-1] > p2[-1])
+						return 1;
+					else
+						return -1;
+			while (--length2);
+		if (fill > 0)
+			do
+				if (*p1++ != pad)
+					if (p1[-1] > pad)
+						return 1;
+					else
+						return -1;
+			while (--fill);
+		return 0;
+	}
+
+	if (length1)
+		do
+			if (*p1++ != *p2++)
+				if (p1[-1] > p2[-1])
+					return 1;
+				else
+					return -1;
+		while (--length1);
+
+	do
+		if (*p2++ != pad)
+			if (pad > p2[-1])
+				return 1;
+			else
+				return -1;
+	while (++fill);
+
+	return 0;
+}
+
+
+static USHORT internal_keylength(TEXTTYPE obj, USHORT iLength)
+{
+/**************************************
+ *
+ *      i n t e r n a l _ k e y l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return (iLength);
+}
+
+
+static SSHORT internal_nc_mbtowc(
+								 TEXTTYPE obj,
+								 WCHAR * wc, UCHAR * ptr, USHORT count)
+{
+/**************************************
+ *
+ *      i n t e r n a l _ n c _ m b t o w c 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get the next character from the multibyte
+ *      input stream.
+ *      Narrow character version.
+ *  Returns:
+ *      Count of bytes consumed from the input stream.
+ *
+ **************************************/
+
+	assert(obj);
+	assert(ptr);
+
+	if (count >= 1) {
+		if (wc)
+			*wc = *ptr;
+		return 1;
+	}
+	if (wc)
+		*wc = 0;
+	return -1;					/* No more characters */
+}
+
+
+static SSHORT internal_mb_mbtowc(
+								 TEXTTYPE obj,
+								 WCHAR * wc, UCHAR * ptr, USHORT count)
+{
+/**************************************
+ *
+ *      i n t e r n a l _ m b _ m b t o w c 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get the next character from the multibyte
+ *      input stream.
+ *      Multibyte version character version.
+ *  Returns:
+ *      Count of bytes consumed from the input stream.
+ *
+ **************************************/
+
+	assert(obj);
+	assert(ptr);
+
+	if (count >= 2) {
+		if (wc)
+			*wc = *(WCHAR *) ptr;
+		return 2;
+	}
+	if (wc)
+		*wc = 0;
+	return -1;					/* No more characters */
+}
+
+
+static SSHORT internal_wc_mbtowc(
+								 TEXTTYPE obj,
+								 WCHAR * wc, UCHAR * ptr, USHORT count)
+{
+/**************************************
+ *
+ *      i n t e r n a l _ w c _ m b t o w c 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get the next character from the multibyte
+ *      input stream.
+ *      Wide character version.
+ *  Returns:
+ *      Count of bytes consumed from the input stream.
+ *
+ **************************************/
+
+	assert(obj);
+	assert(ptr);
+
+	if (count >= 2) {
+		if (wc)
+			*wc = *(WCHAR *) ptr;
+		return 2;
+	}
+	if (wc)
+		*wc = 0;
+	return -1;					/* No more characters */
+}
+
+
+static SSHORT internal_str_copy(
+								TEXTTYPE obj,
+								USHORT inLen,
+								UCHAR * src, USHORT outLen, UCHAR * dest)
+{
+/**************************************
+ *
+ *      i n t e r n a l _ s t r _ c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Note: dest may equal src.
+ *
+ **************************************/
+	UCHAR *pStart;
+
+	pStart = dest;
+	while (inLen-- && outLen--) {
+		*dest++ = *src++;
+	}
+
+	return (dest - pStart);
+}
+
+
+static USHORT cvt_utffss_to_ascii(CSCONVERT obj, UCHAR * pDest, USHORT nDest,	/* byte count */
+								  UCHAR * pSrc, USHORT nSrc,	/* byte count */
+								  SSHORT * err_code, USHORT * err_position)
+{
+/**************************************
+ *
+ *      c v t _ u t f f s s _ t o _ a s c i i 
+ * also
+ *      c v t _ a s c i i _ t o _ u t f f s s 
+ * also
+ *      c v t _ n o n e _ t o _ u t f f s s 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Perform a pass-through transformation of ASCII to Unicode
+ *      in FSS format.  Note that any byte values greater than 127
+ *      cannot be converted in either direction, so the same
+ *      routine does double duty.
+ *
+ *************************************/
+	UCHAR *pStart;
+	UCHAR *pStart_src;
+
+	assert(obj != NULL);
+	assert((pSrc != NULL) || (pDest == NULL));
+	assert(err_code != NULL);
+
+	*err_code = 0;
+	if (pDest == NULL)			/* length estimate needed? */
+		return (nSrc);
+	pStart = pDest;
+	pStart_src = pSrc;
+	while (nDest >= sizeof(*pDest) && nSrc >= sizeof(*pSrc)) {
+		if (*pSrc > 127) {
+			/* In the cvt_ascii_to_utffss case this should be CS_BAD_INPUT */
+			/* but not in cvt_none_to_utffss or cvt_utffss_to_ascii */
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		}
+		*pDest++ = *pSrc++;
+		nDest -= sizeof(*pDest);
+		nSrc -= sizeof(*pSrc);
+	}
+	if (!*err_code && nSrc) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = (pSrc - pStart_src) * sizeof(*pSrc);
+
+	return ((pDest - pStart) * sizeof(*pDest));
+}
+
+
+static USHORT cvt_none_to_unicode(CSCONVERT obj, WCHAR * pDest, USHORT nDest,	/* byte count */
+								  UCHAR * pSrc, USHORT nSrc,	/* byte count */
+								  SSHORT * err_code, USHORT * err_position)
+{
+/**************************************
+ *
+ *      c v t _ n o n e _ t o _ u n i c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert CHARACTER SET NONE to UNICODE (wide char).
+ *      Byte values below 128 treated as ASCII.
+ *      Byte values >= 128 create CONVERT ERROR
+ *
+ *************************************/
+	WCHAR *pStart;
+	UCHAR *pStart_src;
+
+	assert(obj != NULL);
+	assert((pSrc != NULL) || (pDest == NULL));
+	assert(err_code != NULL);
+
+	*err_code = 0;
+	if (pDest == NULL)			/* length estimate needed? */
+		return (2 * nSrc);
+	pStart = pDest;
+	pStart_src = pSrc;
+	while (nDest >= sizeof(*pDest) && nSrc >= sizeof(*pSrc)) {
+		if (*pSrc > 127) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		}
+		*pDest++ = *pSrc++;
+		nDest -= sizeof(*pDest);
+		nSrc -= sizeof(*pSrc);
+	}
+	if (!*err_code && nSrc) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = (pSrc - pStart_src) * sizeof(*pSrc);
+
+	return ((pDest - pStart) * sizeof(*pDest));
+}
+
+
+static USHORT cvt_ascii_to_unicode(CSCONVERT obj, WCHAR * pDest, USHORT nDest,	/* byte count */
+								   UCHAR * pSrc, USHORT nSrc,	/* byte count */
+								   SSHORT * err_code, USHORT * err_position)
+{
+/**************************************
+ *
+ *      c v t _ a s c i i _ t o _ u n i c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert CHARACTER SET NONE to UNICODE (wide char).
+ *      Byte values below 128 treated as ASCII.
+ *      Byte values >= 128 create BAD_INPUT
+ *
+ *************************************/
+	WCHAR *pStart;
+	UCHAR *pStart_src;
+
+	assert(obj != NULL);
+	assert((pSrc != NULL) || (pDest == NULL));
+	assert(err_code != NULL);
+
+	*err_code = 0;
+	if (pDest == NULL)			/* length estimate needed? */
+		return (2 * nSrc);
+	pStart = pDest;
+	pStart_src = pSrc;
+	while (nDest >= sizeof(*pDest) && nSrc >= sizeof(*pSrc)) {
+		if (*pSrc > 127) {
+			*err_code = CS_BAD_INPUT;
+			break;
+		}
+		*pDest++ = *pSrc++;
+		nDest -= sizeof(*pDest);
+		nSrc -= sizeof(*pSrc);
+	}
+	if (!*err_code && nSrc) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = (pSrc - pStart_src) * sizeof(*pSrc);
+
+	return ((pDest - pStart) * sizeof(*pDest));
+}
+
+
+static USHORT cvt_unicode_to_ascii(CSCONVERT obj, NCHAR * pDest, USHORT nDest,	/* byte count */
+								   WCHAR * pSrc, USHORT nSrc,	/* byte count */
+								   SSHORT * err_code, USHORT * err_position)
+{
+/**************************************
+ *
+ *      c v t _ u n i c o d e _ t o _ a s c i i 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert UNICODE to CHARACTER SET ASCII (wide char).
+ *      Byte values below 128 treated as ASCII.
+ *      Byte values >= 128 create CONVERT_ERROR
+ *
+ *************************************/
+	NCHAR *pStart;
+	WCHAR *pStart_src;
+
+	assert(obj != NULL);
+	assert((pSrc != NULL) || (pDest == NULL));
+	assert(err_code != NULL);
+
+	*err_code = 0;
+	if (pDest == NULL)			/* length estimate needed? */
+		return (nSrc / 2);
+	pStart = pDest;
+	pStart_src = pSrc;
+	while (nDest >= sizeof(*pDest) && nSrc >= sizeof(*pSrc)) {
+		if (*pSrc > 127) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		}
+		*pDest++ = *pSrc++;
+		nDest -= sizeof(*pDest);
+		nSrc -= sizeof(*pSrc);
+	}
+	if (!*err_code && nSrc) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = (pSrc - pStart_src) * sizeof(*pSrc);
+
+	return ((pDest - pStart) * sizeof(*pDest));
+}
+
+
+static SSHORT internal_str_to_upper(
+									TEXTTYPE obj,
+									USHORT inLen,
+									UCHAR * src, USHORT outLen, UCHAR * dest)
+{
+/**************************************
+ *
+ *      i n t e r n a l _ s t r _ t o _ u p p e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Note: dest may equal src.
+ *
+ **************************************/
+	UCHAR *pStart;
+
+	pStart = dest;
+	while (inLen-- && outLen--) {
+		*dest++ = UPPER7(*src);
+		src++;
+	}
+
+	return (dest - pStart);
+}
+
+
+static USHORT internal_string_to_key(
+									 TEXTTYPE obj,
+									 USHORT inLen,
+									 UCHAR * src,
+									 USHORT outLen,
+UCHAR * dest, USHORT partial)
+{
+/**************************************
+ *
+ *      i n t e r n a l _ s t r i n g _ t o _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	UCHAR *pStart;
+	UCHAR pad_char;
+
+	pStart = dest;
+	pad_char = *obj->texttype_collation_table;
+	while (inLen-- && outLen--)
+		*dest++ = *src++;
+
+/* strip off ending pad characters */
+	while (dest > pStart)
+		if (*(dest - 1) == pad_char)
+			dest--;
+		else
+			break;
+
+	return (dest - pStart);
+}
+
+
+static BOOLEAN obj_init(
+						USHORT objtype,
+						SSHORT parm1,
+						SSHORT parm2,
+						void *text_object, FPTR_VOID err, STATUS * status)
+{
+/**************************************
+ *
+ *      o b j _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find the module that implements a given text type, and initialize
+ *      the text type.
+ *      Search algorithm is:
+ *              Check list of internal implementations.
+ *              Look for general entrypoint in intllib 
+ *              Look for general entrypoint in intllib2 
+ *              Look for a normal UDF entry
+ *              Abort with an error.
+ *
+ * Returns:
+ *      FALSE   - no errors
+ *      TRUE    - error occurred, and parameter <err> was NULL;
+ *      <never> - error occurred, and parameter <err> non-NULL;
+ *
+ *
+ **************************************/
+	FILECHAR path[MAX_PATH_LENGTH];
+	ASCII entry[32];
+	USHORT(*lookup_fn) (USHORT, FPTR_SHORT *, SSHORT, SSHORT);
+	FPTR_SHORT function;
+
+	INTL_TRACE(("INTL: looking for obj %d ttype %d\n", objtype, parm1));
+
+	function = NULL;
+
+	switch (objtype) {
+	case type_texttype:
+		if (parm1 == ttype_none)
+			function = (FPTR_SHORT) ttype_none_init;
+		else if (parm1 == ttype_ascii)
+			function = (FPTR_SHORT) ttype_ascii_init;
+		else if (parm1 == ttype_unicode_fss)
+			function = (FPTR_SHORT) ttype_unicode_fss_init;
+		else if (parm1 == ttype_binary)
+			function = (FPTR_SHORT) ttype_binary_init;
+		break;
+	case type_charset:
+		if (parm1 == CS_NONE)
+			function = (FPTR_SHORT) cs_none_init;
+		else if (parm1 == CS_ASCII)
+			function = (FPTR_SHORT) cs_ascii_init;
+		else if (parm1 == CS_UNICODE_FSS)
+			function = (FPTR_SHORT) cs_unicode_fss_init;
+		else if (parm1 == CS_UNICODE101)
+			function = (FPTR_SHORT) cs_unicode_init;
+		else if (parm1 == CS_BINARY)
+			function = (FPTR_SHORT) cs_binary_init;
+		break;
+	case type_csconvert:
+		if (((parm1 == CS_ASCII) && (parm2 == CS_UNICODE_FSS)) ||
+			((parm2 == CS_ASCII) && (parm1 == CS_UNICODE_FSS)))
+			function = (FPTR_SHORT) cvt_ascii_utf_init;
+
+		/* converting FROM NONE to UNICODE has a short cut 
+		 * - it's treated like ASCII */
+		else if ((parm2 == CS_NONE) && (parm1 == CS_UNICODE_FSS))
+			function = (FPTR_SHORT) cvt_ascii_utf_init;
+
+#ifdef DEV_BUILD
+		/* Converting TO character set NONE should have been handled at
+		 * a higher level
+		 */
+		assert(parm1 != CS_NONE);
+#endif
+		break;
+	default:
+		BUGCHECK(1);
+		break;
+	}
+
+	if (function == NULL) {
+#ifdef INTL_BACKEND
+		if (LD_lookup(objtype, &function, parm1, parm2) != 0)
+			function = NULL;
+#else
+		/* Look for an InterBase supplied object to implement the text type */
+		/* The flu.c uses searchpath which expects a file name not a path */
+		strcpy(reinterpret_cast < char *>(path), INTL_MODULE1);
+		INTL_TRACE(("INTL: trying %s %s\n", path, INTL_LOOKUP_ENTRY1));
+		if (lookup_fn =
+			reinterpret_cast < USHORT(*)(USHORT, USHORT(**)(), short,
+										 short)
+			>(ISC_lookup_entrypoint
+			  (reinterpret_cast < char *>(path), INTL_LOOKUP_ENTRY1, NULL))) {
+			INTL_TRACE(
+					   ("INTL: calling lookup %s %s\n", path,
+						INTL_LOOKUP_ENTRY1));
+			if ((*lookup_fn) (objtype, &function, parm1, parm2) != 0) {
+				function = NULL;
+			}
+		}
+#endif
+	}
+
+/* Still not found, check the set of supplimental international objects */
+
+	if (function == NULL) {
+#ifdef INTL_BACKEND
+		if (LD2_lookup(objtype, &function, parm1, parm2) != 0)
+			function = NULL;
+#else
+		gds__prefix(reinterpret_cast < char *>(path), INTL_MODULE2);
+		INTL_TRACE(("INTL: trying %s %s\n", path, INTL_LOOKUP_ENTRY2));
+		if (lookup_fn =
+			reinterpret_cast < USHORT(*)(USHORT, USHORT(**)(), short,
+										 short)
+			>(ISC_lookup_entrypoint
+			  (reinterpret_cast < char *>(path), INTL_LOOKUP_ENTRY2, NULL))) {
+			INTL_TRACE(
+					   ("INTL: calling lookup %s %s\n", path,
+						INTL_LOOKUP_ENTRY2));
+			if ((*lookup_fn) (objtype, &function, parm1, parm2) != 0) {
+				function = NULL;
+			}
+		}
+#endif
+	}
+
+/* Still not found, check if there is a UDF in the database defined the right way */
+	if (function == NULL) {
+		FUN function_block;
+		USHORT argcount;
+		switch (objtype) {
+		case type_texttype:
+			sprintf((SCHAR *) entry, INTL_USER_ENTRY, parm1);
+			argcount = 2;
+			break;
+		case type_charset:
+			sprintf((SCHAR *) entry, "USER_CHARSET_%03d", parm1);
+			argcount = 2;
+			break;
+		case type_csconvert:
+			sprintf((SCHAR *) entry, "USER_TRANSLATE_%03d_%03d", parm1,
+					parm2);
+			argcount = 3;
+			break;
+		default:
+			BUGCHECK(1);
+			break;
+		}
+		INTL_TRACE(("INTL: trying user fn %s\n", entry));
+		if (function_block = FUN_lookup_function(entry)) {
+			INTL_TRACE(("INTL: found a user fn, validating\n"));
+			if ((function_block->fun_count == argcount) &&
+				(function_block->fun_args == argcount) &&
+				(function_block->fun_return_arg == 0) &&
+				(function_block->fun_entrypoint != NULL) &&
+				(function_block->fun_rpt[0].fun_mechanism == FUN_value) &&
+				(function_block->fun_rpt[0].fun_desc.dsc_dtype == dtype_short)
+				&& (function_block->fun_rpt[1].fun_desc.dsc_dtype ==
+					dtype_short)
+				&& (function_block->fun_rpt[argcount - 1].
+					fun_desc.dsc_dtype == dtype_short)
+				&& (function_block->fun_rpt[argcount].fun_mechanism ==
+					FUN_reference)
+				&& (function_block->fun_rpt[argcount].fun_desc.dsc_dtype ==
+					dtype_text)) function =
+					(FPTR_SHORT) function_block->fun_entrypoint;
+		}
+	}
+
+/* If we found an entry point, call it, if it returns OK flag the
+ * text object as initialized
+ * Otherwise, report error condition "Can't resolve text type"
+ */
+
+	if (function != NULL) {
+		if ((USHORT) reinterpret_cast < USHORT(*)(...) >
+			(*function) (text_object, parm1, parm2) == 0) {
+			INTL_TRACE(
+					   ("INTL: object %d, ttype %d init ok\n", objtype,
+						parm1));
+			return FALSE;
+		}
+	}
+	if (err != NULL)
+		reinterpret_cast < void (*) (...) > (*err) (gds__text_subtype,
+													gds_arg_number,
+													(SLONG) parm1, 0);
+	else if (status)
+		IBERR_build_status(status, gds__text_subtype, gds_arg_number,
+						   (SLONG) parm1, 0);
+
+	return TRUE;
+}
+
+
+static USHORT nc_to_wc(CSCONVERT obj, WCHAR * pWide, USHORT nWide,	/* byte count */
+					   UCHAR * pNarrow, USHORT nNarrow,	/* byte count */
+					   SSHORT * err_code, USHORT * err_position)
+{
+/**************************************
+ *
+ *      n c _ t o _ w c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	WCHAR *pStart;
+	UCHAR *pNarrowStart;
+
+	assert(obj != NULL);
+	assert((pNarrow != NULL) || (pWide == NULL));
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+
+	*err_code = 0;
+	if (pWide == NULL)
+		return (2 * nNarrow);	/* all cases */
+	pStart = pWide;
+	pNarrowStart = pNarrow;
+	while (nWide-- > 1 && nNarrow) {
+		/* YYY - Byte order issues here */
+		*pWide++ = (WCHAR) * pNarrow++;
+		nWide--;
+		nNarrow--;
+	}
+	if (!*err_code && nNarrow) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = (pNarrow - pNarrowStart) * sizeof(*pNarrow);
+
+	return ((pWide - pStart) * sizeof(*pWide));
+}
+
+
+static void pad_spaces(TDBB tdbb, CHARSET_ID charset, BYTE * ptr, USHORT len)
+{								/* byte count */
+/**************************************
+ *
+ *      p a d  _ s p a c e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Pad a buffer with the character set defined space character.
+ *      
+ **************************************/
+	CHARSET obj;
+	BYTE *end, *space, *end_space;
+
+	SET_TDBB(tdbb);
+
+	assert(ptr != NULL);
+
+	obj = INTL_CHARSETTYPE(charset, (FPTR_VOID) ERR_post);
+
+	assert(obj != NULL);
+
+/* Single-octet character sets are optimized here */
+	if (obj->charset_space_length == 1) {
+		end = &ptr[len];
+		while (ptr < end)
+			*ptr++ = *obj->charset_space_character;
+	}
+	else {
+		end = &ptr[len];
+		end_space = &obj->charset_space_character[obj->charset_space_length];
+		while (ptr < end) {
+			space = obj->charset_space_character;
+			while (ptr < end && space < end_space) {
+				*ptr++ = *space++;
+			}
+			/* This assert is checking that we didn't have a buffer-end
+			 * in the middle of a space character
+			 */
+			assert(!(ptr == end) || (space == end_space));
+		}
+	}
+}
+
+
+static USHORT wc_to_nc(CSCONVERT obj, NCHAR * pDest, USHORT nDest,	/* byte count */
+					   WCHAR * pSrc, USHORT nSrc,	/* byte count */
+					   SSHORT * err_code, USHORT * err_position)
+{
+/**************************************
+ *
+ *      w c _ t o _ n c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	NCHAR *pStart;
+	WCHAR *pStart_src;
+
+	assert(obj != NULL);
+	assert((pSrc != NULL) || (pDest == NULL));
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+
+	*err_code = 0;
+	if (pDest == NULL)			/* length estimate needed? */
+		return ((nSrc + 1) / 2);
+	pStart = pDest;
+	pStart_src = pSrc;
+	while (nDest && nSrc >= sizeof(*pSrc)) {
+		if (*pSrc >= 256) {
+			*err_code = CS_CONVERT_ERROR;
+			break;
+		}
+		*pDest++ = *pSrc++;
+		nDest -= sizeof(*pDest);
+		nSrc -= sizeof(*pSrc);
+	}
+	if (!*err_code && nSrc) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = (pSrc - pStart_src) * sizeof(*pSrc);
+
+	return ((pDest - pStart) * sizeof(*pDest));
+}
+
+
+static USHORT mb_to_wc(CSCONVERT obj, WCHAR * pDest, USHORT nDest,	/* byte count */
+					   MBCHAR * pSrc, USHORT nSrc,	/* byte count */
+					   SSHORT * err_code, USHORT * err_position)
+{
+/**************************************
+ *
+ *      m b _ t o _ w c
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert a wc string from network form - high-endian
+ *      byte stream.
+ *
+ *************************************/
+	WCHAR *pStart;
+	MBCHAR *pStart_src;
+
+	assert(obj != NULL);
+	assert((pSrc != NULL) || (pDest == NULL));
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+
+	*err_code = 0;
+	if (pDest == NULL)			/* length estimate needed? */
+		return (nSrc);
+	pStart = pDest;
+	pStart_src = pSrc;
+	while (nDest > 1 && nSrc > 1) {
+		*pDest++ = *pSrc * 256 + *(pSrc + 1);
+		pSrc += 2;
+		nDest -= 2;
+		nSrc -= 2;
+	}
+	if (!*err_code && nSrc) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = (pSrc - pStart_src) * sizeof(*pSrc);
+
+	return ((pDest - pStart) * sizeof(*pDest));
+}
+
+
+static USHORT wc_to_mb(CSCONVERT obj, MBCHAR * pDest, USHORT nDest,	/* byte count */
+					   WCHAR * pSrc, USHORT nSrc,	/* byte count */
+					   SSHORT * err_code, USHORT * err_position)
+{
+/**************************************
+ *
+ *      w c _ t o _ m b 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert a wc string to network form - high-endian
+ *      byte stream.
+ *
+ *************************************/
+	MBCHAR *pStart;
+	WCHAR *pStart_src;
+
+	assert(obj != NULL);
+	assert((pSrc != NULL) || (pDest == NULL));
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+
+	*err_code = 0;
+	if (pDest == NULL)			/* length estimate needed? */
+		return (nSrc);
+	pStart = pDest;
+	pStart_src = pSrc;
+	while (nDest > 1 && nSrc > 1) {
+		*pDest++ = *pSrc / 256;
+		*pDest++ = *pSrc++ % 256;
+		nDest -= 2;
+		nSrc -= 2;
+	}
+	if (!*err_code && nSrc) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = (pSrc - pStart_src) * sizeof(*pSrc);
+
+	return ((pDest - pStart) * sizeof(*pDest));
+}
+
+
+static USHORT wc_to_wc(CSCONVERT obj, WCHAR * pDest, USHORT nDest,	/* byte count */
+					   WCHAR * pSrc, USHORT nSrc,	/* byte count */
+					   SSHORT * err_code, USHORT * err_position)
+{
+/**************************************
+ *
+ *      w c _ t o _ w c 
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+	WCHAR *pStart;
+	WCHAR *pStart_src;
+
+	assert(obj != NULL);
+	assert((pSrc != NULL) || (pDest == NULL));
+	assert(err_code != NULL);
+	assert(err_position != NULL);
+
+	*err_code = 0;
+	if (pDest == NULL)			/* length estimate needed? */
+		return (nSrc);
+
+	pStart = pDest;
+	pStart_src = pSrc;
+	while (nDest > 1 && nSrc > 1) {
+		*pDest++ = *pSrc++;
+		nDest -= 2;
+		nSrc -= 2;
+	}
+	if (!*err_code && nSrc) {
+		*err_code = CS_TRUNCATION_ERROR;
+	}
+	*err_position = (pSrc - pStart_src) * sizeof(*pSrc);
+
+	return ((pDest - pStart) * sizeof(*pDest));
+}
+
+
+#define TEXTTYPE_RETURN         return (0)
+
+#define FAMILY_INTERNAL(id_number, name, charset, country) \
+	cache->texttype_version =               40; \
+	cache->texttype_type =                  (id_number); \
+	cache->texttype_character_set =         (charset); \
+	cache->texttype_country =               (country); \
+	cache->texttype_bytes_per_char =        1; \
+	cache->texttype_fn_init =               (FPTR_SHORT) (name); \
+	cache->texttype_fn_key_length =         (FPTR_SHORT) internal_keylength; \
+	cache->texttype_fn_string_to_key =      (FPTR_SHORT) internal_string_to_key; \
+	cache->texttype_fn_compare =            (FPTR_short) internal_compare; \
+	cache->texttype_fn_to_upper =           (FPTR_SHORT) internal_ch_to_upper; \
+	cache->texttype_fn_to_lower =           (FPTR_SHORT) internal_ch_to_lower; \
+	cache->texttype_fn_str_to_upper =       (FPTR_short) internal_str_to_upper; \
+	cache->texttype_fn_mbtowc =             (FPTR_short) internal_nc_mbtowc; \
+	cache->texttype_collation_table =       (BYTE *) " "; \
+	cache->texttype_toupper_table =         (BYTE *) NULL; \
+	cache->texttype_tolower_table =         (BYTE *) NULL; \
+	cache->texttype_compress_table =        (BYTE *) NULL; \
+	cache->texttype_expand_table =          (BYTE *) NULL; \
+	cache->texttype_name =                  const_cast<char*>(POSIX); \
+
+
+
+static USHORT ttype_ascii_init(TEXTTYPE cache, USHORT parm1, USHORT dummy)
+{
+/**************************************
+ *
+ *      t t y p e _ a s c i i _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+	static CONST ASCII POSIX[] = "C.ASCII";
+
+	FAMILY_INTERNAL(ttype_ascii, ttype_ascii_init, CS_ASCII, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+
+static USHORT ttype_none_init(TEXTTYPE cache, USHORT parm1, USHORT dummy)
+{
+/**************************************
+ *
+ *      t t y p e _ n o n e _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+	static CONST ASCII POSIX[] = "C";
+
+	FAMILY_INTERNAL(ttype_none, ttype_none_init, CS_NONE, CC_C);
+
+	TEXTTYPE_RETURN;
+}
+
+
+static USHORT ttype_unicode_fss_init(
+									 TEXTTYPE cache,
+									 USHORT parm1, USHORT dummy)
+{
+/**************************************
+ *
+ *      t t y p e _ u n i c o d e _ f s s _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+	static CONST ASCII POSIX[] = "C.UNICODE_FSS";
+
+	FAMILY_INTERNAL(ttype_unicode_fss, ttype_unicode_fss_init, CS_UNICODE_FSS,
+					CC_C);
+	cache->texttype_bytes_per_char = 3;
+	cache->texttype_fn_to_wc = (FPTR_SHORT) INTL_fss_to_unicode;
+	cache->texttype_fn_mbtowc = (FPTR_short) INTL_fss_mbtowc;
+
+	TEXTTYPE_RETURN;
+}
+
+
+static USHORT ttype_binary_init(TEXTTYPE cache, USHORT parm1, USHORT dummy)
+{
+/**************************************
+ *
+ *      t t y p e _ b i n a r y _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+	static CONST ASCII POSIX[] = "C.OCTETS";
+
+	FAMILY_INTERNAL(ttype_binary, ttype_binary_init, CS_BINARY, CC_C);
+	cache->texttype_fn_to_upper = (FPTR_SHORT) internal_ch_copy;
+	cache->texttype_fn_to_lower = (FPTR_SHORT) internal_ch_copy;
+	cache->texttype_fn_str_to_upper = (FPTR_short) internal_str_copy;
+	cache->texttype_collation_table = (BYTE *) "\0";	/* pad character */
+
+	TEXTTYPE_RETURN;
+}
+
+
+/*
+ *      Start of Character set definitions 
+ */
+
+#define CHARSET_RETURN          return (0)
+
+static void common_8bit_init(
+							 CHARSET csptr,
+							 USHORT id,
+							 ASCII * name,
+							 BYTE * to_unicode_tbl,
+							 BYTE * from_unicode_tbl1,
+BYTE * from_unicode_tbl2)
+{
+/**************************************
+ *
+ *      c o m m o n _ 8 b i t _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+
+	csptr->charset_version = 40;
+	csptr->charset_id = id;
+	csptr->charset_name = name;
+	csptr->charset_flags = 0;
+	csptr->charset_min_bytes_per_char = 1;
+	csptr->charset_max_bytes_per_char = 1;
+	csptr->charset_space_length = 1;
+	csptr->charset_space_character = (BYTE *) " ";
+	csptr->charset_well_formed = (FPTR_SHORT) NULL;
+}
+
+
+static USHORT cs_ascii_init(CHARSET csptr, USHORT cs_id, USHORT dummy)
+{
+/**************************************
+ *
+ *      c s _ a s c i i _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+
+	common_8bit_init(csptr, CS_ASCII, (ASCII *) "ASCII", NULL, NULL, NULL);
+	common_convert_init(&csptr->charset_to_unicode, CS_UNICODE101, CS_ASCII,
+						(FPTR_SHORT) cvt_ascii_to_unicode, NULL, NULL);
+	common_convert_init(&csptr->charset_from_unicode, CS_ASCII, CS_UNICODE101,
+						(FPTR_SHORT) cvt_unicode_to_ascii, NULL, NULL);
+	CHARSET_RETURN;
+}
+
+
+static USHORT cs_none_init(CHARSET csptr, USHORT cs_id, USHORT dummy)
+{
+/**************************************
+ *
+ *      c s _ n o n e _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+
+	common_8bit_init(csptr, CS_NONE, (ASCII *) "NONE", NULL, NULL, NULL);
+/*
+common_convert_init (&csptr->charset_to_unicode, CS_UNICODE101, id,
+	nc_to_wc, to_unicode_tbl, NULL);
+*/
+	common_convert_init(&csptr->charset_to_unicode, CS_UNICODE101, CS_NONE,
+						(FPTR_SHORT) cvt_none_to_unicode, NULL, NULL);
+	common_convert_init(&csptr->charset_from_unicode, CS_NONE, CS_UNICODE101,
+						(FPTR_SHORT) wc_to_nc, NULL, NULL);
+	CHARSET_RETURN;
+}
+
+
+static USHORT cs_unicode_fss_init(CHARSET csptr, USHORT cs_id, USHORT dummy)
+{
+/**************************************
+ *
+ *      c s _ u n i c o d e _ f s s _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+
+	common_8bit_init(csptr, CS_UNICODE_FSS, (ASCII *) "UNICODE_FSS", NULL,
+					 NULL, NULL);
+	common_convert_init(&csptr->charset_to_unicode, CS_UNICODE101,
+						CS_UNICODE_FSS, (FPTR_SHORT) INTL_fss_to_unicode,
+						NULL, NULL);
+	common_convert_init(&csptr->charset_from_unicode, CS_UNICODE_FSS,
+						CS_UNICODE101, (FPTR_SHORT) INTL_unicode_to_fss, NULL,
+						NULL);
+	CHARSET_RETURN;
+}
+
+
+static USHORT cs_unicode_init(CHARSET csptr, USHORT cs_id, USHORT dummy)
+{
+/**************************************
+ *
+ *      c s _ u n i c o d e _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+	static CONST WCHAR space = 0x0020;
+
+	csptr->charset_version = 40;
+	csptr->charset_id = CS_UNICODE101;
+	csptr->charset_name = ( /*CONST*/ ASCII *) "UNICODE101";
+	csptr->charset_flags = 0;
+	csptr->charset_min_bytes_per_char = 2;
+	csptr->charset_max_bytes_per_char = 2;
+	csptr->charset_space_length = 2;
+	csptr->charset_space_character = (BYTE *) & space;	/* 0x0020 */
+	csptr->charset_well_formed = (FPTR_SHORT) NULL;
+	CHARSET_RETURN;
+}
+
+
+static USHORT cs_binary_init(CHARSET csptr, USHORT cs_id, USHORT dummy)
+{
+/**************************************
+ *
+ *      c s _ b i n a r y _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+
+	common_8bit_init(csptr, CS_BINARY, (ASCII *) "BINARY", NULL, NULL, NULL);
+	csptr->charset_space_character = (BYTE *) "\0";
+	common_convert_init(&csptr->charset_to_unicode, CS_UNICODE101, CS_BINARY,
+						(FPTR_SHORT) mb_to_wc, NULL, NULL);
+	common_convert_init(&csptr->charset_from_unicode, CS_BINARY,
+						CS_UNICODE101, (FPTR_SHORT) wc_to_mb, NULL, NULL);
+	CHARSET_RETURN;
+}
+
+
+/*
+ *      Start of Conversion entries
+ */
+
+#define CONVERT_RETURN  return (0)
+
+
+static USHORT cvt_ascii_utf_init(
+								 CSCONVERT csptr,
+								 USHORT dest_cs, USHORT source_cs)
+{
+/**************************************
+ *
+ *      c v t _ a s c i i _ u t f _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+
+	common_convert_init(csptr, dest_cs, source_cs,
+						(FPTR_SHORT) cvt_utffss_to_ascii, NULL, NULL);
+	CONVERT_RETURN;
+}
+
+
+#ifdef DEV_BUILD
+
+/*
+ *      Utility routines designed to be called from the debugger to
+ *      print buffers, pointers, etc. which may contain text that
+ *      the debugger doesn't consider visible.
+ */
+static void dump_hex(UCHAR * p, USHORT len)
+{
+/**************************************
+ *
+ *      d u m p _ h e x
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+
+	while (len--)
+		ib_printf("%02X ", *p++);
+	ib_printf("\n");
+}
+
+
+static void dump_latin(UCHAR * p, USHORT len)
+{
+/**************************************
+ *
+ *      d u m p _ l a t i n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *************************************/
+
+	while (len--)
+		if (isprintable(*p))
+			ib_printf("%c", *p++);
+		else
+			ib_printf("\0x%02X", *p++);
+	ib_printf("\n");
+}
+#endif
+
+
+} // extern "C"
diff --git a/src/jrd/intl.h b/src/jrd/intl.h
new file mode 100644
index 0000000000..d8a21104fa
--- /dev/null
+++ b/src/jrd/intl.h
@@ -0,0 +1,147 @@
+/*
+ *	PROGRAM:	JRD International support
+ *	MODULE:		intl.h
+ *	DESCRIPTION:	International text handling definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_INTL_H_
+#define _JRD_INTL_H_
+
+#include "../intl/charsets.h"
+
+#define ASCII_SPACE     32		/* ASCII code for space */
+
+#define INTL_name_not_found		1
+#define INTL_subtype_not_implemented	2
+
+/*
+ *  Default character set name for specification of COLLATE clause without
+ *  a CHARACTER SET clause.
+ *
+ *  NATIONAL_CHARACTER_SET is used for SQL's NATIONAL character type.
+ */
+#define DEFAULT_CHARACTER_SET_NAME	"ISO_8859_1"
+#define NATIONAL_CHARACTER_SET		DEFAULT_CHARACTER_SET_NAME
+
+
+/*
+ * Character Set used for system metadata information
+ */
+#define CS_METADATA			CS_UNICODE_FSS	/* metadata charset */
+
+/* text type definitions */
+
+#define ttype_none			CS_NONE	/* 0 */
+#define	ttype_ascii			CS_ASCII	/* 2 */
+#define	ttype_binary			CS_BINARY	/* 1 */
+#define	ttype_unicode_fss		CS_UNICODE_FSS	/* 3 */
+#define	ttype_last_internal		4	/* CS_reserved4 */
+
+#define ttype_dynamic			CS_dynamic	/* use att_charset */
+
+#define ttype_sort_key			ttype_binary
+#define	ttype_metadata			ttype_unicode_fss
+
+/* Note: 
+ * changing the value of ttype_metadata is an ODS System Metadata change
+ * changing the value of CS_METADATA    is an ODS System Metadata change
+ */
+
+
+
+
+#define	COLLATE_NONE			0	/* No special collation, use codepoint order */
+
+#define INTL_ASSIGN_DSC(dsc, cs, coll)   \
+	{ (dsc)->dsc_sub_type = (SSHORT) ((coll) << 8 | (cs)); }
+
+#define INTL_COPY_DSC(dest, src) \
+	{ (dest)->dsc_sub_type = (src)->dsc_sub_type; }
+
+#define INTL_GET_TTYPE(dsc)   \
+	  ((dsc)->dsc_sub_type)
+
+#define INTL_GET_CHARSET(dsc)	((SCHAR)((dsc)->dsc_sub_type & 0x00FF))
+#define INTL_GET_COLLATE(dsc)	((SCHAR)((dsc)->dsc_sub_type >> 8))
+
+
+#define	IS_DTYPE_ANY_TEXT(x)		((x) <= dtype_any_text)
+
+/* Define tests for international data */
+
+#define	INTL_TTYPE(desc)		((desc)->dsc_ttype)
+#define	INTL_ASSIGN_TTYPE(desc, value) 	((desc)->dsc_ttype = (SSHORT)(value))
+
+#define INTERNAL_TTYPE(d)	(((USHORT)((d)->dsc_ttype)) <= ttype_last_internal)
+
+#define IS_INTL_DATA(d)		((d)->dsc_dtype <= dtype_any_text &&    \
+				 (((USHORT)((d)->dsc_ttype)) > ttype_last_internal))
+
+#define NUMERIC_SCALE(desc)	((IS_DTYPE_ANY_TEXT((desc).dsc_dtype)) ? 0 : (desc).dsc_scale)
+
+#define INTL_TEXT_TYPE(desc)    ((IS_DTYPE_ANY_TEXT((desc).dsc_dtype)) ? INTL_TTYPE (&(desc)) : ttype_ascii)
+
+#define INTL_DYNAMIC_CHARSET(desc)	(INTL_GET_CHARSET(desc) == CS_dynamic)
+
+
+
+/*
+ * There are several ways text types are used internally to InterBase
+ *  1) As a CHARACTER_SET_ID & COLLATION_ID pair (in metadata).
+ *  2) As a CHARACTER_SET_ID (when collation isn't relevent, like UDF parms)
+ *  3) As an index type - (btr.h)
+ *  4) As a driver ID (used to lookup the code which implements the locale)
+ *     This is also known as dsc_ttype (aka text subtype).
+ *
+ * In Descriptors (DSC) the data is encoded as:
+ *	dsc_charset	overloaded into dsc_scale
+ *	dsc_collate	overloaded into dsc_sub_type
+ *
+ * Index types are converted to driver ID's via INTL_INDEX_TYPE
+ *
+ */
+
+/* There must be a 1-1 mapping between index types and International text
+ * subtypes - 
+ * Index-to-subtype: to compute a KEY from a Text string we must know both
+ *	the TEXT format and the COLLATE routine to use (eg: the subtype info).
+ * 	We need the text-format as the datavalue for key creation may not
+ * 	match that needed for the index. 
+ * Subtype-to-index: When creating indices, they are assigned an
+ *	Index type, which is derived from the datatype of the target.
+ *
+ */
+#define INTL_INDEX_TO_TEXT(idxType) ((SSHORT)((idxType) - idx_offset_intl_range))
+
+/* Maps a text_type to an index ID */
+#define INTL_TEXT_TO_INDEX(tType)   ((USHORT)((tType)   + idx_offset_intl_range))
+
+#define MAP_CHARSET_TO_TTYPE(cs)	(cs & 0x00FF)
+
+#define	INTL_RES_TTYPE(desc)	(INTL_DYNAMIC_CHARSET(desc) ?\
+			MAP_CHARSET_TO_TTYPE(tdbb->tdbb_attachment->att_charset) :\
+		 	INTL_GET_TTYPE (desc))
+
+#define INTL_INDEX_TYPE(desc)	INTL_TEXT_TO_INDEX (INTL_RES_TTYPE (desc))
+
+/* Maps a Character_set_id & collation_id to a text_type (driver ID) */
+#define INTL_CS_COLL_TO_TTYPE(cs,coll)	((SSHORT)((coll) << 8 | ((cs) & 0x00FF)))
+
+#endif /* _JRD_INTL_H_ */
diff --git a/src/jrd/intl_proto.h b/src/jrd/intl_proto.h
new file mode 100644
index 0000000000..19ec335ae4
--- /dev/null
+++ b/src/jrd/intl_proto.h
@@ -0,0 +1,70 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		intl_proto.h
+ *	DESCRIPTION:	Prototype Header file for intl.c 
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_INTL_PROTO_H_
+#define _JRD_INTL_PROTO_H_
+
+#include "../jrd/intlobj.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern SSHORT DLL_EXPORT INTL_charset(TDBB, USHORT, FPTR_VOID);
+extern int DLL_EXPORT INTL_compare(TDBB, struct dsc *, struct dsc *,
+								   FPTR_VOID);
+extern USHORT DLL_EXPORT INTL_convert_bytes(TDBB, SSHORT, UCHAR *, USHORT,
+											SSHORT, UCHAR *, USHORT,
+											FPTR_VOID);
+extern struct csconvert *DLL_EXPORT INTL_convert_lookup(TDBB, SSHORT, SSHORT);
+extern int DLL_EXPORT INTL_convert_string(struct dsc *, struct dsc *,
+										  FPTR_VOID);
+extern int DLL_EXPORT INTL_data(struct dsc *);
+extern int DLL_EXPORT INTL_data_or_binary(struct dsc *);
+extern int DLL_EXPORT INTL_defined_type(TDBB, STATUS *, SSHORT);
+extern SSHORT DLL_EXPORT INTL_fss_mbtowc(struct texttype **, unsigned short *,
+										 unsigned char *, USHORT);
+extern USHORT DLL_EXPORT INTL_fss_to_unicode(struct csconvert *, USHORT *,
+											 USHORT, unsigned char *, USHORT,
+											 SSHORT *, USHORT *);
+extern unsigned short DLL_EXPORT INTL_getch(TDBB, struct texttype **, SSHORT,
+											UCHAR **, USHORT *);
+extern void DLL_EXPORT INTL_init(TDBB);
+extern USHORT DLL_EXPORT INTL_key_length(TDBB, USHORT, USHORT);
+extern void *DLL_EXPORT INTL_obj_lookup(TDBB, USHORT, SSHORT, FPTR_VOID,
+										STATUS *);
+extern void DLL_EXPORT INTL_pad_spaces(TDBB, struct dsc *, UCHAR *, USHORT);
+extern USHORT DLL_EXPORT INTL_string_to_key(TDBB, USHORT, struct dsc *,
+											struct dsc *, USHORT);
+extern int DLL_EXPORT INTL_str_to_upper(TDBB, struct dsc *);
+extern USHORT DLL_EXPORT INTL_unicode_to_fss(struct csconvert *,
+											 unsigned char *, USHORT,
+											 USHORT *, USHORT, SSHORT *,
+											 USHORT *);
+extern UCHAR DLL_EXPORT INTL_upper(TDBB, USHORT, UCHAR);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_INTL_PROTO_H_ */
diff --git a/src/jrd/intlnames.h b/src/jrd/intlnames.h
new file mode 100644
index 0000000000..d279ea35d1
--- /dev/null
+++ b/src/jrd/intlnames.h
@@ -0,0 +1,238 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		intlnames.h
+ *	DESCRIPTION:	International objects for metadata initialization
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/*
+ *	CHARSET
+ *	Binding's of symbols to character set ids.
+ *	With implementation ID of default collation 
+ * 	CHARSET (name, ID, default_subtype, max_bytes_per_char, num_chars, symbol)
+ *
+ *	Note: "name" is official name per InterBase
+ *
+ */
+
+/*
+ *	CSALIAS
+ *	Alternate name for a character set (to account for platforms
+ *	naming the same character set by alternate ways).
+ *	CSALIAS	(name, ID)
+ */
+
+/*
+ *	COLLATION
+ *	Binding's of symbols to Collation ID's and Character
+ *	set id's.
+ *	Collation ID tells us the locale.
+ *	Character Set ID tells us the character set.
+ *	By SQL II specification, the collation name must be unique.
+ *
+ *	COLLATION (name, collation_id, charset_id, subtype_id, symbol)
+ *
+ *	Note: "name" is official name per InterBase
+ */
+
+#ifndef _INTL_COMPONENT_
+
+CHARSET("NONE", CS_NONE, 0, 1, 256, cs_none_init, dummy)
+	END_CHARSET CHARSET("OCTETS", CS_BINARY, 0, 1, 256, cs_binary_init, dummy)
+	CSALIAS("BINARY", CS_BINARY)
+	END_CHARSET CHARSET("ASCII", CS_ASCII, 0, 1, 256, cs_ascii_init, dummy)
+	CSALIAS("USASCII", CS_ASCII)
+	CSALIAS("ASCII7", CS_ASCII)
+	END_CHARSET
+/* V3 SUB_TYPE 201 */
+	CHARSET("UNICODE_FSS", CS_UNICODE_FSS, 0, 3, 256 * 256, cs_unicode_fss_init,
+		dummy) CSALIAS("UTF_FSS", CS_UNICODE_FSS)
+	CSALIAS("SQL_TEXT", CS_UNICODE_FSS)
+	END_CHARSET
+#endif
+/* V3 SUB_TYPE 220 */
+	CHARSET("SJIS_0208", CS_SJIS, 0, 2, 7007, CS_sjis, JIS220_init)
+	CSALIAS("SJIS", CS_SJIS)
+	END_CHARSET
+/* V3 SUB_TYPE 230 */
+	CHARSET("EUCJ_0208", CS_EUCJ, 0, 2, 7007, CS_euc_j, JIS230_init)
+	CSALIAS("EUCJ", CS_EUCJ)
+	END_CHARSET
+CHARSET("DOS437", CS_DOS_437, 0, 1, 256, CS_dos_437, DOS101_init)
+CSALIAS("DOS_437", CS_DOS_437)
+	/* V3 SUB_TYPE 101 */
+	COLLATION("PDOX_ASCII", CC_ASCII, CS_DOS_437, 1, DOS101_init)
+	/* V3 SUB_TYPE 102 */
+	COLLATION("PDOX_INTL", CC_INTL, CS_DOS_437, 2, DOS102_init)
+	/* V3 SUB_TYPE 106 */
+	COLLATION("PDOX_SWEDFIN", CC_SWEDFIN, CS_DOS_437, 3, DOS106_init)
+	COLLATION("DB_DEU437", CC_GERMANY, CS_DOS_437, 4, DOS101_c2_init)
+	COLLATION("DB_ESP437", CC_SPAIN, CS_DOS_437, 5, DOS101_c3_init)
+	COLLATION("DB_FIN437", CC_FINLAND, CS_DOS_437, 6, DOS101_c4_init)
+	COLLATION("DB_FRA437", CC_FRANCE, CS_DOS_437, 7, DOS101_c5_init)
+	COLLATION("DB_ITA437", CC_ITALY, CS_DOS_437, 8, DOS101_c6_init)
+	COLLATION("DB_NLD437", CC_NEDERLANDS, CS_DOS_437, 9, DOS101_c7_init)
+	COLLATION("DB_SVE437", CC_SWEDEN, CS_DOS_437, 10, DOS101_c8_init)
+	COLLATION("DB_UK437", CC_UK, CS_DOS_437, 11, DOS101_c9_init)
+	COLLATION("DB_US437", CC_US, CS_DOS_437, 12, DOS101_c10_init)
+	END_CHARSET
+/* V3 SUB_TYPE 160 */
+	CHARSET("DOS850", CS_DOS_850, 0, 1, 256, CS_dos_850, DOS160_init)
+	CSALIAS("DOS_850", CS_DOS_850)
+	COLLATION("DB_FRC850", CC_FRENCHCAN, CS_DOS_850, 1, DOS160_c1_init)
+	COLLATION("DB_DEU850", CC_GERMANY, CS_DOS_850, 2, DOS160_c2_init)
+	COLLATION("DB_ESP850", CC_SPAIN, CS_DOS_850, 3, DOS160_c3_init)
+	COLLATION("DB_FRA850", CC_FRANCE, CS_DOS_850, 4, DOS160_c4_init)
+	COLLATION("DB_ITA850", CC_ITALY, CS_DOS_850, 5, DOS160_c5_init)
+	COLLATION("DB_NLD850", CC_NEDERLANDS, CS_DOS_850, 6, DOS160_c6_init)
+	COLLATION("DB_PTB850", CC_PORTUGAL, CS_DOS_850, 7, DOS160_c7_init)
+	COLLATION("DB_SVE850", CC_SWEDEN, CS_DOS_850, 8, DOS160_c8_init)
+	COLLATION("DB_UK850", CC_UK, CS_DOS_850, 9, DOS160_c9_init)
+	COLLATION("DB_US850", CC_US, CS_DOS_850, 10, DOS160_c10_init)
+	END_CHARSET
+/* V3 SUB_TYPE 107 */
+	CHARSET("DOS865", CS_DOS_865, 0, 1, 256, CS_dos_865, DOS107_init)
+	CSALIAS("DOS_865", CS_DOS_865)
+	/* V3 SUB_TYPE 105 */
+	COLLATION("PDOX_NORDAN4", CC_NORDAN, CS_DOS_865, 1, DOS107_c1_init)
+	COLLATION("DB_DAN865", CC_DENMARK, CS_DOS_865, 2, DOS107_c2_init)
+	COLLATION("DB_NOR865", CC_NORWAY, CS_DOS_865, 3, DOS107_c3_init)
+	END_CHARSET
+CHARSET("ISO8859_1", CS_LATIN1, 0, 1, 256, CS_iso_latin1, LATIN1_cp_init)
+CSALIAS("ISO_8859_1", CS_LATIN1)
+	CSALIAS("ISO88591", CS_LATIN1)
+	CSALIAS("LATIN1", CS_LATIN1)
+	CSALIAS("ANSI", CS_LATIN1)
+	/* V3 SUB_TYPE 139 */
+	COLLATION("DA_DA", CC_DENMARK, CS_LATIN1, 1, LAT139_init)
+	/* V3 SUB_TYPE 140 */
+	COLLATION("DU_NL", CC_NEDERLANDS, CS_LATIN1, 2, LAT140_init)
+	/* V3 SUB_TYPE 141 */
+	COLLATION("FI_FI", CC_FINLAND, CS_LATIN1, 3, LAT141_init)
+	/* V3 SUB_TYPE 142 */
+	COLLATION("FR_FR", CC_FRANCE, CS_LATIN1, 4, LAT142_init)
+	/* V3 SUB_TYPE 143 */
+	COLLATION("FR_CA", CC_FRENCHCAN, CS_LATIN1, 5, LAT143_init)
+	/* V3 SUB_TYPE 144 */
+	COLLATION("DE_DE", CC_GERMANY, CS_LATIN1, 6, LAT144_init)
+	/* V3 SUB_TYPE 145 */
+	COLLATION("IS_IS", CC_ICELAND, CS_LATIN1, 7, LAT145_init)
+	/* V3 SUB_TYPE 146 */
+	COLLATION("IT_IT", CC_ITALY, CS_LATIN1, 8, LAT146_init)
+	/* V3 SUB_TYPE 148 */
+	COLLATION("NO_NO", CC_NORWAY, CS_LATIN1, 9, LAT148_init)
+	/* V3 SUB_TYPE 149 */
+	COLLATION("ES_ES", CC_SPAIN, CS_LATIN1, 10, LAT149_init)
+	/* V3 SUB_TYPE 151 */
+	COLLATION("SV_SV", CC_SWEDEN, CS_LATIN1, 11, LAT151_init)
+	/* V3 SUB_TYPE 152 */
+	COLLATION("EN_UK", CC_UK, CS_LATIN1, 12, LAT152_init)
+	/* V3 SUB_TYPE 153 */
+	COLLATION("EN_US", CC_US, CS_LATIN1, 14, LAT153_init)
+	/* V3 SUB_TYPE 154 */
+	COLLATION("PT_PT", CC_PORTUGAL, CS_LATIN1, 15, LAT154_init)
+	END_CHARSET
+CHARSET("DOS852", CS_DOS_852, 0, 1, 256, CS_dos_852, DOS852_c0_init)
+CSALIAS("DOS_852", CS_DOS_852)
+	COLLATION("DB_CSY", CC_CZECH, CS_DOS_852, 1, DOS852_c1_init)
+	COLLATION("DB_PLK", CC_POLAND, CS_DOS_852, 2, DOS852_c2_init)
+#ifdef BUG_6925
+	COLLATION("DB_HUN", CC_HUNGARY, CS_DOS_852, 3, DOS852_c3_init)
+#endif
+	COLLATION("DB_SLO", CC_YUGOSLAVIA, CS_DOS_852, 4, DOS852_c4_init)
+	COLLATION("PDOX_CSY", CC_CZECH, CS_DOS_852, 5, DOS852_c5_init)
+	COLLATION("PDOX_PLK", CC_POLAND, CS_DOS_852, 6, DOS852_c6_init)
+	COLLATION("PDOX_HUN", CC_HUNGARY, CS_DOS_852, 7, DOS852_c7_init)
+	COLLATION("PDOX_SLO", CC_YUGOSLAVIA, CS_DOS_852, 8, DOS852_c8_init)
+	END_CHARSET
+CHARSET("DOS857", CS_DOS_857, 0, 1, 256, CS_dos_857, DOS857_c0_init)
+CSALIAS("DOS_857", CS_DOS_857)
+	COLLATION("DB_TRK", CC_TURKEY, CS_DOS_857, 1, DOS857_c1_init)
+#ifdef BUG_6925
+	COLLATION("PDOX_TURK", CC_TURKEY, CS_DOS_857, 2, DOS857_c2_init)
+#endif
+	END_CHARSET
+CHARSET("DOS860", CS_DOS_860, 0, 1, 256, CS_dos_860, DOS860_c0_init)
+CSALIAS("DOS_860", CS_DOS_860)
+	COLLATION("DB_PTG860", CC_PORTUGAL, CS_DOS_860, 1, DOS860_c1_init)
+	END_CHARSET
+CHARSET("DOS861", CS_DOS_861, 0, 1, 256, CS_dos_861, DOS861_c0_init)
+CSALIAS("DOS_861", CS_DOS_861)
+	COLLATION("PDOX_ISL", CC_ICELAND, CS_DOS_861, 1, DOS861_c1_init)
+	END_CHARSET
+CHARSET("DOS863", CS_DOS_863, 0, 1, 256, CS_dos_863, DOS863_c0_init)
+CSALIAS("DOS_863", CS_DOS_863)
+	COLLATION("DB_FRC863", CC_FRENCHCAN, CS_DOS_863, 1, DOS863_c1_init)
+	END_CHARSET CHARSET("CYRL", CS_CYRL, 0, 1, 256, CS_cyrl, CYRL_c0_init)
+	COLLATION("DB_RUS", CC_RUSSIA, CS_CYRL, 1, CYRL_c1_init)
+	COLLATION("PDOX_CYRL", CC_RUSSIA, CS_CYRL, 2, CYRL_c2_init)
+	END_CHARSET
+CHARSET("WIN1250", CS_WIN1250, 0, 1, 256, CS_win1250, WIN1250_c0_init)
+CSALIAS("WIN_1250", CS_WIN1250)
+	COLLATION("PXW_CSY", CC_CZECH, CS_WIN1250, 1, WIN1250_c1_init)
+	COLLATION("PXW_HUNDC", CC_HUNGARY, CS_WIN1250, 2, WIN1250_c2_init)
+	COLLATION("PXW_PLK", CC_POLAND, CS_WIN1250, 3, WIN1250_c3_init)
+	COLLATION("PXW_SLOV", CC_YUGOSLAVIA, CS_WIN1250, 4, WIN1250_c4_init)
+	END_CHARSET
+CHARSET("WIN1251", CS_WIN1251, 0, 1, 256, CS_win1251, WIN1251_c0_init)
+CSALIAS("WIN_1251", CS_WIN1251)
+	COLLATION("PXW_CYRL", CC_RUSSIA, CS_WIN1251, 1, WIN1251_c1_init)
+	END_CHARSET
+CHARSET("WIN1252", CS_WIN1252, 0, 1, 256, CS_win1252, WIN1252_c0_init)
+CSALIAS("WIN_1252", CS_WIN1252)
+	COLLATION("PXW_INTL", CC_INTL, CS_WIN1252, 1, WIN1252_c1_init)
+	COLLATION("PXW_INTL850", CC_INTL, CS_WIN1252, 2, WIN1252_c2_init)
+	COLLATION("PXW_NORDAN4", CC_NORDAN, CS_WIN1252, 3, WIN1252_c3_init)
+	COLLATION("PXW_SPAN", CC_SPAIN, CS_WIN1252, 4, WIN1252_c4_init)
+	COLLATION("PXW_SWEDFIN", CC_SWEDFIN, CS_WIN1252, 5, WIN1252_c5_init)
+	END_CHARSET
+CHARSET("WIN1253", CS_WIN1253, 0, 1, 256, CS_win1253, WIN1253_c0_init)
+CSALIAS("WIN_1253", CS_WIN1253)
+	COLLATION("PXW_GREEK", CC_GREECE, CS_WIN1253, 1, WIN1253_c1_init)
+	END_CHARSET
+CHARSET("WIN1254", CS_WIN1254, 0, 1, 256, CS_win1254, WIN1254_c0_init)
+CSALIAS("WIN_1254", CS_WIN1254)
+	COLLATION("PXW_TURK", CC_TURKEY, CS_WIN1254, 1, WIN1254_c1_init)
+	END_CHARSET CHARSET("NEXT", CS_NEXT, 0, 1, 256, CS_next, NEXT_c0_init)
+	/* V3 SUB_TYPE 180 */
+	COLLATION("NXT_US", CC_US, CS_NEXT, 1, NEXT_c1_init)
+	/* V3 SUB_TYPE 181 */
+	COLLATION("NXT_DEU", CC_GERMANY, CS_NEXT, 2, NEXT_c2_init)
+	/* V3 SUB_TYPE 182 */
+	COLLATION("NXT_FRA", CC_FRANCE, CS_NEXT, 3, NEXT_c3_init)
+	/* V3 SUB_TYPE 183 */
+	COLLATION("NXT_ITA", CC_ITALY, CS_NEXT, 4, NEXT_c4_init)
+	/* V3 SUB_TYPE 184 */
+	COLLATION("NXT_ESP", CC_SPAIN, CS_NEXT, 5, NEXT_c0_init)
+	END_CHARSET
+CHARSET("KSC_5601", CS_KSC5601, 0, 2, 4888, CS_ksc_5601, KSC_5601_init)
+CSALIAS("KSC5601", CS_KSC5601)
+	CSALIAS("DOS_949", CS_KSC5601)
+	CSALIAS("WIN_949", CS_KSC5601)
+	COLLATION("KSC_DICTIONARY", CC_KOREA, CS_KSC5601, 1, CV_ksc_5601_dict_init)
+	END_CHARSET CHARSET("BIG_5", CS_BIG5, 0, 2, 13481, CS_big_5, BIG5_init)
+	CSALIAS("BIG5", CS_BIG5)
+	CSALIAS("DOS_950", CS_BIG5)
+	CSALIAS("WIN_950", CS_BIG5)
+	END_CHARSET
+CHARSET("GB_2312", CS_GB2312, 0, 2, 6763, CS_gb_2312, GB_2312_init)
+CSALIAS("GB2312", CS_GB2312)
+	CSALIAS("DOS_936", CS_GB2312)
+	CSALIAS("WIN_936", CS_GB2312)
+	END_CHARSET
diff --git a/src/jrd/intlobj.h b/src/jrd/intlobj.h
new file mode 100644
index 0000000000..57cc402f50
--- /dev/null
+++ b/src/jrd/intlobj.h
@@ -0,0 +1,148 @@
+/*
+ *	PROGRAM:	JRD International support
+ *	MODULE:		intlobj.h
+ *	DESCRIPTION:	International text handling definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_INTLOBJ_H_
+#define _JRD_INTLOBJ_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* duplicate definition from flu.c */
+
+typedef USHORT(*FPTR_SHORT) ();
+typedef SSHORT(*FPTR_short) ();
+
+typedef SSHORT CHARSET_ID;
+typedef SSHORT COLLATE_ID;
+typedef USHORT TTYPE_ID;
+typedef SCHAR ASCII;
+typedef unsigned char NCHAR;	/* Narrow Char */
+typedef unsigned short WCHAR;	/* Wide   Char */
+typedef unsigned char MBCHAR;	/* Multibyte Char */
+
+typedef struct texttype {
+	struct blk texttype_blk;
+	USHORT texttype_version;	/* version ID of object */
+	USHORT texttype_flags;		/* miscellanous flags */
+	TTYPE_ID texttype_type;		/* Interpretation ID */
+	ASCII *texttype_name;
+	CHARSET_ID texttype_character_set;	/* ID of base character set */
+	SSHORT texttype_country;	/* ID of base country values */
+	BYTE texttype_bytes_per_char;	/* max bytes per character */
+
+	/* MUST BE ALIGNED */
+	FPTR_SHORT texttype_fn_init;
+	FPTR_SHORT texttype_fn_key_length;
+	FPTR_SHORT texttype_fn_string_to_key;
+	FPTR_short texttype_fn_compare;
+	FPTR_SHORT texttype_fn_to_upper;	/* convert one ch to uppercase */
+	FPTR_SHORT texttype_fn_to_lower;	/* One ch to lowercase */
+	FPTR_short texttype_fn_str_to_upper;	/* Convert string to uppercase */
+	FPTR_SHORT texttype_fn_to_wc;	/* convert string to wc */
+	FPTR_SHORT texttype_fn_contains;	/* s1 contains s2? */
+	FPTR_SHORT texttype_fn_like;	/* s1 like s2? */
+	FPTR_SHORT texttype_fn_matches;	/* s1 matches s2 */
+	FPTR_SHORT texttype_fn_sleuth_check;	/* s1 sleuth s2 */
+	FPTR_SHORT texttype_fn_sleuth_merge;	/* aux function for sleuth */
+	FPTR_short texttype_fn_mbtowc;	/* get next character */
+	BYTE *texttype_collation_table;
+	BYTE *texttype_toupper_table;
+	BYTE *texttype_tolower_table;
+	BYTE *texttype_expand_table;
+	BYTE *texttype_compress_table;
+	BYTE *texttype_misc;		/* Used by some drivers */
+	ULONG *texttype_unused[4];	/* spare space */
+} *TEXTTYPE;
+
+#define TEXTTYPE_init               1	/* object has been init'ed */
+#define TEXTTYPE_reverse_secondary  2	/* Reverse order of secondary keys */
+#define TEXTTYPE_ignore_specials    4	/* Do not put special values in keys */
+#define TEXTTYPE_expand_before      8	/* Expansion weights before litagure */
+
+
+
+
+typedef struct csconvert {
+	struct blk csconvert_blk;
+	USHORT csconvert_version;
+	USHORT csconvert_flags;
+	SSHORT csconvert_id;
+	ASCII *csconvert_name;
+	CHARSET_ID csconvert_from;
+	CHARSET_ID csconvert_to;
+	FPTR_SHORT csconvert_convert;
+	BYTE *csconvert_datatable;
+	BYTE *csconvert_misc;
+	ULONG *csconvert_unused[2];
+} *CSCONVERT;
+
+/* values for csconvert_flags */
+
+#define CONVERTTYPE_init	1	/* object has been init'ed */
+
+/* Conversion error codes */
+
+#define	CS_TRUNCATION_ERROR	1	/* output buffer too small  */
+#define	CS_CONVERT_ERROR	2	/* can't remap a character      */
+#define	CS_BAD_INPUT		3	/* input string detected as bad */
+
+#define	CS_CANT_MAP		0		/* Flag table entries that don't map */
+
+
+
+
+
+typedef struct charset {
+	struct blk charset_blk;
+	USHORT charset_version;
+	USHORT charset_flags;
+	CHARSET_ID charset_id;
+	ASCII *charset_name;
+	BYTE charset_min_bytes_per_char;
+	BYTE charset_max_bytes_per_char;
+	BYTE charset_space_length;
+	BYTE *charset_space_character;
+
+	/* Must be aligned */
+	FPTR_SHORT charset_well_formed;
+	struct csconvert charset_to_unicode;
+	struct csconvert charset_from_unicode;
+
+	VEC charset_converters;
+	VEC charset_collations;
+	ULONG *charset_unused[2];
+} *CHARSET;
+
+/* values for charset_flags */
+
+#define	CHARSET_init	1
+#define CHARSET_narrow	2
+#define CHARSET_multi	4
+#define CHARSET_wide	8
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_INTLOBJ_H_ */
diff --git a/src/jrd/inuse.cpp b/src/jrd/inuse.cpp
new file mode 100644
index 0000000000..96a830d339
--- /dev/null
+++ b/src/jrd/inuse.cpp
@@ -0,0 +1,253 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		inuse.c
+ *	DESCRIPTION:	Keep track of objects that are in use
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/jrd.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/inuse_proto.h"
+#include "../jrd/thd_proto.h"
+
+static void cleanup(void *);
+static void init(void);
+
+static IUO free_list = NULL;
+static MUTX_T inuse_mutex[1];
+static BOOLEAN initialized = FALSE;
+
+
+BOOLEAN INUSE_cleanup(IUO inuse, void (*cleanup_routine) ())
+{
+/**************************************
+ *
+ *	I N U S E _ c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cleanup an in-use structure.  If any
+ *	objects are found to be non-NULL,
+ *	call the cleanup routine.  Return TRUE
+ *	if there was something to do.
+ *
+ **************************************/
+	void **ptr, **end;
+	BOOLEAN needed_cleaning;
+	IUO secondary_inuse;
+
+	needed_cleaning = FALSE;
+	secondary_inuse = inuse->iuo_next;
+	do {
+		ptr = inuse->iuo_object;
+		for (end = ptr + inuse->iuo_in_use_count; ptr < end; ptr++)
+			if (*ptr) {
+				reinterpret_cast <
+					void (*) (void *) >(*cleanup_routine) (*ptr);
+				needed_cleaning = TRUE;
+			}
+		inuse->iuo_in_use_count = 0;
+	} while (inuse = inuse->iuo_next);
+
+	if (secondary_inuse) {
+		IUO *secondary_end_ptr;
+
+		for (secondary_end_ptr = &secondary_inuse->iuo_next;
+			 *secondary_end_ptr;)
+			secondary_end_ptr = &(*secondary_end_ptr)->iuo_next;
+		THD_MUTEX_LOCK(inuse_mutex);
+		*secondary_end_ptr = free_list;
+		free_list = secondary_inuse;
+		THD_MUTEX_UNLOCK(inuse_mutex);
+	}
+
+	return needed_cleaning;
+}
+
+
+void INUSE_clear(IUO inuse)
+{
+/**************************************
+ *
+ *	I N U S E _ c l e a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize an in-use block.
+ *
+ **************************************/
+
+	if (!initialized)
+		init();
+
+	inuse->iuo_in_use_count = 0;
+	inuse->iuo_next = NULL;
+}
+
+
+BOOLEAN INUSE_insert(IUO inuse, void *new_object, BOOLEAN dup_flag)
+{
+/**************************************
+ *
+ *	I N U S E _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert an object into an in-use structure.
+ *	If dup_flag is TRUE, then duplicate entries
+ *	are permitted.  If it is FALSE, then a
+ *	duplicate entry will not be inserted.
+ *	Return TRUE if the object was inserted.
+ *
+ **************************************/
+	void **ptr, **end;
+
+	ptr = inuse->iuo_object;
+	for (end = ptr + inuse->iuo_in_use_count; ptr < end; ptr++)
+		if (!*ptr) {
+			if (!dup_flag)
+				while (ptr < --end)
+					if (*end == new_object)
+						return FALSE;
+			*ptr = new_object;
+			return TRUE;
+		}
+		else if (!dup_flag && *ptr == new_object)
+			return FALSE;
+
+	if (inuse->iuo_in_use_count >=
+		sizeof(inuse->iuo_object) / sizeof(inuse->iuo_object[0])) {
+		IUO new_inuse;
+
+#ifdef DEV_BUILD
+		gds__log("in-use block overflow. secondary block allocated.");
+#endif
+		THD_MUTEX_LOCK(inuse_mutex);
+		if (new_inuse = free_list) {
+			free_list = new_inuse->iuo_next;
+			THD_MUTEX_UNLOCK(inuse_mutex);
+		}
+		else {
+			THD_MUTEX_UNLOCK(inuse_mutex);
+			new_inuse = (IUO) gds__alloc((SLONG) sizeof(struct iuo));
+			/* FREE: at process exit, by cleanup handler cleanup() in this module */
+			if (!new_inuse) {	/* NOMEM: */
+				DEV_REPORT("INUSE_insert: out of memory");
+				return FALSE;	/* error handling too difficult */
+			}
+		}
+		INUSE_clear(new_inuse);
+		inuse->iuo_next = new_inuse;
+		inuse = new_inuse;
+	}
+
+	inuse->iuo_object[inuse->iuo_in_use_count++] = new_object;
+
+	return TRUE;
+}
+
+
+BOOLEAN INUSE_remove(IUO inuse, void *old_object, BOOLEAN dup_flag)
+{
+/**************************************
+ *
+ *	I N U S E _ r e m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove an object from an in-use structure.
+ *	If dup_flag is TRUE, remove every occurrence
+ *	of the object.  Otherwise, only remove the
+ *	first.  Return TRUE if an object was removed.
+ *
+ **************************************/
+	void **ptr, **end;
+	BOOLEAN removed;
+
+	removed = FALSE;
+	do {
+		ptr = inuse->iuo_object;
+		for (end = ptr + inuse->iuo_in_use_count; ptr < end; ptr++)
+			if (*ptr == old_object) {
+				*ptr = NULL;
+				if (ptr + 1 == end)
+					while (!*(--end) && --inuse->iuo_in_use_count);
+				if (!dup_flag)
+					return TRUE;
+				removed = TRUE;
+			}
+	} while (inuse = inuse->iuo_next);
+
+	return removed;
+}
+
+
+static void cleanup(void *arg)
+{
+/**************************************
+ *
+ *	c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	IUO iuo;
+
+	THD_MUTEX_DESTROY(inuse_mutex);
+
+	while (free_list) {
+		iuo = free_list;
+		free_list = iuo->iuo_next;
+		gds__free(iuo);
+	}
+
+	initialized = FALSE;
+}
+
+
+static void init(void)
+{
+/**************************************
+ *
+ *	i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	if (!initialized) {
+		THD_INIT;
+		THD_GLOBAL_MUTEX_LOCK;
+		if (!initialized) {
+			THD_MUTEX_INIT(inuse_mutex);
+			gds__register_cleanup(cleanup, 0);
+			initialized = TRUE;
+		}
+		THD_GLOBAL_MUTEX_UNLOCK;
+	}
+}
diff --git a/src/jrd/inuse_proto.h b/src/jrd/inuse_proto.h
new file mode 100644
index 0000000000..89b438c51d
--- /dev/null
+++ b/src/jrd/inuse_proto.h
@@ -0,0 +1,32 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		inuse_proto.h
+ *	DESCRIPTION:	Prototype header file for inuse.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_INUSE_PROTO_H_
+#define _JRD_INUSE_PROTO_H_
+
+extern BOOLEAN INUSE_cleanup(struct iuo *, FPTR_VOID);
+extern void INUSE_clear(struct iuo *);
+extern BOOLEAN INUSE_insert(struct iuo *, void *, BOOLEAN);
+extern BOOLEAN INUSE_remove(struct iuo *, void *, BOOLEAN);
+
+#endif /* _JRD_INUSE_PROTO_H_ */
diff --git a/src/jrd/irq.h b/src/jrd/irq.h
new file mode 100644
index 0000000000..bffa4d2f9e
--- /dev/null
+++ b/src/jrd/irq.h
@@ -0,0 +1,109 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		irq.h
+ *	DESCRIPTION:	Registry of persistent internal requests
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_IRQ_H_
+#define _JRD_IRQ_H_
+
+#define REQUEST(irt) dbb->dbb_internal->vec_object[irt]
+
+#define irq_s_pages	0			/* store PAGES */
+#define irq_r_pages	1			/* read PAGES */
+#define irq_l_field	2			/* lookup field name */
+#define irq_l_relation	3		/* lookup relation name */
+#define irq_c_relation	4		/* create new relation */
+#define irq_format1	5			/* make a new format for a record */
+#define irq_format2	6			/* make a new format for a record */
+#define irq_format3	7			/* make a new format for a record */
+#define irq_r_format	8		/* read a format */
+#define irq_r_relation	9		/* pick up view definition */
+#define irq_c_index	10			/* create index */
+#define irq_m_fields	11		/* process a modification of RDB$FIELDS */
+#define irq_m_index	12			/* modify index id */
+#define irq_r_fields	13		/* pick up field expressions */
+#define irq_l_security	14		/* lookup security_classes */
+#define irq_v_security	15		/* verify security for relation */
+#define irq_l_index	16			/* lookup index id */
+#define irq_l_functions	17		/* lookup function */
+#define irq_l_args	18			/* lookup function arguments */
+#define irq_s_triggers	19		/* scan triggers */
+#define irq_s_triggers2	20		/* scan triggers */
+#define irq_s_msgs	21			/* search for message */
+#define irq_grant1	22			/* process grant option */
+#define irq_grant2	23			/* process grant option */
+#define irq_grant3	24			/* process grant option */
+#define irq_grant4	25			/* process grant option */
+#define irq_format4	26			/* make a new format for a record */
+#define irq_s_trans	27			/* store RDB$TRANSACTIONS */
+#define irq_m_trans	28			/* erase RDB$TRANSACTIONS */
+#define irq_e_trans	29			/* store RDB$TRANSACTIONS */
+#define irq_revoke1	30			/* check revokee for residual privileges */
+#define irq_revoke2	31			/* recursive revoke */
+#define irq_grant5	32			/* check for "PUBLIC" in processing grant options */
+#define irq_r_filters	33		/* read RDB$BLOB_FILTERS */
+#define irq_c_trigger	34		/* check for dependencies when creating a trigger */
+#define irq_s_deps	35			/* store RDB$DEPENDENCIES */
+#define irq_d_deps	36			/* delete RDB$DEPENDENCIES */
+#define irq_r_fld_dim	37		/* read RDB$FIELD_DIMENSIONS */
+#define irq_r_gen_id	38		/* read RDB$GENERATORS */
+#define irq_s_gen_id	39		/* store RDB$GENERATORS */
+#define irq_ch_f_dpd	40		/* check object field dependencies */
+#define irq_ch_dpd	41			/* check object dependencies */
+#define irq_ch_cmp_dpd	42		/* check computed field dependencies */
+#define irq_grant6	43			/* get field-level security class */
+#define irq_grant7	44			/* update field-level security classes */
+#define irq_grant8	45			/* purge out field-level security classes */
+#define irq_foreign1	46		/* purge out field-level security classes */
+#define irq_foreign2	47		/* purge out field-level security classes */
+#define irq_format5	48			/* make a new format for a record */
+
+#define irq_c_exp_index	49		/* create expression index */
+#define irq_l_exp_index	50		/* lookup expression index */
+
+#define irq_l_rel_id	51		/* lookup relation id */
+#define irq_l_procedure	52		/* lookup procedure name */
+#define irq_l_proc_id	53		/* lookup procedure id */
+#define irq_r_params	54		/* scan procedure parameters */
+
+#define irq_r_procedure	55		/* scan procedure */
+#define irq_p_security	56		/* verify security for procedure */
+#define irq_c_prc_dpd	57		/* create procedure dependencies for delete */
+
+#define irq_c_deps	58			/* check relation dependency */
+#define irq_c_deps_f	59		/* check relation.field dependency */
+#define irq_l_exception 60		/* lookup exception by number */
+#define irq_l_except_no 61		/* lookup exception by name */
+#define irq_grant9	62			/* process grant option */
+#define irq_l_index_name 63		/* lookup index by name */
+#define irq_view_context 64		/* lookup view context */
+#define irq_l_cnstrt	65		/* lookup constraint for index */
+#define irq_l_check	66			/* lookup check constraint for trigger */
+#define irq_l_check2	67		/* lookup constraint for index */
+#define irq_c_trg_perm	68		/* check if trig can ignore perm. checks */
+#define irq_get_role_mem	69	/* get SQL role membership */
+#define irq_get_role_name	70	/* get SQL role name */
+#define irq_format6     71		/* make a new format for a record */
+
+
+#define irq_MAX		72
+
+#endif /* _JRD_IRQ_H_ */
diff --git a/src/jrd/isc.cpp b/src/jrd/isc.cpp
new file mode 100644
index 0000000000..76f038a97c
--- /dev/null
+++ b/src/jrd/isc.cpp
@@ -0,0 +1,1506 @@
+/*
+ *      PROGRAM:        JRD Access Method
+ *      MODULE:         isc.c
+ *      DESCRIPTION:    General purpose but non-user routines.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Added TCP_NO_DELAY option for superserver on Linux
+ * FSG 16.03.2001 
+ * Solaris x86 changes - Konstantin Kuznetsov, Neil McCalden
+ */
+/*
+$Id: isc.cpp,v 1.1.1.1 2001-05-23 13:26:11 tamlin Exp $
+*/
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include <stdlib.h>
+#include <errno.h>
+#include <ctype.h>
+#include "../jrd/common.h"
+
+#include "../jrd/codes.h"
+#include "../jrd/isc.h"
+#include "../jrd/ibase.h"
+#include "../jrd/jrd.h"
+#include "../jrd/scl.h"
+#include "../jrd/flu_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/jrd_proto.h"
+
+/* Initialize the structure that hold all the config information */
+
+static struct cfgtbl ISC_def_cfg_tbl[] = {
+	ISCCFG_LOCKMEM, ISCCFG_LOCKMEM_KEY, ISCCFG_LOCKMEM_DEF,
+	ISCCFG_LOCKMEM_DEF,
+	ISCCFG_LOCKSEM, ISCCFG_LOCKSEM_KEY, ISCCFG_LOCKSEM_DEF,
+	ISCCFG_LOCKSEM_DEF,
+	ISCCFG_LOCKSIG, ISCCFG_LOCKSIG_KEY, ISCCFG_LOCKSIG_DEF,
+	ISCCFG_LOCKSIG_DEF,
+	ISCCFG_EVNTMEM, ISCCFG_EVNTMEM_KEY, ISCCFG_EVNTMEM_DEF,
+	ISCCFG_EVNTMEM_DEF,
+	ISCCFG_DBCACHE, ISCCFG_DBCACHE_KEY, ISCCFG_DBCACHE_DEF,
+	ISCCFG_DBCACHE_DEF,
+	ISCCFG_PRIORITY, ISCCFG_PRIORITY_KEY, ISCCFG_PRIORITY_DEF,
+	ISCCFG_PRIORITY_DEF,
+	ISCCFG_IPCMAP, ISCCFG_IPCMAP_KEY, ISCCFG_IPCMAP_DEF, ISCCFG_IPCMAP_DEF,
+	ISCCFG_MEMMIN, ISCCFG_MEMMIN_KEY, ISCCFG_MEMMIN_DEF, ISCCFG_MEMMIN_DEF,
+	ISCCFG_MEMMAX, ISCCFG_MEMMAX_KEY, ISCCFG_MEMMAX_DEF, ISCCFG_MEMMAX_DEF,
+	ISCCFG_LOCKORDER, ISCCFG_LOCKORDER_KEY, ISCCFG_LOCKORDER_DEF,
+	ISCCFG_LOCKORDER_DEF,
+	ISCCFG_ANYLOCKMEM, ISCCFG_ANYLOCKMEM_KEY, ISCCFG_ANYLOCKMEM_DEF,
+	ISCCFG_ANYLOCKMEM_DEF,
+	ISCCFG_ANYLOCKSEM, ISCCFG_ANYLOCKSEM_KEY, ISCCFG_ANYLOCKSEM_DEF,
+	ISCCFG_ANYLOCKSEM_DEF,
+	ISCCFG_ANYLOCKSIG, ISCCFG_ANYLOCKSIG_KEY, ISCCFG_ANYLOCKSIG_DEF,
+	ISCCFG_ANYLOCKSIG_DEF,
+	ISCCFG_ANYEVNTMEM, ISCCFG_ANYEVNTMEM_KEY, ISCCFG_ANYEVNTMEM_DEF,
+	ISCCFG_ANYEVNTMEM_DEF,
+	ISCCFG_LOCKHASH, ISCCFG_LOCKHASH_KEY, ISCCFG_LOCKHASH_DEF,
+	ISCCFG_LOCKHASH_DEF,
+	ISCCFG_DEADLOCK, ISCCFG_DEADLOCK_KEY, ISCCFG_DEADLOCK_DEF,
+	ISCCFG_DEADLOCK_DEF,
+	ISCCFG_LOCKSPIN, ISCCFG_LOCKSPIN_KEY, ISCCFG_LOCKSPIN_DEF,
+	ISCCFG_LOCKSPIN_DEF,
+	ISCCFG_CONN_TIMEOUT, ISCCFG_CONN_TIMEOUT_KEY, ISCCFG_CONN_TIMEOUT_DEF,
+	ISCCFG_CONN_TIMEOUT_DEF,
+	ISCCFG_DUMMY_INTRVL, ISCCFG_DUMMY_INTRVL_KEY, ISCCFG_DUMMY_INTRVL_DEF,
+	ISCCFG_DUMMY_INTRVL_DEF,
+	ISCCFG_TRACE_POOLS, ISCCFG_TRACE_POOLS_KEY, ISCCFG_TRACE_POOLS_DEF,
+	ISCCFG_TRACE_POOLS_DEF,
+	ISCCFG_REMOTE_BUFFER, ISCCFG_REMOTE_BUFFER_KEY, ISCCFG_REMOTE_BUFFER_DEF,
+	ISCCFG_REMOTE_BUFFER_DEF,
+#ifdef SET_TCP_NO_DELAY
+	ISCCFG_NO_NAGLE, ISCCFG_NO_NAGLE_KEY, ISCCFG_NO_NAGLE_DEF,
+	ISCCFG_NO_NAGLE_DEF,
+#endif
+	NULL, 0, 0, 0
+};
+
+static struct cfgtbl *ISC_cfg_tbl = NULL;
+
+/* Temporary file management specific stuff */
+
+#include "../jrd/fil.h"
+#include "../jrd/dls_proto.h"
+
+static BOOLEAN dls_init = FALSE;
+static BOOLEAN dls_flag = FALSE;
+static BOOLEAN fdls_init = FALSE;
+static BOOLEAN fdls_flag = FALSE;
+
+
+/* End of temporary file management specific stuff */
+
+#ifdef SOLARIS
+#include <sys/utsname.h>
+#endif
+
+#ifdef SCO_EV
+#include <sys/utsname.h>
+#endif
+
+#ifdef SUN3_3
+typedef unsigned short uid_t;
+#endif
+
+static TEXT user_name[256];
+static USHORT ast_count;
+
+
+/* VMS Specific Stuff */
+
+#ifdef VMS
+
+#include <rms.h>
+#include <descrip.h>
+#include <ssdef.h>
+#include <jpidef.h>
+#include <prvdef.h>
+#include <secdef.h>
+#include <lckdef.h>
+#include "../jrd/lnmdef.h"
+#include "../jrd/prv_m_bypass.h"
+#include <signal.h>
+
+#define LOGICAL_NAME_TABLE      "LNM$FILE_DEV"
+#define WAKE_LOCK               "gds__process_%d"
+
+static POKE pokes;
+static LKSB wake_lock;
+#endif /* of ifdef VMS */
+
+
+/* Unix specific stuff */
+
+#if defined(UNIX)
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/file.h>
+#include <pwd.h>
+#include <unistd.h>
+
+#ifndef O_RDWR
+#include <fcntl.h>
+#endif
+
+#ifdef DGUX
+#include <fcntl.h>
+#endif
+
+#ifdef DELTA
+#include <sys/sysmacros.h>
+#include <sys/param.h>
+#endif
+
+#ifdef IMP
+typedef unsigned int mode_t;
+typedef int pid_t;
+#endif
+
+extern struct passwd *getpwnam(), *getpwuid();
+#endif
+
+void isc_internal_set_config_value(UCHAR, ULONG*, ULONG*);
+
+#ifdef VMS
+static void blocking_ast(void);
+static void poke_ast(POKE);
+static int wait_test(SSHORT *);
+#endif
+
+#ifndef MAXHOSTLEN
+#define MAXHOSTLEN      64
+#endif
+
+#ifndef FOPEN_READ_TYPE
+#define FOPEN_READ_TYPE "r"
+#define FOPEN_WRITE_TYPE "w"
+#endif
+
+
+#ifdef SHLIB_DEFS
+#define strchr          (*_libgds_strchr)
+#define geteuid         (*_libgds_geteuid)
+#define getpwuid        (*_libgds_getpwuid)
+#define _ctype          (*_libgds__ctype)
+#define readlink        (*_libgds_readlink)
+#define gethostname     (*_libgds_gethostname)
+#define endpwent        (*_libgds_endpwent)
+#define getegid         (*_libgds_getegid)
+
+extern SCHAR *strchr();
+extern uid_t geteuid();
+extern struct passwd *getpwuid();
+extern SCHAR _ctype[];
+extern int readlink();
+extern void gethostname();
+extern void endpwent();
+extern gid_t getegid();
+#endif
+
+
+#ifndef REQUESTER
+void DLL_EXPORT ISC_ast_enter(void)
+{
+/**************************************
+ *
+ *      I S C _ a s t _ e n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Enter ast mode.
+ *
+ **************************************/
+
+	++ast_count;
+}
+#endif
+
+
+#ifndef REQUESTER
+void DLL_EXPORT ISC_ast_exit(void)
+{
+/**************************************
+ *
+ *      I S C _ a s t _ e x i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Enter ast mode.
+ *
+ **************************************/
+
+	--ast_count;
+}
+#endif
+
+
+#if !defined(WIN_NT)	// implemented in isc_win32.cpp
+
+int DLL_EXPORT ISC_check_process_existence(SLONG	pid,
+										   SLONG	xl_pid,
+										   USHORT	super_user)
+{
+/**************************************
+ *
+ *      I S C _ c h e c k _ p r o c e s s _ e x i s t e n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Return TRUE if the indicated process
+ *      exists.  FALSE otherwise.
+ *
+ **************************************/
+
+#if defined(UNIX)
+#define CHECK_EXIST
+	return (kill((int) pid, 0) == -1 &&
+			(errno == ESRCH
+			 || (super_user && errno == EPERM)) ? FALSE : TRUE);
+#endif
+
+#ifdef VMS
+#define CHECK_EXIST
+	ULONG item;
+
+	item = JPI$_PID;
+	return (lib$getjpi(&item, &pid, NULL, NULL, NULL, NULL) == SS$_NONEXPR) ?
+		FALSE : TRUE;
+#endif
+
+#ifndef CHECK_EXIST
+	return TRUE;
+#else
+#undef CHECK_EXIST
+#endif
+}
+
+#endif	// !WIN_NT
+
+
+#ifdef VMS
+int ISC_expand_logical_once(
+							TEXT * file_name,
+							USHORT file_length, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *      I S C _ e x p a n d _ l o g i c a l _ o n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Expand a logical name.  If it doesn't exist, return 0.
+ *
+ **************************************/
+	int attr;
+	USHORT l;
+	TEXT *p;
+	ITM items[2];
+	struct dsc$descriptor_s desc1, desc2;
+
+	if (!file_length)
+		file_length = strlen(file_name);
+
+	ISC_make_desc(file_name, &desc1, file_length);
+	ISC_make_desc(LOGICAL_NAME_TABLE, &desc2, sizeof(LOGICAL_NAME_TABLE) - 1);
+
+	items[0].itm_length = 256;
+	items[0].itm_code = LNM$_STRING;
+	items[0].itm_buffer = expanded_name;
+	items[0].itm_return_length = &l;
+
+	items[1].itm_length = 0;
+	items[1].itm_code = 0;
+
+	attr = LNM$M_CASE_BLIND;
+
+	if (!(sys$trnlnm(&attr, &desc2, &desc1, NULL, items) & 1)) {
+		while (file_length--)
+			*expanded_name++ = *file_name++;
+		*expanded_name = 0;
+		return 0;
+	}
+
+	expanded_name[l] = 0;
+
+	return l;
+}
+#endif
+
+
+void DLL_EXPORT ISC_get_config(TEXT * config_file, IPCCFG config_table)
+{
+/*************************************
+ *
+ *      I S C _ g e t _ c o n f i g
+ *
+ *************************************
+ *
+ * Functional description
+ *      Read user-defined values for shared memory and
+ *      semaphores, and temporary directory list
+ *	from a configuration file.
+ *
+ ************************************/
+	IPCCFG h;
+	struct cfgtbl *tbl;
+
+	if (ISC_cfg_tbl == NULL) {
+		IB_FILE *fd;
+		TEXT *p, *q, buf[80];
+		TEXT buffer[256];
+#ifdef SUPERSERVER
+		int n;
+		TEXT dir_name[MAX_PATH_LENGTH];
+		ULONG size;
+#endif
+
+		gds__prefix(buffer, config_file);
+		config_file = buffer;
+
+		/* Read the configuration file into a local buffer.  This
+		   local buffer knows about all valid configuration options.
+		   Later requests for configuration information will read it
+		   from the in-memory copy rather than the disk copy */
+
+		ISC_cfg_tbl = ISC_def_cfg_tbl;
+		if (fd = ib_fopen(config_file, FOPEN_READ_TYPE))
+		{
+			while (p = ib_fgets(buf, sizeof(buf), fd))
+			{
+				/* The same keyword can be used more than once  for
+				   temp directory definition hence it should be handled
+				   in its own way */
+				if (strncmp(buf, ISCCFG_TMPDIR, sizeof(ISCCFG_TMPDIR) - 1) == 0)
+				{
+#ifdef SUPERSERVER
+/*  Note that this should be #ifdef SERVER once we implement that flag.
+ *  We want this code to execute in classic servers as well as superserver,
+ *  but not in client libraries, or in tools which link with a private
+ *  copy of our object file, such as alice and dudley.
+ *  This needs to be changed in time for the first Classic port of V6.0
+ */
+					/* there is temp. directory definition */
+					if (!dls_init)
+						if ((n = sscanf(buf + sizeof(ISCCFG_TMPDIR) - 1,
+										" %ld \"%[^\"]", &size,
+										dir_name)) == 2)
+						{
+							if (DLS_add_dir(size, dir_name))
+								dls_flag = TRUE;
+							else {
+								gds__log
+									("Unable to use config parameter %s : No memory ",
+									 ISCCFG_TMPDIR);
+								dls_flag = FALSE;
+							}
+						}
+#endif
+					continue;
+				}
+
+				/* The external function directory keyword can also be used
+				   more than once, so handle it separately. */
+				if (0 == strncmp(buf, ISCCFG_EXT_FUNC_DIR,
+								 sizeof(ISCCFG_EXT_FUNC_DIR) - 1))
+				{
+#ifdef SUPERSERVER
+/*  Note that this should be #ifdef SERVER once we implement that flag.
+ *  We want this code to execute in classic servers as well as superserver,
+ *  but not in client libraries, or in tools which link with a private
+ *  copy of our object file, such as alice and dudley.
+ *  This needs to be changed in time for the first Classic port of V6.0
+ */
+					/* There is external function directory definition */
+					if (!fdls_init)
+						if (1 == sscanf(buf + sizeof(ISCCFG_EXT_FUNC_DIR) - 1,
+										" \"%[^\"]", dir_name))
+						{
+							if (DLS_add_func_dir(dir_name))
+								fdls_flag = TRUE;
+							else
+							{
+								gds__log
+									("Unable to use config parameter %s : No memory ",
+									 ISCCFG_EXT_FUNC_DIR);
+								fdls_flag = FALSE;
+							}
+						}
+#endif
+					continue;
+				}
+
+				for (tbl = ISC_cfg_tbl; q = tbl->cfgtbl_keyword; tbl++)
+				{
+					p = buf;
+
+					/* Scan until we see the end of the keyword or
+					   a mismatch */
+
+					while (*q && (*p == *q))
+					{
+						p++;
+						q++;
+					};
+
+					/* If we reached the end of the keyword we've got
+					   a match!  The remainder of the input line had
+					   better be spaces and numbers */
+
+					if (!*q && (isspace(*p) || isdigit(*p))) {
+						tbl->cfgtbl_value = atol(p);
+						break;
+					}
+				}				/* for */
+			}					/* while */
+			ib_fclose(fd);
+		}						/* if ib_fopen */
+		else
+		{
+			/* Error opening file. Log a message only if file exists */
+			if (errno != ENOENT)
+				gds__log("Unable to open config file \"%s\": errno = %d",
+						 config_file, errno);
+		}
+		if (!dls_flag)
+		{
+			/* Temp. directory configuration has not been defined.
+			   Let's make default configuration */
+			if (!(q = getenv("INTERBASE_TMP")) &&
+				!(q = getenv("TMP")) &&
+				!(q = getenv("TEMP")))
+			{
+				q = WORKDIR;
+			}
+			if (!DLS_add_dir(ALLROOM, q))
+			{
+				/* we are out of memory, also we can only get here during
+				   server start hence let us exit with an exit status indicating
+				   to the guardian that the server need not be restarted */
+				gds__log
+					("Unable to set configuration parameters : No Memory");
+				exit(STARTUP_ERROR);
+			}
+			dls_flag = TRUE;
+		}
+		dls_init = TRUE;		/* Temp dir config should be read only once */
+
+		fdls_init = TRUE;		/* Ext func dir config should be read only once. */
+	}							/* if ICS_cfg_tbl == NULL */
+
+/* The master configuration options are in memory, now for
+   this request for option values mark each one as not found
+   and search the memory table for each one. */
+
+	for (h = config_table; h->ipccfg_keyword; h++)
+	{
+		h->ipccfg_found = FALSE;
+	}
+
+	for (h = config_table; h->ipccfg_keyword; h++)
+	{
+		if (!h->ipccfg_parent_offset ||
+			!h[h->ipccfg_parent_offset].ipccfg_found)
+		{
+			for (tbl = ISC_cfg_tbl; tbl->cfgtbl_keyword; tbl++)
+			{
+				if (!strcmp(tbl->cfgtbl_keyword, h->ipccfg_keyword))
+				{
+					*h->ipccfg_variable = tbl->cfgtbl_value;
+					h->ipccfg_key = tbl->cfgtbl_key;
+					h->ipccfg_found = TRUE;
+					break;
+				}
+			}
+		}
+	}
+}
+
+
+#ifndef SUPERCLIENT
+int DLL_EXPORT ISC_set_config(TEXT * config_file, IPCCFG config_table)
+{
+/*************************************
+ *
+ *      I S C _ s e t _ c o n f i g
+ *
+ *************************************
+ *
+ * Functional description
+ *      Set new values in the configuration file
+ *	and make them take affect if possible.
+ *
+ ************************************/
+	IB_FILE *fd = NULL;
+	IPCCFG h;
+	struct cfgtbl *t;
+	TEXT buffer[256];
+	int ret = 1;
+
+	if (config_file)
+	{
+		gds__prefix(buffer, config_file);
+		config_file = buffer;
+		fd = ib_fopen(config_file, FOPEN_WRITE_TYPE);
+	}
+
+	if ((ISC_cfg_tbl != NULL) && (!config_file || fd))
+	{
+		ULONG config_mask = 0;
+		ULONG *valptr = 0;
+
+
+		ret = 0;
+
+		/* If config_table = NULL then assume we want to restore defaults,
+		 * otherwise get the users values and use them.
+		 */
+
+		for (t = ISC_def_cfg_tbl; t->cfgtbl_keyword; t++)
+		{
+			if (config_table)
+			{
+				for (h = config_table; h->ipccfg_variable; h++)
+				{
+					if (h->ipccfg_keyword ?
+						!strcmp(t->cfgtbl_keyword, h->ipccfg_keyword) :
+						h->ipccfg_key == t->cfgtbl_key)
+					{
+						config_mask |= (1 << t->cfgtbl_key);
+						t->cfgtbl_value = *h->ipccfg_variable;
+						break;
+					}
+				}
+			}
+			else if (t->cfgtbl_value != t->cfgtbl_def_value)
+			{
+				config_mask |= (1 << t->cfgtbl_key);
+				t->cfgtbl_value = t->cfgtbl_def_value;
+			}
+		}
+
+		/* if one of the working set sizes has been set the make sure they're
+		 * both set.
+		 */
+
+		if (config_mask &
+			((1 << ISCCFG_MEMMIN_KEY) | (1 << ISCCFG_MEMMAX_KEY))) config_mask
+				|= ((1 << ISCCFG_MEMMIN_KEY) | (1 << ISCCFG_MEMMAX_KEY));
+
+		for (t = ISC_def_cfg_tbl; config_mask && t->cfgtbl_keyword; t++)
+		{
+#ifdef SUPERSERVER
+			if (config_mask & (1 << t->cfgtbl_key))
+			{
+				switch (t->cfgtbl_key)
+				{
+				case ISCCFG_MEMMIN_KEY:
+					valptr = &(t->cfgtbl_value);
+					break;
+				case ISCCFG_MEMMAX_KEY:
+					isc_internal_set_config_value(	t->cfgtbl_key,
+													valptr,
+													&(t->cfgtbl_value));
+					break;
+				default:
+					isc_internal_set_config_value(	t->cfgtbl_key,
+													&(t->cfgtbl_value),
+													NULL);
+					break;
+				}
+			}
+#endif /* SUPERSERVER */
+
+			if (fd)
+			{
+				char *p, *q, buf[80];
+				int tabs;
+
+				p = buf;
+				if (t->cfgtbl_value == t->cfgtbl_def_value)
+					*p++ = '#';
+				q = t->cfgtbl_keyword;
+				while (*q)
+					*p++ = *q++;
+				tabs = 4 - (p - buf) / 8;
+				while (tabs--)
+					*p++ = '\t';
+				*p = '\0';
+				if (ib_fprintf(fd, "%s%ld\n", buf, t->cfgtbl_value) < 0)
+					gds__log("Error writing config file \"%s\" : errno = %d",
+							 config_file, errno);
+			}
+		}
+		if (fd) {
+			ib_fclose(fd);
+			gds__log("Config file \"%s\" has been modified.", config_file);
+		}
+	}
+	return ret;
+}
+#endif /* ! SUPERCLIENT */
+
+
+#if (defined SOLARIS || defined SCO_EV)
+#define GET_HOST
+TEXT *INTERNAL_API_ROUTINE ISC_get_host(TEXT * string, USHORT length)
+{
+/**************************************
+ *
+ *      I S C _ g e t _ h o s t                 ( S O L A R I S )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get host name.
+ *
+ **************************************/
+	struct utsname name;
+
+	if (uname(&name) >= 0)
+		strncpy(string, name.nodename, length);
+	else
+		strcpy(string, "local");
+
+	return string;
+}
+#endif
+
+
+#ifdef VMS
+#define GET_HOST
+TEXT *INTERNAL_API_ROUTINE ISC_get_host(TEXT * string, USHORT length)
+{
+/**************************************
+ *
+ *      I S C _ g e t _ h o s t                 ( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get host name.
+ *
+ **************************************/
+	TEXT *p;
+
+	if (!ISC_expand_logical_once("SYS$NODE", sizeof("SYS$NODE") - 1, string))
+		strcpy(string, "local");
+	else {
+		p = string;
+		if (*p == '_')
+			++p;
+
+		for (; *p && *p != ':'; p++)
+			if (*p >= 'A' && *p <= 'Z')
+				*p = *p - 'A' + 'a';
+
+		*p = 0;
+	}
+
+	return string;
+}
+#endif
+
+
+#ifdef NETWARE_386
+#define GET_HOST
+TEXT *INTERNAL_API_ROUTINE ISC_get_host(TEXT * string, USHORT length)
+{
+/**************************************
+ *
+ *      I S C _ g e t _ h o s t         ( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get host name.
+ *
+ **************************************/
+	SCHAR buffer[49];
+
+	GetFileServerName(0, buffer);
+
+	if (strlen(buffer) > (length - 1))
+		*string = 0;
+	else
+		strcpy((SCHAR *) string, buffer);
+
+	return string;
+}
+#endif
+
+
+#if !defined(WIN_NT)	// implemented in isc_win32.cpp
+#ifndef GET_HOST
+TEXT *INTERNAL_API_ROUTINE ISC_get_host(TEXT * string, USHORT length)
+{
+/**************************************
+ *
+ *      I S C _ g e t _ h o s t                 ( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get host name.
+ *
+ **************************************/
+
+	gethostname(string, length);
+
+	return string;
+}
+#endif
+#endif	// !WIN_NT
+
+
+#if !defined(WIN_NT)	// implemented in isc_win32.cpp
+#ifdef PC_PLATFORM
+#ifndef NETWARE_386
+int INTERNAL_API_ROUTINE ISC_get_user(TEXT*	name,
+									  int*	id,
+									  int*	group,
+									  TEXT*	project,
+									  TEXT*	organization,
+									  int*	node,
+									  TEXT*	user_string)
+{
+/**************************************
+ *
+ *      I S C _ g e t _ u s e r   D O S
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find out who the user is.  (On a PC,
+ *      there's only 1 user anyway...)
+ *
+ **************************************/
+
+	if (name)
+		strcpy(name, (user_name[0]) ? user_name : "user");
+
+	if (id)
+		*id = 0;
+
+	if (group)
+		*group = 0;
+
+	if (project)
+		*project = 0;
+
+	if (organization)
+		*organization = 0;
+
+	if (node)
+		*node = 0;
+
+	return TRUE;
+}
+#endif
+#endif
+#endif	// !WIN_NT
+
+
+#ifdef UNIX
+int INTERNAL_API_ROUTINE ISC_get_user(TEXT*	name,
+									  int*	id,
+									  int*	group,
+									  TEXT*	project,
+									  TEXT*	organization,
+									  int*	node,
+									  TEXT*	user_string)
+{
+/**************************************
+ *
+ *      I S C _ g e t _ u s e r   ( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find out who the user is.
+ *
+ **************************************/
+/* egid and euid need to be signed, uid_t is unsigned on SUN! */
+	SLONG egid, euid;
+	TEXT *p, *q, user_name[256];
+	struct passwd *passwd;
+
+	if (user_string && *user_string) {
+		for (p = user_name, q = user_string; (*p = *q++) && *p != '.'; p++);
+		*p = 0;
+		p = user_name;
+		egid = euid = -1;
+		if (*q) {
+			egid = atoi(q);
+			while (*q && (*q != '.'))
+				q++;
+			if (*q == '.') {
+				q++;
+				euid = atoi(q);
+			}
+		}
+	}
+	else {
+		euid = (SLONG) geteuid();
+		egid = (SLONG) getegid();
+		passwd = getpwuid(euid);
+		if (passwd)
+			p = passwd->pw_name;
+		else
+			p = "";
+		endpwent();
+	}
+
+	if (name)
+		strcpy(name, p);
+
+	if (id)
+		*id = euid;
+
+	if (group)
+		*group = egid;
+
+	if (project)
+		*project = 0;
+
+	if (organization)
+		*organization = 0;
+
+	if (node)
+		*node = 0;
+
+	return (euid == 0);
+}
+#endif
+
+
+#ifdef VMS
+int INTERNAL_API_ROUTINE ISC_get_user(
+									  TEXT * name,
+									  int *id,
+									  int *group,
+									  TEXT * project,
+TEXT * organization, int *node, TEXT * user_string)
+{
+/**************************************
+ *
+ *      I S C _ g e t _ u s e r   ( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find out who the user is.
+ *
+ **************************************/
+	SLONG status, privileges[2];
+	USHORT uic[2], len0, len1, len2;
+	TEXT *p, *q, *end, user_name[256];
+	ITM items[4];
+
+	if (user_string && *user_string) {
+		for (p = user_name, q = user_string; (*p = *q++) && *p != '.'; p++);
+		*p = 0;
+		p = user_name;
+		uic[0] = uic[1] = -1;
+		if (*q) {
+			uic[1] = atoi(q);
+			while (*q && (*q != '.'))
+				q++;
+			if (*q == '.') {
+				q++;
+				uic[0] = atoi(q);
+			}
+		}
+		privileges[0] = 0;
+		if (name) {
+			for (p = user_name; *p && *p != ' ';)
+				*name++ = *p++;
+			*name = 0;
+		}
+	}
+	else {
+		items[0].itm_code = JPI$_UIC;
+		items[0].itm_length = sizeof(uic);
+		items[0].itm_buffer = uic;
+		items[0].itm_return_length = &len0;
+
+		items[1].itm_code = JPI$_USERNAME;
+		items[1].itm_length = sizeof(user_name);
+		items[1].itm_buffer = user_name;
+		items[1].itm_return_length = &len1;
+
+		items[2].itm_code = JPI$_CURPRIV;
+		items[2].itm_length = sizeof(privileges);
+		items[2].itm_buffer = privileges;
+		items[2].itm_return_length = &len2;
+
+		items[3].itm_code = 0;
+		items[3].itm_length = 0;
+
+		status = sys$getjpiw(NULL, NULL, NULL, items, NULL, NULL, NULL);
+
+		if (!(status & 1)) {
+			len1 = 0;
+			uic[0] = uic[1] = 0;
+		}
+
+		user_name[len1] = 0;
+
+		if (name) {
+			for (p = user_name; *p && *p != ' ';)
+				*name++ = *p++;
+			*name = 0;
+		}
+	}
+
+	if (id)
+		*id = uic[0];
+
+	if (group)
+		*group = uic[1];
+
+	if (project)
+		*project = 0;
+
+	if (organization)
+		*organization = 0;
+
+	if (node)
+		*node = 0;
+
+	return (privileges[0] & (SLONG) PRV$M_BYPASS);
+}
+#endif
+
+
+#ifdef NETWARE_386
+int INTERNAL_API_ROUTINE ISC_get_user(
+									  TEXT * name,
+									  int *id,
+									  int *group,
+									  TEXT * project,
+TEXT * organization, int *node, TEXT * user_string)
+{
+/**************************************
+ *
+ *      I S C _ g e t _ u s e r   ( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find out who the user is.
+ *
+ **************************************/
+	SLONG name_len;
+
+	if (id)
+		*id = -1;
+
+	if (group)
+		*group = -1;
+
+	if (project)
+		*project = 0;
+
+	if (organization)
+		*organization = 0;
+
+	if (node)
+		*node = 0;
+
+	return !strcmp(name, "administrator");
+}
+#endif
+
+
+#ifdef VMS
+int ISC_make_desc(TEXT * string, struct dsc$descriptor *desc, USHORT length)
+{
+/**************************************
+ *
+ *      I S C _ m a k e _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *      Make a VMS string descriptor out of a string.  Return 
+ *      length of string.
+ *
+ **************************************/
+
+	desc->dsc$b_dtype = DSC$K_DTYPE_T;
+	desc->dsc$b_class = DSC$K_CLASS_S;
+	desc->dsc$a_pointer = string;
+
+	if (length)
+		desc->dsc$w_length = length;
+	else {
+		desc->dsc$w_length = 0;
+		while (*string++)
+			++desc->dsc$w_length;
+	}
+
+	return desc->dsc$w_length;
+}
+#endif
+SLONG API_ROUTINE ISC_get_prefix(TEXT * passed_string)
+{
+/**************************************
+ *
+ *      i s c _ g e t _ p r e f i x   
+ *
+ **************************************
+ *
+ * Functional description
+ *      Parse the 'H' argument further for 'HL' 'HM' or 'H'
+ *
+ **************************************/
+
+	char c = *passed_string;
+	int arg_type;
+
+	switch (UPPER(c)) {
+	case '\0':
+		arg_type = IB_PREFIX_TYPE;
+		break;
+
+	case 'L':
+		arg_type = IB_PREFIX_LOCK_TYPE;
+		++passed_string;
+		break;
+
+	case 'M':
+		arg_type = IB_PREFIX_MSG_TYPE;
+		++passed_string;
+		break;
+
+	default:
+		return (-1);
+		break;
+	}
+	return (gds__get_prefix(arg_type, ++passed_string));
+}
+void API_ROUTINE ISC_prefix(TEXT * string, TEXT * root)
+{
+/**************************************
+ *
+ *      i s c _ $ p r e f i x   
+ *
+ **************************************
+ *
+ * Functional description
+ *      Wrapper function for gds__prefix.
+ *
+ **************************************/
+
+	gds__prefix(string, root);
+	return;
+}
+void API_ROUTINE ISC_prefix_lock(TEXT * string, TEXT * root)
+{
+/**************************************
+ *
+ *      i s c _ $ p r e f i x _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Wrapper function for gds__prefix_lock.
+ *
+ **************************************/
+
+	gds__prefix_lock(string, root);
+	return;
+}
+void API_ROUTINE ISC_prefix_msg(TEXT * string, TEXT * root)
+{
+/**************************************
+ *
+ *      i s c _ $ p r e f i x _ m s g  
+ *
+ **************************************
+ *
+ * Functional description
+ *      Wrapper function for gds__prefix_msg.
+ *
+ **************************************/
+
+	gds__prefix_msg(string, root);
+	return;
+}
+
+
+#ifndef REQUESTER
+void ISC_set_user(TEXT * string)
+{
+/**************************************
+ *
+ *      I S C _ s e t _ u s e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Set user name for feeble operating system that don't
+ *      support the concept, or support it badly.
+ *
+ **************************************/
+
+	strcpy(user_name, string);
+}
+#endif
+
+
+#ifdef VMS
+void ISC_wait(SSHORT * iosb, SLONG event_flag)
+{
+/**************************************
+ *
+ *      I S C _ w a i t         ( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Wait for a asynchronous VMS event.
+ *
+ **************************************/
+
+	if (*iosb)
+		return;
+
+/* If we're at AST state, and we're not running under
+   a AST invoked thread, wait locally. */
+
+	if (ast_count && !gds__ast_active()) {
+		sys$synch(event_flag, iosb);
+		return;
+	}
+
+	gds__thread_wait(wait_test, iosb);
+}
+#endif
+
+
+#ifdef VMS
+void ISC_wake(SLONG process_id)
+{
+/**************************************
+ *
+ *      I S C _ w a k e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Wake up another VMS process.  Process can be local or
+ *      remote (but on the same CPU).
+ *
+ **************************************/
+	int status;
+	POKE poke;
+	TEXT string[32];
+	struct dsc$descriptor_s desc;
+
+/* Try to do a simple wake.  If this succeeds, we're done. */
+
+	status = sys$wake(&process_id, 0);
+#ifdef __ALPHA
+	THREAD_wakeup();
+#endif
+
+	if (status & 1)
+		return;
+
+/* Do wake by siezing a lock, delivering a blocking ast */
+
+/* Find a free poke block to use */
+
+	for (poke = pokes; poke; poke = poke->poke_next)
+		if (!poke->poke_use_count)
+			break;
+
+	if (!poke) {
+		poke = (POKE) gds__alloc((SLONG) sizeof(struct poke));
+		/* FREE: apparently never freed */
+		if (!poke) {			/* NOMEM: */
+			DEV_REPORT("ISC_wake: out of memory condition");
+			return;				/* error handling too difficult here */
+		}
+		poke->poke_next = pokes;
+		pokes = poke;
+	}
+
+	++poke->poke_use_count;
+
+	sprintf(string, WAKE_LOCK, process_id);
+	ISC_make_desc(string, &desc, 0);
+
+	status = sys$enq(0,			/* event flag */
+					 LCK$K_PWMODE,	/* lock mode */
+					 &poke->poke_lksb,	/* Lock status block */
+					 LCK$M_SYSTEM,	/* flags */
+					 &desc,		/* resource name */
+					 0,			/* parent id */
+					 poke_ast,	/* ast address */
+					 poke,		/* ast argument */
+					 0,			/* blocking ast */
+					 0,			/* access mode */
+					 0);
+}
+#endif
+
+
+#ifdef VMS
+void ISC_wake_init(void)
+{
+/**************************************
+ *
+ *      I S C _ w a k e _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Set up to be awakened by another process thru a blocking AST.
+ *
+ **************************************/
+	int status;
+	TEXT string[32];
+	FPTR_INT master;
+	struct dsc$descriptor_s desc;
+
+#ifdef GATEWAY
+/* See if the shared image knows abouts wake_init.
+   If it does, rely on it. */
+
+	if (master = ISC_lookup_entrypoint("GDSSHR", "gds__wake_init", NULL)) {
+		(*master) ();
+		return;
+	}
+#endif
+
+/* If we already have lock, we're done */
+
+	if (wake_lock.lksb_lock_id)
+		return;
+
+	sprintf(string, WAKE_LOCK, getpid());
+	ISC_make_desc(string, &desc, 0);
+
+	status = sys$enqw(0,		/* event flag */
+					  LCK$K_PWMODE,	/* lock mode */
+					  &wake_lock,	/* Lock status block */
+					  LCK$M_SYSTEM,	/* flags */
+					  &desc,	/* resource name */
+					  0,		/* parent id */
+					  0,		/* ast address */
+					  0,		/* ast argument */
+					  blocking_ast,	/* blocking ast */
+					  0,		/* access mode */
+					  0);
+}
+#endif
+
+
+#ifdef VMS
+static void blocking_ast(void)
+{
+/**************************************
+ *
+ *      b l o c k i n g _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Somebody else is trying to post a lock.
+ *
+ **************************************/
+	int status;
+
+/* Initially down grade the lock to let the other guy complete */
+
+	status = sys$enqw(0,		/* event flag */
+					  LCK$K_NLMODE,	/* lock mode */
+					  &wake_lock,	/* Lock status block */
+					  LCK$M_CONVERT,	/* flags */
+					  0,		/* resource name */
+					  0,		/* parent id */
+					  0,		/* ast address */
+					  0,		/* ast argument */
+					  0,		/* blocking ast */
+					  0,		/* access mode */
+					  0);
+
+/* Wake us up */
+
+	status = sys$wake(0, 0);
+
+/* Now try to upgrade lock */
+
+	status = sys$enq(0,			/* event flag */
+					 LCK$K_PRMODE,	/* lock mode */
+					 &wake_lock,	/* Lock status block */
+					 LCK$M_CONVERT,	/* flags */
+					 0,			/* resource name */
+					 0,			/* parent id */
+					 0,			/* ast address */
+					 0,			/* ast argument */
+					 blocking_ast,	/* blocking ast */
+					 0,			/* access mode */
+					 0);
+}
+#endif
+
+
+#ifdef VMS
+static void poke_ast(POKE poke)
+{
+/**************************************
+ *
+ *      p o k e _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lock to poke event has completed.  Update value block
+ *      and deque the lock.
+ *
+ **************************************/
+	int status;
+	LKSB *lksb;
+
+	lksb = &poke->poke_lksb;
+	status = sys$deq(lksb->lksb_lock_id, 0, 0, 0);
+	--poke->poke_use_count;
+}
+#endif
+
+
+#ifdef VMS
+static int wait_test(SSHORT * iosb)
+{
+/**************************************
+ *
+ *      w a i t _ t e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Return true if an I/O event is complete.
+ *
+ **************************************/
+
+	return *iosb;
+}
+#endif
+
+
+
+#if defined(SUPERSERVER) && !defined(WIN_NT)
+// Win32 SUPERSERVER version of isc_internal_set_config_value()
+// is implemented in isc_win32.cpp
+
+void isc_internal_set_config_value(UCHAR key, ULONG * value1, ULONG * value2)
+{
+	switch (key) {
+	case ISCCFG_DBCACHE_KEY:
+		JRD_set_cache_default(value1);
+		break;
+	case ISCCFG_PRIORITY_KEY:
+		/* 
+		 * This is where you should call your OS specific function to set the 
+		 * Process priority (if available). 
+		 */
+		break;
+	case ISCCFG_MEMMAX_KEY:
+	case ISCCFG_MEMMIN_KEY:
+		/* 
+		 * This is where you should call your OS specific function to set the 
+		 * Process priority (if available). 
+		 */
+		break;
+	}
+}
+
+#endif	// SUPERSERVER
+
+
+#ifdef UNIX
+SLONG ISC_get_user_group_id(TEXT * user_group_name)
+{
+/**************************************
+ *
+ *      I S C _ g e t _ u s e r _ g r o u p _ n a n e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *      Return user group id if user group name found,
+ *      Otherwise return 0.
+ *
+ *                  ---  for UNIX platform  ---
+ *
+ **************************************/
+#ifdef AIX_PPC
+#define _UNIX95
+#endif
+#include <grp.h>
+#ifdef AIX_PPC
+#undef _UNIX95
+#endif
+	extern struct group *getgrnam();
+	struct group *user_group;
+	SLONG n;
+
+	n = 0;
+
+
+	if (user_group = getgrnam(user_group_name))
+		n = user_group->gr_gid;
+
+	return (n);
+}
+#else
+SLONG ISC_get_user_group_id(TEXT * user_group_name)
+{
+/**************************************
+ *
+ *      I S C _ g e t _ u s e r _ g r o u p _ n a n e
+ *
+ *                  ---  for non-UNIX platform  ---
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *      needed to be developed for non-unix platform
+ *
+ *      Currently it just returns 0.
+ *
+ **************************************/
+
+	SLONG n;
+
+	n = 0;
+	return (n);
+}
+#endif /* end of ifdef UNIX */
diff --git a/src/jrd/isc.h b/src/jrd/isc.h
new file mode 100644
index 0000000000..f06904614a
--- /dev/null
+++ b/src/jrd/isc.h
@@ -0,0 +1,388 @@
+/*
+ *	PROGRAM: JRD access method
+ *	MODULE:  isc.h
+ *	DESCRIPTION: Common descriptions for general-purpose but non-user routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Added TCP_NO_DELAY option for superserver on Linux
+ * FSG 16.03.2001 
+ */
+/*
+$Id: isc.h,v 1.1.1.1 2001-05-23 13:26:08 tamlin Exp $
+*/
+#ifndef _JRD_ISC_H_
+#define _JRD_ISC_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+/* Defines for semaphore and shared memory removal */
+
+#define ISC_SEM_REMOVE    1
+#define ISC_MEM_REMOVE    2
+
+/* Defines for tokens in config file */
+
+#define	ISCCFG_LOCKMEM		"V4_LOCK_MEM_SIZE"
+#define	ISCCFG_LOCKMEM_DEF	98304
+
+#define ISCCFG_LOCKSEM		"V4_LOCK_SEM_COUNT"
+#define ISCCFG_LOCKSEM_DEF	32
+
+#define ISCCFG_LOCKSIG		"V4_LOCK_SIGNAL"
+#define ISCCFG_LOCKSIG_DEF	16
+
+#define ISCCFG_EVNTMEM		"V4_EVENT_MEM_SIZE"
+#define ISCCFG_EVNTMEM_DEF	32768
+
+#define ISCCFG_DBCACHE		"DATABASE_CACHE_PAGES"
+#ifdef SUPERSERVER
+#define ISCCFG_DBCACHE_DEF	2048
+#endif
+#ifndef ISCCFG_DBCACHE_DEF
+#define ISCCFG_DBCACHE_DEF	75
+#endif
+
+#define ISCCFG_PRIORITY		"SERVER_PRIORITY_CLASS"
+#define ISCCFG_PRIORITY_DEF	1
+
+#define ISCCFG_IPCMAP		"SERVER_CLIENT_MAPPING"
+#define ISCCFG_IPCMAP_DEF	4096
+
+#define ISCCFG_MEMMIN		"SERVER_WORKING_SIZE_MIN"
+#define ISCCFG_MEMMIN_DEF	0
+
+#define ISCCFG_MEMMAX		"SERVER_WORKING_SIZE_MAX"
+#define ISCCFG_MEMMAX_DEF	0
+
+#define	ISCCFG_LOCKORDER	"V4_LOCK_GRANT_ORDER"
+#define	ISCCFG_LOCKORDER_DEF	1
+
+#define	ISCCFG_ANYLOCKMEM	"ANY_LOCK_MEM_SIZE"
+#define	ISCCFG_ANYLOCKMEM_DEF	98304
+
+#define ISCCFG_ANYLOCKSEM	"ANY_LOCK_SEM_COUNT"
+#define ISCCFG_ANYLOCKSEM_DEF	32
+
+#define ISCCFG_ANYLOCKSIG	"ANY_LOCK_SIGNAL"
+#define ISCCFG_ANYLOCKSIG_DEF	16
+
+#define ISCCFG_ANYEVNTMEM	"ANY_EVENT_MEM_SIZE"
+#define ISCCFG_ANYEVNTMEM_DEF	32768
+
+#define ISCCFG_LOCKHASH		"LOCK_HASH_SLOTS"
+#define ISCCFG_LOCKHASH_DEF	101
+
+#define ISCCFG_DEADLOCK		"DEADLOCK_TIMEOUT"
+#define ISCCFG_DEADLOCK_DEF	10
+
+#define ISCCFG_LOCKSPIN		"LOCK_ACQUIRE_SPINS"
+#define ISCCFG_LOCKSPIN_DEF	0
+
+#define ISCCFG_CONN_TIMEOUT	"CONNECTION_TIMEOUT"
+#define ISCCFG_CONN_TIMEOUT_DEF	180	/* seconds */
+
+#define ISCCFG_DUMMY_INTRVL	"DUMMY_PACKET_INTERVAL"
+#define ISCCFG_DUMMY_INTRVL_DEF	60	/* seconds */
+
+#define ISCCFG_TMPDIR		"TMP_DIRECTORY"
+
+#define ISCCFG_EXT_FUNC_DIR	"EXTERNAL_FUNCTION_DIRECTORY"
+
+#define ISCCFG_TRACE_POOLS	"TRACE_MEMORY_POOLS"	/* Internal Use only */
+#define ISCCFG_TRACE_POOLS_DEF	0	/* Off -  Internal Use only */
+
+#define ISCCFG_REMOTE_BUFFER	"TCP_REMOTE_BUFFER"
+#define ISCCFG_REMOTE_BUFFER_DEF	8192	/* xdr buffer size */
+
+#ifdef SET_TCP_NO_DELAY
+#define ISCCFG_NO_NAGLE	"TCP_NO_NAGLE"
+#define ISCCFG_NO_NAGLE_DEF	0	/*Disable Nagle Algorithm */
+#endif
+
+
+typedef struct cfgtbl {
+	TEXT *cfgtbl_keyword;
+	UCHAR cfgtbl_key;
+	ULONG cfgtbl_value;
+	ULONG cfgtbl_def_value;
+} CFGTBL;
+
+/* InterBase platform-specific synchronization data structures */
+
+#ifdef VMS
+typedef struct itm {
+	SSHORT itm_length;
+	SSHORT itm_code;
+	SCHAR *itm_buffer;
+	SSHORT *itm_return_length;
+} ITM;
+
+typedef struct event {
+	SLONG event_pid;
+	SLONG event_count;
+} EVENT_T, *EVENT;
+
+typedef struct wait {
+	USHORT wait_count;
+	EVENT wait_events;
+	SLONG *wait_values;
+} WAIT;
+
+/* Lock status block */
+
+typedef struct lksb {
+	SSHORT lksb_status;
+	SSHORT lksb_reserved;
+	SLONG lksb_lock_id;
+	SLONG lksb_value[4];
+} LKSB;
+
+/* Poke block (for asynchronous poking) */
+
+typedef struct poke {
+	struct poke *poke_next;
+	LKSB poke_lksb;
+	SLONG poke_parent_id;
+	USHORT poke_value;
+	USHORT poke_use_count;
+} *POKE;
+
+#define SH_MEM_STRUCTURE_DEFINED
+typedef struct sh_mem {
+	int sh_mem_system_flag;
+	UCHAR *sh_mem_address;
+	SLONG sh_mem_length_mapped;
+	SLONG sh_mem_mutex_arg;
+	SLONG sh_mem_handle;
+	SLONG sh_mem_retadr[2];
+	SLONG sh_mem_channel;
+	TEXT sh_mem_filename[128];
+} SH_MEM_T, *SH_MEM;
+#endif
+
+
+#ifdef UNIX
+#define MTX_STRUCTURE_DEFINED
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#include "../jrd/thd.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+#ifdef ANY_THREADING
+typedef struct mtx {
+	THD_MUTEX_STRUCT mtx_mutex[1];
+} MTX_T, *MTX;
+#else
+typedef struct mtx {
+	SLONG mtx_semid;
+	SSHORT mtx_semnum;
+	SCHAR mtx_use_count;
+	SCHAR mtx_wait;
+} MTX_T, *MTX;
+#endif /* ANY_THREADING */
+
+
+#ifdef ANY_THREADING
+typedef struct event
+{
+	SLONG event_semid;
+	SLONG event_count;
+	THD_MUTEX_STRUCT event_mutex[1];
+	THD_COND_STRUCT event_semnum[1];
+} EVENT_T, *EVENT;
+#else
+typedef struct event
+{
+	SLONG event_semid;
+	SLONG event_count;
+	SSHORT event_semnum;
+} EVENT_T, *EVENT;
+#endif /* ANY_THREADING */
+
+
+#define SH_MEM_STRUCTURE_DEFINED
+typedef struct sh_mem
+{
+	int sh_mem_semaphores;
+	UCHAR *sh_mem_address;
+	SLONG sh_mem_length_mapped;
+	SLONG sh_mem_mutex_arg;
+	SLONG sh_mem_handle;
+} SH_MEM_T, *SH_MEM;
+#endif /* UNIX */
+
+
+#if (defined PC_PLATFORM) && !(defined NETWARE_386)
+/* Temporary solution until PC supports events. */
+
+typedef struct event
+{
+	int event_count;
+} EVENT_T, *EVENT;
+#endif
+
+
+#ifdef NETWARE_386
+#define MTX_STRUCTURE_DEFINED
+typedef ULONG MTX_T, *MTX;
+
+typedef struct event {
+	ULONG event_semid;
+	MTX_T event_mutex[1];		/*  - added newly */
+	SLONG event_count;
+} EVENT_T, *EVENT;
+
+#define SH_MEM_STRUCTURE_DEFINED
+typedef struct sh_mem
+{
+	UCHAR*	sh_mem_address;
+	SLONG	sh_mem_length_mapped;
+	int		sh_mem_semaphores;
+	ULONG*	sh_mem_mutex_arg;
+} SH_MEM_T, *SH_MEM;
+#endif
+
+
+#ifdef WIN_NT
+#define MTX_STRUCTURE_DEFINED
+typedef struct mtx
+{
+	void*	mtx_handle;
+} MTX_T, *MTX;
+
+typedef struct event
+{
+	SLONG			event_pid;
+	SLONG			event_count;
+	SLONG			event_type;
+	void*			event_handle;
+	struct event*	event_shared;
+} EVENT_T, *EVENT;
+
+#define SH_MEM_STRUCTURE_DEFINED
+typedef struct sh_mem
+{
+	UCHAR*	sh_mem_address;
+	SLONG	sh_mem_length_mapped;
+	SLONG	sh_mem_mutex_arg;
+	void*	sh_mem_handle;
+	void*	sh_mem_object;
+	void*	sh_mem_interest;
+	void*	sh_mem_hdr_object;
+	SLONG*	sh_mem_hdr_address;
+	TEXT	sh_mem_name[256];
+} SH_MEM_T, *SH_MEM;
+
+#define THREAD_HANDLE_DEFINED
+typedef void *THD_T;
+#endif
+
+
+#ifndef MTX_STRUCTURE_DEFINED
+#define MTX_STRUCTURE_DEFINED
+typedef struct mtx
+{
+	SSHORT	mtx_event_count[3];
+	SCHAR	mtx_use_count;
+	SCHAR	mtx_wait;
+} MTX_T, *MTX;
+#endif
+#undef MTX_STRUCTURE_DEFINED
+
+#ifndef SH_MEM_STRUCTURE_DEFINED
+#define SH_MEM_STRUCTURE_DEFINED
+typedef struct sh_mem
+{
+	UCHAR*	sh_mem_address;
+	SLONG	sh_mem_length_mapped;
+	SLONG	sh_mem_mutex_arg;
+	SLONG	sh_mem_handle;
+} SH_MEM_T, *SH_MEM;
+#endif
+#undef SH_MEM_STRUCTURE_DEFINED
+
+#ifndef THREAD_HANDLE_DEFINED
+#define THREAD_HANDLE_DEFINED
+typedef ULONG THD_T;
+#endif
+#undef THREAD_HANDLE_DEFINED
+
+
+/* Interprocess communication configuration structure */
+
+typedef struct ipccfg
+{
+	const char*	ipccfg_keyword;
+	SCHAR		ipccfg_key;
+	SLONG*		ipccfg_variable;
+	SSHORT		ipccfg_parent_offset;	/* Relative offset of parent keyword */
+	USHORT		ipccfg_found;		/* TRUE when keyword has been set */
+} *IPCCFG;
+
+/* AST actions taken by SCH_ast() */
+
+enum ast_t
+{
+	AST_alloc,
+	AST_init,
+	AST_fini,
+	AST_check,
+	AST_disable,
+	AST_enable,
+	AST_enter,
+	AST_exit
+};
+
+/* AST thread scheduling macros */
+
+#ifdef AST_THREAD
+#define AST_ALLOC	SCH_ast (AST_alloc)
+#define AST_INIT	SCH_ast (AST_init)
+#define AST_FINI	SCH_ast (AST_fini)
+#define AST_CHECK	SCH_ast (AST_check)
+#define AST_DISABLE	SCH_ast (AST_disable)
+#define AST_ENABLE	SCH_ast (AST_enable)
+#define AST_ENTER	SCH_ast (AST_enter)
+#define AST_EXIT	SCH_ast (AST_exit)
+#else
+#define AST_ALLOC
+#define AST_INIT
+#define AST_FINI
+#define AST_CHECK
+#define AST_DISABLE
+#define AST_ENABLE
+#define AST_ENTER
+#define AST_EXIT
+#endif
+
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_ISC_H_ */
diff --git a/src/jrd/isc_cray.cpp b/src/jrd/isc_cray.cpp
new file mode 100644
index 0000000000..6254df727e
--- /dev/null
+++ b/src/jrd/isc_cray.cpp
@@ -0,0 +1,1395 @@
+#error This file is only renamed from .c to .cpp and indented.
+#error It still has old K&R style function arguments.
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		isc_cray.c
+ *	DESCRIPTION:	General purpose but non-user routines.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include "../jrd/codes.h"
+
+#include "../jrd/ib_stdio.h"
+#include <pwd.h>
+#include <sys/types.h>
+#include <sys/file.h>
+#include <sys/signal.h>
+#include <errno.h>
+
+#ifndef O_RDWR
+#include <fcntl.h>
+#endif
+
+#define STACK_SIZE	32000
+
+typedef struct mnt {
+	TEXT *mnt_node;
+	TEXT *mnt_mount;
+	TEXT *mnt_path;
+} MNT;
+
+typedef struct sig {
+	struct sig *sig_next;
+	int sig_signal;
+	void (*sig_routine) ();
+	SLONG sig_arg;
+	SLONG sig_count;
+	USHORT sig_flags;
+} *SIG;
+
+#define SIG_client	1			/* Not our routine */
+#define SIGVEC		struct sigvec
+#define INET_FLAG	':'
+#define MTAB		"/etc/mtab"
+#define sigvector	sigvec
+
+typedef void (*SIG_FPTR) ();
+
+TEXT *ISC_hostname();
+extern UCHAR *gds__alloc();
+
+static cleanup(), overflow_handler();
+static void signal_handler();
+static SIG que_signal();
+
+static TEXT user_name[256];
+static SIG signals;
+static USHORT blocked;
+static USHORT inhibit_count, ast_count;
+static SLONG overflow_count;
+#ifdef DGUX
+static SLONG pending_signals[2];
+#else
+static SLONG pending_signals;
+#endif
+static int process_id;
+static SIGVEC client_sigfpe;
+
+
+/* Unix specific stuff */
+
+#define MAXPATHLEN	1024
+#define MAXHOSTLEN	64
+
+#define FTOK_KEY	15
+#define PRIV		0666
+#define LOCAL_SEMAPHORES 4
+
+#ifndef GDS_RELAY
+#define GDS_RELAY	"/bin/gds_relay"
+#endif
+
+typedef struct {
+	SSHORT event_semid;
+	SSHORT event_semnum;
+	SLONG event_count;
+} *EVENT;
+
+extern struct passwd *getpwnam(), *getpwuid();
+extern SLONG ftok();
+
+static relay_pipe, local_semid, local_semaphores;
+
+
+
+ISC_analyze_filename(file_name, node_name)
+	 TEXT *file_name, *node_name;
+{
+/**************************************
+ *
+ *	I S C _ a n a l y z e _ f i l e n a m e		( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a filename for a TCP node name on the front.  If
+ *	one is found, extract the node name, compute the residual
+ *	file name, and return TRUE.  Otherwise return FALSE.
+ *
+ **************************************/
+	TEXT *p;
+
+/* Scan file name looking for separator character */
+
+	p = file_name;
+
+	while (*p && *p != INET_FLAG)
+		*node_name++ = *p++;
+
+	if (!*p)
+		return FALSE;
+
+/* for OS/2, introduce a restriction against one-character
+   machine names as a kludge to prevent the situation of 
+   trying to attach to C: as a remote machine -- there has
+   got to be a better way to resolve this */
+
+#ifdef MSDOS
+	if (p - file_name == 1)
+		return FALSE;
+#endif
+
+	*node_name = 0;
+
+	while (*file_name++ = *++p);
+
+	return TRUE;
+}
+
+
+
+
+ISC_analyze_nfs(expanded_filename, node_name)
+	 TEXT *expanded_filename, *node_name;
+{
+/**************************************
+ *
+ *	I S C _ a n a l y z e _ n f s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check a file name for an NFS mount point.  If so, decompose
+ *	into node name and remote file name. 
+ *
+ **************************************/
+	MNT mount;
+	TEXT mnt_buffer[1000], remote_filename[MAXPATHLEN], *p, *q, *temp,
+		max_node[MAXHOSTLEN], max_path[MAXPATHLEN], expand_mount[MAXPATHLEN];
+	USHORT flag;
+	IB_FILE *mtab;
+	int context, len;
+
+	len = 0;
+	*max_path = 0;
+	flag = FALSE;
+
+/* Search mount points */
+
+	temp = NULL;
+	context = 0;
+
+#ifdef ultrix
+	while (get_mounts(&mount, mnt_buffer, &context))
+#else
+#if (defined AIX || defined AIX_PPC)
+	while (get_mounts(&mount, mnt_buffer, &temp, &context))
+#else
+	if (!(mtab = ib_fopen(MTAB, "r")))
+		return flag;
+
+	while (get_mounts(&mount, mnt_buffer, mtab))
+#endif
+#endif
+	{
+		/* first, expand any symbolic links in the mount point */
+
+		ISC_expand_filename(mount.mnt_mount, 0, expand_mount);
+		mount.mnt_mount = expand_mount;
+
+		/* see how much of the mount point matches the expanded_filename */
+
+		p = expanded_filename;
+		for (q = mount.mnt_mount; *q && *q == *p++; q++);
+
+		/* if the whole mount point is not contained in the expanded_filename
+		   OR the mount point is not a valid pathname in the expanded_filename,
+		   skip it */
+
+		if (*q || *p != '/')
+			if (!strcmp(mount.mnt_mount, "/") && *mount.mnt_path) {
+				/* root mount point = diskless client case */
+
+				strcat(mount.mnt_path, "/");
+			}
+			else
+				continue;
+
+		/* the longest mount point contained in the expanded_filename wins */
+
+		if (q - mount.mnt_mount > len) {
+			len = q - mount.mnt_mount;
+			strcpy(max_node, mount.mnt_node);
+			strcpy(max_path, mount.mnt_path);
+		}
+	}
+
+/* If the longest mount point was a local one, max_path is empty.
+   Return FALSE, leaving node_name empty and expanded_filename as is.
+
+   If the longest mount point is from a remote node, max_path
+   contains the root of the file's path as it is known on the
+   remote node.  Return TRUE, loading node_name with the remote
+   node name and expanded_filename with the remote file name. */
+
+	if (*max_path) {
+		p = remote_filename;
+
+		q = max_path;
+		while (*q)
+			*p++ = *q++;
+
+		q = expanded_filename + len;
+		while (*p++ = *q++);
+
+		q = max_node;
+		while (*node_name++ = *q++);
+
+		p = remote_filename;
+		while (*expanded_filename++ = *p++);
+
+		flag = TRUE;
+	}
+
+#ifndef ultrix
+#if (!defined AIX && !defined AIX_PPC)
+	ib_fclose(mtab);
+#endif
+#endif
+
+#ifdef hpux
+	if (!flag)
+		flag = get_server(expanded_filename, node_name);
+#endif
+
+#if (defined AIX || defined AIX_PPC)
+	if (temp)
+		gds__free(temp);
+#endif
+
+	return flag;
+}
+
+
+
+ISC_ast_enter()
+{
+/**************************************
+ *
+ *	I S C _ a s t _ e n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enter ast mode.
+ *
+ **************************************/
+
+	++ast_count;
+}
+
+
+ISC_ast_exit()
+{
+/**************************************
+ *
+ *	I S C _ a s t _ e x i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enter ast mode.
+ *
+ **************************************/
+
+	--ast_count;
+}
+
+
+
+ISC_enter()
+{
+/**************************************
+ *
+ *	I S C _ e n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enter ISC world from caller.
+ *
+ **************************************/
+	SIGVEC internal_sigfpe;
+
+	internal_sigfpe.sv_handler = (SIG_FPTR) signal_handler;
+	internal_sigfpe.sv_mask = 0;
+	internal_sigfpe.sv_onstack = 0;
+	sigvector(SIGFPE, &internal_sigfpe, &client_sigfpe);
+}
+
+
+ISC_enable()
+{
+/**************************************
+ *
+ *	I S C _ e n a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enable signal processing.  Re-post and pending signals.
+ *
+ **************************************/
+	USHORT n;
+	SSHORT signal_number;
+#ifdef DGUX
+	SLONG *p;
+	USHORT i;
+#endif
+
+	if (inhibit_count)
+		--inhibit_count;
+
+	if (inhibit_count)
+		return;
+
+#ifdef UNIX
+#ifdef DGUX
+	while (pending_signals[0] || pending_signals[1])
+		for (i = 0, p = pending_signals; i < 2; i++, p++)
+			for (n = 0; *p && n < 32; n++)
+				if (*p & (1 << n)) {
+					*p &= ~(1 << n);
+					ISC_kill(process_id, n + 1 + i * 32);
+				}
+#else
+	while (pending_signals)
+		for (n = 0; pending_signals && n < 32; n++)
+			if (pending_signals & (1 << n)) {
+				pending_signals &= ~(1 << n);
+				ISC_kill(process_id, n + 1);
+			}
+#endif
+#endif
+}
+
+
+ISC_event_blocked(count, events, values)
+	 USHORT count;
+	 SLONG **events;
+	 SLONG *values;
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ b l o c k e d	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	If a wait would block, return TRUE.
+ *
+ **************************************/
+}
+
+
+SLONG ISC_event_clear(event)
+	 SLONG *event;
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ c l e a r	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear an event preparatory to waiting on it.  The order of
+ *	battle for event synchronization is:
+ *
+ *	    1.  Clear event.
+ *	    2.  Test data structure for event already completed
+ *	    3.  Wait on event.
+ *
+ **************************************/
+}
+
+
+ISC_event_init(event)
+	 SLONG *event;
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ i n i t	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare an event object for use.  Return FALSE if not
+ *	supported.
+ *
+ **************************************/
+
+	return FALSE;
+}
+
+
+ISC_event_post(event)
+	 SLONG *event;
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ p o s t	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an event to wake somebody else up.
+ *
+ **************************************/
+}
+
+
+ISC_event_wait(count, events, values, micro_seconds, timeout_handler,
+			   handler_arg)
+	 USHORT count;
+	 SLONG **events;
+	 SLONG *values;
+	 int micro_seconds;
+	 void (*timeout_handler) ();
+	 void *handler_arg;
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ w a i t	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait on an event.
+ *
+ **************************************/
+}
+
+
+
+ISC_exit()
+{
+/**************************************
+ *
+ *	I S C _ e x i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enter ISC world from caller.
+ *
+ **************************************/
+	SIGVEC internal_sigfpe;
+
+#ifdef XENIX
+#define ISC_EXIT
+	sigset(SIGFPE, client_sigfpe);
+#endif
+
+#ifndef ISC_EXIT
+	sigvector(SIGFPE, &client_sigfpe, 0);
+#endif
+}
+
+
+ISC_expand_filename(from_buff, length, to_buff)
+	 TEXT *from_buff;
+	 USHORT length;
+	 TEXT *to_buff;
+{
+/**************************************
+ *
+ *	I S C _ e x p a n d _ f i l e n a m e		( N F S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a filename by following links.  As soon as a TCP node name
+ *	shows up, stop translating.
+ *
+ **************************************/
+
+	return expand_filename2(from_buff, length, to_buff);
+}
+
+
+
+#ifndef GET_HOST
+TEXT *ISC_get_host(string, length)
+	 TEXT *string;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	I S C _ g e t _ h o s t			( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get host name.
+ *
+ **************************************/
+
+	gethostname(string, length);
+
+	return string;
+}
+#endif
+
+
+ISC_get_user(name, id, group, project, organization, node, user_string,
+			 user_len)
+	 TEXT *name;
+	 int *id;
+	 int *group;
+	 TEXT *project;
+	 TEXT *organization;
+	 int *node;
+	 TEXT *user_string;
+	 USHORT user_len;
+{
+/**************************************
+ *
+ *	I S C _ g e t _ u s e r   ( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find out who the user is.
+ *
+ **************************************/
+	uid_t euid;
+	TEXT *p, user_group[256];
+	struct passwd *passwd;
+
+	if (user_string && *user_string) {
+		strcpy(user_group, user_string);
+		for (p = user_group; *p && (*p != '.'); *p++);
+		if (*p) {
+			*p++ = 0;
+			euid = (uid_t) atoi(p);
+		}
+		p = user_group;
+	}
+	else {
+		euid = geteuid();
+		passwd = getpwuid(euid);
+		if (passwd)
+			p = passwd->pw_name;
+		else
+			p = "";
+		endpwent();
+	}
+
+	if (name)
+		strcpy(name, p);
+
+	if (id)
+		*id = euid;
+
+	if (group)
+		*group = getegid();
+
+	if (project)
+		*project = 0;
+
+	if (organization)
+		*organization = 0;
+
+	if (node)
+		*node = 0;
+
+	return (euid == 0);
+}
+
+
+
+ISC_inhibit()
+{
+/**************************************
+ *
+ *	I S C _ i n h i b i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Inhibit process of signals.  Signals will be
+ *	retained until signals are eventually re-enabled,
+ *	then re-posted.
+ *
+ **************************************/
+
+	++inhibit_count;
+}
+
+
+ISC_kill(pid, signal_number)
+	 int pid;
+	 int signal_number;
+{
+/**************************************
+ *
+ *	I S C _ k i l l		( u n i x )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Notify somebody else.
+ *
+ **************************************/
+	SLONG msg[3];
+	int status, pipes[2];
+	TEXT process[64], arg[10];
+
+	status = kill(pid, signal_number);
+
+	if (!status || errno != EPERM)
+		return status;
+
+/* Process is there, but we don't have the privilege to
+   send to him.  */
+
+	if (!relay_pipe) {
+		gds__prefix(process, GDS_RELAY);
+		if (pipe(pipes)) {
+			gds__log("ISC_kill: error %d creating gds_relay", errno);
+			return -1;
+		}
+		sprintf(arg, "%d", pipes[0]);
+		if (!vfork()) {
+			execl(process, process, arg, 0);
+			gds__log("ISC_kill: error %d starting gds_relay %s", errno,
+					 process);
+			_exit(0);
+		}
+		relay_pipe = pipes[1];
+
+		/* Don't need the READ pipe */
+		close(pipes[0]);
+	}
+
+	msg[0] = pid;
+	msg[1] = signal_number;
+	msg[2] = msg[0] ^ msg[1];
+	if (write(relay_pipe, msg, sizeof(msg)) != sizeof(msg)) {
+		gds__log("ISC_kill: write to relay_pipe failed %d", errno);
+		relay_pipe = 0;			/* try to restart next time */
+		return -1;
+	}
+
+	return 0;
+}
+
+
+ISC_make_user_string(name, namelen, group)
+	 TEXT *name;
+	 SSHORT namelen;
+	 SLONG group;
+{
+/**************************************
+ *
+ *	I S C _ m a k e _ u s e r _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a string from name and group.
+ *
+ **************************************/
+	SCHAR temp[15];
+
+	if (group) {
+		sprintf(temp, ".%ld", group);
+		strcat(name, temp);
+	}
+}
+#endif
+
+
+
+UCHAR *ISC_map_file(status_vector, filename, init_routine, init_arg, length,
+					shmem_data)
+	 STATUS *status_vector;
+	 TEXT *filename;
+	 int (*init_routine) ();
+	 SLONG init_arg;
+	 SLONG length;
+	 void *shmem_data;
+{
+/**************************************
+ *
+ *	I S C _ m a p _ f i l e		( g e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to map a given file.  If we are the first (i.e. only)
+ *	process to map the file, call a given initialization
+ *	routine (if given) or punt (leaving the file unmapped).
+ *
+ **************************************/
+
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = gds__unavailable;
+	*status_vector++ = gds_arg_end;
+
+	return NULL;
+}
+
+
+
+ISC_mutex_init(mutex, dummy)
+	 SLONG *mutex;
+	 SLONG dummy;
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ i n i t	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a mutex.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+ISC_mutex_lock(mutex)
+	 SLONG *mutex;
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ l o c k	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sieze a mutex.
+ *
+ **************************************/
+	return 0;
+}
+
+
+ISC_mutex_unlock(mutex)
+	 SLONG *mutex;
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ u n l o c k		( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a mutex.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+
+ISC_set_user(string)
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	I S C _ s e t _ u s e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set user name for feeble operating system that don't
+ *	support the concept, or support it badly.
+ *
+ **************************************/
+
+	strcpy(user_name, string);
+}
+
+
+ISC_signal(signal_number, handler, arg)
+	 int signal_number;
+	 void (*handler) ();
+	 SLONG arg;
+{
+/**************************************
+ *
+ *	I S C _ s i g n a l		( u n i x )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Multiplex multiple handers into single signal.
+ *
+ **************************************/
+	SIGVEC vec, old_vec;
+	SIG sig;
+	SIG_FPTR ptr;
+
+/* The signal handler needs the process id */
+	if (!process_id)
+		process_id = getpid();
+
+/* See if this signal has ever been cared about before */
+	for (sig = signals; sig; sig = sig->sig_next)
+		if (sig->sig_signal == signal_number)
+			break;
+
+/* If it hasn't been (and its not FPE, since we won't chain
+   handlers for FPE) attach our chain handler to the signal,
+   and queue up whatever used to handle it as a non-ISC
+   routine (the are invoked differently).  Note that if
+   the old action was SIG_DFL, SIG_HOLD, SIG_IGN or our
+   multiplexor, there is no need to save it. */
+	if (!sig && signal_number != SIGFPE) {
+		vec.sv_handler = (SIG_FPTR) signal_handler;
+		vec.sv_mask = 0;
+		vec.sv_onstack = 0;
+		sigvector(signal_number, &vec, &old_vec);
+		ptr = old_vec.sv_handler;
+		if (ptr != SIG_DFL &&
+#ifdef SIG_HOLD
+			ptr != SIG_HOLD &&
+#endif
+			ptr != SIG_IGN && ptr != signal_handler)
+			que_signal(signal_number, ptr, arg, SIG_client);
+	}
+
+/* Que up the new ISC signal handler routine */
+	que_signal(signal_number, handler, arg, 0);
+}
+
+
+
+ISC_signal_cancel(signal_number, handler, arg)
+	 int signal_number;
+	 void (*handler) ();
+	 SLONG arg;
+{
+/**************************************
+ *
+ *	I S C _ s i g n a l _ c a n c e l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel a signal handler.
+ *
+ **************************************/
+	SIG sig, *ptr;
+
+	for (ptr = &signals; sig = *ptr; ptr = &(*ptr)->sig_next)
+		if (sig->sig_signal == signal_number &&
+			sig->sig_routine == handler && sig->sig_arg == arg) {
+			*ptr = sig->sig_next;
+			gds__free(sig);
+			break;
+		}
+}
+
+
+ISC_signal_init()
+{
+/**************************************
+ *
+ *	I S C _ s i g n a l _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize any system signal handlers.
+ *
+ **************************************/
+
+	overflow_count = 0;
+	gds__register_cleanup(cleanup, 0);
+	ISC_signal(SIGFPE, overflow_handler, 0);
+}
+
+
+static cleanup()
+{
+/**************************************
+ *
+ *	c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Module level cleanup handler.
+ *
+ **************************************/
+
+	signals = NULL;
+	inhibit_count = 0;
+	process_id = 0;
+}
+
+
+static error(status_vector, string, status)
+	 STATUS *status_vector;
+	 TEXT *string;
+	 STATUS status;
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've encountered an error, report it.
+ *
+ **************************************/
+
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = gds__sys_request;
+	*status_vector++ = gds_arg_string;
+	*status_vector++ = (STATUS) string;
+	*status_vector++ = SYS_ARG;
+	*status_vector++ = status;
+	*status_vector++ = gds_arg_end;
+}
+
+
+static expand_filename2(from_buff, length, to_buff)
+	 TEXT *from_buff;
+	 USHORT length;
+	 TEXT *to_buff;
+{
+/**************************************
+ *
+ *	e x p a n d _ f i l e n a m e 2		( N F S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a filename by following links.  As soon as a TCP node name
+ *	shows up, stop translating.
+ *
+ **************************************/
+	TEXT *from, *to, temp[MAXPATHLEN], *p, *segment, temp2[MAXPATHLEN];
+	SSHORT n;
+	struct passwd *passwd;
+
+	if (length) {
+		strncpy(temp2, from_buff, length);
+		temp2[length] = 0;
+		from = temp2;
+	}
+	else
+		from = from_buff;
+
+	to = to_buff;
+
+/* If the filename contains a TCP node name, don't even try to expand it */
+
+	if (strchr(from, INET_FLAG)) {
+		strcpy(to, from);
+		return strlen(to);
+	}
+
+/* Handle references to default directories (tilde refs) */
+
+	if (*from == '~') {
+		++from;
+		p = temp;
+		while (*from && *from != '/')
+			*p++ = *from++;
+		*p = 0;
+		passwd = (temp[0]) ? getpwnam(temp) : getpwuid(geteuid());
+		if (passwd) {
+			expand_filename2(passwd->pw_dir, 0, temp);
+			p = temp;
+			while (*p)
+				*to++ = *p++;
+		}
+	}
+
+/* If the file is local, expand partial pathnames with default directory */
+
+	if (*from && !strchr(from, INET_FLAG) && *from != '/' && getwd(to)) {
+		while (*to)
+			++to;
+		*to++ = '/';
+	}
+
+/* Process file name segment by segment looking for symbolic
+   links. See ISC_analyze_nfs for how NFS mount points are
+   handled. */
+
+	while (*from) {
+		segment = to;
+
+		/* Copy the leading slash, if any */
+
+		if (*from == '/') {
+			if (to > to_buff + 1 && to[-1] == '/')
+				++from;
+			else
+				*to++ = *from++;
+			continue;
+		}
+
+		/* Handle self references */
+
+		if (*from == '.' && (from[1] == '.' || from[1] == '/')) {
+			++from;
+			if (*from == '.') {
+				++from;
+				if (to > to_buff)
+					--to;
+				while (to > to_buff && to[-1] != '/')
+					--to;
+			}
+			continue;
+		}
+
+		/* Copy the rest of the segment name */
+
+		while (*from && *from != '/')
+			*to++ = *from++;
+
+		/* If the file is local, check for a symbol link */
+
+		*to = 0;
+
+		n = readlink(to_buff, temp, sizeof(temp));
+
+		if (n < 0)
+			continue;
+
+		/* We've got a link.  If it contains a node name or it starts 
+		   with a slash, it replaces the initial segment so far */
+
+		temp[n] = 0;
+		p = temp;
+
+		if (strchr(temp, INET_FLAG)) {
+			strcpy(to_buff, temp);
+			return n;
+		}
+
+		to = (*p == '/') ? to_buff : segment;
+
+		while (*p)
+			*to++ = *p++;
+
+		/* Whole link needs translating -- recurse */
+
+		*to = 0;
+		expand_filename2(to_buff, 0, temp);
+		to = to_buff;
+		p = temp;
+		while (*p)
+			*to++ = *p++;
+	}
+
+	*to = 0;
+
+	return to - to_buff;
+}
+
+
+
+
+#ifdef hpux
+static get_mounts(mount, buffer, file)
+	 MNT *mount;
+	 TEXT *buffer;
+	 IB_FILE *file;
+{
+/**************************************
+ *
+ *	g e t _ m o u n t s	( H P - U X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ALL mount points.
+ *
+ **************************************/
+	TEXT *p, *q;
+	struct mntent *mptr;
+
+/* Start by finding a mount point. */
+
+	p = buffer;
+
+	while ((mptr = getmntent(file)) > 0) {
+		/* Include non-NFS (local) mounts - some may be SLONGer than
+		   NFS mount points */
+
+/****
+    if (strcmp (mptr->mnt_type, MNTTYPE_NFS))
+	continue;
+****/
+
+		mount->mnt_node = p;
+		q = mptr->mnt_fsname;
+		while (*q && *q != ':')
+			*p++ = *q++;
+		*p++ = 0;
+		if (*q)
+			q++;
+		mount->mnt_path = p;
+		while (*p++ = *q++);
+		mount->mnt_mount = mptr->mnt_dir;
+		return TRUE;
+	}
+
+	return FALSE;
+}
+#endif
+
+
+#if (defined AIX || defined AIX_PPC)
+static get_mounts(mount, mnt_buffer, buffer, count)
+	 MNT *mount;
+	 TEXT *mnt_buffer;
+	 TEXT **buffer;
+	 int *count;
+{
+/**************************************
+ *
+ *	g e t _ m o u n t s	( A I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ALL mount points.
+ *
+ **************************************/
+	int l, i;
+	TEXT *p;
+	struct vmount *vmt;
+
+	if (!*buffer) {
+		/* The first time through, get the mount info from the system.
+		   First find out how much information there is, then allocate
+		   a buffer for it, and finally get it. */
+
+		if (mntctl(MCTL_QUERY, sizeof(SLONG), mnt_buffer) != 0)
+			return FALSE;
+
+		l = *(SLONG *) mnt_buffer;
+		/* FREE: in get_mounts() */
+		if (!(*buffer = gds__alloc(l)) ||
+			(*count = mntctl(MCTL_QUERY, l, *buffer)) <= 0)
+			return FALSE;		/* NOMEM: */
+	}
+	else if (!*count)
+		return FALSE;
+
+	for (i = --(*count), p = *buffer; i--;)
+		p += ((struct vmount *) p)->vmt_length;
+
+	vmt = (struct vmount *) p;
+
+	mount->mnt_node = mnt_buffer;
+	p = vmt2dataptr(vmt, VMT_HOSTNAME);
+	l = vmt2datasize(vmt, VMT_HOSTNAME);
+	if (l && (p[0] != '-' || p[1]))
+		while (l-- && *p)
+			*mnt_buffer++ = *p++;
+	*mnt_buffer++ = 0;
+
+	mount->mnt_path = mnt_buffer;
+	p = vmt2dataptr(vmt, VMT_OBJECT);
+	l = vmt2datasize(vmt, VMT_OBJECT);
+	while (l-- && *p)
+		*mnt_buffer++ = *p++;
+	*mnt_buffer++ = 0;
+
+	mount->mnt_mount = mnt_buffer;
+	p = vmt2dataptr(vmt, VMT_STUB);
+	l = vmt2datasize(vmt, VMT_STUB);
+	while (l-- && *p)
+		*mnt_buffer++ = *p++;
+	*mnt_buffer = 0;
+
+	if (!*mount->mnt_node) {
+		p = mount->mnt_node;
+		mount->mnt_node = mount->mnt_path;
+		mount->mnt_path = p;
+	}
+
+	return TRUE;
+}
+#endif
+
+
+#ifndef ultrix
+#ifndef hpux
+#if (!defined AIX && !defined AIX_PPC)
+static get_mounts(mount, buffer, file)
+	 MNT *mount;
+	 TEXT *buffer;
+	 IB_FILE *file;
+{
+/**************************************
+ *
+ *	g e t _ m o u n t s	( n o n - U l t r i x )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ALL mount points.
+ *
+ **************************************/
+	TEXT device[128], mount_point[128], type[16], rw[128], foo1[16], *p, *q;
+	SSHORT n;
+
+/* Start by finding a mount point. */
+
+	p = buffer;
+
+	for (;;) {
+		n =
+			ib_fscanf(file, "%s %s %s %s %s %s", device, mount_point, type,
+					  rw, foo1, foo1);
+		if (n < 0)
+			break;
+
+		/* Include non-NFS (local) mounts - some may be SLONGer than
+		   NFS mount points */
+
+/****
+    if (strcmp (type, "nfs"))
+	continue;
+****/
+
+		mount->mnt_node = p;
+		q = device;
+		while (*q && *q != ':')
+			*p++ = *q++;
+		*p++ = 0;
+		if (*q)
+			q++;
+		mount->mnt_path = p;
+		while (*p++ = *q++);
+		mount->mnt_mount = p;
+		q = mount_point;
+		while (*p++ = *q++);
+		return TRUE;
+	}
+
+	return FALSE;
+}
+#endif
+#endif
+#endif
+
+
+
+static overflow_handler()
+{
+/**************************************
+ *
+ *	o v e r f l o w _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody overflowed.  Ho hum.
+ *
+ **************************************/
+
+	++overflow_count;
+}
+
+
+static SIG que_signal(signal_number, handler, arg, flags)
+	 int signal_number;
+	 void (*handler) ();
+	 SLONG arg;
+	 int flags;
+{
+/**************************************
+ *
+ *	q u e _ s i g n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que signal for later action.
+ *
+ **************************************/
+	SIG sig;
+
+	sig = (SIG) gds__alloc((SLONG) sizeof(struct sig));
+/* FREE: unknown */
+	if (!sig)					/* NOMEM: */
+		return NULL;			/* Error not really handled */
+	sig->sig_signal = signal_number;
+	sig->sig_routine = handler;
+	sig->sig_arg = arg;
+	sig->sig_flags = flags;
+	sig->sig_count = 0;
+
+	sig->sig_next = signals;
+	signals = sig;
+
+	return sig;
+}
+
+
+
+static void signal_handler(number, code, scp)
+	 int number;
+	 int code;
+	 struct sigcontext *scp;
+{
+/**************************************
+ *
+ *	s i g n a l _ h a n d l e r	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkin with various signal handlers.
+ *
+ **************************************/
+	SIG sig;
+
+/* If signals are inhibited, save the signal for later reposting.
+   Otherwise, invoked everybody who may have express an interest. */
+
+#ifdef DGUX
+/* This code was missing as of 1995-March-20  
+ * so introduce a compiler error to force a fix.
+ */
+	deliberate_compiler_error++;
+#endif
+
+	if (inhibit_count)
+		pending_signals |= 1 << (number - 1);
+	else
+		for (sig = signals; sig; sig = sig->sig_next)
+			if (sig->sig_signal == number) {
+				if (sig->sig_flags & SIG_client)
+					(*sig->sig_routine) (number, code, scp);
+				else
+					(*sig->sig_routine) (sig->sig_arg);
+			}
+
+#ifdef SIG_RESTART
+	scp->sc_syscall_action = (blocked) ? SIG_RETURN : SIG_RESTART;
+#endif
+}
diff --git a/src/jrd/isc_f_proto.h b/src/jrd/isc_f_proto.h
new file mode 100644
index 0000000000..5c9dea92f3
--- /dev/null
+++ b/src/jrd/isc_f_proto.h
@@ -0,0 +1,48 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		isc_f_proto.h
+ *	DESCRIPTION:	Prototype header file for isc_file.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_ISC_FILE_PROTO_H_
+#define _JRD_ISC_FILE_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int ISC_analyze_nfs(TEXT *, TEXT *);
+extern int ISC_analyze_pclan(TEXT *, TEXT *);
+extern int DLL_EXPORT ISC_analyze_spx(TEXT *, TEXT *);
+extern int DLL_EXPORT ISC_analyze_tcp(TEXT *, TEXT *);
+extern BOOLEAN DLL_EXPORT ISC_check_if_remote(TEXT *, BOOLEAN);
+extern int ISC_expand_filename(TEXT *, USHORT, TEXT *);
+extern int ISC_expand_logical(TEXT *, USHORT, TEXT *);
+extern int ISC_expand_share(TEXT *, TEXT *);
+extern int ISC_file_lock(SSHORT);
+extern int ISC_file_unlock(SSHORT);
+extern void ISC_parse_filename(TEXT *, TEXT *, TEXT *, TEXT *);
+extern int ISC_strip_filename(TEXT *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_ISC_FILE_PROTO_H_ */
diff --git a/src/jrd/isc_file.cpp b/src/jrd/isc_file.cpp
new file mode 100644
index 0000000000..7855877ef7
--- /dev/null
+++ b/src/jrd/isc_file.cpp
@@ -0,0 +1,2477 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		isc_file.c
+ *	DESCRIPTION:	General purpose but non-user routines.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef SHLIB_DEFS
+#define LOCAL_SHLIB_DEFS
+#endif
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+#include "../jrd/codes.h"
+#include "../jrd/jrd.h"
+#include "../jrd/flu_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/jrd_proto.h"
+
+#ifndef NO_NFS
+#define NFS	1
+#endif
+
+#ifdef SUN3_3
+typedef unsigned short uid_t;
+#endif
+
+
+/* VMS Specific Stuff */
+
+#ifdef VMS
+
+#include <rms.h>
+#include <descrip.h>
+#include <ssdef.h>
+#include <jpidef.h>
+#include <prvdef.h>
+#include <secdef.h>
+#include <lckdef.h>
+#include "../jrd/lnmdef.h"
+#define LOGICAL_NAME_TABLE	"LNM$FILE_DEV"
+#define DEFAULT_FILE_NAME	".gdb"
+#define INET_FLAG		'^'
+
+typedef struct itm {
+	SSHORT itm_length;
+	SSHORT itm_code;
+	SCHAR *itm_buffer;
+	SSHORT *itm_return_length;
+} ITM;
+
+#endif /* of ifdef VMS */
+
+
+/* Unix/NFS specific stuff */
+
+#if (defined NFS || defined FREEBSD || defined NETBSD)
+#include <pwd.h>
+#define MAXPATHLEN	1024
+#endif
+
+#ifdef hpux
+#define GETWD(buf)		getcwd (buf, MAXPATHLEN)
+#define MTAB			"/etc/mnttab"
+#include <sys/types.h>
+#ifndef HP10
+#include <cluster.h>
+#endif
+#endif
+
+#ifdef DGUX
+#define MTAB			"/etc/mnttab"
+#endif
+
+#if (defined SOLARIS || defined M88K || defined UNIXWARE || defined NCR3000 || defined EPSON)
+#define SV_MNTENT
+#define NON_MNTENT
+#include <sys/mnttab.h>
+#define MTAB			"/etc/mnttab"
+#define MTAB_OPEN(path,type)    ib_fopen (path, type)
+#define MTAB_CLOSE(stream)	ib_fclose (stream)
+#endif
+
+#ifdef SCO_UNIX
+#define NON_MNTENT
+#define MTAB			"/etc/mount"
+#define MTAB_OPEN(path,type)	popen (path, type)
+#define MTAB_CLOSE(stream)	pclose (stream)
+#define GETWD(buf)		getcwd (buf, MAXPATHLEN)
+#endif
+
+#ifdef DECOSF
+#define NON_MNTENT
+#include <sys/types.h>
+#include <sys/mount.h>
+#endif
+
+#ifdef DELTA
+#define NON_MNTENT
+#define MTAB			"/etc/mnttab"
+#define MTAB_OPEN(path,type)	open (path, type)
+#define MTAB_CLOSE(stream)	close (stream)
+#define GETWD(buf)		getcwd (buf, MAXPATHLEN)
+#endif
+
+
+#ifdef ultrix
+#define NON_MNTENT
+#include <sys/mount.h>
+#include <sys/fs_types.h>
+#endif
+
+#if (defined AIX || defined AIX_PPC)
+#define NON_MNTENT
+#include <sys/vmount.h>
+#endif
+
+#if (defined SOLARIS || defined UNIXWARE || defined NCR3000 || defined linux || defined M88K || defined FREEBSD || defined NETBSD)
+#define GETWD(buf)		getcwd (buf, MAXPATHLEN)
+#endif
+
+#ifdef SUPERSERVER
+#undef GETWD
+#define GETWD(buf)		JRD_getdir (buf, MAXPATHLEN)
+#endif
+
+#ifndef GETWD
+#define GETWD			getwd
+#endif
+
+#ifndef NON_MNTENT
+#ifdef NFS
+#include <mntent.h>
+#define MTAB_OPEN(path,type)	setmntent (path, "r")
+#define MTAB_CLOSE(stream)	endmntent (stream)
+#endif
+#endif
+
+#ifndef MTAB
+#define MTAB			"/etc/mtab"
+#endif
+
+typedef struct mnt {
+	TEXT *mnt_node;
+	TEXT *mnt_mount;
+	TEXT *mnt_path;
+} MNT;
+
+
+/* Unix specific stuff */
+
+#ifdef UNIX
+#include <unistd.h>
+#include <sys/types.h>
+#include <sys/ipc.h>
+#include <sys/file.h>
+#include <errno.h>
+
+#ifdef DELTA
+#include <sys/sysmacros.h>
+#include <sys/param.h>
+#endif
+
+extern struct passwd *getpwnam(), *getpwuid();
+#endif	// UNIX
+
+
+/* MS/DOS / OS2 / NLM Junk */
+
+#ifdef PC_PLATFORM
+#include <stdlib.h>
+
+#define PARSE_FILENAME
+#define ISC_DATABASE	"ISC_DATABASE"	/* default database directory
+										   environment variable */
+
+/* definition of toupper () */
+#ifndef __CTYPE_H
+#include <ctype.h>
+#endif /* __CTYPE_H */
+
+#endif /* PC_PLATFORM */
+
+#ifdef NETWARE_386
+#define PARSE_FILENAME
+#endif
+
+/* Windows NT stuff */
+
+#ifdef WIN_NT
+#include <windows.h>
+#ifndef TEXT
+#define TEXT		SCHAR
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	_MAX_PATH
+#endif
+#endif
+
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	512
+#endif
+
+#ifndef MAXHOSTLEN
+#define MAXHOSTLEN	64
+#endif
+
+#ifndef INET_FLAG
+#define INET_FLAG	':'
+#endif
+
+static int expand_filename2(TEXT *, USHORT, TEXT *);
+
+#if defined(WIN_NT)
+static void expand_share_name(TEXT *);
+static void share_name_from_resource(TEXT *, TEXT *, LPNETRESOURCE);
+static void share_name_from_unc(TEXT *, TEXT *, LPREMOTE_NAME_INFO);
+#endif
+
+#if (defined AIX || defined AIX_PPC || defined DECOSF)
+static BOOLEAN get_mounts(MNT *, TEXT *, TEXT **, int *);
+#else
+#ifdef DELTA
+static BOOLEAN get_mounts(MNT *, TEXT *, int);
+#else
+#ifdef ultrix
+static BOOLEAN get_mounts(MNT *, TEXT *, int *);
+#else
+static BOOLEAN get_mounts(MNT *, TEXT *, IB_FILE *);
+#endif
+#endif
+#endif
+static BOOLEAN get_server(TEXT *, TEXT *);
+#if (defined SPX) || ((defined PC_PLATFORM) && !(defined NETWARE_386))
+static void string_parse(TEXT *, TEXT **, TEXT **, TEXT **, TEXT *);
+static void convert_slashes(char oldslash, char newslash, char *string);
+#endif
+
+
+#ifdef SHLIB_DEFS
+#define strlen		(*_libgds_strlen)
+#define strcmp		(*_libgds_strcmp)
+#define strcpy		(*_libgds_strcpy)
+#define _iob		(*_libgds__iob)
+#define errno		(*_libgds_errno)
+#define ib_fopen		(*_libgds_fopen)
+#define ib_fclose		(*_libgds_fclose)
+#define open		(*_libgds_open)
+#define strcat		(*_libgds_strcat)
+#define strncpy		(*_libgds_strncpy)
+#define strchr		(*_libgds_strchr)
+#define getpwnam	(*_libgds_getpwnam)
+#define geteuid		(*_libgds_geteuid)
+#define getpwuid	(*_libgds_getpwuid)
+#define close		(*_libgds_close)
+#define ib_fscanf		(*_libgds_fscanf)
+#define _ctype		(*_libgds__ctype)
+#define readlink	(*_libgds_readlink)
+
+extern int strlen();
+extern int strcmp();
+extern SCHAR *strcpy();
+extern IB_FILE _iob[];
+extern int errno;
+extern IB_FILE *ib_fopen();
+extern int ib_fclose();
+extern int open();
+extern SCHAR *strcat();
+extern SCHAR *strncpy();
+extern SCHAR *strchr();
+extern struct passwd *getpwnam();
+extern uid_t geteuid();
+extern struct passwd *getpwuid();
+extern int close();
+extern int ib_fscanf();
+extern SCHAR _ctype[];
+extern int readlink();
+
+#ifndef SCO
+#define GETWD		(*_libgds_getwd)
+#define setmntent	(*_libgds_setmntent)
+#define getmntent	(*_libgds_getmntent)
+#define endmntent	(*_libgds_endmntent)
+
+extern SCHAR *GETWD();
+extern IB_FILE *setmntent();
+extern struct mntent *getmntent();
+extern int endmntent();
+#else
+#define getcwd		(*_libgds_getcwd)
+#define popen		(*_libgds_popen)
+#define pclose		(*_libgds_pclose)
+
+extern IB_FILE *popen();
+extern IB_FILE *pclose();
+extern SCHAR *getcwd();
+#endif
+#endif
+
+
+#ifdef NFS
+int ISC_analyze_nfs(TEXT * expanded_filename, TEXT * node_name)
+{
+/**************************************
+ *
+ *	I S C _ a n a l y z e _ n f s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check a file name for an NFS mount point.  If so,
+ *	decompose into node name and remote file name. 
+ *
+ **************************************/
+#ifdef STACK_EFFICIENT
+	TEXT *mnt_buffer, *remote_filename, *max_node, *max_path, *expand_mount;
+#else /* STACK_EFFICIENT */
+	TEXT mnt_buffer[BUFFER_LARGE], remote_filename[MAXPATHLEN],
+		max_node[MAXHOSTLEN], max_path[MAXPATHLEN], expand_mount[MAXPATHLEN];
+#endif /* STACK_EFFICIENT */
+
+	MNT mount;
+	TEXT *p, *q, *temp;
+	USHORT flag;
+
+#ifdef DELTA
+	int mtab;
+#else
+	IB_FILE *mtab;
+#endif
+	int context, len;
+
+#ifdef STACK_EFFICIENT
+/* allocate all strings in one block */
+	mnt_buffer = (TEXT *)
+		gds__alloc((SLONG)
+				   (sizeof(TEXT) *
+					(BUFFER_LARGE + 3 * MAXPATHLEN + MAXHOSTLEN)));
+	remote_filename = mnt_buffer + BUFFER_LARGE;
+	max_node = remote_filename + MAXPATHLEN;
+	max_path = max_node + MAXHOSTLEN;
+	expand_mount = max_path + MAXPATHLEN;
+#endif /* STACK_EFFICIENT */
+
+	len = 0;
+	*max_path = 0;
+	flag = FALSE;
+
+/* Search mount points */
+
+	temp = NULL;
+	context = 0;
+
+#ifdef ultrix
+	while (get_mounts(&mount, mnt_buffer, &context))
+#else
+#if (defined AIX || defined AIX_PPC || defined DECOSF)
+	while (get_mounts(&mount, mnt_buffer, &temp, &context))
+#else
+	if (!(mtab = MTAB_OPEN(MTAB, "r"))) {
+#ifdef STACK_EFFICIENT
+		gds__free((SLONG *) mnt_buffer);
+#endif /* STACK_EFFICIENT */
+		return flag;
+	}
+	while (get_mounts(&mount, mnt_buffer, mtab))
+#endif
+#endif
+	{
+		/* first, expand any symbolic links in the mount point */
+
+		ISC_expand_filename(mount.mnt_mount, 0, expand_mount);
+		mount.mnt_mount = expand_mount;
+
+		/* see how much of the mount point matches the expanded_filename */
+
+		p = expanded_filename;
+		for (q = mount.mnt_mount; *q && *q == *p++; q++);
+
+		/* if the whole mount point is not contained in the expanded_filename
+		   OR the mount point is not a valid pathname in the expanded_filename,
+		   skip it */
+
+		if (*q || *p != '/')
+			if (!strcmp(mount.mnt_mount, "/") && *mount.mnt_path) {
+				/* root mount point = diskless client case */
+
+				strcat(mount.mnt_path, "/");
+			}
+			else
+				continue;
+
+		/* the longest mount point contained in the expanded_filename wins */
+
+		if (q - mount.mnt_mount >= len) {
+			len = q - mount.mnt_mount;
+			if (mount.mnt_node) {
+				strcpy(max_node, mount.mnt_node);
+				strcpy(max_path, mount.mnt_path);
+			}
+			else {
+				*max_node = NULL;
+				*max_path = NULL;
+			}
+		}
+	}
+
+/* If the longest mount point was a local one, max_path is empty.
+   Return FALSE, leaving node_name empty and expanded_filename as is.
+
+   If the longest mount point is from a remote node, max_path
+   contains the root of the file's path as it is known on the
+   remote node.  Return TRUE, loading node_name with the remote
+   node name and expanded_filename with the remote file name. */
+
+	if (*max_path) {
+		p = remote_filename;
+
+		q = max_path;
+		while (*q)
+			*p++ = *q++;
+
+		q = expanded_filename + len;
+		while (*p++ = *q++);
+
+		q = max_node;
+		while (*node_name++ = *q++);
+
+		p = remote_filename;
+		while (*expanded_filename++ = *p++);
+
+		flag = TRUE;
+	}
+
+#ifndef ultrix
+#if (!defined AIX && !defined AIX_PPC)
+#ifndef DECOSF
+	MTAB_CLOSE(mtab);
+#endif
+#endif
+#endif
+
+#ifdef hpux
+#ifndef HP10
+	if (!flag)
+		flag = get_server(expanded_filename, node_name);
+#endif
+#endif
+
+#if (defined AIX || defined AIX_PPC || defined DECOSF)
+	if (temp)
+		gds__free(temp);
+#endif
+
+#ifdef STACK_EFFICIENT
+	gds__free((SLONG *) mnt_buffer);
+#endif /* STACK_EFFICIENT */
+
+	return flag;
+}
+#endif
+
+
+#if defined(WIN_NT)
+int ISC_analyze_pclan(TEXT * expanded_name, TEXT * node_name)
+{
+/**************************************
+ *
+ *	I S C _ a n a l y z e _ p c l a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a filename for a named pipe node name on the front.
+ *	If one is found, extract the node name, compute the residual
+ *	file name, and return TRUE.  Otherwise return FALSE.
+ *
+ **************************************/
+	TEXT *p, *q, localhost[64];
+
+	if ((expanded_name[0] != '\\' && expanded_name[0] != '/') ||
+		(expanded_name[1] != '\\' && expanded_name[1] != '/'))
+		return FALSE;
+
+	p = node_name;
+	*p++ = '\\';
+	*p++ = '\\';
+	for (q = expanded_name + 2; *q && *q != '\\' && *q != '/';)
+		*p++ = *q++;
+	*p = 0;
+
+/* If a drive letter or TCP node name follows the slash after the
+   named pipe node name, space over the slash. */
+
+	if ((*q == '\\' || *q == '/') && (p = strpbrk(q + 1, ":\\/"))
+		&& *p == ':')
+		q++;
+
+	for (p = expanded_name; *p++ = *q++;);
+
+/* If this is a loopback, substitute "." for the host name.  Otherwise,
+   the CreateFile on the pipe will fail. */
+
+	ISC_get_host(localhost, sizeof(localhost));
+	if (!stricmp(node_name + 2, localhost)) {
+		node_name[2] = '.';
+		node_name[3] = 0;
+	}
+
+	return TRUE;
+}
+#endif	// WIN_NT
+
+
+int DLL_EXPORT ISC_analyze_spx(TEXT * expanded_name, TEXT * node_name)
+{
+/**************************************
+ *
+ *	I S C _ a n a l y z e _ s p x 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a filename for a SPX separator.
+ *	If one is found, extract the node name, compute the residual
+ *	file name, and return TRUE.  Otherwise return FALSE.
+ *
+ **************************************/
+	TEXT *p;
+
+	p = expanded_name;
+
+/* Scan looking for the SPX node separator character (node@path).  
+   Also check for an INET separator before the SPX separator in case
+   this is a network hop (e.g. tcp_node:spx_node@path). */
+
+	for (p = expanded_name; *p && *p != '@' && *p != INET_FLAG; p++);
+
+/* If we didn't find an SPX separator or found a TCP one first, return. */
+
+	if (!*p || *p == INET_FLAG)
+		return FALSE;
+
+/* We found a valid SPX separator.  Copy left of separator into node_name
+   output variable & increment p to point to remaining path. */
+
+	*p++ = 0;
+	strcpy(node_name, expanded_name);
+
+/* Shift the filename over in the string to strip off the node name */
+
+	while (*expanded_name++ = *(p++));
+
+	return TRUE;
+}
+
+
+int DLL_EXPORT ISC_analyze_tcp(TEXT * file_name, TEXT * node_name)
+{
+/**************************************
+ *
+ *	I S C _ a n a l y z e _ t c p		( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a filename for a TCP node name on the front.  If
+ *	one is found, extract the node name, compute the residual
+ *	file name, and return TRUE.  Otherwise return FALSE.
+ *
+ **************************************/
+	TEXT *p;
+	USHORT dtype;
+
+/* Scan file name looking for separator character */
+
+	if (!(p = strchr(file_name, INET_FLAG)))
+		return FALSE;
+
+#ifdef NETWARE_386
+/* Filename for NetWare is of form node:[/][vol:][dir/../]filename.ext
+   so if only one ':' is found then path does not contain a node.
+   One has already been found, look for another. */
+
+	if (!strchr(p + 1, ':'))
+		return FALSE;
+
+#else
+#if (defined PC_PLATFORM)
+/* for DOS and OS/2, introduce a restriction against one-character
+   machine names as a kludge to prevent the situation of 
+   trying to attach to C: as a remote machine -- there has
+   got to be a better way to resolve this */
+
+	if (p - file_name == 1)
+		return FALSE;
+#endif
+#endif
+
+#ifdef WIN_NT
+/* For Windows NT, insure that a single character node name does
+   not conflict with an existing drive letter. */
+
+	if (p - file_name == 1) {
+		*node_name = *file_name;
+		strcpy(node_name + 1, ":\\");
+		dtype = GetDriveType(node_name);
+		if (dtype > 1 && dtype != DRIVE_REMOTE)
+			return FALSE;
+	}
+#endif
+
+	*p = 0;
+	strcpy(node_name, file_name);
+
+#ifdef NETWARE_386
+/* for NetWare [node:] may be followed by a '\' or a '/' if so
+   do not include it in file name. */
+
+	if ((*(p + 1) == '/') || (*(p + 1) == '\\'))
+		p++;
+#endif
+
+	while (*file_name++ = *++p);
+
+	return TRUE;
+}
+
+
+BOOLEAN DLL_EXPORT ISC_check_if_remote(TEXT * file_name,
+									   BOOLEAN implicit_flag)
+{
+/**************************************
+ *
+ *	I S C _ c h e c k _ i f _ r e m o t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if a path name resolves to a
+ *	remote file.  If implicit_flag is TRUE, then
+ *	analyze the path to see if it resolves to a
+ *	file on a remote machine.  Otherwise, simply
+ *	check for an explicit node name.
+ *
+ **************************************/
+#ifdef STACK_EFFICIENT
+	TEXT *temp_name;
+#else /* STACK_EFFICIENT */
+	TEXT temp_name[MAXPATHLEN];
+#endif /* STACK_EFFICIENT */
+	TEXT host_name[64];
+
+#ifdef STACK_EFFICIENT
+	temp_name = (TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * MAXPATHLEN));
+#endif /* STACK_EFFICIENT */
+
+	strcpy(temp_name, file_name);
+
+/* Always check for an explicit TCP node name */
+
+	if (ISC_analyze_tcp(temp_name, host_name)) {
+#ifdef STACK_EFFICIENT
+		gds__free((SLONG *) temp_name);
+#endif /* STACK_EFFICIENT */
+
+		return TRUE;
+	}
+#ifdef NFS
+	if (implicit_flag) {
+		/* Check for a file on an NFS mounted device */
+
+		if (ISC_analyze_nfs(temp_name, host_name)) {
+#ifdef STACK_EFFICIENT
+			gds__free((SLONG *) temp_name);
+#endif /* STACK_EFFICIENT */
+
+			return TRUE;
+		}
+	}
+#endif
+
+#if defined(WIN_NT)
+/* Check for an explicit named pipe node name */
+
+	if (ISC_analyze_pclan(temp_name, host_name)) {
+#ifdef STACK_EFFICIENT
+		gds__free((SLONG *) temp_name);
+#endif /* STACK_EFFICIENT */
+
+		return TRUE;
+	}
+
+	if (implicit_flag) {
+#ifdef STACK_EFFICIENT
+		TEXT *temp_name2;
+		temp_name2 = (TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * MAXPATHLEN));
+#else /* STACK_EFFICIENT */
+		TEXT temp_name2[MAXPATHLEN];
+#endif /* STACK_EFFICIENT */
+
+		/* Check for a file on a shared drive.  First try to expand
+		   the path.  Then check the expanded path for a TCP,
+		   named pipe or SPX node name. */
+
+		ISC_expand_share(temp_name, temp_name2);
+		if (ISC_analyze_tcp(temp_name2, host_name) ||
+			ISC_analyze_pclan(temp_name2, host_name) ||
+			ISC_analyze_spx(temp_name2, host_name)) {
+#ifdef STACK_EFFICIENT
+			gds__free((SLONG *) temp_name2);
+			gds__free((SLONG *) temp_name);
+#endif /* STACK_EFFICIENT */
+
+			return TRUE;
+		}
+
+#ifdef STACK_EFFICIENT
+		gds__free((SLONG *) temp_name2);
+#endif /* STACK_EFFICIENT */
+
+	}
+#endif	// WIN_NT
+
+#ifdef STACK_EFFICIENT
+	gds__free((SLONG *) temp_name);
+#endif /* STACK_EFFICIENT */
+
+	return FALSE;
+}
+
+
+#if (defined NFS || defined FREEBSD || defined NETBSD)
+int ISC_expand_filename(TEXT * from_buff, USHORT length, TEXT * to_buff)
+{
+/**************************************
+ *
+ *	I S C _ e x p a n d _ f i l e n a m e		( N F S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a filename by following links.  As soon as a TCP node name
+ *	shows up, stop translating.
+ *
+ **************************************/
+
+	return expand_filename2(from_buff, length, to_buff);
+}
+#endif
+
+
+#if (defined PC_PLATFORM) && !(defined NETWARE_386)
+int ISC_expand_filename(
+						TEXT * file_name,
+						USHORT file_length, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *	I S C _ e x p a n d _ f i l e n a m e	( P C _ P L A T F O R M )
+ *
+ **************************************
+ *
+ * Functional description
+ *      This looks for patterns in the file name like:
+ *
+ *          host:[\|/]path[\|/]          - TCP/IP node
+ *          host:vol:[\|/]path[\|/]      - Netware node
+ *          host@vol[:][\|/]path[\|/]    - SPX node
+ *
+ *      If no host is specified, it checks for an ISC_DATABASE
+ *      environment variable and uses that.
+ *      If there is no slash after the node name, one is inserted.
+ *      If there is no trailing slash after an ISC_DATABASE path, 
+ *      one is inserted.
+ *
+ *      The final result is an expanded path name.      
+ *
+ **************************************/
+	TEXT c, *p, *in, *out, *default_directory, *colon, *colon2, *atsign;
+
+#ifdef STACK_EFFICIENT
+	TEXT *local = (TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * MAXPATHLEN));
+#else /* STACK_EFFICIENT */
+	TEXT local[MAXPATHLEN];
+#endif /* STACK_EFFICIENT */
+
+/* if file_length is specified, make sure the string is null terminated */
+
+	if (!file_length)
+		file_length = strlen(file_name);
+
+	strncpy(local, file_name, file_length);
+	local[file_length] = 0;
+	in = local;
+	out = expanded_name;
+
+/* If there is an explicit node name of the form \\DOPEY or //DOPEY
+   assume named pipes.  Translate forward slashes to back slashes
+   and return with no further processing. */
+
+	if ((in[0] == '\\' && in[1] == '\\') || (in[0] == '/' && in[1] == '/')) {
+		strcpy(out, in);
+
+		/* Translate forward slashes to back slashes */
+		convert_slashes('/', '\\', out);
+		return file_length;
+	}
+
+/* do some parsing of the path to look for colons (nodes), two colons
+   (netware nodes), an at sign and a colon (spx), slashes and backslashes */
+
+	c = 0;
+	colon2 = NULL;
+	string_parse(in, &colon, &colon2, &atsign, &c);
+
+/* if there were two colons, netware has no slash so don't try any
+   expansion;   if there was only one colon, make sure the character
+   after the colon is a slash and if not, insert one;   if there was
+   an at sign, just copy the string */
+
+	if (atsign) {
+		strcpy(out, in);
+#ifdef STACK_EFFICIENT
+		gds__free((SLONG *) local);
+#endif /* STACK_EFFICIENT */
+		return file_length;
+	}
+	else if (colon) {
+			for (p = in; *p; p++) {
+				*out++ = *p;
+				if (p == colon && !colon2 && p[1] != '/' && p[1] != '\\' && c)
+					*out++ = c;
+			}
+	}
+	else {
+		/* assuming the filename is not already remote, look for 
+		   an environment variable that will provide a default 
+		   remote path specification */
+
+		if (default_directory = getenv(ISC_DATABASE)) {
+
+			/* once again, do some parsing, this time of the default path */
+
+			string_parse(default_directory, &colon, &colon2, &atsign, &c);
+
+			/* move the default path, putting in a trailing slash, if
+			   necessary, and putting in a slash at the start of the
+			   file name after the node name, if necessary */
+
+			for (p = default_directory; *p; p++) {
+				*out++ = *p;
+				if (p == colon && !colon2 && p[1] != '/' && p[1] != '\\' && c)
+					*out++ = c;
+			}
+			if (out[-1] != '/' && out[-1] != '\\' && c)
+				*out++ = c;
+		}
+
+		for (p = in; *p;)
+			*out++ = *p++;
+	}
+
+	*out = '\0';
+
+/* If there is an explicit node name of the form \\DOPEY or //DOPEY
+   assume named pipes and translate forward slashes to back slashes. 
+   Otherwise, translate back slashes to forward. The end result
+   is a path with consistent separators. */
+
+	if ((expanded_name[0] == '\\' && expanded_name[1] == '\\') ||
+		(expanded_name[0] == '/' && expanded_name[1] == '/')) {
+		convert_slashes('/', '\\', expanded_name);
+	}
+	else {
+		convert_slashes('\\', '/', expanded_name);
+	}
+
+
+#ifdef STACK_EFFICIENT
+	gds__free((SLONG *) local);
+#endif /* STACK_EFFICIENT */
+
+	return (int) (out - expanded_name);
+}
+#endif /* PC_PLATFORM */
+
+
+#ifdef NETWARE_386
+int ISC_expand_filename(
+						TEXT * file_name,
+						USHORT file_length, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *	I S C _ e x p a n d _ f i l e n a m e	( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Just copy a file name for the DOS Requester
+ *
+ **************************************/
+#ifdef STACK_REDUCTION
+	TEXT *path;
+	TEXT *volume;
+	TEXT *directory;
+	TEXT *directory1;
+	TEXT *fname;
+	TEXT *ext;
+#else /* STACK_REDUCTION */
+	TEXT path[BUFFER_SMALL];
+	TEXT volume[BUFFER_SMALL];
+	TEXT directory[BUFFER_SMALL];
+	TEXT directory1[BUFFER_SMALL];
+	TEXT fname[BUFFER_SMALL];
+	TEXT ext[BUFFER_SMALL];
+#endif /* STACK_REDUCTION */
+	TEXT *p;
+
+#ifdef STACK_REDUCTION
+	path = (TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * 6 * BUFFER_SMALL));
+	volume = path + BUFFER_SMALL;
+	directory = volume + BUFFER_SMALL;
+	directory1 = directory + BUFFER_SMALL;
+	fname = directory1 + BUFFER_SMALL;
+	ext = fname + BUFFER_SMALL;
+#endif /* STACK_REDUCTION */
+
+	if (!file_length)
+		file_length = strlen(file_name);
+
+	strncpy(path, file_name, file_length);
+	path[file_length] = 0;
+
+/* use the NetWare routine splitpath to break down the 
+   path into discrete parts */
+
+	_splitpath(path, volume, directory1, fname, ext);
+
+/* if no volume was specified, use SYS: as the default */
+
+	if (!volume[0])
+		strcpy(volume, "SYS:");
+
+/* if no backslash was used at the beginning, 
+   add it for consistency */
+
+	if ((directory1[0] != '/') && (directory1[0] != '\\')) {
+		directory[0] = '\\';
+		strcpy(directory + 1, directory1);
+	}
+	else
+		strcpy(directory, directory1);
+
+	strcpy(expanded_name, volume);
+	strcat(expanded_name, directory);
+	strcat(expanded_name, fname);
+	strcat(expanded_name, ext);
+
+	for (p = expanded_name; *p; p++)
+		if (*p == '/')
+			*p = '\\';
+		else
+			*p = UPPER7(*p);
+
+#ifdef STACK_REDUCTION
+	gds__free((SLONG *) path);
+#endif /* STACK_REDUCTION */
+
+	return strlen(expanded_name);
+}
+#endif
+
+
+#ifdef VMS
+int ISC_expand_filename(
+						TEXT * file_name,
+						USHORT file_length, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *	I S C _ e x p a n d _ f i l e n a m e		( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fully expand a file name.  If the file doesn't exist, do something
+ *	intelligent.
+ *
+ **************************************/
+	int l, length, status;
+	TEXT *address, temp[NAM$C_MAXRSS], temp2[NAM$C_MAXRSS], *p;
+	struct FAB fab;
+	struct NAM nam;
+
+	length = ISC_expand_logical(file_name, file_length, expanded_name);
+
+	for (p = expanded_name; *p; p++)
+		if (p[0] == ':' && p[1] == ':')
+			return length;
+
+	fab = cc$rms_fab;
+	nam = cc$rms_nam;
+	fab.fab$l_nam = &nam;
+	nam.nam$l_esa = temp;
+	nam.nam$b_ess = sizeof(temp);
+	nam.nam$l_rsa = temp2;
+	nam.nam$b_rss = sizeof(temp2);
+	fab.fab$l_fna = expanded_name;
+	fab.fab$b_fns = length;
+	fab.fab$l_dna = DEFAULT_FILE_NAME;
+	fab.fab$b_dns = sizeof(DEFAULT_FILE_NAME) - 1;
+
+	if ((sys$parse(&fab) & 1) && (sys$search(&fab) & 1)) {
+		p = temp2;
+		if (length = l = nam.nam$b_rsl)
+			do
+				*expanded_name++ = *p++;
+			while (--l);
+		*expanded_name = 0;
+	}
+
+	return length;
+}
+#endif
+
+
+#ifdef WIN_NT
+int ISC_expand_filename(
+						TEXT * file_name,
+						USHORT file_length, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *	I S C _ e x p a n d _ f i l e n a m e		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fully expand a file name.  If the file doesn't exist, do something
+ *	intelligent.
+ *
+ **************************************/
+	TEXT *p, *q, *end, temp[MAXPATHLEN], device[4];
+	USHORT length = 0;
+	USHORT dtype;
+	BOOLEAN fully_qualified_path = FALSE;
+	BOOLEAN drive_letter_present = FALSE;
+#ifdef SPX
+	TEXT c;
+	TEXT *colon, *colon2, *atsign;
+#endif
+
+	if (!file_length)
+		file_length = strlen(file_name);
+
+	strncpy(temp, file_name, file_length);
+	temp[file_length] = 0;
+
+	expand_share_name(temp);
+
+/* If there is an explicit node name of the form \\DOPEY or //DOPEY
+   assume named pipes.  Translate forward slashes to back slashes
+   and return with no further processing. */
+
+	if ((file_name[0] == '\\' && file_name[1] == '\\') ||
+		(file_name[0] == '/' && file_name[1] == '/')) {
+		strcpy(expanded_name, temp);
+
+		/* Translate forward slashes to back slashes */
+		for (p = temp, end = p + file_length; p < end; p++)
+			if (*p == '/')
+				*p = '\\';
+		return file_length;
+	}
+
+#ifdef SPX
+/* If the filename contains a SPX node name, don't even try to expand it.
+   But first make sure that the node name is not a drive letter. */
+	c = 0;
+	colon2 = NULL;
+	string_parse(file_name, &colon, &colon2, &atsign, &c);
+
+	if (atsign || colon2) {
+		strcpy(expanded_name, temp);
+		return (file_length);
+	}
+/* If the filename contains a TCP node name, don't even try to expand it.
+   But first make sure that the node name is not a drive letter. */
+
+	if (q = colon)
+#else
+	if (q = strchr(temp, INET_FLAG))
+#endif
+	{
+		strcpy(expanded_name, temp);
+		if (q - temp != 1)
+			return file_length;
+		device[0] = temp[0];
+		drive_letter_present = TRUE;
+		strcpy(device + 1, ":\\");
+		dtype = GetDriveType(device);
+		if (dtype <= 1)
+			return file_length;
+		if (*(q + 1) == '/' || *(q + 1) == '\\')
+			fully_qualified_path = TRUE;
+	}
+
+/* Translate forward slashes to back slashes */
+
+	for (p = temp, end = p + file_length; p < end; p++)
+		if (*p == '/')
+			*p = '\\';
+
+/* If there is an explicit node name of the form \\DOPEY don't do any
+   additional translations -- everything will need to be applied at
+   the other end */
+
+	if (temp[0] == '\\' && temp[1] == '\\') {
+		strcpy(expanded_name, temp);
+		return file_length;
+	}
+	else if (temp[0] == '\\' || temp[0] == '/')
+		fully_qualified_path = TRUE;
+
+/* Expand the file name */
+
+#ifdef SUPERSERVER
+	if (!fully_qualified_path)
+		length = JRD_getdir(expanded_name, MAXPATHLEN);
+	if (length && length < MAXPATHLEN) {
+		/** 
+	case where temp is of the form "c:foo.gdb" and 
+	expanded_name is "c:\x\y". 
+        **/
+		if (drive_letter_present && device[0] == expanded_name[0]) {
+			strcat(expanded_name, "\\");
+			strcat(expanded_name, temp + 2);
+		}
+		/** 
+	case where temp is of the form "foo.gdb" and 
+	expanded_name is "c:\x\y". 
+        **/
+		else if (!drive_letter_present) {
+			strcat(expanded_name, "\\");
+			strcat(expanded_name, temp);
+		}
+		else {
+		/** 
+	case where temp is of the form "d:foo.gdb" and 
+	expanded_name is "c:\x\y". 
+	Discard expanded_name and use temp as it is.
+	**/
+			/* in this case use the temp but we need to ensure that we expand to
+			 * temp from "d:foo.gdb" to "d:\foo.gdb" */
+			if (_fullpath(expanded_name, temp, MAXPATHLEN) != NULL) {
+				TEXT expanded_name2[MAXPATHLEN];
+
+				/* convert then name to its shorter version ie. convert
+				 * longfilename.gdb to longfi~1.gdb */
+				length =
+					(USHORT) GetShortPathName(expanded_name, expanded_name2,
+											  MAXPATHLEN);
+				if (length)
+					strcpy(expanded_name, expanded_name2);
+			}
+			else
+				strcpy(expanded_name, temp);
+		}
+		file_length = strlen(expanded_name);
+	}
+#else
+	length = (USHORT) GetFullPathName(temp, MAXPATHLEN, expanded_name, &p);
+	if (length && length < MAXPATHLEN)
+		file_length = length;
+#endif
+	else {
+		if (_fullpath(expanded_name, temp, MAXPATHLEN) != NULL) {
+			TEXT expanded_name2[MAXPATHLEN];
+
+			/* convert then name to its shorter version ie. convert longfilename.gdb 
+			 * to longfi~1.gdb */
+			file_length =
+				(USHORT) GetShortPathName(expanded_name, expanded_name2,
+										  MAXPATHLEN);
+			if (!file_length)
+				file_length = (USHORT) strlen(expanded_name);
+			else
+				strcpy(expanded_name, expanded_name2);
+		}
+		else
+			length = 0;
+	}
+
+/* Filenames are case insensitive on NT.  If filenames are
+ * typed in mixed cases, strcmp () used in various places
+ * results in incorrect behavior.
+ */
+
+	for (length = 0; length < file_length; length++)
+		expanded_name[length] = UPPER7(expanded_name[length]);
+
+	return file_length;
+}
+#endif
+
+
+#ifdef VMS
+int ISC_expand_logical(
+					   TEXT * file_name,
+					   USHORT file_length, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *	I S C _ e x p a n d _ l o g i c a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fully expand a file name.  If the file doesn't exist, do something
+ *	intelligent.
+ *
+ **************************************/
+	int status, attr;
+	USHORT n, l;
+	TEXT *p;
+	ITM items[2];
+	struct dsc$descriptor_s desc1, desc2;
+
+	if (!file_length)
+		file_length = strlen(file_name);
+
+	ISC_make_desc(file_name, &desc1, file_length);
+	ISC_make_desc(LOGICAL_NAME_TABLE, &desc2, sizeof(LOGICAL_NAME_TABLE) - 1);
+
+	items[0].itm_length = 256;
+	items[0].itm_code = LNM$_STRING;
+	items[0].itm_buffer = expanded_name;
+	items[0].itm_return_length = &l;
+
+	items[1].itm_length = 0;
+	items[1].itm_code = 0;
+
+	attr = LNM$M_CASE_BLIND;
+
+	if (l = file_length) {
+		p = expanded_name;
+		do
+			*p++ = *file_name++;
+		while (--l);
+	}
+
+	for (n = 0; n < 10; n++) {
+		status = sys$trnlnm(&attr, &desc2, &desc1, NULL, items);
+		if (!(status & 1))
+			break;
+		desc1.dsc$a_pointer = expanded_name;
+		desc1.dsc$w_length = file_length = l;
+	}
+
+	expanded_name[file_length] = 0;
+
+	return file_length;
+}
+#endif
+
+
+#if defined(WIN_NT)
+int ISC_expand_share(TEXT * file_name, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *	I S C _ e x p a n d _ s h a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a file name by chasing shared disk
+ *	information.
+ *
+ **************************************/
+	TEXT *p, device[4];
+	USHORT dtype;
+	USHORT i;
+	HANDLE handle;
+	LPNETRESOURCE resources = NULL, res;
+/* see NT reference for WNetEnumResource for the following constants */
+	DWORD nument = 0xffffffff, size = 16384, ret;
+	LPREMOTE_NAME_INFO res2 = NULL;
+
+	strcpy(expanded_name, file_name);
+
+/* Look for a drive letter and make sure that it corresponds
+   to a remote disk. */
+
+	if (!(p = strchr(file_name, ':')) || p - file_name != 1)
+		return strlen(expanded_name);
+
+	device[0] = toupper(*file_name);
+	strcpy(device + 1, ":\\");
+
+	dtype = GetDriveType(device);
+	if (dtype != DRIVE_REMOTE)
+		return strlen(expanded_name);
+	if (WNetOpenEnum(RESOURCE_CONNECTED, RESOURCETYPE_DISK, 0, NULL, &handle)
+		!= NO_ERROR)
+		return strlen(expanded_name);
+	resources = (LPNETRESOURCE) gds__alloc((SLONG) size);
+/* FREE: in this routine */
+	if (!resources)				/* NOMEM: don't expand the filename */
+		return strlen(expanded_name);
+	ret = WNetEnumResource(handle, &nument, resources, &size);
+	if (ret == ERROR_MORE_DATA) {
+		gds__free((UCHAR *) resources);
+		resources = (LPNETRESOURCE) gds__alloc((SLONG) size);
+		/* FREE: in this routine */
+		if (!resources)			/* NOMEM: don't expand the filename */
+			return strlen(expanded_name);
+		ret = WNetEnumResource(handle, &nument, resources, &size);
+	}
+
+	for (i = 0, res = resources; i < nument && *device != *(res->lpLocalName);
+		 i++, res++);
+	if (i != nument)			/* i.e. we found the drive in the resources list */
+		share_name_from_resource(expanded_name, file_name, res);
+
+	(void) WNetCloseEnum(handle);
+
+/* Win95 doesn't seem to return shared drives, so the following
+   has been added... */
+
+	if (i == nument) {
+		device[2] = 0;
+		res2 = (LPREMOTE_NAME_INFO) resources;
+		ret =
+			WNetGetUniversalName(device, REMOTE_NAME_INFO_LEVEL, res2, &size);
+		if (ret == ERROR_MORE_DATA) {
+			gds__free((UCHAR *) resources);
+			resources = (LPNETRESOURCE) gds__alloc((SLONG) size);
+			if (!resources)		/* NOMEM: don't expand the filename */
+				return strlen(expanded_name);
+			res2 = (LPREMOTE_NAME_INFO) resources;
+			ret =
+				WNetGetUniversalName(device, REMOTE_NAME_INFO_LEVEL, res2,
+									 &size);
+		}
+		if (ret == NO_ERROR)
+			share_name_from_unc(expanded_name, file_name, res2);
+	}
+
+
+	if (resources)
+		gds__free((UCHAR *) resources);
+	return strlen(expanded_name);
+}
+#endif	// WIN_NT
+
+
+#ifdef PARSE_FILENAME
+#ifndef REQUESTER
+void ISC_parse_filename(
+						TEXT * filename,
+						TEXT * node, TEXT * device, TEXT * path)
+{
+/**************************************
+ *
+ *	I S C _ p a r s e _ f i l e n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Decompose a PC filename into node name, device name,
+ *	and path name.  Leading slashes are retained for node names,
+ *	as are trailing colons on device names.
+ *
+ **************************************/
+	TEXT c, *p, slash;
+
+	slash = (*filename == '/') ? '/' : '\\';
+
+	if (filename[0] == slash && filename[1] == slash) {
+		*node++ = *filename++;
+		*node++ = *filename++;
+		while (*filename && *filename != slash)
+			*node++ = *filename++;
+	}
+
+	*node = 0;
+
+	for (p = filename; *p && *p != ':'; p++);
+
+	if (*p) {
+		if (*filename == slash)
+			++filename;
+		while (filename < p)
+			*device++ = *filename++;
+		*device++ = *filename++;
+	}
+
+	*device = 0;
+
+	while (c = *filename++)
+		*path++ = (c == '/') ? '\\' : c;
+
+	*path = 0;
+}
+#endif
+#endif
+
+
+#ifdef SUPERSERVER
+int ISC_strip_extension(TEXT * file_name)
+{
+/**************************************
+ *
+ *      I S C _ s t r i p _ e x t e n s i o n 	( S U P E R S E R V E R )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of the file name extension part
+ *	(after the dot '.')
+ *
+ **************************************/
+	TEXT *p, *q;
+
+/* Set p to point to the starting part of the actual file name
+   (sans directory name) */
+
+	p = strrchr(file_name, '/');
+	q = strrchr(file_name, '\\');
+
+	if (p || q) {
+		/* Get the maximum of the two */
+
+		if (q > p)
+			p = q;
+	}
+	else
+		p = file_name;
+
+/* Now search for the first dot in the actual file name */
+
+	q = strchr(p, '.');
+	if (q)
+		*q = '\0';				/* Truncate the extension including the dot */
+
+	return strlen(file_name);
+}
+#endif
+
+
+#if (defined NFS || defined FREEBSD || defined NETBSD)
+static expand_filename2(TEXT * from_buff, USHORT length, TEXT * to_buff)
+{
+/**************************************
+ *
+ *	e x p a n d _ f i l e n a m e 2		( N F S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a filename by following links.  As soon as a TCP node name
+ *	shows up, stop translating.
+ *
+ **************************************/
+#ifdef STACK_EFFICIENT
+	TEXT *temp, *temp2;
+#else /* STACK_EFFICIENT */
+	TEXT temp[MAXPATHLEN], temp2[MAXPATHLEN];
+#endif /* STACK_EFFICIENT */
+	TEXT *from, *to, *p, *segment;
+	SSHORT n;
+	struct passwd *passwd;
+
+#ifdef STACK_EFFICIENT
+	temp = (TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * 2 * MAXPATHLEN));
+	temp2 = temp + MAXPATHLEN;
+#endif /* STACK_EFFICIENT */
+
+	if (length) {
+		strncpy(temp2, from_buff, length);
+		temp2[length] = 0;
+		from = temp2;
+	}
+	else
+		from = from_buff;
+
+	to = to_buff;
+
+/* If the filename contains a TCP node name, don't even try to expand it */
+
+	if (strchr(from, INET_FLAG)) {
+		strcpy(to, from);
+#ifdef STACK_EFFICIENT
+		gds__free((SLONG *) temp);
+#endif /* STACK_EFFICIENT */
+		return strlen(to);
+	}
+
+/* Handle references to default directories (tilde refs) */
+
+	if (*from == '~') {
+		++from;
+		p = temp;
+		while (*from && *from != '/')
+			*p++ = *from++;
+		*p = 0;
+		passwd = (temp[0]) ? getpwnam(temp) : getpwuid(geteuid());
+		if (passwd) {
+			expand_filename2(passwd->pw_dir, 0, temp);
+			p = temp;
+			while (*p)
+				*to++ = *p++;
+			*to = 0;
+		}
+	}
+
+/* If the file is local, expand partial pathnames with default directory */
+
+	if (*from && !strchr(from, INET_FLAG) && *from != '/' && GETWD(to)) {
+		while (*to)
+			++to;
+		*to++ = '/';
+		*to = 0;
+	}
+
+/* Process file name segment by segment looking for symbolic
+   links. See ISC_analyze_nfs for how NFS mount points are
+   handled. */
+
+	while (*from) {
+		segment = to;
+
+		/* Copy the leading slash, if any */
+
+		if (*from == '/') {
+			if (to > to_buff + 1 && to[-1] == '/')
+				++from;
+			else
+				*to++ = *from++;
+			continue;
+		}
+
+		/* Handle self references */
+
+		if (*from == '.' && (from[1] == '.' || from[1] == '/')) {
+			++from;
+			if (*from == '.') {
+				++from;
+				if (to > to_buff)
+					--to;
+				while (to > to_buff && to[-1] != '/')
+					--to;
+			}
+			continue;
+		}
+
+		/* Copy the rest of the segment name */
+
+		while (*from && *from != '/')
+			*to++ = *from++;
+
+		/* If the file is local, check for a symbol link */
+
+		*to = 0;
+
+		n = readlink(to_buff, temp, MAXPATHLEN);
+
+		if (n < 0)
+			continue;
+
+		/* We've got a link.  If it contains a node name or it starts 
+		   with a slash, it replaces the initial segment so far */
+
+		temp[n] = 0;
+		p = temp;
+
+		if (strchr(temp, INET_FLAG)) {
+			strcpy(to_buff, temp);
+#ifdef STACK_EFFICIENT
+			gds__free((SLONG *) temp);
+#endif /* STACK_EFFICIENT */
+			return n;
+		}
+
+		to = (*p == '/') ? to_buff : segment;
+
+		while (*p)
+			*to++ = *p++;
+
+		/* Whole link needs translating -- recurse */
+
+		*to = 0;
+		expand_filename2(to_buff, 0, temp);
+		to = to_buff;
+		p = temp;
+		while (*p)
+			*to++ = *p++;
+	}
+
+	*to = 0;
+
+#ifdef STACK_EFFICIENT
+	gds__free((SLONG *) temp);
+#endif /* STACK_EFFICIENT */
+
+	return to - to_buff;
+}
+#endif
+
+
+#ifdef WIN_NT
+static void expand_share_name(TEXT * share_name)
+{
+/**************************************
+ *
+ *	e x p a n d _ s h a r e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look for a Windows NT share name at the
+ *	beginning of a string having the form:
+ *
+ *	    \!share name!\file name
+ *
+ *	If such a share name is found, expand it
+ *	and then append the file name to the
+ *	expanded path.
+ *
+ **************************************/
+
+#ifdef STACK_EFFICIENT
+	TEXT *data_buf, *workspace;
+#else /* STACK_EFFICIENT */
+	TEXT data_buf[MAXPATHLEN], workspace[MAXPATHLEN];
+#endif /* STACK_EFFICIENT */
+	TEXT *p, *q, *data;
+	HKEY hkey;
+	DWORD ret, d_size, type_code;
+	USHORT idx;
+
+	p = share_name;
+	if (*p++ != '\\' || *p++ != '!') {
+		return;
+	}
+
+#ifdef STACK_EFFICIENT
+	data_buf = (TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * 2 * MAXPATHLEN));
+	workspace = data_buf + MAXPATHLEN;
+#endif /* STACK_EFFICIENT */
+	strcpy(workspace, p);
+	for (q = workspace; *p && *p != '!'; p++, q++);
+
+	*q = '\0';
+	if (*p++ != '!' || *p++ != '\\') {
+#ifdef STACK_EFFICIENT
+		gds__free((SLONG *) data_buf);
+#endif /* STACK_EFFICIENT */
+		return;
+	}
+
+	if (RegOpenKeyEx(HKEY_LOCAL_MACHINE,
+					 "SYSTEM\\CurrentControlSet\\Services\\LanmanServer\\Shares",
+					 0, KEY_QUERY_VALUE, &hkey) != ERROR_SUCCESS) {
+#ifdef STACK_EFFICIENT
+		gds__free((SLONG *) data_buf);
+#endif /* STACK_EFFICIENT */
+		return;
+	}
+
+	d_size = MAXPATHLEN;
+	data = data_buf;
+#pragma FB_COMPILER_MESSAGE("Can/should we fix this cast?")
+	ret =
+		RegQueryValueEx(hkey, workspace, NULL, &type_code, (LPBYTE) data,
+						&d_size);
+	if (ret == ERROR_MORE_DATA) {
+		d_size++;
+		data = (TEXT *) gds__alloc((SLONG) d_size);
+		/* FREE: unknown */
+		if (!data) {			/* NOMEM: */
+#ifdef STACK_EFFICIENT
+			gds__free((SLONG *) data_buf);
+#endif /* STACK_EFFICIENT */
+			return;				/* Error not really handled */
+		}
+		ret =
+			RegQueryValueEx(hkey, workspace, NULL, &type_code, (LPBYTE) data,
+							&d_size);
+	}
+
+	if (ret == ERROR_SUCCESS) {
+		for (q = data; q && *q;
+			 q = (type_code == REG_MULTI_SZ) ? q + strlen(q) + 1 : NULL) {
+			if (!strnicmp(q, "path", 4)) {
+				strcpy(workspace, q + 5);	/* step past the "Path=" part */
+				idx = strlen(workspace);
+				if (workspace[idx - 1] != '\\')
+					workspace[idx++] = '\\';
+				strcpy(workspace + idx, p);
+				strcpy(share_name, workspace);
+				break;
+			}
+		}
+	}
+
+	if (data != data_buf) {
+		gds__free(data);
+	}
+
+#ifdef STACK_EFFICIENT
+	gds__free((SLONG *) data_buf);
+#endif /* STACK_EFFICIENT */
+
+	RegCloseKey(hkey);
+}
+#endif
+
+
+#ifdef NFS
+#ifdef ultrix
+#define GET_MOUNTS
+static BOOLEAN get_mounts(MNT * mount, TEXT * buffer, int *context)
+{
+/**************************************
+ *
+ *	g e t _ m o u n t s	( U l t r i x )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ALL mount points.
+ *
+ **************************************/
+	TEXT *p, *q;
+	struct fs_data fs;
+
+/* Start by finding a mount point. */
+
+	p = buffer;
+
+	while (getmnt(context, &fs, sizeof(fs), NOSTAT_MANY, NULL) > 0) {
+		/* Include non-NFS (local) mounts - some may be longer than
+		   NFS mount points */
+
+/****
+    if (fs.fd_req.fstype != GT_NFS)
+	continue;
+****/
+
+		mount->mnt_node = p;
+		q = fs.fd_req.devname;
+		while (*q && *q != ':')
+			*p++ = *q++;
+		*p++ = 0;
+		if (*q != ':')
+			mount->mnt_node = NULL;
+		if (*q)
+			q++;
+		mount->mnt_path = p;
+		while (*p++ = *q++);
+		mount->mnt_mount = p;
+		q = fs.fd_req.path;
+		while (*p++ = *q++);
+		return TRUE;
+	}
+
+	return FALSE;
+}
+#endif
+
+
+#if (defined AIX || defined AIX_PPC)
+#define GET_MOUNTS
+static BOOLEAN get_mounts(
+						  MNT * mount,
+						  TEXT * mnt_buffer, TEXT ** buffer, int *count)
+{
+/**************************************
+ *
+ *	g e t _ m o u n t s	( A I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ALL mount points.
+ *
+ **************************************/
+	int l, i;
+	TEXT *p;
+	struct vmount *vmt;
+
+	if (!*buffer) {
+		/* The first time through, get the mount info from the system.
+		   First find out how much information there is, then allocate
+		   a buffer for it, and finally get it. */
+
+		if (mntctl(MCTL_QUERY, sizeof(SLONG), mnt_buffer) != 0)
+			return FALSE;
+
+		l = *(SLONG *) mnt_buffer;
+		/* FREE: in get_mounts() */
+		if (!(*buffer = gds__alloc((SLONG) l)) ||
+			(*count = mntctl(MCTL_QUERY, l, *buffer)) <= 0)
+			return FALSE;		/* NOMEM: */
+	}
+	else if (!*count)
+		return FALSE;
+
+	for (i = --(*count), p = *buffer; i--;)
+		p += ((struct vmount *) p)->vmt_length;
+
+	vmt = (struct vmount *) p;
+
+	mount->mnt_node = mnt_buffer;
+	p = vmt2dataptr(vmt, VMT_HOSTNAME);
+	l = vmt2datasize(vmt, VMT_HOSTNAME);
+	if (l && (p[0] != '-' || p[1]))
+		while (l-- && *p)
+			*mnt_buffer++ = *p++;
+	*mnt_buffer++ = 0;
+
+	mount->mnt_path = mnt_buffer;
+	p = vmt2dataptr(vmt, VMT_OBJECT);
+	l = vmt2datasize(vmt, VMT_OBJECT);
+	while (l-- && *p)
+		*mnt_buffer++ = *p++;
+	*mnt_buffer++ = 0;
+
+	mount->mnt_mount = mnt_buffer;
+	p = vmt2dataptr(vmt, VMT_STUB);
+	l = vmt2datasize(vmt, VMT_STUB);
+	while (l-- && *p)
+		*mnt_buffer++ = *p++;
+	*mnt_buffer = 0;
+
+	if (!*mount->mnt_node) {
+		p = mount->mnt_node;
+		mount->mnt_node = mount->mnt_path;
+		mount->mnt_path = p;
+	}
+
+	return TRUE;
+}
+#endif
+
+
+#ifdef DECOSF
+#define GET_MOUNTS
+static BOOLEAN get_mounts(
+						  MNT * mount,
+						  TEXT * mnt_buffer, TEXT ** buffer, int *count)
+{
+/**************************************
+ *
+ *	g e t _ m o u n t s	( D E C O S F )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ALL mount points.
+ *
+ **************************************/
+	long bufsize;
+	TEXT *q;
+	struct statfs *fs;
+
+	if (!*buffer) {
+		/* The first time through, get the mount info from the system.
+		   First find out how much information there is, then allocate
+		   a buffer for it, and finally get it. */
+
+		bufsize = 0;
+		*count = getfsstat(0, bufsize, MNT_NOWAIT);
+		if (*count <= 0)
+			return FALSE;
+
+		bufsize = sizeof(struct statfs) * (SLONG) * count;
+		/* FREE: in get_mounts() */
+		if (!(*buffer = gds__alloc((SLONG) bufsize)) ||
+			(*count = getfsstat(*buffer, bufsize, MNT_NOWAIT)) <= 0)
+			return FALSE;		/* NOMEM: */
+	}
+
+	if (!(*count)--)
+		return FALSE;
+
+/* Include non-NFS (local) mounts - some may be longer than
+   NFS mount points */
+
+	fs = &((struct statfs *) *buffer)[*count];
+	mount->mnt_node = mnt_buffer;
+	q = fs->f_mntfromname;
+	while (*q && *q != ':')
+		*mnt_buffer++ = *q++;
+	*mnt_buffer++ = 0;
+	if (*q != ':')
+		mount->mnt_node = NULL;
+	if (*q)
+		q++;
+	mount->mnt_path = mnt_buffer;
+	while (*mnt_buffer++ = *q++);
+	mount->mnt_mount = fs->f_mntonname;
+
+	return TRUE;
+}
+#endif
+
+
+#ifdef DELTA
+#define GET_MOUNTS
+static BOOLEAN get_mounts(MNT * mount, TEXT * buffer, int file)
+{
+/**************************************
+ *
+ *	g e t _ m o u n t s	( D E L T A )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ALL mount points.
+ *
+ **************************************/
+	TEXT in_buffer[2134], *p, *q;
+	int n;
+
+/* Start by finding a mount point. */
+
+	p = buffer;
+
+	for (;;) {
+		n = read(file, in_buffer, 2134);
+
+		if (n != 2134)
+			break;
+
+		mount->mnt_node = p;
+		q = &in_buffer[1024];
+		while (*q && *q != ':')
+			*p++ = *q++;
+		*p++ = 0;
+		if (*q != ':')
+			mount->mnt_node = NULL;
+		if (*q)
+			q++;
+		mount->mnt_path = p;
+		while (*p++ = *q++);
+		mount->mnt_mount = p;
+		q = in_buffer;
+		while (*p++ = *q++);
+		return TRUE;
+	}
+
+	return FALSE;
+}
+#endif
+
+
+#if defined(SV_MNTENT) && !defined(SOLARIS)
+#define GET_MOUNTS
+static BOOLEAN get_mounts(MNT * mount, TEXT * buffer, IB_FILE * file)
+{
+/**************************************
+ *
+ *	g e t _ m o u n t s	( S Y S T E M _ V )
+ *				( E P S O N )
+ *				( M 8 8 K )
+ *				( U N I X W A R E )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ALL mount points.
+ *
+ **************************************/
+	TEXT *p, *q;
+	struct mnttab *mptr, mnttab;
+
+/* Start by finding a mount point. */
+
+	p = buffer;
+
+	mptr = &mnttab;
+	while (getmntent(file, mptr) == 0) {
+		/* Include non-NFS (local) mounts - some may be longer than
+		   NFS mount points */
+
+		mount->mnt_node = p;
+		q = mptr->mnt_special;
+		while (*q && *q != ':')
+			*p++ = *q++;
+		*p++ = 0;
+		if (*q != ':')
+			mount->mnt_node = NULL;
+		if (*q)
+			q++;
+		mount->mnt_path = p;
+		while (*p++ = *q++);
+		mount->mnt_mount = mptr->mnt_mountp;
+		return TRUE;
+	}
+
+	return FALSE;
+}
+#endif
+#ifdef SOLARIS
+#define GET_MOUNTS
+static BOOLEAN get_mounts(MNT * mount, TEXT * buffer, IB_FILE * file)
+{
+/**************************************
+ *
+ *	g e t _ m o u n t s	( S O L A R I S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ALL mount points.
+ *
+ **************************************/
+
+	/* Since we had to substitute our alternative for the stdio supplied
+	   with Solaris, we cannot use the getmntent() library call which
+	   wants a Solaris stdio FILE* as an argument, so we parse the text-
+	   type /etc/mnttab file ourselves. */
+
+	TEXT device[128], mount_point[128], type[128], rw[128], foo1[128], *p, *q;
+	SSHORT n;
+
+/* Start by finding a mount point. */
+
+	p = buffer;
+
+	for (;;) {
+		/* device, mountpoint, type, options, a number */
+
+		n = ib_fscanf(file, "%s %s %s %s %s",
+					  device, mount_point, type, rw, foo1);
+
+		/* This should either be 5 (we got a line with 5 args, or EOF (we
+		   got nothing. If we're short of 5, assume EOF */
+		if (n != 5)
+			break;
+
+		/* Include non-NFS (local) mounts - some may be longer than
+		   NFS mount points */
+
+/****
+    if (strcmp (type, "nfs"))
+	continue;
+****/
+
+		mount->mnt_node = p;
+		q = device;
+		while (*q && *q != ':')
+			*p++ = *q++;
+		*p++ = 0;
+		if (*q != ':')
+			mount->mnt_node = NULL;
+		if (*q)
+			q++;
+		mount->mnt_path = p;
+		while (*p++ = *q++);
+		mount->mnt_mount = p;
+		q = mount_point;
+		while (*p++ = *q++);
+		return TRUE;
+	}
+
+	return FALSE;
+}
+#endif
+
+
+#ifdef SCO_UNIX
+#define GET_MOUNTS
+static BOOLEAN get_mounts(MNT * mount, TEXT * buffer, IB_FILE * file)
+{
+/**************************************
+ *
+ *	g e t _ m o u n t s	( S C O - U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ALL mount points.
+ *
+ **************************************/
+	TEXT device[128], mount_point[128], type[16], rw[128], foo1[16], *p, *q;
+	SSHORT n;
+
+/* Start by finding a mount point. */
+
+	p = buffer;
+
+/* note that the mount point and device are inverted from normal systems */
+	for (;;) {
+		/* Sake of argument, inverted the mount_point, device */
+
+		n =
+			ib_fscanf(file, "%s %s %s %s %s %s %s %s %s %s", mount_point,
+					  foo1, device, rw, foo1, foo1, foo1, foo1, foo1, foo1);
+		if (!strcmp(rw, "read"))
+			n = ib_fscanf(file, "%s", foo1);
+
+		if (n < 0)
+			break;
+
+		/* Include non-NFS (local) mounts - some may be longer than
+		   NFS mount points */
+
+/****
+    if (strcmp (type, "nfs"))
+	continue;
+****/
+
+		mount->mnt_node = p;
+		q = device;
+		while (*q && *q != ':')
+			*p++ = *q++;
+		*p++ = 0;
+		if (*q != ':')
+			mount->mnt_node = NULL;
+		if (*q)
+			q++;
+		mount->mnt_path = p;
+		while (*p++ = *q++);
+		mount->mnt_mount = p;
+		q = mount_point;
+		while (*p++ = *q++);
+		return TRUE;
+	}
+
+	return FALSE;
+}
+#endif
+
+
+#ifndef NON_MNTENT
+#define GET_MOUNTS
+static BOOLEAN get_mounts(MNT * mount, TEXT * buffer, IB_FILE * file)
+{
+/**************************************
+ *
+ *	g e t _ m o u n t s	( M N T E N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ALL mount points.
+ *
+ **************************************/
+	TEXT *p, *q;
+	struct mntent *mptr;
+
+/* Start by finding a mount point. */
+
+	p = buffer;
+
+	while (mptr = getmntent(file)) {
+		/* Include non-NFS (local) mounts - some may be longer than
+		   NFS mount points */
+
+/****
+    if (strcmp (mptr->mnt_type, MNTTYPE_NFS))
+	continue;
+****/
+
+		mount->mnt_node = p;
+		q = mptr->mnt_fsname;
+		while (*q && *q != ':')
+			*p++ = *q++;
+		*p++ = 0;
+		if (*q != ':')
+			mount->mnt_node = NULL;
+		if (*q)
+			q++;
+		mount->mnt_path = p;
+		while (*p++ = *q++);
+		mount->mnt_mount = mptr->mnt_dir;
+		return TRUE;
+	}
+
+	return FALSE;
+}
+#endif
+
+
+#ifndef GET_MOUNTS
+static BOOLEAN get_mounts(MNT * mount, TEXT * buffer, IB_FILE * file)
+{
+/**************************************
+ *
+ *	g e t _ m o u n t s	( g e n e r i c - U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ALL mount points.
+ *
+ **************************************/
+	TEXT device[128], mount_point[128], type[16], rw[128], foo1[16], *p, *q;
+	SSHORT n;
+
+/* Start by finding a mount point. */
+
+	p = buffer;
+
+	for (;;) {
+		n =
+			ib_fscanf(file, "%s %s %s %s %s %s", device, mount_point, type,
+					  rw, foo1, foo1);
+		if (n < 0)
+			break;
+
+		/* Include non-NFS (local) mounts - some may be longer than
+		   NFS mount points */
+
+/****
+    if (strcmp (type, "nfs"))
+	continue;
+****/
+
+		mount->mnt_node = p;
+		q = device;
+		while (*q && *q != ':')
+			*p++ = *q++;
+		*p++ = 0;
+		if (*q != ':')
+			mount->mnt_node = NULL;
+		if (*q)
+			q++;
+		mount->mnt_path = p;
+		while (*p++ = *q++);
+		mount->mnt_mount = p;
+		q = mount_point;
+		while (*p++ = *q++);
+		return TRUE;
+	}
+
+	return FALSE;
+}
+#endif
+
+
+#ifdef hpux
+#ifndef HP10
+static BOOLEAN get_server(TEXT * file_name, TEXT * node_name)
+{
+/**************************************
+ *
+ *	g e t _ s e r v e r		( H P - U X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	If we're running on a cnode, the file system beSLONGs
+ *	to the server node - load node_name with the server
+ *	name and return TRUE.
+ *
+ **************************************/
+	TEXT *p, hostname[64];
+	struct cct_entry *cnode;
+
+	cnode = getccnam(ISC_get_host(hostname, sizeof(hostname)));
+	if (!cnode || cnode->cnode_type == 'r')
+		return FALSE;
+
+	setccent();
+	while (cnode->cnode_type != 'r')
+		cnode = getccent();
+	strncpy(node_name, cnode->cnode_name, sizeof(cnode->cnode_name));
+
+	return TRUE;
+}
+#endif
+#endif
+#endif
+
+
+#ifdef WIN_NT
+static void share_name_from_resource(
+									 TEXT * expanded_name,
+									 TEXT * filename, LPNETRESOURCE resource)
+{
+/**************************************
+ *
+ *	s h a r e _ n a m e _ f r o m _ r e s o u r c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	if the shared drive is Windows or Novell prosess the
+ *	name appropriately, otherwise just return the remote name
+ *	expects filename to be of the form DRIVE_LETTER:\PATH
+ *	returns new filename in expanded_name sholdn't touch filename
+ *
+ **************************************/
+	TEXT *p = resource->lpRemoteName, *q = expanded_name, *r = filename;
+
+/* If the shared drive is via Windows
+   package it up so that resolution of the share name can
+   occur on the remote machine. The name
+   that will be transmitted to the remote machine will
+   have the form \\REMOTE_NODE\!SHARE_POINT!\FILENAME */
+
+	if (!strnicmp(resource->lpProvider, "Microsoft Windows Network", 26)) {
+		*q++ = *p++;
+		*q++ = *p++;
+		while ((*q++ = *p++) != '\\');
+		*q++ = '!';
+		while (*q++ = *p++);
+		q--;					/* after the above q points to the char AFTER the null */
+		*q++ = '!';
+		*q = '\0';
+		strcat(expanded_name, filename + 2);
+	}
+/* from \\NODE\VOLUME & filename to NODE@VOLUME:filename */
+	else if (!strnicmp(resource->lpProvider, "NetWare", 7)) {
+		p += 2;					/* skip past \\ */
+		while (*p != '\\')
+			*q++ = *p++;
+		*p++;
+		*q++ = '@';
+		while (*p && *p != '\\')
+			*q++ = *p++;
+		*q++ = ':';
+		*q = '\0';
+		if (*p)
+			strcat(expanded_name, p);
+		strcat(expanded_name, filename + 2);
+	}
+	else {						/* we're guessing that it might be an NFS shared drive */
+
+		while (*q++ = *p++);
+		q -= 2;					/* after the above q points to the char AFTER the null */
+		if (*q == '\\' || *q == '//')	/* chop off any trailing \ or / */
+			*q = '\0';
+		strcat(expanded_name, filename + 2);
+
+		/* If the expanded filename doesn't begin with a node name of the form
+		   \\NODE and it contains a ':', then it's probably an NSF mounted drive.
+		   Therefore we must convert any back slashes to forward slashes. */
+
+		if ((*expanded_name != '\\' || *(expanded_name + 1) != '\\')
+			&& (q = strchr(expanded_name, INET_FLAG))) {
+			while (*q) {
+				if (*q == '\\')
+					*q = '/';
+				q++;
+			}
+		}
+	}
+}
+
+
+static void share_name_from_unc(
+								TEXT * expanded_name,
+								TEXT * file_name,
+								LPREMOTE_NAME_INFO unc_remote)
+{
+/**************************************
+ *
+ *      s h a r e _ n a m e _ f r o m _ u n c
+ *
+ **************************************
+ *
+ * Functional description
+ *      Extract the share name from a REMOTE_NAME_INFO struct
+ *      returned by WNetGetUniversalName.   It uses only the
+ *      lpConnectionName element of the structure.   It converts
+ *      "\\node\sharepoint" to "\\node\!sharepoint!" and appends
+ *      the rest of file_name after the drive into expanded_name.
+ *
+ **************************************/
+	TEXT *p, *q;
+
+
+	p = unc_remote->lpConnectionName;
+	q = expanded_name;
+
+	/* copy the \\ and the node name */
+
+	*q++ = *p++;
+	*q++ = *p++;
+	while ((*q++ = *p++) != '\\');
+
+	/* bracket the share name with "!" characters */
+
+	*q++ = '!';
+	while (*q++ = *p++);
+	q--;						/* after the above, q points to the char AFTER the null */
+	*q++ = '!';
+	*q = '\0';
+
+	/* add rest of file name */
+
+	strcat(expanded_name, file_name + 2);
+}
+#endif /* WIN_NT */
+
+
+#if (defined SPX) || ((defined PC_PLATFORM) && !(defined NETWARE_386))
+static void string_parse(
+						 TEXT * string,
+						 TEXT ** colon,
+						 TEXT ** colon2, TEXT ** atsign, TEXT * slashchar)
+{
+/**************************************
+ *
+ *      s t r i n g _ p a r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get the first and second colon and the first at sign
+ *      positions from a string, plus do some verifications.
+ *      Also return whether there's a slash or backslash
+ *      in the string.
+ *
+ **************************************/
+	TEXT *p;
+
+/* if there were both an at sign and a colon, and if the at sign follows
+   the colon, the at sign should be considered part of the file name and
+   not part of an spx node name */
+
+	*colon = strchr(string, ':');
+	*atsign = strchr(string, '@');
+	if (*atsign && *colon && (*atsign > *colon))
+		*atsign = NULL;
+
+/* if there was a colon and no at sign, look for a second colon, which
+   implies a netware node */
+
+	if (*colon && !(*atsign))
+		*colon2 = strchr(*colon + 1, ':');
+	for (p = string; *p && !(*slashchar); p++)
+		if (*p == '/' || *p == '\\')
+			*slashchar = *p;
+}
+
+static void convert_slashes(char oldslash, char newslash, char *string)
+{
+	char *p;
+
+	for (p = string; *p != 0; p++) {
+		if (*p == oldslash)
+			*p = newslash;
+	}
+}
+
+#endif /* PC_PLATFORM */
diff --git a/src/jrd/isc_i_proto.h b/src/jrd/isc_i_proto.h
new file mode 100644
index 0000000000..65908f4247
--- /dev/null
+++ b/src/jrd/isc_i_proto.h
@@ -0,0 +1,42 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		isc_i_proto.h
+ *	DESCRIPTION:	Prototype header file for isc_ipc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_ISC_I_PROTO_H_
+#define _JRD_ISC_I_PROTO_H_
+
+void DLL_EXPORT ISC_enter(void);
+void DLL_EXPORT ISC_enable(void);
+void DLL_EXPORT ISC_exit(void);
+void DLL_EXPORT ISC_inhibit(void);
+
+#ifdef WIN_NT
+int API_ROUTINE ISC_kill(SLONG, SLONG, void *);
+#else
+int ISC_kill(SLONG, SLONG);
+#endif
+
+extern void API_ROUTINE ISC_signal(int, FPTR_VOID, void *);
+extern void API_ROUTINE ISC_signal_cancel(int, FPTR_VOID, void *);
+extern void DLL_EXPORT ISC_signal_init(void);
+
+#endif /* _JRD_ISC_I_PROTO_H_ */
diff --git a/src/jrd/isc_ipc.cpp b/src/jrd/isc_ipc.cpp
new file mode 100644
index 0000000000..d026ed58ef
--- /dev/null
+++ b/src/jrd/isc_ipc.cpp
@@ -0,0 +1,1209 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		isc_ipc.c
+ *	DESCRIPTION:	General purpose but non-user routines.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Solaris x86 changes - Konstantin Kuznetsov, Neil McCalden
+ */
+
+ /* $Id: isc_ipc.cpp,v 1.1.1.1 2001-05-23 13:26:10 tamlin Exp $ */
+
+#ifdef SHLIB_DEFS
+#define LOCAL_SHLIB_DEFS
+#endif
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include "../jrd/common.h"
+#include "../jrd/codes.h"
+#include "../jrd/isc.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_i_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/thd_proto.h"
+
+#ifdef sparc
+#ifdef SOLARIS
+#define HANDLER_ADDR_ARG
+#else
+#include <vfork.h>
+#endif
+#endif
+
+#ifdef SOLX86
+#define HANDLER_ADDR_ARG
+#endif
+
+typedef struct sig {
+	struct sig *sig_next;
+	int sig_signal;
+	void (*sig_routine) ();
+	void *sig_arg;
+	SLONG sig_count;
+	IPTR sig_thread_id;
+	USHORT sig_flags;
+} *SIG;
+
+#define SIG_client	1			/* Not our routine */
+#define SIG_informs	2			/* routine tells us whether to chain */
+
+#define SIG_informs_continue	0	/* continue on signal processing */
+#define SIG_informs_stop	1	/* stop signal processing */
+
+
+// Keep the following SIG_FPTR definitions in sync
+// with the same code in isc_sync.cpp
+
+#ifdef SUN3_3
+typedef int (*CLIB_ROUTINE SIG_FPTR) ();
+#else
+#if ((defined(WIN32) || defined(_WIN32)) && defined(_MSC_VER))
+typedef void (CLIB_ROUTINE * SIG_FPTR) ();
+#else
+typedef void (*CLIB_ROUTINE SIG_FPTR) ();
+#endif
+#endif
+
+#ifdef DGUX
+#define GT_32_SIGNALS
+#endif
+#if (defined AIX || defined AIX_PPC)
+#define GT_32_SIGNALS
+#endif
+#ifdef M88K
+#define GT_32_SIGNALS
+#define HANDLER_ADDR_ARG
+#endif
+#ifdef EPSON
+#define HANDLER_ADDR_ARG
+#endif
+#ifdef UNIXWARE
+#define HANDLER_ADDR_ARG
+#endif
+#ifdef NCR3000
+#define HANDLER_ADDR_ARG
+#endif
+#ifdef SCO_EV
+#define HANDLER_ADDR_ARG
+#endif
+
+#ifndef REQUESTER
+static USHORT initialized_signals = FALSE;
+static SIG VOLATILE signals = NULL;
+static USHORT VOLATILE inhibit_count = 0;
+static SLONG VOLATILE overflow_count = 0;
+
+#ifdef MULTI_THREAD
+static MUTX_T sig_mutex;
+#endif
+
+#ifdef GT_32_SIGNALS
+static SLONG VOLATILE pending_signals[2];
+#else
+static SLONG VOLATILE pending_signals = 0;
+#endif
+static int process_id = 0;
+
+#endif /* of ifndef REQUESTER */
+
+
+/* VMS Specific Stuff */
+
+#ifdef VMS
+
+#include <signal.h>
+#endif
+
+
+/* Unix specific stuff */
+
+#ifdef UNIX
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/file.h>
+#ifdef NETBSD
+#include <signal.h>
+#else
+#include <sys/signal.h>
+#endif
+#include <errno.h>
+#include <unistd.h>
+
+#ifndef O_RDWR
+#include <fcntl.h>
+#endif
+
+#ifdef DGUX
+#include <fcntl.h>
+#endif
+
+#define LOCAL_SEMAPHORES 4
+
+#ifdef DELTA
+#include <sys/sysmacros.h>
+#include <sys/param.h>
+#endif
+
+#ifdef IMP
+typedef int pid_t;
+
+#define SHMEM_DELTA	(1 << 25)
+#endif
+
+#ifdef SYSV_SIGNALS
+#define SIGVEC		FPTR_INT
+#endif
+
+#ifdef SIGACTION_SUPPORTED
+#define SIGVEC		struct sigaction
+#endif
+
+#ifndef GDS_RELAY
+#define GDS_RELAY	"/bin/gds_relay"
+#endif
+
+#ifndef SHMEM_DELTA
+#define SHMEM_DELTA	(1 << 22)
+#endif
+
+static int VOLATILE relay_pipe = 0;
+#endif
+
+
+/* Windows NT */
+
+#ifdef WIN_NT
+
+#include <process.h>
+#include <signal.h>
+#include <windows.h>
+
+#ifdef TEXT
+#undef TEXT
+#endif
+
+#define TEXT		SCHAR
+
+#ifndef NSIG
+#define NSIG		100
+#endif
+
+#define SIGVEC		SIG_FPTR
+
+#define MAX_OPN_EVENTS	40
+
+typedef struct opn_event {
+	SLONG opn_event_pid;
+	SLONG opn_event_signal;		/* pseudo-signal number */
+	HANDLE opn_event_lhandle;	/* local handle to foreign event */
+	ULONG opn_event_age;
+} *OPN_EVENT;
+
+static struct opn_event opn_events[MAX_OPN_EVENTS];
+static USHORT opn_event_count;
+static ULONG opn_event_clock;
+#endif
+
+
+/* NLM stuff */
+
+#ifdef NETWARE_386
+#define SIGVEC		SIG_FPTR
+#endif
+
+
+/* PC_PLATFORM stuff */
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+#include <signal.h>
+
+#define SIGVEC		SIG_FPTR
+#endif
+
+
+static void cleanup(void *);
+static void error(STATUS *, TEXT *, STATUS);
+static void isc_signal2(int, FPTR_VOID, void *, ULONG);
+static SLONG overflow_handler(void *);
+static SIG que_signal(int, FPTR_VOID, void *, int);
+
+#if !(defined HANDLER_ADDR_ARG)
+static void CLIB_ROUTINE signal_handler(int, int, struct sigcontext *);
+#endif
+
+#ifdef HANDLER_ADDR_ARG
+static void CLIB_ROUTINE signal_handler(int, int, void *, void *);
+#endif
+
+#ifdef OLD_POSIX_THREADS
+static void sigwait_thread(int);
+#endif
+
+#ifndef sigvector
+#ifndef hpux
+#define sigvector	sigvec
+#endif
+#endif
+
+#ifndef SIGVEC
+#define SIGVEC		struct sigvec
+#endif
+
+#ifndef SIG_HOLD
+#define SIG_HOLD	SIG_DFL
+#endif
+
+/* Not thread-safe */
+ULONG isc_enter_count = 0;
+
+#if defined(NETWARE_386)
+static SIG_FPTR client_sigfpe = NULL;
+#else
+static SIGVEC client_sigfpe;
+#endif
+
+
+#ifdef SHLIB_DEFS
+#define sprintf		(*_libgds_sprintf)
+#define strlen		(*_libgds_strlen)
+#define strcpy		(*_libgds_strcpy)
+#define exit		(*_libgds_exit)
+#define _iob		(*_libgds__iob)
+#define getpid		(*_libgds_getpid)
+#define errno		(*_libgds_errno)
+#define kill		(*_libgds_kill)
+#define _exit           (*_libgds__exit)
+#define pipe		(*_libgds_pipe)
+#define fork		(*_libgds_fork)
+#define write		(*_libgds_write)
+#define _ctype		(*_libgds__ctype)
+#define sigvector	(*_libgds_sigvec)
+#define execl		(*_libgds_execl)
+#define sigset		(*_libgds_sigset)
+#define ib_fprintf		(*_libgds_fprintf)
+#define close		(*_libgds_close)
+
+extern int sprintf();
+extern int strlen();
+extern SCHAR *strcpy();
+extern void exit();
+extern IB_FILE _iob[];
+extern pid_t getpid();
+extern int errno;
+extern int kill();
+extern void _exit();
+extern int pipe();
+extern pid_t fork();
+extern int write();
+extern SCHAR _ctype[];
+extern int sigvector();
+extern int execl();
+extern void (*sigset()) ();
+extern int ib_fprintf();
+extern int close();
+#endif
+
+
+void DLL_EXPORT ISC_enter(void)
+{
+/**************************************
+ *
+ *	I S C _ e n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enter ISC world from caller.
+ *
+ **************************************/
+#ifdef NETWARE_386
+#define ISC_ENTER
+#endif
+
+#ifndef ISC_ENTER
+/* Cancel our handler for SIGFPE - in case it was already there */
+#pragma FB_COMPILER_MESSAGE("Fix! Ugly function pointer cast!")
+	ISC_signal_cancel(SIGFPE, (void (*)()) overflow_handler, NULL);
+
+/* Setup overflow handler - with chaining to any user handler */
+#pragma FB_COMPILER_MESSAGE("Fix! Ugly function pointer cast!")
+	isc_signal2(SIGFPE, (void (*)()) overflow_handler, NULL, SIG_informs);
+#endif
+
+#ifdef DEBUG_FPE_HANDLING
+/* Debug code to simulate an FPE occuring during DB Operation */
+	if (overflow_count < 100)
+		(void) kill(getpid(), SIGFPE);
+#endif
+}
+
+
+#ifndef REQUESTER
+void DLL_EXPORT ISC_enable(void)
+{
+/**************************************
+ *
+ *	I S C _ e n a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enable signal processing.  Re-post any pending signals.
+ *
+ **************************************/
+
+#if defined(UNIX)
+	USHORT n;
+#endif
+
+#ifdef GT_32_SIGNALS
+	SLONG p;
+	USHORT i;
+#endif
+
+	if (inhibit_count)
+		--inhibit_count;
+
+	if (inhibit_count)
+		return;
+
+#ifdef UNIX
+#ifdef GT_32_SIGNALS
+	while (pending_signals[0] || pending_signals[1])
+		for (i = 0; i < 2; i++) {
+			for (n = 0, p = pending_signals[i]; p && n < 32; n++)
+				if (p & (1 << n)) {
+					p &= ~(1 << n);
+					ISC_kill(process_id, n + 1 + i * 32);
+				}
+			/* This looks like a danger point - if one of the bits
+			 * was reset after we sent the signal then we will lose it.
+			 */
+			pending_signals[i] = 0;
+		}
+#else
+	while (pending_signals)
+		for (n = 0; pending_signals && n < 32; n++)
+			if (pending_signals & (1 << n)) {
+				pending_signals &= ~(1 << n);
+				ISC_kill(process_id, n + 1);
+			}
+#endif
+#endif
+
+}
+#endif
+
+
+void DLL_EXPORT ISC_exit(void)
+{
+/**************************************
+ *
+ *	I S C _ e x i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Exit ISC world, return to caller.
+ *
+ **************************************/
+
+#ifdef NETWARE_386
+#define ISC_EXIT
+#endif
+
+#ifndef ISC_EXIT
+/* No longer attempt to handle overflow internally */
+#pragma FB_COMPILER_MESSAGE("Fix! Ugly function pointer cast!")
+	ISC_signal_cancel(SIGFPE, (void (*)()) overflow_handler, 0);
+#endif
+}
+
+
+#ifndef REQUESTER
+void DLL_EXPORT ISC_inhibit(void)
+{
+/**************************************
+ *
+ *	I S C _ i n h i b i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Inhibit process of signals.  Signals will be
+ *	retained until signals are eventually re-enabled,
+ *	then re-posted.
+ *
+ **************************************/
+
+	++inhibit_count;
+}
+#endif
+
+
+#if (defined VMS && defined __ALPHA)
+int ISC_kill(SLONG pid, SLONG signal_number)
+{
+/**************************************
+ *
+ *	I S C _ k i l l		( A p o l l o  &  A l p h a / O p e n V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Notify somebody else.
+ *
+ **************************************/
+
+	return kill(pid, signal_number);
+}
+#endif
+
+
+#ifdef NETWARE_386
+int ISC_kill(SLONG pid, SLONG signal_number)
+{
+/**************************************
+ *
+ *	I S C _ k i l l		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Notify somebody else.
+ *
+ **************************************/
+
+	return 0;
+}
+#endif
+
+
+#ifdef UNIX
+int ISC_kill(SLONG pid, SLONG signal_number)
+{
+/**************************************
+ *
+ *	I S C _ k i l l		( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Notify somebody else.
+ *
+ **************************************/
+	SLONG msg[3];
+	int status, pipes[2];
+	TEXT process[64], arg[10];
+
+	for (;;) {
+		status = kill(pid, signal_number);
+
+		if (!status)
+			return status;
+		if (SYSCALL_INTERRUPTED(errno))
+			continue;
+		if (errno == EPERM)
+			break;
+
+		return status;
+	}
+
+/* Process is there, but we don't have the privilege to
+   send to him.  */
+
+	if (!relay_pipe) {
+		gds__prefix(process, GDS_RELAY);
+		if (pipe(pipes)) {
+			gds__log("ISC_kill: error %d creating gds_relay", errno);
+			return -1;
+		}
+		sprintf(arg, "%d", pipes[0]);
+		if (!vfork()) {
+			execl(process, process, arg, 0);
+			gds__log("ISC_kill: error %d starting gds_relay %s", errno,
+					 process);
+			_exit(0);
+		}
+		relay_pipe = pipes[1];
+
+		/* Don't need the READ pipe */
+		close(pipes[0]);
+	}
+
+	msg[0] = pid;
+	msg[1] = signal_number;
+	msg[2] = msg[0] ^ msg[1];	/* XOR for a consistancy check */
+	if (write(relay_pipe, msg, sizeof(msg)) != sizeof(msg)) {
+		gds__log("ISC_kill: write to relay_pipe failed %d", errno);
+		relay_pipe = 0;			/* try to restart next time */
+		return -1;
+	}
+
+	return 0;
+}
+#endif
+
+
+#ifdef WIN_NT
+int API_ROUTINE ISC_kill(SLONG pid, SLONG signal_number, void *object_hndl)
+{
+/**************************************
+ *
+ *	I S C _ k i l l		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Notify somebody else.
+ *
+ **************************************/
+	ULONG oldest_age;
+	OPN_EVENT opn_event, end_opn_event, oldest_opn_event;
+
+/* If we're simply trying to poke ourselves, do so directly. */
+
+	if (pid == process_id) {
+		SetEvent(object_hndl);
+		return 0;
+	}
+
+	oldest_age = ~0;
+
+	opn_event = opn_events;
+	end_opn_event = opn_event + opn_event_count;
+	for (; opn_event < end_opn_event; opn_event++) {
+		if (opn_event->opn_event_pid == pid &&
+			opn_event->opn_event_signal == signal_number) break;
+		if (opn_event->opn_event_age < oldest_age) {
+			oldest_opn_event = opn_event;
+			oldest_age = opn_event->opn_event_age;
+		}
+	}
+
+	if (opn_event >= end_opn_event) {
+		HANDLE lhandle;
+
+		if (!(lhandle = ISC_make_signal(FALSE, FALSE, pid, signal_number)))
+			return -1;
+
+		if (opn_event_count < MAX_OPN_EVENTS)
+			opn_event_count++;
+		else {
+			opn_event = oldest_opn_event;
+			CloseHandle(opn_event->opn_event_lhandle);
+		}
+
+		opn_event->opn_event_pid = pid;
+		opn_event->opn_event_signal = signal_number;
+		opn_event->opn_event_lhandle = lhandle;
+	}
+
+	opn_event->opn_event_age = ++opn_event_clock;
+
+	return (SetEvent(opn_event->opn_event_lhandle)) ? 0 : -1;
+}
+#endif
+
+
+#ifndef BRIDGE
+void API_ROUTINE ISC_signal(int signal_number, void (*handler) (), void *arg)
+{
+/**************************************
+ *
+ *	I S C _ s i g n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Multiplex multiple handers into single signal.
+ *
+ **************************************/
+	isc_signal2(signal_number, handler, arg, 0);
+}
+#endif /* BRIDGE */
+
+
+#ifndef BRIDGE
+#ifdef SYSV_SIGNALS
+static void isc_signal2(
+						int signal_number,
+						void (*handler) (), void *arg, ULONG flags)
+{
+/**************************************
+ *
+ *	i s c _ s i g n a l 2		( S Y S V _ S I G N A L S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Multiplex multiple handers into single signal.
+ *
+ **************************************/
+	SIG sig;
+	int n;
+	FPTR_INT ptr;
+
+/* The signal handler needs the process id */
+
+	if (!process_id)
+		process_id = getpid();
+
+	THD_MUTEX_LOCK(&sig_mutex);
+
+/* See if this signal has ever been cared about before */
+
+	for (sig = signals; sig; sig = sig->sig_next)
+		if (sig->sig_signal == signal_number)
+			break;
+
+/* If it hasn't been attach our chain handler to the signal,
+   and queue up whatever used to handle it as a non-ISC
+   routine (they are invoked differently).  Note that if
+   the old action was SIG_DFL, SIG_HOLD, SIG_IGN or our
+   multiplexor, there is no need to save it. */
+
+	if (!sig) {
+		ptr = sigset(signal_number, signal_handler);
+		if (ptr != SIG_DFL &&
+			ptr != SIG_IGN &&
+			ptr != SIG_HOLD &&
+			ptr != signal_handler)
+		que_signal(signal_number, ptr, arg, SIG_client);
+	}
+
+/* Que up the new ISC signal handler routine */
+
+	que_signal(signal_number, handler, arg, flags);
+
+	THD_MUTEX_UNLOCK(&sig_mutex);
+}
+#endif /* SYSV */
+#endif /* BRIDGE */
+
+
+#ifndef BRIDGE
+#if (defined UNIX || defined WIN_NT || \
+	(defined PC_PLATFORM && !defined NETWARE_386))
+#ifndef SYSV_SIGNALS
+static void isc_signal2(
+						int signal_number,
+						void (*handler) (), void *arg, ULONG flags)
+{
+/**************************************
+ *
+ *	i s c _ s i g n a l 2		( u n i x ,   W I N _ N T ,   O S 2 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Multiplex multiple handers into single signal.
+ *
+ **************************************/
+
+	SIG sig;
+	SIG_FPTR ptr;
+
+/* The signal handler needs the process id */
+
+#ifndef PC_PLATFORM
+	if (!process_id)
+		process_id = getpid();
+#endif
+
+#if defined(WIN_NT)
+/* If not a UNIX signal, just queue for port watcher. */
+
+	if (signal_number > NSIG) {
+		que_signal(signal_number, handler, arg, flags);
+		return;
+	}
+#endif
+
+	THD_MUTEX_LOCK(&sig_mutex);
+
+/* See if this signal has ever been cared about before */
+
+	for (sig = signals; sig; sig = sig->sig_next)
+		if (sig->sig_signal == signal_number)
+			break;
+
+/* If it hasn't been attach our chain handler to the signal,
+   and queue up whatever used to handle it as a non-ISC
+   routine (they are invoked differently).  Note that if
+   the old action was SIG_DFL, SIG_HOLD, SIG_IGN or our
+   multiplexor, there is no need to save it. */
+
+	if (!sig) {
+#if (defined WIN_NT || defined PC_PLATFORM)
+#pragma FB_COMPILER_MESSAGE("Fix! Ugly function pointer casts!")
+		ptr =
+			(void (*)()) signal(signal_number,
+								(void (*)(int)) signal_handler);
+#else
+
+		SIGVEC vec, old_vec;
+
+#ifndef SIGACTION_SUPPORTED
+#ifdef OLD_POSIX_THREADS
+		if (signal_number != SIGALRM)
+			vec.sv_handler = SIG_DFL;
+		else
+#endif
+			vec.sv_handler = (SIG_FPTR) signal_handler;
+		vec.sv_mask = 0;
+		vec.sv_onstack = 0;
+		sigvector(signal_number, &vec, &old_vec);
+		ptr = old_vec.sv_handler;
+#else
+#ifdef OLD_POSIX_THREADS
+		if (signal_number != SIGALRM)
+			vec.sv_handler = SIG_DFL;
+		else
+#endif
+			vec.sa_handler = (SIG_FPTR) signal_handler;
+		memset(&vec.sa_mask, 0, sizeof(vec.sa_mask));
+		vec.sa_flags = SA_RESTART;
+		sigaction(signal_number, &vec, &old_vec);
+		ptr = old_vec.sa_handler;
+#endif
+#endif
+#pragma FB_COMPILER_MESSAGE("Fix! Ugly function pointer casts!")
+		if (ptr != (SIG_FPTR) SIG_DFL &&
+			ptr != (SIG_FPTR) SIG_HOLD &&
+			ptr != (SIG_FPTR) SIG_IGN && ptr != (SIG_FPTR) signal_handler) {
+			que_signal(signal_number, (FPTR_VOID) ptr, arg, SIG_client);
+		}
+	}
+
+	/* Que up the new ISC signal handler routine */
+
+	que_signal(signal_number, handler, arg, flags);
+
+	THD_MUTEX_UNLOCK(&sig_mutex);
+}
+#endif
+#endif
+#endif
+
+
+#ifndef BRIDGE
+#ifndef REQUESTER
+void API_ROUTINE ISC_signal_cancel(
+								   int signal_number,
+								   void (*handler) (), void *arg)
+{
+/**************************************
+ *
+ *	I S C _ s i g n a l _ c a n c e l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel a signal handler.
+ *	If handler == NULL, cancel all handlers for a given signal.
+ *
+ **************************************/
+	SIG sig;
+	volatile SIG *ptr;
+
+	THD_MUTEX_LOCK(&sig_mutex);
+
+	for (ptr = &signals; sig = *ptr;) {
+		if (sig->sig_signal == signal_number &&
+			(handler == NULL ||
+			 (sig->sig_routine == handler && sig->sig_arg == arg))) {
+			*ptr = sig->sig_next;
+			gds__free(sig);
+		}
+		else
+			ptr = &(*ptr)->sig_next;
+	}
+
+	THD_MUTEX_UNLOCK(&sig_mutex);
+
+#ifdef OLD_POSIX_THREADS
+	{
+		IPTR thread_id;
+
+		/* UNSAFE CODE HERE - sig has been freed - rewrite should
+		 * this section ever be activated.
+		 */
+		deliberate_error_here_to_force_compile_error++;
+		if (!sig || signal_number == SIGALRM)
+			return;
+
+		thread_id = sig->sig_thread_id;
+		for (sig = signals; sig; sig = sig->sig_next)
+			if (sig->sig_signal == signal_number)
+				return;
+
+		/* No more handlers exist for the signal.  Kill the thread that's
+		   been listening for the signal. */
+
+		pthread_cancel((pthread_t *) thread_id);
+	}
+#endif // OLD_POSIX_THREADS
+}
+#endif // ifndef REQUESTER
+#endif
+
+
+void DLL_EXPORT ISC_signal_init(void)
+{
+/**************************************
+ *
+ *	I S C _ s i g n a l _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize any system signal handlers.
+ *
+ **************************************/
+
+#ifndef REQUESTER
+#ifndef PIPE_CLIENT
+	if (initialized_signals)
+		return;
+
+	initialized_signals = TRUE;
+
+	overflow_count = 0;
+	gds__register_cleanup(cleanup, 0);
+
+#ifndef VMS
+#ifndef NETWARE_386
+#ifndef PC_PLATFORM
+	process_id = getpid();
+
+	THD_MUTEX_INIT(&sig_mutex);
+
+#pragma FB_COMPILER_MESSAGE("Fix! Ugly function pointer cast!")
+	isc_signal2(SIGFPE, (void (*)()) overflow_handler, 0, SIG_informs);
+
+#endif // !defined(PC_PLATFORM)
+#endif
+#endif
+
+#endif /* PIPE_CLIENT */
+#endif /* REQUESTER */
+
+#ifdef WIN_NT
+	ISC_get_security_desc();
+#endif
+}
+
+
+#ifndef REQUESTER
+static void cleanup(void *arg)
+{
+/**************************************
+ *
+ *	c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Module level cleanup handler.
+ *
+ **************************************/
+	signals = NULL;
+
+	THD_MUTEX_DESTROY(&sig_mutex);
+
+	inhibit_count = 0;
+
+#ifdef GT_32_SIGNALS
+	pending_signals[0] = pending_signals[1] = 0;
+#else
+	pending_signals = 0;
+#endif
+
+	process_id = 0;
+
+#ifdef WIN_NT
+	{
+		OPN_EVENT opn_event;
+
+		opn_event = opn_events + opn_event_count;
+		opn_event_count = 0;
+		while (opn_event-- > opn_events)
+			CloseHandle(opn_event->opn_event_lhandle);
+	}
+#endif
+
+	initialized_signals = FALSE;
+}
+#endif
+
+
+#ifndef REQUESTER
+static void error(STATUS * status_vector, TEXT * string, STATUS status)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've encountered an error, report it.
+ *
+ **************************************/
+
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = gds__sys_request;
+	*status_vector++ = gds_arg_string;
+	*status_vector++ = (STATUS) string;
+	*status_vector++ = SYS_ARG;
+	*status_vector++ = status;
+	*status_vector++ = gds_arg_end;
+}
+#endif
+
+
+#ifndef REQUESTER
+static SLONG overflow_handler(void *arg)
+{
+/**************************************
+ *
+ *	o v e r f l o w _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody overflowed.  Ho hum.
+ *
+ **************************************/
+
+#ifdef DEBUG_FPE_HANDLING
+	ib_fprintf(ib_stderr, "overflow_handler (%x)\n", arg);
+#endif
+
+/* If we're within ISC world (inside why-value) when the FPE occurs
+ * we handle it (basically by ignoring it).  If it occurs outside of
+ * ISC world, return back a code that tells signal_handler to call any
+ * customer provided handler.
+ */
+	if (isc_enter_count) {
+		++overflow_count;
+#ifdef DEBUG_FPE_HANDLING
+		ib_fprintf(ib_stderr, "SIGFPE in isc code ignored %d\n",
+				   overflow_count);
+#endif
+		/* We've "handled" the FPE - let signal_handler know not to chain
+		   the signal to other handlers */
+		return SIG_informs_stop;
+	}
+	else {
+		/* We've NOT "handled" the FPE - let signal_handler know to chain
+		   the signal to other handlers */
+		return SIG_informs_continue;
+	}
+}
+#endif
+
+
+#ifndef REQUESTER
+static SIG que_signal(
+					  int signal_number,
+					  void (*handler) (), void *arg, int flags)
+{
+/**************************************
+ *
+ *	q u e _ s i g n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que signal for later action.
+ *
+ **************************************/
+	SIG sig;
+	IPTR thread_id = 0;
+
+#ifdef OLD_POSIX_THREADS
+	if (signal_number != SIGALRM) {
+		for (sig = signals; sig; sig = sig->sig_next)
+			if (sig->sig_signal == signal_number)
+				break;
+
+		if (!sig)
+			pthread_create((pthread_t *) & thread_id, pthread_attr_default,
+						   sigwait_thread, (void *) signal_number);
+		else
+			thread_id = sig->sig_thread_id;
+	}
+#endif
+
+	sig = (SIG) gds__alloc((SLONG) sizeof(struct sig));
+/* FREE: unknown */
+	if (!sig) {					/* NOMEM: */
+		DEV_REPORT("que_signal: out of memory");
+		return NULL;			/* NOMEM: not handled, too difficult */
+	}
+
+#ifdef DEBUG_GDS_ALLOC
+/* This will only be freed when a signal handler is de-registered
+ * and we don't do that at process exit - so this not always
+ * a freed structure.
+ */
+	gds_alloc_flag_unfreed((void *) sig);
+#endif
+
+	sig->sig_signal = signal_number;
+	sig->sig_routine = handler;
+	sig->sig_arg = arg;
+	sig->sig_flags = flags;
+	sig->sig_thread_id = thread_id;
+	sig->sig_count = 0;
+
+	sig->sig_next = signals;
+	signals = sig;
+
+	return sig;
+}
+#endif
+
+
+#ifndef REQUESTER
+static void CLIB_ROUTINE signal_handler(int number, int code,
+#ifdef HANDLER_ADDR_ARG
+										void *scp, void *addr)
+#else
+										struct sigcontext *scp)
+#endif
+{
+/**************************************
+ *
+ *	s i g n a l _ h a n d l e r	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkin with various signal handlers.
+ *
+ **************************************/
+	SIG sig;
+
+/* if there are no signals, who cares? */
+
+	if (signals == (SIG) NULL)
+		return;
+
+/* This should never happen, but if it does might as well not crash */
+
+	if (number == 0)
+		return;
+
+/* If signals are inhibited, save the signal for later reposting.
+   Otherwise, invoke everybody who may have expressed an interest. */
+
+#ifdef SIGALRM
+	if (inhibit_count && number != SIGALRM)
+#else
+	if (inhibit_count)
+#endif
+#ifdef GT_32_SIGNALS
+		pending_signals[(number - 1) / 32] |= 1L << ((number - 1) % 32);
+#else
+		pending_signals |= 1L << (number - 1);
+#endif
+	else
+		for (sig = signals; sig; sig = sig->sig_next)
+			if (sig->sig_signal == number)
+				if (sig->sig_flags & SIG_client)
+#pragma FB_COMPILER_MESSAGE("Fix! Ugly function pointer cast!")
+#ifdef HANDLER_ADDR_ARG
+					((void (*)(...)) (*sig->sig_routine)) (number, code, scp, addr);
+#else
+					((void (*)(...)) (*sig->sig_routine)) (number, code, scp);
+#endif
+				else if (sig->sig_flags & SIG_informs) {
+					ULONG res;
+					/* Routine will tell us whether to chain the signal to other handlers */
+#pragma FB_COMPILER_MESSAGE("Fix! Ugly function pointer cast!")
+					res = ((*((SLONG(*)(void *)) sig->sig_routine))
+						   (sig->sig_arg));
+					if (res == SIG_informs_stop)
+						break;
+				}
+				else
+					((FPTR_VOID_PTR) (*sig->sig_routine)) (sig->sig_arg);
+
+#ifdef SIG_RESTART
+	scp->sc_syscall_action = (!ISC_check_restart()
+							  || number ==
+							  SIGALRM) ? SIG_RETURN : SIG_RESTART;
+#endif
+}
+#endif
+
+
+#ifdef OLD_POSIX_THREADS
+static void sigwait_thread(int signal_number)
+{
+/**************************************
+ *
+ *	s i g w a i t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	This thread waits for a given signal
+ *	and calls the all purpose signal
+ *	handler whenever it arrives.
+ *
+ **************************************/
+	sigset_t sigmask;
+	SIG sig;
+
+	sigemptyset(&sigmask);
+	sigaddset(&sigmask, signal_number);
+
+	while (TRUE) {
+		sigwait(&sigmask);
+
+		/* If signals are inhibited, save the signal for later reposting.
+		   Otherwise, invoke everybody who may have expressed an interest. */
+
+		if (inhibit_count && signal_number != SIGALRM)
+#ifdef GT_32_SIGNALS
+			pending_signals[(signal_number - 1) / 32] |=
+				1 << ((signal_number - 1) % 32);
+#else
+			pending_signals |= 1 << (signal_number - 1);
+#endif
+		else
+			for (sig = signals; sig; sig = sig->sig_next)
+				if (sig->sig_signal == signal_number)
+					if (sig->sig_flags & SIG_client)
+#ifdef HANDLER_ADDR_ARG
+						(*sig->sig_routine) (number, 0, NULL, NULL);
+#else
+						(*sig->sig_routine) (number, 0, NULL);
+#endif
+					else
+						(*sig->sig_routine) (sig->sig_arg);
+	}
+}
+#endif
+
diff --git a/src/jrd/isc_proto.h b/src/jrd/isc_proto.h
new file mode 100644
index 0000000000..456e8ff37c
--- /dev/null
+++ b/src/jrd/isc_proto.h
@@ -0,0 +1,72 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		isc_proto.h
+ *	DESCRIPTION:	Prototype header file for isc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_ISC_PROTO_H_
+#define _JRD_ISC_PROTO_H_
+
+#include "../jrd/isc.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+extern void DLL_EXPORT ISC_ast_enter(void);
+extern void DLL_EXPORT ISC_ast_exit(void);
+extern int DLL_EXPORT ISC_check_process_existence(SLONG, SLONG, USHORT);
+extern void DLL_EXPORT ISC_get_config(TEXT *, struct ipccfg *);
+extern int DLL_EXPORT ISC_set_config(TEXT *, struct ipccfg *);
+extern TEXT *INTERNAL_API_ROUTINE ISC_get_host(TEXT *, USHORT);
+extern int INTERNAL_API_ROUTINE ISC_get_user(TEXT *, int *, int *, TEXT *,
+											 TEXT *, int *, TEXT *);
+extern SLONG ISC_get_user_group_id(TEXT *);
+extern void ISC_set_user(TEXT *);
+extern SLONG API_ROUTINE ISC_get_prefix(TEXT *);
+extern void API_ROUTINE ISC_prefix(TEXT *, TEXT *);
+extern void API_ROUTINE ISC_prefix_lock(TEXT *, TEXT *);
+extern void API_ROUTINE ISC_prefix_msg(TEXT *, TEXT *);
+
+
+#ifdef VMS
+extern int ISC_expand_logical_once(TEXT *, USHORT, TEXT *);
+extern int ISC_make_desc(TEXT *, struct dsc$descriptor *, USHORT);
+extern void ISC_wait(SSHORT *, SLONG);
+extern void ISC_wake(SLONG);
+extern void ISC_wake_init(void);
+#endif
+
+#if defined(WIN_NT)
+
+extern BOOLEAN ISC_is_WinNT(void);
+extern SSHORT ISC_get_registry_var(TEXT *, TEXT *, SSHORT, void **);
+extern struct _SECURITY_ATTRIBUTES *ISC_get_security_desc(void);
+extern TEXT *ISC_prefix_interbase(TEXT *, TEXT *);
+
+#endif /* WIN_NT */
+
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_ISC_PROTO_H_ */
diff --git a/src/jrd/isc_s_proto.h b/src/jrd/isc_s_proto.h
new file mode 100644
index 0000000000..51a6cd2e1d
--- /dev/null
+++ b/src/jrd/isc_s_proto.h
@@ -0,0 +1,111 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		isc_s_proto.h
+ *	DESCRIPTION:	Prototype header file for isc_sync.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_ISC_S_PROTO_H_
+#define _JRD_ISC_S_PROTO_H_
+
+#include "../jrd/isc.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+extern BOOLEAN ISC_check_restart(void);
+extern int ISC_event_blocked(USHORT, struct event **, SLONG *);
+extern SLONG DLL_EXPORT ISC_event_clear(struct event *);
+extern void ISC_event_fini(struct event *);
+#ifndef NETWARE_386
+extern int DLL_EXPORT ISC_event_init(struct event *, int, int);
+#else
+extern int DLL_EXPORT ISC_event_init(struct event *, ULONG *, int);
+#endif
+#if defined(WIN_NT)
+extern int ISC_event_init_shared(struct event *,
+								 int, TEXT *, struct event *, USHORT);
+#endif
+extern int DLL_EXPORT ISC_event_post(struct event *);
+extern int DLL_EXPORT ISC_event_wait(SSHORT,
+									 struct event **,
+									 SLONG *, SLONG, FPTR_VOID, void *);
+
+#ifdef WIN_NT
+extern void *ISC_make_signal(BOOLEAN, BOOLEAN, int, int);
+#endif /* WIN_NT */
+
+extern UCHAR *DLL_EXPORT ISC_map_file(STATUS *,
+									  TEXT *,
+									  FPTR_VOID,
+									  void *, SLONG, struct sh_mem *);
+#ifndef NETWARE_386
+
+#if defined(WIN_NT)
+int DLL_EXPORT ISC_mutex_init(struct mtx *, TEXT*);
+#else
+int DLL_EXPORT ISC_mutex_init(struct mtx *, SLONG);
+#endif
+
+int DLL_EXPORT ISC_mutex_lock(struct mtx *);
+int DLL_EXPORT ISC_mutex_lock_cond(struct mtx *);
+int DLL_EXPORT ISC_mutex_unlock(struct mtx *);
+
+#endif	// !NETWARE_386
+
+#ifdef NETWARE_386
+int		ISC_mutex_init(ULONG *, ULONG *);
+int		ISC_mutex_lock(ULONG *);
+int		ISC_mutex_unlock(ULONG *);
+void	ISC_semaphore_close(ULONG);
+void	ISC_sync_init(void);
+#endif
+
+#ifdef SUPERSERVER
+#ifdef UNIX
+extern void ISC_exception_post(ULONG, TEXT *);
+extern void ISC_sync_signals_set(void);
+extern void ISC_sync_signals_reset(void);
+#endif /* UNIX */
+
+#ifdef WIN_NT
+extern ULONG ISC_exception_post(ULONG, TEXT *);
+#endif /* WIN_NT */
+
+#endif /* SUPERSERVER */
+
+#if (defined NETWARE_386 || defined PC_PLATFORM)
+extern void ISC_semaphore_open(ULONG *, ULONG);
+#endif
+
+extern UCHAR *DLL_EXPORT ISC_remap_file(STATUS *,
+										struct sh_mem *, SLONG, USHORT);
+extern void ISC_reset_timer(FPTR_VOID, void *, SLONG *, void **);
+extern void ISC_set_timer(SLONG, FPTR_VOID, void *, SLONG *, void **);
+extern void DLL_EXPORT ISC_unmap_file(STATUS *, struct sh_mem *, USHORT);
+
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+
+#endif /* _JRD_ISC_S_PROTO_H_ */
diff --git a/src/jrd/isc_signal.h b/src/jrd/isc_signal.h
new file mode 100644
index 0000000000..cfe9c226dc
--- /dev/null
+++ b/src/jrd/isc_signal.h
@@ -0,0 +1,38 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		isc_signal.h
+ *	DESCRIPTION:	InterBase pseudo-signal definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_ISC_SIGNAL_H_
+#define _JRD_ISC_SIGNAL_H_
+
+#ifdef WIN_NT
+/* There is no interprocess signaling on Windows NT.  We simulate it
+   by sending messages through named pipes. */
+
+#define BLOCKING_SIGNAL		1000	/* Lock manager */
+#define WAKEUP_SIGNAL		1100	/* Lock manager */
+#define EVENT_SIGNAL		1200	/* Event manager */
+#define CACHE_SIGNALS		1300	/* Shared cache */
+#define WAL_SIGNALS		1400	/* Write ahead log */
+#endif
+
+#endif /* _JRD_ISC_SIGNAL_H_ */
diff --git a/src/jrd/isc_sync.cpp b/src/jrd/isc_sync.cpp
new file mode 100644
index 0000000000..e650b3b508
--- /dev/null
+++ b/src/jrd/isc_sync.cpp
@@ -0,0 +1,4973 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		isc_sync.c
+ *	DESCRIPTION:	General purpose but non-user routines.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#if defined(_WIN32) || defined(WIN32) || defined(__WIN32__) || defined(WIN_NT)
+#error This file is not to be used for Win32 builds. Please use isc_sync_win32.cpp
+#endif
+
+#ifdef SHLIB_DEFS
+#define LOCAL_SHLIB_DEFS
+#endif
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+
+#ifdef SOLARIS
+#ifndef DEV_BUILD
+#define NDEBUG					/* Turn off assert() macros */
+#endif
+#include <assert.h>
+#endif
+
+#ifdef HP10
+#include <sys/pstat.h>
+#endif
+
+#include "../jrd/time.h"
+#include "../jrd/common.h"
+#include "../jrd/codes.h"
+#include "../jrd/isc.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_i_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/file_params.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/jrd.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/err_proto.h"
+
+
+// Keep the following SIG_FPTR definitions in sync
+// with the same code in isc_ipc.cpp
+
+#ifdef SUN3_3
+typedef int (*CLIB_ROUTINE SIG_FPTR) ();
+#else
+#if ((defined(WIN32) || defined(_WIN32)) && defined(_MSC_VER))
+typedef void (CLIB_ROUTINE * SIG_FPTR) ();
+#else
+typedef void (*CLIB_ROUTINE SIG_FPTR) ();
+#endif
+#endif
+
+#ifndef REQUESTER
+static USHORT inhibit_restart;
+static int process_id;
+static UCHAR *next_shared_memory;
+#endif
+
+
+/* VMS Specific Stuff */
+
+#ifdef VMS
+
+#include <rms.h>
+#include <descrip.h>
+#include <ssdef.h>
+#include <jpidef.h>
+#include <prvdef.h>
+#include <secdef.h>
+#include <lckdef.h>
+#include "../jrd/lnmdef.h"
+#include <signal.h>
+
+#include "../jrd/prv_m_bypass.h"
+#endif /* of ifdef VMS */
+
+
+/* Unix specific stuff */
+
+#ifdef UNIX
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/file.h>
+
+#ifdef NETBSD
+#include <signal.h>
+#else
+#include <sys/signal.h>
+#endif
+
+#include <errno.h>
+#include <unistd.h>
+#include <sys/ipc.h>
+#include <sys/shm.h>
+#include <sys/sem.h>
+
+#ifndef O_RDWR
+#include <fcntl.h>
+#endif
+
+#ifdef MMAP_SUPPORTED
+#include <sys/mman.h>
+#endif
+
+#ifdef DGUX
+#include <fcntl.h>
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+
+#define ISC_MUTEX	&isc_mutex
+#define ISC_EVENT	&isc_condition
+
+static struct mutex isc_mutex = MUTEX_INITIALIZER;
+static struct condition isc_condition = CONDITION_INITIALIZER;
+
+#endif	// UNIX
+
+#define FTOK_KEY	15
+#define PRIV		0666
+#define LOCAL_SEMAPHORES 4
+
+#ifdef DELTA
+#include <sys/sysmacros.h>
+#include <sys/param.h>
+#endif
+
+#ifdef IMP
+typedef unsigned int mode_t;
+typedef int pid_t;
+
+#define SHMEM_DELTA	(1 << 25)
+#endif
+
+#ifdef SYSV_SIGNALS
+#define SIGVEC		FPTR_INT
+#endif
+
+#ifdef SIGACTION_SUPPORTED
+#define SIGVEC		struct sigaction
+#endif
+
+#ifndef GDS_RELAY
+#define GDS_RELAY	"/bin/gds_relay"
+#endif
+
+#ifndef SHMEM_DELTA
+#define SHMEM_DELTA	(1 << 22)
+#endif
+
+#ifdef sun
+#ifndef SOLARIS
+#define SEMUN
+#endif
+#endif
+
+#ifdef FREEBSD
+#define SEMUN
+#endif
+
+#ifdef LINUX
+/*
+ * NOTE: this definition is copied from linux/sem.h: if we do ...
+ *    #include <linux/sem.h>
+ * we get redefinition error messages for other structures, 
+ * so try it this (ugly) way.
+ */
+/* arg for semctl system calls. */
+union semun {
+	int val;					/* value for SETVAL */
+	struct semid_ds *buf;		/* buffer for IPC_STAT & IPC_SET */
+	unsigned short *array;		/* array for GETALL & SETALL */
+	struct seminfo *__buf;		/* buffer for IPC_INFO */
+	void *__pad;
+};
+#define SEMUN
+#endif
+
+#ifdef XENIX
+/* 5.5 SCO Port: SIGURG - is now available in SCO Openserver */
+#ifndef SCO_EV
+#define SIGURG		SIGUSR1
+#endif
+#endif
+
+#ifndef SIGURG
+#define SIGURG		SIGINT
+#endif
+
+#ifdef sgi
+#define SEMUN
+#endif
+
+#ifdef SEMUN
+#undef SEMUN
+#else
+union semun {
+	int val;
+	struct semid_ds *buf;
+	ushort *array;
+};
+#endif
+
+#if !(defined M88K || defined hpux || defined DECOSF || defined SOLARIS || \
+      defined DG_X86 || defined linux || defined FREEBSD || defined NETBSD)
+extern SLONG ftok();
+#endif
+#endif
+
+
+/* Windows NT */
+
+#ifdef WIN_NT
+
+#include <process.h>
+#include <signal.h>
+#include <windows.h>
+
+#endif
+
+
+/* NLM stuff */
+
+#ifdef NETWARE_386
+typedef struct shr_mem_hndl
+{
+	struct shr_mem_hndl*	next;
+	SH_MEM_T				shmem_data;
+	TEXT					file_name[MAXPATHLEN];
+} *SHR_MEM_HNDL;
+
+static SHR_MEM_HNDL shared_memory_handles = NULL;
+static MTX_T sync_mutex;
+#define SYNC_MUTEX	&sync_mutex
+
+#endif
+
+
+extern "C" {
+
+
+static void		alarm_handler(void);
+static void		error(STATUS *, TEXT *, STATUS);
+static SLONG	find_key(STATUS *, TEXT *);
+static SLONG	init_semaphores(STATUS *, SLONG, int);
+
+#if defined(UNIX) && defined(SUPERSERVER)
+static void		longjmp_sig_handler(int);
+#endif // UNIX && SUPERSERVER
+
+static BOOLEAN	semaphore_wait(int, int, int *);
+
+#ifdef NETWARE_386
+static void		cleanup_semaphores(ULONG);
+#endif
+
+#ifdef VMS
+static int event_test(WAIT *);
+static BOOLEAN mutex_test(MTX);
+#endif
+
+#if defined(WIN_NT)
+static void make_object_name(TEXT *, TEXT *, TEXT *);
+#endif
+
+#ifndef sigvector
+#ifndef hpux
+#define sigvector	sigvec
+#endif
+#endif
+
+#ifndef SV_INTERRUPT
+#define SV_INTERRUPT    0
+#endif
+
+
+#if defined FREEBSD || defined NETBSD
+#define sigset      signal
+#endif
+
+#ifdef SHLIB_DEFS
+#define sprintf		(*_libgds_sprintf)
+#define strlen		(*_libgds_strlen)
+#define strcmp		(*_libgds_strcmp)
+#define strcpy		(*_libgds_strcpy)
+#define _iob		(*_libgds__iob)
+#define shmdt		(*_libgds_shmdt)
+#define ib_fprintf	(*_libgds_fprintf)
+#define errno		(*_libgds_errno)
+#define ib_fopen	(*_libgds_fopen)
+#define ib_fclose	(*_libgds_fclose)
+#define open		(*_libgds_open)
+#define semctl		(*_libgds_semctl)
+#define semop		(*_libgds_semop)
+#define umask		(*_libgds_umask)
+#define close		(*_libgds_close)
+#define _ctype		(*_libgds__ctype)
+#define sigvector	(*_libgds_sigvec)
+#define pause		(*_libgds_pause)
+#define lockf		(*_libgds_lockf)
+#define shmget		(*_libgds_shmget)
+#define shmat		(*_libgds_shmat)
+#define shmctl		(*_libgds_shmctl)
+#define ftok		(*_libgds_ftok)
+#define semget		(*_libgds_semget)
+#define sigset		(*_libgds_sigset)
+#define sbrk		(*_libgds_sbrk)
+#define setitimer	(*_libgds_setitimer)
+#define alarm		(*_libgds_alarm)
+#ifndef IMP
+#define sigprocmask	(*_libgds_sigprocmask)
+#define sigsuspend	(*_libgds_sigsuspend)
+#define sigaddset	(*_libgds_sigaddset)
+#else
+#define sigsetmask	(*_libgds_sigsetmask)
+#define sigpause	(*_libgds_sigpause)
+#define sigblock	(*_libgds_sigblock)
+#endif
+
+extern int sprintf();
+extern int strlen();
+extern int strcmp();
+extern SCHAR *strcpy();
+extern IB_FILE _iob[];
+extern int shmdt();
+extern int ib_fprintf();
+extern int errno;
+extern IB_FILE *ib_fopen();
+extern int ib_fclose();
+extern int open();
+extern int semctl();
+extern int semop();
+extern mode_t umask();
+extern int close();
+extern SCHAR _ctype[];
+extern int sigvector();
+extern int pause();
+extern int lockf();
+extern int shmget();
+extern int shmctl();
+extern key_t ftok();
+extern int semget();
+extern void (*sigset()) ();
+extern SCHAR *sbrk();
+extern int setitimer();
+extern int alarm();
+extern SCHAR *shmat();
+#ifndef IMP
+extern int sigprocmask();
+extern int sigsuspend();
+extern int sigaddset();
+#else
+extern int sigsetmask();
+extern int sigpause();
+extern int sigblock();
+#endif
+#endif
+
+
+#ifdef SIG_RESTART
+BOOLEAN ISC_check_restart(void)
+{
+/**************************************
+ *
+ *	I S C _ c h e c k _ r e s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a flag that indicats whether
+ *	or not to restart an interrupted
+ *	system call.
+ *
+ **************************************/
+
+	return (inhibit_restart) ? FALSE : TRUE;
+}
+#endif /* SIG_RESTART */
+
+
+#ifdef SOLARIS_MT
+#define EVENTS
+int ISC_event_blocked(USHORT count, EVENT * events, SLONG * values)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ b l o c k e d	( S O L A R I S _ M T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	If a wait would block, return TRUE.
+ *
+ **************************************/
+
+	for (; count > 0; --count, ++events, ++values)
+		if ((*events)->event_count >= *values) {
+#ifdef ISC_SYNC_DEBUG
+			ib_printf("ISC_event_blocked: FALSE (eg something to report)\n");
+			ib_fflush(ib_stdout);
+#endif
+			return FALSE;
+		}
+
+#ifdef ISC_SYNC_DEBUG
+	ib_printf("ISC_event_blocked: TRUE (eg nothing happened yet)\n");
+	ib_fflush(ib_stdout);
+#endif
+	return TRUE;
+}
+
+
+SLONG ISC_event_clear(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ c l e a r	( S O L A R I S _ M T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear an event preparatory to waiting on it.  The order of
+ *	battle for event synchronization is:
+ *
+ *	    1.  Clear event.
+ *	    2.  Test data structure for event already completed
+ *	    3.  Wait on event.
+ *
+ **************************************/
+	SLONG ret;
+
+	mutex_lock(event->event_mutex);
+	ret = event->event_count + 1;
+	mutex_unlock(event->event_mutex);
+	return ret;
+}
+
+
+void ISC_event_fini(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ f i n i	( S O L A R I S _ M T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Discard an event object.
+ *
+ **************************************/
+
+/* Inter-Process event's are destroyed only */
+	if (event->event_semid == -1) {
+		mutex_destroy(event->event_mutex);
+		cond_destroy(event->event_semnum);
+	}
+}
+
+
+int ISC_event_init(EVENT event, int semid, int semnum)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ i n i t	( S O L A R I S _ M T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare an event object for use.
+ *
+ **************************************/
+	SLONG key, n;
+	union semun arg;
+
+	event->event_count = 0;
+
+#ifdef PIPE_IS_SHRLIB
+	assert(semnum == 0);
+#endif /* PIPE_IS_SHRLIB */
+
+	if (!semnum) {
+		/* Prepare an Inter-Thread event block */
+		event->event_semid = -1;
+		mutex_init(event->event_mutex, USYNC_THREAD, NULL);
+		cond_init(event->event_semnum, USYNC_THREAD, NULL);
+	}
+#ifndef PIPE_IS_SHRLIB
+	else {
+		/* Prepare an Inter-Process event block */
+		event->event_semid = semid;
+		mutex_init(event->event_mutex, USYNC_PROCESS, NULL);
+		cond_init(event->event_semnum, USYNC_PROCESS, NULL);
+	}
+#endif /* PIPE_IS_SHRLIB */
+
+	return TRUE;
+}
+
+
+int ISC_event_post(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ p o s t	( S O L A R I S _ M T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an event to wake somebody else up.
+ *
+ **************************************/
+	int ret;
+
+#ifdef PIPE_IS_SHRLIB
+	assert(event->event_semid == -1);
+#endif /* PIPE_IS_SHRLIB */
+
+/* For Solaris, we use cond_broadcast rather than cond_signal so that
+   all waiters on the event are notified and awakened */
+
+	mutex_lock(event->event_mutex);
+	++event->event_count;
+	ret = cond_broadcast(event->event_semnum);
+	mutex_unlock(event->event_mutex);
+	if (ret)
+		gds__log("ISC_event_post: cond_broadcast failed with errno = %d",
+				 ret);
+	return ret;
+}
+
+
+int ISC_event_wait(SSHORT	count,
+				   EVENT*	events,
+				   SLONG*	values,
+				   SLONG	micro_seconds,
+				   void (*timeout_handler)(),
+				   void*	handler_arg)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ w a i t	( S O L A R I S _ M T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait on an event.  If timeout limit specified, return
+ *	anyway after the timeout even if no event has
+ *	happened.  If returning due to timeout, return
+ *	FAILURE else return SUCCESS.
+ *
+ **************************************/
+	timestruc_t timer;
+
+/* While the API for ISC_event_wait allows for a list of events
+   we never actually make use of it.  This implementation wont
+   support it anyway as Solaris doesn't provide a "wait for one
+   of a series of conditions" function */
+	assert(count == 1);
+
+/* If we're not blocked, the rest is a gross waste of time */
+
+	if (!ISC_event_blocked(count, events, values))
+		return SUCCESS;
+
+/* Set up timers if a timeout period was specified. */
+
+	if (micro_seconds > 0) {
+		timer.tv_sec = time(NULL);
+		timer.tv_sec += micro_seconds / 1000000;
+		timer.tv_nsec = 1000 * (micro_seconds % 1000000);
+	}
+
+	int ret = SUCCESS;
+	mutex_lock((*events)->event_mutex);
+	for (;;) {
+		if (!ISC_event_blocked(count, events, values)) {
+			ret = SUCCESS;
+			break;
+		}
+
+		/* The Solaris cond_wait & cond_timedwait calls atomically release
+		   the mutex and start a wait.  The mutex is reacquired before the
+		   call returns. */
+
+		if (micro_seconds > 0)
+			ret =
+				cond_timedwait((*events)->event_semnum,
+							   (*events)->event_mutex, &timer);
+		else
+			ret = cond_wait((*events)->event_semnum, (*events)->event_mutex);
+		if (micro_seconds > 0 && (ret == ETIME)) {
+
+			/* The timer expired - see if the event occured and return
+			   SUCCESS or FAILURE accordingly. */
+
+			if (ISC_event_blocked(count, events, values))
+				ret = FAILURE;
+			else
+				ret = SUCCESS;
+			break;
+		}
+	}
+	mutex_unlock((*events)->event_mutex);
+	return ret;
+}
+#endif /* SOLARIS_MT */
+
+
+#ifdef POSIX_THREADS
+#define EVENTS
+int ISC_event_blocked(USHORT count, EVENT * events, SLONG * values)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ b l o c k e d	( P O S I X _ T H R E A D S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	If a wait would block, return TRUE.
+ *
+ **************************************/
+
+	for (; count > 0; --count, ++events, ++values)
+		if ((*events)->event_count >= *values) {
+#ifdef ISC_SYNC_DEBUG
+			ib_printf("ISC_event_blocked: FALSE (eg something to report)\n");
+			ib_fflush(ib_stdout);
+#endif
+			return FALSE;
+		}
+
+#ifdef ISC_SYNC_DEBUG
+	ib_printf("ISC_event_blocked: TRUE (eg nothing happened yet)\n");
+	ib_fflush(ib_stdout);
+#endif
+	return TRUE;
+}
+
+
+SLONG ISC_event_clear(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ c l e a r	( P O S I X _ T H R E A D S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear an event preparatory to waiting on it.  The order of
+ *	battle for event synchronization is:
+ *
+ *	    1.  Clear event.
+ *	    2.  Test data structure for event already completed
+ *	    3.  Wait on event.
+ *
+ **************************************/
+	SLONG ret;
+
+	pthread_mutex_lock(event->event_mutex);
+	ret = event->event_count + 1;
+	pthread_mutex_unlock(event->event_mutex);
+	return ret;
+}
+
+
+void ISC_event_fini(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ f i n i	( P O S I X _ T H R E A D S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Discard an event object.
+ *
+ **************************************/
+
+/* Inter-Thread event's are destroyed only */
+	if (event->event_semid == -1) {
+		pthread_mutex_destroy(event->event_mutex);
+		pthread_cond_destroy(event->event_semnum);
+	}
+}
+
+
+int ISC_event_init(EVENT event, int semid, int semnum)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ i n i t	( P O S I X _ T H R E A D S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare an event object for use.
+ *
+ **************************************/
+	SLONG key, n;
+	union semun arg;
+	pthread_mutexattr_t mattr;
+	pthread_condattr_t cattr;
+
+	event->event_count = 0;
+
+#ifdef PIPE_IS_SHRLIB
+	assert(semnum == 0);
+#endif /* PIPE_IS_SHRLIB */
+
+	if (!semnum) {
+		/* Prepare an Inter-Thread event block */
+		event->event_semid = -1;
+
+		/* Default attribute objects initialize sync. primitives 
+		   to be used to sync thread within one process only.
+		 */
+#ifdef HP10
+		pthread_mutex_init(event->event_mutex, pthread_mutexattr_default);
+		pthread_cond_init(event->event_semnum, pthread_condattr_default);
+#else
+		pthread_mutex_init(event->event_mutex, NULL);
+		pthread_cond_init(event->event_semnum, NULL);
+#endif /* HP10 */
+	}
+#ifndef PIPE_IS_SHRLIB
+	else {
+		/* Prepare an Inter-Process event block */
+		event->event_semid = semid;
+
+		/* NOTE: HP's Posix threads implementation does not support thread
+		   synchronization in different processes. Thus the following
+		   fragment is just a temp. decision we could be use for super-
+		   server (until we are to implement local IPC using shared
+		   memory in which case we need interprocess thread sync.
+		 */
+#ifdef HP10
+		pthread_mutex_init(event->event_mutex, pthread_mutexattr_default);
+		pthread_cond_init(event->event_semnum, pthread_condattr_default);
+#else
+#ifdef linux
+		pthread_mutex_init(event->event_mutex, NULL);
+		pthread_cond_init(event->event_semnum, NULL);
+#else
+		pthread_mutexattr_init(&mattr);
+		pthread_mutexattr_setpshared(&mattr, PTHREAD_PROCESS_SHARED);
+		pthread_mutex_init(event->event_mutex, &mattr);
+		pthread_mutexattr_destroy(&mattr);
+
+		pthread_condattr_init(&cattr);
+		pthread_condattr_setpshared(&cattr, PTHREAD_PROCESS_SHARED);
+		pthread_cond_init(event->event_semnum, &cattr);
+		pthread_condattr_destroy(&cattr);
+#endif
+#endif
+	}
+#endif /* PIPE_IS_SHRLIB */
+
+	return TRUE;
+}
+
+
+int ISC_event_post(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ p o s t	( P O S I X _ T H R E A D S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an event to wake somebody else up.
+ *
+ **************************************/
+	int ret;
+
+#ifdef PIPE_IS_SHRLIB
+	assert(event->event_semid == -1);
+#endif /* PIPE_IS_SHRLIB */
+
+	pthread_mutex_lock(event->event_mutex);
+	++event->event_count;
+	ret = pthread_cond_broadcast(event->event_semnum);
+	pthread_mutex_unlock(event->event_mutex);
+	if (ret)
+#ifdef HP10
+
+	{
+		assert(ret == -1);
+		gds__log
+			("ISC_event_post: pthread_cond_broadcast failed with errno = %d",
+			 errno);
+		return errno;
+	}
+	return 0;
+
+#else
+
+		gds__log
+			("ISC_event_post: pthread_cond_broadcast failed with errno = %d",
+			 ret);
+	return ret;
+
+#endif /* HP10 */
+}
+
+
+int ISC_event_wait(
+				   SSHORT count,
+				   EVENT * events,
+				   SLONG * values,
+				   SLONG micro_seconds,
+				   void (*timeout_handler) (), void *handler_arg)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ w a i t	( P O S I X _ T H R E A D S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait on an event.  If timeout limit specified, return
+ *	anyway after the timeout even if no event has
+ *	happened.  If returning due to timeout, return
+ *	FAILURE else return SUCCESS.
+ *
+ **************************************/
+	int ret;
+	struct timespec timer;
+
+/* While the API for ISC_event_wait allows for a list of events
+   we never actually make use of it.  This implementation wont
+   support it anyway as Solaris doesn't provide a "wait for one
+   of a series of conditions" function */
+	assert(count == 1);
+
+/* If we're not blocked, the rest is a gross waste of time */
+
+	if (!ISC_event_blocked(count, events, values))
+		return SUCCESS;
+
+/* Set up timers if a timeout period was specified. */
+
+	if (micro_seconds > 0) {
+		timer.tv_sec = time(NULL);
+		timer.tv_sec += micro_seconds / 1000000;
+		timer.tv_nsec = 1000 * (micro_seconds % 1000000);
+	}
+
+	ret = SUCCESS;
+	pthread_mutex_lock((*events)->event_mutex);
+	for (;;) {
+		if (!ISC_event_blocked(count, events, values)) {
+			ret = SUCCESS;
+			break;
+		}
+
+		/* The Posix pthread_cond_wait & pthread_cond_timedwait calls
+		   atomically release the mutex and start a wait.
+		   The mutex is reacquired before the call returns.
+		 */
+		if (micro_seconds > 0)
+			ret =
+				pthread_cond_timedwait((*events)->event_semnum,
+									   (*events)->event_mutex, &timer);
+		else
+			ret =
+				pthread_cond_wait((*events)->event_semnum,
+								  (*events)->event_mutex);
+
+#ifdef HP10
+		if (micro_seconds > 0 && (ret == -1) && (errno == EAGAIN))
+#else
+#ifdef linux
+		if (micro_seconds > 0 && (ret == ETIMEDOUT))
+#else
+		if (micro_seconds > 0 && (ret == ETIME))
+#endif
+#endif
+		{
+
+			/* The timer expired - see if the event occured and return
+			   SUCCESS or FAILURE accordingly. */
+
+			if (ISC_event_blocked(count, events, values))
+				ret = FAILURE;
+			else
+				ret = SUCCESS;
+			break;
+		}
+	}
+	pthread_mutex_unlock((*events)->event_mutex);
+	return ret;
+}
+#endif /* POSIX_THREADS */
+
+
+#ifdef UNIX
+#ifndef EVENTS
+#define EVENTS
+int ISC_event_blocked(USHORT count, EVENT * events, SLONG * values)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ b l o c k e d	( U N I X )
+ *                                             not NeXT
+ *                                             not SOLARIS
+ *                                             not POSIX_THREADS
+ **************************************
+ *
+ * Functional description
+ *	If a wait would block, return TRUE.
+ *
+ **************************************/
+
+	for (; count > 0; --count, ++events, ++values)
+		if ((*events)->event_count >= *values) {
+#ifdef ISC_SYNC_DEBUG
+			ib_printf("ISC_event_blocked: FALSE (eg something to report)\n");
+			ib_fflush(ib_stdout);
+#endif
+			return FALSE;
+		}
+
+#ifdef ISC_SYNC_DEBUG
+	ib_printf("ISC_event_blocked: TRUE (eg nothing happened yet)\n");
+	ib_fflush(ib_stdout);
+#endif
+	return TRUE;
+}
+
+
+SLONG ISC_event_clear(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ c l e a r	( U N I X )
+ *                                             not NeXT
+ *                                             not SOLARIS
+ *                                             not POSIX_THREADS
+ **************************************
+ *
+ * Functional description
+ *	Clear an event preparatory to waiting on it.  The order of
+ *	battle for event synchronization is:
+ *
+ *	    1.  Clear event.
+ *	    2.  Test data structure for event already completed
+ *	    3.  Wait on event.
+ *
+ **************************************/
+	int ret;
+	union semun arg;
+
+#ifdef PIPE_IS_SHRLIB
+	assert(event->event_semid == -1);
+#endif /* PIPE_IS_SHRLIB */
+
+#ifndef PIPE_IS_SHRLIB
+	if (event->event_semid != -1) {
+		arg.val = 1;
+		ret = semctl(event->event_semid, event->event_semnum, SETVAL, arg);
+	}
+#endif /* PIPE_IS_SHRLIB */
+
+	return (event->event_count + 1);
+}
+
+
+void ISC_event_fini(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ f i n i	( U N I X )
+ *                                             not NeXT
+ *                                             not SOLARIS
+ *                                             not POSIX_THREADS
+ **************************************
+ *
+ * Functional description
+ *	Discard an event object.
+ *
+ **************************************/
+}
+
+
+int ISC_event_init(EVENT event, int semid, int semnum)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ i n i t	( U N I X )
+ *                                             not NeXT
+ *                                             not SOLARIS
+ *                                             not POSIX_THREADS
+ **************************************
+ *
+ * Functional description
+ *	Prepare an event object for use.
+ *
+ **************************************/
+	SLONG key, n;
+	union semun arg;
+
+	event->event_count = 0;
+
+#ifdef PIPE_IS_SHRLIB
+	assert(semnum == 0);
+#endif /* PIPE_IS_SHRLIB */
+
+	if (!semnum) {
+		event->event_semid = -1;
+		event->event_semnum = 0;
+	}
+#ifndef PIPE_IS_SHRLIB
+	else {
+		event->event_semid = semid;
+		event->event_semnum = semnum;
+		arg.val = 0;
+		n = semctl(semid, semnum, SETVAL, arg);
+	}
+#endif /* PIPE_IS_SHRLIB */
+
+	return TRUE;
+}
+
+
+int ISC_event_post(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ p o s t	( U N I X )
+ *                                             not NeXT
+ *                                             not SOLARIS
+ *                                             not POSIX_THREADS
+ **************************************
+ *
+ * Functional description
+ *	Post an event to wake somebody else up.
+ *
+ **************************************/
+	int ret;
+	union semun arg;
+
+	++event->event_count;
+
+#ifdef PIPE_IS_SHRLIB
+
+	assert(event->event_semid == -1);
+
+#else
+
+	while (event->event_semid != -1) {
+		arg.val = 0;
+		ret = semctl(event->event_semid, event->event_semnum, SETVAL, arg);
+		if (ret != -1)
+			return 0;
+		if (!SYSCALL_INTERRUPTED(errno)) {
+			gds__log("ISC_event_post: semctl failed with errno = %d", errno);
+			return errno;
+		}
+	}
+
+#endif /* PIPE_IS_SHRLIB */
+
+	return 0;
+}
+
+
+int ISC_event_wait(
+				   SSHORT count,
+				   EVENT * events,
+				   SLONG * values,
+				   SLONG micro_seconds,
+				   void (*timeout_handler) (), void *handler_arg)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ w a i t	( U N I X )
+ *                                             not NeXT
+ *                                             not SOLARIS
+ *                                             not POSIX_THREADS
+ **************************************
+ *
+ * Functional description
+ *	Wait on an event.  If timeout limit specified, return
+ *	anyway after the timeout even if no event has
+ *	happened.  If returning due to timeout, return
+ *	FAILURE else return SUCCESS.
+ *
+ **************************************/
+	int ret;
+	sigset_t mask, oldmask;
+	EVENT *event;
+	int semid, i;
+	int semnums[16], *semnum;
+#ifdef SYSV_SIGNALS
+	SLONG user_timer;
+	void *user_handler;
+#else
+	struct itimerval user_timer;
+#ifndef SIGACTION_SUPPORTED
+	struct sigvec user_handler;
+#else
+	struct sigaction user_handler;
+#endif
+#endif
+#ifdef SOLARIS
+	timestruc_t timer;
+#endif
+
+/* If we're not blocked, the rest is a gross waste of time */
+
+	if (!ISC_event_blocked(count, events, values))
+		return SUCCESS;
+
+/* If this is a local semaphore, don't sweat the semaphore non-sense */
+
+	if ((*events)->event_semid == -1) {
+		++inhibit_restart;
+#ifdef IMP
+		oldmask =
+			sigblock(sigmask(SIGUSR1) | sigmask(SIGUSR2) | sigmask(SIGURG));
+#else
+		sigprocmask(SIG_BLOCK, NULL, &oldmask);
+		mask = oldmask;
+		sigaddset(&mask, SIGUSR1);
+		sigaddset(&mask, SIGUSR2);
+		sigaddset(&mask, SIGURG);
+		sigprocmask(SIG_BLOCK, &mask, NULL);
+#endif
+		for (;;) {
+			if (!ISC_event_blocked(count, events, values)) {
+				--inhibit_restart;
+#ifdef IMP
+				sigsetmask(oldmask);
+#else
+				sigprocmask(SIG_SETMASK, &oldmask, NULL);
+#endif
+				return SUCCESS;
+			}
+#ifdef IMP
+			mask = sigsetmask(oldmask);
+			sigpause(0);
+			oldmask = sigsetmask(mask);
+#else
+			sigsuspend(&oldmask);
+#endif
+		}
+	}
+
+#ifdef PIPE_IS_SHRLIB
+	assert(FALSE);
+#else
+/* Only the internal event work is available in the SHRLIB version of pipe server
+ */
+
+/* Set up for a semaphore operation */
+
+	semid = (int) (*events)->event_semid;
+
+/* Collect the semaphore numbers in an array */
+
+	for (i = 0, event = events, semnum = semnums; i < count; i++)
+		*semnum++ = (*event++)->event_semnum;
+
+/* Set up timers if a timeout period was specified. */
+
+	if (micro_seconds > 0) {
+		if (!timeout_handler)
+			timeout_handler = alarm_handler;
+
+		ISC_set_timer(micro_seconds, timeout_handler, handler_arg,
+					  &user_timer, &user_handler);
+	}
+
+/* Go into wait loop */
+
+	for (;;) {
+		if (!ISC_event_blocked(count, events, values)) {
+			if (micro_seconds <= 0)
+				return SUCCESS;
+			ret = SUCCESS;
+			break;
+		}
+		(void) semaphore_wait(count, semid, semnums);
+		if (micro_seconds > 0) {
+			/* semaphore_wait() routine may return SUCCESS if our timeout
+			   handler poked the semaphore.  So make sure that the event 
+			   actually happened.  If it didn't, indicate failure. */
+
+			if (ISC_event_blocked(count, events, values))
+				ret = FAILURE;
+			else
+				ret = SUCCESS;
+			break;
+		}
+	}
+
+/* Cancel the handler.  We only get here if a timeout was specified. */
+
+	ISC_reset_timer(timeout_handler, handler_arg, &user_timer, &user_handler);
+
+	return ret;
+#endif /* PIPE_IS_SHRLIB */
+}
+#endif /* EVENTS */
+#endif /* UNIX */
+
+
+#ifndef PIPE_IS_SHRLIB
+#ifdef VMS
+#define EVENTS
+int ISC_event_blocked(USHORT count, EVENT * events, SLONG * values)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ b l o c k e d	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	If a wait would block, return TRUE.
+ *
+ **************************************/
+
+	for (; count; --count, events++, values++)
+		if ((*events)->event_count >= *values)
+			return FALSE;
+
+	return TRUE;
+}
+
+
+SLONG ISC_event_clear(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ c l e a r	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear an event preparatory to waiting on it.  The order of
+ *	battle for event synchronization is:
+ *
+ *	    1.  Clear event.
+ *	    2.  Test data structure for event already completed
+ *	    3.  Wait on event.
+ *
+ **************************************/
+
+	return event->event_count + 1;
+}
+
+
+int ISC_event_init(EVENT event, int semid, int semnum)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ i n i t	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare an event object for use.
+ *
+ **************************************/
+
+#ifndef GATEWAY
+	gds__wake_init();
+#else
+	ISC_wake_init();
+#endif
+	event->event_count = 0;
+	event->event_pid = getpid();
+
+	return TRUE;
+}
+
+
+int ISC_event_post(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ p o s t	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an event to wake somebody else up.
+ *
+ **************************************/
+	int status;
+
+	++event->event_count;
+	ISC_wake(event->event_pid);
+
+	return 0;
+}
+
+
+int ISC_event_wait(
+				   SSHORT count,
+				   EVENT * events,
+				   SLONG * values,
+				   SLONG micro_seconds,
+				   void (*timeout_handler) (), void *handler_arg)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ w a i t	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait on an event.
+ *
+ **************************************/
+	WAIT wait;
+
+	if (!ISC_event_blocked(count, events, values))
+		return 0;
+
+	wait.wait_count = count;
+	wait.wait_events = events;
+	wait.wait_values = values;
+	gds__thread_wait(event_test, &wait);
+
+	return 0;
+}
+#endif
+
+
+#ifdef WIN_NT
+
+#define EVENTS
+int ISC_event_blocked(USHORT count, EVENT * events, SLONG * values)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ b l o c k e d	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	If a wait would block, return TRUE.
+ *
+ **************************************/
+
+	for (; count > 0; --count, ++events, ++values)
+		if (!(*events)->event_shared) {
+			if ((*events)->event_count >= *values)
+				return FALSE;
+		}
+		else {
+			if ((*events)->event_shared->event_count >= *values)
+				return FALSE;
+		}
+
+	return TRUE;
+}
+
+
+SLONG DLL_EXPORT ISC_event_clear(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ c l e a r	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear an event preparatory to waiting on it.  The order of
+ *	battle for event synchronization is:
+ *
+ *	    1.  Clear event.
+ *	    2.  Test data structure for event already completed
+ *	    3.  Wait on event.
+ *
+ **************************************/
+
+	ResetEvent((HANDLE) event->event_handle);
+
+	if (!event->event_shared)
+		return event->event_count + 1;
+	else
+		return event->event_shared->event_count + 1;
+}
+
+
+void ISC_event_fini(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ f i n i	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Discard an event object.
+ *
+ **************************************/
+
+	CloseHandle((HANDLE) event->event_handle);
+}
+
+
+int DLL_EXPORT ISC_event_init(EVENT event, int type, int semnum)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ i n i t	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare an event object for use.
+ *
+ **************************************/
+
+	event->event_pid = process_id = getpid();
+	event->event_count = 0;
+	event->event_type = type;
+	event->event_shared = NULL;
+
+	if (!
+		(event->event_handle =
+		 ISC_make_signal(TRUE, TRUE, process_id, type))) return FALSE;
+
+	return TRUE;
+}
+
+
+int ISC_event_init_shared(
+						  EVENT lcl_event,
+						  int type,
+						  TEXT * name, EVENT shr_event, USHORT init_flag)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ i n i t _ s h a r e	d	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare an event object for use.
+ *
+ **************************************/
+	TEXT event_name[MAXPATHLEN], type_name[16];
+
+	lcl_event->event_pid = process_id = getpid();
+	lcl_event->event_count = 0;
+	lcl_event->event_type = type;
+	lcl_event->event_shared = shr_event;
+
+	sprintf(type_name, "_event%d", type);
+	make_object_name(event_name, name, type_name);
+	if (!
+		(lcl_event->event_handle =
+		 CreateEvent(ISC_get_security_desc(), TRUE, FALSE,
+					 event_name))) return FALSE;
+
+	if (init_flag) {
+		shr_event->event_pid = 0;
+		shr_event->event_count = 0;
+		shr_event->event_type = type;
+		shr_event->event_handle = NULL;
+		shr_event->event_shared = NULL;
+	}
+
+	return TRUE;
+}
+
+
+int DLL_EXPORT ISC_event_post(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ p o s t	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an event to wake somebody else up.
+ *
+ **************************************/
+
+	if (!event->event_shared)
+		++event->event_count;
+	else
+		++event->event_shared->event_count;
+
+	if (event->event_pid != process_id)
+		ISC_kill(event->event_pid, event->event_type, event->event_handle);
+	else
+		SetEvent((HANDLE) event->event_handle);
+
+	return 0;
+}
+
+
+int DLL_EXPORT ISC_event_wait(
+							  SSHORT count,
+							  EVENT * events,
+							  SLONG * values,
+							  SLONG micro_seconds,
+void (*timeout_handler) (), void *handler_arg)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ w a i t	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait on an event.
+ *
+ **************************************/
+
+	EVENT *ptr, *end;
+	HANDLE handles[16], *handle_ptr;
+	SLONG timeout;
+
+	/* If we're not blocked, the rest is a gross waste of time */
+
+	if (!ISC_event_blocked(count, events, values)) {
+		return 0;
+	}
+
+	for (ptr = events, end = events + count, handle_ptr = handles; ptr < end;) {
+		*handle_ptr++ = (*ptr++)->event_handle;
+	}
+
+	/* Go into wait loop */
+
+	timeout = (micro_seconds > 0) ? micro_seconds / 1000 : INFINITE;
+
+	for (;;) {
+		if (!ISC_event_blocked(count, events, values)) {
+			return 0;
+		}
+
+		const DWORD status =
+			WaitForMultipleObjects((DWORD) count, handles, TRUE, timeout);
+
+		if (!((status >= WAIT_OBJECT_0) && (status < WAIT_OBJECT_0 + count))) {
+			return status;
+		}
+	}
+}
+
+#endif // WIN_NT
+
+
+#ifdef NETWARE_386
+#define EVENTS
+int ISC_event_blocked(USHORT count, EVENT * events, SLONG * values)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ b l o c k e d	( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	If a wait would block, return TRUE.
+ *
+ **************************************/
+
+	for (; count > 0; --count, ++events, ++values)
+		if ((*events)->event_count >= *values)
+			return FALSE;
+
+	return TRUE;
+}
+
+
+SLONG ISC_event_clear(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ c l e a r	( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear an event preparatory to waiting on it.  The order of
+ *	battle for event synchronization is:
+ *
+ *	    1.  Clear event.
+ *	    2.  Test data structure for event already completed
+ *	    3.  Wait on event.
+ *
+ **************************************/
+	SLONG val;
+
+	EnterCritSec();
+	val = ExamineLocalSemaphore(event->event_semid);
+	while (val > 0) {
+		WaitOnLocalSemaphore(event->event_semid);
+		val--;
+	}
+
+	ExitCritSec();
+
+	return event->event_count + 1;
+}
+
+
+void ISC_event_fini(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ f i n i	( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Discard an event object.
+ *
+ **************************************/
+
+	if (event->event_semid == 0)
+		return;
+
+	ISC_semaphore_close(event->event_semid);
+}
+
+
+int ISC_event_init(EVENT event, ULONG * semaphores, int semnum)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ i n i t	( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare an event object for use.
+ *
+ **************************************/
+
+	if (semaphores == 0)
+		ISC_semaphore_open(&event->event_semid, 0);
+	else
+		event->event_semid = semaphores[semnum];
+
+	event->event_count = 0;
+
+	return TRUE;
+}
+
+
+int ISC_event_post(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ p o s t	( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an event to wake somebody else up.
+ *
+ **************************************/
+	SLONG val;
+
+	++event->event_count;
+	EnterCritSec();
+	val = ExamineLocalSemaphore(event->event_semid);
+	while (val < 0) {
+		SignalLocalSemaphore(event->event_semid);
+		val++;
+	}
+
+	ExitCritSec();
+
+	return 0;
+}
+
+
+int ISC_event_wait(
+				   SSHORT count,
+				   EVENT * events,
+				   SLONG * values,
+				   SLONG micro_seconds,
+				   void (*timeout_handler) (), void *handler_arg)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ w a i t	( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait on an event.
+ *
+ **************************************/
+	ULONG timeout;
+	SLONG val;
+
+/* If we're not blocked, the rest is a gross waste of time */
+
+	if (!ISC_event_blocked(count, events, values))
+		return SUCCESS;
+
+	for (;;) {
+		if (!ISC_event_blocked(count, events, values))
+			return SUCCESS;
+		if (micro_seconds <= 0)
+			WaitOnLocalSemaphore((*events)->event_semid);
+		else {
+			timeout = micro_seconds / 1000;
+			val = TimedWaitOnLocalSemaphore((*events)->event_semid, timeout);
+			if (val != 0)
+				if (ISC_event_blocked(count, events, values))
+					return (FAILURE);
+		}
+	}
+}
+#endif
+
+
+#ifndef REQUESTER
+#ifndef EVENTS
+int ISC_event_blocked(USHORT count, EVENT * events, SLONG * values)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ b l o c k e d	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	If a wait would block, return TRUE.
+ *
+ **************************************/
+	return 0;
+}
+
+
+SLONG DLL_EXPORT ISC_event_clear(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ c l e a r	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear an event preparatory to waiting on it.  The order of
+ *	battle for event synchronization is:
+ *
+ *	    1.  Clear event.
+ *	    2.  Test data structure for event already completed
+ *	    3.  Wait on event.
+ *
+ **************************************/
+
+	return 0L;
+}
+
+
+int DLL_EXPORT ISC_event_init(EVENT event, int semid, int semnum)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ i n i t	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare an event object for use.  Return FALSE if not
+ *	supported.
+ *
+ **************************************/
+
+	return FALSE;
+}
+
+
+int DLL_EXPORT ISC_event_post(EVENT event)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ p o s t	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an event to wake somebody else up.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int DLL_EXPORT ISC_event_wait(
+							  SSHORT count,
+							  EVENT * events,
+							  SLONG * values,
+							  SLONG micro_seconds,
+void (*timeout_handler) (), void *handler_arg)
+{
+/**************************************
+ *
+ *	I S C _ e v e n t _ w a i t	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait on an event.
+ *
+ **************************************/
+
+	return 0;
+}
+#endif
+#endif
+
+
+#ifdef SUPERSERVER
+#ifdef UNIX
+void ISC_exception_post(ULONG sig_num, TEXT * err_msg)
+{
+/**************************************
+ *
+ *	I S C _ e x c e p t i o n _ p o s t ( U N I X )  
+ *
+ **************************************
+ *
+ * Functional description
+ *     When we got a sync exception, fomulate the error code	
+ *     write it to the log file, and abort.
+ *
+ **************************************/
+	TEXT *log_msg;
+
+	if (!SCH_thread_enter_check())
+		THREAD_ENTER;
+
+	if (err_msg)
+		log_msg = (TEXT *) gds__alloc(strlen(err_msg) + 256);
+
+	switch (sig_num) {
+	case SIGSEGV:
+		sprintf(log_msg, "%s Segmentation Fault.\n"
+				"\t\tThe code attempted to access memory\n"
+				"\t\twithout privilege to do so.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case SIGBUS:
+		sprintf(log_msg, "%s Bus Error.\n"
+				"\t\tThe code caused a system bus error.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case SIGILL:
+
+		sprintf(log_msg, "%s Illegal Instruction.\n"
+				"\t\tThe code attempted to perfrom an\n"
+				"\t\tillegal operation."
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+
+	case SIGFPE:
+		sprintf(log_msg, "%s Floating Point Error.\n"
+				"\t\tThe code caused an arithmetic exception\n"
+				"\t\tor floating point exception."
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	default:
+		sprintf(log_msg, "%s Unknown Exception.\n"
+				"\t\tException number %d."
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg, sig_num);
+		break;
+	}
+
+	if (err_msg) {
+		gds__log(log_msg);
+		gds__free(log_msg);
+	}
+	abort();
+}
+#endif /* UNIX */
+
+
+#ifdef WIN_NT
+ULONG ISC_exception_post(ULONG except_code, TEXT * err_msg)
+{
+/**************************************
+ *
+ *	I S C _ e x c e p t i o n _ p o s t ( W I N _ N T )  
+ *
+ **************************************
+ *
+ * Functional description
+ *     When we got a sync exception, fomulate the error code	
+ *     write it to the log file, and abort. Note: We can not
+ *     actually call "abort" since in windows this will cause
+ *     a dialog to appear stating the obvious!  Since on NT we
+ *     would not get a core file, there is actually no difference
+ *     between abort() and exit(3). 
+ *
+ **************************************/
+	TEXT *log_msg;
+
+	if (!SCH_thread_enter_check())
+		THREAD_ENTER;
+
+	if (err_msg)
+		log_msg = (TEXT *) gds__alloc(strlen(err_msg) + 256);
+
+	switch (except_code) {
+	case EXCEPTION_ACCESS_VIOLATION:
+		sprintf(log_msg, "%s Access violation.\n"
+				"\t\tThe code attempted to access a virtual\n"
+				"\t\taddress without privilege to do so.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case EXCEPTION_DATATYPE_MISALIGNMENT:
+		sprintf(log_msg, "%s Datatype misalignment.\n"
+				"\t\tThe attempted to read or write a value\n"
+				"\t\tthat was not stored on a memory boundary.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case EXCEPTION_ARRAY_BOUNDS_EXCEEDED:
+		sprintf(log_msg, "%s Array bounds exceeded.\n"
+				"\t\tThe code attempted to access an array\n"
+				"\t\telement that is out of bounds.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case EXCEPTION_FLT_DENORMAL_OPERAND:
+		sprintf(log_msg, "%s Float denormal operand.\n"
+				"\t\tOne of the floating-point operands is too\n"
+				"\t\tsmall to represent as a standard floating-point\n"
+				"\t\tvalue.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case EXCEPTION_FLT_DIVIDE_BY_ZERO:
+		sprintf(log_msg, "%s Floating-point divide by zero.\n"
+				"\t\tThe code attempted to divide a floating-point\n"
+				"\t\tvalue by a floating-point divisor of zero.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case EXCEPTION_FLT_INEXACT_RESULT:
+		sprintf(log_msg, "%s Floating-point inexact result.\n"
+				"\t\tThe result of a floating-point operation cannot\n"
+				"\t\tbe represented exactly as a decimal fraction.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case EXCEPTION_FLT_INVALID_OPERATION:
+		sprintf(log_msg, "%s Floating-point invalid operand.\n"
+				"\t\tAn indeterminant error occurred during a\n"
+				"\t\tfloating-point operation.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case EXCEPTION_FLT_OVERFLOW:
+		sprintf(log_msg, "%s Floating-point overflow.\n"
+				"\t\tThe exponent of a floating-point operation\n"
+				"\t\tis greater than the magnitude allowed.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case EXCEPTION_FLT_STACK_CHECK:
+		sprintf(log_msg, "%s Floating-point stack check.\n"
+				"\t\tThe stack overflowed or underflowed as the\n"
+				"result of a floating-point operation.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case EXCEPTION_FLT_UNDERFLOW:
+		sprintf(log_msg, "%s Floating-point underflow.\n"
+				"\t\tThe exponent of a floating-point operation\n"
+				"\t\tis less than the magnitude allowed.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case EXCEPTION_INT_DIVIDE_BY_ZERO:
+		sprintf(log_msg, "%s Integer divide by zero.\n"
+				"\t\tThe code attempted to divide an integer value\n"
+				"\t\tby an integer divisor of zero.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case EXCEPTION_INT_OVERFLOW:
+		sprintf(log_msg, "%s Interger overflow.\n"
+				"\t\tThe result of an integer operation caused the\n"
+				"\t\tmost significant bit of the result to carry.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg);
+		break;
+	case EXCEPTION_STACK_OVERFLOW:
+		ERR_post(isc_exception_stack_overflow, 0);
+		/* This will never be called, but to be safe it's here */
+		return EXCEPTION_CONTINUE_EXECUTION;
+
+	case EXCEPTION_BREAKPOINT:
+	case EXCEPTION_SINGLE_STEP:
+	case EXCEPTION_NONCONTINUABLE_EXCEPTION:
+	case EXCEPTION_INVALID_DISPOSITION:
+	case EXCEPTION_PRIV_INSTRUCTION:
+	case EXCEPTION_IN_PAGE_ERROR:
+	case EXCEPTION_ILLEGAL_INSTRUCTION:
+	case EXCEPTION_GUARD_PAGE:
+		/* Pass these exception on to someone else,
+		   probably the OS or the debugger, since there
+		   isn't a dam thing we can do with them */
+		free(log_msg);
+		return EXCEPTION_CONTINUE_SEARCH;
+	default:
+		sprintf(log_msg, "%s An exception occurred that does\n"
+				"\t\tnot have a description.  Exception number %X.\n"
+				"\tThis exception will cause the InterBase server\n"
+				"\tto terminate abnormally.", err_msg, except_code);
+		break;
+	}
+	if (err_msg) {
+		gds__log(log_msg);
+		gds__free(log_msg);
+	}
+	exit(3);
+}
+
+#endif /* WIN_NT */
+#endif /* SUPERSERVER */
+
+
+#ifdef WIN_NT
+void *ISC_make_signal(
+					  BOOLEAN create_flag,
+					  BOOLEAN manual_reset, int process_id, int signal_number)
+{
+/**************************************
+ *
+ *	I S C _ m a k e _ s i g n a l		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create or open a Windows/NT event.
+ *	Use the signal number and process id
+ *	in naming the object.
+ *
+ **************************************/
+	TEXT event_name[64];
+
+	if (!signal_number)
+		return CreateEvent(NULL, manual_reset, FALSE, NULL);
+
+	sprintf(event_name, "_interbase_process%u_signal%d", process_id,
+			signal_number);
+	return (create_flag) ? CreateEvent(ISC_get_security_desc(), manual_reset,
+									   FALSE,
+									   event_name) :
+		OpenEvent(EVENT_ALL_ACCESS, TRUE, event_name);
+}
+#endif
+
+
+#ifdef VMS
+#define ISC_MAP_FILE_DEFINED
+UCHAR *ISC_map_file(STATUS * status_vector,
+					TEXT * filename,
+					void (*init_routine) (void *, struct sh_mem *, int),
+					void *init_arg, SLONG length, SH_MEM shmem_data)
+{
+/**************************************
+ *
+ *	I S C _ m a p _ f i l e		( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to map a given file.  If we are the first (i.e. only)
+ *	process to map the file, call a given initialization
+ *	routine (if given) or punt (leaving the file unmapped).
+ *
+ **************************************/
+	SLONG inadr[2], retadr[2], flags;
+	TEXT section[64], *p, *q, expanded_filename[MAXPATHLEN], temp[MAXPATHLEN],
+		hostname[64];
+	STATUS status;
+	struct FAB fab;
+	struct XABPRO xab;
+	struct dsc$descriptor_s desc;
+
+	if (length < 0)
+		length = -length;
+
+	if (length == 0) {
+		/* Must be able to handle case where zero length passed in. */
+
+		ib_fprintf(ib_stderr, "Unimplemented feature in ISC_map_file.\n");
+		abort();
+	}
+
+	gds__prefix(temp, filename);
+	sprintf(expanded_filename, temp,
+			ISC_get_host(hostname, sizeof(hostname)));
+
+/* Find section name */
+
+	q = expanded_filename;
+
+	for (p = expanded_filename; *p; p++)
+		if (*p == ':' || *p == ']')
+			q = p + 1;
+
+	for (p = section; *q && *q != '.';)
+		*p++ = *q++;
+
+	*p = 0;
+
+/* Setup to open the file */
+
+	fab = cc$rms_fab;
+	fab.fab$l_fna = expanded_filename;
+	fab.fab$b_fns = strlen(expanded_filename);
+	fab.fab$l_fop = FAB$M_UFO;
+	fab.fab$l_alq = length / 512;
+	fab.fab$b_fac = FAB$M_UPD | FAB$M_PUT;
+	fab.fab$b_shr = FAB$M_SHRGET | FAB$M_SHRPUT | FAB$M_UPI;
+	fab.fab$b_rfm = FAB$C_UDF;
+
+/* Setup to create or map the file */
+
+	inadr[0] = inadr[1] = 0;
+	ISC_make_desc(section, &desc, 0);
+	flags = SEC$M_GBL | SEC$M_EXPREG | SEC$M_WRT |
+		((shmem_data->sh_mem_system_flag) ? 0 : SEC$M_SYSGBL);
+
+	if (init_routine) {
+		/* If we're a server, start by opening file.
+		   If we can't open it, create it. */
+
+		status = sys$open(&fab);
+
+		if (!(status & 1)) {
+			fab.fab$l_xab = &xab;
+			xab = cc$rms_xabpro;
+			xab.xab$w_pro =
+				(XAB$M_NOEXE << XAB$V_SYS) | (XAB$M_NOEXE << XAB$V_OWN) |
+				(XAB$M_NOEXE << XAB$V_GRP) | (XAB$M_NODEL << XAB$V_GRP) |
+				(XAB$M_NOEXE << XAB$V_WLD) | (XAB$M_NODEL << XAB$V_WLD);
+
+			status = sys$create(&fab);
+
+			if (!(status & 1)) {
+				error(status_vector, "sys$create", status);
+				return NULL;
+			}
+		}
+
+		/* Create and map section */
+
+		status = sys$crmpsc(inadr, retadr, 0,	/* acmode */
+							flags,	/* flags */
+							&desc,	/* gsdnam */
+							0,	/* ident */
+							0,	/* relpag */
+							fab.fab$l_stv,	/* chan */
+							length / 512, 0,	/* vbm */
+							0,	/* prot */
+							0);	/* pfc */
+
+		if (!(status & 1)) {
+			if (status == SS$_CREATED)
+				sys$deltva(retadr, 0, 0);
+			sys$dassgn(fab.fab$l_stv);
+			error(status_vector, "sys$crmpsc", status);
+			return NULL;
+		}
+	}
+	else {
+		/* We're not a server, just map the global section */
+
+		status = sys$mgblsc(inadr, retadr, 0,	/* acmode */
+							flags,	/* flags */
+							&desc,	/* gsdnam */
+							0,	/* ident */
+							0);	/* relpag */
+
+		if (!(status & 1)) {
+			error(status_vector, "sys$mgblsc", status);
+			return NULL;
+		}
+	}
+
+	shmem_data->sh_mem_address = retadr[0];
+	shmem_data->sh_mem_length_mapped = length;
+	shmem_data->sh_mem_retadr[0] = retadr[0];
+	shmem_data->sh_mem_retadr[0] = retadr[1];
+	shmem_data->sh_mem_channel = fab.fab$l_stv;
+	strcpy(shmem_data->sh_mem_filename, expanded_filename);
+	if (init_routine)
+		(*init_routine) (init_arg, shmem_data, status == SS$_CREATED);
+
+	return (UCHAR *) retadr[0];
+}
+#endif
+
+
+#ifdef UNIX
+#ifdef MMAP_SUPPORTED
+#define ISC_MAP_FILE_DEFINED
+UCHAR *ISC_map_file(STATUS * status_vector,
+					TEXT * filename,
+					void (*init_routine) (void *, struct sh_mem *, int),
+					void *init_arg, SLONG length, SH_MEM shmem_data)
+{
+/**************************************
+ *
+ *	I S C _ m a p _ f i l e		( U N I X - m m a p )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to map a given file.  If we are the first (i.e. only)
+ *	process to map the file, call a given initialization
+ *	routine (if given) or punt (leaving the file unmapped).
+ *
+ **************************************/
+	TEXT expanded_filename[MAXPATHLEN], hostname[64];
+	TEXT tmp[MAXPATHLEN];
+	TEXT init_filename[MAXPATHLEN];	/* to hold the complete filename
+									   of the init file. */
+	UCHAR *address;
+	SLONG key, semid;
+	int oldmask, fd, excl_flag;
+	int fd_init;				/* filedecr. for the init file */
+	USHORT trunc_flag;
+	struct stat file_stat;
+	union semun arg;
+#ifdef NO_FLOCK
+	struct flock lock;
+#endif
+
+	sprintf(expanded_filename, filename,
+			ISC_get_host(hostname, sizeof(hostname)));
+
+/* make the complete filename for the init file this file is to be used as a 
+   master lock to eliminate possible race conditions with just a single file
+   locking. The race condition is caused as the conversion of a EXCLUSIVE 
+   lock to a SHARED lock is not atomic*/
+
+	gds__prefix_lock(tmp, INIT_FILE);
+	sprintf(init_filename, tmp, hostname);	/* already have the hostname! */
+
+	oldmask = umask(0);
+	if (length < 0) {
+		length = -length;
+		trunc_flag = FALSE;
+	}
+	else
+		trunc_flag = TRUE;
+
+/* Produce shared memory key for file */
+
+	if (!(key = find_key(status_vector, expanded_filename))) {
+		umask(oldmask);
+		return NULL;
+	}
+
+/* open the init lock file */
+	fd_init = open(init_filename, O_RDWR | O_CREAT, 0666);
+	if (fd_init == -1) {
+		error(status_vector, "open", errno);
+		return NULL;
+	}
+
+#ifdef NO_FLOCK
+/* get an exclusive lock on the INIT file with a block */
+	lock.l_type = F_WRLCK;
+	lock.l_whence = 0;
+	lock.l_start = 0;
+	lock.l_len = 0;
+	if (fcntl(fd_init, F_SETLKW, &lock) == -1) {
+		error(status_vector, "fcntl", errno);
+		close(fd_init);
+		return NULL;
+	}
+#else
+/* get an flock exclusive on the INIT file with blocking */
+	if (flock(fd_init, LOCK_EX)) {
+		/* we failed to get an exclusive lock return back */
+		error(status_vector, "flock", errno);
+		close(fd_init);
+		return NULL;
+	}
+#endif
+/* open the file to be inited */
+	fd = open(expanded_filename, O_RDWR | O_CREAT, 0666);
+	umask(oldmask);
+
+	if (fd == -1) {
+		error(status_vector, "open", errno);
+#ifndef NO_FLOCK
+		/* unlock init file */
+		flock(fd_init, LOCK_UN);
+#else
+		lock.l_type = F_UNLCK;
+		lock.l_whence = 0;
+		lock.l_start = 0;
+		lock.l_len = 0;
+		fcntl(fd_init, F_SETLK, &lock);
+#endif
+		close(fd_init);
+		return NULL;
+	}
+
+	if (length == 0) {
+		/* Get and use the existing length of the shared segment */
+
+		if (fstat(fd, &file_stat) == -1) {
+			error(status_vector, "fstat", errno);
+			close(fd);
+#ifndef NO_FLOCK
+			/* unlock init file */
+			flock(fd_init, LOCK_UN);
+#else
+			lock.l_type = F_UNLCK;
+			lock.l_whence = 0;
+			lock.l_start = 0;
+			lock.l_len = 0;
+			fcntl(fd_init, F_SETLK, &lock);
+#endif
+			close(fd_init);		/* while we are at it close the init file also */
+			return NULL;
+		}
+		length = file_stat.st_size;
+	}
+
+
+#ifdef DECOSF
+/* Try to get an exclusive lock on the lock file.  If we succeed,
+   then try to set the length of the file.  Otherwise the mmap call
+   that follows will fail. */
+
+	excl_flag = flock(fd, LOCK_EX | LOCK_NB);
+	if (!excl_flag && init_routine && trunc_flag)
+		ftruncate(fd, length);
+#endif
+
+	address =
+		(UCHAR *) mmap(0, length, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0);
+
+	if ((U_IPTR) address == -1) {
+		error(status_vector, "mmap", errno);
+#ifdef DECOSF
+		flock(fd, LOCK_UN);
+#endif
+		close(fd);
+#ifndef NO_FLOCK
+		/* unlock init file */
+		flock(fd_init, LOCK_UN);
+#else
+		lock.l_type = F_UNLCK;
+		lock.l_whence = 0;
+		lock.l_start = 0;
+		lock.l_len = 0;
+		fcntl(fd_init, F_SETLK, &lock);
+#endif
+
+		close(fd_init);
+		return NULL;
+	}
+
+/* Get semaphore for mutex */
+
+#if !(defined SOLARIS_MT || defined POSIX_THREADS)
+	if (shmem_data->sh_mem_semaphores &&
+		(semid =
+		 init_semaphores(status_vector, key,
+						 shmem_data->sh_mem_semaphores)) < 0) {
+#ifdef DECOSF
+		flock(fd, LOCK_UN);
+#endif
+		close(fd);
+#ifndef NO_FLOCK
+		/* unlock init file */
+		flock(fd_init, LOCK_UN);
+#else
+		lock.l_type = F_UNLCK;
+		lock.l_whence = 0;
+		lock.l_start = 0;
+		lock.l_len = 0;
+		fcntl(fd, F_SETLK, &lock);
+#endif
+		close(fd_init);
+		return NULL;
+	}
+#endif
+
+	shmem_data->sh_mem_address = address;
+	shmem_data->sh_mem_length_mapped = length;
+
+#if !(defined SOLARIS_MT || defined POSIX_THREADS)
+	shmem_data->sh_mem_mutex_arg = semid;
+#else
+	shmem_data->sh_mem_mutex_arg = 0;
+#endif
+
+	shmem_data->sh_mem_handle = fd;
+
+/* Try to get an exclusive lock on the lock file.  This will
+   fail if somebody else has the exclusive lock */
+
+#ifndef NO_FLOCK
+#ifndef DECOSF
+	if (!flock(fd, LOCK_EX | LOCK_NB))
+#else
+	if (!excl_flag)
+#endif
+	{
+		if (!init_routine) {
+			/* unlock both files */
+			flock(fd, LOCK_UN);
+			flock(fd_init, LOCK_UN);
+#else
+	lock.l_type = F_WRLCK;
+	lock.l_whence = 0;
+	lock.l_start = 0;
+	lock.l_len = 0;
+	if (fcntl(fd, F_SETLK, &lock) != -1) {
+		if (!init_routine) {
+			/* unlock the file and the init file to release the other process */
+			lock.l_type = F_UNLCK;
+			lock.l_whence = 0;
+			lock.l_start = 0;
+			lock.l_len = 0;
+			fcntl(fd, F_SETLK, &lock);
+
+			lock.l_type = F_UNLCK;
+			lock.l_whence = 0;
+			lock.l_start = 0;
+			lock.l_len = 0;
+			fcntl(fd_init, F_SETLK, &lock);
+#endif
+			munmap((char *) address, length);
+			close(fd);
+			close(fd_init);
+			*status_vector++ = gds_arg_gds;
+			*status_vector++ = gds__unavailable;
+			*status_vector++ = gds_arg_end;
+			return NULL;
+		}
+		if (trunc_flag)
+			ftruncate(fd, length);
+		(*init_routine) (init_arg, shmem_data, TRUE);
+#ifndef NO_FLOCK
+		if (flock(fd, LOCK_SH)) {
+			error(status_vector, "flock", errno);
+			flock(fd, LOCK_UN);
+			flock(fd_init, LOCK_UN);
+#else
+#ifdef DGUX
+		/* Allow for DG bug which doesn't convert the write lock to a
+		   read lock.  Therefore, release the lock completely and then
+		   wait for a read lock. */
+
+		lock.l_type = F_UNLCK;
+		lock.l_whence = 0;
+		lock.l_start = 0;
+		lock.l_len = 0;
+		if (fcntl(fd, F_SETLK, &lock) == -1) {
+			error(status_vector, "fcntl", errno);
+			munmap(address, length);
+			close(fd_init);
+			close(fd);
+			return NULL;
+		}
+#endif
+		lock.l_type = F_RDLCK;
+		lock.l_whence = 0;
+		lock.l_start = 0;
+		lock.l_len = 0;
+#ifdef DGUX
+		if (fcntl(fd, F_SETLKW, &lock) == -1)
+#else
+		if (fcntl(fd, F_SETLK, &lock) == -1)
+#endif
+		{
+			error(status_vector, "fcntl", errno);
+			/* unlock the file */
+			lock.l_type = F_UNLCK;
+			lock.l_whence = 0;
+			lock.l_start = 0;
+			lock.l_len = 0;
+			fcntl(fd, F_SETLK, &lock);
+
+			/* unlock the init file to release the other process */
+			lock.l_type = F_UNLCK;
+			lock.l_whence = 0;
+			lock.l_start = 0;
+			lock.l_len = 0;
+			fcntl(fd_init, F_SETLK, &lock);
+#endif
+			munmap((char *) address, length);
+
+			close(fd_init);
+			close(fd);
+			return NULL;
+		}
+	}
+	else {
+#ifndef NO_FLOCK
+		if (flock(fd, LOCK_SH)) {
+			error(status_vector, "flock", errno);
+			flock(fd, LOCK_UN);
+			flock(fd_init, LOCK_UN);
+#else
+		lock.l_type = F_RDLCK;
+		lock.l_whence = 0;
+		lock.l_start = 0;
+		lock.l_len = 0;
+		if (fcntl(fd, F_SETLK, &lock) == -1) {
+			error(status_vector, "fcntl", errno);
+			/* unlock the file */
+			lock.l_type = F_UNLCK;
+			lock.l_whence = 0;
+			lock.l_start = 0;
+			lock.l_len = 0;
+			fcntl(fd, F_SETLK, &lock);
+
+			/* unlock the init file to release the other process */
+			lock.l_type = F_UNLCK;
+			lock.l_whence = 0;
+			lock.l_start = 0;
+			lock.l_len = 0;
+			fcntl(fd_init, F_SETLK, &lock);
+#endif
+			munmap((char *) address, length);
+			close(fd_init);
+			close(fd);
+			return NULL;
+		}
+		if (init_routine)
+			(*init_routine) (init_arg, shmem_data, FALSE);
+	}
+
+#ifndef NO_FLOCK
+/* unlock the init file to release the other process */
+	flock(fd_init, LOCK_UN);
+#else
+/* unlock the init file to release the other process */
+	lock.l_type = F_UNLCK;
+	lock.l_whence = 0;
+	lock.l_start = 0;
+	lock.l_len = 0;
+	fcntl(fd_init, F_SETLK, &lock);
+#endif
+/* close the init file_decriptor */
+	close(fd_init);
+	return address;
+}
+#endif
+#endif
+
+
+#ifdef UNIX
+#ifndef MMAP_SUPPORTED
+#define ISC_MAP_FILE_DEFINED
+UCHAR *ISC_map_file(STATUS * status_vector,
+					TEXT * filename,
+					void (*init_routine) (void *, struct sh_mem *, int),
+					void *init_arg, SLONG length, SH_MEM shmem_data)
+{
+/**************************************
+ *
+ *	I S C _ m a p _ f i l e		( U N I X - s h m a t )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to map a given file.  If we are the first (i.e. only)
+ *	process to map the file, call a given initialization
+ *	routine (if given) or punt (leaving the file unmapped).
+ *
+ **************************************/
+	TEXT expanded_filename[512], hostname[64];
+	UCHAR *address;
+	SSHORT count;
+	int init_flag, oldmask;
+	SLONG key, shmid, semid;
+	struct shmid_ds buf;
+	IB_FILE *fp;
+
+#ifdef NOHOSTNAME
+	strcpy(expanded_filename, filename);
+#else
+	sprintf(expanded_filename, filename,
+			ISC_get_host(hostname, sizeof(hostname)));
+#endif
+	oldmask = umask(0);
+	init_flag = FALSE;
+	if (length < 0)
+		length = -length;
+
+/* Produce shared memory key for file */
+
+	if (!(key = find_key(status_vector, expanded_filename))) {
+		umask(oldmask);
+		return NULL;
+	}
+
+/* Write shared memory key into expanded_filename file */
+
+	fp = ib_fopen(expanded_filename, "w");
+	umask(oldmask);
+
+	if (!fp) {
+		error(status_vector, "ib_fopen", errno);
+		return NULL;
+	}
+
+	ib_fprintf(fp, "%ld", key);
+
+/* Get an exclusive lock on the file until the initialization process
+   is complete.  That way potential race conditions are avoided. */
+
+#ifndef sun
+	if (lockf(ib_fileno(fp), F_LOCK, 0)) {
+		error(status_vector, "lockf", errno);
+#else
+	if (flock(ib_fileno(fp), LOCK_EX)) {
+		error(status_vector, "flock", errno);
+#endif
+		ib_fclose(fp);
+		return NULL;
+	}
+
+/* Create the shared memory region if it doesn't already exist. */
+
+	if ((shmid = shmget(key, length, IPC_CREAT | PRIV)) == -1)
+#ifdef SUPERSERVER
+		if (errno == EINVAL) {
+			/* There are two cases when shmget() returns EINVAL error:
+
+			   - "length" is less than the system-imposed minimum or
+			   greater than the system-imposed maximum.
+
+			   - A shared memory identifier exists for "key" but the
+			   size of the segment associated with it is less
+			   than "length" and "length" is not equal to zero.
+
+			   Let's find out what the problem is by getting the 
+			   system-imposed limits.
+			 */
+
+#ifdef HP10
+			struct pst_ipcinfo pst;
+
+			if (pstat_getipc(&pst, sizeof(struct pst_ipcinfo), 1, 0) == -1) {
+				error(status_vector, "pstat_getipc", errno);
+				ib_fclose(fp);
+				return NULL;
+			}
+
+			if ((length < pst.psi_shmmin) || (length > pst.psi_shmmax)) {
+				/* If pstat_getipc did not return an error "errno"
+				   is still EINVAL, exactly what we want.
+				 */
+				error(status_vector, "shmget", errno);
+				ib_fclose(fp);
+				return NULL;
+			}
+#endif /* HP10 */
+
+			/* If we are here then the shared memory segment already
+			   exists and the "length" we specified in shmget() is
+			   bigger than the size of the existing segment. 
+
+			   Because the segment has to exist at this point the
+			   following shmget() does not have IPC_CREAT flag set.
+
+			   We need to get shmid to delete the segment. Because we
+			   do not know the size of the existing segment the easiest
+			   way to get shmid is to attach to the segment with zero
+			   length
+			 */
+			if ((shmid = shmget(key, 0, PRIV)) == -1) {
+				error(status_vector, "shmget", errno);
+				ib_fclose(fp);
+				return NULL;
+			}
+
+			if (shmctl(shmid, IPC_RMID, &buf) == -1) {
+				error(status_vector, "shmctl/IPC_RMID", errno);
+				ib_fclose(fp);
+				return NULL;
+			}
+
+			/* We have just deleted shared memory segment and current
+			   code fragment is an atomic operation (we are holding an
+			   exclusive lock on the "isc_lock1.<machine>" file), so
+			   we use IPC_EXCL flag to get an error if by some miracle
+			   the sagment with the same key is already exists
+			 */
+			if ((shmid = shmget(key, length, IPC_CREAT | IPC_EXCL | PRIV)) ==
+				-1) {
+				error(status_vector, "shmget", errno);
+				ib_fclose(fp);
+				return NULL;
+			}
+		}
+		else					/* if errno != EINVAL) */
+#endif /* SUPERSERVER */
+		{
+			error(status_vector, "shmget", errno);
+			ib_fclose(fp);
+			return NULL;
+		}
+
+#ifdef SUPERSERVER
+/* If we are here there are two possibilities:
+
+   1. we mapped the shared memory segment of the "length" size;
+   2. we mapped the segment of the size less than "length" (but
+      not zero length and bigger than system-imposed minimum);
+
+   We want shared memory segment exactly of the "length" size.
+   Let's find out what the size of the segment is and if it is
+   bigger than length, we remove it and create new one with the
+   size "length".
+   Also, if "length" is zero (that means we have already mapped
+   the existing segment with the zero size) remap the segment 
+   with the existing size 
+*/
+	if (shmctl(shmid, IPC_STAT, &buf) == -1) {
+		error(status_vector, "shmctl/IPC_STAT", errno);
+		ib_fclose(fp);
+		return NULL;
+	}
+
+	assert(length <= buf.shm_segsz);
+	if (length < buf.shm_segsz)
+		if (length) {
+			if (shmctl(shmid, IPC_RMID, &buf) == -1) {
+				error(status_vector, "shmctl/IPC_RMID", errno);
+				ib_fclose(fp);
+				return NULL;
+			}
+
+			if ((shmid = shmget(key, length, IPC_CREAT | IPC_EXCL | PRIV)) ==
+				-1) {
+				error(status_vector, "shmget", errno);
+				ib_fclose(fp);
+				return NULL;
+			}
+		}
+		else {
+			length = buf.shm_segsz;
+			if ((shmid = shmget(key, length, PRIV)) == -1) {
+				error(status_vector, "shmget", errno);
+				ib_fclose(fp);
+				return NULL;
+			}
+		}
+#else /* !SUPERSERVER */
+
+	if (length == 0) {
+		/* Use the existing length.  This should not happen for the 
+		   very first attachment to the shared memory.  */
+
+		if (shmctl(shmid, IPC_STAT, &buf) == -1) {
+			error(status_vector, "shmctl/IPC_STAT", errno);
+			ib_fclose(fp);
+			return NULL;
+		}
+		length = buf.shm_segsz;
+
+		/* Now remap with the new-found length */
+
+		if ((shmid = shmget(key, length, PRIV)) == -1) {
+			error(status_vector, "shmget", errno);
+			ib_fclose(fp);
+			return NULL;
+		}
+	}
+#endif /* SUPERSERVER */
+
+
+#ifdef SHMEM_PICKY
+	if (!next_shared_memory)
+		next_shared_memory = (UCHAR *) sbrk(0) + SHMEM_DELTA;
+	address = (UCHAR *) shmat(shmid, next_shared_memory, SHM_RND);
+	if ((U_IPTR) address != -1)
+#ifndef SYSV_SHMEM
+		next_shared_memory = address + length;
+#else
+#ifndef IMP
+		next_shared_memory = address + length + SHMLBA;
+#else
+		next_shared_memory = address + length + 0x100000;
+#endif
+#endif
+#else
+	address = (UCHAR *) shmat(shmid, NULL, 0);
+#endif
+
+	if ((U_IPTR) address == -1) {
+		error(status_vector, "shmat", errno);
+		ib_fclose(fp);
+		return NULL;
+	}
+
+	if (shmctl(shmid, IPC_STAT, &buf) == -1) {
+		error(status_vector, "shmctl/IPC_STAT", errno);
+		shmdt(address);
+		next_shared_memory -= length;
+		ib_fclose(fp);
+		return NULL;
+	}
+
+/* Get semaphore for mutex */
+
+#ifndef POSIX_THREADS
+	if (shmem_data->sh_mem_semaphores &&
+		(semid =
+		 init_semaphores(status_vector, key,
+						 shmem_data->sh_mem_semaphores)) < 0) {
+		shmdt(address);
+		next_shared_memory -= length;
+		ib_fclose(fp);
+		return NULL;
+	}
+#endif /* POSIX_THREADS */
+
+/* If we're the only one with shared memory mapped, see if
+   we can initialize it.  If we can't, return failure. */
+
+	if (buf.shm_nattch == 1) {
+		if (!init_routine) {
+			shmdt(address);
+			next_shared_memory -= length;
+			ib_fclose(fp);
+			*status_vector++ = gds_arg_gds;
+			*status_vector++ = gds__unavailable;
+			*status_vector++ = gds_arg_end;
+			return NULL;
+		}
+		buf.shm_perm.mode = 0666;
+		shmctl(shmid, IPC_SET, &buf);
+		init_flag = TRUE;
+	}
+
+	shmem_data->sh_mem_address = address;
+	shmem_data->sh_mem_length_mapped = length;
+
+#ifndef POSIX_THREADS
+	shmem_data->sh_mem_mutex_arg = semid;
+#else
+	shmem_data->sh_mem_mutex_arg = 0;
+#endif
+
+	shmem_data->sh_mem_handle = shmid;
+
+	if (init_routine)
+		(*init_routine) (init_arg, shmem_data, init_flag);
+
+/* When the mapped file is closed here, the lock we applied for
+   synchronization will be released. */
+
+	ib_fclose(fp);
+
+	return address;
+}
+#endif // !MMAP_SUPPORTED
+
+#endif // UNIX
+
+
+#ifdef WIN_NT
+#define ISC_MAP_FILE_DEFINED
+UCHAR *DLL_EXPORT ISC_map_file(STATUS * status_vector, TEXT * filename,
+#if 0
+							   // TMN: Parameter is in errors!
+							   void (*init_routine) (void *, struct sh_mem *,
+													 int),
+#else
+							   // MUST of course match header.
+							   FPTR_VOID init_routine,
+#endif
+							   void *init_arg,
+							   SLONG length, SH_MEM shmem_data)
+{
+/**************************************
+ *
+ *	I S C _ m a p _ f i l e		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to map a given file.  If we are the first (i.e. only)
+ *	process to map the file, call a given initialization
+ *	routine (if given) or punt (leaving the file unmapped).
+ *
+ **************************************/
+	TEXT expanded_filename[MAXPATHLEN], hostname[64], *p;
+	TEXT map_file[MAXPATHLEN];
+	HANDLE file_handle, file_obj, event_handle, header_obj;
+	int file_exists, init_flag;
+	DWORD ret_event, fdw_create;
+	int retry_count = 0;
+
+/* To maintain compatibility with the FAT file system we will truncate
+   the host name to 8 characters.  Heaven help us if this creates
+   an ambiguity. */
+
+
+/* retry to attach to mmapped file if the process initializing
+ * dies during initialization.
+ */
+
+  retry:
+	retry_count++;
+
+	ISC_get_host(hostname, sizeof(hostname));
+	hostname[8] = 0;
+	sprintf(map_file, filename, hostname);
+
+	if (length < 0)
+		length = -length;
+
+	file_handle = CreateFile(map_file,
+							 GENERIC_READ | GENERIC_WRITE,
+							 FILE_SHARE_READ | FILE_SHARE_WRITE,
+							 NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
+	if (file_handle == INVALID_HANDLE_VALUE) {
+		error(status_vector, "CreateFile", GetLastError());
+		return NULL;
+	}
+
+/* Check if file already exists */
+
+	file_exists = (GetLastError() == ERROR_ALREADY_EXISTS) ? TRUE : FALSE;
+
+/* Create an event that can be used to determine if someone has already
+   initialized shared memory. */
+
+	make_object_name(expanded_filename, filename, "_event");
+#ifndef CHICAGO_FIXED
+	if (!ISC_is_WinNT())
+		event_handle =
+			CreateMutex(ISC_get_security_desc(), TRUE, expanded_filename);
+	else
+#endif
+		event_handle =
+			CreateEvent(ISC_get_security_desc(), TRUE, FALSE,
+						expanded_filename);
+	if (!event_handle) {
+#ifndef CHICAGO_FIXED
+		if (!ISC_is_WinNT())
+			error(status_vector, "CreateMutex", GetLastError());
+		else
+#endif
+			error(status_vector, "CreateEvent", GetLastError());
+		CloseHandle(file_handle);
+		return NULL;
+	}
+
+	init_flag = (GetLastError() == ERROR_ALREADY_EXISTS) ? FALSE : TRUE;
+
+	if (init_flag && !init_routine) {
+		CloseHandle(event_handle);
+		CloseHandle(file_handle);
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__unavailable;
+		*status_vector++ = gds_arg_end;
+		return NULL;
+	}
+
+	if (length == 0) {
+		/* Get and use the existing length of the shared segment */
+
+		if ((length = GetFileSize(file_handle, NULL)) == -1) {
+			error(status_vector, "GetFileSize", GetLastError());
+			CloseHandle(event_handle);
+			CloseHandle(file_handle);
+			return NULL;
+		}
+	}
+
+/* All but the initializer will wait until the event is set.  That
+ * is done after initialization is complete.
+ * Close the file and wait for the event to be set or time out.
+ * The file may be truncated.
+ */
+
+	CloseHandle(file_handle);
+
+	if (!init_flag) {
+		/* Wait for 10 seconds.  Then retry */
+
+#ifndef CHICAGO_FIXED
+		if (!ISC_is_WinNT()) {
+			ret_event = WaitForSingleObject(event_handle, 10000);
+			ReleaseMutex(event_handle);
+		}
+		else
+#endif
+			ret_event = WaitForSingleObject(event_handle, 10000);
+
+		/* If we timed out, just retry.  It is possible that the
+		 * process doing the initialization died before setting the
+		 * event.
+		 */
+
+		if (ret_event == WAIT_TIMEOUT) {
+			CloseHandle(event_handle);
+			if (retry_count > 10) {
+				error(status_vector, "WaitForSingleObject", GetLastError());
+				return NULL;
+			}
+			goto retry;
+		}
+	}
+
+	if (init_flag && file_exists)
+		fdw_create = TRUNCATE_EXISTING | OPEN_ALWAYS;
+	else
+		fdw_create = OPEN_ALWAYS;
+
+	file_handle = CreateFile(map_file,
+							 GENERIC_READ | GENERIC_WRITE,
+							 FILE_SHARE_READ | FILE_SHARE_WRITE,
+							 NULL, fdw_create, FILE_ATTRIBUTE_NORMAL, NULL);
+	if (file_handle == INVALID_HANDLE_VALUE) {
+		CloseHandle(event_handle);
+		error(status_vector, "CreateFile", GetLastError());
+		return NULL;
+	}
+
+/* Create a file mapping object that will be used to make remapping possible.
+   The current length of real mapped file and its name are saved in it. */
+
+	make_object_name(expanded_filename, filename, "_mapping");
+
+	header_obj = CreateFileMapping((HANDLE) - 1,
+								   ISC_get_security_desc(),
+								   PAGE_READWRITE,
+								   0, 2 * sizeof(SLONG), expanded_filename);
+	if (header_obj == NULL) {
+		error(status_vector, "CreateFileMapping", GetLastError());
+		CloseHandle(event_handle);
+		CloseHandle(file_handle);
+		return NULL;
+	}
+
+	SLONG *header_address =
+		(SLONG *) MapViewOfFile(header_obj, FILE_MAP_WRITE, 0, 0, 0);
+
+	if (header_address == NULL) {
+		error(status_vector, "CreateFileMapping", GetLastError());
+		CloseHandle(header_obj);
+		CloseHandle(event_handle);
+		CloseHandle(file_handle);
+		return NULL;
+	}
+
+/* Set or get the true length of the file depending on whether or not
+   we are the first user. */
+
+	if (init_flag) {
+		header_address[0] = length;
+		header_address[1] = 0;
+	}
+	else
+		length = header_address[0];
+
+/* Create the real file mapping object. */
+
+	for (p = expanded_filename; *p; p++);
+	sprintf(p, "%d", header_address[1]);
+
+	file_obj = CreateFileMapping(file_handle,
+								 ISC_get_security_desc(),
+								 PAGE_READWRITE,
+								 0, length, expanded_filename);
+	if (file_obj == NULL) {
+		error(status_vector, "CreateFileMapping", GetLastError());
+		UnmapViewOfFile(header_address);
+		CloseHandle(header_obj);
+		CloseHandle(event_handle);
+		CloseHandle(file_handle);
+		return NULL;
+	}
+
+	UCHAR *address =
+		(UCHAR *) MapViewOfFile(file_obj, FILE_MAP_WRITE, 0, 0, 0);
+
+	if (address == NULL) {
+		error(status_vector, "CreateFileMapping", GetLastError());
+		CloseHandle(file_obj);
+		UnmapViewOfFile(header_address);
+		CloseHandle(header_obj);
+		CloseHandle(event_handle);
+		CloseHandle(file_handle);
+		return NULL;
+	}
+
+	*p = 0;
+
+	shmem_data->sh_mem_address = address;
+	shmem_data->sh_mem_length_mapped = length;
+	shmem_data->sh_mem_handle = file_handle;
+	shmem_data->sh_mem_object = file_obj;
+	shmem_data->sh_mem_interest = event_handle;
+	shmem_data->sh_mem_hdr_object = header_obj;
+	shmem_data->sh_mem_hdr_address = header_address;
+	strcpy(shmem_data->sh_mem_name, expanded_filename);
+
+	if (init_routine)
+		reinterpret_cast < void (*) (void *, sh_mem *,
+									 int) >(*init_routine) (init_arg,
+															shmem_data,
+															init_flag);
+
+	if (init_flag) {
+		FlushViewOfFile(address, 0);
+#ifndef CHICAGO_FIXED
+		if (!ISC_is_WinNT())
+			ReleaseMutex(event_handle);
+		else
+#endif
+			SetEvent(event_handle);
+		if (SetFilePointer
+			(shmem_data->sh_mem_handle, length, NULL,
+			 FILE_BEGIN) == 0xFFFFFFFF
+			|| !SetEndOfFile(shmem_data->sh_mem_handle)
+			|| !FlushViewOfFile(shmem_data->sh_mem_address, 0)) {
+			error(status_vector, "SetFilePointer", GetLastError());
+			return NULL;
+		}
+	}
+
+	return address;
+}
+#endif
+
+
+#ifdef NETWARE_386
+#define ISC_MAP_FILE_DEFINED
+UCHAR *ISC_map_file(STATUS * status_vector,
+					TEXT * filename,
+					void (*init_routine) (void *, struct sh_mem *, int),
+					void *init_arg, SLONG length, SH_MEM shmem_data)
+{
+/**************************************
+ *
+ *	I S C _ m a p _ f i l e		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to map a given file.  If we are the first (i.e. only)
+ *	process to map the file, call a given initialization
+ *	routine (if given) or punt (leaving the file unmapped).
+ *
+ **************************************/
+	void *address;
+	ULONG *semaphores;
+	ULONG i;
+	SHR_MEM_HNDL handle;
+	int init_flag;
+
+	if (length < 0)
+		length = -length;
+
+	ISC_mutex_lock(SYNC_MUTEX);
+
+	for (handle = shared_memory_handles; handle != NULL;
+		 handle = handle->next) if (strcmp(handle->file_name, filename) == 0)
+			break;
+
+	if (handle != NULL)
+		init_flag = FALSE;
+	else {
+		if (length == 0) {
+			ISC_mutex_unlock(SYNC_MUTEX);
+			status_vector[0] = gds_arg_gds;
+			status_vector[1] = gds__virmemexh;
+			status_vector[2] = gds_arg_end;
+			return (NULL);
+		}
+
+		init_flag = TRUE;
+
+		address = gds__alloc(length);
+		/* FREE: ?by ISC_remap_file? */
+		if (!address) {			/* NOMEM: */
+			status_vector[0] = gds_arg_gds;
+			status_vector[1] = gds__virmemexh;
+			status_vector[2] = gds_arg_end;
+			ISC_mutex_unlock(SYNC_MUTEX);
+			return (NULL);
+		}
+
+		if (shmem_data->sh_mem_semaphores > 0) {
+			semaphores =
+				gds__alloc(shmem_data->sh_mem_semaphores * sizeof(ULONG));
+			/* FREE: unknown */
+			if (!semaphores) {	/* NOMEM: */
+				gds__free(address);
+				status_vector[0] = gds_arg_gds;
+				status_vector[1] = gds__virmemexh;
+				status_vector[2] = gds_arg_end;
+				ISC_mutex_unlock(SYNC_MUTEX);
+				return (NULL);
+			}
+			for (i = 0; i < shmem_data->sh_mem_semaphores; i++)
+				ISC_semaphore_open(&semaphores[i], 1);
+		}
+		else
+			semaphores = NULL;
+
+		handle = gds__alloc(sizeof(struct shr_mem_hndl));
+		/* FREE: ?by ISC_remap_file? */
+		if (!handle) {			/* NOMEM: */
+			gds__free(address);
+			if (semaphores)
+				gds__free(semaphores);
+			status_vector[0] = gds_arg_gds;
+			status_vector[1] = gds__virmemexh;
+			status_vector[2] = gds_arg_end;
+			ISC_mutex_unlock(SYNC_MUTEX);
+			return (NULL);
+		}
+		handle->shmem_data.sh_mem_address = address;
+		handle->shmem_data.sh_mem_length_mapped = length;
+		handle->shmem_data.sh_mem_mutex_arg = semaphores;
+		strcpy(handle->file_name, filename);
+
+		handle->next = shared_memory_handles;
+		shared_memory_handles = handle;
+	}
+
+	shmem_data->sh_mem_address = handle->shmem_data.sh_mem_address;
+	shmem_data->sh_mem_length_mapped =
+		handle->shmem_data.sh_mem_length_mapped;
+	shmem_data->sh_mem_mutex_arg = handle->shmem_data.sh_mem_mutex_arg;
+
+	if (init_routine)
+		(*init_routine) (init_arg, shmem_data, init_flag);
+
+	ISC_mutex_unlock(SYNC_MUTEX);
+
+	return (shmem_data->sh_mem_address);
+}
+#endif
+
+
+#ifndef REQUESTER
+#ifndef ISC_MAP_FILE_DEFINED
+UCHAR *ISC_map_file(STATUS * status_vector,
+					TEXT * filename,
+					void (*init_routine) (void *, struct sh_mem *, int),
+					void *init_arg, SLONG length, SH_MEM shmem_data)
+{
+/**************************************
+ *
+ *	I S C _ m a p _ f i l e		( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to map a given file.  If we are the first (i.e. only)
+ *	process to map the file, call a given initialization
+ *	routine (if given) or punt (leaving the file unmapped).
+ *
+ **************************************/
+
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = gds__unavailable;
+	*status_vector++ = gds_arg_end;
+
+	return NULL;
+}
+#endif
+#endif
+
+
+#ifdef MMAP_SUPPORTED
+#define ISC_MAP_OBJECT_DEFINED
+UCHAR *ISC_map_object(STATUS * status_vector,
+					  SH_MEM shmem_data,
+					  SLONG object_offset, SLONG object_length)
+{
+/**************************************
+ *
+ *	I S C _ m a p _ o b j e c t	
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to map an object given a file mapping.
+ *
+ **************************************/
+	UCHAR *address;
+	int fd;
+	SLONG page_size, start, end, length;
+
+/* Get system page size as this is the unit of mapping. */
+
+#if (defined SOLARIS || defined NCR3000)
+	if ((page_size = sysconf(_SC_PAGESIZE)) == -1) {
+		error(status_vector, "sysconf", errno);
+		return NULL;
+	}
+#else
+	if ((page_size = (int) getpagesize()) == -1) {
+		error(status_vector, "getpagesize", errno);
+		return NULL;
+	}
+#endif
+
+/* Compute the start and end page-aligned offsets which
+   contain the object being mapped. */
+
+	start = (object_offset / page_size) * page_size;
+	end = (((object_offset + object_length) / page_size) + 1) * page_size;
+	length = end - start;
+	fd = shmem_data->sh_mem_handle;
+
+	address =
+		(UCHAR *) mmap(0, length, PROT_READ | PROT_WRITE, MAP_SHARED, fd,
+					   start);
+
+	if ((U_IPTR) address == -1) {
+		error(status_vector, "mmap", errno);
+		return NULL;
+	}
+
+/* Return the virtual address of the mapped object. */
+
+	return (address + (object_offset - start));
+}
+#endif
+
+
+#ifdef MMAP_SUPPORTED
+#define ISC_UNMAP_OBJECT_DEFINED
+BOOLEAN ISC_unmap_object(STATUS * status_vector,
+						 SH_MEM shmem_data,
+						 UCHAR ** object_pointer, SLONG object_length)
+{
+/**************************************
+ *
+ *	I S C _ u n m a p _ o b j e c t	
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to unmap an object given a file mapping.
+ *	Zero the object pointer after a successful unmap.
+ *
+ **************************************/
+	SLONG page_size, length;
+	UCHAR *start, *end;
+
+/* Get system page size as this is the unit of mapping. */
+
+#if (defined SOLARIS || defined NCR3000)
+	if ((page_size = sysconf(_SC_PAGESIZE)) == -1) {
+		error(status_vector, "sysconf", errno);
+		return NULL;
+	}
+#else
+	if ((page_size = (int) getpagesize()) == -1) {
+		error(status_vector, "getpagesize", errno);
+		return NULL;
+	}
+#endif
+
+/* Compute the start and end page-aligned addresses which
+   contain the mapped object. */
+
+	start = (UCHAR *) ((U_IPTR) * object_pointer & ~(page_size - 1));
+	end =
+		(UCHAR
+		 *) ((U_IPTR) ((*object_pointer + object_length) +
+					   (page_size - 1)) & ~(page_size - 1));
+	length = end - start;
+
+	if (munmap((char *) start, length) == -1) {
+		error(status_vector, "munmap", errno);
+		return FALSE;
+	}
+
+	*object_pointer = 0;
+	return TRUE;
+}
+#endif
+
+
+#ifdef VMS
+#define MUTEX
+int ISC_mutex_init(MTX mutex, SLONG event_flag)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ i n i t	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a mutex.
+ *
+ **************************************/
+
+	mutex->mtx_use_count = 0;
+	mutex->mtx_event_count[0] = 0;
+	mutex->mtx_event_count[1] = event_flag;
+	mutex->mtx_wait = 0;
+
+	return 0;
+}
+
+
+int ISC_mutex_lock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ l o c k	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sieze a mutex.
+ *
+ **************************************/
+	SLONG bit, status;
+
+	bit = 0;
+	++mutex->mtx_wait;
+
+	if (lib$bbssi(&bit, mutex->mtx_event_count))
+		for (;;) {
+			if (!lib$bbssi(&bit, mutex->mtx_event_count))
+				break;
+			gds__thread_wait(mutex_test, mutex);
+		}
+
+	--mutex->mtx_wait;
+
+	return 0;
+}
+
+
+int ISC_mutex_unlock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ u n l o c k		( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a mutex.
+ *
+ **************************************/
+	SLONG status, bit;
+
+	bit = 0;
+	lib$bbcci(&bit, mutex->mtx_event_count);
+#ifndef __ALPHA
+	sys$wake(0, 0);
+#else
+	THREAD_wakeup();
+#endif
+
+	return 0;
+}
+#endif
+
+
+#ifdef SOLARIS_MT
+#define MUTEX
+int ISC_mutex_init(MTX mutex, SLONG semaphore)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ i n i t	( S O L A R I S _ M T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a mutex.
+ *
+ **************************************/
+
+	return mutex_init(mutex->mtx_mutex, USYNC_PROCESS, NULL);
+}
+
+
+int ISC_mutex_lock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ l o c k	( S O L A R I S _ M T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sieze a mutex.
+ *
+ **************************************/
+	int state;
+
+	for (;;) {
+		state = mutex_lock(mutex->mtx_mutex);
+		if (!state)
+			break;
+		if (!SYSCALL_INTERRUPTED(state))
+			return state;
+	}
+
+	return 0;
+}
+
+
+int ISC_mutex_lock_cond(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ l o c k _ c o n d	( S O L A R I S _ M T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Conditionally sieze a mutex.
+ *
+ **************************************/
+	int state;
+
+	for (;;) {
+		state = mutex_trylock(mutex->mtx_mutex);
+		if (!state)
+			break;
+		if (!SYSCALL_INTERRUPTED(state))
+			return state;
+	}
+
+	return 0;
+}
+
+
+int ISC_mutex_unlock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ u n l o c k		( S O L A R I S _ M T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a mutex.
+ *
+ **************************************/
+	int state;
+
+	for (;;) {
+		/* Note use of undocumented lwp_mutex_unlock call 
+		 * due to Solaris 2.4 bug */
+		state = _lwp_mutex_unlock(mutex->mtx_mutex);
+		if (!state)
+			break;
+		if (!SYSCALL_INTERRUPTED(state))
+			return state;
+	}
+
+	return 0;
+}
+#endif /* SOLARIS_MT */
+
+
+#ifdef POSIX_THREADS
+#define MUTEX
+int ISC_mutex_init(MTX mutex, SLONG semaphore)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ i n i t	( P O S I X _ T H R E A D S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a mutex.
+ *
+ **************************************/
+	int state;
+
+#if (!defined HP10 && !defined linux)
+
+	pthread_mutexattr_t mattr;
+
+	state = pthread_mutexattr_init(&mattr);
+	if (state)
+		return state;
+	pthread_mutexattr_setpshared(&mattr, PTHREAD_PROCESS_SHARED);
+	state = pthread_mutex_init(mutex->mtx_mutex, &mattr);
+	pthread_mutexattr_destroy(&mattr);
+	return state;
+
+#else
+
+/* NOTE: HP's Posix threads implementation does not support thread
+	 synchronization in different processes. Thus the following
+	 fragment is just a temp. decision we could be use for super-
+	 server (until we are to implement local IPC using shared
+	 memory in which case we need interprocess thread sync.
+*/
+#ifdef linux
+	return pthread_mutex_init(mutex->mtx_mutex, NULL);
+#else
+	state = pthread_mutex_init(mutex->mtx_mutex, pthread_mutexattr_default);
+	if (!state)
+		return 0;
+	assert(state == -1);		/* if state is not 0, it should be -1 */
+	return errno;
+
+#endif /* linux */
+#endif /* HP10 */
+
+}
+
+
+int ISC_mutex_lock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ l o c k	( P O S I X _ T H R E A D S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sieze a mutex.
+ *
+ **************************************/
+#ifdef HP10
+
+	int state;
+
+	state = pthread_mutex_lock(mutex->mtx_mutex);
+	if (!state)
+		return 0;
+	assert(state == -1);		/* if state is not 0, it should be -1 */
+	return errno;
+
+#else
+
+	return pthread_mutex_lock(mutex->mtx_mutex);
+
+#endif /* HP10 */
+}
+
+
+int ISC_mutex_lock_cond(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ l o c k _ c o n d	( P O S I X _ T H R E A D S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Conditionally sieze a mutex.
+ *
+ **************************************/
+#ifdef HP10
+
+	int state;
+
+	state = pthread_mutex_trylock(mutex->mtx_mutex);
+
+/* HP's interpretation of return codes is different than Solaris
+   (and Posix Standard?). Usually in case of error they return
+   -1 and set errno to whatever error number is.
+   pthread_mutex_trylock() is a special case:
+
+	return	errno	description
+	  1		Success
+	  0		mutex has alreary been locked. Could not get it
+	 -1	EINVAL	invalid value of mutex
+*/
+	if (!state)
+		return -99;				/* we did not get the mutex for it had already      */
+	/* been locked, let's return something which is     */
+	/* not zero and negative (errno values are positive) */
+	if (state == 1)
+		return 0;
+
+	assert(state == -1);		/* if state is not 0 or 1, it should be -1 */
+	return errno;
+
+#else
+
+	return pthread_mutex_trylock(mutex->mtx_mutex);
+
+#endif /* HP10 */
+}
+
+
+int ISC_mutex_unlock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ u n l o c k		( P O S I X _ T H R E A D S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a mutex.
+ *
+ **************************************/
+#ifdef HP10
+
+	int state;
+
+	state = pthread_mutex_unlock(mutex->mtx_mutex);
+	if (!state)
+		return 0;
+	assert(state == -1);		/* if state is not 0, it should be -1 */
+	return errno;
+
+#else
+
+	return pthread_mutex_unlock(mutex->mtx_mutex);
+
+#endif /* HP10 */
+}
+#endif /* POSIX_THREADS */
+
+
+#ifdef UNIX
+#ifndef MUTEX
+#define MUTEX
+int ISC_mutex_init(MTX mutex, SLONG semaphore)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ i n i t	( U N I X )
+ *                                             not NeXT
+ *                                             not SOLARIS
+ *                                             not POSIX_THREADS
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a mutex.
+ *
+ **************************************/
+	int state;
+	union semun arg;
+
+	mutex->mtx_semid = semaphore;
+	mutex->mtx_semnum = 0;
+
+	arg.val = 1;
+	state = semctl((int) semaphore, 0, SETVAL, arg);
+	if (state == -1)
+		return errno;
+
+	return 0;
+}
+
+
+int ISC_mutex_lock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ l o c k	( U N I X )
+ *                                             not NeXT
+ *                                             not SOLARIS
+ *                                             not POSIX_THREADS
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sieze a mutex.
+ *
+ **************************************/
+	int state;
+	struct sembuf sop;
+
+	sop.sem_num = mutex->mtx_semnum;
+	sop.sem_op = -1;
+	sop.sem_flg = SEM_UNDO;
+
+	for (;;) {
+		state = semop(mutex->mtx_semid, &sop, 1);
+		if (state != -1)
+			break;
+		if (!SYSCALL_INTERRUPTED(errno))
+			return errno;
+	}
+
+	return 0;
+}
+
+
+int ISC_mutex_lock_cond(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ l o c k _ c o n d	( U N I X )
+ *                                             not NeXT
+ *                                             not SOLARIS
+ *                                             not POSIX_THREADS
+ *
+ **************************************
+ *
+ * Functional description
+ *	Conditionally sieze a mutex.
+ *
+ **************************************/
+	int state;
+	struct sembuf sop;
+
+	sop.sem_num = mutex->mtx_semnum;
+	sop.sem_op = -1;
+	sop.sem_flg = SEM_UNDO | IPC_NOWAIT;
+
+	for (;;) {
+		state = semop(mutex->mtx_semid, &sop, 1);
+		if (state != -1)
+			break;
+		if (!SYSCALL_INTERRUPTED(errno))
+			return errno;
+	}
+
+	return 0;
+}
+
+
+int ISC_mutex_unlock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ u n l o c k		( U N I X )
+ *                                             not NeXT
+ *                                             not SOLARIS
+ *                                             not POSIX_THREADS
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a mutex.
+ *
+ **************************************/
+	int state;
+	struct sembuf sop;
+
+	sop.sem_num = mutex->mtx_semnum;
+	sop.sem_op = 1;
+	sop.sem_flg = SEM_UNDO;
+
+	for (;;) {
+		state = semop(mutex->mtx_semid, &sop, 1);
+		if (state != -1)
+			break;
+		if (!SYSCALL_INTERRUPTED(errno))
+			return errno;
+	}
+
+	return 0;
+}
+#endif
+#endif
+
+
+#ifdef WIN_NT
+#define MUTEX
+int DLL_EXPORT ISC_mutex_init(MTX mutex, TEXT * mutex_name)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ i n i t	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a mutex.
+ *
+ **************************************/
+	TEXT name_buffer[MAXPATHLEN];
+
+	make_object_name(name_buffer, mutex_name, "_mutex");
+	mutex->mtx_handle =
+		CreateMutex(ISC_get_security_desc(), FALSE, name_buffer);
+
+	return (mutex->mtx_handle) ? 0 : 1;
+}
+
+
+int DLL_EXPORT ISC_mutex_lock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ l o c k	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sieze a mutex.
+ *
+ **************************************/
+	SLONG status;
+
+	status = WaitForSingleObject(mutex->mtx_handle, INFINITE);
+
+	return (!status || status == WAIT_ABANDONED) ? 0 : 1;
+}
+
+
+int DLL_EXPORT ISC_mutex_lock_cond(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ l o c k _ c o n d	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Conditionally sieze a mutex.
+ *
+ **************************************/
+	SLONG status;
+
+	status = WaitForSingleObject(mutex->mtx_handle, 0L);
+
+	return (!status || status == WAIT_ABANDONED) ? 0 : 1;
+}
+
+
+int DLL_EXPORT ISC_mutex_unlock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ u n l o c k		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a mutex.
+ *
+ **************************************/
+
+	return !ReleaseMutex(mutex->mtx_handle);
+}
+#endif
+
+
+#ifdef NETWARE_386
+#define MUTEX
+int ISC_mutex_init(MTX mutex, ULONG * semaphores)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ i n i t	( N E T W A R E  _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a mutex.
+ *
+ **************************************/
+
+	(*mutex) = semaphores[0];
+
+	return 0;
+}
+
+
+int ISC_mutex_lock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ l o c k	( N E T W A R E  _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sieze a mutex.
+ *
+ **************************************/
+
+	WaitOnLocalSemaphore(*mutex);
+
+	return 0;
+}
+
+
+int ISC_mutex_unlock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ u n l o c k		( N E T W A R E  _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a mutex.
+ *
+ **************************************/
+
+	SignalLocalSemaphore(*mutex);
+
+	return 0;
+}
+#endif
+
+
+#ifndef MUTEX
+int ISC_mutex_init(MTX mutex, SLONG dummy)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ i n i t	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a mutex.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int ISC_mutex_lock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ l o c k	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sieze a mutex.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int ISC_mutex_unlock(MTX mutex)
+{
+/**************************************
+ *
+ *	I S C _ m u t e x _ u n l o c k		( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a mutex.
+ *
+ **************************************/
+
+	return 0;
+}
+#endif
+
+
+#ifdef NETWARE_386
+#define ISC_REMAP_FILE_DEFINED
+UCHAR *ISC_remap_file(STATUS * status_vector,
+					  SH_MEM shmem_data, SLONG new_length, USHORT flag)
+{
+/**************************************
+ *
+ *	I S C _ r e m a p _ f i l e		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to re-map a given region.
+ *
+ **************************************/
+	void *address;
+	SHR_MEM_HNDL handle;
+
+	ISC_mutex_lock(SYNC_MUTEX);
+
+/* First find the global handle with the address of the passed region. */
+
+	for (handle = shared_memory_handles; handle != NULL;
+		 handle =
+		 handle->next) if (handle->shmem_data.sh_mem_address ==
+						   shmem_data->sh_mem_address) break;
+
+	if (handle == NULL) {
+		/* Some error message */
+
+		ISC_mutex_unlock(SYNC_MUTEX);
+		return NULL;
+	}
+
+	address = gds__alloc(new_length);
+	if (!address) {				/* NOMEM: */
+		status_vector[0] = gds_arg_gds;
+		status_vector[1] = gds__virmemexh;
+		status_vector[2] = gds_arg_end;
+		ISC_mutex_unlock(SYNC_MUTEX);
+		return (NULL);
+	}
+
+	memcpy(address, shmem_data->sh_mem_address,
+		   shmem_data->sh_mem_length_mapped);
+	gds__free(shmem_data->sh_mem_address);
+	handle->shmem_data.sh_mem_address = shmem_data->sh_mem_address = address;
+	handle->shmem_data.sh_mem_length_mapped =
+		shmem_data->sh_mem_length_mapped = new_length;
+
+	ISC_mutex_unlock(SYNC_MUTEX);
+
+	return address;
+}
+#endif
+
+
+#ifdef UNIX
+#ifdef MMAP_SUPPORTED
+#define ISC_REMAP_FILE_DEFINED
+UCHAR *ISC_remap_file(STATUS * status_vector,
+					  SH_MEM shmem_data, SLONG new_length, USHORT flag)
+{
+/**************************************
+ *
+ *	I S C _ r e m a p _ f i l e		( U N I X - m m a p )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to re-map a given file.
+ *
+ **************************************/
+	UCHAR *address;
+
+	if (flag)
+		ftruncate(shmem_data->sh_mem_handle, new_length);
+
+	address =
+		(UCHAR *) mmap(0, new_length, PROT_READ | PROT_WRITE, MAP_SHARED,
+					   shmem_data->sh_mem_handle, 0);
+	if ((U_IPTR) address == -1)
+		return NULL;
+
+	munmap((char *) shmem_data->sh_mem_address,
+		   shmem_data->sh_mem_length_mapped);
+
+	shmem_data->sh_mem_address = address;
+	shmem_data->sh_mem_length_mapped = new_length;
+
+	return address;
+}
+#endif
+#endif
+
+
+#ifdef WIN_NT
+#define ISC_REMAP_FILE_DEFINED
+UCHAR *DLL_EXPORT ISC_remap_file(STATUS * status_vector,
+								 SH_MEM shmem_data,
+								 SLONG new_length, USHORT flag)
+{
+/**************************************
+ *
+ *	I S C _ r e m a p _ f i l e		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to re-map a given file.
+ *
+ **************************************/
+	TEXT expanded_filename[MAXPATHLEN];
+	HANDLE file_obj;
+
+	if (flag)
+		if (SetFilePointer
+			(shmem_data->sh_mem_handle, new_length, NULL,
+			 FILE_BEGIN) == 0xFFFFFFFF
+			|| !SetEndOfFile(shmem_data->sh_mem_handle)
+			|| !FlushViewOfFile(shmem_data->sh_mem_address, 0)) {
+			error(status_vector, "SetFilePointer", GetLastError());
+			return NULL;
+		}
+
+/* If the remap file exists, remap does not occur correctly.
+ * The file number is local to the process and when it is 
+ * incremented and a new filename is created, that file may
+ * already exist.  In that case, the file is not expanded.
+ * This will happen when the file is expanded more than once
+ * by concurrently running processes.
+ * 
+ * The problem will be fixed by making sure that a new file name
+ * is generated with the mapped file is created.
+ */
+
+	while (1) {
+		sprintf(expanded_filename, "%s%d", shmem_data->sh_mem_name,
+				shmem_data->sh_mem_hdr_address[1] + 1);
+
+		file_obj = CreateFileMapping(shmem_data->sh_mem_handle,
+									 ISC_get_security_desc(),
+									 PAGE_READWRITE,
+									 0, new_length, expanded_filename);
+
+		if (!((GetLastError() == ERROR_ALREADY_EXISTS) && flag))
+			break;
+
+		CloseHandle(file_obj);
+		shmem_data->sh_mem_hdr_address[1]++;
+	}
+
+	if (file_obj == NULL) {
+		error(status_vector, "CreateFileMapping", GetLastError());
+		return NULL;
+	}
+
+	UCHAR *address =
+		(UCHAR *) MapViewOfFile(file_obj, FILE_MAP_WRITE, 0, 0, 0);
+
+	if (address == NULL) {
+		error(status_vector, "CreateFileMapping", GetLastError());
+		CloseHandle(file_obj);
+		return NULL;
+	}
+
+	if (flag) {
+		shmem_data->sh_mem_hdr_address[0] = new_length;
+		shmem_data->sh_mem_hdr_address[1]++;
+	}
+
+	UnmapViewOfFile(shmem_data->sh_mem_address);
+	CloseHandle(shmem_data->sh_mem_object);
+
+	shmem_data->sh_mem_address = address;
+	shmem_data->sh_mem_length_mapped = new_length;
+	shmem_data->sh_mem_object = file_obj;
+
+	return address;
+}
+#endif
+
+
+#ifndef ISC_REMAP_FILE_DEFINED
+UCHAR *DLL_EXPORT ISC_remap_file(STATUS * status_vector,
+								 SH_MEM shmem_data,
+								 SLONG new_length, USHORT flag)
+{
+/**************************************
+ *
+ *	I S C _ r e m a p _ f i l e		( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to re-map a given file.
+ *
+ **************************************/
+
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = gds__unavailable;
+	*status_vector++ = gds_arg_end;
+
+	return NULL;
+}
+#endif
+
+
+#if (defined UNIX)
+void ISC_reset_timer(
+					 void (*timeout_handler) (),
+					 void *timeout_arg,
+					 SLONG * client_timer, void **client_handler)
+{
+/**************************************
+ *
+ *	I S C _ r e s e t _ t i m e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear a previously established timer and restore
+ *	the previous context.
+ *
+ **************************************/
+#ifndef SYSV_SIGNALS
+	struct itimerval internal_timer;
+#endif
+
+	ISC_signal_cancel(SIGALRM, timeout_handler, timeout_arg);
+
+/* Cancel the timer, then restore the previous handler and alarm */
+
+#ifdef SYSV_SIGNALS
+	alarm(0);
+	sigset(SIGALRM, *client_handler);
+	alarm(*client_timer);
+#else
+	timerclear(&internal_timer.it_interval);
+	timerclear(&internal_timer.it_value);
+	setitimer(ITIMER_REAL, &internal_timer, NULL);
+#ifndef SIGACTION_SUPPORTED
+	sigvector(SIGALRM, client_handler, NULL);
+#else
+	sigaction(SIGALRM, client_handler, NULL);
+#endif
+	setitimer(ITIMER_REAL, client_timer, NULL);
+#endif
+}
+#endif
+
+
+#if (defined UNIX)
+void ISC_set_timer(
+				   SLONG micro_seconds,
+				   void (*timeout_handler) (),
+				   void *timeout_arg,
+				   SLONG * client_timer, void **client_handler)
+{
+/**************************************
+ *
+ *	I S C _ s e t _ t i m e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set a timer for the specified amount of time.
+ *
+ **************************************/
+#ifndef SYSV_SIGNALS
+	struct itimerval internal_timer;
+#ifndef SIGACTION_SUPPORTED
+	struct sigvec internal_handler;
+#else
+	struct sigaction internal_handler;
+#endif
+#endif
+	SLONG d1;
+	void *d2;
+
+/* Start by cancelling any existing timer */
+
+#ifdef SYSV_SIGNALS
+	if (!client_timer)
+		client_timer = &d1;
+	*client_timer = alarm(0);
+#else
+	timerclear(&internal_timer.it_interval);
+	timerclear(&internal_timer.it_value);
+	setitimer(ITIMER_REAL, &internal_timer,
+			  (struct itimerval *) client_timer);
+#endif
+
+/* Now clear the signal handler while saving the existing one */
+
+#ifdef SYSV_SIGNALS
+	if (!client_handler)
+		client_handler = &d2;
+	*client_handler = (void *) sigset(SIGALRM, SIG_DFL);
+#else
+#ifndef SIGACTION_SUPPORTED
+	internal_handler.sv_handler = SIG_DFL;
+	internal_handler.sv_mask = 0;
+	internal_handler.sv_flags = SV_INTERRUPT;
+	sigvector(SIGALRM, &internal_handler, (struct sigvec *) client_handler);
+#else
+	internal_handler.sa_handler = (SIG_FPTR) SIG_DFL;
+	memset(&internal_handler.sa_mask, 0, sizeof(internal_handler.sa_mask));
+	internal_handler.sa_flags = SA_RESTART;
+	sigaction(SIGALRM, &internal_handler,
+			  (struct sigaction *) client_handler);
+#endif
+#endif
+
+	if (!micro_seconds)
+		return;
+
+/* Next set the new alarm handler and finally set the new timer */
+
+	ISC_signal(SIGALRM, timeout_handler, timeout_arg);
+
+#ifdef SYSV_SIGNALS
+	if (micro_seconds < 1000000)
+		alarm(1);
+	else
+		alarm(micro_seconds / 1000000);
+#else
+	if (micro_seconds < 1000000)
+		internal_timer.it_value.tv_usec = micro_seconds;
+	else {
+		internal_timer.it_value.tv_sec = micro_seconds / 1000000;
+		internal_timer.it_value.tv_usec = micro_seconds % 1000000;
+	}
+	setitimer(ITIMER_REAL, &internal_timer, NULL);
+#endif
+}
+#endif
+
+
+#ifdef SUPERSERVER
+#ifdef UNIX
+void ISC_sync_signals_set()
+{
+/**************************************
+ *
+ *	I S C _ s y n c _ s i g n a l s _ s e t( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set all the synchronous signals for a particular thread
+ *
+ **************************************/
+
+	sigset(SIGILL, longjmp_sig_handler);
+	sigset(SIGFPE, longjmp_sig_handler);
+	sigset(SIGBUS, longjmp_sig_handler);
+	sigset(SIGSEGV, longjmp_sig_handler);
+}
+#endif /* UNIX */
+#endif /* SUPERSERVER */
+
+
+#ifdef SUPERSERVER
+#ifdef UNIX
+void ISC_sync_signals_reset()
+{
+/**************************************
+ *
+ *	I S C _ s y n c _ s i g n a l s _ r e s e t ( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset all the synchronous signals for a particular thread
+ * to default.
+ *
+ **************************************/
+
+	sigset(SIGILL, SIG_DFL);
+	sigset(SIGFPE, SIG_DFL);
+	sigset(SIGBUS, SIG_DFL);
+	sigset(SIGSEGV, SIG_DFL);
+}
+#endif /* UNIX */
+#endif /* SUPERSERVER */
+
+#ifdef NETWARE_386
+void ISC_semaphore_close(ULONG semid)
+{
+/**************************************
+ *
+ *	I S C _ s e m a p h o r e _ c l o s e	(N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unregister and close the passed semaphore. 
+ *
+ **************************************/
+
+	if (semid) {
+		gds__unregister_cleanup(cleanup_semaphores, semid);
+		CloseLocalSemaphore(semid);
+	}
+}
+
+
+void ISC_semaphore_open(ULONG * semid, ULONG init_value)
+{
+/**************************************
+ *
+ *	I S C _ s e m a p h o r e _ o p e n 	(N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open and register a semaphore. 
+ *
+ **************************************/
+
+	*semid = OpenLocalSemaphore(init_value);
+	gds__register_cleanup(cleanup_semaphores, *semid);
+}
+#endif
+
+
+
+#ifdef NETWARE_386
+void ISC_sync_init(void)
+{
+/**************************************
+ *
+ *	I S C _ s y n c _ i n i t		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a mutex for this module.
+ *
+ **************************************/
+
+	ISC_semaphore_open(SYNC_MUTEX, 1);
+}
+#endif
+
+
+#ifdef NETWARE_386
+#define UNMAP_FILE
+void ISC_unmap_file(STATUS * status_vector, SH_MEM shmem_data, USHORT flag)
+{
+/**************************************
+ *
+ *	I S C _ u n m a p _ f i l e		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Detach from the shared memory.  Depending upon the flag,
+ *	get rid of the semaphore and/or get rid of shared memory.
+ *
+ **************************************/
+	SHR_MEM_HNDL handle, *handle_ptr;
+	ULONG i;
+
+	ISC_mutex_lock(SYNC_MUTEX);
+
+	if (flag & ISC_SEM_REMOVE) {
+		for (i = 0; i < shmem_data->sh_mem_semaphores; i++) {
+			ISC_semaphore_close(shmem_data->sh_mem_mutex_arg[i]);
+			shmem_data->sh_mem_mutex_arg[i] = 0;
+		}
+		if (shmem_data->sh_mem_semaphores > 0)
+			gds__free(shmem_data->sh_mem_mutex_arg);
+		shmem_data->sh_mem_mutex_arg = NULL;
+	}
+
+	if (flag & ISC_MEM_REMOVE) {
+		handle_ptr = &shared_memory_handles;
+		for (; handle = *handle_ptr; handle_ptr = &handle->next)
+			if (handle->shmem_data.sh_mem_address ==
+				shmem_data->sh_mem_address) {
+				*handle_ptr = handle->next;
+				gds__free(handle);
+				break;
+			}
+
+		gds__free(shmem_data->sh_mem_address);
+	}
+
+	ISC_mutex_unlock(SYNC_MUTEX);
+
+}
+#endif
+
+
+#ifdef UNIX
+#ifdef MMAP_SUPPORTED
+#define UNMAP_FILE
+void ISC_unmap_file(STATUS * status_vector, SH_MEM shmem_data, USHORT flag)
+{
+/**************************************
+ *
+ *	I S C _ u n m a p _ f i l e		( U N I X - m m a p )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unmap a given file.  Depending upon the flag,
+ *	get rid of the semaphore and/or truncate the file.
+ *
+ **************************************/
+	union semun arg;
+
+	munmap((char *) shmem_data->sh_mem_address,
+		   shmem_data->sh_mem_length_mapped);
+
+	if (flag & ISC_SEM_REMOVE)
+		semctl(shmem_data->sh_mem_mutex_arg, 0, IPC_RMID, arg);
+	if (flag & ISC_MEM_REMOVE)
+		ftruncate(shmem_data->sh_mem_handle, 0L);
+	close(shmem_data->sh_mem_handle);
+}
+#endif
+#endif
+
+
+#ifdef UNIX
+#ifndef MMAP_SUPPORTED
+#define UNMAP_FILE
+void ISC_unmap_file(STATUS * status_vector, SH_MEM shmem_data, USHORT flag)
+{
+/**************************************
+ *
+ *	I S C _ u n m a p _ f i l e		( U N I X - s h m a t )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Detach from the shared memory.  Depending upon the flag,
+ *	get rid of the semaphore and/or get rid of shared memory.
+ *
+ **************************************/
+	struct shmid_ds buf;
+	union semun arg;
+
+	shmdt(shmem_data->sh_mem_address);
+	if (flag & ISC_SEM_REMOVE)
+		semctl(shmem_data->sh_mem_mutex_arg, 0, IPC_RMID, arg);
+	if (flag & ISC_MEM_REMOVE)
+		shmctl(shmem_data->sh_mem_handle, IPC_RMID, &buf);
+}
+#endif
+#endif
+
+
+#ifdef WIN_NT
+#define UNMAP_FILE
+void DLL_EXPORT ISC_unmap_file(
+							   STATUS * status_vector,
+							   SH_MEM shmem_data, USHORT flag)
+{
+/**************************************
+ *
+ *	I S C _ u n m a p _ f i l e		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Detach from the shared memory.  Depending upon the flag,
+ *	get rid of the semaphore and/or get rid of shared memory.
+ *
+ **************************************/
+
+	CloseHandle(shmem_data->sh_mem_interest);
+	CloseHandle((HANDLE) shmem_data->sh_mem_mutex_arg);
+	UnmapViewOfFile(shmem_data->sh_mem_address);
+	CloseHandle(shmem_data->sh_mem_object);
+	if (flag & ISC_MEM_REMOVE)
+		if (SetFilePointer(shmem_data->sh_mem_handle, 0, NULL, FILE_BEGIN) !=
+			0xFFFFFFFF) SetEndOfFile(shmem_data->sh_mem_handle);
+	CloseHandle(shmem_data->sh_mem_handle);
+	UnmapViewOfFile(shmem_data->sh_mem_hdr_address);
+	CloseHandle(shmem_data->sh_mem_hdr_object);
+}
+#endif
+
+
+#ifndef UNMAP_FILE
+void DLL_EXPORT ISC_unmap_file(
+							   STATUS * status_vector,
+							   SH_MEM shmem_data, USHORT flag)
+{
+/**************************************
+ *
+ *	I S C _ u n m a p _ f i l e		( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	unmap a given file or shared memory.
+ *
+ **************************************/
+
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = gds__unavailable;
+	*status_vector++ = gds_arg_end;
+}
+#endif
+
+
+#ifdef UNIX
+static void alarm_handler(void)
+{
+/**************************************
+ *
+ *	a l a r m _ h a n d l e r	( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle an alarm clock interrupt.  
+ *
+ **************************************/
+}
+#endif
+
+
+#ifdef NETWARE_386
+static void cleanup_semaphores(ULONG semid)
+{
+/**************************************
+ *
+ *	c l e a n u p _ s e m a p h o r e s	( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close an open semaphore.
+ *
+ **************************************/
+
+	if (semid != 0)
+		CloseLocalSemaphore(semid);
+}
+#endif
+
+
+static void error(STATUS * status_vector, TEXT * string, STATUS status)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've encountered an error, report it.
+ *
+ **************************************/
+
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = gds__sys_request;
+	*status_vector++ = gds_arg_string;
+	*status_vector++ = (STATUS) string;
+	*status_vector++ = SYS_ARG;
+	*status_vector++ = status;
+	*status_vector++ = gds_arg_end;
+}
+
+
+#ifdef VMS
+static int event_test(WAIT * wait)
+{
+/**************************************
+ *
+ *	e v e n t _ t e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Callback routine from thread package for VMS.  Returns
+ *	TRUE if wait is satified, otherwise FALSE.
+ *
+ **************************************/
+
+	return !ISC_event_blocked(wait->wait_count, wait->wait_events,
+							  wait->wait_values);
+}
+#endif
+
+
+#ifdef UNIX
+static SLONG find_key(STATUS * status_vector, TEXT * filename)
+{
+/**************************************
+ *
+ *	f i n d _ k e y 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the semaphore/shared memory key for a file.
+ *
+ **************************************/
+	int fd;
+	SLONG key;
+
+/* Produce shared memory key for file */
+
+	if ((key = ftok(filename, FTOK_KEY)) == -1) {
+		if ((fd = open(filename, O_RDWR | O_CREAT | O_TRUNC, PRIV)) == -1) {
+			error(status_vector, "open", errno);
+			return NULL;
+		}
+		close(fd);
+		if ((key = ftok(filename, FTOK_KEY)) == -1) {
+			error(status_vector, "ftok", errno);
+			return NULL;
+		}
+	}
+
+	return key;
+}
+#endif
+
+
+#ifdef UNIX
+static SLONG init_semaphores(
+							 STATUS * status_vector,
+							 SLONG key, int semaphores)
+{
+/**************************************
+ *
+ *	i n i t _ s e m a p h o r e s		( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create or find a block of semaphores.
+ *
+ **************************************/
+	SLONG semid;
+
+	semid = semget(key, semaphores, IPC_CREAT | IPC_EXCL | PRIV);
+
+	if (semid == -1) {
+		semid = semget(key, semaphores, PRIV);
+		if (semid == -1)
+			error(status_vector, "semget", errno);
+	}
+
+	return semid;
+}
+#endif
+
+
+#ifdef SUPERSERVER
+#ifdef UNIX
+void longjmp_sig_handler(int sig_num)
+{
+/**************************************
+ *
+ *	l o n g j m p _ s i g _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	The generic signal handler for all signals in a thread.
+ *
+ **************************************/
+	TDBB tdbb;
+
+/* Note: we can only do this since we know that we
+   will only be going to JRD, specifically fun and blf.
+   If we were to make this generic, we would need to 
+   actally hang the sigsetjmp menber off of THDD, and
+   make sure that it is set properly for all sub-systems. */
+
+	tdbb = GET_THREAD_DATA;
+
+	siglongjmp(tdbb->tdbb_sigsetjmp, sig_num);
+}
+#endif /* UNIX */
+#endif /* SUPERSERVER */
+
+
+#ifdef VMS
+static BOOLEAN mutex_test(MTX mutex)
+{
+/**************************************
+ *
+ *	m u t e x _ t e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Callback routine from thread package for VMS.  Returns
+ *	TRUE if mutex has been granted, otherwise FALSE.
+ *
+ **************************************/
+
+	return (mutex->mtx_event_count[0] & 1) ? FALSE : TRUE;
+}
+#endif
+
+
+#ifdef WIN_NT
+static void make_object_name(
+							 TEXT * buffer,
+							 TEXT * object_name, TEXT * object_type)
+{
+/**************************************
+ *
+ *	m a k e _ o b j e c t _ n a m e		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an object name from a name and type.
+ *	Also replace the file separator with "_".
+ *
+ **************************************/
+	TEXT hostname[64], *p, c;
+
+	sprintf(buffer, object_name, ISC_get_host(hostname, sizeof(hostname)));
+	for (p = buffer; c = *p; p++)
+		if (c == '/' || c == '\\' || c == ':')
+			*p = '_';
+	strcpy(p, object_type);
+}
+#endif
+
+
+#ifdef UNIX
+static BOOLEAN semaphore_wait(int count, int semid, int *semnums)
+{
+/**************************************
+ *
+ *	s e m a p h o r e _ w a i t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait on the given semaphores.  Return FAILURE if
+ *	interrupted (including timeout) before any
+ *	semaphore was poked else return SUCCESS.
+ *	
+ **************************************/
+	int i, ret;
+	struct sembuf semops[16], *semptr;
+
+	for (semptr = semops, i = 0; i < count; ++semptr, i++) {
+		semptr->sem_op = 0;
+		semptr->sem_flg = 0;
+		semptr->sem_num = *semnums++;
+	}
+	ret = semop(semid, semops, count);
+
+	if (ret == -1 && SYSCALL_INTERRUPTED(errno))
+		return FAILURE;
+	else
+		return SUCCESS;
+}
+#endif
+
+#endif /* PIPE_IS_SHRLIB */
+
+
+} // extern "C"
diff --git a/src/jrd/isc_sync_win32.cpp b/src/jrd/isc_sync_win32.cpp
new file mode 100644
index 0000000000..ad9f234fd2
--- /dev/null
+++ b/src/jrd/isc_sync_win32.cpp
@@ -0,0 +1,903 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		isc_sync.c
+ *	DESCRIPTION:	General purpose but non-user routines. Win32 specific.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef SHLIB_DEFS
+#define LOCAL_SHLIB_DEFS
+#endif
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include <process.h>
+#include <signal.h>
+#include <windows.h>
+
+#include "../jrd/time.h"
+#include "../jrd/common.h"
+#include "../jrd/codes.h"
+#include "../jrd/isc.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_i_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/file_params.h"
+#include "../jrd/jrd.h"
+#include "../jrd/sch_proto.h"
+
+
+extern "C" {
+
+
+static int		process_id;
+
+static void	error(STATUS *, TEXT *, STATUS);
+static void	make_object_name(	char*		buffer,
+								const char*	object_name,
+								const char*	object_type);
+
+#ifdef SHLIB_DEFS
+
+#define sprintf		(*_libgds_sprintf)
+#define strlen		(*_libgds_strlen)
+#define strcpy		(*_libgds_strcpy)
+#define errno		(*_libgds_errno)
+#define open		(*_libgds_open)
+#define close		(*_libgds_close)
+
+#pragma FB_COMPILER_MACRO("Warning! Possibly unsafe new declaration of errno.")
+
+// e.g. MS C runtime library defines errno as a macro (to get the
+// real errno in a thread-safe fashion).
+extern int		errno;
+
+#endif	// SHLIB_DEFS
+
+
+#ifdef SIG_RESTART
+//
+// Return a flag that indicats whether or not to restart an interrupted
+// system call.
+//
+BOOLEAN ISC_check_restart (void)
+{
+	return TRUE;
+}
+#endif	/* SIG_RESTART */
+
+
+//
+// If a wait would block, return TRUE.
+//
+int ISC_event_blocked(USHORT count, EVENT* events, SLONG* values)
+{
+	for (; count > 0; --count, ++events, ++values) {
+		EVENT pEvent = *events;
+		if (pEvent->event_shared) {
+			pEvent = pEvent->event_shared;
+		}
+		if (pEvent->event_count >= *values) {
+			return FALSE;
+		}
+	}
+	return TRUE;
+}
+
+//
+// Clear an event preparatory to waiting on it.  The order of
+// battle for event synchronization is:
+//
+//    1.  Clear event.
+//    2.  Test data structure for event already completed
+//    3.  Wait on event.
+//
+SLONG DLL_EXPORT ISC_event_clear(EVENT event)
+{
+	ResetEvent ((HANDLE) event->event_handle);
+
+	EVENT pEvent = event;
+	if (pEvent->event_shared) {
+		pEvent = pEvent->event_shared;
+	}
+	return event->event_count + 1;
+}
+
+
+//
+// Discard an event object.
+//
+void ISC_event_fini(EVENT event)
+{
+	CloseHandle ((HANDLE) event->event_handle);
+}
+
+
+//
+// Prepare an event object for use.
+//
+int DLL_EXPORT ISC_event_init(EVENT event, int type, int semnum)
+{
+	event->event_pid = process_id = getpid();
+	event->event_count = 0;
+	event->event_type = type;
+	event->event_shared = NULL;
+
+	event->event_handle = ISC_make_signal(TRUE, TRUE, process_id, type);
+
+	return (event->event_handle) ? TRUE : FALSE;
+}
+
+
+//
+// Prepare an event object for use.
+//
+int ISC_event_init_shared (
+    EVENT	lcl_event,
+    int		type,
+    TEXT	*name,
+    EVENT	shr_event,
+    USHORT	init_flag)
+{
+	TEXT	event_name [MAXPATHLEN], type_name [16];
+
+	lcl_event->event_pid = process_id = getpid();
+	lcl_event->event_count = 0;
+	lcl_event->event_type = type;
+	lcl_event->event_shared = shr_event;
+
+	sprintf (type_name, "_event%d", type);
+	make_object_name (event_name, name, type_name);
+	if (!(lcl_event->event_handle = CreateEvent (ISC_get_security_desc(), TRUE, FALSE, event_name)))
+		return FALSE;
+
+	if (init_flag)
+	{
+		shr_event->event_pid = 0;
+		shr_event->event_count = 0;
+		shr_event->event_type = type;
+		shr_event->event_handle = NULL;
+		shr_event->event_shared = NULL;
+	}
+
+	return TRUE;
+}
+
+
+//
+// Post an event to wake somebody else up.
+//
+int DLL_EXPORT ISC_event_post(EVENT	event)
+{
+	if (!event->event_shared)
+		++event->event_count;
+	else
+		++event->event_shared->event_count;
+
+	if (event->event_pid != process_id) {
+		ISC_kill (event->event_pid, event->event_type, event->event_handle);
+	} else {
+		SetEvent ((HANDLE) event->event_handle);
+	}
+
+	return 0;
+}
+
+
+//
+// Wait on an event.
+//
+int DLL_EXPORT ISC_event_wait (
+    SSHORT	count,
+    EVENT	*events,
+    SLONG	*values,
+    SLONG	micro_seconds,
+    void	(*timeout_handler)(),
+    void	*handler_arg)
+{
+	EVENT*	ptr;
+	EVENT*	end;
+	HANDLE	handles[16];
+	HANDLE*	handle_ptr;
+
+	/* If we're not blocked, the rest is a gross waste of time */
+
+	if (!ISC_event_blocked (count, events, values)) {
+		return 0;
+	}
+
+	for (ptr = events, end = events + count, handle_ptr = handles; ptr < end;) {
+		*handle_ptr++ = (*ptr++)->event_handle;
+	}
+
+	/* Go into wait loop */
+
+	DWORD timeout = (micro_seconds > 0) ? micro_seconds / 1000 : INFINITE;
+
+	for (;;)
+	{
+		if (!ISC_event_blocked (count, events, values)) {
+			return 0;
+		}
+
+		const DWORD status =
+			WaitForMultipleObjects((DWORD) count, handles, TRUE, timeout);
+
+		if (!((status >= WAIT_OBJECT_0) && (status < WAIT_OBJECT_0 + count))) {
+			return status;
+		}
+	}
+}
+
+
+#ifdef SUPERSERVER
+
+/**************************************
+ *
+ *     When we got a sync exception, fomulate the error code	
+ *     write it to the log file, and abort. Note: We can not
+ *     actually call "abort" since in windows this will cause
+ *     a dialog to appear stating the obvious!  Since on NT we
+ *     would not get a core file, there is actually no difference
+ *     between abort() and exit(3). 
+ *
+ **************************************/
+ULONG ISC_exception_post(ULONG except_code, TEXT* err_msg)
+{
+	TEXT* log_msg;
+
+	if (!SCH_thread_enter_check ()) {
+		THREAD_ENTER;
+	}
+
+	if (err_msg)
+		log_msg = (TEXT *) gds__alloc (strlen(err_msg)+256);
+
+switch (except_code) 
+    {
+    case EXCEPTION_ACCESS_VIOLATION:
+	sprintf (log_msg,"%s Access violation.\n"
+			"\t\tThe code attempted to access a virtual\n"
+			"\t\taddress without privilege to do so.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.", err_msg);
+	break;
+    case EXCEPTION_DATATYPE_MISALIGNMENT:
+	sprintf (log_msg,"%s Datatype misalignment.\n"
+			"\t\tThe attempted to read or write a value\n"
+			"\t\tthat was not stored on a memory boundary.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.", err_msg);
+	break;
+    case EXCEPTION_ARRAY_BOUNDS_EXCEEDED:
+	sprintf (log_msg,"%s Array bounds exceeded.\n"
+			"\t\tThe code attempted to access an array\n"
+			"\t\telement that is out of bounds.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.", err_msg);
+	break;
+    case EXCEPTION_FLT_DENORMAL_OPERAND:
+	sprintf (log_msg,"%s Float denormal operand.\n"
+			"\t\tOne of the floating-point operands is too\n"
+			"\t\tsmall to represent as a standard floating-point\n"
+			"\t\tvalue.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.", err_msg);
+	break;
+    case EXCEPTION_FLT_DIVIDE_BY_ZERO:
+	sprintf (log_msg,"%s Floating-point divide by zero.\n"
+			"\t\tThe code attempted to divide a floating-point\n"
+			"\t\tvalue by a floating-point divisor of zero.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.", err_msg);
+	break;
+    case EXCEPTION_FLT_INEXACT_RESULT:
+	sprintf (log_msg,"%s Floating-point inexact result.\n"
+			"\t\tThe result of a floating-point operation cannot\n"
+			"\t\tbe represented exactly as a decimal fraction.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.", err_msg);
+	break;
+    case EXCEPTION_FLT_INVALID_OPERATION:
+	sprintf (log_msg,"%s Floating-point invalid operand.\n"
+			"\t\tAn indeterminant error occurred during a\n"
+			"\t\tfloating-point operation.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.", err_msg);
+	break;
+    case EXCEPTION_FLT_OVERFLOW:
+	sprintf (log_msg,"%s Floating-point overflow.\n"
+			"\t\tThe exponent of a floating-point operation\n"
+			"\t\tis greater than the magnitude allowed.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.", err_msg);
+	break;
+    case EXCEPTION_FLT_STACK_CHECK:
+	sprintf (log_msg,"%s Floating-point stack check.\n"
+			"\t\tThe stack overflowed or underflowed as the\n"
+			"result of a floating-point operation.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.", err_msg);
+	break;
+    case EXCEPTION_FLT_UNDERFLOW:
+	sprintf (log_msg,"%s Floating-point underflow.\n"
+			"\t\tThe exponent of a floating-point operation\n"
+			"\t\tis less than the magnitude allowed.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.", err_msg);
+	break;
+    case EXCEPTION_INT_DIVIDE_BY_ZERO:
+	sprintf (log_msg,"%s Integer divide by zero.\n"
+			"\t\tThe code attempted to divide an integer value\n"
+			"\t\tby an integer divisor of zero.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.", err_msg);
+	break;
+    case EXCEPTION_INT_OVERFLOW:
+	sprintf (log_msg,"%s Interger overflow.\n"
+			"\t\tThe result of an integer operation caused the\n"
+			"\t\tmost significant bit of the result to carry.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.", err_msg);
+	break;
+    case EXCEPTION_STACK_OVERFLOW:
+        ERR_post (isc_exception_stack_overflow, 0);
+	/* This will never be called, but to be safe it's here */
+	return EXCEPTION_CONTINUE_EXECUTION;
+
+    case EXCEPTION_BREAKPOINT:
+    case EXCEPTION_SINGLE_STEP:
+    case EXCEPTION_NONCONTINUABLE_EXCEPTION:
+    case EXCEPTION_INVALID_DISPOSITION:
+    case EXCEPTION_PRIV_INSTRUCTION:
+    case EXCEPTION_IN_PAGE_ERROR:
+    case EXCEPTION_ILLEGAL_INSTRUCTION:
+    case EXCEPTION_GUARD_PAGE:
+	/* Pass these exception on to someone else,
+           probably the OS or the debugger, since there
+           isn't a dam thing we can do with them */
+        free (log_msg);
+	return EXCEPTION_CONTINUE_SEARCH;
+    default:
+	sprintf (log_msg,"%s An exception occurred that does\n"
+			"\t\tnot have a description.  Exception number %X.\n"
+			"\tThis exception will cause the InterBase server\n"
+			"\tto terminate abnormally.",err_msg,except_code);
+	break; 
+	}
+	if (err_msg)
+	{
+		gds__log(log_msg);
+		gds__free(log_msg);
+	}
+	exit(3);
+}
+
+#endif /* SUPERSERVER */
+
+
+//
+// Create or open a Windows/NT event.
+// Use the signal number and process id
+// in naming the object.
+//
+void* ISC_make_signal(
+    BOOLEAN	create_flag,
+    BOOLEAN	manual_reset,
+    int		process_id,
+    int		signal_number)
+{
+	if (!signal_number) {
+		return CreateEvent (NULL, manual_reset, FALSE, NULL);
+	}
+
+	TEXT event_name [64];
+	sprintf(event_name, "_interbase_process%u_signal%d", process_id, signal_number);
+
+	HANDLE hEvent;
+	if (create_flag) {
+		hEvent = CreateEvent(ISC_get_security_desc(), manual_reset, FALSE, event_name);
+	} else {
+		hEvent = OpenEvent(EVENT_ALL_ACCESS, TRUE, event_name);
+	}
+	return hEvent;
+}
+
+
+//
+// Try to map a given file.  If we are the first (i.e. only)
+// process to map the file, call a given initialization
+// routine (if given) or punt (leaving the file unmapped).
+//
+UCHAR * DLL_EXPORT ISC_map_file (
+	STATUS*	status_vector,
+	TEXT*	filename,
+#if 0
+	// TMN: Parameter is in errors!
+	void	(*init_routine)(void *, struct sh_mem *, int),
+#else
+	// MUST of course match header.
+	FPTR_VOID	init_routine,
+#endif
+	void*	init_arg,
+	SLONG	length,
+	SH_MEM	shmem_data)
+{
+	TEXT	expanded_filename [MAXPATHLEN], hostname [64], *p;
+	TEXT	map_file [MAXPATHLEN];
+	HANDLE	file_handle, event_handle;
+	int		init_flag;
+	DWORD	ret_event, fdw_create;
+	int	retry_count = 0;
+
+	/* To maintain compatibility with the FAT file system we will truncate
+	   the host name to 8 characters.  Heaven help us if this creates
+	   an ambiguity. */
+
+
+	/* retry to attach to mmapped file if the process initializing
+	 * dies during initialization.
+	 */
+
+retry:
+	retry_count++;
+
+	ISC_get_host (hostname, sizeof (hostname));
+	hostname [8] = 0;
+	sprintf (map_file, filename, hostname);
+
+	if (length < 0)
+		length = -length;
+
+	file_handle =
+		CreateFile(	map_file,
+					GENERIC_READ | GENERIC_WRITE,
+					FILE_SHARE_READ | FILE_SHARE_WRITE,
+					NULL,
+					OPEN_ALWAYS,
+					FILE_ATTRIBUTE_NORMAL,
+					NULL);
+	if (file_handle == INVALID_HANDLE_VALUE)
+	{
+		error(status_vector, "CreateFile", GetLastError());
+		return NULL;
+	}
+
+	/* Check if file already exists */
+
+	const bool file_exists = (GetLastError() == ERROR_ALREADY_EXISTS);
+
+	// Create an event that can be used to determine if someone has already
+	// initialized shared memory.
+
+	make_object_name (expanded_filename, filename, "_event");
+
+#ifndef CHICAGO_FIXED
+	if (!ISC_is_WinNT())
+		event_handle = CreateMutex (ISC_get_security_desc(), TRUE, expanded_filename);
+	else
+#endif
+	event_handle = CreateEvent (ISC_get_security_desc(), TRUE, FALSE, expanded_filename);
+
+	if (!event_handle)
+	{
+#ifndef CHICAGO_FIXED
+		if (!ISC_is_WinNT())
+			error (status_vector, "CreateMutex", GetLastError());
+		else
+#endif
+		error (status_vector, "CreateEvent", GetLastError());
+		CloseHandle(file_handle);
+		return NULL;
+	}
+
+	init_flag = (GetLastError() == ERROR_ALREADY_EXISTS) ? FALSE : TRUE;
+
+	if (init_flag && !init_routine)
+	{
+		CloseHandle (event_handle);
+		CloseHandle (file_handle);
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__unavailable;
+		*status_vector++ = gds_arg_end;
+		return NULL;
+	}
+
+	if (length == 0)
+	{
+		/* Get and use the existing length of the shared segment */
+		
+		if ((length = GetFileSize (file_handle, NULL)) == -1)
+		{
+			error (status_vector, "GetFileSize", GetLastError());
+			CloseHandle (event_handle);
+			CloseHandle (file_handle);
+			return NULL;
+		}
+	}
+
+	/* All but the initializer will wait until the event is set.  That
+	 * is done after initialization is complete.
+	 * Close the file and wait for the event to be set or time out.
+	 * The file may be truncated.
+	 */
+
+	CloseHandle (file_handle);
+
+	if (!init_flag)
+	{
+		/* Wait for 10 seconds.  Then retry */
+
+#ifndef CHICAGO_FIXED
+		if (!ISC_is_WinNT())
+		{
+			ret_event = WaitForSingleObject (event_handle, 10000);
+			ReleaseMutex (event_handle);
+		}
+		else
+#endif
+			ret_event = WaitForSingleObject (event_handle, 10000);
+
+		// If we timed out, just retry.  It is possible that the
+		// process doing the initialization died before setting the
+		// event.
+
+		if (ret_event == WAIT_TIMEOUT)
+		{
+			CloseHandle (event_handle);
+			if (retry_count > 10)
+			{
+				error (status_vector, "WaitForSingleObject", GetLastError());
+				return NULL;
+			}
+			goto retry;
+		}
+	}
+
+	if (init_flag && file_exists)
+		fdw_create = TRUNCATE_EXISTING | OPEN_ALWAYS;
+	else
+		fdw_create = OPEN_ALWAYS;
+
+	file_handle = CreateFile(	map_file,
+								GENERIC_READ | GENERIC_WRITE,
+								FILE_SHARE_READ | FILE_SHARE_WRITE,
+								NULL,
+								fdw_create,
+								FILE_ATTRIBUTE_NORMAL,
+								NULL);
+	if (file_handle == INVALID_HANDLE_VALUE)
+	{
+		CloseHandle (event_handle);
+		error (status_vector, "CreateFile", GetLastError());
+		return NULL;
+	}
+
+	// Create a file mapping object that will be used to make remapping
+	// possible. The current length of real mapped file and its name
+	// are saved in it.
+	make_object_name (expanded_filename, filename, "_mapping");
+
+	HANDLE header_obj =
+		CreateFileMapping ((HANDLE) -1,
+							ISC_get_security_desc(),
+							PAGE_READWRITE,
+							0,
+							2 * sizeof (SLONG),
+							expanded_filename);
+	if (header_obj == NULL)
+	{
+		error (status_vector, "CreateFileMapping", GetLastError());
+		CloseHandle (event_handle);
+		CloseHandle (file_handle);
+		return NULL;
+	}
+
+	SLONG* header_address =
+		(SLONG*)MapViewOfFile (header_obj, FILE_MAP_WRITE, 0, 0, 0);
+
+	if (header_address == NULL)
+	{
+		error (status_vector, "CreateFileMapping", GetLastError());
+		CloseHandle (header_obj);
+		CloseHandle (event_handle);
+		CloseHandle (file_handle);
+		return NULL;
+	}
+
+	// Set or get the true length of the file depending on whether or not
+	// we are the first user.
+
+	if (init_flag)
+	{
+		header_address [0] = length;
+		header_address [1] = 0;
+	}
+	else
+		length = header_address [0];
+
+	/* Create the real file mapping object. */
+
+	for (p = expanded_filename; *p; p++)
+		;
+	sprintf (p, "%d", header_address [1]);
+
+	HANDLE file_obj =
+		CreateFileMapping(	file_handle,
+							ISC_get_security_desc(),
+							PAGE_READWRITE,
+							0,
+							length,
+							expanded_filename);
+	if (file_obj == NULL)
+	{
+		error (status_vector, "CreateFileMapping", GetLastError());
+		UnmapViewOfFile (header_address);
+		CloseHandle (header_obj);
+		CloseHandle (event_handle);
+		CloseHandle (file_handle);
+		return NULL;
+	}
+
+	UCHAR* address =
+		(UCHAR*)MapViewOfFile (file_obj, FILE_MAP_WRITE, 0, 0, 0);
+
+	if (address == NULL)
+	{
+		error (status_vector, "CreateFileMapping", GetLastError());
+		CloseHandle (file_obj);
+		UnmapViewOfFile (header_address);
+		CloseHandle (header_obj);
+		CloseHandle (event_handle);
+		CloseHandle (file_handle);
+		return NULL;
+	}
+
+	*p = 0;
+
+	shmem_data->sh_mem_address = address;
+	shmem_data->sh_mem_length_mapped = length;
+	shmem_data->sh_mem_handle = file_handle;
+	shmem_data->sh_mem_object = file_obj;
+	shmem_data->sh_mem_interest = event_handle;
+	shmem_data->sh_mem_hdr_object = header_obj;
+	shmem_data->sh_mem_hdr_address = header_address;
+	strcpy (shmem_data->sh_mem_name, expanded_filename);
+
+	if (init_routine) {
+		// Lie a bit to make it compile...
+		reinterpret_cast<void(*)(void*, sh_mem*,int)>(*init_routine) (init_arg, shmem_data, init_flag);
+	}
+
+	if (init_flag)
+	{
+		FlushViewOfFile (address, 0);
+#ifndef CHICAGO_FIXED
+		if (!ISC_is_WinNT())
+			ReleaseMutex (event_handle);
+		else
+#endif
+		SetEvent (event_handle);
+		if (SetFilePointer (shmem_data->sh_mem_handle, length, NULL, FILE_BEGIN) == 0xFFFFFFFF ||
+			!SetEndOfFile (shmem_data->sh_mem_handle) ||
+			!FlushViewOfFile (shmem_data->sh_mem_address, 0))
+		{
+			error (status_vector, "SetFilePointer", GetLastError());
+			return NULL;
+		}
+	}
+
+	return address;
+}
+
+
+//
+// Initialize a mutex.
+//
+int DLL_EXPORT ISC_mutex_init(MTX mutex, TEXT* mutex_name)
+{
+	char name_buffer[MAXPATHLEN];
+
+	make_object_name(name_buffer, mutex_name, "_mutex");
+	mutex->mtx_handle = CreateMutex(ISC_get_security_desc(), FALSE, name_buffer);
+
+	return mutex->mtx_handle ? 0 : 1;
+}
+
+
+//
+// Sieze a mutex.
+//
+int DLL_EXPORT ISC_mutex_lock(MTX mutex)
+{
+	const DWORD status = WaitForSingleObject(mutex->mtx_handle, INFINITE);
+	return (!status || status == WAIT_ABANDONED) ? 0 : 1;
+}
+
+
+//
+// Conditionally sieze a mutex.
+//
+int DLL_EXPORT ISC_mutex_lock_cond(MTX mutex)
+{
+	const DWORD status = WaitForSingleObject (mutex->mtx_handle, 0L);
+	return (!status || status == WAIT_ABANDONED) ? 0 : 1;
+}
+
+
+//
+// Release a mutex.
+//
+int DLL_EXPORT ISC_mutex_unlock(MTX mutex)
+{
+	return !ReleaseMutex(mutex->mtx_handle);
+}
+
+
+//
+// Try to re-map a given file.
+//
+UCHAR * DLL_EXPORT ISC_remap_file (
+    STATUS*	status_vector,
+    SH_MEM	shmem_data,
+    SLONG	new_length,
+    USHORT	flag)
+{
+	if (flag) {
+		if (SetFilePointer (shmem_data->sh_mem_handle, new_length, NULL, FILE_BEGIN) == 0xFFFFFFFF ||
+			!SetEndOfFile (shmem_data->sh_mem_handle) ||
+			!FlushViewOfFile (shmem_data->sh_mem_address, 0))
+		{
+			error (status_vector, "SetFilePointer", GetLastError());
+			return NULL;
+		}
+	}
+
+	/* If the remap file exists, remap does not occur correctly.
+	 * The file number is local to the process and when it is 
+	 * incremented and a new filename is created, that file may
+	 * already exist.  In that case, the file is not expanded.
+	 * This will happen when the file is expanded more than once
+	 * by concurrently running processes.
+	 * 
+	 * The problem will be fixed by making sure that a new file name
+	 * is generated with the mapped file is created.
+	 */
+
+	HANDLE file_obj;
+
+	while (1)
+	{
+		TEXT expanded_filename[MAXPATHLEN];
+		sprintf(expanded_filename,
+				"%s%d",
+				shmem_data->sh_mem_name,
+				shmem_data->sh_mem_hdr_address[1] + 1);
+
+		file_obj = CreateFileMapping(	shmem_data->sh_mem_handle,
+										ISC_get_security_desc(),
+										PAGE_READWRITE,
+										0,
+										new_length,
+										expanded_filename);
+
+		if (!((GetLastError () == ERROR_ALREADY_EXISTS) && flag))
+			break;
+
+		CloseHandle (file_obj);
+		shmem_data->sh_mem_hdr_address [1] ++;
+	}
+
+	if (file_obj == NULL)
+	{
+		error (status_vector, "CreateFileMapping", GetLastError());
+		return NULL;
+	}
+
+	LPVOID address = MapViewOfFile(file_obj, FILE_MAP_WRITE, 0, 0, 0);
+
+	if (address == NULL)
+	{
+		error (status_vector, "CreateFileMapping", GetLastError());
+		CloseHandle (file_obj);
+		return NULL;
+	}
+
+	if (flag)
+	{
+		shmem_data->sh_mem_hdr_address [0] = new_length;
+		shmem_data->sh_mem_hdr_address [1]++;
+	}
+
+	UnmapViewOfFile(shmem_data->sh_mem_address);
+	CloseHandle(shmem_data->sh_mem_object);
+
+	shmem_data->sh_mem_address = reinterpret_cast<UCHAR*>(address);
+	shmem_data->sh_mem_length_mapped = new_length;
+	shmem_data->sh_mem_object = file_obj;
+
+	return reinterpret_cast<UCHAR*>(address);
+}
+
+
+//
+// Detach from the shared memory.  Depending upon the flag,
+// get rid of the semaphore and/or get rid of shared memory.
+//
+void DLL_EXPORT ISC_unmap_file(
+    STATUS	*status_vector,
+    SH_MEM	shmem_data,
+    USHORT	flag)
+{
+	CloseHandle (shmem_data->sh_mem_interest);
+	CloseHandle ((HANDLE) shmem_data->sh_mem_mutex_arg);
+	UnmapViewOfFile (shmem_data->sh_mem_address);
+	CloseHandle (shmem_data->sh_mem_object);
+	if (flag & ISC_MEM_REMOVE) {
+		if (SetFilePointer (shmem_data->sh_mem_handle, 0, NULL, FILE_BEGIN) != 0xFFFFFFFF) {
+			SetEndOfFile (shmem_data->sh_mem_handle);
+		}
+	}
+	CloseHandle (shmem_data->sh_mem_handle);
+	UnmapViewOfFile(shmem_data->sh_mem_hdr_address);
+	CloseHandle (shmem_data->sh_mem_hdr_object);
+}
+
+
+//
+// We've encountered an error, report it.
+//
+static void error(STATUS* status_vector, TEXT* string, STATUS status)
+{
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = gds__sys_request;
+	*status_vector++ = gds_arg_string;
+	*status_vector++ = reinterpret_cast<STATUS>(string);
+	*status_vector++ = SYS_ARG;
+	*status_vector++ = status;
+	*status_vector++ = gds_arg_end;
+}
+
+
+//
+// Create an object name from a name and type.
+// Also replace the file separator with "_".
+//
+static void make_object_name(	char*		buffer,
+								const char*	object_name,
+								const char*	object_type)
+{
+	char	hostname[64];
+	char*	p;
+	char	c;
+
+	sprintf(buffer, object_name, ISC_get_host(hostname, sizeof(hostname)));
+	for (p = buffer; c = *p; p++) {
+		if (c == '/' || c == '\\' || c == ':') {
+			*p = '_';
+		}
+	}
+	strcpy(p, object_type);
+}
+
+
+}	// extern "C"
diff --git a/src/jrd/isc_win32.cpp b/src/jrd/isc_win32.cpp
new file mode 100644
index 0000000000..234922a37a
--- /dev/null
+++ b/src/jrd/isc_win32.cpp
@@ -0,0 +1,473 @@
+/*
+ *      PROGRAM:        JRD Access Method - Win32 specific functions.
+ *      MODULE:         isc_win32.c
+ *      DESCRIPTION:    General purpose but non-user routines.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Added TCP_NO_DELAY option for superserver on Linux
+ * FSG 16.03.2001 
+ * Solaris x86 changes - Konstantin Kuznetsov, Neil McCalden
+ */
+/*
+$Id: isc_win32.cpp,v 1.1.1.1 2001-05-23 13:26:20 tamlin Exp $
+*/
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include <string.h>
+#include <stdlib.h>
+#include <errno.h>
+#include <windows.h>
+
+#include "../jrd/codes.h"
+#include "../jrd/isc.h"
+#include "../jrd/ibase.h"
+#include "../jrd/jrd.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/jrd_proto.h"
+
+
+#include <windows.h>
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT            SCHAR
+
+#include <process.h>
+#include <signal.h>
+
+static USHORT				os_type;
+static SECURITY_ATTRIBUTES	security_attr;
+
+#ifdef MAXPATHLEN
+#undef MAXPATHLEN
+#endif
+#define MAXPATHLEN      512
+
+static TEXT interbase_directory[MAXPATHLEN];
+
+void			isc_internal_set_config_value(UCHAR, ULONG*, ULONG*);
+static BOOLEAN	check_user_privilege();
+
+
+//____________________________________________________________
+//
+// Checks if the process indicated by the process id 'pid' exists.
+// Returns TRUE if the indicated process exists, FALSE otherwise.
+//
+int DLL_EXPORT ISC_check_process_existence(SLONG	pid,
+										   SLONG	xl_pid,
+										   USHORT	super_user)
+{
+	HANDLE handle = OpenProcess(PROCESS_DUP_HANDLE, FALSE, (DWORD) pid);
+
+	if (!handle && GetLastError() != ERROR_ACCESS_DENIED)
+	{
+		return FALSE;
+	}
+
+	CloseHandle(handle);
+	return TRUE;
+}
+
+
+//____________________________________________________________
+//
+// Get host name. Note that this is not the DNS (TCP/IP) hostname,
+// it's the Win32 computer name.
+//
+TEXT* INTERNAL_API_ROUTINE ISC_get_host(TEXT * string, USHORT length)
+{
+	DWORD host_len = length;
+	if (GetComputerName(string, &host_len))
+	{
+		string[host_len] = 0;
+	}
+	else
+	{
+		strcpy(string, "local");
+	}
+
+	return string;
+}
+
+
+//____________________________________________________________
+//
+// Returns the type of OS. TRUE for NT,
+// FALSE for the 16-bit based ones (9x/ME, ...).
+//
+BOOLEAN ISC_is_WinNT()
+{
+	OSVERSIONINFO OsVersionInfo;
+
+	if (!os_type)
+	{
+		os_type = 1;			/* Default to NT */
+		/* The first time this routine is called we use the Windows API
+		   call GetVersion to determine whether Windows/NT or Chicago
+		   is running. */
+
+		OsVersionInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
+		if (GetVersionEx((LPOSVERSIONINFO) & OsVersionInfo))
+		{
+			os_type =
+				(OsVersionInfo.dwPlatformId == VER_PLATFORM_WIN32_NT) ? 1 : 2;
+		}
+
+	}
+
+	return (os_type != 2) ? TRUE : FALSE;
+}
+
+
+//____________________________________________________________
+//
+// Lookup a registry entry.
+// Returns TRUE if the lookup was successful, FALSE otherwise.
+//
+SSHORT ISC_get_registry_var(TEXT*	variable,
+							TEXT*	buffer,
+							SSHORT	buffer_length,
+							void**	user_hkey)
+{
+	HKEY hkey;
+	DWORD len, type;
+
+	if (!user_hkey)
+	{
+		LPCTSTR szKey = "SOFTWARE\\Borland\\InterBase\\CurrentVersion";
+		const LONG ret =
+			RegOpenKeyEx(HKEY_LOCAL_MACHINE, szKey, 0, KEY_QUERY_VALUE, &hkey);
+		if (ret != ERROR_SUCCESS)
+		{
+			return -1;
+		}
+	}
+	else
+	{
+		hkey = *((PHKEY) user_hkey);
+	}
+
+	len = buffer_length;
+
+#pragma FB_COMPILER_MESSAGE("Can/should we fix this cast?")
+
+	const LONG ret =
+		RegQueryValueEx(hkey, variable, NULL, &type, (LPBYTE) buffer, &len);
+
+	if (ret != ERROR_SUCCESS)
+	{
+		len = 0;
+	}
+
+	if (!user_hkey)
+	{
+		RegCloseKey(hkey);
+	}
+
+	return (SSHORT) len;
+}
+
+
+//____________________________________________________________
+//
+//
+LPSECURITY_ATTRIBUTES ISC_get_security_desc()
+{
+	if (security_attr.lpSecurityDescriptor)
+	{
+		return &security_attr;
+	}
+
+	PSECURITY_DESCRIPTOR p_security_desc =
+		(PSECURITY_DESCRIPTOR) gds__alloc((SLONG)
+											SECURITY_DESCRIPTOR_MIN_LENGTH);
+/* FREE: apparently never freed */
+	if (!p_security_desc)		/* NOMEM: */
+	{
+		return NULL;
+	}
+#ifdef DEBUG_GDS_ALLOC
+	gds_alloc_flag_unfreed((void *) p_security_desc);
+#endif
+
+	if (!InitializeSecurityDescriptor(	p_security_desc,
+										SECURITY_DESCRIPTOR_REVISION) ||
+		!SetSecurityDescriptorDacl(p_security_desc, TRUE, (PACL) NULL, FALSE))
+	{
+		gds__free(p_security_desc);
+		return NULL;
+	}
+
+	security_attr.nLength = sizeof(security_attr);
+	security_attr.lpSecurityDescriptor = p_security_desc;
+	security_attr.bInheritHandle = TRUE;
+
+	return &security_attr;
+}
+
+
+//____________________________________________________________
+//
+// Find out who the user is.
+//
+int INTERNAL_API_ROUTINE ISC_get_user(TEXT*	name,
+									  int*	id,
+									  int*	group,
+									  TEXT*	project,
+									  TEXT*	organization,
+									  int*	node,
+									  TEXT*	user_string)
+{
+	if (id)
+		*id = -1;
+
+	if (group)
+		*group = -1;
+
+	if (project)
+		*project = 0;
+
+	if (organization)
+		*organization = 0;
+
+	if (node)
+		*node = 0;
+
+	if (name)
+	{
+		name[0] = 0;
+		DWORD  name_len = 128;
+		if (GetUserName(name, &name_len))
+		{
+			name[name_len] = 0;
+
+			/* NT user name is case insensitive */
+
+			for (DWORD i = 0; i < name_len; i++)
+			{
+				name[i] = UPPER7(name[i]);
+			}
+
+/* This check is not internationalized, the security model needs to be
+ * reengineered, especially on SUPERSERVER where none of these local
+ * user (in process) assumptions are valid.
+ */
+			if (!strcmp(name, "ADMINISTRATOR"))
+			{
+				if (id)
+					*id = 0;
+
+				if (group)
+					*group = 0;
+			}
+		}
+	}
+
+	return check_user_privilege();
+}
+
+
+//____________________________________________________________
+//
+// Check to see if the user belongs to the administrator group.
+//
+// This routine was adapted from code in routine RunningAsAdminstrator
+// in \mstools\samples\regmpad\regdb.c.
+//
+static BOOLEAN check_user_privilege(void)
+{
+	HANDLE tkhandle;
+	SID_IDENTIFIER_AUTHORITY system_sid_authority = SECURITY_NT_AUTHORITY;
+
+	// First we must open a handle to the access token for this thread.
+
+	if (!OpenThreadToken(GetCurrentThread(), TOKEN_QUERY, FALSE, &tkhandle))
+	{
+		if (GetLastError() == ERROR_NO_TOKEN)
+		{
+			// If the thread does not have an access token, we'll examine the
+			// access token associated with the process.
+
+			if (!OpenProcessToken(GetCurrentProcess(), TOKEN_QUERY, &tkhandle))
+			{
+				CloseHandle(tkhandle);
+				return FALSE;
+			}
+		}
+		else
+		{
+			return FALSE;
+		}
+	}
+
+	TOKEN_GROUPS*	ptg       = NULL;
+	DWORD			token_len = 0;
+
+	while (TRUE)
+	{
+		/* Then we must query the size of the group information associated with
+		   the token.  This is guarenteed to fail the first time through
+		   because there is no buffer. */
+
+		if (GetTokenInformation(tkhandle,
+								TokenGroups,
+								ptg,
+								token_len,
+								&token_len))
+		{
+			break;
+		}
+
+		/* If there had been a buffer, it's either too small or something
+		   else is wrong.  Either way, we can dispose of it. */
+
+		if (ptg)
+		{
+			gds__free(ptg);
+		}
+
+		/* Here we verify that GetTokenInformation failed for lack of a large
+		   enough buffer. */
+
+		if (GetLastError() != ERROR_INSUFFICIENT_BUFFER)
+		{
+			CloseHandle(tkhandle);
+			return FALSE;
+		}
+
+		// Allocate a buffer for the group information.
+		ptg = (TOKEN_GROUPS *) gds__alloc((SLONG) token_len);
+
+		if (!ptg)
+		{
+			CloseHandle(tkhandle);
+			return FALSE;		/* NOMEM: */
+		}
+		// FREE: earlier in this loop, and at procedure return
+	}
+
+	// Create a System Identifier for the Admin group.
+
+	PSID admin_sid;
+
+	if (!AllocateAndInitializeSid(&system_sid_authority, 2,
+								  SECURITY_BUILTIN_DOMAIN_RID,
+								  DOMAIN_ALIAS_RID_ADMINS,
+								  0, 0, 0, 0, 0, 0, &admin_sid))
+	{
+		gds__free(ptg);
+		CloseHandle(tkhandle);
+		return FALSE;
+	}
+
+	// Finally we'll iterate through the list of groups for this access
+	// token looking for a match against the SID we created above.
+
+	BOOLEAN admin_priv = FALSE;
+
+	for (DWORD i = 0; i < ptg->GroupCount; i++)
+	{
+		if (EqualSid(ptg->Groups[i].Sid, admin_sid))
+		{
+			admin_priv = TRUE;
+			break;
+		}
+	}
+
+	// Deallocate the SID we created.
+
+	FreeSid(admin_sid);
+	gds__free(ptg);
+	CloseHandle(tkhandle);
+	return admin_priv;
+}
+
+
+#ifdef SUPERSERVER
+
+//____________________________________________________________
+//
+//
+void isc_internal_set_config_value(UCHAR	key,
+								   ULONG*	value1_ptr,
+								   ULONG*	value2_ptr)
+{
+	switch (key)
+	{
+	case ISCCFG_DBCACHE_KEY:
+		JRD_set_cache_default(value1_ptr);
+		break;
+	case ISCCFG_PRIORITY_KEY:
+		{
+			ULONG priority;
+			if (*value1_ptr == 2)
+				priority = HIGH_PRIORITY_CLASS;
+			else
+				priority = NORMAL_PRIORITY_CLASS;
+
+			if (!SetPriorityClass(GetCurrentProcess(), priority))
+			{
+				gds__log("Unable to set process priority.");
+			}
+		}
+		break;
+	case ISCCFG_MEMMAX_KEY:
+	case ISCCFG_MEMMIN_KEY:
+		if (*value1_ptr && *value2_ptr && ISC_is_WinNT())
+		{
+			HANDLE hndl =
+				OpenProcess(PROCESS_SET_QUOTA, FALSE, GetCurrentProcessId());
+
+			if (hndl) {
+				ULONG value1 = *value1_ptr * 1024;
+				ULONG value2 = *value2_ptr * 1024;
+
+				if (!SetProcessWorkingSetSize(hndl, value1, value2))
+				{
+					switch (GetLastError())
+					{
+					case ERROR_ACCESS_DENIED:
+					case ERROR_PRIVILEGE_NOT_HELD:
+						gds__log("Error setting process working set size, access denied.");
+						break;
+					case ERROR_INVALID_PARAMETER:
+						gds__log("Error setting process working set size, improper range.");
+						break;
+					case ERROR_NO_SYSTEM_RESOURCES:
+						gds__log("Error setting process working set size, insufficient memory.");
+						break;
+					default:
+						gds__log("Error setting process working set size, unknown problem.");
+
+
+					}
+					*value1_ptr = 0;
+					*value2_ptr = 0;
+				}
+				CloseHandle(hndl);
+			}
+
+		}
+	}
+}
+
+#endif /* SUPERSERVER */
+
diff --git a/src/jrd/iscmsgs.msg b/src/jrd/iscmsgs.msg
new file mode 100644
index 0000000000..66ea08ba5a
--- /dev/null
+++ b/src/jrd/iscmsgs.msg
@@ -0,0 +1,67 @@
+
+.FACILITY GDS,941
+.BASE 1
+
+.SEVERITY ERROR
+BADBLK/FAO_COUNT=1	<Bad !AC block encountered>
+INVPOOLCL		<Invalid pool class given>
+NOPOOLIDS		<All available dynamic memory pools have been exhausted>
+RELBADBLK		<RLBLK: Attempted to release bad block>
+BLKTOOBIG		<Attempted to get a block that is too big>
+BUFEXH			<Buffers exhausted>
+SYNTAXERR/FAO_COUNT=3	<Syntax error in BLR: !AC, offset !UL, operator !UL>
+BUFINUSE		<Buffer was in use>
+BDBINCON		<BDB inconsistent>
+REQINUSE		<Request already in use>
+BADODSVER/FAO_COUNT=2	<Bad version (!UL) of on-disk structure (expected !UL)>
+RELNOTDEF/FAO_COUNT=1	<Relation !AC is not defined>
+FLDNOTDEF/FAO_COUNT=2	<Field !AC is not defined in relation !AC>
+
+.SEVERITY INFORMATIONAL
+DIRTYPAGE/FAO_COUNT=1	<Page !UL accessed for write must be written>
+WAIFORTRA/FAO_COUNT=1	<Waiting for transaction !UL>       
+
+.SEVERITY ERROR
+DOUBLELOC		<Double lock during lock conversion>
+
+.SEVERITY INFORMATIONAL
+NODNOTFND		<Index not found during delete>
+DUPNODFND		<Duplicate index entry found>
+LOCNOTMAR/FAO_COUNT=1	<Page !XL lock for write but not written>
+
+.SEVERITY FATAL
+BADPAGTYP/FAO_COUNT=2	<Bad page type, page=!XL, type expected=!UL>
+CORRUPT/FAO_COUNT=2	<Database is corrupt, page=!XL, !AC>
+
+.SEVERITY INFORMATIONAL
+BADPAGE/FAO_COUNT=1	<Page checksum error on page=!XL>
+BADINDEX/FAO_COUNT=1	<Can't create index !AC. Improper or non-existent field(s)>
+
+.SEVERITY ERROR
+DBBNOTZER		<Database handle not zero for attach/create database>
+TRANOTZER/FAO_COUNT=1	<Transaction handle not zero for !AC>
+TRAREQMIS		<Request handle and transaction handle conflict>
+BADHNDCNT		<Only one database handle is supported on RDB$START_TRANSACTION>
+WROTPBVER/FAO_COUNT=2	<Bad TPB version number.  Expected version !UL, found version !UL>
+WROBLRVER/FAO_COUNT=2	<Bad BLR version number.  Expected version !UL, found version !UL>
+WRODPBVER/FAO_COUNT=2	<Bad DPB version number.  Expected version !UL, found version !UL>
+SEGSTRNOTSUP/FAO_COUNT=1	<!AC operation is not supported on segmented strings>
+BADRELATION/FAO_COUNT=1	<Relation (ID = !UL) is ill-formed (bad view?)>
+
+.SEVERITY INFORMATIONAL
+NODETACH/FAO_COUNT=2	<Process exit with database attached; !UL transaction!%S>
+
+.SEVERITY ERROR
+NOTREMOTE		<Filename did not contain a remote node name>
+TRAINLIM/FAO_COUNT=1	<Transaction !UL is stuck in limbo>
+NOTINLIM/FAO_COUNT=1	<Can't reconnect to transaction !UL (not in limbo)>
+TRAOUTSTA		<Can't detach, database has transactions outstanding>
+CONNECT_REJECT		<Host and server can't agree on a protocol>
+DBFILE/FAO_COUNT=1	<Database is !AC>
+
+.SEVERITY INFORMATIONAL
+ORPHAN_PAGES/FAO_COUNT=3	<!UL Orphan Page!%S found !AC>
+
+.SEVERITY ERROR
+MISC_INTERPRETED/FAO_COUNT=1	<!AC>
+.END
diff --git a/src/jrd/iutls.def b/src/jrd/iutls.def
new file mode 100644
index 0000000000..8e61e80ee3
--- /dev/null
+++ b/src/jrd/iutls.def
@@ -0,0 +1,185 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+; 
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+; 
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+; 
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;------------------------------------------------------------
+;  IUTLS DLL MODULE DEFINITION FILE
+;------------------------------------------------------------
+
+LIBRARY     IUTLS
+
+DESCRIPTION 'INTERNAL UTILITY INTERBASE MODULE'
+CODE MOVEABLE 
+DATA MOVEABLE SINGLE
+SEGMENTS
+    _TEXT              DISCARDABLE
+    DSC_TEXT           DISCARDABLE
+    ENC_TEXT           DISCARDABLE
+    FUNCTION_TEXT      DISCARDABLE
+    GDS_TEXT           DISCARDABLE
+    ISC_TEXT           DISCARDABLE
+    ISC_FILE_TEXT      DISCARDABLE
+    ISC_IPC_TEXT       DISCARDABLE
+    ISC_SYNC_TEXT      DISCARDABLE
+    IUTLSWEP_TEXT      PRELOAD
+    LOITER_TEXT        DISCARDABLE
+    MATH_TEXT          DISCARDABLE
+    NODE_TEXT          DISCARDABLE
+    SDL_TEXT           DISCARDABLE
+    THD_TEXT           DISCARDABLE
+    UTLD_TEXT          DISCARDABLE
+    DLLSHELL_TEXT      PRELOAD
+
+
+EXPORTS
+; Next new ordinal must be > 95
+
+; DSC.C
+	_DSC_convert_to_text_length    @2
+	_DSC_make_descriptor           @3
+	_DSC_string_length             @4
+
+; ENC.C
+	_ENC_crypt                     @5
+
+; FUNCTION.C
+	_FUNCTIONS_entrypoint          @6
+
+; GDS.C
+	_gds__alloc                    @7
+	_gds__decode                   @8
+	_gds__decode_date              @9
+	_gds__encode                   @10
+	_gds__encode_date              @11
+	_gds__free                     @12
+	_gds__ftof                     @13
+	_gds__interprete               @14
+	_gds__interprete_a             @15
+	_gds__log                      @16
+	_gds__log_status               @17
+	_gds__msg_close                @18
+	_gds__msg_format               @19
+	_gds__msg_lookup               @20
+	_gds__msg_open                 @21
+	_gds__msg_put                  @22
+	_gds__parse_bpb                @23
+	_gds__parse_bpb2               @24
+	_gds__prefix                   @25
+	_gds__print_blr                @26
+	_gds__print_status             @27
+	_gds__put_error                @28
+	_gds__qtoq                     @29
+	_gds__register_cleanup         @30
+	_gds__sqlcode                  @31
+	_gds__sqlcode_s                @32
+	_gds__temp_file                @33
+	_gds__temp_multi_file          @34
+	_gds__unregister_cleanup       @35
+	_gds__vax_integer              @36
+	_gds__vtof                     @37
+	_gds__vtov                     @38
+
+	_gds__alloc_debug              @96
+	_gds_alloc_flag_unfreed        @97
+	_gds_alloc_report              @98
+
+	_isc_print_sqlerror            @39
+	_isc_sql_interprete            @40
+
+; ISC.C
+	_ISC_check_process_existence   @41
+	_ISC_get_config                @42
+	_ISC_get_host                  @43
+	_ISC_get_user                  @44
+	_ISC_ast_enter                 @45
+	_ISC_ast_exit                  @46
+	_ISC_prefix_interbase              @91
+
+; ISC_FILE.C
+	_ISC_expand_filename           @47
+	_ISC_check_if_remote           @48
+	_ISC_analyze_spx               @49
+	_ISC_analyze_tcp               @50
+	_ISC_analyze_pclan             @94
+	_ISC_expand_share              @95
+
+; ISC_IPC.C
+	_ISC_enter                     @51
+	_ISC_exit                      @52
+	_ISC_signal                    @53
+	_ISC_signal_cancel             @54
+	_ISC_signal_init               @55
+	_ISC_inhibit                   @56
+	_ISC_enable                    @57
+
+; ISC_SYNC.C
+	_ISC_event_clear               @58
+	_ISC_event_init                @59
+	_ISC_event_post                @60
+	_ISC_event_wait                @61
+	_ISC_map_file                  @62
+	_ISC_mutex_init                @63
+	_ISC_mutex_lock                @64
+	_ISC_mutex_unlock              @65
+	_ISC_remap_file                @66
+	_ISC_unmap_file                @67
+
+; LOITER.C
+	_LOITER_loiter                             @87
+
+; MATH.C
+	_MATH_divide                               @92
+	_MATH_multiply                             @93
+
+; NODE.C
+	_NODE_license                  @68
+
+
+; SDL.C
+	_SDL_compute_subscript         @70
+	_SDL_info                      @71
+	_SDL_prepare_slice             @72
+	_SDL_walk                      @73
+
+; THD.C
+	_gds__thread_start             @74
+
+	_THD_get_specific              @75
+	_THD_init                      @76
+	_THD_put_specific              @77
+	_THD_restore_specific          @78
+	_THD_mutex_destroy             @79
+	_THD_mutex_init                @80
+	_THD_mutex_lock                @81
+	_THD_mutex_unlock              @82
+	_THD_wlck_destroy              @83
+	_THD_wlck_init                 @84
+	_THD_wlck_lock                 @85
+	_THD_wlck_unlock               @86
+
+; ../DSQL/UTLD.C
+	_UTLD_parse_sql_info           @88
+	_UTLD_parse_sqlda              @89
+	_UTLD_save_status_strings      @90
+
+; SEG.C
+	_SEG_compare		       @101
+	_SEG_move                      @99
+	_SEG_set                       @100
+
+
+;-------------------------------------------
+	WEP                             @1 RESIDENTNAME
+
diff --git a/src/jrd/jio.cpp b/src/jrd/jio.cpp
new file mode 100644
index 0000000000..6d9e455f78
--- /dev/null
+++ b/src/jrd/jio.cpp
@@ -0,0 +1,1467 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		jio.c
+ *	DESCRIPTION:	Journal file i/o
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/* NOTE that this module is used only on platforms that use
+   VMS style journaling.   At the moment this is limited to
+   VMS and MPE XL. */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/jrd.h"
+#include "../jrd/jrn.h"
+#include "../jrd/codes.h"
+
+#ifdef VMS
+#include <file.h>
+#include <lckdef.h>
+#include "../jrd/vms.h"
+#define EVENT_FLAG	15
+#define SYS_ERROR	gds_arg_vms
+#endif
+
+#ifndef VMS
+#include <sys/types.h>
+
+#ifdef SOLARIS
+#include <fcntl.h>
+#endif
+
+#ifdef SCO_UNIX
+#include <fcntl.h>
+#include <sys/stat.h>
+#endif
+
+#ifdef DELTA
+#include <fcntl.h>
+#endif
+
+#ifdef M88K
+#include <fcntl.h>
+#endif
+
+#ifdef EPSON
+#include <fcntl.h>
+#endif
+
+#ifdef PC_PLATFORM
+#include <fcntl.h>
+#include <sys/stat.h>
+#include <io.h>
+#define FILE_OPEN(name,access,mask)	open (name, access)
+#else
+#include <sys/file.h>
+#endif
+
+#ifdef NETWARE_386
+#include <errno.h>
+#endif
+
+#define SYS_ERROR	gds_arg_unix
+extern int errno;
+#endif
+
+#ifndef FILE_OPEN
+#define FILE_OPEN(name,access,mask)	open (name, access, mask)
+#endif
+
+#ifndef O_BINARY
+#define O_BINARY	0
+#endif
+
+#define BLOCKS(length)	((length + BLOCK_SIZE - 1) / BLOCK_SIZE)
+
+extern SLONG LOCK_enq();
+extern SLONG LOCK_read_data();
+DIR JIO_next_dir();
+SLONG JIO_rewind();
+static SLONG add_database();
+static SLONG block_number();
+static DIR locate_dir();
+static SLONG lookup_id();
+
+/* Lock Block data */
+
+typedef union {
+	struct {
+		SSHORT segment;
+		SSHORT block;
+	} data_items;
+	SLONG data_long;
+} LDATA;
+
+
+JIO_fini(journal)
+	 JRN journal;
+{
+/**************************************
+ *
+ *	J I O _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Signoff journal file.
+ *
+ **************************************/
+	LDATA data;
+	struct jfh header;
+	int status;
+
+	acquire(journal, &data);
+	position_and_read(journal, 0L, &header, sizeof(header));
+	header.jfh_write_block = data.data_items.block;
+	position_and_write(journal, 0L, &header, sizeof(header));
+
+	lock_release(journal);
+
+#ifdef VMS
+	status = sys$dassgn(journal->jrn_channel);
+
+	if (!(status & 1))
+		error(journal, status, "sys$dassgn", isc_io_access_err);
+
+#endif
+
+#ifndef VMS
+	close((int) journal->jrn_channel);
+#endif
+}
+
+
+JIO_get_position(journal, data)
+	 JRN journal;
+	 LDATA *data;
+{
+/**************************************
+ *
+ *	J I O _ g e t _ p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get current output position in journal file.  This is
+ *	used to implement FLUSH verb in journal server.
+ *
+ **************************************/
+
+	acquire(journal, data);
+	release(journal, data);
+}
+
+
+DIR JIO_next_dir(dir)
+	 DIR dir;
+{
+/**************************************
+ *
+ *	J I O _ n e x t _ d i r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute address of next directory entry.
+ *
+ **************************************/
+	USHORT length;
+
+	length = sizeof(struct dir) - 1 + dir->dir_length;
+	length = (length + 1) & ~1;
+
+	return (DIR) ((TEXT *) dir + length);
+}
+
+
+JIO_open(journal)
+	 JRN journal;
+{
+/**************************************
+ *
+ *	J I O _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TEXT *file_name;
+	USHORT new;
+	LDATA data;
+	struct jfh header;
+	int n, mask;
+
+/* Try to open the journal file.  If we can't, try to create it.  If we
+   create it, format it.  If we can't open or create, try to open one
+   last time. */
+
+	if (new = journal_open(journal, &data)) {
+		clear(&header, sizeof(header));
+		header.jfh_version = JFH_VERSION;
+		header.jfh_free = SEGMENT_SLOTS;
+		n = header.jfh_segments[0] = header.jfh_allocation++;
+		position_and_write(journal, 0L, &header, sizeof(header));
+	}
+
+/* Get intermediate file header */
+
+	position_and_read(journal, 0L, &header, sizeof(header));
+
+	if (header.jfh_version != JFH_VERSION) {
+		ERR_post(gds__jrn_format_err, 0);
+		/* Msg366 journal file wrong format */
+	}
+
+/* Try to get exclusive lock.  If so, do a little cleanup */
+
+	if (lock_exclusive(journal, FALSE)) {
+		data.data_items.segment = header.jfh_segments[header.jfh_data];
+		if (!new)
+			header.jfh_write_block = high_water(journal, &header);
+		data.data_items.block = header.jfh_write_block;
+		++header.jfh_series;
+		position_and_write(journal, 0L, &header, sizeof(header));
+	}
+
+	journal->jrn_series = header.jfh_series;
+	release(journal, &data);
+}
+
+
+JIO_put(journal, message, size)
+	 JRN journal;
+	 LTJC *message;
+	 USHORT size;
+{
+/**************************************
+ *
+ *	J I O _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a record to the journal file.
+ *
+ **************************************/
+	SLONG block, blocks;
+	SSHORT n, fudge;
+	struct jrnh dummy;
+	LDATA data;
+	USHORT waited;
+
+/* Get write lock on journal file.  The lock block will tell us where
+   to write next */
+
+	acquire(journal, &data);
+
+/* Do any message processing necessary */
+
+	switch (message->ltjc_header.jrnh_type) {
+	case JRN_ENABLE:
+		journal->jrn_handle = add_database(journal,
+										   message->ltjc_data,
+										   message->ltjc_length);
+		message->ltjc_header.jrnh_handle = journal->jrn_handle;
+		message->ltjc_header.jrnh_series = journal->jrn_series;
+		break;
+
+	case JRN_SIGN_ON:
+		journal->jrn_handle = lookup_id(journal,
+										message->ltjc_data,
+										message->ltjc_length);
+		if (!journal->jrn_handle) {
+			journal->jrn_handle = add_database(journal,
+											   message->ltjc_data,
+											   message->ltjc_length);
+			journal->jrn_dump = -1;
+		}
+		message->ltjc_header.jrnh_handle = journal->jrn_handle;
+		message->ltjc_header.jrnh_series = journal->jrn_series;
+		break;
+	}
+
+/* Compute next available block.  If there isn't room in this segment, write a 
+   dummy block to take the extra space, then allocate new data segment. */
+
+	block = block_number(data.data_items.segment, data.data_items.block);
+	blocks = (SLONG) (BLOCKS(size));
+
+	if (data.data_items.block + (SSHORT) blocks > SEGMENT_SIZE) {
+		if (fudge = SEGMENT_SIZE - data.data_items.block) {
+			dummy.jrnh_type = JRN_DUMMY;
+			dummy.jrnh_length = BLOCK_SIZE * fudge;
+			dummy.jrnh_handle = journal->jrn_handle;
+			dummy.jrnh_series = journal->jrn_series;
+			position_and_write(journal, block, &dummy, sizeof(struct jrnh));
+		}
+
+		waited = 0;
+		while ((n = extend_segments(journal)) == -1 && waited < 300) {
+			release(journal, &data);
+			waited += 10;
+			sleep(10);
+			acquire(journal, &data);
+		}
+		if (n == -1)
+			ERR_post(gds__jrn_file_full, 0);
+		/* Msg840 intermediate journal file full */
+		data.data_items.segment = n;
+		data.data_items.block = 0;
+		block = block_number(data.data_items.segment, data.data_items.block);
+	}
+
+	n = (size + 1) & ~1;
+	position_and_write(journal, block, message, n);
+	data.data_items.block += (SSHORT) blocks;
+	release(journal, &data);
+}
+
+
+JIO_read(journal, position, buffer, size)
+	 JRN journal;
+	 USHORT *position;
+	 JRNH *buffer;
+	 USHORT size;
+{
+/**************************************
+ *
+ *	J I O _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a record from the journal file.  Returns the number of bytes read.
+ *
+ **************************************/
+	USHORT length, n, *ptr;
+	SLONG block;
+	struct jfh header;
+	LDATA data;
+
+/* Acquire lock file */
+
+	acquire(journal, &data);
+
+/* Make sure we don't pass writers */
+
+	for (;;) {
+		if (position[0] == data.data_items.segment &&
+			position[1] >= data.data_items.block) {
+			release(journal, &data);
+			return 0;
+		}
+		if (position[1] < SEGMENT_SIZE)
+			break;
+		position_and_read(journal, 0L, &header, sizeof(header));
+		for (ptr = header.jfh_segments; *ptr != position[0]; ++ptr);
+		position[0] = ptr[1];
+		position[1] = 0;
+	}
+
+/* Read first block of record.  This may be too much or too little,
+   so we may have to read more */
+
+	block = block_number(position[0], position[1]);
+	position_and_read(journal, block, buffer, BLOCK_SIZE);
+	length = buffer->jrnh_length;
+
+	if (length > BLOCK_SIZE) {
+		n = length - BLOCK_SIZE;
+		n = (n + 1) & ~1;
+		position_and_read(journal, block + 1, (UCHAR *) buffer + BLOCK_SIZE,
+						  n);
+	}
+
+/* Update cursor */
+
+	position[1] += BLOCKS(length);
+
+/* Release file and return */
+
+	release(journal, &data);
+
+	return length;
+}
+
+
+JIO_read_header(journal, header, h_length, id_space, i_length)
+	 JRN journal;
+	 JFH header;
+	 USHORT h_length;
+	 TEXT *id_space;
+	 USHORT i_length;
+{
+/**************************************
+ *
+ *	J I O _ r e a d _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read header data.  If lengths are wrong, return FALSE and
+ *	give up, otherwise return TRUE.
+ *
+ **************************************/
+	LDATA data;
+	USHORT n;
+
+	if (h_length != sizeof(struct jfh))
+		return FALSE;
+
+	acquire(journal, &data);
+	position_and_read(journal, 0L, header, h_length);
+
+	if (id_space)
+		if (n = MIN(i_length, header->jfh_id_space))
+			position_and_read(journal, (SLONG) ID_OFFSET, id_space, n);
+
+	release(journal, &data);
+
+	return TRUE;
+}
+
+
+SLONG JIO_rewind(journal, position)
+	 JRN journal;
+	 USHORT *position;
+{
+/**************************************
+ *
+ *	J I O _ r e w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare to read from journal.  Return current
+ *	sequence number.
+ *
+ **************************************/
+	USHORT block, length, n, *ptr;
+	struct jfh header;
+	LDATA data;
+	SLONG sequence;
+
+/* Acquire lock file */
+
+	acquire(journal, &data);
+	position_and_read(journal, 0L, &header, sizeof(header));
+	position[0] = header.jfh_segments[0];
+	position[1] = header.jfh_copy_block;
+	sequence = header.jfh_sequence;
+	release(journal, &data);
+
+	return sequence;
+}
+
+
+JIO_truncate(journal, position, sequence)
+	 JRN journal;
+	 USHORT *position;
+	 SLONG sequence;
+{
+/**************************************
+ *
+ *	J I O _ t r u n c a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release any data pages up to a given point.
+ *
+ **************************************/
+	USHORT n, length, *ptr, *ptr2, slots[SEGMENT_SLOTS];
+	struct jfh header;
+	LDATA data;
+
+/* Acquire lock file */
+
+	acquire(journal, &data);
+	position_and_read(journal, 0L, &header, sizeof(header));
+
+	for (ptr = header.jfh_segments, ptr2 = slots; *ptr != position[0];)
+		*ptr2++ = *ptr++;
+
+	if (n = ptr2 - slots) {
+		header.jfh_data -= n;
+		length = (header.jfh_data + 1) * sizeof(USHORT);
+		move(ptr, header.jfh_segments, length);
+		header.jfh_free -= n;
+		move(slots, header.jfh_segments + header.jfh_free,
+			 n * sizeof(USHORT));
+	}
+
+	header.jfh_copy_block = position[1];
+	header.jfh_sequence = sequence;
+	position_and_write(journal, 0L, &header, sizeof(header));
+
+	release(journal, &data);
+}
+
+
+static acquire(journal, data)
+	 JRN journal;
+	 LDATA *data;
+{
+/**************************************
+ *
+ *	a c q u i r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Acquire write lock on journal file, getting lock data block.
+ *
+ **************************************/
+
+#ifdef VMS
+	vms_convert(journal, data, LCK$K_PWMODE, TRUE);
+#endif
+
+#ifndef VMS
+	LOCK_convert(journal->jrn_lock_id, LCK_PW, TRUE, 0, 0,
+				 journal->jrn_status_vector);
+	data->data_long = LOCK_read_data(journal->jrn_lock_id);
+#endif
+}
+
+
+static SLONG add_database(journal, name_string, name_length)
+	 JRN journal;
+	 TEXT *name_string;
+	 USHORT name_length;
+{
+/**************************************
+ *
+ *	a d d _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a new database to journal file.  Return new id.
+ *
+ **************************************/
+	TEXT id_space[ID_SPACE];
+	DIR dir, next;
+	struct jfh header;
+	ULONG id;
+
+	position_and_read(journal, 0L, &header, sizeof(header));
+	position_and_read(journal, (SLONG) ID_OFFSET, id_space,
+					  header.jfh_id_space);
+	delete_dir(&header, id_space, name_string, name_length);
+	dir = (DIR) (id_space + header.jfh_id_space);
+
+	dir->dir_id = id = ++header.jfh_next_id;
+	dir->dir_length = name_length;
+	strncpy(dir->dir_name, name_string, name_length);
+	dir->dir_last_page = 0;
+
+	next = JIO_next_dir(dir);
+	header.jfh_id_space = (TEXT *) next - id_space;
+	position_and_write(journal, (SLONG) ID_OFFSET, id_space,
+					   header.jfh_id_space);
+	position_and_write(journal, 0L, &header, sizeof(header));
+
+	return id;
+}
+
+
+static SLONG block_number(segment, block)
+	 USHORT segment;
+	 USHORT block;
+{
+/**************************************
+ *
+ *	b l o c k _ n u m b e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate from (segment, block) to physical block number.
+ *
+ **************************************/
+
+	return segment * SEGMENT_SIZE + block + SEGMENT_OFFSET;
+}
+
+
+static clear(block, size)
+	 UCHAR *block;
+	 USHORT size;
+{
+/**************************************
+ *
+ *	c l e a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear a hunk of memory.
+ *
+ **************************************/
+
+	if (size)
+		do
+			*block++ = 0;
+		while (--size);
+}
+
+
+static delete_dir(header, id_space, name_string, name_length)
+	 JFH header;
+	 TEXT *id_space;
+	 TEXT *name_string;
+	 USHORT name_length;
+{
+/**************************************
+ *
+ *	d e l e t e _ d i r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a database entry from the journal file.
+ *
+ **************************************/
+	DIR dir, next;
+	USHORT l;
+
+	if (!(dir = locate_dir(header, id_space, name_string, name_length)))
+		return FAILURE;
+
+	next = JIO_next_dir(dir);
+	l = (TEXT *) next - id_space;
+	move(next, dir, header->jfh_id_space - l);
+	header->jfh_id_space -= (TEXT *) next - (TEXT *) dir;
+
+	return SUCCESS;
+}
+
+
+static error(journal, value, string, operation)
+	 JRN journal;
+	 int value;
+	 TEXT *string;
+	 STATUS operation;
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've had an unexpected error -- punt.
+ *
+ **************************************/
+	SSHORT errcode;
+
+	ERR_post(isc_io_error,
+			 gds_arg_string, string,
+			 gds_arg_string, journal->jrn_server,
+			 isc_arg_gds, operation, SYS_ERROR, value, 0);
+}
+
+
+#ifdef VMS
+static extend_file(journal)
+	 JRN journal;
+{
+/**************************************
+ *
+ *	e x t e n d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend the length of a file on VMS using QIOs.  This is
+ *	a royal pain in the tush.
+ *
+ **************************************/
+	USHORT iosb[4], l;
+	struct dsc$descriptor_s desc;
+	ATR$ atr;
+	FIB$ fib;
+	FAT$ fat;
+	int status, old_size, new_size, delta;
+	SCHAR *p;
+
+	ISC_make_desc(&fib, &desc, sizeof(fib));
+	atr.atr$w_size = ATR$S_RECATTR;
+	atr.atr$w_type = ATR$C_RECATTR;
+	atr.atr$l_addr = &fat;
+	atr.atr$l_zero = 0;
+
+/* Get current size */
+
+	p = &fib;
+	l = sizeof(fib);
+	do
+		*p++ = 0;
+	while (--l);
+
+	move(journal->jrn_did, fib.fib$w_did, sizeof(fib.fib$w_did));
+	move(journal->jrn_fid, fib.fib$w_fid, sizeof(fib.fib$w_fid));
+	fib.fib$w_nmctl = FIB$M_FINDFID;
+
+	status = sys$qiow(15,		/* Event flag */
+					  journal->jrn_channel,	/* Channel */
+					  IO$_ACCESS,	/* Function */
+					  iosb,		/* IO status block */
+					  NULL,		/* AST address */
+					  NULL,		/* AST parameter */
+					  &desc,	/* P1 (buffer) */
+					  NULL,		/* P2 (length) */
+					  NULL,		/* P3 (virtual block) */
+					  NULL,		/* P4 */
+					  &atr,		/* P5 */
+					  NULL);	/* P6 */
+
+	if (!(status & 1) || !((status = iosb[0]) & 1))
+		error(journal, status, "sys$enqw (journal io$_access)",
+			  isc_io_access_err);
+
+	old_size = fat.fat$w_hiblk[1] + (fat.fat$w_hiblk[0] << 16);
+	new_size = old_size + MIN(old_size, 16000);
+	delta = new_size - old_size;
+
+/* Extend file */
+
+	fib.fib$l_exsz = delta;
+	fib.fib$l_exvbn = 0;
+	fib.fib$l_acctl = FIB$M_WRITETHRU;
+	fib.fib$w_exctl = FIB$M_EXTEND | FIB$M_ALDEF | FIB$M_ALCONB;
+
+	fat.fat$w_efblk[0] = (new_size + 1) >> 16;
+	fat.fat$w_efblk[1] = (new_size + 1);
+
+	status = sys$qiow(15,		/* Event flag */
+					  journal->jrn_channel,	/* Channel */
+					  IO$_MODIFY,	/* Function */
+					  iosb,		/* IO status block */
+					  NULL,		/* AST address */
+					  NULL,		/* AST parameter */
+					  &desc,	/* P1 (buffer) */
+					  NULL,		/* P2 (length) */
+					  NULL,		/* P3 (virtual block) */
+					  NULL,		/* P4 */
+					  &atr,		/* P5 */
+					  NULL);	/* P6 */
+
+	if (!(status & 1) || !((status = iosb[0]) & 1))
+		error(journal, status, "sys$enqw (journal io$_modify)",
+			  isc_io_access_err);
+}
+#endif
+
+
+static extend_segments(journal)
+	 JRN journal;
+{
+/**************************************
+ *
+ *	e x t e n d _ s e g m e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate new data segment for journal.  If the file
+ *	is full, return -1.
+ *
+ **************************************/
+	USHORT segment, slots;
+	struct jfh header;
+
+	position_and_read(journal, 0L, &header, sizeof(header));
+
+/* Find a free segment.  Allocate one if nothing is available */
+
+	if (header.jfh_free < SEGMENT_SLOTS)
+		segment = header.jfh_segments[header.jfh_free++];
+	else if (header.jfh_data + 1 >= header.jfh_free)
+		return -1;
+	else
+		segment = header.jfh_allocation++;
+
+	header.jfh_segments[++header.jfh_data] = segment;
+	header.jfh_write_block = 0;
+	position_and_write(journal, 0L, &header, sizeof(header));
+
+	return segment;
+}
+
+
+#ifdef VMS
+static journal_open(journal, data)
+	 JRN journal;
+	 LDATA *data;
+{
+/**************************************
+ *
+ *	j o u r n a l _ o p e n   ( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open the journal file.  If a new one is created
+ *	return TRUE, otherwise return FALSE.
+ *
+ **************************************/
+	USHORT new, l, iosb[4];
+	int status;
+	TEXT *address, expanded_name[NAM$C_MAXRSS], *op, lock_string[64], *p, *q;
+	struct FAB fab;
+	struct NAM nam;
+	LKSB lksb;
+	ITM items[2];
+	struct dsc$descriptor_s string;
+
+	new = FALSE;
+
+	fab = cc$rms_fab;
+	nam = cc$rms_nam;
+	fab.fab$l_alq = (SEGMENT_OFFSET + SEGMENT_SIZE * 10);
+	fab.fab$w_deq = SEGMENT_SIZE * 10;
+	fab.fab$l_nam = &nam;
+	fab.fab$b_fac = FAB$M_BIO | FAB$M_GET | FAB$M_PUT;
+	fab.fab$l_fop = FAB$M_UFO;
+	fab.fab$l_fna = journal->jrn_server;
+	fab.fab$b_fns = strlen(fab.fab$l_fna);
+	fab.fab$b_rfm = FAB$C_UDF;
+	fab.fab$b_shr = FAB$M_SHRGET | FAB$M_SHRPUT | FAB$M_UPI;
+
+	nam.nam$l_rsa = expanded_name;
+	nam.nam$b_rss = sizeof(expanded_name);
+
+	op = "sys$open";
+	status = sys$open(&fab);
+
+/* If the open failed, by creating the file instead */
+
+	if (status == RMS$_FNF) {
+		op = "sys$create";
+		status = sys$create(&fab);
+		new = TRUE;
+	}
+
+/* If neither worked, punt */
+
+	if (!(status & 1))
+		error(journal, status, op, isc_io_open_err);
+
+	journal->jrn_channel = fab.fab$l_stv;
+	move(nam.nam$w_did, journal->jrn_did, sizeof(journal->jrn_did));
+	move(nam.nam$w_fid, journal->jrn_fid, sizeof(journal->jrn_fid));
+
+/* Create lock string for journal file.  This is truely a
+   pain in the ass since this must work anywhere on a
+   cluster */
+
+	items[0].itm_code = DVI$_DEVLOCKNAM;
+	items[0].itm_length = sizeof(lock_string);
+	items[0].itm_buffer = lock_string;
+	items[0].itm_return_length = &l;
+
+	items[1].itm_code = 0;
+	items[1].itm_length = 0;
+	items[1].itm_buffer = 0;
+
+	status = sys$getdviw(15, journal->jrn_channel, NULL,
+						 items, iosb, NULL, NULL, NULL);
+
+	if (status != 1)
+		error(journal, status, "sys$getdviw", isc_io_access_err);
+
+	move(nam.nam$w_fid, lock_string + l, sizeof(nam.nam$w_fid));
+	ISC_make_desc(lock_string, &string, l + sizeof(nam.nam$w_fid));
+
+	status =
+		sys$enqw(EVENT_FLAG, LCK$K_PWMODE, &lksb, LCK$M_SYSTEM | LCK$M_VALBLK,
+				 &string, 0,	/* parent lock id */
+				 NULL,			/* AST routine when granted */
+				 NULL,			/* ast_argument */
+				 NULL,			/* ast_routine */
+				 NULL, NULL);
+
+	if (!(status & 1))
+		error(journal, status, "sys$enqw", isc_io_access_err);
+
+	status = lksb.lksb_status;
+
+	if (status == SS$_VALNOTVALID)
+		data->data_long = 0;
+	else if (!(status & 1))
+		error(journal, status, "sys$enqw", isc_io_access_err);
+
+	journal->jrn_lock_id = lksb.lksb_lock_id;
+
+	if (data)
+		data->data_long = lksb.lksb_value[0];
+
+	return new;
+}
+#endif
+
+
+#ifndef VMS
+static journal_open(journal, data)
+	 JRN journal;
+	 LDATA *data;
+{
+/**************************************
+ *
+ *	j o u r n a l _ o p e n   ( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open the journal file.  If a new one is created
+ *	return TRUE, otherwise return FALSE.
+ *
+ **************************************/
+	USHORT new;
+	int n, mask;
+
+	new = FALSE;
+
+/* Try to open the journal file.  If we can't, try to create it.  If we
+   create it, format it.  If we can't open or create, try to open one
+   last time. */
+
+	n = FILE_OPEN(journal->jrn_server, O_RDWR | O_BINARY, 0666);
+
+	if (n == -1) {
+		mask = umask(0);
+		n =
+			FILE_OPEN(journal->jrn_server,
+					  O_RDWR | O_CREAT | O_EXCL | O_BINARY, 0666);
+		umask(mask);
+		if (n == -1)
+			n = FILE_OPEN(journal->jrn_server, O_RDWR | O_BINARY, 0666);
+		else
+			new = TRUE;
+	}
+
+	if (n == -1)
+		error(journal, errno, "open", isc_io_open_err);
+
+	journal->jrn_channel = (int *) n;
+	lock_create(journal, data);
+
+	return new;
+}
+#endif
+
+
+static DIR locate_dir(header, id_space, name_string, name_length)
+	 JFH header;
+	 TEXT *id_space;
+	 TEXT *name_string;
+	 USHORT name_length;
+{
+/**************************************
+ *
+ *	l o c a t e _ d i r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find database entry in database id record.
+ *
+ **************************************/
+	DIR dir, end;
+
+	end = (DIR) (id_space + header->jfh_id_space);
+
+	for (dir = (DIR) id_space; dir < end; dir = JIO_next_dir(dir))
+		if (name_length == dir->dir_length
+			&& !strncmp(dir->dir_name, name_string, name_length))
+			return dir;
+
+	return NULL;
+}
+
+
+#ifdef VMS
+static lock_create(journal, data)
+	 JRN journal;
+	 LDATA *data;
+{
+/**************************************
+ *
+ *	l o c k _ c r e a t e   ( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create lock for journal file.
+ *
+ **************************************/
+	struct dsc$descriptor string;
+	TEXT filename[256];
+	SLONG status;
+	LKSB lksb;
+
+	getname(journal->jrn_channel, filename, 1);
+	filename[31] = 0;
+	ISC_make_desc(filename, &string, 0);
+
+	status =
+		sys$enqw(EVENT_FLAG, LCK$K_PWMODE, &lksb, LCK$M_SYSTEM | LCK$M_VALBLK,
+				 &string, 0,	/* parent lock id */
+				 NULL,			/* AST routine when granted */
+				 NULL,			/* ast_argument */
+				 NULL,			/* ast_routine */
+				 NULL, NULL);
+
+	if (!(status & 1))
+		error(journal, status, "sys$enqw", isc_io_access_err);
+
+	status = lksb.lksb_status;
+
+	if (status == SS$_VALNOTVALID)
+		data->data_long = 0;
+	else if (!(status & 1))
+		error(journal, status, "sys$enqw", isc_io_access_err);
+
+	journal->jrn_lock_id = lksb.lksb_lock_id;
+
+	if (data)
+		data->data_long = lksb.lksb_value[0];
+}
+#endif
+
+
+#ifndef VMS
+static lock_create(journal, data)
+	 JRN journal;
+	 LDATA *data;
+{
+/**************************************
+ *
+ *	l o c k _ c r e a t e    ( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create lock for journal file.
+ *
+ **************************************/
+
+	journal->jrn_lock_id = LOCK_enq(0L,	/* Prior */
+									0L,	/* Parent */
+									0,	/* Series */
+									journal->jrn_server,	/* Lock string */
+									strlen(journal->jrn_server),	/* length of lock string */
+									LCK_PW,
+									0, 0, 0L, 1, journal->jrn_status_vector);
+
+	data->data_long = LOCK_read_data(journal->jrn_lock_id);
+}
+#endif
+
+
+static lock_exclusive(journal, flag)
+	 JRN journal;
+	 SSHORT flag;
+{
+/**************************************
+ *
+ *	l o c k _ e x c l u s i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to get an exclusive lock on the journal file, but
+ *	don't block trying.  Return TRUE if we succeed, FALSE
+ *	otherwise.
+ *
+ **************************************/
+	SSHORT readers, writers;
+
+#ifdef VMS
+	return vms_convert(journal, NULL, LCK$K_EXMODE, FALSE);
+#endif
+
+#ifndef VMS
+	return LOCK_convert(journal->jrn_lock_id, LCK_EX, 0, 0, 0,
+						journal->jrn_status_vector);
+#endif
+}
+
+
+static lock_release(journal)
+	 JRN journal;
+{
+/**************************************
+ *
+ *	l o c k _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release the lock on the journal file.
+ *
+ **************************************/
+
+#ifdef VMS
+	sys$setast(1);
+	sys$deq(journal->jrn_lock_id, NULL, NULL, NULL);
+#endif
+
+#ifndef VMS
+	LOCK_deq(journal->jrn_lock_id);
+#endif
+}
+
+
+static SLONG lookup_id(journal, name_string, name_length)
+	 JRN journal;
+	 TEXT *name_string;
+{
+/**************************************
+ *
+ *	l o o k u p _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup database id.
+ *
+ **************************************/
+	struct jfh header;
+	TEXT id_space[ID_SPACE];
+	DIR dir;
+
+	position_and_read(journal, 0L, &header, sizeof(header));
+	position_and_read(journal, (SLONG) ID_OFFSET, id_space,
+					  header.jfh_id_space);
+
+	if (dir = locate_dir(&header, id_space, name_string, name_length))
+		return dir->dir_id;
+
+	return 0L;
+}
+
+
+static high_water(journal, header)
+	 JRN journal;
+	 JFH header;
+{
+/**************************************
+ *
+ *	h i g h _ w a t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We have exclusive access to an existing journal file.  It
+ *	is possible that the last guy didn't update the "last write"
+ *	slot before going away.  Try to find the last valid block
+ *	written, and from that, the next block available.
+ *
+ **************************************/
+	USHORT block, segment;
+	struct jrnh record;
+
+	segment = header->jfh_segments[header->jfh_data];
+
+	for (block = header->jfh_write_block; block < SEGMENT_SIZE;
+		 block += BLOCKS(record.jrnh_length)) {
+		position_and_read(journal, block_number(segment, block), &record,
+						  sizeof(record));
+		if (record.jrnh_type < JRN_ENABLE || record.jrnh_type > JRN_DUMMY
+			|| record.jrnh_series != header->jfh_series
+			|| record.jrnh_handle > header->jfh_next_id)
+			return block;
+	}
+
+	return SEGMENT_SIZE;
+}
+
+
+static move(from, to, length)
+	 UCHAR *from;
+	 UCHAR *to;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move some bytes.
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+}
+
+
+#ifdef VMS
+static position_and_read(journal, block, buffer, length)
+	 JRN journal;
+	 ULONG block;
+	 UCHAR *buffer;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	p o s i t i o n _ a n d _ r e a d   ( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Position journal file to particular block and read record.
+ *
+ **************************************/
+	SSHORT iosb[4];
+	int status;
+
+	if (!length)
+		return;
+
+	status = sys$qiow(15,		/* Event flag */
+					  journal->jrn_channel,	/* Channel */
+					  IO$_READVBLK,	/* Function */
+					  iosb,		/* IO status block */
+					  NULL,		/* AST address */
+					  NULL,		/* AST parameter */
+					  buffer,	/* P1 (buffer) */
+					  length,	/* P2 (length) */
+					  block + 1,	/* P3 (virtual block) */
+					  NULL, NULL, NULL);
+
+	if (status == SS$_ENDOFFILE) {
+		do
+			*buffer++ = 0;
+		while (--length);
+		return;
+	}
+
+	if (!(status & 1))
+		error(journal, status, "sys$qiow (journal read)", isc_io_read_err);
+}
+#endif
+
+
+#ifndef VMS
+static position_and_read(journal, block, buffer, length)
+	 JRN journal;
+	 ULONG block;
+	 UCHAR *buffer;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	p o s i t i o n _ a n d _ r e a d   ( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Position journal file to particular block and read record.
+ *
+ **************************************/
+	int n;
+	SLONG position;
+
+	position = (SLONG) (block * BLOCK_SIZE);
+	n = lseek((int) journal->jrn_channel, position, 0);
+
+	if (n == -1)
+		error(journal, errno, "lseek", isc_io_read_err);
+
+	n = read((int) journal->jrn_channel, buffer, length);
+
+	if (n == -1)
+		error(journal, errno, "read", isc_io_read_err);
+}
+#endif
+
+
+#ifdef VMS
+static position_and_write(journal, block, buffer, length)
+	 JRN journal;
+	 ULONG block;
+	 UCHAR *buffer;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	p o s i t i o n _ a n d _ w r i t e   ( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Position journal file to particular block and write record.
+ *
+ **************************************/
+	SSHORT iosb[4];
+	int status;
+
+	for (;;) {
+		status = sys$qiow(15,	/* Event flag */
+						  journal->jrn_channel,	/* Channel */
+						  IO$_WRITEVBLK,	/* Function */
+						  iosb,	/* IO status block */
+						  NULL,	/* AST address */
+						  NULL,	/* AST parameter */
+						  buffer,	/* P1 (buffer) */
+						  length,	/* P2 (length) */
+						  block + 1,	/* P3 (virtual block) */
+						  NULL, NULL, NULL);
+
+		if ((status & 1) && ((status = iosb[0]) & 1))
+			break;
+
+		if (status == SS$_ENDOFFILE)
+			extend_file(journal);
+		else
+			error(journal, status, "sys$qiow (journal write)",
+				  isc_io_write_err);
+	}
+}
+#endif
+
+
+#ifndef VMS
+static position_and_write(journal, block, buffer, length)
+	 JRN journal;
+	 ULONG block;
+	 UCHAR *buffer;
+	 USHORT length;
+{
+/**************************************
+ *
+ *	p o s i t i o n _ a n d _ w r i t e   ( u n i x )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Position journal file to particular block and write record.
+ *
+ **************************************/
+	int position, n;
+
+	position = block * BLOCK_SIZE;
+	n = lseek((int) journal->jrn_channel, position, 0);
+
+	if (n == -1)
+		error(journal, errno, "lseek", isc_io_write_err);
+
+	n = write((int) journal->jrn_channel, buffer, length);
+
+	if (n == -1)
+		error(journal, errno, "write", isc_io_write_err);
+}
+#endif
+
+
+static release(journal, data)
+	 JRN journal;
+	 LDATA *data;
+{
+/**************************************
+ *
+ *	r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Down grade file and and update lock block.
+ *
+ **************************************/
+
+#ifdef VMS
+	vms_convert(journal, data, LCK$K_CRMODE, TRUE);
+#endif
+
+#ifndef VMS
+	LOCK_write_data(journal->jrn_lock_id, data->data_long);
+	LOCK_convert(journal->jrn_lock_id, LCK_SR, TRUE, 0, 0,
+				 journal->jrn_status_vector);
+#endif
+}
+
+
+#ifdef VMS
+static vms_convert(journal, data, mode, wait)
+	 JRN journal;
+	 LDATA *data;
+{
+/**************************************
+ *
+ *	v m s _ c o n v e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Acquire write lock on journal file, getting lock data block.
+ *
+ **************************************/
+	SLONG status, flags;
+	LKSB lksb;
+
+	lksb.lksb_lock_id = journal->jrn_lock_id;
+
+	if (data) {
+		if (mode == LCK$K_PWMODE || mode == LCK$K_EXMODE)
+			sys$setast(0);
+		lksb.lksb_value[0] = data->data_long;
+	}
+
+	flags = LCK$M_CONVERT;
+
+	if (data)
+		flags |= LCK$M_VALBLK;
+
+	if (!wait)
+		flags |= LCK$M_NOQUEUE;
+
+	status = sys$enqw(EVENT_FLAG, mode, &lksb, flags, NULL, NULL, NULL,	/* AST routine when granted */
+					  NULL,		/* ast_argument */
+					  NULL,		/* ast_routine */
+					  NULL, NULL);
+
+	if (!wait && status == SS$_NOTQUEUED)
+		return FALSE;
+
+	if (!(status & 1))
+		error(journal, status, "sys$enqw", isc_io_access_err);
+
+	status = lksb.lksb_status;
+
+	if (!(status & 1))
+		error(journal, status, "sys$enqw", isc_io_access_err);
+
+	if (data) {
+		data->data_long = lksb.lksb_value[0];
+		if (!(mode == LCK$K_PWMODE || mode == LCK$K_EXMODE))
+			sys$setast(1);
+	}
+
+	return TRUE;
+}
+#endif
diff --git a/src/jrd/jlx.cpp b/src/jrd/jlx.cpp
new file mode 100644
index 0000000000..6bb58a4c78
--- /dev/null
+++ b/src/jrd/jlx.cpp
@@ -0,0 +1,125 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		jlx.c
+ *	DESCRIPTION:	Jim's non-piggy LEX
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+
+#define CHR_LETTER	1
+#define CHR_DIGIT	2
+#define CHR_IDENT	4
+#define CHR_QUOTE	8
+#define CHR_WHITE	16
+#define CHR_HEX		32
+
+extern struct symb dbt_symbols[];
+
+static SSHORT symb_types[] = { ROUTINE, OFFSET, PRINTER, SYMBOL };
+
+static SCHAR classes[] = {
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 16, 0, 8, 0, 4, 0, 0, 8,
+	0, 0, 0, 0, 0, 0, 0, 0, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
+	0, 0, 0, 0, 0, 0, 0, 37, 37, 37, 37, 37, 37, 5, 5, 5, 5, 5, 5,
+	5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 0, 0, 4, 0, 37,
+	37, 37, 37, 37, 37, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
+	5, 5, 5, 5
+};
+
+
+
+
+static int yylex(void)
+{
+/**************************************
+ *
+ *	y y l e x
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SYMB symbol;
+	register SCHAR *p, *q;
+	SCHAR class_, string[31];
+	register SSHORT c;
+	SLONG number;
+
+	while (((class_ = classes[c = ib_getchar()]) & CHR_WHITE) && c != -1);
+
+	if (c == -1)
+		return c;
+
+	if (class_ & CHR_LETTER) {
+		p = string;
+		*p++ = c;
+		while (classes[c = ib_getchar()] & CHR_IDENT)
+			*p++ = c;
+		*p = 0;
+		ib_ungetc(c, ib_stdin);
+		for (symbol = dbt_symbols; q = symbol->symb_string; symbol++) {
+			for (p = string; *p;)
+				if (*p++ != *q++)
+					break;
+			if (p[-1] == q[-1]) {
+				yylval = (YYSTYPE) symbol;
+				return symb_types[(int) symbol->symb_type];
+			}
+		}
+		ib_printf("*** %s undefined ***\n", string);
+		return OTHER;
+	}
+
+	if (c == '0') {
+		number = 0;
+		while (classes[c = ib_getchar()] & CHR_HEX) {
+			if (c >= 'a' && c <= 'f')
+				c = c - 'a' + 10;
+			else if (c >= 'A' && c <= 'F')
+				c = c - 'A' + 10;
+			else
+				c = c - '0';
+			number = number * 16 + c;
+		}
+		ib_ungetc(c, ib_stdin);
+		yylval = number;
+		return NUMBER;
+	}
+
+	if (class_ & CHR_DIGIT) {
+		number = c - '0';
+		while (classes[c = ib_getchar()] & CHR_DIGIT)
+			number = number * 10 + (c - '0');
+		ib_ungetc(c, ib_stdin);
+		yylval = number;
+		return NUMBER;
+	}
+
+	if (c == '-')
+		if ((c = ib_getchar()) == '>')
+			return ARROW;
+		else
+			ib_ungetc(c, ib_stdin);
+
+	return c;
+}
diff --git a/src/jrd/jrd.cpp b/src/jrd/jrd.cpp
new file mode 100644
index 0000000000..6ba0aa5555
--- /dev/null
+++ b/src/jrd/jrd.cpp
@@ -0,0 +1,6234 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		jrd.c
+ *	DESCRIPTION:	User visible entrypoints
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef SHLIB_DEFS
+#define LOCAL_SHLIB_DEFS
+#endif
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/ibsetjmp.h"
+#include <string.h>
+#include <stdlib.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#ifndef	WIN_NT
+#include <unistd.h>
+#include <pwd.h>
+#endif
+#include <errno.h>
+
+#define JRD_MAIN
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/irq.h"
+#include "../jrd/isc.h"
+#include "../jrd/drq.h"
+#include "../jrd/req.h"
+#include "../jrd/tra.h"
+#include "../jrd/blb.h"
+#include "../jrd/lck.h"
+#include "../jrd/scl.h"
+#include "../jrd/license.h"
+#include "../jrd/pio.h"
+#include "../jrd/ods.h"
+#include "../jrd/exe.h"
+#include "../jrd/val.h"
+#include "../jrd/rse.h"
+#include "../jrd/jrn.h"
+#include "../jrd/all.h"
+#include "../jrd/log.h"
+#include "../jrd/fil.h"
+#include "../jrd/sbm.h"
+#include "../jrd/svc.h"
+#include "../jrd/sdw.h"
+#include "../jrd/lls.h"
+#include "../jrd/cch.h"
+#include "../jrd/iberr.h"
+#include "../jrd/time.h"
+#include "../intl/charsets.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dbg_proto.h"
+#include "../jrd/dls_proto.h"
+#include "../jrd/dyn_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/ext_proto.h"
+#include "../jrd/flu_proto.h"
+#include "../jrd/fun_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/iberr_proto.h"
+#include "../jrd/inf_proto.h"
+#include "../jrd/ini_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/inuse_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/jrd_proto.h"
+#include "../jrd/jrn_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/log_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/par_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/scl_proto.h"
+#include "../jrd/sdw_proto.h"
+#include "../jrd/shut_proto.h"
+#include "../jrd/sort_proto.h"
+#include "../jrd/svc_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/tra_proto.h"
+#include "../jrd/val_proto.h"
+#include "../jrd/file_params.h"
+#include "../jrd/ail.h"
+#include "../jrd/event_proto.h"
+#include "../jrd/old_proto.h"
+
+#ifdef GARBAGE_THREAD
+#include "vio_proto.h"
+#endif
+
+#ifdef SERVER_SHUTDOWN
+extern "C" {
+typedef struct dbf {
+	struct dbf *dbf_next;
+	USHORT dbf_length;
+	TEXT dbf_data[2];
+} *DBF;
+
+} // extern "C"
+
+#include "../jrd/sort.h"
+#endif /* SERVER_SHUTDOWN */
+
+#define	WAIT_PERIOD	-1
+
+#ifdef SUPERSERVER
+#define V4_THREADING
+
+/*TMN: fwd. decl. SHOULD BE IN A HEADER FILE*/
+extern "C" {
+void gds_print_delta_counters(IB_FILE *);
+void ALL_print_memory_pool_info(IB_FILE * fptr, DBB databases);
+void ALLD_print_memory_pool_info(IB_FILE * fptr);
+} // extern "C"
+
+#endif /* SUPERSERVER */
+
+#ifdef NETWARE_386
+# include "../jrd/nlm_thd.h"
+#else
+# ifdef V4_THREADING
+#  undef V4_INIT
+#  undef V4_GLOBAL_MUTEX_LOCK
+#  undef V4_GLOBAL_MUTEX_UNLOCK
+#  undef V4_MUTEX_INIT
+#  undef V4_MUTEX_LOCK
+#  undef V4_MUTEX_UNLOCK
+#  undef V4_MUTEX_DESTROY
+#  undef V4_JRD_MUTEX_LOCK
+#  undef V4_JRD_MUTEX_UNLOCK
+#  define V4_INIT			THD_INIT
+#  define V4_GLOBAL_MUTEX_LOCK	{THREAD_EXIT; THD_GLOBAL_MUTEX_LOCK; THREAD_ENTER;}
+#  define V4_GLOBAL_MUTEX_UNLOCK	THD_GLOBAL_MUTEX_UNLOCK
+#  define V4_MUTEX_INIT(mutx)	THD_MUTEX_INIT (mutx)
+#  define V4_MUTEX_LOCK(mutx)	{THREAD_EXIT; THD_MUTEX_LOCK (mutx); THREAD_ENTER;}
+#  define V4_MUTEX_UNLOCK(mutx)	THD_MUTEX_UNLOCK (mutx)
+#  define V4_MUTEX_DESTROY(mutx)	THD_MUTEX_DESTROY (mutx)
+#  ifndef SUPERSERVER
+#   define V4_JRD_MUTEX_LOCK(mutx)	{THREAD_EXIT; THD_JRD_MUTEX_LOCK (mutx); THREAD_ENTER;}
+#   define V4_JRD_MUTEX_UNLOCK(mutx) THD_JRD_MUTEX_UNLOCK (mutx)
+#  endif /* SUPERSERVER */
+# endif /* V4_THREADING */
+#endif /* !NETWARE_386 */
+
+#ifdef SUPERSERVER
+
+extern "C" {
+extern SLONG trace_pools;
+static REC_MUTX_T databases_rec_mutex;
+} // extern "C"
+
+#define V4_JRD_MUTEX_LOCK(mutx)
+#define V4_JRD_MUTEX_UNLOCK(mutx)
+
+#define JRD_SS_INIT_MUTEX       THD_rec_mutex_init (&databases_rec_mutex)
+#define JRD_SS_DESTROY_MUTEX    THD_rec_mutex_destroy (&databases_rec_mutex)
+#define JRD_SS_MUTEX_LOCK       {THREAD_EXIT;\
+                                 THD_rec_mutex_lock (&databases_rec_mutex);\
+                                 THREAD_ENTER;}
+#define JRD_SS_MUTEX_UNLOCK     THD_rec_mutex_unlock (&databases_rec_mutex)
+#define JRD_SS_THD_MUTEX_LOCK   THD_rec_mutex_lock (&databases_rec_mutex)
+#define JRD_SS_THD_MUTEX_UNLOCK THD_rec_mutex_unlock (&databases_rec_mutex)
+
+#else
+#define JRD_SS_INIT_MUTEX
+#define JRD_SS_DESTROY_MUTEX
+#define JRD_SS_MUTEX_LOCK
+#define JRD_SS_MUTEX_UNLOCK
+#define JRD_SS_THD_MUTEX_LOCK
+#define JRD_SS_THD_MUTEX_UNLOCK
+#endif
+
+#ifdef  WIN_NT
+/* these should stop a most annoying warning */
+#undef TEXT
+
+#include <windows.h>
+#undef TEXT
+#define TEXT    SCHAR
+#endif	// WIN_NT
+
+extern "C" {
+
+
+#ifdef WIN_NT
+#define	SYS_ERR		gds_arg_win32
+#endif
+
+
+#ifdef NETWARE_386
+#define SYS_ERR		gds_arg_netware
+#endif
+
+
+#ifndef SYS_ERR
+#define SYS_ERR		gds_arg_unix
+#endif
+
+
+/* Option block for database parameter block */
+
+typedef struct dpb
+{
+	TEXT*	dpb_sys_user_name;
+	TEXT*	dpb_user_name;
+	TEXT*	dpb_password;
+	TEXT*	dpb_password_enc;
+	TEXT*	dpb_role_name;
+	TEXT*	dpb_journal;
+#ifdef ISC_DATABASE_ENCRYPTION
+	TEXT*	dpb_key;
+#endif
+	TEXT*	dpb_log;
+	TEXT*	dpb_wal_backup_dir;
+	USHORT	dpb_wal_action;
+	USHORT	dpb_online_dump;
+	ULONG	dpb_old_file_size;
+	USHORT	dpb_old_num_files;
+	ULONG	dpb_old_start_page;
+	ULONG	dpb_old_start_seqno;
+	USHORT	dpb_old_start_file;
+	TEXT*	dpb_old_file[MAX_OLD_FILES];
+	USHORT	dpb_old_dump_id;
+	SLONG	dpb_wal_chkpt_len;
+	SSHORT	dpb_wal_num_bufs;
+	USHORT	dpb_wal_bufsize;
+	SLONG	dpb_wal_grp_cmt_wait;
+	SLONG	dpb_sweep_interval;
+	ULONG	dpb_page_buffers;
+	BOOLEAN	dpb_set_page_buffers;
+	ULONG dpb_buffers;
+	USHORT	dpb_debug;
+	USHORT	dpb_verify;
+	USHORT	dpb_sweep;
+	USHORT	dpb_trace;
+	USHORT	dpb_disable;
+	USHORT	dpb_dbkey_scope;
+	USHORT	dpb_page_size;
+	USHORT	dpb_activate_shadow;
+	USHORT	dpb_delete_shadow;
+	USHORT	dpb_no_garbage;
+	USHORT	dpb_quit_log;
+	USHORT	dpb_shutdown;
+	SSHORT	dpb_shutdown_delay;
+	USHORT	dpb_online;
+	SSHORT	dpb_force_write;
+	UCHAR	dpb_set_force_write;
+	UCHAR	dpb_no_reserve;
+	UCHAR	dpb_set_no_reserve;
+	SSHORT	dpb_interp;
+	TEXT*	dpb_lc_messages;
+	TEXT*	dpb_lc_ctype;
+	USHORT	dpb_single_user;
+	BOOLEAN	dpb_overwrite;
+	BOOLEAN	dpb_sec_attach;
+	BOOLEAN	dpb_disable_wal;
+	SLONG	dpb_connect_timeout;
+	SLONG	dpb_dummy_packet_interval;
+	SSHORT	dpb_db_readonly;
+	BOOLEAN	dpb_set_db_readonly;
+	BOOLEAN	dpb_gfix_attach;
+	BOOLEAN	dpb_gstat_attach;
+	TEXT*	dpb_gbak_attach;
+	TEXT*	dpb_working_directory;
+	USHORT	dpb_sql_dialect;
+	USHORT	dpb_set_db_sql_dialect;
+} DPB;
+
+static BLB		check_blob(TDBB, STATUS*, BLB*);
+static STATUS	check_database(TDBB, ATT, STATUS*);
+static void		cleanup(void*);
+static STATUS	commit(STATUS*, TRA*, USHORT);
+static STR		copy_string(TEXT*, USHORT);
+static BOOLEAN	drop_files(FIL);
+static STATUS	error(STATUS*);
+static void		find_intl_charset(TDBB, ATT, DPB*);
+static TRA		find_transaction(TDBB, TRA, STATUS);
+static void		get_options(UCHAR*, USHORT, TEXT**, DPB*);
+static SLONG	get_parameter(UCHAR**);
+static TEXT*	get_string_parameter(UCHAR**, TEXT**);
+static STATUS	handle_error(STATUS*, STATUS, TDBB);
+
+#if defined (WIN_NT)
+static void		ExtractDriveLetter(TEXT*, ULONG*);
+#if !defined(SERVER_SHUTDOWN)
+static void		setup_NT_handlers(void);
+static BOOLEAN	handler_NT(SSHORT);
+#endif	// !SERVER_SHUTDOWN
+#endif	// WIN_NT
+
+static DBB		init(TDBB, STATUS*, TEXT*, USHORT);
+static void		make_jrn_data(UCHAR*, USHORT*, TEXT*, USHORT, TEXT*, USHORT);
+static STATUS	prepare(TDBB, TRA, STATUS*, USHORT, UCHAR*);
+static void		release_attachment(ATT);
+static STATUS	return_success(TDBB);
+static BOOLEAN	rollback(TDBB, TRA, STATUS*, USHORT);
+
+static void		shutdown_database(DBB, BOOLEAN);
+static void		strip_quotes(TEXT*, TEXT*);
+static void		purge_attachment(TDBB, STATUS *, ATT, BOOLEAN);
+
+static int		initialized = 0;
+static DBB		databases = NULL;
+static MUTX_T	databases_mutex[1];
+static ULONG	JRD_cache_default;
+
+static struct ipccfg JRD_hdrtbl[] =
+{
+	ISCCFG_DBCACHE, -1, reinterpret_cast<SLONG*>(&JRD_cache_default), 0,
+	0,
+	NULL, 0, NULL, 0, 0
+};
+
+#ifdef GOVERNOR
+#define ATTACHMENTS_PER_USER 1
+static ULONG JRD_max_users = 0;
+static ULONG num_attached = 0;
+#endif /* GOVERNOR */
+
+
+#if !defined(REQUESTER) && !defined(SHLIB_DEFS)
+
+int		debug;
+IHNDL	internal_db_handles = 0;
+
+#endif	// !REQUESTER && !SHLIB_DEFS */
+
+
+//____________________________________________________________
+//
+// check whether we need to perform an autocommit;
+// do it here to prevent committing every record update
+// in a statement
+//
+static void check_autocommit(REQ request, struct tdbb* tdbb)
+{
+	if (request->req_transaction->tra_flags & TRA_perform_autocommit)
+	{
+		request->req_transaction->tra_flags &= ~TRA_perform_autocommit;
+		TRA_commit(tdbb, request->req_transaction, TRUE);
+	}
+}
+
+inline static void api_entry_point_init(STATUS* user_status)
+{
+	user_status[0] = gds_arg_gds;
+	user_status[1] = SUCCESS;
+	user_status[2] = gds_arg_end;
+}
+
+inline static struct tdbb* set_thread_data(struct tdbb& thd_context)
+{
+	struct tdbb* tdbb = &thd_context;
+	MOVE_CLEAR(tdbb, sizeof(struct tdbb));
+	JRD_set_context(tdbb);
+	return tdbb;
+}
+
+
+#undef GET_THREAD_DATA
+#undef CHECK_DBB
+#undef GET_DBB
+#undef SET_TDBB
+
+static TDBB get_thread_data()
+{
+	THDD p1 = (THDD)(PLATFORM_GET_THREAD_DATA);
+#ifdef DEV_BUILD
+	if (p1 && p1->thdd_type == THDD_TYPE_TDBB)
+	{
+		TDBB p2 = (TDBB)p1;
+		if (p2->tdbb_database &&
+			p2->tdbb_database->dbb_header.blk_type != type_dbb)
+		{
+			BUGCHECK(147);
+		}
+	}
+#endif	// DEV_BUILD
+
+	return (TDBB)p1;
+}
+
+inline static void CHECK_DBB(DBB dbb)
+{
+#ifdef DEV_BUILD
+	assert(dbb && dbb->dbb_header.blk_type == type_dbb);
+#endif	// DEV_BUILD
+}
+
+inline static void check_tdbb(TDBB tdbb)
+{
+#ifdef DEV_BUILD
+	assert(tdbb &&
+			(reinterpret_cast<THDD>(tdbb)->thdd_type == THDD_TYPE_TDBB) &&
+			(!tdbb->tdbb_database ||
+				tdbb->tdbb_database->dbb_header.blk_type == type_dbb));
+#endif	// DEV_BUILD
+}
+
+inline static DBB get_dbb()
+{
+	return get_thread_data()->tdbb_database;
+}
+
+static void SET_TDBB(TDBB& tdbb)
+{
+	if (tdbb == NULL_TDBB) {
+		tdbb = get_thread_data();
+	}
+	check_tdbb(tdbb);
+}
+
+
+#define ERROR_INIT(env)								\
+	tdbb->tdbb_setjmp = (UCHAR*) env;				\
+	tdbb->tdbb_status_vector = user_status;			\
+	if (SETJMP (env)) return error (user_status);
+
+#define CHECK_HANDLE(blk,type,error)					\
+	if (!blk || ((BLK) blk)->blk_type != (UCHAR) type)	\
+		return handle_error (user_status, error, tdbb)
+
+#define NULL_CHECK(ptr,code)									\
+	if (*ptr) return handle_error (user_status, code, tdbb)
+
+
+
+#define SWEEP_INTERVAL		20000
+#define	DPB_EXPAND_BUFFER	2048
+
+#define	DBL_QUOTE			'\042'
+#define	SINGLE_QUOTE		'\''
+#define	BUFFER_LENGTH128	128
+BOOLEAN invalid_client_SQL_dialect = FALSE;
+
+#define GDS_ATTACH_DATABASE		jrd8_attach_database
+#define GDS_BLOB_INFO			jrd8_blob_info
+#define GDS_CANCEL_BLOB			jrd8_cancel_blob
+#define GDS_CANCEL_EVENTS		jrd8_cancel_events
+#define GDS_CANCEL_OPERATION	jrd8_cancel_operation
+#define GDS_CLOSE_BLOB			jrd8_close_blob
+#define GDS_COMMIT				jrd8_commit_transaction
+#define GDS_COMMIT_RETAINING	jrd8_commit_retaining
+#define GDS_COMPILE				jrd8_compile_request
+#define GDS_CREATE_BLOB2		jrd8_create_blob2
+#define GDS_CREATE_DATABASE		jrd8_create_database
+#define GDS_DATABASE_INFO		jrd8_database_info
+#define GDS_DDL					jrd8_ddl
+#define GDS_DETACH				jrd8_detach_database
+#define GDS_DROP_DATABASE		jrd8_drop_database
+#define GDS_GET_SEGMENT			jrd8_get_segment
+#define GDS_GET_SLICE			jrd8_get_slice
+#define GDS_OPEN_BLOB2			jrd8_open_blob2
+#define GDS_PREPARE				jrd8_prepare_transaction
+#define GDS_PUT_SEGMENT			jrd8_put_segment
+#define GDS_PUT_SLICE			jrd8_put_slice
+#define GDS_QUE_EVENTS			jrd8_que_events
+#define GDS_RECONNECT			jrd8_reconnect_transaction
+#define GDS_RECEIVE				jrd8_receive
+#define GDS_RELEASE_REQUEST		jrd8_release_request
+#define GDS_REQUEST_INFO		jrd8_request_info
+#define GDS_ROLLBACK			jrd8_rollback_transaction
+#define GDS_ROLLBACK_RETAINING	jrd8_rollback_retaining
+#define GDS_SEEK_BLOB			jrd8_seek_blob
+#define GDS_SEND				jrd8_send
+#define GDS_SERVICE_ATTACH		jrd8_service_attach
+#define GDS_SERVICE_DETACH		jrd8_service_detach
+#define GDS_SERVICE_QUERY		jrd8_service_query
+#define GDS_SERVICE_START		jrd8_service_start
+#define GDS_START_AND_SEND		jrd8_start_and_send
+#define GDS_START				jrd8_start_request
+#define GDS_START_MULTIPLE		jrd8_start_multiple
+#define GDS_START_TRANSACTION	jrd8_start_transaction
+#define GDS_TRANSACT_REQUEST	jrd8_transact_request
+#define GDS_TRANSACTION_INFO	jrd8_transaction_info
+#define GDS_UNWIND				jrd8_unwind_request
+
+
+/* External hook definitions */
+
+#ifdef ISC_DATABASE_ENCRYPTION
+#define ENCRYPT_IMAGE	"ISCCRYPT"
+#define ENCRYPT			"ISC_ENCRYPT"
+#define DECRYPT			"ISC_DECRYPT"
+#endif
+
+
+#ifdef SHLIB_DEFS
+} // extern "C"
+/**  Use shdef.h which has all shared lib defs **/
+#include "shdef.h"
+extern "C" {
+#endif
+
+
+/* every GDS function now has a DLL_EXPORT */
+
+
+STATUS DLL_EXPORT GDS_ATTACH_DATABASE(STATUS*	user_status,
+									  SSHORT	file_length,
+									  SCHAR*	file_name,
+									  ATT*		handle,
+									  SSHORT	dpb_length,
+									  SCHAR*	dpb,
+									  SCHAR*	expanded_filename)
+{
+/**************************************
+ *
+ *	g d s _ $ a t t a c h _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attach a moldy, grungy, old database
+ *	sullied by user data.
+ *
+ **************************************/
+	DBB dbb;
+#ifdef STACK_REDUCTION
+	TEXT *allocated_space = NULL;
+#else
+	TEXT opt_buffer[DPB_EXPAND_BUFFER];
+#endif
+
+	SSHORT first;
+	STATUS temp_status[ISC_STATUS_LENGTH], *status;
+	DPB options;
+	ATT attachment;
+	USHORT d_len, jd_len;
+	JMP_BUF env;
+
+#ifdef _PPC_
+	JMP_BUF env1;
+#endif
+	struct tdbb thd_context;
+
+	TEXT		local_role_name[BUFFER_LENGTH128];
+	UCHAR*		p1;
+	UCHAR*		p2;
+	SSHORT		cnt;
+	SSHORT		len;
+
+	api_entry_point_init(user_status);
+
+	if (*handle) {
+		return handle_error(user_status, gds_bad_db_handle, 0);
+	}
+
+/* Get length of database file name, if not already known */
+
+	SSHORT fl = (file_length) ? file_length : strlen(file_name);
+	SSHORT length_expanded = strlen(expanded_filename);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+/* Unless we're already attached, do some initialization */
+
+	dbb = init(tdbb, user_status, expanded_filename, TRUE);
+	if (!dbb) {
+		V4_JRD_MUTEX_UNLOCK(databases_mutex);
+		JRD_SS_MUTEX_UNLOCK;
+		JRD_restore_context();
+		return user_status[1];
+	}
+
+	dbb->dbb_flags |= DBB_being_opened;
+	V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+	V4_JRD_MUTEX_UNLOCK(databases_mutex);
+
+	tdbb->tdbb_database = dbb;
+
+/* Initialize special error handling */
+
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	tdbb->tdbb_status_vector = status = user_status;
+	tdbb->tdbb_attachment = attachment = NULL;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+
+/* Count active thread in database */
+
+	++dbb->dbb_use_count;
+#ifdef V4_THREADING
+	BOOLEAN initing_security = FALSE;
+#endif
+
+/* The following line seems to fix a bug that appears on
+   SCO EVEREST.  It probably has to do with the fact that
+   the error handler below used to contain the first reference to
+   variable transaction, which is actually initialized a few lines
+   below that. */
+
+	attachment = *(&attachment);
+
+	if (SETJMP(env))
+	{
+#ifdef _PPC_
+		tdbb->tdbb_setjmp = (UCHAR *) env1;
+		if (!SETJMP(env1))
+#else
+		if (!SETJMP(env))
+#endif
+		{
+#ifdef V4_THREADING
+			if (initing_security)
+				V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+#endif
+			tdbb->tdbb_status_vector = temp_status;
+			dbb->dbb_flags &= ~DBB_being_opened;
+			release_attachment(attachment);
+
+			/* At this point, mutex dbb->dbb_mutexes [DBB_MUTX_init_fini] has been
+			   unlocked and mutex databases_mutex has been locked. */
+#ifdef STACK_REDUCTION
+			if (allocated_space)
+			{
+				ALL_free(allocated_space);
+			}
+#endif
+			if (dbb->dbb_header.blk_type == (UCHAR) type_dbb)
+			{
+				if (!dbb->dbb_attachments)
+				{
+					shutdown_database(dbb, TRUE);
+				}
+				else if (attachment)
+				{
+					ALL_RELEASE(attachment);
+				}
+			}
+			V4_JRD_MUTEX_UNLOCK(databases_mutex);
+		}
+		tdbb->tdbb_status_vector = status;
+		JRD_SS_MUTEX_UNLOCK;
+		return error(user_status);
+	}
+
+/* Allocate buffer space */
+
+#ifdef STACK_REDUCTION
+	allocated_space =
+		ALL_malloc(DPB_EXPAND_BUFFER + (4 * MAX_PATH_LENGTH), ERR_jmp);
+	TEXT*	opt_ptr			= allocated_space;
+	TEXT*	archive_name	= opt_ptr + MAX_PATH_LENGTH;
+	TEXT*	journal_name	= archive_name + MAX_PATH_LENGTH;
+	TEXT*	journal_dir		= journal_name + MAX_PATH_LENGTH;
+	UCHAR*	data			= (UCHAR*) (journal_dir + MAX_PATH_LENGTH);
+#else
+	TEXT*	opt_ptr = opt_buffer;
+	TEXT	archive_name[MAX_PATH_LENGTH];
+	TEXT	journal_name[MAX_PATH_LENGTH];
+	TEXT	journal_dir[MAX_PATH_LENGTH];
+	UCHAR	data[MAX_PATH_LENGTH];
+#endif
+
+/* Process database parameter block */
+
+	get_options((UCHAR *) dpb, dpb_length, &opt_ptr, &options);
+
+#ifndef NO_NFS
+/* Don't check nfs if single user */
+
+	if (!options.dpb_single_user)
+#endif
+	{
+		/* Check to see if the database is truly local or if it just looks
+		   that way */
+
+		if (ISC_check_if_remote(expanded_filename, TRUE))
+			ERR_post(gds_unavailable, 0);
+	}
+
+#ifdef ISC_DATABASE_ENCRYPTION
+/* Worry about encryption key */
+
+	if (dbb->dbb_decrypt) {
+		if (dbb->dbb_filename) {
+			if ((dbb->dbb_encrypt_key && !options.dpb_key) ||
+				(!dbb->dbb_encrypt_key && options.dpb_key) ||
+				strcmp(options.dpb_key, dbb->dbb_encrypt_key->str_data))
+				ERR_post(gds_no_priv,
+						 gds_arg_string, "encryption",
+						 gds_arg_string, "database",
+						 gds_arg_string, ERR_string(file_name, fl), 0);
+		}
+		else if (options.dpb_key)
+			dbb->dbb_encrypt_key =
+				copy_string(options.dpb_key, strlen(options.dpb_key));
+	}
+#endif
+
+	tdbb->tdbb_attachment = attachment = (ATT) ALLOCP(type_att);
+	attachment->att_database = dbb;
+
+	attachment->att_next = dbb->dbb_attachments;
+	dbb->dbb_attachments = attachment;
+	dbb->dbb_flags &= ~DBB_being_opened;
+	dbb->dbb_sys_trans->tra_attachment = attachment;
+	tdbb->tdbb_quantum = QUANTUM;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+	tdbb->tdbb_inhibit = 0;
+	tdbb->tdbb_flags = NULL;
+
+	attachment->att_charset = options.dpb_interp;
+
+	if (options.dpb_lc_messages) {
+		attachment->att_lc_messages =
+			copy_string(options.dpb_lc_messages,
+						(USHORT) strlen(options.dpb_lc_messages));
+	}
+
+	if (options.dpb_no_garbage)
+		attachment->att_flags |= ATT_no_cleanup;
+
+	if (options.dpb_gbak_attach)
+		attachment->att_flags |= ATT_gbak_attachment;
+
+	if (options.dpb_gstat_attach)
+		attachment->att_flags |= ATT_gstat_attachment;
+
+	if (options.dpb_gfix_attach)
+		attachment->att_flags |= ATT_gfix_attachment;
+
+	if (options.dpb_working_directory) {
+		attachment->att_working_directory =
+			copy_string(options.dpb_working_directory,
+						(USHORT) strlen(options.dpb_working_directory));
+	}
+
+/* If we're a not a secondary attachment, initialize some stuff */
+
+	first = FALSE;
+
+	LCK_init(tdbb, LCK_OWNER_attachment);	/* For the attachment */
+	attachment->att_flags |= ATT_lck_init_done;
+	if (!dbb->dbb_filename) {
+		first = TRUE;
+		dbb->dbb_filename = copy_string(expanded_filename, length_expanded);
+		/* Extra LCK_init() done to keep the lock table until the
+		   database is shutdown() after the last detach. */
+		LCK_init(tdbb, LCK_OWNER_database);
+		dbb->dbb_flags |= DBB_lck_init_done;
+		INI_init();
+		FUN_init();
+		SBM_init();
+		dbb->dbb_file =
+			PIO_open(dbb, expanded_filename, length_expanded,
+					 options.dpb_trace, 0, file_name, fl);
+		SHUT_init(dbb);
+		PAG_header(file_name, fl);
+		INI_init2();
+		PAG_init();
+		if (options.dpb_set_page_buffers)
+		{
+			dbb->dbb_page_buffers = options.dpb_page_buffers;
+		}
+		CCH_init(tdbb, (ULONG) options.dpb_buffers);
+		PAG_init2(0);
+		if (options.dpb_disable_wal)
+		{
+			/* Forcibly disable WAL before the next step.  
+			   We have an exclusive access to the database. */
+			AIL_drop_log_force();
+			options.dpb_disable_wal = FALSE;	/* To avoid further processing below */
+		}
+
+		SBM sbm_recovery = NULL;
+
+		AIL_init(expanded_filename,
+				length_expanded,
+				0,
+				options.dpb_activate_shadow,
+				&sbm_recovery);
+
+		AIL_set_log_options(options.dpb_wal_chkpt_len,
+							options.dpb_wal_num_bufs,
+							options.dpb_wal_bufsize,
+							options.dpb_wal_grp_cmt_wait);
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+		LOG_init(expanded_filename, length_expanded);
+#endif
+
+		/* initialize shadowing as soon as the database is ready for it
+		   but before any real work is done */
+
+		SDW_init(options.dpb_activate_shadow,
+				options.dpb_delete_shadow,
+				sbm_recovery);
+		INI_update_database();
+	}
+
+#ifdef READONLY_DATABASE
+/* Attachments to a ReadOnly database need NOT do garbage collection */
+	if (dbb->dbb_flags & DBB_read_only)
+		attachment->att_flags |= ATT_no_cleanup;
+#endif /* READONLY_DATABASE */
+
+	if (options.dpb_disable_wal)
+	{
+		ERR_post(gds_lock_timeout, gds_arg_gds, gds_obj_in_use,
+				 gds_arg_string, ERR_string(file_name, fl), 0);
+	}
+
+	if (options.dpb_buffers && !dbb->dbb_page_buffers)
+	{
+		CCH_expand(tdbb, (ULONG) options.dpb_buffers);
+	}
+
+	if (!options.dpb_verify && CCH_exclusive(tdbb, LCK_PW, LCK_NO_WAIT))
+	{
+		TRA_cleanup(tdbb);
+	}
+
+#ifdef V4_THREADING
+	V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+	initing_security = TRUE;
+#endif
+
+	if (invalid_client_SQL_dialect)
+	{
+		ERR_post(isc_inv_client_dialect_specified, isc_arg_number,
+				 options.dpb_sql_dialect,
+				 isc_arg_gds, isc_valid_client_dialects,
+				 isc_arg_string, "1, or 3", 0);
+	}
+	invalid_client_SQL_dialect = FALSE;
+
+	if (options.dpb_role_name)
+	{
+		switch (options.dpb_sql_dialect)
+		{
+		case 0:
+			{
+				/*
+				   ** V6 Client --> V6 Server, dummy client SQL dialect 0 was passed
+				   **   It means that client SQL dialect was not set by user
+				   **   and takes DB SQL dialect as client SQL dialect
+				 */
+				if (ENCODE_ODS(dbb->dbb_ods_version, dbb->dbb_minor_original)
+					>= ODS_10_0)
+					if (dbb->dbb_flags & DBB_DB_SQL_dialect_3)
+						/*
+						   ** DB created in IB V6.0 by client SQL dialect 3
+						 */
+						options.dpb_sql_dialect = SQL_DIALECT_V6;
+					else
+						/*
+						   ** old DB was gbaked in IB V6.0
+						 */
+						options.dpb_sql_dialect = SQL_DIALECT_V5;
+				else
+					options.dpb_sql_dialect = SQL_DIALECT_V5;
+			}
+			break;
+		case 99:
+			/*
+			   ** V5 Client --> V6 Server, old client has no concept of dialect
+			 */
+			options.dpb_sql_dialect = SQL_DIALECT_V5;
+			break;
+		default:
+			/*
+			   ** V6 Client --> V6 Server, but client SQL dialect was set
+			   **   by user and was passed.
+			 */
+			break;
+		}
+
+		switch (options.dpb_sql_dialect)
+		{
+		case SQL_DIALECT_V5:
+			{
+				strip_quotes(options.dpb_role_name, local_role_name);
+				len = strlen(local_role_name);
+				p1 = reinterpret_cast<UCHAR*>(options.dpb_role_name);
+				for (cnt = 0; cnt < len; cnt++) {
+					*p1++ = UPPER7(local_role_name[cnt]);
+				}
+				*p1 = '\0';
+			}
+			break;
+		case SQL_DIALECT_V6_TRANSITION:
+		case SQL_DIALECT_V6:
+			{
+				if (*options.dpb_role_name == DBL_QUOTE ||
+					*options.dpb_role_name == SINGLE_QUOTE)
+				{
+					p1 = reinterpret_cast<UCHAR*>(options.dpb_role_name);
+					p2 = reinterpret_cast<UCHAR*>(local_role_name);
+					cnt = 1;
+					BOOLEAN	delimited_done = FALSE;
+					TEXT	end_quote = *p1;
+					*p1++;
+					/* 
+					   ** remove the delimited quotes and escape quote 
+					   ** from ROLE name 
+					 */
+					while (*p1 && !delimited_done
+						   && cnt < BUFFER_LENGTH128 - 1)
+					{
+						if (*p1 == end_quote)
+						{
+							cnt++;
+							*p2++ = *p1++;
+							if (*p1 && *p1 == end_quote
+								&& cnt < BUFFER_LENGTH128 - 1)
+							{
+								*p1++;	/* skip the escape quote here */
+							}
+							else
+							{
+								delimited_done = TRUE;
+								p2--;
+							}
+						}
+						else
+						{
+							cnt++;
+							*p2++ = *p1++;
+						}
+					}
+					*p2 = '\0';
+					strcpy(options.dpb_role_name, local_role_name);
+				}
+				else
+				{
+					strcpy(local_role_name, options.dpb_role_name);
+					len = strlen(local_role_name);
+					p1 = reinterpret_cast < UCHAR * >(options.dpb_role_name);
+					for (cnt = 0; cnt < len; cnt++)
+					{
+						*p1++ = UPPER7(local_role_name[cnt]);
+					}
+					*p1 = '\0';
+				}
+			}
+			break;
+		default:
+			break;
+		}
+	}
+
+	options.dpb_sql_dialect = 0;
+
+	// Don't run internal handles thru the security gauntlet.
+
+	BOOLEAN internal = FALSE;
+
+	for (IHNDL ihandle = internal_db_handles;
+		 ihandle;
+		 ihandle = ihandle->ihndl_next)
+	{
+		if (ihandle->ihndl_object == (isc_db_handle *) handle)
+		{
+			internal = TRUE;
+			break;
+		}
+	}
+
+	SCL_init(	FALSE,
+				options.dpb_sys_user_name,
+				options.dpb_user_name,
+				options.dpb_password,
+				options.dpb_password_enc,
+				options.dpb_role_name,
+				tdbb,
+				internal);
+
+#ifdef V4_THREADING
+	initing_security = FALSE;
+	V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+#endif
+
+	if (options.dpb_shutdown || options.dpb_online) {
+		/* By releasing the DBB_MUTX_init_fini mutex here, we would be allowing
+		   other threads to proceed with their detachments, so that shutdown does
+		   not timeout for exclusive access and other threads don't have to wait 
+		   behind shutdown */
+
+		V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+		JRD_SS_MUTEX_UNLOCK;
+		if (!SHUT_database
+			(dbb, options.dpb_shutdown, options.dpb_shutdown_delay)) {
+			JRD_SS_MUTEX_LOCK;
+			V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+			if (user_status[1] != SUCCESS)
+				ERR_punt();
+			else
+				ERR_post(gds_no_priv,
+						 gds_arg_string, "shutdown or online",
+						 gds_arg_string, "database",
+						 gds_arg_string, ERR_string(file_name, fl), 0);
+		}
+		JRD_SS_MUTEX_LOCK;
+		V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+	}
+
+#ifdef SUPERSERVER
+/* Check if another attachment has or is requesting exclusive database access. 
+   If this is an implicit attachment for the security (password) database, don't
+   try to get exclusive attachment to avoid a deadlock condition which happens 
+   when a client tries to connect to the security database itself. */
+
+	if (!options.dpb_sec_attach) {
+		V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+		JRD_SS_MUTEX_UNLOCK;
+		CCH_exclusive_attachment(tdbb, LCK_none, LCK_WAIT);
+		JRD_SS_MUTEX_LOCK;
+		V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+		if (attachment->att_flags & ATT_shutdown)
+			ERR_post(gds_shutdown, gds_arg_string, ERR_string(file_name, fl),
+					 0);
+	}
+#endif
+
+/* If database is shutdown then kick 'em out. */
+
+	if (dbb->dbb_ast_flags & (DBB_shut_attach | DBB_shut_tran))
+		ERR_post(gds_shutinprog, gds_arg_string, ERR_string(file_name, fl),
+				 0);
+
+	if (dbb->dbb_ast_flags & DBB_shutdown &&
+		!(attachment->att_user->usr_flags & (USR_locksmith | USR_owner)))
+		ERR_post(gds_shutdown, gds_arg_string, ERR_string(file_name, fl), 0);
+
+	if (options.dpb_disable)
+		AIL_disable();
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	if (options.dpb_quit_log)
+		LOG_disable();
+#endif
+
+/* Figure out what character set & collation this attachment prefers */
+
+	find_intl_charset(tdbb, attachment, &options);
+
+	if (options.dpb_verify) {
+		if (!CCH_exclusive(tdbb, LCK_PW, WAIT_PERIOD))
+			ERR_post(gds_bad_dpb_content, gds_arg_gds, gds_cant_validate, 0);
+
+#ifdef GARBAGE_THREAD
+		/* Can't allow garbage collection during database validation. */
+
+		VIO_fini(tdbb);
+#endif
+		V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+		JRD_SS_MUTEX_UNLOCK;
+		if (!VAL_validate(tdbb, options.dpb_verify)) {
+			JRD_SS_MUTEX_LOCK;
+			V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+			ERR_punt();
+		}
+		JRD_SS_MUTEX_LOCK;
+		V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+	}
+
+	if (options.dpb_journal)
+		if (first) {
+			archive_name[0] = 0;
+
+			if (options.dpb_wal_backup_dir)
+				ISC_expand_filename(options.dpb_wal_backup_dir, 0,
+									archive_name);
+
+			make_jrn_data(data, &d_len, expanded_filename, length_expanded,
+						  archive_name, (USHORT) strlen(archive_name));
+
+			ISC_expand_filename(options.dpb_journal, 0, journal_name);
+
+			AIL_enable(journal_name, (USHORT) strlen(journal_name),
+					   data, d_len, (SSHORT) strlen(archive_name));
+		}
+		else
+		{
+			ERR_post(gds_bad_dpb_content,
+					 gds_arg_gds, gds_cant_start_journal,
+					 0);
+		}
+
+	if (options.dpb_wal_action)
+	{
+		/* Make sure WAL enabled before taking any WAL action. */
+
+		if (!dbb->dbb_wal)
+		{
+			ERR_post(gds_no_wal, 0);
+		}
+		if (!CCH_exclusive(tdbb, LCK_EX, WAIT_PERIOD))
+		{
+			ERR_post(gds_lock_timeout, gds_arg_gds, gds_obj_in_use,
+					 gds_arg_string, ERR_string(file_name, fl), 0);
+		}
+
+		/* journal has to be disabled before dropping WAL */
+
+		if (PAG_get_clump(	HEADER_PAGE,
+							HDR_journal_server,
+							&jd_len,
+							reinterpret_cast<UCHAR*>(journal_dir)))
+		{
+			AIL_disable();
+		}
+	}
+
+/*
+ * if the attachment is through gbak and this the attachment is not by owner
+ * or sysdba   then return error. This has been added here to allow for the
+ * GBAK security feature of only allowing the owner or sysdba to backup a
+ * database. smistry 10/5/98
+ */
+
+	if (((attachment->att_flags & ATT_gbak_attachment) ||
+		 (attachment->att_flags & ATT_gfix_attachment) ||
+		 (attachment->att_flags & ATT_gstat_attachment)) &&
+		!(attachment->att_user->usr_flags & (USR_locksmith | USR_owner)))
+	{
+		ERR_post(isc_adm_task_denied, 0);
+	}
+
+	if (options.dpb_online_dump)
+	{
+		CCH_release_exclusive(tdbb);
+
+		OLD_dump(expanded_filename, length_expanded,
+				 options.dpb_old_dump_id,
+				 options.dpb_old_file_size,
+				 options.dpb_old_start_page,
+				 options.dpb_old_start_seqno,
+				 options.dpb_old_start_file,
+				 options.dpb_old_num_files, options.dpb_old_file);
+	}
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	if (options.dpb_log)
+	{
+		if (first)
+		{
+			if (!CCH_exclusive(tdbb, LCK_EX, WAIT_PERIOD))
+				ERR_post(gds_lock_timeout, gds_arg_gds, gds_obj_in_use,
+						 gds_arg_string, ERR_string(file_name, fl), 0);
+			LOG_enable(options.dpb_log, strlen(options.dpb_log));
+		}
+		else
+		{
+			ERR_post(gds_bad_dpb_content, gds_arg_gds,
+					 gds__cant_start_logging, 0);
+		}
+	}
+#endif
+
+	if (options.dpb_set_db_sql_dialect)
+	{
+		PAG_set_db_SQL_dialect(dbb, options.dpb_set_db_sql_dialect);
+	}
+
+	if (options.dpb_sweep_interval != -1)
+	{
+		PAG_sweep_interval(options.dpb_sweep_interval);
+		dbb->dbb_sweep_interval = options.dpb_sweep_interval;
+	}
+
+	if (options.dpb_set_force_write)
+	{
+		PAG_set_force_write(dbb, options.dpb_force_write);
+	}
+
+	if (options.dpb_set_no_reserve)
+	{
+		PAG_set_no_reserve(dbb, options.dpb_no_reserve);
+	}
+
+	if (options.dpb_set_page_buffers)
+	{
+		PAG_set_page_buffers(options.dpb_page_buffers);
+	}
+
+#ifdef READONLY_DATABASE
+	if (options.dpb_set_db_readonly)
+	{
+		if (!CCH_exclusive(tdbb, LCK_EX, WAIT_PERIOD))
+		{
+			ERR_post(gds_lock_timeout, gds_arg_gds, gds_obj_in_use,
+					 gds_arg_string, ERR_string(file_name, fl), 0);
+		}
+
+		PAG_set_db_readonly(dbb, options.dpb_db_readonly);
+	}
+#endif
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+/* don't record the attach until now in case the log is added during the attach */
+
+	LOG_call(log_attach2, file_length, file_name, *handle, dpb_length, dpb,
+			 expanded_filename);
+#endif
+
+#ifdef GARBAGE_THREAD
+	VIO_init(tdbb);
+#endif
+
+	CCH_release_exclusive(tdbb);
+
+#ifdef GOVERNOR
+	if (!options.dpb_sec_attach)
+	{
+		if (JRD_max_users)
+		{
+			if (num_attached < (JRD_max_users * ATTACHMENTS_PER_USER))
+			{
+				num_attached++;
+			}
+			else
+			{
+				ERR_post(isc_max_att_exceeded, 0);
+			}
+		}
+	}
+	else
+	{
+		attachment->att_flags |= ATT_security_db;
+	}
+#endif /* GOVERNOR */
+
+	V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+
+/* if there was an error, the status vector is all set */
+
+	if (options.dpb_sweep & gds_dpb_records)
+	{
+		JRD_SS_MUTEX_UNLOCK;
+		if (!(TRA_sweep(tdbb, 0)))
+		{
+			JRD_SS_MUTEX_LOCK;
+			ERR_punt();
+		}
+		JRD_SS_MUTEX_LOCK;
+	}
+
+	if (options.dpb_dbkey_scope)
+	{
+		attachment->att_dbkey_trans = TRA_start(tdbb, 0, 0);
+	}
+
+	JRD_SS_MUTEX_UNLOCK;
+
+	*handle = attachment;
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_handle_returned, *handle);
+#endif
+
+#ifdef STACK_REDUCTION
+	ALL_free(allocated_space);
+#endif
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_BLOB_INFO(STATUS*	user_status,
+								BLB*	blob_handle,
+								SSHORT	item_length,
+								SCHAR*	items,
+								SSHORT	buffer_length,
+								SCHAR*	buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ b l o b _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	BLB blob = check_blob(tdbb, user_status, blob_handle);
+	if (!blob) {
+		return user_status[1];
+	}
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_blob_info2, *blob_handle, item_length, items, buffer_length);
+#endif
+
+	ERROR_INIT(env);
+
+	INF_blob_info(blob, items, item_length, buffer, buffer_length);
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_CANCEL_BLOB(STATUS * user_status, BLB * blob_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ c a n c e l _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	BLB blob;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	if (*blob_handle) {
+		if (!(blob = check_blob(tdbb, user_status, blob_handle)))
+			return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+		LOG_call(log_cancel_blob, *blob_handle);
+#endif
+
+		ERROR_INIT(env);
+		BLB_cancel(tdbb, blob);
+		*blob_handle = NULL;
+	}
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_CANCEL_EVENTS(STATUS*	user_status,
+									ATT*	handle,
+									SLONG*	id)
+{
+/**************************************
+ *
+ *	g d s _ $ c a n c e l _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel an outstanding event.
+ *
+ **************************************/
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	if (check_database(tdbb, *handle, user_status)) {
+		return user_status[1];
+	}
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_cancel_events, *handle, *id);
+#endif
+
+	ERROR_INIT(env);
+	EVENT_cancel(*id);
+
+	return return_success(tdbb);
+}
+
+
+#ifdef CANCEL_OPERATION
+STATUS DLL_EXPORT GDS_CANCEL_OPERATION(STATUS * user_status,
+									   ATT * handle, USHORT option)
+{
+/**************************************
+ *
+ *	g d s _ $ c a n c e l _ o p e r a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to cancel an operation.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment, attach;
+
+	api_entry_point_init(user_status);
+
+	attachment = *handle;
+
+/* Check out the database handle.  This is mostly code from
+   the routine "check_database" */
+
+	if (!attachment ||
+		(attachment->att_header.blk_type != (UCHAR) type_att) ||
+		!(dbb = attachment->att_database) ||
+		dbb->dbb_header.blk_type != (UCHAR) type_dbb)
+		return handle_error(user_status, gds_bad_db_handle, 0);
+
+/* Make sure this is a valid attachment */
+
+	for (attach = dbb->dbb_attachments; attach; attach = attach->att_next)
+		if (attach == attachment)
+			break;
+
+	if (!attach)
+		return handle_error(user_status, gds_bad_db_handle, 0);
+
+	switch (option) {
+	case CANCEL_disable:
+		attachment->att_flags |= ATT_cancel_disable;
+		break;
+
+	case CANCEL_enable:
+		attachment->att_flags &= ~ATT_cancel_disable;
+		break;
+
+	case CANCEL_raise:
+		attachment->att_flags |= ATT_cancel_raise;
+		break;
+
+	default:
+		assert(FALSE);
+	}
+
+	return SUCCESS;
+}
+#endif
+
+
+STATUS DLL_EXPORT GDS_CLOSE_BLOB(STATUS * user_status, BLB * blob_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ c l o s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	BLB blob;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	if (!(blob = check_blob(tdbb, user_status, blob_handle)))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_close_blob, *blob_handle);
+#endif
+
+	ERROR_INIT(env);
+	BLB_close(tdbb, blob);
+	*blob_handle = NULL;
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_COMMIT(STATUS * user_status, TRA * tra_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit a transaction.
+ *
+ **************************************/
+
+	api_entry_point_init(user_status);
+
+	if (commit(user_status, tra_handle, FALSE))
+		return user_status[1];
+
+	*tra_handle = NULL;
+
+	return SUCCESS;
+}
+
+
+STATUS DLL_EXPORT GDS_COMMIT_RETAINING(STATUS * user_status, TRA * tra_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ c o m m i t _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit a transaction.
+ *
+ **************************************/
+
+	api_entry_point_init(user_status);
+
+	return commit(user_status, tra_handle, TRUE);
+}
+
+
+STATUS DLL_EXPORT GDS_COMPILE(STATUS * user_status,
+							  ATT * db_handle,
+							  REQ * req_handle,
+							  SSHORT blr_length, SCHAR * blr)
+{
+/**************************************
+ *
+ *	g d s _ $ c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	REQ request;
+	ATT attachment;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	NULL_CHECK(req_handle, gds_bad_req_handle);
+	attachment = *db_handle;
+
+	if (check_database(tdbb, attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_compile, *db_handle, *req_handle, blr_length, blr);
+#endif
+
+	ERROR_INIT(env);
+	request = CMP_compile2(tdbb, reinterpret_cast < UCHAR * >(blr), FALSE);
+	request->req_attachment = attachment;
+	request->req_request = attachment->att_requests;
+	attachment->att_requests = request;
+
+	DEBUG;
+	*req_handle = request;
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_handle_returned, *req_handle);
+#endif
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_CREATE_BLOB2(STATUS * user_status,
+								   ATT * db_handle,
+								   TRA * tra_handle,
+								   BLB * blob_handle,
+								   BID blob_id,
+								   USHORT bpb_length, UCHAR * bpb)
+{
+/**************************************
+ *
+ *	g d s _ $ c r e a t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+	TRA transaction;
+	BLB blob;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	NULL_CHECK(blob_handle, gds_bad_segstr_handle);
+
+	if (check_database(tdbb, *db_handle, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_create_blob2, *db_handle, *tra_handle, *blob_handle, blob_id,
+			 bpb_length, bpb);
+#endif
+
+	ERROR_INIT(env);
+	transaction = find_transaction(tdbb, *tra_handle, gds_segstr_wrong_db);
+	blob = BLB_create2(tdbb, transaction, blob_id, bpb_length, bpb);
+	*blob_handle = blob;
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_handle_returned, *blob_handle);
+	LOG_call(log_handle_returned, blob_id->bid_stuff.bid_blob);
+#endif
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_CREATE_DATABASE(STATUS*	user_status,
+									  USHORT	file_length,
+									  UCHAR*	file_name,
+									  ATT*		handle,
+									  USHORT	dpb_length,
+									  UCHAR*	dpb,
+									  USHORT	db_type,
+									  UCHAR*	expanded_filename)
+{
+/**************************************
+ *
+ *	g d s _ $ c r e a t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeeky clean database, uncorrupted by user data.
+ *
+ **************************************/
+	DBB dbb;
+	TEXT expanded_name[MAX_PATH_LENGTH];
+#ifdef STACK_REDUCTION
+	TEXT *allocated_space = NULL;
+#else
+	TEXT opt_buffer[DPB_EXPAND_BUFFER];
+#endif
+	TEXT *opt_ptr;
+	USHORT length, page_size;
+	ATT attachment;
+	STATUS temp_status[ISC_STATUS_LENGTH], *status;
+	DPB options;
+	JMP_BUF env;
+#ifdef _PPC_
+	JMP_BUF env1;
+#endif
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	if (*handle)
+		return handle_error(user_status, gds_bad_db_handle, 0);
+
+/* Get length of database file name, if not already known */
+
+	length =
+		(file_length) ? file_length : strlen(reinterpret_cast <
+											 char *>(file_name));
+#if defined(NETWARE_386)
+	if (strncmp(file_name, expanded_filename, length)) {
+		/* If the beginning of the expanded_filename isn't the same
+		   as the user's input, use the expanded value. */
+
+		file_name = expanded_filename;
+		length = strlen(file_name);
+	}
+#endif
+
+	MOVE_FAST(file_name, expanded_name, length);
+	expanded_name[length] = 0;
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	if (!(dbb = init(tdbb, user_status, expanded_name, FALSE))) {
+		V4_JRD_MUTEX_UNLOCK(databases_mutex);
+		JRD_SS_MUTEX_UNLOCK;
+		JRD_restore_context();
+		return user_status[1];
+	}
+
+	dbb->dbb_flags |= DBB_being_opened;
+	V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+	V4_JRD_MUTEX_UNLOCK(databases_mutex);
+
+	tdbb->tdbb_database = dbb;
+
+/* Initialize error handling */
+
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	tdbb->tdbb_status_vector = status = user_status;
+	tdbb->tdbb_attachment = attachment = NULL;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+
+/* Count active thread in database */
+
+	++dbb->dbb_use_count;
+#ifdef V4_THREADING
+	BOOLEAN initing_security = FALSE;
+#endif
+
+	if (SETJMP(env))
+	{
+#ifdef _PPC_
+		tdbb->tdbb_setjmp = (UCHAR *) env1;
+		if (!SETJMP(env1))
+#else
+		if (!SETJMP(env))
+#endif
+		{
+#ifdef V4_THREADING
+			if (initing_security)
+				V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+#endif
+			tdbb->tdbb_status_vector = temp_status;
+			dbb->dbb_flags &= ~DBB_being_opened;
+			release_attachment(attachment);
+
+			/* At this point, mutex dbb->dbb_mutexes [DBB_MUTX_init_fini] has been
+			   unlocked and mutex databases_mutex has been locked. */
+#ifdef STACK_REDUCTION
+			if (allocated_space) {
+				ALL_free(allocated_space);
+			}
+#endif
+			if (dbb->dbb_header.blk_type == (UCHAR) type_dbb)
+				if (!dbb->dbb_attachments)
+					shutdown_database(dbb, TRUE);
+				else if (attachment)
+					ALL_RELEASE(attachment);
+			V4_JRD_MUTEX_UNLOCK(databases_mutex);
+		}
+		tdbb->tdbb_status_vector = status;
+		JRD_SS_MUTEX_UNLOCK;
+		return error(user_status);
+	}
+
+/* Process database parameter block */
+
+#ifdef STACK_REDUCTION
+	allocated_space = ALL_malloc(DPB_EXPAND_BUFFER, ERR_jmp);
+	opt_ptr = allocated_space;
+#else
+	opt_ptr = opt_buffer;
+#endif
+
+	get_options((UCHAR *) dpb, dpb_length, &opt_ptr, &options);
+	if (invalid_client_SQL_dialect == FALSE && options.dpb_sql_dialect == 99)
+		options.dpb_sql_dialect = 0;
+
+
+#ifndef NO_NFS
+/* Don't check nfs if single user */
+
+	if (!options.dpb_single_user)
+#endif
+	{
+		/* Check to see if the database is truly local or if it just looks
+		   that way */
+
+		if (ISC_check_if_remote
+			(reinterpret_cast < char *>(expanded_filename),
+			 TRUE)) ERR_post(gds_unavailable, 0);
+	}
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (options.dpb_key)
+		dbb->dbb_encrypt_key =
+			copy_string(options.dpb_key, strlen(options.dpb_key));
+#endif
+
+	tdbb->tdbb_attachment = attachment = (ATT) ALLOCP(type_att);
+	attachment->att_database = dbb;
+	attachment->att_next = dbb->dbb_attachments;
+	dbb->dbb_attachments = attachment;
+	dbb->dbb_flags &= ~DBB_being_opened;
+	dbb->dbb_sys_trans->tra_attachment = attachment;
+	tdbb->tdbb_quantum = QUANTUM;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+	tdbb->tdbb_inhibit = 0;
+	tdbb->tdbb_flags = NULL;
+
+	if (options.dpb_working_directory)
+		attachment->att_working_directory =
+			copy_string(options.dpb_working_directory,
+						(USHORT) strlen(options.dpb_working_directory));
+
+	if (options.dpb_gbak_attach)
+		attachment->att_flags |= ATT_gbak_attachment;
+
+	switch (options.dpb_sql_dialect) {
+	case 0:
+		/* This can be issued by QLI, GDEF and old BDE clients.  In this case
+		 * assume dialect 1 */
+		options.dpb_sql_dialect = SQL_DIALECT_V5;
+	case SQL_DIALECT_V5:
+		break;
+	case SQL_DIALECT_V6:
+		dbb->dbb_flags |= DBB_DB_SQL_dialect_3;
+		break;
+	default:
+		ERR_post(isc_database_create_failed, isc_arg_string,
+				 expanded_filename, isc_arg_gds, isc_inv_dialect_specified,
+				 isc_arg_number, options.dpb_sql_dialect, isc_arg_gds,
+				 isc_valid_db_dialects, isc_arg_string, "1 and 3", 0);
+		break;
+	}
+
+	attachment->att_charset = options.dpb_interp;
+	if (options.dpb_lc_messages)
+		attachment->att_lc_messages =
+			copy_string(options.dpb_lc_messages,
+						(USHORT) strlen(options.dpb_lc_messages));
+
+	if (!options.dpb_page_size)
+		options.dpb_page_size = DEFAULT_PAGE_SIZE;
+
+	for (page_size = MIN_PAGE_SIZE; page_size < MAX_PAGE_SIZE;
+		 page_size <<= 1) if (options.dpb_page_size < page_size << 1)
+			break;
+
+	dbb->dbb_page_size =
+		(page_size > MAX_PAGE_SIZE) ? MAX_PAGE_SIZE : page_size;
+
+	LCK_init(tdbb, LCK_OWNER_attachment);	/* For the attachment */
+	attachment->att_flags |= ATT_lck_init_done;
+/* Extra LCK_init() done to keep the lock table until the
+   database is shutdown() after the last detach. */
+	LCK_init(tdbb, LCK_OWNER_database);
+	dbb->dbb_flags |= DBB_lck_init_done;
+	INI_init();
+	FUN_init();
+	PAG_init();
+	SBM_init();
+#ifdef V4_THREADING
+	V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+	initing_security = TRUE;
+#endif
+
+	// Don't run internal handles thru the security gauntlet.
+
+	BOOLEAN internal = FALSE;
+
+	for (IHNDL ihandle = internal_db_handles;
+		 ihandle;
+		 ihandle = ihandle->ihndl_next)
+	{
+		if (ihandle->ihndl_object == (isc_db_handle *) handle)
+		{
+			internal = TRUE;
+			break;
+		}
+	}
+
+	SCL_init(	TRUE,
+				options.dpb_sys_user_name,
+				options.dpb_user_name,
+				options.dpb_password,
+				options.dpb_password_enc,
+				options.dpb_role_name,
+				tdbb,
+				internal);
+
+#ifdef V4_THREADING
+	initing_security = FALSE;
+	V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+#endif
+	length =
+		PIO_expand(reinterpret_cast < char *>(file_name), length,
+				   expanded_name);
+	dbb->dbb_file =
+		PIO_create(dbb, expanded_name, length, options.dpb_overwrite);
+	if (options.dpb_set_page_buffers)
+		dbb->dbb_page_buffers = options.dpb_page_buffers;
+	CCH_init(tdbb, (ULONG) options.dpb_buffers);
+	PAG_format_header();
+	INI_init2();
+	PAG_format_log();
+	PAG_format_pip();
+
+	if (options.dpb_set_page_buffers)
+		PAG_set_page_buffers(options.dpb_page_buffers);
+
+	if (options.dpb_set_no_reserve)
+		PAG_set_no_reserve(dbb, options.dpb_no_reserve);
+
+	INI_format(attachment->att_user->usr_user_name);
+
+	if (options.dpb_shutdown || options.dpb_online) {
+		/* By releasing the DBB_MUTX_init_fini mutex here, we would be allowing
+		   other threads to proceed with their detachments, so that shutdown does
+		   not timeout for exclusive access and other threads don't have to wait 
+		   behind shutdown */
+
+		V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+		if (!SHUT_database
+			(dbb, options.dpb_shutdown, options.dpb_shutdown_delay)) {
+			V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+			ERR_post(gds_no_priv,
+					 gds_arg_string, "shutdown or online",
+					 gds_arg_string, "database",
+					 gds_arg_string,
+					 ERR_string(reinterpret_cast < char *>(file_name),
+								length), 0);
+		}
+		V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+	}
+
+	if (options.dpb_sweep_interval != -1) {
+		PAG_sweep_interval(options.dpb_sweep_interval);
+		dbb->dbb_sweep_interval = options.dpb_sweep_interval;
+	}
+
+	if (options.dpb_set_force_write)
+		PAG_set_force_write(dbb, options.dpb_force_write);
+
+/* initialize shadowing semaphore as soon as the database is ready for it
+   but before any real work is done */
+
+	SDW_init(options.dpb_activate_shadow, options.dpb_delete_shadow, 0);
+
+	AIL_set_log_options(options.dpb_wal_chkpt_len,
+						options.dpb_wal_num_bufs,
+						options.dpb_wal_bufsize,
+						options.dpb_wal_grp_cmt_wait);
+
+#ifdef GARBAGE_THREAD
+	VIO_init(tdbb);
+#endif
+
+	CCH_release_exclusive(tdbb);
+
+/* Figure out what character set & collation this attachment prefers */
+
+	find_intl_charset(tdbb, attachment, &options);
+
+	dbb->dbb_filename = copy_string(expanded_name, length);
+
+#ifdef GOVERNOR
+	if (!options.dpb_sec_attach) {
+		if (JRD_max_users) {
+			if (num_attached < (JRD_max_users * ATTACHMENTS_PER_USER))
+				num_attached++;
+			else
+				ERR_post(isc_max_att_exceeded, 0);
+		}
+	}
+	else {
+		attachment->att_flags |= ATT_security_db;
+	}
+#endif /* GOVERNOR */
+
+	V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+
+	JRD_SS_MUTEX_UNLOCK;
+
+	*handle = attachment;
+	CCH_flush(tdbb, (USHORT) FLUSH_FINI, 0);
+
+#ifdef STACK_REDUCTION
+	ALL_free(allocated_space);
+#endif
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_DATABASE_INFO(STATUS * user_status,
+									ATT * handle,
+									SSHORT item_length,
+									SCHAR * items,
+									SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ d a t a b a s e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on database object.
+ *
+ **************************************/
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	if (check_database(tdbb, *handle, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_database_info2, *handle, item_length, items, buffer_length);
+#endif
+
+	ERROR_INIT(env);
+	INF_database_info(items, item_length, buffer, buffer_length);
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_DDL(STATUS * user_status,
+						  ATT * db_handle,
+						  TRA * tra_handle, USHORT ddl_length, SCHAR * ddl)
+{
+/**************************************
+ *
+ *	g d s _ $ d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	ATT attachment;
+	TRA transaction;
+	JMP_BUF rollback_env, env;
+	struct tdbb thd_context;
+	STATUS temp_status[ISC_STATUS_LENGTH];
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	attachment = *db_handle;
+	if (check_database(tdbb, attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_ddl, *db_handle, *tra_handle, ddl_length, ddl);
+#endif
+
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	tdbb->tdbb_status_vector = user_status;
+	if (SETJMP(env)) {
+		if (tdbb->tdbb_status_vector == temp_status)
+			tdbb->tdbb_status_vector = user_status;
+		return error(user_status);
+	}
+
+	transaction = find_transaction(tdbb, *tra_handle, gds_segstr_wrong_db);
+
+	DYN_ddl(attachment, transaction, ddl_length,
+			reinterpret_cast < UCHAR * >(ddl));
+
+/* 
+ * Perform an auto commit for autocommit transactions.
+ * This is slightly tricky.  If the commit retain works,
+ * all is well.  If TRA_commit () fails, we perform
+ * a rollback_retain ().  This will backout the
+ * effects of the transaction, mark it dead and 
+ * start a new transaction.
+
+ * For now only ExpressLink will use this feature.  Later
+ * a new entry point may be added.
+ */
+
+	if (transaction->tra_flags & TRA_perform_autocommit) {
+		transaction->tra_flags &= ~TRA_perform_autocommit;
+		tdbb->tdbb_setjmp = (UCHAR *) rollback_env;
+
+		if (SETJMP(rollback_env)) {
+			tdbb->tdbb_setjmp = (UCHAR *) env;
+			tdbb->tdbb_status_vector = temp_status;
+			TRA_rollback(tdbb, transaction, TRUE);
+			tdbb->tdbb_status_vector = user_status;
+			tdbb->tdbb_setjmp = (UCHAR *) env;
+
+			return error(user_status);
+		}
+
+		TRA_commit(tdbb, transaction, TRUE);
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+	};
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_DETACH(STATUS * user_status, ATT * handle)
+{
+/**************************************
+ *
+ *	g d s _ $ d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a database.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment, attach;
+	JMP_BUF env;
+	struct tdbb thd_context;
+#ifdef GOVERNOR
+	USHORT attachment_flags;
+#endif
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	attachment = *handle;
+
+/* Check out the database handle.  This is mostly code from
+   the routine "check_database" */
+
+	if (!attachment ||
+		(attachment->att_header.blk_type != (UCHAR) type_att) ||
+		!(dbb = attachment->att_database) ||
+		dbb->dbb_header.blk_type != (UCHAR) type_dbb)
+		return handle_error(user_status, gds_bad_db_handle, tdbb);
+
+/* Make sure this is a valid attachment */
+
+	for (attach = dbb->dbb_attachments; attach; attach = attach->att_next)
+		if (attach == attachment)
+			break;
+
+	if (!attach)
+		return handle_error(user_status, gds_bad_db_handle, tdbb);
+
+/* if this is the last attachment, mark dbb as not in use */
+
+	JRD_SS_MUTEX_LOCK;
+	V4_JRD_MUTEX_LOCK(databases_mutex);
+	if (dbb->dbb_attachments == attachment && !attachment->att_next &&
+		!(dbb->dbb_flags & DBB_being_opened))
+		dbb->dbb_flags |= DBB_not_in_use;
+	V4_JRD_MUTEX_UNLOCK(databases_mutex);
+
+	tdbb->tdbb_database = dbb;
+	tdbb->tdbb_attachment = attachment;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+	tdbb->tdbb_default = NULL;
+
+/* Count active thread in database */
+
+	++dbb->dbb_use_count;
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_detach, *handle);
+	LOG_call(log_statistics, dbb->dbb_reads, dbb->dbb_writes,
+			 dbb->dbb_max_memory);
+#endif
+
+/* purge_attachment below can do an ERR_post */
+
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	tdbb->tdbb_status_vector = user_status;
+	if (SETJMP(env)) {
+		JRD_SS_MUTEX_UNLOCK;
+		return error(user_status);
+	}
+
+/* Purge attachment, don't rollback open transactions */
+
+	V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+
+#ifdef CANCEL_OPERATION
+	attachment->att_flags |= ATT_cancel_disable;
+#endif
+
+#ifdef GOVERNOR
+	attachment_flags = (USHORT) attachment->att_flags;
+#endif
+
+	purge_attachment(tdbb, user_status, attachment, FALSE);
+
+#ifdef GOVERNOR
+	if (JRD_max_users) {
+		if (!(attachment_flags & ATT_security_db)) {
+			assert(num_attached > 0);
+			num_attached--;
+		}
+	}
+#endif /* GOVERNOR */
+
+	V4_JRD_MUTEX_UNLOCK(databases_mutex);
+	JRD_SS_MUTEX_UNLOCK;
+
+	*handle = NULL;
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_DROP_DATABASE(STATUS * user_status, ATT * handle)
+{
+/**************************************
+ *
+ *	i s c _ d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down and purge a database.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment, attach;
+	FIL file;
+	WIN window;
+	HDR header;
+	SDW shadow;
+	BOOLEAN err;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	attachment = *handle;
+
+/* Check out the database handle.  This is mostly code from
+   the routine "check_database" */
+
+	if (!attachment ||
+		(attachment->att_header.blk_type != (UCHAR) type_att) ||
+		!(dbb = attachment->att_database) ||
+		dbb->dbb_header.blk_type != (UCHAR) type_dbb)
+		return handle_error(user_status, gds_bad_db_handle, tdbb);
+
+/* Make sure this is a valid attachment */
+
+	for (attach = dbb->dbb_attachments; attach; attach = attach->att_next)
+		if (attach == attachment)
+			break;
+
+	if (!attach)
+		return handle_error(user_status, gds_bad_db_handle, tdbb);
+
+	tdbb->tdbb_database = dbb;
+	tdbb->tdbb_attachment = attachment;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+	tdbb->tdbb_default = dbb->dbb_permanent;
+
+/* Count active thread in database */
+
+	++dbb->dbb_use_count;
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_drop_database, *handle);
+	LOG_call(log_statistics, dbb->dbb_reads, dbb->dbb_writes,
+			 dbb->dbb_max_memory);
+#endif
+
+	ERROR_INIT(env);
+
+	if (!(attachment->att_user->usr_flags & (USR_locksmith | USR_owner)))
+		ERR_post(gds_no_priv,
+				 gds_arg_string, "drop",
+				 gds_arg_string, "database",
+				 gds_arg_string, ERR_cstring(dbb->dbb_file->fil_string), 0);
+
+	if (attachment->att_flags & ATT_shutdown)
+		ERR_post(gds_shutdown, gds_arg_string,
+				 ERR_cstring(dbb->dbb_file->fil_string), 0);
+
+	if (!CCH_exclusive(tdbb, LCK_PW, WAIT_PERIOD))
+		ERR_post(gds_lock_timeout, gds_arg_gds, gds_obj_in_use,
+				 gds_arg_string, ERR_cstring(dbb->dbb_file->fil_string), 0);
+
+	JRD_SS_MUTEX_LOCK;
+	V4_JRD_MUTEX_LOCK(databases_mutex);
+	V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+
+	if (SETJMP(env)) {
+		V4_JRD_MUTEX_UNLOCK(databases_mutex);
+		V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+		JRD_SS_MUTEX_UNLOCK;
+		return error(user_status);
+	}
+
+/* Check if same process has more attachments */
+
+	if ((attach = dbb->dbb_attachments) && (attach->att_next))
+		ERR_post(gds_no_meta_update, gds_arg_gds, gds_obj_in_use,
+				 gds_arg_string, "DATABASE", 0);
+
+#ifdef CANCEL_OPERATION
+	attachment->att_flags |= ATT_cancel_disable;
+#endif
+
+/* Here we have database locked in exclusive mode.
+   Just mark the header page with an 0 ods version so that no other
+   process can attach to this database once we release our exclusive
+   lock and start dropping files. */
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+	header->hdr_ods_version = 0;
+	CCH_RELEASE(tdbb, &window);
+
+/* A default catch all */
+	if (SETJMP(env)) {
+		JRD_SS_MUTEX_UNLOCK;
+		return error(user_status);
+	}
+
+/* This point on database is useless */
+
+/* mark the dbb unusable */
+
+	dbb->dbb_flags |= DBB_not_in_use;
+	*handle = NULL;
+
+	V4_JRD_MUTEX_UNLOCK(databases_mutex);
+
+	file = dbb->dbb_file;
+	shadow = dbb->dbb_shadow;
+
+	AIL_drop_log();
+
+	tdbb->tdbb_default = NULL;
+
+#ifdef GOVERNOR
+	if (JRD_max_users) {
+		assert(num_attached > 0);
+		num_attached--;
+	}
+#endif /* GOVERNOR */
+
+/* Unlink attachment from database */
+
+	release_attachment(attachment);
+
+/* At this point, mutex dbb->dbb_mutexes [DBB_MUTX_init_fini] has been
+   unlocked and mutex databases_mutex has been locked. */
+
+	shutdown_database(dbb, FALSE);
+
+/* drop the files here. */
+
+	err = drop_files(file);
+	for (; shadow; shadow = shadow->sdw_next)
+		err |= drop_files(shadow->sdw_file);
+
+	V4_JRD_MUTEX_UNLOCK(databases_mutex);
+	JRD_SS_MUTEX_UNLOCK;
+
+	ALL_fini();
+	tdbb->tdbb_database = NULL;
+	if (err) {
+		user_status[0] = gds_arg_gds;
+		user_status[1] = gds_drdb_completed_with_errs;
+		user_status[2] = gds_arg_end;
+		return user_status[1];
+	}
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_GET_SEGMENT(STATUS * user_status,
+								  BLB * blob_handle,
+								  USHORT * length,
+								  USHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	BLB blob;
+	DBB dbb;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	if (!(blob = check_blob(tdbb, user_status, blob_handle)))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_get_segment2, *blob_handle, length, buffer_length);
+#endif
+
+	ERROR_INIT(env);
+	*length = BLB_get_segment(tdbb, blob, buffer, buffer_length);
+	tdbb->tdbb_status_vector[0] = gds_arg_gds;
+	tdbb->tdbb_status_vector[2] = gds_arg_end;
+	dbb = tdbb->tdbb_database;
+
+	if (blob->blb_flags & BLB_eof) {
+		JRD_restore_context();
+		--dbb->dbb_use_count;
+		return (user_status[1] = gds_segstr_eof);
+	}
+	else if (blob->blb_fragment_size) {
+		JRD_restore_context();
+		--dbb->dbb_use_count;
+		return (user_status[1] = gds_segment);
+	}
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_GET_SLICE(STATUS * user_status,
+								ATT * db_handle,
+								TRA * tra_handle,
+								SLONG * array_id,
+								USHORT sdl_length,
+								UCHAR * sdl,
+								USHORT param_length,
+								UCHAR * param,
+								SLONG slice_length,
+								UCHAR * slice, SLONG * return_length)
+{
+/**************************************
+ *
+ *	g d s _ $ g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+	TRA transaction;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	if (check_database(tdbb, *db_handle, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_get_slice2, *db_handle, *tra_handle, *array_id, sdl_length,
+			 sdl, param_length, param, slice_length);
+#endif
+
+	ERROR_INIT(env);
+	transaction = find_transaction(tdbb, *tra_handle, gds_segstr_wrong_db);
+
+	if (!array_id[0] && !array_id[1]) {
+		MOVE_CLEAR(slice, slice_length);
+		*return_length = 0;
+	}
+	else
+		*return_length = BLB_get_slice(tdbb,
+									   transaction,
+									   reinterpret_cast < BID > (array_id),
+									   sdl,
+									   param_length,
+									   reinterpret_cast < long *>(param),
+									   slice_length, slice);
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_OPEN_BLOB2(STATUS * user_status,
+								 ATT * db_handle,
+								 TRA * tra_handle,
+								 BLB * blob_handle,
+								 BID blob_id, USHORT bpb_length, UCHAR * bpb)
+{
+/**************************************
+ *
+ *	g d s _ $ o p e n _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+	BLB blob;
+	TRA transaction;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	NULL_CHECK(blob_handle, gds_bad_segstr_handle);
+
+	if (check_database(tdbb, *db_handle, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_open_blob2, *db_handle, *tra_handle, *blob_handle, blob_id,
+			 bpb_length, bpb);
+#endif
+
+	ERROR_INIT(env);
+	transaction = find_transaction(tdbb, *tra_handle, gds_segstr_wrong_db);
+	blob = BLB_open2(tdbb, transaction, blob_id, bpb_length, bpb);
+	*blob_handle = blob;
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_handle_returned, *blob_handle);
+#endif
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_PREPARE(STATUS * user_status,
+							  TRA * tra_handle, USHORT length, UCHAR * msg)
+{
+/**************************************
+ *
+ *	g d s _ $ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First phase of a two
+ *	phase commit.
+ *
+ **************************************/
+	TRA transaction;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	CHECK_HANDLE((*tra_handle), type_tra, gds_bad_trans_handle);
+	transaction = *tra_handle;
+
+	if (check_database(tdbb, transaction->tra_attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_prepare2, *tra_handle, length, msg);
+#endif
+
+	if (prepare(tdbb, transaction, user_status, length, msg))
+		return error(user_status);
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_PUT_SEGMENT(STATUS * user_status,
+								  BLB * blob_handle,
+								  USHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	BLB blob;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	if (!(blob = check_blob(tdbb, user_status, blob_handle)))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_put_segment, *blob_handle, buffer_length, buffer);
+#endif
+
+	ERROR_INIT(env);
+	BLB_put_segment(tdbb, blob, buffer, buffer_length);
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_PUT_SLICE(STATUS * user_status,
+								ATT * db_handle,
+								TRA * tra_handle,
+								SLONG * array_id,
+								USHORT sdl_length,
+								UCHAR * sdl,
+								USHORT param_length,
+								UCHAR * param,
+								SLONG slice_length, UCHAR * slice)
+{
+/**************************************
+ *
+ *	g d s _ $ p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+
+	TRA transaction;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	if (check_database(tdbb, *db_handle, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_put_slice, *db_handle, *tra_handle, *array_id, sdl_length,
+			 sdl, param_length, param, slice_length, slice);
+#endif
+
+	ERROR_INIT(env);
+	transaction = find_transaction(tdbb, *tra_handle, gds_segstr_wrong_db);
+	BLB_put_slice(tdbb,
+				  transaction,
+				  reinterpret_cast < BID > (array_id),
+				  sdl,
+				  param_length,
+				  reinterpret_cast < long *>(param), slice_length, slice);
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_QUE_EVENTS(STATUS * user_status,
+								 ATT * handle,
+								 SLONG * id,
+								 SSHORT length,
+								 UCHAR * items, void (*ast) (), void *arg)
+{
+/**************************************
+ *
+ *	g d s _ $ q u e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que a request for event notification.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment;
+	LCK lock;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	if (check_database(tdbb, *handle, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_que_events, *handle, length, items);
+#endif
+
+	ERROR_INIT(env);
+	dbb = tdbb->tdbb_database;
+	lock = dbb->dbb_lock;
+	attachment = tdbb->tdbb_attachment;
+
+	if (!attachment->att_event_session &&
+		!(attachment->att_event_session = EVENT_create_session(user_status)))
+		return error(user_status);
+
+	*id = EVENT_que(user_status,
+					attachment->att_event_session,
+					lock->lck_length,
+					(TEXT *) & lock->lck_key, length, items, ast, arg);
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_handle_returned, *id);
+#endif
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_RECEIVE(STATUS * user_status,
+							  REQ * req_handle,
+							  USHORT msg_type,
+							  USHORT msg_length, SCHAR * msg, SSHORT level
+#ifdef SCROLLABLE_CURSORS
+							  , USHORT direction, ULONG offset
+#endif
+	)
+{
+/**************************************
+ *
+ *	g d s _ $ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	REQ request;
+	VEC vector;
+	USHORT lev;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	CHECK_HANDLE((*req_handle), type_req, gds_bad_req_handle);
+	request = *req_handle;
+
+	if (check_database(tdbb, request->req_attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_receive2, *req_handle, msg_type, msg_length, level);
+#endif
+
+	ERROR_INIT(env);
+
+	if (lev = level)
+		if (!(vector = request->req_sub_requests) ||
+			lev >= vector->vec_count ||
+			!(request = (REQ) vector->vec_object[lev]))
+				ERR_post(gds_req_sync, 0);
+
+#ifdef SCROLLABLE_CURSORS
+	if (direction)
+		EXE_seek(tdbb, request, direction, offset);
+#endif
+
+	EXE_receive(tdbb, request, msg_type, msg_length,
+				reinterpret_cast < UCHAR * >(msg));
+
+	check_autocommit(request, tdbb);
+
+	if (request->req_flags & req_warning) {
+		request->req_flags &= ~req_warning;
+		return error(user_status);
+	}
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_RECONNECT(STATUS * user_status,
+								ATT * db_handle,
+								TRA * tra_handle, SSHORT length, UCHAR * id)
+{
+/**************************************
+ *
+ *	g d s _ $ r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to a transaction in limbo.
+ *
+ **************************************/
+	TRA transaction;
+	ATT attachment;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	NULL_CHECK(tra_handle, gds_bad_trans_handle);
+	attachment = *db_handle;
+
+	if (check_database(tdbb, attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_reconnect, *db_handle, *tra_handle, length, id);
+#endif
+
+	ERROR_INIT(env);
+	transaction = TRA_reconnect(tdbb, id, length);
+	*tra_handle = transaction;
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_handle_returned, *tra_handle);
+#endif
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_RELEASE_REQUEST(STATUS * user_status, REQ * req_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request.
+ *
+ **************************************/
+	REQ request;
+	ATT attachment;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	CHECK_HANDLE((*req_handle), type_req, gds_bad_req_handle);
+	request = *req_handle;
+	attachment = request->req_attachment;
+
+	if (check_database(tdbb, attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_release_request, *req_handle);
+#endif
+
+	ERROR_INIT(env);
+	CMP_release(tdbb, request);
+	*req_handle = NULL;
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_REQUEST_INFO(STATUS * user_status,
+								   REQ * req_handle,
+								   SSHORT level,
+								   SSHORT item_length,
+								   SCHAR * items,
+								   SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ r e q u e s t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+	USHORT lev;
+	REQ request;
+	VEC vector;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_req, gds_bad_req_handle);
+
+	if (check_database(tdbb, request->req_attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_request_info2, *req_handle, level, item_length, items,
+			 buffer_length);
+#endif
+
+	ERROR_INIT(env);
+
+	if (lev = level)
+		if (!(vector = request->req_sub_requests) ||
+			lev >= vector->vec_count ||
+			!(request = (REQ) vector->vec_object[lev]))
+				ERR_post(gds_req_sync, 0);
+
+	INF_request_info(request, items, item_length, buffer, buffer_length);
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_ROLLBACK_RETAINING(STATUS * user_status,
+										 TRA * tra_handle)
+{
+/**************************************
+ *
+ *	i s c _ r o l l b a c k _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction but keep the environment valid
+ *
+ **************************************/
+	TRA transaction;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, type_tra, gds_bad_trans_handle);
+
+	if (check_database(tdbb, transaction->tra_attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_rollback, *tra_handle);
+#endif
+
+	if (rollback(tdbb, transaction, user_status, TRUE))
+		return error(user_status);
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_ROLLBACK(STATUS * user_status, TRA * tra_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction.
+ *
+ **************************************/
+	TRA transaction;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, type_tra, gds_bad_trans_handle);
+
+	if (check_database(tdbb, transaction->tra_attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_rollback, *tra_handle);
+#endif
+
+	if (rollback(tdbb, transaction, user_status, FALSE))
+		return error(user_status);
+
+	*tra_handle = NULL;
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_SEEK_BLOB(STATUS * user_status,
+								BLB * blob_handle,
+								SSHORT mode, SLONG offset, SLONG * result)
+{
+/**************************************
+ *
+ *	g d s _ $ s e e k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Seek a stream blob.
+ *
+ **************************************/
+	BLB blob;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	if (!(blob = check_blob(tdbb, user_status, blob_handle)))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_blob_seek, *blob_handle, mode, offset);
+#endif
+
+	ERROR_INIT(env);
+	*result = BLB_lseek(blob, mode, offset);
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_SEND(STATUS * user_status,
+						   REQ * req_handle,
+						   USHORT msg_type,
+						   USHORT msg_length, SCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	g d s _ $ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	REQ request;
+	VEC vector;
+	USHORT lev;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	CHECK_HANDLE((*req_handle), type_req, gds_bad_req_handle);
+	request = *req_handle;
+
+	if (check_database(tdbb, request->req_attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_send, *req_handle, msg_type, msg_length, msg, level);
+#endif
+
+	ERROR_INIT(env);
+
+	if (lev = level)
+		if (!(vector = request->req_sub_requests) ||
+			lev >= vector->vec_count ||
+			!(request = (REQ) vector->vec_object[lev]))
+				ERR_post(gds_req_sync, 0);
+
+	EXE_send(tdbb, request, msg_type, msg_length,
+			 reinterpret_cast < UCHAR * >(msg));
+
+	check_autocommit(request, tdbb);
+
+	if (request->req_flags & req_warning) {
+		request->req_flags &= ~req_warning;
+		return error(user_status);
+	}
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_SERVICE_ATTACH(STATUS * user_status,
+									 USHORT service_length,
+									 TEXT * service_name,
+									 SVC * svc_handle,
+									 USHORT spb_length, SCHAR * spb)
+{
+/**************************************
+ *
+ *	g d s _ $ s e r v i c e _ a t t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to an Interbase service.
+ *
+ **************************************/
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	if (*svc_handle)
+		return handle_error(user_status, gds_bad_svc_handle, 0);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	ERROR_INIT(env);
+	tdbb->tdbb_database = NULL;
+
+	*svc_handle = SVC_attach(service_length, service_name, spb_length, spb);
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_SERVICE_DETACH(STATUS * user_status, SVC * svc_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ s e r v i c e _ d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a service.
+ *
+ **************************************/
+	SVC service;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	service = *svc_handle;
+	CHECK_HANDLE(service, type_svc, gds_bad_svc_handle);
+
+	ERROR_INIT(env);
+	tdbb->tdbb_database = NULL;
+
+	SVC_detach(service);
+
+	*svc_handle = NULL;
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_SERVICE_QUERY(STATUS*	user_status,
+									SVC*	svc_handle,
+									ULONG*	reserved,
+									USHORT	send_item_length,
+									SCHAR*	send_items,
+									USHORT	recv_item_length,
+									SCHAR*	recv_items,
+									USHORT	buffer_length,
+									SCHAR*	buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ s e r v i c e _ q u e r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on service object.
+ *
+ *	NOTE: The parameter RESERVED must not be used
+ *	for any purpose as there are networking issues
+ *	involved (as with any handle that goes over the
+ *	network).  This parameter will be implemented at 
+ *	a later date.
+ *
+ **************************************/
+	SVC service;
+	JMP_BUF env;
+	struct tdbb thd_context;
+	int len, warning;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	service = *svc_handle;
+	CHECK_HANDLE(service, type_svc, gds_bad_svc_handle);
+
+	ERROR_INIT(env);
+	tdbb->tdbb_database = NULL;
+
+	if (service->svc_spb_version == isc_spb_version1)
+		SVC_query(service, send_item_length, send_items, recv_item_length,
+				  recv_items, buffer_length, buffer);
+	else {
+		/* For SVC_query2, we are going to completly dismantle user_status (since at this point it is 
+		 * meaningless anyway).  The status vector returned by this function can hold information about
+		 * the call to query the service manager and/or a service thread that may have been running.
+		 */
+
+		SVC_query2(service, tdbb, send_item_length, send_items,
+				   recv_item_length, recv_items, buffer_length, buffer);
+
+		/* if there is a status vector from a service thread, copy it into the thread status */
+		PARSE_STATUS(service->svc_status, len, warning);
+		if (len) {
+			MOVE_FASTER(service->svc_status, tdbb->tdbb_status_vector,
+						sizeof(STATUS) * len);
+
+			/* Empty out the service status vector */
+			memset(service->svc_status, 0,
+				   ISC_STATUS_LENGTH * sizeof(STATUS));
+		}
+
+		if (user_status[1])
+			return error(user_status);
+	}
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_SERVICE_START(STATUS*	user_status,
+									SVC*	svc_handle,
+									ULONG*	reserved,
+									USHORT	spb_length,
+									SCHAR*	spb)
+{
+/**************************************
+ *
+ *	g d s _ s e r v i c e _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start the specified service
+ *
+ *	NOTE: The parameter RESERVED must not be used
+ *	for any purpose as there are networking issues
+ *  	involved (as with any handle that goes over the
+ *   	network).  This parameter will be implemented at 
+ * 	a later date.
+ **************************************/
+	SVC service;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	service = *svc_handle;
+	CHECK_HANDLE(service, type_svc, isc_bad_svc_handle);
+
+	ERROR_INIT(env);
+	tdbb->tdbb_database = NULL;
+
+	SVC_start(service, spb_length, spb);
+
+	if (service->svc_status[1]) {
+		STATUS* svc_status = service->svc_status;
+		STATUS* tdbb_status = tdbb->tdbb_status_vector;
+
+		while (*svc_status) {
+			*tdbb_status++ = *svc_status++;
+		}
+		*tdbb_status = isc_arg_end;
+	}
+
+	if (user_status[1]) {
+		return error(user_status);
+	}
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_START_AND_SEND(STATUS * user_status,
+									 REQ * req_handle,
+									 TRA * tra_handle,
+									 USHORT msg_type,
+									 USHORT msg_length,
+									 SCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t _ a n d _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	REQ request = *req_handle;
+	CHECK_HANDLE(request, type_req, gds_bad_req_handle);
+
+	if (check_database(tdbb, request->req_attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_start_and_send, *req_handle, *tra_handle, msg_type,
+			 msg_length, msg, level);
+#endif
+
+	ERROR_INIT(env);
+	TRA transaction = find_transaction(tdbb, *tra_handle, gds_req_wrong_db);
+
+	if (level)
+		request = CMP_clone_request(tdbb, request, level, FALSE);
+
+	EXE_unwind(tdbb, request);
+	EXE_start(tdbb, request, transaction);
+	EXE_send(tdbb, request, msg_type, msg_length,
+			 reinterpret_cast < UCHAR * >(msg));
+
+	check_autocommit(request, tdbb);
+
+	if (request->req_flags & req_warning) {
+		request->req_flags &= ~req_warning;
+		return error(user_status);
+	}
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_START(STATUS * user_status,
+							register REQ * req_handle,
+							register TRA * tra_handle, SSHORT level)
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	TRA transaction;
+	REQ request;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_req, gds_bad_req_handle);
+
+	if (check_database(tdbb, request->req_attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_start, *req_handle, *tra_handle, level);
+#endif
+
+	ERROR_INIT(env);
+	transaction = find_transaction(tdbb, *tra_handle, gds_req_wrong_db);
+
+	if (level)
+		request = CMP_clone_request(tdbb, request, level, FALSE);
+
+	EXE_unwind(tdbb, request);
+	EXE_start(tdbb, request, transaction);
+
+	check_autocommit(request, tdbb);
+
+	if (request->req_flags & req_warning) {
+		request->req_flags &= ~req_warning;
+		return error(user_status);
+	}
+
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_START_MULTIPLE(STATUS * user_status,
+									 TRA * tra_handle,
+									 USHORT count, TEB * vector)
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t _ m u l t i p l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+	VOLATILE TRA transaction, prior;
+	STATUS temp_status[ISC_STATUS_LENGTH];
+	TEB *v, *end;
+	ATT attachment;
+	JMP_BUF env;
+	struct tdbb thd_context;
+	DBB dbb;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	NULL_CHECK(tra_handle, gds_bad_trans_handle);
+	end = vector + count;
+
+	for (v = vector; v < end; v++) {
+		if (check_database(tdbb, *v->teb_database, user_status))
+			return user_status[1];
+		dbb = tdbb->tdbb_database;
+		--dbb->dbb_use_count;
+	}
+
+	if (check_database(tdbb, *vector->teb_database, user_status))
+		return user_status[1];
+
+	prior = NULL;
+
+	if (SETJMP(env)) {
+		dbb = tdbb->tdbb_database;
+		--dbb->dbb_use_count;
+		if (prior)
+			rollback(tdbb, prior, temp_status, FALSE);
+		return error(user_status);
+	}
+
+	for (v = vector; v < end; v++) {
+		attachment = *v->teb_database;
+		if (check_database(tdbb, attachment, user_status))
+			return user_status[1];
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+		LOG_call(log_start_multiple, *tra_handle, count, vector);
+#endif
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		tdbb->tdbb_status_vector = user_status;
+		transaction =
+			TRA_start(tdbb, v->teb_tpb_length,
+					  reinterpret_cast < char *>(v->teb_tpb));
+		transaction->tra_sibling = prior;
+		prior = transaction;
+		dbb = tdbb->tdbb_database;
+		--dbb->dbb_use_count;
+	}
+
+	*tra_handle = transaction;
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_handle_returned, *tra_handle);
+#endif
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_START_TRANSACTION(STATUS * user_status,
+										TRA * tra_handle, SSHORT count, ...)
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+	TEB tebs[16], *teb, *end;
+	va_list ptr;
+
+	api_entry_point_init(user_status);
+
+	VA_START(ptr, count);
+
+	for (teb = tebs, end = teb + count; teb < end; teb++) {
+		teb->teb_database = va_arg(ptr, ATT *);
+		teb->teb_tpb_length = va_arg(ptr, int);
+		teb->teb_tpb = va_arg(ptr, UCHAR *);
+	}
+
+	return GDS_START_MULTIPLE(user_status, tra_handle, count, tebs);
+}
+
+
+STATUS DLL_EXPORT GDS_TRANSACT_REQUEST(STATUS*	user_status,
+									   ATT*		db_handle,
+									   TRA*		tra_handle,
+									   USHORT	blr_length,
+									   SCHAR*	blr,
+									   USHORT	in_msg_length,
+									   SCHAR*	in_msg,
+									   USHORT	out_msg_length,
+									   SCHAR*	out_msg)
+{
+/**************************************
+ *
+ *	i s c _ t r a n s a c t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a procedure.
+ *
+ **************************************/
+	ATT attachment;
+	TRA transaction;
+	CSB csb;
+	REQ request;
+	NOD in_message, out_message, node;
+	ACC access;
+	SCL class_;
+	FMT format;
+	PLB old_pool, new_pool;
+	USHORT i, len;
+	JMP_BUF env;
+#ifdef _PPC_
+	JMP_BUF env1;
+#endif
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	attachment = *db_handle;
+	if (check_database(tdbb, attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_transact_request, *db_handle, *tra_handle,
+			 blr_length, blr, in_msg_length, in_msg, out_msg_length);
+#endif
+
+	new_pool = old_pool = NULL;
+	request = NULL;
+
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	tdbb->tdbb_status_vector = user_status;
+	if (SETJMP(env)) {
+		/* Set up to trap error in case release pool goes wrong. */
+
+#ifdef _PPC_
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env1))
+#else
+		if (SETJMP(env))
+#endif
+			return error(user_status);
+		if (old_pool)
+			tdbb->tdbb_default = old_pool;
+		if (request)
+			CMP_release(tdbb, request);
+		else if (new_pool)
+			ALL_rlpool(new_pool);
+		return error(user_status);
+	}
+
+	transaction = find_transaction(tdbb, *tra_handle, gds_req_wrong_db);
+
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = new_pool = ALL_pool();
+
+	csb = PAR_parse(tdbb, reinterpret_cast < UCHAR * >(blr), FALSE);
+	request = CMP_make_request(tdbb, &csb);
+
+	for (access = request->req_access; access; access = access->acc_next) {
+		class_ = SCL_get_class(access->acc_security_name);
+		SCL_check_access(class_, access->acc_view, access->acc_trg_name,
+						 access->acc_prc_name, access->acc_mask,
+						 access->acc_type, access->acc_name);
+	}
+
+	in_message = out_message = NULL;
+	for (i = 0; i < csb->csb_count; i++)
+		if (node = csb->csb_rpt[i].csb_message) {
+			if ((int) node->nod_arg[e_msg_number] == 0)
+				in_message = node;
+			else if ((int) node->nod_arg[e_msg_number] == 1)
+				out_message = node;
+		}
+
+	tdbb->tdbb_default = old_pool;
+	old_pool = NULL;
+
+	request->req_attachment = attachment;
+
+	if (in_msg_length) {
+		if (in_message) {
+			format = (FMT) in_message->nod_arg[e_msg_format];
+			len = format->fmt_length;
+		}
+		else
+			len = 0;
+		if (in_msg_length != len)
+			ERR_post(gds_port_len,
+					 gds_arg_number, (SLONG) in_msg_length,
+					 gds_arg_number, (SLONG) len, 0);
+		if ((U_IPTR) in_msg & (ALIGNMENT - 1))
+			MOVE_FAST(in_msg, (SCHAR *) request + in_message->nod_impure,
+					  in_msg_length);
+		else
+			MOVE_FASTER(in_msg, (SCHAR *) request + in_message->nod_impure,
+						in_msg_length);
+	}
+
+	EXE_start(tdbb, request, transaction);
+
+	if (out_message) {
+		format = (FMT) out_message->nod_arg[e_msg_format];
+		len = format->fmt_length;
+	}
+	else
+		len = 0;
+	if (out_msg_length != len)
+		ERR_post(gds_port_len,
+				 gds_arg_number, (SLONG) out_msg_length,
+				 gds_arg_number, (SLONG) len, 0);
+
+	if (out_msg_length)
+		if ((U_IPTR) out_msg & (ALIGNMENT - 1))
+			MOVE_FAST((SCHAR *) request + out_message->nod_impure, out_msg,
+					  out_msg_length);
+		else
+			MOVE_FASTER((SCHAR *) request + out_message->nod_impure, out_msg,
+						out_msg_length);
+
+	check_autocommit(request, tdbb);
+
+	CMP_release(tdbb, request);
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_TRANSACTION_INFO(STATUS * user_status,
+									   TRA * tra_handle,
+									   SSHORT item_length,
+									   SCHAR * items,
+									   SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ t r a n s a c t i o n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+	TRA transaction;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, type_tra, gds_bad_trans_handle);
+
+	if (check_database(tdbb, transaction->tra_attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_transaction_info2, *tra_handle, item_length, items,
+			 buffer_length);
+#endif
+
+	ERROR_INIT(env);
+
+	INF_transaction_info(transaction, items, item_length, buffer,
+						 buffer_length);
+
+	return return_success(tdbb);
+}
+
+
+STATUS DLL_EXPORT GDS_UNWIND(STATUS * user_status,
+							 REQ * req_handle, SSHORT level)
+{
+/**************************************
+ *
+ *	g d s _ $ u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a running request.  This is potentially nasty since it can
+ *	be called asynchronously.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment, attach;
+	REQ request;
+	VEC vector;
+	USHORT lev;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	api_entry_point_init(user_status);
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	CHECK_HANDLE((*req_handle), type_req, gds_bad_req_handle);
+	request = *req_handle;
+
+/* Make sure blocks look and feel kosher */
+
+	if (!(attachment = request->req_attachment) ||
+		(attachment->att_header.blk_type != (UCHAR) type_att) ||
+		!(dbb = attachment->att_database) ||
+		dbb->dbb_header.blk_type != (UCHAR) type_dbb)
+		return handle_error(user_status, gds_bad_db_handle, tdbb);
+
+/* Make sure this is a valid attachment */
+
+	for (attach = dbb->dbb_attachments; attach; attach = attach->att_next)
+		if (attach == attachment)
+			break;
+
+	if (!attach)
+		return handle_error(user_status, gds_bad_db_handle, tdbb);
+
+	tdbb->tdbb_database = dbb;
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call(log_unwind, *req_handle, level);
+#endif
+
+/* Set up error handling to restore old state */
+
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	tdbb->tdbb_status_vector = user_status;
+	tdbb->tdbb_attachment = attachment;
+
+	if (SETJMP(env)) {
+		JRD_restore_context();
+		return user_status[1];
+	}
+
+/* Pick up and validate request level */
+
+	if (lev = level)
+		if (!(vector = request->req_sub_requests) ||
+			lev >= vector->vec_count ||
+			!(request = (REQ) vector->vec_object[lev]))
+				ERR_post(gds_req_sync, 0);
+
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+
+/* Unwind request.  This just tweaks some bits */
+
+	EXE_unwind(tdbb, request);
+
+/* Restore old state and get out */
+
+	JRD_restore_context();
+
+	user_status[0] = gds_arg_gds;
+	user_status[2] = gds_arg_end;
+
+	return (user_status[1] = SUCCESS);
+}
+
+
+#ifdef MULTI_THREAD
+void JRD_blocked(ATT blocking, BTB * que)
+{
+/**************************************
+ *
+ *	J R D _ b l o c k e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	We're blocked by another thread.  Unless it would cause
+ *	a deadlock, wait for the other other thread (it will
+ *	wake us up.
+ *
+ **************************************/
+	ATT attachment;
+
+	TDBB tdbb = get_thread_data();
+	DBB  dbb  = tdbb->tdbb_database;
+
+/* Check for deadlock.  If there is one, complain */
+
+	for (attachment = blocking;
+		 attachment;
+		 attachment = attachment->att_blocking)
+	{
+		if (attachment == tdbb->tdbb_attachment) {
+			ERR_post(gds_deadlock, 0);
+		}
+	}
+
+	BTB block = dbb->dbb_free_btbs;
+	if (block) {
+		dbb->dbb_free_btbs = block->btb_next;
+	} else {
+		block = (BTB) ALLOCP(type_btb);
+	}
+
+	block->btb_thread_id = (SLONG) SCH_current_thread();
+	block->btb_next = *que;
+	*que = block;
+	attachment = tdbb->tdbb_attachment;
+	attachment->att_blocking = blocking;
+
+	SCH_hiber();
+
+	attachment->att_blocking = NULL;
+}
+#endif
+
+
+#ifdef SUPERSERVER
+USHORT JRD_getdir(TEXT * buf, USHORT len)
+{
+/**************************************
+ *
+ *	J R D _ g e t d i r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Current working directory is cached in the attachment
+ *	block.  get it out. This function could be called before 
+ *	an attachment is created. In such a case thread specific
+ *	data (t_data) will hold the user name which will be used 
+ *	to get the users home directory.
+ *
+ **************************************/
+	char *t_data = NULL;
+
+	assert(buf != NULL);
+	assert(len > 0);
+
+	THD_getspecific_data((void **) &t_data);
+
+	if (t_data) {
+#ifdef WIN_NT
+		GetCurrentDirectory(len, buf);
+#else
+		struct passwd *pwd;
+		strcpy(buf, t_data);
+		pwd = getpwnam(buf);
+		if (pwd)
+			strcpy(buf, pwd->pw_dir);
+		else					/* No home dir for this users here. Default to server dir */
+			getcwd(buf, len);
+#endif
+	}
+	else
+	{
+		TDBB tdbb = get_thread_data();
+		ATT attachment;
+
+   /** If the server has not done a SET_THREAD_DATA prior to this call
+       (which will be the case when connecting via IPC), tdbb will
+       be NULL so do not attempt to get the attachment handle from
+       tdbb. Just return 0 as described below.  NOTE:  The only time
+       this code is entered via IPC is if the database name = "".
+   **/
+
+   /** In case of backup/restore APIs, SET_THREAD_DATA has been done but
+       the thread's context is a 'gbak' specific, so don't try extract
+       attachment from there.
+   **/
+
+		if (tdbb && (tdbb->tdbb_thd_data.thdd_type == THDD_TYPE_TDBB))
+			attachment = tdbb->tdbb_attachment;
+		else
+			return 0;
+
+   /** 
+    An older version of client will not be sending isc_dpb_working directory
+    so in all probabilities attachment->att_working_directory will be null. 
+    return 0 so that ISC_expand_filename will create the file in ibserver's dir
+   **/
+		if (!attachment->att_working_directory ||
+			len - 1 < attachment->att_working_directory->str_length) return 0;
+		memcpy(buf, attachment->att_working_directory->str_data,
+			   attachment->att_working_directory->str_length);
+		buf[attachment->att_working_directory->str_length] = 0;
+	}
+
+	return strlen(buf);
+}
+#endif /* SUPERSERVER */
+
+
+void JRD_mutex_lock(MUTX mutex)
+{
+/**************************************
+ *
+ *	J R D _ m u t e x _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lock a mutex and note this fact
+ *	in the thread context block.
+ *
+ **************************************/
+	TDBB tdbb = get_thread_data();
+	INUSE_insert(&tdbb->tdbb_mutexes, (void *) mutex, TRUE);
+	THD_MUTEX_LOCK(mutex);
+}
+
+
+void JRD_mutex_unlock(MUTX mutex)
+{
+/**************************************
+ *
+ *	J R D _ m u t e x _ u n l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unlock a mutex and note this fact
+ *	in the thread context block.
+ *
+ **************************************/
+	TDBB tdbb = get_thread_data();
+	INUSE_remove(&tdbb->tdbb_mutexes, (void *) mutex, FALSE);
+	THD_MUTEX_UNLOCK(mutex);
+}
+
+
+#ifdef SUPERSERVER
+void JRD_print_all_counters(char *fname)
+{
+/*****************************************************
+ *
+ *	J R D _ p r i n t _ a l l _ c o u n t e r s
+ *
+ *****************************************************
+ *
+ * Functional description
+ *	print memory counters from DSQL, ENGINE & REMOTE
+ *      component
+ *
+ ******************************************************/
+	IB_FILE *fptr;
+
+	if (!trace_pools)
+		return;
+
+	if (!(fptr = ib_fopen(fname, "a+"))) {
+		char buff[256];
+		sprintf(buff, "Failed to open %s", fname);
+		gds__log(buff, 0);
+		return;
+	}
+	V4_JRD_MUTEX_LOCK(databases_mutex);
+
+	ib_fprintf(fptr, "\nPrinting Block type Report\n");
+	ib_fprintf(fptr, "==========================\n");
+	gds_print_delta_counters(fptr);
+	ALL_print_memory_pool_info(fptr, databases);
+	ALLD_print_memory_pool_info(fptr);
+
+	V4_JRD_MUTEX_UNLOCK(databases_mutex);
+
+	ib_fclose(fptr);
+}
+
+#ifdef DEBUG_PROCS
+void JRD_print_procedure_info(TDBB tdbb, char *mesg)
+{
+/*****************************************************
+ *
+ *	J R D _ p r i n t _ p r o c e d u r e _ i n f o
+ *
+ *****************************************************
+ *
+ * Functional description
+ *	print name , use_count of all procedures in  
+ *      cache
+ *
+ ******************************************************/
+	IB_FILE *fptr;
+	TEXT fname[MAXPATHLEN];
+	PRC procedure, *ptr, *end;
+	VEC procedures;
+
+	gds__prefix(fname, "proc_info.log");
+	if (!(fptr = ib_fopen(fname, "a+"))) {
+		char buff[256];
+		sprintf(buff, "Failed to open %s\n", fname);
+		gds__log(buff, 0);
+		return;
+	}
+
+	if (mesg)
+		ib_fputs(mesg, fptr);
+	ib_fprintf(fptr,
+			   "Prc Name      , prc id , flags  ,  Use Count , Alter Count\n");
+
+	V4_JRD_MUTEX_LOCK(databases_mutex);
+
+	if (procedures = tdbb->tdbb_database->dbb_procedures) {
+		for (ptr = (PRC *) procedures->vec_object, end =
+			 ptr + procedures->vec_count; ptr < end; ptr++)
+			if (procedure = *ptr)
+				ib_fprintf(fptr, "%s  ,  %d,  %X,  %d, %d\n",
+						   (procedure->
+							prc_name) ? (char *) procedure->prc_name->
+						   str_data : "NULL", procedure->prc_id,
+						   procedure->prc_flags, procedure->prc_use_count,
+						   procedure->prc_alter_count);
+	}
+	else
+		ib_fprintf(fptr, "No Cached Procedures\n");
+
+	V4_JRD_MUTEX_UNLOCK(databases_mutex);
+
+	ib_fclose(fptr);
+
+}
+#endif /* DEBUG_PROCS */
+#endif /* SUPERSERVER */
+
+
+#ifdef MULTI_THREAD
+BOOLEAN JRD_reschedule(TDBB tdbb, SLONG quantum, BOOLEAN punt)
+{
+/**************************************
+ *
+ *	J R D _ r e s c h e d u l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody has kindly offered to relinquish
+ *	control so that somebody else may run.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment;
+	STATUS *status;
+
+	if (tdbb->tdbb_inhibit)
+		return FALSE;
+
+/* Force garbage colletion activity to yield the
+   processor in case client threads haven't had
+   an opportunity to enter the scheduling queue. */
+
+	if (!(tdbb->tdbb_flags & TDBB_sweeper))
+		SCH_schedule();
+	else {
+		THREAD_EXIT;
+		THREAD_YIELD;
+		THREAD_ENTER;
+	}
+
+/* If database has been shutdown then get out */
+
+	dbb = tdbb->tdbb_database;
+	if (attachment = tdbb->tdbb_attachment) {
+		if (dbb->dbb_ast_flags & DBB_shutdown &&
+			attachment->att_flags & ATT_shutdown) {
+			if (punt) {
+				CCH_unwind(tdbb, FALSE);
+				ERR_post(isc_shutdown, 0);
+			}
+			else {
+				status = tdbb->tdbb_status_vector;
+				*status++ = isc_arg_gds;
+				*status++ = isc_shutdown;
+				*status++ = isc_arg_end;
+				return TRUE;
+			}
+		}
+#ifdef CANCEL_OPERATION
+
+		/* If a cancel has been raised, defer its acknowledgement
+		   when executing in the context of an internal request or
+		   the system transaction. */
+
+		if ((attachment->att_flags & ATT_cancel_raise) &&
+			!(attachment->att_flags & ATT_cancel_disable)) {
+			REQ request;
+			TRA transaction;
+
+			if ((!(request = tdbb->tdbb_request) ||
+				 !(request->req_flags & (req_internal | req_sys_trigger))) &&
+				(!(transaction = tdbb->tdbb_transaction) ||
+				 !(transaction->tra_flags & TRA_system))) {
+				attachment->att_flags &= ~ATT_cancel_raise;
+				if (punt) {
+					CCH_unwind(tdbb, FALSE);
+					ERR_post(isc_cancelled, 0);
+				}
+				else {
+					status = tdbb->tdbb_status_vector;
+					*status++ = isc_arg_gds;
+					*status++ = isc_cancelled;
+					*status++ = isc_arg_end;
+					return TRUE;
+				}
+			}
+		}
+#endif
+	}
+
+	tdbb->tdbb_quantum = (tdbb->tdbb_quantum <= 0) ?
+		((quantum) ? quantum : QUANTUM) : tdbb->tdbb_quantum;
+
+	return FALSE;
+}
+#endif
+
+
+void JRD_restore_context(void)
+{
+/**************************************
+ *
+ *	J R D _ r e s t o r e _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restore the previous thread specific data
+ *	and cleanup and objects that remain in use.
+ *
+ **************************************/
+	TDBB tdbb = get_thread_data();
+	BOOLEAN cleaned_up;
+
+	cleaned_up =
+		INUSE_cleanup(&tdbb->tdbb_mutexes, (FPTR_VOID) THD_mutex_unlock);
+	cleaned_up |=
+		INUSE_cleanup(&tdbb->tdbb_rw_locks, (FPTR_VOID) THD_wlck_unlock);
+/* Charlie will fill this in
+cleaned_up |= INUSE_cleanup (&tdbb->tdbb_pages, (FPTR_VOID) CCH_?);
+*/
+	THD_restore_specific();
+
+#ifdef DEV_BUILD
+	if (tdbb->tdbb_status_vector &&
+		!tdbb->tdbb_status_vector[1]
+		&& cleaned_up)
+	{
+		gds__log("mutexes or pages in use on successful return");
+	}
+#endif
+}
+
+
+void JRD_set_context(TDBB tdbb)
+{
+/**************************************
+ *
+ *	J R D _ s e t _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the thread specific data.  Initialize
+ *	the in-use blocks so that we can unwind
+ *	cleanly if an error occurs.
+ *
+ **************************************/
+
+	INUSE_clear(&tdbb->tdbb_mutexes);
+	INUSE_clear(&tdbb->tdbb_rw_locks);
+	INUSE_clear(&tdbb->tdbb_pages);
+	tdbb->tdbb_status_vector = NULL;
+	THD_put_specific((THDD) tdbb);
+	tdbb->tdbb_thd_data.thdd_type = THDD_TYPE_TDBB;
+}
+
+
+#ifdef MULTI_THREAD
+void JRD_unblock(BTB * que)
+{
+/**************************************
+ *
+ *	J R D _ u n b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unblock a linked list of blocked threads.  Rather
+ *	than worrying about which, let 'em all loose.
+ *
+ **************************************/
+	BTB block;
+
+	DBB dbb = get_dbb();
+
+	while (block = *que) {
+		*que = block->btb_next;
+		if (block->btb_thread_id) {
+			SCH_wake((struct thread *) block->btb_thread_id);
+		}
+		block->btb_next = dbb->dbb_free_btbs;
+		dbb->dbb_free_btbs = block;
+	}
+}
+#endif
+
+
+void jrd_vtof(const char* string, char* field, SSHORT length)
+{
+/**************************************
+ *
+ *	j r d _ v t o f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a null terminated string to a fixed length
+ *	field.
+ *	If the length of the string pointed to by 'field'
+ *	is less than 'length', this function pads the
+ *	destination string with space upto 'length' bytes.
+ *
+ *	The call is primarily generated  by the preprocessor.
+ *
+ *	This is the same code as gds__vtof but is used internally.
+ *
+ **************************************/
+
+	while (*string) {
+		*field++ = *string++;
+		if (--length <= 0) {
+			return;
+		}
+	}
+
+	if (length) {
+		do {
+			*field++ = ' ';
+		} while (--length);
+	}
+}
+
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+void jrd_vtof2(SCHAR * string, SCHAR * field, SSHORT length, USHORT interp)
+{
+/**************************************
+ *
+ *	j r d _ v t o f 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a null terminated string to a fixed length
+ *	field.  The call is primarily generated  by the
+ *	preprocessor.
+ *	Avoid truncation in between a double byte character.
+ *
+ *	This is the same code as gds__vtof but is used internally.
+ *
+ **************************************/
+	SSHORT bytes_copied;
+	SCHAR *saved_field;
+
+	bytes_copied = 0;
+	saved_field = field;
+
+	while (*string) {
+		*field++ = *string++;
+		bytes_copied++;
+		if (--length <= 0)
+			return;
+	}
+
+	if (interp == gds__interp_jpn_sjis &&
+		KANJI_check_sjis(saved_field, bytes_copied)) *(field - 1) = ' ';
+	else if (interp == gds__interp_jpn_euc &&
+			 KANJI_check_euc(saved_field, bytes_copied)) *(field - 1) = ' ';
+
+	if (length)
+		do
+			*field++ = ' ';
+		while (--length);
+}
+#endif
+
+
+static BLB check_blob(TDBB tdbb, STATUS * user_status, BLB * blob_handle)
+{
+/**************************************
+ *
+ *	c h e c k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check out a blob handle for goodness.  Return
+ *	the address of the blob if ok, NULL otherwise.
+ *
+ **************************************/
+	BLB blob;
+	TRA transaction;
+
+	SET_TDBB(tdbb);
+	blob = *blob_handle;
+
+	if (!blob ||
+		(blob->blb_header.blk_type != (UCHAR) type_blb) ||
+		check_database(tdbb, blob->blb_attachment, user_status) ||
+		!(transaction = blob->blb_transaction) ||
+		transaction->tra_header.blk_type != (UCHAR) type_tra) {
+		handle_error(user_status, gds_bad_segstr_handle, tdbb);
+		return NULL;
+	}
+
+	tdbb->tdbb_transaction = transaction;
+
+	return blob;
+}
+
+
+static STATUS check_database(TDBB tdbb, ATT attachment, STATUS * user_status)
+{
+/**************************************
+ *
+ *	c h e c k _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check an attachment for validity, setting
+ *	up environment.
+ *
+ **************************************/
+	DBB dbb;
+	STATUS *ptr;
+	TEXT *string;
+
+#ifndef SUPERSERVER
+	ATT attach;
+#endif /* SUPERSERVER */
+
+	SET_TDBB(tdbb);
+
+/* Make sure blocks look and feel kosher */
+
+	if (!attachment ||
+		(attachment->att_header.blk_type != (UCHAR) type_att) ||
+		!(dbb = attachment->att_database) ||
+		dbb->dbb_header.blk_type != (UCHAR) type_dbb)
+		return handle_error(user_status, gds_bad_db_handle, tdbb);
+
+/* Make sure this is a valid attachment */
+
+#ifndef SUPERSERVER
+	for (attach = dbb->dbb_attachments; attach; attach = attach->att_next)
+		if (attach == attachment)
+			break;
+
+	if (!attach)
+		return handle_error(user_status, gds_bad_db_handle, tdbb);
+#endif
+
+	tdbb->tdbb_database = dbb;
+	tdbb->tdbb_attachment = attachment;
+	tdbb->tdbb_quantum = QUANTUM;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+	tdbb->tdbb_default = NULL;
+	tdbb->tdbb_inhibit = 0;
+	tdbb->tdbb_flags = NULL;
+
+/* Count active threads in database */
+
+	++dbb->dbb_use_count;
+
+	if (dbb->dbb_flags & DBB_bugcheck) {
+		tdbb->tdbb_status_vector = ptr = user_status;
+		*ptr++ = gds_arg_gds;
+		*ptr++ = gds_bug_check;
+		*ptr++ = gds_arg_string;
+		string = "can't continue after bugcheck";
+		*ptr++ = (STATUS) string;
+		*ptr = gds_arg_end;
+		return error(user_status);
+	}
+
+	if (attachment->att_flags & ATT_shutdown ||
+		(dbb->dbb_ast_flags & DBB_shutdown &&
+		 !(attachment->att_user->usr_flags & (USR_locksmith | USR_owner)))) {
+		tdbb->tdbb_status_vector = ptr = user_status;
+		*ptr++ = gds_arg_gds;
+		*ptr++ = gds_shutdown;
+		*ptr++ = gds_arg_cstring;
+		*ptr++ = dbb->dbb_filename->str_length;
+		string = reinterpret_cast < char *>(dbb->dbb_filename->str_data);
+		*ptr++ = (STATUS) string;
+		*ptr = gds_arg_end;
+		return error(user_status);
+	}
+
+#ifdef CANCEL_OPERATION
+	if ((attachment->att_flags & ATT_cancel_raise) &&
+		!(attachment->att_flags & ATT_cancel_disable)) {
+		attachment->att_flags &= ~ATT_cancel_raise;
+		tdbb->tdbb_status_vector = ptr = user_status;
+		*ptr++ = isc_arg_gds;
+		*ptr++ = isc_cancelled;
+		*ptr++ = isc_arg_end;
+		return error(user_status);
+	}
+#endif
+
+	return SUCCESS;
+}
+
+
+static void cleanup(void *arg)
+{
+/**************************************
+ *
+ *	c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Exit handler for image exit.
+ *
+ **************************************/
+
+	V4_MUTEX_DESTROY(databases_mutex);
+	JRD_SS_DESTROY_MUTEX;
+	initialized = FALSE;
+	databases = NULL;
+}
+
+
+static STATUS commit(
+					 STATUS * user_status,
+					 TRA * tra_handle, USHORT retaining_flag)
+{
+/**************************************
+ *
+ *	c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit a transaction.
+ *
+ **************************************/
+	TRA transaction, next;
+	STATUS *ptr;
+	DBB dbb;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	CHECK_HANDLE((*tra_handle), type_tra, gds_bad_trans_handle);
+	next = transaction = *tra_handle;
+
+	if (check_database(tdbb, transaction->tra_attachment, user_status))
+		return user_status[1];
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	LOG_call((retaining_flag) ? log_commit_retaining : log_commit,
+			 *tra_handle);
+#endif
+
+	ptr = user_status;
+
+	if (transaction->tra_sibling &&
+		!(transaction->tra_flags & TRA_prepared) &&
+		prepare(tdbb, transaction, ptr, 0, NULL))
+		return error(user_status);
+
+	if (SETJMP(env)) {
+		dbb = tdbb->tdbb_database;
+		--dbb->dbb_use_count;
+		return error(user_status);
+	}
+
+	while (transaction = next) {
+		next = transaction->tra_sibling;
+		check_database(tdbb, transaction->tra_attachment, user_status);
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		tdbb->tdbb_status_vector = ptr;
+		TRA_commit(tdbb, transaction, retaining_flag);
+		dbb = tdbb->tdbb_database;
+		--dbb->dbb_use_count;
+	}
+
+	return return_success(tdbb);
+}
+
+
+static STR copy_string(TEXT * ptr, USHORT length)
+{
+/**************************************
+ *
+ *	c o p y _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a string to a string block.
+ *
+ **************************************/
+	DBB dbb = get_dbb();
+	STR string = (STR) ALLOCPV(type_str, length);
+
+	string->str_length = length;
+	MOVE_FAST(ptr, string->str_data, length);
+
+	return string;
+}
+
+
+static BOOLEAN drop_files(FIL file)
+{
+/**************************************
+ *
+ *	d r o p _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	drop a linked list of files
+ *
+ **************************************/
+	DBB dbb;
+	STATUS status[ISC_STATUS_LENGTH];
+
+	status[1] = SUCCESS;
+
+	for (; file; file = file->fil_next)
+	{
+		if (unlink(file->fil_string))
+		{
+			IBERR_build_status(status, isc_io_error,
+							   gds_arg_string, "unlink",
+							   gds_arg_string, ERR_cstring(file->fil_string),
+							   isc_arg_gds, isc_io_delete_err,
+							   SYS_ERR, errno,
+							   0);
+			dbb = get_dbb();
+			gds__log_status(dbb->dbb_file->fil_string, status);
+		}
+	}
+
+	return status[1] ? TRUE : FALSE;
+}
+
+
+static TRA find_transaction(TDBB tdbb, TRA transaction, STATUS error_code)
+{
+/**************************************
+ *
+ *	f i n d _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the element of a possible multiple database transaction
+ *	that corresponds to the current database.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	if (!transaction || transaction->tra_header.blk_type != (UCHAR) type_tra)
+		ERR_post(gds_bad_trans_handle, 0);
+
+	for (; transaction; transaction = transaction->tra_sibling)
+		if (transaction->tra_attachment == tdbb->tdbb_attachment) {
+			tdbb->tdbb_transaction = transaction;
+			return transaction;
+		}
+
+	ERR_post(error_code, 0);
+	return ((TRA) NULL);		/* Added to remove compiler warnings */
+}
+
+
+static STATUS error(STATUS * user_status)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An error returned has been trapped.  Return a status code.
+ *
+ **************************************/
+	TDBB tdbb = get_thread_data();
+	DBB dbb;
+
+/* Decrement count of active threads in database */
+
+	if (dbb = tdbb->tdbb_database) {
+		--dbb->dbb_use_count;
+	}
+
+	JRD_restore_context();
+
+/* This is debugging code which is meant to verify that
+   the database use count is cleared on exit from the
+   engine. Database shutdown cannot succeed if the database
+   use count is erroneously left set. */
+
+#if (defined DEV_BUILD && !defined MULTI_THREAD)
+	if (dbb && dbb->dbb_use_count && !(dbb->dbb_flags & DBB_security_db)) {
+		STATUS *p;
+
+		dbb->dbb_use_count = 0;
+		p = user_status;
+		*p++ = gds_arg_gds;
+		*p++ = gds__random;
+		*p++ = gds_arg_string;
+		*p++ = (STATUS) "database use count set on error return";
+		*p = gds_arg_end;
+	}
+#endif
+
+	return user_status[1];
+}
+
+
+static void find_intl_charset(TDBB tdbb, ATT attachment, DPB * options)
+{
+/**************************************
+ *
+ *	f i n d _ i n t l _ c h a r s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attachment has declared it's prefered character set
+ *	as part of LC_CTYPE, passed over with the attachment
+ *	block.  Now let's resolve that to an internal subtype id.
+ *
+ **************************************/
+	SSHORT len;
+
+	SET_TDBB(tdbb);
+
+	if (!options->dpb_lc_ctype || (len = strlen(options->dpb_lc_ctype)) == 0) {
+		/* No declaration of character set, act like 3.x Interbase */
+		attachment->att_charset = CS_NONE;
+		return;
+	}
+
+	SSHORT id;
+	STATUS local_status[ISC_STATUS_LENGTH];
+
+	if (MET_get_char_subtype(tdbb,
+							&id,
+							reinterpret_cast<UCHAR*>(options->dpb_lc_ctype),
+							len) &&
+		INTL_defined_type(tdbb, local_status, id) &&
+		(id != CS_BINARY))
+	{
+		attachment->att_charset = id;
+	}
+	else
+	{
+		/* Report an error - we can't do what user has requested */
+		ERR_post(gds_bad_dpb_content,
+				gds_arg_gds, gds_charset_not_found,
+				gds_arg_string, ERR_cstring(options->dpb_lc_ctype),
+				0);
+	}
+}
+
+
+static void get_options(UCHAR*	dpb,
+						USHORT	dpb_length,
+						TEXT**	scratch,
+						DPB*	options)
+{
+/**************************************
+ *
+ *	g e t _ o p t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse database parameter block picking up options and things.
+ *
+ **************************************/
+	UCHAR *p, *end_dpb, *single;
+	USHORT l;
+	SSHORT num_old_files = 0;
+
+	DBB dbb = get_dbb();
+
+	MOVE_CLEAR(options, (SLONG) sizeof(struct dpb));
+
+	options->dpb_buffers = JRD_cache_default;
+	options->dpb_sweep_interval = -1;
+	options->dpb_wal_grp_cmt_wait = -1;
+	options->dpb_overwrite = TRUE;
+	options->dpb_sql_dialect = 99;
+	invalid_client_SQL_dialect = FALSE;
+	p = dpb;
+	end_dpb = p + dpb_length;
+
+	if ((dpb == NULL) && (dpb_length > 0))
+		ERR_post(gds_bad_dpb_form, 0);
+
+	if (p < end_dpb && *p++ != gds_dpb_version1)
+		ERR_post(gds_bad_dpb_form, gds_arg_gds, gds_wrodpbver, 0);
+
+	while (p < end_dpb)
+	{
+		switch (*p++)
+		{
+		case isc_dpb_working_directory:
+			{
+				// CLASSIC have no thread data. Init to zero.
+				char* t_data = 0;
+				options->dpb_working_directory =
+					get_string_parameter(&p, scratch);
+
+				THD_getspecific_data((void **) &t_data);
+
+				/* 
+				   Null value for working_directory implies remote database. So get
+				   the users HOME directory
+				 */
+#ifndef WIN_NT
+				if (!options->dpb_working_directory[0]) {
+					struct passwd *passwd = (struct passwd *) NULL;
+
+					if (t_data)
+						passwd = getpwnam(t_data);
+					if (passwd) {
+						strcpy(*scratch, passwd->pw_dir);
+						l = strlen(passwd->pw_dir) + 1;
+					}
+					else {		/*No home dir for this users here. Default to server dir */
+
+						getcwd(*scratch, MAXPATHLEN);
+						l = strlen(*scratch) + 1;
+					}
+					options->dpb_working_directory = *scratch;
+					*scratch += l;
+				}
+#endif
+				if (t_data)
+				{
+					free(t_data);
+					t_data = NULL;
+				}
+				/* Null out the thread local data so that further references will fail */
+				THD_putspecific_data(0);
+			}
+			break;
+
+		case isc_dpb_set_page_buffers:
+			options->dpb_page_buffers = get_parameter(&p);
+			if (options->dpb_page_buffers &&
+				(options->dpb_page_buffers < MIN_PAGE_BUFFERS ||
+				 options->dpb_page_buffers > MAX_PAGE_BUFFERS))
+			{
+				ERR_post(gds_bad_dpb_content, 0);
+			}
+			options->dpb_set_page_buffers = TRUE;
+			break;
+
+		case gds_dpb_num_buffers:
+			options->dpb_buffers = get_parameter(&p);
+			if (options->dpb_buffers < 10)
+				ERR_post(gds_bad_dpb_content, 0);
+			break;
+
+		case gds_dpb_page_size:
+			options->dpb_page_size = (USHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_debug:
+			options->dpb_debug = (USHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_sweep:
+			options->dpb_sweep = (USHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_sweep_interval:
+			options->dpb_sweep_interval = get_parameter(&p);
+			break;
+
+		case gds_dpb_verify:
+			options->dpb_verify = (USHORT) get_parameter(&p);
+			if (options->dpb_verify & gds_dpb_ignore)
+				dbb->dbb_flags |= DBB_damaged;
+			break;
+
+		case gds_dpb_trace:
+			options->dpb_trace = (USHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_damaged:
+			if (get_parameter(&p) & 1)
+				dbb->dbb_flags |= DBB_damaged;
+			break;
+
+		case gds_dpb_enable_journal:
+			options->dpb_journal = get_string_parameter(&p, scratch);
+			break;
+
+		case gds_dpb_wal_backup_dir:
+			options->dpb_wal_backup_dir = get_string_parameter(&p, scratch);
+			break;
+
+		case gds_dpb_drop_walfile:
+			options->dpb_wal_action = (USHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_old_dump_id:
+			options->dpb_old_dump_id = (USHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_online_dump:
+			options->dpb_online_dump = (USHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_old_file_size:
+			options->dpb_old_file_size = get_parameter(&p);
+			break;
+
+		case gds_dpb_old_num_files:
+			options->dpb_old_num_files = (USHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_old_start_page:
+			options->dpb_old_start_page = get_parameter(&p);
+			break;
+
+		case gds_dpb_old_start_seqno:
+			options->dpb_old_start_seqno = get_parameter(&p);
+			break;
+
+		case gds_dpb_old_start_file:
+			options->dpb_old_start_file = (USHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_old_file:
+			if (num_old_files >= MAX_OLD_FILES)
+				ERR_post(gds_num_old_files, 0);
+
+			options->dpb_old_file[num_old_files] =
+				get_string_parameter(&p, scratch);
+			num_old_files++;
+			break;
+
+		case gds_dpb_wal_chkptlen:
+			options->dpb_wal_chkpt_len = get_parameter(&p);
+			break;
+
+		case gds_dpb_wal_numbufs:
+			options->dpb_wal_num_bufs = (SSHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_wal_bufsize:
+			options->dpb_wal_bufsize = (USHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_wal_grp_cmt_wait:
+			options->dpb_wal_grp_cmt_wait = get_parameter(&p);
+			break;
+
+		case gds_dpb_dbkey_scope:
+			options->dpb_dbkey_scope = (USHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_sys_user_name:
+			options->dpb_sys_user_name = get_string_parameter(&p, scratch);
+			break;
+
+		case isc_dpb_sql_role_name:
+			options->dpb_role_name = get_string_parameter(&p, scratch);
+			break;
+
+		case gds_dpb_user_name:
+			options->dpb_user_name = get_string_parameter(&p, scratch);
+			break;
+
+		case gds_dpb_password:
+			options->dpb_password = get_string_parameter(&p, scratch);
+			break;
+
+		case gds_dpb_password_enc:
+			options->dpb_password_enc = get_string_parameter(&p, scratch);
+			break;
+
+		case gds_dpb_encrypt_key:
+#ifdef ISC_DATABASE_ENCRYPTION
+			options->dpb_key = get_string_parameter(&p, scratch);
+#else
+			/* Just in case there WAS a customer using this unsupported
+			 * feature - post an error when they try to access it in 4.0
+			 */
+			ERR_post(gds_uns_ext, gds_arg_gds, gds_random,
+					 gds_arg_string, "Encryption not supported", 0);
+#endif
+			break;
+
+		case gds_dpb_no_garbage_collect:
+			options->dpb_no_garbage = TRUE;
+			l = *p++;
+			p += l;
+			break;
+
+		case gds_dpb_disable_journal:
+			options->dpb_disable = TRUE;
+			l = *p++;
+			p += l;
+			break;
+
+		case gds_dpb_activate_shadow:
+			options->dpb_activate_shadow = TRUE;
+			l = *p++;
+			p += l;
+			break;
+
+		case gds_dpb_delete_shadow:
+			options->dpb_delete_shadow = TRUE;
+			l = *p++;
+			p += l;
+			break;
+
+		case gds_dpb_force_write:
+			options->dpb_set_force_write = TRUE;
+			options->dpb_force_write = (SSHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_begin_log:
+			options->dpb_log = get_string_parameter(&p, scratch);
+			break;
+
+		case gds_dpb_quit_log:
+			options->dpb_quit_log = TRUE;
+			l = *p++;
+			p += l;
+			break;
+
+		case gds_dpb_no_reserve:
+			options->dpb_set_no_reserve = TRUE;
+			options->dpb_no_reserve = (UCHAR) get_parameter(&p);
+			break;
+
+		case gds_dpb_interp:
+			options->dpb_interp = (SSHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_lc_messages:
+			options->dpb_lc_messages = get_string_parameter(&p, scratch);
+			break;
+
+		case gds_dpb_lc_ctype:
+			options->dpb_lc_ctype = get_string_parameter(&p, scratch);
+			break;
+
+		case gds_dpb_shutdown:
+			options->dpb_shutdown = (USHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_shutdown_delay:
+			options->dpb_shutdown_delay = (SSHORT) get_parameter(&p);
+			break;
+
+		case gds_dpb_online:
+			options->dpb_online = TRUE;
+			l = *p++;
+			p += l;
+			break;
+
+		case isc_dpb_reserved:
+			single =
+				reinterpret_cast<UCHAR*>(get_string_parameter(&p, scratch));
+			if (!strcmp(reinterpret_cast < char *>(single), "YES"))
+				  options->dpb_single_user = TRUE;
+			break;
+
+		case isc_dpb_overwrite:
+			options->dpb_overwrite = (BOOLEAN) get_parameter(&p);
+			break;
+
+		case isc_dpb_sec_attach:
+			options->dpb_sec_attach = (BOOLEAN) get_parameter(&p);
+			options->dpb_buffers = 50;
+			dbb->dbb_flags |= DBB_security_db;
+			break;
+
+		case isc_dpb_gbak_attach:
+			options->dpb_gbak_attach = get_string_parameter(&p, scratch);
+			break;
+
+		case isc_dpb_gstat_attach:
+			options->dpb_gstat_attach = TRUE;
+			l = *p++;
+			p += l;
+			break;
+
+		case isc_dpb_gfix_attach:
+			options->dpb_gfix_attach = TRUE;
+			l = *p++;
+			p += l;
+			break;
+
+		case isc_dpb_disable_wal:
+			options->dpb_disable_wal = TRUE;
+			l = *p++;
+			p += l;
+			break;
+
+		case gds_dpb_connect_timeout:
+			options->dpb_connect_timeout = get_parameter(&p);
+			break;
+
+		case gds_dpb_dummy_packet_interval:
+			options->dpb_dummy_packet_interval = get_parameter(&p);
+			break;
+
+		case isc_dpb_sql_dialect:
+			options->dpb_sql_dialect = (USHORT) get_parameter(&p);
+			if (options->dpb_sql_dialect < 0 ||
+				options->dpb_sql_dialect > SQL_DIALECT_V6)
+					invalid_client_SQL_dialect = TRUE;
+			break;
+
+		case isc_dpb_set_db_sql_dialect:
+			options->dpb_set_db_sql_dialect = (USHORT) get_parameter(&p);
+			break;
+
+#ifdef READONLY_DATABASE
+		case isc_dpb_set_db_readonly:
+			options->dpb_set_db_readonly = TRUE;
+			options->dpb_db_readonly = (SSHORT) get_parameter(&p);
+			break;
+#endif
+
+		default:
+			l = *p++;
+			p += l;
+		}
+	}
+
+	if (p != end_dpb)
+		ERR_post(gds_bad_dpb_form, 0);
+
+}
+
+
+static SLONG get_parameter(UCHAR** ptr)
+{
+/**************************************
+ *
+ *	g e t _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a VAX format parameter from a parameter block, including the
+ *	length byte.
+ *
+ **************************************/
+	SLONG parameter;
+	SSHORT l;
+
+	l = *(*ptr)++;
+	parameter = gds__vax_integer(*ptr, l);
+	*ptr += l;
+
+	return parameter;
+}
+
+
+static TEXT* get_string_parameter(UCHAR** dpb_ptr, TEXT** opt_ptr)
+{
+/**************************************
+ *
+ *	g e t _ s t r i n g _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a string valued parameter, copy it to a running temp,
+ *	and return pointer to copied string.
+ *
+ **************************************/
+	TEXT *opt;
+	UCHAR *dpb;
+	USHORT l;
+
+	opt = *opt_ptr;
+	dpb = *dpb_ptr;
+
+	if (l = *(dpb++))
+		do
+			*opt++ = *dpb++;
+		while (--l);
+
+	*opt++ = 0;
+	*dpb_ptr = dpb;
+	dpb = (UCHAR *) * opt_ptr;
+	*opt_ptr = opt;
+
+	return (TEXT *) dpb;
+}
+
+
+static STATUS handle_error(STATUS * user_status, STATUS code, TDBB tdbb)
+{
+/**************************************
+ *
+ *	h a n d l e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An invalid handle has been passed in.  If there is a user status
+ *	vector, make it reflect the error.  If not, emulate the routine
+ *	"error" and abort.
+ *
+ **************************************/
+	STATUS *vector;
+
+	if (tdbb)
+		JRD_restore_context();
+
+	vector = user_status;
+	*vector++ = gds_arg_gds;
+	*vector++ = code;
+	*vector = gds_arg_end;
+
+	return code;
+}
+
+
+#if defined (WIN_NT) && !defined(SERVER_SHUTDOWN)
+static BOOLEAN handler_NT(SSHORT controlAction)
+{
+/**************************************
+ *
+ *      h a n d l e r _ N T
+ *
+ **************************************
+ *
+ * Functional description
+ *	For some actions, get NT to issue a popup asking
+ *	the user to delay.
+ *
+ **************************************/
+
+	switch (controlAction) {
+	case CTRL_CLOSE_EVENT:
+	case CTRL_LOGOFF_EVENT:
+	case CTRL_SHUTDOWN_EVENT:
+		return TRUE;			/* NT will issue popup */
+
+	case CTRL_C_EVENT:
+	case CTRL_BREAK_EVENT:
+		return FALSE;			/* let it go */
+	}
+/* So, what are we to return here?! */
+	return FALSE;				/* let it go */
+}
+#endif
+
+
+static DBB init(TDBB	tdbb,
+				STATUS*	user_status,
+				TEXT*	expanded_filename,
+				USHORT	attach_flag)
+{
+/**************************************
+ *
+ *	i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for database access.  First call from both CREATE and
+ *	OPEN.
+ *
+ **************************************/
+	DBB dbb;
+	STR string;
+	VEC vector;
+	struct dbb temp;
+	MUTX_T temp_mutx[DBB_MUTX_max];
+	WLCK_T temp_wlck[DBB_WLCK_max];
+	JMP_BUF env;
+
+	SET_TDBB(tdbb);
+
+/* If this is the first time through, initialize local mutexes and set
+   up a cleanup handler.  Regardless, then lock the database mutex. */
+
+	if (!initialized) {
+		THD_INIT;
+		THREAD_EXIT;
+		THD_GLOBAL_MUTEX_LOCK;
+		THREAD_ENTER;
+		if (!initialized) {
+			V4_MUTEX_INIT(databases_mutex);
+			JRD_SS_INIT_MUTEX;
+			gds__register_cleanup(cleanup, 0);
+			initialized = TRUE;
+			ISC_get_config(LOCK_HEADER, JRD_hdrtbl);
+			if (JRD_cache_default < MIN_PAGE_BUFFERS)
+				JRD_cache_default = MIN_PAGE_BUFFERS;
+			if (JRD_cache_default > MAX_PAGE_BUFFERS)
+				JRD_cache_default = MAX_PAGE_BUFFERS;
+#if defined (WIN_NT) && !defined(SERVER_SHUTDOWN)
+			setup_NT_handlers();
+#endif
+		}
+		THD_GLOBAL_MUTEX_UNLOCK;
+	}
+
+	JRD_SS_MUTEX_LOCK;
+	V4_JRD_MUTEX_LOCK(databases_mutex);
+
+/* Check to see if the database is already actively attached */
+
+	for (dbb = databases; dbb; dbb = dbb->dbb_next)
+	{
+		if (!(dbb->dbb_flags & (DBB_bugcheck | DBB_not_in_use)) &&
+#ifndef SUPERSERVER
+			!(dbb->dbb_ast_flags & DBB_shutdown &&
+			  dbb->dbb_ast_flags & DBB_shutdown_locks) &&
+#endif
+			(string = dbb->dbb_filename) &&
+			!strcmp(reinterpret_cast<char*>(string->str_data),
+					expanded_filename))
+		{
+			return (attach_flag) ? dbb : NULL;
+		}
+	}
+
+/* Clean up temporary DBB and initialize a SETJMP for error reporting */
+
+	MOVE_CLEAR(&temp, (SLONG) sizeof(struct dbb));
+	THD_MUTEX_INIT_N(temp_mutx, DBB_MUTX_max);
+	V4_RW_LOCK_INIT_N(temp_wlck, DBB_WLCK_max);
+
+/* set up the temporary database block with fields that are 
+   required for doing the ALL_init() */
+
+	temp.dbb_header.blk_type = type_dbb;
+	temp.dbb_mutexes = temp_mutx;
+	temp.dbb_rw_locks = temp_wlck;
+
+	tdbb->tdbb_database = dbb = &temp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	tdbb->tdbb_status_vector = user_status;
+	if (SETJMP(env))
+		return 0;
+	ALL_init();
+
+	tdbb->tdbb_database = dbb = (DBB) ALLOCP(type_dbb);
+
+	THD_MUTEX_DESTROY_N(temp_mutx, DBB_MUTX_max);
+	V4_RW_LOCK_DESTROY_N(temp_wlck, DBB_WLCK_max);
+
+	MOVE_FAST((UCHAR *) & temp + sizeof(struct blk),
+			  (UCHAR *) dbb + sizeof(struct blk),
+			  sizeof(struct dbb) - sizeof(struct blk));
+
+	dbb->dbb_next = databases;
+	databases = dbb;
+
+	string =
+		(STR) ALLOCPV(type_str, THREAD_STRUCT_SIZE(MUTX_T, DBB_MUTX_max));
+	dbb->dbb_mutexes = (MUTX) THREAD_STRUCT_ALIGN(string->str_data);
+	THD_MUTEX_INIT_N(dbb->dbb_mutexes, DBB_MUTX_max);
+	string =
+		(STR) ALLOCPV(type_str, THREAD_STRUCT_SIZE(WLCK_T, DBB_WLCK_max));
+	dbb->dbb_rw_locks = (WLCK) THREAD_STRUCT_ALIGN(string->str_data);
+	V4_RW_LOCK_INIT_N(dbb->dbb_rw_locks, DBB_WLCK_max);
+	dbb->dbb_internal = vector = (VEC) ALLOCPV(type_vec, irq_MAX);
+	vector->vec_count = (SSHORT) irq_MAX;
+	dbb->dbb_dyn_req = vector = (VEC) ALLOCPV(type_vec, drq_MAX);
+	vector->vec_count = (SSHORT) drq_MAX;
+	dbb->dbb_flags |= DBB_exclusive;
+	dbb->dbb_sweep_interval = SWEEP_INTERVAL;
+
+/* Initialize a number of subsystems */
+
+	TRA_init(tdbb);
+
+#ifdef ISC_DATABASE_ENCRYPTION
+/* Lookup some external "hooks" */
+
+	if (dbb->dbb_encrypt = ISC_lookup_entrypoint(ENCRYPT_IMAGE, ENCRYPT, NULL))
+	{
+		dbb->dbb_decrypt = ISC_lookup_entrypoint(ENCRYPT_IMAGE, DECRYPT, NULL);
+	}
+#endif
+
+	INTL_init(tdbb);
+
+	return dbb;
+}
+
+
+static void make_jrn_data(UCHAR*	data,
+						  USHORT*	ret_len,
+						  TEXT*		db_name,
+						  USHORT	db_len,
+						  TEXT*		backup_dir,
+						  USHORT	b_length)
+{
+/**************************************
+ *
+ *	m a k e _ j r n _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Encode the database and backup information into a string.
+ *	Returns the length of the string.
+ *
+ **************************************/
+	int		len = b_length;
+	UCHAR*	t   = data;
+
+	if (len) {
+		*t++ = gds_dpb_wal_backup_dir;
+		*t++ = (UCHAR) b_length;
+		const UCHAR* q = reinterpret_cast<UCHAR*>(backup_dir);
+		do {
+			*t++ = *q++;
+		} while (--len);
+	}
+
+	if (len = db_len) {
+		*t++ = JRNW_DB_NAME;
+		*t++ = (UCHAR) db_len;
+		const UCHAR* q = reinterpret_cast<UCHAR*>(db_name);
+		do {
+			*t++ = *q++;
+		} while (--len);
+	}
+	*t++ = JRNW_END;
+
+	*ret_len = t - data;
+}
+
+
+static STATUS prepare(TDBB		tdbb,
+					  TRA		transaction,
+					  STATUS*	status_vector,
+					  USHORT	length,
+					  UCHAR*	msg)
+{
+/**************************************
+ *
+ *	p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attempt to prepare a transaction.  If it fails at any point, return
+ *	an error.
+ *
+ **************************************/
+	DBB dbb;
+	JMP_BUF env;
+
+	SET_TDBB(tdbb);
+
+	if (SETJMP(env)) {
+		dbb = tdbb->tdbb_database;
+		--dbb->dbb_use_count;
+		return status_vector[1];
+	}
+
+	for (; transaction; transaction = transaction->tra_sibling) {
+		check_database(tdbb, transaction->tra_attachment, status_vector);
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		tdbb->tdbb_status_vector = status_vector;
+		TRA_prepare(tdbb, transaction, length, msg);
+		dbb = tdbb->tdbb_database;
+		--dbb->dbb_use_count;
+	}
+
+	return SUCCESS;
+}
+
+
+static void release_attachment(ATT attachment)
+{
+/**************************************
+ *
+ *	r e l e a s e _ a t t a c h m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disconnect attachment block from database block.
+ *	NOTE:  This routine assumes that upon entry,
+ *	mutex DBB_MUTX_init_fini will be locked.
+ *	Before exiting, there is a handoff from this
+ *	mutex to the databases_mutex mutex.  Upon exit,
+ *	that mutex remains locked.  It is the
+ *	responsibility of the caller to unlock it.
+ *
+ **************************************/
+	ATT *ptr;
+	VCL *vector;
+	VEC lock_vector;
+	LCK *lock, record_lock;
+	USHORT i;
+
+	TDBB tdbb = get_thread_data();
+	DBB  dbb  = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	if (!attachment) {
+		V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+		V4_JRD_MUTEX_LOCK(databases_mutex);
+		return;
+	}
+
+	if (attachment->att_event_session)
+		EVENT_delete_session(attachment->att_event_session);
+
+	if (attachment->att_id_lock)
+		LCK_release(tdbb, attachment->att_id_lock);
+
+	for (vector = attachment->att_counts;
+		 vector < attachment->att_counts + DBB_max_count; ++vector)
+		if (*vector)
+			ALL_RELEASE(*vector);
+
+	if (attachment->att_working_directory)
+		ALL_RELEASE(attachment->att_working_directory);
+
+	if (attachment->att_lc_messages)
+		ALL_RELEASE(attachment->att_lc_messages);
+
+/* Release any validation error vector allocated */
+
+	if (attachment->att_val_errors) {
+		ALL_RELEASE(attachment->att_val_errors);
+		attachment->att_val_errors = (VCL) 0;
+	}
+
+/* Release the persistent locks taken out during the attachment */
+
+	if (lock_vector = attachment->att_relation_locks)
+	{
+		for (i = 0, lock = (LCK *) lock_vector->vec_object;
+			 i < lock_vector->vec_count; i++, lock++)
+		{
+			if (*lock)
+			{
+				LCK_release(tdbb, *lock);
+				ALL_RELEASE(*lock);
+			}
+		}
+		ALL_RELEASE(lock_vector);
+	}
+
+	for (record_lock = attachment->att_record_locks; record_lock;
+		 record_lock = record_lock->lck_att_next)
+	{
+		LCK_release(tdbb, record_lock);
+	}
+
+/* bug #7781, need to null out the attachment pointer of all locks which 
+   were hung off this attachment block, to ensure that the attachment 
+   block doesn't get dereferenced after it is released */
+
+	for (record_lock = attachment->att_long_locks; record_lock;
+		 record_lock = record_lock->lck_next)
+	{
+		record_lock->lck_attachment = NULL;
+	}
+
+	if (attachment->att_flags & ATT_lck_init_done)
+		LCK_fini(tdbb, LCK_OWNER_attachment);	/* For the attachment */
+
+	if (attachment->att_compatibility_table)
+		ALL_RELEASE(attachment->att_compatibility_table);
+
+	V4_JRD_MUTEX_UNLOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+	V4_JRD_MUTEX_LOCK(databases_mutex);
+
+	if (dbb->dbb_header.blk_type != (UCHAR) type_dbb)
+		return;
+
+/* remove the attachment block from the dbb linked list */
+
+	for (ptr = &dbb->dbb_attachments; *ptr; ptr = &(*ptr)->att_next) {
+		if (*ptr == attachment) {
+			*ptr = attachment->att_next;
+			break;
+		}
+	}
+}
+
+
+static STATUS return_success(TDBB tdbb)
+{
+/**************************************
+ *
+ *	r e t u r n _ s u c c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up status vector to reflect successful execution.
+ *
+ **************************************/
+	DBB dbb;
+	STATUS *p, *user_status;
+
+	SET_TDBB(tdbb);
+
+/* Decrement count of active threads in database */
+
+	if (dbb = tdbb->tdbb_database)
+		--dbb->dbb_use_count;
+
+	p = user_status = tdbb->tdbb_status_vector;
+
+/* If the status vector has not been initialized, then 
+   initilalize the status vector to indicate success.  
+   Else pass the status vector along at it stands.  */
+	if (p[0] != gds_arg_gds ||
+		p[1] != SUCCESS ||
+		(p[2] != gds_arg_end && p[2] != gds_arg_gds &&
+		 p[2] != isc_arg_warning))
+	{
+		*p++ = gds_arg_gds;
+		*p++ = SUCCESS;
+		*p = gds_arg_end;
+	}
+
+	JRD_restore_context();
+
+/* This is debugging code which is meant to verify that
+   the database use count is cleared on exit from the
+   engine. Database shutdown cannot succeed if the database
+   use count is erroneously left set. */
+
+#if (defined DEV_BUILD && !defined MULTI_THREAD)
+	if (dbb && dbb->dbb_use_count && !(dbb->dbb_flags & DBB_security_db)) {
+		dbb->dbb_use_count = 0;
+		p = user_status;
+		*p++ = gds_arg_gds;
+		*p++ = gds__random;
+		*p++ = gds_arg_string;
+		*p++ = (STATUS) "database use count set on success return";
+		*p = gds_arg_end;
+	}
+#endif
+
+	return user_status[1];
+}
+
+
+static BOOLEAN rollback(TDBB	tdbb,
+						TRA		next,
+						STATUS*	status_vector,
+						USHORT	retaining_flag)
+{
+/**************************************
+ *
+ *	r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction.
+ *
+ **************************************/
+	DBB dbb;
+	TRA transaction;
+	STATUS local_status[ISC_STATUS_LENGTH];
+	JMP_BUF env;
+
+	SET_TDBB(tdbb);
+
+	while (transaction = next) {
+		next = transaction->tra_sibling;
+		check_database(tdbb, transaction->tra_attachment, status_vector);
+		if (SETJMP(env)) {
+			status_vector = local_status;
+			dbb = tdbb->tdbb_database;
+			--dbb->dbb_use_count;
+			continue;
+		}
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		tdbb->tdbb_status_vector = status_vector;
+		TRA_rollback(tdbb, transaction, retaining_flag);
+		dbb = tdbb->tdbb_database;
+		--dbb->dbb_use_count;
+	}
+
+	return (status_vector == local_status);
+}
+
+
+#if defined (WIN_NT) && !defined(SERVER_SHUTDOWN)
+static void setup_NT_handlers()
+{
+/**************************************
+ *
+ *      s e t u p _ N T _ h a n d l e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Set up Windows NT console control handlers for
+ *      things that can happen.   The handler used for
+ *      all cases, handler_NT(), will flush and close
+ *      any open database files.
+ *
+ **************************************/
+
+	(void) SetConsoleCtrlHandler((PHANDLER_ROUTINE) handler_NT, TRUE);
+}
+#endif
+
+
+static void shutdown_database(DBB dbb, BOOLEAN release_pools)
+{
+/**************************************
+ *
+ *	s h u t d o w n _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown physical database environment.
+ *	NOTE:  This routine assumes that upon entry,
+ *	mutex databases_mutex will be locked.
+ *
+ **************************************/
+	TDBB tdbb = get_thread_data();
+
+/* Shutdown file and/or remote connection */
+
+#ifdef SUPERSERVER_V2
+	TRA_header_write(tdbb, dbb, 0L);	/* Update transaction info on header page. */
+#endif
+
+#ifdef GARBAGE_THREAD
+	VIO_fini(tdbb);
+#endif
+	CMP_fini(tdbb);
+	CCH_fini(tdbb);
+	FUN_fini(tdbb);
+
+	if (dbb->dbb_shadow_lock)
+		LCK_release(tdbb, dbb->dbb_shadow_lock);
+
+	if (dbb->dbb_retaining_lock)
+		LCK_release(tdbb, dbb->dbb_retaining_lock);
+
+	if (dbb->dbb_lock)
+		LCK_release(tdbb, dbb->dbb_lock);
+
+	if (dbb->dbb_wal)
+		AIL_fini();
+
+	if (dbb->dbb_journal)
+		JRN_fini(tdbb->tdbb_status_vector, &dbb->dbb_journal);
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+	if (dbb->dbb_log)
+		LOG_fini();
+#endif
+
+/* Shut down any extern relations */
+
+	if (dbb->dbb_relations)
+	{
+		VEC vector = dbb->dbb_relations;
+		REL* ptr = (REL*)vector->vec_object;
+		const REL* end = ptr + vector->vec_count;
+
+		for (; ptr < end; ++ptr)
+		{
+			if (*ptr && (*ptr)->rel_file)
+			{
+				EXT_fini(*ptr);
+			}
+		}
+	}
+
+	DBB* d_ptr;	// Intentionally left outside loop (HP/UX compiler)
+	for (d_ptr = &databases; *(d_ptr); d_ptr = &(*d_ptr)->dbb_next) {
+		if (*d_ptr == dbb) {
+			*d_ptr = dbb->dbb_next;
+			break;
+		}
+	}
+
+	if (dbb->dbb_flags & DBB_lck_init_done) {
+		LCK_fini(tdbb, LCK_OWNER_database);	/* For the database */
+		dbb->dbb_flags &= ~DBB_lck_init_done;
+	}
+
+/* Remove objects from the in-use strutures before destroying them */
+
+	USHORT i;
+	for (i = 0; i < DBB_MUTX_max; i++) {
+		INUSE_remove(&tdbb->tdbb_mutexes, dbb->dbb_mutexes + i, TRUE);
+	}
+	for (i = 0; i < DBB_WLCK_max; i++) {
+		INUSE_remove(&tdbb->tdbb_rw_locks, dbb->dbb_rw_locks + i, TRUE);
+	}
+
+	THD_MUTEX_DESTROY_N(dbb->dbb_mutexes, DBB_MUTX_max);
+	V4_RW_LOCK_DESTROY_N(dbb->dbb_rw_locks, DBB_WLCK_max);
+#ifdef SUPERSERVER
+	if (dbb->dbb_flags & DBB_sp_rec_mutex_init) {
+		THD_rec_mutex_destroy(&dbb->dbb_sp_rec_mutex);
+	}
+#endif
+	if (release_pools) {
+		ALL_fini();
+		tdbb->tdbb_database = NULL;
+	}
+}
+
+
+static void strip_quotes(TEXT * in, TEXT * out)
+{
+/**************************************
+ *
+ *	s t r i p _ q u o t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of quotes around strings
+ *
+ **************************************/
+	TEXT *p;
+	TEXT quote;
+
+	if (!in || !*in) {
+		*out = 0;
+		return;
+	}
+
+	quote = 0;
+/* Skip any initial quote */
+	if ((*in == DBL_QUOTE) || (*in == SINGLE_QUOTE))
+		quote = *in++;
+	p = in;
+
+/* Now copy characters until we see the same quote or EOS */
+	while (*p && (*p != quote)) {
+		*out++ = *p++;
+	}
+	*out = 0;
+}
+
+
+void JRD_set_cache_default(ULONG * num_ptr)
+{
+/**************************************
+ *
+ *	J R D _ s e t _ c a c h e _ d e f a u l t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the number of cache pages to use for each
+ *	database, but don't go less than MIN_PAGE_BUFFERS and
+ *      more than MAX_PAGE_BUFFERS.
+ *	Currently MIN_PAGE_BUFFERS = 50L,
+ *		  MAX_PAGE_BUFFERS = 65535L.
+ *
+ **************************************/
+
+	if (*num_ptr < MIN_PAGE_BUFFERS)
+		*num_ptr = MIN_PAGE_BUFFERS;
+	if (*num_ptr > MAX_PAGE_BUFFERS)
+		*num_ptr = MAX_PAGE_BUFFERS;
+	JRD_cache_default = *num_ptr;
+}
+
+
+#ifdef SERVER_SHUTDOWN
+TEXT *JRD_num_attachments(TEXT * buf, USHORT len, USHORT flag, USHORT * atts,
+						  USHORT * dbs)
+{
+/**************************************
+ *
+ *	J R D _ n u m _ a t t a c h m e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Count the number of active databases and
+ *	attachments.  If flag is set then put
+ *	what it says into buf, if it fits. If it does not fit
+ *	then allocate local buffer, put info into there, and
+ *	return pointer to caller (in this case a caller must
+ *	release memory allocated for local buffer).
+ *
+ **************************************/
+	USHORT num_dbs = 0;
+	USHORT num_att = 0;
+	USHORT total = 0;
+	ULONG drive_mask = 0L;
+	DBB dbb;
+	DBF dbf = NULL, dbfp = NULL;
+	ATT att;
+	TEXT *lbuf, *lbufp;
+
+/* protect against NULL value for buf */
+
+	if (!(lbuf = buf))
+		len = 0;
+
+#ifdef WIN_NT
+/* Check that the buffer is big enough for the requested
+ * information.  If not, unset the flag
+ */
+
+	if (flag == JRD_info_drivemask)
+		if (len < sizeof(ULONG))
+			if (!(lbuf = (TEXT *) gds__alloc((SLONG) (sizeof(ULONG)))))
+				flag = 0;
+#endif
+
+	THREAD_ENTER;
+
+/* Zip through the list of databases and count the number of local
+ * connections.  If buf is not NULL then copy all the database names
+ * that will fit into it. */
+
+	for (dbb = databases; dbb; dbb = dbb->dbb_next) {
+#ifdef WIN_NT
+		struct fil *files;
+		struct dls *dirs;
+		struct scb *scb;
+		struct sfb *sfb;
+
+		/* Get drive letters for db files */
+
+		if (flag == JRD_info_drivemask)
+			for (files = dbb->dbb_file; files; files = files->fil_next)
+				ExtractDriveLetter(files->fil_string, &drive_mask);
+#endif
+
+		if (!(dbb->dbb_flags & (DBB_bugcheck | DBB_not_in_use)) &&
+			!(dbb->dbb_ast_flags & DBB_shutdown
+			  && dbb->dbb_ast_flags & DBB_shutdown_locks)) {
+			num_dbs++;
+			if (flag == JRD_info_dbnames) {
+				if (dbfp == NULL) {
+					dbfp = (DBF) gds__alloc((SLONG) (sizeof(struct dbf) +
+													 sizeof(TEXT) *
+													 dbb->
+													 dbb_filename->str_length));
+					dbf = dbfp;
+				}
+				else {
+					dbfp->dbf_next = (DBF)
+						gds__alloc((SLONG)
+								   (sizeof(struct dbf) +
+									sizeof(TEXT) *
+									dbb->dbb_filename->str_length));
+					dbfp = dbfp->dbf_next;
+				}
+				if (dbfp) {
+					dbfp->dbf_length = dbb->dbb_filename->str_length;
+					dbfp->dbf_next = NULL;
+					MOVE_FAST(dbb->dbb_filename->str_data, dbfp->dbf_data,
+							  dbfp->dbf_length);
+					total += sizeof(USHORT) + dbfp->dbf_length;
+				}
+				else
+					flag = 0;
+			}
+
+			for (att = dbb->dbb_attachments; att; att = att->att_next) {
+				num_att++;
+
+#ifdef WIN_NT
+				/* Get drive letters for temp directories */
+
+				if (flag == JRD_info_drivemask) {
+					MDLS* ptr = DLS_get_access();
+					for (dirs = ptr->mdls_dls; dirs; dirs = dirs->dls_next) {
+						ExtractDriveLetter(dirs->dls_directory, &drive_mask);
+					}
+				}
+
+				/* Get drive letters for sort files */
+
+				if (flag == JRD_info_drivemask)
+				{
+					for (scb = att->att_active_sorts; scb; scb = scb->scb_next)
+					{
+						for (sfb = scb->scb_sfb; sfb; sfb = sfb->sfb_next)
+						{
+							ExtractDriveLetter(sfb->sfb_file_name, &drive_mask);
+						}
+					}
+				}
+#endif
+			}
+		}
+	}
+
+	THREAD_EXIT;
+
+	*atts = num_att;
+	*dbs = num_dbs;
+
+	if (dbf)
+	{
+		if (flag == JRD_info_dbnames)
+		{
+			if (len < (sizeof(USHORT) + total))
+			{
+				lbuf = (TEXT *) gds__alloc((SLONG) (sizeof(USHORT) + total));
+			}
+			if (lbufp = lbuf)
+			{
+				/*  Put db info into buffer. Format is as follows:
+
+				   number of dbases sizeof (USHORT)
+				   1st db name length   sizeof (USHORT)
+				   1st db name      sizeof (TEXT) * length
+				   2nd db name length
+				   2nd db name
+				   ...
+				   last db name length
+				   last db name
+				 */
+
+				lbufp += sizeof(USHORT);
+				total = 0;
+				for (dbfp = dbf; dbfp; dbfp = dbfp->dbf_next) {
+					*lbufp++ = (TEXT) dbfp->dbf_length;
+					*lbufp++ = dbfp->dbf_length >> 8;
+					MOVE_FAST(dbfp->dbf_data, lbufp, dbfp->dbf_length);
+					lbufp += dbfp->dbf_length;
+					total++;
+				}
+				assert(total == num_dbs);
+				lbufp = lbuf;
+				*lbufp++ = (TEXT) total;
+				*lbufp++ = total >> 8;
+			}
+		}
+
+		for (dbfp = dbf; dbfp;) {
+			DBF x = dbfp->dbf_next;
+			gds__free(dbfp);
+			dbfp = x;
+		}
+	}
+
+#ifdef WIN_NT
+	if (flag == JRD_info_drivemask)
+		*(ULONG *) lbuf = drive_mask;
+#endif
+
+	if (num_dbs == 0)
+		lbuf = NULL;
+
+	return lbuf;
+}
+
+
+#ifdef WIN_NT
+static void ExtractDriveLetter(TEXT* file_name, ULONG* drive_mask)
+{
+/**************************************
+ *
+ *	E x t r a c t D r i v e L e t t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine the drive letter of file_name
+ *	and set the proper bit in the bit mask.
+ *		bit 0 = drive A
+ *		bit 1 = drive B and so on...
+ *	This function is used to determine drive
+ *	usage for use with Plug and Play for
+ *	MS Windows 4.0.
+ *
+ **************************************/
+	ULONG mask = 1;
+	SHORT shift;
+
+	shift = (*file_name - 'A');
+	mask <<= shift;
+	*drive_mask |= mask;
+}
+#endif
+
+
+ULONG JRD_shutdown_all()
+{
+/**************************************
+ *
+ *	J R D _ s h u t d o w n _ a l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	rollback every transaction,
+ *	release every attachment,
+ *	and shutdown every database.
+ *
+ **************************************/
+	STATUS user_status[ISC_STATUS_LENGTH];
+	ATT att, att_next;
+	DBB dbb, dbb_next;
+	JMP_BUF env;
+	struct tdbb thd_context;
+
+	struct tdbb* tdbb = set_thread_data(thd_context);
+
+	if (initialized)
+		JRD_SS_MUTEX_LOCK;
+
+	for (dbb = databases; dbb; dbb = dbb_next)
+	{
+		dbb_next = dbb->dbb_next;
+		if (!(dbb->dbb_flags & (DBB_bugcheck | DBB_not_in_use)) &&
+			!(dbb->dbb_ast_flags & DBB_shutdown &&
+			  dbb->dbb_ast_flags & DBB_shutdown_locks))
+		{
+			for (att = dbb->dbb_attachments; att; att = att_next)
+			{
+				att_next = att->att_next;
+				tdbb->tdbb_database = dbb;
+				tdbb->tdbb_attachment = att;
+				tdbb->tdbb_request = NULL;
+				tdbb->tdbb_transaction = NULL;
+				tdbb->tdbb_default = NULL;
+
+				++dbb->dbb_use_count;
+
+				/* purge_attachment below can do an ERR_post */
+
+				tdbb->tdbb_setjmp = (UCHAR *) env;
+				tdbb->tdbb_status_vector = user_status;
+				if (SETJMP(env)) {
+					if (initialized)
+						JRD_SS_MUTEX_UNLOCK;
+					return error(user_status);
+				}
+
+				/* purge_attachment, rollback any open transactions */
+
+				V4_JRD_MUTEX_LOCK(dbb->dbb_mutexes + DBB_MUTX_init_fini);
+				purge_attachment(tdbb, user_status, att, TRUE);
+				V4_JRD_MUTEX_UNLOCK(databases_mutex);
+			}
+		}
+	}
+
+	if (initialized)
+		JRD_SS_MUTEX_UNLOCK;
+
+	JRD_restore_context();
+
+	return SUCCESS;
+}
+#endif /* SERVER_SHUTDOWN */
+
+
+static void purge_attachment(TDBB		tdbb,
+							 STATUS*	user_status,
+							 ATT		attachment,
+							 BOOLEAN	force_flag)
+{
+/**************************************
+ *
+ *	p u r g e _ a t t a c h m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zap an attachment, shutting down the database
+ *	if it is the last one.
+ *	NOTE:  This routine assumes that upon entry,
+ *	mutex databases_mutex will be locked.
+ *
+ **************************************/
+	BKM bookmark;
+	DBB dbb;
+	REQ request;
+	SCL class_;
+	TRA transaction, next;
+	USR user;
+	USHORT count;
+
+	SET_TDBB(tdbb);
+	dbb = attachment->att_database;
+
+	if (!(dbb->dbb_flags & DBB_bugcheck)) {
+		/* Check for any pending transactions */
+
+		count = 0;
+
+		for (transaction = attachment->att_transactions;
+			 transaction;
+			 transaction = next)
+		{
+			next = transaction->tra_next;
+			if (transaction != attachment->att_dbkey_trans)
+			{
+				if (transaction->tra_flags & TRA_prepared ||
+					dbb->dbb_ast_flags & DBB_shutdown ||
+					attachment->att_flags & ATT_shutdown)
+				{
+					TRA_release_transaction(tdbb, transaction);
+				}
+				else if (force_flag)
+					TRA_rollback(tdbb, transaction, FALSE);
+				else
+					++count;
+			}
+		}
+
+		if (count)
+			ERR_post(gds_open_trans, gds_arg_number, (SLONG) count, 0);
+
+		/* If there's a side transaction for db-key scope, get rid of it */
+
+		if (transaction = attachment->att_dbkey_trans)
+		{
+			attachment->att_dbkey_trans = NULL;
+			if (dbb->dbb_ast_flags & DBB_shutdown ||
+				attachment->att_flags & ATT_shutdown)
+			{
+				TRA_release_transaction(tdbb, transaction);
+			}
+			else
+			{
+				TRA_commit(tdbb, transaction, FALSE);
+			}
+		}
+
+		SORT_shutdown(attachment);
+	}
+
+/* Unlink attachment from database */
+
+	release_attachment(attachment);
+
+/* At this point, mutex dbb->dbb_mutexes [DBB_MUTX_init_fini] has been
+   unlocked and mutex databases_mutex has been locked. */
+
+/* If there are still attachments, do a partial shutdown */
+
+	if (dbb->dbb_header.blk_type == (UCHAR) type_dbb)
+	{
+		if (dbb->dbb_attachments || (dbb->dbb_flags & DBB_being_opened))
+		{
+			/* There are still attachments so do a partial shutdown */
+
+			while (request = attachment->att_requests) {
+				CMP_release(tdbb, request);
+			}
+			while (class_ = attachment->att_security_classes) {
+				SCL_release(class_);
+			}
+			if (user = attachment->att_user) {
+				ALL_RELEASE(user);
+			}
+			while (bookmark = attachment->att_bookmarks) {
+				attachment->att_bookmarks = bookmark->bkm_next;
+				ALL_RELEASE(bookmark);
+			}
+			if (attachment->att_bkm_quick_ref) {
+				ALL_RELEASE(attachment->att_bkm_quick_ref);
+			}
+			if (attachment->att_lck_quick_ref) {
+				ALL_RELEASE(attachment->att_lck_quick_ref);
+			}
+
+			ALL_RELEASE(attachment);
+		}
+		else
+		{
+			shutdown_database(dbb, TRUE);
+		}
+	}
+}
+
+} // extern "C"
diff --git a/src/jrd/jrd.def b/src/jrd/jrd.def
new file mode 100644
index 0000000000..d029eb8591
--- /dev/null
+++ b/src/jrd/jrd.def
@@ -0,0 +1,137 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+; 
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+; 
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+; 
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;------------------------------------------------------------
+;  JRD DLL MODULE DEFINITION FILE
+;------------------------------------------------------------
+
+LIBRARY     JRD
+
+DESCRIPTION 'JRD INTERBASE MODULE'
+CODE MOVEABLE
+DATA MOVEABLE
+SEGMENTS
+        _TEXT           DISCARDABLE
+        AIL_TEXT        DISCARDABLE
+        ALL_TEXT        DISCARDABLE
+        BKM_TEXT        DISCARDABLE
+        BLB_TEXT        DISCARDABLE
+        BTR_TEXT        DISCARDABLE
+        BUILTIN_TEXT    DISCARDABLE
+        BLF_TEXT        DISCARDABLE
+        CCH_TEXT        DISCARDABLE
+        CMP_TEXT        DISCARDABLE
+        CVT_TEXT        DISCARDABLE
+        CVT2_TEXT       DISCARDABLE
+        DFW_TEXT        DISCARDABLE
+        DPM_TEXT        DISCARDABLE
+        DYN_TEXT        DISCARDABLE
+        DYN_DEF_TEXT    DISCARDABLE
+        DYN_DEL_TEXT    DISCARDABLE
+        DYN_MOD_TEXT    DISCARDABLE
+        ERR_TEXT        DISCARDABLE
+        EVL_TEXT        DISCARDABLE
+        EXE_TEXT        DISCARDABLE
+        EXT_TEXT        DISCARDABLE
+        FILTERS_TEXT    DISCARDABLE
+        FLU_TEXT        PRELOAD
+        FUN_TEXT        DISCARDABLE
+        GRANT_TEXT      DISCARDABLE
+        IBERR_TEXT      DISCARDABLE
+        IDX_TEXT        DISCARDABLE
+        INF_TEXT        DISCARDABLE
+        INI_TEXT        DISCARDABLE
+        INTL_TEXT       DISCARDABLE
+        INUSE_TEXT      DISCARDABLE
+        JRD_TEXT        DISCARDABLE
+        JRDWEP_TEXT     PRELOAD
+        LCK_TEXT        DISCARDABLE
+        LOG_TEXT        DISCARDABLE
+        MET_TEXT        DISCARDABLE
+        MISC_TEXT       DISCARDABLE
+        MOV_TEXT        DISCARDABLE
+        NAV_TEXT        DISCARDABLE
+        OPT_TEXT        DISCARDABLE
+        PAG_TEXT        DISCARDABLE
+        PAR_TEXT        DISCARDABLE
+        PCMET_TEXT      DISCARDABLE
+        PCSLEEP_TEXT    DISCARDABLE
+        PWD_TEXT        DISCARDABLE
+        QATEST_TEXT     DISCARDABLE
+        RLCK_TEXT       DISCARDABLE
+        RNG_TEXT        DISCARDABLE
+        RSE_TEXT        DISCARDABLE
+        SBM_TEXT        DISCARDABLE
+        SCH_TEXT        DISCARDABLE
+        SCL_TEXT        DISCARDABLE
+        SDW_TEXT        DISCARDABLE
+        SHUT_TEXT       DISCARDABLE
+        SORT_TEXT       DISCARDABLE
+        SQZ_TEXT        DISCARDABLE
+        SVC_TEXT        DISCARDABLE
+        SYM_TEXT        DISCARDABLE
+        TPC_TEXT        DISCARDABLE
+        TRA_TEXT        DISCARDABLE
+        VAL_TEXT        DISCARDABLE
+        VIO_TEXT        DISCARDABLE
+        WINDOWS_TEXT    DISCARDABLE
+        FILESERV_TEXT   PRELOAD
+        DLLSHELL_TEXT   PRELOAD
+        LOCK_TEXT       DISCARDABLE
+EXPORTS
+; JRD.C
+		_jrd8_unwind_request            @302
+		_jrd8_transaction_info          @303
+		_jrd8_start_transaction         @304
+		_jrd8_start_request             @305
+		_jrd8_start_and_send            @306
+		_jrd8_send                      @307
+		_jrd8_seek_blob                 @308
+		_jrd8_rollback_transaction      @309
+		_jrd8_request_info              @310
+		_jrd8_release_request           @311
+		_jrd8_reconnect_transaction     @312
+		_jrd8_receive                   @313
+		_jrd8_que_events                @314
+		_jrd8_put_slice                 @315
+		_jrd8_put_segment               @316
+		_jrd8_prepare_transaction       @317
+		_jrd8_open_blob2                @318
+		_jrd8_get_slice                 @319
+		_jrd8_get_segment               @320
+		_jrd8_detach_database           @321
+		_jrd8_ddl                       @322
+		_jrd8_database_info             @323
+		_jrd8_create_database           @324
+		_jrd8_create_blob2              @325
+		_jrd8_compile_request           @326
+		_jrd8_commit_retaining          @327
+		_jrd8_commit_transaction        @328
+		_jrd8_close_blob                @329
+		_jrd8_cancel_events             @330
+		_jrd8_cancel_blob               @331
+		_jrd8_blob_info                 @332
+		_jrd8_attach_database           @333
+		_jrd8_query_service             @334
+		_jrd8_detach_service            @335
+		_jrd8_attach_service            @336
+		_jrd8_drop_database             @337
+		_jrd8_transact_request          @338
+		_jrd8_start_multiple            @339
+
+;-------------------------------------------
+		WEP                            @1   RESIDENTNAME
+
diff --git a/src/jrd/jrd.h b/src/jrd/jrd.h
new file mode 100644
index 0000000000..d56cfc6b7c
--- /dev/null
+++ b/src/jrd/jrd.h
@@ -0,0 +1,860 @@
+/*
+ *      PROGRAM:        JRD access method
+ *      MODULE:         jrd.h
+ *      DESCRIPTION:    Common descriptions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_JRD_H
+#define JRD_JRD_H
+
+#include "../jrd/gdsassert.h"
+#include "../jrd/common.h"
+#include "../jrd/dsc.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+#ifdef DEV_BUILD
+#define DEBUG                   if (debug) DBG_supervisor(debug);
+#define VIO_DEBUG				/* remove this for production build */
+#define WALW_DEBUG				/* remove this for production build */
+#else /* PROD */
+#define DEBUG
+#undef VIO_DEBUG
+#undef WALW_DEBUG
+#endif
+
+#define MAX_PATH_LENGTH         512
+
+#define BUGCHECK(number)        ERR_bugcheck (number)
+#define CORRUPT(number)         ERR_corrupt (number)
+#define IBERROR(number)         ERR_error (number)
+
+/* Error delivery type */
+
+typedef enum err_t {
+	ERR_jmp,					/* longjmp */
+	ERR_val,					/* value */
+	ERR_ref						/* reference */
+} ERR_T;
+
+#define BLKCHK(blk, type)       if (((BLK) (blk))->blk_type != (UCHAR) (type)) BUGCHECK (147)
+
+/* DEV_BLKCHK is used for internal consistency checking - where
+ * the performance hit in production build isn't desired.
+ * (eg: scatter this everywhere)
+ */
+#ifdef DEV_BUILD
+#define DEV_BLKCHK(blk,type)    if (((BLK) (blk)) != NULL) {BLKCHK (blk, type);}
+#else
+#define DEV_BLKCHK(blk,type)	/* nothing */
+#endif
+
+#define ALLOCB(type)            ALL_alloc (dbb->dbb_bufferpool, type, 0, ERR_jmp)
+#define ALLOCBV(type,repeat)    ALL_alloc (dbb->dbb_bufferpool, type, repeat, ERR_jmp)
+#define ALLOCBR(type)           ALL_alloc (dbb->dbb_bufferpool, type, 0, ERR_val)
+#define ALLOCBVR(type,repeat)   ALL_alloc (dbb->dbb_bufferpool, type, repeat, ERR_val)
+#define ALLOCD(type)            ALL_alloc (tdbb->tdbb_default, type, 0, ERR_jmp)
+#define ALLOCDV(type,repeat)    ALL_alloc (tdbb->tdbb_default, type, repeat, ERR_jmp)
+#define ALLOCP(type)            ALL_alloc (dbb->dbb_permanent, type, 0, ERR_jmp)
+#define ALLOCPV(type,repeat)    ALL_alloc (dbb->dbb_permanent, type, repeat, ERR_jmp)
+#define ALLOCT(type)            ALL_alloc (transaction->tra_pool, type, 0, ERR_jmp)
+#define ALLOCTV(type,repeat)    ALL_alloc (transaction->tra_pool, type, repeat, ERR_jmp)
+
+
+/* Thread data block / IPC related data blocks */
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#include "../jrd/thd.h"
+#include "../jrd/isc.h"
+
+/* definition of block types for data allocation */
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+#define BLKDEF(type, root, tail) type,
+enum blk_t {
+	type_MIN = 0,
+#ifndef GATEWAY
+#include "../jrd/blk.h"
+#else
+#include ".._gway/gway/blk.h"
+#endif
+	type_MAX
+};
+#undef BLKDEF
+
+/* Block types */
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+
+/* the database block, the topmost block in the metadata 
+   cache for a database */
+
+#ifdef GATEWAY
+#include ".._gway/gway/gway.h"
+#else
+#define HASH_SIZE 101
+
+typedef struct dbb {
+	struct blk dbb_header;
+	struct dbb *dbb_next;		/* Next database block in system */
+	struct att *dbb_attachments;	/* Active attachments */
+	struct bcb *dbb_bcb;		/* Buffer control block */
+	struct vec *dbb_relations;	/* relation vector */
+	struct vec *dbb_procedures;	/* scanned procedures */
+	struct lck *dbb_lock;		/* granddaddy lock */
+	struct tra *dbb_sys_trans;	/* system transaction */
+	struct fil *dbb_file;		/* files for I/O operations */
+	struct sdw *dbb_shadow;		/* shadow control block */
+	struct lck *dbb_shadow_lock;	/* lock for synchronizing addition of shadows */
+	SLONG dbb_shadow_sync_count;	/* to synchronize changes to shadows */
+	struct lck *dbb_retaining_lock;	/* lock for preserving commit retaining snapshot */
+	struct plc *dbb_connection;	/* connection block */
+	struct pgc *dbb_pcontrol;	/* page control */
+	struct vcl *dbb_t_pages;	/* pages number for transactions */
+	struct vcl *dbb_gen_id_pages;	/* known pages for gen_id */
+	struct blf *dbb_blob_filters;	/* known blob filters */
+	struct lls *dbb_modules;	/* external function/filter modules */
+	MUTX_T *dbb_mutexes;		/* DBB block mutexes */
+	WLCK_T *dbb_rw_locks;		/* DBB block read/write locks */
+	REC_MUTX_T dbb_sp_rec_mutex;	/* Recursive mutex for accessing/updating stored procedure metadata */
+	SLONG dbb_sort_size;		/* Size of sort space per sort */
+
+	UATOM dbb_ast_flags;		/* flags modified at AST level */
+	ULONG dbb_flags;
+	USHORT dbb_ods_version;		/* major ODS version number */
+	USHORT dbb_minor_version;	/* minor ODS version number */
+	USHORT dbb_minor_original;	/* minor ODS version at creation */
+	USHORT dbb_page_size;		/* page size */
+	USHORT dbb_dp_per_pp;		/* data pages per pointer page */
+	USHORT dbb_max_records;		/* max record per data page */
+	USHORT dbb_use_count;		/* active count of threads */
+	USHORT dbb_shutdown_delay;	/* seconds until forced shutdown */
+	USHORT dbb_refresh_ranges;	/* active count of refresh ranges */
+	USHORT dbb_prefetch_sequence;	/* sequence to pace frequency of prefetch requests */
+	USHORT dbb_prefetch_pages;	/* prefetch pages per request */
+	struct str *dbb_spare_string;	/* random buffer */
+	struct str *dbb_filename;	/* filename string */
+#ifdef ISC_DATABASE_ENCRYPTION
+	struct str *dbb_encrypt_key;	/* encryption key */
+#endif
+
+	struct plb *dbb_permanent;
+	struct plb *dbb_bufferpool;
+	struct vec *dbb_pools;		/* pools */
+	struct vec *dbb_internal;	/* internal requests */
+	struct vec *dbb_dyn_req;	/* internal dyn requests */
+	struct jrn *dbb_journal;	/* journal block */
+
+	SLONG dbb_oldest_active;	/* Cached "oldest active" transaction */
+	SLONG dbb_oldest_transaction;	/* Cached "oldest interesting" transaction */
+	SLONG dbb_oldest_snapshot;	/* Cached "oldest snapshot" of all active transactions */
+	SLONG dbb_next_transaction;	/* Next transaction id used by NETWARE */
+	SLONG dbb_attachment_id;	/* Next attachment id for ReadOnly DB's */
+	SLONG dbb_page_incarnation;	/* Cache page incarnation counter */
+	ULONG dbb_page_buffers;		/* Page buffers from header page */
+
+	EVENT_T dbb_writer_event[1];	/* Event to wake up cache writer */
+	EVENT_T dbb_reader_event[1];	/* Event to wake up cache reader */
+#ifdef GARBAGE_THREAD
+	EVENT_T dbb_gc_event[1];	/* Event to wake up garbage collector */
+#endif
+	struct att *dbb_update_attachment;	/* Attachment with update in process */
+	struct btb *dbb_update_que;	/* Attachments waiting for update */
+	struct btb *dbb_free_btbs;	/* Unused btb blocks */
+
+	SLONG dbb_current_memory;
+	SLONG dbb_max_memory;
+	SLONG dbb_reads;
+	SLONG dbb_writes;
+	SLONG dbb_fetches;
+	SLONG dbb_marks;
+	SLONG dbb_last_header_write;	/* Transaction id of last header page physical write */
+	SLONG dbb_flush_cycle;		/* Current flush cycle */
+	SLONG dbb_sweep_interval;	/* Transactions between sweep */
+	SLONG dbb_lock_owner_handle;	/* Handle for the lock manager */
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	int (*dbb_encrypt) ();		/* External encryption routine */
+	int (*dbb_decrypt) ();		/* External decryption routine */
+#endif
+
+	struct map *dbb_blob_map;	/* mapping of blobs for REPLAY */
+	struct log *dbb_log;		/* log file for REPLAY */
+	struct vec *dbb_text_objects;	/* intl text type descriptions */
+	struct vec *dbb_charsets;	/* intl character set descriptions */
+	struct wal *dbb_wal;		/* WAL handle for WAL API */
+	struct tpc *dbb_tip_cache;	/* cache of latest known state of all transactions in system */
+	struct vcl *dbb_pc_transactions;	/* active precommitted transactions */
+	struct sym *dbb_hash_table[HASH_SIZE];	/* keep this at the end */
+} *DBB;
+
+/* bit values for dbb_flags */
+
+#define DBB_no_garbage_collect 	0x1L
+#define DBB_damaged         	0x2L
+#define DBB_exclusive       	0x4L	/* Database is accessed in exclusive mode */
+#define DBB_bugcheck        	0x8L	/* Bugcheck has occurred */
+#ifdef GARBAGE_THREAD
+#define DBB_garbage_collector	0x10L	/* garbage collector thread exists */
+#define DBB_gc_active		0x20L	/* ... and is actively working. */
+#define DBB_gc_pending		0x40L	/* garbage collection requested */
+#endif
+#define DBB_force_write     	0x80L	/* Database is forced write */
+#define DBB_no_reserve     	0x100L	/* No reserve space for versions */
+#define DBB_add_log         	0x200L	/* write ahead log has been added */
+#define DBB_delete_log      	0x400L	/* write ahead log has been deleted */
+#define DBB_cache_manager   	0x800L	/* Shared cache manager */
+#define DBB_DB_SQL_dialect_3 	0x1000L	/* database SQL dialect 3 */
+#define DBB_read_only    	0x2000L	/* DB is ReadOnly (RO). If not set, DB is RW */
+#define DBB_being_opened_read_only 0x4000L	/* DB is being opened RO. If unset, opened as RW */
+#define DBB_not_in_use      	0x8000L	/* DBB to be ignored while attaching */
+#define DBB_lck_init_done   	0x10000L	/* LCK_init() called for the database */
+#define DBB_sp_rec_mutex_init 	0x20000L	/* Stored procedure mutex initialized */
+#define DBB_sweep_in_progress 	0x40000L	/* A database sweep operation is in progress */
+#define DBB_security_db     	0x80000L	/* ISC security database */
+#define DBB_sweep_thread_started 0x100000L	/* A database sweep thread has been started */
+#define DBB_suspend_bgio	0x200000L	/* Suspend I/O by background threads */
+#define DBB_being_opened    	0x400000L	/* database is being attached to */
+
+/* dbb_ast_flags */
+
+#define DBB_blocking        	0x1L	/* Exclusive mode is blocking */
+#define DBB_get_shadows     	0x2L	/* Signal received to check for new shadows */
+#define DBB_assert_locks    	0x4L	/* Locks are to be asserted */
+#define DBB_shutdown       	0x8L	/* Database is shutdown */
+#define DBB_shut_attach     	0x10L	/* no new attachments accepted */
+#define DBB_shut_tran       	0x20L	/* no new transactions accepted */
+#define DBB_shut_force      	0x40L	/* forced shutdown in progress */
+#define DBB_shutdown_locks  	0x80L	/* Database locks release by shutdown */
+
+/* Database attachments */
+
+#define DBB_read_seq_count      0
+#define DBB_read_idx_count      1
+#define DBB_update_count        2
+#define DBB_insert_count        3
+#define DBB_delete_count        4
+#define DBB_backout_count       5
+#define DBB_purge_count         6
+#define DBB_expunge_count       7
+#define DBB_max_count           8
+
+/* Database mutexes and read/write locks */
+
+#define DBB_MUTX_init_fini      0	/* During startup and shutdown */
+#define DBB_MUTX_statistics     1	/* Memory size and counts */
+#define DBB_MUTX_replay         2	/* Replay logging */
+#define DBB_MUTX_dyn            3	/* Dynamic ddl */
+#define DBB_MUTX_cache          4	/* Process-private cache management */
+#define DBB_MUTX_clone          5	/* Request cloning */
+#define DBB_MUTX_cmp_clone      6	/* Compiled request cloning */
+#ifndef NETWARE_386
+#define DBB_MUTX_max            7
+#else
+#define DBB_MUTX_udf            7	/* UDF lookup */
+#define DBB_MUTX_grant_priv     8	/* Generate user privileges */
+#define DBB_MUTX_get_class      9	/* Read a security class */
+#define DBB_MUTX_max            10
+#endif
+
+#define DBB_WLCK_pools          0	/* Pool manipulation */
+#define DBB_WLCK_files          1	/* DB and shadow file manipulation */
+#define DBB_WLCK_max            2
+
+/* Flags to indicate normal internal requests vs. dyn internal requests */
+
+#define IRQ_REQUESTS            1
+#define DYN_REQUESTS            2
+
+
+
+/* Errors during validation - will be returned on info calls */
+
+#define VAL_PAG_WRONG_TYPE          0
+#define VAL_PAG_CHECKSUM_ERR        1
+#define VAL_PAG_DOUBLE_ALLOC        2
+#define VAL_PAG_IN_USE              3
+#define VAL_PAG_ORPHAN              4
+#define VAL_BLOB_INCONSISTENT       5
+#define VAL_BLOB_CORRUPT            6
+#define VAL_BLOB_TRUNCATED          7
+#define VAL_REC_CHAIN_BROKEN        8
+#define VAL_DATA_PAGE_CONFUSED      9
+#define VAL_DATA_PAGE_LINE_ERR      10
+#define VAL_INDEX_PAGE_CORRUPT      11
+#define VAL_P_PAGE_LOST             12
+#define VAL_P_PAGE_INCONSISTENT     13
+#define VAL_REC_DAMAGED             14
+#define VAL_REC_BAD_TID             15
+#define VAL_REC_FRAGMENT_CORRUPT    16
+#define VAL_REC_WRONG_LENGTH        17
+#define VAL_INDEX_ROOT_MISSING      18
+#define VAL_TIP_LOST                19
+#define VAL_TIP_LOST_SEQUENCE       20
+#define VAL_TIP_CONFUSED            21
+#define VAL_REL_CHAIN_ORPHANS       22
+#define VAL_INDEX_MISSING_ROWS      23
+#define VAL_INDEX_ORPHAN_CHILD      24
+#define VAL_MAX_ERROR               25
+
+
+
+/* the attachment block; one is created for each attachment
+   to a database */
+
+typedef struct att {
+	struct blk att_header;
+	struct dbb *att_database;	/* Parent databasea block */
+	struct att *att_next;		/* Next attachment to database */
+	struct att *att_blocking;	/* Blocking attachment, if any */
+	struct usr *att_user;		/* User identification */
+	struct tra *att_transactions;	/* Transactions belonging to attachment */
+	struct tra *att_dbkey_trans;	/* transaction to control db-key scope */
+	struct req *att_requests;	/* Requests belonging to attachment */
+	struct scb *att_active_sorts;	/* Active sorts */
+	struct lck *att_id_lock;	/* Attachment lock (if any) */
+	SLONG att_attachment_id;	/* Attachment ID */
+	SLONG att_lock_owner_handle;	/* Handle for the lock manager */
+	SLONG att_event_session;	/* Event session id, if any */
+	struct scl *att_security_class;	/* security class for database */
+	struct scl *att_security_classes;	/* security classes */
+	struct vcl *att_counts[DBB_max_count];
+	struct vec *att_relation_locks;	/* explicit persistent locks for relations */
+	struct bkm *att_bookmarks;	/* list of bookmarks taken out using this attachment */
+	struct lck *att_record_locks;	/* explicit or implicit record locks taken out during attachment */
+	struct vec *att_bkm_quick_ref;	/* correspondence table of bookmarks */
+	struct vec *att_lck_quick_ref;	/* correspondence table of locks */
+	ULONG att_flags;			/* Flags describing the state of the attachment */
+	SSHORT att_charset;			/* user's charset specified in dpb */
+	struct str *att_lc_messages;	/* attachment's preference for message natural language */
+	struct lck *att_long_locks;	/* outstanding two phased locks */
+	struct vec *att_compatibility_table;	/* hash table of compatible locks */
+	struct vcl *att_val_errors;
+	struct str *att_working_directory;	/* Current working directory is cached */
+} *ATT;
+
+
+/* Attachment flags */
+
+#define ATT_no_cleanup          1	/* Don't expunge, purge, or garbage collect */
+#define ATT_shutdown            2	/* attachment has been shutdown */
+#define ATT_shutdown_notify     4	/* attachment has notified client of shutdown */
+#define ATT_shutdown_manager    8	/* attachment requesting shutdown */
+#define ATT_lck_init_done       16	/* LCK_init() called for the attachment */
+#define ATT_exclusive           32	/* attachment wants exclusive database access */
+#define ATT_attach_pending      64	/* Indicate attachment is only pending */
+#define ATT_exclusive_pending   128	/* Indicate exclusive attachment pending */
+#define ATT_gbak_attachment	256	/* Indicate GBAK attachment */
+#define ATT_security_db		512	/* Indicates an implicit attachment to the security db */
+#ifdef GARBAGE_THREAD
+#define ATT_notify_gc		1024	/* Notify garbage collector to expunge, purge .. */
+#define ATT_disable_notify_gc	2048	/* Temporarily perform own garbage collection */
+#define ATT_garbage_collector	4096	/* I'm a garbage collector */
+
+#define ATT_NO_CLEANUP	(ATT_no_cleanup | ATT_notify_gc)
+#else
+#define ATT_NO_CLEANUP	ATT_no_cleanup
+#endif
+
+#ifdef CANCEL_OPERATION
+#define ATT_cancel_raise	8192	/* Cancel currently running operation */
+#define ATT_cancel_disable	16384	/* Disable cancel operations */
+#endif
+
+#define ATT_gfix_attachment	32768	/* Indicate a GFIX attachment */
+#define ATT_gstat_attachment	65536	/* Indicate a GSTAT attachment */
+
+
+/* Procedure block */
+
+typedef struct prc {
+	struct blk prc_header;
+	USHORT prc_id;
+	USHORT prc_flags;
+	USHORT prc_inputs;
+	USHORT prc_outputs;
+	struct nod *prc_input_msg;
+	struct nod *prc_output_msg;
+	struct fmt *prc_input_fmt;
+	struct fmt *prc_output_fmt;
+	struct fmt *prc_format;
+	struct vec *prc_input_fields;	/* vector of field blocks */
+	struct vec *prc_output_fields;	/* vector of field blocks */
+	struct req *prc_request;	/* compiled procedure request */
+	struct str *prc_security_name;	/* pointer to security class name for procedure */
+	USHORT prc_use_count;		/* requests compiled with relation */
+	struct lck *prc_existence_lock;	/* existence lock, if any */
+	struct str *prc_name;		/* pointer to ascic name */
+	USHORT prc_alter_count;		/* No. of times the procedure was altered */
+
+} *PRC;
+
+#define PRC_scanned           1	/* Field expressions scanned */
+#define PRC_system            2
+#define PRC_obsolete          4	/* Procedure known gonzo */
+#define PRC_being_scanned     8	/* New procedure needs dependencies during scan */
+#define PRC_blocking          16	/* Blocking someone from dropping procedure */
+#define PRC_create            32	/* Newly created */
+#define PRC_being_altered     64	/* Procedure is getting altered */
+
+#define MAX_PROC_ALTER        64	/* No. of times an in-cache procedure can be altered */
+
+
+
+/* Parameter block */
+
+typedef struct prm {
+	struct blk prm_header;
+	USHORT prm_number;
+	struct dsc prm_desc;
+	TEXT *prm_name;				/* pointer to asciiz name */
+	TEXT prm_string[2];			/* one byte for ALLOC and one for the terminating null */
+} *PRM;
+
+
+/* Primary dependencies from all foreign references to relation's
+   primary/unique keys */
+
+typedef struct prim {
+	struct vec *prim_reference_ids;
+	struct vec *prim_relations;
+	struct vec *prim_indexes;
+} *PRIM;
+
+/* Foreign references to other relations' primary/unique keys */
+
+typedef struct frgn {
+	struct vec *frgn_reference_ids;
+	struct vec *frgn_relations;
+	struct vec *frgn_indexes;
+} *FRGN;
+
+/* Relation block; one is created for each relation referenced
+   in the database, though it is not really filled out until
+   the relation is scanned */
+
+typedef struct rel {
+	struct blk rel_header;
+	USHORT rel_id;
+	USHORT rel_flags;
+	USHORT rel_current_fmt;		/* Current format number */
+	UCHAR rel_length;			/* length of ascii relation name */
+	struct fmt *rel_current_format;	/* Current record format */
+	TEXT *rel_name;				/* pointer to ascii relation name */
+	struct vec *rel_formats;	/* Known record formats */
+	TEXT *rel_owner_name;		/* pointer to ascii owner */
+	struct vcl *rel_pages;		/* vector of pointer page numbers */
+	struct vec *rel_fields;		/* vector of field blocks */
+
+	struct rse *rel_view_rse;	/* view record select expression */
+	struct vcx *rel_view_contexts;	/* linked list of view contexts */
+
+	TEXT *rel_security_name;	/* pointer to security class name for relation */
+	struct ext *rel_file;		/* external file name */
+	SLONG rel_index_root;		/* index root page number */
+	SLONG rel_data_pages;		/* count of relation data pages */
+
+	struct vec *rel_gc_rec;		/* vector of records for garbage collection */
+#ifdef GARBAGE_THREAD
+	struct sbm *rel_gc_bitmap;	/* garbage collect bitmap of data page sequences */
+#endif
+
+	USHORT rel_slot_space;		/* lowest pointer page with slot space */
+	USHORT rel_data_space;		/* lowest pointer page with data page space */
+	USHORT rel_use_count;		/* requests compiled with relation */
+	USHORT rel_sweep_count;		/* sweep and/or garbage collector threads active */
+	SSHORT rel_scan_count;		/* concurrent sequential scan count */
+
+	struct lck *rel_existence_lock;	/* existence lock, if any */
+	struct lck *rel_interest_lock;	/* interest lock to ensure compatibility of relation and record locks */
+	struct lck *rel_record_locking;	/* lock to start record locking on relation */
+
+	ULONG rel_explicit_locks;	/* count of records explicitly locked in relation */
+	ULONG rel_read_locks;		/* count of records read locked in relation (implicit or explicit) */
+	ULONG rel_write_locks;		/* count of records write locked in relation (implicit or explicit) */
+	ULONG rel_lock_total;		/* count of records locked since database first attached */
+
+	struct idl *rel_index_locks;	/* index existence locks */
+	struct idb *rel_index_blocks;	/* index blocks for caching index info */
+	struct vec *rel_pre_erase;	/* Pre-operation erase trigger */
+	struct vec *rel_post_erase;	/* Post-operation erase trigger */
+	struct vec *rel_pre_modify;	/* Pre-operation modify trigger */
+	struct vec *rel_post_modify;	/* Post-operation modify trigger */
+	struct vec *rel_pre_store;	/* Pre-operation store trigger */
+	struct vec *rel_post_store;	/* Post-operation store trigger */
+	struct prim rel_primary_dpnds;	/* foreign dependencies on this relation's primary key */
+	struct frgn rel_foreign_refs;	/* foreign references to other relations' primary keys */
+} *REL;
+
+#define REL_scanned					1		/* Field expressions scanned (or being scanned) */
+#define REL_system					2
+#define REL_deleted					4		/* Relation known gonzo */
+#define REL_get_dependencies		8		/* New relation needs dependencies during scan */
+#define REL_force_scan				16		/* system relation has been updated since ODS change, force a scan */
+#define REL_check_existence			32		/* Existence lock released pending drop of relation */
+#define REL_blocking				64		/* Blocking someone from dropping relation */
+#define REL_sys_triggers			128		/* The relation has system triggers to compile */
+#define REL_sql_relation			256		/* Relation defined as sql table */
+#define REL_check_partners			512		/* Rescan primary dependencies and foreign references */
+#define	REL_being_scanned			1024	/* relation scan in progress */
+#define REL_sys_trigs_being_loaded	2048	/* System triggers being loaded */
+#define REL_deleting				4096	/* relation delete in progress */
+
+
+/* Field block, one for each field in a scanned relation */
+
+typedef struct fld
+{
+	struct blk	fld_header;
+	struct nod*	fld_validation;		/* validation clause, if any */
+	struct nod*	fld_not_null;		/* if field cannot be NULL */
+	struct nod*	fld_missing_value;	/* missing value, if any */
+	struct nod*	fld_computation;	/* computation for virtual field */
+	struct nod*	fld_source;			/* source for view fields */
+	struct nod*	fld_default_value;	/* default value, if any */
+	TEXT *		fld_security_name;	/* pointer to security class name for field */
+	struct arr*	fld_array;			/* array description, if array */
+	CONST TEXT*	fld_name;			/* Field name */
+	UCHAR		fld_length;			/* Field name length */
+	UCHAR		fld_string[2];		/* one byte for ALLOC and one for the terminating null */
+} *FLD;
+
+
+
+/* Index block to cache index information */
+
+typedef struct idb
+{
+	struct blk	idb_header;
+	struct idb*	idb_next;
+	struct nod*	idb_expression;			/* node tree for index expression */
+	struct req*	idb_expression_request;	/* request in which index expression is evaluated */
+	struct dsc	idb_expression_desc;	/* descriptor for expression result */
+	struct lck*	idb_lock;				/* lock to synchronize changes to index */
+	UCHAR idb_id;
+} *IDB;
+
+
+/* view context block to cache view aliases */
+
+typedef struct vcx {
+	struct blk vcx_header;
+	struct vcx *vcx_next;
+	struct str *vcx_context_name;
+	struct str *vcx_relation_name;
+	USHORT vcx_context;
+} *VCX;
+#endif
+
+
+/* general purpose vector */
+
+typedef struct vec {
+	struct blk vec_header;
+	ULONG vec_count;
+	struct blk *vec_object[1];
+} *VEC;
+
+typedef struct vcl {
+	struct blk vcl_header;
+	ULONG vcl_count;
+	SLONG vcl_long[1];
+} *VCL;
+
+#define TEST_VECTOR(vector,number)      ((vector && number < vector->vec_count) ? \
+					  vector->vec_object [number] : NULL)
+/* general purpose queue */
+
+typedef struct que {
+	struct que *que_forward;
+	struct que *que_backward;
+} *QUE;
+
+
+
+/* symbol definitions */
+
+typedef ENUM sym_t { SYM_rel,	/* relation block */
+	SYM_fld,					/* field block */
+	SYM_fun,					/* UDF function block */
+	SYM_prc,					/* stored procedure block */
+	SYM_sql,					/* SQL request cache block */
+SYM_blr /* BLR request cache block */ } SYM_T;
+
+typedef struct sym {
+	struct blk sym_header;
+	TEXT *sym_string;			/* address of asciz string */
+/*  USHORT	sym_length; *//* length of asciz string */
+	SYM_T sym_type;				/* symbol type */
+	struct blk *sym_object;		/* general pointer to object */
+	struct sym *sym_collision;	/* collision pointer */
+	struct sym *sym_homonym;	/* homonym pointer */
+} *SYM;
+
+/* Random string block -- jack of all kludges */
+
+typedef struct str {
+	struct blk str_header;
+	USHORT str_length;
+	UCHAR str_data[2];			/* one byte for ALLOC and one for the NULL */
+} *STR;
+
+
+/* Transaction element block */
+
+typedef struct teb {
+	ATT *teb_database;
+	int teb_tpb_length;
+	UCHAR *teb_tpb;
+} TEB;
+
+/* Blocking Thread Block */
+
+typedef struct btb {
+	struct blk btb_header;
+	struct btb *btb_next;
+	SLONG btb_thread_id;
+} *BTB;
+
+/* Lock levels */
+
+#define LCK_none        0
+#define LCK_null        1
+#define LCK_SR          2
+#define LCK_PR          3
+#define LCK_SW          4
+#define LCK_PW          5
+#define LCK_EX          6
+
+#define LCK_read        LCK_PR
+#define LCK_write       LCK_EX
+
+#define LCK_WAIT        TRUE
+#define LCK_NO_WAIT     FALSE
+
+/* Lock query data aggregates */
+
+#define LCK_MIN		1
+#define LCK_MAX		2
+#define LCK_CNT		3
+#define LCK_SUM		4
+#define LCK_AVG		5
+#define LCK_ANY		6
+
+
+/* Window block for loading cached pages into */
+
+typedef struct win {
+	SLONG win_page;
+	struct pag *win_buffer;
+	struct exp *win_expanded_buffer;
+	struct bdb *win_bdb;
+	SSHORT win_scans;
+	USHORT win_flags;
+} WIN;
+
+#define	WIN_large_scan		1	/* large sequential scan */
+#define WIN_secondary		2	/* secondary stream */
+#define	WIN_garbage_collector	4	/* garbage collector's window */
+#define WIN_garbage_collect	8	/* scan left a page for garbage collector */
+
+
+/* define used for journaling start transaction */
+
+#define MOD_START_TRAN  100
+
+
+/* Thread specific database block */
+
+typedef struct tdbb
+{
+	struct thdd	tdbb_thd_data;
+	struct dbb*	tdbb_database;
+	struct att*	tdbb_attachment;
+	struct tra*	tdbb_transaction;
+	struct req*	tdbb_request;
+	struct plb*	tdbb_default;
+	STATUS*		tdbb_status_vector;
+	UCHAR*		tdbb_setjmp;
+	USHORT		tdbb_inhibit;		/* Inhibit context switch if non-zero */
+	SSHORT		tdbb_quantum;		/* Cycles remaining until voluntary schedule */
+	USHORT		tdbb_flags;
+	struct iuo	tdbb_mutexes;
+	struct iuo	tdbb_rw_locks;
+	struct iuo	tdbb_pages;
+	void*		tdbb_sigsetjmp;
+} *TDBB;
+
+#define	TDBB_sweeper			1	/* Thread sweeper or garbage collector */
+#define TDBB_no_cache_unwind	2	/* Don't unwind page buffer cache */
+#define TDBB_prc_being_dropped	4	/* Dropping a procedure  */
+
+/* List of internal database handles */
+
+typedef struct ihndl
+{
+	struct ihndl*	ihndl_next;
+	void*			ihndl_object;
+} *IHNDL;
+
+
+/* Threading macros */
+
+#ifdef GET_THREAD_DATA
+#undef GET_THREAD_DATA
+#endif
+
+#ifdef V4_THREADING
+#define PLATFORM_GET_THREAD_DATA ((TDBB) THD_get_specific())
+#endif
+
+#ifdef MULTI_THREAD
+#if (defined DECOSF || defined NETWARE_386 || \
+	defined SOLARIS_MT || defined WIN_NT || \
+	defined HP10 || defined LINUX)
+#define PLATFORM_GET_THREAD_DATA ((TDBB) THD_get_specific())
+#endif
+#endif
+
+#ifndef PLATFORM_GET_THREAD_DATA
+extern TDBB gdbb;
+#define PLATFORM_GET_THREAD_DATA (gdbb)
+#endif
+
+/* Define GET_THREAD_DATA off the platform specific version.
+ * If we're in DEV mode, also do consistancy checks on the
+ * retrieved memory structure.  This was originally done to
+ * track down cases of no "PUT_THREAD_DATA" on the NLM. 
+ *
+ * This allows for NULL thread data (which might be an error by itself)
+ * If there is thread data, 
+ * AND it is tagged as being a TDBB.
+ * AND it has a non-NULL tdbb_database field, 
+ * THEN we validate that the structure there is a database block.
+ * Otherwise, we return what we got.
+ * We can't always validate the database field, as during initialization
+ * there is no tdbb_database set up.
+ */
+#ifdef DEV_BUILD
+#define GET_THREAD_DATA (((PLATFORM_GET_THREAD_DATA) && \
+			 (((THDD)(PLATFORM_GET_THREAD_DATA))->thdd_type == THDD_TYPE_TDBB) && \
+			 (((TDBB)(PLATFORM_GET_THREAD_DATA))->tdbb_database)) \
+			 ? ((((TDBB)(PLATFORM_GET_THREAD_DATA))->tdbb_database->dbb_header.blk_type == type_dbb) \
+			    ? (PLATFORM_GET_THREAD_DATA) \
+			    : (BUGCHECK (147), (PLATFORM_GET_THREAD_DATA))) \
+			 : (PLATFORM_GET_THREAD_DATA))
+#define CHECK_DBB(dbb)   assert ((dbb) && ((dbb)->dbb_header.blk_type == type_dbb))
+#define CHECK_TDBB(tdbb) assert ((tdbb) && \
+	(((THDD)(tdbb))->thdd_type == THDD_TYPE_TDBB) && \
+	((!(tdbb)->tdbb_database)||(tdbb)->tdbb_database->dbb_header.blk_type == type_dbb))
+#else
+/* PROD_BUILD */
+#define GET_THREAD_DATA (PLATFORM_GET_THREAD_DATA)
+#define CHECK_TDBB(tdbb)		/* nothing */
+#define CHECK_DBB(dbb)			/* nothing */
+#endif
+
+#define GET_DBB         (((TDBB) (GET_THREAD_DATA))->tdbb_database)
+
+/*-------------------------------------------------------------------------*
+ * macros used to set tdbb and dbb pointers when there are not set already *
+ *-------------------------------------------------------------------------*/
+
+#define	NULL_TDBB	((TDBB) NULL)
+#define	NULL_DBB	((DBB) NULL)
+#define	SET_TDBB(tdbb)	if ((tdbb) == NULL_TDBB) { (tdbb) = GET_THREAD_DATA; }; CHECK_TDBB (tdbb)
+#define	SET_DBB(dbb)	if ((dbb)  == NULL_DBB)  { (dbb)  = GET_DBB; }; CHECK_DBB(dbb);
+
+#ifdef V4_THREADING
+#define V4_JRD_MUTEX_LOCK(mutx)         JRD_mutex_lock (mutx)
+#define V4_JRD_MUTEX_UNLOCK(mutx)       JRD_mutex_unlock (mutx)
+#define V4_JRD_RW_LOCK_LOCK(wlck,type)  JRD_wlck_lock (wlck, type)
+#define V4_JRD_RW_LOCK_UNLOCK(wlck)     JRD_wlck_unlock (wlck)
+#else
+#define V4_JRD_MUTEX_LOCK(mutx)
+#define V4_JRD_MUTEX_UNLOCK(mutx)
+#define V4_JRD_RW_LOCK_LOCK(wlck,type)
+#define V4_JRD_RW_LOCK_UNLOCK(wlck)
+#endif
+
+#ifdef ANY_THREADING
+#define THD_JRD_MUTEX_LOCK(mutx)        JRD_mutex_lock (mutx)
+#define THD_JRD_MUTEX_UNLOCK(mutx)      JRD_mutex_unlock (mutx)
+#else
+#define THD_JRD_MUTEX_LOCK(mutx)
+#define THD_JRD_MUTEX_UNLOCK(mutx)
+#endif
+
+
+/* global variables for engine */
+
+
+#if !defined(REQUESTER)
+
+extern int debug;
+extern IHNDL internal_db_handles;
+
+#endif /* REQUESTER */
+
+
+/* Define the xxx_THREAD_DATA macros.  These are needed in the whole 
+   component, but they are defined differently for use in jrd.c (JRD_MAIN)
+   Here we have a function which sets some flags, and then calls THD_put_specific
+   so in this case we define the macro as calling that function. */
+#ifndef JRD_MAIN
+
+#ifdef __cplusplus
+
+#define SET_THREAD_DATA		tdbb = &thd_context;\
+				MOVE_CLEAR (tdbb, sizeof (*tdbb));\
+				THD_put_specific (reinterpret_cast<struct thdd*>(tdbb));\
+				tdbb->tdbb_thd_data.thdd_type = THDD_TYPE_TDBB
+
+#else
+
+#define SET_THREAD_DATA		tdbb = &thd_context;\
+				MOVE_CLEAR (tdbb, sizeof (*tdbb));\
+				THD_put_specific((struct thdd*)tdbb);\
+				tdbb->tdbb_thd_data.thdd_type = THDD_TYPE_TDBB
+#endif /* __cplusplus */
+
+#define RESTORE_THREAD_DATA	THD_restore_specific()
+
+#endif /* !JRD_MAIN */
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+
+#endif /* JRD_JRD_H */
diff --git a/src/jrd/jrd_proto.h b/src/jrd/jrd_proto.h
new file mode 100644
index 0000000000..261aa6bb40
--- /dev/null
+++ b/src/jrd/jrd_proto.h
@@ -0,0 +1,164 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		jrd_proto.h
+ *	DESCRIPTION:	Prototype header file for jrd.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#ifndef JRD_JRD_PROTO_H
+#define JRD_JRD_PROTO_H
+
+/* included for the bid structure */
+#ifndef WIN_NT
+#include "../jrd/blb.h"
+#endif
+
+/* included for the svc structure */
+#ifndef WIN_NT
+#include "../jrd/svc.h"
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+extern STATUS DLL_EXPORT jrd8_attach_database(STATUS *, SSHORT, SCHAR *,
+											  struct att **, SSHORT, SCHAR *,
+											  SCHAR *);
+extern STATUS DLL_EXPORT jrd8_blob_info(STATUS *, struct blb **, SSHORT,
+										SCHAR *, SSHORT, SCHAR *);
+extern STATUS DLL_EXPORT jrd8_cancel_blob(STATUS *, struct blb **);
+extern STATUS DLL_EXPORT jrd8_cancel_events(STATUS *, struct att **, SLONG *);
+#ifdef CANCEL_OPERATION
+extern STATUS DLL_EXPORT jrd8_cancel_operation(STATUS *, struct att **,
+											   USHORT);
+#endif
+extern STATUS DLL_EXPORT jrd8_close_blob(STATUS *, struct blb **);
+extern STATUS DLL_EXPORT jrd8_commit_transaction(STATUS *, struct tra **);
+extern STATUS DLL_EXPORT jrd8_commit_retaining(STATUS *, struct tra **);
+extern STATUS DLL_EXPORT jrd8_compile_request(STATUS *, struct att **,
+											  struct req **, SSHORT, SCHAR *);
+extern STATUS DLL_EXPORT jrd8_create_blob2(STATUS *, struct att **,
+										   struct tra **, struct blb **,
+										   struct bid *, USHORT, UCHAR *);
+extern STATUS DLL_EXPORT jrd8_create_database(STATUS *, USHORT, UCHAR *,
+											  struct att **, USHORT, UCHAR *,
+											  USHORT, UCHAR *);
+extern STATUS DLL_EXPORT jrd8_database_info(STATUS *, struct att **, SSHORT,
+											SCHAR *, SSHORT, SCHAR *);
+extern STATUS DLL_EXPORT jrd8_ddl(STATUS *, struct att **, struct tra **,
+								  USHORT, SCHAR *);
+extern STATUS DLL_EXPORT jrd8_detach_database(STATUS *, struct att **);
+extern STATUS DLL_EXPORT jrd8_drop_database(STATUS *, struct att **);
+extern STATUS DLL_EXPORT jrd8_get_segment(STATUS *, struct blb **, USHORT *,
+										  USHORT, UCHAR *);
+extern STATUS DLL_EXPORT jrd8_get_slice(STATUS *, struct att **,
+										struct tra **, SLONG *, USHORT,
+										UCHAR *, USHORT, UCHAR *, SLONG,
+										UCHAR *, SLONG *);
+extern STATUS DLL_EXPORT jrd8_open_blob2(STATUS *, struct att **,
+										 struct tra **, struct blb **,
+										 struct bid *, USHORT, UCHAR *);
+extern STATUS DLL_EXPORT jrd8_prepare_transaction(STATUS *, struct tra **,
+												  USHORT, UCHAR *);
+extern STATUS DLL_EXPORT jrd8_put_segment(STATUS *, struct blb **, USHORT,
+										  UCHAR *);
+extern STATUS DLL_EXPORT jrd8_put_slice(STATUS *, struct att **,
+										struct tra **, SLONG *, USHORT,
+										UCHAR *, USHORT, UCHAR *, SLONG,
+										UCHAR *);
+extern STATUS DLL_EXPORT jrd8_que_events(STATUS *, struct att **, SLONG *,
+										 SSHORT, UCHAR *, FPTR_VOID, void *);
+extern STATUS DLL_EXPORT jrd8_receive(STATUS *, struct req **, USHORT, USHORT,
+									  SCHAR *, SSHORT);
+extern STATUS DLL_EXPORT jrd8_reconnect_transaction(STATUS *, struct att **,
+													struct tra **, SSHORT,
+													UCHAR *);
+extern STATUS DLL_EXPORT jrd8_release_request(STATUS *, struct req **);
+extern STATUS DLL_EXPORT jrd8_request_info(STATUS *, struct req **, SSHORT,
+										   SSHORT, SCHAR *, SSHORT, SCHAR *);
+extern STATUS DLL_EXPORT jrd8_rollback_transaction(STATUS *, struct tra **);
+extern STATUS DLL_EXPORT jrd8_rollback_retaining(STATUS *, struct tra **);
+extern STATUS DLL_EXPORT jrd8_seek_blob(STATUS *, struct blb **, SSHORT,
+										SLONG, SLONG *);
+extern STATUS DLL_EXPORT jrd8_send(STATUS *, struct req **, USHORT, USHORT,
+								   SCHAR *, SSHORT);
+extern STATUS DLL_EXPORT jrd8_service_attach(STATUS *, USHORT, SCHAR *,
+											 struct svc **, USHORT, SCHAR *);
+extern STATUS DLL_EXPORT jrd8_service_detach(STATUS *, struct svc **);
+extern STATUS DLL_EXPORT jrd8_service_query(STATUS *, struct svc **, ULONG *,
+											USHORT, SCHAR *, USHORT, SCHAR *,
+											USHORT, SCHAR *);
+extern STATUS DLL_EXPORT jrd8_service_start(STATUS *, struct svc **, ULONG *,
+											USHORT, SCHAR *);
+extern STATUS DLL_EXPORT jrd8_start_and_send(STATUS *, struct req **,
+											 struct tra **, USHORT, USHORT,
+											 SCHAR *, SSHORT);
+extern STATUS DLL_EXPORT jrd8_start_request(STATUS *, register struct req **,
+											register struct tra **, SSHORT);
+extern STATUS DLL_EXPORT jrd8_start_multiple(STATUS *, struct tra **, USHORT,
+											 struct teb *);
+extern STATUS DLL_EXPORT jrd8_start_transaction(STATUS *, struct tra **,
+												SSHORT, ...);
+extern STATUS DLL_EXPORT jrd8_transaction_info(STATUS *, struct tra **,
+											   SSHORT, SCHAR *, SSHORT,
+											   SCHAR *);
+extern STATUS DLL_EXPORT jrd8_transact_request(STATUS *, struct att **,
+											   struct tra **, USHORT, SCHAR *,
+											   USHORT, SCHAR *, USHORT,
+											   SCHAR *);
+extern STATUS DLL_EXPORT jrd8_unwind_request(STATUS *, struct req **, SSHORT);
+extern void jrd_vtof(const char*, char*, SSHORT);
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+extern void jrd_vtof2(SCHAR *, SCHAR *, SSHORT, USHORT);
+#endif
+
+#ifdef SERVER_SHUTDOWN
+/* Defines for paramater 3 of JRD_num_attachments */
+#define JRD_info_drivemask	1
+#define JRD_info_dbnames	2
+
+extern TEXT *JRD_num_attachments(TEXT *, USHORT, USHORT, USHORT *, USHORT *);
+extern ULONG JRD_shutdown_all();
+#endif /* SERVER_SHUTDOWN */
+
+extern void JRD_set_cache_default(ULONG *);
+extern void JRD_blocked(struct att *, struct btb **);
+extern void JRD_mutex_lock(struct mutx_t *);
+extern void JRD_mutex_unlock(struct mutx_t *);
+extern BOOLEAN JRD_reschedule(struct tdbb *, SLONG, BOOLEAN);
+extern void JRD_restore_context(void);
+extern void JRD_set_context(struct tdbb *);
+extern void JRD_unblock(struct btb **);
+extern void JRD_wlck_lock(struct mutx_t *);
+extern void JRD_wlck_unlock(struct mutx_t *);
+
+#ifdef SUPERSERVER
+extern void JRD_print_all_counters(TEXT *);
+extern USHORT JRD_getdir(TEXT *, USHORT);
+#endif
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_JRD_PROTO_H */
diff --git a/src/jrd/jrd_ver.h b/src/jrd/jrd_ver.h
new file mode 100644
index 0000000000..3c8b4c52ad
--- /dev/null
+++ b/src/jrd/jrd_ver.h
@@ -0,0 +1,29 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+/*
+ *      PROGRAM:        JRD access method
+ *      MODULE:         jrd_ver.h
+ *      DESCRIPTION:    Resources
+ *
+ * copyright (c) 1995 by Borland International
+ */
+
+#define SWEEP_CURSOR    8888
diff --git a/src/jrd/jrd_ver.rc b/src/jrd/jrd_ver.rc
new file mode 100644
index 0000000000..c2323d6d53
--- /dev/null
+++ b/src/jrd/jrd_ver.rc
@@ -0,0 +1,23 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "../jrd/jrd_ver.h"
+#include "../jrd/version.rc"
+
+SWEEP_CURSOR CURSOR LOADONCALL MOVEABLE NONDISCARDABLE "sweep.cur"
+
diff --git a/src/jrd/jrn.cpp b/src/jrd/jrn.cpp
new file mode 100644
index 0000000000..bcf0e7362d
--- /dev/null
+++ b/src/jrd/jrn.cpp
@@ -0,0 +1,1234 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		jrn.c
+ *	DESCRIPTION:	Journalling interface for database system.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef SHLIB_DEFS
+#define LOCAL_SHLIB_DEFS
+#endif
+
+#include "../jrd/time.h"
+#include "../jrd/common.h"
+#include <string.h>
+#include <stdlib.h>
+
+#ifdef UNIX
+#define UNIX_JOURNALLING
+#define BSD_SOCKETS
+#define SYS_ERROR	gds_arg_unix
+#endif
+
+#ifndef status_t
+#define status_t	int
+#endif
+
+#ifdef NETWARE_386
+#define NETWARE_JOURNALLING
+#define BSD_SOCKETS
+#define EINTR		0
+#define SYS_ERROR       gds_arg_dos
+#endif
+
+#ifdef VMS
+#define SYS_ERROR	gds_arg_vms
+#endif
+
+#ifdef WIN_NT
+#include <windows.h>
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT		SCHAR
+#define SYS_ERROR	gds_arg_win32
+#endif
+
+#ifdef BSD_SOCKETS
+#include "../jrd/ib_stdio.h"
+#include <fcntl.h>
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <errno.h>
+#endif
+
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/ods.h"
+#include "../jrd/jrn.h"
+#include "../jrd/iberr_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/jrn_proto.h"
+
+static int do_connect(JRN *, STATUS *, TEXT *, USHORT, LTJC *, USHORT,
+					  UCHAR *, USHORT, USHORT);
+static void error(STATUS *, JRN, int, TEXT *);
+static int find_address(STATUS *, JRN, struct sockaddr_in *);
+static int get_reply(STATUS *, JRN, JRNR *);
+static int journal_close(STATUS *, JRN);
+static int jrn_put(STATUS *, JRN, JRNH *, USHORT, UCHAR *, USHORT);
+static int retry_connect(STATUS *, JRN *, TEXT *, USHORT, LTJC *, USHORT,
+						 UCHAR *, USHORT);
+
+#ifdef SHLIB_DEFS
+#define strlen		(*_libgds_strlen)
+#define strcpy		(*_libgds_strcpy)
+#define errno		(*_libgds_errno)
+#define ib_fopen		(*_libgds_fopen)
+#define ib_fclose		(*_libgds_fclose)
+#define close		(*_libgds_close)
+#define ib_fscanf		(*_libgds_fscanf)
+#define connect		(*_libgds_connect)
+#define send		(*_libgds_send)
+#define socket		(*_libgds_socket)
+#define recv		(*_libgds_recv)
+#define sleep		(*_libgds_sleep)
+#define memcpy		(*_libgds_memcpy)
+
+extern int strlen();
+extern SCHAR *strcpy();
+extern int errno;
+extern IB_FILE *ib_fopen();
+extern int ib_fclose();
+extern int close();
+extern int ib_fscanf();
+extern int connect();
+extern int send();
+extern int socket();
+extern int recv();
+extern uint sleep();
+#ifndef IMP
+extern void *memcpy();
+#else
+extern SCHAR *memcpy();
+#endif
+#endif
+
+
+/*************************************************************************
+Error Handling:
+*	The error handling has been changed for journal routines.  The
+*	routines now require a status vector and a journal handle to be
+*	passed in for all calls.  The error is returned via the status
+*	vector.  The caller has to call the appropriate error routine.
+*	In case of jrd -
+*
+* Return values:
+*	SUCCESS	- everything is fine.
+*	FAILURE - typically some kind of OS error.
+*	< 0	- BUGCHECK errors, unexpected values.
+*	> 1	- ERROR conditions.
+*************************************************************************
+*/
+
+
+int JRN_archive_begin(
+					  STATUS * status_vector,
+					  JRN * ret_journal,
+					  SLONG db_id,
+					  SLONG file_id, TEXT * journal_name, USHORT j_length)
+{
+/**************************************
+ *
+ *	J R N _ a r c h i v e _ b e g i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sign on with the journal server for starting archive
+ * Returns:
+ *	journal descriptor in ret_journal.
+ *	SUCCESS/FAILURE/BUGCHECK/ERROR.
+ *
+ **************************************/
+	LTJA record;
+
+	*ret_journal = (JRN) NULL;
+
+	record.ltja_header.jrnh_type = JRN_ARCHIVE_BEGIN;
+	record.ltja_db_id = db_id;
+	record.ltja_file_id = file_id;
+	record.ltja_error_code = 0;
+	record.ltja_length = 0;
+
+/* Establish contact with the journal server */
+
+	return retry_connect(status_vector, ret_journal, journal_name, j_length,
+						 (LTJC *) & record, LTJA_SIZE, (UCHAR *) 0, 0);
+}
+
+
+int JRN_archive_end(
+					STATUS * status_vector,
+					JRN * ret_journal, SLONG db_id, SLONG file_id)
+{
+/**************************************
+ *
+ *	J R N _ a r c h i v e _ e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sign off with the journal server after archive
+ * Returns:
+ *	SUCCESS/FAILURE/BUGCHECK/ERROR.
+ *
+ **************************************/
+	LTJA record;
+	JRN journal;
+	int ret_val;
+
+	journal = *ret_journal;
+	*ret_journal = (JRN) NULL;
+
+/* If there is either a null journal block or
+   a zero channel, there is no connection to
+   server */
+
+	if (!(journal))
+		return SUCCESS;
+
+	if (!journal->jrn_channel) {
+		gds__free(journal);
+		return SUCCESS;
+	}
+
+	record.ltja_header.jrnh_type = JRN_ARCHIVE_END;
+	record.ltja_db_id = db_id;
+	record.ltja_file_id = file_id;
+	record.ltja_error_code = 0;
+	record.ltja_length = 0;
+
+	if (
+		(ret_val =
+		 jrn_put(status_vector, journal, (JRNH *) & record, LTJA_SIZE,
+				 (UCHAR *) 0, 0)) != SUCCESS)
+		return ret_val;
+
+	if ((ret_val = journal_close(status_vector, journal)) != SUCCESS)
+		return ret_val;
+
+/* Free up the space */
+
+	gds__free(journal);
+
+	return SUCCESS;
+}
+
+
+int JRN_archive_error(
+					  STATUS * status_vector,
+					  JRN * ret_journal,
+					  SLONG db_id, SLONG file_id, SLONG error_code)
+{
+/**************************************
+ *
+ *	J R N _ a r c h i v e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sign off with the journal server after an error during archive
+ * Returns:
+ *	SUCCESS/FAILURE/BUGCHECK/ERROR.
+ *
+ **************************************/
+	LTJA record;
+	JRN journal;
+	int ret_val;
+
+	journal = *ret_journal;
+	*ret_journal = (JRN) NULL;
+
+	if (!(journal))
+		return SUCCESS;
+
+	if (!journal->jrn_channel) {
+		gds__free(journal);
+		return SUCCESS;
+	}
+
+	record.ltja_header.jrnh_type = JRN_ARCHIVE_ERROR;
+	record.ltja_db_id = db_id;
+	record.ltja_file_id = file_id;
+	record.ltja_error_code = error_code;
+	record.ltja_length = 0;
+
+	if (
+		(ret_val =
+		 jrn_put(status_vector, journal, (JRNH *) & record, LTJA_SIZE,
+				 (UCHAR *) 0, 0)) != SUCCESS)
+		return ret_val;
+
+	if ((ret_val = journal_close(status_vector, journal)) != SUCCESS)
+		return ret_val;
+
+/* Free up the space */
+
+	gds__free(journal);
+
+	return SUCCESS;
+}
+
+
+int JRN_disable(
+				STATUS * status_vector,
+				JRN journal, JRNH * header, UCHAR * data, USHORT d_len)
+{
+/**************************************
+ *
+ *	J R N _ d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ * 	Journal server entry should be delete from header page before this.  
+ *	Disable journalling, if enabled.
+ *
+ **************************************/
+
+	if (journal->jrn_channel)
+		return jrn_put(status_vector, journal, header, LTJC_SIZE, data,
+					   d_len);
+
+	return SUCCESS;
+}
+
+
+void JRN_dump_page(void)
+{
+/**************************************
+ *
+ *	J R N _ d u m p _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a page to the journal.  If necessary, fetch it.
+ *
+ **************************************/
+
+/* Stub function for now */
+}
+
+
+int JRN_enable(
+			   STATUS * status_vector,
+			   JRN * ret_journal,
+			   TEXT * journal_name,
+			   USHORT j_length, UCHAR * data, USHORT d_len, LTJC * control)
+{
+/**************************************
+ *
+ *	J R N _ e n a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enable journalling for the database.
+ * Returns	
+ *	journal descriptor in ret_journal.
+ *	SUCCESS/FAILURE/BUGCHECK/ERROR.
+ *
+ **************************************/
+
+	return retry_connect(status_vector, ret_journal, journal_name, j_length,
+						 control, LTJC_SIZE, data, d_len);
+}
+
+
+int JRN_fini(STATUS * status_vector, JRN * jrn)
+{
+/**************************************
+ *
+ *	J R N _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check out with journal system.
+ *
+ **************************************/
+	LTJC record;
+	JRN journal;
+	int ret_val;
+
+	journal = *jrn;
+	*jrn = (JRN) NULL;
+
+/* If there is either a null journal block or
+   a zero channel, there is no connection to
+   server */
+
+	if (!(journal))
+		return SUCCESS;
+
+	if (!journal->jrn_channel) {
+		gds__free(journal);
+		return SUCCESS;
+	}
+
+/* Send a signoff record */
+
+	record.ltjc_header.jrnh_type = JRN_SIGN_OFF;
+	record.ltjc_length = 0;
+
+	if (
+		(ret_val =
+		 jrn_put(status_vector, journal, (JRNH *) & record, LTJC_SIZE,
+				 (UCHAR *) 0, 0)) != SUCCESS)
+		return ret_val;
+
+/* Read reply.  This will fail since the server will break the connection.
+   Don't worry about it. */
+
+	if ((ret_val = journal_close(status_vector, journal)) != SUCCESS)
+		return ret_val;
+
+/* Free up the space */
+
+	gds__free(journal);
+
+	return SUCCESS;
+}
+
+
+int JRN_init(
+			 STATUS * status_vector,
+			 JRN * ret_journal,
+			 USHORT page_size,
+			 UCHAR * journal_dir, USHORT jd_len, UCHAR * data, USHORT d_len)
+{
+/**************************************
+ *
+ *	J R N _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the journalling system.  
+ *	If journal directory is specified, set up a connection to the 
+ *	journal server.
+ * Returns:
+ *	journal descriptor in ret_journal.
+ *	SUCCESS/FAILURE/BUGCHECK/ERROR.
+ *
+ **************************************/
+	TEXT server_name[MAX_PATH_LENGTH];
+	LTJC control;
+
+	if (!journal_dir) {
+		*ret_journal = (JRN) NULL;
+		return FAILURE;
+	}
+
+	memcpy(server_name, journal_dir, jd_len);
+
+	server_name[jd_len] = 0;
+
+	control.ltjc_header.jrnh_type = JRN_SIGN_ON;
+	control.ltjc_page_size = page_size;
+	control.ltjc_seqno = 0;
+	control.ltjc_offset = 0;
+	control.ltjc_length = d_len;
+
+/* Establish contact with the journal server */
+
+	return retry_connect(status_vector, ret_journal, server_name, jd_len,
+						 &control, LTJC_SIZE, data, d_len);
+}
+
+
+void JRN_make_init_data(
+						UCHAR * data,
+						SSHORT * ret_len,
+						UCHAR * db_name,
+						USHORT db_len, UCHAR * backup_dir, USHORT b_length)
+{
+/**************************************
+ *
+ *	J R N _ m a k e _ i n i t _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Encode the database and backup information into a string.
+ *	Returns the length of the string.
+ *
+ **************************************/
+	UCHAR *q, *t;
+	int len;
+
+	t = data;
+
+	if (len = b_length) {
+		*t++ = gds_dpb_wal_backup_dir;
+		assert(b_length <= MAX_UCHAR);
+		*t++ = (UCHAR) b_length;
+		q = backup_dir;
+		do
+			*t++ = *q++;
+		while (--len);
+	}
+
+	if (len = db_len) {
+		*t++ = JRNW_DB_NAME;
+		assert(db_len <= MAX_UCHAR);
+		*t++ = (UCHAR) db_len;
+		q = db_name;
+		do
+			*t++ = *q++;
+		while (--len);
+	}
+	*t++ = JRNW_END;
+
+	*ret_len = t - data;
+}
+
+
+int JRN_put_wal_name(
+					 STATUS * status_vector,
+					 JRN journal,
+					 TEXT * walname,
+					 USHORT w_length,
+SLONG seqno, SLONG offset, SLONG p_offset, USHORT mode)
+{
+/**************************************
+ *
+ *	J R N _ p u t _ w a l _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put in WAL file name to the journal server.
+ *	mode is used for JRN_WAL_FILE (JRNW_OPEN/JRNW_CLOSE)
+ * Input Params:
+ *	status_vector 
+ *	journal		- journal descriptor
+ *	walname, w_length -	wal file name and length
+ *	seqno, offset	- seqno/offset pair
+ *	p_offset	- partition offset
+ *	mode		- mode of operation open/close of file
+ * Returns:
+ *	SUCCESS/FAILURE/BUGCHECK/ERROR.
+ *
+ **************************************/
+
+	return JRN_put_wal_info(status_vector, journal, walname, w_length, seqno,
+							offset, p_offset, mode, 1, (USHORT *) 0,
+							JRN_WAL_NAME);
+}
+
+
+int JRN_put_old_start(
+					  STATUS * status_vector,
+					  JRN journal,
+					  SLONG seqno,
+					  SLONG offset, SLONG p_offset, USHORT * dump_id)
+{
+/**************************************
+ *
+ *	J R N _ p u t _ o l d _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put in Online Dump information
+ * Input Params:
+ *	status_vector 
+ *	journal		- journal descriptor
+ *	seqno, offset	- seqno/offset pair.
+ *	p_offset	- partition offset
+ *	dump_id		- address of dump id.
+ * Returns:
+ *	SUCCESS/FAILURE/BUGCHECK/ERROR.
+ *	For start online dump, returns the dump id.
+ *
+ **************************************/
+
+	return JRN_put_wal_info(status_vector, journal, (TEXT *) 0, 0, seqno,
+							offset, p_offset, 0, 0, dump_id,
+							JRN_START_ONLINE_DMP);
+}
+
+
+int JRN_put_old_end(
+					STATUS * status_vector,
+					JRN journal,
+					SLONG seqno, SLONG offset, SLONG p_offset, USHORT dump_id)
+{
+/**************************************
+ *
+ *	J R N _ p u t _ o l d _ e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put in Online Dump information
+ * Input Params:
+ *	status_vector 
+ *	journal		- journal descriptor
+ *	seqno, offset	- BSN of a wal record (0 if not needed)
+ *	p_offset	- partition offset
+ *	dump_id		- id of dump.
+ * Returns:
+ *	SUCCESS/FAILURE/BUGCHECK/ERROR.
+ **************************************/
+
+	return JRN_put_wal_info(status_vector, journal, (TEXT *) 0, 0, seqno,
+							offset, p_offset, dump_id, 0, (USHORT *) 0,
+							JRN_END_ONLINE_DMP);
+}
+
+
+int JRN_put_old_file(
+					 STATUS * status_vector,
+					 JRN journal,
+					 TEXT * old_file_name,
+					 USHORT file_length,
+SLONG file_size, USHORT file_seqno, USHORT dump_id)
+{
+/**************************************
+ *
+ *	J R N _ p u t _ o l d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put in online dump file information.
+ * Input Params:
+ *	status_vector 
+ *	journal		- journal descriptor
+ *	old_file_name, file_length -	file name and name length
+ *	file_size	- file size.
+ *	file_count	- sequence number of file.
+ *	dump_id		- id of dump.
+ * Returns:
+ *	SUCCESS/FAILURE/BUGCHECK/ERROR.
+ *	For start online dump, returns the dump id.
+ *
+ **************************************/
+
+	return JRN_put_wal_info(status_vector, journal, old_file_name,
+							file_length, (SLONG) 0, file_size, (SLONG) 0,
+							dump_id, file_seqno, (USHORT *) 0,
+							JRN_ONLINE_DMP_FILE);
+}
+
+
+int JRN_put_wal_info(
+					 STATUS * status_vector,
+					 JRN journal,
+					 TEXT * walname,
+					 USHORT w_length,
+SLONG seqno,
+SLONG offset,
+SLONG p_offset, USHORT mode, USHORT file_count, USHORT * dump_id, USHORT type)
+{
+/**************************************
+ *
+ *	J R N _ p u t _ w a l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put in some kind of WAL info (Control point, New WAL file etc)
+ *	mode is used for JRN_WAL_FILE (=JRNW_OPEN)
+ * Input Params:
+ *	status_vector 
+ *	journal		- journal descriptor
+ *	walname, w_length -	wal file name and length
+ *	seqno, offset	- BSN of a wal record (0 if not needed)
+ *	p_offset	- partition offset
+ *	mode		- mode of operation open/close of file
+ *	file_count	- number of files (for start online dump )
+ *	type		- type of record (JRN_WAL_NAME/JRN_CNTRL_PT etc.)
+ *			  JNR_START_ONLINE_DMP/JRN_ONLINE_DUMP_FILE
+ * Returns:
+ *	SUCCESS/FAILURE/BUGCHECK/ERROR.
+ *	For start online dump, returns the dump id.
+ *
+ **************************************/
+	LTJW jrnwal;
+	struct jrnr reply;
+	int ret_val;
+
+	assert(type <= MAX_UCHAR);
+
+	jrnwal.ltjw_header.jrnh_type = (UCHAR) type;
+	jrnwal.ltjw_mode = mode;
+	jrnwal.ltjw_seqno = seqno;
+	jrnwal.ltjw_offset = offset;
+	jrnwal.ltjw_p_offset = p_offset;
+	jrnwal.ltjw_count = file_count;
+	jrnwal.ltjw_length = w_length;
+
+	if ((ret_val = jrn_put(status_vector, journal, (JRNH *) & jrnwal,
+						   LTJW_SIZE, (UCHAR *) walname,
+						   w_length)) != SUCCESS) return ret_val;
+
+#ifndef VMS
+	if ((ret_val = get_reply(status_vector, journal, &reply)) != SUCCESS)
+		return ret_val;
+
+	switch (reply.jrnr_response) {
+	case jrnr_ack:
+		break;
+
+	case jrnr_start_dump:
+
+		if (dump_id)
+			*dump_id = (USHORT) reply.jrnr_page;
+		break;
+
+	case jrnr_end_dump:
+		break;
+
+	default:
+		return (-170);			/* msg 170 unexpected reply from journal server */
+	}
+#endif
+
+	return SUCCESS;
+}
+
+
+void JRN_sync(void)
+{
+/**************************************
+ *
+ *	J R N _ s y n c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Synchronize with the journal -- wait until all bits have
+ *	been flushed to oxide.
+ *
+ **************************************/
+
+/* stub function for now */
+}
+
+
+static int do_connect(
+					  JRN * ret_jrn,
+					  STATUS * status_vector,
+					  TEXT * journal_name,
+					  USHORT j_length,
+LTJC * control,
+USHORT control_length, UCHAR * data, USHORT d_length, USHORT retry)
+{
+/**************************************
+ *
+ *	d o _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to a journal server and get response.  Return the journal
+ *	block.
+ * Returns
+ *	SUCCESS/FAILURE/BUGCHECK/ERROR.
+ *
+ **************************************/
+#ifdef BSD_SOCKETS
+	struct sockaddr_in address;
+#endif
+	TEXT *p, *q, name[MAX_PATH_LENGTH];
+	SSHORT l;
+	JRN journal;
+	struct jrnr reply;
+#ifdef BSD_SOCKETS
+	int loop;
+#endif
+	int ret_val;
+
+
+/* Make sure we don't return a bogus journal handle */
+
+	*ret_jrn = NULL;
+
+/* Start by copying file name */
+
+	p = name;
+
+#ifdef WIN_NT
+	strcpy(p, "\\\\.\\pipe");
+	p += strlen(p);
+	if (!j_length || (*journal_name != '/' && *journal_name != '\\'))
+		*p++ = '\\';
+#endif
+
+	q = journal_name;
+	if (l = j_length)
+		do
+			*p++ = *q++;
+		while (--l);
+
+/* Generate connect string */
+
+#ifdef UNIX_JOURNALLING
+	if (j_length && p[-1] != '/')
+		*p++ = '/';
+	strcpy(p, JOURNAL_ADDR);
+#endif
+
+#ifdef NETWARE_JOURNALLING
+	for (q = name; q < p; q++)
+		if (*q == '/')
+			*q = '\\';
+	if (p[-1] != '\\')
+		*p++ = '\\';
+	strcpy(p, JOURNAL_ADDR);
+#endif
+
+#ifdef VMS
+	if (j_length && p[-1] != ':' && p[-1] != ']')
+		*p++ = ':';
+	strcpy(p, JOURNAL_FILE);
+#endif
+
+#ifdef WIN_NT
+	for (q = name; q < p; q++)
+		if (*q == ':')
+			*q = '_';
+		else if (*q == '/')
+			*q = '\\';
+	if (p[-1] != '\\')
+		*p++ = '\\';
+	strcpy(p, JOURNAL_FILE);
+#endif
+
+/* Make up the block */
+
+	l = strlen(name);
+
+	journal = (JRN) gds__alloc((SLONG) ((sizeof(struct jrn)) + l));
+/* FREE: by error returns from this module, otherwise by JRN_fini & friends */
+	if (!journal) {				/* NOMEM: */
+		error(status_vector, NULL, 0, "gds__alloc");
+		return FAILURE;
+	}
+
+	strcpy(journal->jrn_server, name);
+
+#ifdef BSD_SOCKETS
+	for (loop = 0; loop < 20; loop++) {
+		for (;;) {
+			journal->jrn_channel = (int *) socket(AF_INET, SOCK_STREAM, 0);
+			if ((int) journal->jrn_channel != -1)
+				break;
+			if (!SYSCALL_INTERRUPTED(errno)) {
+				error(status_vector, journal, errno, "socket");
+				gds__free(journal);
+				return FAILURE;
+			}
+		}
+
+		/* Zero out the structure */
+
+		p = (TEXT *) & address;
+		l = sizeof(address);
+		do
+			*p++ = 0;
+		while (--l);
+
+		if ((ret_val = find_address(status_vector, journal, &address)) !=
+			SUCCESS) {
+			gds__free(journal);
+			return ret_val;
+		}
+
+		if (!connect((int) journal->jrn_channel, &address, sizeof(address)))
+			break;
+
+		sleep(3);
+
+		if (loop < 16) {
+			close((int) journal->jrn_channel);
+			continue;
+		}
+		if (!SYSCALL_INTERRUPTED(errno)) {
+			if (retry) {
+				close((int) journal->jrn_channel);
+				gds__free(journal);
+				*ret_jrn = (JRN) NULL;
+				return SUCCESS;
+			}
+			error(status_vector, journal, errno, "connect (journal server)");
+			gds__free(journal);
+			return FAILURE;
+		}
+		close((int) journal->jrn_channel);
+	}
+#endif
+
+#ifdef VMS
+	journal->jrn_status_vector = status_vector;
+	JIO_open(journal);
+#endif
+
+#ifdef WIN_NT
+	journal->jrn_channel = (int *) CreateFile(journal->jrn_server,
+											  GENERIC_READ | GENERIC_WRITE,
+											  0,
+											  NULL, OPEN_EXISTING, 0, NULL);
+	if (journal->jrn_channel == INVALID_HANDLE_VALUE) {
+		error(status_vector, journal, GetLastError(), "CreateFile");
+		gds__free(journal);
+		return FAILURE;
+	}
+#endif
+
+/* Send an enable message */
+
+	if ((ret_val = jrn_put(status_vector, journal, (JRNH *) control,
+						   control_length, data, d_length)) != SUCCESS) {
+		gds__free(journal);
+		return ret_val;
+	}
+
+
+#ifndef VMS
+	if ((ret_val = get_reply(status_vector, journal, &reply)) != SUCCESS) {
+		gds__free(journal);
+		return ret_val;
+	}
+
+	journal->jrn_handle = reply.jrnr_header.jrnh_handle;
+
+	if (reply.jrnr_header.jrnh_version != JOURNAL_VERSION) {
+		gds__free(journal);
+		return (171);			/* msg 171 journal server is incompatible version */
+	}
+
+	switch (reply.jrnr_response) {
+	case jrnr_accepted:
+	case jrnr_enabled:
+		break;
+
+	case jrnr_archive_error:
+		gds__free(journal);
+		return (282);
+
+	case jrnr_rejected:
+		gds__free(journal);
+		return (172);			/* msg 172 journal server refused connection */
+
+	default:
+		if (retry)
+		{
+#ifdef BSD_SOCKETS
+			close((int) journal->jrn_channel);
+#endif
+
+#ifdef WIN_NT
+			CloseHandle((HANDLE) journal->jrn_channel);
+#endif
+			gds__free(journal);
+			*ret_jrn = (JRN) NULL;
+			return SUCCESS;
+		}
+		gds__free(journal);
+		return (-170);			/* msg 170 unexpected reply from journal server */
+	}
+#endif
+
+	*ret_jrn = journal;
+
+	return SUCCESS;
+}
+
+
+static void error(
+				  STATUS * status_vector,
+				  JRN journal, status_t status, TEXT * string)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An operating system error occurred somewhere.
+ *	Fill up the status vector.
+ *
+ **************************************/
+
+	IBERR_build_status(status_vector,
+					   gds_sys_request,
+					   gds_arg_string,
+					   string,
+					   SYS_ERROR,
+					   status,
+					   gds_arg_gds,
+					   gds_journerr,
+					   gds_arg_string,
+					   (journal) ? journal->jrn_server : "", 0);
+}
+
+
+#ifdef BSD_SOCKETS
+static int find_address(
+						STATUS * status_vector,
+						JRN journal, struct sockaddr_in *address)
+{
+/**************************************
+ *
+ *	f i n d _ a d d r e s s		( U N I X   &   N E T W A R E )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the socket address established by the server by
+ *	looking in the designated files.
+ *
+ **************************************/
+	IB_FILE *file;
+	SLONG addr, family, port, version;
+	TEXT *filename;
+
+	filename = journal->jrn_server;
+
+	if (!(file = ib_fopen(filename, "r"))) {
+		error(status_vector, journal, errno, "ib_fopen");
+		return FAILURE;
+	}
+
+	if (ib_fscanf(file, "%ld %ld %ld %ld", &version, &addr, &family, &port) !=
+		4) {
+		error(status_vector, journal, 0, "journal socket file format");
+		return FAILURE;
+	}
+	ib_fclose(file);
+
+	if (version != JOURNAL_VERSION) {
+		error(status_vector, journal, 0, " address version");
+		return FAILURE;
+	}
+
+	address->sin_addr.s_addr = addr;
+	address->sin_family = family;
+	address->sin_port = port;
+
+	return SUCCESS;
+}
+#endif
+
+
+static int get_reply(STATUS * status_vector, JRN journal, JRNR * reply)
+{
+/**************************************
+ *
+ *	g e t _ r e p l y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get reply from database.
+ *
+ **************************************/
+	SLONG l;
+
+#ifdef BSD_SOCKETS
+/*  If the recv call is interrupted, another process is in contention
+    with us, so keep trying until successful.  */
+
+	do {
+		l = recv((int) journal->jrn_channel, reply, sizeof(struct jrnr), 0);
+	} while (l < 0 && SYSCALL_INTERRUPTED(errno));
+
+	if (l < 0) {
+		error(status_vector, journal, errno, "socket recv");
+		return FAILURE;
+	}
+#endif
+
+#ifdef WIN_NT
+	if (!ReadFile((HANDLE) journal->jrn_channel,
+				  reply,
+				  sizeof(struct jrnr),
+				  reinterpret_cast < DWORD * >(&l),
+				  NULL) || l != sizeof(struct jrnr)) {
+		error(status_vector, journal, GetLastError(), "ReadFile");
+		return FAILURE;
+	}
+#endif
+
+	return SUCCESS;
+}
+
+
+static int journal_close(STATUS * status_vector, JRN journal)
+{
+/**************************************
+ *
+ *	j o u r n a l _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close network connection
+ *	Has to be valid handle.
+ *
+ **************************************/
+
+#ifdef BSD_SOCKETS
+	if (close((int) journal->jrn_channel) < 0) {
+		error(status_vector, journal, errno, "close");
+		return FAILURE;
+	}
+#endif
+
+#ifdef VMS
+	journal->jrn_status_vector = status_vector;
+	JIO_fini(journal);
+#endif
+
+#ifdef WIN_NT
+	CloseHandle((HANDLE) journal->jrn_channel);
+#endif
+
+	return SUCCESS;
+}
+
+
+static int jrn_put(
+				   STATUS * status_vector,
+				   JRN journal,
+				   JRNH * header,
+				   USHORT h_length, UCHAR * data, USHORT d_length)
+{
+/**************************************
+ *
+ *	j r n _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a journal record.
+ *
+ **************************************/
+	USHORT length;
+	SLONG l;
+	UCHAR *p, *q;
+	UCHAR buffer[MAX_RECORD];
+
+/* Prepare journal message for sending */
+
+	length = h_length + d_length;
+	header->jrnh_handle = journal->jrn_handle;
+	header->jrnh_length = length;
+	header->jrnh_series = journal->jrn_series;
+	header->jrnh_version = JOURNAL_VERSION;
+
+	header->jrnh_prev_seqno = 0;
+	header->jrnh_prev_offset = 0;
+
+/* Concatenate header and data.  This is boring but necessary. */
+
+	p = buffer;
+	q = (UCHAR *) header;
+	do
+		*p++ = *q++;
+	while (--h_length);
+
+	if (d_length)
+		do
+			*p++ = *data++;
+		while (--d_length);
+
+/* Send message */
+
+#ifdef BSD_SOCKETS
+/*  If the send call is interrupted, another process is in contention
+    with us, so keep trying until successful.  */
+/*  In case of NETWARE, send call would not be interrupted because
+    of contention.  Since EINTR has been defined as 0, the code below
+    would work for NETWARE. */
+
+	do {
+		l = send((int) journal->jrn_channel, buffer, (int) length, 0);
+	} while (l < 0 && SYSCALL_INTERRUPTED(errno));
+
+	if (l < 0) {
+		error(status_vector, journal, errno, "journal send");
+		return FAILURE;
+	}
+
+	if (l != length) {
+		error(status_vector, journal, 0, "journal send truncated");
+		return FAILURE;
+	}
+#endif
+
+#ifdef VMS
+	journal->jrn_status_vector = status_vector;
+	JIO_put(journal, buffer, length);
+#endif
+
+#ifdef WIN_NT
+	if (!WriteFile
+		((HANDLE) journal->jrn_channel, buffer, (SLONG) length,
+		 reinterpret_cast < DWORD * >(&l), NULL) || l != length) {
+		error(status_vector, journal, GetLastError(), "WriteFile");
+		return FAILURE;
+	}
+#endif
+
+	return SUCCESS;
+}
+
+
+static int retry_connect(
+						 STATUS * status_vector,
+						 JRN * journal,
+						 TEXT * journal_name,
+						 USHORT j_length,
+LTJC * control, USHORT control_length, UCHAR * data, USHORT d_length)
+{
+/**************************************
+ *
+ *      r e t r y _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Wrapper around do_connect ().  Tries to connect 5 times.
+ *	If SUCCESS and journal handle is still null, keep trying.
+ *
+ **************************************/
+	SSHORT count;
+	int ret_val;
+
+	for (count = 4; count >= 0; count--) {
+		if ((ret_val = do_connect(journal, status_vector, journal_name,
+								  j_length, control, control_length, data,
+								  d_length, count)) != SUCCESS)
+			return ret_val;
+
+		if (*journal != (JRN) NULL)
+			break;
+	}
+
+	return SUCCESS;
+}
diff --git a/src/jrd/jrn.h b/src/jrd/jrn.h
new file mode 100644
index 0000000000..9fc0387ece
--- /dev/null
+++ b/src/jrd/jrn.h
@@ -0,0 +1,397 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		jrn.h
+ *	DESCRIPTION:	Journal interface definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_JRN_H_
+#define _JRD_JRN_H_
+
+#define MAX_RECORD		9000
+#define JOURNAL_VERSION3	3
+#define JOURNAL_VERSION4	4
+
+#define JOURNAL_VERSION 	JOURNAL_VERSION4
+
+#define CONSOLE_ADDR	"console.addr"	/* socket address for console */
+#define JOURNAL_ADDR	"journal.addr"	/* socket address for journal */
+
+#ifndef JOURNAL_FILE
+#define JOURNAL_FILE	"journal.isc"
+#define CONSOLE_FILE	"console.isc"
+#endif
+
+/* Journal block */
+
+typedef struct jrn {
+	struct blk jrn_header;
+	STATUS *jrn_status_vector;	/* Status vector for errors */
+	int *jrn_channel;			/* Communication channel */
+	int jrn_iri;				/* RMS internal RAB id */
+	SLONG jrn_lock_id;			/* Controlling lock id */
+	SLONG jrn_handle;			/* Server handle */
+	SLONG jrn_series;			/* Journal file series */
+	SLONG jrn_dump;				/* page to be dumped (-1 -> dump database) */
+	USHORT jrn_fid[3];			/* VMS file id */
+	USHORT jrn_did[3];			/* VMS directory id */
+	TEXT jrn_server[1];			/* Server name */
+} *JRN;
+
+/* Journal record types */
+
+#define JRN_ENABLE		1		/* Enable journalling */
+#define JRN_DISABLE		2		/* Disable journalling */
+#define JRN_SIGN_ON		3		/* Database attachment coming on line */
+#define JRN_SIGN_OFF		4	/* Database being detached */
+#define JRN_CNTRL_PT            5	/* Control point        */
+#define JRN_WAL_NAME            6	/* WAL FILE name */
+#define JRN_NEW_FILE            7	/* New secondary FILE name */
+#define JRN_ACK			8		/* Anybody home? */
+#define JRN_RESPONSE		9	/* Response to control message */
+#define JRN_SET_TRANSACTION	10	/* Set transaction state */
+#define JRN_DUMMY		11		/* Dummy record -- space not used */
+#define JRN_RESET		12		/* Journal file has been reset */
+#define JRN_COMMIT		13		/* Commit control message */
+#define JRN_CONSOLE		14		/* Console message */
+#define JRN_SYNC		15		/* Synchronize journal */
+#define JRN_START_ONLINE_DMP	16
+#define JRN_END_ONLINE_DMP	17
+#define JRN_ONLINE_DMP_FILE	18
+#define JRN_ARCHIVE_BEGIN	19
+#define JRN_ARCHIVE_END		20
+#define JRN_ARCHIVE_ERROR	21
+#define JRN_max			21
+
+#define JRN_PAGE		100		/* A full page WAL record */
+
+/* Journal data clumplets.  Note: types above 100 are clumps of data */
+
+#define JRNP_DATA_SEGMENT	101	/* Add segment to data page */
+#define JRNP_POINTER_SLOT	102	/* Add pointer page to relation */
+#define JRNP_TRANSACTION	103	/* Journal transaction state */
+#define JRNP_NULL		104		/* Odd byte */
+#define JRNP_PIP		105		/* Page allocation/deallocation */
+
+#define JRNP_BTREE_NODE         106	/* Add/delete a node to BTREE */
+#define JRNP_BTREE_SEGMENT      107	/* B Tree split - valid part */
+#define JRNP_BTREE_DELETE       108	/* B Tree node delete - logical */
+#define JRNP_INDEX_ROOT         109	/* Add/drop an index    */
+#define JRNP_DB_HEADER          110	/* Modify db header page */
+#define JRNP_GENERATOR          111	/* generator            */
+#define JRNP_ROOT_PAGE		112	/* Index root page  */
+#define JRNP_DB_ATTACHMENT	113	/* next attachment */
+#define JRNP_DB_HDR_PAGES	114	/* Header pages     */
+#define JRNP_DB_HDR_FLAGS	115	/* Header flags */
+#define JRNP_DB_HDR_SDW_COUNT	116	/* Header shadow count */
+#define JRNP_LOG_PAGE		117	/* log page information */
+#define JRNP_NEXT_TIP		118	/* Next tip page is logged */
+#define JRNP_MAX		118
+
+
+/* Journal header block */
+
+typedef struct jrnh {
+	UCHAR jrnh_type;
+	UCHAR jrnh_version;
+	USHORT jrnh_length;			/* Total length of journal record */
+	SLONG jrnh_handle;			/* Journal supplied handle for db */
+	SLONG jrnh_series;			/* Journal series */
+	SLONG jrnh_prev_seqno;		/* previous seqno  of record */
+	SLONG jrnh_prev_offset;		/* previous offset of record */
+} JRNH;
+
+/* Long Term Journal control message format */
+
+typedef struct ltjc {
+	JRNH ltjc_header;
+	USHORT ltjc_page_size;		/* Database page size */
+	SLONG ltjc_seqno;			/* Seqno of WAL */
+	ULONG ltjc_offset;			/* offset in WAL */
+	USHORT ltjc_length;			/* Length of data */
+	TEXT ltjc_data[1];			/* Expanded filename */
+} LTJC;
+
+#define LTJC_SIZE 	OFFSETA (LTJC*, ltjc_data)
+
+/* Long Term Journal archive message format */
+
+typedef struct ltja {
+	JRNH ltja_header;
+	SLONG ltja_db_id;			/* Database ID */
+	SLONG ltja_file_id;			/* WAL file ID */
+	SLONG ltja_error_code;		/* Error number */
+	USHORT ltja_length;			/* Length of data */
+	TEXT ltja_data[1];			/* Expanded filename */
+} LTJA;
+
+#define LTJA_SIZE 	OFFSETA (LTJA*, ltja_data)
+
+ENUM jrnr_t {
+	jrnr_accepted = 1,			/* Connection accepted */
+	jrnr_rejected,				/* Connection rejected */
+	jrnr_dump_database,			/* Dump the database before proceding */
+	jrnr_dump_page,				/* Dump a specific page */
+	jrnr_enabled,				/* Database enabled */
+	jrnr_start_dump,			/* Start online dump */
+	jrnr_end_dump,				/* End Online dump */
+	jrnr_shutdown,				/* Journal server is shutting down */
+	jrnr_msg,					/* Message line from server */
+	jrnr_end_msg,				/* End of message lines */
+	jrnr_exit,					/* Console should exit */
+	jrnr_error,					/* Console request not granted */
+	jrnr_archive_error,			/* invalid archive directory */
+	jrnr_ack					/* Acknowlege journal message */
+};
+
+/* Journal server response message */
+
+typedef struct jrnr {
+	JRNH jrnr_header;
+	ENUM jrnr_t jrnr_response;
+	SLONG jrnr_page;
+} JRNR;
+
+/* Journal data message format */
+
+typedef struct jrnd {
+	JRNH jrnd_header;
+	USHORT jrnd_length;			/* Length of data portion */
+	SLONG jrnd_page;			/* Page number */
+	UCHAR jrnd_data[1];
+} JRND;
+
+#define JRND_SIZE	OFFSETA (JRND*, jrnd_data)
+
+/* Journal page clumplet formats */
+
+typedef struct jrnp {
+	UCHAR jrnp_type;			/* Clumplet type */
+	USHORT jrnp_index;			/* Segment or slot index */
+	USHORT jrnp_length;			/* Length of data */
+	UCHAR jrnp_data[1];			/* Variable data */
+} JRNP;
+
+#define JRNP_SIZE	OFFSETA (JRNP*, jrnp_data)
+
+/* B-tree node addition clumplet formats */
+
+typedef struct jrnb {
+	UCHAR jrnb_type;			/* Clumplet type */
+	ULONG jrnb_prefix_total;	/* new prefix total */
+	USHORT jrnb_offset;			/* offset into page */
+	USHORT jrnb_delta;			/* increase in btr_length */
+	USHORT jrnb_length;			/* Length of data */
+	UCHAR jrnb_data[1];			/* Variable data */
+} JRNB;
+
+#define JRNB_SIZE	OFFSETA (JRNB*, jrnb_data)
+
+/* Clumplet for index changes */
+/* used for JRNP_TRANSACTION and JRNP_NEXT_TIP */
+
+typedef struct jrni {
+	UCHAR jrni_type;			/* Clumplet type */
+	UCHAR jrni_states;			/* New state */
+	USHORT jrni_position;		/* Position on transaction page */
+	SLONG jrni_transaction;		/* Transaction number */
+} JRNI;
+
+# define JRNI_SIZE	sizeof (struct jrni)
+
+/* Clumplet for page allocation/deallocation */
+
+typedef struct jrna {
+	UCHAR jrna_type;			/* Clumplet type */
+	UCHAR jrna_allocate;		/* 1 = allocate, 2 = free */
+	ULONG jrna_slot;			/* Slot on page */
+} JRNA;
+
+/* Journal buffer file definition */
+
+#define BLOCK_SIZE	512			/* Size of disk block in bytes */
+#define SEGMENT_SIZE	128		/* Size of file segment in blocks */
+#define SEGMENT_SLOTS	500		/* Number of segment slots */
+#define ID_SPACE	4096		/* Bytes reserved for database filename/id space */
+#define ID_OFFSET	((sizeof (struct jfh) + BLOCK_SIZE - 1) / BLOCK_SIZE)
+#define SEGMENT_OFFSET	ID_OFFSET + ((ID_SPACE + BLOCK_SIZE - 1) / BLOCK_SIZE)
+#define HANDLE_WORDS	8
+
+/* Journal File header data */
+
+typedef struct jfh {
+	USHORT jfh_version;			/* File format version number */
+	USHORT jfh_allocation;		/* Number of segments allocated */
+	USHORT jfh_data;			/* Slot number of first data segment */
+	USHORT jfh_free;			/* Slot number of first free segment */
+	USHORT jfh_flags;			/* Misc flags */
+	USHORT jfh_copy_block;		/* Current (last recorded) block copied */
+	USHORT jfh_write_block;		/* Current (last recorded) block written */
+	USHORT jfh_id_space;		/* Database id space used */
+	ULONG jfh_next_id;			/* Next available database id */
+	ULONG jfh_series;			/* Current journal update series */
+	ULONG jfh_sequence;			/* Next sequence number for journal server */
+	USHORT jfh_segments[SEGMENT_SLOTS];
+} *JFH;
+
+#define JFH_VERSION	1			/* current file format version number */
+
+#define JFH_suspended	1		/* Journalling has been suspended */
+
+/* Database identification record */
+
+typedef struct dir {
+	ULONG dir_id;				/* Database journaling id */
+	ULONG dir_last_page;		/* Last page journal (if questionable) */
+	UCHAR dir_length;			/* Length of name */
+	TEXT dir_name[1];			/* Database file name */
+} *DIR;
+
+/*
+ * For start transaction log -
+ */
+
+/* database header - logical log record */
+
+typedef struct jrndh {
+	UCHAR jrndh_type;			/* = JRNP_DB_HEADER */
+	SLONG jrndh_nti;			/* next transaction id */
+	SLONG jrndh_oit;			/* oldest interesting transaction */
+	SLONG jrndh_oat;			/* oldest active transaction */
+} JRNDH;
+
+#define JRNDH_SIZE 	sizeof (struct jrndh)
+
+/* log header - logical log record */
+
+typedef struct jrnl {
+	UCHAR jrnl_type;			/* = JRNP_LOG_PAGE */
+	SLONG jrnl_flags;			/* log page flags  */
+	SLONG jrnl_tip;				/* updating transactions tip */
+	SLONG jrnl_tid;				/* updating transaction id */
+} JRNL;
+
+#define JRNL_SIZE 	sizeof (struct jrnl)
+
+/* 
+ * Generator page logging will be done by logging the offset of the
+ * generator and the new value.
+ */
+
+typedef struct jrng {
+	UCHAR jrng_type;			/* = JRNP_GENERATOR     */
+	SLONG jrng_offset;			/* offset into page     */
+	SLONG jrng_genval;			/* generator value      */
+} JRNG;
+
+#define JRNG_SIZE 	sizeof (struct jrng)
+
+/* 
+ * Index root page logging will be done by logging the index id and
+ * the new b-tree root page number.
+ */
+
+typedef struct jrnrp {
+	UCHAR jrnrp_type;			/* = JRNP_ROOT_PAGE */
+	SLONG jrnrp_id;				/* index number     */
+	SLONG jrnrp_page;			/* new page number  */
+} JRNRP;
+
+#define JRNRP_SIZE 	sizeof (struct jrnrp)
+
+/* 
+ * WAL file message format.
+ * This is a generic message that will be used by a 
+ * variety of users.
+ * - Creation of WAL file.
+ * - Control point record.
+ * - Online dump record.
+ * In some of these usages, the record is first written to WAL to get
+ * a seqno & offset pair, and then a message is written to the
+ * journal server.
+ */
+
+typedef struct ltjw {
+	JRNH ltjw_header;
+	USHORT ltjw_mode;			/* any mode of operation */
+	ULONG ltjw_seqno;			/* log file seqno */
+	ULONG ltjw_offset;			/* offset of record */
+	ULONG ltjw_p_offset;		/* partition offset */
+	USHORT ltjw_count;			/* Count used for online dump */
+	SLONG ltjw_date[2];			/* Date/time of event */
+	USHORT ltjw_length;			/* Length of WAL filename */
+	TEXT ltjw_data[1];			/* Expanded filename */
+} LTJW;
+
+#define LTJW_SIZE 	OFFSETA (LTJW*, ltjw_data)
+
+/* values of mode */
+
+#define JRNW_OPEN	0
+#define JRNW_CLOSE	1
+
+/* WAL message types */
+
+/* Encoded as <type> <length> <data> in ltjw_data */
+
+#define JRNW_END		0
+#define JRNW_DELETE_RULE	1
+#define JRNW_DB_NAME		2
+#define JRNW_BACKUP_DIR		3
+#define JRNW_DEVICE_TYPE	4
+
+/* device type */
+
+#define JRNW_DISK		0
+#define JRNW_TAPE		1
+
+/* Secondary file name message */
+
+typedef struct jrnf {
+	JRNH jrnf_header;
+	ULONG jrnf_start;			/* start block number */
+	USHORT jrnf_length;			/* Length of filename */
+	USHORT jrnf_sequence;		/* File sequence # */
+	TEXT jrnf_filename[1];		/* Expanded filename */
+} JRNF;
+
+#define JRNF_SIZE 	OFFSETA (JRNF*, jrnf_filename)
+
+typedef struct jrnda {
+	UCHAR jrnda_type;
+	ULONG jrnda_data;
+} JRNDA;
+
+#define JRNDA_SIZE 	sizeof (struct jrnda)
+
+#define MAX_OLD_FILES   16
+#define MAX_LOG_FILES   16
+
+typedef struct logfiles {
+	struct blk lg_header;
+	SLONG lg_size;
+	SSHORT lg_sequence;
+	SSHORT lg_partitions;
+	SSHORT lg_flags;
+	TEXT lg_name[2];
+} LGFILE;
+
+#define LGFILE_SIZE 	OFFSETA (LGFILE*, lg_name)
+
+#endif /* _JRD_JRN_H_ */
diff --git a/src/jrd/jrn_proto.h b/src/jrd/jrn_proto.h
new file mode 100644
index 0000000000..187f2154c5
--- /dev/null
+++ b/src/jrd/jrn_proto.h
@@ -0,0 +1,53 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		jrn_proto.h		
+ *	DESCRIPTION:	Prototype Header file for jrn.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_JRN_PROTO_H_
+#define _JRD_JRN_PROTO_H_
+
+extern int JRN_archive_begin(STATUS *, struct jrn **, SLONG, SLONG, TEXT *,
+							 USHORT);
+extern int JRN_archive_end(STATUS *, struct jrn **, SLONG, SLONG);
+extern int JRN_archive_error(STATUS *, struct jrn **, SLONG, SLONG, SLONG);
+extern int JRN_disable(STATUS *, struct jrn *, struct jrnh *, UCHAR *,
+					   USHORT);
+extern void JRN_dump_page(void);
+extern int JRN_enable(STATUS *, struct jrn **, TEXT *, USHORT, UCHAR *,
+					  USHORT, struct ltjc *);
+extern int JRN_fini(STATUS *, struct jrn **);
+extern int JRN_init(STATUS *, struct jrn **, USHORT, UCHAR *, USHORT, UCHAR *,
+					USHORT);
+extern void JRN_make_init_data(UCHAR *, SSHORT *, UCHAR *, USHORT, UCHAR *,
+							   USHORT);
+extern int JRN_put_wal_name(STATUS *, struct jrn *, TEXT *, USHORT, SLONG,
+							SLONG, SLONG, USHORT);
+extern int JRN_put_wal_info(STATUS *, struct jrn *, TEXT *, USHORT, SLONG,
+							SLONG, SLONG, USHORT, USHORT, USHORT *, USHORT);
+extern int JRN_put_old_start(STATUS *, struct jrn *, SLONG, SLONG, SLONG,
+							 USHORT *);
+extern int JRN_put_old_end(STATUS *, struct jrn *, SLONG, SLONG, SLONG,
+						   USHORT);
+extern int JRN_put_old_file(STATUS *, struct jrn *, SCHAR *, USHORT, SLONG,
+							USHORT, USHORT);
+extern void JRN_sync(void);
+
+#endif /* _JRD_JRN_PROTO_H_ */
diff --git a/src/jrd/kanji.cpp b/src/jrd/kanji.cpp
new file mode 100644
index 0000000000..b569c9ba94
--- /dev/null
+++ b/src/jrd/kanji.cpp
@@ -0,0 +1,488 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		kanji.c
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include "../jrd/kanji.h"
+#include "../jrd/kanji_proto.h"
+
+
+#define S2E(s1, s2, j1, j2) \
+{ \
+  if (s2 >= 0x9f) { \
+    if (s1 >= 0xe0) j1 = (s1*2 - 0xe0); \
+    else j1 = (s1*2 - 0x60); \
+    j2 = (s2 + 2); \
+  } else { \
+    if (s1 >= 0xe0) j1 = (s1*2 - 0xe1); \
+    else j1 = (s1*2 - 0x61);\
+    if (s2 >= 0x7f) j2 = (s2 + 0x60); \
+    else j2 = (s2 +  0x61); \
+  } \
+}
+
+
+USHORT KANJI_check_euc(UCHAR * euc_str, USHORT euc_len)
+{
+/**************************************
+ *
+ *      K A N J I _ c h e c k _ e u c 
+ *
+ **************************************
+ *
+ * Functional description
+ *	This is a cousin of the KANJI_check_sjis routine.
+ *      Make sure that the euc string does not have any truncated 2 byte
+ *      character at the end. * If we have a truncated character then, 
+ *          return 1.  
+ *          else return(0);
+ **************************************/
+	UCHAR c1, c2;
+
+
+	while (euc_len--) {
+		if (*euc_str & 0x80) {	/* Is it  EUC */
+			if (euc_len == 0) {	/* truncated kanji */
+				return (1);
+			}
+			else {
+				euc_str += 2;
+				euc_len -= 1;
+			}
+		}
+		else {					/* it is a ASCII */
+
+			euc_str++;
+		}
+	}
+	return (0);
+}
+
+
+USHORT KANJI_check_sjis(UCHAR * sjis_str, USHORT sjis_len)
+{
+/**************************************
+ *
+ *      K A N J I _ c h e c k _ s j i s
+ *
+ **************************************
+ *
+ * Functional description
+ *	This is a cousin of the KANJI_check_euc routine.
+ *      Make sure that the sjis string does not have any truncated 2 byte 
+ *	character at the end. *	If we have a truncated character then,
+ *	    return 1. 
+ *	    else return(0);
+ **************************************/
+
+	UCHAR c1;
+
+	while (sjis_len--) {
+		if (*sjis_str & 0x80) {	/* Is it  SJIS */
+			if SJIS1
+				((c1 = *sjis_str)) {	/* It is a KANJI */
+				if (sjis_len == 0) {	/* truncated KANJI */
+					return (1);
+				}
+				else {
+					sjis_str += 2;
+					sjis_len -= 1;
+				}
+				}
+			else {				/*It is a KANA */
+
+				sjis_str++;
+			}
+		}
+		else {					/* it is a ASCII */
+
+			sjis_str++;
+		}
+	}
+	return (0);
+}
+
+
+
+USHORT KANJI_euc2sjis(UCHAR * euc_str,
+					  USHORT euc_len,
+					  UCHAR * sjis_str,
+					  USHORT sjis_buf_len, USHORT * sjis_len)
+{
+/**************************************
+ *
+ *      K A N J I _ e u c 2 s j i s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert euc_len number of bytes in euc_str to sjis_str .
+ *	sjis_buf_len is the maximum size of the sjis buffer.
+ *      sjis_len is set to the number of bytes put in the sjis_str.
+ * 	If a kanji conversion error occurs a 1 is returned.
+ *
+ **************************************/
+	UCHAR c1, c2;
+
+	*sjis_len = 0;
+	while (euc_len) {
+		if (*euc_str & 0x80) {	/* Non-Ascii - High bit set */
+			if (*sjis_len >= sjis_buf_len)	/*buffer full */
+				return (1);
+
+			c1 = *euc_str++;
+			euc_len--;
+
+			if (EUC1(c1)) {		/* It is a EUC */
+				if (euc_len == 0)
+					return (1);	/* truncated EUC */
+				c2 = *euc_str++;
+				euc_len--;
+				if (!(EUC2(c2)))
+					return (1);	/* Bad EUC */
+				if (c1 == 0x8e) {	/* Kana */
+					*sjis_len += 1;
+					*sjis_str++ = c2;
+				}
+				else {			/* Kanji */
+
+					*sjis_len += 2;
+					if (*sjis_len > sjis_buf_len)	/*buffer full */
+						return (1);
+					c1 ^= 0x80;
+					c2 ^= 0x80;
+					*sjis_str++ =
+						(c1 - 0x21) / 2 + ((c1 <= 0x5e) ? 0x81 : 0xc1);
+					if (c1 & 1)	/* odd */
+						*sjis_str++ = c2 + ((c2 <= 0x5f) ? 0x1f : 0x20);
+					else
+						*sjis_str++ = c2 + 0x7e;
+				}
+			}
+			else				/* It is some bad character */
+				return (1);
+		}
+		else {					/* ASCII */
+
+			euc_len--;
+			*sjis_len += 1;
+			*sjis_str++ = *euc_str++;
+		}
+	}
+	return (0);
+}
+
+
+
+USHORT KANJI_euc_byte2short(UCHAR * src, USHORT * dst, USHORT len)
+{
+/**************************************
+ *
+ *      K A N J I _ e u c _ b y t e 2 s h o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert len number of bytes of EUC string in
+ *	src (SCHAR-based buffer) into dst (short-based buffer).
+ *	This routine merges:
+ *		1-byte ASCII into 1 sshort, and
+ *		2-byte EUC kanji into 1 sshort.
+ *	Return the number of "characters" in dst.
+ *
+ **************************************/
+	USHORT l, x;
+	for (l = 0; len-- > 0; l++) {
+		x = (EUC1(*src)) ? (len--, (*src++ << 8)) : 0;
+		x |= *src++;
+		*dst++ = x;
+	}
+	return l;
+}
+
+
+
+USHORT KANJI_euc_len(UCHAR * sjis_str, USHORT sjis_len, USHORT * euc_len)
+{
+/**************************************
+ *
+ *      K A N J I _ e u c _ l e n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Return the number of euc bytes corresponding to a given sjis string.
+ *	Returns 1 if invalid kanji is encountered.
+ *
+ **************************************/
+
+	UCHAR c1, c2;
+
+	*euc_len = 0;
+	while (sjis_len) {
+		if (*sjis_str & 0x80) {	/* Non-Ascii - High bit set */
+			c1 = *sjis_str++;
+			sjis_len--;
+
+			if (SJIS1(c1)) {	/* First byte is a KANJI */
+				if (sjis_len == 0)
+					return (1);	/* truncated KANJI */
+				c2 = *sjis_str++;
+				sjis_len--;
+				if (!(SJIS2(c2)))
+					return (1);	/* Bad second byte */
+				*euc_len += 2;	/* Good Kanji */
+			}
+			else if (SJIS_SINGLE(c1))
+				*euc_len += 2;	/* Kana */
+			else
+				return (1);		/* It is some bad character */
+		}
+		else {					/* it is a ASCII */
+
+			sjis_len--;
+			*euc_len += 1;
+			sjis_str++;
+		}
+	}
+	return (0);
+}
+
+
+
+USHORT KANJI_sjis2euc(UCHAR * sjis_str,
+					  USHORT sjis_len,
+					  UCHAR * euc_str, USHORT euc_buf_len, USHORT * euc_len)
+{
+/**************************************
+ *
+ *      K A N J I _ s j i s 2 e u c
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert sjis_len number of bytes in sjis_str to euc_str .
+ *      euc_len is set to the number of bytes put in the euc_str.
+ * 	If a kanji conversion error occurs a 1 is returned.
+ *
+ **************************************/
+
+	UCHAR c1, c2;
+
+	*euc_len = 0;
+	while (sjis_len) {
+		if (*euc_len >= euc_buf_len)	/*buffer full */
+			return (1);
+
+		if (*sjis_str & 0x80) {	/* Non-Ascii - High bit set */
+			c1 = *sjis_str++;
+			sjis_len--;
+
+			if (SJIS1(c1)) {	/* First byte is a KANJI */
+				if (sjis_len == 0)
+					return (1);	/* truncated KANJI */
+				c2 = *sjis_str++;
+				sjis_len--;
+				if (!(SJIS2(c2)))
+					return (1);	/* Bad second byte */
+				*euc_len += 2;	/* Good Kanji */
+				if (*euc_len > euc_buf_len)	/*buffer full */
+					return (1);
+				S2E(c1, c2, *euc_str, *(euc_str + 1));
+				euc_str += 2;
+			}
+			else if (SJIS_SINGLE(c1)) {
+				*euc_len += 2;	/* Kana */
+				if (*euc_len > euc_buf_len)	/*buffer full */
+					return (1);
+				*euc_str++ = 0x8e;
+				*euc_str++ = c1;
+			}
+			else
+				return (1);		/* It is some bad character */
+		}
+		else {					/* it is a ASCII */
+
+			*euc_len += 1;
+			sjis_len--;
+			*euc_str++ = *sjis_str++;
+		}
+	}
+	return (0);
+}
+
+
+
+USHORT KANJI_sjis_byte2short(UCHAR * src;
+							 USHORT * dst, USHORT len) {
+/**************************************
+ *
+ *      K A N J I _ s j i s _ b y t e 2 s h o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert len number of bytes of SJIS string in
+ *	src (SCHAR-based buffer) into dst (short-based buffer).
+ *	This routine merges:
+ *		1-byte ASCII into 1 sshort,
+ *		1-byte SJIS kana 1 sshort, and
+ *		2-byte SJIS kanji into 1 sshort.
+ *	Return the number of "characters" in dst.
+ *
+ **************************************/
+	USHORT l, x;
+	for (l = 0; len-- > 0; l++) {
+		x = (SJIS1(*src)) ? (len--, (*src++ << 8)) : 0;
+		x |= *src++;
+		*dst++ = x;
+	}
+	return l;
+}
+
+
+
+USHORT KANJI_sjis2euc5(UCHAR * sjis_str,
+					   USHORT sjis_len,
+					   UCHAR * euc_str,
+					   USHORT euc_buf_len,
+					   USHORT * euc_len, USHORT * ib_sjis, USHORT * ib_euc)
+{
+/**************************************
+ *
+ *      K A N J I _ s j i s 2 e u c 5
+ *
+ **************************************
+ *
+ * Functional description
+ *	Similar to KANJI_sjis2euc().
+ *	Differences:
+ *	(1) when buffer is full, returns (1).
+ *	(2) when there's invalid SCHAR, returns(2).
+ *	(3) two additional parameters are:
+ *		ib_sjis		number of in-bound sjis character
+ *		ib_euc		number of in-bound euc character
+ * This function is designed to convert blob segment from SJIS to EUC
+ * on retrieval. The reason we have ib_sjis and ib_euc is to keep
+ * track of splitting fragments from segments.
+ *
+ **************************************/
+	UCHAR c1, c2;
+
+	*euc_len = 0;
+	*ib_sjis = *ib_euc = 0;
+	while (sjis_len) {
+		if (*euc_len >= euc_buf_len)	/*buffer full */
+			return (1);
+
+		if (*sjis_str & 0x80) {	/* Non-Ascii - High bit set */
+			c1 = *sjis_str++;
+			sjis_len--;
+
+			if (SJIS1(c1)) {	/* First byte is a KANJI */
+				if (sjis_len == 0)
+					return (2);	/* truncated KANJI */
+				c2 = *sjis_str++;
+				sjis_len--;
+				if (!(SJIS2(c2)))
+					return (2);	/* Bad second byte */
+				*euc_len += 2;	/* Good Kanji */
+				if (*euc_len > euc_buf_len)	/*buffer full */
+					return (1);
+				S2E(c1, c2, *euc_str, *(euc_str + 1));
+				euc_str += 2;
+				*ib_sjis += 2;
+				*ib_euc += 2;
+			}
+			else if (SJIS_SINGLE(c1)) {
+				*euc_len += 2;	/* Kana */
+				if (*euc_len > euc_buf_len)	/*buffer full */
+					return (1);
+				*euc_str++ = 0x8e;
+				*euc_str++ = c1;
+				(*ib_sjis)++;
+				*ib_euc += 2;
+			}
+			else
+				return (2);		/* It is some bad character */
+		}
+		else {					/* it is a ASCII */
+
+			*euc_len += 1;
+			sjis_len--;
+			*euc_str++ = *sjis_str++;
+			(*ib_sjis)++;
+			(*ib_euc)++;
+		}
+	}
+	return (0);
+}
+
+
+
+USHORT KANJI_sjis_len(UCHAR * euc_str, USHORT euc_len, USHORT * sjis_len)
+{
+/**************************************
+ *
+ *      K A N J I _ s j i s _ l e n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find the number of sjis bytes corresponding to a given euc string.
+ *	Returns 1 if invalid kanji is encountered.
+ *
+ **************************************/
+
+	UCHAR c1, c2;
+
+	*sjis_len = 0;
+	while (euc_len) {
+		if (*euc_str & 0x80) {	/* Non-Ascii - High bit set */
+			c1 = *euc_str++;
+			euc_len--;
+
+			if (EUC1(c1)) {		/* It is a EUC */
+				if (euc_len == 0)
+					return (1);	/* truncated EUC */
+				c2 = *euc_str++;
+				euc_len--;
+				if (!(EUC2(c2)))
+					return (1);	/* Bad EUC */
+				if (c1 == 0x8e)
+					*sjis_len += 1;	/* Kana */
+				else
+					*sjis_len += 2;	/* Kanji */
+			}
+			else				/* It is some bad character */
+				return (1);
+		}
+		else {					/* ASCII */
+
+			euc_len--;
+			*sjis_len += 1;
+			euc_str++;
+		}
+	}
+	return (0);
+}
diff --git a/src/jrd/kanji.h b/src/jrd/kanji.h
new file mode 100644
index 0000000000..3144482a44
--- /dev/null
+++ b/src/jrd/kanji.h
@@ -0,0 +1,80 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef _JRD_KANJI_H_
+#define _JRD_KANJI_H_
+
+#include "../jrd/common.h"
+
+#define SJIS1(uc) \
+	((0x80 <= (UCHAR) ((uc) & 0xff) && (UCHAR) ((uc) & 0xff) <= 0x9f) || \
+	 (0xe0 <= (UCHAR) ((uc) & 0xff) && (UCHAR) ((uc) & 0xff) <= 0xef))
+#define SJIS2(uc)     	((0x40 <= (UCHAR) ((uc) & 0xff) && (UCHAR) ((uc) & 0xff) <= 0xfc))
+#define SJIS_SINGLE(uc)	( 0xa0 <= (UCHAR) ((uc) & 0xff) && (UCHAR) ((uc) & 0xff) <= 0xdf )
+
+#define EUC1(c)		(c & 0x80)
+#define EUC2(c)		(c & 0x80)
+
+#define KANJISHORT(s)	(s & 0xff80)
+#define KANJI_MASK	0x80
+
+#ifdef JPN_EUC
+#define KANJI1(c)	EUC1(c)
+#define KANJI2(c)	EUC2(c)
+#else
+#ifdef JPN_SJIS
+#define KANJI1(c)	SJIS1(c)
+#define KANJI2(c)	SJIS2(c)
+#endif /* JPN_SJIS */
+#endif /* JPN_EUC */
+
+#ifdef JPN_EUC
+#define JPN1_CHAR(c)	EUC1(c)
+#else
+#ifdef JPN_SJIS
+#define JPN1_CHAR(c)	(SJIS1(c) || SJIS_SINGLE(c))
+#endif /* JPN_SJIS */
+#endif /* JPN_EUC  */
+
+#ifdef JPN_EUC
+#define	KANJI_check		KANJI_check_euc
+#else
+#ifdef JPN_SJIS
+#define KANJI_check		KANJI_check_sjis
+#endif /* JPN_SJIS */
+#endif /*JPN_EUC */
+
+#ifdef JPN_EUC
+#define KANJI_byte2short	KANJI_euc_byte2short
+#else
+#ifdef JPN_SJIS
+#define KANJI_byte2short	KANJI_sjis_byte2short
+#endif /* JPN_SJIS */
+#endif /*JPN_EUC */
+
+extern USHORT KANJI_check_euc();
+extern USHORT KANJI_check_sjis();
+extern USHORT KANJI_euc2sjis();
+extern USHORT KANJI_euc_byte2short();
+extern USHORT KANJI_euc_len();
+extern USHORT KANJI_sjis2euc();
+extern USHORT KANJI_sjis2euc5();
+extern USHORT KANJI_sjis_byte2short();
+extern USHORT KANJI_sjis_len();
+
+#endif /* _JRD_KANJI_H_ */
diff --git a/src/jrd/kanji_proto.h b/src/jrd/kanji_proto.h
new file mode 100644
index 0000000000..6f991e6962
--- /dev/null
+++ b/src/jrd/kanji_proto.h
@@ -0,0 +1,38 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		kanji_proto.h
+ *	DESCRIPTION:	Prototype header file for kanji.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_KANJI_PROTO_H_
+#define _JRD_KANJI_PROTO_H_
+
+extern USHORT KANJI_check_euc(UCHAR *, USHORT);
+extern USHORT KANJI_check_sjis(UCHAR *, USHORT);
+extern USHORT KANJI_euc2sjis(UCHAR *, USHORT, UCHAR *, USHORT, USHORT *);
+extern USHORT KANJI_euc_byte2short(UCHAR *, USHORT *, USHORT);
+extern USHORT KANJI_euc_len(UCHAR *, USHORT, USHORT *);
+extern USHORT KANJI_sjis2euc(UCHAR *, USHORT, UCHAR *, USHORT, USHORT *);
+extern USHORT KANJI_sjis_byte2short(UCHAR *, USHORT *, USHORT);
+extern USHORT KANJI_sjis2euc5(UCHAR *, USHORT, UCHAR *, USHORT, USHORT *,
+							  USHORT *, USHORT *);
+extern USHORT KANJI_sjis_len(UCHAR *, USHORT, USHORT *);
+
+#endif /* _JRD_KANJI_PROTO_H_ */
diff --git a/src/jrd/lan.cpp b/src/jrd/lan.cpp
new file mode 100644
index 0000000000..8e1ad21ad5
--- /dev/null
+++ b/src/jrd/lan.cpp
@@ -0,0 +1,78 @@
+/* 
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		lan.c
+ *	DESCRIPTION:	OS/2 LAN manager-specific JRD routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include <os2.h>
+
+#define LAN_SERVERGETINFO	0
+#define PROC_count		1
+
+typedef struct {
+	TEXT *module;
+	TEXT *name;
+	PFN address;
+} LANENTRY;
+
+#define ENTRYNAME(module, name, address)	module, name, NULL,
+
+static LANENTRY lanentrypoints[PROC_count] = {
+	ENTRYNAME("NETAPI", "NETSERVERGETINFO", NETSERVERGETINFO)
+};
+
+#define CALL(proc)  (lanentrypoints[proc].address)
+
+
+int gethostname(SCHAR * buffer, USHORT buflen)
+{
+/***********************************************
+*
+*	g e t h o s t n a m e			( M S D O S )
+*
+************************************************
+*
+* Functional description
+*	This function provides symmetry under OS/2
+*	for the UNIX gethostname system call.
+*
+*	It first checks to see if the LANMAN library is
+*	accessible.  If not, it returns a null string.  If it
+*	is, it calls the NetServerGetInfo system call to provide
+*	the host name.
+*
+************************************************/
+	USHORT totalavail;
+	LANENTRY *entry;
+
+	(*entry) = lanentrypoints[0];
+	if (!
+		(entry->address =
+		 (PFN) ISC_lookup_entrypoint(entry->module, entry->name[0], NULL))) {
+		buffer[0] = '\0';
+	}
+	else {
+		CALL(LAN_SERVERGETINFO) (NULL, 0, buffer, buflen, &totalavail);
+		buffer[totalavail] = '\0';
+	}
+
+	return 0;
+}
diff --git a/src/jrd/lck.cpp b/src/jrd/lck.cpp
new file mode 100644
index 0000000000..993e6b367a
--- /dev/null
+++ b/src/jrd/lck.cpp
@@ -0,0 +1,1613 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		lck.c
+ *	DESCRIPTION:	Lock handler for JRD (not lock manager!)
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/jrd.h"
+#include "../jrd/lck.h"
+#include "../jrd/codes.h"
+#include "../jrd/iberr.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/jrd_proto.h"
+
+#include "../jrd/lck_proto.h"
+#ifndef VMS
+#include "../lock/lock_proto.h"
+#else
+#include "../jrd/vmslo_proto.h"
+#endif
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/gdsassert.h"
+
+#ifdef WIN_NT
+#include <process.h>
+#endif
+
+extern "C" {
+
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+#define getpid()	0
+#endif
+
+static void bug_lck(TEXT *);
+static void check_lock(LCK, USHORT);
+static BOOLEAN compatible(LCK, LCK, USHORT);
+static void enqueue(TDBB, LCK, USHORT, SSHORT);
+static void external_ast(LCK);
+static LCK find_block(LCK, USHORT);
+static USHORT hash(UCHAR *, USHORT);
+static void hash_allocate(LCK);
+static LCK hash_get_lock(LCK, USHORT *, LCK **);
+static void hash_insert_lock(LCK);
+static BOOLEAN hash_remove_lock(LCK, LCK *);
+static void internal_ast(LCK);
+static BOOLEAN internal_compatible(LCK, LCK, USHORT);
+static void internal_dequeue(TDBB, LCK);
+static USHORT internal_downgrade(TDBB, LCK);
+static BOOLEAN internal_enqueue(TDBB, LCK, USHORT, SSHORT, BOOLEAN);
+
+
+/* globals and macros */
+
+static SLONG process_lck_owner_handle = 0;
+
+/* For a multi-threaded Netware (e.g. NLM), the current database or attachment 
+   is the owner of a new lock.  For other platforms, so far, a process is 
+   the owner of all the locks.  The following defines help in simulating
+   these assumptions */
+
+#ifdef NETWARE_386
+#define getpid	 GetNLMID
+#endif
+
+#ifdef SUPERSERVER
+
+#define LCK_OWNER_ID_PROCESS		(SLONG) getpid()
+#define LCK_OWNER_ID_DBB		(SLONG) dbb
+#define LCK_OWNER_ID_ATT		(SLONG) attachment
+
+#define LCK_OWNER_TYPE_PROCESS		LCK_OWNER_process
+#define LCK_OWNER_TYPE_DBB		LCK_OWNER_dbb
+#define LCK_OWNER_TYPE_ATT		LCK_OWNER_attachment
+
+#define	LCK_OWNER_HANDLE_PROCESS	process_lck_owner_handle
+#define	LCK_OWNER_HANDLE_DBB		dbb->dbb_lock_owner_handle
+#define	LCK_OWNER_HANDLE_ATT		attachment->att_lock_owner_handle
+
+#else	/* SUPERSERVER */
+
+/* This is not a SUPERSERVER build */
+
+#define LCK_OWNER_ID_PROCESS		(SLONG) getpid()
+#define LCK_OWNER_ID_DBB		(SLONG) getpid()
+#define LCK_OWNER_ID_ATT		(SLONG) getpid()
+
+#define LCK_OWNER_TYPE_PROCESS		LCK_OWNER_process
+#define LCK_OWNER_TYPE_DBB		LCK_OWNER_process
+#define LCK_OWNER_TYPE_ATT		LCK_OWNER_process
+
+#define	LCK_OWNER_HANDLE_PROCESS	process_lck_owner_handle
+#define	LCK_OWNER_HANDLE_DBB		process_lck_owner_handle
+#define LCK_OWNER_HANDLE_ATT		process_lck_owner_handle
+
+#endif	/* SUPERSERVER */
+
+
+static CONST UCHAR compatibility[] = {
+
+/*				Shared	Prot	Shared	Prot
+		none	null	 Read	Read	Write	Write	Exclusive */
+
+/* none */ 1, 1, 1, 1, 1, 1, 1,
+/* null */ 1, 1, 1, 1, 1, 1, 1,
+/* SR */ 1, 1, 1, 1, 1, 1, 0,
+/* PR */ 1, 1, 1, 1, 0, 0, 0,
+/* SW */ 1, 1, 1, 0, 1, 0, 0,
+/* PW */ 1, 1, 1, 0, 0, 0, 0,
+/* EX */ 1, 1, 0, 0, 0, 0, 0
+};
+
+#define LCK_max			(LCK_EX + 1)
+#define COMPATIBLE(st1, st2)	compatibility [st1 * LCK_max + st2]
+#define LOCK_HASH_SIZE		19
+
+#define	ENQUEUE(lock,level,wait) if (lock->lck_compatible) \
+				     internal_enqueue (tdbb, lock, level, wait, FALSE); \
+		                 else enqueue (tdbb, lock, level, wait);
+
+#define	CONVERT(lock,level,wait) (lock->lck_compatible) ? \
+				 internal_enqueue (tdbb, lock, level, wait, TRUE) : \
+                                 LOCK_convert (lock->lck_id, level, wait, reinterpret_cast<int(*)(void*)>(lock->lck_ast), lock->lck_object, status)
+
+#define DEQUEUE(lock)		 if (lock->lck_compatible) \
+				     internal_dequeue (tdbb, lock); \
+				 else LOCK_deq (lock->lck_id);
+
+#define DOWNGRADE(lock,status)	 (lock->lck_compatible) ? \
+				 internal_downgrade (tdbb, lock) : \
+			 	 LOCK_downgrade (lock->lck_id, status);
+
+#ifdef DEV_BUILD
+/* Valid locks are not NULL, 
+	of the right memory block type, 
+	are attached to a dbb.
+   	If we have the dbb in non-exclusive mode, 
+	    then we must have a physical lock of at least the same level
+	    as the logical lock.
+   	If we don't have a lock ID, 
+	    then we better not have a physical lock at any level.
+ */
+#define LCK_CHECK_LOCK(l)	(((l) != NULL) && \
+				 (l->lck_header.blk_type == type_lck) && \
+				 (l->lck_dbb != NULL) && \
+				 (l->lck_id || (l->lck_physical == LCK_none)))
+
+/* The following check should be part of LCK_CHECK_LOCK, but it fails
+   when the exclusive attachment to a database is changed to a shared
+   attachment.  When that occurs we assert all our internal locks, but
+   while we are in the process of asserting DBB_assert_locks is set, but
+   we haven't gotten physical locks yet.
+ 
+			         (!(l->lck_dbb->dbb_ast_flags & DBB_assert_locks) \
+				    || (l->lck_physical >= l->lck_logical)) && \
+*/
+#endif
+
+#ifndef LCK_CHECK_LOCK
+#define LCK_CHECK_LOCK		(TRUE)	/* nothing */
+#endif
+
+
+
+#ifndef GATEWAY
+void LCK_assert(TDBB tdbb, LCK lock)
+{
+/**************************************
+ *
+ *	L C K _ a s s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Assert a logical lock.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+	assert(LCK_CHECK_LOCK(lock));
+
+	if (lock->lck_logical == lock->lck_physical ||
+		lock->lck_logical == LCK_none) return;
+
+	if (!LCK_lock(tdbb, lock, lock->lck_logical, LCK_WAIT))
+		BUGCHECK(159);			/* msg 159 cannot assert logical lock */
+	assert(LCK_CHECK_LOCK(lock));
+}
+#endif
+
+
+int LCK_convert(TDBB tdbb, LCK lock, USHORT level, SSHORT wait)
+{
+/**************************************
+ *
+ *	L C K _ c o n v e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert an existing lock to a new level.
+ *
+ **************************************/
+	STATUS *status;
+	DBB dbb;
+	int result;
+
+	assert(LCK_CHECK_LOCK(lock));
+
+	SET_TDBB(tdbb);
+	dbb = lock->lck_dbb;
+	status = tdbb->tdbb_status_vector;
+
+	lock->lck_attachment = tdbb->tdbb_attachment;
+
+	result = CONVERT(lock, level, wait);
+
+	if (!result) {
+		if (status[1] == gds__deadlock ||
+			status[1] == gds__lock_conflict || status[1] == gds__lock_timeout)
+			return FALSE;
+		if (status[1] == gds__lockmanerr)
+			dbb->dbb_flags |= DBB_bugcheck;
+		ERR_punt();
+	}
+
+	if (!lock->lck_compatible)
+		lock->lck_physical = lock->lck_logical = level;
+
+	assert(LCK_CHECK_LOCK(lock));
+	return TRUE;
+}
+
+
+#ifdef MULTI_THREAD
+int LCK_convert_non_blocking(TDBB tdbb, LCK lock, USHORT level, SSHORT wait)
+{
+/**************************************
+ *
+ *	L C K _ c o n v e r t _ n o n _ b l o c k i n g		( m u l t i _ t h r e a d )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert an existing lock.
+ *
+ **************************************/
+	ATT attachment;
+	STATUS *status;
+	int result;
+	DBB dbb;
+
+	assert(LCK_CHECK_LOCK(lock));
+	SET_TDBB(tdbb);
+
+	dbb = lock->lck_dbb;
+	lock->lck_attachment = tdbb->tdbb_attachment;
+
+	if (!wait || !gds__thread_enable(FALSE))
+		return LCK_convert(tdbb, lock, level, wait);
+
+/* Save context and checkout from the scheduler */
+
+	check_lock(lock, level);
+	status = tdbb->tdbb_status_vector;
+	attachment = tdbb->tdbb_attachment;
+	AST_DISABLE;
+
+/* SuperServer: Do Not release engine here, it creates a race
+   condition - more than one thread RUNNING in the engine.
+   We check out of the scheduler later - in wait_for_request()
+   in lock/lock.c - when we are going to wait on wakeup event.
+*/
+#ifndef SUPERSERVER
+	SCH_exit();
+#endif
+
+	result = CONVERT(lock, level, wait);
+
+/* Check back in with the scheduler and restore context */
+
+#ifndef SUPERSERVER
+	SCH_enter();
+#endif
+
+	AST_ENABLE;
+
+	if (!result) {
+		if (status[1] == gds__deadlock ||
+			status[1] == gds__lock_conflict || status[1] == gds__lock_timeout)
+			return FALSE;
+		if (status[1] == gds__lockmanerr)
+			dbb->dbb_flags |= DBB_bugcheck;
+		ERR_punt();
+	}
+
+	if (!lock->lck_compatible)
+		lock->lck_physical = lock->lck_logical = level;
+
+	assert(LCK_CHECK_LOCK(lock));
+	return TRUE;
+}
+
+
+#else
+int LCK_convert_non_blocking(TDBB tdbb, LCK lock, USHORT level, SSHORT wait)
+{
+/**************************************
+ *
+ *	L C K _ c o n v e r t _ n o n _ b l o c k i n g		( s i n g l e _
+ *								  t h r e a d )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert and existing lock.  If successful, return 0, otherwise
+ *	return error code.
+ *
+ **************************************/
+
+	assert(LCK_CHECK_LOCK(lock));
+	SET_TDBB(tdbb);
+	return LCK_convert(tdbb, lock, level, wait);
+}
+#endif
+
+
+#ifndef GATEWAY
+int LCK_convert_opt(TDBB tdbb, LCK lock, USHORT level)
+{
+/**************************************
+ *
+ *	L C K _ c o n v e r t _ o p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Assert a lock if the parent is not locked in exclusive mode.
+ *
+ **************************************/
+	USHORT old_level;
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	assert(LCK_CHECK_LOCK(lock));
+	old_level = lock->lck_logical;
+	lock->lck_logical = level;
+	dbb = lock->lck_dbb;
+
+	if (dbb->dbb_ast_flags & DBB_assert_locks) {
+		lock->lck_logical = old_level;
+		return LCK_convert(tdbb, lock, level, LCK_NO_WAIT);
+	}
+
+	assert(LCK_CHECK_LOCK(lock));
+	return TRUE;
+}
+#endif
+
+
+#ifndef VMS
+int LCK_downgrade(TDBB tdbb, LCK lock)
+{
+/**************************************
+ *
+ *	L C K _ d o w n g r a d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Downgrade a lock.
+ *
+ **************************************/
+	STATUS *status;
+	USHORT level;
+
+	assert(LCK_CHECK_LOCK(lock));
+	SET_TDBB(tdbb);
+
+	status = tdbb->tdbb_status_vector;
+
+	assert(LCK_CHECK_LOCK(lock));
+
+	if (lock->lck_id && lock->lck_physical != LCK_none) {
+		level = DOWNGRADE(lock, status);
+		if (!lock->lck_compatible)
+			lock->lck_physical = lock->lck_logical = level;
+	}
+
+	if (lock->lck_physical == LCK_none)
+		lock->lck_id = lock->lck_data = 0;
+
+	assert(LCK_CHECK_LOCK(lock));
+	return TRUE;
+}
+#endif
+
+
+void LCK_fini(TDBB tdbb, enum lck_owner_t owner_type)
+{
+/**************************************
+ *
+ *	L C K _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check out with lock manager.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment;
+	SLONG *owner_handle_ptr;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	attachment = tdbb->tdbb_attachment;
+
+	switch (owner_type) {
+	case LCK_OWNER_process:
+		owner_handle_ptr = &(LCK_OWNER_HANDLE_PROCESS);
+		break;
+
+	case LCK_OWNER_database:
+		owner_handle_ptr = &(LCK_OWNER_HANDLE_DBB);
+		break;
+
+	case LCK_OWNER_attachment:
+		owner_handle_ptr = &(LCK_OWNER_HANDLE_ATT);
+		break;
+
+	default:
+		bug_lck("Invalid lock owner type in LCK_fini ()");
+		break;
+	}
+
+	LOCK_fini(tdbb->tdbb_status_vector, owner_handle_ptr);
+}
+
+
+SLONG LCK_get_owner_handle(TDBB tdbb, enum lck_t lock_type)
+{
+/**************************************
+ *
+ *	L C K _ g e t _ l o c k _ o w n e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	return the right kind of lock owner given a lock type.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	attachment = tdbb->tdbb_attachment;
+	switch (lock_type) {
+	case LCK_database:
+	case LCK_bdb:
+	case LCK_rel_exist:
+	case LCK_idx_exist:
+	case LCK_shadow:
+	case LCK_retaining:
+	case LCK_expression:
+	case LCK_record_locking:
+	case LCK_prc_exist:
+	case LCK_range_relation:
+		return LCK_OWNER_HANDLE_DBB;
+	case LCK_attachment:
+	case LCK_relation:
+	case LCK_file_extend:
+	case LCK_tra:
+	case LCK_sweep:
+	case LCK_record:
+	case LCK_update_shadow:
+		return LCK_OWNER_HANDLE_ATT;
+	default:
+		bug_lck("Invalid lock type in LCK_get_owner_handle ()");
+		/* Not Reached - bug_lck longjmp's out */
+		return 0;
+	}
+}
+
+
+void LCK_init(TDBB tdbb, enum lck_owner_t owner_type)
+{
+/**************************************
+ *
+ *	L C K _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the locking stuff for the given owner.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment;
+	SLONG owner_id;
+	SLONG *owner_handle_ptr;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	attachment = tdbb->tdbb_attachment;
+
+	switch (owner_type) {
+	case LCK_OWNER_process:
+		owner_id = LCK_OWNER_ID_PROCESS;
+		owner_handle_ptr = &(LCK_OWNER_HANDLE_PROCESS);
+		break;
+
+	case LCK_OWNER_database:
+		owner_id = LCK_OWNER_ID_DBB;
+		owner_handle_ptr = &(LCK_OWNER_HANDLE_DBB);
+		break;
+
+	case LCK_OWNER_attachment:
+		owner_id = LCK_OWNER_ID_ATT;
+		owner_handle_ptr = &(LCK_OWNER_HANDLE_ATT);
+		break;
+
+	default:
+		bug_lck("Invalid lock owner type in LCK_init ()");
+		break;
+	}
+
+	if (LOCK_init(tdbb->tdbb_status_vector, TRUE,
+				  owner_id, owner_type, owner_handle_ptr)) {
+		if (tdbb->tdbb_status_vector[1] == gds__lockmanerr)
+			dbb->dbb_flags |= DBB_bugcheck;
+		ERR_punt();
+	}
+}
+
+
+int LCK_lock(TDBB tdbb, LCK lock, USHORT level, SSHORT wait)
+{
+/**************************************
+ *
+ *	L C K _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lock a block.  There had better not have been a lock there.
+ *
+ **************************************/
+	STATUS *status;
+	DBB dbb;
+
+	assert(LCK_CHECK_LOCK(lock));
+	SET_TDBB(tdbb);
+
+	dbb = lock->lck_dbb;
+	status = tdbb->tdbb_status_vector;
+	lock->lck_blocked_threads = NULL;
+	lock->lck_next = lock->lck_prior = NULL;
+	lock->lck_attachment = tdbb->tdbb_attachment;
+
+	ENQUEUE(lock, level, wait);
+	assert(LCK_CHECK_LOCK(lock));
+	if (!lock->lck_id)
+		if (!wait ||
+			status[1] == gds__deadlock ||
+			status[1] == gds__lock_conflict || status[1] == gds__lock_timeout) {
+			return FALSE;
+		}
+		else {
+			if (status[1] == gds__lockmanerr)
+				dbb->dbb_flags |= DBB_bugcheck;
+			ERR_punt();
+		}
+
+	if (!lock->lck_compatible)
+		lock->lck_physical = lock->lck_logical = level;
+
+	assert(LCK_CHECK_LOCK(lock));
+	return TRUE;
+}
+
+
+int LCK_lock_non_blocking(TDBB tdbb, LCK lock, USHORT level, SSHORT wait)
+{
+/**************************************
+ *
+ *	L C K _ l o c k _ n o n _ b l o c k i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lock an object in a manner that allows other 
+ *	threads to be scheduled.
+ *
+ **************************************/
+#ifdef MULTI_THREAD
+	ATT attachment;
+	STATUS *status;
+	LCK next;
+	DBB dbb;
+
+	assert(LCK_CHECK_LOCK(lock));
+	SET_TDBB(tdbb);
+
+	dbb = lock->lck_dbb;
+	lock->lck_attachment = attachment = tdbb->tdbb_attachment;
+
+/* Don't bother for the non-wait or non-multi-threading case */
+
+	if (!wait || !gds__thread_enable(FALSE))
+		return LCK_lock(tdbb, lock, level, wait);
+
+/* Make sure we're not about to wait for ourselves */
+
+	lock->lck_blocked_threads = NULL;
+	lock->lck_next = lock->lck_prior = NULL;
+	check_lock(lock, level);
+	status = tdbb->tdbb_status_vector;
+
+/* If we can get the lock without waiting, save a great
+   deal of grief */
+
+	ENQUEUE(lock, level, LCK_NO_WAIT);
+	assert(LCK_CHECK_LOCK(lock));
+	if (!lock->lck_id) {
+		/* Save context and checkout from the scheduler */
+
+		AST_DISABLE;
+
+/* SuperServer: Do Not release engine here, it creates a race
+   condition - more than one thread RUNNING in the engine.
+   We check out of the scheduler later - in wait_for_request()
+   in lock/lock.c - when we are going to wait on wakeup event.
+*/
+#ifndef SUPERSERVER
+		SCH_exit();
+#endif
+
+		INIT_STATUS(status);
+		ENQUEUE(lock, level, wait);
+
+		/* Check back in with the scheduler and restore context */
+
+#ifndef SUPERSERVER
+		SCH_enter();
+#endif
+		AST_ENABLE;
+
+		assert(LCK_CHECK_LOCK(lock));
+
+		/* If lock was rejected, there's trouble */
+
+		if (!lock->lck_id)
+			if (status[1] == gds__deadlock ||
+				status[1] == gds__lock_conflict ||
+				status[1] == gds__lock_timeout) {
+				return FALSE;
+			}
+			else {
+				if (status[1] == gds__lockmanerr)
+					dbb->dbb_flags |= DBB_bugcheck;
+				ERR_punt();
+			}
+	}
+
+	if (!lock->lck_compatible)
+		lock->lck_physical = lock->lck_logical = level;
+
+/* Link into list of two phased locks */
+
+	lock->lck_next = attachment->att_long_locks;
+	lock->lck_prior = NULL;
+	attachment->att_long_locks = lock;
+
+	if (next = lock->lck_next)
+		next->lck_prior = lock;
+
+	assert(LCK_CHECK_LOCK(lock));
+	return TRUE;
+
+#else
+
+	SET_TDBB(tdbb);
+	assert(LCK_CHECK_LOCK(lock));
+
+	return LCK_lock(tdbb, lock, level, wait);
+#endif
+}
+
+
+#ifndef GATEWAY
+int LCK_lock_opt(TDBB tdbb, LCK lock, USHORT level, SSHORT wait)
+{
+/**************************************
+ *
+ *	L C K _ l o c k _ o p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Assert a lock if the parent is not locked in exclusive mode.
+ *
+ **************************************/
+	LCK parent;
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	assert(LCK_CHECK_LOCK(lock));
+	lock->lck_logical = level;
+	dbb = lock->lck_dbb;
+
+	if (dbb->dbb_ast_flags & DBB_assert_locks) {
+		lock->lck_logical = LCK_none;
+		return LCK_lock(tdbb, lock, level, wait);
+	}
+
+	assert(LCK_CHECK_LOCK(lock));
+	return TRUE;
+}
+#endif
+
+
+#ifndef GATEWAY
+#ifndef VMS
+SLONG LCK_query_data(LCK parent, enum lck_t lock_type, USHORT aggregate)
+{
+/**************************************
+ *
+ *	L C K _ q u e r y _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform aggregate operations on data associated
+ *	with a lock series for a lock hierarchy rooted
+ *	at a parent lock.
+ *
+ **************************************/
+
+	assert(LCK_CHECK_LOCK(parent));
+	return LOCK_query_data(parent->lck_id, lock_type, aggregate);
+}
+#endif
+#endif
+
+
+#ifndef GATEWAY
+SLONG LCK_read_data(LCK lock)
+{
+/**************************************
+ *
+ *	L C K _ r e a d _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the data associated with a lock.
+ *
+ **************************************/
+	SLONG data;
+	LCK parent;
+
+	assert(LCK_CHECK_LOCK(lock));
+#ifdef VMS
+	if (!LCK_lock(NULL_TDBB, lock, LCK_null, LCK_NO_WAIT))
+		return 0;
+
+	data = LOCK_read_data(lock->lck_id);
+	LCK_release(lock);
+#else
+	data = LOCK_read_data2(
+						   (parent = lock->lck_parent) ? parent->lck_id : 0,
+						   lock->lck_type,
+						   (UCHAR *) & lock->lck_key,
+						   lock->lck_length, lock->lck_owner_handle);
+#endif
+
+	assert(LCK_CHECK_LOCK(lock));
+	return data;
+}
+#endif
+
+
+void LCK_release(TDBB tdbb, LCK lock)
+{
+/**************************************
+ *
+ *	L C K _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an existing lock.
+ *
+ **************************************/
+	BTB block;
+	LCK prior, next;
+#ifdef MULTI_THREAD
+	ATT attachment;
+
+	attachment = lock->lck_attachment;
+#endif
+
+	SET_TDBB(tdbb);
+	assert(LCK_CHECK_LOCK(lock));
+
+	if (lock->lck_physical != LCK_none)
+		DEQUEUE(lock);
+
+	lock->lck_physical = lock->lck_logical = LCK_none;
+	lock->lck_id = lock->lck_data = 0;
+
+#ifdef MULTI_THREAD
+
+	next = lock->lck_next;
+	prior = lock->lck_prior;
+
+	if (prior) {
+		assert(prior->lck_next == lock);
+		prior->lck_next = next;
+	}
+	else if (attachment) {
+		if (attachment->att_long_locks == lock)
+			attachment->att_long_locks = lock->lck_next;
+	}
+
+	if (next) {
+		assert(next->lck_prior == lock);
+		next->lck_prior = prior;
+	}
+
+	lock->lck_next = NULL;
+	lock->lck_prior = NULL;
+
+	if (lock->lck_blocked_threads)
+		JRD_unblock(&lock->lck_blocked_threads);
+#endif
+
+	assert(LCK_CHECK_LOCK(lock));
+}
+
+
+#ifndef GATEWAY
+void LCK_re_post(LCK lock)
+{
+/**************************************
+ *
+ *	L C K _ r e _ p o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Re-post an ast when the original 
+ *	deliver resulted in blockage.
+ *
+ **************************************/
+
+	assert(LCK_CHECK_LOCK(lock));
+	if (lock->lck_compatible) {
+		if (lock->lck_ast)
+			reinterpret_cast < int (*) (...) >
+				(*lock->lck_ast) (lock->lck_object);
+		return;
+	}
+
+	LOCK_re_post(reinterpret_cast < int (*)(void *)>(lock->lck_ast),
+				 lock->lck_object, lock->lck_owner_handle);
+	assert(LCK_CHECK_LOCK(lock));
+}
+#endif
+
+
+#ifndef GATEWAY
+void LCK_write_data(LCK lock, SLONG data)
+{
+/**************************************
+ *
+ *	L C K _ w r i t e _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a longword into an existing lock.
+ *
+ **************************************/
+
+	assert(LCK_CHECK_LOCK(lock));
+	LOCK_write_data(lock->lck_id, data);
+	lock->lck_data = data;
+	assert(LCK_CHECK_LOCK(lock));
+}
+#endif
+
+
+static void bug_lck(TEXT * string)
+{
+/**************************************
+ *
+ *	b u g _ l c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Log the bug message, initialize the status vector
+ *	and get out.
+ *
+ **************************************/
+	TEXT s[128];
+
+	sprintf(s, "Fatal lock interface error: %s", string);
+	gds__log(s);
+	ERR_post(gds__db_corrupt, gds_arg_string, string, 0);
+}
+
+
+#ifdef MULTI_THREAD
+static void check_lock(LCK lock, USHORT level)
+{
+/**************************************
+ *
+ *	c h e c k _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	If a lock is already held by this process, 
+ *	wait for it to be released before asking 
+ *	the lock manager for it.
+ *
+ **************************************/
+	LCK next;
+
+	assert(LCK_CHECK_LOCK(lock));
+	while (next = find_block(lock, level))
+		JRD_blocked(next->lck_attachment, &next->lck_blocked_threads);
+}
+#endif
+
+
+static BOOLEAN compatible(LCK lock1, LCK lock2, USHORT level2)
+{
+/**************************************
+ *
+ *	c o m p a t i b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given two locks, and a desired level for the
+ *	second lock, determine whether the two locks
+ *	would be compatible.
+ *
+ **************************************/
+
+	assert(LCK_CHECK_LOCK(lock1));
+	assert(LCK_CHECK_LOCK(lock2));
+
+/* if the locks have the same compatibility block,
+   they are always compatible regardless of level */
+
+	if (lock1->lck_compatible &&
+		lock2->lck_compatible &&
+		lock1->lck_compatible == lock2->lck_compatible) {
+		/* check for a second level of compatibility as well:
+		   if a second level was specified, the locks must 
+		   also be compatible at the second level */
+
+		if (!lock1->lck_compatible2 ||
+			!lock2->lck_compatible2 ||
+			lock1->lck_compatible2 == lock2->lck_compatible2) return TRUE;
+	}
+
+	if (COMPATIBLE(lock1->lck_logical, level2))
+		return TRUE;
+
+	return FALSE;
+}
+
+
+static void enqueue(TDBB tdbb, LCK lock, USHORT level, SSHORT wait)
+{
+/**************************************
+ *
+ *	e n q u e u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Submit a lock to the lock manager.
+ *
+ **************************************/
+
+	LCK parent;
+
+	SET_TDBB(tdbb);
+
+	assert(LCK_CHECK_LOCK(lock));
+
+	lock->lck_id = LOCK_enq(lock->lck_id,
+							(parent = lock->lck_parent) ? parent->lck_id : 0,
+							lock->lck_type,
+							(UCHAR *) & lock->lck_key,
+							lock->lck_length,
+							level,
+							reinterpret_cast <
+							int (*)(void *) >(lock->lck_ast),
+							lock->lck_object, lock->lck_data, wait,
+							tdbb->tdbb_status_vector, lock->lck_owner_handle);
+	if (!lock->lck_id)
+		lock->lck_physical = lock->lck_logical = LCK_none;
+	assert(LCK_CHECK_LOCK(lock));
+}
+
+
+static void external_ast(LCK lock)
+{
+/**************************************
+ *
+ *	e x t e r n a l _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Deliver blocking asts to all locks identical to 
+ *	the passed lock.  This routine is called when 
+ *	we are blocking a lock from another process.
+ *
+ **************************************/
+	LCK match, next;
+
+	assert(LCK_CHECK_LOCK(lock));
+
+/* go through the list, saving the next lock in the list
+   in case the current one gets deleted in the ast */
+
+	for (match = hash_get_lock(lock, 0, 0); match; match = next) {
+		next = match->lck_identical;
+		if (match->lck_ast)
+			reinterpret_cast < int (*) (...) >
+				(*match->lck_ast) (match->lck_object);
+	}
+}
+
+
+
+#ifdef MULTI_THREAD
+static LCK find_block(LCK lock, USHORT level)
+{
+/**************************************
+ *
+ *	f i n d _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a prospective lock, see if the database already holds
+ *	the lock for a different attachment.  If so, return the
+ *	locking lock, otherwise return NULL.
+ *
+ **************************************/
+	LCK next;
+	SCHAR *p1, *p2, *end;
+	DBB dbb;
+	ATT attachment;
+
+	assert(LCK_CHECK_LOCK(lock));
+
+	dbb = lock->lck_dbb;
+
+	if (!(attachment = lock->lck_attachment))
+		return NULL;
+
+	end = lock->lck_key.lck_string + lock->lck_length;
+
+	for (next = attachment->att_long_locks; next; next = next->lck_next)
+		if (lock->lck_type == next->lck_type &&
+			lock->lck_parent && next->lck_parent &&
+			(lock->lck_parent->lck_id == next->lck_parent->lck_id) &&
+			lock->lck_length == next->lck_length &&
+			lock->lck_attachment != next->lck_attachment &&
+			!compatible(next, lock, level)) {
+			for (p1 = lock->lck_key.lck_string, p2 = next->lck_key.lck_string;
+				 p1 < end && *p1++ == *p2++;);
+			if (p1[-1] == p2[-1])
+				return next;
+		}
+
+	return NULL;
+}
+#endif
+
+
+static USHORT hash(UCHAR * value, USHORT length)
+{
+/**************************************
+ *
+ *	h a s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide a repeatable hash value based
+ *	on the passed key.
+ *
+ **************************************/
+	ULONG hash_value;
+	UCHAR *p, *q;
+	USHORT l;
+
+/* Hash the value, preserving its distribution 
+   as much as possible */
+
+	hash_value = 0;
+	q = value;
+
+	for (l = 0, q = value; l < length; l++) {
+		if (!(l & 3))
+			p = (UCHAR *) & hash_value;
+		*p++ = *q++;
+	}
+
+	return (USHORT) (hash_value % LOCK_HASH_SIZE);
+}
+
+
+static void hash_allocate(LCK lock)
+{
+/**************************************
+ *
+ *	h a s h _ a l l o c a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate the hash table for handling
+ *	compatible locks.
+ *
+ **************************************/
+	DBB dbb;
+	ATT att;
+
+	assert(LCK_CHECK_LOCK(lock));
+
+	dbb = lock->lck_dbb;
+
+	if (att = lock->lck_attachment) {
+		att->att_compatibility_table =
+			(VEC) ALLOCPV(type_vec, LOCK_HASH_SIZE);
+		att->att_compatibility_table->vec_count = LOCK_HASH_SIZE;
+	}
+}
+
+
+static LCK hash_get_lock(LCK lock, USHORT * hash_slot, LCK ** prior)
+{
+/**************************************
+ *
+ *	h a s h _ g e t _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return the first matching identical 
+ *	lock to the passed lock.  To minimize
+ *	code for searching through the hash 
+ *	table, return hash_slot or prior lock
+ *	if requested.
+ *
+ **************************************/
+	LCK match, collision;
+	SCHAR *p, *q;
+	SSHORT l;
+	USHORT hash_value;
+	ATT att;
+
+	assert(LCK_CHECK_LOCK(lock));
+
+	if (!(att = lock->lck_attachment))
+		return NULL;
+
+	if (!att->att_compatibility_table)
+		hash_allocate(lock);
+
+	hash_value = hash((UCHAR *) & lock->lck_key, lock->lck_length);
+	if (hash_slot)
+		*hash_slot = hash_value;
+
+/* if no collisions found, we're done */
+
+	if (!(match = (LCK) att->att_compatibility_table->vec_object[hash_value]))
+		return NULL;
+	if (prior)
+		*prior =
+			(LCK *) & att->att_compatibility_table->vec_object[hash_value];
+
+/* look for an identical lock */
+
+	for (collision = match; collision; collision = collision->lck_collision) {
+		if (collision->lck_parent && lock->lck_parent &&
+			collision->lck_parent->lck_id == lock->lck_parent->lck_id &&
+			collision->lck_type == lock->lck_type &&
+			collision->lck_length == lock->lck_length) {
+			/* check that the keys are the same */
+
+			p = lock->lck_key.lck_string;
+			q = collision->lck_key.lck_string;
+			for (l = lock->lck_length; l; l--)
+				if (*p++ != *q++)
+					break;
+			if (!l)
+				return collision;
+		}
+
+		if (prior)
+			*prior = &collision->lck_collision;
+	}
+
+	return NULL;
+}
+
+
+static void hash_insert_lock(LCK lock)
+{
+/**************************************
+ *
+ *	h a s h _ i n s e r t _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert the provided lock into the 
+ *	compatibility lock table.
+ *
+ **************************************/
+	LCK identical;
+	USHORT hash_slot;
+	ATT att;
+
+	assert(LCK_CHECK_LOCK(lock));
+
+	if (!(att = lock->lck_attachment))
+		return;
+
+/* if no identical is returned, place it in the collision list */
+
+	if (!(identical = hash_get_lock(lock, &hash_slot, 0))) {
+		lock->lck_collision =
+			(LCK) att->att_compatibility_table->vec_object[hash_slot];
+		att->att_compatibility_table->vec_object[hash_slot] = (BLK) lock;
+		return;
+	}
+
+/* place it second in the list, out of pure laziness */
+
+	lock->lck_identical = identical->lck_identical;
+	identical->lck_identical = lock;
+}
+
+
+static BOOLEAN hash_remove_lock(LCK lock, LCK * match)
+{
+/**************************************
+ *
+ *	h a s h _ r e m o v e _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove the passed lock from the hash table.
+ *	Return TRUE if this is the last such identical 
+ *	lock removed.   Also return the first matching 
+ *	locking found.
+ *
+ **************************************/
+	LCK next, last, *prior;
+
+	assert(LCK_CHECK_LOCK(lock));
+
+	if (!(next = hash_get_lock(lock, 0, &prior))) {
+		/* set lck_compatible to NULL to make sure we don't
+		   try to release the lock again in bugchecking */
+
+		lock->lck_compatible = NULL;
+		BUGCHECK(285);			/* lock not found in internal lock manager */
+	}
+
+	if (match)
+		*match = next;
+
+/* special case if our lock is the first one in the identical list */
+
+	if (next == lock)
+		if (lock->lck_identical) {
+			lock->lck_identical->lck_collision = lock->lck_collision;
+			*prior = lock->lck_identical;
+			return FALSE;
+		}
+		else {
+			*prior = lock->lck_collision;
+			return TRUE;
+		}
+
+	for (; next; last = next, next = next->lck_identical)
+		if (next == lock)
+			break;
+
+	if (!next) {
+		lock->lck_compatible = NULL;
+		BUGCHECK(285);			/* lock not found in internal lock manager */
+	}
+
+	last->lck_identical = next->lck_identical;
+	return FALSE;
+}
+
+
+static void internal_ast(LCK lock)
+{
+/**************************************
+ *
+ *	i n t e r n a l _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Deliver blocking asts to all locks identical to 
+ *	the passed lock.  This routine is called to downgrade
+ *	all other locks in the same process which do not have
+ *	the lck_compatible field set.  
+ *	Note that if this field were set, the internal lock manager 
+ *	should not be able to generate a lock request which blocks 
+ *	on our own process.
+ *
+ **************************************/
+	LCK match, next;
+
+	assert(LCK_CHECK_LOCK(lock));
+
+/* go through the list, saving the next lock in the list
+   in case the current one gets deleted in the ast */
+
+	for (match = hash_get_lock(lock, 0, 0); match; match = next) {
+		next = match->lck_identical;
+
+		/* don't deliver the ast to any locks which are already compatible */
+
+		if ((match != lock) &&
+			!compatible(match, lock, lock->lck_logical) &&
+			match->lck_ast)
+reinterpret_cast < int (*) (...) > (*match->lck_ast) (match->lck_object);
+	}
+}
+
+
+
+static BOOLEAN internal_compatible(LCK match, LCK lock, USHORT level)
+{
+/**************************************
+ *
+ *	i n t e r n a l _ c o m p a t i b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if there are any incompatible locks
+ *	in the list of locks held by this process.
+ *	If there are none, return TRUE to indicate 
+ *	that the lock is compatible.
+ *
+ **************************************/
+	LCK next;
+
+	assert(LCK_CHECK_LOCK(match));
+	assert(LCK_CHECK_LOCK(lock));
+
+/* first check if there are any locks which are 
+   incompatible which do not have blocking asts;
+   if so, there is no chance of getting a compatible 
+   lock */
+
+	for (next = match; next; next = next->lck_identical)
+		if (!next->lck_ast && !compatible(next, lock, level))
+			return FALSE;
+
+/* now deliver the blocking asts, attempting to gain
+   compatibility by getting everybody to downgrade */
+
+	internal_ast(match);
+
+/* make one more pass to see if all locks were downgraded */
+
+	for (next = match; next; next = next->lck_identical)
+		if (!compatible(next, match, level))
+			return FALSE;
+
+	return TRUE;
+}
+
+
+static void internal_dequeue(TDBB tdbb, LCK lock)
+{
+/**************************************
+ *
+ *	i n t e r n a l _ d e q u e u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dequeue a lock.  If there are identical 
+ *	compatible locks, check to see whether 
+ *	the lock needs to be downgraded.
+ *
+ **************************************/
+	LCK match;
+
+	SET_TDBB(tdbb);
+	assert(LCK_CHECK_LOCK(lock));
+	assert(lock->lck_compatible);
+
+/* if this is the last identical lock in the hash table, release it */
+
+	if (hash_remove_lock(lock, &match)) {
+		if (!LOCK_deq(lock->lck_id))
+			bug_lck("LOCK_deq() failed in lck:internal_dequeue");
+		lock->lck_id = 0;
+		lock->lck_physical = lock->lck_logical = LCK_none;
+		return;
+	}
+
+/* check for a potential downgrade */
+
+	(void) internal_downgrade(tdbb, match);
+}
+
+
+static USHORT internal_downgrade(TDBB tdbb, LCK first)
+{
+/**************************************
+ *
+ *	i n t e r n a l _ d o w n g r a d e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the physical lock value of all locks identical
+ *	to the passed lock.  It should be the same as the
+ *	highest logical level.
+ *
+ **************************************/
+	LCK lock;
+	USHORT level = LCK_none;
+
+	SET_TDBB(tdbb);
+
+	assert(LCK_CHECK_LOCK(first));
+	assert(first->lck_compatible);
+
+/* find the highest required lock level */
+
+	for (lock = first; lock; lock = lock->lck_identical)
+		level = MAX(level, lock->lck_logical);
+
+/* if we can convert to that level, set all identical 
+   locks as having that level */
+
+	if ((level < first->lck_physical) &&
+		LOCK_convert(first->lck_id,
+					 level,
+					 LCK_NO_WAIT,
+					 reinterpret_cast < int (*)(void *) >(external_ast),
+					 (int *) first, tdbb->tdbb_status_vector)) {
+		for (lock = first; lock; lock = lock->lck_identical)
+			lock->lck_physical = level;
+		return level;
+	}
+
+	return first->lck_physical;
+}
+
+
+static BOOLEAN internal_enqueue(
+								TDBB tdbb,
+								LCK lock,
+								USHORT level,
+								SSHORT wait, BOOLEAN convert_flg)
+{
+/**************************************
+ *
+ *	i n t e r n a l _ e n q u e u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if there is a compatible lock already held
+ *	by this process; if not, go ahead and submit the
+ *	lock to the real lock manager.
+ *	NOTE: This routine handles both enqueueing
+ *	and converting existing locks, since the convert
+ *	will find itself in the hash table and convert 
+ *	itself upward.
+ *
+ **************************************/
+	LCK match, update;
+	STATUS *status;
+
+	assert(LCK_CHECK_LOCK(lock));
+	assert(lock->lck_compatible);
+
+	SET_TDBB(tdbb);
+	status = tdbb->tdbb_status_vector;
+
+/* look for an identical lock */
+
+	if (match = hash_get_lock(lock, 0, 0)) {
+		/* if there are incompatible locks for which
+		   there are no blocking asts defined, give up */
+
+		if (!internal_compatible(match, lock, level)) {
+			/* for now return a lock conflict; it would be better if we were to 
+			   do a wait on the other lock by setting some flag bit or some such */
+
+			status[0] = gds_arg_gds;
+			status[1] = gds__lock_conflict;
+			status[2] = gds_arg_end;
+			return FALSE;
+		}
+
+		/* if there is still an identical lock,
+		   convert the lock, otherwise fall
+		   through and enqueue a new one */
+
+		if (match = hash_get_lock(lock, 0, 0)) {
+			/* if a conversion is necessary, update all identical 
+			   locks to reflect the new physical lock level */
+
+			if (level > match->lck_physical) {
+				if (!LOCK_convert(match->lck_id,
+								  level,
+								  wait,
+								  reinterpret_cast <
+								  int (*)(void *) >(external_ast),
+								  (int *) lock, status))
+					  return FALSE;
+				for (update = match; update; update = update->lck_identical)
+					update->lck_physical = level;
+			}
+
+			lock->lck_id = match->lck_id;
+			lock->lck_logical = level;
+			lock->lck_physical = match->lck_physical;
+
+			/* When converting a lock (from the callers point of view), 
+			   then no new lock needs to be inserted. */
+
+			if (!convert_flg)
+				hash_insert_lock(lock);
+
+			return TRUE;
+		}
+	}
+
+/* enqueue the lock, but swap out the ast and the ast argument
+   with the local ast handler, passing it the lock block itself */
+
+	lock->lck_id = LOCK_enq(lock->lck_id,
+							lock->lck_parent ? lock->lck_parent->lck_id : 0,
+							lock->lck_type,
+							(UCHAR *) & lock->lck_key,
+							lock->lck_length,
+							level,
+							reinterpret_cast < int (*)(void *)>(external_ast),
+							(int *)lock,
+							lock->lck_data,
+							wait, status, lock->lck_owner_handle);
+
+/* If the lock exchange failed, set the lock levels appropriately */
+	if (lock->lck_id == 0)
+		lock->lck_physical = lock->lck_logical = LCK_none;
+
+	assert(LCK_CHECK_LOCK(lock));
+
+	if (lock->lck_id) {
+		hash_insert_lock(lock);
+		lock->lck_logical = lock->lck_physical = level;
+	}
+
+	assert(LCK_CHECK_LOCK(lock));
+	return lock->lck_id ? TRUE : FALSE;
+}
+
+
+} // extern "C"
diff --git a/src/jrd/lck.h b/src/jrd/lck.h
new file mode 100644
index 0000000000..d84ff06858
--- /dev/null
+++ b/src/jrd/lck.h
@@ -0,0 +1,94 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		lck.h
+ *	DESCRIPTION:	Lock hander definitions (NOT lock manager)
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_LCK_H_
+#define _JRD_LCK_H_
+
+/* Lock types */
+
+enum lck_t {
+	LCK_database = 1,			/* Root of lock tree */
+	LCK_relation,				/* Individual relation lock */
+	LCK_bdb,					/* Individual buffer block */
+	LCK_tra,					/* Individual transaction lock */
+	LCK_rel_exist,				/* Relation existence lock */
+	LCK_idx_exist,				/* Index existence lock */
+	LCK_attachment,				/* Attachment lock */
+	LCK_shadow,					/* Lock to synchronize addition of shadows */
+	LCK_sweep,					/* Sweep lock for single sweeper */
+	LCK_file_extend,			/* Lock to synchronize file extension */
+	LCK_retaining,				/* Youngest commit retaining transaction */
+	LCK_expression,				/* Expression index caching mechanism */
+	LCK_record_locking,			/* Lock on existence of record locking for this database */
+	LCK_record,					/* Record Lock */
+	LCK_prc_exist,				/* Relation existence lock */
+	LCK_range_relation,			/* Relation refresh range lock */
+	LCK_update_shadow			/* shadow update sync lock */
+};
+
+/* Lock owner types */
+
+enum lck_owner_t {
+	LCK_OWNER_process = 1,		/* A process is the owner of the lock */
+	LCK_OWNER_database,			/* A database is the owner of the lock */
+	LCK_OWNER_attachment,		/* An atttachment is the owner of the lock */
+	LCK_OWNER_transaction		/* A transaction is the owner of the lock */
+};
+
+
+typedef struct lck {
+	struct blk lck_header;
+	struct lck *lck_parent;
+	struct lck *lck_next;		/* Next lock in chain owned by dbb */
+	struct lck *lck_att_next;	/* Next in chain owned by attachment */
+	struct lck *lck_prior;
+	struct lck *lck_collision;	/* collisions in compatibility table */
+	struct lck *lck_identical;	/* identical locks in compatibility table */
+	struct dbb *lck_dbb;		/* database object is contained in */
+	struct blk *lck_object;		/* argument to be passed to ast */
+	struct blk *lck_owner;		/* Logical owner block (transaction, etc.) */
+	struct blk *lck_compatible;	/* Enter into internal_enqueue() and treat as compatible */
+	struct blk *lck_compatible2;	/* Sub-level for internal compatibility */
+	struct att *lck_attachment;	/* Attachment that owns lock */
+	struct btb *lck_blocked_threads;	/* Threads blocked by lock */
+	int (*lck_ast)();			/* Blocking AST routine */
+	SLONG lck_id;				/* Lock id from lock manager */
+	SLONG lck_owner_handle;		/* Lock owner handle from the lock manager's point of view */
+	USHORT lck_count;			/* count of locks taken out by attachment */
+	SSHORT lck_length;			/* Length of lock string */
+	UCHAR lck_logical;			/* Logical lock level */
+	UCHAR lck_physical;			/* Physical lock level */
+#ifndef GATEWAY
+	SLONG lck_data;				/* Data associated with a lock */
+#else
+	SCHAR lck_reserved;			/* Logical level of reserving lock */
+#endif
+	enum lck_t lck_type;
+	union {
+		SCHAR lck_string[1];
+		SLONG lck_long;
+	} lck_key;
+	SCHAR lck_tail[1];			/* Makes the allocater happy */
+} *LCK;
+
+#endif /* _JRD_LCK_H_ */
diff --git a/src/jrd/lck_dummy.cpp b/src/jrd/lck_dummy.cpp
new file mode 100644
index 0000000000..725c479a1f
--- /dev/null
+++ b/src/jrd/lck_dummy.cpp
@@ -0,0 +1,243 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		lock.c
+ *	DESCRIPTION:	Ultrix Lock Manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#ifdef UNIX
+#include <signal.h>
+#endif
+
+#define PTR	SLONG
+
+
+int LOCK_convert(
+				 PTR request_offset,
+				 UCHAR type,
+				 SSHORT wait,
+				 int (*ast_routine) (int *),
+int *ast_argument, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	L O C K _ c o n v e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a lock conversion, if possible.  If the lock cannot be
+ *	granted immediately, either return immediately or wait depending
+ *	on a wait flag.  If the lock is granted return TRUE, otherwise
+ *	return FALSE.  Note: if the conversion would cause a deadlock,
+ *	FALSE is returned even if wait was requested.
+ *
+ **************************************/
+
+	return TRUE;
+}
+
+
+int LOCK_deq(PTR request_offset)
+{
+/**************************************
+ *
+ *	L O C K _ d e q 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an outstanding lock.
+ *
+ **************************************/
+
+	return TRUE;
+}
+
+
+UCHAR LOCK_downgrade(PTR request_offset, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	L O C K _ d o w n g r a d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Downgrade an existing lock returning
+ *	its new state.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+SLONG LOCK_enq(PTR parent_request,
+			   USHORT series,
+			   UCHAR * value,
+			   USHORT length,
+			   UCHAR type,
+			   int (*ast_routine) (int *),
+			   int *ast_argument,
+			   SSHORT wait, STATUS * status_vector, PTR owner_offset)
+{
+/**************************************
+ *
+ *	L O C K _ e n q
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enque on a lock.  If the lock can't be granted immediately,
+ *	return an event count on which to wait.  If the lock can't
+ *	be granted because of deadlock, return NULL.
+ *
+ **************************************/
+
+	return TRUE;
+}
+
+
+void LOCK_fini(STATUS * status_vector, PTR * owner_offset)
+{
+/**************************************
+ *
+ *	L O C K _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release the process block, any outstanding locks,
+ *	and unmap the lock manager.  This is usually called
+ *	by the cleanup handler.
+ *
+ **************************************/
+
+}
+
+
+int LOCK_init(
+			  STATUS * status_vector,
+			  SSHORT owner_flag,
+			  SLONG owner_id, UCHAR owner_type, SLONG * owner_handle)
+{
+/**************************************
+ *
+ *	L O C K _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize lock manager for process.
+ *
+ **************************************/
+
+	return SUCCESS;
+}
+
+
+void LOCK_manager(PTR owner_offset)
+{
+/**************************************
+ *
+ *	L O C K _ m a n a g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	LOCK_manager is used only the the privileged lock manager
+ *	process.  The routine simply waits on it's semaphore.  It
+ *	the semaphore is poked, it wakes up, looks for blocking
+ *	signals to be delived, delivers them, and goes back to
+ *	sleep.
+ *
+ **************************************/
+
+}
+
+
+SLONG LOCK_read_data(PTR request_offset)
+{
+/**************************************
+ *
+ *	L O C K _ r e a d _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read data associated with a lock.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+SLONG LOCK_read_data2(PTR parent_request,
+					  USHORT series,
+					  UCHAR * value, USHORT length, PTR owner_offset)
+{
+/**************************************
+ *
+ *	L O C K _ r e a d _ d a t a 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read data associated with transient locks.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+void LOCK_re_post(int (*ast) (int *), int *arg, PTR owner_offset)
+{
+/**************************************
+ *
+ *	L O C K _ r e _ p o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Re-post an AST that was previously blocked.
+ *
+ **************************************/
+
+}
+
+
+SLONG LOCK_write_data(PTR request_offset, SLONG data)
+{
+/**************************************
+ *
+ *	L O C K _ w r i t e _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a longword into the lock block.
+ *
+ **************************************/
+
+	return 0;
+}
diff --git a/src/jrd/lck_proto.h b/src/jrd/lck_proto.h
new file mode 100644
index 0000000000..4e27b0a6c2
--- /dev/null
+++ b/src/jrd/lck_proto.h
@@ -0,0 +1,54 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		lck_proto.h
+ *	DESCRIPTION:	Prototype header file for lck.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_LCK_PROTO_H
+#define JRD_LCK_PROTO_H
+
+#include "../jrd/lck.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void LCK_assert(TDBB, struct lck *);
+extern int LCK_convert(TDBB, struct lck *, USHORT, SSHORT);
+extern int LCK_convert_non_blocking(TDBB, struct lck *, USHORT, SSHORT);
+extern int LCK_convert_opt(TDBB, struct lck *, USHORT);
+extern int LCK_downgrade(TDBB, struct lck *);
+extern void LCK_fini(TDBB, enum lck_owner_t);
+extern SLONG LCK_get_owner_handle(TDBB, enum lck_t);
+extern void LCK_init(TDBB, enum lck_owner_t);
+extern int LCK_lock(TDBB, struct lck *, USHORT, SSHORT);
+extern int LCK_lock_non_blocking(TDBB, struct lck *, USHORT, SSHORT);
+extern int LCK_lock_opt(TDBB, struct lck *, USHORT, SSHORT);
+extern SLONG LCK_query_data(struct lck *, enum lck_t, USHORT);
+extern SLONG LCK_read_data(struct lck *);
+extern void LCK_release(TDBB, struct lck *);
+extern void LCK_re_post(struct lck *);
+extern void LCK_write_data(struct lck *, SLONG);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_LCK_PROTO_H */
diff --git a/src/jrd/license.h b/src/jrd/license.h
new file mode 100644
index 0000000000..2fb8a3f0ca
--- /dev/null
+++ b/src/jrd/license.h
@@ -0,0 +1,214 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		license.h
+ *	DESCRIPTION:	Internal licensing parameters
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: license.h,v 1.1.1.1 2001-05-23 13:26:19 tamlin Exp $
+ * Revision 1.5  2000/12/08 16:18:21  fsg
+ * Preliminary changes to get IB_BUILD_NO automatically
+ * increased on commits.
+ *
+ * setup_dirs will create 'jrd/build_no.h' by a call to
+ * a slightly modified 'builds_win32/original/build_no.ksh'
+ * that gets IB_BUILD_NO from 'this_build', that hopefully
+ * will be increased automatically in the near future :-)
+ *
+ * I have changed 'jrd/iblicense.h' to use IB_BUILD_TYPE
+ * from 'jrd/build_no.h'.
+ * So all changes to version numbers, build types etc. can
+ * now be done in 'builds_win32/original/build_no.ksh'.
+ *
+ */
+
+#ifndef _JRD_LICENSE_H_
+#define _JRD_LICENSE_H_
+
+#include "../jrd/build_no.h"
+
+#ifdef hpux
+#ifdef hp9000s300
+#ifdef HP300
+#define FB_PLATFORM	"H3"
+#endif
+#ifdef HM300
+#define FB_PLATFORM	"HM"
+#endif
+#else
+#ifdef HP700
+#define FB_PLATFORM	"HP"
+#endif
+#ifdef HP800
+#define FB_PLATFORM	"HO"
+#endif
+#ifdef HP10
+#define FB_PLATFORM	"HU"
+#endif /* HP10 */
+#endif
+#endif
+
+#ifdef sun
+#ifdef sparc
+#ifdef SOLARIS
+#define FB_PLATFORM	"SO"
+#else
+#define FB_PLATFORM	"S4"
+#endif
+#endif
+#ifdef i386
+#define FB_PLATFORM     "SI"
+#endif
+#ifdef SUN3_3
+#define FB_PLATFORM	"SU"
+#endif
+#ifndef FB_PLATFORM
+#define FB_PLATFORM	"S3"
+#endif
+#endif
+
+#ifdef ultrix
+#ifdef mips
+#define FB_PLATFORM	"MU"
+#else
+#define FB_PLATFORM	"UL"
+#endif
+#endif
+
+#ifdef VMS
+#ifdef __ALPHA
+#define FB_PLATFORM     "AV"
+#else
+#define FB_PLATFORM	"VM"
+#endif
+#endif
+
+#ifdef MAC
+#define FB_PLATFORM	"MA"
+#endif
+
+#ifdef PC_PLATFORM
+#undef NODE_CHECK
+#define NODE_CHECK(val,resp)
+#endif
+
+#ifdef NETWARE_386
+#define FB_PLATFORM     "NW"
+#endif
+
+#ifdef AIX
+#define FB_PLATFORM	"IA"
+#endif
+
+#ifdef AIX_PPC
+#define FB_PLATFORM	"PA"
+#endif
+
+#ifdef IMP
+#define FB_PLATFORM	"IM"
+#endif
+
+#ifdef DELTA
+#define FB_PLATFORM	"DL"
+#endif
+
+#ifdef XENIX
+#ifdef SCO_UNIX
+#define FB_PLATFORM	"SI"		/* 5.5 SCO Port */
+#else
+#define FB_PLATFORM	"XN"
+#endif
+#endif
+
+#ifdef sgi
+#define FB_PLATFORM	"SG"
+#endif
+
+#ifdef DGUX
+#ifdef DG_X86
+#define FB_PLATFORM     "DI"	/* DG INTEL */
+#else
+#define FB_PLATFORM	"DA"		/* DG AViiON */
+#define M88K_DEFINED
+#endif /* DG_X86 */
+#endif /* DGUX */
+
+#ifdef WIN_NT
+#ifdef i386
+#if (defined SUPERCLIENT || defined SUPERSERVER)
+#if (defined WIN95)
+#define FB_PLATFORM	"WI"
+#else
+#define FB_PLATFORM	"NIS"
+#endif /* WIN95 */
+#else
+#define FB_PLATFORM	"NI"
+#endif
+#else
+#ifdef alpha
+#define FB_PLATFORM	"NA"
+#else
+#ifdef mips
+#define FB_PLATFORM	"NM"
+#else /* PowerPC */
+#define FB_PLATFORM	"NP"
+#endif
+#endif
+#endif
+#endif
+
+#ifdef EPSON
+#define FB_PLATFORM	"EP"		/* epson */
+#endif
+
+#ifdef ALPHA_NT
+#define	FB_PLATFORM	"AN"		/* Alpha NT */
+#endif
+
+#ifdef DECOSF
+#define	FB_PLATFORM	"AO"		/* Alpha OSF-1 */
+#endif
+
+#ifdef M88K
+#define	FB_PLATFORM	"M8"		/* Motorola 88k */
+#endif
+
+#ifdef UNIXWARE
+#define	FB_PLATFORM	"UW"		/* Unixware */
+#endif
+
+#ifdef NCR3000
+#define	FB_PLATFORM	"NC"		/* NCR3000 */
+#endif
+
+#ifdef LINUX
+#define FB_PLATFORM     "LI"	/* Linux on Intel */
+#endif
+
+#ifdef FREEBSD
+#define FB_PLATFORM     "FB"	/* FreeBSD/i386 */
+#endif
+
+#ifdef NETBSD
+#define FB_PLATFORM     "NB"	/* NetBSD */
+#endif
+
+#ifndef GDS_VERSION
+#define GDS_VERSION	FB_PLATFORM "-" FB_BUILD_TYPE FB_MAJOR_VER "." FB_MINOR_VER "." FB_REV_NO "." FB_BUILD_NO " " FB_BUILD_SUFFIX
+#endif
+
+#endif /* _JRD_LICENSE_H_ */
diff --git a/src/jrd/llio.cpp b/src/jrd/llio.cpp
new file mode 100644
index 0000000000..62139c3032
--- /dev/null
+++ b/src/jrd/llio.cpp
@@ -0,0 +1,717 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		llio.h
+ *	DESCRIPTION:	Low-level I/O routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include <string.h>
+#include "../jrd/common.h"
+#include "../jrd/llio.h"
+#include "../jrd/codes.h"
+#include "../jrd/iberr_proto.h"
+#include "../jrd/llio_proto.h"
+
+#ifdef NETWARE_386
+#include <fcntl.h>
+#include <share.h>
+#include <sys/stat.h>
+#include <fileengd.h>
+#endif
+
+#ifndef NETWARE_386
+#  ifndef WIN_NT
+#    ifndef VMS
+#      include <fcntl.h>
+#      ifndef IMP
+#        ifdef DELTA
+#          include <unistd.h>
+#          include <sys/types.h>
+#        endif
+#        include <sys/file.h>
+#      endif
+#    else
+#      include <file.h>
+#    endif
+#  endif
+#endif
+
+#if (defined IMP || defined EPSON || defined sparc)
+#include <unistd.h>
+#endif
+
+#ifdef WIN_NT
+#include <windows.h>
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT		SCHAR
+#endif
+
+#ifndef O_SYNC
+#define O_SYNC		0
+#endif
+
+#ifndef EINTR
+#define EINTR		0
+#endif
+
+#define IO_RETRY	20
+#define BUFSIZE		32768
+
+static void io_error(STATUS *, TEXT *, TEXT *, STATUS);
+
+#ifdef SHLIB_DEFS
+#define fsync		(*_libgds_fsync)
+
+extern int fsync();
+#endif
+
+
+int LLIO_allocate_file_space(
+							 STATUS * status_vector,
+							 TEXT * filename,
+							 SLONG size, UCHAR fill_char, USHORT overwrite)
+{
+/**************************************
+ *
+ *        L L I O _ a l l o c a t e _ f i l e _ s p a c e
+ *
+ **************************************
+ *
+ * Functional description
+ *        Open (create if necessary) the given file and write 'size'
+ *        number of bytes to it.  Each byte is initialized to
+ *        the passed fill_char.  If 'overwrite' is FALSE and the file
+ *        already exists, return FAILURE. 
+ *
+ *        This routine may be used to make sure that the file already
+ *        has enough space allocated to it.
+ *
+ *        Other side benefit of using this routine could be that once the
+ *        space is allocated, file system would not update the inode every
+ *        time something is written to the file unless the file size grows
+ *        beyond the given 'size'.  So 'write' performance should improve.
+ *
+ *        If there is any error, return FAILURE else return SUCCESS.
+ *        In case of an error, status_vector would be updated.
+ *
+ **************************************/
+	SLONG fd;
+	SCHAR buffer[BUFSIZE];
+	SLONG times;
+	SLONG last_size, length;
+	USHORT open_mode;
+
+	if (overwrite)
+		open_mode = LLIO_OPEN_RW;
+	else
+		open_mode = LLIO_OPEN_NEW_RW;
+
+	if (LLIO_open(status_vector, filename, open_mode, TRUE, &fd))
+		return FAILURE;
+
+	memset(buffer, (int) fill_char, BUFSIZE);
+	times = size / BUFSIZE + 1;	/* For the while loop below */
+	last_size = size % BUFSIZE;
+	while (times--) {
+		length = (times != 0) ? BUFSIZE : last_size;
+		if (LLIO_write(status_vector, fd, filename, 0L, LLIO_SEEK_NONE,
+					   reinterpret_cast < UCHAR * >(buffer), length, 0)) {
+			LLIO_close(0, fd);
+			return FAILURE;
+		}
+	}
+
+	LLIO_close(0, fd);
+
+	return SUCCESS;
+}
+
+
+#ifdef WIN_NT
+#define IO_DEFINED
+int LLIO_close(STATUS * status_vector, SLONG file_desc)
+{
+/**************************************
+ *
+ *	L L I O _ c l o s e		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a file.
+ *
+ **************************************/
+
+	return (CloseHandle((HANDLE) file_desc) ? SUCCESS : FAILURE);
+}
+
+
+int LLIO_open(
+			  STATUS * status_vector,
+			  TEXT * filename,
+			  USHORT open_mode, USHORT share_flag, SLONG * file_desc)
+{
+/**************************************
+ *
+ *	L L I O _ o p e n		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a file.
+ *
+ **************************************/
+	DWORD access, create, attributes;
+
+	access = GENERIC_READ | GENERIC_WRITE;
+	attributes = 0;
+	switch (open_mode) {
+	case LLIO_OPEN_R:
+		access = GENERIC_READ;
+		create = OPEN_EXISTING;
+		break;
+	case LLIO_OPEN_RW:
+		create = OPEN_ALWAYS;
+		break;
+	case LLIO_OPEN_WITH_SYNC_RW:
+		create = OPEN_ALWAYS;
+		attributes = FILE_FLAG_WRITE_THROUGH;
+		break;
+	case LLIO_OPEN_WITH_TRUNC_RW:
+		create = TRUNCATE_EXISTING;
+		break;
+	case LLIO_OPEN_EXISTING_RW:
+		create = OPEN_EXISTING;
+		break;
+	case LLIO_OPEN_WITH_SYNC_W:
+		access = GENERIC_WRITE;
+		create = OPEN_ALWAYS;
+		attributes = FILE_FLAG_WRITE_THROUGH;
+		break;
+	case LLIO_OPEN_NEW_RW:
+		create = CREATE_NEW;
+		break;
+	}
+
+	*file_desc = reinterpret_cast < SLONG > (CreateFile(filename,
+														access,
+														FILE_SHARE_READ |
+														FILE_SHARE_WRITE,
+														NULL, create,
+														FILE_ATTRIBUTE_NORMAL
+														|
+														FILE_FLAG_RANDOM_ACCESS
+														| attributes, 0));
+	if ((HANDLE) * file_desc == INVALID_HANDLE_VALUE
+		&& open_mode == LLIO_OPEN_WITH_TRUNC_RW) *file_desc =
+			reinterpret_cast < SLONG >
+			(CreateFile
+			 (filename, access, FILE_SHARE_READ | FILE_SHARE_WRITE, NULL,
+			  CREATE_NEW,
+			  FILE_ATTRIBUTE_NORMAL | FILE_FLAG_RANDOM_ACCESS | attributes,
+			  0));
+	if ((HANDLE) * file_desc == INVALID_HANDLE_VALUE) {
+		if (status_vector)
+			io_error(status_vector, "CreateFile", filename, isc_io_open_err);
+		return FAILURE;
+	}
+
+	return SUCCESS;
+}
+
+
+int LLIO_read(
+			  STATUS * status_vector,
+			  SLONG file_desc,
+			  TEXT * filename,
+			  SLONG offset,
+			  USHORT whence,
+UCHAR * buffer, SLONG length, SLONG * length_read)
+{
+/**************************************
+ *
+ *	L L I O _ r e a d		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a record from a file.
+ *
+ **************************************/
+	DWORD len;
+
+	if ((whence != LLIO_SEEK_NONE) &&
+		(LLIO_seek(status_vector, file_desc, filename, offset, whence) ==
+		 FAILURE)) return FAILURE;
+
+	if (buffer)
+		if (!ReadFile((HANDLE) file_desc, buffer, length, &len, NULL)) {
+			if (status_vector)
+				io_error(status_vector, "ReadFile", filename,
+						 isc_io_read_err);
+			return FAILURE;
+		}
+
+	if (length_read)
+		*length_read = len;
+
+	return SUCCESS;
+}
+
+
+int LLIO_seek(
+			  STATUS * status_vector,
+			  SLONG file_desc, TEXT * filename, SLONG offset, USHORT whence)
+{
+/**************************************
+ *
+ *	L L I O _ s e e k		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Seek to the given offset.
+ *
+ **************************************/
+	DWORD method;
+
+	if (whence != LLIO_SEEK_NONE) {
+		switch (whence) {
+		case LLIO_SEEK_BEGIN:
+			method = FILE_BEGIN;
+			break;
+		case LLIO_SEEK_CURRENT:
+			method = FILE_CURRENT;
+			break;
+		case LLIO_SEEK_END:
+			method = FILE_END;
+			break;
+		}
+		if (SetFilePointer((HANDLE) file_desc, offset, NULL, method) == -1) {
+			if (status_vector)
+				io_error(status_vector, "SetFilePointer", filename,
+						 isc_io_access_err);
+			return FAILURE;
+		}
+	}
+
+	return SUCCESS;
+}
+
+
+int LLIO_sync(STATUS * status_vector, SLONG file_desc)
+{
+/**************************************
+ *
+ *	L L I O _ s y n c		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush the buffers in a file.
+ *
+ **************************************/
+
+	return (FlushFileBuffers((HANDLE) file_desc) ? SUCCESS : FAILURE);
+}
+
+
+int LLIO_write(
+			   STATUS * status_vector,
+			   SLONG file_desc,
+			   TEXT * filename,
+			   SLONG offset,
+USHORT whence, UCHAR * buffer, SLONG length, SLONG * length_written)
+{
+/**************************************
+ *
+ *	L L I O _ w r i t e		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a record to a file.
+ *
+ **************************************/
+	DWORD len;
+
+	if ((whence != LLIO_SEEK_NONE) &&
+		(LLIO_seek(status_vector, file_desc, filename, offset, whence) ==
+		 FAILURE)) return FAILURE;
+
+	if (buffer)
+		if (!WriteFile((HANDLE) file_desc, buffer, length, &len, NULL)) {
+			if (status_vector)
+				io_error(status_vector, "WriteFile", filename,
+						 isc_io_write_err);
+			return FAILURE;
+		}
+
+	if (length_written)
+		*length_written = len;
+
+	return SUCCESS;
+}
+
+
+static void io_error(
+					 STATUS * status_vector,
+					 TEXT * op, TEXT * filename, STATUS operation)
+{
+/**************************************
+ *
+ *	i o _ e r r o r		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fill up the status_vector with error info.
+ *
+ **************************************/
+
+	IBERR_build_status(status_vector, isc_io_error, gds_arg_string, op,
+					   gds_arg_string, filename, isc_arg_gds, operation,
+					   gds_arg_win32, GetLastError(), 0);
+}
+#endif
+
+
+#ifndef IO_DEFINED
+int LLIO_close(STATUS * status_vector, SLONG file_desc)
+{
+/**************************************
+ *
+ *	L L I O _ c l o s e		( g e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a file.
+ *
+ **************************************/
+
+	return ((close((int) file_desc) != -1) ? SUCCESS : FAILURE);
+}
+
+
+#ifdef NETWARE_386
+int LLIO_open(
+			  STATUS * status_vector,
+			  TEXT * filename,
+			  USHORT open_mode, USHORT share_flag, SLONG * file_desc)
+{
+/**************************************
+ *
+ *	L L I O _ o p e n		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a file.
+ *
+ **************************************/
+	int oldmask;
+	int access;
+	int share;
+	int permission;
+	int flagBits;
+
+	access = O_BINARY;
+	share = SH_DENYNO;
+	permission = 0;
+	flagBits = 0;
+
+	switch (open_mode) {
+	case LLIO_OPEN_R:
+		access |= O_RDONLY;
+		break;
+	case LLIO_OPEN_RW:
+		access |= O_RDWR | O_CREAT;
+		break;
+	case LLIO_OPEN_WITH_SYNC_RW:
+		access |= O_RDWR;
+		flagBits = FILE_WRITE_THROUGH_BIT;
+		break;
+	case LLIO_OPEN_WITH_TRUNC_RW:
+		access |= O_RDWR | O_CREAT | O_TRUNC;
+		break;
+	case LLIO_OPEN_EXISTING_RW:
+		access |= O_RDWR;
+		break;
+	case LLIO_OPEN_WITH_SYNC_W:
+		access |= O_WRONLY | O_CREAT;
+		flagBits = FILE_WRITE_THROUGH_BIT;
+		break;
+	case LLIO_OPEN_NEW_RW:
+		access |= O_CREAT | O_EXCL | O_RDWR;
+		break;
+	}
+
+	if (share_flag)
+		oldmask = umask(0);
+	*file_desc = FEsopen(filename, access, share, permission,
+						 flagBits, PrimaryDataStream);
+	if (share_flag)
+		umask(oldmask);
+	if (*file_desc == -1) {
+		if (status_vector)
+			io_error(status_vector, "FEsopen", filename, isc_io_open_err);
+		return FAILURE;
+	}
+
+	return SUCCESS;
+}
+#endif
+
+
+#ifndef NETWARE_386
+int LLIO_open(
+			  STATUS * status_vector,
+			  TEXT * filename,
+			  USHORT open_mode, USHORT share_flag, SLONG * file_desc)
+{
+/**************************************
+ *
+ *	L L I O _ o p e n		( g e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a file.
+ *
+ **************************************/
+	int oldmask;
+	int mode;
+
+	switch (open_mode) {
+	case LLIO_OPEN_R:
+		mode = O_RDONLY;
+		break;
+	case LLIO_OPEN_RW:
+		mode = O_RDWR | O_CREAT;
+		break;
+	case LLIO_OPEN_WITH_SYNC_RW:
+		mode = O_RDWR | O_CREAT | O_SYNC;
+		break;
+	case LLIO_OPEN_WITH_TRUNC_RW:
+		mode = O_RDWR | O_CREAT | O_TRUNC;
+		break;
+	case LLIO_OPEN_EXISTING_RW:
+		mode = O_RDWR;
+		break;
+	case LLIO_OPEN_WITH_SYNC_W:
+		mode = O_WRONLY | O_CREAT | O_SYNC;
+		break;
+	case LLIO_OPEN_NEW_RW:
+		mode = O_CREAT | O_EXCL | O_RDWR;
+		break;
+	}
+	if (share_flag)
+		oldmask = umask(0);
+	*file_desc = open(filename, mode, 0666);
+	if (share_flag)
+		umask(oldmask);
+	if (*file_desc == -1) {
+		if (status_vector)
+			io_error(status_vector, "open", filename, isc_io_open_err);
+		return FAILURE;
+	}
+
+	return SUCCESS;
+}
+#endif
+
+
+int LLIO_read(
+			  STATUS * status_vector,
+			  SLONG file_desc,
+			  TEXT * filename,
+			  SLONG offset,
+			  USHORT whence,
+UCHAR * buffer, SLONG length, SLONG * length_read)
+{
+/**************************************
+ *
+ *	L L I O _ r e a d		( g e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a record from a file.
+ *
+ **************************************/
+	int len, i;
+	UCHAR *p;
+
+	if ((whence != LLIO_SEEK_NONE) &&
+		(LLIO_seek(status_vector, file_desc, filename, offset, whence) ==
+		 FAILURE)) return FAILURE;
+
+	if (p = buffer)
+		for (i = 0; length && i++ < IO_RETRY;) {
+			if ((len = read((int) file_desc, p, (int) length)) == -1) {
+				if (SYSCALL_INTERRUPTED(errno) && i < IO_RETRY)
+					continue;
+				if (status_vector)
+					io_error(status_vector, "read", filename,
+							 isc_io_read_err);
+				return FAILURE;
+			}
+			if (!len)
+				break;
+			length -= len;
+			p += len;
+		}
+
+	if (length_read)
+		*length_read = p - buffer;
+
+	return SUCCESS;
+}
+
+
+int LLIO_seek(
+			  STATUS * status_vector,
+			  SLONG file_desc, TEXT * filename, SLONG offset, USHORT whence)
+{
+/**************************************
+ *
+ *	L L I O _ s e e k		( g e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Seek to the given offset.
+ *
+ **************************************/
+
+	if (whence != LLIO_SEEK_NONE) {
+		switch (whence) {
+		case LLIO_SEEK_BEGIN:
+			whence = SEEK_SET;
+			break;
+		case LLIO_SEEK_CURRENT:
+			whence = SEEK_CUR;
+			break;
+		case LLIO_SEEK_END:
+			whence = SEEK_END;
+			break;
+		}
+		if (lseek((int) file_desc, offset, (int) whence) == -1) {
+			if (status_vector)
+				io_error(status_vector, "lseek", filename, isc_io_access_err);
+			return FAILURE;
+		}
+	}
+	return SUCCESS;
+}
+
+
+int LLIO_sync(STATUS * status_vector, SLONG file_desc)
+{
+/**************************************
+ *
+ *	L L I O _ s y n c		( g e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush the buffers in a file.
+ *
+ **************************************/
+
+#if (defined DELTA || defined NETWARE_386)
+	return SUCCESS;
+#else
+	return (fsync((int) file_desc) != -1) ? SUCCESS : FAILURE;
+#endif
+}
+
+
+int LLIO_write(
+			   STATUS * status_vector,
+			   SLONG file_desc,
+			   TEXT * filename,
+			   SLONG offset,
+USHORT whence, UCHAR * buffer, SLONG length, SLONG * length_written)
+{
+/**************************************
+ *
+ *	L L I O _ w r i t e		( g e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a record to a file.
+ *
+ **************************************/
+	int len, i;
+	UCHAR *p;
+
+	if ((whence != LLIO_SEEK_NONE) &&
+		(LLIO_seek(status_vector, file_desc, filename, offset, whence) ==
+		 FAILURE)) return FAILURE;
+
+	if (p = buffer)
+		for (i = 0; length && i++ < IO_RETRY;) {
+			if ((len = write((int) file_desc, p, (int) length)) == -1) {
+				if (SYSCALL_INTERRUPTED(errno) && i < IO_RETRY)
+					continue;
+				if (status_vector)
+					io_error(status_vector, "write", filename,
+							 isc_io_write_err);
+				return FAILURE;
+			}
+			if (!len)
+				break;
+			length -= len;
+			p += len;
+		}
+
+	if (length_written)
+		*length_written = p - buffer;
+
+	return SUCCESS;
+}
+
+
+static void io_error(
+					 STATUS * status_vector,
+					 TEXT * op, TEXT * filename, STATUS operation)
+{
+/**************************************
+ *
+ *	i o _ e r r o r		( g e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fill up the status_vector with error info.
+ *
+ **************************************/
+
+	IBERR_build_status(status_vector, isc_io_error, gds_arg_string, op,
+					   gds_arg_string, filename, isc_arg_gds, operation,
+					   gds_arg_unix, errno, 0);
+}
+#endif
diff --git a/src/jrd/llio.h b/src/jrd/llio.h
new file mode 100644
index 0000000000..8a70601083
--- /dev/null
+++ b/src/jrd/llio.h
@@ -0,0 +1,43 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		llio.h
+ *	DESCRIPTION:	Low-level I/O routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_LLIO_H_
+#define _JRD_LLIO_H_
+
+/* I/O macros */
+
+#define LLIO_OPEN_RW		1
+#define LLIO_OPEN_WITH_SYNC_RW	2
+#define LLIO_OPEN_EXISTING_RW	3
+#define LLIO_OPEN_WITH_SYNC_W	4
+#define LLIO_OPEN_WITH_TRUNC_RW	5
+#define LLIO_OPEN_R		6
+#define LLIO_OPEN_NEW_RW        7
+
+#define LLIO_SEEK_NONE		0
+#define LLIO_SEEK_BEGIN		1
+#define LLIO_SEEK_CURRENT	2
+#define LLIO_SEEK_END		3
+
+
+#endif /* _JRD_LLIO_H_ */
diff --git a/src/jrd/llio_proto.h b/src/jrd/llio_proto.h
new file mode 100644
index 0000000000..9060bb8000
--- /dev/null
+++ b/src/jrd/llio_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		llio_proto.h
+ *	DESCRIPTION:	Prototype header file for llio.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_LLIO_PROTO_H_
+#define _JRD_LLIO_PROTO_H_
+
+extern int LLIO_allocate_file_space(STATUS *, TEXT *, SLONG, UCHAR, USHORT);
+extern int LLIO_close(STATUS *, SLONG);
+extern int LLIO_open(STATUS *, TEXT *, USHORT, USHORT, SLONG *);
+extern int LLIO_read(STATUS *, SLONG, TEXT *, SLONG, USHORT, UCHAR *, SLONG,
+					 SLONG *);
+extern int LLIO_seek(STATUS *, SLONG, TEXT *, SLONG, USHORT);
+extern int LLIO_sync(STATUS *, SLONG);
+extern int LLIO_write(STATUS *, SLONG, TEXT *, SLONG, USHORT, UCHAR *, SLONG,
+					  SLONG *);
+
+#endif /* _JRD_LLIO_PROTO_H_ */
diff --git a/src/jrd/lls.h b/src/jrd/lls.h
new file mode 100644
index 0000000000..b7f1857a67
--- /dev/null
+++ b/src/jrd/lls.h
@@ -0,0 +1,36 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		lls.h
+ *	DESCRIPTION:	Linked list stack definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_LLS_H_
+#define _JRD_LLS_H_
+
+#define LLS_PUSH(object, stack)		ALL_push ((struct blk *) object, stack)
+#define LLS_POP(stack)			ALL_pop (stack)
+
+typedef struct lls {
+	struct blk lls_header;
+	struct blk *lls_object;
+	struct lls *lls_next;
+} *LLS;
+
+#endif /* _JRD_LLS_H_ */
diff --git a/src/jrd/lnmdef.h b/src/jrd/lnmdef.h
new file mode 100644
index 0000000000..640f76fd45
--- /dev/null
+++ b/src/jrd/lnmdef.h
@@ -0,0 +1,52 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#define 	LNM$M_NO_ALIAS	1
+#define 	LNM$M_CONFINE	2
+#define 	LNM$M_CRELOG	4
+#define 	LNM$M_TABLE	8
+#define 	LNM$M_CONCEALED	256
+#define 	LNM$M_TERMINAL	512
+#define 	LNM$M_EXISTS	1024
+#define 	LNM$M_SHAREABLE	65536
+#define 	LNM$M_CREATE_IF	16777216
+#define 	LNM$M_CASE_BLIND	33554432
+#define 	LNM$S_LNMDEF	4
+#define 	LNM$V_NO_ALIAS	0
+#define 	LNM$V_CONFINE	1
+#define 	LNM$V_CRELOG	2
+#define 	LNM$V_TABLE	3
+#define 	LNM$V_CONCEALED	8
+#define 	LNM$V_TERMINAL	9
+#define 	LNM$V_EXISTS	10
+#define 	LNM$V_SHAREABLE	16
+#define 	LNM$V_CREATE_IF	24
+#define 	LNM$V_CASE_BLIND	25
+#define 	LNM$C_TABNAMLEN	31
+#define 	LNM$C_NAMLENGTH	255
+#define 	LNM$C_MAXDEPTH	10
+#define 	LNM$_INDEX	1
+#define 	LNM$_STRING	2
+#define 	LNM$_ATTRIBUTES	3
+#define 	LNM$_TABLE	4
+#define 	LNM$_LENGTH	5
+#define 	LNM$_ACMODE	6
+#define 	LNM$_MAX_INDEX	7
+#define 	LNM$_PARENT	8
+#define 	LNM$_LNMB_ADDR	9
+#define 	LNM$_CHAIN	-1
diff --git a/src/jrd/log.cpp b/src/jrd/log.cpp
new file mode 100644
index 0000000000..642d581699
--- /dev/null
+++ b/src/jrd/log.cpp
@@ -0,0 +1,664 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		log.c
+ *	DESCRIPTION:	Log all OSRI calls
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#ifdef WIN_NT
+#include <io.h>
+#endif
+#include "../jrd/jrd.h"
+#include "../jrd/log.h"
+#include "../jrd/ods.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/log_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/thd_proto.h"
+
+
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+
+#include "../jrd/arg.h"
+
+/*
+Documentation on the REPLAY_OSRI_API_CALLS_SUBSYSTEM.
+
+This is currently removed as
+    a) It is currently not used for any customers
+    b) it doesn't work in 4.0
+    c) Has a slight performance impact.
+    d) It needs work to cover the full range of 4.0 API calls
+
+
+This is a valuable function to re-activate in the product, but 
+until it is I've #ifdef'ed it out under REPLAY_OSRI_API_CALLS_SUBSYSTEM.
+I've also embedded the notes on how it works into log.c so they
+can serve as a reference to a future completion of implementation.
+
+Not reviewed, removal & documentation only
+
+1996-Nov-07 David Schnepper 
+
+================= dialogue history ================
+
+From ccaro@wpo.borland.com Thu Nov  7 10:23 PST 1996
+
+I think we should keep REPLAY in the product..
+
+I think it will be an  invaluable tool for debugging complex
+SuperServer interactions. While the CLASSIC architecture is well-tested,
+multi-user interactions will only become more frenetic as the multi-user
+server evolves to higher levels of SMP support.
+
+------------  and ----------
+
+From bkarwin@interbase.borland.com Thu Nov  7 13:19 PST 1996
+
+I do not know of any customers sites who use REPLAY.  It is likely that
+only Motorola knows of its existance.
+
+This is the first I've heard of this feature, at least that I recall.
+I believe the rest of support also did not know of this feature.  So it
+may be safe to say that none of us use it.  :-)
+
+It sounds like a good feature.  In fact, a customer asked recently if
+there was a server-side feature akin to Delphi's "SQL Monitor" (which
+logs all BDE and InterBase API calls), and we had to say no.  Even if
+we had known about the REPLY feature, I think we would have said no,
+since it is uncertified.
+
+I think we should keep it in the product, and even do some development
+on it, to eventually make it a supported feature that can be used
+for diagnostics.
+
+-Bill Karwin
+
+-----------------------
+
+
+   Documentation on the REPLAY_OSRI_API_CALLS_SUBSYSTEM.
+
+-----------
+
+From deej@borland.com Thu Nov  7 09:48 PST 1996
+
+I'll confess to having written the REPLAY feature. 
+I used to say that I wrote it to avoid going to Phoenix 
+in August, when Motorola was having a problem that we 
+could only reproduce by running their application.  
+For whatever reason it was impossible to get the 
+application inhouse. 
+
+But I really wrote it as a general purpose diagnostic tool 
+that would allow us to recreate customer problems without 
+sending an engineer to a customer site, and without the 
+necessity of figuring out a complex application. 
+
+Here's the way it works: the customer makes a copy of their 
+database to tape.  They start REPLAY logging, then run their 
+application per usual.  When the error occurs, they stop 
+logging.  They send the original database and the REPLAY log 
+to us, and we re-run the log inhouse.  It's like a tape recorder 
+which records all the API calls their application makes. 
+
+The feature worked beautifully in the Motorola case, and I 
+was able to reproduce two weeks' worth of the customer's 
+operations in an hour, enabling me to fix the bug within a 
+day when it might have taken several weeks at the customer 
+site. 
+
+Unfortunately, new API calls or parameters have been added 
+and the REPLAY feature has not been updated.  At some point during 
+the 4.0 cycle I updated REPLAY to take care of the new calls 
+added to that point.   But REPLAY has never been maintained 
+as a full-blown feature, meaning it was only tested on one platform, 
+and certainly never had full testing to certify that it works 
+for all API calls. 
+
+I think it is best if we leave this as a latent feature, which 
+can be dusted off if really needed in a future customer situation. 
+At that time we can generate a t-kit with the feature turned on, 
+so there is no need to maintain it as a fully supported feature. 
+To be sure, InterBase is a much more reliable database than it 
+was in 1990 and these types of situations occur less often. 
+And the cost of fully productizing this particular feature is 
+frightening. 
+
+At 04:58 PM 11/6/96 -0800, David Schnepper wrote:
+>
+>Does anyone still use the REPLAY facility?
+>
+>For those that don't know, InterBase had the ability to record all API calls
+>in a log file, with the idea being to make an audit trail for debugging
+>problems found in the field.
+>
+>There also was (apparently) the ability to replay the log to see if the
+>trouble still reproduced.
+>
+>The reason I ask is I have found that REPLAY for Blobs (at least) doesn't
+>function in 4.O - there is a private API call gds__map_blobs() which was
+>used for the replay function that calls into the engine in an unsafe way.
+>
+>I would like to turn REPLAY off, by turning off the #ifdef in common.h - but
+>would like to check on whether anyone in-house is using it - or if
+>it is likely that any knowledgable customer is using it.
+>
+>Aside: we'll get a slight performance gain on each API call by turning
+>it off as well.
+>
+>Dave
+>
+
+*/
+
+static void error(TEXT *);
+static void log_char(SCHAR);
+static void log_flush(void);
+static void log_long(SLONG);
+static void log_pointer(SCHAR *);
+static void log_short(SSHORT);
+static void log_string(SSHORT, SCHAR *);
+static void log_teb(SSHORT, TEB *);
+static void open_log(TEXT *, SSHORT, SCHAR *);
+
+#define PUT(c)	log_char(c)
+
+
+void LOG_call(enum log_t call_type, ...)
+{
+/**************************************
+ *
+ *	L O G _ c a l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Log an OSRI call for later replay.  This is intended
+ *	for use as a debugging utility to ease fixing 
+ *	bugs in a production environment.
+ *
+ **************************************/
+	DBB dbb;
+	SCHAR *arg_type;
+	SSHORT number;
+	SLONG long_number;
+	SCHAR *pointer;
+	SLONG *long_pointer;
+	va_list ptr;
+
+	dbb = GET_DBB;
+
+	if (!dbb || !dbb->dbb_log || !dbb->dbb_log->log_file)
+		return;
+
+	PUT((SCHAR) call_type);
+
+	VA_START(ptr, call_type);
+
+/* using the argument types described in the table, 
+   pop the arguments off the call stack and put
+   them into the log file */
+
+	for (arg_type = arg_types1[(int) call_type]; *arg_type; arg_type++)
+		switch (*arg_type) {
+		case 'o':
+		case 's':
+			number = va_arg(ptr, int);
+			log_short(number);
+			break;
+
+		case 'l':
+			long_number = va_arg(ptr, SLONG);
+			log_long(long_number);
+			break;
+
+		case 'p':
+			pointer = va_arg(ptr, SCHAR *);
+			log_pointer(pointer);
+			break;
+
+		case 'r':
+			pointer = va_arg(ptr, SCHAR *);
+			break;
+
+		case 'b':
+			pointer = va_arg(ptr, SCHAR *);
+			log_string(number, pointer);
+			break;
+
+		case 'f':
+			number = 0;
+		case 'n':
+			pointer = va_arg(ptr, SCHAR *);
+			if (!number)
+				number = strlen(pointer) + 1;
+			log_string(number, pointer);
+			break;
+
+		case 't':
+			pointer = va_arg(ptr, SCHAR *);
+			log_teb(number, pointer);
+			break;
+
+		case 'd':
+			long_pointer = va_arg(ptr, SLONG *);
+			log_long(long_pointer[0]);
+			log_long(long_pointer[1]);
+			break;
+
+		default:
+			error("argument type not known");
+		}
+
+	va_end(ptr);
+
+	log_flush();
+}
+
+
+void LOG_disable(void)
+{
+/**************************************
+ *
+ *	L O G _ d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disable logging.
+ *
+ **************************************/
+	DBB dbb;
+
+	dbb = GET_DBB;
+
+/* Get header page and look for logging entry */
+
+	PAG_delete_clump_entry(HEADER_PAGE, HDR_log_name);
+
+/* Next, if logging was really enabled, close the file */
+
+	if (dbb->dbb_log && dbb->dbb_log->log_file)
+		LOG_fini();
+}
+
+
+void LOG_enable(TEXT * log_file_name, USHORT l_length)
+{
+/**************************************
+ *
+ *	L O G _ e n a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enable replay logging for the database.
+ *
+ **************************************/
+	DBB dbb;
+
+	dbb = GET_DBB;
+
+/* if we are already enabled for another file, get rid of it */
+
+	if (dbb->dbb_log)
+		LOG_disable();
+
+/* Get database header page and add the log name */
+
+	PAG_add_clump(HEADER_PAGE, HDR_log_name, l_length, log_file_name,
+				  CLUMP_ADD, 0);
+
+/* open the log file for write to make sure that this 
+   is the first entry in the file, and write the version number */
+
+	open_log(log_file_name, l_length, MODE_WRITE);
+	log_short(LOG_VERSION3);
+	LOG_fini();
+
+/* now reopen for append to be a good citizen */
+
+	open_log(log_file_name, l_length, MODE_APPEND);
+}
+
+
+void LOG_fini(void)
+{
+/**************************************
+ *
+ *	L O G _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down the log file for replay logging.
+ *
+ **************************************/
+	DBB dbb;
+	LOG log;
+
+	dbb = GET_DBB;
+
+	if (dbb && (log = dbb->dbb_log)) {
+		if (log->log_file) {
+			log_flush();
+			ib_fclose(log->log_file);
+		}
+		ALL_release(log->log_string);
+		ALL_release(log);
+		dbb->dbb_log = NULL;
+	}
+}
+
+
+void LOG_init(TEXT * name, USHORT length)
+{
+/**************************************
+ *
+ *	L O G _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the REPLAY logging system.
+ *	Check the database to see if logging 
+ *	is enabled.  If so, open the file to
+ *	append to.
+ *
+ **************************************/
+	USHORT log_length;
+	TEXT file_name[256];
+
+/* Get header page and look for logging entry */
+
+	if (!PAG_get_clump(HEADER_PAGE, HDR_log_name, &log_length, file_name))
+		return;
+	file_name[log_length] = 0;
+
+	open_log(file_name, log_length, MODE_APPEND);
+}
+
+
+static void error(TEXT * error_string)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report a failure of the logging system,
+ *	both to the terminal and to the log.
+ *
+ **************************************/
+	DBB dbb;
+	SSHORT length;
+
+	dbb = GET_DBB;
+
+	ib_printf("ERROR in logging system: %s\n", error_string);
+
+	if (dbb->dbb_log && dbb->dbb_log->log_file) {
+		log_short(log_error);
+		length = strlen(error_string);
+		log_short(length);
+	}
+}
+
+
+static void log_char(SCHAR c)
+{
+/**************************************
+ *
+ *	l o g _ c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Log a character to the fill buffer 
+ *	for later flushing to the log.
+ *
+ **************************************/
+	DBB dbb;
+	LOG log;
+
+	dbb = GET_DBB;
+
+	log = dbb->dbb_log;
+	*log->log_ptr++ = c;
+
+/* this log flush could be done in the middle of an OSRI
+   call and hence could be non multiuser compatible -- it
+   is important that the log buffer be large enough that
+   this doesn't happen very often */
+
+	if ((log->log_ptr - log->log_buffer) >= (LOG_BUFFER_LENGTH - 1))
+		log_flush();
+
+}
+
+
+static void log_flush(void)
+{
+/**************************************
+ *
+ *	l o g _ f l u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush the contents of the log buffer to
+ *	the file and do a file flush while we're
+ *	at it.
+ *
+ **************************************/
+	DBB dbb;
+	LOG log;
+	UCHAR *buffer;
+
+	dbb = GET_DBB;
+
+	log = dbb->dbb_log;
+	if (!(log->log_ptr - log->log_buffer))
+		return;
+
+	buffer = log->log_buffer;
+	ib_fwrite(buffer, sizeof(*buffer), log->log_ptr - log->log_buffer,
+			  log->log_file);
+	log->log_ptr = log->log_buffer;
+
+	ib_fflush(log->log_file);
+}
+
+
+static void log_long(SLONG number)
+{
+/**************************************
+ *
+ *	l o g _ l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Log a longword.
+ *
+ **************************************/
+	SLONG vax_number;
+	USHORT i;
+	SCHAR *p;
+
+	vax_number = gds__vax_integer(&number, sizeof(number));
+	p = (SCHAR *) & vax_number;
+	for (i = 0; i < sizeof(number); i++)
+		PUT(*p++);
+}
+
+
+static void log_pointer(SCHAR * pointer)
+{
+/**************************************
+ *
+ *	l o g _ p o i n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Log a pointer.
+ *
+ **************************************/
+	USHORT i;
+	SCHAR *p;
+
+	p = (SCHAR *) & pointer;
+	for (i = 0; i < sizeof(pointer); i++)
+		PUT(*p++);
+}
+
+
+static void log_short(SSHORT number)
+{
+/**************************************
+ *
+ *	l o g _ s h o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Log a shortword.
+ *
+ **************************************/
+	USHORT vax_number;
+	USHORT i;
+	SCHAR *p;
+
+	vax_number = (USHORT) gds__vax_integer(&number, sizeof(number));
+	p = (SCHAR *) & vax_number;
+	for (i = 0; i < sizeof(number); i++)
+		PUT(*p++);
+}
+
+
+static void log_string(SSHORT buffer_size, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	l o g _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Log a buffer of unknown content.
+ *
+ **************************************/
+
+	while (buffer_size--)
+		PUT(*buffer++);
+}
+
+
+static void log_teb(SSHORT count, TEB * vector)
+{
+/**************************************
+ *
+ *	l o g _ t e b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Log a transaction element block.
+ *
+ **************************************/
+	TEB *end;
+
+	for (end = vector + count; vector < end; vector++) {
+		log_pointer(*vector->teb_database);
+		log_long((SLONG) vector->teb_tpb_length);
+		log_string(vector->teb_tpb_length, vector->teb_tpb);
+	}
+}
+
+
+static void open_log(TEXT * file_name, SSHORT file_length, SCHAR * mode)
+{
+/**************************************
+ *
+ *	o p e n _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open the log file.
+ *
+ **************************************/
+	DBB dbb;
+	LOG log;
+#ifndef STACK_REDUCTION
+	SCHAR *log_name, buffer[256];
+#else
+	SCHAR *log_name, *buffer;
+#endif /* !STACK_REDUCTION */
+	void *log_file;
+	int mask;
+
+#ifdef STACK_REDUCTION
+	buffer = (SCHAR *) gds__alloc((SLONG) BUFFER_MEDIUM);
+	if (!buffer) {				/* NOMEM: */
+		error("can't open log file (out of memory)");
+		return;
+	}
+#endif /* STACK_REDUCTION */
+
+	dbb = GET_DBB;
+
+	if (dbb->dbb_log)
+		LOG_fini();
+
+	if (file_length)
+		log_name = file_name;
+	else
+		gds__prefix(buffer, LOG_FILE_NAME);
+	log_name = buffer;
+
+	mask = umask(0111);
+	log_file = ib_fopen(log_name, mode);
+	umask(mask);
+
+	if (!log_file)
+		error("can't open log file");
+	else {
+		dbb->dbb_log = log = (LOG) ALLOCP(type_log);
+		log->log_file = log_file;
+		log->log_string = (STR) ALLOCPV(type_str, LOG_BUFFER_LENGTH);
+		log->log_ptr = log->log_buffer = log->log_string->str_data;
+	}
+#ifdef STACK_REDUCTION
+	if (buffer)
+		gds__free((SLONG *) buffer);
+#endif /* STACK_REDUCTION */
+}
+#endif /* REPLAY_OSRI_API_CALLS_SUBSYSTEM */
diff --git a/src/jrd/log.h b/src/jrd/log.h
new file mode 100644
index 0000000000..61f1b128f5
--- /dev/null
+++ b/src/jrd/log.h
@@ -0,0 +1,115 @@
+/*
+ *	PROGRAM:	REPLAY Debugging Utility
+ *	MODULE:		log.h
+ *	DESCRIPTION:	Definitions for logging OSRI calls
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_LOG_H_
+#define _JRD_LOG_H_
+
+#define LOG_VERSION1	1		/* version to correspond with v2.5 access method */
+#define LOG_VERSION2	2		/* version to correspond with v3.0 access method */
+#define LOG_VERSION3	3		/* version to correspond with v4.0 access method */
+
+/* the log buffer length should be long enough to fit
+   any OSRI call atomically to prevent multiuser bugs */
+
+#define LOG_BUFFER_LENGTH	1024
+
+/* replay log block */
+
+typedef struct log {
+	struct blk log_header;
+	struct str *log_string;		/* string block allocated to hold log buffer */
+	UCHAR *log_buffer;			/* points to beginning of string data */
+	UCHAR *log_ptr;				/* current end of buffer for logging */
+	void *log_file;				/* db-specific file to write */
+} *LOG;
+
+
+
+/* this table is the possible log file entries */
+
+enum log_t {
+	log_attach = 0,				/* V2 OSRI calls */
+	log_blob_info,
+	log_cancel_blob,
+	log_close_blob,
+	log_commit,
+	log_compile,
+	log_create_blob,
+	log_create_database,
+	log_database_info,
+	log_detach,
+	log_get_segment,
+	log_open_blob,
+	log_prepare,
+	log_put_segment,
+	log_receive,
+	log_reconnect,
+	log_release_request,
+	log_request_info,
+	log_rollback,
+	log_send,
+	log_start_and_send,
+	log_start,
+	log_start_multiple,
+	log_transaction_info,
+	log_unwind,
+	log_handle_returned,		/* handle returned from a call */
+	log_statistics,				/* stats for sanity checking */
+	log_error,					/* error from logging system */
+
+	/* the following are V3 OSRI calls -- note that calls which
+	   are even slightly changed are given a new number even if
+	   the name of the call didn't change, such as attach.  This
+	   is to achieve upward compatibility of the log files. */
+
+	log_attach2,
+	log_cancel_events,
+	log_commit_retaining,
+	log_create_blob2,
+	log_create_database2,
+	log_get_slice,
+	log_open_blob2,
+	log_prepare2,
+	log_put_slice,
+	log_que_events,
+	log_blob_seek,
+
+	/* the following are the same as the above calls but they stop recording
+	   buffers that are supposed to be returned by the access method */
+
+	log_get_segment2,
+	log_get_slice2,
+	log_receive2,
+	log_blob_info2,
+	log_database_info2,
+	log_request_info2,
+	log_transaction_info2,
+
+	log_ddl,
+	log_transact_request,
+	log_drop_database,
+
+	log_max
+};
+
+#endif /* _JRD_LOG_H_ */
diff --git a/src/jrd/log_proto.h b/src/jrd/log_proto.h
new file mode 100644
index 0000000000..63ee62b32f
--- /dev/null
+++ b/src/jrd/log_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		log_proto.h		
+ *	DESCRIPTION:	Prototype Header file for log.c 
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_LOG_PROTO_H_
+#define _JRD_LOG_PROTO_H_
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+
+extern void LOG_call(enum log_t, ...);
+extern void LOG_disable(void);
+extern void LOG_enable(TEXT *, USHORT);
+extern void LOG_fini(void);
+extern void LOG_init(TEXT *, USHORT);
+
+#endif /* REPLAY_OSRI_API_CALLS_SUBSYSTEM */
+
+#endif /* _JRD_LOG_PROTO_H_ */
diff --git a/src/jrd/loiter.cpp b/src/jrd/loiter.cpp
new file mode 100644
index 0000000000..d8ab850e12
--- /dev/null
+++ b/src/jrd/loiter.cpp
@@ -0,0 +1,62 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		loiter.c
+ *	DESCRIPTION:	Waits for the lock to become free
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <windows.h>
+#include "../jrd/common.h"
+#include "../jrd/thd.h"
+#include "../jrd/thd_prot.h"
+#include "../jrd/loiter.h"
+
+/**************************************************************
+ * LOITER_loiter yields control to the Windows non-pre-emptive
+ * "operating system." It returns TRUE if the calling function is
+ * to continue its processing, and FALSE if the calling function
+ * is to break out of what-ever it was doing and return to the
+ * master Executable.
+ **************************************************************/
+BOOLEAN API_ROUTINE LOITER_loiter(void)
+{
+	MSG msg;
+/* save the context */
+	THDD save_context;
+	save_context = THD_get_specific();
+
+	THD_restore_specific();
+
+/* Empty the message queue and in the process yield control */
+	while (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)) {
+		if (msg.message == WM_QUIT) {
+			/* 
+			 * Reintroduce the message so it can be processed at the
+			 * right level, and break out of this low level message loop.
+			 */
+			PostMessage(msg.hwnd, msg.message, msg.wParam, msg.lParam);
+			return FALSE;
+		}
+		TranslateMessage(&msg);
+		DispatchMessage(&msg);
+	}
+/* restore the context */
+	THD_put_specific(save_context);
+	return TRUE;
+}
diff --git a/src/jrd/loiter.h b/src/jrd/loiter.h
new file mode 100644
index 0000000000..84fad219d6
--- /dev/null
+++ b/src/jrd/loiter.h
@@ -0,0 +1,41 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		loiter.h
+ *	DESCRIPTION:	prototypes for callback functions in 
+ *			the lock manager. 
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_LOITER_H_
+#define _JRD_LOITER_H_
+
+#ifndef __WINDOWS_H
+#include <windows.h>
+#endif
+
+BOOLEAN LOITER_loiter(void);
+/*
+ * future additions:
+ * BOOLEAN LOITER_register_callback (BOOLEAN (*wait_callback)(void *),
+ *				     void *param);
+ * BOOLEAN LOITER_unregister_callback (BOOLEAN (*wait_callback)(void *),
+ *			       	       void *param);
+*/
+
+#endif
diff --git a/src/jrd/makefile.mak b/src/jrd/makefile.mak
new file mode 100644
index 0000000000..a60e1e9e2a
--- /dev/null
+++ b/src/jrd/makefile.mak
@@ -0,0 +1,302 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+#
+# Use the command line option -DNOSTACK to disable stack switching on JRD.DLL
+#
+#--------------------------- PC JRD MAKEFILE ----------------------------
+ROOT=..
+.path.c=$(ROOT)\jrd
+
+# Path to devkit and clisdk
+!if !$d(TPATH)
+TPATH=..
+!endif
+
+#LCFLAGS (local compiler flags) -wpro -DHSDEBUG -DHSDEBUGFOREIGN -DHSDEBUGYGG
+# -wpro : warns undefined function calls
+# -N-   : turn stack checking off
+LCFLAGS= -N-
+
+#LLFLAGS (local link flags)
+# -F    : inhibit optimization of far calls to near data
+# -3    : generate 386 enhanced mode instructions
+LLFLAGS= -f -3
+
+LINCLUDEPATH=$(TPATH)\clisdk\include;$(TPATH)\wfwdev\include
+
+!include $(ROOT)\std.mk
+
+#--------------------------- SOURCE COMPONENTS -----------------------------
+
+
+WINSRCS = dllshell.c
+
+
+JRD1 = all.c bkm.c blb.c btr.c builtin.c blf.c
+JRD2 = cch.c cmp.c cvt.c cvt2.c dfw.c dpm.c dyn.c dyn_def.c dyn_del.c
+JRD3 = dyn_mod.c err.c evl.c exe.c ext.c filters.c flu.c fun.c
+JRD4 = grant.c iberr.c idx.c inf.c ini.c intl.c inuse.c
+JRD5 = jrd.c jrdwep.c lck.c log.c met.c misc.c mov.c nav.c opt.c
+JRD6 = pag.c par.c pcmet.c pcsleep.c pwd.c qatest.c rlck.c rng.c 
+JRD7 = rse.c sbm.c sch.c scl.c sdw.c shut.c sort.c sqz.c svc.c sym.c
+JRD8 = tpc.c tra.c val.c vio.c windows.c 
+OPENSRCS = fileserv.c
+JRDSRCS = $(JRD1) $(JRD2) $(JRD3) $(JRD4) $(JRD5) $(JRD6) $(JRD7) \
+	  $(JRD8) $(OPENSRCS) 
+JRDLOCKSRCS = lock.c
+JRDOBJS = $(JRDSRCS:.c=.obj) $(WINSRCS:.c=.obj) $(JRDLOCKSRCS:.c=.obj)
+
+GDSSRCS = alt.c flu.c gdswep.c license.c why.c perf.c utl.c 
+GDSASM  = thin.asm 
+GDSDSQLSRCS = preparse.c user_dsq.c blob.c array.c
+GDSOBJS = $(GDSSRCS:.c=.obj) $(GDSASM:.asm=.obj) \
+	  $(GDSDSQLSRCS:.c=.obj) $(WINSRCS:.c=.obj)
+
+IUTL1 = dsc.c enc.c function.c gds.c isc.c isc_file.c isc_ipc.c
+IUTL2 = isc_sync.c iutlswep.c loiter.c math.c node.c sdl.c seg.c thd.c 
+IUTLSRCS = $(IUTL1) $(IUTL2) 
+IUTLDSQLSRCS = utld.c 
+IUTLOBJS = $(IUTLSRCS:.c=.obj) $(IUTLDSQLSRCS:.c=.obj) $(WINSRCS:.c=.obj)
+
+
+# Extra files which are used to build the product
+XFILE = gds.def jrd.def iutls.def makefile.mak version.rc jrd_ver.rc 
+XFILES = evl_like.c sweep.cur
+
+#---------------------------- TARGET LIST --------------------------------
+
+# GDS import definition files
+!if !$d(NOSTACK)
+ENGINELIB = $(ROOT)\stack\$(.path.obj)\stack.lib
+!else
+ENGINELIB = jrd.lib
+!endif
+
+# GDS no longer links with ENGINELIB since it's dynamically loaded.
+GDSLIBS = $(ROOT)\remote\$(.path.obj)\remote.lib \
+	  $(ROOT)\dsql\$(.path.obj)\dsql.lib \
+	  iutls.lib 
+
+# JRD import definition files
+JRDLIBS =iutls.lib
+
+# IUTLS import definition files
+IUTLLIBS =
+
+LIBS = mathw$(MODEL) import cw$(MODEL)
+
+ALLBIN = gds.dll jrd.dll iutls.dll
+ALLLIBS = gds.lib jrd.lib iutls.lib 
+
+all: makefile.tmp extern_libs gds.h $(ALLLIBS) $(ALLBIN)
+alllibs: makefile.tmp $(ALLLIBS)
+allbin: makefile.tmp extern_libs $(ALLBIN)
+
+#------------------------------ RULES -------------------------------------
+# NOTE:  c0dx must be the first obj on the link line!
+
+#----------- Windows DLLs -----------
+
+gds.dll: $(GDSOBJS) $(GDSLIBS) gds.rsp gds.def version.rc
+	$(TLINK) $(LFLAGS) $(TOOLPATH)\lib\c0d$(MODEL) @$*.rsp, @&&|
+	$<
+	$*.map
+	$(LIBS) $(GDSLIBS)
+	$&.def
+|
+	$(RC)  -i $(TOOLPATH)\include version.rc $<
+!if !$d(NOSTACK)
+	echo Stack Switching Build      > $(.path.dll)\readme.txt
+!else
+	echo No Stack Switching Build   > $(.path.dll)\readme.txt
+!endif
+
+jrd.dll: $(JRDOBJS) $(JRDLIBS) jrd.rsp jrd.def version.rc jrd_ver.rc
+	$(TLINK) $(LFLAGS) $(TOOLPATH)\lib\c0d$(MODEL) @$*.rsp, @&&|
+	$<
+	$*.map
+	$(LIBS) $(JRDLIBS)
+	$&.def
+|
+	$(RC)  -i $(TOOLPATH)\include jrd_ver.rc $<
+
+iutls.dll: $(IUTLOBJS) $(IUTLLIBS) iutls.rsp iutls.def version.rc
+	$(TLINK) $(LFLAGS) $(TOOLPATH)\lib\c0d$(MODEL) @$*.rsp, @&&|
+	$<
+	$*.map
+	$(LIBS) $(IUTLLIBS)
+	$&.def
+|
+	$(RC)  -i $(TOOLPATH)\include version.rc $<
+
+#----------- Response files -----------
+gds.rsp: $(GDSOBJS)
+	copy &&|
+	$**
+| $<
+
+jrd.rsp: $(JRDOBJS)
+	copy &&|
+	$**
+| $<
+
+
+iutls.rsp: $(IUTLOBJS)
+	copy &&|
+	$**
+| $<
+
+#----------- Import Libraries -----------
+jrd.lib: jrd.def
+	implib -o $< $**
+
+iutls.lib: iutls.def
+	implib -o $< $**
+
+gds.lib: gds.def
+	implib -o $< $**
+
+# Because of the circular "architecture" here, we need to build 
+# required libraries within each of the makefiles.
+extern_libs:
+	cd $(ROOT)\dsql
+	make $(MAKEFLAGS) alllibs
+	cd $(ROOT)\remote
+	make $(MAKEFLAGS) alllibs
+	cd $(ROOT)\stack
+	make $(MAKEFLAGS) alllibs
+	cd $(ROOT)\jrd
+
+
+
+# ---- Rules for source files which require special handling ----
+thin.obj: thin.asm
+	$(TASM) -m$(MODEL) thin.asm, $(.path.obj)\thin.obj
+
+gds.h:  ibase.h gdsold.h
+	$(RM) gds.h
+	$(CAT) ibase.h > gds.h
+	$(CAT) gdsold.h >> gds.h
+
+fileserv.obj: $(ROOT)\open\fileserv.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+why.obj: why.c
+	$(CC) -c @&&<
+	$(CFLAGS) -DNO_LOCAL_FILTERS
+< $**
+
+utl.obj: utl.c
+	$(CC) -c @&&<
+	$(CFLAGS) -DREQUESTER
+< $**
+
+alt.obj: alt.c
+	$(CC) -c @&&<
+	$(CFLAGS) -DREQUESTER
+< $**
+
+
+# DSQL source files
+user_dsq.obj: $(ROOT)\dsql\user_dsq.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+utld.obj: $(ROOT)\dsql\utld.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+preparse.obj: $(ROOT)\dsql\preparse.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+blob.obj: $(ROOT)\dsql\blob.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+array.obj: $(ROOT)\dsql\array.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+# Lock source files
+lock.obj: $(ROOT)\lock\lock.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+#---------------------------- UTILITIES ---------------------------------
+# Copy targets to a known installation directory
+install:  extern_libs gds.h $(ALLBIN) $(ALLLIBS)
+	for %i in ($(ALLBIN)) do copy $(.path.dll)\%i $(INSTALLBIN)
+	for %i in ($(ALLLIBS)) do copy $(.path.dll)\%i $(INSTALLLIB)
+!if !$d(DEBUG)
+	copy gds.h $(INSTALLINC)
+	copy ibase.h $(INSTALLINC)
+!endif
+
+
+# Refresh all the source & header files from the DEVSRC directory
+srcs::
+	# Copy all the include files to make maintenance simpler
+	copy $(DEVSRC)\jrd\*.h
+	copy $(DEVSRC)\jrd\quad.c
+
+	for %i in ($(GDSSRCS)) do copy $(DEVSRC)\jrd\%i
+	for %i in ($(GDSASM)) do copy $(DEVSRC)\jrd\%i
+
+	for %i in ($(JRD1)) do copy $(DEVSRC)\jrd\%i
+	for %i in ($(JRD2)) do copy $(DEVSRC)\jrd\%i
+	for %i in ($(JRD3)) do copy $(DEVSRC)\jrd\%i
+	for %i in ($(JRD4)) do copy $(DEVSRC)\jrd\%i
+	for %i in ($(JRD5)) do copy $(DEVSRC)\jrd\%i
+	for %i in ($(JRD6)) do copy $(DEVSRC)\jrd\%i
+	for %i in ($(JRD7)) do copy $(DEVSRC)\jrd\%i
+	for %i in ($(JRD8)) do copy $(DEVSRC)\jrd\%i
+	copy $(DEVSRC)\lock\*.h $(ROOT)\lock
+	for %i in ($(JRDLOCKSRCS)) do copy $(DEVSRC)\lock\%i $(ROOT)\lock
+	copy $(DEVSRC)\wal\*.h $(ROOT)\wal
+
+	for %i in ($(IUTL1)) do copy $(DEVSRC)\jrd\%i
+	for %i in ($(IUTL2)) do copy $(DEVSRC)\jrd\%i
+	for %i in ($(IUTL3)) do copy $(DEVSRC)\jrd\%i
+
+	for %i in ($(WINSRCS)) do copy $(DEVSRC)\jrd\%i
+	for %i in ($(XFILE)) do copy $(DEVSRC)\jrd\%i
+	for %i in ($(XFILES)) do copy $(DEVSRC)\jrd\%i
diff --git a/src/jrd/map.cpp b/src/jrd/map.cpp
new file mode 100644
index 0000000000..575906ff26
--- /dev/null
+++ b/src/jrd/map.cpp
@@ -0,0 +1,962 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		map.c
+ *	DESCRIPTION:	Map GALAXY blr into RDB blr
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include ssdef
+#include descrip
+
+#include "../include/jrd/gds.h"
+#include "../jrd/common.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/gds_proto.h"
+
+#define BUGCHECK		bugcheck
+#define RDB$_SEGSTR_EOF		20480378
+#define RDB$_SEGMENT		20480369
+#define GDS$_MISC_INTERPRETED   1
+
+/* Struct used to describe records that request mapping */
+
+typedef struct msg {
+	struct msg *msg_next;		/* Next message in request */
+	USHORT msg_number;			/* Message number */
+	USHORT msg_gds_length;		/* Length of GDS form */
+	USHORT msg_rdb_length;		/* Length of RDB form */
+	USHORT msg_count;			/* Number of fields */
+	struct msg_repeat {
+		USHORT msg_dtype;		/* Parameter dtype */
+		USHORT msg_length;		/* Parameter length */
+	} msg_rpt[];
+} *MSG;
+
+#include "../jrd/map_proto.h"
+
+typedef struct vary {
+	USHORT vary_length;
+	UCHAR vary_data[];
+} *VARY;
+
+extern double MTH$CVT_D_G(), MTH$CVT_G_D();
+
+static void bugcheck(int);
+static BOOLEAN check_message(UCHAR **);
+static MSG rebuild_message(UCHAR **, UCHAR **);
+static int translate_status(STATUS *, STATUS *, SCHAR **);
+
+#define WRKBUF_SIZ		256
+#define DEFAULT_STATUS_FLAGS	0xF0000L
+
+static SLONG user_codes[] = {
+	1,
+#include "../jrd/rdb_codes.h"
+};
+
+static SCHAR workbuf[1024];
+
+
+void MAP_date_to_gds(SLONG * vms_date, SLONG * gds_date)
+{
+/**************************************
+ *
+ *	M A P _ d a t e _ t o _ g d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a date to GDS date format from VMS format.
+ *
+ **************************************/
+	SLONG time;
+
+	lib$day(gds_date, vms_date, &time);
+	gds_date[1] = time * 100;
+}
+
+
+void MAP_date_to_rdb(SLONG * gds_date, SLONG * vms_date)
+{
+/**************************************
+ *
+ *	M A P _ d a t e _ t o _ r d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a date to VMS date format from GDS format.
+ *
+ **************************************/
+	SLONG time[2], zero[2], temp, temp2;
+
+/* Compute time portion */
+
+	zero[0] = zero[1] = 0;
+	temp = 1000;
+	lib$emul(gds_date + 1, &temp, zero, time);
+
+/* Compute date portion being careful of overflow */
+
+	temp = 60 * 10000000;
+	temp2 = gds_date[0] * 24 * 60;
+	lib$emul(&temp2, &temp, time, vms_date);
+}
+
+
+int MAP_gds_to_rdb(USHORT number, MSG msg, UCHAR * from, UCHAR * to)
+{
+/**************************************
+ *
+ *	M A P _ g d s _ t o _ r d b 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a message number, a GDS format record, and a buffer
+ *	to hold an Rdb format record, check to see if a map record
+ *	exists for the message, and if so do the mapping.  If there
+ *	is not a map record, return 0.  If there is, return the length
+ *	of the Rdb record.
+ *
+ **************************************/
+	VARY vary;
+	UCHAR *p, *q;
+	USHORT l;
+	struct msg_repeat *desc, *end;
+
+/* Find the message.  If none, return 0 and get out */
+
+	for (; msg; msg = msg->msg_next)
+		if (msg->msg_number == number)
+			break;
+
+	if (!msg)
+		return 0;
+
+/* Map data.  Whoppee */
+
+	for (desc = msg->msg_rpt, end = desc + msg->msg_count; desc < end; desc++)
+		switch (desc->msg_dtype) {
+		case blr_cstring:
+			q = from;
+			from += desc->msg_length;
+			vary = to;
+			to += desc->msg_length + 1;
+			l = strlen(q);
+			if (l > desc->msg_length - 1)
+				l = desc->msg_length - 1;
+			if (vary->vary_length = l) {
+				p = vary->vary_data;
+				do
+					*p++ = *q++;
+				while (--l);
+			}
+			break;
+
+		case blr_timestamp:
+			MAP_date_to_rdb(from, to);
+			from += desc->msg_length;
+			to += desc->msg_length;
+			break;
+
+		case blr_d_float:
+			*((double *) to) = MTH$CVT_D_G((double *) from);
+			from += desc->msg_length;
+			to += desc->msg_length;
+			break;
+
+		default:
+			if (l = desc->msg_length)
+				do
+					*to++ = *from++;
+				while (--l);
+		}
+
+	return msg->msg_rdb_length;
+}
+
+
+MSG MAP_parse_blr(UCHAR * org_blr,
+				  USHORT org_blr_length,
+				  UCHAR * new_blr,
+				  USHORT * new_blr_length, SLONG * max_length)
+{
+/**************************************
+ *
+ *	M A P _ p a r s e _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	The price of progress is incompatibility.  GALAXY supports null
+ *	terminated strings, but the Rdb world does not.  To bridge the
+ *	incompatibility, search out messages that contain verboten data
+ *	types and build message blocks for the offending messages.
+ *
+ **************************************/
+	MSG msg, next;
+	UCHAR *end_org_blr, *new, *org, *last_copied;
+	SLONG max;
+
+	end_org_blr = org_blr + org_blr_length;
+	org = last_copied = org_blr;
+	new = new_blr;
+	msg = NULL;
+
+/* Check version.  It must be version 4 or 5 or else we can't handle this */
+
+	if (*org != blr_version4 && *org != blr_version5)
+		return NULL;
+	++org;
+	if (*org++ != blr_begin)
+		return NULL;
+
+/* Process messages until something else is entered.  If the message
+   requires translation, build both a msg mapping block and a new
+   blr message */
+
+	while (*org++ == blr_message)
+		if (check_message(&org)) {
+			while (last_copied < org)
+				*new++ = *last_copied++;
+			if (!(next = rebuild_message(&org, &new)))
+				return NULL;
+			next->msg_next = msg;
+			msg = next;
+			last_copied = org;
+		}
+
+/* If we've process all messages and none require work, indicate that
+   nothing remains to be done and get out */
+
+	for (max = 0, next = msg; next; next = next->msg_next) {
+		max = MAX(max, next->msg_gds_length);
+		max = MAX(max, next->msg_rdb_length);
+	}
+
+	*max_length = max;
+
+	if (!msg)
+		return NULL;
+
+/* The request needs to be rebuilt completely.  We've already copied the
+   messages, now finish the rest of the request. */
+
+	while (last_copied < end_org_blr)
+		*new++ = *last_copied++;
+
+	*new_blr_length = new - new_blr;
+
+	return msg;
+}
+
+
+int MAP_rdb_length(USHORT number, MSG msg)
+{
+/**************************************
+ *
+ *	M A P _ r d b _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine where a particular message type requires mapping,
+ *	and if so, the Rdb length.
+ *
+ **************************************/
+
+	for (; msg; msg = msg->msg_next)
+		if (msg->msg_number == number)
+			return msg->msg_rdb_length;
+
+	return 0;
+}
+
+
+int MAP_rdb_to_gds(USHORT number, MSG msg, UCHAR * from, UCHAR * to)
+{
+/**************************************
+ *
+ *	M A P _ r d b _ t o _ g d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a message number, an Rdb format record, and a buffer
+ *	to hold an GDS format record, check to see if a map record
+ *	exists for the message, and if so do the mapping.  If there
+ *	is not a map record, return 0.  If there is, return the length
+ *	of the GDS record.
+ *
+ **************************************/
+	VARY vary;
+	UCHAR *p, *q;
+	USHORT l;
+	struct msg_repeat *desc, *end;
+
+/* Find the message.  If none, return 0 and get out */
+
+	for (; msg; msg = msg->msg_next)
+		if (msg->msg_number == number)
+			break;
+
+	if (!msg)
+		return 0;
+
+/* Map data.  Whoppee */
+
+	for (desc = msg->msg_rpt, end = desc + msg->msg_count; desc < end; desc++)
+		switch (desc->msg_dtype) {
+		case blr_cstring:
+			vary = from;
+			from += desc->msg_length + 1;
+			p = to;
+			to += desc->msg_length;
+			l = MIN(vary->vary_length, desc->msg_length - 1);
+			if (l) {
+				q = vary->vary_data;
+				do
+					*p++ = *q++;
+				while (--l);
+			}
+			*p = 0;
+			break;
+
+		case blr_timestamp:
+			MAP_date_to_gds(from, to);
+			from += desc->msg_length;
+			to += desc->msg_length;
+			break;
+
+		case blr_d_float:
+			*((double *) to) = MTH$CVT_G_D((double *) from);
+			from += desc->msg_length;
+			to += desc->msg_length;
+			break;
+
+		default:
+			if (l = desc->msg_length)
+				do
+					*to++ = *from++;
+				while (--l);
+		}
+
+	return msg->msg_gds_length;
+}
+
+
+void MAP_release(MSG msg)
+{
+/**************************************
+ *
+ *	M A P _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release any mapping blocks.
+ *
+ **************************************/
+	MSG next;
+
+	while (next = msg) {
+		msg = msg->msg_next;
+		gds__free(next);
+	}
+}
+
+
+int MAP_status_to_gds(STATUS * vms_status, STATUS * gds_status)
+{
+/**************************************
+ *
+ *	M A P _ s t a t u s _ t o _ g d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate an RDB status vector to a GDS error status vector.
+ *
+ **************************************/
+	STATUS code, number, length, gds_index, *tmp, temp[20];
+	USHORT shift, flag;
+	SCHAR msgbuff[WRKBUF_SIZ], *p, *q, *pw1, *pw2, flags[4], part;
+	struct dsc$descriptor_s desc, *dsc_ptr;
+	static SCHAR *messages[] = {
+#include "../jrd/msgs.h"
+		0
+	};
+
+	tmp = temp;
+	pw1 = pw2 = workbuf;
+
+	gds_status[0] = gds_arg_gds;
+	code = vms_status[1];
+
+	if (code == 1)
+		return (gds_status[1] = SUCCESS);
+
+	p = msgbuff;
+	length = 0;
+	desc.dsc$b_class = DSC$K_CLASS_S;
+	desc.dsc$b_dtype = DSC$K_DTYPE_T;
+	desc.dsc$w_length = WRKBUF_SIZ;
+	desc.dsc$a_pointer = p;
+	sys$getmsg(code, &length, &desc, 15, flags);
+	p[length] = 0;
+
+	gds_index = (code >> 3) - 2560000;
+
+	if (gds_index < 0 || gds_index > gds_err_max) {
+		gds_status[1] = gds__random;
+		gds_status[2] = gds_arg_string;
+		gds_status[3] = pw1;
+		gds_status[4] = gds_arg_end;
+		while (*p)
+			*pw2++ = *p++;
+		return gds__random;
+	}
+
+	flag = FALSE;
+	vms_status = vms_status + 3;
+
+	if (*p == '%')
+		p++;
+
+	while (*pw2++ = *p) {
+		if (*p++ != '!')
+			continue;
+
+		pw2--;
+		switch (*p++) {
+		case 'O':
+		case 'Z':
+		case 'S':
+			BUGCHECK(234);		/* msg 234 Unimplemented conversion, FAO directive O,Z,S */
+
+		case 'X':
+		case 'U':
+			if (*p++ != 'L')
+				BUGCHECK(235);	/* msg 235 Unimplemented conversion, FAO directive X,U */
+			*tmp++ = gds_arg_number;
+			number = *tmp++ = *vms_status++;
+			flag = (number == 1) ? FALSE : TRUE;
+			sprintf(pw2, "%%x%x", number);
+			while (*pw2)
+				++pw2;
+			break;
+
+		case 'A':
+			if (*p == 'C') {
+				q = *vms_status++;
+				length = *q++;
+			}
+			else if (*p == 'D' || *p == 'F') {
+				length = *vms_status++;
+				q = *vms_status++;
+			}
+			else if (*p == 'S') {
+				dsc_ptr = *vms_status++;
+				length = dsc_ptr->dsc$w_length;
+				q = dsc_ptr->dsc$a_pointer;
+			}
+			else
+				BUGCHECK(236);	/* msg 236 Error parsing RDB FAO msg string */
+
+			++p;
+			*tmp++ = gds_arg_cstring;
+			*tmp++ = length;
+			*tmp++ = pw2;
+			while (length--)
+				*pw2++ = *q++;
+			break;
+
+		case '%':
+			if (*p != 'S')
+				*pw2++ = *p;
+			else if (flag)
+				*pw2++ = 's';
+			p++;
+			break;
+
+		case '!':
+			*pw2++ = '!';
+			break;
+
+#ifdef DEBUG
+		case '-':
+		case '+':
+		case '*':
+		case '>':
+		case '<':
+		case '/':
+		case '_':
+		case '^':
+			break;
+
+		default:
+			BUGCHECK(237);		/* msg 237 Error parsing RDB FAO msg str */
+#endif
+
+		}
+	}
+
+/* So now we've parsed the message & made it into a string.
+   Further, we've neatly saved the args in order in tmp...!
+   Get gds_message into buffer, parse & fudge parms*/
+
+	gds_status[1] = code = gds__encode(gds_index, 0);
+	p = messages[gds_index];
+	tmp = temp;
+	gds_status = gds_status + 2;
+	flag = FALSE;
+
+	while (*p) {
+		if (*p++ != '%')
+			continue;
+		switch (*p) {
+		case 's':
+			*gds_status++ = gds_arg_cstring;
+			if (*tmp++ != gds_arg_cstring || flag) {
+				flag = TRUE;
+				*gds_status++ = 3;
+				*gds_status++ = pw2;
+				sprintf(pw2, "<?>");
+				break;
+			}
+			*gds_status++ = *tmp++;
+			*gds_status++ = *tmp++;
+			break;
+
+		case 'l':
+			++p;
+		case 'd':
+			*gds_status++ = gds_arg_number;
+			if (*tmp++ != gds_arg_number || flag) {
+				flag = TRUE;
+				*gds_status++ = -1;
+				break;
+			}
+			*gds_status++ = *tmp++;
+			break;
+
+		default:
+			BUGCHECK(238);		/* msg 238 unknown parameter in RdB status vector */
+		}
+	}
+	*gds_status++ = gds_arg_interpreted;
+	*gds_status++ = pw1;
+	*gds_status++ = gds_arg_end;
+
+	return code;
+}
+
+
+int MAP_status_to_rdb(STATUS * status_vector, STATUS * user_status)
+{
+/**************************************
+ *
+ *	M A P _ s t a t u s _ t o _ r d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a status vector from the Groton world to the RDB world.
+ *	Continue until the end of the GDS vector is reached or until
+ *	we hit a code that we don't know.
+ *
+ **************************************/
+	STATUS *gds, *rdb;
+	SLONG total_longwds, ret_value;
+	SCHAR *buf_ptr;
+
+	total_longwds = 0;
+	gds = status_vector;
+	rdb = user_status + 1;
+	buf_ptr = workbuf;
+
+	while (*gds)
+		if (ret_value = translate_status(&gds, &rdb, &buf_ptr))
+			total_longwds += ret_value += 2;
+		else {
+			total_longwds += 2;
+			break;
+		}
+
+	user_status[0] = DEFAULT_STATUS_FLAGS + total_longwds;	/* Hack, hack, hack... */
+	return user_status[1];
+}
+
+
+static void bugcheck(int number)
+{
+/**************************************
+ *
+ *	b u g c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ * output an error message
+ *
+ **************************************/
+	int n;
+	SCHAR buffer[128], number_text[20];
+	USHORT flags;
+
+	n =
+		gds__msg_lookup(0, JRD_BUGCHK, number, sizeof(buffer), buffer,
+						&flags);
+
+	if (n < 1)
+		strcpy(buffer, "error code");
+	sprintf(number_text, " (%d)", number);
+	strcat(buffer, number_text);
+
+	gds__log(buffer);
+}
+
+
+static BOOLEAN check_message(UCHAR ** org_ptr)
+{
+/**************************************
+ *
+ *	c h e c k _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a blr message.  If the message contains a non-Rdb data type,
+ *	return TRUE.  Otherwise update the blr pointer and return FALSE.
+ *
+ **************************************/
+	UCHAR *org, dtype;
+	SSHORT count;
+
+/* Throw away the message number then pick up the number of fields */
+
+	org = *org_ptr + 1;
+	count = *org++;
+	count |= *org++ << 16;
+
+	while (count--)
+		switch (dtype = *org++) {
+		case blr_timestamp:
+		case blr_cstring:
+		case blr_d_float:
+			return TRUE;
+
+		case blr_text:
+		case blr_varying:
+			*org++;
+
+		case blr_short:
+		case blr_long:
+		case blr_quad:
+			*org++;
+		}
+
+	*org_ptr = org;
+
+	return FALSE;
+}
+
+
+static MSG rebuild_message(UCHAR ** org_ptr, UCHAR ** new_ptr)
+{
+/**************************************
+ *
+ *	r e b u i l d _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	A message contains an offensive gds datatype.  Rebuild it as a
+ *	valid Rdb message while building a msg block to drive the data
+ *	mapping.  If we succeed, return the MSG block.  If we fail for
+ *	any reason, return NULL;
+ *
+ **************************************/
+	MSG msg;
+	UCHAR *org, *new, *last_copied;
+	USHORT number, l, length, gds_length, rdb_length;
+	struct msg_repeat *desc, *end;
+
+/* Do some housekeeping then pick up message number and count of parameters */
+
+	length = 0;
+	org = last_copied = *org_ptr;
+	new = *new_ptr;
+	number = *org++;
+	l = *org++;
+	l |= *org++ << 16;
+	msg = gds__alloc((SLONG)
+					 (sizeof(struct msg) + l * sizeof(struct msg_repeat)));
+/* FREE: by MAP_release() */
+	if (!msg)
+		return NULL;			/* NO MEM */
+
+
+	msg->msg_number = number;
+	msg->msg_count = l;
+	msg->msg_gds_length = 0;
+	msg->msg_rdb_length = 0;
+
+	for (desc = msg->msg_rpt, end = desc + l; desc < end; desc++) {
+		switch (desc->msg_dtype = *org++) {
+		case blr_text:
+			gds_length = *org++;
+			gds_length += *org++ << 16;
+			rdb_length = gds_length;
+			break;
+
+		case blr_varying:
+			gds_length = 2 + *org++;
+			gds_length += *org++ << 16;
+			rdb_length = gds_length;
+			break;
+
+		case blr_short:
+			*org++;
+			rdb_length = gds_length = 2;
+			break;
+
+		case blr_long:
+			*org++;
+
+		case blr_float:
+			rdb_length = gds_length = 4;
+			break;
+
+		case blr_quad:
+			*org++;
+
+		case blr_timestamp:
+		case blr_double:
+			rdb_length = gds_length = 8;
+			break;
+
+		case blr_d_float:
+			while (last_copied < org)
+				*new++ = *last_copied++;
+			new[-1] = blr_double;
+			rdb_length = gds_length = 8;
+			break;
+
+		case blr_cstring:
+			while (last_copied < org)
+				*new++ = *last_copied++;
+			new[-1] = blr_varying;
+			gds_length = *org++;
+			gds_length |= *org++ << 16;
+			rdb_length = gds_length + 1;
+			l = rdb_length - 2;
+			*new++ = l;
+			*new++ = l >> 16;
+			last_copied = org;
+			break;
+
+		default:
+			return NULL;
+		}
+		desc->msg_length = gds_length;
+		msg->msg_gds_length += gds_length;
+		msg->msg_rdb_length += rdb_length;
+	}
+
+/* We're done processing parameters.  Copy anything passed over, update
+   pointers, and return */
+
+	while (last_copied < org)
+		*new++ = *last_copied++;
+
+	*org_ptr = org;
+	*new_ptr = new;
+
+	return msg;
+}
+
+
+static int translate_status(
+							STATUS * status_vector,
+							STATUS * user_status, SCHAR ** buf_ptr)
+{
+/**************************************
+ *
+ *	t r a n s l a t e _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a single status message.
+ *	Return the number of FAO arguments.
+ *	If we don't know the status code, return it to caller.
+ *
+ **************************************/
+	STATUS *gds, *rdb, code, *count_addr;
+	USHORT fac = 0, class_ = 0;
+	SSHORT count, length;
+	SCHAR msgbuff[WRKBUF_SIZ], *p, *q, *pw1, *pw2, flags[4];
+	struct dsc$descriptor_s desc, *desc_ptr;
+
+	p = msgbuff;
+	pw1 = pw2 = *buf_ptr;
+	gds = *status_vector;
+	rdb = *user_status;
+	count = 0;
+
+	if (*gds == gds_arg_interpreted) {
+		q = gds[1];
+		rdb[0] = GDS$_MISC_INTERPRETED;
+		rdb[1] = DEFAULT_STATUS_FLAGS + 1;
+		rdb[2] = strlen(q);
+		rdb[3] = gds[1];
+		return 2;
+	}
+
+	if (*gds++ != gds_arg_gds)
+		BUGCHECK(239);			/* msg 239 Interbase status vector inconsistent */
+
+	code = gds__decode(*gds, &fac, &class_);
+
+	if ((code < 0) || (code > gds_err_max)) {
+		rdb[0] = *gds;
+		rdb[1] = DEFAULT_STATUS_FLAGS;
+		return 0;
+	}
+
+	code = *rdb++ = user_codes[code];
+
+	length = 0;
+	desc.dsc$b_class = DSC$K_CLASS_S;
+	desc.dsc$b_dtype = DSC$K_DTYPE_T;
+	desc.dsc$w_length = WRKBUF_SIZ;
+	desc.dsc$a_pointer = p;
+	sys$getmsg(code, &length, &desc, 15, flags);
+
+	p[length] = 0;
+	count_addr = rdb++;
+	++gds;
+
+/* GDS message parameters should be the same in number, order & datatype
+   as those RDB expects.  If not, be real unpleasant about it. */
+
+	while (*p) {
+		if (*p++ != '!')
+			continue;
+
+		switch (*p) {
+		case 'O':
+		case 'X':
+		case 'Z':
+		case 'U':
+		case 'S':
+			if ((*gds++) != gds_arg_number)
+				BUGCHECK(240);	/* msg 240 Interbase/RdB message parameter inconsistency */
+			*rdb++ = *gds++;
+			++count;
+			break;
+
+		case 'A':
+			++p;
+			switch (*gds++) {
+			case gds_arg_cstring:
+				length = *pw2++ = *gds++;
+				q = *gds++;
+				do
+					(*pw2++ = *q++);
+				while (--length);
+				break;
+
+			case gds_arg_string:
+				++pw2;
+				length = 0;
+				q = *gds++;
+				while (*pw2++ = *q++)
+					++length;
+				*pw1 = length;
+				break;
+
+			default:
+				BUGCHECK(240);	/* msg 240 Interbase/RdB message parameter inconsistency */
+			}
+
+			if (*p == 'C')
+				*rdb++ = pw1;
+			else if (*p == 'D' || *p == 'F') {
+				*rdb++ = *pw1++;
+				*rdb++ = pw1;
+				++count;
+			}
+			else if (*p == 'S') {
+				*rdb++ = pw2;
+				desc_ptr = (struct dsc$descriptor *) pw2;
+				desc_ptr->dsc$b_class = DSC$K_CLASS_S;
+				desc_ptr->dsc$b_dtype = DSC$K_DTYPE_T;
+				desc_ptr->dsc$w_length = *pw1++;
+				desc_ptr->dsc$a_pointer = pw1;
+				pw2 += sizeof(struct dsc$descriptor);
+			}
+			else
+				BUGCHECK(241);	/* msg 241 error parsing RDB FAO message string */
+
+			pw1 = pw2;
+			++count;
+			break;
+
+		case '%':
+			++p;
+			if (*p == 'S')
+				break;
+			BUGCHECK(242);		/* msg 242 unimplemented FAO directive */
+
+		case '!':
+			++p;
+			break;
+
+#ifdef DEBUG
+		case '-':
+		case '+':
+			break;
+
+		case '*':
+		case '>':
+		case '<':
+		case '/':
+		case '_':
+		case '^':
+			++p;
+			break;
+
+		default:
+			BUGCHECK(241);		/* msg 241 error parsing RDB FAO message string */
+#endif
+
+		}
+	}
+
+	*buf_ptr = pw2;
+	count_addr[0] = DEFAULT_STATUS_FLAGS + count;
+	*status_vector = gds;
+	*user_status = rdb;
+
+	return count;
+}
diff --git a/src/jrd/map_proto.h b/src/jrd/map_proto.h
new file mode 100644
index 0000000000..a6de82724a
--- /dev/null
+++ b/src/jrd/map_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		map_proto.h
+ *	DESCRIPTION:	Prototype header file for map.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_MAP_PROTO_H_
+#define _JRD_MAP_PROTO_H_
+
+extern void MAP_date_to_gds(SLONG *, SLONG *);
+extern void MAP_date_to_rdb(SLONG *, SLONG *);
+extern int MAP_gds_to_rdb(USHORT, struct msg *, UCHAR *, UCHAR *);
+extern struct map *MAP_parse_blr(UCHAR *, USHORT, UCHAR *, USHORT *, SLONG *);
+extern int MAP_rdb_length(USHORT, struct msg *);
+extern int MAP_rdb_to_gds(USHORT, struct msg *, UCHAR *, UCHAR *);
+extern void MAP_release(struct msg *);
+extern int MAP_status_to_gds(STATUS *, STATUS *);
+extern int MAP_status_to_rdb(STATUS *, STATUS *);
+
+#endif /* _JRD_MAP_PROTO_H_ */
diff --git a/src/jrd/math.cpp b/src/jrd/math.cpp
new file mode 100644
index 0000000000..a40b555c89
--- /dev/null
+++ b/src/jrd/math.cpp
@@ -0,0 +1,42 @@
+/*
+ *      PROGRAM:        JRD Math Floating Point Module
+ *      MODULE:         math.c
+ *      DESCRIPTION:    These are floating point operations which 
+ * 			are explicitly performed outside the module 
+ *			in which they are requested. This allows us to
+ * 			place a stack switching layer in order to 
+ *			guarantee that the EXE stack is in effect at 
+ *			the time the floating point operations are 
+ *			performed.  This is necessary for the floating 
+ *			point co-processor to handle floating point 
+ * 			errors correctly (instead of GPFing).
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/math.h"
+
+double _export MATH_multiply(double f1, double f2)
+{
+	return f1 * f2;
+}
+
+double _export MATH_divide(double f1, double f2)
+{
+	return f1 / f2;
+}
diff --git a/src/jrd/math.h b/src/jrd/math.h
new file mode 100644
index 0000000000..f953b1d961
--- /dev/null
+++ b/src/jrd/math.h
@@ -0,0 +1,26 @@
+/******************************************************************
+These functions are to be used in a stack switching context only.
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+******************************************************************/
+#ifndef __IUTLS_MATH_H
+#define __IUTLS_MATH_H
+
+#define MATH_multiply(f1, f2) ((f1)*(f2))
+#define MATH_divide(f1, f2) ((f1)/(f2))
+
+#endif /* __IUTLS_MATH_H */
diff --git a/src/jrd/mblr.cpp b/src/jrd/mblr.cpp
new file mode 100644
index 0000000000..287ae550f3
--- /dev/null
+++ b/src/jrd/mblr.cpp
@@ -0,0 +1,707 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		MBLR.C
+ *	DESCRIPTION:	RDB DDL Call translator
+ *			Translate MBLR byte strings to DYN byte strings.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/mblr.h"
+#include "../jrd/mblr_proto.h"
+
+#define GET_BYTE(op)	op = (*mblr->met_mblr++); mblr->met_mblr_length--
+#define GET_WORD(op)	op = get_word (mblr)
+#define PEEK_BYTE	(*mblr->met_mblr)
+#define STUFF(dyn)	(*mblr->met_dyn++) = (dyn)
+#define STUFF_END	STUFF (gds_dyn_end)
+#define STUFF_LITERAL	get_literal (mblr)
+#define STUFF_LITERAL_W	get_literal_w (mblr)
+#define STUFF_WORD(dyn)	STUFF (dyn); STUFF (dyn >> 8)
+#define STUFF_INT(dyn)	STUFF (dyn); STUFF (dyn >> 8); STUFF (dyn >> 16); STUFF (dyn >> 24)
+
+#define IN_FIELD	1
+#define IN_INDEX	2
+#define IN_RELATION	3
+#define IN_VIEW		4
+
+typedef struct met {
+	UCHAR met_op;
+	UCHAR *met_mblr;
+	UCHAR *met_dyn;
+	USHORT met_mblr_length;
+	USHORT met_dyn_length;
+} *MET;
+
+static int area, level, duplicates;
+
+static int field_def(MET);
+static int field_descriptor(MET);
+static void get_literal(MET);
+static void get_literal_w(MET);
+static int get_word(MET);
+static int index_def(MET);
+static int parse_mblr(MET);
+static int relation_def(MET);
+static int view_def(MET);
+
+
+int MBLR_translate_to_dyn(
+						  USHORT ddl_operation,
+						  USHORT mblr_buffer_length,
+						  UCHAR * mblr_buffer,
+USHORT * dyn_length, UCHAR * dyn_buffer)
+{
+/************************************************
+ *
+ *	M B L R _ t r a n s l a t e _ t o _ d y n
+ *
+ ************************************************
+ *
+ * Functional description
+ *	Translate Rdb/VMS RDB$DDL call MBLR byte-string
+ *	to a DYN byte-string.  DYN string is created in
+ *	a buffer passed by the caller.  This routine
+ *	returns the length of the DYN string, or zero
+ *	for any failure.
+ *
+ ************************************************/
+	struct met mblr;
+	UCHAR op;
+	int result;
+	UCHAR *dyn_start;
+
+	level = FALSE;
+
+	if ((ddl_operation != mblr$k_define) &&
+		(ddl_operation != mblr$k_modify) && (ddl_operation != mblr$k_delete))
+		return FALSE;
+
+	mblr.met_op = ddl_operation;
+
+	mblr.met_mblr = mblr_buffer;
+	mblr.met_mblr_length = mblr_buffer_length;
+
+	mblr.met_dyn = dyn_start = dyn_buffer;
+	mblr.met_dyn_length = 0;
+
+	op = *mblr.met_mblr++;
+	mblr.met_mblr_length--;
+
+	if (op != mblr$k_version_1)
+		return NULL;
+
+	*mblr.met_dyn++ = (gds_dyn_version_1);
+	*mblr.met_dyn++ = (gds_dyn_begin);
+
+	op = *mblr.met_mblr++;
+	mblr.met_mblr_length--;
+
+	switch (op) {
+	case mblr$k_relation_def:
+		area = IN_RELATION;
+		result = relation_def(&mblr);
+		break;
+	case mblr$k_field_def:
+		area = IN_FIELD;
+		result = field_def(&mblr);
+		break;
+	case mblr$k_view_def:
+		area = IN_VIEW;
+		result = view_def(&mblr);
+		break;
+	case mblr$k_index_def:
+		area = IN_INDEX;
+		result = index_def(&mblr);
+		break;
+	default:
+		return FALSE;
+	}
+
+	*mblr.met_dyn++ = (gds_dyn_end);
+	*mblr.met_dyn++ = (gds_dyn_eoc);
+
+	*dyn_length = mblr.met_dyn - dyn_start;
+
+	return result;
+
+}
+
+
+
+static int field_def(MET mblr)
+{
+/**************************************
+ *
+ *	f i e l d _ d e f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a field modify / update / delete.
+ *
+ **************************************/
+	int op, result;
+
+	result = TRUE;
+
+	switch (mblr->met_op) {
+	case mblr$k_modify:
+		STUFF(gds_dyn_mod_global_fld);
+		STUFF_LITERAL;
+		while ((PEEK_BYTE != mblr$k_field_end) && result)
+			result = parse_mblr(mblr);
+		break;
+
+	case mblr$k_define:
+		if (level)
+			STUFF(gds_dyn_def_local_fld);
+		else
+			STUFF(gds_dyn_def_global_fld);
+		STUFF_LITERAL;
+		while ((PEEK_BYTE != mblr$k_field_end) && result)
+			result = parse_mblr(mblr);
+		break;
+
+	case mblr$k_delete:
+		if (area == IN_FIELD)
+			STUFF(gds_dyn_delete_global_fld);
+		else
+			STUFF(gds_dyn_delete_local_fld);
+		STUFF_LITERAL;
+		break;
+	}
+
+	if (level)
+		GET_BYTE(op);
+
+	STUFF_END;
+
+	return result;
+
+}
+
+
+
+static int index_def(MET mblr)
+{
+/**************************************
+ *
+ *	i n d e x _ d e f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a index modify / update / delete.
+ *
+ **************************************/
+	int op, result;
+
+	result = TRUE;
+
+	switch (mblr->met_op) {
+	case mblr$k_modify:
+		result = FALSE;
+		break;
+
+	case mblr$k_define:
+		duplicates = FALSE;
+		STUFF(gds_dyn_def_idx);
+		STUFF_LITERAL;
+		while ((PEEK_BYTE != mblr$k_index_end) && result)
+			result = parse_mblr(mblr);
+		STUFF(gds_dyn_idx_inactive);
+		STUFF(FALSE);
+		if (duplicates == FALSE) {
+			STUFF(gds_dyn_idx_unique);
+			STUFF_WORD(2);
+			STUFF_WORD(TRUE);
+		}
+		break;
+
+	case mblr$k_delete:
+		STUFF(gds_dyn_delete_idx);
+		STUFF_LITERAL;
+		break;
+	}
+
+	STUFF_END;
+
+	return result;
+
+}
+
+
+
+static int relation_def(MET mblr)
+{
+/**************************************
+ *
+ *	r e l a t i o n _ d e f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a relation modify / update / delete.
+ *
+ **************************************/
+	int op, result;
+
+	level = result = TRUE;
+
+	switch (mblr->met_op) {
+	case mblr$k_modify:
+		STUFF(gds_dyn_mod_rel);
+		break;
+
+	case mblr$k_define:
+		STUFF(gds_dyn_def_rel);
+		break;
+
+	case mblr$k_delete:
+		STUFF(gds_dyn_delete_rel);
+		break;
+	}
+
+	STUFF_LITERAL;
+
+	while ((PEEK_BYTE != mblr$k_relation_end) && result)
+		result = parse_mblr(mblr);
+
+	STUFF_END;
+
+	return result;
+
+}
+
+
+
+static int view_def(MET mblr)
+{
+/**************************************
+ *
+ *	v i e w _ d e f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a view modify / update / delete.
+ *
+ **************************************/
+	int op, result;
+
+	result = TRUE;
+
+	switch (mblr->met_op) {
+	case mblr$k_modify:
+		result = FALSE;
+		break;
+
+	case mblr$k_define:
+		STUFF(gds_dyn_def_view);
+		STUFF_LITERAL;
+		while ((PEEK_BYTE != mblr$k_view_end) && result)
+			result = parse_mblr(mblr);
+		break;
+
+	case mblr$k_delete:
+		STUFF(gds_dyn_delete_rel);
+		STUFF_LITERAL;
+		break;
+	}
+
+	STUFF_END;
+
+	return result;
+}
+
+
+
+static int field_descriptor(MET mblr)
+{
+/**************************************
+ *
+ *	f i e l d _ d e s c r i p t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate an mblr field description string
+ *	from within a define relation statement.
+ *
+ **************************************/
+	int op, type, result;
+
+	result = TRUE;
+
+	GET_BYTE(op);
+	STUFF(gds_dyn_fld_type);
+	GET_BYTE(type);
+
+	switch (type) {
+	case dsc$k_dtype_adt:
+		STUFF_WORD(2);
+		STUFF_WORD(blr_timestamp);
+		break;
+	case dsc$k_dtype_b:
+		STUFF_WORD(2);
+		STUFF_WORD(blr_text);
+		STUFF(gds_dyn_fld_length);
+		STUFF_WORD(2);
+		STUFF_WORD(1);
+		break;
+	case dsc$k_dtype_f:
+	case dsc$k_dtype_g:
+		STUFF_WORD(2);
+		STUFF_WORD(type);
+		break;
+	case dsc$k_dtype_l:
+	case dsc$k_dtype_q:
+	case dsc$k_dtype_w:
+		STUFF_WORD(2);
+		STUFF_WORD(type);
+		STUFF(gds_dyn_fld_scale);
+		STUFF_WORD(2);
+		GET_BYTE(type);
+		STUFF_WORD(type);
+		break;
+	case dsc$k_dtype_qu:
+		STUFF_WORD(2);
+		STUFF_WORD(blr_blob);
+		break;
+	case dsc$k_dtype_t:
+		STUFF_WORD(2);
+		STUFF_WORD(blr_text);
+		STUFF(gds_dyn_fld_length);
+		STUFF_WORD(2);
+		GET_WORD(type);
+		STUFF_WORD(type);
+		break;
+	case dsc$k_dtype_vt:
+		STUFF_WORD(2);
+		STUFF_WORD(blr_varying);
+		STUFF(gds_dyn_fld_length);
+		STUFF_WORD(2);
+		GET_WORD(type);
+		STUFF_WORD(type);
+		break;
+	default:
+		STUFF_WORD(2);
+		STUFF_WORD(blr_short);
+		break;
+	}
+
+	return result;
+}
+
+
+static void get_literal(MET mblr)
+{
+/**************************************
+ *
+ *	g e t _ l i t e r a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a length prefixed literal (byte)
+ *	Note: most MBLR literals use a byte as a length prefix,
+ *            DYN literals use a word.
+ *
+ **************************************/
+
+	int length, op, n;
+
+	GET_BYTE(length);
+	n = length;
+	STUFF_WORD(length);
+
+	while (--n >= 0) {
+		GET_BYTE(op);
+		STUFF(op);
+	}
+
+	return;
+}
+
+
+
+static void get_literal_w(MET mblr)
+{
+/**************************************
+ *
+ *	g e t _ l i t e r a l_w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a length prefixed literal (word)
+ *
+ **************************************/
+	int length, op, n;
+
+	GET_WORD(length);
+	n = length;
+	STUFF_WORD(length);
+
+	while (--n >= 0) {
+		GET_BYTE(op);
+		STUFF(op);
+	}
+
+	return;
+}
+
+
+
+
+static int get_word(MET mblr)
+{
+/**************************************
+ *
+ *	g e t _ w o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a VAX style word.
+ *
+ **************************************/
+	int op, i;
+
+	GET_BYTE(op);
+	GET_BYTE(i);
+	op |= i << 8;
+
+	return op;
+}
+
+
+
+static int parse_mblr(MET mblr)
+{
+/***************************************************
+ *
+ *	p a r s e _ m b l r
+ *
+ ***************************************************
+ *
+ * Functional description
+ *	Primary recursive routine to translate mblr.
+ *
+ ***************************************************/
+	int op, result, i, save_area;
+	UCHAR *save_dyn;
+
+	if (!mblr->met_mblr_length)
+		return FALSE;
+
+	op = PEEK_BYTE;
+
+	result = TRUE;
+
+	switch (op) {
+	case mblr$k_change_attributes:
+	case mblr$k_descriptor:
+		result = field_descriptor(mblr);
+		break;
+
+	case mblr$k_change_field:
+	case mblr$k_delete_field:
+	case mblr$k_define_field:
+		save_area = area;
+		area = IN_FIELD;
+		GET_BYTE(op);
+		result = field_def(mblr);
+		area = save_area;
+		break;
+
+	case mblr$k_dtr_def_val:
+		GET_BYTE(op);
+		STUFF(gds_dyn_fld_default_value);
+		STUFF_LITERAL;
+		break;
+
+	case mblr$k_dtr_edit_str:
+		GET_BYTE(op);
+		STUFF(gds_dyn_fld_edit_string);
+		STUFF_LITERAL;
+		break;
+
+	case mblr$k_dtr_qry_hdr:
+		GET_BYTE(op);
+		if (PEEK_BYTE == mblr$k_dtr_qry_hdr_line) {
+			GET_BYTE(op);
+			GET_BYTE(op);
+			mblr->met_mblr += op;
+			if (PEEK_BYTE != mblr$k_dtr_qry_hdr_end)
+				result = FALSE;
+		}
+		else
+			result = FALSE;
+		break;
+
+	case mblr$k_duplicates:
+		GET_BYTE(op);
+		duplicates = TRUE;
+		break;
+
+	case mblr$k_field_def:
+		GET_BYTE(op);
+		result = field_def(mblr);
+		break;
+
+	case mblr$k_field_expression:
+		GET_BYTE(op);
+		STUFF(gds_dyn_fld_computed_blr);
+		save_dyn = mblr->met_dyn;
+		STUFF_LITERAL_W;
+		STUFF(blr_eoc);
+		(*save_dyn)++;
+		break;
+
+	case mblr$k_field_name:
+		GET_BYTE(op);
+		if (area == IN_INDEX)
+			STUFF(gds_dyn_fld_name);
+		else
+			STUFF(gds_dyn_fld_source);
+		STUFF_LITERAL;
+		break;
+
+	case mblr$k_missing_value:
+		GET_BYTE(op);
+		STUFF(gds_dyn_fld_missing_value);
+		save_dyn = mblr->met_dyn;
+		STUFF_LITERAL_W;
+		STUFF(blr_eoc);
+		(*save_dyn)++;
+		break;
+
+	case mblr$k_relation_name:
+		GET_BYTE(op);
+		STUFF(gds_dyn_rel_name);
+		STUFF_LITERAL;
+		break;
+
+	case mblr$k_rse:
+		GET_BYTE(op);
+		STUFF(gds_dyn_view_blr);
+		save_dyn = mblr->met_dyn;
+		STUFF_LITERAL_W;
+		STUFF(blr_eoc);
+		(*save_dyn)++;
+		break;
+
+	case mblr$k_valid_if:
+		GET_BYTE(op);
+		STUFF(gds_dyn_fld_validation_blr);
+		save_dyn = mblr->met_dyn;
+		STUFF_LITERAL_W;
+		STUFF(blr_eoc);
+		(*save_dyn)++;
+		break;
+
+	case mblr$k_dtr_qry_nam:
+		GET_BYTE(op);
+		STUFF(gds_dyn_fld_query_name);
+		STUFF_LITERAL;
+		break;
+
+	case mblr$k_valid_if_source:
+		GET_BYTE(op);
+		STUFF(gds_dyn_fld_validation_source);
+		STUFF_LITERAL_W;
+		break;
+
+	case mblr$k_computed_by_source:
+		GET_BYTE(op);
+		STUFF(gds_dyn_fld_computed_source);
+		STUFF_LITERAL_W;
+		break;
+
+	case mblr$k_rse_source:
+		GET_BYTE(op);
+		STUFF(gds_dyn_view_source);
+		STUFF_LITERAL_W;
+		break;
+
+	case mblr$k_description_source:
+		GET_BYTE(op);
+		STUFF(gds_dyn_description);
+		STUFF_LITERAL_W;
+		break;
+
+	case mblr$k_sub_type:
+		GET_BYTE(op);
+		STUFF(gds_dyn_fld_sub_type);
+		STUFF_WORD(2);
+		GET_WORD(op);
+		STUFF_WORD(op);
+		break;
+
+	case mblr$k_segment_length:
+		GET_BYTE(op);
+		STUFF(gds_dyn_fld_segment_length);
+		STUFF_WORD(2);
+		GET_WORD(op);
+		STUFF_WORD(op);
+		break;
+
+	case mblr$k_field_noupdate:
+	case mblr$k_field_update:
+		GET_BYTE(op);
+		break;
+
+	case mblr$k_index_unknown1:
+		GET_BYTE(op);
+		break;
+
+	case mblr$k_index_unknown2:
+		GET_BYTE(op);
+		GET_BYTE(op);
+		GET_BYTE(op);
+		break;
+
+	case mblr$k_field_end:
+	case mblr$k_index_end:
+	case mblr$k_relation_end:
+	case mblr$k_view_end:
+		break;
+
+	case mblr_null:
+	case mblr$k_cdd_path:
+	case mblr$k_commit:
+	case mblr$k_constraint:
+	case mblr$k_constraint_count:
+	case mblr$k_constraint_def:
+	case mblr$k_constraint_end:
+	case mblr$k_delete_attributes:
+	case mblr$k_dtr_qry_hdr_line:
+	case mblr$k_dtr_qry_hdr_end:
+	case mblr$k_update:
+	default:
+		result = FALSE;
+		break;
+
+	}
+
+	return result;
+}
diff --git a/src/jrd/mblr.h b/src/jrd/mblr.h
new file mode 100644
index 0000000000..968397bcd6
--- /dev/null
+++ b/src/jrd/mblr.h
@@ -0,0 +1,98 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		MBLR.H
+ *	DESCRIPTION:	Meta-data update language
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_MBLR_H_
+#define _JRD_MBLR_H_
+
+#define mblr_null			0
+
+#define mblr$k_modify			1
+#define mblr$k_define			2
+#define mblr$k_delete			3
+
+#define	mblr$k_version_1		1
+
+#define	mblr$k_cdd_path			5
+#define	mblr$k_change_field		6
+#define	mblr$k_constraint		7
+#define	mblr$k_constraint_def		8
+#define	mblr$k_constraint_end		9
+#define	mblr$k_descriptor		10
+#define	mblr$k_define_field		11
+#define	mblr$k_delete_field		12
+#define	mblr$k_dtr_def_val		13
+#define	mblr$k_dtr_edit_str		14
+#define	mblr$k_dtr_qry_hdr		15
+#define	mblr$k_dtr_qry_hdr_line		16
+#define	mblr$k_dtr_qry_hdr_end		17
+#define	mblr$k_duplicates		18
+#define	mblr$k_field_def		19
+#define	mblr$k_field_end		20
+#define	mblr$k_field_expression		21
+#define	mblr$k_field_name		22
+#define	mblr$k_field_noupdate		23
+#define	mblr$k_field_update		24
+
+#define	mblr$k_index_def		26
+#define	mblr$k_index_end		27
+#define mblr$k_missing_value		28
+
+#define	mblr$k_relation_def		31
+#define	mblr$k_relation_end		32
+#define	mblr$k_relation_name		33
+#define	mblr$k_rse			34
+#define	mblr$k_valid_if			35
+#define	mblr$k_view_def			36
+#define	mblr$k_view_end			37
+#define	mblr$k_change_attributes	38
+#define	mblr$k_delete_attributes	39
+#define	mblr$k_commit			40
+#define	mblr$k_update			41
+#define	mblr$k_dtr_qry_nam		42
+#define	mblr$k_valid_if_source		43
+#define	mblr$k_computed_by_source	44
+#define	mblr$k_rse_source		45
+#define	mblr$k_constraint_count		46
+
+#define mblr$k_description_source	51
+#define mblr$k_sub_type			52
+#define mblr$k_segment_length		53
+
+#define mblr$k_index_unknown1		75
+#define mblr$k_index_unknown2		76
+
+#define mblr_max			54	/* the display table only goes this high */
+
+#define dsc$k_dtype_qu			5	/* a segmented string */
+#define dsc$k_dtype_b			6	/* ? blr_text & special case to be length 1 ? */
+#define dsc$k_dtype_w			blr_short
+#define dsc$k_dtype_l			blr_long
+#define dsc$k_dtype_q			blr_quad
+#define dsc$k_dtype_f			blr_float
+#define dsc$k_dtype_g			blr_double
+#define dsc$k_dtype_d			blr_d_float
+#define dsc$k_dtype_t			blr_text
+#define dsc$k_dtype_vt			blr_varying
+#define dsc$k_dtype_adt			blr_timestamp
+
+#endif /* _JRD_MBLR_H_ */
diff --git a/src/jrd/mblr_proto.h b/src/jrd/mblr_proto.h
new file mode 100644
index 0000000000..b269bc81d9
--- /dev/null
+++ b/src/jrd/mblr_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		mblr_proto.h
+ *	DESCRIPTION:	Prototype Header file for mblr.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_MBLR_PROTO_H_
+#define _JRD_MBLR_PROTO_H_
+
+extern int MBLR_translate_to_dyn(USHORT, USHORT, UCHAR *, USHORT *, UCHAR *);
+
+#endif /* _JRD_MBLR_PROTO_H_ */
diff --git a/src/jrd/mem.cpp b/src/jrd/mem.cpp
new file mode 100644
index 0000000000..0d05e560ec
--- /dev/null
+++ b/src/jrd/mem.cpp
@@ -0,0 +1,82 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		mem.c
+ *	DESCRIPTION:	UNIX memory slopping routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+
+
+int memcmp(UCHAR * s1, UCHAR * s2, int n)
+{
+/**************************************
+ *
+ *	m e m c m p
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	UCHAR *from, *to, *end;
+
+	for (from = s2, to = s1, end = to + n; to < end; to++, from++)
+		if (*to != *from)
+			return (*to < *from) ? -1 : 1;
+
+	return 0;
+}
+
+
+int memcpy(SCHAR * s1, SCHAR * s2, int n)
+{
+/**************************************
+ *
+ *	m e m c p y
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *from, *to, *end;
+
+	for (from = s2, to = s1, end = to + n; to < end;)
+		*to++ = *from++;
+}
+
+
+int memset(SCHAR * s, int c, int n)
+{
+/**************************************
+ *
+ *	m e m s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Propogate a character.
+ *
+ **************************************/
+	SCHAR *p, *end;
+
+	for (p = s, end = p + n; p < end;)
+		*p++ = c;
+}
diff --git a/src/jrd/memtest.cpp b/src/jrd/memtest.cpp
new file mode 100644
index 0000000000..405427c534
--- /dev/null
+++ b/src/jrd/memtest.cpp
@@ -0,0 +1,408 @@
+/*
+ * MTEST.C -- A test program to compare performance of memcpy()/memset()
+ * 	   -- vs. MOV_fast*()/MOV_fill() functions. 
+ *
+ *  This program does speed tests on various implementions of "copy buffer"
+ *  and "initialize buffer" operations.  It's purpose is as a development
+ *  aid to determine which implementations are more efficient for different
+ *  platforms.
+ *
+ *  Considerations when doing this evaluation:
+ *	Alignment of source & destination buffers.
+ *	Size of buffers.
+ *	Compiler optimization.
+ *	Automatic compiler in-lining optimization.
+ *
+ * Because of the short nature of the operation being timed (eg: copy 20 
+ * bytes) - the operation is repeated several times for each 'timing'.
+ *
+ * Each timing run is then also repeated several times to take an average.
+ *
+ * Program originally by Zouhair Janbay - modified 
+ * 1996-Feb-09 David Schnepper 
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <assert.h>
+#include "../jrd/mov.c"
+#include <sys/time.h>
+#include <sys/timeb.h>
+
+
+#define TEST_REPEATS	6		/* Number of times to repeat timing */
+#define	MCOUNT		10000		/* Number of operations per timing */
+#define	MAXSIZE		8196		/* Max size of buffer to copy */
+
+ULONG force_alignment_dummy1;
+UCHAR source[MAXSIZE + sizeof(ULONG) * 2];
+
+ULONG force_alignment_dummy2;
+UCHAR destination[MAXSIZE + sizeof(ULONG) + 2];
+
+/* Test copies of these sizes of buffers */
+USHORT block_sizes[] = { 0, 1, 4, 15, 16, 17, 32, 150, 512, 1024 * 3 - 35 };
+
+#define	COUNT(x) (sizeof(x)/sizeof((x)[0]))
+#define	BSIZES COUNT(block_sizes)
+
+struct timeb tp;
+time_t first_time, last_time, curr_time;
+int curr_repeat = 0;
+ULONG intervals[TEST_REPEATS];
+
+void report_time();
+void init_time();
+void start_time();
+void stop_time();
+void MOV_fill(), MOV_fast(), MOV_faster();
+void memcpy(), memset();
+
+void init_time()
+{
+	int i;
+	for (i = 0; i < COUNT(intervals); i++)
+		intervals[i] = 0;
+	curr_repeat = 0;
+}
+
+void start_time()
+{
+	if (ftime(&tp) != -1)
+		last_time = (tp.time * 1000) + tp.millitm;
+	else
+		ib_printf("ftime() failed\n");
+}
+
+void stop_time()
+{
+	if (ftime(&tp) != -1) {
+		curr_time = (tp.time * 1000) + tp.millitm;
+		intervals[curr_repeat++] = curr_time - last_time;
+	}
+	else
+		ib_printf("ftime() failed\n");
+}
+
+void report_time(s)
+	 char *s;
+{
+	int i;
+	ULONG max_interval = 0;
+	ULONG min_interval = (ULONG) - 1;
+	ULONG sum_interval = 0;
+	ULONG avg_interval;
+
+/* Doesn't handle single repeat case */
+/* Ignores the first timing */
+
+	for (i = 1; i < curr_repeat; i++) {
+		sum_interval += intervals[i];
+		if (intervals[i] > max_interval)
+			max_interval = intervals[i];
+		if (intervals[i] < min_interval)
+			min_interval = intervals[i];
+	}
+
+	avg_interval =
+		(sum_interval - (max_interval + min_interval)) / (curr_repeat - 3);
+
+	ib_printf("%s: %4ld avg ms %4ld min ms %4ld max ms\n",
+			  s, avg_interval, min_interval, max_interval);
+}
+
+main(argc, argv)
+	 int argc;
+	 char **argv;
+{
+	int i, j, k, r;
+
+	init_time();
+	for (r = 0; r < TEST_REPEATS; ++r) {
+		start_time();
+		{
+			for (j = 0; j < MCOUNT; ++j)
+				/* Do nothing */ ;
+		}
+		stop_time();
+	}
+	report_time("Empty Loop");
+
+	init_time();
+	for (r = 0; r < TEST_REPEATS; ++r) {
+		start_time();
+		{
+			for (j = 0; j < MCOUNT; ++j)
+				empty_procedure();
+		}
+		stop_time();
+	}
+	report_time("Empty procedure call");
+
+	ib_printf("\n\nTiming memset (destination aligments & blocksizes)\n\n");
+
+	for (k = 0; k < BSIZES; ++k) {
+		/* Aligned */
+		do_test_memset((UCHAR *) destination, block_sizes[k]);
+	}
+
+	for (k = 0; k < BSIZES; ++k) {
+		/* Unaligned */
+		do_test_memset((UCHAR *) destination + 1, block_sizes[k]);
+	}
+	ib_fflush(ib_stdout);
+
+
+	ib_printf
+		("\n\nTiming memcpy (source aligments, destination alignments & blocksizes)\n\n");
+	for (k = 0; k < BSIZES; ++k) {
+		/* Both aligned */
+		do_test_memcpy((UCHAR *) source, (UCHAR *) destination,
+					   block_sizes[k]);
+	}
+
+	for (k = 0; k < BSIZES; ++k) {
+		/* Both on SAME alignment */
+		do_test_memcpy((UCHAR *) source + 1, (UCHAR *) destination + 1,
+					   block_sizes[k]);
+	}
+
+	for (k = 0; k < BSIZES; ++k) {
+		/* Different alignments */
+		do_test_memcpy((UCHAR *) source + 1, (UCHAR *) destination + 3,
+					   block_sizes[k]);
+	}
+
+	ib_fflush(ib_stdout);
+
+	exit(0);
+}
+
+
+empty_procedure()
+/* Just an empty procedure for testing call overhead */
+{
+}
+
+do_test_memset(dest, size)
+	 void *dest;
+	 int size;
+{
+	int j;
+	int r;
+	char message_buffer[150];
+
+
+	init_time();
+	for (r = 0; r < TEST_REPEATS; r++) {
+		start_time();
+		for (j = 0; j < MCOUNT; ++j)
+			MOV_fill((SLONG *) dest, (ULONG) size);
+		stop_time();
+	}
+	sprintf(message_buffer, "Dest align %1d Size %4d %20s",
+			(((U_IPTR) dest) % sizeof(ULONG)), size, "MOV_fill");
+	report_time(message_buffer);
+
+	init_time();
+	for (r = 0; r < TEST_REPEATS; r++) {
+		start_time();
+		for (j = 0; j < MCOUNT; ++j)
+			memset(dest, 0, size);
+		stop_time();
+	}
+	sprintf(message_buffer, "Dest align %1d Size %4d %20s",
+			(((U_IPTR) dest) % sizeof(ULONG)), size, "memset");
+	report_time(message_buffer);
+
+	init_time();
+	for (r = 0; r < TEST_REPEATS; r++) {
+		register char *p, *p_end;
+
+		start_time();
+		for (j = 0; j < MCOUNT; ++j)
+			for (p = dest, p_end = p + size; p < p_end;)
+				*p++ = 0;
+		stop_time();
+	}
+	sprintf(message_buffer, "Dest align %1d Size %4d %20s",
+			(((U_IPTR) dest) % sizeof(ULONG)), size, "inline - bytes");
+	report_time(message_buffer);
+
+/* Guesses for optimal length for each algorithm */
+#define SIZE_OPTIMAL_MEMSET_INLINE	16
+#define SIZE_OPTIMAL_MEMSET_MEMSET	160
+#define SIZE_OPTIMAL_MEMCPY_INLINE	16
+#define SIZE_OPTIMAL_MEMCPY_MEMCPY	160
+
+	init_time();
+	for (r = 0; r < TEST_REPEATS; r++) {
+		register char *p, *p_end;
+
+		start_time();
+		for (j = 0; j < MCOUNT; ++j)
+			if (size < SIZE_OPTIMAL_MEMSET_INLINE)
+				for (p = dest, p_end = p + size; p < p_end;)
+					*p++ = 0;
+			else if (size < SIZE_OPTIMAL_MEMSET_MEMSET)
+				memset(dest, 0, size);
+			else
+				MOV_fill((SLONG *) dest, (ULONG) size);
+		stop_time();
+	}
+	sprintf(message_buffer, "Dest align %1d Size %4d %20s",
+			(((U_IPTR) dest) % sizeof(ULONG)), size, "inline - testing");
+	report_time(message_buffer);
+}
+
+
+do_test_memcpy(src, dest, size)
+	 void *src;
+	 void *dest;
+	 int size;
+{
+	int j;
+	int r;
+	char message_buffer[150];
+
+
+	init_time();
+	for (r = 0; r < TEST_REPEATS; r++) {
+		start_time();
+		{
+			for (j = 0; j < MCOUNT; ++j)
+				MOV_fast(src, dest, size);
+		}
+		stop_time();
+	}
+	sprintf(message_buffer, "Src align %1d Dest align %1d Size %4d %20s",
+			(((U_IPTR) src) % sizeof(ULONG)),
+			(((U_IPTR) dest) % sizeof(ULONG)), size, "MOV_fast");
+	report_time(message_buffer);
+
+	init_time();
+	for (r = 0; r < TEST_REPEATS; r++) {
+		start_time();
+		{
+			for (j = 0; j < MCOUNT; ++j)
+				memcpy(dest, src, size);
+		}
+		stop_time();
+	}
+	sprintf(message_buffer, "Src align %1d Dest align %1d Size %4d %20s",
+			(((U_IPTR) src) % sizeof(ULONG)),
+			(((U_IPTR) dest) % sizeof(ULONG)), size, "memcpy");
+	report_time(message_buffer);
+
+/* MOV_faster can only do aligned moves, so don't test it otherwise */
+	if (((((U_IPTR) dest) % sizeof(ULONG)) == 0) &&
+		((((U_IPTR) src) % sizeof(ULONG)) == 0)) {
+		init_time();
+		for (r = 0; r < TEST_REPEATS; r++) {
+			start_time();
+			{
+				for (j = 0; j < MCOUNT; ++j)
+					MOV_faster((SLONG *) src, (SLONG *) dest, (ULONG) size);
+			}
+			stop_time();
+		}
+		sprintf(message_buffer, "Src align %1d Dest align %1d Size %4d %20s",
+				(((U_IPTR) src) % sizeof(ULONG)),
+				(((U_IPTR) dest) % sizeof(ULONG)), size, "MOV_faster");
+		report_time(message_buffer);
+	}
+
+	init_time();
+	for (r = 0; r < TEST_REPEATS; r++) {
+		register char *p, *q, *p_end;
+
+		start_time();
+		for (j = 0; j < MCOUNT; ++j)
+			for (p = dest, q = src, p_end = p + size; p < p_end;)
+				*p++ = *q++;
+		stop_time();
+	}
+	sprintf(message_buffer, "Src align %1d Dest align %1d Size %4d %20s",
+			(((U_IPTR) src) % sizeof(ULONG)),
+			(((U_IPTR) dest) % sizeof(ULONG)), size, "inline move - bytes");
+	report_time(message_buffer);
+
+	init_time();
+	for (r = 0; r < TEST_REPEATS; r++) {
+		register char *p, *q, *p_end;
+
+		start_time();
+		for (j = 0; j < MCOUNT; ++j)
+			if (size < SIZE_OPTIMAL_MEMCPY_INLINE)
+				for (p = dest, q = src, p_end = p + size; p < p_end;)
+					*p++ = *q++;
+			else if ((size >= SIZE_OPTIMAL_MEMCPY_MEMCPY)
+					 && (((((U_IPTR) dest) % sizeof(ULONG)) == 0) &&
+						 ((((U_IPTR) src) % sizeof(ULONG)) == 0)))
+				MOV_faster((SLONG *) src, (SLONG *) dest, (ULONG) size);
+			else
+				memcpy(dest, src, size);
+		stop_time();
+	}
+	sprintf(message_buffer, "Src align %1d Dest align %1d Size %4d %20s",
+			(((U_IPTR) src) % sizeof(ULONG)),
+			(((U_IPTR) dest) % sizeof(ULONG)),
+			size, "inline testing - bytes");
+}
+
+
+/* stubs */
+void gds__encode_date()
+{
+};
+USHORT CVT2_make_string2()
+{
+};
+USHORT CVT_make_string()
+{
+};
+SSHORT CVT2_compare()
+{
+};
+USHORT CVT_get_string_ptr()
+{
+};
+SLONG CVT_get_long()
+{
+};
+void CVT2_get_name()
+{
+};
+void CVT_double_to_date()
+{
+};
+double CVT_date_to_double()
+{
+};
+SQUAD CVT_get_quad()
+{
+};
+void CVT_move()
+{
+};
+void ERR_post()
+{
+};
+double CVT_get_double()
+{
+};
diff --git a/src/jrd/met.e b/src/jrd/met.e
new file mode 100644
index 0000000000..e4d72069a9
--- /dev/null
+++ b/src/jrd/met.e
@@ -0,0 +1,4147 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		met.e
+ *	DESCRIPTION:	Meta data handler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: met.e,v 1.1.1.1 2001-05-23 13:26:19 tamlin Exp $
+*/
+
+#ifdef SHLIB_DEFS
+#define LOCAL_SHLIB_DEFS
+#endif
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+
+#include "../jrd/constants.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/val.h"
+#include "../jrd/irq.h"
+#include "../jrd/tra.h"
+#include "../jrd/lck.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../jrd/req.h"
+#include "../jrd/exe.h"
+#include "../jrd/scl.h"
+#include "../jrd/blb.h"
+#include "../jrd/met.h"
+#include "../jrd/pio.h"
+#include "../jrd/sdw.h"
+#include "../jrd/flags.h"
+#include "../jrd/all.h"
+#include "../jrd/lls.h"
+#include "../jrd/intl.h"
+#include "../jrd/align.h"
+#include "../jrd/jrn.h"
+#include "../jrd/flu.h"
+#include "../jrd/blob_filter.h"
+#include "../intl/charsets.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dfw_proto.h"
+#include "../jrd/dsc_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/ext_proto.h"
+#include "../jrd/flu_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/idx_proto.h"
+#include "../jrd/ini_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/par_proto.h"
+#include "../jrd/pcmet_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/scl_proto.h"
+#include "../jrd/sdw_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/iberr.h"
+
+#ifdef  WINDOWS_ONLY
+#include "../jrd/seg_proto.h"
+#endif
+
+/* Pick up relation ids */
+
+#define RELATION(name,id,ods)       id,
+#define FIELD(symbol,name,id,update,ods,new_id,new_ods)
+#define END_RELATION
+
+typedef ENUM rids {
+#include "../jrd/relations.h"
+	rel_MAX
+} RIDS;
+
+#undef RELATION
+#undef FIELD
+#undef END_RELATION
+
+#define BLR_BYTE        *((*csb)->csb_running)++
+#define NULL_BLOB(id)   (!id.gds_quad_high && !id.gds_quad_low)
+
+#define	BLANK			'\040'
+
+DATABASE DB = FILENAME "ODS.RDB";
+
+static void blocking_ast_procedure(PRC);
+static void blocking_ast_relation(REL);
+static void get_trigger(TDBB, REL, SLONG[2], VEC *, TEXT *, BOOLEAN, USHORT);
+static BOOLEAN get_type(TDBB, SSHORT *, UCHAR *, UCHAR *);
+static void lookup_view_contexts(TDBB, REL);
+static void name_copy(TEXT *, TEXT *);
+static USHORT name_length(CONST TEXT *);
+static NOD parse_procedure_blr(TDBB, PRC, SLONG[2], CSB *);
+static BOOLEAN par_messages(TDBB, UCHAR *, USHORT, PRC, CSB *);
+static BOOLEAN resolve_charset_and_collation(TDBB, SSHORT *, UCHAR *,
+											 UCHAR *);
+static STR save_name(TDBB, CONST TEXT*);
+static void save_trigger_request(DBB, VEC*, REQ);
+static void store_dependencies(TDBB, CSB, CONST TEXT*, USHORT);
+static void terminate(TEXT*, USHORT);
+static BOOLEAN verify_TRG_ignore_perm(TDBB, TEXT*);
+
+
+#ifdef SHLIB_DEFS
+#define strlen          (*_libgds_strlen)
+#define strcmp          (*_libgds_strcmp)
+#define strcpy          (*_libgds_strcpy)
+#define vsprintf        (*_libgds_vsprintf)
+#define SETJMP          (*_libgds_setjmp)
+#define memcmp          (*_libgds_memcmp)
+#define strncmp         (*_libgds_strncmp)
+#define memset          (*_libgds_memset)
+#define _iob            (*_libgds__iob)
+#define ib_fprintf         (*_libgds_fprintf)
+
+extern int strlen();
+extern int strcmp();
+extern char *strcpy();
+extern int vsprintf();
+extern int SETJMP();
+extern int memcmp();
+extern int strncmp();
+extern void *memset();
+extern IB_FILE _iob[];
+extern int ib_fprintf();
+#endif
+
+
+void MET_activate_shadow( TDBB tdbb)
+{
+/**************************************
+ *
+ *      M E T _ a c t i v a t e _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *      Activate the current database, which presumably
+ *      was formerly a shadow, by deleting all records
+ *      corresponding to the shadow that this database
+ *      represents.
+ *      Get rid of write ahead log for the activated shadow.
+ *
+ **************************************/
+	DBB dbb;
+	BLK handle, handle2;
+	SCHAR expanded_name[MAX_PATH_LENGTH], *dbb_file_name;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* Erase any secondary files of the primary database of the
+   shadow being activated. */
+
+	handle = NULL;
+	FOR(REQUEST_HANDLE handle) X IN RDB$FILES
+		WITH X.RDB$SHADOW_NUMBER NOT MISSING
+			AND X.RDB$SHADOW_NUMBER EQ 0 
+        ERASE X;
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)handle);
+
+	dbb_file_name = dbb->dbb_file->fil_string;
+
+/* go through files looking for any that expand to the current database name */
+
+	handle = handle2 = NULL;
+	FOR(REQUEST_HANDLE handle) X IN RDB$FILES
+		WITH X.RDB$SHADOW_NUMBER NOT MISSING
+			AND X.RDB$SHADOW_NUMBER NE 0
+
+        PIO_expand(X.RDB$FILE_NAME, (USHORT)strlen(X.RDB$FILE_NAME),
+                   expanded_name);
+
+		if (!strcmp(expanded_name, dbb_file_name)) {
+			FOR(REQUEST_HANDLE handle2) Y IN RDB$FILES
+				WITH X.RDB$SHADOW_NUMBER EQ Y.RDB$SHADOW_NUMBER
+				MODIFY Y
+					Y.RDB$SHADOW_NUMBER = 0;
+				END_MODIFY;
+			END_FOR;
+			ERASE X;
+		}
+	END_FOR;
+
+	if (handle2)
+	{
+		CMP_release(tdbb, (REQ)handle2);
+	}
+	CMP_release(tdbb, (REQ)handle);
+
+/* Get rid of WAL after activation.  For V4.0, we are not allowing
+   WAL and Shadowing to be configured together.  So the following
+   (commented out) code should be re-visited when we do allow 
+   such configuration. */
+
+	/***********************
+	handle = 0;
+		FOR(REQUEST_HANDLE handle) X IN RDB$LOG_FILES
+			ERASE X;
+		END_FOR;
+		CMP_release(tdbb, handle);
+	#ifndef WINDOWS_ONLY
+		AIL_modify_log();
+	#endif
+	************************/
+}
+
+
+ULONG MET_align(DSC * desc, USHORT value)
+{
+/**************************************
+ *
+ *      M E T _ a l i g n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Align value (presumed offset) on appropriate border
+ *      and return.
+ *
+ **************************************/
+	USHORT alignment;
+
+	alignment = desc->dsc_length;
+	switch (desc->dsc_dtype) {
+	case dtype_text:
+	case dtype_cstring:
+		return value;
+
+	case dtype_varying:
+		alignment = sizeof(USHORT);
+		break;
+	}
+
+	alignment = MIN(alignment, ALIGNMENT);
+
+	return FB_ALIGN(value, alignment);
+}
+
+
+void MET_change_fields( TDBB tdbb, TRA transaction, DSC * field_source)
+{
+/**************************************
+ *
+ *      M E T _ c h a n g e _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Somebody is modifying RDB$FIELDS.  Find all relations affected
+ *      and schedule a format update.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	DSC relation_name;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, irq_m_fields, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$RELATION_FIELDS WITH
+			X.RDB$FIELD_SOURCE EQ field_source->dsc_address
+
+        if (!REQUEST(irq_m_fields)) REQUEST(irq_m_fields) = request;
+
+		relation_name.dsc_dtype = dtype_text;
+		INTL_ASSIGN_DSC(&relation_name, CS_METADATA, COLLATE_NONE);
+		relation_name.dsc_length = sizeof(X.RDB$RELATION_NAME);
+		relation_name.dsc_address = (UCHAR *) X.RDB$RELATION_NAME;
+		SCL_check_relation(&relation_name, SCL_control);
+		DFW_post_work(transaction, dfw_update_format, &relation_name, 0);
+	END_FOR;
+
+	if (!REQUEST(irq_m_fields))
+		REQUEST(irq_m_fields) = request;
+}
+
+
+FMT MET_current(TDBB tdbb, REL relation)
+{
+/**************************************
+ *
+ *      M E T _ c u r r e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get the current format for a relation.  The current format is the
+ *      format in which new records are to be stored.
+ *
+ **************************************/
+
+	if (relation->rel_current_format)
+		return relation->rel_current_format;
+
+	SET_TDBB(tdbb);
+
+	return relation->rel_current_format =
+		MET_format(tdbb, relation, relation->rel_current_fmt);
+}
+
+
+void MET_delete_dependencies(TDBB	tdbb,
+							 TEXT*	object_name,
+							 USHORT	dependency_type)
+{
+/**************************************
+ *
+ *      M E T _ d e l e t e _ d e p e n d e n c i e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Delete all dependencies for the specified 
+ *      object of given type.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if (!object_name)
+		return;
+
+	request = (BLK) CMP_find_request(tdbb, irq_d_deps, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		DEP IN RDB$DEPENDENCIES
+			WITH DEP.RDB$DEPENDENT_NAME = object_name
+			AND DEP.RDB$DEPENDENT_TYPE = dependency_type
+
+        if (!REQUEST(irq_d_deps)) REQUEST(irq_d_deps) = request;
+
+		ERASE DEP;
+	END_FOR;
+
+	if (!REQUEST(irq_d_deps))
+		REQUEST(irq_d_deps) = request;
+}
+
+
+void MET_delete_shadow( TDBB tdbb, USHORT shadow_number)
+{
+/**************************************
+ *
+ *      M E T _ d e l e t e _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description 
+ *      When any of the shadows in RDB$FILES for a particular
+ *      shadow are deleted, stop shadowing to that file and
+ *      remove all other files from the same shadow.
+ *
+ **************************************/
+	DBB dbb;
+	BLK handle;
+	SDW shadow;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	handle = NULL;
+
+	FOR(REQUEST_HANDLE handle)
+		X IN RDB$FILES WITH X.RDB$SHADOW_NUMBER EQ shadow_number 
+        ERASE X;
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)handle);
+
+	for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+		if (shadow->sdw_number == shadow_number)
+			shadow->sdw_flags |= SDW_shutdown;
+
+/* notify other processes to check for shadow deletion */
+	if (SDW_lck_update((SLONG) 0))
+		SDW_notify();
+}
+
+
+void MET_error( TEXT * string, ...)
+{
+/**************************************
+ *
+ *      M E T _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Post an error in a metadata update
+ *      Oh, wow.
+ *
+ **************************************/
+	TEXT s[128];
+	va_list ptr;
+
+	VA_START(ptr, string);
+	vsprintf(s, string, ptr);
+
+	ERR_post(gds__no_meta_update, gds_arg_gds, gds__random, gds_arg_string,
+			 ERR_cstring(s), 0);
+}
+
+
+SCHAR *MET_exact_name( TEXT * str)
+{
+/**************************************
+ *
+ *	M E T _ e x a c t _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Trim off trailing spaces from a metadata name.
+ *	eg: insert a null after the last non-blank character.
+ *
+ *	SQL delimited identifier may have blank as part of the name
+ *
+ *	Parameters:  str - the string to terminate
+ *	Returns:     str
+ *
+ **************************************/
+	TEXT *p, *q;
+
+	q = str - 1;
+	for (p = str; *p; p++) {
+		if (*p != BLANK)
+			q = p;
+	}
+
+	*(q + 1) = '\0';
+	return str;
+}
+
+
+FMT MET_format(TDBB tdbb, register REL relation, USHORT number)
+{
+/**************************************
+ *
+ *      M E T _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup a format for given relation.
+ *
+ **************************************/
+	DBB dbb;
+	VEC formats;
+	FMT format;
+	BLB blob;
+	DSC *desc;
+	BLK request;
+	USHORT count;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if ((formats = relation->rel_formats) &&
+		(number < formats->vec_count) &&
+		(format = (FMT) formats->vec_object[number]))
+	{
+		return format;
+	}
+
+	format = NULL;
+	request = (BLK) CMP_find_request(tdbb, irq_r_format, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$FORMATS WITH X.RDB$RELATION_ID EQ relation->rel_id AND
+			X.RDB$FORMAT EQ number 
+
+        if (!REQUEST(irq_r_format))
+		{
+            REQUEST(irq_r_format) = request;
+		}
+		blob = BLB_open(tdbb, dbb->dbb_sys_trans, (BID)&X.RDB$DESCRIPTOR);
+		count = blob->blb_length / sizeof(struct dsc);
+		format = (FMT) ALLOCPV(type_fmt, count);
+		format->fmt_count = count;
+		BLB_get_data(tdbb, blob, (UCHAR*)format->fmt_desc, blob->blb_length);
+
+		for (desc = format->fmt_desc + count - 1;
+			 desc >= format->fmt_desc;
+			 --desc)
+		{
+			if (desc->dsc_address)
+			{
+				format->fmt_length =
+					(ULONG) desc->dsc_address + desc->dsc_length;
+				break;
+			}
+		}
+	END_FOR;
+
+	if (!REQUEST(irq_r_format)) {
+		REQUEST(irq_r_format) = request;
+	}
+
+	if (!format) {
+		format = (FMT) ALLOCPV(type_fmt, 0);
+	}
+
+	format->fmt_version = number;
+
+/* Link the format block into the world */
+
+	formats = ALL_vector(dbb->dbb_permanent, &relation->rel_formats, number);
+	formats->vec_object[number] = (BLK) format;
+
+	return format;
+}
+
+
+BOOLEAN MET_get_char_subtype(TDBB tdbb,
+							 SSHORT * id, UCHAR * name, USHORT length)
+{
+/**************************************
+ *
+ *      M E T _ g e t _ c h a r _ s u b t y p e 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Character types can be specified as either:
+ *         a) A POSIX style locale name "<collation>.<characterset>"
+ *         or
+ *         b) A simple <characterset> name (using default collation)
+ *         c) A simple <collation> name    (use charset for collation)
+ *
+ *      Given an ASCII7 string which could be any of the above, try to
+ *      resolve the name in the order a, b, c
+ *      a) is only tried iff the name contains a period.
+ *      (in which case b) and c) are not tried).
+ *
+ * Return:
+ *      1 if no errors (and *id is set).
+ *      0 if the name could not be resolved.
+ *
+ **************************************/
+	UCHAR buffer[32];			/* BASED ON RDB$COLLATION_NAME */
+	UCHAR *p;
+	UCHAR *period = NULL;
+	UCHAR *end_name;
+	BOOLEAN res;
+
+	SET_TDBB(tdbb);
+
+	assert(id != NULL);
+	assert(name != NULL);
+
+	end_name = name + length;
+
+/* Force key to uppercase, following C locale rules for uppercasing */
+/* At the same time, search for the first period in the string (if any) */
+
+	for (p = buffer;
+		 name < end_name && p < buffer + sizeof(buffer) - 1; p++, name++) {
+		*p = UPPER7(*name);
+		if ((*p == '.') && !period)
+			period = p;
+	}
+	*p = 0;
+
+/* Is there a period, separating collation name from character set? */
+	if (period) {
+		*period = 0;
+		return resolve_charset_and_collation(tdbb, id, period + 1, buffer);
+	}
+
+	else {
+		/* Is it a character set name (implying charset default collation sequence) */
+
+		res = resolve_charset_and_collation(tdbb, id, buffer, NULL);
+		if (!res) {
+			/* Is it a collation name (implying implementation-default character set) */
+			res = resolve_charset_and_collation(tdbb, id, NULL, buffer);
+		}
+		return res;
+	}
+}
+
+
+NOD MET_get_dependencies(TDBB			tdbb,
+						 REL			relation,
+						 TEXT*			blob,
+						 CSB			view_csb,
+						 SLONG			blob_id[2],
+						 REQ*			request,
+						 CSB*			csb_ptr,
+						 CONST TEXT*	object_name,
+						 USHORT			type)
+{
+/**************************************
+ *
+ *      M E T _ g e t _ d e p e n d e n c i e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get dependencies for an object by parsing 
+ *      the blr used in its definition.
+ *
+ **************************************/
+	DBB dbb;
+	CSB csb;
+	NOD node;
+	BLK handle;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	csb = (CSB) ALLOCDV(type_csb, 5);
+	csb->csb_count = 5;
+	csb->csb_g_flags |= csb_get_dependencies;
+
+	if (blob)
+	{
+		node = PAR_blr(	tdbb,
+						relation,
+						blob,
+						view_csb,
+						&csb,
+						request,
+						(BOOLEAN)((type == obj_trigger) ? TRUE : FALSE),
+						0);
+	}
+	else
+	{
+		node =
+			MET_parse_blob(	tdbb,
+							relation,
+							blob_id,
+							&csb,
+							request,
+							(BOOLEAN)((type == obj_trigger) ? TRUE : FALSE),
+							FALSE);
+	}
+
+	if (type == (USHORT) obj_computed)
+	{
+		handle = NULL;
+		FOR(REQUEST_HANDLE handle)
+			RLF IN RDB$RELATION_FIELDS CROSS
+				FLD IN RDB$FIELDS WITH
+				RLF.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME AND
+				RLF.RDB$RELATION_NAME EQ relation->rel_name AND
+				RLF.RDB$FIELD_NAME EQ object_name
+            object_name = FLD.RDB$FIELD_NAME;
+		END_FOR;
+		CMP_release(tdbb, (REQ)handle);
+	}
+
+	store_dependencies(tdbb, csb, object_name, type);
+
+	if (csb_ptr)
+	{
+		*csb_ptr = csb;
+	}
+	else
+	{
+		ALL_release((FRB)csb);
+	}
+
+	return node;
+}
+
+
+FLD MET_get_field(REL relation, USHORT id)
+{
+/**************************************
+ *
+ *      M E T _ g e t _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get the field block for a field if possible.  If not,
+ *      return NULL;
+ *
+ **************************************/
+	VEC vector;
+
+	if (!relation ||
+		!(vector = relation->rel_fields) ||
+		id >= vector->vec_count) return NULL;
+
+	return (FLD) vector->vec_object[id];
+}
+
+
+void MET_get_shadow_files( TDBB tdbb, USHORT delete)
+{
+/**************************************
+ *
+ *      M E T _ g e t _ s h a d o w _ f i l e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Check the shadows found in the database against
+ *      our in-memory list: if any new shadow files have 
+ *      been defined since the last time we looked, start
+ *      shadowing to them; if any have been deleted, stop
+ *      shadowing to them.
+ *
+ **************************************/
+	DBB dbb;
+	BLK handle;
+	USHORT file_flags;
+	SDW shadow;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	handle = NULL;
+	FOR(REQUEST_HANDLE handle) X IN RDB$FILES
+		WITH X.RDB$SHADOW_NUMBER NOT MISSING
+			AND X.RDB$SHADOW_NUMBER NE 0
+			AND X.RDB$FILE_SEQUENCE EQ 0
+        if ((X.RDB$FILE_FLAGS & FILE_shadow) &&
+            !(X.RDB$FILE_FLAGS & FILE_inactive))
+		{
+			file_flags = X.RDB$FILE_FLAGS;
+			SDW_start(X.RDB$FILE_NAME, X.RDB$SHADOW_NUMBER, file_flags,
+					  delete);
+
+			/* if the shadow exists, mark the appropriate shadow 
+			   block as found for the purposes of this routine;
+			   if the shadow was conditional and is no longer, note it */
+
+			for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+			{
+				if ((shadow->sdw_number == X.RDB$SHADOW_NUMBER) &&
+					!(shadow->sdw_flags & SDW_IGNORE))
+				{
+					shadow->sdw_flags |= SDW_found;
+					if (!(file_flags & FILE_conditional))
+						shadow->sdw_flags &= ~SDW_conditional;
+					break;
+				}
+			}
+		}
+	END_FOR;
+
+	CMP_release(tdbb, (REQ)handle);
+
+/* if any current shadows were not defined in database, mark 
+   them to be shutdown since they don't exist anymore */
+
+	for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+		if (!(shadow->sdw_flags & SDW_found))
+			shadow->sdw_flags |= SDW_shutdown;
+		else
+			shadow->sdw_flags &= ~SDW_found;
+
+	SDW_check();
+}
+
+
+int MET_get_walinfo(
+					TDBB tdbb,
+					LGFILE ** logfiles, ULONG * number, LGFILE ** over_flow)
+{
+/**************************************
+ *
+ *      M E T _ g e t _ w a l i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get WAL information from RDB$LOG_FILES
+ *      Initialize over_flow pointer if over flow file is specified.
+ *
+ **************************************/
+	DBB dbb;
+	BLK handle;
+	SSHORT num = 0;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	handle = NULL;
+
+	FOR(REQUEST_HANDLE handle)
+		LOG IN RDB$LOG_FILES SORTED BY LOG.RDB$FILE_SEQUENCE
+			logfiles[num] = (LGFILE *) ALLOCPV(type_ail,
+											   LGFILE_SIZE + MAX_PATH_LENGTH);
+		strcpy(logfiles[num]->lg_name, LOG.RDB$FILE_NAME);
+		logfiles[num]->lg_size = LOG.RDB$FILE_LENGTH;
+		logfiles[num]->lg_partitions = LOG.RDB$FILE_PARTITIONS;
+		logfiles[num]->lg_flags = LOG.RDB$FILE_FLAGS;
+		logfiles[num]->lg_sequence = LOG.RDB$FILE_SEQUENCE;
+
+		num++;
+	END_FOR;
+
+	if (handle)
+	{
+		CMP_release(tdbb, (REQ)handle);
+	}
+
+	if (num)
+	{
+		*over_flow = logfiles[num - 1];
+
+		/* The overflow file will be passed separately */
+
+		if (over_flow[0]->lg_flags & LOG_overflow)
+			num--;
+		else
+			*over_flow = (LGFILE *) 0;
+	}
+
+	*number = num;
+
+	return num;
+}
+
+
+void MET_load_trigger(
+					  TDBB tdbb,
+					  REL relation, TEXT * trigger_name, VEC * triggers)
+{
+/**************************************
+ *
+ *      M E T _ l o a d _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Load triggers from RDB$TRIGGERS.  If a requested,
+ *      also load triggers from RDB$RELATIONS.
+ *
+ **************************************/
+	DBB dbb;
+	BLK trigger_request;
+	VEC *ptr;
+	USHORT trig_flags;
+	TEXT errmsg[MAX_ERRMSG_LEN + 1];
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	if (relation->rel_flags & REL_sys_trigs_being_loaded)
+		return;
+
+#ifdef READONLY_DATABASE
+/* No need to load triggers for ReadOnly databases,
+   since INSERT/DELETE/UPDATE statements are not going to be allowed */
+	if (dbb->dbb_flags & DBB_read_only)
+		return;
+#endif /* READONLY_DATABASE */
+
+/* Scan RDB$TRIGGERS next */
+
+	trigger_request =
+		(BLK) CMP_find_request(tdbb, irq_s_triggers, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE trigger_request)
+		TRG IN RDB$TRIGGERS WITH TRG.RDB$RELATION_NAME =
+			relation->rel_name AND TRG.
+			RDB$TRIGGER_NAME EQ trigger_name if (!REQUEST(irq_s_triggers))
+			REQUEST(irq_s_triggers) = trigger_request;
+
+		if (TRG.RDB$TRIGGER_TYPE > 0 && TRG.RDB$TRIGGER_TYPE < TRIGGER_MAX) {
+			ptr = triggers + TRG.RDB$TRIGGER_TYPE;
+
+			/* check if the trigger is to be fired without any permissions
+			   checks. Verify such a claim */
+			trig_flags = (USHORT) TRG.RDB$FLAGS;
+
+			/* if there is an ignore permission flag, see if it is legit */
+			if ((TRG.RDB$FLAGS & TRG_ignore_perm) &&
+				!verify_TRG_ignore_perm(tdbb, trigger_name)) {
+				gds__msg_format(NULL_PTR, JRD_BUGCHK, 304, sizeof(errmsg),
+								errmsg, trigger_name, NULL_PTR, NULL_PTR,
+								NULL_PTR, NULL_PTR);
+				ERR_log(JRD_BUGCHK, 304, errmsg);
+
+				trig_flags &= ~TRG_ignore_perm;
+			}
+
+			get_trigger(tdbb,
+						relation,
+						(SLONG*)&TRG.RDB$TRIGGER_BLR,
+						ptr,
+						TRG.RDB$TRIGGER_NAME,
+						(BOOLEAN)TRG.RDB$SYSTEM_FLAG,
+						trig_flags);
+		}
+	END_FOR;
+
+	if (!REQUEST(irq_s_triggers))
+		REQUEST(irq_s_triggers) = trigger_request;
+}
+
+
+
+void DLL_EXPORT MET_lookup_cnstrt_for_index(
+											TDBB tdbb,
+											TEXT * constraint_name,
+											TEXT * index_name)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ c n s t r t _ f o r _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup  constraint name from index name, if one exists.
+ *      Calling routine must pass a buffer of at least 32 bytes.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	constraint_name[0] = 0;
+	request = (BLK) CMP_find_request(tdbb, irq_l_cnstrt, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$RELATION_CONSTRAINTS WITH X.RDB$INDEX_NAME EQ index_name
+
+        if (!REQUEST(irq_l_cnstrt))
+            REQUEST(irq_l_cnstrt) = request;
+
+		X.RDB$CONSTRAINT_NAME[name_length(X.RDB$CONSTRAINT_NAME)] = 0;
+		strcpy(constraint_name, X.RDB$CONSTRAINT_NAME);
+
+	END_FOR;
+
+	if (!REQUEST(irq_l_cnstrt))
+		REQUEST(irq_l_cnstrt) = request;
+}
+
+
+void MET_lookup_cnstrt_for_trigger(
+								   TDBB tdbb,
+								   TEXT * constraint_name,
+								   TEXT * relation_name, TEXT * trigger_name)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ c n s t r t _ f o r _ t r i g g e r 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup  constraint name from trigger name, if one exists.
+ *      Calling routine must pass a buffer of at least 32 bytes.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request, request2;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	constraint_name[0] = 0;
+	relation_name[0] = 0;
+	request = (BLK) CMP_find_request(tdbb, irq_l_check, IRQ_REQUESTS);
+	request2 = (BLK) CMP_find_request(tdbb, irq_l_check2, IRQ_REQUESTS);
+
+/* utilize two requests rather than one so that we 
+   guarantee we always return the name of the relation
+   that the trigger is defined on, even if we don't 
+   have a check constraint defined for that trigger */
+
+	FOR(REQUEST_HANDLE request)
+		Y IN RDB$TRIGGERS WITH
+			Y.RDB$TRIGGER_NAME EQ trigger_name
+
+        if (!REQUEST(irq_l_check)) REQUEST(irq_l_check) = request;
+
+		FOR(REQUEST_HANDLE request2)
+			X IN RDB$CHECK_CONSTRAINTS WITH
+				X.RDB$TRIGGER_NAME EQ Y.RDB$TRIGGER_NAME
+
+            if (!REQUEST(irq_l_check2)) REQUEST(irq_l_check2) = request2;
+
+			X.RDB$CONSTRAINT_NAME[name_length(X.RDB$CONSTRAINT_NAME)] = 0;
+			strcpy(constraint_name, X.RDB$CONSTRAINT_NAME);
+
+		END_FOR;
+
+		if (!REQUEST(irq_l_check2))
+			REQUEST(irq_l_check2) = request2;
+
+		Y.RDB$RELATION_NAME[name_length(Y.RDB$RELATION_NAME)] = 0;
+		strcpy(relation_name, Y.RDB$RELATION_NAME);
+
+	END_FOR;
+
+	if (!REQUEST(irq_l_check))
+		REQUEST(irq_l_check) = request;
+}
+
+
+void MET_lookup_exception(TDBB	tdbb,
+						  SLONG	number,
+						  TEXT*	name,
+						  TEXT*	message)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ e x c e p t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup exception by number and return its name and message.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	SCHAR *p;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* We need to look up exception in RDB$EXCEPTIONS */
+
+	request = (BLK) CMP_find_request(tdbb, irq_l_exception, IRQ_REQUESTS);
+
+	*name = 0;
+	if (message)
+	{
+		*message = 0;
+	}
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$EXCEPTIONS WITH X.RDB$EXCEPTION_NUMBER = number
+
+        if (!REQUEST(irq_l_exception))
+		{
+			REQUEST(irq_l_exception) = request;
+		}
+
+		if (!X.RDB$EXCEPTION_NAME.NULL)
+		{
+			name_copy(name, X.RDB$EXCEPTION_NAME);
+		}
+		if (!X.RDB$MESSAGE.NULL && message)
+		{
+			name_copy(message, X.RDB$MESSAGE);
+		}
+	END_FOR;
+
+	if (!REQUEST(irq_l_exception))
+	{
+		REQUEST(irq_l_exception) = request;
+	}
+}
+
+
+SLONG MET_lookup_exception_number(TDBB tdbb, TEXT * name)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ e x c e p t i o n _ n u m b e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup exception by name and return its number.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	SLONG number;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* We need to look up exception in RDB$EXCEPTIONS */
+
+	request = (BLK) CMP_find_request(tdbb, irq_l_except_no, IRQ_REQUESTS);
+
+	number = 0;
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$EXCEPTIONS WITH X.RDB$EXCEPTION_NAME = name
+
+        if (!REQUEST(irq_l_except_no)) REQUEST(irq_l_except_no) = request;
+
+		number = X.RDB$EXCEPTION_NUMBER;
+
+	END_FOR;
+
+	if (!REQUEST(irq_l_except_no))
+		REQUEST(irq_l_except_no) = request;
+
+	return number;
+}
+
+
+int MET_lookup_field(TDBB tdbb, REL relation, CONST TEXT* name)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Look up a field name.
+ *
+ **************************************/
+	DBB			dbb;
+	BLK			request;
+	VEC			vector;
+	FLD*		field;
+	FLD*		end;
+	CONST TEXT*	p;
+	CONST TEXT*	q;
+	USHORT		id;
+	UCHAR		length;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* Start by checking field names that we already know */
+
+	if (vector = relation->rel_fields)
+	{
+		length = strlen(name);
+		for (field = (FLD*) vector->vec_object,
+				id = 0,
+				end = field + vector->vec_count;
+			field < end;
+			field++, id++)
+		{
+			if (*field &&
+				(*field)->fld_length == length &&
+				(p = (*field)->fld_name))
+			{
+				q = name;
+				while (*p++ == *q)
+				{
+					if (!*q++) {
+						return id;
+					}
+				}
+			}
+		}
+	}
+
+/* Not found.  Next, try system relations directly */
+
+	id = -1;
+
+	if (!relation->rel_name)
+	{
+		return id;
+	}
+
+	request = (BLK) CMP_find_request(tdbb, irq_l_field, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$RELATION_FIELDS WITH
+			X.RDB$RELATION_NAME EQ relation->rel_name AND
+			X.RDB$FIELD_NAME EQ name 
+
+        if (!REQUEST(irq_l_field))
+		{
+            REQUEST(irq_l_field) = request;
+		}
+        id = X.RDB$FIELD_ID;
+	END_FOR;
+
+	if (!REQUEST(irq_l_field))
+	{
+		REQUEST(irq_l_field) = request;
+	}
+
+	return id;
+}
+
+
+BLF MET_lookup_filter(TDBB tdbb, SSHORT from, SSHORT to)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	PTR filter;
+	TEXT *p;
+	MOD module;
+	LLS stack;
+	BLF blf;
+	STR exception_msg;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	filter = NULL;
+	blf = NULL;
+
+	request = (BLK) CMP_find_request(tdbb, irq_r_filters, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$FILTERS WITH X.RDB$INPUT_SUB_TYPE EQ from AND
+        X.RDB$OUTPUT_SUB_TYPE EQ to 
+
+        if (!REQUEST(irq_r_filters))
+            REQUEST(irq_r_filters) = request;
+		MET_exact_name(X.RDB$MODULE_NAME);
+		MET_exact_name(X.RDB$ENTRYPOINT);
+		filter =
+			ISC_lookup_entrypoint(X.RDB$MODULE_NAME, X.RDB$ENTRYPOINT,
+								  ISC_EXT_LIB_PATH_ENV);
+		if (filter)
+		{
+			blf = (BLF) ALLOCP(type_blf);
+			blf->blf_next = NULL;
+			blf->blf_from = from;
+			blf->blf_to = to;
+			blf->blf_filter = filter;
+			exception_msg =
+				(STR) ALLOCPV(type_str,
+							  strlen(EXCEPTION_MESSAGE) +
+							  strlen(X.RDB$FUNCTION_NAME) +
+							  strlen(X.RDB$ENTRYPOINT) +
+							  strlen(X.RDB$MODULE_NAME) + 1);
+			sprintf(exception_msg->str_data, EXCEPTION_MESSAGE,
+					X.RDB$FUNCTION_NAME, X.RDB$ENTRYPOINT, X.RDB$MODULE_NAME);
+			blf->blf_exception_message = exception_msg;
+		}
+		if (module = FLU_lookup_module(X.RDB$MODULE_NAME))
+		{
+			/* Register interest in the module by database. */
+
+			for (stack = dbb->dbb_modules; stack; stack = stack->lls_next)
+				if (module == (MOD) stack->lls_object)
+					break;
+
+			/* If the module was already registered with this database
+			   then decrement the use count that was incremented in
+			   ISC_lookup_entrypoint() above. Otherwise push it onto
+			   the stack of registered modules. */
+
+			if (stack)
+				FLU_unregister_module(module);
+			else
+			{
+				PLB old_pool;
+
+				old_pool = tdbb->tdbb_default;
+				tdbb->tdbb_default = dbb->dbb_permanent;
+				LLS_PUSH(module, &dbb->dbb_modules);
+				tdbb->tdbb_default = old_pool;
+			}
+		}
+	END_FOR;
+
+	if (!REQUEST(irq_r_filters))
+		REQUEST(irq_r_filters) = request;
+
+	return blf;
+}
+
+
+SLONG MET_lookup_generator(TDBB tdbb, TEXT * name)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ g e n e r a t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup generator (aka gen_id).  If we can't find it, make a new one.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	SLONG gen_id;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if (!strcmp(name, "RDB$GENERATORS"))
+		return 0;
+
+	gen_id = -1;
+
+	request = (BLK) CMP_find_request(tdbb, irq_r_gen_id, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$GENERATORS WITH X.RDB$GENERATOR_NAME EQ name
+
+        if (!REQUEST(irq_r_gen_id))
+			REQUEST(irq_r_gen_id) = request;
+
+		gen_id = X.RDB$GENERATOR_ID;
+	END_FOR;
+
+	if (!REQUEST(irq_r_gen_id))
+		REQUEST(irq_r_gen_id) = request;
+
+	return gen_id;
+}
+
+
+void DLL_EXPORT MET_lookup_index(
+								 TDBB tdbb,
+								 TEXT * index_name,
+								 TEXT * relation_name, USHORT number)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup index name from relation and index number.
+ *      Calling routine must pass a buffer of at least 32 bytes.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	index_name[0] = 0;
+
+	request = (BLK) CMP_find_request(tdbb, irq_l_index, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$INDICES WITH X.RDB$RELATION_NAME EQ relation_name
+			AND X.RDB$INDEX_ID EQ number 
+
+        if (!REQUEST(irq_l_index))
+            REQUEST(irq_l_index) = request;
+
+		X.RDB$INDEX_NAME[name_length(X.RDB$INDEX_NAME)] = 0;
+		strcpy(index_name, X.RDB$INDEX_NAME);
+
+	END_FOR;
+
+	if (!REQUEST(irq_l_index))
+		REQUEST(irq_l_index) = request;
+}
+
+
+SLONG MET_lookup_index_name(TDBB tdbb,
+							TEXT * index_name,
+							SLONG * relation_id, SSHORT * status)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ i n d e x _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup index id from index name.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	SLONG id = -1;
+	REL relation;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, irq_l_index_name, IRQ_REQUESTS);
+
+	*status = MET_object_unknown;
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$INDICES WITH
+			X.RDB$INDEX_NAME EQ index_name
+
+        if (!REQUEST(irq_l_index_name))
+            REQUEST(irq_l_index_name) = request;
+
+		if (X.RDB$INDEX_INACTIVE == 0)
+			*status = MET_object_active;
+		else
+			*status = MET_object_inactive;
+
+		id = X.RDB$INDEX_ID - 1;
+		relation = MET_lookup_relation(tdbb, X.RDB$RELATION_NAME);
+		*relation_id = relation->rel_id;
+
+	END_FOR;
+
+	if (!REQUEST(irq_l_index_name))
+		REQUEST(irq_l_index_name) = request;
+
+	return id;
+}
+
+
+int MET_lookup_partner(
+					   TDBB tdbb, REL relation, IDX * idx, UCHAR * index_name)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ p a r t n e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find partner index participating in a
+ *      foreign key relationship.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	REL partner_relation;
+	int index_number, found;
+	PRIM dependencies;
+	FRGN references;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if (relation->rel_flags & REL_check_partners)
+	{
+		/* Prepare for rescan of foreign references on other relations'
+		   primary keys and release stale vectors. */
+
+		request = (BLK) CMP_find_request(tdbb, irq_foreign1, IRQ_REQUESTS);
+		references = &relation->rel_foreign_refs;
+		index_number = 0;
+
+		if (references->frgn_reference_ids) {
+			ALL_release((FRB)references->frgn_reference_ids);
+			references->frgn_reference_ids = (VEC) NULL_PTR;
+		}
+		if (references->frgn_relations) {
+			ALL_release((FRB)references->frgn_relations);
+			references->frgn_relations = (VEC) NULL_PTR;
+		}
+		if (references->frgn_indexes) {
+			ALL_release((FRB)references->frgn_indexes);
+			references->frgn_indexes = (VEC) NULL_PTR;
+		}
+
+		FOR(REQUEST_HANDLE request)
+			IDX IN RDB$INDICES CROSS
+				IND IN RDB$INDICES WITH
+				IDX.RDB$INDEX_NAME STARTING WITH "RDB$FOREIGN" AND
+				IDX.RDB$RELATION_NAME EQ relation->rel_name AND
+				IND.RDB$INDEX_NAME EQ IDX.RDB$FOREIGN_KEY AND
+				IND.RDB$UNIQUE_FLAG NOT MISSING 
+
+            if (!REQUEST(irq_foreign1))
+			{
+                REQUEST(irq_foreign1) = request;
+			}
+
+			partner_relation =
+				MET_lookup_relation(tdbb, IND.RDB$RELATION_NAME);
+
+			if (partner_relation)
+			{
+				ALL_vector(dbb->dbb_permanent,
+							&references->frgn_reference_ids,
+							(USHORT)index_number);
+
+				references->frgn_reference_ids->vec_object[index_number] =
+					(BLK) (IDX.RDB$INDEX_ID - 1);
+				
+				ALL_vector(dbb->dbb_permanent,
+							&references->frgn_relations,
+							(USHORT)index_number);
+
+				references->frgn_relations->vec_object[index_number] =
+					(BLK) partner_relation->rel_id;
+
+				ALL_vector(dbb->dbb_permanent,
+							&references->frgn_indexes,
+							(USHORT)index_number);
+
+				references->frgn_indexes->vec_object[index_number] =
+					(BLK) (IND.RDB$INDEX_ID - 1);
+
+				index_number++;
+			}
+		END_FOR;
+
+		if (!REQUEST(irq_foreign1))
+		{
+			REQUEST(irq_foreign1) = request;
+		}
+
+		/* Prepare for rescan of primary dependencies on relation's primary
+		   key and stale vectors. */
+
+		request = (BLK) CMP_find_request(tdbb, irq_foreign2, IRQ_REQUESTS);
+		dependencies = &relation->rel_primary_dpnds;
+		index_number = 0;
+
+		if (dependencies->prim_reference_ids) {
+			ALL_release((FRB)dependencies->prim_reference_ids);
+			dependencies->prim_reference_ids = (VEC) NULL_PTR;
+		}
+		if (dependencies->prim_relations) {
+			ALL_release((FRB)dependencies->prim_relations);
+			dependencies->prim_relations = (VEC) NULL_PTR;
+		}
+		if (dependencies->prim_indexes) {
+			ALL_release((FRB)dependencies->prim_indexes);
+			dependencies->prim_indexes = (VEC) NULL_PTR;
+		}
+
+/*
+** ============================================================
+** ==
+** == since UNIQUE constraint also could be used as primary key
+** == therefore we change:
+** ==
+** ==    IDX.RDB$INDEX_NAME STARTING WITH "RDB$PRIMARY"
+** ==
+** == to
+** ==
+** ==    IDX.RDB$UNIQUE_FLAG = 1
+** ==
+** ============================================================
+*/
+
+		FOR(REQUEST_HANDLE request)
+			IDX IN RDB$INDICES CROSS
+				IND IN RDB$INDICES WITH
+				IDX.RDB$UNIQUE_FLAG = 1 AND
+				IDX.RDB$RELATION_NAME EQ relation->rel_name AND
+				IND.RDB$FOREIGN_KEY EQ IDX.RDB$INDEX_NAME
+
+            if (!REQUEST(irq_foreign2))
+				REQUEST(irq_foreign2) = request;
+
+			if (partner_relation =
+				MET_lookup_relation(tdbb, IND.RDB$RELATION_NAME))
+			{
+				ALL_vector(dbb->dbb_permanent,
+						   &dependencies->prim_reference_ids,
+						   (USHORT)index_number);
+
+				dependencies->prim_reference_ids->vec_object[index_number] =
+					(BLK) (IDX.RDB$INDEX_ID - 1);
+
+				ALL_vector(dbb->dbb_permanent,
+							&dependencies->prim_relations,
+							(USHORT)index_number);
+
+				dependencies->prim_relations->vec_object[index_number] =
+					(BLK) partner_relation->rel_id;
+
+				ALL_vector(dbb->dbb_permanent,
+							&dependencies->prim_indexes,
+							(USHORT)index_number);
+
+				dependencies->prim_indexes->vec_object[index_number] =
+					(BLK) (IND.RDB$INDEX_ID - 1);
+
+				index_number++;
+			}
+		END_FOR;
+
+		if (!REQUEST(irq_foreign2))
+			REQUEST(irq_foreign2) = request;
+
+		relation->rel_flags &= ~REL_check_partners;
+	}
+
+	if (idx->idx_flags & idx_foreign)
+	{
+		if (*index_name)
+		{
+			/* Since primary key index names aren't being cached, do a long
+			   hard lookup. This is only called during index create for foreign
+			   keys. */
+
+			found = FALSE;
+			request = NULL_PTR;
+
+			FOR(REQUEST_HANDLE request)
+				IDX IN RDB$INDICES CROSS
+					IND IN RDB$INDICES WITH
+					IDX.RDB$RELATION_NAME EQ relation->rel_name AND
+					(IDX.RDB$INDEX_ID EQ idx->idx_id + 1 OR
+					 IDX.RDB$INDEX_NAME EQ index_name) AND
+					IND.RDB$INDEX_NAME EQ IDX.RDB$FOREIGN_KEY AND
+					IND.RDB$UNIQUE_FLAG NOT MISSING
+
+				partner_relation =
+					MET_lookup_relation(tdbb, IND.RDB$RELATION_NAME);
+
+                if (partner_relation)
+				{
+					idx->idx_primary_relation = partner_relation->rel_id;
+					idx->idx_primary_index = IND.RDB$INDEX_ID - 1;
+					found = TRUE;
+				}
+			END_FOR;
+
+			CMP_release(tdbb, (REQ)request);
+			return found;
+		}
+
+		references = &relation->rel_foreign_refs;
+		if (references->frgn_reference_ids)
+		{
+			for (index_number = 0;
+				 index_number < references->frgn_reference_ids->vec_count;
+				 index_number++)
+			{
+				if (idx->idx_id == (UCHAR) references->frgn_reference_ids->
+											vec_object[index_number])
+				{
+					idx->idx_primary_relation =
+						(USHORT) references->frgn_relations->
+						vec_object[index_number];
+					idx->idx_primary_index =
+						(UCHAR) references->frgn_indexes->
+						vec_object[index_number];
+					return TRUE;
+				}
+			}
+		}
+		return FALSE;
+	}
+	else if (idx->idx_flags & (idx_primary | idx_unique))
+	{
+		dependencies = &relation->rel_primary_dpnds;
+		if (dependencies->prim_reference_ids)
+		{
+			for (index_number = 0;
+				 index_number < dependencies->prim_reference_ids->vec_count;
+				 index_number++)
+			{
+				if (idx->idx_id == (UCHAR) dependencies->prim_reference_ids->
+											vec_object[index_number])
+				{
+					idx->idx_foreign_primaries =
+						relation->rel_primary_dpnds.prim_reference_ids;
+					idx->idx_foreign_relations =
+						relation->rel_primary_dpnds.prim_relations;
+					idx->idx_foreign_indexes =
+						relation->rel_primary_dpnds.prim_indexes;
+					return TRUE;
+				}
+			}
+		}
+		return FALSE;
+	}
+
+	return FALSE;
+}
+
+
+PRC MET_lookup_procedure(TDBB tdbb, SCHAR * name)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup procedure by name.  Name passed in is
+ *      ASCIZ name.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	PRC procedure, *ptr, *end;
+	VEC procedures;
+	SCHAR *p, *q;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* See if we already know the relation by name */
+
+	if (procedures = dbb->dbb_procedures)
+		for (ptr = (PRC *) procedures->vec_object, end =
+			 ptr + procedures->vec_count; ptr < end; ptr++) {
+			if ((procedure = *ptr) && !(procedure->prc_flags & PRC_obsolete)
+				&& (procedure->prc_flags & PRC_scanned)
+				&& !(procedure->prc_flags & PRC_being_scanned)
+				&& !(procedure->prc_flags & PRC_being_altered)
+				&& (p = procedure->prc_name->str_data)) for (q = name;
+															 *p == *q;
+															 p++, q++)
+					if (*p == 0)
+						return procedure;
+		}
+
+/* We need to look up the procedure name in RDB$PROCEDURES */
+
+	procedure = NULL;
+
+	request = (BLK) CMP_find_request(tdbb, irq_l_procedure, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		P IN RDB$PROCEDURES WITH P.RDB$PROCEDURE_NAME EQ name
+
+        if (!REQUEST(irq_l_procedure)) 
+            REQUEST(irq_l_procedure) = request;
+
+        procedure = MET_procedure(tdbb, P.RDB$PROCEDURE_ID, 0);
+
+	END_FOR;
+
+	if (!REQUEST(irq_l_procedure))
+		REQUEST(irq_l_procedure) = request;
+
+	return procedure;
+}
+
+
+PRC MET_lookup_procedure_id(TDBB tdbb,
+							SSHORT id, BOOLEAN return_deleted, USHORT flags)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ p r o c e d u r e _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup procedure by id.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	PRC procedure, *ptr, *end;
+	VEC procedures;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* See if we already know the relation by name */
+
+	if (procedures = dbb->dbb_procedures)
+		for (ptr = (PRC *) procedures->vec_object, end =
+			 ptr + procedures->vec_count; ptr < end; ptr++) {
+			if ((procedure = *ptr) && procedure->prc_id == id
+				&& !(procedure->prc_flags & PRC_being_scanned)
+				&& (procedure->prc_flags & PRC_scanned)
+				&& !(procedure->prc_flags & PRC_being_altered)
+				&& (!(procedure->prc_flags & PRC_obsolete) || return_deleted))
+				return procedure;
+		}
+
+/* We need to look up the procedure name in RDB$PROCEDURES */
+
+	procedure = NULL;
+
+	request = (BLK) CMP_find_request(tdbb, irq_l_proc_id, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		P IN RDB$PROCEDURES WITH P.RDB$PROCEDURE_ID EQ id
+
+        if (!REQUEST(irq_l_proc_id)) 
+            REQUEST(irq_l_proc_id) = request;
+
+		procedure = MET_procedure(tdbb, P.RDB$PROCEDURE_ID, flags);
+
+	END_FOR;
+
+	if (!REQUEST(irq_l_proc_id))
+		REQUEST(irq_l_proc_id) = request;
+
+	return procedure;
+}
+
+
+REL MET_lookup_relation(TDBB tdbb, CONST SCHAR* name)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup relation by name.  Name passed in is
+ *      ASCIZ name.
+ *
+ **************************************/
+	DBB				dbb;
+	BLK				request;
+	VEC				relations;
+	REL				relation;
+	REL				check_relation;
+	REL*			ptr;
+	REL*			end;
+	SCHAR*			p;
+	CONST SCHAR*	q;
+	UCHAR			length;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* See if we already know the relation by name */
+
+	relations = dbb->dbb_relations;
+	check_relation = NULL;
+	length = strlen(name);
+
+	for (ptr = (REL *) relations->vec_object, end =
+		 ptr + relations->vec_count; ptr < end; ptr++)
+	{
+		if ((relation = *ptr) &&
+			(relation->rel_length == length) &&
+			(!(relation->rel_flags & REL_deleted)) &&
+			(p = relation->rel_name))
+		{
+			for (q = name; *p == *q; p++, q++)
+			{
+				if (*p == 0)
+				{
+					if (relation->rel_flags & REL_check_existence)
+					{
+						check_relation = relation;
+						LCK_lock(tdbb, check_relation->rel_existence_lock,
+								 LCK_SR, TRUE);
+						break;
+					}
+					else
+					{
+						return relation;
+					}
+				}
+			}
+		}
+		if (check_relation)
+		{
+			break;
+		}
+	}
+
+/* We need to look up the relation name in RDB$RELATIONS */
+
+	relation = NULL;
+
+	request = (BLK) CMP_find_request(tdbb, irq_l_relation, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ name
+
+        if (!REQUEST(irq_l_relation))
+		{
+			REQUEST(irq_l_relation) = request;
+		}
+
+		relation = MET_relation(tdbb, X.RDB$RELATION_ID);
+		if (!relation->rel_name)
+		{
+			relation->rel_name = MET_save_name(tdbb, name);
+			relation->rel_length = strlen(relation->rel_name);
+		}
+	END_FOR;
+
+	if (!REQUEST(irq_l_relation))
+	{
+		REQUEST(irq_l_relation) = request;
+	}
+
+	if (check_relation) {
+		check_relation->rel_flags &= ~REL_check_existence;
+		if (check_relation != relation) {
+			LCK_release(tdbb, check_relation->rel_existence_lock);
+			check_relation->rel_flags |= REL_deleted;
+		}
+	}
+
+	return relation;
+}
+
+
+REL MET_lookup_relation_id(TDBB tdbb, SLONG id, BOOLEAN return_deleted)
+{
+/**************************************
+ *
+ *      M E T _ l o o k u p _ r e l a t i o n _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup relation by id. Make sure it really exists.
+ *
+ **************************************/
+	DBB dbb;
+	register REL relation, check_relation;
+	register VEC vector;
+	BLK request;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* System relations are above suspicion */
+
+	if (id < (int) rel_MAX)
+	{
+		assert((USHORT)id < MAX_USHORT);
+		return MET_relation(tdbb, (USHORT) id);
+	}
+
+	check_relation = NULL;
+
+	if ((vector = dbb->dbb_relations) &&
+		(id < vector->vec_count) && (relation = (REL) vector->vec_object[id]))
+	{
+		if (relation->rel_flags & REL_deleted)
+		{
+			if (return_deleted)
+				return relation;
+			return NULL;
+		}
+		else if (relation->rel_flags & REL_check_existence)
+		{
+			check_relation = relation;
+			LCK_lock(tdbb, check_relation->rel_existence_lock, LCK_SR, TRUE);
+		}
+		else
+		{
+			return relation;
+		}
+	}
+
+/* We need to look up the relation id in RDB$RELATIONS */
+
+	relation = NULL;
+
+	request = (BLK) CMP_find_request(tdbb, irq_l_rel_id, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$RELATIONS WITH X.RDB$RELATION_ID EQ id
+
+        if (!REQUEST(irq_l_rel_id)) REQUEST(irq_l_rel_id) = request;
+		relation = MET_relation(tdbb, X.RDB$RELATION_ID);
+		if (!relation->rel_name) {
+			relation->rel_name = MET_save_name(tdbb, X.RDB$RELATION_NAME);
+			relation->rel_length = strlen(relation->rel_name);
+		}
+	END_FOR;
+
+	if (!REQUEST(irq_l_rel_id))
+		REQUEST(irq_l_rel_id) = request;
+
+	if (check_relation) {
+		check_relation->rel_flags &= ~REL_check_existence;
+		if (check_relation != relation) {
+			LCK_release(tdbb, check_relation->rel_existence_lock);
+			check_relation->rel_flags |= REL_deleted;
+		}
+	}
+
+	return relation;
+}
+
+
+NOD MET_parse_blob(TDBB		tdbb,
+				   REL		relation,
+				   SLONG	blob_id[2],
+				   CSB*		csb_ptr,
+				   REQ*		request_ptr,
+				   BOOLEAN	trigger,
+				   BOOLEAN	ignore_perm)
+{
+/**************************************
+ *
+ *      M E T _ p a r s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *      Parse blr, returning a compiler scratch block with the results.
+ *
+ * if ignore_perm is true then, the request generated must be set to
+ *   ignore all permissions checks. In this case, we call PAR_blr
+ *   passing it the csb_ignore_perm flag to generate a request
+ *   which must go through without checking any permissions.
+ *
+ **************************************/
+	DBB dbb;
+	BLB blob;
+	NOD node;
+	STR temp;
+	SLONG length;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	blob = BLB_open(tdbb, dbb->dbb_sys_trans, (BID)blob_id);
+	length = blob->blb_length + 10;
+	temp = (STR) ALLOCDV(type_str, length);
+	BLB_get_data(tdbb, blob, temp->str_data, length);
+
+	node = PAR_blr(	tdbb,
+					relation,
+					temp->str_data,
+					NULL_PTR,
+					csb_ptr,
+					request_ptr,
+					trigger,
+					(USHORT)(ignore_perm ? csb_ignore_perm : 0));
+
+	ALL_release((FRB)temp);
+
+	return node;
+}
+
+
+void MET_parse_sys_trigger(TDBB tdbb, REL relation)
+{
+/**************************************
+ *
+ *      M E T _ p a r s e _ s y s _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Parse the blr for a system relation's triggers.
+ *
+ **************************************/
+	DBB		dbb;
+	BLK*	trigger;	/* should really be "TRG**" */
+	UCHAR*	blr;
+	UCHAR	type;
+	TEXT*	name;
+	VEC*	ptr;
+	REQ		request;
+	PLB		old_pool;
+	USHORT	trig_flags;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	relation->rel_flags &= ~REL_sys_triggers;
+
+/* release any triggers in case of a rescan */
+
+	if (relation->rel_pre_store)
+		MET_release_triggers(tdbb, &relation->rel_pre_store);
+	if (relation->rel_post_store)
+		MET_release_triggers(tdbb, &relation->rel_post_store);
+	if (relation->rel_pre_erase)
+		MET_release_triggers(tdbb, &relation->rel_pre_erase);
+	if (relation->rel_post_erase)
+		MET_release_triggers(tdbb, &relation->rel_post_erase);
+	if (relation->rel_pre_modify)
+		MET_release_triggers(tdbb, &relation->rel_pre_modify);
+	if (relation->rel_post_modify)
+		MET_release_triggers(tdbb, &relation->rel_post_modify);
+
+#ifdef READONLY_DATABASE
+/* No need to load triggers for ReadOnly databases, since
+   INSERT/DELETE/UPDATE statements are not going to be allowed */
+
+	if (dbb->dbb_flags & DBB_read_only)
+	{
+		return;
+	}
+#endif /* READONLY_DATABASE */
+
+	relation->rel_flags |= REL_sys_trigs_being_loaded;
+
+	trigger = NULL;
+	/* TMN: The cast "(struct trg*)" if a bad lie. Fix later
+	 * and remove this comment when it's done.
+	 */
+	while (trigger =
+		   (BLK*)INI_lookup_sys_trigger(relation,
+										(struct trg*)trigger,
+										&blr,
+										&type,
+										&name,
+										&trig_flags))
+	{
+		switch (type) {
+		case 1:
+			ptr = &relation->rel_pre_store;
+			break;
+		case 2:
+			ptr = &relation->rel_post_store;
+			break;
+		case 3:
+			ptr = &relation->rel_pre_modify;
+			break;
+		case 4:
+			ptr = &relation->rel_post_modify;
+			break;
+		case 5:
+			ptr = &relation->rel_pre_erase;
+			break;
+		case 6:
+			ptr = &relation->rel_post_erase;
+			break;
+		default:
+			ptr = NULL;
+			break;
+		}
+
+		if (ptr)
+		{
+			const USHORT par_flags = (USHORT)
+				((trig_flags & TRG_ignore_perm) ? csb_ignore_perm : 0);
+
+			old_pool = tdbb->tdbb_default;
+			tdbb->tdbb_default = ALL_pool();
+			PAR_blr(tdbb,
+					relation,
+					blr,
+					NULL_PTR,
+					NULL_PTR,
+					&request,
+					TRUE,
+					par_flags);
+
+			tdbb->tdbb_default = old_pool;
+
+			request->req_trg_name = name;
+
+			request->req_flags |= req_sys_trigger;
+			if (trig_flags & TRG_ignore_perm)
+			{
+				request->req_flags |= req_ignore_perm;
+			}
+
+			save_trigger_request(dbb, ptr, request);
+		}
+	}
+
+	relation->rel_flags &= ~REL_sys_trigs_being_loaded;
+}
+
+
+int MET_post_existence( TDBB tdbb, REL relation)
+{
+/**************************************
+ *
+ *      M E T _ p o s t _ e x i s t e n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Post an interest in the existence of a relation.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	if (++relation->rel_use_count == 1 &&
+		!MET_lookup_relation_id(tdbb, relation->rel_id, FALSE))
+		return FALSE;
+
+	return TRUE;
+}
+
+
+void MET_prepare( TDBB tdbb, TRA transaction, USHORT length, UCHAR * msg)
+{
+/**************************************
+ *
+ *      M E T _ p r e p a r e 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Post a transaction description to RDB$TRANSACTIONS.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	BLB blob;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, irq_s_trans, IRQ_REQUESTS);
+
+	STORE(REQUEST_HANDLE request) X IN RDB$TRANSACTIONS
+		X.RDB$TRANSACTION_ID = transaction->tra_number;
+		X.RDB$TRANSACTION_STATE =
+			RDB$TRANSACTIONS.RDB$TRANSACTION_STATE.LIMBO;
+		blob =
+			BLB_create(tdbb, dbb->dbb_sys_trans,
+					   (BID)&X.RDB$TRANSACTION_DESCRIPTION);
+		BLB_put_segment(tdbb, blob, msg, length);
+		BLB_close(tdbb, blob);
+	END_STORE;
+
+	if (!REQUEST(irq_s_trans))
+		REQUEST(irq_s_trans) = request;
+}
+
+
+PRC MET_procedure(TDBB tdbb, int id, USHORT flags)
+{
+/**************************************
+ *
+ *      M E T _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find or create a procedure block for a given procedure id.
+ *
+ **************************************/
+	DBB dbb;
+	PRC procedure;
+	VEC vector;
+	LCK lock;
+	BLK request, request2, *ptr, *end;
+	CSB csb;
+	PRM parameter;
+	PLB old_pool;
+	NOD node;
+	FMT format;
+	DSC *desc;
+	SSHORT i;
+	USHORT length;
+	JMP_BUF env, *old_env;
+
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if (!(vector = dbb->dbb_procedures))
+	{
+		vector = dbb->dbb_procedures = (VEC) ALLOCPV(type_vec, id + 10);
+		vector->vec_count = id + 10;
+	}
+	else if (id >= vector->vec_count)
+	{
+		vector = (VEC) ALL_extend((BLK*)&dbb->dbb_procedures, id + 10);
+	}
+
+#ifdef SUPERSERVER
+
+	if (!(dbb->dbb_flags & DBB_sp_rec_mutex_init))
+	{
+		THD_rec_mutex_init(&dbb->dbb_sp_rec_mutex);
+		dbb->dbb_flags |= DBB_sp_rec_mutex_init;
+	}
+	THREAD_EXIT;
+	
+	if (THD_rec_mutex_lock(&dbb->dbb_sp_rec_mutex))
+	{
+		THREAD_ENTER;
+		return NULL;
+	}
+	
+	THREAD_ENTER;
+
+#endif /* SUPERSERVER */
+
+	procedure = (PRC) vector->vec_object[id];
+	if (procedure)
+	{
+		/* Make sure PRC_being_scanned and PRC_scanned
+		   are not set at the same time
+		 */
+		assert(!(procedure->prc_flags & PRC_being_scanned) ||
+			   !(procedure->prc_flags & PRC_scanned));
+
+		/* To avoid scanning recursive procedure's blr recursively let's
+		   make use of PRC_being_scanned bit. Because this bit is set
+		   later in the code, it is not set when we are here first time.
+		   If (in case of rec. procedure) we get here second time it is 
+		   already set and we return half baked procedure.
+		   In case of superserver this code is under the rec. mutex
+		   protection, thus the only guy (thread) who can get here and see
+		   PRC_being_scanned bit set is the guy which started procedure scan
+		   and currently holds the mutex.
+		   In case of classic, there is always only one guy and if it 
+		   sees PRC_being_scanned bit set it is safe to assume it is here
+		   second time.
+
+		   If procedure has already been scanned - return. This condition
+		   is for those threads that did not find procedure in cach and 
+		   came here to get it from disk. But only one was able to lock
+		   the mutex and do the scanning, others were waiting. As soon as
+		   the first thread releases the mutex another thread gets in and
+		   it would be just unfair to make it do the work again
+		 */
+		if ((procedure->prc_flags & PRC_being_scanned) ||
+			(procedure->prc_flags & PRC_scanned))
+		{
+
+#ifdef SUPERSERVER
+			THD_rec_mutex_unlock(&dbb->dbb_sp_rec_mutex);
+#endif
+			return procedure;
+		}
+	}
+
+	if (!procedure)
+	{
+		procedure = (PRC) ALLOCP(type_prc);
+	}
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		procedure->prc_flags &= ~(PRC_being_scanned | PRC_scanned);
+#ifdef SUPERSERVER
+		THD_rec_mutex_unlock(&dbb->dbb_sp_rec_mutex);
+#endif
+		if (procedure->prc_existence_lock)
+		{
+			LCK_release(tdbb, procedure->prc_existence_lock);
+		}
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		ERR_punt();
+	}
+
+	procedure->prc_flags |= (PRC_being_scanned | flags);
+	procedure->prc_id = id;
+	vector->vec_object[id] = (BLK) procedure;
+
+	procedure->prc_existence_lock = lock = (LCK) ALLOCPV(type_lck, 0);
+	lock->lck_parent = dbb->dbb_lock;
+	lock->lck_dbb = dbb;
+	lock->lck_key.lck_long = procedure->prc_id;
+	lock->lck_length = sizeof(lock->lck_key.lck_long);
+	lock->lck_type = LCK_prc_exist;
+	lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+	lock->lck_object = (BLK) procedure;
+	/* TMN: Beware - this is a hairy AND UGLY cast */
+	lock->lck_ast = (int (*)()) blocking_ast_procedure;
+
+	LCK_lock(tdbb, procedure->prc_existence_lock, LCK_SR, TRUE);
+
+	request = (BLK) CMP_find_request(tdbb, irq_r_procedure, IRQ_REQUESTS);
+	request2 = (BLK) CMP_find_request(tdbb, irq_r_params, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		P IN RDB$PROCEDURES WITH P.RDB$PROCEDURE_ID EQ procedure->prc_id
+
+        if (!REQUEST(irq_r_procedure))
+		{
+            REQUEST(irq_r_procedure) = request;
+		}
+
+		if (!procedure->prc_name)
+		{
+			procedure->prc_name = save_name(tdbb, P.RDB$PROCEDURE_NAME);
+		}
+		procedure->prc_id = P.RDB$PROCEDURE_ID;
+		procedure->prc_use_count = 0;
+		if (!P.RDB$SECURITY_CLASS.NULL)
+		{
+			procedure->prc_security_name =
+				save_name(tdbb, P.RDB$SECURITY_CLASS);
+		}
+		if (P.RDB$SYSTEM_FLAG.NULL || !P.RDB$SYSTEM_FLAG)
+		{
+			procedure->prc_flags &= ~PRC_system;
+		}
+		else
+		{
+			procedure->prc_flags |= PRC_system;
+		}
+		if (procedure->prc_inputs = P.RDB$PROCEDURE_INPUTS)
+		{
+			procedure->prc_input_fields = ALL_vector(dbb->dbb_permanent,
+													 &procedure->
+													 prc_input_fields,
+													 P.RDB$PROCEDURE_INPUTS);
+		}
+		if (procedure->prc_outputs = P.RDB$PROCEDURE_OUTPUTS)
+		{
+			procedure->prc_output_fields =
+				ALL_vector(dbb->dbb_permanent, &procedure->prc_output_fields,
+						   P.RDB$PROCEDURE_OUTPUTS);
+		}
+
+		FOR(REQUEST_HANDLE request2) PA IN RDB$PROCEDURE_PARAMETERS CROSS
+			F IN RDB$FIELDS WITH F.RDB$FIELD_NAME = PA.RDB$FIELD_SOURCE
+				AND PA.RDB$PROCEDURE_NAME = P.RDB$PROCEDURE_NAME
+
+            if (!REQUEST(irq_r_params))
+			{
+				REQUEST(irq_r_params) = request2;
+			}
+
+			if (PA.RDB$PARAMETER_TYPE) {
+				vector = procedure->prc_output_fields;
+			} else {
+				vector = procedure->prc_input_fields;
+			}
+
+			/* should be error if field already exists */
+			parameter =
+				(PRM) ALLOCPV(type_prm, name_length(PA.RDB$PARAMETER_NAME));
+			parameter->prm_number = PA.RDB$PARAMETER_NUMBER;
+			vector->vec_object[parameter->prm_number] = (BLK) parameter;
+			name_copy(parameter->prm_string, PA.RDB$PARAMETER_NAME);
+			parameter->prm_name = parameter->prm_string;
+			DSC_make_descriptor(&parameter->prm_desc, F.RDB$FIELD_TYPE,
+								F.RDB$FIELD_SCALE, F.RDB$FIELD_LENGTH,
+								F.RDB$FIELD_SUB_TYPE, F.RDB$CHARACTER_SET_ID,
+								F.RDB$COLLATION_ID);
+		END_FOR;
+
+		if (!REQUEST(irq_r_params)) {
+			REQUEST(irq_r_params) = request2;
+		}
+
+		if ((vector = procedure->prc_output_fields) && vector->vec_object[0])
+		{
+			format = procedure->prc_format =
+				(FMT) ALLOCPV(type_fmt, procedure->prc_outputs);
+			format->fmt_count = procedure->prc_outputs;
+			length = FLAG_BYTES(format->fmt_count);
+			desc = format->fmt_desc;
+			for (ptr = vector->vec_object, end = ptr + procedure->prc_outputs;
+				 ptr < end; ptr++, desc++)
+			{
+				parameter = (PRM) * ptr;
+				/* check for parameter to be null, this can only happen if the
+				 * parameter numbers get out of sync. This was added to fix bug
+				 * 10534. -Shaunak Mistry 12-May-99
+				 */
+				if (parameter)
+				{
+					*desc = parameter->prm_desc;
+					length = MET_align(desc, length);
+					desc->dsc_address = (UCHAR *) length;
+					length += desc->dsc_length;
+				}
+			}
+			format->fmt_length = length;
+		}
+
+		old_pool = tdbb->tdbb_default;
+		tdbb->tdbb_default = ALL_pool();
+		csb = (CSB) ALLOCDV(type_csb, 5);
+		csb->csb_count = 5;
+		parse_procedure_blr(tdbb, procedure, (SLONG*)&P.RDB$PROCEDURE_BLR, &csb);
+		procedure->prc_request->req_procedure = procedure;
+		for (i = 0; i < csb->csb_count; i++)
+		{
+			if (node = csb->csb_rpt[i].csb_message)
+			{
+				if ((int) node->nod_arg[e_msg_number] == 0)
+				{
+					procedure->prc_input_msg = node;
+				} else if ((int) node->nod_arg[e_msg_number] == 1)
+				{
+					procedure->prc_output_msg = node;
+				}
+			}
+		}
+		ALL_release((FRB)csb);
+		tdbb->tdbb_default = old_pool;
+
+ END_FOR;
+
+	if (!REQUEST(irq_r_procedure)) {
+		REQUEST(irq_r_procedure) = request;
+	}
+
+/* Make sure that it is really being Scanned ! */
+	assert(procedure->prc_flags & PRC_being_scanned);
+
+	procedure->prc_flags |= PRC_scanned;
+	procedure->prc_flags &= ~PRC_being_scanned;
+
+#ifdef SUPERSERVER
+	THD_rec_mutex_unlock(&dbb->dbb_sp_rec_mutex);
+#endif
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	return procedure;
+}
+
+
+REL MET_relation(TDBB tdbb, USHORT id)
+{
+/**************************************
+ *
+ *      M E T _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find or create a relation block for a given relation id.
+ *
+ **************************************/
+	DBB dbb;
+	register REL relation;
+	register VEC vector;
+	LCK lock;
+	USHORT major_version, minor_original, max_sys_rel;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	if (!(vector = dbb->dbb_relations))
+	{
+		vector = dbb->dbb_relations = (VEC) ALLOCPV(type_vec, id + 10);
+		vector->vec_count = id + 10;
+	}
+	else if (id >= vector->vec_count)
+	{
+		vector = (VEC) ALL_extend((BLK*)&dbb->dbb_relations, id + 10);
+	}
+
+	if (relation = (REL) vector->vec_object[id])
+		return relation;
+
+	major_version = (SSHORT) dbb->dbb_ods_version;
+	minor_original = (SSHORT) dbb->dbb_minor_original;
+
+/* From ODS 9 onwards, the first 128 relation IDS have been 
+   reserved for system relations */
+	if (ENCODE_ODS(major_version, minor_original) < ODS_9_0)
+		max_sys_rel = (USHORT) USER_REL_INIT_ID_ODS8 - 1;
+	else
+		max_sys_rel = (USHORT) USER_DEF_REL_INIT_ID - 1;
+
+	relation = (REL) ALLOCP(type_rel);
+	vector->vec_object[id] = (BLK) relation;
+	relation->rel_id = id;
+
+	if (relation->rel_id <= max_sys_rel)
+		return relation;
+
+	relation->rel_existence_lock = lock = (LCK) ALLOCPV(type_lck, 0);
+	lock->lck_parent = dbb->dbb_lock;
+	lock->lck_dbb = dbb;
+	lock->lck_key.lck_long = relation->rel_id;
+	lock->lck_length = sizeof(lock->lck_key.lck_long);
+	lock->lck_type = LCK_rel_exist;
+	lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+	lock->lck_object = (BLK) relation;
+	/* TMN: Beware - this is a hairy AND UGLY cast */
+	lock->lck_ast = (int (*)()) blocking_ast_relation;
+
+	relation->rel_flags |= (REL_check_existence | REL_check_partners);
+	return relation;
+}
+
+
+void MET_release_existence( REL relation)
+{
+/**************************************
+ *
+ *      M E T _ r e l e a s e _ e x i s t e n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release interest in relation. If no remaining interest
+ *      and we're blocking the drop of the relation then release
+ *      existence lock and mark deleted.
+ *
+ **************************************/
+
+	if (!relation->rel_use_count || !--relation->rel_use_count)
+		if (relation->rel_flags & REL_blocking)
+			LCK_re_post(relation->rel_existence_lock);
+}
+
+
+void MET_remove_procedure( TDBB tdbb, int id, PRC procedure)
+{
+/**************************************
+ *
+ *      M E T _ r e m o v e  _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Remove a procedure from cache
+ *
+ **************************************/
+	DBB dbb;
+	VEC vector;
+	SSHORT i;
+	USHORT save_proc_flags;
+	BOOLEAN free_procedure_block = TRUE;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	if (!procedure) {
+		free_procedure_block = FALSE;
+	/** If we are in here then dfw.e/modify_procedure() called us **/
+		if (!(vector = dbb->dbb_procedures))
+			return;
+
+		if (!(procedure = (PRC) vector->vec_object[id]))
+			return;
+	}
+
+/* Procedure that is being altered may have references
+   to it by other procedures via pointer to current meta
+   data structure, so don't loose the structure or the pointer. 
+if (!(procedure->prc_flags & PRC_being_altered))
+    vector->vec_object [id] = (BLK) NULL_PTR;
+*/
+
+/* deallocate all structure which were allocated.  The procedure
+ * blr is originally read into a new pool from which all request
+ * are allocated.  That will not be freed up.
+ */
+
+	if (procedure->prc_existence_lock)
+		ALL_release((FRB)procedure->prc_existence_lock);
+
+	if (procedure->prc_name)
+		ALL_release((FRB)procedure->prc_name);
+	if (procedure->prc_security_name)
+		ALL_release((FRB)procedure->prc_security_name);
+
+/* deallocate input param structures */
+
+	if ((procedure->prc_inputs) && (vector = procedure->prc_input_fields)) {
+		for (i = 0; i < procedure->prc_inputs; i++)
+		{
+			if (vector->vec_object[i])
+			{
+				ALL_release((FRB)vector->vec_object[i]);
+			}
+		}
+		ALL_release((FRB)vector);
+	}
+
+/* deallocate output param structures */
+
+	if ((procedure->prc_outputs) && (vector = procedure->prc_output_fields)) {
+		for (i = 0; i < procedure->prc_outputs; i++)
+		{
+			if (vector->vec_object[i])
+			{
+				ALL_release((FRB)vector->vec_object[i]);
+			}
+		}
+		ALL_release((FRB)vector);
+	}
+
+	if (procedure->prc_format)
+		ALL_release((FRB)procedure->prc_format);
+
+	if (!(procedure->prc_flags & PRC_being_altered))
+	{
+		ALL_release((FRB)procedure);
+	}
+	else
+	{
+		save_proc_flags = procedure->prc_flags;
+		memset(((SCHAR *) procedure) + sizeof(struct blk), 0,
+			   sizeof(struct prc) - sizeof(struct blk));
+		procedure->prc_flags = save_proc_flags;
+	}
+}
+
+
+void MET_revoke(
+				TDBB tdbb,
+				TRA transaction,
+				TEXT * relation, TEXT * revokee, TEXT * privilege)
+{
+/**************************************
+ *
+ *      M E T _ r e v o k e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Execute a recursive revoke.  This is called only when
+ *      a revoked privilege had the grant option.
+ *
+ **************************************/
+	DBB dbb;
+	USHORT count;
+	BLK request;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* See if the revokee still has the privilege.  If so, there's
+   nothing to do */
+
+	count = 0;
+
+	request = (BLK) CMP_find_request(tdbb, irq_revoke1, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE transaction)
+		FIRST 1 P IN RDB$USER_PRIVILEGES WITH
+			P.RDB$RELATION_NAME EQ relation AND
+			P.RDB$PRIVILEGE EQ privilege AND
+			P.RDB$USER EQ revokee 
+
+        if (!REQUEST(irq_revoke1))
+			REQUEST(irq_revoke1) = request;
+		++count;
+	END_FOR;
+
+	if (!REQUEST(irq_revoke1))
+		REQUEST(irq_revoke1) = request;
+
+	if (count)
+		return;
+
+	request = (BLK) CMP_find_request(tdbb, irq_revoke2, IRQ_REQUESTS);
+
+/* User lost privilege.  Take it away from anybody he/she gave
+   it to. */
+
+	FOR(REQUEST_HANDLE request TRANSACTION_HANDLE transaction)
+		P IN RDB$USER_PRIVILEGES WITH
+			P.RDB$RELATION_NAME EQ relation AND
+			P.RDB$PRIVILEGE EQ privilege AND
+			P.RDB$GRANTOR EQ revokee 
+
+        if (!REQUEST(irq_revoke2))
+            REQUEST(irq_revoke2) = request;
+		ERASE P;
+	END_FOR;
+
+	if (!REQUEST(irq_revoke2))
+		REQUEST(irq_revoke2) = request;
+}
+
+
+TEXT* MET_save_name(TDBB tdbb, CONST TEXT* name)
+{
+/**************************************
+ *
+ *      M E T _ s a v e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Immortalize a field or relation name in a permant string block.
+ *      Oh, wow.
+ *
+ **************************************/
+	STR string;
+
+	SET_TDBB(tdbb);
+
+	string = save_name(tdbb, name);
+	return (TEXT*) string->str_data;
+}
+
+
+void MET_scan_relation( TDBB tdbb, REL relation)
+{
+/**************************************
+ *
+ *      M E T _ s c a n _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Scan a relation for view rse, computed by expressions, missing
+ *      expressions, and validation expressions.
+ *
+ **************************************/
+	DBB dbb;
+	USHORT n, length, view_context, field_id;
+	ARR array;
+	VEC vector, triggers[TRIGGER_MAX], tmp_vector;
+	FLD field;
+	BLK request;
+	CSB csb;
+	BLB blob;
+	UCHAR *p, *q, *buffer, temp[256];
+	STR name, string;
+	PLB old_pool;
+	VOLATILE BOOLEAN dependencies, sys_triggers;
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+#ifdef SUPERSERVER
+	if (!(dbb->dbb_flags & DBB_sp_rec_mutex_init)) {
+		THD_rec_mutex_init(&dbb->dbb_sp_rec_mutex);
+		dbb->dbb_flags |= DBB_sp_rec_mutex_init;
+	}
+	THREAD_EXIT;
+	if (THD_rec_mutex_lock(&dbb->dbb_sp_rec_mutex)) {
+		THREAD_ENTER;
+		return;
+	}
+	THREAD_ENTER;
+#endif /* SUPERSERVER */
+
+	if (relation->rel_flags & REL_scanned
+		|| relation->rel_flags & REL_deleted) {
+#ifdef SUPERSERVER
+		THD_rec_mutex_unlock(&dbb->dbb_sp_rec_mutex);
+#endif
+		return;
+	}
+
+	relation->rel_flags |= REL_being_scanned;
+#if defined(NETWARE_386) || defined(WINDOWS_ONLY)
+	if ((unsigned) stackavail() < (unsigned) STACK_SAFE_LIMIT)
+		ERR_post(isc_err_stack_limit, 0);
+#endif
+
+	dependencies =
+		(relation->rel_flags & REL_get_dependencies) ? TRUE : FALSE;
+	sys_triggers = (relation->rel_flags & REL_sys_triggers) ? TRUE : FALSE;
+	relation->rel_flags &= ~(REL_get_dependencies | REL_sys_triggers);
+	for (n = 0; n < TRIGGER_MAX; n++)
+		triggers[n] = NULL_PTR;
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = dbb->dbb_permanent;
+
+/* If anything errors, catch it to reset the scan flag.  This will
+   make sure that the error will be caught if the operation is tried
+   again. */
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env))
+	{
+		relation->rel_flags &= ~(REL_being_scanned | REL_scanned);
+		if (dependencies)
+			relation->rel_flags |= REL_get_dependencies;
+		if (sys_triggers)
+			relation->rel_flags |= REL_sys_triggers;
+#ifdef SUPERSERVER
+		THD_rec_mutex_unlock(&dbb->dbb_sp_rec_mutex);
+#endif
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		tdbb->tdbb_default = old_pool;
+		ERR_punt();
+	}
+
+/* Since this can be called recursively, find an inactive clone of the request */
+
+	request = (BLK) CMP_find_request(tdbb, irq_r_fields, IRQ_REQUESTS);
+	csb = NULL;
+
+	FOR(REQUEST_HANDLE request)
+		REL IN RDB$RELATIONS WITH REL.RDB$RELATION_ID EQ relation->rel_id
+			/* Pick up relation level stuff */
+		if (!REQUEST(irq_r_fields))
+            REQUEST(irq_r_fields) = request;
+		relation->rel_current_fmt = REL.RDB$FORMAT;
+		vector =
+			ALL_vector(dbb->dbb_permanent, &relation->rel_fields,
+					   REL.RDB$FIELD_ID);
+		if (!REL.RDB$SECURITY_CLASS.NULL)
+			relation->rel_security_name =
+				MET_save_name(tdbb, REL.RDB$SECURITY_CLASS);
+		if (!relation->rel_name) {
+			relation->rel_name = MET_save_name(tdbb, REL.RDB$RELATION_NAME);
+			relation->rel_length = strlen(relation->rel_name);
+		}
+		if (!relation->rel_owner_name)
+			relation->rel_owner_name =
+				MET_save_name(tdbb, REL.RDB$OWNER_NAME);
+		if (REL.RDB$FLAGS & REL_sql)
+		{
+			relation->rel_flags |= REL_sql_relation;
+		}
+		if (!NULL_BLOB(REL.RDB$VIEW_BLR))
+		{
+			/* parse the view blr, getting dependencies on relations, etc. at the same time */
+
+			if (dependencies)
+			{
+				relation->rel_view_rse =
+				(RSE) MET_get_dependencies(	tdbb,
+											relation,
+											NULL_PTR,
+											NULL_PTR,
+											(SLONG*)&REL.RDB$VIEW_BLR,
+											NULL_PTR,
+											&csb,
+											REL.RDB$RELATION_NAME,
+											obj_view);
+			}
+			else
+			{
+				dependencies = (VOLATILE BOOLEAN)
+					(RSE) MET_parse_blob(tdbb,
+										relation,
+										(SLONG*)&REL.RDB$VIEW_BLR,
+										&csb,
+										NULL_PTR,
+										FALSE,
+										FALSE);
+			}
+
+			/* retrieve the view context names */
+
+			lookup_view_contexts(tdbb, relation);
+		}
+
+		relation->rel_flags |= REL_scanned;
+		if (REL.RDB$EXTERNAL_FILE[0])
+		{
+			EXT_file(relation,
+					REL.RDB$EXTERNAL_FILE,
+					(SLONG*)&REL.RDB$EXTERNAL_DESCRIPTION);
+		}
+
+		/* Pick up field specific stuff */
+
+		blob = BLB_open(tdbb, dbb->dbb_sys_trans, (BID)&REL.RDB$RUNTIME);
+		if (blob->blb_max_segment < sizeof(temp))
+		{
+			buffer = temp;
+		}
+		else
+		{
+			string = (STR) ALLOCDV(type_str, blob->blb_max_segment);
+			buffer = string->str_data;
+		}
+
+		field = NULL;
+		for (;;)
+		{
+			length =
+				BLB_get_segment(tdbb, blob, buffer, blob->blb_max_segment);
+			if (blob->blb_flags & BLB_eof)
+			{
+				break;
+			}
+			buffer[length] = 0;
+			p = (UCHAR *) & n;
+			q = buffer + 1;
+			while (q < buffer + 1 + sizeof(SSHORT))
+			{
+				*p++ = *q++;
+			}
+			p = buffer + 1;
+			--length;
+			switch ((RSR_T) buffer[0]) {
+			case RSR_field_id:
+				if (field && !field->fld_security_name
+					&& !REL.RDB$DEFAULT_CLASS.NULL) field->fld_security_name =
+						MET_save_name(tdbb, REL.RDB$DEFAULT_CLASS);
+				field_id = n;
+				field = (FLD) vector->vec_object[field_id];
+				array = NULL;
+				break;
+
+			case RSR_field_name:
+				if (field) {
+					/* The field exists.  If its name hasn't changed, then
+					   there's no need to copy anything. */
+
+					if (!strcmp(p, field->fld_name))
+						break;
+
+					name = (STR) ALLOCPV(type_str, length);
+					field->fld_name = (TEXT *) name->str_data;
+				}
+				else {
+					field = (FLD) ALLOCPV(type_fld, length);
+					vector->vec_object[field_id] = (BLK) field;
+					field->fld_name = (TEXT *) field->fld_string;
+				}
+				/*
+				 * TMN: This const_cast equivalent is safe since
+				 * we just allocated the struct.
+				 */
+				strcpy((char*)field->fld_name, p);
+				field->fld_length = strlen(field->fld_name);
+				break;
+
+			case RSR_view_context:
+				view_context = n;
+				break;
+
+			case RSR_base_field:
+				field->fld_source =
+					PAR_make_field(tdbb, csb, view_context, p);
+				break;
+
+			case RSR_computed_blr:
+				field->fld_computation = (dependencies) ?
+					MET_get_dependencies(tdbb, relation,
+										 p,
+										 csb,
+										 NULL_PTR,
+										 NULL_PTR,
+										 NULL_PTR,
+										 field->fld_name,
+										 obj_computed) :
+					PAR_blr(tdbb, relation, p, csb, NULL_PTR, NULL_PTR, FALSE,
+							0);
+				break;
+
+			case RSR_missing_value:
+				field->fld_missing_value =
+					PAR_blr(tdbb, relation, p, csb, NULL_PTR, NULL_PTR, FALSE,
+							0);
+				break;
+
+			case RSR_default_value:
+				field->fld_default_value =
+					PAR_blr(tdbb, relation, p, csb, NULL_PTR, NULL_PTR, FALSE,
+							0);
+				break;
+
+			case RSR_validation_blr:
+				field->fld_validation =
+					PAR_blr(tdbb, relation, p, csb, NULL_PTR, NULL_PTR, FALSE,
+							csb_validation);
+				break;
+
+			case RSR_field_not_null:
+				field->fld_not_null =
+					PAR_blr(tdbb, relation, p, csb, NULL_PTR, NULL_PTR, FALSE,
+							csb_validation);
+				break;
+
+			case RSR_security_class:
+				field->fld_security_name = MET_save_name(tdbb, p);
+				break;
+
+			case RSR_trigger_name:
+				MET_load_trigger(tdbb, relation, p, triggers);
+				break;
+
+			case RSR_dimensions:
+				field->fld_array = array = (ARR) ALLOCPV(type_arr, n);
+				array->arr_desc.ads_dimensions = n;
+				break;
+
+			case RSR_array_desc:
+				if (array)
+					MOVE_FAST(p, &array->arr_desc, length);
+				break;
+			}
+		}
+		if (field && !field->fld_security_name && !REL.RDB$DEFAULT_CLASS.NULL)
+		{
+			field->fld_security_name =
+				MET_save_name(tdbb, REL.RDB$DEFAULT_CLASS);
+		}
+		if (buffer != temp)
+		{
+			ALL_release((FRB)string);
+		}
+	END_FOR;
+
+	if (csb)
+	{
+		ALL_release((FRB)csb);
+	}
+
+/* release any triggers in case of a rescan, but not if the rescan 
+   hapenned while system triggers were being loaded. */
+
+	if (!(relation->rel_flags & REL_sys_trigs_being_loaded)) {
+		/* if we are scanning a system relation during loading the system 
+		   triggers, (during parsing its blr actually), we must not release the
+		   existing system triggers; because we have already set the
+		   relation->rel_flag to not have REL_sys_trig, so these
+		   system triggers will not get loaded again. This fixes bug 8149. */
+
+		/* We have just loaded the triggers onto the local vector triggers.
+		   Its now time to place them at their rightful place ie the relation
+		   block. 
+		 */
+		tmp_vector = relation->rel_pre_store;
+		relation->rel_pre_store = triggers[TRIGGER_PRE_STORE];
+		MET_release_triggers(tdbb, &tmp_vector);
+
+		tmp_vector = relation->rel_post_store;
+		relation->rel_post_store = triggers[TRIGGER_POST_STORE];
+		MET_release_triggers(tdbb, &tmp_vector);
+
+		tmp_vector = relation->rel_pre_erase;
+		relation->rel_pre_erase = triggers[TRIGGER_PRE_ERASE];
+		MET_release_triggers(tdbb, &tmp_vector);
+
+		tmp_vector = relation->rel_post_erase;
+		relation->rel_post_erase = triggers[TRIGGER_POST_ERASE];
+		MET_release_triggers(tdbb, &tmp_vector);
+
+		tmp_vector = relation->rel_pre_modify;
+		relation->rel_pre_modify = triggers[TRIGGER_PRE_MODIFY];
+		MET_release_triggers(tdbb, &tmp_vector);
+
+		tmp_vector = relation->rel_post_modify;
+		relation->rel_post_modify = triggers[TRIGGER_POST_MODIFY];
+		MET_release_triggers(tdbb, &tmp_vector);
+	}
+
+	relation->rel_flags &= ~REL_being_scanned;
+#ifdef SUPERSERVER
+	THD_rec_mutex_unlock(&dbb->dbb_sp_rec_mutex);
+#endif
+	relation->rel_current_format = NULL;
+	tdbb->tdbb_default = old_pool;
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+TEXT *MET_trigger_msg(TDBB tdbb, TEXT * name, USHORT number)
+{
+/**************************************
+ *
+ *      M E T _ t r i g g e r _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Look up trigger message using trigger and abort code.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	TEXT *msg;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	msg = NULL;
+	request = (BLK) CMP_find_request(tdbb, irq_s_msgs, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		MSG IN RDB$TRIGGER_MESSAGES WITH
+			MSG.RDB$TRIGGER_NAME EQ name AND
+			MSG.RDB$MESSAGE_NUMBER EQ number 
+
+        if (!REQUEST(irq_s_msgs))
+            REQUEST(irq_s_msgs) = request;
+		msg = ERR_cstring(MSG.RDB$MESSAGE);
+	END_FOR;
+
+	if (!REQUEST(irq_s_msgs))
+		REQUEST(irq_s_msgs) = request;
+
+	return msg;
+}
+
+
+void MET_update_shadow( TDBB tdbb, SDW shadow, USHORT file_flags)
+{
+/**************************************
+ *
+ *      M E T _ u p d a t e _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *      Update the stored file flags for the specified shadow.
+ *
+ **************************************/
+	DBB dbb;
+	BLK handle;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	handle = NULL;
+	FOR(REQUEST_HANDLE handle)
+		FIL IN RDB$FILES WITH FIL.RDB$SHADOW_NUMBER EQ shadow->sdw_number
+		MODIFY FIL USING
+			FIL.RDB$FILE_FLAGS = file_flags;
+		END_MODIFY;
+	END_FOR;
+	CMP_release(tdbb, (REQ)handle);
+}
+
+
+void MET_update_transaction( TDBB tdbb, TRA transaction, USHORT flag)
+{
+/**************************************
+ *
+ *      M E T _ u p d a t e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Update a record in RDB$TRANSACTIONS.  If flag is TRUE, this is a
+ *      commit; otherwise it is a ROLLBACK.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	request = (BLK) CMP_find_request(tdbb, irq_m_trans, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		X IN RDB$TRANSACTIONS 
+        WITH X.RDB$TRANSACTION_ID EQ transaction->tra_number 
+
+        if (!REQUEST(irq_m_trans))
+            REQUEST(irq_m_trans) = request;
+		if (flag && (transaction->tra_flags & TRA_prepare2))
+		{
+			ERASE X
+		}
+		else
+		{
+			MODIFY X
+				X.RDB$TRANSACTION_STATE = (flag) ?
+					RDB$TRANSACTIONS.RDB$TRANSACTION_STATE.COMMITTED :
+					RDB$TRANSACTIONS.RDB$TRANSACTION_STATE.ROLLED_BACK;
+			END_MODIFY;
+		}
+	END_FOR;
+
+	if (!REQUEST(irq_m_trans))
+		REQUEST(irq_m_trans) = request;
+}
+
+
+static void blocking_ast_procedure( PRC procedure)
+{
+/**************************************
+ *
+ *      b l o c k i n g _ a s t _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Someone is trying to drop a proceedure. If there
+ *      are outstanding interests in the existence of
+ *      the relation then just mark as blocking and return.
+ *      Otherwise, mark the procedure block as questionable
+ *      and release the procedure existence lock.
+ *
+ **************************************/
+	struct tdbb thd_context, *tdbb;
+
+/* Since this routine will be called asynchronously, we must establish
+   a thread context. */
+
+	SET_THREAD_DATA;
+
+	tdbb->tdbb_database = procedure->prc_existence_lock->lck_dbb;
+	tdbb->tdbb_attachment = procedure->prc_existence_lock->lck_attachment;
+	tdbb->tdbb_quantum = QUANTUM;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+	tdbb->tdbb_default = NULL;
+
+	if (procedure->prc_existence_lock)
+		LCK_release(tdbb, procedure->prc_existence_lock);
+	procedure->prc_flags |= PRC_obsolete;
+
+/* Restore the prior thread context */
+
+	RESTORE_THREAD_DATA;
+}
+
+
+static void blocking_ast_relation( REL relation)
+{
+/**************************************
+ *
+ *      b l o c k i n g _ a s t _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Someone is trying to drop a relation. If there
+ *      are outstanding interests in the existence of
+ *      the relation then just mark as blocking and return.
+ *      Otherwise, mark the relation block as questionable
+ *      and release the relation existence lock.
+ *
+ **************************************/
+	struct tdbb thd_context, *tdbb;
+
+/* Since this routine will be called asynchronously, we must establish
+   a thread context. */
+
+	SET_THREAD_DATA;
+
+	tdbb->tdbb_database = relation->rel_existence_lock->lck_dbb;
+	tdbb->tdbb_attachment = relation->rel_existence_lock->lck_attachment;
+	tdbb->tdbb_quantum = QUANTUM;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+	tdbb->tdbb_default = NULL;
+
+	if (relation->rel_use_count)
+		relation->rel_flags |= REL_blocking;
+	else {
+		relation->rel_flags &= ~REL_blocking;
+		relation->rel_flags |= (REL_check_existence | REL_check_partners);
+		if (relation->rel_existence_lock)
+			LCK_release(tdbb, relation->rel_existence_lock);
+	}
+
+/* Restore the prior thread context */
+
+	RESTORE_THREAD_DATA;
+}
+
+
+static void get_trigger(
+						TDBB tdbb,
+						REL relation,
+						SLONG blob_id[2],
+						VEC * ptr,
+						TEXT * name, BOOLEAN sys_trigger, USHORT flags)
+{
+/**************************************
+ *
+ *      g e t _ t r i g g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get trigger.
+ *
+ **************************************/
+	REQ request;
+	PLB old_pool;
+
+	SET_TDBB(tdbb);
+
+	if (!blob_id[0] && !blob_id[1])
+		return;
+
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = ALL_pool();
+	MET_parse_blob(	tdbb,
+					relation,
+					blob_id,
+					NULL_PTR,
+					&request,
+					TRUE,
+					(BOOLEAN)((flags & TRG_ignore_perm) ? TRUE : FALSE));
+
+	tdbb->tdbb_default = old_pool;
+
+	if (name)
+		request->req_trg_name = MET_save_name(tdbb, name);
+	if (sys_trigger)
+		request->req_flags |= req_sys_trigger;
+
+	if (flags & TRG_ignore_perm)
+		request->req_flags |= req_ignore_perm;
+
+	save_trigger_request(tdbb->tdbb_database, ptr, request);
+}
+
+
+static BOOLEAN get_type( TDBB tdbb, SSHORT * id, UCHAR * name, UCHAR * field)
+{
+/**************************************
+ *
+ *      g e t _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Resoved a symbolic name in RDB$TYPES.  Returned the value
+ *      defined for the name in (*id).  Don't touch (*id) if you
+ *      don't find the name.
+ *
+ *      Return (1) if found, (0) otherwise.
+ *
+ **************************************/
+	UCHAR buffer[32];			/* BASED ON RDB$TYPE_NAME */
+	BOOLEAN found;
+	UCHAR *p;
+	BLK handle;
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	assert(id != NULL);
+	assert(name != NULL);
+	assert(field != NULL);
+
+/* Force key to uppercase, following C locale rules for uppercase */
+
+	for (p = buffer; *name && p < buffer + sizeof(buffer) - 1; p++, name++)
+	{
+		*p = UPPER7(*name);
+	}
+	*p = 0;
+
+/* Try for exact name match */
+
+	found = FALSE;
+
+	handle = NULL;
+	FOR(REQUEST_HANDLE handle)
+		FIRST 1 T IN RDB$TYPES WITH
+			T.RDB$FIELD_NAME EQ field AND
+			T.RDB$TYPE_NAME EQ buffer 
+
+        found = TRUE;
+		*id = T.RDB$TYPE;
+	END_FOR;
+	CMP_release(tdbb, (REQ)handle);
+
+	return found;
+}
+
+
+static void lookup_view_contexts( TDBB tdbb, REL view)
+{
+/**************************************
+ *
+ *      l o o k u p _ v i e w _ c o n t e x t s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Lookup view contexts and store in a linked 
+ *      list on the relation block.
+ *                                       
+ **************************************/
+	DBB dbb;
+	BLK request;
+	SSHORT length;
+	STR alias;
+	VCX view_context, *vcx_ptr;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	request = (BLK) CMP_find_request(tdbb, irq_view_context, IRQ_REQUESTS);
+
+	vcx_ptr = &view->rel_view_contexts;
+
+	FOR(REQUEST_HANDLE request)
+		V IN RDB$VIEW_RELATIONS WITH
+			V.RDB$VIEW_NAME EQ view->rel_name
+			SORTED BY V.RDB$VIEW_CONTEXT 
+
+        if (!REQUEST(irq_view_context))
+            REQUEST(irq_view_context) = request;
+
+		/* allocate a view context block and link it in
+		   to the relation block's linked list */
+
+		view_context = (VCX) ALLOCD(type_vcx);
+		*vcx_ptr = view_context;
+		vcx_ptr = &view_context->vcx_next;
+
+		view_context->vcx_context = V.RDB$VIEW_CONTEXT;
+
+		/* allocate a string block for the context name */
+
+		length = name_length(V.RDB$CONTEXT_NAME);
+		alias = (STR) ALLOCDV(type_str, length + 1);
+		V.RDB$CONTEXT_NAME[length] = 0;
+		strcpy(alias->str_data, V.RDB$CONTEXT_NAME);
+		alias->str_length = length;
+
+		view_context->vcx_context_name = alias;
+
+		/* allocate a string block for the relation name */
+
+		length = name_length(V.RDB$RELATION_NAME);
+		alias = (STR) ALLOCDV(type_str, length + 1);
+		V.RDB$RELATION_NAME[length] = 0;
+		strcpy(alias->str_data, V.RDB$RELATION_NAME);
+		alias->str_length = length;
+
+		view_context->vcx_relation_name = alias;
+
+	END_FOR;
+
+	if (!REQUEST(irq_view_context))
+		REQUEST(irq_view_context) = request;
+}
+
+
+static void name_copy( TEXT * to, TEXT * from)
+{
+/**************************************
+ *
+ *      n a m e _ c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Copy a system name, stripping trailing blanks.
+ *
+ **************************************/
+	USHORT length;
+
+	length = name_length(from);
+	memcpy(to, from, length);
+	to[length] = '\0';
+}
+
+
+static USHORT name_length(CONST TEXT* name)
+{
+/**************************************
+ *
+ *      n a m e _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *      Compute effective length of system relation name.
+ *      SQL delimited identifier may contain blanks.
+ *
+ **************************************/
+	CONST TEXT*	p;
+	CONST TEXT*	q;
+
+	q = name - 1;
+	for (p = name; *p; p++)
+	{
+		if (*p != BLANK)
+		{
+			q = p;
+		}
+	}
+
+	return (q + 1) - name;
+}
+
+
+static NOD parse_procedure_blr(
+							   TDBB tdbb,
+							   PRC procedure, SLONG blob_id[2], CSB * csb_ptr)
+{
+/**************************************
+ *
+ *      p a r s e _ p r o c e d u r e _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Parse blr, returning a compiler scratch block with the results.
+ *
+ **************************************/
+	DBB dbb;
+	BLB blob;
+	NOD node;
+	STR temp;
+	SLONG length;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	blob = BLB_open(tdbb, dbb->dbb_sys_trans, (BID)blob_id);
+	length = blob->blb_length + 10;
+	temp = (STR) ALLOCDV(type_str, length);
+	BLB_get_data(tdbb, blob, temp->str_data, length);
+	(*csb_ptr)->csb_blr = temp->str_data;
+	par_messages(tdbb, temp->str_data, (USHORT) blob->blb_length, procedure,
+				 csb_ptr);
+	node =
+		PAR_blr(tdbb, NULL_PTR, temp->str_data, NULL_PTR, csb_ptr,
+				&procedure->prc_request, FALSE, 0);
+	ALL_release((FRB)temp);
+
+	return node;
+}
+
+
+static BOOLEAN par_messages(TDBB	tdbb,
+							UCHAR*	blr,
+							USHORT	blr_length,
+							PRC		procedure,
+							CSB*	csb)
+{
+/**************************************
+ *
+ *      p a r _ m e s s a g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Parse the messages of a blr request.  For specified message, allocate
+ *      a format (fmt) block.
+ *
+ **************************************/
+	UCHAR *end;
+	FMT format;
+	DSC *desc;
+	USHORT count, offset, align, msg_number;
+	SSHORT version;
+
+	(*csb)->csb_running = blr;
+	version = BLR_BYTE;
+	if (version != blr_version4 && version != blr_version5)
+		return FALSE;
+
+	if (BLR_BYTE != blr_begin)
+		return FALSE;
+
+	SET_TDBB(tdbb);
+
+	while (BLR_BYTE == blr_message) {
+		msg_number = BLR_BYTE;
+		count = BLR_BYTE;
+		count += (BLR_BYTE) << 8;
+		format = (FMT) ALLOCDV(type_fmt, count);
+		format->fmt_count = count;
+		offset = 0;
+		for (desc = format->fmt_desc; count; --count, ++desc) {
+			align = PAR_desc(csb, desc);
+			if (align)
+				offset = FB_ALIGN(offset, align);
+			desc->dsc_address = (UCHAR *) offset;
+			offset += desc->dsc_length;
+		}
+		format->fmt_length = offset;
+		if (msg_number == 0)
+		{
+			procedure->prc_input_fmt = format;
+		}
+		else if (msg_number == 1)
+		{
+			procedure->prc_output_fmt = format;
+		}
+		else
+		{
+			ALL_release((FRB)format);
+		}
+	}
+
+	return TRUE;
+}
+
+
+void MET_release_triggers( TDBB tdbb, VEC * vector_ptr)
+{
+/***********************************************
+ *
+ *      M E T _ r e l e a s e _ t r i g g e r s
+ *
+ ***********************************************
+ *
+ * Functional description
+ *      Release a possibly null vector of triggers.
+ *      If triggers are still active let someone
+ *      else do the work.
+ *
+ **************************************/
+	VEC vector;
+	REQ *ptr, *end;
+
+
+	if (!(vector = *vector_ptr))
+		return;
+
+	SET_TDBB(tdbb);
+
+	*vector_ptr = NULL;
+
+	for (ptr = (REQ *) vector->vec_object, end = ptr + vector->vec_count;
+		 ptr < end; ptr++)
+	{
+		if (*ptr && CMP_clone_active(*ptr))
+		{
+			return;
+		}
+	}
+
+	for (ptr = (REQ *) vector->vec_object, end = ptr + vector->vec_count;
+		 ptr < end; ptr++)
+	{
+		if (*ptr)
+		{
+			CMP_release(tdbb, *ptr);
+		}
+	}
+
+	ALL_release((FRB)vector);
+}
+
+
+static BOOLEAN resolve_charset_and_collation(
+											 TDBB tdbb,
+											 SSHORT * id,
+											 UCHAR * charset,
+											 UCHAR * collation)
+{
+/**************************************
+ *
+ *      r e s o l v e _ c h a r s e t _ a n d _ c o l l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Given ASCII7 name of charset & collation
+ *      resolve the specification to a Character set id.
+ *      This character set id is also the id of the text_object
+ *      that implements the C locale for the Character set.
+ *
+ * Inputs:
+ *      (charset)
+ *              ASCII7z name of character set.
+ *              NULL (implying unspecified) means use the character set
+ *              for defined for (collation).
+ *
+ *      (collation)
+ *              ASCII7z name of collation.
+ *              NULL means use the default collation for (charset).
+ *
+ * Outputs:
+ *      (*id)   
+ *              Set to character set specified by this name.
+ *
+ * Return:
+ *      1 if no errors (and *id is set).
+ *      0 if either name not found.
+ *        or if names found, but the collation isn't for the specified
+ *        character set.
+ *
+ **************************************/
+	BOOLEAN found = FALSE;
+	BLK handle;
+	DBB dbb;
+	SSHORT charset_id;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	assert(id != NULL);
+
+	handle = NULL;
+
+	if (collation == NULL)
+	{
+		if (charset == NULL)
+			charset = (UCHAR *) DEFAULT_CHARACTER_SET_NAME;
+
+		charset_id = 0;
+		if (get_type(tdbb, &charset_id, charset, "RDB$CHARACTER_SET_NAME"))
+		{
+			*id = charset_id;
+			return TRUE;
+		}
+
+		/* Charset name not found in the alias table - before giving up
+		   try the character_set table */
+
+		FOR(REQUEST_HANDLE handle)
+			FIRST 1 CS IN RDB$CHARACTER_SETS
+				WITH CS.RDB$CHARACTER_SET_NAME EQ charset 
+
+            found = TRUE;
+			*id = CS.RDB$CHARACTER_SET_ID;
+
+		END_FOR;
+		CMP_release(tdbb, (REQ)handle);
+
+		return found;
+	}
+	else if (charset == NULL)
+	{
+		FOR(REQUEST_HANDLE handle)
+			FIRST 1 COL IN RDB$COLLATIONS
+				WITH COL.RDB$COLLATION_NAME EQ collation 
+
+            found = TRUE;
+			*id = COL.RDB$CHARACTER_SET_ID;
+
+		END_FOR;
+		CMP_release(tdbb, (REQ)handle);
+
+		return found;
+	}
+
+	FOR(REQUEST_HANDLE handle)
+		FIRST 1 CS IN RDB$CHARACTER_SETS CROSS
+			COL IN RDB$COLLATIONS OVER RDB$CHARACTER_SET_ID CROSS
+			AL1 IN RDB$TYPES
+			WITH AL1.RDB$FIELD_NAME EQ "RDB$CHARACTER_SET_NAME"
+			AND AL1.RDB$TYPE_NAME EQ charset
+			AND COL.RDB$COLLATION_NAME EQ collation
+			AND AL1.RDB$TYPE EQ CS.RDB$CHARACTER_SET_ID 
+
+        found = TRUE;
+		*id = CS.RDB$CHARACTER_SET_ID;
+
+	END_FOR;
+	CMP_release(tdbb, (REQ)handle);
+
+	return found;
+}
+
+
+static STR save_name(TDBB tdbb, CONST TEXT* name)
+{
+/**************************************
+ *
+ *      s a v e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *      save a name in a string.
+ *
+ **************************************/
+	DBB		dbb;
+	STR		string;
+	TEXT*	p;
+	USHORT	l;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	l = name_length(name);
+	string = (STR) ALLOCPV(type_str, l);
+	string->str_length = l;
+	p = (TEXT *) string->str_data;
+
+	if (l)
+	{
+		do {
+			*p++ = *name++;
+		} while (--l);
+	}
+
+	return string;
+}
+
+
+static void save_trigger_request(DBB dbb, VEC * ptr, REQ request)
+{
+/**************************************
+ *
+ *      s a v e _ t r i g g e r _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get trigger.
+ *
+ **************************************/
+	VEC vector;
+	USHORT n;
+
+	n = (*ptr) ? (*ptr)->vec_count : 0;
+	vector = ALL_vector(dbb->dbb_permanent, ptr, n);
+
+	vector->vec_object[n] = (BLK) request;
+}
+
+
+static void store_dependencies(TDBB			tdbb,
+							   CSB			csb,
+							   CONST TEXT*	object_name,
+							   USHORT		dependency_type)
+{
+/**************************************
+ *
+ *      s t o r e _ d e p e n d e n c i e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Store records in RDB$DEPENDENCIES
+ *      corresponding to the objects found during 
+ *      compilation of blr for a trigger, view, etc.
+ *
+ **************************************/
+	DBB		dbb;
+	BLK		request;
+	REL		relation;
+	PRC		procedure;
+	FLD		field;
+	NOD		node;
+	NOD		field_node;
+	SSHORT	fld_id;
+	SSHORT	dpdo_type;
+	SLONG	number;
+	BOOLEAN found;
+	CONST TEXT*	field_name;
+	TEXT*	dpdo_name;
+	TEXT	name[32];
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	while (csb->csb_dependencies)
+	{
+		node = (NOD) LLS_POP(&csb->csb_dependencies);
+		if (!node->nod_arg[e_dep_object])
+			continue;
+		dpdo_type = (SSHORT) node->nod_arg[e_dep_object_type];
+		if (dpdo_type == obj_relation)
+		{
+			relation = (REL) node->nod_arg[e_dep_object];
+			dpdo_name = relation->rel_name;
+		}
+		else
+		{
+			relation = NULL;
+		}
+		if (dpdo_type == obj_procedure)
+		{
+			procedure = (PRC) node->nod_arg[e_dep_object];
+			dpdo_name = procedure->prc_name->str_data;
+		}
+		else
+		{
+			procedure = NULL;
+		}
+		if (dpdo_type == obj_exception)
+		{
+			number = (SLONG) node->nod_arg[e_dep_object];
+			MET_lookup_exception(tdbb, number, name, NULL);
+			dpdo_name = name;
+		}
+		field_node = node->nod_arg[e_dep_field];
+
+		field_name = NULL;
+		if (field_node)
+		{
+			if (field_node->nod_type == nod_field)
+			{
+				fld_id = (SSHORT) field_node->nod_arg[0];
+				if (relation)
+				{
+					if (field = MET_get_field(relation, fld_id))
+					{
+						field_name = field->fld_name;
+					}
+					else if (procedure)
+					{
+						field =
+							(FLD) procedure->prc_output_fields->
+							vec_object[fld_id];
+					}
+				}
+			}
+			else
+			{
+				field_name = (TEXT *) field_node->nod_arg[0];
+			}
+		}
+
+		if (field_name)
+		{
+			request =
+				(BLK) CMP_find_request(tdbb, irq_c_deps_f, IRQ_REQUESTS);
+			found = FALSE;
+			FOR(REQUEST_HANDLE request) X IN RDB$DEPENDENCIES WITH
+				X.RDB$DEPENDENT_NAME = object_name AND
+					X.RDB$DEPENDED_ON_NAME = dpdo_name AND
+					X.RDB$DEPENDED_ON_TYPE = dpdo_type AND
+					X.RDB$FIELD_NAME = field_name AND
+					X.RDB$DEPENDENT_TYPE = dependency_type
+
+                if (!REQUEST(irq_c_deps_f))
+                    REQUEST(irq_c_deps_f) = request;
+				found = TRUE;
+			END_FOR;
+
+			if (found)
+				continue;
+			if (!REQUEST(irq_c_deps_f))
+				REQUEST(irq_c_deps_f) = request;
+		}
+		else
+		{
+			request = (BLK) CMP_find_request(tdbb, irq_c_deps, IRQ_REQUESTS);
+			found = FALSE;
+			FOR(REQUEST_HANDLE request) X IN RDB$DEPENDENCIES WITH
+				X.RDB$DEPENDENT_NAME = object_name AND
+					X.RDB$DEPENDED_ON_NAME = dpdo_name AND
+					X.RDB$DEPENDED_ON_TYPE = dpdo_type AND
+					X.RDB$FIELD_NAME MISSING AND
+					X.RDB$DEPENDENT_TYPE = dependency_type
+
+                if (!REQUEST(irq_c_deps))
+					REQUEST(irq_c_deps) = request;
+				found = TRUE;
+
+			END_FOR;
+
+			if (found)
+				continue;
+			if (!REQUEST(irq_c_deps))
+				REQUEST(irq_c_deps) = request;
+		}
+
+		request = (BLK) CMP_find_request(tdbb, irq_s_deps, IRQ_REQUESTS);
+
+		STORE(REQUEST_HANDLE request) DEP IN RDB$DEPENDENCIES
+			strcpy(DEP.RDB$DEPENDENT_NAME, object_name);
+			DEP.RDB$DEPENDED_ON_TYPE = dpdo_type;
+			strcpy(DEP.RDB$DEPENDED_ON_NAME, dpdo_name);
+			if (field_name)
+			{
+				DEP.RDB$FIELD_NAME.NULL = FALSE;
+				strcpy(DEP.RDB$FIELD_NAME, field_name);
+			}
+			else
+				DEP.RDB$FIELD_NAME.NULL = TRUE;
+			DEP.RDB$DEPENDENT_TYPE = dependency_type;
+		END_STORE;
+
+		if (!REQUEST(irq_s_deps))
+			REQUEST(irq_s_deps) = request;
+	}
+}
+
+
+static void terminate(TEXT * str, USHORT len)
+{
+/**************************************
+ *
+ * t e r m i n a t e
+ *
+ ****************************************
+ *
+ *  Functional description
+ *      Truncates the rightmost contiguous spaces on a string.
+ *
+ **************************************************************/
+	SSHORT i;
+	assert(len > 0);
+
+	for (i = len - 1; i >= 0 && ((isspace(str[i])) || (str[i] == 0)); i--)
+		/* do nothing */ ;
+	str[i + 1] = 0;
+}
+
+
+static BOOLEAN verify_TRG_ignore_perm(TDBB tdbb, TEXT* trig_name)
+{
+/*****************************************************
+ *
+ *      v e r i f y _ T R G _ i g n o r e  _ p e r m
+ *
+ *****************************************************
+ *
+ * Functional description
+ *      Return TRUE if this trigger can go through without any permission
+ *      checks. Currently, the only class of triggers that can go
+ *      through without permission checks are 
+ *      (a) two system triggers (RDB$TRIGGERS_34 and RDB$TRIGGERS_35)
+ *      (b) those defined for referential integrity actions such as, 
+ *      set null, set default, and cascade.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* see if this is a system trigger, with the flag set as TRG_ignore_perm */
+	if (INI_get_trig_flags(trig_name) & (USHORT) TRG_ignore_perm)
+	{
+		return TRUE;
+	}
+
+	request = (BLK) CMP_find_request(tdbb, irq_c_trg_perm, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request)
+		CHK IN RDB$CHECK_CONSTRAINTS CROSS
+			REF IN RDB$REF_CONSTRAINTS WITH
+			CHK.RDB$TRIGGER_NAME EQ trig_name AND
+			REF.RDB$CONSTRAINT_NAME = CHK.RDB$CONSTRAINT_NAME
+
+        if (!REQUEST(irq_c_trg_perm))
+		{
+			REQUEST(irq_c_trg_perm) = request;
+		}
+
+		EXE_unwind(tdbb, (REQ)request);
+		terminate(REF.RDB$UPDATE_RULE, sizeof(REF.RDB$UPDATE_RULE));
+		terminate(REF.RDB$DELETE_RULE, sizeof(REF.RDB$DELETE_RULE));
+
+		if (!strcmp(REF.RDB$UPDATE_RULE, RI_ACTION_CASCADE) ||
+			!strcmp(REF.RDB$UPDATE_RULE, RI_ACTION_NULL) ||
+			!strcmp(REF.RDB$UPDATE_RULE, RI_ACTION_DEFAULT) ||
+			!strcmp(REF.RDB$DELETE_RULE, RI_ACTION_CASCADE) ||
+			!strcmp(REF.RDB$DELETE_RULE, RI_ACTION_NULL) ||
+			!strcmp(REF.RDB$DELETE_RULE, RI_ACTION_DEFAULT))
+		{
+			return TRUE;
+		}
+		else
+		{
+			return FALSE;
+		}
+	END_FOR;
+
+	if (!REQUEST(irq_c_trg_perm))
+	{
+		REQUEST(irq_c_trg_perm) = request;
+	}
+
+	return FALSE;
+}
diff --git a/src/jrd/met.h b/src/jrd/met.h
new file mode 100644
index 0000000000..01512111a4
--- /dev/null
+++ b/src/jrd/met.h
@@ -0,0 +1,86 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		met.h
+ *	DESCRIPTION:	Random meta-data stuff
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_MET_H_
+#define _JRD_MET_H_
+
+/* Record types for record summary blob records */
+
+typedef enum rsr_t {
+	RSR_field_id,
+	RSR_field_name,
+	RSR_view_context,
+	RSR_base_field,
+	RSR_computed_blr,
+	RSR_missing_value,
+	RSR_default_value,
+	RSR_validation_blr,
+	RSR_security_class,
+	RSR_trigger_name,
+	RSR_dimensions,
+	RSR_array_desc,
+
+	RSR_relation_id,			/* The following are Gateway specific */
+	RSR_relation_name,			/* and are used to speed the acquiring */
+	RSR_rel_sys_flag,			/* of relation information */
+	RSR_view_blr,
+	RSR_owner_name,
+	RSR_field_type,				/* The following are also Gateway */
+	RSR_field_scale,			/* specific and relate to field info */
+	RSR_field_length,
+	RSR_field_sub_type,
+	RSR_field_not_null
+} RSR_T;
+
+/* Temporary field block */
+
+typedef struct tfb {
+	struct blk tfb_header;
+	struct tfb *tfb_next;		/* next block in chain */
+	USHORT tfb_id;				/* id of field in relation */
+	USHORT tfb_flags;
+	DSC tfb_desc;
+#ifdef GATEWAY
+	XDSC tfb_ext_desc;			/* external descriptor */
+	STR tfb_name;				/* name of field in relation */
+#endif
+} *TFB;
+
+#define TFB_computed	1
+#define TFB_array	2
+
+#define MET_object_active	0
+#define MET_object_inactive	1
+#define MET_object_unknown	2
+
+#define TRIGGER_PRE_STORE	1
+#define TRIGGER_POST_STORE	2
+#define TRIGGER_PRE_MODIFY	3
+#define TRIGGER_POST_MODIFY	4
+#define TRIGGER_PRE_ERASE	5
+#define TRIGGER_POST_ERASE	6
+#define TRIGGER_MAX		7
+
+#include "../jrd/obj.h"
+
+#endif /* _JRD_MET_H_ */
diff --git a/src/jrd/met_proto.h b/src/jrd/met_proto.h
new file mode 100644
index 0000000000..12b4a36ad5
--- /dev/null
+++ b/src/jrd/met_proto.h
@@ -0,0 +1,89 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		met_proto.h
+ *	DESCRIPTION:	Prototype header file for met.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_MET_PROTO_H_
+#define _JRD_MET_PROTO_H_
+
+#include "../jrd/exe.h"
+#include "../jrd/jrn.h"
+#include "../jrd/blob_filter.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void MET_activate_shadow(TDBB);
+ULONG MET_align(struct dsc *, USHORT);
+void MET_change_fields(TDBB, struct tra *, struct dsc *);
+struct fmt *MET_current(TDBB, struct rel *);
+void MET_delete_dependencies(TDBB, TEXT *, USHORT);
+void MET_delete_shadow(TDBB, USHORT);
+void MET_error(TEXT *, ...);
+SCHAR *MET_exact_name(TEXT *);
+struct fmt *MET_format(TDBB, register struct rel *, USHORT);
+BOOLEAN MET_get_char_subtype(TDBB, SSHORT *, UCHAR *, USHORT);
+struct nod *MET_get_dependencies(TDBB, struct rel*, TEXT*,
+								struct csb*, SLONG[2], struct req**,
+								struct csb **, CONST TEXT*, USHORT);
+struct fld *MET_get_field(struct rel *, USHORT);
+void MET_get_shadow_files(TDBB, USHORT);
+int MET_get_walinfo(TDBB, struct logfiles **, ULONG *,
+						   struct logfiles **);
+void MET_load_trigger(TDBB, struct rel *, TEXT *, VEC *);
+void DLL_EXPORT MET_lookup_cnstrt_for_index(TDBB, TEXT *, TEXT *);
+void MET_lookup_cnstrt_for_trigger(TDBB, TEXT *, TEXT *, TEXT *);
+void MET_lookup_exception(TDBB, SLONG, /* INOUT */ TEXT*, /* INOUT */ TEXT*);
+SLONG MET_lookup_exception_number(TDBB, TEXT*);
+int MET_lookup_field(TDBB, struct rel*, CONST TEXT*);
+BLF MET_lookup_filter(TDBB, SSHORT, SSHORT);
+SLONG MET_lookup_generator(TDBB, TEXT *);
+void DLL_EXPORT MET_lookup_index(TDBB, TEXT *, TEXT *, USHORT);
+SLONG MET_lookup_index_name(TDBB, TEXT *, SLONG *, SSHORT *);
+int MET_lookup_partner(TDBB, struct rel *, struct idx *, UCHAR *);
+struct prc *MET_lookup_procedure(TDBB, SCHAR *);
+struct prc *MET_lookup_procedure_id(TDBB, SSHORT, BOOLEAN, USHORT);
+struct rel *MET_lookup_relation(TDBB, CONST SCHAR*);
+struct rel *MET_lookup_relation_id(TDBB, SLONG, BOOLEAN);
+struct nod *MET_parse_blob(TDBB, struct rel *, SLONG[2], struct csb **,
+								  struct req **, BOOLEAN, BOOLEAN);
+void MET_parse_sys_trigger(TDBB, struct rel *);
+int MET_post_existence(TDBB, struct rel *);
+void MET_prepare(TDBB, struct tra *, USHORT, UCHAR *);
+struct prc *MET_procedure(TDBB, int, USHORT);
+struct rel *MET_relation(TDBB, USHORT);
+void MET_release_existence(struct rel *);
+void MET_release_triggers(TDBB, VEC *);
+void MET_remove_procedure(TDBB, int, PRC);
+void MET_revoke(TDBB, struct tra *, TEXT *, TEXT *, TEXT *);
+TEXT*MET_save_name(TDBB, CONST TEXT*);
+void MET_scan_relation(TDBB, struct rel *);
+TEXT *MET_trigger_msg(TDBB, TEXT *, USHORT);
+void MET_update_shadow(TDBB, struct sdw *, USHORT);
+void MET_update_transaction(TDBB, struct tra *, USHORT);
+
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_MET_PROTO_H_ */
diff --git a/src/jrd/misc.cpp b/src/jrd/misc.cpp
new file mode 100644
index 0000000000..31135c3af5
--- /dev/null
+++ b/src/jrd/misc.cpp
@@ -0,0 +1,234 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		misc.c
+ *	DESCRIPTION:	Miscellaneous routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef NETWARE_386
+#include <sys/stat.h>
+#include <errno.h>
+#endif
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../jrd/dsc.h"
+#include "../jrd/misc.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/misc_proto.h"
+
+#define STUFF(p,value)		{*p++ = value;}
+#define STUFF_BYTES(p,value,len) {memcpy (p, (SCHAR*) (value), len); p += len;}
+#define STUFF_SHORT(p,value)	STUFF_BYTES (p, &value, sizeof (SSHORT))
+#define STUFF_LONG(p,value)	STUFF_BYTES (p, &value, sizeof (SLONG))
+
+
+SSHORT MISC_build_parameters_block(UCHAR * buffer, ...)
+{
+/**************************************
+ *
+ *	M I S C _ b u i l d _ p a r a m e t e r s _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stuffs the passed buffer with various argument information coming via
+ *	va_list.  An argument type of 0 signifies the end of argument list.
+ *	Returns the total number of bytes put (stuffed) in the passed buffer.
+ *
+ **************************************/
+	va_list ptr;
+	UCHAR *p, *q;
+	SCHAR arg_type, ch;
+	USHORT sh;
+	SLONG l;
+
+	p = buffer;
+	VA_START(ptr, buffer);
+
+/* using the argument types in the parameter list, 
+   pop the arguments off the call stack and put
+   them into the passed buffer */
+
+	while (arg_type = va_arg(ptr, SCHAR))
+		switch (arg_type) {
+		case dtype_byte:		/* byte */
+			ch = va_arg(ptr, SCHAR);
+			STUFF(p, ch);
+			break;
+
+		case dtype_short:		/* short value */
+			sh = va_arg(ptr, USHORT);
+			STUFF_SHORT(p, sh);
+			break;
+
+		case dtype_long:		/* long value */
+			l = (SLONG) va_arg(ptr, SLONG);
+			STUFF_LONG(p, l);
+			break;
+
+		case dtype_cstring:	/* null-terminated string */
+			q = va_arg(ptr, UCHAR *);
+			STUFF_BYTES(p, q, strlen(reinterpret_cast < char *>(q)) + 1);
+			break;
+
+		case dtype_varying:	/* short value followed by a value with that many bytes */
+			sh = va_arg(ptr, USHORT);
+			STUFF_SHORT(p, sh);
+			q = va_arg(ptr, UCHAR *);
+			STUFF_BYTES(p, q, sh);
+			break;
+		}
+
+	va_end(ptr);
+
+	return (p - buffer);
+}
+
+
+#ifdef DEV_BUILD
+ULONG MISC_checksum_log_rec(UCHAR * header,
+							SSHORT h_len, UCHAR * data, SSHORT d_len)
+{
+/**************************************
+ *
+ *      M I S C _ c h e c k s u m _ l o g _ r e c
+ *
+ **************************************
+ *
+ * Functional description
+ *      Checksum a log record - header and data are passed separately.
+ *
+ **************************************/
+	ULONG checksum;
+	UCHAR *p;
+
+	checksum = 0;
+
+	if (h_len) {
+		p = header;
+		do
+			checksum += *p++;
+		while (--h_len);
+	}
+
+	if (d_len) {
+		p = data;
+		do
+			checksum += *p++;
+		while (--d_len);
+	}
+
+	return checksum;
+}
+#endif /* DEV_BUILD */
+
+
+#ifdef NETWARE_386
+SCHAR *MISC_mktemp(SCHAR * filename, SCHAR * prefix)
+{
+/**************************************
+ *
+ *      M I S C _ m k t e m p
+ *
+ **************************************
+ *
+ * Functional description
+ *      mktemp for NLM.
+ *      filename points to a directory name and a prefix.
+ *
+ **************************************/
+	SCHAR local_fname[256];
+	struct stat statblk;
+	SSHORT prefix_len;
+	SCHAR name[L_tmpnam];
+
+	prefix_len = strlen(prefix);
+	if (prefix_len > 4) {		/* Limit the prefix to 4 charaters to leave some space 
+								   for temp file subscript */
+		filename[strlen(filename) - (prefix_len - 4)] = '\0';
+		prefix_len = 4;
+	}
+
+	for (;;) {
+		ib_tmpnam(name);
+		/* Create a full directory path name for a temp file */
+		sprintf(local_fname, "%s%s", filename, &name[prefix_len]);
+		/* Make sure that the file does not already exist */
+		if ((stat(local_fname, &statblk) == -1) && (errno == ENOENT)) {
+			strcpy(filename, local_fname);
+			return filename;
+		}
+	}
+}
+#endif
+
+
+UCHAR *MISC_pop(STK * stack)
+{
+/**************************************
+ *
+ *	M I S C _ p o p 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pops an object off a linked list stack.
+ *	Returns the address of the popped object.
+ *
+ **************************************/
+	STK node;
+	UCHAR *object;
+
+	node = *stack;
+	object = node->stk_object;
+	*stack = node->stk_next;
+	gds__free(node);
+
+	return object;
+}
+
+
+STK MISC_push(UCHAR * object, STK * stack)
+{
+/**************************************
+ *
+ *	M I S C _ p u s h 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Push an object on the passed stack. 
+ *	Returns the address of the new top of the stack.
+ *
+ **************************************/
+	STK node;
+
+	node = (STK) gds__alloc((SLONG) sizeof(struct stk));
+/* FREE: in MISC_pop(), NOMEM: return a NULL top of stack */
+	if (!node)
+		return NULL;
+	node->stk_object = object;
+	node->stk_next = *stack;
+	*stack = node;
+
+	return node;
+}
diff --git a/src/jrd/misc.h b/src/jrd/misc.h
new file mode 100644
index 0000000000..30ddd2b11b
--- /dev/null
+++ b/src/jrd/misc.h
@@ -0,0 +1,50 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE: 	misc.h
+ *	DESCRIPTION:	Miscellaneous definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_MISC_H_
+#define _JRD_MISC_H_
+
+#include "../jrd/dsc.h"
+
+typedef struct stk {
+	UCHAR *stk_object;
+	struct stk *stk_next;
+} *STK;
+
+/* Miscellaneous defines used for stuffing a parameters block buffer */
+
+#define PARAM_BYTE(PARAM)	(SCHAR) dtype_byte, (SCHAR) PARAM
+#define PARAM_SHORT(PARAM)	(SCHAR) dtype_short, (USHORT) PARAM
+#define PARAM_LONG(PARAM)	(SCHAR) dtype_long, (SLONG) PARAM
+#define PARAM_STRING(PARAM)	(SCHAR) dtype_cstring, (SCHAR*) PARAM
+#define PARAM_NBYTES(PARAM1,PARAM2) (SCHAR) dtype_varying, (USHORT) PARAM1, (UCHAR*) PARAM2
+#define PARAM_POINTER(PARAM)	(SCHAR) dtype_long, (UCHAR*) PARAM
+
+#endif /* _JRD_MISC_H_ */
+
+#ifdef NETWARE_386
+#define MKTEMP(fname, prefix)	MISC_mktemp (fname, prefix)
+extern SCHAR *MISC_mktemp();
+#else
+#define MKTEMP(fname, prefix)	mktemp(fname)
+#endif
diff --git a/src/jrd/misc_proto.h b/src/jrd/misc_proto.h
new file mode 100644
index 0000000000..79dd1b9094
--- /dev/null
+++ b/src/jrd/misc_proto.h
@@ -0,0 +1,35 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		misc_proto.h
+ *	DESCRIPTION:	Prototype header file for misc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_MISC_PROTO_H_
+#define _JRD_MISC_PROTO_H_
+
+extern SSHORT MISC_build_parameters_block(UCHAR *, ...);
+extern UCHAR *MISC_pop(struct stk **);
+extern struct stk *MISC_push(UCHAR *, struct stk **);
+
+#ifdef DEV_BUILD
+extern ULONG MISC_checksum_log_rec(UCHAR *, SSHORT, UCHAR *, SSHORT);
+#endif
+
+#endif /* _JRD_MISC_PROTO_H_ */
diff --git a/src/jrd/mmov.mar b/src/jrd/mmov.mar
new file mode 100644
index 0000000000..bd76bf118c
--- /dev/null
+++ b/src/jrd/mmov.mar
@@ -0,0 +1,69 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+;
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+;
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+;
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;
+;	PROGRAM:	JRD Access Method
+;	MODULE:		
+;	DESCRIPTION:	
+;
+
+	.title	mmov	Macro Mover
+	.global	MOV_fast, MOV_faster
+
+;	.entry	MOV_fast, ^m<r2,r3,r4,r5>
+;	movc3	12(ap), @4(ap), @8(ap)
+;	ret
+
+
+	.entry	MOV_fast,^m<r2,r3>
+	brb	MOV_faster + 2
+
+	.entry	MOV_faster,^m<r2,r3>
+	movl	12(ap),r0
+	movl	4(ap),r2
+	movl	8(ap),r3
+
+	ashl	#-5,r0,r1
+	 beql	20$
+	bicl	#^xffffffe0, r0
+
+10$:	movl	(r2)+,(r3)+
+	movl	(r2)+,(r3)+
+	movl	(r2)+,(r3)+
+	movl	(r2)+,(r3)+
+	movl	(r2)+,(r3)+
+	movl	(r2)+,(r3)+
+	movl	(r2)+,(r3)+
+	movl	(r2)+,(r3)+
+	sobgtr	r1,10$
+
+20$:	ashl	#-2,r0,r1
+	 beql	40$
+	bicl	#^xfffffffc, r0
+
+30$:	movl	(r2)+,(r3)+
+	sobgtr	r1, 30$
+
+40$:	tstl	r0
+	 beql	60$
+
+50$:	movb	(r2)+,(r3)+
+	sobgtr	r0, 50$
+
+60$:
+	ret
+
+	.end
diff --git a/src/jrd/mov.cpp b/src/jrd/mov.cpp
new file mode 100644
index 0000000000..3a33044370
--- /dev/null
+++ b/src/jrd/mov.cpp
@@ -0,0 +1,592 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		mov.c
+ *	DESCRIPTION:	Data mover and converter and comparator, etc.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/gdsassert.h"
+#include "../jrd/time.h"
+#include "../jrd/jrd.h"
+#include "../jrd/val.h"
+#include "../jrd/intl.h"
+#include "../jrd/cvt_proto.h"
+#include "../jrd/cvt2_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/mov_proto.h"
+
+
+extern "C" {
+
+
+int MOV_compare(DSC * arg1, DSC * arg2)
+{
+/**************************************
+ *
+ *	M O V _ c o m p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two descriptors.  Return (-1, 0, 1) if a<b, a=b, or a>b.
+ *
+ **************************************/
+
+	return CVT2_compare(arg1, arg2, (FPTR_VOID) ERR_post);
+}
+
+
+double MOV_date_to_double(DSC * desc)
+{
+/**************************************
+ *
+ *	M O V _ d a t e _ t o _ d o u b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *    Convert a date to double precision for
+ *    date arithmetic routines.  
+ *
+ **************************************/
+
+	return CVT_date_to_double(desc, (FPTR_VOID) ERR_post);
+}
+
+
+void MOV_double_to_date2(double real, DSC * dsc)
+{
+/**************************************
+ *
+ *	M O V _ d o u b l e _ t o _ d a t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a double to one of the many forms of a date
+ *
+ **************************************/
+	SLONG fixed[2];
+
+	MOV_double_to_date(real, fixed);
+	switch (dsc->dsc_dtype) {
+	case dtype_timestamp:
+		((SLONG *) dsc->dsc_address)[0] = fixed[0];
+		((SLONG *) dsc->dsc_address)[1] = fixed[1];
+		break;
+	case dtype_sql_time:
+		((SLONG *) dsc->dsc_address)[0] = fixed[1];
+		break;
+	case dtype_sql_date:
+		((SLONG *) dsc->dsc_address)[0] = fixed[0];
+		break;
+	default:
+		assert(FALSE);
+		break;
+	}
+}
+
+
+void MOV_double_to_date(double real, SLONG fixed[2])
+{
+/**************************************
+ *
+ *	M O V _ d o u b l e _ t o _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a double precision representation of a date
+ *	to a fixed point representation.   Double is used for
+ *      date arithmetic.
+ *
+ **************************************/
+
+	CVT_double_to_date(real, fixed, (FPTR_VOID) ERR_post);
+}
+
+
+#ifndef VMS
+void MOV_fast(
+			  register SCHAR * from,
+			  register SCHAR * to, register ULONG length)
+{
+/**************************************
+ *
+ *	M O V _ f a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a byte string as fast as possible.
+ *
+ **************************************/
+	ULONG l;
+
+	if (l = (length >> 4))
+		do {
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+		} while (--l);
+
+	if (length &= 15)
+		do
+			*to++ = *from++;
+		while (--length);
+}
+
+
+void MOV_faster(register SLONG * from, register SLONG * to, ULONG length)
+{
+/**************************************
+ *
+ *	M O V _ f a s t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do a long move, already aligned, as quickly as possible.
+ *
+ **************************************/
+	register ULONG l;
+	register UCHAR *p, *q;
+
+	assert(!((U_IPTR) to & (sizeof(ULONG) - 1)));	/* ULONG alignment required */
+	assert(!((U_IPTR) from & (sizeof(ULONG) - 1)));	/* ULONG alignment required */
+
+/* copy by chunks of 8 longwords == 32 bytes == 2**5 bytes */
+	if (l = (length >> 5)) {
+		do {
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+		} while (--l);
+		length &= (8 * sizeof(ULONG) - 1);
+	}
+
+/* Copy by longwords */
+	if (l = (length >> 2))
+		do
+			*to++ = *from++;
+		while (--l);
+
+/* Finally, copy any trailing bytes */
+	if (l = (length & 3)) {
+		p = (UCHAR *) to;
+		q = (UCHAR *) from;
+		do
+			*p++ = *q++;
+		while (--l);
+	}
+}
+#endif
+
+
+void MOV_fill(register SLONG * to, ULONG length)
+{
+/**************************************
+ *
+ *	M O V _ f i l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear out a block.
+ *
+ **************************************/
+	register ULONG l;
+	register UCHAR *p;
+
+/* If not longword aligned, fill bytewise until it is */
+
+	if (l = (((U_IPTR) to) & (sizeof(ULONG) - 1))) {
+		l = sizeof(ULONG) - l;
+		if (length < l)
+			l = length;
+		length -= l;
+		p = (UCHAR *) to;
+		while (l--)
+			*p++ = 0;
+		to = (SLONG *) p;
+		assert(!(((U_IPTR) to) & (sizeof(ULONG) - 1))	/* We're now aligned ULONG */
+			   ||!length);		/* Or already completed */
+	}
+
+/* Fill in chunks of 8 longwords == 32 bytes == 2**5 bytes */
+	if (l = (length >> 5)) {
+		do {
+			*to++ = 0;
+			*to++ = 0;
+			*to++ = 0;
+			*to++ = 0;
+			*to++ = 0;
+			*to++ = 0;
+			*to++ = 0;
+			*to++ = 0;
+		} while (--l);
+		length &= (8 * sizeof(ULONG) - 1);
+	}
+
+/* Fill by longwords */
+	if (l = (length >> 2))
+		do
+			*to++ = 0;
+		while (--l);
+
+/* Finally, fill any trailing bytes */
+	if (l = (length & 3)) {
+		p = (UCHAR *) to;
+		do
+			*p++ = 0;
+		while (--l);
+	}
+}
+
+
+double MOV_get_double(DSC * desc)
+{
+/**************************************
+ *
+ *	M O V _ g e t _ d o u b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert something arbitrary to a double precision number
+ *
+ **************************************/
+
+	return CVT_get_double(desc, (FPTR_VOID) ERR_post);
+}
+
+
+SLONG MOV_get_long(DSC * desc, SSHORT scale)
+{
+/**************************************
+ *
+ *	M O V _ g e t _ l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert something arbitrary to a long (32 bit) integer of given
+ *	scale.
+ *
+ **************************************/
+
+	return CVT_get_long(desc, scale, (FPTR_VOID) ERR_post);
+}
+
+
+SINT64 MOV_get_int64(DSC * desc, SSHORT scale)
+{
+/**************************************
+ *
+ *	M O V _ g e t _ i n t 6 4
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert something arbitrary to a 64 bit integer of given
+ *	scale.
+ *
+ **************************************/
+
+	return CVT_get_int64(desc, scale, (FPTR_VOID) ERR_post);
+}
+
+
+void MOV_get_metadata_ptr(DSC * desc, TEXT ** ptr)
+{
+/**************************************
+ *
+ *	M O V _ g e t _ m e t a d a t a _ p t r 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get address and length of string, which will afterward's
+ *	be treated as an Metadata name value.
+ *	Note that any length-of-string worries belong
+ *	to the caller.
+ *
+ **************************************/
+	USHORT dummy_type;
+
+	CVT_get_string_ptr(desc, &dummy_type, reinterpret_cast < UCHAR ** >(ptr),
+					   NULL, 0, (FPTR_VOID) ERR_post);
+
+#ifdef DEV_BUILD
+	if ((dummy_type != ttype_metadata) &&
+		(dummy_type != ttype_none) && (dummy_type != ttype_ascii))
+		ERR_bugcheck_msg("Expected METADATA name");
+#endif
+}
+
+
+void MOV_get_name(DSC * desc, TEXT * string)
+{
+/**************************************
+ *
+ *	M O V _ g e t _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a name (max length 31, blank terminated) from a descriptor.
+ *
+ **************************************/
+
+	CVT2_get_name(desc, string, (FPTR_VOID) ERR_post);
+}
+
+
+SQUAD MOV_get_quad(DSC * desc, SSHORT scale)
+{
+/**************************************
+ *
+ *	M O V _ g e t _ q u a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert something arbitrary to a quad 
+ *	Note: a quad is NOT the same as a 64 bit integer
+ *
+ **************************************/
+
+	return CVT_get_quad(desc, scale, (FPTR_VOID) ERR_post);
+}
+
+
+int MOV_get_string_ptr(
+					   DSC * desc,
+					   USHORT * ttype,
+					   UCHAR ** address, VARY * temp, USHORT length)
+{
+/**************************************
+ *
+ *	M O V _ g e t _ s t r i n g _ p t r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get address and length of string, converting the value to
+ *	string, if necessary.  The caller must provide a sufficiently
+ *	large temporary.  The address of the resultant string is returned
+ *	by reference.  Get_string returns the length of the string.
+ *
+ *	Note: If the descriptor is known to be a string type, the third
+ *	argument (temp buffer) may be omitted.
+ *
+ **************************************/
+
+	return CVT_get_string_ptr(desc, ttype, address, temp, length,
+							  (FPTR_VOID) ERR_post);
+}
+
+
+int MOV_get_string(DSC * desc, UCHAR ** address, VARY * temp, USHORT length)
+{
+/**************************************
+ *
+ *	M O V _ g e t _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	USHORT ttype;
+
+	return MOV_get_string_ptr(desc, &ttype, address, temp, length);
+}
+
+
+GDS_DATE MOV_get_sql_date(DSC * desc)
+{
+/**************************************
+ *
+ *	M O V _ g e t _ s q l _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert something arbitrary to a SQL date
+ *
+ **************************************/
+
+	return CVT_get_sql_date(desc, (FPTR_VOID) ERR_post);
+}
+
+
+GDS_TIME MOV_get_sql_time(DSC * desc)
+{
+/**************************************
+ *
+ *	M O V _ g e t _ s q l _ t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert something arbitrary to a SQL time
+ *
+ **************************************/
+
+	return CVT_get_sql_time(desc, (FPTR_VOID) ERR_post);
+}
+
+
+GDS_TIMESTAMP MOV_get_timestamp(DSC * desc)
+{
+/**************************************
+ *
+ *	M O V _ g e t _ t i m e s t a m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert something arbitrary to a timestamp
+ *
+ **************************************/
+
+	return CVT_get_timestamp(desc, (FPTR_VOID) ERR_post);
+}
+
+
+int MOV_make_string(DSC*	desc,
+					USHORT	ttype,
+					UCHAR**	address,
+					VARY*	temp,
+					USHORT	length)
+{
+/**************************************
+ *
+ *	M O V _ m a k e _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a string, in a specified text type, out of a descriptor.
+ *	The caller must provide a sufficiently
+ *	large temporary.  The address of the resultant string is returned
+ *	by reference.  
+ *	MOV_make_string returns the length of the string in bytes.
+ *
+ *	Note: If the descriptor is known to be a string type in the
+ *	given ttype the argument (temp buffer) may be omitted.
+ *	But this would be a bad idea in general.
+ *
+ **************************************/
+
+	return CVT_make_string(desc, ttype, address, temp, length,
+						   (FPTR_VOID) ERR_post);
+}
+
+
+int MOV_make_string2(
+					 DSC * desc,
+					 USHORT ttype,
+					 UCHAR ** address, VARY * temp, USHORT length, STR * ptr)
+{
+/**************************************
+ *
+ *	M O V _ m a k e _ s t r i n g 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a string, in a specified text type, out of a descriptor.
+ *	The caller provides a temporary, and a pointer to a pointer
+ *	to hold a CVT_ allocated data structure.
+ *	Should CVT_ allocate memory, it is the caller's responsibility to
+ *	free it with gds__free().
+ *	The address of the resultant string is returned.
+ *	MOV_make_string2 returns the length of the string in bytes.
+ *
+ *	Note: If the descriptor is known to be a string type in the
+ *	given ttype the argument (temp buffer) may be omitted.
+ *	But this would be a bad idea in general.
+ *
+ **************************************/
+
+	return CVT2_make_string2(desc, ttype, address, temp, length, ptr,
+							 (FPTR_VOID) ERR_post);
+}
+
+
+void MOV_move(DSC * from, DSC * to)
+{
+/**************************************
+ *
+ *	M O V _ m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move (and possible convert) something to something else.
+ *
+ **************************************/
+
+	CVT_move(from, to, (FPTR_VOID) ERR_post);
+}
+
+
+void MOV_time_stamp(GDS_TIMESTAMP * date)
+{
+/**************************************
+ *
+ *	M O V _ t i m e _ s t a m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current timestamp in gds format.
+ *
+ **************************************/
+	SLONG clock;
+	struct tm times;
+
+	clock = time(NULL);
+	times = *localtime(&clock);
+	isc_encode_timestamp(&times, date);
+}
+
+
+} // extern "C"
diff --git a/src/jrd/mov_proto.h b/src/jrd/mov_proto.h
new file mode 100644
index 0000000000..d7ef7878d3
--- /dev/null
+++ b/src/jrd/mov_proto.h
@@ -0,0 +1,64 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		mov_proto.h
+ *	DESCRIPTION:	Prototype header file for mov.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_MOV_PROTO_H_
+#define _JRD_MOV_PROTO_H_
+
+#include "../jrd/dsc.h"
+#include "../jrd/jrd.h"
+#include "../jrd/val.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int MOV_compare(struct dsc *, struct dsc *);
+extern double MOV_date_to_double(struct dsc *);
+extern void MOV_double_to_date(double, SLONG[2]);
+extern void MOV_fast(register SCHAR *, register SCHAR *, register ULONG);
+extern void MOV_faster(register SLONG *, register SLONG *, ULONG);
+extern void MOV_fill(register SLONG *, ULONG);
+extern double MOV_get_double(struct dsc *);
+extern SLONG MOV_get_long(struct dsc *, SSHORT);
+extern void MOV_get_metadata_ptr(struct dsc *, TEXT **);
+extern void MOV_get_name(struct dsc *, TEXT *);
+extern SQUAD MOV_get_quad(struct dsc *, SSHORT);
+extern SINT64 MOV_get_int64(struct dsc *, SSHORT);
+extern int MOV_get_string_ptr(struct dsc *, USHORT *, UCHAR **, struct vary *,
+							  USHORT);
+extern int MOV_get_string(struct dsc *, UCHAR **, struct vary *, USHORT);
+extern GDS_DATE MOV_get_sql_date(struct dsc *);
+extern GDS_TIME MOV_get_sql_time(struct dsc *);
+extern GDS_TIMESTAMP MOV_get_timestamp(struct dsc *);
+extern int MOV_make_string(struct dsc *, USHORT, UCHAR **, struct vary *,
+						   USHORT);
+extern int MOV_make_string2(struct dsc *, USHORT, UCHAR **, struct vary *,
+							USHORT, struct str **);
+extern void MOV_move(struct dsc *, struct dsc *);
+extern void MOV_time_stamp(GDS_TIMESTAMP *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_MOV_PROTO_H_ */
diff --git a/src/jrd/msg.h b/src/jrd/msg.h
new file mode 100644
index 0000000000..e268e45995
--- /dev/null
+++ b/src/jrd/msg.h
@@ -0,0 +1,65 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		msg.h
+ *	DESCRIPTION:	Message system definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: msg.h,v 1.1.1.1 2001-05-23 13:26:22 tamlin Exp $
+*/
+
+#ifndef _JRD_MSG_H_
+#define _JRD_MSG_H_
+
+#define MSG_NUMBER(facility, code)	((SLONG) facility * 10000 + code)
+#define MSG_BUCKET			1024
+#define MSG_MAJOR_VERSION		1
+#define MSG_MINOR_VERSION		0
+
+/* Message file header block */
+
+typedef struct isc_msghdr {
+	UCHAR msghdr_major_version;	/* Version number */
+	UCHAR msghdr_minor_version;	/* Version number */
+	USHORT msghdr_bucket_size;	/* Bucket size of B-tree */
+	ULONG msghdr_top_tree;		/* Start address of first index bucket */
+	ULONG msghdr_origin;		/* Origin for data records */
+	USHORT msghdr_levels;		/* Levels in tree */
+} ISC_MSGHDR;
+
+/* Index node */
+
+typedef struct msgnod {
+	ULONG msgnod_code;			/* Message code */
+	ULONG msgnod_seek;			/* Offset of next bucket or message */
+} *MSGNOD;
+
+/* Leaf node */
+
+typedef struct msgrec {
+	ULONG msgrec_code;			/* Message code */
+	USHORT msgrec_length;		/* Length of message text */
+	USHORT msgrec_flags;		/* Misc flags */
+	TEXT msgrec_text[1];		/* Text of message */
+} *MSGREC;
+
+#define NEXT_LEAF(leaf)	(MSGREC) \
+	((SCHAR*) leaf + FB_ALIGN(OFFSETA (MSGREC, msgrec_text) + leaf->msgrec_length, sizeof (SLONG)))
+
+#endif /* _JRD_MSG_H_ */
diff --git a/src/jrd/msg_encode.h b/src/jrd/msg_encode.h
new file mode 100644
index 0000000000..6dc86fe2d9
--- /dev/null
+++ b/src/jrd/msg_encode.h
@@ -0,0 +1,51 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		msg_encode.h	
+ *	DESCRIPTION:	Message encoding definition file
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#define ISC_MASK	0x14000000	/* Defines the code as a valid ISC code */
+#define FAC_MASK	0x00FF0000	/* Specifies the facility where the code is located */
+#define CODE_MASK	0x0000FFFF	/* Specifies the code in the message file */
+#define CLASS_MASK	0xF0000000	/* Defines the code as warning, error, info, or other */
+
+/* The following definitions can be used to specify the context in
+ * which a status code is used.
+ */
+#define CLASS_ERROR		0L		/* Code represents an error */
+#define CLASS_WARNING		1L	/* Code represents a warning */
+#define CLASS_INFO		2L		/* Code represents an information msg */
+
+#define MAKE_ERROR(code)	(code | (CLASS_ERROR & 0x3L) << 30)
+#define MAKE_WARNING(code)	(code | (CLASS_WARNING & 0x3L) << 30)
+#define MAKE_INFO(code)		(code | (CLASS_INFO & 0x3L) << 30)
+
+/* The procedure for encoding an error message is as follows:
+ * Be sure to update gds.c::gds__decode if this calculation changes
+ * since gds__decode returns the error code, facility, and error type
+ * from a given error message */
+
+#define ENCODE_ISC_MSG(code, facility)	((facility & 0x1F) << 16) | \
+			                ((code & 0x3FFF) << 0) | \
+	       				(ISC_MASK)
+
+#define GET_FACILITY(code)		(code & FAC_MASK) >> 16
+#define GET_CLASS(code)			(code & CLASS_MASK) >> 30
+#define GET_CODE(code)			(code & CODE_MASK) >> 0
diff --git a/src/jrd/msg_facs.h b/src/jrd/msg_facs.h
new file mode 100644
index 0000000000..187baa93c0
--- /dev/null
+++ b/src/jrd/msg_facs.h
@@ -0,0 +1,55 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+/*
+ *	MODULE:		msg_facs.h
+ *	DESCRIPTION:	ISC message facilities
+ *
+ */
+
+
+
+/******************************/
+/*   ISC message facilities   */
+/******************************/
+
+#ifndef __cplusplus
+typedef
+#endif
+	 struct _facilities {
+	int fac_code;
+	char *facility;
+};
+
+static CONST struct _facilities facilities[] = {
+	0, "JRD       ",
+	3, "GFIX      ",
+	7, "DSQL      ",
+	8, "DYN       ",
+	12, "GBAK      ",
+	18, "GSEC      ",
+	19, "LICENSE   ",
+	21, "GSTAT     ",
+	0, NULL
+};
diff --git a/src/jrd/msgs.h b/src/jrd/msgs.h
new file mode 100644
index 0000000000..f6931056eb
--- /dev/null
+++ b/src/jrd/msgs.h
@@ -0,0 +1,715 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+"unassigned code",
+	"arithmetic exception, numeric overflow, or string truncation",	/*1, arith_except                    */
+	"invalid database key",		/*2, bad_dbkey                       */
+	"file %s is not a valid database",	/*3, bad_db_format                   */
+	"invalid database handle (no active connection)",	/*4, bad_db_handle                   */
+	"bad parameters on attach or create database",	/*5, bad_dpb_content                 */
+	"unrecognized database parameter block",	/*6, bad_dpb_form                    */
+	"invalid request handle",	/*7, bad_req_handle                  */
+	"invalid BLOB handle",		/*8, bad_segstr_handle               */
+	"invalid BLOB ID",			/*9, bad_segstr_id                   */
+	"invalid parameter in transaction parameter block",	/*10, bad_tpb_content                 */
+	"invalid format for transaction parameter block",	/*11, bad_tpb_form                    */
+	"invalid transaction handle (expecting explicit transaction start)",	/*12, bad_trans_handle                */
+	"internal gds software consistency check (%s)",	/*13, bug_check                       */
+	"conversion error from string \"%s\"",	/*14, convert_error                   */
+	"database file appears corrupt (%s)",	/*15, db_corrupt                      */
+	"deadlock",					/*16, deadlock                        */
+	"attempt to start more than %ld transactions",	/*17, excess_trans                    */
+	"no match for first value expression",	/*18, from_no_match                   */
+	"information type inappropriate for object specified",	/*19, infinap                         */
+	"no information of this type available for object specified",	/*20, infona                          */
+	"unknown information item",	/*21, infunk                          */
+	"action cancelled by trigger (%ld) to preserve data integrity",	/*22, integ_fail                      */
+	"invalid request BLR at offset %ld",	/*23, invalid_blr                     */
+	"I/O error for file %.0s\"%s\"",	/*24, io_error                        */
+	"lock conflict on no wait transaction",	/*25, lock_conflict                   */
+	"corrupt system table",		/*26, metadata_corrupt                */
+	"validation error for column %s, value \"%s\"",	/*27, not_valid                       */
+	"no current record for fetch operation",	/*28, no_cur_rec                      */
+	"attempt to store duplicate value (visible to active transactions) in unique index \"%s\"",	/*29, no_dup                          */
+	"program attempted to exit without finishing database",	/*30, no_finish                       */
+	"unsuccessful metadata update",	/*31, no_meta_update                  */
+	"no permission for %s access to %s %s",	/*32, no_priv                         */
+	"transaction is not in limbo",	/*33, no_recon                        */
+	"invalid database key",		/*34, no_record                       */
+	"BLOB was not closed",		/*35, no_segstr_close                 */
+	"metadata is obsolete",		/*36, obsolete_metadata               */
+	"cannot disconnect database with open transactions (%ld active)",	/*37, open_trans                      */
+	"message length error (encountered %ld, expected %ld)",	/*38, port_len                        */
+	"attempted update of read-only column",	/*39, read_only_field                 */
+	"attempted update of read-only table",	/*40, read_only_rel                   */
+	"attempted update during read-only transaction",	/*41, read_only_trans                 */
+	"cannot update read-only view %s",	/*42, read_only_view                  */
+	"no transaction for request",	/*43, req_no_trans                    */
+	"request synchronization error",	/*44, req_sync                        */
+	"request referenced an unavailable database",	/*45, req_wrong_db                    */
+	"segment buffer length shorter than expected",	/*46, segment                         */
+	"attempted retrieval of more segments than exist",	/*47, segstr_eof                      */
+	"attempted invalid operation on a BLOB",	/*48, segstr_no_op                    */
+	"attempted read of a new, open BLOB",	/*49, segstr_no_read                  */
+	"attempted action on blob outside transaction",	/*50, segstr_no_trans                 */
+	"attempted write to read-only BLOB",	/*51, segstr_no_write                 */
+	"attempted reference to BLOB in unavailable database",	/*52, segstr_wrong_db                 */
+	"operating system directive %s failed",	/*53, sys_request                     */
+	"attempt to fetch past the last record in a record stream",	/*54, stream_eof                      */
+	"unavailable database",		/*55, unavailable                     */
+	"table %s was omitted from the transaction reserving list",	/*56, unres_rel                       */
+	"request includes a DSRI extension not supported in this implementation",	/*57, uns_ext                         */
+	"feature is not supported",	/*58, wish_list                       */
+	"unsupported on-disk structure for file %s; found %ld, support %ld",	/*59, wrong_ods                       */
+	"wrong number of arguments on call",	/*60, wronumarg                       */
+	"Implementation limit exceeded",	/*61, imp_exc                         */
+	"%s",						/*62, random                          */
+	"unrecoverable conflict with limbo transaction %ld",	/*63, fatal_conflict                  */
+	"internal error",			/*64, badblk                          */
+	"internal error",			/*65, invpoolcl                       */
+	"too many requests",		/*66, nopoolids                       */
+	"internal error",			/*67, relbadblk                       */
+	"block size exceeds implementation restriction",	/*68, blktoobig                       */
+	"buffer exhausted",			/*69, bufexh                          */
+	"BLR syntax error: expected %s at offset %ld, encountered %ld",	/*70, syntaxerr                       */
+	"buffer in use",			/*71, bufinuse                        */
+	"internal error",			/*72, bdbincon                        */
+	"request in use",			/*73, reqinuse                        */
+	"incompatible version of on-disk structure",	/*74, badodsver                       */
+	"table %s is not defined",	/*75, relnotdef                       */
+	"column %s is not defined in table %s",	/*76, fldnotdef                       */
+	"internal error",			/*77, dirtypage                       */
+	"internal error",			/*78, waifortra                       */
+	"internal error",			/*79, doubleloc                       */
+	"internal error",			/*80, nodnotfnd                       */
+	"internal error",			/*81, dupnodfnd                       */
+	"internal error",			/*82, locnotmar                       */
+	"page %ld is of wrong type (expected %ld, found %ld)",	/*83, badpagtyp                       */
+	"database corrupted",		/*84, corrupt                         */
+	"checksum error on database page %ld",	/*85, badpage                         */
+	"index is broken",			/*86, badindex                        */
+	"database handle not zero",	/*87, dbbnotzer                       */
+	"transaction handle not zero",	/*88, tranotzer                       */
+	"transaction--request mismatch (synchronization error)",	/*89, trareqmis                       */
+	"bad handle count",			/*90, badhndcnt                       */
+	"wrong version of transaction parameter block",	/*91, wrotpbver                       */
+	"unsupported BLR version (expected %ld, encountered %ld)",	/*92, wroblrver                       */
+	"wrong version of database parameter block",	/*93, wrodpbver                       */
+	"BLOB and array data types are not supported for %s operation",	/*94, blobnotsup                      */
+	"database corrupted",		/*95, badrelation                     */
+	"internal error",			/*96, nodetach                        */
+	"internal error",			/*97, notremote                       */
+	"transaction in limbo",		/*98, trainlim                        */
+	"transaction not in limbo",	/*99, notinlim                        */
+	"transaction outstanding",	/*100, traoutsta                       */
+	"connection rejected by remote interface",	/*101, connect_reject                  */
+	"internal error",			/*102, dbfile                          */
+	"internal error",			/*103, orphan                          */
+	"no lock manager available",	/*104, no_lock_mgr                     */
+	"context already in use (BLR error)",	/*105, ctxinuse                        */
+	"context not defined (BLR error)",	/*106, ctxnotdef                       */
+	"data operation not supported",	/*107, datnotsup                       */
+	"undefined message number",	/*108, badmsgnum                       */
+	"bad parameter number",		/*109, badparnum                       */
+	"unable to allocate memory from operating system",	/*110, virmemexh                       */
+	"blocking signal has been received",	/*111, blocking_signal                 */
+	"lock manager error",		/*112, lockmanerr                      */
+	"communication error with journal \"%s\"",	/*113, journerr                        */
+	"key size exceeds implementation restriction for index \"%s\"",	/*114, keytoobig                       */
+	"null segment of UNIQUE KEY",	/*115, nullsegkey                      */
+	"SQL error code = %ld",		/*116, sqlerr                          */
+	"wrong DYN version",		/*117, wrodynver                       */
+	"function %s is not defined",	/*118, funnotdef                       */
+	"function %s could not be matched",	/*119, funmismat                       */
+	"",							/*120, bad_msg_vec                     */
+	"database detach completed with errors",	/*121, bad_detach                      */
+	"database system cannot read argument %ld",	/*122, noargacc_read                   */
+	"database system cannot write argument %ld",	/*123, noargacc_write                  */
+	"operation not supported",	/*124, read_only                       */
+	"%s extension error",		/*125, ext_err                         */
+	"not updatable",			/*126, non_updatable                   */
+	"no rollback performed",	/*127, no_rollback                     */
+	"",							/*128, bad_sec_info                    */
+	"",							/*129, invalid_sec_info                */
+	"%s",						/*130, misc_interpreted                */
+	"update conflicts with concurrent update",	/*131, update_conflict                 */
+	"product %s is not licensed",	/*132, unlicensed                      */
+	"object %s is in use",		/*133, obj_in_use                      */
+	"filter not found to convert type %ld to type %ld",	/*134, nofilter                        */
+	"cannot attach active shadow file",	/*135, shadow_accessed                 */
+	"invalid slice description language at offset %ld",	/*136, invalid_sdl                     */
+	"subscript out of bounds",	/*137, out_of_bounds                   */
+	"column not array or invalid dimensions (expected %ld, encountered %ld)",	/*138, invalid_dimension               */
+	"record from transaction %ld is stuck in limbo",	/*139, rec_in_limbo                    */
+	"a file in manual shadow %ld is unavailable",	/*140, shadow_missing                  */
+	"secondary server attachments cannot validate databases",	/*141, cant_validate                   */
+	"secondary server attachments cannot start journaling",	/*142, cant_start_journal              */
+	"generator %s is not defined",	/*143, gennotdef                       */
+	"secondary server attachments cannot start logging",	/*144, cant_start_logging              */
+	"invalid BLOB type for operation",	/*145, bad_segstr_type                 */
+	"violation of FOREIGN KEY constraint \"%s\" on table \"%s\"",	/*146, foreign_key                     */
+	"minor version too high found %ld expected %ld",	/*147, high_minor                      */
+	"transaction %ld is %s",	/*148, tra_state                       */
+	"transaction marked invalid by I/O error",	/*149, trans_invalid                   */
+	"cache buffer for page %ld invalid",	/*150, buf_invalid                     */
+	"there is no index in table %s with id %d",	/*151, indexnotdefined                 */
+	"Your user name and password are not defined. Ask your database administrator to set up an InterBase login.",	/*152, login                           */
+	"invalid bookmark handle",	/*153, invalid_bookmark                */
+	"invalid lock level %d",	/*154, bad_lock_level                  */
+	"lock on table %s conflicts with existing lock",	/*155, relation_lock                   */
+	"requested record lock conflicts with existing lock",	/*156, record_lock                     */
+	"maximum indexes per table (%d) exceeded",	/*157, max_idx                         */
+	"enable journal for database before starting online dump",	/*158, jrn_enable                      */
+	"online dump failure. Retry dump",	/*159, old_failure                     */
+	"an online dump is already in progress",	/*160, old_in_progress                 */
+	"no more disk/tape space.  Cannot continue online dump",	/*161, old_no_space                    */
+	"journaling allowed only if database has Write-ahead Log",	/*162, no_wal_no_jrn                   */
+	"maximum number of online dump files that can be specified is 16",	/*163, num_old_files                   */
+	"error in opening Write-ahead Log file during recovery",	/*164, wal_file_open                   */
+	"invalid statement handle",	/*165, bad_stmt_handle                 */
+	"Write-ahead log subsystem failure",	/*166, wal_failure                     */
+	"WAL Writer error",			/*167, walw_err                        */
+	"Log file header of %s too small",	/*168, logh_small                      */
+	"Invalid version of log file %s",	/*169, logh_inv_version                */
+	"Log file %s not latest in the chain but open flag still set",	/*170, logh_open_flag                  */
+	"Log file %s not closed properly; database recovery may be required",	/*171, logh_open_flag2                 */
+	"Database name in the log file %s is different",	/*172, logh_diff_dbname                */
+	"Unexpected end of log file %s at offset %ld",	/*173, logf_unexpected_eof             */
+	"Incomplete log record at offset %ld in log file %s",	/*174, logr_incomplete                 */
+	"Log record header too small at offset %ld in log file %s",	/*175, logr_header_small               */
+	"Log block too small at offset %ld in log file %s",	/*176, logb_small                      */
+	"Illegal attempt to attach to an uninitialized WAL segment for %s",	/*177, wal_illegal_attach              */
+	"Invalid WAL parameter block option %s",	/*178, wal_invalid_wpb                 */
+	"Cannot roll over to the next log file %s",	/*179, wal_err_rollover                */
+	"database does not use Write-ahead Log",	/*180, no_wal                          */
+	"cannot drop log file when journaling is enabled",	/*181, drop_wal                        */
+	"reference to invalid stream number",	/*182, stream_not_defined              */
+	"WAL subsystem encountered error",	/*183, wal_subsys_error                */
+	"WAL subsystem corrupted",	/*184, wal_subsys_corrupt              */
+	"must specify archive file when enabling long term journal for databases with round-robin log files",	/*185, no_archive                      */
+	"database %s shutdown in progress",	/*186, shutinprog                      */
+	"refresh range number %ld already in use",	/*187, range_in_use                    */
+	"refresh range number %ld not found",	/*188, range_not_found                 */
+	"CHARACTER SET %s is not defined",	/*189, charset_not_found               */
+	"lock time-out on wait transaction",	/*190, lock_timeout                    */
+	"procedure %s is not defined",	/*191, prcnotdef                       */
+	"parameter mismatch for procedure %s",	/*192, prcmismat                       */
+	"Database %s: WAL subsystem bug for pid %d\
+%s",							/*193, wal_bugcheck                    */
+	"Could not expand the WAL segment for database %s",	/*194, wal_cant_expand                 */
+	"status code %s unknown",	/*195, codnotdef                       */
+	"exception %s not defined",	/*196, xcpnotdef                       */
+	"exception %d",				/*197, except                          */
+	"restart shared cache manager",	/*198, cache_restart                   */
+	"invalid lock handle",		/*199, bad_lock_handle                 */
+	"long-term journaling already enabled",	/*200, jrn_present                     */
+	"Unable to roll over; please see InterBase log.",	/*201, wal_err_rollover2               */
+	"WAL I/O error.  Please see InterBase log.",	/*202, wal_err_logwrite                */
+	"WAL writer - Journal server communication error.  Please see InterBase log.",	/*203, wal_err_jrn_comm                */
+	"WAL buffers cannot be increased.  Please see InterBase log.",	/*204, wal_err_expansion               */
+	"WAL setup error.  Please see InterBase log.",	/*205, wal_err_setup                   */
+	"WAL writer synchronization error for the database %s",	/*206, wal_err_ww_sync                 */
+	"Cannot start WAL writer for the database %s",	/*207, wal_err_ww_start                */
+	"database %s shutdown",		/*208, shutdown                        */
+	"cannot modify an existing user privilege",	/*209, existing_priv_mod               */
+	"Cannot delete PRIMARY KEY being used in FOREIGN KEY definition.",	/*210, primary_key_ref                 */
+	"Column used in a PRIMARY/UNIQUE constraint must be NOT NULL.",	/*211, primary_key_notnull             */
+	"Name of Referential Constraint not defined in constraints table.",	/*212, ref_cnstrnt_notfound            */
+	"Non-existent PRIMARY or UNIQUE KEY specified for FOREIGN KEY.",	/*213, foreign_key_notfound            */
+	"Cannot update constraints (RDB$REF_CONSTRAINTS).",	/*214, ref_cnstrnt_update              */
+	"Cannot update constraints (RDB$CHECK_CONSTRAINTS).",	/*215, check_cnstrnt_update            */
+	"Cannot delete CHECK constraint entry (RDB$CHECK_CONSTRAINTS)",	/*216, check_cnstrnt_del               */
+	"Cannot delete index segment used by an Integrity Constraint",	/*217, integ_index_seg_del             */
+	"Cannot update index segment used by an Integrity Constraint",	/*218, integ_index_seg_mod             */
+	"Cannot delete index used by an Integrity Constraint",	/*219, integ_index_del                 */
+	"Cannot modify index used by an Integrity Constraint",	/*220, integ_index_mod                 */
+	"Cannot delete trigger used by a CHECK Constraint",	/*221, check_trig_del                  */
+	"Cannot update trigger used by a CHECK Constraint",	/*222, check_trig_update               */
+	"Cannot delete column being used in an Integrity Constraint.",	/*223, cnstrnt_fld_del                 */
+	"Cannot rename column being used in an Integrity Constraint.",	/*224, cnstrnt_fld_rename              */
+	"Cannot update constraints (RDB$RELATION_CONSTRAINTS).",	/*225, rel_cnstrnt_update              */
+	"Cannot define constraints on views",	/*226, constaint_on_view               */
+	"internal gds software consistency check (invalid RDB$CONSTRAINT_TYPE)",	/*227, invld_cnstrnt_type              */
+	"Attempt to define a second PRIMARY KEY for the same table",	/*228, primary_key_exists              */
+	"cannot modify or erase a system trigger",	/*229, systrig_update                  */
+	"only the owner of a table may reassign ownership",	/*230, not_rel_owner                   */
+	"could not find table/procedure for GRANT",	/*231, grant_obj_notfound              */
+	"could not find column for GRANT",	/*232, grant_fld_notfound              */
+	"user does not have GRANT privileges for operation",	/*233, grant_nopriv                    */
+	"table/procedure has non-SQL security class defined",	/*234, nonsql_security_rel             */
+	"column has non-SQL security class defined",	/*235, nonsql_security_fld             */
+	"Write-ahead Log without shared cache configuration not allowed",	/*236, wal_cache_err                   */
+	"database shutdown unsuccessful",	/*237, shutfail                        */
+	"Operation violates CHECK constraint %s on view or table %s",	/*238, check_constraint                */
+	"invalid service handle",	/*239, bad_svc_handle                  */
+	"database %s shutdown in %d seconds",	/*240, shutwarn                        */
+	"wrong version of service parameter block",	/*241, wrospbver                       */
+	"unrecognized service parameter block",	/*242, bad_spb_form                    */
+	"service %s is not defined",	/*243, svcnotdef                       */
+	"long-term journaling not enabled",	/*244, no_jrn                          */
+	"Cannot transliterate character between character sets",	/*245, transliteration_failed          */
+	"WAL defined; Cache Manager must be started first",	/*246, start_cm_for_wal                */
+	"Overflow log specification required for round-robin log",	/*247, wal_ovflow_log_required         */
+	"Implementation of text subtype %d not located.",	/*248, text_subtype                    */
+	"Dynamic SQL Error",		/*249, dsql_error                      */
+	"Invalid command",			/*250, dsql_command_err                */
+	"Data type for constant unknown",	/*251, dsql_constant_err               */
+	"Cursor unknown",			/*252, dsql_cursor_err                 */
+	"Data type unknown",		/*253, dsql_datatype_err               */
+	"Declared cursor already exists",	/*254, dsql_decl_err                   */
+	"Cursor not updatable",		/*255, dsql_cursor_update_err          */
+	"Attempt to reopen an open cursor",	/*256, dsql_cursor_open_err            */
+	"Attempt to reclose a closed cursor",	/*257, dsql_cursor_close_err           */
+	"Column unknown",			/*258, dsql_field_err                  */
+	"Internal error",			/*259, dsql_internal_err               */
+	"Table unknown",			/*260, dsql_relation_err               */
+	"Procedure unknown",		/*261, dsql_procedure_err              */
+	"Request unknown",			/*262, dsql_request_err                */
+	"SQLDA missing or incorrect version, or incorrect number/type of variables",	/*263, dsql_sqlda_err                  */
+	"Count of columns does not equal count of values",	/*264, dsql_var_count_err              */
+	"Invalid statement handle",	/*265, dsql_stmt_handle                */
+	"Function unknown",			/*266, dsql_function_err               */
+	"Column is not a BLOB",		/*267, dsql_blob_err                   */
+	"COLLATION %s is not defined",	/*268, collation_not_found             */
+	"COLLATION %s is not valid for specified CHARACTER SET",	/*269, collation_not_for_charset       */
+	"Option specified more than once",	/*270, dsql_dup_option                 */
+	"Unknown transaction option",	/*271, dsql_tran_err                   */
+	"Invalid array reference",	/*272, dsql_invalid_array              */
+	"Array declared with too many dimensions",	/*273, dsql_max_arr_dim_exceeded       */
+	"Illegal array dimension range",	/*274, dsql_arr_range_error            */
+	"Trigger unknown",			/*275, dsql_trigger_err                */
+	"Subselect illegal in this context",	/*276, dsql_subselect_err              */
+	"Cannot prepare a CREATE DATABASE/SCHEMA statement",	/*277, dsql_crdb_prepare_err           */
+	"must specify column name for view select expression",	/*278, specify_field_err               */
+	"number of columns does not match select list",	/*279, num_field_err                   */
+	"Only simple column names permitted for VIEW WITH CHECK OPTION",	/*280, col_name_err                    */
+	"No WHERE clause for VIEW WITH CHECK OPTION",	/*281, where_err                       */
+	"Only one table allowed for VIEW WITH CHECK OPTION",	/*282, table_view_err                  */
+	"DISTINCT, GROUP or HAVING not permitted for VIEW WITH CHECK OPTION",	/*283, distinct_err                    */
+	"FOREIGN KEY column count does not match PRIMARY KEY",	/*284, key_field_count_err             */
+	"No subqueries permitted for VIEW WITH CHECK OPTION",	/*285, subquery_err                    */
+	"expression evaluation not supported",	/*286, expression_eval_err             */
+	"gen.c: node not supported",	/*287, node_err                        */
+	"Unexpected end of command",	/*288, command_end_err                 */
+	"INDEX %s",					/*289, index_name                      */
+	"EXCEPTION %s",				/*290, exception_name                  */
+	"COLUMN %s",				/*291, field_name                      */
+	"Token unknown",			/*292, token_err                       */
+	"union not supported",		/*293, union_err                       */
+	"Unsupported DSQL construct",	/*294, dsql_construct_err              */
+	"column used with aggregate",	/*295, field_aggregate_err             */
+	"invalid column reference",	/*296, field_ref_err                   */
+	"invalid ORDER BY clause",	/*297, order_by_err                    */
+	"Return mode by value not allowed for this data type",	/*298, return_mode_err                 */
+	" External functions cannot have more than 10 parameters",	/*299, extern_func_err                 */
+	"alias %s conflicts with an alias in the same statement",	/*300, alias_conflict_err              */
+	"alias %s conflicts with a procedure in the same statement",	/*301, procedure_conflict_error        */
+	"alias %s conflicts with a table in the same statement",	/*302, relation_conflict_err           */
+	"Illegal use of keyword VALUE",	/*303, dsql_domain_err                 */
+	"segment count of 0 defined for index %s",	/*304, idx_seg_err                     */
+	"A node name is not permitted in a secondary, shadow, cache or log file name",	/*305, node_name_err                   */
+	"TABLE %s",					/*306, table_name                      */
+	"PROCEDURE %s",				/*307, proc_name                       */
+	"cannot create index %s",	/*308, idx_create_err                  */
+	"Write-ahead Log with shadowing configuration not allowed",	/*309, wal_shadow_err                  */
+	"there are %ld dependencies",	/*310, dependency                      */
+	"too many keys defined for index %s",	/*311, idx_key_err                     */
+	"Preceding file did not specify length, so %s must include starting page number",	/*312, dsql_file_length_err            */
+	"Shadow number must be a positive integer",	/*313, dsql_shadow_number_err          */
+	"Token unknown - line %ld, char %ld",	/*314, dsql_token_unk_err              */
+	"there is no alias or table named %s at this scope level",	/*315, dsql_no_relation_alias          */
+	"there is no index %s for table %s",	/*316, indexname                       */
+	"table %s is not referenced in plan",	/*317, no_stream_plan                  */
+	"table %s is referenced more than once in plan; use aliases to distinguish",	/*318, stream_twice                    */
+	"table %s is referenced in the plan but not the from list",	/*319, stream_not_found                */
+	"Invalid use of CHARACTER SET or COLLATE",	/*320, collation_requires_text         */
+	"Specified domain or source column does not exist",	/*321, dsql_domain_not_found           */
+	"index %s cannot be used in the specified plan",	/*322, index_unused                    */
+	"the table %s is referenced twice; use aliases to differentiate",	/*323, dsql_self_join                  */
+	"illegal operation when at beginning of stream",	/*324, stream_bof                      */
+	"the current position is on a crack",	/*325, stream_crack                    */
+	"database or file exists",	/*326, db_or_file_exists               */
+	"invalid comparison operator for find operation",	/*327, invalid_operator                */
+	"Connection lost to pipe server",	/*328, conn_lost                       */
+	"bad checksum",				/*329, bad_checksum                    */
+	"wrong page type",			/*330, page_type_err                   */
+	"Cannot insert because the file is readonly or is on a read only medium.",	/*331, ext_readonly_err                */
+	"multiple rows in singleton select",	/*332, sing_select_err                 */
+	"cannot attach to password database",	/*333, psw_attach                      */
+	"cannot start transaction for password database",	/*334, psw_start_trans                 */
+	"invalid direction for find operation",	/*335, invalid_direction               */
+	"variable %s conflicts with parameter in same procedure",	/*336, dsql_var_conflict               */
+	"Array/BLOB/DATE data types not allowed in arithmetic",	/*337, dsql_no_blob_array              */
+	"%s is not a valid base table of the specified view",	/*338, dsql_base_table                 */
+	"table %s is referenced twice in view; use an alias to distinguish",	/*339, duplicate_base_table            */
+	"view %s has more than one base table; use aliases to distinguish",	/*340, view_alias                      */
+	"cannot add index, index root page is full.",	/*341, index_root_page_full            */
+	"BLOB SUB_TYPE %s is not defined",	/*342, dsql_blob_type_unknown          */
+	"Too many concurrent executions of the same request",	/*343, req_max_clones_exceeded         */
+	"duplicate specification of %s - not supported",	/*344, dsql_duplicate_spec             */
+	"violation of PRIMARY or UNIQUE KEY constraint \"%s\" on table \"%s\"",	/*345, unique_key_violation            */
+	"server version too old to support all CREATE DATABASE options",	/*346, srvr_version_too_old            */
+	"drop database completed with errors",	/*347, drdb_completed_with_errs        */
+	"procedure %s does not return any values",	/*348, dsql_procedure_use_err          */
+	"count of column list and variable list do not match",	/*349, dsql_count_mismatch             */
+	"attempt to index BLOB column in index %s",	/*350, blob_idx_err                    */
+	"attempt to index array column in index %s",	/*351, array_idx_err                   */
+	"too few key columns found for index %s (incorrect column name?)",	/*352, key_field_err                   */
+	"cannot delete",			/*353, no_delete                       */
+	"last column in a table cannot be deleted",	/*354, del_last_field                  */
+	"sort error",				/*355, sort_err                        */
+	"sort error: not enough memory",	/*356, sort_mem_err                    */
+	"too many versions",		/*357, version_err                     */
+	"invalid key position",		/*358, inval_key_posn                  */
+	"segments not allowed in expression index %s",	/*359, no_segments_err                 */
+	"sort error: corruption in data structure",	/*360, crrp_data_err                   */
+	"new record size of %ld bytes is too big",	/*361, rec_size_err                    */
+	"Inappropriate self-reference of column",	/*362, dsql_field_ref                  */
+	"request depth exceeded. (Recursive definition?)",	/*363, req_depth_exceeded              */
+	"cannot access column %s in view %s",	/*364, no_field_access                 */
+	"dbkey not available for multi-table views",	/*365, no_dbkey                        */
+	"journal file wrong format",	/*366, jrn_format_err                  */
+	"intermediate journal file full",	/*367, jrn_file_full                   */
+	"The prepare statement identifies a prepare statement with an open cursor",	/*368, dsql_open_cursor_request        */
+	"InterBase error",			/*369, ib_error                        */
+	"Cache redefined",			/*370, cache_redef                     */
+	"Insufficient memory to allocate page buffer cache",	/*371, cache_too_small                 */
+	"Log redefined",			/*372, log_redef                       */
+	"Log size too small",		/*373, log_too_small                   */
+	"Log partition size too small",	/*374, partition_too_small             */
+	"Partitions not supported in series of log file specification",	/*375, partition_not_supp              */
+	"Total length of a partitioned log must be specified",	/*376, log_length_spec                 */
+	"Precision must be from 1 to 18",	/*377, precision_err                   */
+	"Scale must be between zero and precision",	/*378, scale_nogt                      */
+	"Short integer expected",	/*379, expec_short                     */
+	"Long integer expected",	/*380, expec_long                      */
+	"Unsigned short integer expected",	/*381, expec_ushort                    */
+	"Invalid ESCAPE sequence",	/*382, like_escape_invalid             */
+	"service %s does not have an associated executable",	/*383, svcnoexe                        */
+	"Failed to locate host machine.",	/*384, net_lookup_err                  */
+	"Undefined service %s/%s.",	/*385, service_unknown                 */
+	"The specified name was not found in the hosts file or Domain Name Services.",	/*386, host_unknown                    */
+	"user does not have GRANT privileges on base table/view for operation",	/*387, grant_nopriv_on_base            */
+	"Ambiguous column reference.",	/*388, dyn_fld_ambiguous               */
+	"Invalid aggregate reference",	/*389, dsql_agg_ref_err                */
+	"navigational stream %ld references a view with more than one base table",	/*390, complex_view                    */
+	"Attempt to execute an unprepared dynamic SQL statement.",	/*391, unprepared_stmt                 */
+	"Positive value expected",	/*392, expec_positive                  */
+	"Incorrect values within SQLDA structure",	/*393, dsql_sqlda_value_err            */
+	"invalid blob id",			/*394, invalid_array_id                */
+	"Operation not supported for EXTERNAL FILE table %s",	/*395, extfile_uns_op                  */
+	"Service is currently busy: %s",	/*396, svc_in_use                      */
+	"stack size insufficent to execute current request",	/*397, err_stack_limit                 */
+	"Invalid key for find operation",	/*398, invalid_key                     */
+	"Error initializing the network software.",	/*399, net_init_error                  */
+	"Unable to load required library %s.",	/*400, loadlib_failure                 */
+	"Unable to complete network request to host \"%s\".",	/*401, network_error                   */
+	"Failed to establish a connection.",	/*402, net_connect_err                 */
+	"Error while listening for an incoming connection.",	/*403, net_connect_listen_err          */
+	"Failed to establish a secondary connection for event processing.",	/*404, net_event_connect_err           */
+	"Error while listening for an incoming event connection request.",	/*405, net_event_listen_err            */
+	"Error reading data from the connection.",	/*406, net_read_err                    */
+	"Error writing data to the connection.",	/*407, net_write_err                   */
+	"Cannot deactivate index used by an Integrity Constraint",	/*408, integ_index_deactivate          */
+	"Cannot deactivate primary index",	/*409, integ_deactivate_primary        */
+	"Client/Server Express not supported in this release",	/*410, cse_not_supported               */
+	"",							/*411, tra_must_sweep                  */
+	"Access to databases on file servers is not supported.",	/*412, unsupported_network_drive       */
+	"Error while trying to create file",	/*413, io_create_err                   */
+	"Error while trying to open file",	/*414, io_open_err                     */
+	"Error while trying to close file",	/*415, io_close_err                    */
+	"Error while trying to read from file",	/*416, io_read_err                     */
+	"Error while trying to write to file",	/*417, io_write_err                    */
+	"Error while trying to delete file",	/*418, io_delete_err                   */
+	"Error while trying to access file",	/*419, io_access_err                   */
+	"A fatal exception occurred during the execution of a user defined function.",	/*420, udf_exception                   */
+	"connection lost to database",	/*421, lost_db_connection              */
+	"User cannot write to RDB$USER_PRIVILEGES",	/*422, no_write_user_priv              */
+	"token size exceeds limit",	/*423, token_too_long                  */
+	"Maximum user count exceeded.  Contact your database administrator.",	/*424, max_att_exceeded                */
+	"Your login %s is same as one of the SQL role name. Ask your database administrator to set up a valid InterBase login.",	/*425, login_same_as_role_name         */
+	"\"REFERENCES table\" without \"(column)\" requires PRIMARY KEY on referenced table",	/*426, reftable_requires_pk            */
+	"The username entered is too long.  Maximum length is 31 bytes.",	/*427, usrname_too_long                */
+	"The password specified is too long.  Maximum length is 8 bytes.",	/*428, password_too_long               */
+	"A username is required for this operation.",	/*429, usrname_required                */
+	"A password is required for this operation",	/*430, password_required               */
+	"The network protocol specified is invalid",	/*431, bad_protocol                    */
+	"A duplicate user name was found in the security database",	/*432, dup_usrname_found               */
+	"The user name specified was not found in the security database",	/*433, usrname_not_found               */
+	"An error occurred while attempting to add the user.",	/*434, error_adding_sec_record         */
+	"An error occurred while attempting to modify the user record.",	/*435, error_modifying_sec_record      */
+	"An error occurred while attempting to delete the user record.",	/*436, error_deleting_sec_record       */
+	"An error occurred while updating the security database.",	/*437, error_updating_sec_db           */
+	"sort record size of %ld bytes is too big",	/*438, sort_rec_size_err               */
+	"can not define a not null column with NULL as default value",	/*439, bad_default_value               */
+	"invalid clause --- '%s'",	/*440, invalid_clause                  */
+	"too many open handles to database",	/*441, too_many_handles                */
+	"size of optimizer block exceeded",	/*442, optimizer_blk_exc               */
+	"a string constant is delimited by double quotes",	/*443, invalid_string_constant         */
+	"DATE must be changed to TIMESTAMP",	/*444, transitional_date               */
+	"attempted update on read-only database",	/*445, read_only_database              */
+	"SQL dialect %s is not supported in this database",	/*446, must_be_dialect_2_and_up        */
+	"A fatal exception occurred during the execution of a blob filter.",	/*447, blob_filter_exception           */
+	"Access violation.  The code attempted to access a virtual address without privilege to do so.",	/*448, exception_access_violation      */
+	"Datatype misalignment.  The attempted to read or write a value that was not stored on a memory boundary.",	/*449, exception_datatype_missalignment */
+	"Array bounds exceeded.  The code attempted to access an array element that is out of bounds.",	/*450, exception_array_bounds_exceeded */
+	"Float denormal operand.  One of the floating-point operands is too small to represent a standard float value.",	/*451, exception_float_denormal_operand */
+	"Floating-point divide by zero.  The code attempted to divide a floating-point value by zero.",	/*452, exception_float_divide_by_zero  */
+	"Floating-point inexact result.  The result of a floating-point operation cannot be represented as a deciaml fraction.",	/*453, exception_float_inexact_result  */
+	"Floating-point invalid operand.  An indeterminant error occurred during a floating-point operation.",	/*454, exception_float_invalid_operand */
+	"Floating-point overflow.  The exponent of a floating-point operation is greater than the magnitude allowed.",	/*455, exception_float_overflow        */
+	"Floating-point stack check.  The stack overflowed or underflowed as the result of a floating-point operation.",	/*456, exception_float_stack_check     */
+	"Floating-point underflow.  The exponent of a floating-point operation is less than the magnitude allowed.",	/*457, exception_float_underflow       */
+	"Integer divide by zero.  The code attempted to divide an integer value by an integer divisor of zero.",	/*458, exception_integer_divide_by_zero */
+	"Integer overflow.  The result of an integer operation caused the most significant bit of the result to carry.",	/*459, exception_integer_overflow      */
+	"An exception occurred that does not have a description.  Exception number %X.",	/*460, exception_unknown               */
+	"Stack overflow.  The resource requirements of the runtime stack have exceeded the memory available to it.",	/*461, exception_stack_overflow        */
+	"Segmentation Fault. The code attempted to access memory without priviledges.",	/*462, exception_sigsegv               */
+	"Illegal Instruction. The Code attempted to perfrom an illegal operation.",	/*463, exception_sigill                */
+	"Bus Error. The Code caused a system bus error.",	/*464, exception_sigbus                */
+	"Floating Point Error. The Code caused an Arithmetic Exception or a floating point exception.",	/*465, exception_sigfpe                */
+	"Cannot delete rows from external files.",	/*466, ext_file_delete                 */
+	"Cannot update rows in external files.",	/*467, ext_file_modify                 */
+	"Unable to perform operation.  You must be either SYSDBA or owner of the database",	/*468, adm_task_denied                 */
+	"Specified EXTRACT part does not exist in input datatype",	/*469, extract_input_mismatch          */
+	"Service %s requires SYSDBA permissions.  Reattach to the Service Manager using the SYSDBA account.",	/*470, insufficient_svc_privileges     */
+	"The file %s is currently in use by another process.  Try again later.",	/*471, file_in_use                     */
+	"Cannot attach to services manager",	/*472, service_att_err                 */
+	"Metadata update statement is not allowed by the current database SQL dialect %d",	/*473, ddl_not_allowed_by_db_sql_dial  */
+	"operation was cancelled",	/*474, cancelled                       */
+	"unexpected item in service parameter block, expected %s",	/*475, unexp_spb_form                  */
+	"Client SQL dialect %d does not support reference to %s datatype",	/*476, sql_dialect_datatype_unsupport  */
+	"user name and password are required while attaching to the services manager",	/*477, svcnouser                       */
+	"You created an indirect dependency on uncommitted metadata. You must roll back the current transaction.",	/*478, depend_on_uncommitted_rel       */
+	"The service name was not specified.",	/*479, svc_name_missing                */
+	"Too many Contexts of Relation/Procedure/Views. Maximum allowed is 127",	/*480, too_many_contexts               */
+	"data type not supported for arithmetic",	/*481, datype_notsup                   */
+	"Database dialect being changed from 3 to 1",	/*482, dialect_reset_warning           */
+	"Database dialect not changed.",	/*483, dialect_not_changed             */
+	"Unable to create database %s",	/*484, database_create_failed          */
+	"Database dialect %d is not a valid dialect.",	/*485, inv_dialect_specified           */
+	"Valid database dialects are %s.",	/*486, valid_db_dialects               */
+	"SQL warning code = %ld",	/*487, sqlwarn                         */
+	"DATE data type is now called TIMESTAMP",	/*488, dtype_renamed                   */
+	"Function %s is in %s, which is not in a permitted directory for external functions.",	/*489, extern_func_dir_error           */
+	"value exceeds the range for valid dates",	/*490, date_range_exceeded             */
+	"passed client dialect %d is not a valid dialect.",	/*491, inv_client_dialect_specified    */
+	"Valid client dialects are %s.",	/*492, valid_client_dialects           */
+	"Unsupported field type specified in BETWEEN predicate.",	/*493, optimizer_between_err           */
+	"Services functionality will be supported in a later version  of the product",	/*494, service_not_supported           */
+	"data base file name (%s) already given",	/*495, gfix_db_name                    */
+	"invalid switch %s",		/*496, gfix_invalid_sw                 */
+	"incompatible switch combination",	/*497, gfix_incmp_sw                   */
+	"replay log pathname required",	/*498, gfix_replay_req                 */
+	"number of page buffers for cache required",	/*499, gfix_pgbuf_req                  */
+	"numeric value required",	/*500, gfix_val_req                    */
+	"positive numeric value required",	/*501, gfix_pval_req                   */
+	"number of transactions per sweep required",	/*502, gfix_trn_req                    */
+	"\"full\" or \"reserve\" required",	/*503, gfix_full_req                   */
+	"user name required",		/*504, gfix_usrname_req                */
+	"password required",		/*505, gfix_pass_req                   */
+	"subsystem name",			/*506, gfix_subs_name                  */
+	"\"wal\" required",			/*507, gfix_wal_req                    */
+	"number of seconds required",	/*508, gfix_sec_req                    */
+	"numeric value between 0 and 32767 inclusive required",	/*509, gfix_nval_req                   */
+	"must specify type of shutdown",	/*510, gfix_type_shut                  */
+	"please retry, specifying an option",	/*511, gfix_retry                      */
+	"please retry, giving a database name",	/*512, gfix_retry_db                   */
+	"internal block exceeds maximum size",	/*513, gfix_exceed_max                 */
+	"corrupt pool",				/*514, gfix_corrupt_pool               */
+	"virtual memory exhausted",	/*515, gfix_mem_exhausted              */
+	"bad pool id",				/*516, gfix_bad_pool                   */
+	"Transaction state %d not in valid range.",	/*517, gfix_trn_not_valid              */
+	"unexpected end of input",	/*518, gfix_unexp_eoi                  */
+	"failed to reconnect to a transaction in database %s",	/*519, gfix_recon_fail                 */
+	"Transaction description item unknown",	/*520, gfix_trn_unknown                */
+	"\"read_only\" or \"read_write\" required",	/*521, gfix_mode_req                   */
+	"	-sql_dialect	set database dialect n",	/*522, gfix_opt_SQL_dialect            */
+	"Cannot SELECT RDB$DB_KEY from a stored procedure.",	/*523, dsql_dbkey_from_non_table       */
+	"Precision 10 to 18 changed from DOUBLE PRECISION in SQL dialect 1 to 64-bit scaled integer in SQL dialect 3",	/*524, dsql_transitional_numeric       */
+	"Use of %s expression that returns different results in dialect 1 and dialect 3",	/*525, dsql_dialect_warning_expr       */
+	"Database SQL dialect %d does not support reference to %s datatype",	/*526, sql_db_dialect_dtype_unsupport  */
+	"DB dialect %d and client dialect %d conflict with respect to numeric precision %d.",	/*527, isc_sql_dialect_conflict_num    */
+	"WARNING: Numeric literal %s is interpreted as a floating-point",	/*528, dsql_warning_number_ambiguous   */
+	"value in SQL dialect 1, but as an exact numeric value in SQL dialect 3.",	/*529, dsql_warning_number_ambiguous1  */
+	"WARNING: NUMERIC and DECIMAL fields with precision 10 or greater are stored",	/*530, dsql_warn_precision_ambiguous   */
+	"as approximate floating-point values in SQL dialect 1, but as 64-bit",	/*531, dsql_warn_precision_ambiguous1  */
+	"integers in SQL dialect 3.",	/*532, dsql_warn_precision_ambiguous2  */
+	"SQL role %s does not exist",	/*533, dyn_role_does_not_exist         */
+	"user %s has no grant admin option on SQL role %s",	/*534, dyn_no_grant_admin_opt          */
+	"user %s is not a member of SQL role %s",	/*535, dyn_user_not_role_member        */
+	"%s is not the owner of SQL role %s",	/*536, dyn_delete_role_failed          */
+	"%s is a SQL role and not a user",	/*537, dyn_grant_role_to_user          */
+	"user name %s could not be used for SQL role",	/*538, dyn_inv_sql_role_name           */
+	"SQL role %s already exists",	/*539, dyn_dup_sql_role                */
+	"keyword %s can not be used as a SQL role name",	/*540, dyn_kywd_spec_for_role          */
+	"SQL roles are not supported in on older versions of the database.  A backup and restore of the database is required.",	/*541, dyn_roles_not_supported         */
+	"Cannot rename domain %s to %s.  A domain with that name already exists.",	/*542, dyn_domain_name_exists          */
+	"Cannot rename column %s to %s.  A column with that name already exists in table %s.",	/*543, dyn_field_name_exists           */
+	"Column %s from table %s is referenced in %s",	/*544, dyn_dependency_exists           */
+	"Cannot change datatype for column %s.  Changing datatype is not supported for BLOB or ARRAY columns.",	/*545, dyn_dtype_invalid               */
+	"New size specified for column %s must be at least %d characters.",	/*546, dyn_char_fld_too_small          */
+	"Cannot change datatype for %s.  Conversion from base type %s to %s is not supported.",	/*547, dyn_invalid_dtype_conversion    */
+	"Cannot change datatype for column %s from a character type to a non-character type.",	/*548, dyn_dtype_conv_invalid          */
+	"found unknown switch",		/*549, gbak_unknown_switch             */
+	"page size parameter missing",	/*550, gbak_page_size_missing          */
+	"Page size specified (%ld) greater than limit (8192 bytes)",	/*551, gbak_page_size_toobig           */
+	"redirect location for output is not specified",	/*552, gbak_redir_ouput_missing        */
+	"conflicting switches for backup/restore",	/*553, gbak_switches_conflict          */
+	"device type %s not known",	/*554, gbak_unknown_device             */
+	"protection is not there yet",	/*555, gbak_no_protection              */
+	"page size is allowed only on restore or create",	/*556, gbak_page_size_not_allowed      */
+	"multiple sources or destinations specified",	/*557, gbak_multi_source_dest          */
+	"requires both input and output filenames",	/*558, gbak_filename_missing           */
+	"input and output have the same name.  Disallowed.",	/*559, gbak_dup_inout_names            */
+	"expected page size, encountered \"%s\"",	/*560, gbak_inv_page_size              */
+	"REPLACE specified, but the first file %s is a database",	/*561, gbak_db_specified               */
+	"database %s already exists.  To replace it, use the -R switch",	/*562, gbak_db_exists                  */
+	"device type not specified",	/*563, gbak_unk_device                 */
+	"gds_$blob_info failed",	/*564, gbak_blob_info_failed           */
+	"do not understand BLOB INFO item %ld",	/*565, gbak_unk_blob_item              */
+	"gds_$get_segment failed",	/*566, gbak_get_seg_failed             */
+	"gds_$close_blob failed",	/*567, gbak_close_blob_failed          */
+	"gds_$open_blob failed",	/*568, gbak_open_blob_failed           */
+	"Failed in put_blr_gen_id",	/*569, gbak_put_blr_gen_id_failed      */
+	"data type %ld not understood",	/*570, gbak_unk_type                   */
+	"gds_$compile_request failed",	/*571, gbak_comp_req_failed            */
+	"gds_$start_request failed",	/*572, gbak_start_req_failed           */
+	" gds_$receive failed",		/*573, gbak_rec_failed                 */
+	"gds_$release_request failed",	/*574, gbak_rel_req_failed             */
+	" gds_$database_info failed",	/*575, gbak_db_info_failed             */
+	"Expected database description record",	/*576, gbak_no_db_desc                 */
+	"failed to create database %s",	/*577, gbak_db_create_failed           */
+	"RESTORE: decompression length error",	/*578, gbak_decomp_len_error           */
+	"cannot find table %s",		/*579, gbak_tbl_missing                */
+	"Cannot find column for BLOB",	/*580, gbak_blob_col_missing           */
+	"gds_$create_blob failed",	/*581, gbak_create_blob_failed         */
+	"gds_$put_segment failed",	/*582, gbak_put_seg_failed             */
+	"expected record length",	/*583, gbak_rec_len_exp                */
+	"wrong length record, expected %ld encountered %ld",	/*584, gbak_inv_rec_len                */
+	"expected data attribute",	/*585, gbak_exp_data_type              */
+	"Failed in store_blr_gen_id",	/*586, gbak_gen_id_failed              */
+	"do not recognize record type %ld",	/*587, gbak_unk_rec_type               */
+	"Expected backup version 1, 2, or 3.  Found %ld",	/*588, gbak_inv_bkup_ver               */
+	"expected backup description record",	/*589, gbak_missing_bkup_desc          */
+	"string truncated",			/*590, gbak_string_trunc               */
+	" warning -- record could not be restored",	/*591, gbak_cant_rest_record           */
+	"gds_$send failed",			/*592, gbak_send_failed                */
+	"no table name for data",	/*593, gbak_no_tbl_name                */
+	"unexpected end of file on backup file",	/*594, gbak_unexp_eof                  */
+	"database format %ld is too old to restore to",	/*595, gbak_db_format_too_old          */
+	"array dimension for column %s is invalid",	/*596, gbak_inv_array_dim              */
+	"Expected XDR record length",	/*597, gbak_xdr_len_expected           */
+	"cannot open backup file %s",	/*598, gbak_open_bkup_error            */
+	"cannot open status and error output file %s",	/*599, gbak_open_error                 */
+	"blocking factor parameter missing",	/*600, gbak_missing_block_fac          */
+	"expected blocking factor, encountered \"%s\"",	/*601, gbak_inv_block_fac              */
+	"a blocking factor may not be used in conjunction with device CT",	/*602, gbak_block_fac_specified        */
+	"user name parameter missing",	/*603, gbak_missing_username           */
+	"password parameter missing",	/*604, gbak_missing_password           */
+	" missing parameter for the number of bytes to be skipped",	/*605, gbak_missing_skipped_bytes      */
+	"expected number of bytes to be skipped, encountered \"%s\"",	/*606, gbak_inv_skipped_bytes          */
+	"Bad attribute for RDB$CHARACTER_SETS",	/*607, gbak_err_restore_charset        */
+	"Bad attribute for RDB$COLLATIONS",	/*608, gbak_err_restore_collation      */
+	"Unexpected I/O error while reading from backup file",	/*609, gbak_read_error                 */
+	"Unexpected I/O error while writing to backup file",	/*610, gbak_write_error                */
+	"could not drop database %s (database might be in use)",	/*611, gbak_db_in_use                  */
+	"System memory exhausted",	/*612, gbak_sysmemex                   */
+	"Bad attributes for restoring SQL role",	/*613, gbak_restore_role_failed        */
+	"SQL role parameter missing",	/*614, gbak_role_op_missing            */
+	"page buffers parameter missing",	/*615, gbak_page_buffers_missing       */
+	"expected page buffers, encountered \"%s\"",	/*616, gbak_page_buffers_wrong_param   */
+	"page buffers is allowed only on restore or create",	/*617, gbak_page_buffers_restore       */
+	"size specification either missing or incorrect for file %s",	/*618, gbak_inv_size                   */
+	"file %s out of sequence",	/*619, gbak_file_outof_sequence        */
+	"can't join -- one of the files missing",	/*620, gbak_join_file_missing          */
+	" standard input is not supported when using join operation",	/*621, gbak_stdin_not_supptd           */
+	"standard output is not supported when using split operation",	/*622, gbak_stdout_not_supptd          */
+	"backup file %s might be corrupt",	/*623, gbak_bkup_corrupt               */
+	"database file specification missing",	/*624, gbak_unk_db_file_spec           */
+	"can't write a header record to file %s",	/*625, gbak_hdr_write_failed           */
+	"free disk space exhausted",	/*626, gbak_disk_space_ex              */
+	"file size given (%d) is less than minimum allowed (%d)",	/*627, gbak_size_lt_min                */
+	"service name parameter missing",	/*628, gbak_svc_name_missing           */
+	"Cannot restore over current database, must be SYSDBA or owner of the existing database.",	/*629, gbak_not_ownr                   */
+	"\"read_only\" or \"read_write\" required",	/*630, gbak_mode_req                   */
+	"unable to open database",	/*631, gsec_cant_open_db               */
+	"error in switch specifications",	/*632, gsec_switches_error             */
+	"no operation specified",	/*633, gsec_no_op_spec                 */
+	"no user name specified",	/*634, gsec_no_usr_name                */
+	"add record error",			/*635, gsec_err_add                    */
+	"modify record error",		/*636, gsec_err_modify                 */
+	"find/modify record error",	/*637, gsec_err_find_mod               */
+	"record not found for user: %s",	/*638, gsec_err_rec_not_found          */
+	"delete record error",		/*639, gsec_err_delete                 */
+	"find/delete record error",	/*640, gsec_err_find_del               */
+	"find/display record error",	/*641, gsec_err_find_disp              */
+	"invalid parameter, no switch defined",	/*642, gsec_inv_param                  */
+	"operation already specified",	/*643, gsec_op_specified               */
+	"password already specified",	/*644, gsec_pw_specified               */
+	"uid already specified",	/*645, gsec_uid_specified              */
+	"gid already specified",	/*646, gsec_gid_specified              */
+	"project already specified",	/*647, gsec_proj_specified             */
+	"organization already specified",	/*648, gsec_org_specified              */
+	"first name already specified",	/*649, gsec_fname_specified            */
+	"middle name already specified",	/*650, gsec_mname_specified            */
+	"last name already specified",	/*651, gsec_lname_specified            */
+	"invalid switch specified",	/*652, gsec_inv_switch                 */
+	"ambiguous switch specified",	/*653, gsec_amb_switch                 */
+	"no operation specified for parameters",	/*654, gsec_no_op_specified            */
+	"no parameters allowed for this operation",	/*655, gsec_params_not_allowed         */
+	"incompatible switches specified",	/*656, gsec_incompat_switch            */
+	"Invalid user name (maximum 31 bytes allowed)",	/*657, gsec_inv_username               */
+	"Warning - maximum 8 significant bytes of password used",	/*658, gsec_inv_pw_length              */
+	"database already specified",	/*659, gsec_db_specified               */
+	"database administrator name already specified",	/*660, gsec_db_admin_specified         */
+	"database administrator password already specified",	/*661, gsec_db_admin_pw_specified      */
+	"SQL role name already specified",	/*662, gsec_sql_role_specified         */
+	"The license file does not exist or could not be opened for read",	/*663, license_no_file                 */
+	"operation already specified",	/*664, license_op_specified            */
+	"no operation specified",	/*665, license_op_missing              */
+	"invalid switch",			/*666, license_inv_switch              */
+	"invalid switch combination",	/*667, license_inv_switch_combo        */
+	"illegal operation/switch combination",	/*668, license_inv_op_combo            */
+	"ambiguous switch",			/*669, license_amb_switch              */
+	"invalid parameter, no switch specified",	/*670, license_inv_parameter           */
+	"switch does not take any parameter",	/*671, license_param_specified         */
+	"switch requires a parameter",	/*672, license_param_req               */
+	"syntax error in command line",	/*673, license_syntx_error             */
+	"The certificate was not added.  A duplicate ID exists in the license file.",	/*674, license_dup_id                  */
+	"The certificate was not added.  Invalid certificate ID / Key combination.",	/*675, license_inv_id_key              */
+	"The certificate was not removed.  The key does not exist or corresponds to a temporary evaluation license.",	/*676, license_err_remove              */
+	"An error occurred updating the license file.  Operation cancelled.",	/*677, license_err_update              */
+	"The certificate could not be validated based on the information given.  Please recheck the ID and key information.",	/*678, license_err_convert             */
+	"Operation failed.  An unknown error occurred.",	/*679, license_err_unk                 */
+	"Add license operation failed, KEY: %s ID: %s",	/*680, license_svc_err_add             */
+	"Remove license operation failed, KEY: %s",	/*681, license_svc_err_remove          */
+	"The evaluation license has already been used on this server.  You need to purchase a non-evaluation license.",	/*682, license_eval_exists             */
+	"found unknown switch",		/*683, gstat_unknown_switch            */
+	"please retry, giving a database name",	/*684, gstat_retry                     */
+	"Wrong ODS version, expected %d, encountered %d",	/*685, gstat_wrong_ods                 */
+	"Unexpected end of database file.",	/*686, gstat_unexpected_eof            */
+	"Can't open database file %s",	/*687, gstat_open_err                  */
+	"Can't read a database page",	/*688, gstat_read_err                  */
+	"System memory exhausted",	/*689, gstat_sysmemex                  */
diff --git a/src/jrd/names.h b/src/jrd/names.h
new file mode 100644
index 0000000000..ee3c2588f3
--- /dev/null
+++ b/src/jrd/names.h
@@ -0,0 +1,204 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		names.h
+ *	DESCRIPTION:	System relation names
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+NAME("RDB$ACL", nam_acl)
+	NAME("RDB$ARGUMENT_POSITION", nam_arg_pos)
+	NAME("RDB$ARGUMENT_TYPE", nam_arg_type)
+	NAME("RDB$BASE_FIELD", nam_base)
+	NAME("RDB$BOUND", nam_bound)
+	NAME("RDB$BYTES_PER_CHARACTER", nam_bytes_per_char)
+	NAME("RDB$CHARACTER_FIELDS", nam_char_fields)
+	NAME("RDB$CHARACTER_LENGTH", nam_char_length)
+	NAME("RDB$CHARACTER_SETS", nam_charsets)
+	NAME("RDB$CHARACTER_SET_ID", nam_charset_id)
+	NAME("RDB$CHARACTER_SET_NAME", nam_charset_name)
+	NAME("RDB$CHECK_CONSTRAINTS", nam_chk_constr)
+	NAME("RDB$COLLATIONS", nam_collations)
+	NAME("RDB$COLLATION_ATTRIBUTES", nam_collate_attr)
+	NAME("RDB$COLLATION_ID", nam_collate_id)
+	NAME("RDB$COLLATION_NAME", nam_collate_name)
+	NAME("RDB$COMPLEX_NAME", nam_cpx_name)
+	NAME("RDB$COMPUTED_BLR", nam_computed)
+	NAME("RDB$COMPUTED_SOURCE", nam_c_source)
+	NAME("RDB$CONSTRAINT_NAME", nam_con_name)
+	NAME("RDB$CONSTRAINT_TYPE", nam_con_type)
+	NAME("RDB$CONST_NAME_UQ", nam_con_uq)
+	NAME("RDB$CONTEXT_NAME", nam_context)
+	NAME("RDB$DATABASE", nam_database)
+	NAME("RDB$DBKEY_LENGTH", nam_key_length)
+	NAME("RDB$DEFAULT_CLASS", nam_def_class)
+	NAME("RDB$DEFAULT_COLLATE_NAME", nam_def_collate)
+	NAME("RDB$DEFAULT_SOURCE", nam_d_source)
+	NAME("RDB$DEFAULT_VALUE", nam_default)
+	NAME("RDB$DEFERRABLE", nam_defer)
+	NAME("RDB$DELETE_RULE", nam_del_rule)
+	NAME("RDB$DEPENDENCIES", nam_dpds)
+	NAME("RDB$DEPENDED_ON_NAME", nam_dpd_o_name)
+	NAME("RDB$DEPENDED_ON_TYPE", nam_dpd_o_type)
+	NAME("RDB$DEPENDENT_NAME", nam_dpd_name)
+	NAME("RDB$DEPENDENT_TYPE", nam_dpd_type)
+	NAME("RDB$DESCRIPTION", nam_description)
+	NAME("RDB$DESCRIPTOR", nam_desc)
+	NAME("RDB$DIMENSION", nam_dim)
+	NAME("RDB$DIMENSIONS", nam_dimensions)
+	NAME("RDB$EDIT_STRING", nam_edit_string)
+	NAME("RDB$ENTRYPOINT", nam_entry)
+	NAME("RDB$EXCEPTION_NAME", nam_xcp_name)
+	NAME("RDB$EXCEPTION_NUMBER", nam_xcp_number)
+	NAME("RDB$EXCEPTIONS", nam_exceptions)
+	NAME("RDB$EXPRESSION_BLR", nam_exp_blr)
+	NAME("RDB$EXPRESSION_SOURCE", nam_exp_source)
+	NAME("RDB$EXTERNAL_DESCRIPTION", nam_ext_desc)
+	NAME("RDB$EXTERNAL_FILE", nam_ext_file)
+	NAME("RDB$EXTERNAL_LENGTH", nam_ext_length)
+	NAME("RDB$EXTERNAL_NAME", nam_ext_name)
+	NAME("RDB$EXTERNAL_SCALE", nam_ext_scale)
+	NAME("RDB$EXTERNAL_TYPE", nam_ext_type)
+	NAME("RDB$FIELDS", nam_fields)
+	NAME("RDB$FIELD_DIMENSIONS", nam_fld_dims)
+	NAME("RDB$FIELD_ID", nam_f_id)
+	NAME("RDB$FIELD_LENGTH", nam_f_length)
+	NAME("RDB$FIELD_NAME", nam_f_name)
+	NAME("RDB$FIELD_POSITION", nam_f_position)
+	NAME("RDB$FIELD_PRECISION", nam_f_precision)
+	NAME("RDB$FIELD_SCALE", nam_f_scale)
+	NAME("RDB$FIELD_SOURCE", nam_f_source)
+	NAME("RDB$FIELD_SUB_TYPE", nam_f_sub_type)
+	NAME("RDB$FIELD_TYPE", nam_f_type)
+	NAME("RDB$FILES", nam_files)
+	NAME("RDB$FILE_FLAGS", nam_file_flags)
+	NAME("RDB$FILE_LENGTH", nam_file_length)
+	NAME("RDB$FILE_NAME", nam_file_name)
+	NAME("RDB$FILE_PARTITIONS", nam_file_partitions)
+	NAME("RDB$FILE_P_OFFSET", nam_file_p_offset)
+	NAME("RDB$FILE_SEQUENCE", nam_file_seq)
+	NAME("RDB$FILE_START", nam_file_start)
+	NAME("RDB$FILTERS", nam_filters)
+	NAME("RDB$FLAGS", nam_flags)
+	NAME("RDB$FOREIGN_KEY", nam_i_foreign)
+	NAME("RDB$FORMAT", nam_fmt)
+	NAME("RDB$FORMATS", nam_formats)
+	NAME("RDB$FORM_OF_USE", nam_form_of_use)
+	NAME("RDB$FUNCTIONS", nam_funs)
+	NAME("RDB$FUNCTION_ARGUMENTS", nam_args)
+	NAME("RDB$FUNCTION_NAME", nam_fun_name)
+	NAME("RDB$FUNCTION_TYPE", nam_fun_type)
+	NAME("RDB$GENERATORS", nam_gens)
+	NAME("RDB$GENERATOR_ID", nam_gen_id)
+	NAME("RDB$GENERATOR_NAME", nam_gen_name)
+	NAME("RDB$GENERIC_NAME", nam_gnr_name)
+	NAME("RDB$GENERIC_TYPE", nam_gnr_type)
+	NAME("RDB$GRANTOR", nam_grantor)
+	NAME("RDB$GRANT_OPTION", nam_grant)
+	NAME("RDB$IDS", nam_ids)
+	NAME("RDB$INDEX_ID", nam_i_id)
+	NAME("RDB$INDEX_INACTIVE", nam_i_inactive)
+	NAME("RDB$INDEX_NAME", nam_i_name)
+	NAME("RDB$INDEX_SEGMENTS", nam_i_segments)
+	NAME("RDB$INDEX_TYPE", nam_i_type)
+	NAME("RDB$INDICES", nam_indices)
+	NAME("RDB$INITIALLY_DEFERRED", nam_init_defer)
+	NAME("RDB$INPUT_SUB_TYPE", nam_in_type)
+	NAME("RDB$LOG_FILES", nam_log_files)
+	NAME("RDB$LOWER_BOUND", nam_lower)
+	NAME("RDB$MATCH_OPTION", nam_match)
+	NAME("RDB$MECHANISM", nam_mechanism)
+	NAME("RDB$MESSAGE", nam_msg)
+	NAME("RDB$MESSAGE_NUMBER", nam_msg_num)
+	NAME("RDB$MISSING_SOURCE", nam_m_source)
+	NAME("RDB$MISSING_VALUE", nam_missing)
+	NAME("RDB$MODULE_NAME", nam_mod_name)
+	NAME("RDB$NULL_FLAG", nam_null_flag)
+	NAME("RDB$NUMBER_OF_CHARACTERS", nam_num_chars)
+	NAME("RDB$OBJECT_TYPE", nam_obj_type)
+	NAME("RDB$OUTPUT_SUB_TYPE", nam_out_type)
+	NAME("RDB$OWNER_NAME", nam_owner)
+	NAME("RDB$PAGES", nam_pages)
+	NAME("RDB$PAGE_NUMBER", nam_p_number)
+	NAME("RDB$PAGE_SEQUENCE", nam_p_sequence)
+	NAME("RDB$PAGE_TYPE", nam_p_type)
+	NAME("RDB$PROCEDURE_PARAMETERS", nam_proc_parameters)
+	NAME("RDB$PARAMETER_NAME", nam_prm_name)
+	NAME("RDB$PARAMETER_NUMBER", nam_prm_number)
+	NAME("RDB$PARAMETER_TYPE", nam_prm_type)
+	NAME("RDB$PRIVILEGE", nam_privilege)
+	NAME("RDB$PROCEDURES", nam_procedures)
+	NAME("RDB$PROCEDURE_BLR", nam_prc_blr)
+	NAME("RDB$PROCEDURE_ID", nam_prc_id)
+	NAME("RDB$PROCEDURE_INPUTS", nam_prc_inputs)
+	NAME("RDB$PROCEDURE_NAME", nam_prc_name)
+	NAME("RDB$PROCEDURE_OUTPUTS", nam_prc_outputs)
+	NAME("RDB$PROCEDURE_PARAMETERS", nam_prc_prm)
+	NAME("RDB$PROCEDURE_SOURCE", nam_prc_source)
+	NAME("RDB$QUERY_HEADER", nam_q_header)
+	NAME("RDB$QUERY_NAME", nam_q_name)
+	NAME("RDB$REF_CONSTRAINTS", nam_ref_constr)
+	NAME("RDB$RELATIONS", nam_relations)
+	NAME("RDB$RELATION_CONSTRAINTS", nam_rel_constr)
+	NAME("RDB$RELATION_FIELDS", nam_r_fields)
+	NAME("RDB$RELATION_ID", nam_r_id)
+	NAME("RDB$RELATION_NAME", nam_r_name)
+	NAME("RDB$RETURN_ARGUMENT", nam_ret_arg)
+	NAME("RDB$ROLE_NAME", nam_role_name)
+	NAME("RDB$ROLES", nam_roles)
+	NAME("RDB$RULE", nam_rule)
+	NAME("RDB$RUNTIME", nam_runtime)
+	NAME("RDB$SECURITY_CLASS", nam_class)
+	NAME("RDB$SECURITY_CLASSES", nam_classes)
+	NAME("RDB$SEGMENT_COUNT", nam_s_count)
+	NAME("RDB$SEGMENT_LENGTH", nam_s_length)
+	NAME("RDB$SHADOW_NUMBER", nam_shad_num)
+	NAME("RDB$SOURCE", nam_source)
+	NAME("RDB$STATISTICS", nam_statistics)
+	NAME("RDB$SYSTEM_FLAG", nam_sys_flag)
+	NAME("RDB$TIMESTAMP", nam_time)
+	NAME("RDB$TRANSACTIONS", nam_trans)
+	NAME("RDB$TRANSACTION_DESCRIPTION", nam_trans_desc)
+	NAME("RDB$TRANSACTION_ID", nam_trans_id)
+	NAME("RDB$TRANSACTION_STATE", nam_trans_state)
+	NAME("RDB$TRIGGERS", nam_trgs)
+	NAME("RDB$TRIGGER_BLR", nam_trigger)
+	NAME("RDB$TRIGGER_INACTIVE", nam_trg_inactive)
+	NAME("RDB$TRIGGER_MESSAGES", nam_trg_msgs)
+	NAME("RDB$TRIGGER_NAME", nam_trg_name)
+	NAME("RDB$TRIGGER_SEQUENCE", nam_trg_seq)
+	NAME("RDB$TRIGGER_SOURCE", nam_trg_source)
+	NAME("RDB$TRIGGER_TYPE", nam_trg_type)
+	NAME("RDB$TYPE", nam_type)
+	NAME("RDB$TYPES", nam_types)
+	NAME("RDB$TYPE_NAME", nam_typ_name)
+	NAME("RDB$UNIQUE_FLAG", nam_un_flag)
+	NAME("RDB$UPDATE_FLAG", nam_up_flag)
+	NAME("RDB$UPDATE_RULE", nam_upd_rule)
+	NAME("RDB$UPPER_BOUND", nam_upper)
+	NAME("RDB$USER_TYPE", nam_user_type)
+	NAME("RDB$USER", nam_user)
+	NAME("RDB$USER_PRIVILEGES", nam_user_privileges)
+	NAME("RDB$VALIDATION_BLR", nam_vl_blr)
+	NAME("RDB$VALIDATION_SOURCE", nam_vl_source)
+	NAME("RDB$VALUE", nam_value)
+	NAME("RDB$VIEW_BLR", nam_v_blr)
+	NAME("RDB$VIEW_CONTEXT", nam_v_context)
+	NAME("RDB$VIEW_NAME", nam_v_name)
+	NAME("RDB$VIEW_RELATIONS", nam_v_relations)
+	NAME("RDB$VIEW_SOURCE", nam_v_source)
diff --git a/src/jrd/nav.cpp b/src/jrd/nav.cpp
new file mode 100644
index 0000000000..7294965da4
--- /dev/null
+++ b/src/jrd/nav.cpp
@@ -0,0 +1,1964 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		nav.c
+ *	DESCRIPTION:	Navigational index walking
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/ods.h"
+#include "../jrd/val.h"
+#include "../jrd/btr.h"
+#include "../jrd/req.h"
+#include "../jrd/exe.h"
+#include "../jrd/sbm.h"
+#include "../jrd/rse.h"
+#include "../jrd/codes.h"
+#include "../jrd/rng.h"
+#include "../jrd/lck.h"
+#include "../jrd/cch.h"
+#include "../jrd/blr.h"
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/btr_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/dbg_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/nav_proto.h"
+#include "../jrd/rng_proto.h"
+#include "../jrd/rse_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/vio_proto.h"
+
+#define MOVE_BYTE(x_from, x_to)	*x_to++ = *x_from++;
+
+static SSHORT compare_keys(IDX *, UCHAR *, USHORT, KEY *, USHORT);
+#ifdef SCROLLABLE_CURSORS
+static void expand_index(WIN *);
+#endif
+#ifdef PC_ENGINE
+static BOOLEAN find_dbkey(RSB, ULONG);
+static BOOLEAN find_record(RSB, RSE_GET_MODE, KEY *, USHORT, USHORT);
+#endif
+static BTX find_current(EXP, BTR, BTN);
+static BOOLEAN find_saved_node(RSB, IRSB_NAV, WIN *, BTN *);
+static BTN get_position(TDBB, RSB, IRSB_NAV, WIN *, RSE_GET_MODE, BTX *);
+static BOOLEAN get_record(RSB, IRSB_NAV, RPB *, KEY *, BOOLEAN);
+static void init_fetch(IRSB_NAV);
+static BTN nav_open(TDBB, RSB, IRSB_NAV, WIN *, RSE_GET_MODE, BTX *);
+static void set_position(IRSB_NAV, RPB *, WIN *, BTN, BTX, UCHAR *, USHORT);
+static void setup_bitmaps(RSB, IRSB_NAV);
+
+
+#ifdef SCROLLABLE_CURSORS
+EXP NAV_expand_index(register WIN * window, IRSB_NAV impure)
+{
+/**************************************
+ *
+ *	N A V _ e x p a n d _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a window with a btree leaf page loaded into it, 
+ *	expand the index page into a form that facilitates walking
+ *	backward through it.  Each node's data is decompressed.  
+ *	Since the prefix field is not needed, it contains an offset to 
+ *	the prior node.
+ *
+ *	If an impure pointer is passed, set the current node on the 
+ *	expanded page to match that on the corresponding btree page.
+ *
+ **************************************/
+	BTR page;
+	EXP expanded_page;
+	BTN node, end, current_node;
+	BTX expanded_node, prior_expanded_node;
+	KEY key;
+	UCHAR *p, *q;
+	USHORT l;
+
+/* allocate the expanded page to allow room for all nodes fully expanded,
+   plus leave room for an extra node with zero-length tail
+   (note that the difference in size of a BTX node versus a BTN node could
+   be deducted, but there is no easy way to get the no. of nodes on page) */
+
+/* if the right version of expanded page is available, there 
+ * is no work to be done 
+ */
+
+	if ((expanded_page = window->win_expanded_buffer) &&
+		(expanded_page->exp_incarnation == CCH_get_incarnation(window)))
+		return expanded_page;
+
+/* If different incarnation, reallocate the page */
+
+	if (expanded_page)
+		ALL_free(expanded_page);
+
+	page = (BTR) window->win_buffer;
+
+	expanded_page = (EXP) ALL_malloc(EXP_SIZE + page->btr_prefix_total +
+									 (SLONG) page->btr_length + BTX_SIZE,
+									 ERR_jmp);
+	window->win_expanded_buffer = expanded_page;
+	expanded_page->exp_incarnation = -1;
+
+	expand_index(window);
+
+	if (!impure)
+		return expanded_page;
+
+/* go through the nodes on the original page and reposition */
+
+	node = (BTN) page->btr_nodes;
+	expanded_node = (BTX) expanded_page->exp_nodes;
+
+	current_node = (BTN) ((UCHAR *) page + impure->irsb_nav_offset);
+	impure->irsb_nav_expanded_offset = -1;
+
+	for (end = LAST_NODE(page); node < end;) {
+		if (node == current_node)
+			impure->irsb_nav_expanded_offset =
+				(UCHAR *) expanded_node - (UCHAR *) expanded_page;
+
+		node = BTR_next_node(node, &expanded_node);
+	}
+
+	return expanded_page;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+BOOLEAN NAV_find_record(RSB rsb,
+						USHORT operator, USHORT direction, NOD find_key)
+{
+/**************************************
+ *
+ *	N A V _ f i n d _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a record with the specified key value
+ *	in a stream opened on a navigational index.
+ *	This routine must set BOF, EOF, or CRACK.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	IRSB_NAV impure;
+	IDX *idx;
+	KEY key_value;
+	WIN window;
+	BTN expanded_node;
+	BOOLEAN backwards;
+	USHORT search_flags;
+
+	backwards = (direction == blr_backward
+				 || direction == blr_backward_starting);
+
+	if (direction == blr_forward_starting
+		|| direction == blr_backward_starting) search_flags = irb_starting;
+	else
+		search_flags = 0;
+
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+	impure = (IRSB_NAV) ((UCHAR *) request + rsb->rsb_impure);
+	window.win_flags = 0;
+
+	init_fetch(impure);
+	if (!impure->irsb_nav_page) {
+		nav_open(tdbb, rsb, impure, &window, RSE_get_forward, &expanded_node);
+		CCH_RELEASE(tdbb, &window);
+	}
+
+/* finding a record invalidates the visited records */
+
+	SBM_reset(&impure->irsb_nav_records_visited);
+
+	idx =
+		(IDX *) ((SCHAR *) impure + (SLONG) rsb->rsb_arg[RSB_NAV_idx_offset]);
+
+	if ((idx == NULL) ||
+		(find_key->nod_count == 0) ||
+		(find_key->nod_count > idx->idx_count)) ERR_post(gds__invalid_key, 0);
+
+	if (find_key->nod_count < idx->idx_count)
+		search_flags |= irb_partial;
+
+	BTR_make_key(tdbb, find_key->nod_count, &find_key->nod_arg[0], idx,
+				 &key_value, search_flags & irb_starting);
+
+/* save the key value */
+
+	impure->irsb_nav_length = key_value.key_length;
+	MOVE_FAST(key_value.key_data, impure->irsb_nav_data,
+			  key_value.key_length);
+
+/* for descending indices, reverse the sense of the comparison operator 
+   to simplify the following switch statement */
+
+	if (idx->idx_flags & idx_descending) {
+		if (operator == blr_lss)
+			operator = blr_gtr;
+		else if (operator == blr_leq)
+			operator = blr_geq;
+		else if (operator == blr_gtr)
+			operator = blr_lss;
+		else if (operator == blr_geq)
+			operator = blr_leq;
+	}
+
+/* find the proper record by comparing the passed key with the records in
+   the record stream, optimizing the fetch as best as possible by using the
+   index to get as close to the proper record as possible */
+
+	switch (operator) {
+	case blr_lss:
+		if (backwards)
+			/* find the first record before the given key value */
+		{
+			find_record(rsb, RSE_get_first, &key_value, find_key->nod_count,
+						search_flags);
+			return NAV_get_record(rsb, impure,
+								  request->req_rpb + rsb->rsb_stream,
+								  RSE_get_backward);
+		}
+		else
+			/* find the first record in the stream, assuming its key value is < the passed key */
+		{
+			nav_open(tdbb, rsb, impure, &window, RSE_get_forward,
+					 &expanded_node);
+			CCH_RELEASE(tdbb, &window);
+			if (!NAV_get_record
+				(rsb, impure, request->req_rpb + rsb->rsb_stream,
+				 RSE_get_forward)) return FALSE;
+
+			if (compare_keys
+				(idx, impure->irsb_nav_data, impure->irsb_nav_length,
+				 &key_value, search_flags) < 0)
+				return TRUE;
+			else {
+				RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+				return FALSE;
+			}
+		}
+/*	break;  unreachable */
+
+	case blr_leq:
+		if (backwards)
+			/* find the last record with the matching key; barring that, find the first less than */
+		{
+			if (find_record
+				(rsb, RSE_get_last, &key_value, find_key->nod_count,
+				 search_flags)) return TRUE;
+			return NAV_get_record(rsb, impure,
+								  request->req_rpb + rsb->rsb_stream,
+								  RSE_get_backward);
+		}
+		else
+			/* find the first record in the stream, assuming its key value is <= the passed key */
+		{
+			nav_open(tdbb, rsb, impure, &window, RSE_get_forward,
+					 &expanded_node);
+			CCH_RELEASE(tdbb, &window);
+			if (!NAV_get_record
+				(rsb, impure, request->req_rpb + rsb->rsb_stream,
+				 RSE_get_forward)) return FALSE;
+
+			if (compare_keys
+				(idx, impure->irsb_nav_data, impure->irsb_nav_length,
+				 &key_value, search_flags) <= 0)
+				return TRUE;
+			else {
+				RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+				return FALSE;
+			}
+		}
+/*	break;  unreachable */
+
+	case blr_eql:
+		if (find_record(rsb, backwards ? RSE_get_last : RSE_get_first,
+						&key_value, find_key->nod_count, search_flags))
+			return TRUE;
+		else {
+			/* We need to override the crack semantics of find_record, because even 
+			   if we go to EOF or BOF as a result of the find, this is defined as a
+			   crack.  On the other hand, we do need to retain a forced crack if 
+			   one was set.  bug #7024 */
+
+			if (impure->irsb_flags & irsb_forced_crack)
+				RSE_MARK_CRACK(tdbb, rsb, irsb_crack | irsb_forced_crack);
+			else
+				RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+			return FALSE;
+		}
+/*	break;  unreachable */
+
+	case blr_gtr:
+		if (backwards)
+			/* find the last record in the stream, assuming its key value is > the passed key */
+		{
+			nav_open(tdbb, rsb, impure, &window, RSE_get_backward,
+					 &expanded_node);
+			CCH_RELEASE(tdbb, &window);
+			if (!NAV_get_record
+				(rsb, impure, request->req_rpb + rsb->rsb_stream,
+				 RSE_get_backward)) return FALSE;
+
+			if (compare_keys
+				(idx, impure->irsb_nav_data, impure->irsb_nav_length,
+				 &key_value, search_flags) > 0)
+				return TRUE;
+			else {
+				RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+				return FALSE;
+			}
+		}
+		else
+			/* find the first record after the last matching record */
+		{
+			find_record(rsb, RSE_get_last, &key_value, find_key->nod_count,
+						search_flags);
+
+			/* special case when the key is greater than the last record in the file;
+			   stream is defined to be on EOF; see bug #6151 */
+
+			if (impure->irsb_flags & irsb_eof)
+				return FALSE;
+
+			return NAV_get_record(rsb, impure,
+								  request->req_rpb + rsb->rsb_stream,
+								  RSE_get_forward);
+		}
+/*	break;  unreachable */
+
+	case blr_geq:
+		if (backwards)
+			/* find the last record in the stream, assuming its key value is >= the passed key */
+		{
+			nav_open(tdbb, rsb, impure, &window, RSE_get_backward,
+					 &expanded_node);
+			CCH_RELEASE(tdbb, &window);
+			if (!NAV_get_record
+				(rsb, impure, request->req_rpb + rsb->rsb_stream,
+				 RSE_get_backward)) return FALSE;
+
+			if (compare_keys
+				(idx, impure->irsb_nav_data, impure->irsb_nav_length,
+				 &key_value, search_flags) >= 0)
+				return TRUE;
+			else {
+				RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+				return FALSE;
+			}
+		}
+		else
+			/* find the first record of matching key; barring that, find the first greater */
+		{
+			if (find_record
+				(rsb, RSE_get_first, &key_value, find_key->nod_count,
+				 search_flags)) return TRUE;
+
+			/* special case when the key is greater than the last record in the file;
+			   stream is defined to be on EOF; see bug #6151 */
+
+			if (impure->irsb_flags & irsb_eof)
+				return FALSE;
+
+			return NAV_get_record(rsb, impure,
+								  request->req_rpb + rsb->rsb_stream,
+								  RSE_get_forward);
+		}
+/*	break;  unreachable */
+	}
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void NAV_get_bookmark(RSB rsb, IRSB_NAV impure, BKM bookmark)
+{
+/**************************************
+ *
+ *	N A V _ g e t _ b o o k m a r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a descriptor containing a pointer
+ * 	to a bookmark data structure which describes
+ *	the current location of a navigational stream.
+ *
+ **************************************/
+
+/* store the info necessary to return to this location in the index */
+
+	bookmark->bkm_number = impure->irsb_nav_number;
+	bookmark->bkm_page = impure->irsb_nav_page;
+	bookmark->bkm_incarnation = impure->irsb_nav_incarnation;
+	bookmark->bkm_offset = impure->irsb_nav_offset;
+	bookmark->bkm_expanded_offset = impure->irsb_nav_expanded_offset;
+
+/* store the current key value, setting up the key descriptor to point at it */
+
+	bookmark->bkm_key_desc.dsc_dtype = dtype_text;
+	bookmark->bkm_key_desc.dsc_length = impure->irsb_nav_length;
+	bookmark->bkm_key_desc.dsc_address = bookmark->bkm_key_data;
+	MOVE_FAST(impure->irsb_nav_data, bookmark->bkm_key_data,
+			  impure->irsb_nav_length);
+}
+#endif
+
+
+BOOLEAN NAV_get_record(
+					   RSB rsb,
+					   IRSB_NAV impure, RPB * rpb, RSE_GET_MODE direction)
+{
+/**************************************
+ *
+ *	N A V _ g e t _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from a stream, either in
+ *	the forward or backward direction, or the
+ *	current record.  This routine must set 
+ *	BOF, EOF, or CRACK properly.
+ *
+ **************************************/
+	TDBB tdbb;
+	IDX *idx;
+	IRB retrieval;
+	NOD retrieval_node;
+	BTR page;
+	BTN node, next;
+	EXP expanded_page;
+	BTX expanded_node, expanded_next = NULL;
+	WIN window;
+	SLONG number;
+	USHORT l;
+	KEY key, upper, lower;
+	UCHAR *p, *q;
+	BOOLEAN page_changed = FALSE;
+
+	DEBUG;
+
+	tdbb = GET_THREAD_DATA;
+
+#ifdef SCROLLABLE_CURSORS
+/* before we do anything, check for the case where an ascending index 
+   was used to optimize a descending sort, or a descending index was 
+   used to optimize an ascending sort--in either case, we need to flip 
+   the nominal direction of navigation */
+
+	if (rsb->rsb_flags & rsb_descending)
+		if (direction == RSE_get_forward)
+			direction = RSE_get_backward;
+		else if (direction == RSE_get_backward)
+			direction = RSE_get_forward;
+#endif
+
+	init_fetch(impure);
+	idx =
+		(IDX *) ((SCHAR *) impure + (SLONG) rsb->rsb_arg[RSB_NAV_idx_offset]);
+
+/* The bitmap is only valid when we are continuing on in one 
+   direction.  It is of no help when we change direction,
+   and so we need to reset in that case. */
+
+	if (((impure->irsb_flags & irsb_backwards)
+		 && direction != RSE_get_backward)
+		|| (!(impure->irsb_flags & irsb_backwards)
+			&& direction != RSE_get_forward))
+		SBM_reset(&impure->irsb_nav_records_visited);
+
+	if (direction == RSE_get_forward)
+		impure->irsb_flags &= ~irsb_backwards;
+	else if (direction == RSE_get_backward)
+		impure->irsb_flags |= irsb_backwards;
+
+/* find the last fetched position from the index */
+
+	window.win_page = impure->irsb_nav_page;
+	window.win_flags = 0;
+	next =
+		get_position(tdbb, rsb, impure, &window, direction, &expanded_next);
+	MOVE_FAST(impure->irsb_nav_data, key.key_data, impure->irsb_nav_length);
+	retrieval_node = (NOD) rsb->rsb_arg[RSB_NAV_index];
+	retrieval = (IRB) retrieval_node->nod_arg[e_idx_retrieval];
+
+/* set the upper (or lower) limit for navigational retrieval */
+
+	if ((direction == RSE_get_forward) && retrieval->irb_upper_count) {
+		upper.key_length = impure->irsb_nav_upper_length;
+#ifdef SCROLLABLE_CURSORS
+		MOVE_FAST(
+				  (impure->irsb_nav_data +
+				   (2 * (SLONG) rsb->rsb_arg[RSB_NAV_key_length])),
+				  upper.key_data, upper.key_length);
+#else
+		MOVE_FAST(
+				  (impure->irsb_nav_data +
+				   (SLONG) rsb->rsb_arg[RSB_NAV_key_length]), upper.key_data,
+				  upper.key_length);
+#endif
+	}
+	else if ((direction == RSE_get_backward) && retrieval->irb_lower_count) {
+		lower.key_length = impure->irsb_nav_lower_length;
+		MOVE_FAST(
+				  (impure->irsb_nav_data +
+				   (SLONG) rsb->rsb_arg[RSB_NAV_key_length]), lower.key_data,
+				  lower.key_length);
+	}
+
+/* In the case of a DISTINCT, we must detect whether the key changed since the last 
+   time a record was returned from the rsb.  It is not good enough to know whether the 
+   key changed since the last node in the index, because the record represented 
+   by the last index node may not have satisfied some boolean expression on the rsb.  
+   So to find out whether the key has changed since the last time a record was actually 
+   returned from the rsb, we save the record count each time we return a candidate record, 
+   and see if the count is updated the next time we get here.
+
+   If the count has been updated, we know the record has been returned from the rsb, and 
+   the index key must change before we can return another DISTINCT record candidate.  If 
+   the last candidate did not qualify, we know we should return another record no matter 
+   what.  */
+
+	if (rsb->rsb_record_count != impure->irsb_nav_count) {
+		impure->irsb_flags &= ~irsb_key_changed;
+		impure->irsb_nav_count = rsb->rsb_record_count;
+	}
+	else
+		impure->irsb_flags |= irsb_key_changed;
+
+/* Find the next interesting node.  If necessary, skip to the next page */
+
+	for (;;) {
+		node = next;
+		expanded_node = expanded_next;
+		if (node)
+			number =
+				BTR_get_quad(reinterpret_cast < char *>(BTN_NUMBER(node)));
+		page = (BTR) window.win_buffer;
+
+#ifdef SCROLLABLE_CURSORS
+		/* in the backwards case, check to make sure we haven't hit the 
+		   beginning of a page, and if so fetch the left sibling page. */
+
+		if (direction == RSE_get_backward) {
+			if (node < (BTN) page->btr_nodes) {
+				expanded_page = window.win_expanded_buffer;
+
+				if (!page->btr_left_sibling) {
+					impure->irsb_flags |= irsb_bof;
+					break;
+				}
+
+				page = BTR_left_handoff(tdbb, &window, page, LCK_read);
+
+#ifdef PC_ENGINE
+				RNG_add_page(window.win_page);
+#endif
+				expanded_page = NAV_expand_index(&window, 0);
+				next = BTR_last_node(page, expanded_page, &expanded_next);
+
+				page_changed = TRUE;
+				continue;
+			}
+		}
+		else
+			/* In the forwards case, check for end of page.  If we find
+			   it, do a simple handoff to the right sibling page. */
+#endif
+		{
+			if (number == END_LEVEL) {
+				impure->irsb_flags |= irsb_eof;
+				break;
+			}
+			if (number == END_BUCKET) {
+				page = (BTR) window.win_buffer;
+				page =
+					(BTR) CCH_HANDOFF(tdbb, &window, page->btr_sibling,
+									  LCK_read, pag_index);
+#ifdef PC_ENGINE
+				RNG_add_page(window.win_page);
+#endif
+				next = (BTN) page->btr_nodes;
+				if (expanded_page = window.win_expanded_buffer)
+					expanded_next = (BTX) expanded_page->exp_nodes;
+
+				page_changed = TRUE;
+				continue;
+			}
+
+#ifdef IGNORE_NULL_IDX_KEY
+			if (number == END_NON_NULL) {
+				if (retrieval->irb_generic & irb_ignore_null_value_key) {
+					/* we have reached the END_NON_NULL marker. Return since we are
+					   * not interested in the remaining nodes.
+					 */
+					RSE_MARK_CRACK(tdbb, rdb, irsb_crack);
+					break;
+				}
+				else {
+					/* ignore this node, and go to the next one */
+					next = BTR_next_node(node, &expanded_node);
+					expanded_next = expanded_node;
+					continue;
+				}
+			}
+#endif /* IGNORE_NULL_IDX_KEY */
+
+		}
+
+		/* In the project (DISTINCT) case, we need to determine if the key has changed
+		   since the last record that was returned from the rsb.  That means that we must 
+		   know what the key was for that record
+
+
+		   in the case where we are on the same page, 
+		   we simply check to see if there is any data in the node;  if we are on a new 
+		   page, we must compare this node with the last key we saw 
+		   NOTE: the optimizer only uses indices which have the same number of fields as 
+		   those in the DISTINCT clause; there's no reason we couldn't use an index which 
+		   has extra fields to the right, we just need to add some code to check 
+		   when only the first n segment(s) of the key has changed, rather than the whole key */
+
+		if (rsb->rsb_flags & rsb_project) {
+			if (page_changed) {
+				if (BTN_LENGTH(node) != key.key_length)
+					impure->irsb_flags |= irsb_key_changed;
+				else {
+					p = key.key_data;
+					q = BTN_DATA(node);
+					for (l = key.key_length; l; l--)
+						if (*p++ != *q++)
+							break;
+					if (l)
+						impure->irsb_flags |= irsb_key_changed;
+				}
+			}
+			else if (BTN_LENGTH(node))
+				impure->irsb_flags |= irsb_key_changed;
+		}
+		page_changed = FALSE;
+
+		/* Build the current key value from the prefix and current node data. */
+
+		if (expanded_node) {
+			if (l = BTN_LENGTH(node) + BTN_PREFIX(node)) {
+				p = key.key_data;
+				q = expanded_node->btx_data;
+				do
+					*p++ = *q++;
+				while (--l);
+			}
+
+		}
+		else {
+			if (l = BTN_LENGTH(node)) {
+				p = key.key_data + BTN_PREFIX(node);
+				q = BTN_DATA(node);
+				do
+					*p++ = *q++;
+				while (--l);
+			}
+		}
+
+		key.key_length = BTN_LENGTH(node) + BTN_PREFIX(node);
+
+		/* Make sure we haven't hit the upper (or lower) limit. */
+
+		if ((direction == RSE_get_forward) && retrieval->irb_upper_count &&
+			compare_keys(idx, key.key_data, key.key_length, &upper,
+						 retrieval->irb_generic & (irb_descending |
+												   irb_partial |
+												   irb_starting)) > 0) {
+			RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+			break;
+		}
+
+		if ((direction == RSE_get_backward) && retrieval->irb_lower_count &&
+			compare_keys(idx, key.key_data, key.key_length, &lower,
+						 retrieval->irb_generic & (irb_descending |
+												   irb_partial |
+												   irb_starting)) < 0) {
+			RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+			break;
+		}
+
+		/* skip this record if:
+		   1) there is an inversion tree for this index and this record
+		   is not in the bitmap for the inversion, or
+		   2) the record has already been visited, or
+		   3) this is a projection and the new node is the same as the last */
+
+		if ((rsb->rsb_arg[RSB_NAV_inversion] &&
+			 (!impure->irsb_nav_bitmap
+			  || !SBM_test(*impure->irsb_nav_bitmap, number)))
+			|| SBM_test(impure->irsb_nav_records_visited, number)
+			|| ((rsb->rsb_flags & rsb_project)
+				&& !(impure->irsb_flags & irsb_key_changed))) {
+			if (direction == RSE_get_backward) {
+				next = BTR_previous_node(node, &expanded_node);
+				expanded_next = expanded_node;
+				continue;
+			}
+			else if (direction == RSE_get_forward
+					 && !(impure->irsb_flags & irsb_forced_crack)) {
+				next = BTR_next_node(node, &expanded_node);
+				expanded_next = expanded_node;
+				continue;
+			}
+		}
+
+		/* reset the current navigational position in the index */
+
+		rpb->rpb_number = number;
+#ifdef PC_ENGINE
+		if (direction != RSE_get_current)
+#endif
+			set_position(impure, rpb, &window, node, expanded_node,
+						 key.key_data, key.key_length);
+
+		CCH_RELEASE(tdbb, &window);
+
+		if (get_record(rsb, impure, rpb, &key, FALSE)) {
+#ifdef PC_ENGINE
+			if (impure->irsb_flags & irsb_refresh)
+				RNG_add_record(rpb);
+#endif
+			return TRUE;
+		}
+
+#ifdef PC_ENGINE
+		/* if we're here, we didn't find the record at the current position, 
+		   so it must have been deleted out from under us; by definition we
+		   are on a crack (already marked by get_record()) */
+
+		if (direction == RSE_get_current)
+			return FALSE;
+#endif
+
+		next =
+			get_position(tdbb, rsb, impure, &window, direction,
+						 &expanded_next);
+	}
+
+	CCH_RELEASE(tdbb, &window);
+
+/* crack, bof, or eof must have been set at this point */
+
+	return FALSE;
+}
+
+
+#ifdef PC_ENGINE
+BOOLEAN NAV_reset_position(RSB rsb, RPB * new_rpb)
+{
+/**************************************
+ *
+ *	N A V _ r e s e t _ p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset the stream represented by the passed 
+ *	rsb to the record indicated by the passed rpb.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	KEY key_value;
+	IRSB_NAV impure;
+	IDX *idx;
+	WIN window;
+	BTN expanded_node;
+	ULONG record_number;
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+	impure = (IRSB_NAV) ((UCHAR *) request + rsb->rsb_impure);
+	window.win_flags = 0;
+
+	init_fetch(impure);
+	if (!impure->irsb_nav_page) {
+		nav_open(tdbb, rsb, impure, &window, RSE_get_current, &expanded_node);
+		CCH_RELEASE(tdbb, &window);
+	}
+
+/* resetting the stream invalidates the visited records */
+
+	SBM_reset(&impure->irsb_nav_records_visited);
+
+	idx =
+		(IDX *) ((SCHAR *) impure + (SLONG) rsb->rsb_arg[RSB_NAV_idx_offset]);
+
+/* save the record number, in case the passed new_rpb is 
+   the same as the one on the rpb, in which case it will 
+   be updated by find_record()--bug #7426 */
+
+	record_number = new_rpb->rpb_number;
+
+/* find the key value of the new position, and set the stream to it */
+
+	BTR_key(tdbb, new_rpb->rpb_relation, new_rpb->rpb_record, idx,
+			&key_value);
+	if (!find_record(rsb, RSE_get_first, &key_value, idx->idx_count,	/* XXX */
+					 0))
+		return FALSE;
+
+/* now find the dbkey of the new record within the 
+   duplicates of this key value */
+
+	return find_dbkey(rsb, record_number);
+}
+#endif
+
+
+#ifdef PC_ENGINE
+BOOLEAN NAV_set_bookmark(RSB rsb, IRSB_NAV impure, RPB * rpb, BKM bookmark)
+{
+/**************************************
+ *
+ *	N A V _ s e t _ b o o k m a r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up the impure area so that the current 
+ *	position of the stream is that of the 
+ *	stored bookmark.
+ *
+ **************************************/
+
+/* setting to bookmark invalidates the visited records */
+
+	SBM_reset(&impure->irsb_nav_records_visited);
+
+/* save the bookmark state in the impure area for the stream */
+
+	impure->irsb_nav_number = bookmark->bkm_number;
+	impure->irsb_nav_incarnation = bookmark->bkm_incarnation;
+	impure->irsb_nav_offset = bookmark->bkm_offset;
+	impure->irsb_nav_expanded_offset = bookmark->bkm_expanded_offset;
+
+/* assuming we had already fetched a page when 
+   we set the bookmark, make sure the "first" flag
+   is not set so that we don't reopen the stream--bug 5709 */
+
+	if (impure->irsb_nav_page = bookmark->bkm_page)
+		impure->irsb_flags &= ~irsb_first;
+
+/* store the current key value, setting up the key descriptor to point at it */
+
+	impure->irsb_nav_length = bookmark->bkm_key_desc.dsc_length;
+	MOVE_FAST(bookmark->bkm_key_data, impure->irsb_nav_data,
+			  bookmark->bkm_key_desc.dsc_length);
+
+	if (impure->irsb_flags & (irsb_bof | irsb_eof | irsb_crack))
+		return FALSE;
+
+/* if we didn't find the record, it must have been deleted 
+   from under us; the desired semantics is to be on a crack 
+   at the previous position of the record */
+
+	return NAV_get_record(rsb, impure, rpb, RSE_get_current);
+}
+#endif
+
+
+static SSHORT compare_keys(
+						   IDX * idx,
+						   UCHAR * key_string1,
+						   USHORT length1, KEY * key2, USHORT flags)
+{
+/**************************************
+ *      
+ *	c o m p a r e _ k e y s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two index keys. 
+ *	If a partial key comparison is specified, 
+ *	ensure that the shorter key (the second 
+ *	one) matches segment-by-segment with the 
+ *	index key.
+ *
+ **************************************/
+	UCHAR *string1, *string2, *segment;
+	USHORT length2, l, remainder;
+	idx::idx_repeat * tail;
+
+	string1 = key_string1;
+	string2 = key2->key_data;
+	length2 = key2->key_length;
+
+	if (l = MIN(length1, length2))
+		do
+			if (*string1++ != *string2++)
+				return (string1[-1] < string2[-1]) ? -1 : 1;
+		while (--l);
+
+/* if the keys are identical, return 0 */
+
+	if (length1 == length2)
+		return 0;
+
+/* do a partial key search; if the index is a compound key,
+   check to see if the segments are matching--for character
+   fields, do partial matches within a segment if irb_starting
+   is specified, for other types do only matches on the entire segment */
+
+	if ((flags & (irb_partial | irb_starting)) && (length1 > length2)) {
+		/* figure out what segment we're on; if it's a 
+		   character segment we've matched the partial string */
+
+		if (idx->idx_count > 1) {
+			segment =
+				key_string1 +
+				((length2 - 1) / (STUFF_COUNT + 1)) * (STUFF_COUNT + 1);
+			tail = idx->idx_rpt + (idx->idx_count - *segment);
+		}
+		else
+			tail = &idx->idx_rpt[0];
+
+		/* If it's a string type key, and we're allowing "starting with" fuzzy
+		 * type matching, we're done
+		 */
+		if ((flags & irb_starting) &&
+			(tail->idx_itype == idx_string ||
+			 tail->idx_itype == idx_byte_array ||
+			 tail->idx_itype == idx_metadata ||
+			 tail->idx_itype >= idx_first_intl_string)) return 0;
+
+
+		if (idx->idx_count > 1) {
+			/* if we've exhausted the segment, we've found a match */
+
+			if (!(remainder = length2 % (STUFF_COUNT + 1)) &&
+				(*string1 != *segment)) return 0;
+
+			/* if the rest of the key segment is 0's, we've found a match */
+
+			if (remainder) {
+				for (remainder = STUFF_COUNT + 1 - remainder; remainder;
+					 remainder--)
+					if (*string1++)
+						break;
+
+				if (!remainder)
+					return 0;
+			}
+		}
+	}
+
+	if (flags & irb_descending)
+		return (length1 < length2) ? 1 : -1;
+	else
+		return (length1 < length2) ? -1 : 1;
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+static void expand_index(register WIN * window)
+{
+/**************************************
+ *
+ *	e x p a n d _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a window with a btree leaf page loaded into it, 
+ *	expand the index page into a form that facilitates walking
+ *	backward through it.  Each node's data is decompressed.  
+ *	Since the prefix field is not needed, it contains an offset to 
+ *	the prior node.
+ *
+ **************************************/
+	BTR page;
+	EXP expanded_page;
+	BTN node, end, prior_node, current_node;
+	BTX expanded_node, prior_expanded_node;
+	KEY key;
+	UCHAR *p, *q;
+	USHORT l;
+
+
+	page = (BTR) window->win_buffer;
+	expanded_page = window->win_expanded_buffer;
+	expanded_page->exp_incarnation = CCH_get_incarnation(window);
+
+/* go through the nodes on the original page and expand them */
+
+	node = (BTN) page->btr_nodes;
+	expanded_node = (BTX) expanded_page->exp_nodes;
+	prior_node = NULL;
+
+	for (end = LAST_NODE(page); node < end;) {
+		for (p = key.key_data + BTN_PREFIX(node), q = BTN_DATA(node), l =
+			 BTN_LENGTH(node); l; l--)
+			*p++ = *q++;
+		l = BTN_LENGTH(node) + BTN_PREFIX(node);
+		for (p = expanded_node->btx_data, q = key.key_data; l; l--)
+			*p++ = *q++;
+
+		/* point back to the prior nodes on the expanded page and the btree page */
+
+		expanded_node->btx_btr_previous_length =
+			prior_node ? BTN_LENGTH(prior_node) : 0;
+		expanded_node->btx_previous_length =
+			prior_node ? BTN_LENGTH(prior_node) + BTN_PREFIX(prior_node) : 0;
+
+		prior_node = node;
+
+		node = BTR_next_node(node, &expanded_node);
+	}
+
+/* insert one additional expanded node to keep track of the length of the
+   last node on page--this is necessary because the end of bucket marker
+   contains the length and key of the first node on the next page */
+
+	expanded_node->btx_btr_previous_length =
+		prior_node ? BTN_LENGTH(prior_node) : 0;
+	expanded_node->btx_previous_length =
+		prior_node ? BTN_LENGTH(prior_node) + BTN_PREFIX(prior_node) : 0;
+
+	expanded_page->exp_length =
+		(UCHAR *) expanded_node - (UCHAR *) expanded_page + BTX_SIZE;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+static BOOLEAN find_dbkey(RSB rsb, ULONG record_number)
+{
+/**************************************
+ *
+ *	f i n d _ d b k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look for the record with the passed dbkey in the
+ *	set of records with key value equal to the current 
+ *	record's key.  This is used to find a particular
+ *	record within a set of equivalent keys.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	IRSB_NAV impure;
+	RPB *rpb;
+	WIN window;
+	BTN node;
+	BTX expanded_node = NULL;
+	KEY key;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+	impure = (IRSB_NAV) ((UCHAR *) request + rsb->rsb_impure);
+	rpb = request->req_rpb + rsb->rsb_stream;
+
+	init_fetch(impure);
+
+/* if we're on a crack, this isn't going very far */
+
+	if (impure->irsb_flags & (irsb_bof | irsb_eof | irsb_crack))
+		return FALSE;
+
+/* find the last fetched position from the index,
+   and get the current key value */
+
+	window.win_page = impure->irsb_nav_page;
+	window.win_flags = 0;
+	node =
+		get_position(tdbb, rsb, impure, &window, RSE_get_current,
+					 &expanded_node);
+	MOVE_FAST(impure->irsb_nav_data, key.key_data, impure->irsb_nav_length);
+	key.key_length = impure->irsb_nav_length;
+
+/* In case of an error, we still need to release the window we hold
+ * during the parse.  See HACKs for bug 7041
+ */
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		CCH_RELEASE(tdbb, &window);
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		LONGJMP(old_env, -1);
+	}
+
+/* loop through the equivalent values of the given key, looking for a
+   record which matches the passed dbkey */
+
+	for (;;) {
+		rpb->rpb_number = BTR_get_quad(BTN_NUMBER(node));
+
+		/* if we find an index entry with the proper dbkey, try to fetch the record */
+
+		if (rpb->rpb_number == record_number) {
+			if (get_record(rsb, impure, rpb, &key, TRUE)) {
+				set_position(impure, rpb, &window, node, expanded_node,
+							 key.key_data, key.key_length);
+				CCH_RELEASE(tdbb, &window);
+				tdbb->tdbb_setjmp = (UCHAR *) old_env;
+				return TRUE;
+			}
+
+			CCH_RELEASE(tdbb, &window);
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			return FALSE;
+		}
+
+		/* go to the next node; if we find a non-equivalent node, give up */
+
+		node = BTR_next_node(node, &expanded_node);
+		if (BTN_LENGTH(node)) {
+			CCH_RELEASE(tdbb, &window);
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			return FALSE;
+		}
+	}
+}
+#endif
+
+
+#ifdef PC_ENGINE
+static BOOLEAN find_record(
+						   RSB rsb,
+						   RSE_GET_MODE mode,
+						   KEY * find_key,
+						   USHORT find_count, USHORT search_flags)
+{
+/**************************************
+ *
+ *	f i n d _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a record with the specified key value
+ *	in a stream opened on a navigational index.
+ *	Depending on the mode, get the first or 
+ *	last value with the given key.  This routine
+ *	must handle CRACK semantics.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	IRSB_NAV impure;
+	RPB *rpb;
+	NOD retrieval_node;
+	IRB retrieval;
+	IDX *idx;
+	BTR page;
+	WIN window;
+	BTN node;
+	EXP expanded_page;
+	BTX expanded_node;
+	KEY lower, upper, *tmp, value;
+	USHORT upper_count, lower_count;
+	BOOLEAN result = FALSE, position_set = FALSE;
+	UCHAR *p, *q;
+	USHORT l;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+	impure = (IRSB_NAV) ((UCHAR *) request + rsb->rsb_impure);
+	rpb = request->req_rpb + rsb->rsb_stream;
+	window.win_flags = 0;
+
+	retrieval_node = (NOD) rsb->rsb_arg[RSB_NAV_index];
+	retrieval = (IRB) retrieval_node->nod_arg[e_idx_retrieval];
+
+/* save the current equality retrieval key */
+
+	tmp = retrieval->irb_key;
+	lower_count = retrieval->irb_lower_count;
+	upper_count = retrieval->irb_upper_count;
+
+/* find the page that the key value should be on */
+
+	retrieval->irb_key = find_key;
+	retrieval->irb_upper_count = retrieval->irb_lower_count = find_count;
+
+	idx =
+		(IDX *) ((SCHAR *) impure + (SLONG) rsb->rsb_arg[RSB_NAV_idx_offset]);
+	page =
+		BTR_find_page(tdbb, retrieval, &window, idx, &lower, &upper, FALSE);
+
+/* restore the saved equality retrieval key */
+
+	retrieval->irb_key = tmp;
+	retrieval->irb_lower_count = lower_count;
+	retrieval->irb_upper_count = upper_count;
+
+/* find the appropriate leaf node */
+
+	while (!(node = BTR_find_leaf(page, find_key, impure->irsb_nav_data,
+								  0, idx->idx_flags & idx_descending, TRUE)))
+		page =
+			(BTR) CCH_HANDOFF(tdbb, &window, page->btr_sibling, LCK_read,
+							  pag_index);
+
+	if (expanded_page = window.win_expanded_buffer)
+		expanded_node = find_current(expanded_page, page, node);
+	else
+		expanded_node = NULL;
+
+/* seed the key value with the prefix seen up to the current key */
+
+	MOVE_FAST(impure->irsb_nav_data, value.key_data, BTN_PREFIX(node));
+
+/* In case of an error, we still need to release the window we hold
+ * during the parse.  See HACKs for bug 7041
+ */
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		CCH_RELEASE(tdbb, &window);
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		LONGJMP(old_env, -1);
+	}
+
+/* loop through the equivalent values of the given key, finding
+   a valid record if possible; for RSE_get_last, save the last
+   valid record and keep looking for more
+
+   NOTE: this whole process could be made more efficient if we 
+   implemented a means of finding the last index key via 
+   BTR_find_page() and BTR_find_leaf(), then proceeding backwards
+   to find a valid record -deej */
+
+	for (;;) {
+		rpb->rpb_number = BTR_get_quad(BTN_NUMBER(node));
+
+		/* if we have gone past the search key value, stop looking */
+
+		if (rpb->rpb_number == END_LEVEL) {
+			CCH_RELEASE(tdbb, &window);
+			RSE_MARK_CRACK(tdbb, rsb, irsb_eof);
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			return FALSE;
+		}
+
+		if (rpb->rpb_number == END_BUCKET) {
+			page =
+				(BTR) CCH_HANDOFF(tdbb, &window, page->btr_sibling, LCK_read,
+								  pag_index);
+			node = (BTN) page->btr_nodes;
+
+			if (expanded_page = window.win_expanded_buffer)
+				expanded_node = (BTX) expanded_page->exp_nodes;
+			continue;
+		}
+
+#ifdef IGNORE_NULL_IDX_KEY
+		if (rpb->rpb_number == END_NON_NULL) {
+			/* ignore this node, and go to the next one. */
+			node = BTR_next_node(node, &expanded_node);
+			continue;
+		}
+#endif /* IGNORE_NULL_IDX_KEY */
+
+		/* update the current stored key value */
+
+		value.key_length = BTN_LENGTH(node) + BTN_PREFIX(node);
+		p = value.key_data + BTN_PREFIX(node);
+		q = BTN_DATA(node);
+		for (l = BTN_LENGTH(node); l--;)
+			*p++ = *q++;
+
+		/* if the index key is greater than the search key, we didn't find the key */
+
+		if (compare_keys
+			(idx, value.key_data, value.key_length, find_key,
+			 search_flags) > 0) {
+			/* if we never saw a valid record, mark as a forced crack so that
+			   we will be at a position before the current record */
+
+			if (!position_set) {
+				set_position(impure, rpb, &window, node, expanded_node,
+							 value.key_data, value.key_length);
+				RSE_MARK_CRACK(tdbb, rsb, irsb_crack | irsb_forced_crack);
+			}
+
+			CCH_RELEASE(tdbb, &window);
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			return result;
+		}
+
+		/* anytime we successfully retrieve a record, set position 
+		   to it in case we go past a viable record in looking for
+		   the last record of equivalent key */
+
+		if (result = get_record(rsb, impure, rpb, &value, TRUE)) {
+			set_position(impure, rpb, &window, node, expanded_node,
+						 value.key_data, value.key_length);
+			position_set = TRUE;
+		}
+
+		/* if we're looking for the first record, we're done */
+
+		if (result && mode == RSE_get_first) {
+			CCH_RELEASE(tdbb, &window);
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			return result;
+		}
+
+		node = BTR_next_node(node, &expanded_node);
+	}
+}
+#endif
+
+
+static BTX find_current(EXP expanded_page, BTR page, BTN current_node)
+{
+/**************************************
+ *
+ *	f i n d _ c u r r e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the current location in the expanded
+ *	index buffer according to its corresponding
+ *	btree page.
+ *
+ **************************************/
+	BTN node, end;
+	BTX expanded_node;
+
+	if (!expanded_page)
+		return NULL;
+
+	expanded_node = expanded_page->exp_nodes;
+
+	for (node = page->btr_nodes, end = LAST_NODE(page); node < end;
+		 node = NEXT_NODE(node)) {
+		if (node == current_node)
+			return expanded_node;
+
+		expanded_node = NEXT_EXPANDED(expanded_node, node);
+	}
+
+	return NULL;
+}
+
+
+static BOOLEAN find_saved_node(
+							   RSB rsb,
+							   IRSB_NAV impure,
+							   WIN * window, BTN * return_node)
+{
+/**************************************
+ *
+ *	f i n d _ s a v e d _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	A page has changed.  Find the new position of the 
+ *	previously stored node.  The node could even be on 
+ *	a sibling page if the page has split.  If we find
+ *	the actual node, return TRUE.
+ *
+ **************************************/
+	IDX *idx;
+	BTR page;
+	BTN node, end;
+	SLONG number;
+	KEY key;
+	UCHAR *p, *q;
+	USHORT l;
+	int result;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	idx =
+		(IDX *) ((SCHAR *) impure + (SLONG) rsb->rsb_arg[RSB_NAV_idx_offset]);
+	page = (BTR) CCH_FETCH(tdbb, window, LCK_read, pag_index);
+
+/* the outer loop goes through all the sibling pages
+   looking for the node (in case the page has split);
+   the inner loop goes through the nodes on each page */
+
+	while (TRUE)
+		for (node = page->btr_nodes, end = LAST_NODE(page); node < end;
+			 node = NEXT_NODE(node)) {
+			number =
+				BTR_get_quad(reinterpret_cast < char *>(BTN_NUMBER(node)));
+			if (number == END_LEVEL) {
+				*return_node = node;
+				return FALSE;
+			}
+			if (number == END_BUCKET) {
+				page =
+					(BTR) CCH_HANDOFF(tdbb, window, page->btr_sibling,
+									  LCK_read, pag_index);
+				break;
+			}
+#ifdef IGNORE_NULL_IDX_KEY
+			if (number == END_NON_NULL) {
+				/* ignore this node, and go to the next one. */
+				continue;
+			}
+#endif /* IGNORE_NULL_IDX_KEY */
+
+			/* maintain the running key value and compare it with the stored value */
+
+			if (l = BTN_LENGTH(node)) {
+				p = key.key_data + BTN_PREFIX(node);
+				q = BTN_DATA(node);
+				do
+					*p++ = *q++;
+				while (--l);
+			}
+			key.key_length = BTN_LENGTH(node) + BTN_PREFIX(node);
+			result =
+				compare_keys(idx, impure->irsb_nav_data,
+							 impure->irsb_nav_length, &key, FALSE);
+
+			/* if the keys are equal, return this node even if it is just a duplicate node;
+			   duplicate nodes that have already been returned will be filtered out at a 
+			   higher level by checking the sparse bit map of records already returned, and
+			   duplicate nodes that were inserted before the stored node can be
+			   safely returned since their position in the index is arbitrary */
+
+			if (!result) {
+				*return_node = node;
+				if (number == impure->irsb_nav_number)
+					return TRUE;
+				else
+					return FALSE;
+			}
+
+			/* if the stored key is less than the current key, then the stored key
+			   has been deleted from the index and we should just return the next 
+			   key after it */
+
+			if (result < 0) {
+				*return_node = node;
+				return FALSE;
+			}
+		}
+}
+
+
+static BTN get_position(
+						TDBB tdbb,
+						RSB rsb,
+						IRSB_NAV impure,
+						WIN * window,
+						RSE_GET_MODE direction, BTX * expanded_node)
+{
+/**************************************
+ *
+ *	g e t _ p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Re-fetch B-tree page and reposition the node pointer to where
+ *	we left off.  If the page has been sitting in cache unchanged
+ *	since we were there last, this is easy and cheap.  If there's
+ *	any chance the page has changed, we need to resynch.
+ *
+ **************************************/
+	SLONG incarnation;
+	BTR page;
+	BTN node;
+	EXP expanded_page = NULL;
+	BOOLEAN found;
+
+	SET_TDBB(tdbb);
+
+/* If this is the first time, start at the beginning (or the end) */
+
+	if (!window->win_page || impure->irsb_flags & (irsb_bof | irsb_eof))
+		return nav_open(tdbb, rsb, impure, window, direction, expanded_node);
+
+#ifdef PC_ENGINE
+/* if we are on a forced crack, don't really get the next node in 
+   the forward direction, since we are really supposed to be on a
+   position before the current node */
+
+	if ((impure->irsb_flags & irsb_forced_crack)
+		&& (direction == RSE_get_forward))
+		direction = RSE_get_current;
+#endif
+
+/* Re-fetch page and get incarnation counter */
+
+	page = (BTR) CCH_FETCH(tdbb, window, LCK_read, pag_index);
+
+#ifdef SCROLLABLE_CURSORS
+/* we must ensure that if we are going backwards, we always 
+   have an expanded buffer (and a valid position on that page) */
+
+	if (direction == RSE_get_backward)
+		NAV_expand_index(window, impure);
+	expanded_page = window->win_expanded_buffer;
+#endif
+
+	incarnation = CCH_get_incarnation(window);
+	if (incarnation == impure->irsb_nav_incarnation) {
+		node = (BTN) ((UCHAR *) page + impure->irsb_nav_offset);
+		if (!expanded_page)		/* theoretically impossible */
+			*expanded_node = NULL;
+		else if (impure->irsb_nav_expanded_offset < 0)	/* position unknown or invalid */
+			*expanded_node = find_current(expanded_page, page, node);
+		else
+			*expanded_node =
+				(BTX) ((UCHAR *) expanded_page +
+					   impure->irsb_nav_expanded_offset);
+
+		/* The new way of doing things is to have the current
+		   nav_offset be the last node fetched.  Go forward or
+		   backward from that point accordingly. */
+
+		if (direction == RSE_get_backward)
+			node = BTR_previous_node(node, expanded_node);
+		else if (direction == RSE_get_forward)
+			node = BTR_next_node(node, expanded_node);
+		return node;
+	}
+
+/* Page is presumably changed.  If there is a previous
+   stored position in the page, go back to it if possible. */
+
+	CCH_RELEASE(tdbb, window);
+	if (!impure->irsb_nav_page)
+		return nav_open(tdbb, rsb, impure, window, direction, expanded_node);
+
+	found = find_saved_node(rsb, impure, window, &node);
+	page = (BTR) window->win_buffer;
+	if (node) {
+		*expanded_node =
+			find_current(window->win_expanded_buffer, page, node);
+		if (direction == RSE_get_backward)
+			node = BTR_previous_node(node, expanded_node);
+
+		/* in the forward case, seek to the next node only if we found
+		   the actual node on page; if we did not find it, we are already
+		   at the next node (such as when the node is garbage collected) */
+
+		else if (direction == RSE_get_forward && found)
+			node = BTR_next_node(node, expanded_node);
+		return node;
+	}
+
+#ifdef SCROLLABLE_CURSORS
+/* As a last resort, return the first (or last if backwards) 
+   node on the page.  The sparse bitmap will prevent us from 
+   seeing records we have already visited before. */
+
+	if (direction == RSE_get_backward) {
+		expanded_page = NAV_expand_index(window, 0);
+		return BTR_last_node(page, expanded_page, expanded_node);
+	}
+
+	if (expanded_page = window->win_expanded_buffer)
+		*expanded_node = (BTX) expanded_page->exp_nodes;
+#endif
+
+	return (BTN) page->btr_nodes;
+}
+
+
+static BOOLEAN get_record(
+						  RSB rsb,
+						  IRSB_NAV impure,
+						  RPB * rpb, KEY * key, BOOLEAN inhibit_cleanup)
+{
+/**************************************
+ *
+ *	g e t _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the record indicated by the passed rpb.
+ *	This routine must set or clear the CRACK flag.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	IDX *idx;
+	KEY value;
+	JMP_BUF env, *old_env;
+	USHORT old_att_flags;
+	BOOLEAN result;
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+	idx =
+		(IDX *) ((SCHAR *) impure + (SLONG) rsb->rsb_arg[RSB_NAV_idx_offset]);
+
+	if (inhibit_cleanup) {
+		/* Inhibit garbage collection & other housekeeping - 
+		 * to prevent a deadlock when we visit the record.
+		 * There are cases when we are called here and have a window locked 
+		 * HACK for bug 7041
+		 */
+
+		old_att_flags =
+			static_cast < USHORT >
+			(tdbb->tdbb_attachment->att_flags & ATT_no_cleanup);
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+
+		if (SETJMP(env)) {
+			/* Cleanup the HACK should there be an error */
+			tdbb->tdbb_attachment->att_flags &= ~ATT_no_cleanup;
+			tdbb->tdbb_attachment->att_flags |=
+				(old_att_flags & ATT_no_cleanup);
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			LONGJMP(reinterpret_cast < jmp_buf & >(old_env), -1);
+		}
+
+		tdbb->tdbb_attachment->att_flags |= ATT_no_cleanup;	/* HACK */
+	}
+
+/* the attempt to get a record, whether successful or not, takes
+   us off bof or eof (otherwise we will keep trying to retrieve
+   the first record) */
+
+	impure->irsb_flags &= ~(irsb_bof | irsb_eof);
+
+	result = VIO_get(tdbb,
+					 rpb,
+					 rsb,
+					 request->req_transaction,
+					 reinterpret_cast < blk * >(request->req_pool));
+	if (result) {
+		BTR_key(tdbb,
+				rpb->rpb_relation,
+				rpb->rpb_record,
+				reinterpret_cast <
+				struct idx *>((SCHAR *) impure +
+							  (SLONG) rsb->rsb_arg[RSB_NAV_idx_offset]),
+				&value);
+		if (compare_keys(idx, key->key_data, key->key_length, &value, FALSE))
+			result = FALSE;
+		else {
+			/* the successful retrieval of a record
+			   means we are no longer on a crack */
+
+			RSE_MARK_CRACK(tdbb, rsb, 0);
+
+			/* mark in the navigational bitmap that we have visited this record */
+
+			SBM_set(tdbb, &impure->irsb_nav_records_visited, rpb->rpb_number);
+		}
+	}
+
+	if (!result)
+		RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+
+	if (inhibit_cleanup) {
+		tdbb->tdbb_attachment->att_flags &= ~ATT_no_cleanup;
+		tdbb->tdbb_attachment->att_flags |= (old_att_flags & ATT_no_cleanup);
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	}
+
+	return result;
+}
+
+
+static void init_fetch(IRSB_NAV impure)
+{
+/**************************************
+ *
+ *	i n i t _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for a fetch operation.
+ *
+ **************************************/
+
+	if (impure->irsb_flags & irsb_first) {
+		impure->irsb_flags &= ~irsb_first;
+		impure->irsb_nav_page = 0;
+	}
+}
+
+
+static BTN nav_open(
+					TDBB tdbb,
+					RSB rsb,
+					IRSB_NAV impure,
+					WIN * window, RSE_GET_MODE direction, BTX * expanded_node)
+{
+/**************************************
+ *
+ *	n a v _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a stream to walk an index.
+ *
+ **************************************/
+	IRB retrieval;
+	KEY lower, upper, *limit_ptr;
+	BTR page;
+	EXP expanded_page;
+	BTN node;
+	NOD retrieval_node;
+	IDX *idx;
+
+	SET_TDBB(tdbb);
+
+/* initialize for a retrieval */
+
+	setup_bitmaps(rsb, impure);
+	impure->irsb_nav_page = 0;
+	impure->irsb_nav_length = 0;
+
+	if (direction == RSE_get_forward)
+		impure->irsb_flags |= irsb_bof;
+	else if (direction == RSE_get_backward)
+		impure->irsb_flags |= irsb_eof;
+
+/* Find the starting leaf page */
+
+	retrieval_node = (NOD) rsb->rsb_arg[RSB_NAV_index];
+	retrieval = (IRB) retrieval_node->nod_arg[e_idx_retrieval];
+	idx =
+		(IDX *) ((SCHAR *) impure + (SLONG) rsb->rsb_arg[RSB_NAV_idx_offset]);
+	page =
+		BTR_find_page(tdbb, retrieval, window, idx, &lower, &upper,
+					  (direction == RSE_get_backward));
+	impure->irsb_nav_page = window->win_page;
+
+#ifdef SCROLLABLE_CURSORS
+/* store the upper and lower bounds for the search in the impure area for the rsb */
+
+	if (retrieval->irb_lower_count) {
+		impure->irsb_nav_lower_length = lower.key_length;
+		MOVE_FAST(lower.key_data,
+				  (impure->irsb_nav_data +
+				   (SLONG) rsb->rsb_arg[RSB_NAV_key_length]),
+				  lower.key_length);
+	}
+
+	if (retrieval->irb_upper_count) {
+		impure->irsb_nav_upper_length = upper.key_length;
+		MOVE_FAST(upper.key_data,
+				  (impure->irsb_nav_data +
+				   (2 * (SLONG) rsb->rsb_arg[RSB_NAV_key_length])),
+				  upper.key_length);
+	}
+
+/* find the limit the search needs to begin with, if any */
+
+	limit_ptr = NULL;
+	if (direction == RSE_get_forward) {
+		if (retrieval->irb_lower_count)
+			limit_ptr = &lower;
+	}
+	else {
+		if (retrieval->irb_upper_count)
+			limit_ptr = &upper;
+	}
+#else
+/* find the upper limit for the search (or lower for backwards) */
+
+	limit_ptr = NULL;
+	if (direction == RSE_get_forward) {
+		if (retrieval->irb_upper_count) {
+			impure->irsb_nav_upper_length = upper.key_length;
+			MOVE_FAST(upper.key_data,
+					  (impure->irsb_nav_data +
+					   (SLONG) rsb->rsb_arg[RSB_NAV_key_length]),
+					  upper.key_length);
+		}
+		if (retrieval->irb_lower_count)
+			limit_ptr = &lower;
+	}
+	else {
+		if (retrieval->irb_lower_count) {
+			impure->irsb_nav_lower_length = lower.key_length;
+			MOVE_FAST(lower.key_data,
+					  (impure->irsb_nav_data +
+					   (SLONG) rsb->rsb_arg[RSB_NAV_key_length]),
+					  lower.key_length);
+		}
+		if (retrieval->irb_upper_count)
+			limit_ptr = &upper;
+	}
+#endif
+
+/* If there is a starting descriptor, search down index to starting position.
+   This may involve sibling buckets if splits are in progress.  If there 
+   isn't a starting descriptor, walk down the left side of the index (or the
+   right side if backwards). */
+
+	if (limit_ptr) {
+		while (!(node = BTR_find_leaf(page, limit_ptr, impure->irsb_nav_data,
+									  0, idx->idx_flags & idx_descending,
+									  TRUE))
+			   || (BTR_get_quad(reinterpret_cast < char *>(BTN_NUMBER(node)))
+				   == END_BUCKET))
+			  page =
+				(BTR) CCH_HANDOFF(tdbb, window, page->btr_sibling, LCK_read,
+								  pag_index);
+
+		impure->irsb_nav_length = BTN_PREFIX(node) + BTN_LENGTH(node);
+
+#ifdef SCROLLABLE_CURSORS
+		/* ensure that if we are going backward, there is an expanded page */
+
+		if (direction == RSE_get_backward && !window->win_expanded_buffer)
+			NAV_expand_index(window, 0);
+
+		/* now find our current location on the expanded page */
+
+		if (expanded_node && (expanded_page = window->win_expanded_buffer))
+			*expanded_node = find_current(expanded_page, page, node);
+#endif
+	}
+#ifdef SCROLLABLE_CURSORS
+	else if (direction == RSE_get_backward) {
+		expanded_page = NAV_expand_index(window, 0);
+		node = BTR_last_node(page, expanded_page, expanded_node);
+	}
+#endif
+	else {
+		node = (BTN) page->btr_nodes;
+#ifdef SCROLLABLE_CURSORS
+		if (expanded_node && (expanded_page = window->win_expanded_buffer))
+			*expanded_node = (BTX) expanded_page->exp_nodes;
+		else
+			*expanded_node = NULL;
+#endif
+	}
+
+	return node;
+}
+
+
+static void set_position(
+						 IRSB_NAV impure,
+						 RPB * rpb,
+						 WIN * window,
+						 BTN node,
+						 BTX expanded_node, UCHAR * key_data, USHORT length)
+{
+/**************************************
+ *
+ *	s e t _ p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Setup the information about the current position 
+ *	in the navigational index.  Store all required data in the
+ *	impure area for the request.
+ *
+ **************************************/
+
+/* We can actually set position without having a data page
+   fetched; if not, just set the incarnation to the lowest possible */
+
+	impure->irsb_nav_incarnation = CCH_get_incarnation(window);
+	impure->irsb_nav_page = window->win_page;
+	impure->irsb_nav_number = rpb->rpb_number;
+
+/* save the current key value if it hasn't already been saved */
+
+	if (key_data) {
+		impure->irsb_nav_length = length;
+		MOVE_FAST(key_data, impure->irsb_nav_data, length);
+	}
+
+/* setup the offsets into the current index page and expanded index buffer */
+
+	impure->irsb_nav_offset = (UCHAR *) node - (UCHAR *) window->win_buffer;
+	if (window->win_expanded_buffer)
+		impure->irsb_nav_expanded_offset =
+			(UCHAR *) expanded_node - (UCHAR *) window->win_expanded_buffer;
+	else
+		impure->irsb_nav_expanded_offset = -1;
+}
+
+
+static void setup_bitmaps(RSB rsb, IRSB_NAV impure)
+{
+/**************************************
+ *
+ *	s e t u p _ b i t m a p s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Setup the various bitmaps associated 
+ *	with a stream.
+ *
+ **************************************/
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+/* Start a bitmap which tells us we have already visited
+   this record; this is to handle the case where there is more
+   than one leaf node reference to the same record number; the
+   bitmap allows us to filter out the multiple references. */
+
+	SBM_reset(&impure->irsb_nav_records_visited);
+
+/* the first time we open the stream, compute a bitmap
+   for the inversion tree--this may cause problems for
+   read-committed transactions since they will get one
+   view of the database when the stream is opened */
+
+	if (rsb->rsb_arg[RSB_NAV_inversion]) {
+		/* There is no need to reset or release the bitmap, it is
+		 * done in EVL_bitmap ().
+		 */
+
+		impure->irsb_nav_bitmap = EVL_bitmap(tdbb,
+											 reinterpret_cast <
+											 nod *
+											 >(rsb->rsb_arg
+											   [RSB_NAV_inversion]));
+	}
+}
diff --git a/src/jrd/nav_proto.h b/src/jrd/nav_proto.h
new file mode 100644
index 0000000000..15bfc8b2ea
--- /dev/null
+++ b/src/jrd/nav_proto.h
@@ -0,0 +1,43 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		nav_proto.h
+ *	DESCRIPTION:	Prototype header file for nav.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_NAV_PROTO_H_
+#define _JRD_NAV_PROTO_H_
+
+#include "../jrd/rse.h"
+
+#ifdef SCROLLABLE_CURSORS
+extern struct exp *NAV_expand_index(register struct win *, struct irsb_nav *);
+#endif
+extern BOOLEAN NAV_get_record(struct rsb *, struct irsb_nav *, struct rpb *,
+							  enum rse_get_mode);
+
+#ifdef PC_ENGINE
+extern BOOLEAN NAV_find_record(struct rsb *, USHORT, USHORT, struct nod *);
+extern void NAV_get_bookmark(struct rsb *, struct irsb_nav *, struct bkm *);
+extern BOOLEAN NAV_reset_position(struct rsb *, struct rpb *);
+extern BOOLEAN NAV_set_bookmark(struct rsb *, struct irsb_nav *, struct rpb *,
+								struct bkm *);
+#endif
+
+#endif /* _JRD_NAV_PROTO_H_ */
diff --git a/src/jrd/netware.cpp b/src/jrd/netware.cpp
new file mode 100644
index 0000000000..69070fb7f8
--- /dev/null
+++ b/src/jrd/netware.cpp
@@ -0,0 +1,1260 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "../jrd/ib_stdio.h"
+#include <fcntl.h>
+#include <errno.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <dfs.h>
+#include <share.h>
+#include <fileengd.h>
+
+#include "../jrd/jrd.h"
+#include "../jrd/pio.h"
+#include "../jrd/ods.h"
+#include "../jrd/lck.h"
+#include "../jrd/cch.h"
+#include "../jrd/codes.h"
+
+
+extern "C" {
+
+
+#define MAXPATHLEN	1024
+#define IO_RETRY	20
+#define BYTES_PER_SECTOR (4096/8)
+
+extern int errno;
+extern void CCH_down_grade_dbb(DBB);
+
+PIO_add_file(DBB dbb, FIL main_file, TEXT * file_name, SLONG start);
+PIO_close(FIL main_file);
+FIL PIO_create(DBB dbb, TEXT * string, SSHORT length, BOOLEAN overwrite);
+PIO_connection(TEXT * file_name, USHORT * file_length);
+PIO_expand(TEXT * file_name, USHORT file_length, TEXT * expanded_name);
+PIO_flush(FIL main_file);
+PIO_force_write(FIL file, USHORT flag);
+PIO_header(DBB dbb, SCHAR * address, int length);
+PIO_max_alloc(DBB dbb);
+PIO_read(FIL file, BDB bdb, PAG page, STATUS * status_vector);
+PIO_write(FIL file, BDB bdb, PAG page, STATUS * status_vector);
+FIL PIO_open(DBB dbb, TEXT * string, SSHORT length, SSHORT trace_flag,
+			 BLK connection, TEXT * file_name, USHORT file_length);
+
+int NWDFS_open(SCHAR * file_name, int rights);
+int NWDFS_close(FIL fil);
+int NWDFS_write(FIL fil, int length, SCHAR * buffer);
+int NWDFS_read(FIL fil, int length, SCHAR * buffer);
+int NWDFS_lseek(FIL fil, int pos, int sense);
+int NWDFS_get_file_size(FIL fil);
+
+int dfs_expand_file(FIL fil, int size);
+int dfs_expand(FIL fil, int length, int start);
+int dfs_write(FIL fil, int start, int number, SCHAR * buffer);
+FIL dfs_setup_file(DBB dbb, UCHAR * file_name, USHORT file_length, int desc);
+FIL dfs_seek_file(FIL file, BDB bdb, STATUS * status_vector);
+int expand_it(FIL fil, int blocks_to_expand, int starting_block);
+
+PIO_add_file(dbb, main_file, file_name, start)
+	 DBB dbb;
+	 FIL main_file;
+	 TEXT *file_name;
+	 SLONG start;
+{
+/**************************************
+ *
+ *	P I O _ a d d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a file to an existing database.  Return the sequence
+ *	number of the new file.  If anything goes wrong, return a
+ *	sequence of 0.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	USHORT sequence;
+	FIL file, new_file;
+
+	if (!(new_file = PIO_create(dbb, file_name, strlen(file_name), FALSE)))
+		return 0;
+
+	new_file->fil_min_page = start;
+	sequence = 1;
+
+	for (file = main_file; file->fil_next; file = file->fil_next)
+		++sequence;
+
+	file->fil_max_page = start - 1;
+	file->fil_next = new_file;
+
+	return sequence;
+}
+
+
+PIO_close(main_file)
+	 FIL main_file;
+{
+/**************************************
+ *
+ *	P I O _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	FIL file;
+	USHORT i;
+
+	for (file = main_file; file; file = file->fil_next)
+		if (file->fil_desc)
+			NWDFS_close(file);
+}
+
+
+FIL PIO_create(dbb, string, length, overwrite)
+	 DBB dbb;
+	 TEXT *string;
+	 SSHORT length;
+	 BOOLEAN overwrite;
+{
+/**************************************
+ *
+ *	P I O _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new database file.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	int desc;
+	FIL file;
+	TEXT *address, expanded_name[256], temp[256], *file_name;
+
+	file_name = string;
+
+	if (length) {
+		MOVE_FAST(file_name, temp, length);
+		temp[length] = 0;
+		file_name = temp;
+	}
+
+	if (
+		(desc =
+		 NWDFS_open(file_name,
+					O_CREAT | (overwrite ? O_TRUNC : O_EXCL) | O_BINARY |
+					O_RDWR)) == -1)
+		ERR_post(isc_io_error, gds_arg_string, "open O_CREAT",
+				 gds_arg_cstring, length, ERR_string(string, length),
+				 isc_arg_gds, isc_io_create_err, gds_arg_netware, errno, 0);
+
+	/* File create succeeded.  Now expand the file name. */
+	length = PIO_expand(string, length, expanded_name);
+	file = dfs_setup_file(dbb, expanded_name, length, desc);
+
+	return file;
+}
+
+
+PIO_connection(file_name, file_length)
+	 TEXT *file_name;
+	 USHORT *file_length;
+{
+/**************************************
+ *
+ *	P I O _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a file specification and determine whether a page/lock
+ *	server is required and available.  If so, return a "connection"
+ *	block.  If not, return NULL.
+ *
+ *	Note: The file name must have been expanded prior to this call.
+ *
+ **************************************/
+	return NULL;
+}
+
+
+PIO_expand(file_name, file_length, expanded_name)
+	 TEXT *file_name;
+	 USHORT file_length;
+	 TEXT *expanded_name;
+{
+/**************************************
+ *
+ *	P I O _ e x p a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fully expand a file name.  If the file doesn't exist, do something
+ *	intelligent.
+ *
+ **************************************/
+
+	return ISC_expand_filename(file_name, file_length, expanded_name);
+}
+
+
+PIO_flush(main_file)
+	 FIL main_file;
+{
+/**************************************
+ *
+ *	P I O _ f l u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush the operating system cache back to good, solid oxide.
+ *
+ **************************************/
+}
+
+
+PIO_force_write(file, flag)
+	 FIL file;
+	 USHORT flag;
+{
+/**************************************
+ *
+ *	P I O _ f o r c e _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set (or clear) force write, if possible, for the database.
+ *
+ **************************************/
+}
+
+
+PIO_header(dbb, address, length)
+	 DBB dbb;
+	 SCHAR *address;
+	 int length;
+{
+/**************************************
+ *
+ *	P I O _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the page header.  This assumes that the file has not been
+ *	repositioned since the file was originally mapped.
+ *
+ **************************************/
+	FIL file;
+
+	file = dbb->dbb_file;
+	ISC_inhibit();
+	if ((NWDFS_lseek(file, 0, 0)) == -1)
+		netware_error("lseek", file, isc_io_read_err, 0);
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SCHAR spare_buffer[MAX_PAGE_SIZE];
+
+		if ((NWDFS_read(file, length, spare_buffer)) == 0)
+			netware_error("read", file, isc_io_read_err, 0);
+
+		(*dbb->dbb_decrypt) (dbb->dbb_encrypt_key->str_data, spare_buffer,
+							 length, address);
+	}
+	else
+#endif
+	if ((NWDFS_read(file, length, address)) == 0)
+		netware_error("read", file, isc_io_read_err, 0);
+
+	ISC_enable();
+}
+
+
+PIO_max_alloc(dbb)
+	 DBB dbb;
+{
+/**************************************
+ *
+ *	P I O _ m a x _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute last physically allocated page of database.
+ *
+ **************************************/
+	struct stat statistics;
+	int length;
+	FIL file;
+
+	for (file = dbb->dbb_file; file->fil_next; file = file->fil_next);
+
+	length = NWDFS_get_file_size(file);
+
+	return file->fil_min_page - file->fil_fudge +
+		(length + dbb->dbb_page_size - 1) / dbb->dbb_page_size;
+}
+
+
+PIO_act_alloc(dbb)
+	 DBB dbb;
+{
+/**************************************
+ *
+ *	P I O _ a c t _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute actual number of physically allocated pages of database.
+ *
+ **************************************/
+	int length;
+	FIL file;
+	SLONG tot_pages = 0;
+
+	for (file = dbb->dbb_file; file != NULL; file = file->fil_next) {
+		length = NWDFS_get_file_size(file);
+		tot_pages += (length + dbb->dbb_page_size - 1) / dbb->dbb_page_size;
+	}
+	return tot_pages;
+}
+
+
+FIL PIO_open(dbb, string, length, trace_flag, connection, file_name,
+			 file_length)
+	 DBB dbb;
+	 TEXT *string;
+	 SSHORT length, trace_flag;
+	 BLK connection;
+	 TEXT *file_name;
+	 USHORT file_length;
+{
+/**************************************
+ *
+ *	P I O _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.  If a "connection" block is provided, use
+ *	the connection to communication with a page/lock server.
+ *
+ **************************************/
+	TEXT *ptr, temp[256];
+	int desc, i;
+
+	if (string) {
+		ptr = string;
+		if (length) {
+			MOVE_FAST(string, temp, length);
+			temp[length] = 0;
+			ptr = temp;
+		}
+	}
+	else {
+		ptr = file_name;
+		if (file_length) {
+			MOVE_FAST(file_name, temp, file_length);
+			temp[file_length] = 0;
+			ptr = temp;
+		}
+	}
+	for (i = 0; i < IO_RETRY; i++)
+		if ((desc = NWDFS_open(ptr, O_RDWR)) != -1)
+			break;
+
+	if (desc == -1) {
+#ifdef READONLY_DATABASE
+		/* Try opening the database file in ReadOnly mode. The database file could
+		 * be on a RO medium (CD-ROM etc.). If this fileopen fails, return error.
+		 */
+		if ((desc = NWDFS_open(ptr, O_RDONLY)) == -1) {
+#endif /* READONLY_DATABASE */
+			ERR_post(isc_io_error,
+					 gds_arg_string, "open",
+					 gds_arg_cstring, file_length, ERR_string(file_name,
+															  file_length),
+					 isc_arg_gds, isc_io_open_err, gds_arg_netware, errno, 0);
+#ifdef READONLY_DATABASE
+		}
+		else {
+			/* If this is the primary file, set DBB flag to indicate that it is
+			 * being opened ReadOnly. This flag will be used later to compare with
+			 * the Header Page flag setting to make sure that the database is set
+			 * ReadOnly.
+			 */
+			if (!dbb->dbb_file)
+				dbb->dbb_flags |= DBB_being_opened_read_only;
+		}
+#endif /* READONLY_DATABASE */
+	}
+
+	return dfs_setup_file(dbb, string, length, desc);
+}
+
+
+PIO_read(file, bdb, page, status_vector)
+	 FIL file;
+	 BDB bdb;
+	 PAG page;
+	 STATUS *status_vector;
+{
+/**************************************
+ *
+ *	P I O _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a data page.  Oh wow.
+ *
+ **************************************/
+	DBB dbb;
+	SSHORT i;
+	SLONG bytes, size;
+
+	ISC_inhibit();
+	dbb = bdb->bdb_dbb;
+	size = dbb->dbb_page_size;
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SCHAR spare_buffer[MAX_PAGE_SIZE];
+
+		for (i = 0; i < IO_RETRY; i++) {
+			if (!(file = dfs_seek_file(file, bdb, status_vector)))
+				return FALSE;
+
+			if ((bytes = NWDFS_read(file, size, spare_buffer)) == size) {
+				(*dbb->dbb_decrypt) (dbb->dbb_encrypt_key->str_data,
+									 spare_buffer, size, page);
+				break;
+			}
+			else {
+				ConsolePrintf("read error on PIO_read\n");
+				Breakpoint(1);
+			}
+		}
+	}
+	else
+#endif
+	{
+		for (i = 0; i < IO_RETRY; i++) {
+			if (!(file = dfs_seek_file(file, bdb, status_vector)))
+				return FALSE;
+
+			if ((bytes = NWDFS_read(file, size, (SCHAR *) page)) == size)
+				break;
+			else {
+				ConsolePrintf("read error on PIOread\n");
+				Breakpoint(1);
+			}
+		}
+	}
+
+	if (i == IO_RETRY)
+		return netware_error("read", file, isc_io_read_err, status_vector);
+
+	ISC_enable();
+	return TRUE;
+}
+
+
+PIO_write(file, bdb, page, status_vector)
+	 FIL file;
+	 BDB bdb;
+	 PAG page;
+	 STATUS *status_vector;
+{
+/**************************************
+ *
+ *	P I O _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a data page.  Oh wow.
+ *
+ **************************************/
+	DBB dbb;
+	SSHORT i;
+	SLONG bytes, size;
+	int page_no;
+
+	ISC_inhibit();
+	dbb = bdb->bdb_dbb;
+	size = dbb->dbb_page_size;
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SCHAR spare_buffer[MAX_PAGE_SIZE];
+
+		(*dbb->dbb_encrypt) (dbb->dbb_encrypt_key->str_data,
+							 page, size, spare_buffer);
+
+		for (i = 0; i < IO_RETRY; i++) {
+			if (!(file = dfs_seek_file(file, bdb, status_vector)))
+				return FALSE;
+			if ((bytes = NWDFS_write(file, size, spare_buffer)) == size)
+				break;
+			else {
+				ConsolePrintf("write error on PIO_write\n");
+				Breakpoint(1);
+			}
+		}
+	}
+	else
+#endif
+	{
+		for (i = 0; i < IO_RETRY; i++) {
+			if (!(file = dfs_seek_file(file, bdb, status_vector)))
+				return FALSE;
+			page_no = bdb->bdb_page;
+
+			if ((bytes = NWDFS_write(file, size, (SCHAR *) page)) == size)
+				break;
+			else {
+				ConsolePrintf("write error on PIO_write\n");
+				Breakpoint(1);
+			}
+		}
+	}
+
+	if (i == IO_RETRY)
+		return netware_error("write", file, isc_io_write_err, status_vector);
+
+	ISC_enable();
+
+	return TRUE;
+}
+
+
+static FIL dfs_seek_file(file, bdb, status_vector)
+	 FIL file;
+	 BDB bdb;
+	 STATUS *status_vector;
+{
+/**************************************
+ *
+ *	d f s _ s e e k _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a buffer descriptor block, find the appropropriate
+ *	file block and seek to the proper page in that file.
+ *
+ **************************************/
+	ULONG page;
+	DBB dbb;
+
+	dbb = bdb->bdb_dbb;
+	page = bdb->bdb_page;
+
+	for (;; file = file->fil_next)
+		if (!file) {
+			ISC_enable();
+			CORRUPT(158);		/* msg 158 cannot sort on a field that does not exist */
+		}
+		else if (page >= file->fil_min_page && page <= file->fil_max_page)
+			break;
+
+	page -= file->fil_min_page - file->fil_fudge;
+
+	if ((NWDFS_lseek(file, (SLONG) (page * dbb->dbb_page_size), 0)) == -1)
+		return (FIL) netware_error("lseek", file, isc_io_access_err,
+								   status_vector);
+
+	return file;
+}
+
+
+static FIL dfs_setup_file(dbb, file_name, file_length, desc)
+	 DBB dbb;
+	 UCHAR *file_name;
+	 USHORT file_length;
+	 int desc;
+{
+/**************************************
+ *
+ *	d f s _ s e t u p _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up file and lock blocks for a file.
+ *
+ **************************************/
+	FIL file;
+	LCK lock;
+	UCHAR *p, *q, lock_string[32];
+	USHORT l;
+	struct stat statistics;
+	struct VolumeInformationStructure vol_info;
+	ULONG len;
+
+	/* Allocate file block and copy file name string */
+	file = (FIL) ALLOCPV(type_fil, file_length + 1);
+	file->fil_desc = desc;
+	file->fil_length = file_length;
+	file->fil_max_page = -1;
+	MOVE_FAST(file_name, file->fil_string, file_length);
+	file->fil_string[file_length] = '\0';
+
+	stat(file_name, &statistics);
+
+	/* fill in dfs info */
+	file->dfs_volume = statistics.st_dev;
+	DFSReturnVolumeMappingInformation(file->dfs_volume, &vol_info);
+	file->dfs_block_size = vol_info.VolumeAllocationUnitSizeInBytes;
+	file->dfs_position = 0;
+	file->dfs_size = filelength(desc);
+	len = filelength(desc);
+	file->dfs_last_block = file->dfs_size / file->dfs_block_size;
+	if ((file->dfs_size % file->dfs_block_size) == 0)
+		file->dfs_last_block--;
+	file->dfs_buffer = malloc(dbb->dbb_page_size);
+
+	/* If this isn't the primary file, we're done */
+	if (dbb->dbb_file)
+		return file;
+
+	/* Build unique lock string for file and construct lock block */
+	p = lock_string;
+	q = (UCHAR *) & statistics.st_dev;
+	l = sizeof(statistics.st_dev);
+	do
+		*p++ = *q++;
+	while (--l);
+
+	q = (UCHAR *) & statistics.st_ino;
+	l = sizeof(statistics.st_ino);
+	do
+		*p++ = *q++;
+	while (--l);
+
+	l = p - lock_string;
+
+	dbb->dbb_lock = lock = (LCK) ALLOCPV(type_lck, l);
+	lock->lck_type = LCK_database;
+	lock->lck_owner_handle = LCK_get_owner_handle(NULL_TDBB, lock->lck_type);
+	lock->lck_object = (BLK) dbb;
+	lock->lck_length = l;
+	lock->lck_dbb = dbb;
+	lock->lck_ast = CCH_down_grade_dbb;
+	MOVE_FAST(lock_string, lock->lck_key.lck_string, l);
+
+	/* Try to get an exclusive lock on database.  If this fails, insist
+	   on at least a shared lock */
+	dbb->dbb_flags |= DBB_exclusive;
+	if (!LCK_lock(NULL_TDBB, lock, LCK_EX, FALSE)) {
+		dbb->dbb_flags &= ~DBB_exclusive;
+		LCK_lock(NULL_TDBB, lock, LCK_SR, TRUE);
+	}
+
+	return file;
+}
+
+
+static netware_error(string, file, operation, status_vector)
+	 SCHAR *string;
+	 FIL file;
+	 STATUS operation;
+	 STATUS *status_vector;
+{
+/**************************************
+ *
+ *	n e t w a r e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody has noticed a file system error and expects error
+ *	to do something about it.  Harumph!
+ *
+ **************************************/
+
+// Breakpoint(1);
+
+	ISC_enable();
+	if (status_vector) {
+		*status_vector++ = isc_arg_gds;
+		*status_vector++ = isc_io_error;
+		*status_vector++ = gds_arg_string;
+		*status_vector++ = (STATUS) string;
+		*status_vector++ = gds_arg_string;
+		*status_vector++ =
+			(STATUS) ERR_string(file->fil_string, file->fil_length);
+		*status_vector++ = isc_arg_gds;
+		*status_vector++ = operation;
+		*status_vector++ = gds_arg_netware;
+		*status_vector++ = errno;
+		*status_vector++ = gds_arg_end;
+		return FALSE;
+	}
+	else
+		ERR_post(isc_io_error,
+				 gds_arg_string, string,
+				 gds_arg_string, ERR_string(file->fil_string,
+											file->fil_length), isc_arg_gds,
+				 operation, gds_arg_netware, errno, 0);
+}
+
+
+
+/* DFS STUFF !!!!!*/
+
+int NWDFS_open(SCHAR * file_name, int access)
+/**************************************
+ *
+ * N W D F S _ o p e n 
+ *
+ **************************************
+ *
+ * Functional description
+ * open a DFS file
+ *
+ **************************************/
+{
+	int desc;
+
+	if ((desc = DFSsopen(file_name, access, SH_COMPAT, S_IREAD | S_IWRITE,
+						 NO_RIGHTS_CHECK_ON_OPEN_BIT, DOSNameSpace)) == -1) {
+		nerr(1);
+		return -1;
+	}
+	return (desc);
+}
+
+int NWDFS_lseek(FIL fil, int pos, int whence)
+/**************************************
+ *
+ * N W D F S _ l s e e k
+ *
+ **************************************
+ *
+ * Functional description
+ * seek a DFS file
+ *
+ **************************************/
+{
+
+
+	switch (whence) {
+	case 0:
+		fil->dfs_position = pos;
+		break;
+
+	case 1:
+		fil->dfs_position += pos;
+		break;
+
+	case 2:
+		fil->dfs_position = fil->dfs_size - pos;
+		break;
+
+	default:
+		break;
+	}
+	return (fil->dfs_position);
+}
+
+int NWDFS_write(FIL fil, int length, SCHAR * buffer)
+/**************************************
+ *
+ * N W D F S _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ * write to a DFS file
+ *
+ **************************************/
+{
+	int starting_sector;
+	int new_position;
+	int ccode;
+	int bytes_left_in_sector;
+	int number_of_sectors;
+	int bytes_to_copy;
+	int bytes_written;
+	int offset_in_sector;
+	int total_written;
+
+	total_written = length;
+
+	new_position = fil->dfs_position + length;
+
+	if (new_position > fil->dfs_size)
+		if (dfs_expand_file(fil, new_position) != 0) {
+			nerr(2);
+			return (0);
+		}
+	starting_sector = fil->dfs_position / BYTES_PER_SECTOR;
+	offset_in_sector = fil->dfs_position % BYTES_PER_SECTOR;
+
+	/* if we are not at sector boundary : 
+	   1) read entire sector into temporary buffer
+	   2) copy as many bytes as we can from original buffer to temporary buf 
+	   3) re-write sector */
+
+	if (offset_in_sector != 0) {
+		if (ccode =
+			DFSRead(fil->fil_desc, starting_sector, 1, fil->dfs_buffer)) {
+			nerr(3);
+			return (0);
+		}
+
+		bytes_left_in_sector = BYTES_PER_SECTOR - offset_in_sector;
+
+		if (bytes_left_in_sector > length)
+			bytes_to_copy = length;
+		else
+			bytes_to_copy = bytes_left_in_sector;
+
+		memcpy(fil->dfs_buffer + offset_in_sector, buffer, bytes_to_copy);
+
+		ccode = dfs_write(fil, starting_sector, 1, fil->dfs_buffer);
+		if (ccode == -1)
+			return (0);
+
+		if (ccode) {
+			nerr(4);
+			return (0);
+		}
+
+		length -= bytes_to_copy;
+		buffer += bytes_to_copy;
+		starting_sector++;
+	}
+
+	/* we are now at start of new sector:
+	   1) if it will take of more that on sector
+	   write out rest of sectors */
+
+	number_of_sectors = length / BYTES_PER_SECTOR;
+
+	if (number_of_sectors > 0) {
+		ccode = dfs_write(fil, starting_sector, number_of_sectors, buffer);
+
+		if (ccode == -1)
+			return (0);
+
+		if (ccode) {
+			nerr(6);
+			return (0);
+		}
+
+		starting_sector += number_of_sectors;
+		bytes_written = BYTES_PER_SECTOR * number_of_sectors;
+		buffer += bytes_written;
+		length -= bytes_written;
+	}
+
+	/* if last bit spills out of last sector 
+	   1) read sector into temp buffer
+	   2) copy last bit to temporary buffer
+	   2) re-write sector */
+
+	if (length) {
+		if (ccode =
+			DFSRead(fil->fil_desc, starting_sector, 1, fil->dfs_buffer)) {
+			nerr(7);
+			return (0);
+		}
+		memcpy(fil->dfs_buffer, buffer, length);
+
+		ccode = dfs_write(fil, starting_sector, 1, fil->dfs_buffer);
+		if (ccode == -1)
+			return (0);
+
+		if (ccode) {
+			nerr(8);
+			return (0);
+		}
+	}
+
+	fil->dfs_position = new_position;
+	return (total_written);
+}
+
+int NWDFS_read(FIL fil, int length, SCHAR * buffer)
+/**************************************
+ *
+ * N W D F S _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ * read a DFS file
+ *
+ **************************************/
+{
+	int starting_sector;
+	int new_position;
+	int ccode;
+	int bytes_left_in_sector;
+	int number_of_sectors;
+	int bytes_to_copy;
+	int bytes_read;
+	int offset_in_sector;
+	int total_bytes = 0;
+
+	new_position = fil->dfs_position + length;
+	if (new_position > fil->dfs_size)
+		if (dfs_expand_file(fil, new_position) == -1) {
+			nerr(2);
+			return (0);
+		}
+
+	starting_sector = fil->dfs_position / BYTES_PER_SECTOR;
+	offset_in_sector = fil->dfs_position % BYTES_PER_SECTOR;
+
+	/* if we are not at sector boundary : 
+	   1) read entire sector into temporary buffer
+	   2) copy bytes from current position to end of sector into buffer */
+
+	if (offset_in_sector != 0) {
+		if (ccode =
+			DFSRead(fil->fil_desc, starting_sector, 1, fil->dfs_buffer)) {
+			nerr(10);
+			return (0);
+		}
+		bytes_left_in_sector = BYTES_PER_SECTOR - offset_in_sector;
+
+		if (bytes_left_in_sector > length)
+			bytes_to_copy = length;
+		else
+			bytes_to_copy = bytes_left_in_sector;
+
+		memcpy(buffer, fil->dfs_buffer + offset_in_sector, bytes_to_copy);
+
+		total_bytes += bytes_to_copy;
+		length -= bytes_to_copy;
+		buffer += bytes_to_copy;
+		starting_sector++;
+	}
+
+	/* if more than one sector left to read, read all sectors up to last 
+	   sector */
+
+	number_of_sectors = length / BYTES_PER_SECTOR;
+
+	if (number_of_sectors > 0) {
+		ccode =
+			DFSRead(fil->fil_desc, starting_sector, number_of_sectors,
+					buffer);
+		if (ccode) {
+			nerr(11);
+			return (0);
+		}
+		starting_sector += number_of_sectors;
+
+		bytes_read = BYTES_PER_SECTOR * number_of_sectors;
+		total_bytes += bytes_read;
+		buffer += bytes_read;
+		length -= bytes_read;
+	}
+
+	/* if still some bytes spilling into last sector read them */
+	if (length > 0) {
+		if (ccode =
+			DFSRead(fil->fil_desc, starting_sector, 1, fil->dfs_buffer)) {
+			nerr(12);
+			return (0);
+		}
+		memcpy(buffer, fil->dfs_buffer, length);
+		total_bytes += length;
+	}
+
+	fil->dfs_position = new_position;
+	return total_bytes;
+}
+
+int NWDFS_close(FIL fil)
+/**************************************
+ *
+ * N W D F S _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ * close a DFS file
+ *
+ **************************************/
+{
+	free(fil->dfs_buffer);
+	return (DFSclose(fil->fil_desc));
+}
+
+int NWDFS_get_file_size(FIL fil)
+/**************************************
+ *
+ * N W D F S _ g e t _ f i l e _ s i z e
+ *
+ **************************************
+ *
+ * Functional description
+ * get size of a DFS file
+ *
+ **************************************/
+{
+	return (fil->dfs_size);
+}
+
+int dfs_write(FIL fil, int starting_sector, int number_of_sectors,
+			  SCHAR * buffer)
+/**************************************
+ *
+ * d f s _ w r i t e 
+ *
+ **************************************
+ *
+ * Functional description
+ * low level dfs write
+ *
+ **************************************/
+{
+	int ccode;
+	int starting_block;
+	int byte_offset_in_file;
+	int bytes_to_expand;
+
+	/* try to write all sectors sequentially */
+	ccode =
+		DFSWrite(fil->fil_desc, starting_sector, number_of_sectors, buffer);
+
+	/* success */
+	if (ccode == 0)
+		return (0);
+
+	/* could not write all sectors sequentially because there is a hole */
+	if (ccode == DFSHoleInFileError) {
+		byte_offset_in_file = starting_sector * BYTES_PER_SECTOR;
+		starting_block = byte_offset_in_file / fil->dfs_block_size;
+
+		/* if it is on a block boundary and it is not block zero 
+		   start at previous block */
+		if ((byte_offset_in_file % fil->dfs_block_size) == 0)
+			if (byte_offset_in_file > 0)
+				starting_block--;
+
+		bytes_to_expand = number_of_sectors * BYTES_PER_SECTOR;
+		ccode = dfs_expand(fil, bytes_to_expand, starting_block);
+		if (ccode) {
+			nerr(16);
+			return (ccode);
+		}
+		return (-1);
+	}
+	else {
+		nerr(17);
+		return (ccode);
+	}
+	return (0);
+}
+
+int dfs_expand_file(FIL fil, int length)
+/**************************************
+ *
+ * d f s _ e x p a n d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ * dfs expand
+ *
+ **************************************/
+{
+	int bytes_to_expand;
+	int starting_block;
+	int ccode;
+	int number_of_blocks_expanded;
+
+	/* set new EOF */
+	ccode = DFSSetEndOfFile(fil->fil_desc, length, 0);
+	if (ccode) {
+		nerr(18);
+		return (ccode);
+	}
+	bytes_to_expand = length - fil->dfs_size;
+
+	starting_block = fil->dfs_last_block + 1;
+
+	ccode = dfs_expand(fil, bytes_to_expand, starting_block);
+	if (ccode) {
+		nerr(19);
+		return (ccode);
+	}
+	fil->dfs_size = filelength(fil->fil_desc);
+
+	number_of_blocks_expanded = (bytes_to_expand + fil->dfs_block_size - 1) /
+		fil->dfs_block_size;
+	fil->dfs_last_block += number_of_blocks_expanded;
+
+	return (0);
+}
+
+void nerr(int err)
+{
+	ConsolePrintf("error %d\n", err);
+	Breakpoint(1);
+}
+
+void read_back_and_check(PAG page, BDB bdb, FIL file)
+{
+	USHORT read_checksum;
+	USHORT written_checksum;
+	PAG page_read;
+	DBB dbb;
+	int saved_pos;
+	int page_no;
+
+	Breakpoint(1);
+	dbb = bdb->bdb_dbb;
+	page_read = malloc(dbb->dbb_page_size);
+	page_no = bdb->bdb_page;
+	page_no -= file->fil_min_page - file->fil_fudge;
+
+	saved_pos = file->dfs_position;
+	file->dfs_position = page_no * dbb->dbb_page_size;
+	NWDFS_read(file, dbb->dbb_page_size, (SCHAR *) page_read);
+	file->dfs_position = saved_pos;
+
+	read_checksum = page_read->pag_checksum;
+	written_checksum = page->pag_checksum;
+
+	if (read_checksum != written_checksum) {
+// ConsolePrintf("read = %d write = %d page = %d\n", 
+//                read_checksum, written_checksum, page_no);
+		Breakpoint(1);
+	}
+}
+
+int dfs_expand(FIL fil, int bytes_to_expand, int starting_block)
+/**************************************
+ *
+ * d f s _ e x p a n d
+ *
+ **************************************
+ *
+ * Functional description
+ * dfs expand
+ *
+ **************************************/
+{
+	int blocks_to_try;
+	int total_blocks_expanded = 0;
+	int done = FALSE;
+	int blocks_to_expand;
+	int ccode;
+
+	blocks_to_try = (bytes_to_expand + fil->dfs_block_size - 1) /
+		fil->dfs_block_size;
+
+	blocks_to_expand = blocks_to_try;
+
+	while (!done) {
+		ccode = expand_it(fil, blocks_to_try, starting_block);
+
+		switch (ccode) {
+		case 0:
+			total_blocks_expanded += blocks_to_try;
+			if (total_blocks_expanded == blocks_to_expand)
+				done = TRUE;
+			else {
+				blocks_to_try = blocks_to_expand - total_blocks_expanded;
+				starting_block += blocks_to_try;
+			}
+			break;
+
+		case DFSOverlapError:
+			if (blocks_to_try == 1) {
+				ConsolePrintf("blocks to try = 1 and overlap error\n");
+				return (-1);
+			}
+			blocks_to_try = 1;
+			break;
+
+		case DFSBoundryError:
+			if (blocks_to_try == 1) {
+				ConsolePrintf("blocks to try = 1 and boundry error\n");
+				return (-1);
+			}
+			blocks_to_try = blocks_to_try / 2;
+			break;
+
+		default:
+			ConsolePrintf("default ccode = %d\n", ccode);
+			return (-1);
+		}
+	}
+	return (0);
+}
+
+int expand_it(FIL fil, int blocks_to_expand, int starting_block)
+/**************************************
+ *
+ * e x p a n d _ i t
+ *
+ **************************************
+ *
+ * Functional description
+ * dfs expand
+ *
+ **************************************/
+{
+	struct VolumeInformationStructure volinfo;
+	int blocks_available;
+	int ccode;
+
+	DFSReturnVolumeMappingInformation(fil->dfs_volume, &volinfo);
+
+	blocks_available = volinfo.AllocationUnitsFreelyAvailable +
+		volinfo.AllocationUnitsInAvailableDeletedFiles;
+
+	if (blocks_to_expand > blocks_available)
+		return (-1);
+
+	DFSFreeLimboVolumeSpace(fil->dfs_volume, blocks_to_expand);
+
+	ccode = DFSExpandFile(fil->fil_desc, starting_block,
+						  blocks_to_expand, -1, -1);
+
+	return (ccode);
+}
+
+
+} // extern "C"
diff --git a/src/jrd/nlm_thd.h b/src/jrd/nlm_thd.h
new file mode 100644
index 0000000000..477348327a
--- /dev/null
+++ b/src/jrd/nlm_thd.h
@@ -0,0 +1,67 @@
+/*
+ *	PROGRAM:	JRD access method
+ *	MODULE:		nlm_thd.h
+ *	DESCRIPTION:	NLM Thread support definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/* This include file turns certain V4 threading constructs on for NLM. */
+
+#ifndef NETWARE_386
+#define NLM_INIT
+#define NLM_GLOBAL_MUTEX_LOCK
+#define NLM_GLOBAL_MUTEX_UNLOCK
+#define NLM_MUTEX_INIT(mutx)
+#define NLM_MUTEX_LOCK(mutx)
+#define NLM_MUTEX_UNLOCK(mutx)
+#define NLM_MUTEX_DESTROY(mutx)
+#define NLM_JRD_MUTEX_LOCK(mutx)
+#define NLM_JRD_MUTEX_UNLOCK(mutx)
+#else
+#define NLM_INIT			THD_INIT
+#define NLM_GLOBAL_MUTEX_LOCK		THD_GLOBAL_MUTEX_LOCK
+#define NLM_GLOBAL_MUTEX_UNLOCK		THD_GLOBAL_MUTEX_UNLOCK
+#define NLM_MUTEX_INIT(mutx)		THD_MUTEX_INIT (mutx)
+#define NLM_MUTEX_LOCK(mutx)		THD_MUTEX_LOCK (mutx)
+#define NLM_MUTEX_UNLOCK(mutx)		THD_MUTEX_UNLOCK (mutx)
+#define NLM_MUTEX_DESTROY(mutx)		THD_MUTEX_DESTROY (mutx)
+#define NLM_JRD_MUTEX_LOCK(mutx)	THD_JRD_MUTEX_LOCK (mutx)
+#define NLM_JRD_MUTEX_UNLOCK(mutx)	THD_JRD_MUTEX_UNLOCK (mutx)
+
+#ifdef V4_THREADING
+#undef V4_INIT
+#undef V4_GLOBAL_MUTEX_LOCK
+#undef V4_GLOBAL_MUTEX_UNLOCK
+#undef V4_MUTEX_INIT
+#undef V4_MUTEX_LOCK
+#undef V4_MUTEX_UNLOCK
+#undef V4_MUTEX_DESTROY
+#undef V4_JRD_MUTEX_LOCK
+#undef V4_JRD_MUTEX_UNLOCK
+#define V4_INIT				THD_INIT
+#define V4_GLOBAL_MUTEX_LOCK		{THREAD_EXIT; THD_GLOBAL_MUTEX_LOCK; THREAD_ENTER;}
+#define V4_GLOBAL_MUTEX_UNLOCK		THD_GLOBAL_MUTEX_UNLOCK
+#define V4_MUTEX_INIT(mutx)		THD_MUTEX_INIT (mutx)
+#define V4_MUTEX_LOCK(mutx)		{THREAD_EXIT; THD_MUTEX_LOCK (mutx); THREAD_ENTER;}
+#define V4_MUTEX_UNLOCK(mutx)		THD_MUTEX_UNLOCK (mutx)
+#define V4_MUTEX_DESTROY(mutx)		THD_MUTEX_DESTROY (mutx)
+#define V4_JRD_MUTEX_LOCK(mutx)		{THREAD_EXIT; THD_JRD_MUTEX_LOCK (mutx); THREAD_ENTER;}
+#define V4_JRD_MUTEX_UNLOCK(mutx)	THD_JRD_MUTEX_UNLOCK (mutx)
+#endif
+#endif
diff --git a/src/jrd/nod.h b/src/jrd/nod.h
new file mode 100644
index 0000000000..b1b04516d1
--- /dev/null
+++ b/src/jrd/nod.h
@@ -0,0 +1,190 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		nod.h
+ *	DESCRIPTION:	Runtime node types
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+NODE(nod_asn_list, asn_list, "")
+	NODE(nod_assignment, assignment, "")
+	NODE(nod_dcl_variable, declare, "")
+	NODE(nod_erase, erase, "")
+	NODE(nod_fetch, fetch, "")
+	NODE(nod_for, for, "")
+	NODE(nod_handler, handler, "")
+		NODE(nod_if, if, "")
+		NODE(nod_label, label, "")
+			NODE(nod_leave, leave, "")
+			NODE(nod_list, list, "")
+			NODE(nod_loop, loop, "")
+			NODE(nod_message, message, "")
+			NODE(nod_modify, modify, "")
+			NODE(nod_receive, receive, "")
+			NODE(nod_select, select, "")
+			NODE(nod_send, send, "")
+			NODE(nod_store, store, "")
+			NODE(nod_post, post, "")
+
+			NODE(nod_add, add, " + ")
+			NODE(nod_argument, argument, "")
+			NODE(nod_variable, variable, "")
+			NODE(nod_average, average, "AVG")
+			NODE(nod_concatenate, concatenate, " || ")
+			NODE(nod_count, count, "COUNT")
+			NODE(nod_count2, count2, "COUNT")
+			NODE(nod_dbkey, dbkey, "ROWID")
+			NODE(nod_divide, divide, " / ")
+			NODE(nod_field, field, "")
+			NODE(nod_from, from, "")
+			NODE(nod_index, index, "")
+			NODE(nod_bit_and, bit_and, "")
+			NODE(nod_bit_or, bit_or, "")
+			NODE(nod_bit_dbkey, bit_dbkey, "")
+			NODE(nod_literal, literal, "")
+			NODE(nod_max, max, "MAX")
+			NODE(nod_min, min, "MIN")
+			NODE(nod_multiply, multiply, " * ")
+			NODE(nod_negate, negate, " -")
+			NODE(nod_function, function, "")
+			NODE(nod_scalar, scalar, "")
+			NODE(nod_user_name, user, "")
+			NODE(nod_gen_id, recnum, "")
+			NODE(nod_prot_mask, prot_mask, "")
+			NODE(nod_upcase, upcase, "UPPER")
+			NODE(nod_lock_state, lock_state, "")
+			NODE(nod_null, null, "NULL")
+			NODE(nod_substr, substr, "")
+			NODE(nod_subtract, subtract, " - ")
+			NODE(nod_total, total, "SUM")
+			NODE(nod_value_if, value_if, "")
+			NODE(nod_eql, eql, " = ")
+			NODE(nod_neq, neq, " != ")
+			NODE(nod_geq, geq, " >= ")
+			NODE(nod_gtr, gtr, " > ")
+			NODE(nod_lss, lss, " < ")
+			NODE(nod_leq, leq, " <= ")
+			NODE(nod_matches, matches, "")
+			NODE(nod_sleuth, sleuth, "")
+			NODE(nod_like, like, " LIKE ")
+			NODE(nod_contains, contains, "")
+			NODE(nod_missing, missing, " IS NULL")
+			NODE(nod_between, between, "")
+			NODE(nod_starts, starts, "")
+			NODE(nod_unique, unique, "")
+			NODE(nod_any, any, "")
+			NODE(nod_and, and, " AND ")
+			NODE(nod_or, or, " OR ")
+			NODE(nod_not, not, " NOT ")
+			NODE(nod_validate, validate, "")
+
+			NODE(nod_agg_count, agg_count, "")
+			NODE(nod_agg_max, agg_max, "")
+			NODE(nod_agg_max_indexed, agg_max_indexed, "")
+			NODE(nod_agg_min, agg_min, "")
+			NODE(nod_agg_min_indexed, agg_min_indexed, "")
+			NODE(nod_agg_total, agg_total, "")
+			NODE(nod_agg_average, agg_average, "")
+			NODE(nod_agg_count2, agg_count2, "")
+			NODE(nod_agg_count_distinct, agg_count_distinct, "")
+			NODE(nod_agg_total_distinct, agg_total_distinct, "")
+			NODE(nod_agg_average_distinct, agg_average_distinct, "")
+			NODE(nod_asb, asb, "")
+			NODE(nod_relation, relation, "")
+			NODE(nod_rse, rse, "")
+			NODE(nod_stream, stream, "")
+			NODE(nod_set_index, set_index, "")
+			NODE(nod_seek, seek, "")
+			NODE(nod_seek_no_warn, seek_no_warn, "")
+			NODE(nod_find, find, "")
+			NODE(nod_bookmark, bookmark, "")
+			NODE(nod_get_bookmark, get_bookmark, "")
+			NODE(nod_set_bookmark, set_bookmark, "")
+			NODE(nod_lock_relation, lock_relation, "")
+			NODE(nod_lock_record, lock_record, "")
+			NODE(nod_begin_range, begin_range, "")
+			NODE(nod_end_range, end_range, "")
+			NODE(nod_delete_range, delete_range, "")
+			NODE(nod_sort, sort, "")
+			NODE(nod_union, union, "")
+		  NODE(nod_aggregate, aggregate, "")
+		  NODE(nod_map, map, "")
+		  NODE(nod_dependency, dependency, "")
+		  NODE(nod_exec_proc, exec_proc, "")
+		  NODE(nod_procedure, procedure, "")
+		  NODE(nod_block, block, "")
+		  NODE(nod_error_handler, error_handler, "")
+		  NODE(nod_abort, abort, "")
+		  NODE(nod_cast, cast, "CAST")
+		  NODE(nod_nop, nop, "")
+		  NODE(nod_release_lock, nod_release_lock, "")
+		  NODE(nod_release_locks, nod_release_locks, "")
+		  NODE(nod_start_savepoint, start_savepoint, "")
+		  NODE(nod_end_savepoint, end_savepoint, "")
+		  NODE(nod_find_dbkey, find_dbkey, "")
+		  NODE(nod_find_dbkey_version, find_dbkey_version, "")
+		  NODE(nod_range_relation, range_relation, "")
+		  NODE(nod_delete_ranges, delete_ranges, "")
+		  NODE(nod_crack, crack, "CRACK")
+		  NODE(nod_force_crack, force_crack, "FORCE CRACK")
+
+/* access plan stuff */
+		  NODE(nod_plan, plan, "PLAN")
+		  NODE(nod_merge, merge, "MERGE")
+		  NODE(nod_join, join, "JOIN")
+		  NODE(nod_sequential, sequential, "SEQUENTIAL")
+		  NODE(nod_navigational, navigational, "NAVIGATIONAL")
+		  NODE(nod_indices, indices, "INDICES")
+		  NODE(nod_retrieve, retrieve, "RETRIEVE")
+
+		  NODE(nod_relation2, relation2, "RELATION2")
+		  NODE(nod_rid2, rid2, "RID2")
+		  NODE(nod_reset_stream, reset_stream, "RESET STREAM")
+		  NODE(nod_release_bookmark, release_bookmark, "RELEASE BOOKMARK")
+
+		  NODE(nod_set_generator, set_generator, "")
+
+/* Required for NULL handling             */
+		  NODE(nod_ansi_any, ansi_any, "ANSI ANY")
+		  NODE(nod_exists, exists, "EXISTS")
+		  NODE(nod_cardinality, cardinality, "CARDINALITY")
+
+		  NODE(nod_rec_version, record_version, "RECORD VERSION")
+		  NODE(nod_stall, stall, "SERVER STALL")
+
+		  NODE(nod_ansi_all, ansi_all, "ANSI ALL")
+
+/* Improved date handling */
+		  NODE(nod_extract, extract, "EXTRACT")
+		  NODE(nod_current_date, current_date, "CURRENT DATE")
+		  NODE(nod_current_time, current_time, "CURRENT TIME")
+		  NODE(nod_current_timestamp, current_timestamp, "CURRENT TIMESTAMP")
+
+/* Additions for 64-bit integer support */
+		  NODE(nod_add2, add2, " + ")
+		  NODE(nod_subtract2, subtract2, " - ")
+		  NODE(nod_multiply2, multiply2, " * ")
+		  NODE(nod_divide2, divide2, " / ")
+		  NODE(nod_agg_total2, agg_total, "")
+		  NODE(nod_agg_average2, agg_average2, "")
+		  NODE(nod_agg_total_distinct2, agg_total_distinct2, "")
+		  NODE(nod_agg_average_distinct2, agg_average_distinct2, "")
+		  NODE(nod_average2, average2, "AVG")
+		  NODE(nod_gen_id2, recnum, "")
+		  NODE(nod_set_generator2, set_generator, "")
+		  NODE(nod_total2, total, "SUM")
diff --git a/src/jrd/nodebug.cpp b/src/jrd/nodebug.cpp
new file mode 100644
index 0000000000..39c51188cd
--- /dev/null
+++ b/src/jrd/nodebug.cpp
@@ -0,0 +1,31 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		nodebug.c
+ *	DESCRIPTION:	Non-debugging placeholder for debugging routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include "../jrd/dbg_proto.h"
+
+int DBG_supervisor(int arg)
+{
+
+	return TRUE;
+}
diff --git a/src/jrd/obj.h b/src/jrd/obj.h
new file mode 100644
index 0000000000..96a005f7f5
--- /dev/null
+++ b/src/jrd/obj.h
@@ -0,0 +1,45 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		obj.h
+ *	DESCRIPTION:	Object types in meta-data
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_OBJ_H_
+#define _JRD_OBJ_H_
+
+/* Object types used in RDB$DEPENDENCIES and RDB$USER_PRIVILEGES */
+/* Note: some values are hard coded in grant.gdl */
+
+#define obj_relation            0
+#define obj_view                1
+#define obj_trigger             2
+#define obj_computed            3
+#define obj_validation          4
+#define obj_procedure           5
+#define obj_expression_index    6
+#define obj_exception           7
+#define obj_user                8
+#define obj_field               9
+#define obj_index               10
+#define obj_count               11
+#define obj_user_group          12
+#define obj_sql_role            13
+
+#endif /* _JRD_OBJ_H_ */
diff --git a/src/jrd/ods.h b/src/jrd/ods.h
new file mode 100644
index 0000000000..c075a42ed7
--- /dev/null
+++ b/src/jrd/ods.h
@@ -0,0 +1,530 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		ods.h
+ *	DESCRIPTION:	On disk structure definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/*
+ * Modified by: Patrick J. P. Griffin
+ * Date: 11/29/2000
+ * Problem:   Bug 116733 Too many generators corrupt database.
+ *            DPM_gen_id was not calculating page and offset correctly.
+ * Change:    Add typedef struct gpg to properly document the layout
+ *            of the generator page.
+ */
+
+#ifndef _JRD_ODS_H_
+#define _JRD_ODS_H_
+
+/**********************************************************************
+**
+** NOTE:
+**
+**   ODS 5 was shipped with version 3.3 but no longer supported
+**   ODS 6 and ODS 7 never went out the door
+**   ODS 8 was shipped with version 4.0
+**   ODS 9 is  going to be shipped with version 4.5
+**
+***********************************************************************/
+
+/* ODS major version -- major versions are not compatible */
+
+#define ODS_VERSION6 	6		/* on-disk structure as of v3.0 */
+#define ODS_VERSION7	7		/* new on disk structure for fixing index bug */
+#define ODS_VERSION8	8		/* new btree structure to support pc semantics */
+#define ODS_VERSION9	9		/* btree leaf pages are always propogated up */
+#define ODS_VERSION10	10		/* V6.0 features. SQL delimited idetifier,
+								   SQLDATE, and 64-bit exact numeric
+								   type */
+
+/* ODS minor version -- minor versions ARE compatible, but may be
+   increasingly functional.  Add new minor versions, but leave previous
+   names intact */
+
+/* Minor versions for ODS 6 */
+
+#define ODS_GRANT6	1			/* adds fields for field level grant */
+#define ODS_INTEGRITY6	2		/* adds fields for referential integrity */
+#define ODS_FUNCTIONS6	3		/* modifies type of RDB$MODULE_NAME field */
+#define ODS_SQLNAMES6	4		/* permits SQL security on > 27 SCHAR names */
+#define ODS_CURRENT6	4
+
+/* Minor versions for ODS 7 */
+
+#define ODS_FUNCTIONS7	1		/* modifies type of RDB$MODULE_NAME field */
+#define ODS_SQLNAMES7	2		/* permits SQL security on > 27 SCHAR names */
+#define ODS_CURRENT7	2
+
+/* Minor versions for ODS 8 */
+
+#define ODS_CASCADE_RI8	1		/* permits cascading referential integrity */
+				/* ODS 8.2 is the same as ODS 8.1 */
+#define ODS_CURRENT8	2
+
+/* Minor versions for ODS 9 */
+
+#define ODS_CURRENT_9_0	0		/* SQL roles & Index garbage collection */
+#define ODS_SYSINDEX9	1		/* Index on RDB$CHECK_CONSTRAINTS (RDB$TRIGGER_NAME) */
+#define ODS_CURRENT9	1
+
+/* Minor versions for ODS 10 */
+
+#define ODS_CURRENT10	0		/* V6.0 features. SQL delimited identifier,
+								   SQLDATE, and 64-bit exact numeric
+								   type */
+
+/* useful ODS macros. These are currently used to flag the version of the
+   system triggers and system indices in ini.e */
+
+#define ENCODE_ODS(major,minor) (((major) << 4) | (minor))
+#define ODS_8_0         ENCODE_ODS (ODS_VERSION8, 0)
+#define ODS_8_1         ENCODE_ODS (ODS_VERSION8, 1)
+#define ODS_9_0         ENCODE_ODS (ODS_VERSION9, 0)
+#define ODS_9_1         ENCODE_ODS (ODS_VERSION9, 1)
+#define ODS_10_0        ENCODE_ODS (ODS_VERSION10, 0)
+
+/* Decode ODS version to Major and Minor parts. The 4 LSB's are minor and 
+   the next 4 bits are major version number */
+#define DECODE_ODS_MAJOR(ods_version) ((ods_version & 0xFFF0) >> 4)
+#define DECODE_ODS_MINOR(ods_version) (ods_version & 0x000F)
+
+/* Set current ODS major and minor version */
+
+#define ODS_VERSION	ODS_VERSION10	/* current ods major version -- always 
+									   the highest */
+#define ODS_CURRENT	ODS_CURRENT10	/* the highest defined minor version
+									   number for this ODS_VERSION!! */
+#define ODS_CURRENT_VERSION	ODS_10_0	/* Current ODS version in use which includes 
+										   both Major and Minor ODS versions! */
+
+
+#define USER_REL_INIT_ID_ODS8   31	/* ODS <= 8 */
+#define USER_DEF_REL_INIT_ID   128	/* ODS >= 9 */
+
+
+/* Page types */
+
+#define pag_undefined	0
+#define pag_header	1			/* Database header page */
+#define pag_pages	2			/* Page inventory page */
+#define pag_transactions 3		/* Transaction inventory page */
+#define pag_pointer	4			/* Pointer page */
+#define pag_data	5			/* Data page */
+#define pag_root	6			/* Index root page */
+#define pag_index	7			/* Index (B-tree) page */
+#define pag_blob	8			/* Blob data page */
+#define pag_ids		9			/* Gen-ids */
+#define pag_log		10			/* Write ahead log information */
+#define pag_max		10			/* Max page type */
+
+#define HEADER_PAGE	0
+#define LOG_PAGE        2
+
+#define MIN_PAGE_SIZE	1024
+
+#define MAX_PAGE_SIZE		16384
+#define DEFAULT_PAGE_SIZE	4096
+
+/* Basic page header */
+
+typedef struct pag {
+	SCHAR pag_type;
+	SCHAR pag_flags;
+	USHORT pag_checksum;
+	ULONG pag_generation;
+	ULONG pag_seqno;			/* WAL seqno of last update */
+	ULONG pag_offset;			/* WAL offset of last update */
+} *PAG;
+
+
+/* Blob page */
+
+typedef struct blp {
+	struct pag blp_header;
+	SLONG blp_lead_page;		/* First page of blob (for redundancy only) */
+	SLONG blp_sequence;			/* Sequence within blob */
+	USHORT blp_length;			/* Bytes on page */
+	USHORT blp_pad;				/* Unused */
+	SLONG blp_page[1];			/* Page number if level 1 */
+} *BLP;
+
+#define blp_data	blp_page	/* Formerly defined field */
+#define BLP_SIZE	OFFSETA (BLP, blp_page)
+
+#define blp_pointers	1		/* Blob pointer page, not data page */
+
+
+/* B-tree node */
+
+typedef struct btn
+{
+	UCHAR btn_prefix;			/* size of compressed prefix */
+	UCHAR btn_length;			/* length of data in node */
+	UCHAR btn_number[4];		/* page or record number */
+	UCHAR btn_data[1];
+} *BTN;
+
+#define BTN_SIZE	6
+
+/* B-tree page ("bucket") */
+
+typedef struct btr {
+	struct pag btr_header;
+	SLONG btr_sibling;			/* right sibling page */
+	SLONG btr_left_sibling;		/* left sibling page */
+	SLONG btr_prefix_total;		/* sum of all prefixes on page */
+	USHORT btr_relation;		/* relation id for consistency */
+	USHORT btr_length;			/* length of data in bucket */
+	UCHAR btr_id;				/* index id for consistency */
+	UCHAR btr_level;			/* index level (0 = leaf) */
+	struct btn btr_nodes[1];
+} *BTR;
+
+#define btr_dont_gc		1		/* Don't garbage-collect this page */
+#define btr_not_propogated	2	/* page is not propogated upward */
+#define btr_descending  	8	/* Page/bucket is part of a descending index */
+
+#define MAX_NODES	((dbb->dbb_page_size - OFFSETA (BTR, btr_nodes)) / sizeof (struct btn))
+
+
+/* Data Page */
+
+typedef struct dpg {
+	struct pag dpg_header;
+	SLONG dpg_sequence;			/* Sequence number in relation */
+	USHORT dpg_relation;		/* Relation id */
+	USHORT dpg_count;			/* Number of record segments on page */
+	struct dpg_repeat {
+		USHORT dpg_offset;		/* Offset of record fragment */
+		USHORT dpg_length;		/* Length of record fragment */
+	} dpg_rpt[1];
+} *DPG;
+
+#ifdef __cplusplus
+#define DPG_SIZE	(sizeof (dpg) - sizeof (dpg::dpg_repeat))
+#else
+#define DPG_SIZE	(sizeof (struct dpg) - sizeof(struct dpg_repeat))
+#endif
+
+#define dpg_orphan	1			/* Data page is NOT in pointer page */
+#define dpg_full	2			/* Pointer page is marked FULL */
+#define dpg_large	4			/* Large object is on page */
+
+
+/* Index root page */
+
+typedef struct irt {
+	struct pag irt_header;
+	USHORT irt_relation;		/* relation id (for consistency) */
+	USHORT irt_count;			/* Number of indices */
+	struct irt_repeat {
+		SLONG irt_root;			/* page number of index root */
+		union {
+			float irt_selectivity;	/* selectivity of index */
+			SLONG irt_transaction;	/* transaction in progress */
+		} irt_stuff;
+		USHORT irt_desc;		/* offset to key descriptions */
+		UCHAR irt_keys;			/* number of keys in index */
+		UCHAR irt_flags;
+	} irt_rpt[1];
+} *IRT;
+
+/* key descriptor */
+
+typedef struct irtd {
+	USHORT irtd_field;
+	USHORT irtd_itype;
+} IRTD;
+
+#define irt_unique	1
+#define irt_descending	2
+#define irt_in_progress	4
+#define irt_foreign	8
+#define irt_primary	16
+#define irt_expression	32
+
+#define STUFF_COUNT	4
+#define END_LEVEL	-1
+#define END_BUCKET	-2
+
+#ifdef IGNORE_NULL_IDX_KEY
+#define END_NON_NULL	-3
+#define SPECIAL_BTN_NUMBER_COUNT 3	/* This is later used in fast_load() for 
+									   calculating fill_limit. */
+#endif /* IGNORE_NULL_IDX_KEY */
+
+
+
+/* Header page */
+
+typedef struct hdr {
+	struct pag hdr_header;
+	USHORT hdr_page_size;		/* Page size of database */
+	USHORT hdr_ods_version;		/* Version of on-disk structure */
+	SLONG hdr_PAGES;			/* Page number of PAGES relation */
+	ULONG hdr_next_page;		/* Page number of next hdr page */
+	SLONG hdr_oldest_transaction;	/* Oldest interesting transaction */
+	SLONG hdr_oldest_active;	/* Oldest transaction thought active */
+	SLONG hdr_next_transaction;	/* Next transaction id */
+	USHORT hdr_sequence;		/* sequence number of file */
+	USHORT hdr_flags;			/* Flag settings, see below */
+	SLONG hdr_creation_date[2];	/* Date/time of creation */
+	SLONG hdr_attachment_id;	/* Next attachment id */
+	SLONG hdr_shadow_count;		/* Event count for shadow synchronization */
+	SSHORT hdr_implementation;	/* Implementation number */
+	USHORT hdr_ods_minor;		/* Update version of ODS */
+	USHORT hdr_ods_minor_original;	/* Update version of ODS at creation */
+	USHORT hdr_end;				/* offset of HDR_end in page */
+	ULONG hdr_page_buffers;		/* Page buffers for database cache */
+	SLONG hdr_bumped_transaction;	/* Bumped transaction id for log optimization */
+	SLONG hdr_oldest_snapshot;	/* Oldest snapshot of active transactions */
+	SLONG hdr_misc[4];			/* Stuff to be named later */
+	UCHAR hdr_data[1];			/* Misc data */
+} *HDR;
+
+#define HDR_SIZE        OFFSETA (HDR, hdr_data)
+#define hdr_cache_file	hdr_data
+
+/* Header page clumplets */
+
+/* Data items have the format
+
+	<type_byte> <length_byte> <data...>
+*/
+
+#define HDR_end			0
+#define HDR_root_file_name	1	/* Original name of root file */
+#define HDR_journal_server	2	/* Name of journal server */
+#define HDR_file		3		/* Secondary file */
+#define HDR_last_page		4	/* Last logical page number of file */
+#define HDR_unlicensed		5	/* Count of unlicensed activity */
+#define HDR_sweep_interval	6	/* Transactions between sweeps */
+#define HDR_log_name		7	/* replay log name */
+#define HDR_journal_file	8	/* Intermediate journal file */
+#define	HDR_password_file_key	9	/* Key to compare to password db */
+#define HDR_backup_info         10	/* WAL backup information */
+#define HDR_cache_file		11	/* Shared cache file */
+#define HDR_max			11		/* Maximum HDR_clump value */
+
+/* Header page flags */
+
+#define hdr_active_shadow	0x1	/* 1    file is an active shadow file */
+#define hdr_force_write		0x2	/* 2    database is forced write */
+#define hdr_short_journal	0x4	/* 4    short-term journalling */
+#define hdr_long_journal	0x8	/* 8    long-term journalling */
+#define hdr_no_checksums	0x10	/* 16   don't calculate checksums */
+#define hdr_no_reserve		0x20	/* 32   don't reserve space for versions */
+#define hdr_disable_cache	0x40	/* 64   disable using shared cache file */
+#define hdr_shutdown		0x80	/* 128  database is shutdown */
+#define hdr_SQL_dialect_3	0x100	/* 256  database SQL dialect 3 */
+#define hdr_read_only		0x200	/* 512  Database in ReadOnly. If not set, DB is RW */
+
+
+typedef struct sfd {
+	SLONG sfd_min_page;			/* Minimum page number */
+	SLONG sfd_max_page;			/* Maximum page number */
+	UCHAR sfd_index;			/* Sequence of secondary file */
+	UCHAR sfd_file[1];			/* Given file name */
+} SFD;
+
+/* Page Inventory Page */
+
+typedef struct pip {
+	struct pag pip_header;
+	SLONG pip_min;				/* Lowest (possible) free page */
+	UCHAR pip_bits[1];
+} *PIP;
+
+
+/* Pointer Page */
+
+typedef struct ppg {
+	struct pag ppg_header;
+	SLONG ppg_sequence;			/* Sequence number in relation */
+	SLONG ppg_next;				/* Next pointer page in relation */
+	USHORT ppg_count;			/* Number of slots active */
+	USHORT ppg_relation;		/* Relation id */
+	USHORT ppg_min_space;		/* Lowest slot with space available */
+	USHORT ppg_max_space;		/* Highest slot with space available */
+	SLONG ppg_page[1];			/* Data page vector */
+} *PPG;
+
+#define ppg_bits	ppg_page
+
+#define ppg_eof		1			/* Last pointer page in relation */
+
+/* Transaction Inventory Page */
+
+typedef struct tip {
+	struct pag tip_header;
+	SLONG tip_next;				/* Next transaction inventory page */
+	UCHAR tip_transactions[1];
+} *TIP;
+
+
+/* Generator Page */
+
+typedef struct gpg {
+	struct pag gpg_header;
+	SLONG gpg_sequence;			/* Sequence number */
+	SLONG gpg_waste1;			/* overhead carried for backward compatibility */
+	USHORT gpg_waste2;			/* overhead carried for backward compatibility */
+	USHORT gpg_waste3;			/* overhead carried for backward compatibility */
+	USHORT gpg_waste4;			/* overhead carried for backward compatibility */
+	USHORT gpg_waste5;			/* overhead carried for backward compatibility */
+	SINT64 gpg_values[1];		/* Generator vector */
+} *GPG;
+
+
+/* Record header */
+
+typedef struct rhd {
+	SLONG rhd_transaction;		/* transaction id */
+	SLONG rhd_b_page;			/* back pointer */
+	USHORT rhd_b_line;			/* back line */
+	USHORT rhd_flags;			/* flags, etc */
+	UCHAR rhd_format;			/* format version */
+	UCHAR rhd_data[1];
+} *RHD;
+
+#define RHD_SIZE	OFFSETA (RHD, rhd_data)
+
+/* Record header for fragmented record */
+
+typedef struct rhdf {
+	SLONG rhdf_transaction;		/* transaction id */
+	SLONG rhdf_b_page;			/* back pointer */
+	USHORT rhdf_b_line;			/* back line */
+	USHORT rhdf_flags;			/* flags, etc */
+	UCHAR rhdf_format;			/* format version */
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+	SCHAR rhdf_fill[3];			/* IMPORTANT!  THE SOLE PURPOSE OF THIS FIELD
+								   IS TO INSURE THAT THE SUCCEEDING FIELD IS ALIGNED ON A
+								   4 BYTE BOUNDARY.  IT IS NECESSARY BECAUSE THE 16-BIT
+								   COMPILER CANNOT DO THIS ALIGNMENT FOR US.  HAVING
+								   THIS FIELD INSURES THAT A PC_PLATFORM DATABASE IS
+								   IDENTICAL TO ONE ON Windows/NT. */
+#endif
+	SLONG rhdf_f_page;			/* next fragment page */
+	USHORT rhdf_f_line;			/* next fragment line */
+	UCHAR rhdf_data[1];			/* Blob data */
+} *RHDF;
+
+#define RHDF_SIZE	OFFSETA (RHDF, rhdf_data)
+
+/* Record header for blob header */
+
+typedef struct blh {
+	SLONG blh_lead_page;		/* First data page number */
+	SLONG blh_max_sequence;		/* Number of data pages */
+	USHORT blh_max_segment;		/* Longest segment */
+	USHORT blh_flags;
+	UCHAR blh_level;			/* Number of address levels */
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+	SCHAR blh_fill[3];			/* IMPORTANT!  THE SOLE PURPOSE OF THIS FIELD
+								   IS TO INSURE THAT THE SUCCEEDING FIELD IS ALIGNED ON A
+								   4 BYTE BOUNDARY.  IT IS NECESSARY BECAUSE THE 16-BIT
+								   COMPILER CANNOT DO THIS ALIGNMENT FOR US.  HAVING
+								   THIS FIELD INSURES THAT A PC_PLATFORM DATABASE IS
+								   IDENTICAL TO ONE ON Windows/NT. */
+#endif
+	SLONG blh_count;			/* Total number of segments */
+	SLONG blh_length;			/* Total length of data */
+	USHORT blh_sub_type;		/* Blob sub-type */
+	USHORT blh_unused;
+	SLONG blh_page[1];			/* Page vector for blob pages */
+} *BLH;
+
+#define blh_data	blh_page
+#define BLH_SIZE	OFFSETA (BLH, blh_page)
+
+#define rhd_deleted	1			/* record is logically deleted */
+#define rhd_chain	2			/* record is an old version */
+#define rhd_fragment	4		/* record is a fragment */
+#define rhd_incomplete	8		/* record is incomplete */
+#define rhd_blob	16			/* isn't a record but a blob */
+#define rhd_stream_blob	32		/* blob is a stream mode blob */
+#define rhd_delta	32			/* prior version is differences only */
+#define rhd_large	64			/* object is large */
+#define rhd_damaged	128			/* object is known to be damaged */
+#define rhd_gc_active	256		/* garbage collecting dead record version */
+
+/* additions for write ahead log */
+
+#define CTRL_FILE_LEN		255	/* Pre allocated size of file name */
+#define CLUMP_ADD		0
+#define CLUMP_REPLACE		1
+#define CLUMP_REPLACE_ONLY	2
+
+/* Log page */
+
+typedef struct ctrl_pt {
+	SLONG cp_seqno;
+	SLONG cp_offset;
+	SLONG cp_p_offset;
+	SSHORT cp_fn_length;
+} CP;
+
+typedef struct log_info_page {
+	struct pag log_header;
+	SLONG log_flags;			/* flags            */
+	CP log_cp_1;				/* control point 1      */
+	CP log_cp_2;				/* control point 2      */
+	CP log_file;				/* current file         */
+	SLONG log_next_page;		/* Next log page        */
+	SLONG log_mod_tip;			/* tip of modify transaction    */
+	SLONG log_mod_tid;			/* transaction id of modify process */
+	SLONG log_creation_date[2];	/* Date/time of log creation    */
+	SLONG log_free[4];			/* some extra space for later use */
+	USHORT log_end;				/* similar to hdr_end   */
+	UCHAR log_data[1];
+} *LIP;
+
+#define LIP_SIZE	OFFSETA (LIP, log_data);
+
+/* log flags */
+
+#define log_recover		1		/* recovery required */
+#define log_no_ail		2		/* dummy! will be used till df work */
+#define log_delete		4		/* log files have been deleted */
+#define log_add			8		/* log files have been added */
+#define log_rec_in_progress	16	/* recovery is in progress */
+#define log_partial_rebuild	32	/* partial recovery in progress */
+#define log_recovery_done 	64	/* long term recovery just finished */
+
+#define CTRL_FILE_LEN		255	/* Pre allocated size of file name */
+#define CLUMP_ADD		0
+#define CLUMP_REPLACE		1
+#define CLUMP_REPLACE_ONLY	2
+
+/* Log Clumplet types */
+
+#define LOG_end			HDR_end
+#define LOG_ctrl_file1		1	/* file name of 2nd last control pt */
+#define LOG_ctrl_file2		2	/* file name of last ctrl pt */
+#define LOG_logfile		3		/* Primary WAL file name */
+#define LOG_backup_info		4	/* Journal backup directory */
+#define LOG_chkpt_len		5	/* checkpoint length */
+#define LOG_num_bufs		6	/* Number of log buffers */
+#define LOG_bufsize		7		/* Buffer size */
+#define LOG_grp_cmt_wait	8	/* Group commit wait time */
+#define LOG_max			8		/* Maximum LOG_clump value */
+
+#endif /* _JRD_ODS_H_ */
diff --git a/src/jrd/ods10.gdl b/src/jrd/ods10.gdl
new file mode 100644
index 0000000000..4aed35526f
--- /dev/null
+++ b/src/jrd/ods10.gdl
@@ -0,0 +1,933 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ *	This file documents InterBase Version 6.0, ODS 10.0 metadata structure.
+ *
+ *	See also ODS91.gdl, ODS80.gdl, ODS81.gdl for respective ODS structures.  
+ *	There is specific note of the new features in this document.
+ *
+ *	Summary of ODS 10.0 modification
+ *		New column RDB$FIELD_PRECISION in RDB$FIELDS
+ *		New column RDB$FIELD_PRECISION in RDB$FUNCTION_ARGUMENTS
+ *
+ *	Databases can only be upgraded to ODS 10.0 via backup/restore.
+ *
+ *	Summary of ODS 9.1 modification:
+ *		New System index RDB$INDEX_40 
+ *
+ *	If an ODS 9.0 DB is upgraded to ODS 9.1, INDEX RDB$INDEX_40 is created.
+ *
+ *	See jrd/idx.h for description of RDB$INDEX_40 in ODS 9.1
+ *
+ *	This file was made with hacked version of GDEF -extract, which
+ *	extracted system information only.
+ *	This was done by substituting all checks (DUDLEY/extract.e) for 
+ *	(SYSTEM_FLAG NE 1) with (SYSTEM_FLAG EQ 1)
+ *	This enabled GDEF to extract only system metadata.
+ *	Also, any printf (" ... system_flag ... " ... ) was removed.
+ *
+ *	Sorting is as follows:
+ *		Global fields:		Name
+ *		Relations:		Name
+ *		Indices:		(RELATION_NAME, INDEX_NAME)
+ *		Security Classes:	Relation created order
+ *		Generators:		Name
+ *		Triggers:		Name
+ *
+ *	Note: Sources for system triggers are missing, but many
+ *	      can be found in jrd/grant.gdl.  The compiled
+ *	      blr versions are in jrd/trig.h.  Note that the compiled
+ *	      blr has been hand-edited in a few places.
+ *
+ *	Note: You can run this script by globally replacing 
+ *	      "RDB$" with "XRDB$", and "SQL$" with "XSQL$" 
+ *	      it will then make user relations with the specified system structure.
+ *	      # gdef -r ods91.gdl
+ *
+ *	Note: In metadata, most, but not all, of these items have the
+ *	      RDB$SYSTEM flag set to 1.
+ *
+ */
+
+define database "ods10.gdb"
+	page_size 1024;
+
+
+/*	Global Field Definitions	*/
+
+define field RDB$ACL blob segment_length 80 sub_type ACL;
+define field RDB$BOUND long;
+define field RDB$CHARACTER_SET_ID short;
+define field RDB$CHARACTER_SET_NAME char [31] sub_type 3;
+define field RDB$COLLATION_ID short;
+define field RDB$COLLATION_NAME char [31] sub_type 3;
+define field RDB$CONSTRAINT_NAME char [31] sub_type 3;
+define field RDB$CONSTRAINT_TYPE char [11];
+define field RDB$CONTEXT_NAME char [31] sub_type 3;
+define field RDB$DBKEY_LENGTH short;
+define field RDB$DEFERRABLE char [3];
+define field RDB$DESCRIPTION blob segment_length 80 sub_type text;
+define field RDB$DESCRIPTOR blob segment_length 80 sub_type 6;
+define field RDB$DIMENSION short;
+define field RDB$DIMENSIONS short;
+define field RDB$EDIT_STRING varying [125];
+define field RDB$EXCEPTION_NAME char [31] sub_type 3;
+define field RDB$EXCEPTION_NUMBER long;
+define field RDB$EXTERNAL_DESCRIPTION blob segment_length 80 sub_type 8;
+define field RDB$EXTERNAL_NAME char [31];
+define field RDB$FIELD_ID short;
+define field RDB$FIELD_LENGTH short;
+define field RDB$FIELD_NAME char [31] sub_type 3;
+define field RDB$FIELD_POSITION short;
+define field RDB$FIELD_SCALE short;
+define field RDB$FIELD_SUB_TYPE short;
+define field RDB$FIELD_TYPE short;
+define field RDB$FILE_FLAGS short;
+define field RDB$FILE_LENGTH long;
+define field RDB$FILE_NAME varying [253];
+define field RDB$FILE_PARTITIONS short;
+define field RDB$FILE_P_OFFSET long;
+define field RDB$FILE_SEQUENCE short;
+define field RDB$FILE_START long;
+define field RDB$FORMAT short;
+define field RDB$FUNCTION_NAME char [31] sub_type 3;
+define field RDB$FUNCTION_TYPE short;
+define field RDB$GENERATOR_ID short;
+define field RDB$GENERATOR_NAME char [31] sub_type 3;
+define field RDB$GENERIC_NAME char [31] sub_type 3;
+define field RDB$GENERIC_TYPE short;
+define field RDB$INDEX_ID short;
+define field RDB$INDEX_NAME char [31] sub_type 3;
+define field RDB$MATCH_OPTION char [7];
+define field RDB$MECHANISM short;
+define field RDB$MESSAGE varying [78];
+define field RDB$MESSAGE_NUMBER short;
+define field RDB$NULL_FLAG short;
+define field RDB$NUMBER_OF_CHARACTERS long;
+define field RDB$OBJECT_TYPE short;
+define field RDB$PAGE_NUMBER long;
+define field RDB$PAGE_SEQUENCE long;
+define field RDB$PAGE_TYPE short;
+define field RDB$PARAMETER_NAME char [31] sub_type 3;
+define field RDB$PARAMETER_NUMBER short;
+define field RDB$PARAMETER_TYPE short;
+define field RDB$PRIVILEGE char [6];
+define field RDB$PROCEDURE_BLR blob segment_length 80 sub_type BLR;
+define field RDB$PROCEDURE_ID short;
+define field RDB$PROCEDURE_NAME char [31] sub_type 3;
+define field RDB$PROCEDURE_PARAMETERS short;
+define field RDB$QUERY_HEADER blob segment_length 80 sub_type text;
+define field RDB$RELATION_ID short;
+define field RDB$RELATION_NAME char [31] sub_type 3;
+define field RDB$RULE char [11];
+define field RDB$RUNTIME blob segment_length 80 sub_type 5;
+define field RDB$SECURITY_CLASS char [31] sub_type 3;
+define field RDB$SEGMENT_COUNT short;
+define field RDB$SEGMENT_LENGTH short;
+define field RDB$SHADOW_NUMBER short;
+define field RDB$SOURCE blob segment_length 80 sub_type text;
+define field RDB$STATISTICS double;
+define field RDB$SYSTEM_FLAG short;
+define field RDB$TIMESTAMP date;
+define field RDB$TRANSACTION_DESCRIPTION blob segment_length 80 sub_type 7;
+define field RDB$TRANSACTION_ID long;
+define field RDB$TRANSACTION_STATE short;
+define field RDB$TRIGGER_BLR blob segment_length 80 sub_type BLR;
+define field RDB$TRIGGER_NAME char [31] sub_type 3;
+define field RDB$TRIGGER_SEQUENCE short;
+define field RDB$TRIGGER_TYPE short;
+define field RDB$TYPE_NAME char [31] sub_type 3;
+define field RDB$USER char [31] sub_type 3;
+define field RDB$VALIDATION_BLR blob segment_length 80 sub_type BLR;
+define field RDB$VALUE blob segment_length 80 sub_type BLR;
+define field RDB$VIEW_BLR blob segment_length 80 sub_type BLR;
+define field RDB$VIEW_CONTEXT short;
+
+
+/*	Relation Definitions	*/
+
+
+define relation RDB$CHARACTER_SETS
+    RDB$CHARACTER_SET_NAME	position 0,
+    RDB$FORM_OF_USE based on RDB$GENERIC_NAME	position 1,
+    RDB$NUMBER_OF_CHARACTERS	position 2,
+    RDB$DEFAULT_COLLATE_NAME based on RDB$COLLATION_NAME	position 3,
+    RDB$CHARACTER_SET_ID	position 4,
+    RDB$SYSTEM_FLAG	position 5,
+    RDB$DESCRIPTION	position 6,
+    RDB$FUNCTION_NAME	position 7,
+    RDB$BYTES_PER_CHARACTER based on RDB$FIELD_LENGTH	position 8;
+
+define relation RDB$CHECK_CONSTRAINTS
+    RDB$CONSTRAINT_NAME	position 0,
+    RDB$TRIGGER_NAME	position 1;
+
+define relation RDB$COLLATIONS
+    RDB$COLLATION_NAME	position 0,
+    RDB$COLLATION_ID	position 1,
+    RDB$CHARACTER_SET_ID	position 2,
+    RDB$COLLATION_ATTRIBUTES based on RDB$GENERIC_TYPE	position 3,
+    RDB$SYSTEM_FLAG	position 4,
+    RDB$DESCRIPTION	position 5,
+    RDB$FUNCTION_NAME	position 6;
+
+define relation RDB$DATABASE
+    RDB$DESCRIPTION	position 0,
+    RDB$RELATION_ID	position 1,
+    RDB$SECURITY_CLASS	position 2,
+    RDB$CHARACTER_SET_NAME	position 3;
+
+define relation RDB$DEPENDENCIES
+    RDB$DEPENDENT_NAME based on RDB$GENERIC_NAME	position 0,
+    RDB$DEPENDED_ON_NAME based on RDB$GENERIC_NAME	position 1,
+    RDB$FIELD_NAME	position 2,
+    RDB$DEPENDENT_TYPE based on RDB$OBJECT_TYPE	position 3,
+    RDB$DEPENDED_ON_TYPE based on RDB$OBJECT_TYPE	position 4;
+
+define relation RDB$EXCEPTIONS
+    RDB$EXCEPTION_NAME	position 0,
+    RDB$EXCEPTION_NUMBER	position 1,
+    RDB$MESSAGE	position 2,
+    RDB$DESCRIPTION	position 3,
+    RDB$SYSTEM_FLAG	position 4;
+
+define relation RDB$FIELDS
+    RDB$FIELD_NAME	position 0,
+    RDB$QUERY_NAME based on RDB$FIELD_NAME	position 1,
+    RDB$VALIDATION_BLR	position 2,
+    RDB$VALIDATION_SOURCE based on RDB$SOURCE	position 3,
+    RDB$COMPUTED_BLR based on RDB$VALUE	position 4,
+    RDB$COMPUTED_SOURCE based on RDB$SOURCE	position 5,
+    RDB$DEFAULT_VALUE based on RDB$VALUE	position 6,
+    RDB$DEFAULT_SOURCE based on RDB$SOURCE	position 7,
+    RDB$FIELD_LENGTH	position 8,
+    RDB$FIELD_SCALE	position 9,
+    RDB$FIELD_TYPE	position 10,
+    RDB$FIELD_SUB_TYPE	position 11,
+    RDB$MISSING_VALUE based on RDB$VALUE	position 12,
+    RDB$MISSING_SOURCE based on RDB$SOURCE	position 13,
+    RDB$DESCRIPTION	position 14,
+    RDB$SYSTEM_FLAG	position 15,
+    RDB$QUERY_HEADER	position 16,
+    RDB$SEGMENT_LENGTH	position 17,
+    RDB$EDIT_STRING	position 18,
+    RDB$EXTERNAL_LENGTH based on RDB$FIELD_LENGTH	position 19,
+    RDB$EXTERNAL_SCALE based on RDB$FIELD_SCALE	position 20,
+    RDB$EXTERNAL_TYPE based on RDB$FIELD_TYPE	position 21,
+    RDB$DIMENSIONS	position 22,
+    RDB$NULL_FLAG	position 23,
+    RDB$CHARACTER_LENGTH based on RDB$FIELD_LENGTH	position 24,
+    RDB$COLLATION_ID	position 25,
+    RDB$CHARACTER_SET_ID	position 26,
+    RDB$FIELD_PRECISION based on RDB$FIELD_POSITION	position 27;
+
+define relation RDB$FIELD_DIMENSIONS
+    RDB$FIELD_NAME	position 0,
+    RDB$DIMENSION	position 1,
+    RDB$LOWER_BOUND based on RDB$BOUND	position 2,
+    RDB$UPPER_BOUND based on RDB$BOUND	position 3;
+
+define relation RDB$FILES
+    RDB$FILE_NAME	position 0,
+    RDB$FILE_SEQUENCE	position 1,
+    RDB$FILE_START	position 2,
+    RDB$FILE_LENGTH	position 3,
+    RDB$FILE_FLAGS	position 4,
+    RDB$SHADOW_NUMBER	position 5;
+
+define relation RDB$FILTERS
+    RDB$FUNCTION_NAME	position 0,
+    RDB$DESCRIPTION	position 1,
+    RDB$MODULE_NAME based on RDB$FILE_NAME	position 2,
+    RDB$ENTRYPOINT based on RDB$EXTERNAL_NAME	position 3,
+    RDB$INPUT_SUB_TYPE based on RDB$FIELD_SUB_TYPE	position 4,
+    RDB$OUTPUT_SUB_TYPE based on RDB$FIELD_SUB_TYPE	position 5,
+    RDB$SYSTEM_FLAG	position 6;
+
+define relation RDB$FORMATS
+    RDB$RELATION_ID	position 0,
+    RDB$FORMAT	position 1,
+    RDB$DESCRIPTOR	position 2;
+
+define relation RDB$FUNCTIONS
+    RDB$FUNCTION_NAME	position 0,
+    RDB$FUNCTION_TYPE	position 1,
+    RDB$QUERY_NAME based on RDB$FIELD_NAME	position 2,
+    RDB$DESCRIPTION	position 3,
+    RDB$MODULE_NAME based on RDB$FILE_NAME	position 4,
+    RDB$ENTRYPOINT based on RDB$EXTERNAL_NAME	position 5,
+    RDB$RETURN_ARGUMENT based on RDB$FIELD_POSITION	position 6,
+    RDB$SYSTEM_FLAG	position 7;
+
+define relation RDB$FUNCTION_ARGUMENTS
+    RDB$FUNCTION_NAME	position 0,
+    RDB$ARGUMENT_POSITION based on RDB$FIELD_POSITION	position 1,
+    RDB$MECHANISM	position 2,
+    RDB$FIELD_TYPE	position 3,
+    RDB$FIELD_SCALE	position 4,
+    RDB$FIELD_LENGTH	position 5,
+    RDB$FIELD_SUB_TYPE	position 6,
+    RDB$CHARACTER_SET_ID	position 7,
+    RDB$FIELD_PRECISION based on RDB$FIELD_POSITION	position 8;
+
+define relation RDB$GENERATORS
+    RDB$GENERATOR_NAME	position 0,
+    RDB$GENERATOR_ID	position 1,
+    RDB$SYSTEM_FLAG	position 2;
+
+define relation RDB$INDEX_SEGMENTS
+    RDB$INDEX_NAME	position 0,
+    RDB$FIELD_NAME	position 1,
+    RDB$FIELD_POSITION	position 2;
+
+define relation RDB$INDICES
+    RDB$INDEX_NAME	position 0,
+    RDB$RELATION_NAME	position 1,
+    RDB$INDEX_ID	position 2,
+    RDB$UNIQUE_FLAG based on RDB$SYSTEM_FLAG	position 3,
+    RDB$DESCRIPTION	position 4,
+    RDB$SEGMENT_COUNT	position 5,
+    RDB$INDEX_INACTIVE based on RDB$SYSTEM_FLAG	position 6,
+    RDB$INDEX_TYPE based on RDB$SYSTEM_FLAG	position 7,
+    RDB$FOREIGN_KEY based on RDB$RELATION_NAME	position 8,
+    RDB$SYSTEM_FLAG	position 9,
+    RDB$EXPRESSION_BLR based on RDB$VALUE	position 10,
+    RDB$EXPRESSION_SOURCE based on RDB$SOURCE	position 11,
+    RDB$STATISTICS	position 12;
+
+define relation RDB$LOG_FILES
+    RDB$FILE_NAME	position 0,
+    RDB$FILE_SEQUENCE	position 1,
+    RDB$FILE_LENGTH	position 2,
+    RDB$FILE_PARTITIONS	position 3,
+    RDB$FILE_P_OFFSET	position 4,
+    RDB$FILE_FLAGS	position 5;
+
+define relation RDB$PAGES
+    RDB$PAGE_NUMBER	position 0,
+    RDB$RELATION_ID	position 1,
+    RDB$PAGE_SEQUENCE	position 2,
+    RDB$PAGE_TYPE	position 3;
+
+define relation RDB$PROCEDURES
+    RDB$PROCEDURE_NAME	position 0,
+    RDB$PROCEDURE_ID	position 1,
+    RDB$PROCEDURE_INPUTS based on RDB$PROCEDURE_PARAMETERS	position 2,
+    RDB$PROCEDURE_OUTPUTS based on RDB$PROCEDURE_PARAMETERS	position 3,
+    RDB$DESCRIPTION	position 4,
+    RDB$PROCEDURE_SOURCE based on RDB$SOURCE	position 5,
+    RDB$PROCEDURE_BLR	position 6,
+    RDB$SECURITY_CLASS	position 7,
+    RDB$OWNER_NAME based on RDB$USER	position 8,
+    RDB$RUNTIME	position 9,
+    RDB$SYSTEM_FLAG	position 10;
+
+define relation RDB$PROCEDURE_PARAMETERS
+    RDB$PARAMETER_NAME	position 0,
+    RDB$PROCEDURE_NAME	position 1,
+    RDB$PARAMETER_NUMBER	position 2,
+    RDB$PARAMETER_TYPE	position 3,
+    RDB$FIELD_SOURCE based on RDB$FIELD_NAME	position 4,
+    RDB$DESCRIPTION	position 5,
+    RDB$SYSTEM_FLAG	position 6;
+
+define relation RDB$REF_CONSTRAINTS
+    RDB$CONSTRAINT_NAME	position 0,
+    RDB$CONST_NAME_UQ based on RDB$CONSTRAINT_NAME	position 1,
+    RDB$MATCH_OPTION	position 2,
+    RDB$UPDATE_RULE based on RDB$RULE	position 3,
+    RDB$DELETE_RULE based on RDB$RULE	position 4;
+
+define relation RDB$RELATIONS
+    RDB$VIEW_BLR	position 0,
+    RDB$VIEW_SOURCE based on RDB$SOURCE	position 1,
+    RDB$DESCRIPTION	position 2,
+    RDB$RELATION_ID	position 3,
+    RDB$SYSTEM_FLAG	position 4,
+    RDB$DBKEY_LENGTH	position 5,
+    RDB$FORMAT	position 6,
+    RDB$FIELD_ID	position 7,
+    RDB$RELATION_NAME	position 8,
+    RDB$SECURITY_CLASS	position 9,
+    RDB$EXTERNAL_FILE based on RDB$FILE_NAME	position 10,
+    RDB$RUNTIME	position 11,
+    RDB$EXTERNAL_DESCRIPTION	position 12,
+    RDB$OWNER_NAME based on RDB$USER	position 13,
+    RDB$DEFAULT_CLASS based on RDB$SECURITY_CLASS	position 14,
+    RDB$FLAGS based on RDB$SYSTEM_FLAG	position 15;
+
+define relation RDB$RELATION_CONSTRAINTS
+    RDB$CONSTRAINT_NAME	position 0,
+    RDB$CONSTRAINT_TYPE	position 1,
+    RDB$RELATION_NAME	position 2,
+    RDB$DEFERRABLE	position 3,
+    RDB$INITIALLY_DEFERRED based on RDB$DEFERRABLE	position 4,
+    RDB$INDEX_NAME	position 5;
+
+define relation RDB$RELATION_FIELDS
+    RDB$FIELD_NAME	position 0,
+    RDB$RELATION_NAME	position 1,
+    RDB$FIELD_SOURCE based on RDB$FIELD_NAME	position 2,
+    RDB$QUERY_NAME based on RDB$FIELD_NAME	position 3,
+    RDB$BASE_FIELD based on RDB$FIELD_NAME	position 4,
+    RDB$EDIT_STRING	position 5,
+    RDB$FIELD_POSITION	position 6,
+    RDB$QUERY_HEADER	position 7,
+    RDB$UPDATE_FLAG based on RDB$SYSTEM_FLAG	position 8,
+    RDB$FIELD_ID	position 9,
+    RDB$VIEW_CONTEXT	position 10,
+    RDB$DESCRIPTION	position 11,
+    RDB$DEFAULT_VALUE based on RDB$VALUE	position 12,
+    RDB$SYSTEM_FLAG	position 13,
+    RDB$SECURITY_CLASS	position 14,
+    RDB$COMPLEX_NAME based on RDB$FIELD_NAME	position 15,
+    RDB$NULL_FLAG	position 16,
+    RDB$DEFAULT_SOURCE based on RDB$SOURCE	position 17,
+    RDB$COLLATION_ID	position 18;
+
+define relation RDB$ROLES
+    RDB$ROLE_NAME based on RDB$USER	position 0,
+    RDB$OWNER_NAME based on RDB$USER	position 1;
+
+define relation RDB$SECURITY_CLASSES
+    RDB$SECURITY_CLASS	position 0,
+    RDB$ACL	position 1,
+    RDB$DESCRIPTION	position 2;
+
+define relation RDB$TRANSACTIONS
+    RDB$TRANSACTION_ID	position 0,
+    RDB$TRANSACTION_STATE	position 1,
+    RDB$TIMESTAMP	position 2,
+    RDB$TRANSACTION_DESCRIPTION	position 3;
+
+define relation RDB$TRIGGERS
+    RDB$TRIGGER_NAME	position 0,
+    RDB$RELATION_NAME	position 1,
+    RDB$TRIGGER_SEQUENCE	position 2,
+    RDB$TRIGGER_TYPE	position 3,
+    RDB$TRIGGER_SOURCE based on RDB$SOURCE	position 4,
+    RDB$TRIGGER_BLR	position 5,
+    RDB$DESCRIPTION	position 6,
+    RDB$TRIGGER_INACTIVE based on RDB$SYSTEM_FLAG	position 7,
+    RDB$SYSTEM_FLAG	position 8,
+    RDB$FLAGS based on RDB$SYSTEM_FLAG	position 9;
+
+define relation RDB$TRIGGER_MESSAGES
+    RDB$TRIGGER_NAME	position 0,
+    RDB$MESSAGE_NUMBER	position 1,
+    RDB$MESSAGE	position 2;
+
+define relation RDB$TYPES
+    RDB$FIELD_NAME	position 0,
+    RDB$TYPE based on RDB$GENERIC_TYPE	position 1,
+    RDB$TYPE_NAME	position 2,
+    RDB$DESCRIPTION	position 3,
+    RDB$SYSTEM_FLAG	position 4;
+
+define relation RDB$USER_PRIVILEGES
+    RDB$USER	position 0,
+    RDB$GRANTOR based on RDB$USER	position 1,
+    RDB$PRIVILEGE	position 2,
+    RDB$GRANT_OPTION based on RDB$SYSTEM_FLAG	position 3,
+    RDB$RELATION_NAME based on RDB$GENERIC_NAME	position 4,
+    RDB$FIELD_NAME	position 5,
+    RDB$USER_TYPE based on RDB$OBJECT_TYPE	position 6,
+    RDB$OBJECT_TYPE	position 7;
+
+define relation RDB$VIEW_RELATIONS
+    RDB$VIEW_NAME based on RDB$RELATION_NAME	position 0,
+    RDB$RELATION_NAME	position 1,
+    RDB$VIEW_CONTEXT	position 2,
+    RDB$CONTEXT_NAME	position 3;
+
+
+/*	Index Definitions	*/
+
+
+define index RDB$INDEX_19 for RDB$CHARACTER_SETS unique
+	RDB$CHARACTER_SET_NAME;
+
+define index RDB$INDEX_25 for RDB$CHARACTER_SETS unique
+	RDB$CHARACTER_SET_ID;
+
+define index RDB$INDEX_14 for RDB$CHECK_CONSTRAINTS 
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_40 for RDB$CHECK_CONSTRAINTS 
+	RDB$TRIGGER_NAME;
+
+define index RDB$INDEX_20 for RDB$COLLATIONS unique
+	RDB$COLLATION_NAME;
+
+define index RDB$INDEX_26 for RDB$COLLATIONS unique
+	RDB$COLLATION_ID,
+	RDB$CHARACTER_SET_ID;
+
+define index RDB$INDEX_27 for RDB$DEPENDENCIES 
+	RDB$DEPENDENT_NAME;
+
+define index RDB$INDEX_28 for RDB$DEPENDENCIES 
+	RDB$DEPENDED_ON_NAME;
+
+define index RDB$INDEX_23 for RDB$EXCEPTIONS unique
+	RDB$EXCEPTION_NAME;
+
+define index RDB$INDEX_24 for RDB$EXCEPTIONS 
+	RDB$EXCEPTION_NUMBER;
+
+define index RDB$INDEX_2 for RDB$FIELDS unique
+	RDB$FIELD_NAME;
+
+define index RDB$INDEX_36 for RDB$FIELD_DIMENSIONS 
+	RDB$FIELD_NAME;
+
+define index RDB$INDEX_17 for RDB$FILTERS 
+	RDB$INPUT_SUB_TYPE,
+	RDB$OUTPUT_SUB_TYPE;
+
+define index RDB$INDEX_16 for RDB$FORMATS 
+	RDB$RELATION_ID,
+	RDB$FORMAT;
+
+define index RDB$INDEX_9 for RDB$FUNCTIONS unique
+	RDB$FUNCTION_NAME;
+
+define index RDB$INDEX_10 for RDB$FUNCTION_ARGUMENTS 
+	RDB$FUNCTION_NAME;
+
+define index RDB$INDEX_11 for RDB$GENERATORS unique
+	RDB$GENERATOR_NAME;
+
+define index RDB$INDEX_6 for RDB$INDEX_SEGMENTS 
+	RDB$INDEX_NAME;
+
+define index RDB$INDEX_31 for RDB$INDICES 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_5 for RDB$INDICES unique
+	RDB$INDEX_NAME;
+
+define index RDB$INDEX_21 for RDB$PROCEDURES unique
+	RDB$PROCEDURE_NAME;
+
+define index RDB$INDEX_22 for RDB$PROCEDURES 
+	RDB$PROCEDURE_ID;
+
+define index RDB$INDEX_18 for RDB$PROCEDURE_PARAMETERS unique
+	RDB$PROCEDURE_NAME,
+	RDB$PARAMETER_NAME;
+
+define index RDB$INDEX_13 for RDB$REF_CONSTRAINTS unique
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_0 for RDB$RELATIONS unique
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_1 for RDB$RELATIONS 
+	RDB$RELATION_ID;
+
+define index RDB$INDEX_12 for RDB$RELATION_CONSTRAINTS unique
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_15 for RDB$RELATION_FIELDS unique
+	RDB$FIELD_NAME,
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_3 for RDB$RELATION_FIELDS 
+	RDB$FIELD_SOURCE;
+
+define index RDB$INDEX_4 for RDB$RELATION_FIELDS 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_39 for RDB$ROLES unique
+	RDB$ROLE_NAME;
+
+define index RDB$INDEX_7 for RDB$SECURITY_CLASSES unique
+	RDB$SECURITY_CLASS;
+
+define index RDB$INDEX_32 for RDB$TRANSACTIONS unique
+	RDB$TRANSACTION_ID;
+
+define index RDB$INDEX_38 for RDB$TRIGGERS 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_8 for RDB$TRIGGERS unique
+	RDB$TRIGGER_NAME;
+
+define index RDB$INDEX_35 for RDB$TRIGGER_MESSAGES 
+	RDB$TRIGGER_NAME;
+
+define index RDB$INDEX_37 for RDB$TYPES 
+	RDB$TYPE_NAME;
+
+define index RDB$INDEX_29 for RDB$USER_PRIVILEGES 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_30 for RDB$USER_PRIVILEGES 
+	RDB$USER;
+
+define index RDB$INDEX_33 for RDB$VIEW_RELATIONS 
+	RDB$VIEW_NAME;
+
+define index RDB$INDEX_34 for RDB$VIEW_RELATIONS 
+	RDB$RELATION_NAME;
+
+/*	Add Security Classes to Defined Objects	*/
+
+
+
+modify relation RDB$ROLES
+	security_class SQL$RDB$ROLES;
+
+
+/*	Security Class Definitions / GRANT statements	*/
+
+
+grant DELETE on RDB$ROLES to DSCHNEPP with grant option;
+
+grant INSERT on RDB$ROLES to DSCHNEPP with grant option;
+
+grant SELECT on RDB$ROLES to DSCHNEPP with grant option;
+
+grant UPDATE on RDB$ROLES to DSCHNEPP with grant option;
+
+grant SELECT on RDB$ROLES to PUBLIC;
+
+
+/*	Generator Definitions	*/
+
+
+define generator RDB$CONSTRAINT_NAME;
+define generator RDB$EXCEPTIONS;
+define generator RDB$FIELD_NAME;
+define generator RDB$INDEX_NAME;
+define generator RDB$PROCEDURES;
+define generator RDB$SECURITY_CLASS;
+define generator RDB$TRIGGER_NAME;
+define generator SQL$DEFAULT;
+
+/*	Trigger Definitions	*/
+
+
+
+define trigger RDB$TRIGGER_1 for RDB$USER_PRIVILEGES
+	pre modify 0:
+****  trigger source for trigger RDB$TRIGGER_1 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_1 must be recreated ****
+
+	end_trigger 
+	message  0:  'existing_priv_mod                                                             ';
+
+define trigger RDB$TRIGGER_10 for RDB$RELATION_CONSTRAINTS
+	pre erase 0:
+****  trigger source for trigger RDB$TRIGGER_10 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_10 must be recreated ****
+
+	end_trigger 
+	message  1:  'primary_key_ref                                                               ',
+	message  2:  'primary_key_notnull                                                           ';
+
+define trigger RDB$TRIGGER_11 for RDB$RELATION_CONSTRAINTS
+	post erase 0:
+****  trigger source for trigger RDB$TRIGGER_11 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_11 must be recreated ****
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_12 for RDB$REF_CONSTRAINTS
+	pre store 0:
+****  trigger source for trigger RDB$TRIGGER_12 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_12 must be recreated ****
+
+	end_trigger 
+	message  1:  'ref_cnstrnt_notfound                                                          ',
+	message  2:  'foreign_key_notfound                                                          ';
+
+define trigger RDB$TRIGGER_13 for RDB$REF_CONSTRAINTS
+	pre modify 0:
+****  trigger source for trigger RDB$TRIGGER_13 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_13 must be recreated ****
+
+	end_trigger 
+	message  1:  'ref_cnstrnt_update                                                            ';
+
+define trigger RDB$TRIGGER_14 for RDB$CHECK_CONSTRAINTS
+	pre modify 0:
+****  trigger source for trigger RDB$TRIGGER_14 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_14 must be recreated ****
+
+	end_trigger 
+	message  1:  'check_cnstrnt_update                                                          ';
+
+define trigger RDB$TRIGGER_15 for RDB$CHECK_CONSTRAINTS
+	pre erase 0:
+****  trigger source for trigger RDB$TRIGGER_15 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_15 must be recreated ****
+
+	end_trigger 
+	message  1:  'check_cnstrnt_del                                                             ';
+
+define trigger RDB$TRIGGER_16 for RDB$CHECK_CONSTRAINTS
+	post erase 0:
+****  trigger source for trigger RDB$TRIGGER_16 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_16 must be recreated ****
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_17 for RDB$INDEX_SEGMENTS
+	pre erase 0:
+****  trigger source for trigger RDB$TRIGGER_17 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_17 must be recreated ****
+
+	end_trigger 
+	message  1:  'integ_index_seg_del                                                           ';
+
+define trigger RDB$TRIGGER_18 for RDB$INDEX_SEGMENTS
+	pre modify 0:
+****  trigger source for trigger RDB$TRIGGER_18 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_18 must be recreated ****
+
+	end_trigger 
+	message  1:  'integ_index_seg_mod                                                           ';
+
+define trigger RDB$TRIGGER_19 for RDB$INDICES
+	pre erase 0:
+****  trigger source for trigger RDB$TRIGGER_19 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_19 must be recreated ****
+
+	end_trigger 
+	message  1:  'integ_index_del                                                               ';
+
+define trigger RDB$TRIGGER_2 for RDB$TRIGGERS
+	pre modify 0:
+****  trigger source for trigger RDB$TRIGGER_2 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_2 must be recreated ****
+
+	end_trigger 
+	message  0:  'systrig_update                                                                ';
+
+define trigger RDB$TRIGGER_20 for RDB$INDICES
+	pre modify 0:
+****  trigger source for trigger RDB$TRIGGER_20 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_20 must be recreated ****
+
+	end_trigger 
+	message  1:  'integ_index_mod                                                               ',
+	message  2:  'integ_index_deactivate                                                        ',
+	message  3:  'integ_deactivate_primary                                                      ';
+
+define trigger RDB$TRIGGER_21 for RDB$TRIGGERS
+	pre erase 0:
+****  trigger source for trigger RDB$TRIGGER_21 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_21 must be recreated ****
+
+	end_trigger 
+	message  1:  'check_trig_del                                                                ';
+
+define trigger RDB$TRIGGER_22 for RDB$TRIGGERS
+	pre modify 0:
+****  trigger source for trigger RDB$TRIGGER_22 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_22 must be recreated ****
+
+	end_trigger 
+	message  1:  'check_trig_update                                                             ';
+
+define trigger RDB$TRIGGER_23 for RDB$RELATION_FIELDS
+	pre erase 0:
+****  trigger source for trigger RDB$TRIGGER_23 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_23 must be recreated ****
+
+	end_trigger 
+	message  1:  'cnstrnt_fld_del                                                               ';
+
+define trigger RDB$TRIGGER_24 for RDB$RELATION_FIELDS
+	pre modify 0:
+****  trigger source for trigger RDB$TRIGGER_24 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_24 must be recreated ****
+
+	end_trigger 
+	message  1:  'cnstrnt_fld_rename                                                            ';
+
+define trigger RDB$TRIGGER_25 for RDB$RELATION_CONSTRAINTS
+	pre modify 0:
+****  trigger source for trigger RDB$TRIGGER_25 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_25 must be recreated ****
+
+	end_trigger 
+	message  1:  'rel_cnstrnt_update                                                            ';
+
+define trigger RDB$TRIGGER_26 for RDB$RELATION_CONSTRAINTS
+	pre store 0:
+****  trigger source for trigger RDB$TRIGGER_26 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_26 must be recreated ****
+
+	end_trigger 
+	message  1:  'constaint_on_view                                                             ',
+	message  2:  'invld_cnstrnt_type                                                            ',
+	message  3:  'primary_key_exists                                                            ';
+
+define trigger RDB$TRIGGER_27 for RDB$RELATION_FIELDS
+	post erase 0:
+****  trigger source for trigger RDB$TRIGGER_27 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_27 must be recreated ****
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_28 for RDB$PROCEDURES
+	pre store 0:
+****  trigger source for trigger RDB$TRIGGER_28 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_28 must be recreated ****
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_29 for RDB$PROCEDURES
+	pre modify 0:
+****  trigger source for trigger RDB$TRIGGER_29 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_29 must be recreated ****
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_3 for RDB$TRIGGERS
+	pre erase 0:
+****  trigger source for trigger RDB$TRIGGER_3 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_3 must be recreated ****
+
+	end_trigger 
+	message  0:  'systrig_update                                                                ';
+
+define trigger RDB$TRIGGER_30 for RDB$EXCEPTIONS
+	pre store 0:
+****  trigger source for trigger RDB$TRIGGER_30 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_30 must be recreated ****
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_31 for RDB$USER_PRIVILEGES
+	pre modify 0:
+****  trigger source for trigger RDB$TRIGGER_31 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_31 must be recreated ****
+
+	end_trigger 
+	message  0:  'no_write_user_priv                                                            ';
+
+define trigger RDB$TRIGGER_32 for RDB$USER_PRIVILEGES
+	pre erase 0:
+****  trigger source for trigger RDB$TRIGGER_32 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_32 must be recreated ****
+
+	end_trigger 
+	message  0:  'no_write_user_priv                                                            ';
+
+define trigger RDB$TRIGGER_33 for RDB$USER_PRIVILEGES
+	pre store 0:
+****  trigger source for trigger RDB$TRIGGER_33 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_33 must be recreated ****
+
+	end_trigger 
+	message  0:  'no_write_user_priv                                                            ';
+
+define trigger RDB$TRIGGER_34 for RDB$RELATION_CONSTRAINTS
+	post erase 0:
+****  trigger source for trigger RDB$TRIGGER_34 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_34 must be recreated ****
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_35 for RDB$CHECK_CONSTRAINTS
+	post erase 0:
+****  trigger source for trigger RDB$TRIGGER_35 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_35 must be recreated ****
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_4 for RDB$RELATIONS
+	pre store 0:
+****  trigger source for trigger RDB$TRIGGER_4 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_4 must be recreated ****
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_5 for RDB$RELATIONS
+	pre modify 0:
+****  trigger source for trigger RDB$TRIGGER_5 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_5 must be recreated ****
+
+	end_trigger 
+	message  0:  'not_rel_owner                                                                 ';
+
+define trigger RDB$TRIGGER_6 for RDB$GENERATORS
+	pre store 0:
+****  trigger source for trigger RDB$TRIGGER_6 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_6 must be recreated ****
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_8 for RDB$USER_PRIVILEGES
+	pre erase 0:
+****  trigger source for trigger RDB$TRIGGER_8 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_8 must be recreated ****
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_9 for RDB$USER_PRIVILEGES
+	pre store 0:
+****  trigger source for trigger RDB$TRIGGER_9 must be recreated ****
+
+****  trigger source for trigger RDB$TRIGGER_9 must be recreated ****
+
+	end_trigger 
+	message  0:  'grant_obj_notfound                                                            ',
+	message  1:  'grant_fld_notfound                                                            ',
+	message  2:  'grant_nopriv                                                                  ',
+	message  3:  'nonsql_security_rel                                                           ',
+	message  4:  'nonsql_security_fld                                                           ',
+	message  5:  'grant_nopriv_on_base                                                          ';
diff --git a/src/jrd/ods72.gdl b/src/jrd/ods72.gdl
new file mode 100644
index 0000000000..f9f218f6c7
--- /dev/null
+++ b/src/jrd/ods72.gdl
@@ -0,0 +1,415 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ *	This file documents InterBase Version 3.3D ODS 7.2 metadata structure.
+ *
+ *	It was made with a hacked version of GDEF, which
+ *	extracted system fields only.
+ *
+ *	Sorting is as follows:
+ *		Global fields:	Name
+ *		Relations:	Relation ID
+ *		Indices:	Created order
+ *		Generators:	Created order
+ *		Triggers:	Created order
+ *
+ *	Note: Sources for system triggers are missing.
+ *	      The compiled blr versions are in jrd/trig.h.
+ *
+ *	Note: You can run this script by globally replacing "RDB$"
+ *	      with "XRDB$", it will then make user relations
+ *            with the specified system structure.
+ *
+ */
+
+define database "v33d_ods72.gdb"
+	page_size 1024;
+
+
+/*	Global Field Definitions	*/
+
+define field RDB$ACL                  blob segment_length 80 sub_type ACL;
+define field RDB$BOUND                long;
+define field RDB$CONTEXT_NAME         char [31];
+define field RDB$DBKEY_LENGTH         short;
+define field RDB$DEFAULT_VALUE        blob segment_length 80 sub_type BLR;
+define field RDB$DEPENDENCY_TYPE      short;
+define field RDB$DESCRIPTION          blob segment_length 80 sub_type text;
+define field RDB$DESCRIPTOR           blob segment_length 80 sub_type 6;
+define field RDB$DIMENSION            short;
+define field RDB$DIMENSIONS           short;
+define field RDB$EDIT_STRING          varying [125];
+define field RDB$EXTERNAL_DESCRIPTION blob segment_length 80 sub_type 7;
+define field RDB$EXTERNAL_NAME        char [31];
+define field RDB$FIELD_ID             short;
+define field RDB$FIELD_LENGTH         short;
+define field RDB$FIELD_NAME           char [31];
+define field RDB$FIELD_POSITION       short;
+define field RDB$FIELD_SCALE          short;
+define field RDB$FIELD_SUB_TYPE       short;
+define field RDB$FIELD_TYPE           short;
+define field RDB$FILE_FLAGS           short;
+define field RDB$FILE_LENGTH          long;
+define field RDB$FILE_NAME            varying [125];
+define field RDB$FILE_SEQUENCE        short;
+define field RDB$FILE_START           long;
+define field RDB$FORMAT               short;
+define field RDB$FUNCTION_NAME        char [31];
+define field RDB$FUNCTION_TYPE        short;
+define field RDB$GENERATOR_ID         short;
+define field RDB$GENERATOR_NAME       char [31];
+define field RDB$GENERIC_NAME         char [31];
+define field RDB$GENERIC_TYPE         short;
+define field RDB$INDEX_ID             short;
+define field RDB$INDEX_NAME           char [31];
+define field RDB$MECHANISM            short;
+define field RDB$MESSAGE              varying [78];
+define field RDB$MESSAGE_NUMBER       short;
+define field RDB$PAGE_NUMBER          long;
+define field RDB$PAGE_SEQUENCE        long;
+define field RDB$PAGE_TYPE            short;
+define field RDB$PRIVILEGE            char [6];
+define field RDB$QUERY_HEADER         blob segment_length 80 sub_type text;
+define field RDB$RELATION_ID          short;
+define field RDB$RELATION_NAME        char [31];
+define field RDB$RUNTIME              blob segment_length 80 sub_type 5;
+define field RDB$SECURITY_CLASS       char [31];
+define field RDB$SEGMENT_COUNT        short;
+define field RDB$SEGMENT_LENGTH       short;
+define field RDB$SHADOW_NUMBER        short;
+define field RDB$SOURCE               blob segment_length 80 sub_type text;
+define field RDB$STATISTICS           double;
+define field RDB$SYSTEM_FLAG          short;
+define field RDB$TIMESTAMP            date;
+define field RDB$TRANSACTION_DESCRIPTION blob segment_length 80 sub_type 7;
+define field RDB$TRANSACTION_ID       long;
+define field RDB$TRANSACTION_STATE    short;
+define field RDB$TRIGGER_BLR          blob segment_length 80 sub_type BLR;
+define field RDB$TRIGGER_NAME         char [31];
+define field RDB$TRIGGER_SEQUENCE     short;
+define field RDB$TRIGGER_TYPE         short;
+define field RDB$TYPE_NAME            char [31];
+define field RDB$USER                 char [31];
+define field RDB$VALIDATION_BLR       blob segment_length 80 sub_type BLR;
+define field RDB$VIEW_BLR             blob segment_length 80 sub_type BLR;
+define field RDB$VIEW_CONTEXT         short;
+
+
+/*	Relation Definitions	*/
+
+
+define relation RDB$PAGES
+    RDB$PAGE_NUMBER                                     position 0,
+    RDB$RELATION_ID                                     position 1,
+    RDB$PAGE_SEQUENCE                                   position 2,
+    RDB$PAGE_TYPE                                       position 3;
+
+define relation RDB$DATABASE
+    RDB$DESCRIPTION                                     position 0,
+    RDB$RELATION_ID                                     position 1,
+    RDB$SECURITY_CLASS                                  position 2;
+
+define relation RDB$FIELDS
+    RDB$FIELD_NAME                                      position 0,
+    RDB$QUERY_NAME         based on RDB$FIELD_NAME      position 1,
+    RDB$VALIDATION_BLR                                  position 2,
+    RDB$VALIDATION_SOURCE  based on RDB$SOURCE          position 3,
+    RDB$COMPUTED_BLR       based on RDB$DEFAULT_VALUE   position 4,
+    RDB$COMPUTED_SOURCE    based on RDB$SOURCE          position 5,
+    RDB$DEFAULT_VALUE                                   position 6,
+    RDB$FIELD_LENGTH                                    position 7,
+    RDB$FIELD_SCALE                                     position 8,
+    RDB$FIELD_TYPE                                      position 9,
+    RDB$FIELD_SUB_TYPE                                  position 10,
+    RDB$MISSING_VALUE      based on RDB$DEFAULT_VALUE   position 11,
+    RDB$DESCRIPTION                                     position 12,
+    RDB$SYSTEM_FLAG                                     position 13,
+    RDB$QUERY_HEADER                                    position 14,
+    RDB$SEGMENT_LENGTH                                  position 15,
+    RDB$EDIT_STRING                                     position 16,
+    RDB$EXTERNAL_LENGTH    based on RDB$FIELD_LENGTH    position 17,
+    RDB$EXTERNAL_SCALE     based on RDB$FIELD_SCALE     position 18,
+    RDB$EXTERNAL_TYPE      based on RDB$FIELD_TYPE      position 19,
+    RDB$DIMENSIONS                                      position 20;
+
+define relation RDB$INDEX_SEGMENTS
+    RDB$INDEX_NAME                                      position 0,
+    RDB$FIELD_NAME                                      position 1,
+    RDB$FIELD_POSITION                                  position 2;
+
+define relation RDB$INDICES
+    RDB$INDEX_NAME                                      position 0,
+    RDB$RELATION_NAME                                   position 1,
+    RDB$INDEX_ID                                        position 2,
+    RDB$UNIQUE_FLAG        based on RDB$SYSTEM_FLAG     position 3,
+    RDB$DESCRIPTION                                     position 4,
+    RDB$SEGMENT_COUNT                                   position 5,
+    RDB$INDEX_INACTIVE     based on RDB$SYSTEM_FLAG     position 6,
+    RDB$INDEX_TYPE         based on RDB$SYSTEM_FLAG     position 7,
+    RDB$FOREIGN_KEY        based on RDB$RELATION_NAME   position 8,
+    RDB$SYSTEM_FLAG                                     position 9,
+    RDB$STATISTICS                                      position 10;
+
+define relation RDB$RELATION_FIELDS
+    RDB$FIELD_NAME                                      position 0,
+    RDB$RELATION_NAME                                   position 1,
+    RDB$FIELD_SOURCE       based on RDB$FIELD_NAME      position 2,
+    RDB$QUERY_NAME         based on RDB$FIELD_NAME      position 3,
+    RDB$BASE_FIELD         based on RDB$FIELD_NAME      position 4,
+    RDB$EDIT_STRING                                     position 5,
+    RDB$FIELD_POSITION                                  position 6,
+    RDB$QUERY_HEADER                                    position 7,
+    RDB$UPDATE_FLAG        based on RDB$SYSTEM_FLAG     position 8,
+    RDB$FIELD_ID                                        position 9,
+    RDB$VIEW_CONTEXT                                    position 10,
+    RDB$DESCRIPTION                                     position 11,
+    RDB$DEFAULT_VALUE                                   position 12,
+    RDB$SYSTEM_FLAG                                     position 13,
+    RDB$SECURITY_CLASS                                  position 14,
+    RDB$COMPLEX_NAME       based on RDB$FIELD_NAME      position 15;
+
+define relation RDB$RELATIONS
+    RDB$VIEW_BLR                                        position 0,
+    RDB$VIEW_SOURCE        based on RDB$SOURCE          position 1,
+    RDB$DESCRIPTION                                     position 2,
+    RDB$RELATION_ID                                     position 3,
+    RDB$SYSTEM_FLAG                                     position 4,
+    RDB$DBKEY_LENGTH                                    position 5,
+    RDB$FORMAT                                          position 6,
+    RDB$FIELD_ID                                        position 7,
+    RDB$RELATION_NAME                                   position 8,
+    RDB$SECURITY_CLASS                                  position 9,
+    RDB$EXTERNAL_FILE      based on RDB$FILE_NAME       position 10,
+    RDB$RUNTIME                                         position 11,
+    RDB$EXTERNAL_DESCRIPTION                            position 12,
+    RDB$OWNER_NAME         based on RDB$USER            position 13,
+    RDB$DEFAULT_CLASS      based on RDB$SECURITY_CLASS  position 14;
+
+define relation RDB$VIEW_RELATIONS
+    RDB$VIEW_NAME          based on RDB$RELATION_NAME   position 0,
+    RDB$RELATION_NAME                                   position 1,
+    RDB$VIEW_CONTEXT                                    position 2,
+    RDB$CONTEXT_NAME                                    position 3;
+
+define relation RDB$FORMATS
+    RDB$RELATION_ID                                     position 0,
+    RDB$FORMAT                                          position 1,
+    RDB$DESCRIPTOR                                      position 2;
+
+define relation RDB$SECURITY_CLASSES
+    RDB$SECURITY_CLASS                                  position 0,
+    RDB$ACL                                             position 1,
+    RDB$DESCRIPTION                                     position 2;
+
+define relation RDB$FILES
+    RDB$FILE_NAME                                       position 0,
+    RDB$FILE_SEQUENCE                                   position 1,
+    RDB$FILE_START                                      position 2,
+    RDB$FILE_LENGTH                                     position 3,
+    RDB$FILE_FLAGS                                      position 4,
+    RDB$SHADOW_NUMBER                                   position 5;
+
+define relation RDB$TYPES
+    RDB$FIELD_NAME                                      position 0,
+    RDB$TYPE               based on RDB$GENERIC_TYPE    position 1,
+    RDB$TYPE_NAME                                       position 2,
+    RDB$DESCRIPTION                                     position 3,
+    RDB$SYSTEM_FLAG                                     position 4;
+
+define relation RDB$TRIGGERS
+    RDB$TRIGGER_NAME                                    position 0,
+    RDB$RELATION_NAME                                   position 1,
+    RDB$TRIGGER_SEQUENCE                                position 2,
+    RDB$TRIGGER_TYPE                                    position 3,
+    RDB$TRIGGER_SOURCE     based on RDB$SOURCE          position 4,
+    RDB$TRIGGER_BLR                                     position 5,
+    RDB$DESCRIPTION                                     position 6,
+    RDB$TRIGGER_INACTIVE   based on RDB$SYSTEM_FLAG     position 7,
+    RDB$SYSTEM_FLAG                                     position 8;
+
+define relation RDB$DEPENDENCIES
+    RDB$OBJECT_NAME        based on RDB$GENERIC_NAME    position 0,
+    RDB$RELATION_NAME                                   position 1,
+    RDB$FIELD_NAME                                      position 2,
+    RDB$DEPENDENCY_TYPE                                 position 3;
+
+define relation RDB$FUNCTIONS
+    RDB$FUNCTION_NAME                                   position 0,
+    RDB$FUNCTION_TYPE                                   position 1,
+    RDB$QUERY_NAME         based on RDB$FIELD_NAME      position 2,
+    RDB$DESCRIPTION                                     position 3,
+    RDB$MODULE_NAME        based on RDB$FILE_NAME       position 4,
+    RDB$ENTRYPOINT         based on RDB$EXTERNAL_NAME   position 5,
+    RDB$RETURN_ARGUMENT    based on RDB$FIELD_POSITION  position 6,
+    RDB$SYSTEM_FLAG                                     position 7;
+
+define relation RDB$FUNCTION_ARGUMENTS
+    RDB$FUNCTION_NAME                                   position 0,
+    RDB$ARGUMENT_POSITION  based on RDB$FIELD_POSITION  position 1,
+    RDB$MECHANISM                                       position 2,
+    RDB$FIELD_TYPE                                      position 3,
+    RDB$FIELD_SCALE                                     position 4,
+    RDB$FIELD_LENGTH                                    position 5,
+    RDB$FIELD_SUB_TYPE                                  position 6;
+
+define relation RDB$FILTERS
+    RDB$FUNCTION_NAME                                   position 0,
+    RDB$DESCRIPTION                                     position 1,
+    RDB$MODULE_NAME        based on RDB$FILE_NAME       position 2,
+    RDB$ENTRYPOINT         based on RDB$EXTERNAL_NAME   position 3,
+    RDB$INPUT_SUB_TYPE     based on RDB$FIELD_SUB_TYPE  position 4,
+    RDB$OUTPUT_SUB_TYPE    based on RDB$FIELD_SUB_TYPE  position 5,
+    RDB$SYSTEM_FLAG                                     position 6;
+
+define relation RDB$TRIGGER_MESSAGES
+    RDB$TRIGGER_NAME                                    position 0,
+    RDB$MESSAGE_NUMBER                                  position 1,
+    RDB$MESSAGE                                         position 2;
+
+define relation RDB$USER_PRIVILEGES
+    RDB$USER                                            position 0,
+    RDB$GRANTOR            based on RDB$USER            position 1,
+    RDB$PRIVILEGE                                       position 2,
+    RDB$GRANT_OPTION       based on RDB$SYSTEM_FLAG     position 3,
+    RDB$RELATION_NAME                                   position 4,
+    RDB$FIELD_NAME                                      position 5;
+
+define relation RDB$TRANSACTIONS
+    RDB$TRANSACTION_ID                                  position 0,
+    RDB$TRANSACTION_STATE                               position 1,
+    RDB$TIMESTAMP                                       position 2,
+    RDB$TRANSACTION_DESCRIPTION                         position 3;
+
+define relation RDB$GENERATORS
+    RDB$GENERATOR_NAME                                  position 0,
+    RDB$GENERATOR_ID                                    position 1,
+    RDB$SYSTEM_FLAG                                     position 2;
+
+define relation RDB$FIELD_DIMENSIONS
+    RDB$FIELD_NAME                                      position 0,
+    RDB$DIMENSION                                       position 1,
+    RDB$LOWER_BOUND        based on RDB$BOUND           position 2,
+    RDB$UPPER_BOUND        based on RDB$BOUND           position 3;
+
+
+/*	Index Definitions	*/
+
+
+define index RDB$INDEX_0 for RDB$RELATIONS unique
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_1 for RDB$RELATIONS 
+	RDB$RELATION_ID;
+
+define index RDB$INDEX_2 for RDB$FIELDS unique
+	RDB$FIELD_NAME;
+
+define index RDB$INDEX_3 for RDB$RELATION_FIELDS 
+	RDB$FIELD_SOURCE;
+
+define index RDB$INDEX_4 for RDB$RELATION_FIELDS 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_5 for RDB$INDICES unique
+	RDB$INDEX_NAME;
+
+define index RDB$INDEX_6 for RDB$INDEX_SEGMENTS 
+	RDB$INDEX_NAME;
+
+define index RDB$INDEX_7 for RDB$SECURITY_CLASSES unique
+	RDB$SECURITY_CLASS;
+
+define index RDB$INDEX_8 for RDB$TRIGGERS unique
+	RDB$TRIGGER_NAME;
+
+define index RDB$INDEX_9 for RDB$FUNCTIONS unique
+	RDB$FUNCTION_NAME;
+
+define index RDB$INDEX_10 for RDB$FUNCTION_ARGUMENTS 
+	RDB$FUNCTION_NAME;
+
+define index RDB$INDEX_11 for RDB$GENERATORS unique
+	RDB$GENERATOR_NAME;
+
+define index RDB$INDEX_12 for RDB$RELATION_FIELDS unique
+	RDB$FIELD_NAME,
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_13 for RDB$FORMATS 
+	RDB$RELATION_ID,
+	RDB$FORMAT;
+
+define index RDB$INDEX_14 for RDB$FILTERS 
+	RDB$INPUT_SUB_TYPE,
+	RDB$OUTPUT_SUB_TYPE;
+
+define index RDB$INDEX_15 for RDB$FILES unique
+	RDB$FILE_NAME;
+
+
+/*	Generator Definitions	*/
+
+
+define generator RDB$SECURITY_CLASS;
+define generator SQL$DEFAULT;
+
+/*	Trigger Definitions	*/
+
+
+
+define trigger RDB$TRIGGER_1 for RDB$USER_PRIVILEGES
+	pre modify 0:
+	end_trigger 
+	message  0:  'cannot modify an existing user privilege';
+
+define trigger RDB$TRIGGER_2 for RDB$TRIGGERS
+	pre modify 0:
+	end_trigger 
+	message  0:  'cannot modify or erase a system trigger';
+
+define trigger RDB$TRIGGER_3 for RDB$TRIGGERS
+	pre erase 0:
+	end_trigger 
+	message  0:  'cannot modify or erase a system trigger';
+
+define trigger RDB$TRIGGER_4 for RDB$RELATIONS
+	pre store 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_5 for RDB$RELATIONS
+	pre modify 0:
+	end_trigger 
+	message  0:  'only the owner of a relation may reassign ownership';
+
+define trigger RDB$TRIGGER_6 for RDB$GENERATORS
+	pre store 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_8 for RDB$USER_PRIVILEGES
+	pre erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_9 for RDB$USER_PRIVILEGES
+	pre store 0:
+	end_trigger 
+	message  0:  'could not find relation for GRANT',
+	message  1:  'could not find field for GRANT',
+	message  2:  'user does not have GRANT privileges for operation',
+	message  3:  'relation has non-SQL security class defined',
+	message  4:  'field has non-SQL security class defined';
diff --git a/src/jrd/ods80.gdl b/src/jrd/ods80.gdl
new file mode 100644
index 0000000000..30a57fb65e
--- /dev/null
+++ b/src/jrd/ods80.gdl
@@ -0,0 +1,698 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ *	This file documents InterBase Version 4.0 ODS 8.0 metadata structure.
+ *
+ *	It was made with hacked version of GDEF, which
+ *	extracted system fields only.
+ *
+ *	Sorting is as follows:
+ *		Global fields:	Name
+ *		Relations:	Relation ID
+ *		Indices:	Created order
+ *		Generators:	Created order
+ *		Triggers:	Created order
+ *
+ *	Note: Sources for system triggers are missing, but many
+ *	      can be found in jrd/grant.gdl.  The compiled
+ *	      blr versions are in jrd/trig.h.  Note that the compiled
+ *	      blr has been hand-edited in a few places.
+ *
+ *	Note: You can run this script by globally replacing "RDB$"
+ *	      with "XRDB$", it will then make user relations
+ *            with the specified system structure.
+ *
+ */
+
+define database "v4_ods8.gdb"
+	page_size 1024;
+
+
+/*	Global Field Definitions	*/
+
+/* Note: all sub_type 3 text fields are also CHARACTER SET Unicode_FSS */
+
+define field RDB$ACL                  blob segment_length 80 sub_type ACL;
+define field RDB$BOUND                long;
+define field RDB$CHARACTER_SET_ID     short;
+define field RDB$CHARACTER_SET_NAME   char [31] sub_type 3;
+define field RDB$COLLATION_ID         short;
+define field RDB$COLLATION_NAME       char [31] sub_type 3;
+define field RDB$CONSTRAINT_NAME      char [31] sub_type 3;
+define field RDB$CONSTRAINT_TYPE      char [11];
+define field RDB$CONTEXT_NAME         char [31] sub_type 3;
+define field RDB$DBKEY_LENGTH         short;
+define field RDB$DEFERRABLE           char [3];
+define field RDB$DESCRIPTION          blob segment_length 80 sub_type text;
+define field RDB$DESCRIPTOR           blob segment_length 80 sub_type 6;
+define field RDB$DIMENSION            short;
+define field RDB$DIMENSIONS           short;
+define field RDB$EDIT_STRING          varying [125];
+define field RDB$EXCEPTION_NAME       char [31] sub_type 3;
+define field RDB$EXCEPTION_NUMBER     long;
+
+define field RDB$EXTERNAL_DESCRIPTION blob segment_length 80 sub_type 8;
+/*
+From deej@apex Mon Nov 29 15:07:52 1993
+Date: Mon, 29 Nov 93 14:54:42 PST
+From: deej@apex (Dave Bredenberg)
+To: daves@apex
+Subject: RDB$EXTERNAL_DESCRIPTION
+Content-Length: 169
+
+I believe it was just supposed to be a place
+to put commentary about an external relation,
+to be passed when opening the file.  It looks
+like it was never used, though.
+*/
+
+define field RDB$EXTERNAL_NAME        char [31];
+define field RDB$FIELD_ID             short;
+define field RDB$FIELD_LENGTH         short;
+define field RDB$FIELD_NAME           char [31] sub_type 3;
+define field RDB$FIELD_POSITION       short;
+define field RDB$FIELD_SCALE          short;
+define field RDB$FIELD_SUB_TYPE       short;
+define field RDB$FIELD_TYPE           short;
+define field RDB$FILE_FLAGS           short;
+define field RDB$FILE_LENGTH          long;
+define field RDB$FILE_NAME            varying [253];
+define field RDB$FILE_PARTITIONS      short;
+define field RDB$FILE_P_OFFSET        long;
+define field RDB$FILE_SEQUENCE        short;
+define field RDB$FILE_START           long;
+define field RDB$FORMAT               short;
+define field RDB$FUNCTION_NAME        char [31] sub_type 3;
+define field RDB$FUNCTION_TYPE        short;
+define field RDB$GENERATOR_ID         short;
+define field RDB$GENERATOR_NAME       char [31] sub_type 3;
+define field RDB$GENERIC_NAME         char [31] sub_type 3;
+define field RDB$GENERIC_TYPE         short;
+define field RDB$INDEX_ID             short;
+define field RDB$INDEX_NAME           char [31] sub_type 3;
+define field RDB$MATCH_OPTION         char [7];
+define field RDB$MECHANISM            short;
+define field RDB$MESSAGE              varying [78];
+define field RDB$MESSAGE_NUMBER       short;
+define field RDB$NULL_FLAG            short;
+define field RDB$NUMBER_OF_CHARACTERS long;
+define field RDB$OBJECT_TYPE          short;
+define field RDB$PAGE_NUMBER          long;
+define field RDB$PAGE_SEQUENCE        long;
+define field RDB$PAGE_TYPE            short;
+define field RDB$PARAMETER_NAME       char [31] sub_type 3;
+define field RDB$PARAMETER_NUMBER     short;
+define field RDB$PARAMETER_TYPE       short;
+define field RDB$PRIVILEGE            char [6];
+define field RDB$PROCEDURE_BLR        blob segment_length 80 sub_type BLR;
+define field RDB$PROCEDURE_ID         short;
+define field RDB$PROCEDURE_NAME       char [31] sub_type 3;
+define field RDB$PROCEDURE_PARAMETERS short;
+define field RDB$QUERY_HEADER         blob segment_length 80 sub_type text;
+define field RDB$RELATION_ID          short;
+define field RDB$RELATION_NAME        char [31] sub_type 3;
+define field RDB$RULE                 char [11];
+define field RDB$RUNTIME              blob segment_length 80 sub_type 5;
+define field RDB$SECURITY_CLASS       char [31] sub_type 3;
+define field RDB$SEGMENT_COUNT        short;
+define field RDB$SEGMENT_LENGTH       short;
+define field RDB$SHADOW_NUMBER        short;
+define field RDB$SOURCE               blob segment_length 80 sub_type text;
+define field RDB$STATISTICS           double;
+define field RDB$SYSTEM_FLAG          short;
+define field RDB$TIMESTAMP            date;
+define field RDB$TRANSACTION_DESCRIPTION blob segment_length 80 sub_type 7;
+define field RDB$TRANSACTION_ID       long;
+define field RDB$TRANSACTION_STATE    short;
+define field RDB$TRIGGER_BLR          blob segment_length 80 sub_type BLR;
+define field RDB$TRIGGER_NAME         char [31] sub_type 3;
+define field RDB$TRIGGER_SEQUENCE     short;
+define field RDB$TRIGGER_TYPE         short;
+define field RDB$TYPE_NAME            char [31] sub_type 3;
+define field RDB$USER                 char [31] sub_type 3;
+define field RDB$VALIDATION_BLR       blob segment_length 80 sub_type BLR;
+define field RDB$VALUE                blob segment_length 80 sub_type BLR;
+define field RDB$VIEW_BLR             blob segment_length 80 sub_type BLR;
+define field RDB$VIEW_CONTEXT         short;
+
+
+/*	Relation Definitions	*/
+
+
+define relation RDB$PAGES
+    RDB$PAGE_NUMBER                                     position 0,
+    RDB$RELATION_ID                                     position 1,
+    RDB$PAGE_SEQUENCE                                   position 2,
+    RDB$PAGE_TYPE                                       position 3;
+
+define relation RDB$DATABASE
+    RDB$DESCRIPTION                                     position 0,
+    RDB$RELATION_ID                                     position 1,
+    RDB$SECURITY_CLASS                                  position 2,
+    RDB$CHARACTER_SET_NAME                              position 3;
+
+define relation RDB$FIELDS
+    RDB$FIELD_NAME                                      position 0,
+    RDB$QUERY_NAME         based on RDB$FIELD_NAME      position 1,
+    RDB$VALIDATION_BLR                                  position 2,
+    RDB$VALIDATION_SOURCE  based on RDB$SOURCE          position 3,
+    RDB$COMPUTED_BLR       based on RDB$VALUE           position 4,
+    RDB$COMPUTED_SOURCE    based on RDB$SOURCE          position 5,
+    RDB$DEFAULT_VALUE      based on RDB$VALUE           position 6,
+    RDB$DEFAULT_SOURCE     based on RDB$SOURCE          position 7,
+    RDB$FIELD_LENGTH                                    position 8,
+    RDB$FIELD_SCALE                                     position 9,
+    RDB$FIELD_TYPE                                      position 10,
+    RDB$FIELD_SUB_TYPE                                  position 11,
+    RDB$MISSING_VALUE      based on RDB$VALUE           position 12,
+    RDB$MISSING_SOURCE     based on RDB$SOURCE          position 13,
+    RDB$DESCRIPTION                                     position 14,
+    RDB$SYSTEM_FLAG                                     position 15,
+    RDB$QUERY_HEADER                                    position 16,
+    RDB$SEGMENT_LENGTH                                  position 17,
+    RDB$EDIT_STRING                                     position 18,
+    RDB$EXTERNAL_LENGTH    based on RDB$FIELD_LENGTH    position 19,
+    RDB$EXTERNAL_SCALE     based on RDB$FIELD_SCALE     position 20,
+    RDB$EXTERNAL_TYPE      based on RDB$FIELD_TYPE      position 21,
+    RDB$DIMENSIONS                                      position 22,
+    RDB$NULL_FLAG                                       position 23,
+    RDB$CHARACTER_LENGTH   based on RDB$FIELD_LENGTH    position 24,
+    RDB$COLLATION_ID                                    position 25,
+    RDB$CHARACTER_SET_ID                                position 26;
+
+define relation RDB$INDEX_SEGMENTS
+    RDB$INDEX_NAME                                      position 0,
+    RDB$FIELD_NAME                                      position 1,
+    RDB$FIELD_POSITION                                  position 2;
+
+define relation RDB$INDICES
+    RDB$INDEX_NAME                                      position 0,
+    RDB$RELATION_NAME                                   position 1,
+    RDB$INDEX_ID                                        position 2,
+    RDB$UNIQUE_FLAG        based on RDB$SYSTEM_FLAG     position 3,
+    RDB$DESCRIPTION                                     position 4,
+    RDB$SEGMENT_COUNT                                   position 5,
+    RDB$INDEX_INACTIVE     based on RDB$SYSTEM_FLAG     position 6,
+    RDB$INDEX_TYPE         based on RDB$SYSTEM_FLAG     position 7,
+    RDB$FOREIGN_KEY        based on RDB$RELATION_NAME   position 8,
+    RDB$SYSTEM_FLAG                                     position 9,
+    RDB$EXPRESSION_BLR     based on RDB$VALUE           position 10,
+    RDB$EXPRESSION_SOURCE  based on RDB$SOURCE          position 11,
+    RDB$STATISTICS                                      position 12;
+
+define relation RDB$RELATION_FIELDS
+    RDB$FIELD_NAME                                      position 0,
+    RDB$RELATION_NAME                                   position 1,
+    RDB$FIELD_SOURCE       based on RDB$FIELD_NAME      position 2,
+    RDB$QUERY_NAME         based on RDB$FIELD_NAME      position 3,
+    RDB$BASE_FIELD         based on RDB$FIELD_NAME      position 4,
+    RDB$EDIT_STRING                                     position 5,
+    RDB$FIELD_POSITION                                  position 6,
+    RDB$QUERY_HEADER                                    position 7,
+    RDB$UPDATE_FLAG        based on RDB$SYSTEM_FLAG     position 8,
+    RDB$FIELD_ID                                        position 9,
+    RDB$VIEW_CONTEXT                                    position 10,
+    RDB$DESCRIPTION                                     position 11,
+    RDB$DEFAULT_VALUE      based on RDB$VALUE           position 12,
+    RDB$SYSTEM_FLAG                                     position 13,
+    RDB$SECURITY_CLASS                                  position 14,
+    RDB$COMPLEX_NAME       based on RDB$FIELD_NAME      position 15,
+    RDB$NULL_FLAG                                       position 16,
+    RDB$DEFAULT_SOURCE     based on RDB$SOURCE          position 17,
+    RDB$COLLATION_ID                                    position 18;
+
+define relation RDB$RELATIONS
+    RDB$VIEW_BLR                                        position 0,
+    RDB$VIEW_SOURCE        based on RDB$SOURCE          position 1,
+    RDB$DESCRIPTION                                     position 2,
+    RDB$RELATION_ID                                     position 3,
+    RDB$SYSTEM_FLAG                                     position 4,
+    RDB$DBKEY_LENGTH                                    position 5,
+    RDB$FORMAT                                          position 6,
+    RDB$FIELD_ID                                        position 7,
+    RDB$RELATION_NAME                                   position 8,
+    RDB$SECURITY_CLASS                                  position 9,
+    RDB$EXTERNAL_FILE      based on RDB$FILE_NAME       position 10,
+    RDB$RUNTIME                                         position 11,
+    RDB$EXTERNAL_DESCRIPTION                            position 12,
+    RDB$OWNER_NAME         based on RDB$USER            position 13,
+    RDB$DEFAULT_CLASS      based on RDB$SECURITY_CLASS  position 14,
+    RDB$FLAGS              based on RDB$SYSTEM_FLAG     position 15;
+
+define relation RDB$VIEW_RELATIONS
+    RDB$VIEW_NAME          based on RDB$RELATION_NAME   position 0,
+    RDB$RELATION_NAME                                   position 1,
+    RDB$VIEW_CONTEXT                                    position 2,
+    RDB$CONTEXT_NAME                                    position 3;
+
+define relation RDB$FORMATS
+    RDB$RELATION_ID                                     position 0,
+    RDB$FORMAT                                          position 1,
+    RDB$DESCRIPTOR                                      position 2;
+
+define relation RDB$SECURITY_CLASSES
+    RDB$SECURITY_CLASS                                  position 0,
+    RDB$ACL                                             position 1,
+    RDB$DESCRIPTION                                     position 2;
+
+define relation RDB$FILES
+    RDB$FILE_NAME                                       position 0,
+    RDB$FILE_SEQUENCE                                   position 1,
+    RDB$FILE_START                                      position 2,
+    RDB$FILE_LENGTH                                     position 3,
+    RDB$FILE_FLAGS                                      position 4,
+    RDB$SHADOW_NUMBER                                   position 5;
+
+define relation RDB$TYPES
+    RDB$FIELD_NAME                                      position 0,
+    RDB$TYPE               based on RDB$GENERIC_TYPE    position 1,
+    RDB$TYPE_NAME                                       position 2,
+    RDB$DESCRIPTION                                     position 3,
+    RDB$SYSTEM_FLAG                                     position 4;
+
+define relation RDB$TRIGGERS
+    RDB$TRIGGER_NAME                                    position 0,
+    RDB$RELATION_NAME                                   position 1,
+    RDB$TRIGGER_SEQUENCE                                position 2,
+    RDB$TRIGGER_TYPE                                    position 3,
+    RDB$TRIGGER_SOURCE     based on RDB$SOURCE          position 4,
+    RDB$TRIGGER_BLR                                     position 5,
+    RDB$DESCRIPTION                                     position 6,
+    RDB$TRIGGER_INACTIVE   based on RDB$SYSTEM_FLAG     position 7,
+    RDB$SYSTEM_FLAG                                     position 8,
+    RDB$FLAGS              based on RDB$SYSTEM_FLAG     position 9;
+
+define relation RDB$DEPENDENCIES
+    RDB$DEPENDENT_NAME     based on RDB$GENERIC_NAME    position 0,
+    RDB$DEPENDED_ON_NAME   based on RDB$GENERIC_NAME    position 1,
+    RDB$FIELD_NAME                                      position 2,
+    RDB$DEPENDENT_TYPE     based on RDB$OBJECT_TYPE     position 3,
+    RDB$DEPENDED_ON_TYPE   based on RDB$OBJECT_TYPE     position 4;
+
+define relation RDB$FUNCTIONS
+    RDB$FUNCTION_NAME                                   position 0,
+    RDB$FUNCTION_TYPE                                   position 1,
+    RDB$QUERY_NAME         based on RDB$FIELD_NAME      position 2,
+    RDB$DESCRIPTION                                     position 3,
+    RDB$MODULE_NAME        based on RDB$FILE_NAME       position 4,
+    RDB$ENTRYPOINT         based on RDB$EXTERNAL_NAME   position 5,
+    RDB$RETURN_ARGUMENT    based on RDB$FIELD_POSITION  position 6,
+    RDB$SYSTEM_FLAG                                     position 7;
+
+define relation RDB$FUNCTION_ARGUMENTS
+    RDB$FUNCTION_NAME                                   position 0,
+    RDB$ARGUMENT_POSITION  based on RDB$FIELD_POSITION  position 1,
+    RDB$MECHANISM                                       position 2,
+    RDB$FIELD_TYPE                                      position 3,
+    RDB$FIELD_SCALE                                     position 4,
+    RDB$FIELD_LENGTH                                    position 5,
+    RDB$FIELD_SUB_TYPE                                  position 6,
+    RDB$CHARACTER_SET_ID                                position 7;
+
+define relation RDB$FILTERS
+    RDB$FUNCTION_NAME                                   position 0,
+    RDB$DESCRIPTION                                     position 1,
+    RDB$MODULE_NAME        based on RDB$FILE_NAME       position 2,
+    RDB$ENTRYPOINT         based on RDB$EXTERNAL_NAME   position 3,
+    RDB$INPUT_SUB_TYPE     based on RDB$FIELD_SUB_TYPE  position 4,
+    RDB$OUTPUT_SUB_TYPE    based on RDB$FIELD_SUB_TYPE  position 5,
+    RDB$SYSTEM_FLAG                                     position 6;
+
+define relation RDB$TRIGGER_MESSAGES
+    RDB$TRIGGER_NAME                                    position 0,
+    RDB$MESSAGE_NUMBER                                  position 1,
+    RDB$MESSAGE                                         position 2;
+
+define relation RDB$USER_PRIVILEGES
+    RDB$USER                                            position 0,
+    RDB$GRANTOR            based on RDB$USER            position 1,
+    RDB$PRIVILEGE                                       position 2,
+    RDB$GRANT_OPTION       based on RDB$SYSTEM_FLAG     position 3,
+    RDB$RELATION_NAME      based on RDB$GENERIC_NAME    position 4,
+    RDB$FIELD_NAME                                      position 5,
+    RDB$USER_TYPE          based on RDB$OBJECT_TYPE     position 6,
+    RDB$OBJECT_TYPE                                     position 7;
+
+define relation RDB$TRANSACTIONS
+    RDB$TRANSACTION_ID                                  position 0,
+    RDB$TRANSACTION_STATE                               position 1,
+    RDB$TIMESTAMP                                       position 2,
+    RDB$TRANSACTION_DESCRIPTION                         position 3;
+
+define relation RDB$GENERATORS
+    RDB$GENERATOR_NAME                                  position 0,
+    RDB$GENERATOR_ID                                    position 1,
+    RDB$SYSTEM_FLAG                                     position 2;
+
+define relation RDB$FIELD_DIMENSIONS
+    RDB$FIELD_NAME                                      position 0,
+    RDB$DIMENSION                                       position 1,
+    RDB$LOWER_BOUND        based on RDB$BOUND           position 2,
+    RDB$UPPER_BOUND        based on RDB$BOUND           position 3;
+
+define relation RDB$RELATION_CONSTRAINTS
+    RDB$CONSTRAINT_NAME                                 position 0,
+    RDB$CONSTRAINT_TYPE                                 position 1,
+    RDB$RELATION_NAME                                   position 2,
+    RDB$DEFERRABLE                                      position 3,
+    RDB$INITIALLY_DEFERRED based on RDB$DEFERRABLE      position 4,
+    RDB$INDEX_NAME                                      position 5;
+
+define relation RDB$REF_CONSTRAINTS
+    RDB$CONSTRAINT_NAME                                 position 0,
+    RDB$CONST_NAME_UQ      based on RDB$CONSTRAINT_NAME position 1,
+    RDB$MATCH_OPTION                                    position 2,
+    RDB$UPDATE_RULE        based on RDB$RULE            position 3,
+    RDB$DELETE_RULE        based on RDB$RULE            position 4;
+
+define relation RDB$CHECK_CONSTRAINTS
+    RDB$CONSTRAINT_NAME                                 position 0,
+    RDB$TRIGGER_NAME                                    position 1;
+
+define relation RDB$LOG_FILES
+    RDB$FILE_NAME                                       position 0,
+    RDB$FILE_SEQUENCE                                   position 1,
+    RDB$FILE_LENGTH                                     position 2,
+    RDB$FILE_PARTITIONS                                 position 3,
+    RDB$FILE_P_OFFSET                                   position 4,
+    RDB$FILE_FLAGS                                      position 5;
+
+define relation RDB$PROCEDURES
+    RDB$PROCEDURE_NAME                                  position 0,
+    RDB$PROCEDURE_ID                                    position 1,
+    RDB$PROCEDURE_INPUTS   based on RDB$PROCEDURE_PARAMETERS position 2,
+    RDB$PROCEDURE_OUTPUTS  based on RDB$PROCEDURE_PARAMETERS position 3,
+    RDB$DESCRIPTION                                     position 4,
+    RDB$PROCEDURE_SOURCE   based on RDB$SOURCE          position 5,
+    RDB$PROCEDURE_BLR                                   position 6,
+    RDB$SECURITY_CLASS                                  position 7,
+    RDB$OWNER_NAME         based on RDB$USER            position 8,
+    RDB$RUNTIME                                         position 9,
+    RDB$SYSTEM_FLAG                                     position 10;
+
+define relation RDB$PROCEDURE_PARAMETERS
+    RDB$PARAMETER_NAME                                  position 0,
+    RDB$PROCEDURE_NAME                                  position 1,
+    RDB$PARAMETER_NUMBER                                position 2,
+    RDB$PARAMETER_TYPE                                  position 3,
+    RDB$FIELD_SOURCE       based on RDB$FIELD_NAME      position 4,
+    RDB$DESCRIPTION                                     position 5,
+    RDB$SYSTEM_FLAG                                     position 6;
+
+define relation RDB$CHARACTER_SETS
+    RDB$CHARACTER_SET_NAME                              position 0,
+    RDB$FORM_OF_USE        based on RDB$GENERIC_NAME    position 1,
+    RDB$NUMBER_OF_CHARACTERS                            position 2,
+    RDB$DEFAULT_COLLATE_NAME based on RDB$COLLATION_NAME  position 3,
+    RDB$CHARACTER_SET_ID                                position 4,
+    RDB$SYSTEM_FLAG                                     position 5,
+    RDB$DESCRIPTION                                     position 6,
+    RDB$FUNCTION_NAME                                   position 7,
+    RDB$BYTES_PER_CHARACTER based on RDB$FIELD_LENGTH   position 8;
+
+define relation RDB$COLLATIONS
+    RDB$COLLATION_NAME                                  position 0,
+    RDB$COLLATION_ID                                    position 1,
+    RDB$CHARACTER_SET_ID                                position 2,
+    RDB$COLLATION_ATTRIBUTES based on RDB$GENERIC_TYPE  position 3,
+    RDB$SYSTEM_FLAG                                     position 4,
+    RDB$DESCRIPTION                                     position 5,
+    RDB$FUNCTION_NAME                                   position 6;
+
+define relation RDB$EXCEPTIONS
+    RDB$EXCEPTION_NAME                                  position 0,
+    RDB$EXCEPTION_NUMBER                                position 1,
+    RDB$MESSAGE                                         position 2,
+    RDB$DESCRIPTION                                     position 3,
+    RDB$SYSTEM_FLAG                                     position 4;
+
+
+/*	Index Definitions	*/
+
+
+define index RDB$INDEX_0 for RDB$RELATIONS unique
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_1 for RDB$RELATIONS 
+	RDB$RELATION_ID;
+
+define index RDB$INDEX_2 for RDB$FIELDS unique
+	RDB$FIELD_NAME;
+
+define index RDB$INDEX_3 for RDB$RELATION_FIELDS 
+	RDB$FIELD_SOURCE;
+
+define index RDB$INDEX_4 for RDB$RELATION_FIELDS 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_5 for RDB$INDICES unique
+	RDB$INDEX_NAME;
+
+define index RDB$INDEX_6 for RDB$INDEX_SEGMENTS 
+	RDB$INDEX_NAME;
+
+define index RDB$INDEX_7 for RDB$SECURITY_CLASSES unique
+	RDB$SECURITY_CLASS;
+
+define index RDB$INDEX_8 for RDB$TRIGGERS unique
+	RDB$TRIGGER_NAME;
+
+define index RDB$INDEX_9 for RDB$FUNCTIONS unique
+	RDB$FUNCTION_NAME;
+
+define index RDB$INDEX_10 for RDB$FUNCTION_ARGUMENTS 
+	RDB$FUNCTION_NAME;
+
+define index RDB$INDEX_11 for RDB$GENERATORS unique
+	RDB$GENERATOR_NAME;
+
+define index RDB$INDEX_12 for RDB$RELATION_CONSTRAINTS unique
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_13 for RDB$REF_CONSTRAINTS unique
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_14 for RDB$CHECK_CONSTRAINTS 
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_15 for RDB$RELATION_FIELDS unique
+	RDB$FIELD_NAME,
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_16 for RDB$FORMATS 
+	RDB$RELATION_ID,
+	RDB$FORMAT;
+
+define index RDB$INDEX_17 for RDB$FILTERS 
+	RDB$INPUT_SUB_TYPE,
+	RDB$OUTPUT_SUB_TYPE;
+
+define index RDB$INDEX_18 for RDB$PROCEDURE_PARAMETERS unique
+	RDB$PROCEDURE_NAME,
+	RDB$PARAMETER_NAME;
+
+define index RDB$INDEX_19 for RDB$CHARACTER_SETS unique
+	RDB$CHARACTER_SET_NAME;
+
+define index RDB$INDEX_20 for RDB$COLLATIONS unique
+	RDB$COLLATION_NAME;
+
+define index RDB$INDEX_21 for RDB$PROCEDURES unique
+	RDB$PROCEDURE_NAME;
+
+define index RDB$INDEX_22 for RDB$PROCEDURES 
+	RDB$PROCEDURE_ID;
+
+define index RDB$INDEX_23 for RDB$EXCEPTIONS unique
+	RDB$EXCEPTION_NAME;
+
+define index RDB$INDEX_24 for RDB$EXCEPTIONS 
+	RDB$EXCEPTION_NUMBER;
+
+define index RDB$INDEX_25 for RDB$CHARACTER_SETS unique
+	RDB$CHARACTER_SET_ID;
+
+define index RDB$INDEX_26 for RDB$COLLATIONS unique
+	RDB$COLLATION_ID,
+	RDB$CHARACTER_SET_ID;
+
+
+
+/*	Generator Definitions	*/
+
+
+define generator RDB$SECURITY_CLASS;
+define generator SQL$DEFAULT;
+define generator RDB$PROCEDURES;
+define generator RDB$EXCEPTIONS;
+define generator RDB$CONSTRAINT_NAME;
+define generator RDB$FIELD_NAME;
+define generator RDB$INDEX_NAME;
+define generator RDB$TRIGGER_NAME;
+
+/*	Trigger Definitions	*/
+
+
+
+define trigger RDB$TRIGGER_1 for RDB$USER_PRIVILEGES
+	pre modify 0:
+	end_trigger 
+	message  0:  'existing_priv_mod                                                             ';
+
+define trigger RDB$TRIGGER_8 for RDB$USER_PRIVILEGES
+	pre erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_9 for RDB$USER_PRIVILEGES
+	pre store 0:
+	end_trigger 
+	message  0:  'grant_obj_notfound                                                            ',
+	message  1:  'grant_fld_notfound                                                            ',
+	message  2:  'grant_nopriv                                                                  ',
+	message  3:  'nonsql_security_rel                                                           ',
+	message  4:  'nonsql_security_fld                                                           ',
+	message  5:  'grant_nopriv_on_base                                                          ';
+
+define trigger RDB$TRIGGER_2 for RDB$TRIGGERS
+	pre modify 0:
+	end_trigger 
+	message  0:  'systrig_update                                                                ';
+
+define trigger RDB$TRIGGER_3 for RDB$TRIGGERS
+	pre erase 0:
+	end_trigger 
+	message  0:  'systrig_update                                                                ';
+
+define trigger RDB$TRIGGER_4 for RDB$RELATIONS
+	pre store 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_5 for RDB$RELATIONS
+	pre modify 0:
+	end_trigger 
+	message  0:  'not_rel_owner                                                                 ';
+
+define trigger RDB$TRIGGER_6 for RDB$GENERATORS
+	pre store 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_26 for RDB$RELATION_CONSTRAINTS
+	pre store 0:
+	end_trigger 
+	message  1:  'constaint_on_view                                                             ',
+	message  2:  'invld_cnstrnt_type                                                            ',
+	message  3:  'primary_key_exists                                                            ';
+
+define trigger RDB$TRIGGER_25 for RDB$RELATION_CONSTRAINTS
+	pre modify 0:
+	end_trigger 
+	message  1:  'rel_cnstrnt_update                                                            ';
+
+define trigger RDB$TRIGGER_10 for RDB$RELATION_CONSTRAINTS
+	pre erase 0:
+	end_trigger 
+	message  1:  'primary_key_ref                                                               ',
+	message  2:  'primary_key_notnull                                                           ';
+
+define trigger RDB$TRIGGER_11 for RDB$RELATION_CONSTRAINTS
+	post erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_12 for RDB$REF_CONSTRAINTS
+	pre store 0:
+	end_trigger 
+	message  1:  'ref_cnstrnt_notfound                                                          ',
+	message  2:  'foreign_key_notfound                                                          ';
+
+define trigger RDB$TRIGGER_13 for RDB$REF_CONSTRAINTS
+	pre modify 0:
+	end_trigger 
+	message  1:  'ref_cnstrnt_update                                                            ';
+
+define trigger RDB$TRIGGER_14 for RDB$CHECK_CONSTRAINTS
+	pre modify 0:
+	end_trigger 
+	message  1:  'check_cnstrnt_update                                                          ';
+
+define trigger RDB$TRIGGER_15 for RDB$CHECK_CONSTRAINTS
+	pre erase 0:
+	end_trigger 
+	message  1:  'check_cnstrnt_del                                                             ';
+
+define trigger RDB$TRIGGER_16 for RDB$CHECK_CONSTRAINTS
+	post erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_17 for RDB$INDEX_SEGMENTS
+	pre erase 0:
+	end_trigger 
+	message  1:  'integ_index_seg_del                                                           ';
+
+define trigger RDB$TRIGGER_18 for RDB$INDEX_SEGMENTS
+	pre modify 0:
+	end_trigger 
+	message  1:  'integ_index_seg_mod                                                           ';
+
+define trigger RDB$TRIGGER_19 for RDB$INDICES
+	pre erase 0:
+	end_trigger 
+	message  1:  'integ_index_del                                                               ';
+
+define trigger RDB$TRIGGER_20 for RDB$INDICES
+	pre modify 0:
+	end_trigger 
+	message  1:  'integ_index_mod                                                               ',
+	message  2:  'integ_index_deactivate                                                        ',
+	message  3:  'integ_deactivate_primary                                                      ';
+
+define trigger RDB$TRIGGER_21 for RDB$TRIGGERS
+	pre erase 0:
+	end_trigger 
+	message  1:  'check_trig_del                                                                ';
+
+define trigger RDB$TRIGGER_22 for RDB$TRIGGERS
+	pre modify 0:
+	end_trigger 
+	message  1:  'check_trig_update                                                             ';
+
+define trigger RDB$TRIGGER_23 for RDB$RELATION_FIELDS
+	pre erase 0:
+	end_trigger 
+	message  1:  'cnstrnt_fld_del                                                               ';
+
+define trigger RDB$TRIGGER_24 for RDB$RELATION_FIELDS
+	pre modify 0:
+	end_trigger 
+	message  1:  'cnstrnt_fld_rename                                                            ';
+
+define trigger RDB$TRIGGER_27 for RDB$RELATION_FIELDS
+	post erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_28 for RDB$PROCEDURES
+	pre store 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_29 for RDB$PROCEDURES
+	pre modify 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_30 for RDB$EXCEPTIONS
+	pre store 0:
+	end_trigger;
diff --git a/src/jrd/ods80dif.gdl b/src/jrd/ods80dif.gdl
new file mode 100644
index 0000000000..b9cb12b456
--- /dev/null
+++ b/src/jrd/ods80dif.gdl
@@ -0,0 +1,427 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ *	This file documents the difference between
+ *	InterBase Version 3.3D ODS 7.2 metadata structure.
+ *	and
+ *	InterBase Version 4.0 ODS 8.0 metadata structure.
+ *
+ *******IMPORTANT****** Do not actually run this script, it will
+ *                      Create a database which cannot be accessed
+ *			by either V3 or V4!
+ *
+ *	This script can be used to re-create the development
+ *	tool yachts.gdb, but must be edited as follows:
+ *	   - Delete all DELETE's of global fields.
+ *	   - Delete all MODIFY's of global fields.
+ *	   - Delete all DROP/ADD (modify) pairs in MODIFY RELATION's
+ *	   - Delete all DROP fields in MODIFY RELATIONS's
+ *	   - Delete all "position **" parts in MODIFY RELATION's
+ *	   - Delete all "DROP INDEX"
+ *	Also, it is not necessary to keep any
+ *	   - CREATE INDEX
+ *	   - DEFINE TRIGGER
+ *
+ *	Sorting as as follows:
+ *		Global fields:	Name
+ *		Relations:	Relation ID
+ *		Indices:	Created order
+ *		Generators:	Created order
+ *		Triggers:	Created order
+ *
+ *	Note: Sources for system triggers are missing, but many
+ *	      can be found in jrd/grant.gdl.  The compiled
+ *	      blr versions are in jrd/trig.h.  Note that the compiled
+ *	      blr has been hand-edited in a few places.
+ *
+ *	Note: You can run this script by globally replacing "RDB$"
+ *	      with "XRDB$", it will then make user relations
+ *            with the specified system structure.
+ *
+ *	      This script was tested by 
+ *		a) running ods72.gdl (after replacing RDB -> XRDB)
+ *		b) running ods80chg.gdl
+ *		c) extracting the resulting data
+ *		d) running ods80.gdl
+ *		e) extracting and comparing against step c).
+ *
+ */
+
+modify database "v33d_ods72.gdb";
+
+
+/*	Global Field Definitions	*/
+
+/*
+ *	Note: Most text fields in system relations have been changed to:
+ *		Character set: UNICODE_FSS
+ *		Subtype:       3		(Metadata)
+ */
+
+/* --- needs to be performed in a separate gdef invoke --- */
+/* delete field RDB$DEFAULT_VALUE;
+ * delete field RDB$DEPENDENCY_TYPE;
+ */
+
+/* EXTERNAL_DESCRIPTION was subtype 7      in V3.3 */
+/* FILE_NAME            was 123 characters in V3.3 */
+
+modify field RDB$EXTERNAL_DESCRIPTION blob segment_length 80 sub_type 8;
+modify field RDB$FILE_NAME            varying [253];
+
+
+define field RDB$CHARACTER_SET_ID     short;
+define field RDB$CHARACTER_SET_NAME   char [31];
+define field RDB$COLLATION_ID         short;
+define field RDB$COLLATION_NAME       char [31];
+define field RDB$CONSTRAINT_NAME      char [31];
+define field RDB$CONSTRAINT_TYPE      char [11];
+define field RDB$DEFERRABLE           char [3];
+define field RDB$EXCEPTION_NAME       char [31];
+define field RDB$EXCEPTION_NUMBER     long;
+define field RDB$FILE_PARTITIONS      short;
+define field RDB$FILE_P_OFFSET        long;
+define field RDB$MATCH_OPTION         char [7];
+define field RDB$NULL_FLAG            short;
+define field RDB$NUMBER_OF_CHARACTERS long;
+define field RDB$OBJECT_TYPE          short;
+define field RDB$PARAMETER_NAME       char [31];
+define field RDB$PARAMETER_NUMBER     short;
+define field RDB$PARAMETER_TYPE       short;
+define field RDB$PROCEDURE_BLR        blob segment_length 80 sub_type BLR;
+define field RDB$PROCEDURE_ID         short;
+define field RDB$PROCEDURE_NAME       char [31];
+define field RDB$PROCEDURE_PARAMETERS short;
+define field RDB$RULE                 char [11];
+define field RDB$VALUE                blob segment_length 80 sub_type BLR;
+
+
+/*	Relation Definitions	*/
+
+/* Notes:
+ *	Not all changes to relation fields due to "based on" are
+ *	tracked in this list.
+ *
+ *	Not all changes due to position are tracked.
+ */
+
+
+modify relation RDB$DATABASE
+    add field RDB$CHARACTER_SET_NAME                    position 3;
+
+modify relation RDB$FIELDS
+    drop field RDB$COMPUTED_BLR,
+    add  field RDB$COMPUTED_BLR      based on RDB$VALUE          position 4,
+    drop field RDB$DEFAULT_VALUE,
+    add  field RDB$DEFAULT_VALUE     based on RDB$VALUE          position 6,
+    drop field RDB$MISSING_VALUE,
+    add  field RDB$MISSING_VALUE     based on RDB$VALUE          position 11,
+
+    add field RDB$DEFAULT_SOURCE     based on RDB$SOURCE         position 7,
+    add field RDB$MISSING_SOURCE     based on RDB$SOURCE         position 13,
+    add field RDB$NULL_FLAG                                       position 23,
+    add field RDB$CHARACTER_LENGTH   based on RDB$FIELD_LENGTH   position 24,
+    add field RDB$COLLATION_ID                                    position 25,
+    add field RDB$CHARACTER_SET_ID                                position 26;
+
+modify relation RDB$INDICES
+    add field RDB$EXPRESSION_BLR     based on RDB$VALUE,
+    add field RDB$EXPRESSION_SOURCE  based on RDB$SOURCE;
+
+modify relation RDB$RELATION_FIELDS
+    drop field RDB$DEFAULT_VALUE,
+    add  field RDB$DEFAULT_VALUE    based on RDB$VALUE  position 12,
+
+    add field RDB$NULL_FLAG                             position 16,
+    add field RDB$DEFAULT_SOURCE    based on RDB$SOURCE position 17,
+    add field RDB$COLLATION_ID                          position 18;
+
+modify relation RDB$RELATIONS
+    add field RDB$FLAGS    based on RDB$SYSTEM_FLAG     position 15;
+
+
+modify relation RDB$TRIGGERS
+    add field RDB$FLAGS              based on RDB$SYSTEM_FLAG     position 9;
+
+modify relation RDB$DEPENDENCIES
+    drop field RDB$OBJECT_NAME,
+    drop field RDB$RELATION_NAME,
+    drop field RDB$DEPENDENCY_TYPE,
+    add field RDB$DEPENDENT_NAME     based on RDB$GENERIC_NAME    position 0,
+    add field RDB$DEPENDED_ON_NAME   based on RDB$GENERIC_NAME    position 1,
+    add field RDB$DEPENDENT_TYPE     based on RDB$OBJECT_TYPE     position 3,
+    add field RDB$DEPENDED_ON_TYPE   based on RDB$OBJECT_TYPE     position 4;
+
+modify relation RDB$FUNCTION_ARGUMENTS
+    add field RDB$CHARACTER_SET_ID                                position 7;
+
+modify relation RDB$USER_PRIVILEGES
+    add field RDB$USER_TYPE          based on RDB$OBJECT_TYPE     position 6,
+    add field RDB$OBJECT_TYPE                                     position 7;
+
+define relation RDB$RELATION_CONSTRAINTS
+    RDB$CONSTRAINT_NAME                                 position 0,
+    RDB$CONSTRAINT_TYPE                                 position 1,
+    RDB$RELATION_NAME                                   position 2,
+    RDB$DEFERRABLE                                      position 3,
+    RDB$INITIALLY_DEFERRED based on RDB$DEFERRABLE      position 4,
+    RDB$INDEX_NAME                                      position 5;
+
+define relation RDB$REF_CONSTRAINTS
+    RDB$CONSTRAINT_NAME                                 position 0,
+    RDB$CONST_NAME_UQ      based on RDB$CONSTRAINT_NAME position 1,
+    RDB$MATCH_OPTION                                    position 2,
+    RDB$UPDATE_RULE        based on RDB$RULE            position 3,
+    RDB$DELETE_RULE        based on RDB$RULE            position 4;
+
+define relation RDB$CHECK_CONSTRAINTS
+    RDB$CONSTRAINT_NAME                                 position 0,
+    RDB$TRIGGER_NAME                                    position 1;
+
+define relation RDB$LOG_FILES
+    RDB$FILE_NAME                                       position 0,
+    RDB$FILE_SEQUENCE                                   position 1,
+    RDB$FILE_LENGTH                                     position 2,
+    RDB$FILE_PARTITIONS                                 position 3,
+    RDB$FILE_P_OFFSET                                   position 4,
+    RDB$FILE_FLAGS                                      position 5;
+
+define relation RDB$PROCEDURES
+    RDB$PROCEDURE_NAME                                  position 0,
+    RDB$PROCEDURE_ID                                    position 1,
+    RDB$PROCEDURE_INPUTS   based on RDB$PROCEDURE_PARAMETERS position 2,
+    RDB$PROCEDURE_OUTPUTS  based on RDB$PROCEDURE_PARAMETERS position 3,
+    RDB$DESCRIPTION                                     position 4,
+    RDB$PROCEDURE_SOURCE   based on RDB$SOURCE          position 5,
+    RDB$PROCEDURE_BLR                                   position 6,
+    RDB$SECURITY_CLASS                                  position 7,
+    RDB$OWNER_NAME         based on RDB$USER            position 8,
+    RDB$RUNTIME                                         position 9,
+    RDB$SYSTEM_FLAG                                     position 10;
+
+define relation RDB$PROCEDURE_PARAMETERS
+    RDB$PARAMETER_NAME                                  position 0,
+    RDB$PROCEDURE_NAME                                  position 1,
+    RDB$PARAMETER_NUMBER                                position 2,
+    RDB$PARAMETER_TYPE                                  position 3,
+    RDB$FIELD_SOURCE       based on RDB$FIELD_NAME      position 4,
+    RDB$DESCRIPTION                                     position 5,
+    RDB$SYSTEM_FLAG                                     position 6;
+
+define relation RDB$CHARACTER_SETS
+    RDB$CHARACTER_SET_NAME                              position 0,
+    RDB$FORM_OF_USE        based on RDB$GENERIC_NAME    position 1,
+    RDB$NUMBER_OF_CHARACTERS                            position 2,
+    RDB$DEFAULT_COLLATE_NAME based on RDB$COLLATION_NAME  position 3,
+    RDB$CHARACTER_SET_ID                                position 4,
+    RDB$SYSTEM_FLAG                                     position 5,
+    RDB$DESCRIPTION                                     position 6,
+    RDB$FUNCTION_NAME                                   position 7,
+    RDB$BYTES_PER_CHARACTER based on RDB$FIELD_LENGTH   position 8;
+
+define relation RDB$COLLATIONS
+    RDB$COLLATION_NAME                                  position 0,
+    RDB$COLLATION_ID                                    position 1,
+    RDB$CHARACTER_SET_ID                                position 2,
+    RDB$COLLATION_ATTRIBUTES based on RDB$GENERIC_TYPE  position 3,
+    RDB$SYSTEM_FLAG                                     position 4,
+    RDB$DESCRIPTION                                     position 5,
+    RDB$FUNCTION_NAME                                   position 6;
+
+define relation RDB$EXCEPTIONS
+    RDB$EXCEPTION_NAME                                  position 0,
+    RDB$EXCEPTION_NUMBER                                position 1,
+    RDB$MESSAGE                                         position 2,
+    RDB$DESCRIPTION                                     position 3,
+    RDB$SYSTEM_FLAG                                     position 4;
+
+
+/*	Index Definitions	*/
+
+/* Several V3.3 Indices changed number for V4: 
+ *	12	-> 15
+ *	13	-> 16
+ *	14	-> 17
+ */
+
+drop   index RDB$INDEX_15;
+
+define index RDB$INDEX_12_v4 for RDB$RELATION_CONSTRAINTS unique
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_13_v4 for RDB$REF_CONSTRAINTS unique
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_14_v4 for RDB$CHECK_CONSTRAINTS 
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_18 for RDB$PROCEDURE_PARAMETERS unique
+	RDB$PROCEDURE_NAME,
+	RDB$PARAMETER_NAME;
+
+define index RDB$INDEX_19 for RDB$CHARACTER_SETS unique
+	RDB$CHARACTER_SET_NAME;
+
+define index RDB$INDEX_20 for RDB$COLLATIONS unique
+	RDB$COLLATION_NAME;
+
+define index RDB$INDEX_21 for RDB$PROCEDURES unique
+	RDB$PROCEDURE_NAME;
+
+define index RDB$INDEX_22 for RDB$PROCEDURES 
+	RDB$PROCEDURE_ID;
+
+define index RDB$INDEX_23 for RDB$EXCEPTIONS unique
+	RDB$EXCEPTION_NAME;
+
+define index RDB$INDEX_24 for RDB$EXCEPTIONS 
+	RDB$EXCEPTION_NUMBER;
+
+define index RDB$INDEX_25 for RDB$CHARACTER_SETS unique
+	RDB$CHARACTER_SET_ID;
+
+define index RDB$INDEX_26 for RDB$COLLATIONS unique
+	RDB$COLLATION_ID,
+	RDB$CHARACTER_SET_ID;
+
+
+/*	Generator Definitions	*/
+
+
+define generator RDB$PROCEDURES;
+define generator RDB$EXCEPTIONS;
+define generator RDB$CONSTRAINT_NAME;
+define generator RDB$FIELD_NAME;
+define generator RDB$INDEX_NAME;
+define generator RDB$TRIGGER_NAME;
+
+/*	Trigger Definitions	*/
+
+/*
+ * Trigger Messages for all V4 system triggers have been modified
+ * to the name of the system error to report.
+ *
+ * This section does not document changes to trigger implementation,
+ * just the set of system triggers added for V4.
+ */
+
+
+define trigger RDB$TRIGGER_26 for RDB$RELATION_CONSTRAINTS
+	pre store 0:
+	end_trigger 
+	message  1:  'constaint_on_view',
+	message  2:  'invld_cnstrnt_type',
+	message  3:  'primary_key_exists';
+
+define trigger RDB$TRIGGER_25 for RDB$RELATION_CONSTRAINTS
+	pre modify 0:
+	end_trigger 
+	message  1:  'rel_cnstrnt_update';
+
+define trigger RDB$TRIGGER_10 for RDB$RELATION_CONSTRAINTS
+	pre erase 0:
+	end_trigger 
+	message  1:  'primary_key_ref',
+	message  2:  'primary_key_notnull';
+
+define trigger RDB$TRIGGER_11 for RDB$RELATION_CONSTRAINTS
+	post erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_12 for RDB$REF_CONSTRAINTS
+	pre store 0:
+	end_trigger 
+	message  1:  'ref_cnstrnt_notfound',
+	message  2:  'foreign_key_notfound';
+
+define trigger RDB$TRIGGER_13 for RDB$REF_CONSTRAINTS
+	pre modify 0:
+	end_trigger 
+	message  1:  'ref_cnstrnt_update';
+
+define trigger RDB$TRIGGER_14 for RDB$CHECK_CONSTRAINTS
+	pre modify 0:
+	end_trigger 
+	message  1:  'check_cnstrnt_update';
+
+define trigger RDB$TRIGGER_15 for RDB$CHECK_CONSTRAINTS
+	pre erase 0:
+	end_trigger 
+	message  1:  'check_cnstrnt_del';
+
+define trigger RDB$TRIGGER_16 for RDB$CHECK_CONSTRAINTS
+	post erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_17 for RDB$INDEX_SEGMENTS
+	pre erase 0:
+	end_trigger 
+	message  1:  'integ_index_seg_del';
+
+define trigger RDB$TRIGGER_18 for RDB$INDEX_SEGMENTS
+	pre modify 0:
+	end_trigger 
+	message  1:  'integ_index_seg_mod';
+
+define trigger RDB$TRIGGER_19 for RDB$INDICES
+	pre erase 0:
+	end_trigger 
+	message  1:  'integ_index_del';
+
+define trigger RDB$TRIGGER_20 for RDB$INDICES
+	pre modify 0:
+	end_trigger 
+	message  1:  'integ_index_mod';
+
+define trigger RDB$TRIGGER_21 for RDB$TRIGGERS
+	pre erase 0:
+	end_trigger 
+	message  1:  'check_trig_del';
+
+define trigger RDB$TRIGGER_22 for RDB$TRIGGERS
+	pre modify 0:
+	end_trigger 
+	message  1:  'check_trig_update';
+
+define trigger RDB$TRIGGER_23 for RDB$RELATION_FIELDS
+	pre erase 0:
+	end_trigger 
+	message  1:  'cnstrnt_fld_del';
+
+define trigger RDB$TRIGGER_24 for RDB$RELATION_FIELDS
+	pre modify 0:
+	end_trigger 
+	message  1:  'cnstrnt_fld_rename';
+
+define trigger RDB$TRIGGER_27 for RDB$RELATION_FIELDS
+	post erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_28 for RDB$PROCEDURES
+	pre store 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_29 for RDB$PROCEDURES
+	pre modify 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_30 for RDB$EXCEPTIONS
+	pre store 0:
+	end_trigger;
+
diff --git a/src/jrd/ods81.gdl b/src/jrd/ods81.gdl
new file mode 100644
index 0000000000..97887060c3
--- /dev/null
+++ b/src/jrd/ods81.gdl
@@ -0,0 +1,782 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ *	This file documents InterBase Version 4.0 ODS 8.1 metadata structure.
+ *
+ *	See also ODS80.gdl for the 8.0 structure.  There is specific
+ *	note of the new features in this document.
+ *
+ *	Summary of ODS 8.1 modification:
+ *		New System indices RDB$INDEX_27 .. RDB$INDEX_38.
+ *		Modification to RDB$TRIGGER_11
+ *		Modification to RDB$TRIGGER_16
+ *	If an ODS 8.0 DB is upgraded to ODS 8.1, TRIGGERS 11 & 16
+ *	are not modified and the following triggers are added.
+ *		New trigger RDB$TRIGGER_ODS81_1
+ *		New trigger RDB$TRIGGER_ODS81_2
+ *
+ *	See jrd/grant.gdl for descriptions of changes to TRIGGER_11 & 16
+ *	in ODS 8.1.
+ *
+ *	This file was made with hacked version of GDEF -extract, which
+ *	extracted system information only.
+ *
+ *	Sorting is as follows:
+ *		Global fields:	Name
+ *		Relations:	Relation ID
+ *		Indices:	Created order
+ *		Generators:	Created order
+ *		Triggers:	Created order
+ *
+ *	Note: Sources for system triggers are missing, but many
+ *	      can be found in jrd/grant.gdl.  The compiled
+ *	      blr versions are in jrd/trig.h.  Note that the compiled
+ *	      blr has been hand-edited in a few places.
+ *
+ *	Note: You can run this script by globally replacing "RDB$"
+ *	      with "XRDB$", it will then make user relations
+ *            with the specified system structure.
+ *
+ *	Note: In metadata, most, but not all, of these items have the
+ *	      RDB$SYSTEM flag set to 1.
+ *
+ */
+
+define database "v4_ods81.gdb"
+	page_size 1024;
+
+
+/*	Global Field Definitions	*/
+
+/* Note: all sub_type 3 text fields are also CHARACTER SET Unicode_FSS */
+
+define field RDB$ACL blob segment_length 80 sub_type ACL;
+define field RDB$BOUND long;
+define field RDB$CHARACTER_SET_ID short;
+define field RDB$CHARACTER_SET_NAME char [31] sub_type 3;
+define field RDB$COLLATION_ID short;
+define field RDB$COLLATION_NAME char [31] sub_type 3;
+define field RDB$CONSTRAINT_NAME char [31] sub_type 3;
+define field RDB$CONSTRAINT_TYPE char [11];
+define field RDB$CONTEXT_NAME char [31] sub_type 3;
+define field RDB$DBKEY_LENGTH short;
+define field RDB$DEFERRABLE char [3];
+define field RDB$DESCRIPTION blob segment_length 80 sub_type text;
+define field RDB$DESCRIPTOR blob segment_length 80 sub_type 6;
+define field RDB$DIMENSION short;
+define field RDB$DIMENSIONS short;
+define field RDB$EDIT_STRING varying [125];
+define field RDB$EXCEPTION_NAME char [31] sub_type 3;
+define field RDB$EXCEPTION_NUMBER long;
+
+define field RDB$EXTERNAL_DESCRIPTION blob segment_length 80 sub_type 8;
+/*
+From deej@apex Mon Nov 29 15:07:52 1993
+Date: Mon, 29 Nov 93 14:54:42 PST
+From: deej@apex (Dave Bredenberg)
+To: daves@apex
+Subject: RDB$EXTERNAL_DESCRIPTION
+Content-Length: 169
+
+I believe it was just supposed to be a place
+to put commentary about an external relation,
+to be passed when opening the file.  It looks
+like it was never used, though.
+*/
+
+define field RDB$EXTERNAL_NAME char [31];
+define field RDB$FIELD_ID short;
+define field RDB$FIELD_LENGTH short;
+define field RDB$FIELD_NAME char [31] sub_type 3;
+define field RDB$FIELD_POSITION short;
+define field RDB$FIELD_SCALE short;
+define field RDB$FIELD_SUB_TYPE short;
+define field RDB$FIELD_TYPE short;
+define field RDB$FILE_FLAGS short;
+define field RDB$FILE_LENGTH long;
+define field RDB$FILE_NAME varying [253];
+define field RDB$FILE_PARTITIONS short;
+define field RDB$FILE_P_OFFSET long;
+define field RDB$FILE_SEQUENCE short;
+define field RDB$FILE_START long;
+define field RDB$FORMAT short;
+define field RDB$FUNCTION_NAME char [31] sub_type 3;
+define field RDB$FUNCTION_TYPE short;
+define field RDB$GENERATOR_ID short;
+define field RDB$GENERATOR_NAME char [31] sub_type 3;
+define field RDB$GENERIC_NAME char [31] sub_type 3;
+define field RDB$GENERIC_TYPE short;
+define field RDB$INDEX_ID short;
+define field RDB$INDEX_NAME char [31] sub_type 3;
+define field RDB$MATCH_OPTION char [7];
+define field RDB$MECHANISM short;
+define field RDB$MESSAGE varying [78];
+define field RDB$MESSAGE_NUMBER short;
+define field RDB$NULL_FLAG short;
+define field RDB$NUMBER_OF_CHARACTERS long;
+define field RDB$OBJECT_TYPE short;
+define field RDB$PAGE_NUMBER long;
+define field RDB$PAGE_SEQUENCE long;
+define field RDB$PAGE_TYPE short;
+define field RDB$PARAMETER_NAME char [31] sub_type 3;
+define field RDB$PARAMETER_NUMBER short;
+define field RDB$PARAMETER_TYPE short;
+define field RDB$PRIVILEGE char [6];
+define field RDB$PROCEDURE_BLR blob segment_length 80 sub_type BLR;
+define field RDB$PROCEDURE_ID short;
+define field RDB$PROCEDURE_NAME char [31] sub_type 3;
+define field RDB$PROCEDURE_PARAMETERS short;
+define field RDB$QUERY_HEADER blob segment_length 80 sub_type text;
+define field RDB$RELATION_ID short;
+define field RDB$RELATION_NAME char [31] sub_type 3;
+define field RDB$RULE char [11];
+define field RDB$RUNTIME blob segment_length 80 sub_type 5;
+define field RDB$SECURITY_CLASS char [31] sub_type 3;
+define field RDB$SEGMENT_COUNT short;
+define field RDB$SEGMENT_LENGTH short;
+define field RDB$SHADOW_NUMBER short;
+define field RDB$SOURCE blob segment_length 80 sub_type text;
+define field RDB$STATISTICS double;
+define field RDB$SYSTEM_FLAG short;
+define field RDB$TIMESTAMP date;
+define field RDB$TRANSACTION_DESCRIPTION blob segment_length 80 sub_type 7;
+define field RDB$TRANSACTION_ID long;
+define field RDB$TRANSACTION_STATE short;
+define field RDB$TRIGGER_BLR blob segment_length 80 sub_type BLR;
+define field RDB$TRIGGER_NAME char [31] sub_type 3;
+define field RDB$TRIGGER_SEQUENCE short;
+define field RDB$TRIGGER_TYPE short;
+define field RDB$TYPE_NAME char [31] sub_type 3;
+define field RDB$USER char [31] sub_type 3;
+define field RDB$VALIDATION_BLR blob segment_length 80 sub_type BLR;
+define field RDB$VALUE blob segment_length 80 sub_type BLR;
+define field RDB$VIEW_BLR blob segment_length 80 sub_type BLR;
+define field RDB$VIEW_CONTEXT short;
+
+
+/*	Relation Definitions	*/
+
+
+define relation RDB$PAGES
+    RDB$PAGE_NUMBER	position 0,
+    RDB$RELATION_ID	position 1,
+    RDB$PAGE_SEQUENCE	position 2,
+    RDB$PAGE_TYPE	position 3;
+
+define relation RDB$DATABASE
+    RDB$DESCRIPTION	position 0,
+    RDB$RELATION_ID	position 1,
+    RDB$SECURITY_CLASS	position 2,
+    RDB$CHARACTER_SET_NAME	position 3;
+
+define relation RDB$FIELDS
+    RDB$FIELD_NAME	position 0,
+    RDB$QUERY_NAME based on RDB$FIELD_NAME	position 1,
+    RDB$VALIDATION_BLR	position 2,
+    RDB$VALIDATION_SOURCE based on RDB$SOURCE	position 3,
+    RDB$COMPUTED_BLR based on RDB$VALUE	position 4,
+    RDB$COMPUTED_SOURCE based on RDB$SOURCE	position 5,
+    RDB$DEFAULT_VALUE based on RDB$VALUE	position 6,
+    RDB$DEFAULT_SOURCE based on RDB$SOURCE	position 7,
+    RDB$FIELD_LENGTH	position 8,
+    RDB$FIELD_SCALE	position 9,
+    RDB$FIELD_TYPE	position 10,
+    RDB$FIELD_SUB_TYPE	position 11,
+    RDB$MISSING_VALUE based on RDB$VALUE	position 12,
+    RDB$MISSING_SOURCE based on RDB$SOURCE	position 13,
+    RDB$DESCRIPTION	position 14,
+    RDB$SYSTEM_FLAG	position 15,
+    RDB$QUERY_HEADER	position 16,
+    RDB$SEGMENT_LENGTH	position 17,
+    RDB$EDIT_STRING	position 18,
+    RDB$EXTERNAL_LENGTH based on RDB$FIELD_LENGTH	position 19,
+    RDB$EXTERNAL_SCALE based on RDB$FIELD_SCALE	position 20,
+    RDB$EXTERNAL_TYPE based on RDB$FIELD_TYPE	position 21,
+    RDB$DIMENSIONS	position 22,
+    RDB$NULL_FLAG	position 23,
+    RDB$CHARACTER_LENGTH based on RDB$FIELD_LENGTH	position 24,
+    RDB$COLLATION_ID	position 25,
+    RDB$CHARACTER_SET_ID	position 26;
+
+define relation RDB$INDEX_SEGMENTS
+    RDB$INDEX_NAME	position 0,
+    RDB$FIELD_NAME	position 1,
+    RDB$FIELD_POSITION	position 2;
+
+define relation RDB$INDICES
+    RDB$INDEX_NAME	position 0,
+    RDB$RELATION_NAME	position 1,
+    RDB$INDEX_ID	position 2,
+    RDB$UNIQUE_FLAG based on RDB$SYSTEM_FLAG	position 3,
+    RDB$DESCRIPTION	position 4,
+    RDB$SEGMENT_COUNT	position 5,
+    RDB$INDEX_INACTIVE based on RDB$SYSTEM_FLAG	position 6,
+    RDB$INDEX_TYPE based on RDB$SYSTEM_FLAG	position 7,
+    RDB$FOREIGN_KEY based on RDB$RELATION_NAME	position 8,
+    RDB$SYSTEM_FLAG	position 9,
+    RDB$EXPRESSION_BLR based on RDB$VALUE	position 10,
+    RDB$EXPRESSION_SOURCE based on RDB$SOURCE	position 11,
+    RDB$STATISTICS	position 12;
+
+define relation RDB$RELATION_FIELDS
+    RDB$FIELD_NAME	position 0,
+    RDB$RELATION_NAME	position 1,
+    RDB$FIELD_SOURCE based on RDB$FIELD_NAME	position 2,
+    RDB$QUERY_NAME based on RDB$FIELD_NAME	position 3,
+    RDB$BASE_FIELD based on RDB$FIELD_NAME	position 4,
+    RDB$EDIT_STRING	position 5,
+    RDB$FIELD_POSITION	position 6,
+    RDB$QUERY_HEADER	position 7,
+    RDB$UPDATE_FLAG based on RDB$SYSTEM_FLAG	position 8,
+    RDB$FIELD_ID	position 9,
+    RDB$VIEW_CONTEXT	position 10,
+    RDB$DESCRIPTION	position 11,
+    RDB$DEFAULT_VALUE based on RDB$VALUE	position 12,
+    RDB$SYSTEM_FLAG	position 13,
+    RDB$SECURITY_CLASS	position 14,
+    RDB$COMPLEX_NAME based on RDB$FIELD_NAME	position 15,
+    RDB$NULL_FLAG	position 16,
+    RDB$DEFAULT_SOURCE based on RDB$SOURCE	position 17,
+    RDB$COLLATION_ID	position 18;
+
+define relation RDB$RELATIONS
+    RDB$VIEW_BLR	position 0,
+    RDB$VIEW_SOURCE based on RDB$SOURCE	position 1,
+    RDB$DESCRIPTION	position 2,
+    RDB$RELATION_ID	position 3,
+    RDB$SYSTEM_FLAG	position 4,
+    RDB$DBKEY_LENGTH	position 5,
+    RDB$FORMAT	position 6,
+    RDB$FIELD_ID	position 7,
+    RDB$RELATION_NAME	position 8,
+    RDB$SECURITY_CLASS	position 9,
+    RDB$EXTERNAL_FILE based on RDB$FILE_NAME	position 10,
+    RDB$RUNTIME	position 11,
+    RDB$EXTERNAL_DESCRIPTION	position 12,
+    RDB$OWNER_NAME based on RDB$USER	position 13,
+    RDB$DEFAULT_CLASS based on RDB$SECURITY_CLASS	position 14,
+    RDB$FLAGS based on RDB$SYSTEM_FLAG	position 15;
+
+define relation RDB$VIEW_RELATIONS
+    RDB$VIEW_NAME based on RDB$RELATION_NAME	position 0,
+    RDB$RELATION_NAME	position 1,
+    RDB$VIEW_CONTEXT	position 2,
+    RDB$CONTEXT_NAME	position 3;
+
+define relation RDB$FORMATS
+    RDB$RELATION_ID	position 0,
+    RDB$FORMAT	position 1,
+    RDB$DESCRIPTOR	position 2;
+
+define relation RDB$SECURITY_CLASSES
+    RDB$SECURITY_CLASS	position 0,
+    RDB$ACL	position 1,
+    RDB$DESCRIPTION	position 2;
+
+define relation RDB$FILES
+    RDB$FILE_NAME	position 0,
+    RDB$FILE_SEQUENCE	position 1,
+    RDB$FILE_START	position 2,
+    RDB$FILE_LENGTH	position 3,
+    RDB$FILE_FLAGS	position 4,
+    RDB$SHADOW_NUMBER	position 5;
+
+define relation RDB$TYPES
+    RDB$FIELD_NAME	position 0,
+    RDB$TYPE based on RDB$GENERIC_TYPE	position 1,
+    RDB$TYPE_NAME	position 2,
+    RDB$DESCRIPTION	position 3,
+    RDB$SYSTEM_FLAG	position 4;
+
+define relation RDB$TRIGGERS
+    RDB$TRIGGER_NAME	position 0,
+    RDB$RELATION_NAME	position 1,
+    RDB$TRIGGER_SEQUENCE	position 2,
+    RDB$TRIGGER_TYPE	position 3,
+    RDB$TRIGGER_SOURCE based on RDB$SOURCE	position 4,
+    RDB$TRIGGER_BLR	position 5,
+    RDB$DESCRIPTION	position 6,
+    RDB$TRIGGER_INACTIVE based on RDB$SYSTEM_FLAG	position 7,
+    RDB$SYSTEM_FLAG	position 8,
+    RDB$FLAGS based on RDB$SYSTEM_FLAG	position 9;
+
+define relation RDB$DEPENDENCIES
+    RDB$DEPENDENT_NAME based on RDB$GENERIC_NAME	position 0,
+    RDB$DEPENDED_ON_NAME based on RDB$GENERIC_NAME	position 1,
+    RDB$FIELD_NAME	position 2,
+    RDB$DEPENDENT_TYPE based on RDB$OBJECT_TYPE	position 3,
+    RDB$DEPENDED_ON_TYPE based on RDB$OBJECT_TYPE	position 4;
+
+define relation RDB$FUNCTIONS
+    RDB$FUNCTION_NAME	position 0,
+    RDB$FUNCTION_TYPE	position 1,
+    RDB$QUERY_NAME based on RDB$FIELD_NAME	position 2,
+    RDB$DESCRIPTION	position 3,
+    RDB$MODULE_NAME based on RDB$FILE_NAME	position 4,
+    RDB$ENTRYPOINT based on RDB$EXTERNAL_NAME	position 5,
+    RDB$RETURN_ARGUMENT based on RDB$FIELD_POSITION	position 6,
+    RDB$SYSTEM_FLAG	position 7;
+
+define relation RDB$FUNCTION_ARGUMENTS
+    RDB$FUNCTION_NAME	position 0,
+    RDB$ARGUMENT_POSITION based on RDB$FIELD_POSITION	position 1,
+    RDB$MECHANISM	position 2,
+    RDB$FIELD_TYPE	position 3,
+    RDB$FIELD_SCALE	position 4,
+    RDB$FIELD_LENGTH	position 5,
+    RDB$FIELD_SUB_TYPE	position 6,
+    RDB$CHARACTER_SET_ID	position 7;
+
+define relation RDB$FILTERS
+    RDB$FUNCTION_NAME	position 0,
+    RDB$DESCRIPTION	position 1,
+    RDB$MODULE_NAME based on RDB$FILE_NAME	position 2,
+    RDB$ENTRYPOINT based on RDB$EXTERNAL_NAME	position 3,
+    RDB$INPUT_SUB_TYPE based on RDB$FIELD_SUB_TYPE	position 4,
+    RDB$OUTPUT_SUB_TYPE based on RDB$FIELD_SUB_TYPE	position 5,
+    RDB$SYSTEM_FLAG	position 6;
+
+define relation RDB$TRIGGER_MESSAGES
+    RDB$TRIGGER_NAME	position 0,
+    RDB$MESSAGE_NUMBER	position 1,
+    RDB$MESSAGE	position 2;
+
+define relation RDB$USER_PRIVILEGES
+    RDB$USER	position 0,
+    RDB$GRANTOR based on RDB$USER	position 1,
+    RDB$PRIVILEGE	position 2,
+    RDB$GRANT_OPTION based on RDB$SYSTEM_FLAG	position 3,
+    RDB$RELATION_NAME based on RDB$GENERIC_NAME	position 4,
+    RDB$FIELD_NAME	position 5,
+    RDB$USER_TYPE based on RDB$OBJECT_TYPE	position 6,
+    RDB$OBJECT_TYPE	position 7;
+
+define relation RDB$TRANSACTIONS
+    RDB$TRANSACTION_ID	position 0,
+    RDB$TRANSACTION_STATE	position 1,
+    RDB$TIMESTAMP	position 2,
+    RDB$TRANSACTION_DESCRIPTION	position 3;
+
+define relation RDB$GENERATORS
+    RDB$GENERATOR_NAME	position 0,
+    RDB$GENERATOR_ID	position 1,
+    RDB$SYSTEM_FLAG	position 2;
+
+define relation RDB$FIELD_DIMENSIONS
+    RDB$FIELD_NAME	position 0,
+    RDB$DIMENSION	position 1,
+    RDB$LOWER_BOUND based on RDB$BOUND	position 2,
+    RDB$UPPER_BOUND based on RDB$BOUND	position 3;
+
+define relation RDB$RELATION_CONSTRAINTS
+    RDB$CONSTRAINT_NAME	position 0,
+    RDB$CONSTRAINT_TYPE	position 1,
+    RDB$RELATION_NAME	position 2,
+    RDB$DEFERRABLE	position 3,
+    RDB$INITIALLY_DEFERRED based on RDB$DEFERRABLE	position 4,
+    RDB$INDEX_NAME	position 5;
+
+define relation RDB$REF_CONSTRAINTS
+    RDB$CONSTRAINT_NAME	position 0,
+    RDB$CONST_NAME_UQ based on RDB$CONSTRAINT_NAME	position 1,
+    RDB$MATCH_OPTION	position 2,
+    RDB$UPDATE_RULE based on RDB$RULE	position 3,
+    RDB$DELETE_RULE based on RDB$RULE	position 4;
+
+define relation RDB$CHECK_CONSTRAINTS
+    RDB$CONSTRAINT_NAME	position 0,
+    RDB$TRIGGER_NAME	position 1;
+
+define relation RDB$LOG_FILES
+    RDB$FILE_NAME	position 0,
+    RDB$FILE_SEQUENCE	position 1,
+    RDB$FILE_LENGTH	position 2,
+    RDB$FILE_PARTITIONS	position 3,
+    RDB$FILE_P_OFFSET	position 4,
+    RDB$FILE_FLAGS	position 5;
+
+define relation RDB$PROCEDURES
+    RDB$PROCEDURE_NAME	position 0,
+    RDB$PROCEDURE_ID	position 1,
+    RDB$PROCEDURE_INPUTS based on RDB$PROCEDURE_PARAMETERS	position 2,
+    RDB$PROCEDURE_OUTPUTS based on RDB$PROCEDURE_PARAMETERS	position 3,
+    RDB$DESCRIPTION	position 4,
+    RDB$PROCEDURE_SOURCE based on RDB$SOURCE	position 5,
+    RDB$PROCEDURE_BLR	position 6,
+    RDB$SECURITY_CLASS	position 7,
+    RDB$OWNER_NAME based on RDB$USER	position 8,
+    RDB$RUNTIME	position 9,
+    RDB$SYSTEM_FLAG	position 10;
+
+define relation RDB$PROCEDURE_PARAMETERS
+    RDB$PARAMETER_NAME	position 0,
+    RDB$PROCEDURE_NAME	position 1,
+    RDB$PARAMETER_NUMBER	position 2,
+    RDB$PARAMETER_TYPE	position 3,
+    RDB$FIELD_SOURCE based on RDB$FIELD_NAME	position 4,
+    RDB$DESCRIPTION	position 5,
+    RDB$SYSTEM_FLAG	position 6;
+
+define relation RDB$CHARACTER_SETS
+    RDB$CHARACTER_SET_NAME	position 0,
+    RDB$FORM_OF_USE based on RDB$GENERIC_NAME	position 1,
+    RDB$NUMBER_OF_CHARACTERS	position 2,
+    RDB$DEFAULT_COLLATE_NAME based on RDB$COLLATION_NAME	position 3,
+    RDB$CHARACTER_SET_ID	position 4,
+    RDB$SYSTEM_FLAG	position 5,
+    RDB$DESCRIPTION	position 6,
+    RDB$FUNCTION_NAME	position 7,
+    RDB$BYTES_PER_CHARACTER based on RDB$FIELD_LENGTH	position 8;
+
+define relation RDB$COLLATIONS
+    RDB$COLLATION_NAME	position 0,
+    RDB$COLLATION_ID	position 1,
+    RDB$CHARACTER_SET_ID	position 2,
+    RDB$COLLATION_ATTRIBUTES based on RDB$GENERIC_TYPE	position 3,
+    RDB$SYSTEM_FLAG	position 4,
+    RDB$DESCRIPTION	position 5,
+    RDB$FUNCTION_NAME	position 6;
+
+define relation RDB$EXCEPTIONS
+    RDB$EXCEPTION_NAME	position 0,
+    RDB$EXCEPTION_NUMBER	position 1,
+    RDB$MESSAGE	position 2,
+    RDB$DESCRIPTION	position 3,
+    RDB$SYSTEM_FLAG	position 4;
+
+define relation RDB$ROLES
+    RDB$ROLE_NAME	based on RDB$USER position 0,
+    RDB$OWNER_NAME	based on RDB$USER position 1;
+
+
+/*	Index Definitions	*/
+
+
+define index RDB$INDEX_0 for RDB$RELATIONS unique
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_1 for RDB$RELATIONS 
+	RDB$RELATION_ID;
+
+define index RDB$INDEX_2 for RDB$FIELDS unique
+	RDB$FIELD_NAME;
+
+define index RDB$INDEX_3 for RDB$RELATION_FIELDS 
+	RDB$FIELD_SOURCE;
+
+define index RDB$INDEX_4 for RDB$RELATION_FIELDS 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_5 for RDB$INDICES unique
+	RDB$INDEX_NAME;
+
+define index RDB$INDEX_6 for RDB$INDEX_SEGMENTS 
+	RDB$INDEX_NAME;
+
+define index RDB$INDEX_7 for RDB$SECURITY_CLASSES unique
+	RDB$SECURITY_CLASS;
+
+define index RDB$INDEX_8 for RDB$TRIGGERS unique
+	RDB$TRIGGER_NAME;
+
+define index RDB$INDEX_9 for RDB$FUNCTIONS unique
+	RDB$FUNCTION_NAME;
+
+define index RDB$INDEX_10 for RDB$FUNCTION_ARGUMENTS 
+	RDB$FUNCTION_NAME;
+
+define index RDB$INDEX_11 for RDB$GENERATORS unique
+	RDB$GENERATOR_NAME;
+
+define index RDB$INDEX_12 for RDB$RELATION_CONSTRAINTS unique
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_13 for RDB$REF_CONSTRAINTS unique
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_14 for RDB$CHECK_CONSTRAINTS 
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_15 for RDB$RELATION_FIELDS unique
+	RDB$FIELD_NAME,
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_16 for RDB$FORMATS 
+	RDB$RELATION_ID,
+	RDB$FORMAT;
+
+define index RDB$INDEX_17 for RDB$FILTERS 
+	RDB$INPUT_SUB_TYPE,
+	RDB$OUTPUT_SUB_TYPE;
+
+define index RDB$INDEX_18 for RDB$PROCEDURE_PARAMETERS unique
+	RDB$PROCEDURE_NAME,
+	RDB$PARAMETER_NAME;
+
+define index RDB$INDEX_19 for RDB$CHARACTER_SETS unique
+	RDB$CHARACTER_SET_NAME;
+
+define index RDB$INDEX_20 for RDB$COLLATIONS unique
+	RDB$COLLATION_NAME;
+
+define index RDB$INDEX_21 for RDB$PROCEDURES unique
+	RDB$PROCEDURE_NAME;
+
+define index RDB$INDEX_22 for RDB$PROCEDURES 
+	RDB$PROCEDURE_ID;
+
+define index RDB$INDEX_23 for RDB$EXCEPTIONS unique
+	RDB$EXCEPTION_NAME;
+
+define index RDB$INDEX_24 for RDB$EXCEPTIONS 
+	RDB$EXCEPTION_NUMBER;
+
+define index RDB$INDEX_25 for RDB$CHARACTER_SETS unique
+	RDB$CHARACTER_SET_ID;
+
+define index RDB$INDEX_26 for RDB$COLLATIONS unique
+	RDB$COLLATION_ID,
+	RDB$CHARACTER_SET_ID;
+
+/* Indices 27 .. 38 are new in ODS 8.1 */
+
+define index RDB$INDEX_27 for RDB$DEPENDENCIES 
+	RDB$DEPENDENT_NAME;
+
+define index RDB$INDEX_28 for RDB$DEPENDENCIES 
+	RDB$DEPENDED_ON_NAME;
+
+define index RDB$INDEX_29 for RDB$USER_PRIVILEGES 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_30 for RDB$USER_PRIVILEGES 
+	RDB$USER;
+
+define index RDB$INDEX_31 for RDB$INDICES 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_32 for RDB$TRANSACTIONS unique
+	RDB$TRANSACTION_ID;
+
+define index RDB$INDEX_33 for RDB$VIEW_RELATIONS 
+	RDB$VIEW_NAME;
+
+define index RDB$INDEX_34 for RDB$VIEW_RELATIONS 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_35 for RDB$TRIGGER_MESSAGES 
+	RDB$TRIGGER_NAME;
+
+define index RDB$INDEX_36 for RDB$FIELD_DIMENSIONS 
+	RDB$FIELD_NAME;
+
+define index RDB$INDEX_37 for RDB$TYPES 
+	RDB$TYPE_NAME;
+
+define index RDB$INDEX_38 for RDB$TRIGGERS 
+	RDB$RELATION_NAME;
+
+
+/*	Generator Definitions	*/
+
+
+define generator RDB$SECURITY_CLASS;
+define generator SQL$DEFAULT;
+define generator RDB$PROCEDURES;
+define generator RDB$EXCEPTIONS;
+define generator RDB$CONSTRAINT_NAME;
+define generator RDB$FIELD_NAME;
+define generator RDB$INDEX_NAME;
+define generator RDB$TRIGGER_NAME;
+
+/*	Trigger Definitions	*/
+
+
+
+define trigger RDB$TRIGGER_1 for RDB$USER_PRIVILEGES
+	pre modify 0:
+	end_trigger 
+	message  0:  'existing_priv_mod                                                             ';
+
+define trigger RDB$TRIGGER_8 for RDB$USER_PRIVILEGES
+	pre erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_9 for RDB$USER_PRIVILEGES
+	pre store 0:
+	end_trigger 
+	message  0:  'grant_obj_notfound                                                            ',
+	message  1:  'grant_fld_notfound                                                            ',
+	message  2:  'grant_nopriv                                                                  ',
+	message  3:  'nonsql_security_rel                                                           ',
+	message  4:  'nonsql_security_fld                                                           ',
+	message  5:  'grant_nopriv_on_base                                                          ';
+
+define trigger RDB$TRIGGER_2 for RDB$TRIGGERS
+	pre modify 0:
+	end_trigger 
+	message  0:  'systrig_update                                                                ';
+
+define trigger RDB$TRIGGER_3 for RDB$TRIGGERS
+	pre erase 0:
+	end_trigger 
+	message  0:  'systrig_update                                                                ';
+
+define trigger RDB$TRIGGER_4 for RDB$RELATIONS
+	pre store 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_5 for RDB$RELATIONS
+	pre modify 0:
+	end_trigger 
+	message  0:  'not_rel_owner                                                                 ';
+
+define trigger RDB$TRIGGER_6 for RDB$GENERATORS
+	pre store 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_26 for RDB$RELATION_CONSTRAINTS
+	pre store 0:
+	end_trigger 
+	message  1:  'constaint_on_view                                                             ',
+	message  2:  'invld_cnstrnt_type                                                            ',
+	message  3:  'primary_key_exists                                                            ';
+
+define trigger RDB$TRIGGER_25 for RDB$RELATION_CONSTRAINTS
+	pre modify 0:
+	end_trigger 
+	message  1:  'rel_cnstrnt_update                                                            ';
+
+define trigger RDB$TRIGGER_10 for RDB$RELATION_CONSTRAINTS
+	pre erase 0:
+	end_trigger 
+	message  1:  'primary_key_ref                                                               ',
+	message  2:  'primary_key_notnull                                                           ';
+
+/* RDB$TRIGGER_11 has been modified for newly created ODS 8.1 databases
+ * It now includes support for removing CASCADE RI options.
+ * For an ODS 8.0 DB upgraded to 8.1, RDB$TRIGGER_11 is not modified.
+ * A new trigger RDB$TRIGGER_ODS81_1, is created to perform the operation.
+ */
+define trigger RDB$TRIGGER_11 for RDB$RELATION_CONSTRAINTS
+	post erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_12 for RDB$REF_CONSTRAINTS
+	pre store 0:
+	end_trigger 
+	message  1:  'ref_cnstrnt_notfound                                                          ',
+	message  2:  'foreign_key_notfound                                                          ';
+
+define trigger RDB$TRIGGER_13 for RDB$REF_CONSTRAINTS
+	pre modify 0:
+	end_trigger 
+	message  1:  'ref_cnstrnt_update                                                            ';
+
+define trigger RDB$TRIGGER_14 for RDB$CHECK_CONSTRAINTS
+	pre modify 0:
+	end_trigger 
+	message  1:  'check_cnstrnt_update                                                          ';
+
+define trigger RDB$TRIGGER_15 for RDB$CHECK_CONSTRAINTS
+	pre erase 0:
+	end_trigger 
+	message  1:  'check_cnstrnt_del                                                             ';
+
+/* RDB$TRIGGER_16 has been modified for newly created ODS 8.1 databases
+ * It now includes support for removing CASCADE RI options.
+ * For an ODS 8.0 DB upgraded to 8.1, RDB$TRIGGER_16 is not modified.
+ * A new trigger, RDB$TRIGGER_ODS81_2, is created to perform the operation.
+ */
+define trigger RDB$TRIGGER_16 for RDB$CHECK_CONSTRAINTS
+	post erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_17 for RDB$INDEX_SEGMENTS
+	pre erase 0:
+	end_trigger 
+	message  1:  'integ_index_seg_del                                                           ';
+
+define trigger RDB$TRIGGER_18 for RDB$INDEX_SEGMENTS
+	pre modify 0:
+	end_trigger 
+	message  1:  'integ_index_seg_mod                                                           ';
+
+define trigger RDB$TRIGGER_19 for RDB$INDICES
+	pre erase 0:
+	end_trigger 
+	message  1:  'integ_index_del                                                               ';
+
+define trigger RDB$TRIGGER_20 for RDB$INDICES
+	pre modify 0:
+	end_trigger 
+	message  1:  'integ_index_mod                                                               ',
+	message  2:  'integ_index_deactivate                                                        ',
+	message  3:  'integ_deactivate_primary                                                      ';
+
+define trigger RDB$TRIGGER_21 for RDB$TRIGGERS
+	pre erase 0:
+	end_trigger 
+	message  1:  'check_trig_del                                                                ';
+
+define trigger RDB$TRIGGER_22 for RDB$TRIGGERS
+	pre modify 0:
+	end_trigger 
+	message  1:  'check_trig_update                                                             ';
+
+define trigger RDB$TRIGGER_23 for RDB$RELATION_FIELDS
+	pre erase 0:
+	end_trigger 
+	message  1:  'cnstrnt_fld_del                                                               ';
+
+define trigger RDB$TRIGGER_24 for RDB$RELATION_FIELDS
+	pre modify 0:
+	end_trigger 
+	message  1:  'cnstrnt_fld_rename                                                            ';
+
+define trigger RDB$TRIGGER_27 for RDB$RELATION_FIELDS
+	post erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_28 for RDB$PROCEDURES
+	pre store 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_29 for RDB$PROCEDURES
+	pre modify 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_30 for RDB$EXCEPTIONS
+	pre store 0:
+	end_trigger;
+
+/* Triggers RDB$TRIGGER_ODS81_1 (& _2) are present in an ODS 8.0 DB that is
+ * upgraded to ODS 8.1.  They are not present in an newly created
+ * ODS 8.1 database.  The function performed by these triggers
+ * is embedded in RDB$TRIGGER_11 and RDB$TRIGGER_16 (respectively)
+ * for a newly created ODS 8.1 db.
+ */
+define trigger RDB$TRIGGER_ODS81_1 for RDB$RELATION_CONSTRAINTS
+	post erase 0:
+	end_trigger;
+
+define trigger RDB$TRIGGER_ODS81_2 for RDB$CHECK_CONSTRAINTS
+	post erase 0:
+	end_trigger;
+
diff --git a/src/jrd/ods91.gdl b/src/jrd/ods91.gdl
new file mode 100644
index 0000000000..5cb455d89d
--- /dev/null
+++ b/src/jrd/ods91.gdl
@@ -0,0 +1,822 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ *	This file documents InterBase Version 5.5, ODS 9.1 metadata structure.
+ *
+ *	See also ODS80.gdl, ODS81.gdl for respective ODS structures.  There is 
+ *	specific note of the new features in this document.
+ *
+ *	Summary of ODS 9.1 modification:
+ *		New System index RDB$INDEX_40 
+ *
+ *	If an ODS 9.0 DB is upgraded to ODS 9.1, INDEX RDB$INDEX_40 is created.
+ *
+ *	See jrd/idx.h for description of RDB$INDEX_40 in ODS 9.1
+ *
+ *	This file was made with hacked version of GDEF -extract, which
+ *	extracted system information only.
+ *	This was done by substituting all checks (DUDLEY/extract.e) for 
+ *	(SYSTEM_FLAG NE 1) with (SYSTEM_FLAG EQ 1)
+ *	This enabled GDEF to extract only system metadata.
+ *
+ *	Sorting is as follows:
+ *		Global fields:		Name
+ *		Relations:		Name
+ *		Indices:		(RELATION_NAME, INDEX_NAME)
+ *		Security Classes:	Relation created order
+ *		Generators:		Name
+ *		Triggers:		Name
+ *
+ *	Note: Sources for system triggers are missing, but many
+ *	      can be found in jrd/grant.gdl.  The compiled
+ *	      blr versions are in jrd/trig.h.  Note that the compiled
+ *	      blr has been hand-edited in a few places.
+ *
+ *	Note: You can run this script by globally replacing 
+ *	      "RDB$" with "XRDB$", and "SQL$" with "XSQL$" 
+ *	      it will then make user relations with the specified system structure.
+ *	      # gdef -r ods91.gdl
+ *
+ *	Note: In metadata, most, but not all, of these items have the
+ *	      RDB$SYSTEM flag set to 1.
+ *
+ */
+
+define database "ods_91.gdb"
+	page_size 1024;
+
+
+/*	Global Field Definitions	*/
+
+define field RDB$ACL blob segment_length 80 sub_type ACL;
+define field RDB$BOUND long;
+define field RDB$CHARACTER_SET_ID short;
+define field RDB$CHARACTER_SET_NAME char [31] sub_type 3;
+define field RDB$COLLATION_ID short;
+define field RDB$COLLATION_NAME char [31] sub_type 3;
+define field RDB$CONSTRAINT_NAME char [31] sub_type 3;
+define field RDB$CONSTRAINT_TYPE char [11];
+define field RDB$CONTEXT_NAME char [31] sub_type 3;
+define field RDB$DBKEY_LENGTH short;
+define field RDB$DEFERRABLE char [3];
+define field RDB$DESCRIPTION blob segment_length 80 sub_type text;
+define field RDB$DESCRIPTOR blob segment_length 80 sub_type 6;
+define field RDB$DIMENSION short;
+define field RDB$DIMENSIONS short;
+define field RDB$EDIT_STRING varying [125];
+define field RDB$EXCEPTION_NAME char [31] sub_type 3;
+define field RDB$EXCEPTION_NUMBER long;
+define field RDB$EXTERNAL_DESCRIPTION blob segment_length 80 sub_type 8;
+define field RDB$EXTERNAL_NAME char [31];
+define field RDB$FIELD_ID short;
+define field RDB$FIELD_LENGTH short;
+define field RDB$FIELD_NAME char [31] sub_type 3;
+define field RDB$FIELD_POSITION short;
+define field RDB$FIELD_SCALE short;
+define field RDB$FIELD_SUB_TYPE short;
+define field RDB$FIELD_TYPE short;
+define field RDB$FILE_FLAGS short;
+define field RDB$FILE_LENGTH long;
+define field RDB$FILE_NAME varying [253];
+define field RDB$FILE_PARTITIONS short;
+define field RDB$FILE_P_OFFSET long;
+define field RDB$FILE_SEQUENCE short;
+define field RDB$FILE_START long;
+define field RDB$FORMAT short;
+define field RDB$FUNCTION_NAME char [31] sub_type 3;
+define field RDB$FUNCTION_TYPE short;
+define field RDB$GENERATOR_ID short;
+define field RDB$GENERATOR_NAME char [31] sub_type 3;
+define field RDB$GENERIC_NAME char [31] sub_type 3;
+define field RDB$GENERIC_TYPE short;
+define field RDB$INDEX_ID short;
+define field RDB$INDEX_NAME char [31] sub_type 3;
+define field RDB$MATCH_OPTION char [7];
+define field RDB$MECHANISM short;
+define field RDB$MESSAGE varying [78];
+define field RDB$MESSAGE_NUMBER short;
+define field RDB$NULL_FLAG short;
+define field RDB$NUMBER_OF_CHARACTERS long;
+define field RDB$OBJECT_TYPE short;
+define field RDB$PAGE_NUMBER long;
+define field RDB$PAGE_SEQUENCE long;
+define field RDB$PAGE_TYPE short;
+define field RDB$PARAMETER_NAME char [31] sub_type 3;
+define field RDB$PARAMETER_NUMBER short;
+define field RDB$PARAMETER_TYPE short;
+define field RDB$PRIVILEGE char [6];
+define field RDB$PROCEDURE_BLR blob segment_length 80 sub_type BLR;
+define field RDB$PROCEDURE_ID short;
+define field RDB$PROCEDURE_NAME char [31] sub_type 3;
+define field RDB$PROCEDURE_PARAMETERS short;
+define field RDB$QUERY_HEADER blob segment_length 80 sub_type text;
+define field RDB$RELATION_ID short;
+define field RDB$RELATION_NAME char [31] sub_type 3;
+define field RDB$RULE char [11];
+define field RDB$RUNTIME blob segment_length 80 sub_type 5;
+define field RDB$SECURITY_CLASS char [31] sub_type 3;
+define field RDB$SEGMENT_COUNT short;
+define field RDB$SEGMENT_LENGTH short;
+define field RDB$SHADOW_NUMBER short;
+define field RDB$SOURCE blob segment_length 80 sub_type text;
+define field RDB$STATISTICS double;
+define field RDB$SYSTEM_FLAG short;
+define field RDB$TIMESTAMP date;
+define field RDB$TRANSACTION_DESCRIPTION blob segment_length 80 sub_type 7;
+define field RDB$TRANSACTION_ID long;
+define field RDB$TRANSACTION_STATE short;
+define field RDB$TRIGGER_BLR blob segment_length 80 sub_type BLR;
+define field RDB$TRIGGER_NAME char [31] sub_type 3;
+define field RDB$TRIGGER_SEQUENCE short;
+define field RDB$TRIGGER_TYPE short;
+define field RDB$TYPE_NAME char [31] sub_type 3;
+define field RDB$USER char [31] sub_type 3;
+define field RDB$VALIDATION_BLR blob segment_length 80 sub_type BLR;
+define field RDB$VALUE blob segment_length 80 sub_type BLR;
+define field RDB$VIEW_BLR blob segment_length 80 sub_type BLR;
+define field RDB$VIEW_CONTEXT short;
+
+
+/*	Relation Definitions	*/
+
+
+define relation RDB$CHARACTER_SETS
+    RDB$CHARACTER_SET_NAME	position 0,
+    RDB$FORM_OF_USE based on RDB$GENERIC_NAME	position 1,
+    RDB$NUMBER_OF_CHARACTERS	position 2,
+    RDB$DEFAULT_COLLATE_NAME based on RDB$COLLATION_NAME	position 3,
+    RDB$CHARACTER_SET_ID	position 4,
+    RDB$SYSTEM_FLAG	position 5,
+    RDB$DESCRIPTION	position 6,
+    RDB$FUNCTION_NAME	position 7,
+    RDB$BYTES_PER_CHARACTER based on RDB$FIELD_LENGTH	position 8;
+
+define relation RDB$CHECK_CONSTRAINTS
+    RDB$CONSTRAINT_NAME	position 0,
+    RDB$TRIGGER_NAME	position 1;
+
+define relation RDB$COLLATIONS
+    RDB$COLLATION_NAME	position 0,
+    RDB$COLLATION_ID	position 1,
+    RDB$CHARACTER_SET_ID	position 2,
+    RDB$COLLATION_ATTRIBUTES based on RDB$GENERIC_TYPE	position 3,
+    RDB$SYSTEM_FLAG	position 4,
+    RDB$DESCRIPTION	position 5,
+    RDB$FUNCTION_NAME	position 6;
+
+define relation RDB$DATABASE
+    RDB$DESCRIPTION	position 0,
+    RDB$RELATION_ID	position 1,
+    RDB$SECURITY_CLASS	position 2,
+    RDB$CHARACTER_SET_NAME	position 3;
+
+define relation RDB$DEPENDENCIES
+    RDB$DEPENDENT_NAME based on RDB$GENERIC_NAME	position 0,
+    RDB$DEPENDED_ON_NAME based on RDB$GENERIC_NAME	position 1,
+    RDB$FIELD_NAME	position 2,
+    RDB$DEPENDENT_TYPE based on RDB$OBJECT_TYPE	position 3,
+    RDB$DEPENDED_ON_TYPE based on RDB$OBJECT_TYPE	position 4;
+
+define relation RDB$EXCEPTIONS
+    RDB$EXCEPTION_NAME	position 0,
+    RDB$EXCEPTION_NUMBER	position 1,
+    RDB$MESSAGE	position 2,
+    RDB$DESCRIPTION	position 3,
+    RDB$SYSTEM_FLAG	position 4;
+
+define relation RDB$FIELDS
+    RDB$FIELD_NAME	position 0,
+    RDB$QUERY_NAME based on RDB$FIELD_NAME	position 1,
+    RDB$VALIDATION_BLR	position 2,
+    RDB$VALIDATION_SOURCE based on RDB$SOURCE	position 3,
+    RDB$COMPUTED_BLR based on RDB$VALUE	position 4,
+    RDB$COMPUTED_SOURCE based on RDB$SOURCE	position 5,
+    RDB$DEFAULT_VALUE based on RDB$VALUE	position 6,
+    RDB$DEFAULT_SOURCE based on RDB$SOURCE	position 7,
+    RDB$FIELD_LENGTH	position 8,
+    RDB$FIELD_SCALE	position 9,
+    RDB$FIELD_TYPE	position 10,
+    RDB$FIELD_SUB_TYPE	position 11,
+    RDB$MISSING_VALUE based on RDB$VALUE	position 12,
+    RDB$MISSING_SOURCE based on RDB$SOURCE	position 13,
+    RDB$DESCRIPTION	position 14,
+    RDB$SYSTEM_FLAG	position 15,
+    RDB$QUERY_HEADER	position 16,
+    RDB$SEGMENT_LENGTH	position 17,
+    RDB$EDIT_STRING	position 18,
+    RDB$EXTERNAL_LENGTH based on RDB$FIELD_LENGTH	position 19,
+    RDB$EXTERNAL_SCALE based on RDB$FIELD_SCALE	position 20,
+    RDB$EXTERNAL_TYPE based on RDB$FIELD_TYPE	position 21,
+    RDB$DIMENSIONS	position 22,
+    RDB$NULL_FLAG	position 23,
+    RDB$CHARACTER_LENGTH based on RDB$FIELD_LENGTH	position 24,
+    RDB$COLLATION_ID	position 25,
+    RDB$CHARACTER_SET_ID	position 26;
+
+define relation RDB$FIELD_DIMENSIONS
+    RDB$FIELD_NAME	position 0,
+    RDB$DIMENSION	position 1,
+    RDB$LOWER_BOUND based on RDB$BOUND	position 2,
+    RDB$UPPER_BOUND based on RDB$BOUND	position 3;
+
+define relation RDB$FILES
+    RDB$FILE_NAME	position 0,
+    RDB$FILE_SEQUENCE	position 1,
+    RDB$FILE_START	position 2,
+    RDB$FILE_LENGTH	position 3,
+    RDB$FILE_FLAGS	position 4,
+    RDB$SHADOW_NUMBER	position 5;
+
+define relation RDB$FILTERS
+    RDB$FUNCTION_NAME	position 0,
+    RDB$DESCRIPTION	position 1,
+    RDB$MODULE_NAME based on RDB$FILE_NAME	position 2,
+    RDB$ENTRYPOINT based on RDB$EXTERNAL_NAME	position 3,
+    RDB$INPUT_SUB_TYPE based on RDB$FIELD_SUB_TYPE	position 4,
+    RDB$OUTPUT_SUB_TYPE based on RDB$FIELD_SUB_TYPE	position 5,
+    RDB$SYSTEM_FLAG	position 6;
+
+define relation RDB$FORMATS
+    RDB$RELATION_ID	position 0,
+    RDB$FORMAT	position 1,
+    RDB$DESCRIPTOR	position 2;
+
+define relation RDB$FUNCTIONS
+    RDB$FUNCTION_NAME	position 0,
+    RDB$FUNCTION_TYPE	position 1,
+    RDB$QUERY_NAME based on RDB$FIELD_NAME	position 2,
+    RDB$DESCRIPTION	position 3,
+    RDB$MODULE_NAME based on RDB$FILE_NAME	position 4,
+    RDB$ENTRYPOINT based on RDB$EXTERNAL_NAME	position 5,
+    RDB$RETURN_ARGUMENT based on RDB$FIELD_POSITION	position 6,
+    RDB$SYSTEM_FLAG	position 7;
+
+define relation RDB$FUNCTION_ARGUMENTS
+    RDB$FUNCTION_NAME	position 0,
+    RDB$ARGUMENT_POSITION based on RDB$FIELD_POSITION	position 1,
+    RDB$MECHANISM	position 2,
+    RDB$FIELD_TYPE	position 3,
+    RDB$FIELD_SCALE	position 4,
+    RDB$FIELD_LENGTH	position 5,
+    RDB$FIELD_SUB_TYPE	position 6,
+    RDB$CHARACTER_SET_ID	position 7;
+
+define relation RDB$GENERATORS
+    RDB$GENERATOR_NAME	position 0,
+    RDB$GENERATOR_ID	position 1,
+    RDB$SYSTEM_FLAG	position 2;
+
+define relation RDB$INDEX_SEGMENTS
+    RDB$INDEX_NAME	position 0,
+    RDB$FIELD_NAME	position 1,
+    RDB$FIELD_POSITION	position 2;
+
+define relation RDB$INDICES
+    RDB$INDEX_NAME	position 0,
+    RDB$RELATION_NAME	position 1,
+    RDB$INDEX_ID	position 2,
+    RDB$UNIQUE_FLAG based on RDB$SYSTEM_FLAG	position 3,
+    RDB$DESCRIPTION	position 4,
+    RDB$SEGMENT_COUNT	position 5,
+    RDB$INDEX_INACTIVE based on RDB$SYSTEM_FLAG	position 6,
+    RDB$INDEX_TYPE based on RDB$SYSTEM_FLAG	position 7,
+    RDB$FOREIGN_KEY based on RDB$RELATION_NAME	position 8,
+    RDB$SYSTEM_FLAG	position 9,
+    RDB$EXPRESSION_BLR based on RDB$VALUE	position 10,
+    RDB$EXPRESSION_SOURCE based on RDB$SOURCE	position 11,
+    RDB$STATISTICS	position 12;
+
+define relation RDB$LOG_FILES
+    RDB$FILE_NAME	position 0,
+    RDB$FILE_SEQUENCE	position 1,
+    RDB$FILE_LENGTH	position 2,
+    RDB$FILE_PARTITIONS	position 3,
+    RDB$FILE_P_OFFSET	position 4,
+    RDB$FILE_FLAGS	position 5;
+
+define relation RDB$PAGES
+    RDB$PAGE_NUMBER	position 0,
+    RDB$RELATION_ID	position 1,
+    RDB$PAGE_SEQUENCE	position 2,
+    RDB$PAGE_TYPE	position 3;
+
+define relation RDB$PROCEDURES
+    RDB$PROCEDURE_NAME	position 0,
+    RDB$PROCEDURE_ID	position 1,
+    RDB$PROCEDURE_INPUTS based on RDB$PROCEDURE_PARAMETERS	position 2,
+    RDB$PROCEDURE_OUTPUTS based on RDB$PROCEDURE_PARAMETERS	position 3,
+    RDB$DESCRIPTION	position 4,
+    RDB$PROCEDURE_SOURCE based on RDB$SOURCE	position 5,
+    RDB$PROCEDURE_BLR	position 6,
+    RDB$SECURITY_CLASS	position 7,
+    RDB$OWNER_NAME based on RDB$USER	position 8,
+    RDB$RUNTIME	position 9,
+    RDB$SYSTEM_FLAG	position 10;
+
+define relation RDB$PROCEDURE_PARAMETERS
+    RDB$PARAMETER_NAME	position 0,
+    RDB$PROCEDURE_NAME	position 1,
+    RDB$PARAMETER_NUMBER	position 2,
+    RDB$PARAMETER_TYPE	position 3,
+    RDB$FIELD_SOURCE based on RDB$FIELD_NAME	position 4,
+    RDB$DESCRIPTION	position 5,
+    RDB$SYSTEM_FLAG	position 6;
+
+define relation RDB$REF_CONSTRAINTS
+    RDB$CONSTRAINT_NAME	position 0,
+    RDB$CONST_NAME_UQ based on RDB$CONSTRAINT_NAME	position 1,
+    RDB$MATCH_OPTION	position 2,
+    RDB$UPDATE_RULE based on RDB$RULE	position 3,
+    RDB$DELETE_RULE based on RDB$RULE	position 4;
+
+define relation RDB$RELATIONS
+    RDB$VIEW_BLR	position 0,
+    RDB$VIEW_SOURCE based on RDB$SOURCE	position 1,
+    RDB$DESCRIPTION	position 2,
+    RDB$RELATION_ID	position 3,
+    RDB$SYSTEM_FLAG	position 4,
+    RDB$DBKEY_LENGTH	position 5,
+    RDB$FORMAT	position 6,
+    RDB$FIELD_ID	position 7,
+    RDB$RELATION_NAME	position 8,
+    RDB$SECURITY_CLASS	position 9,
+    RDB$EXTERNAL_FILE based on RDB$FILE_NAME	position 10,
+    RDB$RUNTIME	position 11,
+    RDB$EXTERNAL_DESCRIPTION	position 12,
+    RDB$OWNER_NAME based on RDB$USER	position 13,
+    RDB$DEFAULT_CLASS based on RDB$SECURITY_CLASS	position 14,
+    RDB$FLAGS based on RDB$SYSTEM_FLAG	position 15;
+
+define relation RDB$RELATION_CONSTRAINTS
+    RDB$CONSTRAINT_NAME	position 0,
+    RDB$CONSTRAINT_TYPE	position 1,
+    RDB$RELATION_NAME	position 2,
+    RDB$DEFERRABLE	position 3,
+    RDB$INITIALLY_DEFERRED based on RDB$DEFERRABLE	position 4,
+    RDB$INDEX_NAME	position 5;
+
+define relation RDB$RELATION_FIELDS
+    RDB$FIELD_NAME	position 0,
+    RDB$RELATION_NAME	position 1,
+    RDB$FIELD_SOURCE based on RDB$FIELD_NAME	position 2,
+    RDB$QUERY_NAME based on RDB$FIELD_NAME	position 3,
+    RDB$BASE_FIELD based on RDB$FIELD_NAME	position 4,
+    RDB$EDIT_STRING	position 5,
+    RDB$FIELD_POSITION	position 6,
+    RDB$QUERY_HEADER	position 7,
+    RDB$UPDATE_FLAG based on RDB$SYSTEM_FLAG	position 8,
+    RDB$FIELD_ID	position 9,
+    RDB$VIEW_CONTEXT	position 10,
+    RDB$DESCRIPTION	position 11,
+    RDB$DEFAULT_VALUE based on RDB$VALUE	position 12,
+    RDB$SYSTEM_FLAG	position 13,
+    RDB$SECURITY_CLASS	position 14,
+    RDB$COMPLEX_NAME based on RDB$FIELD_NAME	position 15,
+    RDB$NULL_FLAG	position 16,
+    RDB$DEFAULT_SOURCE based on RDB$SOURCE	position 17,
+    RDB$COLLATION_ID	position 18;
+
+define relation RDB$ROLES
+    RDB$ROLE_NAME based on RDB$USER	position 0,
+    RDB$OWNER_NAME based on RDB$USER	position 1;
+
+define relation RDB$SECURITY_CLASSES
+    RDB$SECURITY_CLASS	position 0,
+    RDB$ACL	position 1,
+    RDB$DESCRIPTION	position 2;
+
+define relation RDB$TRANSACTIONS
+    RDB$TRANSACTION_ID	position 0,
+    RDB$TRANSACTION_STATE	position 1,
+    RDB$TIMESTAMP	position 2,
+    RDB$TRANSACTION_DESCRIPTION	position 3;
+
+define relation RDB$TRIGGERS
+    RDB$TRIGGER_NAME	position 0,
+    RDB$RELATION_NAME	position 1,
+    RDB$TRIGGER_SEQUENCE	position 2,
+    RDB$TRIGGER_TYPE	position 3,
+    RDB$TRIGGER_SOURCE based on RDB$SOURCE	position 4,
+    RDB$TRIGGER_BLR	position 5,
+    RDB$DESCRIPTION	position 6,
+    RDB$TRIGGER_INACTIVE based on RDB$SYSTEM_FLAG	position 7,
+    RDB$SYSTEM_FLAG	position 8,
+    RDB$FLAGS based on RDB$SYSTEM_FLAG	position 9;
+
+define relation RDB$TRIGGER_MESSAGES
+    RDB$TRIGGER_NAME	position 0,
+    RDB$MESSAGE_NUMBER	position 1,
+    RDB$MESSAGE	position 2;
+
+define relation RDB$TYPES
+    RDB$FIELD_NAME	position 0,
+    RDB$TYPE based on RDB$GENERIC_TYPE	position 1,
+    RDB$TYPE_NAME	position 2,
+    RDB$DESCRIPTION	position 3,
+    RDB$SYSTEM_FLAG	position 4;
+
+define relation RDB$USER_PRIVILEGES
+    RDB$USER	position 0,
+    RDB$GRANTOR based on RDB$USER	position 1,
+    RDB$PRIVILEGE	position 2,
+    RDB$GRANT_OPTION based on RDB$SYSTEM_FLAG	position 3,
+    RDB$RELATION_NAME based on RDB$GENERIC_NAME	position 4,
+    RDB$FIELD_NAME	position 5,
+    RDB$USER_TYPE based on RDB$OBJECT_TYPE	position 6,
+    RDB$OBJECT_TYPE	position 7;
+
+define relation RDB$VIEW_RELATIONS
+    RDB$VIEW_NAME based on RDB$RELATION_NAME	position 0,
+    RDB$RELATION_NAME	position 1,
+    RDB$VIEW_CONTEXT	position 2,
+    RDB$CONTEXT_NAME	position 3;
+
+
+/*	Index Definitions	*/
+
+
+define index RDB$INDEX_19 for RDB$CHARACTER_SETS unique
+	RDB$CHARACTER_SET_NAME;
+
+define index RDB$INDEX_25 for RDB$CHARACTER_SETS unique
+	RDB$CHARACTER_SET_ID;
+
+define index RDB$INDEX_14 for RDB$CHECK_CONSTRAINTS 
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_40 for RDB$CHECK_CONSTRAINTS 
+	RDB$TRIGGER_NAME;
+
+define index RDB$INDEX_20 for RDB$COLLATIONS unique
+	RDB$COLLATION_NAME;
+
+define index RDB$INDEX_26 for RDB$COLLATIONS unique
+	RDB$COLLATION_ID,
+	RDB$CHARACTER_SET_ID;
+
+define index RDB$INDEX_27 for RDB$DEPENDENCIES 
+	RDB$DEPENDENT_NAME;
+
+define index RDB$INDEX_28 for RDB$DEPENDENCIES 
+	RDB$DEPENDED_ON_NAME;
+
+define index RDB$INDEX_23 for RDB$EXCEPTIONS unique
+	RDB$EXCEPTION_NAME;
+
+define index RDB$INDEX_24 for RDB$EXCEPTIONS 
+	RDB$EXCEPTION_NUMBER;
+
+define index RDB$INDEX_2 for RDB$FIELDS unique
+	RDB$FIELD_NAME;
+
+define index RDB$INDEX_36 for RDB$FIELD_DIMENSIONS 
+	RDB$FIELD_NAME;
+
+define index RDB$INDEX_17 for RDB$FILTERS 
+	RDB$INPUT_SUB_TYPE,
+	RDB$OUTPUT_SUB_TYPE;
+
+define index RDB$INDEX_16 for RDB$FORMATS 
+	RDB$RELATION_ID,
+	RDB$FORMAT;
+
+define index RDB$INDEX_9 for RDB$FUNCTIONS unique
+	RDB$FUNCTION_NAME;
+
+define index RDB$INDEX_10 for RDB$FUNCTION_ARGUMENTS 
+	RDB$FUNCTION_NAME;
+
+define index RDB$INDEX_11 for RDB$GENERATORS unique
+	RDB$GENERATOR_NAME;
+
+define index RDB$INDEX_6 for RDB$INDEX_SEGMENTS 
+	RDB$INDEX_NAME;
+
+define index RDB$INDEX_31 for RDB$INDICES 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_5 for RDB$INDICES unique
+	RDB$INDEX_NAME;
+
+define index RDB$INDEX_21 for RDB$PROCEDURES unique
+	RDB$PROCEDURE_NAME;
+
+define index RDB$INDEX_22 for RDB$PROCEDURES 
+	RDB$PROCEDURE_ID;
+
+define index RDB$INDEX_18 for RDB$PROCEDURE_PARAMETERS unique
+	RDB$PROCEDURE_NAME,
+	RDB$PARAMETER_NAME;
+
+define index RDB$INDEX_13 for RDB$REF_CONSTRAINTS unique
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_0 for RDB$RELATIONS unique
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_1 for RDB$RELATIONS 
+	RDB$RELATION_ID;
+
+define index RDB$INDEX_12 for RDB$RELATION_CONSTRAINTS unique
+	RDB$CONSTRAINT_NAME;
+
+define index RDB$INDEX_15 for RDB$RELATION_FIELDS unique
+	RDB$FIELD_NAME,
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_3 for RDB$RELATION_FIELDS 
+	RDB$FIELD_SOURCE;
+
+define index RDB$INDEX_4 for RDB$RELATION_FIELDS 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_39 for RDB$ROLES unique
+	RDB$ROLE_NAME;
+
+define index RDB$INDEX_7 for RDB$SECURITY_CLASSES unique
+	RDB$SECURITY_CLASS;
+
+define index RDB$INDEX_32 for RDB$TRANSACTIONS unique
+	RDB$TRANSACTION_ID;
+
+define index RDB$INDEX_38 for RDB$TRIGGERS 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_8 for RDB$TRIGGERS unique
+	RDB$TRIGGER_NAME;
+
+define index RDB$INDEX_35 for RDB$TRIGGER_MESSAGES 
+	RDB$TRIGGER_NAME;
+
+define index RDB$INDEX_37 for RDB$TYPES 
+	RDB$TYPE_NAME;
+
+define index RDB$INDEX_29 for RDB$USER_PRIVILEGES 
+	RDB$RELATION_NAME;
+
+define index RDB$INDEX_30 for RDB$USER_PRIVILEGES 
+	RDB$USER;
+
+define index RDB$INDEX_33 for RDB$VIEW_RELATIONS 
+	RDB$VIEW_NAME;
+
+define index RDB$INDEX_34 for RDB$VIEW_RELATIONS 
+	RDB$RELATION_NAME;
+
+/*	Add Security Classes to Defined Objects	*/
+
+
+
+modify relation RDB$ROLES
+	security_class SQL$RDB$ROLES;
+
+
+/*	Security Class Definitions / GRANT statements	*/
+
+
+grant SELECT on RDB$ROLES to PUBLIC;
+
+grant DELETE on RDB$ROLES to SYSDBA with grant option;
+
+grant INSERT on RDB$ROLES to SYSDBA with grant option;
+
+grant SELECT on RDB$ROLES to SYSDBA with grant option;
+
+grant UPDATE on RDB$ROLES to SYSDBA with grant option;
+
+
+/*	Generator Definitions	*/
+
+
+define generator RDB$CONSTRAINT_NAME;
+define generator RDB$EXCEPTIONS;
+define generator RDB$FIELD_NAME;
+define generator RDB$INDEX_NAME;
+define generator RDB$PROCEDURES;
+define generator RDB$SECURITY_CLASS;
+define generator RDB$TRIGGER_NAME;
+define generator SQL$DEFAULT;
+
+/*	Trigger Definitions	*/
+
+
+
+define trigger RDB$TRIGGER_1 for RDB$USER_PRIVILEGES
+	pre modify 0:
+
+	end_trigger 
+	message  0:  'existing_priv_mod                                                             ';
+
+define trigger RDB$TRIGGER_10 for RDB$RELATION_CONSTRAINTS
+	pre erase 0:
+
+	end_trigger 
+	message  1:  'primary_key_ref                                                               ',
+	message  2:  'primary_key_notnull                                                           ';
+
+define trigger RDB$TRIGGER_11 for RDB$RELATION_CONSTRAINTS
+	post erase 0:
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_12 for RDB$REF_CONSTRAINTS
+	pre store 0:
+
+	end_trigger 
+	message  1:  'ref_cnstrnt_notfound                                                          ',
+	message  2:  'foreign_key_notfound                                                          ';
+
+define trigger RDB$TRIGGER_13 for RDB$REF_CONSTRAINTS
+	pre modify 0:
+
+	end_trigger 
+	message  1:  'ref_cnstrnt_update                                                            ';
+
+define trigger RDB$TRIGGER_14 for RDB$CHECK_CONSTRAINTS
+	pre modify 0:
+
+	end_trigger 
+	message  1:  'check_cnstrnt_update                                                          ';
+
+define trigger RDB$TRIGGER_15 for RDB$CHECK_CONSTRAINTS
+	pre erase 0:
+
+	end_trigger 
+	message  1:  'check_cnstrnt_del                                                             ';
+
+define trigger RDB$TRIGGER_16 for RDB$CHECK_CONSTRAINTS
+	post erase 0:
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_17 for RDB$INDEX_SEGMENTS
+	pre erase 0:
+
+	end_trigger 
+	message  1:  'integ_index_seg_del                                                           ';
+
+define trigger RDB$TRIGGER_18 for RDB$INDEX_SEGMENTS
+	pre modify 0:
+
+	end_trigger 
+	message  1:  'integ_index_seg_mod                                                           ';
+
+define trigger RDB$TRIGGER_19 for RDB$INDICES
+	pre erase 0:
+
+	end_trigger 
+	message  1:  'integ_index_del                                                               ';
+
+define trigger RDB$TRIGGER_2 for RDB$TRIGGERS
+	pre modify 0:
+
+	end_trigger 
+	message  0:  'systrig_update                                                                ';
+
+define trigger RDB$TRIGGER_20 for RDB$INDICES
+	pre modify 0:
+
+	end_trigger 
+	message  1:  'integ_index_mod                                                               ',
+	message  2:  'integ_index_deactivate                                                        ',
+	message  3:  'integ_deactivate_primary                                                      ';
+
+define trigger RDB$TRIGGER_21 for RDB$TRIGGERS
+	pre erase 0:
+
+	end_trigger 
+	message  1:  'check_trig_del                                                                ';
+
+define trigger RDB$TRIGGER_22 for RDB$TRIGGERS
+	pre modify 0:
+
+	end_trigger 
+	message  1:  'check_trig_update                                                             ';
+
+define trigger RDB$TRIGGER_23 for RDB$RELATION_FIELDS
+	pre erase 0:
+
+	end_trigger 
+	message  1:  'cnstrnt_fld_del                                                               ';
+
+define trigger RDB$TRIGGER_24 for RDB$RELATION_FIELDS
+	pre modify 0:
+
+	end_trigger 
+	message  1:  'cnstrnt_fld_rename                                                            ';
+
+define trigger RDB$TRIGGER_25 for RDB$RELATION_CONSTRAINTS
+	pre modify 0:
+
+	end_trigger 
+	message  1:  'rel_cnstrnt_update                                                            ';
+
+define trigger RDB$TRIGGER_26 for RDB$RELATION_CONSTRAINTS
+	pre store 0:
+
+	end_trigger 
+	message  1:  'constaint_on_view                                                             ',
+	message  2:  'invld_cnstrnt_type                                                            ',
+	message  3:  'primary_key_exists                                                            ';
+
+define trigger RDB$TRIGGER_27 for RDB$RELATION_FIELDS
+	post erase 0:
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_28 for RDB$PROCEDURES
+	pre store 0:
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_29 for RDB$PROCEDURES
+	pre modify 0:
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_3 for RDB$TRIGGERS
+	pre erase 0:
+
+	end_trigger 
+	message  0:  'systrig_update                                                                ';
+
+define trigger RDB$TRIGGER_30 for RDB$EXCEPTIONS
+	pre store 0:
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_31 for RDB$USER_PRIVILEGES
+	pre modify 0:
+
+	end_trigger 
+	message  0:  'no_write_user_priv                                                            ';
+
+define trigger RDB$TRIGGER_32 for RDB$USER_PRIVILEGES
+	pre erase 0:
+
+	end_trigger 
+	message  0:  'no_write_user_priv                                                            ';
+
+define trigger RDB$TRIGGER_33 for RDB$USER_PRIVILEGES
+	pre store 0:
+
+	end_trigger 
+	message  0:  'no_write_user_priv                                                            ';
+
+define trigger RDB$TRIGGER_34 for RDB$RELATION_CONSTRAINTS
+	post erase 0:
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_35 for RDB$CHECK_CONSTRAINTS
+	post erase 0:
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_4 for RDB$RELATIONS
+	pre store 0:
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_5 for RDB$RELATIONS
+	pre modify 0:
+
+	end_trigger 
+	message  0:  'not_rel_owner                                                                 ';
+
+define trigger RDB$TRIGGER_6 for RDB$GENERATORS
+	pre store 0:
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_8 for RDB$USER_PRIVILEGES
+	pre erase 0:
+
+	end_trigger;
+
+define trigger RDB$TRIGGER_9 for RDB$USER_PRIVILEGES
+	pre store 0:
+
+	end_trigger 
+	message  0:  'grant_obj_notfound                                                            ',
+	message  1:  'grant_fld_notfound                                                            ',
+	message  2:  'grant_nopriv                                                                  ',
+	message  3:  'nonsql_security_rel                                                           ',
+	message  4:  'nonsql_security_fld                                                           ',
+	message  5:  'grant_nopriv_on_base                                                          ';
diff --git a/src/jrd/old.cpp b/src/jrd/old.cpp
new file mode 100644
index 0000000000..f222dbbcc6
--- /dev/null
+++ b/src/jrd/old.cpp
@@ -0,0 +1,786 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		old.c
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/common.h"
+#include "../jrd/jrd.h"
+#include "../jrd/pio.h"
+#include "../jrd/ods.h"
+#include "../jrd/pag.h"
+#include "../jrd/jrn.h"
+#include "../jrd/old.h"
+#include "../jrd/llio.h"
+#include "../jrd/codes.h"
+#include "../wal/wal.h"
+#include "../jrd/ail.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/jrn_proto.h"
+#include "../jrd/llio_proto.h"
+#include "../jrd/misc_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/old_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/thd_proto.h"
+
+static int close_cur_file(OLD, USHORT);
+static int create_file(OLD, SLONG *);
+static void get_wal_offset(USHORT, ULONG *, ULONG *, USHORT);
+static SLONG old_dump_all_pages(OLD, PIP, SLONG, ULONG);
+static int old_dump_page(OLD, ULONG);
+static void old_fini(OLD *, USHORT);
+static int old_init(OLD *, SCHAR *, USHORT, SSHORT, SCHAR **, ULONG, ULONG,
+					SSHORT, SSHORT, ULONG, ULONG, ULONG);
+static int old_put(OLD, SCHAR *, USHORT);
+static void old_put_db_filename(OLD);
+static int old_put_rec(OLD, JRNH *, USHORT, UCHAR *, USHORT);
+static int open_next_file(OLD);
+
+
+int OLD_dump(
+			 TEXT * dbname,
+			 USHORT db_len,
+			 USHORT dump_id,
+			 ULONG file_size,
+			 ULONG start_page,
+ULONG start_seqno, USHORT start_file, USHORT num_files, SCHAR ** files)
+{
+/**************************************
+ *
+ *	O L D _ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do an online dump of the database.
+ *	RETURNS:
+ *		Success.
+ *		error conditions
+ *		Full disk - page number on which error occured.
+ *			    Other relevent info to pick up where it leaves off.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	WIN window;
+	PGC pgc;
+	UCHAR byte;
+	SLONG sequence;
+	ULONG seqno;
+	ULONG offset;
+	ULONG p_offset;
+	OLD OLD_handle;
+	PIP page;
+	SLONG last_page;
+	PIP temp_page;
+	TEXT db[MAX_PATH_LENGTH];
+	SSHORT file_seqno;
+	SLONG block_seqno;
+	SCHAR journal_dir[MAX_PATH_LENGTH], data[MAX_PATH_LENGTH];
+	SSHORT jd_len, d_len;
+	SLONG ret_val;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	PAG_get_clump(HEADER_PAGE, HDR_backup_info,
+				  reinterpret_cast < USHORT * >(&d_len),
+				  reinterpret_cast < UCHAR * >(data));
+	PAG_get_clump(HEADER_PAGE, HDR_journal_server,
+				  reinterpret_cast < USHORT * >(&jd_len),
+				  reinterpret_cast < UCHAR * >(journal_dir));
+	journal_dir[jd_len] = 0;
+
+	if (!jd_len)
+		ERR_post(gds__jrn_enable, 0);
+
+	if ((ret_val = JRN_init(tdbb->tdbb_status_vector,
+							&dbb->dbb_journal,
+							dbb->dbb_page_size,
+							reinterpret_cast < UCHAR * >(journal_dir),
+							jd_len,
+							reinterpret_cast < UCHAR * >(data),
+							d_len)) != SUCCESS)
+			AIL_process_jrn_error(ret_val);
+
+	if (db_len) {
+		MOVE_FAST(dbname, db, db_len);
+		db[db_len] = 0;
+	}
+	else
+		strcpy(db, dbname);
+
+	seqno = offset = p_offset = 0;
+
+	if (!start_page) {
+		p_offset = 0;
+		dump_id = 0;
+
+		/* First time around, send message to journal server */
+
+		get_wal_offset(dump_id, &seqno, &offset, JRN_START_ONLINE_DMP);
+
+		/* 
+		 * Journal the Start Online Dump info to journal server.
+		 * This will return the dump id of this online dump.
+		 */
+
+		if ((ret_val = JRN_put_old_start(tdbb->tdbb_status_vector,
+										 dbb->dbb_journal, seqno, offset,
+										 p_offset, &dump_id)) != SUCCESS)
+			AIL_process_jrn_error(ret_val);
+	}
+
+/* If file size is not specified, go for the maximum possible */
+
+	if (!file_size)
+		file_size = -1;
+
+	OLD_handle = NULL;
+
+	if (old_init(&OLD_handle,
+				 db, dump_id,
+				 num_files, files, file_size,
+				 start_seqno, start_file,
+				 JRND_SIZE + dbb->dbb_page_size, seqno, offset, p_offset)) {
+		old_fini(&OLD_handle, 0);
+		ERR_post(gds__old_failure, gds_arg_string,
+				 "Online Dump Initialize failed", 0);
+	}
+
+/* put all secondary database file names to OLD file */
+
+	if (!start_page)
+		old_put_db_filename(OLD_handle);
+
+/* dump all 'in use' pages in database.  */
+
+	temp_page = (PIP) ALL_malloc(dbb->dbb_page_size, ERR_jmp);
+
+	pgc = dbb->dbb_pcontrol;
+
+	for (sequence = 0;; sequence++) {
+		window.win_page = (sequence) ? (SLONG) (sequence * pgc->pgc_ppp - 1) :
+			(SLONG) pgc->pgc_pip;
+		window.win_flags = 0;
+		page = (PIP) CCH_FETCH(NULL_TDBB, &window, LCK_read, pag_pages);
+		MOVE_FAST((UCHAR *) page, (UCHAR *) temp_page, dbb->dbb_page_size);
+		CCH_RELEASE(NULL_TDBB, &window);
+
+		if (start_page < ((sequence + 1) * pgc->pgc_ppp)) {
+			last_page = old_dump_all_pages(OLD_handle, temp_page,
+										   sequence, start_page);
+			/* Check for error */
+			if (last_page)
+				break;
+		}
+
+		/* check if we are at end of database files */
+
+		byte = temp_page->pip_bits[pgc->pgc_bytes - 1];
+
+		/* 
+		 * When pages are allocated, the last page available on a PIP
+		 * is formatted as the next PIP.  A bit 1 represents a free page
+		 * and a bit 0 represents an allocated page.  Since PIP pages 
+		 * are never allocated, a free last bit on a PIP indicates that 
+		 * it is the last PIP for this database. 
+		 */
+
+		if (byte & 0x80)
+			break;
+	}
+
+	ALL_free(reinterpret_cast < char *>(temp_page));
+
+	if (last_page) {
+		file_seqno = OLD_handle->old_file_seqno;
+		block_seqno = OLD_handle->old_block->ob_cur_seqno;
+		old_fini(&OLD_handle, OLD_EOF);
+		ERR_post(gds__old_no_space,
+				 gds_arg_number, (SLONG) dump_id,
+				 gds_arg_number, (SLONG) last_page,
+				 gds_arg_number, (SLONG) block_seqno,
+				 gds_arg_number, (SLONG) file_seqno, 0);
+	}
+
+/* Add record to JOURNAL SERVER */
+
+	get_wal_offset(dump_id, &seqno, &offset, JRN_END_ONLINE_DMP);
+
+	if ((ret_val = JRN_put_old_end(tdbb->tdbb_status_vector, dbb->dbb_journal,
+								   seqno, offset, p_offset,
+								   dump_id)) !=
+		SUCCESS) AIL_process_jrn_error(ret_val);
+
+	old_fini(&OLD_handle, OLD_EOD);
+
+	return SUCCESS;
+}
+
+
+static int close_cur_file(OLD old, USHORT code)
+{
+/**************************************
+ *
+ *	c l o s e _ c u r _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Closes the current file with a code record at end
+ *	returns SUCCESS - if things work
+ *		FAILURE - close fails
+ *
+ **************************************/
+	TDBB tdbb;
+	OLD_HDR hdr;
+	OLDBLK ob;
+	SLONG len;
+
+	tdbb = GET_THREAD_DATA;
+	ob = old->old_block;
+	hdr = ob->ob_hdr;
+
+	hdr->oh_type = code;
+	hdr->oh_hdr_len = OLD_HDROVHD;
+	hdr->oh_seqno = 0;
+
+	if (LLIO_write(0, old->old_fd, 0, 0L, LLIO_SEEK_NONE,
+				   (UCHAR *) hdr, old->old_rec_size, &len) == FAILURE ||
+		len != old->old_rec_size)
+		return FAILURE;
+
+/* flush writes to disk and close file */
+
+	LLIO_sync(0, old->old_fd);
+
+	if (LLIO_close(tdbb->tdbb_status_vector, old->old_fd) == FAILURE)
+		ERR_punt();
+
+	old->old_fd = 0;
+	old->old_cur_size = 0;
+
+	return SUCCESS;
+}
+
+
+static int create_file(OLD old, SLONG * ret_fd)
+{
+/**************************************
+ *
+ *	c r e a t e _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open next file and write header & journal new name
+ *	returns SUCCESS - if things work
+ *		FAILURE - open fails 
+ *
+ **************************************/
+	TDBB tdbb;
+	SLONG fd;
+	SLONG len;
+	OLD_HDR hdr;
+	OLDBLK ob;
+	OLD_HDR_PAGE hp;
+	DBB dbb;
+
+	dbb = GET_DBB;
+	tdbb = GET_THREAD_DATA;
+
+	*ret_fd = -1;
+
+	ob = old->old_block;
+	hdr = ob->ob_hdr;
+
+	if (LLIO_open(tdbb->tdbb_status_vector, old->old_files[old->old_cur_file],
+				  LLIO_OPEN_NEW_RW, TRUE, &fd) == FAILURE)
+		ERR_punt();
+
+	MOVE_CLEAR((SCHAR *) hdr, OLD_HEADER_SIZE);
+
+	hdr->oh_type = OLD_HEADER;
+	hdr->oh_hdr_len = OLD_HEADER_SIZE;
+	hdr->oh_seqno = 0;
+
+	hp = (OLD_HDR_PAGE) hdr->oh_buf;
+	hp->hp_rec_size = old->old_rec_size;
+	hp->hp_dump_id = old->old_dump_id;
+	hp->hp_file_seqno = old->old_file_seqno;
+	hp->hp_start_block = ob->ob_cur_seqno;
+	hp->hp_file_size = old->old_file_size;
+	hp->hp_version = OLD_VERSION;
+	hp->hp_log_seqno = old->old_log_seqno;
+	hp->hp_log_offset = old->old_log_offset;
+	hp->hp_log_p_offset = old->old_log_p_offset;
+	hp->hp_db_page_size = dbb->dbb_page_size;
+	hp->hp_length = strlen(old->old_db);
+
+	MOVE_FAST(old->old_db, hp->hp_db, hp->hp_length);
+
+	if (LLIO_write(0, fd, 0, 0L, LLIO_SEEK_NONE,
+				   (UCHAR *) hdr, OLD_HEADER_SIZE, &len) == FAILURE ||
+		len != OLD_HEADER_SIZE) {
+		LLIO_close(0, fd);
+		unlink(old->old_files[old->old_cur_file]);
+		return FAILURE;
+	}
+
+	old->old_cur_size = OLD_HEADER_SIZE;
+
+	*ret_fd = fd;
+
+	return SUCCESS;
+}
+
+
+static void get_wal_offset(
+						   USHORT dump_id,
+						   ULONG * seqno, ULONG * offset, USHORT type)
+{
+/**************************************
+ *
+ *	g e t _ w a l _ o f f s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a record to WAL to get seqno offset pair
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	LTJW record;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = GET_DBB;
+
+	record.ltjw_header.jrnh_type = type;
+	record.ltjw_mode = 0;
+	record.ltjw_seqno = dump_id;
+	record.ltjw_offset = 0;
+	record.ltjw_count = 0;
+	record.ltjw_length = 0;
+
+	tdbb->tdbb_status_vector[1] = 0;
+
+	AIL_put(dbb, tdbb->tdbb_status_vector,
+			reinterpret_cast < jrnh * >(&record), LTJW_SIZE, 0, 0, 0, 0,
+			seqno, offset);
+
+	if (tdbb->tdbb_status_vector[1])
+		ERR_punt();
+}
+
+
+static SLONG old_dump_all_pages(
+								OLD OLD_handle,
+								PIP pages, SLONG sequence, ULONG start_page)
+{
+/**************************************
+ *
+ *	o l d _ d u m p _ a l l _ p a g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump all inuse pages in this PIP to WAL
+ *	Returns 	0	Everything is ok
+ *			next page to be dumped
+ *
+ **************************************/
+	DBB dbb;
+	PGC pgc;
+	UCHAR *end, *bytes, bit;
+	SSHORT i;
+	SLONG relative_bit;
+	ULONG page_num;
+
+	dbb = GET_DBB;
+
+	pgc = dbb->dbb_pcontrol;
+
+	end = (UCHAR *) pages + dbb->dbb_page_size;
+	for (bytes = pages->pip_bits; bytes < end; bytes++) {
+		for (i = 0, bit = 1; i < 8; i++, bit <<= 1)
+			if (!(bit & *bytes)) {
+				/* page is inuse, dump it */
+
+				relative_bit = ((bytes - pages->pip_bits) << 3) + i;
+				page_num = relative_bit + sequence * pgc->pgc_ppp;
+
+				/* skip forward till the start page */
+				if (page_num < start_page)
+					continue;
+				if (old_dump_page(OLD_handle, page_num))
+					return page_num;
+			}
+
+	}
+	return (0L);
+}
+
+
+static int old_dump_page(OLD OLD_handle, ULONG page_number)
+{
+/**************************************
+ *
+ *	o l d _ d u m p _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a page to the WAL.  If necessary, fetch it.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	JRND record;
+	SSHORT ret_val;
+
+	dbb = GET_DBB;
+
+	record.jrnd_header.jrnh_type = JRN_PAGE;
+	record.jrnd_page = page_number;
+	record.jrnd_length = dbb->dbb_page_size;
+
+	window.win_page = page_number;
+	window.win_flags = 0;
+	CCH_FETCH_NO_CHECKSUM(NULL_TDBB, &window, LCK_read, pag_undefined);
+	ret_val = old_put_rec(OLD_handle,
+						  reinterpret_cast < jrnh * >(&record),
+						  JRND_SIZE,
+						  reinterpret_cast < UCHAR * >(window.win_buffer),
+						  dbb->dbb_page_size);
+
+	CCH_RELEASE(NULL_TDBB, &window);
+
+	return ret_val;;
+}
+
+
+static void old_fini(OLD * OLD_handle, USHORT code)
+{
+/**************************************
+ *
+ *	o l d  _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Finish an online dump.
+ *
+ **************************************/
+	OLD old;
+
+/* write a OLD_EOD record */
+
+	if (old = *OLD_handle) {
+		if (old->old_fd > 0) {
+			if (close_cur_file(old, code) == FAILURE)
+				return;
+		}
+
+		ALL_free(reinterpret_cast < char *>(old->old_block->ob_hdr));
+		ALL_free(reinterpret_cast < char *>(old->old_block));
+		ALL_free(reinterpret_cast < char *>(old));
+	}
+
+	*OLD_handle = NULL;
+}
+
+
+static int old_init(
+					OLD * OLD_handle,
+					SCHAR * dbname,
+					USHORT dump_id,
+					SSHORT num_files,
+					SCHAR ** files,
+ULONG file_size,
+ULONG start_seqno,
+SSHORT start_file,
+SSHORT rec_size, ULONG log_seqno, ULONG log_offset, ULONG log_p_offset)
+{
+/**************************************
+ *
+ *	o l d _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize online dump for this process.
+ *	Initialize and returns the OLD_handle.
+ *
+ **************************************/
+	OLD old;
+
+	if (*OLD_handle != NULL)
+		return FAILURE;
+
+	*OLD_handle = old = (OLD) ALL_malloc(sizeof(struct old), ERR_jmp);
+	MOVE_CLEAR(old, sizeof(struct old));
+
+	old->old_block = (OLDBLK) ALL_malloc(sizeof(struct oldblk), ERR_jmp);
+	MOVE_CLEAR(old->old_block, sizeof(struct oldblk));
+
+	old->old_block->ob_hdr = (OLD_HDR) ALL_malloc(MAX_OLDBUFLEN, ERR_jmp);
+	MOVE_CLEAR(old->old_block->ob_hdr, MAX_OLDBUFLEN);
+
+	old->old_dump_id = dump_id;
+	old->old_rec_size = rec_size + OLD_OVHD;
+	old->old_log_seqno = log_seqno;
+	old->old_log_offset = log_offset;
+	old->old_log_p_offset = log_p_offset;
+	old->old_num_files = num_files;
+	old->old_files = files;
+	old->old_file_size = file_size;
+	old->old_db = dbname;
+	old->old_file_seqno = start_file;
+	old->old_block->ob_cur_seqno = start_seqno;
+
+/* Start the online dump processing */
+
+	return open_next_file(old);
+}
+
+
+static int old_put(OLD OLD_handle, SCHAR * logrec, USHORT len)
+{
+/**************************************
+ *
+ *	o l d _ p u t  
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a given record in the OnLine Dump.
+ *	If file size is specified, open new file if required.
+ *	If we are out of space, return an error.
+ *
+ **************************************/
+	UCHAR *p, *q;
+	OLD_HDR hdr;
+	OLDBLK ob;
+	SLONG l;
+	USHORT ret;
+
+	ob = OLD_handle->old_block;
+	hdr = ob->ob_hdr;
+
+	if (len > MAX_OLDBUFLEN - OLD_OVHD)
+		len = MAX_OLDBUFLEN - OLD_OVHD;
+
+/* Leave space for trailer page. */
+
+	if (OLD_handle->old_cur_size + 2 * OLD_handle->old_rec_size >
+		OLD_handle->old_file_size) {
+		/* Rollover to next file */
+
+		if ((open_next_file(OLD_handle)) == FAILURE)
+			return FAILURE;
+
+		return old_put(OLD_handle, logrec, len);
+	}
+
+	hdr->oh_type = OLD_DATA;
+	hdr->oh_hdr_len = len;
+	hdr->oh_seqno = ob->ob_cur_seqno;
+	p = (UCHAR *) hdr->oh_buf;
+	MOVE_FAST(logrec, p, len);
+
+	p += len;
+	q = (UCHAR *) & len;
+	*p++ = *q++;
+	*p++ = *q++;
+
+	ret = LLIO_write(0, OLD_handle->old_fd, 0, 0L, LLIO_SEEK_NONE,
+					 (UCHAR *) hdr, OLD_handle->old_rec_size, &l);
+	if (ret == FAILURE || l != OLD_handle->old_rec_size) {
+		/* Not enough space */
+		/* backup to beginning of block and go on to next file */
+
+		if (ret == SUCCESS)
+			LLIO_seek(0, OLD_handle->old_fd, 0, -l, LLIO_SEEK_CURRENT);
+
+		if ((open_next_file(OLD_handle)) == FAILURE)
+			return FAILURE;
+
+		return old_put(OLD_handle, logrec, len);
+	}
+
+	ob->ob_cur_seqno++;
+	OLD_handle->old_cur_size += OLD_handle->old_rec_size;
+
+	return SUCCESS;
+}
+
+
+static void old_put_db_filename(OLD OLD_handle)
+{
+/**************************************
+ *
+ *	o l d _ p u t _ d b _ f i l e n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *     Write the file name of all secondary files to OLD
+ *
+ **************************************/
+	DBB dbb;
+	JRNF journal;
+	FIL fil;
+
+	dbb = GET_DBB;
+
+	for (fil = dbb->dbb_file; fil; fil = fil->fil_next) {
+		/* Skip primary db file */
+		if (!fil->fil_min_page)
+			continue;
+
+		journal.jrnf_header.jrnh_type = JRN_NEW_FILE;
+		journal.jrnf_start = fil->fil_min_page;
+		journal.jrnf_sequence = fil->fil_sequence;
+		journal.jrnf_length = fil->fil_length;
+		old_put_rec(OLD_handle,
+					reinterpret_cast < jrnh * >(&journal),
+					JRNF_SIZE,
+					reinterpret_cast < UCHAR * >(fil->fil_string),
+					fil->fil_length);
+	}
+}
+
+
+static int old_put_rec(
+					   OLD OLD_handle,
+					   JRNH * header,
+					   USHORT h_length, UCHAR * data, USHORT d_length)
+{
+/**************************************
+ *
+ *	o l d _ p u t _ r e c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a journal record to WAL.
+ *
+ **************************************/
+	USHORT length;
+	UCHAR buffer[MAX_RECORD], *p, *q;
+
+/* Prepare OLD record for writing */
+
+	length = h_length + d_length;
+
+	header->jrnh_handle = 0;
+	header->jrnh_length = length;
+	header->jrnh_series = 0;
+	header->jrnh_version = JOURNAL_VERSION;
+
+	header->jrnh_prev_seqno = 0;
+	header->jrnh_prev_offset = 0;
+
+#ifdef DEV_BUILD
+/* Checksum the log record after zeroing out the field */
+
+	header->jrnh_series =
+		MISC_checksum_log_rec(reinterpret_cast < UCHAR * >(header), h_length,
+							  data, d_length);
+#endif /* DEV_BUILD */
+
+/* Concatenate header and data. */
+
+	p = buffer;
+	q = (UCHAR *) header;
+	do
+		*p++ = *q++;
+	while (--h_length);
+
+	if (d_length)
+		do
+			*p++ = *data++;
+		while (--d_length);
+
+	return old_put(OLD_handle, reinterpret_cast < char *>(buffer), length);
+}
+
+
+static int open_next_file(OLD old)
+{
+/**************************************
+ *
+ *	o p e n _ n e x t _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Opens the next OnLine Dump file and writes out the header.
+ *	returns SUCCESS - if things work
+ *		FAILURE - open fails, no more file etc.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	SLONG fd;
+	SLONG ret_val;
+	SCHAR name[MAX_PATH_LENGTH];
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	if (old->old_fd > 0) {
+		if (close_cur_file(old, OLD_EOF) == FAILURE)
+			return FAILURE;
+	}
+
+	if (old->old_cur_file >= old->old_num_files)
+		return FAILURE;
+
+	if (create_file(old, &fd) == FAILURE)
+		return FAILURE;
+
+	ISC_expand_filename(old->old_files[old->old_cur_file], 0, name);
+
+	if (
+		(ret_val =
+		 JRN_put_old_file(tdbb->tdbb_status_vector, dbb->dbb_journal, name,
+						  strlen(name), old->old_file_size,
+						  old->old_file_seqno, old->old_dump_id)) != SUCCESS) {
+		LLIO_close(0, fd);
+		AIL_process_jrn_error(ret_val);
+	}
+
+	old->old_cur_file++;
+	old->old_file_seqno++;
+
+	old->old_fd = fd;
+
+	return SUCCESS;
+}
diff --git a/src/jrd/old.h b/src/jrd/old.h
new file mode 100644
index 0000000000..ff013ff181
--- /dev/null
+++ b/src/jrd/old.h
@@ -0,0 +1,104 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		old.h
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_OLD_H_
+#define _JRD_OLD_H_
+
+#include "../jrd/common.h"
+
+#define OLD_VERSION1		1
+#define OLD_VERSION		OLD_VERSION1
+
+#define MAX_OLDBUFLEN		64000
+
+/* OLD block buffer header */
+
+typedef struct old_hdr {
+	UCHAR oh_type;				/* type of record */
+	USHORT oh_hdr_len;			/* Length of the block buffer */
+	SLONG oh_seqno;				/* seqno of the block   */
+	SLONG oh_hdr_timestamp[2];	/* When this buffer was written */
+	SCHAR oh_buf[1];
+} *OLD_HDR;
+
+#define	OLD_HEADER	1
+#define OLD_DATA	2
+#define OLD_ERR		253
+#define	OLD_EOF		254
+#define OLD_EOD		255
+
+#define OLD_HDROVHD             OFFSETA (OLD_HDR, oh_buf)
+#define OLD_TAILOVHD            sizeof(SSHORT)
+#define OLD_OVHD                OLD_HDROVHD + OLD_TAILOVHD
+#define OLD_HEADER_SIZE		512	/* make it 256 later */
+
+
+/* OLD buffer block */
+
+typedef struct oldblk {
+	SLONG ob_cur_offset;
+	SLONG ob_cur_seqno;
+	struct old_hdr *ob_hdr;
+} *OLDBLK;
+
+
+/* OLD handle, used in the API calls.*/
+
+typedef struct old {
+	SCHAR *old_db;				/* name of database */
+	SLONG old_fd;				/* File descriptor for the OLD lock file */
+	USHORT old_dump_id;
+	ULONG old_log_seqno;		/* log seqno of OLD */
+	ULONG old_log_offset;		/* log offset of OLD */
+	ULONG old_log_p_offset;		/* log p_offset of OLD */
+	ULONG old_db_page_size;
+	SSHORT old_num_files;		/* number of files to be used */
+	SCHAR **old_files;			/* list of files passed in  */
+	SSHORT old_cur_file;		/* current file being written to */
+	SSHORT old_file_seqno;		/* file seqno being written to */
+	SSHORT old_rec_size;		/* size of each record */
+	ULONG old_file_size;		/* max file size */
+	SLONG old_cur_size;			/* current file size */
+	SLONG old_cur_seqno;		/* used during read processing */
+	int old_length;				/* length of the OLD segement */
+	OLDBLK old_block;
+} *OLD;
+
+/* OnLine Dump header page info */
+
+typedef struct hdr_page {
+	USHORT hp_file_seqno;		/* Sequence number of current file */
+	ULONG hp_start_block;		/* start block number */
+	ULONG hp_file_size;			/* max size of file */
+	ULONG hp_log_seqno;			/* old start log seqno */
+	ULONG hp_log_offset;		/* old start log offset */
+	ULONG hp_log_p_offset;		/* old start log offset */
+	USHORT hp_db_page_size;		/* database page size */
+	USHORT hp_dump_id;			/* dump id */
+	USHORT hp_rec_size;
+	USHORT hp_version;			/* OnLine Dump Version */
+	USHORT hp_length;			/* length of file name */
+	SCHAR hp_db[1];				/* database name */
+} *OLD_HDR_PAGE;
+
+#endif /* _JRD_OLD_H_ */
diff --git a/src/jrd/old_proto.h b/src/jrd/old_proto.h
new file mode 100644
index 0000000000..f255e897f2
--- /dev/null
+++ b/src/jrd/old_proto.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		old_proto.h		
+ *	DESCRIPTION:	Prototype Header file for old.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_OLD_PROTO_H_
+#define _JRD_OLD_PROTO_H_
+
+extern int OLD_dump(SCHAR *, USHORT, USHORT, ULONG, ULONG, ULONG, USHORT,
+					USHORT, SCHAR **);
+
+#endif /* _JRD_OLD_PROTO_H_ */
diff --git a/src/jrd/opt.cpp b/src/jrd/opt.cpp
new file mode 100644
index 0000000000..273471755c
--- /dev/null
+++ b/src/jrd/opt.cpp
@@ -0,0 +1,5560 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		opt.c
+ *	DESCRIPTION:	Optimizer / record selection expression compiler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: opt.cpp,v 1.1.1.1 2001-05-23 13:26:20 tamlin Exp $
+*/
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/ibsetjmp.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/align.h"
+#include "../jrd/val.h"
+#include "../jrd/req.h"
+#include "../jrd/exe.h"
+#include "../jrd/lls.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../jrd/sort.h"
+#include "../jrd/rse.h"
+#include "../jrd/intl.h"
+#include "../jrd/thd.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/btr_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/ext_proto.h"
+#include "../jrd/intl_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/opt_proto.h"
+#include "../jrd/par_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/dbg_proto.h"
+
+
+static BOOLEAN augment_stack(NOD, LLS *);
+static void check_indices(csb_repeat *);
+static BOOLEAN check_relationship(OPT, USHORT, USHORT);
+static void check_sorts(RSE);
+static void class_mask(USHORT, NOD *, ULONG *);
+static void clear_bounds(OPT, IDX *);
+static NOD compose(NOD *, NOD, NOD_T);
+static BOOLEAN computable(CSB, register NOD, SSHORT, BOOLEAN);
+static void compute_dependencies(NOD, ULONG *);
+static void compute_dbkey_streams(CSB, NOD, UCHAR *);
+static void compute_rse_streams(CSB, RSE, UCHAR *);
+static SLONG decompose(TDBB, register NOD, LLS *, CSB);
+static USHORT distribute_equalities(LLS *, CSB);
+static BOOLEAN dump_index(NOD, SCHAR **, SSHORT *);
+static BOOLEAN dump_rsb(REQ, RSB, SCHAR **, SSHORT *);
+static BOOLEAN estimate_cost(TDBB, OPT, USHORT, double *, double *);
+#ifdef EXPRESSION_INDICES
+static BOOLEAN expression_equal(TDBB, NOD, NOD);
+#endif
+static void find_best(TDBB, register OPT, USHORT, USHORT, UCHAR *, NOD,
+					  double, double);
+static NOD find_dbkey(NOD, USHORT, SLONG *);
+static USHORT find_order(TDBB, register OPT, UCHAR *, NOD);
+static void find_rsbs(RSB, LLS *, LLS *);
+static void form_rivers(TDBB, OPT, UCHAR *, LLS *, NOD *, NOD *, NOD);
+static BOOLEAN form_river(TDBB, OPT, USHORT, UCHAR *, UCHAR *, LLS *, NOD *,
+						  NOD *, NOD);
+static RSB gen_aggregate(TDBB, OPT, NOD);
+static RSB gen_boolean(TDBB, register OPT, RSB, NOD);
+static RSB gen_first(TDBB, register OPT, RSB, NOD);
+static void gen_join(TDBB, OPT, UCHAR *, LLS *, NOD *, NOD *, NOD);
+static RSB gen_navigation(TDBB, OPT, USHORT, REL, STR, IDX *, NOD *);
+#ifdef SCROLLABLE_CURSORS
+static RSB gen_nav_rsb(TDBB, OPT, USHORT, REL, STR, IDX *, RSE_GET_MODE);
+#else
+static RSB gen_nav_rsb(TDBB, OPT, USHORT, REL, STR, IDX *);
+#endif
+static RSB gen_outer(TDBB, OPT, RSE, LLS, NOD *, NOD *);
+static RSB gen_procedure(TDBB, OPT, NOD);
+static RSB gen_residual_boolean(TDBB, register OPT, RSB);
+static RSB gen_retrieval(TDBB, OPT, SSHORT, NOD *, NOD *, BOOLEAN, BOOLEAN,
+						 NOD *);
+static RSB gen_rsb(TDBB, OPT, RSB, NOD, SSHORT, REL, STR, NOD, float);
+static RSB gen_sort(TDBB, OPT, UCHAR *, UCHAR *, RSB, NOD, USHORT);
+static BOOLEAN gen_sort_merge(TDBB, OPT, LLS *);
+static RSB gen_union(TDBB, OPT, NOD, UCHAR *, USHORT);
+static void get_inactivities(CSB, ULONG *);
+static IRL indexed_relationship(TDBB, OPT, USHORT);
+static STR make_alias(TDBB, CSB, csb_repeat *);
+static NOD make_binary_node(NOD_T, NOD, NOD, USHORT);
+static RSB make_cross(TDBB, OPT, LLS);
+static NOD make_index_node(TDBB, REL, CSB, IDX *);
+static NOD make_inference_node(CSB, NOD, NOD, NOD);
+static NOD make_inversion(TDBB, register OPT, NOD, USHORT);
+static NOD make_missing(TDBB, register OPT, REL, NOD, USHORT, IDX *);
+static NOD make_starts(TDBB, register OPT, REL, NOD, USHORT, IDX *);
+static BOOLEAN map_equal(NOD, NOD, NOD);
+static void mark_indices(csb_repeat *, SSHORT);
+static SSHORT match_index(TDBB, register OPT, SSHORT, register NOD, IDX *);
+static USHORT nav_rsb_size(RSB, USHORT, USHORT);
+static BOOLEAN node_equality(NOD, NOD);
+static NOD optimize_like(TDBB, NOD);
+static void print_order(OPT, USHORT, double, double);
+static USHORT river_count(USHORT, NOD *);
+static BOOLEAN river_reference(RIV, NOD);
+static BOOLEAN search_stack(NOD, LLS);
+static void set_active(OPT, RIV);
+static void set_direction(NOD, NOD);
+static void set_inactive(OPT, RIV);
+static void set_made_river(OPT, RIV);
+static void set_position(NOD, NOD, NOD);
+static void set_rse_inactive(CSB, RSE);
+
+
+/* macro definitions */
+
+#ifdef DEV_BUILD
+#define OPT_DEBUG
+#endif
+
+#ifdef OPT_DEBUG
+#define DEBUG_PUNT		5
+#define DEBUG_RELATIONSHIPS	4
+#define DEBUG_ALL		3
+#define DEBUG_CANDIDATE		2
+#define DEBUG_BEST		1
+#define DEBUG_NONE		0
+
+IB_FILE *opt_debug_file = 0;
+static int opt_debug_flag = DEBUG_NONE;
+#endif
+
+#define	SET_DEP_BIT(array, bit)	array[(bit)/32] |= (1L << ((bit) % 32))
+#define	CLEAR_DEP_BIT(array, bit)	array[(bit)/32] &= ~(1L << ((bit) % 32))
+#define	TEST_DEP_BIT(array, bit)	(array[(bit)/32] & (1L << ((bit) % 32)))
+#define	TEST_DEP_ARRAYS(ar1, ar2)	((ar1[0] & ar2[0]) || (ar1[1] & ar2[1]) || \
+					 (ar1[2] & ar2[2]) || (ar1[3] & ar2[3]) || \
+					 (ar1[4] & ar2[4]) || (ar1[5] & ar2[5]) || \
+					 (ar1[6] & ar2[6]) || (ar1[7] & ar2[7]))
+
+#define STREAM_INDEX(node)	(node->nod_type == nod_relation) ? e_rel_stream : \
+	      	     		(node->nod_type == nod_procedure) ? e_prc_stream : \
+	      	     		(node->nod_type == nod_union) ? e_uni_stream : e_agg_stream
+
+/* some arbitrary fudge factors for calculating costs, etc.--
+   these could probably be better tuned someday */
+
+#define ESTIMATED_SELECTIVITY	0.01
+#define INVERSE_ESTIMATE	10
+#define INDEX_COST		30.0
+#define CACHE_PAGES_PER_STREAM	15
+
+#define SQL_MATCH_1_CHAR	'_'	/* Not translatable */
+#define SQL_MATCH_ANY_CHARS	'%'	/* Not translatable */
+
+
+/* enumeration of sort datatypes */
+
+static CONST UCHAR sort_dtypes[] = {
+	0,							/* dtype_null */
+	SKD_text,					/* dtype_text */
+	SKD_cstring,				/* dtype_cstring */
+	SKD_varying,				/* dtype_varying */
+	0,
+	0,
+	0,							/* dtype_packed */
+	0,							/* dtype_byte */
+	SKD_short,					/* dtype_short */
+	SKD_long,					/* dtype_long */
+	SKD_quad,					/* dtype_quad */
+	SKD_float,					/* dtype_real */
+	SKD_double,					/* dtype_double */
+	SKD_double,					/* dtype_d_float */
+	SKD_sql_date,				/* dtype_sql_date */
+	SKD_sql_time,				/* dtype_sql_time */
+	SKD_timestamp2,				/* dtype_timestamp */
+	0,							/* dtype_blob */
+	0,							/* dtype_array */
+	SKD_int64					/* dtype_int64 */
+};
+
+
+BOOLEAN OPT_access_path(REQ request,
+						SCHAR * buffer,
+						SSHORT buffer_length, USHORT * return_length)
+{
+/**************************************
+ *
+ *	O P T _ a c c e s s _ p a t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns a formatted access path for all
+ *	rse's in the specified request.
+ *
+ **************************************/
+	VEC vector;
+	RSB rsb;
+	SLONG i;
+	SCHAR *begin;
+
+	DEV_BLKCHK(request, type_req);
+
+	begin = buffer;
+
+/* loop through all RSEs in the request, 
+   and describe the rsb tree for that rsb;
+   go backwards because items were popped
+   off the stack backwards */
+
+	vector = request->req_fors;
+	if (!vector)
+		return FALSE;
+
+	for (i = vector->vec_count - 1; i >= 0; i--) {
+		rsb = (RSB) vector->vec_object[i];
+		if (rsb && !dump_rsb(request, rsb, &buffer, &buffer_length))
+			break;
+	}
+
+	*return_length = buffer - begin;
+
+	if (i >= 0)
+		return FALSE;
+	else
+		return TRUE;
+}
+
+
+RSB OPT_compile(TDBB tdbb,
+				register CSB csb, register RSE rse, LLS parent_stack)
+{
+/**************************************
+ *
+ *	O P T _ c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile and optimize a record selection expression into a
+ *	set of record source blocks (rsb's).
+ *
+ **************************************/
+	DBB dbb;
+	OPT opt;
+	IDX *idx;
+	RIV river;
+	NOD node, *ptr, *end, sort, project, aggregate;
+	LLS conjunct_stack, rivers_stack, *stack_end;
+	RSB rsb;
+	REL relation;
+	SLONG idx_size, conjunct_count;
+	SSHORT i, stream;
+#ifndef STACK_REDUCTION
+	UCHAR *p, *q, streams[MAX_STREAMS], beds[MAX_STREAMS],
+		*k, *b_end, *k_end, key_streams[MAX_STREAMS],
+		local_streams[MAX_STREAMS];
+#else
+	UCHAR *local_streams;
+	UCHAR *p, *q, *streams, *beds, *k, *b_end, *k_end, *key_streams;
+#endif
+	JMP_BUF env, *old_env;
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(rse, type_nod);
+	DEV_BLKCHK(parent_stack, type_lls);
+
+#if defined(NETWARE_386)
+	if ((unsigned) stackavail() < (unsigned) STACK_SAFE_LIMIT)
+		ERR_post(isc_err_stack_limit, 0);
+#endif
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+#ifdef OPT_DEBUG
+	if (opt_debug_flag != DEBUG_NONE && !opt_debug_file)
+		opt_debug_file = ib_fopen("opt_debug.out", "w");
+#endif
+
+
+/* If there is a boolean, there is some work to be done.  First,
+   decompose the boolean into conjunctions.  Then get descriptions
+   of all indices for all relations in the rse.  This will give
+   us the info necessary to allocate a optimizer block big
+   enough to hold this crud. */
+
+
+/* Do not allocate the IDX struct. Let BTR_all do the job. The allocated
+   memory will then be in csb->csb_rpt[stream].csb_idx_allocation, which
+   gets cleaned up before this function exits. */
+
+	idx = (IDX *) NULL;
+	idx_size = 0;
+
+#ifdef STACK_REDUCTION
+
+/* allocate local memory, make a block allocation for similar items */
+
+	streams =
+		(UCHAR *) ALLOC_LIB_MEMORY((DWORD) (sizeof(UCHAR) * MAX_STREAMS));
+	beds = (UCHAR *) ALLOC_LIB_MEMORY((DWORD) (sizeof(UCHAR) * MAX_STREAMS));
+	key_streams =
+		(UCHAR *) ALLOC_LIB_MEMORY((DWORD) (sizeof(UCHAR) * MAX_STREAMS));
+	local_streams =
+		(UCHAR *) ALLOC_LIB_MEMORY((DWORD) (sizeof(UCHAR) * MAX_STREAMS));
+	opt = (OPT) ALLOC_LIB_MEMORY((DWORD) (sizeof(struct opt)));
+	if (streams == NULL || beds == NULL || key_streams == NULL ||
+		local_streams == NULL || opt == NULL) {
+		if (local_streams != NULL)
+			FREE_LIB_MEMORY(local_streams);
+		if (key_streams != NULL)
+			FREE_LIB_MEMORY(key_streams);
+		if (beds != NULL)
+			FREE_LIB_MEMORY(beds);
+		if (streams != NULL)
+			FREE_LIB_MEMORY(streams);
+		if (opt != NULL)
+			FREE_LIB_MEMORY(opt);
+		ERR_post(isc_virmemexh, 0);
+	}
+
+/* clear block and set block type */
+
+	MOVE_CLEAR(opt, sizeof(struct opt));
+	((BLK) opt)->blk_type = type_opt;
+
+#else
+
+	opt = (OPT) ALLOCP(type_opt);
+
+#endif
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		for (i = 0; i < streams[0]; i++) {
+			stream = streams[i + 1];
+			if (csb->csb_rpt[stream].csb_idx_allocation)
+				ALL_RELEASE(csb->csb_rpt[stream].csb_idx_allocation);
+			csb->csb_rpt[stream].csb_idx_allocation = 0;
+		}
+#ifdef STACK_REDUCTION
+		FREE_LIB_MEMORY(local_streams);
+		FREE_LIB_MEMORY(key_streams);
+		FREE_LIB_MEMORY(beds);
+		FREE_LIB_MEMORY(streams);
+		FREE_LIB_MEMORY(opt);
+#else
+		ALL_RELEASE(opt);
+#endif
+		ERR_punt();
+	}
+
+	opt->opt_csb = csb;
+	if (rse->nod_flags & rse_stream)
+		opt->opt_g_flags |= opt_g_stream;
+
+	beds[0] = streams[0] = key_streams[0] = 0;
+	conjunct_stack = rivers_stack = NULL;
+	conjunct_count = 0;
+
+	check_sorts(rse);
+	sort = rse->rse_sorted;
+	project = rse->rse_projection;
+	aggregate = rse->rse_aggregate;
+
+/* put any additional booleans on the conjunct stack, and see if we 
+   can generate additional booleans by associativity--this will help 
+   to utilize indices that we might not have noticed */
+
+	if (rse->rse_boolean)
+		conjunct_count =
+			decompose(tdbb, rse->rse_boolean, &conjunct_stack, csb);
+
+	conjunct_count += distribute_equalities(&conjunct_stack, csb);
+
+/* find the end of the conjunct stack. */
+
+	for (stack_end = &conjunct_stack; *stack_end;
+		 stack_end = &(*stack_end)->lls_next);
+
+/* clear the csb_active flag of all streams in the rse */
+	set_rse_inactive(csb, rse);
+
+	p = streams + 1;
+
+/* go through the record selection expression generating 
+   record source blocks for all streams */
+
+	for (ptr = rse->rse_relation, end = ptr + rse->rse_count; ptr < end;
+		 ptr++) {
+		node = *ptr;
+
+		/* find the stream number and place it at the end of the beds array
+		   (if this is really a stream and not another rse) */
+
+		if (node->nod_type != nod_rse) {
+			stream = (USHORT) node->nod_arg[STREAM_INDEX(node)];
+			beds[++beds[0]] = (UCHAR) stream;
+		}
+
+		/* for nodes which are not relations, generate an rsb to
+		   represent that work has to be done to retrieve them;
+		   find all the substreams involved and compile them as well */
+
+		rsb = NULL;
+		local_streams[0] = 0;
+		if (node->nod_type == nod_union) {
+			i = (SSHORT) key_streams[0];
+			compute_dbkey_streams(csb, node, key_streams);
+			rsb =
+				gen_union(tdbb, opt, node, key_streams + i + 1,
+						  (USHORT) (key_streams[0] - i));
+			local_streams[++local_streams[0]] =
+				(UCHAR) node->nod_arg[e_uni_stream];
+		}
+		else if (node->nod_type == nod_aggregate) {
+			rsb = gen_aggregate(tdbb, opt, node);
+			local_streams[++local_streams[0]] =
+				(UCHAR) node->nod_arg[e_agg_stream];
+		}
+		else if (node->nod_type == nod_procedure) {
+			rsb = gen_procedure(tdbb, opt, node);
+			local_streams[++local_streams[0]] =
+				(UCHAR) node->nod_arg[e_prc_stream];
+		}
+		else if (node->nod_type == nod_rse) {
+			compute_rse_streams(csb, (RSE) node, beds);
+			compute_rse_streams(csb, (RSE) node, local_streams);
+			compute_dbkey_streams(csb, node, key_streams);
+			*stack_end = parent_stack;
+			rsb = OPT_compile(tdbb, csb, (RSE) node, conjunct_stack);
+			*stack_end = NULL;
+		}
+
+		/* if an rsb has been generated, we have a non-relation;
+		   so it forms a river of its own since it is separately 
+		   optimized from the streams in this rsb */
+
+		if (rsb) {
+			i = local_streams[0];
+			river = (RIV) ALLOCDV(type_riv, i);
+			river->riv_count = (UCHAR) i;
+			river->riv_rsb = rsb;
+			MOVE_FAST(local_streams + 1, river->riv_streams, i);
+			set_made_river(opt, river);
+			set_inactive(opt, river);
+			LLS_PUSH(river, &rivers_stack);
+			continue;
+		}
+
+		/* we have found a base relation; record its stream 
+		   number in the streams array as a candidate for 
+		   merging into a river */
+
+		++streams[0];
+		*p++ = (UCHAR) stream;
+
+		/* if we have seen any booleans or sort fields, we may be able to
+		   use an index to optimize them; retrieve the current format of 
+		   all indices at this time so we can determine if it's possible */
+
+		csb->csb_rpt[stream].csb_idx_allocation = 0;
+		if (conjunct_count || sort || project || aggregate) {
+			if ((relation = (REL) node->nod_arg[e_rel_relation])
+				&& !relation->rel_file) {
+				csb->csb_rpt[stream].csb_indices =
+					BTR_all(tdbb, relation, &idx,
+							&csb->csb_rpt[stream].csb_idx,
+							&csb->csb_rpt[stream].csb_idx_allocation,
+							&idx_size);
+
+				mark_indices(&csb->csb_rpt[stream], relation->rel_id);
+			}
+			else
+				csb->csb_rpt[stream].csb_indices = 0;
+		}
+	}
+
+/* this is an attempt to make sure we have a large enough cache to 
+   efficiently retrieve this query; make sure the cache has a minimum
+   number of pages for each stream in the RSE (the number is just a guess) */
+
+	if (streams[0] > 5)
+		CCH_expand(tdbb, (ULONG) (streams[0] * CACHE_PAGES_PER_STREAM));
+
+/* At this point we are ready to start optimizing.  
+   We will use the opt block to hold information of
+   a global nature, meaning that it needs to stick 
+   around for the rest of the optimization process. */
+
+/* first fill out the conjuncts at the end of opt */
+
+	opt->opt_count = (SSHORT) conjunct_count;
+
+/* Check if size of optimizer block exceeded. */
+
+	if (opt->opt_count > MAX_CONJUNCTS)
+		ERR_post(isc_optimizer_blk_exc, 0);
+	/* Msg442: size of optimizer block exceeded */
+
+	for (i = 0; i < conjunct_count; i++) {
+		opt->opt_rpt[i].opt_conjunct = node = (NOD) LLS_POP(&conjunct_stack);
+		compute_dependencies(node, opt->opt_rpt[i].opt_dependencies);
+	}
+
+/* Store the conjuncts from the parent rse.  But don't fiddle with
+   the parent's stack itself. */
+
+	for (; parent_stack && conjunct_count < MAX_CONJUNCTS;
+		 parent_stack = parent_stack->lls_next, conjunct_count++) {
+		opt->opt_rpt[conjunct_count].opt_conjunct = node =
+			(NOD) parent_stack->lls_object;
+		compute_dependencies(node,
+							 opt->opt_rpt[conjunct_count].opt_dependencies);
+	}
+
+	opt->opt_parent_count = (SSHORT) conjunct_count;
+
+/* Check if size of optimizer block exceeded. */
+
+	if (parent_stack)
+		ERR_post(isc_optimizer_blk_exc, 0);
+	/* Msg442: size of optimizer block exceeded */
+
+/* attempt to optimize aggregates via an index, if possible */
+
+	if (aggregate && !sort && !project)
+		sort = aggregate;
+	else
+		rse->rse_aggregate = aggregate = NULL;
+
+/* outer joins require some extra processing */
+
+	if (rse->rse_jointype != blr_inner)
+		rsb = gen_outer(tdbb, opt, rse, rivers_stack, &sort, &project);
+	else {
+		/* attempt to form joins in decreasing order of desirability */
+
+		gen_join(tdbb, opt, streams, &rivers_stack, &sort, &project,
+				 rse->rse_plan);
+
+		/* If there are multiple rivers, try some sort/merging */
+
+		while (rivers_stack->lls_next
+			   && gen_sort_merge(tdbb, opt, &rivers_stack));
+
+		rsb = make_cross(tdbb, opt, rivers_stack);
+
+		/* Pick up any residual boolean that may have fallen thru the cracks */
+
+		rsb = gen_residual_boolean(tdbb, opt, rsb);
+	}
+
+/* if the aggregate was not optimized via an index, get rid of the 
+   sort and flag the fact to the calling routine */
+
+	if (aggregate && sort) {
+		rse->rse_aggregate = NULL;
+		sort = NULL;
+	}
+
+/* check index usage in all the base streams to ensure
+   that any user-specified access plan is followed */
+
+	for (i = 1; i <= streams[0]; i++)
+		check_indices(&csb->csb_rpt[streams[i]]);
+
+	if (project || sort) {
+		/* Eliminate any duplicate dbkey streams */
+
+		b_end = beds + beds[0];
+		k_end = key_streams + key_streams[0];
+		for (p = k = &key_streams[1]; p <= k_end; p++) {
+			for (q = &beds[1]; q <= b_end && *q != *p; q++);
+			if (q > b_end)
+				*k++ = *p;
+		}
+		key_streams[0] = k - &key_streams[1];
+
+		/* Handle project clause, if present. */
+
+		if (project)
+			rsb = gen_sort(tdbb, opt, beds, key_streams, rsb, project, TRUE);
+
+		/* Handle sort clause if present */
+
+		if (sort)
+			rsb = gen_sort(tdbb, opt, beds, key_streams, rsb, sort, FALSE);
+	}
+
+/* If there's a FIRST n clause, handle it */
+
+	if (rse->rse_first)
+		rsb = gen_first(tdbb, opt, rsb, rse->rse_first);
+
+/* release memory allocated for index descriptions */
+
+	for (i = 0; i < streams[0]; i++) {
+		stream = streams[i + 1];
+		if (csb->csb_rpt[stream].csb_idx_allocation)
+			ALL_RELEASE(csb->csb_rpt[stream].csb_idx_allocation);
+		csb->csb_rpt[stream].csb_idx_allocation = 0;
+	}
+
+	DEBUG
+/* free up memory for optimizer structures */
+#ifdef STACK_REDUCTION
+		FREE_LIB_MEMORY(local_streams);
+	FREE_LIB_MEMORY(key_streams);
+	FREE_LIB_MEMORY(beds);
+	FREE_LIB_MEMORY(streams);
+	FREE_LIB_MEMORY(opt);
+
+#else
+		ALL_RELEASE(opt);
+
+#endif
+
+#ifdef OPT_DEBUG
+	if (opt_debug_file) {
+		ib_fflush(opt_debug_file);
+		ib_fclose(opt_debug_file);
+		opt_debug_file = 0;
+	}
+#endif
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	return rsb;
+}
+
+
+NOD OPT_make_dbkey(register OPT opt, NOD boolean, USHORT stream)
+{
+/**************************************
+ *
+ *	O P T _ m a k e _ d b k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	If boolean is an equality comparison on the proper dbkey,
+ *	make a "bit_dbkey" operator (makes bitmap out of dbkey
+ *	expression.
+ *
+ *	This is a little hairy, since view dbkeys are expressed as
+ *	concatenations of primitive dbkeys.
+ *
+ **************************************/
+	CSB csb;
+	NOD value, dbkey;
+	SLONG n;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(boolean, type_nod);
+
+/* If this isn't an equality, it isn't even interesting */
+
+	if (boolean->nod_type != nod_eql)
+		return NULL;
+
+/* Find the side of the equality that is potentially a dbkey.  If
+   neither, make the obvious deduction */
+
+	dbkey = boolean->nod_arg[0];
+	value = boolean->nod_arg[1];
+	n = 0;
+
+	if (dbkey->nod_type != nod_dbkey && dbkey->nod_type != nod_concatenate) {
+		if (value->nod_type != nod_dbkey &&
+			value->nod_type != nod_concatenate) return NULL;
+		dbkey = value;
+		value = boolean->nod_arg[0];
+	}
+
+/* If the value isn't computable, this has been a waste of time */
+
+	csb = opt->opt_csb;
+	if (!computable(csb, value, stream, FALSE))
+		return NULL;
+
+/* If this is a concatenation, find an appropriate dbkey */
+
+	if (dbkey->nod_type == nod_concatenate) {
+		dbkey = find_dbkey(dbkey, stream, &n);
+		if (!dbkey)
+			return NULL;
+	}
+
+/* Make sure we have the correct stream */
+
+	if ((USHORT) dbkey->nod_arg[0] != stream)
+		return NULL;
+
+/* If this is a dbkey for the appropriate stream, it's invertable */
+
+	dbkey = PAR_make_node(tdbb, 2);
+	dbkey->nod_count = 1;
+	dbkey->nod_type = nod_bit_dbkey;
+	dbkey->nod_arg[0] = value;
+	dbkey->nod_arg[1] = (NOD) n;
+	dbkey->nod_impure = CMP_impure(csb, sizeof(struct inv));
+
+	return dbkey;
+}
+
+
+NOD OPT_make_index(TDBB tdbb, OPT opt, REL relation, IDX * idx)
+{
+/**************************************
+ *
+ *	O P T _ m a k e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build node for index scan.
+ *
+ **************************************/
+	IRB retrieval;
+	NOD node, *lower, *upper, *end_node;
+	opt::opt_repeat * tail, *end;
+
+	SET_TDBB(tdbb);
+
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(relation, type_rel);
+
+/* Allocate both a index retrieval node and block. */
+
+	node = make_index_node(tdbb, relation, opt->opt_csb, idx);
+	retrieval = (IRB) node->nod_arg[e_idx_retrieval];
+	retrieval->irb_relation = relation;
+
+/* Pick up lower bound segment values */
+
+	lower = retrieval->irb_value;
+	upper = retrieval->irb_value + idx->idx_count;
+	end = opt->opt_rpt + idx->idx_count;
+
+	if (idx->idx_flags & idx_descending) {
+		for (tail = opt->opt_rpt; tail->opt_lower && tail < end; tail++)
+			*upper++ = tail->opt_lower;
+		for (tail = opt->opt_rpt; tail->opt_upper && tail < end; tail++)
+			*lower++ = tail->opt_upper;
+		retrieval->irb_generic |= irb_descending;
+	}
+	else {
+		for (tail = opt->opt_rpt; tail->opt_lower && tail < end; tail++)
+			*lower++ = tail->opt_lower;
+		for (tail = opt->opt_rpt; tail->opt_upper && tail < end; tail++)
+			*upper++ = tail->opt_upper;
+	}
+
+	retrieval->irb_lower_count = lower - retrieval->irb_value;
+	retrieval->irb_upper_count =
+		(upper - retrieval->irb_value) - idx->idx_count;
+
+#ifdef IGNORE_NULL_IDX_KEY
+/* when lower bound is given, and upper bound is not,
+  do not look at index keys which have <null> value in their first
+  segment. This is because these records will not satisfy the query
+  since <null> is a state and not a value, and thus cannot be compared
+  to a value. 
+*/
+	if (retrieval->irb_lower_count && retrieval->irb_upper_count == 0) {
+		retrieval->irb_generic |= irb_ignore_null_value_key;
+	}
+#endif /* IGNORE_NULL_IDX_KEY */
+
+/* Check to see if this is really an equality retrieval */
+
+	if (retrieval->irb_lower_count == retrieval->irb_upper_count) {
+		retrieval->irb_generic |= irb_equality;
+		lower = retrieval->irb_value;
+		upper = retrieval->irb_value + idx->idx_count;
+		for (end_node = lower + retrieval->irb_lower_count; lower < end_node;)
+			if (*upper++ != *lower++) {
+				retrieval->irb_generic &= ~irb_equality;
+				break;
+			}
+	}
+
+/* If we are matching less than the full index, this is a partial match */
+
+	if (retrieval->irb_upper_count < idx->idx_count)
+		retrieval->irb_generic |= irb_partial;
+
+/* mark the index as utilized for the purposes of this compile */
+
+	idx->idx_runtime_flags |= idx_used;
+
+	return node;
+}
+
+
+int OPT_match_index(OPT opt, USHORT stream, IDX * idx)
+{
+/**************************************
+ *
+ *	O P T _ m a t c h _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Match any active (computable but not consumed) boolean
+ *	conjunctions against a given index.  This is used by
+ *	the external relation modules to do index optimization.
+ *	Return the number of matching items.
+ *
+ **************************************/
+	TDBB tdbb;
+	register CSB csb;
+	NOD node;
+	USHORT n;
+	register opt::opt_repeat * tail, *opt_end;
+
+	tdbb = GET_THREAD_DATA;
+	DEV_BLKCHK(opt, type_opt);
+
+/* If there are not conjunctions, don't waste our time */
+
+	if (!opt->opt_count)
+		return 0;
+
+	csb = opt->opt_csb;
+	opt_end = opt->opt_rpt + opt->opt_count;
+	n = 0;
+	clear_bounds(opt, idx);
+
+	for (tail = opt->opt_rpt; tail < opt_end; tail++) {
+		node = tail->opt_conjunct;
+		if (!(tail->opt_flags & opt_used) && computable(csb, node, -1, TRUE))
+			n += match_index(tdbb, opt, stream, node, idx);
+	}
+
+	return n;
+}
+
+
+
+void OPT_set_index(TDBB tdbb,
+				   REQ request, RSB * rsb_ptr, REL relation, IDX * idx)
+{
+/**************************************
+ *
+ *	O P T _ s e t _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset the navigational order of a stream.
+ *	Given a sequential or navigational rsb,
+ *	reset the rsb to be a navigational rsb
+ *	on the specified index.
+ *
+ **************************************/
+	RSB old_rsb, new_rsb;
+	USHORT index_id, i;
+	OPT opt;
+	NOD inversion = NULL;
+	NOD index_node, new_index_node;
+	IRB retrieval;
+	IDL index;
+	VEC vector;
+	DBB dbb;
+
+	DEV_BLKCHK(request, type_req);
+	DEV_BLKCHK(*rsb_ptr, type_rsb);
+	DEV_BLKCHK(relation, type_rel);
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	old_rsb = *rsb_ptr;
+
+/* fix up a boolean rsb to point to the actual stream rsb */
+
+	if (old_rsb->rsb_type == rsb_boolean) {
+		rsb_ptr = &old_rsb->rsb_next;
+		old_rsb = old_rsb->rsb_next;
+	}
+
+/* check if there is an existing inversion for
+   a boolean expression mapped to an index */
+
+	if (old_rsb->rsb_type == rsb_indexed)
+		inversion = (NOD) old_rsb->rsb_arg[0];
+	else if (old_rsb->rsb_type == rsb_navigate)
+		inversion = (NOD) old_rsb->rsb_arg[RSB_NAV_inversion];
+
+/* set up a dummy optimizer block just for the purposes 
+   of the set index, to pass information to subroutines */
+
+	opt = (OPT) ALLOCP(type_opt);
+	opt->opt_g_flags |= opt_g_stream;
+
+/* generate a new rsb for the retrieval, making sure to 
+   preserve the inversion generated for the last rsb; note
+   that if the bitmap for the inversion has already been
+   generated, it will be reused since it is already part of
+   the impure area--I can't think of any reason not to reuse it--deej */
+
+	if (idx) {
+		new_rsb = gen_nav_rsb(tdbb, opt, old_rsb->rsb_stream, relation, 0, idx
+#ifdef SCROLLABLE_CURSORS
+							  , RSE_get_forward
+#endif
+			);
+		new_rsb->rsb_arg[RSB_NAV_inversion] = (RSB) inversion;
+		new_rsb->rsb_cardinality = old_rsb->rsb_cardinality;
+	}
+	else
+		new_rsb = gen_rsb(tdbb, opt, 0, inversion, old_rsb->rsb_stream,
+						  relation, 0, 0, (float) old_rsb->rsb_cardinality);
+
+/* point the impure area of the new rsb to the impure area of the
+   old; since impure area is pre-allocated it would be difficult 
+   to change now, so just use the same area; NOTE: this implies
+   that we must take some pains to ensure that the impure area is
+   always large enough to handle a maximum-key index */
+
+	new_rsb->rsb_impure = old_rsb->rsb_impure;
+
+/* find index node if the old rsb was navigational */
+
+	if (old_rsb->rsb_type == rsb_navigate)
+		index_node = (NOD) old_rsb->rsb_arg[RSB_NAV_index];
+	else
+		index_node = NULL;
+
+/* if the new rsb is navigational, set up impure space in request 
+   for new index node; to convert from non-navigational to navigational,
+   we need to adjust the impure area upwards to make room for an INV 
+   structure, and vice versa to convert the other way */
+
+	if (idx) {
+		new_index_node = (NOD) new_rsb->rsb_arg[RSB_NAV_index];
+		if (old_rsb->rsb_type == rsb_navigate)
+			new_index_node->nod_impure = index_node->nod_impure;
+		else {
+			new_index_node->nod_impure = old_rsb->rsb_impure;
+			new_rsb->rsb_impure += sizeof(struct inv);
+		}
+	}
+	else if (old_rsb->rsb_type == rsb_navigate)
+		new_rsb->rsb_impure -= sizeof(struct inv);
+
+/* if there was a previous index, release its lock 
+   and remove its resource from the request */
+
+	if (old_rsb->rsb_type == rsb_navigate) {
+		retrieval = (IRB) index_node->nod_arg[e_idx_retrieval];
+		index_id = retrieval->irb_index;
+		index = CMP_get_index_lock(tdbb, relation, index_id);
+		if (!--index->idl_count)
+			LCK_release(tdbb, index->idl_lock);
+		CMP_release_resource(&request->req_resources, rsc_index, index_id);
+	}
+
+/* get lock on new index */
+
+	if (idx) {
+		index = CMP_get_index_lock(tdbb, relation, idx->idx_id);
+		if (!index->idl_count)
+			LCK_lock_non_blocking(tdbb, index->idl_lock, LCK_SR, TRUE);
+		++index->idl_count;
+	}
+
+/* go out to the vector which stores all rsbs for the 
+   request, and replace the old with the new */
+
+	vector = request->req_fors;
+	for (i = 0; i < vector->vec_count; i++)
+		if (vector->vec_object[i] == (BLK) old_rsb) {
+			vector->vec_object[i] = (BLK) new_rsb;
+			break;
+		}
+
+/* release unneeded blocks */
+
+	ALL_RELEASE(opt);
+	if (index_node)
+		ALL_RELEASE(index_node);
+	ALL_RELEASE(old_rsb);
+
+	*rsb_ptr = new_rsb;
+}
+
+
+static BOOLEAN augment_stack(NOD node, LLS * stack)
+{
+/**************************************
+ *
+ *	a u g m e n t _ s t a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add node to stack unless node is already on stack.
+ *
+ **************************************/
+	LLS temp;
+
+	DEV_BLKCHK(node, type_nod);
+	DEV_BLKCHK(*stack, type_lls);
+
+	for (temp = *stack; temp; temp = temp->lls_next)
+		if (node_equality(node, (NOD) temp->lls_object))
+			return FALSE;
+
+	LLS_PUSH(node, stack);
+
+	return TRUE;
+}
+
+
+static void check_indices(csb_repeat * csb_tail)
+{
+/**************************************
+ *
+ *	c h e c k _ i n d i c e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to make sure that the user-specified
+ *	indices were actually utilized by the optimizer.
+ *         
+ **************************************/
+	TEXT index_name[32];
+	NOD plan, access_type;
+	REL relation;
+	IDX *idx;
+	USHORT i;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	if (!(plan = csb_tail->csb_plan))
+		return;
+
+	if (plan->nod_type != nod_retrieve)
+		return;
+
+	relation = csb_tail->csb_relation;
+
+/* if there were no indices fetched at all but the
+   user specified some, error out using the first
+   index specified */
+
+	if (!csb_tail->csb_indices &&
+		(access_type = plan->nod_arg[e_retrieve_access_type]))
+
+		/* index %s cannot be used in the specified plan */
+		ERR_post(gds_index_unused, gds_arg_string, access_type->nod_arg[2],
+				 0);
+
+/* check to make sure that all indices are either used or marked not to be used,
+   and that there are no unused navigational indices */
+
+	idx = csb_tail->csb_idx;
+	for (i = 0; i < csb_tail->csb_indices; i++) {
+		if (!(idx->idx_runtime_flags & (idx_plan_dont_use | idx_used)) ||
+			((idx->idx_runtime_flags & idx_plan_navigate)
+			 && !(idx->idx_runtime_flags & idx_navigate)))
+			if (!
+				(idx->idx_runtime_flags &
+				 (idx_plan_missing | idx_plan_starts))) {
+				if (relation)
+					MET_lookup_index(tdbb, index_name, relation->rel_name,
+									 (USHORT) (idx->idx_id + 1));
+				else
+					index_name[0] = 0;
+
+				/* index %s cannot be used in the specified plan */
+				ERR_post(gds_index_unused, gds_arg_string,
+						 ERR_cstring(index_name), 0);
+			}
+
+		idx = NEXT_IDX(idx->idx_rpt, idx->idx_count);
+	}
+}
+
+
+static BOOLEAN check_relationship(OPT opt, USHORT position, USHORT stream)
+{
+/**************************************
+ *
+ *	c h e c k _ r e l a t i o n s h i p 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for a potential indexed relationship.
+ *
+ **************************************/
+	IRL relationship;
+	USHORT n;
+	opt::opt_repeat * tail, *end;
+
+	DEV_BLKCHK(opt, type_opt);
+
+	for (tail = opt->opt_rpt, end = tail + position; tail < end; tail++) {
+		n = tail->opt_stream;
+		for (relationship = opt->opt_rpt[n].opt_relationships; relationship;
+			 relationship = relationship->irl_next)
+			if (stream == relationship->irl_stream)
+				return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+static void check_sorts(RSE rse)
+{
+/**************************************
+ *
+ *	c h e c k _ s o r t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to optimize out unnecessary sorting. 
+ *
+ **************************************/
+	NOD sort, project, group, sub_rse;
+	NOD *group_ptr, *project_ptr, *sort_ptr;
+	NOD *group_end, *project_end, *sort_end;
+
+	DEV_BLKCHK(rse, type_nod);
+
+	sort = rse->rse_sorted;
+	project = rse->rse_projection;
+
+/* check if a GROUP BY exists using the same fields as the project or sort:
+   if so, the projection can be eliminated; if no projection exists, then 
+   the sort can be eliminated */
+
+	if ((project || sort) &&
+		(rse->rse_count == 1) &&
+		(sub_rse = rse->rse_relation[0]) &&
+		(sub_rse->nod_type == nod_aggregate) &&
+		(group = sub_rse->nod_arg[e_agg_group])) {
+		/* if all the fields of the project are the same as all the fields 
+		   of the group by, get rid of the project */
+
+		if (project && (project->nod_count == group->nod_count)) {
+			for (project_ptr = project->nod_arg, project_end =
+				 project_ptr + project->nod_count; project_ptr < project_end;
+				 project_ptr++) {
+				for (group_ptr = group->nod_arg, group_end =
+					 group_ptr + group->nod_count; group_ptr < group_end;
+					 group_ptr++)
+					if (map_equal
+						(*group_ptr, *project_ptr,
+						 sub_rse->nod_arg[e_agg_map])) break;
+
+				if (group_ptr == group_end)
+					break;
+			}
+
+			/* we can now ignore the project, but in case the project is being done 
+			   in descending order because of an order by, do the group by the same way */
+
+			if (project_ptr == project_end) {
+				set_direction(project, group);
+				project = rse->rse_projection = NULL;
+			}
+		}
+
+		/* if there is no projection, then we can make a similar optimization 
+		   for sort, except that sort may have fewer fields than group by */
+
+		if (!project && sort && (sort->nod_count <= group->nod_count)) {
+			for (sort_ptr = sort->nod_arg, sort_end =
+				 sort_ptr + sort->nod_count; sort_ptr < sort_end; sort_ptr++) {
+				for (group_ptr = group->nod_arg, group_end =
+					 group_ptr + sort->nod_count; group_ptr < group_end;
+					 group_ptr++)
+					if (map_equal
+						(*group_ptr, *sort_ptr,
+						 sub_rse->nod_arg[e_agg_map])) break;
+				if (group_ptr == group_end)
+					break;
+			}
+
+			/* if all the fields in the sort list match the first n fields in the 
+			   project list, we can ignore the sort, but update the sort order 
+			   (ascending/descending) to match that in the sort list */
+
+			if (sort_ptr == sort_end) {
+				set_direction(sort, group);
+				set_position(sort, group, sub_rse->nod_arg[e_agg_map]);
+				sort = rse->rse_sorted = NULL;
+			}
+		}
+
+	}
+
+/* examine the ORDER BY and DISTINCT clauses; if all the fields in the 
+   ORDER BY match the first n fields in the DISTINCT in any order, the 
+   ORDER BY can be removed, changing the fields in the DISTINCT to match 
+   the ordering of fields in the ORDER BY */
+
+	if (sort && project && (sort->nod_count <= project->nod_count)) {
+		for (sort_ptr = sort->nod_arg, sort_end = sort_ptr + sort->nod_count;
+			 sort_ptr < sort_end; sort_ptr++) {
+			for (project_ptr = project->nod_arg, project_end =
+				 project_ptr + sort->nod_count; project_ptr < project_end;
+				 project_ptr++)
+				if ((*sort_ptr)->nod_type == nod_field
+					&& (*project_ptr)->nod_type == nod_field
+					&& (*sort_ptr)->nod_arg[e_fld_stream] ==
+					(*project_ptr)->nod_arg[e_fld_stream]
+					&& (*sort_ptr)->nod_arg[e_fld_id] ==
+					(*project_ptr)->nod_arg[e_fld_id])
+					break;
+
+			if (project_ptr == project_end)
+				break;
+		}
+
+		/* if all the fields in the sort list match the first n fields in the 
+		   project list, we can ignore the sort, but update the project to match the sort */
+
+		if (sort_ptr == sort_end) {
+			set_direction(sort, project);
+			set_position(sort, project, NULL);
+			sort = rse->rse_sorted = NULL;
+		}
+	}
+}
+
+
+static void class_mask(USHORT count, NOD * class_, ULONG * mask)
+{
+/**************************************
+ *
+ *	c l a s s _ m a s k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given an sort/merge join equivalence class (vector of node pointers
+ *	of representative values for rivers), return a bit mask of rivers
+ *	with values.
+ *
+ **************************************/
+	SLONG i;
+
+#ifdef DEV_BUILD
+	if (*class_)
+		DEV_BLKCHK(*class_, type_nod);
+#endif
+
+	if (count > MAX_CONJUNCTS)
+		ERR_post(isc_optimizer_blk_exc, 0);
+	/* Msg442: size of optimizer block exceeded */
+
+	for (i = 0; i < OPT_BITS; i++)
+		mask[i] = 0;
+
+	for (i = 0; i < count; i++, class_++)
+		if (*class_) {
+			SET_DEP_BIT(mask, i);
+			DEV_BLKCHK(*class_, type_nod);
+		}
+}
+
+
+static void clear_bounds(OPT opt, IDX * idx)
+{
+/**************************************
+ *
+ *	c l e a r _ b o u n d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear upper and lower value slots before matching booleans to
+ *	indices.
+ *
+ **************************************/
+	register opt::opt_repeat * tail, *opt_end;
+
+	DEV_BLKCHK(opt, type_opt);
+
+	opt_end = &opt->opt_rpt[idx->idx_count];
+
+	for (tail = opt->opt_rpt; tail < opt_end; tail++) {
+		tail->opt_lower = NULL;
+		tail->opt_upper = NULL;
+		tail->opt_match = NULL;
+	}
+}
+
+
+static NOD compose(NOD * node1, NOD node2, NOD_T node_type)
+{
+/**************************************
+ *
+ *	c o m p o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build and AND out of two conjuncts.
+ *
+ **************************************/
+
+	DEV_BLKCHK(*node1, type_nod);
+	DEV_BLKCHK(node2, type_nod);
+
+	if (!node2)
+		return *node1;
+
+	if (!*node1)
+		return (*node1 = node2);
+
+	return *node1 = make_binary_node(node_type, *node1, node2, FALSE);
+}
+
+
+static BOOLEAN computable(CSB csb,
+						  register NOD node, SSHORT stream, BOOLEAN idx_use)
+{
+/**************************************
+ *
+ *	c o m p u t a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if node is presently computable.  
+ *	Note that a field is not computable
+ *	with respect to its own stream.
+ *
+ * There are two different uses of computable(). 
+ * (a) idx_use == FALSE: when an unused conjunct is to be picked for making
+ *     into a boolean and in making a db_key. 
+ *     In this case, a node is said to be computable, if all the streams 
+ *     involved in that node are csb_active. The csb_active flag 
+ *     defines all the streams available in the current scope of the
+ *     query.
+ * (b) idx_use == TRUE: to determine if we can use an
+ *     index on the conjunct we have already chosen.
+ *     In order to use an index on a conjunct, it is required that the
+ *     all the streams involved in the conjunct are currently active
+ *     or have been already processed before and made into rivers.
+ *     Because, here we want to differentiate between streams we have
+ *     not yet worked on and those that we have worked on or are currently
+ *     working on.
+ *
+ **************************************/
+	RSE rse;
+	NOD *ptr, *end, sub, value;
+	USHORT n;
+	BOOLEAN result;
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(node, type_nod);
+
+/* Recurse thru interesting sub-nodes */
+
+	ptr = node->nod_arg;
+
+	if (node->nod_type == nod_procedure)
+		return FALSE;
+
+	for (end = ptr + node->nod_count; ptr < end; ptr++)
+		if (!computable(csb, *ptr, stream, idx_use))
+			return FALSE;
+
+	switch (node->nod_type) {
+	case nod_field:
+		if ((n = (USHORT) node->nod_arg[e_fld_stream]) == stream)
+			return FALSE;
+		if (idx_use
+			&& !(csb->csb_rpt[n].
+				 csb_flags & (csb_made_river | csb_active))) return FALSE;
+		if (!idx_use && !(csb->csb_rpt[n].csb_flags & csb_active))
+			return FALSE;
+		return TRUE;
+
+	case nod_dbkey:
+		if ((n = (USHORT) node->nod_arg[0]) == stream)
+			return FALSE;
+		if (idx_use
+			&& !(csb->csb_rpt[n].
+				 csb_flags & (csb_made_river | csb_active))) return FALSE;
+		if (!idx_use && !(csb->csb_rpt[n].csb_flags & csb_active))
+			return FALSE;
+		return TRUE;
+
+	case nod_min:
+	case nod_max:
+	case nod_average:
+	case nod_total:
+	case nod_count:
+	case nod_from:
+		if ((sub = node->nod_arg[e_stat_default]) &&
+			!computable(csb, sub, stream, idx_use))
+			return FALSE;
+		rse = (RSE) node->nod_arg[e_stat_rse];
+		value = node->nod_arg[e_stat_value];
+		break;
+
+	case nod_rse:
+		rse = (RSE) node;
+		value = NULL;
+		break;
+
+	case nod_aggregate:
+		rse = (RSE) node->nod_arg[e_agg_rse];
+		rse->rse_sorted = node->nod_arg[e_agg_group];
+		value = NULL;
+		break;
+
+	default:
+		return TRUE;
+	}
+
+/* Node is a record selection expression. */
+
+	result = TRUE;
+
+	if ((sub = rse->rse_first) && !computable(csb, sub, stream, idx_use))
+		return FALSE;
+
+/* Set sub-streams of rse active */
+
+	for (ptr = rse->rse_relation, end = ptr + rse->rse_count; ptr < end;
+		 ptr++) if ((*ptr)->nod_type != nod_rse) {
+			n = (USHORT) (*ptr)->nod_arg[STREAM_INDEX((*ptr))];
+			csb->csb_rpt[n].csb_flags |= csb_active;
+		}
+
+/* Check sub-stream */
+
+	if (((sub = rse->rse_boolean) && !computable(csb, sub, stream, idx_use))
+		|| ((sub = rse->rse_sorted) && !computable(csb, sub, stream, idx_use))
+		|| ((sub = rse->rse_projection)
+			&& !computable(csb, sub, stream, idx_use)))
+		result = FALSE;
+
+	for (ptr = rse->rse_relation, end = ptr + rse->rse_count;
+		 ((ptr < end) && (result)); ptr++)
+		if ((*ptr)->nod_type != nod_rse) {
+			if (!computable(csb, (*ptr), stream, idx_use))
+				result = FALSE;
+		}
+
+/* Check value expression, if any */
+
+	if (result && value && !computable(csb, value, stream, idx_use))
+		result = FALSE;
+
+/* Reset streams inactive */
+
+	for (ptr = rse->rse_relation, end = ptr + rse->rse_count; ptr < end;
+		 ptr++) if ((*ptr)->nod_type != nod_rse) {
+			n = (USHORT) (*ptr)->nod_arg[STREAM_INDEX((*ptr))];
+			csb->csb_rpt[n].csb_flags &= ~csb_active;
+		}
+
+	return result;
+}
+
+
+static void compute_dependencies(NOD node, ULONG * dependencies)
+{
+/**************************************
+ *
+ *	c o m p u t e _ d e p e n d e n c i e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute stream dependencies for evaluation of an expression.
+ *
+ **************************************/
+	RSE rse;
+	NOD *ptr, *end, sub, value;
+	USHORT n;
+
+	DEV_BLKCHK(node, type_nod);
+
+/* Recurse thru interesting sub-nodes */
+
+	ptr = node->nod_arg;
+
+	if (node->nod_type == nod_procedure)
+		return;
+
+	for (end = ptr + node->nod_count; ptr < end; ptr++)
+		compute_dependencies(*ptr, dependencies);
+
+	switch (node->nod_type) {
+	case nod_field:
+		n = (USHORT) node->nod_arg[e_fld_stream];
+		SET_DEP_BIT(dependencies, n);
+		return;
+
+	case nod_dbkey:
+		n = (USHORT) node->nod_arg[0];
+		SET_DEP_BIT(dependencies, n);
+		return;
+
+	case nod_min:
+	case nod_max:
+	case nod_average:
+	case nod_total:
+	case nod_count:
+	case nod_from:
+		if (sub = node->nod_arg[e_stat_default])
+			compute_dependencies(sub, dependencies);
+		rse = (RSE) node->nod_arg[e_stat_rse];
+		value = node->nod_arg[e_stat_value];
+		break;
+
+	case nod_rse:
+		rse = (RSE) node;
+		value = NULL;
+		break;
+
+	default:
+		return;
+	}
+
+/* Node is a record selection expression.  Groan.  Ugh.  Yuck. */
+
+	if (sub = rse->rse_first)
+		compute_dependencies(sub, dependencies);
+
+/* Check sub-expressions */
+
+	if (sub = rse->rse_boolean)
+		compute_dependencies(sub, dependencies);
+
+	if (sub = rse->rse_sorted)
+		compute_dependencies(sub, dependencies);
+
+	if (sub = rse->rse_projection)
+		compute_dependencies(sub, dependencies);
+
+/* Check value expression, if any */
+
+	if (value)
+		compute_dependencies(value, dependencies);
+
+/* Reset streams inactive */
+
+	for (ptr = rse->rse_relation, end = ptr + rse->rse_count; ptr < end;
+		 ptr++) if ((*ptr)->nod_type != nod_rse) {
+			n = (USHORT) (*ptr)->nod_arg[STREAM_INDEX((*ptr))];
+			CLEAR_DEP_BIT(dependencies, n);
+		}
+}
+
+
+static void compute_dbkey_streams(CSB csb, NOD node, UCHAR * streams)
+{
+/**************************************
+ *
+ *	c o m p u t e _ d b k e y _ s t r e a m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Identify all of the streams for which a
+ *	dbkey may need to be carried through a sort.
+ *
+ **************************************/
+	NOD clauses, *ptr, *end;
+	RSE rse;
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(node, type_nod);
+
+	if (node->nod_type == nod_relation)
+		streams[++streams[0]] = (UCHAR) node->nod_arg[e_rel_stream];
+	else if (node->nod_type == nod_union) {
+		clauses = node->nod_arg[e_uni_clauses];
+		if (clauses->nod_type != nod_procedure)
+			for (ptr = clauses->nod_arg, end = ptr + clauses->nod_count;
+				 ptr < end; ptr += 2)
+				compute_dbkey_streams(csb, *ptr, streams);
+	}
+	else if (node->nod_type == nod_rse) {
+		rse = (RSE) node;
+		for (ptr = rse->rse_relation, end = ptr + rse->rse_count; ptr < end;
+			 ptr++)
+			compute_dbkey_streams(csb, *ptr, streams);
+	}
+}
+
+
+static void compute_rse_streams(CSB csb, RSE rse, UCHAR * streams)
+{
+/**************************************
+ *
+ *	c o m p u t e _ r s e _ s t r e a m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Identify the streams that make up an rse.
+ *
+ **************************************/
+	NOD *ptr, *end, node;
+
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(rse, type_nod);
+
+	for (ptr = rse->rse_relation, end = ptr + rse->rse_count; ptr < end;
+		 ptr++) {
+		node = *ptr;
+		if (node->nod_type != nod_rse)
+			streams[++streams[0]] = (UCHAR) node->nod_arg[STREAM_INDEX(node)];
+		else
+			compute_rse_streams(csb, (RSE) node, streams);
+	}
+}
+
+
+static SLONG decompose(TDBB tdbb,
+					   register NOD boolean_node, LLS * stack, CSB csb)
+{
+/**************************************
+ *
+ *	d e c o m p o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Decompose a boolean into a stack of conjuctions.
+ *
+ **************************************/
+	NOD arg, node;
+
+	DEV_BLKCHK(boolean_node, type_nod);
+	DEV_BLKCHK(*stack, type_lls);
+	DEV_BLKCHK(csb, type_csb);
+
+	if (boolean_node->nod_type == nod_and)
+		return decompose(tdbb, boolean_node->nod_arg[0], stack, csb) +
+			decompose(tdbb, boolean_node->nod_arg[1], stack, csb);
+
+/* turn a between into (a greater than or equal) AND (a less than  or equal) */
+
+	if (boolean_node->nod_type == nod_between) {
+		arg = boolean_node->nod_arg[0];
+		if (arg->nod_type == nod_from) {
+			/* Without this ERR_punt(), server was crashing with sub queries 
+			 * under "between" predicate, Bug No. 73766 */
+			ERR_post(isc_optimizer_between_err, 0);
+			/* Msg 493: Unsupported field type specified in BETWEEN predicate */
+		}
+		node = make_binary_node(nod_geq, arg, boolean_node->nod_arg[1], TRUE);
+		LLS_PUSH(node, stack);
+		arg = CMP_clone_node(tdbb, csb, arg);
+		node = make_binary_node(nod_leq, arg, boolean_node->nod_arg[2], TRUE);
+		LLS_PUSH(node, stack);
+		return 2;
+	}
+
+/* turn a LIKE into a LIKE and a STARTING WITH, if it starts
+   with anything other than a pattern-matching character */
+
+	if ((boolean_node->nod_type == nod_like) &&
+		(arg = optimize_like(tdbb, boolean_node))) {
+		node =
+			make_binary_node(nod_starts, boolean_node->nod_arg[0], arg,
+							 FALSE);
+		LLS_PUSH(node, stack);
+		LLS_PUSH(boolean_node, stack);
+		return 2;
+	}
+
+	LLS_PUSH(boolean_node, stack);
+
+	return 1;
+}
+
+
+static USHORT distribute_equalities(LLS * org_stack, CSB csb)
+{
+/**************************************
+ *
+ *	d i s t r i b u t e _ e q u a l i t i e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a stack of conjunctions, generate some simple
+ *	inferences.  In general, find classes of equalities,
+ *	then find operations based on members of those classes.
+ *	If we find any, generate additional conjunctions.  In
+ *	SSHORT:
+ *
+ *		If (a == b) and (a $ c) --> (b $ c) for any
+ *		operation '$'.
+ *
+ **************************************/
+	LLS classes[MAX_OPT_ITEMS], *class_, *class2, *end, stack, temp;
+	NOD boolean, node1, node2, new_node, arg1, arg2;
+	USHORT reverse, count, n;
+
+	DEV_BLKCHK(*org_stack, type_lls);
+	DEV_BLKCHK(csb, type_csb);
+
+/* Zip thru stack of booleans looking for field equalities */
+
+	end = classes;
+
+	for (stack = *org_stack; stack; stack = stack->lls_next) {
+		boolean = (NOD) stack->lls_object;
+		if (boolean->nod_type != nod_eql)
+			continue;
+		node1 = boolean->nod_arg[0];
+		if (node1->nod_type != nod_field)
+			continue;
+		node2 = boolean->nod_arg[1];
+		if (node2->nod_type != nod_field)
+			continue;
+		for (class_ = classes; class_ < end; class_++)
+			if (search_stack(node1, *class_)) {
+				augment_stack(node2, class_);
+				break;
+			}
+			else if (search_stack(node2, *class_)) {
+				LLS_PUSH(node1, class_);
+				break;
+			}
+		if (class_ == end) {
+			*class_ = NULL;
+			++end;
+			LLS_PUSH(node1, class_);
+			LLS_PUSH(node2, class_);
+		}
+	}
+
+	if (end == classes)
+		return 0;
+
+/* Make another pass looking for any equality relationships that may
+   have crept in between classes (this could result from the
+   sequence (A = B, C = D, B = C) */
+
+	for (class_ = classes; class_ < end; class_++)
+		for (stack = *class_; stack; stack = stack->lls_next)
+			for (class2 = class_ + 1; class2 < end; class2++)
+				if (search_stack((NOD) stack->lls_object, *class2)) {
+					DEBUG;
+					while (*class2)
+						augment_stack((NOD) LLS_POP(class2), class_);
+				}
+
+	count = 0;
+
+/* Start by making a pass distributing field equalities */
+
+	for (class_ = classes; class_ < end; class_++) {
+		for (stack = *class_, n = 0; stack; stack = stack->lls_next)
+			n++;
+		if (n >= 3)
+			for (stack = *class_; stack; stack = stack->lls_next)
+				for (temp = stack->lls_next; temp; temp = temp->lls_next) {
+					boolean =
+						make_binary_node(nod_eql, (NOD) stack->lls_object,
+										 (NOD) temp->lls_object, TRUE);
+					if (augment_stack(boolean, org_stack)) {
+						DEBUG;
+						count++;
+					}
+					else
+						ALL_RELEASE(boolean);
+				}
+	}
+
+/* Now make a second pass looking for non-field equalities */
+
+	for (stack = *org_stack; stack; stack = stack->lls_next) {
+		boolean = (NOD) stack->lls_object;
+		if (boolean->nod_type != nod_eql &&
+			boolean->nod_type != nod_gtr &&
+			boolean->nod_type != nod_geq &&
+			boolean->nod_type != nod_leq &&
+			boolean->nod_type != nod_lss &&
+			boolean->nod_type != nod_matches &&
+			boolean->nod_type != nod_contains &&
+			boolean->nod_type != nod_like) continue;
+		node1 = boolean->nod_arg[0];
+		node2 = boolean->nod_arg[1];
+		reverse = FALSE;
+		if (node1->nod_type != nod_field) {
+			new_node = node1;
+			node1 = node2;
+			node2 = new_node;
+			reverse = TRUE;
+		}
+		if (node1->nod_type != nod_field)
+			continue;
+		if (node2->nod_type != nod_literal &&
+			node2->nod_type != nod_variable &&
+			node2->nod_type != nod_argument) continue;
+		for (class_ = classes; class_ < end; class_++)
+			if (search_stack(node1, *class_)) {
+				for (temp = *class_; temp; temp = temp->lls_next)
+					if (!node_equality(node1, (NOD) temp->lls_object)) {
+						if (reverse) {
+							arg1 = boolean->nod_arg[0];
+							arg2 = (NOD) temp->lls_object;
+						}
+						else {
+							arg1 = (NOD) temp->lls_object;
+							arg2 = boolean->nod_arg[1];
+						}
+
+						/* From the conjuncts X(A,B) and A=C, infer the
+						 * conjunct X(C,B)
+						 */
+						new_node =
+							make_inference_node(csb, boolean, arg1, arg2);
+						if (augment_stack(new_node, org_stack))
+							count++;
+					}
+				break;
+			}
+	}
+
+	return count;
+}
+
+
+static BOOLEAN dump_index(NOD node,
+						  SCHAR ** buffer_ptr, SSHORT * buffer_length)
+{
+/**************************************
+ *
+ *	d u m p _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump an index inversion tree to 
+ *	an info buffer.
+ *
+ **************************************/
+	SCHAR *buffer;
+	IRB retrieval;
+	TEXT index_name[32], *i;
+	SSHORT length;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	DEV_BLKCHK(node, type_nod);
+
+	buffer = *buffer_ptr;
+
+	if (--(*buffer_length) < 0)
+		return FALSE;
+
+/* spit out the node type */
+
+	if (node->nod_type == nod_bit_and)
+		*buffer++ = gds_info_rsb_and;
+	else if (node->nod_type == nod_bit_or)
+		*buffer++ = gds_info_rsb_or;
+	else if (node->nod_type == nod_bit_dbkey)
+		*buffer++ = gds_info_rsb_dbkey;
+	else if (node->nod_type == nod_index)
+		*buffer++ = gds_info_rsb_index;
+
+/* dump sub-nodes or the actual index info */
+
+	if ((node->nod_type == nod_bit_and) || (node->nod_type == nod_bit_or)) {
+		if (!dump_index(node->nod_arg[0], &buffer, buffer_length))
+			return FALSE;
+		if (!dump_index(node->nod_arg[1], &buffer, buffer_length))
+			return FALSE;
+	}
+	else if (node->nod_type == nod_index) {
+		retrieval = (IRB) node->nod_arg[e_idx_retrieval];
+		MET_lookup_index(tdbb, index_name, retrieval->irb_relation->rel_name,
+						 (USHORT) (retrieval->irb_index + 1));
+		length = strlen(index_name);
+
+		if ((*buffer_length -= (length + 1)) >= 0) {
+			*buffer++ = (SCHAR) length;
+			i = index_name;
+			while (length--)
+				*buffer++ = *i++;
+		}
+	}
+
+	*buffer_ptr = buffer;
+
+	return TRUE;
+}
+
+
+static BOOLEAN dump_rsb(REQ request,
+						RSB rsb, SCHAR ** buffer_ptr, SSHORT * buffer_length)
+{
+/**************************************
+ *
+ *	d u m p _ r s b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns a formatted access path for
+ *	a particular rsb.
+ *
+ **************************************/
+	USHORT length;
+	REL relation;
+	STR alias;
+	SCHAR *name, *buffer;
+	RSB *ptr, *end;
+	SSHORT return_length;
+	PRC procedure;
+
+	DEV_BLKCHK(rsb, type_rsb);
+
+	buffer = *buffer_ptr;
+
+/* leave room for the rsb begin, type, and end */
+
+	if ((*buffer_length -= 4) < 0)
+		return FALSE;
+	*buffer++ = gds_info_rsb_begin;
+
+/* dump out the alias or relation name if it exists */
+
+	name = NULL;
+	relation = rsb->rsb_relation;
+
+	if (alias = rsb->rsb_alias) {
+		length = alias->str_length;
+		name = (SCHAR *) alias->str_data;
+	}
+	else if (relation) {
+		length = strlen(relation->rel_name);
+		name = relation->rel_name;
+	}
+
+	if (name) {
+		*buffer_length -= 2 + length;
+		if (*buffer_length < 0)
+			return FALSE;
+		*buffer++ = gds_info_rsb_relation;
+		*buffer++ = (SCHAR) length;
+		while (length--)
+			*buffer++ = *name++;
+	}
+
+/* print out the type followed immediately by any
+   type-specific data */
+
+	*buffer++ = gds_info_rsb_type;
+	switch (rsb->rsb_type) {
+	case rsb_indexed:
+		*buffer++ = gds_info_rsb_indexed;
+		if (!dump_index((NOD) rsb->rsb_arg[0], &buffer, buffer_length))
+			return FALSE;
+		if (--(*buffer_length) < 0)
+			return FALSE;
+		break;
+
+	case rsb_navigate:
+		*buffer++ = gds_info_rsb_navigate;
+		if (!dump_index
+			((NOD) rsb->rsb_arg[RSB_NAV_index], &buffer,
+			 buffer_length)) return FALSE;
+		if (--(*buffer_length) < 0)
+			return FALSE;
+		break;
+
+	case rsb_sequential:
+		*buffer++ = gds_info_rsb_sequential;
+		break;
+
+	case rsb_cross:
+		*buffer++ = gds_info_rsb_cross;
+		break;
+
+	case rsb_sort:
+		*buffer++ = gds_info_rsb_sort;
+		break;
+
+	case rsb_procedure:
+		*buffer++ = gds_info_rsb_procedure;
+
+		/* don't try to print out plans of procedures called by procedures, since 
+		   we could get into a recursive situation; if the customer wants to know 
+		   the plan produced by the sub-procedure, they can invoke it directly */
+
+		if (request->req_procedure)
+			break;
+
+		procedure = rsb->rsb_procedure;
+		if (!procedure || !procedure->prc_request)
+			return FALSE;
+		if (!OPT_access_path
+			(procedure->prc_request, buffer, *buffer_length,
+			 reinterpret_cast < USHORT * >(&return_length)))
+			return FALSE;
+		if ((*buffer_length -= return_length) < 0)
+			return FALSE;
+		buffer += return_length;
+		break;
+
+	case rsb_first:
+		*buffer++ = gds_info_rsb_first;
+		break;
+
+	case rsb_boolean:
+		*buffer++ = gds_info_rsb_boolean;
+		break;
+
+	case rsb_union:
+		*buffer++ = gds_info_rsb_union;
+		break;
+
+	case rsb_aggregate:
+		*buffer++ = gds_info_rsb_aggregate;
+		break;
+
+	case rsb_merge:
+		*buffer++ = gds_info_rsb_merge;
+		break;
+
+	case rsb_ext_sequential:
+		*buffer++ = gds_info_rsb_ext_sequential;
+		break;
+
+	case rsb_ext_indexed:
+		*buffer++ = gds_info_rsb_ext_indexed;
+		break;
+
+	case rsb_ext_dbkey:
+		*buffer++ = gds_info_rsb_ext_dbkey;
+		break;
+
+	case rsb_left_cross:
+		*buffer++ = gds_info_rsb_left_cross;
+		break;
+
+	case rsb_select:
+		*buffer++ = gds_info_rsb_select;
+		break;
+
+	case rsb_sql_join:
+		*buffer++ = gds_info_rsb_sql_join;
+		break;
+
+	case rsb_simulate:
+		*buffer++ = gds_info_rsb_simulate;
+		break;
+
+	case rsb_sim_cross:
+		*buffer++ = gds_info_rsb_sim_cross;
+		break;
+
+	case rsb_once:
+		*buffer++ = gds_info_rsb_once;
+		break;
+
+	default:
+		*buffer++ = gds_info_rsb_unknown;
+		break;
+	}
+
+/* dump out any sub-rsbs; for join-type rses like cross
+   and merge, dump out the count of streams first, then
+   loop through the substreams and dump them out */
+
+	switch (rsb->rsb_type) {
+	case rsb_cross:
+		*buffer++ = (UCHAR) rsb->rsb_count;
+		for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count; ptr < end; ptr++)
+			if (!dump_rsb(request, *ptr, &buffer, buffer_length))
+				return FALSE;
+		break;
+
+	case rsb_union:
+		*buffer++ = rsb->rsb_count / 2;
+		for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count; ptr < end; ptr++) {
+			if (!dump_rsb(request, *ptr, &buffer, buffer_length))
+				return FALSE;
+			ptr++;
+		}
+		break;
+
+	case rsb_merge:
+		*buffer++ = (SCHAR) rsb->rsb_count;
+		for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count * 2; ptr < end;
+			 ptr += 2)
+			if (!dump_rsb(request, *ptr, &buffer, buffer_length))
+				return FALSE;
+		break;
+
+	case rsb_left_cross:
+		*buffer++ = 2;
+		if (!dump_rsb
+			(request, rsb->rsb_arg[RSB_LEFT_outer], &buffer,
+			 buffer_length)) return FALSE;
+		if (!dump_rsb
+			(request, rsb->rsb_arg[RSB_LEFT_inner], &buffer,
+			 buffer_length)) return FALSE;
+		break;
+	}
+
+/* dump out the next rsb */
+
+	if (rsb->rsb_next)
+		if (!dump_rsb(request, rsb->rsb_next, &buffer, buffer_length))
+			return FALSE;
+
+	*buffer++ = gds_info_rsb_end;
+
+	*buffer_ptr = buffer;
+
+	return TRUE;
+}
+
+
+static BOOLEAN estimate_cost(TDBB tdbb,
+							 OPT opt,
+							 USHORT stream,
+							 double *cost, double *resulting_cardinality)
+{
+/**************************************
+ *
+ *	e s t i m a t e _ c o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make an estimate of the cost to fetch a stream.  The cost
+ *	is a function of estimated cardinality of the relation, index
+ *	selectivity, and total boolean selectivity.  Since none of
+ *	this information is available, the estimates are likely to
+ *	be a bit weak.  Return TRUE if the relation is index 
+ *	retrievable.
+ *
+ **************************************/
+	CSB csb;
+	IDX *idx;
+	NOD node;
+	USHORT indexes, i, unique, equalities, inequalities, index_hits, count;
+	SSHORT n;
+	ULONG inactivities[OPT_BITS];
+	double s, selectivity, cardinality, index_selectivity;
+	register opt::opt_repeat * tail, *opt_end;
+	csb_repeat *csb_tail;
+
+	DEV_BLKCHK(opt, type_opt);
+	SET_TDBB(tdbb);
+
+	csb = opt->opt_csb;
+	csb_tail = &csb->csb_rpt[stream];
+	csb_tail->csb_flags |= csb_active;
+	cardinality = MAX(csb_tail->csb_cardinality, 10);
+	index_selectivity = 1.0;
+	indexes = equalities = inequalities = index_hits = 0;
+	unique = FALSE;
+	get_inactivities(csb, inactivities);
+
+/* Compute index selectivity.  This involves finding the indices
+   to be utilized and making a crude guess of selectivities.  */
+
+	if (opt->opt_count) {
+		idx = csb_tail->csb_idx;
+		for (i = 0; i < csb_tail->csb_indices; i++) {
+			n = 0;
+			clear_bounds(opt, idx);
+			opt_end = &opt->opt_rpt[opt->opt_count];
+			for (tail = opt->opt_rpt; tail < opt_end; tail++) {
+				node = tail->opt_conjunct;
+				if (!(tail->opt_flags & opt_used) &&
+					!(TEST_DEP_ARRAYS(tail->opt_dependencies, inactivities)))
+					n += match_index(tdbb, opt, stream, node, idx);
+			}
+			tail = opt->opt_rpt;
+			if (tail->opt_lower || tail->opt_upper) {
+				indexes++;
+				opt_end = opt->opt_rpt + idx->idx_count;
+				for (count = 0; tail < opt_end; tail++, count++)
+					if (!tail->opt_lower
+						|| tail->opt_lower != tail->opt_upper) break;
+				s = idx->idx_selectivity;
+				if (s <= 0 || s >= 1)
+					s = ESTIMATED_SELECTIVITY;
+				if (count == idx->idx_count) {
+					if (idx->idx_flags & idx_unique) {
+						unique = TRUE;
+						s = 1 / cardinality;
+					}
+				}
+				else
+					s *= INVERSE_ESTIMATE;
+				index_selectivity *= s;
+				index_hits += MAX(count, n);
+			}
+			idx = NEXT_IDX(idx->idx_rpt, idx->idx_count);
+		}
+	}
+
+/* We now known the relation cardinality, the combined index selectivity,
+   and the number of index lookups required.  From this we can compute the
+   cost of executing the record selection expression (cost of index lookups
+   plus the number of records fetched). */
+
+	if (indexes)
+		*cost = cardinality * index_selectivity + indexes * INDEX_COST;
+	else
+		*cost = cardinality;
+
+/* Next, we need to estimate the number of records coming out of the
+   record stream.  This is based on conjunctions without regard to whether
+   or not they were the result of index operations. */
+
+	opt_end = opt->opt_rpt + opt->opt_count;
+
+	for (tail = opt->opt_rpt; tail < opt_end; tail++) {
+		node = tail->opt_conjunct;
+		if (!(tail->opt_flags & opt_used) &&
+			!(TEST_DEP_ARRAYS(tail->opt_dependencies, inactivities))) {
+			if (node->nod_type == nod_eql)
+				++equalities;
+			else
+				++inequalities;
+			tail->opt_flags |= opt_used;
+		}
+	}
+
+	if ((n = inequalities + 3 * (equalities - index_hits)) > 0) {
+		selectivity = 0.3 / n;
+		if (selectivity > index_selectivity)
+			selectivity = index_selectivity;
+	}
+	else
+		selectivity = index_selectivity;
+
+	cardinality *= selectivity;
+
+	if (unique)
+		*resulting_cardinality = cardinality;
+	else
+		*resulting_cardinality = MAX(cardinality, 1.0);
+
+	csb_tail->csb_flags |= csb_active;
+
+	return (indexes != 0);
+}
+
+
+#ifdef EXPRESSION_INDICES
+static BOOLEAN expression_equal(TDBB tdbb, NOD node1, NOD node2)
+{
+/**************************************
+ *
+ *      e x p r e s s i o n _ e q u a l
+ *
+ **************************************
+ *
+ * Functional description
+ *      Determine if two expression trees are the same for 
+ *	the purposes of matching one half of a boolean expression 
+ *	to an index.
+ *
+ **************************************/
+	DSC *desc1, *desc2;
+
+	DEV_BLKCHK(node1, type_nod);
+	DEV_BLKCHK(node2, type_nod);
+
+	SET_TDBB(tdbb);
+
+	if (!node1 || !node2)
+		BUGCHECK(303);			/* msg 303 Invalid expression for evaluation */
+
+	if (node1->nod_type != node2->nod_type)
+		return FALSE;
+
+	switch (node1->nod_type) {
+	case nod_add:
+	case nod_multiply:
+	case nod_add2:
+	case nod_multiply2:
+		/* A+B is equivilant to B+A, ditto A*B==B*A */
+		/* Note: If one expression is A+B+C, but the other is B+C+A we won't
+		   necessarily match them */
+		if (expression_equal(tdbb, node1->nod_arg[0], node2->nod_arg[1]) &&
+			expression_equal(tdbb, node1->nod_arg[1], node2->nod_arg[0]))
+			return TRUE;
+		/* Fall into ... */
+	case nod_subtract:
+	case nod_divide:
+	case nod_subtract2:
+	case nod_divide2:
+	case nod_concatenate:
+		if (expression_equal(tdbb, node1->nod_arg[0], node2->nod_arg[0]) &&
+			expression_equal(tdbb, node1->nod_arg[1], node2->nod_arg[1]))
+			return TRUE;
+		break;
+
+	case nod_rec_version:
+	case nod_dbkey:
+		if (node1->nod_arg[0] == node2->nod_arg[1])
+			return TRUE;
+		break;
+
+	case nod_field:
+		/* don't compare stream id's because we will use computable() to make sure the 
+		   field is in the same stream as the index; the stream id of the index expression 
+		   is always 0 so it isn't usable for comparison */
+
+		if (node1->nod_arg[e_fld_id] == node2->nod_arg[e_fld_id])
+			return TRUE;
+		break;
+
+	case nod_function:
+		if ((node1->nod_arg[e_fun_function] == node2->nod_arg[e_fun_function])
+			&& expression_equal(tdbb, node1->nod_arg[e_fun_args],
+								node2->nod_arg[e_fun_args]))
+			return TRUE;
+		break;
+
+	case nod_literal:
+		desc1 = EVL_expr(tdbb, node1);
+		desc2 = EVL_expr(tdbb, node2);
+		if (!MOV_compare(desc1, desc2))
+			return TRUE;
+		break;
+
+	case nod_null:
+	case nod_user_name:
+	case nod_current_time:
+	case nod_current_date:
+	case nod_current_timestamp:
+		return TRUE;
+
+	case nod_value_if:
+	case nod_substr:
+		if (expression_equal(tdbb, node1->nod_arg[0], node2->nod_arg[0]) &&
+			expression_equal(tdbb, node1->nod_arg[1], node2->nod_arg[1]) &&
+			expression_equal(tdbb, node1->nod_arg[2], node2->nod_arg[2]))
+			return TRUE;
+		break;
+
+	case nod_gen_id:
+	case nod_gen_id2:
+		if (node1->nod_arg[e_gen_id] == node2->nod_arg[e_gen_id]) {
+			return TRUE;
+		}
+		break;
+
+	case nod_negate:
+	case nod_upcase:
+		if (expression_equal(tdbb, node1->nod_arg[0], node2->nod_arg[0])) {
+			return TRUE;
+		}
+		break;
+
+	case nod_cast:
+		desc1 = &((FMT) node1->nod_arg[e_cast_fmt])->fmt_desc[0];
+		desc2 = &((FMT) node2->nod_arg[e_cast_fmt])->fmt_desc[0];
+		if (DSC_EQUIV(desc1, desc2) &&
+			expression_equal(tdbb, node1->nod_arg[0], node2->nod_arg[0])) {
+			return TRUE;
+		}
+		break;
+
+	case nod_extract:
+		if (node1->nod_arg[e_extract_part] == node2->nod_arg[e_extract_part]
+			&& expression_equal(tdbb, node1->nod_arg[e_extract_value],
+								node2->nod_arg[e_extract_value])) {
+			return TRUE;
+		}
+		break;
+	default:
+		break;
+	}
+
+	return FALSE;
+}
+#endif
+
+
+static void find_best(TDBB tdbb,
+					  register OPT opt,
+					  USHORT stream,
+					  USHORT position,
+					  UCHAR * streams,
+					  NOD plan_node, double cost, double cardinality)
+{
+/**************************************
+ *
+ *	f i n d _ b e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the best join from the passed "stream" to 
+ *	the remaining "streams" in the rse.  This routine
+ *	uses recursion to successively consider all 
+ *	possible join orders which use indexed 
+ *	relationships to form joins.
+ *
+ **************************************/
+	CSB csb;
+	UCHAR *ptr, *stream_end;
+	double position_cost, position_cardinality, new_cost, new_cardinality;
+	USHORT flag_vector[MAX_STREAMS], *fv;
+	BOOLEAN done;
+	IRL relationship;
+	opt::opt_repeat * tail, *opt_end, *order_end, *stream_data;
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(plan_node, type_nod);
+#ifdef OPT_DEBUG
+/* this is used only in development so is not in the message file */
+	if (opt_debug_flag >= DEBUG_PUNT) {
+		ERR_post(gds_random, gds_arg_string, "punt", 0);
+	}
+#endif
+/* if a plan was specified, check that this order matches the order
+   that the user provided; this may seem like an ass-backwards way to 
+   enforce ordering, but I think it is important to follow the same
+   code path for SET PLAN as for a normal optimization--it reduces 
+   chances for bugs to be introduced, and forces the person maintaining
+   the optimizer to think about SET PLAN when new features are added --deej */
+	if (plan_node && (streams[position + 1] != stream)) {
+		return;
+	}
+/* do some initializations */
+	csb = opt->opt_csb;
+	csb->csb_rpt[stream].csb_flags |= csb_active;
+	stream_end = &streams[1] + streams[0];
+	opt_end = opt->opt_rpt + MAX(opt->opt_count, csb->csb_n_stream);
+	opt->opt_rpt[position].opt_stream = stream;
+	++position;
+	order_end = opt->opt_rpt + position;
+	stream_data = opt->opt_rpt + stream;
+/* Save the various flag bits from the optimizer block to reset its
+   state after each test. */
+	for (tail = opt->opt_rpt, fv = flag_vector; tail < opt_end; tail++) {
+		*fv++ = tail->opt_flags & (opt_stream_used | opt_used);
+	}
+/* Compute delta and total estimate cost to fetch this stream;
+   if a plan was specified, don't bother */
+	if (!plan_node) {
+		estimate_cost(tdbb, opt, stream, &position_cost,
+					  &position_cardinality);
+		new_cost = cost + cardinality * position_cost;
+		new_cardinality = position_cardinality * cardinality;
+	}
+
+	++opt->opt_combinations;
+/* If the partial order is either longer than any previous partial order,
+   or the same length and cheap, save order as "best" */
+	if (position > opt->opt_best_count ||
+		(position == opt->opt_best_count && new_cost < opt->opt_best_cost)) {
+		opt->opt_best_count = position;
+		opt->opt_best_cost = new_cost;
+		for (tail = opt->opt_rpt; tail < order_end; tail++) {
+			tail->opt_best_stream = tail->opt_stream;
+		}
+#ifdef OPT_DEBUG
+		if (opt_debug_flag >= DEBUG_CANDIDATE) {
+			print_order(opt, position, new_cardinality, new_cost);
+		}
+	}
+	else {
+		if (opt_debug_flag >= DEBUG_ALL) {
+			print_order(opt, position, new_cardinality, new_cost);
+		}
+#endif
+	}
+/* mark this stream as "used" in the sense that it is already included 
+   in this particular proposed stream ordering */
+	stream_data->opt_flags |= opt_stream_used;
+	done = FALSE;
+/* We need to prune the combinations to avoid spending all of our time 
+   recursing through find_best().  Based on experimentation, the cost of 
+   recursion becomes significant at about a 7 table join.  Therefore, 
+   make a simplifying assumption that if we have already seen a join 
+   ordering that is lower cost than this one, give up. */
+	if (position > 4) {
+		tail = opt->opt_rpt + position;
+		/* If we are the new low-cost join ordering, record that 
+		   fact.  Otherwise, give up. */
+		if (tail->opt_best_stream_cost == 0 ||
+			new_cost < tail->opt_best_stream_cost) {
+			tail->opt_best_stream_cost = new_cost;
+		}
+		else {
+			if (!plan_node) {
+				done = TRUE;
+			}
+		}
+	}
+
+/* if we've used up all the streams there's no reason to go any further */
+
+	if (position == streams[0]) {
+		done = TRUE;
+	}
+/* First, handle any streams that have direct unique indexed relationships to this
+   stream.  If there are any, we won't consider (now) indirect relationships */
+	if (!done) {
+		for (relationship = stream_data->opt_relationships; relationship;
+			 relationship = relationship->irl_next) {
+			if (relationship->irl_unique &&
+				(!(opt->
+				   opt_rpt[relationship->irl_stream].
+				   opt_flags & opt_stream_used))) {
+				for (ptr = streams + 1; ptr < stream_end; ptr++) {
+					if (*ptr == relationship->irl_stream) {
+						if (!plan_node) {
+							done = TRUE;
+						}
+						find_best(tdbb, opt, relationship->irl_stream,
+								  position, streams, plan_node, new_cost,
+								  new_cardinality);
+						break;
+					}
+				}
+			}
+		}
+	}
+
+/* Next, handle any streams that have direct indexed relationships to this
+   stream.  If there are any, we won't consider (now) indirect relationships */
+
+	if (!done) {
+		for (relationship = stream_data->opt_relationships; relationship;
+			 relationship = relationship->irl_next) {
+			if (!
+				(opt->opt_rpt[relationship->irl_stream].
+				 opt_flags & opt_stream_used)) {
+				for (ptr = streams + 1; ptr < stream_end; ptr++) {
+					if (*ptr == relationship->irl_stream) {
+						if (!plan_node) {
+							done = TRUE;
+						}
+						find_best(tdbb, opt, relationship->irl_stream,
+								  position, streams, plan_node, new_cost,
+								  new_cardinality);
+						break;
+					}
+				}
+			}
+		}
+	}
+
+/* If there were no direct relationships, look for indirect relationships */
+
+	if (!done)
+		for (ptr = streams + 1; ptr < stream_end; ptr++)
+			if (!(opt->opt_rpt[*ptr].opt_flags & opt_stream_used) &&
+				check_relationship(opt, position, *ptr))
+				find_best(tdbb, opt, *ptr, position,
+						  streams, plan_node, new_cost, new_cardinality);
+/* Clean up from any changes made for compute the cost for this stream */
+	csb->csb_rpt[stream].csb_flags &= ~csb_active;
+	for (tail = opt->opt_rpt, fv = flag_vector; tail < opt_end; tail++, fv++)
+		tail->opt_flags &= *fv;
+}
+
+
+static NOD find_dbkey(NOD dbkey, USHORT stream, SLONG * position)
+{
+/**************************************
+ *
+ *	f i n d _ d b k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Search a dbkey (possibly a concatenated one) for
+ *	a dbkey for specified stream.
+ *
+ **************************************/
+	NOD dbkey_temp, *ptr, *end;
+	DEV_BLKCHK(dbkey, type_nod);
+	if (dbkey->nod_type == nod_dbkey) {
+		if ((USHORT) dbkey->nod_arg[0] == stream)
+			return dbkey;
+		else {
+			*position = *position + 1;
+			return NULL;
+		}
+	}
+	else if (dbkey->nod_type == nod_concatenate)
+		for (ptr = dbkey->nod_arg, end = ptr + dbkey->nod_count;
+			 ptr < end; ptr++)
+			if (dbkey_temp = find_dbkey(*ptr, stream, position))
+				return dbkey_temp;
+	return NULL;
+}
+
+
+static USHORT find_order(TDBB tdbb,
+						 register OPT opt, UCHAR * streams, NOD plan_node)
+{
+/**************************************
+ *
+ *	f i n d _ o r d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a set of streams, select the "best order" to join them.
+ *	The "best order" is defined as longest, cheapest join order
+ *	(length, of course, takes precedence over cost).  The best
+ *	order is developed and returned in the optimization block.
+ *
+ **************************************/
+	UCHAR *stream, *stream_end;
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(plan_node, type_nod);
+	opt->opt_best_count = 0;
+/* if a plan was specified, the order is already 
+   present in the streams vector, so we only want
+   to try one order */
+	if (plan_node)
+		stream_end = &streams[1] + 1;
+	else
+		stream_end = &streams[1] + streams[0];
+/* Consider each stream as the leftmost stream in the join order;
+   for each stream, the best order from that stream is considered,
+   and the one which is best is placed into the opt block.  Thus
+   at the end of this loop the opt block holds the best order */
+	for (stream = streams + 1; stream < stream_end; stream++)
+		find_best(tdbb, opt, *stream, 0, streams, plan_node, (double) 0,
+				  (double) 1);
+#ifdef OPT_DEBUG
+	if (opt_debug_flag >= DEBUG_BEST) {
+		opt::opt_repeat * order_end, *tail;
+		order_end = opt->opt_rpt + opt->opt_best_count;
+		ib_fprintf(opt_debug_file,
+				   "find_order()  -- best_count: %2.2d, best_streams: ",
+				   opt->opt_best_count); for (tail = opt->opt_rpt;
+											  tail < order_end; tail++)
+			ib_fprintf(opt_debug_file, "%2.2d ", tail->opt_best_stream);
+		ib_fprintf(opt_debug_file,
+				   "\n\t\t\tbest_cost: %g\tcombinations: %ld\n",
+				   opt->opt_best_cost, opt->opt_combinations);
+	}
+#endif
+
+	return opt->opt_best_count;
+}
+
+
+static void find_rsbs(RSB rsb, LLS * stream_list, LLS * rsb_list)
+{
+/**************************************
+ *
+ *	f i n d _ r s b s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find all rsbs at or below the current one that map
+ *	to a single stream.  Save the stream numbers in a list.
+ *	For unions and aggregates also save the rsb pointer.
+ *
+ **************************************/
+	RSB *ptr, *end;
+#ifdef DEV_BUILD
+	DEV_BLKCHK(rsb, type_rsb);
+	DEV_BLKCHK(*stream_list, type_lls);
+	if (rsb_list)
+		DEV_BLKCHK(*rsb_list, type_lls);
+#endif
+	if (!rsb)
+		return;
+	switch (rsb->rsb_type) {
+	case rsb_union:
+	case rsb_aggregate:
+		if (rsb_list)
+			LLS_PUSH(rsb, rsb_list);
+	case rsb_indexed:
+	case rsb_sequential:
+	case rsb_ext_sequential:
+	case rsb_ext_indexed:
+	case rsb_procedure:
+		/* No need to go any farther down with these */
+
+		LLS_PUSH((BLK) rsb->rsb_stream, stream_list);
+		return;
+	case rsb_cross:
+		/* Loop through the sub-streams */
+
+		for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count; ptr < end; ptr++)
+			find_rsbs(*ptr, stream_list, rsb_list);
+		break;
+	case rsb_left_cross:
+		find_rsbs(rsb->rsb_arg[RSB_LEFT_outer], stream_list, rsb_list);
+		find_rsbs(rsb->rsb_arg[RSB_LEFT_inner], stream_list, rsb_list);
+		break;
+	case rsb_merge:
+		/* Loop through the sub-streams */
+
+		for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count * 2;
+			 ptr < end; ptr += 2)
+			find_rsbs(*ptr, stream_list, rsb_list);
+		break;
+	}
+
+	find_rsbs(rsb->rsb_next, stream_list, rsb_list);
+}
+
+
+static void form_rivers(TDBB tdbb,
+						OPT opt,
+						UCHAR * streams,
+						LLS * river_stack,
+						NOD * sort_clause,
+						NOD * project_clause, NOD plan_clause)
+{
+/**************************************
+ *
+ *	f o r m _ r i v e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Form streams into rivers according
+ *	to the user-specified plan.
+ *
+ **************************************/
+	NOD *ptr, *end, plan_node, relation_node;
+	USHORT count;
+	UCHAR temp[MAX_STREAMS];
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(*river_stack, type_lls);
+	if (sort_clause)
+		DEV_BLKCHK(*sort_clause, type_nod);
+	if (project_clause)
+		DEV_BLKCHK(*project_clause, type_nod);
+	DEV_BLKCHK(plan_clause, type_nod);
+	temp[0] = 0;
+	count = plan_clause->nod_count;
+/* this must be a join or a merge node, so go through
+   the substreams and place them into the temp vector
+   for formation into a river */
+	for (ptr = plan_clause->nod_arg, end = ptr + count; ptr < end; ptr++) {
+		plan_node = *ptr;
+		if (plan_node->nod_type == nod_merge
+			|| plan_node->nod_type == nod_join) {
+			form_rivers(tdbb, opt, streams, river_stack, sort_clause,
+						project_clause, plan_node);
+			continue;
+		}
+
+		/* at this point we must have a retrieval node, so put
+		   the stream into the river */
+
+		temp[0]++;
+		relation_node = plan_node->nod_arg[e_retrieve_relation];
+		temp[temp[0]] = (UCHAR) relation_node->nod_arg[e_rel_stream];
+	}
+
+/* just because the user specified a join does not mean that 
+   we are able to form a river;  thus form as many rivers out
+   of the join are as necessary to exhaust the streams */
+
+	do
+		count = find_order(tdbb, opt, temp, plan_node);
+	while (form_river
+		   (tdbb, opt, count, streams, temp, river_stack, sort_clause,
+			project_clause, 0));}
+
+
+static BOOLEAN form_river(TDBB tdbb,
+						  OPT opt,
+						  USHORT count,
+						  UCHAR * streams,
+						  UCHAR * temp,
+						  LLS * river_stack,
+						  NOD * sort_clause,
+						  NOD * project_clause, NOD plan_clause)
+{
+/**************************************
+ *
+ *	f o r m _ r i v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Form streams into rivers (combinations of streams). 
+ *
+ **************************************/
+	RSB rsb, *ptr;
+	CSB csb;
+	RIV river;
+	UCHAR *stream, *end_stream, *t2;
+	opt::opt_repeat * tail, *opt_end;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(*river_stack, type_lls);
+	if (sort_clause)
+		DEV_BLKCHK(*sort_clause, type_nod);
+	if (project_clause)
+		DEV_BLKCHK(*project_clause, type_nod);
+	DEV_BLKCHK(plan_clause, type_nod);
+	SET_TDBB(tdbb);
+	csb = opt->opt_csb;
+/* Allocate a river block and move the best order into it */
+	river = (RIV) ALLOCDV(type_riv, count);
+	LLS_PUSH(river, river_stack);
+	river->riv_count = (UCHAR) count;
+	if (count == 1) {
+		rsb = NULL;
+		ptr = &river->riv_rsb;
+	}
+	else {
+		river->riv_rsb = rsb = (RSB) ALLOCDV(type_rsb, count);
+		rsb->rsb_type = rsb_cross;
+		rsb->rsb_count = count;
+		rsb->rsb_impure = CMP_impure(csb, sizeof(struct irsb));
+		ptr = rsb->rsb_arg;
+	}
+
+	stream = river->riv_streams;
+	opt_end = opt->opt_rpt + count;
+	if (count != streams[0])
+		sort_clause = project_clause = NULL;
+	for (tail = opt->opt_rpt; tail < opt_end; tail++, stream++, ptr++) {
+		*stream = (UCHAR) tail->opt_best_stream;
+		*ptr =
+			gen_retrieval(tdbb, opt, *stream, sort_clause, project_clause,
+						  FALSE, FALSE, NULL);
+		sort_clause = project_clause = NULL;
+	}
+
+/* determine whether the rsb we just made should be marked as a projection */
+
+	if (rsb && rsb->rsb_arg[0]
+		&& ((RSB) rsb->rsb_arg[0])->rsb_flags & rsb_project)
+		rsb->rsb_flags |= rsb_project;
+	set_made_river(opt, river);
+	set_inactive(opt, river);
+/* Reform "temp" from streams not consumed */
+	stream = temp + 1;
+	end_stream = stream + temp[0];
+	if (!(temp[0] -= count))
+		return FALSE;
+	for (t2 = stream; t2 < end_stream; t2++) {
+		for (tail = opt->opt_rpt; tail < opt_end; tail++)
+			if (*t2 == tail->opt_best_stream)
+				goto used;
+		*stream++ = *t2;
+	  used:;
+	}
+
+	return TRUE;
+}
+
+
+
+static RSB gen_aggregate(TDBB tdbb, OPT opt, NOD node)
+{
+/**************************************
+ *
+ *	g e n _ a g g r e g a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate an RSB for each aggregate operation.
+ *      Generate an ASB for each DISTINCT aggregate.
+ *      
+ **************************************/
+	RSE rse;
+	RSB rsb;
+	CSB csb;
+	USHORT count;
+	NOD map, operator_, aggregate;
+	NOD *ptr, *end, from;
+	DSC descriptor, *desc;
+	ASB asb;
+	SKD *sort_key;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(node, type_nod);
+	SET_TDBB(tdbb);
+	csb = opt->opt_csb;
+	rse = (RSE) node->nod_arg[e_agg_rse];
+	rse->rse_sorted = node->nod_arg[e_agg_group];
+/* try to optimize MAX and MIN to use an index; for now, optimize 
+   only the simplest case, although it is probably possible 
+   to use an index in more complex situations */
+	map = node->nod_arg[e_agg_map];
+	if ((map->nod_count == 1) &&
+		(ptr = map->nod_arg) &&
+		(operator_ = (*ptr)->nod_arg[e_asgn_from]) &&
+		(operator_->nod_type == nod_agg_min
+		 || operator_->nod_type == nod_agg_max)) {
+		/* generate a sort block which the optimizer will try to map to an index */
+
+		aggregate = PAR_make_node(tdbb, 2);
+		aggregate->nod_type = nod_sort;
+		aggregate->nod_count = 1;
+		aggregate->nod_arg[0] = operator_->nod_arg[e_asgn_from];
+		/* in the max case, flag the sort as descending */
+		if (operator_->nod_type == nod_agg_max)
+			aggregate->nod_arg[1] = (NOD) TRUE;
+		rse->rse_aggregate = aggregate;
+	}
+
+/* allocate and optimize the record source block */
+
+	rsb = (RSB) ALLOCDV(type_rsb, 1);
+	rsb->rsb_type = rsb_aggregate;
+	rsb->rsb_stream = (UCHAR) node->nod_arg[e_agg_stream];
+	rsb->rsb_format = csb->csb_rpt[rsb->rsb_stream].csb_format;
+	rsb->rsb_next = OPT_compile(tdbb, csb, rse, NULL);
+	rsb->rsb_arg[0] = (RSB) node;
+	rsb->rsb_impure = CMP_impure(csb, sizeof(struct irsb));
+/* if the rse_aggregate is still set, that means the optimizer  
+   was able to match the field to an index, so flag that fact 
+   so that it can be handled in EVL_group */
+	if (rse->rse_aggregate) {
+		if (operator_->nod_type == nod_agg_min)
+			operator_->nod_type = nod_agg_min_indexed;
+		else if (operator_->nod_type == nod_agg_max)
+			operator_->nod_type = nod_agg_max_indexed;
+	}
+
+/* Now generate a separate ASB for each distinct operation;
+   note that this should be optimized to use indices if possible */
+
+	desc = &descriptor;
+	for (ptr = map->nod_arg, end = ptr + map->nod_count; ptr < end; ptr++) {
+		from = (*ptr)->nod_arg[e_asgn_from];
+		if ((from->nod_type == nod_agg_count_distinct)
+			|| (from->nod_type == nod_agg_total_distinct)
+			|| (from->nod_type == nod_agg_total_distinct2)
+			|| (from->nod_type == nod_agg_average_distinct2)
+			|| (from->nod_type == nod_agg_average_distinct)) {
+			count =
+				asb_delta + 1 + (sizeof(SKD) + sizeof(NOD *) -
+								 1) / sizeof(NOD *);
+			asb = (ASB) PAR_make_node(tdbb, count);
+			asb->nod_type = nod_asb;
+			asb->nod_count = 0;
+			/* build the sort key definition. Turn varying text and
+			   cstrings into text */
+			CMP_get_desc(tdbb, csb, from->nod_arg[0], desc);
+			if (desc->dsc_dtype == dtype_varying) {
+				desc->dsc_dtype = dtype_text;
+				desc->dsc_length -= sizeof(USHORT);
+			}
+			else if (desc->dsc_dtype == dtype_cstring) {
+				desc->dsc_dtype = dtype_text;
+				desc->dsc_length--;
+			}
+
+			sort_key = asb->asb_key_desc = (SKD *) asb->asb_key_data;
+			sort_key->skd_offset = 0;
+			assert(desc->dsc_dtype >= 0 &&
+				   desc->dsc_dtype <
+				   sizeof(sort_dtypes) / sizeof(sort_dtypes[0]));
+			sort_key->skd_dtype = sort_dtypes[desc->dsc_dtype];
+			/* as it is legal to have skd_dtype = 0
+			   I have removed these asserts, to avoid
+			   server restarts in debug mode.
+			   FSG 18.Dez.2000
+			 */
+			/*assert (sort_key->skd_dtype != 0); */
+			sort_key->skd_length = desc->dsc_length;
+			sort_key->skd_flags = SKD_ascending;
+			asb->nod_impure = CMP_impure(csb, sizeof(struct iasb));
+			asb->asb_desc = *desc;
+			from->nod_arg[1] = (NOD) asb;
+			from->nod_count = 2;
+		}
+	}
+
+	return rsb;
+}
+
+
+static RSB gen_boolean(TDBB tdbb, register OPT opt, RSB prior_rsb, NOD node)
+{
+/**************************************
+ *
+ *	g e n _ b o o l e a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile and optimize a record selection expression into a
+ *	set of record source blocks (rsb's).
+ *
+ **************************************/
+	register CSB csb;
+	register RSB rsb;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(node, type_nod);
+	DEV_BLKCHK(prior_rsb, type_rsb);
+	SET_TDBB(tdbb);
+	csb = opt->opt_csb;
+	rsb = (RSB) ALLOCDV(type_rsb, 1);
+	rsb->rsb_count = 1;
+	rsb->rsb_type = rsb_boolean;
+	rsb->rsb_next = prior_rsb;
+	rsb->rsb_arg[0] = (RSB) node;
+	rsb->rsb_impure = CMP_impure(csb, sizeof(struct irsb));
+	return rsb;
+}
+
+
+static RSB gen_first(TDBB tdbb, register OPT opt, RSB prior_rsb, NOD node)
+{
+/**************************************
+ *
+ *	g e n _ f i r s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile and optimize a record selection expression into a
+ *	set of record source blocks (rsb's).
+ *
+ **************************************/
+	register CSB csb;
+	register RSB rsb;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(prior_rsb, type_rsb);
+	DEV_BLKCHK(node, type_nod);
+	SET_TDBB(tdbb);
+	csb = opt->opt_csb;
+	rsb = (RSB) ALLOCDV(type_rsb, 1);
+	rsb->rsb_count = 1;
+	rsb->rsb_type = rsb_first;
+	rsb->rsb_next = prior_rsb;
+	rsb->rsb_arg[0] = (RSB) node;
+	rsb->rsb_impure = CMP_impure(csb, sizeof(struct irsb_first_n));
+	return rsb;
+}
+
+
+static void gen_join(TDBB tdbb,
+					 OPT opt,
+					 UCHAR * streams,
+					 LLS * river_stack,
+					 NOD * sort_clause, NOD * project_clause, NOD plan_clause)
+{
+/**************************************
+ *
+ *	g e n _ j o i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find all indexed relationships between streams, 
+ *	then form streams into rivers (combinations of 
+ * 	streams).    
+ *
+ **************************************/
+	DBB dbb;
+	FMT format;
+	REL relation;
+	CSB csb;
+	RIV river;
+	UCHAR temp[MAX_STREAMS], *stream, *end_stream, *t2;
+	IRL relationship;
+	opt::opt_repeat * tail;
+	csb_repeat *csb_tail, *csb_tail2;
+	USHORT count;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(*river_stack, type_lls);
+	DEV_BLKCHK(*sort_clause, type_nod);
+	DEV_BLKCHK(*project_clause, type_nod);
+	DEV_BLKCHK(plan_clause, type_nod);
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	csb = opt->opt_csb;
+	if (!streams[0])
+		return;
+/* If there is only a single stream, don't bother with a join */
+	if (streams[0] == 1) {
+		/* if a nod_cardinality references this stream,
+		   compute the cardinality even though we don't
+		   need it to optimize retrieval */
+
+		csb_tail = &csb->csb_rpt[streams[1]];
+		if (csb_tail->csb_flags & csb_compute) {
+			relation = csb_tail->csb_relation;
+			format = CMP_format(tdbb, csb, streams[1]);
+			csb_tail->csb_cardinality =
+				(float) DPM_data_pages(tdbb,
+									   relation) * dbb->dbb_page_size /
+				format->fmt_length;}
+
+		river = (RIV) ALLOCDV(type_riv, 1);
+		river->riv_count = 1;
+		river->riv_rsb =
+			gen_retrieval(tdbb, opt, streams[1], sort_clause, project_clause,
+						  FALSE, FALSE, NULL);
+		river->riv_streams[0] = streams[1];
+		LLS_PUSH(river, river_stack);
+		return;
+	}
+
+/* Compute cardinality and indexed relationships for all streams */
+
+	end_stream = streams + 1 + streams[0];
+	for (stream = streams + 1; stream < end_stream; stream++) {
+		csb_tail = &csb->csb_rpt[*stream];
+		relation = csb_tail->csb_relation;
+		format = CMP_format(tdbb, csb, *stream);
+		/* if this is an external file, set an arbitrary cardinality; 
+		   if a plan was specified, don't bother computing cardinality;
+		   otherwise give a rough estimate based on the number of data
+		   pages times the estimated number of records per page -- note
+		   this is an upper limit since all pages are probably not full
+		   and many of the records on page may be back versions */
+		if (relation->rel_file)
+			csb_tail->csb_cardinality = (float) 10000;
+		else if (plan_clause)
+			csb_tail->csb_cardinality = (float) 0;
+		else
+			csb_tail->csb_cardinality =
+				(float) DPM_data_pages(tdbb,
+									   relation) * dbb->dbb_page_size /
+				format->fmt_length;
+		/* find indexed relationships from this stream to every other stream */
+		tail = opt->opt_rpt + *stream;
+		csb_tail->csb_flags |= csb_active;
+		for (t2 = streams + 1; t2 < end_stream; t2++)
+			if (*t2 != *stream) {
+				csb_tail2 = &csb->csb_rpt[*t2];
+				csb_tail2->csb_flags |= csb_active;
+				if (relationship = indexed_relationship(tdbb, opt, *t2)) {
+					relationship->irl_next = tail->opt_relationships;
+					tail->opt_relationships = relationship;
+					relationship->irl_stream = *t2;
+				}
+				csb_tail2->csb_flags &= ~csb_active;
+			}
+		csb_tail->csb_flags &= ~csb_active;
+#ifdef OPT_DEBUG
+		if (opt_debug_flag >= DEBUG_RELATIONSHIPS) {
+			ib_fprintf(opt_debug_file,
+					   "gen_join () -- relationships from stream %2.2d: ",
+					   *stream); for (relationship = tail->opt_relationships;
+									  relationship;
+									  relationship =
+									  relationship->irl_next)
+					ib_fprintf(opt_debug_file, "%2.2d %s ",
+							   relationship->irl_stream,
+							   (relationship->irl_unique) ? "(unique)" : "");
+			ib_fprintf(opt_debug_file, "\n");
+		}
+#endif
+	}
+
+/* if the user specified a plan, force a join order;
+   otherwise try to find one */
+
+	if (plan_clause)
+		form_rivers(tdbb, opt, streams, river_stack, sort_clause,
+					project_clause, plan_clause);
+	else {
+		/* copy the streams vector to a temporary space to be used
+		   to form rivers out of streams */
+
+		MOVE_FAST(streams, temp, streams[0] + 1);
+		do
+			count = find_order(tdbb, opt, temp, 0);
+		while (form_river
+			   (tdbb, opt, count, streams, temp, river_stack, sort_clause,
+				project_clause, 0));}
+}
+
+
+static RSB gen_navigation(TDBB tdbb,
+						  OPT opt,
+						  USHORT stream,
+						  REL relation, STR alias, IDX * idx, NOD * sort_ptr)
+{
+/**************************************
+ *
+ *	g e n _ n a v i g a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if a navigational walk of an index is in order.  If so,
+ *	generate the appropriate RSB and zap the sort pointer.  If
+ *	not, return NULL.   Prior to ODS7, missing values sorted in
+ *	the wrong place for ascending indices, so don't use them.
+ *
+ **************************************/
+	NOD node, *ptr, *end, sort;
+	idx::idx_repeat * idx_tail;
+#ifdef SCROLLABLE_CURSORS
+	RSE_GET_MODE last_mode, mode;
+#endif
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(relation, type_rel);
+	DEV_BLKCHK(alias, type_str);
+	DEV_BLKCHK(*sort_ptr, type_nod);
+/* Check sort order against index.  If they don't match, give up and
+   go home.  Also don't bother if we have a non-unique index.
+   This is because null values aren't placed in a "good" spot in
+   the index in versions prior to V3.2. */
+	sort = *sort_ptr;
+/* if the number of fields in the sort is greater than the number of 
+   fields in the index, the index will not be used to optimize the    
+   sort--note that in the case where the first field is unique, this 
+   could be optimized, since the sort will be performed correctly by 
+   navigating on a unique index on the first field--deej */
+	if (sort->nod_count > idx->idx_count)
+		return NULL;
+/* not sure the significance of this magic number; if it's meant to 
+   signify that we shouldn't navigate on a system table, our catalog 
+   has grown beyond 16 tables--it doesn't seem like a problem 
+   to allow navigating through system tables, so I won't bump the 
+   number up, but I'll leave it at 16 for safety's sake--deej */
+	if (relation->rel_id <= 16)
+		return NULL;
+/* if the user-specified access plan for this request didn't
+   mention this index, forget it */
+	if ((idx->idx_runtime_flags & idx_plan_dont_use) &&
+		!(idx->idx_runtime_flags & idx_plan_navigate))
+		return NULL;
+/* check to see if the fields in the sort match the fields in the index 
+   in the exact same order--we used to check for ascending/descending prior 
+   to SCROLLABLE_CURSORS, but now descending sorts can use ascending indices 
+   and vice versa */
+#ifdef SCROLLABLE_CURSORS
+	last_mode = RSE_get_next;
+#endif
+	for (ptr = sort->nod_arg, end = ptr + sort->nod_count, idx_tail =
+		 idx->idx_rpt; ptr < end; ptr++, idx_tail++) {
+		node = *ptr;
+		if (node->nod_type != nod_field
+			|| (USHORT) node->nod_arg[e_fld_stream] != stream
+			|| (USHORT) node->nod_arg[e_fld_id] != idx_tail->idx_field
+#ifdef SCROLLABLE_CURSORS
+			)
+#else
+			|| (ptr[sort->nod_count]
+				&& !(idx->idx_flags & idx_descending))
+			|| (!ptr[sort->nod_count]
+				&& (idx->idx_flags & idx_descending)))
+#endif
+			return NULL;
+#ifdef SCROLLABLE_CURSORS
+		/* determine whether we ought to navigate backwards or forwards through 
+		   the index--we can't allow navigating one index in two different directions 
+		   on two different fields at the same time! */
+		mode = ((ptr[sort->nod_count] && !(idx->idx_flags & idx_descending))
+				|| (!ptr[sort->nod_count]
+					&& (idx->
+						idx_flags & idx_descending))) ? RSE_get_backward :
+			RSE_get_forward;
+		if (last_mode == RSE_get_next)
+			last_mode = mode;
+		else if (last_mode != mode)
+			return NULL;
+#endif
+	}
+
+
+/* Looks like we can do a navigational walk.  Flag that
+   we have used this index for navigation, and allocate
+   a navigational rsb for it. */
+
+	*sort_ptr = NULL;
+	idx->idx_runtime_flags |= idx_navigate;
+	return gen_nav_rsb(tdbb, opt, stream, relation, alias, idx
+#ifdef SCROLLABLE_CURSORS
+					   , mode
+#endif
+		);
+}
+
+
+static RSB gen_nav_rsb(TDBB tdbb,
+					   OPT opt,
+					   USHORT stream, REL relation, STR alias, IDX * idx
+#ifdef SCROLLABLE_CURSORS
+					   , RSE_GET_MODE mode
+#endif
+	)
+{
+/**************************************
+ *
+ *	g e n _ n a v _ r s b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a navigational rsb, either
+ *	for a compile or for a set index.
+ *
+ **************************************/
+	RSB rsb;
+	USHORT key_length, size;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(relation, type_rel);
+	DEV_BLKCHK(alias, type_str);
+	SET_TDBB(tdbb);
+	key_length = ROUNDUP(BTR_key_length(relation, idx), sizeof(SLONG));
+	rsb = (RSB) ALLOCDV(type_rsb, RSB_NAV_count);
+	rsb->rsb_type = rsb_navigate;
+	rsb->rsb_relation = relation;
+	rsb->rsb_stream = (UCHAR) stream;
+	rsb->rsb_alias = alias;
+	rsb->rsb_arg[RSB_NAV_index] =
+		(RSB) OPT_make_index(tdbb, opt, relation, idx);
+	rsb->rsb_arg[RSB_NAV_key_length] = (RSB) (SLONG) key_length;
+#ifdef SCROLLABLE_CURSORS
+/* indicate that the index needs to be navigated in a mirror-image   
+   fashion; that when the user wants to go backwards we actually go 
+   forwards and vice versa */
+	if (mode == RSE_get_backward)
+		rsb->rsb_flags |= rsb_descending;
+#endif
+/* if this is a blr_stream, adjust the allocated impure area 
+   to be based on the maximum key size so that the index may be
+   reset at any time to another index of larger key length
+   without adjusting the impure area offsets */
+	if (opt->opt_g_flags & opt_g_stream)
+		key_length = MAX_KEY;
+	size = nav_rsb_size(rsb, key_length, 0);
+	rsb->rsb_impure = CMP_impure(opt->opt_csb, size);
+	return rsb;
+}
+
+
+static RSB gen_outer(TDBB tdbb,
+					 OPT opt,
+					 RSE rse,
+					 LLS river_stack, NOD * sort_clause, NOD * project_clause)
+{
+/**************************************
+ *
+ *	g e n _ o u t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a top level outer join.  The "outer" and "inner"
+ *	sub-streams must be handled differently from each other.
+ *	The inner is like other streams.  The outer stream isn't
+ *	because conjuncts may not eliminate records from the
+ *	stream.  They only determine if a join with an inner
+ *	stream record is to be attempted.
+ *
+ **************************************/
+	RSB rsb;
+	struct {
+		RSB stream_rsb;
+		USHORT stream_num;
+	} stream_o, stream_i, *stream_ptr[2];
+	RIV river;
+	NOD node, boolean, inner_boolean;
+	SSHORT i;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(rse, type_nod);
+	DEV_BLKCHK(river_stack, type_lls);
+	DEV_BLKCHK(*sort_clause, type_nod);
+	SET_TDBB(tdbb);
+/* Determine which stream should be outer and which is inner.
+   In the case of a left join, the syntactically left stream is the 
+   outer, and the right stream is the inner.  For all others, swap 
+   the sense of inner and outer, though for a full join it doesn't 
+   matter and we should probably try both orders to see which is 
+   more efficient. */
+	if (rse->rse_jointype != blr_left) {
+		stream_ptr[1] = &stream_o;
+		stream_ptr[0] = &stream_i;
+	}
+	else {
+		stream_ptr[0] = &stream_o;
+		stream_ptr[1] = &stream_i;
+	}
+
+/* Loop through the outer join sub-streams in
+   reverse order because rivers may have been PUSHed */
+
+	for (i = 1; i >= 0; i--) {
+		node = rse->rse_relation[i];
+		if (node->nod_type == nod_union ||
+			node->nod_type == nod_aggregate ||
+			node->nod_type == nod_procedure || node->nod_type == nod_rse) {
+			river = (RIV) LLS_POP(&river_stack);
+			stream_ptr[i]->stream_rsb = river->riv_rsb;
+		}
+		else {
+			stream_ptr[i]->stream_rsb = NULL;
+			stream_ptr[i]->stream_num =
+				(USHORT) node->nod_arg[STREAM_INDEX(node)];}
+	}
+
+/* Generate rsbs for the sub-streams.  For the left sub-stream
+   we also will get a boolean back */
+
+	boolean = inner_boolean = NULL;
+	if (!stream_o.stream_rsb)
+		stream_o.stream_rsb =
+			gen_retrieval(tdbb, opt, stream_o.stream_num, sort_clause,
+						  project_clause, TRUE, FALSE, &boolean);
+/* in the case of a full join, we must make sure we don't exclude record from 
+   the inner stream; otherwise just retrieve it as we would for an inner join */
+	if (!stream_i.stream_rsb)
+		stream_i.stream_rsb = (rse->rse_jointype == blr_full) ?
+			gen_retrieval(tdbb, opt, stream_i.stream_num, sort_clause,
+						  project_clause, TRUE, TRUE,
+						  &inner_boolean) : gen_retrieval(tdbb, opt,
+														  stream_i.stream_num,
+														  sort_clause,
+														  project_clause,
+														  FALSE, TRUE, NULL);
+/* generate a parent boolean rsb for any remaining booleans that 
+   were not satisfied via an index lookup */
+	stream_i.stream_rsb =
+		gen_residual_boolean(tdbb, opt, stream_i.stream_rsb);
+/* Allocate and fill in the rsb */
+	rsb = (RSB) ALLOCDV(type_rsb, RSB_LEFT_count);
+	rsb->rsb_type = rsb_left_cross;
+	rsb->rsb_count = 2;
+	rsb->rsb_impure = CMP_impure(opt->opt_csb, sizeof(struct irsb));
+	rsb->rsb_arg[RSB_LEFT_outer] = stream_o.stream_rsb;
+	rsb->rsb_arg[RSB_LEFT_inner] = stream_i.stream_rsb;
+	rsb->rsb_arg[RSB_LEFT_boolean] = (RSB) boolean;
+	rsb->rsb_arg[RSB_LEFT_streams] = NULL;
+	rsb->rsb_arg[RSB_LEFT_rsbs] = NULL;
+	rsb->rsb_arg[RSB_LEFT_inner_boolean] = (RSB) inner_boolean;
+	rsb->rsb_arg[RSB_LEFT_inner_streams] = NULL;
+/* find all the outer and inner substreams and push them on a stack. */
+	find_rsbs(stream_i.stream_rsb,
+			  (LLS *) & rsb->rsb_arg[RSB_LEFT_streams],
+			  (LLS *) & rsb->rsb_arg[RSB_LEFT_rsbs]);
+	if (rse->rse_jointype == blr_full)
+		find_rsbs(stream_o.stream_rsb,
+				  (LLS *) & rsb->rsb_arg[RSB_LEFT_inner_streams], NULL);
+	return rsb;
+}
+
+
+static RSB gen_procedure(TDBB tdbb, OPT opt, NOD node)
+{
+/**************************************
+ *
+ *	g e n _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile and optimize a record selection expression into a
+ *	set of record source blocks (rsb's).
+ *
+ **************************************/
+	register CSB csb;
+	PRC procedure;
+	RSB rsb;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(node, type_nod);
+	SET_TDBB(tdbb);
+	csb = opt->opt_csb;
+	procedure = (PRC) node->nod_arg[e_prc_procedure];
+	rsb = (RSB) ALLOCDV(type_rsb, RSB_PRC_count);
+	rsb->rsb_type = rsb_procedure;
+	rsb->rsb_stream = (UCHAR) node->nod_arg[e_prc_stream];
+	rsb->rsb_procedure = procedure;
+	rsb->rsb_impure = CMP_impure(csb, sizeof(struct irsb_procedure));
+	rsb->rsb_arg[RSB_PRC_inputs] = (RSB) node->nod_arg[e_prc_inputs];
+	rsb->rsb_arg[RSB_PRC_in_msg] = (RSB) node->nod_arg[e_prc_in_msg];
+	return rsb;
+}
+
+
+static RSB gen_residual_boolean(TDBB tdbb, register OPT opt, RSB prior_rsb)
+{
+/**************************************
+ *
+ *	g e n _ r e s i d u a l _ b o o l e a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up any residual boolean remaining,
+ *	meaning those that have not been used 
+ *	as part of some join.  These booleans
+ *	must still be applied to the result stream.
+ *
+ **************************************/
+	NOD node, boolean;
+	register opt::opt_repeat * tail, *opt_end;
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(prior_rsb, type_rsb);
+	boolean = NULL;
+	opt_end = opt->opt_rpt + opt->opt_count;
+	for (tail = opt->opt_rpt; tail < opt_end; tail++) {
+		node = tail->opt_conjunct;
+		if (!(tail->opt_flags & opt_used)) {
+			compose(&boolean, node, nod_and);
+			tail->opt_flags |= opt_used;
+		}
+	}
+
+	if (!boolean)
+		return prior_rsb;
+	return gen_boolean(tdbb, opt, prior_rsb, boolean);
+}
+
+
+static RSB gen_retrieval(TDBB tdbb,
+						 OPT opt,
+						 SSHORT stream,
+						 NOD * sort_ptr,
+						 NOD * project_ptr,
+						 BOOLEAN outer_flag,
+						 BOOLEAN inner_flag, NOD * return_boolean)
+{
+/**************************************
+ *
+ *	g e n _ r e t r i e v a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile and optimize a record selection expression into a
+ *	set of record source blocks (rsb's).
+ *
+ **************************************/
+	register CSB csb;
+	REL relation;
+	STR alias;
+	RSB rsb;
+	IDX *idx;
+	NOD node, opt_boolean, inversion;
+	USHORT segments;
+	SSHORT i;
+	register opt::opt_repeat * tail, *opt_end, *idx_tail, *idx_end;
+	csb_repeat *csb_tail;
+	BOOLEAN full = FALSE;
+	SET_TDBB(tdbb);
+#ifdef DEV_BUILD
+	DEV_BLKCHK(opt, type_opt);
+	if (sort_ptr)
+		DEV_BLKCHK(*sort_ptr, type_nod);
+	if (project_ptr)
+		DEV_BLKCHK(*project_ptr, type_nod);
+	if (return_boolean)
+		DEV_BLKCHK(*return_boolean, type_nod);
+#endif
+/* since a full outer join is a special case for us, as we have 2 outer
+ * streams, recoginze this condition and set the full flag, also reset the
+ * inner flag. This condition is only statisfied for the second stream in
+ * the full join. This condition is only set from the call in gen_outer() in
+ * case of a full join. 
+ */
+	if ((inner_flag == TRUE) && (outer_flag == TRUE)) {
+		/* the inner flag back to false and set the full flag */
+		inner_flag = FALSE;
+		full = TRUE;
+	}
+
+	csb = opt->opt_csb;
+	csb_tail = &csb->csb_rpt[stream];
+	relation = csb_tail->csb_relation;
+	alias = make_alias(tdbb, csb, csb_tail);
+	csb_tail->csb_flags |= csb_active;
+/* bug #8180 reported by Bill Karwin: when a DISTINCT and an ORDER BY 
+   are done on different fields, and the ORDER BY can be mapped to an 
+   index, then the records are returned in the wrong order because the 
+   DISTINCT sort is performed after the navigational walk of the index; 
+   for that reason, we need to de-optimize this case so that the ORDER 
+   BY does not use an index; if desired, we could re-optimize by doing 
+   the DISTINCT first, using a sparse bit map to store the DISTINCT 
+   records, then perform the navigational walk for the ORDER BY and 
+   filter the records out with the sparse bitmap.  However, that is a 
+   task for another day.  --deej */
+/* Bug #8958: comment out anything having to do with mapping a DISTINCT 
+   to an index, for now.  The fix for this bug was going to be so involved 
+   that it made more sense to deoptimize this case for the time being until 
+   we can determine whether it really makes sense to optimize a DISTINCT, 
+   or for that matter, and ORDER BY, via an index--there is a case 
+   to be made that it is a deoptimization and more testing needs to be done 
+   to determine that; see more comments in the bug description
+ */
+	if (sort_ptr && *sort_ptr && project_ptr && *project_ptr)
+		sort_ptr = NULL;
+/* Time to find inversions.  For each index on the relation
+   match all unused booleans against the index looking for upper
+   and lower bounds that can be computed by the index.  When
+   all unused conjunctions are exhausted, see if there is enough
+   information for an index retrieval.  If so, build up an
+   inversion component of the boolean. */
+	inversion = NULL;
+	opt_end =
+		opt->opt_rpt +
+		(inner_flag ? opt->opt_count : opt->opt_parent_count); rsb = NULL;
+	if (relation->rel_file)
+		rsb = EXT_optimize(opt, stream, sort_ptr ? sort_ptr : project_ptr);
+	else if (opt->opt_parent_count || (sort_ptr && *sort_ptr)
+	 /***|| (project_ptr && *project_ptr)***/
+		) {
+		/* we want to start with indices which have more index segments, attempting to match 
+		   all the conjuncts possible to these indices, on the theory that one index matched 
+		   to n booleans is more selective and uses less resources than using n indices;
+		   therefore find out which index has the most segments and proceed backwards from there; 
+		   NOTE: it's possible that a boolean might be matched to an index and then later it could 
+		   have been paired with another boolean to match another index such that both booleans 
+		   could be calculated via the index; currently we won't detect that case
+		 */
+
+		segments = 0;
+		for (i = 0, idx = csb_tail->csb_idx; i < csb_tail->csb_indices;
+			 i++, idx = NEXT_IDX(idx->idx_rpt, idx->idx_count))
+			segments = MAX(segments, idx->idx_count);
+		for (; segments; segments--)
+			for (i = 0, idx = csb_tail->csb_idx; i < csb_tail->csb_indices;
+				 i++, idx = NEXT_IDX(idx->idx_rpt, idx->idx_count)) {
+				/* skip this index if it doesn't have the right number of segments */
+
+				if (idx->idx_count != segments)
+					continue;
+				/* skip this part if the index wasn't specified for indexed 
+				   retrieval (still need to look for navigational retrieval) */
+				if ((idx->idx_runtime_flags & idx_plan_dont_use) &&
+					!(idx->idx_runtime_flags & idx_plan_navigate))
+					continue;
+				/* go through all the unused conjuncts and see if 
+				   any of them are computable using this index */
+				clear_bounds(opt, idx);
+				tail = opt->opt_rpt;
+				if (outer_flag)
+					tail += opt->opt_count;
+				for (; tail < opt_end; tail++) {
+					if (tail->opt_flags & opt_matched)
+						continue;
+					node = tail->opt_conjunct;
+					if (!(tail->opt_flags & opt_used)
+						&& computable(csb, node, -1,
+									  (BOOLEAN) (inner_flag
+												 || outer_flag) ? TRUE :
+									  FALSE)) match_index(tdbb, opt, stream,
+														  node, idx);
+					if (node->nod_type == nod_starts)
+						compose(&inversion,
+								make_starts(tdbb, opt, relation, node, stream,
+											idx), nod_bit_and);
+					if (node->nod_type == nod_missing)
+						compose(&inversion,
+								make_missing(tdbb, opt, relation, node,
+											 stream, idx), nod_bit_and);
+				}
+
+				/* look for a navigational retrieval (unless one was already found or
+				   there is no sort block); if no navigational retrieval on this index,
+				   add an indexed retrieval to the inversion tree */
+
+				if (!rsb) {
+					if (sort_ptr && *sort_ptr) {
+						if (rsb =
+							gen_navigation(tdbb, opt, stream, relation, alias,
+										   idx, sort_ptr)) continue;
+					}
+
+					/* for now, make sure that we only map a DISTINCT to an index if they contain 
+					   the same number of fields; it should be possible to map a DISTINCT to an 
+					   index which has extra fields to the right, but we need to add some code 
+					   in NAV_get_record() to check when the relevant fields change, rather than 
+					   the whole index key */
+
+		/***if (project_ptr && *project_ptr)
+     
+	        if ((idx->idx_count == (*project_ptr)->nod_count) &&
+	            (rsb = gen_navigation (tdbb, opt, stream, relation, alias, idx, project_ptr)))
+		    {
+	            rsb->rsb_flags |= rsb_project;
+	            continue;
+	            }***/
+				}
+
+				if (opt->opt_rpt[0].opt_lower || opt->opt_rpt[0].opt_upper) {
+					compose(&inversion,
+							OPT_make_index(tdbb, opt, relation, idx),
+							nod_bit_and); if (!outer_flag) {
+						/* Mark conjuncts as matched if they actually participate in
+						   the indexed retrieval. A conjunct matches against an index
+						   segment only if all more major index segment positions have
+						   been matched by conjuncts. */
+
+						idx_tail = opt->opt_rpt;
+						idx_end = idx_tail + idx->idx_count;
+						for (;
+							 idx_tail < idx_end && (idx_tail->opt_lower
+													|| idx_tail->opt_upper);
+							 idx_tail++)
+							for (tail = opt->opt_rpt; tail < opt_end; tail++)
+								if (idx_tail->opt_match == tail->opt_conjunct)
+									tail->opt_flags |= opt_matched;
+					}
+				}
+			}
+	}
+
+	if (outer_flag) {
+		/* Now make another pass thru the outer conjuncts only, finding unused,
+		   computable booleans.  When one is found, roll it into a final
+		   boolean and mark it used. */
+
+		*return_boolean = NULL;
+		opt_end = opt->opt_rpt + opt->opt_count;
+		for (tail = opt->opt_rpt; tail < opt_end; tail++) {
+			node = tail->opt_conjunct;
+			if (!(tail->opt_flags & opt_used)
+				&& computable(csb, node, -1, FALSE)) {
+				compose(return_boolean, node, nod_and);
+				tail->opt_flags |= opt_used;
+			}
+		}
+	}
+
+/* Now make another pass thru the conjuncts finding unused, computable
+   booleans.  When one is found, roll it into a final boolean and mark
+   it used. If a computable boolean didn't match against an index then
+   mark the stream to denote unmatched booleans. */
+
+	opt_boolean = NULL;
+	opt_end =
+		opt->opt_rpt + (inner_flag ? opt->opt_count : opt->opt_parent_count);
+	tail = opt->opt_rpt;
+	if (outer_flag)
+		tail += opt->opt_count;
+	for (; tail < opt_end; tail++) {
+		node = tail->opt_conjunct;
+		if (!relation->rel_file)
+			compose(&inversion, OPT_make_dbkey(opt, node, stream),
+					nod_bit_and); if (!(tail->opt_flags & opt_used)
+									  && computable(csb, node, -1, FALSE)) {
+			if (node->nod_type == nod_or)
+				compose(&inversion, make_inversion(tdbb, opt, node, stream),
+						nod_bit_and); compose(&opt_boolean, node, nod_and);
+			tail->opt_flags |= opt_used;
+			if (!outer_flag && !(tail->opt_flags & opt_matched))
+				csb_tail->csb_flags |= csb_unmatched;
+		}
+	}
+
+	if (full)
+		return gen_rsb(tdbb, opt, rsb, inversion, stream, relation, alias,
+					   *return_boolean, csb_tail->csb_cardinality);
+	else
+		return gen_rsb(tdbb, opt, rsb, inversion, stream, relation, alias,
+					   opt_boolean, csb_tail->csb_cardinality);
+}
+
+
+static RSB gen_rsb(TDBB tdbb,
+				   OPT opt,
+				   RSB rsb,
+				   NOD inversion,
+				   SSHORT stream,
+				   REL relation, STR alias, NOD boolean, float cardinality)
+{
+/**************************************
+ *
+ *	g e n _ r s b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a record source block to handle either a sort or a project.
+ *
+ **************************************/
+	SSHORT size;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(rsb, type_rsb);
+	DEV_BLKCHK(inversion, type_nod);
+	DEV_BLKCHK(relation, type_rel);
+	DEV_BLKCHK(alias, type_str);
+	DEV_BLKCHK(boolean, type_nod);
+	SET_TDBB(tdbb);
+	if (rsb) {
+		if (rsb->rsb_type == rsb_navigate && inversion)
+			rsb->rsb_arg[RSB_NAV_inversion] = (RSB) inversion;
+	}
+	else {
+		if (inversion) {
+			rsb = (RSB) ALLOCDV(type_rsb, 1);
+			rsb->rsb_type = rsb_indexed;
+			rsb->rsb_count = 1;
+			size = sizeof(struct irsb_index);
+			rsb->rsb_arg[0] = (RSB) inversion;
+		}
+		else {
+			rsb = (RSB) ALLOCDV(type_rsb, 0);
+			rsb->rsb_type = rsb_sequential;
+			size = sizeof(struct irsb);
+			if (boolean)
+				opt->opt_csb->csb_rpt[stream].csb_flags |= csb_unmatched;
+		}
+
+		rsb->rsb_stream = (UCHAR) stream;
+		rsb->rsb_relation = relation;
+		rsb->rsb_alias = alias;
+		/* if this is a blr_stream, we need to leave room
+		   in the impure area for a navigational-type rsb;
+		   even if this is not currently a navigational rsb, 
+		   OPT_set_index() could be used to convert it to one */
+		if (opt->opt_g_flags & opt_g_stream) {
+			size = sizeof(struct inv);
+			size = nav_rsb_size(rsb, MAX_KEY, size);
+		}
+
+		rsb->rsb_impure = CMP_impure(opt->opt_csb, size);
+	}
+
+	if (boolean)
+		rsb = gen_boolean(tdbb, opt, rsb, boolean);
+/* retain the cardinality for use at runtime by blr_cardinality */
+	rsb->rsb_cardinality = (ULONG) cardinality;
+	return rsb;
+}
+
+
+static RSB gen_sort(TDBB tdbb,
+					OPT opt,
+					UCHAR * streams,
+					UCHAR * dbkey_streams,
+					RSB prior_rsb, NOD sort, USHORT project_flag)
+{
+/**************************************
+ *
+ *	g e n _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a record source block to handle either a sort or a project.
+ *	The two case are virtual identical -- the only difference is that
+ *	project eliminates duplicates.  However, since duplicates are
+ *	recognized and handled by sort, the JRD processing is identical.
+ *
+ **************************************/
+	RSB rsb;
+	CSB csb;
+	SLONG id;
+	ULONG map_length = 0;
+	NOD node, *node_ptr, *end_node;
+	UCHAR *ptr, *end_ptr;
+	USHORT stream, items, count, flag_offset;
+	SMB map;
+	SKD *sort_key, *end_key;
+	DSC *desc, descriptor;
+	FMT format;
+	LLS id_stack, stream_stack;
+	smb::smb_repeat * map_item;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(prior_rsb, type_rsb);
+	DEV_BLKCHK(sort, type_nod);
+	SET_TDBB(tdbb);
+/* We already know the number of keys, but we also need to compute the
+   total number of fields, keys and non-keys, to be pumped thru sort.  Starting
+   with the number of keys, count the other field referenced.  Since a field
+   is often a key, check for overlap to keep the length of the sort record
+   down. */
+	/* Along with the record number, the transaction id of the
+	 * record will also be stored in the sort file.  This will
+	 * be used to detect update conflict in read committed 
+	 * transactions.
+	 */
+	csb = opt->opt_csb;
+	items =
+		sort->nod_count + (streams[0] * 2) +
+		(dbkey_streams ? dbkey_streams[0] : 0);
+	end_ptr = streams + streams[0];
+	end_node = sort->nod_arg + sort->nod_count;
+	id_stack = stream_stack = NULL;
+	for (ptr = &streams[1]; ptr <= end_ptr; ptr++) {
+		id = -1;
+		while (SBM_next(csb->csb_rpt[*ptr].csb_fields, &id, RSE_get_forward)) {
+			items++;
+			LLS_PUSH((BLK) id, &id_stack);
+			LLS_PUSH((BLK) * ptr, &stream_stack);
+			for (node_ptr = sort->nod_arg; node_ptr < end_node; node_ptr++) {
+				node = *node_ptr;
+				if (node->nod_type == nod_field
+					&& (USHORT) node->nod_arg[e_fld_stream] == *ptr
+					&& (USHORT) node->nod_arg[e_fld_id] == id) {
+					desc = &descriptor;
+					CMP_get_desc(tdbb, csb, node, desc);
+					/* International type text has a computed key */
+					if (IS_INTL_DATA(desc))
+						break;
+					--items;
+					LLS_POP(&id_stack);
+					LLS_POP(&stream_stack);
+					break;
+				}
+			}
+		}
+	}
+
+/* Now that we know the number of items, allocate a sort map block.  Allocate
+   it sufficiently large that there is room for a sort key descriptor on the
+   end. */
+
+	count = items +
+		(sizeof(SKD) * 2 * sort->nod_count + sizeof(smb::smb_repeat) -
+		 1) / sizeof(smb::smb_repeat);
+	map = (SMB) ALLOCDV(type_smb, count);
+	map->smb_keys = sort->nod_count * 2;
+	map->smb_count = items;
+	if (project_flag)
+		map->smb_flags |= SMB_project;
+/* Loop thru sort keys building sort keys.  Actually, to handle null values
+   correctly, two sort keys are made for each field, one for the null flag
+   and one for field itself. */
+	map_item = map->smb_rpt;
+	sort_key = (SKD *) & map->smb_rpt[items];
+	map->smb_key_desc = sort_key;
+	for (node_ptr = sort->nod_arg; node_ptr < end_node;
+		 node_ptr++, map_item++) {
+		/* Pick up sort key expression. */
+
+		node = *node_ptr;
+		desc = &descriptor;
+		CMP_get_desc(tdbb, csb, node, desc);
+		/* Allow for "key" forms of International text to grow */
+		if (IS_INTL_DATA(desc)) {
+			/* Turn varying text and cstrings into text. */
+
+			if (desc->dsc_dtype == dtype_varying) {
+				desc->dsc_dtype = dtype_text;
+				desc->dsc_length -= sizeof(USHORT);
+			}
+			else if (desc->dsc_dtype == dtype_cstring) {
+				desc->dsc_dtype = dtype_text;
+				desc->dsc_length--;
+			}
+			desc->dsc_length =
+				INTL_key_length(tdbb, INTL_INDEX_TYPE(desc),
+								desc->dsc_length);}
+
+		/* Make key for null flag */
+
+#ifdef VAX
+		map_length = ROUNDUP(map_length, sizeof(SLONG));
+#endif
+		sort_key->skd_offset = map_item->smb_flag_offset =
+			(USHORT) map_length++; sort_key->skd_dtype = SKD_text;
+		sort_key->skd_length = 1;
+		sort_key->skd_flags = SKD_ascending;
+		++sort_key;
+		/* Make key for sort key proper */
+#ifdef VAX
+		map_length = ROUNDUP(map_length, sizeof(SLONG));
+#else
+		if (desc->dsc_dtype >= dtype_aligned)
+			map_length =
+				FB_ALIGN(map_length, type_alignments[desc->dsc_dtype]);
+#endif
+		sort_key->skd_offset = (USHORT) map_length;
+		sort_key->skd_flags = SKD_ascending;
+		if (*(node_ptr + sort->nod_count))
+			sort_key->skd_flags |= SKD_descending;
+		assert(desc->dsc_dtype >= 0 &&
+			   desc->dsc_dtype <
+			   sizeof(sort_dtypes) / sizeof(sort_dtypes[0]));
+		sort_key->skd_dtype = sort_dtypes[desc->dsc_dtype];
+		/*assert (sort_key->skd_dtype != 0); */
+		if (sort_key->skd_dtype == SKD_varying ||
+			sort_key->skd_dtype == SKD_cstring) {
+			if (desc->dsc_ttype == ttype_binary)
+				sort_key->skd_flags |= SKD_binary;
+		}
+		sort_key->skd_length = desc->dsc_length;
+		++sort_key;
+		map_item->smb_node = node;
+		map_item->smb_desc = *desc;
+		map_item->smb_desc.dsc_address = (UCHAR *) map_length;
+		map_length += desc->dsc_length;
+		if (node->nod_type == nod_field) {
+			map_item->smb_stream = (USHORT) node->nod_arg[e_fld_stream];
+			map_item->smb_field_id = (USHORT) node->nod_arg[e_fld_id];
+		}
+	}
+
+	map_length = ROUNDUP(map_length, sizeof(SLONG));
+	map->smb_key_length = (USHORT) map_length >> SHIFTLONG;
+	flag_offset = (USHORT) map_length;
+	map_length += items - sort->nod_count;
+/* Now go back and process all to fields involved with the sort.  If the
+   field has already been mentioned as a sort key, don't bother to repeat
+   it. */
+	while (stream_stack) {
+		id = (USHORT) LLS_POP(&id_stack);
+		stream = (USHORT) LLS_POP(&stream_stack);
+		format = CMP_format(tdbb, csb, stream);
+		desc = &format->fmt_desc[id];
+		if (id >= format->fmt_count || desc->dsc_length == 0)
+			IBERROR(157);		/* msg 157 cannot sort on a field that does not exist */
+		if (desc->dsc_dtype >= dtype_aligned)
+			map_length =
+				FB_ALIGN(map_length, type_alignments[desc->dsc_dtype]);
+		map_item->smb_field_id = (SSHORT) id;
+		map_item->smb_stream = stream;
+		map_item->smb_flag_offset = flag_offset++;
+		map_item->smb_desc = *desc;
+		map_item->smb_desc.dsc_address = (UCHAR *) map_length;
+		map_length += desc->dsc_length;
+		map_item++;
+	}
+
+/* Make fields for record numbers record for all streams */
+
+	map_length = ROUNDUP(map_length, sizeof(SLONG));
+	for (ptr = &streams[1]; ptr <= end_ptr; ptr++, map_item++) {
+		map_item->smb_field_id = SMB_DBKEY;
+		map_item->smb_stream = *ptr;
+		desc = &map_item->smb_desc;
+		desc->dsc_dtype = dtype_long;
+		desc->dsc_length = sizeof(SLONG);
+		desc->dsc_address = (UCHAR *) map_length;
+		map_length += desc->dsc_length;
+	}
+
+/* Make fields for transaction id of record for all streams */
+
+	for (ptr = &streams[1]; ptr <= end_ptr; ptr++, map_item++) {
+		map_item->smb_field_id = SMB_TRANS_ID;
+		map_item->smb_stream = *ptr;
+		desc = &map_item->smb_desc;
+		desc->dsc_dtype = dtype_long;
+		desc->dsc_length = sizeof(SLONG);
+		desc->dsc_address = (UCHAR *) map_length;
+		map_length += desc->dsc_length;
+	}
+
+	if (dbkey_streams)
+		for (ptr = &dbkey_streams[1], end_ptr =
+			 dbkey_streams + dbkey_streams[0]; ptr <= end_ptr;
+			 ptr++, map_item++) {
+			map_item->smb_field_id = SMB_DBKEY;
+			map_item->smb_stream = *ptr;
+			desc = &map_item->smb_desc;
+			desc->dsc_dtype = dtype_long;
+			desc->dsc_length = sizeof(SLONG);
+			desc->dsc_address = (UCHAR *) map_length;
+			map_length += desc->dsc_length;
+		}
+
+/* Make fields to store varying and cstring length. */
+
+	end_key = sort_key;
+	for (sort_key = map->smb_key_desc; sort_key < end_key; sort_key++) {
+		/*   assert (sort_key->skd_dtype != 0); */
+		if (sort_key->skd_dtype == SKD_varying ||
+			sort_key->skd_dtype == SKD_cstring) {
+			sort_key->skd_vary_offset = (USHORT) map_length;
+			map_length += sizeof(USHORT);
+		}
+	}
+
+	if (map_length > MAX_SORT_RECORD)
+		ERR_post(isc_sort_rec_size_err, isc_arg_number, map_length, 0);
+	/* Msg438: sort record size of %ld bytes is too big */
+	map->smb_length = (USHORT) map_length;
+/* That was most unpleasant.  Never the less, it's done (except for
+   the debugging).  All that remains is to build the record source
+   block for the sort. */
+	rsb = (RSB) ALLOCDV(type_rsb, 1);
+	rsb->rsb_type = rsb_sort;
+	rsb->rsb_next = prior_rsb;
+	rsb->rsb_arg[0] = (RSB) map;
+	rsb->rsb_impure = CMP_impure(csb, sizeof(struct irsb_sort));
+	return rsb;
+}
+
+
+static BOOLEAN gen_sort_merge(TDBB tdbb, OPT opt, LLS * org_rivers)
+{
+/**************************************
+ *
+ *	g e n _ s o r t _ m e r g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've got a set of rivers that may or may not be amenable to
+ *	a sort/merge join, and it's time to find out.  If there are,
+ *	build a sort/merge RSB, push it on the rsb stack, and update
+ *	rivers accordingly.  If two or more rivers were successfully
+ *	joined, return TRUE.  If the whole things is a moby no-op,
+ *	return FALSE.
+ *
+ **************************************/
+	DBB dbb;
+	RIV river1, river2;
+	LLS stack1, stack2;
+	USHORT i, cnt, class_cnt, river_cnt, stream_cnt;
+	ULONG selected_rivers[OPT_BITS], selected_rivers2[OPT_BITS];
+	UCHAR *stream;
+	VEC scratch;
+	NOD *classes, *class_, *selected_classes[MAX_OPT_ITEMS],
+		**selected_class, *last_class, node, node1, node2, sort, *ptr;
+	RSB rsb, merge_rsb;
+	RSB *rsb_tail;
+	opt::opt_repeat * tail, *end;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(*org_rivers, type_lls);
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+/* Count the number of "rivers" involved in the operation, then allocate
+   a scratch block large enough to hold values to compute equality
+   classes */
+	for (cnt = 0, stack1 = *org_rivers; stack1; stack1 = stack1->lls_next) {
+		river1 = (RIV) stack1->lls_object;
+		river1->riv_number = cnt++;
+	}
+
+	scratch = (VEC) ALLOCPV(type_vec, opt->opt_count * cnt);
+	classes = (NOD *) scratch->vec_object;
+/* Compute equivalence classes among streams.  This involves finding groups
+   of streams joined by field equalities.  */
+	last_class = classes;
+	for (tail = opt->opt_rpt, end = tail + opt->opt_count; tail < end; tail++) {
+		if (tail->opt_flags & opt_used)
+			continue;
+		node = tail->opt_conjunct;
+		if (node->nod_type != nod_eql)
+			continue;
+		node1 = node->nod_arg[0];
+		node2 = node->nod_arg[1];
+		for (stack1 = *org_rivers; stack1; stack1 = stack1->lls_next) {
+			river1 = (RIV) stack1->lls_object;
+			if (!river_reference(river1, node1))
+				if (river_reference(river1, node2)) {
+					node = node1;
+					node1 = node2;
+					node2 = node;
+				}
+				else
+					continue;
+			for (stack2 = stack1->lls_next; stack2; stack2 = stack2->lls_next) {
+				river2 = (RIV) stack2->lls_object;
+				if (river_reference(river2, node2)) {
+					for (class_ = classes; class_ < last_class; class_ += cnt)
+						if (node_equality(node1, classes[river1->riv_number])
+							|| node_equality(node2,
+											 classes[river2->
+													 riv_number])) break;
+					class_[river1->riv_number] = node1;
+					class_[river2->riv_number] = node2;
+					if (class_ == last_class)
+						last_class += cnt;
+				}
+			}
+		}
+	}
+
+/* Pick both a set of classes and a set of rivers on which to join with
+   sort merge.  Obviously, if the set of classes is empty, return FALSE
+   to indicate that nothing could be done. */
+
+	river_cnt = stream_cnt = 0;
+	for (class_ = classes; class_ < last_class; class_ += cnt) {
+		i = river_count(cnt, class_);
+		if (i > river_cnt) {
+			river_cnt = i;
+			selected_class = selected_classes;
+			*selected_class++ = class_;
+			class_mask(cnt, class_, selected_rivers);
+		}
+		else {
+			class_mask(cnt, class_, selected_rivers2);
+			for (i = 0; i < OPT_BITS; i++)
+				if ((selected_rivers[i] & selected_rivers2[i]) !=
+					selected_rivers[i])
+					break;
+			if (i == OPT_BITS)
+				*selected_class++ = class_;
+		}
+	}
+
+	if (!river_cnt) {
+		ALL_RELEASE(scratch);
+		return FALSE;
+	}
+
+	*selected_class = NULL;
+	class_cnt = selected_class - selected_classes;
+/* Build a sort stream */
+	merge_rsb = (RSB) ALLOCDV(type_rsb, river_cnt * 2);
+	merge_rsb->rsb_count = river_cnt;
+	merge_rsb->rsb_type = rsb_merge;
+	merge_rsb->rsb_impure = CMP_impure(opt->opt_csb,
+									   (USHORT) (sizeof
+												 (struct irsb_mrg) +
+												 river_cnt *
+												 sizeof
+												 (irsb_mrg::
+												  irsb_mrg_repeat)));
+	rsb_tail = merge_rsb->rsb_arg;
+	stream_cnt = 0;
+	for (stack1 = *org_rivers; stack1; stack1 = stack1->lls_next) {
+		river1 = (RIV) stack1->lls_object;
+		if (!(TEST_DEP_BIT(selected_rivers, river1->riv_number)))
+			continue;
+		stream_cnt += river1->riv_count;
+		sort = (NOD) ALLOCDV(type_nod, class_cnt * 2);
+		sort->nod_type = nod_sort;
+		sort->nod_count = class_cnt;
+		for (selected_class = selected_classes, ptr = sort->nod_arg;
+			 *selected_class; selected_class++)
+			*ptr++ = (*selected_class)[river1->riv_number];
+		rsb =
+			gen_sort(tdbb, opt, &river1->riv_count, NULL, river1->riv_rsb,
+					 sort, FALSE); *rsb_tail++ = rsb;
+		*rsb_tail++ = (RSB) sort;
+	}
+
+/* Finally, merge selected rivers into a single river, and rebuild original 
+   river stack */
+
+	river1 = (RIV) ALLOCDV(type_riv, stream_cnt);
+	river1->riv_count = (UCHAR) stream_cnt;
+	river1->riv_rsb = merge_rsb;
+	stream = river1->riv_streams;
+	stack1 = NULL;
+	LLS_PUSH(river1, &stack1);
+	while (*org_rivers) {
+		river2 = (RIV) LLS_POP(org_rivers);
+		if (TEST_DEP_BIT(selected_rivers, river2->riv_number)) {
+			MOVE_FAST(river2->riv_streams, stream, river2->riv_count);
+			stream += river2->riv_count;
+		}
+		else
+			LLS_PUSH(river2, &stack1);
+	}
+
+/* Pick up any boolean that may apply */
+
+	set_active(opt, river1);
+	node = NULL;
+	for (tail = opt->opt_rpt; tail < end; tail++) {
+		node1 = tail->opt_conjunct;
+		if (!(tail->opt_flags & opt_used)
+			&& computable(opt->opt_csb, node1, -1, FALSE)) {
+			compose(&node, node1, nod_and);
+			tail->opt_flags |= opt_used;
+		}
+	}
+
+	if (node)
+		river1->riv_rsb = gen_boolean(tdbb, opt, river1->riv_rsb, node);
+	set_inactive(opt, river1);
+	*org_rivers = stack1;
+	ALL_RELEASE(scratch);
+	return TRUE;
+}
+
+
+static RSB gen_union(TDBB tdbb,
+					 OPT opt,
+					 NOD union_node, UCHAR * streams, USHORT nstreams)
+{
+/**************************************
+ *
+ *	g e n _ u n i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a union complex.
+ *
+ **************************************/
+	RSB rsb, *rsb_ptr;
+	USHORT count;
+	NOD clauses, *ptr, *end;
+	CSB csb;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(union_node, type_nod);
+	SET_TDBB(tdbb);
+	clauses = union_node->nod_arg[e_uni_clauses];
+	count = clauses->nod_count;
+	csb = opt->opt_csb;
+	rsb = (RSB) ALLOCDV(type_rsb, count + nstreams + 1);
+	rsb->rsb_type = rsb_union;
+	rsb->rsb_count = count;
+	rsb->rsb_stream = (UCHAR) union_node->nod_arg[e_uni_stream];
+	rsb->rsb_format = csb->csb_rpt[rsb->rsb_stream].csb_format;
+	rsb->rsb_impure = CMP_impure(csb, sizeof(struct irsb));
+	rsb_ptr = rsb->rsb_arg;
+	for (ptr = clauses->nod_arg, end = ptr + count; ptr < end;) {
+		*rsb_ptr++ = OPT_compile(tdbb, csb, (RSE) * ptr++, NULL);
+		*rsb_ptr++ = (RSB) * ptr++;
+	}
+
+/* Save the count and numbers of the streams that make up the union */
+
+	*rsb_ptr++ = (RSB) nstreams;
+	while (nstreams--)
+		*rsb_ptr++ = (RSB) * streams++;
+	return rsb;
+}
+
+
+static void get_inactivities(CSB csb, ULONG * dependencies)
+{
+/**************************************
+ *
+ *	g e t _ i n a c t i v i t i e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find any streams not explicitily active.
+ *
+ **************************************/
+	USHORT n;
+	csb_repeat *tail, *end;
+	DEV_BLKCHK(csb, type_csb);
+	for (n = 0; n < OPT_BITS; n++)
+		dependencies[n] = (ULONG) - 1;
+	for (tail = csb->csb_rpt, end = tail + csb->csb_n_stream, n = 0;
+		 tail < end; n++, tail++)
+		if (tail->csb_flags & csb_active)
+			CLEAR_DEP_BIT(dependencies, n);
+}
+
+
+static IRL indexed_relationship(TDBB tdbb, OPT opt, USHORT stream)
+{
+/**************************************
+ *
+ *	i n d e x e d _ r e l a t i o n s h i p
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if two streams are related by an index.
+ *	An indexed relationship is a means of joining two 
+ *	streams via an index, which is possible when a field from
+ *	each of the streams is compared with a field from the other,
+ *	and there is an index on one stream to retrieve the value
+ *	of the other field.
+ *
+ **************************************/
+	CSB csb;
+	IDX *idx;
+	NOD node;
+	IRL relationship;
+	USHORT i;
+	register opt::opt_repeat * tail, *opt_end;
+	csb_repeat *csb_tail;
+	DEV_BLKCHK(opt, type_opt);
+	SET_TDBB(tdbb);
+	if (!opt->opt_count)
+		return NULL;
+	csb = opt->opt_csb;
+	csb_tail = &csb->csb_rpt[stream];
+	opt_end = &opt->opt_rpt[opt->opt_count];
+	relationship = NULL;
+/* Loop thru indexes looking for a match */
+	idx = csb_tail->csb_idx;
+	for (i = 0; i < csb_tail->csb_indices;
+		 i++, idx = NEXT_IDX(idx->idx_rpt, idx->idx_count)) {
+		/* skip this part if the index wasn't specified for indexed retrieval */
+
+		if (idx->idx_runtime_flags & idx_plan_dont_use)
+			continue;
+		clear_bounds(opt, idx);
+		for (tail = opt->opt_rpt; tail < opt_end; tail++) {
+			node = tail->opt_conjunct;
+			if (!(tail->opt_flags & opt_used)
+				&& computable(csb, node, -1, FALSE))
+				match_index(tdbb, opt, stream, node, idx);
+		}
+
+		tail = opt->opt_rpt;
+		if (tail->opt_lower || tail->opt_upper) {
+			if (!relationship)
+				relationship = (IRL) ALLOCD(type_irl);
+			if (idx->idx_flags & idx_unique) {
+				relationship->irl_unique = TRUE;
+				break;
+			}
+		}
+	}
+
+	return relationship;
+}
+
+
+static STR make_alias(TDBB tdbb, CSB csb, csb_repeat * base_tail)
+{
+/**************************************
+ *
+ *	m a k e _ a l i a s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make an alias string suitable for printing
+ *	as part of the plan.  For views, this means
+ *	multiple aliases to distinguish the base 
+ *	table.
+ *
+ **************************************/
+	STR alias;
+	USHORT alias_length = 0;
+	TEXT *p, *q;
+	csb_repeat *csb_tail;
+	DEV_BLKCHK(csb, type_csb);
+	SET_TDBB(tdbb);
+	if (!base_tail->csb_view && !base_tail->csb_alias)
+		return NULL;
+/* calculate the length of the alias by going up through
+   the view stack to find the lengths of all aliases;
+   adjust for spaces and a null terminator */
+	for (csb_tail = base_tail;;
+		 csb_tail = &csb->csb_rpt[csb_tail->csb_view_stream]) {
+		if (csb_tail->csb_alias)
+			alias_length += csb_tail->csb_alias->str_length;
+		else
+			alias_length +=
+				(!(csb_tail->csb_relation)
+				 || !(csb_tail->csb_relation->
+					  rel_name)) ? 0 : strlen(csb_tail->csb_relation->
+											  rel_name);
+		alias_length++;
+		if (!csb_tail->csb_view)
+			break;
+	}
+
+/* allocate a string block to hold the concatenated alias */
+
+	alias = (STR) ALLOCDV(type_str, alias_length);
+	alias->str_length = alias_length - 1;
+/* now concatenate the individual aliases into the string block, 
+   beginning at the end and copying back to the beginning */
+	p = (TEXT *) alias->str_data + alias->str_length;
+	*p-- = 0;
+	for (csb_tail = base_tail;;
+		 csb_tail = &csb->csb_rpt[csb_tail->csb_view_stream]) {
+		if (csb_tail->csb_alias)
+			q = (TEXT *) csb_tail->csb_alias->str_data;
+		else
+			q = (!(csb_tail->csb_relation)
+				 || !(csb_tail->csb_relation->rel_name)) ? NULL : csb_tail->
+				csb_relation->rel_name;
+		/* go to the end of the alias and copy it backwards */
+		if (q) {
+			for (alias_length = 0; *q; alias_length++)
+				q++;
+			while (alias_length--)
+				*p-- = *--q;
+		}
+
+		if (!csb_tail->csb_view)
+			break;
+		*p-- = ' ';
+	}
+
+	return alias;
+}
+
+
+static NOD make_binary_node(NOD_T type, NOD arg1, NOD arg2, USHORT flag)
+{
+/**************************************
+ *
+ *	m a k e _ b i n a r y _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a binary node.
+ *
+ **************************************/
+	NOD node;
+	TDBB tdbb;
+	tdbb = GET_THREAD_DATA;
+	DEV_BLKCHK(arg1, type_nod);
+	DEV_BLKCHK(arg2, type_nod);
+	node = PAR_make_node(tdbb, 2);
+	node->nod_type = type;
+	node->nod_arg[0] = arg1;
+	node->nod_arg[1] = arg2;
+	if (flag)
+		node->nod_flags |= nod_comparison;
+	return node;
+}
+
+
+static RSB make_cross(TDBB tdbb, OPT opt, LLS stack)
+{
+/**************************************
+ *
+ *	m a k e _ c r o s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a cross block.
+ *
+ **************************************/
+	RIV river;
+	RSB rsb, *ptr;
+	CSB csb;
+	LLS temp;
+	USHORT count;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(stack, type_lls);
+	SET_TDBB(tdbb);
+	for (temp = stack, count = 0; temp; count++)
+		temp = temp->lls_next;
+	if (count == 1) {
+		river = (RIV) LLS_POP(&stack);
+		return river->riv_rsb;
+	}
+
+	csb = opt->opt_csb;
+	rsb = (RSB) ALLOCDV(type_rsb, count);
+	rsb->rsb_type = rsb_cross;
+	rsb->rsb_count = count;
+	rsb->rsb_impure = CMP_impure(csb, sizeof(struct irsb));
+	ptr = rsb->rsb_arg + count;
+	while (stack) {
+		river = (RIV) LLS_POP(&stack);
+		*--ptr = river->riv_rsb;
+	}
+
+	return rsb;
+}
+
+
+static NOD make_index_node(TDBB tdbb, REL relation, CSB csb, IDX * idx)
+{
+/**************************************
+ *
+ *	m a k e _ i n d e x _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make an index node and an index retrieval block.
+ *
+ **************************************/
+	NOD node;
+	IRB retrieval;
+	DEV_BLKCHK(relation, type_rel);
+	DEV_BLKCHK(csb, type_csb);
+	SET_TDBB(tdbb);
+/* check whether this is during a compile or during
+   a SET INDEX operation */
+	if (csb)
+		CMP_post_resource(tdbb, &csb->csb_resources,
+						  reinterpret_cast < BLK > (relation), rsc_index,
+						  idx->idx_id);
+	else
+		CMP_post_resource(tdbb, &tdbb->tdbb_request->req_resources,
+						  reinterpret_cast < BLK > (relation), rsc_index,
+						  idx->idx_id);
+	node = PAR_make_node(tdbb, e_idx_length);
+	node->nod_type = nod_index;
+	node->nod_count = 0;
+	retrieval = (IRB) ALLOCDV(type_irb, idx->idx_count * 2);
+	node->nod_arg[e_idx_retrieval] = (NOD) retrieval;
+	retrieval->irb_index = idx->idx_id;
+	MOVE_FAST(idx, &retrieval->irb_desc, sizeof(retrieval->irb_desc));
+	if (csb)
+		node->nod_impure = CMP_impure(csb, sizeof(struct inv));
+	return node;
+}
+
+
+static NOD make_inference_node(CSB csb, NOD boolean, NOD arg1, NOD arg2)
+{
+/**************************************
+ *
+ *	m a k e _ i n f e r e n c e _ n o d e
+ *
+ **************************************
+ *
+ * Defined
+ *	1996-Jan-15 David Schnepper 
+ *
+ * Functional description
+ *	From the predicate, boolean, and infer a new
+ *	predicate using arg1 & arg2 as the first two
+ *	parameters to the predicate.
+ *
+ *	This is used when the engine knows A<B and A=C, and
+ *	creates a new node to represent the infered knowledge C<B.
+ *
+ *	Note that this may be sometimes incorrect with 3-value
+ *	logic (per Chris Date's Object & Relations seminar).
+ *	Later stages of query evaluation evaluate exactly
+ *	the originally specified query, so 3-value issues are
+ *	caught there.  Making this inference might cause us to
+ *	examine more records than needed, but would not result
+ *	in incorrect results.
+ *
+ *	Note that some nodes, specifically nod_like, have
+ *	more than two parameters for a boolean operation.
+ *	(nod_like has an optional 3rd parameter for the ESCAPE character
+ *	 option of SQL)
+ *	Nod_sleuth also has an optional 3rd parameter (for the GDML
+ *	matching ESCAPE character language).  But nod_sleuth is 
+ *	(apparently) not considered during optimization.
+ *
+ *
+ **************************************/
+	NOD node;
+	USHORT n;
+	TDBB tdbb;
+	tdbb = GET_THREAD_DATA;
+	DEV_BLKCHK(csb, type_csb);
+	DEV_BLKCHK(boolean, type_nod);
+	DEV_BLKCHK(arg1, type_nod);
+	DEV_BLKCHK(arg2, type_nod);
+	assert(boolean->nod_count >= 2);	/* must be a conjunction boolean */
+/* Clone the input predicate */
+	node = PAR_make_node(tdbb, boolean->nod_count);
+	node->nod_type = boolean->nod_type;
+	node->nod_flags = boolean->nod_flags;
+/* But substitute new values for some of the predicate arguments */
+	node->nod_arg[0] = CMP_clone_node(tdbb, csb, arg1);
+	node->nod_arg[1] = CMP_clone_node(tdbb, csb, arg2);
+/* Arguments after the first two are just cloned (eg: LIKE ESCAPE clause) */
+	for (n = 2; n < boolean->nod_count; n++)
+		node->nod_arg[n] = CMP_clone_node(tdbb, csb, boolean->nod_arg[n]);
+	return node;
+}
+
+
+static NOD make_inversion(TDBB tdbb,
+						  register OPT opt, NOD boolean, USHORT stream)
+{
+/**************************************
+ *
+ *	m a k e _ i n v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build an inversion for a boolean, if possible.  Otherwise,
+ *	return NULL.  Make inversion is call initially from 
+ *	gen_retrieval to handle "or" nodes, but may be called
+ *	recursively for almost anything.
+ *
+ **************************************/
+	REL relation;
+	IDX *idx;
+	NOD inversion, inversion2;
+	SSHORT i;
+	csb_repeat *csb_tail;
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(boolean, type_nod);
+	csb_tail = &opt->opt_csb->csb_rpt[stream];
+	relation = csb_tail->csb_relation;
+	if ((!relation) || (relation->rel_file))
+		return NULL;
+/* Handle the "OR" case up front */
+	if (boolean->nod_type == nod_or) {
+		if (!
+			(inversion =
+			 make_inversion(tdbb, opt, boolean->nod_arg[0],
+							stream))) return NULL;
+		if (inversion2 =
+			make_inversion(tdbb, opt, boolean->nod_arg[1],
+						   stream)) return compose(&inversion, inversion2,
+												   nod_bit_or);
+		if (inversion->nod_type == nod_index)
+			ALL_RELEASE(inversion->nod_arg[e_idx_retrieval]);
+		ALL_RELEASE(inversion);
+		return NULL;
+	}
+
+/* Time to find inversions.  For each index on the relation
+   match all unused booleans against the index looking for upper
+   and lower bounds that can be computed by the index.  When
+   all unused conjunctions are exhausted, see if there is enough
+   information for an index retrieval.  If so, build up and
+   inversion component of the boolean. */
+
+	idx = csb_tail->csb_idx;
+	inversion = NULL;
+	if (opt->opt_count)
+		for (i = 0; i < csb_tail->csb_indices; i++) {
+			clear_bounds(opt, idx);
+			/* skip this part if the index wasn't specified for indexed 
+			   retrieval (still need to look for navigational retrieval) */
+			if (idx->idx_runtime_flags & idx_plan_dont_use)
+				continue;
+			match_index(tdbb, opt, stream, boolean, idx);
+			if (opt->opt_rpt[0].opt_lower || opt->opt_rpt[0].opt_upper)
+				compose(&inversion, OPT_make_index(tdbb, opt, relation, idx),
+						nod_bit_and); if (boolean->nod_type == nod_starts)
+				compose(&inversion,
+						make_starts(tdbb, opt, relation, boolean, stream,
+									idx), nod_bit_and);
+				if (boolean->nod_type == nod_missing)
+				compose(&inversion,
+						make_missing(tdbb, opt, relation, boolean, stream,
+									 idx), nod_bit_and);
+			idx = NEXT_IDX(idx->idx_rpt, idx->idx_count);
+		}
+
+	if (!inversion)
+		inversion = OPT_make_dbkey(opt, boolean, stream);
+	return inversion;
+}
+
+
+static NOD make_missing(TDBB tdbb,
+						register OPT opt,
+						REL relation, NOD boolean, USHORT stream, IDX * idx)
+{
+/**************************************
+ *
+ *	m a k e _ m i s s i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	If the a given boolean is an index optimizable, build and 
+ *	return a inversion type node.  Indexes built before minor
+ *	version 3 (V3.2) have unreliable representations for missing
+ *	character string fields, so they won't be used.
+ *
+ **************************************/
+	NOD field, node, value;
+	IRB retrieval;
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(relation, type_rel);
+	DEV_BLKCHK(boolean, type_nod);
+	field = boolean->nod_arg[0];
+	if (field->nod_type != nod_field)
+		return NULL;
+	if ((USHORT) field->nod_arg[e_fld_stream] != stream ||
+		(USHORT) field->nod_arg[e_fld_id] != idx->idx_rpt[0].idx_field)
+		return NULL;
+	node = make_index_node(tdbb, relation, opt->opt_csb, idx);
+	retrieval = (IRB) node->nod_arg[e_idx_retrieval];
+	retrieval->irb_relation = relation;
+	retrieval->irb_generic = irb_starting;
+	retrieval->irb_lower_count = retrieval->irb_upper_count = 1;
+/* If we are matching less than the full index, this is a partial match */
+	if (retrieval->irb_upper_count < idx->idx_count)
+		retrieval->irb_generic |= irb_partial;
+	retrieval->irb_value[0] = retrieval->irb_value[idx->idx_count] =
+		value = PAR_make_node(tdbb, 0);
+	value->nod_type = nod_null;
+	idx->idx_runtime_flags |= idx_plan_missing;
+	return node;
+}
+
+
+static NOD make_starts(TDBB tdbb,
+					   register OPT opt,
+					   REL relation, NOD boolean, USHORT stream, IDX * idx)
+{
+/**************************************
+ *
+ *	m a k e _ s t a r t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	If the given boolean is an index optimizable, build and 
+ *	return a inversion type node.
+ *
+ **************************************/
+	NOD value, field, node;
+	IRB retrieval;
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(relation, type_rel);
+	DEV_BLKCHK(boolean, type_nod);
+	if (boolean->nod_type != nod_starts)
+		return NULL;
+	field = boolean->nod_arg[0];
+	value = boolean->nod_arg[1];
+	if (field->nod_type != nod_field) {
+		if (value->nod_type != nod_field)
+			return NULL;
+		field = value;
+		value = boolean->nod_arg[0];
+	}
+
+/* Every string starts with an empty string so
+   don't bother using an index in that case. */
+
+	if (value->nod_type == nod_literal) {
+		DSC *literal_desc;
+		literal_desc = &((LIT) value)->lit_desc;
+		if ((literal_desc->dsc_dtype == dtype_text &&
+			 literal_desc->dsc_length == 0) ||
+			(literal_desc->dsc_dtype == dtype_varying &&
+			 literal_desc->dsc_length == sizeof(USHORT)))
+			return NULL;
+	}
+
+	if ((USHORT) field->nod_arg[e_fld_stream] != stream ||
+		(USHORT) field->nod_arg[e_fld_id] != idx->idx_rpt[0].idx_field
+		|| !(idx->idx_rpt[0].idx_itype == idx_string
+			 || idx->idx_rpt[0].idx_itype == idx_byte_array
+			 || idx->idx_rpt[0].idx_itype == idx_metadata
+			 || idx->idx_rpt[0].idx_itype >= idx_first_intl_string)
+		|| !computable(opt->opt_csb, value, stream, FALSE))
+		return NULL;
+	node = make_index_node(tdbb, relation, opt->opt_csb, idx);
+	retrieval = (IRB) node->nod_arg[e_idx_retrieval];
+	retrieval->irb_relation = relation;
+	retrieval->irb_generic = irb_starting;
+	retrieval->irb_lower_count = retrieval->irb_upper_count = 1;
+/* If we are matching less than the full index, this is a partial match */
+	if (retrieval->irb_upper_count < idx->idx_count)
+		retrieval->irb_generic |= irb_partial;
+	retrieval->irb_value[0] = retrieval->irb_value[idx->idx_count] = value;
+	idx->idx_runtime_flags |= idx_plan_starts;
+	return node;
+}
+
+
+static BOOLEAN map_equal(NOD field1, NOD field2, NOD map)
+{
+/**************************************
+ *
+ *	m a p _ e q u a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Test to see if two fields are equal, where the fields 
+ *	are in two different streams possibly mapped to each other.
+ *	Order of the input fields is important.
+ *
+ **************************************/
+	NOD *map_ptr, *map_end, map_from, map_to;
+	DEV_BLKCHK(field1, type_nod);
+	DEV_BLKCHK(field2, type_nod);
+	DEV_BLKCHK(map, type_nod);
+	if (field1->nod_type != nod_field)
+		return FALSE;
+	if (field2->nod_type != nod_field)
+		return FALSE;
+/* look through the mapping and see if we can find an equivalence */
+	for (map_ptr = map->nod_arg, map_end = map_ptr + map->nod_count;
+		 map_ptr < map_end; map_ptr++) {
+		map_from = (*map_ptr)->nod_arg[e_asgn_from];
+		map_to = (*map_ptr)->nod_arg[e_asgn_to];
+		if (map_from->nod_type != nod_field || map_to->nod_type != nod_field)
+			continue;
+		if (field1->nod_arg[e_fld_stream] != map_from->nod_arg[e_fld_stream]
+			|| field1->nod_arg[e_fld_id] != map_from->nod_arg[e_fld_id])
+			continue;
+		if (field2->nod_arg[e_fld_stream] != map_to->nod_arg[e_fld_stream]
+			|| field2->nod_arg[e_fld_id] != map_to->nod_arg[e_fld_id])
+			continue;
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+
+static void mark_indices(csb_repeat * csb_tail, SSHORT relation_id)
+{
+/**************************************
+ *
+ *	m a r k _ i n d i c e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Mark indices that were not included 
+ *	in the user-specified access plan.
+ *
+ **************************************/
+	NOD access_type, plan, *arg, *end;
+	IDX *idx;
+	USHORT i, plan_count = 0;
+	if (!(plan = csb_tail->csb_plan))
+		return;
+	if (plan->nod_type != nod_retrieve)
+		return;
+/* find out how many indices were specified; if
+   there were none, this is a sequential retrieval */
+	if (access_type = plan->nod_arg[e_retrieve_access_type])
+		plan_count = access_type->nod_count;
+/* go through each of the indices and mark it unusable
+   for indexed retrieval unless it was specifically mentioned 
+   in the plan; also mark indices for navigational access */
+	idx = csb_tail->csb_idx;
+	for (i = 0; i < csb_tail->csb_indices; i++) {
+		if (access_type) {
+			for (arg = access_type->nod_arg, end = arg + plan_count;
+				 arg < end; arg += 3) {
+				if (relation_id != (SSHORT) * arg)
+					/* index %s cannot be used in the specified plan */
+					ERR_post(gds_index_unused, gds_arg_string, *(arg + 2), 0);
+				if (idx->idx_id == (USHORT) * (arg + 1))
+					if (access_type->nod_type == nod_navigational)
+						idx->idx_runtime_flags |= idx_plan_navigate;
+					else		/* nod_indices */
+						break;
+			}
+
+			if (arg == end)
+				idx->idx_runtime_flags |= idx_plan_dont_use;
+		}
+		else
+			idx->idx_runtime_flags |= idx_plan_dont_use;
+		idx = NEXT_IDX(idx->idx_rpt, idx->idx_count);
+	}
+}
+
+
+static SSHORT match_index(TDBB tdbb,
+						  register OPT opt,
+						  SSHORT stream, register NOD boolean, IDX * idx)
+{
+/**************************************
+ *
+ *	m a t c h _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Match a boolean against an index location lower and upper
+ *	bounds.  Return the number of relational nodes that were
+ *	matched.  In ODS versions prior to 7, descending indexes
+ *	were not reliable and will not be used.
+ *
+ **************************************/
+	NOD match, value;
+	SSHORT i, forward, count;
+	opt::opt_repeat * ptr;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(boolean, type_nod);
+	SET_TDBB(tdbb);
+	if (boolean->nod_count < 2)
+		return 0;
+	if (boolean->nod_type == nod_and)
+		return match_index(tdbb, opt, stream, boolean->nod_arg[0], idx) +
+			match_index(tdbb, opt, stream, boolean->nod_arg[1], idx);
+	forward = TRUE;
+	count = 0;
+	match = boolean->nod_arg[0];
+	value = boolean->nod_arg[1];
+#ifdef EXPRESSION_INDICES
+	if (idx->idx_expression) {
+		/* see if one side or the other is matchable to the index expression */
+
+		if (!expression_equal(tdbb, idx->idx_expression, match) ||
+			!computable(opt->opt_csb, value, stream, TRUE)) {
+			if (expression_equal(tdbb, idx->idx_expression, value) &&
+				computable(opt->opt_csb, match, stream, TRUE)) {
+				match = boolean->nod_arg[1];
+				value = boolean->nod_arg[0];
+			}
+			else
+				return 0;
+		}
+	}
+	else {
+#endif
+		/* If left side is not a field, swap sides. 
+		   If left side is still not a field, give up */
+
+		if (match->nod_type != nod_field ||
+			(USHORT) match->nod_arg[e_fld_stream] != stream ||
+			!computable(opt->opt_csb, value, stream, TRUE)) {
+			match = value;
+			value = boolean->nod_arg[0];
+			if (match->nod_type != nod_field ||
+				(USHORT) match->nod_arg[e_fld_stream] != stream ||
+				!computable(opt->opt_csb, value, stream, TRUE))
+				return 0;
+			forward = FALSE;
+		}
+#ifdef EXPRESSION_INDICES
+	}
+#endif
+
+/* match the field to an index, if possible, and save the value to be matched 
+   as either the lower or upper bound for retrieval, or both */
+
+	for (i = 0, ptr = opt->opt_rpt; i < idx->idx_count; i++, ptr++)
+		if
+#ifdef EXPRESSION_INDICES
+			(idx->idx_expression ||
+#endif
+			 ((USHORT) match->nod_arg[e_fld_id] == idx->idx_rpt[i].idx_field)
+#ifdef EXPRESSION_INDICES
+			)
+#endif
+		{
+			++count;
+			switch (boolean->nod_type) {
+			case nod_between:
+				if (!forward ||
+					!computable(opt->opt_csb, boolean->nod_arg[2], stream,
+								TRUE)) return 0;
+				ptr->opt_lower = value;
+				ptr->opt_upper = boolean->nod_arg[2];
+				ptr->opt_match = boolean;
+				break;
+			case nod_eql:
+				ptr->opt_lower = ptr->opt_upper = value;
+				ptr->opt_match = boolean;
+				break;
+			case nod_gtr:
+			case nod_geq:
+				if (forward)
+					ptr->opt_lower = value;
+				else
+					ptr->opt_upper = value;
+				ptr->opt_match = boolean;
+				break;
+			case nod_lss:
+			case nod_leq:
+				if (forward)
+					ptr->opt_upper = value;
+				else
+					ptr->opt_lower = value;
+				ptr->opt_match = boolean;
+				break;
+			}
+		}
+
+	return count;
+}
+
+
+static USHORT nav_rsb_size(RSB rsb, USHORT key_length, USHORT size)
+{
+/**************************************
+ *
+ *	n a v _ r s b _ s i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Calculate the size of a navigational rsb.  
+ *
+ **************************************/
+
+	DEV_BLKCHK(rsb, type_rsb);
+#ifdef SCROLLABLE_CURSORS
+/* allocate extra impure area to hold the current key, 
+   plus an upper and lower bound key value, for a total 
+   of three times the key length for the index */
+	size += sizeof(struct irsb_nav) + 3 * key_length;
+#else
+	size += sizeof(struct irsb_nav) + 2 * key_length;
+#endif
+	size = FB_ALIGN(size, ALIGNMENT);
+/* make room for an idx structure to describe the index
+   that was used to generate this rsb */
+	if (rsb->rsb_type == rsb_navigate)
+		rsb->rsb_arg[RSB_NAV_idx_offset] = (RSB) (SLONG) size;
+	size += sizeof(struct idx);
+	return size;
+}
+
+
+static BOOLEAN node_equality(NOD node1, NOD node2)
+{
+/**************************************
+ *
+ *	n o d e _ e q u a l i t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Test two field node pointers for symbolic equality.
+ *
+ **************************************/
+
+	DEV_BLKCHK(node1, type_nod);
+	DEV_BLKCHK(node2, type_nod);
+	if (!node1 || !node2)
+		return FALSE;
+	if (node1->nod_type != node2->nod_type)
+		return FALSE;
+	if (node1 == node2)
+		return TRUE;
+	switch (node1->nod_type) {
+	case nod_field:
+		return (node1->nod_arg[e_fld_stream] == node2->nod_arg[e_fld_stream]
+				&& node1->nod_arg[e_fld_id] == node2->nod_arg[e_fld_id]);
+	case nod_eql:
+		if (node_equality(node1->nod_arg[0], node2->nod_arg[0])
+			&& node_equality(node1->nod_arg[1], node2->nod_arg[1]))
+			return TRUE;
+		if (node_equality(node1->nod_arg[0], node2->nod_arg[1])
+			&& node_equality(node1->nod_arg[1], node2->nod_arg[0]))
+			return TRUE;
+		return FALSE;
+	case nod_gtr:
+	case nod_geq:
+	case nod_leq:
+	case nod_lss:
+	case nod_matches:
+	case nod_contains:
+	case nod_like:
+	default:
+		break;
+	}
+
+	return FALSE;
+}
+
+
+static NOD optimize_like(TDBB tdbb, NOD like_node)
+{
+/**************************************
+ *
+ *	o p t i m i z e _ l i k e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Optimize a LIKE expression, if possible,
+ *	into a "starting with" AND a "like".  This
+ *	will allow us to use the index for the
+ *	starting with, and the LIKE can just tag
+ *	aSLONG for the ride.
+ *	But on the ride it does useful work, consider
+ *	match LIKE "ab%c".  This is optimized by adding
+ *	AND starting_with "ab", but the LIKE clause is
+ *	still needed.
+ *
+ **************************************/
+	NOD search_node, escape_node, node;
+	DSC *search_desc, *escape_desc;
+	UCHAR *p, *end, *q, *p_start;
+	SSHORT count;
+	LIT literal;
+	USHORT ch, escape_ch;
+	USHORT p_count;
+	UCHAR tmp_buffer[32];		/* large enough to hold 1 ch of escape string */
+	BLK text_obj;
+	SET_TDBB(tdbb);
+	DEV_BLKCHK(like_node, type_nod);
+	search_node = like_node->nod_arg[1];
+	escape_node = (like_node->nod_count > 2) ? like_node->nod_arg[2] : NULL;
+/* if the matching string or the escape string can't 
+   be evaluated at compile time, forget it */
+	if ((search_node->nod_type != nod_literal) ||
+		(escape_node && escape_node->nod_type != nod_literal))
+		return NULL;
+	search_desc = &((LIT) search_node)->lit_desc;
+	if (escape_node)
+		escape_desc = &((LIT) escape_node)->lit_desc;
+/* if either is not a character expression, forget it */
+	if ((search_desc->dsc_dtype > dtype_any_text) ||
+		(escape_node && escape_desc->dsc_dtype > dtype_any_text))
+		return NULL;
+/* Get the escape character, if any */
+	text_obj = NULL;
+	if (escape_node) {
+		/* Ensure escape string is same character set as search string 
+		 * Error report on Overflow is OK, as sql only allows a single
+		 * character escape string */
+
+		p_count =
+			MOV_make_string(escape_desc, INTL_TTYPE(search_desc), &p,
+							reinterpret_cast < vary * >(tmp_buffer),
+							sizeof(tmp_buffer));
+		/* Now get first character from escape string */
+		escape_ch =
+			INTL_getch(tdbb, reinterpret_cast < TEXTTYPE * >(&text_obj),
+					   INTL_TTYPE(search_desc), &p, &p_count);
+	}
+
+/* if the first character is a wildcard char, forget it */
+
+	p = search_desc->dsc_address;
+	p_count = search_desc->dsc_length;
+	ch =
+		INTL_getch(tdbb, reinterpret_cast < TEXTTYPE * >(&text_obj),
+				   INTL_TTYPE(search_desc), &p, &p_count);
+	if ((!escape_node || ch != escape_ch)
+		&& (ch == SQL_MATCH_1_CHAR || ch == SQL_MATCH_ANY_CHARS))
+		return NULL;
+/* allocate a literal node to store the starting with string;
+   assume it will be shorter than the search string */
+	count =
+		lit_delta + (search_desc->dsc_length + sizeof(int) -
+					 1) / sizeof(int); node = PAR_make_node(tdbb, count);
+	node->nod_type = nod_literal;
+	node->nod_count = 0;
+	literal = (LIT) node;
+	literal->lit_desc = *search_desc;
+	literal->lit_desc.dsc_address = q = literal->lit_data;
+/* copy the string into the starting with literal, up to the first wildcard character */
+	p_count = search_desc->dsc_length;
+	for (p = search_desc->dsc_address, end =
+		 p + search_desc->dsc_length; p < end;) {
+		/* if there are escape characters, skip past them and 
+		   don't treat the next char as a wildcard */
+
+		p_start = p;
+		ch =
+			INTL_getch(tdbb, reinterpret_cast < TEXTTYPE * >(&text_obj),
+					   INTL_TTYPE(search_desc), &p, &p_count);
+		if (escape_node && (ch == escape_ch)) {
+			/* Check for Escape character at end of string */
+
+			if (!(p < end))
+				break;
+			p_start = p;
+			ch =
+				INTL_getch(tdbb, reinterpret_cast < TEXTTYPE * >(&text_obj),
+						   INTL_TTYPE(search_desc), &p, &p_count);
+		}
+		else if (ch == SQL_MATCH_1_CHAR || ch == SQL_MATCH_ANY_CHARS)
+			break;
+		/* copy the bytes of the character */
+		while (p_start < p)
+			*q++ = *p_start++;
+	}
+
+	literal->lit_desc.dsc_length = q - literal->lit_desc.dsc_address;
+	return node;
+}
+
+
+
+#ifdef OPT_DEBUG
+static void print_order(OPT opt,
+						USHORT position, double cardinality, double cost)
+{
+/**************************************
+ *
+ *	p r i n t _ o r d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	opt::opt_repeat * tail, *order_end;
+	DEV_BLKCHK(opt, type_opt);
+	order_end = opt->opt_rpt + position;
+	ib_fprintf(opt_debug_file, "print_order() -- position %2.2d: ", position);
+	for (tail = opt->opt_rpt; tail < order_end; tail++)
+		ib_fprintf(opt_debug_file, "stream %2.2d, ", tail->opt_stream);
+	ib_fprintf(opt_debug_file, "\n\t\t\tcardinality: %g\tcost: %g\n",
+			   cardinality, cost);
+}
+#endif
+
+
+static USHORT river_count(USHORT count, NOD * class_)
+{
+/**************************************
+ *
+ *	r i v e r _ c o u n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given an sort/merge join equivalence class (vector of node pointers
+ *	of representative values for rivers), return the count of rivers
+ *	with values.
+ *
+ **************************************/
+	USHORT i, cnt;
+#ifdef DEV_BUILD
+	if (*class_)
+		DEV_BLKCHK(*class_, type_nod);
+#endif
+	cnt = 0;
+	for (i = 0; i < count; i++, class_++)
+		if (*class_) {
+			cnt++;
+			DEV_BLKCHK(*class_, type_nod);
+		}
+
+	return cnt;
+}
+
+
+static BOOLEAN river_reference(RIV river, NOD node)
+{
+/**************************************
+ *
+ *	r i v e r _ r e f e r e n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if a value node is a reference to a given river.  Return
+ *	TRUE or FALSE.
+ *
+ **************************************/
+	UCHAR *streams, *end;
+	DEV_BLKCHK(river, type_riv);
+	DEV_BLKCHK(node, type_nod);
+	if (node->nod_type != nod_field)
+		return FALSE;
+	for (streams = river->riv_streams, end =
+		 streams + river->riv_count; streams < end; streams++)
+		if ((USHORT) node->nod_arg[e_fld_stream] == *streams)
+			return TRUE;
+	return FALSE;
+}
+
+
+static BOOLEAN search_stack(NOD node, LLS stack)
+{
+/**************************************
+ *
+ *	s e a r c h _ s t a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Search a stack for the presence of a particular value.
+ *
+ **************************************/
+
+	DEV_BLKCHK(node, type_nod);
+	DEV_BLKCHK(stack, type_lls);
+	for (; stack; stack = stack->lls_next)
+		if (node_equality(node, (NOD) stack->lls_object))
+			return TRUE;
+	return FALSE;
+}
+
+
+static void set_active(OPT opt, RIV river)
+{
+/**************************************
+ *
+ *	s e t _ a c t i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set a group of streams active.
+ *
+ **************************************/
+	CSB csb;
+	UCHAR *streams, *end;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(river, type_riv);
+	csb = opt->opt_csb;
+	for (streams = river->riv_streams, end =
+		 streams + river->riv_count; streams < end; streams++)
+		csb->csb_rpt[*streams].csb_flags |= csb_active;
+}
+
+
+static void set_direction(NOD from_clause, NOD to_clause)
+{
+/**************************************
+ *
+ *	s e t _ d i r e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update the direction of a GROUP BY, DISTINCT, or ORDER BY 
+ *	clause to the same direction as another clause. 	
+ *
+ **************************************/
+	NOD *from_ptr, *to_ptr, *end;
+	DEV_BLKCHK(from_clause, type_nod);
+	DEV_BLKCHK(to_clause, type_nod);
+/* all three clauses are allocated with twice the number of arguments to 
+   leave room at the end for an ascending/descending flag, one for each field */
+	from_ptr = from_clause->nod_arg + from_clause->nod_count;
+	to_ptr = to_clause->nod_arg + to_clause->nod_count;
+	for (end = from_ptr + from_clause->nod_count; from_ptr < end; from_ptr++)
+		*to_ptr++ = *from_ptr;
+}
+
+
+
+static void set_inactive(OPT opt, RIV river)
+{
+/**************************************
+ *
+ *	s e t _ i n a c t i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set a group of streams inactive.
+ *
+ **************************************/
+	CSB csb;
+	UCHAR *streams, *end;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(river, type_riv);
+	csb = opt->opt_csb;
+	for (streams = river->riv_streams, end =
+		 streams + river->riv_count; streams < end; streams++)
+		csb->csb_rpt[*streams].csb_flags &= ~csb_active;
+}
+
+
+static void set_made_river(OPT opt, RIV river)
+{
+/**************************************
+ *
+ *	s e t _ m a d e _ r i v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Mark all the streams in a river with the csb_made_river flag.
+ * 
+ *      A stream with this flag set, incicates that this stream has
+ *      already been made into a river. Currently, this flag is used
+ *      in computable() to decide if we can use the an index to
+ *      optimise retrieving the streams involved in the conjunct.
+ *
+ *      We can use an index in retrieving the streams involved in a
+ *      conjunct if both of the streams are currently active or have
+ *      been processed (and made into rivers) before.
+ *
+ **************************************/
+	CSB csb;
+	UCHAR *streams, *end;
+	DEV_BLKCHK(opt, type_opt);
+	DEV_BLKCHK(river, type_riv);
+	csb = opt->opt_csb;
+	for (streams = river->riv_streams, end =
+		 streams + river->riv_count; streams < end; streams++)
+		csb->csb_rpt[*streams].csb_flags |= csb_made_river;
+}
+
+
+static void set_position(NOD from_clause, NOD to_clause, NOD map)
+{
+/**************************************
+ *
+ *	s e t _ p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update the fields in a GROUP BY, DISTINCT, or ORDER BY 
+ *	clause to the same position as another clause, possibly 
+ *	using a mapping between the streams.
+ *
+ **************************************/
+	NOD *from_ptr, *to_ptr;
+	NOD *from_end, *to_end;
+	NOD *to_swap, swap;
+	DEV_BLKCHK(from_clause, type_nod);
+	DEV_BLKCHK(to_clause, type_nod);
+	DEV_BLKCHK(map, type_nod);
+/* Track the position in the from list with "to_swap", and find the corresponding 
+   field in the from list with "to_ptr", then swap the two fields.  By the time 
+   we get to the end of the from list, all fields in the to list will be reordered. */
+	to_swap = to_clause->nod_arg;
+	for (from_ptr = from_clause->nod_arg, from_end =
+		 from_ptr + from_clause->nod_count; from_ptr < from_end; from_ptr++) {
+		for (to_ptr = to_clause->nod_arg, to_end =
+			 to_ptr + from_clause->nod_count; to_ptr < to_end; to_ptr++) {
+			if ((map && map_equal(*to_ptr, *from_ptr, map))
+				|| (!map
+					&& (*from_ptr)->nod_arg[e_fld_stream] ==
+					(*to_ptr)->nod_arg[e_fld_stream]
+					&& (*from_ptr)->nod_arg[e_fld_id] ==
+					(*to_ptr)->nod_arg[e_fld_id])) {
+				swap = *to_swap;
+				*to_swap = *to_ptr;
+				*to_ptr = swap;
+			}
+		}
+
+		to_swap++;
+	}
+
+}
+
+
+static void set_rse_inactive(CSB csb, RSE rse)
+{
+/***************************************************
+ *
+ *  s e t _ r s e _ i n a c t i v e
+ *
+ ***************************************************
+ *
+ * Functional Description:
+ *    Set all the streams involved in an rse as inactive. Do it recursively.
+ *
+ ***************************************************/
+	NOD node, *ptr, *end;
+	SSHORT stream;
+	for (ptr = rse->rse_relation, end = ptr + rse->rse_count;
+		 ptr < end; ptr++) {
+		node = *ptr;
+		if (node->nod_type != nod_rse) {
+			stream = (USHORT) node->nod_arg[STREAM_INDEX(node)];
+			csb->csb_rpt[stream].csb_flags &= ~csb_active;
+		}
+		else
+			set_rse_inactive(csb, (RSE) node);
+	}
+}
diff --git a/src/jrd/opt_proto.h b/src/jrd/opt_proto.h
new file mode 100644
index 0000000000..787083116d
--- /dev/null
+++ b/src/jrd/opt_proto.h
@@ -0,0 +1,44 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		opt_proto.h
+ *	DESCRIPTION:	Prototype header file for opt.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_OPT_PROTO_H_
+#define _JRD_OPT_PROTO_H_
+
+#include "../jrd/jrd.h"
+#include "../jrd/btr.h"
+#include "../jrd/rse.h"
+#include "../jrd/lls.h"
+
+
+extern BOOLEAN OPT_access_path(struct req *, SCHAR *, SSHORT, USHORT *);
+extern struct rsb *OPT_compile(TDBB, register struct csb *,
+							   register struct rse *, struct lls *);
+extern struct nod *OPT_make_dbkey(register struct opt *, struct nod *,
+								  USHORT);
+extern struct nod *OPT_make_index(TDBB, struct opt *, struct rel *,
+								  struct idx *);
+extern int OPT_match_index(struct opt *, USHORT, struct idx *);
+extern void OPT_set_index(TDBB, struct req *, struct rsb **, struct rel *,
+						  struct idx *);
+
+#endif /* _JRD_OPT_PROTO_H_ */
diff --git a/src/jrd/os2.cpp b/src/jrd/os2.cpp
new file mode 100644
index 0000000000..fbf4b4488e
--- /dev/null
+++ b/src/jrd/os2.cpp
@@ -0,0 +1,685 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		os2.c
+ *	DESCRIPTION:	OS2 specific physical IO
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#define INCL_DOSFILEMGR
+#include <os2.h>
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/pio.h"
+#include "../jrd/cch.h"
+#include "../jrd/ods.h"
+#include "../jrd/lck.h"
+#include "../jrd/codes.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/isc_f_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/thd_proto.h"
+
+
+extern "C" {
+
+
+#define MAXPATHLEN		1024
+#define DEFAULTBUFFERSIZE	1024
+
+static BOOLEAN check_network(TEXT *);
+static FIL seek_file(FIL, BDB, STATUS *);
+static FIL setup_file(DBB, TEXT *, USHORT, ULONG);
+static BOOLEAN dos_error(TEXT *, FIL, STATUS, ULONG, STATUS *);
+
+
+int PIO_add_file(DBB dbb, FIL main_file, TEXT * file_name, SLONG start)
+{
+/**************************************
+ *
+ *	P I O _ a d d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a file to an existing database.  Return the sequence
+ *	number of the new file.  If anything goes wrong, return a
+ *	sequence of 0.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	USHORT sequence;
+	FIL file, new_file;
+
+	if (!(new_file = PIO_create(dbb, file_name, strlen(file_name), FALSE)))
+		return 0;
+
+	new_file->fil_min_page = start;
+	sequence = 1;
+
+	for (file = main_file; file->fil_next; file = file->fil_next)
+		++sequence;
+
+	file->fil_max_page = start - 1;
+	file->fil_next = new_file;
+
+	return sequence;
+}
+
+
+void PIO_close(FIL main_file)
+{
+/**************************************
+ *
+ *	P I O _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	FIL file;
+	USHORT i;
+
+	for (file = main_file; file; file = file->fil_next)
+		if (file->fil_desc) {
+			DosClose((HFILE) file->fil_desc);
+			V4_MUTEX_DESTROY(file->fil_mutex);
+		}
+}
+
+
+int PIO_connection(TEXT * file_name, USHORT * file_length)
+{
+/**************************************
+ *
+ *	P I O _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a file specification and determine whether a page/lock
+ *	server is required and available.  If so, return a "connection"
+ *	block.  If not, return NULL.
+ *
+ *	Note: The file name must have been expanded prior to this call.
+ *
+ **************************************/
+
+	return NULL;
+}
+
+
+FIL PIO_create(DBB dbb, TEXT * string, SSHORT length, BOOLEAN overwrite)
+{
+/**************************************
+ *
+ *	P I O _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new database file.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	ULONG desc, status, action, open_mode;
+	FIL file;
+	TEXT expanded_name[MAXPATHLEN], temp_name[MAXPATHLEN], *file_name;
+
+	length = PIO_expand(string, length, expanded_name);
+
+	if (check_network(expanded_name))
+		ERR_post(gds__unavailable, 0);
+
+	open_mode = OPEN_ACCESS_READWRITE |	/* Access mode -- read/write */
+		OPEN_SHARE_DENYNONE |	/* Share mode -- permit read/write */
+		OPEN_FLAGS_NOINHERIT |	/* Inheritance mode -- don't */
+		OPEN_FLAGS_FAIL_ON_ERROR |	/* Fail errors -- return code */
+		OPEN_FLAGS_WRITE_THROUGH |	/* Write thru -- absolutely */
+		(0 << 15);				/* DASD open -- no */
+
+/* take care of non null-terminated case */
+
+	if (length) {
+		strncpy(temp_name, string, length);
+		temp_name[length] = '\0';
+		string = temp_name;
+	}
+
+	status = DosOpen(string,	/* File pathname */
+					 &desc,		/* File handle */
+					 &action,	/* Action taken */
+					 100,		/* Initial size */
+					 FILE_NORMAL,	/* File attributes */
+					 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,	/* Open Flag */
+					 open_mode,	/* Open mode (see above) */
+					 0);		/* Reserved */
+
+	if (status)
+		ERR_post(isc_io_error,
+				 gds_arg_string, "DosOpen (create)",
+				 gds_arg_cstring, length, ERR_string(string, length),
+				 isc_arg_gds, isc_io_create_err, gds_arg_dos, status, 0);
+
+/* File open succeeded.  Now expand the file name. */
+
+	file = setup_file(dbb, expanded_name, length, desc);
+
+	return file;
+}
+
+
+int PIO_expand(TEXT * file_name, USHORT file_length, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *	P I O _ e x p a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fully expand a file name.  If the file doesn't exist, do something
+ *	intelligent.
+ *
+ **************************************/
+
+	return ISC_expand_filename(file_name, file_length, expanded_name);
+}
+
+
+void PIO_flush(FIL file)
+{
+/**************************************
+ *
+ *	P I O _ f l u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush the operating system cache back to good, solid oxide.
+ *
+ **************************************/
+}
+
+
+void PIO_force_write(FIL file, USHORT flag)
+{
+/**************************************
+ *
+ *	P I O _ f o r c e _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set (or clear) force write, if possible, for the database.
+ *
+ **************************************/
+}
+
+
+void PIO_header(DBB dbb, SCHAR * address, int length)
+{
+/**************************************
+ *
+ *	P I O _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the page header.  This assumes that the file has not been
+ *	repositioned since the file was originally mapped.
+ *
+ **************************************/
+	ULONG status, actual_length;
+	ULONG new_offset;
+	FIL file;
+
+	file = dbb->dbb_file;
+
+	V4_MUTEX_LOCK(file->fil_mutex);
+
+	if (status = DosSetFilePtr(file->fil_desc, 0, FILE_BEGIN, &new_offset)) {
+		V4_MUTEX_UNLOCK(file->fil_mutex);
+		dos_error("DosSetFilePtr", file, isc_io_read_err, status, 0);
+	}
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		if (
+			(status =
+			 DosRead(file->fil_desc, spare_buffer, length, &actual_length))
+			|| actual_length != length) {
+			V4_MUTEX_UNLOCK(file->fil_mutex);
+			dos_error("DosRead (read header)", file, isc_io_read_err, status,
+					  0);
+		}
+
+		(*dbb->dbb_decrypt) (dbb->dbb_encrypt_key->str_data,
+							 spare_buffer, length, address);
+	}
+	else
+#endif
+	{
+		if (
+			(status =
+			 DosRead(file->fil_desc, address, length, &actual_length))
+			|| actual_length != length) {
+			V4_MUTEX_UNLOCK(file->fil_mutex);
+			dos_error("DosRead (read header)", file, isc_io_read_err, status,
+					  0);
+		}
+	}
+
+	V4_MUTEX_UNLOCK(file->fil_mutex);
+}
+
+
+SLONG PIO_max_alloc(DBB dbb)
+{
+/**************************************
+ *
+ *	P I O _ m a x _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute last physically allocated page of database.
+ *
+ **************************************/
+	ULONG status;
+	FILESTATUS3 buffer;
+	ULONG length;
+	FIL file;
+
+	for (file = dbb->dbb_file; file->fil_next; file = file->fil_next);
+
+	if (status =
+		DosQueryFileInfo(file->fil_desc, 1, (PVOID) & buffer,
+						 sizeof(buffer))) dos_error("DosQueryFileInfo", file,
+													isc_io_access_err, status,
+													0);
+
+	length = buffer.cbFile;
+
+	return file->fil_min_page - file->fil_fudge +
+		(length + dbb->dbb_page_size - 1) / dbb->dbb_page_size;
+}
+
+
+FIL PIO_open(DBB dbb,
+			 TEXT * string,
+			 SSHORT length,
+			 SSHORT trace_flag,
+			 BLK connection, TEXT * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	P I O _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.  If a "connection" block is provided, use
+ *	the connection to communication with a page/lock server.
+ *
+ **************************************/
+	PAG page;
+	ULONG desc, action, status;
+	ULONG open_mode;
+	TEXT temp_name[MAXPATHLEN];
+
+	if (check_network(string))
+		ERR_post(gds__unavailable, 0);
+
+	open_mode = OPEN_ACCESS_READWRITE |	/* Access mode -- read/write */
+		OPEN_SHARE_DENYNONE |	/* Share mode -- permit read/write */
+		OPEN_FLAGS_NOINHERIT |	/* Inheritance mode -- don't */
+		OPEN_FLAGS_FAIL_ON_ERROR |	/* Fail errors -- return code */
+		OPEN_FLAGS_WRITE_THROUGH |	/* Write thru -- absolutely */
+		(0 << 15);				/* DASD open -- no */
+
+/* take care of non null-terminated case */
+
+	if (length) {
+		strncpy(temp_name, string, length);
+		temp_name[length] = '\0';
+		string = temp_name;
+	}
+
+	status = DosOpen(string,	/* File pathname */
+					 &desc,		/* File handle */
+					 &action,	/* Action taken */
+					 100,		/* Initial size */
+					 FILE_NORMAL,	/* File attributes */
+					 OPEN_ACTION_OPEN_IF_EXISTS,	/* Open Flag (truncate if file exists) */
+					 open_mode,	/* Open mode (see above) */
+					 0L);		/* Reserved */
+
+	if (status)
+		ERR_post(isc_io_error,
+				 gds_arg_string, "DosOpen (open)",
+				 gds_arg_cstring, file_length, ERR_string(file_name,
+														  file_length),
+				 isc_arg_gds, isc_io_open_err, gds_arg_dos, status, 0);
+
+	return setup_file(dbb, string, length, desc);
+}
+
+
+int PIO_read(FIL file, BDB bdb, PAG page, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	P I O _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a data page.  Oh wow.
+ *
+ **************************************/
+	ULONG status, actual_length;
+	DBB dbb;
+
+	dbb = bdb->bdb_dbb;
+	if (!(file = seek_file(file, bdb, status_vector)))
+		return FALSE;
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		if (status =
+			DosRead(file->fil_desc, spare_buffer, dbb->dbb_page_size,
+					&actual_length)) {
+			V4_MUTEX_UNLOCK(file->fil_mutex);
+			return dos_error("DosRead", file, isc_io_read_err, status,
+							 status_vector);
+		}
+
+		(*dbb->dbb_decrypt) (dbb->dbb_encrypt_key->str_data,
+							 spare_buffer, dbb->dbb_page_size, page);
+	}
+	else
+#endif
+	{
+		if (status =
+			DosRead(file->fil_desc, page, dbb->dbb_page_size,
+					&actual_length)) {
+			V4_MUTEX_UNLOCK(file->fil_mutex);
+			return dos_error("DosRead", file, isc_io_read_err, status,
+							 status_vector);
+		}
+	}
+
+	V4_MUTEX_UNLOCK(file->fil_mutex);
+
+	if (actual_length != dbb->dbb_page_size)
+		return dos_error("DosRead truncated", file, isc_io_read_err, status,
+						 status_vector);
+
+	return TRUE;
+}
+
+
+int PIO_write(FIL file, BDB bdb, PAG page, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	P I O _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a data page.  Oh wow.
+ *
+ **************************************/
+	ULONG status, actual_length;
+	DBB dbb;
+
+	dbb = bdb->bdb_dbb;
+	if (!(file = seek_file(file, bdb, status_vector)))
+		return FALSE;
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		(*dbb->dbb_encrypt) (dbb->dbb_encrypt_key->str_data,
+							 page, dbb->dbb_page_size, spare_buffer);
+		if (status =
+			DosWrite(file->fil_desc, spare_buffer, dbb->dbb_page_size,
+					 &actual_length)) {
+			V4_MUTEX_UNLOCK(file->fil_mutex);
+			return dos_error("DosWrite", file, isc_io_write_err, status,
+							 status_vector);
+		}
+	}
+	else
+#endif
+	{
+		if (status =
+			DosWrite(file->fil_desc, page, dbb->dbb_page_size,
+					 &actual_length)) {
+			V4_MUTEX_UNLOCK(file->fil_mutex);
+			return dos_error("DosWrite", file, isc_io_write_err, status,
+							 status_vector);
+		}
+	}
+
+	V4_MUTEX_UNLOCK(file->fil_mutex);
+
+	if (actual_length != dbb->dbb_page_size)
+		return dos_error("DosWrite truncated", file, isc_io_write_err, status,
+						 status_vector);
+
+	return TRUE;
+}
+
+
+static BOOLEAN check_network(TEXT * file_name)
+{
+/**************************************
+ *
+ *	c h e c k _ n e t w o r k
+ *
+ **************************************
+ *
+ * Functional description
+ *    Try to determine whether path name given refers to a remote resource.
+ *    This is necessary under OS/2 since remote path names (prefixed by two
+ *    slashes, or higher than physical drive letters) may be used as ordinary
+ *    file names.  If the remote server has failed for any reason to make
+ *    the connection, it should not be allowed here either.
+ *    This routine checks for both the slash slash network prefix,
+ *    and the drive letter redirection to network resources.
+ *    Returns FALSE if local, TRUE if network.
+ *
+ **************************************/
+
+	if (file_name[0] == '\\' && file_name[1] == '\\')
+		return TRUE;
+
+	return FALSE;
+}
+
+
+static FIL seek_file(FIL file, BDB bdb, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	s e e k _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a buffer descriptor block, find the appropropriate
+ *	file block and seek to the proper page in that file.
+ *
+ **************************************/
+	ULONG status;
+	ULONG page, offset, new_offset;
+	DBB dbb;
+
+	dbb = bdb->bdb_dbb;
+	page = bdb->bdb_page;
+
+	for (;; file = file->fil_next)
+		if (!file)
+			CORRUPT(158);		/* msg 158 cannot sort on a field that does not exist */
+		else if (page >= file->fil_min_page && page <= file->fil_max_page)
+			break;
+
+	page -= file->fil_min_page - file->fil_fudge;
+	offset = page * dbb->dbb_page_size;
+
+	V4_MUTEX_LOCK(file->fil_mutex);
+
+	if (status =
+		DosSetFilePtr(file->fil_desc, offset, FILE_BEGIN, &new_offset)) {
+		V4_MUTEX_UNLOCK(file->fil_mutex);
+		return (FIL) dos_error("DosSetFilePtr", file, isc_io_access_err,
+							   status, status_vector);
+	}
+
+	return file;
+}
+
+
+static FIL setup_file(
+					  DBB dbb,
+					  TEXT * file_name, USHORT file_length, ULONG desc)
+{
+/**************************************
+ *
+ *	s e t u p _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up file and lock blocks for a file.
+ *
+ **************************************/
+	FIL file;
+	LCK lock;
+	TEXT *p, *q;
+
+/* Allocate file block and copy file name string */
+
+	file = (FIL) ALLOCPV(type_fil, file_length + 1);
+	file->fil_desc = desc;
+	file->fil_length = file_length;
+	file->fil_max_page = -1;
+	MOVE_FAST(file_name, file->fil_string, file_length);
+	file->fil_string[file_length] = 0;
+	V4_MUTEX_INIT(file->fil_mutex);
+
+/* If this isn't the primary file, we're done */
+
+	if (dbb->dbb_file)
+		return file;
+
+/* Build unique lock string for file and construct lock block */
+
+	dbb->dbb_lock = lock = (LCK) ALLOCPV(type_lck, file_length);
+	lock->lck_type = LCK_database;
+	lock->lck_owner_handle = LCK_get_owner_handle(NULL_TDBB, lock->lck_type);
+	lock->lck_object = (BLK) dbb;
+	lock->lck_length = file_length;
+	lock->lck_ast = CCH_down_grade_dbb;
+	lock->lck_dbb = dbb;
+	MOVE_FAST(file_name, lock->lck_key.lck_string, file_length);
+
+/* upcase the string to ensure equality on OS/2 */
+
+	for (p = lock->lck_key.lck_string; file_length--; p++)
+		*p = UPPER(*p);
+
+/* Try to get an exclusive lock on database.  If this fails, insist
+   on at least a shared lock */
+
+	dbb->dbb_flags |= DBB_exclusive;
+	if (!LCK_lock(NULL_TDBB, lock, LCK_EX, LCK_NO_WAIT)) {
+		dbb->dbb_flags &= ~DBB_exclusive;
+		LCK_lock(NULL_TDBB, lock,
+				 (dbb->dbb_flags & DBB_cache_manager) ? LCK_SR : LCK_SW,
+				 LCK_WAIT);
+	}
+
+	return file;
+}
+
+
+static BOOLEAN dos_error(
+						 TEXT * string,
+						 FIL file,
+						 STATUS operation,
+						 ULONG status, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	d o s _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody has noticed a file system error and expects error
+ *	to do something about it.  Harumph!
+ *
+ **************************************/
+
+	if (status_vector) {
+		*status_vector++ = isc_arg_gds;
+		*status_vector++ = isc_io_error;
+		*status_vector++ = gds_arg_string;
+		*status_vector++ = (STATUS) string;
+		*status_vector++ = gds_arg_string;
+		*status_vector++ =
+			(STATUS) ERR_string(file->fil_string, file->fil_length);
+		*status_vector++ = isc_arg_gds;
+		*status_vector++ = operation;
+		*status_vector++ = gds_arg_dos;
+		*status_vector++ = status;
+		*status_vector++ = gds_arg_end;
+		return FALSE;
+	}
+	else
+		ERR_post(isc_io_error,
+				 gds_arg_string, string,
+				 gds_arg_string, ERR_string(file->fil_string,
+											file->fil_length), isc_arg_gds,
+				 operation, gds_arg_dos, status, 0);
+}
+
+
+} // extern "C"
diff --git a/src/jrd/pag.cpp b/src/jrd/pag.cpp
new file mode 100644
index 0000000000..270db6a164
--- /dev/null
+++ b/src/jrd/pag.cpp
@@ -0,0 +1,2057 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		pag.c
+ *	DESCRIPTION:	Page level ods manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/*
+ * Modified by: Patrick J. P. Griffin
+ * Date: 11/29/2000
+ * Problem:   Bug 116733 Too many generators corrupt database.
+ *            DPM_gen_id was not calculating page and offset correctly.
+ * Change:    Caculate pgc_gpg, number of generators per page,
+ *            for use in DPM_gen_id.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/jrd.h"
+#include "../jrd/pag.h"
+#include "../jrd/ods.h"
+#include "../jrd/pio.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/license.h"
+#include "../jrd/jrn.h"
+#include "../jrd/lck.h"
+#include "../jrd/sdw.h"
+#include "../jrd/cch.h"
+#include "../jrd/tra.h"
+#include "../jrd/llio.h"
+#ifdef VIO_DEBUG
+#include "../jrd/vio_debug.h"
+#include "../jrd/all.h"
+#endif
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/lck_proto.h"
+#include "../jrd/llio_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/ail.h"
+
+extern "C" {
+
+static void find_clump_space(SLONG, WIN *, PAG *, USHORT, SSHORT, UCHAR *,
+							 USHORT);
+static BOOLEAN find_type(SLONG, WIN *, PAG *, USHORT, USHORT, UCHAR **,
+						 UCHAR **);
+
+#ifdef READONLY_DATABASE
+#define ERR_POST_IF_DATABASE_IS_READONLY(dbb)	{if (dbb->dbb_flags & DBB_read_only) ERR_post (isc_read_only_database, 0);}
+#else
+#define ERR_POST_IF_DATABASE_IS_READONLY
+#endif /* READONLY_DATABASE */
+
+/*  This macro enables the ability of the engine to connect to databases
+ *  from ODS 8 up to the latest.  If this macro is undefined, the engine
+ *  only opens a database of the current ODS major version.
+ */
+#define ODS_8_TO_CURRENT
+
+/* Class definitions
+
+	1		Apollo 68K, Dn 10K
+	2		Sun 68k, Sun Sparc, HP 9000/300, MAC AUX, IMP, DELTA, NeXT, UNIXWARE, DG_X86
+	3		Sun 386i, XENIX, EPSON
+	4		VMS
+	5		Ultrix/VAX
+	6		Ultrix/MIPS
+	7		HP 900/800 (precision)
+	8		NetWare
+	9		MAC-OS
+       10		IBM RS/6000
+       11		DG AViiON
+       12		HP MPE/XL
+       13		Silicon Grpahics/IRIS
+       14		Cray
+       15		Dec OSF/1
+       16		NT -- post 4.0 (delivered 4.0 as class 8)
+       17               OS/2
+       18               Windows 16 bit
+       19             LINUX on Intel series
+       20             LINUX on sparc systems
+	   21             FreeBSD/i386
+	   22             NetBSD/i386
+       
+*/
+
+// TMN: Left the APOLLO stuff commented out for historical reference. :-)
+//#ifdef APOLLO
+//#define	CLASS		1
+//#endif
+
+#ifdef sun
+#ifdef i386
+#define CLASS		3
+#else
+#define CLASS		2
+#endif
+#endif
+
+#ifdef MAC
+#define CLASS		9
+#endif
+
+#ifdef hpux
+#ifdef hp9000s300
+#define CLASS		2
+#else
+#define CLASS		7
+#endif
+#endif
+
+#ifdef ultrix
+#ifdef mips
+#define CLASS		6
+#else
+#define CLASS		5
+#endif
+#endif
+
+#ifdef VMS
+#define CLASS		4
+#endif
+
+#ifdef AIX
+#define CLASS		10
+#endif
+
+#ifdef AIX_PPC
+#define CLASS		10
+#endif
+
+#ifdef XENIX
+#define CLASS		3
+#endif
+
+#ifdef IMP
+#define CLASS		2
+#endif
+
+#ifdef M88K
+#define CLASS		2
+#endif
+
+#ifdef UNIXWARE
+#define CLASS		2
+#endif
+
+#ifdef NCR3000
+#define CLASS		2
+#endif
+
+#ifdef DELTA
+#define CLASS		2
+#endif
+
+#ifdef DGUX
+#ifdef DG_X86
+#define CLASS		2
+#else
+#define CLASS		11
+#endif /* DG_X86 */
+#endif /* DGUX */
+
+//
+//#ifdef mpexl
+//#define CLASS		12
+//#endif
+//
+
+#ifdef sgi
+#define CLASS		13
+#endif
+
+#ifdef WIN_NT
+#define CLASS		16
+#endif
+
+#ifdef NETWARE_386
+#define CLASS		8
+#endif
+
+#ifdef EPSON
+#define CLASS		3
+#endif
+
+#ifdef DECOSF
+#define CLASS		15
+#endif
+
+#ifdef linux
+#ifdef i386
+#define CLASS           19
+#endif
+#ifdef i586
+#define CLASS           19
+#endif
+#ifdef sparc
+#define CLASS           20
+#endif
+#endif
+
+#ifdef FREEBSD
+#define CLASS           21
+#endif
+
+#ifdef NETBSD
+#define CLASS           22
+#endif
+
+
+
+int PAG_add_clump(
+				  SLONG page_num,
+				  USHORT type,
+				  USHORT len, UCHAR * entry, USHORT mode, USHORT must_write)
+{
+/***********************************************
+ *
+ *	P A G _ a d d _ c l u m p
+ *
+ ***********************************************
+ *
+ * Functional description
+ *	Adds a clump to log/header page.
+ *	mode
+ *		0 - add			CLUMP_ADD
+ *		1 - replace		CLUMP_REPLACE
+ *		2 - replace only!	CLUMP_REPLACE_ONLY
+ *	returns
+ *		TRUE - modified page
+ *		FALSE - nothing done
+ *
+ **************************************/
+	DBB dbb;
+	HDR header;
+	LIP logp;
+	WIN window;
+	UCHAR *entry_p, *clump_end, *r;
+	USHORT l;
+	int found;
+	USHORT *end_addr;
+	PAG page;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	ERR_POST_IF_DATABASE_IS_READONLY(dbb);
+
+	window.win_page = page_num;
+	window.win_flags = 0;
+	if (page_num == HEADER_PAGE) {
+		page = CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+		header = (HDR) page;
+		end_addr = &header->hdr_end;
+	}
+	else {
+		page = CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+		logp = (LIP) page;
+		end_addr = &logp->log_end;
+	}
+
+	while (mode != CLUMP_ADD) {
+		found = find_type(page_num, &window, &page, LCK_write, type,
+						  &entry_p, &clump_end);
+
+		/* If we did'nt find it and it is REPLACE_ONLY, return */
+
+		if ((!found) && (mode == CLUMP_REPLACE_ONLY)) {
+			CCH_RELEASE(tdbb, &window);
+			return FALSE;
+		}
+
+		/* If not found, just go and add the entry */
+
+		if (!found)
+			break;
+
+		/* if same size, overwrite it */
+
+		if (entry_p[1] == len) {
+			entry_p += 2;
+			r = entry;
+			if (l = len) {
+				if (must_write)
+					CCH_MARK_MUST_WRITE(tdbb, &window);
+				else
+					CCH_MARK(tdbb, &window);
+				do
+					*entry_p++ = *r++;
+				while (--l);
+
+				if (dbb->dbb_wal)
+					CCH_journal_page(tdbb, &window);
+			}
+			CCH_RELEASE(tdbb, &window);
+			return TRUE;
+		}
+
+		/* delete the entry 
+
+		 * Page is marked must write because of precedence problems.  Later
+		 * on we may allocate a new page and set up a precedence relationship.
+		 * This may be the lower precedence page and so it cannot be dirty
+		 */
+
+		CCH_MARK_MUST_WRITE(tdbb, &window);
+
+		*end_addr -= (2 + entry_p[1]);
+
+		r = entry_p + 2 + entry_p[1];
+		l = clump_end - r + 1;
+
+		if (l)
+			do
+				*entry_p++ = *r++;
+			while (--l);
+
+		if (dbb->dbb_wal)
+			CCH_journal_page(tdbb, &window);
+
+		CCH_RELEASE(tdbb, &window);
+
+		/* refetch the page */
+
+		window.win_page = page_num;
+		if (page_num == HEADER_PAGE) {
+			page = CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+			header = (HDR) page;
+			end_addr = &header->hdr_end;
+		}
+		else {
+			page = CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+			logp = (LIP) page;
+			end_addr = &logp->log_end;
+		}
+		break;
+	}
+
+/* Add the entry */
+
+	find_clump_space(page_num, &window, &page, type, len, entry, must_write);
+
+	if (dbb->dbb_wal)
+		CCH_journal_page(tdbb, &window);
+
+	CCH_RELEASE(tdbb, &window);
+	return TRUE;
+}
+
+
+USHORT PAG_add_file(TEXT * file_name, SLONG start)
+{
+/**************************************
+ *
+ *	P A G _ a d d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a file to the current database.  Return the sequence
+ *	number for the new file.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	FIL file, next;
+	WIN window;
+	HDR header;
+	USHORT sequence;
+	ULONG seqno;
+	ULONG offset;
+	JRNF journal;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	ERR_POST_IF_DATABASE_IS_READONLY(dbb);
+
+/* Find current last file */
+
+	for (file = dbb->dbb_file; file->fil_next; file = file->fil_next);
+
+/* Create the file.  If the sequence number comes back zero, it didn't
+   work, so punt */
+
+	if (!(sequence = PIO_add_file(dbb, dbb->dbb_file, file_name, start)))
+		return 0;
+
+	/* Create header page for new file */
+
+	next = file->fil_next;
+
+	if (dbb->dbb_flags & DBB_force_write)
+		PIO_force_write(next, TRUE);
+
+	window.win_page = next->fil_min_page;
+	header = (HDR) CCH_fake(tdbb, &window, 1);
+	header->hdr_header.pag_type = pag_header;
+	header->hdr_sequence = sequence;
+	header->hdr_page_size = dbb->dbb_page_size;
+	header->hdr_data[0] = HDR_end;
+	header->hdr_end = HDR_SIZE;
+	next->fil_sequence = sequence;
+	header->hdr_header.pag_checksum = CCH_checksum(window.win_bdb);
+	PIO_write(dbb->dbb_file, window.win_bdb, window.win_buffer,
+			  tdbb->tdbb_status_vector);
+	CCH_RELEASE(tdbb, &window);
+	next->fil_fudge = 1;
+
+/* Update the previous header page to point to new file */
+
+	file->fil_fudge = 0;
+	window.win_page = file->fil_min_page;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	if (!file->fil_min_page)
+		CCH_MARK_MUST_WRITE(tdbb, &window);
+	else
+		CCH_MARK(tdbb, &window);
+
+	--start;
+
+	if (file->fil_min_page) {
+		PAG_add_header_entry(header, HDR_file, strlen(file_name),
+							 (UCHAR *) file_name);
+		PAG_add_header_entry(header, HDR_last_page, sizeof(SLONG),
+							 (UCHAR *) & start);
+	}
+	else {
+		PAG_add_clump(HEADER_PAGE, HDR_file, strlen(file_name),
+					  (UCHAR *) file_name, CLUMP_REPLACE, 1);
+		PAG_add_clump(HEADER_PAGE, HDR_last_page, sizeof(SLONG),
+					  (UCHAR *) & start, CLUMP_REPLACE, 1);
+	}
+
+	if (dbb->dbb_wal) {
+		if (!(file->fil_min_page))
+			CCH_journal_page(tdbb, &window);
+
+		journal.jrnf_header.jrnh_type = JRN_NEW_FILE;
+		journal.jrnf_start = start + 1;
+		journal.jrnf_sequence = sequence;
+		journal.jrnf_length = strlen(file_name);
+		tdbb->tdbb_status_vector[1] = 0;
+
+		AIL_put(dbb,
+				tdbb->tdbb_status_vector,
+				reinterpret_cast < jrnh * >(&journal),
+				JRNF_SIZE,
+				reinterpret_cast < UCHAR * >(file_name),
+				journal.jrnf_length, 0, 0, &seqno, &offset);
+
+		if (tdbb->tdbb_status_vector[1])
+			ERR_punt();
+	}
+
+	header->hdr_header.pag_checksum = CCH_checksum(window.win_bdb);
+	PIO_write(dbb->dbb_file, window.win_bdb, window.win_buffer,
+			  tdbb->tdbb_status_vector);
+	CCH_RELEASE(tdbb, &window);
+	if (file->fil_min_page)
+		file->fil_fudge = 1;
+
+	return sequence;
+}
+
+
+int PAG_add_header_entry(HDR header, USHORT type, SSHORT len, UCHAR * entry)
+{
+/***********************************************
+ *
+ *	P A G _ a d d _ h e a d e r _ e n t r y
+ *
+ ***********************************************
+ *
+ * Functional description
+ *	Add an entry to header page.
+ *	This will be used mainly for the shadow header page and adding
+ *	secondary files.
+ *	Will not follow to hdr_next_page
+ *	Will not journal changes made to page.
+ *	RETURNS
+ *		TRUE - modified page
+ *		FALSE - nothing done
+ *
+ **************************************/
+	DBB dbb;
+	UCHAR *q, *p;
+	int free_space;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	ERR_POST_IF_DATABASE_IS_READONLY(dbb);
+
+	q = entry;
+
+	for (p = header->hdr_data; ((*p != HDR_end) && (*p != type));
+		 p += 2 + p[1]);
+
+	if (*p != HDR_end)
+		return FALSE;
+
+/* We are at HDR_end, add the entry */
+
+	free_space = dbb->dbb_page_size - header->hdr_end;
+
+	if (free_space > (2 + len)) {
+		assert(type <= MAX_UCHAR);
+		assert(len <= MAX_UCHAR);
+		*p++ = static_cast < UCHAR > (type);
+		*p++ = static_cast < UCHAR > (len);
+
+		if (len) {
+			if (q)
+				do
+					*p++ = *q++;
+				while (--len);
+			else
+				do
+					*p++ = 0;
+				while (--len);
+		}
+
+		*p = HDR_end;
+
+		header->hdr_end = p - (UCHAR *) header;
+
+		return TRUE;
+	}
+
+	BUGCHECK(251);
+	return FALSE;				/* Added to remove compiler warning */
+}
+
+
+PAG PAG_allocate(register WIN * window)
+{
+/**************************************
+ *
+ *	P A G _ a l l o c a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a page and fake a read with a write lock.  This is
+ *	the universal sequence when allocating pages.
+ *
+ **************************************/
+	DBB dbb;
+	register PIP pip_page;
+	PIP new_pip_page;
+	PAG new_page = 0;
+	WIN pip_window;
+	register PGC control;
+	USHORT i;
+	UCHAR *bytes, bit, *end;
+	SLONG sequence;
+	SLONG relative_bit;
+	JRNA record;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	control = dbb->dbb_pcontrol;
+	pip_window.win_flags = 0;
+
+/* Find an allocation page with something on it */
+
+	for (sequence = control->pgc_high_water;; sequence++) {
+		pip_window.win_page = (sequence == 0) ?
+			control->pgc_pip : sequence * control->pgc_ppp - 1;
+		pip_page = (PIP) CCH_FETCH(tdbb, &pip_window, LCK_write, pag_pages);
+		end = (UCHAR *) pip_page + dbb->dbb_page_size;
+		for (bytes = &pip_page->pip_bits[pip_page->pip_min >> 3]; bytes < end;
+			 bytes++) {
+			if (*bytes != 0) {
+				/* 'byte' is not zero, so it describes at least one free page. */
+				for (i = 0, bit = 1; i < 8; i++, bit <<= 1) {
+					if (bit & *bytes) {
+						relative_bit =
+							((bytes - pip_page->pip_bits) << 3) + i;
+						window->win_page =
+							relative_bit + sequence * control->pgc_ppp;
+						new_page = CCH_fake(tdbb, window, 0);	/* don't wait on latch */
+						if (new_page)
+							break;	/* Found a page and successfully fake-ed it */
+					}
+				}
+			}
+			if (new_page)
+				break;			/* Found a page and successfully fake-ed it */
+		}
+		if (new_page)
+			break;				/* Found a page and successfully fake-ed it */
+		CCH_RELEASE(tdbb, &pip_window);
+	}
+
+	control->pgc_high_water = sequence;
+
+	CCH_MARK(tdbb, &pip_window);
+	*bytes &= ~bit;
+
+	if (dbb->dbb_wal) {
+		record.jrna_type = JRNP_PIP;
+		record.jrna_allocate = TRUE;
+		record.jrna_slot = relative_bit;
+		CCH_journal_record(tdbb, &pip_window,
+						   reinterpret_cast < UCHAR * >(&record),
+						   sizeof(record), 0, 0);
+	}
+
+	if (relative_bit != control->pgc_ppp - 1) {
+		CCH_RELEASE(tdbb, &pip_window);
+		CCH_precedence(tdbb, window, pip_window.win_page);
+#ifdef VIO_DEBUG
+		if (debug_flag > DEBUG_WRITES_INFO)
+			ib_printf("\tPAG_allocate:  allocated page %d\n",
+					  window->win_page);
+#endif
+		return new_page;
+	}
+
+/* We've allocated the last page on the space management page.  Rather
+   than returning it, format it as a page inventory page, and recurse. */
+
+	new_pip_page = (PIP) new_page;
+	new_pip_page->pip_header.pag_type = pag_pages;
+	end = (UCHAR *) new_pip_page + dbb->dbb_page_size;
+	for (bytes = new_pip_page->pip_bits; bytes < end;)
+		*bytes++ = 0xff;
+
+	if (dbb->dbb_wal)
+		CCH_journal_page(tdbb, window);
+
+	CCH_must_write(window);
+	CCH_RELEASE(tdbb, window);
+	CCH_must_write(&pip_window);
+	CCH_RELEASE(tdbb, &pip_window);
+
+	return PAG_allocate(window);
+}
+
+
+SLONG PAG_attachment_id(void)
+{
+/******************************************
+ *
+ *	P A G _ a t t a c h m e n t _ i d
+ *
+ ******************************************
+ *
+ * Functional description
+ *	Get attachment id.  If don't have one, get one.  As a side
+ *	effect, get a lock on it as well.
+ *
+ ******************************************/
+	TDBB tdbb;
+	DBB dbb;
+	ATT attachment;
+	HDR header;
+	WIN window;
+	LCK lock;
+	JRNDA record;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	attachment = tdbb->tdbb_attachment;
+	window.win_flags = 0;
+
+/* If we've been here before just return the id */
+
+	if (attachment->att_id_lock)
+		return attachment->att_attachment_id;
+
+/* Get new attachment id */
+
+#ifdef READONLY_DATABASE
+	if (dbb->dbb_flags & DBB_read_only) {
+		attachment->att_attachment_id = ++dbb->dbb_attachment_id;
+	}
+	else {
+#endif /* READONLY_DATABASE */
+		window.win_page = HEADER_PAGE;
+		header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+		CCH_MARK(tdbb, &window);
+		attachment->att_attachment_id = ++header->hdr_attachment_id;
+
+		/* If journalling is enabled, journal the change */
+		if (dbb->dbb_wal) {
+			record.jrnda_type = JRNP_DB_ATTACHMENT;
+			record.jrnda_data = header->hdr_attachment_id;
+			CCH_journal_record(tdbb, &window,
+							   reinterpret_cast < UCHAR * >(&record),
+							   JRNDA_SIZE, 0, 0);
+		}
+		CCH_RELEASE(tdbb, &window);
+#ifdef READONLY_DATABASE
+	}
+#endif /* READONLY_DATABASE */
+
+/* Take out lock on attachment id */
+
+	lock = attachment->att_id_lock = (LCK) ALLOCPV(type_lck, sizeof(SLONG));
+	lock->lck_type = LCK_attachment;
+	lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+	lock->lck_parent = dbb->dbb_lock;
+	lock->lck_length = sizeof(SLONG);
+	lock->lck_key.lck_long = attachment->att_attachment_id;
+	lock->lck_dbb = dbb;
+	LCK_lock(tdbb, lock, LCK_write, TRUE);
+
+	return attachment->att_attachment_id;
+}
+
+
+int PAG_delete_clump_entry(SLONG page_num, USHORT type)
+{
+/***********************************************
+ *
+ *	P A G _ d e l e t e _ c l u m p _ e n t r y
+ *
+ ***********************************************
+ *
+ * Functional description
+ *	Gets rid on the entry 'type' from page.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	UCHAR *entry_p, *clump_end, *r;
+	USHORT l;
+	LIP logp;
+	HDR header;
+	PAG page;
+	USHORT *end_addr;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	ERR_POST_IF_DATABASE_IS_READONLY(dbb);
+
+	window.win_page = page_num;
+	window.win_flags = 0;
+
+	if (page_num == HEADER_PAGE)
+		page = CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	else
+		page = CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+
+	if (!find_type
+		(page_num, &window, &page, LCK_write, type, &entry_p, &clump_end)) {
+		CCH_RELEASE(tdbb, &window);
+		return FALSE;
+	}
+	CCH_MARK(tdbb, &window);
+	if (page_num == HEADER_PAGE) {
+		header = (HDR) page;
+		end_addr = &header->hdr_end;
+	}
+	else {
+		logp = (LIP) page;
+		end_addr = &logp->log_end;
+	}
+
+	*end_addr -= (2 + entry_p[1]);
+
+	r = entry_p + 2 + entry_p[1];
+	l = clump_end - r + 1;
+
+	if (l)
+		do
+			*entry_p++ = *r++;
+		while (--l);
+
+	if (dbb->dbb_wal)
+		CCH_journal_page(tdbb, &window);
+	CCH_RELEASE(tdbb, &window);
+
+	return TRUE;
+}
+
+
+void PAG_format_header(void)
+{
+/**************************************
+ *
+ *	 P A G _ f o r m a t _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create the header page for a new file.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	HDR header;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* Initialize header page */
+
+	window.win_page = HEADER_PAGE;
+	header = (HDR) CCH_fake(tdbb, &window, 1);
+	MOV_time_stamp(reinterpret_cast <
+				   ISC_TIMESTAMP * >(header->hdr_creation_date));
+	header->hdr_header.pag_type = pag_header;
+	header->hdr_page_size = dbb->dbb_page_size;
+	header->hdr_ods_version = ODS_VERSION;
+	header->hdr_implementation = CLASS;
+	header->hdr_ods_minor = ODS_CURRENT;
+	header->hdr_ods_minor_original = ODS_CURRENT;
+	header->hdr_oldest_transaction = 1;
+	header->hdr_bumped_transaction = 1;
+	header->hdr_end = HDR_SIZE;
+	header->hdr_data[0] = HDR_end;
+#ifdef SYNC_WRITE_DEFAULT
+	header->hdr_flags |= hdr_force_write;
+#endif
+
+	if (dbb->dbb_flags & DBB_DB_SQL_dialect_3)
+		header->hdr_flags |= hdr_SQL_dialect_3;
+
+	dbb->dbb_ods_version = header->hdr_ods_version;
+	dbb->dbb_minor_version = header->hdr_ods_minor;
+	dbb->dbb_minor_original = header->hdr_ods_minor_original;
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+void PAG_format_log(void)
+{
+/***********************************************
+ *
+ *	P A G _ f o r m a t _ l o g
+ *
+ ***********************************************
+ *
+ * Functional description
+ *	Initialize log page.
+ *	Set all parameters to 0
+ *
+ **************************************/
+	WIN window;
+	LIP logp;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	window.win_page = LOG_PAGE;
+	logp = (LIP) CCH_fake(tdbb, &window, 1);
+	logp->log_header.pag_type = pag_log;
+
+	AIL_init_log_page(logp, (SLONG) 0);
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+void PAG_format_pip(void)
+{
+/**************************************
+ *
+ *	 P A G _ f o r m a t _ p i p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a page inventory page to
+ *	complete the formatting of a new file
+ *	into a rudimentary database.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	register PIP pages;
+	register UCHAR *p;
+	int i;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* Initialize Page Inventory Page */
+
+	dbb->dbb_pcontrol->pgc_pip = window.win_page = 1;
+	pages = (PIP) CCH_fake(tdbb, &window, 1);
+
+	pages->pip_header.pag_type = pag_pages;
+	pages->pip_min = 4;
+	p = pages->pip_bits;
+	i = dbb->dbb_page_size - OFFSETA(PIP, pip_bits);
+
+	while (i--)
+		*p++ = 0xff;
+
+	pages->pip_bits[0] &= ~(1 | 2 | 4);
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+int PAG_get_clump(SLONG page_num, USHORT type, USHORT * len, UCHAR * entry)
+{
+/***********************************************
+ *
+ *	P A G _ g e t _ c l u m p
+ *
+ ***********************************************
+ *
+ * Functional description
+ *	Find 'type' clump in page_num
+ *		TRUE  - Found it
+ *		FALSE - Not present
+ *	RETURNS
+ *		value of clump in entry 
+ *		length in len
+ *
+ **************************************/
+	UCHAR *q, *entry_p;
+	USHORT l;
+	WIN window;
+	PAG page;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	*len = 0;
+	window.win_page = page_num;
+	window.win_flags = 0;
+
+	if (page_num == HEADER_PAGE)
+		page = CCH_FETCH(tdbb, &window, LCK_read, pag_header);
+	else
+		page = CCH_FETCH(tdbb, &window, LCK_read, pag_log);
+
+	if (!find_type(page_num, &window, &page, LCK_read, type, &entry_p, &q)) {
+		CCH_RELEASE(tdbb, &window);
+		return FALSE;
+	}
+
+	*len = l = entry_p[1];
+	entry_p += 2;
+
+	q = entry;
+	if (l)
+		do
+			*q++ = *entry_p++;
+		while (--l);
+
+	CCH_RELEASE(tdbb, &window);
+
+	return TRUE;
+}
+
+
+void PAG_header(TEXT * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	P A G _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Checkout database header page.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	HDR header;
+	register VCL vector;
+	register REL relation;
+	SCHAR *temp_buffer, *temp_page;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* allocate a spare buffer which is large enough,
+   and set up to release it in case of error; note
+   that dbb_page_size has not been set yet, so we
+   can't depend on this.
+   
+   Make sure that buffer is aligned on a page boundary
+   and unit of transfer is a multiple of physical disk
+   sector for raw disk access. */
+
+	temp_buffer = ALL_malloc((SLONG) 2 * MIN_PAGE_SIZE, ERR_jmp);
+	temp_page =
+		(SCHAR *) (((U_IPTR) temp_buffer + MIN_PAGE_SIZE - 1) &
+				   ~((U_IPTR) MIN_PAGE_SIZE - 1));
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (temp_buffer)
+			ALL_free(temp_buffer);
+		ERR_punt();
+	}
+
+	header = (HDR) temp_page;
+	PIO_header(dbb, temp_page, MIN_PAGE_SIZE);
+
+	if (header->hdr_header.pag_type != pag_header || header->hdr_sequence)
+		ERR_post(gds_bad_db_format,
+				 gds_arg_cstring, file_length, ERR_string(file_name,
+														  file_length), 0);
+
+#ifdef ODS_8_TO_CURRENT
+/* This Server understands ODS greater than 8 *ONLY* upto current major 
+   ODS_VERSION defined in ods.h, Refuse connections to older or newer ODS's */
+	if ((header->hdr_ods_version < ODS_VERSION8)
+		|| (header->hdr_ods_version > ODS_VERSION))
+#else
+	if (header->hdr_ods_version != ODS_VERSION)
+#endif
+		ERR_post(gds_wrong_ods,
+				 gds_arg_cstring, file_length, ERR_string(file_name,
+														  file_length),
+				 gds_arg_number, (SLONG) header->hdr_ods_version,
+				 gds_arg_number, (SLONG) ODS_VERSION, 0);
+
+/****           
+Note that if this check is turned on, it should be recoded in order that 
+the Intel platforms can share databases.  At present (Feb 95) it is possible 
+to share databases between Windows and NT, but not with NetWare.  Sharing 
+databases with OS/2 is unknown and needs to be investigated.  The CLASS was 
+initially 8 for all Intel platforms, but was changed after 4.0 was released 
+in order to allow differentiation between databases created on various 
+platforms.  This should allow us in future to identify where databases were 
+created.  Even when we get to the stage where databases created on PC platforms 
+are sharable between all platforms, it would be useful to identify where they 
+were created for debugging purposes.  - Deej 2/6/95
+
+if (header->hdr_implementation && header->hdr_implementation != CLASS)
+    ERR_post (gds__bad_db_format, 
+	gds_arg_cstring, file_length,  ERR_string(file_name, file_length), 0);
+****/
+
+	if (header->hdr_page_size < MIN_PAGE_SIZE ||
+		header->hdr_page_size > MAX_PAGE_SIZE)
+			ERR_post(gds_bad_db_format,
+					 gds_arg_cstring, file_length, ERR_string(file_name,
+															  file_length),
+					 0);
+
+	if (header->hdr_next_transaction) {
+		if (header->hdr_oldest_active > header->hdr_next_transaction)
+			BUGCHECK(266);		/*next transaction older than oldest active */
+
+		if (header->hdr_oldest_transaction > header->hdr_next_transaction)
+			BUGCHECK(267);		/* next transaction older than oldest transaction */
+	}
+
+	dbb->dbb_ods_version = header->hdr_ods_version;
+	dbb->dbb_minor_version = header->hdr_ods_minor;
+	dbb->dbb_minor_original = header->hdr_ods_minor_original;
+
+	if (header->hdr_flags & hdr_SQL_dialect_3)
+		dbb->dbb_flags |= DBB_DB_SQL_dialect_3;
+
+	relation = MET_relation(tdbb, 0);
+	relation->rel_pages = vector = (VCL) ALLOCPV(type_vcl, 1);
+	vector->vcl_count = 1;
+	vector->vcl_long[0] = header->hdr_PAGES;
+
+	dbb->dbb_page_size = header->hdr_page_size;
+	dbb->dbb_page_buffers = header->hdr_page_buffers;
+	dbb->dbb_next_transaction = header->hdr_next_transaction;
+	dbb->dbb_oldest_transaction = header->hdr_oldest_transaction;
+	dbb->dbb_oldest_active = header->hdr_oldest_active;
+	dbb->dbb_oldest_snapshot = header->hdr_oldest_snapshot;
+
+#ifdef READONLY_DATABASE
+	dbb->dbb_attachment_id = header->hdr_attachment_id;
+
+	if (header->hdr_flags & hdr_read_only) {
+		/* If Header Page flag says the database is ReadOnly, gladly accept it. */
+		dbb->dbb_flags &= ~DBB_being_opened_read_only;
+		dbb->dbb_flags |= DBB_read_only;
+	}
+
+/* If hdr_read_only is not set... */
+	if (!(header->hdr_flags & hdr_read_only)
+		&& (dbb->dbb_flags & DBB_being_opened_read_only)) {
+		/* Looks like the Header page says, it is NOT ReadOnly!! But the database
+		 * file system permission gives only ReadOnly access. Punt out with
+		 * gds__no_priv error (no privileges)
+		 */
+		ERR_post(gds_no_priv,
+				 gds_arg_string, "read-write",
+				 gds_arg_string, "database",
+				 gds_arg_cstring, file_length, ERR_string(file_name,
+														  file_length), 0);
+	}
+#endif
+
+	if (header->hdr_flags & hdr_force_write) {
+		dbb->dbb_flags |= DBB_force_write;
+#ifdef READONLY_DATABASE
+		if (!(header->hdr_flags & hdr_read_only))
+#endif /* READONLY_DATABASE */
+			PIO_force_write(dbb->dbb_file, TRUE);
+	}
+
+	if (header->hdr_flags & hdr_no_reserve)
+		dbb->dbb_flags |= DBB_no_reserve;
+
+	if (header->hdr_flags & hdr_shutdown)
+		dbb->dbb_ast_flags |= DBB_shutdown;
+
+	if (temp_buffer)
+		ALL_free(temp_buffer);
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void PAG_init(void)
+{
+/**************************************
+ *
+ *	P A G _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize stuff for page handling.
+ *
+ **************************************/
+	DBB dbb;
+	register PGC control;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	dbb->dbb_pcontrol = control = (PGC) ALLOCP(type_pgc);
+	control->pgc_bytes = dbb->dbb_page_size - OFFSETA(PIP, pip_bits);
+	control->pgc_ppp = control->pgc_bytes * 8;
+	control->pgc_tpt =
+		(dbb->dbb_page_size - OFFSETA(TIP, tip_transactions)) * 4;
+	control->pgc_pip = 1;
+/* dbb_ods_version can be 0 when a new database is being created */
+	if ((dbb->dbb_ods_version == 0)
+		|| (dbb->dbb_ods_version >= ODS_VERSION10))
+		control->pgc_gpg =
+			(dbb->dbb_page_size -
+			 OFFSETA(GPG, gpg_values)) / sizeof(((GPG) 0)->gpg_values);
+	else
+		control->pgc_gpg =
+			(dbb->dbb_page_size -
+			 OFFSETA(PPG, ppg_page)) / sizeof(((PPG) 0)->ppg_page);
+
+
+
+
+/* Compute the number of data pages per pointer page.  Each data page
+   requires a 32 bit pointer and a 2 bit control field. */
+
+	dbb->dbb_dp_per_pp = (dbb->dbb_page_size - OFFSETA(PPG, ppg_page)) * 8 /
+		(BITS_PER_LONG + 2);
+	dbb->dbb_max_records = (dbb->dbb_page_size - sizeof(struct dpg)) /
+		(sizeof(dpg::dpg_repeat) + OFFSETA(RHD, rhd_data));
+
+/* Compute prefetch constants from database page size and maximum prefetch
+   transfer size. Double pages per prefetch request so that cache reader
+   can overlap prefetch I/O with database computation over previously
+   prefetched pages. */
+
+	dbb->dbb_prefetch_sequence = PREFETCH_MAX_TRANSFER / dbb->dbb_page_size;
+	dbb->dbb_prefetch_pages = dbb->dbb_prefetch_sequence * 2;
+}
+
+
+void PAG_init2(USHORT shadow_number)
+{
+/**************************************
+ *
+ *	P A G _ i n i t 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform second phase of page initialization -- the eternal
+ *	search for additional files.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	FIL file;
+	SDW shadow;
+	HDR header;
+	WIN window;
+	SCHAR *temp_buffer = NULL, *temp_page;
+	USHORT file_length, sequence;
+	UCHAR *p, *file_name;
+	ULONG last_page;
+	struct bdb temp_bdb;
+	SLONG next_page;
+	UCHAR buf[MAX_PATH_LENGTH];
+	STATUS *status;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	status = tdbb->tdbb_status_vector;
+
+/* allocate a spare buffer which is large enough,
+   and set up to release it in case of error. Align
+   the temporary page buffer for raw disk access. */
+
+	temp_buffer =
+		ALL_malloc((SLONG) dbb->dbb_page_size + MIN_PAGE_SIZE, ERR_jmp);
+	temp_page =
+		(SCHAR *) (((U_IPTR) temp_buffer + MIN_PAGE_SIZE - 1) &
+				   ~((U_IPTR) MIN_PAGE_SIZE - 1));
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (temp_buffer)
+			ALL_free(temp_buffer);
+		ERR_punt();
+	}
+
+	file = dbb->dbb_file;
+	if (shadow_number) {
+		for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+			if (shadow->sdw_number == shadow_number) {
+				file = shadow->sdw_file;
+				break;
+			}
+		if (!shadow)
+			BUGCHECK(161);		/* msg 161 shadow block not found */
+	}
+
+	sequence = 1;
+	window.win_flags = 0;
+
+/* Loop thru files and header pages until everything is open */
+
+	for (;;) {
+		file_name = NULL;
+		window.win_page = file->fil_min_page;
+		do {
+			/* note that we do not have to get a read lock on 
+			   the header page (except for header page 0) because 
+			   the only time it will be modified is when adding a file, 
+			   which must be done with an exclusive lock on the database -- 
+			   if this changes, this policy will have to be reevaluated;
+			   at any rate there is a problem with getting a read lock
+			   because the corresponding page in the main database file
+			   may not exist */
+
+			if (!file->fil_min_page)
+				CCH_FETCH(tdbb, &window, LCK_read, pag_header);
+
+			header = (HDR) temp_page;
+			temp_bdb.bdb_buffer = (PAG) header;
+			temp_bdb.bdb_page = window.win_page;
+			temp_bdb.bdb_dbb = dbb;
+
+			/* Read the required page into the local buffer */
+			PIO_read(file, &temp_bdb, (PAG) header, status);
+
+			if ((shadow_number) && (!file->fil_min_page))
+				CCH_RELEASE(tdbb, &window);
+
+			for (p = header->hdr_data; *p != HDR_end; p += 2 + p[1])
+				switch (*p) {
+				case HDR_file:
+					file_length = p[1];
+					file_name = buf;
+					MOVE_FAST(p + 2, buf, file_length);
+					break;
+
+				case HDR_last_page:
+					MOVE_FAST(p + 2, &last_page, sizeof(last_page));
+					break;
+
+				case HDR_sweep_interval:
+#ifdef READONLY_DATABASE
+					if (!(dbb->dbb_flags & DBB_read_only))
+#endif
+						MOVE_FAST(p + 2, &dbb->dbb_sweep_interval,
+								  sizeof(SLONG));
+					break;
+				}
+
+			next_page = header->hdr_next_page;
+
+			if ((!shadow_number) && (!file->fil_min_page))
+				CCH_RELEASE(tdbb, &window);
+
+			window.win_page = next_page;
+
+			/*
+			 * Make sure the header page and all the overflow header
+			 * pages are traversed.  For V4.0, only the header page for
+			 * the primary database page will have overflow pages.
+			 */
+
+		} while (next_page);
+
+		if (file->fil_min_page)
+			file->fil_fudge = 1;
+		if (!file_name)
+			break;
+
+		file->fil_next = PIO_open(dbb,
+								  reinterpret_cast < char *>(file_name),
+								  file_length,
+								  FALSE,
+								  0,
+								  reinterpret_cast < char *>(file_name),
+								  file_length);
+		file->fil_max_page = last_page;
+		file = file->fil_next;
+		if (dbb->dbb_flags & DBB_force_write)
+			PIO_force_write(file, TRUE);
+		file->fil_min_page = last_page + 1;
+		file->fil_sequence = sequence++;
+	}
+
+	if (temp_buffer)
+		ALL_free(temp_buffer);
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+SLONG PAG_last_page(void)
+{
+/**************************************
+ *
+ *	P A G _ l a s t _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the highest page allocated.  This is called by the
+ *	shadow stuff to dump a database.
+ *
+ **************************************/
+	DBB dbb;
+	ULONG relative_bit;
+	SSHORT bit;
+	UCHAR *bits;
+	USHORT sequence;
+	ULONG pages_per_pip;
+	WIN window;
+	PIP page;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	pages_per_pip = dbb->dbb_pcontrol->pgc_ppp;
+	window.win_flags = 0;
+
+/* Find the last page allocated */
+
+	for (sequence = 0;; ++sequence) {
+		window.win_page =
+			(!sequence) ? dbb->dbb_pcontrol->pgc_pip : sequence *
+			pages_per_pip - 1;
+		page = (PIP) CCH_FETCH(tdbb, &window, LCK_read, pag_pages);
+		for (bits = page->pip_bits + (pages_per_pip >> 3) - 1;
+			 *bits == (UCHAR) - 1; --bits);
+		for (bit = 7; bit >= 0; --bit)
+			if (!(*bits & (1 << bit)))
+				break;
+		relative_bit = (bits - page->pip_bits) * 8 + bit;
+		CCH_RELEASE(tdbb, &window);
+		if (relative_bit != pages_per_pip - 1)
+			break;
+	}
+
+	return sequence * pages_per_pip + relative_bit;
+}
+
+
+void PAG_modify_log(SLONG tid, SLONG flag)
+{
+/***********************************************
+ *
+ *	P A G _ m o d i f y _ l o g
+ *
+ ***********************************************
+ *
+ * Functional description
+ *	Will set the flag in the log page.
+ *	Set the transaction id and tip for the transaction.
+ *	Journal change to page.
+ **************************************/
+	DBB dbb;
+	WIN window;
+	LIP page;
+	JRNL record;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	window.win_page = LOG_PAGE;
+	window.win_flags = 0;
+	page = (LIP) CCH_FETCH(tdbb, &window, LCK_write, pag_log);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+
+/* get the TIP page for this transaction */
+
+	if (flag & TRA_add_log)
+		page->log_flags |= log_add;
+	else if (flag & TRA_delete_log)
+		page->log_flags |= log_delete;
+
+	page->log_mod_tid = tid;
+
+	if (dbb->dbb_wal) {
+		record.jrnl_type = JRNP_LOG_PAGE;
+		record.jrnl_flags = page->log_flags;
+		record.jrnl_tip = 0;
+		record.jrnl_tid = page->log_mod_tid;
+		CCH_journal_record(tdbb, &window,
+						   reinterpret_cast < UCHAR * >(&record), JRNL_SIZE,
+						   0, 0);
+	}
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+void PAG_release_page(SLONG number, SLONG prior_page)
+{
+/**************************************
+ *
+ *	P A G _ r e l e a s e _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a page to the free page page.
+ *
+ **************************************/
+	DBB dbb;
+	PIP pages;
+	WIN pip_window;
+	PGC control;
+	JRNA record;
+	SLONG sequence;
+	SLONG relative_bit;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf("\tPAG_release_page:  about to release page %d\n", number);
+#endif
+
+	control = dbb->dbb_pcontrol;
+	sequence = number / control->pgc_ppp;
+	relative_bit = number % control->pgc_ppp;
+
+	pip_window.win_page = (sequence == 0) ?
+		control->pgc_pip : sequence * control->pgc_ppp - 1;
+
+	pip_window.win_flags = 0;
+
+/* if shared cache is being used, the page which is being freed up
+ * may have a journal buffer which in no longer valid after the 
+ * page has been freed up.  Zero out the journal buffer.
+ * It is possible that the shared cache manager will write out the
+ * record as part of a scan.
+
+ * A similar problem can happen without shared cache.
+ */
+
+/*******************************
+CCH_release_journal (tdbb, number);
+********************************/
+
+	pages = (PIP) CCH_FETCH(tdbb, &pip_window, LCK_write, pag_pages);
+	CCH_precedence(tdbb, &pip_window, prior_page);
+	CCH_MARK(tdbb, &pip_window);
+	pages->pip_bits[relative_bit >> 3] |= 1 << (relative_bit & 7);
+	pages->pip_min = MIN(pages->pip_min, relative_bit);
+
+	if (dbb->dbb_wal) {
+		record.jrna_type = JRNP_PIP;
+		record.jrna_allocate = FALSE;
+		record.jrna_slot = relative_bit;
+		CCH_journal_record(tdbb, &pip_window,
+						   reinterpret_cast < UCHAR * >(&record),
+						   sizeof(record), 0, 0);
+	}
+
+	CCH_RELEASE(tdbb, &pip_window);
+
+	control->pgc_high_water = MIN(control->pgc_high_water, sequence);
+}
+
+
+void PAG_set_force_write(DBB dbb, SSHORT flag)
+{
+/**************************************
+ *
+ *	P A G _ s e t _ f o r c e _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Turn on/off force write.
+ *      The value 2 for flag means set to default.
+ *
+ **************************************/
+	WIN window;
+	HDR header;
+	FIL file;
+	SDW shadow;
+	JRNDA record;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	ERR_POST_IF_DATABASE_IS_READONLY(dbb);
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+
+	if (flag == 2)
+		/* Set force write to the default for the platform */
+#ifdef SYNC_WRITE_DEFAULT
+		flag = 1;
+#else
+		flag = 0;
+#endif
+
+	if (flag) {
+		header->hdr_flags |= hdr_force_write;
+		dbb->dbb_flags |= DBB_force_write;
+	}
+	else {
+		header->hdr_flags &= ~hdr_force_write;
+		dbb->dbb_flags &= ~DBB_force_write;
+	}
+
+/* If journalling is enabled, journal the change */
+
+	if (dbb->dbb_wal) {
+		record.jrnda_type = JRNP_DB_HDR_FLAGS;
+		record.jrnda_data = header->hdr_flags;
+		CCH_journal_record(tdbb, &window,
+						   reinterpret_cast < UCHAR * >(&record), JRNDA_SIZE,
+						   0, 0);
+	}
+	CCH_RELEASE(tdbb, &window);
+
+	for (file = dbb->dbb_file; file; file = file->fil_next)
+		PIO_force_write(file, flag);
+
+	for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+		for (file = shadow->sdw_file; file; file = file->fil_next)
+			PIO_force_write(file, flag);
+}
+
+
+void PAG_set_no_reserve(DBB dbb, USHORT flag)
+{
+/**************************************
+ *
+ *	P A G _ s e t _ n o _ r e s e r v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Turn on/off reserving space for versions
+ *
+ **************************************/
+	WIN window;
+	HDR header;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	ERR_POST_IF_DATABASE_IS_READONLY(dbb);
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+
+	if (flag) {
+		header->hdr_flags |= hdr_no_reserve;
+		dbb->dbb_flags |= DBB_no_reserve;
+	}
+	else {
+		header->hdr_flags &= ~hdr_no_reserve;
+		dbb->dbb_flags &= ~DBB_no_reserve;
+	}
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+void PAG_set_db_readonly(DBB dbb, SSHORT flag)
+{
+/*********************************************
+ *
+ *	P A G _ s e t _ d b _ r e a d o n l y
+ *
+ *********************************************
+ *
+ * Functional description
+ *	Set database access mode to readonly OR readwrite
+ *
+ *********************************************/
+	WIN window;
+	HDR header;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+
+	if (!flag) {
+		/* If the database is transitioning from RO to RW, reset the 
+		 * in-memory DBB flag which indicates that the database is RO.
+		 * This will allow the CCH subsystem to allow pages to be MARK'ed
+		 * for WRITE operations
+		 */
+		header->hdr_flags &= ~hdr_read_only;
+		dbb->dbb_flags &= ~DBB_read_only;
+	}
+
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+
+	if (flag) {
+		header->hdr_flags |= hdr_read_only;
+		dbb->dbb_flags |= DBB_read_only;
+	}
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+void PAG_set_db_SQL_dialect(DBB dbb, SSHORT flag)
+{
+/*********************************************
+ *
+ *	P A G _ s e t _ d b _ S Q L _ d i a l e c t
+ *
+ *********************************************
+ *
+ * Functional description
+ *	Set database SQL dialect to SQL_DIALECT_V5 or SQL_DIALECT_V6
+ *
+ *********************************************/
+	WIN window;
+	HDR header;
+	TDBB tdbb;
+	USHORT major_version, minor_original;
+
+	tdbb = GET_THREAD_DATA;
+
+	major_version = (SSHORT) dbb->dbb_ods_version;
+	minor_original = (SSHORT) dbb->dbb_minor_original;
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+
+	if ((flag) && (ENCODE_ODS(major_version, minor_original) >= ODS_10_0)) {
+		switch (flag) {
+		case SQL_DIALECT_V5:
+
+			if (dbb->dbb_flags & DBB_DB_SQL_dialect_3 ||
+				header->hdr_flags & hdr_SQL_dialect_3)
+					ERR_post_warning(isc_dialect_reset_warning, 0);
+
+			dbb->dbb_flags &= ~DBB_DB_SQL_dialect_3;	/* set to 0 */
+			header->hdr_flags &= ~hdr_SQL_dialect_3;	/* set to 0 */
+			break;
+
+		case SQL_DIALECT_V6:
+			dbb->dbb_flags |= DBB_DB_SQL_dialect_3;	/* set to dialect 3 */
+			header->hdr_flags |= hdr_SQL_dialect_3;	/* set to dialect 3 */
+			break;
+
+		default:
+			CCH_RELEASE(tdbb, &window);
+			ERR_post(isc_inv_dialect_specified, isc_arg_number, flag,
+					 isc_arg_gds, isc_valid_db_dialects, isc_arg_string,
+					 "1 and 3", isc_arg_gds, isc_dialect_not_changed, 0);
+			break;
+		}
+	}
+
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+void PAG_set_page_buffers(ULONG buffers)
+{
+/**************************************
+ *
+ *	P A G _ s e t _ p a g e _ b u f f e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set database-specific page buffer cache
+ *
+ **************************************/
+	WIN window;
+	HDR header;
+	TDBB tdbb;
+	DBB dbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	ERR_POST_IF_DATABASE_IS_READONLY(dbb);
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+	header->hdr_page_buffers = buffers;
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+void PAG_sweep_interval(SLONG interval)
+{
+/**************************************
+ *
+ *	P A G _ s w e e p _ i n t e r v a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set sweep interval.
+ *
+ **************************************/
+
+	PAG_add_clump(HEADER_PAGE, HDR_sweep_interval, sizeof(SLONG),
+				  (UCHAR *) & interval, CLUMP_REPLACE, 1);
+}
+
+
+int PAG_unlicensed(void)
+{
+/**************************************
+ *
+ *	P A G _ u n l i c e n s e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Log unlicenses activity.  Return current count of this
+ *	sort of non-sense.
+ *
+ **************************************/
+	WIN window;
+	SLONG count;
+	USHORT len;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+
+	if (PAG_get_clump(HEADER_PAGE, HDR_unlicensed, &len, (UCHAR *) & count)) {
+		count++;
+		PAG_add_clump(HEADER_PAGE, HDR_unlicensed, sizeof(count),
+					  (UCHAR *) & count, CLUMP_REPLACE_ONLY, 1);
+	}
+	else {
+		count = 1;
+		PAG_add_clump(HEADER_PAGE, HDR_unlicensed, sizeof(count),
+					  (UCHAR *) & count, CLUMP_REPLACE, 1);
+	}
+	CCH_RELEASE(tdbb, &window);
+
+	return count;
+}
+
+
+static void find_clump_space(
+							 SLONG page_num,
+							 WIN * window,
+							 PAG * ppage,
+							 USHORT type,
+SSHORT len, UCHAR * entry, USHORT must_write)
+{
+/***********************************************
+ *
+ *	f i n d _ c l u m p _ s p a c e
+ *
+ ***********************************************
+ *
+ * Functional description
+ *	Find space for the new clump.
+ *	Add the entry at the end of clumplet list.
+ *	Allocate a new page if required.
+ *
+ **************************************/
+	DBB dbb;
+	UCHAR *p, *ptr;
+	WIN new_window;
+	HDR new_header, header;
+	LIP new_logp, logp;
+	PAG new_page, page;
+	USHORT *end_addr;
+	SLONG next_page;
+	SLONG free_space;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	ptr = entry;
+	page = *ppage;
+
+	while (TRUE) {
+		if (page_num == HEADER_PAGE) {
+			header = (HDR) page;
+			next_page = header->hdr_next_page;
+			free_space = dbb->dbb_page_size - header->hdr_end;
+			end_addr = &header->hdr_end;
+			p = (UCHAR *) header + header->hdr_end;
+		}
+		else {
+			logp = (LIP) page;
+			next_page = logp->log_next_page;
+			free_space = dbb->dbb_page_size - logp->log_end;
+			end_addr = &logp->log_end;
+			p = (UCHAR *) logp + logp->log_end;
+		}
+
+		if (free_space > (2 + len)) {
+			if (must_write)
+				CCH_MARK_MUST_WRITE(tdbb, window);
+			else
+				CCH_MARK(tdbb, window);
+
+			assert(type <= MAX_UCHAR);
+			assert(len <= MAX_UCHAR);
+			*p++ = static_cast < UCHAR > (type);
+			*p++ = static_cast < UCHAR > (len);
+
+			if (len)
+				do
+					*p++ = *ptr++;
+				while (--len);
+
+			*p = HDR_end;
+
+			*end_addr = (USHORT) (p - (UCHAR *) page);
+			return;
+		}
+
+		if (!next_page)
+			break;
+
+		/* Follow chain of header pages */
+
+		if (page_num == HEADER_PAGE)
+			*ppage = page =
+				CCH_HANDOFF(tdbb, window, next_page, LCK_write, pag_header);
+		else
+			*ppage = page =
+				CCH_HANDOFF(tdbb, window, next_page, LCK_write, pag_log);
+	}
+
+	new_page = (PAG) DPM_allocate(tdbb, &new_window);
+
+	if (must_write)
+		CCH_MARK_MUST_WRITE(tdbb, &new_window);
+	else
+		CCH_MARK(tdbb, &new_window);
+
+	if (page_num == HEADER_PAGE) {
+		new_header = (HDR) new_page;
+		new_header->hdr_header.pag_type = pag_header;
+		new_header->hdr_end = HDR_SIZE;
+		new_header->hdr_page_size = dbb->dbb_page_size;
+		new_header->hdr_data[0] = HDR_end;
+		next_page = new_window.win_page;
+		end_addr = &new_header->hdr_end;
+		p = new_header->hdr_data;
+	}
+	else {
+		new_logp = (LIP) new_page;
+		new_logp->log_header.pag_type = pag_log;
+		new_logp->log_data[0] = LOG_end;
+		new_logp->log_end = LIP_SIZE;
+		next_page = new_window.win_page;
+		end_addr = &new_logp->log_end;
+		p = new_logp->log_data;
+	}
+
+	assert(type <= MAX_UCHAR);
+	assert(len <= MAX_UCHAR);
+	*p++ = static_cast < UCHAR > (type);
+	*p++ = static_cast < UCHAR > (len);
+
+	if (len) {
+		do {
+			*p++ = *ptr++;
+		} while (--len);
+	}
+
+	*p = HDR_end;
+	*end_addr = (USHORT) (p - (UCHAR *) new_page);
+
+	CCH_RELEASE(tdbb, &new_window);
+
+	CCH_precedence(tdbb, window, next_page);
+
+	CCH_MARK(tdbb, window);
+
+	if (page_num == HEADER_PAGE)
+		header->hdr_next_page = next_page;
+	else
+		logp->log_next_page = next_page;
+}
+
+
+static BOOLEAN find_type(
+						 SLONG page_num,
+						 WIN * window,
+						 PAG * ppage,
+						 USHORT lock,
+						 USHORT type, UCHAR ** entry_p, UCHAR ** clump_end)
+{
+/***********************************************
+ *
+ *	f i n d _ t y p e
+ *
+ ***********************************************
+ *
+ * Functional description
+ *	Find the requested type in a page.
+ *	RETURNS
+ *		pointer to type, pointer to end of page, header.
+ *		TRUE  - Found it
+ *		FALSE - Not present
+ *
+ **************************************/
+	UCHAR *q, *p;
+	SLONG next_page;
+	HDR header;
+	LIP logp;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	q = 0;
+
+	while (TRUE) {
+		if (page_num == HEADER_PAGE) {
+			header = (HDR) (*ppage);
+			p = header->hdr_data;
+			next_page = header->hdr_next_page;
+		}
+		else {
+			logp = (LIP) (*ppage);
+			p = logp->log_data;
+			next_page = logp->log_next_page;
+		}
+
+		for (; (*p != HDR_end); p += 2 + p[1]) {
+			if (*p == type)
+				q = p;
+		}
+
+		if (q) {
+			*entry_p = q;
+			*clump_end = p;
+			return TRUE;
+		}
+
+		/* Follow chain of pages */
+
+		if (next_page) {
+			if (page_num == HEADER_PAGE)
+				*ppage =
+					CCH_HANDOFF(tdbb, window, next_page, lock, pag_header);
+			else
+				*ppage = CCH_HANDOFF(tdbb, window, next_page, lock, pag_log);
+		}
+		else
+			return FALSE;
+	}
+}
+
+} // extern "C"
diff --git a/src/jrd/pag.h b/src/jrd/pag.h
new file mode 100644
index 0000000000..9238d90daa
--- /dev/null
+++ b/src/jrd/pag.h
@@ -0,0 +1,50 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		pag.h
+ *	DESCRIPTION:	Page interface definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/*
+ * Modified by: Patrick J. P. Griffin
+ * Date: 11/29/2000
+ * Problem:   Bug 116733 Too many generators corrupt database.
+ *            DPM_gen_id was not calculating page and offset correctly.
+ * Change:    Add pgc_gpg, number of generators per page,
+ *            for use in DPM_gen_id.
+ */
+
+
+#ifndef _JRD_PAG_H_
+#define _JRD_PAG_H_
+
+/* Page control block -- used by PAG to keep track of critical
+   constants */
+
+typedef struct pgc {
+	struct blk pgc_header;
+	SLONG pgc_high_water;		/* Lowest PIP with space */
+	SLONG pgc_ppp;				/* Pages per pip */
+	SLONG pgc_pip;				/* First pointer page */
+	ULONG pgc_bytes;			/* Number of bytes of bit in PIP */
+	ULONG pgc_tpt;				/* Transactions per TIP */
+	ULONG pgc_gpg;				/* Generators per generator page */
+} *PGC;
+
+#endif /* _JRD_PAG_H_ */
diff --git a/src/jrd/pag_proto.h b/src/jrd/pag_proto.h
new file mode 100644
index 0000000000..61076b8579
--- /dev/null
+++ b/src/jrd/pag_proto.h
@@ -0,0 +1,59 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		pag_proto.h
+ *	DESCRIPTION:	Prototype header file for pag.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_PAG_PROTO_H_
+#define _JRD_PAG_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int PAG_add_clump(SLONG, USHORT, USHORT, UCHAR *, USHORT, USHORT);
+extern USHORT PAG_add_file(TEXT *, SLONG);
+extern int PAG_add_header_entry(struct hdr *, USHORT, SSHORT, UCHAR *);
+extern struct pag *PAG_allocate(register struct win *);
+extern SLONG PAG_attachment_id(void);
+extern int PAG_delete_clump_entry(SLONG, USHORT);
+extern void PAG_format_header(void);
+extern void PAG_format_log(void);
+extern void PAG_format_pip(void);
+extern int PAG_get_clump(SLONG, USHORT, USHORT *, UCHAR *);
+extern void PAG_header(TEXT *, USHORT);
+extern void PAG_init(void);
+extern void PAG_init2(USHORT);
+extern SLONG PAG_last_page(void);
+extern void PAG_modify_log(SLONG, SLONG);
+extern void PAG_release_page(SLONG, SLONG);
+extern void PAG_set_force_write(struct dbb *, SSHORT);
+extern void PAG_set_no_reserve(struct dbb *, USHORT);
+extern void PAG_set_db_readonly(struct dbb *, SSHORT);
+extern void PAG_set_db_SQL_dialect(struct dbb *, SSHORT);
+extern void PAG_set_page_buffers(ULONG);
+extern void PAG_sweep_interval(SLONG);
+extern int PAG_unlicensed(void);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_PAG_PROTO_H_ */
diff --git a/src/jrd/par.cpp b/src/jrd/par.cpp
new file mode 100644
index 0000000000..a838518848
--- /dev/null
+++ b/src/jrd/par.cpp
@@ -0,0 +1,2934 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		par.c
+ *	DESCRIPTION:	BLR Parser
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: par.cpp,v 1.1.1.1 2001-05-23 13:26:13 tamlin Exp $
+*/
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../jrd/jrd.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/val.h"
+#include "../jrd/align.h"
+#include "../jrd/exe.h"
+#include "../jrd/lls.h"
+
+#include "../jrd/scl.h"
+#include "../jrd/all.h"
+#include "../jrd/req.h"
+#include "../jrd/blb.h"
+#include "../jrd/intl.h"
+#include "../jrd/met.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/cvt_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/fun_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/par_proto.h"
+#include "../jrd/thd_proto.h"
+
+/* blr type classes */
+
+#define OTHER		0
+#define STATEMENT	1
+#define BOOL		2
+#define VALUE		3
+#define TYPE_RSE	4
+#define RELATION	5
+#define ACCESS_TYPE	6
+
+#include "../jrd/blrtable.h"
+
+
+extern "C" {
+
+
+static CONST TEXT elements[][10] =
+	{ "", "statement", "boolean", "value", "RSE", "TABLE" };
+static CONST struct {
+	CONST SCHAR *code_string;
+	SLONG code_number;
+} FAR_VARIABLE codes[] = {
+#include "../jrd/codetext.h"
+	NULL, 0
+};
+
+static void error(CSB, ...);
+static SSHORT find_proc_field(PRC, TEXT *);
+static NOD par_args(TDBB, CSB *, USHORT);
+static NOD par_cast(TDBB, CSB *);
+static XCP par_condition(TDBB, CSB *);
+static XCP par_conditions(TDBB, CSB *);
+static SSHORT par_context(CSB *, SSHORT *);
+static void par_dependency(TDBB, CSB *, SSHORT, SSHORT, TEXT *);
+static NOD par_exec_proc(TDBB, CSB *, SSHORT);
+static NOD par_fetch(TDBB, CSB *, NOD);
+static NOD par_field(TDBB, CSB *, SSHORT);
+static NOD par_function(TDBB, CSB *);
+static NOD par_literal(TDBB, register CSB *);
+static NOD par_map(TDBB, CSB *, USHORT);
+static NOD par_message(TDBB, CSB *);
+static NOD par_modify(TDBB, CSB *);
+static USHORT par_name(CSB *, TEXT *);
+static NOD par_plan(TDBB, CSB *);
+static NOD par_procedure(TDBB, CSB *, SSHORT);
+static void par_procedure_parms(TDBB, CSB *, PRC, NOD *, NOD *, USHORT);
+static NOD par_relation(TDBB, CSB *, SSHORT, BOOLEAN);
+static NOD par_rse(TDBB, CSB *, SSHORT);
+static NOD par_sort(TDBB, CSB *, BOOLEAN);
+static NOD par_stream(TDBB, CSB *);
+static NOD par_union(TDBB, CSB *);
+static USHORT par_word(CSB *);
+static NOD parse(TDBB, register CSB *, USHORT);
+static void syntax_error(CSB, CONST TEXT *);
+static void warning(CSB, ...);
+
+#define BLR_PEEK	*((*csb)->csb_running)
+#define BLR_BYTE	*((*csb)->csb_running)++
+#define BLR_PUSH	((*csb)->csb_running)--
+#define BLR_WORD	par_word (csb)
+
+
+NOD PAR_blr(TDBB	tdbb,
+			REL		relation,
+			UCHAR*	blr,
+			CSB		view_csb,
+			CSB*	csb_ptr,
+			REQ*	request_ptr,
+			BOOLEAN	trigger,
+			USHORT	flags)
+{
+/**************************************
+ *
+ *	P A R _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse blr, returning a compiler scratch block with the results.
+ *	Caller must do pool handling.
+ *
+ **************************************/
+	CSB csb;
+	NOD node;
+	SSHORT version, stream, count;
+	csb_repeat *t1, *t2, *end;
+
+	SET_TDBB(tdbb);
+
+	if (!(csb_ptr && (csb = *csb_ptr))) {
+		count = 5;
+		if (view_csb)
+			count += view_csb->csb_count;
+		csb = (CSB) ALLOCDV(type_csb, count);
+		csb->csb_count = count;
+		csb->csb_g_flags |= flags;
+	}
+
+/* If there is a request ptr, this is a trigger.  Set up contexts 0 and 1 for
+   the target relation */
+
+	if (trigger) {
+		stream = csb->csb_n_stream++;
+		t1 = CMP_csb_element(&csb, 0);
+		t1->csb_flags |= csb_used | csb_active | csb_trigger;
+		t1->csb_relation = relation;
+		t1->csb_stream = (UCHAR) stream;
+
+		stream = csb->csb_n_stream++;
+		t1 = CMP_csb_element(&csb, 1);
+		t1->csb_flags |= csb_used | csb_active | csb_trigger;
+		t1->csb_relation = relation;
+		t1->csb_stream = (UCHAR) stream;
+	}
+	else {
+		++csb->csb_n_stream;
+		csb->csb_rpt[0].csb_relation = relation;
+	}
+
+	csb->csb_running = csb->csb_blr = blr;
+
+	if (view_csb) {
+		t1 = view_csb->csb_rpt;
+		end = t1 + view_csb->csb_n_stream;
+		for (stream = 0; t1 < end; t1++, stream++) {
+			t2 = CMP_csb_element(&csb, stream);
+			t2->csb_relation = t1->csb_relation;
+			t2->csb_stream = t1->csb_stream;
+		}
+		csb->csb_n_stream = view_csb->csb_n_stream;
+	}
+
+	version = *csb->csb_running++;
+
+	if (version != blr_version4 && version != blr_version5)
+		error(csb, gds_metadata_corrupt,
+			  gds_arg_gds, gds_wroblrver,
+			  gds_arg_number, (SLONG) blr_version4,
+			  gds_arg_number, (SLONG) version, 0);
+
+	if (version == blr_version4)
+		csb->csb_g_flags |= csb_blr_version4;
+
+	node = parse(tdbb, &csb, OTHER);
+	csb->csb_node = node;
+
+	if (*csb->csb_running++ != (UCHAR) blr_eoc)
+		syntax_error(csb, "end_of_command");
+
+	if (request_ptr)
+		*request_ptr = CMP_make_request(tdbb, &csb);
+
+	if (csb_ptr)
+		*csb_ptr = csb;
+	else
+		ALL_RELEASE(csb);
+
+	return node;
+}
+
+
+int PAR_desc(CSB * csb, DSC * desc)
+{
+/**************************************
+ *
+ *	P A R _ d e s c 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a BLR descriptor.  Return the alignment requirements
+ *	of the datatype.
+ *
+ **************************************/
+	USHORT dtype;
+
+	desc->dsc_scale = 0;
+	desc->dsc_sub_type = 0;
+	desc->dsc_address = (UCHAR *) 0;
+	desc->dsc_flags = 0;
+
+	switch (dtype = BLR_BYTE) {
+	case blr_text:
+		desc->dsc_dtype = dtype_text;
+		desc->dsc_flags |= DSC_no_subtype;
+		desc->dsc_length = BLR_WORD;
+		INTL_ASSIGN_TTYPE(desc, ttype_dynamic);
+		break;
+
+	case blr_cstring:
+		desc->dsc_dtype = dtype_cstring;
+		desc->dsc_flags |= DSC_no_subtype;
+		desc->dsc_length = BLR_WORD;
+		INTL_ASSIGN_TTYPE(desc, ttype_dynamic);
+		break;
+
+	case blr_varying:
+		desc->dsc_dtype = dtype_varying;
+		desc->dsc_flags |= DSC_no_subtype;
+		desc->dsc_length = BLR_WORD + sizeof(USHORT);
+		INTL_ASSIGN_TTYPE(desc, ttype_dynamic);
+		break;
+
+	case blr_text2:
+		desc->dsc_dtype = dtype_text;
+		INTL_ASSIGN_TTYPE(desc, BLR_WORD);
+		desc->dsc_length = BLR_WORD;
+		break;
+
+	case blr_cstring2:
+		desc->dsc_dtype = dtype_cstring;
+		INTL_ASSIGN_TTYPE(desc, BLR_WORD);
+		desc->dsc_length = BLR_WORD;
+		break;
+
+	case blr_varying2:
+		desc->dsc_dtype = dtype_varying;
+		INTL_ASSIGN_TTYPE(desc, BLR_WORD);
+		desc->dsc_length = BLR_WORD + sizeof(USHORT);
+		break;
+
+	case blr_short:
+		desc->dsc_dtype = dtype_short;
+		desc->dsc_length = sizeof(SSHORT);
+		desc->dsc_scale = (int) BLR_BYTE;
+		break;
+
+	case blr_long:
+		desc->dsc_dtype = dtype_long;
+		desc->dsc_length = sizeof(SLONG);
+		desc->dsc_scale = (int) BLR_BYTE;
+		break;
+
+	case blr_int64:
+		desc->dsc_dtype = dtype_int64;
+		desc->dsc_length = sizeof(SINT64);
+		desc->dsc_scale = (int) BLR_BYTE;
+		break;
+
+	case blr_quad:
+		desc->dsc_dtype = dtype_quad;
+		desc->dsc_length = sizeof(GDS__QUAD);
+		desc->dsc_scale = (int) BLR_BYTE;
+		break;
+
+	case blr_float:
+		desc->dsc_dtype = dtype_real;
+		desc->dsc_length = sizeof(float);
+		break;
+
+	case blr_timestamp:
+		desc->dsc_dtype = dtype_timestamp;
+		desc->dsc_length = sizeof(GDS__QUAD);
+		break;
+
+	case blr_sql_date:
+		desc->dsc_dtype = dtype_sql_date;
+		desc->dsc_length = type_lengths[dtype_sql_date];
+		break;
+
+	case blr_sql_time:
+		desc->dsc_dtype = dtype_sql_time;
+		desc->dsc_length = type_lengths[dtype_sql_time];
+		break;
+
+	case blr_double:
+#ifndef VMS
+	case blr_d_float:
+#endif
+		desc->dsc_dtype = dtype_double;
+		desc->dsc_length = sizeof(double);
+		break;
+
+#ifdef VMS
+	case blr_d_float:
+		desc->dsc_dtype = dtype_d_float;
+		desc->dsc_length = sizeof(double);
+		break;
+#endif
+
+	default:
+		if (dtype == blr_blob) {
+			desc->dsc_dtype = dtype_blob;
+			desc->dsc_length = sizeof(GDS__QUAD);
+			break;
+		}
+		error(*csb, gds_datnotsup, 0);
+	}
+
+	return type_alignments[desc->dsc_dtype];
+}
+
+
+NOD PAR_gen_field(TDBB tdbb, USHORT stream, USHORT id)
+{
+/**************************************
+ *
+ *	P A R _ g e n _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a field block.
+ *
+ **************************************/
+	NOD node;
+
+	SET_TDBB(tdbb);
+
+	node = (NOD) ALLOCDV(type_nod, e_fld_length);
+	node->nod_type = nod_field;
+	node->nod_arg[e_fld_id] = (NOD) (SLONG) id;
+	node->nod_arg[e_fld_stream] = (NOD) (SLONG) stream;
+
+	return node;
+}
+
+
+NOD PAR_make_field(TDBB tdbb, CSB csb, USHORT context, TEXT * base_field)
+{
+/**************************************
+ *
+ *	P A R _ m a k e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make up a field node in the permanent pool.  This is used
+ *	by MET_scan_relation to handle view fields.
+ *
+ **************************************/
+	SSHORT id;
+	USHORT stream;
+	TEXT name[32], *p;
+	FLD field;
+	REL temp_rel;
+	NOD temp_node;
+
+	SET_TDBB(tdbb);
+
+	stream = csb->csb_rpt[context].csb_stream;
+
+	for (p = name; *base_field && *base_field != ' ';)
+		*p++ = *base_field++;
+	*p = 0;
+
+	id = MET_lookup_field(tdbb, csb->csb_rpt[stream].csb_relation, name);
+
+	if (id < 0)
+		return NULL;
+
+	temp_rel = csb->csb_rpt[stream].csb_relation;
+
+/* If rel_fields is NULL this means that the relation is
+ * in a temporary state (partially loaded).  In this case
+ * there is nothing we can do but post an error and exit.
+ * Note: This will most likely happen if we have a large list
+ * of deffered work which can not complete because of some
+ * error, and while we are trying to commit, we find 
+ * that we have a dependency on something later in the list.
+ * IF there were no error, then the dependency woyld have
+ * been resolved, because we would have fully loaded the
+ * relation, but if it can not be loaded, then we have this
+ * problem. The only thing that can be done to remedy this
+ * problem is to rollback.  This will clear the dfw list and
+ * allow the user to remedy the original error.  Note: it would
+ * be incorrect for us (the server) to perform the rollback
+ * implicitly, because this is a task for the user to do, and
+ * should never be decided by the server. This fixes bug 10052 */
+	if (!temp_rel->rel_fields) {
+		ERR_post(isc_depend_on_uncommitted_rel, 0);
+	}
+
+	temp_node = PAR_gen_field(tdbb, stream, id);
+
+	if (field = (FLD) temp_rel->rel_fields->vec_object[id]) {
+		if (field->fld_default_value && field->fld_not_null)
+			temp_node->nod_arg[e_fld_default_value] =
+				field->fld_default_value;
+	}
+
+	return temp_node;
+}
+
+
+NOD PAR_make_list(TDBB tdbb, LLS stack)
+{
+/**************************************
+ *
+ *	P A R _ m a k e _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a list node out of a stack.
+ *
+ **************************************/
+	NOD node, *ptr;
+	LLS temp;
+	USHORT count;
+
+	SET_TDBB(tdbb);
+
+/* Count the number of nodes */
+
+	for (temp = stack, count = 0; temp; count++)
+		temp = temp->lls_next;
+
+	node = PAR_make_node(tdbb, count);
+	node->nod_type = nod_list;
+	ptr = node->nod_arg + count;
+
+	while (stack)
+		*--ptr = (NOD) LLS_POP(&stack);
+
+	return node;
+}
+
+
+NOD PAR_make_node(TDBB tdbb, int size)
+{
+/**************************************
+ *
+ *	P A R _ m a k e _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a node element and pass it back.
+ *
+ **************************************/
+	NOD node;
+
+	SET_TDBB(tdbb);
+
+	node = (NOD) ALLOCDV(type_nod, size);
+	node->nod_count = size;
+
+	return node;
+}
+
+
+CSB PAR_parse(TDBB tdbb, UCHAR* blr, USHORT internal_flag)
+{
+/**************************************
+ *
+ *	P A R _ p a r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse blr, returning a compiler scratch block with the results.
+ *
+ **************************************/
+	NOD node;
+	CSB csb;
+	SSHORT version;
+
+	SET_TDBB(tdbb);
+
+	csb = (CSB) ALLOCDV(type_csb, 5);
+	csb->csb_count = 5;
+	csb->csb_running = csb->csb_blr = blr;
+	version = *csb->csb_running++;
+	if (internal_flag)
+		csb->csb_g_flags |= csb_internal;
+
+	if (version != blr_version4 && version != blr_version5)
+	{
+		error(csb, gds_wroblrver,
+			  gds_arg_number, (SLONG) blr_version4,
+			  gds_arg_number, (SLONG) version, 0);
+	}
+
+	if (version == blr_version4)
+	{
+		csb->csb_g_flags |= csb_blr_version4;
+	}
+
+	node = parse(tdbb, &csb, OTHER);
+	csb->csb_node = node;
+
+	if (*csb->csb_running++ != (UCHAR) blr_eoc)
+	{
+		syntax_error(csb, "end_of_command");
+	}
+
+	return csb;
+}
+
+
+SLONG PAR_symbol_to_gdscode(SCHAR * name)
+{
+/**************************************
+ *
+ *	P A R _ s y m b o l _ t o _ g d s c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Symbolic ASCII names are used in blr for posting and handling
+ *	exceptions.  They are also used to identify error codes
+ *	within system triggers in a database.
+ *
+ *	Returns the gds error status code for the given symbolic
+ *	name, or 0 if not found.
+ *
+ *	Symbolic names may be null or space terminated.
+ *
+ **************************************/
+	int i;
+	int length;
+	SCHAR *p;
+
+	p = name;
+	while (*p && *p != ' ')
+		p++;
+	length = p - name;
+	for (i = 0; codes[i].code_number; i++)
+		if (!strncmp(name, codes[i].code_string, length))
+			return codes[i].code_number;
+
+	return 0;
+}
+
+
+static void error(CSB csb, ...)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've got a blr error other than a syntax error.  Handle it.
+ *
+ **************************************/
+	TDBB tdbb;
+	STATUS *p;
+	USHORT offset;
+	int type;
+	va_list args;
+
+/* Don't bother to pass tdbb for error handling */
+	tdbb = GET_THREAD_DATA;
+
+	VA_START(args, csb);
+
+	csb->csb_running--;
+	offset = csb->csb_running - csb->csb_blr;
+	p = tdbb->tdbb_status_vector;
+	*p++ = gds_arg_gds;
+	*p++ = gds_invalid_blr;
+	*p++ = gds_arg_number;
+	*p++ = offset;
+
+	*p++ = gds_arg_gds;
+	*p++ = va_arg(args, STATUS);
+
+/* Pick up remaining args */
+
+	while (*p++ = type = va_arg(args, int))
+		switch (type) {
+		case gds_arg_gds:
+			*p++ = (STATUS) va_arg(args, STATUS);
+			break;
+
+		case gds_arg_string:
+		case gds_arg_interpreted:
+			*p++ = (STATUS) va_arg(args, TEXT *);
+			break;
+
+		case gds_arg_cstring:
+			*p++ = (STATUS) va_arg(args, int);
+			*p++ = (STATUS) va_arg(args, TEXT *);
+			break;
+
+		case gds_arg_number:
+			*p++ = (STATUS) va_arg(args, SLONG);
+			break;
+
+		default:
+			assert(FALSE);
+		case gds_arg_vms:
+		case gds_arg_unix:
+		case gds_arg_win32:
+		case gds_arg_dos:
+		case gds_arg_netware:
+		case gds_arg_domain:
+		case gds_arg_mpexl:
+			*p++ = va_arg(args, int);
+			break;
+		}
+
+/* Give up whatever we were doing and return to the user. */
+
+	ERR_punt();
+}
+
+
+static SSHORT find_proc_field(PRC procedure, TEXT * name)
+{
+/**************************************
+ *
+ *	f i n d _ p r o c _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look for named field in procedure output fields.
+ *
+ **************************************/
+	VEC list;
+	BLK *ptr, *end;
+	PRM param;
+
+	list = procedure->prc_output_fields;
+	for (ptr = list->vec_object, end = ptr + list->vec_count - 1; ptr < end;
+		 ptr++) {
+		param = (PRM) * ptr;
+		if (!strcmp(name, param->prm_name))
+			return param->prm_number;
+	}
+
+	return -1;
+}
+
+
+static NOD par_args(TDBB tdbb, CSB * csb, USHORT expected)
+{
+/**************************************
+ *
+ *	p a r _ a r g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a counted argument list.
+ *
+ **************************************/
+	NOD node, *ptr;
+	USHORT count;
+
+	SET_TDBB(tdbb);
+
+
+	count = BLR_BYTE;
+	node = PAR_make_node(tdbb, count);
+	node->nod_type = nod_list;
+	ptr = node->nod_arg;
+
+	if (count)
+		do
+			*ptr++ = parse(tdbb, csb, expected);
+		while (--count);
+
+	return node;
+}
+
+
+static NOD par_cast(TDBB tdbb, CSB * csb)
+{
+/**************************************
+ *
+ *	p a r _ c a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a datatype cast
+ *
+ **************************************/
+	NOD node;
+	FMT format;
+	DSC *desc;
+
+	SET_TDBB(tdbb);
+
+	node = PAR_make_node(tdbb, e_cast_length);
+	node->nod_count = count_table[blr_cast];
+
+	format = (FMT) ALLOCDV(type_fmt, 1);
+	format->fmt_count = 1;
+	node->nod_arg[e_cast_fmt] = (NOD) format;
+
+	desc = &format->fmt_desc[0];
+	PAR_desc(csb, desc);
+	format->fmt_length = desc->dsc_length;
+
+	node->nod_arg[e_cast_source] = parse(tdbb, csb, VALUE);
+
+	return node;
+}
+
+
+static XCP par_condition(TDBB tdbb, CSB * csb)
+{
+/**************************************
+ *
+ *	p a r _ c o n d i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an error conditions list.
+ *
+ **************************************/
+	XCP exception_list;
+	NOD dep_node;
+	USHORT code_type;
+	TEXT name[32], *p;
+	SLONG code_number;
+
+	SET_TDBB(tdbb);
+
+/* allocate a node to represent the conditions list */
+
+	exception_list = (XCP) ALLOCDV(type_xcp, 1);
+	exception_list->xcp_count = 1;
+	code_type = BLR_BYTE;
+	switch (code_type) {
+	case blr_sql_code:
+		exception_list->xcp_rpt[0].xcp_type = xcp_sql_code;
+		exception_list->xcp_rpt[0].xcp_code = (SSHORT) BLR_WORD;
+		break;
+
+	case blr_gds_code:
+		exception_list->xcp_rpt[0].xcp_type = xcp_gds_code;
+		par_name(csb, name);
+		for (p = name; *p; *p++)
+			*p = LOWWER(*p);
+		code_number = PAR_symbol_to_gdscode(name);
+		if (code_number)
+			exception_list->xcp_rpt[0].xcp_code = code_number;
+		else
+			error(*csb, gds_codnotdef, gds_arg_string, ERR_cstring(name), 0);
+		break;
+
+	case blr_exception:
+		exception_list->xcp_rpt[0].xcp_type = xcp_xcp_code;
+		par_name(csb, name);
+		if (!(exception_list->xcp_rpt[0].xcp_code =
+			  MET_lookup_exception_number(tdbb, name)))
+			error(*csb, gds_xcpnotdef, gds_arg_string, ERR_cstring(name), 0);
+		dep_node = PAR_make_node(tdbb, e_dep_length);
+		dep_node->nod_type = nod_dependency;
+		dep_node->nod_arg[e_dep_object] =
+			(NOD) exception_list->xcp_rpt[0].xcp_code;
+		dep_node->nod_arg[e_dep_object_type] = (NOD) obj_exception;
+		LLS_PUSH(dep_node, &(*csb)->csb_dependencies);
+		break;
+
+	default:
+		assert(FALSE);
+		break;
+	}
+
+	return exception_list;
+}
+
+
+static XCP par_conditions(TDBB tdbb, CSB * csb)
+{
+/**************************************
+ *
+ *	p a r _ c o n d i t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an error conditions list.
+ *
+ **************************************/
+	XCP exception_list;
+	NOD dep_node;
+	USHORT n, i, code_type;
+	TEXT name[32], *p;
+	SLONG code_number;
+
+	SET_TDBB(tdbb);
+
+/* allocate a node to represent the conditions list */
+
+	n = BLR_WORD;
+	exception_list = (XCP) ALLOCDV(type_xcp, n);
+	exception_list->xcp_count = n;
+	for (i = 0; i < n; i++) {
+		code_type = BLR_BYTE;
+		switch (code_type) {
+		case blr_sql_code:
+			exception_list->xcp_rpt[i].xcp_type = xcp_sql_code;
+			exception_list->xcp_rpt[i].xcp_code = (SSHORT) BLR_WORD;
+			break;
+
+		case blr_gds_code:
+			exception_list->xcp_rpt[i].xcp_type = xcp_gds_code;
+			par_name(csb, name);
+			for (p = name; *p; *p++)
+				*p = LOWWER(*p);
+			code_number = PAR_symbol_to_gdscode(name);
+			if (code_number)
+				exception_list->xcp_rpt[i].xcp_code = code_number;
+			else
+				error(*csb, gds_codnotdef,
+					  gds_arg_string, ERR_cstring(name), 0);
+			break;
+
+		case blr_exception:
+			exception_list->xcp_rpt[i].xcp_type = xcp_xcp_code;
+			par_name(csb, name);
+			if (!(exception_list->xcp_rpt[i].xcp_code =
+				  MET_lookup_exception_number(tdbb, name)))
+				error(*csb, gds_xcpnotdef,
+					  gds_arg_string, ERR_cstring(name), 0);
+			dep_node = PAR_make_node(tdbb, e_dep_length);
+			dep_node->nod_type = nod_dependency;
+			dep_node->nod_arg[e_dep_object] =
+				(NOD) exception_list->xcp_rpt[0].xcp_code;
+			dep_node->nod_arg[e_dep_object_type] = (NOD) obj_exception;
+			LLS_PUSH(dep_node, &(*csb)->csb_dependencies);
+			break;
+
+		case blr_default_code:
+			exception_list->xcp_rpt[i].xcp_type = xcp_default;
+			exception_list->xcp_rpt[i].xcp_code = 0;
+			break;
+
+		default:
+			assert(FALSE);
+			break;
+		}
+	}
+
+	return exception_list;
+}
+
+
+static SSHORT par_context(CSB * csb, SSHORT * context_ptr)
+{
+/**************************************
+ *
+ *	p a r _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Introduce a new context into the system.  This involves 
+ *	assigning a stream and possibly extending the compile 
+ *	scratch block.
+ *
+ **************************************/
+	SSHORT context, stream;
+	csb_repeat *tail;
+
+	stream = (*csb)->csb_n_stream++;
+	context = (unsigned int) BLR_BYTE;
+	CMP_csb_element(csb, stream);
+	tail = CMP_csb_element(csb, context);
+
+	if (tail->csb_flags & csb_used)
+		error(*csb, gds_ctxinuse, 0);
+
+	tail->csb_flags |= csb_used;
+	tail->csb_stream = (UCHAR) stream;
+
+	if (context_ptr)
+		*context_ptr = context;
+
+	return stream;
+}
+
+
+static void par_dependency(
+						   TDBB tdbb,
+						   CSB * csb,
+						   SSHORT stream, SSHORT id, TEXT * field_name)
+{
+/**************************************
+ *
+ *	p a r _ d e p e n d e n c y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Register a field, relation, procedure or exception reference
+ *	as a dependency.
+ *
+ **************************************/
+	NOD node, field_node;
+	STR string;
+	int length;
+
+	SET_TDBB(tdbb);
+
+	node = PAR_make_node(tdbb, e_dep_length);
+	node->nod_type = nod_dependency;
+	if ((*csb)->csb_rpt[stream].csb_relation) {
+		node->nod_arg[e_dep_object] =
+			(NOD) (*csb)->csb_rpt[stream].csb_relation;
+		node->nod_arg[e_dep_object_type] = (NOD) obj_relation;
+	}
+	else if ((*csb)->csb_rpt[stream].csb_procedure) {
+		node->nod_arg[e_dep_object] =
+			(NOD) (*csb)->csb_rpt[stream].csb_procedure;
+		node->nod_arg[e_dep_object_type] = (NOD) obj_procedure;
+	}
+
+	if (field_name) {
+		node->nod_arg[e_dep_field] = field_node = PAR_make_node(tdbb, 1);
+		field_node->nod_type = nod_literal;
+		length = strlen(field_name);
+		string = (STR) ALLOCDV(type_str, length);
+		string->str_length = length;
+		strcpy(reinterpret_cast < char *>(string->str_data), field_name);
+		field_node->nod_arg[0] = (NOD) string->str_data;
+	}
+	else if (id >= 0) {
+		node->nod_arg[e_dep_field] = field_node = PAR_make_node(tdbb, 1);
+		field_node->nod_type = nod_field;
+		field_node->nod_arg[0] = (NOD) (SLONG) id;
+	}
+
+	LLS_PUSH(node, &(*csb)->csb_dependencies);
+}
+
+
+static NOD par_exec_proc(TDBB tdbb, CSB * csb, SSHORT operator_)
+{
+/**************************************
+ *
+ *	p a r _ e x e c _ p r o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an execute procedure  reference.
+ *
+ **************************************/
+	NOD node, dep_node;
+	PRC procedure;
+
+	SET_TDBB(tdbb);
+
+	procedure = NULL;
+	{
+		TEXT name[32];
+		USHORT pid;
+
+		if (operator_ == blr_exec_pid) {
+			pid = BLR_WORD;
+			if (!(procedure = MET_lookup_procedure_id(tdbb, pid, FALSE, 0)))
+				sprintf(name, "id %d", pid);
+		}
+		else {
+			par_name(csb, name);
+			procedure = MET_lookup_procedure(tdbb, name);
+		}
+		if (!procedure)
+			error(*csb, gds_prcnotdef, gds_arg_string, ERR_cstring(name), 0);
+	}
+
+	node = PAR_make_node(tdbb, e_esp_length);
+	node->nod_type = nod_exec_proc;
+	node->nod_count = count_table[blr_exec_proc];
+	node->nod_arg[e_esp_procedure] = (NOD) procedure;
+
+	par_procedure_parms(tdbb, csb, procedure, &node->nod_arg[e_esp_in_msg],
+						&node->nod_arg[e_esp_inputs], TRUE);
+	par_procedure_parms(tdbb, csb, procedure, &node->nod_arg[e_esp_out_msg],
+						&node->nod_arg[e_esp_outputs], FALSE);
+
+	dep_node = PAR_make_node(tdbb, e_dep_length);
+	dep_node->nod_type = nod_dependency;
+	dep_node->nod_arg[e_dep_object] = (NOD) procedure;
+	dep_node->nod_arg[e_dep_object_type] = (NOD) obj_procedure;
+
+	LLS_PUSH(dep_node, &(*csb)->csb_dependencies);
+
+	return node;
+}
+
+
+static NOD par_fetch(TDBB tdbb, CSB * csb, NOD for_node)
+{
+/**************************************
+ *
+ *	p a r _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a FETCH statement, and map it into
+ *
+ *	    FOR x IN relation WITH x.DBKEY EQ value ...
+ *
+ **************************************/
+	RSE rse;
+	NOD relation, node;
+
+	SET_TDBB(tdbb);
+
+
+/* Fake RSE */
+
+	for_node->nod_arg[e_for_re] = PAR_make_node(tdbb, 1 + rse_delta + 2);
+	rse = (RSE) for_node->nod_arg[e_for_re];
+	rse->nod_type = nod_rse;
+	rse->nod_count = 0;
+	rse->rse_count = 1;
+	rse->rse_relation[0] = relation = parse(tdbb, csb, RELATION);
+
+#ifdef GATEWAY
+	if (!(((REL) relation->nod_arg[e_rel_relation])->rel_flags & REL_dbkey))
+		error(*csb, gds__no_dbkey, 0);
+	/* Msg365 dbkey not available for multi-table views */
+#endif
+
+/* Fake boolean */
+
+	node = rse->rse_boolean = PAR_make_node(tdbb, 2);
+	node->nod_type = nod_eql;
+	node->nod_flags = nod_comparison;
+	node->nod_arg[1] = parse(tdbb, csb, VALUE);
+	node->nod_arg[0] = PAR_make_node(tdbb, 1);
+	node = node->nod_arg[0];
+	node->nod_type = nod_dbkey;
+	node->nod_count = 0;
+	node->nod_arg[0] = relation->nod_arg[e_rel_stream];
+
+/* Pick up statement */
+
+	for_node->nod_arg[e_for_statement] = parse(tdbb, csb, STATEMENT);
+
+	return for_node;
+}
+
+
+static NOD par_field(TDBB tdbb, CSB * csb, SSHORT operator_)
+{
+/**************************************
+ *
+ *	p a r _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a field.
+ *
+ **************************************/
+	REL relation;
+	PRC procedure;
+	TEXT name[32];
+	NOD node;
+	SSHORT stream, id, context, flags;
+	csb_repeat *tail;
+	PRC scan_proc;
+	FLD field;
+	REL temp_rel;
+	BOOLEAN is_column = FALSE;
+
+	SET_TDBB(tdbb);
+
+
+	context = (unsigned int) BLR_BYTE;
+
+	if (context >= (*csb)->csb_count)
+		error(*csb, gds_ctxnotdef, 0);
+
+	stream = (*csb)->csb_rpt[context].csb_stream;
+	flags = 0;
+
+	if (operator_ == blr_fid) {
+		id = BLR_WORD;
+		flags = nod_id;
+		is_column = TRUE;
+	}
+	else if (operator_ == blr_field) {
+		tail = &(*csb)->csb_rpt[stream];
+		procedure = tail->csb_procedure;
+
+		/* make sure procedure has been scanned before using it */
+
+		if (procedure && (!(procedure->prc_flags & PRC_scanned)
+						  || (procedure->prc_flags & PRC_being_scanned)
+						  || (procedure->prc_flags & PRC_being_altered))) {
+			scan_proc = MET_procedure(tdbb, procedure->prc_id, 0);
+			if (scan_proc != procedure)
+				procedure = NULL;
+		}
+
+		if (procedure) {
+			par_name(csb, name);
+			if ((id = find_proc_field(procedure, name)) == -1)
+				error(*csb,
+					  gds_fldnotdef,
+					  gds_arg_string, ERR_cstring(name),
+					  gds_arg_string, procedure->prc_name->str_data, 0);
+		}
+		else {
+			if (!(relation = tail->csb_relation))
+				error(*csb, gds_ctxnotdef, 0);
+
+			/* make sure relation has been scanned before using it */
+
+			if (!(relation->rel_flags & REL_scanned) ||
+				(relation->rel_flags & REL_being_scanned))
+					MET_scan_relation(tdbb, relation);
+
+			par_name(csb, name);
+			if ((id = MET_lookup_field(tdbb, relation, name)) < 0)
+				if ((*csb)->csb_g_flags & csb_validation) {
+					id = 0;
+					flags |= nod_id;
+					is_column = TRUE;
+				}
+				else {
+					if (tdbb->
+						tdbb_attachment->att_flags & ATT_gbak_attachment)
+							warning(*csb, gds_fldnotdef, gds_arg_string,
+									ERR_cstring(name), gds_arg_string,
+									relation->rel_name, 0);
+					else if (relation->rel_name)
+						error(*csb, gds_fldnotdef, gds_arg_string,
+							  ERR_cstring(name), gds_arg_string,
+							  relation->rel_name, 0);
+					else
+						error(*csb, gds_ctxnotdef, 0);
+				}
+		}
+	}
+
+/* check for dependencies -- if a field name was given,
+   use it because when restoring the database the field
+   id's may not be valid yet */
+
+	if ((*csb)->csb_g_flags & csb_get_dependencies)
+		if (operator_ == blr_fid)
+			par_dependency(tdbb, csb, stream, id, 0);
+		else
+			par_dependency(tdbb, csb, stream, id, name);
+
+	node = PAR_gen_field(tdbb, stream, id);
+	node->nod_flags |= flags;
+
+	if (is_column == TRUE) {
+		if (temp_rel = (*csb)->csb_rpt[stream].csb_relation) {
+			if (field = (FLD) temp_rel->rel_fields->vec_object[id]) {
+				if (field->fld_default_value && field->fld_not_null)
+					node->nod_arg[e_fld_default_value] =
+						field->fld_default_value;
+			}
+		}
+	}
+
+	return node;
+}
+
+
+static NOD par_function(TDBB tdbb, CSB * csb)
+{
+/**************************************
+ *
+ *	p a r _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a function reference.
+ *
+ **************************************/
+	NOD node;
+	FUN function, homonyms;
+	TEXT name[32];
+	USHORT count;
+
+	SET_TDBB(tdbb);
+
+
+	count = par_name(csb, name);
+
+
+	function = FUN_lookup_function(name);
+	if (!function) {
+		if (tdbb->tdbb_flags & TDBB_prc_being_dropped) {
+			node = PAR_make_node(tdbb, e_fun_length);
+			node->nod_count = 1;
+			node->nod_arg[e_fun_function] = (NOD) NULL;
+			node->nod_arg[e_fun_args] = par_args(tdbb, csb, VALUE);
+			return node;
+		}
+		else {
+			(*csb)->csb_running -= count;
+			error(*csb, gds_funnotdef, gds_arg_string, ERR_cstring(name), 0);
+		}
+	}
+
+	for (homonyms = function; homonyms; homonyms = homonyms->fun_homonym)
+		if (homonyms->fun_entrypoint)
+			break;
+
+	if (!homonyms)
+		if (tdbb->tdbb_attachment->att_flags & ATT_gbak_attachment)
+			warning(*csb, gds_funnotdef,
+					gds_arg_string, ERR_cstring(name),
+					gds_arg_interpreted,
+					"module name or entrypoint could not be found", 0);
+		else {
+			(*csb)->csb_running -= count;
+			error(*csb, gds_funnotdef,
+				  gds_arg_string, ERR_cstring(name),
+				  gds_arg_interpreted,
+				  "module name or entrypoint could not be found", 0);
+		}
+
+	node = PAR_make_node(tdbb, e_fun_length);
+	node->nod_count = 1;
+	node->nod_arg[e_fun_function] = (NOD) function;
+	node->nod_arg[e_fun_args] = par_args(tdbb, csb, VALUE);
+
+	return node;
+}
+
+
+static NOD par_literal(TDBB tdbb, register CSB * csb)
+{
+/**************************************
+ *
+ *	p a r _ l i t e r a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a literal value.
+ *
+ **************************************/
+	register LIT literal;
+	NOD node;
+	DSC desc;
+	UCHAR *p, *q;
+	SSHORT count, l, scale;
+	UCHAR dtype;
+
+	SET_TDBB(tdbb);
+
+
+	PAR_desc(csb, &desc);
+	count = lit_delta + (desc.dsc_length + sizeof(int) - 1) / sizeof(int);
+	node = PAR_make_node(tdbb, count);
+	literal = (LIT) node;
+	node->nod_count = 0;
+	literal->lit_desc = desc;
+	literal->lit_desc.dsc_address = p = literal->lit_data;
+	literal->lit_desc.dsc_flags = 0;
+	q = (*csb)->csb_running;
+	l = desc.dsc_length;
+
+	switch (desc.dsc_dtype) {
+	case dtype_short:
+		l = 2;
+		*(SSHORT *) p = (SSHORT) gds__vax_integer(q, l);
+		break;
+
+	case dtype_long:
+	case dtype_sql_date:
+	case dtype_sql_time:
+		l = 4;
+		*(SLONG *) p = (SLONG) gds__vax_integer(q, l);
+		break;
+
+	case dtype_timestamp:
+		l = 8;
+		*(SLONG *) p = (SLONG) gds__vax_integer(q, 4);
+		p += 4;
+		q += 4;
+		*(SLONG *) p = (SLONG) gds__vax_integer(q, 4);
+		break;
+
+	case dtype_int64:
+		l = sizeof(SINT64);
+		*(SINT64 *) p = (SINT64) isc_portable_integer(q, l);
+		break;
+
+	case dtype_double:
+		/* the double literal could potentially be used for any
+		   numeric literal - the value is passed as if it were a
+		   text string. Convert the numeric string to its binary
+		   value (int64, long or double as appropriate). */
+		l = BLR_WORD;
+		q = (*csb)->csb_running;
+		dtype =
+			CVT_get_numeric(q, l, &scale, (double *) p, (FPTR_VOID) ERR_post);
+		literal->lit_desc.dsc_dtype = dtype;
+		if (dtype == dtype_double)
+			literal->lit_desc.dsc_length = sizeof(double);
+		else if (dtype == dtype_long) {
+			literal->lit_desc.dsc_length = sizeof(SLONG);
+			literal->lit_desc.dsc_scale = (SCHAR) scale;
+		}
+		else {
+			literal->lit_desc.dsc_length = sizeof(SINT64);
+			literal->lit_desc.dsc_scale = (SCHAR) scale;
+		}
+		break;
+
+	default:
+		assert(FALSE);
+	case dtype_text:
+		if (count = l)
+			do
+				*p++ = *q++;
+			while (--count);
+		break;
+	}
+
+	(*csb)->csb_running += l;
+
+	return node;
+}
+
+
+static NOD par_map(TDBB tdbb, CSB * csb, USHORT stream)
+{
+/**************************************
+ *
+ *	p a r _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a MAP clause for a union or global aggregate expression.
+ *
+ **************************************/
+	NOD assignment, node;
+	SSHORT count;
+	LLS map;
+
+	SET_TDBB(tdbb);
+
+
+	if (BLR_BYTE != blr_map)
+		syntax_error(*csb, "blr_map");
+
+	count = BLR_WORD;
+	map = NULL;
+
+	while (--count >= 0) {
+		assignment = PAR_make_node(tdbb, e_asgn_length);
+		assignment->nod_type = nod_assignment;
+		assignment->nod_count = e_asgn_length;
+		assignment->nod_arg[e_asgn_to] =
+			PAR_gen_field(tdbb, stream, BLR_WORD);
+		assignment->nod_arg[e_asgn_from] = parse(tdbb, csb, VALUE);
+		LLS_PUSH(assignment, &map);
+	}
+
+	node = PAR_make_list(tdbb, map);
+	node->nod_type = nod_map;
+
+	return node;
+}
+
+
+static NOD par_message(TDBB tdbb, CSB * csb)
+{
+/**************************************
+ *
+ *	p a r _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a message declaration, including operator byte.
+ *
+ **************************************/
+	NOD node;
+	FMT format;
+	DSC *desc, *end;
+	USHORT n, alignment;
+	ULONG offset;
+	csb_repeat *tail;
+
+	SET_TDBB(tdbb);
+
+/* Get message number, register it in the compile scratch block, and
+   allocate a node to represent the message */
+
+	n = (unsigned int) BLR_BYTE;
+	tail = CMP_csb_element(csb, n);
+	tail->csb_message = node = PAR_make_node(tdbb, e_msg_length);
+	node->nod_count = 0;
+	node->nod_arg[e_msg_number] = (NOD) (SLONG) n;
+	if (n > (*csb)->csb_msg_number)
+		(*csb)->csb_msg_number = n;
+
+/* Get the number of parameters in the message and prepare to fill
+   out the format block */
+
+	n = BLR_WORD;
+	format = (FMT) ALLOCDV(type_fmt, n);
+	node->nod_arg[e_msg_format] = (NOD) format;
+	format->fmt_count = n;
+	offset = 0;
+
+	for (desc = format->fmt_desc, end = desc + n; desc < end; desc++) {
+		alignment = PAR_desc(csb, desc);
+		if (alignment)
+			offset = FB_ALIGN(offset, alignment);
+		desc->dsc_address = (UCHAR *) (SLONG) offset;
+		offset += desc->dsc_length;
+	}
+
+	if (offset > MAX_FORMAT_SIZE)
+		error(*csb, gds_imp_exc, gds_arg_gds, gds_blktoobig, 0);
+
+	format->fmt_length = (USHORT) offset;
+
+	return node;
+}
+
+
+static NOD par_modify(TDBB tdbb, CSB * csb)
+{
+/**************************************
+ *
+ *	p a r _ m o d i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a modify statement.
+ *
+ **************************************/
+	NOD node;
+	SSHORT context, new_stream, org_stream;
+	csb_repeat *tail;
+
+	SET_TDBB(tdbb);
+
+/* Parse the original and new contexts */
+
+	context = (unsigned int) BLR_BYTE;
+	if (context >= (*csb)->csb_count)
+		error(*csb, gds_ctxnotdef, 0);
+	org_stream = (*csb)->csb_rpt[context].csb_stream;
+	new_stream = (*csb)->csb_n_stream++;
+	context = (unsigned int) BLR_BYTE;
+
+/* Make sure the compiler scratch block is big enough to hold
+   everything */
+
+	tail = CMP_csb_element(csb, context);
+	tail->csb_stream = (UCHAR) new_stream;
+
+	tail = CMP_csb_element(csb, new_stream);
+	tail->csb_relation = (*csb)->csb_rpt[org_stream].csb_relation;
+
+/* Make the node and parse the sub-expression */
+
+	node = PAR_make_node(tdbb, e_mod_length);
+	node->nod_count = 1;
+	node->nod_arg[e_mod_org_stream] = (NOD) (SLONG) org_stream;
+	node->nod_arg[e_mod_new_stream] = (NOD) (SLONG) new_stream;
+	node->nod_arg[e_mod_statement] = parse(tdbb, csb, STATEMENT);
+
+	return node;
+}
+
+
+static USHORT par_name(CSB * csb, TEXT * string)
+{
+/**************************************
+ *
+ *	p a r _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a counted string, returning count.
+ *
+ **************************************/
+	USHORT count, l;
+
+	if (count = l = BLR_BYTE)
+		do
+			*string++ = BLR_BYTE;
+		while (--l);
+
+	*string = 0;
+
+	return count;
+}
+
+
+static NOD par_plan(TDBB tdbb, CSB * csb)
+{
+/**************************************
+ *
+ *	p a r _ p l a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an access plan expression.  
+ *	At this stage we are just generating the 
+ *	parse tree and checking contexts 
+ *	and indices.
+ *
+ **************************************/
+	NOD plan, access_type, relation_node, *arg;
+	USHORT node_type, count;
+
+	SET_TDBB(tdbb);
+
+	node_type = (USHORT) BLR_BYTE;
+
+/* a join type indicates a cross of two or more streams */
+
+	if (node_type == blr_join || node_type == blr_merge) {
+		count = (USHORT) BLR_BYTE;
+		plan = PAR_make_node(tdbb, count);
+		plan->nod_type = (NOD_T) (USHORT) blr_table[node_type];
+
+		for (arg = plan->nod_arg; count--;)
+			*arg++ = par_plan(tdbb, csb);
+		return plan;
+	}
+
+/* we have hit a stream; parse the context number and access type */
+
+	if (node_type == blr_retrieve) {
+		TEXT name[32], *p;
+		SSHORT stream, n;
+		SLONG index_id, relation_id;
+		REL relation;
+
+		plan = PAR_make_node(tdbb, e_retrieve_length);
+		plan->nod_type = (NOD_T) (USHORT) blr_table[node_type];
+
+		/* parse the relation name and context--the relation 
+		   itself is redundant except in the case of a view,
+		   in which case the base relation (and alias) must be specified */
+
+		n = BLR_BYTE;
+		if (n != blr_relation && n != blr_relation2 &&
+			n != blr_rid && n != blr_rid2)
+				syntax_error(*csb, elements[RELATION]);
+
+		/* don't have par_relation() parse the context, because
+		   this would add a new context; while this is a reference to 
+		   an existing context */
+
+		relation_node = par_relation(tdbb, csb, n, FALSE);
+		plan->nod_arg[e_retrieve_relation] = relation_node;
+		relation = (REL) relation_node->nod_arg[e_rel_relation];
+
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		stream = (*csb)->csb_rpt[n].csb_stream;
+
+		relation_node->nod_arg[e_rel_stream] = (NOD) (SLONG) stream;
+		relation_node->nod_arg[e_rel_context] = (NOD) (SLONG) n;
+
+		/* Access plan types (sequential is default) */
+
+		node_type = (USHORT) BLR_BYTE;
+		if (node_type == blr_navigational) {
+			SSHORT idx_status;
+
+			access_type = plan->nod_arg[e_retrieve_access_type] =
+				PAR_make_node(tdbb, 3);
+			access_type->nod_type = nod_navigational;
+
+			/* pick up the index name and look up the appropriate ids */
+
+			par_name(csb, name);
+			for (p = name; *p; *p++)
+				*p = UPPER(*p);
+			index_id =
+				MET_lookup_index_name(tdbb, name, &relation_id, &idx_status);
+
+			if (idx_status == MET_object_unknown ||
+				idx_status == MET_object_inactive)
+					if (tdbb->
+						tdbb_attachment->att_flags & ATT_gbak_attachment)
+						warning(*csb, gds_indexname, gds_arg_string,
+								ERR_cstring(name), gds_arg_string,
+								relation->rel_name, 0);
+				else
+					error(*csb, gds_indexname, gds_arg_string,
+						  ERR_cstring(name), gds_arg_string,
+						  relation->rel_name, 0);
+
+			/* save both the relation id and the index id, since 
+			   the relation could be a base relation of a view;
+			   save the index name also, for convenience */
+
+			access_type->nod_arg[0] = (NOD) relation_id;
+			access_type->nod_arg[1] = (NOD) index_id;
+			access_type->nod_arg[2] = (NOD) ALL_cstring(name);
+		}
+		else if (node_type == blr_indices) {
+			SSHORT idx_status;
+
+			count = (USHORT) BLR_BYTE;
+			access_type = plan->nod_arg[e_retrieve_access_type] =
+				PAR_make_node(tdbb, count * 3);
+			access_type->nod_type = nod_indices;
+
+			/* pick up the index names and look up the appropriate ids */
+
+			for (arg = access_type->nod_arg; count--;) {
+				par_name(csb, name);
+				for (p = name; *p; *p++)
+					*p = UPPER(*p);
+
+				index_id =
+					MET_lookup_index_name(tdbb, name, &relation_id,
+										  &idx_status);
+
+				if (idx_status == MET_object_unknown ||
+					idx_status == MET_object_inactive)
+						if (tdbb->
+							tdbb_attachment->att_flags & ATT_gbak_attachment)
+							warning(*csb, gds_indexname, gds_arg_string,
+									ERR_cstring(name), gds_arg_string,
+									relation->rel_name, 0);
+					else
+						error(*csb, gds_indexname, gds_arg_string,
+							  ERR_cstring(name), gds_arg_string,
+							  relation->rel_name, 0);
+
+				/* save both the relation id and the index id, since 
+				   the relation could be a base relation of a view;
+				   save the index name also, for convenience */
+
+				*arg++ = (NOD) relation_id;
+				*arg++ = (NOD) index_id;
+				*arg++ = (NOD) ALL_cstring(name);
+			}
+		}
+		else if (node_type != blr_sequential)
+			syntax_error(*csb, "access type");
+
+		return plan;
+	}
+
+	syntax_error(*csb, "plan item");
+	return ((NOD) 0);			/* Added to remove compiler warning */
+}
+
+
+static NOD par_procedure(TDBB tdbb, CSB * csb, SSHORT operator_)
+{
+/**************************************
+ *
+ *	p a r _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an procedural view reference.
+ *
+ **************************************/
+	NOD node;
+	PRC procedure;
+	USHORT stream;
+
+	SET_TDBB(tdbb);
+
+	{
+		TEXT name[32];
+		SSHORT pid;
+
+		if (operator_ == blr_procedure) {
+			par_name(csb, name);
+			procedure = MET_lookup_procedure(tdbb, name);
+		}
+		else {
+			pid = BLR_WORD;
+			if (!(procedure = MET_lookup_procedure_id(tdbb, pid, FALSE, 0)))
+				sprintf(name, "id %d", pid);
+		}
+		if (!procedure)
+			error(*csb, gds_prcnotdef, gds_arg_string, ERR_cstring(name), 0);
+	}
+
+	node = PAR_make_node(tdbb, e_prc_length);
+	node->nod_type = nod_procedure;
+	node->nod_count = count_table[blr_procedure];
+	node->nod_arg[e_prc_procedure] = (NOD) procedure;
+
+	stream = par_context(csb, 0);
+	node->nod_arg[e_prc_stream] = (NOD) (SLONG) stream;
+	(*csb)->csb_rpt[stream].csb_procedure = procedure;
+
+	par_procedure_parms(tdbb, csb, procedure, &node->nod_arg[e_prc_in_msg],
+						&node->nod_arg[e_prc_inputs], TRUE);
+
+	if ((*csb)->csb_g_flags & csb_get_dependencies)
+		par_dependency(tdbb, csb, stream, (SSHORT) - 1, 0);
+
+	return node;
+}
+
+
+static void par_procedure_parms(
+								TDBB tdbb,
+								CSB * csb,
+								PRC procedure,
+								NOD * message_ptr,
+								NOD * parameter_ptr, USHORT input_flag)
+{
+/**************************************
+ *
+ *	p a r _ p r o c e d u r e _ p a r m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse some procedure parameters.
+ *
+ **************************************/
+	NOD message, list, *ptr, asgn, prm, prm_f;
+	FMT format;
+	USHORT count, n, i, asgn_arg1, asgn_arg2;
+	csb_repeat *tail;
+	BOOLEAN mismatch = FALSE;
+
+	SET_TDBB(tdbb);
+
+	count = BLR_WORD;
+
+/** Check to see if the parameter count matches **/
+	if (count !=
+		(input_flag ? procedure->prc_inputs : procedure->prc_outputs)) {
+	/** They don't match...Hmmm...Its OK if we were dropping the procedure **/
+		if (!(tdbb->tdbb_flags & TDBB_prc_being_dropped))
+			error(*csb,
+				  gds_prcmismat,
+				  gds_arg_string,
+				  ERR_cstring(reinterpret_cast <
+							  char *>(procedure->prc_name->str_data)), 0);
+		else
+			mismatch = TRUE;
+	}
+
+	if (count) {
+	/** We have a few parameters. Get on with creating the message block **/
+		if ((n = ++(*csb)->csb_msg_number) < 2)
+			(*csb)->csb_msg_number = n = 2;
+		tail = CMP_csb_element(csb, n);
+		tail->csb_message = message = PAR_make_node(tdbb, e_msg_length);
+		message->nod_type = nod_message;
+		message->nod_count = count_table[blr_message];
+		*message_ptr = message;
+		message->nod_count = 0;
+		message->nod_arg[e_msg_number] = (NOD) (SLONG) n;
+		format =
+			input_flag ? procedure->prc_input_fmt : procedure->prc_output_fmt;
+		message->nod_arg[e_msg_format] = (NOD) format;
+		if (!mismatch)
+			n = format->fmt_count / 2;
+		else
+			/*  There was a parameter mismatch hence can't depend upon the format's
+			   fmt_count. Use count instead.
+			 */
+			n = count;
+		list = *parameter_ptr = PAR_make_node(tdbb, n);
+		list->nod_type = nod_list;
+		list->nod_count = n;
+		ptr = list->nod_arg;
+		if (input_flag) {
+			asgn_arg1 = e_asgn_from;
+			asgn_arg2 = e_asgn_to;
+		}
+		else {
+			asgn_arg1 = e_asgn_to;
+			asgn_arg2 = e_asgn_from;
+		}
+		for (i = 0; count; count--) {
+			asgn = PAR_make_node(tdbb, e_asgn_length);
+			*ptr++ = asgn;
+			asgn->nod_type = nod_assignment;
+			asgn->nod_count = count_table[blr_assignment];
+			asgn->nod_arg[asgn_arg1] = parse(tdbb, csb, VALUE);
+			prm = asgn->nod_arg[asgn_arg2] =
+				PAR_make_node(tdbb, e_arg_length);
+			prm->nod_type = nod_argument;
+			prm->nod_count = 1;
+			prm->nod_arg[e_arg_message] = message;
+			prm->nod_arg[e_arg_number] = (NOD) i++;
+			prm_f = prm->nod_arg[e_arg_flag] =
+				PAR_make_node(tdbb, e_arg_length);
+			prm_f->nod_type = nod_argument;
+			prm_f->nod_count = 0;
+			prm_f->nod_arg[e_arg_message] = message;
+			prm_f->nod_arg[e_arg_number] = (NOD) i++;
+		}
+	}
+	else if ((input_flag ? procedure->prc_inputs : procedure->prc_outputs) &&
+			 !mismatch)
+			error(*csb,
+				  gds_prcmismat,
+				  gds_arg_string,
+				  ERR_cstring(reinterpret_cast <
+							  char *>(procedure->prc_name->str_data)), 0);
+}
+
+
+static NOD par_relation(
+						TDBB tdbb,
+						CSB * csb, SSHORT operator_, BOOLEAN parse_context)
+{
+/**************************************
+ *
+ *	p a r _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a relation reference.
+ *
+ **************************************/
+#ifdef GATEWAY
+	DBB dbb;
+#endif
+	NOD node;
+	REL relation;
+	TEXT name[32];
+	STR alias_string = NULL;
+	SSHORT id, stream, length, context;
+
+	SET_TDBB(tdbb);
+#ifdef GATEWAY
+	dbb = tdbb->tdbb_database;
+#endif
+
+/* Make a relation reference node */
+
+	node = PAR_make_node(tdbb, e_rel_length);
+	node->nod_count = 0;
+
+/* Find relation either by id or by name */
+
+	if (operator_ == blr_rid || operator_ == blr_rid2) {
+		id = BLR_WORD;
+		if (operator_ == blr_rid2) {
+			length = BLR_PEEK;
+			alias_string = (STR) ALLOCDV(type_str, length + 1);
+			alias_string->str_length = length;
+			par_name(csb, reinterpret_cast < char *>(alias_string->str_data));
+		}
+#ifndef GATEWAY
+		if (!(relation = MET_lookup_relation_id(tdbb, id, FALSE))) {
+			sprintf(name, "id %d", id);
+			error(*csb, gds_relnotdef, gds_arg_string, ERR_cstring(name), 0);
+		}
+#else
+		/* To use rid, the relation slot must already have been filled in */
+
+		if (id >= dbb->dbb_relations->vec_count
+			|| !dbb->dbb_relations->vec_object[id])
+			error(*csb, gds_ctxnotdef, 0);
+		relation = MET_relation(tdbb, id);
+#endif
+	}
+	else if (operator_ == blr_relation || operator_ == blr_relation2) {
+		par_name(csb, name);
+		if (operator_ == blr_relation2) {
+			length = BLR_PEEK;
+			alias_string = (STR) ALLOCDV(type_str, length + 1);
+			alias_string->str_length = length;
+			par_name(csb, reinterpret_cast < char *>(alias_string->str_data));
+		}
+		if (!(relation = MET_lookup_relation(tdbb, name)))
+			error(*csb, gds_relnotdef, gds_arg_string, ERR_cstring(name), 0);
+	}
+
+/* if an alias was passed, store with the relation */
+
+	if (alias_string)
+		node->nod_arg[e_rel_alias] = (NOD) alias_string;
+
+/* Scan the relation if it hasn't already been scanned for meta data */
+
+	if ((!(relation->rel_flags & REL_scanned)
+		 || (relation->rel_flags & REL_being_scanned))
+		&& ((relation->rel_flags & REL_force_scan)
+			|| !((*csb)->csb_g_flags & csb_internal))) {
+		relation->rel_flags &= ~REL_force_scan;
+		MET_scan_relation(tdbb, relation);
+	}
+	else if (relation->rel_flags & REL_sys_triggers)
+	{
+		MET_parse_sys_trigger(tdbb, relation);
+	}
+
+/* generate a stream for the relation reference, 
+   assuming it is a real reference */
+
+	if (parse_context) {
+		stream = par_context(csb, &context);
+		node->nod_arg[e_rel_stream] = (NOD) (SLONG) stream;
+		node->nod_arg[e_rel_context] = (NOD) (SLONG) context;
+
+		(*csb)->csb_rpt[stream].csb_relation = relation;
+		(*csb)->csb_rpt[stream].csb_alias = alias_string;
+
+		if ((*csb)->csb_g_flags & csb_get_dependencies)
+			par_dependency(tdbb, csb, stream, (SSHORT) - 1, 0);
+	}
+
+	node->nod_arg[e_rel_relation] = (NOD) relation;
+
+	return node;
+}
+
+
+static NOD par_rse(TDBB tdbb, CSB * csb, SSHORT rse_op)
+{
+/**************************************
+ *
+ *	p a r _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a record selection expression.
+ *
+ **************************************/
+	register RSE rse;
+	NOD *ptr;
+	register SSHORT count;
+	USHORT jointype;
+	UCHAR op;
+
+	SET_TDBB(tdbb);
+
+	count = (unsigned int) BLR_BYTE;
+	rse = (RSE) PAR_make_node(tdbb, count + rse_delta + 2);
+	rse->nod_count = 0;
+	rse->rse_count = count;
+	ptr = rse->rse_relation;
+
+	while (--count >= 0)
+		*ptr++ = parse(tdbb, csb, RELATION);
+
+	while (TRUE)
+		switch (op = BLR_BYTE) {
+		case blr_boolean:
+			rse->rse_boolean = parse(tdbb, csb, BOOL);
+			break;
+
+		case blr_first:
+			if (rse_op == blr_rs_stream)
+				syntax_error(*csb, "rse stream clause");
+			rse->rse_first = parse(tdbb, csb, VALUE);
+			break;
+
+		case blr_sort:
+			if (rse_op == blr_rs_stream)
+				syntax_error(*csb, "rse stream clause");
+			rse->rse_sorted = par_sort(tdbb, csb, TRUE);
+			break;
+
+		case blr_project:
+			if (rse_op == blr_rs_stream)
+				syntax_error(*csb, "rse stream clause");
+			rse->rse_projection = par_sort(tdbb, csb, FALSE);
+			break;
+
+		case blr_join_type:
+			if ((rse->rse_jointype = jointype = (USHORT) BLR_BYTE) !=
+				blr_inner && jointype != blr_left && jointype != blr_right
+				&& jointype != blr_full)
+				syntax_error(*csb, "join type clause");
+			break;
+
+		case blr_plan:
+			rse->rse_plan = par_plan(tdbb, csb);
+			break;
+
+#ifdef SCROLLABLE_CURSORS
+			/* if a receive is seen here, then it is intended to be an asynchronous 
+			   receive which can happen at any time during the scope of the rse-- 
+			   this is intended to be a more efficient mechanism for scrolling through 
+			   a record stream, to prevent having to send a message to the engine 
+			   for each record */
+
+		case blr_receive:
+			BLR_PUSH;
+			rse->rse_async_message = parse(tdbb, csb, STATEMENT);
+			break;
+#endif
+
+		default:
+			if (op == (UCHAR) blr_end) {
+				/* An outer join is only allowed when the stream count is 2
+				   and a boolean expression has been supplied */
+
+				if (!rse->rse_jointype ||
+					(rse->rse_count == 2 && rse->rse_boolean))
+						return (NOD) rse;
+			}
+			syntax_error(*csb, (rse_op == blr_rs_stream) ?
+						 "rse stream clause" :
+						 "record selection expression clause");
+		}
+}
+
+
+static NOD par_sort(TDBB tdbb, CSB * csb, BOOLEAN flag)
+{
+/**************************************
+ *
+ *	p a r _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a sort clause (sans header byte).  This is used for
+ *	BLR_SORT, BLR_PROJECT, and BLR_GROUP.
+ *
+ **************************************/
+	NOD clause, *ptr, *ptr2;
+	SSHORT count;
+
+	SET_TDBB(tdbb);
+
+	count = (unsigned int) BLR_BYTE;
+	clause = PAR_make_node(tdbb, count * 2);
+	clause->nod_type = nod_sort;
+	clause->nod_count = count;
+	ptr = clause->nod_arg;
+	ptr2 = ptr + count;
+
+	while (--count >= 0) {
+		if (flag)
+			*ptr2++ =
+				(NOD) (SLONG) ((BLR_BYTE == blr_descending) ? TRUE : FALSE);
+		*ptr++ = parse(tdbb, csb, VALUE);
+	}
+
+	return clause;
+}
+
+
+static NOD par_stream(TDBB tdbb, CSB * csb)
+{
+/**************************************
+ *
+ *	p a r _ s t r e a m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a stream expression.
+ *
+ **************************************/
+	register RSE rse;
+	UCHAR op;
+
+	SET_TDBB(tdbb);
+
+	rse = (RSE) PAR_make_node(tdbb, 1 + rse_delta + 2);
+	rse->nod_count = 0;
+	rse->rse_count = 1;
+	rse->rse_relation[0] = parse(tdbb, csb, RELATION);
+
+	while (TRUE)
+		switch (op = BLR_BYTE) {
+		case blr_boolean:
+			rse->rse_boolean = parse(tdbb, csb, BOOL);
+			break;
+
+		default:
+			if (op == (UCHAR) blr_end)
+				return (NOD) rse;
+			syntax_error(*csb, "stream_clause");
+		}
+}
+
+
+static NOD par_union(TDBB tdbb, CSB * csb)
+{
+/**************************************
+ *
+ *	p a r _ u n i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a union reference.
+ *
+ **************************************/
+	NOD node;
+	SSHORT count;
+	USHORT stream;
+	LLS clauses;
+
+	SET_TDBB(tdbb);
+
+/* Make the node, parse the context number, get a stream assigned,
+   and get the number of sub-rse's. */
+
+	node = PAR_make_node(tdbb, e_uni_length);
+	node->nod_count = 2;
+	stream = par_context(csb, 0);
+	node->nod_arg[e_uni_stream] = (NOD) (SLONG) stream;
+	count = (unsigned int) BLR_BYTE;
+
+/* Pick up the sub-rse's and maps */
+
+	clauses = NULL;
+
+	while (--count >= 0) {
+		LLS_PUSH(parse(tdbb, csb, TYPE_RSE), &clauses);
+		LLS_PUSH(par_map(tdbb, csb, stream), &clauses);
+	}
+
+	node->nod_arg[e_uni_clauses] = PAR_make_list(tdbb, clauses);
+
+	return node;
+}
+
+
+static USHORT par_word(CSB * csb)
+{
+/**************************************
+ *
+ *	p a r _ w o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a BLR word.
+ *
+ **************************************/
+	UCHAR low, high;
+
+	low = BLR_BYTE;
+	high = BLR_BYTE;
+
+	return high * 256 + low;
+}
+
+
+static NOD parse(TDBB tdbb, register CSB * csb, USHORT expected)
+{
+/**************************************
+ *
+ *	p a r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a BLR expression.
+ *
+ **************************************/
+	register NOD node, *arg;
+	SSHORT sub_type, operator_;
+	USHORT n;
+
+	SET_TDBB(tdbb);
+
+	operator_ = BLR_BYTE;
+
+	if (!
+		(operator_ >= 0
+		 && operator_ <
+		 sizeof(type_table) / sizeof(type_table[0]))) syntax_error(*csb,
+																   "Invalid BLR code");
+
+	sub_type = sub_type_table[operator_];
+
+	if (expected && expected != type_table[operator_])
+		syntax_error(*csb, elements[expected]);
+
+/* If there is a length given in the length table, pre-allocate
+   the node and set its count.  This saves an enormous amount of
+   repetitive code. */
+
+	if (n = length_table[operator_]) {
+		node = PAR_make_node(tdbb, n);
+		node->nod_count = count_table[operator_];
+		arg = node->nod_arg;
+	}
+	else {
+		node = NULL;
+		arg = NULL;
+	};
+
+/* Dispatch on operator type. */
+
+	switch (operator_) {
+	case blr_any:
+	case blr_unique:
+	case blr_ansi_any:
+	case blr_ansi_all:
+	case blr_exists:
+		node->nod_arg[e_any_rse] = parse(tdbb, csb, sub_type);
+		break;
+
+		/* Boring operators -- no special handling req'd */
+
+	case blr_value_if:
+	case blr_substring:
+	case blr_matching2:
+	case blr_ansi_like:
+		*arg++ = parse(tdbb, csb, sub_type);
+		*arg++ = parse(tdbb, csb, sub_type);
+		*arg++ = parse(tdbb, csb, sub_type);
+		break;
+
+	case blr_and:
+	case blr_or:
+
+	case blr_prot_mask:
+	case blr_containing:
+	case blr_matching:
+	case blr_like:
+	case blr_starting:
+	case blr_add:
+	case blr_subtract:
+	case blr_multiply:
+	case blr_divide:
+	case blr_add2:
+	case blr_subtract2:
+	case blr_multiply2:
+	case blr_divide2:
+	case blr_concatenate:
+
+	case blr_assignment:
+		*arg++ = parse(tdbb, csb, sub_type);
+		/* Fall into ... */
+
+	case blr_handler:
+	case blr_loop:
+
+#ifndef GATEWAY
+	case blr_lock_state:
+#endif
+	case blr_upcase:
+	case blr_negate:
+	case blr_not:
+	case blr_missing:
+	case blr_agg_count2:
+	case blr_agg_max:
+	case blr_agg_min:
+	case blr_agg_total:
+	case blr_agg_average:
+	case blr_agg_count_distinct:
+	case blr_agg_total_distinct:
+	case blr_agg_average_distinct:
+	case blr_agg_total2:
+	case blr_agg_average2:
+	case blr_agg_total_distinct2:
+	case blr_agg_average_distinct2:
+	case blr_post:
+		*arg++ = parse(tdbb, csb, sub_type);
+		break;
+
+	case blr_null:
+	case blr_agg_count:
+	case blr_user_name:
+	case blr_current_date:
+	case blr_current_time:
+	case blr_current_timestamp:
+	case blr_start_savepoint:
+	case blr_end_savepoint:
+		break;
+
+	case blr_store:
+	case blr_store2:
+		node->nod_arg[e_sto_relation] = parse(tdbb, csb, RELATION);
+		node->nod_arg[e_sto_statement] = parse(tdbb, csb, sub_type);
+		if (operator_ == blr_store2)
+			node->nod_arg[e_sto_statement2] = parse(tdbb, csb, sub_type);
+		break;
+
+		/* Comparison operators */
+
+	case blr_between:
+		*arg++ = parse(tdbb, csb, sub_type);
+
+	case blr_eql:
+	case blr_neq:
+	case blr_geq:
+	case blr_gtr:
+	case blr_leq:
+	case blr_lss:
+		*arg++ = parse(tdbb, csb, sub_type);
+		*arg++ = parse(tdbb, csb, sub_type);
+		node->nod_flags = nod_comparison;
+		break;
+
+	case blr_erase:
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		node->nod_arg[e_erase_stream] =
+			(NOD) (SLONG) (*csb)->csb_rpt[n].csb_stream;
+		break;
+
+	case blr_modify:
+		node = par_modify(tdbb, csb);
+		break;
+
+	case blr_exec_proc:
+	case blr_exec_pid:
+		node = par_exec_proc(tdbb, csb, operator_);
+		break;
+
+	case blr_pid:
+	case blr_procedure:
+		node = par_procedure(tdbb, csb, operator_);
+		break;
+
+	case blr_function:
+		node = par_function(tdbb, csb);
+		break;
+
+	case blr_index:
+#ifndef GATEWAY
+		node->nod_arg[0] = parse(tdbb, csb, sub_type);
+		node->nod_arg[1] = par_args(tdbb, csb, sub_type);
+#else
+		error(*csb, gds_wish_list,
+			  gds_arg_interpreted, "blr_index not supported", 0);
+#endif
+		break;
+
+	case blr_for:
+		if (BLR_PEEK == (UCHAR) blr_stall)
+			node->nod_arg[e_for_stall] = parse(tdbb, csb, STATEMENT);
+
+		if (BLR_PEEK == (UCHAR) blr_rse ||
+			BLR_PEEK == (UCHAR) blr_singular ||
+			BLR_PEEK == (UCHAR) blr_stream)
+				node->nod_arg[e_for_re] = parse(tdbb, csb, TYPE_RSE);
+		else
+			node->nod_arg[e_for_re] = par_rse(tdbb, csb, operator_);
+		node->nod_arg[e_for_statement] = parse(tdbb, csb, sub_type);
+		break;
+
+	case blr_rse:
+	case blr_rs_stream:
+		node = par_rse(tdbb, csb, operator_);
+		break;
+
+	case blr_singular:
+		node = parse(tdbb, csb, TYPE_RSE);
+		((RSE) node)->nod_flags |= rse_singular;
+		break;
+
+	case blr_relation:
+	case blr_rid:
+	case blr_relation2:
+	case blr_rid2:
+		node = par_relation(tdbb, csb, operator_, TRUE);
+		break;
+
+	case blr_union:
+		node = par_union(tdbb, csb);
+		break;
+
+	case blr_aggregate:
+		node->nod_arg[e_agg_stream] = (NOD) (SLONG) par_context(csb, 0);
+		node->nod_arg[e_agg_rse] = parse(tdbb, csb, TYPE_RSE);
+		node->nod_arg[e_agg_group] = parse(tdbb, csb, OTHER);
+		node->nod_arg[e_agg_map] =
+			par_map(tdbb, csb, (USHORT) node->nod_arg[e_agg_stream]);
+		break;
+
+	case blr_group_by:
+		node = par_sort(tdbb, csb, FALSE);
+		return (node->nod_count) ? node : NULL;
+
+	case blr_field:
+	case blr_fid:
+		node = par_field(tdbb, csb, operator_);
+		break;
+
+#ifndef GATEWAY
+	case blr_gen_id:
+	case blr_set_generator:
+	case blr_gen_id2:
+	case blr_set_generator2:
+		{
+			SLONG tmp;
+			TEXT name[32];
+
+			par_name(csb, name);
+			tmp = MET_lookup_generator(tdbb, name);
+			if (tmp < 0)
+				error(*csb, gds_gennotdef,
+					  gds_arg_string, ERR_cstring(name), 0);
+			node->nod_arg[e_gen_relation] = (NOD) tmp;
+			node->nod_arg[e_gen_value] = parse(tdbb, csb, VALUE);
+		}
+		break;
+#else
+	case blr_gen_id:
+		error(*csb, gds_wish_list,
+			  gds_arg_interpreted, "blr_gen_id not supported", 0);
+		break;
+	case blr_set_generator:
+		error(*csb, gds_wish_list,
+			  gds_arg_interpreted, "blr_set_generator not supported", 0);
+		break;
+#endif
+
+	case blr_record_version:
+	case blr_dbkey:
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		node->nod_arg[0] = (NOD) (SLONG) (*csb)->csb_rpt[n].csb_stream;
+		break;
+
+	case blr_fetch:
+		par_fetch(tdbb, csb, node);
+		break;
+
+	case blr_send:
+	case blr_receive:
+		n = BLR_BYTE;
+		node->nod_arg[e_send_message] = (*csb)->csb_rpt[n].csb_message;
+		node->nod_arg[e_send_statement] = parse(tdbb, csb, sub_type);
+		break;
+
+	case blr_message:
+		node = par_message(tdbb, csb);
+		break;
+
+	case blr_literal:
+		node = par_literal(tdbb, csb);
+		break;
+
+	case blr_cast:
+		node = par_cast(tdbb, csb);
+		break;
+
+	case blr_extract:
+		node->nod_arg[e_extract_part] = reinterpret_cast < nod * >(BLR_BYTE);
+		node->nod_arg[e_extract_value] = parse(tdbb, csb, sub_type);
+		node->nod_count = e_extract_count;
+		break;
+
+	case blr_dcl_variable:
+		{
+			VEC vector;
+
+			n = BLR_WORD;
+			node->nod_arg[e_dcl_id] = (NOD) (SLONG) n;
+			PAR_desc(csb, (DSC *) (node->nod_arg + e_dcl_desc));
+			vector =
+				ALL_vector(tdbb->tdbb_default, &(*csb)->csb_variables, n);
+			vector->vec_object[n] = (BLK) node;
+		}
+		break;
+
+	case blr_variable:
+		{
+			VEC vector;
+
+			n = BLR_WORD;
+			node->nod_arg[e_var_id] = (NOD) (SLONG) n;
+			if (!(vector = (*csb)->csb_variables) ||
+				n >= vector->vec_count ||
+				!(node->nod_arg[e_var_variable] =
+				  (NOD) vector->vec_object[n])) syntax_error(*csb,
+															 "variable identifier");
+		}
+		break;
+
+	case blr_parameter:
+	case blr_parameter2:
+	case blr_parameter3:
+		{
+			NOD message, temp;
+			FMT format;
+
+			n = (USHORT) BLR_BYTE;
+			if (n >= (*csb)->csb_count ||
+				!(message = (*csb)->csb_rpt[n].csb_message))
+					error(*csb, gds_badmsgnum, 0);
+			node->nod_arg[e_arg_message] = message;
+			n = BLR_WORD;
+			node->nod_arg[e_arg_number] = (NOD) (SLONG) n;
+			format = (FMT) message->nod_arg[e_msg_format];
+			if (n >= format->fmt_count)
+				error(*csb, gds_badparnum, 0);
+			if (operator_ != blr_parameter) {
+				node->nod_arg[e_arg_flag] = temp =
+					PAR_make_node(tdbb, e_arg_length);
+				node->nod_count = 1;
+				temp->nod_count = 0;
+				temp->nod_type = nod_argument;
+				temp->nod_arg[e_arg_message] = message;
+				n = BLR_WORD;
+				temp->nod_arg[e_arg_number] = (NOD) (SLONG) n;
+				if (n >= format->fmt_count)
+					error(*csb, gds_badparnum, 0);
+			}
+			if (operator_ == blr_parameter3) {
+				node->nod_arg[e_arg_indicator] = temp =
+					PAR_make_node(tdbb, e_arg_length);
+				node->nod_count = 2;
+				temp->nod_count = 0;
+				temp->nod_type = nod_argument;
+				temp->nod_arg[e_arg_message] = message;
+				n = BLR_WORD;
+				temp->nod_arg[e_arg_number] = (NOD) (SLONG) n;
+				if (n >= format->fmt_count)
+					error(*csb, gds_badparnum, 0);
+			}
+		}
+		break;
+
+	case blr_stall:
+		break;
+
+	case blr_select:
+	case blr_begin:
+		{
+			LLS stack = NULL;
+
+			while (BLR_PEEK != (UCHAR) blr_end) {
+				if (operator_ == blr_select && BLR_PEEK != blr_receive)
+					syntax_error(*csb, "blr_receive");
+				LLS_PUSH(parse(tdbb, csb, sub_type), &stack);
+			}
+			(void) BLR_BYTE;
+			node = PAR_make_list(tdbb, stack);
+		}
+		break;
+
+	case blr_block:
+		{
+			LLS stack = NULL;
+
+			node->nod_arg[e_blk_action] = parse(tdbb, csb, sub_type);
+			while (BLR_PEEK != (UCHAR) blr_end)
+				LLS_PUSH(parse(tdbb, csb, sub_type), &stack);
+			(void) BLR_BYTE;
+			node->nod_arg[e_blk_handlers] = PAR_make_list(tdbb, stack);
+		}
+		break;
+
+	case blr_error_handler:
+		node->nod_arg[e_err_conditions] = (NOD) par_conditions(tdbb, csb);
+		node->nod_arg[e_err_action] = parse(tdbb, csb, sub_type);
+		break;
+
+	case blr_abort:
+		node->nod_arg[0] = (NOD) par_condition(tdbb, csb);
+		break;
+
+	case blr_if:
+		node->nod_arg[e_if_boolean] = parse(tdbb, csb, BOOL);
+		node->nod_arg[e_if_true] = parse(tdbb, csb, sub_type);
+		if (BLR_PEEK == (UCHAR) blr_end) {
+			node->nod_count = 2;
+			(void) BLR_BYTE;
+			break;
+		}
+		node->nod_arg[e_if_false] = parse(tdbb, csb, sub_type);
+		break;
+
+	case blr_label:
+		node->nod_arg[e_lbl_label] = (NOD) (SLONG) BLR_BYTE;
+		node->nod_arg[e_lbl_statement] = parse(tdbb, csb, sub_type);
+		break;
+
+	case blr_leave:
+		node->nod_arg[0] = (NOD) (SLONG) BLR_BYTE;
+		break;
+
+#ifdef GATEWAY
+	case blr_lock_state:
+		error(*csb, gds_wish_list,
+			  gds_arg_interpreted, "blr_lock_state not supported", 0);
+		break;
+#endif
+
+	case blr_maximum:
+	case blr_minimum:
+	case blr_count:
+/* count2
+    case blr_count2:
+*/
+	case blr_average:
+	case blr_average2:
+	case blr_total:
+	case blr_from:
+	case blr_via:
+		if (BLR_PEEK == (UCHAR) blr_stream)
+			node->nod_arg[e_stat_rse] = parse(tdbb, csb, OTHER);
+		else
+			node->nod_arg[e_stat_rse] = parse(tdbb, csb, TYPE_RSE);
+		if (operator_ != blr_count)
+			node->nod_arg[e_stat_value] = parse(tdbb, csb, VALUE);
+		if (operator_ == blr_via)
+			node->nod_arg[e_stat_default] = parse(tdbb, csb, VALUE);
+		break;
+
+		/* Client/Server Express Features */
+
+	case blr_stream:
+#ifdef PROD_BUILD
+		error(*csb, isc_cse_not_supported, 0);
+#endif
+		node = par_stream(tdbb, csb);
+		break;
+
+#ifdef PC_ENGINE
+	case blr_set_index:
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		node->nod_arg[e_index_stream] =
+			(NOD) (SLONG) (*csb)->csb_rpt[n].csb_stream;
+		node->nod_arg[e_index_index] = parse(tdbb, csb, VALUE);
+		break;
+
+	case blr_find:
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		node->nod_arg[e_find_stream] =
+			(NOD) (SLONG) (*csb)->csb_rpt[n].csb_stream;
+		node->nod_arg[e_find_operator] = parse(tdbb, csb, VALUE);
+		node->nod_arg[e_find_direction] = parse(tdbb, csb, VALUE);
+		node->nod_arg[e_find_args] = par_args(tdbb, csb, VALUE);
+		break;
+
+	case blr_find_dbkey:
+	case blr_find_dbkey_version:
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		node->nod_arg[e_find_dbkey_stream] =
+			(NOD) (SLONG) (*csb)->csb_rpt[n].csb_stream;
+		node->nod_arg[e_find_dbkey_dbkey] = parse(tdbb, csb, VALUE);
+
+		if (operator_ == blr_find_dbkey_version)
+			node->nod_arg[e_find_dbkey_version] = parse(tdbb, csb, VALUE);
+		break;
+
+	case blr_get_bookmark:
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		node->nod_arg[e_getmark_stream] =
+			(NOD) (SLONG) (*csb)->csb_rpt[n].csb_stream;
+		break;
+
+	case blr_set_bookmark:
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		node->nod_arg[e_setmark_stream] =
+			(NOD) (SLONG) (*csb)->csb_rpt[n].csb_stream;
+		node->nod_arg[e_setmark_id] = parse(tdbb, csb, VALUE);
+		break;
+
+	case blr_release_bookmark:
+		node->nod_arg[e_relmark_id] = parse(tdbb, csb, VALUE);
+		break;
+
+	case blr_bookmark:
+		node->nod_arg[e_bookmark_id] = parse(tdbb, csb, VALUE);
+		break;
+
+	case blr_force_crack:
+	case blr_crack:
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		node->nod_arg[0] = (NOD) (SLONG) (*csb)->csb_rpt[n].csb_stream;
+		break;
+
+	case blr_reset_stream:
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		node->nod_arg[e_reset_from_stream] =
+			(NOD) (SLONG) (*csb)->csb_rpt[n].csb_stream;
+
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		node->nod_arg[e_reset_to_stream] =
+			(NOD) (SLONG) (*csb)->csb_rpt[n].csb_stream;
+		break;
+
+	case blr_release_lock:
+		node->nod_arg[e_rellock_lock] = parse(tdbb, csb, VALUE);
+		break;
+
+	case blr_lock_relation:
+		n = BLR_BYTE;
+		if (n != blr_relation && n != blr_relation2 &&
+			n != blr_rid && n != blr_rid2)
+				syntax_error(*csb, elements[RELATION]);
+		node->nod_arg[e_lockrel_relation] = par_relation(tdbb, csb, n, FALSE);
+		node->nod_arg[e_lockrel_level] = parse(tdbb, csb, VALUE);
+		break;
+
+	case blr_lock_record:
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		node->nod_arg[e_lockrec_stream] =
+			(NOD) (SLONG) (*csb)->csb_rpt[n].csb_stream;
+		node->nod_arg[e_lockrec_level] = parse(tdbb, csb, VALUE);
+		break;
+
+	case blr_begin_range:
+		node->nod_arg[e_brange_number] = parse(tdbb, csb, VALUE);
+		break;
+
+	case blr_end_range:
+		node->nod_arg[e_erange_number] = parse(tdbb, csb, VALUE);
+		break;
+
+	case blr_delete_range:
+		node->nod_arg[e_drange_number] = parse(tdbb, csb, VALUE);
+		break;
+
+	case blr_range_relation:
+		node->nod_arg[e_range_relation_number] = parse(tdbb, csb, VALUE);
+		n = BLR_BYTE;
+		if (n != blr_relation && n != blr_relation2 &&
+			n != blr_rid && n != blr_rid2)
+				syntax_error(*csb, elements[RELATION]);
+		node->nod_arg[e_range_relation_relation] =
+			par_relation(tdbb, csb, n, FALSE);
+		break;
+
+	case blr_release_locks:
+	case blr_delete_ranges:
+		node = PAR_make_node(tdbb, 0);
+		node->nod_count = 0;
+		break;
+
+	case blr_cardinality:
+		n = BLR_BYTE;
+		if (n >= (*csb)->csb_count)
+			error(*csb, gds_ctxnotdef, 0);
+		node->nod_arg[e_card_stream] =
+			(NOD) (SLONG) (*csb)->csb_rpt[n].csb_stream;
+		break;
+#endif
+
+#ifdef SCROLLABLE_CURSORS
+	case blr_seek:
+	case blr_seek_no_warn:
+		node->nod_arg[e_seek_direction] = parse(tdbb, csb, VALUE);
+		node->nod_arg[e_seek_offset] = parse(tdbb, csb, VALUE);
+		break;
+#endif
+
+	default:
+		syntax_error(*csb, elements[expected]);
+	}
+
+	if ((*csb)->csb_g_flags & csb_blr_version4)
+		node->nod_type = (NOD_T) (USHORT) blr_table4[(int) operator_];
+	else
+		node->nod_type = (NOD_T) (USHORT) blr_table[(int) operator_];
+
+	return node;
+}
+
+
+static void syntax_error(CSB csb, CONST TEXT * string)
+{
+/**************************************
+ *
+ *	s y n t a x _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post a syntax error message.
+ *
+ **************************************/
+
+	error(csb, gds_syntaxerr,
+		  gds_arg_string, string,
+		  gds_arg_number, (SLONG) (csb->csb_running - csb->csb_blr - 1),
+		  gds_arg_number, (SLONG) csb->csb_running[-1], 0);
+}
+
+
+static void warning(CSB csb, ...)
+{
+/**************************************
+ *
+ *	w a r n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      This is for GBAK so that we can pass warning messages
+ *      back to the client.  DO NOT USE this function until we
+ *      fully implement warning at the engine level.
+ *
+ *	We will use the status vector like a warning vector.  What
+ *	we are going to do is leave the [1] position of the vector 
+ *	as 0 so that this will not be treated as an error, and we
+ *	will place our warning message in the consecutive positions.
+ *	It will be up to the caller to check these positions for
+ *	the message.
+ *
+ **************************************/
+	TDBB tdbb;
+	STATUS *p;
+	int type;
+	va_list args;
+
+	tdbb = GET_THREAD_DATA;
+
+	VA_START(args, csb);
+
+	p = tdbb->tdbb_status_vector;
+
+/* Make sure that the [1] position is 0
+   indicating that no error has occured */
+
+	*p++ = gds_arg_gds;
+	*p++ = 0;
+
+/* Now place your warning messages starting
+   with position [2] */
+
+	*p++ = gds_arg_gds;
+	*p++ = va_arg(args, STATUS);
+
+/* Pick up remaining args */
+
+	while (*p++ = type = va_arg(args, int))
+		switch (type) {
+		case gds_arg_gds:
+			*p++ = (STATUS) va_arg(args, STATUS);
+			break;
+
+		case gds_arg_string:
+		case gds_arg_interpreted:
+			*p++ = (STATUS) va_arg(args, TEXT *);
+			break;
+
+		case gds_arg_cstring:
+			*p++ = (STATUS) va_arg(args, int);
+			*p++ = (STATUS) va_arg(args, TEXT *);
+			break;
+
+		case gds_arg_number:
+			*p++ = (STATUS) va_arg(args, SLONG);
+			break;
+
+		default:
+			assert(FALSE);
+		case gds_arg_vms:
+		case gds_arg_unix:
+		case gds_arg_win32:
+		case gds_arg_dos:
+		case gds_arg_netware:
+		case gds_arg_domain:
+		case gds_arg_mpexl:
+			*p++ = va_arg(args, int);
+			break;
+		}
+}
+
+
+} // extern "C"
diff --git a/src/jrd/par_proto.h b/src/jrd/par_proto.h
new file mode 100644
index 0000000000..b5e972a578
--- /dev/null
+++ b/src/jrd/par_proto.h
@@ -0,0 +1,45 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		par_proto.h
+ *	DESCRIPTION:	Prototype header file for par.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_PAR_PROTO_H_
+#define _JRD_PAR_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+struct nod *PAR_blr(TDBB, struct rel *, UCHAR *, struct csb *, struct csb **,
+					struct req **, BOOLEAN, USHORT);
+int PAR_desc(struct csb **, struct dsc *);
+struct nod *PAR_gen_field(TDBB, USHORT, USHORT);
+struct nod *PAR_make_field(TDBB, struct csb *, USHORT, TEXT *);
+struct nod *PAR_make_list(TDBB, struct lls *);
+struct nod *PAR_make_node(TDBB, int);
+struct csb *PAR_parse(TDBB, UCHAR *, USHORT);
+SLONG PAR_symbol_to_gdscode(SCHAR *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_PAR_PROTO_H_ */
diff --git a/src/jrd/pcmet.e b/src/jrd/pcmet.e
new file mode 100644
index 0000000000..c6b714ea8c
--- /dev/null
+++ b/src/jrd/pcmet.e
@@ -0,0 +1,284 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		pcmet.e
+ *	DESCRIPTION:	Meta data for PC_ENGINE
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/irq.h"
+#include "../jrd/tra.h"
+#include "../jrd/val.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../jrd/all.h"
+#include "../jrd/req.h"
+#include "../jrd/exe.h"
+#include "../jrd/met.h"
+#include "../jrd/lck.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dfw_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/idx_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pcmet_proto.h"
+#include "../jrd/thd_proto.h"
+
+DATABASE DB = FILENAME "ODS.RDB";
+
+
+#ifdef EXPRESSION_INDICES
+int PCMET_expression_index(
+						   TDBB tdbb, SSHORT phase, DFW work, TRA transaction)
+{
+/**************************************
+ *
+ *	P C M E T _ e x p r e s s i o n _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new expression index.
+ *
+ **************************************/
+	DBB dbb;
+	REL relation;
+	IDX idx;
+	float selectivity;
+	PLB default_pool, new_pool = NULL;
+	CSB csb;
+	REQ current_request;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	switch (phase) {
+	case 1:
+	case 2:
+		return TRUE;
+
+	case 3:
+		relation = NULL;
+		MOVE_CLEAR(&idx, sizeof(struct idx));
+
+		if (REQUEST(irq_c_exp_index))
+			EXE_unwind(tdbb, REQUEST(irq_c_exp_index));
+		FOR(REQUEST_HANDLE REQUEST(irq_c_exp_index))
+			IDX IN RDB$INDICES CROSS
+				REL IN RDB$RELATIONS OVER RDB$RELATION_NAME WITH
+				IDX.RDB$EXPRESSION_BLR NOT MISSING AND
+				IDX.RDB$INDEX_NAME EQ work->dfw_name 
+
+            if (!relation) {
+				relation = MET_relation(tdbb, REL.RDB$RELATION_ID);
+				if (!relation->rel_name) {
+					relation->rel_name =
+						MET_save_name(tdbb, REL.RDB$RELATION_NAME);
+					relation->rel_length = strlen(relation->rel_name);
+				} if (IDX.RDB$INDEX_ID && IDX.RDB$STATISTICS < 0.0) {
+					MODIFY IDX
+						IDX.RDB$STATISTICS =
+							IDX_statistics(tdbb, relation,
+										   IDX.RDB$INDEX_ID - 1);
+					END_MODIFY;
+					EXE_unwind(tdbb, REQUEST(irq_c_exp_index));
+					return FALSE;
+				}
+				if (IDX.RDB$INDEX_ID) {
+					IDX_delete_index(tdbb, relation, IDX.RDB$INDEX_ID - 1);
+					MET_delete_dependencies(tdbb, work->dfw_name,
+											obj_expression_index);
+					MODIFY IDX
+						IDX.RDB$INDEX_ID.NULL = TRUE;
+					END_MODIFY;
+				}
+				if (IDX.RDB$INDEX_INACTIVE) {
+					EXE_unwind(tdbb, REQUEST(irq_c_exp_index));
+					return FALSE;
+				}
+
+				if (IDX.RDB$SEGMENT_COUNT)
+					ERR_post(gds__no_meta_update,
+							 gds_arg_gds, gds__no_segments_err,
+							 gds_arg_string, ERR_cstring(work->dfw_name), 0);
+				/* Msg359: segments not allowed in expression index %s */
+				if (IDX.RDB$UNIQUE_FLAG)
+					idx.idx_flags |= idx_unique;
+				if (IDX.RDB$INDEX_TYPE == 1)
+					idx.idx_flags |= idx_descending;
+
+				/* allocate a new pool to contain the expression tree 
+				   for the expression index */
+
+				default_pool = tdbb->tdbb_default;
+				tdbb->tdbb_default = new_pool = ALL_pool();
+				MET_scan_relation(tdbb, relation);
+
+				if (!IDX.RDB$EXPRESSION_BLR.NULL)
+					idx.idx_expression = MET_get_dependencies(tdbb, relation,
+															  NULL_PTR,
+															  NULL_PTR,
+															  &IDX.
+															  RDB$EXPRESSION_BLR,
+															  &idx.
+															  idx_expression_request,
+															  &csb,
+															  IDX.
+															  RDB$INDEX_NAME,
+															  obj_expression_index);
+				tdbb->tdbb_default = default_pool;
+
+				/* fake a description of the index */
+
+				idx.idx_count = 1;
+				idx.idx_flags |= idx_expressn;
+				CMP_get_desc(tdbb, csb, idx.idx_expression,
+							 &idx.idx_expression_desc);
+				idx.idx_rpt[0].idx_itype =
+					DFW_assign_index_type(work,
+										  idx.idx_expression_desc.dsc_dtype,
+										  0);
+
+				ALL_release(csb);
+			}
+
+		END_FOR;
+
+		if (!relation)
+			ERR_post(gds__no_meta_update,
+					 gds_arg_gds, gds__idx_create_err,
+					 gds_arg_string, ERR_cstring(work->dfw_name), 0);
+		/* Msg308: can't create index %s */
+
+		/* Actually create the index */
+
+		current_request = tdbb->tdbb_request;
+		tdbb->tdbb_request = idx.idx_expression_request;
+		IDX_create_index(tdbb, relation, &idx, work->dfw_name, NULL_PTR,
+						 transaction, &selectivity);
+		tdbb->tdbb_request = current_request;
+
+		DFW_update_index(work, idx.idx_id, selectivity);
+
+		/* get rid of the pool containing the expression tree */
+
+		if (new_pool)
+			ALL_rlpool(new_pool);
+		break;
+	}
+
+	return FALSE;
+}
+#endif
+
+
+#ifdef EXPRESSION_INDICES
+void PCMET_lookup_index( REL relation, IDX * idx)
+{
+/**************************************
+ *
+ *	P C M E T _ l o o k u p _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup information about an index, in
+ *	the metadata cache if possible.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	CSB csb = NULL;
+	IDB index_block;
+	PLB old_pool;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* check the index blocks for the relation to see if we 
+   have a cached block */
+
+	for (index_block = relation->rel_index_blocks; index_block;
+		 index_block =
+		 index_block->idb_next) if (index_block->idb_id == idx->idx_id) break;
+
+	if (index_block && index_block->idb_expression) {
+		idx->idx_expression = index_block->idb_expression;
+		idx->idx_expression_request = index_block->idb_expression_request;
+		MOVE_FAST(&index_block->idb_expression_desc,
+				  &idx->idx_expression_desc, sizeof(struct dsc));
+		return;
+	}
+
+	FOR(REQUEST_HANDLE REQUEST(irq_l_exp_index))
+		IDX IN RDB$INDICES WITH
+			IDX.RDB$RELATION_NAME EQ relation->rel_name AND
+			IDX.RDB$INDEX_ID EQ idx->idx_id + 1
+
+        if (idx->idx_expression_request)
+				CMP_release(tdbb, idx->idx_expression_request);
+		idx->idx_expression_request = NULL;
+
+		/* parse the blr, making sure to create the resulting expression 
+		   tree and request in its own pool so that it may be cached
+		   with the index block in the "permanent" metadata cache */
+
+		old_pool = tdbb->tdbb_default;
+		tdbb->tdbb_default = ALL_pool();
+		idx->idx_expression =
+			MET_parse_blob(tdbb, relation, &IDX.RDB$EXPRESSION_BLR, &csb,
+						   &idx->idx_expression_request, FALSE, FALSE);
+		tdbb->tdbb_default = old_pool;
+
+	END_FOR;
+
+	if (csb) {
+		CMP_get_desc(tdbb, csb, idx->idx_expression,
+					 &idx->idx_expression_desc);
+		ALL_release(csb);
+	}
+
+/* if there is no existing index block for this index, create
+   one and link it in with the index blocks for this relation */
+
+	if (!index_block)
+		index_block = IDX_create_index_block(tdbb, relation, idx->idx_id);
+
+/* if we can't get the lock, no big deal: just give up on caching the index info */
+
+	if (!LCK_lock_non_blocking(tdbb, index_block->idb_lock, LCK_SR, FALSE))
+		return;
+
+/* whether the index block already existed or was just created,
+   fill in the cached information about the index */
+
+	index_block->idb_expression = idx->idx_expression;
+	index_block->idb_expression_request = idx->idx_expression_request;
+	MOVE_FAST(&idx->idx_expression_desc, &index_block->idb_expression_desc,
+			  sizeof(struct dsc));
+}
+#endif
diff --git a/src/jrd/pcmet_proto.h b/src/jrd/pcmet_proto.h
new file mode 100644
index 0000000000..34de9c25ef
--- /dev/null
+++ b/src/jrd/pcmet_proto.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		pcmet_proto.h
+ *	DESCRIPTION:	Prototype header file for pcmet.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_PCMET_PROTO_H_
+#define _JRD_PCMET_PROTO_H_
+
+extern int PCMET_expression_index(TDBB, SSHORT, struct dfw *, struct tra *);
+extern void PCMET_lookup_index(struct rel *, struct idx *);
+
+#endif /* _JRD_PCMET_PROTO_H_ */
diff --git a/src/jrd/pcsleep.cpp b/src/jrd/pcsleep.cpp
new file mode 100644
index 0000000000..2230821d16
--- /dev/null
+++ b/src/jrd/pcsleep.cpp
@@ -0,0 +1,70 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		pcsleep.c
+ *	DESCRIPTION:	Sleep function which suspends execution for interval
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+/*[]------------------------------------------------------------[]*/
+/*|                                                              |*/
+/*|     C/C++ Run Time Library - Version 4.0                     |*/
+/*|                                                              |*/
+/*|                                                              |*/
+/*|     Copyright (c) 1987, 1991 by Borland International        |*/
+/*|     All Rights Reserved.                                     |*/
+/*|                                                              |*/
+/*[]------------------------------------------------------------[]*/
+
+
+#include <dos.h>
+#include <time.h>
+
+/*---------------------------------------------------------------------*
+
+Name            sleep - suspends execution for interval
+
+Usage           unsigned sleep(unsigned seconds);
+
+Prototype in    dos.h
+
+Description     With a call to sleep, the current program is
+                suspended from execution for the number of seconds specified
+                by the argument seconds. The interval is only accurate to
+                the nearest hundredth of a second, or the accuracy of the
+                MS-DOS clock, whichever is less accurate.
+
+Return value    None
+
+*---------------------------------------------------------------------*/
+void sleep(unsigned seconds)
+{
+	struct tm *t;
+	time_t tt;
+	register int secs;
+
+	time(&tt);
+	t = localtime(&tt);
+	while (seconds--) {
+		secs = t->tm_sec;
+		do
+			time(&tt);
+		while (secs == t->tm_sec);
+	}
+}
diff --git a/src/jrd/perf.cpp b/src/jrd/perf.cpp
new file mode 100644
index 0000000000..d312003ef0
--- /dev/null
+++ b/src/jrd/perf.cpp
@@ -0,0 +1,414 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		perf.c
+ *	DESCRIPTION:	Performance monitoring routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <limits.h>
+#include "../jrd/time.h"
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/perf.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/perf_proto.h"
+#include "../jrd/gdsassert.h"
+
+#ifdef DELTA
+#include <sys/param.h>
+#endif
+
+#ifdef NETWARE_386
+#define NO_TIMES
+#define TIMEZONE	timezon
+#include <sys/timeb.h>
+#undef timeszone
+
+#else
+#if (defined WIN_NT || defined PC_PLATFORM)
+#include <sys/timeb.h>
+#define NO_TIMES
+#define NO_GETTIMEOFDAY
+#endif
+#endif /* NETWARE_386 */
+
+
+extern "C" {
+
+
+static SLONG get_parameter(SCHAR **);
+#ifdef NO_TIMES
+static void times(struct tms *);
+#endif
+
+static SCHAR items[] = { isc_info_reads, isc_info_writes, isc_info_fetches,
+	isc_info_marks,
+	isc_info_page_size, isc_info_num_buffers,
+	isc_info_current_memory, isc_info_max_memory
+};
+
+static SCHAR *report =
+	"elapsed = !e cpu = !u reads = !r writes = !w fetches = !f marks = !m$";
+
+#ifdef VMS
+#define NO_GETTIMEOFDAY
+#define TICK	100
+extern void ftime();
+#endif
+
+#if defined(WIN_NT)
+#define TICK	100
+#endif
+
+#ifndef TICK
+#define TICK	CLK_TCK
+#endif
+
+#ifdef SHLIB_DEFS
+#ifdef IMP
+typedef SLONG clock_t;
+#endif
+#define times		(*_libgds_times)
+
+extern clock_t times();
+#endif
+
+
+API_ROUTINE perf_format(
+						PERF * before,
+						PERF * after,
+						SCHAR * string, SCHAR * buffer, SSHORT * buf_len)
+{
+/**************************************
+ *
+ *	P E R F _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format a buffer with statistical stuff under control of formatting
+ *	string.  Substitute in appropriate stuff.  Return the length of the
+ *	formatting output.
+ *
+ **************************************/
+	SLONG delta, buffer_length, length;
+	SCHAR *p, c;
+
+	buffer_length = (buf_len) ? *buf_len : 0;
+	p = buffer;
+
+	while ((c = *string++) && c != '$')
+		if (c != '!')
+			*p++ = c;
+		else {
+			switch (c = *string++) {
+			case 'r':
+				delta = after->perf_reads - before->perf_reads;
+				break;
+			case 'w':
+				delta = after->perf_writes - before->perf_writes;
+				break;
+			case 'f':
+				delta = after->perf_fetches - before->perf_fetches;
+				break;
+			case 'm':
+				delta = after->perf_marks - before->perf_marks;
+				break;
+			case 'd':
+				delta =
+					after->perf_current_memory - before->perf_current_memory;
+				break;
+			case 'p':
+				delta = after->perf_page_size;
+				break;
+			case 'b':
+				delta = after->perf_buffers;
+				break;
+			case 'c':
+				delta = after->perf_current_memory;
+				break;
+			case 'x':
+				delta = after->perf_max_memory;
+				break;
+			case 'e':
+				delta = after->perf_elapsed - before->perf_elapsed;
+				break;
+			case 'u':
+				delta = after->perf_times.tms_utime -
+					before->perf_times.tms_utime;
+				break;
+			case 's':
+				delta = after->perf_times.tms_stime -
+					before->perf_times.tms_stime;
+				break;
+			default:
+				sprintf(p, "?%c?", c);
+				while (*p)
+					p++;
+			}
+			switch (c) {
+			case 'r':
+			case 'w':
+			case 'f':
+			case 'm':
+			case 'd':
+			case 'p':
+			case 'b':
+			case 'c':
+			case 'x':
+#ifdef PC_PLATFORM
+				sprintf(p, "%ld", delta);
+#else
+				sprintf(p, "%d", delta);
+#endif
+				while (*p)
+					p++;
+				break;
+
+			case 'u':
+			case 's':
+#ifdef VMS
+				sprintf(p, "%d.%.2d", delta / 100, (delta % 100));
+#else
+#ifdef PC_PLATFORM
+				sprintf(p, "%ld.%.2ld", (SLONG) (delta / (SLONG) TICK),
+						(SLONG) (((delta % (SLONG) TICK) * 100L) /
+								 (SLONG) TICK));
+#else
+				sprintf(p, "%d.%.2d", delta / TICK,
+						(delta % TICK) * 100 / TICK);
+#endif
+#endif
+				while (*p)
+					p++;
+				break;
+
+			case 'e':
+#ifdef PC_PLATFORM
+				sprintf(p, "%ld.%.2ld", (SLONG) (delta / 100L),
+						(SLONG) (delta % 100L));
+#else
+				sprintf(p, "%d.%.2d", delta / 100, delta % 100);
+#endif
+				while (*p)
+					p++;
+				break;
+			}
+		}
+
+	*p = 0;
+	length = p - buffer;
+	if (buffer_length && (buffer_length -= length) >= 0)
+		do
+			*p++ = ' ';
+		while (--buffer_length);
+
+	return length;
+}
+
+
+void API_ROUTINE perf_get_info(int **handle, PERF * perf)
+{
+/**************************************
+ *
+ *	P E R F _ g e t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Acquire timing and performance information.  Some info comes
+ *	from the system and some from the database.
+ *
+ **************************************/
+	SCHAR *p, buffer[256];
+	SSHORT l, buffer_length, item_length;
+	STATUS jrd_status[20];
+#ifdef NO_GETTIMEOFDAY
+	struct timeb time_buffer;
+#define LARGE_NUMBER 696600000	/* to avoid overflow, get rid of decades) */
+#else
+	struct timeval tp;
+#endif
+
+/* If there isn't a database, zero everything out */
+
+	if (!*handle) {
+		p = (SCHAR *) perf;
+		l = sizeof(PERF);
+		do
+			*p++ = 0;
+		while (--l);
+	}
+
+/* Get system times */
+
+	times(&perf->perf_times);
+
+#ifdef NO_GETTIMEOFDAY
+	ftime(&time_buffer);
+	perf->perf_elapsed =
+		(time_buffer.time - LARGE_NUMBER) * 100 + (time_buffer.millitm / 10);
+
+#else
+#ifdef	M88K
+	gettimeofday(&tp);
+#else
+	gettimeofday(&tp, 0L);
+#endif /* M88K */
+
+	perf->perf_elapsed = tp.tv_sec * 100 + tp.tv_usec / 10000;
+
+#endif /* NO_GETTIMEOFDAY */
+
+	if (!*handle)
+		return;
+
+	buffer_length = sizeof(buffer);
+	item_length = sizeof(items);
+#pragma FB_COMPILER_MESSAGE("Fix. Bad cast.")
+	isc_database_info(jrd_status,
+					  reinterpret_cast < void **>(handle),
+					  item_length, items, buffer_length, buffer);
+
+	p = buffer;
+
+	while (1)
+		switch (*p++) {
+		case isc_info_reads:
+			perf->perf_reads = get_parameter(&p);
+			break;
+
+		case isc_info_writes:
+			perf->perf_writes = get_parameter(&p);
+			break;
+
+		case isc_info_marks:
+			perf->perf_marks = get_parameter(&p);
+			break;
+
+		case isc_info_fetches:
+			perf->perf_fetches = get_parameter(&p);
+			break;
+
+		case isc_info_num_buffers:
+			perf->perf_buffers = get_parameter(&p);
+			break;
+
+		case isc_info_page_size:
+			perf->perf_page_size = get_parameter(&p);
+			break;
+
+		case isc_info_current_memory:
+			perf->perf_current_memory = get_parameter(&p);
+			break;
+
+		case isc_info_max_memory:
+			perf->perf_max_memory = get_parameter(&p);
+			break;
+
+		case isc_info_end:
+			return;
+
+		case isc_info_error:
+			if (p[2] == isc_info_marks)
+				perf->perf_marks = 0;
+			else if (p[2] == isc_info_current_memory)
+				perf->perf_current_memory = 0;
+			else if (p[2] == isc_info_max_memory)
+				perf->perf_max_memory = 0;
+			{
+				SLONG temp = isc_vax_integer(p, 2);
+				assert(temp <= MAX_SSHORT);
+				l = (SSHORT) temp;
+			}
+			p += l + 2;
+			perf->perf_marks = 0;
+			break;
+
+		default:
+			return;
+		}
+}
+
+
+void API_ROUTINE perf_report(
+							 PERF * before,
+							 PERF * after, SCHAR * buffer, SSHORT * buf_len)
+{
+/**************************************
+ *
+ *	p e r f _ r e p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report a common set of parameters.
+ *
+ **************************************/
+
+	perf_format(before, after, report, buffer, buf_len);
+}
+
+
+static SLONG get_parameter(SCHAR ** ptr)
+{
+/**************************************
+ *
+ *	g e t _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a parameter (length is encoded), convert to internal form,
+ *	and return.
+ *
+ **************************************/
+	SLONG parameter;
+	SSHORT l;
+
+	l = *(*ptr)++;
+	l += (*(*ptr)++) << 8;
+	parameter = isc_vax_integer(*ptr, l);
+	*ptr += l;
+
+	return parameter;
+}
+
+
+#ifdef NO_TIMES
+static void times(struct tms *buffer)
+{
+/**************************************
+ *
+ *	t i m e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Emulate the good old unix call "times".  Only both with user time.
+ *
+ **************************************/
+
+	buffer->tms_utime = clock();
+}
+#endif
+
+
+} // extern "C"
diff --git a/src/jrd/perf.h b/src/jrd/perf.h
new file mode 100644
index 0000000000..1687a326c6
--- /dev/null
+++ b/src/jrd/perf.h
@@ -0,0 +1,121 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		perf.h
+ *	DESCRIPTION:	Peformance tool block
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_PERF_H
+#define JRD_PERF_H
+
+#ifdef VMS
+#define NOTIME
+#endif
+#if (defined (_MSC_VER) && defined (WIN32)) || (defined (__BORLANDC__) && defined (__WIN32__))
+#define NOTIME
+#endif
+#if defined (NETWARE_386) || defined (PC_PLATFORM)
+#define NOTIME
+#endif
+#if defined (__OS2__)
+#define NOTIME
+#endif
+
+#ifdef LINUX
+#include <libio.h>
+#endif
+
+#ifndef NOTIME
+#include <sys/types.h>
+#include <sys/times.h>
+#else
+#ifdef VMS
+#include <types.h>
+#else
+#include <sys/types.h>
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/*
+ * Structure returned by times()
+ */
+struct tms {
+	time_t tms_utime;			/* user time */
+	time_t tms_stime;			/* system time */
+	time_t tms_cutime;			/* user time, children */
+	time_t tms_cstime;			/* system time, children */
+};
+
+#ifdef NETWARE_386
+#undef NULL
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+#include <sys/time.h>
+#ifdef __cplusplus
+extern "C" {
+#endif
+struct timezon {
+	int tz_minuteswest;
+	int tz_dsttime;
+};
+#endif
+
+#endif
+
+typedef struct perf {
+	long perf_fetches;
+	long perf_marks;
+	long perf_reads;
+	long perf_writes;
+	long perf_current_memory;
+	long perf_max_memory;
+	long perf_buffers;
+	long perf_page_size;
+	long perf_elapsed;
+	struct tms perf_times;
+} PERF;
+
+/* Letter codes controlling printing of statistics:
+
+	!f - fetches
+	!m - marks
+	!r - reads
+	!w - writes
+	!e - elapsed time (in seconds)
+	!u - user times
+	!s - system time
+	!p - page size
+	!b - number buffers
+	!d - delta memory
+	!c - current memory
+	!x - max memory
+
+*/
+
+#include "../jrd/perf_proto.h"
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_PERF_H */
diff --git a/src/jrd/perf.pas b/src/jrd/perf.pas
new file mode 100644
index 0000000000..8036f54692
--- /dev/null
+++ b/src/jrd/perf.pas
@@ -0,0 +1,87 @@
+(*******************************************************************)
+(*                                                                 *)
+(* The contents of this file are subject to the Interbase Public   *)
+(* License Version 1.0 (the "License"); you may not use this file  *)
+(* except in compliance with the License. You may obtain a copy    *)
+(* of the License at http://www.Inprise.com/IPL.html                 *)
+(*                                                                 *)
+(* Software distributed under the License is distributed on an     *)
+(* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express     *)
+(* or implied. See the License for the specific language governing *)
+(* rights and limitations under the License.                       *)
+(*                                                                 *)
+(* The Original Code was created by Inprise Corporation *)
+(* and its predecessors. Portions created by Inprise Corporation are     *)
+(* Copyright (C) Inprise Corporation. *)
+(*                                                                 *)
+(* All Rights Reserved.                                            *)
+(* Contributor(s): ______________________________________.         *)
+(*******************************************************************)
+
+(*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		perf.pas
+ *	DESCRIPTION:	Peformance tool block
+ *)
+
+type
+    tms = record
+	tms_utime		: integer32;
+	tms_stime		: integer32;
+	tms_cutime		: integer32;
+	tms_cstime		: integer32;
+    end;
+    perf = record
+	perf_fetches		: integer32;
+	perf_marks		: integer32;
+	perf_reads		: integer32;
+	perf_writes		: integer32;
+	perf_current_memory	: integer32;
+	perf_max_memory		: integer32;
+	perf_buffers		: integer32;
+	perf_page_size		: integer32;
+	perf_elapsed		: integer32;
+	perf_times		: tms;
+    end;
+
+(* Letter codes controlling printting of statistics:
+
+	!f - fetches
+	!m - marks
+	!r - reads
+	!w - writes
+	!e - elapsed time (in seconds)
+	!u - user times
+	!s - system time
+	!p - page size
+	!b - number buffers
+	!d - delta memory
+	!c - current memory
+	!x - max memory
+
+*)
+
+(* Entry point definitions *)
+
+procedure perf_get_info (
+	in 	handle	: gds__handle; 
+	out	block	: perf
+	); extern;
+
+procedure perf_format (
+	in	before	: perf;
+	in	after	: perf;
+	in	control	: UNIV string;
+	in{out}	buffer	: UNIV string;
+	in	buf_len	: integer
+	); extern;
+
+procedure perf_report (
+	in	before	: perf;
+	in	after	: perf;
+	in{out}	buffer	: UNIV string;
+	in	buf_len	: integer
+	); extern;
+
+
+
diff --git a/src/jrd/perf_proto.h b/src/jrd/perf_proto.h
new file mode 100644
index 0000000000..a238219e69
--- /dev/null
+++ b/src/jrd/perf_proto.h
@@ -0,0 +1,41 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		perf_proto.h
+ *	DESCRIPTION:	Prototype header file for perf.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_PERF_PROTO_H_
+#define _JRD_PERF_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int API_ROUTINE perf_format(struct perf *, struct perf *, SCHAR *,
+								   SCHAR *, SSHORT *);
+extern void API_ROUTINE perf_get_info(int **, struct perf *);
+extern void API_ROUTINE perf_report(struct perf *, struct perf *, SCHAR *,
+									SSHORT *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_PERF_PROTO_H_ */
diff --git a/src/jrd/pio.h b/src/jrd/pio.h
new file mode 100644
index 0000000000..850897a9dd
--- /dev/null
+++ b/src/jrd/pio.h
@@ -0,0 +1,170 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		pio.h
+ *	DESCRIPTION:	File system interface definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_PIO_H_
+#define _JRD_PIO_H_
+
+#ifdef UNIX
+
+typedef struct fil {
+	struct blk fil_header;
+	struct fil *fil_next;		/* Next file in database */
+	ULONG fil_min_page;			/* Minimum page number in file */
+	ULONG fil_max_page;			/* Maximum page number in file */
+	USHORT fil_sequence;		/* Sequence number of file */
+	USHORT fil_fudge;			/* Fudge factor for page relocation */
+	struct plc *fil_connect;	/* Connection to page server */
+	int fil_desc;
+	int *fil_trace;				/* Trace file, if any */
+	MUTX_T fil_mutex[1];
+	USHORT fil_length;			/* Length of expanded file name */
+	SCHAR fil_string[1];		/* Expanded file name */
+} *FIL;
+
+#endif
+
+
+#ifdef VMS
+
+typedef struct fil {
+	struct blk fil_header;
+	struct fil *fil_next;		/* Next file in database */
+	ULONG fil_min_page;			/* Minimum page number in file */
+	ULONG fil_max_page;			/* Maximum page number in file */
+	USHORT fil_sequence;		/* Sequence number of file */
+	USHORT fil_fudge;			/* Fudge factor for page relocation */
+	struct plc *fil_connect;	/* Connection to page server */
+	int fil_desc;
+	int fil_trace;				/* Trace file, if any */
+	MUTX_T fil_mutex[1];
+	USHORT fil_length;			/* Length of expanded file name */
+	USHORT fil_fid[3];			/* File id */
+	USHORT fil_did[3];			/* Directory id */
+	SCHAR fil_string[1];		/* Expanded file name */
+} *FIL;
+
+#endif
+
+#if (defined PC_PLATFORM) && !(defined NETWARE_386)
+
+typedef struct fil {
+	struct blk fil_header;
+	struct fil *fil_next;		/* Next file in database */
+	ULONG fil_min_page;			/* Minimum page number in file */
+	ULONG fil_max_page;			/* Maximum page number in file */
+	USHORT fil_sequence;		/* Sequence number of file */
+	USHORT fil_fudge;			/* Fudge factor for page relocation */
+	struct plc *fil_connect;	/* Connection to page server */
+	int fil_desc;
+	int *fil_trace;				/* Trace file, if any */
+	MUTX_T fil_mutex[1];
+	USHORT fil_length;			/* Length of expanded file name */
+	SCHAR fil_string[1];		/* Expanded file name */
+} *FIL;
+
+#endif
+
+
+#ifdef NETWARE_386
+
+typedef struct fil {
+	struct blk fil_header;
+	struct fil *fil_next;		/* Next file in database */
+	ULONG fil_min_page;			/* Minimum page number in file */
+	ULONG fil_max_page;			/* Maximum page number in file */
+	USHORT fil_sequence;		/* Sequence number of file */
+	USHORT fil_fudge;			/* Fudge factor for page relocation */
+	struct plc *fil_connect;	/* Connection to page server */
+	int fil_desc;
+	FPTR_INT fil_stream;		/* Represents a stream handle */
+	int *fil_trace;				/* Trace file, if any */
+	MUTX_T fil_mutex[1];
+	USHORT fil_length;			/* Length of expanded file name */
+	SCHAR fil_string[1];		/* Expanded file name */
+	int dfs_position;
+	int dfs_size;
+	int dfs_block_size;
+	int dfs_last_block;
+	int dfs_volume;
+	SCHAR *dfs_buffer;
+} *FIL;
+
+#endif
+
+#ifdef WIN_NT
+#ifdef SUPERSERVER_V2
+#define MAX_FILE_IO	32			/* Maximum "allocated" overlapped I/O events */
+#endif
+
+typedef struct fil {
+	struct blk fil_header;
+	struct fil *fil_next;		/* Next file in database */
+	ULONG fil_min_page;			/* Minimum page number in file */
+	ULONG fil_max_page;			/* Maximum page number in file */
+	USHORT fil_sequence;		/* Sequence number of file */
+	USHORT fil_fudge;			/* Fudge factor for page relocation */
+	struct plc *fil_connect;	/* Connection to page server */
+	SLONG fil_desc;
+	SLONG fil_force_write_desc;	/* Handle of force write open */
+	int *fil_trace;				/* Trace file, if any */
+	MUTX_T fil_mutex[1];
+#ifdef SUPERSERVER_V2
+	SLONG fil_io_events[MAX_FILE_IO];	/* Overlapped I/O events */
+#endif
+	USHORT fil_flags;
+	USHORT fil_length;			/* Length of expanded file name */
+	SCHAR fil_string[1];		/* Expanded file name */
+} *FIL;
+
+#endif
+
+
+#define FIL_force_write		1
+#define FIL_force_write_init	2
+
+/* Physical IO trace events */
+
+#define trace_create	1
+#define trace_open	2
+#define trace_page_size	3
+#define trace_read	4
+#define trace_write	5
+#define trace_close	6
+
+/* Physical I/O status block */
+
+typedef struct piob {
+	FIL piob_file;				/* File being read/written */
+	SLONG piob_desc;			/* File descriptor */
+	SLONG piob_io_length;		/* Requested I/O transfer length */
+	SLONG piob_actual_length;	/* Actual I/O transfer length */
+	USHORT piob_wait;			/* Async or synchronous wait */
+	UCHAR piob_flags;
+	SLONG piob_io_event[8];		/* Event to signal I/O completion */
+} *PIOB;
+
+#define	PIOB_error	1			/* I/O error occurred */
+#define PIOB_success	2		/* I/O successfully completed */
+#define PIOB_pending	4		/* Asynchronous I/O not yet completed */
+
+#endif /* _JRD_PIO_H_ */
diff --git a/src/jrd/pio_proto.h b/src/jrd/pio_proto.h
new file mode 100644
index 0000000000..1e99d9005a
--- /dev/null
+++ b/src/jrd/pio_proto.h
@@ -0,0 +1,58 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		pio_proto.h
+ *	DESCRIPTION:	Prototype header file for pio.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_PIO_PROTO_H_
+#define _JRD_PIO_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int PIO_add_file(struct dbb *, struct fil *, TEXT *, SLONG);
+extern void PIO_close(struct fil *);
+extern struct fil *PIO_create(struct dbb *, TEXT *, SSHORT, BOOLEAN);
+extern int PIO_connection(TEXT *, USHORT *);
+extern int PIO_expand(TEXT *, USHORT, TEXT *);
+extern void PIO_flush(struct fil *);
+extern void PIO_force_write(struct fil *, USHORT);
+extern void PIO_header(struct dbb *, SCHAR *, int);
+extern SLONG PIO_max_alloc(struct dbb *);
+extern SLONG PIO_act_alloc(struct dbb *);
+extern struct fil *PIO_open(struct dbb *, TEXT *, SSHORT, SSHORT,
+							struct blk *, TEXT *, USHORT);
+extern int PIO_read(struct fil *, struct bdb *, struct pag *, STATUS *);
+
+#ifdef SUPERSERVER_V2
+extern int PIO_read_ahead(struct dbb *, SLONG, SCHAR *, SLONG, struct piob *,
+						  STATUS *);
+extern int PIO_status(struct piob *, STATUS *);
+#endif
+
+extern int PIO_unlink(TEXT *);
+extern int PIO_write(struct fil *, struct bdb *, struct pag *, STATUS *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_PIO_PROTO_H_ */
diff --git a/src/jrd/pragma.h b/src/jrd/pragma.h
new file mode 100644
index 0000000000..1148242db0
--- /dev/null
+++ b/src/jrd/pragma.h
@@ -0,0 +1,31 @@
+/*
+ *	PROGRAM:	JRD access method
+ *	MODULE:		pragma.h
+ *	DESCRIPTION:	Pragma compiler directives
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_PRAGMA_H_
+#define _JRD_PRAGMA_H_
+
+#ifdef hpux
+#pragma OPT_LEVEL 1
+#endif
+
+#endif /* _JRD_PRAGMA_H_ */
diff --git a/src/jrd/print.cpp b/src/jrd/print.cpp
new file mode 100644
index 0000000000..fb007200f4
--- /dev/null
+++ b/src/jrd/print.cpp
@@ -0,0 +1,304 @@
+/*
+ *	PROGRAM:	Event manager
+ *	MODULE:		print.c
+ *	DESCRIPTION:	Global region print utility
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include "../jrd/event.h"
+#include "../jrd/event_proto.h"
+#include "../jrd/gds_proto.h"
+#include <assert.h>
+
+static void prt_que(UCHAR *, SRQ *);
+static void event_list(void);
+static void event_dump_list(void);
+
+static EVH EVENT_header = NULL;
+
+
+int main(int argc, char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	This is a simple utility program to print out the current
+ *	contents of the InterBase event table file.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	if (!(EVENT_header = EVENT_init(status_vector, TRUE))) {
+		ib_fprintf(ib_stderr, "Can't access global event region\n");
+		isc_print_status(status_vector);
+		return 1;
+	}
+
+	if ((argc == 2) && (strncmp(argv[1], "-d", 2) == 0))
+		event_table_dump();
+	else if (argc == 1)
+		event_list();
+	else
+		ib_fprintf(ib_stderr, "usage: eventprint [-dump]\n");
+
+	return 0;
+}
+
+
+static void event_list(void)
+{
+/**************************************
+ *
+ *	e v e n t _ l i s t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	List active events in the event table.
+ *	This format is more readable for humans.
+ *
+ **************************************/
+	SRQ *que;
+	EVNT event;
+	SRQ *database_que;
+	EVNT database_event;
+
+	QUE_LOOP(EVENT_header->evh_events, database_que) {
+		UCHAR *p;
+		ULONG l;
+
+		database_event =
+			(EVNT) ((UCHAR *) database_que - OFFSET(EVNT, evnt_events));
+
+		/* Skip non-database entries */
+
+		if (database_event->evnt_parent)
+			continue;
+
+		/* Print out the magic name for the database, this name 
+		   comes from the lock key_id for the database, on Unix
+		   this is comprised of the device number and inode */
+
+		ib_printf("Database: ");
+		p = (UCHAR *) database_event->evnt_name;
+		l = database_event->evnt_length;
+		while (l--)
+			ib_printf("%02x", *p++);
+		ib_printf(" count: %6ld\n", database_event->evnt_count);
+
+		{
+			RINT interest;
+			SRQ *interest_que;
+			/* Print out the interest list for this event */
+
+			QUE_LOOP(database_event->evnt_interests, interest_que) {
+				interest =
+					(RINT) ((UCHAR *) interest_que -
+							OFFSET(RINT, rint_interests));
+				if (!interest->rint_request)
+					ib_printf("(0)");
+				else {
+					REQ request;
+					PRB process;
+
+					request = (REQ) ABS_PTR(interest->rint_request);
+					process = (PRB) ABS_PTR(request->req_process);
+					ib_printf("%6d ", process->prb_process_id);
+				}
+			}
+		}
+
+		/* Print out each event belonging to this database */
+
+		QUE_LOOP(EVENT_header->evh_events, que) {
+
+			event = (EVNT) ((UCHAR *) que - OFFSET(EVNT, evnt_events));
+			assert(event->evnt_header.hdr_type == type_evnt);
+			if (event->evnt_parent != REL_PTR(database_event))
+				continue;
+			ib_printf("    \"%-15s\" count: %6ld Interest",
+					  event->evnt_name, event->evnt_count);
+
+			{
+				RINT interest;
+				SRQ *interest_que;
+				/* Print out the interest list for this event */
+
+				QUE_LOOP(event->evnt_interests, interest_que) {
+					interest =
+						(RINT) ((UCHAR *) interest_que -
+								OFFSET(RINT, rint_interests));
+					if (!interest->rint_request)
+						ib_printf("(0)");
+					else {
+						REQ request;
+						PRB process;
+
+						request = (REQ) ABS_PTR(interest->rint_request);
+						process = (PRB) ABS_PTR(request->req_process);
+						ib_printf("%6d ", process->prb_process_id);
+					}
+				}
+			}
+			ib_printf("\n");
+		}
+	}
+}
+
+
+static void event_table_dump(void)
+{
+/**************************************
+ *
+ *	e v e n t _ t a b l e _ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump the contents of the event table.
+ *	This format exactly matches what's in the event table and
+ *	is not very readable by humans.
+ *
+ **************************************/
+	SRQ *que;
+	HDR *block;
+	PRB process;
+	FRB free;
+	EVNT event, parent;
+	REQ request;
+	SES session;
+	RINT interest;
+	SLONG offset;
+
+	ib_printf("%.5d GLOBAL REGION HEADER\n", 0);
+	ib_printf
+		("\tLength: %ld, version: %d, free: %ld, current: %ld, request_id: %ld\n",
+		 EVENT_header->evh_length, EVENT_header->evh_version,
+		 EVENT_header->evh_free, EVENT_header->evh_current_process,
+		 EVENT_header->evh_request_id);
+
+	prt_que("\tProcesses", &EVENT_header->evh_processes);
+	prt_que("\tEvents", &EVENT_header->evh_events);
+
+	for (offset = sizeof(struct evh); offset < EVENT_header->evh_length;
+		 offset += block->hdr_length) {
+		ib_printf("\n%.5ld ", offset);
+		block = (HDR *) ABS_PTR(offset);
+		switch (block->hdr_type) {
+		case type_prb:
+			ib_printf("PROCESS_BLOCK (%ld)\n", block->hdr_length);
+			process = (PRB) block;
+			ib_printf("\tFlags: %d, pid: %d\n",
+					  process->prb_flags, process->prb_process_id);
+			prt_que("\tProcesses", &process->prb_processes);
+			prt_que("\tSessions", &process->prb_sessions);
+			break;
+
+		case type_frb:
+			ib_printf("FREE BLOCK (%ld)\n", block->hdr_length);
+			free = (FRB) block;
+			ib_printf("\tNext: %ld\n", free->frb_next);
+			break;
+
+		case type_req:
+			ib_printf("REQ (%ld)\n", block->hdr_length);
+			request = (REQ) block;
+			ib_printf("\tProcess: %ld, interests: %ld, ast: %lx, arg: %lx\n",
+					  request->req_process, request->req_interests,
+					  request->req_ast, request->req_ast_arg);
+			ib_printf("\tRequest id: %ld\n", request->req_request_id);
+			prt_que("\tRequests", &request->req_requests);
+			break;
+
+		case type_evnt:
+			ib_printf("EVENT (%ld)\n", block->hdr_length);
+			event = (EVNT) block;
+			ib_printf("\t\"%s\", count: %ld, parent: %ld\n",
+					  event->evnt_name, event->evnt_count,
+					  event->evnt_parent);
+			prt_que("\tInterests", &event->evnt_interests);
+			prt_que("\tEvents", &event->evnt_events);
+			break;
+
+		case type_ses:
+			ib_printf("SESSION (%ld)\n", block->hdr_length);
+			session = (SES) block;
+			ib_printf("\tInterests: %ld, process: %ld\n",
+					  session->ses_interests, session->ses_process);
+			prt_que("\tSessions", &session->ses_sessions);
+			prt_que("\tRequests", &session->ses_requests);
+			break;
+
+		case type_rint:
+			ib_printf("INTEREST (%ld)\n", block->hdr_length);
+			interest = (RINT) block;
+			if (interest->rint_event) {
+				event = (EVNT) ABS_PTR(interest->rint_event);
+				if (event->evnt_parent) {
+					parent = (EVNT) ABS_PTR(event->evnt_parent);
+					ib_printf("\t\"%s\".\"%s\"\n", parent->evnt_name,
+							  event->evnt_name);
+				}
+				else
+					ib_printf("\t\"%s\"\n", event->evnt_name);
+			}
+			ib_printf("\tEvent: %ld, request: %ld, next: %ld, count: %ld\n",
+					  interest->rint_event, interest->rint_request,
+					  interest->rint_next, interest->rint_count);
+			prt_que("\tInterests", &interest->rint_interests);
+			break;
+
+		default:
+			ib_printf("*** UNKNOWN *** (%ld)\n", block->hdr_length);
+			break;
+		}
+		if (!block->hdr_length)
+			break;
+	}
+
+}
+
+
+static void prt_que(UCHAR * string, SRQ * que)
+{
+/**************************************
+ *
+ *	p r t _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print the contents of a self-relative que.
+ *
+ **************************************/
+	SLONG offset;
+
+	offset = REL_PTR(que);
+
+	if (offset == que->srq_forward && offset == que->srq_backward)
+		ib_printf("%s: *empty*\n", string);
+	else
+		ib_printf("%s: forward: %d, backward: %d\n",
+				  string, que->srq_forward, que->srq_backward);
+}
diff --git a/src/jrd/procs2.gdl b/src/jrd/procs2.gdl
new file mode 100644
index 0000000000..a30143f816
--- /dev/null
+++ b/src/jrd/procs2.gdl
@@ -0,0 +1,30 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+modify database 'yachts.gdb';
+
+delete relation rdb$parameters;
+
+define relation rdb$procedure_parameters
+rdb$procedure_name,
+rdb$parameter_name,
+rdb$parameter_number,
+rdb$parameter_type,
+rdb$field_source based on rdb$field_name,
+rdb$description,
+rdb$system_flag;
diff --git a/src/jrd/prv_m_bypass.h b/src/jrd/prv_m_bypass.h
new file mode 100644
index 0000000000..3915ebabaa
--- /dev/null
+++ b/src/jrd/prv_m_bypass.h
@@ -0,0 +1,33 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef _JRD_PRV_M_BYPASS_H_
+#define _JRD_PRV_M_BYPASS_H_
+
+/*  PRV$V_BYPASS incompatibly defined between VMS V4 and V5,
+ *  so use PRV$M_BYPASS.
+ *
+ *  '$' causes preprocessor problems in WATCOM, even if ifdef is false.
+ *  Putting it in an include file that only VMS looks at solves the
+ *  problem. */
+
+#ifndef PRV$M_BYPASS
+#define PRV$M_BYPASS (1 << PRV$V_BYPASS)
+#endif
+
+#endif /* _JRD_PRV_M_BYPASS_H_ */
diff --git a/src/jrd/pwd.cpp b/src/jrd/pwd.cpp
new file mode 100644
index 0000000000..cad55ddd6f
--- /dev/null
+++ b/src/jrd/pwd.cpp
@@ -0,0 +1,422 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		pwd.e
+ *	DESCRIPTION:	User information database access
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: pwd.cpp,v 1.1.1.1 2001-05-23 13:26:09 tamlin Exp $
+*/
+
+#include <string.h>
+#include <stdlib.h>
+#include <time.h>
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/pwd.h"
+#include "../jrd/enc_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/pwd_proto.h"
+#include "../jrd/sch_proto.h"
+
+/* blr to search database for user name record */
+
+static const UCHAR pwd_request[] = {
+	blr_version5,
+	blr_begin,
+	blr_message, 1, 4, 0,
+	blr_long, 0,
+	blr_long, 0,
+	blr_short, 0,
+	blr_text, 34, 0,
+	blr_message, 0, 1, 0,
+	blr_cstring, 129, 0,
+	blr_receive, 0,
+	blr_begin,
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 5, 'U', 'S', 'E', 'R', 'S', 0,
+	blr_first,
+	blr_literal, blr_short, 0, 1, 0,
+	blr_boolean,
+	blr_eql,
+	blr_field, 0, 9, 'U', 'S', 'E', 'R', '_', 'N', 'A', 'M', 'E',
+	blr_parameter, 0, 0, 0,
+	blr_end,
+	blr_send, 1,
+	blr_begin,
+	blr_assignment,
+	blr_field, 0, 3, 'G', 'I', 'D',
+	blr_parameter, 1, 0, 0,
+	blr_assignment,
+	blr_field, 0, 3, 'U', 'I', 'D',
+	blr_parameter, 1, 1, 0,
+	blr_assignment,
+	blr_literal, blr_short, 0, 1, 0,
+	blr_parameter, 1, 2, 0,
+	blr_assignment,
+	blr_field, 0, 6, 'P', 'A', 'S', 'S', 'W', 'D',
+	blr_parameter, 1, 3, 0,
+	blr_end,
+	blr_send, 1,
+	blr_assignment,
+	blr_literal, blr_short, 0, 0, 0,
+	blr_parameter, 1, 2, 0,
+	blr_end,
+	blr_end,
+	blr_eoc
+};
+
+typedef struct
+{
+	SLONG	gid;
+	SLONG	uid;
+	SSHORT	flag;
+	SCHAR	password[34];
+} user_record;
+
+static CONST char tpb[4] =
+{
+	isc_tpb_version1,
+	isc_tpb_write,
+	isc_tpb_concurrency,
+	isc_tpb_wait
+};
+
+
+extern "C" {
+
+
+static BOOLEAN lookup_user(TEXT*, int*, int*, TEXT*);
+static BOOLEAN open_user_db(isc_db_handle*, SLONG*);
+
+
+void PWD_get_user_dbpath(TEXT* path_buffer)
+{
+/**************************************
+ *
+ *      P W D _ g e t _ u s e r _ d b p a t h
+ *
+ **************************************
+ *
+ * Functional description:
+ *      Return the path to the user database.  This
+ *      Centralizes the knowledge of where the db is
+ *      so gsec, lookup_user, etc. can be consistent.
+ *
+ **************************************/
+
+#pragma FB_COMPILER_MESSAGE("TMN: What wierdness is this?")
+#if (defined VMS || defined WIN_NT || defined LINUX || defined FREEBSD || defined NETBSD || defined SUPERSERVER || defined AIX_PPC)
+	gds__prefix(path_buffer, USER_INFO_NAME);
+#else
+	strcpy(path_buffer, USER_INFO_NAME);
+#endif
+}
+
+
+void PWD_verify_user(TEXT*	name,
+					 TEXT*	user_name,
+					 TEXT*	password,
+					 TEXT*	password_enc,
+					 int*	uid,
+					 int*	gid,
+					 int*	node_id)
+{
+/**************************************
+ *
+ *      P W D _ v e r i f y _ u s e r
+ *
+ **************************************
+ *
+ * Functional description:
+ *      Verify a user in the security database.
+ *
+ **************************************/
+	TEXT *p, *q, pw1[33], pw2[33], pwt[33];
+	BOOLEAN notfound;
+
+	if (user_name)
+	{
+		for (p = name, q = user_name; *q; q++, p++)
+		{
+			*p = UPPER7(*q);
+		}
+		*p = 0;
+	}
+
+/* Look up the user name in the userinfo database and use the parameters
+   found there.  This means that another database must be accessed, and
+   that means the current context must be saved and restored. */
+
+	notfound = lookup_user(name, uid, gid, pw1);
+
+/* Punt if the user has specified neither a raw nor an encrypted password,
+   or if the user has specified both a raw and an encrypted password, 
+   or if the user name specified was not in the password database
+   (or if there was no password database - it's still not found) */
+
+	if ((!password && !password_enc) ||
+		(password && password_enc) ||
+		notfound)
+	{
+		ERR_post(gds_login, 0);
+	}
+
+	if (password) {
+		strcpy(pwt, ENC_crypt(password, PASSWORD_SALT));
+		password_enc = pwt + 2;
+	}
+	strcpy(pw2, ENC_crypt(password_enc, PASSWORD_SALT));
+	if (strncmp(pw1, pw2 + 2, 11)) {
+		ERR_post(gds_login, 0);
+	}
+
+	*node_id = 0;
+}
+
+
+static BOOLEAN lookup_user(TEXT * user_name, int *uid, int *gid, TEXT * pwd)
+{
+/**************************************
+ *
+ *      l o o k u p _ u s e r
+ *
+ **************************************
+ *
+ * Functional description:
+ *      Look the name up in the local userinfo
+ *      database.   If it is found, fill in the
+ *      user and group ids, as found in the
+ *      database for that user.   Also return
+ *      the encrypted password.
+ *
+ **************************************/
+	BOOLEAN			notfound;		/* user found flag */
+	isc_db_handle	uinfo;			/* database handle */
+	SLONG*			lookup_trans;	/* default transaction handle */
+	STATUS			status[20];		/* status vector */
+	SLONG*			lookup_req;		/* request handle */
+	TEXT			uname[129];		/* user name buffer */
+	user_record		user;			/* user record */
+
+/* Start by clearing the output data */
+
+	if (uid)
+		*uid = 0;
+	if (gid)
+		*gid = 0;
+	if (pwd)
+		*pwd = '\0';
+	notfound = TRUE;
+	strncpy(uname, user_name, 129);
+
+/* get local copies of handles, so this depends on no static variables */
+
+/* the database is opened here, but this could also be done when the
+   first database is opened */
+
+	if (open_user_db(&uinfo, status))
+	{
+		THREAD_ENTER;
+		ERR_post(gds_psw_attach, 0);
+	}
+
+	lookup_req = NULL;
+	lookup_trans = NULL;
+
+	if (isc_start_transaction(	status,
+								reinterpret_cast<void**>(&lookup_trans),
+								(short) 1,
+								&uinfo,
+								(short)sizeof(tpb),
+								tpb))
+	{
+		isc_detach_database(status, reinterpret_cast<void**>(&uinfo));
+		THREAD_ENTER;
+		ERR_post(gds_psw_start_trans, 0);
+	}
+
+	if (!isc_compile_request(	status,
+								reinterpret_cast<void**>(&uinfo),
+								reinterpret_cast<void**>(&lookup_req),
+								(short)sizeof(pwd_request),
+								reinterpret_cast<char*>(const_cast<UCHAR*>(pwd_request))))
+	{
+		if (!isc_start_and_send(status,
+								reinterpret_cast<void**>(&lookup_req),
+								reinterpret_cast<void**>(&lookup_trans),
+								(short) 0,
+								(short) sizeof(uname),
+								uname, (short) 0))
+		{
+			while (1)
+			{
+				isc_receive(status,
+							reinterpret_cast<void**>(&lookup_req),
+							(short) 1,
+							(short) sizeof(user),
+							&user,
+							(short) 0);
+				if (!user.flag || status[1])
+					break;
+				notfound = FALSE;
+				if (uid)
+					*uid = user.uid;
+				if (gid)
+					*gid = user.gid;
+				if (pwd)
+					strncpy(pwd, user.password, 32);
+			}
+		}
+	}
+
+/* the database is closed and the request is released here, but this
+   could be postponed until all databases are closed */
+
+	isc_rollback_transaction(status,
+							 reinterpret_cast < void **>(&lookup_trans));
+	isc_detach_database(status, reinterpret_cast < void **>(&uinfo));
+	THREAD_ENTER;
+
+	return notfound;
+}
+
+
+static BOOLEAN open_user_db(isc_db_handle* uihandle, SLONG* status)
+{
+/**************************************
+ *
+ *      o p e n _ u s e r _ d b
+ *
+ **************************************
+ *
+ * Functional description:
+ *      Open the user information database
+ *      and return the handle.
+ *
+ *	TMN: FIX!!! Reverse return values (TRUE should be success!!!)
+ *
+ *      returns FALSE if successfully opened
+ *              TRUE if not
+ *
+ **************************************/
+	TEXT			user_info_name[MAX_PATH_LENGTH];
+	isc_db_handle	uinfo;			/* database handle */
+	IHNDL			ihandle;
+	SCHAR*			p;
+	SCHAR*			dpb;
+	SCHAR			dpb_buffer[256];
+	SSHORT			dpb_len;
+
+	/* Register as internal database handle */
+
+	for (ihandle = internal_db_handles; ihandle; ihandle = ihandle->ihndl_next)
+	{
+		if (ihandle->ihndl_object == NULL)
+		{
+			ihandle->ihndl_object = &uinfo;
+			break;
+		}
+	}
+
+	if (!ihandle)
+	{
+		ihandle = (IHNDL) gds__alloc ((SLONG) sizeof (struct ihndl));
+		ihandle->ihndl_object = &uinfo;
+		ihandle->ihndl_next = internal_db_handles;
+		internal_db_handles = ihandle;
+	}
+
+	THREAD_EXIT;
+
+/* initialize the data base's name */
+
+	uinfo = NULL;
+
+	PWD_get_user_dbpath(user_info_name);
+
+/* Perhaps build up a dpb */
+
+	dpb = dpb_buffer;
+
+	*dpb++ = gds_dpb_version1;
+
+	// insert username
+	static const char szAuthenticator[] = "authenticator";
+	const size_t nAuthNameLen = strlen(szAuthenticator);
+	*dpb++ = gds_dpb_user_name;
+	*dpb++ = nAuthNameLen;
+	memcpy(dpb, szAuthenticator, nAuthNameLen);
+	dpb += nAuthNameLen;
+
+	// insert password
+	static const char szPassword[] = "none";
+	const size_t nPswdLen = strlen(szPassword);
+	*dpb++ = gds_dpb_password;
+	*dpb++ = nPswdLen;
+	memcpy(dpb, szPassword, nPswdLen);
+	dpb += nPswdLen;
+
+	*dpb++ = isc_dpb_sec_attach;	/* Attachment is for the security database */
+	*dpb++ = 1;					/* Parameter value length */
+	*dpb++ = TRUE;				/* Parameter value */
+
+	dpb_len = dpb - dpb_buffer;
+
+	isc_attach_database(status,
+						0,
+						user_info_name,
+						reinterpret_cast<void**>(&uinfo),
+						dpb_len,
+						dpb_buffer);
+
+	if (status[1] == gds_login)
+	{
+		/* we may be going against a V3 database which does not
+		 * understand this combination.
+		 */
+
+		isc_attach_database(status,
+							0,
+							user_info_name,
+							reinterpret_cast<void**>(&uinfo),
+							0,
+							0);
+	}
+
+	*uihandle = uinfo;
+
+	assert(ihandle->ihndl_object == &uinfo);
+	ihandle->ihndl_object = NULL;
+
+	if (status[1])
+	{
+		// Is this reversed logic or what?!
+		// Return TRUE to tell we did NOT open the DB.
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+}	// extern "C"
+
diff --git a/src/jrd/pwd.h b/src/jrd/pwd.h
new file mode 100644
index 0000000000..028742eaae
--- /dev/null
+++ b/src/jrd/pwd.h
@@ -0,0 +1,66 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		pwd.h
+ *	DESCRIPTION:	User information database name
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: pwd.h,v 1.1.1.1 2001-05-23 13:26:07 tamlin Exp $
+*/
+
+#ifndef _JRD_PWD_H_
+#define _JRD_PWD_H_
+
+#define PASSWORD_SALT		"9z"
+#define MAX_PASSWORD_ENC_LENGTH	12
+
+
+#ifdef VMS
+#define USER_INFO_NAME	"[sysmgr]isc4.gdb"
+#endif
+
+#if defined(WIN_NT)
+#define USER_INFO_NAME	"isc4.gdb"
+#endif
+
+#ifdef NETWARE_386
+#define USER_INFO_NAME	"SYS:/INTERBAS/ISC4.GDB"
+#endif
+
+#ifdef LINUX
+#define USER_INFO_NAME	"isc4.gdb"
+#endif
+
+#if defined FREEBSD || defined NETBSD
+#define USER_INFO_NAME	"isc4.gdb"
+#endif
+
+#ifdef AIX_PPC
+#define USER_INFO_NAME	"isc4.gdb"
+#endif
+
+#ifndef USER_INFO_NAME
+#ifdef SUPERSERVER
+#define USER_INFO_NAME   "isc4.gdb"
+#else
+#define USER_INFO_NAME   "/usr/interbase/isc4.gdb"
+#endif /* SUPERSERVER */
+#endif /* USER_INFO_NAME */
+
+#endif /* _JRD_PWD_H_ */
diff --git a/src/jrd/pwd_proto.h b/src/jrd/pwd_proto.h
new file mode 100644
index 0000000000..b9d481f93f
--- /dev/null
+++ b/src/jrd/pwd_proto.h
@@ -0,0 +1,40 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		pwd_proto.h
+ *	DESCRIPTION:	Prototype header file for pwd.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: pwd_proto.h,v 1.1.1.1 2001-05-23 13:26:23 tamlin Exp $
+ */
+
+#ifndef _JRD_PWD_PROTO_H_
+#define _JRD_PWD_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void	PWD_get_user_dbpath(TEXT*);
+void	PWD_verify_user(TEXT*, TEXT*, TEXT*, TEXT*,
+						int*, int*, int*);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_PWD_PROTO_H_ */
diff --git a/src/jrd/qatest.cpp b/src/jrd/qatest.cpp
new file mode 100644
index 0000000000..a92a809875
--- /dev/null
+++ b/src/jrd/qatest.cpp
@@ -0,0 +1,234 @@
+/*
+ *	PROGRAM:	InterBase Access Method
+ *	MODULE:		qatest.c
+ *	DESCRIPTION:	Entry points for QA testibility library
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/*
+
+QA Testability Module
+
+Rich Damon in QA requested the addition of a system UDF that would
+enable automated tested of certain error conditions.  Previously
+this was done with a user UDF, but with NLM no longer supporting
+user UDF's we are including it in the system.
+
+I have therefore extended the BUILTIN_entrypoint() method to include
+a system UDF entry, QATEST_entrypoint, which will do various 
+nasty things to the system when invoked.  
+
+-------------
+THIS FUNCTION IS NOT TO BE DOCUMENTED OR USED BY CUSTOMERS
+-------------
+
+To use the UDF, it must be declared to a database, thusly:
+
+    declare external function QAPOKE 
+	    int, int 
+        returns int by value
+        entry_point "DEBUG_CRASH_TESTS" 
+        module_name "TEST1";
+
+Note the special magic values for entry_point & module_name.  Any
+number of parameters can be declared as part of the UDF definition and
+will be passed to the entrypoint - the first parameter selects the 
+subfunction to invoke.
+
+Currently defined subfunctions, and expected parameters, are:
+
+   0	QATEST_testing (SLONG)
+   
+	Tests that the mechanism is working properly.
+  	returns 2*arg1;
+
+   1	QATEST_delete_database (void)		
+   
+	Deletes the current database file.
+	Returns 0 on success
+	Returns -1 if database doesn't have a file (when can this happen?)
+
+   2	QATEST_delete_shadow (ULONG)		
+
+	Deletes shadow #arg1.
+	Returns	0 on success
+	Returns -1 if shadowing not enabled
+	Returns -2 if shadow #arg1 not found.
+
+ 999	QATEST_exit (void)
+
+	Performs exit() on the server.
+	Note that this will crash an NLM server - and is not suitable
+	for fully automated testing on that platform.
+
+
+Code for the UDF is in jrd/qatest.c.
+
+The R&D TCS test case is QATEST_METHOD, which exercises all the 
+defined APIs for this function.
+
+1994-July-14 David Schnepper
+*/
+
+
+
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+#include "../jrd/jrd.h"
+#include "../jrd/sdw.h"
+#include "../jrd/pio.h"
+#include "../jrd/codes.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/flu_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#ifdef WIN_NT
+#include <windows.h>
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT	char
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	1024
+#endif
+
+#define QATEST_testing		0
+#define QATEST_delete_database	1
+#define QATEST_delete_shadow	2
+#define QATEST_exit		999
+
+
+
+int QATEST_entrypoint(ULONG * function, void *arg1, void *arg2, void *arg3)
+{
+/**************************************
+ *
+ *	Q A T E S T _ e n t r y p o i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Perform various random nastiness to the system in order
+ *	to test database recovery.
+ *
+ *	These entrypoints are *NOT* designed for customer use!
+ *
+ **************************************/
+	TDBB tdbb;
+	char filename[MAXPATHLEN];
+	SDW shadow;
+#ifdef WIN_NT
+	HANDLE desc;
+#endif
+	FIL file;
+
+
+	switch (*function) {
+	case QATEST_testing:
+		/* Parameter 1: SLONG *testvalue */
+		/* Entrypoint for testing the QA entrypoint method */
+
+		return 2 * *(SLONG *) arg1;
+
+	case QATEST_delete_database:
+		/* Parameters: NONE */
+		/* Close current database file & delete */
+
+		tdbb = GET_THREAD_DATA;
+		if (!(file = tdbb->tdbb_attachment->att_database->dbb_file))
+			return -1;
+
+#ifdef WIN_NT
+
+		desc =
+			(HANDLE) ((file->fil_flags & FIL_force_write) ?
+					  file->fil_force_write_desc : file->fil_desc);
+
+		CloseHandle(desc);
+		desc = INVALID_HANDLE_VALUE;
+#else
+		close(file->fil_desc);
+#endif
+		strncpy((char *) filename, file->fil_string, file->fil_length);
+		filename[file->fil_length] = 0;
+
+#ifdef WIN_NT
+		DeleteFile(filename);
+#else
+		unlink(filename);
+#endif
+		return 0;
+
+	case QATEST_delete_shadow:
+		/* Parameter 1: ULONG *shadow_number */
+		/* Close & delete specified shadow file */
+
+		tdbb = GET_THREAD_DATA;
+		if (!(shadow = tdbb->tdbb_attachment->att_database->dbb_shadow))
+			return -1;
+		for (; shadow; shadow = shadow->sdw_next)
+			if (shadow->sdw_number == *(ULONG *) arg1) {
+#ifdef WIN_NT
+
+				desc =
+					(HANDLE) ((shadow->sdw_file->fil_flags & FIL_force_write)
+							  ? shadow->
+							  sdw_file->fil_force_write_desc : shadow->
+							  sdw_file->fil_desc);
+
+				CloseHandle(desc);
+				desc = INVALID_HANDLE_VALUE;
+#else
+				close(shadow->sdw_file->fil_desc);
+#endif
+				strncpy((char *) filename, shadow->sdw_file->fil_string,
+						shadow->sdw_file->fil_length);
+				filename[shadow->sdw_file->fil_length] = 0;
+#ifdef WIN_NT
+				DeleteFile(filename);
+#else
+				unlink(filename);
+#endif
+				return 0;
+			}
+		return -2;
+
+	case QATEST_exit:
+		/* Parameters: NONE */
+		/* do a process exit - very nasty - crashes MU server */
+
+		exit(1);
+		return 0;
+
+	default:
+		sprintf(filename, "Unknown QATEST_entrypoint #%lu",	/* TXNN */
+				*function);
+		THREAD_ENTER;
+		ERR_post(gds__random,
+				 gds_arg_string, ERR_cstring((TEXT *) filename), 0);
+		THREAD_EXIT;
+		return 0;
+	}
+}
diff --git a/src/jrd/quad.cpp b/src/jrd/quad.cpp
new file mode 100644
index 0000000000..97c688fe55
--- /dev/null
+++ b/src/jrd/quad.cpp
@@ -0,0 +1,172 @@
+/*
+ *      PROGRAM:        JRD Access Method
+ *      MODULE:         quad.c
+ *      DESCRIPTION:    Quad arithmetic simulation
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#ifdef VAX
+#define LOW_WORD        0
+#define HIGH_WORD       1
+#else
+#define LOW_WORD        1
+#define HIGH_WORD       0
+#endif
+
+extern "C" {
+
+
+#pragma FB_COMPILER_MESSAGE("Fix this! Ugly function pointer cast!")
+typedef void (*pfn_quad_private_cludge) (int, int);
+
+
+SQUAD QUAD_add(SQUAD * arg1, SQUAD * arg2, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      Q U A D _ a d d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Add two quad numbers.
+ *
+ **************************************/
+
+	reinterpret_cast < pfn_quad_private_cludge > (err) (gds__badblk, 0);	/* not really badblk, but internal error */
+/* IBERROR (224); *//* msg 224 quad word arithmetic not supported */
+
+	SQUAD temp = { 0 };
+	return temp;				/* Added to remove compiler warnings */
+}
+
+
+SSHORT QUAD_compare(SQUAD * arg1, SQUAD * arg2)
+{
+/**************************************
+ *
+ *      Q U A D _ c o m p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Compare two descriptors.  Return (-1, 0, 1) if a<b, a=b, or a>b.
+ *
+ **************************************/
+
+	if (((SLONG *) arg1)[HIGH_WORD] > ((SLONG *) arg2)[HIGH_WORD])
+		return 1;
+	if (((SLONG *) arg1)[HIGH_WORD] < ((SLONG *) arg2)[HIGH_WORD])
+		return -1;
+	if (((ULONG *) arg1)[LOW_WORD] > ((ULONG *) arg2)[LOW_WORD])
+		return 1;
+	if (((ULONG *) arg1)[LOW_WORD] < ((ULONG *) arg2)[LOW_WORD])
+		return -1;
+	return 0;
+}
+
+
+SQUAD QUAD_from_double(double *d, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      Q U A D _ f r o m _ d o u b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Convert a double to a quad.
+ *
+ **************************************/
+
+	reinterpret_cast < pfn_quad_private_cludge > (err) (gds__badblk, 0);	/* not really badblk, but internal error */
+/* BUGCHECK (190); *//* msg 190 conversion not supported for */
+	/* specified data types */
+
+	SQUAD temp = { 0 };
+
+	return temp;				/* Added to remove compiler warnings */
+}
+
+
+SQUAD QUAD_multiply(SQUAD * arg1, SQUAD * arg2, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      Q U A D _ m u l t i p l y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Multiply two quad numbers.
+ *
+ **************************************/
+
+	reinterpret_cast < pfn_quad_private_cludge > (err) (gds__badblk, 0);	/* not really badblk, but internal error */
+/* IBERROR (224); *//* msg 224 quad word arithmetic not supported */
+
+	SQUAD temp = { 0 };
+	return temp;				/* Added to remove compiler warnings */
+}
+
+
+SQUAD QUAD_negate(SQUAD * arg1, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      Q U A D _ n e g a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Negate a quad number.
+ *
+ **************************************/
+
+	reinterpret_cast < pfn_quad_private_cludge > (err) (gds__badblk, 0);	/* not really badblk, but internal error */
+/* IBERROR (224); *//* msg 224 quad word arithmetic not supported */
+
+	SQUAD temp = { 0 };
+	return temp;				/* Added to remove compiler warnings */
+}
+
+
+SQUAD QUAD_subtract(SQUAD * arg1, SQUAD * arg2, FPTR_VOID err)
+{
+/**************************************
+ *
+ *      Q U A D _ s u b t r a c t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Subtract two quad numbers.
+ *
+ **************************************/
+
+	reinterpret_cast < pfn_quad_private_cludge > (err) (gds__badblk, 0);	/* not really badblk, but internal error */
+/* IBERROR (224); *//* msg 224 quad word arithmetic not supported */
+
+	SQUAD temp = { 0 };
+	return temp;				/* Added to remove compiler warnings */
+}
+
+}	// extern "C"
+
diff --git a/src/jrd/quad.h b/src/jrd/quad.h
new file mode 100644
index 0000000000..254dd6f638
--- /dev/null
+++ b/src/jrd/quad.h
@@ -0,0 +1,59 @@
+/*************  history ************
+*
+*       COMPONENT: JRD  MODULE: QUAD.H
+*       generated by Marion V2.5     2/6/90
+*       from dev              db        on 6-DEC-1993
+*****************************************************************
+*
+*       0       katz    6-DEC-1993
+*       history begins
+*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+*/
+
+
+/*
+ *      PROGRAM:        JRD Access Method
+ *      MODULE:         quad.h
+ *      DESCRIPTION:    Macros to support quad arithmetic
+ *
+ * copyright (c) 1993 by Borland International
+ */
+
+#ifndef _JRD_QUAD_H_
+#define _JRD_QUAD_H_
+
+#ifdef NATIVE_QUAD
+#define QUAD_ADD(a,b,e)         ((a) + (b))
+#define QUAD_COMPARE(a,b)       ((a == b) ? 0 : (a < b) ? -1 : 1)
+#define QUAD_FROM_DOUBLE(a,e)   a
+#define QUAD_MULTIPLY(a,b,e)    ((a) * (b))
+#define QUAD_NEGATE(a,e)        (-(a))
+#define QUAD_SUBTRACT(a,b,e)    ((a) - (b))
+#else
+#define QUAD_ADD(a,b,e)         QUAD_add (&(a), &(b), e)
+#define QUAD_COMPARE(a,b)       QUAD_compare (&(a), &(b))
+#define QUAD_FROM_DOUBLE(a,e)   QUAD_from_double (&(a), e)
+#define QUAD_MULTIPLY(a,b,e)    QUAD_multiply (&(a), &(b), e)
+#define QUAD_NEGATE(a,e)        QUAD_negate (&(a), e)
+#define QUAD_SUBTRACT(a,b,e)    QUAD_subtract (&(a), &(b), e)
+
+#include "../jrd/quad_proto.h"
+#endif
+
+#endif /* _JRD_QUAD_H_ */
diff --git a/src/jrd/quad_proto.h b/src/jrd/quad_proto.h
new file mode 100644
index 0000000000..0a1eb204ed
--- /dev/null
+++ b/src/jrd/quad_proto.h
@@ -0,0 +1,56 @@
+/*************  history ************
+*
+*       COMPONENT: JRD  MODULE: QUAD_PROTO.H
+*       generated by Marion V2.5     2/6/90
+*       from dev              db        on 6-DEC-1993
+*****************************************************************
+*
+*       0       katz    6-DEC-1993
+*       history begins
+*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+*/
+
+
+/*
+ *      PROGRAM:        JRD Access Method
+ *      MODULE:         quad_proto.h
+ *      DESCRIPTION:    Prototype header file for quad.c
+ *
+ * copyright (c) 1993 by Borland International
+ */
+
+#ifndef _JRD_QUAD_PROTO_H_
+#define _JRD_QUAD_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern SQUAD QUAD_add(SQUAD *, SQUAD *, FPTR_VOID);
+extern SSHORT QUAD_compare(SQUAD *, SQUAD *);
+extern SQUAD QUAD_from_double(double *, FPTR_VOID);
+extern SQUAD QUAD_multiply(SQUAD *, SQUAD *, FPTR_VOID);
+extern SQUAD QUAD_negate(SQUAD *, FPTR_VOID);
+extern SQUAD QUAD_subtract(SQUAD *, SQUAD *, FPTR_VOID);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_QUAD_PROTO_H_ */
diff --git a/src/jrd/que.h b/src/jrd/que.h
new file mode 100644
index 0000000000..8d1ee51901
--- /dev/null
+++ b/src/jrd/que.h
@@ -0,0 +1,69 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		que.h
+ *	DESCRIPTION:	Que manipulation macros
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_QUE_H_
+#define _JRD_QUE_H_
+
+#define QUE_INIT(que) {\
+	(que).que_backward = &(que);\
+	(que).que_forward = &(que);}
+
+#define QUE_DELETE(node) {\
+	(node).que_backward->que_forward = (node).que_forward;\
+	(node).que_forward->que_backward = (node).que_backward;}
+
+/* QUE_INSERT adds node to queue head. */
+
+#define QUE_INSERT(que, node) {\
+	(node).que_forward = (que).que_forward;\
+	(node).que_backward = &(que);\
+	(que).que_forward->que_backward = &(node);\
+	(que).que_forward = &(node);}
+
+/* QUE_APPEND adds node to queue tail. */
+
+#define QUE_APPEND(que, node) {\
+	(node).que_forward = &(que);\
+	(node).que_backward = (que).que_backward;\
+	(que).que_backward->que_forward = &(node);\
+	(que).que_backward = &(node);}
+
+/* QUE_LOOP to visit every node. */
+
+#define QUE_LOOP(que, node) {\
+	for (node = (que).que_forward; node != &(que); node = (node)->que_forward)
+
+#define QUE_LOOPA(que, node) {\
+	for (node = (que)->que_forward; node != que; node = (node)->que_forward)
+
+#define QUE_NOT_EMPTY(que) ((que).que_forward != &(que))
+#define QUE_EMPTY(que) ((que).que_forward == &(que))
+
+#define QUE_MOST_RECENTLY_USED(in_use_que) {\
+	QUE_DELETE (in_use_que);\
+	QUE_INSERT (bcb->bcb_in_use, in_use_que);}
+
+#define QUE_LEAST_RECENTLY_USED(in_use_que) {\
+	QUE_DELETE (in_use_que);\
+	QUE_APPEND (bcb->bcb_in_use, in_use_que);}
+#endif /* _JRD_QUE_H_ */
diff --git a/src/jrd/rdb.cpp b/src/jrd/rdb.cpp
new file mode 100644
index 0000000000..bed302a264
--- /dev/null
+++ b/src/jrd/rdb.cpp
@@ -0,0 +1,1442 @@
+/*
+ *	PROGRAM:	Rdb/GDS Access Method Interface
+ *	MODULE:		rdb.c
+ *	DESCRIPTION:	User visible entrypoints
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include descrip
+#include ssdef
+#include "../include/jrd/gds.h"
+#include "../jrd/rdb.h"
+#include "../jrd/common.h"
+#include "../jrd/mblr.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/map_proto.h"
+#include "../jrd/mblr_proto.h"
+
+#define RDB_IMAGE	"RDBVMSSHR"
+#define RDB_CALL(name)	if (!name) find_symbol (&name,"name"); stat = (*name)
+
+#define rdb$bad_req_handle	20480058
+
+#define DBTYPE_ISC	37
+
+/* Transaction element block */
+
+typedef struct teb {
+	int *teb_database;
+	int teb_tpb_length;
+	SCHAR *teb_tpb;
+} TEB;
+
+typedef enum {
+	impl_rdb = 1,
+	impl_gds
+} IMPL;
+
+typedef struct handle {
+	IMPL implementation;
+	int *handle;
+	int *messages;
+	struct handle *parent;
+	struct handle *next;
+} *HANDLE, *REQ, *DBB, *TRA, *BLB;
+
+static TRA *dyn_tra_handle;
+static int status_vector[20];
+static UCHAR *temp_buffer;
+static SLONG temp_buffer_length;
+
+static int (*RDB$ATTACH_DATABASE) (),
+	(*RDB$COMMIT_TRANSACTION) (),
+	(*RDB$COMPILE_REQUEST) (),
+	(*RDB$CREATE_DATABASE) (),
+	(*RDB$DETACH_DATABASE) (),
+	(*RDB$PREPARE_TRANSACTION) (),
+	(*RDB$RECEIVE) (),
+	(*RDB$RELEASE_REQUEST) (),
+	(*RDB$ROLLBACK_TRANSACTION) (),
+	(*RDB$SEND) (),
+	(*RDB$START_AND_SEND) (),
+	(*RDB$START_REQUEST) (),
+	(*RDB$START_TRANSACTION) (),
+	(*RDB$UNWIND_REQUEST) (),
+	(*RDB$CREATE_SEGMENTED_STRING) (),
+	(*RDB$OPEN_SEGMENTED_STRING) (),
+	(*RDB$CLOSE_SEGMENTED_STRING) (),
+	(*RDB$CANCEL_SEGMENTED_STRING) (),
+	(*RDB$GET_SEGMENT) (),
+	(*RDB$PUT_SEGMENT) (),
+	(*RDB$SEGMENTED_STRING_INFO) (),
+	(*RDB$REQUEST_INFO) (),
+	(*RDB$DATABASE_INFO) (),
+	(*RDB$TRANSACTION_INFO) (),
+	(*RDB$RECONNECT_TRANSACTION) (), (*RDB$DDL) (), (*RDB$EXTENSION) ();
+
+static HANDLE allocate_handle(IMPL, int *);
+static UCHAR *allocate_temp(int);
+static int condition_handler(int *, int *, int *);
+static SSHORT dsc_length(struct dsc$descriptor *);
+static int find_symbol(int *, UCHAR *);
+static void make_desc(UCHAR *, int, struct dsc$descriptor *);
+static void putmsg(struct dsc$descriptor *, SCHAR *);
+static int set_status(int *, int);
+
+static SLONG codes[] = {
+#include "../jrd/rdbcodes.h"
+};
+
+
+int rdb$attach_database(
+						int *user_status,
+						struct dsc$descriptor *file,
+						DBB * handle,
+						SSHORT dpb_length, SCHAR * dpb, SSHORT db_type)
+{
+/**************************************
+ *
+ *	r d b $ A T T A C H _ D A T A B A S E
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeeky clean database, uncorrupted by user data.
+ *
+ **************************************/
+	int *status, stat;
+	int len;
+
+/* Try Rdb/VMS first. If it succeeds, everything is ducky */
+
+	if (RDB$ATTACH_DATABASE ||
+		find_symbol(&RDB$ATTACH_DATABASE, "RDB$ATTACH_DATABASE")) {
+		RDB_CALL(RDB$ATTACH_DATABASE) (user_status, file, handle, dpb_length,
+									   dpb);
+		if (stat & 1) {
+			*handle = allocate_handle(impl_rdb, *handle);
+			return stat;
+		}
+	}
+
+/* Try GDS next.                                               
+   Rdb/VMS implemented a new dpb version number, not documented.
+   Sense it and ignore the dpb. */
+
+	if (dpb_length && (dpb[0] == 2))
+		len = 0;
+	else
+		len = dpb_length;
+
+	stat = gds__attach_database(status_vector, dsc_length(file),
+								file->dsc$a_pointer, handle, len, dpb,
+								db_type);
+
+	if (!stat) {
+		*handle = allocate_handle(impl_gds, *handle);
+		return MAP_status_to_rdb(status_vector, user_status);
+	}
+
+/* Neither worked -- return Rdb/VMS status */
+
+	return user_status[1];
+}
+
+
+int rdb$cancel_segmented_string(int *user_status, BLB * blob_handle)
+{
+/**************************************
+ *
+ *	r d b $ C A N C E L _ B L O B
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel a blob (surprise!)
+ *
+ **************************************/
+	int stat;
+
+	if (!*blob_handle) {
+		*user_status++ = 1;
+		*user_status++ = 1;
+		return 1;
+	}
+
+	if ((*blob_handle)->implementation == impl_gds) {
+		gds__cancel_blob(status_vector, &(*blob_handle)->handle);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$CANCEL_SEGMENTED_STRING) (user_status,
+											   &(*blob_handle)->handle);
+	}
+
+	if (stat & 1) {
+		gds__free(*blob_handle);
+		*blob_handle = NULL;
+	}
+
+	return stat;
+}
+
+
+int rdb$close_segmented_string(int *user_status, BLB * blob_handle)
+{
+/**************************************
+ *
+ *	r d b $ _ C L O S E _ B L O B
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a blob (surprise!)
+ *
+ **************************************/
+	int stat;
+
+	if (!*blob_handle)
+		return set_status(user_status, rdb$_bad_req_handle);
+
+	if ((*blob_handle)->implementation == impl_gds) {
+		gds__close_blob(status_vector, &(*blob_handle)->handle);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$CLOSE_SEGMENTED_STRING) (user_status,
+											  &(*blob_handle)->handle);
+	}
+
+	if (stat & 1) {
+		gds__free(*blob_handle);
+		*blob_handle = NULL;
+	}
+
+	return stat;
+}
+
+
+int rdb$commit_transaction(int *user_status, TRA * tra_handle)
+{
+/**************************************
+ *
+ *	r d b $ C O M M I T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit a transaction.
+ *
+ **************************************/
+	int stat;
+
+	if (!*tra_handle)
+		return set_status(user_status, rdb$_bad_trans_handle);
+
+	if ((*tra_handle)->implementation == impl_gds) {
+		gds__commit_transaction(status_vector, &(*tra_handle)->handle);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$COMMIT_TRANSACTION) (user_status,
+										  &(*tra_handle)->handle);
+	}
+
+	if (stat & 1) {
+		gds__free(*tra_handle);
+		*tra_handle = NULL;
+	}
+
+	return stat;
+}
+
+
+int rdb$compile_request(
+						int *user_status,
+						DBB * db_handle,
+						REQ * req_handle, SSHORT blr_length, SCHAR * blr)
+{
+/**************************************
+ *
+ *	r d b $ C O M P I L E
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS stat;
+	int *messages;
+	REQ request;
+	DBB database;
+	USHORT temp_length;
+	UCHAR *temp;
+	SLONG max_length;
+
+	if (!*db_handle)
+		return set_status(user_status, rdb$_bad_db_handle);
+
+	messages = NULL;
+	database = *db_handle;
+	temp = allocate_temp(blr_length + 200);
+
+	if ((*db_handle)->implementation == impl_gds) {
+		if (messages =
+			MAP_parse_blr(blr, blr_length, temp, &temp_length, &max_length)) {
+			blr = temp;
+			blr_length = temp_length;
+			allocate_temp(max_length);
+		}
+		if (gds__compile_request(status_vector, &database->handle,
+								 req_handle, blr_length, blr))
+			MAP_release(messages);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$COMPILE_REQUEST) (user_status, &database->handle,
+									   req_handle, blr_length, blr);
+	}
+
+	if (stat & 1) {
+		*req_handle = request =
+			allocate_handle(database->implementation, *req_handle);
+		request->parent = database;
+		request->next = database->next;
+		database->next = request;
+		request->messages = messages;
+	}
+
+	return stat;
+}
+
+
+int rdb$create_database(
+						int *user_status,
+						struct dsc$descriptor *file,
+						DBB * handle,
+						USHORT dpb_length, UCHAR * dpb, USHORT db_type)
+{
+/**************************************
+ *
+ *	r d b $ C R E A T E _ D A T A B A S E
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeeky clean database, uncorrupted by user data.
+ *
+ **************************************/
+	int stat;
+
+	if (db_type = DBTYPE_ISC) {
+		stat = gds__create_database(status_vector, dsc_length(file),
+									file->dsc$a_pointer, handle, dpb_length,
+									dpb, db_type);
+		if (stat & 1)
+			*handle = allocate_handle(impl_gds, *handle);
+		return MAP_status_to_rdb(status_vector, user_status);
+	}
+
+	else {
+		RDB_CALL(RDB$CREATE_DATABASE) (user_status, file, handle,
+									   dpb_length, dpb, db_type);
+		if (stat & 1)
+			*handle = allocate_handle(impl_rdb, *handle);
+		return stat;
+	}
+
+}
+
+
+int rdb$create_segmented_string(
+								int *user_status,
+								HANDLE * db_handle,
+								HANDLE * tra_handle,
+HANDLE * blob_handle, GDS__QUAD * blob_id)
+{
+/**************************************
+ *
+ *	r d b $ _ C R E A T E _ B L O B
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a segment from a blob (surprise!)
+ *
+ **************************************/
+	int stat;
+
+	if (!*db_handle)
+		return set_status(user_status, rdb$_bad_db_handle);
+
+	if ((*db_handle)->implementation == impl_gds) {
+		gds__create_blob(status_vector, &(*db_handle)->handle,
+						 &(*tra_handle)->handle, blob_handle, blob_id);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$CREATE_SEGMENTED_STRING) (user_status,
+											   &(*db_handle)->handle,
+											   &(*tra_handle)->handle,
+											   blob_handle, blob_id);
+	}
+
+	if (stat & 1)
+		*blob_handle =
+			allocate_handle((*db_handle)->implementation, *blob_handle);
+
+	return stat;
+}
+
+
+int rdb$database_info(
+					  int *user_status,
+					  DBB * handle,
+					  SSHORT item_length,
+					  SCHAR * items, SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	r d b $ d a t a b a s e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get info on object.
+ *
+ **************************************/
+	int stat;
+	SCHAR item, *item_ptr, *end, *tmp_ptr, tmp_buff[32];
+	SSHORT len;
+
+	if (!*handle)
+		return set_status(user_status, rdb$_bad_db_handle);
+
+	if ((*handle)->implementation == impl_gds) {
+		/* Rdb implemented more info items (but didnt' document them)
+		   and theirs overlap ours. So, force error on the ones
+		   we don't know about.  */
+
+		tmp_ptr = tmp_buff;
+		item_ptr = items;
+		end = item_ptr + item_length;
+		while (item_ptr < end) {
+			*tmp_ptr = item = *item_ptr++;
+			if (item > gds__info_limbo)
+				*tmp_ptr += 200;
+			tmp_ptr++;
+		}
+
+		gds__database_info(status_vector, &(*handle)->handle,
+						   item_length, &tmp_buff, buffer_length, buffer);
+
+		/* Now clean the clumplets all back up again... */
+
+		item_ptr = buffer;
+		end = item_ptr + buffer_length;
+		while (item_ptr < end) {
+			item = *item_ptr++;
+			len = *item_ptr++;
+			len |= (*item_ptr++) << 8;
+			if (item == gds__info_error && *item_ptr > 200)
+				*item_ptr -= 200;
+			else if (item == gds__info_end || item == gds__info_truncated)
+				break;
+			item_ptr += len;
+		}
+
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$DATABASE_INFO) (user_status, &(*handle)->handle,
+									 item_length, items, buffer_length,
+									 buffer);
+	}
+
+	return stat;
+}
+
+
+int rdb$ddl(
+			int *user_status,
+			DBB * db_handle, UCHAR ddl_operation, int length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	r d b $ d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *    Support RDB metadata BLR (MBLR) through
+ *    translation to InterBase DYN, or pass
+ *    it through as before to RDB.
+ *
+ **************************************/
+	int stat, dyn_length, gds_vector[32], *gds;
+	UCHAR *dyn_buffer;
+
+	if (!*db_handle)
+		return set_status(user_status, rdb$_bad_db_handle);
+
+	if (!dyn_tra_handle)
+		return set_status(user_status, rdb$_bad_trans_handle);
+
+	if ((*db_handle)->implementation == impl_gds) {
+
+/* First see if we can in fact translate the MBLR string into a DYN string */
+
+		dyn_buffer = allocate_temp(2 * length);
+		if (!MBLR_translate_to_dyn((int) ddl_operation, length, buffer,
+								   &dyn_length, dyn_buffer))
+			return set_status(user_status, rdb$_wish_list);
+
+/* Finally we can ship off the DYN string built to be processed */
+
+		if (gds__ddl(status_vector, &(*db_handle)->handle,
+					 &(*dyn_tra_handle)->handle, dyn_length, dyn_buffer));
+		{
+			stat = MAP_status_to_rdb(status_vector, user_status);
+			return stat;
+		}
+	}
+	else {
+		RDB_CALL(RDB$DDL) (user_status, &(*db_handle)->handle,
+						   ddl_operation, length, buffer);
+	}
+
+	return stat;
+}
+
+
+int rdb$detach_database(int *user_status, DBB * handle)
+{
+/**************************************
+ *
+ *	r d b $ D E T A C H
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a database.
+ *
+ **************************************/
+	DBB database;
+	REQ request;
+	int stat;
+
+	if (!(database = *handle))
+		return set_status(user_status, rdb$_bad_db_handle);
+
+	if (database->implementation == impl_gds) {
+		gds__detach_database(status_vector, &database->handle);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$DETACH_DATABASE) (user_status, &database->handle);
+	}
+
+	if (stat & 1) {
+		while (request = database->next) {
+			database->next = request->next;
+			MAP_release(request->messages);
+			gds__free(request);
+		}
+		gds__free(database);
+		*handle = NULL;
+	}
+
+	return stat;
+}
+
+
+int rdb$extension(
+				  int *user_status,
+				  USHORT index,
+				  HANDLE * handle,
+				  UCHAR type,
+				  USHORT input_length,
+UCHAR * input, USHORT result_length, UCHAR * result)
+{
+/**************************************
+ *
+ *	r d b $ e x t e n s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unimplemented function.
+ *
+ **************************************/
+	int stat;
+
+	if (!*handle)
+		return set_status(user_status, rdb$_bad_db_handle);
+
+	if ((*handle)->implementation == impl_gds)
+		return set_status(user_status, rdb$_wish_list);
+	else {
+		RDB_CALL(RDB$EXTENSION) (user_status,
+								 index,
+								 &(*handle)->handle,
+								 type,
+								 input_length, input, result_length, result);
+	}
+
+	return stat;
+}
+
+
+int rdb$get_segment(
+					int *user_status,
+					HANDLE * blob_handle,
+					SSHORT * length, SSHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	r d b $ _ G E T _ S E G M E N T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a segment from a blob (surprise!)
+ *
+ **************************************/
+	int stat;
+
+	if (!*blob_handle)
+		return set_status(user_status, rdb$_bad_segstr_handle);
+
+	if ((*blob_handle)->implementation == impl_gds) {
+		gds__get_segment(status_vector, &(*blob_handle)->handle,
+						 length, buffer_length, buffer);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$GET_SEGMENT) (user_status, &(*blob_handle)->handle,
+								   length, buffer_length, buffer);
+	}
+
+	return stat;
+}
+
+
+int rdb$open_segmented_string(
+							  int *user_status,
+							  HANDLE * db_handle,
+							  HANDLE * tra_handle,
+							  HANDLE * blob_handle, GDS__QUAD * blob_id)
+{
+/**************************************
+ *
+ *	r d b $ _ O P E N _ B L O B
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a segment from a blob (surprise!)
+ *
+ **************************************/
+	int stat;
+
+	if (!*db_handle)
+		return set_status(user_status, rdb$_bad_db_handle);
+
+	if ((*db_handle)->implementation == impl_gds) {
+		gds__open_blob(status_vector, &(*db_handle)->handle,
+					   &(*tra_handle)->handle, blob_handle, blob_id);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$OPEN_SEGMENTED_STRING) (user_status,
+											 &(*db_handle)->handle,
+											 &(*tra_handle)->handle,
+											 blob_handle, blob_id);
+	}
+
+	if (stat & 1)
+		*blob_handle =
+			allocate_handle((*db_handle)->implementation, *blob_handle);
+
+	return stat;
+}
+
+
+int rdb$put_segment(
+					int *user_status,
+					BLB * blob_handle, SSHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	r d b $ _ P U T _ S E G M E N T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a segment into a blob (surprise!)
+ *
+ **************************************/
+	int stat;
+
+	if (!*blob_handle)
+		return set_status(user_status, rdb$_bad_segstr_handle);
+
+	if ((*blob_handle)->implementation == impl_gds) {
+		gds__put_segment(status_vector, &(*blob_handle)->handle,
+						 buffer_length, buffer);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$PUT_SEGMENT) (user_status, &(*blob_handle)->handle,
+								   buffer_length, buffer);
+	}
+
+	return stat;
+}
+
+
+int rdb$prepare_transaction(int *user_status, TRA * tra_handle)
+{
+/**************************************
+ *
+ *	r d b $ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First phase of a two
+ *	phase commit.
+ *
+ **************************************/
+	int stat;
+
+	if (!*tra_handle)
+		return set_status(user_status, rdb$_bad_trans_handle);
+
+	if ((*tra_handle)->implementation == impl_gds) {
+		gds__prepare_transaction(status_vector, &(*tra_handle)->handle);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$PREPARE_TRANSACTION) (user_status,
+										   &(*tra_handle)->handle);
+	}
+
+	return stat;
+}
+
+
+int rdb$receive(
+				int *user_status,
+				REQ * req_handle,
+				USHORT msg_type, USHORT msg_length, SCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	r d b $ R E C E I V E
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	STATUS stat;
+	REQ request;
+	UCHAR *temp;
+	int length;
+
+	if (!(request = *req_handle))
+		return set_status(user_status, rdb$_bad_req_handle);
+
+	if (request->implementation == impl_gds) {
+		if (length = MAP_rdb_length(msg_type, request->messages)) {
+			temp = allocate_temp(0);
+			gds__receive(status_vector, &request->handle,
+						 msg_type, length, temp, level);
+			MAP_gds_to_rdb(msg_type, request->messages, temp, msg);
+		}
+		else
+			gds__receive(status_vector, &request->handle,
+						 msg_type, msg_length, msg, level);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$RECEIVE) (user_status, &request->handle,
+							   msg_type, msg_length, msg, level);
+	}
+
+	return stat;
+}
+
+
+int rdb$reconnect_transaction(
+							  int *user_status,
+							  DBB * db_handle,
+							  TRA * tra_handle, SSHORT length, UCHAR * id)
+{
+/**************************************
+ *
+ *	r d b $ r e c o n n e c t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reconnect to a transaction in limbo.
+ *
+ **************************************/
+	int stat;
+
+	if (!*db_handle)
+		return set_status(user_status, rdb$_bad_db_handle);
+
+	if ((*db_handle)->handle == impl_gds) {
+		gds__reconnect_transaction(status_vector,
+								   (*db_handle)->handle,
+								   (*tra_handle)->handle, length, id);
+		return MAP_status_to_rdb(status_vector, user_status);
+	}
+
+	RDB_CALL(RDB$RECONNECT_TRANSACTION) (user_status,
+										 (*db_handle)->handle,
+										 (*tra_handle)->handle, length, id);
+
+	return stat;
+}
+
+
+int rdb$request_info(
+					 int *user_status,
+					 REQ * handle,
+					 SSHORT level,
+					 SSHORT item_length,
+					 SCHAR * items, SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	r d b $ r e q u e s t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get info on object.
+ *
+ **************************************/
+	int stat;
+
+	if (!*handle)
+		return set_status(user_status, rdb$_bad_req_handle);
+
+	if ((*handle)->implementation == impl_gds) {
+		gds__request_info(status_vector, &(*handle)->handle,
+						  item_length, items, buffer_length, buffer, level);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$REQUEST_INFO) (user_status, &(*handle)->handle,
+									item_length, items, buffer_length, buffer,
+									level);
+	}
+
+	return stat;
+}
+
+
+int rdb$release_request(int *user_status, REQ * req_handle)
+{
+/**************************************
+ *
+ *	r d b $ R E L E A S E _ R E Q U E S T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request.
+ *
+ **************************************/
+	REQ *ptr, request;
+	DBB database;
+	int stat;
+
+	if (!(request = *req_handle))
+		return set_status(user_status, rdb$_bad_req_handle);
+
+	if (request->implementation == impl_gds) {
+		gds__release_request(status_vector, &request->handle);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$RELEASE_REQUEST) (user_status, &request->handle);
+	}
+
+	if (stat & 1) {
+		database = request->parent;
+		for (ptr = &database->next; *ptr; ptr = &(*ptr)->next)
+			if (*ptr == request) {
+				*ptr = request->next;
+				break;
+			}
+		MAP_release(request->messages);
+		gds__free(request);
+		*req_handle = NULL;
+	}
+
+	return stat;
+}
+
+
+int rdb$rollback_transaction(int *user_status, TRA * tra_handle)
+{
+/**************************************
+ *
+ *	r d b $ R O L L B A C K
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction.
+ *
+ **************************************/
+	int stat;
+
+	if (!*tra_handle)
+		return set_status(user_status, rdb$_bad_trans_handle);
+
+	if ((*tra_handle)->implementation == impl_gds) {
+		gds__rollback_transaction(status_vector, &(*tra_handle)->handle);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$ROLLBACK_TRANSACTION) (user_status,
+											&(*tra_handle)->handle);
+	}
+
+	if (stat & 1) {
+		gds__free(*tra_handle);
+		*tra_handle = NULL;
+	}
+
+	return stat;
+}
+
+
+int rdb$segmented_string_info(
+							  int *user_status,
+							  BLB * handle,
+							  SSHORT item_length,
+							  SCHAR * items,
+SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	r d b $ b l o b _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get info on object.
+ *
+ **************************************/
+	int stat;
+
+	if (!*handle)
+		return set_status(user_status, rdb$_bad_segstr_handle);
+
+	if ((*handle)->implementation == impl_gds) {
+		gds__blob_info(status_vector, &(*handle)->handle,
+					   item_length, items, buffer_length, buffer);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$SEGMENTED_STRING_INFO) (user_status, &(*handle)->handle,
+											 item_length, items,
+											 buffer_length, buffer);
+	}
+
+	return stat;
+}
+
+
+int rdb$send(
+			 int *user_status,
+			 REQ * req_handle,
+			 USHORT msg_type, USHORT msg_length, SCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	r d b $ S E N D
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	int length, stat;
+	REQ request;
+	UCHAR *temp;
+
+	if (!(request = *req_handle))
+		return set_status(user_status, rdb$_bad_req_handle);
+
+	if (request->implementation == impl_gds) {
+		temp = allocate_temp(0);
+		if (length = MAP_rdb_to_gds(msg_type, request->messages, msg, temp)) {
+			msg_length = length;
+			msg = temp;
+		}
+		gds__send(status_vector, &request->handle,
+				  msg_type, msg_length, msg, level);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$SEND) (user_status, &request->handle,
+							msg_type, msg_length, msg, level);
+	}
+
+	return stat;
+}
+
+
+int rdb$start_and_send(
+					   int *user_status,
+					   REQ * req_handle,
+					   TRA * tra_handle,
+					   USHORT msg_type,
+USHORT msg_length, SCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	r d b $ S T A R T _ A N D _ S E N D
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	int length, stat;
+	REQ request;
+	UCHAR *temp;
+
+	if (!(request = *req_handle))
+		return set_status(user_status, rdb$_bad_req_handle);
+
+	if ((*req_handle)->implementation == impl_gds) {
+		temp = allocate_temp(0);
+		if (length = MAP_rdb_to_gds(msg_type, request->messages, msg, temp)) {
+			msg_length = length;
+			msg = temp;
+		}
+		gds__start_and_send(status_vector, &request->handle,
+							&(*tra_handle)->handle, msg_type, msg_length, msg,
+							level);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$START_AND_SEND) (user_status, &request->handle,
+									  &(*tra_handle)->handle, msg_type,
+									  msg_length, msg, level);
+	}
+
+	return stat;
+}
+
+
+int rdb$start_request(
+					  int *user_status,
+					  register REQ * req_handle,
+					  register TRA * tra_handle, SSHORT level)
+{
+/**************************************
+ *
+ *	r d b $ s t a r t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	int stat;
+
+	if (!*req_handle)
+		return set_status(user_status, rdb$_bad_req_handle);
+
+	if ((*req_handle)->implementation == impl_gds) {
+		gds__start_request(status_vector, &(*req_handle)->handle,
+						   &(*tra_handle)->handle, level);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$START_REQUEST) (user_status, &(*req_handle)->handle,
+									 &(*tra_handle)->handle, level);
+	}
+
+	return stat;
+}
+
+
+int rdb$start_multiple(
+					   int *user_status,
+					   TRA * tra_handle, SSHORT count, TEB * teb)
+{
+/**************************************
+ *
+ *	r d b $ s t a r t _ m u l t i p l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+}
+
+
+int rdb$start_transaction(
+						  int *user_status,
+						  TRA * tra_handle,
+						  SSHORT count,
+						  DBB * db_handle, SSHORT tpb_length, SCHAR * tpb)
+{
+/**************************************
+ *
+ *	r d b $ s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+	TEB *teb;
+	DBB database;
+	int stat, gds_vector[32], rdb_vector[32], *gds, *rdb, c;
+
+	if (*tra_handle)
+		return set_status(user_status, rdb$_bad_trans_handle);
+
+	gds = gds_vector;
+	*gds++ = 0;
+	*gds++ = user_status;
+	*gds++ = tra_handle;
+	*gds++ = 0;
+
+	rdb = rdb_vector;
+	*rdb++ = 0;
+	*rdb++ = status_vector;
+	*rdb++ = tra_handle;
+	*rdb++ = 0;
+
+	for (teb = &db_handle, c = 0; c < count; c++, teb++) {
+		database = *teb->teb_database;
+		if (!database)
+			return set_status(user_status, rdb$_bad_db_handle);
+		if (database->implementation == impl_gds) {
+			++gds_vector[3];
+			*gds++ = &database->handle;
+			*gds++ = teb->teb_tpb_length;
+			*gds++ = teb->teb_tpb;
+		}
+		else {
+			++rdb_vector[3];
+			*rdb++ = &database->handle;
+			*rdb++ = teb->teb_tpb_length;
+			*rdb++ = teb->teb_tpb;
+		}
+	}
+
+	if (gds_vector[3]) {
+		gds_vector[0] = gds - gds_vector - 1;
+		stat = lib$callg(gds_vector, gds__start_transaction);
+		if (!stat) {
+			*tra_handle = allocate_handle(impl_gds, *tra_handle);
+			dyn_tra_handle = *tra_handle;
+		}
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+
+	if (rdb_vector[3]) {
+		rdb_vector[0] = rdb - rdb_vector - 1;
+		find_symbol(&RDB$START_TRANSACTION, "RDB$START_TRANSACTION");
+		stat = lib$callg(rdb_vector, RDB$START_TRANSACTION);
+		if (stat & 1)
+			*tra_handle = allocate_handle(impl_rdb, *tra_handle);
+	}
+
+	return stat;
+}
+
+
+int rdb$transaction_info(
+						 int *user_status,
+						 TRA * handle,
+						 SSHORT item_length,
+						 SCHAR * items, SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	r d b $ t r a n s a c t i o n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get info on object.
+ *
+ **************************************/
+	int stat;
+
+	if (!*handle)
+		return set_status(user_status, rdb$_bad_trans_handle);
+
+	if ((*handle)->implementation == impl_gds) {
+		gds__transaction_info(status_vector, &(*handle)->handle,
+							  item_length, items, buffer_length, buffer);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$TRANSACTION_INFO) (user_status, &(*handle)->handle,
+										item_length, items, buffer_length,
+										buffer);
+	}
+
+	return stat;
+}
+
+
+int rdb$unwind_request(int *user_status, REQ * req_handle, SSHORT level)
+{
+/**************************************
+ *
+ *	r d b $ U N W I N D _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a running request.
+ *
+ **************************************/
+	int stat;
+
+	if (!*req_handle)
+		return set_status(user_status, rdb$_bad_req_handle);
+
+	if ((*req_handle)->implementation == impl_gds) {
+		gds__unwind_request(status_vector, &(*req_handle)->handle, level);
+		stat = MAP_status_to_rdb(status_vector, user_status);
+	}
+	else {
+		RDB_CALL(RDB$UNWIND_REQUEST) (user_status, &(*req_handle)->handle,
+									  level);
+	}
+
+	return stat;
+}
+
+
+static HANDLE allocate_handle(IMPL implementation, int *real_handle)
+{
+/**************************************
+ *
+ *	a l l o c a t e _ h a n d l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate an indirect handle.
+ *
+ **************************************/
+	UCHAR *p, *end;
+	HANDLE handle;
+
+	handle = gds__alloc((SLONG) sizeof(struct handle));
+/* FREE: unknown */
+	if (!handle) {				/* NOMEM: crash here */
+		DEV_REPORT("allocate_handle: no memory");
+		/* NOMEM: not handled, crash here */
+	}
+
+	for (p = handle, end = p + sizeof(struct handle); p < end;)
+		*p++ = 0;
+
+	handle->implementation = implementation;
+	handle->handle = real_handle;
+
+	return handle;
+}
+
+
+static UCHAR *allocate_temp(int length)
+{
+/**************************************
+ *
+ *	a l l o c a t e _ t e m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a temp of at least a given size.
+ *
+ **************************************/
+
+	if (length && temp_buffer_length < length) {
+		if (temp_buffer)
+			gds__free(temp_buffer);
+		temp_buffer = gds__alloc((SLONG) length);
+		/* FREE: unknown - reallocation of buffer handled above */
+		/* NOMEM: caller must handle */
+		if (temp_buffer)
+			temp_buffer_length = length;
+		else
+			temp_buffer_length = 0;
+	}
+
+	return temp_buffer;
+}
+
+
+static int condition_handler(int *sig, int *mech, int *enbl)
+{
+/**************************************
+ *
+ *	c o n d i t i o n _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Ignore signal from "lib$find_symbol".
+ *
+ **************************************/
+
+	return SS$_CONTINUE;
+}
+
+
+static SSHORT dsc_length(struct dsc$descriptor *d)
+{
+/**************************************
+ *
+ *	d s c _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine length of argument passed by descriptor
+ *
+ **************************************/
+	struct dsc$descriptor_a *a;
+
+	switch (d->dsc$b_class) {
+	case DSC$K_CLASS_A:
+		a = d;
+		return a->dsc$l_arsize;
+
+	default:
+		return d->dsc$w_length;
+	}
+}
+
+
+static int find_symbol(int *address, UCHAR * name)
+{
+/**************************************
+ *
+ *	f i n d _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up entrypoint into RDB image.
+ *
+ **************************************/
+	struct dsc$descriptor file, symbol;
+
+	VAXC$ESTABLISH(condition_handler);
+	make_desc(RDB_IMAGE, 0, &file);
+	make_desc(name, 0, &symbol);
+	lib$find_image_symbol(&file, &symbol, address);
+
+	return *address;
+}
+
+
+static void make_desc(
+					  UCHAR * string, int length, struct dsc$descriptor *desc)
+{
+/**************************************
+ *
+ *	m a k e _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fill in VMS descriptor.
+ *
+ **************************************/
+
+	desc->dsc$b_dtype = DSC$K_DTYPE_T;
+	desc->dsc$b_class = DSC$K_CLASS_S;
+	desc->dsc$a_pointer = string;
+
+	if (!(desc->dsc$w_length = length))
+		desc->dsc$w_length = strlen(string);
+}
+
+
+
+static void putmsg(struct dsc$descriptor_s *desc, SCHAR * arg)
+{
+/**************************************
+ *
+ *	p u t m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a line of message.
+ *
+ **************************************/
+
+}
+
+
+static int set_status(int *status, int code)
+{
+/**************************************
+ *
+ *	s e t _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate an error for a bad handle.
+ *
+ **************************************/
+
+	*status++ = 1;
+	*status++ = code;
+	*status = 0;
+
+	return code;
+}
+
+
+#define DUMMY(name) name () {ib_printf ("name entered\n"); return 0;}
+DUMMY(rdb$dummy1);
diff --git a/src/jrd/rdb.h b/src/jrd/rdb.h
new file mode 100644
index 0000000000..aba059dd95
--- /dev/null
+++ b/src/jrd/rdb.h
@@ -0,0 +1,122 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef _JRD_RDB_H_
+#define _JRD_RDB_H_
+
+#define rdb$_arith_except       0x138800a
+#define rdb$_bad_dbkey          0x1388012
+#define rdb$_bad_db_format      0x138801a
+#define rdb$_bad_db_handle      0x1388022
+#define rdb$_bad_dpb_content    0x138802a
+#define rdb$_bad_dpb_form       0x1388032
+#define rdb$_bad_req_handle     0x138803a
+#define rdb$_bad_segstr_handle  0x1388042
+#define rdb$_bad_segstr_id      0x138804a
+#define rdb$_bad_tpb_content    0x1388052
+#define rdb$_bad_tpb_form       0x138805a
+#define rdb$_bad_trans_handle   0x1388062
+#define rdb$_bug_check          0x138806c
+#define rdb$_convert_error      0x1388072
+#define rdb$_db_corrupt         0x138807c
+#define rdb$_deadlock           0x1388082
+#define rdb$_from_no_match      0x1388092
+#define rdb$_infinap            0x1388098
+#define rdb$_infona             0x13880a0
+#define rdb$_infunk             0x13880a8
+#define rdb$_integ_fail         0x13880b2
+#define rdb$_invalid_blr        0x13880ba
+#define rdb$_io_error           0x13880c4
+#define rdb$_lock_conflict      0x13880ca
+#define rdb$_metadata_corrupt   0x13880d4
+#define rdb$_not_valid          0x13880da
+#define rdb$_no_cur_rec         0x13880e2
+#define rdb$_no_dup             0x13880ea
+#define rdb$_no_finish          0x13880f3
+#define rdb$_no_meta_update     0x13880fa
+#define rdb$_no_priv            0x1388102
+#define rdb$_no_recon           0x138810a
+#define rdb$_no_record          0x1388112
+#define rdb$_no_segstr_close    0x138811a
+#define rdb$_obsolete_metadata  0x1388122
+#define rdb$_open_trans         0x138812a
+#define rdb$_port_len           0x1388132
+#define rdb$_read_only_field    0x138813a
+#define rdb$_read_only_rel      0x1388142
+#define rdb$_read_only_trans    0x138814a
+#define rdb$_read_only_view     0x1388152
+#define rdb$_req_no_trans       0x138815a
+#define rdb$_req_sync           0x1388162
+#define rdb$_req_wrong_db       0x138816a
+#define rdb$_segment            0x1388171
+#define rdb$_segstr_eof         0x138817a
+#define rdb$_segstr_no_op       0x1388182
+#define rdb$_segstr_no_read     0x138818a
+#define rdb$_segstr_no_trans    0x1388192
+#define rdb$_segstr_no_write    0x138819a
+#define rdb$_segstr_wrong_db    0x13881a2
+#define rdb$_sys_request        0x13881b4
+#define rdb$_unavailable        0x13881ba
+#define rdb$_unres_rel          0x13881c2
+#define rdb$_uns_ext            0x13881cc
+#define rdb$_wish_list          0x13881d4
+#define rdb$_wrong_ods          0x13881dc
+#define rdb$_wronumarg          0x13881e2
+#define rdb$_imp_exc            0x13881ea
+#define rdbb$_badblk             0x16a800a
+#define rdbb$_invpoolcl          0x16a8012
+#define rdbb$_nopoolids          0x16a801a
+#define rdbb$_relbadblk          0x16a8022
+#define rdbb$_blktoobig          0x16a802a
+#define rdbb$_bufexh             0x16a8032
+#define rdbb$_syntaxerr          0x16a803a
+#define rdbb$_bufinuse           0x16a8042
+#define rdbb$_bdbincon           0x16a804a
+#define rdbb$_reqinuse           0x16a8052
+#define rdbb$_badodsver          0x16a805a
+#define rdbb$_relnotdef          0x16a8062
+#define rdbb$_fldnotdef          0x16a806a
+#define rdbb$_dirtypage          0x16a8073
+#define rdbb$_waifortra          0x16a807b
+#define rdbb$_doubleloc          0x16a8082
+#define rdbb$_nodnotfnd          0x16a808b
+#define rdbb$_dupnodfnd          0x16a8093
+#define rdbb$_locnotmar          0x16a80a3
+#define rdbb$_badpagtyp          0x16a80ac
+#define rdbb$_corrupt            0x16a80b4
+#define rdbb$_badpage            0x16a80bb
+#define rdbb$_badindex           0x16a80cb
+#define rdbb$_dbbnotzer          0x16a80d2
+#define rdbb$_tranotzer          0x16a80da
+#define rdbb$_trareqmis          0x16a80e2
+#define rdbb$_badhndcnt          0x16a80ea
+#define rdbb$_wrotpbver          0x16a80f2
+#define rdbb$_wroblrver          0x16a80fa
+#define rdbb$_wrodpbver          0x16a8102
+#define rdbb$_blobnotsup         0x16a810a
+#define rdbb$_badrelation        0x16a8112
+#define rdbb$_nodetach           0x16a811b
+#define rdbb$_notremote          0x16a81ba
+#define rdbb$_trainlim           0x16a81c2
+#define rdbb$_notinlim           0x16a81ca
+#define rdbb$_traoutsta          0x16a81d2
+#define rdbb$_connect_reject     0x16a81da
+#define rdbb$_dbfile             0x16a81e2
+#define rdbb$_orphan             0x16a81eb
+
+#endif /* _JRD_RDB_H_ */
diff --git a/src/jrd/rdb_codes.h b/src/jrd/rdb_codes.h
new file mode 100644
index 0000000000..f3394eef32
--- /dev/null
+++ b/src/jrd/rdb_codes.h
@@ -0,0 +1,689 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+195919882,
+	195919890,
+	195919898,
+	195919906,
+	195919914,
+	195919922,
+	195919930,
+	195919938,
+	195919946,
+	195919954,
+	195919962,
+	195919970,
+	195919978,
+	195919987,
+	195919995,
+	195920002,
+	195920011,
+	195920019,
+	20480152,
+	195920027,
+	195920036,
+	195920044,
+	195920051,
+	20480196,
+	195920059,
+	195920066,
+	195920074,
+	195920082,
+	195920090,
+	195920098,
+	195920106,
+	195920114,
+	195920122,
+	195920130,
+	195920139,
+	20480290,
+	20480298,
+	20480306,
+	20480314,
+	20480322,
+	20480330,
+	20480338,
+	20480346,
+	20480354,
+	20480362,
+	20480369,
+	20480378,
+	20480386,
+	20480394,
+	20480402,
+	20480410,
+	20480418,
+	20480436,
+	20480426,
+	195920146,
+	195920154,
+	195920162,
+	195920170,
+	20480546,
+	195920186,
+	195920195,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	20480498,
+	20480504,
+	20480516,
+	20480524,
+	20480530,
+	20480538,
+	20480554,
+	20480562,
+	0,
+	0,
+	195920202,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
diff --git a/src/jrd/rdbcodes.h b/src/jrd/rdbcodes.h
new file mode 100644
index 0000000000..0168e47d01
--- /dev/null
+++ b/src/jrd/rdbcodes.h
@@ -0,0 +1,119 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+SS$_NORMAL, 20480010,			/* arith_except (1) */
+	20480018,					/* bad_dbkey (2) */
+	20480026,					/* bad_db_format (3) */
+	20480034,					/* bad_db_handle (4) */
+	20480042,					/* bad_dpb_content (5) */
+	20480050,					/* bad_dpb_form (6) */
+	20480058,					/* bad_req_handle (7) */
+	20480066,					/* bad_segstr_handle (8) */
+	20480074,					/* bad_segstr_id (9) */
+	20480082,					/* bad_tpb_content (10) */
+	20480090,					/* bad_tpb_form (11) */
+	20480098,					/* bad_trans_handle (12) */
+	20480108,					/* bug_check (13) */
+	20480114,					/* convert_error (14) */
+	20480124,					/* db_corrupt (15) */
+	20480130,					/* deadlock (16) */
+	20480138,					/* excess_trans (17) */
+	20480146,					/* from_no_match (18) */
+	20480152,					/* infinap (19) */
+	20480160,					/* infona (20) */
+	20480168,					/* infunk (21) */
+	20480178,					/* integ_fail (22) */
+	20480186,					/* invalid_blr (23) */
+	20480196,					/* io_error (24) */
+	20480202,					/* lock_conflict (25) */
+	20480212,					/* metadata_corrupt (26) */
+	20480218,					/* not_valid (27) */
+	20480226,					/* no_cur_rec (28) */
+	20480234,					/* no_dup (29) */
+	20480243,					/* no_finish (30) */
+	20480250,					/* no_meta_update (31) */
+	20480258,					/* no_priv (32) */
+	20480266,					/* no_recon (33) */
+	20480274,					/* no_record (34) */
+	20480282,					/* no_segstr_close (35) */
+	20480290,					/* obsolete_metadata (36) */
+	20480298,					/* open_trans (37) */
+	20480306,					/* port_len (38) */
+	20480314,					/* read_only_field (39) */
+	20480322,					/* read_only_rel (40) */
+	20480330,					/* read_only_trans (41) */
+	20480338,					/* read_only_view (42) */
+	20480346,					/* req_no_trans (43) */
+	20480354,					/* req_sync (44) */
+	20480362,					/* req_wrong_db (45) */
+	20480369,					/* segment (46) */
+	20480378,					/* segstr_eof (47) */
+	20480386,					/* segstr_no_op (48) */
+	20480394,					/* segstr_no_read (49) */
+	20480402,					/* segstr_no_trans (50) */
+	20480410,					/* segstr_no_write (51) */
+	20480418,					/* segstr_wrong_db (52) */
+	20480436,					/* sys_request (53) */
+	0, 20480442,				/* unavailable (55) */
+	20480450,					/* unres_rel (56) */
+	20480460,					/* uns_ext (57) */
+	20480468,					/* wish_list (58) */
+	20480476,					/* wrong_ods (59) */
+	20480482,					/* wronumarg (60) */
+	20480490,					/* imp_exc (61) */
+	0, 0, 23756810,				/* badblk (64) */
+	23756818,					/* invpoolcl (65) */
+	23756826,					/* nopoolids (66) */
+	23756834,					/* relbadblk (67) */
+	23756842,					/* blktoobig (68) */
+	23756850,					/* bufexh (69) */
+	23756858,					/* syntaxerr (70) */
+	23756866,					/* bufinuse (71) */
+	23756874,					/* bdbincon (72) */
+	23756882,					/* reqinuse (73) */
+	23756890,					/* badodsver (74) */
+	23756898,					/* relnotdef (75) */
+	23756906,					/* fldnotdef (76) */
+	23756915,					/* dirtypage (77) */
+	23756923,					/* waifortra (78) */
+	23756930,					/* doubleloc (79) */
+	23756939,					/* nodnotfnd (80) */
+	23756947,					/* dupnodfnd (81) */
+	23756963,					/* locnotmar (82) */
+	23756972,					/* badpagtyp (83) */
+	23756980,					/* corrupt (84) */
+	23756987,					/* badpage (85) */
+	23757003,					/* badindex (86) */
+	23757010,					/* dbbnotzer (87) */
+	23757018,					/* tranotzer (88) */
+	23757026,					/* trareqmis (89) */
+	23757034,					/* badhndcnt (90) */
+	23757042,					/* wrotpbver (91) */
+	23757050,					/* wroblrver (92) */
+	23757058,					/* wrodpbver (93) */
+	23757066,					/* blobnotsup (94) */
+	23757074,					/* badrelation (95) */
+	23757083,					/* nodetach (96) */
+	23757242,					/* notremote (97) */
+	23757250,					/* trainlim (98) */
+	23757258,					/* notinlim (99) */
+	23757266,					/* traoutsta (100) */
+	23757274,					/* connect_reject (101) */
+	23757282,					/* dbfile (102) */
+	23757291,					/* orphan (103) */
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
diff --git a/src/jrd/rdbcodes.mar b/src/jrd/rdbcodes.mar
new file mode 100644
index 0000000000..7f5ac24791
--- /dev/null
+++ b/src/jrd/rdbcodes.mar
@@ -0,0 +1,91 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+;
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+;
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+;
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+
+	.title	rdbcodes	rdb/vms codes
+RDB$_ARITH_EXCEPT	== 20480010
+RDB$_BAD_DBKEY	== 20480018
+RDB$_BAD_DB_FORMAT	== 20480026
+RDB$_BAD_DB_HANDLE	== 20480034
+RDB$_BAD_DPB_CONTENT	== 20480042
+RDB$_BAD_DPB_FORM	== 20480050
+RDB$_BAD_REQ_HANDLE	== 20480058
+RDB$_BAD_SEGSTR_HANDLE	== 20480066
+RDB$_BAD_SEGSTR_ID	== 20480074
+RDB$_BAD_TPB_CONTENT	== 20480082
+RDB$_BAD_TPB_FORM	== 20480090
+RDB$_BAD_TRANS_HANDLE	== 20480098
+RDB$_BUG_CHECK	== 20480108
+RDB$_CONVERT_ERROR	== 20480114
+RDB$_DB_CORRUPT	== 20480124
+RDB$_DEADLOCK	== 20480130
+RDB$_EXCESS_TRANS	== 20480138
+RDB$_FROM_NO_MATCH	== 20480146
+RDB$_INFINAP	== 20480152
+RDB$_INFONA	== 20480160
+RDB$_INFUNK	== 20480168
+RDB$_INTEG_FAIL	== 20480178
+RDB$_INVALID_BLR	== 20480186
+RDB$_IO_ERROR	== 20480196
+RDB$_LOCK_CONFLICT	== 20480202
+RDB$_METADATA_CORRUPT	== 20480212
+RDB$_NOT_VALID	== 20480218
+RDB$_NO_CUR_REC	== 20480226
+RDB$_NO_DUP	== 20480234
+RDB$_NO_FINISH	== 20480243
+RDB$_NO_META_UPDATE	== 20480250
+RDB$_NO_PRIV	== 20480258
+RDB$_NO_RECON	== 20480266
+RDB$_NO_RECORD	== 20480274
+RDB$_NO_SEGSTR_CLOSE	== 20480282
+RDB$_OBSOLETE_METADATA	== 20480290
+RDB$_OPEN_TRANS	== 20480298
+RDB$_PORT_LEN	== 20480306
+RDB$_READ_ONLY_FIELD	== 20480314
+RDB$_READ_ONLY_REL	== 20480322
+RDB$_READ_ONLY_TRANS	== 20480330
+RDB$_READ_ONLY_VIEW	== 20480338
+RDB$_REQ_NO_TRANS	== 20480346
+RDB$_REQ_SYNC	== 20480354
+RDB$_REQ_WRONG_DB	== 20480362
+RDB$_SEGMENT	== 20480369
+RDB$_SEGSTR_EOF	== 20480378
+RDB$_SEGSTR_NO_OP	== 20480386
+RDB$_SEGSTR_NO_READ	== 20480394
+RDB$_SEGSTR_NO_TRANS	== 20480402
+RDB$_SEGSTR_NO_WRITE	== 20480410
+RDB$_SEGSTR_WRONG_DB	== 20480418
+RDB$_STREAM_EOF	== 20480426
+RDB$_SYS_REQUEST	== 20480436
+RDB$_UNAVAILABLE	== 20480442
+RDB$_UNRES_REL	== 20480450
+RDB$_UNS_EXT	== 20480460
+RDB$_WISH_LIST	== 20480468
+RDB$_WRONG_ODS	== 20480476
+RDB$_WRONUMARG	== 20480482
+RDB$_IMP_EXC	== 20480490
+RDB$_BAD_MSG_VEC	== 20480498
+RDB$_BAD_DETACH	== 20480504
+RDB$_NOARGACC_READ	== 20480516
+RDB$_NOARGACC_WRITE	== 20480524
+RDB$_READ_ONLY	== 20480530
+RDB$_EXT_ERR	== 20480538
+RDB$_CONNECT_REJECT	== 20480546
+RDB$_NON_UPDATABLE	== 20480554
+RDB$_NO_ROLLBACK	== 20480562
+RDB$_BAD_SEC_INFO	== 20480570
+RDB$_INVALID_SEC_INFO	== 20480578
+	.end
diff --git a/src/jrd/rdbgentry.mar b/src/jrd/rdbgentry.mar
new file mode 100644
index 0000000000..5a3e0926e0
--- /dev/null
+++ b/src/jrd/rdbgentry.mar
@@ -0,0 +1,55 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+;
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+;
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+;
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+
+	.title	rdbgentry	"GDS Shareable Library Entry Vector"
+
+	.macro	entry	foo
+	.transfer	foo
+	.mask		foo
+	jmp		l^foo+2
+	.endm
+
+entry	rdb$compile_request		; 0
+entry	rdb$release_request		; 8
+entry	rdb$unwind_request		; 16
+entry	rdb$attach_database		; 24
+entry	rdb$create_database		; 32
+entry	rdb$detach_database		; 40
+entry	rdb$commit_transaction		; 48
+entry	rdb$prepare_transaction	; 56
+entry	rdb$rollback_transaction	; 64
+entry	rdb$start_transaction		; 72
+entry	rdb$start_and_send		; 80
+entry	rdb$start_request		; 88
+entry	rdb$receive			; 96
+entry	rdb$send			; 104
+entry	rdb$database_info		; 112
+entry	rdb$request_info		; 120
+entry	rdb$transaction_info		; 128
+entry	rdb$create_segmented_string	; 136
+entry	rdb$open_segmented_string	; 144
+entry	rdb$close_segmented_string	; 152
+entry	rdb$get_segment			; 160
+entry	rdb$put_segment			; 168
+entry	rdb$ddl				; 176
+entry	rdb$extension			; 184
+entry	rdb$dummy1			; 192
+entry	rdb$cancel_segmented_string	; 200
+entry	rdb$reconnect_transaction	; 208
+entry	rdb$segmented_string_info	; 216
+
+	.end
diff --git a/src/jrd/rdbgpas.cpp b/src/jrd/rdbgpas.cpp
new file mode 100644
index 0000000000..ebc1247e97
--- /dev/null
+++ b/src/jrd/rdbgpas.cpp
@@ -0,0 +1,128 @@
+/*
+ *	PROGRAM:	rdbvmsinit
+ *	MODULE:		rdbvmsinit.c
+ *	DESCRIPTION:	imitate rdb$vmsinitpas
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include descrip
+#include ssdef
+#include "../jrd/common.h"
+#include "../jrd/rdb.h"
+
+/* Transaction element block */
+
+typedef struct teb {
+	int *teb_database;
+	int teb_tpb_length;
+	SCHAR *teb_tpb;
+} TEB;
+
+int RDB$MSG_VECTOR[20];
+
+static int gds_to_rdb(int *, int *);
+static int set_status(int *, int);
+
+static int status_vector[20];
+
+static SLONG codes[] = {
+#include "rdbcodes.h"
+};
+
+
+int rdb$vmspas_init(int dbcount, int *d)
+{
+/**************************************
+ *
+ *	r d b $ v m s p a s _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Mimic RdB's rdb$vmspas_init
+ *
+ **************************************/
+	TEB tebs[16], *teb, *end;
+	struct dsc$descriptor_s *dbname;
+	int *dbhandle, *trhandle, stat, **v, i;
+
+	stat = 1;
+	v = &d;
+	for (i = 0; i < dbcount; i++) {
+		dbname = *v++;
+		tebs[i].teb_database = dbhandle = *v++;
+		tebs[i].teb_tpb_length = 0;
+		tebs[i].teb_tpb = 0;
+		if (!(*dbhandle)) {
+			if (!(stat = rdb$attach_database(RDB$MSG_VECTOR, dbname, dbhandle,
+											 0, 0, 0)))
+				return stat;
+		}
+	}
+	trhandle = *v++;
+	if (trhandle && (!(*trhandle))) {
+		gds__start_multiple(status_vector, trhandle, dbcount, tebs);
+		stat = gds_to_rdb(status_vector, RDB$MSG_VECTOR);
+	}
+
+	return stat;
+}
+
+
+static int gds_to_rdb(int *status_vector, int *user_status)
+{
+/**************************************
+ *
+ *	g d s _ t o _ r d b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a status vector from the Groton world to the RDB world.
+ *
+ **************************************/
+	int code, trans;
+	USHORT fac = 0, class_ = 0;
+
+	code = gds__decode(status_vector[1], &fac, &class_);
+	trans = codes[code];
+
+	return set_status(user_status, trans);
+}
+
+
+static int set_status(int *status, int code)
+{
+/**************************************
+ *
+ *	s e t _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate an error for a bad handle.
+ *
+ **************************************/
+
+	*status++ = 1;
+	*status++ = code;
+	*status = 0;
+
+	return code;
+}
diff --git a/src/jrd/rdbint.cpp b/src/jrd/rdbint.cpp
new file mode 100644
index 0000000000..d396761445
--- /dev/null
+++ b/src/jrd/rdbint.cpp
@@ -0,0 +1,1214 @@
+/*
+ *	PROGRAM:	Rdb/GDS Access Method Interface
+ *	MODULE:		rdbint.c
+ *	DESCRIPTION:	Rdb/VMS interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include descrip
+#include ssdef
+
+#include "../jrd/lnmdef.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/common.h"
+
+#define RDB_IMAGE	"RDBVMSSHR"
+#define RDB_CALL(name)	if (!name) find_symbol (&name,"name"); (*name)
+#define CHECK_HANDLE(handle,code)	if (check_handle(handle))\
+		 			return bad_handle (user_status, code)
+
+#define rdb$bad_req_handle	20480058
+
+typedef struct handle {
+	int *handle;
+	int *messages;
+	struct handle *parent;
+	struct handle *next;
+} *HANDLE, *REQ, *DBB, *TRA, *BLB;
+
+typedef struct teb {
+	DBB *teb_database;
+	int teb_tpb_length;
+	UCHAR *teb_tpb;
+} TEB;
+
+static USHORT debug_flags;
+static UCHAR *temp_buffer;
+static SLONG temp_buffer_length;
+static struct handle empty_handle;
+
+
+#define DEBUG_BLR	1
+#define DEBUG_ERROR_BLR	2
+
+static int (*RDB$ATTACH_DATABASE) (),
+	(*RDB$COMMIT_TRANSACTION) (),
+	(*RDB$COMPILE_REQUEST) (),
+	(*RDB$CREATE_DATABASE) (),
+	(*RDB$DETACH_DATABASE) (),
+	(*RDB$PREPARE_TRANSACTION) (),
+	(*RDB$RECEIVE) (),
+	(*RDB$RELEASE_REQUEST) (),
+	(*RDB$ROLLBACK_TRANSACTION) (),
+	(*RDB$SEND) (),
+	(*RDB$START_AND_SEND) (),
+	(*RDB$START_REQUEST) (),
+	(*RDB$START_TRANSACTION) (),
+	(*RDB$UNWIND_REQUEST) (),
+	(*RDB$CREATE_SEGMENTED_STRING) (),
+	(*RDB$OPEN_SEGMENTED_STRING) (),
+	(*RDB$CLOSE_SEGMENTED_STRING) (),
+	(*RDB$CANCEL_SEGMENTED_STRING) (),
+	(*RDB$GET_SEGMENT) (),
+	(*RDB$PUT_SEGMENT) (),
+	(*RDB$SEGMENTED_STRING_INFO) (),
+	(*RDB$REQUEST_INFO) (),
+	(*RDB$DATABASE_INFO) (),
+	(*RDB$TRANSACTION_INFO) (), (*RDB$RECONNECT_TRANSACTION) ();
+
+static HANDLE allocate_handle(int *);
+static UCHAR *allocate_temp(int);
+static int bad_handle(int *, int);
+static int check_handle(HANDLE *);
+static int condition_handler(int *, int *, int *);
+static int find_symbol(int *, UCHAR *);
+static void init(void);
+static void make_desc(UCHAR *, int, struct dsc$descriptor *);
+
+
+int RDB_attach_database(
+						int *user_status,
+						SSHORT file_length,
+						SCHAR * file_name,
+						DBB * handle,
+SSHORT dpb_length, SCHAR * dpb, SSHORT db_type)
+{
+/**************************************
+ *
+ *	G D S _ A T T A C H _ D A T A B A S E
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attempt to attach an RDB database.  Since
+ *	we and RDB share some dpb values and have
+ *	the same values for different paramters in
+ *	other cases.  The results of misunderstandings 
+ *      are bad, so we strip off our extended parameters.
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+	struct dsc$descriptor_s name;
+	SCHAR new_dpb[128], *p, *q;
+	SSHORT new_length, l, c_len;
+
+	init();
+
+	if (!RDB$ATTACH_DATABASE &&
+		!find_symbol(&RDB$ATTACH_DATABASE, "RDB$ATTACH_DATABASE")) {
+		user_status[0] = gds_arg_gds;
+		user_status[1] = gds_unavailable;
+		user_status[0] = 0;
+		return user_status[1];
+	}
+
+	if (dpb_length > 1) {
+		p = new_dpb;
+		q = dpb;
+		*p++ = gds_dpb_version1;
+		q++;
+		for (l = dpb_length; l; l -= (q - dpb))
+			if (*q < gds_dpb_damaged) {
+				*p++ = *q++;
+				c_len = *p++ = *q++;
+				while (c_len--)
+					*p++ = *q++;
+			}
+			else {
+				*q++;
+				c_len = *q++;
+				while (c_len--)
+					*q++;
+			}
+
+		if ((new_length = p - new_dpb) == 1)
+			new_length = 0;
+	}
+	else
+		new_length = 0;
+
+	make_desc(file_name, file_length, &name);
+	RDB_CALL(RDB$ATTACH_DATABASE) (status_vector, &name, handle, new_length,
+								   new_dpb);
+
+	if (!(stat = MAP_status_to_gds(status_vector, user_status)))
+		*handle = allocate_handle(*handle);
+
+	return stat;
+}
+
+
+int RDB_blob_info(
+				  int *user_status,
+				  BLB * handle,
+				  SSHORT item_length,
+				  SCHAR * items, SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ b l o b _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get info on object.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	CHECK_HANDLE(handle, gds_bad_segstr_handle);
+
+	RDB_CALL(RDB$SEGMENTED_STRING_INFO) (status_vector, &(*handle)->handle,
+										 item_length, items, buffer_length,
+										 buffer);
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+int RDB_cancel_blob(int *user_status, BLB * blob_handle)
+{
+/**************************************
+ *
+ *	R D B _ C A N C E L _ B L O B
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel a blob (surprise!)
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+
+	if (!*blob_handle) {
+		if (user_status) {
+			*user_status++ = gds_arg_gds;
+			*user_status++ = 0;
+		}
+		return 0;
+	}
+
+	RDB_CALL(RDB$CANCEL_SEGMENTED_STRING) (status_vector,
+										   &(*blob_handle)->handle);
+
+	if (!(stat = MAP_status_to_gds(status_vector, user_status))) {
+		gds__free(*blob_handle);
+		*blob_handle = NULL;
+	}
+
+	return stat;
+}
+
+
+int RDB_close_blob(int *user_status, BLB * blob_handle)
+{
+/**************************************
+ *
+ *	R D B _ C L O S E _ B L O B
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a blob (surprise!)
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+
+	CHECK_HANDLE(blob_handle, gds_bad_segstr_handle);
+
+	RDB_CALL(RDB$CLOSE_SEGMENTED_STRING) (status_vector,
+										  &(*blob_handle)->handle);
+
+	if (!(stat = MAP_status_to_gds(status_vector, user_status))) {
+		gds__free(*blob_handle);
+		*blob_handle = NULL;
+	}
+
+	return stat;
+}
+
+
+int RDB_commit_transaction(int *user_status, TRA * tra_handle)
+{
+/**************************************
+ *
+ *	G D S _ C O M M I T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit a transaction.
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+
+	CHECK_HANDLE(tra_handle, gds_bad_trans_handle);
+	RDB_CALL(RDB$COMMIT_TRANSACTION) (status_vector, &(*tra_handle)->handle);
+
+	if (!(stat = MAP_status_to_gds(status_vector, user_status))) {
+		gds__free(*tra_handle);
+		*tra_handle = NULL;
+	}
+
+	return stat;
+}
+
+
+int RDB_compile_request(
+						int *user_status,
+						DBB * db_handle,
+						REQ * req_handle, SSHORT blr_length, SCHAR * blr)
+{
+/**************************************
+ *
+ *	G D S _ C O M P I L E
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+	int *messages;
+	UCHAR *temp;
+	USHORT temp_length;
+	DBB database;
+	REQ request;
+	SLONG max_length;
+
+	CHECK_HANDLE(db_handle, gds_bad_db_handle);
+	messages = NULL;
+	database = *db_handle;
+	temp = allocate_temp(blr_length + 200);
+
+	if (messages =
+		MAP_parse_blr(blr, blr_length, temp, &temp_length, &max_length)) {
+		blr = temp;
+		blr_length = temp_length;
+		allocate_temp(max_length);
+	}
+
+	RDB_CALL(RDB$COMPILE_REQUEST) (status_vector, &database->handle,
+								   req_handle, blr_length, blr);
+
+	if (stat = MAP_status_to_gds(status_vector, user_status))
+		MAP_release(messages);
+	else {
+		*req_handle = request = allocate_handle(*req_handle);
+		request->messages = messages;
+		request->parent = database;
+		request->next = database->next;
+		database->next = request;
+	}
+
+	return stat;
+}
+
+
+int RDB_create_blob(
+					int *user_status,
+					HANDLE * db_handle,
+					HANDLE * tra_handle,
+					HANDLE * blob_handle, GDS_QUAD * blob_id)
+{
+/**************************************
+ *
+ *	R D B _ C R E A T E _ B L O B
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a segment from a blob (surprise!)
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+
+	CHECK_HANDLE(db_handle, gds_bad_db_handle);
+	CHECK_HANDLE(tra_handle, gds_bad_trans_handle);
+
+	RDB_CALL(RDB$CREATE_SEGMENTED_STRING) (status_vector,
+										   &(*db_handle)->handle,
+										   &(*tra_handle)->handle,
+										   blob_handle, blob_id);
+
+	if (!(stat = MAP_status_to_gds(status_vector, user_status)))
+		*blob_handle = allocate_handle(*blob_handle);
+
+	return stat;
+}
+
+
+int RDB_create_database(
+						int *user_status,
+						USHORT file_length,
+						UCHAR * file_name,
+						DBB * handle,
+USHORT dpb_length, UCHAR * dpb, USHORT db_type)
+{
+/**************************************
+ *
+ *	G D S _ C R E A T E _ D A T A B A S E
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeeky clean database, uncorrupted by user data.
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+	struct dsc$descriptor_s name;
+
+/* Try GDS first; if ok, we're done */
+
+	init();
+	if (!RDB$CREATE_DATABASE &&
+		!find_symbol(&RDB$CREATE_DATABASE, "RDB$ATTACH_DATABASE")) {
+		user_status[0] = gds_arg_gds;
+		user_status[1] = gds_unavailable;
+		user_status[0] = 0;
+		return user_status[1];
+	}
+
+	make_desc(file_name, file_length, &name);
+	RDB_CALL(RDB$CREATE_DATABASE) (status_vector, &name, handle, dpb_length,
+								   dpb, db_type);
+
+	if (!(stat = MAP_status_to_gds(status_vector, user_status)))
+		*handle = allocate_handle(*handle);
+
+	return stat;
+}
+
+
+int RDB_database_info(
+					  int *user_status,
+					  DBB * handle,
+					  SSHORT item_length,
+					  SCHAR * items, SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ d a t a b a s e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get info on object.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	SCHAR item, *item_ptr, *end, *tmp_ptr, tmp_buff[32];
+	SSHORT len;
+
+	CHECK_HANDLE(handle, gds_bad_db_handle);
+
+/* Rdb implemented some new db info items which overlap ours!
+   If we're here, we're known to be coming from gds, so force them
+   to return error by upping our codes */
+
+	tmp_ptr = tmp_buff;
+	item_ptr = items;
+	end = item_ptr + item_length;
+	while (item_ptr < end) {
+		*tmp_ptr = item = *item_ptr++;
+		if (item > gds_info_limbo)
+			*tmp_ptr += 200;
+		tmp_ptr++;
+	}
+
+	RDB_CALL(RDB$DATABASE_INFO) (status_vector, &(*handle)->handle,
+								 item_length, &tmp_buff, buffer_length,
+								 buffer);
+
+/* Now clean the clumplets all back up again... */
+
+	item_ptr = buffer;
+	end = item_ptr + buffer_length;
+	while (item_ptr < end) {
+		item = *item_ptr++;
+		len = *item_ptr++;
+		len |= (*item_ptr++) << 8;
+		if (item == gds_info_error && *item_ptr > 200)
+			*item_ptr -= 200;
+		else if (item == gds_info_end || item == gds_info_truncated)
+			break;
+		item_ptr += len;
+	}
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+int RDB_detach_database(int *user_status, DBB * handle)
+{
+/**************************************
+ *
+ *	G D S _ D E T A C H
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a database.
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+	DBB database;
+	REQ request;
+
+	CHECK_HANDLE(handle, gds_bad_db_handle);
+	database = *handle;
+
+	RDB_CALL(RDB$DETACH_DATABASE) (status_vector, &database->handle);
+
+	if (!(stat = MAP_status_to_gds(status_vector, user_status))) {
+		while (request = database->next) {
+			database->next = request->next;
+			MAP_release(request->messages);
+			gds__free(request);
+		}
+		gds__free(database);
+		*handle = NULL;
+	}
+
+	return stat;
+}
+
+
+int RDB_get_segment(
+					int *user_status,
+					BLB * blob_handle,
+					SSHORT * length, SSHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	R D B _ G E T _ S E G M E N T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a segment from a blob (surprise!)
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	CHECK_HANDLE(blob_handle, gds_bad_segstr_handle);
+
+	RDB_CALL(RDB$GET_SEGMENT) (status_vector, &(*blob_handle)->handle,
+							   length, buffer_length, buffer);
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+int RDB_open_blob(
+				  int *user_status,
+				  HANDLE * db_handle,
+				  HANDLE * tra_handle,
+				  HANDLE * blob_handle, GDS_QUAD * blob_id)
+{
+/**************************************
+ *
+ *	R D B _ O P E N _ B L O B
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a segment from a blob (surprise!)
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+
+	CHECK_HANDLE(db_handle, gds_bad_db_handle);
+	CHECK_HANDLE(tra_handle, gds_bad_trans_handle);
+
+	RDB_CALL(RDB$OPEN_SEGMENTED_STRING) (status_vector, &(*db_handle)->handle,
+										 &(*tra_handle)->handle, blob_handle,
+										 blob_id);
+
+	if (!(stat = MAP_status_to_gds(status_vector, user_status)))
+		*blob_handle = allocate_handle(*blob_handle);
+
+	return stat;
+}
+
+
+int RDB_prepare_transaction(int *user_status, TRA * tra_handle)
+{
+/**************************************
+ *
+ *	G D S _ P R E P A R E
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First phase of a two
+ *	phase commit.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	CHECK_HANDLE(tra_handle, gds_bad_trans_handle);
+	RDB_CALL(RDB$PREPARE_TRANSACTION) (status_vector, &(*tra_handle)->handle);
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+int RDB_put_segment(
+					int *user_status,
+					BLB * blob_handle, SSHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	R D B _ P U T _ S E G M E N T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a segment into a blob (surprise!)
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	CHECK_HANDLE(blob_handle, gds_bad_segstr_handle);
+
+	RDB_CALL(RDB$PUT_SEGMENT) (status_vector, &(*blob_handle)->handle,
+							   buffer_length, buffer);
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+int RDB_receive(
+				int *user_status,
+				REQ * req_handle,
+				USHORT msg_type, USHORT msg_length, SCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	G D S _ R E C E I V E
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.  Note
+ *	that compile has already wandered through
+ *	and made the temporary buffer large enough
+ *	for the largest message.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	int length;
+	UCHAR *temp;
+
+	CHECK_HANDLE(req_handle, gds_bad_req_handle);
+	temp = allocate_temp(0);
+
+	if (length = MAP_rdb_length(msg_type, (*req_handle)->messages)) {
+		RDB_CALL(RDB$RECEIVE) (status_vector, &(*req_handle)->handle,
+							   msg_type, length, temp, level);
+		MAP_rdb_to_gds(msg_type, (*req_handle)->messages, temp, msg);
+	}
+	else {
+		RDB_CALL(RDB$RECEIVE) (status_vector, &(*req_handle)->handle,
+							   msg_type, msg_length, msg, level);
+	}
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+int RDB_reconnect_transaction(
+							  int *user_status,
+							  DBB * db_handle,
+							  TRA * tra_handle, SSHORT length, UCHAR * id)
+{
+/**************************************
+ *
+ *	G D S _ R E C O N N E C T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reconnect to a transaction in limbo.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	RDB_CALL(RDB$RECONNECT_TRANSACTION) (status_vector,
+										 (*db_handle)->handle,
+										 (*tra_handle)->handle, length, id);
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+int RDB_release_request(int *user_status, REQ * req_handle)
+{
+/**************************************
+ *
+ *	G D S _ R E L E A S E _ R E Q U E S T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request.
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+	DBB database;
+	REQ request, *ptr;
+
+	CHECK_HANDLE(req_handle, gds_bad_req_handle);
+
+	request = *req_handle;
+	RDB_CALL(RDB$RELEASE_REQUEST) (status_vector, &request->handle);
+
+	if (!(stat = MAP_status_to_gds(status_vector, user_status))) {
+		database = request->parent;
+		for (ptr = &database->next; *ptr; ptr = &(*ptr)->next)
+			if (*ptr == request) {
+				*ptr = request->next;
+				break;
+			}
+		MAP_release(request->messages);
+		gds__free(request);
+		*req_handle = NULL;
+	}
+
+	return stat;
+}
+
+
+int RDB_request_info(
+					 int *user_status,
+					 REQ * handle,
+					 SSHORT level,
+					 SSHORT item_length,
+					 SCHAR * items, SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ r e q u e s t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get info on object.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	CHECK_HANDLE(handle, gds_bad_req_handle);
+
+	RDB_CALL(RDB$REQUEST_INFO) (status_vector, &(*handle)->handle, level,
+								item_length, items, buffer_length, buffer);
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+int RDB_rollback_transaction(int *user_status, TRA * tra_handle)
+{
+/**************************************
+ *
+ *	G D S _ R O L L B A C K
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction.
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+
+	CHECK_HANDLE(tra_handle, gds_bad_trans_handle);
+	RDB_CALL(RDB$ROLLBACK_TRANSACTION) (status_vector,
+										&(*tra_handle)->handle);
+
+	if (!(stat = MAP_status_to_gds(status_vector, user_status))) {
+		gds__free(*tra_handle);
+		*tra_handle = NULL;
+	}
+
+	return stat;
+}
+
+
+int RDB_send(
+			 int *user_status,
+			 REQ * req_handle,
+			 USHORT msg_type, USHORT msg_length, SCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	G D S _ S E N D
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.  Note that
+ *	the compile call has already checked and made the
+ *	buffer big enough.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	UCHAR *temp;
+	int length;
+
+
+	temp = allocate_temp(0);
+
+	if (length = MAP_gds_to_rdb(msg_type, (*req_handle)->messages, msg, temp)) {
+		msg_length = length;
+		msg = temp;
+	}
+
+	RDB_CALL(RDB$SEND) (status_vector, &(*req_handle)->handle,
+						msg_type, msg_length, msg, level);
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+int RDB_start_and_send(
+					   int *user_status,
+					   REQ * req_handle,
+					   TRA * tra_handle,
+					   USHORT msg_type,
+USHORT msg_length, SCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	G D S _ S T A R T _ A N D _ S E N D
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.  Note
+ *	that compile has already made the temporary
+ *	buffer large enough for the largest message.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	UCHAR *temp;
+	int length;
+
+	CHECK_HANDLE(tra_handle, gds_bad_trans_handle);
+	CHECK_HANDLE(req_handle, gds_bad_req_handle);
+	temp = allocate_temp(0);
+
+	if (length = MAP_gds_to_rdb(msg_type, (*req_handle)->messages, msg, temp)) {
+		msg_length = length;
+		msg = temp;
+	}
+
+	RDB_CALL(RDB$START_AND_SEND) (status_vector, &(*req_handle)->handle,
+								  &(*tra_handle)->handle, msg_type,
+								  msg_length, msg, level);
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+int RDB_start_request(
+					  int *user_status,
+					  register REQ * req_handle,
+					  register TRA * tra_handle, SSHORT level)
+{
+/**************************************
+ *
+ *	G D S _ S T A R T _ R E Q U E S T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	CHECK_HANDLE(tra_handle, gds_bad_trans_handle);
+	CHECK_HANDLE(req_handle, gds_bad_req_handle);
+
+	RDB_CALL(RDB$START_REQUEST) (status_vector, &(*req_handle)->handle,
+								 &(*tra_handle)->handle, level);
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+int RDB_start_multiple(
+					   int *user_status,
+					   TRA * tra_handle, SSHORT count, TEB * teb)
+{
+/**************************************
+ *
+ *	G D S _ S T A R T _ M U L T I P L E
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+	DBB database;
+	int rdb_vector[32], *rdb, c;
+
+	if (*tra_handle)
+		return bad_handle(user_status, gds_bad_trans_handle);
+
+	rdb = rdb_vector;
+	*rdb++ = 0;
+	*rdb++ = status_vector;
+	*rdb++ = tra_handle;
+	*rdb++ = 0;
+
+	for (c = 0; c < count; c++, teb++) {
+		database = *teb->teb_database;
+		if (!database)
+			return bad_handle(user_status, gds_bad_db_handle);
+		++rdb_vector[3];
+		*rdb++ = &database->handle;
+		*rdb++ = teb->teb_tpb_length;
+		*rdb++ = teb->teb_tpb;
+	}
+
+	rdb_vector[0] = rdb - rdb_vector - 1;
+	find_symbol(&RDB$START_TRANSACTION, "RDB$START_TRANSACTION");
+	lib$callg(rdb_vector, RDB$START_TRANSACTION);
+
+	if (!(stat = MAP_status_to_gds(status_vector, user_status)))
+		*tra_handle = allocate_handle(*tra_handle);
+
+	return stat;
+}
+
+
+int RDB_start_transaction(
+						  int *user_status,
+						  TRA * tra_handle,
+						  SSHORT count,
+						  DBB * db_handle, SSHORT tpb_length, SCHAR * tpb)
+{
+/**************************************
+ *
+ *	G D S _ S T A R T _ T R A N S A C T I O N
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+	STATUS stat, status_vector[20];
+	TEB *teb;
+	DBB database;
+	int rdb_vector[32], *rdb, c;
+
+	if (*tra_handle)
+		return bad_handle(user_status, gds_bad_trans_handle);
+
+	rdb = rdb_vector;
+	*rdb++ = 0;
+	*rdb++ = status_vector;
+	*rdb++ = tra_handle;
+	*rdb++ = 0;
+
+	for (teb = &db_handle, c = 0; c < count; c++, teb++) {
+		database = *teb->teb_database;
+		if (!database)
+			return bad_handle(user_status, gds_bad_db_handle);
+		++rdb_vector[3];
+		*rdb++ = &database->handle;
+		*rdb++ = teb->teb_tpb_length;
+		*rdb++ = teb->teb_tpb;
+	}
+
+	rdb_vector[0] = rdb - rdb_vector - 1;
+	find_symbol(&RDB$START_TRANSACTION, "RDB$START_TRANSACTION");
+	lib$callg(rdb_vector, RDB$START_TRANSACTION);
+
+	if (!(stat = MAP_status_to_gds(status_vector, user_status)))
+		*tra_handle = allocate_handle(*tra_handle);
+
+	return stat;
+}
+
+
+int RDB_transaction_info(
+						 int *user_status,
+						 TRA * handle,
+						 SSHORT item_length,
+						 SCHAR * items, SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ t r a n s a c t i o n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get info on object.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	CHECK_HANDLE(handle, gds_bad_trans_handle);
+
+	RDB_CALL(RDB$TRANSACTION_INFO) (status_vector, &(*handle)->handle,
+									item_length, items, buffer_length,
+									buffer);
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+int RDB_unwind_request(int *user_status, REQ * req_handle, SSHORT level)
+{
+/**************************************
+ *
+ *	G D S _ U N W I N D _ R E Q U E S T
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a running request.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	CHECK_HANDLE(req_handle, gds_bad_req_handle);
+
+	RDB_CALL(RDB$UNWIND_REQUEST) (status_vector, &(*req_handle)->handle,
+								  level);
+
+	return MAP_status_to_gds(status_vector, user_status);
+}
+
+
+static HANDLE allocate_handle(int *real_handle)
+{
+/**************************************
+ *
+ *	a l l o c a t e _ h a n d l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate an indirect handle.
+ *
+ **************************************/
+	HANDLE handle;
+
+	handle = gds__alloc((SLONG) sizeof(struct handle));
+/* FREE: unknown - user process? */
+	if (!handle)				/* NOMEM: not a great handler */
+		return NULL;
+	*handle = empty_handle;
+	handle->handle = real_handle;
+
+	return handle;
+}
+
+
+static UCHAR *allocate_temp(int length)
+{
+/**************************************
+ *
+ *	a l l o c a t e _ t e m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a temp of at least a given size.
+ *
+ **************************************/
+
+	if (length && temp_buffer_length < length) {
+		if (temp_buffer)
+			gds__free(temp_buffer);
+		temp_buffer = gds__alloc((SLONG) length);
+		/* FREE: unknown, reallocation handled above */
+		/* NOMEM: Caller must handle */
+		if (temp_buffer)
+			temp_buffer_length = length;
+		else
+			temp_buffer_length = 0;
+	}
+
+	return temp_buffer;
+}
+
+
+static int bad_handle(int *user_status, int code)
+{
+/**************************************
+ *
+ *	b a d _ h a n d l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate an error for a bad handle.
+ *
+ **************************************/
+	int local_status[20];
+	int trans, *vector;
+
+	vector = (user_status) ? user_status : local_status;
+	*vector++ = gds_arg_gds;
+	*vector++ = code;
+	*vector = 0;
+
+	return user_status[1];
+}
+
+
+static int check_handle(HANDLE * handle)
+{
+/**************************************
+ *
+ *	c h e c k _ h a n d l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate a handle.  Return TRUE if it's lousy.
+ *
+ **************************************/
+	HANDLE blk;
+
+	if (blk = *handle)
+		return FALSE;
+
+	return TRUE;
+}
+
+
+static int condition_handler(int *sig.int *mech.int *enbl)
+{
+/**************************************
+ *
+ *	c o n d i t i o n _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Ignore signal from "lib$find_symbol".
+ *
+ **************************************/
+
+	return SS$_CONTINUE;
+}
+
+
+static int find_symbol(int *address, UCHAR * name)
+{
+/**************************************
+ *
+ *	f i n d _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up entrypoint into RDB image.
+ *
+ **************************************/
+	struct dsc$descriptor file, symbol;
+
+	VAXC$ESTABLISH(condition_handler);
+	make_desc(RDB_IMAGE, 0, &file);
+	make_desc(name, 0, &symbol);
+	lib$find_image_symbol(&file, &symbol, address);
+
+	return *address;
+}
+
+
+static void init(void)
+{
+/**************************************
+ *
+ *	i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize module.  Mostly just look up the
+ *	Rdb/VMS debug flags.
+ *
+ **************************************/
+	UCHAR *p, buffer[16];
+	USHORT l;
+	int status;
+	struct dsc$descriptor name, value;
+
+	make_desc("RDMS$DEBUG_FLAGS", 0, &name);
+	make_desc(buffer, sizeof(buffer), &value);
+	status = lib$sys_trnlog(&name, &l, &value);
+
+	if (status != SS$_NORMAL)
+		return;
+
+	for (p = buffer; l; --l)
+		switch (*p++) {
+		case 'B':
+			debug_flags |= DEBUG_BLR;
+			break;
+
+		case 'E':
+			debug_flags |= DEBUG_ERROR_BLR;
+			break;
+		}
+}
+
+
+static void make_desc(
+					  UCHAR * string, int length, struct dsc$descriptor *desc)
+{
+/**************************************
+ *
+ *	m a k e _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fill in VMS descriptor.
+ *
+ **************************************/
+
+	desc->dsc$b_dtype = DSC$K_DTYPE_T;
+	desc->dsc$b_class = DSC$K_CLASS_S;
+	desc->dsc$a_pointer = string;
+
+	if (!(desc->dsc$w_length = length))
+		desc->dsc$w_length = strlen(string);
+}
diff --git a/src/jrd/rec.cpp b/src/jrd/rec.cpp
new file mode 100644
index 0000000000..99da6b71d0
--- /dev/null
+++ b/src/jrd/rec.cpp
@@ -0,0 +1,1110 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		rec.c
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../jrd/jrn.h"
+#include "../jrd/sbm.h"
+#include "../jrd/lck.h"
+#include "../jrd/cch.h"
+#include "../wal/wal.h"
+#include "../jrd/rse.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/misc_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/rec_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../wal/walr_proto.h"
+
+#define MOVE_BYTE(x_from, x_to)	*x_to++ = *x_from++
+
+#define HIGH_WATER(x)		((SSHORT) sizeof (dpg) + (SSHORT) sizeof (dpg::dpg_repeat) * (x - 1))
+
+static void apply_data(DPG, JRND *);
+static void apply_header(HDR, JRND *);
+static void apply_ids(PPG, JRND *);
+static void apply_index(BTR, JRND *);
+static void apply_log(LIP, JRND *);
+static void apply_pip(PIP, JRND *);
+static void apply_pointer(PPG, JRND *);
+static void apply_root(IRT, JRND *);
+static void apply_transaction(TIP, JRND *);
+static void disable(void);
+static JRNP *next_clump(JRND *, JRNP *);
+static void process_page(TDBB, JRND *, SLONG, SLONG, PAG, SBM *, USHORT);
+static void quad_move(register UCHAR *, register UCHAR *);
+static void rec_process_record(TDBB, JRNH *, USHORT, ULONG,
+							   ULONG, PAG, SBM *, USHORT);
+static void scan_and_apply_logs(TEXT *, TEXT *, CP *, SBM *, USHORT, SLONG *,
+								SLONG, PAG);
+
+
+void REC_recover(
+				 TEXT * dbname,
+				 TEXT * walname,
+				 CP * cp1, SBM * sbm_rec, USHORT activate_shadow)
+{
+/**************************************
+ *
+ *	R E C _ r e c o v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do short term recovery.
+ *	Fixup log header at end.
+ *
+ **************************************/
+
+	gds__log("Short term recovery for database \"%s\". Start log file \"%s\"",
+			 dbname, walname);
+
+	scan_and_apply_logs(dbname, walname, cp1, sbm_rec,
+						activate_shadow, (SLONG *) NULL, -1, (PAG) NULL);
+	REC_update_next_transid();
+
+/* Should do the equivalent of 2 control point flush to write
+ * all pages to disk, so that the effects of recovery are not
+ * lost.
+
+ * The control points should not be done for 2 cases -
+ * - if shadows are present, doing a control point will "recover" the
+ *   database.  So a crash before the shadows are recovered will leave
+ *   the shadows out of sync.
+ * - if there is no shared cache, there will be no one to complete
+ *   the control point.
+
+ * The control points are called in CCH_recover_shadow () after the
+ * shadows are recovered.
+ */
+}
+
+
+void REC_recover_page(
+					  TEXT * dbname,
+					  TEXT * walname, CP * cp1, SLONG page_no, PAG page)
+{
+/**************************************
+ *
+ *	R E C _ r e c o v e r _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	recover a single page from a point in time to end of log.
+ *
+ **************************************/
+	SLONG date[2];
+
+/* get current time stamp */
+
+	MOV_time_stamp(reinterpret_cast < ISC_TIMESTAMP * >(date));
+
+	scan_and_apply_logs(dbname, walname, cp1, (SBM *) NULL,
+						0, date, page_no, page);
+}
+
+
+int REC_update_next_transid(void)
+{
+/**************************************
+ *
+ *	R E C _ u p d a t e _ n e x t _ t r a n s i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Used to set the next transaction id from the
+ *      bumped transaction id.
+ *
+ **************************************/
+	WIN window;
+	HDR hdr;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	hdr = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+	hdr->hdr_next_transaction = hdr->hdr_bumped_transaction;
+	CCH_RELEASE(tdbb, &window);
+
+	return SUCCESS;
+}
+
+
+static void apply_data(DPG page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply incremental changes to a data page.
+ *
+ **************************************/
+	DBB dbb;
+	JRNP temp, *clump;
+	SSHORT space, l, top, used;
+	UCHAR *p, *q;
+	dpg::dpg_repeat * index, *end;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* Process clumps */
+
+	for (clump = NULL; clump = next_clump(record, clump);) {
+		MOVE_FAST((SCHAR *) clump, (SCHAR *) & temp, JRNP_SIZE);
+
+		if (temp.jrnp_type != JRNP_DATA_SEGMENT)
+			BUGCHECK(270);		/* msg 270 error in recovery! wrong data page record */
+
+		/* Handle segment deletion */
+
+		if (!temp.jrnp_length) {
+			index = page->dpg_rpt + temp.jrnp_index;
+			index->dpg_offset = 0;
+			index->dpg_length = 0;
+		}
+
+		/* Re-compute page high water mark */
+
+		index = page->dpg_rpt;
+		end = index + page->dpg_count;
+		page->dpg_count = 0;
+		space = dbb->dbb_page_size;
+
+		for (l = 1, used = 0; index < end; index++, l++)
+			if (index->dpg_length) {
+				page->dpg_count = l;
+				space = MIN((int) space, (int) index->dpg_offset);
+				used += ROUNDUP(index->dpg_length, ODS_ALIGNMENT);
+			}
+
+		/* delete record */
+
+		if (!temp.jrnp_length)
+			continue;
+
+		/* Handle segment addition */
+
+		index = page->dpg_rpt + temp.jrnp_index;
+		q = clump->jrnp_data;
+		l = temp.jrnp_length;
+
+		/* If space exists, just all record */
+
+		if (((SCHAR *) index < (SCHAR *) end)
+			&& ((USHORT) l <= index->dpg_length)) {
+			index->dpg_length = l;
+			p = (UCHAR *) page + index->dpg_offset;
+			do
+				*p++ = *q++;
+			while (--l);
+			continue;
+		}
+
+		page->dpg_count =
+			MAX((int) page->dpg_count, (int) (temp.jrnp_index + 1));
+		top = HIGH_WATER(page->dpg_count);
+		l = ROUNDUP(l, ODS_ALIGNMENT);
+		space -= l;
+
+		/* Compress the page and make space */
+
+		if (space < top) {
+			index->dpg_length = 0;
+			space = DPM_compress(tdbb, page);
+			space -= l;
+			if (space < top)
+				BUGCHECK(271);	/* msg 271 error in recovery! no space on data page */
+		}
+
+		if ((space + l) > dbb->dbb_page_size)
+			BUGCHECK(269);		/* msg 269 error in recovery! database corrupted */
+
+		index->dpg_offset = space;
+		index->dpg_length = temp.jrnp_length;
+		p = (UCHAR *) page + space;
+		do
+			*p++ = *q++;
+		while (--l);
+	}
+}
+
+
+static void apply_header(HDR page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply changes to database header page 
+ *
+ **************************************/
+	JRNDH temp, *clump;
+	JRNDA temp1;
+
+	for (clump = NULL;
+		 clump =
+		 (JRNDH *) next_clump(record, reinterpret_cast < jrnp * >(clump));) {
+		MOVE_FAST((SCHAR *) clump, (SCHAR *) & temp, JRNDH_SIZE);
+
+		if (temp.jrndh_type == JRNP_DB_HEADER) {
+			page->hdr_bumped_transaction = temp.jrndh_nti;
+			page->hdr_oldest_transaction = temp.jrndh_oit;
+			page->hdr_oldest_active = temp.jrndh_oat;
+		}
+		else {
+			MOVE_FAST((SCHAR *) clump, (SCHAR *) & temp1, JRNDA_SIZE);
+
+			switch (temp1.jrnda_type) {
+			case JRNP_DB_ATTACHMENT:
+				page->hdr_attachment_id = temp1.jrnda_data;
+				break;
+
+			case JRNP_DB_HDR_PAGES:
+				page->hdr_PAGES = temp1.jrnda_data;
+				break;
+
+			case JRNP_DB_HDR_FLAGS:
+				page->hdr_flags = (USHORT) temp1.jrnda_data;
+				break;
+
+			case JRNP_DB_HDR_SDW_COUNT:
+				page->hdr_shadow_count = temp1.jrnda_data;
+				break;
+
+			default:
+				BUGCHECK(272);	/* msg 272 error in recovery! wrong header page record */
+			}
+		}
+	}
+}
+
+
+static void apply_ids(PPG page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ i d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply changes to generator page (gen ids) page
+ *
+ **************************************/
+	JRNG temp, *clump;
+	SLONG *ptr;
+
+	for (clump = NULL;
+		 clump =
+		 (JRNG *) next_clump(record, reinterpret_cast < jrnp * >(clump));) {
+		MOVE_FAST((SCHAR *) clump, (SCHAR *) & temp, JRNG_SIZE);
+
+		if (temp.jrng_type != JRNP_GENERATOR)
+			BUGCHECK(273);		/* msg 273 error in recovery! wrong generator page record */
+
+		ptr = page->ppg_page + temp.jrng_offset;
+		*ptr = temp.jrng_genval;
+	}
+}
+
+
+static void apply_index(BTR page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply changes to b-tree pages
+ *
+ **************************************/
+	JRNB temp, *clump;
+	UCHAR *p, *q;
+	SLONG l;
+	SLONG delta;
+	BTN node, next;
+
+	for (clump = NULL;
+		 clump =
+		 (JRNB *) next_clump(record, reinterpret_cast < jrnp * >(clump));) {
+		MOVE_FAST((SCHAR *) clump, (SCHAR *) & temp, JRNB_SIZE);
+
+		switch (temp.jrnb_type) {
+		case JRNP_BTREE_NODE:
+
+			/* 
+			 * slide down upper part by delta
+			 * add node and increment btr_length 
+			 */
+
+			delta = temp.jrnb_delta;
+			p = (UCHAR *) page + page->btr_length;
+			q = p + delta;
+			if (l = page->btr_length - temp.jrnb_offset)
+				do
+					*--q = *--p;
+				while (--l);
+
+			/* move in node , then BTN */
+
+			p = (UCHAR *) page + temp.jrnb_offset;
+			q = clump->jrnb_data;
+
+			if (l = temp.jrnb_length)
+				MOVE_FAST(q, p, l);
+
+			page->btr_length += delta;
+			page->btr_prefix_total = temp.jrnb_prefix_total;
+
+			break;
+
+		case JRNP_BTREE_SEGMENT:
+
+			/* apply change directly */
+
+			p = (UCHAR *) page;
+			q = (UCHAR *) clump->jrnb_data;
+
+			if (l = temp.jrnb_length)
+				MOVE_FAST(q, p, l);
+			break;
+
+		case JRNP_BTREE_DELETE:
+
+			/* delete a node entry */
+
+			node = (BTN) ((UCHAR *) page + temp.jrnb_offset);
+			next = (BTN) (BTN_DATA(node) + BTN_LENGTH(node));
+			QUAD_MOVE(BTN_NUMBER(next), BTN_NUMBER(node));
+			p = BTN_DATA(node);
+			q = BTN_DATA(next);
+			l = BTN_LENGTH(next);
+			if (BTN_PREFIX(node) < BTN_PREFIX(next)) {
+				BTN_LENGTH(node) = BTN_LENGTH(next) + BTN_PREFIX(next)
+					- BTN_PREFIX(node);
+				p += BTN_PREFIX(next) - BTN_PREFIX(node);
+			}
+			else {
+				BTN_LENGTH(node) = l;
+				BTN_PREFIX(node) = BTN_PREFIX(next);
+			}
+
+			if (l)
+				do
+					*p++ = *q++;
+				while (--l);
+
+			/* Compute length of rest of bucket and move it down. */
+
+			if (l = page->btr_length - (q - (UCHAR *) page))
+				do
+					*p++ = *q++;
+				while (--l);
+
+			page->btr_length = p - (UCHAR *) page;
+			page->btr_prefix_total = temp.jrnb_prefix_total;
+
+			/* Error Check */
+
+			if ((BTN_PREFIX(node) != temp.jrnb_delta) ||
+				(page->btr_length != temp.jrnb_length)) BUGCHECK(274);	/* msg 274 error in recovery! wrong b-tree page record */
+
+			break;
+
+		default:
+			BUGCHECK(274);		/* msg 274 error in recovery! wrong b-tree page record */
+		}
+	}
+}
+
+
+static void apply_log(LIP page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply changes to database log page (= 2)
+ *
+ **************************************/
+	JRNL temp, *clump;
+
+	for (clump = NULL;
+		 clump =
+		 (JRNL *) next_clump(record, reinterpret_cast < jrnp * >(clump));) {
+		MOVE_FAST((SCHAR *) clump, (SCHAR *) & temp, JRNL_SIZE);
+
+		page->log_flags = temp.jrnl_flags;
+		page->log_mod_tid = temp.jrnl_tid;
+		page->log_mod_tip = temp.jrnl_tip;
+	}
+	page->log_flags |= log_rec_in_progress;
+}
+
+
+static void apply_pip(PIP page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ p i p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply changes to page inventory page.
+ *
+ **************************************/
+	JRNA temp, *clump;
+	UCHAR bit;
+	USHORT byte;
+
+	for (clump = NULL;
+		 clump =
+		 (JRNA *) next_clump(record, reinterpret_cast < jrnp * >(clump));) {
+		MOVE_FAST((SCHAR *) clump, (SCHAR *) & temp, sizeof(struct jrna));
+
+		if (temp.jrna_type != JRNP_PIP)
+			BUGCHECK(275);		/* msg 275 error in recovery! wrong page inventory page record */
+
+		byte = temp.jrna_slot >> 3;
+		bit = 1 << (temp.jrna_slot & 7);
+		if (temp.jrna_allocate)
+			page->pip_bits[byte] &= ~bit;
+		else {
+			page->pip_bits[byte] |= bit;
+			page->pip_min = MIN(page->pip_min, temp.jrna_slot);
+		}
+	}
+}
+
+
+static void apply_pointer(PPG page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ p o i n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply incremental changes to a pointer page.
+ *
+ **************************************/
+	JRNP temp, *clump;
+	SLONG longword;
+
+	for (clump = NULL; clump = next_clump(record, clump);) {
+		MOVE_FAST((SCHAR *) clump, (SCHAR *) & temp, JRNP_SIZE);
+
+		if (temp.jrnp_type != JRNP_POINTER_SLOT)
+			BUGCHECK(276);		/* msg 276 error in recovery! wrong pointer page record */
+		if (temp.jrnp_length) {
+			MOVE_FAST(clump->jrnp_data, &longword, sizeof(SLONG));
+			page->ppg_page[temp.jrnp_index] = longword;
+			page->ppg_count = MAX(page->ppg_count, temp.jrnp_index + 1);
+			page->ppg_min_space = MIN(page->ppg_min_space, temp.jrnp_index);
+			page->ppg_max_space = MAX(page->ppg_min_space, temp.jrnp_index);
+		}
+		else
+			page->ppg_page[temp.jrnp_index] = 0;
+	}
+}
+
+
+static void apply_root(IRT page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ r o o t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply changes to index root page
+ *
+ **************************************/
+	JRNRP temp, *clump;
+
+	for (clump = NULL;
+		 clump =
+		 (JRNRP *) next_clump(record, reinterpret_cast < jrnp * >(clump));) {
+		MOVE_FAST((SCHAR *) clump, (SCHAR *) & temp, JRNRP_SIZE);
+
+		if (temp.jrnrp_type != JRNP_ROOT_PAGE)
+			BUGCHECK(277);		/* msg 277 error in recovery! wrong index root page record */
+
+		page->irt_rpt[temp.jrnrp_id].irt_root = temp.jrnrp_page;
+	}
+}
+
+
+static void apply_transaction(TIP page, JRND * record)
+{
+/**************************************
+ *
+ *	a p p l y _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply incremental changes to transaction inventory page
+ *
+ **************************************/
+	JRNI *clump, *clump_end;
+	JRNI temp;
+	JRND rec;
+
+	MOVE_FAST((SCHAR *) record, (SCHAR *) & rec, JRND_SIZE);
+	clump = (JRNI *) record->jrnd_data;
+	clump_end = (JRNI *) (record->jrnd_data + rec.jrnd_length);
+
+/* Process clumps */
+
+	for (; clump < clump_end; clump++) {
+		MOVE_FAST((SCHAR *) clump, (SCHAR *) & temp, JRNI_SIZE);
+
+		if (temp.jrni_type == JRNP_TRANSACTION)
+			page->tip_transactions[temp.jrni_position] = temp.jrni_states;
+		else if (temp.jrni_type == JRNP_NEXT_TIP)
+			page->tip_next = temp.jrni_transaction;
+		else
+			BUGCHECK(278);		/* msg 278 error in recovery! wrong transaction page record */
+	}
+}
+
+
+static void disable(void)
+{
+/**************************************
+ *
+ *	d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	We encountered a database disable record.
+ *	Clean up database header page.
+ *
+ **************************************/
+/*
+ * Delete journal related entries
+ */
+
+	PAG_delete_clump_entry(HEADER_PAGE, HDR_journal_server);
+	PAG_delete_clump_entry(HEADER_PAGE, HDR_backup_info);
+}
+
+
+static JRNP *next_clump(JRND * record, JRNP * prior)
+{
+/**************************************
+ *
+ *	n e x t _ c l u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a prior clump, compute the address of the next
+ *	clump on a data page.  If the prior clump is null,
+ *	compute the address of the first clump.  If we run
+ *	off the record, return NULL.
+ *
+ **************************************/
+	JRNB temp1;
+	USHORT offset, l;
+	JRNP temp;
+
+/* If the prior pointer is null, just return the data area */
+
+	if (!prior)
+		return (JRNP *) record->jrnd_data;
+
+/* Compute the offset and length of prior clump */
+
+	offset = (SCHAR *) prior - (SCHAR *) record;
+
+	MOVE_FAST((SCHAR *) prior, (SCHAR *) & temp, JRNP_SIZE);
+
+	switch (temp.jrnp_type) {
+	case JRNP_DATA_SEGMENT:
+	case JRNP_POINTER_SLOT:
+		l = JRNP_SIZE + temp.jrnp_length;
+		break;
+
+	case JRNP_BTREE_SEGMENT:
+	case JRNP_BTREE_NODE:
+		MOVE_FAST((SCHAR *) prior, (SCHAR *) & temp1, JRNB_SIZE);
+
+		l = JRNB_SIZE + temp1.jrnb_length;
+		break;
+
+		/* 
+		 * currently DELETE node contains some debug info in jrnb_length 
+		 * but data field is not used.
+		 */
+	case JRNP_BTREE_DELETE:
+		l = JRNB_SIZE;
+		break;
+
+	case JRNP_PIP:
+		l = sizeof(struct jrna);
+		break;
+
+	case JRNP_DB_HEADER:
+		l = JRNDH_SIZE;
+		break;
+
+	case JRNP_LOG_PAGE:
+		l = JRNL_SIZE;
+		break;
+
+	case JRNP_DB_ATTACHMENT:
+	case JRNP_DB_HDR_PAGES:
+	case JRNP_DB_HDR_FLAGS:
+	case JRNP_DB_HDR_SDW_COUNT:
+		l = JRNDA_SIZE;
+		break;
+
+	case JRNP_GENERATOR:
+		l = JRNG_SIZE;
+		break;
+
+	case JRNP_ROOT_PAGE:
+		l = JRNRP_SIZE;
+		break;
+
+	default:
+		BUGCHECK(269);			/* msg 269 error in recovery! database corrupted */
+	}
+
+	offset += l;
+
+	if (offset & 1)
+		++offset;
+
+	if (offset >= (JRND_SIZE + record->jrnd_length))
+		return 0;
+
+	return (JRNP *) ((SCHAR *) record + offset);
+}
+
+
+static void process_page(
+						 TDBB tdbb,
+						 JRND * record,
+						 SLONG seqno,
+						 SLONG offset,
+						 PAG rec_page, SBM * sbm_rec, USHORT activate_shadow)
+{
+/**************************************
+ *
+ *	p r o c e s s _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a WAL record associated with a database page
+ *	If rec_page is set, a corrupt page is being recovered.
+ *	This page may have been read with a read lock, so do not
+ *	mark it or read it again.
+ *
+ **************************************/
+	DBB dbb;
+	PAG page;
+	JRNP *clump;
+	UCHAR *p, *q;
+	WIN window;
+	LIP logp;
+	JRND rec;
+	HDR hdr;
+	USHORT hdr_end;
+
+	SET_TDBB(tdbb);
+
+	dbb = tdbb->tdbb_database;
+	window.win_flags = 0;
+
+	clump = (JRNP *) record->jrnd_data;
+	q = (UCHAR *) clump;
+
+/* If record is a full replacement page, handle it */
+
+	MOVE_FAST((SCHAR *) record, (SCHAR *) & rec, JRND_SIZE);
+
+/* handle zero length data records.  This is an offshoot of PAG_release_page
+ * where the free page is left in the shared cache with some possible 
+ * journal records in it.
+ */
+
+	if (rec.jrnd_length == 0)
+		return;
+
+/* set the page number in the sparse bit map during short term recovery
+ * but not during single page recovery.
+ */
+
+	if (!rec_page)
+		SBM_set(tdbb, sbm_rec, rec.jrnd_page);
+
+	if (rec_page)
+		page = rec_page;
+	else {
+		window.win_page = rec.jrnd_page;
+
+		/* If this is a newly allocated page, read will fail at EOF */
+
+		if ((rec.jrnd_header.jrnh_prev_seqno == 0)
+			&& (clump->jrnp_type <= pag_max))
+			page = CCH_fake(tdbb, &window, 1);
+		else
+			page = CCH_FETCH(tdbb, &window, LCK_write, pag_undefined);
+	}
+
+/* If there is no need to apply record, just return */
+
+	if ((page->pag_seqno > seqno) ||
+		((page->pag_seqno == seqno) && (page->pag_offset >= offset))) {
+		if (!rec_page)
+			CCH_RELEASE(tdbb, &window);
+		return;
+	}
+
+/*
+ * Error check to see if records are being skipped
+ * Do not check for error if it is a full page, or clump type
+ * is JRNP_BTREE_SEGMENT and the previous seqno & offset are 0
+ */
+
+	if (!((rec.jrnd_header.jrnh_prev_seqno == 0) &&
+		  (rec.jrnd_header.jrnh_prev_offset == 0) &&
+		  ((clump->jrnp_type <= pag_max) ||
+		   (clump->jrnp_type == JRNP_BTREE_SEGMENT)))) {
+		if ((page->pag_seqno != rec.jrnd_header.jrnh_prev_seqno) ||
+			(page->pag_offset != rec.jrnd_header.jrnh_prev_offset)) {
+			if (!rec_page)
+				CCH_RELEASE(tdbb, &window);
+			BUGCHECK(279);		/* msg 279 error in recovery! out of sequence log record encountered */
+		}
+	}
+
+/* changes need to be applied */
+
+	if (!rec_page)
+		CCH_MARK(tdbb, &window);
+
+	if (clump->jrnp_type <= pag_max) {
+		p = (UCHAR *) page;
+
+		/* 
+		 * if header page is being replaced, and we are activating shadow
+		 * copy only relevent part.  i.e. non clumplet part.
+		 */
+
+		if ((activate_shadow) && (rec.jrnd_page == HEADER_PAGE)) {
+			hdr = (HDR) page;
+			hdr_end = hdr->hdr_end;
+			MOVE_FAST(q, p, HDR_SIZE);
+			hdr->hdr_end = hdr_end;
+			hdr->hdr_flags |= hdr_active_shadow;
+			hdr->hdr_next_page = 0;
+		}
+		else
+			MOVE_FAST(q, p, dbb->dbb_page_size);
+
+		page->pag_seqno = seqno;
+		page->pag_offset = offset;
+
+		/* If LOG_page is being replaced, set the flag log_rec_in_progress */
+
+		if (rec.jrnd_page == LOG_PAGE) {
+			logp = (LIP) page;
+			logp->log_flags |= log_rec_in_progress;
+		}
+		if (!rec_page)
+			CCH_RELEASE(tdbb, &window);
+		return;
+	}
+
+	switch (page->pag_type) {
+	case pag_pointer:
+		apply_pointer(reinterpret_cast < PPG > (page), record);
+		break;
+
+	case pag_data:
+		apply_data(reinterpret_cast < dpg * >(page), record);
+		break;
+
+	case pag_transactions:
+		apply_transaction(reinterpret_cast < tip * >(page), record);
+		break;
+
+	case pag_pages:
+		apply_pip(reinterpret_cast < pip * >(page), record);
+		break;
+	case pag_header:
+		apply_header(reinterpret_cast < HDR > (page), record);
+		break;
+	case pag_root:
+		apply_root(reinterpret_cast < IRT > (page), record);
+		break;
+	case pag_index:
+		apply_index(reinterpret_cast < btr * >(page), record);
+		break;
+	case pag_ids:
+		apply_ids(reinterpret_cast < PPG > (page), record);
+		break;
+	case pag_log:
+		apply_log(reinterpret_cast < LIP > (page), record);
+		break;
+
+	default:
+		BUGCHECK(280);			/* msg 280 error in recovery! unknown page type */
+	}
+
+	page->pag_seqno = seqno;
+	page->pag_offset = offset;
+	if (!rec_page)
+		CCH_RELEASE(tdbb, &window);
+}
+
+
+static void quad_move(register UCHAR * a, register UCHAR * b)
+{
+/**************************************
+ *
+ *      q u a d _ m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Move an unaligned longword ( 4 bytes).
+ *
+ **************************************/
+
+	MOVE_BYTE(a, b);
+	MOVE_BYTE(a, b);
+	MOVE_BYTE(a, b);
+	MOVE_BYTE(a, b);
+}
+
+
+static void rec_process_record(
+							   TDBB tdbb,
+							   JRNH * record,
+							   USHORT length,
+							   ULONG seqno,
+							   ULONG offset,
+PAG page, SBM * sbm_rec, USHORT activate_shadow)
+{
+/**************************************
+ *
+ *	r e c _ p r o c e s s _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a single WAL record.  
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+/* Handle particular record type */
+
+	switch (record->jrnh_type) {
+	case JRN_PAGE:
+		process_page(tdbb, reinterpret_cast < JRND * >(record), seqno, offset,
+					 page, sbm_rec, activate_shadow);
+		break;
+
+	case JRN_DISABLE:
+		disable();
+		break;
+
+	case JRN_NEW_FILE:
+		/* 
+		 * The whole page is journalled if it is the primary page
+		 * The page is already written out, so NO
+		 * problem!! (Or should PAG_add_file () be called?)
+		 */
+		break;
+
+	case JRN_COMMIT:
+		/*
+		 * the commit is journalled in the tip pages 
+		 */
+		break;
+
+	case JRN_ENABLE:
+	case JRN_SYNC:
+	case JRN_ONLINE_DMP_FILE:
+	case JRN_START_ONLINE_DMP:
+	case JRN_END_ONLINE_DMP:
+	case JRN_CNTRL_PT:
+	case JRN_WAL_NAME:
+		/*
+		 * No action needed
+		 */
+		break;
+
+	default:
+		BUGCHECK(281);			/* msg 281 error in recovery! unknown record type */
+	}
+}
+
+
+static void scan_and_apply_logs(
+								TEXT * dbname,
+								TEXT * start_logname,
+								CP * cp1,
+								SBM * sbm_rec,
+USHORT activate_shadow, SLONG * timestamp, SLONG page_no, PAG page)
+{
+/**************************************
+ *
+ *	s c a n _ a n d _ a p p l y _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do short-term or page recovery.
+ *      If a page is passed, recover only that page.
+ *	Fixup log header at end in case of short-term recovery.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	SLONG ret_val;
+	SSHORT len;
+	ULONG seqno;
+	ULONG offset;
+	WALR WALRS_handle;
+	UCHAR *wal_buff;
+	STR string;
+	JRND rec;
+#ifdef DEV_BUILD
+	JRND rec1;
+	SLONG checksum;
+#endif
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* Open wal files */
+
+	WALRS_handle = 0;
+	ret_val =
+		WALR_open(tdbb->tdbb_status_vector,
+				  reinterpret_cast < walrs ** >(&WALRS_handle), dbname, 1,
+				  &start_logname, &cp1->cp_p_offset, cp1->cp_offset,
+				  timestamp, FALSE);
+	if (ret_val == -1)
+		return;					/* reached EOF */
+	else if (ret_val != SUCCESS)
+		ERR_punt();
+	else if (!WALRS_handle)
+		ERR_post(gds_wal_failure, 0);
+
+	string = (STR) ALLOCPV(type_str, MAX_WALBUFLEN);
+	wal_buff = (UCHAR *) string->str_data;
+
+	while (TRUE) {
+		ret_val =
+			WALR_get(tdbb->tdbb_status_vector,
+					 reinterpret_cast < walrs * >(WALRS_handle), wal_buff,
+					 reinterpret_cast < USHORT * >(&len),
+					 reinterpret_cast < long *>(&seqno),
+					 reinterpret_cast < long *>(&offset));
+		if (ret_val == -1)		/* done processing */
+			break;
+		else if (ret_val != SUCCESS) {
+			WALR_close(tdbb->tdbb_status_vector,
+					   reinterpret_cast < walrs ** >(&WALRS_handle));
+			ALL_release(reinterpret_cast < frb * >(string));
+			ERR_punt();
+		}
+
+#ifdef DEV_BUILD
+		/* take care of word alignment problems */
+
+		MOVE_FAST((SCHAR *) wal_buff, (SCHAR *) & rec1, JRND_SIZE);
+		checksum = rec1.jrnd_header.jrnh_series;
+		rec1.jrnd_header.jrnh_series = 0;
+		MOVE_FAST((SCHAR *) & rec1, (SCHAR *) wal_buff, JRND_SIZE);
+
+		if (checksum != MISC_checksum_log_rec(wal_buff, len, 0, 0))
+			BUGCHECK(283);
+
+		rec1.jrnd_header.jrnh_series = checksum;
+		MOVE_FAST((SCHAR *) & rec1, (SCHAR *) wal_buff, JRND_SIZE);
+#endif
+
+		if (page) {
+			/* Recovery is needed for one page only */
+
+			MOVE_FAST((SCHAR *) wal_buff, (SCHAR *) & rec, JRND_SIZE);
+			if (rec.jrnd_page != page_no)
+				continue;
+		}
+
+		rec_process_record(tdbb, (JRNH *) wal_buff, len, seqno, offset, page,
+						   sbm_rec, activate_shadow);
+	}
+
+	if (!page)					/* i.e. regular short-term recovery */
+		WALR_fixup_log_header(tdbb->tdbb_status_vector,
+							  reinterpret_cast < walrs * >(WALRS_handle));
+
+	WALR_close(tdbb->tdbb_status_vector,
+			   reinterpret_cast < walrs ** >(&WALRS_handle));
+
+	ALL_release(reinterpret_cast < frb * >(string));
+}
diff --git a/src/jrd/rec_proto.h b/src/jrd/rec_proto.h
new file mode 100644
index 0000000000..2fd95d70fb
--- /dev/null
+++ b/src/jrd/rec_proto.h
@@ -0,0 +1,33 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		rec_proto.h		
+ *	DESCRIPTION:	Prototype Header file for rec.c 
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_REC_PROTO_H_
+#define _JRD_REC_PROTO_H_
+
+extern void REC_recover(TEXT *, TEXT *, struct ctrl_pt *, struct sbm **,
+						USHORT);
+extern void REC_recover_page(TEXT *, TEXT *, struct ctrl_pt *, SLONG,
+							 struct pag *);
+extern int REC_update_next_transid(void);
+
+#endif /* _JRD_REC_PROTO_H_ */
diff --git a/src/jrd/relations.h b/src/jrd/relations.h
new file mode 100644
index 0000000000..ba40d3de91
--- /dev/null
+++ b/src/jrd/relations.h
@@ -0,0 +1,286 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		relations.h
+ *	DESCRIPTION:	System relation definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+RELATION(nam_pages, rel_pages, ODS_8_0)
+	FIELD(f_pag_page, nam_p_number, fld_p_number, 0, 0, 0, 0)
+	FIELD(f_pag_id, nam_r_id, fld_r_id, 0, 0, 0, 0)
+	FIELD(f_pag_seq, nam_p_sequence, fld_p_sequence, 0, 0, 0, 0)
+	FIELD(f_pag_type, nam_p_type, fld_p_type, 0, 0, 0, 0)
+	END_RELATION RELATION(nam_database, rel_database, ODS_8_0)
+	FIELD(f_dat_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_dat_id, nam_r_id, fld_r_id, 0, 0, 0, 0)
+	FIELD(f_dat_class, nam_class, fld_class, 1, 0, 0, 0)
+	FIELD(f_dat_charset, nam_charset_name, fld_charset_name, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_fields, rel_fields, ODS_8_0)
+	FIELD(f_fld_name, nam_f_name, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_fld_qname, nam_q_name, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_fld_v_blr, nam_vl_blr, fld_validation, 1, 0, 0, 0)
+	FIELD(f_fld_v_source, nam_vl_source, fld_source, 1, 0, 0, 0)
+	FIELD(f_fld_computed, nam_computed, fld_value, 1, 0, 0, 0)
+	FIELD(f_fld_csource, nam_c_source, fld_source, 1, 0, 0, 0)
+	FIELD(f_fld_default, nam_default, fld_value, 1, 0, 0, 0)
+	FIELD(f_fld_dsource, nam_d_source, fld_source, 1, 0, 0, 0)
+	FIELD(f_fld_length, nam_f_length, fld_f_length, 1, 0, 0, 0)
+	FIELD(f_fld_scale, nam_f_scale, fld_f_scale, 1, 0, 0, 0)
+	FIELD(f_fld_type, nam_f_type, fld_f_type, 1, 0, 0, 0)
+	FIELD(f_fld_sub_type, nam_f_sub_type, fld_sub_type, 1, 0, 0, 0)
+	FIELD(f_fld_missing, nam_missing, fld_value, 1, 0, 0, 0)
+	FIELD(f_fld_msource, nam_m_source, fld_source, 1, 0, 0, 0)
+	FIELD(f_fld_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_fld_sys_flag, nam_sys_flag, fld_flag, 0, 0, 0, 0)
+	FIELD(f_fld_qheader, nam_q_header, fld_q_header, 1, 0, 0, 0)
+	FIELD(f_fld_seg_len, nam_s_length, fld_s_length, 1, 0, 0, 0)
+	FIELD(f_fld_estring, nam_edit_string, fld_edit_string, 1, 0, 0, 0)
+	FIELD(f_fld_ext_length, nam_ext_length, fld_f_length, 1, 0, 0, 0)
+	FIELD(f_fld_ext_scale, nam_ext_scale, fld_f_scale, 1, 0, 0, 0)
+	FIELD(f_fld_ext_type, nam_ext_type, fld_f_type, 1, 0, 0, 0)
+	FIELD(f_fld_dimensions, nam_dimensions, fld_dimensions, 1, 0, 0, 0)
+	FIELD(f_fld_null_flag, nam_null_flag, fld_null_flag, 1, 0, 0, 0)
+	FIELD(f_fld_char_length, nam_char_length, fld_f_length, 1, 0, 0, 0)
+	FIELD(f_fld_coll_id, nam_collate_id, fld_collate_id, 1, 0, 0, 0)
+	FIELD(f_fld_charset_id, nam_charset_id, fld_charset_id, 1, 0, 0, 0)
+	FIELD(f_fld_precision, nam_f_precision, fld_f_precision, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_i_segments, rel_segments, ODS_8_0)
+	FIELD(f_seg_name, nam_i_name, fld_i_name, 1, 0, 0, 0)
+	FIELD(f_seg_field, nam_f_name, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_seg_position, nam_f_position, fld_f_position, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_indices, rel_indices, ODS_8_0)
+	FIELD(f_idx_name, nam_i_name, fld_i_name, 1, 0, 0, 0)
+	FIELD(f_idx_relation, nam_r_name, fld_r_name, 1, 0, 0, 0)
+	FIELD(f_idx_id, nam_i_id, fld_i_id, 0, 0, 0, 0)
+	FIELD(f_idx_flag, nam_un_flag, fld_flag, 1, 0, 0, 0)
+	FIELD(f_idx_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_idx_count, nam_s_count, fld_s_count, 1, 0, 0, 0)
+	FIELD(f_idx_inactive, nam_i_inactive, fld_flag, 1, 0, 0, 0)
+	FIELD(f_idx_type, nam_i_type, fld_flag, 1, 0, 0, 0)
+	FIELD(f_idx_foreign, nam_i_foreign, fld_r_name, 1, 0, 0, 0)
+	FIELD(f_idx_sys_flag, nam_sys_flag, fld_flag, 0, 0, 0, 0)
+	FIELD(f_idx_exp_blr, nam_exp_blr, fld_value, 1, 0, 0, 0)
+	FIELD(f_idx_exp_source, nam_exp_source, fld_source, 1, 0, 0, 0)
+	FIELD(f_idx_statistics, nam_statistics, fld_statistics, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_r_fields, rel_rfr, ODS_8_0)
+	FIELD(f_rfr_fname, nam_f_name, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_rfr_rname, nam_r_name, fld_r_name, 1, 0, 0, 0)
+	FIELD(f_rfr_sname, nam_f_source, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_rfr_qname, nam_q_name, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_rfr_base, nam_base, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_rfr_estring, nam_edit_string, fld_edit_string, 1, 0, 0, 0)
+	FIELD(f_rfr_position, nam_f_position, fld_f_position, 1, 0, 0, 0)
+	FIELD(f_rfr_qheader, nam_q_header, fld_q_header, 1, 0, 0, 0)
+	FIELD(f_rfr_flag, nam_up_flag, fld_flag, 1, 0, 0, 0)
+	FIELD(f_rfr_id, nam_f_id, fld_f_id, 0, 0, 0, 0)
+	FIELD(f_rfr_context, nam_v_context, fld_context, 1, 0, 0, 0)
+	FIELD(f_rfr_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_rfr_default, nam_default, fld_value, 1, 0, 0, 0)
+	FIELD(f_rfr_sys_flag, nam_sys_flag, fld_flag, 0, 0, 0, 0)
+	FIELD(f_rfr_class, nam_class, fld_class, 1, 0, 0, 0)
+	FIELD(f_rfr_complex, nam_cpx_name, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_rfr_null_flag, nam_null_flag, fld_null_flag, 1, 0, 0, 0)
+	FIELD(f_rfr_dsource, nam_d_source, fld_source, 1, 0, 0, 0)
+	FIELD(f_rfr_coll_id, nam_collate_id, fld_collate_id, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_relations, rel_relations, ODS_8_0)
+	FIELD(f_rel_blr, nam_v_blr, fld_v_blr, 1, 0, 0, 0)
+	FIELD(f_rel_source, nam_v_source, fld_source, 1, 0, 0, 0)
+	FIELD(f_rel_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_rel_id, nam_r_id, fld_r_id, 0, 0, 0, 0)
+	FIELD(f_rel_sys_flag, nam_sys_flag, fld_flag, 0, 0, 0, 0)
+	FIELD(f_rel_key_len, nam_key_length, fld_key_length, 0, 0, 0, 0)
+	FIELD(f_rel_format, nam_fmt, fld_format, 0, 0, 0, 0)
+	FIELD(f_rel_field_id, nam_f_id, fld_f_id, 0, 0, 0, 0)
+	FIELD(f_rel_name, nam_r_name, fld_r_name, 1, 0, 0, 0)
+	FIELD(f_rel_class, nam_class, fld_class, 1, 0, 0, 0)
+	FIELD(f_rel_ext_file, nam_ext_file, fld_file_name, 1, 0, 0, 0)
+	FIELD(f_rel_runtime, nam_runtime, fld_runtime, 1, 0, 0, 0)
+	FIELD(f_rel_ext_desc, nam_ext_desc, fld_ext_desc, 1, 0, 0, 0)
+	FIELD(f_rel_owner, nam_owner, fld_user, 1, 0, 0, 0)
+	FIELD(f_rel_def_class, nam_def_class, fld_class, 1, 0, 0, 0)
+	FIELD(f_rel_flags, nam_flags, fld_flag, 0, 0, 0, 0)
+	END_RELATION RELATION(nam_v_relations, rel_vrel, ODS_8_0)
+	FIELD(f_vrl_vname, nam_v_name, fld_r_name, 1, 0, 0, 0)
+	FIELD(f_vrl_rname, nam_r_name, fld_r_name, 1, 0, 0, 0)
+	FIELD(f_vrl_context, nam_v_context, fld_context, 1, 0, 0, 0)
+	FIELD(f_vrl_cname, nam_context, fld_ctx_name, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_formats, rel_formats, ODS_8_0)
+	FIELD(f_fmt_rid, nam_r_id, fld_r_id, 0, 0, 0, 0)
+	FIELD(f_fmt_format, nam_fmt, fld_format, 0, 0, 0, 0)
+	FIELD(f_fmt_desc, nam_desc, fld_f_descr, 0, 0, 0, 0)
+	END_RELATION RELATION(nam_classes, rel_classes, ODS_8_0)
+	FIELD(f_cls_class, nam_class, fld_class, 1, 0, 0, 0)
+	FIELD(f_cls_acl, nam_acl, fld_acl, 1, 0, 0, 0)
+	FIELD(f_cls_desc, nam_description, fld_description, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_files, rel_files, ODS_8_0)
+	FIELD(f_file_name, nam_file_name, fld_file_name, 1, 0, 0, 0)
+	FIELD(f_file_seq, nam_file_seq, fld_file_seq, 1, 0, 0, 0)
+	FIELD(f_file_start, nam_file_start, fld_file_start, 1, 0, 0, 0)
+	FIELD(f_file_length, nam_file_length, fld_file_length, 1, 0, 0, 0)
+	FIELD(f_file_flags, nam_file_flags, fld_file_flags, 1, 0, 0, 0)
+	FIELD(f_file_shad_num, nam_shad_num, fld_shad_num, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_types, rel_types, ODS_8_0)
+	FIELD(f_typ_field, nam_f_name, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_typ_type, nam_type, fld_gnr_type, 1, 0, 0, 0)
+	FIELD(f_typ_name, nam_typ_name, fld_typ_name, 1, 0, 0, 0)
+	FIELD(f_typ_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_typ_sys_flag, nam_sys_flag, fld_flag, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_trgs, rel_triggers, ODS_8_0)
+	FIELD(f_trg_name, nam_trg_name, fld_trg_name, 1, 0, 0, 0)
+	FIELD(f_trg_rname, nam_r_name, fld_r_name, 1, 0, 0, 0)
+	FIELD(f_trg_seq, nam_trg_seq, fld_trg_seq, 1, 0, 0, 0)
+	FIELD(f_trg_type, nam_trg_type, fld_trg_type, 1, 0, 0, 0)
+	FIELD(f_trg_source, nam_trg_source, fld_source, 1, 0, 0, 0)
+	FIELD(f_trg_blr, nam_trigger, fld_trigger, 1, 0, 0, 0)
+	FIELD(f_trg_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_trg_inactive, nam_trg_inactive, fld_flag, 1, 0, 0, 0)
+	FIELD(f_trg_sys_flag, nam_sys_flag, fld_flag, 1, 0, 0, 0)
+	FIELD(f_trg_flags, nam_flags, fld_flag, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_dpds, rel_dpds, ODS_8_0)
+	FIELD(f_dpd_name, nam_dpd_name, fld_gnr_name, 1, 0, 0, 0)
+	FIELD(f_dpd_o_name, nam_dpd_o_name, fld_gnr_name, 1, 0, 0, 0)
+	FIELD(f_dpd_f_name, nam_f_name, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_dpd_type, nam_dpd_type, fld_obj_type, 1, 0, 0, 0)
+	FIELD(f_dpd_o_type, nam_dpd_o_type, fld_obj_type, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_funs, rel_funs, ODS_8_0)
+	FIELD(f_fun_name, nam_fun_name, fld_fun_name, 1, 0, 0, 0)
+	FIELD(f_fun_type, nam_fun_type, fld_fun_type, 1, 0, 0, 0)
+	FIELD(f_fun_qname, nam_q_name, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_fun_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_fun_module, nam_mod_name, fld_file_name, 1, 0, 0, 0)
+	FIELD(f_fun_entry, nam_entry, fld_ext_name, 1, 0, 0, 0)
+	FIELD(f_fun_ret_arg, nam_ret_arg, fld_f_position, 1, 0, 0, 0)
+	FIELD(f_fun_sys_flag, nam_sys_flag, fld_flag, 0, 0, 0, 0)
+	END_RELATION RELATION(nam_args, rel_args, ODS_8_0)
+	FIELD(f_arg_fun_name, nam_fun_name, fld_fun_name, 1, 0, 0, 0)
+	FIELD(f_arg_pos, nam_arg_pos, fld_f_position, 1, 0, 0, 0)
+	FIELD(f_arg_mech, nam_mechanism, fld_mechanism, 1, 0, 0, 0)
+	FIELD(f_arg_type, nam_f_type, fld_f_type, 0, 0, 0, 0)
+	FIELD(f_arg_scale, nam_f_scale, fld_f_scale, 0, 0, 0, 0)
+	FIELD(f_arg_length, nam_f_length, fld_f_length, 0, 0, 0, 0)
+	FIELD(f_arg_sub_type, nam_f_sub_type, fld_sub_type, 0, 0, 0, 0)
+	FIELD(f_arg_charset_id, nam_charset_id, fld_charset_id, 1, 0, 0, 0)
+	FIELD(f_arg_precision, nam_f_precision, fld_f_precision, 1, 0, 0, 0)
+	FIELD(f_arg_char_length, nam_char_length, fld_f_length, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_filters, rel_filters, ODS_8_0)
+	FIELD(f_flt_name, nam_fun_name, fld_fun_name, 1, 0, 0, 0)
+	FIELD(f_flt_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_flt_module, nam_mod_name, fld_file_name, 1, 0, 0, 0)
+	FIELD(f_flt_entry, nam_entry, fld_ext_name, 1, 0, 0, 0)
+	FIELD(f_flt_input, nam_in_type, fld_sub_type, 1, 0, 0, 0)
+	FIELD(f_flt_output, nam_out_type, fld_sub_type, 1, 0, 0, 0)
+	FIELD(f_flt_sys_flag, nam_sys_flag, fld_flag, 0, 0, 0, 0)
+	END_RELATION RELATION(nam_trg_msgs, rel_msgs, ODS_8_0)
+	FIELD(f_msg_trigger, nam_trg_name, fld_trg_name, 1, 0, 0, 0)
+	FIELD(f_msg_number, nam_msg_num, fld_msg_num, 1, 0, 0, 0)
+	FIELD(f_msg_msg, nam_msg, fld_msg, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_user_privileges, rel_priv, ODS_8_0)
+	FIELD(f_prv_user, nam_user, fld_user, 1, 0, 0, 0)
+	FIELD(f_prv_grantor, nam_grantor, fld_user, 1, 0, 0, 0)
+	FIELD(f_prv_priv, nam_privilege, fld_privilege, 1, 0, 0, 0)
+	FIELD(f_prv_grant, nam_grant, fld_flag, 1, 0, 0, 0)
+	FIELD(f_prv_rname, nam_r_name, fld_gnr_name, 1, 0, 0, 0)
+	FIELD(f_prv_fname, nam_f_name, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_prv_u_type, nam_user_type, fld_obj_type, 1, 0, 0, 0)
+	FIELD(f_prv_o_type, nam_obj_type, fld_obj_type, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_trans, rel_trans, ODS_8_0)
+	FIELD(f_trn_id, nam_trans_id, fld_trans_id, 1, 0, 0, 0)
+	FIELD(f_trn_state, nam_trans_state, fld_trans_state, 1, 0, 0, 0)
+	FIELD(f_trn_time, nam_time, fld_time, 1, 0, 0, 0)
+	FIELD(f_trn_desc, nam_trans_desc, fld_trans_desc, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_gens, rel_gens, ODS_8_0)
+	FIELD(f_gen_name, nam_gen_name, fld_gen_name, 1, 0, 0, 0)
+	FIELD(f_gen_id, nam_gen_id, fld_gen_id, 1, 0, 0, 0)
+	FIELD(f_gen_sys_flag, nam_sys_flag, fld_flag, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_fld_dims, rel_dims, ODS_8_0)
+	FIELD(f_dims_fname, nam_f_name, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_dims_dim, nam_dim, fld_dim, 1, 0, 0, 0)
+	FIELD(f_dims_lower, nam_lower, fld_bound, 1, 0, 0, 0)
+	FIELD(f_dims_upper, nam_upper, fld_bound, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_rel_constr, rel_rcon, ODS_8_0)
+	FIELD(f_rcon_cname, nam_con_name, fld_con_name, 1, 0, 0, 0)
+	FIELD(f_rcon_ctype, nam_con_type, fld_con_type, 1, 0, 0, 0)
+	FIELD(f_rcon_rname, nam_r_name, fld_r_name, 1, 0, 0, 0)
+	FIELD(f_rcon_dfr, nam_defer, fld_defer, 1, 0, 0, 0)
+	FIELD(f_rcon_idfr, nam_init_defer, fld_defer, 1, 0, 0, 0)
+	FIELD(f_rcon_iname, nam_i_name, fld_i_name, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_ref_constr, rel_refc, ODS_8_0)
+	FIELD(f_refc_cname, nam_con_name, fld_con_name, 1, 0, 0, 0)
+	FIELD(f_refc_uq, nam_con_uq, fld_con_name, 1, 0, 0, 0)
+	FIELD(f_refc_match, nam_match, fld_match, 1, 0, 0, 0)
+	FIELD(f_refc_upd_rul, nam_upd_rule, fld_rule, 1, 0, 0, 0)
+	FIELD(f_refc_del_rul, nam_del_rule, fld_rule, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_chk_constr, rel_ccon, ODS_8_0)
+	FIELD(f_ccon_cname, nam_con_name, fld_con_name, 1, 0, 0, 0)
+	FIELD(f_ccon_tname, nam_trg_name, fld_trg_name, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_log_files, rel_log, ODS_8_0)
+	FIELD(f_log_name, nam_file_name, fld_file_name, 1, 0, 0, 0)
+	FIELD(f_log_seq, nam_file_seq, fld_file_seq, 1, 0, 0, 0)
+	FIELD(f_log_length, nam_file_length, fld_file_length, 1, 0, 0, 0)
+	FIELD(f_log_partitions, nam_file_partitions, fld_file_partitions, 1, 0, 0, 0)
+	FIELD(f_log_p_offset, nam_file_p_offset, fld_file_p_offset, 1, 0, 0, 0)
+	FIELD(f_log_flags, nam_file_flags, fld_file_flags, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_procedures, rel_procedures, ODS_8_0)
+	FIELD(f_prc_name, nam_prc_name, fld_prc_name, 1, 0, 0, 0)
+	FIELD(f_prc_id, nam_prc_id, fld_prc_id, 0, 0, 0, 0)
+	FIELD(f_prc_inputs, nam_prc_inputs, fld_prc_prm, 0, 0, 0, 0)
+	FIELD(f_prc_outputs, nam_prc_outputs, fld_prc_prm, 0, 0, 0, 0)
+	FIELD(f_prc_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_prc_source, nam_prc_source, fld_source, 1, 0, 0, 0)
+	FIELD(f_prc_blr, nam_prc_blr, fld_prc_blr, 1, 0, 0, 0)
+	FIELD(f_prc_class, nam_class, fld_class, 1, 0, 0, 0)
+	FIELD(f_prc_owner, nam_owner, fld_user, 1, 0, 0, 0)
+	FIELD(f_prc_runtime, nam_runtime, fld_runtime, 1, 0, 0, 0)
+	FIELD(f_prc_sys_flag, nam_sys_flag, fld_flag, 0, 0, 0, 0)
+	END_RELATION RELATION(nam_proc_parameters, rel_prc_prms, ODS_8_0)
+	FIELD(f_prm_name, nam_prm_name, fld_prm_name, 1, 0, 0, 0)
+	FIELD(f_prm_procedure, nam_prc_name, fld_prc_name, 1, 0, 0, 0)
+	FIELD(f_prm_number, nam_prm_number, fld_prm_number, 1, 0, 0, 0)
+	FIELD(f_prm_type, nam_prm_type, fld_prm_type, 1, 0, 0, 0)
+	FIELD(f_prm_sname, nam_f_source, fld_f_name, 1, 0, 0, 0)
+	FIELD(f_prm_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_prm_sys_flag, nam_sys_flag, fld_flag, 0, 0, 0, 0)
+	END_RELATION RELATION(nam_charsets, rel_charsets, ODS_8_0)
+	FIELD(f_cs_cs_name, nam_charset_name, fld_charset_name, 1, 0, 0, 0)
+	FIELD(f_cs_form_of_use, nam_form_of_use, fld_gnr_name, 1, 0, 0, 0)
+	FIELD(f_cs_num_chars, nam_num_chars, fld_num_chars, 1, 0, 0, 0)
+	FIELD(f_cs_def_collate, nam_def_collate, fld_collate_name, 1, 0, 0, 0)
+	FIELD(f_cs_id, nam_charset_id, fld_charset_id, 1, 0, 0, 0)
+	FIELD(f_cs_sys_flag, nam_sys_flag, fld_flag, 0, 0, 0, 0)
+	FIELD(f_cs_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_cs_fun_name, nam_fun_name, fld_fun_name, 1, 0, 0, 0)
+	FIELD(f_cs_bytes_char, nam_bytes_per_char, fld_f_length, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_collations, rel_collations, ODS_8_0)
+	FIELD(f_coll_name, nam_collate_name, fld_collate_name, 1, 0, 0, 0)
+	FIELD(f_coll_id, nam_collate_id, fld_collate_id, 1, 0, 0, 0)
+	FIELD(f_coll_cs_id, nam_charset_id, fld_charset_id, 1, 0, 0, 0)
+	FIELD(f_coll_attr, nam_collate_attr, fld_gnr_type, 1, 0, 0, 0)
+	FIELD(f_coll_sys_flag, nam_sys_flag, fld_flag, 0, 0, 0, 0)
+	FIELD(f_coll_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_coll_fun_name, nam_fun_name, fld_fun_name, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_exceptions, rel_exceptions, ODS_8_0)
+	FIELD(f_xcp_name, nam_xcp_name, fld_xcp_name, 1, 0, 0, 0)
+	FIELD(f_xcp_number, nam_xcp_number, fld_xcp_number, 1, 0, 0, 0)
+	FIELD(f_xcp_msg, nam_msg, fld_msg, 1, 0, 0, 0)
+	FIELD(f_xcp_desc, nam_description, fld_description, 1, 0, 0, 0)
+	FIELD(f_xcp_sys_flag, nam_sys_flag, fld_flag, 1, 0, 0, 0)
+	END_RELATION RELATION(nam_roles, rel_roles, ODS_9_0)
+	FIELD(f_rol_name, nam_role_name, fld_user, 1, 0, 0, 0)
+	FIELD(f_rol_owner, nam_owner, fld_user, 1, 0, 0, 0)
+	END_RELATION
diff --git a/src/jrd/req.h b/src/jrd/req.h
new file mode 100644
index 0000000000..43788a29d7
--- /dev/null
+++ b/src/jrd/req.h
@@ -0,0 +1,270 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		req.h
+ *	DESCRIPTION:	Request block definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_REQ_H_
+#define _JRD_REQ_H_
+
+/* record parameter block */
+
+typedef struct rpb {
+	SLONG rpb_number;			/* record number in relation */
+	SLONG rpb_transaction;		/* transaction number */
+	struct rel *rpb_relation;	/* relation of record */
+	struct rec *rpb_record;		/* final record block */
+	struct rec *rpb_prior;		/* prior record block if this is a delta record */
+	struct srpb *rpb_copy;		/* rpb copy for singleton verification */
+	struct rec *rpb_undo;		/* our first version of data if this is a second modification */
+	USHORT rpb_format_number;	/* format number in relation */
+
+#ifndef GATEWAY
+	SLONG rpb_page;				/* page number */
+	USHORT rpb_line;			/* line number on page */
+
+	SLONG rpb_f_page;			/* fragment page number */
+	USHORT rpb_f_line;			/* fragment line number on page */
+
+	SLONG rpb_b_page;			/* back page */
+	USHORT rpb_b_line;			/* back line */
+#else
+	struct sbm *rpb_fields;		/* referenced fields */
+	struct sbm *rpb_asgn_flds;	/* referenced assigned from fields */
+	struct sql *rpb_sql_selct;	/* SQL select statement */
+	struct sql *rpb_sql_other;	/* SQL non-select statement */
+#endif
+
+	UCHAR *rpb_address;			/* address of record sans header */
+	USHORT rpb_length;			/* length of record */
+	USHORT rpb_flags;			/* record ODS flags replica */
+	USHORT rpb_stream_flags;	/* stream flags */
+	SSHORT rpb_org_scans;		/* relation scan count at stream open */
+#ifndef GATEWAY
+	struct win rpb_window;
+#endif
+} RPB;
+
+/* Record flags must be an exact replica of ODS record header flags */
+
+#define rpb_deleted	1
+#define rpb_chained	2
+#define rpb_fragment	4
+#define rpb_incomplete	8
+#define rpb_blob	16
+#define rpb_delta	32			/* prior version is a differences record */
+#define rpb_damaged	128			/* record is busted */
+#define rpb_gc_active	256		/* garbage collecting dead record version */
+
+/* Stream flags */
+
+#define RPB_s_refetch	0x1		/* re-fetch required due to sort */
+#define RPB_s_update	0x2		/* input stream fetched for update */
+
+#ifndef GATEWAY
+#define SET_NULL(record,id)	record->rec_data [id >> 3] |=  (1 << (id & 7))
+#define CLEAR_NULL(record,id)	record->rec_data [id >> 3] &= ~(1 << (id & 7))
+#define TEST_NULL(record,id)	record->rec_data [id >> 3] &   (1 << (id & 7))
+#else
+#define SET_NULL(record,id)	((SSHORT*) record->rec_data) [id] = -1
+#define CLEAR_NULL(record,id)	((SSHORT*) record->rec_data) [id] = 0
+#define TEST_NULL(record,id)	(((SSHORT*) record->rec_data) [id] < 0)
+#endif
+
+#define MAX_DIFFERENCES		1024	/* Max length of generated Differences string 
+									   between two records */
+
+/* Store allocation policy types.  Parameter to DPM_store() */
+
+#define DPM_primary	1			/* New primary record */
+#define DPM_secondary	2		/* Chained version of primary record */
+#define DPM_other	3			/* Independent (or don't care) record */
+
+/* Record block (holds data, remember data?) */
+
+typedef struct rec {
+	struct blk rec_header;
+	struct fmt *rec_format;		/* what the data looks like */
+	struct lls *rec_precedence;	/* stack of higher precedence pages */
+	USHORT rec_length;			/* how much there is */
+	UCHAR rec_flags;			/* misc record flags */
+	SLONG rec_number;			/* original rpb number - used for undoing multiple updates */
+	double rec_dummy;			/* this is to force next field to a double boundary */
+	UCHAR rec_data[1];			/* THIS VARIABLE MUST BE ALIGNED ON A DOUBLE BOUNDARY */
+} *REC;
+
+#define REC_same_tx	1			/* record inserted/updated and deleted by same tx */
+#define REC_gc_active	2		/* relation garbage collect record block in use */
+#define REC_new_version 4		/* savepoint created new record version and deleted it */
+
+/* save rpb block */
+
+typedef struct srpb {
+	struct blk srpb_header;
+	struct rpb srpb_rpb[1];		/* record parameter blocks */
+} *SRPB;
+
+/* request block */
+
+typedef struct req {
+	struct blk req_header;
+	ATT req_attachment;			/* database attachment */
+	USHORT req_count;			/* number of streams */
+	USHORT req_incarnation;		/* incarnation number */
+	ULONG req_impure_size;		/* size of impure area */
+	struct plb *req_pool;
+	struct vec *req_sub_requests;	/* vector of sub-requests */
+	struct tra *req_transaction;
+	struct req *req_request;	/* next request in dbb */
+	struct acc *req_access;		/* Access items to be checked */
+	struct vec *req_variables;	/* Vector of variables, if any */
+	struct rsc *req_resources;	/* Resources (relations and indices) */
+	struct nod *req_message;	/* Current message for send/receive */
+#ifdef SCROLLABLE_CURSORS
+	struct nod *req_async_message;	/* Asynchronous message (used in scrolling) */
+#endif
+	struct vec *req_refresh_ranges;	/* Vector of refresh_ranges */
+	struct rng *req_begin_ranges;	/* Vector of refresh_ranges */
+	struct prc *req_procedure;	/* procedure, if any */
+	TEXT *req_trg_name;			/* name of request (trigger), if any */
+	USHORT req_length;			/* message length for send/receive */
+	USHORT req_nmsgs;			/* number of message types */
+	USHORT req_mmsg;			/* highest message type */
+	USHORT req_msend;			/* longest send message */
+	USHORT req_mreceive;		/* longest receive message */
+
+	ULONG req_records_selected;	/* count of records selected by request (meeting selection criteria) */
+	ULONG req_records_inserted;	/* count of records inserted by request */
+	ULONG req_records_updated;	/* count of records updated by request */
+	ULONG req_records_deleted;	/* count of records deleted by request */
+
+	struct nod *req_top_node;	/* top of execution tree */
+	struct nod *req_next;		/* next node for execution */
+	struct vec *req_fors;		/* Vector of for loops, if any */
+	struct vec *req_invariants;	/* Vector of invariant nodes, if any */
+	USHORT req_label;			/* label for leave */
+	ULONG req_flags;			/* misc request flags */
+	struct sav *req_proc_sav_point;	/* procedure savepoint list */
+	ULONG req_timestamp;		/* Start time of request */
+
+	ENUM req_s {
+		req_evaluate,
+			req_return, req_receive, req_send, req_proceed, req_sync, req_unwind} req_operation;	/* operation for next node */
+
+	struct rpb req_rpb[1];		/* record parameter blocks */
+} *REQ;
+
+#define REQ_SIZE	(sizeof (struct req) - sizeof (((REQ) 0)->req_rpb[0]))
+
+/* Flags for req_flags */
+#define req_active				0x1L
+#define req_stall				0x2L
+#define req_leave				0x4L
+#ifdef SCROLLABLE_CURSORS
+#define req_async_processing	0x8L
+#endif
+#define req_null			   0x10L
+#define req_broken			   0x20L
+#define req_abort			   0x40L
+#define req_internal		   0x80L
+#define req_warning			  0x100L
+#define req_in_use			  0x200L
+#define req_sys_trigger		  0x400L	/* request is a system trigger */
+#define req_count_records	  0x800L	/* count records accessed */
+#define req_proc_fetch		 0x1000L	/* Fetch from procedure in progress */
+#define req_ansi_any		 0x2000L	/* Request is processing ANSI ANY */
+#define req_same_tx_upd		 0x4000L	/* record was updated by same transaction */
+#define req_ansi_all		 0x8000L	/* Request is processing ANSI ANY */
+#define req_ansi_not		0x10000L	/* Request is processing ANSI ANY */
+#define req_reserved		0x20000L	/* Request reserved for client */
+#define req_ignore_perm	        0x40000L	/* ignore permissions checks */
+#define req_fetch_required	0x80000L	/* need to fetch next record */
+#define req_error_handler      0x100000L	/* looper is called to handle error */
+#define req_clone_data_from_default_clause \
+                               0x200000L	/* This flag is marked in the
+											   **   req_flags if and only if the
+											   **   the column that was created or
+											   **   added as "DEFAULT xx NOT NULL"
+											   **   and no data has been
+											   **   inserted/updated to the column.
+											   **   The data of this column was
+											   **   cloned from the default clause.
+											 */
+#define req_blr_version4      0x400000L	/* Request is of blr_version4 */
+/* Mask for flags preserved in a clone of a request */
+#define REQ_FLAGS_CLONE_MASK	(req_sys_trigger | req_internal | req_ignore_perm | req_blr_version4)
+
+/* Mask for flags preserved on initialization of a request */
+#define REQ_FLAGS_INIT_MASK	(req_in_use | req_internal | req_sys_trigger | req_ignore_perm | req_blr_version4)
+
+
+/* Resources */
+
+/* TMN: Had to remove this enum from bein nested in struct rsc since we now use C++,
+ * but this enum is used in the C API. Can you say "legacy"? :-(
+ */
+enum rsc_s {
+	rsc_relation,
+	rsc_procedure,
+	rsc_index
+};
+
+typedef struct rsc {
+	struct blk rsc_header;
+	struct rsc *rsc_next;		/* Next resource in request */
+	struct rel *rsc_rel;		/* Relation block */
+	struct prc *rsc_prc;		/* Relation block */
+	USHORT rsc_id;				/* Id of parent */
+	enum rsc_s rsc_type;
+} *RSC;
+
+/* Index lock block */
+
+typedef struct idl
+{
+	struct blk	idl_header;
+	struct idl*	idl_next;		/* Next index lock block for relation */
+	struct lck*	idl_lock;		/* Lock block */
+	struct rel*	idl_relation;	/* Parent relation */
+	USHORT		idl_id;			/* Index id */
+	USHORT		idl_count;		/* Use count */
+} *IDL;
+
+
+/* Access items */
+
+typedef struct acc
+{
+	struct blk	acc_header;
+	struct acc*	acc_next;
+#ifndef GATEWAY
+	TEXT*		acc_security_name;	/* WRITTEN into by SCL_get_class() */
+#else
+	struct scl*	acc_security_name;
+#endif
+	struct rel*	acc_view;
+	CONST TEXT*	acc_trg_name;
+	CONST TEXT*	acc_prc_name;
+	CONST TEXT*	acc_name;
+	CONST TEXT*	acc_type;
+	USHORT		acc_mask;
+} *ACC;
+
+#endif /* _JRD_REQ_H_ */
diff --git a/src/jrd/rlck.cpp b/src/jrd/rlck.cpp
new file mode 100644
index 0000000000..c42c3e699f
--- /dev/null
+++ b/src/jrd/rlck.cpp
@@ -0,0 +1,1017 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		rlck.c
+ *	DESCRIPTION:	Record and Relation Lock Manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/jrd.h"
+#include "../jrd/tra.h"
+#include "../jrd/lck.h"
+#include "../jrd/req.h"
+#include "../jrd/codes.h"
+#include "../jrd/all.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/isc_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/rlck_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/vio_proto.h"
+
+static LCK allocate_record_lock(TRA, RPB *);
+static LCK allocate_relation_lock(PLB, REL);
+static LCK attachment_relation_lock(REL);
+static void drop_record_lock(LCK);
+static LCK find_record_lock(RPB *);
+static BOOLEAN obtain_lock(TRA, LCK, USHORT);
+static void start_record_locking(REL);
+
+
+#ifdef PC_ENGINE
+LCK RLCK_lock_record(RPB * rpb,
+					 USHORT lock_level, int (*ast) (BLK), BLK ast_arg)
+{
+/**************************************
+ *
+ *	R L C K _ l o c k _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lock the current record in the provided
+ *	record parameter block at the specified level.
+ *
+ **************************************/
+	REL relation;
+	LCK record_locking, lock;
+	SLONG process_count;
+	TDBB tdbb;
+
+
+/* first get a record lock on the desired record;
+   if we can't get one then there is no point
+   in signalling that this process needs to acquire locks */
+
+	lock = RLCK_lock_record_implicit(0, rpb, lock_level, ast, ast_arg);
+	if (!lock)
+		return NULL;
+
+	tdbb = GET_THREAD_DATA;
+
+/* 
+   if the record is trying to be locked, check
+   whether the record has already been updated on page 
+   by a transaction whose updates we cannot see yet--
+   in which case we effectively cannot get the lock */
+
+	if (VIO_check_if_updated(tdbb, rpb)) {
+		RLCK_unlock_record_implicit(lock, rpb);
+		return NULL;
+	}
+
+/* if this process has no record locks outstanding,
+   indicate through the lock manager that we are
+   starting the record locking protocol */
+
+	relation = rpb->rpb_relation;
+	if (!relation->rel_explicit_locks) {
+		record_locking = RLCK_record_locking(relation);
+
+		/* get a shared write lock to be compatible with other processes
+		   that are doing record locking, but incompatible with those who aren't */
+
+		if (record_locking->lck_logical == LCK_none)
+			LCK_lock_non_blocking(tdbb, record_locking, LCK_SW, TRUE);
+		else
+			LCK_convert_non_blocking(tdbb, tdbb, record_locking, LCK_SW,
+									 TRUE);
+	}
+
+	relation->rel_explicit_locks++;
+
+	return lock;
+}
+#endif
+
+
+
+#ifdef PC_ENGINE
+LCK RLCK_lock_record_implicit(TRA transaction,
+							  RPB * rpb,
+							  USHORT lock_level,
+							  int (*ast) (BLK), BLK ast_arg)
+{
+/**************************************
+ *
+ *	R L C K _ l o c k _ r e c o r d _ i m p l i c i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lock the given record for implicit access, a subset
+ *	of what we need to do to lock it explicitly.
+ *
+ *	transaction is NULL for explicit record locking.
+ *
+ **************************************/
+	LCK lock;
+	USHORT interest_lock_level = 0;
+	REL relation;
+
+	lock = allocate_record_lock(transaction, rpb);
+	lock->lck_ast = ast;
+	lock->lck_object = ast_arg;
+
+/* To ensure that relation and record locks respect each other, 
+   utilize a multigranularity locking scheme, establishing
+   an interest lock level in the parent relation according to 
+   the following scheme:
+       read lock on record := protected read
+	   (implies) interest read lock on relation := shared read
+       write lock on record := exclusive
+	   (implies) interest write lock on relation := shared write 
+   Then as long as PR and EX locks are used to implement read 
+   and write locking on relations, the relation locks will 
+   be respected.
+
+   This also guarantees that implicit record locks won't result 
+   in interest locks being taken out, since implicit record locks 
+   are SW.  Relations are already implicitly reserved in 
+   RLCK_reserve_relation(), so there is no need for an additional
+   interest lock.
+       implicit read lock on record := NO LOCK
+	   (implies) NO interest read lock on relation 
+       implicit write lock on record := shared write
+	   (implies) interest write lock on relation := shared write 
+*/
+
+	relation = rpb->rpb_relation;
+	if (lock_level == LCK_EX) {
+		interest_lock_level = LCK_SW;
+		relation->rel_write_locks++;
+		relation->rel_lock_total++;
+	}
+	else if (lock_level == LCK_PR) {
+		interest_lock_level = LCK_SR;
+		relation->rel_read_locks++;
+		relation->rel_lock_total++;
+	}
+
+/* first attempt to get the parent lock then get the record lock, 
+   using two-phase locking to help prevent deadlocks */
+
+	if (interest_lock_level
+		&& !obtain_lock(transaction, lock->lck_parent, interest_lock_level)
+		|| !obtain_lock(transaction, lock, lock_level)) {
+		RLCK_unlock_record_implicit(lock, rpb);
+		return NULL;
+	}
+
+	return lock;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+LCK RLCK_lock_relation(REL relation,
+					   USHORT lock_level, int (*ast) (BLK), BLK ast_arg)
+{
+/**************************************
+ *
+ *	R L C K _ l o c k _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lock a relation at the specified level.
+ *
+ **************************************/
+	LCK lock;
+
+/* allocate a relation lock hanging off the attachment
+   block, then keep a count of the number of times it 
+   is used so that we know when to release it (bug #7478) */
+
+	lock = attachment_relation_lock(relation);
+	lock->lck_count++;
+	lock->lck_ast = ast;
+	lock->lck_object = ast_arg;
+
+	if (!obtain_lock(0, lock, lock_level))
+		ERR_post(gds__relation_lock, gds_arg_string, relation->rel_name, 0);
+
+	return lock;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+LCK RLCK_range_relation(TRA transaction,
+						REL relation, int (*ast) (BLK), BLK ast_arg)
+{
+/**************************************
+ *
+ *	R L C K _ r a n g e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lock a relation for a refresh range.
+ *
+ **************************************/
+	TDBB tdbb;
+	LCK lock;
+	USHORT level, wait;
+	USHORT result;
+	ATT attachment;
+
+	tdbb = GET_THREAD_DATA;
+	attachment = tdbb->tdbb_attachment;
+
+	if (transaction->tra_flags & TRA_system)
+		return NULL;
+
+	lock = allocate_relation_lock(transaction->tra_pool, relation);
+	lock->lck_owner = (BLK) attachment;
+	lock->lck_ast = ast;
+	lock->lck_object = ast_arg;
+	lock->lck_type = LCK_range_relation;
+
+	level = LCK_PR;
+
+	wait = (transaction->tra_flags & TRA_nowait) ? FALSE : TRUE;
+
+/* get lock */
+
+	result = LCK_lock_non_blocking(tdbb, lock, level, wait);
+
+	if (result)
+		return lock;
+	else
+		return NULL;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+LCK RLCK_record_locking(REL relation)
+{
+/**************************************
+ *
+ *	R L C K _ r e c o r d _ l o c k i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a record locking lock, which determines
+ *	when record locking is necessary for a particular
+ *	relation.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	LCK lock;
+
+	if (relation->rel_record_locking)
+		return relation->rel_record_locking;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = GET_DBB;
+
+	lock = (LCK) ALLOCPV(type_lck, sizeof(SLONG));
+	lock->lck_parent = dbb->dbb_lock;
+	lock->lck_dbb = dbb;
+	lock->lck_attachment = tdbb->tdbb_attachment;
+	lock->lck_type = LCK_record_locking;
+	lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+
+/* make the lock specific to the relation */
+
+	lock->lck_length = sizeof(SLONG);
+	lock->lck_key.lck_long = relation->rel_id;
+	relation->rel_record_locking = lock;
+
+/* set up an ast to start record locking if 
+   someone gets an incompatible lock */
+
+	lock->lck_ast = start_record_locking;
+	lock->lck_object = (BLK) relation;
+
+/* now attempt to get a PR on the lock to detect when 
+   anyone locks a record explicitly */
+
+	LCK_lock(tdbb, _non_blocking(lock, LCK_PR, FALSE));
+	return lock;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void RLCK_release_lock(LCK lock)
+{
+/**************************************
+ *
+ *	R L C K _ r e l e a s e _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release a lock of record or relation
+ *	type.  The lock handle came from the
+ *	user, so validate it carefully.
+ *
+ **************************************/
+
+/* first do basic validation of the handle */
+
+	if (!lock)
+		ERR_post(gds__bad_lock_handle, 0);
+	if (((BLK) lock)->blk_type != (UCHAR) type_lck)
+		ERR_post(gds__bad_lock_handle, 0);
+/* now use the lock type to determine the type 
+   of lock to release */
+	if (lock->lck_type == LCK_relation)
+		RLCK_unlock_relation(0, (REL) lock->lck_object);
+	else if (lock->lck_type == LCK_record)
+		RLCK_unlock_record(lock, 0);
+	else
+		ERR_post(gds__bad_lock_handle, 0);
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void RLCK_release_locks(ATT attachment)
+{
+/**************************************
+ *
+ *	R L C K _ r e l e a s e _ l o c k s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release all relation and record locks
+ *	explicitly taken out during this attachment.
+ *
+ **************************************/
+	VEC vector;
+	LCK lock, *lptr, *lend;
+/* unlock all explicit relation locks */
+	if (vector = attachment->att_relation_locks)
+		for (lptr = (LCK *) vector->vec_object, lend =
+			 lptr + vector->vec_count; lptr < lend; lptr++)
+			if (lock = *lptr)
+				RLCK_unlock_relation(0, (REL) lock->lck_object);
+/* unlock all explicit record locks */
+	while (lock = attachment->att_record_locks)
+		RLCK_unlock_record(lock, 0);
+/* clear the vector of user locks */
+	if (vector = attachment->att_lck_quick_ref)
+		for (lptr = (LCK *) vector->vec_object, lend =
+			 lptr + vector->vec_count; lptr < lend; lptr++)
+			*lptr = NULL;
+}
+#endif
+
+
+LCK RLCK_reserve_relation(TDBB tdbb,
+						  TRA transaction,
+						  REL relation, USHORT write_flag, USHORT error_flag)
+{
+/**************************************
+ *
+ *	R L C K _ r e s e r v e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lock a relation within a transaction.  If the relation
+ *	is already locked at a lower level, upgrade the lock.
+ *
+ **************************************/
+	LCK lock;
+	USHORT level, wait;
+	USHORT result;
+	if (transaction->tra_flags & TRA_system)
+		return NULL;
+#ifdef READONLY_DATABASE
+	if (write_flag && (tdbb->tdbb_database->dbb_flags & DBB_read_only))
+		ERR_post(isc_read_only_database, 0);
+#endif /* READONLY_DATABASE */
+	if (write_flag && (transaction->tra_flags & TRA_readonly))
+		ERR_post(gds__read_only_trans, 0);
+	lock = RLCK_transaction_relation_lock(transaction, relation);
+/* Next, figure out what kind of lock we need */
+	if (transaction->tra_flags & TRA_degree3) {
+		if (write_flag)
+			level = LCK_EX;
+		else
+			level = LCK_PR;
+	}
+	else {
+		if (write_flag)
+			level = LCK_SW;
+		else
+			level = LCK_none;
+	}
+
+/* If the lock is already "good enough", we're done */
+
+	if (level <= lock->lck_logical)
+		return lock;
+	if (transaction->tra_flags & TRA_reserving)
+		ERR_post(gds__unres_rel, gds_arg_string, relation->rel_name, 0);
+	wait = (transaction->tra_flags & TRA_nowait) ? FALSE : TRUE;
+/* get lock */
+	if (lock->lck_logical)
+		result = LCK_convert_non_blocking(NULL_TDBB, lock, level, wait);
+	else
+		result = LCK_lock_non_blocking(NULL_TDBB, lock, level, wait);
+	if (result)
+		return lock;
+	else {
+		if (error_flag)
+			ERR_post((wait) ? gds__deadlock : gds__lock_conflict, 0);
+		return NULL;
+	}
+}
+
+
+void RLCK_shutdown_attachment(ATT attachment)
+{
+/**************************************
+ *
+ *	R L C K _ s h u t d o w n _ a t t a c h m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown the attachment's persistent record
+ *	and relation locks. This runs at AST level.
+ *
+ **************************************/
+	VEC lock_vector;
+	LCK *lock, record_lock;
+	USHORT i;
+	TDBB tdbb;
+	tdbb = GET_THREAD_DATA;
+/* Release child record locks before parent relation locks */
+	for (record_lock = attachment->att_record_locks; record_lock;
+		 record_lock = record_lock->lck_att_next)
+		LCK_release(tdbb, record_lock);
+	if (lock_vector = attachment->att_relation_locks)
+		for (i = 0, lock = (LCK *)
+			 lock_vector->vec_object; i < lock_vector->vec_count; i++, lock++)
+			if (*lock)
+				LCK_release(tdbb, *lock);
+}
+
+
+void RLCK_shutdown_database(DBB dbb)
+{
+/**************************************
+ *
+ *	R L C K _ s h u t d o w n _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown the database locks shared for relation
+ *	interest and record locking locks. This can be called
+ *	at AST level.
+ *
+ **************************************/
+	REL relation, *ptr, *end;
+	VEC vector;
+	TDBB tdbb;
+	tdbb = GET_THREAD_DATA;
+	if (!(vector = dbb->dbb_relations))
+		return;
+	for (ptr = (REL *) vector->vec_object, end =
+		 ptr + vector->vec_count; ptr < end; ptr++)
+		if (relation = *ptr) {
+			if (relation->rel_record_locking)
+				LCK_release(tdbb, relation->rel_record_locking);
+			if (relation->rel_interest_lock)
+				LCK_release(tdbb, relation->rel_interest_lock);
+			relation->rel_explicit_locks = 0;
+			relation->rel_read_locks = 0;
+			relation->rel_write_locks = 0;
+			relation->rel_lock_total = 0;
+		}
+}
+
+
+#ifdef PC_ENGINE
+void RLCK_signal_refresh(TRA transaction)
+{
+/**************************************
+ *
+ *	R L C K _ s i g n a l _ r e f r e s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	For each reserved relation, get a refresh relation
+ *	lock to signal possible refresh range users.
+ *
+ **************************************/
+	TDBB tdbb;
+	VEC vector;
+	USHORT i;
+	LCK lock;
+	LCK local_lock;
+	DBB dbb;
+	REL relation;
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+/* for each relation, take out a range relation lock and then release it */
+	vector = transaction->tra_relation_locks;
+	if (vector) {
+
+		/* allocate a local lock */
+
+		local_lock = (LCK) ALLOCPV(type_lck, sizeof(SLONG));
+		local_lock->lck_dbb = dbb;
+		local_lock->lck_attachment = tdbb->tdbb_attachment;
+		local_lock->lck_length = sizeof(SLONG);
+		local_lock->lck_type = LCK_range_relation;
+		local_lock->lck_owner_handle =
+			LCK_get_owner_handle(tdbb, local_lock->lck_type);
+		local_lock->lck_parent = dbb->dbb_lock;
+		local_lock->lck_compatible = (BLK) tdbb->tdbb_attachment;
+		for (i = 0; i < vector->vec_count; i++) {
+			lock = (LCK *) (vector->vec_object[i]);
+			if (lock) {
+				relation = (REL) lock->lck_object;
+				local_lock->lck_key.lck_long = relation->rel_id;
+				local_lock->lck_object = (BLK) relation;
+				LCK_lock_non_blocking(tdbb, local_lock, LCK_SW, 0);
+				LCK_release(tdbb, local_lock);
+			}
+		}
+		ALL_release(local_lock);
+	}
+}
+#endif
+
+
+LCK RLCK_transaction_relation_lock(TRA transaction, REL relation)
+{
+/**************************************
+ *
+ *	R L C K _ t r a n s a c t i o n _ r e l a t i o n _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Take out a relation lock within the context of 
+ *	a transaction.
+ *
+ **************************************/
+	LCK lock;
+	VEC vector;
+	if ((vector = transaction->tra_relation_locks) &&
+		(relation->rel_id < vector->vec_count) &&
+		(lock = (LCK) vector->vec_object[relation->rel_id]))
+		return lock;
+	vector =
+		ALL_vector(transaction->tra_pool,
+				   &transaction->tra_relation_locks, relation->rel_id);
+	if (lock = (LCK) vector->vec_object[relation->rel_id])
+		return lock;
+	lock = allocate_relation_lock(transaction->tra_pool, relation);
+	lock->lck_owner = (BLK) transaction;
+/* for relations locked within a transaction, add a second level of 
+   compatibility within the intra-process lock manager which specifies
+   that relation locks are incompatible with locks taken out by other
+   transactions, if a transaction is specified */
+	lock->lck_compatible2 = (BLK) transaction;
+	vector->vec_object[relation->rel_id] = (BLK) lock;
+	return lock;
+}
+
+
+#ifdef PC_ENGINE
+void RLCK_unlock_record(LCK lock, RPB * rpb)
+{
+/**************************************
+ *
+ *	R L C K _ u n l o c k _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unlock the specified record lock, or if
+ *	it's not available use the current record 
+ *	in the specified record parameter block.
+ *
+ **************************************/
+	REL relation;
+	LCK record_locking;
+	SLONG process_count;
+	TDBB tdbb;
+	ATT attachment;
+	if (rpb)
+		relation = rpb->rpb_relation;
+	else if (lock)
+		relation = (REL) lock->lck_parent->lck_object;
+	else
+		relation = NULL;		/* theoretically impossible */
+	RLCK_unlock_record_implicit(lock, rpb);
+	tdbb = GET_THREAD_DATA;
+	attachment = tdbb->tdbb_attachment;
+	if (attachment->att_flags & ATT_shutdown)
+		return;
+/* decrement the count of explicit locks this process has taken out;
+   if there are none, go back to a PR on the lock--
+   if we cannot obtain this, it means someone else has explicit
+   record locks taken out and we should just release the lock */
+	if (relation && !--relation->rel_explicit_locks) {
+		record_locking = relation->rel_record_locking;
+		if (!LCK_convert_non_blocking(tdbb, record_locking, LCK_PR, FALSE))
+			LCK_release(tdbb, record_locking);
+	}
+
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void RLCK_unlock_record_implicit(LCK lock, RPB * rpb)
+{
+/**************************************
+ *
+ *	R L C K _ u n l o c k _ r e c o r d _ i m p l i c i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unlock a record-level lock. 
+ *
+ **************************************/
+	REL relation;
+	USHORT lock_level;
+	ATT attachment;
+	TDBB tdbb;
+	tdbb = GET_THREAD_DATA;
+	if (!lock)
+		lock = find_record_lock(rpb);
+	lock_level = lock->lck_logical;
+	drop_record_lock(lock);
+	LCK_release(tdbb, lock);
+	attachment = tdbb->tdbb_attachment;
+	if (attachment->att_flags & ATT_shutdown) {
+		ALL_release(lock);
+		return;
+	}
+
+/* handle the release half of the multigranularity locking scheme:
+   if there are no more write locks, downgrade the interest
+   lock on the parent relation; if there are no more read or 
+   write locks, release the lock entirely
+
+   For implicit locks, there are no relation intrest locks.
+   So do nothing.
+   */
+
+	relation = (REL) lock->lck_parent->lck_object;
+	if (lock_level == LCK_EX) {
+		if (!--relation->rel_write_locks)
+			if (!relation->rel_read_locks)
+				LCK_release(tdbb, relation->rel_interest_lock);
+			else
+				LCK_convert_non_blocking(tdbb, relation->rel_interest_lock,
+										 LCK_SR, TRUE);
+	}
+	else if (lock_level == LCK_PR) {
+		if (!--relation->rel_read_locks && !relation->rel_write_locks)
+			LCK_release(tdbb, relation->rel_interest_lock);
+	}
+
+	ALL_release(lock);
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void RLCK_unlock_relation(LCK lock, REL relation)
+{
+/**************************************
+ *
+ *	R L C K _ u n l o c k _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release the attachment's persistent lock
+ *	on the specified relation.
+ *
+ **************************************/
+	TDBB tdbb;
+	ATT attachment;
+	VEC vector;
+	USHORT id;
+	tdbb = GET_THREAD_DATA;
+	attachment = tdbb->tdbb_attachment;
+	if (!(vector = attachment->att_relation_locks))
+		return;
+	if (relation) {
+		id = relation->rel_id;
+		if (id >= vector->vec_count)
+			return;
+		lock = (LCK) vector->vec_object[id];
+	}
+	else
+		for (id = 0; id < vector->vec_count; id++)
+			if (lock == (LCK) vector->vec_object[id])
+				break;
+	if (!lock)
+		return;
+/* decrement the use count; if it goes to zero, 
+   there are no further locks taken out in this 
+   attachment so we can release the lock (bug #7478) */
+	if (lock->lck_count > 1) {
+		lock->lck_count--;
+		return;
+	}
+
+	LCK_release(tdbb, lock);
+	ALL_release(lock);
+	vector->vec_object[id] = NULL;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+static LCK allocate_record_lock(TRA transaction, RPB * rpb)
+{
+/**************************************
+ *
+ *	a l l o c a t e _ r e c o r d _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a record lock block for the current
+ *	record in the passed rpb.
+ *	transaction used only for implicit record locks.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	REL relation;
+	LCK lock;
+	ATT attachment;
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	attachment = tdbb->tdbb_attachment;
+	if (!rpb->rpb_record)
+		ERR_post(gds__no_cur_rec, 0);
+/* allocate a lock block for the record lock */
+	lock = (LCK) ALLOCPV(type_lck, sizeof(SLONG));
+	lock->lck_dbb = dbb;
+	lock->lck_attachment = attachment;
+	lock->lck_object = (BLK) dbb;
+	lock->lck_type = LCK_record;
+	lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+/* use the relation lock as the lock parent */
+	relation = rpb->rpb_relation;
+	if (transaction)
+		lock->lck_parent =
+			RLCK_transaction_relation_lock(transaction, relation);
+	else {
+		if (!relation->rel_interest_lock)
+			relation->rel_interest_lock =
+				allocate_relation_lock(dbb->dbb_permanent, relation);
+		lock->lck_parent = relation->rel_interest_lock;
+	}
+
+/* indicate that this lock should be compatible at the attachment
+   level--meaning that two record locks taken out within the same 
+   attachment should always be compatible; ditto for the interest lock */
+
+	lock->lck_compatible = (BLK) attachment;
+	lock->lck_parent->lck_compatible = (BLK) attachment;
+/* link in the record lock with the other record locks  
+   taken out by this attachment */
+	lock->lck_att_next = attachment->att_record_locks;
+	attachment->att_record_locks = lock;
+/* fill in the lock value using the record number */
+	lock->lck_length = sizeof(SLONG);
+	lock->lck_key.lck_long = rpb->rpb_number;
+	return lock;
+}
+
+
+#endif
+static LCK allocate_relation_lock(PLB pool, REL relation)
+{
+/**************************************
+ *
+ *	a l l o c a t e _ r e l a t i o n _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a lock block for a relation lock.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	LCK lock;
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	lock = (LCK) ALL_alloc(pool, type_lck, sizeof(SLONG), ERR_jmp);
+	lock->lck_dbb = dbb;
+	lock->lck_attachment = tdbb->tdbb_attachment;
+	lock->lck_length = sizeof(SLONG);
+	lock->lck_key.lck_long = relation->rel_id;
+	lock->lck_type = LCK_relation;
+	lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+	lock->lck_parent = dbb->dbb_lock;
+/* enter all relation locks into the intra-process lock manager and treat 
+   them as compatible within the attachment according to IPLM rules */
+	lock->lck_compatible = (BLK) tdbb->tdbb_attachment;
+/* the lck_object is used here to find the relation
+   block from the lock block */
+	lock->lck_object = (BLK) relation;
+	return lock;
+}
+
+
+static LCK attachment_relation_lock(REL relation)
+{
+/**************************************
+ *
+ *	a t t a c h m e n t _ r e l a t i o n _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Take out a persistent relation lock at the
+ *	attachment level.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	ATT attachment;
+	LCK lock;
+	VEC vector;
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	attachment = tdbb->tdbb_attachment;
+	if ((vector = attachment->att_relation_locks) &&
+		(relation->rel_id < vector->vec_count) &&
+		(lock = (LCK) vector->vec_object[relation->rel_id]))
+		return lock;
+	vector =
+		ALL_vector(dbb->dbb_permanent, &attachment->att_relation_locks,
+				   relation->rel_id);
+	if (lock = (LCK) vector->vec_object[relation->rel_id])
+		return lock;
+	lock = allocate_relation_lock(dbb->dbb_permanent, relation);
+	lock->lck_owner = (BLK) attachment;
+	vector->vec_object[relation->rel_id] = (BLK) lock;
+	return lock;
+}
+
+
+#ifdef PC_ENGINE
+static void drop_record_lock(LCK record_lock)
+{
+/**************************************
+ *
+ *	d r o p _ r e c o r d _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the record lock in the linked list off
+ *	the attachment block, and drop it from the list.
+ *
+ **************************************/
+	TDBB tdbb;
+	ATT attachment;
+	LCK *lock;
+	tdbb = GET_THREAD_DATA;
+/* look through all the record locks taken out by this attachment
+   looking for one with the same record number and relation id */
+	attachment = tdbb->tdbb_attachment;
+	for (lock = &attachment->att_record_locks; *lock;
+		 lock = &(*lock)->lck_att_next) if (*lock == record_lock) {
+			*lock = (*lock)->lck_att_next;
+			break;
+		}
+}
+#endif
+
+
+#ifdef PC_ENGINE
+static LCK find_record_lock(RPB * rpb)
+{
+/**************************************
+ *
+ *	f i n d _ r e c o r d _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the record lock previously 
+ *	defined for a record.
+ *
+ **************************************/
+	TDBB tdbb;
+	LCK lock;
+	ATT attachment;
+	REL relation;
+	tdbb = GET_THREAD_DATA;
+/* look through all the record locks taken out by this attachment
+   looking for one with the same record number and relation */
+	attachment = tdbb->tdbb_attachment;
+	for (lock = attachment->att_record_locks; lock; lock = lock->lck_att_next)
+		if ((rpb->rpb_number == lock->lck_key.lck_long)
+			&& (rpb->rpb_relation == (REL) lock->lck_parent->lck_object))
+			break;
+	return lock;
+}
+#endif
+
+
+static BOOLEAN obtain_lock(TRA transaction, LCK lock, USHORT lock_level)
+{
+/**************************************
+ *
+ *	o b t a i n _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Obtain the specified lock at the 
+ *	necessary level.
+ *
+ **************************************/
+	USHORT wait_flag;
+	if (transaction)
+		wait_flag = (transaction->tra_flags & TRA_nowait) ? FALSE : TRUE;
+	else
+		wait_flag = FALSE;
+/* return if lock level OK and if the lock has not been released
+   (like as part of a refresh range)  */
+	if ((lock_level <= lock->lck_logical) && (lock->lck_id != -1))
+		return TRUE;
+	if ((lock->lck_logical) && (lock->lck_id != -1)) {
+		if (LCK_convert_non_blocking(NULL_TDBB, lock, lock_level, wait_flag))
+			return TRUE;
+	}
+	else if (LCK_lock_non_blocking(NULL_TDBB, lock, lock_level, wait_flag))
+		return TRUE;
+	return FALSE;
+}
+
+
+#ifdef PC_ENGINE
+static void start_record_locking(REL relation)
+{
+/**************************************
+ *
+ *	s t a r t _ r e c o r d _ l o c k i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	A blocking AST has been issued to give up
+ *	the lock on the record locking semaphore.
+ *	Flag the fact that record locking is now
+ *	necessary for reading and writing records.
+ *
+ **************************************/
+	LCK record_locking;
+	record_locking = relation->rel_record_locking;
+/* if we have shared write, it means we have records 
+   locked; we won't give up this lock for anyone! */
+	if (record_locking->lck_physical == LCK_SW)
+		return;
+	ISC_ast_enter();
+	LCK_release(NULL_TDBB, record_locking);
+	ISC_ast_exit();
+}
+#endif
diff --git a/src/jrd/rlck_proto.h b/src/jrd/rlck_proto.h
new file mode 100644
index 0000000000..41c3047815
--- /dev/null
+++ b/src/jrd/rlck_proto.h
@@ -0,0 +1,61 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		rlck_proto.h
+ *	DESCRIPTION:	Prototype header file for rlck.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_RLCK_PROTO_H
+#define JRD_RLCK_PROTO_H
+
+#ifdef PC_ENGINE
+extern struct lck *RLCK_lock_record(struct rpb *, USHORT, int (*)(),
+									struct blk *);
+extern struct lck *RLCK_lock_record_implicit(struct tra *, struct rpb *,
+											 USHORT, int (*)(), struct blk *);
+extern struct lck *RLCK_lock_relation(struct rel *, USHORT, int (*)(),
+									  struct blk *);
+extern struct lck *RLCK_range_relation(struct tra *, struct rel *, int (*)(),
+									   struct blk *);
+extern struct lck *RLCK_record_locking(struct rel *);
+extern void RLCK_release_lock(struct lck *);
+extern void RLCK_release_locks(struct att *);
+#endif
+extern struct lck *RLCK_reserve_relation(struct tdbb *, struct tra *,
+										 struct rel *, USHORT, USHORT);
+
+/* TMN: This header did not match the implementation.
+ * I moved the #ifdef as noted
+ */
+/* #ifdef PC_ENGINE */
+extern void RLCK_shutdown_attachment(struct att *);
+extern void RLCK_shutdown_database(struct dbb *);
+#ifdef PC_ENGINE
+extern void RLCK_signal_refresh(struct tra *);
+#endif
+
+extern struct lck *RLCK_transaction_relation_lock(struct tra *, struct rel *);
+
+#ifdef PC_ENGINE
+extern void RLCK_unlock_record(struct lck *, struct rpb *);
+extern void RLCK_unlock_record_implicit(struct lck *, struct rpb *);
+extern void RLCK_unlock_relation(struct lck *, struct rel *);
+#endif
+
+#endif /* JRD_RLCK_PROTO_H */
diff --git a/src/jrd/rng.cpp b/src/jrd/rng.cpp
new file mode 100644
index 0000000000..d9337f26b6
--- /dev/null
+++ b/src/jrd/rng.cpp
@@ -0,0 +1,894 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		rng.c
+ *	DESCRIPTION:	Refresh Range Handler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/req.h"
+#include "../jrd/ods.h"
+#include "../jrd/val.h"
+#include "../jrd/exe.h"
+#include "../jrd/codes.h"
+#include "../jrd/rse.h"
+#include "../jrd/lck.h"
+#include "../jrd/cch.h"
+#include "../jrd/rng.h"
+#include "../jrd/sbm.h"
+#include "../jrd/all.h"
+#include "../jrd/intl.h"
+#include "../jrd/tra.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/rlck_proto.h"
+#include "../jrd/rng_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/tra_proto.h"
+#include "../jrd/event_proto.h"
+
+#ifdef PC_ENGINE
+static void delete_range(RNG);
+static void post_event(RNG);
+static void post_event_ast(RNG);
+static void stop_creating(RNG);
+#endif
+
+
+#ifdef PC_ENGINE
+void RNG_add_page(ULONG page_number)
+{
+/**************************************
+ *
+ *	R N G _ a d d _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add page lock to any refresh range(s) 
+ *	currently being defined.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	RNG refresh_range, next_refresh_range;
+	VEC page_locks;
+	LCK page_lock;
+	USHORT i, next_range;
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+
+	for (refresh_range = request->req_begin_ranges; refresh_range;
+		 refresh_range = next_refresh_range) {
+		next_refresh_range = refresh_range->rng_next;
+		if (refresh_range->rng_flags & RNG_posted)
+			continue;
+
+		/* see if this refresh range already has a page lock on this page */
+
+		next_range = FALSE;
+		if (page_locks = refresh_range->rng_page_locks)
+			for (i = 0; i < refresh_range->rng_pages; i++) {
+				page_lock = (LCK) page_locks->vec_object[i];
+				if (page_lock->lck_key.lck_long == page_number) {
+					next_range = TRUE;
+					break;
+				}
+			}
+		if (next_range)
+			continue;
+
+		/* allocate and set up the page lock for this page */
+
+		page_lock = CCH_page_lock(tdbb, ERR_jmp);
+		page_lock->lck_key.lck_long = page_number;
+		page_lock->lck_ast = post_event_ast;
+		page_lock->lck_object = (BLK) refresh_range;
+
+		/* if we can get the lock, place it in a vector of page locks for this
+		   refresh range; otherwise just post the range event assuming that the
+		   page is being updated */
+
+		if (LCK_lock_non_blocking(tdbb, page_lock, LCK_read, LCK_NO_WAIT)) {
+			/* place all page locks into a vector */
+
+			page_locks = ALL_vector(request->req_pool,
+									&refresh_range->rng_page_locks,
+									EXTEND(refresh_range->rng_pages));
+			page_locks->vec_object[refresh_range->rng_pages] =
+				(BLK) page_lock;
+			refresh_range->rng_pages++;
+		}
+		else {
+			post_event(refresh_range);
+			delete_range(refresh_range);
+		}
+	}
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void RNG_add_record(RPB * rpb)
+{
+/**************************************
+ *
+ *	R N G _ a d d _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add record to refresh range(s) 
+ *	currently being defined.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	RNG refresh_range, next_refresh_range;
+	VEC record_locks;
+	LCK record_lock;
+	USHORT i, next_range;
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+
+	for (refresh_range = request->req_begin_ranges; refresh_range;
+		 refresh_range = next_refresh_range) {
+		next_refresh_range = refresh_range->rng_next;
+		if (refresh_range->rng_flags & RNG_posted)
+			continue;
+
+		/* see if this refresh range already has a lock on this record */
+
+		next_range = FALSE;
+		if (record_locks = refresh_range->rng_record_locks)
+			for (i = 0; i < refresh_range->rng_records; i++) {
+				record_lock = (LCK) record_locks->vec_object[i];
+				if (record_lock->lck_key.lck_long == rpb->rpb_number) {
+					next_range = TRUE;
+					break;
+				}
+			}
+		if (next_range)
+			continue;
+
+		/* get a lock on the passed record; if we can't, don't bother
+		   to wait for it or retry, just post the event to let the
+		   client know that an update is in process--if we're lucky
+		   the lock will be released before the client tries to reestablish
+		   the refresh range, otherwise we will thrash trying to establish */
+
+		record_lock = RLCK_lock_record(rpb, LCK_PR,
+									   (int (*)()) post_event_ast,
+									   (BLK) refresh_range);
+		if (!record_lock) {
+			post_event(refresh_range);
+			delete_range(refresh_range);
+		}
+
+		/* place all record locks into a vector for easy access later */
+
+		record_locks = ALL_vector(request->req_pool,
+								  &refresh_range->rng_record_locks,
+								  EXTEND(refresh_range->rng_records));
+		record_locks->vec_object[refresh_range->rng_records] =
+			(BLK) record_lock;
+		refresh_range->rng_records++;
+	}
+
+}
+#endif
+
+
+#ifdef PC_ENGINE
+NOD RNG_add_relation(NOD node)
+{
+/**************************************
+ *
+ *	R N G _ a d d _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add relation to refresh range(s) 
+ *	currently being defined.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	DSC *desc;
+	USHORT range_number;
+	VEC refresh_ranges;
+	RNG refresh_range;
+	NOD relation_node;
+	REL relation;
+	LCK relation_lock;
+	VEC relation_locks;
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+
+	if (request->req_operation == req_evaluate) {
+		desc = EVL_expr(tdbb, node->nod_arg[e_range_relation_number]);
+		range_number = (USHORT) MOV_get_long(desc, 0);
+
+		relation_node = node->nod_arg[e_range_relation_relation];
+		relation = (REL) relation_node->nod_arg[e_rel_relation];
+
+		/* check to see if the range exists */
+
+		if ((refresh_ranges = request->req_refresh_ranges) &&
+			(range_number < refresh_ranges->vec_count) &&
+			(refresh_range = (RNG) refresh_ranges->vec_object[range_number])) {
+			/* lock the relation in such a way that we'll be notified 
+			   if it is locked for update; if we can't get the lock just
+			   give up and post the range */
+
+			relation_lock = RLCK_range_relation(request->req_transaction,
+												relation,
+												(int (*)()) post_event_ast,
+												(BLK) refresh_range);
+			if (!relation_lock) {
+				post_event(refresh_range);
+				delete_range(refresh_range);
+			}
+
+			/* place all relation locks into a vector for easy access later */
+
+			relation_locks = ALL_vector(request->req_pool,
+										&refresh_range->rng_relation_locks,
+										EXTEND(refresh_range->rng_relations));
+			relation_locks->vec_object[refresh_range->rng_relations] =
+				(BLK) relation_lock;
+			relation_locks =
+				ALL_vector(request->req_pool,
+						   &refresh_range->rng_relation_trans,
+						   EXTEND(refresh_range->rng_relations));
+			relation_locks->vec_object[refresh_range->rng_relations] =
+				(BLK) request->req_transaction;
+			refresh_range->rng_relations++;
+
+		}
+		request->req_operation = req_return;
+	}
+
+	return node->nod_parent;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void RNG_add_uncommitted_record(RPB * rpb)
+{
+/**************************************
+ *
+ *	R N G _ a d d _ u n c o m m i t t e d _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add interest in an uncommitted record version to  
+ *	any refresh ranges being created.  This is done by 
+ *	registering interest in the transaction that created it.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	RNG refresh_range, next_refresh_range;
+	VEC transaction_locks;
+	LCK transaction_lock;
+	USHORT i, next_range;
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+
+	for (refresh_range = request->req_begin_ranges; refresh_range;
+		 refresh_range = next_refresh_range) {
+		next_refresh_range = refresh_range->rng_next;
+		if (refresh_range->rng_flags & RNG_posted)
+			continue;
+
+		/* see if this refresh range already has a lock on this record */
+
+		next_range = FALSE;
+		if (transaction_locks = refresh_range->rng_transaction_locks)
+			for (i = 0; i < refresh_range->rng_transactions; i++) {
+				transaction_lock = (LCK) transaction_locks->vec_object[i];
+				if (transaction_lock->lck_key.lck_long ==
+					rpb->rpb_transaction) {
+					next_range = TRUE;
+					break;
+				}
+			}
+		if (next_range)
+			continue;
+
+		transaction_lock =
+			TRA_transaction_lock(tdbb, (BLK) rpb->rpb_transaction);
+		transaction_lock->lck_key.lck_long = rpb->rpb_transaction;
+		transaction_lock->lck_ast = post_event_ast;
+		transaction_lock->lck_object = (BLK) refresh_range;
+
+		/* try to get a shared read on the transaction lock, which will force
+		   the holder of an exclusive lock to downgrade; this is also his notification
+		   that he needs to upgrade back to exclusive at transaction commit  */
+
+		if (LCK_lock_non_blocking(tdbb, transaction_lock, LCK_SR, TRUE)) {
+			/* place all transaction locks into a vector */
+
+			transaction_locks = ALL_vector(request->req_pool,
+										   &refresh_range->rng_transaction_locks,
+										   EXTEND
+										   (refresh_range->rng_transactions));
+			transaction_locks->vec_object[refresh_range->rng_transactions] =
+				(BLK) transaction_lock;
+			refresh_range->rng_transactions++;
+		}
+		else {
+			post_event(refresh_range);
+			delete_range(refresh_range);
+		}
+	}
+}
+#endif
+
+
+#ifdef PC_ENGINE
+DSC *RNG_begin(NOD node, VLU impure)
+{
+/**************************************
+ *
+ *	R N G _ b e g i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a refresh range.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	REQ request;
+	TRA transaction;
+	DSC desc, *desc2;
+	RNG refresh_range;
+	USHORT range_number;
+	VEC refresh_ranges;
+	char event_name[RANGE_NAME_LENGTH], *p, *q;
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+	dbb = tdbb->tdbb_database;
+	transaction = request->req_transaction;
+
+/* check to make sure the range number is not already in use */
+
+	desc2 = EVL_expr(tdbb, node->nod_arg[e_brange_number]);
+	range_number = (USHORT) MOV_get_long(desc2, 0);
+
+	if ((refresh_ranges = request->req_refresh_ranges) &&
+		(range_number < refresh_ranges->vec_count) &&
+		(refresh_range = (RNG) refresh_ranges->vec_object[range_number])) {
+		if (refresh_range->rng_flags & RNG_posted)
+			delete_range(refresh_range);
+		else
+			ERR_post(gds__range_in_use, gds_arg_number, (SLONG) range_number,
+					 0);
+	}
+
+/* generate a name unique to this particular event within this database,
+   of the form "ISC_$RANGE_<tid>_<range_id>
+   use the transaction id as a start, even though this event is not 
+   related to the transction per se; it is just a means of generating
+   an id unique to the database */
+
+	for (p = event_name, q = "ISC$RANGE_"; *q;)
+		*p++ = *q++;
+
+/* move in the transaction id */
+
+	sprintf(p, "%ld_", transaction->tra_number);
+	while (*p)
+		p++;
+
+/* move in the transaction-unique cache range id */
+
+	sprintf(p, "%ld", transaction->tra_range_id++);
+	while (*p)
+		p++;
+
+/* allocate the range block and move the event name into it */
+
+	refresh_range = (RNG) ALLOCDV(type_rng, p - event_name + 1);
+	refresh_range->rng_event_length = p - event_name;
+	strcpy(refresh_range->rng_event, event_name);
+
+/* fill out the descriptor to point to the event name */
+
+	impure->vlu_desc.dsc_dtype = dtype_text;
+	impure->vlu_desc.dsc_scale = 0;
+	impure->vlu_desc.dsc_ttype = ttype_ascii;
+	impure->vlu_desc.dsc_address = refresh_range->rng_event;
+	impure->vlu_desc.dsc_length = refresh_range->rng_event_length;
+
+/* save the range's attachment */
+
+	refresh_range->rng_attachment = tdbb->tdbb_attachment;
+
+/* put the refresh range into a vector of ranges for this request */
+
+	refresh_range->rng_number = range_number;
+	refresh_ranges =
+		ALL_vector(tdbb->tdbb_default, &request->req_refresh_ranges,
+				   EXTEND(range_number));
+	refresh_ranges->vec_object[range_number] = (BLK) refresh_range;
+
+/* insert the range into the list of ranges actively being created */
+
+	refresh_range->rng_next = request->req_begin_ranges;
+	request->req_begin_ranges = refresh_range;
+	++dbb->dbb_refresh_ranges;
+
+/* downgrade ourselves to avoid selfdeadlock if another user attaches */
+
+	CCH_down_grade_dbb(dbb);
+
+	return &impure->vlu_desc;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+NOD RNG_delete(NOD node)
+{
+/**************************************
+ *
+ *	R N G _ d e l e t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a previously created refresh range.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	DSC *desc;
+	RNG refresh_range;
+	USHORT range_number;
+	VEC refresh_ranges;
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+
+	if (request->req_operation == req_evaluate) {
+		desc = EVL_expr(tdbb, node->nod_arg[e_drange_number]);
+		range_number = (USHORT) MOV_get_long(desc, 0);
+
+		/* check to see if the range exists */
+
+		if (!(refresh_ranges = request->req_refresh_ranges) ||
+			(range_number >= refresh_ranges->vec_count) ||
+			!(refresh_range = (RNG) refresh_ranges->vec_object[range_number]))
+			ERR_post(gds__range_not_found, gds_arg_number,
+					 (SLONG) range_number, 0);
+
+		delete_range(refresh_range);
+
+		request->req_operation = req_return;
+	}
+
+	return node->nod_parent;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void RNG_delete_ranges(REQ request)
+{
+/**************************************
+ *
+ *	R N G _ d e l e t e _ r a n g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete all refresh ranges in a request.
+ *
+ **************************************/
+	VEC refresh_ranges;
+	RNG refresh_range;
+	USHORT range_number;
+
+/* release all refresh ranges associated with request */
+
+	if (refresh_ranges = request->req_refresh_ranges)
+		for (range_number = 0; range_number < refresh_ranges->vec_count;
+			 range_number++)
+			if (refresh_range =
+				(RNG) refresh_ranges->vec_object[range_number])
+					delete_range(refresh_range);
+}
+#endif
+
+
+#ifdef PC_ENGINE
+NOD RNG_end(NOD node)
+{
+/**************************************
+ *
+ *	R N G _ e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stop adding records to refresh range.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	DSC *desc;
+	RNG refresh_range, *ptr;
+	USHORT range_number;
+	VEC refresh_ranges;
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+
+	if (request->req_operation == req_evaluate) {
+		desc = EVL_expr(tdbb, node->nod_arg[e_erange_number]);
+		range_number = (USHORT) MOV_get_long(desc, 0);
+
+		/* check to see if the range exists */
+
+		if ((refresh_ranges = request->req_refresh_ranges) &&
+			(range_number < refresh_ranges->vec_count) &&
+			(refresh_range = (RNG) refresh_ranges->vec_object[range_number])) {
+			/* if we've already posted the range, go ahead
+			   and delete it; otherwise stop adding locks */
+
+			if (refresh_range->rng_flags & RNG_posted)
+				delete_range(refresh_range);
+			else
+				stop_creating(refresh_range);
+		}
+
+		request->req_operation = req_return;
+	}
+
+	return node->nod_parent;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void RNG_release_locks(RNG refresh_range)
+{
+/**************************************
+ *
+ *	R N G _ r e l e a s e _ l o c k s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release all locks held by a refresh range.
+ *
+ **************************************/
+	LCK *lock_ptr;
+	RNG *range_ptr;
+	USHORT i;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+/* release all the relation locks */
+
+	if (refresh_range->rng_relation_locks) {
+		lock_ptr = (LCK *) refresh_range->rng_relation_locks->vec_object;
+		for (i = 0; i < refresh_range->rng_relations; i++) {
+			LCK_release(tdbb, *lock_ptr);
+			ALL_release(*lock_ptr);
+			*lock_ptr = NULL;
+			lock_ptr++;
+		}
+	}
+	refresh_range->rng_relation_locks = 0;
+
+/* release all the record locks */
+
+	if (refresh_range->rng_record_locks) {
+		lock_ptr = (LCK *) refresh_range->rng_record_locks->vec_object;
+		for (i = 0; i < refresh_range->rng_records; i++) {
+			RLCK_unlock_record(*lock_ptr, 0);
+			*lock_ptr = NULL;
+			lock_ptr++;
+		}
+	}
+	refresh_range->rng_record_locks = 0;
+
+/* release all page locks */
+
+	if (refresh_range->rng_page_locks) {
+		lock_ptr = (LCK *) refresh_range->rng_page_locks->vec_object;
+		for (i = 0; i < refresh_range->rng_pages; i++) {
+			LCK_release(tdbb, *lock_ptr);
+			ALL_release(*lock_ptr);
+			*lock_ptr = NULL;
+			lock_ptr++;
+		}
+	}
+	refresh_range->rng_page_locks = 0;
+
+/* release all transaction locks */
+
+	if (refresh_range->rng_transaction_locks) {
+		lock_ptr = (LCK *) refresh_range->rng_transaction_locks->vec_object;
+		for (i = 0; i < refresh_range->rng_transactions; i++) {
+			LCK_release(tdbb, *lock_ptr);
+			ALL_release(*lock_ptr);
+			*lock_ptr = NULL;
+			lock_ptr++;
+		}
+	}
+	refresh_range->rng_transaction_locks = 0;
+
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void RNG_release_ranges(REQ request)
+{
+/**************************************
+ *
+ *	R N G _ r e l e a s e _ r a n g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release the locks for all ranges in a request.
+ *
+ **************************************/
+	VEC refresh_ranges;
+	RNG refresh_range;
+	USHORT range_number;
+	DBB dbb;
+
+	dbb = GET_DBB;
+
+	if (refresh_ranges = request->req_refresh_ranges)
+		for (range_number = 0; range_number < refresh_ranges->vec_count;
+			 range_number++)
+			if (refresh_range =
+				(RNG) refresh_ranges->vec_object[range_number]) {
+				RNG_release_locks(refresh_range);
+				--dbb->dbb_refresh_ranges;
+			}
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void RNG_shutdown_attachment(ATT attachment)
+{
+/**************************************
+ *
+ *	R N G _ s h u t d o w n _ a t t a c h m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release refresh range locks for an attachment.
+ *	This may be called at AST level, don't release memory.
+ *
+ **************************************/
+	VEC refresh_ranges;
+	RNG refresh_range;
+	USHORT range_number, i;
+	REQ request;
+	LCK *lock_ptr;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	for (request = attachment->att_requests; request;
+		 request = request->req_request) if (refresh_ranges =
+											 request->req_refresh_ranges)
+				for (range_number = 0;
+					 range_number < refresh_ranges->vec_count; range_number++)
+				if (refresh_range =
+					(RNG) refresh_ranges->vec_object[range_number]) {
+					/* Shutdown range page locks */
+
+					if (refresh_range->rng_page_locks) {
+						lock_ptr =
+							(LCK *) refresh_range->rng_page_locks->vec_object;
+						for (i = 0; i < refresh_range->rng_pages; i++) {
+							LCK_release(tdbb, *lock_ptr);
+							lock_ptr++;
+						}
+					}
+					/* Shutdown range transaction locks */
+
+					if (refresh_range->rng_transaction_locks) {
+						lock_ptr =
+							(LCK *) refresh_range->
+							rng_transaction_locks->vec_object;
+						for (i = 0; i < refresh_range->rng_transactions; i++) {
+							LCK_release(tdbb, *lock_ptr);
+							lock_ptr++;
+						}
+					}
+				}
+}
+#endif
+
+
+#ifdef PC_ENGINE
+static void delete_range(RNG refresh_range)
+{
+/**************************************
+ *
+ *	d e l e t e _ r a n g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release all resources associated with
+ *	a refresh range.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	REQ request;
+	VEC refresh_ranges;
+	RNG *ptr;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	request = tdbb->tdbb_request;
+
+/* remove from the vector of refresh ranges for the request */
+
+	refresh_ranges = request->req_refresh_ranges;
+	refresh_ranges->vec_object[refresh_range->rng_number] = NULL;
+
+	stop_creating(refresh_range);
+
+	if (!(refresh_range->rng_flags & RNG_posted))
+		RNG_release_locks(refresh_range);
+
+	ALL_release(refresh_range);
+	--dbb->dbb_refresh_ranges;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+static void post_event(RNG refresh_range)
+{
+/**************************************
+ *
+ *	p o s t _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post the event associated with the 
+ *	refresh range.
+ *
+ **************************************/
+	DBB dbb;
+	LCK dbb_lock;
+	STATUS status[20];
+
+	dbb = GET_DBB;
+	dbb_lock = dbb->dbb_lock;
+
+/* detect duplicate posts and filter them out */
+
+	if (refresh_range->rng_flags & RNG_posted)
+		return;
+	refresh_range->rng_flags |= RNG_posted;
+
+/* post the event to the interested client */
+
+	EVENT_post(status,
+			   dbb_lock->lck_length,
+			   (TEXT *) & dbb_lock->lck_key,
+			   refresh_range->rng_event_length, refresh_range->rng_event, 1);
+}
+#endif
+
+
+#ifdef PC_ENGINE
+static void post_event_ast(RNG refresh_range)
+{
+/**************************************
+ *
+ *	p o s t _ e v e n t _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post the event associated with the 
+ *	refresh range.
+ *
+ **************************************/
+	struct tdbb thd_context, *tdbb;
+
+/* Since this routine will be called asynchronously, we must establish
+   a thread context. */
+
+	SET_THREAD_DATA;
+
+	tdbb->tdbb_database = refresh_range->rng_attachment->att_database;
+	tdbb->tdbb_attachment = refresh_range->rng_attachment;
+	tdbb->tdbb_quantum = QUANTUM;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+
+	post_event(refresh_range);
+	RNG_release_locks(refresh_range);
+
+/* Restore the prior thread context */
+
+	RESTORE_THREAD_DATA;
+}
+#endif
+
+
+#ifdef PC_ENGINE
+static void stop_creating(RNG refresh_range)
+{
+/**************************************
+ *
+ *	s t o p _ c r e a t i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove the refresh range from the list of
+ *	those being created.
+ *
+ **************************************/
+	TDBB tdbb;
+	REQ request;
+	RNG *ptr;
+
+	tdbb = GET_THREAD_DATA;
+	request = tdbb->tdbb_request;
+
+/* delete from the list of ranges being created */
+
+	for (ptr = &request->req_begin_ranges; *ptr; ptr = &(*ptr)->rng_next)
+		if (*ptr == refresh_range) {
+			*ptr = (*ptr)->rng_next;
+			break;
+		}
+}
+#endif
diff --git a/src/jrd/rng.h b/src/jrd/rng.h
new file mode 100644
index 0000000000..0709c73656
--- /dev/null
+++ b/src/jrd/rng.h
@@ -0,0 +1,54 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		rng.h
+ *	DESCRIPTION:	Refresh Range Definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_RNG_H_
+#define _JRD_RNG_H_
+
+/* refresh range block used to store info about a particular
+   set of records in a refresh range */
+
+typedef struct rng {
+	struct blk rng_header;
+	struct rng *rng_next;		/* next in list of ranges being created */
+	struct att *rng_attachment;	/* attachment that owns range */
+	struct rng *rng_lck_next;	/* next in list of ranges interested in a lock */
+	struct vec *rng_relation_locks;	/* relation locks */
+	struct vec *rng_relation_trans;	/* relation transactions */
+	struct vec *rng_record_locks;	/* record locks */
+	struct vec *rng_page_locks;	/* page locks */
+	struct vec *rng_transaction_locks;	/* transaction locks */
+	USHORT rng_relations;		/* count of relations in range */
+	USHORT rng_records;			/* count of records in range */
+	USHORT rng_pages;			/* count of index pages in range */
+	USHORT rng_transactions;	/* count of uncommitted transactions in range */
+	USHORT rng_number;			/* range number */
+	USHORT rng_flags;			/* see flags below */
+	USHORT rng_event_length;	/* length of event name */
+	UCHAR rng_event[1];			/* event name to post */
+} *RNG;
+
+#define RNG_posted	1			/* range has already been posted */
+
+#define RANGE_NAME_LENGTH	31	/* max. length of range name for the event */
+
+#endif /* _JRD_RNG_H_ */
diff --git a/src/jrd/rng_proto.h b/src/jrd/rng_proto.h
new file mode 100644
index 0000000000..df23672b36
--- /dev/null
+++ b/src/jrd/rng_proto.h
@@ -0,0 +1,41 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		rng_proto.h
+ *	DESCRIPTION:	Prototype header file for rng.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_RNG_PROTO_H_
+#define _JRD_RNG_PROTO_H_
+
+#ifdef PC_ENGINE
+extern void RNG_add_page(ULONG);
+extern void RNG_add_record(struct rpb *);
+extern struct nod *RNG_add_relation(struct nod *);
+extern void RNG_add_uncommitted_record(struct rpb *);
+extern struct dsc *RNG_begin(struct nod *, struct vlu *);
+extern struct nod *RNG_delete(struct nod *);
+extern void RNG_delete_ranges(struct req *);
+extern struct nod *RNG_end(struct nod *);
+extern void RNG_release_locks(struct rng *);
+extern void RNG_release_ranges(struct req *);
+extern void RNG_shutdown_attachment(struct att *);
+#endif
+
+#endif /* _JRD_RNG_PROTO_H_ */
diff --git a/src/jrd/rse.cpp b/src/jrd/rse.cpp
new file mode 100644
index 0000000000..c4a57e5dd7
--- /dev/null
+++ b/src/jrd/rse.cpp
@@ -0,0 +1,3764 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		rse.c
+ *	DESCRIPTION:	Run time record fetching
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: rse.cpp,v 1.1.1.1 2001-05-23 13:26:16 tamlin Exp $
+*/
+
+#include <errno.h>
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/req.h"
+#include "../jrd/val.h"
+#include "../jrd/exe.h"
+#include "../jrd/rse.h"
+#include "../jrd/sbm.h"
+#include "../jrd/lls.h"
+#include "../jrd/sort.h"
+#include "../jrd/intl.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../jrd/lck.h"
+#include "../jrd/cch.h"
+#include "../jrd/codes.h"
+#include "../jrd/gdsassert.h"
+#ifdef GATEWAY
+#include ".._gway/gway/sql.h"
+#endif
+#include "../jrd/all_proto.h"
+#include "../jrd/bookmark.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/ext_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/intl_proto.h"
+#include "../jrd/jrd_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/nav_proto.h"
+#include "../jrd/rlck_proto.h"
+#include "../jrd/rse_proto.h"
+#include "../jrd/rse_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/sort_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/vio_proto.h"
+
+#if defined(WIN_NT)
+#include <io.h>
+#endif
+
+static void close_merge(TDBB, RSB, IRSB_MRG);
+static void close_procedure(TDBB, RSB);
+static SSHORT compare(TDBB, NOD, NOD);
+static SSHORT compare_longs(SLONG *, SLONG *, USHORT);
+#ifdef SCROLLABLE_CURSORS
+static BOOLEAN fetch_record(TDBB, RSB, SSHORT, RSE_GET_MODE);
+static BOOLEAN get_merge_join(TDBB, RSB, IRSB_MRG, RSE_GET_MODE);
+static BOOLEAN get_merge_fetch(TDBB, RSB, SSHORT, RSE_GET_MODE);
+static SLONG get_merge_record(TDBB, RSB, irsb_mrg::irsb_mrg_repeat *,
+							  RSE_GET_MODE);
+static UCHAR *get_sort(TDBB, RSB, RSE_GET_MODE);
+static void resynch_merge(TDBB, RSB, IRSB_MRG, RSE_GET_MODE);
+static void unget_sort(TDBB, RSB, UCHAR *);
+#else
+static BOOLEAN fetch_record(TDBB, RSB, SSHORT);
+static BOOLEAN get_merge_join(TDBB, RSB, IRSB_MRG);
+static BOOLEAN get_merge_fetch(TDBB, RSB, SSHORT);
+static SLONG get_merge_record(TDBB, RSB, irsb_mrg::irsb_mrg_repeat *);
+static UCHAR *get_sort(TDBB, RSB);
+#endif
+#ifdef SCROLLABLE_CURSORS
+static BOOLEAN fetch_left(TDBB, RSB, IRSB, RSE_GET_MODE);
+#else
+static BOOLEAN fetch_left(TDBB, RSB, IRSB);
+#endif
+static UCHAR *get_merge_data(TDBB, MFB, SLONG);
+static BOOLEAN get_procedure(TDBB, RSB, IRSB_PROCEDURE, RPB *);
+static BOOLEAN get_record(TDBB, RSB, RSB, RSE_GET_MODE);
+static BOOLEAN get_union(TDBB, RSB, IRSB);
+static void join_to_nulls(TDBB, RSB, USHORT);
+static void map_sort_data(REQ, SMB, UCHAR *);
+static void open_merge(TDBB, RSB, IRSB_MRG);
+static void open_procedure(TDBB, RSB, IRSB_PROCEDURE);
+static void open_sort(TDBB, RSB, IRSB_SORT);
+static void proc_assignment(DSC *, DSC *, UCHAR *, DSC *, SSHORT, REC);
+static void pop_rpbs(REQ, RSB);
+static void push_rpbs(TDBB, REQ, RSB);
+static ULONG read_merge_block(TDBB, MFB, ULONG);
+static BOOLEAN reject(UCHAR *, UCHAR *, int);
+static void restore_record(RPB *);
+static void save_record(TDBB, RPB *);
+static void write_merge_block(TDBB, MFB, ULONG);
+
+#ifndef NETWARE_386
+#ifdef PC_PLATFORM
+#define SCRATCH         "m"
+#endif
+#endif
+
+#ifdef SMALL_FILE_NAMES
+#ifndef NETWARE_386
+#define SCRATCH         "gds_m"
+#endif
+#endif
+
+#if (defined WIN_NT || defined NETWARE_386)
+#define SCRATCH         "ib_merge_"
+#endif
+
+#ifndef SCRATCH
+#define SCRATCH         "gds_merge_"
+#endif
+
+
+
+void RSE_close(TDBB tdbb, RSB rsb)
+{
+/**************************************
+ *
+ *	R S E _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	IRSB_SORT impure;
+
+	SET_TDBB(tdbb);
+
+	while (TRUE) {
+		impure = (IRSB_SORT) ((UCHAR *) tdbb->tdbb_request + rsb->rsb_impure);
+		if (!(impure->irsb_flags & irsb_open))
+			return;
+
+		impure->irsb_flags &= ~irsb_open;
+
+		switch (rsb->rsb_type) {
+#ifndef GATEWAY
+		case rsb_indexed:
+		case rsb_navigate:
+			return;
+
+		case rsb_sequential:
+			{
+				REQ request;
+				RPB *rpb;
+
+				request = tdbb->tdbb_request;
+				rpb = &request->req_rpb[rsb->rsb_stream];
+				if (rpb->rpb_window.win_flags & WIN_large_scan &&
+					rpb->rpb_relation->rel_scan_count)
+						--rpb->rpb_relation->rel_scan_count;
+				return;
+			}
+#endif
+
+		case rsb_first:
+		case rsb_boolean:
+		case rsb_aggregate:
+			rsb = rsb->rsb_next;
+			break;
+
+		case rsb_cross:
+			{
+				RSB *ptr, *end;
+
+				for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count;
+					 ptr < end; ptr++)
+					RSE_close(tdbb, *ptr);
+				return;
+			}
+
+		case rsb_left_cross:
+			RSE_close(tdbb, rsb->rsb_arg[RSB_LEFT_outer]);
+			RSE_close(tdbb, rsb->rsb_arg[RSB_LEFT_inner]);
+			return;
+
+		case rsb_procedure:
+			close_procedure(tdbb, rsb);
+			return;
+
+		case rsb_merge:
+			close_merge(tdbb, rsb, (IRSB_MRG) impure);
+			return;
+
+		case rsb_sort:
+			if (impure->irsb_sort_handle) {
+				SORT_fini(impure->irsb_sort_handle, tdbb->tdbb_attachment);
+				impure->irsb_sort_handle = NULL;
+			}
+			rsb = rsb->rsb_next;
+			break;
+
+		case rsb_union:
+			{
+				USHORT i;
+
+				i = ((IRSB) impure)->irsb_count;
+				if (i >= rsb->rsb_count)
+					return;
+				rsb = rsb->rsb_arg[i];
+			}
+			break;
+
+#ifndef GATEWAY
+		case rsb_ext_sequential:
+		case rsb_ext_indexed:
+		case rsb_ext_dbkey:
+			EXT_close(rsb);
+			return;
+
+#else
+		case rsb_select:
+			FRGN_complete_sql(tdbb->tdbb_request, rsb->rsb_arg[0], FALSE);
+			if (rsb = rsb->rsb_next)
+				break;
+			return;
+
+		case rsb_sql_join:
+			{
+				RSB *ptr, *end;
+
+				for (ptr = &rsb->rsb_arg[1], end = ptr + rsb->rsb_count;
+					 ptr < end; ptr++)
+					RSE_close(tdbb, *ptr);
+				FRGN_complete_sql(request, rsb->rsb_arg[0], FALSE);
+				if (rsb = rsb->rsb_next)
+					break;
+				return;
+			}
+
+		case rsb_simulate:
+			return;
+
+		case rsb_sim_cross:
+			{
+				RSB *ptr, *end;
+
+				for (ptr = &rsb->rsb_arg[1], end = ptr + rsb->rsb_count;
+					 ptr < end; ptr++)
+					RSE_close(tdbb, *ptr);
+				return;
+			}
+
+		case rsb_once:
+			rsb = rsb->rsb_next;
+			break;
+#endif
+
+		default:
+			BUGCHECK(166);		/* msg 166 invalid rsb type */
+		}
+	}
+}
+
+
+#ifdef PC_ENGINE
+BOOLEAN RSE_find_dbkey(TDBB tdbb, RSB rsb, NOD find_key, NOD record_version)
+{
+/**************************************
+ *
+ *	R S E _ f i n d _ d b k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the passed dbkey in the stream
+ *	with equivalent key values.  Optionally,
+ *	check for a record version also.
+ *
+ **************************************/
+	REQ request;
+	RPB *rpb;
+	DSC *desc, desc2;
+	ULONG dbkey[2], version_number;
+	IRSB_INDEX impure;
+	SBM *bitmap;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+
+/* get the record number from the passed dbkey */
+
+	desc = EVL_expr(tdbb, find_key);
+	desc2.dsc_address = (UCHAR *) dbkey;
+	desc2.dsc_length = sizeof(dbkey);
+	desc2.dsc_dtype = dtype_text;
+	desc2.dsc_scale = 0;
+	desc2.dsc_sub_type = ttype_binary;
+	desc2.dsc_flags = 0;
+
+	MOV_move(desc, &desc2);
+
+/* now get the record version to use in comparing
+   against the tid of the record */
+
+	if (record_version) {
+		desc = EVL_expr(tdbb, record_version);
+
+		desc2.dsc_address = (UCHAR *) & version_number;
+		desc2.dsc_length = sizeof(version_number);
+		desc2.dsc_dtype = dtype_text;
+		desc2.dsc_scale = 0;
+		desc2.dsc_sub_type = ttype_binary;
+		desc2.dsc_flags = 0;
+
+		MOV_move(desc, &desc2);
+	}
+
+	switch (rsb->rsb_type) {
+	case rsb_boolean:
+		if (!RSE_find_dbkey(tdbb, rsb->rsb_next, find_key, record_version))
+			return FALSE;
+
+		if ((rsb->rsb_arg[0]) && (!EVL_boolean(tdbb, rsb->rsb_arg[0]))) {
+			RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+			return FALSE;
+		}
+
+		return TRUE;
+
+	case rsb_navigate:
+		rpb = request->req_rpb + rsb->rsb_stream;
+		rpb->rpb_number = dbkey[1] - 1;
+
+		/* first, fetch the indicated record */
+
+		if (!VIO_get
+			(tdbb, rpb, rsb, request->req_transaction,
+			 request->req_pool)) return FALSE;
+		if (record_version && version_number != rpb->rpb_transaction)
+			return FALSE;
+
+		/* next, set the stream position to that of the fetched record */
+
+		RSE_MARK_CRACK(tdbb, rsb, 0);
+		if (NAV_reset_position(rsb, rpb))
+			return TRUE;
+		RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+		return FALSE;
+
+	case rsb_sequential:
+		rpb = request->req_rpb + rsb->rsb_stream;
+		rpb->rpb_number = dbkey[1] - 1;
+
+		RSE_MARK_CRACK(tdbb, rsb, 0);
+		if (VIO_get
+			(tdbb, rpb, rsb, request->req_transaction, request->req_pool)
+			&& (!record_version || version_number == rpb->rpb_transaction))
+			return TRUE;
+		RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+		return FALSE;
+
+	case rsb_indexed:
+		rpb = request->req_rpb + rsb->rsb_stream;
+		rpb->rpb_number = dbkey[1] - 1;
+		impure = (IRSB_INDEX) ((UCHAR *) request + rsb->rsb_impure);
+
+		RSE_MARK_CRACK(tdbb, rsb, 0);
+		if ((bitmap = impure->irsb_bitmap) &&
+			SBM_next(*bitmap, &rpb->rpb_number, RSE_get_current) &&
+			VIO_get(tdbb, rpb, rsb, request->req_transaction,
+					request->req_pool) && (!record_version
+										   || version_number ==
+										   rpb->rpb_transaction)) return TRUE;
+		RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+		return FALSE;
+
+	default:
+		BUGCHECK(166);			/* msg 166 invalid rsb type */
+		return FALSE;			/* Added to remove compiler warnings */
+	}
+}
+#endif
+
+
+#ifdef PC_ENGINE
+BOOLEAN RSE_find_record(TDBB tdbb,
+						RSB rsb,
+						USHORT operator, USHORT direction, NOD find_key)
+{
+/**************************************
+ *
+ *	R S E _ f i n d _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the record with the passed key
+ *	value, using the passed operator to 
+ *	compare records with the key value.
+ *	Search forwards or backwards.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	switch (rsb->rsb_type) {
+	case rsb_indexed:
+		return RSE_find_record(tdbb, rsb->rsb_next, operator, direction,
+							   find_key);
+
+	case rsb_boolean:
+		if (!RSE_find_record
+			(tdbb, rsb->rsb_next, operator, direction,
+			 find_key)) return FALSE;
+
+		if ((rsb->rsb_arg[0]) && (!EVL_boolean(tdbb, rsb->rsb_arg[0]))) {
+			RSE_MARK_CRACK(tdbb, rsb, irsb_crack);
+			return FALSE;
+		}
+
+		return TRUE;
+
+	case rsb_navigate:
+		return NAV_find_record(rsb, operator, direction, find_key);
+
+	default:
+		BUGCHECK(166);			/* msg 166 invalid rsb type */
+		return FALSE;			/* Added to remove compiler warnings */
+	}
+}
+#endif
+
+
+BOOLEAN RSE_get_record(TDBB tdbb, RSB rsb, RSE_GET_MODE mode)
+{
+/**************************************
+ *
+ *	R S E _ g e t _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	External entrypoint for get_record().
+ *	Handle the "stickiness" of directionality.
+ *	Check whether we need to count records
+ *	retrieved at the top level of the rsb tree.
+ *
+ **************************************/
+	REQ request;
+	BOOLEAN result, count;
+	IRSB impure;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	impure = (IRSB) ((UCHAR *) request + rsb->rsb_impure);
+
+#ifdef SCROLLABLE_CURSORS
+/* The mode RSE_get_next is a generic mode which requests that 
+   we continue on in the last direction we were going.  Oblige 
+   by converting the mode to the appropriate direction. */
+
+	if (mode == RSE_get_next)
+		mode =
+			(impure->irsb_flags & irsb_last_backwards) ? RSE_get_backward :
+			RSE_get_forward;
+	request->req_flags &= ~req_fetch_required;
+#endif
+
+/* Turn off the flag so that records at a 
+   lower level will not be counted. */
+
+	count = (request->req_flags & req_count_records) != 0;
+	request->req_flags &= ~req_count_records;
+
+	if (result = get_record(tdbb, rsb, NULL, mode))
+		if (count)
+			request->req_records_selected++;
+
+/* reset the flag to whatever it was */
+
+	if (count)
+		request->req_flags |= req_count_records;
+
+	return result;
+}
+
+
+#ifdef PC_ENGINE
+BKM RSE_get_bookmark(TDBB tdbb, RSB rsb)
+{
+/**************************************
+ *
+ *	R S E _ g e t _ b o o k m a r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a descriptor whose value is a pointer
+ *	to a bookmark describing the location of 
+ *	the current record in a navigational stream.
+ *
+ **************************************/
+	REQ request;
+	BKM bookmark;
+	RPB *rpb;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	if (request->req_flags & req_abort)
+		return FALSE;
+
+	switch (rsb->rsb_type) {
+	case rsb_boolean:
+		return RSE_get_bookmark(rsb->rsb_next);
+
+	case rsb_navigate:
+		{
+			IRSB_NAV impure;
+
+			impure = (IRSB_NAV) ((UCHAR *) request + rsb->rsb_impure);
+			bookmark = BKM_allocate(rsb, impure->irsb_nav_length);
+			NAV_get_bookmark(rsb, impure, bookmark);
+			return bookmark;
+		}
+
+	case rsb_indexed:
+	case rsb_sequential:
+		rpb = request->req_rpb + rsb->rsb_stream;
+
+		bookmark = BKM_allocate(rsb, (USHORT) 0);
+		bookmark->bkm_number = rpb->rpb_number;
+		bookmark->bkm_key_desc.dsc_dtype = dtype_long;
+		bookmark->bkm_key_desc.dsc_length = sizeof(bookmark->bkm_number);
+		bookmark->bkm_key_desc.dsc_address = (UCHAR *) & bookmark->bkm_number;
+		return bookmark;
+
+	default:
+		BUGCHECK(166);			/* msg 166 invalid rsb type */
+		return FALSE;			/* Added to remove compiler warnings */
+	}
+}
+#endif
+
+
+#ifdef PC_ENGINE
+void RSE_mark_crack(TDBB tdbb, RSB rsb, USHORT flags)
+{
+/**************************************
+ *
+ *	R S E _ m a r k _ c r a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Position stream on a crack.
+ *
+ **************************************/
+	REQ request;
+	RPB *rpb;
+	IRSB impure;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+
+/* correct boolean rsbs to point to the "real" rsb */
+
+	if (rsb->rsb_type == rsb_boolean)
+		rsb = rsb->rsb_next;
+
+/* clear all the flag bits first to make sure 
+   no conflicting bits are set */
+
+	impure = (IRSB) ((UCHAR *) request + rsb->rsb_impure);
+	impure->irsb_flags &=
+		~(irsb_bof | irsb_eof | irsb_crack | irsb_forced_crack);
+
+	impure->irsb_flags |= flags;
+
+/* release the current record to make sure
+   that no one erroneously tries to retrieve it */
+
+	if (flags) {
+		rpb = &request->req_rpb[rsb->rsb_stream];
+		if (rpb->rpb_record) {
+			ALL_release(rpb->rpb_record);
+			rpb->rpb_record = NULL;
+		}
+		if (rpb->rpb_copy) {
+			ALL_release(rpb->rpb_copy);
+			rpb->rpb_copy = NULL;
+		}
+	}
+}
+#endif
+
+
+void RSE_open(TDBB tdbb, RSB rsb)
+{
+/**************************************
+ *
+ *	R S E _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a stream, as represented by the 
+ *	record source block (rsb).
+ *
+ **************************************/
+	REQ request;
+	register IRSB_INDEX impure;
+	register RPB *rpb;
+
+	SET_TDBB(tdbb);
+
+	request = tdbb->tdbb_request;
+
+	while (TRUE) {
+		impure = (IRSB_INDEX) ((SCHAR *) request + rsb->rsb_impure);
+		impure->irsb_flags |= irsb_first | irsb_open;
+		impure->irsb_flags &=
+			~(irsb_singular_processed | irsb_checking_singular);
+		rpb = &request->req_rpb[rsb->rsb_stream];
+		rpb->rpb_window.win_flags = 0;
+
+		switch (rsb->rsb_type) {
+#ifndef GATEWAY
+		case rsb_indexed:
+			impure->irsb_bitmap = EVL_bitmap(tdbb, (NOD) rsb->rsb_arg[0]);
+			impure->irsb_prefetch_number = -1;
+
+		case rsb_navigate:
+		case rsb_sequential:
+#ifdef SCROLLABLE_CURSORS
+			if (rsb->rsb_type == rsb_navigate) {
+				impure->irsb_flags |= irsb_bof;
+				impure->irsb_flags &= ~irsb_eof;
+			}
+#endif
+			if (rsb->rsb_type == rsb_sequential) {
+				ATT attachment;
+				BCB bcb;
+				DBB dbb;
+
+				dbb = tdbb->tdbb_database;
+				bcb = dbb->dbb_bcb;
+
+				/* Unless this is the only attachment, limit the cache flushing
+				   effect of large sequential scans on the page working sets of
+				   other attachments. */
+
+				if ((attachment = tdbb->tdbb_attachment) &&
+					(attachment != dbb->dbb_attachments
+					 || attachment->att_next)) {
+					/* If the relation has more data pages than the number of
+					   pages in the buffer cache then mark the input window
+					   block as a large scan so that a data page is released
+					   to the LRU tail after its last record is fetched.
+
+					   A database backup treats everything as a large scan
+					   because the cumulative effect of scanning all relations
+					   is equal to that of a single large relation. */
+
+					if (attachment->att_flags & ATT_gbak_attachment ||
+						DPM_data_pages(tdbb,
+									   rpb->rpb_relation) > bcb->bcb_count)
+					{
+						rpb->rpb_window.win_flags = WIN_large_scan;
+						rpb->rpb_org_scans =
+							rpb->rpb_relation->rel_scan_count++;
+					}
+				}
+			}
+
+			RLCK_reserve_relation(tdbb, request->req_transaction,
+								  rpb->rpb_relation, FALSE, TRUE);
+
+			rpb->rpb_number = -1;
+			return;
+#endif
+
+		case rsb_cross:
+			return;
+
+		case rsb_sort:
+#ifdef SCROLLABLE_CURSORS
+			impure->irsb_flags |= irsb_bof;
+			impure->irsb_flags &= ~irsb_eof;
+#endif
+			open_sort(tdbb, rsb, (IRSB_SORT) impure);
+			return;
+
+		case rsb_procedure:
+			open_procedure(tdbb, rsb, (IRSB_PROCEDURE) impure);
+			return;
+
+		case rsb_first:
+			impure->irsb_number =
+				MOV_get_long(EVL_expr(tdbb, (NOD) rsb->rsb_arg[0]), 0);
+			rsb = rsb->rsb_next;
+			break;
+
+		case rsb_boolean:
+			rsb = rsb->rsb_next;
+			break;
+
+		case rsb_union:
+			{
+				RSB *ptr, *end;
+
+				((IRSB) impure)->irsb_count = 0;
+				VIO_record(tdbb, rpb, rsb->rsb_format, tdbb->tdbb_default);
+
+				/* Initialize the record number of each stream in the union */
+
+				ptr = &rsb->rsb_arg[rsb->rsb_count];
+				for (end = ptr + (USHORT) * ptr; ++ptr <= end;)
+					request->req_rpb[(USHORT) * ptr].rpb_number = -1;
+
+				rsb = rsb->rsb_arg[0];
+			}
+			break;
+
+		case rsb_aggregate:
+			((IRSB) impure)->irsb_count = 3;
+			VIO_record(tdbb, rpb, rsb->rsb_format, tdbb->tdbb_default);
+			return;
+
+		case rsb_merge:
+			open_merge(tdbb, rsb, (IRSB_MRG) impure);
+			return;
+
+#ifndef GATEWAY
+		case rsb_ext_sequential:
+		case rsb_ext_indexed:
+		case rsb_ext_dbkey:
+			EXT_open(rsb);
+			return;
+#endif
+
+		case rsb_left_cross:
+			{
+				LLS stack;
+				RSB right_rsbs;
+
+				RSE_open(tdbb, rsb->rsb_arg[RSB_LEFT_outer]);
+				impure->irsb_flags &=
+					~(irsb_first | irsb_in_opened | irsb_join_full);
+				impure->irsb_flags |= irsb_mustread;
+
+				/* Allocate a record block for each union and aggregate
+				   stream in the right sub-stream.  The block will be needed
+				   if we join to nulls before opening the rsbs */
+
+				for (stack = (LLS) rsb->rsb_arg[RSB_LEFT_rsbs]; stack;
+					 stack = stack->lls_next) {
+					right_rsbs = (RSB) stack->lls_object;
+					VIO_record(tdbb,
+							   &request->req_rpb[right_rsbs->rsb_stream],
+							   right_rsbs->rsb_format, tdbb->tdbb_default);
+				}
+				return;
+			}
+
+#ifdef GATEWAY
+		case rsb_select:
+			{
+				USHORT upd_flag;
+
+				upd_flag =
+					(((SQL) rsb->rsb_arg[0])->sql_flags & sql_for_update) ?
+					TRUE : FALSE;
+				RLCK_reserve_relation(tdbb, request->req_transaction,
+									  rpb->rpb_relation, upd_flag, TRUE);
+				rpb->rpb_number = -1;
+				VIO_record(tdbb, rpb, rsb->rsb_format, tdbb->tdbb_default);
+				if (rsb = rsb->rsb_next)
+					break;
+				return;
+			}
+
+		case rsb_sql_join:
+			{
+				RSB *ptr, *end;
+
+				for (ptr = &rsb->rsb_arg[1], end = ptr + rsb->rsb_count;
+					 ptr < end; ptr++)
+					RSE_open(tdbb, *ptr);
+				if (rsb = rsb->rsb_next)
+					break;
+				return;
+			}
+
+		case rsb_simulate:
+			{
+				REC record;
+
+				record =
+					VIO_record(tdbb, rpb, rsb->rsb_format,
+							   tdbb->tdbb_default);
+				EXE_set_fields_null(tdbb, record, record->rec_format);
+				((IRSB_SIM) impure)->irsb_flags = irsb_first;
+				((IRSB_SIM) impure)->irsb_sim_rid = 0;
+				return;
+			}
+
+		case rsb_sim_cross:
+			{
+				RSB *ptr, *end;
+
+				for (ptr = &rsb->rsb_arg[1], end = ptr + rsb->rsb_count;
+					 ptr < end; ptr++)
+					RSE_open(tdbb, *ptr);
+				((IRSB_SIM) impure)->irsb_flags = irsb_first;
+				((IRSB_SIM) impure)->irsb_sim_rid = 0;
+				return;
+			}
+
+		case rsb_once:
+			rsb = rsb->rsb_next;
+			break;
+#endif
+
+		default:
+			BUGCHECK(166);		/* msg 166 invalid rsb type */
+		}
+	}
+}
+
+
+#ifdef PC_ENGINE
+BOOLEAN RSE_reset_position(TDBB tdbb, RSB rsb, RPB * new_rpb)
+{
+/**************************************
+ *
+ *	R S E _ r e s e t _ p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset the position of a navigational stream to 
+ *	the position indicated by the passed record.
+ *
+ **************************************/
+	REQ request;
+	RPB *rpb;
+	IRSB_INDEX impure;
+	SBM *bitmap;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	if (request->req_flags & req_abort)
+		return FALSE;
+
+	switch (rsb->rsb_type) {
+	case rsb_boolean:
+		return RSE_reset_position(rsb->rsb_next, new_rpb);
+
+	case rsb_navigate:
+		RSE_MARK_CRACK(rsb, 0);
+		if (!(NAV_reset_position(rsb, new_rpb))) {
+			RSE_MARK_CRACK(rsb, irsb_crack);
+			return FALSE;
+		}
+		return TRUE;
+
+	case rsb_sequential:
+		RSE_MARK_CRACK(rsb, 0);
+		rpb = request->req_rpb + rsb->rsb_stream;
+		rpb->rpb_number = new_rpb->rpb_number;
+
+		if (!
+			(VIO_get
+			 (tdbb, rpb, rsb, request->req_transaction, request->req_pool))) {
+			RSE_MARK_CRACK(rsb, irsb_crack);
+			return FALSE;
+		}
+		return TRUE;
+
+	case rsb_indexed:
+		RSE_MARK_CRACK(rsb, 0);
+		rpb = request->req_rpb + rsb->rsb_stream;
+		rpb->rpb_number = new_rpb->rpb_number;
+
+		impure = (IRSB_INDEX) ((UCHAR *) request + rsb->rsb_impure);
+		if ((bitmap = impure->irsb_bitmap) &&
+			SBM_next(*bitmap, &rpb->rpb_number, RSE_get_current) &&
+			VIO_get(tdbb, rpb, rsb, request->req_transaction,
+					request->req_pool)) return TRUE;
+
+		RSE_MARK_CRACK(rsb, irsb_crack);
+		return FALSE;
+
+	default:
+		BUGCHECK(166);			/* msg 166 invalid rsb type */
+		return FALSE;			/* Added to remove compiler warnings */
+	}
+}
+#endif
+
+
+#ifdef PC_ENGINE
+BOOLEAN RSE_set_bookmark(TDBB tdbb, RSB rsb, RPB * rpb, BKM bookmark)
+{
+/**************************************
+ *
+ *	R S E _ s e t _ b o o k m a r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the location of a stream to the location 
+ *	specified by the given bookmark.
+ *
+ **************************************/
+	REQ request;
+	IRSB impure;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+	if (request->req_flags & req_abort)
+		return FALSE;
+
+	impure = (IRSB) ((UCHAR *) request + rsb->rsb_impure);
+
+	switch (rsb->rsb_type) {
+	case rsb_boolean:
+		return RSE_set_bookmark(rsb->rsb_next, rpb, bookmark);
+
+	case rsb_navigate:
+		return NAV_set_bookmark(rsb, impure, rpb, bookmark);
+
+	case rsb_sequential:
+	case rsb_indexed:
+		rpb->rpb_number = bookmark->bkm_number;
+
+		if (impure->irsb_flags & (irsb_bof | irsb_eof | irsb_crack))
+			return FALSE;
+
+		if (!(get_record(tdbb, rsb, NULL, RSE_get_current))) {
+			RSE_MARK_CRACK(rsb, irsb_crack);
+			return FALSE;
+		}
+		return TRUE;
+
+	default:
+		BUGCHECK(166);			/* msg 166 invalid rsb type */
+		return FALSE;			/* Added to remove compiler warnings */
+	}
+}
+#endif
+
+
+static void close_merge(TDBB tdbb, RSB rsb, IRSB_MRG impure)
+{
+/**************************************
+ *
+ *	c l o s e _ m e r g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a merge stream by closing all substreams 
+ *	and cleaning up after any prior sort-merge retrieval.
+ *
+ **************************************/
+	RSB *ptr, *end;
+	MFB mfb;
+	SFB sfb;
+	irsb_mrg::irsb_mrg_repeat * tail;
+
+	SET_TDBB(tdbb);
+
+/* do two simultaneous but unrelated things in one loop */
+
+	for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count * 2, tail =
+		 impure->irsb_mrg_rpt; ptr < end; ptr += 2, tail++) {
+		/* close all the substreams for the sort-merge */
+
+		RSE_close(tdbb, *ptr);
+
+		/* Release memory associated with the merge file block
+		   and the sort file block. Also delete the merge file
+		   if one exists. */
+
+		mfb = &tail->irsb_mrg_file;
+		if (sfb = mfb->mfb_sfb) {
+			if (sfb->sfb_file_name) {
+				close(sfb->sfb_file);
+				unlink(sfb->sfb_file_name);
+				ALL_free(sfb->sfb_file_name);
+			}
+			ALL_free(reinterpret_cast < char *>(sfb));
+			mfb->mfb_sfb = 0;
+		}
+		if (mfb->mfb_block_data) {
+			ALL_sys_free(reinterpret_cast < char *>(mfb->mfb_block_data));
+			mfb->mfb_block_data = 0;
+		}
+	}
+}
+
+
+static void close_procedure(TDBB tdbb, RSB rsb)
+{
+/**************************************
+ *
+ *	c l o s e _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shut down a procedural view.
+ *
+ **************************************/
+	REQ request, proc_request;
+	IRSB_PROCEDURE impure;
+
+	SET_TDBB(tdbb);
+
+	request = tdbb->tdbb_request;
+	impure = (IRSB_PROCEDURE) ((UCHAR *) request + rsb->rsb_impure);
+	if (proc_request = impure->irsb_req_handle) {
+		/* bug #7884: at this point the transaction could already have
+		   been released, so null it out so as not to dereference it */
+
+		proc_request->req_transaction = NULL;
+		EXE_unwind(tdbb, proc_request);
+		proc_request->req_flags &= ~req_in_use;
+		impure->irsb_req_handle = 0;
+		proc_request->req_attachment = NULL;
+	}
+
+	if (impure->irsb_message) {
+		ALL_release((FRB) impure->irsb_message);
+		impure->irsb_message = NULL;
+	}
+}
+
+
+static SSHORT compare(TDBB tdbb, NOD node1, NOD node2)
+{
+/**************************************
+ *
+ *	c o m p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare values of two sorts lists, return result.  This is used for
+ *	sort merge join.
+ *
+ **************************************/
+	NOD *ptr1, *ptr2, *end;
+	DSC *desc1, *desc2;
+	REQ request;
+	ULONG flags;
+	SSHORT result;
+
+	SET_TDBB(tdbb);
+
+	request = tdbb->tdbb_request;
+
+	for (ptr1 = node1->nod_arg, end = ptr1 + node1->nod_count, ptr2 =
+		 node2->nod_arg; ptr1 < end; ptr1++, ptr2++) {
+		desc1 = EVL_expr(tdbb, *ptr1);
+		flags = request->req_flags;
+		desc2 = EVL_expr(tdbb, *ptr2);
+		if (flags & req_null) {
+			if (!(request->req_flags & req_null))
+				return -1;
+		}
+		else if (request->req_flags & req_null)
+			return 1;
+		if (result = MOV_compare(desc1, desc2))
+			return result;
+	}
+
+	return 0;
+}
+
+
+static SSHORT compare_longs(SLONG * p, SLONG * q, USHORT count)
+{
+/**************************************
+ *
+ *	c o m p a r e _ l o n g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two strings of SLONG words.
+ *
+ **************************************/
+
+	for (; count; p++, q++, --count)
+		if (*p > *q)
+			return 1;
+		else if (*p < *q)
+			return -1;
+
+	return 0;
+}
+
+
+static BOOLEAN fetch_record(TDBB tdbb, RSB rsb, SSHORT n
+#ifdef SCROLLABLE_CURSORS
+							, RSE_GET_MODE mode
+#endif
+	)
+{
+/**************************************
+ *
+ *	f e t c h _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record for a sub-stream of a cross.  If the
+ *	sub-stream is dry, close it and recurse to get the
+ *	next record from the previous stream.  If there isn't
+ *	a previous stream, then the cross is finished, so
+ *	return FALSE.
+ *
+ **************************************/
+	RSB sub_rsb;
+
+	SET_TDBB(tdbb);
+
+	sub_rsb = rsb->rsb_arg[n];
+
+	if (get_record(tdbb, sub_rsb, NULL
+#ifdef SCROLLABLE_CURSORS
+				   , mode
+#else
+				   , RSE_get_forward
+#endif
+		))
+		return TRUE;
+
+/* we have exhausted this stream, so close it; if there is 
+   another candidate record from the n-1 streams to the left, 
+   then reopen the stream and start again from the beginning */
+
+	while (TRUE) {
+		RSE_close(tdbb, sub_rsb);
+		if (n == 0 || !fetch_record(tdbb, rsb, n - 1
+#ifdef SCROLLABLE_CURSORS
+									, mode
+#endif
+			))
+			return FALSE;
+		RSE_open(tdbb, sub_rsb);
+
+		if (get_record(tdbb, sub_rsb, NULL
+#ifdef SCROLLABLE_CURSORS
+					   , mode
+#else
+					   , RSE_get_forward
+#endif
+			))
+			return TRUE;
+	}
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+static BOOLEAN fetch_left(TDBB tdbb, RSB rsb, IRSB impure, RSE_GET_MODE mode)
+{
+/**************************************
+ *
+ *	f e t c h _ l e f t ( I B _ V 4 _ 1 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get records for a left outer join.  Records are read
+ *	from the left sub-stream when the right sub-stream is
+ *	dry or when it is not yet open.  When the left 
+ *	sub-stream's boolean is true, open the right sub-stream
+ *	and read a record.  When the right sub-stream becomes dry,
+ *	close it, and if nothing has been joined to the left
+ *	sub-stream's current record, join a null valued right
+ *	sub-stream record.  When the left sub-stream is dry,
+ *	the outer join is finished, so return FALSE.
+ *
+ **************************************/
+	RSB full;
+
+	SET_TDBB(tdbb);
+
+/* loop through the outer join in either the forward or the backward direction; 
+   the various modes indicate what state of the join we are in */
+
+	while (TRUE) {
+		if (!(impure->irsb_flags & irsb_join_full)) {
+			/* mustread indicates to get the next record from the outer stream */
+
+			if (impure->irsb_flags & irsb_mustread) {
+				if (!get_record
+					(tdbb, rsb->rsb_arg[RSB_LEFT_outer], NULL, mode)) {
+					if (mode == RSE_get_backward)
+						return FALSE;
+					else if (!rsb->rsb_arg[RSB_LEFT_inner_streams])
+						return FALSE;
+
+					/* We have a full outer join.  Open up the inner stream
+					   one more time. */
+
+					RSE_close(tdbb, rsb->rsb_arg[RSB_LEFT_outer]);
+					impure->irsb_flags |= irsb_join_full;
+					RSE_open(tdbb, rsb->rsb_arg[RSB_LEFT_inner]);
+					continue;
+				}
+
+				/* check if the outer record qualifies for the boolean */
+
+				if (rsb->rsb_arg[RSB_LEFT_boolean] &&
+					!EVL_boolean(tdbb, rsb->rsb_arg[RSB_LEFT_boolean])) {
+					/* The boolean pertaining to the left sub-stream is false
+					   so just join sub-stream to a null valued right sub-stream */
+					join_to_nulls(tdbb, rsb, RSB_LEFT_streams);
+					return TRUE;
+				}
+
+				impure->irsb_flags &= ~(irsb_mustread | irsb_joined);
+				impure->irsb_flags |= irsb_in_opened;
+				RSE_open(tdbb, rsb->rsb_arg[RSB_LEFT_inner]);
+			}
+
+			/* fetch records from the inner stream until exhausted */
+
+			while (get_record(tdbb, rsb->rsb_arg[RSB_LEFT_inner], NULL, mode))
+				if (!rsb->rsb_arg[RSB_LEFT_inner_boolean] ||
+					EVL_boolean(tdbb, rsb->rsb_arg[RSB_LEFT_inner_boolean])) {
+					impure->irsb_flags |= irsb_joined;
+					return TRUE;
+				}
+
+			/* out of inner records, go back to reading the next outer record */
+
+			RSE_close(tdbb, rsb->rsb_arg[RSB_LEFT_inner]);
+			impure->irsb_flags |= irsb_mustread;
+
+			/* The right stream did not have any matching records.  Join 
+			   the left stream to a null valued right sub-stream */
+
+			if (!(impure->irsb_flags & irsb_joined)) {
+				join_to_nulls(tdbb, rsb, RSB_LEFT_streams);
+				return TRUE;
+			}
+		}
+		else {
+			/* Continue with a full outer join. */
+
+			full = rsb->rsb_arg[RSB_LEFT_inner];
+			full = (full->rsb_type == rsb_boolean) ? full->rsb_next : full;
+
+			if (impure->irsb_flags & irsb_in_opened) {
+				USHORT found;
+
+				/* The inner stream was opened at some point.  If it doesn't have a
+				   boolean, then all of its records have been returned.  Otherwise,
+				   find the records that haven't been. */
+
+				do {
+					if (!get_record(tdbb, full, NULL, mode)) {
+						if (mode == RSE_get_forward)
+							return FALSE;
+						else
+							goto return_to_outer;
+					}
+
+					RSE_open(tdbb, rsb->rsb_arg[RSB_LEFT_outer]);
+					while (found =
+						   get_record(tdbb, rsb->rsb_arg[RSB_LEFT_outer],
+									  NULL, mode))
+							if (
+								(!rsb->rsb_arg[RSB_LEFT_boolean]
+								 || EVL_boolean(tdbb,
+												rsb->
+												rsb_arg[RSB_LEFT_boolean]))
+								&& (!rsb->rsb_arg[RSB_LEFT_inner_boolean]
+									|| EVL_boolean(tdbb,
+												   rsb->rsb_arg
+												   [RSB_LEFT_inner_boolean]))
+								&& (full == rsb->rsb_arg[RSB_LEFT_inner]
+									|| EVL_boolean(tdbb,
+												   rsb->
+												   rsb_arg
+												   [RSB_LEFT_inner]->rsb_arg
+												   [0]))) break;
+					RSE_close(tdbb, rsb->rsb_arg[RSB_LEFT_outer]);
+				} while (found);
+			}
+			else if (!get_record(tdbb, full, NULL, mode)) {
+				if (mode == RSE_get_forward)
+					return FALSE;
+				else
+					goto return_to_outer;
+			}
+
+			join_to_nulls(tdbb, rsb, RSB_LEFT_inner_streams);
+			return TRUE;
+
+		  return_to_outer:
+			impure->irsb_flags &= ~(irsb_join_full | irsb_in_opened);
+			impure->irsb_flags |= irsb_mustread;
+			RSE_close(tdbb, rsb->rsb_arg[RSB_LEFT_inner]);
+			RSE_close(tdbb, rsb->rsb_arg[RSB_LEFT_outer]);
+			RSE_open(tdbb, rsb->rsb_arg[RSB_LEFT_outer]);
+		}
+	}
+
+/* NOTREACHED */
+	return TRUE;
+}
+#else
+
+
+static BOOLEAN fetch_left(TDBB tdbb, RSB rsb, IRSB impure)
+{
+/**************************************
+ *
+ *	f e t c h _ l e f t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get records for a left outer join.  Records are read
+ *	from the left sub-stream when the right sub-stream is
+ *	dry or when it is not yet open.  When the left 
+ *	sub-stream's boolean is true, open the right sub-stream
+ *	and read a record.  When the right sub-stream becomes dry,
+ *	close it, and if nothing has been joined to the left
+ *	sub-stream's current record, join a null valued right
+ *	sub-stream record.  When the left sub-stream is dry,
+ *	the outer join is finished, so return FALSE.
+ *
+ **************************************/
+	RSB full;
+
+	SET_TDBB(tdbb);
+
+	if (!(impure->irsb_flags & irsb_join_full))
+		while (TRUE) {
+			if (impure->irsb_flags & irsb_mustread) {
+				if (!get_record
+					(tdbb, rsb->rsb_arg[RSB_LEFT_outer], NULL,
+					 RSE_get_forward)) {
+					if (!rsb->rsb_arg[RSB_LEFT_inner_streams])
+						return FALSE;
+
+					/* We have a full outer join.  Open up the inner stream
+					   one more time. */
+
+					RSE_close(tdbb, rsb->rsb_arg[RSB_LEFT_outer]);
+					impure->irsb_flags |= irsb_join_full;
+					RSE_open(tdbb, rsb->rsb_arg[RSB_LEFT_inner]);
+					break;
+				}
+				if (rsb->rsb_arg[RSB_LEFT_boolean] &&
+					!EVL_boolean(tdbb, (NOD) rsb->rsb_arg[RSB_LEFT_boolean])) {
+					/* The boolean pertaining to the left sub-stream is false
+					   so just join sub-stream to a null valued right sub-stream */
+					join_to_nulls(tdbb, rsb, RSB_LEFT_streams);
+					return TRUE;
+				}
+				impure->irsb_flags &= ~(irsb_mustread | irsb_joined);
+				impure->irsb_flags |= irsb_in_opened;
+				RSE_open(tdbb, rsb->rsb_arg[RSB_LEFT_inner]);
+			}
+
+			while (get_record
+				   (tdbb, rsb->rsb_arg[RSB_LEFT_inner], NULL,
+					RSE_get_forward))
+					if (!rsb->rsb_arg[RSB_LEFT_inner_boolean]
+						|| EVL_boolean(tdbb,
+									   (NOD)
+									   rsb->rsb_arg[RSB_LEFT_inner_boolean]))
+				{
+					impure->irsb_flags |= irsb_joined;
+					return TRUE;
+				}
+
+			RSE_close(tdbb, rsb->rsb_arg[RSB_LEFT_inner]);
+			impure->irsb_flags |= irsb_mustread;
+			if (!(impure->irsb_flags & irsb_joined)) {
+				/* The current left sub-stream record has not been joined
+				   to anything.  Join it to a null valued right sub-stream */
+				join_to_nulls(tdbb, rsb, RSB_LEFT_streams);
+				return TRUE;
+			}
+		}
+
+/* Continue with a full outer join. */
+
+	full = rsb->rsb_arg[RSB_LEFT_inner];
+	full = (full->rsb_type == rsb_boolean) ? full->rsb_next : full;
+
+	if (impure->irsb_flags & irsb_in_opened) {
+		USHORT found;
+
+		/* The inner stream was opened at some point.  If it doesn't have a
+		   boolean, then all of its records have been returned.  Otherwise,
+		   find the records that haven't been. */
+
+		do {
+			if (!get_record(tdbb, full, NULL, RSE_get_forward))
+				return FALSE;
+			RSE_open(tdbb, rsb->rsb_arg[RSB_LEFT_outer]);
+			while (found =
+				   get_record(tdbb, rsb->rsb_arg[RSB_LEFT_outer], NULL,
+							  RSE_get_forward))
+					if (
+						(!rsb->rsb_arg[RSB_LEFT_boolean]
+						 || EVL_boolean(tdbb,
+										(NOD) rsb->rsb_arg[RSB_LEFT_boolean]))
+						&& (!rsb->rsb_arg[RSB_LEFT_inner_boolean]
+							|| EVL_boolean(tdbb,
+										   (NOD)
+										   rsb->rsb_arg
+										   [RSB_LEFT_inner_boolean]))
+						&& (full == rsb->rsb_arg[RSB_LEFT_inner]
+							|| EVL_boolean(tdbb,
+										   (NOD)
+										   rsb->rsb_arg
+										   [RSB_LEFT_inner]->rsb_arg[0])))
+						break;
+			RSE_close(tdbb, rsb->rsb_arg[RSB_LEFT_outer]);
+		} while (found);
+	}
+	else if (!get_record(tdbb, full, NULL, RSE_get_forward))
+		return FALSE;
+
+	join_to_nulls(tdbb, rsb, RSB_LEFT_inner_streams);
+
+	return TRUE;
+}
+#endif
+
+
+static UCHAR *get_merge_data(TDBB tdbb, MFB mfb, SLONG record)
+{
+/**************************************
+ *
+ *	g e t _ m e r g e _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get merge data for record from merge
+ *	equivalence file.
+ *
+ **************************************/
+	ULONG merge_block, merge_offset;
+
+	assert(record >= 0 && record < (SLONG) mfb->mfb_equal_records);
+
+	merge_block = record / mfb->mfb_blocking_factor;
+	if (merge_block != mfb->mfb_current_block)
+		mfb->mfb_current_block = read_merge_block(tdbb, mfb, merge_block);
+
+	merge_offset = (record % mfb->mfb_blocking_factor) * mfb->mfb_record_size;
+	return (mfb->mfb_block_data + merge_offset);
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+static BOOLEAN get_merge_fetch(
+							   TDBB tdbb,
+							   RSB rsb, SSHORT stream, RSE_GET_MODE mode)
+{
+/**************************************
+ *
+ *	g e t _ m e r g e _ f e t c h ( I B _ V 4 _ 1 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cycle through all the records of equal key
+ *	in all the substreams of a sort-merge.
+ *
+ **************************************/
+	RSB sub_rsb;
+	IRSB_MRG impure;
+	SLONG record;
+	MFB mfb;
+	SSHORT m;
+	irsb_mrg::irsb_mrg_repeat * tail;
+
+	SET_TDBB(tdbb);
+
+	impure = (IRSB_MRG) ((UCHAR *) tdbb->tdbb_request + rsb->rsb_impure);
+	tail = impure->irsb_mrg_rpt + stream;
+	m = tail->irsb_mrg_order;
+	tail = impure->irsb_mrg_rpt + m;
+	sub_rsb = rsb->rsb_arg[2 * m];
+
+/* go forward or backward to the next record */
+
+	record = tail->irsb_mrg_equal_current;
+
+	if (((mode == RSE_get_backward) && !(impure->irsb_flags & irsb_backwards))
+		|| ((mode == RSE_get_forward)
+			&& (impure->irsb_flags & irsb_backwards)))
+		--record;
+	else
+		++record;
+}
+
+/* if there is a record waiting for us, use it; 
+   otherwise proceed recursively from right to left 
+   through the substreams, getting the next record 
+   in the equality group */
+
+if (record < tail->irsb_mrg_equal || record > tail->irsb_mrg_equal_end) {
+	/* if we get to the first stream and there is no next record, 
+	   we have exhausted the equality group, so return */
+
+	if (stream == 0) {
+		/* in the case where we are stepping off the end of the equivalence 
+		   group in a direction other than the direction in which we entered 
+		   it, we have a problem; the sort streams are positioned at the other 
+		   end of the equivalence group, so we need to resynch them */
+
+		if (((mode == RSE_get_backward)
+			 && !(impure->irsb_flags & irsb_backwards))
+			|| ((mode == RSE_get_forward)
+				&& (impure->irsb_flags & irsb_backwards)))
+			resynch_merge(tdbb, rsb, impure, mode);
+
+		return FALSE;
+	}
+
+	/* we have exhausted the equivalent records in this stream, 
+	   so get the next record in the next leftmost stream */
+
+	if (!get_merge_fetch(tdbb, rsb, stream - 1, mode))
+		return FALSE;
+
+	/* we are incrementing (or decrementing) the next leftmost stream, 
+	   so we need to start at the beginning (or end) of this stream 
+	   (and recursively all the streams to the right of this one) */
+
+	if (((mode == RSE_get_backward) && !(impure->irsb_flags & irsb_backwards))
+		|| ((mode == RSE_get_forward)
+			&& (impure->irsb_flags & irsb_backwards)))
+		record = tail->irsb_mrg_equal_end;
+	else
+		record = tail->irsb_mrg_equal;
+}
+
+/* indicate the last record fetched */
+
+tail->irsb_mrg_equal_current = record;
+
+/* copy out the data from this sort merge block to the 
+   current record in the record parameter block */
+
+mfb = &tail->irsb_mrg_file;
+map_sort_data(tdbb->tdbb_request, (SMB) sub_rsb->rsb_arg[0],
+			  get_merge_data(tdbb, mfb, record));
+
+return TRUE;
+}
+#else
+static BOOLEAN get_merge_fetch(TDBB tdbb, RSB rsb, SSHORT stream)
+{
+/**************************************
+ *
+ *	g e t _ m e r g e _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next record from a stream within a sort/merge
+ *	record group.
+ *
+ **************************************/
+	RSB sub_rsb;
+	IRSB_MRG impure;
+	SLONG record;
+	MFB mfb;
+	SSHORT m;
+	irsb_mrg::irsb_mrg_repeat * tail;
+
+	SET_TDBB(tdbb);
+
+	impure = (IRSB_MRG) ((UCHAR *) tdbb->tdbb_request + rsb->rsb_impure);
+	tail = impure->irsb_mrg_rpt + stream;
+	m = tail->irsb_mrg_order;
+	tail = impure->irsb_mrg_rpt + m;
+	sub_rsb = rsb->rsb_arg[m + m];
+
+	record = tail->irsb_mrg_equal_current;
+	++record;
+
+	if (record > tail->irsb_mrg_equal_end) {
+		if (stream == 0 || !get_merge_fetch(tdbb, rsb, stream - 1))
+			return FALSE;
+		record = tail->irsb_mrg_equal;
+	}
+
+	tail->irsb_mrg_equal_current = record;
+
+	mfb = &tail->irsb_mrg_file;
+	map_sort_data(tdbb->tdbb_request, (SMB) sub_rsb->rsb_arg[0],
+				  get_merge_data(tdbb, mfb, record));
+
+	return TRUE;
+}
+#endif
+#ifdef SCROLLABLE_CURSORS
+
+
+static BOOLEAN get_merge_join(
+							  TDBB tdbb,
+							  RSB rsb, IRSB_MRG impure, RSE_GET_MODE mode)
+{
+/**************************************
+ *
+ *	g e t _ m e r g e _ j o i n ( I B _ V 4 _ 1 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next tuple from a sort/merge join.
+ *
+ **************************************/
+	REQ request;
+	RSB sort_rsb, *ptr, *highest_ptr, *end;
+	SMB map;
+	SLONG record;
+	int result;
+	UCHAR *first_data, *last_data;
+	MFB mfb;
+	LLS best_tails;
+	irsb_mrg::irsb_mrg_repeat * tail, *tail_end;
+
+	SET_TDBB(tdbb);
+
+	request = tdbb->tdbb_request;
+	end = rsb->rsb_arg + rsb->rsb_count * 2;
+
+/* If there is a group of equivalent records already formed, 
+   fetch the next record from it */
+
+	if (get_merge_fetch(tdbb, rsb, rsb->rsb_count - 1, mode))
+		return TRUE;
+
+/* We are done with the current equivalence group, 
+   so we need to generate a new one.  If backwards 
+   is specified, we will fetch all the records in  
+   the backward direction, so the backwards flag indicates 
+   that all the equivalent records were fetched in the 
+   backward direction.  This will effectively reverse the 
+   direction we traverse the equivalent records in response  
+   to a scroll request. */
+
+	if (mode == RSE_get_backward)
+		impure->irsb_flags |= irsb_backwards;
+	else
+		impure->irsb_flags &= ~irsb_backwards;
+
+/* Increment (or decrement) each stream one record.  If any comes 
+   up dry, we are at the end. */
+
+	highest_ptr = rsb->rsb_arg;
+
+	for (ptr = rsb->rsb_arg, tail = impure->irsb_mrg_rpt; ptr < end;
+		 ptr += 2, tail++) {
+		sort_rsb = *ptr;
+		map = (SMB) sort_rsb->rsb_arg[0];
+		mfb = &tail->irsb_mrg_file;
+
+		/* reset equality group record positions */
+
+		tail->irsb_mrg_equal = 0;
+		tail->irsb_mrg_equal_current = 0;
+		tail->irsb_mrg_equal_end = 0;
+
+		/* If there is a record waiting, use it.  Otherwise get another */
+
+		if ((record = tail->irsb_mrg_last_fetched) >= 0) {
+			tail->irsb_mrg_last_fetched = -1;
+			last_data = get_merge_data(tdbb, mfb, record);
+			mfb->mfb_current_block = 0;
+			first_data = get_merge_data(tdbb, mfb, 0);
+			if (first_data != last_data)
+				MOVE_FASTER(last_data, first_data, map->smb_length);
+			mfb->mfb_equal_records = 1;
+			record = 0;
+		}
+		else {
+			mfb->mfb_current_block = 0;
+			mfb->mfb_equal_records = 0;
+			if ((record = get_merge_record(tdbb, sort_rsb, tail, mode)) < 0)
+				return FALSE;
+		}
+
+		/* Map data into target records and do comparison */
+
+		map_sort_data(request, map, get_merge_data(tdbb, mfb, record));
+		result = compare(tdbb, highest_ptr[1], ptr[1]);
+		if (ptr != highest_ptr)
+			if (((result > 0) && (impure->irsb_flags & irsb_backwards)) ||
+				((result < 0) && ~(impure->irsb_flags & irsb_backwards)))
+				highest_ptr = ptr;
+	}
+
+/* Loop thru the streams advancing each up to (or down to) the target value.  
+   If any exceeds the target value, there is no match so start over. */
+
+	for (;;) {
+		for (ptr = rsb->rsb_arg, tail = impure->irsb_mrg_rpt;
+			 ptr < end; ptr += 2, tail++) {
+			if (highest_ptr != ptr)
+				while (result = compare(tdbb, highest_ptr[1], ptr[1])) {
+					if (((result > 0)
+						 && (impure->irsb_flags & irsb_backwards))
+						|| ((result < 0)
+							&& ~(impure->irsb_flags & irsb_backwards))) {
+						highest_ptr = ptr;
+						goto recycle;
+					}
+					sort_rsb = *ptr;
+					mfb = &tail->irsb_mrg_file;
+					mfb->mfb_current_block = 0;
+					mfb->mfb_equal_records = 0;
+
+					/* get the new record, which is both the beginning and end of 
+					   the equal queue for the moment */
+
+					if (
+						(record =
+						 get_merge_record(tdbb, sort_rsb, tail, mode)) < 0)
+						return FALSE;
+					map_sort_data(request, (SMB) sort_rsb->rsb_arg[0],
+								  get_merge_data(tdbb, mfb, record));
+				}
+		}
+
+		break;
+	  recycle:;
+	}
+
+/* Finally compute equality group for each stream in sort/merge */
+
+	for (ptr = rsb->rsb_arg, tail = impure->irsb_mrg_rpt; ptr < end;
+		 ptr += 2, tail++) {
+		ULONG key_length;
+		ULONG key[32];
+
+		sort_rsb = *ptr;
+		map = (SMB) sort_rsb->rsb_arg[0];
+		mfb = &tail->irsb_mrg_file;
+		key_length = map->smb_key_length * sizeof(ULONG);
+		if (key_length > sizeof(key))
+			first_data = (UCHAR *) ALL_malloc(key_length, ERR_jmp);
+		else
+			first_data = (UCHAR *) key;
+		MOVE_FASTER(get_merge_data(tdbb, mfb, 0), first_data, key_length);
+
+		while ((record = get_merge_record(tdbb, sort_rsb, tail, mode)) >= 0) {
+			if (compare_longs((SLONG *) first_data,
+							  (SLONG *) get_merge_data(tdbb, mfb, record),
+							  map->smb_key_length)) {
+				tail->irsb_mrg_last_fetched = record;
+				break;
+			}
+
+			tail->irsb_mrg_equal_end = record;
+		}
+
+		if (first_data != (UCHAR *) key)
+			ALL_free(first_data);
+		if (mfb->mfb_current_block)
+			write_merge_block(tdbb, mfb, mfb->mfb_current_block);
+	}
+
+/* Optimize cross product of equivalence groups by ordering the streams
+   from left (outermost) to right (innermost) by descending cardinality
+   of merge blocks. This ordering will vary for each set of equivalence
+   groups and cannot be statically assigned by the optimizer. */
+
+	best_tails = 0;
+
+	for (tail = impure->irsb_mrg_rpt, tail_end = tail + rsb->rsb_count;
+		 tail < tail_end; tail++) {
+		irsb_mrg::irsb_mrg_repeat * tail2, *best_tail;
+		ULONG blocks, most_blocks;
+		LLS stack;
+
+		most_blocks = 0;
+		for (tail2 = impure->irsb_mrg_rpt; tail2 < tail_end; tail2++) {
+			for (stack = best_tails; stack; stack = stack->lls_next)
+				if (stack->lls_object == (BLK) tail2)
+					break;
+			if (stack)
+				continue;
+			mfb = &tail2->irsb_mrg_file;
+			blocks = mfb->mfb_equal_records / mfb->mfb_blocking_factor;
+			if (++blocks > most_blocks) {
+				most_blocks = blocks;
+				best_tail = tail2;
+			}
+		}
+
+		LLS_PUSH(best_tail, &best_tails);
+		tail->irsb_mrg_order = best_tail - impure->irsb_mrg_rpt;
+	}
+
+	while (best_tails)
+		(void) LLS_POP(&best_tails);
+
+	return TRUE;
+}
+#else
+static BOOLEAN get_merge_join(TDBB tdbb, RSB rsb, IRSB_MRG impure)
+{
+/**************************************
+ *
+ *	g e t _ m e r g e _ j o i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next tuple from a sort/merge join.
+ *
+ **************************************/
+	REQ request;
+	RSB sort_rsb, *ptr, *highest_ptr, *end;
+	SMB map;
+	SLONG record;
+	int result;
+	UCHAR *first_data, *last_data;
+	MFB mfb;
+	LLS best_tails;
+	irsb_mrg::irsb_mrg_repeat * tail, *tail_end;
+
+	SET_TDBB(tdbb);
+
+	request = tdbb->tdbb_request;
+	end = rsb->rsb_arg + rsb->rsb_count * 2;
+
+/* If there is a record group already formed, fetch the next combination */
+
+	if (get_merge_fetch(tdbb, rsb, rsb->rsb_count - 1))
+		return TRUE;
+
+/* Assuming we are done with the current value group, advance each
+   stream one record.  If any comes up dry, we're done. */
+
+	highest_ptr = rsb->rsb_arg;
+
+	for (ptr = rsb->rsb_arg, tail = impure->irsb_mrg_rpt; ptr < end;
+		 ptr += 2, tail++) {
+		sort_rsb = *ptr;
+		map = (SMB) sort_rsb->rsb_arg[0];
+		mfb = &tail->irsb_mrg_file;
+
+		/* reset equality group record positions */
+
+		tail->irsb_mrg_equal = 0;
+		tail->irsb_mrg_equal_current = 0;
+		tail->irsb_mrg_equal_end = 0;
+
+		/* If there is a record waiting, use it.  Otherwise get another */
+
+		if ((record = tail->irsb_mrg_last_fetched) >= 0) {
+			tail->irsb_mrg_last_fetched = -1;
+			last_data = get_merge_data(tdbb, mfb, record);
+			mfb->mfb_current_block = 0;
+			first_data = get_merge_data(tdbb, mfb, 0);
+			if (first_data != last_data)
+				MOVE_FASTER(last_data, first_data, map->smb_length);
+			mfb->mfb_equal_records = 1;
+			record = 0;
+		}
+		else {
+			mfb->mfb_current_block = 0;
+			mfb->mfb_equal_records = 0;
+			if ((record = get_merge_record(tdbb, sort_rsb, tail)) < 0)
+				return FALSE;
+		}
+
+		/* Map data into target records and do comparison */
+
+		map_sort_data(request, map, get_merge_data(tdbb, mfb, record));
+		if (ptr != highest_ptr &&
+			compare(tdbb, (NOD) highest_ptr[1], (NOD) ptr[1]) < 0)
+			highest_ptr = ptr;
+	}
+
+/* Loop thru the streams advancing each up to the target value.  If any
+   exceeds the target value, start over */
+
+	for (;;) {
+		for (ptr = rsb->rsb_arg, tail = impure->irsb_mrg_rpt;
+			 ptr < end; ptr += 2, tail++)
+			if (highest_ptr != ptr)
+				while (result =
+					   compare(tdbb, (NOD) highest_ptr[1], (NOD) ptr[1])) {
+					if (result < 0) {
+						highest_ptr = ptr;
+						goto recycle;
+					}
+					sort_rsb = *ptr;
+					mfb = &tail->irsb_mrg_file;
+					mfb->mfb_current_block = 0;
+					mfb->mfb_equal_records = 0;
+
+					if ((record = get_merge_record(tdbb, sort_rsb, tail)) < 0)
+						return FALSE;
+					map_sort_data(request, (SMB) sort_rsb->rsb_arg[0],
+								  get_merge_data(tdbb, mfb, record));
+				}
+		break;
+	  recycle:;
+	}
+
+/* Finally compute equality group for each stream in sort/merge */
+
+	for (ptr = rsb->rsb_arg, tail = impure->irsb_mrg_rpt; ptr < end;
+		 ptr += 2, tail++) {
+		ULONG key_length;
+		ULONG key[64];
+
+		sort_rsb = *ptr;
+		map = (SMB) sort_rsb->rsb_arg[0];
+		mfb = &tail->irsb_mrg_file;
+		key_length = map->smb_key_length * sizeof(ULONG);
+		if (key_length > sizeof(key))
+			first_data = (UCHAR *) ALL_malloc(key_length, ERR_jmp);
+		else
+			first_data = (UCHAR *) key;
+		MOVE_FASTER(get_merge_data(tdbb, mfb, 0), first_data, key_length);
+
+		while ((record = get_merge_record(tdbb, sort_rsb, tail)) >= 0) {
+			if (compare_longs((SLONG *) first_data,
+							  (SLONG *) get_merge_data(tdbb, mfb, record),
+							  map->smb_key_length)) {
+				tail->irsb_mrg_last_fetched = record;
+				break;
+			}
+
+			tail->irsb_mrg_equal_end = record;
+		}
+
+		if (first_data != (UCHAR *) key)
+			ALL_free(reinterpret_cast < char *>(first_data));
+		if (mfb->mfb_current_block)
+			write_merge_block(tdbb, mfb, mfb->mfb_current_block);
+	}
+
+/* Optimize cross product of equivalence groups by ordering the streams
+   from left (outermost) to right (innermost) by descending cardinality
+   of merge blocks. This ordering will vary for each set of equivalence
+   groups and cannot be statically assigned by the optimizer. */
+
+	best_tails = 0;
+
+	for (tail = impure->irsb_mrg_rpt, tail_end = tail + rsb->rsb_count;
+		 tail < tail_end; tail++) {
+		irsb_mrg::irsb_mrg_repeat * tail2, *best_tail;
+		ULONG blocks, most_blocks;
+		LLS stack;
+
+		most_blocks = 0;
+		for (tail2 = impure->irsb_mrg_rpt; tail2 < tail_end; tail2++) {
+			for (stack = best_tails; stack; stack = stack->lls_next)
+				if (stack->lls_object == (BLK) tail2)
+					break;
+			if (stack)
+				continue;
+			mfb = &tail2->irsb_mrg_file;
+			blocks = mfb->mfb_equal_records / mfb->mfb_blocking_factor;
+			if (++blocks > most_blocks) {
+				most_blocks = blocks;
+				best_tail = tail2;
+			}
+		}
+
+		LLS_PUSH(best_tail, &best_tails);
+		tail->irsb_mrg_order = best_tail - impure->irsb_mrg_rpt;
+	}
+
+	while (best_tails)
+		(void) LLS_POP(&best_tails);
+
+	return TRUE;
+}
+#endif
+
+
+static SLONG get_merge_record(
+							  TDBB tdbb,
+							  RSB rsb, irsb_mrg::irsb_mrg_repeat * impure
+#ifdef SCROLLABLE_CURSORS
+, RSE_GET_MODE mode
+#endif
+	)
+{
+/**************************************
+ *
+ *	g e t _ m e r g e _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next record from sort.  If there is one, allocate
+ *	a sort/merge record block for it.
+ *
+ **************************************/
+	SLONG record;
+	SMB map;
+	MFB mfb;
+	UCHAR *sort_data, *merge_data;
+	ULONG merge_block;
+	ULONG merge_offset;
+
+	SET_TDBB(tdbb);
+
+	if (!(sort_data = get_sort(tdbb, rsb
+#ifdef SCROLLABLE_CURSORS
+							   , mode
+#endif
+		  )))
+		return -1;
+
+	map = (SMB) rsb->rsb_arg[0];
+	mfb = &impure->irsb_mrg_file;
+	record = mfb->mfb_equal_records;
+
+	merge_block = record / mfb->mfb_blocking_factor;
+	if (merge_block != mfb->mfb_current_block)
+	{
+		write_merge_block(tdbb, mfb, mfb->mfb_current_block);
+		mfb->mfb_current_block = merge_block;
+	}
+
+	merge_offset = (record % mfb->mfb_blocking_factor) * mfb->mfb_record_size;
+	merge_data = mfb->mfb_block_data + merge_offset;
+
+	MOVE_FASTER(sort_data, merge_data, map->smb_length);
+	++mfb->mfb_equal_records;
+
+#ifdef SCROLLABLE_CURSORS
+/* fix up the sort data in case we need to retrieve it again */
+
+	unget_sort(tdbb, rsb, sort_data);
+#endif
+
+	return record;
+}
+
+
+static BOOLEAN get_procedure(TDBB				tdbb,
+							 RSB				rsb,
+							 IRSB_PROCEDURE		impure,
+							 RPB*				rpb)
+{
+/**************************************
+ *
+ *	g e t _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next record from a procedural view.
+ *
+ **************************************/
+	PRC procedure;
+	REQ request, proc_request;
+	REC record;
+	FMT rec_format, msg_format;
+	USHORT oml, eos, i;
+	SLONG size;
+	UCHAR *om;
+	DSC desc, eos_desc;
+
+	SET_TDBB(tdbb);
+
+	procedure = rsb->rsb_procedure;
+	request = tdbb->tdbb_request;
+	impure = (IRSB_PROCEDURE) ((UCHAR *) request + rsb->rsb_impure);
+	proc_request = impure->irsb_req_handle;
+	rec_format = procedure->prc_format;
+
+	msg_format = (FMT) procedure->prc_output_msg->nod_arg[e_msg_format];
+	if (!impure->irsb_message)
+	{
+		size = msg_format->fmt_length + ALIGNMENT;
+		impure->irsb_message = (STR) ALLOCDV(type_str, size);
+		impure->irsb_message->str_length = size;
+	}
+	om =
+		(UCHAR *) FB_ALIGN((U_IPTR) impure->irsb_message->str_data,
+						   ALIGNMENT);
+	oml = impure->irsb_message->str_length - ALIGNMENT;
+
+	if (!rpb->rpb_record) {
+		record = rpb->rpb_record =
+			(REC) ALLOCDV(type_rec, rec_format->fmt_length);
+		record->rec_format = rec_format;
+		record->rec_length = rec_format->fmt_length;
+	}
+	else
+		record = rpb->rpb_record;
+
+	EXE_receive(tdbb, proc_request, 1, oml, om);
+
+	desc = msg_format->fmt_desc[msg_format->fmt_count - 1];
+	desc.dsc_address = (UCHAR *) (om + (int) desc.dsc_address);
+	eos_desc.dsc_dtype = dtype_short;
+	eos_desc.dsc_scale = 0;
+	eos_desc.dsc_length = sizeof(SSHORT);
+	eos_desc.dsc_sub_type = 0;
+	eos_desc.dsc_flags = 0;
+	eos_desc.dsc_address = (UCHAR *) & eos;
+	MOV_move(&desc, &eos_desc);
+	if (!eos)
+		return FALSE;
+
+	for (i = 0; i < rec_format->fmt_count; i++)
+	{
+		proc_assignment(&msg_format->fmt_desc[2 * i],
+						&msg_format->fmt_desc[2 * i + 1],
+						om,
+						&rec_format->fmt_desc[i],
+						i,
+						record);
+	}
+
+	return TRUE;
+}
+
+
+static BOOLEAN get_record(TDBB			tdbb,
+						  RSB			rsb,
+						  RSB			parent_rsb,
+						  RSE_GET_MODE	mode)
+{
+/**************************************
+ *
+ *	g e t _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from an open record stream.
+ *	The mode parameter specifies whether to
+ *	go forward one record, go backward one
+ *	record, or fetch the current record.
+ *
+ **************************************/
+	REQ request;
+	register IRSB impure;
+	register RPB *rpb;
+
+	SET_TDBB(tdbb);
+
+#ifdef MULTI_THREAD
+
+	if (--tdbb->tdbb_quantum < 0 && !tdbb->tdbb_inhibit)
+	{
+		(void) JRD_reschedule(tdbb, 0, TRUE);
+	}
+
+#endif
+
+/* check request flags for special processing */
+
+	request = tdbb->tdbb_request;
+	if (request->req_flags & req_abort)
+	{
+		return FALSE;
+	}
+	if (!request->req_transaction)
+	{
+		return FALSE;
+	}
+	impure = (IRSB) ((UCHAR *) request + rsb->rsb_impure);
+	if (impure->irsb_flags & irsb_singular_processed)
+	{
+		return FALSE;
+	}
+
+	rpb = request->req_rpb + rsb->rsb_stream;
+
+#ifdef SCROLLABLE_CURSORS
+/* do bof and eof handling for streams which may be navigated */
+
+	if (rsb->rsb_type == rsb_sequential ||
+		rsb->rsb_type == rsb_navigate || rsb->rsb_type == rsb_sort)
+	{
+		if (((mode == RSE_get_forward) && (impure->irsb_flags & irsb_eof)) ||
+			((mode == RSE_get_backward) && (impure->irsb_flags & irsb_bof)))
+#ifdef PC_ENGINE
+			||((mode == RSE_get_current)
+			   && (impure->irsb_flags & (irsb_bof | irsb_eof)))
+#endif
+				return FALSE;
+	}
+#endif
+
+	switch (rsb->rsb_type)
+	{
+#ifndef GATEWAY
+	case rsb_sequential:
+		if (impure->irsb_flags & irsb_bof)
+		{
+			rpb->rpb_number = -1;
+		}
+
+#ifdef PC_ENGINE
+		if (mode == RSE_get_current)
+		{
+			if (!VIO_get(tdbb,
+						rpb,
+						rsb,
+						request->req_transaction,
+						request->req_pool))
+			{
+				return FALSE;
+			}
+		}
+		else
+#endif
+			if (!VIO_next_record(tdbb,
+								rpb,
+								rsb,
+								request->req_transaction,
+								(BLK) request->req_pool,
+								(mode == RSE_get_backward) ? TRUE : FALSE,
+								FALSE))
+			{
+				 return FALSE;
+			}
+		break;
+
+	case rsb_indexed:
+		{
+			SBM *bitmap;
+			int result = FALSE;
+
+			if (bitmap = ((IRSB_INDEX) impure)->irsb_bitmap)
+			{
+				while (SBM_next(*bitmap, &rpb->rpb_number, mode))
+				{
+#ifdef SUPERSERVER_V2
+					/* Prefetch next set of data pages from bitmap. */
+
+					if (rpb->rpb_number >
+						((IRSB_INDEX) impure)->irsb_prefetch_number &&
+						(mode == RSE_get_forward))
+					{
+						((IRSB_INDEX) impure)->irsb_prefetch_number =
+							DPM_prefetch_bitmap(tdbb, rpb->rpb_relation,
+												*bitmap, rpb->rpb_number);
+					}
+#endif
+					if (VIO_get(tdbb, rpb, rsb, request->req_transaction,
+								(BLK) request->req_pool))
+					{
+						result = TRUE;
+						break;
+					}
+				}
+			}
+
+			if (result)
+				break;
+			return FALSE;
+		}
+
+	case rsb_navigate:
+#ifdef SCROLLABLE_CURSORS
+		if (impure->irsb_flags & irsb_bof)
+		{
+			rpb->rpb_number = -1;
+		}
+#endif
+		if (!NAV_get_record(rsb, (IRSB_NAV) impure, rpb, mode))
+		{
+			return FALSE;
+		}
+		break;
+#endif
+
+	case rsb_boolean:
+		{
+			int result;
+			SSHORT select_value;	/* select for ANY/ALL processing */
+			NOD select_node;	/* ANY/ALL select node pointer */
+			NOD column_node;	/* ANY/ALL column node pointer */
+
+			/* For ANY and ALL clauses (ALL is handled as a negated ANY),
+			   we must first detect them, and then make sure that the returned
+			   results are correct.   This mainly entails making sure that
+			   there are in fact records in the source stream to test against.
+			   If there were none, the response must be FALSE.
+			   Also, if the result of the column comparison is always
+			   NULL, this must also be returned as NULL.   (Note that normally,
+			   an AND of a NULL and a FALSE would be FALSE, not NULL).
+
+			   This all depends on evl.c putting the unoptimized expression
+			   in the rsb.   The unoptimized expression always has the
+			   select expression on the left, and the column comparison
+			   on the right. */
+
+			column_node = (NOD) rsb->rsb_any_boolean;
+			if (column_node &&
+				(request->req_flags & (req_ansi_all | req_ansi_any)))
+			{
+
+				/* see if there's a select node to work with */
+
+				if (column_node->nod_type == nod_and)
+				{
+					select_node = column_node->nod_arg[0];
+					column_node = column_node->nod_arg[1];
+				}
+				else
+				{
+					select_node = (NOD) NULL;
+				}
+			}
+			if (column_node && (request->req_flags & req_ansi_any))
+			{
+				SSHORT any_null;	/* some records null for ANY/ALL */
+				SSHORT any_true;	/* some records true for ANY/ALL */
+
+				request->req_flags &= ~req_ansi_any;
+				if (request->req_flags & req_ansi_not)
+				{
+					request->req_flags &= ~req_ansi_not;
+
+					/* do NOT ANY */
+					/* if the subquery was the empty set
+					   (numTrue + numFalse + numUnknown = 0)
+					   or if all were false
+					   (numTrue + numUnknown = 0),
+					   NOT ANY is true */
+
+					any_null = FALSE;
+					any_true = FALSE;
+					while (get_record(tdbb, rsb->rsb_next, rsb, mode))
+					{
+						if (EVL_boolean(tdbb, (NOD) rsb->rsb_arg[0]))
+						{
+							/* found a TRUE value */
+
+							any_true = TRUE;
+							break;
+						}
+#ifdef PC_ENGINE
+						else if (mode == RSE_get_current)
+							break;
+#endif
+
+						/* check for select stream and nulls */
+
+						if (!select_node)
+						{
+							if (request->req_flags & req_null)
+							{
+								any_null = TRUE;
+								break;
+							}
+						}
+						else
+						{
+							request->req_flags &= ~req_null;
+							select_value = EVL_boolean(tdbb, select_node);
+
+							/* see if any record in select stream */
+
+							if (select_value)
+							{
+								/* see if any nulls */
+
+								request->req_flags &= ~req_null;
+								(void) EVL_boolean(tdbb, column_node);
+
+								/* see if any record is null */
+
+								if (request->req_flags & req_null) {
+									any_null = TRUE;
+									break;
+								}
+							}
+						}
+					}
+					request->req_flags &= ~req_null;
+					if (any_null || any_true)
+						result = TRUE;
+					else
+						return FALSE;
+					break;
+				}
+				else {
+
+					/* do ANY */
+					/* if the subquery was true for any comparison,
+					   ANY is true */
+
+					result = FALSE;
+					while (get_record(tdbb, rsb->rsb_next, rsb, mode)) {
+						if (EVL_boolean(tdbb, (NOD) rsb->rsb_arg[0])) {
+							result = TRUE;
+							break;
+						}
+#ifdef PC_ENGINE
+						else if (mode == RSE_get_current)
+							break;
+#endif
+					}
+					request->req_flags &= ~req_null;
+					if (result)
+						break;
+					return FALSE;
+				}
+			}
+			else if (column_node && (request->req_flags & req_ansi_all)) {
+				SSHORT any_false;	/* some records false for ANY/ALL */
+
+				request->req_flags &= ~req_ansi_all;
+				if (request->req_flags & req_ansi_not) {
+					request->req_flags &= ~req_ansi_not;
+
+					/* do NOT ALL */
+					/* if the subquery was false for any comparison,
+					   NOT ALL is true */
+
+					any_false = FALSE;
+					while (get_record(tdbb, rsb->rsb_next, rsb, mode)) {
+						request->req_flags &= ~req_null;
+
+						/* look for a FALSE (and not null either) */
+
+						if (!EVL_boolean(tdbb, (NOD) rsb->rsb_arg[0]) &&
+							!(request->req_flags & req_null)) {
+
+							/* make sure it wasn't FALSE because there's
+							   no select stream record */
+
+							if (select_node) {
+								request->req_flags &= ~req_null;
+								select_value = EVL_boolean(tdbb, select_node);
+								if (select_value) {
+									any_false = TRUE;
+									break;
+								}
+							}
+							else {
+								any_false = TRUE;
+								break;
+							}
+						}
+#ifdef PC_ENGINE
+						else if (mode == RSE_get_current)
+							break;
+#endif
+					}
+					request->req_flags &= ~req_null;
+					if (any_false)
+						return FALSE;
+					result = TRUE;
+					break;
+				}
+				else {
+
+					/* do ALL */
+					/* if the subquery was the empty set
+					   (numTrue + numFalse + numUnknown = 0)
+					   or if all were true
+					   (numFalse + numUnknown = 0),
+					   ALL is true */
+
+					any_false = FALSE;
+					while (get_record(tdbb, rsb->rsb_next, rsb, mode)) {
+						request->req_flags &= ~req_null;
+
+						/* look for a FALSE or null */
+
+						if (!EVL_boolean(tdbb, (NOD) rsb->rsb_arg[0])) {
+
+							/* make sure it wasn't FALSE because there's
+							   no select stream record */
+
+							if (select_node) {
+								request->req_flags &= ~req_null;
+								select_value = EVL_boolean(tdbb, select_node);
+								if (select_value) {
+									any_false = TRUE;
+									break;
+								}
+							}
+							else {
+								any_false = TRUE;
+								break;
+							}
+						}
+#ifdef PC_ENGINE
+						else if (mode == RSE_get_current)
+							break;
+#endif
+					}
+					request->req_flags &= ~req_null;
+					if (any_false)
+						return FALSE;
+					result = TRUE;
+					break;
+				}
+			}
+			else {
+				UCHAR flag = FALSE;
+
+				result = FALSE;
+				while (get_record(tdbb, rsb->rsb_next, rsb, mode)) {
+					if (EVL_boolean(tdbb, (NOD) rsb->rsb_arg[0])) {
+						result = TRUE;
+						break;
+					}
+#ifdef PC_ENGINE
+					/* If we are trying to "RSE_get_current" and there is a
+					   * "where" clause which is not true, someone must have
+					   * modified it after we positioned on the record
+					 */
+					else if (mode == RSE_get_current)
+						break;
+#endif
+
+					if (request->req_flags & req_null)
+						flag = TRUE;
+				}
+
+				if (flag)
+					request->req_flags |= req_null;
+				if (result)
+					break;
+				return FALSE;
+			}
+		}
+
+	case rsb_first:
+		if ((--((IRSB_FIRST) impure)->irsb_number) < 0)
+			return FALSE;
+		if (!get_record(tdbb, rsb->rsb_next, NULL, mode))
+			return FALSE;
+		break;
+
+	case rsb_merge:
+		if (!get_merge_join(tdbb, rsb, (IRSB_MRG) impure
+#ifdef SCROLLABLE_CURSORS
+							, mode
+#endif
+			))
+			return FALSE;
+		break;
+
+	case rsb_procedure:
+		if (!get_procedure(tdbb, rsb, (IRSB_PROCEDURE) impure, rpb))
+			return FALSE;
+		break;
+
+	case rsb_sort:
+		{
+			UCHAR *data;
+
+#ifdef SCROLLABLE_CURSORS
+			/* any attempt to get a record takes us off of bof or eof */
+
+			impure->irsb_flags &= ~(irsb_bof | irsb_eof);
+#endif
+
+			if (!(data = get_sort(tdbb, rsb
+#ifdef SCROLLABLE_CURSORS
+								  , mode
+#endif
+				  ))) {
+#ifdef SCROLLABLE_CURSORS
+				if (mode == RSE_get_forward)
+					impure->irsb_flags |= irsb_eof;
+				else
+					impure->irsb_flags |= irsb_bof;
+#endif
+				return FALSE;
+			}
+
+			map_sort_data(request, (SMB) rsb->rsb_arg[0], data);
+
+#ifdef SCROLLABLE_CURSORS
+			/* fix up the sort data in case we need to retrieve it again */
+
+			unget_sort(tdbb, rsb, data);
+#endif
+		}
+		break;
+
+	case rsb_cross:
+		if (impure->irsb_flags & irsb_first) {
+			SSHORT i;
+
+			for (i = 0; i < (SSHORT) rsb->rsb_count; i++) {
+				RSE_open(tdbb, rsb->rsb_arg[i]);
+				if (!fetch_record(tdbb, rsb, i
+#ifdef SCROLLABLE_CURSORS
+								  , mode
+#endif
+					))
+					return FALSE;
+			}
+			impure->irsb_flags &= ~irsb_first;
+			break;
+		}
+
+		/* in the case of a project which has been mapped to an index, 
+		   we need to make sure that we only return a single record for 
+		   each of the leftmost records in the join */
+
+		if (rsb->rsb_flags & rsb_project) {
+			if (!fetch_record(tdbb, rsb, 0
+#ifdef SCROLLABLE_CURSORS
+							  , mode
+#endif
+				))
+				return FALSE;
+		}
+
+		else if (!fetch_record(tdbb, rsb, rsb->rsb_count - 1
+#ifdef SCROLLABLE_CURSORS
+							   , mode
+#endif
+				 ))
+			return FALSE;
+		break;
+
+	case rsb_union:
+		if (!get_union(tdbb, rsb, impure))
+			return FALSE;
+		break;
+
+	case rsb_aggregate:
+		if (impure->irsb_count = EVL_group(tdbb, (BLK) rsb->rsb_next,
+										   (NOD) rsb->rsb_arg[0],
+										   impure->irsb_count)) break;
+		return FALSE;
+
+#ifndef GATEWAY
+	case rsb_ext_sequential:
+	case rsb_ext_indexed:
+	case rsb_ext_dbkey:
+		if (!EXT_get(rsb))
+			return FALSE;
+		break;
+#endif
+
+	case rsb_left_cross:
+		if (!fetch_left(tdbb, rsb, impure
+#ifdef SCROLLABLE_CURSORS
+						, mode
+#endif
+			))
+			return FALSE;
+		break;
+
+#ifdef GATEWAY
+	case rsb_select:
+	case rsb_sql_join:
+		if (!VIO_next_record(tdbb, rpb, NULL, request->req_transaction,
+							 request->req_pool, rsb->rsb_arg[0], FALSE))
+			return FALSE;
+		break;
+
+	case rsb_simulate:
+		if (!SIM_get(rsb))
+			return FALSE;
+		break;
+
+	case rsb_sim_cross:
+		if (!SIM_get_cross(rsb))
+			return FALSE;
+		break;
+
+	case rsb_once:
+		if (impure->irsb_flags & irsb_first)
+			impure->irsb_flags &= ~irsb_first;
+		else
+			return FALSE;
+		break;
+#endif
+
+	default:
+		BUGCHECK(166);			/* msg 166 invalid rsb type */
+	}
+
+/* Check to see if we need to update the record_count. This record 
+   count is used in NAV_get_record and needs to be updated before
+   checking for singularity. Note that in our check for singularity
+   we call get_record which calls NAV_get_record where this count
+   is used. Bug # 8415, 8416 */
+
+	if (rsb->rsb_type == rsb_boolean)
+		rsb->rsb_next->rsb_record_count++;
+	else if (!parent_rsb || parent_rsb->rsb_type != rsb_boolean)
+		rsb->rsb_record_count++;
+
+	if (rsb->rsb_flags & rsb_singular &&
+		!(impure->irsb_flags & irsb_checking_singular)) {
+		push_rpbs(tdbb, request, rsb);
+		impure->irsb_flags |= irsb_checking_singular;
+		if (get_record(tdbb, rsb, parent_rsb, mode)) {
+			impure->irsb_flags &= ~irsb_checking_singular;
+			ERR_post(gds__sing_select_err, 0);
+		}
+		pop_rpbs(request, rsb);
+		impure->irsb_flags &= ~irsb_checking_singular;
+		impure->irsb_flags |= irsb_singular_processed;
+	}
+
+	return TRUE;
+}
+
+
+static UCHAR *get_sort(TDBB tdbb, RSB rsb
+#ifdef SCROLLABLE_CURSORS
+					   , RSE_GET_MODE mode
+#endif
+	)
+{
+/**************************************
+ *
+ *	g e t _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next raw record from a sort stream.  The caller has the
+ *	responsibility for mapping the raw data in the target records.
+ *
+ **************************************/
+	IRSB_SORT impure;
+	REQ request;
+	UCHAR *data;
+
+	SET_TDBB(tdbb);
+
+	request = tdbb->tdbb_request;
+	impure = (IRSB_SORT) ((UCHAR *) request + rsb->rsb_impure);
+
+/* Get address of record from sort.  If the address if null, we
+   ran out of records.  This is known in the trade as "end of file." */
+
+#ifdef SCROLLABLE_CURSORS
+	SORT_get(tdbb->tdbb_status_vector, impure->irsb_sort_handle,
+			 (ULONG **) & data, mode);
+#else
+	SORT_get(tdbb->tdbb_status_vector, impure->irsb_sort_handle,
+			 (ULONG **) & data);
+#endif
+
+	return data;
+}
+
+
+static BOOLEAN get_union(TDBB tdbb, RSB rsb, IRSB impure)
+{
+/**************************************
+ *
+ *	g e t _ u n i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get next record in a union.
+ *
+ **************************************/
+	RSB *rsb_ptr;
+	NOD map, *ptr, *end;
+
+	SET_TDBB(tdbb);
+	rsb_ptr = rsb->rsb_arg + impure->irsb_count;
+
+/* March thru the sub-streams (tributaries?) looking for a record */
+
+	while (!get_record(tdbb, *rsb_ptr, NULL, RSE_get_forward)) {
+		RSE_close(tdbb, *rsb_ptr);
+		impure->irsb_count += 2;
+		if (impure->irsb_count >= rsb->rsb_count)
+			return FALSE;
+		rsb_ptr += 2;
+		RSE_open(tdbb, *rsb_ptr);
+	}
+
+/* We've got a record, map it into the target record */
+
+	map = (NOD) rsb_ptr[1];
+
+	for (ptr = map->nod_arg, end = ptr + map->nod_count; ptr < end; ptr++)
+		EXE_assignment(tdbb, *ptr);
+
+	return TRUE;
+}
+
+
+static void join_to_nulls(TDBB tdbb, RSB rsb, USHORT streams)
+{
+/**************************************
+ *
+ *	j o i n _ t o _ n u l l s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Loop through the streams on the right side of a left
+ *	outer join, and make them all indicate a null record.
+ *
+ **************************************/
+	REQ request;
+	LLS stack;
+	RPB *rpb;
+	FMT format;
+	REC record;
+
+	SET_TDBB(tdbb);
+
+	request = tdbb->tdbb_request;
+	stack = (LLS) rsb->rsb_arg[streams];
+	for (; stack; stack = stack->lls_next) {
+		rpb = &request->req_rpb[(USHORT) stack->lls_object];
+
+		/* Make sure a record block has been allocated.  If there isn't
+		   one, first find the format, then allocate the record block */
+
+		if (!(record = rpb->rpb_record)) {
+			if (!(format = rpb->rpb_relation->rel_current_format))
+				format =
+					MET_format(tdbb, rpb->rpb_relation,
+							   rpb->rpb_format_number);
+			record = VIO_record(tdbb, rpb, format, tdbb->tdbb_default);
+		}
+
+#ifndef GATEWAY
+		record->rec_format = NULL;
+#else
+		/* A null format pointer in the record block is used to indicate
+		   a completely null record. If a record's been read since the
+		   last time this routine was called (format pointer is not null),
+		   then must set the null flags to "missing" so that foreign DBMS
+		   has an indicator variable. */
+
+		if (format = record->rec_format) {
+			EXE_set_fields_null(tdbb, record, format);
+			record->rec_format = NULL;
+		}
+#endif
+	}
+}
+
+
+static void map_sort_data(REQ request, SMB map, UCHAR * data)
+{
+/**************************************
+ *
+ *	m a p _ s o r t _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a sort record, a sort map, and a request, map data from
+ *	the raw sort record to civilized record blocks.
+ *
+ **************************************/
+	SSHORT id;
+	UCHAR flag;
+	DSC from, to;
+	RPB *rpb;
+	NOD node;
+	REC record;
+	smb::smb_repeat * item, *end_item;
+
+	end_item = map->smb_rpt + map->smb_count;
+
+	for (item = map->smb_rpt; item < end_item; item++) {
+		flag = *(data + item->smb_flag_offset);
+		from = item->smb_desc;
+		from.dsc_address = data + (ULONG) from.dsc_address;
+		if ((node = item->smb_node) && node->nod_type != nod_field)
+			continue;
+
+		/* if moving a TEXT item into the KEY portion of
+		   the sort record, then want to sort by
+		   language dependant order */
+
+		/* in the case below a nod_field is being converted to
+		   a sort key, there is a later nod_field in the item
+		   list that contains the data to send back
+		 */
+		if (IS_INTL_DATA(&item->smb_desc) &&
+			(USHORT) item->smb_desc.dsc_address <
+			map->smb_key_length * sizeof(ULONG)) continue;
+
+		rpb = &request->req_rpb[item->smb_stream];
+		id = item->smb_field_id;
+		if (id < 0) {
+			if (id == SMB_TRANS_ID)
+				rpb->rpb_transaction = *(SLONG *) (from.dsc_address);
+			else
+				rpb->rpb_number = *(SLONG *) (from.dsc_address);
+			rpb->rpb_stream_flags |= RPB_s_refetch;
+			continue;
+		}
+		record = rpb->rpb_record;
+		EVL_field(0, record, id, &to);
+		if (flag)
+			SET_NULL(record, id);
+		else {
+			MOV_move(&from, &to);
+			CLEAR_NULL(record, id);
+		}
+	}
+}
+
+
+static void open_merge(TDBB tdbb, RSB rsb, IRSB_MRG impure)
+{
+/**************************************
+ *
+ *	o p e n _ m e r g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a merge stream by opening all substreams 
+ *	and cleaning up after any prior sort-merge retrieval.
+ *
+ **************************************/
+	RSB *ptr, *end, sort_rsb;
+	SMB map;
+	MFB mfb;
+	irsb_mrg::irsb_mrg_repeat * tail;
+
+	SET_TDBB(tdbb);
+
+/* do two simultaneous but unrelated things in one loop */
+
+	for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count * 2, tail =
+		 impure->irsb_mrg_rpt; ptr < end; ptr += 2, tail++) {
+		/* open all the substreams for the sort-merge */
+
+		RSE_open(tdbb, *ptr);
+
+		sort_rsb = *ptr;
+		map = (SMB) sort_rsb->rsb_arg[0];
+
+		/* Reset equality group record positions */
+
+		tail->irsb_mrg_equal = -1;
+		tail->irsb_mrg_equal_end = -1;
+		tail->irsb_mrg_equal_current = -1;
+		tail->irsb_mrg_last_fetched = -1;
+		tail->irsb_mrg_order = tail - impure->irsb_mrg_rpt;
+
+		mfb = &tail->irsb_mrg_file;
+		mfb->mfb_equal_records = 0;
+		mfb->mfb_current_block = 0;
+		mfb->mfb_record_size = ROUNDUP_LONG(map->smb_length);
+		mfb->mfb_block_size = MAX(mfb->mfb_record_size, MERGE_BLOCK_SIZE);
+		mfb->mfb_blocking_factor = mfb->mfb_block_size / mfb->mfb_record_size;
+		if (!mfb->mfb_block_data)
+			mfb->mfb_block_data =
+				reinterpret_cast <
+				UCHAR * >(ALL_sys_alloc(mfb->mfb_block_size, ERR_jmp));
+	}
+}
+
+
+static void open_procedure(TDBB tdbb, RSB rsb, IRSB_PROCEDURE impure)
+{
+/**************************************
+ *
+ *	o p e n _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a procedural view.
+ *
+ **************************************/
+	NOD inputs, *ptr, *end, in_message;
+	PRC procedure;
+	REQ request, proc_request;
+	FMT format;
+	USHORT iml;
+	UCHAR *im;
+	RPB *rpb;
+
+	SET_TDBB(tdbb);
+
+	inputs = (NOD) rsb->rsb_arg[RSB_PRC_inputs];
+	procedure = rsb->rsb_procedure;
+	request = tdbb->tdbb_request;
+
+/* get rid of any lingering record */
+
+	rpb = request->req_rpb + rsb->rsb_stream;
+	if (rpb->rpb_record) {
+		ALL_release((FRB) rpb->rpb_record);
+		rpb->rpb_record = NULL;
+	}
+
+	proc_request = EXE_find_request(tdbb, procedure->prc_request, FALSE);
+	impure->irsb_req_handle = proc_request;
+	if (inputs) {
+		ENUM req::req_s saved_state = request->req_operation;
+
+		for (ptr = inputs->nod_arg, end = ptr + inputs->nod_count; ptr < end;
+			 ptr++)
+			EXE_assignment(tdbb, *ptr);
+
+		request->req_operation = saved_state;
+		in_message = (NOD) rsb->rsb_arg[RSB_PRC_in_msg];
+		format = (FMT) in_message->nod_arg[e_msg_format];
+		iml = format->fmt_length;
+		im = (UCHAR *) request + in_message->nod_impure;
+	}
+	else {
+		iml = 0;
+		im = NULL;
+	}
+
+/* req_proc_fetch flag used only when fetching rows, so
+   is set at end of open_procedure (). */
+
+	proc_request->req_flags &= ~req_proc_fetch;
+	EXE_start(tdbb, proc_request, request->req_transaction);
+	if (iml)
+		EXE_send(tdbb, proc_request, 0, iml, im);
+	proc_request->req_flags |= req_proc_fetch;
+}
+
+
+static void open_sort(TDBB tdbb, RSB rsb, IRSB_SORT impure)
+{
+/**************************************
+ *
+ *	o p e n _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize sort, open the sub-stream, pump all records
+ *	into sort, etc.  This gets things going.
+ *
+ **************************************/
+	SMB map;
+	UCHAR *data, flag;
+	DSC *from, to, temp;
+	REQ request;
+	RPB *rpb;
+	NOD node;
+	int records;
+	SSHORT stream;
+	SCB handle;
+	smb::smb_repeat * item, *end_item;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+
+	RSE_open(tdbb, rsb->rsb_next);
+	map = (SMB) rsb->rsb_arg[0];
+	records = 0;
+
+/* get rid of the old sort areas if this request has been used already */
+
+	if (impure->irsb_sort_handle)
+		SORT_fini(impure->irsb_sort_handle, tdbb->tdbb_attachment);
+
+/* Initialize for sort.  If this is really a project operation,
+   establish a callback routine to reject duplicate records. */
+
+	handle = SORT_init(tdbb->tdbb_status_vector,
+					   map->smb_length,
+					   map->smb_keys,
+					   map->smb_key_desc,
+					   reinterpret_cast < UCHAR(*)() >
+					   ((map->smb_flags & SMB_project) ? reject : NULL), 0,
+					   tdbb->tdbb_attachment);
+
+	if (!(impure->irsb_sort_handle = (SCB) handle))
+		ERR_punt();
+
+/* Pump the input stream dry while pushing records into sort.  For
+   each record, map all fields into the sort record.  The reverse
+   mapping is done in "get_sort". */
+
+	while (get_record(tdbb, rsb->rsb_next, NULL, RSE_get_forward)) {
+		records++;
+
+		/* "Put" a record to sort.  Actually, get the address of a place
+		   to build a record. */
+
+		if (SORT_put(tdbb->tdbb_status_vector, impure->irsb_sort_handle,
+					 (ULONG **) & data))
+			ERR_punt();
+
+		/* Zero out the sort key.  This solve a multitude of problems. */
+
+		MOVE_CLEAR(data, (SLONG) map->smb_length);
+
+		/* Loop thru all field (keys and hangers on) involved in the
+		   sort.  Be careful to null field all unused bytes in the sort
+		   key. */
+
+		end_item = map->smb_rpt + map->smb_count;
+		for (item = map->smb_rpt; item < end_item; item++) {
+			to = item->smb_desc;
+			to.dsc_address = data + (ULONG) to.dsc_address;
+			flag = FALSE;
+			if (item->smb_node) {
+				from = EVL_expr(tdbb, item->smb_node);
+				if (request->req_flags & req_null)
+					flag = TRUE;
+			}
+			else {
+				from = &temp;
+				rpb = &request->req_rpb[item->smb_stream];
+				if (item->smb_field_id < 0) {
+					if (item->smb_field_id == SMB_TRANS_ID)
+						*(SLONG *) (to.dsc_address) = rpb->rpb_transaction;
+					else
+						*(SLONG *) (to.dsc_address) = rpb->rpb_number;
+					continue;
+				}
+				if (!EVL_field
+					(rpb->rpb_relation, rpb->rpb_record, item->smb_field_id,
+					 from)) flag = TRUE;
+			}
+			*(data + item->smb_flag_offset) = flag;
+			if (!flag) {
+				/* if moving a TEXT item into the KEY portion of
+				   the sort record, then want to sort by language dependent order */
+
+				if (IS_INTL_DATA(&item->smb_desc) &&
+					(USHORT) item->smb_desc.dsc_address <
+					map->smb_key_length * sizeof(ULONG)) {
+					INTL_string_to_key(tdbb, INTL_INDEX_TYPE(&item->smb_desc),
+									   from, &to, FALSE);
+				}
+				else
+					MOV_move(from, &to);
+			}
+		}
+	}
+
+	if (SORT_sort(tdbb->tdbb_status_vector, impure->irsb_sort_handle))
+		ERR_punt();
+
+/* For the sake of prudence, set all record parameter blocks to contain
+   the most recent format.  This is will guarentee that all fields mapped
+   back to records by "get_sort" have homes in the target record. */
+
+	if (!records)
+		return;
+	stream = -1;
+
+	for (item = map->smb_rpt; item < end_item; item++) {
+		if ((node = item->smb_node) && node->nod_type != nod_field)
+			continue;
+		if (item->smb_stream == stream)
+			continue;
+		stream = item->smb_stream;
+		rpb = &request->req_rpb[stream];
+		if (rpb->rpb_relation)
+			VIO_record(tdbb, rpb, MET_current(tdbb, rpb->rpb_relation),
+					   tdbb->tdbb_default);
+	}
+}
+
+
+static void proc_assignment(
+							DSC * from_desc,
+							DSC * flag_desc,
+							UCHAR * msg,
+							DSC * to_desc, SSHORT to_id, REC record)
+{
+/**************************************
+ *
+ *	p r o c _ a s s i g n m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform an assignment from a message to a record format.
+ *
+ **************************************/
+	DSC desc1, desc2;
+	SSHORT indicator, l;
+	UCHAR *p;
+
+	desc2.dsc_dtype = dtype_short;
+	desc2.dsc_scale = 0;
+	desc2.dsc_length = sizeof(SSHORT);
+	desc2.dsc_sub_type = 0;
+	desc2.dsc_flags = 0;
+	desc2.dsc_address = (UCHAR *) & indicator;
+	desc1 = *flag_desc;
+	desc1.dsc_address = msg + (int) flag_desc->dsc_address;
+	MOV_move(&desc1, &desc2);
+	if (indicator) {
+		SET_NULL(record, to_id);
+		l = to_desc->dsc_length;
+		p = record->rec_data + (int) to_desc->dsc_address;
+		switch (to_desc->dsc_dtype) {
+		case dtype_text:
+			/* YYY - not necessarily the right thing to do */
+			/* YYY for text formats that don't have trailing spaces */
+			if (l)
+				do
+					*p++ = ' ';
+				while (--l);
+			break;
+
+		case dtype_cstring:
+			*p = 0;
+			break;
+
+		case dtype_varying:
+			*(SSHORT *) p = 0;
+			break;
+
+		default:
+			do
+				*p++ = 0;
+			while (--l);
+			break;
+		}
+		to_desc->dsc_flags |= DSC_null;
+	}
+	else {
+		CLEAR_NULL(record, to_id);
+		desc1 = *from_desc;
+		desc1.dsc_address = msg + (int) desc1.dsc_address;
+		desc2 = *to_desc;
+		desc2.dsc_address = record->rec_data + (int) desc2.dsc_address;
+		if (!DSC_EQUIV((&desc1), (&desc2)))
+			MOV_move(&desc1, &desc2);
+
+		else if (desc1.dsc_dtype == dtype_short)
+			*((SSHORT *) desc2.dsc_address) = *((SSHORT *) desc1.dsc_address);
+
+		else if (desc1.dsc_dtype == dtype_long)
+			*((SLONG *) desc2.dsc_address) = *((SLONG *) desc1.dsc_address);
+
+		else if (desc1.dsc_dtype == dtype_int64)
+			*((SINT64 *) desc2.dsc_address) = *((SINT64 *) desc1.dsc_address);
+
+		else if (((U_IPTR) desc1.dsc_address & (ALIGNMENT - 1)) ||
+				 ((U_IPTR) desc2.dsc_address & (ALIGNMENT - 1)))
+			MOVE_FAST(desc1.dsc_address, desc2.dsc_address, desc1.dsc_length);
+
+		else
+			MOVE_FASTER(desc1.dsc_address, desc2.dsc_address,
+						desc1.dsc_length);
+	}
+}
+
+
+static void pop_rpbs(REQ request, RSB rsb)
+{
+/**************************************
+ *
+ *	p o p _ r p b s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restore record state to saved copy.
+ *
+ **************************************/
+	RPB *rpb;
+	IRSB_MRG impure;
+
+	impure = (IRSB_MRG) ((UCHAR *) request + rsb->rsb_impure);
+
+	switch (rsb->rsb_type) {
+#ifndef GATEWAY
+	case rsb_indexed:
+	case rsb_sequential:
+	case rsb_procedure:
+	case rsb_ext_sequential:
+	case rsb_ext_indexed:
+	case rsb_ext_dbkey:
+	case rsb_navigate:
+#endif
+	case rsb_union:
+	case rsb_aggregate:
+		rpb = request->req_rpb + rsb->rsb_stream;
+		restore_record(rpb);
+		return;
+
+	case rsb_sort:
+		{
+			SSHORT i, streams[128];
+			SMB map;
+			smb::smb_repeat * item, *end_item;
+
+			map = (SMB) rsb->rsb_arg[0];
+			for (i = 0; i < (SSHORT) request->req_count; i++)
+				streams[i] = 0;
+			end_item = map->smb_rpt + map->smb_count;
+			for (item = map->smb_rpt; item < end_item; item++)
+				streams[item->smb_stream] = 1;
+			for (i = 0; i < (SSHORT) request->req_count; i++)
+				if (streams[i]) {
+					rpb = request->req_rpb + i;
+					restore_record(rpb);
+				}
+			return;
+		}
+
+	case rsb_merge:
+		{
+			SSHORT i, streams[128];
+			SMB map;
+			RSB sort_rsb, *ptr, *end;
+			smb::smb_repeat * item, *end_item;
+			irsb_mrg::irsb_mrg_repeat * tail;
+
+			for (i = 0; i < (SSHORT) request->req_count; i++)
+				streams[i] = 0;
+			end = rsb->rsb_arg + rsb->rsb_count * 2;
+			impure = (IRSB_MRG) ((UCHAR *) request + rsb->rsb_impure);
+			for (ptr = rsb->rsb_arg, tail = impure->irsb_mrg_rpt;
+				 ptr < end; ptr += 2, tail++) {
+				sort_rsb = *ptr;
+				map = (SMB) sort_rsb->rsb_arg[0];
+				end_item = map->smb_rpt + map->smb_count;
+				for (item = map->smb_rpt; item < end_item; item += 2)
+					streams[item->smb_stream] = 1;
+			}
+			for (i = 0; i < (SSHORT) request->req_count; i++)
+				if (streams[i]) {
+					rpb = request->req_rpb + i;
+					restore_record(rpb);
+				}
+			return;
+		}
+
+	case rsb_first:
+	case rsb_boolean:
+		pop_rpbs(request, rsb->rsb_next);
+		return;
+
+	case rsb_cross:
+		{
+			RSB *ptr, *end;
+
+			/* Bug # 72369: singleton-SELECT in Stored Procedure gives wrong
+			 * results when there are more than 2 streams in the cross. 
+			 * rsb_cross can have more than 2 rsb_arg's. Go through each one
+			 */
+			for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count; ptr < end;
+				 ptr++)
+				pop_rpbs(request, *ptr);
+			return;
+		}
+
+	case rsb_left_cross:
+		pop_rpbs(request, rsb->rsb_arg[RSB_LEFT_outer]);
+		pop_rpbs(request, rsb->rsb_arg[RSB_LEFT_inner]);
+		return;
+
+#ifdef GATEWAY
+		Gateway not done
+#endif
+		default:BUGCHECK(166);	/* msg 166 invalid rsb type */
+	}
+}
+
+
+static void push_rpbs(TDBB tdbb, REQ request, RSB rsb)
+{
+/**************************************
+ *
+ *	p u s h _ r p b s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Save data state for current rsb
+ *
+ **************************************/
+	RPB *rpb;
+	IRSB_MRG impure;
+
+	SET_TDBB(tdbb);
+
+	switch (rsb->rsb_type) {
+#ifndef GATEWAY
+	case rsb_indexed:
+	case rsb_sequential:
+	case rsb_procedure:
+	case rsb_ext_sequential:
+	case rsb_ext_indexed:
+	case rsb_ext_dbkey:
+	case rsb_navigate:
+#endif
+	case rsb_union:
+	case rsb_aggregate:
+		rpb = request->req_rpb + rsb->rsb_stream;
+		save_record(tdbb, rpb);
+		return;
+
+	case rsb_sort:
+		{
+			SSHORT i, streams[128];
+			SMB map;
+			smb::smb_repeat * item, *end_item;
+
+			map = (SMB) rsb->rsb_arg[0];
+			for (i = 0; i < (SSHORT) request->req_count; i++)
+				streams[i] = 0;
+			end_item = map->smb_rpt + map->smb_count;
+			for (item = map->smb_rpt; item < end_item; item++)
+				streams[item->smb_stream] = 1;
+			for (i = 0; i < (SSHORT) request->req_count; i++)
+				if (streams[i]) {
+					rpb = request->req_rpb + i;
+					save_record(tdbb, rpb);
+				}
+			return;
+		}
+
+	case rsb_merge:
+		{
+			SSHORT i, streams[128];
+			SMB map;
+			RSB sort_rsb, *ptr, *end;
+			smb::smb_repeat * item, *end_item;
+			irsb_mrg::irsb_mrg_repeat * tail;
+
+			for (i = 0; i < (SSHORT) request->req_count; i++)
+				streams[i] = 0;
+			end = rsb->rsb_arg + rsb->rsb_count * 2;
+			impure = (IRSB_MRG) ((UCHAR *) request + rsb->rsb_impure);
+			for (ptr = rsb->rsb_arg, tail = impure->irsb_mrg_rpt;
+				 ptr < end; ptr += 2, tail++) {
+				sort_rsb = *ptr;
+				map = (SMB) sort_rsb->rsb_arg[0];
+				end_item = map->smb_rpt + map->smb_count;
+				for (item = map->smb_rpt; item < end_item; item++)
+					streams[item->smb_stream] = 1;
+			}
+			for (i = 0; i < (SSHORT) request->req_count; i++)
+				if (streams[i]) {
+					rpb = request->req_rpb + i;
+					save_record(tdbb, rpb);
+				}
+			return;
+		}
+
+	case rsb_first:
+	case rsb_boolean:
+		push_rpbs(tdbb, request, rsb->rsb_next);
+		return;
+
+	case rsb_cross:
+		{
+			RSB *ptr, *end;
+
+			/* Bug # 72369: singleton-SELECT in Stored Procedure gives wrong
+			 * results when there are more than 2 streams in the cross. 
+			 * rsb_cross can have more than 2 rsb_arg's. Go through each one
+			 */
+			for (ptr = rsb->rsb_arg, end = ptr + rsb->rsb_count; ptr < end;
+				 ptr++)
+				push_rpbs(tdbb, request, *ptr);
+			return;
+		}
+
+		/* BUG #8637: left outer join gives internal gds software consistency
+		   check. Added case for rsb_left_cross. */
+	case rsb_left_cross:
+		push_rpbs(tdbb, request, rsb->rsb_arg[RSB_LEFT_outer]);
+		push_rpbs(tdbb, request, rsb->rsb_arg[RSB_LEFT_inner]);
+		return;
+
+#ifdef GATEWAY
+		Gateway not done
+#endif
+		default:BUGCHECK(166);	/* msg 166 invalid rsb type */
+	}
+}
+
+
+static ULONG read_merge_block(TDBB tdbb, MFB mfb, ULONG block)
+{
+/**************************************
+ *
+ *	r e a d _ m e r g e _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a block from the merge equivalence file.
+ *
+ **************************************/
+
+	assert(mfb->mfb_sfb && mfb->mfb_sfb->sfb_file_name);
+
+	SORT_read_block(tdbb->tdbb_status_vector,
+					mfb->mfb_sfb,
+					mfb->mfb_block_size * block,
+					mfb->mfb_block_data, mfb->mfb_block_size);
+
+	return block;
+}
+
+
+static BOOLEAN reject(UCHAR * record_a, UCHAR * record_b, int user_arg)
+{
+/**************************************
+ *
+ *	r e j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Callback routine used by project to reject duplicate records.
+ *	Particularly dumb routine -- always returns TRUE;
+ *
+ **************************************/
+
+	return TRUE;
+}
+
+
+static void restore_record(RPB * rpb)
+{
+/**************************************
+ *
+ *	r e s t o r e _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restore record to prior state
+ *
+ **************************************/
+	REC record, rec_copy;
+	SRPB rpb_copy;
+	USHORT size;
+
+	if ((rpb_copy = rpb->rpb_copy)
+		&& (rec_copy = rpb_copy->srpb_rpb->rpb_record)) {
+		record = rpb->rpb_record;
+		size = rec_copy->rec_length;
+		if (!record || size > record->rec_length)
+			/* msg 284 cannot restore singleton select data */
+			BUGCHECK(284);
+		record->rec_format = rec_copy->rec_format;
+		record->rec_number = rec_copy->rec_number;
+		MOVE_FAST(rec_copy->rec_data, record->rec_data, size);
+
+		MOVE_FAST(rpb_copy->srpb_rpb, rpb, sizeof(struct rpb));
+		rpb->rpb_record = record;
+
+		ALL_release((FRB) rec_copy);
+	}
+	if (rpb_copy)
+		ALL_release((FRB) rpb_copy);
+
+	rpb->rpb_copy = NULL;
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+static void resynch_merge(
+						  TDBB tdbb,
+						  RSB rsb, IRSB_MRG impure, RSE_GET_MODE mode)
+{
+/**************************************
+ *
+ *	r e s y n c h _ m e r g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	We are in trouble because we stepped off 
+ *	an equivalence group in a direction different 
+ *	than that which we entered it.  We need to 
+ *	"back up" each substream by an amount equal 
+ * 	to the number of records in the grouping.
+ *
+ **************************************/
+	REQ request;
+	RSB *ptr, *end, sort_rsb;
+	SLONG records;
+	irsb_mrg::irsb_mrg_repeat * tail;
+	UCHAR *data;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+
+	end = rsb->rsb_arg + rsb->rsb_count * 2;
+	for (ptr = rsb->rsb_arg, tail = impure->irsb_mrg_rpt; ptr < end;
+		 ptr += 2, tail++) {
+		sort_rsb = *ptr;
+		mfb = &tail->irsb_mrg_file;
+
+		/* increment (or decrement) past each record in the substream 
+		   which has been stored in the merge equivalence group; assume 
+		   the actual count is one less, unless an additional record 
+		   was stored in the "last_fetched" field */
+
+		if (records = mfb->mfb_equal_records)
+			--records;
+
+		for (; records; --records) {
+			/* failure of this operation should never happen, 
+			   but if it does give an error */
+
+			if (!(data = get_sort(tdbb, sort_rsb, mode)))
+				ERR_post(isc_stream_eof, 0);
+
+			/* do an "unget" to fix up the sort record for re-retrieval */
+
+			unget_sort(tdbb, sort_rsb, data);
+		}
+
+		/* null out the "last fetched" record, since this is not the 
+		   next record we want to retrieve anymore--we are headed in 
+		   the opposite direction */
+
+		tail->irsb_mrg_last_fetched = -1;
+	}
+}
+#endif
+
+
+static void save_record(TDBB tdbb, RPB * rpb)
+{
+/**************************************
+ *
+ *	s a v e _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Save current record
+ *
+ **************************************/
+	REC record, rec_copy;
+	SRPB rpb_copy;
+	SLONG size;
+
+	SET_TDBB(tdbb);
+
+	if (record = rpb->rpb_record) {
+		size = record->rec_length;
+		if (rpb_copy = rpb->rpb_copy) {
+			if (rec_copy = rpb_copy->srpb_rpb->rpb_record)
+				ALL_release((FRB) rec_copy);
+		}
+		else
+			rpb->rpb_copy = rpb_copy = (SRPB) ALLOCDV(type_srpb, 0);
+
+		MOVE_FAST(rpb, rpb_copy->srpb_rpb, sizeof(struct rpb));
+		rpb_copy->srpb_rpb->rpb_record = rec_copy =
+			(REC) ALLOCDV(type_rec, size);
+
+		rec_copy->rec_length = size;
+		rec_copy->rec_format = record->rec_format;
+		rec_copy->rec_number = record->rec_number;
+		MOVE_FAST(record->rec_data, rec_copy->rec_data, size);
+	}
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+static void unget_sort(TDBB tdbb, RSB rsb, UCHAR * data)
+{
+/**************************************
+ *
+ *	u n g e t _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fix up the sort data in case we need to re-retrieve 
+ *	it.  This was initiated because of the need to navigate 
+ *	through the sort, and the fact that retrieving the sort 
+ *	data is destructive to the sort data (diddles it).
+ *
+ **************************************/
+	IRSB_SORT impure;
+	REQ request;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+
+	impure = (IRSB_SORT) ((UCHAR *) request + rsb->rsb_impure);
+
+	SORT_diddle_key(data, impure->irsb_sort_handle, TRUE);
+}
+#endif
+
+
+static void write_merge_block(TDBB tdbb, MFB mfb, ULONG block)
+{
+/**************************************
+ *
+ *	w r i t e _ m e r g e _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a block to the merge equivalence file. If
+ *	the file doesn't exist, by all means, create one.
+ *
+ **************************************/
+	SFB sfb;
+
+	if (!(sfb = mfb->mfb_sfb)) {
+		sfb = mfb->mfb_sfb =
+			(SFB) ALL_malloc((ULONG) sizeof(struct sfb), ERR_jmp);
+		MOVE_CLEAR(sfb, sizeof(struct sfb));
+	}
+	if (!sfb->sfb_file_name) {
+		TEXT file_name[128];
+
+		sfb->sfb_file = (int) gds__temp_file(FALSE, SCRATCH, file_name);
+		if (sfb->sfb_file == -1)
+			SORT_error(tdbb->tdbb_status_vector, sfb, "open", isc_io_error,
+					   errno);
+		sfb->sfb_file_name =
+			ALL_malloc((ULONG) (strlen(file_name) + 1), ERR_jmp);
+		strcpy(sfb->sfb_file_name, file_name);
+	}
+
+	SORT_write_block(tdbb->tdbb_status_vector,
+					 sfb,
+					 mfb->mfb_block_size * block,
+					 mfb->mfb_block_data, mfb->mfb_block_size);
+}
diff --git a/src/jrd/rse.h b/src/jrd/rse.h
new file mode 100644
index 0000000000..93ac70f7f0
--- /dev/null
+++ b/src/jrd/rse.h
@@ -0,0 +1,361 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		rse.h
+ *	DESCRIPTION:	Record source block definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_RSE_H_
+#define _JRD_RSE_H_
+
+#include "../jrd/dsc.h"
+
+/* Record Source Block (RSB) types */
+
+typedef ENUM rsb_t { rsb_boolean, rsb_cross, rsb_dbkey, rsb_first, rsb_indexed, rsb_merge, rsb_multiple, rsb_project, rsb_sequential, rsb_sort, rsb_union, rsb_aggregate, rsb_ext_sequential,	/* External sequential access */
+	rsb_ext_indexed,			/* External indexed access */
+	rsb_ext_dbkey,				/* External dbkey access */
+	rsb_navigate,				/* Walk navigational index */
+	rsb_bit_sieve, rsb_left_cross,	/* Left outer join */
+	rsb_procedure,				/* Stored procedure */
+	rsb_select,					/* (Gateway only) */
+	rsb_sql_join,				/* (Gateway only) */
+	rsb_simulate,				/* (Gateway only) */
+	rsb_sim_cross,				/* (Gateway only) */
+rsb_once /* (Gateway only) */ } RSB_T;
+
+
+
+/* Record Source Block */
+
+typedef struct rsb {
+	struct blk rsb_header;
+	RSB_T rsb_type;				/* type of rsb */
+	UCHAR rsb_stream;			/* stream, if appropriate */
+	USHORT rsb_count;			/* number of sub arguments */
+	USHORT rsb_flags;
+	ULONG rsb_impure;			/* offset to impure area */
+	ULONG rsb_cardinality;		/* estimated cardinality of stream */
+	ULONG rsb_record_count;		/* count of records returned from rsb (not candidate records processed) */
+	struct rsb *rsb_next;		/* next rsb, if appropriate */
+	struct rel *rsb_relation;	/* relation, if appropriate */
+	struct str *rsb_alias;		/* SQL alias for relation */
+	struct prc *rsb_procedure;	/* procedure, if appropriate */
+	struct fmt *rsb_format;		/* format, if appropriate */
+	struct nod *rsb_any_boolean;	/* any/all boolean */
+	struct rsb *rsb_arg[1];
+} *RSB;
+
+/* bits for the rsb_flags field */
+
+#define rsb_singular            1	/* singleton select, expect 0 or 1 records */
+#define rsb_stream_type         2	/* rsb is for stream type request */
+#define rsb_descending          4	/* an ascending index is being used for a descending sort or vice versa */
+#define rsb_project		8		/* projection on this stream is requested */
+
+/* Special argument positions within the RSB */
+
+#define RSB_PRC_inputs		0
+#define RSB_PRC_in_msg		1
+#define RSB_PRC_count		2
+
+#define RSB_NAV_index		0
+#define RSB_NAV_inversion	1
+#define RSB_NAV_key_length	2
+#define RSB_NAV_idx_offset	3
+#define RSB_NAV_count		4
+
+#define RSB_LEFT_outer		0
+#define RSB_LEFT_inner		1
+#define RSB_LEFT_boolean	2
+#define RSB_LEFT_streams	3
+#define RSB_LEFT_rsbs		4
+#define RSB_LEFT_inner_boolean	5
+#define RSB_LEFT_inner_streams	6
+#define RSB_LEFT_count		7
+
+
+
+/* Merge (equivalence) file block */
+
+typedef struct mfb {
+	struct sfb *mfb_sfb;		/* merge file uses SORT I/O routines */
+	ULONG mfb_equal_records;	/* equality group cardinality */
+	ULONG mfb_record_size;		/* matches sort map length */
+	ULONG mfb_current_block;	/* current merge block in buffer */
+	ULONG mfb_block_size;		/* merge block I/O size */
+	ULONG mfb_blocking_factor;	/* merge equality records per block */
+	UCHAR *mfb_block_data;		/* merge block I/O buffer */
+} *MFB;
+
+#define MERGE_BLOCK_SIZE	65536
+
+/* RSB impure area formats for the various rsb types */
+
+typedef struct irsb {
+	ULONG irsb_flags;
+	USHORT irsb_count;
+} *IRSB;
+
+typedef struct irsb_first_n {
+	ULONG irsb_flags;
+	SLONG irsb_number;
+} *IRSB_FIRST;
+
+typedef struct irsb_index {
+	ULONG irsb_flags;
+	SLONG irsb_number;
+	SLONG irsb_prefetch_number;
+	struct sbm **irsb_bitmap;
+} *IRSB_INDEX;
+
+typedef struct irsb_sort {
+	ULONG irsb_flags;
+	struct scb *irsb_sort_handle;
+} *IRSB_SORT;
+
+typedef struct irsb_procedure {
+	ULONG irsb_flags;
+	struct req *irsb_req_handle;
+	struct str *irsb_message;
+} *IRSB_PROCEDURE;
+
+typedef struct irsb_mrg {
+	ULONG irsb_flags;
+	USHORT irsb_mrg_count;		/* Next stream in group */
+	struct irsb_mrg_repeat {
+		SLONG irsb_mrg_equal;	/* queue of equal records */
+		SLONG irsb_mrg_equal_end;	/* end of the equal queue */
+		SLONG irsb_mrg_equal_current;	/* Last fetched record from equal queue */
+		SLONG irsb_mrg_last_fetched;	/* First sort merge record of next group */
+		SSHORT irsb_mrg_order;	/* logical merge order by substream */
+		struct mfb irsb_mrg_file;	/* merge equivalence file */
+	} irsb_mrg_rpt[1];
+} *IRSB_MRG;
+
+typedef struct irsb_sim {
+	ULONG irsb_flags;
+	USHORT irsb_sim_rid;		/* Next relation id */
+	USHORT irsb_sim_fid;		/* Next field id */
+	struct req *irsb_sim_req1;	/* Request handle */
+	struct req *irsb_sim_req2;	/* Request handle */
+} *IRSB_SIM;
+
+#define irsb_sim_alias	32		/* Duplicate relation but w/o user name */
+#define irsb_sim_eos	64		/* Encountered end of stream */
+#define irsb_sim_active	128		/* Remote simulated stream request is active */
+
+
+/* impure area format for navigational rsb type,
+   which holds information used to get back to 
+   the current location within an index */
+
+typedef struct irsb_nav {
+	ULONG irsb_flags;
+	SLONG irsb_nav_expanded_offset;	/* Page offset of current index node on expanded index page */
+	SLONG irsb_nav_number;		/* last record number */
+	SLONG irsb_nav_page;		/* index page number */
+	SLONG irsb_nav_incarnation;	/* buffer/page incarnation counter */
+	ULONG irsb_nav_count;		/* record count of last record returned */
+	struct sbm **irsb_nav_bitmap;	/* Bitmap for inversion tree */
+	struct sbm *irsb_nav_records_visited;	/* Bitmap of records already retrieved */
+	USHORT irsb_nav_offset;		/* Page offset of current index node */
+	USHORT irsb_nav_lower_length;	/* Length of lower key value */
+	USHORT irsb_nav_upper_length;	/* Length of upper key value */
+	USHORT irsb_nav_length;		/* Length of expanded key */
+	UCHAR irsb_nav_data[1];		/* Expanded key, upper bound, and index desc */
+} *IRSB_NAV;
+
+/* flags for the irsb_flags field */
+
+#define irsb_first                1
+#define irsb_joined               2	/* Set in left join when current record has been joined to something */
+#define irsb_mustread             4	/* Set in left join when must read a record from left stream */
+#define irsb_open                 8	/* Indicated rsb is open */
+#define irsb_backwards           16	/* Backwards navigation has been performed on this stream */
+#define irsb_in_opened           32	/* Set in outer join when inner stream has been opened */
+#define irsb_join_full           64	/* Set in full join when left join has completed */
+#define irsb_checking_singular  128	/* fetching to verify singleton select */
+#define irsb_singular_processed 256	/* singleton stream already delivered one record */
+#define irsb_last_backwards     512	/* rsb was last scrolled in the backward direction */
+#define irsb_bof               1024	/* rsb is at beginning of stream */
+#define irsb_eof               2048	/* rsb is at end of stream */
+#define irsb_crack             4096	/* the record at our current position is missing */
+#define irsb_forced_crack      8192	/* the above-mentioned crack was forced by user */
+#define irsb_refresh          16384	/* enter records into refresh range */
+#define irsb_key_changed      32768	/* key has changed since record last returned from rsb */
+
+
+/* Sort map block */
+
+typedef struct smb {
+	struct blk smb_header;
+	USHORT smb_keys;			/* Number of keys */
+	USHORT smb_count;			/* Total number of fields */
+	USHORT smb_length;			/* Sort record length */
+	USHORT smb_key_length;		/* Key length in longwords */
+	struct skd *smb_key_desc;	/* Address of key descriptors */
+	USHORT smb_flags;			/* Misc sort flags */
+	struct smb_repeat {
+		DSC smb_desc;			/* Relative descriptor */
+		USHORT smb_flag_offset;	/* Offset of missing flag */
+		USHORT smb_stream;		/* Stream for field id */
+		SSHORT smb_field_id;	/* Id for field (-1 if dbkey) */
+		struct nod *smb_node;	/* Expression node */
+	} smb_rpt[1];
+} *SMB;
+
+/* values for smb_field_id */
+
+#define SMB_DBKEY	-1			/* dbkey value */
+#define SMB_TRANS_ID	-2		/* transaction id of record */
+
+/* bits for the smb_flags field */
+
+#define SMB_project	1			/* Sort is really a project */
+#define SMB_tag		2			/* Beast is a tag sort */
+
+
+/* Blocks used to compute optimal join order:
+   Indexed relationships block (IRL) holds 
+   information about potential join orders */
+
+typedef struct irl {
+	struct blk irl_header;
+	struct irl *irl_next;		/* Next irl block for stream */
+	USHORT irl_stream;			/* Stream reachable by relation */
+	USHORT irl_unique;			/* Is this stream reachable by unique index? */
+} *IRL;
+
+/* Types of simulated joins (Gateway only) */
+
+#define SJN_by_fld	4
+#define SJN_by_rel	3
+#define SJN_by_rel_prv	2
+#define SJN_none	0
+
+/* Simulated relationships block holds information about potential joins (Gateway only) */
+
+typedef struct srl {
+	struct blk srl_header;
+	struct srl *srl_next;		/* Next srl block for stream */
+	USHORT srl_stream;			/* Stream reachable by join */
+	USHORT srl_type;			/* Simulated join type */
+} *SRL;
+
+
+/* the maximum number of opt items is the maximum
+   number of streams, conjuncts, or indices which
+   can be used in an rse, since this is the space
+   available in the opt block */
+
+#define MAX_OPT_ITEMS	256
+#define MAX_STREAMS	MAX_OPT_ITEMS
+#define MAX_CONJUNCTS	MAX_OPT_ITEMS
+#define MAX_INDICES	MAX_OPT_ITEMS
+#define	OPT_BITS	(MAX_OPT_ITEMS/32)
+
+/* General optimizer block */
+
+typedef struct opt {
+	struct blk opt_header;
+	struct csb *opt_csb;		/* Compiler scratch block */
+	SLONG opt_combinations;		/* Number of partial orders considered */
+	double opt_best_cost;		/* Cost of best join order */
+	SSHORT opt_count;			/* Number of conjuncts */
+	SSHORT opt_parent_count;	/* Number of conjuncts in parent rse */
+	USHORT opt_best_count;		/* Longest length of indexable streams */
+	USHORT opt_g_flags;			/* global flags */
+	struct opt_repeat {
+		struct nod *opt_conjunct;	/* Conjunction */
+#ifndef GATEWAY
+		struct nod *opt_lower;	/* Lower bound on index value */
+		struct nod *opt_upper;	/* Upper bound on index value */
+		struct nod *opt_match;	/* Conjunct which matches index segment */
+		IRL opt_relationships;	/* Streams directly reachable by index */
+#else
+		SRL opt_relationships;	/* Streams directly reachable by index */
+#endif
+		ULONG opt_dependencies[MAX_OPT_ITEMS / 32];
+		/* Stream dependencies to compute conjunct */
+		double opt_best_stream_cost;	/* best cost of retrieving first n streams */
+		USHORT opt_best_stream;	/* stream in best join order seen so far */
+		USHORT opt_flags;
+		USHORT opt_stream;		/* Stream in position of join order */
+	} opt_rpt[MAX_OPT_ITEMS];
+} *OPT;
+
+/* stream-dependent bits used in opt_flags */
+
+#define opt_used	1
+#define opt_stream_used	2
+#define opt_matched	4			/* conjunct matches an index segment */
+
+/* global optimizer bits used in opt_g_flags */
+
+#define opt_g_stream 	1		/* indicate that this is a blr_stream */
+
+
+/* River block -- used to hold temporary information about a group of streams */
+
+typedef struct riv {
+	struct blk riv_header;
+	struct rsb *riv_rsb;		/* Record source block for river */
+	USHORT riv_number;			/* Temporary number for river */
+	UCHAR riv_count;			/* Count of streams */
+	UCHAR riv_streams[1];		/* Actual streams */
+} *RIV;
+
+
+/* bookmark block, used to hold information about the current position 
+   within an index; a pointer to this block is passed to the user as a
+   handle to facilitate returning to this position */
+
+typedef struct bkm {
+	struct blk bkm_header;
+	struct bkm *bkm_next;
+	struct dsc bkm_desc;		/* bookmark descriptor describing the bookmark handle */
+	ULONG bkm_handle;			/* bookmark handle containing pointer to this block */
+	SLONG bkm_number;			/* current record number */
+	SLONG bkm_page;				/* current btree page */
+	SLONG bkm_incarnation;		/* last known incarnation number of current btree page */
+	SLONG bkm_expanded_offset;	/* offset into expanded index page (if it exists) */
+	USHORT bkm_offset;			/* offset into current btree page */
+	USHORT bkm_flags;			/* flag values indicated below */
+	struct dsc bkm_key_desc;	/* descriptor containing current key value */
+	UCHAR bkm_key_data[1];		/* current key value */
+} *BKM;
+
+#define bkm_bof			1
+#define bkm_eof			2
+#define bkm_crack		4
+#define bkm_forced_crack	8
+
+/* types for navigating through a stream */
+
+typedef enum rse_get_mode {
+	RSE_get_forward,
+	RSE_get_backward,
+	RSE_get_current,
+	RSE_get_first,
+	RSE_get_last,
+	RSE_get_next
+} RSE_GET_MODE;
+
+#endif /* _JRD_RSE_H_ */
diff --git a/src/jrd/rse_proto.h b/src/jrd/rse_proto.h
new file mode 100644
index 0000000000..b44699d4b1
--- /dev/null
+++ b/src/jrd/rse_proto.h
@@ -0,0 +1,54 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		rse_proto.h
+ *	DESCRIPTION:	Prototype header file for rse.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_RSE_PROTO_H_
+#define _JRD_RSE_PROTO_H_
+
+#include "../jrd/jrd.h"
+#include "../jrd/rse.h"
+
+extern void RSE_close(TDBB, register struct rsb *);
+#ifdef PC_ENGINE
+extern BOOLEAN RSE_find_dbkey(TDBB, struct rsb *, struct nod *, struct nod *);
+extern BOOLEAN RSE_find_record(TDBB, struct rsb *, USHORT, USHORT,
+							   struct nod *);
+#endif
+extern BOOLEAN RSE_get_record(TDBB, struct rsb *, enum rse_get_mode);
+#ifdef PC_ENGINE
+extern struct bkm *RSE_get_bookmark(TDBB, struct rsb *);
+extern void RSE_mark_crack(TDBB, struct rsb *, USHORT);
+#endif
+extern void RSE_open(TDBB, register struct rsb *);
+#ifdef PC_ENGINE
+extern BOOLEAN RSE_reset_position(TDBB, struct rsb *, struct rpb *);
+extern BOOLEAN RSE_set_bookmark(TDBB, struct rsb *, struct rpb *,
+								struct bkm *);
+#endif
+
+#ifdef PC_ENGINE
+#define RSE_MARK_CRACK(t, var1, var2)	RSE_mark_crack (t, var1, var2)
+#else
+#define RSE_MARK_CRACK(t, var1, var2)
+#endif
+
+#endif /* _JRD_RSE_PROTO_H_ */
diff --git a/src/jrd/sbm.cpp b/src/jrd/sbm.cpp
new file mode 100644
index 0000000000..3c116c0c4b
--- /dev/null
+++ b/src/jrd/sbm.cpp
@@ -0,0 +1,1057 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sbm.c
+ *	DESCRIPTION:	Sparse Bit Map manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/jrd.h"
+#include "../jrd/req.h"
+#include "../jrd/sbm.h"
+#include "../jrd/all.h"
+#include "../jrd/rse.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/thd_proto.h"
+
+static void bucket_reset(register SBM);
+static void clear_bucket(register SBM);
+static void clear_segment(register BMS);
+
+/* Stores a constant determined during initialization */
+static ULONG SBM_max_tail;
+
+
+SBM *SBM_and(register SBM * bitmap1, register SBM * bitmap2)
+{
+/**************************************
+ *
+ *	S B M _ a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the intersection of two bitmaps.  Note: this may
+ *	destroy one or the other of the bitmaps!
+ *
+ **************************************/
+	SBM map1, map2;
+	SBM *result;
+
+	map1 = (bitmap1) ? *bitmap1 : NULL;
+	map2 = (bitmap2) ? *bitmap2 : NULL;
+
+/* If either bitmap is null, so is the intersection.  */
+
+	if (!map1 || !map2 ||
+		map1->sbm_state == SBM_EMPTY || map2->sbm_state == SBM_EMPTY)
+			return NULL;
+
+	if (map1->sbm_state == SBM_SINGULAR)
+		if (SBM_test(map2, map1->sbm_number))
+			return bitmap1;
+		else
+			return NULL;
+
+	if (map2->sbm_state == SBM_SINGULAR)
+		if (SBM_test(map1, map2->sbm_number))
+			return bitmap2;
+		else
+			return NULL;
+
+/* Both bitmaps exist.  Make sure that the shorter of the two is
+   bitmap1.  If not, flip them. */
+
+	result = bitmap1;
+
+	if (map1->sbm_high_water > map2->sbm_high_water) {
+		map2 = *bitmap1;
+		map1 = *bitmap2;
+		result = bitmap2;
+	}
+
+	if (map1->sbm_type == SBM_ROOT) {
+		SBM *bucket1, *bucket2, *end_buckets, *result_bucket, temp;
+
+		bucket1 = (SBM *) map1->sbm_segments;
+		bucket2 = (SBM *) map2->sbm_segments;
+		end_buckets = bucket1 + map1->sbm_high_water + 1;
+
+		for (; bucket1 < end_buckets; bucket1++, bucket2++)
+			if (*bucket1) {
+				if (!*bucket2) {
+					*bucket2 = *bucket1;
+					*bucket1 = NULL;
+				}
+				else if (!(result_bucket = SBM_and(bucket1, bucket2))) {
+					bucket_reset(*bucket1);
+					*bucket1 = NULL;
+				}
+				else if (result_bucket == bucket2) {
+					temp = *bucket2;
+					*bucket2 = *bucket1;
+					*bucket1 = temp;
+				}
+			}
+	}
+	else {
+		BMS *segment1, *segment2, *end_segments;
+		PLB pool;
+		register BUNCH *b1, *b2;
+		SSHORT j;
+
+		/* AND the bitmaps segment-wise.  If each bucket has a segment
+		   is a given position, AND the segment bit-wise. */
+
+		segment1 = map1->sbm_segments;
+		segment2 = map2->sbm_segments;
+		end_segments = segment1 + map1->sbm_high_water + 1;
+
+		for (; segment1 < end_segments; segment1++, segment2++)
+			if (*segment1) {
+				if (!*segment2) {
+					pool = (*segment1)->bms_pool;
+					(*segment1)->bms_next = pool->plb_segments;
+					pool->plb_segments = *segment1;
+					*segment1 = NULL;
+					continue;
+				}
+				b1 = (*segment1)->bms_bits;
+				b2 = (*segment2)->bms_bits;
+				for (j = 0; j < BUNCH_SEGMENT; j++)
+					*b1++ &= *b2++;
+			}
+	}
+
+	return result;
+}
+
+
+int SBM_clear(register SBM bitmap, SLONG number)
+{
+/**************************************
+ *
+ *	S B M _ c l e a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear a bit in a sparse bitmap.
+ *	Return TRUE if the bit was found set, else return FALSE.
+ *
+ **************************************/
+	SLONG relative;
+	USHORT slot;
+
+/* If the bitmap is completely missing, or is known to be empty,
+   give up immediately.  */
+
+	if (!bitmap || bitmap->sbm_state == SBM_EMPTY)
+		return FALSE;
+
+/* If the bitmap is singular (represents a single value), return it
+   if appropriate, else indicate bitmap exhausted. */
+
+	if (bitmap->sbm_state == SBM_SINGULAR)
+		if (number == bitmap->sbm_number) {
+			bitmap->sbm_state = SBM_EMPTY;
+			return TRUE;
+		}
+		else
+			return FALSE;
+
+	if (bitmap->sbm_type == SBM_ROOT) {
+		SBM bucket;
+
+		slot = number >> BUCKET_BITS;
+
+		if ((int) slot < 0 || slot > bitmap->sbm_high_water ||
+			!(bucket = (SBM) bitmap->sbm_segments[slot]))
+			return FALSE;
+
+		relative = number & ((1 << BUCKET_BITS) - 1);
+		return SBM_clear(bucket, relative);
+	}
+	else {
+		register BMS segment;
+		BUNCH test;
+		SSHORT bit, bunch;
+
+		slot = number >> SEGMENT_BITS;
+
+		if ((int) slot < 0 || slot > bitmap->sbm_high_water ||
+			!(segment = bitmap->sbm_segments[slot]))
+			return FALSE;
+
+		relative = number & ((1 << SEGMENT_BITS) - 1);
+		bunch =
+			(relative >> BUNCH_BITS) & ((1 << (SEGMENT_BITS - BUNCH_BITS)) -
+										1);
+
+		if (!(test = segment->bms_bits[bunch]))
+			return FALSE;
+
+		bit = relative & ((1 << BUNCH_BITS) - 1);
+
+		if (!(test & (1 << bit)))
+			return FALSE;
+
+		test &= ~(1 << bit);
+
+		/* store value back in bit map */
+
+		segment->bms_bits[bunch] = test;
+		return TRUE;
+	}
+}
+
+
+#ifdef DEV_BUILD
+void SBM_dump(IB_FILE * f, SBM bitmap1)
+{
+/**************************************
+ *
+ *	S B M _ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print out a dump of a bitmap.
+ **************************************/
+	SLONG bit1, last_bit;
+	BOOLEAN in_range = FALSE;
+	USHORT counter = 0;
+	bit1 = -1;
+	last_bit = bit1 - 1;
+
+	ib_fprintf(f, "State: %s", (bitmap1->sbm_state == SBM_EMPTY) ? "EMPTY" :
+			   (bitmap1->sbm_state == SBM_SINGULAR) ? "Singular" :
+			   (bitmap1->sbm_state == SBM_PLURAL) ? "Plural" : "Bogus");
+	ib_fprintf(f, " Type: %s", (bitmap1->sbm_type == SBM_BUCKET) ? "Bucket" :
+			   (bitmap1->sbm_type == SBM_ROOT) ? "root" : "Bogus");
+	ib_fprintf(f, " Count %d Used %d high %ld\n",
+			   bitmap1->sbm_count, bitmap1->sbm_used,
+			   bitmap1->sbm_high_water);
+
+	while (TRUE) {
+		if (!SBM_next(bitmap1, &bit1, RSE_get_forward))
+			break;
+		if (bit1 == last_bit + 1) {
+			last_bit = bit1;
+			in_range = TRUE;
+			continue;
+		}
+		if (in_range)
+			ib_fprintf(f, "-%d", last_bit);
+		if ((++counter % 8) == 0)
+			ib_fprintf(f, "\n");
+		ib_fprintf(f, " %d", bit1);
+		last_bit = bit1;
+		in_range = FALSE;
+	}
+
+	if (in_range)
+		ib_fprintf(f, "-%d", last_bit);
+	ib_fprintf(f, "\n");
+}
+#endif
+
+
+BOOLEAN SBM_equal(register SBM bitmap1, register SBM bitmap2)
+{
+/**************************************
+ *
+ *	S B M _ e q u a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return TRUE if two sparse bitmaps are equal (eg: have the
+ *	exact same set of bits set).
+ *	The test is non-destructive of both bitmaps.
+ *
+ *	This implementation is not optimal - as it just probes
+ *	each bit individually rather than using the inards
+ *	for a quicker probe.
+ *
+ **************************************/
+	SLONG bit1, bit2;
+
+/* Check the highest bit in the bitmap - just as
+   a quick optimization */
+	bit1 = bit2 = -1;
+	if ((SBM_next(bitmap1, &bit1, RSE_get_backward) !=
+		 SBM_next(bitmap2, &bit2, RSE_get_backward))
+		|| (bit1 != bit2))
+		return FALSE;
+
+/* Now check each bit */
+	bit1 = bit2 = -1;
+	while (TRUE) {
+		int res1, res2;
+
+		res1 = SBM_next(bitmap1, &bit1, RSE_get_forward);
+		res2 = SBM_next(bitmap2, &bit2, RSE_get_forward);
+
+		/* Reached end of one bitmap, but not the other? */
+		if (res1 != res2)
+			return FALSE;
+
+		/* Have we reached the end of both bitmaps? */
+		if (!res1)
+			return TRUE;
+
+		/* Is the next-bit-set the same for each? */
+		if (bit1 != bit2)
+			return FALSE;
+	}
+}
+
+
+void SBM_init(void)
+{
+/**************************************
+ *
+ *	S B M _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Init sparse bit map constant
+ *
+ **************************************/
+
+	SBM_max_tail = ALL_tail(type_sbm);
+}
+
+
+int SBM_next(register SBM bitmap, SLONG * number, RSE_GET_MODE mode)
+{
+/**************************************
+ *
+ *	S B M _ n e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the next bit set in a bitmap after a given position.
+ *	Return TRUE if a fit is found, else return FALSE.
+ *	Handle forwards or backwards traversal of the bitmap,
+ *	or just return the currently set bit.
+ *
+ **************************************/
+	SLONG relative, slot;
+	BOOLEAN garbage_collect;
+
+/* If the bitmap is completely missing, or is known to be empty,
+   give up immediately.  */
+
+	if (!bitmap || bitmap->sbm_state == SBM_EMPTY)
+		return FALSE;
+
+/* If the bitmap is singular (represents a single value), return it
+   if appropriate, else indicate bitmap exhausted. */
+
+	if (bitmap->sbm_state == SBM_SINGULAR) {
+		if (mode == RSE_get_forward && *number >= bitmap->sbm_number)
+			return FALSE;
+		if (mode == RSE_get_backward &&
+			*number <= bitmap->sbm_number && *number != -1)
+			return FALSE;
+#ifdef PC_ENGINE
+		if (mode == RSE_get_current && *number != bitmap->sbm_number)
+			return FALSE;
+#endif
+
+		*number = bitmap->sbm_number;
+		return TRUE;
+	}
+
+/* Advance the number and search for the next bit set */
+
+	if (bitmap->sbm_type == SBM_ROOT) {
+		SBM bucket;
+
+		if (mode == RSE_get_forward)
+			(*number)++;
+		else if (mode == RSE_get_backward)
+			if (!*number)
+				return FALSE;
+			else if (*number > 0)
+				(*number)--;
+
+		if (*number == -1) {
+			/* if the number is -1, indicate to get the last bit in the bucket */
+
+			slot = bitmap->sbm_high_water;
+			relative = -1;
+		}
+		else {
+			/* find the bucket this number fits into, and the relative
+			   position from the beginning of the bucket via a fast modulo */
+
+			slot = *number >> BUCKET_BITS;
+			relative = *number & ((1 << BUCKET_BITS) - 1);
+
+			if (mode == RSE_get_forward && !relative)
+				relative = -1;
+		}
+
+		/* garbage collection occurs when a bucket is completely empty from beginning 
+		   to end; flag that we started at the beginning of the bucket in this pass */
+
+		garbage_collect = (relative == -1) ? TRUE : FALSE;
+
+		for (;;) {
+			if (slot < 0 || slot > (SLONG) bitmap->sbm_high_water)
+				break;
+
+			/* recursively find the next bit set within this bucket */
+
+			if (bucket = (SBM) bitmap->sbm_segments[slot]) {
+				if (SBM_next(bucket, &relative, mode)) {
+					*number = ((SLONG) slot << BUCKET_BITS) + relative;
+					return TRUE;
+				}
+				else if (garbage_collect && mode == RSE_get_forward) {
+					bucket_reset(bucket);
+					bitmap->sbm_segments[slot] = 0;
+					--bitmap->sbm_used;
+					if (slot == bitmap->sbm_high_water) {
+						for (; slot > 0; --slot)
+							if (bitmap->sbm_segments[slot])
+								break;
+						bitmap->sbm_high_water = slot;
+					}
+				}
+			}
+
+			/* when one bucket is exhausted, try the next one in either direction */
+
+			if (mode == RSE_get_forward)
+				slot++;
+			else if (mode == RSE_get_backward)
+				slot--;
+			else
+				break;
+
+			/* signify that we are at the beginning of the bucket */
+
+			relative = -1;
+			garbage_collect = TRUE;
+		}
+
+		return FALSE;
+	}
+	else {
+		register BMS segment;
+		BUNCH test;
+		SSHORT bit, bunch;
+		PLB pool;
+
+		/* -1 signifies beginning of bucket in either direction, so
+		   adjust the actual number as appropriate */
+
+		if (*number == -1) {
+			if (mode == RSE_get_forward)
+				*number = 0;
+			else if (mode == RSE_get_backward)
+				*number =
+					((SLONG) bitmap->sbm_high_water << SEGMENT_BITS) +
+					BITS_SEGMENT - 1;
+#ifdef PC_ENGINE
+			else if (mode == RSE_get_current)
+				return FALSE;
+#endif
+		}
+
+		/* find the slot within the bucket, and the relative offset from 
+		   the beginning of the bucket */
+
+		slot = *number >> SEGMENT_BITS;
+		relative = *number & ((1 << SEGMENT_BITS) - 1);
+
+		/* within the offset longword, find the exact bit */
+
+		bunch =
+			(relative >> BUNCH_BITS) & ((1 << (SEGMENT_BITS - BUNCH_BITS)) -
+										1);
+		bit = relative & ((1 << BUNCH_BITS) - 1);
+
+		garbage_collect = (!bunch && !bit) ? TRUE : FALSE;
+
+		/* go through all the longwords in the segment, and all the bits
+		   in the longword, in either direction */
+
+		if (mode == RSE_get_forward) {
+			for (; slot <= (SLONG) bitmap->sbm_high_water;
+				 slot++, bunch = 0, bit = 0) {
+				if (segment = bitmap->sbm_segments[slot]) {
+					for (; bunch < BUNCH_SEGMENT; bunch++, bit = 0)
+						if (test = segment->bms_bits[bunch])
+							for (; bit < BITS_BUNCH; bit++)
+								if (test & (1 << bit)) {
+									*number = ((SLONG) slot << SEGMENT_BITS) +
+										(bunch << BUNCH_BITS) + bit;
+									return TRUE;
+								}
+
+					/* didn't find any bits in this bucket, so release it */
+
+					if (garbage_collect) {
+						pool = segment->bms_pool;
+						segment->bms_next = pool->plb_segments;
+						pool->plb_segments = segment;
+						bitmap->sbm_segments[slot] = 0;
+						--bitmap->sbm_used;
+						if (slot == bitmap->sbm_high_water) {
+							for (; slot > 0; --slot)
+								if (bitmap->sbm_segments[slot])
+									break;
+							bitmap->sbm_high_water = slot;
+						}
+					}
+				}
+				garbage_collect = TRUE;
+			}
+		}
+		else if (mode == RSE_get_backward) {
+			for (; slot >= 0;
+				 slot--, bunch = BUNCH_SEGMENT - 1, bit = BITS_BUNCH - 1)
+				if (segment = bitmap->sbm_segments[slot])
+					for (; bunch >= 0; bunch--, bit = BITS_BUNCH - 1)
+						if (test = segment->bms_bits[bunch])
+							for (; bit >= 0; bit--)
+								if (test & (1 << bit)) {
+									*number = ((SLONG) slot << SEGMENT_BITS) +
+										(bunch << BUNCH_BITS) + bit;
+									return TRUE;
+								}
+		}
+#ifdef PC_ENGINE
+		else if (mode == RSE_get_current) {
+			if (slot < 0 || slot > bitmap->sbm_high_water)
+				return FALSE;
+			if (!(segment = bitmap->sbm_segments[slot]))
+				return FALSE;
+			if (bunch < 0 || bunch >= BUNCH_SEGMENT)
+				return FALSE;
+			if (!(test = segment->bms_bits[bunch]))
+				return FALSE;
+			if (bit < 0 || bit >= BITS_BUNCH)
+				return FALSE;
+			if (test & (1 << bit)) {
+				*number = ((SLONG) slot << SEGMENT_BITS) +
+					(bunch << BUNCH_BITS) + bit;
+				return TRUE;
+			}
+		}
+#endif
+
+		return FALSE;
+	}
+}
+
+
+SBM *SBM_or(register SBM * bitmap1, register SBM * bitmap2)
+{
+/**************************************
+ *
+ *	S B M _ o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the bitwise OR (better known as union) of two sparse
+ *	bitmaps.  Note: this may result in the destruction of either
+ *	or both bitmaps.
+ *
+ **************************************/
+	SBM map1, map2;
+	SBM *result;
+
+	map1 = (bitmap1) ? *bitmap1 : NULL;
+	map2 = (bitmap2) ? *bitmap2 : NULL;
+
+/* If either bitmap is empty, return the other. */
+
+	if ((!map1 || map1->sbm_state == SBM_EMPTY))
+		return bitmap2;
+
+	if ((!map2 || map2->sbm_state == SBM_EMPTY))
+		return bitmap1;
+
+/* Both bitmaps are known to exit.  More work.  If either is singular
+   add the bit to the other and return. */
+
+	if (map1->sbm_state == SBM_SINGULAR) {
+		SBM_set(NULL_TDBB, bitmap2, map1->sbm_number);
+		return bitmap2;
+	}
+
+	if (map2->sbm_state == SBM_SINGULAR) {
+		SBM_set(NULL_TDBB, bitmap1, map2->sbm_number);
+		return bitmap1;
+	}
+
+/* We need to loop thru the segments.  Sigh.  Make sure the first
+   is the SLONGer of the two.  If not, switch them. */
+
+	result = bitmap1;
+
+	if (map1->sbm_high_water < map2->sbm_high_water) {
+		map2 = map1;
+		map1 = *bitmap2;
+		result = bitmap2;
+	}
+
+	if (map1->sbm_type == SBM_ROOT) {
+		SBM *bucket1, *bucket2, *end_buckets;
+		SBM temp;
+
+		bucket1 = (SBM *) map1->sbm_segments;
+		bucket2 = (SBM *) map2->sbm_segments;
+		end_buckets = bucket2 + map2->sbm_high_water + 1;
+
+		for (; bucket2 < end_buckets; bucket1++, bucket2++) {
+			if (!*bucket2)
+				continue;
+			if (!*bucket1) {
+				*bucket1 = *bucket2;
+				*bucket2 = NULL;
+				continue;
+			}
+			temp = *bucket1;
+			*bucket1 = *(SBM_or(bucket1, bucket2));
+			if (*bucket1 == *bucket2)
+				*bucket2 = temp;
+		}
+	}
+	else {
+		BMS *segment1, *segment2, *end_segments;
+		register BUNCH *b1, *b2;
+		USHORT j;
+
+		/* Both bitmaps exist.  Form the bitwise union in the first bitmap */
+
+		segment1 = map1->sbm_segments;
+		segment2 = map2->sbm_segments;
+		end_segments = segment2 + map2->sbm_high_water + 1;
+
+		for (; segment2 < end_segments; segment1++, segment2++) {
+			if (!*segment2)
+				continue;
+			if (!*segment1) {
+				*segment1 = *segment2;
+				*segment2 = NULL;
+				continue;
+			}
+			b1 = (*segment1)->bms_bits;
+			b2 = (*segment2)->bms_bits;
+			for (j = 0; j < BUNCH_SEGMENT; j++)
+				*b1++ |= *b2++;
+		}
+	}
+
+	return result;
+}
+
+
+void SBM_release(SBM bitmap)
+{
+/**************************************
+ *
+ *	S B M _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a (possibly null) bitmap.
+ *
+ **************************************/
+
+	if (!bitmap)
+		return;
+
+	SBM_reset(&bitmap);
+	ALL_RELEASE(bitmap);
+}
+
+
+void SBM_reset(SBM * bitmap)
+{
+/**************************************
+ *
+ *	S B M _ r e s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear a sparse bit map.  So save time, don't release the
+ *	vector, just the segments.
+ *
+ **************************************/
+	SBM *tail, vector, bucket;
+	register USHORT i;
+	PLB pool;
+
+	if (!(vector = *bitmap) || vector->sbm_state == SBM_EMPTY)
+		return;
+
+	for (i = 0, tail = (SBM *) vector->sbm_segments; i < vector->sbm_count;
+		 i++, tail++)
+		if (bucket = *tail) {
+			bucket_reset(bucket);
+			*tail = NULL;
+		}
+
+	vector->sbm_state = SBM_EMPTY;
+	vector->sbm_used = vector->sbm_high_water = 0;
+}
+
+
+void SBM_set(TDBB tdbb, SBM * bitmap, SLONG number)
+{
+/**************************************
+ *
+ *	S B M _ s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set a bit in a sparse bit map.
+ *
+ **************************************/
+	SBM vector;
+	SLONG relative;
+	USHORT slot;
+
+	SET_TDBB(tdbb);
+
+	if (!(vector = *bitmap)) {
+		*bitmap = vector = (SBM) ALLOCDV(type_sbm, 5);
+		vector->sbm_type = SBM_ROOT;
+		vector->sbm_count = 5;
+		vector->sbm_state = SBM_SINGULAR;
+		vector->sbm_number = number;
+		return;
+	}
+
+	if (vector->sbm_state == SBM_EMPTY) {
+		vector->sbm_state = SBM_SINGULAR;
+		vector->sbm_number = number;
+		return;
+	}
+
+	if (vector->sbm_type == SBM_ROOT) {
+		SBM bucket;
+		ULONG end;
+
+		slot = number >> BUCKET_BITS;
+		relative = number & ((1 << BUCKET_BITS) - 1);
+
+		/* Make sure a vector is allocated and sufficiently large */
+
+		if (vector->sbm_count <= slot) {
+			if (SBM_max_tail <= slot)
+				end = slot + 5;
+			else {
+				end = vector->sbm_count;
+				do
+					end <<= 1;
+				while (end <= slot);
+				if (end > SBM_max_tail)
+					end = SBM_max_tail;
+			}
+			vector = (SBM) ALL_extend((BLK *) bitmap, end);
+			vector->sbm_count = end;
+		}
+
+		/* Get bucket */
+
+		if (!(bucket = (SBM) vector->sbm_segments[slot])) {
+			if (bucket = tdbb->tdbb_default->plb_buckets)
+				tdbb->tdbb_default->plb_buckets = bucket->sbm_next;
+			else {
+				bucket = (SBM) ALLOCDV(type_sbm, BUNCH_BUCKET);
+				bucket->sbm_pool = tdbb->tdbb_default;
+			}
+			clear_bucket(bucket);
+			vector->sbm_segments[slot] = (BMS) bucket;
+			vector->sbm_used++;
+			if (vector->sbm_high_water < slot)
+				vector->sbm_high_water = slot;
+		}
+
+		/* Set bit, etc. */
+
+		SBM_set(tdbb, &bucket, relative);
+	}
+	else {
+		BMS segment;
+		SSHORT bit, bunch;
+
+		slot = number >> SEGMENT_BITS;
+		relative = number & ((1 << SEGMENT_BITS) - 1);
+		bunch =
+			(relative >> BUNCH_BITS) & ((1 << (SEGMENT_BITS - BUNCH_BITS)) -
+										1);
+		bit = relative & ((1 << BUNCH_BITS) - 1);
+
+		/* Get segment */
+
+		if (!(segment = vector->sbm_segments[slot])) {
+			if (segment = tdbb->tdbb_default->plb_segments) {
+				tdbb->tdbb_default->plb_segments = segment->bms_next;
+				clear_segment(segment);
+			}
+			else {
+				segment = (BMS) ALLOCD(type_bms);
+				segment->bms_pool = tdbb->tdbb_default;
+			}
+			vector->sbm_segments[slot] = segment;
+			vector->sbm_used++;
+			if (vector->sbm_high_water < slot)
+				vector->sbm_high_water = slot;
+		}
+
+		/* Set bit, etc. */
+
+		segment->bms_bits[bunch] |= 1 << bit;
+		if (relative < segment->bms_min)
+			segment->bms_min = relative;
+		if (relative > segment->bms_max)
+			segment->bms_max = relative;
+	}
+
+/* If the bitmap was singular, go back add the single bit */
+
+	if (vector->sbm_state == SBM_PLURAL)
+		return;
+
+	vector->sbm_state = SBM_PLURAL;
+	SBM_set(tdbb, bitmap, vector->sbm_number);
+}
+
+
+int SBM_test(register SBM bitmap, SLONG number)
+{
+/**************************************
+ *
+ *	S B M _ t e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Test whether or not a particular bit is set.
+ *
+ **************************************/
+	SLONG relative;
+	USHORT slot;
+
+/* If the bitmap is completely missing, or is known to be empty,
+   give up immediately.  */
+
+	if (!bitmap || bitmap->sbm_state == SBM_EMPTY)
+		return FALSE;
+
+/* If the bitmap is singular (represents a single value), return it
+   if appropriate, else indicate bitmap exhausted. */
+
+	if (bitmap->sbm_state == SBM_SINGULAR)
+		return (number == bitmap->sbm_number);
+
+	if (bitmap->sbm_type == SBM_ROOT) {
+		SBM bucket;
+
+		slot = number >> BUCKET_BITS;
+
+		if ((int) slot < 0 || slot > bitmap->sbm_high_water ||
+			!(bucket = (SBM) bitmap->sbm_segments[slot]))
+			return FALSE;
+
+		relative = number & ((1 << BUCKET_BITS) - 1);
+		return SBM_test(bucket, relative);
+	}
+	else {
+		register BMS segment;
+		BUNCH test;
+		SSHORT bit, bunch;
+
+		slot = number >> SEGMENT_BITS;
+
+		if ((int) slot < 0 || slot > bitmap->sbm_high_water ||
+			!(segment = bitmap->sbm_segments[slot]))
+			return FALSE;
+
+		relative = number & ((1 << SEGMENT_BITS) - 1);
+		bunch =
+			(relative >> BUNCH_BITS) & ((1 << (SEGMENT_BITS - BUNCH_BITS)) -
+										1);
+
+		if (!(test = segment->bms_bits[bunch]))
+			return FALSE;
+
+		bit = relative & ((1 << BUNCH_BITS) - 1);
+
+		if (!(test & (1 << bit)))
+			return FALSE;
+
+		return TRUE;
+	}
+}
+
+
+SLONG SBM_size(SBM * bitmap)
+{
+/**************************************
+ *
+ *	S B M _ s i z e  
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns the number of "sbm" and "bms" structs are allocated
+ *	for this sparce bitmap.  (This is a measure of the memory
+ *      used for this sparce bitmap)
+ *
+ **************************************/
+	SBM *tail, vector, bucket;
+	BMS *node, segment;
+	USHORT i, j;
+	SLONG count;
+
+	vector = *bitmap;
+	if (!vector)
+		return 0;				/* not even the root sbm is allocated */
+
+	if (vector->sbm_state == SBM_EMPTY)
+		return 1;				/* only the the root sbm is allocated */
+
+	count = 1;					/* one for the root sbm */
+	for (i = 0, tail = (SBM *) vector->sbm_segments; i < vector->sbm_count;
+		 i++, tail++) {
+		bucket = *tail;
+		if (bucket) {
+			for (j = 0, node = bucket->sbm_segments;
+				 j < (USHORT) BUNCH_BUCKET; j++, node++) {
+				segment = *node;
+				if (segment)
+					count++;	/* one for the bms */
+			}
+			count++;			/* one for the bucket sbm */
+		}
+	}
+
+	return (count);
+
+}
+
+
+static void bucket_reset(register SBM bucket)
+{
+/**************************************
+ *
+ *	b u c k e t _ r e s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset a bucket and all its segments..
+ *
+ **************************************/
+	BMS *node, segment;
+	SSHORT i;
+	PLB pool;
+
+	if (!bucket)
+		return;
+
+	for (i = 0, node = bucket->sbm_segments; i < BUNCH_BUCKET; i++, node++)
+		if (segment = *node) {
+			pool = segment->bms_pool;
+			segment->bms_next = pool->plb_segments;
+			pool->plb_segments = segment;
+			*node = NULL;
+		}
+
+	pool = bucket->sbm_pool;
+	bucket->sbm_next = pool->plb_buckets;
+	pool->plb_buckets = bucket;
+}
+
+
+static void clear_bucket(register SBM bucket)
+{
+/**************************************
+ *
+ *	c l e a r _ b u c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear out a bit map bucket.
+ *
+ **************************************/
+	register BMS *p;
+	register SSHORT l;
+
+	bucket->sbm_next = NULL;
+	bucket->sbm_type = SBM_BUCKET;
+	bucket->sbm_state = SBM_EMPTY;
+	bucket->sbm_count = BUNCH_BUCKET;
+	bucket->sbm_used = 0;
+	bucket->sbm_high_water = 0;
+	bucket->sbm_number = 0;
+	p = bucket->sbm_segments;
+	l = BUNCH_BUCKET;
+
+	do {
+		*p = 0;
+		p++;
+	} while (--l);
+}
+
+
+static void clear_segment(register BMS segment)
+{
+/**************************************
+ *
+ *	c l e a r _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear out a used bit map segment.
+ *
+ **************************************/
+	register BUNCH *p;
+	register SSHORT l;
+
+	segment->bms_min = segment->bms_max = 0;
+	p = segment->bms_bits;
+	l = BUNCH_SEGMENT;
+
+	do {
+		*p = 0;
+		p++;
+	} while (--l);
+}
diff --git a/src/jrd/sbm.h b/src/jrd/sbm.h
new file mode 100644
index 0000000000..1505112512
--- /dev/null
+++ b/src/jrd/sbm.h
@@ -0,0 +1,80 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sbm.h
+ *	DESCRIPTION:	Sparse bit map block definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SBM_H_
+#define _JRD_SBM_H_
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+#define BUNCH_BITS	4
+#define BUNCH		SSHORT
+#else
+#define BUNCH_BITS	LOG2_BITS_PER_LONG
+#define BUNCH		SLONG
+#endif
+
+#define SEGMENT_BITS	10
+#define BITS_BUNCH	(1 << BUNCH_BITS)
+#define BITS_SEGMENT	(1 << SEGMENT_BITS)
+#define BUNCH_SEGMENT	BITS_SEGMENT / BITS_BUNCH
+
+#define BUCKET_BITS	15
+#define BUNCH_BUCKET	(1 << (BUCKET_BITS - SEGMENT_BITS))
+
+/* Sparse bit map */
+
+typedef struct sbm {
+	struct blk sbm_header;
+	struct sbm *sbm_next;
+	struct plb *sbm_pool;
+	UCHAR sbm_state;			/* State of bitmap */
+	UCHAR sbm_type;				/* Root or bucket */
+	USHORT sbm_count;			/* Slots allocated */
+	USHORT sbm_used;			/* Slots used */
+	USHORT sbm_high_water;		/* Maximum slot used */
+	SLONG sbm_number;			/* Value when singular */
+	struct bms *sbm_segments[1];
+} *SBM;
+
+/* States */
+
+#define	SBM_EMPTY	0
+#define SBM_SINGULAR	1
+#define SBM_PLURAL	2
+
+/* Types */
+
+#define SBM_BUCKET	0
+#define SBM_ROOT	1
+
+/* Bit map segment */
+
+typedef struct bms {
+	struct blk bms_header;
+	struct bms *bms_next;
+	struct plb *bms_pool;
+	SSHORT bms_min;				/* Minimum bit set in segment */
+	SSHORT bms_max;				/* Maximum bit set in segment */
+	BUNCH bms_bits[BUNCH_SEGMENT];
+} *BMS;
+
+#endif /* _JRD_SBM_H_ */
diff --git a/src/jrd/sbm_proto.h b/src/jrd/sbm_proto.h
new file mode 100644
index 0000000000..6b7eb73a93
--- /dev/null
+++ b/src/jrd/sbm_proto.h
@@ -0,0 +1,61 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sbm_proto.h
+ *	DESCRIPTION:	Prototype header file for sbm.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SBM_PROTO_H_
+#define _JRD_SBM_PROTO_H_
+
+#include "../jrd/sbm.h"
+
+#ifdef DEV_BUILD
+#include "../jrd/ib_stdio.h"
+#ifdef __cplusplus
+extern "C" {
+#endif
+extern void SBM_dump(IB_FILE *, register SBM);
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern struct sbm **SBM_and(register struct sbm **, register struct sbm **);
+extern int SBM_clear(register struct sbm *, SLONG);
+extern BOOLEAN SBM_equal(register SBM, register SBM);
+extern void SBM_init(void);
+extern int SBM_next(register struct sbm *, SLONG *, enum rse_get_mode);
+extern struct sbm **SBM_or(register struct sbm **, register struct sbm **);
+extern void SBM_release(struct sbm *);
+extern void SBM_reset(struct sbm **);
+extern void SBM_set(TDBB, struct sbm **, SLONG);
+extern int SBM_test(register struct sbm *, SLONG);
+extern SLONG SBM_size(struct sbm **);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_SBM_PROTO_H_ */
diff --git a/src/jrd/sch.cpp b/src/jrd/sch.cpp
new file mode 100644
index 0000000000..109341087f
--- /dev/null
+++ b/src/jrd/sch.cpp
@@ -0,0 +1,1064 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sch.c
+ *	DESCRIPTION:	Voluntary thread scheduler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include "../jrd/common.h"
+#include "../jrd/thd.h"
+#include "../jrd/isc.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/iberr_proto.h"
+#include "../jrd/gdsassert.h"
+
+#ifdef	WIN_NT
+#include <windows.h>
+#endif
+
+
+extern "C" {
+
+
+/* must be careful with alignment on structures like this that are
+   not run through the ALL routine */
+
+typedef struct thread {
+	struct thread *thread_next;	/* Next thread to be scheduled */
+	struct thread *thread_prior;	/* Prior thread */
+	EVENT_T thread_stall[1];	/* Generic event to stall thread */
+	SLONG thread_id;			/* Current thread id */
+	USHORT thread_count;		/* AST disable count */
+	USHORT thread_flags;		/* Flags */
+} *THREAD;
+
+#define THREAD_hiber		1	/* Thread is hibernating */
+#define THREAD_ast_disabled	2	/* Disable AST delivery */
+#define THREAD_ast_active	4	/* Disable AST preemption while AST active */
+#define	THREAD_ast_pending	8	/* AST waiting to be delivered */
+
+static THREAD alloc_thread(void);
+static BOOLEAN ast_enable(void);
+static void ast_disable(void);
+static void cleanup(void *);
+static void mutex_bugcheck(TEXT *, int);
+static BOOLEAN schedule(void);
+static BOOLEAN schedule_active(int);
+static void stall(THREAD);
+static void stall_ast(THREAD);
+
+static THREAD free_threads = NULL;
+static THREAD active_thread = NULL;
+static THREAD ast_thread = NULL;
+static MUTX_T thread_mutex[1];
+static USHORT init_flag = FALSE, multi_threaded = FALSE, enabled = FALSE;
+
+#ifdef NETWARE_386
+static USHORT yield_count = 0;
+#define YIELD_LIMIT      10
+#define ABORT	exit (FINI_ERROR)
+#else
+#define ABORT	abort()
+#endif
+
+
+#ifdef VMS
+int API_ROUTINE gds__ast_active(void)
+{
+/**************************************
+ *
+ *	g d s _ $ a s t _ a c t i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	An asynchronous operation has completed, wake somebody
+ *	up, if necessary.
+ *
+ **************************************/
+
+	return THREAD_ast_active();
+}
+
+
+void API_ROUTINE gds__completion_ast(int *arg)
+{
+/**************************************
+ *
+ *	g d s _ $ c o m p l e t i o n _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	An asynchronous operation has completed, wake somebody
+ *	up, if necessary.
+ *
+ **************************************/
+
+	THREAD_completion_ast();
+	sys$wake(0, 0);
+}
+#endif
+
+
+int API_ROUTINE gds__thread_enable(int enable_flag)
+{
+/**************************************
+ *
+ *	g d s _ $ t h r e a d _ e n a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check-in with thread traffic cop.
+ *
+ **************************************/
+
+	if (enable_flag) {
+		enabled = TRUE;
+		SCH_init();
+		if (enable_flag < 0 && !multi_threaded) {
+			multi_threaded = TRUE;
+			THD_INIT;
+		}
+	}
+
+	return enabled;
+}
+
+
+void API_ROUTINE gds__thread_enter(void)
+{
+/**************************************
+ *
+ *	g d s _ $ t h r e a d _ e n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check-in with thread traffic cop.
+ *
+ **************************************/
+
+	SCH_enter();
+}
+
+
+void API_ROUTINE gds__thread_exit(void)
+{
+/**************************************
+ *
+ *	g d s _ $ t h r e a d _ e x i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check-out with thread traffic cop.
+ *
+ **************************************/
+
+	SCH_exit();
+}
+
+
+#ifdef VMS
+int API_ROUTINE gds__thread_wait(FPTR_INT entrypoint, SLONG arg)
+{
+/**************************************
+ *
+ *	g d s _ $ t h r e a d _ w a i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stall a thread with a callback to determine runnability.
+ *
+ **************************************/
+
+	return thread_wait(entrypoint, arg);
+}
+#endif
+
+
+void SCH_abort(void)
+{
+/**************************************
+ *
+ *	S C H _ a b o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to abort the current thread.  If the thread is active,
+ *	unlink it.
+ *
+ **************************************/
+	THREAD *ptr, thread;
+	SLONG id;
+	int mutex_state;
+
+/* If threading isn't active, don't sweat it */
+
+	if (!active_thread)
+		return;
+
+/* See if we can find thread.  If not, don't worry about it */
+
+	id = THD_get_thread_id();
+	for (ptr = &active_thread; thread = *ptr; ptr = &thread->thread_next) {
+		if (thread->thread_id == id)
+			break;
+		if (thread->thread_next == active_thread)
+			return;
+	}
+
+/* If we're the active thread, do a normal thread exit */
+
+	if (thread == active_thread) {
+		SCH_exit();
+		return;
+	}
+
+/* We're on the list but not active.  Remove from list */
+
+	if (mutex_state = THD_mutex_lock(thread_mutex))
+		mutex_bugcheck("mutex lock", mutex_state);
+	thread->thread_prior->thread_next = thread->thread_next;
+	thread->thread_next->thread_prior = thread->thread_prior;
+	thread->thread_next = free_threads;
+	free_threads = thread;
+	if (mutex_state = THD_mutex_unlock(thread_mutex))
+		mutex_bugcheck("mutex unlock", mutex_state);
+}
+
+
+void SCH_ast(enum ast_t action)
+{
+/**************************************
+ *
+ *	S C H _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Control AST delivery for threaded platforms.
+ *	In particular, make AST delivery non-preemptible
+ *	to avoid nasty race conditions.
+ *
+ *	In case you're wondering: AST = Asynchronous System Trap
+ *
+ **************************************/
+	int mutex_state;
+	THREAD thread;
+
+	if (!ast_thread && !(action == AST_alloc || action == AST_disable ||
+						 action == AST_enable)) {
+		/* Better be an AST thread before we do anything to it! */
+		assert(FALSE);
+		return;
+	}
+
+	if (ast_thread && action == AST_check)
+		if (!(ast_thread->thread_flags & THREAD_ast_pending) ||
+			ast_thread->thread_count > 1)
+			return;
+
+	if (!init_flag)
+		SCH_init();
+
+	if (mutex_state = THD_mutex_lock(thread_mutex))
+		mutex_bugcheck("mutex lock", mutex_state);
+
+	switch (action) {
+		/* Check into thread scheduler as AST thread */
+
+	case AST_alloc:
+		ast_thread = alloc_thread();
+		ast_thread->thread_flags = THREAD_ast_disabled;
+		ast_thread->thread_prior = ast_thread->thread_next = ast_thread;
+		break;
+
+	case AST_init:
+		ast_thread->thread_id = THD_get_thread_id();
+		break;
+
+		/* Check out of thread scheduler as AST thread */
+
+	case AST_fini:
+		ast_thread->thread_next = free_threads;
+		free_threads = ast_thread;
+		ast_thread = NULL;
+		break;
+
+		/* Disable AST delivery if not an AST thread */
+
+	case AST_disable:
+		ast_disable();
+		break;
+
+		/* Reenable AST delivery if not an AST thread */
+
+	case AST_enable:
+		ast_enable();
+		break;
+
+		/* Active thread allows a pending AST to be delivered
+		   and waits */
+
+	case AST_check:
+		if (ast_enable())
+			stall(active_thread);
+		else
+			ast_disable();
+		break;
+
+		/* Request AST delivery and prevent thread scheduling */
+
+	case AST_enter:
+		if (ast_thread->thread_flags & THREAD_ast_disabled) {
+			ast_thread->thread_flags |= THREAD_ast_pending;
+			stall_ast(ast_thread);
+		}
+		ast_thread->thread_flags |= THREAD_ast_active;
+		break;
+
+		/* AST delivery complete; resume thread scheduling */
+
+	case AST_exit:
+		ast_thread->thread_flags &= ~(THREAD_ast_active | THREAD_ast_pending);
+		if (active_thread)
+			ISC_event_post(active_thread->thread_stall);
+
+		/* Post non-active threads that have requested AST disabling */
+
+		for (thread = ast_thread->thread_next; thread != ast_thread;
+			 thread =
+			 thread->thread_next) ISC_event_post(thread->thread_stall);
+		break;
+	}
+
+	if (mutex_state = THD_mutex_unlock(thread_mutex))
+		mutex_bugcheck("mutex unlock", mutex_state);
+}
+
+
+THREAD SCH_current_thread(void)
+{
+/**************************************
+ *
+ *	S C H _ c u r r e n t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return id of current thread.  If scheduling is not active,
+ *	return NULL.
+ *
+ **************************************/
+
+	return active_thread;
+}
+
+
+void SCH_enter(void)
+{
+/**************************************
+ *
+ *	S C H _ e n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	A thread wants to enter the access method and submit to our scheduling.
+ *	Humor him.
+ *
+ **************************************/
+	THREAD thread, prior;
+	int mutex_state;
+
+/* Special case single thread case */
+
+	if (!multi_threaded) {
+		if (active_thread || ast_thread) {
+			multi_threaded = TRUE;
+		} else if (free_threads) {
+			thread = active_thread = free_threads;
+			free_threads = NULL;
+			thread->thread_next = thread->thread_prior = thread;
+			thread->thread_flags = 0;
+			thread->thread_id = THD_get_thread_id();
+			return;
+		}
+	}
+
+	if (!init_flag) {
+		SCH_init();
+	}
+
+/* Get mutex on scheduler data structures to prevent tragic misunderstandings */
+
+	if (mutex_state = THD_mutex_lock(thread_mutex)) {
+		mutex_bugcheck("mutex lock", mutex_state);
+	}
+
+	thread = alloc_thread();
+	thread->thread_id = THD_get_thread_id();
+
+/* Link thread block into circular list of active threads */
+
+	if (active_thread)
+	{
+		/* The calling thread should NOT be the active_thread 
+		   This is to prevent deadlock by the same thread */
+		assert(thread->thread_id != active_thread->thread_id);
+
+		thread->thread_next = active_thread;
+		thread->thread_prior = prior = active_thread->thread_prior;
+		active_thread->thread_prior = thread;
+		prior->thread_next = thread;
+	}
+	else
+	{
+		thread->thread_next = thread->thread_prior = thread;
+		active_thread = thread;
+	}
+
+	if (active_thread->thread_flags & THREAD_hiber) {
+		schedule();
+	}
+
+	stall(thread);
+	if (mutex_state = THD_mutex_unlock(thread_mutex)) {
+		mutex_bugcheck("mutex unlock", mutex_state);
+	}
+}
+
+
+void SCH_exit(void)
+{
+/**************************************
+ *
+ *	S C H _ e x i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Thread is done in access method, remove data structure from
+ *	scheduler, and release thread block.
+ *
+ **************************************/
+	THREAD thread, prior, next;
+	int mutex_state;
+
+	SCH_validate();
+
+	if (!multi_threaded && !ast_thread) {
+		free_threads = active_thread;
+		active_thread = NULL;
+		free_threads->thread_next = NULL;
+		return;
+	}
+
+	if (mutex_state = THD_mutex_lock(thread_mutex))
+		mutex_bugcheck("mutex lock", mutex_state);
+
+	ast_enable();				/* Reenable AST delivery */
+
+	thread = active_thread;
+
+	if (thread == thread->thread_next)
+		active_thread = NULL;
+	else {
+		next = thread->thread_next;
+		active_thread = prior = thread->thread_prior;
+		prior->thread_next = next;
+		next->thread_prior = prior;
+	}
+
+	thread->thread_next = free_threads;
+	free_threads = thread;
+	schedule();
+
+	if (mutex_state = THD_mutex_unlock(thread_mutex))
+		mutex_bugcheck("mutex unlock", mutex_state);
+}
+
+
+void SCH_hiber(void)
+{
+/**************************************
+ *
+ *	S C H _ h i b e r 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Go to sleep until woken by another thread.  See also
+ *	SCH_wake.
+ *
+ **************************************/
+
+	schedule_active(TRUE);
+}
+
+
+void SCH_init(void)
+{
+/**************************************
+ *
+ *	S C H _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the thread scheduler.
+ *
+ **************************************/
+	int mutex_state;
+
+	if (init_flag)
+		return;
+
+	init_flag = TRUE;
+	gds__register_cleanup(cleanup, 0);
+
+	if (mutex_state = THD_mutex_init(thread_mutex))
+		mutex_bugcheck("mutex init", mutex_state);
+}
+
+
+int SCH_schedule(void)
+{
+/**************************************
+ *
+ *	S C H _ s c h e d u l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Voluntarily relinquish control so that others may run.
+ *	If a context switch actually happened, return TRUE.
+ *
+ **************************************/
+
+	return schedule_active(FALSE);
+}
+
+
+BOOLEAN SCH_thread_enter_check(void)
+{
+/**************************************
+ *
+ *	S C H _ t h r e a d _ e n t e r _ c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check if thread is active thread, if so return TRUE
+ * else return FALSE.
+ *
+ **************************************/
+
+/* if active thread is not null and thread_id matches the we are the
+   active thread */
+	if ((active_thread) && (active_thread->thread_id == THD_get_thread_id()))
+		return (TRUE);
+
+	return (FALSE);
+
+}
+
+
+BOOLEAN SCH_validate(void)
+{
+/**************************************
+ *
+ *	S C H _ v a l i d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check integrity of thread system (assume thread is entered).
+ *
+ **************************************/
+
+	if (!init_flag || !active_thread) {
+		gds__log("SCH_validate -- not entered");
+		if (getenv("ISC_PUNT"))
+			ABORT;
+		return FALSE;
+	}
+
+	if (!multi_threaded)
+		return TRUE;
+
+	if (active_thread->thread_id != THD_get_thread_id()) {
+		gds__log("SCH_validate -- wrong thread");
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+void SCH_wake(THREAD thread)
+{
+/**************************************
+ *
+ *	S C H _ w a k e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Take thread out of hibernation.
+ *
+ **************************************/
+
+	thread->thread_flags &= ~THREAD_hiber;
+	ISC_event_post(thread->thread_stall);
+}
+
+
+static THREAD alloc_thread(void)
+{
+/**************************************
+ *
+ *	a l l o c _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a thread block.
+ *
+ **************************************/
+	THREAD thread;
+
+/* Find a useable thread block.  If there isn't one, allocate one */
+
+	if (thread = free_threads)
+		free_threads = thread->thread_next;
+	else {
+		thread = (THREAD) gds__alloc((SLONG) sizeof(struct thread));
+		/* FREE: unknown */
+		if (!thread)			/* NOMEM: bugcheck */
+			mutex_bugcheck("Out of memory", 0);	/* no real error handling */
+#ifdef DEBUG_GDS_ALLOC
+		/* There is one thread structure allocated per thread, and this
+		 * is never freed except by process exit
+		 */
+		gds_alloc_flag_unfreed((void *) thread);
+#endif
+		ISC_event_init(thread->thread_stall, 0, 0);
+	}
+
+	thread->thread_flags = thread->thread_count = 0;
+	return thread;
+}
+
+
+static BOOLEAN ast_enable(void)
+{
+/**************************************
+ *
+ *	a s t _ e n a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enables AST delivery and returns
+ *	TRUE is an AST is deliverable.
+ *
+ **************************************/
+
+	if (!ast_thread)
+		return FALSE;
+
+	if (ast_thread->thread_flags & THREAD_ast_active &&
+		ast_thread->thread_id == THD_get_thread_id())
+		return FALSE;
+
+	if (!ast_thread->thread_count || !--ast_thread->thread_count) {
+		ast_thread->thread_flags &= ~THREAD_ast_disabled;
+		if (ast_thread->thread_flags & THREAD_ast_pending) {
+			ast_thread->thread_flags |= THREAD_ast_active;
+			ISC_event_post(ast_thread->thread_stall);
+			return TRUE;
+		}
+	}
+
+	return FALSE;
+}
+
+
+static void ast_disable(void)
+{
+/**************************************
+ *
+ *	a s t _ d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disables AST delivery and waits
+ *	until an active AST completes
+ *	before returning.
+ *
+ **************************************/
+	THREAD thread;
+
+	if (!ast_thread)
+		return;
+
+	if (ast_thread->thread_flags & THREAD_ast_active) {
+		if (ast_thread->thread_id == THD_get_thread_id())
+			return;
+		else {
+			if (active_thread
+				&& active_thread->thread_id == THD_get_thread_id()) {
+				stall(active_thread);
+				return;
+			}
+			else {
+				thread = alloc_thread();
+				stall_ast(thread);
+				thread->thread_next = free_threads;
+				free_threads = thread;
+			}
+		}
+	}
+
+	ast_thread->thread_flags |= THREAD_ast_disabled;
+	++ast_thread->thread_count;
+}
+
+
+static void cleanup(void *arg)
+{
+/**************************************
+ *
+ *	c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Exit handler for image exit.
+ *
+ **************************************/
+
+#ifdef SUPERCLIENT
+	THREAD temp_thread;
+#endif
+
+	if (init_flag == FALSE)
+		return;
+
+/* this is added to make sure that we release the memory
+ * we have alloacted for the thread event handler through
+ * ISC_event_handle () (CreateEvent) */
+
+#ifdef SUPERCLIENT
+/* use locks */
+	THD_mutex_lock(thread_mutex);
+
+	if (init_flag == FALSE)
+		return;
+
+/* loop through the list of active threads and free the events */
+	if (temp_thread = active_thread) {
+		/* reach to the starting of the list */
+		while (temp_thread != temp_thread->thread_prior)
+			temp_thread = temp_thread->thread_prior;
+		/* now we are at the begining of the list. Now start freeing the
+		 * EVENT structures and move to the next */
+		do {
+			ISC_event_fini(temp_thread->thread_stall);
+			/* the thread structures are freed as a part of the 
+			 * gds_alloc cleanup, so do not worry about them here
+			 */
+		}
+		while (temp_thread->thread_next != temp_thread
+			   && (temp_thread = temp_thread->thread_next));
+
+	}
+
+/* loop through the list of free threads and free the events */
+	if (temp_thread = free_threads) {
+		/* reach to the starting of the list */
+		while (temp_thread != temp_thread->thread_prior)
+			temp_thread = temp_thread->thread_prior;
+		/* now we are at the begining of the list. Now start freeing the
+		 * EVENT structures and move to the next */
+		do {
+			ISC_event_fini(temp_thread->thread_stall);
+			/* the thread structures are freed as a part of the 
+			 * gds_alloc cleanup, so do not worry about them here
+			 */
+		}
+		while (temp_thread->thread_next != temp_thread
+			   && (temp_thread = temp_thread->thread_next));
+
+
+	}
+
+	THD_mutex_unlock(thread_mutex);
+
+/* add the the destroy for the thread_mutex */
+	THD_mutex_destroy(thread_mutex);
+#endif /* SUPERCLIENT */
+
+	init_flag = FALSE;
+}
+
+
+static void mutex_bugcheck(TEXT * string, int mutex_state)
+{
+/**************************************
+ *
+ *	m u t e x _ b u g c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	There has been a bugcheck during a mutex operation.
+ *	Post the bugcheck.
+ *
+ **************************************/
+	TEXT msg[128];
+
+	sprintf(msg, "SCH: %s error, status = %d", string, mutex_state);
+	gds__log(msg);
+
+#ifdef NETWARE_386
+	ConsolePrintf("%s\n", msg);
+#else
+	ib_fprintf(ib_stderr, "%s\n", msg);
+#endif
+
+	ABORT;
+}
+
+
+static BOOLEAN schedule(void)
+{
+/**************************************
+ *
+ *	s c h e d u l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Loop thru active thread to find the next runable task.  If we find one,
+ *	set "active_tasks" to point to it and return TRUE.  Otherwise simply
+ *	return FALSE.
+ *
+ **************************************/
+	THREAD thread;
+
+#ifdef NETWARE_386
+/* Be a good citizen, yield CPU periodically */
+	yield_count++;
+	if (yield_count > YIELD_LIMIT) {
+		yield_count = 0;
+		ThreadSwitch();
+	}
+#endif
+
+	if (!active_thread)
+		return FALSE;
+
+	thread = active_thread;
+
+	for (;;) {
+		thread = thread->thread_next;
+		if (!(thread->thread_flags & THREAD_hiber))
+			break;
+		if (thread == active_thread)
+			return FALSE;
+	}
+
+	active_thread = thread;
+	ISC_event_post(active_thread->thread_stall);
+
+	return TRUE;
+}
+
+
+static BOOLEAN schedule_active(int hiber_flag)
+{
+/**************************************
+ *
+ *	s c h e d u l e _ a c t i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Voluntarily relinquish control so that others may run.
+ *	If a context switch actually happened, return TRUE.
+ *
+ **************************************/
+	THREAD thread;
+	int mutex_state;
+	BOOLEAN ret;
+
+	if (!active_thread || !multi_threaded)
+		return FALSE;
+
+	if (mutex_state = THD_mutex_lock(thread_mutex))
+		mutex_bugcheck("mutex lock", mutex_state);
+
+/* Take this opportunity to check for pending ASTs
+   and deliver them. */
+
+	if (ast_enable())
+		stall(active_thread);
+	else
+		ast_disable();
+
+	if (hiber_flag)
+		active_thread->thread_flags |= THREAD_hiber;
+	thread = active_thread;
+	schedule();
+	if (thread == active_thread && !(thread->thread_flags & THREAD_hiber))
+		ret = FALSE;
+	else {
+		ast_enable();
+		stall(thread);
+		ret = TRUE;
+	}
+
+	if (mutex_state = THD_mutex_unlock(thread_mutex))
+		mutex_bugcheck("mutex unlock", mutex_state);
+
+	return ret;
+}
+
+
+static void stall(THREAD thread)
+{
+/**************************************
+ *
+ *	s t a l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stall until our thread is made active.
+ *
+ **************************************/
+	SLONG value;
+	EVENT ptr;
+	int mutex_state;
+
+	if (thread != active_thread || thread->thread_flags & THREAD_hiber ||
+		(ast_thread && ast_thread->thread_flags & THREAD_ast_active))
+		for (;;) {
+			value = ISC_event_clear(thread->thread_stall);
+			if (thread == active_thread
+				&& !(thread->thread_flags & THREAD_hiber) && (!ast_thread
+															  ||
+															  !
+															  (ast_thread->thread_flags
+															   &
+															   THREAD_ast_active)))
+					break;
+			if (mutex_state = THD_mutex_unlock(thread_mutex))
+				mutex_bugcheck("mutex unlock", mutex_state);
+			ptr = thread->thread_stall;
+			ISC_event_wait(1, &ptr, &value, 0, 0, 0);
+			if (mutex_state = THD_mutex_lock(thread_mutex))
+				mutex_bugcheck("mutex lock", mutex_state);
+		}
+
+/* Explicitly disable AST delivery for active thread */
+
+	ast_disable();
+}
+
+
+static void stall_ast(THREAD thread)
+{
+/**************************************
+ *
+ *	s t a l l _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	If this the AST thread then stall until AST delivery
+ *	is reenabled. Otherwise, this is a normal thread (though
+ *	not the active thread) and it wants to wait until
+ *	AST is complete.
+ *
+ **************************************/
+	SLONG value;
+	EVENT ptr;
+	int mutex_state;
+
+	if (thread == ast_thread) {
+		if (ast_thread->thread_flags & THREAD_ast_disabled)
+			for (;;) {
+				value = ISC_event_clear(thread->thread_stall);
+				if (!(ast_thread->thread_flags & THREAD_ast_disabled))
+					break;
+				if (mutex_state = THD_mutex_unlock(thread_mutex))
+					mutex_bugcheck("mutex unlock", mutex_state);
+				ptr = thread->thread_stall;
+				ISC_event_wait(1, &ptr, &value, 0, 0, 0);
+				if (mutex_state = THD_mutex_lock(thread_mutex))
+					mutex_bugcheck("mutex lock", mutex_state);
+			}
+	}
+	else {
+		/* Link thread block into ast thread queue */
+
+		thread->thread_next = ast_thread->thread_next;
+		thread->thread_prior = ast_thread;
+		ast_thread->thread_next->thread_prior = thread;
+		ast_thread->thread_next = thread;
+
+		/* Wait for AST delivery to complete */
+
+		if (ast_thread->thread_flags & THREAD_ast_active)
+			for (;;) {
+				value = ISC_event_clear(thread->thread_stall);
+				if (!(ast_thread->thread_flags & THREAD_ast_active))
+					break;
+				if (mutex_state = THD_mutex_unlock(thread_mutex))
+					mutex_bugcheck("mutex unlock", mutex_state);
+				ptr = thread->thread_stall;
+				ISC_event_wait(1, &ptr, &value, 0, 0, 0);
+				if (mutex_state = THD_mutex_lock(thread_mutex))
+					mutex_bugcheck("mutex lock", mutex_state);
+			}
+		/* Unlink thread block from ast thread queue */
+
+		thread->thread_prior->thread_next = thread->thread_next;
+		thread->thread_next->thread_prior = thread->thread_prior;
+	}
+}
+
+
+} // extern "C"
diff --git a/src/jrd/sch_proto.h b/src/jrd/sch_proto.h
new file mode 100644
index 0000000000..44c6413a90
--- /dev/null
+++ b/src/jrd/sch_proto.h
@@ -0,0 +1,57 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		sch_proto.h
+ *	DESCRIPTION:	Prototype Header file for sch.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SCH_PROTO_H_
+#define _JRD_SCH_PROTO_H_
+
+#include "../jrd/isc.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int API_ROUTINE gds__thread_enable(int);
+extern void API_ROUTINE gds__thread_enter(void);
+extern void API_ROUTINE gds__thread_exit(void);
+extern void SCH_abort(void);
+extern void SCH_ast(enum ast_t);
+extern struct thread *SCH_current_thread(void);
+extern void SCH_enter(void);
+extern void SCH_exit(void);
+extern void SCH_hiber(void);
+extern void SCH_init(void);
+extern int SCH_schedule(void);
+extern BOOLEAN SCH_thread_enter_check(void);
+extern BOOLEAN SCH_validate(void);
+extern void SCH_wake(struct thread *);
+#ifdef VMS
+extern int API_ROUTINE gds__ast_active(void);
+extern void API_ROUTINE gds__completion_ast(void);
+extern int API_ROUTINE gds__thread_wait(int (*)(), SLONG);
+#endif /* VMS  */
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_SCH_PROTO_H_ */
diff --git a/src/jrd/scl.e b/src/jrd/scl.e
new file mode 100644
index 0000000000..4daca72bfe
--- /dev/null
+++ b/src/jrd/scl.e
@@ -0,0 +1,1395 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		scl.e
+ *	DESCRIPTION:	Security class handler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include <stdlib.h>
+#include <ctype.h>
+#include "../jrd/ibsetjmp.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/ods.h"
+#include "../jrd/scl.h"
+#include "../jrd/pwd.h"
+#include "../jrd/acl.h"
+#include "../jrd/blb.h"
+#include "../jrd/irq.h"
+#include "../jrd/obj.h"
+#include "../jrd/req.h"
+#include "../jrd/tra.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/enc_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/pwd_proto.h"
+#include "../jrd/grant_proto.h"
+#include "../jrd/scl_proto.h"
+#include "../jrd/thd_proto.h"
+
+#ifdef VMS
+#define UIC_BASE	8
+#else
+#define UIC_BASE	10
+#endif
+
+#define	BLOB_BUFFER_SIZE	4096	/* used to read in acl blob */
+
+#define CHECK_ACL_BOUND(to, start, length_ptr, check_length)\
+          {\
+          if (((start)->str_data + *length_ptr) < (to + check_length))  {start = GRANT_realloc_acl( start, &to, length_ptr);} \
+          }
+#define CHECK_AND_MOVE(to, from, start, length_ptr) {CHECK_ACL_BOUND (to, start, length_ptr, 1); *(to)++ = from;}
+#define CHECK_MOVE_INCR(to, from, start, length_ptr) {CHECK_ACL_BOUND (to, start, length_ptr, 1); *(to)++ = (from)++;}
+
+
+DATABASE DB = FILENAME "ODS.RDB";
+
+static BOOLEAN check_hex(CONST TEXT*, USHORT);
+static BOOLEAN check_number(CONST TEXT*, USHORT);
+static BOOLEAN check_user_group(CONST TEXT*, USHORT, STR*, ULONG*);
+static BOOLEAN check_string(CONST TEXT*, CONST TEXT*);
+static SLONG compute_access(TDBB, SCL, REL, CONST TEXT*, CONST TEXT*);
+static TEXT *save_string(TEXT*, TEXT**);
+static SLONG walk_acl(TDBB, CONST TEXT*, REL, CONST TEXT*, CONST TEXT*, STR*, ULONG*);
+
+typedef struct {
+	USHORT p_names_priv;
+	USHORT p_names_acl;
+	CONST TEXT *p_names_string;
+} P_NAMES;
+
+static CONST P_NAMES p_names[] =
+{
+	SCL_protect, priv_protect, "protect",
+	SCL_control, priv_control, "control",
+	SCL_delete, priv_delete, "delete",
+	SCL_sql_insert, priv_sql_insert, "insert/write",
+	SCL_sql_update, priv_sql_update, "update/write",
+	SCL_sql_delete, priv_sql_delete, "delete/write",
+	SCL_write, priv_write, "write",
+	SCL_read, priv_read, "read/select",
+	SCL_grant, priv_grant, "grant",
+	SCL_sql_references, priv_sql_references, "references",
+	SCL_execute, priv_execute, "execute",
+	0, 0, ""
+};
+
+
+void SCL_check_access(SCL			s_class,
+					  REL			view,
+					  CONST TEXT*	trg_name,
+					  CONST TEXT*	prc_name,
+					  USHORT		mask,
+					  CONST TEXT*	type,
+					  CONST TEXT*	name)
+{
+/**************************************
+ *
+ *	S C L _ c h e c k _ a c c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check security class for desired permission.  Check first that
+ *	the desired access has been granted to the database then to the
+ *	object in question.
+ *
+ **************************************/
+	TDBB			tdbb;
+	CONST P_NAMES*	names;
+	SCL				att_class;
+	ATT				attachment;
+
+	tdbb = GET_THREAD_DATA;
+
+	if (s_class && (s_class->scl_flags & SCL_corrupt))
+	{
+		ERR_post(gds__no_priv, gds_arg_string, "(ACL unrecognized)",
+				 gds_arg_string, "security_class",
+				 gds_arg_string, s_class->scl_name,
+				 0);
+	}
+
+	attachment = tdbb->tdbb_attachment;
+
+	if ((att_class = attachment->att_security_class) &&
+		!(att_class->scl_flags & mask))
+	{
+		type = "DATABASE";
+		name = "";
+	}
+	else
+	{
+		if (!s_class ||
+			(mask & s_class->scl_flags) ||
+			((view || trg_name || prc_name) &&
+			 (compute_access(tdbb, s_class, view, trg_name, prc_name) & mask)))
+		{
+			return;
+		}
+	}
+
+/*
+** allow the database owner to back up a database even if he does not have
+** read access to all the tables in the database
+*/
+	if ((attachment->att_flags & ATT_gbak_attachment) && (mask & SCL_read))
+	{
+		return;
+	}
+
+	for (names = p_names; names->p_names_priv; names++)
+	{
+		if (names->p_names_priv & mask)
+		{
+			break;
+		}
+	}
+
+	ERR_post(gds__no_priv,
+			gds_arg_string, names->p_names_string,
+			gds_arg_string, type,
+			gds_arg_string, ERR_cstring(name),
+			0);
+}
+
+
+void SCL_check_index( TDBB tdbb, TEXT * index_name, USHORT mask)
+{
+/******************************************************
+ *
+ *	S C L _ c h e c k _ i n d e x 
+ *
+ ******************************************************
+ *
+ * Functional description
+ *	Given a index name (as a TEXT), check for a 
+ *      set of privileges on the table that the index is on and 
+ *      on the fields involved in that index.  
+ *
+ *******************************************************/
+	VOLATILE BLK request;
+	SCL s_class, default_s_class;
+	TEXT reln_name[32];
+	DBB dbb;
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	s_class = default_s_class = NULL;
+
+/* no security to check for if the index is not yet created */
+
+	if (!index_name || !*index_name)
+		return;
+
+	request = NULL;
+
+/* No need to cache this request handle, it's only used when
+   new constraints are created */
+
+	FOR(REQUEST_HANDLE request) IND IN RDB$INDICES
+		CROSS REL IN RDB$RELATIONS
+			OVER RDB$RELATION_NAME
+			WITH IND.RDB$INDEX_NAME EQ index_name
+
+        strcpy(reln_name, REL.RDB$RELATION_NAME);
+		if (!REL.RDB$SECURITY_CLASS.NULL)
+			s_class = SCL_get_class(REL.RDB$SECURITY_CLASS);
+		if (!REL.RDB$DEFAULT_CLASS.NULL)
+			default_s_class = SCL_get_class(REL.RDB$DEFAULT_CLASS);
+	END_FOR;
+
+	CMP_release(tdbb, (REQ) request);
+
+/* check if the relation exixts. It may not have been created yet.
+   Just return in that case. */
+
+	if (!reln_name || !*reln_name)
+		return;
+
+	SCL_check_access(s_class, NULL, NULL, NULL, mask, "TABLE", reln_name);
+
+	request = NULL;
+
+/* set up the setjmp mechanism, so that we can release the request
+   in case of error in SCL_check_access */
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR*) old_env;
+		if (request)
+			CMP_release(tdbb, (REQ) request);
+		LONGJMP(*(JMP_BUF*)&tdbb->tdbb_setjmp, (int) tdbb->tdbb_status_vector[1]);
+	}
+
+
+/* check if the field used in the index has the appropriate
+   permission. If the field in question does not have a security class
+   defined, then the default security class for the table applies for that
+   field. */
+
+/* No need to cache this request handle, it's only used when
+   new constraints are created */
+
+	FOR(REQUEST_HANDLE request) ISEG IN RDB$INDEX_SEGMENTS
+		CROSS RF IN RDB$RELATION_FIELDS
+			OVER RDB$FIELD_NAME
+			WITH RF.RDB$RELATION_NAME EQ reln_name
+			AND ISEG.RDB$INDEX_NAME EQ index_name
+
+        if (!RF.RDB$SECURITY_CLASS.NULL) {
+			s_class = SCL_get_class(RF.RDB$SECURITY_CLASS);
+			SCL_check_access(s_class, NULL, NULL, NULL, mask,
+							 "COLUMN", RF.RDB$FIELD_NAME);
+		}
+		else
+			  SCL_check_access(default_s_class, NULL, NULL, NULL, mask,
+							   "COLUMN", RF.RDB$FIELD_NAME);
+
+	END_FOR;
+
+	CMP_release(tdbb, (REQ) request);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void SCL_check_procedure( DSC * dsc_name, USHORT mask)
+{
+/**************************************
+ *
+ *	S C L _ c h e c k _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a procedure name, check for a set of privileges.  The
+ *	procedure in question may or may not have been created, let alone
+ *	scanned.  This is used exclusively for meta-data operations.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	SCL s_class;
+	TEXT *p, *q, *endp, *endq, name[32];
+
+	tdbb = GET_THREAD_DATA;
+
+/* Get the name in CSTRING format, ending on NULL or SPACE */
+
+	assert(dsc_name->dsc_dtype == dtype_text);
+
+	for (p = name, endp = name + sizeof(name) - 1,
+		 q = dsc_name->dsc_address, endq = q + dsc_name->dsc_length;
+		 q < endq && p < endp && *q && *q != ' ';)
+		*p++ = *q++;
+	*p = 0;
+
+	dbb = tdbb->tdbb_database;
+
+	s_class = NULL;
+
+	request = (BLK) CMP_find_request(tdbb, irq_p_security, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request) PRC IN RDB$PROCEDURES WITH
+		PRC.RDB$PROCEDURE_NAME EQ name 
+
+        if (!REQUEST(irq_p_security))
+			REQUEST(irq_p_security) = request;
+
+		if (!PRC.RDB$SECURITY_CLASS.NULL)
+			s_class = SCL_get_class(PRC.RDB$SECURITY_CLASS);
+	END_FOR;
+
+	if (!REQUEST(irq_p_security))
+		REQUEST(irq_p_security) = request;
+
+	SCL_check_access(s_class, NULL, NULL, name, mask, "PROCEDURE", name);
+}
+
+
+void SCL_check_relation( DSC * dsc_name, USHORT mask)
+{
+/**************************************
+ *
+ *	S C L _ c h e c k _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a relation name, check for a set of privileges.  The
+ *	relation in question may or may not have been created, let alone
+ *	scanned.  This is used exclusively for meta-data operations.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	BLK request;
+	SCL s_class;
+	TEXT *p, *q, *endp, *endq, name[32];
+
+	tdbb = GET_THREAD_DATA;
+
+/* Get the name in CSTRING format, ending on NULL or SPACE */
+
+	assert(dsc_name->dsc_dtype == dtype_text);
+
+	for (p = name, endp = name + sizeof(name) - 1,
+		 q = dsc_name->dsc_address, endq = q + dsc_name->dsc_length;
+		 q < endq && p < endp && *q && *q != ' ';)
+		*p++ = *q++;
+	*p = 0;
+
+	dbb = tdbb->tdbb_database;
+
+	s_class = NULL;
+
+	request = (BLK) CMP_find_request(tdbb, irq_v_security, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request) REL IN RDB$RELATIONS WITH
+		REL.RDB$RELATION_NAME EQ name 
+
+        if (!REQUEST(irq_v_security))
+			REQUEST(irq_v_security) = request;
+
+        if (!REL.RDB$SECURITY_CLASS.NULL)
+			s_class = SCL_get_class(REL.RDB$SECURITY_CLASS);
+	END_FOR;
+
+	if (!REQUEST(irq_v_security))
+		REQUEST(irq_v_security) = request;
+
+	SCL_check_access(s_class, NULL, NULL, NULL, mask, "TABLE", name);
+}
+
+
+SCL SCL_get_class(/* INOUT */ TEXT* string)
+{
+/**************************************
+ *
+ *	S C L _ g e t _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up security class first in memory, then in database.  If
+ *	we don't find it, just return NULL.  If we do, return a security
+ *	class block.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	SCL s_class;
+	TEXT name[32], *p, *q;
+	ATT attachment;
+	USHORT name_length = 0;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* Name may be absent or terminated with NULL or blank.  Clean up name. */
+
+	if (!string)
+		return NULL;
+
+	MET_exact_name(string);
+	name_length = strlen(string);
+	p = name;
+	while (name_length--)
+		*p++ = *string++;
+	*p = 0;
+
+	if (!name[0])
+		return NULL;
+
+	attachment = tdbb->tdbb_attachment;
+
+/* Look for the class already known */
+
+	for (s_class = attachment->att_security_classes;
+		 s_class;
+		 s_class = s_class->scl_next)
+	{
+		if (!strcmp(name, s_class->scl_name)) {
+			return s_class;
+		}
+	}
+
+/* Class isn't known.  So make up a new security class block */
+
+	s_class = (SCL) ALLOCPV(type_scl, p - name);
+	p = name;
+	q = s_class->scl_name;
+	while (*q++ = *p++)
+		;
+	s_class->scl_flags = (USHORT) compute_access(tdbb, s_class, NULL_PTR,
+												 NULL_PTR, NULL_PTR);
+
+	if (s_class->scl_flags & SCL_exists)
+	{
+		s_class->scl_next = attachment->att_security_classes;
+		attachment->att_security_classes = s_class;
+		return s_class;
+	}
+
+	ALL_release((FRB) s_class);
+
+	return NULL;
+}
+
+
+int SCL_get_mask(CONST TEXT* relation_name, CONST TEXT* field_name)
+{
+/**************************************
+ *
+ *	S C L _ g e t _ m a s k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a protection mask for a named object.  If field and
+ *	relation names are present, get access to field.  If just
+ *	relation name, get access to relation.  If neither, get
+ *	access for database.
+ *
+ **************************************/
+	TDBB tdbb;
+	REL relation;
+	FLD field;
+	SSHORT id;
+	USHORT access;
+	SCL s_class;
+	ATT attachment;
+
+	tdbb = GET_THREAD_DATA;
+
+	attachment = tdbb->tdbb_attachment;
+
+/* Start with database security class */
+
+	access =
+		(s_class = attachment->att_security_class) ? s_class->scl_flags : -1;
+
+/* If there's a relation, track it down */
+
+	if (relation_name &&
+		(relation = MET_lookup_relation(tdbb, relation_name)))
+	{
+		MET_scan_relation(tdbb, relation);
+		if (s_class = SCL_get_class(relation->rel_security_name))
+		{
+			access &= s_class->scl_flags;
+		}
+		if (field_name &&
+			(id = MET_lookup_field(tdbb, relation, field_name)) >= 0 &&
+			(field = MET_get_field(relation, id)) &&
+			(s_class = SCL_get_class(field->fld_security_name)))
+		{
+			access &= s_class->scl_flags;
+		}
+	}
+
+	return access & (SCL_read | SCL_write | SCL_delete | SCL_control |
+					 SCL_grant | SCL_sql_insert | SCL_sql_update |
+					 SCL_sql_delete | SCL_protect | SCL_sql_references |
+					 SCL_execute);
+}
+
+
+void SCL_init(BOOLEAN	create,
+			  TEXT*		sys_user_name,
+			  TEXT*		user_name,
+			  TEXT*		password,
+			  TEXT*		password_enc,
+			  TEXT*		sql_role,
+			  TDBB		tdbb,
+			  BOOLEAN	internal)
+{
+/**************************************
+ *
+ *	S C L _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check database access control list.
+ *
+ *	Checks the userinfo database to get the
+ *	password and other stuff about the specified
+ *	user.   Compares the password to that passed
+ *	in, encrypting if necessary.
+ *
+ **************************************/
+	DBB dbb;
+	BLK handle, handle1;
+	VOLATILE BLK request;
+	USR user;
+	TEXT name[129], project[33], organization[33], *p;
+	USHORT length;
+	int id, group, wheel, node_id;
+	TEXT role_name[33], login_name[129], *q;
+	USHORT major_version, minor_original;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	major_version = (SSHORT) dbb->dbb_ods_version;
+	minor_original = (SSHORT) dbb->dbb_minor_original;
+
+	*project = *organization = *name = *role_name = *login_name = '\0';
+
+	node_id = 0;
+	if (!user_name)
+	{
+		wheel = ISC_get_user(name,
+							&id,
+							&group,
+							project,
+							organization,
+							&node_id,
+							sys_user_name);
+	}
+	else
+	{
+		wheel = 0;
+	}
+
+	if (user_name || (id == -1))
+	{
+		if (!user_name || (!password_enc && !password))
+		{
+			ERR_post(gds__login, 0);
+		}
+
+		if (!internal)
+		{
+			PWD_verify_user(name,
+							user_name,
+							password,
+							password_enc,
+							&id,
+							&group,
+							&node_id);
+		}
+
+		/* if the name from the user database is defined as SYSDBA,
+		   we define that user id as having system privileges */
+
+		if (!strcmp(name, SYSDBA_USER_NAME))
+		{
+			wheel = 1;
+		}
+	}
+
+/* In case we became WHEEL on an OS that didn't require name SYSDBA,
+ * (Like Unix) force the effective Database User name to be SYSDBA.
+ */
+	if (wheel)
+	{
+		strcpy(name, SYSDBA_USER_NAME);
+	}
+
+/***************************************************************
+**
+** skip reading system relation RDB$ROLES when attaching pre ODS_9_0 database
+**
+****************************************************************/
+
+	if (ENCODE_ODS(major_version, minor_original) >= ODS_9_0)
+	{
+		if (strlen(name) != 0)
+		{
+			for (p = login_name, q = name; *p++ = UPPER7(*q); q++)
+			{
+				;
+			}
+
+			if (!create)
+			{
+				request =
+					(BLK) CMP_find_request(tdbb, irq_get_role_name,
+										   IRQ_REQUESTS);
+
+				FOR(REQUEST_HANDLE request) X IN RDB$ROLES
+					WITH X.RDB$ROLE_NAME EQ login_name
+
+                    if (!REQUEST(irq_get_role_name))
+                        REQUEST(irq_get_role_name) = request;
+
+					EXE_unwind(tdbb, (REQ) request);
+					ERR_post(isc_login_same_as_role_name,
+							 gds_arg_string, ERR_cstring(login_name), 0);
+
+				END_FOR;
+
+				if (!REQUEST(irq_get_role_name))
+					REQUEST(irq_get_role_name) = request;
+			}
+		}
+	}
+
+	if (sql_role != NULL) {
+		strcpy(role_name, sql_role);
+	}
+	else if (strlen(name) != 0) {
+		strcpy(role_name, "NONE");
+	}
+
+	length = strlen(name) + strlen(role_name) + strlen(project) +
+		strlen(organization) + 4;	/* for the terminating nulls */
+	tdbb->tdbb_attachment->att_user = user = (USR) ALLOCPV(type_usr, length);
+	p = user->usr_data;
+	user->usr_user_name = save_string(name, &p);
+	user->usr_project_name = save_string(project, &p);
+	user->usr_org_name = save_string(organization, &p);
+	user->usr_sql_role_name = save_string(role_name, &p);
+	user->usr_user_id = id;
+	user->usr_group_id = group;
+	user->usr_node_id = node_id;
+	if (wheel)
+		user->usr_flags |= USR_locksmith;
+
+	handle = handle1 = NULL;
+
+	if (!create) {
+		FOR(REQUEST_HANDLE handle) X IN RDB$DATABASE
+
+			if (!X.RDB$SECURITY_CLASS.NULL)
+				tdbb->tdbb_attachment->att_security_class =
+					SCL_get_class(X.RDB$SECURITY_CLASS);
+		END_FOR;
+		CMP_release(tdbb, (REQ) handle);
+
+		FOR(REQUEST_HANDLE handle1)
+			FIRST 1 REL IN RDB$RELATIONS WITH REL.
+				RDB$RELATION_NAME EQ "RDB$DATABASE" 
+
+            if (!REL.RDB$OWNER_NAME.NULL && 
+                (p = user->usr_user_name) && *p)
+			{
+				*name = strlen(p);
+				strcpy(name + 1, p);
+				if (!check_string(name, REL.RDB$OWNER_NAME))
+				{
+					user->usr_flags |= USR_owner;
+				}
+			}
+		END_FOR;
+		CMP_release(tdbb, (REQ) handle1);
+	}
+	else
+		user->usr_flags |= USR_owner;
+
+}
+
+
+void SCL_move_priv(
+				   UCHAR ** acl_ptr,
+				   USHORT mask, STR * start_ptr, ULONG * length_ptr)
+{
+/**************************************
+ *
+ *	S C L _ m o v e _ p r i v
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a mask of privileges, move privileges types to acl.
+ *
+ **************************************/
+	UCHAR *p;
+	CONST P_NAMES *priv;
+
+	p = *acl_ptr;
+
+/* terminate identification criteria, and move privileges */
+
+	CHECK_AND_MOVE(p, ACL_end, *start_ptr, length_ptr);
+	CHECK_AND_MOVE(p, ACL_priv_list, *start_ptr, length_ptr);
+
+	for (priv = p_names; priv->p_names_priv; priv++)
+	{
+		if (mask & priv->p_names_priv)
+		{
+			assert(priv->p_names_acl <= MAX_UCHAR);
+			CHECK_AND_MOVE(p, (UCHAR) priv->p_names_acl, *start_ptr,
+						   length_ptr);
+		}
+	}
+
+	CHECK_AND_MOVE(p, 0, *start_ptr, length_ptr);
+
+	*acl_ptr = p;
+}
+
+
+SCL SCL_recompute_class(TDBB tdbb, TEXT * string)
+{
+/**************************************
+ *
+ *	S C L _ r e c o m p u t e _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Something changed with a security class, recompute it.  If we
+ *	can't find it, return NULL.
+ *
+ **************************************/
+	SCL s_class;
+
+	SET_TDBB(tdbb);
+
+	if (!(s_class = SCL_get_class(string)))
+		return NULL;
+
+	s_class->scl_flags = (USHORT) compute_access(tdbb, s_class,
+												 NULL_PTR, NULL_PTR,
+												 NULL_PTR);
+
+	if (s_class->scl_flags & SCL_exists)
+		return s_class;
+
+/* Class no long exists -- get rid of it! */
+
+	SCL_release(s_class);
+
+	return NULL;
+}
+
+
+void SCL_release( SCL s_class)
+{
+/**************************************
+ *
+ *	S C L _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an unneeded and unloved security class.
+ *
+ **************************************/
+	TDBB tdbb;
+	SCL *next;
+	ATT attachment;
+
+	tdbb = GET_THREAD_DATA;
+
+	attachment = tdbb->tdbb_attachment;
+
+	for (next = &attachment->att_security_classes; *next;
+		 next = &(*next)->scl_next)
+	{
+		if (*next == s_class)
+		{
+			*next = s_class->scl_next;
+			break;
+		}
+	}
+
+	ALL_release((FRB) s_class);
+}
+
+
+static BOOLEAN check_hex(CONST TEXT* acl, USHORT number)
+{
+/**************************************
+ *
+ *	c h e c k _ h e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check a string against and acl numeric string.  If they don't match,
+ *	return TRUE.
+ *
+ **************************************/
+	USHORT l;
+	TEXT c;
+	int n;
+
+	n = 0;
+	if (l = *acl++)
+	{
+		do
+		{
+			c = *acl++;
+			n *= 10;
+			if (c >= '0' && c <= '9')
+				n += c - '0';
+			else if (c >= 'a' && c <= 'f')
+				n += c - 'a' + 10;
+			else if (c >= 'A' && c <= 'F')
+				n += c - 'A' + 10;
+		} while (--l);
+	}
+
+	return (n != number);
+}
+
+
+static BOOLEAN check_number(CONST TEXT* acl, USHORT number)
+{
+/**************************************
+ *
+ *	c h e c k _ n u m b e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check a string against and acl numeric string.  If they don't match,
+ *	return TRUE.
+ *
+ **************************************/
+	USHORT l;
+	int n;
+
+	n = 0;
+	if (l = *acl++)
+	{
+		do {
+			n = n * UIC_BASE + *acl++ - '0';
+		} while (--l);
+	}
+
+	return (n != number);
+}
+
+
+static BOOLEAN check_user_group(CONST TEXT*	acl,
+								USHORT		number,
+								STR*		start_ptr,
+								ULONG*		length_ptr)
+{
+/**************************************
+ *
+ *	c h e c k _ u s e r _ g r o u p
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Check a string against an acl numeric string.  
+ *
+ * logic:
+ *
+ *  If the string contains user group name, 
+ *    then 
+ *      converts user group name to numeric user group id.
+ *    else
+ *      converts character user group id to numeric user group id.
+ *
+ *	Check numeric user group id against an acl numeric string.  
+ *  If they don't match, return TRUE.
+ *
+ **************************************/
+	USHORT l;
+	SLONG n;
+	TEXT *user_group_name;
+	TEXT one_char;
+	STR buffer;
+	TDBB tdbb;
+	DBB dbb;
+	JMP_BUF env, *old_env;
+
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (buffer)
+			ALL_release((FRB) buffer);
+		LONGJMP(*(JMP_BUF*)&tdbb->tdbb_setjmp, (int) tdbb->tdbb_status_vector[1]);
+	}
+
+
+	buffer = (STR) ALLOCPV(type_str, *length_ptr);
+
+	n = 0;
+	if (l = *acl++)
+	{
+		if (isdigit(*acl))
+		{	/* this is a group id */
+			do
+				n = n * UIC_BASE + *acl++ - '0';
+			while (--l);
+		}
+		else
+		{					/* processing group name */
+
+			user_group_name = buffer->str_data;
+			do {
+				one_char = *acl++;
+				*user_group_name++ = LOWWER(one_char);
+			} while (--l);
+			*user_group_name = '\0';
+			user_group_name = buffer->str_data;
+			/*
+			   ** convert unix group name to unix group id
+			 */
+			n = ISC_get_user_group_id(user_group_name);
+		}
+	}
+
+	ALL_release((FRB) buffer);
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	return (n != number);
+}
+
+
+static BOOLEAN check_string(CONST TEXT* acl, CONST TEXT* string)
+{
+/**************************************
+ *
+ *	c h e c k _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check a string against and acl string.  If they don't match,
+ *	return TRUE.
+ *
+ **************************************/
+	USHORT l;
+	TEXT c1, c2;
+
+
+/* 
+ * add these asserts to catch calls to this function with NULL,
+ * the caller to this function must check to ensure that the arguments are not
+ * NULL  - Shaunak Mistry 03-May-99.
+ */
+
+	assert(string != NULL);
+	assert(acl != NULL);
+
+/* JPN: Since Kanji User names are not allowed, No need to fix this UPPER loop. */
+
+	if (l = *acl++)
+	{
+		do {
+			c1 = *acl++;
+			c2 = *string++;
+			if (UPPER7(c1) != UPPER7(c2))
+				return TRUE;
+		} while (--l);
+	}
+
+	return (*string && *string != ' ') ? TRUE : FALSE;
+}
+
+
+static SLONG compute_access(TDBB		tdbb,
+							SCL			s_class,
+							REL			view,
+							CONST TEXT*	trg_name,
+							CONST TEXT*	prc_name)
+{
+/**************************************
+ *
+ *	c o m p u t e _ a c c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute access for security class.  If a relation block is
+ *	present, it is a view, and we should check for enhanced view
+ *	access permissions.  Return a flag word of recognized privileges.
+ *
+ **************************************/
+	DBB dbb;
+	BLK request;
+	BLB blob;
+	SLONG privileges;
+	TEXT *acl;
+	TEXT *buffer;
+	VOLATILE STR str_buffer = NULL;
+	JMP_BUF env, *old_env;
+	SLONG length = BLOB_BUFFER_SIZE, *length_ptr = &length;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	privileges = SCL_scanned;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env))
+	{
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (str_buffer)
+			ALL_release((FRB) str_buffer);
+		LONGJMP(*(JMP_BUF*)&tdbb->tdbb_setjmp, (int) tdbb->tdbb_status_vector[1]);
+	}
+
+/* Get some space that's not off the stack */
+	str_buffer = (STR) ALLOCPV(type_str, BLOB_BUFFER_SIZE);
+	buffer = str_buffer->str_data;
+
+
+	request = (BLK) CMP_find_request(tdbb, irq_l_security, IRQ_REQUESTS);
+
+	FOR(REQUEST_HANDLE request) X IN RDB$SECURITY_CLASSES
+		WITH X.RDB$SECURITY_CLASS EQ s_class->scl_name
+
+        if (!REQUEST(irq_l_security))
+			REQUEST(irq_l_security) = request;
+
+		privileges |= SCL_exists;
+		blob = BLB_open(tdbb, dbb->dbb_sys_trans, (BID) & X.RDB$ACL);
+		acl = buffer;
+		while (TRUE)
+		{
+			acl += BLB_get_segment(tdbb, blob, acl,
+								   (USHORT) (length -
+											 ((acl - buffer) *
+											  (sizeof(buffer[0])))));
+			if (blob->blb_flags & BLB_eof)
+				break;
+			/* there was not enough space, realloc point acl to the correct location */
+			if (blob->blb_fragment_size)
+			{
+				ULONG old_offset = (ULONG) (acl - buffer);
+				length += BLOB_BUFFER_SIZE;
+				(void) ALL_extend((BLK *) & str_buffer, length);
+				buffer = str_buffer->str_data;
+				acl = buffer + old_offset;
+			}
+		}
+		BLB_close(tdbb, blob);
+		if (acl != buffer)
+		{
+			/*
+			 * TMN: The cast is really a const_cast to
+			 * cast away volatile! Bad, bad, bad!
+			 */
+			privileges |= walk_acl(	tdbb,
+									buffer,
+									view,
+									trg_name,
+									prc_name,
+									(STR*)&str_buffer,
+									length_ptr);
+		}
+	END_FOR;
+
+	if (!REQUEST(irq_l_security))
+		REQUEST(irq_l_security) = request;
+
+
+	ALL_release((FRB) str_buffer);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	return privileges;
+}
+
+
+static TEXT *save_string(TEXT* string, TEXT** ptr)
+{
+/**************************************
+ *
+ *	s a v e _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	If a string is non-null, copy it to a work area and return a
+ *	pointer.
+ *
+ **************************************/
+	TEXT *p, *start;
+
+	if (!*string)
+		return NULL;
+
+	start = p = *ptr;
+
+	while (*p++ = *string++)
+		;
+
+	*ptr = p;
+
+	return start;
+}
+
+
+static SLONG walk_acl(TDBB			tdbb,
+					  CONST TEXT*	acl,
+					  REL			view,
+					  CONST TEXT*	trg_name,
+					  CONST TEXT*	prc_name,
+					  STR*			start_ptr,
+					  ULONG*		length_ptr)
+{
+/**************************************
+ *
+ *	w a l k _ a c l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk an access control list looking for a hit.  If a hit
+ *	is found, return privileges.
+ *
+ **************************************/
+	struct usr	user;
+	SLONG		privilege;
+	USHORT		hit;
+	TEXT		c;
+	TEXT*		p;
+	TEXT*		role_name;
+	BOOLEAN		is_member = FALSE;
+	VOLATILE BLK request;
+	DBB			dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+/* Munch ACL.  If we find a hit, eat up privileges */
+
+	user = *tdbb->tdbb_attachment->att_user;
+	role_name = user.usr_sql_role_name;
+
+	if (view && (view->rel_flags & REL_sql_relation))
+	{
+		/* Use the owner of the view to perform the sql security
+		   checks with: (1) The view user must have sufficient privileges
+		   to the view, and (2a) the view owner must have sufficient 
+		   privileges to the base table or (2b) the view must have
+		   sufficient privileges on the base table. */
+		user.usr_user_name = view->rel_owner_name;
+	}
+	privilege = 0;
+
+	if (*acl++ != ACL_version)
+	{
+		BUGCHECK(160);			/* msg 160 wrong ACL version */
+	}
+
+	if (user.usr_flags & USR_locksmith)
+	{
+		return -1 & ~SCL_corrupt;
+	}
+
+	while (c = *acl++)
+	{
+		switch (c)
+		{
+		case ACL_id_list:
+			hit = TRUE;
+			while (c = *acl++)
+			{
+				switch (c)
+				{
+				case id_person:
+					if (!(p = user.usr_user_name) || check_string(acl, p))
+						hit = FALSE;
+					break;
+
+				case id_project:
+					if (!(p = user.usr_project_name) || check_string(acl, p))
+						hit = FALSE;
+					break;
+
+				case id_organization:
+					if (!(p = user.usr_org_name) || check_string(acl, p))
+						hit = FALSE;
+					break;
+
+				case id_group:
+					if (check_user_group(acl,
+										user.usr_group_id,
+										start_ptr,
+										length_ptr))
+					{
+						hit = FALSE;
+					}
+					break;
+
+				case id_sql_role:
+					if (role_name == NULL || check_string(acl, role_name))
+						hit = FALSE;
+					else
+					{
+						TEXT login_name[129], *p, *q;
+						for (p = login_name, q = user.usr_user_name;
+							 *p++ = UPPER7(*q); q++);
+						hit = FALSE;
+						request = (BLK)CMP_find_request(tdbb, irq_get_role_mem,
+												   IRQ_REQUESTS);
+
+						FOR(REQUEST_HANDLE request) U IN RDB$USER_PRIVILEGES WITH
+							(U.RDB$USER EQ login_name OR
+							 U.RDB$USER EQ "PUBLIC") AND
+								U.RDB$USER_TYPE EQ obj_user AND
+								U.RDB$RELATION_NAME EQ user.usr_sql_role_name AND
+								U.RDB$OBJECT_TYPE EQ obj_sql_role AND
+								U.RDB$PRIVILEGE EQ "M"
+
+                            if (!REQUEST(irq_get_role_mem))
+                                REQUEST(irq_get_role_mem) = request;
+
+							if (!U.RDB$USER.NULL)
+								hit = TRUE;
+						END_FOR;
+
+						if (!REQUEST(irq_get_role_mem))
+							REQUEST(irq_get_role_mem) = request;
+					}
+					break;
+
+				case id_view:
+					if (!view || check_string(acl, view->rel_name))
+						hit = FALSE;
+					break;
+
+				case id_procedure:
+					if (!prc_name || check_string(acl, prc_name))
+						hit = FALSE;
+					break;
+
+				case id_trigger:
+					if (!trg_name || check_string(acl, trg_name))
+					{
+						hit = FALSE;
+					}
+					break;
+
+				case id_views:
+					/* Disable this catch-all that messes up the view security.
+					   Note that this id_views is not generated anymore, this code
+					   is only here for compatibility.  id_views was only 
+					   generated for SQL. */
+					hit = FALSE;
+					if (!view) {
+						hit = FALSE;
+					}
+					break;
+
+				case id_user:
+					if (check_number(acl, user.usr_user_id)) {
+						hit = FALSE;
+					}
+					break;
+
+				case id_node:
+					if (check_hex(acl, user.usr_node_id)) {
+						hit = FALSE;
+					}
+					break;
+
+				default:
+					return SCL_corrupt;
+				}
+				acl += *acl + 1;
+			}
+			break;
+
+		case ACL_priv_list:
+			if (hit) {
+				while (c = *acl++)
+					switch (c) {
+					case priv_control:
+						privilege |= SCL_control;
+						break;
+
+					case priv_read:
+						/* note that READ access must imply REFERENCES
+						   access for upward compatibility of existing
+						   security classes */
+
+						privilege |= SCL_read | SCL_sql_references;
+						break;
+
+					case priv_write:
+						privilege |=
+							SCL_write | SCL_sql_insert | SCL_sql_update |
+							SCL_sql_delete;
+						break;
+
+					case priv_sql_insert:
+						privilege |= SCL_sql_insert;
+						break;
+
+					case priv_sql_delete:
+						privilege |= SCL_sql_delete;
+						break;
+
+					case priv_sql_references:
+						privilege |= SCL_sql_references;
+						break;
+
+					case priv_sql_update:
+						privilege |= SCL_sql_update;
+						break;
+
+					case priv_delete:
+						privilege |= SCL_delete;
+						break;
+
+					case priv_grant:
+						privilege |= SCL_grant;
+						break;
+
+					case priv_protect:
+						privilege |= SCL_protect;
+						break;
+
+					case priv_execute:
+						privilege |= SCL_execute;
+						break;
+
+					default:
+						return SCL_corrupt;
+					}
+				/* For a relation the first hit does not give the privilege. 
+				   Because, there could be some permissions for the table 
+				   (for user1) and some permissions for a column on that 
+				   table for public/user2, causing two hits.
+				   Hence, we do not return at this point.
+				   -- Madhukar Thakur (May 1, 1995)
+				 */
+			}
+			else
+				while (*acl++);
+			break;
+
+		default:
+			return SCL_corrupt;
+		}
+	}
+
+	return privilege;
+}
diff --git a/src/jrd/scl.h b/src/jrd/scl.h
new file mode 100644
index 0000000000..7d2bffc7d7
--- /dev/null
+++ b/src/jrd/scl.h
@@ -0,0 +1,93 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		scl.h
+ *	DESCRIPTION:	Security class definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_SCL_H
+#define JRD_SCL_H
+
+/* Security class definition */
+
+#ifndef GATEWAY
+typedef struct scl {
+	struct blk scl_header;
+	struct scl *scl_next;		/* Next security class in system */
+	USHORT scl_flags;			/* Access permissions */
+	TEXT scl_name[2];
+} *SCL;
+#else
+typedef struct scl {
+	struct blk scl_header;
+	struct sbm *scl_flags;		/* Access permissions */
+} *SCL;
+#endif
+
+#define SCL_read		1		/* Read access */
+#define SCL_write		2		/* Write access */
+#define SCL_delete		4		/* Delete access */
+#define SCL_control		8		/* Control access */
+#define SCL_grant		16		/* Grant privileges */
+#define SCL_exists		32		/* At least ACL exists */
+#define SCL_scanned		64		/* But we did look */
+#define SCL_protect		128		/* Change protection */
+#define SCL_corrupt		256		/* ACL does look too good */
+#define SCL_sql_insert		512
+#define SCL_sql_delete		1024
+#define SCL_sql_update		2048
+#define SCL_sql_references	4096
+#define SCL_execute		8192
+
+
+
+/* information about the user */
+
+typedef struct usr {
+	struct blk usr_header;
+	TEXT *usr_user_name;		/* User name */
+	TEXT *usr_sql_role_name;	/* Role name */
+	TEXT *usr_project_name;		/* Project name */
+	TEXT *usr_org_name;			/* Organizaion name */
+	TEXT *usr_node_name;		/* Network node name */
+	USHORT usr_user_id;			/* User id */
+	USHORT usr_group_id;		/* Group id */
+	USHORT usr_node_id;			/* Node id */
+	USHORT usr_flags;			/* Misc. crud */
+#ifdef GATEWAY
+	struct rel *usr_relations;	/* Relations owned by the user */
+	struct sbm *usr_security_class;	/* Security information for user */
+	TEXT *usr_dbms_user;		/* Name of user as defined by DBMS */
+	SLONG usr_dbms_uid;			/* Number of user as defined by DBMS */
+#endif
+	TEXT usr_data[2];
+} *USR;
+
+#define USR_locksmith	1		/* User has great karma */
+#define USR_dba		2			/* User has DBA privileges */
+#define USR_owner	4			/* User owns database */
+
+/*
+ * User name assigned to any user granted USR_locksmith rights.
+ * If this name is changed, modify also the trigger in 
+ * jrd/grant.gdl (which turns into jrd/trig.h.
+ */
+#define SYSDBA_USER_NAME	"SYSDBA"
+
+#endif /* JRD_SCL_H */
diff --git a/src/jrd/scl_proto.h b/src/jrd/scl_proto.h
new file mode 100644
index 0000000000..dbb3816167
--- /dev/null
+++ b/src/jrd/scl_proto.h
@@ -0,0 +1,48 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		scl_proto.h
+ *	DESCRIPTION:	Prototype header file for scl.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SCL_PROTO_H_
+#define _JRD_SCL_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void		SCL_check_access(struct scl*, struct rel*, CONST TEXT*,
+							CONST TEXT*, USHORT,
+							CONST TEXT*, CONST TEXT*);
+void		SCL_check_procedure(struct dsc*, USHORT);
+void		SCL_check_relation(struct dsc*, USHORT);
+struct scl*	SCL_get_class(/* INOUT */ TEXT*);
+int			SCL_get_mask(CONST TEXT*, CONST TEXT*);
+void		SCL_init(BOOLEAN, TEXT*, TEXT*, TEXT*, TEXT*, TEXT*, TDBB, BOOLEAN);
+void		SCL_move_priv(UCHAR**, USHORT, STR*, ULONG*);
+struct scl*	SCL_recompute_class(TDBB, TEXT*);
+void		SCL_release(struct scl*);
+void		SCL_check_index(TDBB, TEXT*, USHORT);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_SCL_PROTO_H_ */
diff --git a/src/jrd/scroll_cursors.h b/src/jrd/scroll_cursors.h
new file mode 100644
index 0000000000..6b57d2d8d4
--- /dev/null
+++ b/src/jrd/scroll_cursors.h
@@ -0,0 +1,87 @@
+/*
+ *	MODULE:		scroll_cursors.h
+ *	DESCRIPTION:	OSRI entrypoints and defines for SCROLLABLE_CURSORS
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SCROLL_CURSORS_H_
+#define _JRD_SCROLL_CURSORS_H_
+
+/* ALL THE FOLLOWING DEFINITIONS HAVE BEEN TAKEN OUT OF JRD/IBASE.H 
+   WHEN SCROLLABLE_CURSORS ARE TOTALLY IMPLEMENTED, THE FOLLOWING 
+   DEFINITIONS NEED TO BE PUT IN THE PROPER INCLUDE FILE.
+
+   This was done so that IB 5.0 customers do not see any functions
+   they are not supposed to see.
+   As per Engg. team's decision on 23-Sep-1997 
+*/
+
+#ifdef SCROLLABLE_CURSORS
+ISC_STATUS ISC_EXPORT isc_dsql_fetch2(ISC_STATUS ISC_FAR *,
+									  isc_stmt_handle ISC_FAR *,
+									  unsigned short,
+									  XSQLDA ISC_FAR *,
+									  unsigned short, signed long);
+#endif
+
+#ifdef SCROLLABLE_CURSORS
+ISC_STATUS ISC_EXPORT isc_dsql_fetch2_m(ISC_STATUS ISC_FAR *,
+										isc_stmt_handle ISC_FAR *,
+										unsigned short,
+										char ISC_FAR *,
+										unsigned short,
+										unsigned short,
+										char ISC_FAR *,
+										unsigned short, signed long);
+#endif
+
+#ifdef SCROLLABLE_CURSORS
+ISC_STATUS ISC_EXPORT isc_embed_dsql_fetch2(ISC_STATUS ISC_FAR *,
+											char ISC_FAR *,
+											unsigned short,
+											XSQLDA ISC_FAR *,
+											unsigned short, signed long);
+#endif
+
+#ifdef SCROLLABLE_CURSORS
+ISC_STATUS ISC_EXPORT isc_receive2(ISC_STATUS ISC_FAR *,
+								   isc_req_handle ISC_FAR *,
+								   short,
+								   short,
+								   void ISC_FAR *,
+								   short, unsigned short, unsigned long);
+#endif
+
+/****** Add the following commented lines in the #else part of..
+#else                                    __cplusplus || __STDC__ 
+ISC_STATUS  ISC_EXPORT isc_receive2();
+******/
+
+/****************************************/
+/* Scroll direction for isc_dsql_fetch2 */
+/****************************************/
+
+#define isc_fetch_next			   0
+#define isc_fetch_prior			   1
+#define isc_fetch_first			   2
+#define isc_fetch_last			   3
+#define isc_fetch_absolute		   4
+#define isc_fetch_relative		   5
+
+#endif /* _JRD_SCROLL_CURSORS_H_ */
diff --git a/src/jrd/sdl.cpp b/src/jrd/sdl.cpp
new file mode 100644
index 0000000000..a47c5e6ab1
--- /dev/null
+++ b/src/jrd/sdl.cpp
@@ -0,0 +1,1041 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sdl.c
+ *	DESCRIPTION:	Array slice manipulator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#ifndef REQUESTER
+#include "../jrd/jrd.h"
+#endif
+#include "../include/jrd/gds.h"
+#include "../jrd/val.h"
+#include "../jrd/sdl.h"
+#include "../jrd/intl.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/sdl_proto.h"
+
+#ifndef DEV_BUILD
+#define _assert(ex)
+#define assert(ex)
+
+#else	// DEV_BUILD
+
+#include "../jrd/ib_stdio.h"
+#ifdef _assert
+#undef _assert
+#endif
+#define _assert(ex)	{if (!(ex)){(void) ib_fprintf (ib_stderr, "assert failure: %s %ld\n", __FILE__, __LINE__);}}
+#ifdef assert
+#undef assert
+#endif
+#define assert(ex)	_assert(ex)
+
+#endif	// DEV_BUILD
+
+
+#define COMPILE_SIZE	256
+
+typedef struct sdl_arg {
+	USHORT sdl_arg_mode;
+	ADS sdl_arg_desc;
+	UCHAR *sdl_arg_sdl;
+	UCHAR *sdl_arg_array;
+	SLONG *sdl_arg_variables;
+	void (*sdl_arg_callback) ();
+	SLICE sdl_arg_argument;
+	STATUS *sdl_arg_status_vector;
+	IPTR sdl_arg_compiled[COMPILE_SIZE];
+	IPTR *sdl_arg_next;
+	IPTR *sdl_arg_end;
+} *SDL_ARG;
+
+/* Structure to computes ranges */
+
+typedef struct rng {
+	SLONG rng_minima[64];
+	SLONG rng_maxima[64];
+	SDL_INFO rng_info;
+} *RNG;
+
+static UCHAR *compile(UCHAR *, SDL_ARG);
+static STATUS error(STATUS *, ...);
+static BOOLEAN execute(SDL_ARG);
+static UCHAR *get_range(UCHAR *, RNG, SLONG *, SLONG *);
+static SSHORT get_word(UCHAR **);
+static UCHAR *sdl_desc(UCHAR *, DSC *);
+static IPTR *stuff(IPTR, SDL_ARG);
+
+
+#define op_literal	1
+#define op_variable	2
+#define op_add		3
+#define op_subtract	4
+#define op_multiply	5
+#define op_divide	6
+#define op_iterate	7
+#define op_goto		8
+#define op_element	9
+#define op_loop		10
+#define op_exit		11
+#define op_scalar	12
+
+/*
+   The structure for a loop is:
+
+	<upper_bound> <increment> <initial_value> 
+	<loop> <iterate> <variable> <exit_address> 
+	[body] 
+	<goto> <iterate_address>
+	[exit]
+*/
+
+
+SLONG DLL_EXPORT SDL_compute_subscript(
+									   STATUS * status_vector,
+									   ADS desc,
+									   USHORT dimensions, SLONG * subscripts)
+{
+/**************************************
+ *
+ *	S D L _ c o m p u t e _ s u b s c r i p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Collapse a multi-dimension array reference into a vector
+ *	reference. 
+ *
+ **************************************/
+	SLONG subscript, n;
+	ads::ads_repeat * range;
+	ads::ads_repeat * end;
+
+	if (dimensions != desc->ads_dimensions) {
+		error(status_vector, gds_invalid_dimension,
+			  gds_arg_number, (SLONG) desc->ads_dimensions,
+			  gds_arg_number, (SLONG) dimensions, 0);
+		return -1;
+	}
+
+	subscript = 0;
+
+	for (range = desc->ads_rpt, end = range + desc->ads_dimensions;
+		 range < end; ++range) {
+		n = *subscripts++;
+		if (n < range->ads_lower || n > range->ads_upper) {
+			error(status_vector, gds_out_of_bounds, 0);
+			return -1;
+		}
+		subscript += (n - range->ads_lower) * range->ads_length;
+	}
+
+	return subscript;
+}
+
+
+STATUS API_ROUTINE SDL_info(STATUS * status_vector,
+							UCHAR * sdl, SDL_INFO info, SLONG * vector)
+{
+/**************************************
+ *
+ *	S D L _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse enough of SDL to pick relation and field identification and
+ *	element descriptor.
+ *
+ **************************************/
+	UCHAR *p;
+	TEXT *q;
+	USHORT n, offset;
+	SLONG min, max;
+	struct rng range;
+
+	p = sdl;
+	info->sdl_info_fid = info->sdl_info_rid = 0;
+	info->sdl_info_relation[0] = info->sdl_info_field[0] = 0;
+
+	if (*p++ != gds_sdl_version1)
+		return error(status_vector, gds_invalid_sdl,
+					 gds_arg_number, (SLONG) 0, 0);
+
+	for (;;)
+		switch (*p++) {
+		case gds_sdl_struct:
+			n = *p++;
+			if (n != 1)
+				return error(status_vector, gds_invalid_sdl,
+							 gds_arg_number, (SLONG) (p - sdl - 1), 0);
+			offset = p - sdl;
+			if (!(p = sdl_desc(p, &info->sdl_info_element)))
+				return error(status_vector, gds_invalid_sdl,
+							 gds_arg_number, (SLONG) offset, 0);
+			info->sdl_info_element.dsc_address = 0;
+			break;
+
+		case gds_sdl_fid:
+			info->sdl_info_fid = get_word(&p);
+			break;
+
+		case gds_sdl_rid:
+			info->sdl_info_rid = get_word(&p);
+			break;
+
+		case gds_sdl_field:
+			for (n = *p++, q = info->sdl_info_field; n; --n)
+				*q++ = (TEXT) * p++;
+			*q = 0;
+			break;
+
+		case gds_sdl_relation:
+			for (n = *p++, q = info->sdl_info_relation; n; --n)
+				*q++ = (TEXT) * p++;
+			*q = 0;
+			break;
+
+		default:
+			info->sdl_info_dimensions = 0;
+			if (vector) {
+				memcpy(range.rng_minima, vector, sizeof(range.rng_minima));
+				memcpy(range.rng_maxima, vector, sizeof(range.rng_maxima));
+				range.rng_info = info;
+				min = max = -1;
+				if (!(p = get_range(p - 1, &range, &min, &max))
+					|| (((SCHAR) * p) != gds_sdl_eoc))
+					info->sdl_info_dimensions = 0;
+			}
+			return SUCCESS;
+		}
+}
+
+
+UCHAR *DLL_EXPORT SDL_prepare_slice(UCHAR * sdl, USHORT sdl_length)
+{
+/**************************************
+ *
+ *	S D L _ p r e p a r e _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a slice and convert each occurrence of
+ *	blr_d_float to blr_double.
+ *
+ **************************************/
+	UCHAR *new_sdl, *old_sdl;
+	DSC junk;
+	USHORT n;
+
+	new_sdl = old_sdl = sdl;
+
+	if (*sdl++ != gds_sdl_version1)
+		return old_sdl;
+
+	while ((SCHAR) * sdl != gds_sdl_eoc)
+		switch (*sdl++) {
+		case gds_sdl_struct:
+			for (n = *sdl++; n; --n) {
+				if (*sdl == blr_d_float) {
+					if (new_sdl == old_sdl) {
+						new_sdl = gds__alloc((SLONG) sdl_length);
+						/* FREE: apparently never freed */
+						if (!new_sdl) {	/* NOMEM: ignore operation */
+							assert(FALSE);	/* no real error handling */
+							return old_sdl;
+						}
+						memcpy(new_sdl, old_sdl, sdl_length);
+						sdl = new_sdl + (sdl - old_sdl);
+					}
+					*sdl = blr_double;
+				}
+
+				if (!(sdl = sdl_desc(sdl, &junk)))
+					return new_sdl;
+			}
+			break;
+
+		case gds_sdl_fid:
+		case gds_sdl_rid:
+			sdl += 2;
+			break;
+
+		case gds_sdl_field:
+		case gds_sdl_relation:
+			n = *sdl++;
+			sdl += n;
+			break;
+
+		default:
+			return new_sdl;
+		}
+
+	return new_sdl;
+}
+
+
+int DLL_EXPORT SDL_walk(
+						STATUS * status_vector,
+						UCHAR * sdl,
+						USHORT mode,
+						UCHAR * array,
+ADS array_desc, SLONG * variables, void (*callback) (), SLICE argument)
+{
+/**************************************
+ *
+ *	S D L _ w a l k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk a slice.  
+ *
+ **************************************/
+	UCHAR *p;
+	DSC junk;
+	USHORT n, offset;
+	struct sdl_arg arg;
+
+	arg.sdl_arg_mode = mode;
+	arg.sdl_arg_array = array;
+	arg.sdl_arg_sdl = sdl;
+	arg.sdl_arg_desc = array_desc;
+	arg.sdl_arg_variables = variables;
+	arg.sdl_arg_callback = callback;
+	arg.sdl_arg_argument = argument;
+	arg.sdl_arg_status_vector = status_vector;
+	p = sdl + 1;
+
+	while ((SCHAR) * p != gds_sdl_eoc)
+		switch (*p++) {
+		case gds_sdl_struct:
+			for (n = *p++; n; --n) {
+				offset = p - sdl - 1;
+				if (!(p = sdl_desc(p, &junk)))
+					return error(status_vector, gds_invalid_sdl,
+								 gds_arg_number, (SLONG) offset, 0);
+			}
+			break;
+
+		case gds_sdl_fid:
+		case gds_sdl_rid:
+			p += 2;
+			break;
+
+		case gds_sdl_field:
+		case gds_sdl_relation:
+			n = *p++;
+			p += n;
+			break;
+
+		default:
+			/* Check that element is in range of valid SDL */
+			assert(*(p - 1) >= gds_sdl_version1
+				   && *(p - 1) <= gds_sdl_element);
+
+			arg.sdl_arg_next = arg.sdl_arg_compiled;
+			arg.sdl_arg_end =
+				(IPTR *) ((SCHAR *) arg.sdl_arg_compiled +
+						  sizeof(arg.sdl_arg_compiled));
+			if (!(p = compile(p - 1, &arg)))
+				return FAILURE;
+			if (!stuff((IPTR) op_exit, &arg))
+				return FAILURE;
+			if (!execute(&arg))
+				return FAILURE;
+			break;
+		}
+
+	return SUCCESS;
+}
+
+
+static UCHAR *compile(UCHAR * sdl, SDL_ARG arg)
+{
+/**************************************
+ *
+ *	c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile an SDL element.  If the address of the argument block
+ *	is null, parse, but do not generate anything.
+ *
+ **************************************/
+	SLONG n, count, variable, value, op, operator_;
+	IPTR *label;
+	UCHAR *p, *ptr1, *expressions[16], **expr;
+
+#define STUFF(word, arg)	if (!stuff ((IPTR) word, arg)) return NULL
+#define COMPILE(p, arg)		if (!(p = compile (p, arg))) return NULL
+
+	p = sdl;
+
+	switch (op = *p++) {
+	case gds_sdl_do1:
+	case gds_sdl_do2:
+	case gds_sdl_do3:
+		variable = *p++;
+		if (op == gds_sdl_do1)
+			ptr1 = NULL;
+		else {
+			ptr1 = p;
+			COMPILE(p, 0);		/* skip over lower bound */
+		}
+		COMPILE(p, arg);		/* upper bound */
+		if (op == gds_sdl_do3) {
+			COMPILE(p, arg);	/* increment */
+		}
+		else {
+			STUFF(op_literal, arg);
+			STUFF(1, arg);
+		}
+		if (ptr1) {
+			COMPILE(ptr1, arg);	/* initial value */
+		}
+		else {
+			STUFF(op_literal, arg);	/* default initial value */
+			STUFF(1, arg);
+		}
+		STUFF(op_loop, arg);
+		if (!(label = stuff(op_iterate, arg)))
+			return NULL;
+		STUFF(variable, arg);
+		STUFF(0, arg);			/* future branch out address */
+		if (!(p = compile(p, arg)))
+			return NULL;
+		STUFF(op_goto, arg);
+		STUFF(label, arg);
+		if (arg)
+			label[2] = (IPTR) arg->sdl_arg_next;
+		return p;
+
+	case gds_sdl_variable:
+		STUFF(op_variable, arg);
+		STUFF(*p++, arg);
+		return p;
+
+	case gds_sdl_tiny_integer:
+		value = (SCHAR) * p++;
+		STUFF(op_literal, arg);
+		STUFF(value, arg);
+		return p;
+
+	case gds_sdl_short_integer:
+		value = (SSHORT) (p[0] | (p[1] << 8));
+		STUFF(op_literal, arg);
+		STUFF(value, arg);
+		return p + 2;
+
+	case gds_sdl_long_integer:
+		value =
+			(SLONG) (p[0] | (p[1] << 8) | ((SLONG) p[2] << 16) |
+					 ((SLONG) p[3] << 24));
+		STUFF(op_literal, arg);
+		STUFF(value, arg);
+		return p + 4;
+
+	case gds_sdl_add:
+		operator_ = op_add;
+	case gds_sdl_subtract:
+		if (!operator_)
+			operator_ = op_subtract;
+	case gds_sdl_multiply:
+		if (!operator_)
+			operator_ = op_multiply;
+	case gds_sdl_divide:
+		if (!operator_)
+			operator_ = op_divide;
+		COMPILE(p, arg);
+		COMPILE(p, arg);
+		STUFF(operator_, arg);
+		return p;
+
+	case gds_sdl_scalar:
+		op = *p++;
+		count = *p++;
+		if (arg && count != arg->sdl_arg_desc->ads_dimensions) {
+			error(arg->sdl_arg_status_vector, gds_invalid_dimension,
+				  gds_arg_number, (SLONG) arg->sdl_arg_desc->ads_dimensions,
+				  gds_arg_number, (SLONG) count, 0);
+			return NULL;
+		}
+		expr = expressions;
+		for (n = count; n; --n) {
+			*expr++ = p;
+			COMPILE(p, 0);
+		}
+		while (expr > expressions)
+			if (!compile(*--expr, arg))
+				return NULL;
+		STUFF(op_scalar, arg);
+		STUFF(op, arg);
+		STUFF(count, arg);
+		return p;
+
+	case gds_sdl_element:
+		count = *p++;
+		if (arg && count != 1) {
+			error(arg->sdl_arg_status_vector, gds_datnotsup, gds_arg_end);
+			/* Msg107: "data operation not supported" (arrays of structures) */
+			return NULL;
+		}
+		expr = expressions;
+		for (n = count; n; --n) {
+			*expr++ = p;
+			COMPILE(p, 0);
+		}
+		while (expr > expressions)
+			if (!compile(*--expr, arg))
+				return NULL;
+		STUFF(op_element, arg);
+		STUFF(count, arg);
+		return p;
+
+	default:
+		error(arg->sdl_arg_status_vector, gds_invalid_sdl,
+			  gds_arg_number, (SLONG) (p - arg->sdl_arg_sdl - 1), 0);
+		return NULL;
+	}
+}
+
+
+static STATUS error(STATUS * status_vector, ...)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an error sequence to the status vector.  Since an error
+ *	sequence can, in theory, be arbitrarily lock, pull a cheap
+ *	trick to get the address of the argument vector.
+ *
+ **************************************/
+	va_list args;
+	STATUS *p;
+	int type;
+
+/* Get the addresses of the argument vector and the status vector, and do
+   word-wise copy. */
+
+	VA_START(args, status_vector);
+	p = status_vector;
+
+/* Copy first argument */
+
+	*p++ = gds_arg_gds;
+	*p++ = va_arg(args, STATUS);
+
+/* Pick up remaining args */
+
+	while (*p++ = type = va_arg(args, int))
+		switch (type) {
+		case gds_arg_gds:
+			*p++ = (STATUS) va_arg(args, STATUS);
+			break;
+
+		case gds_arg_string:
+		case gds_arg_interpreted:
+			*p++ = (STATUS) va_arg(args, TEXT *);
+			break;
+
+/****
+	case gds_arg_cstring:
+	    *p++ = (STATUS) va_arg (args, int);
+	    *p++ = (STATUS) va_arg (args, TEXT*);
+	    break;
+****/
+
+		case gds_arg_number:
+			*p++ = va_arg(args, SLONG);
+			break;
+
+		default:
+			assert(FALSE);
+		case gds_arg_vms:
+		case gds_arg_unix:
+		case gds_arg_domain:
+			*p++ = va_arg(args, int);
+			break;
+		}
+
+	return status_vector[1];
+}
+
+
+static BOOLEAN execute(SDL_ARG arg)
+{
+/**************************************
+ *
+ *	e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute compiled slice description language.
+ *
+ **************************************/
+	SLONG *variables, *variable, stack[64], *stack_ptr,
+		value, count, n, subscript, x;
+	IPTR *next;
+	ADS array_desc;
+	DSC element_desc;
+	ads::ads_repeat * range;
+	ads::ads_repeat * range_end;
+	DSC *slice_desc;
+
+	array_desc = arg->sdl_arg_desc;
+	range_end = array_desc->ads_rpt + array_desc->ads_dimensions;
+	variables = arg->sdl_arg_variables;
+	next = arg->sdl_arg_compiled;
+	stack_ptr = stack + 64;
+
+	for (;;) {
+		x = *next++;
+		switch (x) {
+		case op_literal:
+			*--stack_ptr = *next++;
+			break;
+
+		case op_variable:
+			*--stack_ptr = variables[*next++];
+			break;
+
+		case op_add:
+			value = *stack_ptr++;
+			*stack_ptr += value;
+			break;
+
+		case op_subtract:
+			value = *stack_ptr++;
+			*stack_ptr -= value;
+			break;
+
+		case op_multiply:
+			value = *stack_ptr++;
+			*stack_ptr *= value;
+			break;
+
+		case op_divide:
+			value = *stack_ptr++;
+			*stack_ptr /= value;
+			break;
+
+		case op_goto:
+			next = (IPTR *) * next;
+			break;
+
+		case op_loop:
+			variable = variables + next[1];
+			*variable = *stack_ptr++;
+			if (*variable > stack_ptr[1]) {
+				next = (IPTR *) next[2];
+				stack_ptr += 2;
+			}
+			else
+				next += 3;
+			break;
+
+		case op_iterate:
+			variable = variables + next[0];
+			*variable += *stack_ptr;
+			if (*variable > stack_ptr[1]) {
+				next = (IPTR *) next[1];
+				stack_ptr += 2;
+			}
+			else
+				next += 2;
+			break;
+
+		case op_scalar:
+			value = *next++;
+			next++;				/* Skip count, unsupported. */
+			for (range = array_desc->ads_rpt, subscript = 0;
+				 range < range_end; ++range) {
+				n = *stack_ptr++;
+				if (n < range->ads_lower || n > range->ads_upper) {
+					error(arg->sdl_arg_status_vector, gds_out_of_bounds, 0);
+					return FALSE;
+				}
+				subscript += (n - range->ads_lower) * range->ads_length;
+			}
+			element_desc = array_desc->ads_rpt[value].ads_desc;
+			element_desc.dsc_address = (BLOB_PTR *) arg->sdl_arg_array +
+				(SLONG) element_desc.dsc_address +
+				(array_desc->ads_element_length * subscript);
+
+			/* Is this element within the array bounds? */
+			assert((BLOB_PTR *) element_desc.dsc_address >=
+				   (BLOB_PTR *) arg->sdl_arg_array);
+			assert((BLOB_PTR *) element_desc.dsc_address +
+				   element_desc.dsc_length <=
+				   (BLOB_PTR *) arg->sdl_arg_array +
+				   array_desc->ads_total_length);
+			break;
+
+		case op_element:
+			count = *next++;
+			if (arg->sdl_arg_argument->slice_direction) {
+				/* Storing INTO array */
+
+#pragma FB_COMPILER_MESSAGE("Fix. Bad function pointer cast.")
+
+				((void (*)(...)) (*arg->sdl_arg_callback)) (arg->sdl_arg_argument,
+															count,
+															&element_desc);
+			}
+			else {
+				/* Fetching FROM array */
+
+				if ((BLOB_PTR *) element_desc.dsc_address <
+					(BLOB_PTR *) arg->sdl_arg_argument->slice_high_water) {
+
+#pragma FB_COMPILER_MESSAGE("Fix. Bad function pointer cast.")
+
+					((void (*)(...)) (*arg->sdl_arg_callback)) (arg->sdl_arg_argument,
+																count,
+																&element_desc);
+				}
+				else {
+					slice_desc = &arg->sdl_arg_argument->slice_desc;
+					slice_desc->dsc_address +=
+						arg->sdl_arg_argument->slice_element_length;
+				}
+			}
+			break;
+
+		case op_exit:
+			return TRUE;
+
+		default:
+			assert(FALSE);
+			return FALSE;
+		}
+	}
+}
+
+
+static UCHAR *get_range(UCHAR * sdl, RNG arg, SLONG * min, SLONG * max)
+{
+/**************************************
+ *
+ *	g e t _ r a n g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyse a piece of slice description language to get bounds
+ *	of array references.
+ *
+ **************************************/
+	SLONG n, variable, value, min1, max1, min2, max2, junk1, junk2;
+	UCHAR *p, op;
+	SDL_INFO info;
+
+	p = sdl;
+
+	switch (op = *p++) {
+	case gds_sdl_do1:
+	case gds_sdl_do2:
+	case gds_sdl_do3:
+		variable = *p++;
+		if (op == gds_sdl_do1)
+			arg->rng_minima[variable] = 1;
+		else {
+			if (!(p = get_range(p, arg, &arg->rng_minima[variable], &junk1)))
+				return NULL;
+		}
+		if (!(p = get_range(p, arg, &junk1, &arg->rng_maxima[variable])))
+			return NULL;
+		if (op == gds_sdl_do3) {
+			if (!(p = get_range(p, arg, &junk1, &junk2)))
+				return NULL;
+		}
+		return get_range(p, arg, min, max);
+
+	case gds_sdl_variable:
+		variable = *p++;
+		*min = arg->rng_minima[variable];
+		*max = arg->rng_maxima[variable];
+		return p;
+
+	case gds_sdl_tiny_integer:
+		value = (SCHAR) * p++;
+		*min = *max = value;
+		return p;
+
+	case gds_sdl_short_integer:
+		value = (SSHORT) (p[0] | (p[1] << 8));
+		*min = *max = value;
+		return p + 2;
+
+	case gds_sdl_long_integer:
+		value =
+			(SLONG) (p[0] | (p[1] << 8) | ((SLONG) p[2] << 16) |
+					 ((SLONG) p[3] << 24));
+		*min = *max = value;
+		return p + 4;
+
+	case gds_sdl_add:
+	case gds_sdl_subtract:
+	case gds_sdl_multiply:
+	case gds_sdl_divide:
+		if (!(p = get_range(p, arg, &min1, &max1)))
+			return NULL;
+		if (!(p = get_range(p, arg, &min2, &max2)))
+			return NULL;
+		switch (op) {
+		case gds_sdl_add:
+			*min = min1 + min2;
+			*max = max1 + max2;
+			break;
+
+		case gds_sdl_subtract:
+			*min = min1 - max2;
+			*max = max1 - min2;
+			break;
+
+		case gds_sdl_multiply:
+			*min = min1 * min2;
+			*max = max1 * max2;
+			break;
+
+		case gds_sdl_divide:
+			return NULL;
+		}
+		return p;
+
+	case gds_sdl_scalar:
+		p++;
+		info = arg->rng_info;
+		info->sdl_info_dimensions = *p++;
+		for (n = 0; n < info->sdl_info_dimensions; n++)
+			if (!
+				(p =
+				 get_range(p, arg, &info->sdl_info_lower[n],
+						   &info->sdl_info_upper[n]))) return NULL;
+		return p;
+
+	case gds_sdl_element:
+		for (n = *p++; n; --n)
+			if (!(p = get_range(p, arg, min, max)))
+				return NULL;
+		return p;
+
+	default:
+		assert(FALSE);
+		return NULL;
+	}
+}
+
+
+static SSHORT get_word(UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	g e t _ w o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	UCHAR *p;
+	SSHORT n;
+
+	p = *ptr;
+	n = p[0] | (p[1] << 8);
+	*ptr += 2;
+
+	return n;
+}
+
+
+static UCHAR *sdl_desc(UCHAR * ptr, DSC * desc)
+{
+/**************************************
+ *
+ *	s d l _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse BLR descriptor into internal descriptor.
+ *	Return updated pointer is successful, otherwise NULL.
+ *
+ **************************************/
+	UCHAR *sdl;
+
+	sdl = ptr;
+	desc->dsc_scale = 0;
+	desc->dsc_length = 0;
+	desc->dsc_sub_type = 0;
+	desc->dsc_flags = 0;
+
+	switch (*sdl++) {
+	case blr_text2:
+		desc->dsc_dtype = dtype_text;
+		INTL_ASSIGN_TTYPE(desc, get_word(&sdl));
+		break;
+
+	case blr_text:
+		desc->dsc_dtype = dtype_text;
+		INTL_ASSIGN_TTYPE(desc, ttype_dynamic);
+		desc->dsc_flags |= DSC_no_subtype;
+		break;
+
+	case blr_cstring2:
+		desc->dsc_dtype = dtype_cstring;
+		INTL_ASSIGN_TTYPE(desc, get_word(&sdl));
+		break;
+
+	case blr_cstring:
+		desc->dsc_dtype = dtype_cstring;
+		INTL_ASSIGN_TTYPE(desc, ttype_dynamic);
+		desc->dsc_flags |= DSC_no_subtype;
+		break;
+
+	case blr_varying2:
+		desc->dsc_dtype = dtype_cstring;
+		INTL_ASSIGN_TTYPE(desc, get_word(&sdl));
+		desc->dsc_length = sizeof(USHORT);
+		break;
+
+	case blr_varying:
+		desc->dsc_dtype = dtype_cstring;
+		INTL_ASSIGN_TTYPE(desc, ttype_dynamic);
+		desc->dsc_length = sizeof(USHORT);
+		desc->dsc_flags |= DSC_no_subtype;
+		break;
+
+	case blr_short:
+		desc->dsc_dtype = dtype_short;
+		desc->dsc_length = sizeof(SSHORT);
+		break;
+
+	case blr_long:
+		desc->dsc_dtype = dtype_long;
+		desc->dsc_length = sizeof(SLONG);
+		break;
+
+	case blr_int64:
+		desc->dsc_dtype = dtype_int64;
+		desc->dsc_length = sizeof(SINT64);
+		break;
+
+	case blr_quad:
+		desc->dsc_dtype = dtype_quad;
+		desc->dsc_length = sizeof(GDS__QUAD);
+		break;
+
+	case blr_float:
+		desc->dsc_dtype = dtype_real;
+		desc->dsc_length = sizeof(float);
+		break;
+
+	case blr_double:
+#ifndef VMS
+	case blr_d_float:
+#endif
+		desc->dsc_dtype = dtype_double;
+		desc->dsc_length = sizeof(double);
+		break;
+
+#ifdef VMS
+	case blr_d_float:
+		desc->dsc_dtype = dtype_d_float;
+		desc->dsc_length = sizeof(double);
+		break;
+#endif
+
+	case blr_timestamp:
+		desc->dsc_dtype = dtype_timestamp;
+		desc->dsc_length = sizeof(GDS__QUAD);
+		break;
+
+	case blr_sql_date:
+		desc->dsc_dtype = dtype_sql_date;
+		desc->dsc_length = sizeof(SLONG);
+		break;
+
+	case blr_sql_time:
+		desc->dsc_dtype = dtype_sql_time;
+		desc->dsc_length = sizeof(ULONG);
+		break;
+
+	default:
+		assert(FALSE);
+		return NULL;
+	}
+
+	switch (desc->dsc_dtype) {
+	case dtype_short:
+	case dtype_long:
+	case dtype_quad:
+		desc->dsc_scale = *((SCHAR *) sdl);
+		++sdl;
+		break;
+
+	case dtype_text:
+	case dtype_cstring:
+	case dtype_varying:
+		desc->dsc_length += get_word(&sdl);
+		break;
+
+	default:
+		break;
+	}
+
+	return sdl;
+}
+
+
+static IPTR *stuff(IPTR value, SDL_ARG arg)
+{
+/**************************************
+ *
+ *	s t u f f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stuff a longword into the compiled code space.
+ *
+ **************************************/
+
+	if (!arg)
+		return (IPTR *) TRUE;
+
+	if (arg->sdl_arg_next >= arg->sdl_arg_end)
+		error(arg->sdl_arg_status_vector, gds_virmemexh, gds_arg_end);
+	/* unable to allocate memory from operating system */
+
+	*(arg->sdl_arg_next)++ = value;
+
+	return arg->sdl_arg_next - 1;
+}
diff --git a/src/jrd/sdl.h b/src/jrd/sdl.h
new file mode 100644
index 0000000000..d1a3668d78
--- /dev/null
+++ b/src/jrd/sdl.h
@@ -0,0 +1,48 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sdl.h
+ *	DESCRIPTION:	Interface definitions for array handler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SDL_H_
+#define _JRD_SDL_H_
+
+typedef struct sdl_info {
+	USHORT sdl_info_fid;
+	USHORT sdl_info_rid;
+	TEXT sdl_info_field[32];
+	TEXT sdl_info_relation[32];
+	DSC sdl_info_element;
+	USHORT sdl_info_dimensions;
+	SLONG sdl_info_lower[16];
+	SLONG sdl_info_upper[16];
+} *SDL_INFO;
+
+typedef struct slice {
+	DSC slice_desc;
+	BLOB_PTR *slice_end;
+	BLOB_PTR *slice_high_water;
+	BLOB_PTR *slice_base;
+	USHORT slice_element_length;
+	USHORT slice_direction;
+	SLONG slice_count;
+} *SLICE;
+
+#endif /* _JRD_SDL_H_ */
diff --git a/src/jrd/sdl_proto.h b/src/jrd/sdl_proto.h
new file mode 100644
index 0000000000..4c1843a777
--- /dev/null
+++ b/src/jrd/sdl_proto.h
@@ -0,0 +1,36 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sdl_proto.h
+ *	DESCRIPTION:	Prototype header file for sdl.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SDL_PROTO_H_
+#define _JRD_SDL_PROTO_H_
+
+extern SLONG DLL_EXPORT SDL_compute_subscript(STATUS *, struct ads *, USHORT,
+											  SLONG *);
+extern STATUS API_ROUTINE SDL_info(STATUS *, UCHAR *, struct sdl_info *,
+								   SLONG *);
+extern UCHAR *DLL_EXPORT SDL_prepare_slice(UCHAR *, USHORT);
+extern int DLL_EXPORT SDL_walk(STATUS *, UCHAR *, USHORT, UCHAR *,
+							   struct ads *, SLONG *, FPTR_VOID,
+							   struct slice *);
+
+#endif /* _JRD_SDL_PROTO_H_ */
diff --git a/src/jrd/sdw.cpp b/src/jrd/sdw.cpp
new file mode 100644
index 0000000000..972e5baa25
--- /dev/null
+++ b/src/jrd/sdw.cpp
@@ -0,0 +1,1362 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sdw.c
+ *	DESCRIPTION:	Disk Shadowing Manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/ib_stdio.h"
+
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/jrd.h"
+#include "../jrd/lck.h"
+#include "../jrd/ods.h"
+#include "../jrd/cch.h"
+#include "../jrd/codes.h"
+#include "../jrd/jrn.h"
+#include "../jrd/lls.h"
+#include "../jrd/req.h"
+#include "../jrd/pio.h"
+#include "../jrd/all.h"
+#include "../jrd/sdw.h"
+#include "../jrd/sbm.h"
+#include "../jrd/flags.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/pag_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/sdw_proto.h"
+#include "../jrd/thd_proto.h"
+
+
+extern "C" {
+
+
+static void activate_shadow(void);
+static SDW allocate_shadow(struct fil *, USHORT, USHORT);
+static BOOLEAN check_for_file(SCHAR *, USHORT);
+static void check_if_got_ast(struct fil *);
+static void copy_header(void);
+static void update_dbb_to_sdw(struct dbb *);
+
+
+void SDW_add(TEXT * file_name, USHORT shadow_number, USHORT file_flags)
+{
+/**************************************
+ *
+ *	S D W _ a d d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a brand new shadowing file to the database.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	FIL shadow_file;
+	SDW shadow;
+	WIN window;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = GET_DBB;
+
+	shadow_file = PIO_create(dbb, file_name, strlen(file_name), FALSE);
+
+	if (dbb->dbb_flags & DBB_force_write)
+		PIO_force_write(shadow_file, TRUE);
+
+	shadow = allocate_shadow(shadow_file, shadow_number, file_flags);
+
+/* dump out the header page, even if it is a conditional 
+   shadow--the page will be fixed up properly */
+
+	if (shadow->sdw_flags & SDW_conditional)
+		shadow->sdw_flags &= ~SDW_conditional;
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+	CCH_write_all_shadows(tdbb, 0, window.win_bdb,
+						  tdbb->tdbb_status_vector, 1, FALSE);
+	CCH_RELEASE(tdbb, &window);
+	if (file_flags & FILE_conditional)
+		shadow->sdw_flags |= SDW_conditional;
+}
+
+
+int SDW_add_file(TEXT * file_name, SLONG start, USHORT shadow_number)
+{
+/**************************************
+ *
+ *	S D W _ a d d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a file to a shadow set.
+ *	Return the sequence number for the new file.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	FIL shadow_file, next, file;
+	SDW shadow;
+	struct bdb temp_bdb;
+	HDR header;
+	SLONG sequence;
+	SCHAR *spare_buffer = NULL, *spare_page;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* Find the file to be extended */
+
+	for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+		if ((shadow->sdw_number == shadow_number) &&
+			!(shadow->sdw_flags & (SDW_IGNORE | SDW_rollover))) {
+			shadow_file = shadow->sdw_file;
+			break;
+		}
+
+	if (!shadow)
+		return 0;
+
+/* find the last file in the list, open the new file */
+
+	for (file = shadow_file; file->fil_next; file = file->fil_next);
+	if (!(sequence = PIO_add_file(dbb, shadow_file, file_name, start)))
+		return 0;
+
+	next = file->fil_next;
+
+	if (dbb->dbb_flags & DBB_force_write)
+		PIO_force_write(next, TRUE);
+
+/* Always write the header page, even for a conditional
+ * shadow that hasn't been activated.
+ */
+
+/* allocate a spare buffer which is large enough,
+   and set up to release it in case of error. Align
+   the spare page buffer for raw disk access. */
+
+	spare_buffer =
+		ALL_malloc((SLONG) dbb->dbb_page_size + MIN_PAGE_SIZE, ERR_jmp);
+	spare_page =
+		(SCHAR *) (((U_IPTR) spare_buffer + MIN_PAGE_SIZE - 1) &
+				   ~((U_IPTR) MIN_PAGE_SIZE - 1));
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (spare_buffer)
+			ALL_free(spare_buffer);
+		ERR_punt();
+	}
+
+/* create the header using the spare_buffer */
+
+	header = (HDR) spare_page;
+	header->hdr_header.pag_type = pag_header;
+	header->hdr_sequence = sequence;
+	header->hdr_page_size = dbb->dbb_page_size;
+	header->hdr_data[0] = HDR_end;
+	header->hdr_end = HDR_SIZE;
+	header->hdr_next_page = 0;
+
+/* fool PIO_write into writing the scratch page into the correct place */
+
+	temp_bdb.bdb_page = next->fil_min_page;
+	temp_bdb.bdb_dbb = dbb;
+	temp_bdb.bdb_buffer = (PAG) header;
+	header->hdr_header.pag_checksum = CCH_checksum(&temp_bdb);
+	if (!PIO_write
+		(shadow_file, &temp_bdb, reinterpret_cast < pag * >(header), 0)) {
+		if (spare_buffer)
+			ALL_free(spare_buffer);
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		return 0;
+	}
+	next->fil_fudge = 1;
+
+/* Update the previous header page to point to new file --
+   we can use the same header page, suitably modified,  
+   because they all look pretty much the same at this point */
+
+/*******************
+   Fix for bug 7925. drop_gdb wan not dropping secondary file in 
+   multi-shadow files. The structure was not being filled with the
+   info. Commented some code so that the structure will always
+   be filled.
+
+	-Sudesh 07/06/95
+
+   The original code :
+===
+if (shadow_file == file)
+    copy_header();
+else
+===
+************************/
+/** Tempeorarly reverting the change ------- Sudesh 07/07/95 *******/
+	if (shadow_file == file)
+		copy_header();
+	else {
+		--start;
+		header->hdr_data[0] = HDR_end;
+		header->hdr_end = HDR_SIZE;
+		header->hdr_next_page = 0;
+
+		PAG_add_header_entry(header, HDR_file, strlen(file_name),
+							 reinterpret_cast < UCHAR * >(file_name));
+		PAG_add_header_entry(header, HDR_last_page, sizeof(start),
+							 (UCHAR *) & start);
+		file->fil_fudge = 0;
+		temp_bdb.bdb_page = file->fil_min_page;
+		header->hdr_header.pag_checksum = CCH_checksum(&temp_bdb);
+		if (!PIO_write
+			(shadow_file, &temp_bdb, reinterpret_cast < pag * >(header), 0)) {
+			if (spare_buffer)
+				ALL_free(spare_buffer);
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			return 0;
+		}
+		if (file->fil_min_page)
+			file->fil_fudge = 1;
+	}
+
+	if (file->fil_min_page)
+		file->fil_fudge = 1;
+
+	if (spare_buffer)
+		ALL_free(spare_buffer);
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	return sequence;
+}
+
+
+void SDW_check(void)
+{
+/**************************************
+ *
+ *	S D W _ c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check a shadow to see if it needs to 
+ *	be deleted or shut down.
+ *
+ **************************************/
+	SDW shadow, next_shadow;
+	BOOLEAN start_conditional = TRUE;
+	TDBB tdbb;
+	DBB dbb;
+	LCK lock;
+
+	dbb = GET_DBB;
+	tdbb = GET_THREAD_DATA;
+
+/* first get rid of any shadows that need to be 
+   deleted or shutdown; deleted shadows must also
+   be shutdown 
+
+   Check to see if there is a valid shadow in the shadow set,
+   if not then it is time to start an conditional shadow (if
+   one has been defined). */
+
+	for (shadow = dbb->dbb_shadow; shadow; shadow = next_shadow) {
+		next_shadow = shadow->sdw_next;
+
+		if (shadow->sdw_flags & SDW_delete) {
+			MET_delete_shadow(tdbb, shadow->sdw_number);
+			gds__log
+				("shadow %s deleted from database %s due to unavailability on write",
+				 shadow->sdw_file->fil_string, dbb->dbb_file->fil_string);
+		}
+
+		/* note that shutting down a shadow is destructive to 
+		   the shadow block */
+
+		if (shadow->sdw_flags & SDW_shutdown)
+			SDW_shutdown_shadow(shadow);
+	}
+	if (SDW_check_conditional()) {
+		if (SDW_lck_update((SLONG) 0)) {
+			lock = (LCK) ALLOCPV(type_lck, sizeof(SLONG));
+			lock->lck_dbb = dbb;
+			lock->lck_attachment = tdbb->tdbb_attachment;
+			lock->lck_length = sizeof(SLONG);
+			lock->lck_key.lck_long = -1;
+			lock->lck_type = LCK_update_shadow;
+			lock->lck_owner_handle =
+				LCK_get_owner_handle(tdbb, lock->lck_type);
+			lock->lck_parent = dbb->dbb_lock;
+			lock->lck_owner = (BLK) tdbb->tdbb_attachment;
+
+			LCK_lock(tdbb, lock, LCK_EX, FALSE);
+			if (lock->lck_physical == LCK_EX) {
+				SDW_notify();
+				SDW_dump_pages();
+				LCK_release(tdbb, lock);
+			}
+			ALL_release(reinterpret_cast < frb * >(lock));
+		}
+	}
+}
+
+
+BOOLEAN SDW_check_conditional(void)
+{
+/**************************************
+ *
+ *	S D W _ c h e c k _ c o n d i t i o n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check if a conditional shadow exists 
+ *	if so update meta data and return true
+ *
+ **************************************/
+	SDW shadow, next_shadow;
+	BOOLEAN start_conditional = TRUE;
+	USHORT file_flags;
+	DBB dbb;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* first get rid of any shadows that need to be 
+   deleted or shutdown; deleted shadows must also
+   be shutdown 
+
+   Check to see if there is a valid shadow in the shadow set,
+   if not then it is time to start an conditional shadow (if
+   one has been defined). */
+
+	for (shadow = dbb->dbb_shadow; shadow; shadow = next_shadow) {
+		next_shadow = shadow->sdw_next;
+
+		if (!(shadow->sdw_flags & (SDW_delete | SDW_shutdown)))
+			if (!(shadow->sdw_flags & SDW_INVALID)) {
+				start_conditional = FALSE;
+				break;
+			}
+	}
+
+/* if there weren't any conventional shadows, now is
+   the time to start the first conditional shadow in the list
+   Note that allocate_shadow keeps the sdw_next list sorted */
+
+	if (start_conditional)
+		for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+			if ((shadow->sdw_flags & SDW_conditional) &&
+				!(shadow->sdw_flags & (SDW_IGNORE | SDW_rollover))) {
+				shadow->sdw_flags &= ~SDW_conditional;
+
+				gds__log("conditional shadow %d %s activated for database %s",
+						 shadow->sdw_number, shadow->sdw_file->fil_string,
+						 dbb->dbb_file->fil_string);
+				file_flags = FILE_shadow;
+				if (shadow->sdw_flags & SDW_manual)
+					file_flags |= FILE_manual;
+				MET_update_shadow(tdbb, shadow, file_flags);
+				return TRUE;
+			}
+
+	return FALSE;
+}
+
+
+void SDW_close(void)
+{
+/**************************************
+ *
+ *	S D W _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close all disk shadowing files associated with
+ *	a database.
+ *
+ **************************************/
+	DBB dbb;
+	SDW shadow;
+
+	dbb = GET_DBB;
+
+	for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+		PIO_close(shadow->sdw_file);
+}
+
+
+void SDW_dump_pages(void)
+{
+/**************************************
+ *
+ *	S D W _ d u m p _ p a g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look for any shadow files that haven't been written yet.
+ *	Fetch pages from the database and write them
+ *	to all unwritten shadow files.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	SDW shadow;
+	WIN window;
+	SLONG page_number, max;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	window.win_flags = 0;
+	gds__log("conditional shadow dumped for database %s",
+			 dbb->dbb_file->fil_string);
+	max = PAG_last_page();
+
+/* mark the first shadow in the list because we don't
+   want to start shadowing to any files that are added
+   while we are in the middle of dumping pages */
+
+/* none of these pages should need any alteration
+   since header pages for extend files are not handled at this level */
+
+	window.win_flags = WIN_large_scan;
+	window.win_scans = 1;
+
+	for (page_number = HEADER_PAGE + 1; page_number <= max; page_number++) {
+#ifdef SUPERSERVER_V2
+		if (!(page_number % dbb->dbb_prefetch_sequence)) {
+			SLONG i, number, pages[PREFETCH_MAX_PAGES];
+
+			number = page_number;
+			for (i = 0; i < dbb->dbb_prefetch_pages && number <= max;)
+				pages[i++] = number++;
+
+			CCH_PREFETCH(tdbb, pages, i);
+		}
+#endif
+		for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+			if (!(shadow->sdw_flags & (SDW_INVALID | SDW_dumped))) {
+				window.win_page = page_number;
+
+				/* when copying a database, it is possible that there are some pages defined
+				   in the pip that were never actually written to disk, in the case of a faked
+				   page which was never written to disk because of a rollback; to prevent 
+				   checksum errors on this type of page, don't check for checksum when the 
+				   page type is 0 */
+
+				CCH_FETCH_NO_CHECKSUM(tdbb, &window, LCK_read, pag_undefined);
+				if (!CCH_write_all_shadows(tdbb, shadow, window.win_bdb,
+										   tdbb->tdbb_status_vector, 1,
+										   FALSE)) {
+					CCH_RELEASE(tdbb, &window);
+					ERR_punt();
+				}
+				if (shadow->sdw_next)
+					CCH_RELEASE(tdbb, &window);
+				else
+					CCH_RELEASE_TAIL(tdbb, &window);
+			}
+	}
+
+/* mark all shadows seen to this point as dumped */
+
+	for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+		if (!(shadow->sdw_flags & SDW_INVALID))
+			shadow->sdw_flags |= SDW_dumped;
+}
+
+
+
+void SDW_get_shadows(void)
+{
+/**************************************
+ *
+ *	S D W _ g e t _ s h a d o w s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get any new shadows that have been
+ *	defined.
+ *
+ **************************************/
+	DBB dbb;
+	LCK lock;
+	HDR header;
+	WIN window;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* unless we have one, get a shared lock to ensure that we don't miss any
+   signals */
+
+	dbb->dbb_ast_flags &= ~DBB_get_shadows;
+
+	lock = dbb->dbb_shadow_lock;
+
+	if (lock->lck_physical != LCK_SR) {
+		/* assert (lock->lck_physical == LCK_none); */
+
+		window.win_page = HEADER_PAGE;
+		window.win_flags = 0;
+		header = (HDR) CCH_FETCH(tdbb, &window, LCK_read, pag_header);
+		lock->lck_key.lck_long = header->hdr_shadow_count;
+		LCK_lock(tdbb, lock, LCK_SR, TRUE);
+		CCH_RELEASE(tdbb, &window);
+	}
+
+/* get all new shadow files, marking that we looked at them first
+   to prevent missing any new ones later on, although it does not
+   matter for the purposes of the current page being written */
+
+	MET_get_shadow_files(tdbb, FALSE);
+}
+
+
+
+
+void SDW_init(USHORT activate, USHORT delete_, SBM sbm_rec)
+{
+/**************************************
+ *
+ *	S D W _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize shadowing by opening all shadow files and
+ *	getting a lock on the semaphore for disk shadowing. 
+ *	When anyone tries to get an exclusive lock on this 
+ *	semaphore, it is a signal to check for a new file 
+ *	to use as a shadow.
+ *
+ **************************************/
+	DBB dbb;
+	LCK lock;
+	HDR header;
+	WIN window;
+	USHORT key_length;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* set up the lock block for synchronizing addition of new shadows */
+
+	key_length = sizeof(header->hdr_shadow_count);
+	dbb->dbb_shadow_lock = lock = (LCK) ALLOCPV(type_lck, key_length);
+	lock->lck_type = LCK_shadow;
+	lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+	lock->lck_parent = dbb->dbb_lock;
+	lock->lck_length = key_length;
+	lock->lck_dbb = dbb;
+	lock->lck_object = (BLK) dbb;
+	lock->lck_ast = reinterpret_cast < int (*) () > (SDW_start_shadowing);
+
+	if (activate)
+		activate_shadow();
+
+/* get current shadow lock count from database header page */
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_read, pag_header);
+	lock->lck_key.lck_long = header->hdr_shadow_count;
+	LCK_lock(tdbb, lock, LCK_SR, TRUE);
+	CCH_RELEASE(tdbb, &window);
+
+	MET_get_shadow_files(tdbb, delete_);
+	CCH_recover_shadow(tdbb, sbm_rec);
+}
+
+
+BOOLEAN SDW_lck_update(SLONG sdw_update_flags)
+{
+/**************************************
+ *
+ *	 S D W _ l c k _ u p d a t e	
+ *
+ **************************************
+ *
+ * Functional description
+ *  update the lck struct with the flag 
+ *  The update type flag indicates the type fo corrective action
+ *  to be taken by the ASTs of other procs attached to this DB.	
+ *	
+ *  A non zero sdw_update_flag is passed, it indicates error handling
+ *  Two processes may encounter the SDW array at the same time
+ *  and both will want to perform corrective action. Only one should
+ *  be allowed. For that, 
+ *		check if current data is zero, else return
+ *  	write the pid into the lock data, read back to verify
+ *      if pid is different, another process has updated behind you, so
+ *		let him handle it and return
+ *  	Update the data with sdw_update_flag passed to the function
+ *
+ **************************************/
+	DBB dbb;
+	LCK lock;
+
+	dbb = GET_DBB;
+	if (!(lock = dbb->dbb_shadow_lock))
+		return FALSE;
+
+	if (lock->lck_physical != LCK_SR) {
+		/* assert (lock->lck_physical == LCK_none); */
+		return FALSE;
+	}
+
+	if (!sdw_update_flags) {
+		if (LCK_read_data(lock))
+			return FALSE;
+		else
+			return TRUE;
+	}
+
+	if (LCK_read_data(lock))
+		return FALSE;
+
+	LCK_write_data(lock, lock->lck_id);
+	if (LCK_read_data(lock) != lock->lck_id)
+		return FALSE;
+
+	LCK_write_data(lock, sdw_update_flags);
+	return TRUE;
+}
+
+
+void SDW_notify(void)
+{
+/**************************************
+ *
+ *	S D W _ n o t i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Notify other processes that there has been
+ *	a shadow added.
+ *
+ **************************************/
+	DBB dbb;
+	LCK lock;
+	HDR header;
+	WIN window;
+	JRNDA record;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* get current shadow lock count from database header page --
+   note that since other processes need the header page to issue locks
+   on the shadow count, this is effectively an uninterruptible operation */
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+
+/* get an exclusive lock on the current shadowing semaphore to
+   notify other processes to find my shadow -- if we have a shared
+   on it already, convert to exclusive */
+
+	lock = dbb->dbb_shadow_lock;
+
+	if (lock->lck_physical == LCK_SR) {
+		if (lock->lck_key.lck_long != header->hdr_shadow_count)
+			BUGCHECK(162);		/* msg 162 shadow lock not synchronized properly */
+		LCK_convert(tdbb, lock, LCK_EX, TRUE);
+	}
+	else {
+		lock->lck_key.lck_long = header->hdr_shadow_count;
+		LCK_lock(tdbb, lock, LCK_EX, TRUE);
+	}
+
+	LCK_release(tdbb, lock);
+
+/* now get a shared lock on the incremented shadow count to ensure that
+   we will get notification of the next shadow add */
+
+	lock->lck_key.lck_long = ++(header->hdr_shadow_count);
+	LCK_lock(tdbb, lock, LCK_SR, TRUE);
+	if (dbb->dbb_wal) {
+		record.jrnda_type = JRNP_DB_HDR_SDW_COUNT;
+		record.jrnda_data = header->hdr_shadow_count;
+		CCH_journal_record(tdbb, &window,
+						   reinterpret_cast < UCHAR * >(&record), JRNDA_SIZE,
+						   0, 0);
+	}
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+BOOLEAN SDW_rollover_to_shadow(FIL file, BOOLEAN inAst)
+{
+/**************************************
+ *
+ *	S D W _ r o l l o v e r _ t o _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SDW shadow;
+	BOOLEAN start_conditional = FALSE;
+	SLONG sdw_update_flags = SDW_rollover;
+	TDBB tdbb;
+	DBB dbb;
+	LCK shadow_lock, update_lock;
+	struct lck temp_lock;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = GET_DBB;
+
+	if (file != dbb->dbb_file)
+		return TRUE;
+
+	update_lock = &temp_lock;
+	MOVE_CLEAR(update_lock, sizeof(struct lck));
+	update_lock->lck_header.blk_type = type_lck;
+	update_lock->lck_dbb = dbb;
+	update_lock->lck_attachment = tdbb->tdbb_attachment;
+	update_lock->lck_length = sizeof(SLONG);
+	update_lock->lck_key.lck_long = -1;
+	update_lock->lck_type = LCK_update_shadow;
+	update_lock->lck_owner_handle =
+		LCK_get_owner_handle(tdbb, update_lock->lck_type);
+	update_lock->lck_parent = dbb->dbb_lock;
+	update_lock->lck_owner = (BLK) tdbb->tdbb_attachment;
+
+	LCK_lock(tdbb, update_lock, LCK_EX, LCK_NO_WAIT);
+	if (update_lock->lck_physical != LCK_EX ||
+		file != dbb->dbb_file || !SDW_lck_update(sdw_update_flags)) {
+		LCK_release(tdbb, update_lock);
+		LCK_lock(tdbb, update_lock, LCK_SR, LCK_NO_WAIT);
+		while (update_lock->lck_physical != LCK_SR) {
+			if (dbb->dbb_ast_flags & DBB_get_shadows)
+				break;
+			if ((file != dbb->dbb_file) || !dbb->dbb_shadow_lock)
+				break;
+			LCK_lock(tdbb, update_lock, LCK_SR, LCK_NO_WAIT);
+		}
+
+		if (update_lock->lck_physical == LCK_SR)
+			LCK_release(tdbb, update_lock);
+		return TRUE;
+	}
+
+/* check the various status flags to see if there
+   is a valid shadow to roll over to */
+
+	for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next) {
+		if (!(shadow->sdw_flags & SDW_dumped))
+			continue;
+		if (!(shadow->sdw_flags & SDW_INVALID))
+			break;
+	}
+
+	if (!shadow) {
+		LCK_release(tdbb, update_lock);
+		return FALSE;
+	}
+
+	if (file != dbb->dbb_file) {
+		LCK_release(tdbb, update_lock);
+		return TRUE;
+	}
+
+/* close the main database file if possible
+   and release all file blocks */
+
+	PIO_close(dbb->dbb_file);
+
+	while (file = dbb->dbb_file) {
+		dbb->dbb_file = file->fil_next;
+		ALL_release(reinterpret_cast < frb * >(file));
+	}
+
+/* point the main database file at the file of the first shadow
+   in the list and mark that shadow as rolled over to
+   so that we won't write to it twice -- don't remove
+   this shadow from the linked list of shadows because
+   that would cause us to create a new shadow block for
+   it the next time we do a MET_get_shadow_files () */
+
+	dbb->dbb_file = shadow->sdw_file;
+	shadow->sdw_flags |= SDW_rollover;
+
+	shadow_lock = dbb->dbb_shadow_lock;
+
+/* check conditional does a meta data update - since we were
+   successfull updating LCK_data we will be the only one doing so */
+
+	if (!inAst) {
+		if (start_conditional = SDW_check_conditional()) {
+			sdw_update_flags = (SDW_rollover | SDW_conditional);
+			LCK_write_data(shadow_lock, sdw_update_flags);
+		}
+	}
+
+	SDW_notify();
+	LCK_write_data(shadow_lock, (SLONG) 0);
+	LCK_release(tdbb, shadow_lock);
+	ALL_release(reinterpret_cast < frb * >(shadow_lock));
+	dbb->dbb_shadow_lock = 0;
+	LCK_release(tdbb, update_lock);
+	if (start_conditional && !inAst) {
+		CCH_unwind(tdbb, FALSE);
+		SDW_dump_pages();
+		ERR_post(gds__deadlock, 0);
+	}
+
+	return TRUE;
+}
+
+
+void SDW_shutdown_shadow(SDW shadow)
+{
+/**************************************
+ *
+ *	S D W _ s h u t d o w n _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stop shadowing to a given shadow number.
+ *
+ **************************************/
+	DBB dbb;
+	SDW *ptr;
+	FIL file, free;
+
+	dbb = GET_DBB;
+
+/* find the shadow block and delete it from linked list */
+
+	for (ptr = &dbb->dbb_shadow; *ptr; ptr = &(*ptr)->sdw_next)
+		if (*ptr == shadow) {
+			*ptr = shadow->sdw_next;
+			break;
+		}
+
+/* close the shadow files and free up the associated memory */
+
+	if (shadow) {
+		PIO_close(shadow->sdw_file);
+		for (free = shadow->sdw_file; file = free->fil_next; free = file)
+			ALL_release(reinterpret_cast < frb * >(free));
+		ALL_release(reinterpret_cast < frb * >(free));
+		ALL_release(reinterpret_cast < frb * >(shadow));
+	}
+}
+
+
+void SDW_start(
+			   TEXT * file_name,
+			   USHORT shadow_number, USHORT file_flags, USHORT delete_)
+{
+/**************************************
+ *
+ *	S D W _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commence shadowing on a previously created shadow file.
+ *
+ *	<delete_> is TRUE if we are not actually starting shadowing,
+ *	but deleting inaccessible shadow files.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	SDW shadow;
+	int length, expanded_length, string_length;
+	SCHAR expanded_name[MAX_PATH_LENGTH];
+	UCHAR *p;
+	FIL dbb_file, shadow_file = 0;
+	JMP_BUF env, *old_env;
+	WIN window;
+	HDR database_header, shadow_header;
+	VOLATILE USHORT header_fetched = 0;
+	SLONG *spare_buffer = NULL, *spare_page;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+/* check that this shadow has not already been started,
+   (unless it is marked as invalid, in which case it may
+   be an old shadow of the same number) */
+
+	for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+		if ((shadow->sdw_number == shadow_number) &&
+			!(shadow->sdw_flags & SDW_INVALID)) return;
+
+	for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next)
+		if (shadow->sdw_number == shadow_number)
+			break;
+
+/* check to see if the shadow is the same as the current database --
+   if so, a shadow file is being accessed as a database */
+
+	length = strlen(file_name);
+	expanded_length = PIO_expand(file_name, (USHORT) length, expanded_name);
+	dbb_file = dbb->dbb_file;
+
+	if (dbb_file && dbb_file->fil_string &&
+		!strcmp(dbb_file->fil_string, expanded_name)) {
+		if (shadow && (shadow->sdw_flags & SDW_rollover))
+			return;
+		else
+			ERR_post(gds__shadow_accessed, 0);
+	}
+
+/* catch errors: delete the shadow file if missing,
+   and deallocate the spare buffer */
+
+	shadow = NULL;
+	spare_buffer =
+		(SLONG *) ALL_malloc((SLONG) dbb->dbb_page_size + MIN_PAGE_SIZE,
+							 ERR_jmp);
+	spare_page = reinterpret_cast < SLONG * >((SCHAR *)
+											  
+											  (((U_IPTR)
+												spare_buffer + MIN_PAGE_SIZE -
+												1) & ~((U_IPTR) MIN_PAGE_SIZE
+													   - 1)));
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (header_fetched)
+			CCH_RELEASE(tdbb, &window);
+		if (shadow_file) {
+			PIO_close(shadow_file);
+			ALL_release(reinterpret_cast < frb * >(shadow_file));
+		}
+		if (spare_buffer)
+			ALL_free(reinterpret_cast < char *>(spare_buffer));
+		if (file_flags & FILE_manual && !delete_)
+			ERR_post(gds__shadow_missing, gds_arg_number,
+					 (SLONG) shadow_number, 0);
+		else {
+			MET_delete_shadow(tdbb, shadow_number);
+			gds__log
+				("shadow %s deleted from database %s due to unavailability on attach",
+				 expanded_name, dbb_file->fil_string);
+		}
+		return;
+	}
+
+	shadow_file =
+		PIO_open(dbb, expanded_name, expanded_length, FALSE, 0, file_name,
+				 length);
+
+	if (dbb->dbb_flags & DBB_force_write)
+		PIO_force_write(shadow_file, TRUE);
+
+	if (!(file_flags & FILE_conditional)) {
+		/* make some sanity checks on the database and shadow header pages:
+		   1. make sure that the proper database filename is accessing this shadow
+		   2. make sure the database and shadow are in sync by checking the creation time/transaction id
+		   3. make sure that the shadow has not already been activated */
+
+		window.win_page = HEADER_PAGE;
+		window.win_flags = 0;
+		database_header =
+			(HDR) CCH_FETCH(tdbb, &window, LCK_read, pag_header);
+		header_fetched++;
+
+		if (!PIO_read
+			(shadow_file, window.win_bdb, (PAG) spare_page,
+			 tdbb->tdbb_status_vector)) ERR_punt();
+
+		shadow_header = (HDR) spare_page;
+
+		/* 
+		 *          NOTE ! NOTE! NOTE!
+		 * Starting V4.0, header pages can have over flow pages.  For the shadow,
+		 * we are making an assumption that the shadow header page will not
+		 * overflow, as the only things written on a shadow header is the
+		 * HDR_root_file_name, HDR_file, and HDR_last_page
+		 */
+
+		for (p = shadow_header->hdr_data;
+			 *p != HDR_end && *p != HDR_root_file_name; p += 2 + p[1]);
+		if (*p++ == HDR_end)
+			BUGCHECK(163);		/* msg 163 root file name not listed for shadow */
+
+		/* if the database file is not the same and the original file is
+		   still around, then there is a possibility for shadow corruption */
+
+		string_length = (USHORT) * p++;
+		if (strncmp
+			(dbb_file->fil_string, reinterpret_cast < const char *>(p),
+			 string_length)
+			&& check_for_file(reinterpret_cast < char *>(p),
+							  string_length)) ERR_punt();
+
+		if (
+			(shadow_header->hdr_creation_date[0] !=
+			 database_header->hdr_creation_date[0])
+			|| (shadow_header->hdr_creation_date[1] !=
+				database_header->hdr_creation_date[1])
+			|| (!shadow_header->hdr_flags & hdr_active_shadow))
+			ERR_punt();
+
+		CCH_RELEASE(tdbb, &window);
+		header_fetched--;
+	}
+
+/* allocate the shadow block and mark it as
+   dumped (except for the cases when it isn't) */
+
+	shadow = allocate_shadow(shadow_file, shadow_number, file_flags);
+	if (!(file_flags & FILE_conditional))
+		shadow->sdw_flags |= SDW_dumped;
+
+/* get the ancillary files and reset the error environment */
+
+	PAG_init2(shadow_number);
+	if (spare_buffer)
+		ALL_free(reinterpret_cast < char *>(spare_buffer));
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+}
+
+
+void SDW_start_shadowing(DBB new_dbb)
+{
+/**************************************
+ *
+ *	S D W _ s t a r t _ s h a d o w i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	A blocking AST has been issued to give up
+ *	the lock on the shadowing semaphore. 
+ *	Do so after flagging the need to check for
+ *	new shadow files before doing the next physical write.
+ *
+ **************************************/
+	LCK lock;
+	struct tdbb thd_context, *tdbb;
+
+
+	lock = new_dbb->dbb_shadow_lock;
+	if (lock->lck_physical != LCK_SR)
+		return;
+
+	ISC_ast_enter();
+
+/* Since this routine will be called asynchronously, we must establish
+   a thread context. */
+
+	SET_THREAD_DATA;
+
+	tdbb->tdbb_database = new_dbb;
+	tdbb->tdbb_attachment = lock->lck_attachment;
+	tdbb->tdbb_quantum = QUANTUM;
+	tdbb->tdbb_request = NULL;
+	tdbb->tdbb_transaction = NULL;
+
+	new_dbb->dbb_ast_flags |= DBB_get_shadows;
+	if (LCK_read_data(lock) & SDW_rollover)
+		update_dbb_to_sdw(new_dbb);
+
+	LCK_release(tdbb, lock);
+
+/* Restore the prior thread context */
+
+	RESTORE_THREAD_DATA;
+
+	ISC_ast_exit();
+}
+
+
+static void activate_shadow(void)
+{
+/**************************************
+ *
+ *	a c t i v a t e _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change a shadow into a database.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	HDR header;
+	JRNDA record;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	gds__log("activating shadow file %s", dbb->dbb_file->fil_string);
+
+	MET_activate_shadow(tdbb);
+
+/* clear the shadow bit on the header page */
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+	header->hdr_flags &= ~hdr_active_shadow;
+	if (dbb->dbb_wal) {
+		record.jrnda_type = JRNP_DB_HDR_FLAGS;
+		record.jrnda_data = header->hdr_flags;
+		CCH_journal_record(tdbb, &window,
+						   reinterpret_cast < UCHAR * >(&record), JRNDA_SIZE,
+						   0, 0);
+	}
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+static SDW allocate_shadow(
+						   FIL shadow_file,
+						   USHORT shadow_number, USHORT file_flags)
+{
+/**************************************
+ *
+ *	a l l o c a t e _ s h a d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a shadow block, setting all
+ *	the fields properly.
+ *
+ **************************************/
+	SDW shadow, *pShadow;
+	DBB dbb;
+
+	dbb = GET_DBB;
+
+	shadow = (SDW) ALLOCP(type_sdw);
+	shadow->sdw_file = shadow_file;
+	shadow->sdw_number = shadow_number;
+	if (file_flags & FILE_manual)
+		shadow->sdw_flags |= SDW_manual;
+	if (file_flags & FILE_conditional)
+		shadow->sdw_flags |= SDW_conditional;
+
+/* Link the new shadow into the list of shadows according to
+ * shadow number position.  This is so we will activate
+ * conditional shadows in the order specified by shadow number.
+ * Note that the shadow number may not be unique in this list
+ * - as could happen when shadow X is dropped, and then X is
+ * recreated.
+ */
+
+	for (pShadow = &dbb->dbb_shadow; *pShadow;
+		 pShadow =
+		 &((*pShadow)->sdw_next)) if ((*pShadow)->sdw_number >=
+									  shadow_number) break;
+
+	shadow->sdw_next = *pShadow;
+	*pShadow = shadow;
+
+	return shadow;
+}
+
+
+static BOOLEAN check_for_file(SCHAR * name, USHORT length)
+{
+/**************************************
+ *
+ *	c h e c k _ f o r _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for the existence of a file.
+ *	Return TRUE if it is there.
+ *
+ **************************************/
+	TDBB tdbb;
+	DBB dbb;
+	JMP_BUF env, *old_env;
+	FIL temp_file;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		return FALSE;
+	}
+
+	temp_file = PIO_open(dbb, name, length, FALSE, 0, name, length);
+	PIO_close(temp_file);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	return TRUE;
+}
+
+
+static void check_if_got_ast(FIL file)
+{
+/**************************************
+ *
+ *	c h e c k _ i f _ g o t _ a s t	
+ *
+ **************************************
+ *
+ * Functional description
+ * 	have we got the signal indicating a 
+ *	a shadow update
+ *
+ **************************************/
+	DBB dbb;
+	LCK lock;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	lock = dbb->dbb_shadow_lock;
+	if (!lock || (file != dbb->dbb_file))
+		return;
+	while (TRUE) {
+		if (dbb->dbb_ast_flags & DBB_get_shadows)
+			break;
+		LCK_convert(tdbb, lock, LCK_SR, TRUE);
+	}
+}
+
+
+static void copy_header(void)
+{
+/**************************************
+ *
+ *	c o p y _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch the header page from the database 
+ *	and write it to the shadow file.  This is
+ *	done so that if this shadow is extended,
+ *	the header page will be there for writing 
+ *	the name of the extend file.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* get the database header page and write it out --
+   CCH will take care of modifying it */
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+	if (dbb->dbb_wal)
+		CCH_journal_page(tdbb, &window);
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+static void update_dbb_to_sdw(DBB dbb)
+{
+/**************************************
+ *
+ *	 u p d a t e _ d b b _ t o _ s d w	
+ *
+ **************************************
+ *
+ * Functional description
+ * 	Another process has indicated that dbb is corrupt
+ *	so close dbb and initialize sdw to dbb
+ *
+ **************************************/
+
+	SDW shadow;
+	FIL file;
+
+/* find shadow to rollover to */
+
+	for (shadow = dbb->dbb_shadow; shadow; shadow = shadow->sdw_next) {
+		if (!(shadow->sdw_flags & SDW_dumped))
+			continue;
+		if (!(shadow->sdw_flags & SDW_INVALID))
+			break;
+	}
+
+	if (!shadow)
+		return;					/* should be a BUGCHECK */
+
+/* close the main database file if possible
+   and release all file blocks */
+
+	PIO_close(dbb->dbb_file);
+
+	while (file = dbb->dbb_file) {
+		dbb->dbb_file = file->fil_next;
+		ALL_release(reinterpret_cast < frb * >(file));
+	}
+
+	dbb->dbb_file = shadow->sdw_file;
+	shadow->sdw_flags |= SDW_rollover;
+}
+
+
+} // extern "C"
diff --git a/src/jrd/sdw.h b/src/jrd/sdw.h
new file mode 100644
index 0000000000..e800a228a7
--- /dev/null
+++ b/src/jrd/sdw.h
@@ -0,0 +1,53 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sdw.h
+ *	DESCRIPTION:	Shadowing definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SDW_H_
+#define _JRD_SDW_H_
+
+/* Shadowing block */
+
+typedef struct sdw {
+	struct blk sdw_header;
+	struct sdw *sdw_next;		/* next in linked list */
+	struct fil *sdw_file;		/* Stack of shadow files */
+	USHORT sdw_number;			/* number of shadow */
+	USHORT sdw_flags;
+} *SDW;
+
+#define SDW_dumped	1			/* bit set when file has been copied */
+#define SDW_shutdown	2		/* stop shadowing on next cache flush */
+#define SDW_manual	4			/* shadow is a manual shadow--don't delete */
+#define	SDW_delete	8			/* delete the shadow at the next shutdown */
+#define SDW_found	16			/* flag to mark shadow found in database */
+#define SDW_rollover	32		/* this shadow was rolled over to when the main db file went away */
+#define SDW_conditional	64		/* shadow to be used if another shadow becomes unavailable */
+
+/* these macros are a convenient combination of switches: 
+   the first specifies the shadow is invalid for writing to;
+   the second specifies that the shadow no SLONGer exists and the
+   shadow block simply hasn't been cleared out yet */
+
+#define SDW_INVALID	(SDW_shutdown | SDW_delete | SDW_rollover | SDW_conditional)
+#define SDW_IGNORE	(SDW_shutdown | SDW_delete)
+
+#endif /* _JRD_SDW_H_ */
diff --git a/src/jrd/sdw_proto.h b/src/jrd/sdw_proto.h
new file mode 100644
index 0000000000..64f5630c1c
--- /dev/null
+++ b/src/jrd/sdw_proto.h
@@ -0,0 +1,50 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		sdw_proto.h
+ *	DESCRIPTION:	Prototype Header file for sdw.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_SDW_PROTO_H
+#define JRD_SDW_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void SDW_add(TEXT *, USHORT, USHORT);
+extern int SDW_add_file(TEXT *, SLONG, USHORT);
+extern void SDW_check(void);
+extern BOOLEAN SDW_check_conditional(void);
+extern void SDW_close(void);
+extern void SDW_dump_pages(void);
+extern void SDW_get_shadows(void);
+extern void SDW_init(USHORT, USHORT, struct sbm *);
+extern BOOLEAN SDW_lck_update(SLONG);
+extern void SDW_notify(void);
+extern BOOLEAN SDW_rollover_to_shadow(struct fil *, BOOLEAN);
+extern void SDW_shutdown_shadow(struct sdw *);
+extern void SDW_start(TEXT *, USHORT, USHORT, USHORT);
+extern void SDW_start_shadowing(struct dbb *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_SDW_PROTO_H */
diff --git a/src/jrd/shdef.h b/src/jrd/shdef.h
new file mode 100644
index 0000000000..70c3372ee0
--- /dev/null
+++ b/src/jrd/shdef.h
@@ -0,0 +1,186 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		shdef.h
+ *	DESCRIPTION:	Imported symbol definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SHDEF_H_
+#define _JRD_SHDEF_H_
+
+#include "../jrd/ib_stdio.h"
+#ifndef IMP
+#include <sys/times.h>
+#endif
+#include <sys/types.h>
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#ifdef IMP
+typedef int pid_t;
+typedef unsigned int mode_t;
+#endif
+
+#define setjmp		(*_libgds_setjmp)
+#define sprintf		(*_libgds_sprintf)
+#define strlen		(*_libgds_strlen)
+#define strcmp		(*_libgds_strcmp)
+#define strcpy		(*_libgds_strcpy)
+#define exit		(*_libgds_exit)
+#define longjmp		(*_libgds_longjmp)
+#define _iob		(*_libgds__iob)
+#define abort		(*_libgds_abort)
+#define memset		(*_libgds_memset)
+#define getpid		(*_libgds_getpid)
+#define memcpy		(*_libgds_memcpy)
+#define shmdt		(*_libgds_shmdt)
+#define memcmp		(*_libgds_memcmp)
+#define ib_fprintf		(*_libgds_fprintf)
+#define ib_printf		(*_libgds_printf)
+#define errno		(*_libgds_errno)
+#define ib_fopen		(*_libgds_fopen)
+#define ib_fclose		(*_libgds_fclose)
+#define _filbuf		(*_libgds__filbuf)
+#define ib_rewind		(*_libgds_rewind)
+#define ib_fseek		(*_libgds_fseek)
+#define ib_ftell		(*_libgds_ftell)
+#define _flsbuf		(*_libgds__flsbuf)
+#define gettimeofday	(*_libgds_gettimeofday)
+#define getenv		(*_libgds_getenv)
+#define lseek		(*_libgds_lseek)
+#define read		(*_libgds_read)
+#define open		(*_libgds_open)
+#define strcat		(*_libgds_strcat)
+#define unlink		(*_libgds_unlink)
+#define semctl		(*_libgds_semctl)
+#define semop		(*_libgds_semop)
+#define strncpy		(*_libgds_strncpy)
+#define getpwnam	(*_libgds_getpwnam)
+#define kill		(*_libgds_kill)
+#define fork		(*_libgds_fork)
+#define write		(*_libgds_write)
+#define umask		(*_libgds_umask)
+#define close		(*_libgds_close)
+#define ib_fscanf		(*_libgds_fscanf)
+#define strncmp		(*_libgds_strncmp)
+#define send		(*_libgds_send)
+#define socket		(*_libgds_socket)
+#define recv		(*_libgds_recv)
+#define ib_fflush		(*_libgds_fflush)
+#define time		(*_libgds_time)
+#define localtime	(*_libgds_localtime)
+#define sleep		(*_libgds_sleep)
+#ifndef SCO
+#define gethostid	(*_libgds_gethostid)
+#endif
+#define getuid		(*_libgds_getuid)
+#define ib_fgets		(*_libgds_fgets)
+#define atoi		(*_libgds_atoi)
+#define alarm		(*_libgds_alarm)
+#define signal		(*_libgds_signal)
+#define ioctl		(*_libgds_ioctl)
+#define sscanf		(*_libgds_sscanf)
+#define ib_fwrite		(*_libgds_fwrite)
+#define crypt		(*_libgds_crypt)
+#define _semputc	(*_libgds__semputc)
+#define _semgetc	(*_libgds__semgetc)
+#define _sproced	(*_libgds__sproced)
+#define _us_rsthread_stdio      (*_libgds__us_rsthread_stdio)
+#define sbrk            (*_libgds_sbrk)
+#define ctime		(*_libgds_ctime)
+#define atol		(*_libgds_atol)
+
+extern int setjmp();
+extern int sprintf();
+extern int strlen();
+extern int strcmp();
+extern SCHAR *strcpy();
+extern void exit();
+extern void longjmp();
+extern IB_FILE _iob[];
+extern int abort();
+extern void *memset();
+extern pid_t getpid();
+#ifndef IMP
+extern void *memcpy();
+#else
+extern SCHAR *memcpy();
+#endif
+extern int shmdt();
+extern int memcmp();
+extern int ib_fprintf();
+extern int ib_printf();
+extern int errno;
+extern IB_FILE *ib_fopen();
+extern int ib_fclose();
+extern int _filbuf();
+extern void ib_rewind();
+extern int ib_fseek();
+extern SLONG ib_ftell();
+extern int _flsbuf();
+extern int gettimeofday();
+extern SCHAR *getenv();
+extern off_t lseek();
+extern int read();
+extern int open();
+extern SCHAR *strcat();
+extern int unlink();
+extern int semctl();
+extern int semop();
+extern SCHAR *strncpy();
+extern struct passwd *getpwnam();
+extern int kill();
+extern pid_t fork();
+extern int write();
+extern mode_t umask();
+extern int close();
+extern int ib_fscanf();
+extern int strncmp();
+extern int send();
+extern int socket();
+extern int recv();
+extern int ib_fflush();
+extern time_t time();
+extern struct tm *localtime();
+extern uint sleep();
+extern int gethostid();
+extern uid_t getuid();
+extern SCHAR *ib_fgets();
+extern int atoi();
+extern uint alarm();
+extern void (*signal()) ();
+extern int ioctl();
+extern int sscanf();
+extern int ib_fwrite();
+extern SCHAR *crypt();
+extern void *_sproced;
+extern int _semgetc();
+extern int _semputc();
+extern int _us_rsthread_stdio;
+extern int sbrk();
+extern SCHAR *ctime();
+extern SLONG atol();
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_SHDEF_H */
diff --git a/src/jrd/shrfinit.cpp b/src/jrd/shrfinit.cpp
new file mode 100644
index 0000000000..516275338a
--- /dev/null
+++ b/src/jrd/shrfinit.cpp
@@ -0,0 +1,25 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		shrfinit.c
+ *	DESCRIPTION:	Imported symbol initialization for shared UDF library
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+int (*_libfun_strcmp) () = 0;
+int (*_libfun_sprintf) () = 0;
diff --git a/src/jrd/shrinit.cpp b/src/jrd/shrinit.cpp
new file mode 100644
index 0000000000..1120be587d
--- /dev/null
+++ b/src/jrd/shrinit.cpp
@@ -0,0 +1,307 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		shrinit.c
+ *	DESCRIPTION:	Imported symbol initialization for shared library
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <rpc/types.h>
+#include <sys/times.h>
+#include <sys/types.h>
+#ifndef SCO
+#include <mntent.h>
+#else
+#include <netinet/in.h>
+#endif
+
+#define LOCAL_SHLIB_DEFS
+#include "../jrd/common.h"
+
+#ifdef IMP
+typedef int pid_t;
+typedef unsigned int mode_t;
+typedef SLONG clock_t;
+#endif
+
+
+extern "C" {
+
+
+/* IMPORTANT: Before making any changes, see the WARNING at the end
+	      of this file. */
+
+int (*_libgds_setjmp) () = 0;
+int (*_libgds_sprintf) () = 0;
+int (*_libgds_strlen) () = 0;
+int (*_libgds_strcmp) () = 0;
+SCHAR *(*_libgds_strcpy) () = 0;
+void (*_libgds_exit) () = 0;
+void (*_libgds_longjmp) () = 0;
+IB_FILE(*_libgds__iob) = 0;
+int (*_libgds_abort) () = 0;
+void *(*_libgds_memset) () = 0;
+pid_t(*_libgds_getpid) () = 0;
+#ifndef IMP
+void *(*_libgds_memcpy) () = 0;
+#else
+SCHAR *(*_libgds_memcpy) () = 0;
+#endif
+int (*_libgds_shmdt) () = 0;
+int (*_libgds_memcmp) () = 0;
+int (*_libgds_fprintf) () = 0;
+int (*_libgds_printf) () = 0;
+#ifdef sgi
+void **_libgds__sproced = 0;
+#endif
+int (*_libgds_errno) = 0;
+IB_FILE *(*_libgds_fopen) () = 0;
+int (*_libgds_fclose) () = 0;
+#ifdef sgi
+int (*_libgds__semgetc) () = 0;
+#endif
+int (*_libgds__filbuf) () = 0;
+void (*_libgds_rewind) () = 0;
+int (*_libgds_fseek) () = 0;
+#ifdef sgi
+int (*_libgds__semputc) () = 0;
+#endif
+int (*_libgds__flsbuf) () = 0;
+SCHAR(**_libgds_sys_errlist) = 0;
+int *_libgds_sys_nerr = 0;
+void *(*_libgds_malloc) () = 0;
+int (*_libgds_gettimeofday) () = 0;
+SCHAR *(*_libgds_ctime) () = 0;
+SCHAR *(*_libgds_getenv) () = 0;
+off_t(*_libgds_lseek) () = 0;
+int (*_libgds_read) () = 0;
+int (*_libgds_open) () = 0;
+SCHAR *(*_libgds_strcat) () = 0;
+int (*_libgds_fputs) () = 0;
+int (*_libgds_fputc) () = 0;
+SCHAR *(*_libgds_mktemp) () = 0;
+int (*_libgds_unlink) () = 0;
+#ifndef SCO
+int (*_libgds_sigvec) () = 0;
+#endif
+int (*_libgds_semctl) () = 0;
+int (*_libgds_semop) () = 0;
+int (*_libgds_select) () = 0;
+SCHAR *(*_libgds_strncpy) () = 0;
+SCHAR *(*_libgds_strchr) () = 0;
+struct passwd *(*_libgds_getpwnam) () = 0;
+uid_t(*_libgds_geteuid) () = 0;
+struct passwd *(*_libgds_getpwuid) () = 0;
+#ifndef SCO
+SCHAR *(*_libgds_getwd) () = 0;
+#else
+SCHAR *(*_libgds_getcwd) () = 0;
+#endif
+int (*_libgds_readlink) () = 0;
+void (*_libgds_gethostname) () = 0;
+void (*_libgds_endpwent) () = 0;
+gid_t(*_libgds_getegid) () = 0;
+int (*_libgds_kill) () = 0;
+int (*_libgds_pipe) () = 0;
+pid_t(*_libgds_fork) () = 0;
+int (*_libgds_execl) () = 0;
+int (*_libgds_write) () = 0;
+mode_t(*_libgds_umask) () = 0;
+int (*_libgds_lockf) () = 0;
+int (*_libgds_shmget) () = 0;
+#ifndef IMP
+void *(*_libgds_shmat) () = 0;
+#else
+SCHAR *(*_libgds_shmat) () = 0;
+#endif
+int (*_libgds_shmctl) () = 0;
+key_t(*_libgds_ftok) () = 0;
+int (*_libgds_close) () = 0;
+int (*_libgds_fscanf) () = 0;
+int (*_libgds_semget) () = 0;
+int (*_libgds_strncmp) () = 0;
+int (*_libgds_send) () = 0;
+int (*_libgds_socket) () = 0;
+int (*_libgds_connect) () = 0;
+int (*_libgds_recv) () = 0;
+int (*_libgds_fflush) () = 0;
+time_t(*_libgds_time) () = 0;
+struct tm *(*_libgds_localtime) () = 0;
+uint(*_libgds_sleep) () = 0;
+#ifndef SCO
+int (*_libgds_gethostid) () = 0;
+#endif
+clock_t(*_libgds_times) () = 0;
+int (*_libgds_stat) () = 0;
+int (*_libgds_system) () = 0;
+int (*_libgds_fgetc) () = 0;
+int (*_libgds_fstat) () = 0;
+uid_t(*_libgds_getuid) () = 0;
+SCHAR *(*_libgds_fgets) () = 0;
+int (*_libgds_atoi) () = 0;
+uint(*_libgds_alarm) () = 0;
+int *(*_libgds_signal) () = 0;
+struct servent *(*_libgds_getservbyname) () = 0;
+struct hostent *(*_libgds_gethostbyname) () = 0;
+int (*_libgds_setsockopt) () = 0;
+int (*_libgds_bind) () = 0;
+int (*_libgds_listen) () = 0;
+int (*_libgds_accept) () = 0;
+int (*_libgds_setreuid) () = 0;
+int (*_libgds_setregid) () = 0;
+int (*_libgds_chdir) () = 0;
+int (*_libgds_ioctl) () = 0;
+int (*_libgds_getsockname) () = 0;
+int (*_libgds_getpeername) () = 0;
+struct hostent *(*_libgds_gethostbyaddr) () = 0;
+int (*_libgds_sscanf) () = 0;
+void (*_libgds_xdrmem_create) () = 0;
+int (*_libgds_innetgr) () = 0;
+bool_t(*_libgds_xdr_enum) () = 0;
+bool_t(*_libgds_xdr_short) () = 0;
+bool_t(*_libgds_xdr_u_short) () = 0;
+bool_t(*_libgds_xdr_long) () = 0;
+bool_t(*_libgds_xdr_opaque) () = 0;
+bool_t(*_libgds_xdr_string) () = 0;
+int *(*_libgds_FUNCTIONS_entrypoint) () = 0;
+int *(*_libgds_fcntl) () = 0;
+int *(*_libgds_fwrite) () = 0;
+int *(*_libgds_getppid) () = 0;
+#ifndef SCO
+int (*_libgds_initgroups) () = 0;
+#endif
+#ifdef sgi
+int (*_libgds_sysid) () = 0;
+#endif
+int (*_libgds_setitimer) () = 0;
+void ((*_libgds_sigset) ()) = 0;
+SLONG(*_libgds_ftell) () = 0;
+int (*_libgds_getgroups) () = 0;
+int (*_libgds_bzero) () = 0;
+int (*_libgds_shutdown) () = 0;
+SCHAR *(*_libgds_crypt) () = 0;
+#ifndef SCO
+IB_FILE *(*_libgds_setmntent) () = 0;
+struct mntent *(*_libgds_getmntent) () = 0;
+int (*_libgds_endmntent) () = 0;
+#endif
+int (*_libgds_pause) () = 0;
+#ifdef sgi
+int *_libgds__us_rsthread_stdio = 0;
+#endif
+SCHAR **(*_libgds_environ) () = 0;
+IB_FILE *(*_libgds_fdopen) () = 0;
+int (*_libgds_dup) () = 0;
+int (*_libgds_execle) () = 0;
+#ifdef IMP
+bool_t(*_libgds_xdr_float) () = 0;
+bool_t(*_libgds_xdr_double) () = 0;
+int (*_libgds_sbrk) () = 0;
+#endif
+#ifdef SCO
+bool_t(*_libgds_xdr_float) () = 0;
+bool_t(*_libgds_xdr_double) () = 0;
+SCHAR *(*_libgds_sbrk) () = 0;
+#endif
+SCHAR *(*_libgds_strrchr) () = 0;
+#ifndef SCO
+int (*_libgds_fsync) () = 0;
+#endif
+#ifdef IMP
+int (*_libgds_wait) () = 0;
+#else
+int (*_libgds_waitpid) () = 0;
+#endif
+void (*_libgds__exit) () = 0;
+#ifdef SCO
+IB_FILE *(*_libgds_popen) () = 0;
+IB_FILE *(*_libgds_pclose) () = 0;
+ulong(*_libgds_htonl) () = 0;
+ulong(*_libgds_ntohl) () = 0;
+int (*_libgds_atexit) () = 0;
+#endif
+int (*_libgds_atol) () = 0;
+int (*_libgds_execvp) () = 0;
+int (*_libgds_nice) () = 0;
+int (*_libgds_putenv) () = 0;
+#ifndef IMP
+int (*_libgds_xdr_free) () = 0;
+#endif
+int (*_libgds_xdr_wrapstring) () = 0;
+int (*_libgds_vsprintf) () = 0;
+int (*_libgds_h_errno) = 0;
+int (*_libgds_chmod) () = 0;
+int (*_libgds_ungetc) () = 0;
+int (*_libgds_vfprintf) () = 0;
+int (*_libgds__assert) () = 0;
+int (*_libgds_access) () = 0;
+#ifdef SCO
+int (*_libgds_fsync) () = 0;
+#endif
+#ifndef IMP
+int (*_libgds_sigsuspend) () = 0;
+int (*_libgds_sigprocmask) () = 0;
+int (*_libgds_sigaddset) () = 0;
+#else
+int (*_libgds_sigblock) () = 0;
+int (*_libgds_sigsetmask) () = 0;
+int (*_libgds_sigpause) () = 0;
+#endif
+
+/* WARNING: The definition and initialization of new imported symbol pointers
+            should be added at the end of the list ABOVE.  At the same time,
+            the size of the padding array, below, should be decremented by
+            the number of pointers that are added.  If the size of the padding
+            array reaches zero, then new pointers will have to be added after
+            the InterBase global data.  At that time, move this comment and
+            modify it accordingly.  All new InterBase global data must be
+            added at the end of the list BELOW. */
+
+#ifdef IMP
+int _libgds_padding[465] = 0;
+#endif
+#ifdef SCO
+int _libgds_padding[466] = { 0 };
+#endif
+
+int*	dbb = 0;
+int		debug = 0;
+int*	DSQL_default_pool = 0;
+int*	DSQL_permanent_pool = 0;
+int*	DSQL_error = 0;
+int		DSQL_debug = 0;
+int*	DSQL_parse = 0;
+int		DSQL_yyerrflag = 0;
+int		DSQL_yychar = 0;
+int*	DSQL_hash_table = 0;
+void*	gdbb = 0;
+int*	internal_db_handles = 0;
+
+#ifdef IMP
+/****    
+     NOTE: The following variable was added because of an incompatibility 
+ 	   problem between the mkshlib and link utility in IMP. This is a
+	   workaround and should be eliminated whenever IMP fixes the bug in
+	   their utilities.
+****/
+char __StRet[] = { 0, 0, 0, 0, 0, 0, 0, 0 };
+#endif
+
+
+}	// extern "C"
diff --git a/src/jrd/shut.cpp b/src/jrd/shut.cpp
new file mode 100644
index 0000000000..741c055311
--- /dev/null
+++ b/src/jrd/shut.cpp
@@ -0,0 +1,370 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		shut.c
+ *	DESCRIPTION:	Database shutdown handler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/jrd.h"
+#include "../jrd/scl.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/ods.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/err_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/rlck_proto.h"
+#include "../jrd/rng_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/shut_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/tra_proto.h"
+
+/* Shutdown lock data */
+
+typedef union {
+	struct {
+		SSHORT flag;
+		SSHORT delay;
+	} data_items;
+	SLONG data_long;
+} SDATA;
+
+#define SHUT_WAIT_TIME	5
+
+static BOOLEAN notify_shutdown(DBB, SSHORT, SSHORT);
+static BOOLEAN shutdown_locks(DBB);
+
+
+BOOLEAN SHUT_blocking_ast(DBB dbb)
+{
+/**************************************
+ *
+ *	S H U T _ b l o c k i n g _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read data from database lock for
+ *	shutdown instructions.
+ *
+ **************************************/
+	SDATA data;
+	SSHORT flag, delay;
+	ATT attachment;
+
+	data.data_long = LCK_read_data(dbb->dbb_lock);
+	flag = data.data_items.flag;
+	delay = data.data_items.delay;
+
+/* Database shutdown has been cancelled. */
+
+	if (!flag) {
+		dbb->dbb_ast_flags &=
+			~(DBB_shut_attach | DBB_shut_tran | DBB_shut_force |
+			  DBB_shutdown);
+		dbb->dbb_shutdown_delay = 0;
+		for (attachment = dbb->dbb_attachments; attachment;
+			 attachment = attachment->att_next) attachment->att_flags &=
+				~ATT_shutdown_notify;
+		return FALSE;
+	}
+
+	if (flag & gds_dpb_shut_force && !delay)
+		return shutdown_locks(dbb);
+	else {
+		if (flag & gds_dpb_shut_attachment)
+			dbb->dbb_ast_flags |= DBB_shut_attach;
+		if (flag & gds_dpb_shut_force)
+			dbb->dbb_ast_flags |= DBB_shut_force;
+		if (flag & gds_dpb_shut_transaction)
+			dbb->dbb_ast_flags |= DBB_shut_tran;
+		dbb->dbb_shutdown_delay = delay;
+		return FALSE;
+	}
+}
+
+
+BOOLEAN SHUT_database(DBB dbb, SSHORT flag, SSHORT delay)
+{
+/**************************************
+ *
+ *	S H U T _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Schedule database for shutdown
+ *
+ **************************************/
+	TDBB tdbb;
+	ATT attachment;
+	WIN window;
+	HDR header;
+	SDATA data;
+	SSHORT timeout, exclusive;
+	JMP_BUF env, *old_env;
+
+	tdbb = GET_THREAD_DATA;
+	attachment = tdbb->tdbb_attachment;
+
+/* Only platform's user locksmith can shutdown or bring online
+   a database. */
+
+	if (!attachment->att_user->usr_flags & (USR_locksmith | USR_owner))
+		return FALSE;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		return FALSE;
+	}
+
+/* If shutdown flag is zero then bring database online */
+
+	if (!flag) {
+		/* Clear shutdown flag on database header page */
+
+		window.win_page = HEADER_PAGE;
+		window.win_flags = 0;
+		header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+		CCH_MARK_MUST_WRITE(tdbb, &window);
+		header->hdr_flags &= ~hdr_shutdown;
+		CCH_RELEASE(tdbb, &window);
+
+		/* Notify existing database clients that a currently
+		   scheduled shutdown is cancelled. */
+
+		if (notify_shutdown(dbb, 0, 0))
+			CCH_release_exclusive(tdbb);
+
+		/* Notify local attachments */
+
+		SHUT_blocking_ast(dbb);
+
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		return TRUE;
+	}
+
+	attachment->att_flags |= ATT_shutdown_manager;
+	--dbb->dbb_use_count;
+
+/* Database is being shutdown. First notification gives shutdown
+   type and delay in seconds. */
+
+	notify_shutdown(dbb, flag, delay);
+
+/* Notify local attachments */
+
+	SHUT_blocking_ast(dbb);
+
+/* Try to get exclusive database lock periodically up to specified delay. If we
+   haven't gotten it report shutdown error for weaker forms. For forced shutdown
+   keep notifying until successful. */
+
+	exclusive = FALSE;
+	for (timeout = delay; timeout >= 0; timeout -= SHUT_WAIT_TIME)
+		if ((exclusive = notify_shutdown(dbb, flag, timeout)) ||
+			!(dbb->dbb_ast_flags & (DBB_shut_attach | DBB_shut_tran |
+									DBB_shut_force))) break;
+
+	if (!exclusive && (timeout > 0 ||
+					   flag & (gds_dpb_shut_attachment |
+							   gds_dpb_shut_transaction))) {
+		notify_shutdown(dbb, 0, 0);	/* Tell everyone we're giving up */
+		SHUT_blocking_ast(dbb);
+		attachment->att_flags &= ~ATT_shutdown_manager;
+		++dbb->dbb_use_count;
+		ERR_post(gds_shutfail, 0);
+	}
+
+/* Once there are no more transactions active, force all remaining
+   attachments to shutdown. */
+
+	if (flag & gds_dpb_shut_transaction) {
+		exclusive = FALSE;
+		flag = gds_dpb_shut_force;
+	}
+
+	dbb->dbb_ast_flags |= DBB_shutdown;
+
+	if (!exclusive && flag & gds_dpb_shut_force)
+		while (!notify_shutdown(dbb, flag, 0));
+
+	++dbb->dbb_use_count;
+	dbb->dbb_ast_flags &= ~(DBB_shut_force | DBB_shut_attach | DBB_shut_tran);
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+	header->hdr_flags |= hdr_shutdown;
+	CCH_RELEASE(tdbb, &window);
+	CCH_release_exclusive(tdbb);
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	return TRUE;
+}
+
+
+BOOLEAN SHUT_init(DBB dbb)
+{
+/**************************************
+ *
+ *	S H U T _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read data from database lock for
+ *	shutdown instructions.
+ *
+ **************************************/
+
+	return SHUT_blocking_ast(dbb);
+}
+
+
+static BOOLEAN notify_shutdown(DBB dbb, SSHORT flag, SSHORT delay)
+{
+/**************************************
+ *
+ *	n o t i f y _ s h u t d o w n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Notify database users that shutdown
+ *	status of a database is changing.
+ *	Pulse database lock and pass shutdown
+ *	flags and delay via lock data.
+ *
+ **************************************/
+	SDATA data;
+	ATT attachment;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+	data.data_items.flag = flag;
+	data.data_items.delay = delay;
+
+	LCK_write_data(dbb->dbb_lock, data.data_long);
+
+/* Send blocking ASTs to database users */
+
+	if (CCH_exclusive(tdbb, LCK_PW, ((SSHORT) - SHUT_WAIT_TIME)) && flag)
+		return shutdown_locks(dbb);
+	else if ((flag & gds_dpb_shut_force) && !delay)
+		return shutdown_locks(dbb);
+	else if ((flag & gds_dpb_shut_transaction)
+			 && !(TRA_active_transactions(tdbb, dbb)))
+		return TRUE;
+	else
+		return FALSE;
+}
+
+
+static BOOLEAN shutdown_locks(DBB dbb)
+{
+/**************************************
+ *
+ *	s h u t d o w n _ l o c k s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release all attachment and database
+ *	locks if database is quiet.
+ *
+ **************************************/
+	ATT attachment, shut_attachment;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+/* Mark database and all active attachments as shutdown. */
+
+	dbb->dbb_ast_flags |= DBB_shutdown;
+
+	for (attachment = dbb->dbb_attachments; attachment;
+		 attachment =
+		 attachment->
+		 att_next) if (!(attachment->att_flags & ATT_shutdown_manager))
+	attachment->att_flags |= ATT_shutdown;
+
+	if (dbb->dbb_use_count) {
+		/* Let active database threads rundown */
+
+		THREAD_EXIT;
+		THREAD_SLEEP(1 * 1000);
+		THREAD_ENTER;
+		return FALSE;
+	}
+
+/* Since no attachment is actively running, release all
+   attachment-specfic locks while they're not looking. */
+
+	shut_attachment = (ATT) 0;
+
+	for (attachment = dbb->dbb_attachments; attachment;
+		 attachment = attachment->att_next) {
+		if (attachment->att_flags & ATT_shutdown_manager) {
+			shut_attachment = attachment;
+			continue;
+		}
+
+		if (attachment->att_id_lock)
+			LCK_release(tdbb, attachment->att_id_lock);
+
+#ifdef PC_ENGINE
+		RNG_shutdown_attachment(attachment);
+#endif
+		RLCK_shutdown_attachment(attachment);
+		TRA_shutdown_attachment(tdbb, attachment);
+	}
+
+/* Release database locks that are shared by all attachments.
+   These include relation and index existence locks, as well
+   as, relation interest and record locking locks for PC semantic
+   record locking. */
+
+	RLCK_shutdown_database(dbb);
+	CMP_shutdown_database(tdbb);
+
+/* If shutdown manager is here, leave enough database lock context
+   to run as a normal attachment. Otherwise, get rid of the rest
+   of the database locks.*/
+
+	if (!shut_attachment) {
+		CCH_shutdown_database(dbb);
+		if (dbb->dbb_shadow_lock)
+			LCK_release(tdbb, dbb->dbb_shadow_lock);
+		if (dbb->dbb_retaining_lock)
+			LCK_release(tdbb, dbb->dbb_retaining_lock);
+		if (dbb->dbb_lock)
+			LCK_release(tdbb, dbb->dbb_lock);
+		dbb->dbb_ast_flags |= DBB_shutdown_locks;
+	}
+
+	return TRUE;
+}
diff --git a/src/jrd/shut_proto.h b/src/jrd/shut_proto.h
new file mode 100644
index 0000000000..4b709824ca
--- /dev/null
+++ b/src/jrd/shut_proto.h
@@ -0,0 +1,31 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		shut_proto.h
+ *	DESCRIPTION:	Prototype Header file for shut.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SHUT_PROTO_H_
+#define _JRD_SHUT_PROTO_H_
+
+extern BOOLEAN SHUT_blocking_ast(struct dbb *);
+extern BOOLEAN SHUT_database(struct dbb *, SSHORT, SSHORT);
+extern BOOLEAN SHUT_init(struct dbb *);
+
+#endif /* _JRD_SHUT_PROTO_H_ */
diff --git a/src/jrd/sort.cpp b/src/jrd/sort.cpp
new file mode 100644
index 0000000000..b8b51428e6
--- /dev/null
+++ b/src/jrd/sort.cpp
@@ -0,0 +1,3028 @@
+/*
+ *      PROGRAM:        JRD Sort
+ *      MODULE:         sort.c
+ *      DESCRIPTION:    Top level sort module
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: sort.cpp,v 1.1.1.1 2001-05-23 13:26:21 tamlin Exp $
+ */
+
+#include <errno.h>
+#include <string.h>
+#if ( defined FREEBSD || defined NETBSD || defined LINUX )
+#include <unistd.h>
+#endif
+#include "../jrd/common.h"
+#include "../jrd/jrd.h"
+#include "../jrd/sort.h"
+#include "../jrd/codes.h"
+#include "../jrd/intl.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/rse.h"
+#include "../jrd/val.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/dls_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/sort_proto.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/sch_proto.h"
+
+#ifdef SOLARIS
+#include "../jrd/ib_stdio.h"
+#endif
+
+#if defined WIN_NT
+/* for SEEK_SET */
+#include <stdio.h>
+#endif
+
+#if (defined WIN_NT)
+#include <io.h>
+#endif
+
+#define IO_RETRY                20
+#define RUN_GROUP               8
+#define	MAX_MERGE_LEVEL		2
+
+#ifdef VMS
+extern double MTH$CVT_D_G(), MTH$CVT_G_D();
+#endif
+
+/* The sort buffer size should be just under a multiple of the
+   hardware memory page size to account for memory allocator
+   overhead. On most platorms, this saves 4KB to 8KB per sort
+   buffer from being allocated but not used. */
+
+#define MAX_SORT_BUFFER_SIZE    131040
+
+#define DIFF_LONGS(a,b)         ((a) - (b))
+#define SWAP_LONGS(a,b,t)       {t=a; a=b; b=t;}
+
+/* compare p and q both SORTP pointers for l 32-bit longwords
+   l != 0 if p and q are not equal for l bytes */
+#define  DO_32_COMPARE(p, q, l)   do if (*p++ != *q++) break; while (--l);
+
+#define MOVE_32(len,from,to)      memcpy(to, from, len*4)
+
+#ifndef EINTR
+#define EINTR   0
+#endif
+
+/* these values are not defined as const as they are passed to 
+   the diddle_key routines  which mangles them.
+   As the diddle_key routines differ on VAX (little endian) and non VAX
+   (big endian) patforms, making the following CONST caused a core on the 
+   Intel Platforms, while Solaris was working fine. */
+static ULONG low_key[] = { 0, 0, 0, 0, 0, 0 }, high_key[] = {
+	-1, -1, -1, -1, -1, -1, -1, -1,
+		-1, -1, -1, -1, -1, -1, -1, -1,
+		-1, -1, -1, -1, -1, -1, -1, -1,
+		-1, -1, -1, -1, -1, -1, -1, -1,
+		-1, -1, -1, -1, -1, -1, -1, -1,
+		-1, -1, -1, -1, -1, -1, -1, -1,
+		-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1};
+
+
+#ifdef SCROLLABLE_CURSORS
+static SORT_RECORD *get_merge(MRG, SCB, RSE_GET_MODE);
+#else
+static void diddle_key(UCHAR *, SCB, USHORT);
+static SORT_RECORD *get_merge(MRG, SCB);
+#endif
+
+static UCHAR *alloc(SCB, ULONG);
+static void error_memory(SCB);
+static ULONG find_file_space(SCB, ULONG, SFB *);
+static void free_file_space(SCB, SFB, ULONG, ULONG);
+static void init(SCB);
+static BOOLEAN local_fini(SCB, ATT);
+static void merge_runs(SCB, USHORT);
+static void quick(SLONG, SORTP **, USHORT);
+static ULONG order(SCB);
+static void put_run(SCB);
+static void release_merge(MRG);
+static void sort(SCB);
+#ifdef DEBUG
+static void validate(SCB);
+#endif
+
+#ifdef SORT_TRACE
+static void write_trace(UCHAR *, SFB, ULONG, BLOB_PTR *, ULONG);
+#include "../jrd/ib_stdio.h"
+
+IB_FILE *trace_file = NULL;
+#endif
+
+#ifndef NETWARE_386
+#ifdef PC_PLATFORM
+#define SCRATCH         "s"
+#endif
+#endif
+
+#ifdef SMALL_FILE_NAMES
+#ifndef NETWARE_386
+#define SCRATCH         "gds_s"
+#endif
+#endif
+
+#if (defined WIN_NT || defined NETWARE_386)
+#define SCRATCH         "ib_sort_"
+#endif
+
+#ifndef SCRATCH
+#define SCRATCH         "gds_sort_"
+#endif
+
+#ifdef WIN_NT
+#define	SYS_ERR		gds_arg_win32
+#endif
+
+#ifdef NETWARE_386
+#define SYS_ERR		gds_arg_netware
+#endif
+
+#ifndef SYS_ERR
+#define SYS_ERR		gds_arg_unix
+#endif
+
+
+
+#ifdef SCROLLABLE_CURSORS
+#ifndef VAX
+void SORT_diddle_key(UCHAR * record, SCB scb, USHORT direction)
+{
+/**************************************
+ *
+ *      S O R T _ d i d d l e _ k e y             ( n o n - V A X )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Perform transformation between the natural form of a record
+ *      and a form that can be sorted in unsigned comparison order.
+ *
+ *      direction - TRUE for SORT_put() and FALSE for SORT_get()
+ *
+ **************************************/
+	UCHAR *p, *fill_pos, fill_char;
+	USHORT complement, n, l, fill, flag;
+	SKD *key, *end;
+
+	for (key = scb->scb_description, end = key + scb->scb_keys; key < end;
+		 key++) {
+		p = record + key->skd_offset;
+		n = key->skd_length;
+		complement = key->skd_flags & SKD_descending;
+		switch (key->skd_dtype) {
+		case SKD_ulong:
+		case SKD_ushort:
+		case SKD_bytes:
+			break;
+
+			/* Stash embedded control info for non-fixed data types in the sort
+			   record and zap it so that it doesn't interfere with collation. */
+
+		case SKD_varying:
+			if (direction) {
+				if (!(scb->scb_flags & scb_sorted)) {
+					*((USHORT *) (record + key->skd_vary_offset)) =
+						((VARY *) p)->vary_length;
+					fill_char =
+						(key->skd_flags & SKD_binary) ? 0 : ASCII_SPACE;
+					fill_pos = p + sizeof(USHORT) + ((VARY *) p)->vary_length;
+					fill = n - sizeof(USHORT) - ((VARY *) p)->vary_length;
+					if (fill)
+						memset(fill_pos, fill_char, fill);
+				}
+				((VARY *) p)->vary_length = 0;
+			}
+			break;
+
+		case SKD_cstring:
+			if (direction) {
+				fill_char = (key->skd_flags & SKD_binary) ? 0 : ASCII_SPACE;
+				if (!(scb->scb_flags & scb_sorted)) {
+					*((USHORT *) (record + key->skd_vary_offset)) = l =
+						strlen(p);
+					fill_pos = p + l;
+					fill = n - l;
+					if (fill)
+						memset(fill_pos, fill_char, fill);
+				}
+				else {
+					l = *((USHORT *) (record + key->skd_vary_offset));
+					*(p + l) = fill_char;
+				}
+			}
+			break;
+
+		case SKD_text:
+			break;
+
+		case SKD_float:
+		case SKD_double:
+			flag = (direction || !complement) ? direction : TRUE;
+			if (flag ^ (*p >> 7))
+				*p ^= 1 << 7;
+			else
+				complement = !complement;
+			break;
+
+		case SKD_long:
+		case SKD_short:
+		case SKD_quad:
+		case SKD_timestamp1:
+		case SKD_timestamp2:
+		case SKD_sql_time:
+		case SKD_sql_date:
+		case SKD_int64:
+			*p ^= 1 << 7;
+			break;
+
+		default:
+			assert(FALSE);
+			break;
+		}
+		if (complement && n)
+			do
+				*p++ ^= -1;
+			while (--n);
+
+		/* Flatter but don't complement control info for non-fixed
+		   data types when restoring the data. */
+
+		if (key->skd_dtype == SKD_varying && !direction) {
+			p = record + key->skd_offset;
+			((VARY *) p)->vary_length = *((USHORT *) (record + key->skd_vary_offset));
+		}
+
+		if (key->skd_dtype == SKD_cstring && !direction) {
+			p = record + key->skd_offset;
+			l = *((USHORT *) (record + key->skd_vary_offset));
+			*(p + l) = 0;
+		}
+	}
+}
+
+
+#else
+void SORT_diddle_key(UCHAR * record, SCB scb, USHORT direction)
+{
+/**************************************
+ *
+ *      S O R T _ d i d d l e _ k e y             ( V A X )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Perform transformation between the natural form of a record
+ *      and a form that can be sorted in unsigned comparison order.
+ *
+ *      direction - TRUE for SORT_put() and FALSE for SORT_get()
+ *
+ **************************************/
+	register BLOB_PTR *p;
+	UCHAR c1, c2, fill_char, *fill_pos;
+	USHORT complement, n, w, l, fill;
+	USHORT HUGE_PTR *wp;
+	SSHORT longs, flag;
+	SORTP *lwp;
+	ULONG lw;
+	register SKD *key, *end;
+#ifdef  VMS
+	double *dp;
+#endif
+
+	for (key = scb->scb_description, end = key + scb->scb_keys; key < end;
+		 key++) {
+		p = (BLOB_PTR *) record + key->skd_offset;
+		wp = (USHORT HUGE_PTR *) p;
+		lwp = (SORTP *) p;
+		complement = key->skd_flags & SKD_descending;
+		n = ROUNDUP(key->skd_length, sizeof(SLONG));
+		switch (key->skd_dtype) {
+		case SKD_timestamp1:
+		case SKD_timestamp2:
+		case SKD_sql_date:
+		case SKD_sql_time:
+			p[3] ^= 1 << 7;
+			break;
+
+		case SKD_ulong:
+		case SKD_ushort:
+			break;
+
+		case SKD_text:
+		case SKD_bytes:
+		case SKD_cstring:
+		case SKD_varying:
+
+			/* Stash embedded control info for non-fixed data types in the sort
+			   record and zap it so that it doesn't interfere with collation. */
+
+			if (key->skd_dtype == SKD_varying && direction) {
+				if (!(scb->scb_flags & scb_sorted)) {
+					*((USHORT *) (record + key->skd_vary_offset)) = l =
+						((VARY *) p)->vary_length;
+					fill_char =
+						(key->skd_flags & SKD_binary) ? 0 : ASCII_SPACE;
+					fill_pos = p + sizeof(USHORT) + l;
+					fill = n - sizeof(USHORT) - l;
+					if (fill)
+						memset(fill_pos, fill_char, fill);
+				}
+				((VARY *) p)->vary_length = 0;
+			}
+
+			if (key->skd_dtype == SKD_cstring && direction) {
+				fill_char = (key->skd_flags & SKD_binary) ? 0 : ASCII_SPACE;
+				if (!(scb->scb_flags & scb_sorted)) {
+					*((USHORT *) (record + key->skd_vary_offset)) = l =
+						strlen(p);
+					fill_pos = p + l;
+					fill = n - l;
+					if (fill)
+						memset(fill_pos, fill_char, fill);
+				}
+				else {
+					l = *((USHORT *) (record + key->skd_vary_offset));
+					*(p + l) = fill_char;
+				}
+			}
+
+			longs = n >> SHIFTLONG;
+			while (--longs >= 0) {
+				c1 = p[3];
+				p[3] = *p;
+				*p++ = c1;
+				c1 = p[1];
+				p[1] = *p;
+				*p = c1;
+				p += 3;
+			}
+			p = (BLOB_PTR *) wp;
+			break;
+
+		case SKD_short:
+			p[1] ^= 1 << 7;
+			break;
+
+		case SKD_long:
+			p[3] ^= 1 << 7;
+			break;
+
+		case SKD_quad:
+			p[7] ^= 1 << 7;
+			break;
+
+		case SKD_int64:
+			/* INT64's fit in TWO LONGS, and hence the SWAP has to happen
+			   here for the right order comparison using DO_32_COMPARE */
+			if (!direction)
+				SWAP_LONGS(lwp[0], lwp[1], lw);
+
+			p[7] ^= 1 << 7;
+
+			if (direction)
+				SWAP_LONGS(lwp[0], lwp[1], lw);
+			break;
+
+#ifdef IEEE
+		case SKD_double:
+			if (!direction) {
+				lw = lwp[0];
+				lwp[0] = lwp[1];
+				lwp[1] = lw;
+			}
+			flag = (direction || !complement) ? direction : TRUE;
+			if (flag ^ (p[7] >> 7))
+				p[7] ^= 1 << 7;
+			else
+				complement = !complement;
+			if (direction) {
+				lw = lwp[0];
+				lwp[0] = lwp[1];
+				lwp[1] = lw;
+			}
+			break;
+
+		case SKD_float:
+			flag = (direction || !complement) ? direction : TRUE;
+			if (flag ^ (p[3] >> 7))
+				p[3] ^= 1 << 7;
+			else
+				complement = !complement;
+			break;
+
+#else /* IEEE */
+#ifdef VMS
+		case SKD_d_float:
+			dp = (double *) p;
+			if (direction)
+				*dp = MTH$CVT_D_G(dp);
+
+#endif
+		case SKD_double:
+			w = wp[2];
+			wp[2] = wp[3];
+			wp[3] = w;
+
+#ifndef VMS
+		case SKD_d_float:
+#endif
+		case SKD_float:
+			if (!direction)
+				if (complement) {
+					if (p[3] & 1 << 7)
+						complement = !complement;
+					else
+						p[3] ^= 1 << 7;
+				}
+				else {
+					if (p[3] & 1 << 7)
+						p[3] ^= 1 << 7;
+					else
+						complement = !complement;
+				}
+			w = wp[0];
+			wp[0] = wp[1];
+			wp[1] = w;
+			if (direction)
+				if (p[3] & 1 << 7)
+					complement = !complement;
+				else
+					p[3] ^= 1 << 7;
+#ifdef VMS
+			else if (key->skd_dtype == SKD_d_float)
+				*dp = MTH$CVT_G_D(dp);
+#endif
+			break;
+#endif /* IEEE */
+
+		default:
+			assert(FALSE);
+			break;
+		}
+		if (complement && n)
+			do
+				*p++ ^= -1;
+			while (--n);
+
+		/* Flatter but don't complement control info for non-fixed
+		   data types when restoring the data. */
+
+		if (key->skd_dtype == SKD_varying && !direction) {
+			p = (BLOB_PTR *) record + key->skd_offset;
+			((VARY *) p)->vary_length = *((USHORT *) (record + key->skd_vary_offset));
+		}
+
+		if (key->skd_dtype == SKD_cstring && !direction) {
+			p = (BLOB_PTR *) record + key->skd_offset;
+			l = *((USHORT *) (record + key->skd_vary_offset));
+			*(p + l) = 0;
+		}
+	}
+}
+#endif
+#endif
+
+
+void SORT_error(
+				STATUS * status_vector,
+				SFB sfb, TEXT * string, STATUS operation, int errcode)
+{
+/**************************************
+ *
+ *       S O R T _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Report fatal error.
+ *
+ **************************************/
+
+	assert(status_vector != NULL);
+
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = isc_io_error;
+	*status_vector++ = gds_arg_string;
+	*status_vector++ = (STATUS) string;
+	*status_vector++ = gds_arg_string;
+	*status_vector++ = (STATUS) ERR_cstring(sfb->sfb_file_name);
+	*status_vector++ = isc_arg_gds;
+	*status_vector++ = operation;
+	if (errcode) {
+		*status_vector++ = SYS_ERR;
+		*status_vector++ = errcode;
+	}
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = gds__sort_err;	/* Msg355: sort error */
+	*status_vector = gds_arg_end;
+
+	ERR_punt();
+}
+
+
+void SORT_fini(SCB scb, ATT att)
+{
+/**************************************
+ *
+ *      S O R T _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *      Finish sort, and release all resources.
+ *
+ **************************************/
+	BOOLEAN rval;				/*  Return value from local_fini  */
+
+	rval = local_fini(scb, att);
+
+/* And the sort context block itself */
+/* *IF* local_fini didn't have a problem with the SCB.  */
+/* --  Morgan Schweers (mrs)  */
+
+	if (rval == TRUE)
+		ALL_free(reinterpret_cast < char *>(scb));
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+void SORT_get(
+			  STATUS * status_vector,
+			  SCB scb, ULONG ** record_address, RSE_GET_MODE mode)
+{
+/**************************************
+ *
+ *      S O R T _ g e t ( I B _ V 4 _ 1 )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get a record from sort (in order, of course).
+ *      The address of the record is returned in <record_address>
+ *      If the stream is exhausted, SORT_get ib_puts NULL in <record_address>.
+ *
+ **************************************/
+	SORT_RECORD *record;
+
+	scb->scb_status_vector = status_vector;
+
+/* If there were runs, get the records from the merge
+   tree--otherwise everything fit in memory */
+
+	if (scb->scb_merge)
+		record = get_merge(scb->scb_merge, scb, mode);
+	else
+		switch (mode) {
+		case RSE_get_forward:
+			if (scb->scb_flags & scb_initialized)
+				scb->scb_flags &= ~scb_initialized;
+
+			while (TRUE) {
+				if (scb->scb_next_pointer > scb->scb_last_pointer) {
+					record = NULL;
+					break;
+				}
+				if (record = *scb->scb_next_pointer++)
+					break;
+			}
+			break;
+
+		case RSE_get_backward:
+			if (scb->scb_flags & scb_initialized) {
+				scb->scb_flags &= ~scb_initialized;
+				scb->scb_next_pointer = scb->scb_last_pointer + 1;
+			}
+			else
+				/* by definition, the next pointer is on the next record, 
+				   so we have to go back one to get to the last fetched record--
+				   this is easier than changing the sense of the next pointer */
+
+			{
+				scb->scb_next_pointer--;
+				if (scb->scb_next_pointer <= scb->scb_first_pointer + 1) {
+					record = NULL;
+					scb->scb_next_pointer++;
+					break;
+				}
+			}
+
+			while (TRUE) {
+				scb->scb_next_pointer--;
+				if (scb->scb_next_pointer <= scb->scb_first_pointer) {
+					record = NULL;
+					scb->scb_next_pointer++;
+					break;
+				}
+				if (record = *scb->scb_next_pointer)
+					break;
+			}
+
+			/* reset next pointer to one greater than the last fetched */
+
+			scb->scb_next_pointer++;
+			break;
+
+#ifdef PC_ENGINE
+		case RSE_get_current:
+			if (scb->scb_next_pointer <= scb->scb_first_pointer ||
+				scb->scb_next_pointer > scb->scb_last_pointer)
+				record = NULL;
+			record = *scb->scb_next_pointer;
+			break;
+#endif
+
+		default:
+			assert(FALSE);
+			break;
+		}
+
+	if (record)
+		SORT_diddle_key((UCHAR *) record->sort_record_key, scb, FALSE);
+
+	*record_address = (ULONG *) record;
+}
+#else
+void SORT_get(STATUS * status_vector, SCB scb, ULONG ** record_address)
+{
+/**************************************
+ *
+ *      S O R T _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get a record from sort (in order, of course).
+ *      The address of the record is returned in <record_address>
+ *      If the stream is exhausted, SORT_get ib_puts NULL in <record_address>.
+ *
+ **************************************/
+	SORT_RECORD *record;
+
+	scb->scb_status_vector = status_vector;
+
+/* If there weren't any runs, everything fit in memory.  Just return stuff. */
+
+	if (!scb->scb_merge)
+		while (TRUE) {
+			if (scb->scb_records == 0) {
+				record = NULL;
+				break;
+			}
+			scb->scb_records--;
+			if (record = *scb->scb_next_pointer++)
+				break;
+		}
+	else
+		record = get_merge(scb->scb_merge, scb);
+
+	*record_address = (ULONG *) record;
+
+	if (record) {
+		diddle_key((UCHAR *) record->sort_record_key, scb, FALSE);
+	}
+}
+#endif
+
+
+SCB SORT_init(STATUS * status_vector,
+			  USHORT record_length,
+			  USHORT keys,
+			  SKD * key_description,
+			  BOOLEAN(*call_back) (), void *user_arg, ATT att)
+{
+/**************************************
+ *
+ *      S O R T _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Initialize for a sort.  All we really need is a description
+ *      of the sort keys.  Return the address  of a sort context block.
+ *      If duplicate control is required, the user may specify a call
+ *      back routine.  If supplied, the call back routine is called
+ *      with three argument: the two records and the user supplied
+ *      argument.  If the call back routine returns TRUE, the second
+ *      duplicate record is eliminated.
+ *
+ **************************************/
+	SCB scb;
+	SKD *p, *q;
+
+/* Allocate and setup a sort context block, including copying the
+   key description vector.  Round the record length up to the next
+   longword, and add a longword to a pointer back to the pointer
+   slot.  */
+
+	scb = (SCB) ALL_malloc((SLONG) SCB_LEN(keys), ERR_val);
+/* FREE: scb is freed by SORT_fini(), called by higher level cleanup */
+/* FREE: or later in this module in error cases */
+	if (!scb) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__sort_mem_err;
+		*status_vector = gds_arg_end;
+		return NULL;
+	}
+	memset((UCHAR *) scb, 0, SCB_LEN(keys));
+
+	scb->scb_status_vector = status_vector;
+	scb->scb_length = record_length;
+	scb->scb_longs =
+		ROUNDUP(record_length + sizeof(SLONG *),
+				sizeof(SLONG *)) >> SHIFTLONG;
+	scb->scb_dup_callback = call_back;
+	scb->scb_dup_callback_arg = user_arg;
+	scb->scb_keys = keys;
+
+	p = scb->scb_description;
+	q = key_description;
+	do
+		*p++ = *q++;
+	while (--keys);
+
+	--p;
+	scb->scb_key_length =
+		ROUNDUP(p->skd_offset + p->skd_length, sizeof(SLONG)) >> SHIFTLONG;
+
+/* Next, try to allocate a "big block".  How big?  Big enough! */
+
+#ifdef DEBUG_MERGE
+/* To debug the merge algorithm, force the in-memory pool to be VERY small */
+	scb->scb_size_memory = 2000;
+	scb->scb_memory =
+		(SORTP *) ALL_malloc((SLONG) scb->scb_size_memory, ERR_val);
+	/* FREE: scb_memory is freed by local_fini() */
+#else
+/* Try to get a big chunk of memory, if we can't try smaller and
+   smaller chunks until we can get the memory.  If we get down to
+   too small a chunk - punt and report not enough memory. */
+
+	for (scb->scb_size_memory = MAX_SORT_BUFFER_SIZE;;
+		 scb->scb_size_memory -= 5000) if (scb->scb_size_memory < 10000)
+			break;
+		else if (scb->scb_memory =
+				 (SORTP *) ALL_sys_alloc((SLONG) scb->scb_size_memory,
+										 ERR_val))
+			/* FREE: scb_memory is freed by local_fini() */
+			break;
+#endif /* DEBUG_MERGE */
+
+	if (!scb->scb_memory) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__sort_mem_err;
+		/* Msg356: sort error: not enough memory */
+		*status_vector = gds_arg_end;
+		ALL_free(reinterpret_cast < char *>(scb));
+		return NULL;
+	}
+
+	scb->scb_end_memory =
+		(SORTP *) ((BLOB_PTR *) scb->scb_memory + scb->scb_size_memory);
+	scb->scb_first_pointer = (SORT_RECORD **) scb->scb_memory;
+
+/* Set up to receive the first record. */
+
+	init(scb);
+
+/* If a linked list pointer was given, link in new sort block */
+
+	if (att) {
+		scb->scb_next = att->att_active_sorts;
+		att->att_active_sorts = scb;
+		scb->scb_attachment = att;
+	}
+
+	return scb;
+}
+
+
+int SORT_put(STATUS * status_vector, SCB scb, ULONG ** record_address)
+{
+/**************************************
+ *
+ *      S O R T _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Allocate space for a record for sort.  The caller is responsible
+ *      for moving in the record.
+ *
+ *      Records are added from the top (higher addresses) of sort memory going down.  Record
+ *      pointers are added at the bottom (lower addresses) of sort memory going up.  When
+ *      they overlap, the records in memory are sorted and written to a "run"
+ *      in the scratch files.  The runs are eventually merged.
+ *
+ **************************************/
+	RUN run;
+	USHORT count, depth;
+	SR *record;
+
+	scb->scb_status_vector = status_vector;
+
+/* Find the last record passed in, and zap the keys something comparable
+   by unsigned longword compares. */
+
+	record = scb->scb_last_record;
+
+	if (record != (SR *) scb->scb_end_memory)
+#ifdef SCROLLABLE_CURSORS
+		SORT_diddle_key((UCHAR *) (record->sr_sort_record.sort_record_key),
+						scb, TRUE);
+#else
+		diddle_key((UCHAR *) (record->sr_sort_record.sort_record_key), scb,
+				   TRUE);
+#endif
+
+/* If there isn't room for the record, sort and write the run.
+   Check that we are not at the beginning of the buffer in addition
+   to checking for space for the record.  This avoids the pointer
+   record from underflowing in the second condition. */
+
+	if ((BLOB_PTR *) record < (BLOB_PTR *) (scb->scb_memory + scb->scb_longs)
+		|| (BLOB_PTR *) NEXT_RECORD(record) <=
+		(BLOB_PTR *) (scb->scb_next_pointer + 1)) {
+		put_run(scb);
+		for (;;) {
+			run = scb->scb_runs;
+			if ((depth = run->run_depth) == MAX_MERGE_LEVEL)
+				break;
+			count = 1;
+			while ((run = run->run_next) && run->run_depth == depth)
+				count++;
+			if (count < RUN_GROUP)
+				break;
+			merge_runs(scb, count);
+		}
+		init(scb);
+		record = scb->scb_last_record;
+	}
+
+	record = NEXT_RECORD(record);
+
+/* Make sure the first longword of the record points to the pointer */
+	scb->scb_last_record = record;
+	record->sr_bckptr = scb->scb_next_pointer;
+
+/* move key_id into *scb->scb_next_pointer and then
+  increment scb->scb_next_pointer */
+	*scb->scb_next_pointer++ =
+		reinterpret_cast <
+		sort_record * >(record->sr_sort_record.sort_record_key);
+#ifndef SCROLLABLE_CURSORS
+	scb->scb_records++;
+#endif
+	*record_address = (ULONG *) record->sr_sort_record.sort_record_key;
+
+	return 0;
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+void SORT_read_block(
+#else
+ULONG SORT_read_block(
+#endif
+						 STATUS * status_vector,
+						 SFB sfb,
+						 ULONG seek, BLOB_PTR * address, ULONG length)
+{
+/**************************************
+ *
+ *      S O R T _ r e a d _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Read a block of stuff from a scratch file.
+ *
+ **************************************/
+	USHORT len, read_len, i;
+
+#ifdef SORT_TRACE
+	UCHAR *org_address;
+	ULONG org_length, org_seek;
+
+	org_address = address;
+	org_length = length;
+	org_seek = seek;
+#endif
+
+/* Checkout of engine on sort I/O */
+
+	THREAD_EXIT;
+
+/* The following is a crock induced by a VMS C bug */
+
+	while (length) {
+		len = MIN(length, 32768);
+		for (i = 0; i < IO_RETRY; i++) {
+			if (lseek(sfb->sfb_file, seek, SEEK_SET) == -1) {
+				THREAD_ENTER;
+				SORT_error(status_vector, sfb, "lseek", isc_io_read_err,
+						   errno);
+			}
+			if ((read_len = read(sfb->sfb_file, address, len)) == len)
+				break;
+			else if ((SSHORT) read_len == -1 && !SYSCALL_INTERRUPTED(errno)) {
+				THREAD_ENTER;
+				SORT_error(status_vector, sfb, "read", isc_io_read_err,
+						   errno);
+			}
+		}
+
+		if (i == IO_RETRY) {
+			THREAD_ENTER;
+			SORT_error(status_vector, sfb, "read", isc_io_read_err, errno);
+		}
+		length -= read_len;
+		address += read_len;
+		seek += read_len;
+	}
+
+	THREAD_ENTER;
+
+#ifdef SORT_TRACE
+	write_trace("Read", sfb, org_seek, org_address, org_length);
+#endif
+#ifndef SCROLLABLE_CURSORS
+	return seek;
+#endif
+}
+
+
+void SORT_shutdown(ATT att)
+{
+/**************************************
+ *
+ *      S O R T _ s h u t d o w n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Clean up any pending sorts.
+ *
+ **************************************/
+
+/* We ignore the result from local_fini,
+   since the expectation is that from the
+   way we are passing in the structures
+   that every SCB *IS* part of the ptr
+   chain.  Also, we're not freeing the
+   structure here, so if something goes
+   wrong, it's not *CRITICAL*.  --  mrs  */
+
+	while (att->att_active_sorts)
+		local_fini(att->att_active_sorts, att);
+}
+
+
+int SORT_sort(STATUS * status_vector, SCB scb)
+{
+/**************************************
+ *
+ *      S O R T _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Perform any intermediate computing before giving records
+ *      back.  If there weren't any runs, run sort the buffer.
+ *      If there were runs, sort and write out the last run and
+ *      build a merge tree.
+ *
+ **************************************/
+	ULONG count, run_count, size, temp;
+	RUN run;
+	RMH *m1, *m2, *streams, streams_local[200];
+	MRG merge;
+	MRG merge_pool;
+	SORTP *buffer;
+
+	scb->scb_status_vector = status_vector;
+
+	if (scb->scb_last_record != (SR *) scb->scb_end_memory)
+#ifdef SCROLLABLE_CURSORS
+		SORT_diddle_key((UCHAR *) KEYOF(scb->scb_last_record), scb, TRUE);
+#else
+		diddle_key((UCHAR *) KEYOF(scb->scb_last_record), scb, TRUE);
+#endif
+
+/* If there aren't any runs, things fit nicely in memory.  Just sort the mess
+   and we're ready for output */
+
+	if (!scb->scb_runs) {
+		sort(scb);
+#ifdef SCROLLABLE_CURSORS
+		scb->scb_last_pointer = scb->scb_next_pointer - 1;
+#endif
+		scb->scb_next_pointer = scb->scb_first_pointer + 1;
+#ifdef SCROLLABLE_CURSORS
+		scb->scb_flags |= scb_initialized;
+#endif
+		scb->scb_flags |= scb_sorted;
+		return SUCCESS;
+	}
+
+/* Write the last records as a run */
+
+	put_run(scb);
+
+/* Build a merge tree for the run blocks.  Start by laying them all out
+   in a vector; this is done to allow us to build a merge tree from the
+   bottom up, ensuring that a balanced tree is built. */
+
+	for (run_count = 0, run = scb->scb_runs; run; run = run->run_next) {
+		if (run->run_buff_alloc) {
+			ALL_free(reinterpret_cast < char *>(run->run_buffer));
+			run->run_buff_alloc = 0;
+		}
+		++run_count;
+	}
+
+	if ((run_count * sizeof(RMH)) > sizeof(streams_local))
+		streams =
+			(RMH *) ALL_malloc((SLONG) run_count * sizeof(RMH), ERR_val);
+	/* FREE: streams is freed later in this routine */
+	else
+		streams = streams_local;
+
+	if (!streams) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__sort_mem_err;
+		*status_vector = gds_arg_end;
+		return gds__sort_mem_err;
+	}
+
+	m1 = streams;
+	for (run = scb->scb_runs; run; run = run->run_next)
+		*m1++ = (RMH) run;
+	count = run_count;
+
+/* We're building a b-tree of the sort merge blocks, we have (count)
+ * leaves already, so we *know* we need (count-1) merge blocks.
+ */
+	if (count > 1) {
+		assert(!scb->scb_merge_pool);	/* shouldn't have a pool */
+		scb->scb_merge_pool =
+			(MRG) ALL_malloc((SLONG) (count - 1) * sizeof(struct mrg),
+							 ERR_val);
+		/* FREE: smb_merge_pool freed in local_fini() when the scb is released */
+
+		merge_pool = scb->scb_merge_pool;
+		if (!merge_pool) {
+			ALL_free(reinterpret_cast < char *>(streams));
+			*status_vector++ = gds_arg_gds;
+			*status_vector++ = gds__sort_mem_err;
+			*status_vector = gds_arg_end;
+			return gds__sort_mem_err;
+		}
+		memset(merge_pool, 0, (count - 1) * sizeof(struct mrg));
+	}
+	else {
+		/* "Merge" of 1 or 0 runs doesn't make sense. */
+		assert(FALSE);			/* We really shouldn't get here */
+		merge = (MRG) * streams;	/* But if we do... */
+	}
+
+/* each pass through the vector builds a level of the merge tree
+   by condensing two runs into one
+   We will continue to make passes until there is a single item */
+
+/* See also kissing cousin of this loop in merge_runs() */
+
+	while (count > 1) {
+		m1 = m2 = streams;
+
+		/* "m1" is used to sequence through the runs being merged, 
+		   while "m2" points at the new merged run */
+
+		while (count >= 2) {
+			merge = merge_pool++;
+			merge->mrg_header.rmh_type = TYPE_MRG;
+
+			assert(((*m1)->rmh_type == TYPE_MRG) ||	/* garbage watch */
+				   ((*m1)->rmh_type == TYPE_RUN));
+
+			(*m1)->rmh_parent = merge;
+			merge->mrg_stream_a = *m1++;
+
+			assert(((*m1)->rmh_type == TYPE_MRG) ||	/* garbage watch */
+				   ((*m1)->rmh_type == TYPE_RUN));
+
+			(*m1)->rmh_parent = merge;
+			merge->mrg_stream_b = *m1++;
+
+			merge->mrg_record_a = (SORT_RECORD *) NULL;
+			merge->mrg_record_b = (SORT_RECORD *) NULL;
+
+			*m2++ = (RMH) merge;
+			count -= 2;
+		}
+
+		if (count)
+			*m2++ = *m1++;
+		count = m2 - streams;
+	}
+
+	if (streams != streams_local)
+		ALL_free(reinterpret_cast < char *>(streams));
+	buffer = (SORTP *) scb->scb_first_pointer;
+	merge->mrg_header.rmh_parent = NULL;
+	scb->scb_merge = merge;
+	scb->scb_longs -= SIZEOF_SR_BCKPTR_IN_LONGS;
+
+/* Divvy up the sort space among buffers for runs.  Although something slightly
+   better could be arranged, for now give them all the same size hunk. */
+
+	temp = DIFF_LONGS(scb->scb_end_memory, buffer);
+	count = temp / (scb->scb_longs * run_count);
+	if (count) {
+		size = count * (SSHORT) scb->scb_longs;
+		count = run_count;
+	}
+	else {
+		size = (SSHORT) scb->scb_longs;
+		count = temp / scb->scb_longs;
+	}
+
+/* allocate buffer space for either all the runs, if they fit, or for
+   as many as allow */
+
+	for (run = scb->scb_runs; run && count; count--, run = run->run_next) {
+		run->run_buffer = buffer;
+		buffer += size;
+		run->run_record =
+			reinterpret_cast < sort_record * >(run->run_end_buffer = buffer);
+	}
+
+/* if there was not enough buffer space, get some more for the remaining runs
+   allocating enough for the merge space plus a link */
+
+	for (; run; run = run->run_next) {
+		run->run_buffer =
+			(ULONG *) ALL_malloc((SLONG) (size * sizeof(ULONG)), ERR_val);
+		/* FREE: smb_merge_space freed in local_fini() when the scb is released */
+		if (!run->run_buffer) {
+			*status_vector++ = gds_arg_gds;
+			*status_vector++ = gds__sort_mem_err;
+			*status_vector = gds_arg_end;
+			return gds__sort_mem_err;
+		}
+		/* Link the new buffer into the chain of buffers */
+		run->run_buff_alloc = 1;
+		run->run_record =
+			reinterpret_cast < sort_record * >(run->run_end_buffer =
+											   run->run_buffer + size);
+	}
+
+	scb->scb_flags |= scb_sorted;
+	return SUCCESS;
+}
+
+
+ULONG SORT_write_block(STATUS * status_vector,
+					   SFB sfb, ULONG seek, BLOB_PTR * address, ULONG length)
+{
+/**************************************
+ *
+ *      S O R T _ w r i t e _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Write a block of stuff to the scratch file.
+ *
+ **************************************/
+	USHORT len, write_len, i;
+
+#ifdef SORT_TRACE
+	write_trace("Write", sfb, seek, address, length);
+#endif
+
+/* Check out of engine on sort I/O */
+
+	THREAD_EXIT;
+
+/* The following is a crock induced by a VMS C bug */
+
+	while (length) {
+		len = MIN(length, 32768);
+		for (i = 0; i < IO_RETRY; i++) {
+			if (lseek(sfb->sfb_file, seek, SEEK_SET) == -1) {
+				THREAD_ENTER;
+				SORT_error(status_vector, sfb, "lseek", isc_io_write_err,
+						   errno);
+			}
+			if ((write_len = write(sfb->sfb_file, address, len)) == len)
+				break;
+			else {
+				if (write_len >= 0)
+					/* If write returns value that is not equal len, then 
+					   most likely there is not enough space, try to write
+					   one more time to get meaningful errno  */
+					write_len = write(sfb->sfb_file, address + write_len,
+									  len - write_len);
+				if ((SSHORT) write_len == -1 && !SYSCALL_INTERRUPTED(errno)) {
+					THREAD_ENTER;
+					SORT_error(status_vector, sfb, "write", isc_io_write_err,
+							   errno);
+				}
+			}
+		}
+
+		if (i == IO_RETRY) {
+			THREAD_ENTER;
+			SORT_error(status_vector, sfb, "write", isc_io_write_err, errno);
+		}
+		length -= write_len;
+		address += write_len;
+		seek += write_len;
+	}
+
+	THREAD_ENTER;
+
+	return seek;
+}
+
+
+static UCHAR *alloc(SCB scb, ULONG size)
+{
+/**************************************
+ *
+ *      a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *      Allocate and zero a block of memory.
+ *
+ *      Notes about memory management in this module.
+ *        - Apparently this historical reason (from Deej) that this
+ *          module uses ALL_malloc directly, instead of the JRD allocator
+ *          is so a large sort will not push up the high-water mark of
+ *          memory allocated to a request or attachment (recall this memory
+ *          isn't released until the request/attachment finished)
+ *        - As a result, the memory blocks allocated here don't have 
+ *          the blk_header structure (we'ld have to add it if we ever 
+ *          change this)
+ *        - Most things allocated have pointers placed in the scb.
+ *          (sort control block)
+ *        - There is an error handler set up by our caller, which will
+ *          call back to SORT_fini(), which frees all the memory
+ *          chains that hang off the scb.
+ *        - There are some short-term allocations done (for instance,
+ *          when sorting a run before writing it to disk).  There appears
+ *          to be no need to have an error handler to free them as
+ *          no errors can be posted during the process.
+ *
+ *      1994-October-11 David Schnepper 
+ *
+ **************************************/
+	UCHAR *block;
+
+	if (!
+		(block =
+		 reinterpret_cast < UCHAR * >(ALL_malloc((SLONG) size, ERR_val))))
+/* FREE: caller responsible for freeing */
+	{
+		error_memory(scb);
+		return NULL;
+	}
+
+	memset(block, 0, size);
+	return block;
+}
+
+#ifndef SCROLLABLE_CURSORS
+#ifndef VAX
+static void diddle_key(UCHAR * record, SCB scb, USHORT direction)
+{
+/**************************************
+ *
+ *      d i d d l e _ k e y             ( n o n - V A X )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Perform transformation between the natural form of a record
+ *      and a form that can be sorted in unsigned comparison order.
+ *
+ *      direction - TRUE for SORT_put() and FALSE for SORT_get()
+ *
+ **************************************/
+	UCHAR *p, *fill_pos, fill_char;
+	USHORT complement, n, l, fill, flag;
+	SKD *key, *end;
+
+	for (key = scb->scb_description, end = key + scb->scb_keys; key < end;
+		 key++) {
+		p = record + key->skd_offset;
+		n = key->skd_length;
+		complement = key->skd_flags & SKD_descending;
+		switch (key->skd_dtype) {
+		case SKD_ulong:
+		case SKD_ushort:
+		case SKD_bytes:
+		case SKD_sql_time:
+			break;
+
+			/* Stash embedded control info for non-fixed data types in the sort
+			   record and zap it so that it doesn't interfere with collation. */
+
+		case SKD_varying:
+			if (direction) {
+				if (!(scb->scb_flags & scb_sorted)) {
+					*((USHORT *) (record + key->skd_vary_offset)) =
+						((VARY *) p)->vary_length;
+					fill_char =
+						(key->skd_flags & SKD_binary) ? 0 : ASCII_SPACE;
+					fill_pos = p + sizeof(USHORT) + ((VARY *) p)->vary_length;
+					fill = n - sizeof(USHORT) - ((VARY *) p)->vary_length;
+					if (fill)
+						memset(fill_pos, fill_char, fill);
+				}
+				((VARY *) p)->vary_length = 0;
+			}
+			break;
+
+		case SKD_cstring:
+			if (direction) {
+				fill_char = (key->skd_flags & SKD_binary) ? 0 : ASCII_SPACE;
+				if (!(scb->scb_flags & scb_sorted)) {
+					*((USHORT *) (record + key->skd_vary_offset)) = l =
+						strlen(p);
+					fill_pos = p + l;
+					fill = n - l;
+					if (fill)
+						memset(fill_pos, fill_char, fill);
+				}
+				else {
+					l = *((USHORT *) (record + key->skd_vary_offset));
+					*(p + l) = fill_char;
+				}
+			}
+			break;
+
+		case SKD_text:
+			break;
+
+#ifndef VMS
+		case SKD_d_float:
+#else
+			Deliberate_compile_error++;
+			Fix for any VMS port.
+#endif
+			case SKD_float:case SKD_double:flag = (direction || !complement)
+				? direction : TRUE;
+			if (flag ^ (*p >> 7))
+				*p ^= 1 << 7;
+			else
+				complement = !complement;
+			break;
+
+		case SKD_long:
+		case SKD_short:
+		case SKD_quad:
+		case SKD_timestamp1:
+		case SKD_timestamp2:
+		case SKD_sql_date:
+		case SKD_int64:
+			*p ^= 1 << 7;
+			break;
+
+		default:
+			assert(FALSE);
+			break;
+		}
+		if (complement && n)
+			do
+				*p++ ^= -1;
+			while (--n);
+
+		/* Flatter but don't complement control info for non-fixed
+		   data types when restoring the data. */
+
+		if (key->skd_dtype == SKD_varying && !direction) {
+			p = record + key->skd_offset;
+			((VARY *) p)->vary_length = *((USHORT *) (record + key->skd_vary_offset));
+		}
+
+		if (key->skd_dtype == SKD_cstring && !direction) {
+			p = record + key->skd_offset;
+			l = *((USHORT *) (record + key->skd_vary_offset));
+			*(p + l) = 0;
+		}
+	}
+}
+
+
+#else
+static void diddle_key(UCHAR * record, SCB scb, USHORT direction)
+{
+/**************************************
+ *
+ *      d i d d l e _ k e y             ( V A X )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Perform transformation between the natural form of a record
+ *      and a form that can be sorted in unsigned comparison order.
+ *
+ *      direction - TRUE for SORT_put() and FALSE for SORT_get()
+ *
+ **************************************/
+	register BLOB_PTR *p;
+	UCHAR c1, c2, fill_char, *fill_pos;
+	USHORT complement, n, w, l, fill;
+	USHORT HUGE_PTR *wp;
+	SSHORT longs, flag;
+	SORTP *lwp;
+	ULONG lw;
+	register SKD *key, *end;
+#ifdef  VMS
+	double *dp;
+#endif
+
+	for (key = scb->scb_description, end = key + scb->scb_keys; key < end;
+		 key++) {
+		p = (BLOB_PTR *) record + key->skd_offset;
+		wp = (USHORT HUGE_PTR *) p;
+		lwp = (SORTP *) p;
+		complement = key->skd_flags & SKD_descending;
+		n = ROUNDUP(key->skd_length, sizeof(SLONG));
+		switch (key->skd_dtype) {
+		case SKD_timestamp1:
+		case SKD_timestamp2:
+		case SKD_sql_time:
+		case SKD_sql_date:
+			p[3] ^= 1 << 7;
+			break;
+
+		case SKD_ulong:
+		case SKD_ushort:
+			break;
+
+		case SKD_text:
+		case SKD_bytes:
+		case SKD_cstring:
+		case SKD_varying:
+
+			/* Stash embedded control info for non-fixed data types in the sort
+			   record and zap it so that it doesn't interfere with collation. */
+
+			if (key->skd_dtype == SKD_varying && direction) {
+				if (!(scb->scb_flags & scb_sorted)) {
+					*((USHORT *) (record + key->skd_vary_offset)) = l =
+						((VARY *) p)->vary_length;
+					fill_char =
+						(key->skd_flags & SKD_binary) ? 0 : ASCII_SPACE;
+					fill_pos = p + sizeof(USHORT) + l;
+					fill = n - sizeof(USHORT) - l;
+					if (fill)
+						memset(fill_pos, fill_char, fill);
+				}
+				((VARY *) p)->vary_length = 0;
+			}
+
+			if (key->skd_dtype == SKD_cstring && direction) {
+				fill_char = (key->skd_flags & SKD_binary) ? 0 : ASCII_SPACE;
+				if (!(scb->scb_flags & scb_sorted)) {
+					*((USHORT *) (record + key->skd_vary_offset)) = l =
+						strlen(reinterpret_cast < const char *>(p));
+					fill_pos = p + l;
+					fill = n - l;
+					if (fill)
+						memset(fill_pos, fill_char, fill);
+				}
+				else {
+					l = *((USHORT *) (record + key->skd_vary_offset));
+					*(p + l) = fill_char;
+				}
+			}
+
+			longs = n >> SHIFTLONG;
+			while (--longs >= 0) {
+				c1 = p[3];
+				p[3] = *p;
+				*p++ = c1;
+				c1 = p[1];
+				p[1] = *p;
+				*p = c1;
+				p += 3;
+			}
+			p = (BLOB_PTR *) wp;
+			break;
+
+		case SKD_short:
+			p[1] ^= 1 << 7;
+			break;
+
+		case SKD_long:
+			p[3] ^= 1 << 7;
+			break;
+
+		case SKD_quad:
+			p[7] ^= 1 << 7;
+			break;
+
+		case SKD_int64:
+			/* INT64's fit in TWO LONGS, and hence the SWAP has to happen
+			   here for the right order comparison using DO_32_COMPARE */
+			if (!direction)
+				SWAP_LONGS(lwp[0], lwp[1], lw);
+
+			p[7] ^= 1 << 7;
+
+			if (direction)
+				SWAP_LONGS(lwp[0], lwp[1], lw);
+			break;
+
+#ifdef IEEE
+		case SKD_double:
+			if (!direction) {
+				lw = lwp[0];
+				lwp[0] = lwp[1];
+				lwp[1] = lw;
+			}
+			flag = (direction || !complement) ? direction : TRUE;
+			if (flag ^ (p[7] >> 7))
+				p[7] ^= 1 << 7;
+			else
+				complement = !complement;
+			if (direction) {
+				lw = lwp[0];
+				lwp[0] = lwp[1];
+				lwp[1] = lw;
+			}
+			break;
+
+		case SKD_float:
+			flag = (direction || !complement) ? direction : TRUE;
+			if (flag ^ (p[3] >> 7))
+				p[3] ^= 1 << 7;
+			else
+				complement = !complement;
+			break;
+
+#else /* IEEE */
+#ifdef VMS
+		case SKD_d_float:
+			dp = (double *) p;
+			if (direction)
+				*dp = MTH$CVT_D_G(dp);
+
+#endif
+		case SKD_double:
+			w = wp[2];
+			wp[2] = wp[3];
+			wp[3] = w;
+
+#ifndef VMS
+		case SKD_d_float:
+#endif
+		case SKD_float:
+			if (!direction)
+				if (complement) {
+					if (p[3] & 1 << 7)
+						complement = !complement;
+					else
+						p[3] ^= 1 << 7;
+				}
+				else {
+					if (p[3] & 1 << 7)
+						p[3] ^= 1 << 7;
+					else
+						complement = !complement;
+				}
+			w = wp[0];
+			wp[0] = wp[1];
+			wp[1] = w;
+			if (direction)
+				if (p[3] & 1 << 7)
+					complement = !complement;
+				else
+					p[3] ^= 1 << 7;
+#ifdef VMS
+			else if (key->skd_dtype == SKD_d_float)
+				*dp = MTH$CVT_G_D(dp);
+#endif
+			break;
+#endif /* IEEE */
+
+		default:
+
+/*	Don't want the debug version to
+        stop because uf skd_type = 0
+FSG 22.Dez.2000
+
+        assert (FALSE);
+*/
+
+			break;
+		}
+		if (complement && n)
+			do
+				*p++ ^= -1;
+			while (--n);
+
+		/* Flatter but don't complement control info for non-fixed
+		   data types when restoring the data. */
+
+		if (key->skd_dtype == SKD_varying && !direction) {
+			p = (BLOB_PTR *) record + key->skd_offset;
+			((VARY *) p)->vary_length = *((USHORT *) (record + key->skd_vary_offset));
+		}
+
+		if (key->skd_dtype == SKD_cstring && !direction) {
+			p = (BLOB_PTR *) record + key->skd_offset;
+			l = *((USHORT *) (record + key->skd_vary_offset));
+			*(p + l) = 0;
+		}
+	}
+}
+#endif
+#endif
+
+
+static void error_memory(SCB scb)
+{
+/**************************************
+ *
+ *       e r r o r _ m e m o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Report fatal out of memory error.
+ *
+ **************************************/
+	STATUS *status_vector;
+
+	status_vector = scb->scb_status_vector;
+
+	assert(status_vector != NULL);
+
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = gds__sort_mem_err;
+	*status_vector = gds_arg_end;
+	ERR_punt();
+}
+
+
+static ULONG find_file_space(SCB scb, ULONG size, SFB * ret_sfb)
+{
+/**************************************
+ *
+ *      f i n d _ f i l e _ s p a c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Find space of input size in one of the 
+ *      open sort files.  If a free block is not 
+ *      available, allocate space at the end.
+ *
+ **************************************/
+	WFS space, *ptr, *best;
+	SFB sfb, *sfb_ptr, best_sfb, last_sfb;
+	TEXT file_name[128];
+
+/* Find the best available space.  This is defined as the smallest free space
+   that is big enough.  This preserves large blocks. */
+
+	best = NULL;
+	last_sfb = NULL;
+	file_name[0] = '\0';
+
+/* Search through the available space in the work file list. */
+
+	for (sfb_ptr = &scb->scb_sfb; sfb = *sfb_ptr; sfb_ptr = &sfb->sfb_next) {
+		for (ptr = &sfb->sfb_file_space; space = *ptr;
+			 ptr = &(*ptr)->wfs_next) {
+			/* if this is smaller than our previous best, use it */
+
+			if (space->wfs_size >= size &&
+				(!best || (space->wfs_size < (*best)->wfs_size))) {
+				best = ptr;
+				best_sfb = sfb;
+			}
+		}
+
+		/* Save the previous sfb pointer because when we get out of this
+		   for loop, sfb would be a NULL pointer. */
+
+		last_sfb = sfb;
+	}
+	sfb = last_sfb;
+
+/* If we didn't find any space, allocate it at the end of the file. */
+
+	if (!best) {
+		/* if there is no file allocated yet or the size requested is bigger
+		   than available space in the current directory, create a new file
+		   and return. */
+
+		if (!sfb || !DLS_get_temp_space(size, sfb)) {
+			sfb = (SFB) alloc(scb, (ULONG) sizeof(struct sfb));
+			/* FREE: scb_sfb chain is freed in local_fini() */
+
+			if (last_sfb)
+				last_sfb->sfb_next = sfb;
+			else
+				scb->scb_sfb = sfb;
+
+			/* Find a free space */
+
+			sfb->sfb_dls = NULL;
+			if (!DLS_get_temp_space(size, sfb))
+				/* There is not enough space */
+				error_memory(scb);
+
+			/* Create a scratch file */
+
+			sfb->sfb_file =
+				(int) gds__tmp_file2(FALSE, SCRATCH, file_name,
+									 sfb->sfb_dls->dls_directory);
+
+			/* allocate the file name even if the file is not open,
+			   because the error routine depends on it
+			   This is released during local_fini(). */
+
+			sfb->sfb_file_name =
+				(TEXT *) alloc(scb, (ULONG) (strlen(file_name) + 1));
+			/* FREE: sfb_file_name is freed in local_fini() */
+
+			strcpy(sfb->sfb_file_name, file_name);
+
+			if (sfb->sfb_file == -1)
+				SORT_error(scb->scb_status_vector, sfb, "open",
+						   isc_io_open_err, errno);
+		}
+
+		*ret_sfb = sfb;
+		sfb->sfb_file_size += size;
+		return sfb->sfb_file_size - size;
+	}
+
+/* set up the return parameters */
+
+	*ret_sfb = best_sfb;
+	space = *best;
+
+/* If the hunk was an exact fit, remove the work file space block from the
+   list and splice it into the free list */
+
+	if (space->wfs_size == size) {
+		*best = space->wfs_next;
+		space->wfs_next = best_sfb->sfb_free_wfs;
+		best_sfb->sfb_free_wfs = space;
+		return space->wfs_position;
+	}
+
+/* The best block is too big -- chop the needed space off the end. */
+
+	space->wfs_size -= size;
+
+	return space->wfs_position + space->wfs_size;
+}
+
+
+static void free_file_space(SCB scb, SFB sfb, ULONG position, ULONG size)
+{
+/**************************************
+ *
+ *      f r e e _ f i l e _ s p a c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release a segment of work file.
+ *
+ **************************************/
+	WFS space, *ptr, next;
+	ULONG end;
+
+	assert(size > 0);
+	assert(position < sfb->sfb_file_size);	/* Block starts in file */
+	end = position + size;
+	assert(end <= sfb->sfb_file_size);	/* Block ends in file */
+
+/* Search through work file space blocks looking for an adjacent block. */
+
+	for (ptr = &sfb->sfb_file_space; space = *ptr; ptr = &space->wfs_next) {
+		if (end >= space->wfs_position)
+			break;
+	}
+
+	if (space) {
+		/* may have found an adjacent block - try to join them together */
+
+		if (end == space->wfs_position) {
+			/* newly freed block starts just before previously freed */
+			space->wfs_position -= size;
+			space->wfs_size += size;
+			return;
+		}
+
+		if (position == space->wfs_position + space->wfs_size) {
+			/* newly freed block starts just after previously freed */
+			space->wfs_size += size;
+
+			if ((next = space->wfs_next) && end == next->wfs_position) {
+				/* The NEXT freed block is adjacent, join it too */
+				space->wfs_size += next->wfs_size;
+				space->wfs_next = next->wfs_next;
+				next->wfs_next = sfb->sfb_free_wfs;
+				sfb->sfb_free_wfs = next;
+			}
+			return;
+		}
+
+		/* Blocks weren't adjacent - just nearby */
+
+		/* Check that block to free doesn't overlap existing free block */
+		assert(position >= space->wfs_position + space->wfs_size);
+	}
+
+/* Block didn't seem to append nicely to an existing block */
+
+	if (space = sfb->sfb_free_wfs)
+		sfb->sfb_free_wfs = space->wfs_next;
+	else
+		space = (WFS) alloc(scb, (ULONG) sizeof(struct wfs));
+	/* FREE: wfs_next chain is freed in local_fini() */
+
+	space->wfs_next = *ptr;
+	*ptr = space;
+	space->wfs_size = size;
+	space->wfs_position = position;
+}
+
+
+static SORT_RECORD *get_merge(MRG merge, SCB scb
+#ifdef SCROLLABLE_CURSORS
+							  , RSE_GET_MODE mode
+#endif
+	)
+{
+/**************************************
+ *
+ *      g e t _ m e r g e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get next record from a merge tree and/or run.
+ *
+ **************************************/
+	register SORT_RECORD *record;	/* no more than 1 SORTP* to a line */
+	register SORTP *p;			/* no more than 1 SORTP* to a line */
+	register SORTP *q;			/* no more than 1 SORTP* to a line */
+	register ULONG l;
+#ifdef SCROLLABLE_CURSORS
+	ULONG space_available, data_remaining;
+#else
+	register ULONG n;
+#endif
+	USHORT eof;
+	RUN run;
+
+	record = NULL;
+	eof = FALSE;
+
+	while (merge) {
+		/* If node is a run, get the next record (or not) and back to parent. */
+
+		if (merge->mrg_header.rmh_type == TYPE_RUN) {
+			run = (RUN) merge;
+			merge = run->run_header.rmh_parent;
+
+			/* check for end-of-file condition in either direction */
+
+#ifdef SCROLLABLE_CURSORS
+			if (
+				(mode == RSE_get_backward
+				 && run->run_records >= run->run_max_records - 1)
+				|| (mode == RSE_get_forward && run->run_records == 0))
+#else
+			if (run->run_records == 0)
+#endif
+			{
+				record = (SORT_RECORD *) - 1;
+				eof = TRUE;
+				continue;
+			}
+
+			eof = FALSE;
+
+			/* Find the appropriate record in the buffer to return. */
+
+#ifdef SCROLLABLE_CURSORS
+			if (mode == RSE_get_forward) {
+				run->run_record = NEXT_RUN_RECORD(run->run_record);
+#endif
+				if ((record = (SORT_RECORD *) run->run_record) <
+					(SORT_RECORD *) run->run_end_buffer) {
+#ifndef SCROLLABLE_CURSORS
+					run->run_record =
+						reinterpret_cast <
+						sort_record * >(NEXT_RUN_RECORD(run->run_record));
+#endif
+					--run->run_records;
+					continue;
+				}
+#ifndef SCROLLABLE_CURSORS
+				/* There are records remaining, but the buffer is full.  Read a buffer
+				   full. */
+
+				l =
+					(ULONG) ((BLOB_PTR *) run->run_end_buffer -
+							 (BLOB_PTR *) run->run_buffer);
+				n = run->run_records * scb->scb_longs * sizeof(ULONG);
+				l = MIN(l, n);
+				run->run_seek =
+					SORT_read_block(scb->scb_status_vector, run->run_sfb,
+									run->run_seek, (UCHAR *) run->run_buffer,
+									l);
+#else
+			}
+			else {
+				run->run_record = PREV_RUN_RECORD(run->run_record);
+				if ((record = (SORT_RECORD *) run->run_record) >=
+					run->run_buffer) {
+					++run->run_records;
+					continue;
+				}
+			}
+
+			/* There are records remaining, but we have stepped over the 
+			   edge of the cache.  Read the next buffer full of records. */
+
+			assert((BLOB_PTR *) run->run_end_buffer >
+				   (BLOB_PTR *) run->run_buffer);
+
+			space_available =
+				(ULONG) ((BLOB_PTR *) run->run_end_buffer -
+						 (BLOB_PTR *) run->run_buffer);
+			if (mode == RSE_get_forward)
+				data_remaining =
+					run->run_records * scb->scb_longs * sizeof(ULONG);
+			else
+				data_remaining =
+					(run->run_max_records -
+					 run->run_records) * scb->scb_longs * sizeof(ULONG);
+			l = MIN(space_available, data_remaining);
+
+			if (mode == RSE_get_forward)
+				run->run_seek += run->run_cached;
+			else
+				run->run_seek -= l;
+
+			(void) SORT_read_block(scb->scb_status_vector, run->run_sfb,
+								   run->run_seek, run->run_buffer, l);
+			run->run_cached = l;
+
+			if (mode == RSE_get_forward) {
+#endif
+				record = reinterpret_cast < sort_record * >(run->run_buffer);
+#ifndef SCROLLABLE_CURSORS
+				run->run_record =
+					reinterpret_cast <
+					sort_record * >(NEXT_RUN_RECORD(record));
+#endif
+				--run->run_records;
+#ifdef SCROLLABLE_CURSORS
+			}
+			else {
+				record = PREV_RUN_RECORD(run->run_end_buffer);
+				++run->run_records;
+			}
+
+			run->run_record = (SORT_RECORD *) record;
+#endif
+			continue;
+		}
+
+		/* If've we got a record, somebody asked for it.  Find out who. */
+
+		if (record)
+			if (merge->mrg_stream_a && !merge->mrg_record_a)
+				if (eof)
+					merge->mrg_stream_a = NULL;
+				else
+					merge->mrg_record_a = record;
+			else if (eof)
+				merge->mrg_stream_b = NULL;
+			else
+				merge->mrg_record_b = record;
+
+
+		/* If either streams need a record and is still active, loop back to pick
+		   up the record.  If either stream is dry, return the record of the other.
+		   If both are dry, indicate eof for this stream.  */
+
+		record = NULL;
+		eof = FALSE;
+
+		if (!merge->mrg_record_a && merge->mrg_stream_a) {
+			merge = (MRG) merge->mrg_stream_a;
+			continue;
+		}
+
+		if (!merge->mrg_record_b)
+			if (merge->mrg_stream_b) {
+				merge = (MRG) merge->mrg_stream_b;
+				continue;
+			}
+			else if (record = merge->mrg_record_a) {
+				merge->mrg_record_a = (SORT_RECORD *) NULL;
+				merge = merge->mrg_header.rmh_parent;
+				continue;
+			}
+			else {
+				eof = TRUE;
+				record = (SORT_RECORD *) - 1;
+				merge = merge->mrg_header.rmh_parent;
+				continue;
+			}
+
+		if (!merge->mrg_record_a) {
+			record = merge->mrg_record_b;
+			merge->mrg_record_b = NULL;
+			merge = merge->mrg_header.rmh_parent;
+			continue;
+		}
+
+		/* We have prospective records from each of the sub-streams.  Compare them.
+		   If equal, offer each to user routine for possible sacrifice.  */
+
+		p = merge->mrg_record_a->sort_record_key;
+		q = merge->mrg_record_b->sort_record_key;
+		l = scb->scb_key_length;
+
+		DO_32_COMPARE(p, q, l);
+
+		if (l == 0 && scb->scb_dup_callback) {
+#ifdef SCROLLABLE_CURSORS
+			SORT_diddle_key((UCHAR *) merge->mrg_record_a, scb, FALSE);
+			SORT_diddle_key((UCHAR *) merge->mrg_record_b, scb, FALSE);
+#else
+			diddle_key((UCHAR *) merge->mrg_record_a, scb, FALSE);
+			diddle_key((UCHAR *) merge->mrg_record_b, scb, FALSE);
+#endif
+			if (reinterpret_cast < UCHAR(*)(...) >
+				(*scb->scb_dup_callback) (merge->mrg_record_a,
+										  merge->mrg_record_b,
+										  scb->scb_dup_callback_arg)) {
+				merge->mrg_record_a = (SORT_RECORD *) NULL;
+#ifdef SCROLLABLE_CURSORS
+				SORT_diddle_key((UCHAR *) merge->mrg_record_b, scb, TRUE);
+#else
+				diddle_key((UCHAR *) merge->mrg_record_b, scb, TRUE);
+#endif
+				continue;
+			}
+#ifdef SCROLLABLE_CURSORS
+			SORT_diddle_key((UCHAR *) merge->mrg_record_a, scb, TRUE);
+			SORT_diddle_key((UCHAR *) merge->mrg_record_b, scb, TRUE);
+#else
+			diddle_key((UCHAR *) merge->mrg_record_a, scb, TRUE);
+			diddle_key((UCHAR *) merge->mrg_record_b, scb, TRUE);
+#endif
+		}
+
+#ifdef SCROLLABLE_CURSORS
+		if (mode == RSE_get_forward && p[-1] < q[-1])
+#else
+		if (p[-1] < q[-1])
+#endif
+		{
+			record = merge->mrg_record_a;
+			merge->mrg_record_a = (SORT_RECORD *) NULL;
+		}
+		else {
+			record = merge->mrg_record_b;
+			merge->mrg_record_b = (SORT_RECORD *) NULL;
+		}
+
+		merge = merge->mrg_header.rmh_parent;
+	}
+
+/* Merge pointer is null; we're done.  Return either the most
+   recent record, or end of file, as appropriate.  */
+
+	return (eof) ? NULL : record;
+}
+
+
+static void init(SCB scb)
+{
+/**************************************
+ *
+ *      i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Initialize the sort control block for a quick sort.
+ *
+ **************************************/
+
+	scb->scb_next_pointer = scb->scb_first_pointer;
+	scb->scb_last_record = (SR *) scb->scb_end_memory;
+#ifndef SCROLLABLE_CURSORS
+	scb->scb_run_start = scb->scb_records;
+#endif
+
+	*scb->scb_next_pointer++ = reinterpret_cast < sort_record * >(low_key);
+}
+
+
+static BOOLEAN local_fini(SCB scb, ATT att)
+{
+/**************************************
+ *
+ *      l o c a l _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *      Finish sort, and release all resources.
+ *
+ **************************************/
+	WFS space;
+	RUN run;
+	UCHAR *p;
+	SFB sfb;
+	ULONG **merge_buf;
+	BOOLEAN found_it = TRUE;
+	SCB *ptr;
+
+	if (att) {
+
+		/* cover case where a posted error caused reuse by another thread */
+
+		if (scb->scb_attachment != att)
+			att = scb->scb_attachment;
+		found_it = FALSE;
+	}
+
+/* Start by unlinking from que, if present */
+
+	if (att)
+		for (ptr = &att->att_active_sorts; *ptr; ptr = &(*ptr)->scb_next)
+			if (*ptr == scb) {
+				*ptr = scb->scb_next;
+				found_it = TRUE;
+				break;
+			}
+
+/*  *NO*.  I won't free it if it's not in
+    the pointer list that has been passed
+    to me.  THIS MEANS MEMORY LEAK.  --mrs*/
+
+	if (found_it != TRUE)
+		return (FALSE);
+
+/* Loop through the sfb list and close work files. */
+
+	while (sfb = scb->scb_sfb) {
+		scb->scb_sfb = sfb->sfb_next;
+		DLS_put_temp_space(sfb);
+
+		close(sfb->sfb_file);
+
+		if (sfb->sfb_file_name) {
+			unlink(sfb->sfb_file_name);
+			ALL_free(sfb->sfb_file_name);
+			sfb->sfb_file_name = NULL;
+		}
+
+		while (space = sfb->sfb_free_wfs) {
+			sfb->sfb_free_wfs = space->wfs_next;
+			ALL_free(reinterpret_cast < char *>(space));
+		}
+
+		while (space = sfb->sfb_file_space) {
+			sfb->sfb_file_space = space->wfs_next;
+			ALL_free(reinterpret_cast < char *>(space));
+		}
+
+		ALL_free(reinterpret_cast < char *>(sfb));
+	}
+
+/* get rid of extra merge space */
+
+	while (merge_buf = (ULONG **) scb->scb_merge_space) {
+		scb->scb_merge_space = *merge_buf;
+		ALL_free(reinterpret_cast < char *>(merge_buf));
+	}
+
+/* If runs are allocated and not in the big block, release them.  Then release
+   the big block. */
+
+	if (scb->scb_memory) {
+#ifdef DEBUG_MERGE
+		ALL_free(scb->scb_memory);
+#else
+		ALL_sys_free(reinterpret_cast < char *>(scb->scb_memory));
+#endif
+		scb->scb_memory = NULL;
+	}
+
+/* Clean up the runs that were used */
+	while (run = scb->scb_runs) {
+		scb->scb_runs = run->run_next;
+		if (run->run_buff_alloc)
+			ALL_free(reinterpret_cast < char *>(run->run_buffer));
+		ALL_free(reinterpret_cast < char *>(run));
+	}
+
+/* Clean up the free runs also */
+	while (run = scb->scb_free_runs) {
+		scb->scb_free_runs = run->run_next;
+		if (run->run_buff_alloc)
+			ALL_free(reinterpret_cast < char *>(run->run_buffer));
+		ALL_free(reinterpret_cast < char *>(run));
+	}
+
+	if (scb->scb_merge_pool) {
+		ALL_free(reinterpret_cast < char *>(scb->scb_merge_pool));
+		scb->scb_merge_pool = NULL;
+	}
+
+	scb->scb_merge = NULL;
+	return (TRUE);
+}
+
+
+static void merge_runs(SCB scb, USHORT n)
+{
+/**************************************
+ *
+ *      m e r g e _ r u n s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Merge the first n runs hanging off the sort control block, pushing
+ *      the resulting run back onto the sort control block.
+ *
+ **************************************/
+	USHORT count, rec_size, buffers;
+	register SORT_RECORD *p;
+	register SORT_RECORD *q;
+	ULONG size, seek;
+	RUN run;
+	struct mrg blks[32];
+	struct run temp_run;
+	MRG merge;
+	RMH *m1, *m2, streams[32];
+	BLOB_PTR *buffer;
+
+	assert((n - 1) <= (sizeof(blks) / sizeof(blks[0])));	/* stack var big enuf? */
+
+	scb->scb_longs -= SIZEOF_SR_BCKPTR_IN_LONGS;
+
+/* Make a pass thru the runs allocating buffer space, computing work file
+   space requirements, and filling in a vector of streams with run pointers. */
+
+	rec_size = scb->scb_longs << SHIFTLONG;
+	buffers = scb->scb_size_memory / rec_size;
+	size = rec_size * (buffers / (USHORT) (2 * n));
+	buffer = (BLOB_PTR *) scb->scb_first_pointer;
+	temp_run.run_end_buffer =
+		(SORTP *) (buffer + (scb->scb_size_memory / rec_size) * rec_size);
+	m1 = streams;
+	temp_run.run_size = 0;
+	temp_run.run_buff_alloc = 0;
+
+	for (run = scb->scb_runs, count = 0; count < n;
+		 run = run->run_next, count++) {
+		*m1++ = (RMH) run;
+
+		/* size = 0 indicates the record is too big to divvy up the
+		   big sort buffer, so separate buffers must be allocated */
+
+		if (!size) {
+			if (!run->run_buff_alloc) {
+				run->run_buffer =
+					(ULONG *) ALL_malloc((SLONG) rec_size * 2, ERR_val);
+				/* FREE: smb_merge_space freed in local_fini() when scb released */
+				if (!run->run_buffer)
+					error_memory(scb);
+				run->run_buff_alloc = 1;
+			}
+			run->run_end_buffer =
+				reinterpret_cast <
+				ULONG * >((BLOB_PTR *) run->run_buffer + (rec_size * 2));
+			run->run_record =
+				reinterpret_cast < sort_record * >(run->run_end_buffer);
+		}
+		else {
+			run->run_buffer = (ULONG *) buffer;
+			buffer += size;
+			run->run_record =
+				reinterpret_cast < sort_record * >(run->run_end_buffer =
+												   (ULONG *) buffer);
+		}
+		temp_run.run_size += run->run_size;
+	}
+	temp_run.run_record = reinterpret_cast < sort_record * >(buffer);
+	temp_run.run_buffer = reinterpret_cast < ULONG * >(temp_run.run_record);
+
+/* Build merge tree bottom up */
+/* See also kissing cousin of this loop in SORT_sort() */
+
+	for (count = n, merge = blks; count > 1;) {
+		m1 = m2 = streams;
+		while (count >= 2) {
+			merge->mrg_header.rmh_type = TYPE_MRG;
+
+			assert(((*m1)->rmh_type == TYPE_MRG) ||	/* garbage watch */
+				   ((*m1)->rmh_type == TYPE_RUN));
+
+			(*m1)->rmh_parent = merge;
+			merge->mrg_stream_a = *m1++;
+
+			assert(((*m1)->rmh_type == TYPE_MRG) ||	/* garbage watch */
+				   ((*m1)->rmh_type == TYPE_RUN));
+
+			(*m1)->rmh_parent = merge;
+			merge->mrg_stream_b = *m1++;
+
+			merge->mrg_record_a = (SORT_RECORD *) NULL;
+			merge->mrg_record_b = (SORT_RECORD *) NULL;
+			*m2++ = (RMH) merge;
+			merge++;
+			count -= 2;
+		}
+		if (count)
+			*m2++ = *m1++;
+		count = m2 - streams;
+	}
+
+	--merge;
+	merge->mrg_header.rmh_parent = NULL;
+
+/* Merge records into run */
+
+	q = reinterpret_cast < sort_record * >(temp_run.run_buffer);
+	seek = temp_run.run_seek =
+		find_file_space(scb, temp_run.run_size, &temp_run.run_sfb);
+	temp_run.run_records = 0;
+
+#ifdef SCROLLABLE_CURSORS
+	while (p = get_merge(merge, scb, RSE_get_forward))
+#else
+	while (p = get_merge(merge, scb))
+#endif
+	{
+		if (q >= (SORT_RECORD *) temp_run.run_end_buffer) {
+			size = (BLOB_PTR *) q - (BLOB_PTR *) temp_run.run_buffer;
+			seek = SORT_write_block(scb->scb_status_vector, temp_run.run_sfb,
+									seek, (UCHAR *) temp_run.run_buffer,
+									size);
+			q = reinterpret_cast < sort_record * >(temp_run.run_buffer);
+		}
+		count = scb->scb_longs;
+		do
+			*q++ = *p++;
+		while (--count);
+		++temp_run.run_records;
+	}
+#ifdef SCROLLABLE_CURSORS
+	temp_run.run_max_records = temp_run.run_records;
+#endif
+
+/* Write the tail of the new run and return any unused space. */
+
+	if (size = (BLOB_PTR *) q - (BLOB_PTR *) temp_run.run_buffer)
+		seek = SORT_write_block(scb->scb_status_vector, temp_run.run_sfb,
+								seek, (UCHAR *) temp_run.run_buffer, size);
+
+/* if the records did not fill the allocated run (such as when duplicates are 
+   rejected), then free the remainder and diminish the size of the run accordingly */
+
+	if (seek - temp_run.run_seek < temp_run.run_size) {
+		free_file_space(scb, temp_run.run_sfb, seek,
+						temp_run.run_seek + temp_run.run_size - seek);
+		temp_run.run_size = seek - temp_run.run_seek;
+	}
+
+/* Make a final pass thru the runs releasing space, blocks, etc. */
+
+	for (count = 0; count < n; count++) {
+		/* Remove run from list of in-use run blocks */
+		run = scb->scb_runs;
+		scb->scb_runs = run->run_next;
+#ifdef SCROLLABLE_CURSORS
+		seek = run->run_seek + run->run_cached - run->run_size;
+#else
+		seek = run->run_seek - run->run_size;
+#endif
+		/* Free the sort file space associated with the run */
+
+		free_file_space(scb, run->run_sfb, seek, run->run_size);
+
+		/* Add run descriptor to list of unused run descriptor blocks */
+
+		run->run_next = scb->scb_free_runs;
+		scb->scb_free_runs = run;
+	}
+
+	scb->scb_free_runs = run->run_next;
+	if (run->run_buff_alloc) {
+		ALL_free(reinterpret_cast < char *>(run->run_buffer));
+		run->run_buff_alloc = 0;
+	}
+	temp_run.run_header.rmh_type = TYPE_RUN;
+	temp_run.run_depth = run->run_depth;
+	*run = temp_run;
+	run->run_next = scb->scb_runs;
+	++run->run_depth;
+	scb->scb_runs = run;
+
+	scb->scb_longs += SIZEOF_SR_BCKPTR_IN_LONGS;
+}
+
+
+static void quick(SLONG size, SORTP ** pointers, USHORT length)
+{
+/**************************************
+ *
+ *      q u i c k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Sort an array of record pointers.  The routine assumes the 
+ *      following:
+ *
+ *      a.  Each element in the array points to the key of a record.
+ *
+ *      b.  Keys can be compared by auto-incrementing unsigned longword
+ *          compares.
+ *
+ *      c.  Relative array positions "-1" and "size" point to guard records
+ *          containing the least and the greatest possible sort keys.
+ *
+ *      ***************************************************************
+ *      * Boy, did the assumption below turn out to be pretty stupid! *
+ *      ***************************************************************
+ *
+ *      Note: For the time being, the key length field is ignored on the
+ *      assumption that something will eventually stop the comparison.
+ *
+ *      WARNING: THIS ROUTINE DOES NOT MAKE A FINAL PASS TO UNSCRAMBLE
+ *      PARITIONS OF SIZE TWO.  THE POINTER ARRAY REQUIRES ADDITIONAL
+ *      PROCESSING BEFORE IT MAY BE USED!
+ *
+ **************************************/
+	SORTP **stack_lower[50];
+	SORTP **stack_upper[50];
+	SORTP ***sl;
+	SORTP ***su;
+	SORTP *temp;
+	SORTP **r;
+	SORTP **i;
+	SORTP **j;
+	ULONG key;
+	SORTP *p;
+	SORTP *q;
+	SLONG interval;
+	USHORT tl;
+
+#define exchange(x, y)  {temp = x; x = y; y = temp;}
+
+	sl = stack_lower;
+	su = stack_upper;
+	*sl++ = pointers;
+	*su++ = pointers + size - 1;
+
+	while (sl > stack_lower) {
+
+		/* Pick up the next interval off the respective stacks */
+
+		r = *--sl;
+		j = *--su;
+
+		/* Compute the interval.  If two or less, defer the sort to a final
+		   pass. */
+
+		interval = j - r;
+		if (interval < 2)
+			continue;
+
+		/* Go guard against pre-ordered data, swap the first record with the
+		   middle record.  This isn't perfect, but it is cheap. */
+
+		i = r + interval / 2;
+		((SORTP ***) (*r))[-1] = i;
+		((SORTP ***) (*i))[-1] = r;
+		exchange(*r, *i);
+
+		/* Prepare to do the partition.  Pick up the first longword of the
+		   key to speed up comparisons. */
+
+		i = r + 1;
+		key = **r;
+
+		/* From each end of the interval converge to the middle swapping out of
+		   parition records as we go.  Stop when we converge. */
+
+		while (TRUE) {
+			while (**i < key)
+				i++;
+			if (**i == key)
+				while (TRUE) {
+					p = *i;
+					q = *r;
+					tl = length - 1;
+					while (tl && *p == *q) {
+						p++;
+						q++;
+						tl--;
+					}
+					if (tl && *p > *q)
+						break;
+					i++;
+				}
+
+			while (**j > key)
+				j--;
+			if (**j == key)
+				while (j != r) {
+					p = *j;
+					q = *r;
+					tl = length - 1;
+					while (tl && *p == *q) {
+						p++;
+						q++;
+						tl--;
+					}
+					if (tl && *p < *q)
+						break;
+					j--;
+				}
+			if (i >= j)
+				break;
+			((SORTP ***) (*i))[-1] = j;
+			((SORTP ***) (*j))[-1] = i;
+			exchange(*i, *j);
+			i++;
+			j--;
+		}
+
+		/* We have formed two partitions, separated by a slot for the
+		   initial record "r".  Exchange the record currently in the
+		   slot with "r". */
+
+		((SORTP ***) (*r))[-1] = j;
+		((SORTP ***) (*j))[-1] = r;
+		exchange(*r, *j);
+
+		/* Finally, stack the two intervals, longest first. */
+
+		i = *su;
+		if ((j - r) > (i - j + 1)) {
+			*sl++ = r;
+			*su++ = j - 1;
+			*sl++ = j + 1;
+			*su++ = i;
+		}
+		else {
+			*sl++ = j + 1;
+			*su++ = i;
+			*sl++ = r;
+			*su++ = j - 1;
+		}
+	}
+}
+
+
+static ULONG order(SCB scb)
+{
+/**************************************
+ *
+ *      o r d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      The memoryfull of record pointers have been sorted, but more
+ *      records remain, so the run will have to be written to disk.  To
+ *      speed this up, re-arrange the records in physical order so they
+ *      can be written with a single disk write.
+ *
+ **************************************/
+	register SR *record;
+	register SORT_RECORD *output;
+	register SORT_PTR *lower_limit;
+	SORT_RECORD **ptr;
+	SORTP *buffer;
+	SSHORT length;
+#ifndef STACK_EFFICIENT
+	ULONG temp[1024];
+#endif
+
+	ptr = scb->scb_first_pointer + 1;	/* 1st ptr is low key */
+
+/* last inserted record, also the top of the memory where SORT_RECORDS can
+   be written */
+	lower_limit = reinterpret_cast < SORT_PTR * >(output =
+												  reinterpret_cast <
+												  sort_record *
+												  >(scb->scb_last_record));
+
+#ifdef STACK_EFFICIENT
+	buffer =
+		(ULONG *) ALL_malloc((SLONG) (scb->scb_longs * sizeof(ULONG)),
+							 ERR_val);
+#else
+	if ((scb->scb_longs * sizeof(ULONG)) > sizeof(temp))
+		buffer =
+			(ULONG *) ALL_malloc((SLONG) (scb->scb_longs * sizeof(ULONG)),
+								 ERR_val);
+	/* FREE: buffer is freed later in this routine */
+	else
+		buffer = temp;
+#endif /* STACK_EFFICIENT */
+
+	if (!buffer)
+		error_memory(scb);
+
+/* Check out the engine */
+
+	THREAD_EXIT;
+
+/* length of the key part of the record  */
+	length = scb->scb_longs - SIZEOF_SR_BCKPTR_IN_LONGS;
+
+/* scb_next_pointer points to the end of pointer memory or the beginning of
+   records */
+	while (ptr < scb->scb_next_pointer) {
+		/* If the next pointer is null, it's record has been eliminated as a
+		   duplicate.  This is the only easy case. */
+
+		if (!(record = reinterpret_cast < SR * >(*ptr++)))
+			continue;
+
+		/* make record point back to the starting of SR struct.
+		   as all scb_*_pointer point to the key_id locations! */
+		record =
+			reinterpret_cast <
+			SR * >(((SORTP *) record) - SIZEOF_SR_BCKPTR_IN_LONGS);
+
+		/* If the lower limit of live records points to a deleted or used record,
+		   advance the lower limit. */
+
+		while (!*(lower_limit)
+			   && (lower_limit < (SORT_PTR *) scb->scb_end_memory))
+			lower_limit =
+				reinterpret_cast <
+				SORT_PTR * >(((SORTP *) lower_limit) + scb->scb_longs);
+
+		/* If the record we want to move won't interfere with lower active
+		   record, just move the record into position. */
+
+		if (record->sr_sort_record.sort_record_key == (ULONG *) lower_limit) {
+			MOVE_32(length, record->sr_sort_record.sort_record_key, output);
+			output =
+				reinterpret_cast < sort_record * >((SORTP *) output + length);
+			continue;
+		}
+
+		if (((SORTP *) output) + scb->scb_longs - 1 <= (SORTP *) lower_limit) {
+			/* null the bckptr for this record */
+			record->sr_bckptr =
+				reinterpret_cast < sort_record ** >((struct SR **) NULL);
+			MOVE_32(length, record->sr_sort_record.sort_record_key, output);
+			output =
+				reinterpret_cast < sort_record * >((SORTP *) output + length);
+			continue;
+		}
+
+		/* There's another record sitting where we want to put our record.  Move
+		   the next logical record to a temp, move the lower limit record to the
+		   next record's old position (adjusting pointers as we go), then move
+		   the current record to output. */
+
+		MOVE_32(length, (SORTP *) record->sr_sort_record.sort_record_key,
+				buffer);
+
+		**((SORT_PTR ***) lower_limit) =
+			reinterpret_cast <
+			SORT_PTR * >(record->sr_sort_record.sort_record_key);
+		MOVE_32(scb->scb_longs, lower_limit, record);
+		lower_limit = (SORT_PTR *) ((SORTP *) lower_limit + scb->scb_longs);
+
+		MOVE_32(length, buffer, output);
+		output =
+			reinterpret_cast <
+			sort_record * >((SORT_PTR *) ((SORTP *) output + length));
+	}
+
+/* Check back into the engine */
+
+	THREAD_ENTER;
+
+/* It's OK to free this after checking back into the engine, there's
+ * only fatal failures possible there 
+ */
+
+#ifndef STACK_EFFICIENT
+	if (buffer != temp)
+#endif
+		if (buffer != NULL)
+			ALL_free(reinterpret_cast < char *>(buffer));
+
+	return (((SORTP *) output) -
+			((SORTP *) scb->scb_last_record)) / (scb->scb_longs -
+												 SIZEOF_SR_BCKPTR_IN_LONGS);
+}
+
+
+static void put_run(SCB scb)
+{
+/**************************************
+ *
+ *      p u t _ r u n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Memory has been exhausted.  Do a sort on what we have and write
+ *      it to the scratch file.  Keep in mind that since duplicate records
+ *      may disappear, the number of records in the run may be less than
+ *      were sorted.
+ *
+ **************************************/
+	RUN run;
+	ULONG n, records;
+
+	if (run = scb->scb_free_runs)
+		scb->scb_free_runs = run->run_next;
+	else {
+		run = (RUN) alloc(scb, (ULONG) sizeof(struct run));
+		/* FREE: run will be either on the scb_runs or scb_free_runs list,
+		 *       which are freed in local_fini() */
+	}
+
+	run->run_next = scb->scb_runs;
+	scb->scb_runs = run;
+	run->run_header.rmh_type = TYPE_RUN;
+	run->run_depth = 0;
+
+/* Do the in-core sort.  The first phase a duplicate handling we be performed
+   in "sort". */
+
+	sort(scb);
+
+/* Re-arrange records in physical order so they can be dumped in a single write
+   operation. */
+
+#ifdef SCROLLABLE_CURSORS
+	run->run_records = run->run_max_records = order(scb);
+	run->run_cached = 0;
+#else
+	run->run_records = order(scb);
+#endif
+
+/* Write records to scratch file.  Keep track of the number of bytes
+   written, etc.  */
+
+	run->run_size =
+		run->run_records * (scb->scb_longs -
+							SIZEOF_SR_BCKPTR_IN_LONGS) * sizeof(ULONG);
+	run->run_seek = find_file_space(scb, run->run_size, &run->run_sfb);
+	(void) SORT_write_block(scb->scb_status_vector, run->run_sfb,
+							run->run_seek, (UCHAR *) scb->scb_last_record,
+							run->run_size);
+}
+
+
+static void sort(SCB scb)
+{
+/**************************************
+ *
+ *      s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Set up for and call quick sort.  Quicksort, by design, doesn't
+ *      order partitions of length 2, so make a pass thru the data to
+ *      straighten out pairs.  While we at it, if duplicate handling has
+ *      been requested, detect and handle them.
+ *
+ **************************************/
+	register SORTP **i;
+	register SORTP **j;
+	register SORTP *p;
+	register SORTP *q;
+	register SORTP *temp;
+	register ULONG n;
+	USHORT tl;
+
+/* Check out the engine */
+
+	THREAD_EXIT;
+
+/* First, insert a pointer to the high key. */
+
+	*scb->scb_next_pointer = reinterpret_cast < sort_record * >(high_key);
+
+/* Next, call QuickSort.  Keep in mind that the first pointer is the
+   low key and not a record. */
+
+	j = (SORTP **) (scb->scb_first_pointer) + 1;
+	n = (SORTP **) (scb->scb_next_pointer) - j;	/* calculate # of records */
+
+	quick(n, j, scb->scb_longs);
+
+/* Scream through and correct any out of order pairs. */
+
+	while (j < (SORTP **) scb->scb_next_pointer) {
+		i = j;
+		j++;
+		if (**i >= **j) {
+			p = *i;
+			q = *j;
+			tl = scb->scb_longs - 1;
+			while (tl && *p == *q) {
+				p++;
+				q++;
+				tl--;
+			}
+			if (tl && *p > *q) {
+				((SORTP ***) (*i))[-1] = j;
+				((SORTP ***) (*j))[-1] = i;
+				temp = *i;
+				*i = *j;
+				*j = temp;
+			}
+		}
+	}
+
+/* If duplicate handling hasn't been requested, we're done. */
+
+	if (!scb->scb_dup_callback) {
+		/* Check back into the engine */
+
+		THREAD_ENTER;
+		return;
+	}
+
+/* Make another pass and eliminate duplicates.  It's possible to do this
+   is the same pass the final ordering, but the logic is complicated enough
+   to screw up register optimizations.  Better two fast passes than one
+   slow pass, I suppose.  Prove me wrong and win a trip for two to
+   Cleveland, Ohio. */
+
+	j = reinterpret_cast < SORTP ** >(scb->scb_first_pointer + 1);
+
+	while (j < (SORTP **) scb->scb_next_pointer) {
+		i = j;
+		j++;
+		if (**i != **j)
+			continue;
+		p = *i;
+		q = *j;
+		tl = scb->scb_longs - 1;
+		while (tl && *p == *q) {
+			p++;
+			q++;
+			tl--;
+		}
+		if ((p - *i) >= scb->scb_key_length) {
+#ifdef SCROLLABLE_CURSORS
+			SORT_diddle_key((UCHAR *) * i, scb, FALSE);
+			SORT_diddle_key((UCHAR *) * j, scb, FALSE);
+#else
+			diddle_key((UCHAR *) * i, scb, FALSE);
+			diddle_key((UCHAR *) * j, scb, FALSE);
+#endif
+			if (reinterpret_cast < UCHAR(*)(...) >
+				(*scb->scb_dup_callback) (*i, *j, scb->scb_dup_callback_arg)) {
+				((SORTP ***) (*i))[-1] = NULL;
+				*i = NULL;
+			}
+			else
+#ifdef SCROLLABLE_CURSORS
+				SORT_diddle_key((UCHAR *) * i, scb, TRUE);
+			SORT_diddle_key((UCHAR *) * j, scb, TRUE);
+#else
+				diddle_key((UCHAR *) * i, scb, TRUE);
+			diddle_key((UCHAR *) * j, scb, TRUE);
+#endif
+		}
+	}
+
+/* Check back into the engine */
+
+	THREAD_ENTER;
+}
+
+
+#ifdef DEBUG
+static void validate(SCB scb)
+{
+/**************************************
+ *
+ *      v a l i d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Validate data structures.
+ *
+ **************************************/
+	SORTP **ptr;
+	SORTP *record;
+	STATUS *status_vector;
+
+	for (ptr = (SORTP **) (scb->scb_first_pointer + 1);
+		 ptr < (SORTP **) scb->scb_next_pointer; ptr++) {
+		record = *ptr;
+		if (record[-1] != (SORTP) ptr) {
+			status_vector = scb->scb_status_vector;
+			*status_vector++ = gds_arg_gds;
+			*status_vector++ = gds__crrp_data_err;
+			/* Msg360: sort error: corruption in data structure */
+			*status_vector = gds_arg_end;
+			ERR_punt();
+		}
+	}
+}
+#endif
+
+
+#ifdef SORT_TRACE
+static void write_trace(
+						UCHAR * operation,
+						SFB sfb, ULONG seek, BLOB_PTR * address, ULONG length)
+{
+/**************************************
+ *
+ *      w r i t e _ t r a c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Write a trace record.
+ *
+ **************************************/
+	UCHAR file_name[32], data[41], *p;
+#if defined FREEBSD || defined NETBSD
+	int fd;
+#endif
+
+	if (!trace_file) {
+#if (defined WIN_NT || defined PC_PLATFORM)
+		strcpy(file_name, "/interbas/stXXXXXX");
+#else
+		strcpy(file_name, "/interbase/sort_trace_XXXXXX");
+#endif
+#if defined FREEBSD || defined NETBSD
+		fd = mkstemp(file_name);
+		trace_file = fdopen(fd, "w");
+#else
+		mktemp(file_name);
+		trace_file = ib_fopen(file_name, "w");
+#endif
+	}
+
+	if (!trace_file)
+		return;
+
+	for (p = data; p < data + sizeof(data) - 1; address++)
+		*p++ = (*address) ? *address : '.';
+
+	*p = 0;
+
+	ib_fprintf(trace_file, "Fid: %d, %.5s %.7ld - %.7ld\t/%s/\n",
+			   sfb->sfb_file, operation, seek, seek + length, data);
+}
+#endif
diff --git a/src/jrd/sort.h b/src/jrd/sort.h
new file mode 100644
index 0000000000..3fb89c76bc
--- /dev/null
+++ b/src/jrd/sort.h
@@ -0,0 +1,293 @@
+/*
+ *	PROGRAM:	JRD Sort
+ *	MODULE:		sort.h
+ *	DESCRIPTION:	Sort package definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SORT_H_
+#define _JRD_SORT_H_
+
+#include "../jrd/common.h"
+#include "../jrd/fil.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* SORTP is used throughout sort.c as a pointer into arrays of
+   longwords(32 bits).   For 16 bit Windows, this must be a huge pointer. 
+
+   Use this definition whenever doing pointer arithmetic, as
+   interbase variables (eg. scb->scb_longs) are in 32 - bit longwords. */
+
+typedef ULONG SORTP;
+
+#define MAX_SORTP		((SORTP) MAX_ULONG)
+#define MIN_SORTP		((SORTP) MIN_ULONG)
+
+/* following defines are used to signify whether initial segment in sort key
+ * is for NULL value */
+#define SORTP_VAL_IS_NULL	MAX_SORTP
+#define SORTP_VAL_IS_NOT_NULL	MIN_SORTP
+
+/* since the first part of the record contains a back_pointer, whose
+   size depends on the platform (ie 16, 32 or 64 bits.).
+   This pointer data_type is defined by platform specific SORT_PTR.
+*/
+
+typedef IPTR SORT_PTR;
+
+/* # of 32 bit longs in a pointer (ie 1 on 32 bit machines 2 on 64 bit)*/
+#define LONGS_PER_POINTER       (sizeof (SLONG*) / sizeof (SLONG))
+/* the size of sr_bckptr in # of 32 bit longwords */
+#define SIZEOF_SR_BCKPTR_IN_LONGS  LONGS_PER_POINTER
+
+
+#define PREV_RUN_RECORD(record) (((SORTP *) record - scb->scb_longs))
+#define NEXT_RUN_RECORD(record) (((SORTP *) record + scb->scb_longs))
+
+/* a macro to goto the key_id part of a particular record.
+   Pls. refer to the SR structure in sort.h for an explanation of
+   the record structure . */
+#define KEYOF(record) ((SORTP *)(((SR*)record)->sr_sort_record.sort_record_key))
+
+/* macro to point to the next/previous  record for sorting.
+   still using scb_longs as we cannot do record++ */
+#define PREV_RECORD(record) ((SR*)((SORTP *) record + scb->scb_longs))
+#define NEXT_RECORD(record) ((SR*)((SORTP *) record - scb->scb_longs))
+
+/* structure containing the key and data part of the sort record,
+   the back pointer is not written to the disk, this is how the records
+   look in the run files. */
+
+typedef struct sort_record
+{
+	ULONG sort_record_key[1];
+	/* Sorting key.  Mangled by diddle_key to
+	   compare using ULONG word compares (size
+	   is rounded upwards if necessary).
+	   Min length of 1 ULONG, max indeterminate
+	   For current sort, length is stored as
+	   scb_key_length.
+	   Keys are created by BTR_* routines as
+	   sequences of ULONG - this representation
+	   cannot be easily changed. */
+
+/*  sort_record_data  is here to explain the sort record.
+    To get to the data part of a record add scb->scb_key_length to a pointer
+    pointing to the start of the sort_record_key. 
+
+    ULONG       sort_record_data [1];
+                                   Data values, not part of key,
+                                   that are pumped through sort.
+                                   Min length of 0, max indeterminate,
+                                   byte data, but starts on ULONG boundary and
+                                   rounded up to ULONG size
+                                   Sizeof sr_data array would be
+                                   (scb_longs - scb_key_length)*sizeof(ULONG) -
+                                                 sizeof(sr_bckptr)
+*/
+
+} SORT_RECORD;
+
+#define MAX_SORT_RECORD		65535	/* bytes */
+
+/* the record struct actually contains the keyids etc, and the back_pointer
+   which points to the SORT_RECORD structure. */
+typedef struct sr
+{
+	struct sort_record HUGE_PTR **sr_bckptr;	/* Pointer back to sort list entry */
+	struct sort_record sr_sort_record;
+} SR;
+
+/* scb_longs includes the size of sr_bckptr.  */
+
+/* The sort memory pool is laid out as follows during sorting:
+
+struct sort_memory {
+        struct sr       *records [X1];
+        ULONG           empty [X2];
+        struct sr       data [X1];
+};
+
+We pack items into sort_memory, inserting the first pointer into
+records [0], and the first data value into data[X1-1];  Continuing
+until we are out of records to sort or memory.
+(eg: X1*(sizeof(struct sr*) + scb->scb_longs) + X2*sizeof(ULONG) == MAX_MEMORY
+*/
+
+
+/* Sort key definition block */
+
+typedef struct skd
+{
+	UCHAR	skd_dtype;			/* Data type */
+	UCHAR	skd_flags;			/* Flags */
+	USHORT	skd_length;			/* Length if string */
+	USHORT	skd_offset;			/* Offset from beginning */
+	USHORT	skd_vary_offset;	/* Offset to varying/cstring length */
+} SKD;
+
+/* skd_dtype */
+
+#define SKD_long		1
+#define SKD_ulong		2
+#define SKD_short		3
+#define SKD_ushort		4
+#define SKD_text		5
+#define SKD_float		6
+#define SKD_double		7
+#define SKD_quad		8
+#define SKD_timestamp1	9		/* Timestamp as Float */
+#define SKD_bytes		10
+#define SKD_d_float		11
+#define SKD_varying		12		/* non-international */
+#define SKD_cstring		13		/* non-international */
+
+#define SKD_sql_time	14
+#define SKD_sql_date	15
+#define SKD_timestamp2	16		/* Timestamp as Quad */
+
+#define SKD_int64	17
+
+/* Historical alias for pre V6 code */
+#define SKD_date	SKD_timestamp1
+
+/* skd_flags */
+
+#define SKD_ascending	0		/* default initializer */
+#define SKD_descending	1
+#define SKD_insensitive	2
+#define SKD_binary		4
+
+#define TYPE_RUN	0
+#define TYPE_MRG	1
+
+/* Run/merge common block header */
+
+typedef struct rmh
+{
+	SSHORT		rmh_type;			/* TYPE_RUN or TYPE_MRG */
+	struct mrg*	rmh_parent;
+} *RMH;
+
+/* Run control block */
+
+typedef struct run
+{
+	struct rmh	run_header;
+	struct run*	run_next;			/* Next (actually last) run */
+	ULONG		run_records;		/* Records (remaining) in run */
+#ifdef SCROLLABLE_CURSORS
+	ULONG		run_max_records;	/* total number of records in run */
+#endif
+	USHORT		run_depth;			/* Number of "elementary" runs */
+	struct sfb*	run_sfb;			/* Run sort file block */
+	ULONG		run_seek;			/* Offset in file of run */
+	ULONG		run_size;			/* Length of run in work file */
+#ifdef SCROLLABLE_CURSORS
+	ULONG		run_cached;			/* amount of cached data from run file */
+#endif
+	SORT_RECORD*run_record;			/* Next record in run */
+	SORTP*		run_buffer;			/* Run buffer */
+	SORTP*		run_end_buffer;		/* End of buffer */
+	ULONG		run_buff_alloc;		/* ALlocated buffer flag */
+} *RUN;
+
+/* Merge control block */
+
+typedef struct mrg
+{
+	struct rmh		mrg_header;
+	SORT_RECORD*	mrg_record_a;
+	struct rmh*		mrg_stream_a;
+	SORT_RECORD*	mrg_record_b;
+	struct rmh*		mrg_stream_b;
+} *MRG;
+
+/* Work file space control block */
+
+typedef struct wfs
+{
+	struct wfs*	wfs_next;
+	ULONG		wfs_position;			/* Starting position of free space */
+	ULONG		wfs_size;				/* Length of free space */
+} *WFS;
+
+/* Sort work file control block */
+
+typedef struct sfb
+{
+	struct sfb *sfb_next;
+	int sfb_file;				/* File descriptor */
+	TEXT *sfb_file_name;		/* ALLOC: File name for deletion */
+	ULONG sfb_file_size;		/* Real size of the work file */
+	struct wfs *sfb_file_space;	/* ALLOC: Available space in work file */
+	struct wfs *sfb_free_wfs;	/* ALLOC: Free space in work file */
+	DLS sfb_dls;				/* Place where file is created */
+} *SFB;
+
+/* Sort Context Block */
+
+typedef struct scb
+{
+	struct scb *scb_next;		/* Next known sort in system */
+	SORTP *scb_memory;			/* ALLOC: Memory for sort */
+	SORTP *scb_end_memory;		/* End of memory */
+	ULONG scb_size_memory;		/* Bytes allocated */
+	SR *scb_last_record;		/* Address of last record */
+	SORT_RECORD **scb_first_pointer;	/* Memory for sort */
+	SORT_RECORD **scb_next_pointer;	/* Address for next pointer */
+#ifdef SCROLLABLE_CURSORS
+	SORTP **scb_last_pointer;	/* Address for last pointer in block */
+#endif
+	USHORT scb_length;			/* Record length */
+	USHORT scb_longs;			/* Length of record in longwords */
+	ULONG scb_keys;				/* Number of keys */
+	ULONG scb_key_length;		/* Key length */
+	ULONG scb_records;			/* Number of records */
+	struct sfb *scb_sfb;		/* ALLOC: List of scratch files, if open */
+	struct run *scb_runs;		/* ALLOC: Run on scratch file, if any */
+	struct mrg *scb_merge;		/* Top level merge block */
+	struct run *scb_free_runs;	/* ALLOC: Currently unused run blocks */
+	SORTP *scb_merge_space;		/* ALLOC: memory space to do merging */
+	ULONG scb_run_start;		/* Record number of run */
+	ULONG scb_flags;			/* see flag bits below */
+	STATUS *scb_status_vector;	/* Status vector for errors */
+	  BOOLEAN(*scb_dup_callback) ();	/* Duplicate handling callback */
+	void *scb_dup_callback_arg;	/* Duplicate handling callback arg */
+	struct dls *scb_dls;
+	struct mrg *scb_merge_pool;	/* ALLOC: pool of mrg blocks */
+	struct att *scb_attachment;	/* back pointer to attachment */
+	SKD scb_description[1];
+} *SCB;
+
+/* flags as set in scb_flags */
+
+#define scb_initialized		1
+#define scb_sorted		2		/* stream has been sorted */
+
+#define SCB_LEN(n_k)	(sizeof (struct scb) + (SLONG)(n_k) * sizeof (SKD))
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_SORT_H_ */
diff --git a/src/jrd/sort_proto.h b/src/jrd/sort_proto.h
new file mode 100644
index 0000000000..5588e8427a
--- /dev/null
+++ b/src/jrd/sort_proto.h
@@ -0,0 +1,48 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sort_proto.h
+ *	DESCRIPTION:	Prototype header file for sort.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SORT_PROTO_H_
+#define _JRD_SORT_PROTO_H_
+
+
+#ifdef SCROLLABLE_CURSORS
+extern void SORT_diddle_key(UCHAR *, struct scb *, USHORT);
+extern void SORT_get(STATUS *, struct scb *, ULONG **, RSE_GET_MODE);
+extern void SORT_read_block(STATUS *, struct sfb *, ULONG, BLOB_PTR *, ULONG);
+#else
+extern void SORT_get(STATUS *, struct scb *, ULONG **);
+extern ULONG SORT_read_block(STATUS *, struct sfb *, ULONG, BLOB_PTR *,
+							 ULONG);
+#endif
+
+extern void SORT_error(STATUS *, struct sfb *, TEXT *, STATUS, int);
+extern void SORT_fini(struct scb *, struct att *);
+extern struct scb *SORT_init(STATUS *, USHORT, USHORT, struct skd *,
+							 BOOLEAN(*)(), void *, struct att *);
+extern int SORT_put(STATUS *, struct scb *, ULONG **);
+extern void SORT_shutdown(struct att *);
+extern int SORT_sort(STATUS *, struct scb *);
+extern ULONG SORT_write_block(STATUS *, struct sfb *, ULONG, BLOB_PTR *,
+							  ULONG);
+
+#endif /* _JRD_SORT_PROTO_H_ */
diff --git a/src/jrd/sql_code.h b/src/jrd/sql_code.h
new file mode 100644
index 0000000000..5a405e7ba9
--- /dev/null
+++ b/src/jrd/sql_code.h
@@ -0,0 +1,716 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+static CONST SSHORT FAR_VARIABLE gds__sql_code[] = {
+	0 /* No Error */ ,
+	-802 /*   1 arith_except                    
 */ ,
+	-901 /*   2 bad_dbkey                       
 */ ,
+	-922 /*   3 bad_db_format                   
 */ ,
+	-904 /*   4 bad_db_handle                   
 */ ,
+	-924 /*   5 bad_dpb_content                 
 */ ,
+	-901 /*   6 bad_dpb_form                    
 */ ,
+	-501 /*   7 bad_req_handle                  
 */ ,
+	-901 /*   8 bad_segstr_handle               
 */ ,
+	-901 /*   9 bad_segstr_id                   
 */ ,
+	-901 /*  10 bad_tpb_content                 
 */ ,
+	-901 /*  11 bad_tpb_form                    
 */ ,
+	-901 /*  12 bad_trans_handle                
 */ ,
+	-902 /*  13 bug_check                       
 */ ,
+	-413 /*  14 convert_error                   
 */ ,
+	-902 /*  15 db_corrupt                      
 */ ,
+	-913 /*  16 deadlock                        
 */ ,
+	-901 /*  17 excess_trans                    
 */ ,
+	100 /*  18 from_no_match                   
 */ ,
+	-901 /*  19 infinap                         
 */ ,
+	-901 /*  20 infona                          
 */ ,
+	-901 /*  21 infunk                          
 */ ,
+	-901 /*  22 integ_fail                      
 */ ,
+	-104 /*  23 invalid_blr                     
 */ ,
+	-902 /*  24 io_error                        
 */ ,
+	-901 /*  25 lock_conflict                   
 */ ,
+	-902 /*  26 metadata_corrupt                
 */ ,
+	-625 /*  27 not_valid                       
 */ ,
+	-508 /*  28 no_cur_rec                      
 */ ,
+	-803 /*  29 no_dup                          
 */ ,
+	-901 /*  30 no_finish                       
 */ ,
+	-607 /*  31 no_meta_update                  
 */ ,
+	-551 /*  32 no_priv                         
 */ ,
+	-901 /*  33 no_recon                        
 */ ,
+	100 /*  34 no_record                       
 */ ,
+	-901 /*  35 no_segstr_close                 
 */ ,
+	-820 /*  36 obsolete_metadata               
 */ ,
+	-901 /*  37 open_trans                      
 */ ,
+	-901 /*  38 port_len                        
 */ ,
+	-151 /*  39 read_only_field                 
 */ ,
+	-150 /*  40 read_only_rel                   
 */ ,
+	-817 /*  41 read_only_trans                 
 */ ,
+	-150 /*  42 read_only_view                  
 */ ,
+	-901 /*  43 req_no_trans                    
 */ ,
+	-901 /*  44 req_sync                        
 */ ,
+	-901 /*  45 req_wrong_db                    
 */ ,
+	101 /*  46 segment                         
 */ ,
+	100 /*  47 segstr_eof                      
 */ ,
+	-402 /*  48 segstr_no_op                    
 */ ,
+	-901 /*  49 segstr_no_read                  
 */ ,
+	-901 /*  50 segstr_no_trans                 
 */ ,
+	-817 /*  51 segstr_no_write                 
 */ ,
+	-901 /*  52 segstr_wrong_db                 
 */ ,
+	-902 /*  53 sys_request                     
 */ ,
+	100 /*  54 stream_eof                      
 */ ,
+	-904 /*  55 unavailable                     
 */ ,
+	-901 /*  56 unres_rel                       
 */ ,
+	-901 /*  57 uns_ext                         
 */ ,
+	-901 /*  58 wish_list                       
 */ ,
+	-820 /*  59 wrong_ods                       
 */ ,
+	-804 /*  60 wronumarg                       
 */ ,
+	-904 /*  61 imp_exc                         
 */ ,
+	-901 /*  62 random                          
 */ ,
+	-901 /*  63 fatal_conflict                  
 */ ,
+	-902 /*  64 badblk                          
 */ ,
+	-902 /*  65 invpoolcl                       
 */ ,
+	-904 /*  66 nopoolids                       
 */ ,
+	-902 /*  67 relbadblk                       
 */ ,
+	-902 /*  68 blktoobig                       
 */ ,
+	-904 /*  69 bufexh                          
 */ ,
+	-104 /*  70 syntaxerr                       
 */ ,
+	-904 /*  71 bufinuse                        
 */ ,
+	-901 /*  72 bdbincon                        
 */ ,
+	-904 /*  73 reqinuse                        
 */ ,
+	-902 /*  74 badodsver                       
 */ ,
+	-219 /*  75 relnotdef                       
 */ ,
+	-205 /*  76 fldnotdef                       
 */ ,
+	-902 /*  77 dirtypage                       
 */ ,
+	-902 /*  78 waifortra                       
 */ ,
+	-902 /*  79 doubleloc                       
 */ ,
+	-902 /*  80 nodnotfnd                       
 */ ,
+	-902 /*  81 dupnodfnd                       
 */ ,
+	-902 /*  82 locnotmar                       
 */ ,
+	-689 /*  83 badpagtyp                       
 */ ,
+	-902 /*  84 corrupt                         
 */ ,
+	-902 /*  85 badpage                         
 */ ,
+	-902 /*  86 badindex                        
 */ ,
+	-901 /*  87 dbbnotzer                       
 */ ,
+	-901 /*  88 tranotzer                       
 */ ,
+	-902 /*  89 trareqmis                       
 */ ,
+	-902 /*  90 badhndcnt                       
 */ ,
+	-902 /*  91 wrotpbver                       
 */ ,
+	-902 /*  92 wroblrver                       
 */ ,
+	-902 /*  93 wrodpbver                       
 */ ,
+	-402 /*  94 blobnotsup                      
 */ ,
+	-902 /*  95 badrelation                     
 */ ,
+	-902 /*  96 nodetach                        
 */ ,
+	-902 /*  97 notremote                       
 */ ,
+	-901 /*  98 trainlim                        
 */ ,
+	-901 /*  99 notinlim                        
 */ ,
+	-901 /* 100 traoutsta                       
 */ ,
+	-923 /* 101 connect_reject                  
 */ ,
+	-902 /* 102 dbfile                          
 */ ,
+	-902 /* 103 orphan                          
 */ ,
+	-904 /* 104 no_lock_mgr                     
 */ ,
+	-104 /* 105 ctxinuse                        
 */ ,
+	-104 /* 106 ctxnotdef                       
 */ ,
+	-402 /* 107 datnotsup                       
 */ ,
+	-901 /* 108 badmsgnum                       
 */ ,
+	-104 /* 109 badparnum                       
 */ ,
+	-904 /* 110 virmemexh                       
 */ ,
+	-901 /* 111 blocking_signal                 
 */ ,
+	-902 /* 112 lockmanerr                      
 */ ,
+	-924 /* 113 journerr                        
 */ ,
+	-664 /* 114 keytoobig                       
 */ ,
+	-407 /* 115 nullsegkey                      
 */ ,
+	-902 /* 116 sqlerr                          
 */ ,
+	-820 /* 117 wrodynver                       
 */ ,
+	-172 /* 118 funnotdef                       
 */ ,
+	-171 /* 119 funmismat                       
 */ ,
+	-104 /* 120 bad_msg_vec                     
 */ ,
+	-924 /* 121 bad_detach                      
 */ ,
+	-901 /* 122 noargacc_read                   
 */ ,
+	-901 /* 123 noargacc_write                  
 */ ,
+	-817 /* 124 read_only                       
 */ ,
+	-677 /* 125 ext_err                         
 */ ,
+	-150 /* 126 non_updatable                   
 */ ,
+	-926 /* 127 no_rollback                     
 */ ,
+	-902 /* 128 bad_sec_info                    
 */ ,
+	-902 /* 129 invalid_sec_info                
 */ ,
+	-901 /* 130 misc_interpreted                
 */ ,
+	-904 /* 131 update_conflict                 
 */ ,
+	-906 /* 132 unlicensed                      
 */ ,
+	-904 /* 133 obj_in_use                      
 */ ,
+	-413 /* 134 nofilter                        
 */ ,
+	-904 /* 135 shadow_accessed                 
 */ ,
+	-104 /* 136 invalid_sdl                     
 */ ,
+	-406 /* 137 out_of_bounds                   
 */ ,
+	-171 /* 138 invalid_dimension               
 */ ,
+	-911 /* 139 rec_in_limbo                    
 */ ,
+	-904 /* 140 shadow_missing                  
 */ ,
+	-923 /* 141 cant_validate                   
 */ ,
+	-923 /* 142 cant_start_journal              
 */ ,
+	-204 /* 143 gennotdef                       
 */ ,
+	-923 /* 144 cant_start_logging              
 */ ,
+	-685 /* 145 bad_segstr_type                 
 */ ,
+	-530 /* 146 foreign_key                     
 */ ,
+	-820 /* 147 high_minor                      
 */ ,
+	-901 /* 148 tra_state                       
 */ ,
+	-532 /* 149 trans_invalid                   
 */ ,
+	-902 /* 150 buf_invalid                     
 */ ,
+	-902 /* 151 indexnotdefined                 
 */ ,
+	-902 /* 152 login                           
 */ ,
+	-823 /* 153 invalid_bookmark                
 */ ,
+	-824 /* 154 bad_lock_level                  
 */ ,
+	-615 /* 155 relation_lock                   
 */ ,
+	-615 /* 156 record_lock                     
 */ ,
+	-692 /* 157 max_idx                         
 */ ,
+	-902 /* 158 jrn_enable                      
 */ ,
+	-902 /* 159 old_failure                     
 */ ,
+	-902 /* 160 old_in_progress                 
 */ ,
+	-902 /* 161 old_no_space                    
 */ ,
+	-902 /* 162 no_wal_no_jrn                   
 */ ,
+	-902 /* 163 num_old_files                   
 */ ,
+	-902 /* 164 wal_file_open                   
 */ ,
+	-901 /* 165 bad_stmt_handle                 
 */ ,
+	-902 /* 166 wal_failure                     
 */ ,
+	-230 /* 167 walw_err                        
 */ ,
+	-231 /* 168 logh_small                      
 */ ,
+	-232 /* 169 logh_inv_version                
 */ ,
+	-233 /* 170 logh_open_flag                  
 */ ,
+	-234 /* 171 logh_open_flag2                 
 */ ,
+	-235 /* 172 logh_diff_dbname                
 */ ,
+	-236 /* 173 logf_unexpected_eof             
 */ ,
+	-237 /* 174 logr_incomplete                 
 */ ,
+	-238 /* 175 logr_header_small               
 */ ,
+	-239 /* 176 logb_small                      
 */ ,
+	-240 /* 177 wal_illegal_attach              
 */ ,
+	-241 /* 178 wal_invalid_wpb                 
 */ ,
+	-242 /* 179 wal_err_rollover                
 */ ,
+	-243 /* 180 no_wal                          
 */ ,
+	-615 /* 181 drop_wal                        
 */ ,
+	-204 /* 182 stream_not_defined              
 */ ,
+	-244 /* 183 wal_subsys_error                
 */ ,
+	-245 /* 184 wal_subsys_corrupt              
 */ ,
+	-902 /* 185 no_archive                      
 */ ,
+	-902 /* 186 shutinprog                      
 */ ,
+	-615 /* 187 range_in_use                    
 */ ,
+	-834 /* 188 range_not_found                 
 */ ,
+	-204 /* 189 charset_not_found               
 */ ,
+	-901 /* 190 lock_timeout                    
 */ ,
+	-204 /* 191 prcnotdef                       
 */ ,
+	-170 /* 192 prcmismat                       
 */ ,
+	-246 /* 193 wal_bugcheck                    
 */ ,
+	-247 /* 194 wal_cant_expand                 
 */ ,
+	-204 /* 195 codnotdef                       
 */ ,
+	-204 /* 196 xcpnotdef                       
 */ ,
+	-836 /* 197 except                          
 */ ,
+	-837 /* 198 cache_restart                   
 */ ,
+	-825 /* 199 bad_lock_handle                 
 */ ,
+	-902 /* 200 jrn_present                     
 */ ,
+	-248 /* 201 wal_err_rollover2               
 */ ,
+	-249 /* 202 wal_err_logwrite                
 */ ,
+	-250 /* 203 wal_err_jrn_comm                
 */ ,
+	-251 /* 204 wal_err_expansion               
 */ ,
+	-252 /* 205 wal_err_setup                   
 */ ,
+	-253 /* 206 wal_err_ww_sync                 
 */ ,
+	-254 /* 207 wal_err_ww_start                
 */ ,
+	-902 /* 208 shutdown                        
 */ ,
+	-553 /* 209 existing_priv_mod               
 */ ,
+	-616 /* 210 primary_key_ref                 
 */ ,
+	-291 /* 211 primary_key_notnull             
 */ ,
+	-204 /* 212 ref_cnstrnt_notfound            
 */ ,
+	-660 /* 213 foreign_key_notfound            
 */ ,
+	-292 /* 214 ref_cnstrnt_update              
 */ ,
+	-293 /* 215 check_cnstrnt_update            
 */ ,
+	-294 /* 216 check_cnstrnt_del               
 */ ,
+	-618 /* 217 integ_index_seg_del             
 */ ,
+	-618 /* 218 integ_index_seg_mod             
 */ ,
+	-616 /* 219 integ_index_del                 
 */ ,
+	-616 /* 220 integ_index_mod                 
 */ ,
+	-616 /* 221 check_trig_del                  
 */ ,
+	-617 /* 222 check_trig_update               
 */ ,
+	-616 /* 223 cnstrnt_fld_del                 
 */ ,
+	-617 /* 224 cnstrnt_fld_rename              
 */ ,
+	-295 /* 225 rel_cnstrnt_update              
 */ ,
+	-150 /* 226 constaint_on_view               
 */ ,
+	-296 /* 227 invld_cnstrnt_type              
 */ ,
+	-831 /* 228 primary_key_exists              
 */ ,
+	-607 /* 229 systrig_update                  
 */ ,
+	-552 /* 230 not_rel_owner                   
 */ ,
+	-204 /* 231 grant_obj_notfound              
 */ ,
+	-205 /* 232 grant_fld_notfound              
 */ ,
+	-552 /* 233 grant_nopriv                    
 */ ,
+	-84 /* 234 nonsql_security_rel             
 */ ,
+	-84 /* 235 nonsql_security_fld             
 */ ,
+	-255 /* 236 wal_cache_err                   
 */ ,
+	-902 /* 237 shutfail                        
 */ ,
+	-297 /* 238 check_constraint                
 */ ,
+	-901 /* 239 bad_svc_handle                  
 */ ,
+	-838 /* 240 shutwarn                        
 */ ,
+	-901 /* 241 wrospbver                       
 */ ,
+	-901 /* 242 bad_spb_form                    
 */ ,
+	-901 /* 243 svcnotdef                       
 */ ,
+	-902 /* 244 no_jrn                          
 */ ,
+	-314 /* 245 transliteration_failed          
 */ ,
+	-257 /* 246 start_cm_for_wal                
 */ ,
+	-258 /* 247 wal_ovflow_log_required         
 */ ,
+	-204 /* 248 text_subtype                    
 */ ,
+	-902 /* 249 dsql_error                      
 */ ,
+	-104 /* 250 dsql_command_err                
 */ ,
+	-103 /* 251 dsql_constant_err               
 */ ,
+	-504 /* 252 dsql_cursor_err                 
 */ ,
+	-204 /* 253 dsql_datatype_err               
 */ ,
+	-502 /* 254 dsql_decl_err                   
 */ ,
+	-510 /* 255 dsql_cursor_update_err          
 */ ,
+	-502 /* 256 dsql_cursor_open_err            
 */ ,
+	-501 /* 257 dsql_cursor_close_err           
 */ ,
+	-206 /* 258 dsql_field_err                  
 */ ,
+	-104 /* 259 dsql_internal_err               
 */ ,
+	-204 /* 260 dsql_relation_err               
 */ ,
+	-204 /* 261 dsql_procedure_err              
 */ ,
+	-518 /* 262 dsql_request_err                
 */ ,
+	-804 /* 263 dsql_sqlda_err                  
 */ ,
+	-804 /* 264 dsql_var_count_err              
 */ ,
+	-826 /* 265 dsql_stmt_handle                
 */ ,
+	-804 /* 266 dsql_function_err               
 */ ,
+	-206 /* 267 dsql_blob_err                   
 */ ,
+	-204 /* 268 collation_not_found             
 */ ,
+	-204 /* 269 collation_not_for_charset       
 */ ,
+	-104 /* 270 dsql_dup_option                 
 */ ,
+	-104 /* 271 dsql_tran_err                   
 */ ,
+	-104 /* 272 dsql_invalid_array              
 */ ,
+	-604 /* 273 dsql_max_arr_dim_exceeded       
 */ ,
+	-604 /* 274 dsql_arr_range_error            
 */ ,
+	-204 /* 275 dsql_trigger_err                
 */ ,
+	-206 /* 276 dsql_subselect_err              
 */ ,
+	-531 /* 277 dsql_crdb_prepare_err           
 */ ,
+	-157 /* 278 specify_field_err               
 */ ,
+	-158 /* 279 num_field_err                   
 */ ,
+	-806 /* 280 col_name_err                    
 */ ,
+	-807 /* 281 where_err                       
 */ ,
+	-808 /* 282 table_view_err                  
 */ ,
+	-809 /* 283 distinct_err                    
 */ ,
+	-832 /* 284 key_field_count_err             
 */ ,
+	-810 /* 285 subquery_err                    
 */ ,
+	-833 /* 286 expression_eval_err             
 */ ,
+	-599 /* 287 node_err                        
 */ ,
+	-104 /* 288 command_end_err                 
 */ ,
+	-901 /* 289 index_name                      
 */ ,
+	-901 /* 290 exception_name                  
 */ ,
+	-901 /* 291 field_name                      
 */ ,
+	-104 /* 292 token_err                       
 */ ,
+	-901 /* 293 union_err                       
 */ ,
+	-901 /* 294 dsql_construct_err              
 */ ,
+	-830 /* 295 field_aggregate_err             
 */ ,
+	-829 /* 296 field_ref_err                   
 */ ,
+	-208 /* 297 order_by_err                    
 */ ,
+	-171 /* 298 return_mode_err                 
 */ ,
+	-170 /* 299 extern_func_err                 
 */ ,
+	-204 /* 300 alias_conflict_err              
 */ ,
+	-204 /* 301 procedure_conflict_error        
 */ ,
+	-204 /* 302 relation_conflict_err           
 */ ,
+	-901 /* 303 dsql_domain_err                 
 */ ,
+	-663 /* 304 idx_seg_err                     
 */ ,
+	-599 /* 305 node_name_err                   
 */ ,
+	-901 /* 306 table_name                      
 */ ,
+	-901 /* 307 proc_name                       
 */ ,
+	-660 /* 308 idx_create_err                  
 */ ,
+	-259 /* 309 wal_shadow_err                  
 */ ,
+	-616 /* 310 dependency                      
 */ ,
+	-663 /* 311 idx_key_err                     
 */ ,
+	-597 /* 312 dsql_file_length_err            
 */ ,
+	-598 /* 313 dsql_shadow_number_err          
 */ ,
+	-104 /* 314 dsql_token_unk_err              
 */ ,
+	-204 /* 315 dsql_no_relation_alias          
 */ ,
+	-204 /* 316 indexname                       
 */ ,
+	-281 /* 317 no_stream_plan                  
 */ ,
+	-282 /* 318 stream_twice                    
 */ ,
+	-283 /* 319 stream_not_found                
 */ ,
+	-204 /* 320 collation_requires_text         
 */ ,
+	-901 /* 321 dsql_domain_not_found           
 */ ,
+	-284 /* 322 index_unused                    
 */ ,
+	-282 /* 323 dsql_self_join                  
 */ ,
+	-596 /* 324 stream_bof                      
 */ ,
+	-595 /* 325 stream_crack                    
 */ ,
+	-601 /* 326 db_or_file_exists               
 */ ,
+	-401 /* 327 invalid_operator                
 */ ,
+	-924 /* 328 conn_lost                       
 */ ,
+	-835 /* 329 bad_checksum                    
 */ ,
+	-689 /* 330 page_type_err                   
 */ ,
+	-816 /* 331 ext_readonly_err                
 */ ,
+	-811 /* 332 sing_select_err                 
 */ ,
+	-902 /* 333 psw_attach                      
 */ ,
+	-902 /* 334 psw_start_trans                 
 */ ,
+	-827 /* 335 invalid_direction               
 */ ,
+	-901 /* 336 dsql_var_conflict               
 */ ,
+	-607 /* 337 dsql_no_blob_array              
 */ ,
+	-155 /* 338 dsql_base_table                 
 */ ,
+	-282 /* 339 duplicate_base_table            
 */ ,
+	-282 /* 340 view_alias                      
 */ ,
+	-904 /* 341 index_root_page_full            
 */ ,
+	-204 /* 342 dsql_blob_type_unknown          
 */ ,
+	-693 /* 343 req_max_clones_exceeded         
 */ ,
+	-637 /* 344 dsql_duplicate_spec             
 */ ,
+	-803 /* 345 unique_key_violation            
 */ ,
+	-901 /* 346 srvr_version_too_old            
 */ ,
+	-909 /* 347 drdb_completed_with_errs        
 */ ,
+	-84 /* 348 dsql_procedure_use_err          
 */ ,
+	-313 /* 349 dsql_count_mismatch             
 */ ,
+	-685 /* 350 blob_idx_err                    
 */ ,
+	-685 /* 351 array_idx_err                   
 */ ,
+	-663 /* 352 key_field_err                   
 */ ,
+	-901 /* 353 no_delete                       
 */ ,
+	-616 /* 354 del_last_field                  
 */ ,
+	-901 /* 355 sort_err                        
 */ ,
+	-904 /* 356 sort_mem_err                    
 */ ,
+	-841 /* 357 version_err                     
 */ ,
+	-828 /* 358 inval_key_posn                  
 */ ,
+	-690 /* 359 no_segments_err                 
 */ ,
+	-600 /* 360 crrp_data_err                   
 */ ,
+	-691 /* 361 rec_size_err                    
 */ ,
+	-605 /* 362 dsql_field_ref                  
 */ ,
+	-904 /* 363 req_depth_exceeded              
 */ ,
+	-694 /* 364 no_field_access                 
 */ ,
+	-162 /* 365 no_dbkey                        
 */ ,
+	-839 /* 366 jrn_format_err                  
 */ ,
+	-840 /* 367 jrn_file_full                   
 */ ,
+	-519 /* 368 dsql_open_cursor_request        
 */ ,
+	-999 /* 369 ib_error                        
 */ ,
+	-260 /* 370 cache_redef                     
 */ ,
+	-239 /* 371 cache_too_small                 
 */ ,
+	-260 /* 372 log_redef                       
 */ ,
+	-239 /* 373 log_too_small                   
 */ ,
+	-239 /* 374 partition_too_small             
 */ ,
+	-261 /* 375 partition_not_supp              
 */ ,
+	-261 /* 376 log_length_spec                 
 */ ,
+	-842 /* 377 precision_err                   
 */ ,
+	-842 /* 378 scale_nogt                      
 */ ,
+	-842 /* 379 expec_short                     
 */ ,
+	-842 /* 380 expec_long                      
 */ ,
+	-842 /* 381 expec_ushort                    
 */ ,
+	-105 /* 382 like_escape_invalid             
 */ ,
+	-901 /* 383 svcnoexe                        
 */ ,
+	-901 /* 384 net_lookup_err                  
 */ ,
+	-901 /* 385 service_unknown                 
 */ ,
+	-901 /* 386 host_unknown                    
 */ ,
+	-552 /* 387 grant_nopriv_on_base            
 */ ,
+	-203 /* 388 dyn_fld_ambiguous               
 */ ,
+	-104 /* 389 dsql_agg_ref_err                
 */ ,
+	-282 /* 390 complex_view                    
 */ ,
+	-901 /* 391 unprepared_stmt                 
 */ ,
+	-842 /* 392 expec_positive                  
 */ ,
+	-804 /* 393 dsql_sqlda_value_err            
 */ ,
+	-104 /* 394 invalid_array_id                
 */ ,
+	-816 /* 395 extfile_uns_op                  
 */ ,
+	-901 /* 396 svc_in_use                      
 */ ,
+	-902 /* 397 err_stack_limit                 
 */ ,
+	-827 /* 398 invalid_key                     
 */ ,
+	-901 /* 399 net_init_error                  
 */ ,
+	-901 /* 400 loadlib_failure                 
 */ ,
+	-902 /* 401 network_error                   
 */ ,
+	-902 /* 402 net_connect_err                 
 */ ,
+	-902 /* 403 net_connect_listen_err          
 */ ,
+	-902 /* 404 net_event_connect_err           
 */ ,
+	-902 /* 405 net_event_listen_err            
 */ ,
+	-902 /* 406 net_read_err                    
 */ ,
+	-902 /* 407 net_write_err                   
 */ ,
+	-616 /* 408 integ_index_deactivate          
 */ ,
+	-616 /* 409 integ_deactivate_primary        
 */ ,
+	-104 /* 410 cse_not_supported               
 */ ,
+	-901 /* 411 tra_must_sweep                  
 */ ,
+	-902 /* 412 unsupported_network_drive       
 */ ,
+	-902 /* 413 io_create_err                   
 */ ,
+	-902 /* 414 io_open_err                     
 */ ,
+	-902 /* 415 io_close_err                    
 */ ,
+	-902 /* 416 io_read_err                     
 */ ,
+	-902 /* 417 io_write_err                    
 */ ,
+	-902 /* 418 io_delete_err                   
 */ ,
+	-902 /* 419 io_access_err                   
 */ ,
+	-901 /* 420 udf_exception                   
 */ ,
+	-901 /* 421 lost_db_connection              
 */ ,
+	-901 /* 422 no_write_user_priv              
 */ ,
+	-104 /* 423 token_too_long                  
 */ ,
+	-906 /* 424 max_att_exceeded                
 */ ,
+	-902 /* 425 login_same_as_role_name         
 */ ,
+	-607 /* 426 reftable_requires_pk            
 */ ,
+	-85 /* 427 usrname_too_long                
 */ ,
+	-85 /* 428 password_too_long               
 */ ,
+	-85 /* 429 usrname_required                
 */ ,
+	-85 /* 430 password_required               
 */ ,
+	-85 /* 431 bad_protocol                    
 */ ,
+	-85 /* 432 dup_usrname_found               
 */ ,
+	-85 /* 433 usrname_not_found               
 */ ,
+	-85 /* 434 error_adding_sec_record         
 */ ,
+	-85 /* 435 error_modifying_sec_record      
 */ ,
+	-85 /* 436 error_deleting_sec_record       
 */ ,
+	-85 /* 437 error_updating_sec_db           
 */ ,
+	-904 /* 438 sort_rec_size_err               
 */ ,
+	-204 /* 439 bad_default_value               
 */ ,
+	-204 /* 440 invalid_clause                  
 */ ,
+	-904 /* 441 too_many_handles                
 */ ,
+	-904 /* 442 optimizer_blk_exc               
 */ ,
+	-104 /* 443 invalid_string_constant         
 */ ,
+	-104 /* 444 transitional_date               
 */ ,
+	-817 /* 445 read_only_database              
 */ ,
+	-817 /* 446 must_be_dialect_2_and_up        
 */ ,
+	-901 /* 447 blob_filter_exception           
 */ ,
+	-901 /* 448 exception_access_violation      
 */ ,
+	-901 /* 449 exception_datatype_missalignment
 */ ,
+	-901 /* 450 exception_array_bounds_exceeded 
 */ ,
+	-901 /* 451 exception_float_denormal_operand
 */ ,
+	-901 /* 452 exception_float_divide_by_zero  
 */ ,
+	-901 /* 453 exception_float_inexact_result  
 */ ,
+	-901 /* 454 exception_float_invalid_operand 
 */ ,
+	-901 /* 455 exception_float_overflow        
 */ ,
+	-901 /* 456 exception_float_stack_check     
 */ ,
+	-901 /* 457 exception_float_underflow       
 */ ,
+	-901 /* 458 exception_integer_divide_by_zero
 */ ,
+	-901 /* 459 exception_integer_overflow      
 */ ,
+	-901 /* 460 exception_unknown               
 */ ,
+	-901 /* 461 exception_stack_overflow        
 */ ,
+	-901 /* 462 exception_sigsegv               
 */ ,
+	-901 /* 463 exception_sigill                
 */ ,
+	-901 /* 464 exception_sigbus                
 */ ,
+	-901 /* 465 exception_sigfpe                
 */ ,
+	-901 /* 466 ext_file_delete                 
 */ ,
+	-901 /* 467 ext_file_modify                 
 */ ,
+	-901 /* 468 adm_task_denied                 
 */ ,
+	-105 /* 469 extract_input_mismatch          
 */ ,
+	-551 /* 470 insufficient_svc_privileges     
 */ ,
+	-902 /* 471 file_in_use                     
 */ ,
+	-904 /* 472 service_att_err                 
 */ ,
+	-817 /* 473 ddl_not_allowed_by_db_sql_dial  
 */ ,
+	-901 /* 474 cancelled                       
 */ ,
+	-902 /* 475 unexp_spb_form                  
 */ ,
+	-104 /* 476 sql_dialect_datatype_unsupport  
 */ ,
+	-901 /* 477 svcnouser                       
 */ ,
+	-104 /* 478 depend_on_uncommitted_rel       
 */ ,
+	-904 /* 479 svc_name_missing                
 */ ,
+	-204 /* 480 too_many_contexts               
 */ ,
+	-901 /* 481 datype_notsup                   
 */ ,
+	501 /* 482 dialect_reset_warning           
 */ ,
+	-901 /* 483 dialect_not_changed             
 */ ,
+	-901 /* 484 database_create_failed          
 */ ,
+	-901 /* 485 inv_dialect_specified           
 */ ,
+	-901 /* 486 valid_db_dialects               
 */ ,
+	300 /* 487 sqlwarn                         
 */ ,
+	301 /* 488 dtype_renamed                   
 */ ,
+	-902 /* 489 extern_func_dir_error           
 */ ,
+	-833 /* 490 date_range_exceeded             
 */ ,
+	-901 /* 491 inv_client_dialect_specified    
 */ ,
+	-901 /* 492 valid_client_dialects           
 */ ,
+	-904 /* 493 optimizer_between_err           
 */ ,
+	-901 /* 494 service_not_supported           
 */ ,
+	-901 /*   1 gfix_db_name                    
 */ ,
+	-901 /*   2 gfix_invalid_sw                 
 */ ,
+	-901 /*   4 gfix_incmp_sw                   
 */ ,
+	-901 /*   5 gfix_replay_req                 
 */ ,
+	-901 /*   6 gfix_pgbuf_req                  
 */ ,
+	-901 /*   7 gfix_val_req                    
 */ ,
+	-901 /*   8 gfix_pval_req                   
 */ ,
+	-901 /*   9 gfix_trn_req                    
 */ ,
+	-901 /*  12 gfix_full_req                   
 */ ,
+	-901 /*  13 gfix_usrname_req                
 */ ,
+	-901 /*  14 gfix_pass_req                   
 */ ,
+	-901 /*  15 gfix_subs_name                  
 */ ,
+	-901 /*  16 gfix_wal_req                    
 */ ,
+	-901 /*  17 gfix_sec_req                    
 */ ,
+	-901 /*  18 gfix_nval_req                   
 */ ,
+	-901 /*  19 gfix_type_shut                  
 */ ,
+	-901 /*  20 gfix_retry                      
 */ ,
+	-901 /*  23 gfix_retry_db                   
 */ ,
+	-901 /*  63 gfix_exceed_max                 
 */ ,
+	-901 /*  64 gfix_corrupt_pool               
 */ ,
+	-901 /*  65 gfix_mem_exhausted              
 */ ,
+	-901 /*  66 gfix_bad_pool                   
 */ ,
+	-901 /*  67 gfix_trn_not_valid              
 */ ,
+	-901 /*  84 gfix_unexp_eoi                  
 */ ,
+	-901 /*  90 gfix_recon_fail                 
 */ ,
+	-901 /* 108 gfix_trn_unknown                
 */ ,
+	-901 /* 110 gfix_mode_req                   
 */ ,
+	0 /* 111 gfix_opt_SQL_dialect            
 */ ,
+	-607 /*   2 dsql_dbkey_from_non_table       
 */ ,
+	-104 /*   3 dsql_transitional_numeric       
 */ ,
+	301 /*   4 dsql_dialect_warning_expr       
 */ ,
+	-104 /*   5 sql_db_dialect_dtype_unsupport  
 */ ,
+	-817 /*   7 isc_sql_dialect_conflict_num    
 */ ,
+	301 /*   8 dsql_warning_number_ambiguous   
 */ ,
+	301 /*   9 dsql_warning_number_ambiguous1  
 */ ,
+	301 /*  10 dsql_warn_precision_ambiguous   
 */ ,
+	301 /*  11 dsql_warn_precision_ambiguous1  
 */ ,
+	301 /*  12 dsql_warn_precision_ambiguous2  
 */ ,
+	-901 /* 188 dyn_role_does_not_exist         
 */ ,
+	-901 /* 189 dyn_no_grant_admin_opt          
 */ ,
+	-901 /* 190 dyn_user_not_role_member        
 */ ,
+	-901 /* 191 dyn_delete_role_failed          
 */ ,
+	-901 /* 192 dyn_grant_role_to_user          
 */ ,
+	-901 /* 193 dyn_inv_sql_role_name           
 */ ,
+	-901 /* 194 dyn_dup_sql_role                
 */ ,
+	-901 /* 195 dyn_kywd_spec_for_role          
 */ ,
+	-901 /* 196 dyn_roles_not_supported         
 */ ,
+	-612 /* 204 dyn_domain_name_exists          
 */ ,
+	-612 /* 205 dyn_field_name_exists           
 */ ,
+	-383 /* 206 dyn_dependency_exists           
 */ ,
+	-315 /* 207 dyn_dtype_invalid               
 */ ,
+	-829 /* 208 dyn_char_fld_too_small          
 */ ,
+	-829 /* 209 dyn_invalid_dtype_conversion    
 */ ,
+	-829 /* 210 dyn_dtype_conv_invalid          
 */ ,
+	-901 /*   1 gbak_unknown_switch             
 */ ,
+	-901 /*   2 gbak_page_size_missing          
 */ ,
+	-901 /*   3 gbak_page_size_toobig           
 */ ,
+	-901 /*   4 gbak_redir_ouput_missing        
 */ ,
+	-901 /*   5 gbak_switches_conflict          
 */ ,
+	-901 /*   6 gbak_unknown_device             
 */ ,
+	-901 /*   7 gbak_no_protection              
 */ ,
+	-901 /*   8 gbak_page_size_not_allowed      
 */ ,
+	-901 /*   9 gbak_multi_source_dest          
 */ ,
+	-901 /*  10 gbak_filename_missing           
 */ ,
+	-901 /*  11 gbak_dup_inout_names            
 */ ,
+	-901 /*  12 gbak_inv_page_size              
 */ ,
+	-901 /*  13 gbak_db_specified               
 */ ,
+	-901 /*  14 gbak_db_exists                  
 */ ,
+	-901 /*  15 gbak_unk_device                 
 */ ,
+	-901 /*  20 gbak_blob_info_failed           
 */ ,
+	-901 /*  21 gbak_unk_blob_item              
 */ ,
+	-901 /*  22 gbak_get_seg_failed             
 */ ,
+	-901 /*  23 gbak_close_blob_failed          
 */ ,
+	-901 /*  24 gbak_open_blob_failed           
 */ ,
+	-901 /*  25 gbak_put_blr_gen_id_failed      
 */ ,
+	-901 /*  26 gbak_unk_type                   
 */ ,
+	-901 /*  27 gbak_comp_req_failed            
 */ ,
+	-901 /*  28 gbak_start_req_failed           
 */ ,
+	-901 /*  29 gbak_rec_failed                 
 */ ,
+	-901 /*  30 gbak_rel_req_failed             
 */ ,
+	-901 /*  31 gbak_db_info_failed             
 */ ,
+	-901 /*  32 gbak_no_db_desc                 
 */ ,
+	-901 /*  33 gbak_db_create_failed           
 */ ,
+	-901 /*  34 gbak_decomp_len_error           
 */ ,
+	-901 /*  35 gbak_tbl_missing                
 */ ,
+	-901 /*  36 gbak_blob_col_missing           
 */ ,
+	-901 /*  37 gbak_create_blob_failed         
 */ ,
+	-901 /*  38 gbak_put_seg_failed             
 */ ,
+	-901 /*  39 gbak_rec_len_exp                
 */ ,
+	-901 /*  40 gbak_inv_rec_len                
 */ ,
+	-901 /*  41 gbak_exp_data_type              
 */ ,
+	-901 /*  42 gbak_gen_id_failed              
 */ ,
+	-901 /*  43 gbak_unk_rec_type               
 */ ,
+	-901 /*  44 gbak_inv_bkup_ver               
 */ ,
+	-901 /*  45 gbak_missing_bkup_desc          
 */ ,
+	-901 /*  46 gbak_string_trunc               
 */ ,
+	-901 /*  47 gbak_cant_rest_record           
 */ ,
+	-901 /*  48 gbak_send_failed                
 */ ,
+	-901 /*  49 gbak_no_tbl_name                
 */ ,
+	-901 /*  50 gbak_unexp_eof                  
 */ ,
+	-901 /*  51 gbak_db_format_too_old          
 */ ,
+	-901 /*  52 gbak_inv_array_dim              
 */ ,
+	-901 /*  55 gbak_xdr_len_expected           
 */ ,
+	-901 /*  65 gbak_open_bkup_error            
 */ ,
+	-901 /*  66 gbak_open_error                 
 */ ,
+	-901 /* 182 gbak_missing_block_fac          
 */ ,
+	-901 /* 183 gbak_inv_block_fac              
 */ ,
+	-901 /* 184 gbak_block_fac_specified        
 */ ,
+	-901 /* 188 gbak_missing_username           
 */ ,
+	-901 /* 189 gbak_missing_password           
 */ ,
+	-901 /* 200 gbak_missing_skipped_bytes      
 */ ,
+	-901 /* 201 gbak_inv_skipped_bytes          
 */ ,
+	-901 /* 213 gbak_err_restore_charset        
 */ ,
+	-901 /* 215 gbak_err_restore_collation      
 */ ,
+	-901 /* 220 gbak_read_error                 
 */ ,
+	-901 /* 221 gbak_write_error                
 */ ,
+	-901 /* 233 gbak_db_in_use                  
 */ ,
+	-901 /* 238 gbak_sysmemex                   
 */ ,
+	-901 /* 250 gbak_restore_role_failed        
 */ ,
+	-901 /* 253 gbak_role_op_missing            
 */ ,
+	-901 /* 258 gbak_page_buffers_missing       
 */ ,
+	-901 /* 259 gbak_page_buffers_wrong_param   
 */ ,
+	-901 /* 260 gbak_page_buffers_restore       
 */ ,
+	-901 /* 262 gbak_inv_size                   
 */ ,
+	-901 /* 263 gbak_file_outof_sequence        
 */ ,
+	-901 /* 264 gbak_join_file_missing          
 */ ,
+	-901 /* 265 gbak_stdin_not_supptd           
 */ ,
+	-901 /* 266 gbak_stdout_not_supptd          
 */ ,
+	-901 /* 267 gbak_bkup_corrupt               
 */ ,
+	-901 /* 268 gbak_unk_db_file_spec           
 */ ,
+	-901 /* 269 gbak_hdr_write_failed           
 */ ,
+	-901 /* 270 gbak_disk_space_ex              
 */ ,
+	-901 /* 271 gbak_size_lt_min                
 */ ,
+	-901 /* 273 gbak_svc_name_missing           
 */ ,
+	-901 /* 274 gbak_not_ownr                   
 */ ,
+	-901 /* 279 gbak_mode_req                   
 */ ,
+	-901 /*  15 gsec_cant_open_db               
 */ ,
+	-901 /*  16 gsec_switches_error             
 */ ,
+	-901 /*  17 gsec_no_op_spec                 
 */ ,
+	-901 /*  18 gsec_no_usr_name                
 */ ,
+	-901 /*  19 gsec_err_add                    
 */ ,
+	-901 /*  20 gsec_err_modify                 
 */ ,
+	-901 /*  21 gsec_err_find_mod               
 */ ,
+	-901 /*  22 gsec_err_rec_not_found          
 */ ,
+	-901 /*  23 gsec_err_delete                 
 */ ,
+	-901 /*  24 gsec_err_find_del               
 */ ,
+	-901 /*  28 gsec_err_find_disp              
 */ ,
+	-901 /*  29 gsec_inv_param                  
 */ ,
+	-901 /*  30 gsec_op_specified               
 */ ,
+	-901 /*  31 gsec_pw_specified               
 */ ,
+	-901 /*  32 gsec_uid_specified              
 */ ,
+	-901 /*  33 gsec_gid_specified              
 */ ,
+	-901 /*  34 gsec_proj_specified             
 */ ,
+	-901 /*  35 gsec_org_specified              
 */ ,
+	-901 /*  36 gsec_fname_specified            
 */ ,
+	-901 /*  37 gsec_mname_specified            
 */ ,
+	-901 /*  38 gsec_lname_specified            
 */ ,
+	-901 /*  40 gsec_inv_switch                 
 */ ,
+	-901 /*  41 gsec_amb_switch                 
 */ ,
+	-901 /*  42 gsec_no_op_specified            
 */ ,
+	-901 /*  43 gsec_params_not_allowed         
 */ ,
+	-901 /*  44 gsec_incompat_switch            
 */ ,
+	-901 /*  76 gsec_inv_username               
 */ ,
+	-901 /*  77 gsec_inv_pw_length              
 */ ,
+	-901 /*  78 gsec_db_specified               
 */ ,
+	-901 /*  79 gsec_db_admin_specified         
 */ ,
+	-901 /*  80 gsec_db_admin_pw_specified      
 */ ,
+	-901 /*  81 gsec_sql_role_specified         
 */ ,
+	-901 /*   0 license_no_file                 
 */ ,
+	-901 /*  19 license_op_specified            
 */ ,
+	-901 /*  20 license_op_missing              
 */ ,
+	-901 /*  21 license_inv_switch              
 */ ,
+	-901 /*  22 license_inv_switch_combo        
 */ ,
+	-901 /*  23 license_inv_op_combo            
 */ ,
+	-901 /*  24 license_amb_switch              
 */ ,
+	-901 /*  25 license_inv_parameter           
 */ ,
+	-901 /*  26 license_param_specified         
 */ ,
+	-901 /*  27 license_param_req               
 */ ,
+	-901 /*  28 license_syntx_error             
 */ ,
+	-901 /*  30 license_dup_id                  
 */ ,
+	-901 /*  31 license_inv_id_key              
 */ ,
+	-901 /*  32 license_err_remove              
 */ ,
+	-901 /*  33 license_err_update              
 */ ,
+	-901 /*  34 license_err_convert             
 */ ,
+	-901 /*  35 license_err_unk                 
 */ ,
+	-901 /*  36 license_svc_err_add             
 */ ,
+	-901 /*  37 license_svc_err_remove          
 */ ,
+	-901 /*  59 license_eval_exists             
 */ ,
+	-901 /*   1 gstat_unknown_switch            
 */ ,
+	-901 /*   2 gstat_retry                     
 */ ,
+	-901 /*   3 gstat_wrong_ods                 
 */ ,
+	-901 /*   4 gstat_unexpected_eof            
 */ ,
+	-901 /*  29 gstat_open_err                  
 */ ,
+	-901 /*  30 gstat_read_err                  
 */ ,
+	-901						/*  31 gstat_sysmemex                  
 */
+};
diff --git a/src/jrd/sqz.cpp b/src/jrd/sqz.cpp
new file mode 100644
index 0000000000..03087d5f1b
--- /dev/null
+++ b/src/jrd/sqz.cpp
@@ -0,0 +1,519 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sqz.c
+ *	DESCRIPTION:	Record compression/decompression
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/sqz.h"
+#include "../jrd/req.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/sqz_proto.h"
+#include "../jrd/thd_proto.h"
+
+
+extern "C" {
+
+
+USHORT SQZ_apply_differences(REC record, SCHAR* differences, SCHAR* end)
+{
+/**************************************
+ *
+ *	S Q Z _ a p p l y _ d i f f e r e n c e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apply a differences (delta) to a record.  Return the length.
+ *
+ **************************************/
+
+	if (end - differences > MAX_DIFFERENCES)
+	{
+		BUGCHECK(176);			/* msg 176 bad difference record */
+	}
+
+	SCHAR* p     = (SCHAR*) record->rec_data;
+	SCHAR* p_end = (SCHAR*) p + record->rec_length;
+
+	while (differences < end && p < p_end)
+	{
+		SSHORT l = *differences++;
+		if (l > 0)
+		{
+			if (p + l > p_end)
+			{
+				BUGCHECK(177);	/* msg 177 applied differences will not fit in record */
+			}
+			memcpy(p, differences, l);
+			p += l;
+			differences += l;
+		}
+		else
+		{
+			p += -l;
+		}
+	}
+
+	const USHORT length = (p - (SCHAR *) record->rec_data);
+
+	if (length > record->rec_length || differences < end)
+	{
+		BUGCHECK(177);			/* msg 177 applied differences will not fit in record */
+	}
+
+	return length;
+}
+
+
+USHORT SQZ_compress(DCC dcc, const SCHAR* input, SCHAR* output, int space)
+{
+/**************************************
+ *
+ *	S Q Z _ c o m p r e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compress a string into an area of known length.  If it doesn't fit,
+ *	return the number of bytes that did.
+ *
+ **************************************/
+	register SSHORT length;
+	register SCHAR *control;
+
+	const SCHAR* start = input;
+
+	while (TRUE)
+	{
+		control = dcc->dcc_string;
+		while (control < dcc->dcc_end)
+		{
+			if (--space <= 0)
+			{
+				if (space == 0)
+					*output = 0;
+				return input - start;
+			}
+			else if ((length = *output++ = *control++) & 128)
+			{
+				// TMN: This is bad code. It assumes char is 8 bits
+				// and that bit 7 is the sign-bit.
+				--space;
+				*output++ = *input;
+				input += (-length) & 255;
+			}
+			else
+			{
+				if ((space -= length) < 0)
+				{
+					length += space;
+					output[-1] = length;
+					if (length > 0)
+					{
+						MOVE_FAST(input, output, length);
+						input += length;
+					}
+					return input - start;
+				}
+				if (length > 0) {
+					MOVE_FAST(input, output, length);
+					output += length;
+					input += length;
+				}
+			}
+		}
+		if (!(dcc = dcc->dcc_next))
+		{
+			BUGCHECK(178);		/* msg 178 record length inconsistent */
+		}
+	}
+}
+
+
+USHORT SQZ_compress_length(DCC dcc, SCHAR* input, int space)
+{
+/**************************************
+ *
+ *	S Q Z _ c o m p r e s s _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Same as SQZ_compress without the output.  If it doesn't fit,
+ *	return the number of bytes that did.
+ *
+ **************************************/
+	register SSHORT length;
+	register SCHAR *control;
+	SCHAR *start;
+
+	start = input;
+
+	while (TRUE) {
+		control = dcc->dcc_string;
+		while (control < dcc->dcc_end)
+			if (--space <= 0)
+				return input - start;
+			else if ((length = *control++) & 128) {
+				--space;
+				input += (-length) & 255;
+			}
+			else {
+				if ((space -= length) < 0) {
+					length += space;
+					input += length;
+					return input - start;
+				}
+				input += length;
+			}
+		if (!(dcc = dcc->dcc_next))
+			BUGCHECK(178);		/* msg 178 record length inconsistent */
+	}
+}
+
+
+
+SCHAR* SQZ_decompress(const SCHAR*	input,
+					  USHORT		length,
+					  SCHAR*		output,
+					  const SCHAR*	output_end)
+{
+/**************************************
+ *
+ *	S Q Z _ d e c o m p r e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Decompress a compressed string into a buffer.  Return the address
+ *	where the output stopped.
+ *
+ **************************************/
+	register SSHORT l;
+
+	const SCHAR* last = input + length;
+
+	while (input < last)
+	{
+		l = *input++;
+		if (l < 0)
+		{
+			const SCHAR c = *input++;
+
+			if ((output - l) > output_end)
+			{
+				BUGCHECK(179);	/* msg 179 decompression overran buffer */
+			}
+			memset(output, (UCHAR) c, (-1 * l));
+			output -= l;
+		}
+		else
+		{
+			if ((output + l) > output_end)
+			{
+				BUGCHECK(179);	/* msg 179 decompression overran buffer */
+			}
+			MOVE_FAST(input, output, l);
+			output += l;
+			input += l;
+		}
+	}
+
+	if (output > output_end)
+	{
+		BUGCHECK(179);			/* msg 179 decompression overran buffer */
+	}
+
+	return output;
+}
+
+
+USHORT SQZ_differences(SCHAR*	rec1,
+					   USHORT	length1,
+					   SCHAR*	rec2,
+					   USHORT	length2,
+					   SCHAR*	out,
+					   int		length)
+{
+/**************************************
+ *
+ *	S Q Z _ d i f f e r e n c e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute differences between two records.  The difference
+ *	record, when applied to the first record, produces the
+ *	second record.  
+ *
+ *	    difference_record	:= <control_string>...
+ *
+ *	    control_string	:= <positive_integer> <positive_integer data bytes>
+ *				:= <negative_integer>
+ *
+ *	Return the total length of the differences string.  
+ *
+ **************************************/
+	SCHAR *p, *yellow, *end, *end1, *end2, *start;
+	SLONG l;					/* This could be more than 32K since the Old and New records 
+								   could be the same for more than 32K characters. 
+								   MAX record size is currently 64K. Hence it is defined as a SLONG */
+
+#define STUFF(val)	if (out < end) *out++ = val; else return 32000;
+/* WHY IS THIS RETURNING 32000 ??? 
+ * It returns a large Positive value to indicate to the caller that we ran out
+ * of buffer space in the 'out' argument. Thus we could not create a
+ * successful differences record. Now it is upto the caller to check the
+ * return value of this function and figure out whether the differences record
+ * was created or not. Check prepare_update() (JRD/vio.c) for further
+ * information. Of course, the size for a 'differences' record is not expected
+ * to go near 32000 in the future. If the case arises where we want to store
+ * differences record of 32000 bytes and more, please change the return value
+ * above to accomodate a failure value. 
+ * 
+ * This was investigated as a part of solving bug 10206, bsriram - 25-Feb-1999. 
+ */
+
+	start = out;
+	end = out + length;
+	end1 = rec1 + MIN(length1, length2);
+	end2 = rec2 + length2;
+
+	while (end1 - rec1 > 2) {
+		if (rec1[0] != rec2[0] || rec1[1] != rec2[1]) {
+			p = out++;
+
+			/* cast this to LONG to take care of OS/2 pointer arithmetic
+			   when rec1 is at the end of a segment, to avoid wrapping around */
+
+			yellow = (SCHAR *) MIN((U_IPTR) end1, ((U_IPTR) rec1 + 127)) - 1;
+			while (rec1 <= yellow &&
+				   (rec1[0] != rec2[0] ||
+					(rec1[1] != rec2[1] && rec1 < yellow))) {
+				STUFF(*rec2++);
+				++rec1;
+			}
+			*p = out - p - 1;
+			continue;
+		}
+		for (p = rec2; rec1 < end1 && *rec1 == *rec2; rec1++, rec2++)
+		{
+			;
+		}
+		l = p - rec2;
+		while (l < -127)
+		{
+			STUFF(-127);
+			l += 127;
+		}
+		if (l)
+		{
+			STUFF(l);
+		}
+	}
+
+	while (rec2 < end2)
+	{
+		p = out++;
+
+		/* cast this to LONG to take care of OS/2 pointer arithmetic
+		   when rec1 is at the end of a segment, to avoid wrapping around */
+
+		yellow = (SCHAR *) MIN((U_IPTR) end2, ((U_IPTR) rec2 + 127));
+		while (rec2 < yellow)
+		{
+			STUFF(*rec2++);
+		}
+		*p = out - p - 1;
+	}
+
+	return out - start;
+}
+
+
+void SQZ_fast(DCC dcc, SCHAR* input, SCHAR* output)
+{
+/**************************************
+ *
+ *	S Q Z _ f a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compress a string into an sufficiently large area.  Don't
+ *	check nuttin' -- go for speed, man, raw SPEED!
+ *
+ **************************************/
+	register SCHAR *control;
+	register SSHORT length;
+
+	while (TRUE)
+	{
+		control = dcc->dcc_string;
+		while (control < dcc->dcc_end)
+		{
+			length = *control++;
+			*output++ = length;
+			if (length < 0)
+			{
+				*output++ = *input;
+				input -= length;
+			}
+			else if (length > 0)
+			{
+				MOVE_FAST(input, output, length);
+				output += length;
+				input += length;
+			}
+		}
+		dcc = dcc->dcc_next;
+		if (!dcc)
+		{
+			break;
+		}
+	}
+}
+
+
+USHORT SQZ_length(TDBB tdbb, SCHAR* data, int length, DCC dcc)
+{
+/**************************************
+ *
+ *	S Q Z _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the compressed length of a record.  While we're at it, generate
+ *	the control string for subsequent compression.
+ *
+ **************************************/
+	USHORT count;
+	register USHORT max;
+	SCHAR c, *end, *start, *control, *end_control;
+
+	SET_TDBB(tdbb);
+
+	dcc->dcc_next = NULL;
+	control = dcc->dcc_string;
+	end_control = dcc->dcc_string + sizeof(dcc->dcc_string);
+	end = &data[length];
+	length = 0;
+
+	while (count = end - data)
+	{
+		start = data;
+
+		/* Find length of non-compressable run */
+
+		if ((max = count - 1) > 1)
+		{
+			do {
+				if (data[0] != data[1] || data[0] != data[2])
+				{
+					data++;
+				}
+				else
+				{
+					count = data - start;
+					break;
+				}
+			} while (--max > 1);
+		}
+		data = start + count;
+
+		/* Non-compressable runs are limited to 127 bytes */
+
+		while (count)
+		{
+			max = MIN(count, 127);
+			length += 1 + max;
+			count -= max;
+			*control++ = max;
+			if (control == end_control)
+			{
+				dcc->dcc_end = control;
+				if (dcc->dcc_next = tdbb->tdbb_default->plb_dccs)
+				{
+					dcc = dcc->dcc_next;
+					tdbb->tdbb_default->plb_dccs = dcc->dcc_next;
+					dcc->dcc_next = NULL;
+					assert(dcc->dcc_pool == tdbb->tdbb_default);
+				}
+				else
+				{
+					dcc->dcc_next = (DCC) ALLOCD(type_dcc);
+					dcc = dcc->dcc_next;
+					dcc->dcc_pool = tdbb->tdbb_default;
+				}
+				control = dcc->dcc_string;
+				end_control = dcc->dcc_string + sizeof(dcc->dcc_string);
+			}
+		}
+
+		/* Find compressible run.  Compressable runs are limited to 128 bytes */
+
+		if ((max = MIN(128, end - data)) >= 3)
+		{
+			start = data;
+			c = *data;
+			do
+			{
+				if (*data != c)
+				{
+					break;
+				}
+				++data;
+			} while (--max);
+
+			*control++ = start - data;
+			length += 2;
+			if (control == end_control)
+			{
+				dcc->dcc_end = control;
+				if (dcc->dcc_next = tdbb->tdbb_default->plb_dccs)
+				{
+					dcc = dcc->dcc_next;
+					tdbb->tdbb_default->plb_dccs = dcc->dcc_next;
+					dcc->dcc_next = NULL;
+					assert(dcc->dcc_pool == tdbb->tdbb_default);
+				}
+				else
+				{
+					dcc->dcc_next = (DCC) ALLOCD(type_dcc);
+					dcc = dcc->dcc_next;
+					dcc->dcc_pool = tdbb->tdbb_default;
+				}
+				control = dcc->dcc_string;
+				end_control = dcc->dcc_string + sizeof(dcc->dcc_string);
+			}
+		}
+	}
+
+	dcc->dcc_end = control;
+
+	return length;
+}
+
+} // extern "C"
diff --git a/src/jrd/sqz.h b/src/jrd/sqz.h
new file mode 100644
index 0000000000..40aa3de0f1
--- /dev/null
+++ b/src/jrd/sqz.h
@@ -0,0 +1,35 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sqz.h
+ *	DESCRIPTION:	Data compression control block
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SQZ_H_
+#define _JRD_SQZ_H_
+
+typedef struct dcc {
+	struct blk dcc_header;
+	struct plb *dcc_pool;
+	struct dcc *dcc_next;		/* Next block if overflow */
+	SCHAR *dcc_end;				/* End of control string */
+	SCHAR dcc_string[128];
+} *DCC;
+
+#endif /* _JRD_SQZ_H_ */
diff --git a/src/jrd/sqz_proto.h b/src/jrd/sqz_proto.h
new file mode 100644
index 0000000000..451775eabb
--- /dev/null
+++ b/src/jrd/sqz_proto.h
@@ -0,0 +1,46 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sqz_proto.h
+ *	DESCRIPTION:	Prototype header file for sqz.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SQZ_PROTO_H_
+#define _JRD_SQZ_PROTO_H_
+
+#include "../jrd/req.h"
+#include "../jrd/sqz.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern USHORT	SQZ_apply_differences(struct rec*, SCHAR*, SCHAR*);
+extern USHORT	SQZ_compress(struct dcc*, const SCHAR*, SCHAR*, int);
+extern USHORT	SQZ_compress_length(struct dcc*, SCHAR*, int);
+extern SCHAR*	SQZ_decompress(const SCHAR*, USHORT, SCHAR*, const SCHAR*);
+extern USHORT	SQZ_differences(SCHAR*, USHORT, SCHAR*, USHORT, SCHAR*, int);
+extern void		SQZ_fast(struct dcc*, SCHAR*, SCHAR*);
+extern USHORT	SQZ_length(TDBB, SCHAR*, int, struct dcc*);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_SQZ_PROTO_H_ */
diff --git a/src/jrd/stats.e b/src/jrd/stats.e
new file mode 100644
index 0000000000..4931549615
--- /dev/null
+++ b/src/jrd/stats.e
@@ -0,0 +1,372 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		stats.e
+ *	DESCRIPTION:	Record statistics manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../include/jrd/gds.h"
+
+DATABASE DB = "yachts.lnk";
+
+extern SCHAR *gds__alloc();
+extern SLONG gds__vax_integer();
+
+#define ITEM_seq_reads	0
+#define ITEM_idx_reads	1
+#define ITEM_inserts	2
+#define ITEM_updates	3
+#define ITEM_deletes	4
+#define ITEM_backouts	5
+#define ITEM_purges	6
+#define ITEM_expunges	7
+#define ITEM_count	8
+
+typedef struct stats {
+	SSHORT stats_count;
+	SSHORT stats_items;			/* Number of item per relation */
+	SLONG stats_counts[1];
+} *STATS;
+
+static STATS expand_stats();
+static print_line();
+
+static SCHAR info_request[] = {
+	gds__info_read_seq_count,
+	gds__info_read_idx_count,
+	gds__info_insert_count,
+	gds__info_update_count,
+	gds__info_delete_count,
+	gds__info_backout_count,
+	gds__info_purge_count,
+	gds__info_expunge_count,
+	gds__info_end
+};
+
+static SCHAR *headers[] = {
+	"S-Reads",
+	"I-Reads",
+	"Inserts",
+	"Updates",
+	"Deletes",
+	"Backouts",
+	"Purges",
+	"Expunges"
+};
+
+static int *database_handle;
+static int *request_handle;
+
+
+stats_analyze(before, after, callback, arg)
+	 STATS before, after;
+	 int (*callback) ();
+	 SCHAR *arg;
+{
+/**************************************
+ *
+ *	s t a t s _ a n a l y z e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SLONG delta[ITEM_count], *p, *end, *tail, *tail2, total;
+	SSHORT relation_id;
+
+	if (!after)
+		return;
+
+	end = delta + ITEM_count;
+
+	if (before)
+		tail2 = before->stats_counts;
+
+	for (tail = after->stats_counts, relation_id = 0;
+		 relation_id < after->stats_count; ++relation_id) {
+		total = 0;
+		for (p = delta; p < end;) {
+			total += *tail;
+			*p++ = *tail++;
+		}
+		if (before && relation_id < before->stats_count)
+			for (p = delta; p < end;) {
+				total -= *tail2;
+				*p++ -= *tail2++;
+			}
+		if (total)
+			(*callback) (arg, relation_id, ITEM_count, headers, delta);
+	}
+}
+
+
+stats_fetch(status_vector, db_handle, stats_ptr)
+	 SLONG *status_vector;
+	 int **db_handle;
+	 STATS *stats_ptr;
+{
+/**************************************
+ *
+ *	s t a t s _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Gather statistics.
+ *
+ **************************************/
+	SCHAR info_buffer[4096], *p, *end;
+	STATS stats;
+	SSHORT length, item;
+
+	if (gds__database_info(GDS_VAL(status_vector),
+						   GDS_VAL(db_handle),
+						   sizeof(info_request),
+						   info_request,
+						   sizeof(info_buffer),
+						   info_buffer)) return status_vector[1];
+
+	if (stats = *stats_ptr)
+		zap_longs(stats->stats_counts, stats->stats_count * ITEM_count);
+	else
+		stats = expand_stats(stats_ptr, 64);
+
+	if (!stats) {
+		status_vector[0] = gds_arg_gds;
+		status_vector[1] = gds__virmemexh;
+		status_vector[2] = gds_arg_end;
+		return status_vector[1];
+	}
+
+	for (p = info_buffer;
+		 p < info_buffer + sizeof(info_buffer) && *p != gds__info_end;) {
+		length = gds__vax_integer(p + 1, 2);
+		item = -1;
+		switch (*p) {
+		case gds__info_read_seq_count:
+			item = ITEM_seq_reads;
+			break;
+		case gds__info_read_idx_count:
+			item = ITEM_idx_reads;
+			break;
+		case gds__info_insert_count:
+			item = ITEM_inserts;
+			break;
+		case gds__info_update_count:
+			item = ITEM_updates;
+			break;
+		case gds__info_delete_count:
+			item = ITEM_deletes;
+			break;
+		case gds__info_backout_count:
+			item = ITEM_backouts;
+			break;
+		case gds__info_purge_count:
+			item = ITEM_purges;
+			break;
+		case gds__info_expunge_count:
+			item = ITEM_expunges;
+			break;
+		}
+		if (item >= 0) {
+			if (get_counts(status_vector, p + 3, length, stats_ptr, item))
+				break;
+			p += 3 + length;
+		}
+
+	} /** MOD I have added this just to compile - it matches the for loop
+          but will need to be checkout out before actually being used */
+
+    return status_vector[1];
+
+}
+
+
+stats_print(db_handle, tr_handle, before, after)
+	 int **db_handle;
+	 int **tr_handle;
+	 STATS before, after;
+{
+/**************************************
+ *
+ *	s t a t s _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SLONG init;
+
+	if (request_handle && database_handle != *db_handle)
+		gds__release_request(gds__status, GDS_REF(request_handle));
+
+	db = database_handle = *db_handle;
+	gds__trans = *tr_handle;
+	init = 0;
+	stats_analyze(before, after, print_line, &init);
+}
+
+
+static STATS expand_stats(ptr, count)
+	 STATS *ptr;
+	 SSHORT count;
+{
+/**************************************
+ *
+ *	e x p a n d _ s t a t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make sure vector is big enough.
+ *
+ **************************************/
+	STATS stats, old;
+	SLONG *p, *q, *end, length;
+
+/* If the thing is already big enough, don't do nothing */
+
+	if ((old = *ptr) && old->stats_count < count)
+		return old;
+
+	count += 20;
+	length = sizeof(struct stats) + (ITEM_count * count - 1) * sizeof(SLONG);
+	stats = (STATS) gds__alloc(length);
+/* FREE: apparently never freed */
+	if (!stats)					/* NOMEM: out of memory */
+		return NULL;			/* leave *ptr unchanged */
+	zap_longs(stats->stats_counts, count * ITEM_count);
+	stats->stats_count = count;
+	stats->stats_items = ITEM_count;
+
+	if (old) {
+		p = stats->stats_counts;
+		q = old->stats_counts;
+		end = q + ITEM_count * old->stats_count;
+		while (q < end)
+			*p++ = *q++;
+		gds__free(old);
+	}
+
+	return *ptr = stats;
+}
+
+
+static get_counts(status_vector, info, length, stats_ptr, item)
+	 STATUS *status_vector;
+	 SCHAR *info;
+	 SSHORT length;
+	 STATS *stats_ptr;
+	 SSHORT item;
+{
+/**************************************
+ *
+ *	g e t _ c o u n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up operation counts from information items.
+ *
+ **************************************/
+	SCHAR *p, *end;
+	SSHORT relation_id;
+	STATS stats;
+
+	stats = *stats_ptr;
+
+	for (p = info, end = p + length; p < end; p += 6) {
+		relation_id = gds__vax_integer(p, 2);
+		if (relation_id >= stats->stats_count)
+			if (!expand_stats(&stats, relation_id)) {
+				status_vector[0] = gds_arg_gds;
+				status_vector[1] = gds__virmemexh;
+				status_vector[2] = gds_arg_end;
+				return status_vector[1];
+			}
+		stats->stats_counts[relation_id * ITEM_count + item] =
+			gds__vax_integer(p + 2, 4);
+	}
+	return status_vector[1];
+}
+
+
+static print_line(arg, relation_id, count, headers, counts)
+	 SCHAR *arg;
+	 SSHORT relation_id;
+	 SSHORT count;
+	 SCHAR **headers;
+	 SLONG *counts;
+{
+/**************************************
+ *
+ *	p r i n t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display data.
+ *
+ **************************************/
+	SLONG *end;
+	SSHORT n;
+
+	if (!*arg) {
+		*arg = 1;
+		ib_printf("%32s ", " ");
+		if (n = count)
+			do
+				ib_printf("%10s", *headers++);
+			while (--n);
+		ib_printf("\n");
+	}
+
+	for (request_handle request_handle)
+		x in rdb$relations with x.rdb$relation_id eq relation_id
+			ib_printf("%32s", x.rdb$relation_name);
+	for (end = counts + count; counts < end; counts++)
+		ib_printf("%10d", *counts);
+	ib_printf("\n");
+	end_for;
+
+}
+
+
+static zap_longs(ptr, count)
+	 SLONG *ptr;
+	 SSHORT count;
+{
+/**************************************
+ *
+ *	z a p _ l o n g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zero a bunch of SLONGwords.
+ *
+ **************************************/
+
+	if (count)
+		do
+			*ptr++ = 0;
+		while (--count);
+}
diff --git a/src/jrd/stored_proc.gdl b/src/jrd/stored_proc.gdl
new file mode 100644
index 0000000000..a13ec491ea
--- /dev/null
+++ b/src/jrd/stored_proc.gdl
@@ -0,0 +1,50 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+modify database 'yachts.gdb';
+
+define field RDB$PROCEDURE_BLR		blob sub_type 2;
+define field RDB$PROCEDURE_ID		short;
+define field RDB$PROCEDURE_NAME		char [31];
+define field RDB$PROCEDURE_PARAMETERS	short;
+
+define field RDB$PARAMETER_NAME		char [31];
+define field RDB$PARAMETER_NUMBER	short;
+define field RDB$PARAMETER_TYPE		short;
+
+define relation RDB$PARAMETERS
+    RDB$PARAMETER_NAME	position 0,
+    RDB$PROCEDURE_NAME	position 1,
+    RDB$PARAMETER_NUMBER	position 2,
+    RDB$PARAMETER_TYPE	position 3,
+    RDB$FIELD_SOURCE based on RDB$FIELD_NAME	position 4,
+    RDB$DESCRIPTION	position 5,
+    RDB$SYSTEM_FLAG	position 6;
+
+define relation RDB$PROCEDURES
+    RDB$PROCEDURE_NAME	position 0,
+    RDB$PROCEDURE_ID	position 1,
+    RDB$PROCEDURE_INPUTS based on RDB$PROCEDURE_PARAMETERS	position 2,
+    RDB$PROCEDURE_OUTPUTS based on RDB$PROCEDURE_PARAMETERS	position 3,
+    RDB$DESCRIPTION	position 4,
+    RDB$PROCEDURE_SOURCE based on RDB$SOURCE	position 5,
+    RDB$PROCEDURE_BLR	position 6,
+    RDB$SECURITY_CLASS	position 7,
+    RDB$OWNER_NAME based on RDB$USER	position 8,
+    RDB$RUNTIME	position 9,
+    RDB$SYSTEM_FLAG	position 10;
diff --git a/src/jrd/stubs.cpp b/src/jrd/stubs.cpp
new file mode 100644
index 0000000000..c8985e2a53
--- /dev/null
+++ b/src/jrd/stubs.cpp
@@ -0,0 +1,40 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		stubs.c
+ *	DESCRIPTION:	
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+
+
+int gethostid(void)
+{
+/**************************************
+ *
+ *	g e t h o s t i d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return 0;
+}
diff --git a/src/jrd/sun_ftn.cpp b/src/jrd/sun_ftn.cpp
new file mode 100644
index 0000000000..15e77d4fd1
--- /dev/null
+++ b/src/jrd/sun_ftn.cpp
@@ -0,0 +1,4379 @@
+/**************** history	************
+*
+*	COMPONENT: JRD	MODULE: SUN_FTN.C
+*	generated by Marion V2.5     2/6/90
+*	from dev              db	on 7-MAR-1995
+*****************************************************************
+*
+*	19332	rkumar	7-MAR-1995
+*	Calling convention error in ISC_MODIFY, ISC_ATTACH and ISC_FREE
+*
+*	19325	rkumar	7-MAR-1995 
+*	Add entry point for ISC_FREE
+*
+*	19323	rkumar	7-MAR-1995 
+*	A typo in the previous change
+*
+*	19322	rkumar	7-MAR-1995 
+*	Add an entry point for ISC_MODIFY_DPB
+*
+*	19170	rkumar	9-FEB-1995 
+*	change __ to _$
+*
+*	19054	rkumar	30-JAN-1995
+*	One more mode on the ftn calling conventions problem
+*
+*	19034	rkumar	26-JAN-1995
+*	to fix ftn calling convention problem for 4.0 isc_ calls
+*
+*	19015	rkumar	25-JAN-1995
+*	parameter passing bug fix
+*
+*	19014	rkumar	25-JAN-1995
+*	Further changes to 4.0 calling convention
+*
+*	18998	rkumar	24-JAN-1995
+*	Fix bugs in fortran ISC_ calling convention
+*
+*	15607	katz	24-FEB-1994
+*	Use STATUS to declare status vectors instead of SLONG
+*
+*	15078	daves	27-JAN-1994
+*	ANSI compile error: fixed return result of isc_print_sqlerror
+*
+*	13615	katz	28-OCT-1993
+*	Parameterize use of va_start
+*
+*	13380	katz	16-OCT-1993
+*	Move away from C language datatypes
+*
+*	12467	katz	16-AUG-1993
+*	Change exec_procedure to transact_request
+*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+*/
+
+
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sun_ftn.c
+ *	DESCRIPTION:	"Wrapper" module which compensates for the
+ *			Sun Fortran compiler appending an underscore
+ *			to external entrypoints.  (Each function in
+ *			this module is an InterBase entrypoint with
+ *			an underscore appended to it which calls the
+ *			real InterBase function).
+ *
+ * copyright (c) 1990, 1995 by Borland International
+ */
+
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../include/jrd/gds.h"
+#include "../jrd/perf.h"
+#undef GDS_VAL
+#define GDS_VAL(val)	(*val)
+
+extern UCHAR *gds__alloc();
+
+typedef STATUS(*PTR) ();
+
+typedef struct handle {
+	struct handle **user_handle;
+} *HANDLE, *REQ, *DBB, *TRA, *BLB, *ATT, *OBJ, *BLK, *MAP, *WIN, *MENU, *STMT;
+
+typedef struct {
+	short array_bound_lower;
+	short array_bound_upper;
+} ARRAY_BOUND;
+
+typedef struct {
+	unsigned char array_desc_dtype;
+	char array_desc_scale;
+	unsigned short array_desc_length;
+	char array_desc_field_name[32];
+	char array_desc_relation_name[32];
+	short array_desc_dimensions;
+	short array_desc_flags;
+	ARRAY_BOUND array_desc_bounds[16];
+} ARRAY_DESC;
+
+/* Transaction element block */
+
+typedef struct teb {
+	ATT *teb_database;
+	int teb_tpb_length;
+	UCHAR *teb_tpb;
+} TEB;
+
+#ifndef SQLDA_PROTOTYPE
+#define SQLDA_PROTOTYPE		sqlda
+#define SQLDA_ARG		SQLDA_PROTOTYPE
+#endif
+
+#define BLOB_DISPLAY		blob__display_
+#define BLOB_DUMP		blob__dump_
+#define BLOB_EDIT		blob__edit_
+#define BLOB_LOAD		blob__load_
+
+#define GDS_ALLOC		gds__alloc_
+#define GDS_ATTACH_DATABASE	gds__attach_database_
+#define GDS_BLOB_INFO		gds__blob_info_
+#define GDS_BLOB_SIZE		gds__blob_size_
+#define GDS_CANCEL_BLOB		gds__cancel_blob_
+#define GDS_CANCEL_EVENTS	gds__cancel_events_
+#define GDS_CLOSE		gds__close_
+#define GDS_CLOSE_BLOB		gds__close_blob_
+#define GDS_COMMIT		gds__commit_transaction_
+#define GDS_COMMIT_RETAINING	gds__commit_retaining_
+#define GDS_COMPILE		gds__compile_request_
+#define GDS_COMPILE2		gds__compile_request2_
+#define GDS_CREATE_BLOB		gds__create_blob_
+#define GDS_CREATE_BLOB2	gds__create_blob2_
+#define GDS_CREATE_DATABASE	gds__create_database_
+#define GDS_DATABASE_INFO	gds__database_info_
+#define GDS_DDL			gds__ddl_
+#define GDS_DETACH		gds__detach_database_
+#define GDS_DECLARE		gds__declare_
+#define GDS_DECODE_DATE		gds__decode_date_
+#define GDS_DESCRIBE		gds__describe_
+#define GDS_DESCRIBE_BIND	gds__describe_bind_
+#define GDS_DSQL_FINISH		gds__dsql_finish_
+#define GDS_ENCODE_DATE		gds__encode_date_
+#define GDS_EVENT_WAIT		gds__event_wait_
+#define GDS_EXECUTE		gds__execute_
+#define GDS_EXECUTE_IMMEDIATE	gds__execute_immediate_
+#define GDS_EVENT_BLOCK_A	gds__event_block_a_
+#define GDS_EVENT_COUNTS	gds__event_counts_
+#define GDS_FREE		gds__free_
+#define GDS_GET_SEGMENT		gds__get_segment_
+#define GDS_GET_SLICE		gds__get_slice_
+#define GDS_FETCH		gds__fetch_
+#define GDS_FTOF		gds__ftof_
+#define GDS_OPEN		gds__open_
+#define GDS_OPEN_BLOB		gds__open_blob_
+#define GDS_OPEN_BLOB2		gds__open_blob2_
+#define GDS_PREPARE		gds__prepare_
+#define GDS_PREPARE_TRANS	gds__prepare_transaction_
+#define GDS_PREPARE2		gds__prepare_transaction2_
+#define GDS_PRINT_STATUS	gds__print_status_
+#define GDS_PUT_SEGMENT		gds__put_segment_
+#define GDS_PUT_SLICE		gds__put_slice_
+#define GDS_QTOQ		gds__qtoq_
+#define GDS_QUE_EVENTS		gds__que_events_
+#define GDS_RECONNECT		gds__reconnect_transaction_
+#define GDS_RECEIVE		gds__receive_
+#define GDS_RELEASE_REQUEST	gds__release_request_
+#define GDS_REQUEST_INFO	gds__request_info_
+#define GDS_ROLLBACK		gds__rollback_transaction_
+#define GDS_SEEK_BLOB		gds__seek_blob_
+#define GDS_SEND		gds__send_
+#define GDS_SQLCODE		gds__sqlcode_
+#define GDS_START		gds__start_request_
+#define GDS_START_AND_SEND	gds__start_and_send_
+#define GDS_START_MULTIPLE	gds__start_multiple_
+#define GDS_START_TRANSACTION	gds__start_transaction_
+#define GDS_TRANSACTION_INFO	gds__transaction_info_
+#define GDS_UNWIND_REQUEST	gds__unwind_request_
+#define GDS_VAX_INTEGER		gds__vax_integer_
+#define GDS_VERSION		gds__version_
+
+#define ISC_ARRAY_GEN_SDL	isc_array_gen_sdl_
+#define ISC_ARRAY_GET_SLICE	isc_array_get_slice_
+#define ISC_ARRAY_LOOKUP_BOUNDS	isc_array_lookup_bounds_
+#define ISC_ARRAY_LOOKUP_DESC	isc_array_lookup_desc_
+#define ISC_ARRAY_PUT_SLICE	isc_array_put_slice_
+#define ISC_ARRAY_SET_DESC	isc_array_set_desc_
+#define ISC_ATTACH_DATABASE	isc_attach_database_
+#define ISC_MODIFY_DPB		isc_modify_dpb_
+#define ISC_FREE		isc_free_
+#define ISC_BADDRESS		isc_baddress_
+#define ISC_BLOB_INFO		isc_blob_info_
+#define ISC_CANCEL_BLOB		isc_cancel_blob_
+#define ISC_CANCEL_EVENTS	isc_cancel_events_
+#define ISC_CLOSE		isc_close_
+#define ISC_CLOSE_BLOB		isc_close_blob_
+#define ISC_COMMIT		isc_commit_transaction_
+#define ISC_COMMIT_RETAINING	isc_commit_retaining_
+#define ISC_COMPILE		isc_compile_request_
+#define ISC_COMPILE2		isc_compile_request2_
+#define ISC_CREATE_BLOB		isc_create_blob_
+#define ISC_CREATE_BLOB2	isc_create_blob2_
+#define ISC_CREATE_DATABASE	isc_create_database_
+#define ISC_DATABASE_INFO	isc_database_info_
+#define ISC_DDL			isc_ddl_
+#define ISC_DECODE_DATE		isc_decode_date_
+#define ISC_DECLARE		isc_declare_
+#define ISC_DESCRIBE		isc_describe_
+#define ISC_DESCRIBE_BIND	isc_describe_bind_
+#define ISC_DETACH		isc_detach_database_
+#define ISC_DROP_DATABASE	isc_drop_database_
+#define ISC_DSQL_ALLOCATE	isc_dsql_allocate_statement_
+#define ISC_DSQL_ALLOCATE2	isc_dsql_alloc_statement2_
+#define ISC_DSQL_DESCRIBE	isc_dsql_describe_
+#define ISC_DSQL_DESCRIBE_BIND	isc_dsql_describe_bind_
+#define ISC_DSQL_EXEC_IMMED2	isc_dsql_exec_immed2_
+#define ISC_DSQL_EXEC_IMMED2_M	isc_dsql_exec_immed2_m_
+#define ISC_DSQL_EXECUTE	isc_dsql_execute_
+#define ISC_DSQL_EXECUTE2	isc_dsql_execute2_
+#define ISC_DSQL_EXECUTE_M	isc_dsql_execute_m_
+#define ISC_DSQL_EXECUTE2_M	isc_dsql_execute2_m_
+#define ISC_DSQL_EXECUTE_IMMED	isc_dsql_execute_immediate_
+#define ISC_DSQL_EXECUTE_IMM_M	isc_dsql_execute_immediate_m_
+#define ISC_DSQL_FETCH		isc_dsql_fetch_
+#define ISC_DSQL_FETCH2		isc_dsql_fetch2_
+#define ISC_DSQL_FETCH_M	isc_dsql_fetch_m_
+#define ISC_DSQL_FETCH2_M	isc_dsql_fetch2_m_
+#define ISC_DSQL_FINISH		isc_dsql_finish_
+#define ISC_DSQL_FREE		isc_dsql_free_statement_
+#define ISC_DSQL_INSERT		isc_dsql_insert_
+#define ISC_DSQL_INSERT_M	isc_dsql_insert_m_
+#define ISC_DSQL_PREPARE	isc_dsql_prepare_
+#define ISC_DSQL_PREPARE_M	isc_dsql_prepare_m_
+#define ISC_DSQL_RELEASE	isc_dsql_release_
+#define ISC_DSQL_SET_CURSOR	isc_dsql_set_cursor_name_
+#define ISC_DSQL_SQL_INFO	isc_dsql_sql_info_
+#define ISC_EMBED_DSQL_CLOSE	isc_embed_dsql_close_
+#define ISC_EMBED_DSQL_DECLARE	isc_embed_dsql_declare_
+#define ISC_EMBED_DSQL_DESCR	isc_embed_dsql_describe_
+#define ISC_EMBED_DSQL_DESCR_B	isc_embed_dsql_describe_bind_
+#define ISC_EMBED_DSQL_EXEC_IM2	isc_embed_dsql_exec_immed2_
+#define ISC_EMBED_DSQL_EXECUTE	isc_embed_dsql_execute_
+#define ISC_EMBED_DSQL_EXECUTE2	isc_embed_dsql_execute2_
+#define ISC_EMBED_DSQL_EXEC_IMM	isc_embed_dsql_execute_immed_
+#define ISC_EMBED_DSQL_FETCH	isc_embed_dsql_fetch_
+#define ISC_EMBED_DSQL_FETCH2	isc_embed_dsql_fetch2_
+#define ISC_EMBED_DSQL_INSERT	isc_embed_dsql_insert_
+#define ISC_EMBED_DSQL_LENGTH	isc_embed_dsql_length_
+#define ISC_EMBED_DSQL_OPEN	isc_embed_dsql_open_
+#define ISC_EMBED_DSQL_OPEN2	isc_embed_dsql_open2_
+#define ISC_EMBED_DSQL_PREPARE	isc_embed_dsql_prepare_
+#define ISC_EMBED_DSQL_RELEASE	isc_embed_dsql_release_
+#define ISC_ENCODE_DATE		isc_encode_date_
+#define ISC_EVENT_BLOCK_A	isc_event_block_a_
+#define ISC_EVENT_COUNTS	isc_event_counts_
+#define ISC_EXECUTE		isc_execute_
+#define ISC_EXECUTE_IMMEDIATE	isc_execute_immediate_
+#define ISC_FETCH		isc_fetch_
+#define ISC_FTOF		isc_ftof_
+#define ISC_GET_SEGMENT		isc_get_segment_
+#define ISC_GET_SLICE		isc_get_slice_
+#define ISC_OPEN		isc_open_
+#define ISC_OPEN_BLOB		isc_open_blob_
+#define ISC_OPEN_BLOB2		isc_open_blob2_
+#define ISC_PREPARE		isc_prepare_
+#define ISC_PREPARE_TRANS	isc_prepare_transaction_
+#define ISC_PREPARE2		isc_prepare_transaction2_
+#define ISC_PRINT_SQLERROR	isc_print_sqlerror_
+#define ISC_PRINT_STATUS	isc_print_status_
+#define ISC_PUT_SEGMENT		isc_put_segment_
+#define ISC_PUT_SLICE		isc_put_slice_
+#define ISC_QTOQ		isc_qtoq_
+#define ISC_QUE_EVENTS		isc_que_events_
+#define ISC_RECEIVE		isc_receive_
+#define ISC_RECONNECT		isc_reconnect_transaction_
+#define ISC_RELEASE_REQUEST	isc_release_request_
+#define ISC_REQUEST_INFO	isc_request_info_
+#define ISC_ROLLBACK		isc_rollback_transaction_
+#define ISC_SEEK_BLOB		isc_seek_blob_
+#define ISC_SEND		isc_send_
+#define ISC_SQLCODE		isc_sqlcode_
+#define ISC_START		isc_start_request_
+#define ISC_START_AND_SEND	isc_start_and_send_
+#define ISC_START_MULTIPLE	isc_start_multiple_
+#define ISC_START_TRANSACTION	isc_start_transaction_
+#define ISC_TRANSACT_REQUEST	isc_transact_request_
+#define ISC_TRANSACTION_INFO	isc_transaction_info_
+#define ISC_UNWIND_REQUEST	isc_unwind_request_
+#define ISC_VAX_INTEGER		isc__vax_integer_
+#define ISC_VERSION		isc_version_
+#define ISC_WAIT_FOR_EVENT	isc_wait_for_event_
+
+#define PERF_FORMAT		perf_format_
+#define PERF_GET_INFO		perf_get_info_
+#define PERF_REPORT		perf_report_
+
+
+
+BLOB_EDIT(blob_id, database, transaction, field_name, name_length)
+	 SLONG *blob_id;
+	 int **database, *transaction;
+	 SCHAR *field_name;
+	 SLONG *name_length;
+{
+/**************************************
+ *
+ *	b l o b _ $ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a pascal callable edit
+ *	into an internal edit call.
+ *
+ **************************************/
+	USHORT length;
+
+	length = *name_length;
+	return blob__edit(blob_id, database, transaction, field_name, &length);
+}
+
+
+BLOB_DISPLAY(blob_id, database, transaction, field_name, name_length)
+	 SLONG *blob_id;
+	 int **database, *transaction;
+	 SCHAR *field_name;
+	 SLONG *name_length;
+{
+/**************************************
+ *
+ *	b l o b _ $ d i s p l a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	just dump a blob to the screen
+ *
+ **************************************/
+	USHORT length;
+
+	length = *name_length;
+
+	return blob__display(blob_id, database, transaction, field_name, &length);
+}
+
+
+BLOB_DUMP(blob_id, database, transaction, file_name, length)
+	 SLONG *blob_id;
+	 int **database, *transaction;
+	 SCHAR *file_name;
+	 SLONG GDS_VAL(length);
+{
+/**************************************
+ *
+ *	B L O B _ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a blob into a file.
+ *
+ **************************************/
+	USHORT len;
+
+	len = *length;
+
+	return blob__dump(blob_id, database, transaction, file_name, &len);
+}
+
+
+BLOB_LOAD(blob_id, database, transaction, file_name, name_length)
+	 SLONG *blob_id;
+	 int **database, *transaction;
+	 SCHAR *file_name;
+	 SLONG GDS_VAL(name_length);
+{
+/**************************************
+ *
+ *	b l o b _ $ l o a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a Fortran callable load
+ *	into an internal load call.
+ *
+ **************************************/
+	USHORT length;
+
+	length = *name_length;
+
+	return blob__load(blob_id, database, transaction, file_name, &length);
+}
+
+
+UCHAR *GDS_ALLOC(size)
+	 SLONG GDS_VAL(size);
+{
+/**************************************
+ *
+ *	g d s _ $ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block of memory.
+ *
+ **************************************/
+
+	return gds__alloc(size);
+}
+
+
+STATUS GDS_ATTACH_DATABASE(user_status, file_length, file_name, handle,
+						   dpb_length, dpb)
+	 STATUS *user_status;
+	 SLONG GDS_VAL(file_length);
+	 SCHAR *file_name;
+	 ATT *handle;
+	 SLONG GDS_VAL(dpb_length);
+	 SCHAR *dpb;
+{
+/**************************************
+ *
+ *	g d s _ $ a t t a c h _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attach a database through the first subsystem
+ *	that recognizes it.
+ *
+ **************************************/
+
+	return gds__attach_database(user_status,
+								(SSHORT) * file_length, file_name, handle,
+								(SSHORT) * dpb_length, dpb);
+}
+
+
+STATUS GDS_BLOB_INFO(user_status, blob_handle, item_length, items,
+					 buffer_length, buffer)
+	 STATUS *user_status;
+	 BLB *blob_handle;
+	 SLONG GDS_VAL(item_length), GDS_VAL(buffer_length);
+	 SCHAR *items, *buffer;
+{
+/**************************************
+ *
+ *	g d s _ $ b l o b _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+
+	return gds__blob_info(user_status, blob_handle, (SSHORT) * item_length,
+						  items, (SSHORT) * buffer_length, buffer);
+}
+
+
+int GDS_BLOB_SIZE(b, size, seg_count, max_seg)
+	 SLONG *b, *size, *seg_count, *max_seg;
+{
+/**************************************
+ *
+ *	g d s _ $ b l o b _ s i z e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the size, number of segments, and max
+ *	segment length of a blob.  Return true
+ *	if it happens to succeed.
+ *
+ **************************************/
+
+	return gds__blob_size(b, size, seg_count, max_seg);
+}
+
+
+STATUS GDS_CANCEL_BLOB(user_status, blob_handle)
+	 STATUS *user_status;
+	 BLB *blob_handle;
+{
+/**************************************
+ *
+ *	g d s _ $ c a n c e l _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+
+	return gds__cancel_blob(user_status, blob_handle);
+}
+
+
+STATUS GDS_CANCEL_EVENTS(user_status, handle, id)
+	 STATUS *user_status;
+	 ATT *handle;
+	 SLONG *id;
+{
+/**************************************
+ *
+ *	g d s _ $ c a n c e l _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to cancel an event.
+ *
+ **************************************/
+
+	return gds__cancel_events(user_status, handle, id);
+}
+
+
+GDS_CLOSE(user_status, name)
+	 STATUS *user_status;
+	 TEXT *name;
+{
+/**************************************
+ *
+ *	g d s _ $ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a dynamic SQL cursor.
+ *
+ **************************************/
+
+	return gds__close(user_status, name);
+}
+
+
+STATUS GDS_CLOSE_BLOB(user_status, blob_handle)
+	 STATUS *user_status;
+	 BLB *blob_handle;
+{
+/**************************************
+ *
+ *	g d s _ $ c l o s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+
+	return gds__close_blob(user_status, blob_handle);
+}
+
+
+STATUS GDS_COMMIT(user_status, tra_handle)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+{
+/**************************************
+ *
+ *	g d s _ $ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit a transaction.
+ *
+ **************************************/
+
+	return gds__commit_transaction(user_status, tra_handle);
+}
+
+
+STATUS GDS_COMMIT_RETAINING(user_status, tra_handle)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+{
+/**************************************
+ *
+ *	g d s _ $ c o m m i t _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do a commit retaining.
+ *
+ **************************************/
+
+	return gds__commit_retaining(user_status, tra_handle);
+}
+
+
+STATUS GDS_COMPILE(user_status, db_handle, req_handle, blr_length, blr)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 REQ *req_handle;
+	 SLONG GDS_VAL(blr_length);
+	 SCHAR *blr;
+{
+/**************************************
+ *
+ *	g d s _ $ c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return gds__compile_request(user_status, db_handle, req_handle,
+								(SSHORT) * blr_length, blr);
+}
+
+
+STATUS GDS_COMPILE2(user_status, db_handle, req_handle, blr_length, blr)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 REQ *req_handle;
+	 SLONG GDS_VAL(blr_length);
+	 SCHAR *blr;
+{
+/**************************************
+ *
+ *	g d s _ $ c o m p i l e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return gds__compile_request2(user_status, db_handle, req_handle,
+								 (SSHORT) * blr_length, blr);
+}
+
+
+STATUS GDS_CREATE_BLOB(user_status, db_handle, tra_handle, blob_handle,
+					   blob_id)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 BLB *blob_handle;
+	 SLONG *blob_id;
+{
+/**************************************
+ *
+ *	g d s _ $ c r e a t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+
+	return gds__create_blob(user_status, db_handle, tra_handle, blob_handle,
+							blob_id);
+}
+
+
+STATUS GDS_CREATE_BLOB2(user_status, db_handle, tra_handle, blob_handle,
+						blob_id, bpb_length, bpb)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 BLB *blob_handle;
+	 SLONG *blob_id;
+	 SLONG GDS_VAL(bpb_length);
+	 UCHAR *bpb;
+{
+/**************************************
+ *
+ *	g d s _ $ c r e a t e _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+
+	return gds__create_blob2(user_status, db_handle, tra_handle, blob_handle,
+							 blob_id, (SSHORT) * bpb_length, bpb);
+}
+
+
+STATUS GDS_CREATE_DATABASE(user_status, file_length, file_name, handle,
+						   dpb_length, dpb, db_type)
+	 STATUS *user_status;
+	 SLONG GDS_VAL(file_length);
+	 UCHAR *file_name;
+	 ATT *handle;
+	 SLONG GDS_VAL(dpb_length);
+	 UCHAR *dpb;
+	 SLONG GDS_VAL(db_type);
+{
+/**************************************
+ *
+ *	g d s _ $ c r e a t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeaky clean database, uncorrupted by user data.
+ *
+ **************************************/
+
+	return gds__create_database(user_status, (SSHORT) * file_length,
+								file_name, handle, (SSHORT) * dpb_length, dpb,
+								(SSHORT) * db_type);
+}
+
+
+STATUS GDS_DATABASE_INFO(user_status, handle, item_length, items,
+						 buffer_length, buffer)
+	 STATUS *user_status;
+	 ATT *handle;
+	 SLONG GDS_VAL(item_length), GDS_VAL(buffer_length);
+	 SCHAR *items, *buffer;
+{
+/**************************************
+ *
+ *	g d s _ $ d a t a b a s e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on database object.
+ *
+ **************************************/
+
+	return gds__database_info(user_status, handle, (SSHORT) * item_length,
+							  items, (SSHORT) * buffer_length, buffer);
+}
+
+
+STATUS GDS_DDL(user_status, db_handle, tra_handle, length, ddl)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(length);
+	 UCHAR *ddl;
+{
+/**************************************
+ *
+ *	g d s _ $ d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do meta-data update.
+ *
+ **************************************/
+
+	return gds__ddl(user_status, db_handle, tra_handle, (SSHORT) * length,
+					ddl);
+}
+
+
+GDS_DECLARE(user_status, statement, cursor)
+	 STATUS *user_status;
+	 TEXT *statement, *cursor;
+{
+/**************************************
+ *
+ *	g d s _ $ d e c l a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Declare a cursor for a dynamic request.
+ *
+ **************************************/
+
+	return gds__declare(user_status, statement, cursor);
+}
+
+
+void GDS_DECODE_DATE(date, times)
+	 SLONG date[2];
+	 struct tm *times;
+{
+/**************************************
+ *
+ *	g d s _ $ d e c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from internal date format to UNIX time structure.
+ *
+ **************************************/
+
+	gds__decode_date(date, times);
+}
+
+
+GDS_DESCRIBE(user_status, name, sqlda)
+	 STATUS *user_status;
+	 TEXT *name;
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	g d s _ $ d e s c r i b e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Describe output parameters for a prepared statement.
+ *
+ **************************************/
+
+	return gds__describe(user_status, name, sqlda);
+}
+
+
+GDS_DESCRIBE_BIND(user_status, name, sqlda)
+	 STATUS *user_status;
+	 TEXT *name;
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	g d s _ $ d e s c r i b e _ b i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Describe input parameters for a prepared statement.
+ *
+ **************************************/
+
+	return gds__describe_bind(user_status, name, sqlda);
+}
+
+
+STATUS GDS_DETACH(user_status, handle)
+	 STATUS *user_status;
+	 ATT *handle;
+{
+/**************************************
+ *
+ *	g d s _ $ d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a database.
+ *
+ **************************************/
+
+	return gds__detach_database(user_status, handle);
+}
+
+
+
+GDS_DSQL_FINISH(db_handle)
+	 SLONG **db_handle;
+{
+/**************************************
+ *
+ *	g d s _ $ d s q l _ f i n i s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clean up DSQL globals
+ *
+ **************************************/
+
+	return gds__dsql_finish(db_handle);
+}
+
+
+
+void GDS_ENCODE_DATE(times, date)
+	 struct tm *times;
+	 SLONG date[2];
+{
+/**************************************
+ *
+ *	g d s _ $ e n c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from UNIX time structure to internal date format.
+ *
+ **************************************/
+
+	gds__encode_date(times, date);
+}
+
+
+USHORT GDS_EVENT_BLOCK_A(event_buffer, result_buffer, count, name_buffer)
+	 UCHAR **event_buffer, **result_buffer;
+	 SLONG GDS_VAL(count);
+	 UCHAR **name_buffer;
+{
+/**************************************
+ *
+ *	g d s _ $ e v e n t _ b l o c k _ a 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an initialized event parameter block from a
+ *	vector of input arguments. (Ada needs this)
+ *	Assume all strings are 31 characters long.
+ *	Return the size of the block.
+ *
+ **************************************/
+
+	return gds__event_block_a(event_buffer, result_buffer, (USHORT) * count,
+							  name_buffer);
+}
+
+
+void GDS_EVENT_COUNTS(result_vector, buffer_length, event_buffer,
+					  result_buffer)
+	 ULONG *result_vector;
+	 USHORT GDS_VAL(buffer_length);
+	 UCHAR **event_buffer, **result_buffer;
+{
+/**************************************
+ *
+ *	g d s _ $ e v e n t _ c o u n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the delta between two events in an event
+ *	parameter block.  Used to update gds__events
+ *	for GPRE support of events.
+ *
+ **************************************/
+
+	gds__event_counts(result_vector, (USHORT) * buffer_length, *event_buffer,
+					  *result_buffer);
+}
+
+
+STATUS GDS_EVENT_WAIT(user_status, handle, length, events, buffer)
+	 ULONG *user_status;
+	 ATT *handle;
+	 USHORT GDS_VAL(length);
+	 UCHAR **events, **buffer;
+{
+/**************************************
+ *
+ *	g d s _ $ e v e n t _ w a i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que request for event notification.
+ *
+ **************************************/
+
+	return gds__event_wait(user_status, handle, (USHORT) * length, *events,
+						   *buffer);
+}
+
+
+GDS_EXECUTE(user_status, trans_handle, name, sqlda)
+	 STATUS *user_status;
+	 TEXT *name;
+	 TRA *trans_handle;
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	g d s _ $ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+
+	return gds__execute(user_status, trans_handle, name, sqlda);
+}
+
+
+
+GDS_EXECUTE_IMMEDIATE(user_status, db_handle, trans_handle, length, string)
+	 STATUS *user_status;
+	 int **db_handle, **trans_handle;
+	 SLONG *length;
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	g d s _ $ e x e c u t e _ i m m e d i a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+	USHORT len;
+
+	len = *length;
+	return gds__execute_immediate(user_status, db_handle,
+								  trans_handle, &len, string);
+}
+
+
+GDS_FETCH(user_status, name, sqlda)
+	 STATUS *user_status;
+	 TEXT *name;
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	g d s _ $ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+	return gds__fetch(user_status, name, sqlda);
+}
+
+
+SLONG GDS_FREE(blk)
+	 SLONG *blk;
+{
+/**************************************
+ *
+ *	g d s _ $ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block allocated by gds__alloc.  Return number
+ *	of bytes released.
+ *
+ **************************************/
+
+	return gds__free(blk);
+}
+
+
+GDS_FTOF(string, length1, field, length2)
+	 SCHAR *string, *field;
+	 SLONG GDS_VAL(length1), GDS_VAL(length2);
+{
+/**************************************
+ *
+ *	G D S _ f t o f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a fixed length string to a fixed length string.
+ *	This is typically generated by the preprocessor to
+ *	move strings around.
+ *
+ **************************************/
+
+	gds__ftof(string, (SSHORT) * length1, field, (SSHORT) * length2);
+}
+
+
+STATUS GDS_GET_SEGMENT(user_status, blob_handle, length, buffer_length,
+					   buffer)
+	 STATUS *user_status;
+	 BLB *blob_handle;
+	 SSHORT *length;
+	 SLONG GDS_VAL(buffer_length);
+	 SCHAR *buffer;
+{
+/**************************************
+ *
+ *	g d s _ $ g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	STATUS status;
+	SSHORT return_length;
+
+	status = gds__get_segment(user_status, blob_handle,
+							  &return_length, (SSHORT) * buffer_length,
+							  buffer);
+	*length = return_length;
+
+	return status;
+}
+
+
+STATUS GDS_GET_SLICE(user_status, db_handle, tra_handle, array_id,
+					 sdl_length, sdl, param_length, param, slice_length,
+					 slice, return_length)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SLONG *array_id;
+	 SLONG GDS_VAL(sdl_length);
+	 UCHAR *sdl;
+	 SLONG GDS_VAL(param_length);
+	 UCHAR *param;
+	 SLONG GDS_VAL(slice_length);
+	 UCHAR *slice;
+	 SLONG *return_length;
+{
+/**************************************
+ *
+ *	g d s _ $ g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+
+	return gds__get_slice(user_status, db_handle, tra_handle, array_id,
+						  (SSHORT) * sdl_length, sdl,
+						  (SSHORT) * param_length, param,
+						  *slice_length, slice, return_length);
+}
+
+
+GDS_OPEN(user_status, trans_handle, name, sqlda)
+	 STATUS *user_status;
+	 TEXT *name;
+	 TRA *trans_handle;
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	g d s _ $ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a dynamic SQL cursor.
+ *
+ **************************************/
+
+	return gds__open(user_status, trans_handle, name, sqlda);
+}
+
+
+STATUS GDS_OPEN_BLOB(user_status, db_handle, tra_handle, blob_handle, blob_id)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 BLB *blob_handle;
+	 SLONG *blob_id;
+{
+/**************************************
+ *
+ *	g d s _ $ o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+
+	return gds__open_blob(user_status, db_handle, tra_handle, blob_handle,
+						  blob_id);
+}
+
+
+STATUS GDS_OPEN_BLOB2(user_status, db_handle, tra_handle, blob_handle,
+					  blob_id, bpb_length, bpb)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 BLB *blob_handle;
+	 SLONG *blob_id;
+	 SLONG GDS_VAL(bpb_length);
+	 UCHAR *bpb;
+{
+/**************************************
+ *
+ *	g d s _ $ o p e n _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob (extended edition).
+ *
+ **************************************/
+
+	return gds__open_blob2(user_status, db_handle, tra_handle, blob_handle,
+						   blob_id, (SSHORT) * bpb_length, bpb);
+}
+
+
+GDS_PREPARE(user_status, db_handle, trans_handle, name, length, string, sqlda)
+	 STATUS *user_status;
+	 int **db_handle, **trans_handle;
+	 TEXT *name;
+	 SLONG *length;
+	 TEXT *string;
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	g d s _ $ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a dsql statement for execution.
+ *
+ **************************************/
+	USHORT len;
+
+	len = *length;
+
+	return gds__prepare(user_status, db_handle, trans_handle, name,
+						&len, string, sqlda);
+}
+
+
+STATUS GDS_PREPARE_TRANS(user_status, tra_handle)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+{
+/**************************************
+ *
+ *	g d s _ $ p r e p a r e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First 
+ *	phase of a two phase commit.
+ *
+ **************************************/
+
+	return gds__prepare_transaction(user_status, tra_handle);
+}
+
+
+STATUS GDS_PREPARE2(user_status, tra_handle, msg_length, msg)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(msg_length);
+	 UCHAR *msg;
+{
+/**************************************
+ *
+ *	g d s _ $ p r e p a r e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First phase of a two
+ *	phase commit.
+ *
+ **************************************/
+
+	return gds__prepare_transaction2(user_status, tra_handle,
+									 (SSHORT) * msg_length, msg);
+}
+
+
+GDS_PRINT_STATUS(status_vector)
+	 STATUS *status_vector;
+{
+/**************************************
+ *
+ *	g d s _ $ p r i n t _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print status vector.
+ *
+ **************************************/
+
+	return gds__print_status(status_vector);
+}
+
+
+STATUS GDS_PUT_SEGMENT(user_status, blob_handle, buffer_length, buffer)
+	 STATUS *user_status;
+	 BLB *blob_handle;
+	 SSHORT GDS_VAL(buffer_length);
+	 SCHAR *buffer;
+{
+/**************************************
+ *
+ *	g d s _ $ p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store one piece of a blob
+ *
+ **************************************/
+
+	return gds__put_segment(user_status, blob_handle, *buffer_length, buffer);
+}
+
+
+STATUS GDS_PUT_SLICE(user_status, db_handle, tra_handle, array_id,
+					 sdl_length, sdl, param_length, param, slice_length,
+					 slice)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SLONG *array_id;
+	 SLONG GDS_VAL(sdl_length);
+	 UCHAR *sdl;
+	 SLONG GDS_VAL(param_length);
+	 UCHAR *param;
+	 SLONG GDS_VAL(slice_length);
+	 UCHAR *slice;
+{
+/**************************************
+ *
+ *	g d s _ $ p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+
+	return gds__put_slice(user_status, db_handle, tra_handle, array_id,
+						  (SSHORT) * sdl_length, sdl,
+						  (SSHORT) * param_length, param,
+						  *slice_length, slice);
+}
+
+
+void GDS_QTOQ(quad_in, quad_out)
+	 GDS__QUAD *quad_in, *quad_out;
+{
+/**************************************
+ *
+ *	G D S _ q t o q
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a quad value to another quad value.  This
+ *      call is generated by the preprocessor when assigning
+ *      quad values in FORTRAN.
+ *
+ **************************************/
+
+	gds__qtoq(quad_in, quad_out);
+}
+
+
+STATUS GDS_QUE_EVENTS(user_status, handle, id, length, events, ast, arg)
+	 STATUS *user_status;
+	 ATT *handle;
+	 SLONG *id;
+	 USHORT GDS_VAL(length);
+	 UCHAR *events;
+	 int (*ast) ();
+	 SLONG arg;
+{
+/**************************************
+ *
+ *	g d s _ $ q u e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que request for event notification.
+ *
+ **************************************/
+
+	return gds__que_events(user_status, handle, id,
+						   (USHORT) * length, events, ast, arg);
+}
+
+
+STATUS GDS_RECEIVE(user_status, req_handle, msg_type, msg_length, msg, level)
+	 STATUS *user_status;
+	 REQ *req_handle;
+	 SLONG GDS_VAL(msg_type), GDS_VAL(msg_length);
+	 SCHAR *msg;
+	 SLONG GDS_VAL(level);
+{
+/**************************************
+ *
+ *	g d s _ $ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+
+	return gds__receive(user_status, req_handle,
+						(SSHORT) * msg_type, (SSHORT) * msg_length, msg,
+						(SSHORT) * level);
+}
+
+
+STATUS GDS_RECONNECT(user_status, db_handle, tra_handle, length, id)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(length);
+	 UCHAR *id;
+{
+/**************************************
+ *
+ *	g d s _ $ r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to a transaction in limbo.
+ *
+ **************************************/
+
+	return gds__reconnect_transaction(user_status, db_handle,
+									  tra_handle, (SSHORT) * length, id);
+}
+
+
+STATUS GDS_RELEASE_REQUEST(user_status, req_handle)
+	 STATUS *user_status;
+	 REQ *req_handle;
+{
+/**************************************
+ *
+ *	g d s _ $ r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request.
+ *
+ **************************************/
+
+	return gds__release_request(user_status, req_handle);
+}
+
+
+STATUS GDS_REQUEST_INFO(user_status, req_handle, level, item_length, items,
+						buffer_length, buffer)
+	 STATUS *user_status;
+	 REQ *req_handle;
+	 SLONG GDS_VAL(item_length), GDS_VAL(buffer_length);
+	 SCHAR *items, *buffer;
+	 SLONG GDS_VAL(level);
+{
+/**************************************
+ *
+ *	g d s _ $ r e q u e s t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+
+	return gds__request_info(user_status, req_handle,
+							 (SSHORT) * level, (SSHORT) * item_length, items,
+							 (SSHORT) * buffer_length, buffer);
+}
+
+
+STATUS GDS_ROLLBACK(user_status, tra_handle)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+{
+/**************************************
+ *
+ *	g d s _ $ r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction.
+ *
+ **************************************/
+
+	return gds__rollback_transaction(user_status, tra_handle);
+}
+
+
+STATUS GDS_SEEK_BLOB(user_status, blob_handle, mode, offset, result)
+	 STATUS *user_status;
+	 BLB *blob_handle;
+	 SLONG GDS_VAL(mode);
+	 SLONG GDS_VAL(offset);
+	 SLONG *result;
+{
+/**************************************
+ *
+ *	g d s _ $ s e e k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Seek a blob.
+ *
+ **************************************/
+
+	return gds__seek_blob(user_status, blob_handle, (SSHORT) * mode, *offset,
+						  result);
+}
+
+
+STATUS GDS_SEND(user_status, req_handle, msg_type, msg_length, msg, level)
+	 STATUS *user_status;
+	 REQ *req_handle;
+	 SLONG GDS_VAL(msg_type), GDS_VAL(msg_length);
+	 SCHAR *msg;
+	 SLONG GDS_VAL(level);
+{
+/**************************************
+ *
+ *	g d s _ $ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+
+	return gds__send(user_status, req_handle, (SSHORT) * msg_type,
+					 (SSHORT) * msg_length, msg, (SSHORT) * level);
+}
+
+
+STATUS GDS_SQLCODE(user_status)
+	 STATUS *user_status;
+{
+/**************************************
+ *
+ *	g d s _  s q l c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate the GDS error code to SQL error code.
+ *
+ **************************************/
+	return gds__sqlcode(user_status);
+}
+
+
+STATUS GDS_START(user_status, req_handle, tra_handle, level)
+	 STATUS *user_status;
+	 register REQ *req_handle;
+	 register TRA *tra_handle;
+	 SLONG GDS_VAL(level);
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+
+	return gds__start_request(user_status, req_handle, tra_handle,
+							  (SSHORT) * level);
+}
+
+
+STATUS GDS_START_AND_SEND(user_status, req_handle, tra_handle,
+						  msg_type, msg_length, msg, level)
+	 STATUS *user_status;
+	 REQ *req_handle;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(msg_type), GDS_VAL(msg_length);
+	 SCHAR *msg;
+	 SLONG GDS_VAL(level);
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t _ a n d _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+
+	return gds__start_and_send(user_status, req_handle, tra_handle,
+							   (SSHORT) * msg_type, (SSHORT) * msg_length,
+							   msg, (SSHORT) * level);
+}
+
+
+STATUS GDS_START_MULTIPLE(user_status, tra_handle, count, vector)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(count);
+	 TEB *vector;
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t _ m u l t i p l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+
+	return gds__start_multiple(user_status, tra_handle, (SSHORT) * count,
+							   vector);
+}
+
+
+STATUS GDS_START_TRANSACTION(STATUS * user_status,
+							 TRA * tra_handle, SLONG GDS_VAL(count), ...)
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+	TEB tebs[16], *teb, *end;
+	va_list ptr;
+
+	teb = tebs;
+	end = teb + *count;
+	VA_START(ptr, count);
+
+	for (; teb < end; teb++) {
+		teb->teb_database = va_arg(ptr, ATT *);
+		teb->teb_tpb_length = *(va_arg(ptr, int *));
+		teb->teb_tpb = va_arg(ptr, UCHAR *);
+	}
+
+	return gds__start_multiple(user_status, tra_handle,
+							   (SSHORT) * count, tebs);
+}
+
+
+STATUS GDS_TRANSACTION_INFO(user_status, tra_handle,
+							item_length, items, buffer_length, buffer)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(item_length), GDS_VAL(buffer_length);
+	 SCHAR *items, *buffer;
+{
+/**************************************
+ *
+ *	g d s _ $ t r a n s a c t i o n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+
+	return gds__transaction_info(user_status, tra_handle,
+								 (SSHORT) * item_length, items,
+								 (SSHORT) * buffer_length, buffer);
+}
+
+
+STATUS GDS_UNWIND_REQUEST(user_status, req_handle, level)
+	 STATUS *user_status;
+	 REQ *req_handle;
+	 SLONG GDS_VAL(level);
+{
+/**************************************
+ *
+ *	g d s _ $ u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a running request.  This is potentially nasty since it can be called
+ *	asynchronously.
+ *
+ **************************************/
+
+	gds__unwind_request(user_status, req_handle, (SSHORT) GDS_VAL(level));
+	return;
+}
+
+
+SLONG GDS_VAX_INTEGER(ptr, length)
+	 UCHAR *ptr;
+	 SLONG length;
+{
+/**************************************
+ *
+ *	g d s _ $ v a x _ i n t e g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up (and convert) a VAX style integer of length 1, 2, or 4
+ *	bytes.
+ *
+ **************************************/
+
+	return gds__vax_integer(ptr, (SSHORT) length);
+}
+
+
+GDS_VERSION(handle, routine, user_arg)
+	 int *handle;
+	 int (*routine) ();
+	 SCHAR *user_arg;
+{
+/**************************************
+ *
+ *	g d s _ $ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Obtain and print information about a database.
+ *
+ **************************************/
+
+	gds__version(handle, routine, user_arg);
+}
+
+
+SLONG ISC_BADDRESS(object)
+	 SCHAR *object;
+{
+/**************************************
+ *
+ *        i s c _ b a d d r e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Return the address of whatever is passed in
+ *
+ **************************************/
+
+	return (SLONG) object;
+}
+
+
+STATUS ISC_ARRAY_GEN_SDL(status, desc, sdl_buffer_length, sdl_buffer,
+						 sdl_length)
+	 STATUS *status;
+	 ARRAY_DESC *desc;
+	 SSHORT *sdl_buffer_length;
+	 SCHAR *sdl_buffer;
+	 SSHORT *sdl_length;
+{
+/**************************************
+ *
+ *	i s c _ a r r a y _ g e n _ s d l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return isc_array_gen_sdl(status, desc, sdl_buffer_length, sdl_buffer,
+							 sdl_length);
+}
+
+
+STATUS ISC_ARRAY_GET_SLICE(status, db_handle, trans_handle, array_id,
+						   desc, array, slice_length)
+	 STATUS *status;
+	 SLONG *db_handle;
+	 SLONG *trans_handle;
+	 GDS__QUAD *array_id;
+	 ARRAY_DESC *desc;
+	 void *array;
+	 SLONG *slice_length;
+{
+/**************************************
+ *
+ *	i s c _ a r r a y _ g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return isc_array_get_slice(status, db_handle, trans_handle, array_id,
+							   desc, array, slice_length);
+}
+
+
+STATUS ISC_ARRAY_LOOKUP_BOUNDS(status, db_handle, trans_handle,
+							   relation_name, field_name, desc)
+	 STATUS *status;
+	 SLONG *db_handle;
+	 SLONG *trans_handle;
+	 SCHAR *relation_name;
+	 SCHAR *field_name;
+	 ARRAY_DESC *desc;
+{
+/**************************************
+ *
+ *	i s c _ a r r a y _ l o o k u p _ b o u n d s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return isc_array_lookup_bounds(status, db_handle, trans_handle,
+								   relation_name, field_name, desc);
+}
+
+
+STATUS ISC_ARRAY_LOOKUP_DESC(status, db_handle, trans_handle,
+							 relation_name, field_name, desc)
+	 STATUS *status;
+	 SLONG *db_handle;
+	 SLONG *trans_handle;
+	 SCHAR *relation_name;
+	 SCHAR *field_name;
+	 ARRAY_DESC *desc;
+{
+/**************************************
+ *
+ *	i s c _ a r r a y _ l o o k u p _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return isc_array_lookup_desc(status, db_handle, trans_handle,
+								 relation_name, field_name, desc);
+}
+
+
+STATUS ISC_ARRAY_PUT_SLICE(status, db_handle, trans_handle, array_id,
+						   desc, array, slice_length)
+	 STATUS *status;
+	 SLONG *db_handle;
+	 SLONG *trans_handle;
+	 GDS__QUAD *array_id;
+	 ARRAY_DESC *desc;
+	 void *array;
+	 SLONG *slice_length;
+{
+/**************************************
+ *
+ *	i s c _ a r r a y _ p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return isc_array_put_slice(status, db_handle, trans_handle, array_id,
+							   desc, array, slice_length);
+}
+
+
+STATUS ISC_ARRAY_SET_DESC(status, relation_name, field_name, sql_dtype,
+						  sql_length, dimensions, desc)
+	 STATUS *status;
+	 SCHAR *relation_name;
+	 SCHAR *field_name;
+	 SSHORT *sql_dtype;
+	 SSHORT *sql_length;
+	 SSHORT *dimensions;
+	 ARRAY_DESC *desc;
+{
+/**************************************
+ *
+ *	i s c _ a r r a y _ s e t _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return isc_array_set_desc(status, relation_name, field_name, sql_dtype,
+							  sql_length, dimensions, desc);
+}
+
+
+STATUS ISC_ATTACH_DATABASE(user_status, file_length, file_name, handle,
+						   dpb_length, dpb)
+	 STATUS *user_status;
+	 SLONG GDS_VAL(file_length);
+	 SCHAR *file_name;
+	 ATT *handle;
+	 SSHORT GDS_VAL(dpb_length);
+	 SCHAR **dpb;
+{
+/**************************************
+ *
+ *	i s c _ a t t a c h _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attach a database through the first subsystem
+ *	that recognizes it.
+ *
+ **************************************/
+	return isc_attach_database(user_status,
+							   (SSHORT) * file_length, file_name, handle,
+							   *dpb_length, *dpb);
+}
+
+
+ISC_MODIFY_DPB(dpb, dpb_length, type, str, str_len)
+	 SCHAR **dpb;
+	 SSHORT GDS_VAL(dpb_length);
+	 SSHORT GDS_VAL(type);
+	 SCHAR *str;
+	 SLONG GDS_VAL(str_len);
+{
+/**************************************
+ *
+ *	i s c _ m o d i f y  _ d p b
+ *
+ **************************************
+ *
+ * Functional description
+ *	expand data base parameter block with 
+ *	user, password and character set info
+ *
+ **************************************/
+	return isc_modify_dpb(dpb, dpb_length, *type, str, (SSHORT) * str_len);
+}
+
+
+SLONG ISC_FREE(blk)
+	 SLONG **blk;
+{
+/**************************************
+ *
+ *	g d s _ $ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block allocated by gds__alloc.  Return number
+ *	of bytes released.
+ *
+ **************************************/
+
+	return gds__free(*blk);
+}
+
+
+STATUS ISC_BLOB_INFO(user_status, blob_handle, item_length, items,
+					 buffer_length, buffer)
+	 STATUS *user_status;
+	 BLB *blob_handle;
+	 SLONG GDS_VAL(item_length), GDS_VAL(buffer_length);
+	 SCHAR *items, *buffer;
+{
+/**************************************
+ *
+ *	i s c _ b l o b _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+
+	return isc_blob_info(user_status, blob_handle, (SSHORT) * item_length,
+						 items, (SSHORT) * buffer_length, buffer);
+}
+
+
+STATUS ISC_CANCEL_BLOB(user_status, blob_handle)
+	 STATUS *user_status;
+	 BLB *blob_handle;
+{
+/**************************************
+ *
+ *	i s c _ c a n c e l _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+
+	return isc_cancel_blob(user_status, blob_handle);
+}
+
+
+STATUS ISC_CANCEL_EVENTS(user_status, handle, id)
+	 STATUS *user_status;
+	 ATT *handle;
+	 SLONG *id;
+{
+/**************************************
+ *
+ *	i s c _ c a n c e l _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to cancel an event.
+ *
+ **************************************/
+
+	return isc_cancel_events(user_status, handle, id);
+}
+
+
+STATUS ISC_CLOSE(user_status, name)
+	 STATUS *user_status;
+	 TEXT *name;
+{
+/**************************************
+ *
+ *	i s c _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a dynamic SQL cursor.
+ *
+ **************************************/
+
+	return isc_close(user_status, name);
+}
+
+
+STATUS ISC_CLOSE_BLOB(user_status, blob_handle)
+	 STATUS *user_status;
+	 BLB *blob_handle;
+{
+/**************************************
+ *
+ *	i s c _ c l o s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+
+	return isc_close_blob(user_status, blob_handle);
+}
+
+
+STATUS ISC_COMMIT(user_status, tra_handle)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+{
+/**************************************
+ *
+ *	i s c _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit a transaction.
+ *
+ **************************************/
+
+	return isc_commit_transaction(user_status, tra_handle);
+}
+
+
+STATUS ISC_COMMIT_RETAINING(user_status, tra_handle)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+{
+/**************************************
+ *
+ *	i s c _ c o m m i t _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do a commit retaining.
+ *
+ **************************************/
+
+	return isc_commit_retaining(user_status, tra_handle);
+}
+
+
+STATUS ISC_COMPILE(user_status, db_handle, req_handle, blr_length, blr)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 REQ *req_handle;
+	 SLONG GDS_VAL(blr_length);
+	 SCHAR *blr;
+{
+/**************************************
+ *
+ *	i s c _ c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return isc_compile_request(user_status, db_handle, req_handle,
+							   (SSHORT) * blr_length, blr);
+}
+
+
+STATUS ISC_COMPILE2(user_status, db_handle, req_handle, blr_length, blr)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 REQ *req_handle;
+	 SLONG GDS_VAL(blr_length);
+	 SCHAR *blr;
+{
+/**************************************
+ *
+ *	i s c _ c o m p i l e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return isc_compile_request2(user_status, db_handle, req_handle,
+								(SSHORT) * blr_length, blr);
+}
+
+
+STATUS ISC_CREATE_BLOB(user_status, db_handle, tra_handle, blob_handle,
+					   blob_id)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 BLB *blob_handle;
+	 SLONG *blob_id;
+{
+/**************************************
+ *
+ *	i s c _ c r e a t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+
+	return isc_create_blob(user_status, db_handle, tra_handle, blob_handle,
+						   blob_id);
+}
+
+
+STATUS ISC_CREATE_BLOB2(user_status, db_handle, tra_handle, blob_handle,
+						blob_id, bpb_length, bpb)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 BLB *blob_handle;
+	 SLONG *blob_id;
+	 SLONG GDS_VAL(bpb_length);
+	 UCHAR *bpb;
+{
+/**************************************
+ *
+ *	i s c _ c r e a t e _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+
+	return isc_create_blob2(user_status, db_handle, tra_handle, blob_handle,
+							blob_id, (SSHORT) * bpb_length, bpb);
+}
+
+
+STATUS ISC_CREATE_DATABASE(user_status, file_length, file_name, handle,
+						   dpb_length, dpb, db_type)
+	 STATUS *user_status;
+	 SLONG GDS_VAL(file_length);
+	 UCHAR *file_name;
+	 ATT *handle;
+	 SSHORT GDS_VAL(dpb_length);
+	 UCHAR *dpb;
+	 SLONG GDS_VAL(db_type);
+{
+/**************************************
+ *
+ *	i s c _ c r e a t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeaky clean database, uncorrupted by user data.
+ *
+ **************************************/
+
+	return isc_create_database(user_status, (SSHORT) * file_length, file_name,
+							   handle, (SSHORT) * dpb_length, dpb,
+							   (SSHORT) * db_type);
+}
+
+
+STATUS ISC_DATABASE_INFO(user_status, handle, item_length, items,
+						 buffer_length, buffer)
+	 STATUS *user_status;
+	 ATT *handle;
+	 SLONG GDS_VAL(item_length), GDS_VAL(buffer_length);
+	 SCHAR *items, *buffer;
+{
+/**************************************
+ *
+ *	i s c _ d a t a b a s e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on database object.
+ *
+ **************************************/
+
+	return isc_database_info(user_status, handle, (SSHORT) * item_length,
+							 items, (SSHORT) * buffer_length, buffer);
+}
+
+
+STATUS ISC_DDL(user_status, db_handle, tra_handle, length, ddl)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(length);
+	 UCHAR *ddl;
+{
+/**************************************
+ *
+ *	i s c _ d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do meta-data update.
+ *
+ **************************************/
+
+	return isc_ddl(user_status, db_handle, tra_handle, (SSHORT) * length,
+				   ddl);
+}
+
+
+ISC_DECLARE(user_status, statement, cursor)
+	 STATUS *user_status;
+	 TEXT *statement, *cursor;
+{
+/**************************************
+ *
+ *	i s c _ d e c l a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Declare a cursor for a dynamic request.
+ *
+ **************************************/
+
+	return isc_declare(user_status, statement, cursor);
+}
+
+
+void ISC_DECODE_DATE(date, times)
+	 SLONG date[2];
+	 struct tm *times;
+{
+/**************************************
+ *
+ *	i s c _ d e c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from internal date format to UNIX time structure.
+ *
+ **************************************/
+
+	isc_decode_date(date, times);
+}
+
+
+ISC_DESCRIBE(user_status, name, sqlda)
+	 STATUS *user_status;
+	 TEXT *name;
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ d e s c r i b e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Describe output parameters for a prepared statement.
+ *
+ **************************************/
+
+	return isc_describe(user_status, name, sqlda);
+}
+
+
+ISC_DESCRIBE_BIND(user_status, name, sqlda)
+	 STATUS *user_status;
+	 TEXT *name;
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ d e s c r i b e _ b i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Describe input parameters for a prepared statement.
+ *
+ **************************************/
+
+	return isc_describe_bind(user_status, name, sqlda);
+}
+
+
+STATUS ISC_DETACH(user_status, handle)
+	 STATUS *user_status;
+	 ATT *handle;
+{
+/**************************************
+ *
+ *	i s c _ d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a database.
+ *
+ **************************************/
+
+	return isc_detach_database(user_status, handle);
+}
+
+
+STATUS ISC_DROP_DATABASE(user_status, handle)
+	 STATUS *user_status;
+	 ATT *handle;
+{
+/**************************************
+ *
+ *	i s c _ d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a database.
+ *
+ **************************************/
+
+	return isc_drop_database(user_status, handle);
+}
+
+
+ISC_DSQL_ALLOCATE(user_status, db_handle, stmt_handle)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 STMT *stmt_handle;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ a l l o c a t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a statement handle.
+ *
+ **************************************/
+
+	return isc_dsql_allocate_statement(user_status, db_handle, stmt_handle);
+}
+
+
+ISC_DSQL_ALLOCATE2(user_status, db_handle, stmt_handle)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 STMT *stmt_handle;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ a l l o c _ s t a t e m e n t 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a statement handle.
+ *
+ **************************************/
+
+	return isc_dsql_alloc_statement2(user_status, db_handle, stmt_handle);
+}
+
+
+ISC_DSQL_DESCRIBE(user_status, stmt_handle, dialect, sqlda)
+	 STATUS *user_status;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ d e s c r i b e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Describe output parameters for a prepared statement.
+ *
+ **************************************/
+
+	return isc_dsql_describe(user_status, stmt_handle, (USHORT) * dialect,
+							 sqlda);
+}
+
+
+ISC_DSQL_DESCRIBE_BIND(user_status, stmt_handle, dialect, sqlda)
+	 STATUS *user_status;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ d e s c r i b e _ b i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Describe input parameters for a prepared statement.
+ *
+ **************************************/
+
+	return isc_dsql_describe_bind(user_status, stmt_handle,
+								  (USHORT) * dialect, sqlda);
+}
+
+
+ISC_DSQL_EXECUTE(user_status, tra_handle, stmt_handle, dialect, sqlda)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+
+	return isc_dsql_execute(user_status, tra_handle, stmt_handle,
+							(USHORT) * dialect, sqlda);
+}
+
+
+ISC_DSQL_EXECUTE2(user_status, tra_handle, stmt_handle, dialect,
+				  in_sqlda, out_sqlda, sqlda)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *in_sqlda, *out_sqlda;
+{
+/**************************************
+ *
+ *      i s c _ d s q l _ e x e c u t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+
+	return isc_dsql_execute2(user_status, tra_handle, stmt_handle,
+							 (USHORT) * dialect, in_sqlda, out_sqlda);
+}
+
+
+ISC_DSQL_EXECUTE_M(user_status,
+				   tra_handle, stmt_handle, blr_length, blr, msg_type,
+				   msg_length, msg)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(blr_length), GDS_VAL(msg_type), GDS_VAL(msg_length);
+	 SCHAR *blr, *msg;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c u t e _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+
+	return isc_dsql_execute_m(user_status, tra_handle, stmt_handle,
+							  (USHORT) * blr_length, blr, (USHORT) * msg_type,
+							  (USHORT) * msg_length, msg);
+}
+
+
+ISC_DSQL_EXECUTE2_M(user_status, tra_handle, stmt_handle,
+					in_blr_length, in_blr, in_msg_type, in_msg_length, in_msg,
+					out_blr_length, out_blr, out_msg_type, out_msg_length,
+					out_msg)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(in_blr_length), GDS_VAL(in_msg_type);
+	 SLONG GDS_VAL(in_msg_length), GDS_VAL(out_blr_length);
+	 SLONG GDS_VAL(out_msg_type), GDS_VAL(out_msg_length);
+	 SCHAR *in_blr, *in_msg, *out_blr, *out_msg;
+{
+/**************************************
+ *
+ *      i s c _ d s q l _ e x e c u t e 2 _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *      Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+
+	return isc_dsql_execute2_m(user_status, tra_handle, stmt_handle,
+							   (USHORT) * in_blr_length, in_blr,
+							   (USHORT) * in_msg_type,
+							   (USHORT) * in_msg_length, in_msg,
+							   (USHORT) * out_blr_length, out_blr,
+							   (USHORT) * out_msg_type,
+							   (USHORT) * out_msg_length, out_msg);
+}
+
+
+ISC_DSQL_EXECUTE_IMMED(user_status,
+					   db_handle, tra_handle, length, string, dialect, sqlda)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(length);
+	 SCHAR *string;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c u t e _ i m m e d i a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+
+	return isc_dsql_execute_immediate(user_status, db_handle, tra_handle,
+									  (USHORT) * length, string,
+									  (USHORT) * dialect, sqlda);
+}
+
+
+ISC_DSQL_EXEC_IMMED2(user_status,
+					 db_handle, tra_handle, length, string, dialect, in_sqlda,
+					 out_sqlda)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(length);
+	 SCHAR *string;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *in_sqlda, *out_sqlda;
+{
+/**************************************
+ *
+ *      i s c _ d s q l _ e x e c _ i m m e d 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Prepare a statement for execution.
+ *
+ **************************************/
+
+	return isc_dsql_exec_immed2(user_status, db_handle, tra_handle,
+								(USHORT) * length, string, (USHORT) * dialect,
+								in_sqlda, out_sqlda);
+}
+
+
+ISC_DSQL_EXECUTE_IMM_M(user_status, db_handle, tra_handle,
+					   length, string, dialect, blr_length, blr, msg_type,
+					   msg_length, msg)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(length);
+	 SCHAR *string;
+	 SLONG GDS_VAL(dialect);
+	 SLONG GDS_VAL(blr_length), GDS_VAL(msg_type), GDS_VAL(msg_length);
+	 SCHAR *blr, *msg;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c u t e _ i m m e d i a t e _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+
+	return isc_dsql_execute_immediate_m(user_status, db_handle, tra_handle,
+										(USHORT) * length, string,
+										(USHORT) * dialect,
+										(USHORT) * blr_length, blr,
+										(USHORT) * msg_type,
+										(USHORT) * msg_length, msg);
+}
+
+
+ISC_DSQL_EXEC_IMMED2_M(user_status, db_handle, tra_handle,
+					   length, string, dialect,
+					   in_blr_length, in_blr, in_msg_type, in_msg_length,
+					   in_msg, out_blr_length, out_blr, out_msg_type,
+					   out_msg_length, out_msg)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(length);
+	 SCHAR *string;
+	 SLONG GDS_VAL(dialect);
+	 SLONG GDS_VAL(in_blr_length), GDS_VAL(in_msg_type);
+	 SLONG GDS_VAL(in_msg_length), GDS_VAL(out_blr_length);
+	 SLONG GDS_VAL(out_msg_type), GDS_VAL(out_msg_length);
+	 SCHAR *in_blr, *in_msg, *out_blr, *out_msg;
+{
+/**************************************
+ *
+ *      i s c _ d s q l _ e x e c _ i m m e d 2 _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *      Prepare a statement for execution.
+ *
+ **************************************/
+
+	return isc_dsql_exec_immed2_m(user_status, db_handle, tra_handle,
+								  (USHORT) * length, string,
+								  (USHORT) * dialect,
+								  (USHORT) * in_blr_length, in_blr,
+								  (USHORT) * in_msg_type,
+								  (USHORT) * in_msg_length, in_msg,
+								  (USHORT) * out_blr_length, out_blr,
+								  (USHORT) * out_msg_type,
+								  (USHORT) * out_msg_length, out_msg);
+}
+
+
+ISC_DSQL_FETCH(user_status, stmt_handle, dialect, sqlda)
+	 STATUS *user_status;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+
+	return isc_dsql_fetch(user_status, stmt_handle, (USHORT) * dialect,
+						  sqlda);
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+ISC_DSQL_FETCH2(user_status, stmt_handle, dialect, sqlda, direction, offset)
+	 STATUS *user_status;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+	 USHORT direction;
+	 SLONG offset;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ f e t c h 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+
+	return isc_dsql_fetch2(user_status, stmt_handle, (USHORT) * dialect,
+						   sqlda, direction, offset);
+}
+#endif
+
+
+ISC_DSQL_FETCH_M(user_status,
+				 stmt_handle, blr_length, blr, msg_type, msg_length, msg)
+	 STATUS *user_status;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(blr_length), GDS_VAL(msg_type), GDS_VAL(msg_length);
+	 SCHAR *blr, *msg;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ f e t c h _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+
+	return isc_dsql_fetch_m(user_status, stmt_handle, (USHORT) * blr_length,
+							blr, (USHORT) * msg_type, (USHORT) * msg_length,
+							msg);
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+ISC_DSQL_FETCH2_M(user_status,
+				  stmt_handle, blr_length, blr, msg_type, msg_length, msg,
+				  direction, offset)
+	 STATUS *user_status;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(blr_length), GDS_VAL(msg_type), GDS_VAL(msg_length);
+	 SCHAR *blr, *msg;
+	 USHORT direction;
+	 SLONG offset;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ f e t c h 2 _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+
+	return isc_dsql_fetch2_m(user_status, stmt_handle, (USHORT) * blr_length,
+							 blr, (USHORT) * msg_type, (USHORT) * msg_length,
+							 msg, direction, offset);
+}
+#endif
+
+
+ISC_DSQL_FINISH(db_handle)
+	 SLONG **db_handle;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ f i n i s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clean up DSQL globals
+ *
+ **************************************/
+
+	return isc_dsql_finish(db_handle);
+}
+
+
+ISC_DSQL_FREE(user_status, stmt_handle, option)
+	 STATUS *user_status;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(option);
+{
+/*****************************************
+ *
+ *	i s c _ d s q l _ f r e e _ s t a t e m e n t
+ *
+ *****************************************
+ *
+ * Functional Description
+ *	release request for an sql statement
+ *
+ *****************************************/
+
+	return isc_dsql_free_statement(user_status, stmt_handle,
+								   (USHORT) * option);
+}
+
+
+ISC_DSQL_INSERT(user_status, stmt_handle, dialect, sqlda)
+	 STATUS *user_status;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *      i s c _ d s q l _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Insert next record into a dynamic SQL cursor
+ *
+ **************************************/
+
+	return isc_dsql_insert(user_status, stmt_handle, (USHORT) * dialect,
+						   sqlda);
+}
+
+
+ISC_DSQL_INSERT_M(user_status,
+				  stmt_handle, blr_length, blr, msg_type, msg_length, msg)
+	 STATUS *user_status;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(blr_length), GDS_VAL(msg_type), GDS_VAL(msg_length);
+	 SCHAR *blr, *msg;
+{
+/**************************************
+ *
+ *      i s c _ d s q l _ i n s e r t _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *      Insert next record into a dynamic SQL cursor
+ *
+ **************************************/
+
+	return isc_dsql_insert_m(user_status, stmt_handle, (USHORT) * blr_length,
+							 (USHORT) * msg_type, (USHORT) * msg_length, blr,
+							 msg);
+}
+
+
+ISC_DSQL_PREPARE(user_status,
+				 tra_handle, stmt_handle, length, string, dialect, sqlda)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(length);
+	 SCHAR *string;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+
+	return isc_dsql_prepare(user_status, tra_handle, stmt_handle,
+							(USHORT) * length, string, (USHORT) * dialect,
+							sqlda);
+}
+
+
+ISC_DSQL_PREPARE_M(user_status, tra_handle, stmt_handle,
+				   length, string, dialect, item_length, items, buffer_length,
+				   buffer)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(length);
+	 SCHAR *string;
+	 SLONG GDS_VAL(dialect);
+	 SLONG GDS_VAL(item_length), GDS_VAL(buffer_length);
+	 SCHAR *items, *buffer;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ p r e p a r e _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+
+	return isc_dsql_prepare_m(user_status, tra_handle, stmt_handle,
+							  (USHORT) * length, string, (USHORT) * dialect,
+							  (USHORT) * item_length, items,
+							  (USHORT) * buffer_length, buffer);
+}
+
+
+ISC_DSQL_RELEASE(user_status, name)
+	 STATUS *user_status;
+	 TEXT *name;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release request for a dsql statement
+ *
+ **************************************/
+
+	return isc_dsql_release(user_status, name);
+}
+
+
+ISC_DSQL_SET_CURSOR(user_status, stmt_handle, cursor, type)
+	 STATUS *user_status;
+	 STMT *stmt_handle;
+	 SCHAR *cursor;
+	 SLONG GDS_VAL(type);
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ s e t _ c u r s o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set a cursor name for a dynamic request.
+ *
+ **************************************/
+
+	return isc_dsql_set_cursor_name(user_status, stmt_handle, cursor,
+									(USHORT) * type);
+}
+
+
+ISC_DSQL_SQL_INFO(user_status, stmt_handle, item_length, items,
+				  buffer_length, buffer)
+	 STATUS *user_status;
+	 STMT *stmt_handle;
+	 SLONG GDS_VAL(item_length), GDS_VAL(buffer_length);
+	 SCHAR *items, *buffer;
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ s q l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on sql statement.
+ *
+ **************************************/
+
+	return isc_dsql_sql_info(user_status, stmt_handle, (USHORT) * item_length,
+							 items, (USHORT) * buffer_length, buffer);
+}
+
+
+ISC_EMBED_DSQL_CLOSE(user_status, name)
+	 STATUS *user_status;
+	 SCHAR *name;
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a dynamic SQL cursor.
+ *
+ **************************************/
+
+	return isc_embed_dsql_close(user_status, name);
+}
+
+
+ISC_EMBED_DSQL_DECLARE(user_status, stmt_name, cursor)
+	 STATUS *user_status;
+	 SCHAR *stmt_name;
+	 SCHAR *cursor;
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ d e c l a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Declare a cursor for a dynamic request.
+ *
+ **************************************/
+
+	return isc_embed_dsql_declare(user_status, stmt_name, cursor);
+}
+
+
+ISC_EMBED_DSQL_DESCR(user_status, stmt_name, dialect, sqlda)
+	 STATUS *user_status;
+	 SCHAR *stmt_name;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ d e s c r i b e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Describe output parameters for a prepared statement.
+ *
+ **************************************/
+
+	return isc_embed_dsql_describe(user_status, stmt_name, (USHORT) * dialect,
+								   sqlda);
+}
+
+
+ISC_EMBED_DSQL_DESCR_B(user_status, stmt_name, dialect, sqlda)
+	 STATUS *user_status;
+	 SCHAR *stmt_name;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ d e s c r i b e _ b i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Describe input parameters for a prepared statement.
+ *
+ **************************************/
+
+	return isc_embed_dsql_describe_bind(user_status, stmt_name,
+										(USHORT) * dialect, sqlda);
+}
+
+
+ISC_EMBED_DSQL_EXECUTE(user_status, trans_handle, stmt_name, dialect,
+					   SQLDA_PROTOTYPE)
+	 STATUS *user_status;
+	 SLONG **trans_handle;
+	 SCHAR *stmt_name;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+
+	return isc_embed_dsql_execute(user_status, trans_handle, stmt_name,
+								  (USHORT) * dialect, SQLDA_ARG);
+}
+
+
+ISC_EMBED_DSQL_EXECUTE2(user_status, trans_handle, stmt_name, dialect,
+						in_sqlda, out_sqlda)
+	 STATUS *user_status;
+	 SLONG **trans_handle;
+	 SCHAR *stmt_name;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *in_sqlda, *out_sqlda;
+{
+/**************************************
+ *
+ *      i s c _ e m b e d _ d s q l _ e x e c u t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+
+	return isc_embed_dsql_execute2(user_status, trans_handle, stmt_name,
+								   (USHORT) * dialect, in_sqlda, out_sqlda);
+}
+
+
+ISC_EMBED_DSQL_EXEC_IMM(user_status, db_handle, trans_handle, length, string,
+						dialect, SQLDA_PROTOTYPE)
+	 STATUS *user_status;
+	 SLONG **db_handle;
+	 SLONG **trans_handle;
+	 SLONG GDS_VAL(length);
+	 SCHAR *string;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ e x e c u t e _ i m m e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+
+	return isc_embed_dsql_execute_immed(user_status, db_handle, trans_handle,
+										(USHORT) * length, string,
+										(USHORT) * dialect, SQLDA_ARG);
+}
+
+
+ISC_EMBED_DSQL_EXEC_IM2(user_status, db_handle, trans_handle, length,
+						string, dialect, in_sqlda, out_sqlda)
+	 STATUS *user_status;
+	 SLONG **db_handle;
+	 SLONG **trans_handle;
+	 SLONG GDS_VAL(length);
+	 SCHAR *string;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *in_sqlda, *out_sqlda;
+{
+/**************************************
+ *
+ *      i s c _ e m b e d _ d s q l _ e x e c _ i m m e d 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Prepare a statement for execution.
+ *
+ **************************************/
+
+	return isc_embed_dsql_exec_immed2(user_status, db_handle, trans_handle,
+									  (USHORT) * length, string,
+									  (USHORT) * dialect, in_sqlda,
+									  out_sqlda);
+}
+
+
+ISC_EMBED_DSQL_FETCH(user_status, cursor_name, dialect, SQLDA_PROTOTYPE)
+	 STATUS *user_status;
+	 SCHAR *cursor_name;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+
+	return isc_embed_dsql_fetch(user_status, cursor_name, (USHORT) * dialect,
+								SQLDA_ARG);
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+ISC_EMBED_DSQL_FETCH2(user_status, cursor_name, dialect, SQLDA_PROTOTYPE,
+					  direction, offset)
+	 STATUS *user_status;
+	 SCHAR *cursor_name;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+	 USHORT direction;
+	 SLONG offset;
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ f e t c h 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+
+	return isc_embed_dsql_fetch2(user_status, cursor_name, (USHORT) * dialect,
+								 SQLDA_ARG, direction, offset);
+}
+#endif
+
+
+ISC_EMBED_DSQL_INSERT(user_status, cursor_name, dialect, sqlda)
+	 STATUS *user_status;
+	 SCHAR *cursor_name;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *      i s c _ e m b e d _ d s q l _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Insert next record into a dynamic SQL cursor
+ *
+ **************************************/
+
+	return isc_embed_dsql_insert(user_status, cursor_name, (USHORT) * dialect,
+								 sqlda);
+}
+
+
+ISC_EMBED_DSQL_LENGTH(string, length)
+	 SCHAR *string;
+	 USHORT *length;
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine length of a ';' or null terminated string
+ *
+ **************************************/
+
+	return isc_embed_dsql_length(string, length);
+}
+
+
+ISC_EMBED_DSQL_OPEN(user_status, trans_handle, cursor_name, dialect,
+					SQLDA_PROTOTYPE)
+	 STATUS *user_status;
+	 SLONG **trans_handle;
+	 SCHAR *cursor_name;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a dynamic SQL cursor.
+ *
+ **************************************/
+
+	return isc_embed_dsql_open(user_status, trans_handle, cursor_name,
+							   (USHORT) * dialect, SQLDA_ARG);
+}
+
+
+ISC_EMBED_DSQL_OPEN2(user_status, trans_handle, cursor_name, dialect,
+					 in_sqlda, out_sqlda)
+	 STATUS *user_status;
+	 SLONG **trans_handle;
+	 SCHAR *cursor_name;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *in_sqlda, *out_sqlda;
+{
+/**************************************
+ *
+ *      i s c _ e m b e d _ d s q l _ o p e n 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Open a dynamic SQL cursor.
+ *
+ **************************************/
+
+	return isc_embed_dsql_open2(user_status, trans_handle, cursor_name,
+								(USHORT) * dialect, in_sqlda, out_sqlda);
+}
+
+
+ISC_EMBED_DSQL_PREPARE(user_status, db_handle, trans_handle, stmt_name,
+					   length, string, dialect, SQLDA_PROTOTYPE)
+	 STATUS *user_status;
+	 SLONG **db_handle;
+	 SLONG **trans_handle;
+	 SCHAR *stmt_name;
+	 SLONG GDS_VAL(length);
+	 SCHAR *string;
+	 SLONG GDS_VAL(dialect);
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+
+	return isc_embed_dsql_prepare(user_status, db_handle, trans_handle,
+								  stmt_name, (USHORT) * length, string,
+								  (USHORT) * dialect, SQLDA_ARG);
+}
+
+
+ISC_EMBED_DSQL_RELEASE(user_status, stmt_name)
+	 STATUS *user_status;
+	 SCHAR *stmt_name;
+{
+/**************************************
+ *
+ *	i s c _ e m b e d _ d s q l _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release request for a dsql statement
+ *
+ **************************************/
+
+	return isc_embed_dsql_release(user_status, stmt_name);
+}
+
+
+void ISC_ENCODE_DATE(times, date)
+	 struct tm *times;
+	 SLONG date[2];
+{
+/**************************************
+ *
+ *	i s c _ e n c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert from UNIX time structure to internal date format.
+ *
+ **************************************/
+
+	isc_encode_date(times, date);
+}
+
+
+USHORT ISC_EVENT_BLOCK_A(event_buffer, result_buffer, count, name_buffer)
+	 UCHAR **event_buffer, **result_buffer;
+	 SLONG GDS_VAL(count);
+	 UCHAR **name_buffer;
+{
+/**************************************
+ *
+ *	i s c _ e v e n t _ b l o c k _ a 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an initialized event parameter block from a
+ *	vector of input arguments. (Ada needs this)
+ *	Assume all strings are 31 characters long.
+ *	Return the size of the block.
+ *
+ **************************************/
+
+	return isc_event_block_a(event_buffer, result_buffer, (USHORT) * count,
+							 name_buffer);
+}
+
+
+void ISC_EVENT_COUNTS(result_vector, buffer_length, event_buffer,
+					  result_buffer)
+	 ULONG *result_vector;
+	 SLONG GDS_VAL(buffer_length);
+	 UCHAR **event_buffer, **result_buffer;
+{
+/**************************************
+ *
+ *	i s c _ e v e n t _ c o u n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the delta between two events in an event
+ *	parameter block.  Used to update isc_events
+ *	for GPRE support of events.
+ *
+ **************************************/
+
+	isc_event_counts(result_vector, (SSHORT) * buffer_length, *event_buffer,
+					 *result_buffer);
+}
+
+
+ISC_EXECUTE(user_status, trans_handle, name, sqlda)
+	 STATUS *user_status;
+	 TEXT *name;
+	 TRA *trans_handle;
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+
+	return isc_execute(user_status, trans_handle, name, sqlda);
+}
+
+
+ISC_EXECUTE_IMMEDIATE(user_status, db_handle, trans_handle, length, string)
+	 STATUS *user_status;
+	 int **db_handle, **trans_handle;
+	 SLONG *length;
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	i s c _ e x e c u t e _ i m m e d i a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+	USHORT len;
+
+	len = *length;
+	return isc_execute_immediate(user_status, db_handle,
+								 trans_handle, &len, string);
+}
+
+
+ISC_FETCH(user_status, name, sqlda)
+	 STATUS *user_status;
+	 TEXT *name;
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+	return isc_fetch(user_status, name, sqlda);
+}
+
+
+ISC_FTOF(string, length1, field, length2)
+	 SCHAR *string, *field;
+	 SLONG GDS_VAL(length1), GDS_VAL(length2);
+{
+/**************************************
+ *
+ *	G D S _ f t o f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a fixed length string to a fixed length string.
+ *	This is typically generated by the preprocessor to
+ *	move strings around.
+ *
+ **************************************/
+
+	isc_ftof(string, (SSHORT) * length1, field, (SSHORT) * length2);
+}
+
+
+STATUS ISC_GET_SEGMENT(user_status, blob_handle, length, buffer_length,
+					   buffer)
+	 STATUS *user_status;
+	 BLB *blob_handle;
+	 SSHORT *length;
+	 SLONG GDS_VAL(buffer_length);
+	 SCHAR *buffer;
+{
+/**************************************
+ *
+ *	i s c _ g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	STATUS status;
+	SSHORT return_length;
+
+	status = isc_get_segment(user_status, blob_handle,
+							 &return_length, (SSHORT) * buffer_length,
+							 buffer);
+	*length = return_length;
+
+	return status;
+}
+
+
+STATUS ISC_GET_SLICE(user_status, db_handle, tra_handle, array_id,
+					 sdl_length, sdl, param_length, param, slice_length,
+					 slice, return_length)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SLONG *array_id;
+	 SLONG GDS_VAL(sdl_length);
+	 UCHAR *sdl;
+	 SLONG GDS_VAL(param_length);
+	 UCHAR *param;
+	 SLONG GDS_VAL(slice_length);
+	 UCHAR *slice;
+	 SLONG *return_length;
+{
+/**************************************
+ *
+ *	i s c _ g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+
+	return isc_get_slice(user_status, db_handle, tra_handle, array_id,
+						 (SSHORT) * sdl_length, sdl,
+						 (SSHORT) * param_length, param,
+						 *slice_length, slice, return_length);
+}
+
+
+ISC_OPEN(user_status, trans_handle, name, sqlda)
+	 STATUS *user_status;
+	 TEXT *name;
+	 TRA *trans_handle;
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a dynamic SQL cursor.
+ *
+ **************************************/
+
+	return isc_open(user_status, trans_handle, name, sqlda);
+}
+
+
+STATUS ISC_OPEN_BLOB(user_status, db_handle, tra_handle, blob_handle, blob_id)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 BLB *blob_handle;
+	 SLONG *blob_id;
+{
+/**************************************
+ *
+ *	i s c _ o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+
+	return isc_open_blob(user_status, db_handle, tra_handle, blob_handle,
+						 blob_id);
+}
+
+
+STATUS ISC_OPEN_BLOB2(user_status, db_handle, tra_handle, blob_handle,
+					  blob_id, bpb_length, bpb)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 BLB *blob_handle;
+	 SLONG *blob_id;
+	 SLONG GDS_VAL(bpb_length);
+	 UCHAR *bpb;
+{
+/**************************************
+ *
+ *	i s c _ o p e n _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob (extended edition).
+ *
+ **************************************/
+
+	return isc_open_blob2(user_status, db_handle, tra_handle, blob_handle,
+						  blob_id, (SSHORT) * bpb_length, bpb);
+}
+
+
+ISC_PREPARE(user_status, db_handle, trans_handle, name, length, string, sqlda)
+	 STATUS *user_status;
+	 int **db_handle, **trans_handle;
+	 TEXT *name;
+	 SLONG *length;
+	 TEXT *string;
+	 XSQLDA *sqlda;
+{
+/**************************************
+ *
+ *	i s c _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a dsql statement for execution.
+ *
+ **************************************/
+	USHORT len;
+
+	len = *length;
+
+	return isc_prepare(user_status, db_handle, trans_handle, name,
+					   &len, string, sqlda);
+}
+
+
+STATUS ISC_PREPARE_TRANS(user_status, tra_handle)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+{
+/**************************************
+ *
+ *	i s c _ p r e p a r e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First 
+ *	phase of a two phase commit.
+ *
+ **************************************/
+
+	return isc_prepare_transaction(user_status, tra_handle);
+}
+
+
+STATUS ISC_PREPARE2(user_status, tra_handle, msg_length, msg)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(msg_length);
+	 UCHAR *msg;
+{
+/**************************************
+ *
+ *	i s c _ p r e p a r e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First phase of a two
+ *	phase commit.
+ *
+ **************************************/
+
+	return isc_prepare_transaction2(user_status, tra_handle,
+									(SSHORT) * msg_length, msg);
+}
+
+
+void ISC_PRINT_SQLERROR(sqlcode, status_vector)
+	 SLONG GDS_VAL(sqlcode);
+	 STATUS *status_vector;
+{
+/**************************************
+ *
+ *	i s c _ p r i n t _ s q l _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given an sqlcode, give as much info as possible.
+ *      Decide whether status is worth mentioning.
+ *
+ **************************************/
+
+	isc_print_sqlerror((SSHORT) * sqlcode, status_vector);
+}
+
+
+ISC_PRINT_STATUS(status_vector)
+	 STATUS *status_vector;
+{
+/**************************************
+ *
+ *	i s c _ p r i n t _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print status vector.
+ *
+ **************************************/
+
+	return isc_print_status(status_vector);
+}
+
+
+STATUS ISC_PUT_SEGMENT(user_status, blob_handle, buffer_length, buffer)
+	 STATUS *user_status;
+	 BLB *blob_handle;
+	 SSHORT GDS_VAL(buffer_length);
+	 SCHAR *buffer;
+{
+/**************************************
+ *
+ *	i s c _ p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store one piece of a blob
+ *
+ **************************************/
+
+	return isc_put_segment(user_status, blob_handle, *buffer_length, buffer);
+}
+
+
+STATUS ISC_PUT_SLICE(user_status, db_handle, tra_handle, array_id,
+					 sdl_length, sdl, param_length, param, slice_length,
+					 slice)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SLONG *array_id;
+	 SLONG GDS_VAL(sdl_length);
+	 UCHAR *sdl;
+	 SLONG GDS_VAL(param_length);
+	 UCHAR *param;
+	 SLONG GDS_VAL(slice_length);
+	 UCHAR *slice;
+{
+/**************************************
+ *
+ *	i s c _ p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+
+	return isc_put_slice(user_status, db_handle, tra_handle, array_id,
+						 (SSHORT) * sdl_length, sdl,
+						 (SSHORT) * param_length, param,
+						 *slice_length, slice);
+}
+
+
+void ISC_QTOQ(quad_in, quad_out)
+	 GDS__QUAD *quad_in, *quad_out;
+{
+/**************************************
+ *
+ *	i s c _ q t o q
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a quad value to another quad value.  This
+ *      call is generated by the preprocessor when assigning
+ *      quad values in FORTRAN.
+ *
+ **************************************/
+
+	isc_qtoq(quad_in, quad_out);
+}
+
+
+STATUS ISC_QUE_EVENTS(user_status, handle, id, length, events, ast, arg)
+	 STATUS *user_status;
+	 ATT *handle;
+	 SLONG *id;
+	 USHORT GDS_VAL(length);
+	 UCHAR *events;
+	 int (*ast) ();
+	 SLONG arg;
+{
+/**************************************
+ *
+ *	i s c _ q u e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que request for event notification.
+ *
+ **************************************/
+
+	return isc_que_events(user_status, handle, id,
+						  (USHORT) * length, events, ast, arg);
+}
+
+
+STATUS ISC_RECEIVE(user_status, req_handle, msg_type, msg_length, msg, level)
+	 STATUS *user_status;
+	 REQ *req_handle;
+	 SLONG *msg_type, *msg_length;
+	 SCHAR *msg;
+	 SLONG *level;
+{
+/**************************************
+ *
+ *	i s c _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+
+	return isc_receive(user_status, req_handle,
+					   (SSHORT) * msg_type, (SSHORT) * msg_length, msg,
+					   (SSHORT) * level);
+}
+
+
+STATUS ISC_RECONNECT(user_status, db_handle, tra_handle, length, id)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SLONG *length;
+	 UCHAR *id;
+{
+/**************************************
+ *
+ *	i s c _ r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to a transaction in limbo.
+ *
+ **************************************/
+
+	return isc_reconnect_transaction(user_status, db_handle,
+									 tra_handle, (SSHORT) * length, id);
+}
+
+
+STATUS ISC_RELEASE_REQUEST(user_status, req_handle)
+	 STATUS *user_status;
+	 REQ *req_handle;
+{
+/**************************************
+ *
+ *	i s c _ r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request.
+ *
+ **************************************/
+
+	return isc_release_request(user_status, req_handle);
+}
+
+
+STATUS ISC_REQUEST_INFO(user_status, req_handle, level, item_length, items,
+						buffer_length, buffer)
+	 STATUS *user_status;
+	 REQ *req_handle;
+	 SLONG *item_length, *buffer_length;
+	 SCHAR *items, *buffer;
+	 SLONG *level;
+{
+/**************************************
+ *
+ *	i s c _ r e q u e s t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+
+	return isc_request_info(user_status, req_handle,
+							(SSHORT) * level, (SSHORT) * item_length, items,
+							(SSHORT) * buffer_length, buffer);
+}
+
+
+STATUS ISC_ROLLBACK(user_status, tra_handle)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+{
+/**************************************
+ *
+ *	i s c _ r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction.
+ *
+ **************************************/
+
+	return isc_rollback_transaction(user_status, tra_handle);
+}
+
+
+STATUS ISC_SEEK_BLOB(user_status, blob_handle, mode, offset, result)
+	 STATUS *user_status;
+	 BLB *blob_handle;
+	 SLONG *mode;
+	 SLONG *offset;
+	 SLONG *result;
+{
+/**************************************
+ *
+ *	i s c _ s e e k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Seek a blob.
+ *
+ **************************************/
+
+	return isc_seek_blob(user_status, blob_handle, (SSHORT) * mode, *offset,
+						 result);
+}
+
+
+STATUS ISC_SEND(user_status, req_handle, msg_type, msg_length, msg, level)
+	 STATUS *user_status;
+	 REQ *req_handle;
+	 SLONG *msg_type, *msg_length;
+	 SCHAR *msg;
+	 SLONG *level;
+{
+/**************************************
+ *
+ *	i s c _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+
+	return isc_send(user_status, req_handle, (SSHORT) * msg_type,
+					(SSHORT) * msg_length, msg, (SSHORT) * level);
+}
+
+
+STATUS ISC_SQLCODE(user_status)
+	 STATUS *user_status;
+{
+/**************************************
+ *
+ *	g d s _  s q l c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate the GDS error code to SQL error code.
+ *
+ **************************************/
+	return isc_sqlcode(user_status);
+}
+
+
+STATUS ISC_START_AND_SEND(user_status, req_handle, tra_handle,
+						  msg_type, msg_length, msg, level)
+	 STATUS *user_status;
+	 REQ *req_handle;
+	 TRA *tra_handle;
+	 SLONG *msg_type, *msg_length;
+	 SCHAR *msg;
+	 SLONG *level;
+{
+/**************************************
+ *
+ *	i s c _ s t a r t _ a n d _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+
+	return isc_start_and_send(user_status, req_handle, tra_handle,
+							  (SSHORT) * msg_type, (SSHORT) * msg_length, msg,
+							  (SSHORT) * level);
+}
+
+
+STATUS ISC_START(user_status, req_handle, tra_handle, level)
+	 STATUS *user_status;
+	 register REQ *req_handle;
+	 register TRA *tra_handle;
+	 SLONG *level;
+{
+/**************************************
+ *
+ *	i s c _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+
+	return isc_start_request(user_status, req_handle, tra_handle,
+							 (SSHORT) * level);
+}
+
+
+STATUS ISC_START_MULTIPLE(user_status, tra_handle, count, vector)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+	 SLONG GDS_VAL(count);
+	 TEB *vector;
+{
+/**************************************
+ *
+ *	i s c _ s t a r t _ m u l t i p l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+
+	return isc_start_multiple(user_status, tra_handle, (SSHORT) * count,
+							  vector);
+}
+
+
+STATUS ISC_START_TRANSACTION(STATUS * user_status,
+							 TRA * tra_handle, SLONG GDS_VAL(count), ...)
+{
+/**************************************
+ *
+ *	i s c _ s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+	TEB tebs[16], *teb, *end;
+	va_list ptr;
+
+	teb = tebs;
+	end = teb + *count;
+	VA_START(ptr, count);
+
+	for (; teb < end; teb++) {
+		teb->teb_database = va_arg(ptr, ATT *);
+		teb->teb_tpb_length = *(va_arg(ptr, int *));
+		teb->teb_tpb = va_arg(ptr, UCHAR *);
+	}
+
+	return isc_start_multiple(user_status, tra_handle,
+							  (SSHORT) * count, tebs);
+}
+
+
+STATUS ISC_TRANSACT_REQUEST(user_status, db_handle, tra_handle,
+							blr_length, blr, in_msg_length, in_msg,
+							out_msg_length, out_msg)
+	 STATUS *user_status;
+	 ATT *db_handle;
+	 TRA *tra_handle;
+	 SCHAR *blr;
+	 SLONG GDS_VAL(blr_length);
+	 SLONG GDS_VAL(in_msg_length), GDS_VAL(out_msg_length);
+	 SCHAR *in_msg, *out_msg;
+{
+/**************************************
+ *
+ *	i s c _ t r a n s a c t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a procedure.
+ *
+ **************************************/
+
+	return isc_transact_request(user_status, db_handle, tra_handle,
+								(USHORT) * blr_length, blr,
+								(USHORT) * in_msg_length, in_msg,
+								(USHORT) * out_msg_length, out_msg);
+}
+
+
+STATUS ISC_TRANSACTION_INFO(user_status, tra_handle,
+							item_length, items, buffer_length, buffer)
+	 STATUS *user_status;
+	 TRA *tra_handle;
+	 SLONG *item_length, *buffer_length;
+	 SCHAR *items, *buffer;
+{
+/**************************************
+ *
+ *	i s c _ t r a n s a c t i o n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+
+	return isc_transaction_info(user_status, tra_handle,
+								(SSHORT) * item_length, items,
+								(SSHORT) * buffer_length, buffer);
+}
+
+
+STATUS ISC_UNWIND_REQUEST(user_status, req_handle, level)
+	 STATUS *user_status;
+	 REQ *req_handle;
+	 SLONG *level;
+{
+/**************************************
+ *
+ *	i s c _ u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a running request.  This is potentially nasty since it can be called
+ *	asynchronously.
+ *
+ **************************************/
+
+	isc_unwind_request(user_status, req_handle, (SSHORT) * level);
+	return;
+}
+
+
+SLONG ISC_VAX_INTEGER(ptr, length)
+	 UCHAR *ptr;
+	 SLONG length;
+{
+/**************************************
+ *
+ *	i s c _ v a x _ i n t e g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up (and convert) a VAX style integer of length 1, 2, or 4
+ *	bytes.
+ *
+ **************************************/
+
+	return isc_vax_integer(ptr, (SSHORT) length);
+}
+
+
+ISC_VERSION(handle, routine, user_arg)
+	 int *handle;
+	 int (*routine) ();
+	 SCHAR *user_arg;
+{
+/**************************************
+ *
+ *	i s c _ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Obtain and print information about a database.
+ *
+ **************************************/
+
+	isc_version(handle, routine, user_arg);
+}
+
+
+STATUS ISC_WAIT_FOR_EVENT(user_status, handle, length, events, buffer)
+	 STATUS *user_status;
+	 ATT *handle;
+	 SLONG length;
+	 UCHAR **events, **buffer;
+{
+/**************************************
+ *
+ *	i s c _ w a i t _ f o r _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que request for event notification.
+ *
+ **************************************/
+
+	return isc_wait_for_event(user_status, (SSHORT) * handle, length, events,
+							  buffer);
+}
+
+
+
+PERF_FORMAT(before, after, string, buffer, buf_len)
+	 PERF *before, *after;
+	 SCHAR *buffer, *string;
+	 SSHORT *buf_len;
+{
+/**************************************
+ *
+ *	P E R F _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format a buffer with statistical stuff under control of formatting
+ *	string.  Substitute in appropriate stuff.  Return the length of the
+ *	formatting output.
+ *
+ **************************************/
+
+	perf_format(before, after, string, buffer, buf_len);
+}
+
+
+PERF_GET_INFO(handle, perf)
+	 int **handle;
+	 PERF *perf;
+{
+/**************************************
+ *
+ *	P E R F _ g e t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Acquire timing and performance information.  Some info comes
+ *	from the system and some from the database.
+ *
+ **************************************/
+
+	perf_get_info(handle, perf);
+}
+
+
+void PERF_REPORT(before, after, buffer, buf_len)
+	 PERF *before, *after;
+	 SCHAR *buffer;
+	 SSHORT *buf_len;
+{
+/**************************************
+ *
+ *	p e r f _ r e p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report a common set of parameters.
+ *
+ **************************************/
+
+	perf_report(before, after, buffer, buf_len);
+}
+
diff --git a/src/jrd/svc.cpp b/src/jrd/svc.cpp
new file mode 100644
index 0000000000..ce181adc45
--- /dev/null
+++ b/src/jrd/svc.cpp
@@ -0,0 +1,3876 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		svc.c
+ *	DESCRIPTION:	Service manager functions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/time.h"
+#include "../jrd/common.h"
+#include "../jrd/file_params.h"
+#include <stdarg.h>
+#include "../jrd/jrd.h"
+#include "../jrd/svc.h"
+#include "../jrd/pwd.h"
+#include "../alice/aliceswi.h"
+#include "../burp/burpswi.h"
+#include "../jrd/ibase.h"
+#include "../jrd/license.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/inf_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/jrd_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pwd_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/svc_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/why_proto.h"
+#include "../jrd/utl_proto.h"
+#include "../jrd/jrd_proto.h"
+#include "../jrd/enc_proto.h"
+#include "../utilities/gsecswi.h"
+#include "../utilities/dbaswi.h"
+#ifdef SERVER_SHUTDOWN
+#include "../jrd/jrd_proto.h"
+#endif
+
+#ifdef sparc
+#ifdef SOLARIS
+#include <fcntl.h>
+#else
+#include <vfork.h>
+#endif
+#endif
+#if (defined DELTA || defined IMP)
+#include <fcntl.h>
+#include <sys/types.h>
+#endif
+#if (defined EPSON || defined SCO_UNIX)
+#include <fcntl.h>
+#endif
+
+/* This is defined in JRD/SCL.H, but including it causes
+ * a linker warning.  
+ */
+#define SYSDBA_USER_NAME	"SYSDBA"
+#define SVC_user_dba		2
+#define SVC_user_any		1
+#define SVC_user_none		0
+
+#if !defined(WIN_NT)
+#  include <signal.h>
+#  ifndef VMS
+#    include <sys/param.h>
+#    include <sys/stat.h>
+#  else
+#    include <stat.h>
+#  endif
+#  include <errno.h>
+#endif
+
+#ifdef WIN_NT
+#  include <windows.h>
+#  include <io.h>
+#  include <stdlib.h>
+#  include <fcntl.h>
+#  include <sys/stat.h>
+#  define SYS_ERR		isc_arg_win32
+#endif
+
+
+#ifdef NETWARE_386
+#define SYS_ERR		isc_arg_netware
+#endif
+
+#ifndef SYS_ERR
+#define SYS_ERR		isc_arg_unix
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	256
+#endif
+
+#if (defined DELTA || defined VMS || defined IMP )
+#define waitpid(x,y,z)	wait (y)
+#endif
+
+#define statistics	stat
+
+#define GET_LINE	1
+#define GET_EOF		2
+#define GET_BINARY	4
+
+#define	SVC_TRMNTR	'\377'
+
+/* This checks if the service has forked a process.  If not,
+   it will post the isc_svcnoexe error. */
+
+#define IS_SERVICE_RUNNING(service) \
+				if (!(service->svc_flags & SVC_forked)) {\
+				    THREAD_ENTER; \
+				    ERR_post (isc_svcnoexe, isc_arg_string, \
+				    service->svc_service->serv_name, 0); }
+
+#define NEED_ADMIN_PRIVS(svc)	{*status++ = isc_insufficient_svc_privileges; \
+		      	         *status++ = isc_arg_string; \
+				 *status++ = (STATUS) ERR_string(svc,strlen(svc)); \
+				 *status++ = isc_arg_end; }
+
+#define ERR_FILE_IN_USE		{ TEXT buffer[256]; \
+		                  gds__prefix (buffer, LOCK_HEADER); \
+ 		                  *status++ = isc_file_in_use; \
+		                  *status++ = isc_arg_string; \
+		                  *status++ = (STATUS) ERR_string (buffer, strlen(buffer)); \
+                                  *status++ = isc_arg_end; }
+
+
+extern "C" {
+
+
+/* Option block for service parameter block */
+
+typedef struct spb {
+	TEXT *spb_sys_user_name;
+	TEXT *spb_user_name;
+	TEXT *spb_password;
+	TEXT *spb_password_enc;
+	TEXT *spb_command_line;
+	USHORT spb_version;
+} SPB;
+
+static void conv_switches(USHORT, USHORT, SCHAR *, TEXT **);
+static TEXT *find_switch(int, IN_SW_TAB);
+static USHORT process_switches(USHORT, SCHAR *, TEXT *);
+static void get_options(UCHAR *, USHORT, TEXT *, SPB *);
+static TEXT *get_string_parameter(UCHAR **, TEXT **);
+static void io_error(TEXT *, SLONG, TEXT *, STATUS, BOOLEAN);
+static void service_close(SVC);
+static BOOLEAN get_action_svc_bitmask(TEXT **, IN_SW_TAB, TEXT **, USHORT *,
+									  USHORT *);
+static void get_action_svc_string(TEXT **, TEXT **, USHORT *, USHORT *);
+static void get_action_svc_data(TEXT **, TEXT **, USHORT *, USHORT *);
+static BOOLEAN get_action_svc_parameter(TEXT **, IN_SW_TAB, TEXT **, USHORT *,
+										USHORT *);
+
+#ifdef SUPERSERVER
+static UCHAR service_dequeue_byte(SVC);
+static void service_enqueue_byte(UCHAR, SVC);
+static USHORT service_add_one(USHORT i);
+static USHORT service_empty(SVC service);
+static USHORT service_full(SVC service);
+static void service_fork(void (*)(), SVC);
+#else
+static void service_fork(TEXT *, SVC);
+#endif
+static void service_get(SVC, SCHAR *, USHORT, USHORT, USHORT, USHORT *);
+static void service_put(SVC, SCHAR *, USHORT);
+static void timeout_handler(SVC);
+#ifdef WIN_NT
+static USHORT service_read(SVC, SCHAR *, USHORT, USHORT);
+#endif
+
+#ifdef DEBUG
+void test_thread(SVC);
+void test_cmd(USHORT, SCHAR *, TEXT **);
+#define TEST_THREAD test_thread
+#define TEST_CMD test_cmd
+#else
+#define TEST_THREAD NULL
+#define TEST_CMD NULL
+#endif
+
+#ifdef  __BORLANDC__
+typedef void (__stdcall * shutdown_fct_t) (UINT);
+#else
+typedef void (*shutdown_fct_t) ();
+#endif
+static shutdown_fct_t shutdown_fct = 0;
+
+static ULONG shutdown_param = 0L;
+
+#ifdef WIN_NT
+static SLONG SVC_cache_default;
+static SLONG SVC_priority_class;
+static SLONG SVC_client_map;
+static SLONG SVC_working_set_min;
+static SLONG SVC_working_set_max;
+
+static struct ipccfg SVC_hdrtbl[] = {
+	ISCCFG_DBCACHE, 0, &SVC_cache_default, 0, 0,
+	ISCCFG_PRIORITY, 0, &SVC_priority_class, 0, 0,
+	ISCCFG_IPCMAP, 0, &SVC_client_map, 0, 0,
+	ISCCFG_MEMMIN, 0, &SVC_working_set_min, 0, 0,
+	ISCCFG_MEMMAX, 0, &SVC_working_set_max, 0, 0,
+	NULL, 0, NULL, 0, 0
+};
+#else
+static SLONG SVC_conn_timeout;
+static SLONG SVC_dbcache;
+static SLONG SVC_deadlock;
+static SLONG SVC_dummy_intrvl;
+static SLONG SVC_lockspin;
+static SLONG SVC_lockhash;
+static SLONG SVC_evntmem;
+static SLONG SVC_lockorder;
+static SLONG SVC_anylockmem;
+static SLONG SVC_locksem;
+static SLONG SVC_locksig;
+
+static struct ipccfg SVC_hdrtbl[] = {
+	ISCCFG_CONN_TIMEOUT, 0, &SVC_conn_timeout, 0, 0,
+	ISCCFG_DBCACHE, 0, &SVC_dbcache, 0, 0,
+	ISCCFG_DEADLOCK, 0, &SVC_deadlock, 0, 0,
+	ISCCFG_DUMMY_INTRVL, 0, &SVC_dummy_intrvl, 0, 0,
+	ISCCFG_LOCKSPIN, 0, &SVC_lockspin, 0, 0,
+	ISCCFG_LOCKHASH, 0, &SVC_lockhash, 0, 0,
+	ISCCFG_EVNTMEM, 0, &SVC_evntmem, 0, 0,
+	ISCCFG_LOCKORDER, 0, &SVC_lockorder, 0, 0,
+	ISCCFG_ANYLOCKMEM, 0, &SVC_anylockmem, 0, 0,
+	ISCCFG_ANYLOCKSEM, 0, &SVC_locksem, 0, 0,
+	ISCCFG_ANYLOCKSIG, 0, &SVC_locksig, 0, 0,
+	NULL, 0, NULL, 0, 0
+};
+#endif /* WIN_NT */
+
+#define SPB_SEC_USERNAME	"isc_spb_sec_username"
+#define SPB_LIC_KEY		"isc_spb_lic_key"
+#define SPB_LIC_ID		"isc_spb_lic_id"
+
+static MUTX_T svc_mutex[1], thd_mutex[1];
+static BOOLEAN svc_initialized = FALSE, thd_initialized = FALSE;
+
+/* Service Functions */
+#ifdef SUPERSERVER
+extern int main_gbak();
+extern int main_gfix();
+extern int main_wal_print();
+extern int main_lock_print();
+extern int main_gstat();
+extern int main_gsec();
+
+#define MAIN_GBAK		main_gbak
+#define MAIN_GFIX		main_gfix
+#define MAIN_WAL_PRINT	main_wal_print
+#define MAIN_LOCK_PRINT	main_lock_print
+#define MAIN_GSTAT		main_gstat
+#define MAIN_GSEC		main_gsec
+#else
+#define MAIN_GBAK		NULL
+#define MAIN_GFIX		NULL
+#define MAIN_WAL_PRINT	NULL
+#define MAIN_LOCK_PRINT	NULL
+#define MAIN_GSTAT		NULL
+#define MAIN_GSEC		NULL
+#endif
+
+/* Entries which have a NULL serv_executable field will not fork
+   a process on the server, but will establish a valid connection
+   which can be used for isc_info_svc calls.
+
+  The format of the structure is:
+
+  isc_action_svc call,
+  old service name (for compatibility),
+  old cmd-line switches (for compatibility),
+  executable to fork (for compatibility),
+  thread to execute,
+  in use flag (for compatibility)
+*/
+
+typedef CONST void (*PFN_SERV_t) ();
+
+static const serv services[] =
+{
+#if !defined(LINUX) && !(defined FREEBSD || defined NETBSD)
+#ifndef NETWARE386
+#ifdef WIN_NT
+	isc_action_max, "print_cache", "-svc", "bin/ibcachpr", NULL, 0,
+	isc_action_max, "print_locks", "-svc", "bin/iblockpr", NULL, 0,
+	isc_action_max, "start_cache", "-svc", "bin/ibcache", NULL, 0,
+#else
+	isc_action_max, "print_cache", "-svc", "bin/gds_cache_print", NULL, 0,
+	isc_action_max, "print_locks", "-svc", "bin/gds_lock_print", NULL, 0,
+	isc_action_max, "start_cache", "-svc", "bin/gds_cache_manager", NULL, 0,
+#endif							/* WIN_NT */
+	isc_action_max, "analyze_database", "-svc", "bin/gstat", NULL, 0,
+	isc_action_max, "backup", "-svc -b", "bin/gbak",	reinterpret_cast<PFN_SERV_t>(MAIN_GBAK), 0,
+	isc_action_max, "create", "-svc -c", "bin/gbak",	reinterpret_cast<PFN_SERV_t>(MAIN_GBAK), 0,
+	isc_action_max, "restore", "-svc -r", "bin/gbak",	reinterpret_cast<PFN_SERV_t>(MAIN_GBAK), 0,
+	isc_action_max, "gdef", "-svc", "bin/gdef", NULL, 0,
+	isc_action_max, "gsec", "-svc", "bin/gsec", NULL, 0,
+	isc_action_max, "disable_journal", "-svc -disable", "bin/gjrn", NULL, 0,
+	isc_action_max, "dump_journal", "-svc -online_dump", "bin/gjrn", NULL, 0,
+	isc_action_max, "enable_journal", "-svc -enable", "bin/gjrn", NULL, 0,
+	isc_action_max, "monitor_journal", "-svc -console", "bin/gjrn", NULL, 0,
+	isc_action_max, "query_server", NULL, NULL, NULL, 0,
+	isc_action_max, "start_journal", "-svc -server", "bin/gjrn", NULL, 0,
+	isc_action_max, "stop_cache", "-svc -shut -cache", "bin/gfix", NULL, 0,
+	isc_action_max, "stop_journal", "-svc -console", "bin/gjrn", NULL, 0,
+#else
+	isc_action_max, "analyze_database", "-svc", NULL,	reinterpret_cast<PFN_SERV_t>(MAIN_GSTAT), 0,
+	isc_action_max, "backup", "-svc -b", NULL,	reinterpret_cast<PFN_SERV_t>(MAIN_GSTAT), 0,
+	isc_action_max, "create", "-svc -c", NULL,	reinterpret_cast<PFN_SERV_t>(MAIN_GBAK), 0,
+	isc_action_max, "restore", "-svc -r", NULL,	reinterpret_cast<PFN_SERV_t>(MAIN_GBAK), 0,
+	isc_action_max, "gdef", "-svc", NULL, NULL, 0,
+	isc_action_max, "gsec", "-svc", NULL, NULL, 0,
+	isc_action_max, "print_wal", "-svc", NULL,	reinterpret_cast<PFN_SERV_t>(MAIN_WAL_PRINT), 0,
+	isc_action_max, "print_locks", "-svc", NULL,	reinterpret_cast<PFN_SERV_t>(MAIN_LOCK_PRINT), 0,
+#endif							/* NETWARE */
+	isc_action_max, "anonymous", NULL, NULL, NULL, 0,
+
+/* NEW VERSION 2 calls, the name field MUST be different from those names above
+ */
+	isc_action_max, "service_mgr", NULL, NULL, NULL, 0,
+	isc_action_svc_backup, "Backup Database", NULL, "bin/gbak",	reinterpret_cast<PFN_SERV_t>(MAIN_GBAK), 0,
+	isc_action_svc_restore, "Restore Database", NULL, "bin/gbak",	reinterpret_cast<PFN_SERV_t>(MAIN_GBAK), 0,
+	isc_action_svc_repair, "Repair Database", NULL, "bin/gfix",	reinterpret_cast<PFN_SERV_t>(MAIN_GFIX), 0,
+	isc_action_svc_add_user, "Add User", NULL, "bin/gsec",	reinterpret_cast<PFN_SERV_t>(MAIN_GSEC), 0,
+	isc_action_svc_delete_user, "Delete User", NULL, "bin/gsec",	reinterpret_cast<PFN_SERV_t>(MAIN_GSEC), 0,
+	isc_action_svc_modify_user, "Modify User", NULL, "bin/gsec",	reinterpret_cast<PFN_SERV_t>(MAIN_GSEC), 0,
+	isc_action_svc_display_user, "Display User", NULL, "bin/gsec",	reinterpret_cast<PFN_SERV_t>(MAIN_GSEC), 0,
+	isc_action_svc_properties, "Database Properties", NULL, "bin/gfix",	reinterpret_cast<PFN_SERV_t>(MAIN_GFIX), 0,
+	isc_action_svc_lock_stats, "Lock Stats", NULL, NULL,	reinterpret_cast<PFN_SERV_t>(TEST_THREAD), 0,
+	isc_action_svc_db_stats, "Database Stats", NULL, NULL,	reinterpret_cast<PFN_SERV_t>(MAIN_GSTAT), 0,
+	isc_action_svc_get_ib_log, "Get Log File", NULL, NULL,	reinterpret_cast<PFN_SERV_t>(SVC_read_ib_log), 0,
+/* actions with no names are undocumented */
+	isc_action_svc_set_config, NULL, NULL, NULL,	reinterpret_cast<PFN_SERV_t>(TEST_THREAD), 0,
+	isc_action_svc_default_config, NULL, NULL, NULL,	reinterpret_cast<PFN_SERV_t>(TEST_THREAD), 0,
+	isc_action_svc_set_env, NULL, NULL, NULL,	reinterpret_cast<PFN_SERV_t>(TEST_THREAD), 0,
+	isc_action_svc_set_env_lock, NULL, NULL, NULL,	reinterpret_cast<PFN_SERV_t>(TEST_THREAD), 0,
+	isc_action_svc_set_env_msg, NULL, NULL, NULL,	reinterpret_cast<PFN_SERV_t>(TEST_THREAD), 0,
+	0, NULL, NULL, NULL, NULL, 0
+};
+#else							/* LINUX: disallow services API for 6.0 Linux Classic */
+	isc_action_max, "anonymous", NULL, NULL, NULL, 0,
+#ifdef SUPERSERVER
+	isc_action_max, "query_server", NULL, NULL, NULL, 0,
+	isc_action_max, "service_mgr", NULL, NULL, NULL, 0,
+	isc_action_svc_backup, "Backup Database", NULL, "bin/gbak",	reinterpret_cast<PFN_SERV_t>(MAIN_GBAK), 0,
+	isc_action_svc_restore, "Restore Database", NULL, "bin/gbak",	reinterpret_cast<PFN_SERV_t>(MAIN_GBAK), 0,
+	isc_action_svc_repair, "Repair Database", NULL, "bin/gfix",	reinterpret_cast<PFN_SERV_t>(MAIN_GFIX), 0,
+	isc_action_svc_add_user, "Add User", NULL, "bin/gsec",	reinterpret_cast<PFN_SERV_t>(MAIN_GSEC), 0,
+	isc_action_svc_delete_user, "Delete User", NULL, "bin/gsec",	reinterpret_cast<PFN_SERV_t>(MAIN_GSEC), 0,
+	isc_action_svc_modify_user, "Modify User", NULL, "bin/gsec",	reinterpret_cast<PFN_SERV_t>(MAIN_GSEC), 0,
+	isc_action_svc_display_user, "Display User", NULL, "bin/gsec",	reinterpret_cast<PFN_SERV_t>(MAIN_GSEC), 0,
+	isc_action_svc_properties, "Database Properties", NULL, "bin/gfix",	reinterpret_cast<PFN_SERV_t>(MAIN_GFIX), 0,
+	isc_action_svc_lock_stats, "Lock Stats", NULL, NULL,	reinterpret_cast<PFN_SERV_t>(TEST_THREAD), 0,
+	isc_action_svc_db_stats, "Database Stats", NULL, NULL,	reinterpret_cast<PFN_SERV_t>(MAIN_GSTAT), 0,
+	isc_action_svc_get_ib_log, "Get Log File", NULL, NULL,	reinterpret_cast<PFN_SERV_t>(SVC_read_ib_log), 0,
+/* actions with no names are undocumented */
+	isc_action_svc_set_config, NULL, NULL, NULL,	reinterpret_cast<PFN_SERV_t>(TEST_THREAD), 0,
+	isc_action_svc_default_config, NULL, NULL, NULL,	reinterpret_cast<PFN_SERV_t>(TEST_THREAD), 0,
+	isc_action_svc_set_env, NULL, NULL, NULL,	reinterpret_cast<PFN_SERV_t>(TEST_THREAD), 0,
+	isc_action_svc_set_env_lock, NULL, NULL, NULL,	reinterpret_cast<PFN_SERV_t>(TEST_THREAD), 0,
+	isc_action_svc_set_env_msg, NULL, NULL, NULL,	reinterpret_cast<PFN_SERV_t>(TEST_THREAD), 0,
+#endif
+	0, NULL, NULL, NULL, NULL, 0
+};
+#endif /* LINUX */
+
+/* The SERVER_CAPABILITIES_FLAG is used to mark architectural
+** differences across servers.  This allows applications like server
+** manager to disable features as necessary.  
+*/
+
+#ifdef SUPERSERVER
+#define SERVER_CAPABILITIES     	REMOTE_HOP_SUPPORT | \
+                                    MULTI_CLIENT_SUPPORT | \
+			                		SERVER_CONFIG_SUPPORT
+#endif /* SUPERSERVER */
+
+
+#ifndef SERVER_CAPABILITIES
+#  define SERVER_CAPABILITIES_FLAG	REMOTE_HOP_SUPPORT | NO_SERVER_SHUTDOWN_SUPPORT
+#else
+
+#  ifdef WIN_NT
+#    define SERVER_CAPABILITIES_FLAG    SERVER_CAPABILITIES | QUOTED_FILENAME_SUPPORT
+#  else
+
+#    ifdef NETWARE386
+#      define SERVER_CAPABILITIES_FLAG    SERVER_CAPABILITIES | WAL_SUPPORT | NO_SERVER_SHUTDOWN_SUPPORT
+#    endif /* NETWARE386 */
+
+#    define SERVER_CAPABILITIES_FLAG    SERVER_CAPABILITIES | NO_SERVER_SHUTDOWN_SUPPORT
+#  endif /* WIN_NT */
+
+#endif /* SERVER_CAPABILITIES */
+
+
+#ifdef SHLIB_DEFS
+#define pipe		(*_libgds_pipe)
+#ifdef IMP
+#define wait		(*_libgds_wait)
+#else
+#define waitpid		(*_libgds_waitpid)
+#endif
+#define _exit		(*_libgds__exit)
+#define dup		(*_libgds_dup)
+#define ib_fdopen		(*_libgds_fdopen)
+#define execvp		(*_libgds_execvp)
+#define statistics	(*_libgds_stat)
+
+extern int pipe();
+#ifdef IMP
+extern pid_t wait();
+#else
+extern pid_t waitpid();
+#endif
+extern void _exit();
+extern int dup();
+extern IB_FILE *ib_fdopen();
+extern int execvp();
+extern int statistics();
+#endif
+
+
+SVC SVC_attach(
+			   USHORT service_length,
+			   TEXT * service_name, USHORT spb_length, SCHAR * spb)
+{
+/**************************************
+ *
+ *	S V C _ a t t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to an Interbase service.
+ *
+ **************************************/
+	TDBB tdbb;
+	CONST struct serv *serv;
+	TEXT misc_buf[512];
+	TEXT *switches, *misc;
+#ifndef SUPERSERVER
+	TEXT service_path[MAXPATHLEN];
+#endif
+	SPB options;
+	TEXT name[129] /*, project[33] */ ;
+	int id, group, node_id;
+	USHORT len, user_flag;
+	SVC service;
+	JMP_BUF env, *old_env;
+
+/* If the service name begins with a slash, ignore it. */
+
+	if (*service_name == '/' || *service_name == '\\') {
+		service_name++;
+		if (service_length)
+			service_length--;
+	}
+	if (service_length) {
+		strncpy(misc_buf, service_name, (int) service_length);
+		misc_buf[service_length] = 0;
+	}
+	else
+		strcpy(misc_buf, service_name);
+
+/* Find the service by looking for an exact match. */
+
+	for (serv = services; serv->serv_name; serv++)
+		if (!strcmp(misc_buf, serv->serv_name))
+			break;
+
+	if (!serv->serv_name)
+#if ((defined LINUX || defined FREEBSD || defined NETBSD) && !defined SUPERSERVER)
+		ERR_post(isc_service_att_err, isc_arg_gds, isc_service_not_supported,
+				 0);
+#else
+		ERR_post(isc_service_att_err, isc_arg_gds, isc_svcnotdef,
+				 isc_arg_string, SVC_err_string(misc_buf, strlen(misc_buf)),
+				 0);
+#endif
+
+	tdbb = GET_THREAD_DATA;
+
+/* If anything goes wrong, we want to be able to free any memory
+   that may have been allocated. */
+
+	misc = switches = NULL;
+	service = NULL;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if ((misc != NULL) && (misc != misc_buf))
+			gds__free((SLONG *) misc);
+		if ((switches != NULL))
+			gds__free((SLONG *) switches);
+		if ((service != NULL) && (service->svc_status != NULL))
+			gds__free((SLONG *) service->svc_status);
+		if (service != NULL)
+			gds__free((SLONG *) service);
+		ERR_punt();
+	}
+
+/* Process the service parameter block. */
+
+	if (spb_length > sizeof(misc_buf))
+		misc = (TEXT *) gds__alloc((SLONG) spb_length);
+	else
+		misc = misc_buf;
+/* FREE: by SETJMP handler */
+	if (!misc)					/* NOMEM: */
+		ERR_post(isc_virmemexh, 0);
+	get_options(reinterpret_cast < UCHAR * >(spb), spb_length, misc,
+				&options);
+
+/* Perhaps checkout the user in the security database. */
+
+	if (!strcmp(serv->serv_name, "anonymous"))
+		user_flag = SVC_user_none;
+	else {
+		if (!options.spb_user_name)
+			ERR_post(isc_service_att_err, isc_arg_gds, isc_svcnouser, 0);	/* user name and password are required
+																			   while attaching to the services
+																			   manager */
+		if (options.spb_user_name || id == -1)
+			PWD_verify_user(name, options.spb_user_name, options.spb_password,
+							options.spb_password_enc, &id, &group, &node_id);
+
+/* Check that the validated user has the authority to access this service */
+
+		if (STRICMP(options.spb_user_name, SYSDBA_USER_NAME))
+			user_flag = SVC_user_any;
+		else
+			user_flag = SVC_user_dba | SVC_user_any;
+	}
+
+/* Allocate a buffer for the service switches, if any.  Then move them in. */
+
+	len = ((serv->serv_std_switches) ? strlen(serv->serv_std_switches) : 0) +
+		((options.spb_command_line) ? strlen(options.spb_command_line) : 0) +
+		1;
+
+	if (len > 1)
+		if ((switches = (TEXT *) gds__alloc((SLONG) len)) == NULL)
+			/* FREE: by SETJMP handler */
+			ERR_post(isc_virmemexh, 0);
+
+	if (switches)
+		*switches = 0;
+	if (serv->serv_std_switches)
+		strcpy(switches, serv->serv_std_switches);
+	if (options.spb_command_line && serv->serv_std_switches)
+		strcat(switches, " ");
+	if (options.spb_command_line)
+		strcat(switches, options.spb_command_line);
+
+/* Services operate outside of the context of databases.  Therefore
+   we cannot use the JRD allocator. */
+
+	service = (SVC) gds__alloc((SLONG) (sizeof(struct svc)));
+/* FREE: by SETJMP handler */
+	if (!service)
+		ERR_post(isc_virmemexh, 0);
+
+	memset((void *) service, 0, sizeof(struct svc));
+
+	service->svc_status =
+		(STATUS *) gds__alloc(ISC_STATUS_LENGTH * sizeof(STATUS));
+/* FREE: by setjmp handler */
+	if (!service->svc_status)
+		ERR_post(isc_virmemexh, 0);
+
+	memset((void *) service->svc_status, 0,
+		   ISC_STATUS_LENGTH * sizeof(STATUS));
+
+	service->svc_header.blk_type = type_svc;
+	service->svc_header.blk_pool_id = 0;
+	service->svc_header.blk_length = 0;
+	service->svc_service = serv;
+	service->svc_resp_buf = service->svc_resp_ptr = NULL;
+	service->svc_resp_buf_len = service->svc_resp_len = 0;
+	service->svc_flags = serv->serv_executable ? SVC_forked : 0;
+	service->svc_switches = switches;
+	service->svc_handle = 0;
+	service->svc_user_flag = user_flag;
+	service->svc_do_shutdown = FALSE;
+#ifdef SUPERSERVER
+	service->svc_stdout_head = 1;
+	service->svc_stdout_tail = SVC_STDOUT_BUFFER_SIZE;
+	service->svc_stdout = NULL;
+	service->svc_argv = NULL;
+#endif
+	service->svc_spb_version = options.spb_version;
+	if (options.spb_user_name)
+		strcpy(service->svc_username, options.spb_user_name);
+
+/* The password will be issued to the service threads on NT since 
+ * there is no OS authentication.  If the password is not yet 
+ * encrypted, then encrypt it before saving it (since there is no
+ * decrypt function).
+ */
+	if (options.spb_password) {
+		UCHAR *p, *s =
+			reinterpret_cast < UCHAR * >(service->svc_enc_password);
+		int l;
+
+		p = (UCHAR *) ENC_crypt(options.spb_password, PASSWORD_SALT) + 2;
+		l = strlen((char *) p);
+		MOVE_FASTER(p, s, l);
+		service->svc_enc_password[l] = 0;
+	}
+
+	if (options.spb_password_enc)
+		strcpy(service->svc_enc_password, options.spb_password_enc);
+
+/* If an executable is defined for the service, try to fork a new process. 
+ * Only do this if we are working with a version 1 service */
+
+#ifndef SUPERSERVER
+	if (serv->serv_executable && options.spb_version == isc_spb_version1)
+#else
+	if (serv->serv_thd && options.spb_version == isc_spb_version1)
+#endif
+	{
+#ifndef SUPERSERVER
+		gds__prefix(service_path, serv->serv_executable);
+		service_fork(service_path, service);
+#else
+		/* if service is single threaded, only call if not currently running */
+		if (serv->in_use == NULL) {	/* No worry for multi-threading */
+			service_fork(reinterpret_cast < void (*)() > (serv->serv_thd),
+						 service);
+		}
+		else if (!*(serv->in_use)) {
+			*(serv->in_use) = TRUE;
+			service_fork(reinterpret_cast < void (*)() > (serv->serv_thd),
+						 service);
+		}
+		else {
+			ERR_post(isc_service_att_err, isc_arg_gds,
+					 isc_svc_in_use, isc_arg_string, serv->serv_name, 0);
+		}
+#endif
+	}
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	if (misc != misc_buf)
+		gds__free((SLONG *) misc);
+
+	return service;
+}
+
+
+void SVC_detach(SVC service)
+{
+/**************************************
+ *
+ *	S V C _ d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a service.
+ *
+ **************************************/
+
+#ifdef SERVER_SHUTDOWN
+	if (service->svc_do_shutdown) {
+		JRD_shutdown_all();
+		if (shutdown_fct)
+			reinterpret_cast < void (*) (...) >
+				(shutdown_fct) (shutdown_param);
+		else
+			exit(0);
+
+		/* The shutdown operation is complete, just wait to die */
+		while (1);
+	}
+#endif /* SERVER_SHUTDOWN */
+
+#ifdef SUPERSERVER
+
+/* Mark service as detached. */
+/* If service thread is finished, cleanup memory being used by service. */
+
+	SVC_finish(service, SVC_detached);
+
+#else
+
+/* Go ahead and cleanup memory being used by service */
+	SVC_cleanup(service);
+
+#endif
+}
+
+TEXT *SVC_err_string(TEXT * data, USHORT length)
+{
+/********************************************
+ *
+ *   S V C _ e r r _ s t r i n g
+ *
+ ********************************************
+ *
+ * Functional Description:
+ *     Uses ERR_string to save string data for the
+ *     status vector
+ ********************************************/
+	return ERR_string(data, length);
+}
+
+
+// TMN: Fixed the macro magic to use what was declared in the header file.
+// I left the __BORLANDC__ macro here, but commented out, in case someone
+//  knows what the this was about.
+void SVC_shutdown_init(
+//#ifdef  __BORLANDC__
+#ifdef WIN_NT
+						  STDCALL_FPTR_VOID fptr,
+#else
+						  void (*fptr) (),
+#endif
+						  ULONG param)
+{
+/**************************************
+ *
+ *	S V C _ s h u t d o w n _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the global function pointer to the shutdown function.
+ *
+ **************************************/
+
+	shutdown_fct = reinterpret_cast < shutdown_fct_t > (fptr);
+	shutdown_param = param;
+}
+
+
+#ifdef SUPERSERVER
+void SVC_fprintf(SVC service, const SCHAR * format, ...)
+{
+/**************************************
+ *
+ *	S V C _ f p r i n t f
+ *
+ **************************************/
+/* Ensure that service is not detached. */
+	if (!(service->svc_flags & SVC_detached)) {
+		va_list arglist;
+		char buf[1000];
+		ULONG i = 0;
+		ULONG n;
+
+		va_start(arglist, format);
+		n = vsprintf(buf, format, arglist);
+		va_end(arglist);
+
+		while (n > 0 && !(service->svc_flags & SVC_detached)) {
+			service_enqueue_byte(buf[i], service);
+			n--;
+			i++;
+		}
+	}
+}
+
+
+void SVC_putc(SVC service, UCHAR ch)
+{
+/**************************************
+ *
+ *	S V C _ p u t c
+ *
+ **************************************/
+/* Ensure that service is not detached. */
+	if (!(service->svc_flags & SVC_detached))
+		service_enqueue_byte(ch, service);
+}
+#endif /*SUPERSERVER*/
+	STATUS SVC_query2(SVC service,
+					  TDBB tdbb,
+					  USHORT send_item_length,
+					  SCHAR * send_items,
+					  USHORT recv_item_length,
+					  SCHAR * recv_items, USHORT buffer_length, SCHAR * info)
+{
+/**************************************
+ *
+ *	S V C _ q u e r y 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on service object
+ *
+ **************************************/
+	SCHAR item, *items, *end_items, *end;
+	char buffer[256];
+	UCHAR dbbuf[1024];
+	USHORT l, length, version, get_flags;
+	STATUS *status;
+	USHORT timeout;
+
+	THREAD_EXIT;
+
+/* Setup the status vector */
+	status = tdbb->tdbb_status_vector;
+	*status++ = isc_arg_gds;
+
+/* Process the send portion of the query first. */
+
+	timeout = 0;
+	items = send_items;
+	end_items = items + send_item_length;
+	while (items < end_items && *items != isc_info_end)
+	{
+		switch ((item = *items++))
+		{
+		case isc_info_end:
+			break;
+
+		default:
+			if (items + 2 <= end_items) {
+				l =
+					(USHORT) gds__vax_integer(reinterpret_cast <
+											  UCHAR * >(items), 2);
+				items += 2;
+				if (items + l <= end_items) {
+					switch (item) {
+					case isc_info_svc_line:
+						service_put(service, items, l);
+						break;
+					case isc_info_svc_message:
+						service_put(service, items - 3, l + 3);
+						break;
+					case isc_info_svc_timeout:
+						timeout =
+							(USHORT) gds__vax_integer(reinterpret_cast <
+													  UCHAR * >(items), l);
+						break;
+					case isc_info_svc_version:
+						version =
+							(USHORT) gds__vax_integer(reinterpret_cast <
+													  UCHAR * >(items), l);
+						break;
+					}
+				}
+				items += l;
+			}
+			else
+				items += 2;
+			break;
+		}
+	}
+
+/* Process the receive portion of the query now. */
+
+	end = info + buffer_length;
+
+	items = recv_items;
+	end_items = items + recv_item_length;
+	while (items < end_items && *items != isc_info_end)
+	{
+		/*
+		   if we attached to the "anonymous" service we allow only following queries:
+
+		   isc_info_svc_get_config     - called from within remote/ibconfig.c
+		   isc_info_svc_dump_pool_info - called from within utilities/print_pool.c
+		   isc_info_svc_user_dbpath    - called from within utilities/security.c
+		 */
+		if (service->svc_user_flag == SVC_user_none)
+		{
+			switch (*items)
+			{
+			case isc_info_svc_get_config:
+			case isc_info_svc_dump_pool_info:
+			case isc_info_svc_user_dbpath:
+				break;
+			default:
+				ERR_post(isc_bad_spb_form, 0);
+				break;
+			}
+		}
+
+		switch ((item = *items++))
+		{
+		case isc_info_end:
+			break;
+
+#ifdef SERVER_SHUTDOWN
+		case isc_info_svc_svr_db_info:
+			{
+				USHORT num_dbs = 0, num = 0;
+				USHORT num_att = 0;
+				TEXT *ptr, *ptr2;
+
+				*info++ = item;
+				ptr =
+					JRD_num_attachments(reinterpret_cast < char *>(dbbuf),
+										sizeof(dbbuf), JRD_info_dbnames,
+										&num_att, &num_dbs);
+				/* Move the number of attachments into the info buffer */
+				CK_SPACE_FOR_NUMERIC;
+				*info++ = isc_spb_num_att;
+				ADD_SPB_NUMERIC(info, num_att);
+
+				/* Move the number of databases in use into the info buffer */
+				CK_SPACE_FOR_NUMERIC;
+				*info++ = isc_spb_num_db;
+				ADD_SPB_NUMERIC(info, num_dbs);
+
+				/* Move db names into the info buffer */
+				if (ptr2 = ptr) {
+					num = (USHORT) isc_vax_integer(ptr2, sizeof(USHORT));
+					assert(num == num_dbs);
+					ptr2 += sizeof(USHORT);
+					for (; num; num--) {
+						length =
+							(USHORT) isc_vax_integer(ptr2, sizeof(USHORT));
+						ptr2 += sizeof(USHORT);
+						if (!
+							(info =
+							 INF_put_item(isc_spb_dbname, length, ptr2, info,
+										  end))) {
+							THREAD_ENTER;
+							return 0;
+						}
+						ptr2 += length;
+					}
+
+					if (ptr != reinterpret_cast < TEXT * >(dbbuf))
+						gds__free(ptr);	/* memory has been allocated by
+										   JRD_num_attachments() */
+				}
+
+				if (info < end)
+					*info++ = isc_info_flag_end;
+			}
+
+			break;
+
+		case isc_info_svc_svr_online:
+			*info++ = item;
+			if (service->svc_user_flag & SVC_user_dba) {
+				service->svc_do_shutdown = FALSE;
+				WHY_set_shutdown(FALSE);
+			}
+			else
+				NEED_ADMIN_PRIVS("isc_info_svc_svr_online");
+			break;
+
+		case isc_info_svc_svr_offline:
+			*info++ = item;
+			if (service->svc_user_flag & SVC_user_dba) {
+				service->svc_do_shutdown = TRUE;
+				WHY_set_shutdown(TRUE);
+			}
+			else
+				NEED_ADMIN_PRIVS("isc_info_svc_svr_offline");
+			break;
+#endif /* SERVER_SHUTDOWN */
+
+			/* The following 3 service commands (or items) stuff the response
+			   buffer 'info' with values of environment variable INTERBASE, 
+			   INTERBASE_LOCK or INTERBASE_MSG. If the environment variable
+			   is not set then default value is returned.
+			 */
+		case isc_info_svc_get_env:
+		case isc_info_svc_get_env_lock:
+		case isc_info_svc_get_env_msg:
+			switch (item) {
+			case isc_info_svc_get_env:
+				gds__prefix(buffer, "");
+				break;
+			case isc_info_svc_get_env_lock:
+				gds__prefix_lock(buffer, "");
+				break;
+			case isc_info_svc_get_env_msg:
+				gds__prefix_msg(buffer, "");
+			}
+
+			/* Note: it is safe to use strlen to get a length of "buffer"
+			   because gds_prefix[_lock|_msg] return a zero-terminated
+			   string
+			 */
+			info = INF_put_item(item, strlen(buffer), buffer, info, end);
+			if (!info) {
+				THREAD_ENTER;
+				return 0;
+			}
+			break;
+
+#ifdef SUPERSERVER
+		case isc_info_svc_dump_pool_info:
+			{
+				int length;
+				char fname[MAXPATHLEN];
+				length = isc_vax_integer(items, sizeof(USHORT));
+				items += sizeof(USHORT);
+				strncpy(fname, items, length);
+				fname[length] = 0;
+				JRD_print_all_counters(fname);
+				break;
+			}
+#endif
+
+		case isc_info_svc_get_config:
+			if (SVC_hdrtbl) {
+				IPCCFG h;
+				*info++ = item;
+				ISC_get_config(LOCK_HEADER, SVC_hdrtbl);
+				for (h = SVC_hdrtbl; h->ipccfg_keyword; h++) {
+					CK_SPACE_FOR_NUMERIC;
+					*info++ = h->ipccfg_key;
+					ADD_SPB_NUMERIC(info, *h->ipccfg_variable);
+				}
+				if (info < end)
+					*info++ = isc_info_flag_end;
+			}
+			break;
+
+		case isc_info_svc_default_config:
+			*info++ = item;
+			if (service->svc_user_flag & SVC_user_dba) {
+				THREAD_ENTER;
+				if (ISC_set_config(LOCK_HEADER, NULL))
+					ERR_FILE_IN_USE;
+				THREAD_EXIT;
+			}
+			else
+				NEED_ADMIN_PRIVS("isc_info_svc_default_config");
+			break;
+
+		case isc_info_svc_set_config:
+			*info++ = item;
+
+			length = (USHORT) isc_vax_integer(items, sizeof(USHORT));
+			items += sizeof(USHORT);
+
+			/* Check for proper user authority */
+
+			if (service->svc_user_flag & SVC_user_dba) {
+				int n;
+				UCHAR *p, *end;
+
+				end = reinterpret_cast < UCHAR * >(items + length);
+
+				/* count the number of parameters being set */
+
+				p = reinterpret_cast < UCHAR * >(items);
+				for (n = 0; p < end; n++)
+					p += p[1] + 2;
+
+				/* if there is at least one then do the configuration */
+
+				if (n++) {
+					IPCCFG tmpcfg;
+					/* allocate a buffer big enough to n struct ipccfg and
+					 * n ipccfg variables.
+					 */
+					tmpcfg =
+						(IPCCFG) gds__alloc(n * (sizeof(struct ipccfg) +
+												 ALIGNMENT) + length);
+					if (tmpcfg) {
+						p = (UCHAR *) tmpcfg + n * sizeof(struct ipccfg);
+						for (n = 0; (UCHAR *) items < end; n++) {
+							int nBytes;
+
+							tmpcfg[n].ipccfg_keyword = NULL;
+							tmpcfg[n].ipccfg_key = *items++;
+							tmpcfg[n].ipccfg_variable = (SLONG *) p;
+							nBytes = *items++;
+							*(ULONG *) p = isc_vax_integer(items, nBytes);
+							p += ROUNDUP(nBytes, ALIGNMENT);
+							items += nBytes;
+						}
+						tmpcfg[n].ipccfg_keyword = NULL;
+						tmpcfg[n].ipccfg_key = 0;
+						tmpcfg[n].ipccfg_variable = NULL;
+
+						THREAD_ENTER;
+						if (ISC_set_config(LOCK_HEADER, tmpcfg))
+							ERR_FILE_IN_USE;
+						THREAD_EXIT;
+						gds__free((ULONG *) tmpcfg);
+					}
+					else {
+						/* Return an error if there is no more memory to
+						 * access the ibconfig file.  Do not continue
+						 * processing the query request.
+						 */
+						THREAD_ENTER;
+						*status++ = isc_virmemexh;
+						*status++ = isc_arg_end;
+						return tdbb->tdbb_status_vector[1];
+					}
+				}
+			}
+			else {
+				items += length;
+				NEED_ADMIN_PRIVS("isc_info_svc_set_config");
+			}
+			break;
+
+		case isc_info_svc_version:
+			/* The version of the service manager */
+			CK_SPACE_FOR_NUMERIC;
+			*info++ = item;
+			ADD_SPB_NUMERIC(info, SERVICE_VERSION);
+			break;
+
+		case isc_info_svc_capabilities:
+			/* bitmask defining any specific architectural differences */
+			CK_SPACE_FOR_NUMERIC;
+			*info++ = item;
+			ADD_SPB_NUMERIC(info, SERVER_CAPABILITIES_FLAG);
+			break;
+
+		case isc_info_svc_running:
+			/* Returns the status of the flag SVC_thd_running */
+			CK_SPACE_FOR_NUMERIC;
+			*info++ = item;
+			if (service->svc_flags & SVC_thd_running)
+				ADD_SPB_NUMERIC(info, TRUE)
+			else
+				ADD_SPB_NUMERIC(info, FALSE)
+
+			break;
+
+		case isc_info_svc_server_version:
+			/* The version of the server engine */
+			info = INF_put_item(item, strlen(GDS_VERSION), GDS_VERSION, info, end);
+			if (!info) {
+				THREAD_ENTER;
+				return 0;
+			}
+			break;
+
+		case isc_info_svc_implementation:
+			/* The server implementation - e.g. Interbase/sun4 */
+			isc_format_implementation(IMPLEMENTATION, sizeof(buffer), buffer,
+									  0, 0, NULL);
+			info = INF_put_item(item, strlen(buffer), buffer, info, end);
+			if (!info) {
+				THREAD_ENTER;
+				return 0;
+			}
+
+			break;
+
+
+		case isc_info_svc_user_dbpath:
+			/* The path to the user security database (isc4.gdb) */
+			PWD_get_user_dbpath(buffer);
+
+			if (!(info = INF_put_item(item, strlen(buffer), buffer,
+									  info, end))) {
+				THREAD_ENTER;
+				return 0;
+			}
+			break;
+
+		case isc_info_svc_response:
+			service->svc_resp_len = 0;
+			if (info + 4 > end) {
+				*info++ = isc_info_truncated;
+				break;
+			}
+			service_put(service, &item, 1);
+			service_get(service, &item, 1, GET_BINARY, 0, &length);
+			service_get(service, buffer, 2, GET_BINARY, 0, &length);
+			l =
+				(USHORT) gds__vax_integer(reinterpret_cast <
+										  UCHAR * >(buffer), 2);
+			length = MIN(end - (info + 4), l);
+			service_get(service, info + 3, length, GET_BINARY, 0, &length);
+			info = INF_put_item(item, length, info + 3, info, end);
+			if (length != l) {
+				*info++ = isc_info_truncated;
+				l -= length;
+				if (l > service->svc_resp_buf_len) {
+					THREAD_ENTER;
+					if (service->svc_resp_buf)
+						gds__free((SLONG *) service->svc_resp_buf);
+					service->svc_resp_buf = (UCHAR *) gds__alloc((SLONG) l);
+					/* FREE: in SVC_detach() */
+					if (!service->svc_resp_buf) {	/* NOMEM: */
+						DEV_REPORT("SVC_query: out of memory");
+						/* NOMEM: not really handled well */
+						l = 0;	/* set the length to zero */
+					}
+					service->svc_resp_buf_len = l;
+					THREAD_EXIT;
+				}
+				service_get(service,
+							reinterpret_cast < char *>(service->svc_resp_buf),
+							l, GET_BINARY, 0, &length);
+				service->svc_resp_ptr = service->svc_resp_buf;
+				service->svc_resp_len = l;
+			}
+			break;
+
+		case isc_info_svc_response_more:
+			if (l = length = service->svc_resp_len)
+				length = MIN(end - (info + 4), l);
+			if (!
+				(info =
+				 INF_put_item(item, length,
+							  reinterpret_cast <
+							  char *>(service->svc_resp_ptr), info, end))) {
+				THREAD_ENTER;
+				return 0;
+			}
+			service->svc_resp_ptr += length;
+			service->svc_resp_len -= length;
+			if (length != l)
+				*info++ = isc_info_truncated;
+			break;
+
+		case isc_info_svc_total_length:
+			service_put(service, &item, 1);
+			service_get(service, &item, 1, GET_BINARY, 0, &length);
+			service_get(service, buffer, 2, GET_BINARY, 0, &length);
+			l =
+				(USHORT) gds__vax_integer(reinterpret_cast <
+										  UCHAR * >(buffer), 2);
+			service_get(service, buffer, l, GET_BINARY, 0, &length);
+			if (!(info = INF_put_item(item, length, buffer, info, end))) {
+				THREAD_ENTER;
+				return 0;
+			}
+			break;
+
+		case isc_info_svc_line:
+		case isc_info_svc_to_eof:
+		case isc_info_svc_limbo_trans:
+		case isc_info_svc_get_users:
+			if (info + 4 > end) {
+				*info++ = isc_info_truncated;
+				break;
+			}
+
+			if (item == isc_info_svc_line)
+				get_flags = GET_LINE;
+			else
+			{
+				if (item == isc_info_svc_to_eof)
+					get_flags = GET_EOF;
+				else
+					get_flags = GET_BINARY;
+			}
+
+			service_get(service, info + 3, end - (info + 4), get_flags,
+						timeout, &length);
+
+			/* If the read timed out, return the data, if any, & a timeout 
+			   item.  If the input buffer was not large enough
+			   to store a read to eof, return the data that was read along
+			   with an indication that more is available. */
+
+			info = INF_put_item(item, length, info + 3, info, end);
+
+			if (service->svc_flags & SVC_timeout)
+			{
+				*info++ = isc_info_svc_timeout;
+			}
+			else
+			{
+				if (!length && !(service->svc_flags & SVC_finished))
+				{
+					*info++ = isc_info_data_not_ready;
+				}
+				else
+				{
+					if (item == isc_info_svc_to_eof &&
+						!(service->svc_flags & SVC_finished))
+					{
+						*info++ = isc_info_truncated;
+					}
+				}
+			}
+			break;
+		}
+
+		if (service->svc_user_flag == SVC_user_none)
+			break;
+	}
+
+	if (info < end)
+		*info = isc_info_end;
+
+
+	THREAD_ENTER;
+	return tdbb->tdbb_status_vector[1];
+}
+
+void SVC_query(SVC		service,
+			   USHORT	send_item_length,
+			   SCHAR*	send_items,
+			   USHORT	recv_item_length,
+			   SCHAR*	recv_items,
+			   USHORT	buffer_length,
+			   SCHAR*	info)
+{
+/**************************************
+ *
+ *	S V C _ q u e r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on service object.
+ *
+ **************************************/
+	SCHAR item, *items, *end_items, *end, *p, *q;
+	UCHAR buffer[256];
+	USHORT l, length, version, get_flags;
+	USHORT num_att = 0;
+	USHORT num_dbs = 0;
+	USHORT timeout;
+
+	THREAD_EXIT;
+
+/* Process the send portion of the query first. */
+
+	timeout = 0;
+	items = send_items;
+	end_items = items + send_item_length;
+	while (items < end_items && *items != isc_info_end)
+	{
+		switch ((item = *items++))
+		{
+		case isc_info_end:
+			break;
+
+		default:
+			if (items + 2 <= end_items)
+			{
+				l = (USHORT) gds__vax_integer(reinterpret_cast<UCHAR*>(items), 2);
+				items += 2;
+				if (items + l <= end_items)
+				{
+					switch (item) {
+					case isc_info_svc_line:
+						service_put(service, items, l);
+						break;
+					case isc_info_svc_message:
+						service_put(service, items - 3, l + 3);
+						break;
+					case isc_info_svc_timeout:
+						timeout =
+							(USHORT) gds__vax_integer(reinterpret_cast<UCHAR*>(items), l);
+						break;
+					case isc_info_svc_version:
+						version =
+							(USHORT) gds__vax_integer(reinterpret_cast<UCHAR*>(items), l);
+						break;
+					}
+				}
+				items += l;
+			}
+			else
+				items += 2;
+			break;
+		}
+	}
+
+/* Process the receive portion of the query now. */
+
+	end = info + buffer_length;
+
+	items = recv_items;
+	end_items = items + recv_item_length;
+	while (items < end_items && *items != isc_info_end)
+	{
+		switch ((item = *items++))
+		{
+		case isc_info_end:
+			break;
+
+#ifdef SERVER_SHUTDOWN
+		case isc_info_svc_svr_db_info:
+			JRD_num_attachments(NULL, 0, 0, &num_att, &num_dbs);
+			length = INF_convert(num_att, reinterpret_cast < char *>(buffer));
+			if (!
+				(info =
+				 INF_put_item(item, length,
+							  reinterpret_cast < char *>(buffer), info,
+							  end))) {
+				THREAD_ENTER;
+				return;
+			}
+			length = INF_convert(num_dbs, reinterpret_cast < char *>(buffer));
+			if (!
+				(info =
+				 INF_put_item(item, length,
+							  reinterpret_cast < char *>(buffer), info,
+							  end))) {
+				THREAD_ENTER;
+				return;
+			}
+			break;
+
+		case isc_info_svc_svr_online:
+			*info++ = item;
+			if (service->svc_user_flag & SVC_user_dba) {
+				service->svc_do_shutdown = FALSE;
+				WHY_set_shutdown(FALSE);
+				*info++ = 0;	/* Success */
+			}
+			else
+				*info++ = 2;	/* No user authority */
+			break;
+
+		case isc_info_svc_svr_offline:
+			*info++ = item;
+			if (service->svc_user_flag & SVC_user_dba) {
+				service->svc_do_shutdown = TRUE;
+				WHY_set_shutdown(TRUE);
+				*info++ = 0;	/* Success */
+			}
+			else
+				*info++ = 2;	/* No user authority */
+			break;
+#endif /* SERVER_SHUTDOWN */
+
+			/* The following 3 service commands (or items) stuff the response
+			   buffer 'info' with values of environment variable INTERBASE, 
+			   INTERBASE_LOCK or INTERBASE_MSG. If the environment variable
+			   is not set then default value is returned.
+			 */
+		case isc_info_svc_get_env:
+		case isc_info_svc_get_env_lock:
+		case isc_info_svc_get_env_msg:
+			switch (item) {
+			case isc_info_svc_get_env:
+				gds__prefix(reinterpret_cast < char *>(buffer), "");
+				break;
+			case isc_info_svc_get_env_lock:
+				gds__prefix_lock(reinterpret_cast < char *>(buffer), "");
+				break;
+			case isc_info_svc_get_env_msg:
+				gds__prefix_msg(reinterpret_cast < char *>(buffer), "");
+			}
+
+			/* Note: it is safe to use strlen to get a length of "buffer"
+			   because gds_prefix[_lock|_msg] return a zero-terminated
+			   string
+			 */
+			if (!(info = INF_put_item(item,
+									  strlen(reinterpret_cast <
+											 char *>(buffer)),
+									  reinterpret_cast < char *>(buffer),
+									  info, end))) {
+				THREAD_ENTER;
+				return;
+			}
+			break;
+
+#ifdef SUPERSERVER
+		case isc_info_svc_dump_pool_info:
+			{
+				int length;
+				char fname[MAXPATHLEN];
+				length = isc_vax_integer(items, sizeof(USHORT));
+				items += sizeof(USHORT);
+				strncpy(fname, items, length);
+				fname[length] = 0;
+				JRD_print_all_counters(fname);
+				break;
+			}
+#endif
+
+		case isc_info_svc_get_config:
+			if (SVC_hdrtbl) {
+				IPCCFG h;
+				UCHAR *p;
+				ISC_get_config(LOCK_HEADER, SVC_hdrtbl);
+				p = buffer;
+				for (h = SVC_hdrtbl; h->ipccfg_keyword; h++) {
+					*p++ = h->ipccfg_key;
+					length =
+						INF_convert(*h->ipccfg_variable,
+									reinterpret_cast < char *>(p + 1));
+					*p++ = (UCHAR) length;
+					p += length;
+				}
+				if (!
+					(info =
+					 INF_put_item(item, p - buffer,
+								  reinterpret_cast < char *>(buffer), info,
+								  end))) {
+					THREAD_ENTER;
+					return;
+				}
+			}
+			break;
+
+		case isc_info_svc_default_config:
+			*info++ = item;
+			if (service->svc_user_flag & SVC_user_dba) {
+				THREAD_ENTER;
+				if (ISC_set_config(LOCK_HEADER, NULL))
+					*info++ = 3;	/* File in use */
+				else
+					*info++ = 0;	/* Success */
+				THREAD_EXIT;
+			}
+			else
+				*info++ = 2;
+			break;
+
+		case isc_info_svc_set_config:
+			*info++ = item;
+
+			length = (USHORT) isc_vax_integer(items, sizeof(USHORT));
+			items += sizeof(USHORT);
+
+			/* Check for proper user authority */
+
+			if (service->svc_user_flag & SVC_user_dba) {
+				int n;
+				UCHAR *p, *end;
+
+				end = reinterpret_cast < UCHAR * >(items + length);
+
+				/* count the number of parameters being set */
+
+				p = reinterpret_cast < UCHAR * >(items);
+				for (n = 0; p < end; n++)
+					p += p[1] + 2;
+
+				/* if there is at least one then do the configuration */
+
+				if (n++) {
+					IPCCFG tmpcfg;
+					/* allocate a buffer big enough to n struct ipccfg and
+					 * n ipccfg variables.
+					 */
+					tmpcfg =
+						(IPCCFG) gds__alloc(n *
+											(sizeof(struct ipccfg) +
+											 ALIGNMENT) + length);
+					if (tmpcfg) {
+						p = (UCHAR *) tmpcfg + n * sizeof(struct ipccfg);
+						for (n = 0; (UCHAR *) items < end; n++) {
+							int nBytes;
+
+							tmpcfg[n].ipccfg_keyword = NULL;
+							tmpcfg[n].ipccfg_key = *items++;
+							tmpcfg[n].ipccfg_variable = (SLONG *) p;
+							nBytes = *items++;
+							*(ULONG *) p = isc_vax_integer(items, nBytes);
+							p += ROUNDUP(nBytes, ALIGNMENT);
+							items += nBytes;
+						}
+						tmpcfg[n].ipccfg_keyword = NULL;
+						tmpcfg[n].ipccfg_key = 0;
+						tmpcfg[n].ipccfg_variable = NULL;
+
+						THREAD_ENTER;
+						if (ISC_set_config(LOCK_HEADER, tmpcfg))
+							*info++ = 3;	/* File in use */
+						else
+							*info++ = 0;	/* Success */
+						THREAD_EXIT;
+						gds__free((ULONG *) tmpcfg);
+					}
+					else {
+						*info++ = 1;	/* No Memory */
+						items = reinterpret_cast < char *>(end);
+					}
+
+				}
+				*info++ = 0;	/* Success */
+			}
+			else {
+				items += length;
+				*info++ = 2;	/* No user authority */
+			}
+			break;
+
+		case isc_info_svc_version:
+			/* The version of the service manager */
+
+			length =
+				INF_convert(SERVICE_VERSION,
+							reinterpret_cast < char *>(buffer));
+			if (!
+				(info =
+				 INF_put_item(item, length,
+							  reinterpret_cast < char *>(buffer), info,
+							  end))) {
+				THREAD_ENTER;
+				return;
+			}
+			break;
+
+		case isc_info_svc_capabilities:
+			/* bitmask defining any specific architectural differences */
+
+			length =
+				INF_convert(SERVER_CAPABILITIES_FLAG,
+							reinterpret_cast < char *>(buffer));
+			if (!
+				(info =
+				 INF_put_item(item, length,
+							  reinterpret_cast < char *>(buffer), info,
+							  end))) {
+				THREAD_ENTER;
+				return;
+			}
+			break;
+
+		case isc_info_svc_server_version:
+			/* The version of the server engine */
+
+			p = reinterpret_cast < char *>(buffer);
+			*p++ = 1;			/* Count */
+			*p++ = sizeof(GDS_VERSION) - 1;
+			for (q = GDS_VERSION; *q; p++, q++)
+				*p = *q;
+			if (!(info = INF_put_item(item,
+									p - (SCHAR *) buffer,
+									reinterpret_cast<char*>(buffer),
+									info,
+									end)))
+			{
+				THREAD_ENTER;
+				return;
+			}
+			break;
+
+		case isc_info_svc_implementation:
+			/* The server implementation - e.g. Interbase/sun4 */
+
+			p = reinterpret_cast < char *>(buffer);
+			*p++ = 1;			/* Count */
+			*p++ = IMPLEMENTATION;
+			if (!(info = INF_put_item(item,
+									p - (SCHAR *) buffer,
+									reinterpret_cast<char*>(buffer),
+									info,
+									end)))
+			{
+				THREAD_ENTER;
+				return;
+			}
+			break;
+
+
+		case isc_info_svc_user_dbpath:
+			/* The path to the user security database (isc4.gdb) */
+			PWD_get_user_dbpath(reinterpret_cast < char *>(buffer));
+
+			if (!(info = INF_put_item(item,
+									  strlen(reinterpret_cast<char*>(buffer)),
+									  reinterpret_cast<char*>(buffer),
+									  info,
+									  end)))
+			{
+				THREAD_ENTER;
+				return;
+			}
+			break;
+
+		case isc_info_svc_response:
+			service->svc_resp_len = 0;
+			if (info + 4 > end)
+			{
+				*info++ = isc_info_truncated;
+				break;
+			}
+			service_put(service, &item, 1);
+			service_get(service, &item, 1, GET_BINARY, 0, &length);
+			service_get(service, reinterpret_cast < char *>(buffer), 2,
+						GET_BINARY, 0, &length);
+			l = (USHORT) gds__vax_integer(buffer, 2);
+			length = MIN(end - (info + 4), l);
+			service_get(service, info + 3, length, GET_BINARY, 0, &length);
+			info = INF_put_item(item, length, info + 3, info, end);
+			if (length != l)
+			{
+				*info++ = isc_info_truncated;
+				l -= length;
+				if (l > service->svc_resp_buf_len)
+				{
+					THREAD_ENTER;
+					if (service->svc_resp_buf)
+						gds__free((SLONG *) service->svc_resp_buf);
+					service->svc_resp_buf = (UCHAR *) gds__alloc((SLONG) l);
+					/* FREE: in SVC_detach() */
+					if (!service->svc_resp_buf)
+					{	/* NOMEM: */
+						DEV_REPORT("SVC_query: out of memory");
+						/* NOMEM: not really handled well */
+						l = 0;	/* set the length to zero */
+					}
+					service->svc_resp_buf_len = l;
+					THREAD_EXIT;
+				}
+				service_get(service,
+							reinterpret_cast<char*>(service->svc_resp_buf),
+							l,
+							GET_BINARY,
+							0,
+							&length);
+				service->svc_resp_ptr = service->svc_resp_buf;
+				service->svc_resp_len = l;
+			}
+			break;
+
+		case isc_info_svc_response_more:
+			if (l = length = service->svc_resp_len)
+				length = MIN(end - (info + 4), l);
+			if (!(info = INF_put_item(item,
+									length,
+									reinterpret_cast<char*>(service->svc_resp_ptr),
+									info,
+									end)))
+			{
+				THREAD_ENTER;
+				return;
+			}
+			service->svc_resp_ptr += length;
+			service->svc_resp_len -= length;
+			if (length != l)
+				*info++ = isc_info_truncated;
+			break;
+
+		case isc_info_svc_total_length:
+			service_put(service, &item, 1);
+			service_get(service, &item, 1, GET_BINARY, 0, &length);
+			service_get(service, reinterpret_cast < char *>(buffer), 2,
+						GET_BINARY, 0, &length);
+			l = (USHORT) gds__vax_integer(buffer, 2);
+			service_get(service, reinterpret_cast < char *>(buffer), l,
+						GET_BINARY, 0, &length);
+			if (!(info = INF_put_item(item,
+										length,
+										reinterpret_cast<char*>(buffer),
+										info,
+										end)))
+			{
+				THREAD_ENTER;
+				return;
+			}
+			break;
+
+		case isc_info_svc_line:
+		case isc_info_svc_to_eof:
+			if (info + 4 > end)
+			{
+				*info++ = isc_info_truncated;
+				break;
+			}
+			get_flags = (item == isc_info_svc_line) ? GET_LINE : GET_EOF;
+			service_get(service, info + 3, end - (info + 4), get_flags,
+						timeout, &length);
+
+			/* If the read timed out, return the data, if any, & a timeout 
+			   item.  If the input buffer was not large enough
+			   to store a read to eof, return the data that was read along
+			   with an indication that more is available. */
+
+			info = INF_put_item(item, length, info + 3, info, end);
+
+			if (service->svc_flags & SVC_timeout)
+				*info++ = isc_info_svc_timeout;
+			else
+			{
+				if (!length && !(service->svc_flags & SVC_finished))
+					*info++ = isc_info_data_not_ready;
+				else
+					if (item == isc_info_svc_to_eof &&
+						!(service->svc_flags & SVC_finished))
+						*info++ = isc_info_truncated;
+			}
+			break;
+		}
+	}
+
+	if (info < end)
+	{
+		*info = isc_info_end;
+	}
+
+	THREAD_ENTER;
+}
+
+
+void *SVC_start(SVC service, USHORT spb_length, SCHAR * spb)
+{
+/**************************************
+ *
+ *	S V C _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Start an InterBase service
+ *
+ **************************************/
+	TDBB tdbb;
+	CONST struct serv *serv;
+	USHORT svc_id;
+	JMP_BUF env, *old_env;
+	USHORT argc;
+	TEXT **arg, *p, *q, *tmp_ptr = NULL;
+	USHORT opt_switch_len = 0;
+	BOOLEAN flag_spb_options = FALSE;
+#ifndef SUPERSERVER
+	TEXT service_path[MAXPATHLEN];
+#endif
+
+/* 	NOTE: The parameter RESERVED must not be used
+ *	for any purpose as there are networking issues
+ *	involved (as with any handle that goes over the
+ *	network).  This parameter will be implemented at 
+ *	a later date.
+ */
+
+	isc_resv_handle reserved = NULL;	/* Reserved for future functionality */
+
+/* The name of the service is the first element of the buffer */
+	svc_id = *spb;
+
+	for (serv = services; serv->serv_action; serv++)
+		if (serv->serv_action == svc_id)
+			break;
+
+	if (!serv->serv_name)
+		ERR_post(isc_svcnotdef, isc_arg_string,
+				 SVC_err_string(const_cast < char *>(serv->serv_name),
+								strlen(serv->serv_name)), 0);
+
+/* currently we do not use "anonymous" service for any purposes but
+   isc_service_query() */
+	if (service->svc_user_flag == SVC_user_none)
+		ERR_post(isc_bad_spb_form, 0);
+
+	if (!thd_initialized) {
+		THD_MUTEX_INIT(thd_mutex);
+		thd_initialized = TRUE;
+	}
+
+	THD_MUTEX_LOCK(thd_mutex);
+	if (service->svc_flags & SVC_thd_running) {
+		THD_MUTEX_UNLOCK(thd_mutex);
+		ERR_post(isc_svc_in_use, isc_arg_string,
+				 SVC_err_string(const_cast < char *>(serv->serv_name),
+								strlen(serv->serv_name)), 0);
+	}
+	else {
+		/* Another service may have been started with this service block.  If so,
+		 * we must reset the service flags.
+		 */
+		if (!(service->svc_flags & SVC_detached))
+			service->svc_flags = 0;
+		service->svc_flags |= SVC_thd_running;
+		if (service->svc_argc && service->svc_switches) {
+			gds__free(service->svc_switches);
+			service->svc_switches = NULL;
+		}
+	}
+	THD_MUTEX_UNLOCK(thd_mutex);
+
+	tdbb = GET_THREAD_DATA;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (service->svc_switches != NULL)
+			gds__free((SLONG *) service->svc_switches);
+		if (service != NULL)
+			gds__free((SLONG *) service);
+		ERR_punt();
+	}
+
+/* Only need to add username and password information to those calls which need 
+ * to make a database connection
+ */
+	if (*spb == isc_action_svc_backup ||
+		*spb == isc_action_svc_restore ||
+		*spb == isc_action_svc_repair ||
+		*spb == isc_action_svc_add_user ||
+		*spb == isc_action_svc_delete_user ||
+		*spb == isc_action_svc_modify_user ||
+		*spb == isc_action_svc_display_user ||
+		*spb == isc_action_svc_db_stats || *spb == isc_action_svc_properties) {
+		/* the user issued a username when connecting to the service so
+		 * add the length of the username and switch to new_spb_length
+		 */
+
+		if (*service->svc_username)
+			opt_switch_len +=
+				(strlen(service->svc_username) + 1 + sizeof(USERNAME_SWITCH));
+
+		/* the user issued a password when connecting to the service so add
+		 * the length of the password and switch to new_spb_length
+		 */
+		if (*service->svc_enc_password)
+			opt_switch_len +=
+				(strlen(service->svc_enc_password) + 1 +
+				 sizeof(PASSWORD_SWITCH));
+
+		/* If svc_switches is not used -- call a command-line parsing utility */
+		if (!service->svc_switches)
+			conv_switches(spb_length, opt_switch_len, spb,
+						  &service->svc_switches);
+		else {
+			/* Command line options (isc_spb_options) is used.
+			 * Currently the only case in which it might happen is -- gbak utility
+			 * is called with a "-server" switch.
+			 */
+			flag_spb_options = TRUE;
+
+			tmp_ptr = (TEXT *)
+				gds__alloc((SLONG)
+						   (strlen(service->svc_switches) + +1 +
+							opt_switch_len + 1));
+			if (!tmp_ptr)		/* NOMEM: */
+				ERR_post(isc_virmemexh, 0);
+		}
+
+		/* add the username and password to the end of svc_switches if needed */
+		if (service->svc_switches) {
+			if (flag_spb_options)
+				strcpy(tmp_ptr, service->svc_switches);
+
+			if (*service->svc_username) {
+				if (!flag_spb_options)
+					sprintf(service->svc_switches, "%s %s %s",
+							service->svc_switches, USERNAME_SWITCH,
+							service->svc_username);
+				else
+					sprintf(tmp_ptr, "%s %s %s", tmp_ptr, USERNAME_SWITCH,
+							service->svc_username);
+			}
+
+			if (*service->svc_enc_password) {
+				if (!flag_spb_options)
+					sprintf(service->svc_switches, "%s %s %s",
+							service->svc_switches, PASSWORD_SWITCH,
+							service->svc_enc_password);
+				else
+					sprintf(tmp_ptr, "%s %s %s", tmp_ptr, PASSWORD_SWITCH,
+							service->svc_enc_password);
+			}
+
+			if (flag_spb_options) {
+				gds__free(service->svc_switches);
+				service->svc_switches = tmp_ptr;
+			}
+		}
+	}
+	else
+		/* If svc_switches is not used -- call a command-line parsing utility */
+	if (!service->svc_switches)
+		conv_switches(spb_length, opt_switch_len, spb,
+					  &service->svc_switches);
+	else {
+		assert(service->svc_switches == NULL);
+	}
+/* All services except for get_ib_log require switches */
+	if (service->svc_switches == NULL && *spb != isc_action_svc_get_ib_log)
+		ERR_post(isc_bad_spb_form, 0);
+
+#ifndef SUPERSERVER
+	if (serv->serv_executable) {
+		gds__prefix(service_path, serv->serv_executable);
+		service->svc_flags = SVC_forked;
+		service_fork(service_path, service);
+	}
+
+#else
+
+/* Break up the command line into individual arguments. */
+	if (service->svc_switches) {
+		for (argc = 2, p = service->svc_switches; *p;) {
+			if (*p == ' ') {
+				argc++;
+				while (*p == ' ')
+					p++;
+			}
+			else {
+				if (*p == SVC_TRMNTR) {
+					while (*p++ && *p != SVC_TRMNTR);
+					assert(*p == SVC_TRMNTR);
+				}
+				p++;
+			}
+		}
+
+		service->svc_argc = argc;
+
+		arg = (TEXT **) gds__alloc((SLONG) ((argc + 1) * sizeof(TEXT *)));
+		/*
+		 * the service block can be reused hence free a memory from the
+		 * previous usage if any.
+		 */
+		if (service->svc_argv)
+			gds__free(service->svc_argv);
+		service->svc_argv = arg;
+		/* FREE: at SVC_detach() - Possible memory leak if ERR_post() occurs */
+		if (!arg)				/* NOMEM: */
+			ERR_post(isc_virmemexh, 0);
+
+		*arg++ = reinterpret_cast < TEXT * >(serv->serv_thd);
+		p = q = service->svc_switches;
+
+		while (*q == ' ')
+			q++;
+
+		while (*q) {
+			*arg = p;
+			while (*p = *q++) {
+				if (*p == ' ')
+					break;
+
+				if (*p == SVC_TRMNTR) {
+					*arg = ++p;	/* skip terminator */
+					while (*p = *q++)
+						/* If *q points to the last argument, then terminate the argument */
+						if ((*q == 0 || *q == ' ') && *p == SVC_TRMNTR) {
+							*p = '\0';
+							break;
+						}
+						else
+							p++;
+				}
+
+				if (*p == '\\' && *q == ' ') {
+					*p = ' ';
+					q++;
+				}
+				p++;
+			}
+			arg++;
+			if (!*p)
+				break;
+			*p++ = '\0';
+			while (*q == ' ')
+				q++;
+		}
+		*arg = NULL;
+	}
+
+/*
+ * the service block can be reused hence free a memory from the
+ * previous usage as well as init a status vector.
+ */
+
+	memset((void *) service->svc_status, 0,
+		   ISC_STATUS_LENGTH * sizeof(STATUS));
+
+	if (service->svc_stdout)
+		gds__free(service->svc_stdout);
+
+	service->svc_stdout = gds__alloc((SLONG) SVC_STDOUT_BUFFER_SIZE + 1);
+/* FREE: at SVC_detach() */
+	if (!service->svc_stdout)	/* NOMEM: */
+		ERR_post(isc_virmemexh, 0);
+
+	if (serv->serv_thd) {
+		SLONG count;
+#pragma FB_COMPILER_MESSAGE("Fix! Probable bug!")
+		EVENT evnt_ptr =
+			reinterpret_cast < EVENT > (&(service->svc_start_event));
+
+		THREAD_EXIT;
+		/* create an event for the service.  The event will be signaled once the
+		 * particular service has reached a point in which it can start to return
+		 * information to the client.  This will allow isc_service_start to
+		 * include in its status vector information about the service's ability to
+		 * start.  This is needed since gds__thread_start will almost always
+		 * succeed.
+		 */
+		ISC_event_init(evnt_ptr, 0, 0);
+		count = ISC_event_clear(evnt_ptr);
+
+		gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+						  (serv->serv_thd), service, 0, 0,
+						  (void *) &service->svc_handle);
+
+		/* check for the service being detached.  This will prevent the thread
+		 * from waiting infinitely if the client goes away
+		 */
+		while (!(service->svc_flags & SVC_detached)) {
+			if (ISC_event_wait
+				(1, &evnt_ptr, &count, 60 * 1000, (FPTR_VOID) 0, 0)) continue;
+			else;				/* the event was posted */
+			break;
+		}
+
+		ISC_event_fini(evnt_ptr);
+		THREAD_ENTER;
+	}
+	else
+		ERR_post(isc_svcnotdef, isc_arg_string,
+				 SVC_err_string(const_cast < char *>(serv->serv_name),
+								strlen(serv->serv_name)), 0);
+
+#endif /* SUPERSERVER */
+
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	return reinterpret_cast < void *>(reserved);
+}
+
+
+void SVC_read_ib_log(SVC service)
+{
+/**************************************
+ *
+ *      S V C _ r e a d _ i b _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *   Service function which reads the InterBase
+ *   log file into the service buffers.
+ *
+ **************************************/
+	IB_FILE *file;
+	TEXT name[MAXPATHLEN], buffer[100];
+	BOOLEAN svc_started = FALSE;
+#ifdef SUPERSERVER
+	STATUS *status;
+
+	status = service->svc_status;
+	*status++ = isc_arg_gds;
+#endif
+
+	gds__prefix(name, LOGFILE);
+	if ((file = ib_fopen(name, "r")) != NULL) {
+#ifdef SUPERSERVER
+		*status++ = SUCCESS;
+		*status++ = isc_arg_end;
+#endif
+		SVC_STARTED(service);
+		svc_started = TRUE;
+		while (!ib_feof(file) && !ib_ferror(file)) {
+			ib_fgets(buffer, sizeof(buffer), file);
+#ifdef SUPERSERVER
+			SVC_fprintf(service, "%s", buffer);
+#else
+			service_put(service, buffer, sizeof(buffer));
+#endif
+		}
+	}
+
+	if (!file || file && ib_ferror(file)) {
+#ifdef SUPERSERVER
+		*status++ = isc_sys_request;
+		if (!file) {
+			SVC_STATUS_ARG(status, isc_arg_string, "ib_fopen");
+		}
+		else {
+			SVC_STATUS_ARG(status, isc_arg_string, "ib_fgets");
+		}
+		*status++ = SYS_ARG;
+		*status++ = errno;
+		*status++ = isc_arg_end;
+#endif
+		if (!svc_started)
+			SVC_STARTED(service);
+	}
+
+	if (file)
+		ib_fclose(file);
+
+	service->svc_handle = 0;
+	if (service->svc_service->in_use != NULL)
+		*(service->svc_service->in_use) = FALSE;
+
+#ifdef SUPERSERVER
+	SVC_finish(service, SVC_finished);
+#else
+	SVC_cleanup(service);
+#endif
+}
+
+
+static void get_options(
+						UCHAR * spb,
+						USHORT spb_length, TEXT * scratch, SPB * options)
+{
+/**************************************
+ *
+ *	g e t _ o p t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse service parameter block picking up options and things.
+ *
+ **************************************/
+	UCHAR *p, *end_spb;
+	USHORT l;
+
+	MOVE_CLEAR(options, (SLONG) sizeof(struct spb));
+	p = spb;
+	end_spb = p + spb_length;
+
+	if (p < end_spb && (*p != isc_spb_version1 && *p != isc_spb_version))
+		ERR_post(isc_bad_spb_form, isc_arg_gds, isc_wrospbver, 0);
+
+	while (p < end_spb)
+		switch (*p++) {
+		case isc_spb_version1:
+			options->spb_version = isc_spb_version1;
+			break;
+
+		case isc_spb_version:
+			options->spb_version = *p++;
+			break;
+
+		case isc_spb_sys_user_name:
+			options->spb_sys_user_name = get_string_parameter(&p, &scratch);
+			break;
+
+		case isc_spb_user_name:
+			options->spb_user_name = get_string_parameter(&p, &scratch);
+			break;
+
+		case isc_spb_password:
+			options->spb_password = get_string_parameter(&p, &scratch);
+			break;
+
+		case isc_spb_password_enc:
+			options->spb_password_enc = get_string_parameter(&p, &scratch);
+			break;
+
+		case isc_spb_command_line:
+			options->spb_command_line = get_string_parameter(&p, &scratch);
+			break;
+
+		default:
+			l = *p++;
+			p += l;
+		}
+}
+
+
+static TEXT *get_string_parameter(UCHAR ** spb_ptr, TEXT ** opt_ptr)
+{
+/**************************************
+ *
+ *	g e t _ s t r i n g _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a string valued parameter, copy it to a running temp,
+ *	and return pointer to copied string.
+ *
+ **************************************/
+	UCHAR *spb;
+	TEXT *opt;
+	USHORT l;
+
+	opt = *opt_ptr;
+	spb = *spb_ptr;
+
+	if (l = *spb++)
+		do
+			*opt++ = *spb++;
+		while (--l);
+
+	*opt++ = 0;
+	*spb_ptr = spb;
+	spb = (UCHAR *) * opt_ptr;
+	*opt_ptr = opt;
+
+	return (TEXT *) spb;
+}
+
+
+static void io_error(
+					 TEXT * string,
+					 SLONG status,
+					 TEXT * filename, STATUS operation, BOOLEAN reenter_flag)
+{
+/**************************************
+ *
+ *	i o _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report an I/O error.  If the reenter_flag
+ *	is TRUE, re-enter the scheduler.
+ *
+ **************************************/
+
+#ifdef MULTI_THREAD
+	if (reenter_flag)
+		THREAD_ENTER;
+#endif
+
+	ERR_post(isc_io_error, isc_arg_string, string, isc_arg_string, filename,
+			 isc_arg_gds, operation, SYS_ERR, status, 0);
+}
+
+
+#ifdef WIN_NT
+#ifndef SUPERSERVER
+#define PIPE_OPERATIONS
+static void service_close(SVC service)
+{
+/**************************************
+ *
+ *	s e r v i c e _ c l o s e		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown the connection to a service.
+ *	Simply close the input and output pipes.
+ *
+ **************************************/
+	CloseHandle((HANDLE) service->svc_input);
+	CloseHandle((HANDLE) service->svc_output);
+	CloseHandle((HANDLE) service->svc_handle);
+}
+
+
+static void service_fork(TEXT * service_path, SVC service)
+{
+/**************************************
+ *
+ *	s e r v i c e _ f o r k		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Startup a service.
+ *
+ **************************************/
+	TEXT *argv_data, argv_data_buf[512], *p, *q, *arg;
+	USHORT len, quote_flag, user_quote;
+	HANDLE my_input, my_output, pipe_input, pipe_output, pipe_error;
+	SECURITY_ATTRIBUTES attr;
+	STARTUPINFO start_crud;
+	PROCESS_INFORMATION pi;
+	USHORT ret;
+	BOOLEAN svc_flag;
+	SLONG status;
+	BOOLEAN windows_nt = ISC_is_WinNT();
+
+/* Only Create the pipes on Windows NT.  There is a bug on Windows
+   95 that prohibits these handles from being converted by the
+   child process
+*/
+	my_input = pipe_output = my_output = pipe_input = INVALID_HANDLE_VALUE;
+	if (windows_nt) {
+		/* Set up input and output pipes and make them the ib_stdin, ib_stdout,
+		   and ib_stderr of the forked process. */
+
+		attr.nLength = sizeof(SECURITY_ATTRIBUTES);
+		attr.bInheritHandle = TRUE;
+		attr.lpSecurityDescriptor = NULL;
+
+		if (!CreatePipe(&my_input, &pipe_output, &attr, 0) ||
+			!CreatePipe(&pipe_input, &my_output, &attr, 0) ||
+			!DuplicateHandle(GetCurrentProcess(), pipe_output,
+							 GetCurrentProcess(), &pipe_error, 0, TRUE,
+							 DUPLICATE_SAME_ACCESS)) {
+			status = GetLastError();
+			CloseHandle(my_input);
+			CloseHandle(pipe_output);
+			CloseHandle(my_output);
+			CloseHandle(pipe_input);
+			ERR_post(isc_sys_request, isc_arg_string,
+					 (my_output !=
+					  INVALID_HANDLE_VALUE) ? "CreatePipe" :
+					 "DuplicateHandle", SYS_ERR, status, 0);
+		}
+	}
+	else {
+		/* Create a temporary file and get the OS handle to
+		   the file created.  This handle will be used in subsequent
+		   calls to the windows API functions for working with the files
+		 */
+		int tmp;
+		char *fname;
+		char tmpPath[MAX_PATH_LENGTH];
+
+		GetTempPath(MAX_PATH_LENGTH, tmpPath);
+		fname = _tempnam(tmpPath, "ibsvc");
+		tmp =
+			_open(fname, _O_RDWR | _O_CREAT | _O_TEMPORARY,
+				  _S_IREAD | _S_IWRITE);
+		my_input = _get_osfhandle(tmp);
+
+		fname = _tempnam(tmpPath, "ibsvc");
+		tmp =
+			_open(fname, _O_RDWR | _O_CREAT | _O_TEMPORARY,
+				  _S_IREAD | _S_IWRITE);
+		my_output = _get_osfhandle(tmp);
+
+		if (my_input == INVALID_HANDLE_VALUE ||
+			my_output == INVALID_HANDLE_VALUE) {
+			CloseHandle(my_input);
+			CloseHandle(my_output);
+			ERR_post(isc_sys_request, isc_arg_string, "CreateFile", SYS_ERR,
+					 errno, 0);
+		}
+	}
+
+/* Make sure we have buffers that are large enough to hold the number
+   and size of the command line arguments.  Add some extra space for
+   the pipe's file handles. */
+
+	len = strlen(service_path) + strlen(service->svc_switches) + 16;
+	for (p = service->svc_switches; *p;)
+		if (*p++ == ' ')
+			len += 2;
+	if (len > sizeof(argv_data_buf))
+		argv_data = gds__alloc((SLONG) len);
+	else
+		argv_data = argv_data_buf;
+/* FREE: at procedure return */
+	if (!argv_data)				/* NOMEM: */
+		ERR_post(isc_virmemexh, 0);
+
+/* Create a command line. */
+
+	svc_flag = FALSE;
+
+	for (p = argv_data, q = service_path; *p = *q++; p++);
+
+	q = service->svc_switches;
+	if (*q)
+		*p++ = ' ';
+
+	while (*q == ' ')
+		q++;
+	user_quote = FALSE;
+	while (*q) {
+		arg = p;
+		*p++ = '\"';
+		quote_flag = FALSE;
+		while (((*p = *q++) && *p != ' ') || user_quote) {
+			if (*p == '\\' && *q == ' ' && !user_quote) {
+				*p = ' ';
+				q++;
+				quote_flag = TRUE;
+			}
+			if (*p == '"') {
+				user_quote = !user_quote;
+				p++;
+				continue;
+			}
+			p++;
+		}
+		if (!quote_flag) {
+			*arg = ' ';
+			if (!strncmp(arg, " -svc", p - arg)) {
+				if (windows_nt)
+					sprintf(p, "_re %d %d %d", pipe_input, pipe_output,
+							pipe_error);
+				else
+					sprintf(p, "_re %d %d %d", my_output, my_input,
+							my_output);
+				p += strlen(p);
+				*p = q[-1];
+				svc_flag = TRUE;
+			}
+		}
+		else {
+			p[1] = p[0];
+			*p++ = '\"';
+		}
+		if (!*p)
+			break;
+		*p++ = ' ';
+		while (*q == ' ')
+			q++;
+	}
+
+	THREAD_EXIT;
+
+	start_crud.cb = sizeof(STARTUPINFO);
+	start_crud.lpReserved = NULL;
+	start_crud.lpReserved2 = NULL;
+	start_crud.cbReserved2 = 0;
+	start_crud.lpDesktop = NULL;
+	start_crud.lpTitle = NULL;
+	start_crud.dwFlags = STARTF_USESTDHANDLES;
+	start_crud.hStdInput = my_output;
+	start_crud.hStdOutput = my_input;
+	start_crud.hStdError = my_input;
+
+	if (!(ret = CreateProcess(NULL,
+							  argv_data,
+							  NULL,
+							  NULL,
+							  TRUE,
+							  NORMAL_PRIORITY_CLASS | DETACHED_PROCESS,
+							  NULL,
+							  NULL,
+							  &start_crud, &pi))) status = GetLastError();
+
+	if (windows_nt) {
+		CloseHandle(pipe_input);
+		CloseHandle(pipe_output);
+		CloseHandle(pipe_error);
+	}
+	THREAD_ENTER;
+
+	if (argv_data != argv_data_buf)
+		gds__free((SLONG *) argv_data);
+
+	if (!ret)
+		ERR_post(isc_sys_request, isc_arg_string, "CreateProcess", SYS_ERR,
+				 status, 0);
+
+	DuplicateHandle(GetCurrentProcess(), pi.hProcess,
+					GetCurrentProcess(), (PHANDLE) & service->svc_handle,
+					0, TRUE, DUPLICATE_SAME_ACCESS);
+
+	CloseHandle(pi.hThread);
+	CloseHandle(pi.hProcess);
+
+	service->svc_input = (void *) my_input;
+	service->svc_output = (void *) my_output;
+}
+static void service_get(
+						SVC service,
+						SCHAR * buffer,
+						USHORT length,
+						USHORT flags, USHORT timeout, USHORT * return_length)
+{
+/**************************************
+ *
+ *      s e r v i c e _ g e t           ( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get input from a service.  It is assumed
+ *      that we have checked out of the scheduler.
+ *
+ **************************************/
+	SHORT iter;
+	SLONG n = 0L;
+	SCHAR *buf = buffer;
+	USHORT bytes_read;
+/* Kludge for PeekNamedPipe to work on Win NT 3.5 */
+	UCHAR temp_buf[600];
+	SLONG temp_len;
+	BOOLEAN windows_nt = ISC_is_WinNT();
+
+	*return_length = 0;
+	service->svc_flags &= ~SVC_timeout;
+	IS_SERVICE_RUNNING(service)
+
+		if (timeout) {
+		/* If a timeout period was given, check every .1 seconds to see if
+		   input is available from the pipe.  When something shows up, read
+		   what's available until all data has been read, or timeout occurs.  
+		   Otherwise, set the timeout flag and return.
+		   Fall out of the loop if a BROKEN_PIPE error occurs. 
+		 */
+		iter = timeout * 10;
+		while ((iter--) && ((buf - buffer) < length)) {
+			/* PeekNamedPipe sometimes return wrong &n, need to get real
+			   length from &temp_len until it works */
+			if (windows_nt
+				&& !PeekNamedPipe((HANDLE) service->svc_input, temp_buf, 600,
+								  &temp_len, &n, NULL)) {
+				if (GetLastError() == ERROR_BROKEN_PIPE) {
+					service->svc_flags |= SVC_finished;
+					break;
+				}
+				io_error("PeekNamedPipe", GetLastError(), "service pipe",
+						 isc_io_read_err, TRUE);
+			}
+			else {
+				DWORD dwCurrentFilePosition;
+				/* Set the file pointer to the beginning of the file if we are at the end of the
+				   file. */
+				temp_len = GetFileSize(service->svc_input, NULL);
+				dwCurrentFilePosition =
+					SetFilePointer(service->svc_input, 0, NULL, FILE_CURRENT);
+
+				if (temp_len && temp_len == dwCurrentFilePosition)
+					SetFilePointer(service->svc_input, 0, NULL, FILE_BEGIN);
+			}
+
+			if (temp_len) {
+				/* If data is available, read as much as will fit in buffer */
+				temp_len = MIN(temp_len, length - (buf - buffer));
+				bytes_read =
+					service_read(service, buf, (USHORT) temp_len, flags);
+				buf += bytes_read;
+
+				if (bytes_read < temp_len
+					|| service->svc_flags & SVC_finished) {
+					/* We stopped w/out reading full length, must have hit
+					   a newline or special character. */
+					break;
+				}
+			}
+			else {
+				/* PeekNamedPipe() is not returning ERROR_BROKEN_PIPE in WIN95. So,
+				   we are going to use WaitForSingleObject() to check if the process
+				   on the other end of the pipe is still active. */
+				if (!windows_nt &&
+					WaitForSingleObject((HANDLE) service->svc_handle,
+										1) != WAIT_TIMEOUT) {
+					service->svc_flags |= SVC_finished;
+					break;
+				}
+
+				/* No data, so wait a while */
+				Sleep(100);
+			}
+		}
+		/* If we timed out, set the appropriate flags */
+		if (iter < 0 && !(service->svc_flags & SVC_finished))
+			service->svc_flags |= SVC_timeout;
+	}
+	else {
+		buf += service_read(service, buf, length, flags);
+	}
+
+	*return_length = buf - buffer;
+}
+
+
+static void service_put(SVC service, SCHAR * buffer, USHORT length)
+{
+/**************************************
+ *
+ *	s e r v i c e _ p u t		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send output to a service.  It is assumed
+ *	that we have checked out of the scheduler.
+ *
+ **************************************/
+	SLONG n;
+
+	IS_SERVICE_RUNNING(service)
+
+		while (length) {
+		if (!WriteFile((HANDLE) service->svc_output, buffer, (SLONG) length,
+					   &n, NULL))
+			io_error("WriteFile", GetLastError(), "service pipe",
+					 isc_io_write_err, TRUE);
+		length -= (USHORT) n;
+		buffer += n;
+	}
+
+	if (!FlushFileBuffers((HANDLE) service->svc_output))
+		io_error("FlushFileBuffers", GetLastError(), "service pipe",
+				 isc_io_write_err, TRUE);
+}
+
+
+static USHORT service_read(
+						   SVC service,
+						   SCHAR * buffer, USHORT length, USHORT flags)
+{
+/**************************************
+ *
+ *      s e r v i c e _ r e a d         ( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Read data from the named pipe.
+ *      Returns true if there is more data to be
+ *      read, false if we found the newline or
+ *      special character.
+ *
+ **************************************/
+	SLONG len, n = 0L;
+	SCHAR *buf;
+
+	buf = buffer;
+
+	while (length) {
+		n = 0;
+		len = (flags & GET_BINARY) ? length : 1;
+		if (ReadFile((HANDLE) service->svc_input, buf, len, &n, NULL) ||
+			GetLastError() == ERROR_BROKEN_PIPE) {
+			if (!n) {
+				service->svc_flags |= SVC_finished;
+				break;
+			}
+			length -= (USHORT) n;
+			buf += n;
+			if (((flags & GET_LINE) && buf[-1] == '\n') ||
+				(!(flags & GET_BINARY) && buf[-1] == '\001'))
+				break;
+		}
+		else
+			io_error("ReadFile", GetLastError(), "service pipe",
+					 isc_io_read_err, TRUE);
+	}
+
+	return buf - buffer;
+}
+#endif /* ifndef SUPERSERVER */
+#endif /* WIN_NT */
+
+
+#ifdef SUPERSERVER
+#define PIPE_OPERATIONS
+
+static USHORT service_add_one(USHORT i)
+{
+/**************************************
+ *
+ *	s e r v i c e _ a d d _ o n e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	return ((i % SVC_STDOUT_BUFFER_SIZE) + 1);
+}
+
+
+static USHORT service_empty(SVC service)
+{
+/**************************************
+ *
+ *	s e r v i c e _ e m p t y
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	if (service_add_one(service->svc_stdout_tail) == service->svc_stdout_head)
+		return (1);
+	else
+		return (0);
+}
+
+
+static USHORT service_full(SVC service)
+{
+/**************************************
+ *
+ *	s e r v i c e _ f u l l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	if (service_add_one(service_add_one(service->svc_stdout_tail)) ==
+		service->svc_stdout_head) return (1);
+	else
+		return (0);
+}
+
+
+static UCHAR service_dequeue_byte(SVC service)
+{
+/**************************************
+ *
+ *	s e r v i c e _ d e q u e u e _ b y t e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	UCHAR ch;
+
+	ch = service->svc_stdout[service->svc_stdout_head];
+	service->svc_stdout_head = service_add_one(service->svc_stdout_head);
+
+	return (ch);
+}
+
+
+static void service_enqueue_byte(UCHAR ch, SVC service)
+{
+/**************************************
+ *
+ *	s e r v i c e _ e n q u e u e _ b y t e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+/* Wait for space in buffer while service is not detached. */
+	while (service_full(service) && !(service->svc_flags & SVC_detached))
+		THREAD_YIELD;
+
+/* Ensure that service is not detached. */
+	if (!(service->svc_flags & SVC_detached)) {
+		service->svc_stdout_tail = service_add_one(service->svc_stdout_tail);
+		service->svc_stdout[service->svc_stdout_tail] = ch;
+	}
+}
+
+
+static void service_fork(void (*service_executable) (), SVC service)
+{
+/**************************************
+ *
+ *	s e r v i c e _ f o r k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Startup a service.
+ *
+ **************************************/
+	USHORT argc;
+	TEXT **arg, *p, *q;
+
+	for (argc = 2, p = service->svc_switches; *p;)
+		if (*p++ == ' ')
+			argc++;
+
+	service->svc_argc = argc;
+
+	arg = (TEXT **) gds__alloc((SLONG) ((argc + 1) * sizeof(TEXT *)));
+	service->svc_argv = arg;
+/* FREE: at SVC_detach() - Possible memory leak if ERR_post() occurs */
+	if (!arg)					/* NOMEM: */
+		ERR_post(isc_virmemexh, 0);
+
+	*arg++ = reinterpret_cast < TEXT * >(service_executable);
+
+/* Break up the command line into individual arguments. */
+
+	p = q = service->svc_switches;
+
+	while (*q == ' ')
+		q++;
+	while (*q) {
+		*arg++ = p;
+		while ((*p = *q++) && *p != ' ') {
+			if (*p == '\\' && *q == ' ') {
+				*p = ' ';
+				q++;
+			}
+			p++;
+		}
+		if (!*p)
+			break;
+		*p++ = 0;
+		while (*q == ' ')
+			q++;
+	}
+	*arg = NULL;
+
+	service->svc_stdout = gds__alloc((SLONG) SVC_STDOUT_BUFFER_SIZE + 1);
+/* FREE: at SVC_detach() */
+	if (!service->svc_stdout)	/* NOMEM: */
+		ERR_post(isc_virmemexh, 0);
+
+	THREAD_EXIT;
+	gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+					  (service_executable), service, 0, 0,
+					  (void *) &service->svc_handle);
+	THREAD_ENTER;
+}
+
+
+static void service_get(
+						SVC service,
+						SCHAR * buffer,
+						USHORT length,
+						USHORT flags, USHORT timeout, USHORT * return_length)
+{
+/**************************************
+ *
+ *	s e r v i c e _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int ch = 'Z';
+	ULONG elapsed_time;
+#ifdef NETWARE_386
+	ULONG start_time;
+	ULONG end_time;
+	ULONG elapsed_seconds;
+	ULONG elapsed_tenths;
+#endif
+#ifdef WIN_NT
+	time_t start_time, end_time;
+#else
+	struct timeval start_time, end_time;
+#endif
+
+#ifdef NETWARE_386
+	start_time = GetCurrentTicks();
+#else
+#ifdef WIN_NT
+	time(&start_time);
+#else
+	gettimeofday(&start_time, NULL);
+#endif
+#endif /* NETWARE */
+	*return_length = 0;
+	service->svc_flags &= ~SVC_timeout;
+
+	while (length) {
+		if (service_empty(service))
+			THREAD_YIELD;
+#ifdef NETWARE_386
+		end_time = GetCurrentTicks();
+		elapsed_time = end_time - start_time;
+		TicksToSeconds(elapsed_time, &elapsed_seconds, &elapsed_tenths);
+#else
+#ifdef WIN_NT
+		time(&end_time);
+		elapsed_time = end_time - start_time;
+#else
+		gettimeofday(&end_time, NULL);
+		elapsed_time = end_time.tv_sec - start_time.tv_sec;
+#endif
+#endif /* NETWARE */
+
+		if ((timeout) && (elapsed_time >= timeout)) {
+			service->svc_flags &= SVC_timeout;
+			return;
+		}
+
+		while (!service_empty(service) && length > 0) {
+			ch = service_dequeue_byte(service);
+			length--;
+
+			/* If returning a line of information, replace all new line
+			 * characters with a space.  This will ensure that the output is
+			 * consistent when returning a line or to eof
+			 */
+			if ((flags & GET_LINE) && (ch == '\n')) {
+				buffer[(*return_length)++] = ' ';
+				return;
+			}
+			else
+				buffer[(*return_length)++] = ch;
+		}
+
+		if (service_empty(service) && (service->svc_flags & SVC_finished))
+			return;
+	}
+}
+
+
+static void service_put(SVC service, SCHAR * buffer, USHORT length)
+{
+/**************************************
+ *
+ *	s e r v i c e _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send output to a service.  It is assumed
+ *	that we have checked out of the scheduler.
+ *
+ **************************************/
+
+/* Nothing */
+}
+#endif /* SUPERSERVER */
+
+
+#ifndef SUPERSERVER
+#ifndef PIPE_OPERATIONS
+static void service_close(SVC service)
+{
+/**************************************
+ *
+ *	s e r v i c e _ c l o s e		( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown the connection to a service.
+ *	Simply close the input and output pipes.
+ *
+ **************************************/
+
+	ib_fclose((IB_FILE *) service->svc_input);
+	ib_fclose((IB_FILE *) service->svc_output);
+}
+
+
+static void service_fork(TEXT * service_path, SVC service)
+{
+/**************************************
+ *
+ *	s e r v i c e _ f o r k		( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Startup a service.
+ *
+ **************************************/
+	int pair1[2], pair2[2], pid;
+	struct stat stat_buf;
+	TEXT **argv, *argv_buf[20], **arg, *argv_data, argv_data_buf[512], *p, *q;
+	USHORT argc, len;
+
+	if (pipe(pair1) < 0 || pipe(pair2) < 0)
+		io_error("pipe", errno, "", isc_io_create_err, FALSE);
+
+/* Probe service executable to see it if plausibly exists. */
+
+	if (statistics(service_path, &stat_buf) == -1)
+		io_error("stat", errno, service_path, isc_io_access_err, FALSE);
+
+/* Make sure we have buffers that are large enough to hold the number
+   and size of the command line arguments. */
+
+	for (argc = 2, p = service->svc_switches; *p;)
+		if (*p++ == ' ')
+			argc++;
+	if (argc > sizeof(argv_buf) / sizeof(TEXT *))
+		argv = (TEXT **) gds__alloc((SLONG) (argc * sizeof(TEXT *)));
+	else
+		argv = argv_buf;
+/* FREE: at procedure return */
+	if (!argv)					/* NOMEM: */
+		ERR_post(isc_virmemexh, 0);
+
+	len = strlen(service->svc_switches) + 1;
+	if (len > sizeof(argv_data_buf))
+		argv_data = (TEXT *) gds__alloc((SLONG) len);
+	else
+		argv_data = argv_data_buf;
+/* FREE: at procedure return */
+	if (!argv_data) {			/* NOMEM: */
+		if (argv != argv_buf)
+			gds__free(argv);
+		ERR_post(isc_virmemexh, 0);
+	}
+
+/* Break up the command line into individual arguments. */
+
+	arg = argv;
+	*arg++ = service_path;
+
+	p = argv_data;
+	q = service->svc_switches;
+
+	while (*q == ' ')
+		q++;
+	while (*q) {
+		*arg++ = p;
+		while ((*p = *q++) && *p != ' ') {
+			if (*p == '\\' && *q == ' ') {
+				*p = ' ';
+				q++;
+			}
+			p++;
+		}
+		if (!*p)
+			break;
+		*p++ = 0;
+		while (*q == ' ')
+			q++;
+	}
+	*arg = NULL;
+
+/* At last we can fork the sub-process.  If the fork succeeds, repeat
+   it so that we don't have defunct processes hanging around. */
+
+	THREAD_EXIT;
+
+	switch (pid = vfork()) {
+	case -1:
+		THREAD_ENTER;
+		if (argv != argv_buf)
+			gds__free(argv);
+		if (argv_data != argv_data_buf)
+			gds__free(argv_data);
+		ERR_post(isc_sys_request, isc_arg_string, "vfork", SYS_ERR, errno, 0);
+		break;
+
+	case 0:
+		if (vfork() != 0)
+			_exit(FINI_OK);
+
+		close(pair1[0]);
+		close(pair2[1]);
+		if (pair2[0] != 0) {
+			close(0);
+			dup(pair2[0]);
+			close(pair2[0]);
+		}
+		if (pair1[1] != 1) {
+			close(1);
+			dup(pair1[1]);
+			close(pair1[1]);
+		}
+		close(2);
+		dup(1);
+		execvp(argv[0], argv);
+		_exit(FINI_ERROR);
+	}
+
+	close(pair1[1]);
+	close(pair2[0]);
+
+	waitpid(pid, NULL, 0);
+
+	THREAD_ENTER;
+
+	if (argv != argv_buf)
+		gds__free(argv);
+	if (argv_data != argv_data_buf)
+		gds__free(argv_data);
+
+	if (!(service->svc_input = (void *) ib_fdopen(pair1[0], "r")) ||
+		!(service->svc_output = (void *) ib_fdopen(pair2[1], "w")))
+		io_error("ib_fdopen", errno, "service path", isc_io_access_err,
+				 FALSE);
+}
+
+
+static void service_get(
+						SVC service,
+						SCHAR * buffer,
+						USHORT length,
+						USHORT flags, USHORT timeout, USHORT * return_length)
+{
+/**************************************
+ *
+ *	s e r v i c e _ g e t		( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get input from a service.  It is assumed
+ *	that we have checked out of the scheduler.
+ *
+ **************************************/
+#ifdef SYSV_SIGNALS
+	SLONG sv_timr;
+	void *sv_hndlr;
+#else
+	struct itimerval sv_timr;
+#ifndef SIGACTION_SUPPORTED
+	struct sigvec sv_hndlr;
+#else
+	struct sigaction sv_hndlr;
+#endif
+#endif
+	int c;
+	USHORT timed_out;
+	SCHAR *buf;
+	SSHORT iter = 0;
+	int errno_save;
+
+	IS_SERVICE_RUNNING(service)
+
+		errno = 0;
+	service->svc_flags &= ~SVC_timeout;
+	buf = buffer;
+
+	if (timeout) {
+		ISC_set_timer((SLONG) (timeout * 100000), timeout_handler, service,
+					  &sv_timr, &sv_hndlr);
+		iter = timeout * 10;
+	}
+
+	while (!timeout || iter) {
+		if ((c = ib_getc((IB_FILE *) service->svc_input)) != EOF) {
+			*buf++ = c;
+			if (!(--length))
+				break;
+			if (((flags & GET_LINE) && c == '\n') ||
+				(!(flags & GET_BINARY) && c == '\001'))
+				break;
+		}
+		else if (!errno) {
+			service->svc_flags |= SVC_finished;
+			break;
+		}
+		else if (SYSCALL_INTERRUPTED(errno)) {
+			if (timeout)
+				--iter;
+		}
+		else {
+			errno_save = errno;
+			if (timeout)
+				ISC_reset_timer(timeout_handler, service, &sv_timr,
+								&sv_hndlr);
+			io_error("ib_getc", errno_save, "service pipe", isc_io_read_err,
+					 TRUE);
+		}
+	}
+
+	if (timeout) {
+		ISC_reset_timer(timeout_handler, service, &sv_timr, &sv_hndlr);
+		if (!iter)
+			service->svc_flags |= SVC_timeout;
+	}
+
+	*return_length = buf - buffer;
+}
+
+
+static void service_put(SVC service, SCHAR * buffer, USHORT length)
+{
+/**************************************
+ *
+ *	s e r v i c e _ p u t		( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send output to a service.  It is assumed
+ *	that we have checked out of the scheduler.
+ *
+ **************************************/
+
+	IS_SERVICE_RUNNING(service)
+
+		while (length--) {
+		if (ib_putc(*buffer, (IB_FILE *) service->svc_output) != EOF)
+			buffer++;
+		else if (SYSCALL_INTERRUPTED(errno)) {
+			ib_rewind((IB_FILE *) service->svc_output);
+			length++;
+		}
+		else
+			io_error("ib_putc", errno, "service pipe", isc_io_write_err,
+					 TRUE);
+	}
+
+	if (ib_fflush((IB_FILE *) service->svc_output) == EOF)
+		io_error("ib_fflush", errno, "service pipe", isc_io_write_err, TRUE);
+}
+#endif /* ifndef PIPE_OPERATIONS */
+#endif /* ifndef SUPERSERVER */
+
+
+static void timeout_handler(SVC service)
+{
+/**************************************
+ *
+ *	t i m e o u t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Called when no input has been received
+ *	through a pipe for a specificed period
+ *	of time.
+ *
+ **************************************/
+}
+
+
+void SVC_cleanup(SVC service)
+{
+/**************************************
+ *
+ *	S V C _ c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cleanup memory used by service.
+ *
+ **************************************/
+
+#ifndef SUPERSERVER
+/* If we forked an executable, close down it's pipes */
+
+	if (service->svc_flags & SVC_forked)
+		service_close(service);
+#else
+
+	if (service->svc_stdout) {
+		gds__free((SLONG *) service->svc_stdout);
+		service->svc_stdout = NULL;
+	}
+	if (service->svc_argv) {
+		gds__free((SLONG *) service->svc_argv);
+		service->svc_argv = NULL;
+	}
+#endif
+
+	if (service->svc_resp_buf)
+		gds__free((SLONG *) service->svc_resp_buf);
+
+	if (service->svc_switches != NULL)
+		gds__free((SLONG *) service->svc_switches);
+
+	if (service->svc_status != NULL)
+		gds__free((SLONG *) service->svc_status);
+
+	gds__free((SLONG *) service);
+}
+
+
+void SVC_finish(SVC service, USHORT flag)
+{
+/**************************************
+ *
+ *	S V C _ f i n i s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	o Set the flag (either SVC_finished for the main service thread or
+ *	  SVC_detached for the client thread).
+ *	o If both main thread and client thread are completed that is main
+ *	  thread is finished and client is detached then free memory
+ *	  used by service.
+ *
+ **************************************/
+
+	if (!svc_initialized) {
+		THD_MUTEX_INIT(svc_mutex);
+		svc_initialized = TRUE;
+	}
+
+	THD_MUTEX_LOCK(svc_mutex);
+	if (service && ((flag == SVC_finished) || (flag == SVC_detached))) {
+		service->svc_flags |= flag;
+		if ((service->svc_flags & SVC_finished) &&
+			(service->svc_flags & SVC_detached)) SVC_cleanup(service);
+		else {
+			if (service->svc_flags & SVC_finished) {
+				service->svc_flags &= ~SVC_thd_running;
+				service->svc_handle = 0;
+			}
+		}
+	}
+	THD_MUTEX_UNLOCK(svc_mutex);
+}
+
+
+static void conv_switches(
+						  USHORT spb_length,
+						  USHORT opt_switch_len,
+						  SCHAR * spb, TEXT ** switches)
+{
+/**************************************
+ *
+ *	c o n v _ s w i t c h e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert spb flags to utility switches.
+ *
+ **************************************/
+	USHORT total;
+	TEXT *p;
+
+	p = spb;
+
+	if (*p < isc_action_min || *p > isc_action_max)
+		return;					/* error action not defined */
+
+/* Calculate the total length */
+	if ((total = process_switches(spb_length, p, (TEXT *) NULL)) == 0)
+		return;
+
+	*switches =
+		(TEXT *) gds__alloc(total + opt_switch_len +
+							sizeof(SERVICE_THD_PARAM) + 1);
+/* NOMEM: return error */
+	if (!*switches)
+		ERR_post(isc_virmemexh, 0);
+
+	strcpy(*switches, SERVICE_THD_PARAM);
+	strcat(*switches, " ");
+	process_switches(spb_length, p,
+					 *switches + strlen(SERVICE_THD_PARAM) + 1);
+	return;
+}
+
+
+static TEXT *find_switch(int in_spb_sw, IN_SW_TAB table)
+{
+/**************************************
+ *
+ *      f i n d _ s w i t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	IN_SW_TAB in_sw_tab;
+
+	for (in_sw_tab = table; in_sw_tab->in_sw_name; in_sw_tab++) {
+		if (in_spb_sw == in_sw_tab->in_spb_sw)
+			return in_sw_tab->in_sw_name;
+	}
+
+	return ((TEXT *) NULL);
+}
+
+
+static USHORT process_switches(
+							   USHORT spb_length,
+							   SCHAR * spb, TEXT * switches)
+{
+/**************************************
+ *
+ *      p r o c e s s _ s w i t c h e s
+ *
+ **************************************
+ *
+ *Functional description
+ *   Loop through the appropriate switch table
+ *   looking for the text for the given command switch.
+ *
+ *   Calling this function with switches = NULL returns
+ *   the number of bytes to allocate for the switches and
+ *   parameters.
+ *
+ **************************************/
+	USHORT len, total;
+	TEXT *p, *sw;
+	ISC_USHORT svc_action;
+	BOOLEAN found = FALSE, lic_key = FALSE, lic_id = FALSE;
+
+	if (spb_length == 0)
+		return 0;
+
+	p = spb;
+	len = spb_length;
+	sw = switches;
+
+	svc_action = *p;
+
+	if (len > 1) {
+		++p;
+		--len;
+	}
+
+	total = 0;					/* total length of the command line */
+
+	while (len > 0) {
+		switch (svc_action) {
+		case isc_action_svc_delete_user:
+		case isc_action_svc_display_user:
+			if (!found) {
+				if (spb != p) {
+					--p;
+					++len;
+				}
+				assert(spb == p);
+				if (!get_action_svc_parameter(&p, gsec_action_in_sw_table,
+											  &sw, &total, &len))
+					return 0;
+				else {
+					found = TRUE;
+					/* in case of "display all users" the spb buffer contains 
+					   nothing but isc_action_svc_display_user */
+					if (len == 0)
+						break;
+				}
+			}
+
+			switch (*p) {
+			case isc_spb_sec_username:
+				++p;
+				--len;
+				get_action_svc_string(&p, &sw, &total, &len);
+				break;
+
+			default:
+				return 0;
+				break;
+			}
+			break;
+
+		case isc_action_svc_add_user:
+		case isc_action_svc_modify_user:
+			if (!found) {
+				if (spb != p) {
+					--p;
+					++len;
+				}
+				assert(spb == p);
+				if (!get_action_svc_parameter(&p, gsec_action_in_sw_table,
+											  &sw, &total, &len))
+					return 0;
+				else {
+					found = TRUE;
+					if (*p != isc_spb_sec_username) {
+						/* unexpected service parameter block:
+						   expected %d, encountered %d */
+						ERR_post(isc_unexp_spb_form, isc_arg_string,
+								 SVC_err_string(SPB_SEC_USERNAME,
+												strlen(SPB_SEC_USERNAME)), 0);
+					}
+				}
+			}
+
+			switch (*p) {
+			case isc_spb_sec_userid:
+			case isc_spb_sec_groupid:
+				if (!get_action_svc_parameter(&p, gsec_in_sw_table,
+											  &sw, &total, &len))
+					return 0;
+				get_action_svc_data(&p, &sw, &total, &len);
+				break;
+
+			case isc_spb_sec_username:
+				++p;
+				--len;
+				get_action_svc_string(&p, &sw, &total, &len);
+				break;
+			case isc_spb_sql_role_name:
+			case isc_spb_sec_password:
+			case isc_spb_sec_groupname:
+			case isc_spb_sec_firstname:
+			case isc_spb_sec_middlename:
+			case isc_spb_sec_lastname:
+				if (!get_action_svc_parameter(&p, gsec_in_sw_table,
+											  &sw, &total, &len))
+					return 0;
+				get_action_svc_string(&p, &sw, &total, &len);
+				break;
+
+			default:
+				return 0;
+				break;
+			}
+			break;
+
+		case isc_action_svc_db_stats:
+			switch (*p) {
+			case isc_spb_dbname:
+				++p;
+				--len;
+				get_action_svc_string(&p, &sw, &total, &len);
+				break;
+
+			case isc_spb_options:
+				++p;
+				--len;
+				if (!get_action_svc_bitmask(&p, dba_in_sw_table,
+											&sw, &total, &len)) return 0;
+				break;
+			default:
+				return 0;
+				break;
+			}
+			break;
+
+		case isc_action_svc_backup:
+		case isc_action_svc_restore:
+			switch (*p) {
+			case isc_spb_bkp_file:
+			case isc_spb_dbname:
+			case isc_spb_sql_role_name:
+				++p;
+				--len;
+				get_action_svc_string(&p, &sw, &total, &len);
+				break;
+			case isc_spb_options:
+				++p;
+				--len;
+				if (!get_action_svc_bitmask(&p, burp_in_sw_table,
+											&sw, &total, &len)) return 0;
+				break;
+			case isc_spb_bkp_length:
+			case isc_spb_res_length:
+				++p;
+				--len;
+				get_action_svc_data(&p, &sw, &total, &len);
+				break;
+			case isc_spb_bkp_factor:
+			case isc_spb_res_buffers:
+			case isc_spb_res_page_size:
+				if (!get_action_svc_parameter(&p, burp_in_sw_table,
+											  &sw, &total, &len))
+					return 0;
+				get_action_svc_data(&p, &sw, &total, &len);
+				break;
+			case isc_spb_res_access_mode:
+				++p;
+				--len;
+				if (!get_action_svc_parameter(&p, burp_in_sw_table,
+											  &sw, &total, &len))
+					return 0;
+				break;
+			case isc_spb_verbose:
+				if (!get_action_svc_parameter(&p, burp_in_sw_table,
+											  &sw, &total, &len))
+					return 0;
+				break;
+			default:
+				return 0;
+				break;
+			}
+			break;
+
+		case isc_action_svc_repair:
+		case isc_action_svc_properties:
+			switch (*p) {
+			case isc_spb_dbname:
+				++p;
+				--len;
+				get_action_svc_string(&p, &sw, &total, &len);
+				break;
+			case isc_spb_options:
+				++p;
+				--len;
+				if (!get_action_svc_bitmask(&p, alice_in_sw_table,
+											&sw, &total, &len))
+					return 0;
+				break;
+			case isc_spb_prp_page_buffers:
+			case isc_spb_prp_sweep_interval:
+			case isc_spb_prp_shutdown_db:
+			case isc_spb_prp_deny_new_attachments:
+			case isc_spb_prp_deny_new_transactions:
+			case isc_spb_prp_set_sql_dialect:
+			case isc_spb_rpr_commit_trans:
+			case isc_spb_rpr_rollback_trans:
+			case isc_spb_rpr_recover_two_phase:
+				if (!get_action_svc_parameter(&p, alice_in_sw_table,
+											  &sw, &total, &len))
+					return 0;
+				get_action_svc_data(&p, &sw, &total, &len);
+				break;
+			case isc_spb_prp_write_mode:
+			case isc_spb_prp_access_mode:
+			case isc_spb_prp_reserve_space:
+				++p;
+				--len;
+				if (!get_action_svc_parameter(&p, alice_in_sw_table,
+											  &sw, &total, &len))
+					return 0;
+				break;
+			default:
+				return 0;
+				break;
+			}
+			break;
+		default:
+			return 0;
+			break;
+		}
+	}
+
+	if (sw && *(sw - 1) == ' ')
+		*--sw = '\0';
+
+	return total;
+}
+
+
+static BOOLEAN get_action_svc_bitmask(
+									  TEXT ** spb,
+									  IN_SW_TAB table,
+									  TEXT ** cmd,
+									  USHORT * total, USHORT * len)
+{
+/**************************************
+ *
+ *	g e t _ a c t i o n _ s v c _ b i t m a s k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get bitmask from within spb buffer,
+ *	find corresponding switches within specified table,
+ *	add them to the command line,
+ *	adjust pointers.
+ *
+ **************************************/
+	ISC_ULONG opt, mask;
+	TEXT *s_ptr;
+	ISC_USHORT count;
+
+	opt =
+		gds__vax_integer(reinterpret_cast < UCHAR * >(*spb),
+						 sizeof(ISC_ULONG));
+	for (mask = 1, count = (sizeof(ISC_ULONG) * 8) - 1; count; --count) {
+		if (opt & mask) {
+			if (!(s_ptr = find_switch((opt & mask), table)))
+				return FALSE;
+			else {
+				if (*cmd) {
+					sprintf(*cmd, "-%s ", s_ptr);
+					*cmd += 1 + strlen(s_ptr) + 1;
+				}
+				*total += 1 + strlen(s_ptr) + 1;
+			}
+		}
+		mask = mask << 1;
+	}
+
+	*spb += sizeof(ISC_ULONG);
+	*len -= sizeof(ISC_ULONG);
+	return TRUE;
+}
+
+
+static void get_action_svc_string(
+								  TEXT ** spb,
+								  TEXT ** cmd, USHORT * total, USHORT * len)
+{
+/**************************************
+ *
+ *      g e t _ a c t i o n _ s v c _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get string from within spb buffer,
+ *      add it to the command line, adjust pointers.
+ *
+ *      All string parameters are delimited by SVC_TRMNTR.  This
+ *      is done to ensure that paths with spaces are handled correctly
+ *      when creating the argc / argv paramters for the service.
+ *
+ **************************************/
+	ISC_USHORT l;
+
+	l =
+		gds__vax_integer(reinterpret_cast < UCHAR * >(*spb),
+						 sizeof(ISC_USHORT));
+
+/* Do not go beyond the bounds of the spb buffer */
+	if (l > *len)
+		ERR_post(isc_bad_spb_form, 0);
+
+
+	*spb += sizeof(ISC_USHORT);
+	if (*cmd) {
+		**cmd = SVC_TRMNTR;
+		*cmd += 1;
+		MOVE_FASTER(*spb, *cmd, l);
+		*cmd += l;
+		**cmd = SVC_TRMNTR;
+		*cmd += 1;
+		**cmd = ' ';
+		*cmd += 1;
+	}
+	*spb += l;
+	*total += l + 1 + 2;		/* Two SVC_TRMNTR for strings */
+	*len -= sizeof(ISC_USHORT) + l;
+}
+
+
+static void get_action_svc_data(
+								TEXT ** spb,
+								TEXT ** cmd, USHORT * total, USHORT * len)
+{
+/**************************************
+ *
+ *      g e t _ a c t i o n _ s v c _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get data from within spb buffer,
+ *      add it to the command line, adjust pointers.
+ *
+ **************************************/
+	ISC_ULONG ll;
+	TEXT buf[64];
+
+	ll =
+		gds__vax_integer(reinterpret_cast < UCHAR * >(*spb),
+						 sizeof(ISC_ULONG));
+	sprintf(buf, "%lu ", ll);
+	if (*cmd) {
+		sprintf(*cmd, "%lu ", ll);
+		*cmd += strlen(buf);
+	}
+	*spb += sizeof(ISC_ULONG);
+	*total += strlen(buf) + 1;
+	*len -= sizeof(ISC_ULONG);
+}
+
+
+static BOOLEAN get_action_svc_parameter(
+										TEXT ** spb,
+										IN_SW_TAB table,
+										TEXT ** cmd,
+										USHORT * total, USHORT * len)
+{
+/**************************************
+ *
+ *      g e t _ a c t i o n _ s v c _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get parameter from within spb buffer,
+ *      find corresponding switch within specified table,
+ *	add it to the command line,
+ *	adjust pointers.
+ *
+ **************************************/
+	TEXT *s_ptr;
+
+	if (!(s_ptr = find_switch(**spb, table)))
+		return FALSE;
+
+	if (*cmd) {
+		sprintf(*cmd, "-%s ", s_ptr);
+		*cmd += 1 + strlen(s_ptr) + 1;
+	}
+
+	*spb += 1;
+	*total += 1 + strlen(s_ptr) + 1;
+	*len -= 1;
+	return TRUE;
+}
+
+#ifdef DEBUG
+/* The following two functions are temporary stubs and will be
+ * removed as the services API takes shape.  They are used to 
+ * test that the paths for starting services and parsing command-lines
+ * are followed correctly.
+ */
+void test_thread(SVC service)
+{
+	gds__log("Starting service");
+}
+
+void test_cmd(USHORT spb_length, SCHAR * spb, TEXT ** switches)
+{
+	gds__log("test_cmd called");
+}
+#endif
+
+
+} // extern "C"
diff --git a/src/jrd/svc.h b/src/jrd/svc.h
new file mode 100644
index 0000000000..5a90bdc21a
--- /dev/null
+++ b/src/jrd/svc.h
@@ -0,0 +1,202 @@
+/*
+ *	PROGRAM:	JRD access method
+ *	MODULE:		svc.h
+ *	DESCRIPTION:	Service manager declarations
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_SVC_H
+#define JRD_SVC_H
+#include "../jrd/pwd.h"
+#include "../jrd/isc.h"
+#include "../jrd/svc_undoc.h"
+#include "../jrd/svc_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/ibase.h"		/* needed for the C++ version of SVC_STATUS_ARG */
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+#define SERVICE_VERSION		2
+
+#define SVC_STDOUT_BUFFER_SIZE	1024
+
+/* Flag of capabilities supported by the server */
+#define WAL_SUPPORT		 0x1L	/* Write Ahead Log */
+#define MULTI_CLIENT_SUPPORT	 0x2L	/* SuperServer model (vs. multi-inet) */
+#define REMOTE_HOP_SUPPORT	 0x4L	/* Server can connect to other server */
+#define NO_SVR_STATS_SUPPORT	 0x8L	/* Does not support statistics */
+#define NO_DB_STATS_SUPPORT	0x10L	/* Does not support statistics */
+#define LOCAL_ENGINE_SUPPORT	0x20L	/* The local 16 bit engine */
+#define NO_FORCED_WRITE_SUPPORT	0x40L	/* Can not configure sync writes */
+#define NO_SHUTDOWN_SUPPORT	0x80L	/* Can not shutdown/restart databases */
+#define NO_SERVER_SHUTDOWN_SUPPORT	0x100L	/* Can not shutdown server */
+#define SERVER_CONFIG_SUPPORT	0x200L	/* Can configure server */
+#define QUOTED_FILENAME_SUPPORT	0x400L	/* Can pass quoted filenames in */
+
+/* Range definitions for service actions.  Any action outside of
+   this range is not supported */
+#define isc_action_min                 1
+#define isc_action_max                 14
+
+/* Range definitions for service actions.  Any action outside of
+   this range is not supported */
+#define isc_info_min                  50
+#define isc_info_max                  67
+
+
+/* switches for username and password used when a username and/or password
+ * is specified by the client application
+ */
+#define USERNAME_SWITCH "-USER"
+#define PASSWORD_SWITCH "-PASSWORD"
+#define SERVICE_THD_PARAM "-svc_thd"
+
+/* Macro used to store services thread specific data */
+/* Currently we store empty string, see bug #10394 */
+#ifdef SUPERSERVER
+#define SVC_PUTSPECIFIC_DATA	{\
+				char    t_data[] = {'\0'};\
+				THD_putspecific_data((void*)t_data);\
+				}
+#else
+#define SVC_PUTSPECIFIC_DATA	/* nothing */
+#endif
+
+/* Macro used to signify that the service started has done basic
+ * initialization and can be considered a successful startup
+ */
+#ifndef SUPERSERVER
+
+#define SVC_STARTED(service)
+
+#else /* SUPERSERVER */
+
+#define SVC_STARTED(service)	{{EVENT evnt_ptr = service->svc_start_event; \
+    				  if (!(service->svc_flags & SVC_evnt_fired)) { \
+				      service->svc_flags |= SVC_evnt_fired; \
+			   	      ISC_event_post (evnt_ptr);}}}
+
+
+#ifdef __cplusplus
+
+inline SVC_STATUS_ARG(STATUS * &status, USHORT type, void *value)
+{
+	if (value) {
+		switch (type) {
+		case isc_arg_number:
+			*status++ = type;
+			*status++ = reinterpret_cast < STATUS > (value);
+			break;
+		case isc_arg_string:
+			*status++ = type;
+			*status++ = (STATUS)
+			SVC_err_string(reinterpret_cast < char *>(value),
+						   strlen(static_cast < const char *>(value)));
+			break;
+		default:
+			break;
+		}
+	}
+}
+
+#else /* __cplusplus */
+
+#define SVC_STATUS_ARG(foo,type,value)	{if (value) { \
+					   switch (type) { \
+					     case isc_arg_number: \
+						*status++ = type; \
+						*status++ = value; \
+						break; \
+					     case isc_arg_string: \
+						*status++ = type; \
+						*status++ = (STATUS) SVC_err_string (value, strlen(value)); \
+						break; \
+					     default: \
+						break; \
+					  }}}
+
+#endif /* __cplusplus */
+
+#endif
+
+
+#define CK_SPACE_FOR_NUMERIC 	{{if ((info + 1 + sizeof (ULONG)) > end) \
+    				      { \
+				      if (info < end) \
+					  *info++ = isc_info_truncated; \
+				      THREAD_ENTER; \
+				      return 0; \
+				      }}}
+
+/* Service manager block */
+typedef struct svc {
+	struct blk svc_header;
+	SLONG svc_handle;			/* "handle" of process/thread running service */
+	STATUS *svc_status;			/* status vector for svc_handle */
+	void *svc_input;			/* input to service */
+	void *svc_output;			/* output from service */
+	ULONG svc_stdout_head;
+	ULONG svc_stdout_tail;
+	UCHAR *svc_stdout;
+	TEXT **svc_argv;
+	ULONG svc_argc;
+	EVENT_T svc_start_event[1];	/* fired once service has started successfully */
+	CONST struct serv *svc_service;
+	UCHAR *svc_resp_buf;
+	UCHAR *svc_resp_ptr;
+	USHORT svc_resp_buf_len;
+	USHORT svc_resp_len;
+	USHORT svc_flags;
+	USHORT svc_user_flag;
+	USHORT svc_spb_version;
+	BOOLEAN svc_do_shutdown;
+	TEXT svc_username[33];
+	TEXT svc_enc_password[MAX_PASSWORD_ENC_LENGTH];
+	TEXT svc_reserved[1];
+	TEXT *svc_switches;
+} *SVC;
+
+typedef struct serv {
+	USHORT serv_action;
+	CONST TEXT *serv_name;
+	CONST TEXT *serv_std_switches;
+	CONST TEXT *serv_executable;
+	CONST void (*serv_thd) ();
+	BOOLEAN *in_use;
+} *SERV;
+
+/* Bitmask values for the svc_flags variable */
+
+#define SVC_eof		 1
+#define SVC_timeout	 2
+#define SVC_forked	 4
+#define SVC_detached	 8
+#define SVC_finished	16
+#define SVC_thd_running 32
+#define SVC_evnt_fired  64
+
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_SVC_H */
diff --git a/src/jrd/svc_proto.h b/src/jrd/svc_proto.h
new file mode 100644
index 0000000000..5aa3eec467
--- /dev/null
+++ b/src/jrd/svc_proto.h
@@ -0,0 +1,67 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		svc_proto.h
+ *	DESCRIPTION:	Prototype header file for svc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_SVC_PROTO_H
+#define JRD_SVC_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern struct svc *SVC_attach(USHORT, TEXT *, USHORT, SCHAR *);
+extern void SVC_cleanup(struct svc *);
+extern void SVC_detach(struct svc *);
+extern void SVC_fprintf(struct svc *, const SCHAR *, ...);
+extern void SVC_putc(struct svc*, UCHAR);
+extern void SVC_query(struct svc*, USHORT, SCHAR*, USHORT, SCHAR*, USHORT, SCHAR*);
+extern STATUS SVC_query2(struct svc*, struct tdbb*, USHORT, SCHAR *, USHORT, SCHAR*, USHORT, SCHAR*);
+extern void *SVC_start(struct svc*, USHORT, SCHAR*);
+extern void SVC_finish(struct svc*, USHORT);
+extern void SVC_read_ib_log(struct svc*);
+extern TEXT *SVC_err_string(TEXT*, USHORT);
+
+#ifdef SERVER_SHUTDOWN
+
+#ifdef  WIN_NT
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#include <windows.h>
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+typedef void (__stdcall * STDCALL_FPTR_VOID) (UINT);
+void SVC_shutdown_init(STDCALL_FPTR_VOID, ULONG);
+#else
+void SVC_shutdown_init(void (*)(), ULONG);
+#endif
+#endif /* SERVER_SHUTDOWN */
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_SVC_PROTO_H */
diff --git a/src/jrd/svc_undoc.h b/src/jrd/svc_undoc.h
new file mode 100644
index 0000000000..4611129057
--- /dev/null
+++ b/src/jrd/svc_undoc.h
@@ -0,0 +1,94 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		svc_undoc.h
+ *	DESCRIPTION:	Undocumented service items
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _SVC_UNDOC_H
+#define _SVC_UNDOC_H
+
+/* Service Action Flags */
+#define isc_action_svc_lock_stats     13	/* Retrieves lock manager statistics */
+#define isc_action_svc_set_config     14	/* Sets configuration file values */
+#define isc_action_svc_default_config 15	/* Sets the configuration options to their default values */
+#define isc_action_svc_set_env        16	/* Sets the value for $INTERBASE */
+#define isc_action_svc_set_env_lock   17	/* Sets the value for $INTERBASE_LOCK */
+#define isc_action_svc_set_env_msg    18	/* Sets the value for $INTERBASE_MSG */
+
+
+/* Service Info Flags */
+#define isc_info_svc_total_length     69
+#define isc_info_svc_response         70
+#define isc_info_svc_response_more    71
+#define isc_info_svc_message          72
+#define isc_info_svc_svr_online       73
+#define isc_info_svc_svr_offline      74
+#define isc_info_svc_set_config	      75
+#define isc_info_svc_default_config   76
+#define isc_info_svc_dump_pool_info   77
+
+/********************************************
+ * Parameters for isc_action_svc_set_config *
+ * isc_info_svc_get_config                  *
+ *                                          *
+ *             UNDOCUMENTED                 *
+ ********************************************/
+
+#define isc_spb_ibc_lock_mem_size     5
+#define isc_spb_ibc_lock_sem_count    6
+#define isc_spb_ibc_lock_signal       7
+#define isc_spb_ibc_event_mem_size    8
+#define isc_spb_ibc_db_cache_pages    9
+#define isc_spb_ibc_priority_class    10
+#define isc_spb_ibc_svr_map_size      11
+#define isc_spb_ibc_svr_min_work_set  12
+#define isc_spb_ibc_svr_max_work_set  13
+#define isc_spb_ibc_lock_grant_order  14
+#define isc_spb_ibc_lockhash          15
+#define isc_spb_ibc_deadlock          16
+#define isc_spb_ibc_lockspin          17
+#define isc_spb_ibc_conn_timeout      18
+#define isc_spb_ibc_dummy_intrvl      19
+#define isc_spb_ibc_trace_pools       20
+#define isc_spb_ibc_temp_dir_name     21
+#define isc_spb_ibc_temp_dir_size     22
+
+/*******************************************
+ * Parameters for isc_action_svc_set_env,  *
+ * isc_action_svc_set_env_lock,            *
+ * isc_action_svc_set_env_msg              *
+ *                                         *
+ *             UNDOCUMENTED                *
+ *******************************************/
+
+#define isc_spb_env_path              5
+
+/*********************************************
+ * Parameters for isc_action_svc_lock_stats  *
+ *********************************************/
+
+#define isc_spb_lck_sample		5
+#define isc_spb_lck_secs		6
+#define isc_spb_lck_contents		0x01
+#define isc_spb_lck_summary		0x02
+#define isc_spb_lck_wait		0x04
+#define isc_spb_lck_stats		0x08
+
+#endif	/* _SVC_UNDOC_H */
diff --git a/src/jrd/syidef.h b/src/jrd/syidef.h
new file mode 100644
index 0000000000..fd416bf532
--- /dev/null
+++ b/src/jrd/syidef.h
@@ -0,0 +1,327 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#define	SYI$C_EXETYPE	1
+#define	SYI$C_FLDTYPE	2
+#define	SYI$C_RSDTYPE	3
+#define	SYI$_VERSION	4096
+#define	SYI$_SID	4097
+#define	SYI$_PFCDEFAULT	4098
+#define	SYI$_PAGTBLPFC	4099
+#define	SYI$_SYSPFC	4100
+#define	SYI$_KFILSTCNT	4101
+#define	SYI$_GBLSECTIONS	4102
+#define	SYI$_GBLPAGES	4103
+#define	SYI$_GBLPAGFIL	4104
+#define	SYI$_MAXPROCESSCNT	4105
+#define	SYI$_PIXSCAN	4106
+#define	SYI$_PROCSECTCNT	4107
+#define	SYI$_MINWSCNT	4108
+#define	SYI$_PAGFILCNT	4109
+#define	SYI$_SWPFILCNT	4110
+#define	SYI$_SYSMWCNT	4111
+#define	SYI$_INTSTKPAGES	4112
+#define	SYI$_DLCKEXTRASTK	4113
+#define	SYI$_BALSETCNT	4114
+#define	SYI$_IRPCOUNT	4115
+#define	SYI$_IRPCOUNTV	4116
+#define	SYI$_WSMAX	4117
+#define	SYI$_NPAGEDYN	4118
+#define	SYI$_NPAGEVIR	4119
+#define	SYI$_PAGEDYN	4120
+#define	SYI$_VIRTUALPAGECNT	4121
+#define	SYI$_SPTREQ	4122
+#define	SYI$_EXUSRSTK	4123
+#define	SYI$_LRPCOUNT	4124
+#define	SYI$_LRPCOUNTV	4125
+#define	SYI$_LRPSIZE	4126
+#define	SYI$_LRPMIN	4127
+#define	SYI$_SRPCOUNT	4128
+#define	SYI$_SRPCOUNTV	4129
+#define	SYI$_SRPSIZE	4130
+#define	SYI$_SRPMIN	4131
+#define	SYI$_CHANNELCNT	4132
+#define	SYI$_PIOPAGES	4133
+#define	SYI$_CTLPAGES	4134
+#define	SYI$_CTLIMGLIM	4135
+#define	SYI$_IMGIOCNT	4136
+#define	SYI$_QUANTUM	4137
+#define	SYI$_MPW_WRTCLUSTER	4138
+#define	SYI$_MPW_HILIMIT	4139
+#define	SYI$_MPW_LOLIMIT	4140
+#define	SYI$_MPW_PRIO	4141
+#define	SYI$_SWP_PRIO	4142
+#define	SYI$_MPW_THRESH	4143
+#define	SYI$_MPW_WAITLIMIT	4144
+#define	SYI$_TBSKIPWSL	4145
+#define	SYI$_PHYSICALPAGES	4146
+#define	SYI$_PFRATL	4147
+#define	SYI$_PFRATH	4148
+#define	SYI$_PFRATS	4149
+#define	SYI$_WSINC	4150
+#define	SYI$_WSDEC	4151
+#define	SYI$_AWSMIN	4152
+#define	SYI$_AWSTIME	4153
+#define	SYI$_SWPRATE	4154
+#define	SYI$_SWPOUTPGCNT	4155
+#define	SYI$_SWPALLOCINC	4156
+#define	SYI$_IOTA	4157
+#define	SYI$_LONGWAIT	4158
+#define	SYI$_SWPFAIL	4159
+#define	SYI$_VMSD1	4160
+#define	SYI$_VMSD2	4161
+#define	SYI$_VMSD3	4162
+#define	SYI$_VMSD4	4163
+#define	SYI$_VMS5	4164
+#define	SYI$_VMS6	4165
+#define	SYI$_VMS7	4166
+#define	SYI$_VMS8	4167
+#define	SYI$_USERD1	4168
+#define	SYI$_USERD2	4169
+#define	SYI$_USER3	4170
+#define	SYI$_USER4	4171
+#define	SYI$_EXTRACPU	4172
+#define	SYI$_MAXSYSGROUP	4173
+#define	SYI$_MVTIMEOUT	4174
+#define	SYI$_MAXBUF	4175
+#define	SYI$_DEFMBXBUFQUO	4176
+#define	SYI$_DEFMBXMXMSG	4177
+#define	SYI$_DEFMBXNUMMSG	4178
+#define	SYI$_FREELIM	4179
+#define	SYI$_FREEGOAL	4180
+#define	SYI$_GROWLIM	4181
+#define	SYI$_BORROWLIM	4182
+#define	SYI$_LOCKRETRY	4183
+#define	SYI$_XFMAXRATE	4184
+#define	SYI$_LAMAPREGS	4185
+#define	SYI$_REALTIME_SPTS	4186
+#define	SYI$_CLISYMTBL	4187
+#define	SYI$_LOCKIDTBL	4188
+#define	SYI$_RESHASHTBL	4189
+#define	SYI$_DEADLOCK_WAIT	4190
+#define	SYI$_SCSBUFFCNT	4191
+#define	SYI$_SCSCONNCNT	4192
+#define	SYI$_SCSRESPCNT	4193
+#define	SYI$_SCSMAXDG	4194
+#define	SYI$_SCSMAXMSG	4195
+#define	SYI$_SCSFLOWCUSH	4196
+#define	SYI$_SCSSYSTEMID	4197
+#define	SYI$_SCSSYSTEMIDH	4198
+#define	SYI$_SCSNODE	4199
+#define	SYI$_PRCPOLINTERVAL	4201
+#define	SYI$_PASTIMOUT	4202
+#define	SYI$_PASTDGBUF	4203
+#define	SYI$_PANUMPOLL	4204
+#define	SYI$_PAPOLLINTERVAL	4205
+#define	SYI$_PAPOOLINTERVAL	4206
+#define	SYI$_TIMEPROMPTWAIT	4207
+#define	SYI$_UDABURSTRATE	4208
+#define	SYI$_LNMSHASHTBL	4209
+#define	SYI$_LNMPHASHTBL	4210
+#define	SYI$_TTY_SCANDELTA	4211
+#define	SYI$_TTY_DIALTYPE	4212
+#define	SYI$_TTY_SPEED	4213
+#define	SYI$_TTY_RSPEED	4214
+#define	SYI$_TTY_PARITY	4215
+#define	SYI$_TTY_BUF	4216
+#define	SYI$_TTY_DEFCHAR	4217
+#define	SYI$_TTY_DEFCHAR2	4218
+#define	SYI$_TTY_TYPAHDSZ	4219
+#define	SYI$_TTY_ALTYPAHD	4220
+#define	SYI$_TTY_ALTALARM	4221
+#define	SYI$_TTY_DMASIZE	4222
+#define	SYI$_TTY_PROT	4223
+#define	SYI$_TTY_OWNER	4224
+#define	SYI$_TTY_CLASSNAME	4225
+#define	SYI$_TTY_SILOTIME	4226
+#define	SYI$_TTY_DEFPORT	4227
+#define	SYI$_RMS_DFMBC	4228
+#define	SYI$_RMS_DFMBFSDK	4229
+#define	SYI$_RMS_DFMBFSMT	4230
+#define	SYI$_RMS_DFMBFSUR	4231
+#define	SYI$_RMS_DFMBFREL	4232
+#define	SYI$_RMS_DFMBFIDX	4233
+#define	SYI$_RMS_DFMBFHSH	4234
+#define	SYI$_RMS_PROLOGUE	4235
+#define	SYI$_RMS_EXTEND_SIZE	4236
+#define	SYI$_RMS_FILEPROT	4237
+#define	SYI$_PQL_DASTLM	4238
+#define	SYI$_PQL_MASTLM	4239
+#define	SYI$_PQL_DBIOLM	4240
+#define	SYI$_PQL_MBIOLM	4241
+#define	SYI$_PQL_DBYTLM	4242
+#define	SYI$_PQL_MBYTLM	4243
+#define	SYI$_PQL_DCPULM	4244
+#define	SYI$_PQL_MCPULM	4245
+#define	SYI$_PQL_DDIOLM	4246
+#define	SYI$_PQL_MDIOLM	4247
+#define	SYI$_PQL_DFILLM	4248
+#define	SYI$_PQL_MFILLM	4249
+#define	SYI$_PQL_DPGFLQUOTA	4250
+#define	SYI$_PQL_MPGFLQUOTA	4251
+#define	SYI$_PQL_DPRCLM	4252
+#define	SYI$_PQL_MPRCLM	4253
+#define	SYI$_PQL_DTQELM	4254
+#define	SYI$_PQL_MTQELM	4255
+#define	SYI$_PQL_DWSDEFAULT	4256
+#define	SYI$_PQL_MWSDEFAULT	4257
+#define	SYI$_PQL_DWSQUOTA	4258
+#define	SYI$_PQL_MWSQUOTA	4259
+#define	SYI$_PQL_DWSEXTENT	4260
+#define	SYI$_PQL_MWSEXTENT	4261
+#define	SYI$_PQL_DENQLM	4262
+#define	SYI$_PQL_MENQLM	4263
+#define	SYI$_ACP_MAPCACHE	4264
+#define	SYI$_ACP_HDRCACHE	4265
+#define	SYI$_ACP_DIRCACHE	4266
+#define	SYI$_ACP_WORKSET	4267
+#define	SYI$_ACP_FIDCACHE	4268
+#define	SYI$_ACP_EXTCACHE	4269
+#define	SYI$_ACP_EXTLIMIT	4270
+#define	SYI$_ACP_QUOCACHE	4271
+#define	SYI$_ACP_SYSACC	4272
+#define	SYI$_ACP_MAXREAD	4273
+#define	SYI$_ACP_WINDOW	4274
+#define	SYI$_ACP_WRITEBACK	4275
+#define	SYI$_ACP_DATACHECK	4276
+#define	SYI$_ACP_BASEPRIO	4277
+#define	SYI$_ACP_SWAPFLGS	4278
+#define	SYI$_DEFPRI	4279
+#define	SYI$_IJOBLIM	4280
+#define	SYI$_BJOBLIM	4281
+#define	SYI$_NJOBLIM	4282
+#define	SYI$_RJOBLIM	4283
+#define	SYI$_QUORUM	4284
+#define	SYI$_VOTES	4285
+#define	SYI$_RECNXINTERVAL	4286
+#define	SYI$_BOOTTIME	4287
+#define	SYI$_LOCKIDTBL_MAX	4288
+#define	SYI$_TAILORED	4289
+#define	SYI$_STARTUP_P1	4290
+#define	SYI$_STARTUP_P2	4291
+#define	SYI$_STARTUP_P3	4292
+#define	SYI$_STARTUP_P4	4293
+#define	SYI$_STARTUP_P5	4294
+#define	SYI$_STARTUP_P6	4295
+#define	SYI$_STARTUP_P7	4296
+#define	SYI$_STARTUP_P8	4297
+#define	SYI$_CLUSTER_NODES	4298
+#define	SYI$_CLUSTER_VOTES	4299
+#define	SYI$_CLUSTER_QUORUM	4300
+#define	SYI$_CLUSTER_FSYSID	4301
+#define	SYI$_CLUSTER_FTIME	4302
+#define	SYI$_CLUSTER_MEMBER	4303
+#define	SYI$_NODE_CSID	4304
+#define	SYI$_NODE_VOTES	4305
+#define	SYI$_NODE_QUORUM	4306
+#define	SYI$_NODE_SYSTEMID	4307
+#define	SYI$_NODE_SWINCARN	4308
+#define	SYI$_NODE_SWTYPE	4309
+#define	SYI$_NODE_SWVERS	4310
+#define	SYI$_NODE_HWTYPE	4311
+#define	SYI$_NODE_HWVERS	4312
+#define	SYI$_NODENAME	4313
+#define	SYI$_ARCHFLAG	4314
+#define	SYI$_SCS_EXISTS	4315
+#define	SYI$_DISK_QUORUM	4316
+#define	SYI$_PAMAXPORT	4320
+#define	SYI$_PASANITY	4321
+#define	SYI$_DEFQUEPRI	4322
+#define	SYI$_MAXQUEPRI	4323
+#define	SYI$_QDSKINTERVAL	4324
+#define	SYI$_ALLOCLASS	4325
+#define	SYI$_LGI_RETRY_LIM	4326
+#define	SYI$_LGI_RETRY_TMO	4327
+#define	SYI$_LGI_BRK_LIM	4328
+#define	SYI$_LGI_BRK_TMO	4329
+#define	SYI$_LGI_HID_TIM	4330
+#define	SYI$_LGI_PWD_TMO	4331
+#define	SYI$_PQL_DJTQUOTA	4332
+#define	SYI$_PQL_MJTQUOTA	4333
+#define	SYI$_VAXCLUSTER	4334
+#define	SYI$_LOCKDIRWT	4335
+#define	SYI$_QDSKVOTES	4336
+#define	SYI$_DORMANTWAIT	4337
+#define	SYI$_PAGEFILE_PAGE	4338
+#define	SYI$_SWAPFILE_PAGE	4339
+#define	SYI$_PAGEFILE_FREE	4340
+#define	SYI$_SWAPFILE_FREE	4341
+#define	SYI$_TTY_TIMEOUT	4342
+#define	SYI$_TTY_AUTOCHAR	4343
+#define	SYI$_PANOPOLL	4344
+#define	SYI$_PE1	4345
+#define	SYI$_PE2	4346
+#define	SYI$_PE3	4347
+#define	SYI$_PE4	4348
+#define	SYI$_PE5	4349
+#define	SYI$_PE6	4350
+#define	SYI$_RMS_GBLBUFQUO	4351
+#define	SYI$_RMS_DFNBC	4352
+#define	SYI$_ACP_DINDXCACHE	4353
+#define	SYI$_LASTEXE	4354
+#define	SYI$_CPU	8192
+#define	SYI$_BUGREBOOT	8193
+#define	SYI$_CRDENABLE	8194
+#define	SYI$_DUMPBUG	8195
+#define	SYI$_BUGCHECKFATAL	8196
+#define	SYI$_ACP_MULTIPLE	8197
+#define	SYI$_NOAUTOCONFIG	8198
+#define	SYI$_NOCLOCK	8199
+#define	SYI$_NOCLUSTER	8200
+#define	SYI$_POOLPAGING	8201
+#define	SYI$_SBIERRENABLE	8202
+#define	SYI$_SETTIME	8203
+#define	SYI$_ACP_SHARE	8204
+#define	SYI$_SYSPAGING	8205
+#define	SYI$_UAFALTERNATE	8206
+#define	SYI$_WRITABLESYS	8207
+#define	SYI$_RESALLOC	8208
+#define	SYI$_SSINHIBIT	8209
+#define	SYI$_CONCEAL_DEVICES	8210
+#define	SYI$_SAVEDUMP	8211
+#define	SYI$_MOUNTMSG	8212
+#define	SYI$_DISMOUMSG	8213
+#define	SYI$_LOADERAPT	8214
+#define	SYI$_LOADCHKPRT	8215
+#define	SYI$_CJFLOAD	8217
+#define	SYI$_CJFSYSRUJ	8218
+#define	SYI$_NODE_AREA	8219
+#define	SYI$_NODE_NUMBER	8220
+#define	SYI$_CLASS_PROT	8221
+#define	SYI$_CHARACTER_EMULATED	8222
+#define	SYI$_DECIMAL_EMULATED	8223
+#define	SYI$_D_FLOAT_EMULATED	8224
+#define	SYI$_F_FLOAT_EMULATED	8225
+#define	SYI$_G_FLOAT_EMULATED	8226
+#define	SYI$_H_FLOAT_EMULATED	8227
+#define	SYI$_LOADMTACCESS	8228
+#define	SYI$_ACP_XQP_RES	8229
+#define	SYI$_WRITESYSPARAMS	8230
+#define	SYI$_LGI_BRK_TERM	8231
+#define	SYI$_LGI_BRK_DISUSER	8232
+#define	SYI$_ACP_REBLDSYSD	8233
+#define	SYI$_WS_OPA0	8234
+#define	SYI$_LASTFLD	8235
+#define	SYI$C_SFWTYPE	1
+#define	SYI$C_HDWTYPE	2
+#define	SYI$C_LISTEND	0
+#define	SYI$_OLDVERSION	256
+#define	SYI$_LASTSFW	257
+#define	SYI$_OLDCPU	512
+#define	SYI$_OLDSID	513
+#define	SYI$_LASTHDW	514
diff --git a/src/jrd/sym.cpp b/src/jrd/sym.cpp
new file mode 100644
index 0000000000..f4d1f59d22
--- /dev/null
+++ b/src/jrd/sym.cpp
@@ -0,0 +1,166 @@
+/*
+ *	PROGRAM:	JRD access method
+ *	MODULE:		hsh.c
+ *	DESCRIPTION:	Hash table and symbol manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/val.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/sym_proto.h"
+#include "../jrd/thd_proto.h"
+
+#define NUMWORDS (sizeof (keywords) / sizeof (struct word))
+
+
+extern "C" {
+
+
+static SSHORT hash(register SCHAR *);
+
+
+void SYM_insert(register SYM symbol)
+{
+/**************************************
+ *
+ *	S Y M _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a symbol into the hash table.
+ *
+ **************************************/
+	DBB dbb;
+	register int h;
+	register SYM old;
+
+	dbb = GET_DBB;
+
+	h = hash(symbol->sym_string);
+
+	for (old = dbb->dbb_hash_table[h]; old; old = old->sym_collision)
+		if (!strcmp(symbol->sym_string, old->sym_string)) {
+			symbol->sym_homonym = old->sym_homonym;
+			old->sym_homonym = symbol;
+			return;
+		}
+
+	symbol->sym_collision = dbb->dbb_hash_table[h];
+	dbb->dbb_hash_table[h] = symbol;
+}
+
+
+SYM SYM_lookup(register TEXT * string)
+{
+/**************************************
+ *
+ *	S Y M _ l o o k u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a string lookup against hash table.
+ *
+ **************************************/
+	DBB dbb;
+	register SYM symbol;
+
+	dbb = GET_DBB;
+
+	for (symbol = dbb->dbb_hash_table[hash(string)]; symbol;
+		 symbol = symbol->sym_collision)
+			if (!strcmp(string, symbol->sym_string)) return symbol;
+
+	return NULL;
+}
+
+
+void SYM_remove(register SYM symbol)
+{
+/**************************************
+ *
+ *	S Y M _ r e m o v e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove a symbol from the hash table.
+ *
+ **************************************/
+	DBB dbb;
+	int h;
+	register SYM *next, *ptr, homonym;
+
+	dbb = GET_DBB;
+
+	h = hash(symbol->sym_string);
+
+	for (next = &dbb->dbb_hash_table[h]; *next;
+		 next = &(*next)->sym_collision) if (symbol == *next)
+			if (homonym = symbol->sym_homonym) {
+				homonym->sym_collision = symbol->sym_collision;
+				*next = homonym;
+				return;
+			}
+			else {
+				*next = symbol->sym_collision;
+				return;
+			}
+		else
+			for (ptr = &(*next)->sym_homonym; *ptr;
+				 ptr = &(*ptr)->sym_homonym) if (symbol == *ptr) {
+					*ptr = symbol->sym_homonym;
+					return;
+				}
+
+	BUGCHECK(164);				/* msg 164 failed to remove symbol from hash table */
+}
+
+
+static SSHORT hash(register SCHAR * string)
+{
+/**************************************
+ *
+ *	h a s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns the hash function of a string.
+ *
+ **************************************/
+	register int value;
+	SCHAR c;
+
+/* It is OK to not Internationalize this function as it is for
+   internal optimization of symbol lookup */
+
+	value = 0;
+
+	while (c = *string++)
+		value = (value << 1) + UPPER7(c);
+
+	return ((value >= 0) ? value : -value) % HASH_SIZE;
+}
+
+
+} // extern "C"
diff --git a/src/jrd/sym_proto.h b/src/jrd/sym_proto.h
new file mode 100644
index 0000000000..03a314abf6
--- /dev/null
+++ b/src/jrd/sym_proto.h
@@ -0,0 +1,39 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		sym_proto.h
+ *	DESCRIPTION:	Prototype header file for sym.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_SYM_PROTO_H_
+#define _JRD_SYM_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void SYM_insert(register struct sym *);
+extern struct sym *SYM_lookup(register TEXT *);
+extern void SYM_remove(register struct sym *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_SYM_PROTO_H_ */
diff --git a/src/jrd/termtype.h b/src/jrd/termtype.h
new file mode 100644
index 0000000000..b14a9d3ee5
--- /dev/null
+++ b/src/jrd/termtype.h
@@ -0,0 +1,35 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		termtype.h
+ *	DESCRIPTION:	Terminal type identification
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_TERMTYPE_H_
+#define _JRD_TERMTYPE_H_
+
+#define TERM_apollo_dm	1
+#define TERM_rlogin	2
+#define TERM_telnet	3
+#define TERM_sio	4
+#define TERM_crp	5
+#define TERM_server	6
+#define TERM_file	7
+
+#endif /* _JRD_TERMTYPE_H_ */
diff --git a/src/jrd/thd.cpp b/src/jrd/thd.cpp
new file mode 100644
index 0000000000..95d1d268e1
--- /dev/null
+++ b/src/jrd/thd.cpp
@@ -0,0 +1,2296 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		thd.c
+ *	DESCRIPTION:	Thread support routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#if defined(_WIN32) || defined(WIN32) || defined(__WIN32__) || defined(WIN_NT)
+#error This file is not to be used for Win32 builds. Please use isc_sync_win32.cpp
+#endif
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include "../jrd/common.h"
+#include "../jrd/thd.h"
+#include "../jrd/isc.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/gdsassert.h"
+
+
+#ifdef WIN_NT
+#include <process.h>
+#include <windows.h>
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT		SCHAR
+#endif
+
+#ifdef NETWARE_386
+extern int BeginThread(void (*__func) (void *), void *__stackP,
+					   unsigned __stackSize, void *__arg);
+#define STACK_SIZE	128000
+#endif
+
+#ifdef UNIX
+#include <unistd.h>
+#endif
+
+
+extern "C" {
+
+
+#ifndef ANY_THREADING
+THDD gdbb;
+#endif
+#ifdef VMS
+/* THE SOLE PURPOSE OF THE FOLLOWING DECLARATION IS TO ALLOW THE VMS KIT TO
+   COMPILE.  IT IS NOT CORRECT AND MUST BE REMOVED AT SOME POINT. */
+THDD gdbb;
+#endif
+
+static void init(void);
+static void init_tkey(void);
+static void put_specific(THDD);
+static int thread_start(int (*)(void *), void *, int, int, void *);
+
+static USHORT initialized = FALSE;
+static USHORT t_init = FALSE;
+
+#ifdef ANY_THREADING
+static MUTX_T ib_mutex;
+
+#ifdef POSIX_THREADS
+static pthread_key_t specific_key;
+static pthread_key_t t_key;
+#endif
+
+#ifdef SOLARIS_MT
+static thread_key_t specific_key;
+static thread_key_t t_key;
+#endif
+
+#ifdef WIN_NT
+static DWORD specific_key;
+static DWORD t_key;
+#endif
+#endif // ANY_THREADING
+
+
+int API_ROUTINE gds__thread_start(
+								  FPTR_INT_VOID_PTR entrypoint,
+								  void *arg,
+								  int priority, int flags, void *thd_id)
+{
+/**************************************
+ *
+ *	g d s _ $ t h r e a d _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a thread.
+ *
+ **************************************/
+
+	return thread_start(entrypoint, arg, priority, flags, thd_id);
+}
+
+
+long THD_get_thread_id(void)
+{
+/**************************************
+ *
+ *	T H D _ g e t _ t h r e a d _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get platform's notion of a thread ID.
+ *
+ **************************************/
+	long id = 1;
+#ifdef WIN_NT
+	id = GetCurrentThreadId();
+#endif
+#ifdef NETWARE_386
+	id = GetThreadID();
+#endif
+#ifdef SOLARIS_MT
+	id = thr_self();
+#endif
+#ifdef POSIX_THREADS
+
+/* The following is just a temp. decision.
+*/
+#ifdef HP10
+
+	id = (long) (pthread_self().field1);
+
+#else
+
+	id = (long) pthread_self();
+
+#endif /* HP10 */
+#endif /* POSIX_THREADS */
+
+	return id;
+}
+
+
+#ifdef ANY_THREADING
+#ifdef POSIX_THREADS
+#define GET_SPECIFIC_DEFINED
+THDD THD_get_specific(void)
+{
+/**************************************
+ *
+ *	T H D _ g e t _ s p e c i f i c		( P O S I X )
+ *
+ **************************************
+ *
+ * Functional description
+ * Gets thread specific data and returns
+ * a pointer to it.
+ *
+ **************************************/
+#ifdef HP10
+
+	THDD current_context;
+
+	pthread_getspecific(specific_key, (pthread_addr_t *) & current_context);
+	return current_context;
+
+#else
+#ifdef DGUX
+
+	THDD current_context;
+
+	pthread_getspecific(specific_key, (void **) &current_context);
+	return current_context;
+
+#else
+
+	return ((THDD) pthread_getspecific(specific_key));
+
+#endif /* DGUX */
+#endif /* HP10 */
+}
+#endif /* POSIX_THREADS */
+#endif /* ANY_THREADING */
+
+
+#ifdef ANY_THREADING
+#ifdef SOLARIS_MT
+#define GET_SPECIFIC_DEFINED
+THDD THD_get_specific(void)
+{
+/**************************************
+ *
+ *	T H D _ g e t _ s p e c i f i c		( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	THDD current_context;
+
+	if (thr_getspecific(specific_key, &current_context)) {
+		ib_perror("thr_getspecific");
+		exit(1);
+	}
+
+	return current_context;
+}
+#endif
+#endif
+
+
+#ifdef ANY_THREADING
+#ifdef WIN_NT
+#define GET_SPECIFIC_DEFINED
+THDD THD_get_specific(void)
+{
+/**************************************
+ *
+ *	T H D _ g e t _ s p e c i f i c		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return (THDD) TlsGetValue(specific_key);
+}
+#endif
+#endif
+
+
+#ifdef ANY_THREADING
+#ifdef NETWARE_386
+#define GET_SPECIFIC_DEFINED
+THDD THD_get_specific(void)
+{
+/**************************************
+ *
+ *	T H D _ g e t _ s p e c i f i c		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	return ((THDD) GetThreadDataAreaPtr());
+}
+#endif
+#endif
+
+
+#ifndef GET_SPECIFIC_DEFINED
+THDD DLL_EXPORT THD_get_specific(void)
+{
+/**************************************
+ *
+ *	T H D _ g e t _ s p e c i f i c		( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return gdbb;
+}
+#endif
+
+
+void THD_getspecific_data(void **t_data)
+{
+/**************************************
+ *
+ *	T H D _ g e t s p e c i f i c _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	return the previously stored t_data.
+ *
+ **************************************/
+
+#ifdef ANY_THREADING
+
+/* There are some circumstances in which we do not call THD_putspecific_data(),
+   such as services API, and local access on NT. As result of that, t_init
+   does not get initialized. So don't use an assert in here but rather do
+   the work only if t_init is initialised */
+	if (t_init) {
+#ifdef POSIX_THREADS
+#ifdef HP10
+		pthread_getspecific(t_key, t_data);
+#else
+#ifdef DGUX
+		pthread_getspecific(t_key, t_data);
+#else
+		*t_data = (void *) pthread_getspecific(t_key);
+#endif /* DGUX */
+#endif /* HP10 */
+#endif /* POSIX_THREADS */
+
+#ifdef SOLARIS_MT
+		thr_getspecific(t_key, t_data);
+#endif
+
+#ifdef WIN_NT
+		*t_data = (void *) TlsGetValue(t_key);
+#endif
+	}
+#endif
+}
+
+
+void DLL_EXPORT THD_cleanup(void)
+{
+/**************************************
+ *
+ *	T H D _ c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ * This is the cleanup function called from the DLL
+ * cleanup function. This helps to remove the allocated
+ * thread specific key.
+ *
+ **************************************/
+
+	if (initialized) {
+		initialized--;
+#ifdef WIN_NT
+		TlsFree(specific_key);
+#endif
+
+#ifdef POSIX_THREADS
+#endif
+
+#ifdef SOLARIS_MT
+#endif
+
+#ifdef ANY_THREADING
+		/* destroy the mutex ib_mutex which was created */
+		THD_mutex_destroy(&ib_mutex);
+#endif
+	}
+}
+
+
+void DLL_EXPORT THD_init(void)
+{
+/**************************************
+ *
+ *	T H D _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+#ifdef POSIX_THREADS
+
+/* In case of Posix threads we take advantage of using function
+   pthread_once. This function makes sure that init() routine
+   will be called only once by the first thread to call pthread_once.
+*/
+#ifdef HP10
+	static pthread_once_t once = pthread_once_init;
+#else
+	static pthread_once_t once = PTHREAD_ONCE_INIT;
+#endif /* HP10 */
+
+	pthread_once(&once, init);
+
+#else
+
+	init();
+
+#endif /* POSIX_THREADS */
+}
+
+
+void DLL_EXPORT THD_init_data(void)
+{
+/**************************************
+ *
+ *	T H D _ i n i t _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	init function for t_key. This is called 
+ *	to ensure that the key is created.
+ *
+ **************************************/
+#ifdef POSIX_THREADS
+
+/* In case of Posix threads we take advantage of using function
+   pthread_once. This function makes sure that init_tkey() routine
+   will be called only once by the first thread to call pthread_once.
+*/
+#ifdef HP10
+	static pthread_once_t once = pthread_once_init;
+#else
+	static pthread_once_t once = PTHREAD_ONCE_INIT;
+#endif /* HP10 */
+
+	pthread_once(&once, init_tkey);
+
+#else
+
+	init_tkey();
+
+#endif /* POSIX_THREADS */
+}
+
+
+#ifdef ANY_THREADING
+#ifdef POSIX_THREADS
+#define THREAD_MUTEXES_DEFINED
+int THD_mutex_destroy(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ d e s t r o y 	( P O S I X )
+ *
+ **************************************
+ *
+ * Functional description
+ * Tries to destroy mutex and returns 0 if success,
+ * error number in case of error
+ *
+ **************************************/
+#ifdef HP10
+
+	int state;
+
+	state = pthread_mutex_destroy(mutex);
+	if (!state)
+		return 0;
+	assert(state == -1);		/* if state is not 0, it should be -1 */
+	return errno;
+
+#else
+
+	return pthread_mutex_destroy(mutex);
+
+#endif /* HP10 */
+
+}
+
+
+int THD_mutex_init(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ i n i t		( P O S I X )
+ *
+ **************************************
+ *
+ * Functional description
+ * Tries to initialize mutex and returns 0 if success,
+ * error number in case of error
+ *
+ **************************************/
+#ifdef HP10
+
+	int state;
+
+	state = pthread_mutex_init(mutex, pthread_mutexattr_default);
+	if (!state)
+		return 0;
+	assert(state == -1);		/* if state is not 0, it should be -1 */
+	return errno;
+
+#else
+
+	return pthread_mutex_init(mutex, NULL);
+
+#endif /* HP10 */
+}
+
+
+int THD_mutex_lock(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ l o c k		( P O S I X )
+ *
+ **************************************
+ *
+ * Functional description
+ * Tries to lock mutex and returns 0 if success,
+ * error number in case of error
+ *
+ **************************************/
+#ifdef HP10
+
+	int state;
+
+	state = pthread_mutex_lock(mutex);
+	if (!state)
+		return 0;
+	assert(state == -1);		/* if state is not 0, it should be -1 */
+	return errno;
+
+#else
+
+	return pthread_mutex_lock(mutex);
+
+#endif /* HP10 */
+}
+
+
+int THD_mutex_unlock(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ u n l o c k		( P O S I X )
+ *
+ **************************************
+ *
+ * Functional description
+ * Tries to unlock mutex and returns 0 if success,
+ * error number in case of error
+ *
+ **************************************/
+#ifdef HP10
+
+	int state;
+
+	state = pthread_mutex_unlock(mutex);
+	if (!state)
+		return 0;
+	assert(state == -1);		/* if state is not 0, it should be -1 */
+	return errno;
+
+#else
+
+	return pthread_mutex_unlock(mutex);
+
+#endif /* HP10 */
+}
+#endif /* POSIX_THREADS */
+#endif /* ANY_THREADING */
+
+
+#ifdef ANY_THREADING
+#ifdef SOLARIS_MT
+#define THREAD_MUTEXES_DEFINED
+int THD_mutex_destroy(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ d e s t r o y 	( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return mutex_destroy(mutex);
+}
+
+
+int THD_mutex_init(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ i n i t		( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return mutex_init(mutex, USYNC_THREAD, NULL);
+}
+
+
+int THD_mutex_lock(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ l o c k		( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return mutex_lock(mutex);
+}
+
+
+int THD_mutex_unlock(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ u n l o c k		( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return mutex_unlock(mutex);
+}
+#endif
+#endif
+
+
+#ifdef ANY_THREADING
+#ifdef VMS
+#define THREAD_MUTEXES_DEFINED
+int THD_mutex_destroy(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ d e s t r o y	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int THD_mutex_init(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ i n i t		( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return ISC_mutex_init(mutex, 0);
+}
+
+
+int THD_mutex_lock(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ l o c k		( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return ISC_mutex_lock(mutex);
+}
+
+
+int THD_mutex_unlock(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ u n l o c k		( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return ISC_mutex_unlock(mutex);
+}
+#endif
+#endif
+
+
+
+#ifdef ANY_THREADING
+
+#ifdef WIN_NT
+
+#define THREAD_MUTEXES_DEFINED
+
+int THD_mutex_destroy(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ d e s t r o y	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad struct ptr type cast.")
+	DeleteCriticalSection(reinterpret_cast < LPCRITICAL_SECTION > (mutex));
+
+	return 0;
+}
+
+
+int THD_mutex_init(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ i n i t		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad struct ptr type cast.")
+	InitializeCriticalSection(reinterpret_cast < LPCRITICAL_SECTION >
+							  (mutex));
+
+	return 0;
+}
+
+
+int THD_mutex_lock(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ l o c k		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad struct ptr type cast.")
+	EnterCriticalSection(reinterpret_cast < LPCRITICAL_SECTION > (mutex));
+
+	return 0;
+}
+
+
+int THD_mutex_unlock(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ u n l o c k		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad struct ptr type cast.")
+	LeaveCriticalSection(reinterpret_cast < LPCRITICAL_SECTION > (mutex));
+
+	return 0;
+}
+
+#endif // WIN_NT
+
+#endif // ANY_THREADING
+
+
+#ifdef ANY_THREADING
+#ifdef NETWARE_386
+#define THREAD_MUTEXES_DEFINED
+int THD_mutex_destroy(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ d e s t r o y	( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	if (mutex->mutx_mutex != 0)
+		ISC_semaphore_close(mutex->mutx_mutex);
+
+	return 0;
+}
+
+
+int THD_mutex_init(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ i n i t		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	ISC_semaphore_open(&mutex->mutx_mutex, 1);
+	return 0;
+}
+
+
+int THD_mutex_lock(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ l o c k		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return ISC_mutex_lock(&mutex->mutx_mutex);
+}
+
+
+int THD_mutex_unlock(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ u n l o c k		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return ISC_mutex_unlock(&mutex->mutx_mutex);
+}
+#endif
+#endif
+
+
+#ifndef THREAD_MUTEXES_DEFINED
+int DLL_EXPORT THD_mutex_destroy(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ d e s t r o y	( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int THD_mutex_init(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ i n i t		( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int THD_mutex_lock(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ l o c k		( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int THD_mutex_unlock(MUTX_T * mutex)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ u n l o c k		( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return 0;
+}
+#endif
+
+
+int THD_mutex_destroy_n(MUTX_T * mutexes, USHORT n)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ d e s t r o y _ n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	while (n--)
+		THD_mutex_destroy(mutexes++);
+
+	return 0;
+}
+
+
+int THD_mutex_init_n(MUTX_T * mutexes, USHORT n)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ i n i t _ n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	while (n--)
+		THD_mutex_init(mutexes++);
+
+	return 0;
+}
+
+
+#ifdef ANY_THREADING
+int THD_mutex_lock_global(void)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ l o c k _ g l o b a l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return THD_mutex_lock(&ib_mutex);
+}
+
+
+int THD_mutex_unlock_global(void)
+{
+/**************************************
+ *
+ *	T H D _ m u t e x _ u n l o c k _ g l o b a l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return THD_mutex_unlock(&ib_mutex);
+}
+#endif
+
+
+#ifdef V4_THREADING
+#ifdef SOLARIS_MT
+#ifdef THD_RWLOCK_STRUCT
+#define RW_LOCK_DEFINED
+int THD_wlck_destroy(WLCK_T * wlock)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ d e s t r o y		( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int status;
+
+#ifdef THREAD_DEBUG
+	ib_fprintf(ib_stderr, "calling rwlock_destroy %x\n", wlock);
+#endif
+
+	status = rwlock_destroy(wlock);
+
+#ifdef THREAD_DEBUG
+	if (status)
+		ib_fprintf(ib_stderr, "status = %d errno = %d\n", status, errno);
+#endif
+
+	return status;
+}
+
+
+int THD_wlck_init(WLCK_T * wlock)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ i n i t		( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int status;
+
+#ifdef THREAD_DEBUG
+	ib_fprintf(ib_stderr, "calling rwlock_init %x\n", wlock);
+#endif
+
+	status = rwlock_init(wlock, USYNC_THREAD, NULL);
+
+#ifdef THREAD_DEBUG
+	if (status)
+		ib_fprintf(ib_stderr, "status = %d errno = %d\n", status, errno);
+#endif
+
+	return status;
+}
+
+
+int THD_wlck_lock(WLCK_T * wlock, USHORT type)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ l o c k		( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int status;
+
+#ifdef THREAD_DEBUG
+	if (type == WLCK_read)
+		ib_fprintf(ib_stderr, "calling rwlock_rdlock %x\n", wlock);
+	else
+		ib_fprintf(ib_stderr, "calling rwlock_wrlock %x\n", wlock);
+#endif
+
+	if (type == WLCK_read)
+		status = rw_rdlock(wlock);
+	else
+		status = rw_wrlock(wlock);
+
+#ifdef THREAD_DEBUG
+	if (status)
+		ib_fprintf(ib_stderr, "status = %d errno = %d\n", status, errno);
+#endif
+
+	return status;
+}
+
+
+int THD_wlck_unlock(WLCK_T * wlock)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ u n l o c k	( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int status;
+
+#ifdef THREAD_DEBUG
+	ib_fprintf(ib_stderr, "calling rwlock_unlock %x\n", wlock);
+#endif
+
+	status = rw_unlock(wlock);
+
+#ifdef THREAD_DEBUG
+	if (status)
+		ib_fprintf(ib_stderr, "status = %d errno = %d\n", status, errno);
+#endif
+
+	return status;
+}
+#endif
+#endif
+#endif
+
+
+#ifdef V4_THREADING
+#ifndef THD_RWLOCK_STRUCT
+#define RW_LOCK_DEFINED
+int THD_wlck_destroy(WLCK_T * wlock)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ d e s t r o y 	( s i m u l a t e )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return cond_destroy(&wlock->wlck_cond);
+}
+
+
+int THD_wlck_init(WLCK_T * wlock)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ i n i t		( s i m u l a t e )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	wlock->wlck_count = 0;
+	wlock->wlck_waiters = 0;
+
+	return cond_init(&wlock->wlck_cond);
+}
+
+
+int THD_wlck_lock(WLCK_T * wlock, USHORT type)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ l o c k		( s i m u l a t e )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int status, incr;
+
+#ifdef THREAD_DEBUG
+	if (type == WLCK_read)
+		ib_fprintf(ib_stderr, "calling rwlock_rdlock %x\n", wlock);
+	else
+		ib_fprintf(ib_stderr, "calling rwlock_wrlock %x\n", wlock);
+#endif
+
+	if (status = THD_mutex_lock(&wlock->wlck_cond.cond_mutex))
+		return status;
+
+	if (type == WLCK_read) {
+		if (wlock->wlck_count < 0)
+			incr = ++wlock->wlck_waiters;
+		else
+			incr = 0;
+
+		while (wlock->wlck_count < 0)
+			cond_wait(&wlock->wlck_cond, NULL);
+
+		wlock->wlck_count++;
+	}
+	else {
+		if (wlock->wlck_count > 0)
+			incr = ++wlock->wlck_waiters;
+		else
+			incr = 0;
+
+		while (wlock->wlck_count > 0)
+			cond_wait(&wlock->wlck_cond, NULL);
+
+		wlock->wlck_count = -1;
+	}
+
+	if (incr)
+		wlock->wlck_waiters--;
+
+	return THD_mutex_unlock(&wlock->wlck_cond.cond_mutex);
+}
+
+
+int THD_wlck_unlock(WLCK_T * wlock)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ u n l o c k	( s i m u l a t e )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int status;
+
+	if (status = THD_mutex_lock(&wlock->wlck_cond.cond_mutex))
+		return status;
+
+	if (wlock->wlck_count > 0)
+		wlock->wlck_count--;
+	else
+		wlock->wlck_count = 0;
+
+	if (wlock->wlck_waiters)
+		cond_broadcast(&wlock->wlck_cond);
+
+	return THD_mutex_unlock(&wlock->wlck_cond.cond_mutex);
+}
+#endif
+#endif
+
+
+#ifndef RW_LOCK_DEFINED
+int DLL_EXPORT THD_wlck_destroy(WLCK_T * wlock)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ d e s t r o y		( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int DLL_EXPORT THD_wlck_init(WLCK_T * wlock)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ i n i t		( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int DLL_EXPORT THD_wlck_lock(WLCK_T * wlock, USHORT type)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ l o c k		( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int DLL_EXPORT THD_wlck_unlock(WLCK_T * wlock)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ u n l o c k	( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return 0;
+}
+#endif
+
+
+void THD_wlck_destroy_n(WLCK_T * wlocks, USHORT n)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ d e s t r o y _ n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	while (n--)
+		THD_wlck_destroy(wlocks++);
+}
+
+
+void THD_wlck_init_n(WLCK_T * wlocks, USHORT n)
+{
+/**************************************
+ *
+ *	T H D _ w l c k _ i n i t _ n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	while (n--)
+		THD_wlck_init(wlocks++);
+}
+
+
+void DLL_EXPORT THD_put_specific(THDD new_context)
+{
+/**************************************
+ *
+ *	T H D _ p u t _ s p e c i f i c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	if (!initialized)
+		THD_init();
+
+/* Save the current context */
+
+	new_context->thdd_prior_context = THD_get_specific();
+
+	put_specific(new_context);
+}
+
+
+void DLL_EXPORT THD_putspecific_data(void *t_data)
+{
+/**************************************
+ *
+ *	T H D _ p u t s p e c i f i c _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store the passed t_data using the ket t_key
+ *
+ **************************************/
+
+	if (!t_init)
+		THD_init_data();
+#ifdef ANY_THREADING
+
+#ifdef POSIX_THREADS
+	pthread_setspecific(t_key, t_data);
+#endif
+
+#ifdef SOLARIS_MT
+	thr_setspecific(t_key, t_data);
+#endif
+
+#ifdef WIN_NT
+	TlsSetValue(t_key, (LPVOID) t_data);
+#endif
+
+#endif
+}
+
+
+THDD DLL_EXPORT THD_restore_specific(void)
+{
+/**************************************
+ *
+ *	T H D _ r e s t o r e _ s p e c i f i c
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	THDD current_context;
+
+	current_context = THD_get_specific();
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad struct ptr type cast.")
+	put_specific(reinterpret_cast < THDD >
+				 (current_context->thdd_prior_context));
+
+	return reinterpret_cast < THDD > (current_context->thdd_prior_context);
+}
+
+
+#ifdef SUPERSERVER
+int THD_rec_mutex_destroy(REC_MUTX_T * rec_mutex)
+{
+/**************************************
+ *
+ *	T H D _ r e c _ m u t e x _ d e s t r o y   ( S U P E R S E R V E R )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return THD_mutex_destroy(rec_mutex->rec_mutx_mtx);
+}
+
+
+int THD_rec_mutex_init(REC_MUTX_T * rec_mutex)
+{
+/**************************************
+ *
+ *	T H D _ r e c _ m u t e x _ i n i t   ( S U P E R S E R V E R )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	THD_mutex_init(rec_mutex->rec_mutx_mtx);
+	rec_mutex->rec_mutx_id = 0;
+	rec_mutex->rec_mutx_count = 0;
+	return 0;
+}
+
+
+int THD_rec_mutex_lock(REC_MUTX_T * rec_mutex)
+{
+/**************************************
+ *
+ *	T H D _ r e c _ m u t e x _ l o c k   ( S U P E R S E R V E R )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int ret;
+
+	if (rec_mutex->rec_mutx_id == THD_get_thread_id())
+		rec_mutex->rec_mutx_count++;
+	else {
+		if (ret = THD_mutex_lock(rec_mutex->rec_mutx_mtx))
+			return ret;
+		rec_mutex->rec_mutx_id = THD_get_thread_id();
+		rec_mutex->rec_mutx_count = 1;
+	}
+	return 0;
+}
+
+
+int THD_rec_mutex_unlock(REC_MUTX_T * rec_mutex)
+{
+/**************************************
+ *
+ *	T H D _ r e c _ m u t e x _ u n l o c k   ( S U P E R S E R V E R )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int ret;
+
+	if (rec_mutex->rec_mutx_id != THD_get_thread_id())
+		return FAILURE;
+
+	rec_mutex->rec_mutx_count--;
+
+	if (rec_mutex->rec_mutx_count)
+		return 0;
+	else {
+		rec_mutex->rec_mutx_id = 0;
+		return THD_mutex_unlock(rec_mutex->rec_mutx_mtx);
+	}
+}
+#endif /* SUPERSERVER */
+
+
+#ifdef WIN_NT
+#define THREAD_SUSPEND_DEFINED
+int THD_resume(THD_T thread)
+{
+/**************************************
+ *
+ *	T H D _ r e s u m e			( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Resume execution of a thread that has been
+ *	suspended.
+ *
+ **************************************/
+
+	if (ResumeThread(thread) == 0xFFFFFFFF)
+		return GetLastError();
+
+	return 0;
+}
+
+
+int THD_suspend(THD_T thread)
+{
+/**************************************
+ *
+ *	T H D _ s u s p e n d			( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Suspend execution of a thread.
+ *
+ **************************************/
+
+	if (SuspendThread(thread) == 0xFFFFFFFF)
+		return GetLastError();
+
+	return 0;
+}
+#endif
+
+
+#ifndef THREAD_SUSPEND_DEFINED
+int THD_resume(THD_T thread)
+{
+/**************************************
+ *
+ *	T H D _ r e s u m e			( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Resume execution of a thread that has been
+ *	suspended.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int THD_suspend(THD_T thread)
+{
+/**************************************
+ *
+ *	T H D _ s u s p e n d			( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Suspend execution of a thread.
+ *
+ **************************************/
+
+	return 0;
+}
+#endif
+
+
+void THD_sleep(ULONG milliseconds)
+{
+/**************************************
+ *
+ *	T H D _ s l e e p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Thread sleeps for requested number
+ *	of milliseconds.
+ *
+ **************************************/
+#ifdef ANY_THREADING
+
+#ifdef WIN_NT
+	SleepEx(milliseconds, FALSE);
+#else
+	EVENT_T timer;
+	EVENT timer_ptr = &timer;
+	SLONG count;
+
+	ISC_event_init(&timer, 0, 0);
+	count = ISC_event_clear(&timer);
+
+	(void) ISC_event_wait(1, &timer_ptr, &count, milliseconds * 1000,
+						  (FPTR_VOID) 0, 0);
+	ISC_event_fini(&timer);
+#endif
+
+#else /* !ANY_THREADING */
+	int seconds;
+
+/* Insure that process sleeps some amount of time. */
+
+	if (!(seconds = milliseconds / 1000))
+		++seconds;
+
+/* Feedback unslept time due to premature wakeup from signals. */
+
+	while (seconds = sleep(seconds));
+
+#endif /* ANY_THREADING */
+}
+
+
+void THD_yield(void)
+{
+/**************************************
+ *
+ *	T H D _ y i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Thread relinquishes the processor.
+ *
+ **************************************/
+#ifdef ANY_THREADING
+
+#ifdef POSIX_THREADS
+/* use sched_yield() instead of pthread_yield(). Because pthread_yield() 
+   is not part of the (final) POSIX 1003.1c standard. Several drafts of 
+   the standard contained pthread_yield(), but then the POSIX guys 
+   discovered it was redundant with sched_yield() and dropped it. 
+   So, just use sched_yield() instead. POSIX systems on which  
+   sched_yield() is available define _POSIX_PRIORITY_SCHEDULING 
+   in <unistd.h>.
+*/
+#ifdef _POSIX_PRIORITY_SCHEDULING
+	sched_yield();
+#else
+	pthread_yield();
+#endif /* _POSIX_PRIORITY_SCHEDULING */
+#endif
+
+#ifdef SOLARIS
+	thr_yield();
+#endif
+
+#ifdef WIN_NT
+	SleepEx(1, FALSE);
+#endif
+
+#ifdef NETWARE_386
+	ThreadSwitch();
+#endif
+
+#endif /* ANY_THREADING */
+}
+
+
+#ifdef V4_THREADING
+#ifdef SOLARIS_MT
+#define CONDITION_DEFINED
+static int cond_broadcast(COND_T * cond)
+{
+/**************************************
+ *
+ *	c o n d _ b r o a d c a s t	( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return cond_broadcast(&cond->cond_cond);
+}
+
+
+static int cond_destroy(COND_T * cond)
+{
+/**************************************
+ *
+ *	c o n d _ d e s t r o y		( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	THD_mutex_destroy(&cond->cond_mutex);
+
+	return cond_destroy(&cond->cond_cond);
+}
+
+
+static int cond_init(COND_T * cond)
+{
+/**************************************
+ *
+ *	c o n d _ i n i t		( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	THD_mutex_init(&cond->cond_mutex);
+
+	return cond_init(&cond->cond_cond, USYNC_THREAD, NULL);
+}
+
+
+static int cond_wait(COND_T * cond, timestruc_t * time)
+{
+/**************************************
+ *
+ *	c o n d _ w a i t		( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	if (time)
+		return cond_timedwait(&cond->cond_cond, &cond->cond_mutex, time);
+	else
+		return cond_wait(&cond->cond_cond, &cond->cond_mutex);
+}
+#endif
+#endif
+
+
+static void init(void)
+{
+/**************************************
+ *
+ *	i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	if (initialized)
+		return;
+
+	initialized = TRUE;
+
+#ifdef ANY_THREADING
+	THD_mutex_init(&ib_mutex);
+
+#ifdef POSIX_THREADS
+#ifdef HP10
+
+	pthread_keycreate(&specific_key, NULL);
+
+#else
+
+	pthread_key_create(&specific_key, NULL);
+
+#endif /* HP10 */
+#endif /* POSIX_THREADS */
+
+#ifdef SOLARIS_MT
+	if (thr_keycreate(&specific_key, NULL)) {
+		/* This call to thr_min_stack exists simply to force a link error
+		 * for a client application that neglects to include -lthread.
+		 * Solaris, for unknown reasons, includes stubs for all the
+		 * thread functions in libC.  Should the stubs be linked in
+		 * there is no compile error, no runtime error, and InterBase
+		 * will core drop.
+		 * Including this call gives an undefined symbol if -lthread is
+		 * omitted, looking at the man page will inform the client programmer
+		 * that -lthread is needed to resolve the symbol.
+		 * Note that we don't care if this thr_min_stack() is called or
+		 * not, we just need to have a reference to it to force a link error.
+		 */
+		(void) thr_min_stack();
+		ib_perror("thr_keycreate");
+		exit(1);
+	}
+#endif /* SOLARIS _MT */
+
+#ifdef WIN_NT
+	specific_key = TlsAlloc();
+#endif /* WIN_NT */
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad function ptr type cast.")
+	gds__register_cleanup(reinterpret_cast < FPTR_VOID_PTR > (THD_cleanup),
+						  0);
+
+#endif /* ANY_THREADING */
+}
+
+
+static void init_tkey(void)
+{
+/**************************************
+ *
+ *	i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Function which actually creates the key which
+ *	can be used by the threads to store t_data
+ *
+ **************************************/
+
+	if (t_init)
+		return;
+
+	t_init = TRUE;
+
+#ifdef ANY_THREADING
+
+#ifdef POSIX_THREADS
+#ifdef HP10
+
+	pthread_keycreate(&t_key, NULL);
+
+#else
+
+	pthread_key_create(&t_key, NULL);
+
+#endif /* HP10 */
+#endif /* POSIX_THREADS */
+
+#ifdef SOLARIS_MT
+	thr_keycreate(&t_key, NULL);
+#endif
+
+#ifdef WIN_NT
+	t_key = TlsAlloc();
+#endif
+#endif
+}
+
+
+#ifdef ANY_THREADING
+#ifdef POSIX_THREADS
+#define PUT_SPECIFIC_DEFINED
+static void put_specific(THDD new_context)
+{
+/**************************************
+ *
+ *	p u t _ s p e c i f i c		( P O S I X )
+ *
+ **************************************
+ *
+ * Functional description
+ * Puts new thread specific data
+ *
+ **************************************/
+
+	pthread_setspecific(specific_key, new_context);
+}
+#endif /* ANY_THREADING */
+#endif /* POSIX_THREADS */
+
+
+#ifdef ANY_THREADING
+#ifdef SOLARIS_MT
+#define PUT_SPECIFIC_DEFINED
+static void put_specific(THDD new_context)
+{
+/**************************************
+ *
+ *	p u t _ s p e c i f i c		( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	if (thr_setspecific(specific_key, new_context)) {
+		ib_perror("thr_setspecific");
+		exit(1);
+	}
+}
+#endif
+#endif
+
+
+#ifdef ANY_THREADING
+#ifdef WIN_NT
+#define PUT_SPECIFIC_DEFINED
+static void put_specific(THDD new_context)
+{
+/**************************************
+ *
+ *	p u t _ s p e c i f i c		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	TlsSetValue(specific_key, (LPVOID) new_context);
+}
+#endif
+#endif
+
+
+#ifdef ANY_THREADING
+#ifdef NETWARE_386
+#define PUT_SPECIFIC_DEFINED
+static void put_specific(THDD new_context)
+{
+/**************************************
+ *
+ *	p u t _ s p e c i f i c		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	SaveThreadDataAreaPtr(new_context);
+}
+#endif
+#endif
+
+
+#ifndef PUT_SPECIFIC_DEFINED
+static void put_specific(THDD new_context)
+{
+/**************************************
+ *
+ *	p u t _ s p e c i f i c		( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	gdbb = new_context;
+}
+#endif
+
+
+#ifdef NETWARE_386
+#define START_THREAD
+static int thread_start(
+						int (*routine) (void *),
+						void *arg, int priority, int flags, void *thd_id)
+{
+/**************************************
+ *
+ *      t h r e a d _ s t a r t         ( N E T W A R E )
+ *
+ **************************************
+ *
+ * Functional description
+ *      Start a new thread.  Return 0 if successful,
+ *      status if not.
+ *
+ **************************************/
+	int ret;
+
+	flags = flags;
+	priority = priority;
+
+	ret = BeginThread(routine, NULL, STACK_SIZE, arg);
+
+	if (thd_id)
+		*(int *) thd_id = ret;
+
+	if (ret)
+		return (0);
+	else
+		return (1);
+}
+#endif
+
+
+#ifdef ANY_THREADING
+#ifdef POSIX_THREADS
+#define START_THREAD
+static int thread_start(
+						int (*routine) (void *),
+						void *arg, int priority_arg, int flags, void *thd_id)
+{
+/**************************************
+ *
+ *	t h r e a d _ s t a r t		( P O S I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a new thread.  Return 0 if successful,
+ *	status if not.
+ *
+ **************************************/
+	pthread_t thread;
+	pthread_attr_t pattr;
+	int state;
+
+#ifdef DGUX
+/* DGUX POSIX threads implementation does not define PTHREAD_CREATE_DETACHED and
+   pthread_attr_setdetachstate requires pointer to int as the second argument,
+   which should contain new state.
+*/
+	int detach_state = PTHREAD_CREATE_DETACHED
+#endif
+#if ( !defined HP10 && !defined linux )
+		state = pthread_attr_init(&pattr);
+	if (state)
+		return state;
+
+/* Do not make thread bound for superserver/client */
+
+#if (!defined (SUPERCLIENT) && !defined (SUPERSERVER))
+	pthread_attr_setscope(&pattr, PTHREAD_SCOPE_SYSTEM);
+#endif
+
+#ifdef DGUX
+	pthread_attr_setdetachstate(&pattr, &detach_state);
+#else
+	pthread_attr_setdetachstate(&pattr, PTHREAD_CREATE_DETACHED);
+#endif
+
+	state = pthread_create(&thread, &pattr, routine, arg);
+	pthread_attr_destroy(&pattr);
+	return state;
+
+#else
+#ifdef linux
+		if (state = pthread_create(&thread, NULL, routine, arg))
+		return state;
+	return pthread_detach(thread);
+#else
+		long stack_size;
+
+	state = pthread_attr_create(&pattr);
+	if (state) {
+		assert(state == -1);
+		return errno;
+	}
+
+/* The default HP's stack size is too small. HP's documentation
+   says it is "machine specific". My test showed it was less
+   than 64K. We definitly need more stack to be able to execute
+   concurrently many (at least 100) copies of the same request
+   (like, for example in case of recursive stored prcedure).
+   The following code sets threads stack size up to 256K if the
+   default stack size is less than this number
+*/
+	stack_size = pthread_attr_getstacksize(pattr);
+	if (stack_size == -1)
+		return errno;
+
+	if (stack_size < 0x40000L) {
+		state = pthread_attr_setstacksize(&pattr, 0x40000L);
+		if (state) {
+			assert(state == -1);
+			return errno;
+		}
+	}
+
+/* HP's Posix threads implementation does not support
+   bound attribute. It just a user level library.
+*/
+	state = pthread_create(&thread, pattr, routine, arg);
+	if (state) {
+		assert(state == -1);
+		return errno;
+	}
+	state = pthread_detach(&thread);
+	if (state) {
+		assert(state == -1);
+		return errno;
+	}
+	state = pthread_attr_delete(&pattr);
+	if (state) {
+		assert(state == -1);
+		return errno;
+	}
+	return 0;
+
+#endif /* linux */
+#endif /* HP10 */
+}
+#endif /* POSIX_THREADS */
+#endif /* ANY_THREADING */
+
+
+#ifdef ANY_THREADING
+#ifdef SOLARIS_MT
+#define START_THREAD
+static int thread_start(
+						int (*routine) (void *),
+						void *arg, int priority_arg, int flags, void *thd_id)
+{
+/**************************************
+ *
+ *	t h r e a d _ s t a r t		( S o l a r i s )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a new thread.  Return 0 if successful,
+ *	status if not.
+ *
+ **************************************/
+	int rval;
+	thread_t thread_id;
+	sigset_t new_mask, orig_mask;
+
+	(void) sigfillset(&new_mask);
+	(void) sigdelset(&new_mask, SIGALRM);
+	if (rval = thr_sigsetmask(SIG_SETMASK, &new_mask, &orig_mask))
+		return rval;
+#if (defined SUPERCLIENT || defined SUPERSERVER)
+	rval = thr_create(NULL, 0, routine, arg, THR_DETACHED, &thread_id);
+#else
+	rval =
+		thr_create(NULL, 0, routine, arg, (THR_BOUND | THR_DETACHED),
+				   &thread_id);
+#endif
+	(void) thr_sigsetmask(SIG_SETMASK, &orig_mask, NULL);
+
+	return rval;
+}
+#endif
+#endif
+
+
+#ifdef ANY_THREADING
+#ifdef WIN_NT
+#define START_THREAD
+static int thread_start(int (*routine) (void *),
+						void *arg, int priority_arg, int flags, void *thd_id)
+{
+/**************************************
+ *
+ *	t h r e a d _ s t a r t		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a new thread.  Return 0 if successful,
+ *	status if not.
+ *
+ **************************************/
+
+	HANDLE handle;
+	DWORD thread_id;
+	int priority;
+
+	DWORD create = (flags & THREAD_wait) ? CREATE_SUSPENDED : 0;
+
+#ifdef __BORLANDC__
+	handle =
+		(HANDLE) _beginthreadNT((void (_USERENTRY *) (void *)) routine, 0,
+								arg, NULL, create, &thread_id);
+
+	if (handle == (HANDLE) - 1) {
+		return errno;
+	}
+#else
+	/* I have changed the CreateThread here to _beginthreadex() as using
+	 * CreateThread() can lead to memory leaks caused by C-runtime library.
+	 * Advanced Windows by Richter pg. # 109. */
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad, bad, bad function ptr type cast!!!")
+	unsigned long real_handle = _beginthreadex(NULL,
+											   0,
+											   reinterpret_cast <
+											   unsigned (__stdcall *) (void *)
+											   >(routine),
+											   arg,
+											   create,
+											   reinterpret_cast <
+											   unsigned *>(&thread_id));
+	if (!real_handle) {
+		return GetLastError();
+	}
+	handle = reinterpret_cast < HANDLE > (real_handle);
+
+#endif
+
+	switch (priority_arg) {
+	case THREAD_critical:
+		priority = THREAD_PRIORITY_TIME_CRITICAL;
+		break;
+	case THREAD_high:
+		priority = THREAD_PRIORITY_HIGHEST;
+		break;
+	case THREAD_medium_high:
+		priority = THREAD_PRIORITY_ABOVE_NORMAL;
+		break;
+	case THREAD_medium:
+		priority = THREAD_PRIORITY_NORMAL;
+		break;
+	case THREAD_medium_low:
+		priority = THREAD_PRIORITY_BELOW_NORMAL;
+		break;
+	case THREAD_low:
+	default:
+		priority = THREAD_PRIORITY_LOWEST;
+		break;
+	}
+
+	SetThreadPriority(handle, priority);
+	if (thd_id)
+		*(HANDLE *) thd_id = handle;
+	else
+		CloseHandle(handle);
+
+	return 0;
+}
+#endif
+#endif
+
+
+#ifdef ANY_THREADING
+#ifdef VMS
+#ifndef POSIX_THREADS
+#define START_THREAD
+/**************************************
+ *
+ *	t h r e a d _ s t a r t		( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a new thread.  Return 0 if successful,
+ *	status if not.  This routine is coded in macro.
+ *
+ **************************************/
+#endif
+#endif
+#endif
+
+
+#ifndef START_THREAD
+static int thread_start(
+						int (*routine) (void *),
+						void *arg, int priority_arg, int flags, void *thd_id)
+{
+/**************************************
+ *
+ *	t h r e a d _ s t a r t		( G e n e r i c )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a new thread.  Return 0 if successful,
+ *	status if not.
+ *
+ **************************************/
+
+	return 1;
+}
+#endif
+
+
+} // extern "C"
diff --git a/src/jrd/thd.h b/src/jrd/thd.h
new file mode 100644
index 0000000000..dcaa84fd66
--- /dev/null
+++ b/src/jrd/thd.h
@@ -0,0 +1,306 @@
+/*
+ *	PROGRAM:	JRD access method
+ *	MODULE:		thd.h
+ *	DESCRIPTION:	Thread support definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: thd.h,v 1.1.1.1 2001-05-23 13:26:19 tamlin Exp $
+*/
+
+#ifndef _JRD_THD_H_
+#define _JRD_THD_H_
+
+#ifdef NETWARE_386
+#define MULTI_THREAD		1
+#define THD_MUTEX_STRUCT	ULONG
+#define STACK_SAFE_LIMIT	10200
+#endif
+
+#ifdef SOLARIS
+#ifdef SOLARIS_MT
+#include <thread.h>
+#define MULTI_THREAD		1
+#define THD_MUTEX_STRUCT	mutex_t
+#define THD_COND_STRUCT		cond_t
+#define THD_RWLOCK_STRUCT	rwlock_t
+#endif
+#endif
+
+#if (defined(HP10) && defined(SUPERSERVER))
+#define POSIX_THREADS		1
+#define MULTI_THREAD		1
+#endif
+
+#if (defined(DGUX) && defined(SUPERSERVER))
+#define POSIX_THREADS		1
+#define MULTI_THREAD		1
+#endif
+
+#if (defined(LINUX) && defined(SUPERSERVER))
+#define POSIX_THREADS           1
+#define MULTI_THREAD            1
+#endif
+
+#ifdef VMS
+#ifndef GATEWAY
+#define MULTI_THREAD		1
+/*
+#define POSIX_THREADS		1
+*/
+#include "../jrd/isc.h"
+#define THD_MUTEX_STRUCT	MTX_T
+#endif
+#endif
+
+#ifdef WIN_NT
+#define MULTI_THREAD		1
+#define THD_MUTEX_STRUCT	struct IB_RTL_CRITICAL_SECTION
+
+/* The following code fragment has been extracted from <winnt.h>.
+   Microsoft being what it is, one is forced to include just about the
+   entire world even if you want only one little declaration.  Since
+   including the whole world tends to break things (Microsoft also
+   doesn't believe in benign naming conversions) we must copy code. */
+
+#ifndef __cplusplus
+typedef
+#endif
+struct IB_RTL_CRITICAL_SECTION
+{
+	void*	DebugInfo;
+	ULONG	LockCount;
+	ULONG	RecursionCount;
+	void*	OwningThread;
+	void*	LockSemaphore;
+	ULONG	Reserved;
+};
+#endif
+
+#ifdef SUPERSERVER
+#define SERVER_SHUTDOWN		1
+#endif
+
+#ifdef MULTI_THREAD
+#define ANY_THREADING		1
+#endif
+#ifdef V4_THREADING
+#define ANY_THREADING		1
+#endif
+
+#ifdef POSIX_THREADS
+#include <pthread.h>
+#define THD_MUTEX_STRUCT	pthread_mutex_t
+#define THD_COND_STRUCT		pthread_cond_t
+
+#ifndef PTHREAD_PROCESS_SHARED
+#define PTHREAD_PROCESS_SHARED 1
+#endif
+
+#ifndef PTHREAD_CREATE_DETACHED
+#define PTHREAD_CREATE_DETACHED 1
+#endif
+
+#endif
+
+#ifndef THD_MUTEX_STRUCT
+#define THD_MUTEX_STRUCT	SCHAR
+#endif
+#ifndef THD_COND_STRUCT
+#define THD_COND_STRUCT		SCHAR
+#endif
+
+#ifdef ANY_THREADING
+#define GET_THREAD_DATA		((THDD) THD_get_specific())
+#else
+#define GET_THREAD_DATA		gdbb
+#endif
+
+#ifdef MULTI_THREAD
+#define SIGNAL_INHIBIT
+#define SIGNAL_ENABLE
+#ifdef SUPERSERVER
+#define THREAD_ENTER		SCH_enter()
+#define THREAD_EXIT		SCH_exit()
+#define THREAD_VALIDATE		SCH_validate()
+#define SWEEP_THREAD
+#define GARBAGE_THREAD
+#else
+#define THREAD_ENTER		gds__thread_enter()
+#define THREAD_EXIT		gds__thread_exit()
+#define THREAD_VALIDATE
+#define AST_THREAD
+#endif
+#define THREAD_SLEEP(msecs)	THD_sleep (msecs)
+#define THREAD_YIELD		THD_yield()
+#endif
+
+#ifndef THREAD_ENTER
+#define THREAD_ENTER
+#define THREAD_EXIT
+#define THREAD_VALIDATE
+#define THREAD_SLEEP(msecs)	THD_sleep (msecs)
+#define THREAD_YIELD
+#endif
+
+#ifndef SIGNAL_INHIBIT
+#define SIGNAL_INHIBIT		ISC_inhibit()
+#define SIGNAL_ENABLE		ISC_enable()
+#endif
+
+/* Thread priorities (may be ignored) */
+
+#define THREAD_high		1
+#define THREAD_medium_high	2
+#define THREAD_medium		3
+#define THREAD_medium_low	4
+#define THREAD_low		5
+#define THREAD_critical		6
+
+/* Thread option flags */
+
+#define THREAD_ast		1		/* Thread can/should run at ast level */
+#define THREAD_blast		2	/* Blow away thread during exit handler */
+#define THREAD_wait		4		/* Somebody will wait for thread exit */
+
+/* Thread quanta */
+
+#define QUANTUM			100		/* Default quantum */
+#define SWEEP_QUANTUM		10	/* Make sweeps less disruptive */
+
+
+/* Thread specific data */
+
+typedef struct thdd {
+	void *thdd_prior_context;
+	ULONG thdd_type;			/* what kind of structrue this is */
+} *THDD;
+
+/* Thread structure types */
+
+#define THDD_TYPE_TGBL  1		/* used by backup/restore */
+#define THDD_TYPE_TSQL  2		/* used by DSQL */
+#define THDD_TYPE_TDBB  3		/* used in engine */
+#define THDD_TYPE_TRDB  4		/* used in remote interface */
+#define THDD_TYPE_TDBA  5		/* used in DBA utility */
+#define THDD_TYPE_TIDB	6		/* used by interprocess server */
+#define THDD_TYPE_TALICE 7		/* used by gfix */
+#define THDD_TYPE_TSEC	8		/* used by gsec */
+
+/* General purpose in use object structure */
+
+typedef struct iuo {
+	struct iuo *iuo_next;
+	void *iuo_object[10];
+	USHORT iuo_in_use_count;
+} *IUO;
+
+/* Mutex structure */
+
+typedef struct mutx_t {
+	THD_MUTEX_STRUCT mutx_mutex;
+} MUTX_T, *MUTX;
+
+/* Recursive mutex structure */
+typedef struct rec_mutx_t {
+	MUTX_T rec_mutx_mtx[1];
+	ULONG rec_mutx_id;
+	SLONG rec_mutx_count;
+} REC_MUTX_T, *REC_MUTX;
+
+/* Combined mutex and condition variable structure */
+
+typedef struct cond_t {
+	THD_MUTEX_STRUCT cond_mutex;
+	THD_COND_STRUCT cond_cond;
+} COND_T, *COND;
+
+/* Read/write lock structure */
+
+typedef struct wlck_t {
+#ifdef THD_RWLOCK_STRUCT
+	THD_RWLOCK_STRUCT wlck_wlock;
+#else
+	COND_T wlck_cond;
+	int wlck_count;
+	int wlck_waiters;
+#endif
+} WLCK_T, *WLCK;
+
+#define WLCK_read	1
+#define WLCK_write	2
+
+/* Threading allocation size */
+
+#define THREAD_STRUCT_SIZE(type,n)	(n * sizeof (type) + ALIGNMENT)
+#define THREAD_STRUCT_ALIGN(blk)	FB_ALIGN((U_IPTR) blk, ALIGNMENT)
+
+#ifdef V4_THREADING
+#define V4_INIT				THD_init()
+#define V4_GLOBAL_MUTEX_LOCK		THD_mutex_lock_global()
+#define V4_GLOBAL_MUTEX_UNLOCK		THD_mutex_unlock_global()
+#define V4_MUTEX_INIT(mutx)		THD_mutex_init (mutx)
+#define V4_MUTEX_LOCK(mutx)		THD_mutex_lock (mutx)
+#define V4_MUTEX_UNLOCK(mutx)		THD_mutex_unlock (mutx)
+#define V4_MUTEX_DESTROY(mutx)		THD_mutex_destroy (mutx)
+#define V4_RW_LOCK_INIT_N(wlck,n)	THD_wlck_init_n (wlck, n)
+#define V4_RW_LOCK_INIT(wlck)		THD_wlck_init (wlck)
+#define V4_RW_LOCK_LOCK(wlck,type)	THD_wlck_lock (wlck, type)
+#define V4_RW_LOCK_UNLOCK(wlck)		THD_wlck_unlock (wlck)
+#define V4_RW_LOCK_DESTROY(wlck)	THD_wlck_destroy (wlck)
+#define V4_RW_LOCK_DESTROY_N(wlck,n)	THD_wlck_destroy_n (wlck, n)
+#else
+#define V4_INIT
+#define V4_GLOBAL_MUTEX_LOCK
+#define V4_GLOBAL_MUTEX_UNLOCK
+#define V4_MUTEX_INIT(mutx)
+#define V4_MUTEX_LOCK(mutx)
+#define V4_MUTEX_UNLOCK(mutx)
+#define V4_MUTEX_DESTROY(mutx)
+#define V4_RW_LOCK_INIT_N(wlck,n)
+#define V4_RW_LOCK_INIT(wlck)
+#define V4_RW_LOCK_LOCK(wlck,type)
+#define V4_RW_LOCK_UNLOCK(wlck)
+#define V4_RW_LOCK_DESTROY_N(wlck,n)
+#define V4_RW_LOCK_DESTROY(wlck)
+#endif
+
+#ifdef ANY_THREADING
+#define THD_INIT			THD_init()
+#define THD_GLOBAL_MUTEX_LOCK		THD_mutex_lock_global()
+#define THD_GLOBAL_MUTEX_UNLOCK		THD_mutex_unlock_global()
+#define THD_MUTEX_INIT_N(mutx,n)	THD_mutex_init_n (mutx, n)
+#define THD_MUTEX_DESTROY_N(mutx,n)	THD_mutex_destroy_n (mutx, n)
+#define THD_MUTEX_INIT(mutx)		THD_mutex_init (mutx)
+#define THD_MUTEX_LOCK(mutx)		THD_mutex_lock (mutx)
+#define THD_MUTEX_UNLOCK(mutx)		THD_mutex_unlock (mutx)
+#define THD_MUTEX_DESTROY(mutx)		THD_mutex_destroy (mutx)
+#else
+#define THD_INIT
+#define THD_GLOBAL_MUTEX_LOCK
+#define THD_GLOBAL_MUTEX_UNLOCK
+#define THD_MUTEX_INIT_N(mutx,n)
+#define THD_MUTEX_DESTROY_N(mutx,n)
+#define THD_MUTEX_INIT(mutx)
+#define THD_MUTEX_LOCK(mutx)
+#define THD_MUTEX_UNLOCK(mutx)
+#define THD_MUTEX_DESTROY(mutx)
+#endif
+
+#endif /* _JRD_THD_H_ */
diff --git a/src/jrd/thd_proto.h b/src/jrd/thd_proto.h
new file mode 100644
index 0000000000..1dc8cb339a
--- /dev/null
+++ b/src/jrd/thd_proto.h
@@ -0,0 +1,72 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		thd_proto.h
+ *	DESCRIPTION:	Prototype header file for thd.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_THD_PROTO_H_
+#define _JRD_THD_PROTO_H_
+
+#include "../jrd/isc.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int API_ROUTINE gds__thread_start(FPTR_INT_VOID_PTR, void *, int, int,
+										 void *);
+extern long THD_get_thread_id(void);
+extern struct thdd *DLL_EXPORT THD_get_specific(void);
+extern void THD_getspecific_data(void **t_data);
+extern void DLL_EXPORT THD_init(void);
+extern void DLL_EXPORT THD_cleanup(void);
+extern int DLL_EXPORT THD_mutex_destroy(struct mutx_t *);
+extern int THD_mutex_init(struct mutx_t *);
+extern int THD_mutex_lock(struct mutx_t *);
+extern int THD_mutex_unlock(struct mutx_t *);
+extern int THD_mutex_destroy_n(struct mutx_t *, USHORT);
+extern int THD_mutex_init_n(struct mutx_t *, USHORT);
+extern int THD_mutex_lock_global(void);
+extern int THD_mutex_unlock_global(void);
+extern void DLL_EXPORT THD_put_specific(struct thdd *);
+extern void THD_putspecific_data(void *t_data);
+#ifdef SUPERSERVER
+extern int THD_rec_mutex_destroy(struct rec_mutx_t *);
+extern int THD_rec_mutex_init(struct rec_mutx_t *);
+extern int THD_rec_mutex_lock(struct rec_mutx_t *);
+extern int THD_rec_mutex_unlock(struct rec_mutx_t *);
+#endif
+extern struct thdd *DLL_EXPORT THD_restore_specific(void);
+extern int THD_resume(THD_T);
+extern void THD_sleep(ULONG);
+extern int THD_suspend(THD_T);
+extern int DLL_EXPORT THD_wlck_destroy(struct wlck_t *);
+extern int DLL_EXPORT THD_wlck_init(struct wlck_t *);
+extern int DLL_EXPORT THD_wlck_lock(struct wlck_t *, USHORT);
+extern int DLL_EXPORT THD_wlck_unlock(struct wlck_t *);
+extern void THD_wlck_destroy_n(struct wlck_t *, USHORT);
+extern void THD_wlck_init_n(struct wlck_t *, USHORT);
+extern void THD_yield(void);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_THD_PROTO_H_ */
diff --git a/src/jrd/thd_win32.cpp b/src/jrd/thd_win32.cpp
new file mode 100644
index 0000000000..ea152f6229
--- /dev/null
+++ b/src/jrd/thd_win32.cpp
@@ -0,0 +1,608 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		thd.c
+ *	DESCRIPTION:	Thread support routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include "../jrd/common.h"
+#include "../jrd/thd.h"
+#include "../jrd/isc.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/gdsassert.h"
+
+#include <process.h>
+#include <windows.h>
+
+
+extern "C" {
+
+static void init(void);
+static void init_tkey(void);
+static void put_specific(THDD);
+static int thread_start(int (*)(void *), void *, int, int, void *);
+
+static USHORT	initialized = FALSE;
+static USHORT	t_init = FALSE;
+
+static MUTX_T	ib_mutex;
+static DWORD	specific_key;
+static DWORD	t_key;
+
+
+//____________________________________________________________
+//
+// Start a thread.
+//
+int API_ROUTINE gds__thread_start(FPTR_INT_VOID_PTR	entrypoint,
+								  void*				arg,
+								  int				priority,
+								  int				flags,
+								  void*				thd_id)
+{
+	return thread_start(entrypoint, arg, priority, flags, thd_id);
+}
+
+
+//____________________________________________________________
+//
+// Get platform's notion of a thread ID.
+//
+long THD_get_thread_id(void)
+{
+	return GetCurrentThreadId();
+}
+
+
+//____________________________________________________________
+//
+//
+//
+THDD THD_get_specific(void)
+{
+	return (THDD) TlsGetValue(specific_key);
+}
+
+
+//____________________________________________________________
+//
+// return the previously stored t_data.
+//
+void THD_getspecific_data(void **t_data)
+{
+/* There are some circumstances in which we do not call THD_putspecific_data(),
+   such as services API, and local access on NT. As result of that, t_init
+   does not get initialized. So don't use an assert in here but rather do
+   the work only if t_init is initialised */
+	if (t_init) {
+		*t_data = (void *) TlsGetValue(t_key);
+	}
+}
+
+
+//____________________________________________________________
+//
+// This is the cleanup function called from the DLL
+// cleanup function. This helps to remove the allocated
+// thread specific key.
+//
+void DLL_EXPORT THD_cleanup(void)
+{
+	if (initialized)
+	{
+		initialized = FALSE;
+		TlsFree(specific_key);
+
+		/* destroy the mutex ib_mutex which was created */
+		THD_mutex_destroy(&ib_mutex);
+	}
+}
+
+
+//____________________________________________________________
+//
+//
+void DLL_EXPORT THD_init(void)
+{
+	init();
+}
+
+
+//____________________________________________________________
+//
+// init function for t_key. This is called 
+// to ensure that the key is created.
+//
+void DLL_EXPORT THD_init_data(void)
+{
+	init_tkey();
+}
+
+
+//____________________________________________________________
+//
+//
+int THD_mutex_destroy(MUTX_T* mutex)
+{
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad struct ptr type cast.")
+
+	DeleteCriticalSection(reinterpret_cast<LPCRITICAL_SECTION>(mutex));
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//
+int THD_mutex_init(MUTX_T * mutex)
+{
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad struct ptr type cast.")
+	InitializeCriticalSection(reinterpret_cast<LPCRITICAL_SECTION>(mutex));
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//
+int THD_mutex_lock(MUTX_T * mutex)
+{
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad struct ptr type cast.")
+	EnterCriticalSection(reinterpret_cast < LPCRITICAL_SECTION > (mutex));
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//
+int THD_mutex_unlock(MUTX_T * mutex)
+{
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad struct ptr type cast.")
+	LeaveCriticalSection(reinterpret_cast < LPCRITICAL_SECTION > (mutex));
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//
+int THD_mutex_destroy_n(MUTX_T* mutexes, USHORT n)
+{
+	while (n--)
+	{
+		THD_mutex_destroy(mutexes++);
+	}
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//
+int THD_mutex_init_n(MUTX_T* mutexes, USHORT n)
+{
+	while (n--)
+	{
+		THD_mutex_init(mutexes++);
+	}
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//
+int THD_mutex_lock_global(void)
+{
+	return THD_mutex_lock(&ib_mutex);
+}
+
+
+//____________________________________________________________
+//
+//
+int THD_mutex_unlock_global(void)
+{
+	return THD_mutex_unlock(&ib_mutex);
+}
+
+
+//____________________________________________________________
+//
+//
+int DLL_EXPORT THD_wlck_destroy(WLCK_T * wlock)
+{
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//
+int DLL_EXPORT THD_wlck_init(WLCK_T * wlock)
+{
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//
+int DLL_EXPORT THD_wlck_lock(WLCK_T * wlock, USHORT type)
+{
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//
+int DLL_EXPORT THD_wlck_unlock(WLCK_T * wlock)
+{
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//
+void THD_wlck_destroy_n(WLCK_T * wlocks, USHORT n)
+{
+	while (n--) {
+		THD_wlck_destroy(wlocks++);
+	}
+}
+
+
+//____________________________________________________________
+//
+//
+void THD_wlck_init_n(WLCK_T * wlocks, USHORT n)
+{
+	while (n--) {
+		THD_wlck_init(wlocks++);
+	}
+}
+
+
+//____________________________________________________________
+//
+//
+void DLL_EXPORT THD_put_specific(THDD new_context)
+{
+	if (!initialized) {
+		THD_init();
+	}
+
+	// Save the current context
+
+	new_context->thdd_prior_context = THD_get_specific();
+
+	put_specific(new_context);
+}
+
+
+//____________________________________________________________
+//
+// Store the passed t_data using the ket t_key
+//
+void DLL_EXPORT THD_putspecific_data(void *t_data)
+{
+	if (!t_init) {
+		THD_init_data();
+	}
+
+	TlsSetValue(t_key, (LPVOID) t_data);
+}
+
+
+//____________________________________________________________
+//
+//
+//
+THDD DLL_EXPORT THD_restore_specific(void)
+{
+	THDD current_context = THD_get_specific();
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad struct ptr type cast.")
+	put_specific(reinterpret_cast<THDD>(current_context->thdd_prior_context));
+
+	return reinterpret_cast<THDD>(current_context->thdd_prior_context);
+}
+
+
+#ifdef SUPERSERVER
+//____________________________________________________________
+//
+//
+//
+int THD_rec_mutex_destroy(REC_MUTX_T * rec_mutex)
+{
+	return THD_mutex_destroy(rec_mutex->rec_mutx_mtx);
+}
+
+
+//____________________________________________________________
+//
+//
+//
+int THD_rec_mutex_init(REC_MUTX_T * rec_mutex)
+{
+	THD_mutex_init(rec_mutex->rec_mutx_mtx);
+	rec_mutex->rec_mutx_id = 0;
+	rec_mutex->rec_mutx_count = 0;
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//
+//
+int THD_rec_mutex_lock(REC_MUTX_T * rec_mutex)
+{
+	if (rec_mutex->rec_mutx_id == THD_get_thread_id()) {
+		rec_mutex->rec_mutx_count++;
+	} else {
+		int ret = THD_mutex_lock(rec_mutex->rec_mutx_mtx);
+		if (ret) {
+			return ret;
+		}
+		rec_mutex->rec_mutx_id = THD_get_thread_id();
+		rec_mutex->rec_mutx_count = 1;
+	}
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+//
+//
+int THD_rec_mutex_unlock(REC_MUTX_T * rec_mutex)
+{
+	if (rec_mutex->rec_mutx_id != THD_get_thread_id())
+		return FAILURE;
+
+	rec_mutex->rec_mutx_count--;
+
+	if (rec_mutex->rec_mutx_count)
+		return 0;
+	else {
+		rec_mutex->rec_mutx_id = 0;
+		return THD_mutex_unlock(rec_mutex->rec_mutx_mtx);
+	}
+}
+#endif /* SUPERSERVER */
+
+
+//____________________________________________________________
+//
+// Resume execution of a thread that has been suspended.
+//
+int THD_resume(THD_T thread)
+{
+	if (ResumeThread(thread) == 0xFFFFFFFF) {
+		return GetLastError();
+	}
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+// Suspend execution of a thread.
+//
+int THD_suspend(THD_T thread)
+{
+	if (SuspendThread(thread) == 0xFFFFFFFF) {
+		return GetLastError();
+	}
+
+	return 0;
+}
+
+
+//____________________________________________________________
+//
+// Thread sleeps for requested number of milliseconds.
+//
+void THD_sleep(ULONG milliseconds)
+{
+	SleepEx(milliseconds, FALSE);
+}
+
+
+//____________________________________________________________
+//
+// Thread relinquishes CPU.
+//
+void THD_yield(void)
+{
+	SleepEx(1, FALSE);
+}
+
+
+//____________________________________________________________
+//
+//
+//
+static void init(void)
+{
+	if (initialized) {
+		return;
+	}
+
+	initialized = TRUE;
+
+	THD_mutex_init(&ib_mutex);
+
+	specific_key = TlsAlloc();
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad function ptr type cast.")
+	gds__register_cleanup(reinterpret_cast < FPTR_VOID_PTR > (THD_cleanup),
+						  0);
+}
+
+
+//____________________________________________________________
+//
+// Function which actually creates the key which
+// can be used by the threads to store t_data
+//
+static void init_tkey(void)
+{
+	if (t_init) {
+		return;
+	}
+
+	t_init = TRUE;
+	t_key = TlsAlloc();
+}
+
+
+//____________________________________________________________
+//
+//
+//
+static void put_specific(THDD new_context)
+{
+	TlsSetValue(specific_key, (LPVOID) new_context);
+}
+
+
+#if !defined(__BORLANDC__)
+// Copyright (C) 2001 Mikael Nordell
+// Need a thunking layer from stdcall to cdecl, and also to serve as
+// an adapter for mismatch in return type.
+//
+struct thunk_thread_start_t
+{
+	int		(*pfn)(void*);
+	void*	arg;
+};
+
+static unsigned int __stdcall win32_thread_start_thunk(void* p)
+{
+	const thunk_thread_start_t* pArg =
+		reinterpret_cast<const thunk_thread_start_t*>(p);
+	return (unsigned int) ((*pArg->pfn)(pArg->arg));
+}
+#endif
+
+
+//____________________________________________________________
+//
+// Start a new thread.  Return 0 if successful, status if not.
+//
+static int thread_start(FPTR_INT_VOID_PTR	routine,
+						void*				arg,
+						int					priority_arg,
+						int					flags,
+						void*				thd_id)
+{
+	HANDLE handle;
+	DWORD thread_id;
+	int priority;
+
+	DWORD create = (flags & THREAD_wait) ? CREATE_SUSPENDED : 0;
+
+#ifdef __BORLANDC__
+	handle =
+		(HANDLE) _beginthreadNT((void (_USERENTRY *) (void *)) routine, 0,
+								arg, NULL, create, &thread_id);
+
+	if (handle == (HANDLE) - 1) {
+		return errno;
+	}
+#else
+	/* I have changed the CreateThread here to _beginthreadex() as using
+	 * CreateThread() can lead to memory leaks caused by C-runtime library.
+	 * Advanced Windows by Richter pg. # 109. */
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad, bad, bad function ptr type cast!!!")
+	thunk_thread_start_t thread_start_arg =
+	{
+		routine,
+		arg
+	};
+	unsigned long real_handle = _beginthreadex(NULL,
+											   0,
+											   &win32_thread_start_thunk,
+											   &thread_start_arg,
+											   create,
+											   reinterpret_cast<unsigned*>(&thread_id));
+	if (!real_handle) {
+		return GetLastError();
+	}
+	handle = reinterpret_cast<HANDLE>(real_handle);
+
+#endif
+
+	switch (priority_arg)
+	{
+		case THREAD_critical:
+			priority = THREAD_PRIORITY_TIME_CRITICAL;
+			break;
+		case THREAD_high:
+			priority = THREAD_PRIORITY_HIGHEST;
+			break;
+		case THREAD_medium_high:
+			priority = THREAD_PRIORITY_ABOVE_NORMAL;
+			break;
+		case THREAD_medium:
+			priority = THREAD_PRIORITY_NORMAL;
+			break;
+		case THREAD_medium_low:
+			priority = THREAD_PRIORITY_BELOW_NORMAL;
+			break;
+		case THREAD_low:
+		default:
+			priority = THREAD_PRIORITY_LOWEST;
+			break;
+	}
+
+	SetThreadPriority(handle, priority);
+	if (thd_id) {
+		*(HANDLE *) thd_id = handle;
+	} else {
+		CloseHandle(handle);
+	}
+
+	return 0;
+}
+
+
+} // extern "C"
diff --git a/src/jrd/thin.asm b/src/jrd/thin.asm
new file mode 100644
index 0000000000..41ae3c2e80
--- /dev/null
+++ b/src/jrd/thin.asm
@@ -0,0 +1,191 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+;
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+;
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+;
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+
+	.386p
+	ifndef	??version
+?debug	macro
+	endm
+publicdll macro	name
+	public	name
+	endm
+$comm	macro	name,dist,size,count
+	comm	dist name:BYTE:count*size
+	endm
+	else
+$comm	macro	name,dist,size,count
+	comm	dist name[size]:BYTE:count
+	endm
+	endif
+
+JumpTo macro   FunctionName
+		mov	ax,ss
+		nop
+		jmp	 far ptr <FunctionName>
+endm
+
+THIN_TEXT	segment word public use16 'CODE'
+THIN_TEXT	ends
+DGROUP	group	_DATA,_BSS
+	assume	cs:THIN_TEXT,ds:DGROUP
+_DATA	segment word public use16 'DATA'
+d@	label	byte
+d@w	label	word
+_DATA	ends
+_BSS	segment word public use16 'BSS'
+b@	label	byte
+b@w	label	word
+_BSS	ends
+THIN_TEXT	segment word public use16 'CODE'
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_gds__alloc	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _gds__alloc
+_THIN_gds__alloc	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_gds__free	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _gds__free
+_THIN_gds__free	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_gds__msg_format	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _gds__msg_format
+_THIN_gds__msg_format	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_gds__print_status	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _gds__print_status
+_THIN_gds__print_status	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_gds__temp_file	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _gds__temp_file
+_THIN_gds__temp_file	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_gds__vax_integer	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _gds__vax_integer
+_THIN_gds__vax_integer	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_BLOB_dump	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _BLOB_dump
+_THIN_BLOB_dump	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_BLOB_edit	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _BLOB_edit
+_THIN_BLOB_edit	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_isc_blob_default_desc	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _isc_blob_default_desc
+_THIN_isc_blob_default_desc	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_isc_blob_gen_bpb	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _isc_blob_gen_bpb
+_THIN_isc_blob_gen_bpb	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_isc_blob_lookup_desc	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _isc_blob_lookup_desc
+_THIN_isc_blob_lookup_desc	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_perf_format	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _perf_format
+_THIN_perf_format	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_perf_get_info	proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _perf_get_info
+_THIN_perf_get_info	endp
+
+	assume	cs:THIN_TEXT,ds:DGROUP
+_THIN_isc_sql_interprete        proc	far
+	mov	ax,ss
+	nop
+	jmp	 far ptr _isc_sql_interprete
+_THIN_isc_sql_interprete	endp
+
+THIN_TEXT	ends
+_DATA	segment word public use16 'DATA'
+s@	label	byte
+_DATA	ends
+THIN_TEXT	segment word public use16 'CODE'
+THIN_TEXT	ends
+_s@	equ	s@
+
+	extrn	_BLOB_dump:far
+	extrn	_BLOB_edit:far
+	extrn	_gds__alloc:far
+	extrn	_gds__free:far
+	extrn	_gds__msg_format:far
+	extrn	_gds__print_status:far
+	extrn	_gds__temp_file:far
+	extrn	_gds__vax_integer:far
+	extrn	_isc_blob_default_desc:far
+	extrn	_isc_blob_gen_bpb:far
+	extrn	_isc_blob_lookup_desc:far
+	extrn	_perf_format:far
+	extrn	_perf_get_info:far
+	extrn	_isc_sql_interprete:far
+
+	publicdll	_THIN_BLOB_dump
+	publicdll	_THIN_BLOB_edit
+	publicdll	_THIN_gds__alloc
+	publicdll	_THIN_gds__free
+	publicdll	_THIN_gds__msg_format
+	publicdll	_THIN_gds__print_status
+	publicdll	_THIN_gds__temp_file
+	publicdll	_THIN_gds__vax_integer
+	publicdll	_THIN_isc_blob_default_desc
+	publicdll	_THIN_isc_blob_gen_bpb
+	publicdll	_THIN_isc_blob_lookup_desc
+	publicdll	_THIN_perf_format
+	publicdll	_THIN_perf_get_info
+	publicdll	_THIN_perf_get_info
+	publicdll	_THIN_isc_sql_interprete
+
+	end
diff --git a/src/jrd/thread.mar b/src/jrd/thread.mar
new file mode 100644
index 0000000000..6a1ee925b2
--- /dev/null
+++ b/src/jrd/thread.mar
@@ -0,0 +1,385 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+;
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+;
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+;
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;
+;	PROGRAM:	JRD Access Method
+;	MODULE:		thread.mar
+;	DESCRIPTION:	VMS Thread Manager
+;
+
+	.title	thread	VMS Thread Manager
+
+; Stack frame definition
+
+	.psect		stf,abs
+stf_handler:	.long		; address of condition handler
+stf_mask:	.long		; misc flags and masks
+stf_ap:		.long		; saved ap (argument list pointer)
+stf_fp:		.long		; saved fp (frame pointer)
+stf_pc:		.long		; saved pc (program counter)
+
+stack_size	=	65536
+
+; Thread control block
+
+THREAD_ast	=	1
+
+	.psect		tcb,abs
+tcb_fp:		.long		; saved frame pointer
+tcb_callback:	.long		; callback routine to determine runnability
+tcb_arg:	.long		; arg to callback routine
+tcb_next:	.long		; next thread in system (linked in ring)
+tcb_base:	.long		; base frame for thread
+tcb_stack:	.long		; allocated stack
+tcb_flags:	.long		; task flags
+tcb_length:	.blkb	0
+
+; Local thread data
+
+	.psect	thread_data,noexe,long
+
+threads: .address	0	; currently scheduled thread
+primary: .address	0	; primary (i.e. main) thread
+base_fp: .address	0	; last frame pointer of "real" stack
+ast_fp:	 .address	0	; frame pointer for THREAD_completion_ast
+ast_thread: .address	0	; active ast thread
+free:	 .address	0	; any free threads
+
+eol	= 10
+
+	.if defined debug
+debug_msg: .asciz	/%x	fp: %x, base: %x, stack: %x, next: %x/-
+			<eol> -
+			/	callback: %x, arg: %x, flags: %x/ <eol><eol>
+	.endc
+
+	.psect	thread,exe,pic,nowrt,quad
+	.page
+
+ ;THREAD_ast_active ()
+ ;**************************************
+ ;
+ ;	T H R E A D _ a s t _ a c t i v e
+ ;
+ ;*************************************
+ ;
+ ; Functional description
+ ;	Return 0 if AST thread is NOT active, otherwise TRUE.
+ ;
+ ;*************************************/
+
+.entry	THREAD_ast_active, ^m<>
+
+	movl	ast_fp, r0
+	ret
+
+ ;THREAD_completion_ast ()
+ ;**************************************
+ ;
+ ;	T H R E A D _ c o m p l e t i o n _ a s t
+ ;
+ ;*************************************
+ ;
+ ; Functional description
+ ;	Called as completion ast for any asynchronous system
+ ;	service.  
+ ;
+ ;*************************************/
+
+.entry	THREAD_completion_ast, ^m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11>
+
+	movl	threads, r0
+	tstl	threads
+	 beql	10$			; thread not initialized -- don't bother
+	calls	#0, completion
+
+10$:	ret
+
+.entry	completion, ^m<>
+
+	movl	fp, ast_fp
+	clrl	ast_thread
+	calls	#0, THREAD_wait
+	ret
+
+ ;	THREAD_init ()
+ ;**************************************
+ ;
+ ;	T H R E A D _ i n i t
+ ;
+ ;*************************************
+ ;
+ ; Functional description
+ ;	Initialize thread package unless already initialized.
+ ;
+ ;*************************************/
+
+.entry	THREAD_init, ^m<>
+
+; If this is the first time in, make up a thread block for the primary thread
+
+	tstl	primary
+	 bneq	10$			; primary thread exists!
+	pushl	#tcb_length		; size of thread control block
+	calls	#1, G^gds__alloc	; allocate thread block
+	movl	r0, primary		; we are the primary thread
+	movl	r0, threads		; and also the only thread
+	movl	r0, tcb_next(r0)	; so, link thread to itself
+	clrl	tcb_stack(r0)		; no allocated stack
+
+10$:	ret
+
+	.if defined debug
+ ;  THREAD_print ()
+ ;**************************************
+ ;
+ ;	T H R E A D _ p r i n t
+ ;
+ ;*************************************
+ ;
+ ; Functional description
+ ;	Print out all thread blocks.
+ ;
+ ;*************************************/
+
+.entry	THREAD_print, ^m<r2>
+
+	movl	threads, r2
+	 beql	100$
+
+10$:	pushl	tcb_flags(r2)
+	pushl	tcb_arg(r2)
+	pushl	tcb_callback(r2)
+	pushl	tcb_next(r2)
+	pushl	tcb_stack(r2)
+	pushl	tcb_base(r2)
+	pushl	tcb_fp(r2)
+	pushl	r2
+	pushal	debug_msg
+	calls	#9, g^printf
+	movl	tcb_next(r2), r2
+	cmpl	r2, threads
+	 bneq	10$
+
+100$:	ret
+	.endc
+
+ ;	THREAD_start (thread, arg, priority, flags)
+ ;	int	(*thread)();
+ ;	long	arg;
+ ;	int	priority;
+ ;	int	flags;
+ ;**************************************
+ ;
+ ;	T H R E A D _ s t a r t
+ ;
+ ;*************************************
+ ;
+ ; Functional description
+ ;	Start a new thread.  Initialize thread package if this
+ ; 	is first call.
+ ;
+ ;*************************************/
+
+.entry	THREAD_start, ^m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11>
+
+; If this is the first time in, make up a thread block for the primary thread
+
+	movl	primary, r1		; is there already a primary thread
+	 bneq	10$			; primary thread exists!
+	calls	#1, THREAD_init		; initialize package
+	movl	primary, r1
+
+; If this is the real stack, save the base frame
+
+10$:	cmpl	r1, threads
+	 bneq	20$			; not primary thread
+	movl	fp, base_fp		; save "real" frame pointer
+
+; Find or allocate new thread block
+
+20$:	movl	threads, r1
+	movl	fp, tcb_fp (r1)		; save somewhere to return to
+	movl	free, r2		; check for free thread block
+	 beql	30$			;  no free thread block, allocate one
+	movl	tcb_next (r2), free	; unlink thread block from free list
+	brb	40$
+
+30$:   	pushl	#tcb_length		; size of thread control block
+	calls	#1, G^gds__alloc	; allocate thread block
+	movl	r0,r2			; address of new thread control block
+	pushl	#stack_size		; size of new stack
+	calls	#1, G^gds__alloc	; allocate thread stack
+	movl	r0, tcb_stack(r2)	; save address of new stack
+
+40$:	clrl	tcb_callback(r2)	; thread is runnable
+	movl	threads,r3		; previous thread block
+	clrl	tcb_callback(r3)	; current thread is still runnable
+	movl	tcb_next(r3), tcb_next(r2)	; link into ring of threads
+	movl	r2, tcb_next(r3)
+	movl	4(ap),r3		; address of thread routine
+	movl	8(ap),r4		; argument for thread
+	movl	16(ap), tcb_flags(r2)	; options
+	movl	r2, threads		; currently executing thread
+	addl3	#stack_size, tcb_stack(r2), sp	; address of new stack
+	calls	#0, thread_caller	; we will never come back
+	halt
+
+	.entry	thread_caller, ^m<r2,r3,r4>
+
+	movl	fp, tcb_base (r2)	; save base frame for stack
+	pushl	r4			; pass thru argument
+	calls	#1, (r3)		; call thread, come back on thread exit
+
+; Thread has existed.  Unlink thread block from runnable threads,
+;  link it to free threads, and go reschedule
+
+	movl	r2, r3
+
+50$:	movl	tcb_next(r3), r3	; get next thread in system
+	cmpl	tcb_next (r3), r2
+	 bneq	50$			;  not prior thread, continue search
+
+	movl	tcb_next(r2), tcb_next (r3);	; unlink from active threads
+	movl	free, tcb_next(r2)	; link into free threads
+	movl 	r2, free
+	movl	r3, r2			; start schedule with prior thread
+	brb	schedule		; schedule next thread
+
+ ;	THREAD_wait (callback, arg)
+ ;	int	(*callback)();
+ ;	long	arg;
+ ;**************************************
+ ;
+ ;	T H R E A D _ w a i t
+ ;
+ ;*************************************
+ ;
+ ; Functional description
+ ;	Re-schedule thread.  Don't resume this thread until iob
+ ;	has been posted.  If no callback is given, just reschedule another
+ ;	thread.
+ ;
+ ;*************************************/
+
+.entry	THREAD_wait, ^m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11>
+
+	tstl	ast_fp			; check to see if this is in AST mode
+	 bneq	ast_wait
+
+	movl	threads, r2		; pick up current thread block
+	 bneq	10$			; already initialized
+	calls	#0, THREAD_init		; initialize thread package
+	movl	threads, r2
+
+10$:
+	movl	4(ap), tcb_callback (r2)
+	movl	8(ap), tcb_arg (r2)
+	movl	fp, tcb_fp(r2)		; save current frame pointer
+	cmpl	r2, primary
+	 bneq	schedule		; not primary thread
+	movl	fp, base_fp		; primary thread -- save top frame
+
+; Find next runnable thread.  A thread is runnable if it either has
+; no callback routine, or the callback return TRUE (non-zero)
+
+schedule:
+	movl	tcb_next (r2), r2	; get next thread
+
+; thread is a candidate to run -- see if it's runnable
+
+10$:	tstl	tcb_callback (r2)
+	 beql	25$			; no callback -- thread is runnable
+	pushl	tcb_arg (r2)
+	calls	#1, @tcb_callback (r2)	; callback to determine runnability
+	tstl	r0
+	 bneq	25$			; callback says runnable
+
+; thread is not runnable -- see if we're done with scan
+
+15$:	cmpl	r2, threads
+	 bneq	schedule		; haven't tried all threads yet
+
+; nothing is runnable -- exit if we're in AST state, otherwise 
+; wait for something to happen
+
+	calls	#0, G^sys$hiber		; wait for something to happen
+	brb	schedule		; try, try again
+
+; We've got a runnable thread -- set up frame point and off we go
+
+25$:	cmpl	r2, primary
+	 beql	30$			; primary thread -- no stack adjustment
+	movl	tcb_base(r2),r4		; get base frame of thread
+	movl	base_fp, stf_fp (r4)	; link thread to real stack
+
+30$:	movl	r2, threads		; indicate current thread
+	movl	tcb_fp(r2), fp		; restore saved frame
+	ret				; return to thread
+
+ast_wait:
+	movl	threads, r2		; pick up current thread block
+
+    	movl	ast_thread, r3
+	 beql	ast_schedule		; we just entered AST mode
+
+20$:	movl	4(ap), tcb_callback (r3)
+	movl	8(ap), tcb_arg (r3)
+	movl	fp, tcb_fp(r3)		; save current frame pointer
+
+; Find next runnable thread.  A thread is runnable if it either has
+; no callback routine, or the callback return TRUE (non-zero)
+
+ast_schedule:
+	movl	tcb_next (r2), r2	; get next thread
+
+	cmpl	r2, threads
+	 beql	15$			; thread is already active
+	bitb	#THREAD_ast, tcb_flags(r2)
+	 beql	15$			; thread doesn't run at AST level
+
+; thread is a candidate to run -- see if it's runnable
+
+10$:	tstl	tcb_callback (r2)
+	 beql	25$			; no callback -- thread is runnable
+	pushl	tcb_arg (r2)
+	calls	#1, @tcb_callback (r2)	; callback to determine runnability
+	tstl	r0
+	 bneq	25$			; callback says runnable
+
+; thread is not runnable -- see if we're done with scan
+
+15$:	cmpl	r2, threads
+	 bneq	ast_schedule		; haven't tried all threads yet
+
+; nothing is runnable -- exit
+
+	clrl	ast_thread
+	movl	ast_fp, fp		; get ready to return
+	clrl	ast_fp
+	ret
+
+; We've got a runnable thread -- if it's the one we came in on,
+; just return (simple?)
+
+25$:	movl	tcb_base(r2),r4		; get base frame of thread
+	movl	ast_fp, stf_fp(r4)
+	movl	tcb_fp(r2), fp
+	movl	r2, ast_thread
+	ret
+
+
+	.end
diff --git a/src/jrd/time.h b/src/jrd/time.h
new file mode 100644
index 0000000000..2b2e0795ba
--- /dev/null
+++ b/src/jrd/time.h
@@ -0,0 +1,69 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		time.h
+ *	DESCRIPTION:	OS independent time include file
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#ifndef _JRD_TIME_H_
+
+/* This is the number of seconds in a day */
+#define ONE_DAY 86400
+
+/* MIN_YEAR and MAX_YEAR delimit the range for valid years
+ * when either inserting data or performing date arithmetic
+ */
+#define MIN_YEAR 0001
+#define MAX_YEAR 9999
+
+#ifdef NETWARE_386
+#define _JRD_TIME_H_
+#include <sys/time.h>
+#include <time.h>
+#define sleep(nsec)	delay((nsec) * 1000)
+#endif
+
+#if (defined(VMS) || defined(PC_PLATFORM) || defined(__OS2__)) && \
+	!defined(_JRD_TIME_H_)
+#define _JRD_TIME_H_
+#include <time.h>
+#endif
+
+#if (defined(_MSC_VER) && defined(WIN32)) || \
+	(defined(__BORLANDC__) && defined(__WIN32__))
+#define _JRD_TIME_H_
+#include <time.h>
+#endif
+
+#ifdef LINUX
+#include <libio.h>
+#endif
+
+#ifndef _JRD_TIME_H_
+#define _JRD_TIME_H_
+#include <sys/time.h>
+#endif
+
+#if defined(_AIX) || defined(IMP) || defined(DELTA) || defined(sgi) || \
+	defined(MAC) || defined(M_I386)
+#include <time.h>
+#endif
+
+#endif /* _JRD_TIME_H_ */
diff --git a/src/jrd/tpc.cpp b/src/jrd/tpc.cpp
new file mode 100644
index 0000000000..440fa8f398
--- /dev/null
+++ b/src/jrd/tpc.cpp
@@ -0,0 +1,468 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		tpc.c
+ *	DESCRIPTION:	TIP Cache for DBB
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/tpc.h"
+#include "../jrd/ods.h"
+#include "../jrd/tra.h"
+#include "../jrd/lck.h"
+#include "../jrd/pag.h"
+#include "../jrd/codes.h"
+#include "../jrd/iberr.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/lck_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/tpc_proto.h"
+#include "../jrd/tra_proto.h"
+
+static TPC allocate_tpc(TDBB, ULONG);
+static void cache_transactions(TDBB, TPC *, ULONG);
+static int extend_cache(TDBB, SLONG);
+
+
+int TPC_cache_state(TDBB tdbb, SLONG number)
+{
+/**************************************
+ *
+ *	T P C _ c a c h e _ s t a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current state of a transaction in the cache.
+ *
+ **************************************/
+	DBB dbb;
+	TPC tip_cache;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	if (!(tip_cache = dbb->dbb_tip_cache)) {
+		TPC_initialize_tpc(tdbb, number);
+		tip_cache = dbb->dbb_tip_cache;
+	}
+
+	if (number && dbb->dbb_pc_transactions)
+		if (TRA_precommited(tdbb, number, number))
+			return tra_precommitted;
+
+/* if the transaction is older than the oldest
+   transaction in our tip cache, it must be committed */
+
+	if (number < tip_cache->tpc_base)
+		return tra_committed;
+
+/* locate the specific TIP cache block for the transaction */
+
+	for (; tip_cache; tip_cache = tip_cache->tpc_next)
+		if (number < tip_cache->tpc_base + dbb->dbb_pcontrol->pgc_tpt) {
+			return TRA_state(tip_cache->tpc_transactions,
+							 tip_cache->tpc_base, number);
+		}
+
+/* Cover all possibilities by returning active */
+
+	return tra_active;
+}
+
+
+void TPC_initialize_tpc(TDBB tdbb, SLONG number)
+{
+/**************************************
+ *
+ *	T P C _ i n i t i a l i z e _ t p c
+ *
+ **************************************
+ *
+ * Functional description
+ *	At transaction startup, intialize the tip cache up to
+ *	number.  This is used at TRA_start () time.
+ *
+ **************************************/
+	DBB dbb;
+	TPC *tip_cache_ptr, tip_cache;
+	ULONG trans_per_tip;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	if (!(tip_cache = dbb->dbb_tip_cache)) {
+		cache_transactions(tdbb, (TPC *) 0, (ULONG) 0);
+		return;
+	}
+
+/* If there is already a cache, extend it if required.
+ * find the end of the linked list, and cache
+ * all transactions from that point up to the
+ * most recent transaction
+ */
+
+	trans_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+
+	for (tip_cache_ptr = &dbb->dbb_tip_cache; *tip_cache_ptr;
+		 tip_cache_ptr = &(*tip_cache_ptr)->tpc_next)
+		tip_cache = *tip_cache_ptr;
+
+	if (number < (tip_cache->tpc_base + trans_per_tip))
+		return;
+
+	cache_transactions(tdbb, tip_cache_ptr,
+					   tip_cache->tpc_base + trans_per_tip);
+}
+
+
+void TPC_set_state(TDBB tdbb, SLONG number, SSHORT state)
+{
+/**************************************
+ *
+ *	T P C _ s e t _ s t a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the state of a particular transaction
+ *	in the TIP cache.
+ *
+ **************************************/
+	DBB dbb;
+	TPC tip_cache;
+	ULONG byte, trans_per_tip;
+	SSHORT shift;
+	UCHAR *address;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	trans_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+	byte = TRANS_OFFSET(number % trans_per_tip);
+	shift = TRANS_SHIFT(number);
+
+	for (tip_cache = dbb->dbb_tip_cache; tip_cache;
+		 tip_cache =
+		 tip_cache->tpc_next) if (number <
+								  tip_cache->tpc_base + trans_per_tip) {
+			address = tip_cache->tpc_transactions + byte;
+			*address &= ~(TRA_MASK << shift);
+			*address |= state << shift;
+			break;
+		}
+
+/* right now we don't set the state of a transaction on a page
+   that has not already been cached -- this should probably be done */
+}
+
+
+int TPC_snapshot_state(TDBB tdbb, SLONG number)
+{
+/**************************************
+ *
+ *	T P C _ s n a p s h o t _ s t a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current state of a transaction.
+ *	Look at the TIP cache first, but if it
+ *	is marked as still alive we must do some 
+ *	further checking to see if it really is.
+ *
+ **************************************/
+	DBB dbb;
+	TPC tip_cache;
+	USHORT state;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	if (!(tip_cache = dbb->dbb_tip_cache)) {
+		cache_transactions(tdbb, (TPC *) 0, (ULONG) 0);
+		tip_cache = dbb->dbb_tip_cache;
+	}
+
+	if (number && dbb->dbb_pc_transactions)
+		if (TRA_precommited(tdbb, number, number))
+			return tra_precommitted;
+
+/* if the transaction is older than the oldest
+   transaction in our tip cache, it must be committed */
+
+	if (number < tip_cache->tpc_base)
+		return tra_committed;
+
+/* locate the specific TIP cache block for the transaction */
+
+	for (; tip_cache; tip_cache = tip_cache->tpc_next)
+		if (number < tip_cache->tpc_base + dbb->dbb_pcontrol->pgc_tpt) {
+			struct lck temp_lock;
+
+			state =
+				TRA_state(tip_cache->tpc_transactions, tip_cache->tpc_base,
+						  number);
+
+			/* committed or dead transactions always stay that 
+			   way, so no need to check their current state */
+
+			if (state == tra_committed || state == tra_dead)
+				return state;
+
+			/* see if we can get a lock on the transaction; if we can't
+			   then we know it is still active */
+
+			MOVE_CLEAR(&temp_lock, sizeof(struct lck));
+			temp_lock.lck_header.blk_type = type_lck;
+			temp_lock.lck_dbb = dbb;
+			temp_lock.lck_type = LCK_tra;
+			temp_lock.lck_owner_handle =
+				LCK_get_owner_handle(tdbb, temp_lock.lck_type);
+			temp_lock.lck_parent = dbb->dbb_lock;
+			temp_lock.lck_length = sizeof(SLONG);
+			temp_lock.lck_key.lck_long = number;
+
+			/* If we can't get a lock on the transaction, it must be active. */
+
+			if (!LCK_lock_non_blocking(tdbb, &temp_lock, LCK_read, FALSE)) {
+				INIT_STATUS(tdbb->tdbb_status_vector);
+				return tra_active;
+			}
+
+			INIT_STATUS(tdbb->tdbb_status_vector);
+			LCK_release(tdbb, &temp_lock);
+
+			/* as a last resort we must look at the TIP page to see
+			   whether the transaction is committed or dead; to minimize 
+			   having to do this again we will check the state of all 
+			   other transactions on that page */
+
+			return TRA_fetch_state(tdbb, number);
+		}
+
+/* if the transaction has been started since we
+   last looked, extend the cache upward */
+
+	return extend_cache(tdbb, number);
+}
+
+
+void TPC_update_cache(TDBB tdbb, TIP tip_page, SLONG sequence)
+{
+/**************************************
+ *
+ *	T P C _ u p d a t e _ c a c h e
+ *
+ **************************************
+ *
+ * Functional description
+ *	A TIP page has been fetched into memory,
+ *	so we should take the opportunity to update
+ *	the TIP cache with the state of all transactions
+ *	on that page.
+ *
+ **************************************/
+	DBB dbb;
+	TPC tip_cache;
+	SLONG first_trans, trans_per_tip;
+	USHORT l;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	trans_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+	first_trans = sequence * trans_per_tip;
+
+/* while we're in the area we can check to see if there are 
+   any tip cache pages we can release--this is cheaper and 
+   easier than finding out when a TIP page is dropped */
+
+	while (tip_cache = dbb->dbb_tip_cache)
+		if (dbb->dbb_oldest_transaction >=
+			tip_cache->tpc_base + trans_per_tip) {
+			dbb->dbb_tip_cache = tip_cache->tpc_next;
+			ALL_release(reinterpret_cast < frb * >(tip_cache));
+		}
+		else
+			break;
+
+/* find the appropriate page in the TIP cache and assign all transaction
+   bits -- it's not worth figuring out which ones are actually used */
+
+	for (; tip_cache; tip_cache = tip_cache->tpc_next)
+		if (first_trans == tip_cache->tpc_base) {
+			l = TRANS_OFFSET(trans_per_tip);
+			MOVE_FAST(tip_page->tip_transactions, tip_cache->tpc_transactions,
+					  l);
+			break;
+		}
+
+/* note that a potential optimization here would be to extend the cache
+   if the fetched page is not already in cache; it would involve a little
+   extra effort to make sure the pages remained in order, and since there
+   is a fetched page passed to us we can't fetch any other pages in this
+   routine, so I just decided not to do it - djb */
+}
+
+
+static TPC allocate_tpc(TDBB tdbb, ULONG base)
+{
+/**************************************
+ *
+ *	a l l o c a t e _ t p c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a tip cache block to hold the state
+ *	of all transactions on one page.
+ *
+ **************************************/
+	DBB dbb;
+	TPC tip_cache;
+	ULONG trans_per_tip;
+
+	dbb = tdbb->tdbb_database;
+	trans_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+
+/* allocate a TIP cache block with enough room for 
+   all desired transactions */
+
+	tip_cache = (TPC) ALLOCPV(type_tpc, trans_per_tip / 4);
+	tip_cache->tpc_base = base;
+
+	return tip_cache;
+}
+
+
+static void cache_transactions(TDBB tdbb, TPC * tip_cache_ptr, ULONG oldest)
+{
+/**************************************
+ *
+ *	c a c h e _ t r a n s a c t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cache the state of all the transactions since
+ *	the last time this routine was called, or since
+ *	the oldest interesting transaction.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	HDR header;
+	ULONG top, trans_per_tip, base;
+
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* check the header page for the oldest and 
+   newest transaction numbers */
+
+#ifdef SUPERSERVER_V2
+	top = dbb->dbb_next_transaction;
+	oldest = MAX(oldest, dbb->dbb_oldest_transaction);
+#else
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_read, pag_header);
+	top = header->hdr_next_transaction;
+	oldest = MAX(oldest, header->hdr_oldest_transaction);
+	CCH_RELEASE(tdbb, &window);
+#endif
+
+/* allocate tpc blocks to hold all transaction states --
+   assign one tpc block per page to simplify cache maintenance */
+
+	trans_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+	if (!tip_cache_ptr)
+		tip_cache_ptr = &dbb->dbb_tip_cache;
+
+	for (base = oldest - oldest % trans_per_tip; base <= top;
+		 base += trans_per_tip) {
+		*tip_cache_ptr = allocate_tpc(tdbb, base);
+		tip_cache_ptr = &(*tip_cache_ptr)->tpc_next;
+	}
+
+/* now get the inventory of all transactions, which will
+   automatically fill in the tip cache pages */
+
+	TRA_get_inventory(tdbb, NULL, oldest, top);
+}
+
+
+static int extend_cache(TDBB tdbb, SLONG number)
+{
+/**************************************
+ *
+ *	e x t e n d _ c a c h e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend the transaction inventory page
+ *	cache to include at least all transactions 
+ *	up to the passed transaction, and return 
+ *	the state of the passed transaction.
+ *
+ **************************************/
+	DBB dbb;
+	TPC *tip_cache_ptr, tip_cache;
+	ULONG trans_per_tip;
+
+	dbb = tdbb->tdbb_database;
+	trans_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+
+/* find the end of the linked list, and cache
+   all transactions from that point up to the
+   most recent transaction */
+
+	for (tip_cache_ptr = &dbb->dbb_tip_cache; *tip_cache_ptr;
+		 tip_cache_ptr = &(*tip_cache_ptr)->tpc_next)
+		tip_cache = *tip_cache_ptr;
+	cache_transactions(tdbb, tip_cache_ptr,
+					   tip_cache->tpc_base + trans_per_tip);
+
+/* find the right block for this transaction and return the state */
+
+	for (tip_cache = dbb->dbb_tip_cache; tip_cache;
+		 tip_cache =
+		 tip_cache->tpc_next) if (number <
+								  (tip_cache->tpc_base +
+								   trans_per_tip)) return
+				TRA_state(tip_cache->tpc_transactions, tip_cache->tpc_base,
+						  number);
+
+/* we should never get to this point, but if we do the
+   safest thing to do is return active */
+
+	return tra_active;
+}
diff --git a/src/jrd/tpc.h b/src/jrd/tpc.h
new file mode 100644
index 0000000000..a97637fa91
--- /dev/null
+++ b/src/jrd/tpc.h
@@ -0,0 +1,34 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		tpc.h
+ *	DESCRIPTION:	Transaction Inventory Page Cache
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_TPC_H_
+#define _JRD_TPC_H_
+
+typedef struct tpc {
+	struct blk tpc_header;
+	struct tpc *tpc_next;
+	SLONG tpc_base;				/* id of first transaction in this block */
+	UCHAR tpc_transactions[1];	/* two bits per transaction */
+} *TPC;
+
+#endif /* _JRD_TPC_H_ */
diff --git a/src/jrd/tpc_proto.h b/src/jrd/tpc_proto.h
new file mode 100644
index 0000000000..ceca983fff
--- /dev/null
+++ b/src/jrd/tpc_proto.h
@@ -0,0 +1,33 @@
+/*
+ *	PROGRAM:	JRD Access method
+ *	MODULE:		tpc_proto.h
+ *	DESCRIPTION:	Prototype Header file for tpc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_TPC_PROTO_H_
+#define _JRD_TPC_PROTO_H_
+
+extern int TPC_cache_state(TDBB, SLONG);
+extern void TPC_initialize_tpc(TDBB, SLONG);
+extern void TPC_set_state(TDBB, SLONG, SSHORT);
+extern int TPC_snapshot_state(TDBB, SLONG);
+extern void TPC_update_cache(TDBB, struct tip *, SLONG);
+
+#endif /* _JRD_TPC_PROTO_H_ */
diff --git a/src/jrd/tra.cpp b/src/jrd/tra.cpp
new file mode 100644
index 0000000000..6ea0d50d78
--- /dev/null
+++ b/src/jrd/tra.cpp
@@ -0,0 +1,3260 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		tra.c
+ *	DESCRIPTION:	Transaction manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ibsetjmp.h"
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/tra.h"
+#include "../jrd/ods.h"
+#include "../jrd/pag.h"
+#include "../jrd/lck.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/jrn.h"
+#include "../jrd/lls.h"
+#include "../jrd/all.h"
+#include "../jrd/req.h"
+#include "../jrd/exe.h"
+#include "../jrd/rse.h"
+#include "../jrd/pwd.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/cmp_proto.h"
+#include "../jrd/dfw_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/exe_proto.h"
+#include "../jrd/ext_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/lck_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pwd_proto.h"
+#include "../jrd/rlck_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/tpc_proto.h"
+#include "../jrd/tra_proto.h"
+#include "../jrd/vio_proto.h"
+#include "../jrd/enc_proto.h"
+
+#ifndef VMS
+#include "../lock/lock_proto.h"
+#endif
+
+#include "../jrd/ail.h"
+
+#if defined(WIN_NT) && defined(_MSC_VER)
+#pragma FB_COMPILER_MESSAGE("Fix! warnings turned off!")
+#pragma warning(disable: 4244 4018)
+#endif
+
+#define DYN_MSG_FAC	8
+
+#ifdef VMS
+#include ssdef
+#include lckdef
+
+#define EVENT_FLAG	15
+
+static CONST SCHAR lock_types[] = {
+	0,
+	LCK$K_NLMODE,
+	LCK$K_CRMODE,
+	LCK$K_CWMODE,
+	LCK$K_PRMODE,
+	LCK$K_PWMODE,
+	LCK$K_EXMODE
+};
+#endif /* VMS */
+
+
+#ifdef SUPERSERVER_V2
+static SLONG bump_transaction_id(TDBB, WIN *);
+#else
+static HDR bump_transaction_id(TDBB, WIN *);
+#endif
+static void retain_context(TDBB, TRA, USHORT);
+#ifdef VMS
+static void compute_oldest_retaining(TDBB, TRA, BOOLEAN);
+#endif
+static void downgrade_lock(TRA);
+static void expand_view_lock(TRA, REL, SCHAR);
+static TIP fetch_inventory_page(TDBB, WIN *, SLONG, USHORT);
+static SLONG inventory_page(TDBB, int);
+static SSHORT limbo_transaction(TDBB, SLONG);
+static void restart_requests(TDBB, TRA);
+static BOOLEAN start_sweeper(TDBB, DBB);
+static void THREAD_ROUTINE sweep_database(UCHAR *);
+static void transaction_options(TDBB, TRA, UCHAR *, USHORT);
+static BOOLEAN vms_convert(LCK, SLONG *, SCHAR, BOOLEAN);
+
+static CONST UCHAR sweep_tpb[] = { isc_tpb_version1, isc_tpb_read,
+	isc_tpb_read_committed, isc_tpb_rec_version
+};
+
+
+BOOLEAN TRA_active_transactions(TDBB tdbb, DBB dbb)
+{
+/**************************************
+ *
+ *	T R A _ a c t i v e _ t r a n s a c t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine if any transactions are active.
+ *	Return TRUE is active transactions; otherwise
+ *	return FALSE if no active transactions.
+ *
+ **************************************/
+#ifndef VMS
+	return ((LCK_query_data(dbb->dbb_lock, LCK_tra, LCK_ANY)) ? TRUE : FALSE);
+#else
+	WIN window;
+	HDR header;
+	TRA trans;
+	struct lck temp_lock;
+	USHORT shift, state;
+	ULONG byte, oldest, number, base, active;
+
+	SET_TDBB(tdbb);
+	window.win_flags = 0;
+
+/* Read header page and allocate transaction number. */
+
+#ifdef SUPERSERVER_V2
+	number = dbb->dbb_next_transaction;
+	oldest = dbb->dbb_oldest_transaction;
+	active = MAX(dbb->dbb_oldest_active, dbb->dbb_oldest_transaction);
+#else
+#ifdef READONLY_DATABASE
+	if (dbb->dbb_flags & DBB_read_only) {
+		number = dbb->dbb_next_transaction;
+		oldest = dbb->dbb_oldest_transaction;
+		active = MAX(dbb->dbb_oldest_active, dbb->dbb_oldest_transaction);
+	}
+	else {
+		window.win_page = HEADER_PAGE;
+		header = (HDR) CCH_FETCH(tdbb, &window, LCK_read, pag_header);
+		number = header->hdr_next_transaction;
+		oldest = header->hdr_oldest_transaction;
+		active =
+			MAX(header->hdr_oldest_active, header->hdr_oldest_transaction);
+		CCH_RELEASE(tdbb, &window);
+	}
+#else
+	window.win_page = HEADER_PAGE;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_read, pag_header);
+	number = header->hdr_next_transaction;
+	oldest = header->hdr_oldest_transaction;
+	active = MAX(header->hdr_oldest_active, header->hdr_oldest_transaction);
+	CCH_RELEASE(tdbb, &window);
+#endif /* READONLY_DATABASE */
+#endif /* SUPERSERVER_V2 */
+
+	base = oldest & ~TRA_MASK;
+
+	trans = (TRA) ALLOCPV(type_tra, (number - base + TRA_MASK) / 4);
+
+/* Build transaction bitmap to scan for active transactions. */
+
+	TRA_get_inventory(tdbb, trans->tra_transactions, base, number);
+
+	MOVE_CLEAR(&temp_lock, sizeof(struct lck));
+	temp_lock.lck_header.blk_type = type_lck;
+	temp_lock.lck_dbb = dbb;
+	temp_lock.lck_object = (BLK) trans;
+	temp_lock.lck_type = LCK_tra;
+	temp_lock.lck_owner_handle =
+		LCK_get_owner_handle(tdbb, temp_lock.lck_type);
+	temp_lock.lck_parent = dbb->dbb_lock;
+	temp_lock.lck_length = sizeof(SLONG);
+
+	for (; active <= number; active++) {
+		byte = TRANS_OFFSET(active - base);
+		shift = TRANS_SHIFT(active);
+		state = (trans->tra_transactions[byte] >> shift) & TRA_MASK;
+		if (state == tra_active) {
+			temp_lock.lck_key.lck_long = active;
+			if (!LCK_lock_non_blocking(tdbb, &temp_lock, LCK_read, FALSE)) {
+				ALL_release(trans);
+				return TRUE;
+			}
+			LCK_release(tdbb, &temp_lock);
+		}
+	}
+
+	ALL_release(trans);
+	return FALSE;
+#endif
+}
+
+#ifndef GATEWAY
+void TRA_cleanup(TDBB tdbb)
+{
+/**************************************
+ *
+ *	T R A _ c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	TRA_cleanup is called at startup while an exclusive lock is
+ *	held on the database.  Because we haven't started a transaction,
+ *	and we have an exclusive lock on the db, any transactions marked
+ *	as active on the transaction inventory pages are indeed dead.
+ *	Mark them so.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	HDR header;
+	TIP tip;
+	ATT attachment;
+	UCHAR *byte;
+	SSHORT shift, sequence, last, state;
+	SLONG number, ceiling, active, trans_per_tip, max, limbo, trans_offset;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef READONLY_DATABASE
+/* Return without cleaning up the TIP's for a ReadOnly database */
+	if (dbb->dbb_flags & DBB_read_only)
+		return;
+#endif /* READONLY_DATABASE */
+
+/* First, make damn sure there are no outstanding transactions */
+
+	for (attachment = dbb->dbb_attachments; attachment;
+		 attachment = attachment->att_next) if (attachment->att_transactions)
+			return;
+
+	trans_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+
+/* Read header page and allocate transaction number.  Since
+   the transaction inventory page was initialized to zero, it
+   transaction is automatically marked active. */
+
+	window.win_page = HEADER_PAGE;
+	window.win_flags = 0;
+	header = (HDR) CCH_FETCH(tdbb, &window, LCK_read, pag_header);
+	ceiling = header->hdr_next_transaction;
+	active = header->hdr_oldest_active;
+	CCH_RELEASE(tdbb, &window);
+
+	if (ceiling == 0)
+		return;
+
+/* Zip thru transactions from the "oldest active" to the next looking for
+   active transactions.  When one is found, declare it dead. */
+
+	last = ceiling / trans_per_tip;
+	number = active % trans_per_tip;
+	limbo = 0;
+
+	for (sequence = active / trans_per_tip; sequence <= last;
+		 sequence++, number = 0) {
+		window.win_page = inventory_page(tdbb, sequence);
+		tip = (TIP) CCH_FETCH(tdbb, &window, LCK_write, pag_transactions);
+		max = ceiling - (sequence * trans_per_tip);
+		if (max > trans_per_tip)
+			max = trans_per_tip - 1;
+		for (; number <= max; number++) {
+			trans_offset = TRANS_OFFSET(number);
+			byte = tip->tip_transactions + trans_offset;
+			shift = TRANS_SHIFT(number);
+			state = (*byte >> shift) & TRA_MASK;
+			if (state == tra_limbo && limbo == 0)
+				limbo = sequence * trans_per_tip + number;
+			else if (state == tra_active) {
+				CCH_MARK(tdbb, &window);
+				*byte &= ~(TRA_MASK << shift);
+				*byte |= tra_dead << shift;
+			}
+		}
+#ifdef SUPERSERVER_V2
+		if (sequence == last) {
+			CCH_MARK(tdbb, &window);
+			for (; number < trans_per_tip; number++) {
+				trans_offset = TRANS_OFFSET(number);
+				byte = tip->tip_transactions + trans_offset;
+				shift = TRANS_SHIFT(number);
+				*byte &= ~(TRA_MASK << shift);
+				if (tip->tip_next)
+					*byte |= tra_committed << shift;
+				else
+					*byte | = tra_active << shift;
+			}
+		}
+#endif
+		CCH_RELEASE(tdbb, &window);
+	}
+
+#ifdef SUPERSERVER_V2
+	window.win_page = inventory_page(tdbb, last);
+	tip = (TIP) CCH_FETCH(tdbb, &window, LCK_write, pag_transactions);
+
+	while (tip->tip_next) {
+		CCH_RELEASE(tdbb, &window);
+		window.win_page = inventory_page(tdbb, ++last);
+		tip = (TIP) CCH_FETCH(tdbb, &window, LCK_write, pag_transactions);
+		CCH_MARK(tdbb, &window);
+		for (number = 0; number < trans_per_tip; number++) {
+			trans_offset = TRANS_OFFSET(number);
+			byte = tip->tip_transactions + trans_offset;
+			shift = TRANS_SHIFT(number);
+			*byte &= ~(TRA_MASK << shift);
+			if (tip->tip_next || !number)
+				*byte |= tra_committed << shift;
+			else
+				*byte |= tra_active << shift;
+		}
+
+		if (!tip->tip_next)
+			dbb->dbb_next_transaction = last * trans_per_tip;
+	}
+
+	CCH_RELEASE(tdbb, &window);
+#endif
+}
+#endif
+
+
+void TRA_commit(TDBB tdbb, TRA transaction, USHORT retaining_flag)
+{
+/**************************************
+ *
+ *	T R A _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit a transaction.
+ *
+ **************************************/
+	LCK lock;
+
+	SET_TDBB(tdbb);
+
+/* If this is a commit retaining, and no updates have been performed,
+   and no events have been posted (via stored procedures etc)
+   no-op the operation */
+
+	if (retaining_flag
+		&& !(transaction->tra_flags & TRA_write
+			 || transaction->tra_deferred_work)) {
+		transaction->tra_flags &= ~TRA_prepared;
+		return;
+	}
+
+	if (transaction->tra_flags & TRA_invalidated)
+		ERR_post(gds_trans_invalid, 0);
+
+	tdbb->tdbb_default = transaction->tra_pool;
+
+/* Perform any meta data work deferred */
+
+	if (!(transaction->tra_flags & TRA_prepared))
+		DFW_perform_work(transaction);
+
+	if (transaction->tra_flags & (TRA_prepare2 | TRA_reconnected))
+		MET_update_transaction(tdbb, transaction, TRUE);
+
+#ifdef GATEWAY
+	FRGN_commit_transaction(transaction);
+
+#else
+
+/* Check in with external file system */
+
+	EXT_trans_commit(transaction);
+
+#ifdef GARBAGE_THREAD
+/* Flush pages if transaction logically modified data */
+
+	if (transaction->tra_flags & TRA_write)
+#endif
+		CCH_flush(tdbb, (USHORT) FLUSH_TRAN, transaction->tra_number);
+#ifdef GARBAGE_THREAD
+	else if (transaction->tra_flags & (TRA_prepare2 | TRA_reconnected)) {
+		/* If the transaction only read data but is a member of a
+		   multi-database transaction with a transaction description
+		   message then flush RDB$TRANSACTIONS. */
+
+		CCH_flush(tdbb, (USHORT) FLUSH_SYSTEM, 0);
+	}
+#endif
+
+	if (transaction->tra_flags & TRA_delete_log)
+		AIL_drop_log();
+
+	if (transaction->tra_flags & TRA_add_log)
+		AIL_add_log();
+
+/* signal refresh range relations for ExpressLink */
+
+#ifdef PC_ENGINE
+	RLCK_signal_refresh(transaction);
+#endif
+
+	if (retaining_flag) {
+		retain_context(tdbb, transaction, TRUE);
+		return;
+	}
+
+/* Set the state on the inventory page to be committed */
+
+	TRA_set_state(tdbb, transaction, transaction->tra_number, tra_committed);
+
+/* Perform any post commit work */
+
+	DFW_perform_post_commit_work(transaction);
+
+/* notify any waiting locks that this transaction is committing;
+   there could be no lock if this transaction is being reconnected */
+
+	++transaction->tra_use_count;
+	if ((lock = transaction->tra_lock) && (lock->lck_logical < LCK_write))
+		LCK_convert(tdbb, lock, LCK_write, TRUE);
+	--transaction->tra_use_count;
+
+#endif
+
+	TRA_release_transaction(tdbb, transaction);
+}
+
+
+#ifndef GATEWAY
+void TRA_extend_tip(TDBB tdbb, ULONG sequence, WIN * precedence_window)
+{
+/**************************************
+ *
+ *	T R A _ e x t e n d _ t i p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate and link in new TIP (transaction inventory page).
+ *	This is called from TRA_start and from validate/repair.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window, prior_window;
+	TIP tip, prior_tip;
+	VCL vector;
+	JRNI record;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+	window.win_flags = prior_window.win_flags = 0;
+
+/* Start by fetching prior transaction page, if any */
+
+	if (sequence)
+		prior_tip =
+			fetch_inventory_page(tdbb, &prior_window, (SLONG) (sequence - 1),
+								 LCK_write);
+
+/* Allocate and format new page */
+
+	tip = (TIP) DPM_allocate(tdbb, &window);
+	tip->tip_header.pag_type = pag_transactions;
+
+	CCH_must_write(&window);
+	CCH_RELEASE(tdbb, &window);
+
+/* Release prior page */
+
+	if (sequence) {
+		CCH_MARK_MUST_WRITE(tdbb, &prior_window);
+		prior_tip->tip_next = window.win_page;
+		if (dbb->dbb_wal) {
+			record.jrni_type = JRNP_NEXT_TIP;
+			record.jrni_position = 0;
+			record.jrni_states = 0;
+			record.jrni_transaction = prior_tip->tip_next;
+			CCH_journal_record(tdbb, &prior_window,
+							   reinterpret_cast < UCHAR * >(&record),
+							   JRNI_SIZE, 0, 0);
+		}
+		CCH_RELEASE(tdbb, &prior_window);
+	}
+
+/* Link into internal data structures */
+
+	if (!(vector = dbb->dbb_t_pages))
+		vector = (VCL) ALLOCPV(type_vcl, sequence + 1);
+	else if (sequence >= vector->vcl_count)
+		vector =
+			(VCL) ALL_extend(reinterpret_cast < blk ** >(&dbb->dbb_t_pages),
+							 sequence + 1);
+
+	vector->vcl_long[sequence] = window.win_page;
+
+/* Write into pages relation */
+
+	DPM_pages(tdbb, 0, pag_transactions, sequence, window.win_page);
+}
+#endif
+
+
+int TRA_fetch_state(TDBB tdbb, SLONG number)
+{
+/**************************************
+ *
+ *	T R A _ f e t c h _ s t a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Physically fetch the state of a given 
+ *	transaction on the transaction inventory 
+ *	page.  
+ *
+ **************************************/
+	DBB dbb;
+	SLONG tip_seq, trans_per_tip;
+	WIN window;
+	TIP tip;
+	ULONG byte;
+	USHORT shift, state;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* locate and fetch the proper TIP page */
+
+	trans_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+	tip_seq = number / trans_per_tip;
+	window.win_flags = 0;
+	tip = fetch_inventory_page(tdbb, &window, tip_seq, LCK_read);
+
+/* calculate the state of the desired transaction */
+
+	byte = TRANS_OFFSET(number % trans_per_tip);
+	shift = TRANS_SHIFT(number);
+	state = (tip->tip_transactions[byte] >> shift) & TRA_MASK;
+
+	CCH_RELEASE(tdbb, &window);
+
+	return state;
+}
+
+
+void TRA_get_inventory(TDBB tdbb, UCHAR * bit_vector, ULONG base, ULONG top)
+{
+/**************************************
+ *
+ *	T R A _ g e t _ i n v e n t o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get an inventory of the state of all transactions
+ *	between the base and top transactions passed.
+ *	To get a consistent view of the transaction
+ *	inventory (in case we ever implement sub-transactions), 
+ *	do handoffs to read the pages in order.
+ *
+ **************************************/
+	DBB dbb;
+	ULONG trans_per_tip;
+	USHORT sequence, last, l;
+	WIN window;
+	TIP tip;
+	UCHAR *p, *q;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	trans_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+	sequence = base / trans_per_tip;
+	last = top / trans_per_tip;
+
+/* fetch the first inventory page */
+
+	window.win_flags = 0;
+	tip = fetch_inventory_page(tdbb, &window, (SLONG) sequence++, LCK_read);
+
+/* move the first page into the bit vector */
+
+	if (p = bit_vector) {
+		l = base % trans_per_tip;
+		q = tip->tip_transactions + TRANS_OFFSET(l);
+		l = TRANS_OFFSET(MIN((top + TRA_MASK - base), trans_per_tip - l));
+		MOVE_FAST(q, p, l);
+		p += l;
+	}
+
+/* move successive pages into the bit vector */
+
+	while (sequence <= last) {
+		base = sequence * trans_per_tip;
+
+		/* release the read lock as we go, so that some one else can
+		 * commit without having to signal all other transactions.
+		 */
+
+		tip =
+			(TIP) CCH_HANDOFF(tdbb, &window, inventory_page(tdbb, sequence++),
+							  LCK_read, pag_transactions);
+		TPC_update_cache(tdbb, tip, sequence - 1);
+		if (p) {
+			l = TRANS_OFFSET(MIN((top + TRA_MASK - base), trans_per_tip));
+			MOVE_FAST(tip->tip_transactions, p, l);
+			p += l;
+		}
+	}
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+
+int TRA_get_state(TDBB tdbb, SLONG number)
+{
+/**************************************
+ *
+ *	T R A _ g e t _ s t a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the state of a given transaction on the 
+ *	transaction inventory page.
+ *
+ **************************************/
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	if (dbb->dbb_tip_cache)
+		return TPC_snapshot_state(tdbb, number);
+
+	if (number && dbb->dbb_pc_transactions)
+		if (TRA_precommited(tdbb, number, number))
+			return tra_precommitted;
+
+	return TRA_fetch_state(tdbb, number);
+}
+
+
+#ifdef SUPERSERVER_V2
+void TRA_header_write(TDBB tdbb, DBB dbb, SLONG number)
+{
+/**************************************
+ *
+ *	T R A _ h e a d e r _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Force transaction ID on header to disk.
+ *	Do post fetch check of the transaction
+ *	ID header write as a concurrent thread
+ *	might have written the header page
+ *	while blocked on the latch.
+ *
+ *	The idea is to amortize the cost of
+ *	header page I/O across multiple transactions.
+ *
+ **************************************/
+	WIN window;
+	HDR header;
+
+	SET_TDBB(tdbb);
+
+/* If transaction number is already on disk just return. */
+
+	if (!number || dbb->dbb_last_header_write < number) {
+		window.win_page = HEADER_PAGE;
+		window.win_flags = 0;
+		header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+
+		if (header->hdr_next_transaction) {
+			if (header->hdr_oldest_active > header->hdr_next_transaction)
+				BUGCHECK(266);	/*next transaction older than oldest active */
+
+			if (header->hdr_oldest_transaction > header->hdr_next_transaction)
+				BUGCHECK(267);	/* next transaction older than oldest transaction */
+		}
+
+		/* The header page might have been written while waiting
+		   for the latch; perform a post fetch check and optimize
+		   this case by not writing the page again. */
+
+		if (!number || dbb->dbb_last_header_write < number) {
+			CCH_MARK_MUST_WRITE(tdbb, &window);
+			if (dbb->dbb_next_transaction > header->hdr_next_transaction)
+				header->hdr_next_transaction = dbb->dbb_next_transaction;
+
+			if (dbb->dbb_oldest_active > header->hdr_oldest_active)
+				header->hdr_oldest_active = dbb->dbb_oldest_active;
+
+			if (dbb->dbb_oldest_transaction > header->hdr_oldest_transaction)
+				header->hdr_oldest_transaction = dbb->dbb_oldest_transaction;
+
+			if (dbb->dbb_oldest_snapshot > header->hdr_oldest_snapshot)
+				header->hdr_oldest_snapshot = dbb->dbb_oldest_snapshot;
+		}
+
+		CCH_RELEASE(tdbb, &window);
+	}
+}
+#endif
+
+
+void TRA_init(TDBB tdbb)
+{
+/**************************************
+ *
+ *	T R A _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	"Start" the system transaction.
+ *
+ **************************************/
+	DBB dbb;
+	TRA trans;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	dbb->dbb_sys_trans = trans = (TRA) ALLOCPV(type_tra, 0);
+	trans->tra_flags |= TRA_system | TRA_ignore_limbo;
+	trans->tra_pool = dbb->dbb_permanent;
+}
+
+
+#ifndef GATEWAY
+void TRA_invalidate(DBB database, ULONG mask)
+{
+/**************************************
+ *
+ *	T R A _ i n v a l i d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Invalidate any active transactions that may have
+ *	modified a page that couldn't be written.
+ *
+ **************************************/
+	ATT attachment;
+	TRA transaction;
+	ULONG transaction_mask;
+
+	for (attachment = database->dbb_attachments; attachment;
+		 attachment = attachment->att_next) for (transaction =
+												 attachment->att_transactions;
+												 transaction;
+												 transaction =
+												 transaction->tra_next) {
+			transaction_mask =
+				1L << (transaction->tra_number & (BITS_PER_LONG - 1));
+			if (transaction_mask & mask && transaction->tra_flags & TRA_write)
+				transaction->tra_flags |= TRA_invalidated;
+		}
+}
+#endif
+
+
+void TRA_link_transaction(TDBB tdbb, TRA transaction)
+{
+/**************************************
+ *
+ *	T R A _ l i n k _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Link transaction block into database attachment.
+ *
+ **************************************/
+	ATT attachment;
+
+	SET_TDBB(tdbb);
+
+	transaction->tra_attachment = attachment = tdbb->tdbb_attachment;
+	transaction->tra_next = attachment->att_transactions;
+	attachment->att_transactions = transaction;
+}
+
+
+void TRA_post_resources(TDBB tdbb, TRA transaction, RSC resources)
+{
+/**************************************
+ *
+ *	T R A _ p o s t _ r e s o u r c e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post interest in relation/procedure existence to transaction.
+ *	This guarantees that the relation/procedure won't be dropped
+ *	out from under the transaction.
+ *
+ **************************************/
+	RSC rsc, tra_rsc, new_rsc;
+	PLB old_pool;
+
+	SET_TDBB(tdbb);
+
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = transaction->tra_pool;
+
+	for (rsc = resources; rsc; rsc = rsc->rsc_next)
+		if (rsc->rsc_type == rsc_relation || rsc->rsc_type == rsc_procedure) {
+			for (tra_rsc = transaction->tra_resources; tra_rsc;
+				 tra_rsc =
+				 tra_rsc->rsc_next) if (rsc->rsc_id == tra_rsc->rsc_id) break;
+			if (!tra_rsc) {
+				new_rsc = (RSC) ALLOCD(type_rsc);
+				new_rsc->rsc_next = transaction->tra_resources;
+				transaction->tra_resources = new_rsc;
+				new_rsc->rsc_id = rsc->rsc_id;
+				new_rsc->rsc_type = rsc->rsc_type;
+				switch (rsc->rsc_type) {
+				case rsc_relation:
+					new_rsc->rsc_rel = rsc->rsc_rel;
+					MET_post_existence(tdbb, new_rsc->rsc_rel);
+					break;
+				case rsc_procedure:
+					new_rsc->rsc_prc = rsc->rsc_prc;
+					new_rsc->rsc_prc->prc_use_count++;
+#ifdef DEBUG_PROCS
+					{
+						char buffer[256];
+						sprintf(buffer,
+								"Called from TRA_post_resources():\n\t Incrementing use count of %s\n",
+								new_rsc->rsc_prc->prc_name->str_data);
+						JRD_print_procedure_info(tdbb, buffer);
+					}
+#endif
+					break;
+				}
+			}
+		}
+
+	tdbb->tdbb_default = old_pool;
+}
+
+
+BOOLEAN TRA_precommited(TDBB tdbb, SLONG old_number, SLONG new_number)
+{
+/**************************************
+ *
+ *	T R A _ p r e c o m m i t e d	(s i c)
+ *
+ **************************************
+ *
+ * Functional description
+ *	Maintain a vector of active precommitted 
+ *	transactions. If old_number <> new_number 
+ *	then swap old_number with new_number in
+ *	the vector. If old_number equals new_number
+ *	then test for that number's presence in
+ *	the vector.
+ *
+ **************************************/
+	SLONG *p, *end, *zp;
+	VCL vector;
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	if (!(vector = dbb->dbb_pc_transactions)) {
+		if (old_number == new_number)
+			return FALSE;
+		vector = dbb->dbb_pc_transactions = (VCL) ALLOCPV(type_vcl, 1);
+		vector->vcl_count = 1;
+	}
+
+	zp = 0;
+	for (p = vector->vcl_long, end = p + vector->vcl_count; p < end; p++) {
+		if (*p == old_number)
+			return (*p = new_number) ? TRUE : FALSE;
+		if (!zp && !*p)
+			zp = p;
+	}
+
+	if (old_number == new_number || new_number == 0)
+		return FALSE;
+	if (zp)
+		*zp = new_number;
+	else {
+		vector =
+			(VCL) ALL_extend(reinterpret_cast <
+							 blk ** >(&dbb->dbb_pc_transactions),
+							 vector->vcl_count + 1);
+		vector->vcl_long[vector->vcl_count - 1] = new_number;
+	}
+
+	return TRUE;
+}
+
+
+void TRA_prepare(TDBB tdbb, TRA transaction, USHORT length, UCHAR * msg)
+{
+/**************************************
+ *
+ *	T R A _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a transaction into limbo.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	if (transaction->tra_flags & TRA_prepared)
+		return;
+
+	if (transaction->tra_flags & TRA_invalidated)
+		ERR_post(gds_trans_invalid, 0);
+
+/* If there's a transaction description message, log it to RDB$TRANSACTION 
+   We should only log a message to RDB$TRANSACTION if there is a message
+   to log (if the length = 0, we won't log the transaction in RDB$TRANSACTION)
+   These messages are used to recover transactions in limbo.  The message indicates
+   the action that is to be performed (hence, if nothing is getting logged, don't
+   bother).
+*/
+
+/* Make sure that if msg is NULL there is no length.  The two
+   should go hand in hand
+              msg == NULL || *msg == NULL 
+*/
+	assert(!(!msg && length) || (msg && (!*msg && length)));
+
+	if (msg && length) {
+		MET_prepare(tdbb, transaction, length, msg);
+		transaction->tra_flags |= TRA_prepare2;
+	}
+
+#ifndef GATEWAY
+/* Check in with external file system */
+
+	EXT_trans_prepare(transaction);
+
+/* Perform any meta data work deferred */
+
+	DFW_perform_work(transaction);
+
+#ifdef GARBAGE_THREAD
+/* Flush pages if transaction logically modified data */
+
+	if (transaction->tra_flags & TRA_write)
+#endif
+		CCH_flush(tdbb, (USHORT) FLUSH_TRAN, transaction->tra_number);
+#ifdef GARBAGE_THREAD
+	else if (transaction->tra_flags & TRA_prepare2) {
+		/* If the transaction only read data but is a member of a
+		   multi-database transaction with a transaction description
+		   message then flush RDB$TRANSACTIONS. */
+
+		CCH_flush(tdbb, (USHORT) FLUSH_SYSTEM, 0);
+	}
+#endif
+#endif
+
+/* Set the state on the inventory page to be limbo */
+
+	transaction->tra_flags |= TRA_prepared;
+	TRA_set_state(tdbb, transaction, transaction->tra_number, tra_limbo);
+}
+
+
+#ifndef GATEWAY
+TRA TRA_reconnect(TDBB tdbb, UCHAR * id, USHORT length)
+{
+/**************************************
+ *
+ *	T R A _ r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reconnect to a transaction in limbo.
+ *
+ **************************************/
+	DBB dbb;
+	TRA trans;
+	UCHAR state;
+	TEXT text[128];
+	USHORT flags, message;
+	SLONG number;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef READONLY_DATABASE
+/* Cannot work on limbo transactions for ReadOnly database */
+	if (dbb->dbb_flags & DBB_read_only)
+		ERR_post(isc_read_only_database, 0);
+#endif /* READONLY_DATABASE */
+
+
+	tdbb->tdbb_default = ALL_pool();
+	trans = (TRA) ALLOCDV(type_tra, 0);
+	trans->tra_pool = tdbb->tdbb_default;
+	trans->tra_number = gds__vax_integer(id, length);
+	trans->tra_flags |= TRA_prepared | TRA_reconnected | TRA_write;
+
+	if ((state = limbo_transaction(tdbb, trans->tra_number)) != tra_limbo) {
+		switch (state) {
+		case tra_active:
+			message = 262;		/* ACTIVE */
+			break;
+		case tra_dead:
+			message = 264;		/* ROLLED BACK */
+			break;
+		case tra_committed:
+			message = 263;		/* COMMITTED */
+			break;
+		default:
+			message = 265;		/* ILL DEFINED */
+			break;
+		}
+
+		number = trans->tra_number;
+		ALL_rlpool(trans->tra_pool);
+
+		gds__msg_lookup(0, JRD_BUGCHK, message, sizeof(text), text, &flags);
+
+		ERR_post(gds_no_recon,
+				 gds_arg_gds, gds_tra_state,
+				 gds_arg_number, number,
+				 gds_arg_string, ERR_cstring(text), 0);
+	}
+
+	TRA_link_transaction(tdbb, trans);
+
+	return trans;
+}
+#endif
+
+
+void TRA_release_transaction(TDBB tdbb, TRA transaction)
+{
+/**************************************
+ *
+ *	T R A _ r e l e a s e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cleanup a transaction.  This is called by both COMMIT and
+ *	ROLLBACK as well as code in JRD to get rid of remote
+ *	transactions.
+ *
+ **************************************/
+	VEC vector;
+	LCK *lock;
+	TRA *ptr;
+	RSC rsc;
+	USHORT i;
+	PLB tra_pool;
+
+	SET_TDBB(tdbb);
+
+	while (transaction->tra_blobs)
+		BLB_cancel(tdbb, transaction->tra_blobs);
+
+	while (transaction->tra_arrays)
+		BLB_release_array(transaction->tra_arrays);
+
+	if (transaction->tra_pool)
+		CMP_expunge_transaction(transaction);
+
+/* Release interest in relation/procedure existence for transaction */
+
+	for (rsc = transaction->tra_resources; rsc; rsc = rsc->rsc_next)
+		switch (rsc->rsc_type) {
+		case rsc_procedure:
+			CMP_decrement_prc_use_count(tdbb, rsc->rsc_prc);
+			break;
+		default:
+			MET_release_existence(rsc->rsc_rel);
+			break;
+		}
+
+/* Release the locks associated with the transaction */
+
+	if (vector = transaction->tra_relation_locks)
+		for (i = 0, lock = (LCK *) vector->vec_object; i < vector->vec_count;
+			 i++, lock++)
+			if (*lock)
+				LCK_release(tdbb, *lock);
+
+	++transaction->tra_use_count;
+	if (transaction->tra_lock)
+		LCK_release(tdbb, transaction->tra_lock);
+	--transaction->tra_use_count;
+
+/* release the sparse bit map used for commit retain transaction */
+
+	SBM_release(transaction->tra_commit_sub_trans);
+
+	if (transaction->tra_flags & TRA_precommitted)
+		(void) TRA_precommited(tdbb, transaction->tra_number, 0);
+
+/* Unlink the transaction from the database block */
+
+	for (ptr = &tdbb->tdbb_attachment->att_transactions;
+		 *ptr; ptr = &(*ptr)->tra_next) if (*ptr == transaction) {
+			*ptr = transaction->tra_next;
+			break;
+		}
+
+/* Release the transaction pool. */
+
+	if (tra_pool = transaction->tra_pool)
+		ALL_rlpool(tra_pool);
+}
+
+
+void TRA_rollback(TDBB tdbb, TRA transaction, USHORT retaining_flag)
+{
+/**************************************
+ *
+ *	T R A _ r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Rollback a transaction.
+ *
+ **************************************/
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+
+	tdbb->tdbb_default = transaction->tra_pool;
+
+#ifndef GATEWAY
+/* Check in with external file system */
+
+	EXT_trans_rollback(transaction);
+#endif
+
+/* If no writes have been made, commit the transaction instead. */
+
+	if (transaction->tra_flags & (TRA_prepare2 | TRA_reconnected))
+		MET_update_transaction(tdbb, transaction, FALSE);
+#ifndef GATEWAY
+
+/* If there is a transaction-level savepoint, then use that to undo
+   this transaction's work and mark it committed in the TIP page 
+   instead (avoids a need for a database sweep). */
+
+	if (transaction->tra_save_point) {
+		if (!(transaction->tra_save_point->sav_flags & SAV_trans_level))
+			BUGCHECK(287);		/* Too many savepoints */
+
+		/* Make sure that any error during savepoint undo is handled by marking
+		   the transaction as dead. */
+
+		old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+		tdbb->tdbb_setjmp = (UCHAR *) env;
+		if (SETJMP(env)) {
+			/* Prevent a bugcheck in TRA_set_state to cause a loop */
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			/* Clear the error because the rollback will succeed. */
+			tdbb->tdbb_status_vector[0] = gds_arg_gds;
+			tdbb->tdbb_status_vector[1] = 0;
+			tdbb->tdbb_status_vector[2] = gds_arg_end;
+			TRA_set_state(tdbb, transaction, transaction->tra_number,
+						  tra_dead);
+		}
+		else {
+			/* In an attempt to avoid deadlocks, clear the precedence by writing
+			   all dirty buffers for this transaction. */
+
+			if (transaction->tra_flags & TRA_write) {
+				CCH_flush(tdbb, (USHORT) FLUSH_TRAN, transaction->tra_number);
+				++transaction->tra_save_point->sav_verb_count;	/* cause undo */
+				VIO_verb_cleanup(tdbb, transaction);
+				CCH_flush(tdbb, (USHORT) FLUSH_TRAN, transaction->tra_number);
+			}
+			else
+				VIO_verb_cleanup(tdbb, transaction);
+
+			/* If this a abort retaining transaction, do not
+			 * set the TIP bits.  That will be done in retain_context ().
+			 * Only ExpressLink runs in this mode and only DDL is
+			 * executed in this manner.
+			 */
+
+			if (!retaining_flag)
+				TRA_set_state(tdbb, transaction, transaction->tra_number,
+							  tra_committed);
+
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		}
+	}
+	else {
+		/* Set the state on the inventory page to be dead */
+		TRA_set_state(tdbb, transaction, transaction->tra_number, tra_dead);
+	}
+
+#else
+	FRGN_rollback_transaction(transaction);
+#endif
+
+/* if this is a rollback retain (used only by ExpressLink), abort
+ * this transaction and start a new one.
+ */
+
+	if (retaining_flag) {
+		retain_context(tdbb, transaction, FALSE);
+		return;
+	}
+
+	TRA_release_transaction(tdbb, transaction);
+}
+
+
+void TRA_set_state(TDBB tdbb, TRA transaction, SLONG number, SSHORT state)
+{
+/**************************************
+ *
+ *	T R A _ s e t _ s t a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the state of a transaction in the inventory page.
+ *
+ **************************************/
+#ifndef GATEWAY
+	DBB dbb;
+	WIN window;
+	TIP tip;
+	JRNI record;
+	UCHAR *address;
+	SSHORT sequence, shift;
+	ULONG byte, trans_per_tip;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* If we're terminating ourselves and we've
+   been precommitted then just return. */
+
+	if (transaction &&
+		transaction->tra_number == number &&
+		transaction->tra_flags & TRA_precommitted) return;
+
+#ifdef READONLY_DATABASE
+/* If it is a ReadOnly DB, set the new state in the TIP cache and return */
+	if ((dbb->dbb_flags & DBB_read_only) && dbb->dbb_tip_cache) {
+		TPC_set_state(tdbb, number, state);
+		return;
+	}
+#endif /* READONLY_DATABASE */
+
+	trans_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+	sequence = number / trans_per_tip;
+	trans_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+	byte = TRANS_OFFSET(number % trans_per_tip);
+	shift = TRANS_SHIFT(number);
+
+	window.win_flags = 0;
+	tip = fetch_inventory_page(tdbb, &window, (SLONG) sequence, LCK_write);
+
+#ifdef SUPERSERVER_V2
+	CCH_MARK(tdbb, &window);
+	ULONG generation = tip->tip_header.pag_generation;
+#else
+	CCH_MARK_MUST_WRITE(tdbb, &window);
+#endif
+
+/* set the state on the TIP page */
+
+	address = tip->tip_transactions + byte;
+	*address &= ~(TRA_MASK << shift);
+	*address |= state << shift;
+
+/* set the new state in the TIP cache as well */
+
+	if (dbb->dbb_tip_cache)
+		TPC_set_state(tdbb, number, state);
+
+/* If journalling is enabled, journal the change */
+
+	if ((dbb->dbb_wal) && (state == tra_committed)) {
+		record.jrni_type = JRNP_TRANSACTION;
+		record.jrni_position = byte;
+		record.jrni_states = *address;
+		record.jrni_transaction = number;
+		CCH_journal_record(tdbb, &window,
+						   reinterpret_cast < UCHAR * >(&record),
+						   sizeof(record), 0, 0);
+	}
+
+	CCH_RELEASE(tdbb, &window);
+
+#ifdef SUPERSERVER_V2
+/* Let the TIP be lazily updated for read-only queries.
+   To amortize write of TIP page for update transactions,
+   exit engine to allow other transactions to update the TIP
+   and use page generation to determine if page was written. */
+
+	if (transaction && !(transaction->tra_flags & TRA_write))
+		return;
+	else {
+		THREAD_EXIT;
+		THREAD_ENTER;
+		tip = CCH_FETCH(tdbb, &window, LCK_write, pag_transactions);
+		if (generation == tip->tip_header.pag_generation)
+			CCH_MARK_MUST_WRITE(tdbb, &window);
+		CCH_RELEASE(tdbb, &window);
+	}
+#endif
+
+	if ((dbb->dbb_wal) && (state == tra_committed)) {
+		AIL_commit(number);
+	}
+
+#endif /* GATEWAY */
+}
+
+
+void TRA_shutdown_attachment(TDBB tdbb, ATT attachment)
+{
+/**************************************
+ *
+ *	T R A _ s h u t d o w n _ a t t a c h m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release locks associated with transactions for attachment.
+ *
+ **************************************/
+	TRA transaction;
+	VEC vector;
+	LCK *lock;
+	USHORT i;
+
+	SET_TDBB(tdbb);
+
+	for (transaction = attachment->att_transactions; transaction;
+		 transaction = transaction->tra_next) {
+		/* Release the relation locks associated with the transaction */
+
+		if (vector = transaction->tra_relation_locks)
+			for (i = 0, lock = (LCK *) vector->vec_object;
+				 i < vector->vec_count; i++, lock++)
+				if (*lock)
+					LCK_release(tdbb, *lock);
+
+		/* Release transaction lock itself */
+
+		++transaction->tra_use_count;
+		if (transaction->tra_lock)
+			LCK_release(tdbb, transaction->tra_lock);
+		--transaction->tra_use_count;
+	}
+}
+
+
+#ifndef GATEWAY
+int TRA_snapshot_state(TDBB tdbb, TRA trans, SLONG number)
+{
+/**************************************
+ *
+ *	T R A _ s n a p s h o t _ s t a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the state of a numbered transaction when a
+ *	transaction started.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+	if (number && TRA_precommited(tdbb, number, number))
+		return tra_precommitted;
+
+	if (number == trans->tra_number)
+		return tra_us;
+
+/* If the transaction is older than the oldest 
+   interesting transaction, it must be committed. */
+
+	if (number < trans->tra_oldest)
+		return tra_committed;
+
+/* If the transaction is the system transaction, it is considered committed. */
+
+	if (number == 0 || (trans->tra_flags & TRA_system))
+		return tra_committed;
+
+/* If the transaction is a commited sub-transction - do the easy lookup.
+   Since this is not the most common case, and looking up the 
+   transaction cache for read committed transactions is equally
+   fast, just to that instead. */
+
+	if (trans->tra_flags & TRA_read_committed)
+		return TPC_snapshot_state(tdbb, number);
+
+	if (trans->tra_commit_sub_trans &&
+		SBM_test(trans->tra_commit_sub_trans, number)) return tra_committed;
+
+/* If the transaction is younger than we are, it must be considered
+   active. */
+
+	if (number > trans->tra_top)
+		return tra_active;
+
+	return TRA_state(trans->tra_transactions, trans->tra_oldest, number);
+}
+#endif
+
+
+TRA TRA_start(TDBB tdbb, int tpb_length, SCHAR * tpb)
+{
+/**************************************
+ *
+ *	T R A _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a user transaction.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment;
+	WIN window;
+	HDR header;
+	TRA trans, temp;
+	LCK lock;
+	struct lck temp_lock;
+	USHORT shift, oldest_state, cleanup;
+	ULONG byte, oldest, number, base, active, oldest_active, oldest_snapshot;
+	SLONG data;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	attachment = tdbb->tdbb_attachment;
+	window.win_flags = 0;
+
+	if (dbb->dbb_ast_flags & DBB_shut_tran)
+		ERR_post(gds_shutinprog, gds_arg_cstring,
+				 dbb->dbb_filename->str_length, dbb->dbb_filename->str_data,
+				 0);
+
+#ifdef GATEWAY
+/* SQL allows only one transaction per attach. */
+
+	if (attachment->att_transactions)
+		ERR_post(gds__excess_trans, gds_arg_number, (SLONG) 1, 0);
+#endif
+
+/* To handle the problems of relation locks, allocate a temporary
+   transaction block first, sieze relation locks, the go ahead and
+   make up the real transaction block. */
+
+	tdbb->tdbb_default = ALL_pool();
+	temp = (TRA) ALLOCDV(type_tra, 0);
+	temp->tra_pool = tdbb->tdbb_default;
+	transaction_options(tdbb, temp, reinterpret_cast < UCHAR * >(tpb),
+						tpb_length);
+
+#ifndef GATEWAY
+	lock = TRA_transaction_lock(tdbb, reinterpret_cast < blk * >(temp));
+
+/* Read header page and allocate transaction number.  Since
+   the transaction inventory page was initialized to zero, it
+   transaction is automatically marked active. */
+
+#ifdef SUPERSERVER_V2
+	number = bump_transaction_id(tdbb, &window);
+	oldest = dbb->dbb_oldest_transaction;
+	active = MAX(dbb->dbb_oldest_active, dbb->dbb_oldest_transaction);
+	oldest_active = dbb->dbb_oldest_active;
+	oldest_snapshot = dbb->dbb_oldest_snapshot;
+
+#else /* SUPERSERVER_V2 */
+#ifdef READONLY_DATABASE
+	if (dbb->dbb_flags & DBB_read_only) {
+		number = ++dbb->dbb_next_transaction;
+		oldest = dbb->dbb_oldest_transaction;
+		active = MAX(dbb->dbb_oldest_active, dbb->dbb_oldest_transaction);
+		oldest_active = dbb->dbb_oldest_active;
+		oldest_snapshot = dbb->dbb_oldest_snapshot;
+	}
+	else {
+		header = bump_transaction_id(tdbb, &window);
+		number = header->hdr_next_transaction;
+		oldest = header->hdr_oldest_transaction;
+		active =
+			MAX(header->hdr_oldest_active, header->hdr_oldest_transaction);
+		oldest_active = header->hdr_oldest_active;
+		oldest_snapshot = header->hdr_oldest_snapshot;
+	}
+#else
+	header = bump_transaction_id(tdbb, &window);
+	number = header->hdr_next_transaction;
+	oldest = header->hdr_oldest_transaction;
+	active = MAX(header->hdr_oldest_active, header->hdr_oldest_transaction);
+	oldest_active = header->hdr_oldest_active;
+	oldest_snapshot = header->hdr_oldest_snapshot;
+#endif /* READONLY_DATABASE */
+
+#endif /* SUPERSERVER_V2 */
+
+/* Allocate pool and transactions block.  Since, by policy,
+   all transactions older than the oldest are either committed
+   or cleaned up, they can be all considered as committed.  To
+   make everything simpler, round down the oldest to a multiple
+   of four, which ib_puts the transaction on a byte boundary. */
+
+	base = oldest & ~TRA_MASK;
+
+	if (temp->tra_flags & TRA_read_committed)
+		trans = (TRA) ALLOCDV(type_tra, 0);
+	else {
+		trans = (TRA) ALLOCDV(type_tra, (number - base + TRA_MASK) / 4);
+	}
+#else
+	trans = (TRA) ALLOCDV(type_tra, 0);
+#endif
+
+	trans->tra_pool = temp->tra_pool;
+	trans->tra_relation_locks = temp->tra_relation_locks;
+	trans->tra_flags = temp->tra_flags;
+	trans->tra_number = number;
+	trans->tra_top = number;
+	trans->tra_oldest = oldest;
+	trans->tra_oldest_active = active;
+	ALL_release(reinterpret_cast < frb * >(temp));
+
+#ifndef GATEWAY
+	trans->tra_lock = lock;
+	lock->lck_key.lck_long = number;
+
+/* Support refresh range notification in ExpressLink */
+
+#ifdef PC_ENGINE
+	lock->lck_ast = downgrade_lock;
+#endif
+
+/* Put the TID of the oldest active transaction (from the header page)
+   in the new transaction's lock. */
+
+	lock->lck_data = active;
+	lock->lck_object = (BLK) trans;
+
+	if (!LCK_lock_non_blocking(tdbb, lock, LCK_write, TRUE)) {
+#ifndef SUPERSERVER_V2
+#ifdef READONLY_DATABASE
+		if (!(dbb->dbb_flags & DBB_read_only))
+#endif /* READONLY_DATABASE */
+			CCH_RELEASE(tdbb, &window);
+#endif
+		ALL_release(reinterpret_cast < frb * >(trans));
+		ERR_post(gds_lock_conflict, 0);
+	}
+
+/* Link the transaction to the attachment block before releasing
+   header page for handling signals. */
+
+	TRA_link_transaction(tdbb, trans);
+
+#ifndef SUPERSERVER_V2
+#ifdef READONLY_DATABASE
+	if (!(dbb->dbb_flags & DBB_read_only))
+#endif /* READONLY_DATABASE */
+		CCH_RELEASE(tdbb, &window);
+#endif
+
+#else
+	TRA_link_transaction(tdbb, trans);
+#endif
+
+#ifdef READONLY_DATABASE
+	if (dbb->dbb_flags & DBB_read_only) {
+		/* Set transaction flags to TRA_precommitted, TRA_readonly */
+		trans->tra_flags |= (TRA_readonly | TRA_precommitted);
+	}
+#endif /* READONLY_DATABASE */
+
+#ifndef GATEWAY
+/* Next, take a snapshot of all transactions between the oldest interesting
+   transaction and the current.  Don't bother to get a snapshot for
+   read-committed transactions; they use the snapshot off the dbb block
+   since they need to know what is currently committed. */
+
+	if (trans->tra_flags & TRA_read_committed)
+		TPC_initialize_tpc(tdbb, number);
+	else
+		TRA_get_inventory(tdbb, trans->tra_transactions, base, number);
+
+/* Next task is to find the oldest active transaction on the system.  This
+   is needed for garbage collection.  Things are made ever so slightly
+   more complicated by the fact that existing transaction may have oldest
+   actives older than they are. */
+
+	MOVE_CLEAR(&temp_lock, sizeof(struct lck));
+	temp_lock.lck_header.blk_type = type_lck;
+	temp_lock.lck_dbb = dbb;
+	temp_lock.lck_object = (BLK) trans;
+	temp_lock.lck_type = LCK_tra;
+	temp_lock.lck_owner_handle =
+		LCK_get_owner_handle(tdbb, temp_lock.lck_type);
+	temp_lock.lck_parent = dbb->dbb_lock;
+	temp_lock.lck_length = sizeof(SLONG);
+
+	trans->tra_oldest_active = number;
+	base = oldest & ~TRA_MASK;
+	oldest_active = number;
+	cleanup = (number % TRA_ACTIVE_CLEANUP) ? FALSE : TRUE;
+
+	for (; active < number; active++) {
+		if (trans->tra_flags & TRA_read_committed)
+			oldest_state = TPC_cache_state(tdbb, active);
+		else {
+			byte = TRANS_OFFSET(active - base);
+			shift = TRANS_SHIFT(active);
+			oldest_state =
+				(trans->tra_transactions[byte] >> shift) & TRA_MASK;
+		}
+		if (oldest_state == tra_active) {
+			temp_lock.lck_key.lck_long = active;
+			if (!(data = LCK_read_data(&temp_lock))) {
+				if (cleanup) {
+					if (TRA_wait(tdbb, trans, active, FALSE) == tra_committed)
+						cleanup = FALSE;
+					continue;
+				}
+				else
+					data = active;
+			}
+
+			oldest_active = MIN(oldest_active, active);
+
+			/* Find the oldest record version that cannot be garbage collected yet
+			   by taking the minimum of all all versions needed by all active 
+			   transactions. */
+
+			if (data < trans->tra_oldest_active)
+				trans->tra_oldest_active = data;
+
+			/* If the lock data for any active transaction matches a previously
+			   computed value then there is no need to continue. There can't be
+			   an older lock data in the remaining active transactions. */
+
+			if (trans->tra_oldest_active == oldest_snapshot)
+				break;
+#ifndef VMS
+			/* Query the minimum lock data for all active transaction locks.
+			   This will be the oldest active snapshot used for regulating
+			   garbage collection. */
+
+			data = LCK_query_data(dbb->dbb_lock, LCK_tra, LCK_MIN);
+			if (data && data < trans->tra_oldest_active)
+				trans->tra_oldest_active = data;
+			break;
+#endif
+		}
+	}
+
+/* Put the TID of the oldest active transaction (just calculated)
+   in the new transaction's lock. */
+
+	if (lock->lck_data != oldest_active)
+		LCK_write_data(lock, oldest_active);
+
+/* Scan commit retaining transactions which have started after us but which
+   want to preserve an oldest active from an already committed transaction.
+   If a previously computed oldest snapshot was matched then there's no
+   need to worry about commit retaining transactions. */
+
+#ifdef VMS
+	if (trans->tra_oldest_active != oldest_snapshot)
+		compute_oldest_retaining(tdbb, trans, FALSE);
+#endif
+
+/* Finally, scan transactions looking for the oldest interesting transaction -- the oldest
+   non-commited transaction.  This will not be updated immediately, but saved until the
+   next update access to the header page */
+
+	oldest_state = tra_committed;
+
+	for (oldest = trans->tra_oldest; oldest < number; oldest++) {
+		if (trans->tra_flags & TRA_read_committed)
+			oldest_state = TPC_cache_state(tdbb, oldest);
+		else {
+			byte = TRANS_OFFSET(oldest - base);
+			shift = TRANS_SHIFT(oldest);
+			oldest_state =
+				(trans->tra_transactions[byte] >> shift) & TRA_MASK;
+		}
+
+		if (oldest_state != tra_committed && oldest_state != tra_precommitted)
+			break;
+	}
+
+#ifdef MULTI_THREAD
+	if (--oldest > dbb->dbb_oldest_transaction)
+		dbb->dbb_oldest_transaction = oldest;
+
+	if (oldest_active > dbb->dbb_oldest_active)
+		dbb->dbb_oldest_active = oldest_active;
+#else
+	dbb->dbb_oldest_transaction = oldest - 1;
+	dbb->dbb_oldest_active = oldest_active;
+#endif
+
+	if (trans->tra_oldest_active > dbb->dbb_oldest_snapshot)
+		dbb->dbb_oldest_snapshot = trans->tra_oldest_active;
+
+/* If the transaction block is getting out of hand, force a sweep */
+
+	if (dbb->dbb_sweep_interval &&
+		(trans->tra_oldest_active - trans->tra_oldest >
+		 dbb->dbb_sweep_interval) && oldest_state != tra_limbo) {
+#ifndef SWEEP_THREAD
+
+		/* force a sweep */
+
+		TRA_sweep(tdbb, trans);
+
+#else
+		start_sweeper(tdbb, dbb);
+#endif
+	}
+
+/* Check in with external file system */
+
+	EXT_trans_start(trans);
+#endif
+
+/* Start a 'transaction-level' savepoint, unless this is the
+   system transaction, or unless the transactions doesn't want
+   a savepoint to be started.  This savepoint will be used to
+   undo the transaction if it rolls back. */
+
+	if ((trans != dbb->dbb_sys_trans) &&
+		!(trans->tra_flags & TRA_no_auto_undo)) {
+		VIO_start_save_point(tdbb, trans);
+		trans->tra_save_point->sav_flags |= SAV_trans_level;
+	}
+
+/* if the user asked us to restart all requests in this attachment,
+   do so now using the new transaction */
+
+	if (trans->tra_flags & TRA_restart_requests)
+		restart_requests(tdbb, trans);
+
+/* If the transaction is read-only and read committed, it can be
+   precommitted because it can't modify any records and doesn't
+   need a snapshot preserved. This is being enabled for internal
+   transactions used by the sweeper threads. This transaction type
+   can run forever without impacting garbage collection or causing
+   transaction bitmap growth. It can be turned on for external use
+   by removing the test for TDBB_sweeper. */
+
+	if (tdbb->tdbb_flags & TDBB_sweeper &&
+		trans->tra_flags & TRA_readonly &&
+		trans->tra_flags & TRA_read_committed) {
+		TRA_set_state(tdbb, trans, trans->tra_number, tra_committed);
+		LCK_release(tdbb, trans->tra_lock);
+		ALL_release(reinterpret_cast < frb * >(trans->tra_lock));
+		trans->tra_lock = 0;
+		trans->tra_flags |= TRA_precommitted;
+	}
+
+	if (trans->tra_flags & TRA_precommitted)
+		(void) TRA_precommited(tdbb, 0, trans->tra_number);
+
+	return trans;
+}
+
+
+int TRA_state(UCHAR * bit_vector, ULONG oldest, ULONG number)
+{
+/**************************************
+ *
+ *	T R A _ s t a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the state of a transaction from a cached
+ *	bit vector.
+ *	NOTE: This code is reproduced elsewhere in
+ *	this module for speed.  If changes are made
+ *	to this code make them in the replicated code also.
+ *
+ **************************************/
+	ULONG base, byte;
+	USHORT shift;
+
+	base = oldest & ~TRA_MASK;
+	byte = TRANS_OFFSET(number - base);
+	shift = TRANS_SHIFT(number);
+
+	return (bit_vector[byte] >> shift) & TRA_MASK;
+}
+
+
+#ifndef GATEWAY
+int TRA_sweep(TDBB tdbb, TRA trans)
+{
+/**************************************
+ *
+ *	T R A _ s w e e p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a garbage collection pass thru database.
+ *
+ **************************************/
+	DBB dbb;
+	TRA transaction = 0;
+	HDR header;
+	WIN window;
+	USHORT shift;
+	ULONG byte, active, base;
+	SLONG transaction_oldest_active;
+	JMP_BUF env, *old_env;
+	struct lck temp_lock;
+	JRNDH journal;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef READONLY_DATABASE
+/* No point trying to sweep a ReadOnly database */
+	if (dbb->dbb_flags & DBB_read_only)
+		return FALSE;
+#endif /* READONLY_DATABASE */
+
+	if (dbb->dbb_flags & DBB_sweep_in_progress)
+		return TRUE;
+
+/* fill out a lock block, zeroing it out first */
+
+	MOVE_CLEAR(&temp_lock, sizeof(struct lck));
+	temp_lock.lck_header.blk_type = type_lck;
+	temp_lock.lck_dbb = dbb;
+	temp_lock.lck_object = (BLK) trans;
+	temp_lock.lck_type = LCK_sweep;
+	temp_lock.lck_owner_handle =
+		LCK_get_owner_handle(tdbb, temp_lock.lck_type);
+	temp_lock.lck_parent = dbb->dbb_lock;
+	temp_lock.lck_length = sizeof(SLONG);
+
+	if (!LCK_lock_non_blocking
+		(tdbb, &temp_lock, LCK_EX, (trans) ? FALSE : TRUE)) return TRUE;
+
+	dbb->dbb_flags |= DBB_sweep_in_progress;
+
+/* The following line seems to fix a bug that appears on VMS and AIX
+   (and perhaps MPE XL).  It probably has to do with the fact that
+   the error handler below used to contain the first reference to
+   variable transaction, which is actually initialized a few lines
+   below that. */
+
+	transaction = *(&transaction);
+
+/* Clean up the temporary locks we've gotten in case anything goes wrong */
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		if (!SETJMP(env))
+			if (!trans)
+				TRA_commit(tdbb, transaction, FALSE);
+		LCK_release(tdbb, &temp_lock);
+		dbb->dbb_flags &= ~DBB_sweep_in_progress;
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		tdbb->tdbb_flags &= ~TDBB_sweeper;
+		return FALSE;
+	}
+
+/* Identify ourselves as a sweeper thread. This accomplishes
+   two goals: 1) Sweep transaction is started "precommitted"
+   and 2) Execution is throttled in JRD_reschedule() by
+   yielding the processor when our quantum expires. */
+
+	tdbb->tdbb_flags |= TDBB_sweeper;
+
+/* Start a transaction, if necessary, to perform the sweep.
+   Save the transaction's oldest snapshot as it is refreshed
+   during the course of the database sweep. Since it is used
+   below to advance the OIT we must save it before it changes. */
+
+	if (!(transaction = trans))
+		transaction = TRA_start(tdbb,
+								sizeof(sweep_tpb),
+								reinterpret_cast < char *>(const_cast <
+														   UCHAR *
+														   >(sweep_tpb)));
+
+	transaction_oldest_active = transaction->tra_oldest_active;
+
+#ifdef GARBAGE_THREAD
+/* The garbage collector runs asynchronously with respect to
+   our database sweep. This isn't good enough since we must
+   be absolutely certain that all dead transactions have been
+   swept from the database before advancing the OIT. Turn off
+   the "notify garbage collector" flag for the attachment and
+   synchronously perform the garbage collection ourselves. */
+
+	transaction->tra_attachment->att_flags &= ~ATT_notify_gc;
+#endif
+
+	if (VIO_sweep(tdbb, transaction)) {
+		base = transaction->tra_oldest & ~TRA_MASK;
+
+		if (transaction->tra_flags & TRA_sweep_at_startup)
+			active = transaction->tra_oldest_active;
+		else {
+			for (active = transaction->tra_oldest;
+				 active < transaction->tra_top; active++) {
+				if (transaction->tra_flags & TRA_read_committed) {
+					if (TPC_cache_state(tdbb, active) == tra_limbo)
+						break;
+				}
+				else {
+					byte = TRANS_OFFSET(active - base);
+					shift = TRANS_SHIFT(active);
+					if (
+						((transaction->tra_transactions[byte] >> shift) &
+						 TRA_MASK) == tra_limbo) break;
+				}
+			}
+		}
+
+		/* Flush page buffers to insure that no dangling records from
+		   dead transactions are left on-disk. This must be done before
+		   the OIT is advanced and the header page is written to disk.
+		   If the header page was written before flushing the page buffers
+		   and there was a server crash, the dead records would appear
+		   committed since their TID would now be less than the OIT recorded
+		   in the database. */
+
+		CCH_flush(tdbb, (USHORT) FLUSH_SWEEP, 0);
+
+		window.win_page = HEADER_PAGE;
+		window.win_flags = 0;
+		header = (HDR) CCH_FETCH(tdbb, &window, LCK_write, pag_header);
+
+		if (header->hdr_oldest_transaction < --transaction_oldest_active) {
+			CCH_MARK_MUST_WRITE(tdbb, &window);
+			header->hdr_oldest_transaction =
+				MIN(active, transaction_oldest_active);
+			if (dbb->dbb_wal) {
+				journal.jrndh_type = JRNP_DB_HEADER;
+				journal.jrndh_nti = header->hdr_next_transaction;
+				journal.jrndh_oit = header->hdr_oldest_transaction;
+				journal.jrndh_oat = header->hdr_oldest_active;
+				CCH_journal_record(tdbb, &window,
+								   reinterpret_cast < UCHAR * >(&journal),
+								   JRNDH_SIZE, 0, 0);
+			}
+		}
+
+		CCH_RELEASE(tdbb, &window);
+	}
+
+	if (!trans)
+		TRA_commit(tdbb, transaction, FALSE);
+
+	LCK_release(tdbb, &temp_lock);
+	dbb->dbb_flags &= ~DBB_sweep_in_progress;
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	tdbb->tdbb_flags &= ~TDBB_sweeper;
+	return TRUE;
+}
+#endif
+
+
+LCK TRA_transaction_lock(TDBB tdbb, BLK object)
+{
+/**************************************
+ *
+ *	T R A _ t r a n s a c t i o n _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a transaction lock block.
+ *
+ **************************************/
+	DBB dbb;
+	LCK lock;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	lock = (LCK) ALLOCDV(type_lck, sizeof(SLONG));
+	lock->lck_type = LCK_tra;
+	lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+	lock->lck_length = sizeof(SLONG);
+
+	lock->lck_dbb = dbb;
+	lock->lck_parent = dbb->dbb_lock;
+	lock->lck_object = object;
+
+	return lock;
+}
+
+
+#ifdef GATEWAY
+int TRA_wait(TDBB tdbb, TRA trans, SLONG number, USHORT wait)
+{
+/**************************************
+ *
+ *	T R A _ w a i t			( G A T E W A Y )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait for a given transaction to drop into a stable state (i.e. non-active)
+ *	state.  To do this, we first wait on the transaction number.  When we
+ *	are able to get the lock, the transaction is not longer bona fide
+ *	active.  Next, we determine the state of the transaction from the
+ *	transaction inventory page.  If either committed, dead, or limbo,
+ *	we return the state.  If the transaction is still marked active,
+ *	however, declare the transaction dead, and mark the transaction
+ *	inventory page accordingly.
+ *
+ **************************************/
+
+	return tra_dead;
+}
+
+
+#else
+int TRA_wait(TDBB tdbb, TRA trans, SLONG number, USHORT wait)
+{
+/**************************************
+ *
+ *	T R A _ w a i t			( n o n - G A T E W A Y )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait for a given transaction to drop into a stable state (i.e. non-active)
+ *	state.  To do this, we first wait on the transaction number.  When we
+ *	are able to get the lock, the transaction is not longer bona fide
+ *	active.  Next, we determine the state of the transaction from the
+ *	transaction inventory page.  If either committed, dead, or limbo,
+ *	we return the state.  If the transaction is still marked active,
+ *	however, declare the transaction dead, and mark the transaction
+ *	inventory page accordingly.
+ *
+ **************************************/
+	DBB dbb;
+	USHORT shift, state, wait_flag;
+	ULONG byte;
+	struct lck temp_lock;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* Create, wait on, and release lock on target transaction.  If
+   we can't get the lock due to deadlock */
+
+	if (wait) {
+		MOVE_CLEAR(&temp_lock, sizeof(struct lck));
+		temp_lock.lck_header.blk_type = (UCHAR) type_lck;
+		temp_lock.lck_dbb = dbb;
+		temp_lock.lck_type = LCK_tra;
+		temp_lock.lck_owner_handle =
+			LCK_get_owner_handle(tdbb, temp_lock.lck_type);
+		temp_lock.lck_parent = dbb->dbb_lock;
+		temp_lock.lck_length = sizeof(SLONG);
+		temp_lock.lck_key.lck_long = number;
+		temp_lock.lck_owner = (BLK) trans;
+
+		wait_flag = (trans->tra_flags & TRA_nowait) ? FALSE : TRUE;
+		if (!LCK_lock_non_blocking(tdbb, &temp_lock, LCK_read, wait_flag))
+			return tra_active;
+
+		LCK_release(tdbb, &temp_lock);
+	}
+
+	state = TRA_get_state(tdbb, number);
+
+	if (wait && state == tra_committed)
+		return state;
+
+	if (state == tra_precommitted)
+		return state;
+
+/* If the recorded state of the transaction is active, we know better.  If
+   it were active, he'd be alive now.  Mark him dead. */
+
+	if (state == tra_active) {
+		state = tra_dead;
+		TRA_set_state(tdbb, 0, number, tra_dead);
+	}
+
+	if (number > trans->tra_top)
+		return state;
+
+/* If the transaction disppeared into limbo, died, for constructively
+  died, tweak the transaction state snapshot to reflect the new state.
+  This is guarenteed safe. */
+
+	byte = TRANS_OFFSET(number - (trans->tra_oldest & ~TRA_MASK));
+	shift = TRANS_SHIFT(number);
+
+	if (trans->tra_flags & TRA_read_committed)
+		TPC_set_state(tdbb, number, state);
+	else {
+		trans->tra_transactions[byte] &= ~(TRA_MASK << shift);
+		trans->tra_transactions[byte] |= state << shift;
+	}
+
+	return state;
+}
+#endif
+
+
+#ifndef GATEWAY
+#ifdef SUPERSERVER_V2
+static SLONG bump_transaction_id(TDBB tdbb, WIN * window)
+{
+/**************************************
+ *
+ *	b u m p _ t r a n s a c t i o n _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch header and bump next transaction id.  If necessary,
+ *	extend TIP.
+ *
+ **************************************/
+	DBB dbb;
+	HDR header;
+	ULONG fake_tid, number;
+	JRNDH journal;
+	SLONG sequence;
+	SSHORT new_tip;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	number = ++dbb->dbb_next_transaction;
+
+#ifdef READONLY_DATABASE
+/* No need to write TID onto the TIP page, for a RO DB */
+	if (dbb->dbb_flags & DBB_read_only)
+		return number;
+#endif /* READONLY_DATABASE */
+
+/* If this is the first transaction on a TIP, allocate the TIP now. */
+
+	if (new_tip = ((number == 1)
+				   || ((number % dbb->dbb_pcontrol->pgc_tpt) == 0)))
+		TRA_extend_tip(tdbb,
+					   (ULONG) (number / dbb->dbb_pcontrol->pgc_tpt), window);
+
+/* Transaction start will be logged every MOD_START_TRAN or when a
+ * new tip page is allocated.
+ * Make sure that the fake_tid does not roll over to the next tip page.
+ * If that is the case, use last tid in this page.
+ */
+	if (dbb->dbb_wal) {
+		if ((number % MOD_START_TRAN == 0) || (new_tip)) {
+			fake_tid = number + MOD_START_TRAN;
+			sequence = number / dbb->dbb_pcontrol->pgc_tpt;
+			if (sequence != ((fake_tid + 1) / dbb->dbb_pcontrol->pgc_tpt))
+				fake_tid = ((sequence + 1) * dbb->dbb_pcontrol->pgc_tpt) - 1;
+			header = (HDR) CCH_FETCH(tdbb, window, LCK_write, pag_header);
+			CCH_MARK_MUST_WRITE(tdbb, window);
+			header->hdr_bumped_transaction = fake_tid;
+
+			journal.jrndh_type = JRNP_DB_HEADER;
+			journal.jrndh_nti = header->hdr_bumped_transaction;
+			journal.jrndh_oit = dbb->dbb_oldest_transaction;
+			journal.jrndh_oat = dbb->dbb_oldest_active;
+			CCH_journal_record(tdbb, window, &journal, JRNDH_SIZE, 0, 0);
+			CCH_RELEASE(tdbb, window);
+		}
+	}
+
+	return number;
+}
+#else
+
+
+static HDR bump_transaction_id(TDBB tdbb, WIN * window)
+{
+/**************************************
+ *
+ *	b u m p _ t r a n s a c t i o n _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch header and bump next transaction id.  If necessary,
+ *	extend TIP.
+ *
+ **************************************/
+	DBB dbb;
+	HDR header;
+	ULONG fake_tid, number;
+	JRNDH journal;
+	SLONG sequence;
+	SSHORT new_tip;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	window->win_page = HEADER_PAGE;
+	header = (HDR) CCH_FETCH(tdbb, window, LCK_write, pag_header);
+
+/* Before incrementing the next transaction Id, make sure the current one is valid */
+	if (header->hdr_next_transaction) {
+		if (header->hdr_oldest_active > header->hdr_next_transaction)
+			BUGCHECK(266);		/*next transaction older than oldest active */
+
+		if (header->hdr_oldest_transaction > header->hdr_next_transaction)
+			BUGCHECK(267);		/* next transaction older than oldest transaction */
+	}
+
+	number = header->hdr_next_transaction + 1;
+
+/* If this is the first transaction on a TIP, allocate the TIP now. */
+
+	if (new_tip = ((number == 1)
+				   || ((number % dbb->dbb_pcontrol->pgc_tpt) == 0)))
+		TRA_extend_tip(tdbb,
+					   (ULONG) (number / dbb->dbb_pcontrol->pgc_tpt), window);
+
+/* Extend, if necessary, has apparently succeeded.  Next, update header
+   page */
+
+	CCH_MARK_MUST_WRITE(tdbb, window);
+	header->hdr_next_transaction = number;
+
+	if (dbb->dbb_oldest_active > header->hdr_oldest_active)
+		header->hdr_oldest_active = dbb->dbb_oldest_active;
+
+	if (dbb->dbb_oldest_transaction > header->hdr_oldest_transaction)
+		header->hdr_oldest_transaction = dbb->dbb_oldest_transaction;
+
+	if (dbb->dbb_oldest_snapshot > header->hdr_oldest_snapshot)
+		header->hdr_oldest_snapshot = dbb->dbb_oldest_snapshot;
+
+/* Transaction start will be logged every MOD_START_TRAN or when a
+ * new tip page is allocated.
+ * Make sure that the fake_tid does not roll over to the next tip page.
+ * If that is the case, use last tid in this page.
+ */
+	if (dbb->dbb_wal) {
+		if ((number % MOD_START_TRAN == 0) || (new_tip)) {
+			fake_tid = number + MOD_START_TRAN;
+			sequence = number / dbb->dbb_pcontrol->pgc_tpt;
+			if (sequence != ((fake_tid + 1) / dbb->dbb_pcontrol->pgc_tpt))
+				fake_tid = ((sequence + 1) * dbb->dbb_pcontrol->pgc_tpt) - 1;
+			header->hdr_bumped_transaction = fake_tid;
+
+			journal.jrndh_type = JRNP_DB_HEADER;
+			journal.jrndh_nti = header->hdr_bumped_transaction;
+			journal.jrndh_oit = header->hdr_oldest_transaction;
+			journal.jrndh_oat = header->hdr_oldest_active;
+			CCH_journal_record(tdbb, window,
+							   reinterpret_cast < UCHAR * >(&journal),
+							   JRNDH_SIZE, 0, 0);
+		}
+	}
+
+	return header;
+}
+#endif
+#endif
+
+
+#ifndef GATEWAY
+#ifdef VMS
+static void compute_oldest_retaining(
+									 TDBB tdbb,
+									 TRA transaction, BOOLEAN write_flag)
+{
+/**************************************
+ *
+ *	c o m p u t e _ o l d e s t _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the oldest active for all transactions
+ *	younger than us up to the youngest retaining
+ *	transaction. If an "older" oldest active is
+ *	found, by all means use it. Write flag is TRUE
+ *	to write retaining lock and FALSE to read it.
+ *	The retaining lock holds the youngest commit
+ *	retaining transaction.
+ *
+ **************************************/
+	DBB dbb;
+	LCK lock;
+	SLONG data, number, youngest_retaining;
+	struct lck temp_lock;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* Get a commit retaining lock, if not present. */
+
+	if (!(lock = dbb->dbb_retaining_lock)) {
+		lock = (LCK) ALLOCPV(type_lck, sizeof(SLONG));
+		lock->lck_dbb = dbb;
+		lock->lck_type = LCK_retaining;
+		lock->lck_owner_handle = LCK_get_owner_handle(tdbb, lock->lck_type);
+		lock->lck_parent = dbb->dbb_lock;
+		lock->lck_length = sizeof(SLONG);
+		lock->lck_object = (BLK) dbb;
+#ifdef VMS
+		if (LCK_lock(tdbb, lock, LCK_EX, FALSE)) {
+			number = 0;
+			vms_convert(lock, &number, LCK_SR, TRUE);
+		}
+		else
+			LCK_lock(tdbb, lock, LCK_SR, TRUE);
+#else
+		LCK_lock_non_blocking(tdbb, lock, LCK_SR, TRUE);
+#endif
+		dbb->dbb_retaining_lock = lock;
+	}
+
+	number = transaction->tra_number;
+
+/* Writers must synchronize their lock update so that
+   an older retaining is not written over a younger retaining.
+   In any case, lock types have been selected so that
+   readers and writers don't interfere. */
+
+	if (write_flag) {
+#ifdef VMS
+		vms_convert(lock, &youngest_retaining, LCK_PW, TRUE);
+		if (number > youngest_retaining)
+			vms_convert(lock, &number, LCK_SR, TRUE);
+		else
+			vms_convert(lock, 0, LCK_SR, TRUE);
+#else
+		LCK_convert(tdbb, lock, LCK_PW, TRUE);
+		youngest_retaining = LOCK_read_data(lock->lck_id);
+		if (number > youngest_retaining)
+			LCK_write_data(lock, number);
+		LCK_convert(tdbb, lock, LCK_SR, TRUE);
+#endif
+	}
+	else {
+#ifdef VMS
+		vms_convert(lock, &youngest_retaining, LCK_SR, TRUE);
+#else
+		youngest_retaining = LOCK_read_data(lock->lck_id);
+#endif
+		if (number > youngest_retaining)
+			return;
+
+		/* fill out a lock block, zeroing it out first */
+
+		MOVE_CLEAR(&temp_lock, sizeof(struct lck));
+		temp_lock.lck_header.blk_type = type_lck;
+		temp_lock.lck_dbb = dbb;
+		temp_lock.lck_type = LCK_tra;
+		temp_lock.lck_owner_handle =
+			LCK_get_owner_handle(tdbb, temp_lock.lck_type);
+		temp_lock.lck_parent = dbb->dbb_lock;
+		temp_lock.lck_length = sizeof(SLONG);
+		temp_lock.lck_object = (BLK) transaction;
+
+		while (number < youngest_retaining) {
+			temp_lock.lck_key.lck_long = ++number;
+			if (data = LCK_read_data(&temp_lock))
+				if (data < transaction->tra_oldest_active)
+					transaction->tra_oldest_active = data;
+		}
+	}
+}
+#endif
+#endif
+
+
+static void downgrade_lock(TRA transaction)
+{
+/**************************************
+ *
+ *	d o w n g r a d e _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Someone is trying to establish an interest
+ *	lock in this transaction.  Downgrade to a
+ *	shared write, to allow transactions to wait
+ *	on this transaction or, alternatively, be 
+ *	notified if and when the transaction commits.
+ *
+ **************************************/
+	LCK lock;
+	struct tdbb thd_context, *tdbb;
+
+	ISC_ast_enter();
+
+/* Since this routine will be called asynchronously, we must establish
+   a thread context. */
+
+	SET_THREAD_DATA;
+
+/* Ignore the request if the transaction or lock block does not appear
+   to be valid or if the lock is not a write lock. */
+
+	if (transaction->tra_use_count);
+	else {
+		tdbb->tdbb_database = transaction->tra_attachment->att_database;
+		tdbb->tdbb_attachment = transaction->tra_attachment;
+		tdbb->tdbb_quantum = QUANTUM;
+		tdbb->tdbb_request = NULL;
+		tdbb->tdbb_transaction = transaction;
+
+		++transaction->tra_use_count;
+		if ((lock = transaction->tra_lock) && lock->lck_logical == LCK_write) {
+			lock->lck_ast = NULL;
+			LCK_convert(tdbb, lock, LCK_SW, TRUE);
+		}
+		--transaction->tra_use_count;
+	}
+
+/* Restore the prior thread context */
+
+	RESTORE_THREAD_DATA;
+
+	ISC_ast_exit();
+}
+
+
+static void expand_view_lock(TRA transaction, REL relation, SCHAR lock_type)
+{
+/**************************************
+ *
+ *	e x p a n d _ v i e w _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	A view in a RESERVING will lead to all tables in the
+ *	view being locked.
+ *
+ **************************************/
+	LCK lock;
+	REL rel;
+	VCX ctx;
+	TDBB tdbb;
+
+	tdbb = GET_THREAD_DATA;
+
+/* set up the lock on the relation/view */
+
+	lock = RLCK_transaction_relation_lock(transaction, relation);
+
+	lock->lck_logical = lock_type;
+#ifdef GATEWAY
+	lock->lck_reserved = lock->lck_logical;
+#endif
+
+	if (!(ctx = relation->rel_view_contexts))
+		return;
+
+	for (; ctx; ctx = ctx->vcx_next) {
+		if (!
+			(rel =
+			 MET_lookup_relation(tdbb, reinterpret_cast < char *>(ctx->vcx_relation_name->str_data)))) ERR_post(gds_bad_tpb_content,	/* should be a BUGCHECK */
+																												gds_arg_gds,
+																												gds_relnotdef,
+																												gds_arg_string,
+																												ERR_cstring
+																												(reinterpret_cast
+																												 <
+																												 char
+																												 *>
+																												 (ctx->vcx_relation_name->str_data)),
+																												0);
+
+		/* force a scan to read view information */
+		MET_scan_relation(tdbb, rel);
+
+		expand_view_lock(transaction, rel, lock_type);
+	}
+}
+
+
+#ifndef GATEWAY
+static TIP fetch_inventory_page(
+								TDBB tdbb,
+								WIN * window,
+								SLONG sequence, USHORT lock_level)
+{
+/**************************************
+ *
+ *	f e t c h _ i n v e n t o r y _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a transaction inventory page.
+ *	Use the opportunity to cache the info
+ *	in the TIP cache.
+ *
+ **************************************/
+	TIP tip;
+
+	SET_TDBB(tdbb);
+
+	window->win_page = inventory_page(tdbb, (int) sequence);
+	tip = (TIP) CCH_FETCH(tdbb, window, lock_level, pag_transactions);
+
+	TPC_update_cache(tdbb, tip, sequence);
+
+	return tip;
+}
+#endif
+
+
+#ifndef GATEWAY
+static SLONG inventory_page(TDBB tdbb, int sequence)
+{
+/**************************************
+ *
+ *	i n v e n t o r y _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the physical page number of the n-th transaction inventory
+ *	page. If not found, try to reconstruct using sibling pointer
+ *	from last known TIP page.
+ *
+ **************************************/
+	DBB dbb;
+	TIP tip;
+	VCL vector;
+	WIN window;
+	SLONG next;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	window.win_flags = 0;
+	while (!(vector = dbb->dbb_t_pages) || sequence >= vector->vcl_count) {
+		DPM_scan_pages(tdbb);
+		if ((vector = dbb->dbb_t_pages) && sequence < vector->vcl_count)
+			break;
+		if (!vector || !vector->vcl_long)
+			BUGCHECK(165);		/* msg 165 cannot find tip page */
+		window.win_page = vector->vcl_long[vector->vcl_count - 1];
+		tip = (TIP) CCH_FETCH(tdbb, &window, LCK_read, pag_transactions);
+		next = tip->tip_next;
+		CCH_RELEASE(tdbb, &window);
+		if (!(window.win_page = next))
+			BUGCHECK(165);		/* msg 165 cannot find tip page */
+		tip = (TIP) CCH_FETCH(tdbb, &window, LCK_read, pag_transactions);	/* Type check it */
+		CCH_RELEASE(tdbb, &window);
+		DPM_pages(tdbb, 0, pag_transactions, vector->vcl_count,
+				  window.win_page);
+	}
+
+	return vector->vcl_long[sequence];
+}
+#endif
+
+
+#ifndef GATEWAY
+static SSHORT limbo_transaction(TDBB tdbb, SLONG id)
+{
+/**************************************
+ *
+ *	l i m b o _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	limbo_state is called when reconnecting
+ *	to an existing transaction to assure that
+ *	the transaction is actually in limbo.
+ *	It returns the transaction state.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	TIP tip;
+	UCHAR *byte;
+	SSHORT shift, page, state;
+	SLONG number, trans_per_tip, trans_offset;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	trans_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+
+	page = id / trans_per_tip;
+	number = id % trans_per_tip;
+
+	window.win_flags = 0;
+	tip = fetch_inventory_page(tdbb, &window, page, LCK_write);
+
+	trans_offset = TRANS_OFFSET(number);
+	byte = tip->tip_transactions + trans_offset;
+	shift = TRANS_SHIFT(number);
+	state = (*byte >> shift) & TRA_MASK;
+	CCH_RELEASE(tdbb, &window);
+
+	return state;
+}
+#endif
+
+
+static void restart_requests(TDBB tdbb, TRA trans)
+{
+/**************************************
+ *
+ *	r e s t a r t _ r e q u e s t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Restart all requests in the current 
+ *	attachment to utilize the passed 
+ *	transaction.
+ *
+ **************************************/
+	REQ request, clone;
+	VEC vector;
+	USHORT level;
+
+	SET_TDBB(tdbb);
+	for (request = trans->tra_attachment->att_requests; request;
+		 request = request->req_request) {
+		if (request->req_transaction) {
+			EXE_unwind(tdbb, request);
+			EXE_start(tdbb, request, trans);
+		}
+
+		/* now take care of any other request levels;
+		   start at level 1 since level 0 was just handled */
+
+		if (vector = request->req_sub_requests)
+			for (level = 1; level < vector->vec_count; level++)
+				if ((clone = (REQ) vector->vec_object[level]) &&
+					clone->req_transaction) {
+					EXE_unwind(tdbb, clone);
+					EXE_start(tdbb, clone, trans);
+				}
+	}
+}
+
+
+#ifndef GATEWAY
+static void retain_context(TDBB tdbb, TRA transaction, USHORT commit)
+{
+/**************************************
+ *
+ *	r e t a i n _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	If 'commit' flag is true, commit the transaction,
+ *	else rollback the transaction.
+ *
+ *	Commit/rollback a transaction while preserving the
+ *	context, in particular, its snapshot. The
+ *	trick is to insure that the transaction's
+ *	oldest active is seen by other transactions
+ *	simultaneously starting up.
+ *
+ **************************************/
+	DBB dbb;
+	HDR header;
+	SLONG new_number, old_number;
+	WIN window;
+	LCK new_lock, old_lock;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* The new transaction needs to remember the 'commit-retained' transaction
+   because it must see the operations of the 'commit-retained' transaction and
+   its snapshot doesn't contain these operations. */
+
+	if (commit)
+		SBM_set(tdbb, &transaction->tra_commit_sub_trans,
+				transaction->tra_number);
+
+/* Create a new transaction lock, inheriting oldest active
+   from transaction being committed. */
+
+	window.win_flags = 0;
+#ifdef SUPERSERVER_V2
+	new_number = bump_transaction_id(tdbb, &window);
+#else
+#ifdef READONLY_DATABASE
+	if (dbb->dbb_flags & DBB_read_only)
+		new_number = ++dbb->dbb_next_transaction;
+	else {
+		header = bump_transaction_id(tdbb, &window);
+		new_number = header->hdr_next_transaction;
+	}
+#else
+	header = bump_transaction_id(tdbb, &window);
+	new_number = header->hdr_next_transaction;
+#endif /* READONLY_DATABASE */
+#endif
+
+	if (old_lock = transaction->tra_lock) {
+		new_lock =
+			TRA_transaction_lock(tdbb,
+								 reinterpret_cast < blk * >(transaction));
+		new_lock->lck_key.lck_long = new_number;
+		new_lock->lck_data = transaction->tra_lock->lck_data;
+
+		/* Support refresh range notification in ExpressLink */
+
+#ifdef PC_ENGINE
+		new_lock->lck_ast = downgrade_lock;
+#endif
+
+		if (!LCK_lock_non_blocking(tdbb, new_lock, LCK_write, TRUE)) {
+#ifndef SUPERSERVER_V2
+#ifdef READONLY_DATABASE
+			if (!(dbb->dbb_flags & DBB_read_only))
+#endif
+				CCH_RELEASE(tdbb, &window);
+#endif
+			ERR_post(gds_lock_conflict, 0);
+		}
+	}
+
+#ifndef SUPERSERVER_V2
+#ifdef READONLY_DATABASE
+	if (!(dbb->dbb_flags & DBB_read_only))
+#endif
+		CCH_RELEASE(tdbb, &window);
+#endif
+
+/* Update database notion of the youngest commit retaining
+   transaction before committing the first transaction. This
+   secures the original snapshot by insuring the oldest active
+   is seen by other transactions. */
+
+	old_number = transaction->tra_number;
+#ifdef VMS
+	transaction->tra_number = new_number;
+	compute_oldest_retaining(tdbb, transaction, TRUE);
+	transaction->tra_number = old_number;
+#endif
+
+#ifdef READONLY_DATABASE
+	if (!(dbb->dbb_flags & DBB_read_only)) {
+#endif /* READONLY_DATABASE */
+		/* Set the state on the inventory page */
+		if (commit)
+			TRA_set_state(tdbb, transaction, old_number, tra_committed);
+		else
+			TRA_set_state(tdbb, transaction, old_number, tra_dead);
+#ifdef READONLY_DATABASE
+	}
+#endif /* READONLY_DATABASE */
+	transaction->tra_number = new_number;
+
+/* Release transaction lock since it isn't needed
+   anymore and the new one is already in place. */
+
+	if (old_lock) {
+		++transaction->tra_use_count;
+		LCK_release(tdbb, old_lock);
+		transaction->tra_lock = new_lock;
+		--transaction->tra_use_count;
+		ALL_release(reinterpret_cast < frb * >(old_lock));
+	}
+
+/* Perform any post commit work OR delete entries from deferred list */
+
+	if (commit)
+		DFW_perform_post_commit_work(transaction);
+	else
+		DFW_delete_deferred(transaction, -1);
+
+	transaction->tra_flags &= ~(TRA_write | TRA_prepared);
+
+/* We have to mimic a TRA_commit and a TRA_start while reusing the
+   'transaction' control block: get rid of the transaction-level
+   savepoint and possibly start a new transaction-level savepoint. */
+
+	if (transaction->tra_save_point) {
+		if (!(transaction->tra_save_point->sav_flags & SAV_trans_level))
+			BUGCHECK(287);		/* Too many savepoints */
+		VIO_verb_cleanup(tdbb, transaction);	/* get rid of savepoint */
+		VIO_start_save_point(tdbb, transaction);	/* start new savepoint */
+		transaction->tra_save_point->sav_flags |= SAV_trans_level;
+	}
+
+	if (transaction->tra_flags & TRA_precommitted) {
+#ifdef READONLY_DATABASE
+		if (!(dbb->dbb_flags & DBB_read_only))
+#endif
+		{
+			transaction->tra_flags &= ~TRA_precommitted;
+			TRA_set_state(tdbb, transaction, new_number, tra_committed);
+			transaction->tra_flags |= TRA_precommitted;
+		}
+
+		(void) TRA_precommited(tdbb, old_number, new_number);
+	}
+}
+#endif /* GATEWAY */
+
+
+#ifdef SWEEP_THREAD
+static BOOLEAN start_sweeper(TDBB tdbb, DBB dbb)
+{
+/**************************************
+ *
+ *	s t a r t _ s w e e p e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a thread to sweep the database.
+ *
+ **************************************/
+	struct lck temp_lock;
+	UCHAR *database;
+
+	if (dbb->dbb_flags & DBB_sweep_in_progress)
+		return FALSE;
+
+	SET_TDBB(tdbb);
+
+/* fill out a lock block, zeroing it out first */
+
+	MOVE_CLEAR(&temp_lock, sizeof(struct lck));
+	temp_lock.lck_header.blk_type = type_lck;
+	temp_lock.lck_dbb = dbb;
+	temp_lock.lck_type = LCK_sweep;
+	temp_lock.lck_owner_handle =
+		LCK_get_owner_handle(tdbb, temp_lock.lck_type);
+	temp_lock.lck_parent = dbb->dbb_lock;
+	temp_lock.lck_length = sizeof(SLONG);
+
+	if (!LCK_lock(tdbb, &temp_lock, LCK_EX, FALSE))
+		return FALSE;
+
+	LCK_release(tdbb, &temp_lock);
+
+/* allocate space for the string and a null at the end */
+	database =
+		gds__alloc(strlen
+				   (reinterpret_cast <
+					const char *>(dbb->dbb_filename->str_data)) +1);
+	if (database) {
+		strcpy(reinterpret_cast < char *>(database),
+			   reinterpret_cast < const char *>(dbb->dbb_filename->str_data));
+		if (gds__thread_start
+			(reinterpret_cast < FPTR_INT_VOID_PTR > (sweep_database),
+			 database, THREAD_low, 0, 0)) {
+			gds__free(database);
+			ERR_log(0, 0, "cannot start sweep thread");
+		}
+	}
+	else {
+		ERR_log(0, 0, "cannot start sweep thread, Out of Memory");
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+static void THREAD_ROUTINE sweep_database(UCHAR * database)
+{
+/**************************************
+ *
+ *	s w e e p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sweep database.
+ *
+ **************************************/
+	isc_db_handle	db_handle;
+	IHNDL			ihandle;
+	STATUS			status_vector[ISC_STATUS_LENGTH];
+	UCHAR*			dpb;
+	SSHORT			dpb_length;
+	char*			q;
+	UCHAR	sweep_dpb[100];
+	TEXT	password_enc[100];
+
+	db_handle = NULL;
+
+	dpb = sweep_dpb;
+
+	*dpb++ = gds_dpb_version1;
+	*dpb++ = gds_dpb_user_name;
+	q = "sweeper";
+	*dpb++ = strlen (q);
+	while (*q)
+	{
+		*dpb++ = *q++;
+	}
+
+	*dpb++ = gds_dpb_password;
+	q = "none";
+	*dpb++ = strlen(q);
+	while (*q)
+	{
+		*dpb++ = *q++;
+	}
+
+	*dpb++ = gds_dpb_sweep;
+	*dpb++ = 1;
+	*dpb++ = gds_dpb_records;
+	dpb_length = dpb - sweep_dpb;
+
+	/* Register as internal database handle */
+
+	THREAD_ENTER;
+	for (ihandle = internal_db_handles; ihandle; ihandle = ihandle->ihndl_next)
+	{
+		if (ihandle->ihndl_object == NULL)
+		{
+			ihandle->ihndl_object = &db_handle;
+			break;
+		}
+	}
+
+	if (!ihandle)
+	{
+		ihandle = (IHNDL) gds__alloc ((SLONG) sizeof (struct ihndl));
+		ihandle->ihndl_object = &db_handle;
+		ihandle->ihndl_next = internal_db_handles;
+		internal_db_handles = ihandle;
+	}
+	THREAD_EXIT;
+
+	gds__attach_database(status_vector,
+						 0,
+						 reinterpret_cast<char*>(GDS_VAL(database)),
+						 reinterpret_cast<void**>(GDS_REF(db_handle)),
+						 dpb_length,
+						 reinterpret_cast<char*>(GDS_VAL(sweep_dpb)));
+
+	assert (ihandle->ihndl_object == &db_handle);
+	ihandle->ihndl_object = NULL;
+
+	if (db_handle)
+	{
+		gds__detach_database(status_vector,
+							 reinterpret_cast<void**>(GDS_REF(db_handle)));
+	}
+
+	gds__free(database);
+}
+#endif
+
+
+static void transaction_options(
+								TDBB tdbb,
+								TRA transaction,
+								UCHAR * tpb, USHORT tpb_length)
+{
+/**************************************
+ *
+ *	t r a n s a c t i o n _ o p t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process transaction options.
+ *
+ **************************************/
+	REL relation;
+	VEC vector;
+	LCK lock;
+	UCHAR *p, *end;
+	TEXT name[32], text[128];
+	USHORT flags;
+	USHORT l, level, op, wait;
+	int id;
+	SCHAR lock_type;
+
+	SET_TDBB(tdbb);
+
+	if (!tpb_length)
+		return;
+
+	wait = 1;
+	end = tpb + tpb_length;
+
+	if (*tpb != gds_tpb_version3 && *tpb != gds_tpb_version1)
+		ERR_post(gds_bad_tpb_form, gds_arg_gds, gds_wrotpbver, 0);
+
+	++tpb;
+
+	while (tpb < end) {
+		switch (op = *tpb++) {
+		case gds_tpb_consistency:
+			transaction->tra_flags |= TRA_degree3;
+			transaction->tra_flags &= ~TRA_read_committed;
+			break;
+
+		case gds_tpb_concurrency:
+			transaction->tra_flags &= ~TRA_degree3;
+			transaction->tra_flags &= ~TRA_read_committed;
+			break;
+
+		case gds_tpb_read_committed:
+			transaction->tra_flags &= ~TRA_degree3;
+			transaction->tra_flags |= TRA_read_committed;
+			break;
+
+		case gds_tpb_shared:
+		case gds_tpb_protected:
+		case gds_tpb_exclusive:
+			break;
+
+		case gds_tpb_wait:
+			break;
+
+		case gds_tpb_rec_version:
+			transaction->tra_flags |= TRA_rec_version;
+			break;
+
+		case gds_tpb_no_rec_version:
+			transaction->tra_flags &= ~TRA_rec_version;
+			break;
+
+		case gds_tpb_nowait:
+			wait = 0;
+			transaction->tra_flags |= TRA_nowait;
+			break;
+
+		case gds_tpb_read:
+			transaction->tra_flags |= TRA_readonly;
+			break;
+
+		case gds_tpb_write:
+			transaction->tra_flags &= ~TRA_readonly;
+			break;
+
+		case gds_tpb_ignore_limbo:
+			transaction->tra_flags |= TRA_ignore_limbo;
+			break;
+
+		case gds_tpb_no_auto_undo:
+			transaction->tra_flags |= TRA_no_auto_undo;
+			break;
+
+		case gds_tpb_lock_write:
+		case gds_tpb_lock_read:
+			p = reinterpret_cast < UCHAR * >(name);
+			if (l = *tpb++) {
+				if (l >= sizeof(name)) {
+					gds__msg_lookup(0, DYN_MSG_FAC, 159, sizeof(text),
+									text, &flags);
+					/* msg 159: Name longer than database column size */
+					ERR_post(gds_bad_tpb_content, gds_arg_gds, gds_random,
+							 gds_arg_string, ERR_cstring(text), 0);
+				}
+				do
+					*p++ = *tpb++;
+				while (--l);
+			}
+			*p = 0;
+			if (!(relation = MET_lookup_relation(tdbb, name)))
+				ERR_post(gds_bad_tpb_content,
+						 gds_arg_gds, gds_relnotdef, gds_arg_string,
+						 ERR_cstring(name), 0);
+
+			/* force a scan to read view information */
+			MET_scan_relation(tdbb, relation);
+
+			lock_type = (op == gds_tpb_lock_read) ? LCK_none : LCK_SW;
+			if (tpb < end) {
+				if (*tpb == gds_tpb_shared)
+					tpb++;
+				else if (*tpb == gds_tpb_protected
+						 || *tpb == gds_tpb_exclusive) {
+					tpb++;
+					lock_type = (lock_type == LCK_SW) ? LCK_EX : LCK_PR;
+				}
+			}
+
+			expand_view_lock(transaction, relation, lock_type);
+			break;
+
+		case gds_tpb_verb_time:
+		case gds_tpb_commit_time:
+			l = *tpb++;
+			tpb += l;
+			break;
+
+		case gds_tpb_autocommit:
+			transaction->tra_flags |= TRA_autocommit;
+			break;
+
+		case gds_tpb_restart_requests:
+			transaction->tra_flags |= TRA_restart_requests;
+			break;
+
+		default:
+			ERR_post(gds_bad_tpb_form, 0);
+		}
+	}
+
+/* If there aren't any relation locks to seize, we're done. */
+
+	if (!(vector = transaction->tra_relation_locks))
+		return;
+
+/* Try to seize all relation locks.  
+   If any can't be seized, release all and try again. */
+
+	id = 0;
+
+	for (; id < vector->vec_count; id++) {
+		if (!(lock = (LCK) vector->vec_object[id]))
+			continue;
+		level = lock->lck_logical;
+		if (level == LCK_none
+			|| LCK_lock_non_blocking(tdbb, lock, level, wait)) continue;
+		for (l = 0; l < id; l++)
+			if (lock = (LCK) vector->vec_object[l]) {
+				level = lock->lck_logical;
+				LCK_release(tdbb, lock);
+				lock->lck_logical = level;
+			}
+#ifdef GATEWAY
+		/* ORACLE doesn't have any way of releasing locks except through
+		   rollback and commit.  Therefore, to get rid of any locks that we
+		   obtained, let's rollback. */
+
+		FRGN_rollback_transaction(transaction);
+#endif
+		id = 0;
+		if (!wait)
+			ERR_post(gds_lock_conflict, 0);
+		else
+			ERR_post(gds_deadlock, 0);
+	}
+}
+
+
+#ifndef GATEWAY
+#ifdef VMS
+static BOOLEAN vms_convert(LCK lock, SLONG * data, SCHAR type, BOOLEAN wait)
+{
+/**************************************
+ *
+ *	v m s _ c o n v e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Comply with VMS protocol for lock I/O.
+ *
+ **************************************/
+	SLONG status, flags;
+	LKSB lksb;
+
+	lksb.lksb_lock_id = lock->lck_id;
+
+	if (data && type < lock->lck_physical)
+		lksb.lksb_value[0] = *data;
+
+	flags = LCK$M_CONVERT;
+
+	if (data)
+		flags |= LCK$M_VALBLK;
+
+	if (!wait)
+		flags |= LCK$M_NOQUEUE;
+
+	status = sys$enqw(EVENT_FLAG, lock_types[type], &lksb, flags, NULL, NULL, NULL,	/* AST routine when granted */
+					  NULL,		/* ast_argument */
+					  NULL,		/* ast_routine */
+					  NULL, NULL);
+
+	if (!wait && status == SS$_NOTQUEUED)
+		return FALSE;
+
+	if (!(status & 1) || !((status = lksb.lksb_status) & 1))
+		ERR_post(gds__sys_request, gds_arg_string,
+				 "sys$enqw (commit retaining lock)", gds_arg_vms, status, 0);
+
+	if (data && type >= lock->lck_physical)
+		*data = lksb.lksb_value[0];
+
+	lock->lck_physical = lock->lck_logical = type;
+
+	return TRUE;
+}
+#endif
+#endif
diff --git a/src/jrd/tra.h b/src/jrd/tra.h
new file mode 100644
index 0000000000..a5f4d399de
--- /dev/null
+++ b/src/jrd/tra.h
@@ -0,0 +1,203 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		tra.h
+ *	DESCRIPTION:	Transaction block definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_TRA_H
+#define JRD_TRA_H
+
+/*
+ * TMN: Fix this header! It should include any header it needs
+ * to define the types this header usus.
+ */
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+/* Transaction block */
+
+typedef struct tra
+{
+	struct blk tra_header;
+	struct att *tra_attachment;	/* database attachment */
+	SLONG tra_number;			/* transaction number */
+	SLONG tra_top;				/* highest transaction in snapshot */
+	SLONG tra_oldest;			/* oldest interesting transaction */
+	SLONG tra_oldest_active;	/* record versions older than this can be
+								   gargage-collected by this tx */
+	struct tra *tra_next;		/* next transaction in database */
+	struct tra *tra_sibling;	/* next transaction in group */
+	struct plb *tra_pool;		/* pool for transaction */
+	struct blb *tra_blobs;		/* Linked list of active blobs */
+	struct arr *tra_arrays;		/* Linked list of active arrays */
+	struct lck *tra_lock;		/* lock for transaction */
+	struct vec *tra_relation_locks;	/* locks for relations */
+	struct sbm *tra_commit_sub_trans;	/* commited sub-transactions */
+	struct sav *tra_save_point;	/* list of savepoints  */
+	struct sav *tra_save_free;	/* free savepoints */
+	SLONG tra_save_point_number;	/* next save point number to use */
+	ULONG tra_flags;
+#ifdef PC_ENGINE
+	SLONG tra_range_id;			/* unique id of cache range within transaction */
+#endif
+	struct dfw *tra_deferred_work;	/* work deferred to commit time */
+	struct rsc *tra_resources;	/* resource existence list */
+	UCHAR tra_use_count;		/* use count for safe AST delivery */
+	UCHAR tra_transactions[1];
+} *TRA;
+
+#define TRA_system		1L		/* system transaction */
+#define TRA_update		2L		/* update is permitted */
+#define TRA_prepared		4L	/* transaction is in limbo */
+#define TRA_reconnected		8L	/* reconnect in progress */
+#define TRA_reserving		16L	/* relations explicityly locked */
+#define TRA_degree3		32L		/* serializeable transaction */
+#define TRA_committing		64L	/* commit in progress */
+#define TRA_write		128L	/* transaction has written */
+#define TRA_readonly		256L	/* transaction is readonly */
+#define TRA_nowait		512L	/* don't wait on relations, give up */
+#define TRA_prepare2		1024L	/* transaction has updated RDB$TRANSACTIONS */
+#define TRA_ignore_limbo	2048L	/* ignore transactions in limbo */
+#define TRA_invalidated 	4096L	/* transaction invalidated by failed write */
+#define TRA_deferred_meta 	8192L	/* deferred meta work posted */
+#define TRA_add_log		16384L	/* write ahead log file was added */
+#define TRA_delete_log		32768L	/* write ahead log file was deleted */
+#define TRA_read_committed	65536L	/* can see latest committed records */
+#define TRA_autocommit		131072L	/* autocommits all updates */
+#define TRA_perform_autocommit	262144L	/* indicates autocommit is necessary */
+#define TRA_rec_version		524288L	/* don't wait for uncommitted versions */
+#define TRA_restart_requests	1048576L	/* restart all requests in attachment */
+#define TRA_no_auto_undo	2097152L	/* don't start a savepoint in TRA_start */
+#define TRA_sweep_at_startup    4194304L	/* sweep done at startup */
+#define TRA_precommitted	8388608L	/* transaction committed at startup */
+
+#define TRA_MASK		3
+#define TRA_BITS_PER_TRANS	2
+#define TRA_TRANS_PER_BYTE	4
+#define TRA_SHIFT		2
+
+#define TRANS_SHIFT(number)	(((number) & TRA_MASK) << 1)
+#define TRANS_OFFSET(number)	((number) >> TRA_SHIFT)
+
+/* Transaction cleanup. If a database is never quiescent, look
+   for "dead" active transactions every so often at transaction
+   startup */
+
+#define TRA_ACTIVE_CLEANUP	100
+
+/* Transaction states.  The first four are states found
+   in the transaction inventory page; the last two are
+   returned internally */
+
+#define tra_active	    0		/* Transaction is active */
+#define tra_limbo	    1
+#define tra_dead	    2
+#define tra_committed	    3
+#define tra_us		    4		/* Transaction is us */
+#define tra_precommitted    5	/* Transaction is precommitted */
+
+/* The highest transaction number possible.  This is 0x7fffffff if SLONG is 32 bits. */
+#define MAX_TRA_NUMBER		 (~(1L << (BITS_PER_LONG - 1)))
+/* Savepoint block */
+
+typedef struct sav {
+	struct blk sav_header;
+	struct vct *sav_verb_actions;	/* verb action list */
+	struct vct *sav_verb_free;	/* free verb action block */
+	USHORT sav_verb_count;		/* Active verb count */
+	SLONG sav_number;			/* save point number */
+	struct sav *sav_next;
+	USHORT sav_flags;
+} *SAV;
+
+/* Savepoint block flags. */
+
+#define SAV_trans_level		1	/* savepoint was started by TRA_start */
+#define SAV_event_post		2	/* event posted in the save point */
+
+/* Deferred work blocks are used by the meta data handler to keep track
+   of work deferred to commit time.  This are usually used to perform
+   meta data updates */
+
+ENUM dfw_t {
+	dfw_null,
+		dfw_create_relation,
+		dfw_delete_relation,
+		dfw_update_format,
+		dfw_create_index,
+		dfw_delete_index,
+		dfw_compute_security,
+		dfw_add_file,
+		dfw_add_shadow,
+		dfw_delete_shadow,
+		dfw_modify_file,
+		dfw_erase_file,
+		dfw_delete_field,
+		dfw_delete_global,
+		dfw_delete_rfr,
+		dfw_post_event,
+		dfw_create_trigger,
+		dfw_delete_trigger,
+		dfw_modify_trigger,
+		dfw_load_triggers,
+		dfw_grant,
+		dfw_revoke,
+		dfw_scan_relation,
+		dfw_create_expression_index,
+		dfw_delete_expression_index,
+		dfw_delete_log,
+		dfw_create_log,
+		dfw_create_procedure,
+		dfw_modify_procedure,
+		dfw_delete_procedure,
+		dfw_delete_prm, dfw_delete_exception, dfw_unlink_file};
+
+typedef struct dfw {
+	struct blk dfw_header;
+	ENUM dfw_t dfw_type;		/* type of work deferred */
+	struct dfw *dfw_next;		/* next block in transaction */
+	struct lck *dfw_lock;		/* relation creation lock */
+	SLONG dfw_sav_number;		/* save point number */
+	USHORT dfw_name_length;		/* length of object name */
+	USHORT dfw_id;				/* object id, if appropriate */
+	USHORT dfw_count;			/* count of block posts */
+	SCHAR dfw_name[2];			/* name of object */
+} *DFW;
+
+/* Verb actions */
+
+typedef struct vct {
+	struct blk vct_header;
+	struct vct *vct_next;		/* Next action within verb */
+	struct rel *vct_relation;	/* Relation involved */
+	struct sbm *vct_records;	/* Record involved */
+	struct sbm *vct_undo;		/* Record involved that have to be replaced */
+	struct lls *vct_data;		/* Data for undo records */
+} *VCT;
+
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_TRA_H */
diff --git a/src/jrd/tra_proto.h b/src/jrd/tra_proto.h
new file mode 100644
index 0000000000..6f4736ed25
--- /dev/null
+++ b/src/jrd/tra_proto.h
@@ -0,0 +1,57 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		tra_proto.h
+ *	DESCRIPTION:	Prototype header file for tra.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_TRA_PROTO_H_
+#define _JRD_TRA_PROTO_H_
+
+#include "../jrd/req.h"
+
+extern BOOLEAN TRA_active_transactions(TDBB, struct dbb *);
+extern void TRA_cleanup(TDBB);
+extern void TRA_commit(TDBB, struct tra *, USHORT);
+extern void TRA_extend_tip(TDBB, ULONG, struct win *);
+extern int TRA_fetch_state(TDBB, SLONG);
+extern void TRA_get_inventory(TDBB, UCHAR *, ULONG, ULONG);
+extern int TRA_get_state(TDBB, SLONG);
+#ifdef SUPERSERVER_V2
+extern void TRA_header_write(TDBB, struct dbb *, SLONG);
+#endif
+extern void TRA_init(TDBB);
+extern void TRA_invalidate(struct dbb *, ULONG);
+extern void TRA_link_transaction(TDBB, struct tra *);
+extern void TRA_post_resources(TDBB, struct tra *, struct rsc *);
+extern BOOLEAN TRA_precommited(TDBB, SLONG, SLONG);
+extern void TRA_prepare(TDBB, struct tra *, USHORT, UCHAR *);
+extern struct tra *TRA_reconnect(TDBB, UCHAR *, USHORT);
+extern void TRA_release_transaction(TDBB, struct tra *);
+extern void TRA_rollback(TDBB, struct tra *, USHORT);
+extern void TRA_set_state(TDBB, struct tra *, SLONG, SSHORT);
+extern void TRA_shutdown_attachment(TDBB, struct att *);
+extern int TRA_snapshot_state(TDBB, struct tra *, SLONG);
+extern struct tra *TRA_start(TDBB, int, SCHAR *);
+extern int TRA_state(UCHAR *, ULONG, ULONG);
+extern int TRA_sweep(TDBB, struct tra *);
+extern struct lck *TRA_transaction_lock(TDBB, struct blk *);
+extern int TRA_wait(TDBB, struct tra *, SLONG, USHORT);
+
+#endif /* _JRD_TRA_PROTO_H_ */
diff --git a/src/jrd/trig.h b/src/jrd/trig.h
new file mode 100644
index 0000000000..caf3ec0823
--- /dev/null
+++ b/src/jrd/trig.h
@@ -0,0 +1,2208 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		trig.h
+ *	DESCRIPTION:	System-defined triggers
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef _JRD_TRIG_H_
+#define _JRD_TRIG_H_
+
+/* This file contains the trigger blr for the system-defined triggers
+   on system relations.  The GDEF source for these triggers is in
+   GRANT.GDL in the JRD component.  When modifying a system trigger,
+   check out GRANT.GDL, modify the trigger source to generate the
+   proper blr, replace the blr in TRIG.H, and check both files back in. */
+
+/* NOTE:
+   The blr in trigger 1 has been manually changed to add a substring
+   operation to the four concatenations of SQL$ and the relation name.
+   This blr cannot be generate by gdef.  The modified blr is:
+
+       blr_substring,
+       blr_concatenate, 
+          blr_literal, blr_text, 4,0, 'S','Q','L','$',
+          blr_field, 5, 17, 'R','D','B','$','R','E','L','A','T','I','O','N','_','N','A','M','E', 
+       blr_literal, blr_long, 0, 0,0,0,0,
+       blr_literal, blr_long, 0, 31,0,0,0,
+*/
+
+
+/* trigger definition structure */
+
+typedef struct trg
+{
+	CONST SCHAR*	trg_name;
+	UCHAR			trg_relation;
+	UCHAR			trg_type;
+	USHORT			trg_length;
+	CONST UCHAR*	trg_blr;
+	USHORT			trg_flags;
+	UCHAR			trg_ods_version;
+} TRG;
+
+/* trigger message structure */
+
+typedef struct trigger_msg
+{
+	CONST SCHAR*	trigmsg_name;
+	USHORT			trigmsg_number;
+	CONST SCHAR*	trigmsg_text;
+	UCHAR			trg_ods_version;
+} TRIGMSG;
+
+/* generator definition structure */
+
+typedef struct gen
+{
+	CONST SCHAR*	gen_name;
+	USHORT			gen_id;
+} GEN;
+
+/* generators needed by the system triggers */
+
+static CONST GEN generators[] =
+{
+	"RDB$SECURITY_CLASS", 0,
+	"SQL$DEFAULT", 0,
+	"RDB$PROCEDURES", 0,
+	"RDB$EXCEPTIONS", 0,
+	"RDB$CONSTRAINT_NAME", 0,
+	"RDB$FIELD_NAME", 0,
+	"RDB$INDEX_NAME", 0,
+	"RDB$TRIGGER_NAME", 0,
+	0, 0
+};
+
+
+/* here is trigger 1, along with its messages */
+
+/******
+static CONST TEXT trigger_1_msg_0 [] = "could not find relation/procedure for GRANT";
+static CONST TEXT trigger_1_msg_1 [] = "could not find field for GRANT";
+static CONST TEXT trigger_1_msg_2 [] = "user does not have GRANT privileges for operation";
+static CONST TEXT trigger_1_msg_3 [] = "relation/procedure has non-SQL security class defined";
+static CONST TEXT trigger_1_msg_4 [] = "field has non-SQL security class defined";
+static CONST TEXT trigger_1_msg_5 [] = "user does not have GRANT privileges on base table/view for operation";
+******/
+
+static CONST UCHAR FAR_VARIABLE trigger1[] =
+{
+/* NOTE:
+   The blr in trigger 1 has been manually changed to add a substring
+   operation to the four concatenations of SQL$ and the relation name.
+   This avoids the generation of security class names that are longer
+   than 32 characters.
+   This blr cannot be generate by gdef.  The modified blr is:
+
+       blr_substring,
+       blr_concatenate, 
+          blr_literal, blr_text, 4,0, 'S','Q','L','$',
+          blr_field, 5, 17, 'R','D','B','$','R','E','L','A','T','I','O','N','_','N','A','M','E', 
+       blr_literal, blr_long, 0, 0,0,0,0,
+       blr_literal, blr_long, 0, 31,0,0,0,
+*/
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_eql,
+	blr_field, 1, 15, 'R', 'D', 'B', '$', 'O', 'B', 'J', 'E', 'C', 'T', '_',
+		'T', 'Y', 'P', 'E',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_begin,
+	blr_if,
+	blr_not,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 13, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', 'S', 3,
+	blr_boolean,
+	blr_eql,
+	blr_field, 3, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_leave, 0,
+	blr_end,
+	blr_if,
+	blr_not,
+	blr_missing,
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_if,
+	blr_not,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'F', 'I', 'E', 'L', 'D', 'S', 4,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 4, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_eql,
+	blr_field, 4, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_leave, 1,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_if,
+	blr_and,
+	blr_eql,
+	blr_field, 1, 15, 'R', 'D', 'B', '$', 'O', 'B', 'J', 'E', 'C', 'T', '_',
+		'T', 'Y', 'P', 'E',
+	blr_literal, blr_long, 0, 5, 0, 0, 0,
+	blr_not,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 14, 'R', 'D', 'B', '$', 'P', 'R', 'O', 'C', 'E', 'D', 'U',
+		'R', 'E', 'S', 5,
+	blr_boolean,
+	blr_eql,
+	blr_field, 5, 18, 'R', 'D', 'B', '$', 'P', 'R', 'O', 'C', 'E', 'D', 'U',
+		'R', 'E', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_leave, 0,
+	blr_end,
+	blr_if,
+	blr_or,
+	blr_eql,
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_or,
+	blr_eql,
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 3, 0, 0, 0,
+	blr_or,
+	blr_eql,
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 4, 0, 0, 0,
+	blr_or,
+	blr_eql,
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 6, 0, 0, 0,
+	blr_or,
+	blr_eql,
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 7, 0, 0, 0,
+	blr_or,
+	blr_eql,
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 8, 0, 0, 0,
+	blr_or,
+	blr_eql,
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 9, 0, 0, 0,
+	blr_or,
+	blr_eql,
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 10, 0, 0, 0,
+	blr_or,
+	blr_eql,
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 11, 0, 0, 0,
+	blr_eql,
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 12, 0, 0, 0,
+	blr_assignment,
+	blr_upcase,
+	blr_field, 1, 8, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R',
+	blr_field, 1, 8, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R',
+	blr_end,
+	blr_if,
+	blr_missing,
+	blr_field, 1, 11, 'R', 'D', 'B', '$', 'G', 'R', 'A', 'N', 'T', 'O', 'R',
+	blr_assignment,
+	blr_upcase,
+	blr_user_name,
+	blr_field, 1, 11, 'R', 'D', 'B', '$', 'G', 'R', 'A', 'N', 'T', 'O', 'R',
+	blr_end,
+	blr_if,
+	blr_eql,
+	blr_field, 1, 15, 'R', 'D', 'B', '$', 'O', 'B', 'J', 'E', 'C', 'T', '_',
+		'T', 'Y', 'P', 'E',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_begin,
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 13, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', 'S', 6,
+	blr_boolean,
+	blr_eql,
+	blr_field, 6, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_if,
+	blr_or,
+	blr_and,
+	blr_eql,
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_upcase,
+	blr_user_name,
+	blr_and,
+	blr_eql,
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 1, 11, 'R', 'D', 'B', '$', 'G', 'R', 'A', 'N', 'T', 'O', 'R',
+	blr_eql,
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 1, 8, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R',
+	blr_eql,
+	blr_upcase,
+	blr_user_name,
+	blr_literal, blr_text, 6, 0, 'S', 'Y', 'S', 'D', 'B', 'A',
+	blr_begin,
+	blr_end,
+	blr_if,
+	blr_neq,
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_upcase,
+	blr_user_name,
+	blr_begin,
+	blr_if,
+	blr_not,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'P', 'R',
+		'I', 'V', 'I', 'L', 'E', 'G', 'E', 'S', 7,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 7, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 7, 15, 'R', 'D', 'B', '$', 'O', 'B', 'J', 'E', 'C', 'T', '_',
+		'T', 'Y', 'P', 'E',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_and,
+	blr_eql,
+	blr_field, 7, 13, 'R', 'D', 'B', '$', 'P', 'R', 'I', 'V', 'I', 'L', 'E',
+		'G', 'E',
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'P', 'R', 'I', 'V', 'I', 'L', 'E',
+		'G', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 7, 8, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R',
+	blr_field, 1, 11, 'R', 'D', 'B', '$', 'G', 'R', 'A', 'N', 'T', 'O', 'R',
+	blr_and,
+	blr_eql,
+	blr_field, 7, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 8, 0, 0, 0,
+	blr_and,
+	blr_neq,
+	blr_field, 7, 16, 'R', 'D', 'B', '$', 'G', 'R', 'A', 'N', 'T', '_', 'O',
+		'P', 'T', 'I', 'O', 'N',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_or,
+	blr_missing,
+	blr_field, 7, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_eql,
+	blr_field, 7, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_leave, 2,
+	blr_end,
+	blr_end,
+	blr_if,
+	blr_not,
+	blr_missing,
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_begin,
+	blr_for,
+	blr_rse, 3,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'F', 'I', 'E', 'L', 'D', 'S', 8,
+	blr_relation, 18, 'R', 'D', 'B', '$', 'V', 'I', 'E', 'W', '_', 'R', 'E',
+		'L', 'A', 'T', 'I', 'O', 'N', 'S', 9,
+	blr_relation, 13, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', 'S', 10,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 8, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 8, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_not,
+	blr_missing,
+	blr_field, 8, 14, 'R', 'D', 'B', '$', 'B', 'A', 'S', 'E', '_', 'F', 'I',
+		'E', 'L', 'D',
+	blr_and,
+	blr_eql,
+	blr_field, 9, 13, 'R', 'D', 'B', '$', 'V', 'I', 'E', 'W', '_', 'N', 'A',
+		'M', 'E',
+	blr_field, 8, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 9, 16, 'R', 'D', 'B', '$', 'V', 'I', 'E', 'W', '_', 'C', 'O',
+		'N', 'T', 'E', 'X', 'T',
+	blr_field, 8, 16, 'R', 'D', 'B', '$', 'V', 'I', 'E', 'W', '_', 'C', 'O',
+		'N', 'T', 'E', 'X', 'T',
+	blr_eql,
+	blr_field, 9, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 10, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_if,
+	blr_and,
+	blr_neq,
+	blr_field, 10, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_neq,
+	blr_upcase,
+	blr_user_name,
+	blr_literal, blr_text, 6, 0, 'S', 'Y', 'S', 'D', 'B', 'A',
+	blr_begin,
+	blr_if,
+	blr_not,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'P', 'R',
+		'I', 'V', 'I', 'L', 'E', 'G', 'E', 'S', 11,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 11, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 10, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 11, 15, 'R', 'D', 'B', '$', 'O', 'B', 'J', 'E', 'C', 'T', '_',
+		'T', 'Y', 'P', 'E',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_and,
+	blr_eql,
+	blr_field, 11, 13, 'R', 'D', 'B', '$', 'P', 'R', 'I', 'V', 'I', 'L', 'E',
+		'G', 'E',
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'P', 'R', 'I', 'V', 'I', 'L', 'E',
+		'G', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 11, 8, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R',
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 11, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 8, 0, 0, 0,
+	blr_and,
+	blr_neq,
+	blr_field, 11, 16, 'R', 'D', 'B', '$', 'G', 'R', 'A', 'N', 'T', '_', 'O',
+		'P', 'T', 'I', 'O', 'N',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_or,
+	blr_missing,
+	blr_field, 11, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_eql,
+	blr_field, 11, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 8, 14, 'R', 'D', 'B', '$', 'B', 'A', 'S', 'E', '_', 'F', 'I',
+		'E', 'L', 'D',
+	blr_end,
+	blr_leave, 5,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_begin,
+	blr_for,
+	blr_rse, 2,
+	blr_relation, 18, 'R', 'D', 'B', '$', 'V', 'I', 'E', 'W', '_', 'R', 'E',
+		'L', 'A', 'T', 'I', 'O', 'N', 'S', 12,
+	blr_relation, 13, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', 'S', 13,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 12, 13, 'R', 'D', 'B', '$', 'V', 'I', 'E', 'W', '_', 'N', 'A',
+		'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_eql,
+	blr_field, 12, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 13, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_if,
+	blr_and,
+	blr_neq,
+	blr_field, 13, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_neq,
+	blr_upcase,
+	blr_user_name,
+	blr_literal, blr_text, 6, 0, 'S', 'Y', 'S', 'D', 'B', 'A',
+	blr_begin,
+	blr_if,
+	blr_not,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'P', 'R',
+		'I', 'V', 'I', 'L', 'E', 'G', 'E', 'S', 14,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 14, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 13, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 14, 15, 'R', 'D', 'B', '$', 'O', 'B', 'J', 'E', 'C', 'T', '_',
+		'T', 'Y', 'P', 'E',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_and,
+	blr_eql,
+	blr_field, 14, 13, 'R', 'D', 'B', '$', 'P', 'R', 'I', 'V', 'I', 'L', 'E',
+		'G', 'E',
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'P', 'R', 'I', 'V', 'I', 'L', 'E',
+		'G', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 14, 8, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R',
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 14, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 8, 0, 0, 0,
+	blr_and,
+	blr_neq,
+	blr_field, 14, 16, 'R', 'D', 'B', '$', 'G', 'R', 'A', 'N', 'T', '_', 'O',
+		'P', 'T', 'I', 'O', 'N',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_missing,
+	blr_field, 14, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_leave, 5,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_if,
+	blr_missing,
+	blr_field, 6, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_modify, 6, 15,
+	blr_begin,
+	blr_assignment,
+	blr_substring,
+	blr_concatenate,
+	blr_literal, blr_text, 4, 0, 'S', 'Q', 'L', '$',
+	blr_field, 6, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_literal, blr_long, 0, 31, 0, 0, 0,
+	blr_field, 15, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_end,
+	blr_if,
+	blr_neq,
+	blr_field, 6, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_substring,
+	blr_concatenate,
+	blr_literal, blr_text, 4, 0, 'S', 'Q', 'L', '$',
+	blr_field, 6, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_literal, blr_long, 0, 31, 0, 0, 0,
+	blr_leave, 3,
+	blr_end,
+	blr_end,
+	blr_if,
+	blr_not,
+	blr_missing,
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'F', 'I', 'E', 'L', 'D', 'S', 16,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 16, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_eql,
+	blr_field, 16, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_if,
+	blr_missing,
+	blr_field, 16, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_modify, 16, 17,
+	blr_begin,
+	blr_assignment,
+	blr_concatenate,
+	blr_literal, blr_text, 9, 0, 'S', 'Q', 'L', '$', 'G', 'R', 'A', 'N', 'T',
+	blr_gen_id, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_literal, blr_long, 0, 1, 0, 0, 0,
+	blr_field, 17, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_end,
+	blr_if,
+	blr_not,
+	blr_starting,
+	blr_field, 16, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_literal, blr_text, 9, 0, 'S', 'Q', 'L', '$', 'G', 'R', 'A', 'N', 'T',
+	blr_leave, 4,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_if,
+	blr_eql,
+	blr_field, 1, 15, 'R', 'D', 'B', '$', 'O', 'B', 'J', 'E', 'C', 'T', '_',
+		'T', 'Y', 'P', 'E',
+	blr_literal, blr_long, 0, 5, 0, 0, 0,
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 14, 'R', 'D', 'B', '$', 'P', 'R', 'O', 'C', 'E', 'D', 'U',
+		'R', 'E', 'S', 18,
+	blr_boolean,
+	blr_eql,
+	blr_field, 18, 18, 'R', 'D', 'B', '$', 'P', 'R', 'O', 'C', 'E', 'D', 'U',
+		'R', 'E', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_if,
+	blr_and,
+	blr_neq,
+	blr_field, 18, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_upcase,
+	blr_user_name,
+	blr_neq,
+	blr_upcase,
+	blr_user_name,
+	blr_literal, blr_text, 6, 0, 'S', 'Y', 'S', 'D', 'B', 'A',
+	blr_if,
+	blr_not,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'P', 'R',
+		'I', 'V', 'I', 'L', 'E', 'G', 'E', 'S', 19,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 19, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 19, 15, 'R', 'D', 'B', '$', 'O', 'B', 'J', 'E', 'C', 'T', '_',
+		'T', 'Y', 'P', 'E',
+	blr_literal, blr_long, 0, 5, 0, 0, 0,
+	blr_and,
+	blr_eql,
+	blr_field, 19, 13, 'R', 'D', 'B', '$', 'P', 'R', 'I', 'V', 'I', 'L', 'E',
+		'G', 'E',
+	blr_field, 1, 13, 'R', 'D', 'B', '$', 'P', 'R', 'I', 'V', 'I', 'L', 'E',
+		'G', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 19, 8, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R',
+	blr_field, 1, 11, 'R', 'D', 'B', '$', 'G', 'R', 'A', 'N', 'T', 'O', 'R',
+	blr_and,
+	blr_eql,
+	blr_field, 19, 13, 'R', 'D', 'B', '$', 'U', 'S', 'E', 'R', '_', 'T', 'Y',
+		'P', 'E',
+	blr_literal, blr_long, 0, 8, 0, 0, 0,
+	blr_and,
+	blr_neq,
+	blr_field, 19, 16, 'R', 'D', 'B', '$', 'G', 'R', 'A', 'N', 'T', '_', 'O',
+		'P', 'T', 'I', 'O', 'N',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_or,
+	blr_missing,
+	blr_field, 19, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_eql,
+	blr_field, 19, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_leave, 2,
+	blr_end,
+	blr_end,
+	blr_if,
+	blr_missing,
+	blr_field, 18, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_modify, 18, 20,
+	blr_begin,
+	blr_assignment,
+	blr_substring,
+	blr_concatenate,
+	blr_literal, blr_text, 4, 0, 'S', 'Q', 'L', '$',
+	blr_field, 18, 18, 'R', 'D', 'B', '$', 'P', 'R', 'O', 'C', 'E', 'D', 'U',
+		'R', 'E', '_', 'N', 'A', 'M', 'E',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_literal, blr_long, 0, 31, 0, 0, 0,
+	blr_field, 20, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_end,
+	blr_if,
+	blr_neq,
+	blr_field, 18, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_substring,
+	blr_concatenate,
+	blr_literal, blr_text, 4, 0, 'S', 'Q', 'L', '$',
+	blr_field, 18, 18, 'R', 'D', 'B', '$', 'P', 'R', 'O', 'C', 'E', 'D', 'U',
+		'R', 'E', '_', 'N', 'A', 'M', 'E',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_literal, blr_long, 0, 31, 0, 0, 0,
+	blr_leave, 3,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_eoc
+};
+
+
+
+static CONST UCHAR FAR_VARIABLE trigger2[] = {
+	blr_version5,
+	blr_if,
+	blr_not,
+	blr_missing,
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'F', 'I', 'E', 'L', 'D', 'S', 3,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 3, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_eql,
+	blr_field, 3, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_if,
+	blr_starting,
+	blr_field, 3, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_literal, blr_text, 9, 0, 'S', 'Q', 'L', '$', 'G', 'R', 'A', 'N', 'T',
+	blr_begin,
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 20, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S', 'E', 'S', 4,
+	blr_boolean,
+	blr_eql,
+	blr_field, 4, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_field, 3, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_end,
+	blr_begin,
+	blr_erase, 4,
+	blr_end,
+	blr_modify, 3, 5,
+	blr_begin,
+	blr_assignment,
+	blr_null,
+	blr_field, 5, 18, 'R', 'D', 'B', '$', 'S', 'E', 'C', 'U', 'R', 'I', 'T',
+		'Y', '_', 'C', 'L', 'A', 'S', 'S',
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_eoc,
+};
+
+
+
+/******
+static CONST TEXT trigger_3_msg_0 [] = "cannot modify an existing user privilege";
+******/
+
+static CONST UCHAR trigger3[] = {
+	blr_version5,
+	blr_leave, 0,
+	blr_eoc
+};
+
+
+/******
+static CONST TEXT trigger_4_msg_0 [] = "cannot modify or erase a system trigger";
+******/
+
+static CONST UCHAR trigger4[] = {
+	blr_version5,
+	blr_if,
+	blr_containing,
+	blr_field, 0, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_literal, blr_text, 4, 0, 'R', 'D', 'B', '$',
+	blr_leave, 0,
+	blr_end,
+	blr_eoc
+};
+
+
+static CONST UCHAR trigger5[] = {
+	blr_version5,
+	blr_if,
+	blr_missing,
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_assignment,
+	blr_upcase,
+	blr_user_name,
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_eoc,
+};
+
+
+/******
+static CONST TEXT trigger_6_msg_0 [] = "only the owner of a relation may reassign ownership";
+******/
+
+static CONST UCHAR trigger6[] = {
+	blr_version5,
+	blr_if,
+	blr_and,
+	blr_neq,
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_neq,
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_upcase,
+	blr_user_name,
+	blr_leave, 0,
+	blr_end,
+	blr_eoc,
+};
+
+
+static CONST UCHAR trigger7[] = {
+	blr_version5,
+	blr_assignment,
+	blr_gen_id, 14, 'R', 'D', 'B', '$', 'G', 'E', 'N', 'E', 'R', 'A', 'T',
+		'O', 'R', 'S',
+	blr_literal, blr_long, 0, 1, 0, 0, 0,
+	blr_field, 1, 16, 'R', 'D', 'B', '$', 'G', 'E', 'N', 'E', 'R', 'A', 'T',
+		'O', 'R', '_', 'I', 'D',
+	blr_eoc,
+};
+
+
+/* define trigger add_constraint for rdb$relation_constraints  */
+
+/******
+static CONST TEXT trigger_26_msg_0 [] = "Cannot define constraints on VIEWS";
+static CONST TEXT trigger_26_msg_1 [] = "internal gds software consistency check (Invalid RDB$CONSTRAINT_TYPE)";
+static CONST TEXT trigger_26_msg_2 [] = "Attempt to define a second primary key for the same relation";
+******/
+
+static CONST UCHAR FAR_VARIABLE trigger26[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 13, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', 'S', 3,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 3, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_not,
+	blr_missing,
+	blr_field, 3, 15, 'R', 'D', 'B', '$', 'V', 'I', 'E', 'W', '_', 'S', 'O',
+		'U', 'R', 'C', 'E',
+	blr_end,
+	blr_leave, 1,
+	blr_end,
+	blr_if,
+	blr_not,
+	blr_or,
+	blr_eql,
+	blr_field, 1, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 6, 0, 'U', 'N', 'I', 'Q', 'U', 'E',
+	blr_or,
+	blr_eql,
+	blr_field, 1, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'P', 'R', 'I', 'M', 'A', 'R', 'Y', 32, 'K',
+		'E', 'Y',
+	blr_or,
+	blr_eql,
+	blr_field, 1, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'F', 'O', 'R', 'E', 'I', 'G', 'N', 32, 'K',
+		'E', 'Y',
+	blr_or,
+	blr_eql,
+	blr_field, 1, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 8, 0, 'N', 'O', 'T', 32, 'N', 'U', 'L', 'L',
+	blr_eql,
+	blr_field, 1, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 5, 0, 'C', 'H', 'E', 'C', 'K',
+	blr_leave, 2,
+	blr_end,
+	blr_if,
+	blr_eql,
+	blr_field, 1, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'P', 'R', 'I', 'M', 'A', 'R', 'Y', 32, 'K',
+		'E', 'Y',
+	blr_begin,
+	blr_if,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 4,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'P', 'R', 'I', 'M', 'A', 'R', 'Y', 32, 'K',
+		'E', 'Y',
+	blr_eql,
+	blr_field, 4, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_leave, 3,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_eoc,
+};
+
+
+
+/* define trigger update_constraint for rdb$relation_constraints  */
+
+/******
+static CONST TEXT trigger_25_msg_0 [] = "Can't update constraints (RDB$RELATION_CONSTRAINTS).";
+******/
+
+static CONST UCHAR trigger25[] = {
+	blr_version5,
+	blr_begin,
+	blr_leave, 1,
+	blr_end,
+	blr_eoc,
+};
+
+
+
+/* define trigger pre_delete_constraint for rdb$relation_constraints */
+
+/******
+static CONST TEXT trigger_10_msg_0 [] = "Cannot delete PRIMARY KEY being used in FOREIGN KEY definition.";
+static CONST TEXT trigger_10_msg_1 [] = "Cannot drop NOT NULL constraint for fields in PRIMARY/UNIQUE constraints.";
+******/
+
+static CONST UCHAR FAR_VARIABLE trigger10[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_or,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'P', 'R', 'I', 'M', 'A', 'R', 'Y', 32, 'K',
+		'E', 'Y',
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 6, 0, 'U', 'N', 'I', 'Q', 'U', 'E',
+	blr_begin,
+	blr_if,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'R', 'E', 'F', '_', 'C', 'O', 'N',
+		'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 3,
+	blr_boolean,
+	blr_eql,
+	blr_field, 3, 17, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', '_', 'N',
+		'A', 'M', 'E', '_', 'U', 'Q',
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_leave, 1,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_if,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'F', 'O', 'R', 'E', 'I', 'G', 'N', 32, 'K',
+		'E', 'Y',
+	blr_begin,
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'R', 'E', 'F', '_', 'C', 'O', 'N',
+		'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 4,
+	blr_boolean,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_erase, 4,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_if,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 8, 0, 'N', 'O', 'T', 32, 'N', 'U', 'L', 'L',
+	blr_begin,
+	blr_for,
+	blr_rse, 4,
+	blr_relation, 21, 'R', 'D', 'B', '$', 'C', 'H', 'E', 'C', 'K', '_', 'C',
+		'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 5,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'F', 'I', 'E', 'L', 'D', 'S', 6,
+	blr_relation, 11, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'I', 'C', 'E', 'S',
+		7,
+	blr_relation, 18, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'S',
+		'E', 'G', 'M', 'E', 'N', 'T', 'S', 8,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 5, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 5, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 6, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 8, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 7, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_eql,
+	blr_field, 7, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 8, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_if,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 9,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 9, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 8, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_or,
+	blr_eql,
+	blr_field, 9, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 6, 0, 'U', 'N', 'I', 'Q', 'U', 'E',
+	blr_eql,
+	blr_field, 9, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'P', 'R', 'I', 'M', 'A', 'R', 'Y', 32, 'K',
+		'E', 'Y',
+	blr_end,
+	blr_leave, 2,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_eoc,
+};
+
+
+/* define trigger post_delete_constraint for rdb$relation_constraints   */
+
+static CONST UCHAR FAR_VARIABLE trigger11[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_or,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'F', 'O', 'R', 'E', 'I', 'G', 'N', 32, 'K',
+		'E', 'Y',
+	blr_or,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'P', 'R', 'I', 'M', 'A', 'R', 'Y', 32, 'K',
+		'E', 'Y',
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 6, 0, 'U', 'N', 'I', 'Q', 'U', 'E',
+	blr_begin,
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 11, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'I', 'C', 'E', 'S',
+		3,
+	blr_boolean,
+	blr_eql,
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 3, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_erase, 3,
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 18, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'S',
+		'E', 'G', 'M', 'E', 'N', 'T', 'S', 4,
+	blr_boolean,
+	blr_eql,
+	blr_field, 4, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 3, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_erase, 4,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_if,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 8, 0, 'N', 'O', 'T', 32, 'N', 'U', 'L', 'L',
+	blr_begin,
+	blr_for,
+	blr_rse, 2,
+	blr_relation, 21, 'R', 'D', 'B', '$', 'C', 'H', 'E', 'C', 'K', '_', 'C',
+		'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 5,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'F', 'I', 'E', 'L', 'D', 'S', 6,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 5, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 6, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_eql,
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 5, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_erase, 5,
+	blr_modify, 6, 7,
+	blr_begin,
+	blr_assignment,
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_field, 7, 13, 'R', 'D', 'B', '$', 'N', 'U', 'L', 'L', '_', 'F', 'L',
+		'A', 'G',
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_if,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 5, 0, 'C', 'H', 'E', 'C', 'K',
+	blr_begin,
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 21, 'R', 'D', 'B', '$', 'C', 'H', 'E', 'C', 'K', '_', 'C',
+		'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 8,
+	blr_boolean,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 8, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_erase, 8,
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 12, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'S', 9,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 9, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_field, 8, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_eql,
+	blr_field, 9, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_erase, 9,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_eoc
+};
+
+
+/* define trigger add_ref_constraint for rdb$ref_constraints  */
+
+/******
+static CONST TEXT trigger_12_msg_0 [] = "Name of Referential Constraint not defined in constraints relation.";
+static CONST TEXT trigger_12_msg_1 [] = "Non-existent Primary or Unique key specifed for Foreign Key.";
+******/
+
+static CONST UCHAR FAR_VARIABLE trigger12[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_not,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 3,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 3, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_eql,
+	blr_field, 3, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'F', 'O', 'R', 'E', 'I', 'G', 'N', 32, 'K',
+		'E', 'Y',
+	blr_end,
+	blr_leave, 1,
+	blr_end,
+	blr_if,
+	blr_not,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 4,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', '_', 'N',
+		'A', 'M', 'E', '_', 'U', 'Q',
+	blr_or,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'P', 'R', 'I', 'M', 'A', 'R', 'Y', 32, 'K',
+		'E', 'Y',
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 6, 0, 'U', 'N', 'I', 'Q', 'U', 'E',
+	blr_end,
+	blr_leave, 2,
+	blr_end,
+	blr_end,
+	blr_eoc,
+};
+
+
+/* define trigger update_ref_constraint for rdb$ref_constraints */
+
+/******
+static CONST TEXT trigger_13_msg_0 [] = "Can't update constraints (RDB$REF_CONSTRAINTS).";
+******/
+
+static CONST UCHAR trigger13[] = {
+	blr_version5,
+	blr_begin,
+	blr_leave, 1,
+	blr_end,
+	blr_eoc,
+};
+
+
+/* define trigger update_check_constraint for rdb$check_constraints */
+
+/******
+static CONST TEXT trigger_14_msg_0 [] = "Can't update constraints (RDB$CHECK_CONSTRAINTS).";
+******/
+
+static CONST UCHAR trigger14[] = {
+	blr_version5,
+	blr_begin,
+	blr_leave, 1,
+	blr_end,
+	blr_eoc,
+};
+
+
+/* define trigger pre_delete_check_constraint for rdb$check_constraints */
+
+/******
+static CONST TEXT trigger_15_msg_0 [] = "Can't delete CHECK constraint entry (RDB$CHECK_CONSTRAINTS)";
+******/
+
+static CONST UCHAR trigger15[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 3,
+	blr_boolean,
+	blr_eql,
+	blr_field, 3, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_leave, 1,
+	blr_end,
+	blr_end,
+	blr_eoc,
+
+};
+
+
+/* define trigger post_delete_check_constraint for rdb$check_constraints */
+
+static CONST UCHAR FAR_VARIABLE trigger16[] = {
+	blr_version5,
+	blr_begin,
+	blr_for,
+	blr_rse, 2,
+	blr_relation, 19, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'F', 'I', 'E', 'L', 'D', 'S', 3,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 4,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 3, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 4, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 8, 0, 'N', 'O', 'T', 32, 'N', 'U', 'L', 'L',
+	blr_eql,
+	blr_field, 3, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 0, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_modify, 3, 5,
+	blr_begin,
+	blr_assignment,
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_field, 5, 13, 'R', 'D', 'B', '$', 'N', 'U', 'L', 'L', '_', 'F', 'L',
+		'A', 'G',
+	blr_end,
+	blr_end,
+	blr_for,
+	blr_rse, 2,
+	blr_relation, 12, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'S', 6,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 7,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 7, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 7, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 5, 0, 'C', 'H', 'E', 'C', 'K',
+	blr_and,
+	blr_eql,
+	blr_field, 6, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 7, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_eql,
+	blr_field, 6, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_erase, 6,
+	blr_end,
+	blr_end,
+	blr_eoc
+};
+
+
+/* define trigger delete_constraint_segs for rdb$index_segments  */
+
+/******
+static CONST TEXT trigger_17_msg_0 [] = "Can't delete index segment used by an Integrity Constraint";
+******/
+
+static CONST UCHAR trigger17[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 3,
+	blr_boolean,
+	blr_eql,
+	blr_field, 3, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_leave, 1,
+	blr_end,
+	blr_end,
+	blr_eoc,
+};
+
+
+/* define trigger update_constraint_segs for rdb$index_segments  */
+
+/******
+static CONST TEXT trigger_18_msg_0 [] = "Can't update index segment used by an Integrity Constraint";
+******/
+
+static CONST UCHAR trigger18[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 3,
+	blr_boolean,
+	blr_eql,
+	blr_field, 3, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_leave, 1,
+	blr_end,
+	blr_end,
+	blr_eoc,
+};
+
+
+/* define trigger delete_constraint_idx for rdb$indices  */
+
+/******
+static CONST TEXT trigger_19_msg_0 [] = "Can't delete index used by an Integrity Constraint";
+******/
+
+static CONST UCHAR trigger19[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 3,
+	blr_boolean,
+	blr_eql,
+	blr_field, 3, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_leave, 1,
+	blr_end,
+	blr_end,
+	blr_eoc,
+};
+
+
+/* define trigger update_constraint_idx for rdb$indices  */
+
+/******
+static CONST TEXT trigger_20_msg_0 [] = "Can't modify index used by an Integrity Constraint";
+static CONST TEXT trigger_20_msg_1 [] = "Can't deactivate index used by an Integrity Constraint";
+static CONST TEXT trigger_20_msg_2 [] = "Can't deactivate a primary index";
+******/
+
+static CONST UCHAR FAR_VARIABLE trigger20[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 3,
+	blr_boolean,
+	blr_eql,
+	blr_field, 3, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_if,
+	blr_not,
+	blr_and,
+	blr_eql,
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 0, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 0, 12, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'I',
+		'D',
+	blr_field, 1, 12, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'I',
+		'D',
+	blr_and,
+	blr_eql,
+	blr_field, 0, 17, 'R', 'D', 'B', '$', 'S', 'E', 'G', 'M', 'E', 'N', 'T',
+		'_', 'C', 'O', 'U', 'N', 'T',
+	blr_field, 1, 17, 'R', 'D', 'B', '$', 'S', 'E', 'G', 'M', 'E', 'N', 'T',
+		'_', 'C', 'O', 'U', 'N', 'T',
+	blr_eql,
+	blr_field, 0, 15, 'R', 'D', 'B', '$', 'F', 'O', 'R', 'E', 'I', 'G', 'N',
+		'_', 'K', 'E', 'Y',
+	blr_field, 1, 15, 'R', 'D', 'B', '$', 'F', 'O', 'R', 'E', 'I', 'G', 'N',
+		'_', 'K', 'E', 'Y',
+	blr_leave, 1,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_for,
+	blr_rse, 3,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 4,
+	blr_relation, 11, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'I', 'C', 'E', 'S',
+		5,
+	blr_relation, 11, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'I', 'C', 'E', 'S',
+		6,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 4, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 5, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 6, 15, 'R', 'D', 'B', '$', 'F', 'O', 'R', 'E', 'I', 'G', 'N',
+		'_', 'K', 'E', 'Y',
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 1, 18, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'I',
+		'N', 'A', 'C', 'T', 'I', 'V', 'E',
+	blr_literal, blr_long, 0, 1, 0, 0, 0,
+	blr_or,
+	blr_eql,
+	blr_field, 0, 18, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'I',
+		'N', 'A', 'C', 'T', 'I', 'V', 'E',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_missing,
+	blr_field, 0, 18, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'I',
+		'N', 'A', 'C', 'T', 'I', 'V', 'E',
+	blr_end,
+	blr_begin,
+	blr_leave, 2,
+	blr_end,
+	blr_if,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 7,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 7, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_or,
+	blr_eql,
+	blr_field, 7, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'P', 'R', 'I', 'M', 'A', 'R', 'Y', 32, 'K',
+		'E', 'Y',
+	blr_eql,
+	blr_field, 7, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'F', 'O', 'R', 'E', 'I', 'G', 'N', 32, 'K',
+		'E', 'Y',
+	blr_end,
+	blr_begin,
+	blr_if,
+	blr_and,
+	blr_eql,
+	blr_field, 1, 18, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'I',
+		'N', 'A', 'C', 'T', 'I', 'V', 'E',
+	blr_literal, blr_long, 0, 1, 0, 0, 0,
+	blr_or,
+	blr_eql,
+	blr_field, 0, 18, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'I',
+		'N', 'A', 'C', 'T', 'I', 'V', 'E',
+	blr_literal, blr_long, 0, 0, 0, 0, 0,
+	blr_missing,
+	blr_field, 0, 18, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'I',
+		'N', 'A', 'C', 'T', 'I', 'V', 'E',
+	blr_leave, 3,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_eoc
+};
+
+
+/* define trigger delete_constraint_trigger for rdb$triggers  */
+
+/******
+static CONST TEXT trigger_21_msg_0 [] = "Can't delete trigger used by a CHECK Constraint";
+******/
+
+static CONST UCHAR trigger21[] = {
+	blr_version5,
+	blr_begin,
+	blr_for,
+	blr_rse, 2,
+	blr_relation, 21, 'R', 'D', 'B', '$', 'C', 'H', 'E', 'C', 'K', '_', 'C',
+		'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 3,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 4,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 3, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 3, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 5, 0, 'C', 'H', 'E', 'C', 'K',
+	blr_end,
+	blr_begin,
+	blr_leave, 1,
+	blr_end,
+	blr_end,
+	blr_eoc,
+};
+
+
+/* define trigger update_constraint_trigger for rdb$triggers  */
+
+/******
+static CONST TEXT trigger_22_msg_0 [] = "Can't update trigger used by a CHECK Constraint";
+******/
+
+static CONST UCHAR trigger22[] = {
+	blr_version5,
+	blr_begin,
+	blr_for,
+	blr_rse, 2,
+	blr_relation, 21, 'R', 'D', 'B', '$', 'C', 'H', 'E', 'C', 'K', '_', 'C',
+		'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 3,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 4,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 3, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 3, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 5, 0, 'C', 'H', 'E', 'C', 'K',
+	blr_end,
+	blr_begin,
+	blr_leave, 1,
+	blr_end,
+	blr_end,
+	blr_eoc,
+};
+
+
+/* define trigger pre_delete_field for rdb$relation_fields  */
+
+/******
+static CONST TEXT trigger_23_msg_0 [] = "Cannot delete field being used in an integrity constraint.";
+******/
+
+static CONST UCHAR FAR_VARIABLE trigger23[] = {
+	blr_version5,
+	blr_begin,
+	blr_for,
+	blr_rse, 3,
+	blr_relation, 11, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'I', 'C', 'E', 'S',
+		3,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 4,
+	blr_relation, 18, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'S',
+		'E', 'G', 'M', 'E', 'N', 'T', 'S', 5,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 3, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 3, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 5, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 4, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 5, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 5, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_or,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 6, 0, 'U', 'N', 'I', 'Q', 'U', 'E',
+	blr_or,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'F', 'O', 'R', 'E', 'I', 'G', 'N', 32, 'K',
+		'E', 'Y',
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'P', 'R', 'I', 'M', 'A', 'R', 'Y', 32, 'K',
+		'E', 'Y',
+	blr_end,
+	blr_begin,
+	blr_if,
+	blr_any,
+	blr_rse, 1,
+	blr_relation, 18, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'S',
+		'E', 'G', 'M', 'E', 'N', 'T', 'S', 6,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 5, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_neq,
+	blr_field, 6, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_leave, 1,
+	blr_erase, 4,
+	blr_end,
+	blr_end,
+	blr_eoc,
+};
+
+
+/* define trigger pre_modify_field for rdb$relation_fields  */
+
+/******
+static CONST TEXT trigger_24_msg_0 [] = "Cannot rename field being used in an integrity constraint.";
+******/
+
+static CONST UCHAR FAR_VARIABLE trigger24[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_neq,
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_for,
+	blr_rse, 3,
+	blr_relation, 11, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'I', 'C', 'E', 'S',
+		3,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 4,
+	blr_relation, 18, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'S',
+		'E', 'G', 'M', 'E', 'N', 'T', 'S', 5,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 3, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 3, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 5, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 4, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 5, 14, 'R', 'D', 'B', '$', 'I', 'N', 'D', 'E', 'X', '_', 'N',
+		'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 5, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_or,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 6, 0, 'U', 'N', 'I', 'Q', 'U', 'E',
+	blr_or,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'F', 'O', 'R', 'E', 'I', 'G', 'N', 32, 'K',
+		'E', 'Y',
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'P', 'R', 'I', 'M', 'A', 'R', 'Y', 32, 'K',
+		'E', 'Y',
+	blr_end,
+	blr_begin,
+	blr_leave, 1,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_eoc,
+};
+
+
+
+/* define trigger post_delete_field for rdb$relation_fields  */
+static CONST UCHAR trigger27[] = {
+	blr_version5,
+	blr_begin,
+	blr_for,
+	blr_rse, 2,
+	blr_relation, 21, 'R', 'D', 'B', '$', 'C', 'H', 'E', 'C', 'K', '_', 'C',
+		'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 3,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 4,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'F', 'I', 'E', 'L', 'D', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 3, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 3, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 0, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_field, 4, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 8, 0, 'N', 'O', 'T', 32, 'N', 'U', 'L', 'L',
+	blr_end,
+	blr_begin,
+	blr_erase, 4,
+	blr_erase, 3,
+	blr_end,
+	blr_end,
+	blr_eoc,
+};
+
+
+static CONST UCHAR trigger28[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_missing,
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_assignment,
+	blr_upcase,
+	blr_user_name,
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_end,
+	blr_assignment,
+	blr_gen_id, 14, 'R', 'D', 'B', '$', 'P', 'R', 'O', 'C', 'E', 'D', 'U',
+		'R', 'E', 'S',
+	blr_literal, blr_long, 0, 1, 0, 0, 0,
+	blr_field, 1, 16, 'R', 'D', 'B', '$', 'P', 'R', 'O', 'C', 'E', 'D', 'U',
+		'R', 'E', '_', 'I', 'D',
+	blr_end,
+	blr_eoc
+};
+
+
+static CONST UCHAR trigger29[] = {
+	blr_version5,
+	blr_if,
+	blr_and,
+	blr_neq,
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_field, 1, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_neq,
+	blr_field, 0, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_upcase,
+	blr_user_name,
+	blr_leave, 0,
+	blr_end,
+	blr_eoc
+};
+
+
+static CONST UCHAR trigger30[] = {
+	blr_version5,
+	blr_begin,
+	blr_assignment,
+	blr_gen_id, 14, 'R', 'D', 'B', '$', 'E', 'X', 'C', 'E', 'P', 'T', 'I',
+		'O', 'N', 'S',
+	blr_literal, blr_long, 0, 1, 0, 0, 0,
+	blr_field, 1, 20, 'R', 'D', 'B', '$', 'E', 'X', 'C', 'E', 'P', 'T', 'I',
+		'O', 'N', '_', 'N', 'U', 'M', 'B', 'E', 'R',
+	blr_end,
+	blr_eoc
+};
+
+
+/* new trigger to create ODS 8.1 (and to upgrade from ODS 8.0 to ODS 8.1 */
+static CONST UCHAR trigger31[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_and,
+	blr_not,
+	blr_missing,
+	blr_field, 1, 11, 'R', 'D', 'B', '$', 'G', 'R', 'A', 'N', 'T', 'O', 'R',
+	blr_and,
+	blr_neq,
+	blr_field, 1, 11, 'R', 'D', 'B', '$', 'G', 'R', 'A', 'N', 'T', 'O', 'R',
+	blr_upcase,
+	blr_user_name,
+	blr_neq,
+	blr_upcase,
+	blr_user_name,
+	blr_literal, blr_text, 6, 0, 'S', 'Y', 'S', 'D', 'B', 'A',
+	blr_begin,
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 13, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', 'S', 3,
+	blr_boolean,
+	blr_eql,
+	blr_field, 3, 17, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'N', 'A', 'M', 'E',
+	blr_literal, blr_text, 12, 0, 'R', 'D', 'B', '$', 'D', 'A', 'T', 'A', 'B',
+		'A', 'S', 'E',
+	blr_end,
+	blr_begin,
+	blr_if,
+	blr_or,
+	blr_missing,
+	blr_field, 3, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_neq,
+	blr_field, 3, 14, 'R', 'D', 'B', '$', 'O', 'W', 'N', 'E', 'R', '_', 'N',
+		'A', 'M', 'E',
+	blr_upcase,
+	blr_user_name,
+	blr_leave, 0,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_eoc
+};
+
+
+/* ODS 8.1 trigger  */
+static CONST UCHAR trigger34[] = {
+	blr_version5,
+	blr_begin,
+	blr_if,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'F', 'O', 'R', 'E', 'I', 'G', 'N', 32, 'K',
+		'E', 'Y',
+	blr_begin,
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 21, 'R', 'D', 'B', '$', 'C', 'H', 'E', 'C', 'K', '_', 'C',
+		'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 3,
+	blr_boolean,
+	blr_eql,
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 3, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_erase, 3,
+	blr_for,
+	blr_rse, 1,
+	blr_relation, 12, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'S', 4,
+	blr_boolean,
+	blr_eql,
+	blr_field, 4, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_field, 3, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_erase, 4,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_end,
+	blr_eoc
+};
+
+/* ODS 8.1 trigger  */
+static CONST UCHAR trigger35[] = {
+	blr_version5,
+	blr_begin,
+	blr_for,
+	blr_rse, 2,
+	blr_relation, 12, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'S', 3,
+	blr_relation, 24, 'R', 'D', 'B', '$', 'R', 'E', 'L', 'A', 'T', 'I', 'O',
+		'N', '_', 'C', 'O', 'N', 'S', 'T', 'R', 'A', 'I', 'N', 'T', 'S', 4,
+	blr_boolean,
+	blr_and,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'N', 'A', 'M', 'E',
+	blr_and,
+	blr_eql,
+	blr_field, 4, 19, 'R', 'D', 'B', '$', 'C', 'O', 'N', 'S', 'T', 'R', 'A',
+		'I', 'N', 'T', '_', 'T', 'Y', 'P', 'E',
+	blr_literal, blr_text, 11, 0, 'F', 'O', 'R', 'E', 'I', 'G', 'N', 32, 'K',
+		'E', 'Y',
+	blr_eql,
+	blr_field, 3, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_field, 0, 16, 'R', 'D', 'B', '$', 'T', 'R', 'I', 'G', 'G', 'E', 'R',
+		'_', 'N', 'A', 'M', 'E',
+	blr_end,
+	blr_begin,
+	blr_erase, 3,
+	blr_end,
+	blr_end,
+	blr_eoc
+};
+
+#endif /* _JRD_TRIG_H_ */
diff --git a/src/jrd/types.h b/src/jrd/types.h
new file mode 100644
index 0000000000..c86c412898
--- /dev/null
+++ b/src/jrd/types.h
@@ -0,0 +1,78 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		types.h
+ *	DESCRIPTION:	System type definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+TYPE("TEXT", blr_text, nam_f_type)
+	TYPE("SHORT", blr_short, nam_f_type)
+	TYPE("LONG", blr_long, nam_f_type)
+	TYPE("QUAD", blr_quad, nam_f_type)
+	TYPE("FLOAT", blr_float, nam_f_type)
+	TYPE("DOUBLE", blr_double, nam_f_type)
+	TYPE("TIMESTAMP", blr_timestamp, nam_f_type)
+	TYPE("VARYING", blr_varying, nam_f_type)
+	TYPE("BLOB", blr_blob, nam_f_type)
+	TYPE("CSTRING", blr_cstring, nam_f_type)
+	TYPE("BLOB_ID", blr_blob_id, nam_f_type)
+	TYPE("DATE", blr_sql_date, nam_f_type)
+	TYPE("TIME", blr_sql_time, nam_f_type)
+
+
+	TYPE("TEXT", 1, nam_f_sub_type)
+	TYPE("BLR", 2, nam_f_sub_type)
+	TYPE("ACL", 3, nam_f_sub_type)
+	TYPE("RANGES", 4, nam_f_sub_type)
+	TYPE("SUMMARY", 5, nam_f_sub_type)
+	TYPE("FORMAT", 6, nam_f_sub_type)
+	TYPE("TRANSACTION_DESCRIPTION", 7, nam_f_sub_type)
+	TYPE("EXTERNAL_FILE_DESCRIPTION", 8, nam_f_sub_type)
+
+	TYPE("VALUE", 0, nam_fun_type)
+	TYPE("BOOLEAN", 1, nam_fun_type)
+
+	TYPE("BY_VALUE", 0, nam_mechanism)
+	TYPE("BY_REFERENCE", 1, nam_mechanism)
+	TYPE("BY_VMS_DESCRIPTOR", 2, nam_mechanism)
+	TYPE("BY_ISC_DESCRIPTOR", 3, nam_mechanism)
+	TYPE("BY_SCALAR_ARRAY_DESCRIPTOR", 4, nam_mechanism)
+
+	TYPE("PRE_STORE", 1, nam_trg_type)
+	TYPE("POST_STORE", 2, nam_trg_type)
+	TYPE("PRE_MODIFY", 3, nam_trg_type)
+	TYPE("POST_MODIFY", 4, nam_trg_type)
+	TYPE("PRE_ERASE", 5, nam_trg_type)
+	TYPE("POST_ERASE", 6, nam_trg_type)
+
+	TYPE("RELATION", 0, nam_obj_type)
+	TYPE("VIEW", 1, nam_obj_type)
+	TYPE("TRIGGER", 2, nam_obj_type)
+	TYPE("COMPUTED_FIELD", 3, nam_obj_type)
+	TYPE("VALIDATION", 4, nam_obj_type)
+	TYPE("PROCEDURE", 5, nam_obj_type)
+	TYPE("EXPRESSION_INDEX", 6, nam_obj_type)
+	TYPE("EXCEPTION", 7, nam_obj_type)
+	TYPE("USER", 8, nam_obj_type)
+	TYPE("FIELD", 9, nam_obj_type)
+	TYPE("INDEX", 10, nam_obj_type)
+
+	TYPE("LIMBO", 1, nam_trans_state)
+	TYPE("COMMITTED", 2, nam_trans_state)
+	TYPE("ROLLED_BACK", 3, nam_trans_state)
diff --git a/src/jrd/unix.cpp b/src/jrd/unix.cpp
new file mode 100644
index 0000000000..d06019cbc2
--- /dev/null
+++ b/src/jrd/unix.cpp
@@ -0,0 +1,1153 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		unix.c
+ *	DESCRIPTION:	UNIX (BSD) specific physical IO
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef SHLIB_DEFS
+#define LOCAL_SHLIB_DEFS
+#endif
+
+#include "../jrd/ib_stdio.h"
+#include <fcntl.h>
+#include <errno.h>
+#include <sys/types.h>
+#include <pwd.h>
+#include <sys/file.h>
+#include <sys/stat.h>
+#include <string.h>
+
+#include "../jrd/common.h"
+#if !(defined SEEK_END && defined F_OK)
+#include <unistd.h>
+#endif
+
+#include "../jrd/jrd.h"
+#include "../jrd/pio.h"
+#include "../jrd/ods.h"
+#include "../jrd/lck.h"
+#include "../jrd/cch.h"
+#include "../jrd/codes.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/isc_i_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/thd_proto.h"
+
+/* SUPERSERVER uses a mutex to allow atomic seek/read(write) sequences.
+   SUPERSERVER_V2 uses "positioned" read (write) calls to avoid a seek
+   and allow multiple threads to overlap database I/O. 
+    17-Oct-1996  Enabled positioned I/O calls on SOLARIS Superserver. */
+
+#if (defined SUPERSERVER && (defined SOLARIS_MT || defined LINUX))
+#define PREAD_PWRITE
+#if !(defined SOLARIS_MT || defined LINUX)
+	/* pread() and pwrite() function calls are provided on SOLARIS.
+	   The aio_read(), aio_*() etc. calls are not implemented on
+	   the HP-UX systems. Once it is implemented, this #include could 
+	   be enabled only for HP-UX systems (POSIX). */
+#include <aio.h>
+#endif /* SOLARIS_MT */
+#endif /* SUPERSERVER && (SOLARIS_MT || LINUX) */
+
+
+extern "C" {
+
+
+#ifndef SUPERSERVER
+#undef THD_MUTEX_INIT
+#undef THD_MUTEX_LOCK
+#undef THD_MUTEX_UNLOCK
+#undef THD_MUTEX_DESTROY
+
+#define THD_MUTEX_INIT(mutx)
+#define THD_MUTEX_LOCK(mutx)
+#define THD_MUTEX_UNLOCK(mutx)
+#define THD_MUTEX_DESTROY(mutx)
+#endif
+
+#define MAXPATHLEN	1024
+#define IO_RETRY	20
+
+#ifdef O_SYNC
+#define SYNC		O_SYNC
+#endif
+
+#ifdef O_FSYNC
+#define SYNC		O_FSYNC
+#endif
+
+#ifdef O_DSYNC
+#undef SYNC
+#define SYNC		O_DSYNC
+#endif
+
+#ifndef SYNC
+#define SYNC		0
+#endif
+
+#ifndef O_BINARY
+#define O_BINARY	0
+#endif
+
+#ifndef EINTR
+#define EINTR		0
+#endif
+
+#ifdef SUPERSERVER
+#define MASK		0600
+#else
+#define MASK		0666
+#endif
+
+extern int errno;
+
+static void close_marker_file(TEXT *);
+static FIL seek_file(FIL, BDB, SLONG *, STATUS *);
+static FIL setup_file(DBB, TEXT *, USHORT, int);
+static BOOLEAN unix_error(TEXT *, FIL, STATUS, STATUS *);
+
+#ifdef hpux
+union fcntlun {
+	int val;
+	struct flock *lockdes;
+};
+#endif
+
+#ifdef SHLIB_DEFS
+#define strlen		(*_libgds_strlen)
+#define close		(*_libgds_close)
+#define open		(*_libgds_open)
+#define errno		(*_libgds_errno)
+#define lseek		(*_libgds_lseek)
+#define read		(*_libgds_read)
+#define fstat		(*_libgds_fstat)
+#define write		(*_libgds_write)
+#define fcntl		(*_libgds_fcntl)
+#define ib_fprintf		(*_libgds_fprintf)
+#define ib_fflush		(*_libgds_fflush)
+#define sscanf		(*_libgds_sscanf)
+#define access		(*_libgds_access)
+#define ib_fopen		(*_libgds_fopen)
+#define ib_fclose		(*_libgds_fclose)
+#define ib_fputs		(*_libgds_fputs)
+#define ib_fgets		(*_libgds_fgets)
+#define strcat		(*_libgds_strcat)
+#define strcpy		(*_libgds_strcpy)
+#define fsync		(*_libgds_fsync)
+#define _iob            (*_libgds__iob)
+
+extern int strlen();
+extern int close();
+extern int open();
+extern int errno;
+extern off_t lseek();
+extern int read();
+extern int fstat();
+extern int write();
+extern int fcntl();
+extern int ib_fprintf();
+extern int ib_fflush();
+extern int sscanf();
+extern int access();
+extern IB_FILE *ib_fopen();
+extern int ib_fclose();
+extern int ib_fputs();
+extern SCHAR *ib_fgets();
+extern SCHAR *strcat();
+extern SCHAR *strcpy();
+extern int fsync();
+extern IB_FILE _iob[];
+#endif
+
+
+int PIO_add_file(DBB dbb, FIL main_file, TEXT * file_name, SLONG start)
+{
+/**************************************
+ *
+ *	P I O _ a d d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a file to an existing database.  Return the sequence
+ *	number of the new file.  If anything goes wrong, return a
+ *	sequence of 0.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	USHORT sequence;
+	FIL file, new_file;
+
+	if (!(new_file = PIO_create(dbb, file_name, strlen(file_name), FALSE)))
+		return 0;
+
+	new_file->fil_min_page = start;
+	sequence = 1;
+
+	for (file = main_file; file->fil_next; file = file->fil_next)
+		++sequence;
+
+	file->fil_max_page = start - 1;
+	file->fil_next = new_file;
+
+	return sequence;
+}
+
+
+void PIO_close(FIL main_file)
+{
+/**************************************
+ *
+ *	P I O _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	FIL file;
+
+	if (main_file) {
+		TEXT marker_filename[MAXPATHLEN];
+
+		/* If a marker file is found for single user access, close it. */
+
+		strcpy(marker_filename, main_file->fil_string);
+		strcat(marker_filename, "_m");
+		if (!access(marker_filename, F_OK))	/* Marker file exists. */
+			close_marker_file(marker_filename);
+	}
+
+	for (file = main_file; file; file = file->fil_next) {
+		if (file->fil_desc == -1)
+			continue;			/* This really should be an error */
+		if (file->fil_desc) {
+			close(file->fil_desc);
+			file->fil_desc = -1;
+#ifndef PREAD_PWRITE
+			THD_MUTEX_DESTROY(file->fil_mutex);
+#endif
+		}
+	}
+}
+
+
+int PIO_connection(TEXT * file_name, USHORT * file_length)
+{
+/**************************************
+ *
+ *	P I O _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a file specification and determine whether a page/lock
+ *	server is required and available.  If so, return a "connection"
+ *	block.  If not, return NULL.
+ *
+ *	Note: The file name must have been expanded prior to this call.
+ *
+ **************************************/
+
+	return NULL;
+}
+
+
+FIL PIO_create(DBB dbb, TEXT * string, SSHORT length, BOOLEAN overwrite)
+{
+/**************************************
+ *
+ *	P I O _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new database file.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	int desc, flag;
+	FIL file;
+	TEXT *address, expanded_name[256], temp[256], *file_name;
+
+	file_name = string;
+
+	if (length) {
+		MOVE_FAST(file_name, temp, length);
+		temp[length] = 0;
+		file_name = temp;
+	}
+
+#ifdef SUPERSERVER_V2
+	flag =
+		SYNC | O_RDWR | O_CREAT | (overwrite ? O_TRUNC : O_EXCL) | O_BINARY;
+#else
+	flag = O_RDWR | O_CREAT | (overwrite ? O_TRUNC : O_EXCL) | O_BINARY;
+#endif
+
+	if ((desc = open(file_name, flag, MASK)) == -1)
+		ERR_post(isc_io_error,
+				 gds_arg_string, "open O_CREAT",
+				 gds_arg_cstring, length, ERR_string(string, length),
+				 isc_arg_gds, isc_io_create_err, gds_arg_unix, errno, 0);
+
+/* File open succeeded.  Now expand the file name. */
+
+	length = PIO_expand(string, length, expanded_name);
+	file = setup_file(dbb, expanded_name, length, desc);
+	return file;
+}
+
+
+int PIO_expand(TEXT * file_name, USHORT file_length, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *	P I O _ e x p a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fully expand a file name.  If the file doesn't exist, do something
+ *	intelligent.
+ *
+ **************************************/
+
+	return ISC_expand_filename(file_name, file_length, expanded_name);
+}
+
+
+void PIO_flush(FIL main_file)
+{
+/**************************************
+ *
+ *	P I O _ f l u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush the operating system cache back to good, solid oxide.
+ *
+ **************************************/
+	FIL file;
+
+/* Since all SUPERSERVER_V2 database and shadow I/O is synchronous, this
+   is a no-op. */
+
+#ifndef SUPERSERVER_V2
+#if !(defined DELTA)
+	for (file = main_file; file; file = file->fil_next) {
+		if (file->fil_desc != -1) {	/* This really should be an error */
+			THD_MUTEX_LOCK(file->fil_mutex);
+			fsync(file->fil_desc);
+			THD_MUTEX_UNLOCK(file->fil_mutex);
+		}
+	}
+#endif
+#endif
+}
+
+
+void PIO_force_write(FIL file, USHORT flag)
+{
+/**************************************
+ *
+ *	P I O _ f o r c e _ w r i t e	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set (or clear) force write, if possible, for the database.
+ *
+ **************************************/
+#ifdef hpux
+	union fcntlun control;
+#else
+	int control;
+#endif
+
+/* Since all SUPERSERVER_V2 database and shadow I/O is synchronous, this
+   is a no-op. */
+
+#ifndef SUPERSERVER_V2
+#ifdef hpux
+	control.val = (flag) ? SYNC : NULL;
+#else
+	control = (flag) ? SYNC : 0;
+#endif
+
+	if (fcntl(file->fil_desc, F_SETFL, control) == -1)
+		ERR_post(isc_io_error,
+				 gds_arg_string, "fcntl SYNC",
+				 gds_arg_cstring, file->fil_length,
+				 ERR_string(file->fil_string, file->fil_length), isc_arg_gds,
+				 isc_io_access_err, gds_arg_unix, errno, 0);
+#endif
+}
+
+
+void PIO_header(DBB dbb, SCHAR * address, int length)
+{
+/**************************************
+ *
+ *	P I O _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the page header.  This assumes that the file has not been
+ *	repositioned since the file was originally mapped.
+ *
+ **************************************/
+	FIL file;
+	SSHORT i;
+	SLONG bytes;
+
+	file = dbb->dbb_file;
+
+	ISC_inhibit();
+
+	if (file->fil_desc == -1)
+		unix_error("PIO_header", file, isc_io_read_err, 0);
+
+	for (i = 0; i < IO_RETRY; i++) {
+#ifndef PREAD_PWRITE
+		THD_MUTEX_LOCK(file->fil_mutex);
+
+		if ((lseek(file->fil_desc, 0, 0)) == -1) {
+			THD_MUTEX_UNLOCK(file->fil_mutex);
+			unix_error("lseek", file, isc_io_read_err, 0);
+		}
+#endif
+#ifdef ISC_DATABASE_ENCRYPTION
+		if (dbb->dbb_encrypt_key) {
+			SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+#ifdef PREAD_PWRITE
+			if ((bytes = pread(file->fil_desc, spare_buffer, length, 0)) ==
+				-1) {
+#else
+			if ((bytes = read(file->fil_desc, spare_buffer, length)) == -1) {
+				THD_MUTEX_UNLOCK(file->fil_mutex);
+#endif
+				if (SYSCALL_INTERRUPTED(errno))
+					continue;
+				unix_error("read", file, isc_io_read_err, 0);
+			}
+
+			(*dbb->dbb_decrypt) (dbb->dbb_encrypt_key->str_data,
+								 spare_buffer, length, address);
+		}
+		else
+#endif /* ISC_DATABASE_ENCRYPTION */
+#ifdef PREAD_PWRITE
+		if ((bytes = pread(file->fil_desc, address, length, 0)) == -1) {
+#else
+		if ((bytes = read(file->fil_desc, address, length)) == -1) {
+			THD_MUTEX_UNLOCK(file->fil_mutex);
+#endif
+			if (SYSCALL_INTERRUPTED(errno))
+				continue;
+			unix_error("read", file, isc_io_read_err, 0);
+		}
+		else
+			break;
+	}
+
+	if (i == IO_RETRY) {
+		if (bytes == 0) {
+#ifdef DEV_BUILD
+			ib_fprintf(ib_stderr, "PIO_header: an empty page read!\n");
+			ib_fflush(ib_stderr);
+#endif
+		}
+		else {
+#ifdef DEV_BUILD
+			ib_fprintf(ib_stderr, "PIO_header: retry count exceeded\n");
+			ib_fflush(ib_stderr);
+#endif
+			unix_error("read_retry", file, isc_io_read_err, 0);
+		}
+	}
+#ifndef PREAD_PWRITE
+	THD_MUTEX_UNLOCK(file->fil_mutex);
+#endif
+	ISC_enable();
+}
+
+
+SLONG PIO_max_alloc(DBB dbb)
+{
+/**************************************
+ *
+ *	P I O _ m a x _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute last physically allocated page of database.
+ *
+ **************************************/
+	struct stat statistics;
+	SLONG length;
+	FIL file;
+
+	for (file = dbb->dbb_file; file->fil_next; file = file->fil_next);
+
+	if (file->fil_desc == -1) {
+		ISC_inhibit();
+		unix_error("fstat", file, isc_io_access_err, 0);
+		return (0);
+	}
+
+	if (fstat(file->fil_desc, &statistics)) {
+		ISC_inhibit();
+		unix_error("fstat", file, isc_io_access_err, 0);
+	}
+
+	length = statistics.st_size;
+
+/****
+#ifndef sun
+length = statistics.st_size;
+#else
+length = statistics.st_blocks * statistics.st_blksize;
+#endif
+****/
+
+	return file->fil_min_page - file->fil_fudge +
+		(length + dbb->dbb_page_size - 1) / dbb->dbb_page_size;
+}
+
+
+SLONG PIO_act_alloc(DBB dbb)
+{
+/**************************************
+ *
+ *	P I O _ a c t  _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *  Compute actual number of physically allocated pages of database.
+ *
+ **************************************/
+	struct stat statistics;
+	SLONG length;
+	FIL file;
+	SLONG tot_pages = 0;
+
+/**
+ **  Traverse the linked list of files and add up the number of pages 
+ **  in each file
+ **/
+	for (file = dbb->dbb_file; file != NULL; file = file->fil_next) {
+		if (file->fil_desc == -1) {
+			ISC_inhibit();
+			unix_error("fstat", file, isc_io_access_err, 0);
+			return (0);
+		}
+
+		if (fstat(file->fil_desc, &statistics)) {
+			ISC_inhibit();
+			unix_error("fstat", file, isc_io_access_err, 0);
+		}
+
+		length = statistics.st_size;
+
+		tot_pages += (length + dbb->dbb_page_size - 1) / dbb->dbb_page_size;
+	}
+
+	return tot_pages;
+}
+
+
+FIL PIO_open(DBB dbb,
+			 TEXT * string,
+			 SSHORT length,
+			 SSHORT trace_flag,
+			 BLK connection, TEXT * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	P I O _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.  If a "connection" block is provided, use
+ *	the connection to communication with a page/lock server.
+ *
+ **************************************/
+	TEXT *ptr, temp[256];
+	int desc, i, flag;
+
+	if (string) {
+		ptr = string;
+		if (length) {
+			MOVE_FAST(string, temp, length);
+			temp[length] = 0;
+			ptr = temp;
+		}
+	}
+	else {
+		ptr = file_name;
+		if (file_length) {
+			MOVE_FAST(file_name, temp, file_length);
+			temp[file_length] = 0;
+			ptr = temp;
+		}
+	}
+
+#ifdef SUPERSERVER_V2
+	flag = SYNC | O_RDWR | O_BINARY;
+#else
+	flag = O_RDWR | O_BINARY;
+#endif
+
+	for (i = 0; i < IO_RETRY; i++) {
+
+		if ((desc = open(ptr, flag)) != -1)
+			break;
+		if (!SYSCALL_INTERRUPTED(errno))
+			break;
+	}
+
+	if (desc == -1) {
+#ifdef READONLY_DATABASE
+		/* Try opening the database file in ReadOnly mode. The database file could
+		 * be on a RO medium (CD-ROM etc.). If this fileopen fails, return error.
+		 */
+		flag &= ~O_RDWR;
+		flag |= O_RDONLY;
+		if ((desc = open(ptr, flag)) == -1) {
+#endif /* READONLY_DATABASE */
+			ERR_post(isc_io_error,
+					 gds_arg_string, "open",
+					 gds_arg_cstring, file_length, ERR_string(file_name,
+															  file_length),
+					 isc_arg_gds, isc_io_open_err, gds_arg_unix, errno, 0);
+#ifdef READONLY_DATABASE
+		}
+		else {
+			/* If this is the primary file, set DBB flag to indicate that it is
+			 * being opened ReadOnly. This flag will be used later to compare with
+			 * the Header Page flag setting to make sure that the database is set
+			 * ReadOnly.
+			 */
+			if (!dbb->dbb_file)
+				dbb->dbb_flags |= DBB_being_opened_read_only;
+		}
+#endif /* READONLY_DATABASE */
+	}
+
+	return setup_file(dbb, string, length, desc);
+}
+
+
+int PIO_read(FIL file, BDB bdb, PAG page, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	P I O _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a data page.  Oh wow.
+ *
+ **************************************/
+	DBB dbb;
+	SSHORT i;
+	SLONG bytes, size, offset;
+
+	ISC_inhibit();
+
+	if (file->fil_desc == -1)
+		return unix_error("read", file, isc_io_read_err, status_vector);
+
+	dbb = bdb->bdb_dbb;
+	size = dbb->dbb_page_size;
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		for (i = 0; i < IO_RETRY; i++) {
+			if (!(file = seek_file(file, bdb, &offset, status_vector)))
+				return FALSE;
+#ifdef PREAD_PWRITE
+			if ((bytes = pread(file->fil_desc, spare_buffer, size, offset)) ==
+				size)
+#else
+			if ((bytes = read(file->fil_desc, spare_buffer, size)) == size)
+#endif
+			{
+				(*dbb->dbb_decrypt) (dbb->dbb_encrypt_key->str_data,
+									 spare_buffer, size, page);
+				break;
+			}
+#ifndef PREAD_PWRITE
+			THD_MUTEX_UNLOCK(file->fil_mutex);
+#endif
+			if (bytes == -1 && !SYSCALL_INTERRUPTED(errno))
+				return unix_error("read", file, isc_io_read_err,
+								  status_vector);
+		}
+	}
+	else
+#endif /* ISC_DATABASE_ENCRYPTION */
+	{
+		for (i = 0; i < IO_RETRY; i++) {
+			if (!(file = seek_file(file, bdb, &offset, status_vector)))
+				return FALSE;
+#ifdef PREAD_PWRITE
+			if ((bytes = pread(file->fil_desc, page, size, offset)) == size)
+				break;
+#else
+			if ((bytes = read(file->fil_desc, page, size)) == size)
+				break;
+			THD_MUTEX_UNLOCK(file->fil_mutex);
+#endif
+			if (bytes == -1 && !SYSCALL_INTERRUPTED(errno))
+				return unix_error("read", file, isc_io_read_err,
+								  status_vector);
+		}
+	}
+
+#ifndef PREAD_PWRITE
+	THD_MUTEX_UNLOCK(file->fil_mutex);
+#endif
+
+	if (i == IO_RETRY) {
+		if (bytes == 0) {
+#ifdef DEV_BUILD
+			ib_fprintf(ib_stderr, "PIO_read: an empty page read!\n");
+			ib_fflush(ib_stderr);
+#endif
+		}
+		else {
+#ifdef DEV_BUILD
+			ib_fprintf(ib_stderr, "PIO_read: retry count exceeded\n");
+			ib_fflush(ib_stderr);
+#endif
+			unix_error("read_retry", file, isc_io_read_err, 0);
+		}
+	}
+
+	ISC_enable();
+	return TRUE;
+}
+
+
+int PIO_write(FIL file, BDB bdb, PAG page, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	P I O _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a data page.  Oh wow.
+ *
+ **************************************/
+	DBB dbb;
+	SSHORT i;
+	SLONG bytes, size, offset;
+
+	ISC_inhibit();
+
+	if (file->fil_desc == -1)
+		return unix_error("write", file, isc_io_write_err, status_vector);
+
+	dbb = bdb->bdb_dbb;
+	size = dbb->dbb_page_size;
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		(*dbb->dbb_encrypt) (dbb->dbb_encrypt_key->str_data,
+							 page, size, spare_buffer);
+
+		for (i = 0; i < IO_RETRY; i++) {
+			if (!(file = seek_file(file, bdb, &offset, status_vector)))
+				return FALSE;
+#ifdef PREAD_PWRITE
+			if ((bytes = pwrite(file->fil_desc, spare_buffer, size, offset))
+				== size)
+				break;
+#else
+			if ((bytes = write(file->fil_desc, spare_buffer, size)) == size)
+				break;
+			THD_MUTEX_UNLOCK(file->fil_mutex);
+#endif
+			if (bytes == -1 && !SYSCALL_INTERRUPTED(errno))
+				return unix_error("write", file, isc_io_write_err,
+								  status_vector);
+		}
+	}
+	else
+#endif /* ISC_DATABASE_ENCRYPTION */
+	{
+		for (i = 0; i < IO_RETRY; i++) {
+			if (!(file = seek_file(file, bdb, &offset, status_vector)))
+				return FALSE;
+#ifdef PREAD_PWRITE
+			if ((bytes = pwrite(file->fil_desc, page, size, offset)) == size)
+				break;
+#else
+			if ((bytes = write(file->fil_desc, page, size)) == size)
+				break;
+			THD_MUTEX_UNLOCK(file->fil_mutex);
+#endif
+			if (bytes == -1 && !SYSCALL_INTERRUPTED(errno))
+				return unix_error("write", file, isc_io_write_err,
+								  status_vector);
+		}
+	}
+
+#ifndef PREAD_PWRITE
+	THD_MUTEX_UNLOCK(file->fil_mutex);
+#endif
+
+	ISC_enable();
+	return TRUE;
+}
+
+
+#ifdef UNIX
+static void close_marker_file(TEXT * marker_filename)
+{
+/***************************************
+ *
+ *	c l o s e _ m a r k e r _ f i l e
+ *
+ ***************************************
+ *
+ * Functional description
+ *	The caller has already found a marker
+ *	file exists, so open the file, read
+ *	the absolute path to the database,
+ *	then start reading fildes and closing
+ *	the open marker files.
+ *
+ ***************************************/
+	TEXT fildes_str[5], marker_file_path[MAXPATHLEN];
+	IB_FILE *fp;
+	int fd;
+
+/* Open the marker file and save the marker_file_path for later. */
+
+	if ((fp = ib_fopen(marker_filename, "r")) == NULL)
+		return;
+	if (ib_fgets(marker_file_path, sizeof(marker_file_path), fp) == NULL)
+		return;
+
+/* Read the fildes string, convert it into a file descriptor and close. */
+
+	while (ib_fgets(fildes_str, sizeof(fildes_str), fp) != NULL) {
+		sscanf(fildes_str, "%d", &fd);
+		close(fd);
+	}
+
+/* Remove all fildes from marker file by writing just the path to the file. */
+
+	if ((fp = ib_fopen(marker_filename, "w")) == NULL)
+		return;
+
+	ib_fputs(marker_file_path, fp);
+	ib_fclose(fp);
+}
+#endif
+
+
+static FIL seek_file(
+					 FIL file,
+					 BDB bdb, SLONG * offset, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	s e e k _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a buffer descriptor block, find the appropropriate
+ *	file block and seek to the proper page in that file.
+ *
+ **************************************/
+	ULONG page;
+	DBB dbb;
+
+	dbb = bdb->bdb_dbb;
+	page = bdb->bdb_page;
+
+	for (;; file = file->fil_next)
+		if (!file) {
+			ISC_enable();
+			CORRUPT(158);		/* msg 158 cannot sort on a field that does not exist */
+		}
+		else if (page >= file->fil_min_page && page <= file->fil_max_page)
+			break;
+
+	if (file->fil_desc == -1)
+		return (FIL) unix_error("lseek", file, isc_io_access_err,
+								status_vector);
+
+	page -= file->fil_min_page - file->fil_fudge;
+
+#ifdef PREAD_PWRITE
+	*offset = (SLONG) (page * dbb->dbb_page_size);
+#else
+	THD_MUTEX_LOCK(file->fil_mutex);
+
+	if ((lseek(file->fil_desc, (SLONG) (page * dbb->dbb_page_size), 0)) == -1) {
+		THD_MUTEX_UNLOCK(file->fil_mutex);
+		return (FIL) unix_error("lseek", file, isc_io_access_err,
+								status_vector);
+	}
+#endif
+
+	return file;
+}
+
+
+static FIL setup_file(
+					  DBB dbb, TEXT * file_name, USHORT file_length, int desc)
+{
+/**************************************
+ *
+ *	s e t u p _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up file and lock blocks for a file.
+ *
+ **************************************/
+	FIL file;
+	LCK lock;
+	UCHAR *p, *q, lock_string[32];
+	USHORT l;
+	struct stat statistics;
+
+/* Allocate file block and copy file name string */
+
+	file = (FIL) ALLOCPV(type_fil, file_length + 1);
+	file->fil_desc = desc;
+	file->fil_length = file_length;
+	file->fil_max_page = -1;
+	MOVE_FAST(file_name, file->fil_string, file_length);
+	file->fil_string[file_length] = '\0';
+#ifndef PREAD_PWRITE
+	THD_MUTEX_INIT(file->fil_mutex);
+#endif
+
+/* If this isn't the primary file, we're done */
+
+	if (dbb->dbb_file)
+		return file;
+
+/* Build unique lock string for file and construct lock block */
+
+	fstat(desc, &statistics);
+	p = lock_string;
+
+	q = (UCHAR *) & statistics.st_dev;
+	l = sizeof(statistics.st_dev);
+	do
+		*p++ = *q++;
+	while (--l);
+
+	q = (UCHAR *) & statistics.st_ino;
+	l = sizeof(statistics.st_ino);
+	do
+		*p++ = *q++;
+	while (--l);
+
+	l = p - lock_string;
+
+	dbb->dbb_lock = lock = (LCK) ALLOCPV(type_lck, l);
+	lock->lck_type = LCK_database;
+	lock->lck_owner_handle = LCK_get_owner_handle(NULL_TDBB, lock->lck_type);
+	lock->lck_object = (BLK) dbb;
+	lock->lck_length = l;
+	lock->lck_dbb = dbb;
+	lock->lck_ast = CCH_down_grade_dbb;
+	MOVE_FAST(lock_string, lock->lck_key.lck_string, l);
+
+/* Try to get an exclusive lock on database.  If this fails, insist
+   on at least a shared lock */
+
+	dbb->dbb_flags |= DBB_exclusive;
+	if (!LCK_lock(NULL_TDBB, lock, LCK_EX, LCK_NO_WAIT)) {
+		dbb->dbb_flags &= ~DBB_exclusive;
+		LCK_lock(NULL_TDBB, lock, LCK_SW, LCK_WAIT);
+	}
+
+	return file;
+}
+
+
+static BOOLEAN unix_error(
+						  TEXT * string,
+						  FIL file, STATUS operation, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	u n i x _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody has noticed a file system error and expects error
+ *	to do something about it.  Harumph!
+ *
+ **************************************/
+	STATUS *status;
+
+	ISC_enable();
+
+	if (status = status_vector) {
+		*status++ = isc_arg_gds;
+		*status++ = isc_io_error;
+		*status++ = gds_arg_string;
+		*status++ = (STATUS) string;
+		*status++ = gds_arg_string;
+		*status++ = (STATUS) ERR_string(file->fil_string, file->fil_length);
+		*status++ = isc_arg_gds;
+		*status++ = operation;
+		*status++ = gds_arg_unix;
+		*status++ = errno;
+		*status++ = gds_arg_end;
+		gds__log_status(0, status_vector);
+		return FALSE;
+	}
+	else
+		ERR_post(isc_io_error,
+				 gds_arg_string, string,
+				 gds_arg_string, ERR_string(file->fil_string,
+											file->fil_length), isc_arg_gds,
+				 operation, gds_arg_unix, errno, 0);
+}
+
+#if ((defined PREAD_PWRITE) && !(defined SOLARIS_MT || defined LINUX))
+
+/* pread() and pwrite() behave like read() and write() except that they
+   take an additional 'offset' argument. The I/O takes place at the specified
+   'offset' from the beginning of the file and does not affect the offset
+   associated with the file descriptor.
+   This is done in order to allow more than one thread to operate on
+   individual records within the same file simultaneously. This is
+   called Positioned I/O. Since positioned I/O is not currently directly
+   available through the POSIX interfaces, it has been implemented
+   using the POSIX asynchronous I/O calls.
+
+   NOTE: pread() and pwrite() are defined in UNIX International system
+         interface and are a part of Solaris 2.
+*/
+
+static SLONG pread(int fd, SCHAR * buf, SLONG nbytes, SLONG offset)
+/**************************************
+ *
+ *	p r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *   This function uses Asynchronous I/O calls to implement 
+ *   positioned read from a given offset
+ **************************************/
+{
+	struct aiocb io;
+	struct aiocb *list[1];
+	int err;
+
+	io.aio_fildes = fd;
+	io.aio_offset = offset;
+	io.aio_buf = buf;
+	io.aio_nbytes = nbytes;
+	io.aio_reqprio = 0;
+	io.aio_sigevent.sigev_notify = SIGEV_NONE;
+	err = aio_read(&io);		/* atomically reads at offset */
+	if (err != 0)
+		return (err);			/* errno is set */
+	list[0] = &io;
+	err = aio_suspend(list, 1, NULL);	/* wait for I/O to complete */
+	if (err != 0)
+		return (err);			/* errno is set */
+	return (aio_return(&io));	/* return I/O status */
+}
+
+static SLONG pwrite(int fd, SCHAR * buf, SLONG nbytes, SLONG offset)
+/**************************************
+ *
+ *	p w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *   This function uses Asynchronous I/O calls to implement 
+ *   positioned write from a given offset
+ **************************************/
+{
+	struct aiocb io;
+	struct aiocb *list[1];
+	int err;
+
+	io.aio_fildes = fd;
+	io.aio_offset = offset;
+	io.aio_buf = buf;
+	io.aio_nbytes = nbytes;
+	io.aio_reqprio = 0;
+	io.aio_sigevent.sigev_notify = SIGEV_NONE;
+	err = aio_write(&io);		/* atomically reads at offset */
+	if (err != 0)
+		return (err);			/* errno is set */
+	list[0] = &io;
+	err = aio_suspend(list, 1, NULL);	/* wait for I/O to complete */
+	if (err != 0)
+		return (err);			/* errno is set */
+	return (aio_return(&io));	/* return I/O status */
+}
+
+#endif /* defined PREAD_PWRITE && ! (defined SOLARIS_MT || LINUX) */
+
+
+} // extern "C"
diff --git a/src/jrd/utl.cpp b/src/jrd/utl.cpp
new file mode 100644
index 0000000000..29bd9584b5
--- /dev/null
+++ b/src/jrd/utl.cpp
@@ -0,0 +1,2261 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		utl.c
+ *	DESCRIPTION:	User callable routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef SHLIB_DEFS
+#define LOCAL_SHLIB_DEFS
+#endif
+
+#include <limits.h>
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../jrd/time.h"
+#include "../jrd/misc.h"
+#include "../jrd/gdsassert.h"
+
+#include "../include/jrd/gds.h"
+#include "../jrd/msg.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/utl_proto.h"
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+#include "../jrd/blb_proto.h"
+#endif
+
+#ifdef VMS
+#include <file.h>
+#include <ib_perror.h>
+#include <descrip.h>
+#include <types.h>
+#include <stat.h>
+
+#else /* !VMS */
+
+#include <sys/types.h>
+#include <sys/stat.h>
+
+#ifdef PC_PLATFORM
+#include <fcntl.h>
+#include <direct.h>
+#else
+#ifdef NETWARE_386
+#include <fcntl.h>
+#else
+#if defined(WIN_NT)
+#include <io.h>
+#include <process.h>
+#else
+#include <sys/file.h>
+#endif
+#endif
+#endif
+
+#endif /* VMS */
+
+#define statistics		stat
+
+#ifdef sparc
+#ifndef SOLARIS
+extern int ib_printf();
+#endif
+#endif
+
+#ifdef UNIX
+#define GDS_EDIT	gds__edit
+#endif
+
+#ifdef PC_PLATFORM
+#define GDS_EDIT	gds__edit
+#endif
+
+#if defined(WIN_NT)
+#define GDS_EDIT	gds__edit
+#endif
+
+#ifdef NETWARE_386
+#define GDS_EDIT        gds__edit
+#endif
+
+#ifdef VMS
+#ifdef __ALPHA
+#define EDT_IMAGE	"TPUSHR"
+#define EDT_SYMBOL	"TPU$EDIT"
+#else
+#define EDT_IMAGE	"EDTSHR"
+#define EDT_SYMBOL	"EDT$EDIT"
+#endif
+#endif
+
+/* Bug 7119 - BLOB_load will open external file for read in BINARY mode. */
+
+#ifdef WIN_NT
+#define FOPEN_READ_TYPE		"rb"
+#define FOPEN_WRITE_TYPE	"wb"
+#define FOPEN_READ_TYPE_TEXT	"rt"
+#define FOPEN_WRITE_TYPE_TEXT	"wt"
+#endif
+
+#ifndef FOPEN_READ_TYPE
+#define FOPEN_READ_TYPE		"r"
+#endif
+
+#ifndef FOPEN_WRITE_TYPE
+#define FOPEN_WRITE_TYPE	"w"
+#endif
+
+#ifndef FOPEN_READ_TYPE_TEXT
+#define FOPEN_READ_TYPE_TEXT	FOPEN_READ_TYPE
+#endif
+
+#ifndef FOPEN_WRITE_TYPE_TEXT
+#define FOPEN_WRITE_TYPE_TEXT	FOPEN_WRITE_TYPE
+#endif
+
+#define LOWER7(c) ( (c >= 'A' && c<= 'Z') ? c + 'a' - 'A': c )
+
+
+/* Blob stream stuff */
+
+#define BSTR_input	0
+#define BSTR_output	1
+#define BSTR_alloc	2
+
+extern "C" {
+
+static int dump(GDS_QUAD *, void *, void *, IB_FILE *);
+static int edit(GDS_QUAD *, void *, void *, SSHORT, SCHAR *);
+static int get_ods_version(void **, USHORT *, USHORT *);
+static int load(GDS_QUAD *, void *, void *, IB_FILE *);
+
+
+#ifdef VMS
+static int display(GDS_QUAD *, int *, int *);
+#endif
+
+/* Blob info stuff */
+
+static const SCHAR blob_items[] =
+	{ gds_info_blob_max_segment, gds_info_blob_num_segments,
+	gds_info_blob_total_length
+};
+
+
+/* gds__version stuff */
+
+static const UCHAR info[] =
+	{ gds_info_version, gds_info_implementation, gds_info_end };
+
+static const UCHAR ods_info[] =
+	{ gds_info_ods_version, gds_info_ods_minor_version, gds_info_end };
+
+static const TEXT *const impl_class[] = {
+	NULL,						/* 0 */
+	"access method",			/* 1 */
+	"Y-valve",					/* 2 */
+	"remote interface",			/* 3 */
+	"remote server",			/* 4 */
+	NULL,						/* 5 */
+	NULL,						/* 6 */
+	"pipe interface",			/* 7 */
+	"pipe server",				/* 8 */
+	"central interface",		/* 9 */
+	"central server",			/* 10 */
+	"gateway",					/* 11 */
+}, *CONST impl_implementation[] = {
+	NULL,						/* 0 */
+		"Rdb/VMS",				/* 1 */
+		"Rdb/ELN target",		/* 2 */
+		"Rdb/ELN development",	/* 3 */
+		"Rdb/VMS Y",			/* 4 */
+		"Rdb/ELN Y",			/* 5 */
+		"JRI",					/* 6 */
+		"JSV",					/* 7 */
+		NULL,					/* 8 */
+		NULL,					/* 9 */
+		"InterBase/apollo",		/* 10 */
+		"InterBase/ultrix",		/* 11 */
+		"InterBase/vms",		/* 12 */
+		"InterBase/sun",		/* 13 */
+		"InterBase/OS2",		/* 14 */
+		NULL,					/* 15 */
+		NULL,					/* 16 */
+		NULL,					/* 17 */
+		NULL,					/* 18 */
+		NULL,					/* 19 */
+		NULL,					/* 20 */
+		NULL,					/* 21 */
+		NULL,					/* 22 */
+		NULL,					/* 23 */
+		NULL,					/* 24 */
+		"InterBase/apollo",		/* 25 */
+		"InterBase/ultrix",		/* 26 */
+		"InterBase/vms",		/* 27 */
+		"InterBase/sun",		/* 28 */
+		"InterBase/OS2",		/* 29 */
+		"InterBase/sun4",		/* 30 */
+		"InterBase/hpux800",	/* 31 */
+		"InterBase/sun386",		/* 32 */
+		"InterBase:ORACLE/vms",	/* 33 */
+		"InterBase/mac/aux",	/* 34 */
+		"InterBase/ibm/aix",	/* 35 */
+		"InterBase/mips/ultrix",	/* 36 */
+		"InterBase/xenix",		/* 37 */
+		"InterBase/AViiON",		/* 38 */
+		"InterBase/hp/mpexl",	/* 39 */
+		"InterBase/hp/ux300",	/* 40 */
+		"InterBase/sgi",		/* 41 */
+		"InterBase/sco/unix",	/* 42 */
+		"InterBase/Cray",		/* 43 */
+		"InterBase/imp",		/* 44 */
+		"InterBase/delta",		/* 45 */
+		"InterBase/NeXT",		/* 46 */
+		"InterBase/DOS",		/* 47 */
+		"InterBase/m88k",		/* 48 */
+		"InterBase/UNIXWARE",	/* 49 */
+		"InterBase/x86/Windows NT",	/* 50 */
+		"InterBase/epson",		/* 51 */
+		"InterBase/DEC/OSF",	/* 52 */
+		"InterBase/Alpha/OpenVMS",	/* 53 */
+		"InterBase/NetWare",	/* 54 */
+		"InterBase/Windows",	/* 55 */
+		"InterBase/NCR3000",	/* 56 */
+		"InterBase/PPC/Windows NT",	/* 57 */
+		"InterBase/DG_X86",		/* 58 */
+		"InterBase/SCO_SV Intel",	/* 59 *//* 5.5 SCO Port */
+		"InterBase/linux Intel",	/* 60 */
+		"InterBase/FreeBSD/i386",	/* 61 */
+		"InterBase/NetBSD/i386"	/* 62 */
+};
+
+
+
+#ifdef SHLIB_DEFS
+#define strlen		(*_libgds_strlen)
+#define _iob		(*_libgds_iob)
+#define ib_printf		(*_libgds_printf)
+#define ib_fopen		(*_libgds_fopen)
+#define ib_fclose		(*_libgds_fclose)
+#define getenv		(*_libgds_getenv)
+#define ib_fputc		(*_libgds_fputc)
+#define mktemp		(*_libgds_mktemp)
+#define unlink		(*_libgds_unlink)
+#define statistics	(*_libgds_stat)
+#define sprintf		(*_libgds_sprintf)
+#define system		(*_libgds_system)
+#define ib_fgetc		(*_libgds_fgetc)
+#define ib_fgets		(*_libgds_fgets)
+#define strcat		(*_libgds_strcat)
+#define strcpy		(*_libgds_strcpy)
+#define strncpy		(*_libgds_strncpy)
+#define ib_fprintf		(*_libgds_fprintf)
+
+extern int strlen();
+extern IB_FILE _iob[];
+extern int ib_printf();
+extern IB_FILE *ib_fopen();
+extern int ib_fclose();
+extern SCHAR *getenv();
+extern int ib_fputc();
+extern SCHAR *mktemp();
+extern int unlink();
+extern int statistics();
+extern int sprintf();
+extern int system();
+extern int ib_fgetc();
+extern SCHAR *ib_fgets();
+extern SCHAR *strcat();
+extern SCHAR *strcpy();
+extern SCHAR *strncpy();
+extern int ib_fprintf();
+#endif
+
+
+#ifdef VMS
+STATUS API_ROUTINE gds__attach_database_d(
+										  STATUS * user_status,
+										  struct dsc$descriptor_s *file_name,
+										  void **handle,
+										  SSHORT dpb_length,
+SCHAR * dpb, SSHORT db_type)
+{
+/**************************************
+ *
+ *	g d s _ $ a t t a c h _ d a t a b a s e _ d
+ *
+ **************************************
+ *
+ * Functional description
+ *	An attach database for COBOL to call
+ *
+ **************************************/
+
+	return gds_attach_database(user_status, file_name->dsc$w_length,
+							   file_name->dsc$a_pointer, handle, dpb_length,
+							   dpb, db_type);
+}
+#endif
+
+
+int API_ROUTINE gds__blob_size(
+							   SLONG * b,
+							   SLONG * size,
+							   SLONG * seg_count, SLONG * max_seg)
+{
+/**************************************
+ *
+ *	g d s _ $ b l o b _ s i z e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the size, number of segments, and max
+ *	segment length of a blob.  Return true
+ *	if it happens to succeed.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	SLONG n;
+	SSHORT l;
+	SCHAR *p, item, buffer[64];
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad casts.")
+
+	if (gds__blob_info(status_vector,
+					   reinterpret_cast < void **>(GDS_VAL(b)),
+					   sizeof(blob_items),
+					   const_cast < char *>(blob_items),
+					   sizeof(buffer), buffer)) {
+		gds__print_status(status_vector);
+		return FALSE;
+	}
+
+	p = buffer;
+
+	while ((item = *p++) != gds_info_end) {
+		l =
+			static_cast < SSHORT >
+			(gds__vax_integer(reinterpret_cast < UCHAR * >(p), 2));
+		p += 2;
+		n = gds__vax_integer(reinterpret_cast < UCHAR * >(p), l);
+		p += l;
+		switch (item) {
+		case gds_info_blob_max_segment:
+			if (max_seg)
+				*max_seg = n;
+			break;
+
+		case gds_info_blob_num_segments:
+			if (seg_count)
+				*seg_count = n;
+			break;
+
+		case gds_info_blob_total_length:
+			if (size)
+				*size = n;
+			break;
+
+		default:
+			return FALSE;
+		}
+	}
+
+	return TRUE;
+}
+
+
+/* 17 May 2001 - isc_expand_dpb is DEPRECATED */
+void API_ROUTINE_VARARG isc_expand_dpb(SCHAR ** dpb, SSHORT * dpb_size, ...)
+{
+/**************************************
+ *
+ *	i s c _ e x p a n d _ d p b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend a database parameter block dynamically
+ *	to include runtime info.  Generated 
+ *	by gpre to provide host variable support for 
+ *	READY statement	options.
+ *	This expects the list of variable args
+ *	to be zero terminated.
+ *
+ *	Note: dpb_size is signed short only for compatibility
+ *	with other calls (isc_attach_database) that take a dpb length.
+ *
+ * TMN: Note: According to Ann Harrison:
+ * That routine should be deprecated.  It doesn't do what it
+ * should, and does do things it shouldn't, and is harder to
+ * use than the natural alternative.
+ *
+ **************************************/
+	SSHORT length, new_dpb_length;
+	UCHAR *new_dpb;
+	char *p;
+	char *q;
+	va_list args;
+	USHORT type;
+
+/* calculate length of database parameter block, 
+   setting initial length to include version */
+
+	if (!*dpb || !(new_dpb_length = *dpb_size))
+		new_dpb_length = 1;
+
+	VA_START(args, dpb_size);
+
+	while (type = va_arg(args, int))
+		switch (type) {
+		case gds_dpb_user_name:
+		case gds_dpb_password:
+		case isc_dpb_sql_role_name:
+		case gds_dpb_lc_messages:
+		case gds_dpb_lc_ctype:
+		case isc_dpb_reserved:
+			p = va_arg(args, char *);
+			if (p) {
+				length = strlen(p);
+				new_dpb_length += 2 + length;
+			}
+			break;
+
+		default:
+			(void) va_arg(args, int);
+			break;
+		}
+
+/* if items have been added, allocate space
+   for the new dpb and copy the old one over */
+
+	if (new_dpb_length > *dpb_size) {
+		/* Note: gds__free done by GPRE generated code */
+
+		new_dpb = gds__alloc((SLONG) (sizeof(UCHAR) * new_dpb_length));
+		p = reinterpret_cast < char *>(new_dpb);
+		/* FREE: done by client process in GPRE generated code */
+		if (!new_dpb) {			/* NOMEM: don't trash existing dpb */
+			DEV_REPORT("isc_extend_dpb: out of memory");
+			return;				/* NOMEM: not really handled */
+		}
+
+		q = *dpb;
+		for (length = *dpb_size; length; length--)
+			*p++ = *q++;
+
+	}
+	else {
+		new_dpb = (UCHAR *) * dpb;
+		p = reinterpret_cast < char *>(new_dpb + *dpb_size);
+	}
+
+	if (!*dpb_size)
+		*p++ = gds_dpb_version1;
+
+/* copy in the new runtime items */
+
+	VA_START(args, dpb_size);
+
+	while (type = va_arg(args, int))
+		switch (type) {
+		case gds_dpb_user_name:
+		case gds_dpb_password:
+		case isc_dpb_sql_role_name:
+		case gds_dpb_lc_messages:
+		case gds_dpb_lc_ctype:
+		case isc_dpb_reserved:
+			if (q = va_arg(args, char *)) {
+				length = strlen(q);
+				assert(type <= CHAR_MAX);
+				*p++ = (char) type;
+				assert(length <= CHAR_MAX);
+				*p++ = (char) length;
+				while (length--)
+					*p++ = *q++;
+			}
+			break;
+
+		default:
+			(void) va_arg(args, int);
+			break;
+		}
+
+	*dpb_size = p - reinterpret_cast < char *>(new_dpb);
+	*dpb = (SCHAR *) new_dpb;
+}
+
+
+int API_ROUTINE isc_modify_dpb(
+							   SCHAR ** dpb,
+							   SSHORT * dpb_size,
+							   USHORT type, SCHAR * str, SSHORT str_len)
+{
+/**************************************
+ *
+ *	i s c _ e x p a n d _ d p b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend a database parameter block dynamically
+ *	to include runtime info.  Generated 
+ *	by gpre to provide host variable support for 
+ *	READY statement	options.
+ *	This expects one arg at a time. 
+ *      the length of the string is passed by the caller and hence
+ * 	is not expected to be null terminated.
+ * 	this call is a variation of isc_expand_dpb without a variable
+ * 	arg parameters.
+ * 	Instead, this function is called recursively
+ *	Alternatively, this can have a parameter list with all possible
+ *	parameters either nulled or with proper value and type.
+ *
+ *  	**** This can be modified to be so at a later date, making sure
+ *	**** all callers follow the same convention 
+ * 
+ *	Note: dpb_size is signed short only for compatibility
+ *	with other calls (isc_attach_database) that take a dpb length.
+ *
+ **************************************/
+	SSHORT length, new_dpb_length;
+	UCHAR *new_dpb, *p, *q;
+
+/* calculate length of database parameter block, 
+   setting initial length to include version */
+
+	if (!*dpb || !(new_dpb_length = *dpb_size))
+		new_dpb_length = 1;
+
+	switch (type) {
+	case gds_dpb_user_name:
+	case gds_dpb_password:
+	case isc_dpb_sql_role_name:
+	case gds_dpb_lc_messages:
+	case gds_dpb_lc_ctype:
+	case isc_dpb_reserved:
+		new_dpb_length += 2 + str_len;
+		break;
+
+	default:
+		return FAILURE;
+	}
+
+/* if items have been added, allocate space
+   for the new dpb and copy the old one over */
+
+	if (new_dpb_length > *dpb_size) {
+		/* Note: gds__free done by GPRE generated code */
+
+		p = new_dpb = gds__alloc((SLONG) (sizeof(UCHAR) * new_dpb_length));
+		/* FREE: done by client process in GPRE generated code */
+		if (!new_dpb) {			/* NOMEM: don't trash existing dpb */
+			DEV_REPORT("isc_extend_dpb: out of memory");
+			return FAILURE;		/* NOMEM: not really handled */
+		}
+
+		q = (UCHAR *) * dpb;
+		for (length = *dpb_size; length; length--)
+			*p++ = *q++;
+
+	}
+	else {
+		new_dpb = (UCHAR *) * dpb;
+		p = new_dpb + *dpb_size;
+	}
+
+	if (!*dpb_size)
+		*p++ = gds_dpb_version1;
+
+/* copy in the new runtime items */
+
+	switch (type) {
+	case gds_dpb_user_name:
+	case gds_dpb_password:
+	case isc_dpb_sql_role_name:
+	case gds_dpb_lc_messages:
+	case gds_dpb_lc_ctype:
+	case isc_dpb_reserved:
+		if (q = (UCHAR *) str) {
+			length = str_len;
+			assert(type <= MAX_UCHAR);
+			*p++ = (UCHAR) type;
+			assert(length <= MAX_UCHAR);
+			*p++ = (UCHAR) length;
+			while (length--)
+				*p++ = *q++;
+		}
+		break;
+
+	default:
+		return FAILURE;
+	}
+
+	*dpb_size = p - new_dpb;
+	*dpb = (SCHAR *) new_dpb;
+	return SUCCESS;
+}
+
+
+#ifdef GDS_EDIT
+int API_ROUTINE GDS_EDIT(TEXT * file_name, USHORT type)
+{
+/**************************************
+ *
+ *	g d s _ $ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit a file.
+ *
+ **************************************/
+	TEXT *editor, buffer[256];
+	struct stat before, after;
+
+#ifndef WIN_NT
+	if (!(editor = getenv("VISUAL")) && !(editor = getenv("EDITOR")))
+		editor = "vi";
+#else
+	if (!(editor = getenv("EDITOR")))
+		editor = "mep";
+#endif
+
+	statistics(file_name, &before);
+	sprintf(buffer, "%s %s", editor, file_name);
+
+	system(buffer);
+
+	statistics(file_name, &after);
+
+	return (before.st_mtime != after.st_mtime
+			|| before.st_size != after.st_size);
+}
+#endif
+
+
+#ifdef VMS
+int API_ROUTINE gds__edit(TEXT * file_name, USHORT type)
+{
+/**************************************
+ *
+ *	g d s _ $ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a blob, dump it to a file, allow the user to edit the
+ *	window, and dump the data back into a blob.  If the user
+ *	bails out, return FALSE, otherwise return TRUE.
+ *
+ **************************************/
+	int status, (*editor) ();
+	struct dsc$descriptor_s desc, symbol, image;
+	struct stat before, after;
+
+	stat(file_name, &before);
+	ISC_make_desc(file_name, &desc, 0);
+	ISC_make_desc(EDT_SYMBOL, &symbol, 0);
+	ISC_make_desc(EDT_IMAGE, &image, 0);
+
+	lib$find_image_symbol(&image, &symbol, &editor);
+	status = (*editor) (&desc, &desc);
+	stat(file_name, &after);
+
+	return (before.st_ctime != after.st_ctime ||
+			before.st_ino[0] != after.st_ino[0] ||
+			before.st_ino[1] != after.st_ino[1] ||
+			before.st_ino[2] != after.st_ino[2]);
+}
+#endif
+
+
+SLONG API_ROUTINE gds__event_block(SCHAR ** event_buffer,
+								   SCHAR ** result_buffer, USHORT count, ...)
+{
+/**************************************
+ *
+ *	g d s _ $ e v e n t _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an initialized event parameter block from a
+ *	variable number of input arguments.
+ *	Return the size of the block.
+ *
+ *	Return 0 as the size if the event parameter block cannot be
+ *	created for any reason.
+ *
+ **************************************/
+	register SCHAR *p, *q;
+	SCHAR *end;
+	SLONG length;
+	va_list ptr;
+	USHORT i;
+
+	VA_START(ptr, count);
+
+/* calculate length of event parameter block, 
+   setting initial length to include version
+   and counts for each argument */
+
+	length = 1;
+	i = GDS_VAL(count);
+	while (i--) {
+		q = va_arg(ptr, SCHAR *);
+		length += strlen(q) + 5;
+	}
+
+	p = *event_buffer =
+		(SCHAR *) gds__alloc((SLONG) (sizeof(SCHAR) * length));
+/* FREE: unknown */
+	if (!*event_buffer)			/* NOMEM: */
+		return 0;
+	*result_buffer = (SCHAR *) gds__alloc((SLONG) (sizeof(SCHAR) * length));
+/* FREE: unknown */
+	if (!*result_buffer) {		/* NOMEM: */
+		gds__free(*event_buffer);
+		*event_buffer = NULL;
+		return 0;
+	}
+
+#ifdef DEBUG_GDS_ALLOC
+/* I can't find anywhere these items are freed */
+/* 1994-October-25 David Schnepper  */
+	gds_alloc_flag_unfreed((void *) *event_buffer);
+	gds_alloc_flag_unfreed((void *) *result_buffer);
+#endif /* DEBUG_GDS_ALLOC */
+
+/* initialize the block with event names and counts */
+
+	*p++ = 1;
+
+	VA_START(ptr, count);
+
+	i = GDS_VAL(count);
+	while (i--) {
+		q = va_arg(ptr, SCHAR *);
+
+		/* Strip trailing blanks from string */
+
+		for (end = q + strlen(q); --end >= q && *end == ' ';);
+		*p++ = end - q + 1;
+		while (q <= end)
+			*p++ = *q++;
+		*p++ = 0;
+		*p++ = 0;
+		*p++ = 0;
+		*p++ = 0;
+	}
+
+	return p - *event_buffer;
+}
+
+
+USHORT API_ROUTINE gds__event_block_a(SCHAR ** event_buffer,
+									  SCHAR ** result_buffer,
+									  SSHORT GDS_VAL(count),
+									  SCHAR ** name_buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ e v e n t _ b l o c k _ a 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an initialized event parameter block from a
+ *	vector of input arguments. (Ada needs this)
+ *	Assume all strings are 31 characters long.
+ *	Return the size of the block.
+ *
+ **************************************/
+	register SCHAR *p, *q;
+	SCHAR *end, **nb;
+	SLONG length;
+	USHORT i;
+
+/* calculate length of event parameter block, 
+   setting initial length to include version
+   and counts for each argument */
+
+	i = GDS_VAL(count);
+	nb = name_buffer;
+	length = 0;
+	while (i--) {
+		q = *nb++;
+
+		/* Strip trailing blanks from string */
+
+		for (end = q + 31; --end >= q && *end == ' ';);
+		length += end - q + 1 + 5;
+	}
+
+	i = GDS_VAL(count);
+	p = *event_buffer =
+		(SCHAR *) gds__alloc((SLONG) (sizeof(SCHAR) * length));
+/* FREE: unknown */
+	if (!*event_buffer)			/* NOMEM: */
+		return 0;
+	*result_buffer = (SCHAR *) gds__alloc((SLONG) (sizeof(SCHAR) * length));
+/* FREE: unknown */
+	if (!*result_buffer) {		/* NOMEM: */
+		gds__free(*event_buffer);
+		*event_buffer = NULL;
+		return 0;
+	}
+
+#ifdef DEBUG_GDS_ALLOC
+/* I can't find anywhere these items are freed */
+/* 1994-October-25 David Schnepper  */
+	gds_alloc_flag_unfreed((void *) *event_buffer);
+	gds_alloc_flag_unfreed((void *) *result_buffer);
+#endif /* DEBUG_GDS_ALLOC */
+
+	*p++ = 1;
+
+	nb = name_buffer;
+
+	while (i--) {
+		q = *nb++;
+
+		/* Strip trailing blanks from string */
+
+		for (end = q + 31; --end >= q && *end == ' ';);
+		*p++ = end - q + 1;
+		while (q <= end)
+			*p++ = *q++;
+		*p++ = 0;
+		*p++ = 0;
+		*p++ = 0;
+		*p++ = 0;
+	}
+
+	return (p - *event_buffer);
+}
+
+
+void API_ROUTINE gds__event_block_s(
+									SCHAR ** event_buffer,
+									SCHAR ** result_buffer,
+									SSHORT count,
+SCHAR ** name_buffer, SSHORT * return_count)
+{
+/**************************************
+ *
+ *	g d s _ $ e v e n t _ b l o c k _ s
+ *
+ **************************************
+ *
+ * Functional description
+ *	THIS IS THE COBOL VERSION of gds__event_block_a for Cobols
+ *	that don't permit return values.
+ *
+ **************************************/
+
+	*return_count =
+		gds__event_block_a(event_buffer, result_buffer, count, name_buffer);
+}
+
+
+void API_ROUTINE gds__event_counts(
+								   ULONG * result_vector,
+								   SSHORT GDS_VAL(buffer_length),
+								   SCHAR * event_buffer,
+SCHAR * result_buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ e v e n t _ c o u n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the delta between two events in an event
+ *	parameter block.  Used to update gds_events
+ *	for GPRE support of events.
+ *
+ **************************************/
+	register SCHAR *p, *q, *end;
+	USHORT i, length;
+	ULONG *vec;
+	ULONG initial_count, new_count;
+
+	vec = result_vector;
+	p = event_buffer;
+	q = result_buffer;
+	length = GDS_VAL(buffer_length);
+	end = p + length;
+
+/* analyze the event blocks, getting the delta for each event */
+
+	p++;
+	q++;
+	while (p < end) {
+		/* skip over the event name */
+
+		i = (USHORT) * p++;
+		p += i;
+		q += i + 1;
+
+		/* get the change in count */
+
+		initial_count =
+			gds__vax_integer(reinterpret_cast < UCHAR * >(p), sizeof(SLONG));
+		p += sizeof(SLONG);
+		new_count =
+			gds__vax_integer(reinterpret_cast < UCHAR * >(q), sizeof(SLONG));
+		q += sizeof(SLONG);
+		*vec++ = new_count - initial_count;
+	}
+
+/* copy over the result to the initial block to prepare
+   for the next call to gds__event_wait */
+
+	p = event_buffer;
+	q = result_buffer;
+	do
+		*p++ = *q++;
+	while (--length);
+}
+
+
+#ifndef PIPE_CLIENT
+void API_ROUTINE gds__map_blobs(int *handle1, int *handle2)
+{
+/**************************************
+ *
+ *	g d s _ $ m a p _ b l o b s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map an old blob to a new blob.
+ *	This call is intended for use by REPLAY,
+ *	and is probably not generally useful
+ *	for anyone else.
+ *
+ **************************************/
+
+#ifdef REPLAY_OSRI_API_CALLS_SUBSYSTEM
+#ifndef SUPERCLIENT
+/* Note: gds__map_blobs is almost like an API call,
+   it needs a TDBB structure setup for it in order
+   to function properly.  This currently does
+   not function.
+   1996-Nov-06 David Schnepper  */
+	deliberate_compile_error++;
+	BLB_map_blobs(NULL_TDBB, handle1, handle2);
+#endif
+#endif
+}
+#endif
+
+
+#if !(defined REQUESTER || defined NETWARE_386)
+void API_ROUTINE gds__set_debug(int GDS_VAL(value))
+{
+/**************************************
+ *
+ *	G D S _ S E T _ D E B U G
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set debugging mode, whatever that may mean.
+ *
+ **************************************/
+
+#pragma FB_COMPILER_MESSAGE("Empty function?!")
+}
+#endif
+
+
+void API_ROUTINE isc_set_login(UCHAR ** dpb, SSHORT * dpb_size)
+{
+/**************************************
+ *
+ *	i s c _ s e t _ l o g i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pickup any ISC_USER and ISC_PASSWORD
+ *	environment variables, and stuff them
+ *	into the dpb (if there is no user name
+ *	or password already referenced).
+ *
+ **************************************/
+#ifndef SUPERSERVER
+	TEXT *username, *password;
+	UCHAR *p, *end_dpb;
+	BOOLEAN user_seen = FALSE, password_seen = FALSE;
+	USHORT l;
+	int item;
+
+/* look for the environment variables */
+
+	username = getenv("ISC_USER");
+	password = getenv("ISC_PASSWORD");
+
+	if (!username && !password)
+		return;
+
+/* figure out whether the username or 
+   password have already been specified */
+
+	if (*dpb && *dpb_size)
+		for (p = *dpb, end_dpb = p + *dpb_size; p < end_dpb;) {
+			item = *p++;
+
+			if (item == gds_dpb_version1)
+				continue;
+
+			switch (item) {
+			case gds_dpb_sys_user_name:
+			case gds_dpb_user_name:
+				user_seen = TRUE;
+				break;
+
+			case gds_dpb_password:
+			case gds_dpb_password_enc:
+				password_seen = TRUE;
+				break;
+			}
+
+			/* get the length and increment past the parameter. */
+			l = *p++;
+			p += l;
+		}
+
+	if (username && !user_seen) {
+		if (password && !password_seen)
+			isc_expand_dpb(reinterpret_cast < char **>(dpb), dpb_size,
+						   gds_dpb_user_name, username, gds_dpb_password,
+						   password, 0);
+		else
+			isc_expand_dpb(reinterpret_cast < char **>(dpb), dpb_size,
+						   gds_dpb_user_name, username, 0);
+	}
+	else if (password && !password_seen)
+		isc_expand_dpb(reinterpret_cast < char **>(dpb), dpb_size,
+					   gds_dpb_password, password, 0);
+#endif
+}
+
+
+BOOLEAN API_ROUTINE isc_set_path(TEXT * file_name,
+								 USHORT file_length, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *	i s c _ s e t _ p a t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set a prefix to a filename based on 
+ *	the ISC_PATH user variable.
+ *
+ **************************************/
+	TEXT *pathname, *p;
+
+/* look for the environment variables to tack 
+   onto the beginning of the database path */
+
+	if (!(pathname = getenv("ISC_PATH")))
+		return FALSE;
+
+	if (!file_length)
+		file_length = strlen(file_name);
+	file_name[file_length] = 0;
+
+/* if the file already contains a remote node
+   or any path at all forget it */
+
+	for (p = file_name; *p; p++)
+		if (*p == ':' || *p == '/' || *p == '\\')
+			return FALSE;
+
+/* concatenate the strings */
+
+	strcpy(expanded_name, pathname);
+	strcat(expanded_name, file_name);
+
+	return TRUE;
+}
+
+
+void API_ROUTINE isc_set_single_user(
+									 UCHAR ** dpb,
+									 SSHORT * dpb_size, TEXT * single_user)
+{
+/****************************************
+ *
+ *      i s c _ s e t _ s i n g l e _ u s e r
+ *
+ ****************************************
+ *
+ * Functional description
+ *      Stuff the single_user flag into the dpb
+ *      if the flag doesn't already exist in the dpb.
+ *
+ ****************************************/
+
+	UCHAR *p, *end_dpb;
+	BOOLEAN single_user_seen = FALSE;
+	USHORT l;
+	int item;
+
+/* Discover if single user access has already been specified */
+
+	if ((*dpb) && (*dpb_size))
+		for (p = *dpb, end_dpb = p + *dpb_size; p < end_dpb;) {
+
+			item = *p++;
+
+			if (item == gds_dpb_version1)
+				continue;
+
+			switch (item) {
+
+			case isc_dpb_reserved:
+
+				single_user_seen = TRUE;
+				break;
+
+			}
+
+/* Get the length and increment past the parameter. */
+
+			l = *p++;
+			p += l;
+
+		}
+
+	if (!single_user_seen)
+		isc_expand_dpb(reinterpret_cast < char **>(dpb), dpb_size,
+					   isc_dpb_reserved, single_user, 0);
+
+}
+
+
+int API_ROUTINE gds__version(
+							 void **handle,
+							 void (*routine) (), void *user_arg)
+{
+/**************************************
+ *
+ *	g d s _ $ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Obtain and print information about a database.
+ *
+ **************************************/
+	STATUS status_vector[20], count;
+	USHORT buf_len, len, implementation, class_, ods_version,
+		ods_minor_version;
+	UCHAR item, l, *buf, buffer[256], *p;
+	TEXT *versions, *implementations,
+		*class_string, *implementation_string, s[128];
+	BOOLEAN redo;
+
+	if (!routine) {
+		routine = (void (*)()) ib_printf;
+		user_arg = "\t%s\n";
+	}
+
+	buf = buffer;
+	buf_len = sizeof(buffer);
+
+	do {
+		if (isc_database_info(status_vector,
+							  handle,
+							  sizeof(info),
+							  reinterpret_cast < char *>(const_cast <
+														 UCHAR * >(info)),
+							  buf_len, reinterpret_cast < char *>(buf))) {
+			if (buf != buffer)
+				gds__free((SLONG *) buf);
+			return FAILURE;
+		}
+
+		p = buf;
+		redo = FALSE;
+
+		while (!redo && *p != gds_info_end && p < buf + buf_len) {
+			item = *p++;
+			len = static_cast < USHORT > (gds__vax_integer(p, 2));
+			p += 2;
+			switch (item) {
+			case gds_info_version:
+				versions = (TEXT *) p;
+				break;
+
+			case gds_info_implementation:
+				implementations = (TEXT *) p;
+				break;
+
+			case gds_info_truncated:
+				redo = TRUE;
+				break;
+
+			default:
+				if (buf != buffer)
+					gds__free((SLONG *) buf);
+				return FAILURE;
+			}
+			p += len;
+		}
+
+		/* Our buffer wasn't large enough to hold all the information,
+		 * make a larger one and try again.
+		 */
+		if (redo) {
+			if (buf != buffer)
+				gds__free((SLONG *) buf);
+			buf_len += 1024;
+			buf = (UCHAR *) gds__alloc((SLONG) (sizeof(UCHAR) * buf_len));
+			/* FREE: freed within this module */
+			if (!buf)			/* NOMEM: */
+				return FAILURE;
+		}
+	} while (redo);
+
+	count = MIN(*versions, *implementations);
+	++versions;
+	++implementations;
+
+	while (--count >= 0) {
+		implementation = *implementations++;
+		class_ = *implementations++;
+		l = *versions++;
+		if (implementation >=
+			((sizeof(impl_implementation) / sizeof(impl_implementation[0])))
+			|| !(implementation_string =
+				 const_cast < char *>(impl_implementation[implementation])))
+			implementation_string = "**unknown**";
+		if (class_ >= ((sizeof(impl_class) / sizeof(impl_class[0]))) ||
+			!(class_string = const_cast < char *>(impl_class[class_])))
+			class_string = "**unknown**";
+		sprintf(s, "%s (%s), version \"%.*s\"",
+				implementation_string, class_string, l, versions);
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad function ptr type cast!")
+		reinterpret_cast < void (*) (...) > (*routine) (user_arg, s);
+		versions += l;
+	}
+
+	if (buf != buffer)
+		gds__free((SLONG *) buf);
+
+	if (get_ods_version(handle, &ods_version, &ods_minor_version) == FAILURE)
+		return FAILURE;
+
+	sprintf(s, "on disk structure version %d.%d", ods_version,
+			ods_minor_version);
+	reinterpret_cast < void (*) (...) > (*routine) (user_arg, s);
+
+	return SUCCESS;
+}
+
+
+void API_ROUTINE isc_format_implementation(
+										   USHORT implementation,
+										   USHORT ibuflen,
+										   TEXT * ibuf,
+USHORT class_, USHORT cbuflen, TEXT * cbuf)
+{
+/**************************************
+ *
+ *	i s c _ f o r m a t _ i m p l e m e n t a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert the implementation and class codes to strings
+ * 	by looking up their values in the internal tables.
+ *
+ **************************************/
+	int len;
+
+	if (ibuflen > 0) {
+		if (implementation >= ((sizeof(impl_implementation) /
+								sizeof(impl_implementation[0]))) ||
+			!(impl_implementation[implementation])) {
+			strncpy(ibuf, "**unknown**", ibuflen - 1);
+			ibuf[MIN(11, ibuflen - 1)] = '\0';
+		}
+		else {
+			strncpy(ibuf, impl_implementation[implementation], ibuflen - 1);
+			len = strlen(impl_implementation[implementation]);
+			ibuf[MIN(len, ibuflen - 1)] = '\0';
+		}
+	}
+
+	if (cbuflen > 0) {
+		if (class_ >= ((sizeof(impl_class) / sizeof(impl_class[0]))) ||
+			!(impl_class[class_])) {
+			strncpy(cbuf, "**unknown**", cbuflen - 1);
+			ibuf[MIN(11, cbuflen - 1)] = '\0';
+		}
+		else {
+			strncpy(cbuf, impl_class[class_], cbuflen - 1);
+			len = strlen(impl_class[class_]);
+			ibuf[MIN(len, cbuflen - 1)] = '\0';
+		}
+	}
+
+}
+
+
+U_IPTR API_ROUTINE isc_baddress(SCHAR * object)
+{
+/**************************************
+ *
+ *        i s c _ b a d d r e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Return the address of whatever is passed in
+ *
+ **************************************/
+
+	return (U_IPTR) object;
+}
+
+
+void API_ROUTINE isc_baddress_s(SCHAR * object, U_IPTR * address)
+{
+/**************************************
+ *
+ *        i s c _ b a d d r e s s _ s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Return the address of whatever is passed in
+ *
+ **************************************/
+
+	*address = (U_IPTR) object;
+}
+
+
+#ifdef VMS
+void API_ROUTINE gds__wake_init(void)
+{
+/**************************************
+ *
+ *	g d s _ $ w a k e _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up to be awakened by another process thru a blocking AST.
+ *
+ **************************************/
+
+	ISC_wake_init();
+}
+#endif
+
+
+int API_ROUTINE BLOB_close(BSTREAM * bstream)
+{
+/**************************************
+ *
+ *	B L O B _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a blob stream.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	USHORT l;
+
+	if (!bstream->bstr_blob)
+		return FALSE;
+
+	if (bstream->bstr_mode & BSTR_output) {
+		l = (bstream->bstr_ptr - bstream->bstr_buffer);
+		if (l > 0)
+			if (gds__put_segment(status_vector,
+								 GDS_REF(bstream->bstr_blob),
+								 l,
+								 GDS_VAL(bstream->bstr_buffer))) return FALSE;
+	}
+
+	gds__close_blob(status_vector, GDS_REF(bstream->bstr_blob));
+
+	if (bstream->bstr_mode & BSTR_alloc)
+		gds__free(bstream->bstr_buffer);
+
+	gds__free(bstream);
+
+	return TRUE;
+}
+
+
+int API_ROUTINE blob__display(
+							  SLONG blob_id[2],
+							  void **database,
+							  void **transaction,
+							  TEXT * field_name, SSHORT * name_length)
+{
+/**************************************
+ *
+ *	b l o b _ $ d i s p l a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	PASCAL callable version of EDIT_blob.
+ *
+ **************************************/
+	TEXT *p, *q, temp[32];
+	USHORT l;
+
+	if ((l = *name_length) != NULL) {
+		p = temp;
+		q = field_name;
+		do
+			*p++ = *q++;
+		while (--l);
+		*p = 0;
+	}
+
+	return BLOB_display(reinterpret_cast < GDS_QUAD * >(blob_id), *database,
+						*transaction, temp);
+}
+
+
+int API_ROUTINE BLOB_display(
+							 GDS_QUAD * blob_id,
+							 void *database,
+							 void *transaction, TEXT * field_name)
+{
+/**************************************
+ *
+ *	B L O B _ d i s p l a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a blob, dump it to a file, allow the user to read the
+ *	window. 
+ *
+ **************************************/
+
+/* On VMS use the system library routines to do the output */
+
+#ifdef VMS
+	return display(blob_id, database, transaction);
+#else
+
+/* On UNIX, just dump the file to ib_stdout */
+
+	return dump(blob_id, database, transaction, ib_stdout);
+
+#endif
+}
+
+
+int API_ROUTINE blob__dump(
+						   SLONG blob_id[2],
+						   void **database,
+						   void **transaction,
+						   TEXT * file_name, SSHORT * name_length)
+{
+/**************************************
+ *
+ *	b l o b _ $ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a pascal callable dump
+ *	into an internal dump call.
+ *
+ **************************************/
+	TEXT *p, *q, temp[129];
+	USHORT l;
+
+	if ((l = *name_length) != NULL) {
+		p = temp;
+		q = file_name;
+		do
+			*p++ = *q++;
+		while (--l);
+		*p = 0;
+	}
+
+	return BLOB_dump(reinterpret_cast < GDS_QUAD * >(blob_id), *database,
+					 *transaction, temp);
+}
+
+
+int API_ROUTINE BLOB_text_dump(
+							   GDS_QUAD * blob_id,
+							   void *database,
+							   void *transaction, SCHAR * file_name)
+{
+/**************************************
+ *
+ *	B L O B _ t e x t _ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a blob into a file.
+ *      This call does CR/LF translation on NT.
+ *
+ **************************************/
+	IB_FILE *file;
+	int ret;
+
+	if (!(file = ib_fopen(file_name, FOPEN_WRITE_TYPE_TEXT)))
+		return FALSE;
+
+	ret = dump(blob_id, database, transaction, file);
+	ib_fclose(file);
+
+	return ret;
+}
+
+
+int API_ROUTINE BLOB_dump(
+						  GDS_QUAD * blob_id,
+						  void *database,
+						  void *transaction, SCHAR * file_name)
+{
+/**************************************
+ *
+ *	B L O B _ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a blob into a file.
+ *
+ **************************************/
+	IB_FILE *file;
+	int ret;
+
+	if (!(file = ib_fopen(file_name, FOPEN_WRITE_TYPE)))
+		return FALSE;
+
+	ret = dump(blob_id, database, transaction, file);
+	ib_fclose(file);
+
+	return ret;
+}
+
+
+int API_ROUTINE blob__edit(
+						   SLONG blob_id[2],
+						   void **database,
+						   void **transaction,
+						   TEXT * field_name, SSHORT * name_length)
+{
+/**************************************
+ *
+ *	b l o b _ $ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a pascal callable edit
+ *	into an internal edit call.
+ *
+ **************************************/
+	TEXT *p, *q, temp[32];
+	USHORT l;
+
+	if ((l = *name_length) != NULL) {
+		p = temp;
+		q = field_name;
+		do
+			*p++ = *q++;
+		while (--l);
+		*p = 0;
+	}
+
+	return BLOB_edit(reinterpret_cast < GDS_QUAD * >(blob_id), *database,
+					 *transaction, temp);
+}
+
+
+int API_ROUTINE BLOB_edit(
+						  GDS_QUAD * blob_id,
+						  void *database,
+						  void *transaction, SCHAR * field_name)
+{
+/**************************************
+ *
+ *	B L O B _ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a blob, dump it to a file, allow the user to edit the
+ *	window, and dump the data back into a blob.  If the user
+ *	bails out, return FALSE, otherwise return TRUE.
+ *
+ **************************************/
+
+	return edit(blob_id, database, transaction, TRUE, field_name);
+}
+
+
+int API_ROUTINE BLOB_get(BSTREAM * bstream)
+{
+/**************************************
+ *
+ *	B L O B _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return the next byte of a blob.  If the blob is exhausted, return
+ *	EOF.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	if (!bstream->bstr_buffer)
+		return EOF;
+
+	while (1) {
+		if (--bstream->bstr_cnt >= 0)
+			return *bstream->bstr_ptr++ & 0377;
+
+		gds__get_segment(status_vector,
+						 GDS_REF(bstream->bstr_blob),
+						 reinterpret_cast <
+						 USHORT * >(GDS_REF(bstream->bstr_cnt)),
+						 bstream->bstr_length, GDS_VAL(bstream->bstr_buffer));
+		if (status_vector[1] && status_vector[1] != gds_segment) {
+			bstream->bstr_ptr = 0;
+			bstream->bstr_cnt = 0;
+			if (status_vector[1] != gds_segstr_eof)
+				gds__print_status(status_vector);
+			return EOF;
+		}
+		bstream->bstr_ptr = bstream->bstr_buffer;
+	}
+}
+
+
+int API_ROUTINE blob__load(
+						   SLONG blob_id[2],
+						   void **database,
+						   void **transaction,
+						   TEXT * file_name, SSHORT * name_length)
+{
+/**************************************
+ *
+ *	b l o b _ $ l o a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Translate a pascal callable load
+ *	into an internal load call.
+ *
+ **************************************/
+	TEXT *p, *q, temp[129];
+	USHORT l;
+
+	if ((l = *name_length) != NULL) {
+		p = temp;
+		q = file_name;
+		do
+			*p++ = *q++;
+		while (--l);
+		*p = 0;
+	}
+
+	return BLOB_load(reinterpret_cast < GDS_QUAD * >(blob_id), *database,
+					 *transaction, temp);
+}
+
+
+int API_ROUTINE BLOB_text_load(
+							   GDS_QUAD * blob_id,
+							   void *database,
+							   void *transaction, TEXT * file_name)
+{
+/**************************************
+ *
+ *	B L O B _ t e x t _ l o a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Load a  blob with the contents of a file.  
+ *      This call does CR/LF translation on NT.
+ *      Return TRUE is successful.
+ *
+ **************************************/
+	IB_FILE *file;
+	int ret;
+
+	if (!(file = ib_fopen(file_name, FOPEN_READ_TYPE_TEXT)))
+		return FALSE;
+
+	ret = load(blob_id, database, transaction, file);
+
+	ib_fclose(file);
+
+	return ret;
+}
+
+
+int API_ROUTINE BLOB_load(
+						  GDS_QUAD * blob_id,
+						  void *database, void *transaction, TEXT * file_name)
+{
+/**************************************
+ *
+ *	B L O B _ l o a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Load a blob with the contents of a file.  Return TRUE is successful.
+ *
+ **************************************/
+	IB_FILE *file;
+	int ret;
+
+	if (!(file = ib_fopen(file_name, FOPEN_READ_TYPE)))
+		return FALSE;
+
+	ret = load(blob_id, database, transaction, file);
+
+	ib_fclose(file);
+
+	return ret;
+}
+
+
+BSTREAM *API_ROUTINE Bopen(GDS_QUAD * blob_id,
+						   void *database, void *transaction, SCHAR * mode)
+{
+/**************************************
+ *
+ *	B o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a blob-stream block.
+ *
+ **************************************/
+	SLONG *blob;
+	STATUS status_vector[20];
+	BSTREAM *bstream;
+	USHORT bpb_length;
+	UCHAR *bpb;
+
+	bpb_length = 0;
+	bpb = NULL;
+
+	blob = NULL;
+
+	if (*mode == 'w' || *mode == 'W') {
+		if (gds__create_blob2(status_vector,
+							  GDS_REF(database),
+							  GDS_REF(transaction),
+							  reinterpret_cast < void **>(GDS_REF(blob)),
+							  GDS_VAL(blob_id),
+							  bpb_length,
+							  reinterpret_cast < char *>(bpb))) return NULL;
+	}
+	else if (*mode == 'r' || *mode == 'R') {
+		if (gds__open_blob2(status_vector,
+							GDS_REF(database),
+							GDS_REF(transaction),
+							reinterpret_cast < void **>(GDS_REF(blob)),
+							GDS_VAL(blob_id),
+							bpb_length,
+							reinterpret_cast < char *>(bpb))) return NULL;
+	}
+	else
+		return NULL;
+
+	bstream = BLOB_open((int *) blob, (SCHAR *) 0, 0);
+
+	if (*mode == 'w' || *mode == 'W') {
+		bstream->bstr_mode |= BSTR_output;
+		bstream->bstr_cnt = bstream->bstr_length;
+		bstream->bstr_ptr = bstream->bstr_buffer;
+	}
+	else {
+		bstream->bstr_cnt = 0;
+		bstream->bstr_mode |= BSTR_input;
+	}
+
+	return bstream;
+}
+
+
+BSTREAM *API_ROUTINE BLOB_open(void *blob, SCHAR * buffer, int length)
+{
+/**************************************
+ *
+ *	B L O B _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a blob-stream block.
+ *
+ **************************************/
+	BSTREAM *bstream;
+
+	if (!blob)
+		return NULL;
+
+	bstream = (BSTREAM *) gds__alloc((SLONG) sizeof(BSTREAM));
+/* FREE: This structure is freed by BLOB_close */
+	if (!bstream)				/* NOMEM: */
+		return NULL;
+
+#ifdef DEBUG_gds__alloc
+/* This structure is handed to the user process, we depend on the client
+ * to call BLOB_close() for it to be freed.
+ */
+	gds_alloc_flag_unfreed((void *) bstream);
+#endif
+
+	bstream->bstr_blob = blob;
+	bstream->bstr_length = (length) ? length : 512;
+	bstream->bstr_mode = 0;
+	bstream->bstr_cnt = 0;
+	bstream->bstr_ptr = 0;
+
+	if (!(bstream->bstr_buffer = buffer)) {
+		bstream->bstr_buffer = (SCHAR *)
+			gds__alloc((SLONG) (sizeof(SCHAR) * bstream->bstr_length));
+		/* FREE: This structure is freed in BLOB_close() */
+		if (!bstream->bstr_buffer) {	/* NOMEM: */
+			gds__free(bstream);
+			return NULL;
+		}
+#ifdef DEBUG_gds__alloc
+		/* This structure is handed to the user process, we depend on the client
+		 * to call BLOB_close() for it to be freed.
+		 */
+		gds_alloc_flag_unfreed((void *) bstream->bstr_buffer);
+#endif
+
+		bstream->bstr_mode |= BSTR_alloc;
+	}
+
+	return bstream;
+}
+
+
+int API_ROUTINE BLOB_put(SCHAR x, BSTREAM * bstream)
+{
+/**************************************
+ *
+ *	B L O B _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a segment to a blob. First
+ *	stick in the final character, then
+ *	compute the length and send off the
+ *	segment.  Finally, set up the buffer
+ *	block and retun TRUE if all is well. 
+ *
+ **************************************/
+	STATUS status_vector[20];
+	USHORT l;
+
+	if (!bstream->bstr_buffer)
+		return FALSE;
+
+	*bstream->bstr_ptr++ = (x & 0377);
+	l = (bstream->bstr_ptr - bstream->bstr_buffer);
+	if (gds__put_segment(status_vector,
+						 GDS_REF(bstream->bstr_blob),
+						 l, GDS_VAL(bstream->bstr_buffer))) {
+		return FALSE;
+	}
+	bstream->bstr_cnt = bstream->bstr_length;
+	bstream->bstr_ptr = bstream->bstr_buffer;
+	return TRUE;
+}
+
+
+#ifdef VMS
+static display(GDS_QUAD * blob_id, void *database, void *transaction)
+{
+/**************************************
+ *
+ *	d i s p l a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display a file on VMS
+ *
+ **************************************/
+	SCHAR buffer[256], *p;
+	SSHORT short_length, l;
+	STATUS status_vector[20];
+	int *blob;
+	struct dsc$descriptor_s desc;
+
+/* Open the blob.  If it failed, what the hell -- just return failure */
+
+	blob = NULL;
+	if (gds__open_blob(status_vector,
+					   GDS_REF(database),
+					   GDS_REF(transaction), GDS_REF(blob), GDS_VAL(blob_id))) {
+		gds__print_status(status_vector);
+		return FALSE;
+	}
+
+/* Copy data from blob to scratch file */
+
+	short_length = sizeof(buffer);
+
+	for (;;) {
+		gds__get_segment(status_vector,
+						 GDS_REF(blob), GDS_REF(l), short_length, buffer);
+		if (status_vector[1] && status_vector[1] != gds_segment) {
+			if (status_vector[1] != gds_segstr_eof)
+				gds__print_status(status_vector);
+			break;
+		}
+		buffer[l] = 0;
+		ISC_make_desc(buffer, &desc, 0);
+		lib$put_output(&desc);
+	}
+
+/* Close the blob */
+
+	gds__close_blob(status_vector, GDS_REF(blob));
+
+	return TRUE;
+}
+#endif /* VMS */
+
+
+static int dump(
+				GDS_QUAD * blob_id,
+				void *database, void *transaction, IB_FILE * file)
+{
+/**************************************
+ *
+ *	d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a blob into a file.
+ *
+ **************************************/
+	SCHAR buffer[256], *p;
+	SSHORT short_length, l;
+	STATUS status_vector[20];
+	int *blob;
+	USHORT bpb_length;
+	UCHAR *bpb;
+
+	bpb_length = 0;
+	bpb = NULL;
+
+/* Open the blob.  If it failed, what the hell -- just return failure */
+
+	blob = NULL;
+	if (gds__open_blob2(status_vector,
+						GDS_REF(database),
+						GDS_REF(transaction),
+						reinterpret_cast < void **>(GDS_REF(blob)),
+						GDS_VAL(blob_id),
+						bpb_length, reinterpret_cast < char *>(bpb))) {
+		gds__print_status(status_vector);
+		return FALSE;
+	}
+
+/* Copy data from blob to scratch file */
+
+	short_length = sizeof(buffer);
+
+	for (;;) {
+		gds__get_segment(status_vector,
+						 reinterpret_cast < void **>(GDS_REF(blob)),
+						 reinterpret_cast < USHORT * >(GDS_REF(l)),
+						 short_length, buffer);
+		if (status_vector[1] && status_vector[1] != gds_segment) {
+			if (status_vector[1] != gds_segstr_eof)
+				gds__print_status(status_vector);
+			break;
+		}
+		p = buffer;
+		if (l)
+			do
+				ib_fputc(*p++, file);
+			while (--l);
+	}
+
+/* Close the blob */
+
+	gds__close_blob(status_vector,
+					reinterpret_cast < void **>(GDS_REF(blob)));
+
+	return TRUE;
+}
+
+
+static int edit(
+				GDS_QUAD * blob_id,
+				void *database,
+				void *transaction, SSHORT type, SCHAR * field_name)
+{
+/**************************************
+ *
+ *	e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a blob, dump it to a file, allow the user to edit the
+ *	window, and dump the data back into a blob.  If the user
+ *	bails out, return FALSE, otherwise return TRUE.
+ *
+ *	If the field name coming in is too big, truncate it.
+ *
+ **************************************/
+	TEXT file_name[50], *p, *q;
+#if (defined PC_PLATFORM || defined NETWARE_386 || defined WIN_NT)
+	TEXT buffer[9];
+#else
+	TEXT buffer[25];
+#endif
+	IB_FILE *file;
+#if defined FREEBSD || defined NETBSD
+
+	int fd;
+#endif
+
+	if (!(q = field_name))
+		q = "gds_edit";
+
+	for (p = buffer; *q && p < buffer + sizeof(buffer) - 1; q++)
+		if (*q == '$')
+			*p++ = '_';
+		else
+			*p++ = LOWER7(*q);
+	*p = 0;
+
+/* Moved this out of #ifndef mpexl to get mktemp/mkstemp to work for Linux
+   This has been done in the inprise tree some days ago.
+   Would have saved me a lot of time, if I had seen this earlier :-(
+   FSG 15.Oct.2000
+*/
+	sprintf(file_name, "%sXXXXXX", buffer);
+
+#if defined FREEBSD || defined NETBSD
+	fd = mkstemp(file_name);
+	if (!(file = fdopen(fd, "w+"))) {
+		close(fd);
+		return FALSE;
+	}
+#else
+	MKTEMP(file_name, "XXXXXXX");
+	if (!(file = ib_fopen(file_name, FOPEN_WRITE_TYPE)))
+		return FALSE;
+	ib_fclose(file);
+
+	if (!(file = ib_fopen(file_name, FOPEN_WRITE_TYPE_TEXT)))
+		return FALSE;
+#endif
+
+	if (!dump(blob_id, database, transaction, file)) {
+		ib_fclose(file);
+		unlink(file_name);
+		return FALSE;
+	}
+
+	ib_fclose(file);
+
+	if (type = gds__edit(file_name, type)) {
+
+		if (!(file = ib_fopen(file_name, FOPEN_READ_TYPE_TEXT))) {
+			unlink(file_name);
+			return FALSE;
+		}
+
+		load(blob_id, database, transaction, file);
+
+		ib_fclose(file);
+
+	}
+
+	unlink(file_name);
+
+	return type;
+}
+
+
+static int get_ods_version(
+						   void **handle,
+						   USHORT * ods_version, USHORT * ods_minor_version)
+{
+/**************************************
+ *
+ *	g e t _ o d s _ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Obtain information about a on-disk structure (ods) versions
+ *	of the database.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	USHORT n, l;
+	UCHAR item, buffer[16], *p;
+
+	isc_database_info(status_vector,
+					  handle,
+					  sizeof(ods_info),
+					  reinterpret_cast < char *>(const_cast <
+												 UCHAR * >(ods_info)),
+					  sizeof(buffer), reinterpret_cast < char *>(buffer));
+
+	if (status_vector[1])
+		return FAILURE;
+
+	p = buffer;
+
+	while ((item = *p++) != gds_info_end) {
+		l = static_cast < USHORT > (gds__vax_integer(p, 2));
+		p += 2;
+		n = static_cast < USHORT > (gds__vax_integer(p, l));
+		p += l;
+		switch (item) {
+		case gds_info_ods_version:
+			*ods_version = n;
+			break;
+
+		case gds_info_ods_minor_version:
+			*ods_minor_version = n;
+			break;
+
+		default:
+			return FAILURE;
+		}
+	}
+
+	return SUCCESS;
+}
+
+
+
+static int load(
+				GDS_QUAD * blob_id,
+				void *database, void *transaction, IB_FILE * file)
+{
+/**************************************
+ *
+ *     l o a d  
+ *
+ **************************************
+ *
+ * Functional description
+ *      Load a blob from a file.
+ *
+ **************************************/
+	TEXT buffer[512], *p, *buffer_end;
+	SSHORT l, c;
+	STATUS status_vector[20];
+	int *blob;
+
+/* Open the blob.  If it failed, what the hell -- just return failure */
+
+	blob = NULL;
+	if (gds__create_blob(status_vector,
+						 GDS_REF(database),
+						 GDS_REF(transaction),
+						 reinterpret_cast < void **>(GDS_REF(blob)),
+						 GDS_VAL(blob_id))) {
+		gds__print_status(status_vector);
+		return FALSE;
+	}
+
+/* Copy data from file to blob.  Make up boundaries at end of of line. */
+
+	p = buffer;
+	buffer_end = buffer + sizeof(buffer);
+
+	for (;;) {
+		c = ib_fgetc(file);
+		if (ib_feof(file))
+			break;
+		*p++ = static_cast < TEXT > (c);
+		if ((c != '\n') && p < buffer_end)
+			continue;
+		l = p - buffer;
+		if (gds__put_segment
+			(status_vector, reinterpret_cast < void **>(GDS_REF(blob)), l,
+			 buffer)) {
+			gds__print_status(status_vector);
+			gds__close_blob(status_vector,
+							reinterpret_cast < void **>(GDS_REF(blob)));
+			return FALSE;
+		}
+		p = buffer;
+	}
+
+	if ((l = p - buffer) != NULL)
+		if (gds__put_segment
+			(status_vector, reinterpret_cast < void **>(GDS_REF(blob)), l,
+			 buffer)) {
+			gds__print_status(status_vector);
+			gds__close_blob(status_vector,
+							reinterpret_cast < void **>(GDS_REF(blob)));
+			return FALSE;
+		}
+
+	gds__close_blob(status_vector,
+					reinterpret_cast < void **>(GDS_REF(blob)));
+
+	return TRUE;
+}
+
+
+} // extern "C"
diff --git a/src/jrd/utl_proto.h b/src/jrd/utl_proto.h
new file mode 100644
index 0000000000..9cd281f25b
--- /dev/null
+++ b/src/jrd/utl_proto.h
@@ -0,0 +1,86 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		utl_proto.h
+ *	DESCRIPTION:	Prototype header file for utl.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_UTL_PROTO_H_
+#define _JRD_UTL_PROTO_H_
+
+#ifndef INCLUDE_FB_TYPES_H
+#include "../include/fb_types.h"
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int API_ROUTINE gds__blob_size(SLONG *, SLONG *, SLONG *, SLONG *);
+extern void API_ROUTINE isc_expand_dpb(SCHAR **, SSHORT *, ...);
+extern int API_ROUTINE gds__edit(TEXT *, USHORT);
+extern SLONG API_ROUTINE gds__event_block(SCHAR **, SCHAR **, USHORT, ...);
+extern USHORT API_ROUTINE gds__event_block_a(SCHAR **, SCHAR **, SSHORT,
+											 SCHAR **);
+extern void API_ROUTINE gds__event_block_s(SCHAR **, SCHAR **, SSHORT,
+										   SCHAR **, SSHORT *);
+extern void API_ROUTINE gds__event_counts(ULONG *, SSHORT, SCHAR *, SCHAR *);
+extern void API_ROUTINE gds__map_blobs(int *, int *);
+extern void API_ROUTINE gds__set_debug(int);
+extern void API_ROUTINE isc_set_login(UCHAR **, SSHORT *);
+extern BOOLEAN API_ROUTINE isc_set_path(TEXT *, USHORT, TEXT *);
+extern void API_ROUTINE isc_set_single_user(UCHAR **, SSHORT *, TEXT *);
+extern int API_ROUTINE gds__version(void **, FPTR_VOID, void *);
+extern void API_ROUTINE isc_format_implementation(USHORT, USHORT, TEXT *,
+												  USHORT, USHORT, TEXT *);
+extern U_IPTR API_ROUTINE isc_baddress(SCHAR *);
+extern void API_ROUTINE isc_baddress_s(SCHAR *, U_IPTR *);
+extern int API_ROUTINE BLOB_close(struct bstream *);
+extern int API_ROUTINE blob__display(SLONG *, void **, void **, TEXT *,
+									 SSHORT *);
+extern int API_ROUTINE BLOB_display(GDS_QUAD *, void *, void *, TEXT *);
+extern int API_ROUTINE blob__dump(SLONG *, void **, void **, TEXT *,
+								  SSHORT *);
+extern int API_ROUTINE BLOB_dump(GDS_QUAD *, void *, void *, SCHAR *);
+extern int API_ROUTINE blob__edit(SLONG *, void **, void **, TEXT *,
+								  SSHORT *);
+extern int API_ROUTINE BLOB_edit(GDS_QUAD *, void *, void *, SCHAR *);
+extern int API_ROUTINE BLOB_get(struct bstream *);
+extern int API_ROUTINE blob__load(SLONG *, void **, void **, TEXT *,
+								  SSHORT *);
+extern int API_ROUTINE BLOB_load(GDS_QUAD *, void *, void *, TEXT *);
+extern int API_ROUTINE BLOB_text_dump(GDS_QUAD *, void *, void *, SCHAR *);
+extern int API_ROUTINE BLOB_text_load(GDS_QUAD *, void *, void *, TEXT *);
+extern struct bstream *API_ROUTINE Bopen(GDS_QUAD *, void *, void *, SCHAR *);
+extern struct bstream *API_ROUTINE BLOB_open(void *, SCHAR *, int);
+extern int API_ROUTINE BLOB_put(SCHAR, struct bstream *);
+
+#ifdef VMS
+extern STATUS API_ROUTINE gds__attach_database_d(STATUS *,
+												 struct dsc$descriptor_s *,
+												 int, SSHORT, SCHAR *,
+												 SSHORT);
+extern void API_ROUTINE gds__wake_init(void);
+#endif
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_UTL_PROTO_H_ */
diff --git a/src/jrd/utls.def b/src/jrd/utls.def
new file mode 100644
index 0000000000..3ccea10015
--- /dev/null
+++ b/src/jrd/utls.def
@@ -0,0 +1,73 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+; 
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+; 
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+; 
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;------------------------------------------------------------
+;  UTLS DLL MODULE DEFINITION FILE
+;------------------------------------------------------------
+
+LIBRARY     UTLS
+
+DESCRIPTION 'EXTERNAL UTILITIES INTERBASE MODULE'
+CODE MOVEABLE DISCARDABLE
+DATA MOVEABLE SINGLE
+EXPORTS
+
+; ../DSQL/BLOB.C
+	_ISC_BLOB_DEFAULT_DESC         @2
+	_ISC_BLOB_GEN_BPB              @3
+	_ISC_BLOB_LOOKUP_DESC          @4
+	_ISC_BLOB_SET_DESC             @5
+
+; PERF.C
+	_PERF_FORMAT                   @6
+	_PERF_GET_INFO                 @7
+	_PERF_REPORT                   @8
+
+; UTL.C
+	_BLOB_CLOSE                    @9
+	_BLOB_GET                      @10
+	_BLOB__DISPLAY                 @11
+	_BLOB_DISPLAY                  @12
+	_BLOB_DUMP                     @13
+	_BLOB__DUMP                    @14
+	_BLOB_EDIT                     @15
+	_BLOB__EDIT                    @16
+	_BLOB_LOAD                     @17
+	_BLOB__LOAD                    @18
+	_BLOB_OPEN                     @19
+	_BLOB_PUT                      @20
+	_BOPEN                         @21
+
+	_GDS__BLOB_SIZE                @22
+	_GDS__EDIT                     @23
+	_GDS__EVENT_BLOCK              @24
+	_GDS__EVENT_BLOCK_A            @25
+	_GDS__EVENT_BLOCK_S            @26
+	_GDS__EVENT_COUNTS             @27
+	_GDS__VERSION                  @28
+
+	_ISC_BADDRESS                  @29
+	_ISC_BADDRESS_S                @30
+	_ISC_EXPAND_DPB                @31
+	_ISC_FORMAT_IMPLEMENTATION     @32
+	_ISC_SET_LOGIN                 @33
+	_ISC_SET_PATH                  @34
+	_ISC_SET_SINGLE_USER           @35
+
+
+;-------------------------------------------
+		WEP                            	@1
+
diff --git a/src/jrd/v2_triggers.gdl b/src/jrd/v2_triggers.gdl
new file mode 100644
index 0000000000..614ee31a38
--- /dev/null
+++ b/src/jrd/v2_triggers.gdl
@@ -0,0 +1,27 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+modify database "yachts.lnk";
+
+modify relation rdb$relations
+    add field rdb$store_trigger based on rdb$trigger_blr,
+    add field rdb$store_trigger_source based on rdb$source,
+    add field rdb$modify_trigger based on rdb$trigger_blr,
+    add field rdb$modify_trigger_source based on rdb$source,
+    add field rdb$erase_trigger based on rdb$trigger_blr,
+    add field rdb$erase_trigger_source based on rdb$source;
diff --git a/src/jrd/val.cpp b/src/jrd/val.cpp
new file mode 100644
index 0000000000..7183ffe89a
--- /dev/null
+++ b/src/jrd/val.cpp
@@ -0,0 +1,2074 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		val.c
+ *	DESCRIPTION:	Validation and garbage collection
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#ifdef INTERNAL_DOCUMENTATION
+/*
+
+                      Database Validation and Repair
+                      ==============================
+ 
+                              Deej Bredenberg
+                              March 16, 1994
+			Updated: 1996-Dec-11 David Schnepper 
+
+
+I. TERMINOLOGY 
+
+   The following terminology will be helpful to understand in this discussion:
+
+   record fragment: The smallest recognizable piece of a record; multiple 
+                    fragments can be linked together to form a single version.
+   record version:  A single version of a record representing an INSERT, UPDATE
+                    or DELETE by a particular transaction (note that deletion 
+                    of a record causes a new version to be stored as a
+                    deleted stub).
+   record chain:    A linked list of record versions chained together to
+                    represent a single logical "record".
+   slot:            The line number of the record on page.  A
+                    variable-length array on each data page stores the 
+                    offsets to the stored records on 
+                    that page, and the slot is an index into that array.
+
+   For more information on data page format, see my paper on the internals
+   of the InterBase Engine.
+
+II. COMMAND OPTIONS
+
+   Here are all the options for gfix which have to do with validation, and 
+   what they do:
+
+   gfix switch   dpb parameter      
+   -----------   -------------      
+
+   -validate    isc_dpb_verify  (gds__dpb_verify prior to 4.0)
+
+    Invoke validation and repair.  All other switches modify this switch.
+
+   -full        isc_dpb_records       
+
+    Visit all records.  Without this switch, only page structures will be
+    validated, which does involve some limited checking of records.     
+
+   -mend        isc_dpb_repair     
+
+    Attempts to mend the database where it can to make it viable for reading;
+    does not guarantee to retain data.
+
+   -no_update   isc_dpb_no_update  
+
+    Specifies that orphan pages not be released, and allocated pages not 
+    be marked in use when found to be free.  Actually a misleading switch
+    name since -mend will update the database, but if -mend is not specified 
+    and -no_update is specified, then no updates will occur to the database.
+
+   -ignore      isc_dpb_ignore
+
+    Tells the engine to ignore checksums in fetching pages.  Validate will 
+    report on the checksums, however.  Should probably not even be a switch,
+    it should just always be in effect.  Otherwise checksums will disrupt  
+    the validation.  Customers should be advised to always use it.
+    NOTE: Unix 4.0 (ODS 8.0) does not have on-page checksums, and all
+          platforms under ODS 9.0 (NevaStone & above) does not have
+          checksums.
+
+III.  OPERATION
+
+   Validation runs only with exclusive access to the database, to ensure
+   that database structures are not modified during validation.  On attach,
+   validate attempts to obtain an exclusive lock on the database.
+
+   If other attachments are already made locally or through the same multi-
+   client server, validate gives up with the message:
+
+   "Lock timeout during wait transaction
+   -- Object "database_filename.gdb" is in use"
+
+   If other processes or servers are attached to the database, validate 
+   waits for the exclusive lock on the database (i.e. waits for every 
+   other server to get out of the database).
+
+   NOTE: Ordinarily when processes gain exclusive access to the database, 
+   all active transactions are marked as dead on the Transaction Inventory 
+   Pages.  This feature is turned off for validation.
+
+IV. PHASES OF VALIDATION
+
+   There are two phases to the validation, the first of which is a walk through
+   the entire database (described below).  During this phase, all pages visited 
+   are stored in a bitmap for later use during the garbage collection phase.  
+ 
+   A. Visiting Pages
+
+      During the walk-through phase, any page that is fetched goes through a
+      basic validation:
+
+      1. Page Type Check
+
+         Each page is check against its expected type.  If the wrong type
+         page is found in the page header, the message:
+
+         "Page xxx wrong type (expected xxx encountered xxx)"
+
+         is returned.  This could represent a) a problem with the database 
+         being overwritten, b) a bug with InterBase page allocation mechanisms 
+         in which one page was written over another, or c) a page which was 
+         allocated but never written to disk (most likely if the encountered
+         page type was 0).
+
+         The error does not tell you what page types are what, so here
+         they are for reference:
+
+         #define pag_undefined     0    // purposely undefined
+         #define pag_header        1    // Database header page
+         #define pag_pages         2    // Page inventory page
+         #define pag_transactions  3    // Transaction inventory page
+         #define pag_pointer       4    // Pointer page
+         #define pag_data          5    // Data page
+         #define pag_root          6    // Index root page
+         #define pag_index         7    // Index (B-tree) page
+         #define pag_blob          8    // Blob data page
+         #define pag_ids           9    // Gen-ids
+         #define pag_log           10   // Write ahead log page: 4.0 only
+
+      2. Checksum
+
+         If -ignore is specified, the checksum is specifically checked in
+         validate instead of in the engine.  If the checksum is found to 
+         be wrong, the error:
+ 
+         "Checksum error on page xxx"
+
+         is returned.  This is harmless when found by validate, and the page
+         will still continue to be validated--if data structures can be 
+         validated on page, they will be.  If -mend is specified, the page 
+         will be marked for write, so that when the page is written to disk 
+         at the end of validation the checksum will automatically be 
+         recalculated.
+
+         Note: For 4.0 only Windows & NLM platforms keep page checksums.
+
+      3. Revisit
+
+         We check each page fetched against the page bitmap to make sure we
+         have not visited already.  If we have, the error:
+ 
+          "Page xxx doubly allocated"
+
+         is returned.  This should catch the case when a page of the same type 
+         is allocated for two different purposes.
+
+	 Data pages are not checked with the Revisit mechanism - when walking
+         record chains and fragments they are frequently revisited.
+
+   B. Garbage Collection
+
+      During this phase, the Page Inventory (PIP) pages are checked against the
+      bitmap of pages visited.  Two types of errors can be detected during
+      this phase.
+
+      1. Orphan Pages
+
+         If any pages in the page inventory were not visited 
+         during validation, the following error will be returned:
+
+         "Page xxx is an orphan"
+
+         If -no_update was not specified, the page will be marked as free
+         on the PIP.
+
+      2. Improperly Freed Pages
+
+         If any pages marked free in the page inventory were in fact 
+         found to be in use during validation, the following error 
+         will be returned:
+ 
+         "Page xxx is use but marked free"  (sic)
+     
+         If -no_update was not specified, the page will be marked in use
+         on the PIP.
+
+      NOTE:  If errors were found during the validation phase, no changes will
+      be made to the PIP pages.  This assumes that we did not have a chance to
+      visit all the pages because invalid structures were detected.
+
+V. WALK-THROUGH PHASE
+
+   A. Page Fetching
+
+      In order to ensure that all pages are fetched during validation, the
+      following pages are fetched just for the most basic validation:
+
+      1. The header page (and for 4.0 any overflow header pages).
+      2. Log pages for after-image journalling (4.0 only).
+      3. Page Inventory pages.
+      4. Transaction Inventory pages
+
+         If the system relation RDB$PAGES could not be read or did not
+         contain any TIP pages, the message: 
+
+         "Transaction inventory pages lost"
+ 
+         will be returned.  If a particular page is missing from the 
+         sequence as established by RDB$PAGE_SEQUENCE, then the following
+         message will be returned:
+                                        
+         "Transaction inventory page lost, sequence xxx"
+
+         If -mend is specified, then a new TIP will be allocated on disk and 
+         stored in RDB$PAGES in the proper sequence.  All transactions which 
+         would have been on that page are assumed committed.
+ 
+         If a TIP page does not point to the next one in sequence, the
+         following message will be returned:
+
+         "Transaction inventory pages confused, sequence xxx"
+
+      5. Generator pages as identified in RDB$PAGES.
+   
+   B. Relation Walking
+
+      All the relations in the database are walked.  For each relation, all
+      indices defined on the relation are fetched, and all pointer and 
+      data pages associated with the relation are fetched (see below).
+
+      But first, the metadata is scanned from RDB$RELATIONS to fetch the
+      format of the relation.  If this information is missing or 
+      corrupted the relation cannot be walked.  
+      If any bugchecks are encountered from the scan, the following 
+      message is returned:
+
+      "bugcheck during scan of table xxx (<table_name>)"
+
+      This will prevent any further validation of the relation.
+
+      NOTE: For views, the metadata is scanned but nothing further is done.
+
+   C. Index Walking
+
+      Prior to 4.5 (NevaStone) Indices were walked before data pages.
+      In NevaStone Index walking was moved to after data page walking.
+      Please refer to the later section entitled "Index Walking".
+
+   D. Pointer Pages
+
+      All the pointer pages for the relation are walked.  As they are walked
+      all child data pages are walked (see below).  If a pointer page cannot 
+      be found, the following message is returned:
+
+      "Pointer page (sequence xxx) lost"
+
+      If the pointer page is not part of the relation we expected or
+      if it is not marked as being in the proper sequence, the following
+      message is returned:
+                       
+      "Pointer page xxx is inconsistent"
+ 
+      If each pointer page does not point to the next pointer page as
+      stored in the RDB$PAGE_SEQUENCE field in RDB$PAGES, the following 
+      error is returned:
+
+      "Pointer page (sequence xxx) inconsistent"
+
+   E. Data Pages
+
+      Each of the data pages referenced by the pointer page is fetched.
+      If any are found to be corrupt at the page level, and -mend is 
+      specified, the page is deleted from its pointer page.  This will 
+      cause a whole page of data to be lost.
+
+      The data page is corrupt at the page level if it is not marked as
+      part of the current relation, or if it is not marked as being in 
+      the proper sequence.  If either of these conditions occurs, the 
+      following error is returned:
+
+      "Data page xxx (sequence xxx) is confused"
+
+   F. Slot Validation
+
+      Each of the slots on the data page is looked at, up to the count
+      of records stored on page.  If the slot is non-zero, the record 
+      fragment at the specified offset is retrieved.  If the record
+      begins before the end of the slots array, or continues off the
+      end of the page, the following error is returned:
+
+      "Data page xxx (sequence xxx), line xxx is bad"
+
+      where "line" means the slot number.  
+  
+      NOTE: If this condition is encountered, the data page is considered 
+      corrupt at the page level (and thus will be removed from its
+      pointer page if -mend is specified).
+                                          
+   G. Record Validation
+                       
+      The record at each slot is looked at for basic validation, regardless
+      of whether -full is specified or not.  The fragment could be any of the 
+      following:
+
+      1.  Back Version
+
+          If the fragment is marked as a back version, then it is skipped.  
+          It will be fetched as part of its record.
+
+      2.  Corrupt
+
+          If the fragment is determined to be corrupt for any reason, and -mend 
+          is specified, then the record header is marked as damaged.
+
+      3.  Damaged
+
+          If the fragment is marked damaged already from a previous visit or
+          a previous validation, the following error is returned:
+      
+          "Record xxx is marked as damaged"
+
+          where xxx is the record number.  
+
+      4.  Bad Transaction 
+
+          If the record is marked with a transaction id greater than the last 
+          transaction started in the database, the following error is returned:
+                                         
+          "Record xxx has bad transaction xxx"
+
+   H. Record Walking
+
+      If -full is specified, and the fragment is the first fragment in a logical
+      record, then the record at this slot number is fully retrieved.  This
+      involves retrieving all versions, and all fragments of each 
+      particular version.  In other 
+      words, the entire logical record will be retrieved.
+
+      1. Back Versions
+
+         If there are any back versions, they are visited at this point.  
+         If the back version is on another page, the page is fetched but 
+         not validated since it will be walked separately.  
+
+         If the slot number of the back version is greater than the max
+         records on page, or there is no record stored at that slot number, 
+         or it is a blob record, or it is a record fragment, or the 
+         fragment itself is invalid, the following error 
+         message is returned:
+
+         "Chain for record xxx is broken"
+
+      2. Incomplete
+
+         If the record header is marked as incomplete, it means that there
+         are additional fragments to be fetched--the record was too large 
+         to be stored in one slot.
+         A pointer is stored in the record to the next fragment in the list.
+
+         For fragmented records, all fragments are fetched to form a full
+         record version.  If any of the fragments is not in a valid position,
+         or is not the correct length, the following error is returned:
+
+         "Fragmented record xxx is corrupt"      
+   
+      Once the full record has been retrieved, the length of the format is
+      checked against the expected format stored in RDB$FORMATS (the 
+      format number is stored with the record, representing the exact 
+      format of the relation at the time the record was stored.)  
+      If the length of the reconstructed record does not match
+      the expected format length, the following error is returned:
+
+      "Record xxx is wrong length"
+
+      For delta records (record versions which represent updates to the record)
+      this check is not made.
+
+   I. Blob Walking 
+
+      If the slot on the data page points to a blob record, then the blob
+      is fetched (even without -full).  This has several cases, corresponding 
+      to the various blob levels.  (See the "Engine Internals" document for a 
+      discussion of blob levels.)
+             
+      Level                      Action
+      -----   ----------------------------------------------------------------- 
+        0     These are just records on page, and no further validation is done.
+        1     All the pages pointed to by the blob record are fetched and
+              validated in sequence.
+        2     All pages pointed to by the blob pointer pages are fetched and 
+              validated.
+        3     The blob page is itself a blob pointer page; all its children
+              are fetched and validated.
+
+      For each blob page found, some further validation is done.  If the
+      page does not point back to the lead page, the following error 
+      is returned:
+
+      "Warning: blob xxx appears inconsistent"
+   
+      where xxx corresponds to the blob record number.  If any of the blob pages
+      are not marked in the sequence we expect them to be in, the following
+      error is returned:
+ 
+      "Blob xxx is corrupt"
+ 
+      Tip: the message for the same error in level 2 or 3 blobs is slightly
+           different:
+
+      "Blob xxx corrupt"
+
+      If we have lost any of the blob pages in the sequence, the following error
+      is returned:
+
+      "Blob xxx is truncated"
+
+      If the fetched blob is determined to be corrupt for any of the above
+      reasons, and -mend is specified, then the blob record is marked as
+      damaged.
+
+   J. Index Walking
+
+      In 4.5 (NevaStone) Index walking was moved to after the completion
+      of data page walking.
+
+      The indices for the relation are walked.  If the index root page
+      is missing, the following message is returned:
+
+      "Missing index root page"
+
+      and the indices are not walked.  Otherwise the index root page
+      is fetched and all indices on the page fetched. 
+
+      For each index, the btree pages are fetched from top-down, left to
+      right.  
+      Basic validation is made on non-leaf pages to ensure that each node
+      on page points to another index page.  If -full validation is specified
+      then the lower level page is fetched to ensure it is starting index
+      entry is consistent with the parent entry. 
+      On leaf pages, the records pointed to by the index pages are not 
+      fetched, the keys are looked at to ensure they are in correct 
+      ascending order.
+
+      If a visited page is not part of the specified relation and index,
+      the following error is returned:
+      
+      "Index xxx is corrupt at page xxx"
+        
+      If there are orphan child pages, i.e. a child page does not have its entry 
+      as yet in the parent page, however the child's left sibling page has it's 
+      btr_sibling updated, the following error is returned
+	    
+      "Index xxx has orphan child page at page xxx"
+
+      If the page does not contain the number of nodes we would have
+      expected from its marked length, the following error is returned:
+
+      "Index xxx is corrupt on page xxx"
+
+      While we are walking leaf pages, we keep a bitmap of all record
+      numbers seen in the index.  At the conclusion of the index walk
+      we compare this bitmap to the bitmap of all records in the 
+      relation (calculated during data page/Record Validation phase).
+      If the bitmaps are not equal then we have a corrupt index
+      and the following error is reported:
+
+      "Index %d is corrupt (missing entries)"
+
+      We do NOT check that each version of each record has a valid
+      index entry - nor do we check that the stored key for each item
+      in the index corresponds to a version of the specified record.
+
+   K. Relation Checking
+
+      We count the number of backversions seen while walking pointer pages,
+      and separately count the number of backversions seen while walking
+      record chains.  If these numbers do not match it indicates either
+      "orphan" backversion chains or double-linked chains.  If this is
+      see the following error is returned:
+
+     "Relation has %ld orphan backversions (%ld in use)"
+
+      Currently we do not try to correct this condition, mearly report
+      it.  For "orphan" backversions the space can be reclaimed by
+      a backup/restore.  For double-linked chains a SWEEP should
+      remove all the backversions.
+
+VI. ADDITIONAL NOTES
+
+   A.  Damaged Records
+
+      If any corruption of a record fragment is seen during validation, the 
+      record header is marked as "damaged".  As far as I can see, this has no 
+      effect on the engine per se.  Records marked as damaged will still be 
+      retrieved by the engine itself.  There is some question in my mind as
+      to whether this record should be retrieved at all during a gbak.
+
+      If a damaged record is visited, the following error message will appear:
+
+      "Record xxx is marked as damaged"
+
+      Note that when a damaged record is first detected, this message is not
+      actually printed.  The record is simply marked as damaged.  It is only 
+      thereafter when the record is visited that this message will appear.
+      So I would postulate that unless a full validation is done at some point,
+      you would not see this error message; once the full validation is done, 
+      the message will be returned even if you do not specify -full.
+
+   B. Damaged Blobs
+
+      Blob records marked as damaged cannot be opened and will not be deleted 
+      from disk.  This means that even during backup the blob structures marked 
+      as damaged will not be fetched and backed up.  (Why this is done
+      differently for blobs than for records I cannot say.  
+      Perhaps it was viewed as too difficult to try to retrieve a damaged blob.)
+
+*/
+#endif /* INTERNAL_DOCUMENTATION */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../jrd/jrd.h"
+#include "../jrd/ods.h"
+#include "../jrd/pag.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/val.h"
+#include "../jrd/btr.h"
+#include "../jrd/all.h"
+#include "../jrd/lck.h"
+#include "../jrd/cch.h"
+#include "../jrd/rse.h"
+#include "../jrd/sbm.h"
+#include "../jrd/tra.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/btr_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/dbg_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/jrd_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/tra_proto.h"
+#include "../jrd/val_proto.h"
+
+#ifdef VAL_VERBOSE
+#include "../jrd/dmp_proto.h"
+/* Control variable for verbose output during debug of
+   validation.  
+   0 == logged errors only
+   1 == logical output also
+   2 == physical page output also */
+static USHORT VAL_debug_level = 0;
+#endif
+
+/* Validation/garbage collection/repair control block */
+
+typedef struct vdr
+{
+	SBM vdr_page_bitmap;
+	SLONG vdr_max_page;
+	USHORT vdr_flags;
+	USHORT vdr_errors;
+	SLONG vdr_max_transaction;
+	ULONG vdr_rel_backversion_counter;	/* Counts slots w/rhd_chain */
+	ULONG vdr_rel_chain_counter;	/* Counts chains w/rdr_chain */
+	SBM vdr_rel_records;		/* 1 bit per valid record */
+	SBM vdr_idx_records;		/* 1 bit per index item */
+} *VDR;
+
+#define vdr_update		2		/* fix simple things */
+#define vdr_repair		4		/* fix non-simple things (-mend) */
+#define vdr_records		8		/* Walk all records */
+
+typedef enum {
+	fetch_ok,
+	fetch_checksum,
+	fetch_type,
+	fetch_duplicate
+} FETCH_CODE;
+
+typedef enum {
+	rtn_ok,
+	rtn_corrupt,
+	rtn_eof
+} RTN;
+
+static CONST TEXT msg_table[][52] = {
+	"Page %ld wrong type (expected %d encountered %d)",	/* 0 */
+	"Checksum error on page %ld",
+	"Page %ld doubly allocated",
+	"Page %ld is use but marked free",
+	"Page %ld is an orphan",
+	"Warning: blob %ld appears inconsistent",	/* 5 */
+	"Blob %ld is corrupt",
+	"Blob %ld is truncated",
+	"Chain for record %ld is broken",
+	"Data page %ld (sequence %ld) is confused",
+	"Data page %ld (sequence %ld), line %ld is bad",	/* 10 */
+	"Index %d is corrupt on page %ld",
+	"Pointer page (sequence %ld) lost",
+	"Pointer page (sequence %ld) inconsistent",
+	"Record %ld is marked as damaged",
+	"Record %ld has bad transaction %ld",	/* 15 */
+	"Fragmented record %ld is corrupt",
+	"Record %ld is wrong length",
+	"Missing index root page",
+	"Transaction inventory pages lost",
+	"Transaction inventory page lost, sequence %ld",	/* 20 */
+	"Transaction inventory pages confused, sequence %ld",
+	"Relation has %ld orphan backversions (%ld in use)",
+	"Index %d is corrupt (missing entries)",
+	"Index %d has orphan child page at page %ld"
+};
+
+
+static RTN corrupt(TDBB, VDR, USHORT, REL, ...);
+static FETCH_CODE fetch_page(TDBB, VDR, SLONG, USHORT, WIN *, void *);
+static void garbage_collect(TDBB, VDR);
+#ifdef VAL_VERBOSE
+static void print_rhd(USHORT, RHD);
+#endif
+static RTN walk_blob(TDBB, VDR, REL, BLH, USHORT, SLONG);
+static RTN walk_chain(TDBB, VDR, REL, RHD, SLONG);
+static void walk_database(TDBB, VDR);
+static RTN walk_data_page(TDBB, VDR, REL, SLONG, SLONG);
+static void walk_generators(TDBB, VDR);
+static void walk_header(TDBB, VDR, SLONG);
+static RTN walk_index(TDBB, VDR, REL, SLONG, USHORT);
+static void walk_log(TDBB, VDR);
+static void walk_pip(TDBB, VDR);
+static RTN walk_pointer_page(TDBB, VDR, REL, int);
+static RTN walk_record(TDBB, VDR, REL, RHD, USHORT, SLONG, USHORT);
+static RTN walk_relation(TDBB, VDR, REL);
+static RTN walk_root(TDBB, VDR, REL);
+static RTN walk_tip(TDBB, VDR, SLONG);
+
+static CONST SLONG end_level = END_LEVEL, end_bucket = END_BUCKET;
+#ifdef IGNORE_NULL_IDX_KEY
+static CONST SLONG end_non_null = END_NON_NULL;
+#endif /* IGNORE_NULL_IDX_KEY */
+
+#ifdef SHLIB_DEFS
+#define vsprintf	(*_libgds_vsprintf)
+
+extern int vsprintf();
+#endif
+
+BOOLEAN VAL_validate(TDBB tdbb, USHORT switches)
+{
+/**************************************
+ *
+ *	V A L _ v a l i d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate a database.
+ *
+ **************************************/
+	struct vdr control;
+	PLB val_pool, old_pool;
+	ATT att;
+	USHORT i;
+	DBB dbb;
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	att = tdbb->tdbb_attachment;
+
+	DEBUG old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		if (val_pool)
+			ALL_rlpool(val_pool);
+		tdbb->tdbb_default = old_pool;
+		tdbb->tdbb_flags &= ~TDBB_sweeper;
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		return FALSE;
+	}
+
+	old_pool = tdbb->tdbb_default;
+	val_pool = 0;
+	tdbb->tdbb_default = val_pool = ALL_pool();
+
+	control.vdr_page_bitmap = NULL;
+	control.vdr_flags = 0;
+	control.vdr_errors = 0;
+
+	if (switches & gds_dpb_records)
+		control.vdr_flags |= vdr_records;
+
+	if (switches & gds_dpb_repair)
+		control.vdr_flags |= vdr_repair;
+
+	if (!(switches & gds_dpb_no_update))
+		control.vdr_flags |= vdr_update;
+
+	control.vdr_max_page = 0;
+	control.vdr_rel_records = NULL;
+	control.vdr_idx_records = NULL;
+
+/* initialize validate errors */
+
+	if (!att->att_val_errors) {
+		att->att_val_errors = (VCL) ALLOCPV(type_vcl, VAL_MAX_ERROR);
+		att->att_val_errors->vcl_count = VAL_MAX_ERROR;
+	}
+	else {
+		for (i = 0; i < VAL_MAX_ERROR; i++)
+			att->att_val_errors->vcl_long[i] = 0;
+	}
+
+	tdbb->tdbb_flags |= TDBB_sweeper;
+	walk_database(tdbb, &control);
+	if (control.vdr_errors)
+		control.vdr_flags &= ~vdr_update;
+
+	garbage_collect(tdbb, &control);
+	CCH_flush(tdbb, (USHORT) FLUSH_FINI, 0);
+
+	ALL_rlpool(val_pool);
+	tdbb->tdbb_default = old_pool;
+	tdbb->tdbb_flags &= ~TDBB_sweeper;
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	return TRUE;
+}
+
+static RTN corrupt(TDBB tdbb, VDR control, USHORT err_code, REL relation, ...)
+{
+/**************************************
+ *
+ *	c o r r u p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Corruption has been detected.
+ *
+ **************************************/
+	TEXT s[256], *p;
+	va_list ptr;
+	CONST TEXT *string;
+	ATT att;
+
+	VA_START(ptr, relation);
+
+	SET_TDBB(tdbb);
+	att = tdbb->tdbb_attachment;
+	if (err_code < att->att_val_errors->vcl_count)
+		att->att_val_errors->vcl_long[err_code]++;
+
+	string = msg_table[err_code];
+
+	sprintf(s, "Database: %s\n\t",
+			tdbb->tdbb_database->dbb_filename->str_data);
+	for (p = s; *p; p++)
+		/* nothing */ ;
+	vsprintf(p, string, ptr);
+
+	if (relation) {
+		for (; *p; p++)
+			/* nothing */ ;
+		sprintf(p, " in table %s (%d)\n", relation->rel_name,
+				relation->rel_id);
+	}
+
+	gds__log(s);
+
+#ifdef VAL_VERBOSE
+	if (VAL_debug_level >= 0)
+		ib_fprintf(ib_stdout, "LOG:\t%s\n", s);
+#endif
+
+	if (control)
+		++control->vdr_errors;
+
+	return rtn_corrupt;
+}
+
+static FETCH_CODE fetch_page(TDBB tdbb,
+							 VDR control,
+							 SLONG page_number,
+							 USHORT type, WIN * window, void *page_pointer)
+{
+/**************************************
+ *
+ *	f e t c h _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch page and return type of illness, if any.  If a control block
+ *	is present, check for doubly allocated pages and account for page
+ *	use.
+ *
+ **************************************/
+	DBB dbb;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef MULTI_THREAD
+	if (--tdbb->tdbb_quantum < 0 && !tdbb->tdbb_inhibit)
+		(void) JRD_reschedule(tdbb, 0, TRUE);
+#endif
+
+	window->win_page = page_number;
+	window->win_flags = 0;
+	*(PAG *) page_pointer = CCH_FETCH_NO_SHADOW(tdbb, window, LCK_write, 0);
+
+	if ((*(PAG *) page_pointer)->pag_type != type) {
+		corrupt(tdbb, control, VAL_PAG_WRONG_TYPE,
+				0, page_number, type, (*(PAG *) page_pointer)->pag_type);
+		return fetch_type;
+	}
+
+	if (!control)
+		return fetch_ok;
+
+/* If "damaged" flag was set, checksum may be incorrect.  Check. */
+
+	if ((dbb->dbb_flags & DBB_damaged) && !CCH_validate(window)) {
+		corrupt(tdbb, control, VAL_PAG_CHECKSUM_ERR, 0, page_number);
+		if (control->vdr_flags & vdr_repair)
+			CCH_MARK(tdbb, window);
+	}
+
+	control->vdr_max_page = MAX(control->vdr_max_page, page_number);
+
+/* For walking back versions & record fragments on data pages we
+   sometimes will fetch the same page more than once.  In that
+   event we don't report double allocation.  If the page is truely
+   double allocated (to more than one relation) we'll find it
+   when the on-page relation id doesn't match */
+
+	if ((type != pag_data) && SBM_test(control->vdr_page_bitmap, page_number)) {
+		corrupt(tdbb, control, VAL_PAG_DOUBLE_ALLOC, 0, page_number);
+		return fetch_duplicate;
+	}
+
+
+	SBM_set(tdbb, &control->vdr_page_bitmap, page_number);
+
+	return fetch_ok;
+}
+
+static void garbage_collect(TDBB tdbb, VDR control)
+{
+/**************************************
+ *
+ *	g a r b a g e _ c o l l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	The database has been walked; compare the page inventory against
+ *	the bitmap of pages visited.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	PIP page;
+	PGC pgc;
+	UCHAR *p, *end, byte;
+	USHORT sequence, i;
+	SLONG number, page_number;
+
+	SET_TDBB(tdbb);
+
+	dbb = tdbb->tdbb_database;
+	pgc = dbb->dbb_pcontrol;
+
+	for (sequence = 0, number = 0; number < control->vdr_max_page; sequence++) {
+		page_number = (sequence) ? sequence * pgc->pgc_ppp - 1 : pgc->pgc_pip;
+		fetch_page(tdbb, 0, page_number, pag_pages, &window, &page);
+		p = page->pip_bits;
+		end = p + pgc->pgc_bytes;
+		while (p < end && number < control->vdr_max_page) {
+			byte = *p++;
+			for (i = 8; i; --i, byte >>= 1, number++)
+				if (SBM_test(control->vdr_page_bitmap, number)) {
+					if (byte & 1) {
+						corrupt(tdbb, control, VAL_PAG_IN_USE, 0, number);
+						if (control->vdr_flags & vdr_update) {
+							CCH_MARK(tdbb, &window);
+							p[-1] &= ~(1 << (number & 7));
+						}
+						DEBUG;
+					}
+				}
+
+			/* Page is potentially an orphan - but don't declare it as such
+			   unless we think we walked all pages */
+
+				else if (!(byte & 1) && (control->vdr_flags & vdr_records)) {
+					corrupt(tdbb, control, VAL_PAG_ORPHAN, 0, number);
+					if (control->vdr_flags & vdr_update) {
+						CCH_MARK(tdbb, &window);
+						p[-1] |= 1 << (number & 7);
+					}
+					DEBUG;
+				}
+		}
+		byte = p[-1];
+		CCH_RELEASE(tdbb, &window);
+		if (byte & 0x80)
+			break;
+	}
+
+#ifdef VAL_VERBOSE
+/* Dump verbose output of all the pages fetched */
+	if (VAL_debug_level >= 2) {
+		SLONG dmp_page_number;
+		dmp_page_number = -1;
+		while (SBM_next
+			   (control->vdr_page_bitmap, &dmp_page_number,
+				RSE_get_forward)) DMP_page(dmp_page_number,
+										   dbb->dbb_page_size);
+	};
+#endif
+}
+
+#ifdef VAL_VERBOSE
+static void print_rhd(USHORT length, RHD header)
+{
+/**************************************
+ *
+ *	p r i n t _ r h d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Debugging routine to print a
+ *	Record Header Data.
+ *
+ **************************************/
+	if (VAL_debug_level) {
+		ib_fprintf(ib_stdout, "rhd: len %d TX %d fmt %d ",
+				   length, header->rhd_transaction, header->rhd_format);
+		ib_fprintf(ib_stdout, "BP %d/%d flags 0x%x ",
+				   header->rhd_b_page, header->rhd_b_line, header->rhd_flags);
+		if (header->rhd_flags & rhd_incomplete) {
+			RHDF fragment;
+			fragment = (RHDF) header;
+			ib_fprintf(ib_stdout, "FP %d/%d ",
+					   fragment->rhdf_f_page, fragment->rhdf_f_line);
+		};
+		ib_fprintf(ib_stdout, "%s ",
+				   (header->rhd_flags & rhd_deleted) ? "DEL" : "   ");
+		ib_fprintf(ib_stdout, "%s ",
+				   (header->rhd_flags & rhd_chain) ? "CHN" : "   ");
+		ib_fprintf(ib_stdout, "%s ",
+				   (header->rhd_flags & rhd_fragment) ? "FRG" : "   ");
+		ib_fprintf(ib_stdout, "%s ",
+				   (header->rhd_flags & rhd_incomplete) ? "INC" : "   ");
+		ib_fprintf(ib_stdout, "%s ",
+				   (header->rhd_flags & rhd_blob) ? "BLB" : "   ");
+		ib_fprintf(ib_stdout, "%s ",
+				   (header->rhd_flags & rhd_delta) ? "DLT" : "   ");
+		ib_fprintf(ib_stdout, "%s ",
+				   (header->rhd_flags & rhd_large) ? "LRG" : "   ");
+		ib_fprintf(ib_stdout, "%s ",
+				   (header->rhd_flags & rhd_damaged) ? "DAM" : "   ");
+		ib_fprintf(ib_stdout, "\n");
+	};
+}
+#endif
+
+static RTN walk_blob(TDBB tdbb,
+					 VDR control,
+					 REL relation, BLH header, USHORT length, SLONG number)
+{
+/**************************************
+ *
+ *	w a l k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk a blob.
+ *
+ **************************************/
+	WIN window1, window2;
+	BLP page1, page2;
+	SLONG sequence, *pages1, *pages2, *end1, *end2;
+
+	SET_TDBB(tdbb);
+
+#ifdef VAL_VERBOSE
+	if (VAL_debug_level) {
+		ib_fprintf(ib_stdout,
+				   "walk_blob: level %d lead page %d max pages %d max segment %d\n",
+				   header->blh_level, header->blh_lead_page,
+				   header->blh_max_sequence, header->blh_max_segment);
+		ib_fprintf(ib_stdout, "           count %d, length %d sub_type %d\n",
+				   header->blh_count, header->blh_length,
+				   header->blh_sub_type);
+	};
+#endif
+
+/* Level 0 blobs have no work to do. */
+
+	if (header->blh_level == 0)
+		return rtn_ok;
+
+/* Level 1 blobs are a little more complicated */
+
+	pages1 = header->blh_page;
+	end1 = pages1 + ((USHORT) (length - BLH_SIZE) >> SHIFTLONG);
+
+	for (sequence = 0; pages1 < end1; pages1++) {
+		fetch_page(tdbb, control, *pages1, pag_blob, &window1, &page1);
+		if (page1->blp_lead_page != header->blh_lead_page)
+			corrupt(tdbb, control, VAL_BLOB_INCONSISTENT, relation, number);
+		if ((header->blh_level == 1 && page1->blp_sequence != sequence)) {
+			corrupt(tdbb, control, VAL_BLOB_CORRUPT, relation, number);
+			CCH_RELEASE(tdbb, &window1);
+			return rtn_corrupt;
+		}
+		if (header->blh_level == 1)
+			sequence++;
+		else {
+			pages2 = page1->blp_page;
+			end2 = pages2 + (page1->blp_length >> SHIFTLONG);
+			for (; pages2 < end2; pages2++, sequence++) {
+				fetch_page(tdbb, control, *pages2, pag_blob, &window2,
+						   &page2);
+				if (page2->blp_lead_page != header->blh_lead_page
+					|| page2->blp_sequence != sequence) {
+					corrupt(tdbb, control, VAL_BLOB_CORRUPT, relation,
+							number);
+					CCH_RELEASE(tdbb, &window1);
+					CCH_RELEASE(tdbb, &window2);
+					return rtn_corrupt;
+				}
+				CCH_RELEASE(tdbb, &window2);
+			}
+		}
+		CCH_RELEASE(tdbb, &window1);
+	}
+
+	if (sequence - 1 != header->blh_max_sequence)
+		return corrupt(tdbb, control, VAL_BLOB_TRUNCATED, relation, number);
+
+	return rtn_ok;
+}
+
+static RTN walk_chain(TDBB tdbb,
+					  VDR control,
+					  REL relation, RHD header, SLONG head_number)
+{
+/**************************************
+ *
+ *	w a l k _ c h a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make sure chain of record versions is completely intact.
+ *
+ **************************************/
+	DPG page;
+	WIN window;
+	SLONG page_number;
+	USHORT line_number, delta_flag;
+	dpg::dpg_repeat * line;
+	USHORT counter = 0;
+
+	SET_TDBB(tdbb);
+
+	page_number = header->rhd_b_page;
+	line_number = header->rhd_b_line;
+
+	while (page_number) {
+		delta_flag = (header->rhd_flags & rhd_delta) ? TRUE : FALSE;
+#ifdef VAL_VERBOSE
+		if (VAL_debug_level)
+			ib_fprintf(ib_stdout, "  BV %02d: ", ++counter);
+#endif
+		control->vdr_rel_chain_counter++;
+		fetch_page(tdbb, control, page_number, pag_data, &window, &page);
+		line = &page->dpg_rpt[line_number];
+		header = (RHD) ((UCHAR *) page + line->dpg_offset);
+		if (page->dpg_count <= line_number ||
+			!line->dpg_length ||
+			(header->rhd_flags & (rhd_blob | rhd_fragment)) ||
+			walk_record(tdbb, control, relation, header, line->dpg_length,
+						head_number, delta_flag) != rtn_ok) {
+			CCH_RELEASE(tdbb, &window);
+			return corrupt(tdbb, control, VAL_REC_CHAIN_BROKEN,
+						   relation, head_number);
+		}
+		page_number = header->rhd_b_page;
+		line_number = header->rhd_b_line;
+		CCH_RELEASE(tdbb, &window);
+	}
+
+	return rtn_ok;
+}
+
+static void walk_database(TDBB tdbb, VDR control)
+{
+/**************************************
+ *
+ *	w a l k _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	HDR page;
+	VEC vector;
+	REL relation;
+	USHORT i;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+#ifdef VAL_VERBOSE
+	if (VAL_debug_level)
+		ib_fprintf(ib_stdout,
+				   "walk_database: %s\nODS: %d.%d  (creation ods %d)\nPage size %d\n",
+				   dbb->dbb_filename->str_data, dbb->dbb_ods_version,
+				   dbb->dbb_minor_version, dbb->dbb_minor_original,
+				   dbb->dbb_page_size);
+#endif
+
+	DPM_scan_pages(tdbb);
+	fetch_page(tdbb, control, (SLONG) HEADER_PAGE, pag_header, &window,
+			   &page);
+	control->vdr_max_transaction = page->hdr_next_transaction;
+
+	walk_header(tdbb, control, page->hdr_next_page);
+	walk_log(tdbb, control);
+	walk_pip(tdbb, control);
+	(void) walk_tip(tdbb, control, page->hdr_next_transaction);
+	walk_generators(tdbb, control);
+
+	for (i = 0; (vector = dbb->dbb_relations) && i < vector->vec_count; i++) {
+#ifdef VAL_VERBOSE
+		if (i >= 32 /* rel_MAX */ )
+			VAL_debug_level = 2;
+#endif
+		if (relation = (REL) vector->vec_object[i])
+			(void) walk_relation(tdbb, control, relation);
+	}
+
+	CCH_RELEASE(tdbb, &window);
+}
+
+static RTN walk_data_page(TDBB tdbb,
+						  VDR control,
+						  REL relation, SLONG page_number, SLONG sequence)
+{
+/**************************************
+ *
+ *	w a l k _ d a t a _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk a single data page.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	DPG page;
+	RHD header;
+	RTN result;
+	UCHAR *end_page;
+	SLONG number;
+	int state;
+	dpg::dpg_repeat * line, *end;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+	fetch_page(tdbb, control, page_number, pag_data, &window, &page);
+
+#ifdef VAL_VERBOSE
+	if (VAL_debug_level)
+		ib_fprintf(ib_stdout,
+				   "walk_data_page: page %d rel %d seq %d count %d\n",
+				   page_number, page->dpg_relation, page->dpg_sequence,
+				   page->dpg_count);
+#endif
+
+	if (page->dpg_relation != relation->rel_id
+		|| page->dpg_sequence != sequence) {
+		++control->vdr_errors;
+		CCH_RELEASE(tdbb, &window);
+		return corrupt(tdbb, control, VAL_DATA_PAGE_CONFUSED,
+					   relation, page_number, sequence);
+	}
+
+/* Walk records */
+
+	end_page = (UCHAR *) page + dbb->dbb_page_size;
+	end = page->dpg_rpt + page->dpg_count;
+	number = sequence * dbb->dbb_max_records;
+
+	for (line = page->dpg_rpt; line < end; line++, number++) {
+#ifdef VAL_VERBOSE
+		if (VAL_debug_level)
+			ib_fprintf(ib_stdout, "Slot %02d (%d,%d): ",
+					   line - page->dpg_rpt,
+					   line->dpg_offset, line->dpg_length);
+#endif
+		if (line->dpg_length) {
+			header = (RHD) ((UCHAR *) page + line->dpg_offset);
+			if ((UCHAR *) header < (UCHAR *) end ||
+				(UCHAR *) header + line->dpg_length > end_page)
+				return corrupt(tdbb, control, VAL_DATA_PAGE_LINE_ERR,
+							   relation, page_number, sequence,
+							   (SLONG) (line - page->dpg_rpt));
+			if (header->rhd_flags & rhd_chain)
+				control->vdr_rel_backversion_counter++;
+
+			/* Record the existance of a primary version of a record */
+
+			if ((control->vdr_flags & vdr_records) &&
+				!(header->rhd_flags & (rhd_chain | rhd_fragment | rhd_blob))) {
+				/* Only set committed (or limbo) records in the bitmap. If there
+				   is a backversion then at least one of the record versions is
+				   committed. If there's no backversion then check transaction
+				   state of the lone primary record version. */
+
+				if (header->rhd_b_page)
+					SBM_set(tdbb, &control->vdr_rel_records, number);
+				else {
+					if (header->rhd_transaction < dbb->dbb_oldest_transaction)
+						state = tra_committed;
+					else
+						state =
+							TRA_fetch_state(tdbb, header->rhd_transaction);
+					if (state == tra_committed || state == tra_limbo)
+						SBM_set(tdbb, &control->vdr_rel_records, number);
+				}
+			}
+
+#ifdef VAL_VERBOSE
+			if (VAL_debug_level) {
+				if (header->rhd_flags & rhd_chain)
+					ib_fprintf(ib_stdout, "(backvers)");
+				if (header->rhd_flags & rhd_fragment)
+					ib_fprintf(ib_stdout, "(fragment)");
+				if (header->rhd_flags & (rhd_fragment | rhd_chain))
+					print_rhd(line->dpg_length, header);
+			}
+#endif
+			if (!(header->rhd_flags & rhd_chain) &&
+				((header->rhd_flags & rhd_large) ||
+				 (control->vdr_flags & vdr_records))) {
+				result = (header->rhd_flags & rhd_blob) ?
+					walk_blob(tdbb, control, relation, (BLH) header,
+							  line->dpg_length, number) :
+					walk_record(tdbb, control, relation, header,
+								line->dpg_length, number, FALSE);
+				if ((result == rtn_corrupt)
+					&& (control->vdr_flags & vdr_repair)) {
+					CCH_MARK(tdbb, &window);
+					header->rhd_flags |= rhd_damaged;
+				}
+			}
+		}
+#ifdef VAL_VERBOSE
+		else if (VAL_debug_level)
+			ib_fprintf(ib_stdout, "(empty)\n");
+#endif
+	}
+
+	CCH_RELEASE(tdbb, &window);
+
+#ifdef VAL_VERBOSE
+	if (VAL_debug_level)
+		ib_fprintf(ib_stdout, "------------------------------------\n");
+#endif
+
+	return rtn_ok;
+}
+
+static void walk_generators(TDBB tdbb, VDR control)
+{
+/**************************************
+ *
+ *	w a l k _ g e n e r a t o r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk the page inventory pages.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	VCL vector;
+	PPG page;
+	SLONG *ptr, *end;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	if (vector = dbb->dbb_gen_id_pages)
+		for (ptr = vector->vcl_long, end = ptr + vector->vcl_count; ptr < end;
+			 ptr++)
+			if (*ptr) {
+#ifdef VAL_VERBOSE
+				if (VAL_debug_level)
+					ib_fprintf(ib_stdout, "walk_generator: page %d\n", *ptr);
+#endif
+				fetch_page(tdbb, control, *ptr, pag_ids, &window, &page);
+				CCH_RELEASE(tdbb, &window);
+			}
+}
+
+static void walk_header(TDBB tdbb, VDR control, SLONG page_num)
+{
+/**************************************
+ *
+ *	w a l k _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk the overflow header pages
+ *
+ **************************************/
+	WIN window;
+	HDR page;
+
+	SET_TDBB(tdbb);
+
+	while (page_num) {
+#ifdef VAL_VERBOSE
+		if (VAL_debug_level)
+			ib_fprintf(ib_stdout, "walk_header: page %d\n", page_num);
+#endif
+		fetch_page(tdbb, control, page_num, pag_header, &window, &page);
+		page_num = page->hdr_next_page;
+		CCH_RELEASE(tdbb, &window);
+	}
+}
+
+static RTN walk_index(TDBB tdbb,
+					  VDR control, REL relation, SLONG page_number, USHORT id)
+{
+/**************************************
+ *
+ *	w a l k _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk all btree pages left-to-right and top-down.
+ *	Check all the pointers and keys for consistency 
+ *	relative to each other, and check sibling pointers. 
+ *
+ *	NOTE: id is the internal index id, relative for each 
+ *	relation.  It is 1 less than the user level index id.
+ *	So errors are reported against index id+1
+ *
+ **************************************/
+	DBB dbb;
+	WIN window, down_window;
+	BTR page, down_page;
+	BTN node, end, down_node;
+	SLONG next, down, down_number, previous_number, next_number;
+	KEY key;
+	UCHAR *p, *q, l;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	next = down = page_number;
+	key.key_length = 0;
+	previous_number = 0;
+
+	if (control)
+		SBM_reset(&control->vdr_idx_records);
+
+	while (next) {
+		fetch_page(tdbb, control, next, pag_index, &window, &page);
+
+		if (page->btr_relation != relation->rel_id || page->btr_id != id) {
+			corrupt(tdbb, control, VAL_INDEX_PAGE_CORRUPT, relation, id + 1,
+					next);
+			CCH_RELEASE(tdbb, &window);
+			return rtn_corrupt;
+		}
+
+		/* go through all the nodes on the page and check for validity */
+
+		for (node = (BTN) page->btr_nodes, end =
+			 (BTN) ((UCHAR *) page + page->btr_length); node < end;
+			 node = NEXT_NODE(node)) {
+			/* make sure the current key is not less than the previous key */
+
+			q = BTN_DATA(node);
+			p = key.key_data + BTN_PREFIX(node);
+			for (l =
+				 MIN(BTN_LENGTH(node),
+					 (UCHAR) (key.key_length - BTN_PREFIX(node))); l;
+				 l--, p++, q++)
+				if (*p > *q)
+					corrupt(tdbb, control, VAL_INDEX_PAGE_CORRUPT, relation,
+							id + 1, next);
+				else if (*p < *q)
+					break;
+
+			/* save the current key */
+
+			q = BTN_DATA(node);
+			p = key.key_data + BTN_PREFIX(node);
+			for (l = BTN_LENGTH(node); l; l--)
+				*p++ = *q++;
+			key.key_length = p - key.key_data;
+
+			if (QUAD_EQUAL(BTN_NUMBER(node), &end_level) ||
+				QUAD_EQUAL(BTN_NUMBER(node), &end_bucket)) {
+				node = NEXT_NODE(node);
+				break;
+			}
+
+#ifdef IGNORE_NULL_IDX_KEY
+			if (QUAD_EQUAL(BTN_NUMBER(node), &end_non_null)) {
+				/* Ignore this node and go to the next one */
+				/* We also do not prefix compress between non-NULL and NULL
+				 * valued nodes (first segment). Hence, re-init saved 'key'
+				 * data. See fast_load() for further information.
+				 */
+				key.key_length = 0;
+				continue;
+			}
+#endif /* IGNORE_NULL_IDX_KEY */
+
+			/* Record the existance of a primary version of a record */
+			if (!page->btr_level && control
+				&& (control->vdr_flags & vdr_records)) SBM_set(tdbb,
+															   &control->
+															   vdr_idx_records,
+															   BTR_get_quad
+															   (reinterpret_cast
+																<
+																char
+																*>(BTN_NUMBER
+																   (node))));
+
+			/* fetch the next page down (if full validation was specified) */
+
+			if (page->btr_level && control
+				&& (control->vdr_flags & vdr_records)) {
+				down_number =
+					BTR_get_quad(reinterpret_cast <
+								 char *>(BTN_NUMBER(node)));
+
+				/* Note: control == 0 for the fetch_page() call here 
+				   as we don't want to mark the page as visited yet - we'll 
+				   mark it when we visit it for real later on */
+
+				fetch_page(tdbb, 0, down_number, pag_index, &down_window,
+						   &down_page);
+
+				/* make sure the initial key is greater than the pointer key */
+
+				down_node = (BTN) down_page->btr_nodes;
+				p = BTN_DATA(down_node);
+				q = key.key_data;
+				for (l = static_cast<UCHAR>(MIN(key.key_length,
+											BTN_LENGTH(down_node)));
+					l; l--, p++, q++)
+				{
+					if (*p < *q)
+					{
+						corrupt(tdbb, control, VAL_INDEX_PAGE_CORRUPT,
+								relation, id + 1, next);
+					}
+					else if (*p > *q) {
+						break;
+					}
+				}
+
+				/* check the left and right sibling pointers against the parent pointers */
+
+				if (previous_number != down_page->btr_left_sibling)
+					corrupt(tdbb, control, VAL_INDEX_PAGE_CORRUPT, relation,
+							id + 1, next);
+				next_number =
+					BTR_get_quad(reinterpret_cast <
+								 char *>(BTN_NUMBER((NEXT_NODE(node)))));
+				if (next_number >= 0 && next_number != down_page->btr_sibling)
+					corrupt(tdbb, control, VAL_INDEX_PAGE_CORRUPT, relation,
+							id + 1, next);
+				if (next_number == END_LEVEL && down_page->btr_sibling)
+					corrupt(tdbb, control, VAL_INDEX_ORPHAN_CHILD, relation,
+							id + 1, next);
+				previous_number = down_number;
+
+				CCH_RELEASE(tdbb, &down_window);
+			}
+		}
+
+		if (node != end || page->btr_length > dbb->dbb_page_size)
+			corrupt(tdbb, control, VAL_INDEX_PAGE_CORRUPT, relation, id + 1,
+					next);
+
+		if (next == down)
+			down =
+				(page->btr_level) ? BTR_get_quad(reinterpret_cast <
+												 char *>(page->btr_nodes[0].
+														 btn_number)) : 0;
+
+		if (!(next = page->btr_sibling)) {
+			next = down;
+			key.key_length = 0;
+			previous_number = 0;
+		}
+
+		CCH_RELEASE(tdbb, &window);
+	}
+
+/* If the index & relation contain different sets of records we
+   have a corrupt index */
+
+	if (control && (control->vdr_flags & vdr_records)) {
+		THREAD_EXIT;
+		next_number = -1;
+		while (SBM_next
+			   (control->vdr_rel_records, &next_number,
+				RSE_get_forward)) if (!SBM_test(control->vdr_idx_records,
+												next_number)) {
+				THREAD_ENTER;
+				return corrupt(tdbb, control, VAL_INDEX_MISSING_ROWS,
+							   relation, id + 1);
+			}
+		THREAD_ENTER;
+	}
+
+	return rtn_ok;
+}
+
+static void walk_log(TDBB tdbb, VDR control)
+{
+/**************************************
+ *
+ *	w a l k _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk the log and overflow pages
+ *
+ **************************************/
+	WIN window;
+	LIP page;
+	SLONG page_num = LOG_PAGE;
+
+	SET_TDBB(tdbb);
+
+	while (page_num) {
+		fetch_page(tdbb, control, page_num, pag_log, &window, &page);
+		page_num = page->log_next_page;
+		CCH_RELEASE(tdbb, &window);
+	}
+}
+
+static void walk_pip(TDBB tdbb, VDR control)
+{
+/**************************************
+ *
+ *	w a l k _ p i p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk the page inventory pages.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	PIP page;
+	PGC pgc;
+	USHORT sequence;
+	UCHAR byte;
+	SLONG page_number;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+	pgc = dbb->dbb_pcontrol;
+
+	for (sequence = 0;; sequence++) {
+		page_number = (sequence) ? sequence * pgc->pgc_ppp - 1 : pgc->pgc_pip;
+#ifdef VAL_VERBOSE
+		if (VAL_debug_level)
+			ib_fprintf(ib_stdout, "walk_pip: page %d\n", page_number);
+#endif
+		fetch_page(tdbb, control, page_number, pag_pages, &window, &page);
+		byte = page->pip_bits[pgc->pgc_bytes - 1];
+		CCH_RELEASE(tdbb, &window);
+		if (byte & 0x80)
+			break;
+	}
+}
+
+static RTN walk_pointer_page(	TDBB	tdbb,
+								VDR		control,
+								REL		relation,
+								int		sequence)
+{
+/**************************************
+ *
+ *	w a l k _ p o i n t e r _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk a pointer page for a relation.  Return TRUE if there are more
+ *	to go.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	PPG page;
+	RTN result;
+	USHORT slot;
+	SLONG *pages, seq;
+
+	SET_TDBB(tdbb);
+
+	dbb = tdbb->tdbb_database;
+
+	VCL vector = relation->rel_pages;
+
+	if (!vector || sequence >= static_cast<int>(vector->vcl_count)) {
+		return corrupt(tdbb, control, VAL_P_PAGE_LOST, relation, sequence);
+	}
+
+	fetch_page(	tdbb,
+				control,
+				vector->vcl_long[sequence],
+				pag_pointer,
+				&window,
+				&page);
+
+#ifdef VAL_VERBOSE
+	if (VAL_debug_level)
+		ib_fprintf(ib_stdout,
+				   "walk_pointer_page: page %d relation %d sequence %d\n",
+				   vector->vcl_long[sequence], relation->rel_id, sequence);
+#endif
+
+/* Give the page a quick once over */
+
+	if (page->ppg_relation != relation->rel_id ||
+		page->ppg_sequence != sequence)
+			return corrupt(tdbb, control, VAL_P_PAGE_INCONSISTENT, relation,
+						   sequence);
+
+/* Walk the data pages (someday we may optionally walk pages with "large objects" */
+
+	seq = (SLONG) sequence *dbb->dbb_dp_per_pp;
+
+	for (pages = page->ppg_page, slot = 0; slot < page->ppg_count;
+		 slot++, pages++, seq++)
+		if (*pages) {
+			result = walk_data_page(tdbb, control, relation, *pages, seq);
+			if (result != rtn_ok && (control->vdr_flags & vdr_repair)) {
+				CCH_MARK(tdbb, &window);
+				*pages = 0;
+			}
+		}
+
+/* If this is the last pointer page in the relation, we're done */
+
+	if (page->ppg_header.pag_flags & ppg_eof) {
+		CCH_RELEASE(tdbb, &window);
+		return rtn_eof;
+	}
+
+/* Make sure the "next" pointer agrees with the pages relation */
+
+	if (++sequence >= static_cast<int>(vector->vcl_count) ||
+		(page->ppg_next && page->ppg_next != vector->vcl_long[sequence]))
+	{
+		CCH_RELEASE(tdbb, &window);
+		return corrupt(	tdbb,
+						control,
+						VAL_P_PAGE_INCONSISTENT,
+						relation,
+						sequence);
+	}
+
+	CCH_RELEASE(tdbb, &window);
+	return rtn_ok;
+}
+
+
+static RTN walk_record(TDBB tdbb,
+					   VDR control,
+					   REL relation,
+					   RHD header,
+					   USHORT length, SLONG number, USHORT delta_flag)
+{
+/**************************************
+ *
+ *	w a l k _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk a record.
+ *
+ **************************************/
+	WIN window;
+	DPG page;
+	RHDF fragment;
+	USHORT record_length, line_number;
+	SLONG page_number;
+	FMT format;
+	UCHAR flags;
+	SCHAR c, *p, *end;
+	RTN result;
+	dpg::dpg_repeat * line;
+
+	SET_TDBB(tdbb);
+
+#ifdef VAL_VERBOSE
+	if (VAL_debug_level) {
+		ib_fprintf(ib_stdout, "record: number %ld (%d/%d) ",
+				   number,
+				   (USHORT) number / tdbb->tdbb_database->dbb_max_records,
+				   (USHORT) number % tdbb->tdbb_database->dbb_max_records);
+		print_rhd(length, header);
+	};
+#endif
+
+	if (header->rhd_flags & rhd_damaged) {
+		corrupt(tdbb, control, VAL_REC_DAMAGED, relation, number);
+		return rtn_ok;
+	}
+
+	if (control && header->rhd_transaction > control->vdr_max_transaction)
+		corrupt(tdbb, control, VAL_REC_BAD_TID, relation, number,
+				header->rhd_transaction);
+
+/* If there's a back pointer, verify that it's good */
+
+	if (header->rhd_b_page && !(header->rhd_flags & rhd_chain)) {
+		result = walk_chain(tdbb, control, relation, header, number);
+		if (result != rtn_ok)
+			return result;
+	}
+
+/* If the record is a fragment, not large, or we're not interested in
+   chasing records, skip the record */
+
+	if (header->rhd_flags & (rhd_fragment | rhd_deleted) ||
+		!((header->rhd_flags & rhd_large) ||
+		  (control && (control->vdr_flags & vdr_records)))) return rtn_ok;
+
+/* Pick up what length there is on the fragment */
+
+	fragment = (RHDF) header;
+
+	if (header->rhd_flags & rhd_incomplete) {
+		p = (SCHAR *) fragment->rhdf_data;
+		end = p + length - OFFSETA(RHDF, rhdf_data);
+	}
+	else {
+		p = (SCHAR *) header->rhd_data;
+		end = p + length - OFFSETA(RHD, rhd_data);
+	}
+
+	record_length = 0;
+
+	while (p < end)
+		if ((c = *p++) >= 0) {
+			record_length += c;
+			p += c;
+		}
+		else {
+			record_length -= c;
+			p++;
+		}
+
+/* Next, chase down fragments, if any */
+
+	page_number = fragment->rhdf_f_page;
+	line_number = fragment->rhdf_f_line;
+	flags = fragment->rhdf_flags;
+
+	while (flags & rhd_incomplete) {
+		fetch_page(tdbb, control, page_number, pag_data, &window, &page);
+		line = &page->dpg_rpt[line_number];
+		if (page->dpg_relation != relation->rel_id ||
+			line_number >= page->dpg_count || !(length = line->dpg_length)) {
+			corrupt(tdbb, control, VAL_REC_FRAGMENT_CORRUPT, relation,
+					number);
+			CCH_RELEASE(tdbb, &window);
+			return rtn_corrupt;
+		}
+		fragment = (RHDF) ((UCHAR *) page + line->dpg_offset);
+#ifdef VAL_VERBOSE
+		if (VAL_debug_level) {
+			ib_fprintf(ib_stdout, "fragment: pg %d/%d ",
+					   page_number, line_number);
+			print_rhd(line->dpg_length, (RHD) fragment);
+		}
+#endif
+		if (fragment->rhdf_flags & rhd_incomplete) {
+			p = (SCHAR *) fragment->rhdf_data;
+			end = p + line->dpg_length - OFFSETA(RHDF, rhdf_data);
+		}
+		else {
+			p = (SCHAR *) ((RHD) fragment)->rhd_data;
+			end = p + line->dpg_length - OFFSETA(RHD, rhd_data);
+		}
+		while (p < end)
+			if ((c = *p++) >= 0) {
+				record_length += c;
+				p += c;
+			}
+			else {
+				record_length -= c;
+				p++;
+			}
+		page_number = fragment->rhdf_f_page;
+		line_number = fragment->rhdf_f_line;
+		flags = fragment->rhdf_flags;
+		CCH_RELEASE(tdbb, &window);
+	}
+
+/* Check out record length and format */
+
+	format = MET_format(tdbb, relation, header->rhd_format);
+
+	if (!delta_flag && record_length != format->fmt_length)
+		return corrupt(tdbb, control, VAL_REC_WRONG_LENGTH, relation, number);
+
+	return rtn_ok;
+}
+
+static RTN walk_relation(TDBB tdbb, VDR control, REL relation)
+{
+/**************************************
+ *
+ *	w a l k _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk all pages associated with a given relation.
+ *
+ **************************************/
+	int *old_env, ret;
+	JMP_BUF env;
+	SLONG sequence;
+
+	SET_TDBB(tdbb);
+
+	old_env = (int *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+
+/* If we get an error for any reason, at least say where we were */
+
+	ret = SETJMP(env);
+
+	if (ret) {
+		TEXT s[64], *msg;
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		msg = (relation->rel_name) ?
+			"bugcheck during scan of table %d (%s)" :
+			"bugcheck during scan of table %d";
+		sprintf(s, msg, relation->rel_id, relation->rel_name);
+		gds__log(s);
+#ifdef VAL_VERBOSE
+		if (VAL_debug_level)
+			ib_fprintf(ib_stdout, "LOG:\t%s\n", s);
+#endif
+		ERR_punt();
+	}
+
+/* If relation hasn't been scanned, do so now */
+
+	if (!(relation->rel_flags & REL_scanned) ||
+		(relation->rel_flags & REL_being_scanned))
+			MET_scan_relation(tdbb, relation);
+
+#ifdef VAL_VERBOSE
+	if (VAL_debug_level)
+		ib_fprintf(ib_stdout, "walk_relation: id %d fmt %d %s %s\n",
+				   relation->rel_id, relation->rel_current_fmt,
+				   relation->rel_name, relation->rel_owner_name);
+#endif
+
+/* If it's a view or external file, skip this */
+
+	if (relation->rel_view_rse || relation->rel_file) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		return rtn_ok;
+	}
+
+
+/* Walk pointer and selected data pages associated with relation */
+
+	if (control) {
+		control->vdr_rel_backversion_counter = 0;
+		control->vdr_rel_chain_counter = 0;
+		SBM_reset(&control->vdr_rel_records);
+	}
+	for (sequence = 0; TRUE; sequence++) {
+		RTN result;
+		result = walk_pointer_page(tdbb, control, relation, sequence);
+		if (result == rtn_eof)
+			break;
+		if (result != rtn_ok) {
+			tdbb->tdbb_setjmp = (UCHAR *) old_env;
+			return result;
+		}
+	};
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+
+/* Walk indices for the relation */
+	(void) walk_root(tdbb, control, relation);
+
+/* See if the counts of backversions match */
+	if (control && (control->vdr_flags & vdr_records) &&
+		(control->vdr_rel_backversion_counter !=
+		 control->vdr_rel_chain_counter))
+	{
+		 return corrupt(tdbb,
+						control,
+						VAL_REL_CHAIN_ORPHANS,
+						relation,
+						control->vdr_rel_backversion_counter - control-> vdr_rel_chain_counter,
+						control-> vdr_rel_chain_counter);
+	}
+
+	return rtn_ok;
+}
+
+static RTN walk_root(TDBB tdbb, VDR control, REL relation)
+{
+/**************************************
+ *
+ *	w a l k _ r o o t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk index root page for a relation as well as any indices.
+ *
+ **************************************/
+	WIN window;
+	IRT page;
+	SLONG page_number;
+	USHORT i;
+
+	SET_TDBB(tdbb);
+
+/* If the relation has an index root, walk it */
+
+	if (!relation->rel_index_root)
+		return corrupt(tdbb, control, VAL_INDEX_ROOT_MISSING, relation);
+
+	fetch_page(tdbb, control, relation->rel_index_root, pag_root, &window,
+			   &page);
+
+	for (i = 0; i < page->irt_count; i++)
+		if (page_number = page->irt_rpt[i].irt_root)
+			(void) walk_index(tdbb, control, relation, page_number, i);
+
+	CCH_RELEASE(tdbb, &window);
+
+	return rtn_ok;
+}
+
+static RTN walk_tip(TDBB tdbb, VDR control, SLONG transaction)
+{
+/**************************************
+ *
+ *	w a l k _ t i p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk transaction inventory pages.
+ *
+ **************************************/
+	DBB dbb;
+	WIN window;
+	TIP page;
+	VCL vector;
+	ULONG sequence, pages;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+
+	if (!(vector = dbb->dbb_t_pages)) {
+		return corrupt(tdbb, control, VAL_TIP_LOST, 0);
+	}
+
+	pages = transaction / dbb->dbb_pcontrol->pgc_tpt;
+
+	for (sequence = 0; sequence <= pages; sequence++) {
+		if (!vector->vcl_long[sequence] || sequence >= vector->vcl_count) {
+			corrupt(tdbb, control, VAL_TIP_LOST_SEQUENCE, 0, sequence);
+			if (!(control->vdr_flags & vdr_repair))
+				continue;
+			TRA_extend_tip(tdbb, sequence, 0);
+			vector = dbb->dbb_t_pages;
+		}
+		fetch_page(	tdbb,
+					control,
+					vector->vcl_long[sequence],
+					pag_transactions,
+					&window,
+					&page);
+
+#ifdef VAL_VERBOSE
+		if (VAL_debug_level)
+			ib_fprintf(ib_stdout, "walk_tip: page %d next %d\n",
+					   vector->vcl_long[sequence], page->tip_next);
+#endif
+		if (page->tip_next && page->tip_next != vector->vcl_long[sequence + 1])
+		{
+			corrupt(tdbb, control, VAL_TIP_CONFUSED, 0, sequence);
+		}
+		CCH_RELEASE(tdbb, &window);
+	}
+
+	return rtn_ok;
+}
diff --git a/src/jrd/val.h b/src/jrd/val.h
new file mode 100644
index 0000000000..2de9366f57
--- /dev/null
+++ b/src/jrd/val.h
@@ -0,0 +1,188 @@
+/*
+ *	PROGRAM:	JRD access method
+ *	MODULE:		val.h
+ *	DESCRIPTION:	Definitions associated with value handling
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_VAL_H_
+#define _JRD_VAL_H_
+
+#include "../jrd/dsc.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+#ifdef GATEWAY
+#define FLAG_BYTES(n)	(n * sizeof (SSHORT) * 2)
+#else
+#define FLAG_BYTES(n)	(((n + BITS_PER_LONG) & ~((ULONG)BITS_PER_LONG - 1)) >> 3)
+#endif
+
+#ifndef VMS
+#define DEFAULT_DOUBLE	dtype_double
+#else
+
+#ifndef GATEWAY
+#define DEFAULT_DOUBLE	dtype_double
+#define SPECIAL_DOUBLE	dtype_d_float
+#define CNVT_TO_DFLT(x)	MTH$CVT_D_G (x)
+#define CNVT_FROM_DFLT(x)	MTH$CVT_G_D (x)
+#else
+#define DEFAULT_DOUBLE	dtype_d_float
+#define SPECIAL_DOUBLE	dtype_double
+#define CNVT_TO_DFLT(x)	MTH$CVT_G_D (x)
+#define CNVT_FROM_DFLT(x)	MTH$CVT_D_G (x)
+#endif
+
+#endif
+
+#ifndef REQUESTER
+typedef struct fmt {
+	struct blk fmt_header;
+	USHORT fmt_length;
+	USHORT fmt_count;
+	USHORT fmt_version;
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+	SCHAR fmt_fill[2];			/* IMPORTANT!  THE SOLE PURPOSE OF THIS FIELD
+								   IS TO INSURE THAT THE SUCCEEDING FIELD IS ALIGNED ON A
+								   4 BYTE BOUNDARY.  IT IS NECESSARY BECAUSE THE 16-BIT
+								   COMPILER CANNOT DO THIS ALIGNMENT FOR US.  HAVING
+								   THIS FIELD INSURES THAT A PC_PLATFORM DATABASE IS
+								   IDENTICAL TO ONE ON Windows/NT. */
+#endif
+	struct dsc fmt_desc[1];
+#ifdef GATEWAY
+	struct xdsc fmt_ext_desc[1];
+#endif
+} *FMT;
+#endif /* REQUESTER */
+
+#define MAX_FORMAT_SIZE		65535
+
+typedef struct vary {
+	USHORT vary_length;
+	UCHAR vary_string[1];
+} VARY;
+
+/* A macro to define a local vary stack variable of a given length
+   Usage:  VARY_STRING(5)	my_var;        */
+
+#define VARY_STR(x)	struct { USHORT vary_length; UCHAR vary_string [x]; }
+
+#ifndef REQUESTER
+/* Function definition block */
+
+typedef ENUM {
+		FUN_value,
+		FUN_reference,
+		FUN_descriptor, FUN_blob_struct, FUN_scalar_array} FUN_T;
+
+typedef struct fun {
+	struct blk fun_header;
+	STR fun_exception_message;	/* message containing the exception error message */
+	struct fun *fun_homonym;	/* Homonym functions */
+	struct sym *fun_symbol;		/* Symbol block */
+	int (*fun_entrypoint) ();	/* Function entrypoint */
+	USHORT fun_count;			/* Number of arguments (including return) */
+	USHORT fun_args;			/* Number of input arguments */
+	USHORT fun_return_arg;		/* Return argument */
+	USHORT fun_type;			/* Type of function */
+	ULONG fun_temp_length;		/* Temporary space required */
+	struct fun_repeat {
+		DSC fun_desc;			/* Datatype info */
+		FUN_T fun_mechanism;	/* Passing mechanism */
+	} fun_rpt[1];
+} *FUN;
+
+#define FUN_value	0
+#define FUN_boolean	1
+
+/* Blob passing structure */
+
+typedef struct blob {
+	SSHORT(*blob_get_segment) ();
+	int *blob_handle;
+	SLONG blob_number_segments;
+	SLONG blob_max_segment;
+	SLONG blob_total_length;
+	void (*blob_put_segment) ();
+	  SLONG(*blob_seek) ();
+} *BLOB;
+
+/* Scalar array descriptor */
+
+typedef struct sad {
+	DSC sad_desc;
+	SLONG sad_dimensions;
+	struct sad_repeat {
+		SLONG sad_lower;
+		SLONG sad_upper;
+	} sad_rpt[1];
+} *SAD;
+#endif /* REQUESTER */
+
+/* Array description */
+
+typedef struct ads {
+	UCHAR ads_version;			/* Array descriptor version number */
+	UCHAR ads_dimensions;		/* Dimensions of array */
+	USHORT ads_struct_count;	/* Number of struct elements */
+	USHORT ads_element_length;	/* Length of array element */
+	USHORT ads_length;			/* Length of array descriptor */
+	SLONG ads_count;			/* Total number of elements */
+	SLONG ads_total_length;		/* Total length of array */
+	struct ads_repeat {
+		DSC ads_desc;			/* Element descriptor */
+		SLONG ads_length;		/* Length of "vector" element */
+		SLONG ads_lower;		/* Lower bound */
+		SLONG ads_upper;		/* Upper bound */
+	} ads_rpt[1];
+} *ADS;
+
+#define ADS_VERSION_1	1
+#ifdef __cplusplus
+#define ADS_LEN(count)	(sizeof (struct ads) + (count - 1) * sizeof (struct ads::ads_repeat))
+#else
+#define ADS_LEN(count)	(sizeof (struct ads) + (count - 1) * sizeof (struct ads_repeat))
+#endif
+
+#ifndef REQUESTER
+typedef struct arr {
+	struct blk arr_header;
+	UCHAR *arr_data;			/* Data block, if allocated */
+	struct blb *arr_blob;		/* Blob for data access */
+	struct tra *arr_transaction;	/* Parent transaction block */
+	struct arr *arr_next;		/* Next array in transaction */
+	struct req *arr_request;	/* request */
+	SLONG arr_effective_length;	/* Length of array instance */
+	USHORT arr_desc_length;		/* Length of array descriptor */
+	struct ads arr_desc;		/* Array descriptor */
+} *ARR;
+
+#endif /* REQUESTER */
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+
+#endif /* _JRD_VAL_H_ */
diff --git a/src/jrd/val_proto.h b/src/jrd/val_proto.h
new file mode 100644
index 0000000000..887f9f3d8c
--- /dev/null
+++ b/src/jrd/val_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		val_proto.h
+ *	DESCRIPTION:	Prototype header file for val.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_VAL_PROTO_H_
+#define _JRD_VAL_PROTO_H_
+
+extern BOOLEAN VAL_validate(TDBB, USHORT);
+
+#endif /* _JRD_VAL_PROTO_H_ */
diff --git a/src/jrd/version.rc b/src/jrd/version.rc
new file mode 100644
index 0000000000..bc608d2385
--- /dev/null
+++ b/src/jrd/version.rc
@@ -0,0 +1,54 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include <ver.h>
+#include "../jrd/build_no.h"
+
+
+VS_VERSION_INFO VERSIONINFO
+FILEFLAGSMASK   VS_FF_DEBUG | VS_FF_PRERELEASE
+FILEFLAGS       VS_FF_PRERELEASE | VS_FF_SPECIALBUILD
+FILEVERSION     FILE_VER_NUMBER
+PRODUCTVERSION  FILE_VER_NUMBER
+FILEOS          VOS_DOS_WINDOWS16
+
+FILETYPE        VFT_APP
+FILESUBTYPE     VS_USER_DEFINED
+
+BEGIN
+  BLOCK "StringFileInfo"
+  BEGIN
+    BLOCK "040904E4"
+    BEGIN
+      VALUE "CompanyName", "Borland International\0"
+      VALUE "FileDescription", "InterBase Server\0"
+      VALUE "FileVersion", FILE_VER_STRING
+      VALUE "InternalName", "IBWC\0"
+      VALUE "LegalCopyright", "Copyright(c) Borland International. 1996\0"
+      VALUE "ProductName", "\0"
+      VALUE "ProductVersion", PRODUCT_VER_STRING
+
+    END
+
+  END
+
+  BLOCK "VarFileInfo"
+  BEGIN                               /*  Language   |    Translation       */
+    VALUE "Translation", 0x409, 1252  /* U.S. English, Windows Multilingual */
+  END
+END
diff --git a/src/jrd/version_95.rc b/src/jrd/version_95.rc
new file mode 100644
index 0000000000..149d6f787f
--- /dev/null
+++ b/src/jrd/version_95.rc
@@ -0,0 +1,50 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include <winver.h>
+#include "../jrd/build_no.h"
+
+
+VS_VERSION_INFO VERSIONINFO
+FILEFLAGSMASK   VS_FF_PRERELEASE
+FILEFLAGS       VS_FF_PRERELEASE | VS_FF_SPECIALBUILD
+FILEVERSION     FILE_VER_NUMBER
+PRODUCTVERSION  FILE_VER_NUMBER
+FILEOS          VOS_NT_WINDOWS32
+
+FILETYPE        VFT_APP
+BEGIN
+  BLOCK "StringFileInfo"
+  BEGIN
+    BLOCK "040904E4"
+    BEGIN
+      VALUE "CompanyName", "Inprise Corporation\0"
+      VALUE "FileDescription", "InterBase Server\0"
+      VALUE "FileVersion", FILE_VER_STRING
+      VALUE "InternalName", "IBSERVER60\0"
+      VALUE "LegalCopyright", "Copyright (c) 1999 Inprise Corporation\0"
+      VALUE "ProductName", "InterBase Server\0"
+      VALUE "ProductVersion", PRODUCT_VER_STRING
+    END
+  END
+
+  BLOCK "VarFileInfo"
+  BEGIN                               /*  Language   |    Translation       */
+    VALUE "Translation", 0x409, 1252  /* U.S. English, Windows Multilingual */
+  END
+END
diff --git a/src/jrd/vio.cpp b/src/jrd/vio.cpp
new file mode 100644
index 0000000000..a4e4a6050d
--- /dev/null
+++ b/src/jrd/vio.cpp
@@ -0,0 +1,4450 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		vio.c
+ *	DESCRIPTION:	Virtual IO
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/jrd.h"
+#include "../jrd/val.h"
+#include "../jrd/req.h"
+#include "../jrd/tra.h"
+#include "../jrd/ids.h"
+#include "../jrd/lck.h"
+#include "../jrd/lls.h"
+#include "../jrd/scl.h"
+#include "../jrd/ibase.h"
+#include "../jrd/flags.h"
+#include "../jrd/ods.h"
+#include "../jrd/pio.h"
+#include "../jrd/btr.h"
+#include "../jrd/exe.h"
+#include "../jrd/rse.h"
+#include "../jrd/rng.h"
+#include "../jrd/thd.h"
+#ifdef VIO_DEBUG
+#include "../jrd/all.h"
+#include "../jrd/vio_debug.h"
+#endif
+#include "../jrd/all_proto.h"
+#include "../jrd/blb_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/dbg_proto.h"
+#include "../jrd/dfw_proto.h"
+#include "../jrd/dpm_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/evl_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/idx_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/jrd_proto.h"
+#include "../jrd/lck_proto.h"
+#include "../jrd/met_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/rng_proto.h"
+#include "../jrd/sbm_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/scl_proto.h"
+#include "../jrd/sqz_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/tpc_proto.h"
+#include "../jrd/tra_proto.h"
+#include "../jrd/vio_proto.h"
+
+
+extern "C" {
+
+
+static void bump_count(TDBB, USHORT, REL);
+static void check_class(TDBB, TRA, RPB *, RPB *, USHORT);
+static void check_control(TDBB);
+static BOOLEAN check_user(TDBB, DSC *);
+static void delete_(TDBB, RPB *, SLONG, struct plb *);
+static UCHAR *delete_tail(TDBB, RPB *, SLONG, UCHAR *, UCHAR *);
+static void expunge(TDBB, RPB *, TRA, SLONG);
+static void garbage_collect(TDBB, RPB *, SLONG, LLS);
+static void garbage_collect_idx(TDBB, RPB *, RPB *, REC);
+#ifdef GARBAGE_THREAD
+static void THREAD_ROUTINE garbage_collector(DBB);
+#endif
+static SAV get_free_save_point_block(TRA);
+static void list_staying(TDBB, RPB *, LLS *);
+#ifdef GARBAGE_THREAD
+static void notify_garbage_collector(TDBB, RPB *);
+#endif
+static void prepare_update(TDBB, TRA, SLONG, RPB *, RPB *, RPB *, LLS *);
+static BOOLEAN purge(TDBB, RPB *);
+static REC replace_gc_record(REL, REC *, USHORT);
+static void replace_record(TDBB, RPB *, LLS *, TRA);
+static SLONG savepoint_size(TRA);
+static void set_system_flag(RPB *, USHORT, SSHORT);
+static void update_in_place(TDBB, TRA, RPB *, RPB *);
+static void verb_post(TDBB, TRA, RPB *, REC, RPB *, BOOLEAN, BOOLEAN);
+
+/* Pick up relation ids */
+
+#ifndef DEV_BUILD
+#define FUDGE	1
+#endif
+#define RELATION(name, id, ods)	id,
+#define FIELD(symbol, name, id, update, ods, new_id, new_ods)
+#define END_RELATION
+
+typedef ENUM rids {
+#include "../jrd/relations.h"
+rel_MAX} RIDS;
+
+#undef RELATION
+#undef FIELD
+#undef END_RELATION
+
+#ifdef GARBAGE_THREAD
+static CONST SCHAR gc_tpb[] = { isc_tpb_version1, isc_tpb_read,
+	isc_tpb_read_committed, isc_tpb_rec_version,
+	isc_tpb_ignore_limbo
+};
+#endif
+
+
+void VIO_backout(TDBB tdbb, RPB * rpb, TRA transaction)
+{
+/**************************************
+ *
+ *	V I O _ b a c k o u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Backout the current version of a record.  This may called
+ *	either because of transaction death or because the record
+ *	violated a unique index.  In either case, get rid of the
+ *	current version and back an old version.  
+ *
+ *	This routine is called with an inactive RPB, and has to 
+ *	take great pains to avoid conflicting with another process
+ *	which is also trying to backout the same record.  On exit
+ *	there is no active RPB, and the record may or may not have
+ *	been backed out, depending on whether we encountered conflict.
+ *	But this record is doomed, and if we don't get it somebody
+ *	will.
+ *
+ **************************************/
+	DBB dbb;
+	RPB temp, temp2;
+	REL relation;
+	REC data, old_data, gc_rec1, gc_rec2;
+	LLS going, staying;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("VIO_backout (rpb %d, transaction %d)\n", rpb->rpb_number,
+				  transaction ? transaction->tra_number : 0);
+#endif
+
+	relation = rpb->rpb_relation;
+	bump_count(tdbb, DBB_backout_count, relation);
+	going = staying = NULL;
+	old_data = data = NULL;
+	gc_rec1 = gc_rec2 = NULL;
+
+/* If there is data in the record, fetch it now.  If the old version
+   is a differences record, we will need it sooner.  In any case, we
+   will need it eventually to clean up blobs and indices. If the record
+   has changed in between, stop now before things get worse.*/
+
+	temp = *rpb;
+	if (!DPM_get(tdbb, &temp, LCK_read))
+		return;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("   record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 temp.rpb_page, temp.rpb_line, temp.rpb_transaction,
+			 temp.rpb_flags, temp.rpb_b_page, temp.rpb_b_line,
+			 temp.rpb_f_page, temp.rpb_f_line);
+	if (
+		(temp.rpb_b_page != rpb->rpb_b_page
+		 || temp.rpb_b_line != rpb->rpb_b_line
+		 || temp.rpb_transaction != rpb->rpb_transaction)
+		&& debug_flag > DEBUG_WRITES_INFO) ib_printf("    wrong record!)\n");
+#endif
+
+	if (temp.rpb_b_page != rpb->rpb_b_page ||
+		temp.rpb_b_line != rpb->rpb_b_line ||
+		temp.rpb_transaction != rpb->rpb_transaction) {
+		CCH_RELEASE(tdbb, &temp.rpb_window);
+		return;
+	}
+	if (temp.rpb_flags & rpb_deleted)
+		CCH_RELEASE(tdbb, &temp.rpb_window);
+	else {
+		temp.rpb_record = VIO_gc_record(tdbb, relation);
+		VIO_data(tdbb, &temp, reinterpret_cast < blk * >(dbb->dbb_permanent));
+		data = temp.rpb_prior;
+		old_data = temp.rpb_record;
+		rpb->rpb_prior = temp.rpb_prior;
+		gc_rec2 = temp.rpb_record;
+		LLS_PUSH(temp.rpb_record, &going);
+	}
+
+/* Set up an extra record parameter block.  This will be used to preserve
+   the main record information while we chase fragments. */
+
+	temp2 = temp = *rpb;
+
+/* If there is an old version of the record, fetch it's data now. */
+
+	if (rpb->rpb_b_page) {
+		temp.rpb_record = gc_rec1 = VIO_gc_record(tdbb, relation);
+		if (!DPM_get(tdbb, &temp, LCK_read))
+			goto gc_cleanup;
+		if (temp.rpb_b_page != rpb->rpb_b_page ||
+			temp.rpb_b_line != rpb->rpb_b_line ||
+			temp.rpb_transaction != rpb->rpb_transaction) {
+			CCH_RELEASE(tdbb, &temp.rpb_window);
+			goto gc_cleanup;
+		}
+		if (temp.rpb_flags & rpb_delta)
+			temp.rpb_prior = data;
+		DPM_fetch_back(tdbb, &temp, LCK_read, 1);
+		if (temp.rpb_flags & rpb_deleted)
+			CCH_RELEASE(tdbb, &temp.rpb_window);
+		else
+			VIO_data(tdbb, &temp,
+					 reinterpret_cast < blk * >(dbb->dbb_permanent));
+		gc_rec1 = temp.rpb_record;
+		temp.rpb_page = rpb->rpb_b_page;
+		temp.rpb_line = rpb->rpb_b_line;
+	}
+
+/* Re-fetch the record. */
+
+	if (!DPM_get(tdbb, rpb, LCK_write))
+		goto gc_cleanup;
+
+#ifdef VIO_DEBUG
+	if ((temp2.rpb_b_page != rpb->rpb_b_page ||
+		 temp.rpb_b_line != rpb->rpb_b_line ||
+		 temp.rpb_transaction != rpb->rpb_transaction)
+		&& debug_flag >
+		DEBUG_WRITES_INFO) ib_printf("    record changed!)\n");
+#endif
+
+/* If the record is in any way suspicious, release the record and give up. */
+
+	if (rpb->rpb_b_page != temp2.rpb_b_page ||
+		rpb->rpb_b_line != temp2.rpb_b_line ||
+		rpb->rpb_transaction != temp2.rpb_transaction) {
+		CCH_RELEASE(tdbb, &rpb->rpb_window);
+		goto gc_cleanup;
+	}
+
+/* even if the record isn't suspicious, it may have changed a little */
+
+	temp2 = *rpb;
+	rpb->rpb_undo = old_data;
+
+	if (rpb->rpb_flags & rpb_delta)
+		rpb->rpb_prior = data;
+
+/* Handle the case of no old version simply. */
+
+	if (!rpb->rpb_b_page) {
+		delete_(tdbb, rpb, (SLONG) 0, 0);
+		if (!(rpb->rpb_flags & rpb_deleted)) {
+			BLB_garbage_collect(tdbb, going, 0, rpb->rpb_page, relation);
+			IDX_garbage_collect(tdbb, rpb, going, 0);
+			LLS_POP(&going);
+		}
+		goto gc_cleanup;
+	}
+
+/* If both record versions are on the same page, things are a little
+   simpler */
+
+	if (rpb->rpb_page == temp.rpb_page && !rpb->rpb_prior) {
+		DPM_backout(tdbb, rpb);
+		if (temp2.rpb_flags & rpb_deleted)
+			goto gc_cleanup;
+		delete_tail(tdbb, &temp2, rpb->rpb_page, 0, 0);
+	}
+	else {
+		/* Bring the old version forward.  If the outgoing version was deleted,
+		   there is no garbage collection to be done.  */
+
+		rpb->rpb_address = temp.rpb_address;
+		rpb->rpb_length = temp.rpb_length;
+		rpb->rpb_flags = temp.rpb_flags & rpb_deleted;
+		if (temp.rpb_prior)
+			rpb->rpb_flags |= rpb_delta;
+		rpb->rpb_b_page = temp.rpb_b_page;
+		rpb->rpb_b_line = temp.rpb_b_line;
+		rpb->rpb_transaction = temp.rpb_transaction;
+		rpb->rpb_format_number = temp.rpb_format_number;
+
+		if (temp2.rpb_flags & rpb_deleted) {
+			replace_record(tdbb, rpb, 0, transaction);
+			if (!DPM_fetch(tdbb, &temp, LCK_write))
+				BUGCHECK(291);	/* msg 291 cannot find record back version */
+			delete_(tdbb, &temp, rpb->rpb_page, 0);
+			goto gc_cleanup;
+		}
+
+		/* There is cleanup to be done.  Bring the old version forward first */
+
+		rpb->rpb_flags &=
+			~(rpb_fragment | rpb_incomplete | rpb_chained | rpb_gc_active);
+		DPM_update(tdbb, rpb, 0, transaction);
+		delete_tail(tdbb, &temp2, rpb->rpb_page, 0, 0);
+
+		/* Next, delete the old copy of the now current version. */
+
+		if (!DPM_fetch(tdbb, &temp, LCK_write))
+			BUGCHECK(291);		/* msg 291 cannot find record back version */
+		delete_(tdbb, &temp, rpb->rpb_page, 0);
+	}
+
+
+	rpb->rpb_prior = NULL;
+	list_staying(tdbb, rpb, &staying);
+	BLB_garbage_collect(tdbb, going, staying, rpb->rpb_page, relation);
+	IDX_garbage_collect(tdbb, rpb, going, staying);
+
+	if (going)
+		LLS_POP(&going);
+
+	while (staying)
+		ALL_release(reinterpret_cast < frb * >(LLS_POP(&staying)));
+
+/* Return relation garbage collect record blocks to vector. */
+
+  gc_cleanup:
+	if (gc_rec1)
+		gc_rec1->rec_flags &= ~REC_gc_active;
+	if (gc_rec2)
+		gc_rec2->rec_flags &= ~REC_gc_active;
+}
+
+
+int VIO_chase_record_version(
+							 TDBB tdbb,
+							 RPB * rpb, RSB rsb, TRA transaction, BLK pool)
+{
+/**************************************
+ *
+ *	V I O _ c h a s e _ r e c o r d _ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	This is the key routine in all of JRD.  Given a record, determine
+ *	what the version, if any, is appropriate for this transaction.  This
+ *	is primarily done by playing with transaction numbers.  If, in the
+ *	process, a record is found that requires garbage collection, by all
+ *	means garbage collect it.
+ *
+ **************************************/
+	USHORT state;
+	RPB temp;
+	ATT attachment;
+#ifdef PC_ENGINE
+	REQ request;
+	IRSB impure;
+#endif
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf
+			("VIO_chase_record_version (rpb %d, transaction %d, pool %d)\n",
+			 rpb->rpb_number, transaction ? transaction->tra_number : 0,
+			 pool ? ((PLB) pool)->plb_pool_id : 0);
+	if (debug_flag > DEBUG_TRACE_ALL_INFO)
+		ib_printf
+			("   record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line);
+#endif
+
+/* Handle the fast path first.  If the record is committed, isn't deleted,
+   and doesn't have an old version that is a candidate for garbage collection,
+   return without further ado */
+
+	state = TRA_snapshot_state(tdbb, transaction, rpb->rpb_transaction);
+
+/* Reset the garbage collect active flag if the transaction state is
+   in a terminal state. If committed it must have been a precommitted
+   transaction that was backing out a dead record version and the
+   system crashed. Clear the flag and set the state to tra_dead to
+   reattempt the backout. */
+
+	if (rpb->rpb_flags & rpb_gc_active)
+		switch (state) {
+		case tra_committed:
+			state = tra_dead;
+			rpb->rpb_flags &= ~rpb_gc_active;
+			break;
+
+		case tra_dead:
+			rpb->rpb_flags &= ~rpb_gc_active;
+			break;
+
+		default:
+			break;
+		}
+
+	if ((state == tra_committed || state == tra_us) &&
+		!(rpb->rpb_flags & (rpb_deleted | rpb_damaged)) &&
+		(rpb->rpb_b_page == 0 ||
+		 rpb->rpb_transaction >= transaction->tra_oldest_active)) return TRUE;
+
+	attachment = transaction->tra_attachment;
+
+/* OK, something about the record is fishy.  Loop thru versions until a
+   satisfactory version is found or we run into a brick wall.  Do any
+   garbage collection that seems appropriate. */
+
+/* First, save the record indentifying information to be restored on exit */
+
+	while (TRUE) {
+#ifdef VIO_DEBUG
+		if (debug_flag > DEBUG_READS_INFO)
+			ib_printf
+				("   chase record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+				 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+				 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+				 rpb->rpb_f_page, rpb->rpb_f_line);
+#endif
+		if (rpb->rpb_flags & rpb_damaged) {
+			CCH_RELEASE(tdbb, &rpb->rpb_window);
+			return FALSE;
+		}
+		if (state == tra_limbo
+			&& !(transaction->tra_flags & TRA_ignore_limbo)) {
+			state = TRA_wait(tdbb, transaction, rpb->rpb_transaction, TRUE);
+			if (state == tra_active)
+				state = tra_limbo;
+		}
+		/* If the transaction is a read committed and chooses the no version
+		 * option, wait for reads also!
+		 */
+		if ((transaction->tra_flags & TRA_read_committed) &&
+			(!(transaction->tra_flags & TRA_rec_version))) {
+			if (state == tra_limbo) {
+				CCH_RELEASE(tdbb, &rpb->rpb_window);
+				state =
+					TRA_wait(tdbb, transaction, rpb->rpb_transaction, TRUE);
+
+				if (!DPM_get(tdbb, rpb, LCK_read))
+					return FALSE;
+
+				state =
+					TRA_snapshot_state(tdbb, transaction,
+									   rpb->rpb_transaction);
+
+				/* will come back with active if lock mode is no wait */
+
+				if (state == tra_active) {
+					/* error if we cannot ignore limbo, else fall through
+					 * to next version
+					 */
+					if (!(transaction->tra_flags & TRA_ignore_limbo)) {
+						CCH_RELEASE(tdbb, &rpb->rpb_window);
+						ERR_post(isc_deadlock, isc_arg_gds, isc_trainlim, 0);
+					}
+
+					state = tra_limbo;
+				}
+			}
+			else if (state == tra_active && !(rpb->rpb_flags & rpb_gc_active)) {
+				/* A read committed, no record version transaction has to wait
+				   if the record has been modified by an active transaction. But
+				   it shouldn't wait if this is a transient fragmented backout
+				   of a dead record version. */
+
+				CCH_RELEASE(tdbb, &rpb->rpb_window);
+				state =
+					TRA_wait(tdbb, transaction, rpb->rpb_transaction, TRUE);
+				if (state == tra_active)
+					ERR_post(isc_deadlock, 0);
+
+				/* refetch the record and try again.  The active transaction
+				 * could have updated the record a second time.
+				 * go back to outer loop 
+				 */
+
+				if (!DPM_get(tdbb, rpb, LCK_read))
+					return FALSE;
+
+				state =
+					TRA_snapshot_state(tdbb, transaction,
+									   rpb->rpb_transaction);
+				continue;
+			}
+		}
+
+		switch (state) {
+			/* If it's dead, back it out, if possible.  Otherwise continue to
+			   chase backward */
+
+		case tra_dead:
+#ifdef VIO_DEBUG
+			if (debug_flag > DEBUG_READS_INFO)
+				ib_printf
+					("    record's transaction (%d) is dead (my TID - %d)\n",
+					 rpb->rpb_transaction, transaction->tra_number);
+#endif
+#ifdef GARBAGE_THREAD
+			if (!(rpb->rpb_flags & rpb_chained) &&
+				attachment->att_flags & ATT_notify_gc) {
+				notify_garbage_collector(tdbb, rpb);
+			}
+
+#endif
+		case tra_precommitted:
+
+			if (attachment->att_flags & ATT_NO_CLEANUP ||
+				rpb->rpb_flags & (rpb_chained | rpb_gc_active)) {
+				if (rpb->rpb_b_page == 0) {
+					CCH_RELEASE(tdbb, &rpb->rpb_window);
+					return FALSE;
+				}
+				temp = *rpb;
+				if (!(rpb->rpb_flags & rpb_deleted)) {
+					VIO_data(tdbb, rpb, pool);
+					rpb->rpb_page = temp.rpb_page;
+					rpb->rpb_line = temp.rpb_line;
+
+					if (!(DPM_fetch(tdbb, rpb, LCK_read))) {
+						if (!DPM_get(tdbb, rpb, LCK_read))
+							return FALSE;
+						break;
+					}
+
+					if (rpb->rpb_b_page != temp.rpb_b_page ||
+						rpb->rpb_b_line != temp.rpb_b_line ||
+						rpb->rpb_f_page != temp.rpb_f_page ||
+						rpb->rpb_f_line != temp.rpb_f_line ||
+						rpb->rpb_flags != temp.rpb_flags) {
+						CCH_RELEASE(tdbb, &rpb->rpb_window);
+						if (!DPM_get(tdbb, rpb, LCK_read))
+							return FALSE;
+						break;
+					}
+					if (temp.rpb_transaction != rpb->rpb_transaction)
+						break;
+					if (rpb->rpb_b_page == 0) {
+						CCH_RELEASE(tdbb, &rpb->rpb_window);
+						return FALSE;
+					}
+					if (rpb->rpb_flags & rpb_delta)
+						rpb->rpb_prior = rpb->rpb_record;
+				}
+				/* Fetch a back version.  If a latch timeout occurs, refetch the
+				   primary version and start again.  If the primary version is
+				   gone, then return 'record not found'. */
+				if (!DPM_fetch_back(tdbb, rpb, LCK_read, -1))
+					if (!DPM_get(tdbb, rpb, LCK_read))
+						return FALSE;
+				break;
+			}
+
+			CCH_RELEASE(tdbb, &rpb->rpb_window);
+			VIO_backout(tdbb, rpb, transaction);
+			if (!DPM_get(tdbb, rpb, LCK_read))
+				return FALSE;
+			break;
+
+			/* If it's active, prepare to fetch the old version. */
+
+		case tra_limbo:
+#ifdef VIO_DEBUG
+			if (debug_flag > DEBUG_READS_INFO)
+				ib_printf
+					("    record's transaction (%d) is in limbo (my TID - %d)\n",
+					 rpb->rpb_transaction, transaction->tra_number);
+#endif
+
+			if (!(transaction->tra_flags & TRA_ignore_limbo)) {
+				CCH_RELEASE(tdbb, &rpb->rpb_window);
+				ERR_post(isc_rec_in_limbo,
+						 isc_arg_number, (SLONG) rpb->rpb_transaction, 0);
+			}
+
+		case tra_active:
+#ifdef VIO_DEBUG
+			if ((debug_flag > DEBUG_READS_INFO) && (state == tra_active))
+				ib_printf
+					("    record's transaction (%d) is active (my TID - %d)\n",
+					 rpb->rpb_transaction, transaction->tra_number);
+#endif
+
+#ifdef PC_ENGINE
+			/* for refresh ranges, we want to know about uncommitted record versions */
+
+			if (rsb) {
+				request = tdbb->tdbb_request;
+				impure = (IRSB_NAV) ((UCHAR *) request + rsb->rsb_impure);
+				if (impure->irsb_flags & irsb_refresh)
+					RNG_add_uncommitted_record(rpb);
+			}
+#endif
+
+			/* we can't use this one so if there aren't any more just stop now. */
+
+			if (rpb->rpb_b_page == 0) {
+				CCH_RELEASE(tdbb, &rpb->rpb_window);
+				return FALSE;
+			}
+			if (!(rpb->rpb_flags & rpb_delta)) {
+				rpb->rpb_prior = NULL;
+				/* Fetch a back version.  If a latch timeout occurs, refetch the
+				   primary version and start again.  If the primary version is
+				   gone, then return 'record not found'. */
+				if (!DPM_fetch_back(tdbb, rpb, LCK_read, -1))
+					if (!DPM_get(tdbb, rpb, LCK_read))
+						return FALSE;
+				break;
+			}
+
+			/* oh groan, we've got to get data.  This means losing our lock and that
+			   means possibly having the world change underneath us.  Specifically, the
+			   primary record may change (because somebody modified or backed it out) and
+			   the first record back may disappear because the primary record was backed
+			   out, and now the first backup back in the primary record's place. */
+
+			else {
+				temp = *rpb;
+				VIO_data(tdbb, rpb, pool);
+				if (temp.rpb_flags & rpb_chained) {
+					rpb->rpb_page = temp.rpb_b_page;
+					rpb->rpb_line = temp.rpb_b_line;
+					if (!DPM_fetch(tdbb, rpb, LCK_read)) {
+						/* Things have changed, start all over again. */
+						if (!DPM_get(tdbb, rpb, LCK_read))
+							return FALSE;	/* entire record disappeared */
+						break;	/* start from the primary version again */
+					}
+				}
+				else {
+					rpb->rpb_page = temp.rpb_page;
+					rpb->rpb_line = temp.rpb_line;
+					if (!DPM_fetch(tdbb, rpb, LCK_read)) {
+						/* Things have changed, start all over again. */
+						if (!DPM_get(tdbb, rpb, LCK_read))
+							return FALSE;	/* entire record disappeared */
+						break;	/* start from the primary version again */
+					}
+					if (rpb->rpb_transaction != temp.rpb_transaction) {
+						CCH_RELEASE(tdbb, &rpb->rpb_window);
+						if (!DPM_get(tdbb, rpb, LCK_read))
+							return FALSE;
+						break;
+					}
+					if (rpb->rpb_b_page == 0) {
+						CCH_RELEASE(tdbb, &rpb->rpb_window);
+						return FALSE;
+					}
+					if (!(rpb->rpb_flags & rpb_delta))
+						rpb->rpb_prior = NULL;
+					/* Fetch a back version.  If a latch timeout occurs, refetch the
+					   primary version and start again.  If the primary version is
+					   gone, then return 'record not found'. */
+					if (!DPM_fetch_back(tdbb, rpb, LCK_read, -1))
+						if (!DPM_get(tdbb, rpb, LCK_read))
+							return FALSE;
+				}
+			}
+			break;
+
+		case tra_us:
+#ifdef VIO_DEBUG
+			if (debug_flag > DEBUG_READS_INFO)
+				ib_printf
+					("    record's transaction (%d) is us (my TID - %d)\n",
+					 rpb->rpb_transaction, transaction->tra_number);
+
+#endif
+
+			if (rpb->rpb_flags & rpb_deleted) {
+				CCH_RELEASE(tdbb, &rpb->rpb_window);
+				return FALSE;
+			}
+			return TRUE;
+
+			/* If it's committed, worry a bit about garbage collection. */
+
+		case tra_committed:
+#ifdef VIO_DEBUG
+			if (debug_flag > DEBUG_READS_INFO)
+				ib_printf
+					("    record's transaction (%d) is committed (my TID - %d)\n",
+					 rpb->rpb_transaction, transaction->tra_number);
+
+#endif
+			if (rpb->rpb_flags & rpb_deleted) {
+				if (rpb->rpb_transaction < transaction->tra_oldest_active &&
+					!(attachment->att_flags & ATT_no_cleanup)) {
+#ifdef GARBAGE_THREAD
+					if (attachment->att_flags & ATT_notify_gc) {
+						notify_garbage_collector(tdbb, rpb);
+						CCH_RELEASE(tdbb, &rpb->rpb_window);
+					}
+					else
+#endif
+					{
+						CCH_RELEASE(tdbb, &rpb->rpb_window);
+						expunge(tdbb, rpb, transaction, (SLONG) 0);
+					}
+					return FALSE;
+				}
+				CCH_RELEASE(tdbb, &rpb->rpb_window);
+				return FALSE;
+			}
+
+			/* Check if no garbage collection can (should) be done.
+			   It might be important not to garbage collect if the primary
+			   record version is not yet committed because garbage collection
+			   might interfere with the updater (prepare_update, update_in_place...).
+			   That might be the reason for the rpb_chained check. */
+
+			if (rpb->rpb_transaction >= transaction->tra_oldest_active ||
+				rpb->rpb_b_page == 0 ||
+				rpb->rpb_flags & rpb_chained ||
+				attachment->att_flags & ATT_no_cleanup) return TRUE;
+
+			/* Garbage collect. */
+
+#ifdef GARBAGE_THREAD
+			if (attachment->att_flags & ATT_notify_gc) {
+				notify_garbage_collector(tdbb, rpb);
+				return TRUE;
+			}
+#endif
+			purge(tdbb, rpb);
+
+			/* Go back to be primary record version and chase versions all over again. */
+			if (!DPM_get(tdbb, rpb, LCK_read))
+				return FALSE;
+		}
+
+		state = TRA_snapshot_state(tdbb, transaction, rpb->rpb_transaction);
+
+		/* Reset the garbage collect active flag if the transaction state is
+		   in a terminal state. If committed it must have been a precommitted
+		   transaction that was backing out a dead record version and the
+		   system crashed. Clear the flag and set the state to tra_dead to
+		   reattempt the backout. */
+
+		if (!(rpb->rpb_flags & rpb_chained) && rpb->rpb_flags & rpb_gc_active)
+			switch (state) {
+			case tra_committed:
+				state = tra_dead;
+				rpb->rpb_flags &= ~rpb_gc_active;
+				break;
+
+			case tra_dead:
+				rpb->rpb_flags &= ~rpb_gc_active;
+				break;
+
+			default:
+				break;
+			}
+	}
+}
+
+
+#ifdef PC_ENGINE
+int VIO_check_if_updated(TDBB tdbb, RPB * rpb)
+{
+/**************************************
+ *
+ *	V I O _ c h e c k _ i f _ u p d a t e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if the record specified in the passed
+ *	rpb has been updated by an uncommitted transaction.
+ *	This involves looking at the latest and greatest 
+ *	version of the record, checking its transaction id,
+ *	then checking the TIP page to see if that transaction
+ *	has been committed.
+ *
+ **************************************/
+	TRA transaction;
+	USHORT state;
+
+	SET_TDBB(tdbb);
+
+/* loop through till we find a real version of the record; 
+   one that isn't going to be garbage collected */
+
+	transaction = tdbb->tdbb_request->req_transaction;
+
+	while (TRUE) {
+		if (!DPM_get(tdbb, rpb, LCK_read))
+			return FALSE;
+		else
+			CCH_RELEASE(tdbb, &rpb->rpb_window);
+
+		/* if the system transaction updated this record,
+		   it automatically is considered committed */
+
+		if (!rpb->rpb_transaction)
+			return FALSE;
+
+		if (rpb->rpb_transaction == transaction->tra_number)
+			return FALSE;
+
+		/* get the state of the given transaction */
+
+		state = TRA_get_state(tdbb, rpb->rpb_transaction);
+
+		/* Reset the garbage collect active flag if the transaction state is
+		   in a terminal state. If committed it must have been a precommitted
+		   transaction that was backing out a dead record version and the
+		   system crashed. Clear the flag and set the state to tra_dead to
+		   reattempt the backout. */
+
+		if (rpb->rpb_flags & rpb_gc_active)
+			switch (state) {
+			case tra_committed:
+				state = tra_dead;
+				rpb->rpb_flags &= ~rpb_gc_active;
+				break;
+
+			case tra_dead:
+				rpb->rpb_flags &= ~rpb_gc_active;
+				break;
+
+			default:
+				break;
+			}
+
+		switch (state) {
+		case tra_committed:
+			return FALSE;
+
+		case tra_active:
+			if (!(rpb->rpb_flags & rpb_gc_active))
+				return TRUE;
+
+		case tra_precommitted:
+			THREAD_EXIT;
+			THREAD_SLEEP(100);	/* milliseconds */
+			THREAD_ENTER;
+			break;
+
+		case tra_limbo:
+			return TRUE;
+
+		case tra_dead:
+			VIO_backout(tdbb, rpb, transaction);
+			break;
+		}
+	}
+}
+#endif
+
+
+void VIO_data(TDBB tdbb, register RPB * rpb, BLK pool)
+{
+/**************************************
+ *
+ *	V I O _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given an active record parameter block, fetch the full record.
+ *
+ *	This routine is called with an active RPB and exits with 
+ *	an INactive RPB.  Yes, Virginia, getting the data for a
+ *	record means losing control of the record.  This turns out
+ *	to matter a lot.
+ **************************************/
+	USHORT length;
+	UCHAR *tail, *tail_end, differences[MAX_DIFFERENCES];
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS)
+	{
+		ib_printf("VIO_data (rpb %d, pool %d)\n",
+					rpb->rpb_number,
+					pool ? ((PLB) pool)->plb_pool_id : 0);
+	}
+	if (debug_flag > DEBUG_READS_INFO)
+	{
+		ib_printf("   record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+				 rpb->rpb_page, rpb->rpb_line,
+				 rpb->rpb_transaction,
+				 rpb->rpb_flags,
+				 rpb->rpb_b_page, rpb->rpb_b_line,
+				 rpb->rpb_f_page, rpb->rpb_f_line);
+	}
+#endif
+
+/* If we're not already set up for this format version number, find
+   the format block and set up the record block.  This is a performance
+   optimization. */
+
+	REC record = VIO_record(tdbb, rpb, 0, reinterpret_cast < plb * >(pool));
+	FMT format = record->rec_format;
+
+/* If the record is a delta version, start with data from prior record. */
+
+	REC prior = rpb->rpb_prior;
+
+	if (prior)
+	{
+		tail = differences;
+		tail_end = differences + sizeof(differences);
+		if (prior != record)
+			MOVE_FASTER(prior->rec_data, record->rec_data,
+						format->fmt_length);
+	}
+	else
+	{
+		tail = record->rec_data;
+		tail_end = tail + record->rec_length;
+	}
+
+/* Set up prior record point for next version */
+
+	rpb->rpb_prior = (rpb->rpb_b_page
+					  && (rpb->rpb_flags & rpb_delta)) ? record : 0;
+
+/* Snarf data from record */
+
+	tail =
+		reinterpret_cast<UCHAR*>(
+			SQZ_decompress(reinterpret_cast<char*>(rpb->rpb_address),
+							rpb->rpb_length,
+							reinterpret_cast<char*>(tail),
+							reinterpret_cast<char*>(tail_end)));
+
+	if (rpb->rpb_flags & rpb_incomplete)
+	{
+		const ULONG back_page  = rpb->rpb_b_page;
+		const USHORT back_line = rpb->rpb_b_line;
+		while (rpb->rpb_flags & rpb_incomplete)
+		{
+			DPM_fetch_fragment(tdbb, rpb, LCK_read);
+			
+			SCHAR* pIn		= reinterpret_cast<char*>(rpb->rpb_address);
+			SCHAR* pOut		= reinterpret_cast<char*>(tail);
+			SCHAR* pOutEnd	= reinterpret_cast<char*>(tail_end);
+
+			SCHAR* pRet = SQZ_decompress(pIn, rpb->rpb_length, pOut, pOutEnd);
+			tail = reinterpret_cast<UCHAR*>(pRet);
+		}
+		rpb->rpb_b_page = back_page;
+		rpb->rpb_b_line = back_line;
+	}
+
+	CCH_RELEASE(tdbb, &rpb->rpb_window);
+
+/* If this is a delta version, apply changes */
+
+	if (prior)
+	{
+		length =
+			SQZ_apply_differences(record,
+								  reinterpret_cast<char*>(differences),
+								  reinterpret_cast<char*>(tail));
+	}
+	else
+	{
+		length = tail - record->rec_data;
+	}
+
+	if (format->fmt_length != length)
+	{
+		BUGCHECK(183);			/* msg 183 wrong record length */
+	}
+
+	rpb->rpb_address = record->rec_data;
+	rpb->rpb_length = format->fmt_length;
+}
+
+
+void VIO_erase(TDBB tdbb, RPB * rpb, TRA transaction)
+{
+/**************************************
+ *
+ *	V I O _ e r a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Erase an existing record.
+ *
+ *	This routine is entered with an inactive
+ *	RPB and leaves having created an erased
+ *	stub.
+ *
+ **************************************/
+	REL relation, r2;
+	PRC procedure;
+	RPB temp;
+	DSC desc, desc2;
+	LLS stack;
+	USHORT id;
+	BOOLEAN same_tx = FALSE;
+	TEXT *relation_name, *revokee, *privilege, *procedure_name;
+	SLONG tid_fetch;
+	REQ request;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+	{
+		ib_printf("VIO_erase (rpb %d, transaction %d)\n", rpb->rpb_number,
+				  transaction->tra_number);
+	}
+	if (debug_flag > DEBUG_WRITES_INFO)
+	{
+		ib_printf("   record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line);
+	}
+#endif
+
+/* If the stream was sorted, the various fields in the rpb are
+   probably junk.  Just to make sure that everything is cool,
+   refetch the record. */
+
+	if (rpb->rpb_stream_flags & RPB_s_refetch)
+	{
+		tid_fetch = rpb->rpb_transaction;
+		if ((!DPM_get(tdbb, rpb, LCK_read)) ||
+			(!VIO_chase_record_version(tdbb,
+										rpb,
+										NULL,
+										transaction,
+										reinterpret_cast<blk*>(
+											tdbb->tdbb_default))))
+		{
+			  ERR_post(isc_deadlock, isc_arg_gds, isc_update_conflict, 0);
+		}
+		VIO_data(tdbb, rpb,
+				 reinterpret_cast<blk*>(tdbb->tdbb_request->req_pool));
+
+		/* If record is present, and the transaction is read committed,
+		 * make sure the record has not been updated.  Also, punt after
+		 * VIO_data () call which will release the page.
+		 */
+
+		if ((transaction->tra_flags & TRA_read_committed) &&
+			(tid_fetch != rpb->rpb_transaction))
+		{
+			ERR_post(isc_deadlock, isc_arg_gds, isc_update_conflict, 0);
+		}
+
+		rpb->rpb_stream_flags &= ~RPB_s_refetch;
+	}
+
+	if (rpb->rpb_transaction == transaction->tra_number)
+		same_tx = TRUE;			/* deleting tx has updated/inserted this record before */
+
+/* Special case system transaction */
+
+	if (transaction->tra_flags & TRA_system)
+	{
+		VIO_backout(tdbb, rpb, transaction);
+		return;
+	}
+
+	transaction->tra_flags |= TRA_write;
+	relation = rpb->rpb_relation;
+
+/* If we're about to erase a system relation, check to make sure
+   everything is completely kosher. */
+
+	if (!(transaction->tra_flags & TRA_system))
+	{
+		switch ((RIDS) relation->rel_id)
+		{
+		case rel_relations:
+			if (EVL_field(0, rpb->rpb_record, f_rel_name, &desc))
+			{
+				SCL_check_relation(&desc, SCL_delete);
+			}
+			if (EVL_field(0, rpb->rpb_record, f_rel_id, &desc2))
+			{
+				id = MOV_get_long(&desc2, 0);
+				if (id < (int) rel_MAX)
+				{
+					IBERROR(187);	/* msg 187 cannot delete system relations */
+				}
+				DFW_post_work(transaction, dfw_delete_relation, &desc, id);
+				MET_lookup_relation_id(tdbb, id, FALSE);
+			}
+			break;
+
+		case rel_procedures:
+			if (EVL_field(0, rpb->rpb_record, f_prc_name, &desc))
+			{
+				SCL_check_procedure(&desc, SCL_delete);
+			}
+			EVL_field(0, rpb->rpb_record, f_prc_id, &desc2);
+			id = MOV_get_long(&desc2, 0);
+			DFW_post_work(transaction, dfw_delete_procedure, &desc, id);
+			MET_lookup_procedure_id(tdbb, id, FALSE, 0);
+			break;
+
+		case rel_exceptions:
+			EVL_field(0, rpb->rpb_record, f_prc_name, &desc);
+			DFW_post_work(transaction, dfw_delete_exception, &desc, 0);
+			break;
+
+		case rel_indices:
+			EVL_field(0, rpb->rpb_record, f_idx_relation, &desc);
+			SCL_check_relation(&desc, SCL_control);
+			EVL_field(0, rpb->rpb_record, f_idx_id, &desc2);
+			if (id = MOV_get_long(&desc2, 0)) {
+				if (EVL_field(0, rpb->rpb_record, f_idx_exp_blr, &desc2))
+				{
+					DFW_post_work(transaction, dfw_delete_expression_index,
+								  &desc, id);
+				}
+				else
+				{
+					DFW_post_work(transaction, dfw_delete_index, &desc, id);
+				}
+			}
+			break;
+
+		case rel_rfr:
+			EVL_field(0, rpb->rpb_record, f_rfr_rname, &desc);
+			SCL_check_relation(&desc, SCL_control);
+			DFW_post_work(transaction, dfw_update_format, &desc, 0);
+			EVL_field(0, rpb->rpb_record, f_rfr_fname, &desc2);
+			MOV_get_metadata_ptr(&desc, &relation_name);
+			if (r2 = MET_lookup_relation(tdbb, relation_name))
+			{
+				DFW_post_work(transaction, dfw_delete_rfr, &desc2,
+							  r2->rel_id);
+			}
+			EVL_field(0, rpb->rpb_record, f_rfr_sname, &desc2);
+			DFW_post_work(transaction, dfw_delete_global, &desc2, 0);
+			break;
+
+		case rel_prc_prms:
+			EVL_field(0, rpb->rpb_record, f_prm_procedure, &desc);
+			SCL_check_procedure(&desc, SCL_control);
+			EVL_field(0, rpb->rpb_record, f_prm_name, &desc2);
+			MOV_get_metadata_ptr(&desc, &procedure_name);
+			if (procedure = MET_lookup_procedure(tdbb, procedure_name))
+			{
+				DFW_post_work(transaction, dfw_delete_prm, &desc2,
+							  procedure->prc_id);
+			}
+			EVL_field(0, rpb->rpb_record, f_prm_sname, &desc2);
+			DFW_post_work(transaction, dfw_delete_global, &desc2, 0);
+			break;
+
+		case rel_fields:
+			check_control(tdbb);
+			EVL_field(0, rpb->rpb_record, f_fld_name, &desc);
+			DFW_post_work(transaction, dfw_delete_field, &desc, 0);
+			MET_change_fields(tdbb, transaction, &desc);
+			break;
+
+		case rel_files:
+			EVL_field(0, rpb->rpb_record, f_file_name, &desc);
+			if (EVL_field(0, rpb->rpb_record, f_file_shad_num, &desc2) &&
+				(id = MOV_get_long(&desc2, 0)))
+			{
+				DFW_post_work(transaction, dfw_delete_shadow, &desc, id);
+			}
+			break;
+
+		case rel_classes:
+			EVL_field(0, rpb->rpb_record, f_cls_class, &desc);
+			DFW_post_work(transaction, dfw_compute_security, &desc, 0);
+			break;
+
+		case rel_triggers:
+			EVL_field(0, rpb->rpb_record, f_trg_rname, &desc);
+
+			/* check if this  request go through without checking permissions */
+			if (!(request->req_flags & req_ignore_perm)) {
+				SCL_check_relation(&desc, SCL_control);
+			}
+
+			EVL_field(0, rpb->rpb_record, f_trg_rname, &desc);
+			DFW_post_work(transaction, dfw_update_format, &desc, 0);
+			EVL_field(0, rpb->rpb_record, f_trg_name, &desc);
+			DFW_post_work(transaction, dfw_delete_trigger, &desc, 0);
+			break;
+
+		case rel_priv:
+			EVL_field(0, rpb->rpb_record, f_file_name, &desc);
+			if (!(tdbb->tdbb_request->req_flags & req_internal))
+			{
+				EVL_field(0, rpb->rpb_record, f_prv_grantor, &desc);
+				if (!check_user(tdbb, &desc))
+				{
+					ERR_post(isc_no_priv, isc_arg_string, "REVOKE",
+							 isc_arg_string, "TABLE", isc_arg_string,
+							 "RDB$USER_PRIVILEGES", 0);
+				}
+			}
+			EVL_field(0, rpb->rpb_record, f_prv_rname, &desc);
+			EVL_field(0, rpb->rpb_record, f_prv_o_type, &desc2);
+			id = MOV_get_long(&desc2, 0);
+			DFW_post_work(transaction, dfw_grant, &desc, id);
+			break;
+
+		case rel_log:
+			DFW_post_work(transaction, dfw_delete_log, 0, 0);
+			break;
+		}
+	}
+
+/* If the page can be updated simply, we can skip the remaining crud */
+
+	temp.rpb_transaction = transaction->tra_number;
+	temp.rpb_address = NULL;
+	temp.rpb_length = 0;
+	temp.rpb_flags = rpb_deleted;
+	temp.rpb_format_number = rpb->rpb_format_number;
+	temp.rpb_window.win_flags = WIN_secondary;
+
+	tid_fetch = rpb->rpb_transaction;
+	if (DPM_chain(tdbb, rpb, &temp))
+	{
+		rpb->rpb_b_page = temp.rpb_b_page;
+		rpb->rpb_b_line = temp.rpb_b_line;
+		rpb->rpb_flags |= rpb_deleted;
+#ifdef VIO_DEBUG
+		if (debug_flag > DEBUG_WRITES_INFO)
+		{
+			ib_printf("   VIO_erase: successfully chained\n");
+		}
+#endif
+	}
+	else
+	{
+		/* Update stub didn't find one page -- do a long, hard update */
+		stack = NULL;
+		prepare_update(tdbb, transaction, tid_fetch, rpb, &temp, 0, &stack);
+
+		/* Old record was restored and re-fetched for write.  Now replace it.  */
+
+		rpb->rpb_transaction = transaction->tra_number;
+		rpb->rpb_b_page = temp.rpb_page;
+		rpb->rpb_b_line = temp.rpb_line;
+		rpb->rpb_address = NULL;
+		rpb->rpb_length = 0;
+		rpb->rpb_flags |= rpb_deleted;
+		rpb->rpb_flags &= ~rpb_delta;
+
+		replace_record(tdbb, rpb, &stack, transaction);
+	}
+
+/* Check to see if recursive revoke needs to be propogated */
+
+	if ((RIDS) relation->rel_id == rel_priv)
+	{
+		EVL_field(0, rpb->rpb_record, f_prv_rname, &desc);
+		MOV_get_metadata_ptr(&desc, &relation_name);
+		EVL_field(0, rpb->rpb_record, f_prv_grant, &desc2);
+		if (MOV_get_long(&desc2, 0))
+		{
+			EVL_field(0, rpb->rpb_record, f_prv_user, &desc2);
+			MOV_get_metadata_ptr(&desc2, &revokee);
+			EVL_field(0, rpb->rpb_record, f_prv_priv, &desc2);
+			MOV_get_metadata_ptr(&desc2, &privilege);
+			MET_revoke(tdbb, transaction, relation_name, revokee, privilege);
+		}
+	}
+	if (!(transaction->tra_flags & TRA_system) &&
+		(transaction->tra_save_point) &&
+		(transaction->tra_save_point->sav_verb_count))
+	{
+		verb_post(tdbb, transaction, rpb, 0, 0, same_tx, FALSE);
+	}
+
+	bump_count(tdbb, DBB_delete_count, relation);
+
+/* for an autocommit transaction, mark a commit as necessary */
+
+	if (transaction->tra_flags & TRA_autocommit)
+	{
+		transaction->tra_flags |= TRA_perform_autocommit;
+	}
+}
+
+
+#ifdef GARBAGE_THREAD
+void VIO_fini(TDBB tdbb)
+{
+/**************************************
+ *
+ *	V I O _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown the garbage collector thread.
+ *
+ **************************************/
+	DBB dbb;
+	SLONG count;
+	EVENT gc_event;
+
+	dbb = tdbb->tdbb_database;
+	gc_event = dbb->dbb_gc_event;
+
+	if (dbb->dbb_flags & DBB_garbage_collector)
+	{
+		dbb->dbb_flags &= ~DBB_garbage_collector;
+		ISC_event_post(gc_event);
+		count = ISC_event_clear(gc_event);
+		THREAD_EXIT;
+		(void) ISC_event_wait(1, &gc_event, &count, 0, (FPTR_VOID) 0, 0);
+		THREAD_ENTER;
+		/* Now dispose off the garbage collector associated semaphore */
+		ISC_event_fini(gc_event);
+	}
+}
+#endif
+
+
+int VIO_garbage_collect(TDBB tdbb, RPB * rpb, TRA transaction)
+{
+/**************************************
+ *
+ *	V I O _ g a r b a g e _ c o l l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do any garbage collection appropriate to the current
+ *	record.  This is called during index creation to avoid
+ *	unnecessary work as well as false duplicate records.
+ *
+ *	If the record complete goes away, return FALSE.
+ *
+ **************************************/
+	USHORT state;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE)
+	{
+		ib_printf("VIO_garbage_collect (rpb %d, transaction %d)\n",
+				  rpb->rpb_number, transaction ? transaction->tra_number : 0);
+	}
+	if (debug_flag > DEBUG_TRACE_INFO)
+	{
+		ib_printf("   record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line);
+	}
+#endif
+
+	if (transaction->tra_attachment->att_flags & ATT_no_cleanup)
+		return TRUE;
+
+	while (TRUE)
+	{
+		if (rpb->rpb_flags & rpb_damaged)
+		{
+			CCH_RELEASE(tdbb, &rpb->rpb_window);
+			return FALSE;
+		}
+
+		state = TRA_snapshot_state(tdbb, transaction, rpb->rpb_transaction);
+
+		/* Reset the garbage collect active flag if the transaction state is
+		   in a terminal state. If committed it must have been a precommitted
+		   transaction that was backing out a dead record version and the
+		   system crashed. Clear the flag and set the state to tra_dead to
+		   reattempt the backout. */
+
+		if (rpb->rpb_flags & rpb_gc_active)
+		{
+			switch (state)
+			{
+			case tra_committed:
+				state = tra_dead;
+				rpb->rpb_flags &= ~rpb_gc_active;
+				break;
+
+			case tra_dead:
+				rpb->rpb_flags &= ~rpb_gc_active;
+				break;
+
+			default:
+				break;
+			}
+		}
+
+		if (state == tra_dead)
+		{
+			CCH_RELEASE(tdbb, &rpb->rpb_window);
+			VIO_backout(tdbb, rpb, transaction);
+		}
+		else
+		{
+			if (rpb->rpb_flags & rpb_deleted)
+			{
+				if (rpb->rpb_transaction >= transaction->tra_oldest_active)
+				{
+					return TRUE;
+				}
+				else
+				{
+					CCH_RELEASE(tdbb, &rpb->rpb_window);
+					expunge(tdbb, rpb, transaction, (SLONG) 0);
+					return FALSE;
+				}
+			}
+
+			if (rpb->rpb_transaction >= transaction->tra_oldest_active ||
+				rpb->rpb_b_page == 0)
+			{
+				return TRUE;
+			}
+
+			purge(tdbb, rpb);
+		}
+
+		if (!DPM_get(tdbb, rpb, LCK_read)) {
+			return FALSE;
+		}
+	}
+}
+
+
+REC VIO_gc_record(TDBB tdbb, REL relation)
+{
+/**************************************
+ *
+ *	V I O _ g c _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate from a relation's vector of garbage
+ *	collect record blocks. Their scope is strictly
+ *	limited to temporary usage and should never be
+ *	copied to permanent record parameter blocks.
+ *
+ **************************************/
+	DBB dbb;
+	VEC vector;
+	REC record, *rec_ptr, *end;
+	RPB rpb;
+	USHORT slot;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+/* This will require mutex synchronization for pre-emptive multithreading. */
+
+/* V4_MUTEX_LOCK (&relation->rel_mutex); */
+
+/* Allocate a vector of garbage collect record blocks for relation. */
+
+	if (!(vector = relation->rel_gc_rec)) {
+		vector = ALL_vector(dbb->dbb_permanent, &relation->rel_gc_rec, 0);
+	}
+
+/* Set the active flag on an inactive garbage collect record block
+   and return it. */
+
+	for (rec_ptr = (REC *) vector->vec_object, end =
+		 rec_ptr + vector->vec_count; rec_ptr < end; rec_ptr++)
+		if ((record = *rec_ptr) && !(record->rec_flags & REC_gc_active)) {
+			record->rec_flags |= REC_gc_active;
+/*	V4_MUTEX_UNLOCK (&relation->rel_mutex); */
+			return record;
+		}
+
+/* Allocate a garbage collect record block if all are active. */
+
+	rpb.rpb_record = 0;
+	record =
+		VIO_record(tdbb, &rpb, MET_current(tdbb, relation),
+				   dbb->dbb_permanent);
+	record->rec_flags |= REC_gc_active;
+
+/* Insert the new record block into the last slot of the vector. */
+
+	slot = vector->vec_count - 1;
+	if (vector->vec_object[slot])
+		vector =
+			ALL_vector(dbb->dbb_permanent, &relation->rel_gc_rec, ++slot);
+	vector->vec_object[slot] = (BLK) record;
+
+/* V4_MUTEX_UNLOCK (&relation->rel_mutex); */
+	return record;
+}
+
+
+int VIO_get(TDBB tdbb, RPB * rpb, RSB rsb, TRA transaction, BLK pool)
+{
+/**************************************
+ *
+ *	V I O _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a specific record from a relation.
+ *
+ **************************************/
+	USHORT lock_type;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS)
+		ib_printf("VIO_get (rpb %d, transaction %d, pool %d)\n",
+				  rpb->rpb_number, transaction ? transaction->tra_number : 0,
+				  pool ? ((PLB) pool)->plb_pool_id : 0);
+#endif
+
+/* Fetch data page from a modify/erase input stream with a write
+   lock. This saves an upward conversion to a write lock when
+   refetching the page in the context of the output stream. */
+
+	lock_type = (rpb->rpb_stream_flags & RPB_s_update) ? LCK_write : LCK_read;
+
+	if (!DPM_get(tdbb, rpb, lock_type) ||
+		!VIO_chase_record_version(tdbb, rpb, rsb, transaction, pool))
+		return FALSE;
+
+#ifdef PC_ENGINE
+	if (rsb && rsb->rsb_flags & rsb_stream_type)
+		RNG_add_page(rpb->rpb_page);
+#endif
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS_INFO)
+		ib_printf
+			("   record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line);
+#endif
+	if (pool)
+		VIO_data(tdbb, rpb, pool);
+
+	bump_count(tdbb, DBB_read_idx_count, rpb->rpb_relation);
+
+	return TRUE;
+}
+
+
+int VIO_get_current(
+					TDBB tdbb,
+					RPB * rpb, TRA transaction, BLK pool, USHORT foreign_key)
+{
+/**************************************
+ *
+ *	V I O _ g e t _ c u r r e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current (most recent) version of a record.  This is
+ *	called by IDX to determine whether a unique index has been
+ *	duplicated.  If the target record's transaction is active,
+ *	wait for it.  If the record is deleted or disappeared, return
+ *	FALSE.  If the record is committed, return TRUE.
+ *	If foreign_key is true, we are checking for a foreign key,
+ *	looking to see if a primary key/unique key exists.  For a
+ *	no wait transaction, if state of transaction inserting primary key 
+ *	record is tra_active, we should not see the uncommitted record
+ *
+ **************************************/
+	USHORT state;
+	SLONG tid_fetch;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE)
+		ib_printf("VIO_get_current (rpb %d, transaction %d, pool %d)\n",
+				  rpb->rpb_number, transaction ? transaction->tra_number : 0,
+				  pool ? ((PLB) pool)->plb_pool_id : 0);
+#endif
+
+	while (TRUE) {
+		/* If the record doesn't exist, no problem. */
+
+		if (!DPM_get(tdbb, rpb, LCK_read))
+			return FALSE;
+
+#ifdef VIO_DEBUG
+		if (debug_flag > DEBUG_TRACE_INFO)
+			ib_printf
+				("   record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+				 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+				 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+				 rpb->rpb_f_page, rpb->rpb_f_line);
+#endif
+
+		/* Get data if there is data. */
+
+		if (rpb->rpb_flags & rpb_deleted)
+			CCH_RELEASE(tdbb, &rpb->rpb_window);
+		else
+			VIO_data(tdbb, rpb, pool);
+
+		/* If we deleted the record, everything's fine, otherwise
+		   the record must be considered real. */
+
+		if (rpb->rpb_transaction == transaction->tra_number)
+			break;
+
+		/* check the state of transaction  - tra_us is taken care of above 
+		 * For now check the state in the tip_cache or tip bitmap. If
+		 * record is committed (most cases), this will be faster.
+		 */
+
+		if (transaction->tra_flags & TRA_read_committed)
+			state = TPC_cache_state(tdbb, rpb->rpb_transaction);
+		else
+			state =
+				TRA_snapshot_state(tdbb, transaction, rpb->rpb_transaction);
+
+		/* Reset the garbage collect active flag if the transaction state is
+		   in a terminal state. If committed it must have been a precommitted
+		   transaction that was backing out a dead record version and the
+		   system crashed. Clear the flag and set the state to tra_dead to
+		   reattempt the backout. */
+
+		if (rpb->rpb_flags & rpb_gc_active)
+			switch (state) {
+			case tra_committed:
+				state = tra_dead;
+				rpb->rpb_flags &= ~rpb_gc_active;
+				break;
+
+			case tra_dead:
+				rpb->rpb_flags &= ~rpb_gc_active;
+				break;
+
+			default:
+				break;
+			}
+
+		if (state == tra_committed)
+			return ((rpb->rpb_flags & rpb_deleted) ? FALSE : TRUE);
+		else if (state == tra_dead) {
+			if (transaction->tra_attachment->att_flags & ATT_no_cleanup)
+				return (foreign_key ? FALSE : TRUE);
+
+			VIO_backout(tdbb, rpb, transaction);
+			continue;
+		}
+		else if (state == tra_precommitted) {
+			THREAD_EXIT;
+			THREAD_SLEEP(100);	/* milliseconds */
+			THREAD_ENTER;
+			continue;
+		}
+
+		/* The record belongs to somebody else.  Wait for him to
+		   commit, rollback, or die. */
+
+		tid_fetch = rpb->rpb_transaction;
+
+		/* Wait as long as it takes for an active transaction which has modified
+		   the record. If an active transaction has used its TID to safely
+		   backout a fragmented dead record version, spin wait because it will
+		   finish shortly. */
+
+		if (!(rpb->rpb_flags & rpb_gc_active))
+			state = TRA_wait(tdbb, transaction, rpb->rpb_transaction, TRUE);
+		else {
+			BOOLEAN wait_flag;
+
+			wait_flag = (transaction->tra_flags & TRA_nowait) ? FALSE : TRUE;
+			transaction->tra_flags |= TRA_nowait;
+			state = TRA_wait(tdbb, transaction, rpb->rpb_transaction, TRUE);
+			if (wait_flag)
+				transaction->tra_flags &= ~TRA_nowait;
+
+			if (state == tra_active) {
+				THREAD_EXIT;
+				THREAD_SLEEP(100);	/* milliseconds */
+				THREAD_ENTER;
+				continue;
+			}
+		}
+
+		switch (state) {
+		case tra_committed:
+			/* If the record doesn't exist anymore, no problem. This
+			 * can happen in two cases.  The transaction that inserted
+			 * the record deleted it or the transaction rolled back and
+			 * removed the records it modified and marked itself
+			 * committed
+			 */
+
+			if (!DPM_get(tdbb, rpb, LCK_read))
+				return FALSE;
+
+			/* if the transaction actually rolled back and what
+			 * we are reading is another record (newly inserted),
+			 * loop back and try again.
+			 */
+
+			if (tid_fetch != rpb->rpb_transaction) {
+				CCH_RELEASE(tdbb, &rpb->rpb_window);
+				continue;
+			}
+
+			/* Get latest data if there is data. */
+
+			if (rpb->rpb_flags & rpb_deleted) {
+				CCH_RELEASE(tdbb, &rpb->rpb_window);
+				return FALSE;
+			}
+
+			VIO_data(tdbb, rpb, pool);
+			return TRUE;
+
+		case tra_active:
+			return (foreign_key ? FALSE : TRUE);
+
+		case tra_dead:
+			if (transaction->tra_attachment->att_flags & ATT_no_cleanup)
+				return (foreign_key ? FALSE : TRUE);
+
+			VIO_backout(tdbb, rpb, transaction);
+			break;
+
+		default:
+			BUGCHECK(184);		/* limbo impossible */
+		}
+	}
+
+	return (rpb->rpb_flags & rpb_deleted) ? FALSE : TRUE;
+}
+
+
+#ifdef GARBAGE_THREAD
+void VIO_init(TDBB tdbb)
+{
+/**************************************
+ *
+ *	V I O _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Activate the garbage collector thread.
+ *
+ **************************************/
+	DBB dbb;
+	ATT attachment;
+	SLONG count;
+	EVENT gc_event;
+
+	dbb = tdbb->tdbb_database;
+	attachment = tdbb->tdbb_attachment;
+
+#ifdef READONLY_DATABASE
+	if (dbb->dbb_flags & DBB_read_only)
+		return;
+#endif
+
+/* If there's no presence of a garbage collector running
+   then start one up. */
+
+	if (!(dbb->dbb_flags & DBB_garbage_collector)) {
+		gc_event = dbb->dbb_gc_event;
+		ISC_event_init(gc_event, 0, 0);
+		count = ISC_event_clear(gc_event);
+		if (gds__thread_start
+			(reinterpret_cast < FPTR_INT_VOID_PTR > (garbage_collector), dbb,
+			 THREAD_medium, 0, 0))
+			ERR_bugcheck_msg("cannot start thread");
+
+		THREAD_EXIT;
+
+		(void) ISC_event_wait(1, &gc_event, &count, 10 * 1000000,
+							  (FPTR_VOID) 0, 0);
+		THREAD_ENTER;
+	}
+
+/* Database backups and sweeps perform their own garbage collection
+   unless passing a no garbage collect switch which means don't
+   notify the garbage collector to garbage collect. Every other
+   attachment notifies the garbage collector to do their dirty work. */
+
+	if (dbb->dbb_flags & DBB_garbage_collector &&
+		!(attachment->att_flags & (ATT_no_cleanup | ATT_gbak_attachment))) {
+		if (dbb->dbb_flags & DBB_suspend_bgio)
+			attachment->att_flags |= ATT_disable_notify_gc;
+		else
+			attachment->att_flags |= ATT_notify_gc;
+	}
+}
+#endif
+
+
+void VIO_modify(TDBB tdbb, RPB * org_rpb, RPB * new_rpb, TRA transaction)
+{
+/**************************************
+ *
+ *	V I O _ m o d i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify an existing record.
+ *
+ **************************************/
+	REL relation;
+	RPB temp;
+	DSC desc1, desc2;
+	LLS stack;
+	USHORT id;
+	SLONG tid_fetch;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("VIO_modify (org_rpb %d, new_rpb %d, transaction %d)\n",
+				  org_rpb->rpb_number, new_rpb->rpb_number,
+				  transaction ? transaction->tra_number : 0);
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("   old record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 org_rpb->rpb_page, org_rpb->rpb_line, org_rpb->rpb_transaction,
+			 org_rpb->rpb_flags, org_rpb->rpb_b_page, org_rpb->rpb_b_line,
+			 org_rpb->rpb_f_page, org_rpb->rpb_f_line);
+#endif
+
+	transaction->tra_flags |= TRA_write;
+	new_rpb->rpb_transaction = transaction->tra_number;
+	new_rpb->rpb_flags = 0;
+	new_rpb->rpb_window.win_flags = WIN_secondary;
+
+/* If the stream was sorted, the various fields in the rpb are
+   probably junk.  Just to make sure that everything is cool,
+   refetch and release the record. */
+
+	if (org_rpb->rpb_stream_flags & RPB_s_refetch) {
+		tid_fetch = org_rpb->rpb_transaction;
+		if ((!DPM_get(tdbb, org_rpb, LCK_read)) ||
+			(!VIO_chase_record_version
+			 (tdbb, org_rpb, NULL, transaction,
+			  reinterpret_cast <
+			  blk * >(tdbb->tdbb_default)))) ERR_post(isc_deadlock,
+													  isc_arg_gds,
+													  isc_update_conflict, 0);
+		VIO_data(tdbb, org_rpb,
+				 reinterpret_cast < blk * >(tdbb->tdbb_request->req_pool));
+
+		/* If record is present, and the transaction is read committed,
+		 * make sure the record has not been updated.  Also, punt after
+		 * VIO_data () call which will release the page.
+		 */
+
+		if ((transaction->tra_flags & TRA_read_committed) &&
+			(tid_fetch != org_rpb->rpb_transaction))
+				ERR_post(isc_deadlock, isc_arg_gds, isc_update_conflict, 0);
+
+		org_rpb->rpb_stream_flags &= ~RPB_s_refetch;
+	}
+
+/* If we're the system transaction, modify stuff in place.  This saves
+   endless grief on cleanup */
+
+	relation = org_rpb->rpb_relation;
+	bump_count(tdbb, DBB_update_count, relation);
+
+	if (transaction->tra_flags & TRA_system) {
+		update_in_place(tdbb, transaction, org_rpb, new_rpb);
+		return;
+	}
+
+/* If we're about to modify a system relation, check to make sure
+   everything is completely kosher. */
+
+	if (!(transaction->tra_flags & TRA_system))
+		switch ((RIDS) relation->rel_id) {
+		case rel_database:
+			check_class(tdbb, transaction, org_rpb, new_rpb, f_dat_class);
+			break;
+
+		case rel_relations:
+			EVL_field(0, org_rpb->rpb_record, f_rel_name, &desc1);
+			SCL_check_relation(&desc1, SCL_protect);
+			check_class(tdbb, transaction, org_rpb, new_rpb, f_rel_class);
+			DFW_post_work(transaction, dfw_update_format, &desc1, 0);
+			break;
+
+		case rel_procedures:
+			EVL_field(0, org_rpb->rpb_record, f_prc_name, &desc1);
+			SCL_check_procedure(&desc1, SCL_protect);
+			check_class(tdbb, transaction, org_rpb, new_rpb, f_prc_class);
+			EVL_field(0, org_rpb->rpb_record, f_prc_id, &desc2);
+			id = MOV_get_long(&desc2, 0);
+			DFW_post_work(transaction, dfw_modify_procedure, &desc1, id);
+			break;
+
+		case rel_rfr:
+			EVL_field(0, org_rpb->rpb_record, f_rfr_rname, &desc1);
+			SCL_check_relation(&desc1, SCL_control);
+			DFW_post_work(transaction, dfw_update_format, &desc1, 0);
+			EVL_field(0, new_rpb->rpb_record, f_rfr_rname, &desc2);
+			SCL_check_relation(&desc2, SCL_control);
+			DFW_post_work(transaction, dfw_update_format, &desc2, 0);
+			check_class(tdbb, transaction, org_rpb, new_rpb, f_rfr_class);
+			break;
+
+		case rel_fields:
+			check_control(tdbb);
+			EVL_field(0, org_rpb->rpb_record, f_fld_name, &desc1);
+			MET_change_fields(tdbb, transaction, &desc1);
+			EVL_field(0, new_rpb->rpb_record, f_fld_name, &desc2);
+			MET_change_fields(tdbb, transaction, &desc2);
+			break;
+
+		case rel_classes:
+			EVL_field(0, org_rpb->rpb_record, f_cls_class, &desc1);
+			DFW_post_work(transaction, dfw_compute_security, &desc1, 0);
+			EVL_field(0, new_rpb->rpb_record, f_cls_class, &desc1);
+			DFW_post_work(transaction, dfw_compute_security, &desc1, 0);
+			break;
+
+		case rel_indices:
+			EVL_field(0, new_rpb->rpb_record, f_idx_relation, &desc1);
+			SCL_check_relation(&desc1, SCL_control);
+			EVL_field(0, new_rpb->rpb_record, f_idx_name, &desc1);
+			if (EVL_field(0, new_rpb->rpb_record, f_idx_exp_blr, &desc2))
+				DFW_post_work(transaction, dfw_create_expression_index,
+							  &desc1, MAX_IDX);
+			else
+				DFW_post_work(transaction, dfw_create_index, &desc1, MAX_IDX);
+			break;
+
+		case rel_triggers:
+			EVL_field(0, new_rpb->rpb_record, f_trg_rname, &desc1);
+			SCL_check_relation(&desc1, SCL_control);
+			EVL_field(0, new_rpb->rpb_record, f_trg_rname, &desc1);
+			DFW_post_work(transaction, dfw_update_format, &desc1, 0);
+			EVL_field(0, org_rpb->rpb_record, f_trg_rname, &desc1);
+			DFW_post_work(transaction, dfw_update_format, &desc1, 0);
+			EVL_field(0, org_rpb->rpb_record, f_trg_name, &desc1);
+			DFW_post_work(transaction, dfw_modify_trigger, &desc1, 0);
+			break;
+		}
+
+/* We're almost ready to go.  To modify the record, we must first
+   make a copy of the old record someplace else.  Then we must re-fetch
+   the record (for write) and verify that it is legal for us to
+   modify it -- that it was written by a transaction that was committed
+   when we started.  If not, the transaction that wrote the record
+   is either active, dead, or in limbo.  If the transaction is active,
+   wait for it to finish.  If it commits, we can't procede and must
+   return an update conflict.  If the transaction is dead, back out the
+   old version of the record and try again.  If in limbo, punt.  */
+
+	if (org_rpb->rpb_transaction == transaction->tra_number &&
+		org_rpb->rpb_format_number == new_rpb->rpb_format_number) {
+		update_in_place(tdbb, transaction, org_rpb, new_rpb);
+		if (!(transaction->tra_flags & TRA_system) &&
+			(transaction->tra_save_point) &&
+			(transaction->tra_save_point->sav_verb_count))
+				verb_post(tdbb, transaction, org_rpb, org_rpb->rpb_undo,
+						  new_rpb, FALSE, FALSE);
+		return;
+	}
+
+	stack = NULL;
+	prepare_update(tdbb, transaction, org_rpb->rpb_transaction, org_rpb,
+				   &temp, new_rpb, &stack);
+
+/* Old record was restored and re-fetched for write.  Now replace it.  */
+
+	org_rpb->rpb_transaction = new_rpb->rpb_transaction;
+	org_rpb->rpb_format_number = new_rpb->rpb_format_number;
+	org_rpb->rpb_b_page = temp.rpb_page;
+	org_rpb->rpb_b_line = temp.rpb_line;
+	org_rpb->rpb_address = new_rpb->rpb_address;
+	org_rpb->rpb_length = new_rpb->rpb_length;
+	org_rpb->rpb_flags &= ~rpb_delta;
+	org_rpb->rpb_flags |= new_rpb->rpb_flags & rpb_delta;
+
+	replace_record(tdbb, org_rpb, &stack, transaction);
+
+	if (!(transaction->tra_flags & TRA_system) &&
+		(transaction->tra_save_point) &&
+		(transaction->tra_save_point->sav_verb_count))
+			verb_post(tdbb, transaction, org_rpb, 0, 0, FALSE, FALSE);
+
+/* for an autocommit transaction, mark a commit as necessary */
+
+	if (transaction->tra_flags & TRA_autocommit)
+		transaction->tra_flags |= TRA_perform_autocommit;
+}
+
+
+BOOLEAN VIO_next_record(TDBB tdbb,
+						RPB * rpb,
+						RSB rsb,
+						TRA transaction,
+						BLK pool, BOOLEAN backwards, BOOLEAN onepage)
+{
+/**************************************
+ *
+ *	V I O _ n e x t _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next record in a record stream.
+ *
+ **************************************/
+	USHORT lock_type;
+
+	SET_TDBB(tdbb);
+
+/* Fetch data page from a modify/erase input stream with a write
+   lock. This saves an upward conversion to a write lock when
+   refetching the page in the context of the output stream. */
+
+	lock_type = (rpb->rpb_stream_flags & RPB_s_update) ? LCK_write : LCK_read;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE)
+		ib_printf("VIO_next_record (rpb %d, transaction %d, pool %d)\n",
+				  rpb->rpb_number, transaction ? transaction->tra_number : 0,
+				  pool ? ((PLB) pool)->plb_pool_id : 0);
+	if (debug_flag > DEBUG_TRACE_INFO)
+		ib_printf
+			("   record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line);
+#endif
+
+	do
+		if (!DPM_next(tdbb, rpb, lock_type, backwards, onepage))
+			return FALSE;
+	while (!VIO_chase_record_version(tdbb, rpb, rsb, transaction, pool));
+
+#ifdef PC_ENGINE
+	if (rsb && rsb->rsb_flags & rsb_stream_type)
+		RNG_add_page(rpb->rpb_page);
+#endif
+
+	if (pool)
+		VIO_data(tdbb, rpb, pool);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_READS_INFO)
+		ib_printf
+			("VIO_next_record got record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line);
+#endif
+
+	bump_count(tdbb, DBB_read_seq_count, rpb->rpb_relation);
+
+	return TRUE;
+}
+
+
+REC VIO_record(TDBB tdbb, register RPB * rpb, FMT format, struct plb * pool)
+{
+/**************************************
+ *
+ *	V I O _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a record block big enough for a given format.
+ *
+ **************************************/
+	DBB dbb;
+	REC record, old;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE)
+		ib_printf("VIO_record (rpb %d, format %d, pool %d)\n",
+				  rpb->rpb_number, format ? format->fmt_version : 0,
+				  pool ? ((PLB) pool)->plb_pool_id : 0);
+#endif
+
+/* If format wasn't given, look one up */
+
+	if (!format)
+		format = MET_format(tdbb, rpb->rpb_relation, rpb->rpb_format_number);
+
+	if (!(record = rpb->rpb_record)) {
+		if (!pool)
+			pool = dbb->dbb_permanent;
+		record = rpb->rpb_record =
+			(REC) ALL_alloc(pool, type_rec, format->fmt_length, ERR_jmp);
+		record->rec_length = format->fmt_length;
+	}
+	else if (record->rec_length < format->fmt_length) {
+		old = record;
+		if (record->rec_flags & REC_gc_active)
+			record =
+				replace_gc_record(rpb->rpb_relation, &rpb->rpb_record,
+								  format->fmt_length);
+		else
+			record =
+				(REC) ALL_extend(reinterpret_cast <
+								 blk ** >(&rpb->rpb_record),
+								 format->fmt_length);
+
+		record->rec_length = format->fmt_length;
+		if (rpb->rpb_prior == old)
+			rpb->rpb_prior = record;
+	}
+
+	record->rec_format = format;
+
+	return record;
+}
+
+
+void VIO_start_save_point(TDBB tdbb, TRA transaction)
+{
+/**************************************
+ *
+ *      V I O _ s t a r t _ s a v e _ p o i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Start a new save point for a transaction.
+ *
+ **************************************/
+	SAV sav_point;
+
+#if defined(NETWARE_386)
+	if ((unsigned) stackavail() < (unsigned) STACK_SAFE_LIMIT)
+		ERR_post(isc_err_stack_limit, 0);
+#endif
+
+	SET_TDBB(tdbb);
+
+	if (sav_point = transaction->tra_save_free)
+		transaction->tra_save_free = sav_point->sav_next;
+	else
+		sav_point = (SAV) ALLOCT(type_sav);
+
+	sav_point->sav_number = ++transaction->tra_save_point_number;
+	sav_point->sav_next = transaction->tra_save_point;
+	transaction->tra_save_point = sav_point;
+}
+
+
+void VIO_store(TDBB tdbb, RPB * rpb, TRA transaction)
+{
+/**************************************
+ *
+ *	V I O _ s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a new record.
+ *
+ **************************************/
+	REL relation;
+	DSC desc, desc2;
+	SSHORT id;
+	REQ request;
+
+	SET_TDBB(tdbb);
+	request = tdbb->tdbb_request;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("VIO_store (rpb %d, transaction %d)\n", rpb->rpb_number,
+				  transaction ? transaction->tra_number : 0);
+#endif
+
+	transaction->tra_flags |= TRA_write;
+	relation = rpb->rpb_relation;
+
+	if (!(transaction->tra_flags & TRA_system))
+		switch ((RIDS) relation->rel_id) {
+		case rel_relations:
+			EVL_field(0, rpb->rpb_record, f_rel_name, &desc);
+			DFW_post_work(transaction, dfw_create_relation, &desc, 0);
+			DFW_post_work(transaction, dfw_update_format, &desc, 0);
+			set_system_flag(rpb, f_rel_sys_flag, 0);
+			break;
+
+		case rel_procedures:
+			EVL_field(0, rpb->rpb_record, f_prc_name, &desc);
+			EVL_field(0, rpb->rpb_record, f_prc_id, &desc2);
+			id = MOV_get_long(&desc2, 0);
+			DFW_post_work(transaction, dfw_create_procedure, &desc, id);
+			set_system_flag(rpb, f_prc_sys_flag, 0);
+			break;
+
+		case rel_indices:
+			EVL_field(0, rpb->rpb_record, f_idx_relation, &desc);
+			SCL_check_relation(&desc, SCL_control);
+			EVL_field(0, rpb->rpb_record, f_idx_name, &desc);
+			if (EVL_field(0, rpb->rpb_record, f_idx_exp_blr, &desc2))
+				DFW_post_work(transaction, dfw_create_expression_index, &desc,
+							  MAX_IDX);
+			else
+				DFW_post_work(transaction, dfw_create_index, &desc, MAX_IDX);
+			break;
+
+		case rel_rfr:
+			EVL_field(0, rpb->rpb_record, f_rfr_rname, &desc);
+			SCL_check_relation(&desc, SCL_control);
+			DFW_post_work(transaction, dfw_update_format, &desc, 0);
+			set_system_flag(rpb, f_rfr_sys_flag, 0);
+			break;
+
+		case rel_classes:
+			EVL_field(0, rpb->rpb_record, f_cls_class, &desc);
+			DFW_post_work(transaction, dfw_compute_security, &desc, 0);
+			break;
+
+		case rel_fields:
+			check_control(tdbb);
+			set_system_flag(rpb, f_fld_sys_flag, 0);
+			break;
+
+		case rel_files:
+			EVL_field(0, rpb->rpb_record, f_file_name, &desc);
+			if (EVL_field(0, rpb->rpb_record, f_file_shad_num, &desc2) &&
+				MOV_get_long(&desc2, 0)) {
+				EVL_field(0, rpb->rpb_record, f_file_flags, &desc2);
+				if (!(MOV_get_long(&desc2, 0) & FILE_inactive))
+					DFW_post_work(transaction, dfw_add_shadow, &desc, 0);
+			}
+			else
+				DFW_post_work(transaction, dfw_add_file, &desc, 0);
+			break;
+
+		case rel_triggers:
+			EVL_field(0, rpb->rpb_record, f_trg_rname, &desc);
+
+			/* check if this  request go through without checking permissions */
+			if (!(request->req_flags & req_ignore_perm))
+				SCL_check_relation(&desc, SCL_control);
+
+			EVL_field(0, rpb->rpb_record, f_trg_rname, &desc);
+			DFW_post_work(transaction, dfw_update_format, &desc, 0);
+			EVL_field(0, rpb->rpb_record, f_trg_name, &desc);
+			DFW_post_work(transaction, dfw_create_trigger, &desc, 0);
+			break;
+
+		case rel_priv:
+			EVL_field(0, rpb->rpb_record, f_prv_rname, &desc);
+			EVL_field(0, rpb->rpb_record, f_prv_o_type, &desc2);
+			id = MOV_get_long(&desc2, 0);
+			DFW_post_work(transaction, dfw_grant, &desc, id);
+			break;
+
+		case rel_log:
+			DFW_post_work(transaction, dfw_create_log, 0, 0);
+			break;
+		}
+
+	rpb->rpb_b_page = 0;
+	rpb->rpb_b_line = 0;
+	rpb->rpb_flags = 0;
+	rpb->rpb_transaction = transaction->tra_number;
+	rpb->rpb_window.win_flags = 0;
+	LLS_PUSH((BLK) - rpb->rpb_transaction, &rpb->rpb_record->rec_precedence);
+	DPM_store(tdbb, rpb, &rpb->rpb_record->rec_precedence, DPM_primary);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("   record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line);
+#endif
+
+	bump_count(tdbb, DBB_insert_count, relation);
+
+	if (!(transaction->tra_flags & TRA_system) &&
+		(transaction->tra_save_point) &&
+		(transaction->tra_save_point->sav_verb_count))
+			verb_post(tdbb, transaction, rpb, 0, 0, FALSE, FALSE);
+
+/* for an autocommit transaction, mark a commit as necessary */
+
+	if (transaction->tra_flags & TRA_autocommit)
+		transaction->tra_flags |= TRA_perform_autocommit;
+}
+
+
+BOOLEAN VIO_sweep(TDBB tdbb, TRA transaction)
+{
+/**************************************
+ *
+ *	V I O _ s w e e p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a garbage collection pass.
+ *
+ **************************************/
+	DBB dbb;
+	REL relation;
+	RPB rpb;
+	VEC vector;
+	USHORT i;
+	JMP_BUF env, *old_env;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE)
+		ib_printf("VIO_sweep (transaction %d)\n",
+				  transaction ? transaction->tra_number : 0);
+#endif
+
+	if (transaction->tra_attachment->att_flags & ATT_NO_CLEANUP)
+		return FALSE;
+
+	DPM_scan_pages(tdbb);
+	rpb.rpb_record = NULL;
+	rpb.rpb_stream_flags = 0;
+	rpb.rpb_window.win_flags = WIN_large_scan;
+
+	old_env = (JMP_BUF *) tdbb->tdbb_setjmp;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	if (SETJMP(env)) {
+		tdbb->tdbb_setjmp = (UCHAR *) old_env;
+		if (rpb.rpb_record)
+			ALL_release(reinterpret_cast < frb * >(rpb.rpb_record));
+		if (relation) {
+			if (relation->rel_sweep_count)
+				--relation->rel_sweep_count;
+			if (relation->rel_scan_count)
+				--relation->rel_scan_count;
+		}
+		ERR_punt();
+	}
+
+	for (i = 1; (vector = dbb->dbb_relations) && i < vector->vec_count; i++)
+		if ((relation = (REL) vector->vec_object[i]) && relation->rel_pages &&
+			!(relation->rel_flags & (REL_deleted | REL_deleting))) {
+			rpb.rpb_relation = relation;
+			rpb.rpb_number = -1;
+			rpb.rpb_org_scans = relation->rel_scan_count++;
+			++relation->rel_sweep_count;
+			while (VIO_next_record
+				   (tdbb, &rpb, NULL, transaction, 0, FALSE, FALSE)) {
+				CCH_RELEASE(tdbb, &rpb.rpb_window);
+				if (relation->rel_flags & REL_deleting)
+					break;
+#ifdef MULTI_THREAD
+				if (--tdbb->tdbb_quantum < 0 && !tdbb->tdbb_inhibit)
+					(void) JRD_reschedule(tdbb, SWEEP_QUANTUM, TRUE);
+				transaction->tra_oldest_active = dbb->dbb_oldest_snapshot;
+#endif
+			}
+			--relation->rel_sweep_count;
+			--relation->rel_scan_count;
+		}
+
+	tdbb->tdbb_setjmp = (UCHAR *) old_env;
+	if (rpb.rpb_record)
+		ALL_release(reinterpret_cast < frb * >(rpb.rpb_record));
+	return TRUE;
+}
+
+
+void VIO_verb_cleanup(TDBB tdbb, TRA transaction)
+{
+/**************************************
+ *
+ *	V I O _ v e r b _ c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cleanup after a verb.  If the verb count in the transaction block
+ *	is non zero, the verb failed and should be cleaned up.  Cleaning
+ *	up ordinarily means just backing out the change, but if we have
+ *	an old version we created in this transaction, we replace the current
+ *	version with old version.
+ *
+ *	All changes made by the transaction are kept in one bitmap per
+ *	relation.  A second bitmap per relation tracks records for which
+ *	we have old data.  The actual data is kept in a linked list stack.
+ *	Note that although a record may be changed several times, it will
+ *	have only ONE old value -- the value it had before this verb 
+ *	started.
+ *
+ **************************************/
+	VCT action;
+	REL relation;
+	REC record, dead_record;
+	RPB rpb, new_rpb;
+	LLS stack;
+	SAV sav_point;
+	BOOLEAN same_tx = FALSE;
+	struct plb *old_pool;
+	SLONG savep_size;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE)
+		ib_printf("VIO_verb_cleanup (transaction %d)\n",
+				  transaction ? transaction->tra_number : 0);
+#endif
+	if (transaction->tra_flags & TRA_system)
+		return;
+
+	sav_point = transaction->tra_save_point;
+	if (!sav_point)
+		return;
+
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = transaction->tra_pool;
+
+/* If the current to-be-cleaned-up savepoint is very big, and the next
+   level savepoint is the transaction level savepoint, then get rid of
+   the transaction level savepoint now (instead of after making the
+   transaction level savepoint very very big). */
+	savep_size = savepoint_size(transaction);
+	transaction->tra_save_point = sav_point->sav_next;
+	if (transaction->tra_save_point &&
+		(transaction->tra_save_point->sav_flags & SAV_trans_level) &&
+		savep_size > 500)
+		VIO_verb_cleanup(tdbb, transaction);	/* get rid of tx-level savepoint */
+
+/* Cleanup/merge deferred work/event post */
+
+	if (sav_point->sav_verb_actions
+		|| (sav_point->sav_flags & SAV_event_post)) {
+		if (sav_point->sav_verb_count)
+			DFW_delete_deferred(transaction, sav_point->sav_number);
+		else
+			DFW_merge_work(transaction, sav_point->sav_number,
+						   (transaction->
+							tra_save_point ? transaction->tra_save_point->
+							sav_number : 0));
+
+		/* The save point may be reused, so reset it.  If the work was
+		 * not rolled back, set flag for the previous save point.
+		 */
+
+		if (sav_point->sav_flags & SAV_event_post) {
+			if ((transaction->tra_save_point) && (!sav_point->sav_verb_count))
+				transaction->tra_save_point->sav_flags |= SAV_event_post;
+
+			sav_point->sav_flags &= ~SAV_event_post;
+		}
+	}
+
+	while (action = sav_point->sav_verb_actions) {
+		sav_point->sav_verb_actions = action->vct_next;
+		relation = action->vct_relation;
+		if (sav_point->sav_verb_count || transaction->tra_save_point) {
+			rpb.rpb_relation = relation;
+			rpb.rpb_number = -1;
+			rpb.rpb_record = NULL;
+			rpb.rpb_window.win_flags = 0;
+			rpb.rpb_transaction = transaction->tra_number;
+
+			if (sav_point->sav_verb_count) {
+				/* This savepoint needs to be undone because the
+				   verb_count is not zero. */
+
+				while (SBM_next
+					   (action->vct_records, &rpb.rpb_number,
+						RSE_get_forward)) {
+					if (!DPM_get(tdbb, &rpb, LCK_write))
+						BUGCHECK(186);	/* msg 186 record disappeared */
+					if (rpb.rpb_flags & rpb_delta)
+						VIO_data(tdbb, &rpb,
+								 reinterpret_cast <
+								 blk * >(tdbb->tdbb_default));
+					else
+						CCH_RELEASE(tdbb, &rpb.rpb_window);
+					if (rpb.rpb_transaction != transaction->tra_number)
+						BUGCHECK(185);	/* msg 185 wrong record version */
+					if (!SBM_test(action->vct_undo, rpb.rpb_number))
+						VIO_backout(tdbb, &rpb, transaction);
+					else {
+						for (stack = action->vct_data; stack;
+							 stack = stack->lls_next) {
+							record = (REC) stack->lls_object;
+							if (record->rec_number == rpb.rpb_number)
+								break;
+						}
+						if (stack) {
+							same_tx =
+								(record->rec_flags & REC_same_tx) ? TRUE :
+								FALSE;
+
+							/* Have we done BOTH an update and delete to this record
+							   in the same transaction? */
+
+							if (same_tx) {
+								VIO_backout(tdbb, &rpb, transaction);
+								if (record->rec_length == 0) {
+									if (!DPM_get(tdbb, &rpb, LCK_write))
+										BUGCHECK(186);	/* msg 186 record disappeared */
+									if (rpb.rpb_flags & rpb_delta)
+										VIO_data(tdbb, &rpb,
+												 reinterpret_cast <
+												 blk * >(tdbb->tdbb_default));
+									else
+										CCH_RELEASE(tdbb, &rpb.rpb_window);
+
+									/* In "rollback" operation, since all the SQL stmts
+									   were executed successfully, therefore the save points
+									   were merged into a single save point. That means
+									   transaction->tra_save_point is NULL at this point,
+									   VIO_backout should be invoked once more ( 1st time
+									   VIO_backout backs data out to the stmt savepoint
+									   and the 2nd time VIO_backout backs data out to
+									   transaction savepoint).
+
+									   But during trigger abort/UNDO operaion, the save
+									   points have not been merged into a single save
+									   point yet. That means transaction->tra_save_point
+									   is not NULL at this point, VIO_backout was only
+									   invoked once (backs data out to the stmt savepoint.  */
+
+									if ((!transaction->tra_save_point) ||
+										(record->rec_flags & REC_new_version))
+										VIO_backout(tdbb, &rpb, transaction);
+								}
+							}
+							if (record->rec_length != 0) {
+								dead_record = rpb.rpb_record;
+								new_rpb = rpb;
+								new_rpb.rpb_record = record;
+								new_rpb.rpb_address = record->rec_data;
+								new_rpb.rpb_length = record->rec_length;
+								if (!(rpb.rpb_flags & rpb_delta)) {
+									if (!DPM_get(tdbb, &rpb, LCK_write))
+										BUGCHECK(186);	/* msg 186 record disappeared */
+									VIO_data(tdbb, &rpb,
+											 reinterpret_cast <
+											 blk * >(tdbb->tdbb_default));
+								}
+								update_in_place(tdbb, transaction, &rpb,
+												&new_rpb);
+								if (!(transaction->tra_flags & TRA_system))
+									garbage_collect_idx(tdbb, &rpb, &new_rpb,
+														NULL);
+								rpb.rpb_record = dead_record;
+							}
+						}
+					}
+				}
+			}
+			else {
+				/* This savepoint needs to be posted to the previous savepoint. */
+
+				while (SBM_next
+					   (action->vct_records, &rpb.rpb_number,
+						RSE_get_forward)) {
+					if (!SBM_test(action->vct_undo, rpb.rpb_number))
+						verb_post(tdbb, transaction, &rpb, 0, 0, FALSE,
+								  FALSE);
+					else {
+						BOOLEAN new_ver;
+						/* Setup more of rpb because verb_post is probably going to
+						   garbage-collect.  Note that the data doesn't need to be set up
+						   because old_data will be used.  (this guarantees that the
+						   rpb points to the first fragment of the record) */
+
+						if (!DPM_get(tdbb, &rpb, LCK_read))
+							BUGCHECK(186);	/* msg 186 record disappeared */
+						CCH_RELEASE(tdbb, &rpb.rpb_window);
+						for (stack = action->vct_data; stack;
+							 stack = stack->lls_next) {
+							record = (REC) stack->lls_object;
+							if (record->rec_number == rpb.rpb_number)
+								break;
+						}
+						same_tx =
+							(record->rec_flags & REC_same_tx) ? TRUE : FALSE;
+						new_ver =
+							(record->rec_flags & REC_new_version) ? TRUE :
+							FALSE;
+						if (record->rec_length != 0) {
+							new_rpb = rpb;
+							new_rpb.rpb_record = record;
+							new_rpb.rpb_address = record->rec_data;
+							new_rpb.rpb_length = record->rec_length;
+							verb_post(tdbb, transaction, &rpb, record,
+									  &new_rpb, same_tx, new_ver);
+						}
+						else if (same_tx)
+							verb_post(tdbb, transaction, &rpb, 0,
+									  0, TRUE, new_ver);
+					}
+				}
+			}
+
+			if (rpb.rpb_record)
+				ALL_release(reinterpret_cast < frb * >(rpb.rpb_record));
+		}
+		SBM_reset(&action->vct_records);
+		SBM_reset(&action->vct_undo);
+
+		while (action->vct_data)
+			ALL_release(reinterpret_cast <
+						frb * >(LLS_POP(&action->vct_data)));
+
+		action->vct_next = sav_point->sav_verb_free;
+		sav_point->sav_verb_free = action;
+	}
+
+	sav_point->sav_verb_count = 0;
+	sav_point->sav_next = transaction->tra_save_free;
+	transaction->tra_save_free = sav_point;
+
+/* If the only remaining savepoint is the 'transaction-level' savepoint
+   that was started by TRA_start, then check if it hasn't grown out of
+   bounds yet.  If it has, then give up on this transaction-level
+   savepoint. */
+
+	if (transaction->tra_save_point &&
+		(transaction->tra_save_point->sav_flags & SAV_trans_level) &&
+		savepoint_size(transaction) > 500)
+		VIO_verb_cleanup(tdbb, transaction);	/* get rid of savepoint */
+
+	tdbb->tdbb_default = old_pool;
+}
+
+
+
+void VIO_merge_proc_sav_points(
+							   TDBB tdbb,
+							   TRA transaction, SAV * sav_point_list)
+{
+/**************************************
+ *
+ *	V I O _ m e r g e _ p r o c _ s a v _ p o i n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Merge all the work done in all the save points in
+ *	sav_point_list to the current save point in the 
+ *	transaction block. 
+ *
+ **************************************/
+	SAV sav_point;
+	SAV sav_next;
+	SLONG sav_number;
+
+	SET_TDBB(tdbb);
+
+	if (transaction->tra_flags & TRA_system)
+		return;
+
+	if (!transaction->tra_save_point)
+		return;
+
+/* One by one go on putting all savepoints in the sav_point_list on
+   top of transaction save points and call VIO_verb_cleanup () */
+
+	for (sav_point = *sav_point_list; sav_point;
+		 sav_point = sav_point->sav_next) {
+		sav_next = sav_point->sav_next;
+		sav_number = sav_point->sav_number;
+
+		/* Add it to the front */
+		sav_point->sav_next = transaction->tra_save_point;
+		transaction->tra_save_point = sav_point;
+
+		VIO_verb_cleanup(tdbb, transaction);
+		sav_point = get_free_save_point_block(transaction);
+		sav_point->sav_verb_count = 0;
+		sav_point->sav_next = sav_next;
+		sav_point->sav_number = sav_number;
+		*sav_point_list = sav_point;
+		sav_point_list = &sav_point->sav_next;
+	}
+
+}
+
+
+static void bump_count(TDBB tdbb, USHORT count_id, REL relation)
+{
+/**************************************
+ *
+ *	b u m p _ c o u n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Bump a usage count.
+ *
+ **************************************/
+	DBB dbb;
+	VCL vector, *ptr;
+	USHORT relation_id;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("bump_count (count_id %d, table %d)\n", count_id,
+				  relation ? relation->rel_id : 0);
+#endif
+
+#ifdef PROD_BUILD
+/* The sweeper threads run in the background without
+   any way to inspect these counters. For debugging
+   purposes, they are maintained in the DEV_BUILD. */
+
+	if (tdbb->tdbb_flags & TDBB_sweeper)
+		return;
+#endif
+
+	relation_id = relation->rel_id;
+	ptr = tdbb->tdbb_attachment->att_counts + count_id;
+
+	if (!(vector = *ptr) || relation_id >= vector->vcl_count)
+		vector =
+			reinterpret_cast <
+			vcl *
+			>(ALL_vector
+			  (dbb->dbb_permanent, reinterpret_cast < vec ** >(ptr),
+			   relation_id));
+
+	++vector->vcl_long[relation_id];
+}
+
+
+static void check_class(
+						TDBB tdbb,
+						TRA transaction,
+						RPB * old_rpb, RPB * new_rpb, USHORT id)
+{
+/**************************************
+ *
+ *	c h e c k _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	A record in a system relation containing a security class is
+ *	being change.  Check to see if the security class has changed,
+ *	and if so, post the change.
+ *
+ **************************************/
+	DSC desc1, desc2;
+	ATT attachment;
+
+	SET_TDBB(tdbb);
+
+	EVL_field(0, old_rpb->rpb_record, id, &desc1);
+	EVL_field(0, new_rpb->rpb_record, id, &desc2);
+	if (!MOV_compare(&desc1, &desc2))
+		return;
+
+	attachment = tdbb->tdbb_attachment;
+
+	SCL_check_access(attachment->att_security_class, 0, 0, 0, SCL_protect,
+					 "DATABASE", "");
+	DFW_post_work(transaction, dfw_compute_security, &desc2, 0);
+}
+
+
+static void check_control(TDBB tdbb)
+{
+/**************************************
+ *
+ *	c h e c k _ c o n t r o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if we have control 
+ *	privilege on the current database.
+ *
+ **************************************/
+	ATT attachment;
+
+	SET_TDBB(tdbb);
+
+	attachment = tdbb->tdbb_attachment;
+
+	SCL_check_access(attachment->att_security_class,
+					 0, 0, 0, SCL_control, "DATABASE", "");
+}
+
+
+static BOOLEAN check_user(TDBB tdbb, DSC * desc)
+{
+/**************************************
+ *
+ *	c h e c k _ u s e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate string against current user name.
+ *
+ **************************************/
+	TEXT *p, *end, *q;
+
+	SET_TDBB(tdbb);
+
+	p = (TEXT *) desc->dsc_address;
+	end = p + desc->dsc_length;
+	q = tdbb->tdbb_attachment->att_user->usr_user_name;
+
+/* It is OK to not internationalize this function for v4.00 as 
+ * User names are limited to 7-bit ASCII for v4.00
+ */
+
+	for (; p < end && *p != ' '; p++, q++)
+		if (UPPER7(*p) != UPPER7(*q))
+			return FALSE;
+
+	return (*q) ? FALSE : TRUE;
+}
+
+
+static void delete_(TDBB tdbb, RPB * rpb, SLONG prior_page, struct plb *pool)
+{
+/**************************************
+ *
+ *	d e l e t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a record an all of its fragments.  This assumes the
+ *	record has already been fetched for write.  If a pool is given,
+ *	the caller has requested that data be fetched as the record is
+ *	deleted.
+ *
+ **************************************/
+	REC record, prior;
+	RPB temp_rpb;
+	UCHAR *tail, *tail_end, differences[MAX_DIFFERENCES];
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("delete_ (rpb %d, prior_page %ld, pool %d)\n",
+				  rpb->rpb_number, prior_page,
+				  (pool) ? pool->plb_pool_id : 0);
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("   delete_ record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line);
+#endif
+	if (!pool || (rpb->rpb_flags & rpb_deleted)) {
+		prior = NULL;
+		tail = tail_end = NULL;
+	}
+	else {
+		record = VIO_record(tdbb, rpb, 0, pool);
+		if (prior = rpb->rpb_prior) {
+			tail = differences;
+			tail_end = differences + sizeof(differences);
+			if (prior != record)
+				MOVE_FASTER(prior->rec_data, record->rec_data,
+							record->rec_format->fmt_length);
+		}
+		else {
+			tail = record->rec_data;
+			tail_end = tail + record->rec_length;
+		}
+		tail =
+			reinterpret_cast <
+			UCHAR *
+			>(SQZ_decompress
+			  (reinterpret_cast < char *>(rpb->rpb_address), rpb->rpb_length,
+			   reinterpret_cast < char *>(tail),
+			   reinterpret_cast < char *>(tail_end)));
+		rpb->rpb_prior = (rpb->rpb_flags & rpb_delta) ? record : 0;
+	}
+
+	temp_rpb = *rpb;
+	DPM_delete(tdbb, &temp_rpb, prior_page);
+	tail = delete_tail(tdbb, &temp_rpb, temp_rpb.rpb_page, tail, tail_end);
+
+	if (pool && prior)
+		SQZ_apply_differences(record, reinterpret_cast < char *>(differences),
+							  reinterpret_cast < char *>(tail));
+}
+
+
+static UCHAR *delete_tail(
+						  TDBB tdbb,
+						  RPB * rpb,
+						  SLONG prior_page, UCHAR * tail, UCHAR * tail_end)
+{
+/**************************************
+ *
+ *	d e l e t e _ t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete the tail of a record.  If no tail, don't do nuttin'.
+ *	If the address of a record tail has been passed, fetch data.
+ *
+ **************************************/
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf
+			("delete_tail (rpb %d, prior_page %ld, tail %x, tail_end %x)\n",
+			 rpb->rpb_number, prior_page, tail, tail_end);
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("   tail of record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line);
+#endif
+
+	while (rpb->rpb_flags & rpb_incomplete) {
+		rpb->rpb_page = rpb->rpb_f_page;
+		rpb->rpb_line = rpb->rpb_f_line;
+
+		/* Since the callers are modifying this record, it should not be 
+		   garbage collected. */
+
+		if (!DPM_fetch(tdbb, rpb, LCK_write))
+			BUGCHECK(248);		/* msg 248 cannot find record fragment */
+		if (tail)
+			tail =
+				reinterpret_cast <
+				UCHAR *
+				>(SQZ_decompress
+				  (reinterpret_cast < char *>(rpb->rpb_address),
+				   rpb->rpb_length, reinterpret_cast < char *>(tail),
+				   reinterpret_cast < char *>(tail_end)));
+		DPM_delete(tdbb, rpb, prior_page);
+		prior_page = rpb->rpb_page;
+	}
+
+	return tail;
+}
+
+
+static void expunge(TDBB tdbb, RPB * rpb, TRA transaction, SLONG prior_page)
+{
+/**************************************
+ *
+ *	e x p u n g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expunge a fully mature deleted record.  Get rid of the record
+ *	and all of the ancestors.  Be particulary careful since this
+ *	can do a lot of damage.
+ *
+ **************************************/
+	RPB temp;
+
+	SET_TDBB(tdbb);
+
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("expunge (rpb %d, transaction %d, prior_page %d)\n",
+				  rpb->rpb_number, transaction ? transaction->tra_number : 0,
+				  prior_page);
+#endif
+
+	if (transaction->tra_attachment->att_flags & ATT_no_cleanup)
+		return;
+
+/* Re-fetch the record */
+
+	if (!DPM_get(tdbb, rpb, LCK_write))
+		return;
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("   expunge record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line);
+#endif
+
+/* Make sure it looks kosher and delete the record. */
+
+	if (!(rpb->rpb_flags & rpb_deleted) ||
+		rpb->rpb_transaction >= transaction->tra_oldest_active) {
+		CCH_RELEASE(tdbb, &rpb->rpb_window);
+		return;
+	}
+
+	delete_(tdbb, rpb, prior_page, 0);
+
+/* If there aren't any old versions, don't worry about garbage collection. */
+
+	if (!rpb->rpb_b_page)
+		return;
+
+/* Delete old versions fetching data for garbage collection. */
+
+	temp = *rpb;
+	garbage_collect(tdbb, &temp, rpb->rpb_page, 0);
+	bump_count(tdbb, DBB_expunge_count, rpb->rpb_relation);
+}
+
+
+static void garbage_collect(
+							TDBB tdbb,
+							RPB * rpb, SLONG prior_page, LLS staying)
+{
+/**************************************
+ *
+ *	g a r b a g e _ c o l l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Garbage collect a chain of back record.  This is called from
+ *	"purge" and "expunge."  One enters this routine with an
+ *	inactive RPB, describing a records which has either 
+ *	1) just been deleted or
+ *	2) just had its back pointers set to zero
+ *	Therefor we can do a fetch on the back pointers we've got
+ *	because we have the last existing copy of them.
+ *
+ **************************************/
+	LLS going;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES)
+		ib_printf("garbage_collect (rpb %d, prior_page %d, staying)\n",
+				  rpb->rpb_number, prior_page);
+	if (debug_flag > DEBUG_WRITES_INFO)
+		ib_printf
+			("   record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line);
+#endif
+
+/* Delete old versions fetching data for garbage collection. */
+
+	going = NULL;
+
+	while (rpb->rpb_b_page != 0) {
+		rpb->rpb_record = NULL;
+		prior_page = rpb->rpb_page;
+		rpb->rpb_page = rpb->rpb_b_page;
+		rpb->rpb_line = rpb->rpb_b_line;
+		if (!DPM_fetch(tdbb, rpb, LCK_write))
+			BUGCHECK(291);		/* msg 291 cannot find record back version */
+		delete_(tdbb, rpb, prior_page, tdbb->tdbb_default);
+		if (rpb->rpb_record)
+			LLS_PUSH(rpb->rpb_record, &going);
+#ifdef MULTI_THREAD
+		/* Don't monopolize the server while chasing long
+		   back version chains. */
+
+		if (--tdbb->tdbb_quantum < 0 && !tdbb->tdbb_inhibit)
+			(void) JRD_reschedule(tdbb, 0, TRUE);
+#endif
+	}
+
+	BLB_garbage_collect(tdbb, going, staying, prior_page, rpb->rpb_relation);
+	IDX_garbage_collect(tdbb, rpb, going, staying);
+
+	while (going)
+		ALL_release(reinterpret_cast < frb * >(LLS_POP(&going)));
+}
+
+
+static void garbage_collect_idx(
+								TDBB tdbb,
+								RPB * org_rpb, RPB * new_rpb, REC old_data)
+{
+/**************************************
+ *
+ *	g a r b a g e _ c o l l e c t _ i d x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Garbage collect indices for which it is
+ *	OK for other transactions to create indices with the same 
+ *	values.
+ *
+ **************************************/
+	LLS going, staying;
+
+	SET_TDBB(tdbb);
+
+/* There should be a way to quickly check if there are indices and/or if there
+   are blob-colums. */
+
+/* Garbage collect.  Start by getting all existing old versions (other
+   than the immediate two in question). */
+
+	going = staying = NULL;
+	list_staying(tdbb, org_rpb, &staying);
+
+/* The data that is going is passed either via old_data, or via org_rpb. */
+
+	if (old_data)
+		LLS_PUSH(old_data, &going);
+	else
+		LLS_PUSH(org_rpb->rpb_record, &going);
+
+	BLB_garbage_collect(tdbb, going, staying, org_rpb->rpb_page,
+						org_rpb->rpb_relation);
+	IDX_garbage_collect(tdbb, org_rpb, going, staying);
+
+	LLS_POP(&going);
+
+	while (staying)
+		ALL_release(reinterpret_cast < frb * >(LLS_POP(&staying)));
+}
+
+
+#ifdef GARBAGE_THREAD
+static void THREAD_ROUTINE garbage_collector(DBB dbb)
+{
+/**************************************
+ *
+ *	g a r b a g e _ c o l l e c t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Garbage collect the data pages marked in a
+ *	relation's garbage collection bitmap. The
+ *	hope is that offloading the computation
+ *	and I/O burden of garbage collection will
+ *	improve query response time and throughput.
+ *
+ **************************************/
+	struct tdbb thd_context, *tdbb;
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	SLONG count, dp_sequence, last;
+	ULONG id;
+	BOOLEAN found, flush;
+	REL relation;
+	TRA transaction;
+	RPB rpb;
+	VEC vector;
+	EVENT gc_event;
+	JMP_BUF env;
+
+	THREAD_ENTER;
+	CHECK_DBB(dbb);
+	gc_event = dbb->dbb_gc_event;
+	MOVE_CLEAR(&rpb, sizeof(struct rpb));
+	MOVE_CLEAR(status_vector, sizeof(status_vector));
+	relation = 0;
+	transaction = 0;
+	found = flush = FALSE;
+
+/* Establish a thread context. */
+/* Note: Since this function operates as its own thread,
+   we have no need to restore the THREAD CONTEXT on exit.
+   Once we reach the end, the thread will die, thus implicitly
+   killing all its contexts. */
+	SET_THREAD_DATA;
+	tdbb->tdbb_database = dbb;
+	tdbb->tdbb_default = dbb->dbb_permanent;
+	tdbb->tdbb_status_vector = status_vector;
+	tdbb->tdbb_quantum = SWEEP_QUANTUM;
+	tdbb->tdbb_setjmp = (UCHAR *) env;
+	tdbb->tdbb_flags = TDBB_sweeper;
+
+/* Surrender if resources to start up aren't available. */
+
+	if (SETJMP(env)) {
+		goto gc_exit;
+	}
+
+/* Pseudo attachment needed for lock owner identification. */
+
+	tdbb->tdbb_attachment = (ATT) ALLOCP(type_att);
+	tdbb->tdbb_attachment->att_database = dbb;
+	tdbb->tdbb_attachment->att_flags = ATT_garbage_collector;
+
+	rpb.rpb_window.win_flags = WIN_garbage_collector;
+
+	LCK_init(tdbb, LCK_OWNER_attachment);
+
+/* Notify our creator that we have started */
+
+	dbb->dbb_flags |= DBB_garbage_collector;
+	ISC_event_post(gc_event);
+
+	if (SETJMP(env)) {
+		/* Perfunctory error reporting -- got any better ideas ? */
+
+		gds__log_status(dbb->dbb_file->fil_string, status_vector);
+		if (relation && relation->rel_sweep_count)
+			--relation->rel_sweep_count;
+	}
+
+/* Initialize status vector after logging error. */
+
+	MOVE_CLEAR(status_vector, sizeof(status_vector));
+
+/* The garbage collector flag is cleared to request the thread
+   to finish up and exit. */
+
+	while (dbb->dbb_flags & DBB_garbage_collector) {
+		count = ISC_event_clear(gc_event);
+		dbb->dbb_flags |= DBB_gc_active;
+		found = FALSE;
+		relation = 0;
+
+		/* If background thread activity has been suspended because
+		   of I/O errors then idle until the condition is cleared.
+		   In particular, make worker threads perform their own
+		   garbage collection so that errors are reported to users. */
+
+		if (dbb->dbb_flags & DBB_suspend_bgio) {
+			ATT attachment;
+
+			for (attachment = dbb->dbb_attachments;
+				 attachment != 0; attachment = attachment->att_next)
+				if (attachment->att_flags & ATT_notify_gc) {
+					attachment->att_flags &= ~ATT_notify_gc;
+					attachment->att_flags |= ATT_disable_notify_gc;
+				}
+
+			while (dbb->dbb_flags & DBB_suspend_bgio) {
+				count = ISC_event_clear(gc_event);
+				THREAD_EXIT;
+				(void) ISC_event_wait(1, &gc_event, &count,
+									  10 * 1000000, (FPTR_VOID) 0, 0);
+				THREAD_ENTER;
+				if (!(dbb->dbb_flags & DBB_garbage_collector))
+					goto gc_exit;
+			}
+
+			for (attachment = dbb->dbb_attachments;
+				 attachment != 0; attachment = attachment->att_next)
+				if (attachment->att_flags & ATT_disable_notify_gc) {
+					attachment->att_flags &= ~ATT_disable_notify_gc;
+					attachment->att_flags |= ATT_notify_gc;
+				}
+		}
+
+		/* Scan relation garbage collection bitmaps for candidate data pages.
+		   Express interest in the relation to prevent it from being deleted
+		   out from under us while garbage collection is in-progress. */
+
+		for (id = 0; (vector = dbb->dbb_relations) && id < vector->vec_count;
+			 id++)
+			if ((relation = (REL) vector->vec_object[id])
+				&& relation->rel_gc_bitmap != 0
+				&& !(relation->rel_flags & (REL_deleted | REL_deleting))) {
+				++relation->rel_sweep_count;
+				dp_sequence = -1;
+				rpb.rpb_relation = relation;
+				while (SBM_next
+					   (relation->rel_gc_bitmap, &dp_sequence,
+						RSE_get_forward)) {
+					(void) SBM_clear(relation->rel_gc_bitmap, dp_sequence);
+
+					if (!transaction) {
+						/* Start a "precommitted" transaction by using read-only,
+						   read committed. Of particular note is the absence of a
+						   transaction lock which means the transaction does not
+						   inhibit garbage collection by its very existence. */
+
+						transaction =
+							TRA_start(tdbb, sizeof(gc_tpb),
+									  const_cast < char *>(gc_tpb));
+						tdbb->tdbb_transaction = transaction;
+					}
+					else {
+						/* Refresh our notion of the oldest transactions for
+						   efficient garbage collection. This is very cheap. */
+
+						transaction->tra_oldest = dbb->dbb_oldest_transaction;
+						transaction->tra_oldest_active =
+							dbb->dbb_oldest_snapshot;
+					}
+
+					found = flush = TRUE;
+					rpb.rpb_number = (dp_sequence * dbb->dbb_max_records) - 1;
+					last = rpb.rpb_number + dbb->dbb_max_records;
+
+					/* Attempt to garbage collect all records on the data page. */
+
+					while (VIO_next_record
+						   (tdbb, &rpb, NULL, transaction, NULL, FALSE, TRUE)) {
+						CCH_RELEASE(tdbb, &rpb.rpb_window);
+						if (!(dbb->dbb_flags & DBB_garbage_collector)) {
+							--relation->rel_sweep_count;
+							goto gc_exit;
+						}
+						if (relation->rel_flags & REL_deleting)
+							goto rel_exit;
+						if (--tdbb->tdbb_quantum < 0 && !tdbb->tdbb_inhibit)
+							(void) JRD_reschedule(tdbb, SWEEP_QUANTUM, TRUE);
+						if (rpb.rpb_number >= last)
+							break;
+					}
+				}
+
+			  rel_exit:
+				dp_sequence = -1;
+				if (!SBM_next
+					(relation->rel_gc_bitmap, &dp_sequence,
+					 RSE_get_forward)) {
+					/* If the bitmap is empty then release it */
+
+					SBM_release(relation->rel_gc_bitmap);
+					relation->rel_gc_bitmap = 0;
+				}
+				else {
+					/* Otherwise release bitmap segments that have been cleared. */
+
+					while (SBM_next
+						   (relation->rel_gc_bitmap, &dp_sequence,
+							RSE_get_forward));
+				}
+				--relation->rel_sweep_count;
+			}
+
+		/* If there's more work to do voluntarily ask to be rescheduled.
+		   Otherwise, wait for event notification. */
+
+		if (found)
+			(void) JRD_reschedule(tdbb, SWEEP_QUANTUM, TRUE);
+		else {
+			dbb->dbb_flags &= ~DBB_gc_pending;
+
+			/* Make no mistake about it, garbage collection is our first
+			   priority. But if there's no garbage left to collect, assist
+			   the overworked cache writer and reader threads. */
+
+			while (dbb->dbb_flags & DBB_garbage_collector &&
+				   !(dbb->dbb_flags & DBB_gc_pending)) {
+				int timeout;
+
+				if (CCH_free_page(tdbb) || CCH_prefetch_pages(tdbb))
+					continue;
+				if (flush) {
+					/* As a last resort, flush garbage collected pages to
+					   disk. This isn't strictly necessary but contributes
+					   to the supply of free pages available for user
+					   transactions. It also reduces the likelihood of
+					   orphaning free space on lower precedence pages that
+					   haven't been written if a crash occurs. */
+
+					flush = FALSE;
+					if (transaction)
+						CCH_flush(tdbb, (USHORT) FLUSH_SWEEP, 0);
+					continue;
+				}
+				dbb->dbb_flags &= ~DBB_gc_active;
+				THREAD_EXIT;
+				timeout = ISC_event_wait(1, &gc_event, &count,
+										 10 * 1000000, (FPTR_VOID) 0, 0);
+				THREAD_ENTER;
+				dbb->dbb_flags |= DBB_gc_active;
+				if (!timeout)
+					count = ISC_event_clear(gc_event);
+			}
+		}
+	}
+
+  gc_exit:
+
+	if (rpb.rpb_record)
+		ALL_release(reinterpret_cast < frb * >(rpb.rpb_record));	/* Possibly allocated from permanent pool. */
+	if (transaction)
+		TRA_commit(tdbb, transaction, FALSE);
+	if (tdbb->tdbb_attachment) {
+		LCK_fini(tdbb, LCK_OWNER_attachment);
+		ALL_release(reinterpret_cast < frb * >(tdbb->tdbb_attachment));
+	}
+	dbb->dbb_flags &=
+		~(DBB_garbage_collector | DBB_gc_active | DBB_gc_pending);
+	ISC_event_post(gc_event);	/* Notify anyone listening of our demise. */
+
+	RESTORE_THREAD_DATA;
+
+	THREAD_EXIT;
+}
+#endif
+
+
+static SAV get_free_save_point_block(TRA transaction)
+{
+/**************************************
+ *
+ *      g e t _ f r e e _ s a v e _ p o i n t _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get a free save point block from free list.
+ *	If not available make one.
+ *
+ **************************************/
+	SAV sav_point;
+
+	if (sav_point = transaction->tra_save_free)
+		transaction->tra_save_free = sav_point->sav_next;
+	else
+		sav_point = (SAV) ALLOCT(type_sav);
+
+	return sav_point;
+}
+
+
+static void list_staying(TDBB tdbb, RPB * rpb, LLS * staying)
+{
+/**************************************
+ *
+ *	l i s t _ s t a y i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get all the data that's staying so we can clean up indexes etc.
+ *	without losing anything.  Note that in the middle somebody could
+ *	modify the record -- worse yet, somebody could modify it, commit,
+ *	and have somebody else modify it, so if the back pointers on the
+ *	original record change throw out what we've got and start over.
+ *	"All the data that's staying" is: all the versions of the input
+ *	record (rpb) that are stored in the relation.
+ *
+ **************************************/
+	ULONG next_page;
+	REC data;
+	USHORT next_line, depth, max_depth;
+	RPB temp;
+
+	SET_TDBB(tdbb);
+
+	data = rpb->rpb_prior;
+	next_page = rpb->rpb_page;
+	next_line = rpb->rpb_line;
+	max_depth = 0;
+
+	for (;;) {
+		/* Each time thru the loop, start from the latest version of the record
+		   because during the call to VIO_data (below), things might change. */
+
+		temp = *rpb;
+		depth = 0;
+
+		/* If the entire record disappeared, then there is nothing staying. */
+		if (!DPM_fetch(tdbb, &temp, LCK_read)) {
+			while (*staying)
+				ALL_release(reinterpret_cast < frb * >(LLS_POP(staying)));
+			return;
+		}
+
+		/* If anything changed, then start all over again.  This time with the
+		   new, latest version of the record. */
+
+		if (temp.rpb_b_page != rpb->rpb_b_page ||
+			temp.rpb_b_line != rpb->rpb_b_line ||
+			temp.rpb_flags != rpb->rpb_flags) {
+			while (*staying)
+				ALL_release(reinterpret_cast < frb * >(LLS_POP(staying)));
+			next_page = temp.rpb_page;
+			next_line = temp.rpb_line;
+			max_depth = 0;
+			*rpb = temp;
+		}
+
+		depth++;
+
+		/* Each time thru the for-loop, we process the next older version.
+		   The while-loop finds this next older version. */
+
+		while (temp.rpb_b_page &&
+			   !(temp.rpb_page == next_page && temp.rpb_line == next_line)) {
+			temp.rpb_prior = (temp.rpb_flags & rpb_delta) ? data : NULL;
+			DPM_fetch_back(tdbb, &temp, LCK_read, 1);
+			depth++;
+#ifdef MULTI_THREAD
+			/* Don't monopolize the server while chasing long
+			   back version chains. */
+
+			if (--tdbb->tdbb_quantum < 0 && !tdbb->tdbb_inhibit)
+				(void) JRD_reschedule(tdbb, 0, TRUE);
+#endif
+		}
+
+		/* If there is a next older version, then process it: remember that
+		   version's data in 'staying'. */
+
+		if (temp.rpb_page == next_page && temp.rpb_line == next_line) {
+			next_page = temp.rpb_b_page;
+			next_line = temp.rpb_b_line;
+			temp.rpb_record = NULL;
+			if (temp.rpb_flags & rpb_deleted)
+				CCH_RELEASE(tdbb, &temp.rpb_window);
+			else {
+				VIO_data(tdbb, &temp,
+						 reinterpret_cast < blk * >(tdbb->tdbb_default));
+				LLS_PUSH(temp.rpb_record, staying);
+				data = temp.rpb_record;
+			}
+			max_depth = depth;
+			if (!next_page)
+				break;
+		}
+		else {
+			CCH_RELEASE(tdbb, &temp.rpb_window);
+			break;
+		}
+	}
+
+/* If the current number of back versions (depth) is smaller than the number
+   of back versions that we saw in a previous iteration (max_depth), then 
+   somebody else must have been garbage collecting also.  Remove the entries
+   in 'staying' that have already been garbage collected. */
+	while (depth < max_depth--)
+		if (*staying)
+			ALL_release(reinterpret_cast < frb * >(LLS_POP(staying)));
+}
+
+
+#ifdef GARBAGE_THREAD
+static void notify_garbage_collector(TDBB tdbb, RPB * rpb)
+{
+/**************************************
+ *
+ *	n o t i f y _ g a r b a g e _ c o l l e c t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Notify the garbage collector that there is work to be
+ *	done. Each relation has a garbage collection sparse
+ *	bitmap where each bit corresponds to a data page
+ *	sequence number of a data page known to have records
+ *	which are candidates for garbage collection.
+ *
+ **************************************/
+	DBB dbb;
+	REL relation;
+	PLB old_pool;
+	SLONG dp_sequence;
+
+	dbb = tdbb->tdbb_database;
+	relation = rpb->rpb_relation;
+
+/* If this is a large sequential scan then defer the release
+   of the data page to the LRU tail until the garbage collector
+   can garbage collect the page. */
+
+	if (rpb->rpb_window.win_flags & WIN_large_scan)
+		rpb->rpb_window.win_flags |= WIN_garbage_collect;
+
+/* A relation's garbage collect bitmap is allocated
+   from the database permanent pool. */
+
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = dbb->dbb_permanent;
+	dp_sequence = rpb->rpb_number / dbb->dbb_max_records;
+	SBM_set(tdbb, &relation->rel_gc_bitmap, dp_sequence);
+	tdbb->tdbb_default = old_pool;
+
+/* If the garbage collector isn't active then poke
+   the event on which it sleeps to awaken it. */
+
+	dbb->dbb_flags |= DBB_gc_pending;
+	if (!(dbb->dbb_flags & DBB_gc_active))
+		ISC_event_post(dbb->dbb_gc_event);
+}
+#endif
+
+
+static void prepare_update(
+						   TDBB tdbb,
+						   TRA transaction,
+						   SLONG commit_tid_read,
+						   RPB * rpb, RPB * temp, RPB * new_rpb, LLS * stack)
+{
+/**************************************
+ *
+ *	p r e p a r e _ u p d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare for a modify or erase.  Store the old version
+ *	of a record, fetch the current version, check transaction
+ *	states, etc.
+ *
+ **************************************/
+	USHORT state;
+	REC record;
+	RPB temp2, org_rpb;
+	UCHAR differences[MAX_DIFFERENCES];
+	USHORT l;
+	SLONG update_conflict_trans = -1;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL) {
+		ib_printf
+			("prepare_update (transaction %d, commit_tid read %ld, rpb %d, ",
+			 transaction ? transaction->tra_number : 0, commit_tid_read,
+			 rpb ? rpb->rpb_number : 0);
+		ib_printf(" temp_rpb %d, new_rpb %d, stack)\n",
+				  temp ? temp->rpb_number : 0,
+				  new_rpb ? new_rpb->rpb_number : 0);
+	}
+	if (debug_flag > DEBUG_TRACE_ALL_INFO)
+		ib_printf
+			("   old record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d, prior %d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line, rpb->rpb_prior);
+#endif
+
+/* We're almost ready to go.  To erase the record, we must first
+   make a copy of the old record someplace else.  Then we must re-fetch
+   the record (for write) and verify that it is legal for us to
+   erase it -- that it was written by a transaction that was committed
+   when we started.  If not, the transaction that wrote the record
+   is either active, dead, or in limbo.  If the transaction is active,
+   wait for it to finish.  If it commits, we can't procede and must
+   return an update conflict.  If the transaction is dead, back out the
+   old version of the record and try again.  If in limbo, punt.
+   
+   The above is true only for concurrency & consistency mode transactions.
+   For read committed transactions, check if the latest commited version
+   is the same as the version that was read for the update.  If yes,
+   the update can take place.  If some other transaction has modified
+   the record and committed, then an update error will be returned.*/
+
+	*temp = *rpb;
+	record = rpb->rpb_record;
+
+/* Mark the record as chained version, and re-store it */
+
+	temp->rpb_address = record->rec_data;
+	temp->rpb_length = record->rec_format->fmt_length;
+	temp->rpb_format_number = record->rec_format->fmt_version;
+	temp->rpb_flags = rpb_chained;
+
+	if (temp->rpb_prior)
+		temp->rpb_flags |= rpb_delta;
+
+/* If it makes sense, store a differences record */
+
+	if (new_rpb) {
+		l = SQZ_differences(reinterpret_cast < char *>(new_rpb->rpb_address),
+							new_rpb->rpb_length,
+							reinterpret_cast < char *>(temp->rpb_address),
+							temp->rpb_length,
+							reinterpret_cast < char *>(differences),
+							sizeof(differences));
+		if ((l < sizeof(differences)) && (l < temp->rpb_length)) {
+			temp->rpb_address = differences;
+			temp->rpb_length = l;
+			new_rpb->rpb_flags |= rpb_delta;
+		}
+	}
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_WRITES_INFO)
+		if (new_rpb)
+			ib_printf("    new record is%sa delta \n",
+					  (new_rpb->rpb_flags & rpb_delta) ? " " : " NOT ");
+#endif
+
+	temp->rpb_number = rpb->rpb_number;
+	DPM_store(tdbb, temp, stack, DPM_secondary);
+
+/* Re-fetch the original record for write in anticipation of
+   replacing it with a completely new version.  Make sure it
+   was the same one we stored above. */
+
+	while (TRUE) {
+		org_rpb.rpb_flags = rpb->rpb_flags;
+		org_rpb.rpb_f_line = rpb->rpb_f_line;
+		org_rpb.rpb_f_page = rpb->rpb_f_page;
+
+		if (!DPM_get(tdbb, rpb, LCK_write)) {
+			/* There is no reason why this record would disappear for a
+			   snapshot transaction. */
+			if (!(transaction->tra_flags & TRA_read_committed))
+				BUGCHECK(186);	/* msg 186 record disappeared */
+			else
+				/* A read-committed transaction, on the other hand, doesn't
+				   insist on the presence of any version, so versions of records
+				   and entire records it has already read might be garbage-collected. */
+			{
+				if (!DPM_fetch(tdbb, temp, LCK_write))
+					BUGCHECK(291);	/* msg 291 cannot find record back version */
+				delete_(tdbb, temp, (SLONG) 0, 0);
+				ERR_post(isc_deadlock, isc_arg_gds, isc_update_conflict, 0);
+			}
+		}
+
+
+		state = TRA_snapshot_state(tdbb, transaction, rpb->rpb_transaction);
+
+		/* Reset the garbage collect active flag if the transaction state is
+		   in a terminal state. If committed it must have been a precommitted
+		   transaction that was backing out a dead record version and the
+		   system crashed. Clear the flag and set the state to tra_dead to
+		   reattempt the backout. */
+
+		if (rpb->rpb_flags & rpb_gc_active)
+			switch (state) {
+			case tra_committed:
+				state = tra_dead;
+				rpb->rpb_flags &= ~rpb_gc_active;
+				break;
+
+			case tra_dead:
+				rpb->rpb_flags &= ~rpb_gc_active;
+				break;
+
+			default:
+				break;
+			}
+
+		switch (state) {
+		case tra_committed:
+#ifdef VIO_DEBUG
+			if (debug_flag > DEBUG_READS_INFO)
+				ib_printf
+					("    record's transaction (%d) is committed (my TID - %d)\n",
+					 rpb->rpb_transaction, transaction->tra_number);
+#endif
+			if (rpb->rpb_flags & rpb_deleted) {
+				CCH_RELEASE(tdbb, &rpb->rpb_window);
+				/* get rid of the back records we just created */
+				if (!
+					(transaction->
+					 tra_attachment->att_flags & ATT_no_cleanup)) {
+					if (!DPM_fetch(tdbb, temp, LCK_write))
+						BUGCHECK(291);	/* msg 291 cannot find record back version */
+					delete_(tdbb, temp, (SLONG) 0, 0);
+				}
+				IBERROR(188);	/* msg 188 cannot update erased record */
+			}
+
+			/* For read committed transactions, if the record version we read 
+			 * and started the update
+			 * has been updated by another transaction which committed in the 
+			 * meantime, we cannot proceed further - update conflict error.
+			 */
+
+			if ((transaction->tra_flags & TRA_read_committed) &&
+				(commit_tid_read != rpb->rpb_transaction)) {
+				CCH_RELEASE(tdbb, &rpb->rpb_window);
+				if (!DPM_fetch(tdbb, temp, LCK_write))
+					BUGCHECK(291);	/* msg 291 cannot find record back version */
+				delete_(tdbb, temp, (SLONG) 0, 0);
+				ERR_post(isc_deadlock, isc_arg_gds, isc_update_conflict, 0);
+			}
+
+			/*
+			 * The case statement for tra_us has been pushed down to this
+			 * current position as we donot want to give update conflict
+			 * errors and the "cannot update erased record" within the same
+			 * transaction. We were getting these erroe in case of triggers.
+			 * A pre-delete trigger could update or delete a record which we
+			 * are then tring to change. 
+			 * In order to remove these changes and restore original behaviour, 
+			 * move this case statement above the 2 "if" statements.
+			 * smistry 23-Aug-99
+			 */
+		case tra_us:
+#ifdef VIO_DEBUG
+			if (debug_flag > DEBUG_READS_INFO && state == tra_us)
+				ib_printf
+					("    record's transaction (%d) is us (my TID - %d)\n",
+					 rpb->rpb_transaction, transaction->tra_number);
+
+#endif
+			if (rpb->rpb_b_page != temp->rpb_b_page ||
+				rpb->rpb_b_line != temp->rpb_b_line ||
+				rpb->rpb_transaction != temp->rpb_transaction ||
+				(rpb->rpb_flags & rpb_delta) != (temp->rpb_flags & rpb_delta)
+				|| rpb->rpb_flags != org_rpb.rpb_flags
+				|| (rpb->rpb_flags & rpb_incomplete)
+				&& (rpb->rpb_f_page != org_rpb.rpb_f_page
+					|| rpb->rpb_f_line != org_rpb.rpb_f_line)) {
+
+				/* the primary copy of the record was dead and someone else 
+				   backed it out for us.  Our data is OK but our pointers 
+				   aren't, so get rid of the record we created and try again 
+				 */
+
+				CCH_RELEASE(tdbb, &rpb->rpb_window);
+				if (!
+					(transaction->
+					 tra_attachment->att_flags & ATT_no_cleanup)) {
+					temp2 = *temp;
+					if (!DPM_fetch(tdbb, &temp2, LCK_write))
+						BUGCHECK(291);	/* msg 291 cannot find record back version */
+					delete_(tdbb, &temp2, (SLONG) 0, 0);
+				}
+				temp->rpb_b_page = rpb->rpb_b_page;
+				temp->rpb_b_line = rpb->rpb_b_line;
+				temp->rpb_flags &= ~rpb_delta;
+				temp->rpb_flags |= rpb->rpb_flags & rpb_delta;
+				temp->rpb_transaction = rpb->rpb_transaction;
+				DPM_store(tdbb, temp, stack, DPM_secondary);
+				continue;
+			}
+			LLS_PUSH((BLK) temp->rpb_page, stack);
+			return;
+
+		case tra_active:
+		case tra_limbo:
+#ifdef VIO_DEBUG
+			if (debug_flag > DEBUG_READS_INFO) {
+				ib_printf
+					("    record's transaction (%d) is %s (my TID - %d)\n",
+					 rpb->rpb_transaction,
+					 (state == tra_active) ? "active" : "limbo",
+					 transaction->tra_number);
+			}
+
+#endif
+			CCH_RELEASE(tdbb, &rpb->rpb_window);
+
+			/* Wait as long as it takes for an active transaction which has modified
+			   the record. If an active transaction has used its TID to safely
+			   backout a fragmented dead record version, spin wait because it will
+			   finish shortly. */
+
+			if (!(rpb->rpb_flags & rpb_gc_active))
+				state =
+					TRA_wait(tdbb, transaction, rpb->rpb_transaction, TRUE);
+			else {
+				BOOLEAN wait_flag;
+
+				wait_flag =
+					(transaction->tra_flags & TRA_nowait) ? FALSE : TRUE;
+				transaction->tra_flags |= TRA_nowait;
+				state =
+					TRA_wait(tdbb, transaction, rpb->rpb_transaction, TRUE);
+				if (wait_flag)
+					transaction->tra_flags &= ~TRA_nowait;
+
+				if (state == tra_active) {
+					THREAD_EXIT;
+					THREAD_SLEEP(100);	/* milliseconds */
+					THREAD_ENTER;
+					continue;
+				}
+			}
+
+			/* The snapshot says: transaction was active.  The TIP page says: transaction
+			   is committed.  Maybe the transaction was rolled back via a transaction
+			   level savepoint.  In that case, the record DPM_get-ed via rpb is already
+			   backed out.  Try to refetch that record one more time. */
+
+			if ((state == tra_committed)
+				&& (rpb->rpb_transaction != update_conflict_trans)) {
+				update_conflict_trans = rpb->rpb_transaction;
+				continue;
+			}
+			if (state != tra_dead && !(temp->rpb_flags & rpb_deleted)) {
+				if (!DPM_fetch(tdbb, temp, LCK_write))
+					BUGCHECK(291);	/* msg 291 cannot find record back version */
+				delete_(tdbb, temp, (SLONG) 0, 0);
+			}
+			switch (state) {
+			case tra_committed:
+				ERR_post(isc_deadlock, isc_arg_gds, isc_update_conflict, 0);
+
+			case tra_active:
+				ERR_post(isc_deadlock, 0);
+
+			case tra_limbo:
+				ERR_post(isc_deadlock, isc_arg_gds, isc_trainlim, 0);
+
+			case tra_dead:
+				break;
+			}
+			break;
+
+		case tra_dead:
+		case tra_precommitted:
+#ifdef VIO_DEBUG
+			if (debug_flag > DEBUG_READS_INFO)
+				ib_printf
+					("    record's transaction (%d) is dead (my TID - %d)\n",
+					 rpb->rpb_transaction, transaction->tra_number);
+#endif
+			CCH_RELEASE(tdbb, &rpb->rpb_window);
+			break;
+		}
+
+		if (state == tra_precommitted) {
+			THREAD_EXIT;
+			THREAD_SLEEP(100);	/* milliseconds */
+			THREAD_ENTER;
+		}
+		else
+			VIO_backout(tdbb, rpb, transaction);
+	}
+}
+
+
+static BOOLEAN purge(TDBB tdbb, RPB * rpb)
+{
+/**************************************
+ *
+ *	p u r g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Purge old versions of a fully mature record.  The record is
+ *	guaranteed not to be deleted.  Return TRUE if the record
+ *	didn't need to be purged or if the purge was done.  Return
+ *	FALSE if the purge couldn't happen because somebody else 
+ *	had the record.
+ *
+ **************************************/
+	DBB dbb;
+	LLS staying;
+	RPB temp;
+	REC record, gc_rec;
+	REL relation;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("purge (rpb %d)\n", rpb->rpb_number);
+	if (debug_flag > DEBUG_TRACE_ALL_INFO)
+		ib_printf
+			("   record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line);
+#endif
+
+/* Release and re-fetch the page for write.  Make sure it's still the
+   same record (give up if not).  Then zap the back pointer and release
+   the record.  */
+
+	temp = *rpb;
+	relation = rpb->rpb_relation;
+	rpb->rpb_record = VIO_gc_record(tdbb, relation);
+
+	VIO_data(tdbb, rpb, reinterpret_cast < blk * >(dbb->dbb_permanent));
+
+	temp.rpb_prior = rpb->rpb_prior;
+	gc_rec = record = rpb->rpb_record;
+	rpb->rpb_record = temp.rpb_record;
+
+	if (!DPM_get(tdbb, rpb, LCK_write)) {
+		gc_rec->rec_flags &= ~REC_gc_active;
+		return FALSE;
+	}
+
+	rpb->rpb_prior = temp.rpb_prior;
+
+	if (temp.rpb_transaction != rpb->rpb_transaction ||
+		temp.rpb_b_line != rpb->rpb_b_line ||
+		temp.rpb_b_page != rpb->rpb_b_page || rpb->rpb_b_page == 0) {
+		CCH_RELEASE(tdbb, &rpb->rpb_window);
+		gc_rec->rec_flags &= ~REC_gc_active;
+		return TRUE;
+	}
+
+	rpb->rpb_b_page = 0;
+	rpb->rpb_b_line = 0;
+	rpb->rpb_flags &= ~(rpb_delta | rpb_gc_active);
+	CCH_MARK(tdbb, &rpb->rpb_window);
+	DPM_rewrite_header(tdbb, rpb);
+	CCH_RELEASE(tdbb, &rpb->rpb_window);
+
+	staying = NULL;
+	LLS_PUSH(record, &staying);
+	garbage_collect(tdbb, &temp, rpb->rpb_page, staying);
+	LLS_POP(&staying);
+	gc_rec->rec_flags &= ~REC_gc_active;
+	bump_count(tdbb, DBB_purge_count, relation);
+
+	return TRUE;
+}
+
+
+static REC replace_gc_record(REL relation, REC * gc_record, USHORT length)
+{
+/**************************************
+ *
+ *	r e p l a c e _ g c _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Replace a relation garbage collect record
+ *	to accomodate longer length format.
+ *
+ **************************************/
+	VEC vector;
+	REC *rec_ptr, *end;
+
+/* V4_MUTEX_LOCK (&relation->rel_mutex); */
+
+	vector = relation->rel_gc_rec;
+
+	for (rec_ptr = (REC *) vector->vec_object, end =
+		 rec_ptr + vector->vec_count; rec_ptr < end; ++rec_ptr)
+		if (*rec_ptr == *gc_record) {
+			*rec_ptr =
+				(REC) ALL_extend(reinterpret_cast < blk ** >(gc_record),
+								 length);
+/*	V4_MUTEX_UNLOCK (&relation->rel_mutex); */
+			return *rec_ptr;
+		}
+
+/* V4_MUTEX_UNLOCK (&relation->rel_mutex); */
+	BUGCHECK(288);				/* msg 288 garbage collect record disappeared */
+	return ((REC) 0);			/* Added to remove compiler warnings */
+}
+
+
+static void replace_record(
+						   TDBB tdbb, RPB * rpb, LLS * stack, TRA transaction)
+{
+/**************************************
+ *
+ *	r e p l a c e _ r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Replace a record and get rid of the old tail, if any.  If requested,
+ *	fetch data for the record on the way out.
+ *
+ **************************************/
+	RPB temp;
+
+	SET_TDBB(tdbb);
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf("replace_record (rpb %d, stack, transaction %d)\n",
+				  rpb->rpb_number, transaction ? transaction->tra_number : 0);
+	if (debug_flag > DEBUG_TRACE_ALL_INFO)
+		ib_printf
+			("   record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d, prior %d\n",
+			 rpb->rpb_page, rpb->rpb_line, rpb->rpb_transaction,
+			 rpb->rpb_flags, rpb->rpb_b_page, rpb->rpb_b_line,
+			 rpb->rpb_f_page, rpb->rpb_f_line, rpb->rpb_prior);
+#endif
+
+	temp = *rpb;
+	rpb->rpb_flags &=
+		~(rpb_fragment | rpb_incomplete | rpb_chained | rpb_gc_active);
+	DPM_update(tdbb, rpb, stack, transaction);
+	delete_tail(tdbb, &temp, rpb->rpb_page, 0, 0);
+
+	if ((rpb->rpb_flags & rpb_delta) && !rpb->rpb_prior)
+		rpb->rpb_prior = rpb->rpb_record;
+}
+
+
+static SLONG savepoint_size(TRA transaction)
+{
+/**************************************
+ *
+ *	s a v e p o i n t _ s i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a measure of how big the current savepoint has gotten.
+ *      The number returned is the number of 'sbm' and 'bms' structs 
+ *	that are allocated.  This number does not take into account
+ *	the data allocated to 'vct_undo'.
+ *
+ **************************************/
+	VCT verb_actions;
+	SLONG count;
+
+	count = 0;
+	verb_actions = transaction->tra_save_point->sav_verb_actions;
+
+	while (verb_actions) {
+		count += SBM_size(&verb_actions->vct_records);
+		verb_actions = verb_actions->vct_next;
+	}
+
+	return count;
+}
+
+
+static void set_system_flag(RPB * rpb, USHORT field_id, SSHORT flag)
+{
+/**************************************
+ *
+ *	s e t _ s y s t e m _ f l a g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the value of a particular field to a known binary value.
+ *
+ **************************************/
+	REC record;
+	DSC desc1, desc2;
+
+	record = rpb->rpb_record;
+	if (EVL_field(0, record, field_id, &desc1))
+		return;
+
+	desc2.dsc_dtype = dtype_short;
+	desc2.dsc_length = sizeof(SSHORT);
+	desc2.dsc_scale = 0;
+	desc2.dsc_sub_type = 0;
+	desc2.dsc_address = (UCHAR *) & flag;
+	MOV_move(&desc2, &desc1);
+	CLEAR_NULL(record, field_id);
+}
+
+
+static void update_in_place(
+							TDBB tdbb,
+							TRA transaction, RPB * org_rpb, RPB * new_rpb)
+{
+/**************************************
+ *
+ *	u p d a t e _ i n _ p l a c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify a record in place.  This is used for system transactions
+ *	and for multiple modifications of a user record.
+ *
+ **************************************/
+	DBB dbb;
+	RPB temp2;
+	REC prior, old_data, gc_rec;
+	LLS going, staying, *stack;
+	REL relation;
+	UCHAR *address;
+	SLONG page;
+	USHORT line, length, format_number;
+
+	SET_TDBB(tdbb);
+	dbb = tdbb->tdbb_database;
+	CHECK_DBB(dbb);
+	gc_rec = NULL;
+
+#ifdef VIO_DEBUG
+	if (debug_flag > DEBUG_TRACE_ALL)
+		ib_printf
+			("update_in_place (transaction %d, org_rpb %d, new_rpb %d)\n",
+			 transaction ? transaction->tra_number : 0, org_rpb->rpb_number,
+			 new_rpb ? new_rpb->rpb_number : 0);
+	if (debug_flag > DEBUG_TRACE_ALL_INFO)
+		ib_printf
+			("   old record  %d:%d, rpb_trans %d, flags %d, back %d:%d, fragment %d:%d\n",
+			 org_rpb->rpb_page, org_rpb->rpb_line, org_rpb->rpb_transaction,
+			 org_rpb->rpb_flags, org_rpb->rpb_b_page, org_rpb->rpb_b_line,
+			 org_rpb->rpb_f_page, org_rpb->rpb_f_line);
+#endif
+
+	stack = &new_rpb->rpb_record->rec_precedence;
+	relation = org_rpb->rpb_relation;
+	old_data = org_rpb->rpb_record;
+
+/* If the old version has been stored as a delta, things get complicated.  Clearly,
+   if we overwrite the current record, the differences from the current version
+   becomes meaningless.  What we need to do is replace the old "delta" record
+   with an old "complete" record, update in placement, then delete the old
+   delta record */
+
+	if (prior = org_rpb->rpb_prior) {
+		temp2 = *org_rpb;
+		temp2.rpb_record = VIO_gc_record(tdbb, relation);
+		temp2.rpb_page = org_rpb->rpb_b_page;
+		temp2.rpb_line = org_rpb->rpb_b_line;
+		if (!DPM_fetch(tdbb, &temp2, LCK_read))
+			BUGCHECK(291);		/* msg 291 cannot find record back version */
+		VIO_data(tdbb, &temp2,
+				 reinterpret_cast < blk * >(dbb->dbb_permanent));
+		gc_rec = temp2.rpb_record;
+		temp2.rpb_flags = rpb_chained;
+		if (temp2.rpb_prior)
+			temp2.rpb_flags |= rpb_delta;
+		temp2.rpb_number = org_rpb->rpb_number;
+		DPM_store(tdbb, &temp2, stack, DPM_secondary);
+
+		LLS_PUSH((BLK) temp2.rpb_page, stack);
+	}
+
+	if (!DPM_get(tdbb, org_rpb, LCK_write))
+		BUGCHECK(186);			/* msg 186 record disappeared */
+
+	if (prior) {
+		page = org_rpb->rpb_b_page;
+		line = org_rpb->rpb_b_line;
+		org_rpb->rpb_b_page = temp2.rpb_page;
+		org_rpb->rpb_b_line = temp2.rpb_line;
+		org_rpb->rpb_flags &= ~rpb_delta;
+		org_rpb->rpb_prior = NULL;
+		temp2.rpb_page = page;
+		temp2.rpb_line = line;
+	}
+
+	address = org_rpb->rpb_address;
+	length = org_rpb->rpb_length;
+	format_number = org_rpb->rpb_format_number;
+	org_rpb->rpb_address = new_rpb->rpb_address;
+	org_rpb->rpb_length = new_rpb->rpb_length;
+	org_rpb->rpb_format_number = new_rpb->rpb_format_number;
+
+	DEBUG;
+	replace_record(tdbb, org_rpb, stack, transaction);
+	DEBUG;
+
+	org_rpb->rpb_address = address;
+	org_rpb->rpb_length = length;
+	org_rpb->rpb_format_number = format_number;
+	org_rpb->rpb_undo = old_data;
+
+	if (transaction->tra_flags & TRA_system) {
+		/* Garbage collect.  Start by getting all existing old versions (other
+		   than the immediate two in question). */
+
+		going = staying = NULL;
+		list_staying(tdbb, org_rpb, &staying);
+
+		LLS_PUSH(org_rpb->rpb_record, &going);
+		LLS_PUSH(new_rpb->rpb_record, &staying);
+
+		BLB_garbage_collect(tdbb, going, staying, org_rpb->rpb_page,
+							relation);
+		IDX_garbage_collect(tdbb, org_rpb, going, staying);
+
+		LLS_POP(&going);
+		LLS_POP(&staying);
+
+		while (staying)
+			ALL_release(reinterpret_cast < frb * >(LLS_POP(&staying)));
+	}
+
+	if (prior) {
+		if (!DPM_fetch(tdbb, &temp2, LCK_write))
+			BUGCHECK(291);		/* msg 291 cannot find record back version */
+		delete_(tdbb, &temp2, org_rpb->rpb_page, 0);
+	}
+
+	if (gc_rec)
+		gc_rec->rec_flags &= ~REC_gc_active;
+}
+
+
+static void verb_post(
+					  TDBB tdbb,
+					  TRA transaction,
+					  RPB * rpb,
+					  REC old_data,
+					  RPB * new_rpb, BOOLEAN same_tx, BOOLEAN new_ver)
+{
+/**************************************
+ *
+ *	v e r b _ p o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post a record update under verb control to a transaction. 
+ *	If the previous version of the record was created by
+ *	this transaction in a different verb, save the data as well.
+ *
+ * Input:
+ *	old_data:	Only supplied if an in-place operation was performed
+ *				(i.e. update_in_place).
+ *	new_rpb:	Only used to pass to garbage_collect_idx.
+ *	same_tx:	TRUE if this transaction inserted/updated this record 
+ *				and then deleted it.
+ *			FALSE in all other cases.
+ *
+ **************************************/
+	VCT action;
+	struct plb *old_pool;
+	REC data, record;
+	UCHAR *p, *q, *end;
+	LLS stack;
+
+	SET_TDBB(tdbb);
+
+	old_pool = tdbb->tdbb_default;
+	tdbb->tdbb_default = transaction->tra_pool;
+
+/* Find action block for relation */
+
+	for (action = transaction->tra_save_point->sav_verb_actions; action;
+		 action = action->vct_next)
+		if (action->vct_relation == rpb->rpb_relation)
+			break;
+
+	if (!action) {
+		if (action = transaction->tra_save_point->sav_verb_free)
+			transaction->tra_save_point->sav_verb_free = action->vct_next;
+		else
+			action = (VCT) ALLOCD(type_vct);
+		action->vct_next = transaction->tra_save_point->sav_verb_actions;
+		transaction->tra_save_point->sav_verb_actions = action;
+		action->vct_relation = rpb->rpb_relation;
+	}
+
+	if (!SBM_test(action->vct_records, rpb->rpb_number)) {
+		SBM_set(tdbb, &action->vct_records, rpb->rpb_number);
+		if (old_data) {
+			/* An update-in-place is being posted to this savepoint, and this
+			   savepoint hasn't seen this record before. */
+
+			SBM_set(tdbb, &action->vct_undo, rpb->rpb_number);
+			data = (REC) ALLOCDV(type_rec, old_data->rec_length);
+			data->rec_number = rpb->rpb_number;
+			data->rec_length = old_data->rec_length;
+			data->rec_format = old_data->rec_format;
+			if (same_tx)
+				data->rec_flags |= REC_same_tx;
+			for (q = old_data->rec_data, p = data->rec_data, end =
+				 q + old_data->rec_length; q < end; q++)
+				*p++ = *q;
+			LLS_PUSH(data, &action->vct_data);
+		}
+		else if (same_tx) {
+			/* An insert/update followed by a delete is posted to this savepoint,
+			   and this savepoint hasn't seen this record before. */
+
+			SBM_set(tdbb, &action->vct_undo, rpb->rpb_number);
+			data = (REC) ALLOCDV(type_rec, FUDGE);
+			data->rec_number = rpb->rpb_number;
+			data->rec_length = 0;
+			if (new_ver)
+				data->rec_flags |= (REC_same_tx | REC_new_version);
+			else
+				data->rec_flags |= REC_same_tx;
+			LLS_PUSH(data, &action->vct_data);
+		}
+	}
+	else if (same_tx) {
+		if (SBM_test(action->vct_undo, rpb->rpb_number)) {
+			/* An insert/update followed by a delete is posted to this savepoint,
+			   and this savepoint has already undo for this record. */
+
+			for (stack = action->vct_data; stack; stack = stack->lls_next) {
+				record = (REC) stack->lls_object;
+				if (record->rec_number == rpb->rpb_number) {
+					record->rec_flags |= REC_same_tx;
+					break;
+				}
+			}
+		}
+		else {
+			/* An insert/update followed by a delete is posted to this savepoint,
+			   and this savepoint has seen this record before but it doesn't have
+			   undo data. */
+
+			SBM_set(tdbb, &action->vct_undo, rpb->rpb_number);
+			data = (REC) ALLOCDV(type_rec, FUDGE);
+			data->rec_number = rpb->rpb_number;
+			data->rec_length = 0;
+			data->rec_flags |= (REC_same_tx | REC_new_version);
+			LLS_PUSH(data, &action->vct_data);
+		}
+		if (old_data) {
+			/* The passed old_data will not be used.  Thus, garbage collect. */
+
+			garbage_collect_idx(tdbb, rpb, new_rpb, old_data);
+		}
+	}
+	else if (old_data) {
+		/* We are posting an update-in-place, but the current savepoint has
+		   already undo data for this record.  The old_data will not be used,
+		   so make sure we garbage collect before we loose track of the
+		   in-place-updated record. */
+
+		garbage_collect_idx(tdbb, rpb, new_rpb, old_data);
+	}
+
+	tdbb->tdbb_default = old_pool;
+}
+
+
+} // extern "C"
diff --git a/src/jrd/vio_debug.h b/src/jrd/vio_debug.h
new file mode 100644
index 0000000000..054a8f694d
--- /dev/null
+++ b/src/jrd/vio_debug.h
@@ -0,0 +1,37 @@
+/* *	PROGRAM:	JRD Access Method
+ *	MODULE:		vio_debug.h
+ *	DESCRIPTION:	Definitions for tracing VIO activity
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_VIO_DEBUG_H_
+#define _JRD_VIO_DEBUG_H_
+
+#define DEBUG_WRITES		1
+#define DEBUG_WRITES_INFO	2
+#define DEBUG_READS		3
+#define DEBUG_READS_INFO	4
+#define DEBUG_TRACE		5
+#define DEBUG_TRACE_INFO	6
+#define DEBUG_TRACE_ALL		7
+#define DEBUG_TRACE_ALL_INFO	8
+
+static debug_flag;
+
+#endif /* _JRD_VIO_DEBUG_H_ */
diff --git a/src/jrd/vio_proto.h b/src/jrd/vio_proto.h
new file mode 100644
index 0000000000..8db5a2606f
--- /dev/null
+++ b/src/jrd/vio_proto.h
@@ -0,0 +1,66 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		vio_proto.h
+ *	DESCRIPTION:	Prototype header file for vio.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_VIO_PROTO_H_
+#define _JRD_VIO_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void VIO_backout(TDBB, struct rpb *, struct tra *);
+extern int VIO_chase_record_version(TDBB, struct rpb *, struct rsb *,
+									struct tra *, struct blk *);
+#ifdef PC_ENGINE
+extern int VIO_check_if_updated(TDBB, struct rpb *);
+#endif
+extern void VIO_data(TDBB, register struct rpb *, struct blk *);
+extern void VIO_erase(TDBB, struct rpb *, struct tra *);
+#ifdef GARBAGE_THREAD
+extern void VIO_fini(TDBB);
+#endif
+extern int VIO_garbage_collect(TDBB, struct rpb *, struct tra *);
+extern struct rec *VIO_gc_record(TDBB, struct rel *);
+extern int VIO_get(TDBB, struct rpb *, struct rsb *, struct tra *,
+				   struct blk *);
+extern int VIO_get_current(TDBB, struct rpb *, struct tra *, struct blk *,
+						   USHORT);
+#ifdef GARBAGE_THREAD
+extern void VIO_init(TDBB);
+#endif
+extern void VIO_merge_proc_sav_points(TDBB, struct tra *, struct sav **);
+extern void VIO_modify(TDBB, struct rpb *, struct rpb *, struct tra *);
+extern BOOLEAN VIO_next_record(TDBB, struct rpb *, struct rsb *, struct tra *,
+							   struct blk *, BOOLEAN, BOOLEAN);
+extern struct rec *VIO_record(TDBB, register struct rpb *, struct fmt *,
+							  struct plb *);
+extern void VIO_start_save_point(TDBB, struct tra *);
+extern void VIO_store(TDBB, struct rpb *, struct tra *);
+extern BOOLEAN VIO_sweep(TDBB, struct tra *);
+extern void VIO_verb_cleanup(TDBB, struct tra *);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* _JRD_VIO_PROTO_H_ */
diff --git a/src/jrd/vms.cpp b/src/jrd/vms.cpp
new file mode 100644
index 0000000000..22bc426e87
--- /dev/null
+++ b/src/jrd/vms.cpp
@@ -0,0 +1,975 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		vms.c
+ *	DESCRIPTION:	VMS specific physical IO
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include rms
+#include iodef
+#include descrip
+#include ssdef
+
+#include "../jrd/jrd.h"
+#include "../jrd/pio.h"
+#include "../jrd/lck.h"
+#include "../jrd/ods.h"
+#include "../jrd/cch.h"
+#include "../jrd/codes.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/err_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/thd_proto.h"
+
+#define DEFAULT_FILE_NAME	".gdb"
+#define EVENT_FLAG		15
+
+/***
+#define TRACE	1
+***/
+
+#ifdef TRACE
+#include "../jrd/ib_stdio.h"
+#endif
+
+
+extern "C" {
+
+
+extern gds__completion_ast();
+
+static BOOLEAN extend_file(FIL, STATUS *);
+static FIL seek_file(FIL, BDB, int *);
+static FIL setup_file(DBB, TEXT *, USHORT, USHORT, struct NAM *);
+static void setup_trace(FIL, SSHORT);
+static void trace_event(FIL, SSHORT, SCHAR *, SSHORT);
+static BOOLEAN vms_io_error(STATUS *, TEXT *, STATUS, int, FIL);
+
+#define DVI$_DEVLOCKNAM		240
+
+
+/* ACP File Information block */
+
+typedef struct fib$ {
+	SLONG fib$l_acctl;
+	SSHORT fib$w_fid[3];
+	SSHORT fib$w_did[3];
+	SLONG fib$l_wcc;
+	SSHORT fib$w_nmctl;
+	SSHORT fib$w_exctl;
+	SLONG fib$l_exsz;
+	SLONG fib$l_exvbn;
+} FIB$;
+
+#define FIB$M_EXTEND	128
+#define FIB$M_ALDEF	8
+#define FIB$M_ALCONB	2
+#define FIB$M_WRITETHRU	524288
+#define FIB$M_FINDFID	2048
+
+typedef struct atr$ {
+	SSHORT atr$w_size;
+	SSHORT atr$w_type;
+	SCHAR *atr$l_addr;
+	SLONG atr$l_zero;
+} ATR$;
+
+#define ATR$S_RECATTR	32
+#define ATR$C_RECATTR	4
+
+typedef struct fab$ {
+	SCHAR fat$b_rtype;
+	SCHAR fat$b_rattrib;
+	SSHORT fat$w_rsize;
+	USHORT fat$w_hiblk[2];
+	USHORT fat$w_efblk[2];
+	SSHORT fat$w_ffbyte;
+	SCHAR fat$b_bktsize;
+	SCHAR fat$b_vfcsize;
+	SSHORT fat$w_maxrec;
+	SSHORT fat$w_defext;
+	SSHORT fat$w_gbc;
+	SSHORT fat$w_reserved[3];
+	SSHORT fat$w_not_used;
+	SSHORT fat$w_versions;
+} FAT$;
+
+
+nt PIO_add_file(DBB dbb, FIL main_file, TEXT * file_name, SLONG start)
+{
+/**************************************
+ *
+ *	P I O _ a d d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a file to an existing database.  Return the sequence
+ *	number of the new file.  If anything goes wrong, return a
+ *	sequence of 0.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	USHORT sequence;
+	FIL file, new_file;
+
+	if (!(new_file = PIO_create(dbb, file_name, strlen(file_name), FALSE)))
+		return 0;
+
+	new_file->fil_min_page = start;
+	sequence = 1;
+
+	for (file = main_file; file->fil_next; file = file->fil_next)
+		++sequence;
+
+	file->fil_max_page = start - 1;
+	file->fil_next = new_file;
+
+	return sequence;
+}
+
+
+void PIO_close(FIL main_file)
+{
+/**************************************
+ *
+ *	P I O _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	FIL file;
+	int status;
+
+	for (file = main_file; file; file = file->fil_next) {
+		if (!((status = sys$dassgn(file->fil_desc)) & 1))
+			V4_MUTEX_DESTROY(file->fil_mutex);
+#ifdef TRACE
+		if (file->fil_trace) {
+			trace_event(dbb->dbb_file, trace_close, 0, 0);
+			ib_fclose(file->fil_trace);
+		}
+#endif
+	}
+}
+
+
+int PIO_connection(TEXT * file_name, USHORT * file_length)
+{
+/**************************************
+ *
+ *	P I O _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a file specification and determine whether a page/lock
+ *	server is required and available.  If so, return a "connection"
+ *	block.  If not, return NULL.
+ *
+ *	Note: The file name must have been expanded prior to this call.
+ *
+ **************************************/
+	int node;
+
+#ifdef PLSERVER
+
+/* Analyze the file name to see if a remote connection is required.  If not,
+   quietly (sic) return. */
+
+	if (node = analyze(file_name, *file_length))
+		return PLS_connection(node);
+
+#endif
+
+	return NULL;
+}
+
+
+FIL PIO_create(DBB dbb, TEXT * string, SSHORT length, BOOLEAN overwrite)
+{
+/**************************************
+ *
+ *	P I O _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new database file.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	int status;
+	TEXT *address, expanded_name[NAM$C_MAXRSS], temp[256];
+	struct FAB fab;
+	struct NAM nam;
+
+	fab = cc$rms_fab;
+	nam = cc$rms_nam;
+	fab.fab$l_nam = &nam;
+	nam.nam$l_rsa = expanded_name;
+	nam.nam$b_rss = sizeof(expanded_name);
+	fab.fab$l_fna = string;
+	fab.fab$b_fns = length;
+	fab.fab$l_dna = DEFAULT_FILE_NAME;
+	fab.fab$b_dns = sizeof(DEFAULT_FILE_NAME) - 1;
+	fab.fab$l_fop = FAB$M_UFO;
+	fab.fab$b_rfm = FAB$C_UDF;
+	fab.fab$b_shr = FAB$M_SHRGET | FAB$M_SHRPUT | FAB$M_UPI;
+	fab.fab$l_alq = 200;
+	fab.fab$w_deq = 100;
+	fab.fab$b_fac = FAB$M_UPD | FAB$M_PUT;
+	status = sys$create(&fab);
+
+	if (!(status & 1))
+		ERR_post(isc_io_error,
+				 gds_arg_string, "sys$create",
+				 gds_arg_cstring, length, ERR_string(string, length),
+				 isc_arg_gds, isc_io_create_err, gds_arg_vms, status, 0);
+
+/* File open succeeded.  Now expand the file name. */
+
+	return setup_file(dbb, expanded_name, nam.nam$b_rsl, fab.fab$l_stv, &nam);
+}
+
+
+int PIO_expand(TEXT * file_name, USHORT file_length, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *	P I O _ e x p a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fully expand a file name.  If the file doesn't exist, do something
+ *	intelligent.
+ *
+ **************************************/
+	int length, status;
+	TEXT *address, temp[NAM$C_MAXRSS], temp2[NAM$C_MAXRSS];
+	struct FAB fab;
+	struct NAM nam;
+
+	length = ISC_expand_logical(file_name, file_length, expanded_name);
+
+	fab = cc$rms_fab;
+	nam = cc$rms_nam;
+	fab.fab$l_nam = &nam;
+	nam.nam$l_esa = temp;
+	nam.nam$b_ess = sizeof(temp);
+	nam.nam$l_rsa = temp2;
+	nam.nam$b_rss = sizeof(temp2);
+	fab.fab$l_fna = expanded_name;
+	fab.fab$b_fns = length;
+	fab.fab$l_dna = DEFAULT_FILE_NAME;
+	fab.fab$b_dns = sizeof(DEFAULT_FILE_NAME) - 1;
+
+	if ((sys$parse(&fab) & 1) && (sys$search(&fab) & 1)) {
+		length = nam.nam$b_rsl;
+		MOVE_FAST(temp2, expanded_name, length);
+		expanded_name[length] = 0;
+	}
+
+	return length;
+}
+
+
+void PIO_flush(FIL file)
+{
+/**************************************
+ *
+ *	P I O _ f l u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush the operating system cache back to good, solid oxide.
+ *
+ **************************************/
+}
+
+
+void PIO_force_write(FIL file, USHORT flag)
+{
+/**************************************
+ *
+ *	P I O _ f o r c e _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set (or clear) force write, if possible, for the database.
+ *
+ **************************************/
+}
+
+
+void PIO_header(DBB dbb, SCHAR * address, int length)
+{
+/**************************************
+ *
+ *	P I O _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the page header.  This assumes that the file has not been
+ *	repositioned since the file was originally mapped.
+ *
+ **************************************/
+	SSHORT iosb[4];
+	int status, block;
+	FIL file;
+
+	file = dbb->dbb_file;
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		status = sys$qio(EVENT_FLAG,	/* Event flag */
+						 file->fil_desc,	/* Channel */
+						 IO$_READVBLK,	/* Function */
+						 iosb,	/* IO status block */
+						 gds__completion_ast,	/* AST address */
+						 NULL,	/* AST parameter */
+						 spare_buffer,	/* P1 (buffer) */
+						 (length & ~1),	/* P2 (length) */
+						 1,		/* P3 (virtual block) */
+						 NULL, NULL, NULL);
+
+		if (status & 1)
+			ISC_wait(iosb, EVENT_FLAG);
+
+		if (!(status & 1) || !((status = iosb[0]) & 1))
+			ERR_post(isc_io_error,
+					 gds_arg_string, "QIO readvblk (get header)",
+					 gds_arg_cstring, file->fil_length,
+					 ERR_string(file->fil_string, file->fil_length),
+					 isc_arg_gds, isc_io_read_err, gds_arg_vms, status, 0);
+
+		(*dbb->dbb_decrypt) (dbb->dbb_encrypt_key->str_data,
+							 spare_buffer, length, address);
+	}
+	else
+#endif
+	{
+		status = sys$qio(EVENT_FLAG,	/* Event flag */
+						 file->fil_desc,	/* Channel */
+						 IO$_READVBLK,	/* Function */
+						 iosb,	/* IO status block */
+						 gds__completion_ast,	/* AST address */
+						 NULL,	/* AST parameter */
+						 address,	/* P1 (buffer) */
+						 (length & ~1),	/* P2 (length) */
+						 1,		/* P3 (virtual block) */
+						 NULL, NULL, NULL);
+
+		if (status & 1)
+			ISC_wait(iosb, EVENT_FLAG);
+
+		if (!(status & 1) || !((status = iosb[0]) & 1))
+			ERR_post(isc_io_error,
+					 gds_arg_string, "QIO readvblk (get header)",
+					 gds_arg_cstring, file->fil_length,
+					 ERR_string(file->fil_string, file->fil_length),
+					 isc_arg_gds, isc_io_read_err, gds_arg_vms, status, 0);
+	}
+}
+
+
+SLONG PIO_max_alloc(DBB dbb)
+{
+/**************************************
+ *
+ *	P I O _ m a x _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute last physically allocated page of database.
+ *
+ **************************************/
+	USHORT length;
+	FIL file;
+	USHORT iosb[4];
+	ATR$ atr;
+	FIB$ fib;
+	FAT$ fat;
+	int status, size;
+	struct dsc$descriptor_s desc;
+
+/* Get last file block */
+
+	for (file = dbb->dbb_file; file->fil_next; file = file->fil_next);
+
+	ISC_make_desc(&fib, &desc, sizeof(fib));
+
+	atr.atr$w_size = ATR$S_RECATTR;
+	atr.atr$w_type = ATR$C_RECATTR;
+	atr.atr$l_addr = &fat;
+	atr.atr$l_zero = 0;
+
+/* Get current size */
+
+	MOVE_CLEAR(&fib, sizeof(fib));
+	MOVE_FAST(file->fil_did, fib.fib$w_did, sizeof(fib.fib$w_did));
+	MOVE_FAST(file->fil_fid, fib.fib$w_fid, sizeof(fib.fib$w_fid));
+	fib.fib$w_nmctl = FIB$M_FINDFID;
+
+	status = sys$qiow(EVENT_FLAG,	/* Event flag */
+					  file->fil_desc,	/* Channel */
+					  IO$_ACCESS,	/* Function */
+					  iosb,		/* IO status block */
+					  NULL,		/* AST address */
+					  NULL,		/* AST parameter */
+					  &desc,	/* P1 (buffer) */
+					  NULL,		/* P2 (length) */
+					  NULL,		/* P3 (virtual block) */
+					  NULL,		/* P4 */
+					  &atr,		/* P5 */
+					  NULL);	/* P6 */
+
+	if (!(status & 1) || !((status = iosb[0]) & 1))
+		ERR_post(isc_io_error,
+				 gds_arg_string, "QIO IO$_ACCESS",
+				 gds_arg_cstring, file->fil_length,
+				 ERR_string(file->fil_string, file->fil_length), isc_arg_gds,
+				 isc_io_access_err, gds_arg_vms, status, 0);
+
+	size = (fat.fat$w_hiblk[1] + (fat.fat$w_hiblk[0] << 16)) * 512;
+
+
+	return file->fil_min_page - file->fil_fudge + size / dbb->dbb_page_size;
+}
+
+
+
+FIL PIO_open(DBB dbb,
+			 TEXT * string,
+			 SSHORT length,
+			 SSHORT trace_flag,
+			 BLK connection, TEXT * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	P I O _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.  If a "connection" block is provided, use
+ *	the connection to communication with a page/lock server.
+ *
+ **************************************/
+	FIL file;
+	int status;
+	TEXT *address, expanded_name[NAM$C_MAXRSS], temp[256];
+	struct FAB fab;
+	struct NAM nam;
+
+	fab = cc$rms_fab;
+	nam = cc$rms_nam;
+	fab.fab$l_nam = &nam;
+	nam.nam$l_rsa = expanded_name;
+	nam.nam$b_rss = sizeof(expanded_name);
+	fab.fab$l_fna = string;
+	fab.fab$b_fns = length;
+	fab.fab$l_dna = DEFAULT_FILE_NAME;
+	fab.fab$b_dns = sizeof(DEFAULT_FILE_NAME) - 1;
+	fab.fab$l_fop = FAB$M_UFO;
+	fab.fab$b_rfm = FAB$C_UDF;
+	fab.fab$b_shr = FAB$M_SHRGET | FAB$M_SHRPUT | FAB$M_UPI;
+	fab.fab$b_fac = FAB$M_UPD | FAB$M_PUT;
+	status = sys$open(&fab);
+
+	if (!(status & 1))
+		ERR_post(isc_io_error,
+				 gds_arg_string, "sys$open",
+				 gds_arg_cstring, file_length, ERR_string(file_name,
+														  file_length),
+				 isc_arg_gds, isc_io_open_err, gds_arg_vms, status, 0);
+
+/* File open succeeded.  Now expand the file name. */
+
+	file = setup_file(dbb, string, length, fab.fab$l_stv, &nam);
+	MOVE_FAST(nam.nam$w_did, file->fil_did, sizeof(file->fil_did));
+	MOVE_FAST(nam.nam$w_fid, file->fil_fid, sizeof(file->fil_fid));
+
+#ifdef TRACE
+	if (trace_flag)
+		setup_trace(file, trace_open);
+#endif
+
+	return file;
+}
+
+
+int PIO_read(FIL file, BDB bdb, PAG page, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	P I O _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a data page.  Oh wow.
+ *
+ **************************************/
+	SSHORT iosb[4];
+	int status, block;
+	DBB dbb;
+
+	dbb = bdb->bdb_dbb;
+	file = seek_file(file, bdb, &block);
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		status = sys$qio(EVENT_FLAG,	/* Event flag */
+						 file->fil_desc,	/* Channel */
+						 IO$_READVBLK,	/* Function */
+						 iosb,	/* IO status block */
+						 gds__completion_ast,	/* AST address */
+						 NULL,	/* AST parameter */
+						 spare_buffer,	/* P1 (buffer) */
+						 dbb->dbb_page_size,	/* P2 (length) */
+						 block,	/* P3 (virtual block) */
+						 NULL, NULL, NULL);
+
+		if (status & 1)
+			ISC_wait(iosb, EVENT_FLAG);
+
+		(*dbb->dbb_decrypt) (dbb->dbb_encrypt_key->str_data,
+							 spare_buffer, dbb->dbb_page_size, page);
+	}
+	else
+#endif
+	{
+		status = sys$qio(EVENT_FLAG,	/* Event flag */
+						 file->fil_desc,	/* Channel */
+						 IO$_READVBLK,	/* Function */
+						 iosb,	/* IO status block */
+						 gds__completion_ast,	/* AST address */
+						 NULL,	/* AST parameter */
+						 page,	/* P1 (buffer) */
+						 dbb->dbb_page_size,	/* P2 (length) */
+						 block,	/* P3 (virtual block) */
+						 NULL, NULL, NULL);
+
+		if (status & 1)
+			ISC_wait(iosb, EVENT_FLAG);
+	}
+
+	if (!(status & 1) || !((status = iosb[0]) & 1))
+		return vms_io_error(status_vector, "QIO readvblk", isc_io_read_err,
+							status, file);
+
+#ifdef TRACE
+	trace_event(file, trace_read, &bdb->bdb_page, sizeof(bdb->bdb_page));
+#endif
+
+	return TRUE;
+}
+
+
+int PIO_write(FIL file, BDB bdb, PAG page, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	P I O _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a data page.  Oh wow.
+ *
+ **************************************/
+	SSHORT iosb[4];
+	int status, block;
+	DBB dbb;
+
+	dbb = bdb->bdb_dbb;
+	file = seek_file(file, bdb, &block);
+
+	for (;;) {
+#ifdef ISC_DATABASE_ENCRYPTION
+		if (dbb->dbb_encrypt_key) {
+			SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+			(*dbb->dbb_encrypt) (dbb->dbb_encrypt_key->str_data,
+								 page, dbb->dbb_page_size, spare_buffer);
+
+			status = sys$qio(EVENT_FLAG,	/* Event flag */
+							 file->fil_desc,	/* Channel */
+							 IO$_WRITEVBLK,	/* Function */
+							 iosb,	/* IO status block */
+							 gds__completion_ast,	/* AST address */
+							 NULL,	/* AST parameter */
+							 spare_buffer,	/* P1 (buffer) */
+							 dbb->dbb_page_size,	/* P2 (length) */
+							 block,	/* P3 (virtual block) */
+							 NULL, NULL, NULL);
+		}
+		else
+#endif
+		{
+			status = sys$qio(EVENT_FLAG,	/* Event flag */
+							 file->fil_desc,	/* Channel */
+							 IO$_WRITEVBLK,	/* Function */
+							 iosb,	/* IO status block */
+							 gds__completion_ast,	/* AST address */
+							 NULL,	/* AST parameter */
+							 page,	/* P1 (buffer) */
+							 dbb->dbb_page_size,	/* P2 (length) */
+							 block,	/* P3 (virtual block) */
+							 NULL, NULL, NULL);
+		}
+
+		if (status & 1)
+			ISC_wait(iosb, EVENT_FLAG);
+
+		if ((status & 1) && ((status = iosb[0]) & 1))
+			break;
+
+		if (status == SS$_ENDOFFILE) {
+			if (!extend_file(file, status_vector))
+				return FALSE;
+		}
+		else
+			return vms_io_error(status_vector, "QIO writevblk",
+								isc_io_write_err, status, file);
+	}
+
+#ifdef TRACE
+	trace_event(file, trace_write, &bdb->bdb_page, sizeof(bdb->bdb_page));
+#endif
+
+	return TRUE;
+}
+
+
+static BOOLEAN extend_file(FIL file, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	e x t e n d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend the length of a file.
+ *
+ **************************************/
+	USHORT iosb[4], l;
+	struct dsc$descriptor_s desc;
+	ATR$ atr;
+	FIB$ fib;
+	FAT$ fat;
+	int status, old_size, new_size, delta;
+	SCHAR *p;
+
+	ISC_make_desc(&fib, &desc, sizeof(fib));
+	atr.atr$w_size = ATR$S_RECATTR;
+	atr.atr$w_type = ATR$C_RECATTR;
+	atr.atr$l_addr = &fat;
+	atr.atr$l_zero = 0;
+
+/* Get current size */
+
+	p = &fib;
+	l = sizeof(fib);
+	do
+		*p++ = 0;
+	while (--l);
+
+	MOVE_FAST(file->fil_did, fib.fib$w_did, sizeof(fib.fib$w_did));
+	MOVE_FAST(file->fil_fid, fib.fib$w_fid, sizeof(fib.fib$w_fid));
+	fib.fib$w_nmctl = FIB$M_FINDFID;
+
+	status = sys$qiow(EVENT_FLAG,	/* Event flag */
+					  file->fil_desc,	/* Channel */
+					  IO$_ACCESS,	/* Function */
+					  iosb,		/* IO status block */
+					  NULL,		/* AST address */
+					  NULL,		/* AST parameter */
+					  &desc,	/* P1 (buffer) */
+					  NULL,		/* P2 (length) */
+					  NULL,		/* P3 (virtual block) */
+					  NULL,		/* P4 */
+					  &atr,		/* P5 */
+					  NULL);	/* P6 */
+
+	if (!(status & 1) || !((status = iosb[0]) & 1))
+		return vms_io_error(status_vector, "QIO IO$_ACCESS",
+							isc_io_access_err, status, file);
+
+	old_size = fat.fat$w_hiblk[1] + (fat.fat$w_hiblk[0] << 16);
+	new_size = old_size + MIN(old_size, 16000);
+	delta = new_size - old_size;
+
+/* Extend file */
+
+	fib.fib$l_exsz = delta;
+	fib.fib$l_exvbn = 0;
+	fib.fib$l_acctl = FIB$M_WRITETHRU;
+	fib.fib$w_exctl = FIB$M_EXTEND | FIB$M_ALDEF | FIB$M_ALCONB;
+
+	fat.fat$w_efblk[0] = (new_size + 1) >> 16;
+	fat.fat$w_efblk[1] = (new_size + 1);
+
+	status = sys$qiow(EVENT_FLAG,	/* Event flag */
+					  file->fil_desc,	/* Channel */
+					  IO$_MODIFY,	/* Function */
+					  iosb,		/* IO status block */
+					  NULL,		/* AST address */
+					  NULL,		/* AST parameter */
+					  &desc,	/* P1 (buffer) */
+					  NULL,		/* P2 (length) */
+					  NULL,		/* P3 (virtual block) */
+					  NULL,		/* P4 */
+					  &atr,		/* P5 */
+					  NULL);	/* P6 */
+
+	if (!(status & 1) || !((status = iosb[0]) & 1))
+		return vms_io_error(status_vector, "QIO IO$_MODIFY",
+							isc_io_access_err, status, file);
+
+	return TRUE;
+}
+
+
+static FIL seek_file(FIL file, BDB bdb, int *block)
+{
+/**************************************
+ *
+ *	s e e k _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a buffer descriptor block, find the appropropriate
+ *	file block and seek to the proper page in that file.
+ *
+ **************************************/
+	ULONG page;
+	DBB dbb;
+
+	dbb = bdb->bdb_dbb;
+	page = bdb->bdb_page;
+
+	for (;; file = file->fil_next)
+		if (!file)
+			CORRUPT(158);		/* msg 158 cannot sort on a field that does not exist */
+		else if (page >= file->fil_min_page && page <= file->fil_max_page)
+			break;
+
+	page -= file->fil_min_page - file->fil_fudge;
+	*block = 1 + (page * dbb->dbb_page_size) / 512;
+
+	return file;
+}
+
+
+static FIL setup_file(
+					  DBB dbb,
+					  TEXT * file_name,
+					  USHORT file_length, USHORT chan, struct NAM *nam)
+{
+/**************************************
+ *
+ *	s e t u p _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up file and lock blocks for a file.
+ *
+ **************************************/
+	FIL file;
+	LCK lock;
+	UCHAR lock_id[64], devlock[64], *p, *q;
+	USHORT l, iosb[4];
+	ITM items[2];
+	int status;
+
+/* Allocate file block and move in file name */
+
+	file = ALLOCPV(type_fil, file_length + 1);
+	file->fil_desc = chan;
+	file->fil_length = file_length;
+	file->fil_max_page = -1;
+	MOVE_FAST(file_name, file->fil_string, file_length);
+	file->fil_string[file_length] = '\0';
+	V4_MUTEX_INIT(file->fil_mutex);
+
+/* If this isn't the primary file, we're done */
+
+	if (dbb->dbb_file)
+		return file;
+
+/* Get device lock string */
+
+	items[0].itm_code = DVI$_DEVLOCKNAM;
+	items[0].itm_length = sizeof(devlock);
+	items[0].itm_buffer = devlock;
+	items[0].itm_return_length = &l;
+
+	items[1].itm_code = 0;
+	items[1].itm_length = 0;
+	items[1].itm_buffer = 0;
+
+	status = sys$getdviw(15, chan, NULL, items, iosb, NULL, NULL, NULL);
+	if (status != 1)
+		ERR_post(isc_io_error,
+				 gds_arg_string, "sys$getdviw",
+				 gds_arg_cstring, file_length, ERR_string(file_name,
+														  file_length),
+				 isc_arg_gds, isc_io_access_err, gds_arg_vms, status, 0);
+
+/* Build lock string */
+
+	p = lock_id;
+	q = devlock;
+	if (l)
+		do
+			*p++ = *q++;
+		while (--l);
+
+	q = &nam->nam$w_fid;
+	l = 6;
+	do
+		*p++ = *q++;
+	while (--l);
+	l = p - lock_id;
+
+	dbb->dbb_lock = lock = ALLOCPV(type_lck, l);
+	lock->lck_type = LCK_database;
+	lock->lck_owner_handle = LCK_get_owner_handle(NULL_TDBB, lock->lck_type);
+	lock->lck_object = dbb;
+	lock->lck_dbb = dbb;
+	lock->lck_length = l;
+	lock->lck_ast = CCH_down_grade_dbb;
+	MOVE_FAST(lock_id, lock->lck_key.lck_string, l);
+
+	dbb->dbb_flags |= DBB_exclusive;
+	if (!LCK_lock(NULL_TDBB, lock, LCK_EX, LCK_NO_WAIT)) {
+		dbb->dbb_flags &= ~DBB_exclusive;
+		LCK_lock(NULL_TDBB, lock,
+				 (dbb->dbb_flags & DBB_cache_manager) ? LCK_SR : LCK_PW,
+				 LCK_WAIT);
+	}
+
+	return file;
+}
+
+
+#ifdef TRACE
+static void setup_trace(FIL file, SSHORT event)
+{
+/**************************************
+ *
+ *	s e t u p _ t r a c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform setup to create trace file.
+ *
+ **************************************/
+
+	file->fil_trace = ib_fopen("trace.log", "w");
+	trace_event(file, event, file->fil_string, strlen(file->fil_string));
+}
+
+
+static void trace_event(FIL file, SSHORT type, SCHAR * ptr, SSHORT length)
+{
+/**************************************
+ *
+ *	t r a c e _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write trace event to the trace file.
+ *
+ **************************************/
+
+	if (!file->fil_trace)
+		return;
+
+	ib_putc(type, file->fil_trace);
+	ib_putc(length, file->fil_trace);
+
+	while (--length >= 0)
+		ib_putc(*ptr++, file->fil_trace);
+}
+#endif
+
+
+static BOOLEAN vms_io_error(
+							STATUS * status_vector,
+							TEXT * string,
+							STATUS operation, int code, FIL file)
+{
+/**************************************
+ *
+ *	v m s _ i o _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report I/O error.
+ *
+ **************************************/
+
+	*status_vector++ = isc_arg_gds;
+	*status_vector++ = isc_io_error;
+	*status_vector++ = gds_arg_string;
+	*status_vector++ = (STATUS) string;
+	*status_vector++ = gds_arg_string;
+	*status_vector++ =
+		(STATUS) ERR_string(file->fil_string, file->fil_length);
+	*status_vector++ = isc_arg_gds;
+	*status_vector++ = operation;
+	*status_vector++ = gds_arg_vms;
+	*status_vector++ = code;
+	*status_vector++ = gds_arg_end;
+
+	return FALSE;
+}
+
+
+} // extern "C"
diff --git a/src/jrd/vms.h b/src/jrd/vms.h
new file mode 100644
index 0000000000..1769f6104a
--- /dev/null
+++ b/src/jrd/vms.h
@@ -0,0 +1,82 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		vms.h
+ *	DESCRIPTION:	VMS specific physical IO definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_VMS_H_
+#define _JRD_VMS_H_
+
+#include rms
+#include iodef
+#include descrip
+#include ssdef
+
+#define DVI$_DEVLOCKNAM		240
+
+
+
+/* ACP File Information block */
+
+typedef struct fib$ {
+	SLONG fib$l_acctl;
+	SSHORT fib$w_fid[3];
+	SSHORT fib$w_did[3];
+	SLONG fib$l_wcc;
+	SSHORT fib$w_nmctl;
+	SSHORT fib$w_exctl;
+	SLONG fib$l_exsz;
+	SLONG fib$l_exvbn;
+} FIB$;
+
+#define FIB$M_EXTEND	128
+#define FIB$M_ALDEF	8
+#define FIB$M_ALCONB	2
+#define FIB$M_WRITETHRU	524288
+#define FIB$M_FINDFID	2048
+
+typedef struct atr$ {
+	SSHORT atr$w_size;
+	SSHORT atr$w_type;
+	SCHAR *atr$l_addr;
+	SLONG atr$l_zero;
+} ATR$;
+
+#define ATR$S_RECATTR	32
+#define ATR$C_RECATTR	4
+
+typedef struct fab$ {
+	SCHAR fat$b_rtype;
+	SCHAR fat$b_rattrib;
+	SSHORT fat$w_rsize;
+	USHORT fat$w_hiblk[2];
+	USHORT fat$w_efblk[2];
+	SSHORT fat$w_ffbyte;
+	SCHAR fat$b_bktsize;
+	SCHAR fat$b_vfcsize;
+	SSHORT fat$w_maxrec;
+	SSHORT fat$w_defext;
+	SSHORT fat$w_gbc;
+	SSHORT fat$w_reserved[3];
+	SSHORT fat$w_not_used;
+	SSHORT fat$w_versions;
+} FAT$;
+
+#endif /* _JRD_VMS_H_ */
diff --git a/src/jrd/vms_command.cpp b/src/jrd/vms_command.cpp
new file mode 100644
index 0000000000..440fa8d6c2
--- /dev/null
+++ b/src/jrd/vms_command.cpp
@@ -0,0 +1,92 @@
+/*
+ *	PROGRAM:	JRD Utilties
+ *	MODULE:		vms_command.c
+ *	DESCRIPTION:	Parse & translate VMS command line
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include descrip
+
+static SCHAR output_buffer[1024], *args[16];
+
+
+int VMS_parse(SCHAR *** argv, int argc)
+{
+/**************************************
+ *
+ *	V M S _ p a r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a VMS foreign command line into C style
+ *
+ **************************************/
+	SCHAR *p, *q, *out, input[256], **arg, filename, **temp;
+
+/*
+ * Rebuild the argv elements into a single string
+ * rather than calling get_foreign to avoid having
+ * all the arguments upcased for us by VMS. 
+ * Why must they do us these favors?
+ */
+
+	q = input;
+	temp = *argv;
+	while (--argc) {
+		for (p = *++temp; *p; p++)
+			*q++ = *p;
+		*q++ = ' ';
+	}
+	*q = 0;
+
+	*argv = args;
+	arg = args + 1;
+	p = input;
+	out = output_buffer;
+
+/* 
+ * Command line arguments can be switches which start with '/' or
+ * an '=' (which we ignore) or file names.  Stuff them into the
+ * argument vector.
+ */
+
+	while (*p) {
+		filename = TRUE;
+		while (*p == ' ' || *p == '\t' || *p == '=')
+			p++;
+		if (!*p)
+			break;
+		*arg++ = out;
+		if (*p == '/' || *p == '-') {
+			*out++ = '-';
+			p++;
+			filename = FALSE;
+		}
+		while (*p && *p != ' ' && *p != '=' && *p != '\t') {
+			if (!filename && *p == '/')
+				break;
+			*out++ = *p++;
+		}
+		*out++ = 0;
+	}
+
+	return arg - args;
+}
diff --git a/src/jrd/vmsevent.cpp b/src/jrd/vmsevent.cpp
new file mode 100644
index 0000000000..3bd5b2b63a
--- /dev/null
+++ b/src/jrd/vmsevent.cpp
@@ -0,0 +1,942 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		vmsevent.c
+ *	DESCRIPTION:	Event Manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include "../jrd/codes.h"
+#include "../jrd/thd.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/event_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/sch_proto.h"
+
+#include descrip
+#include lckdef
+#include ssdef
+
+#define MAX_EVENT_BUFFER	65500
+
+
+/* Dummy global section header */
+
+typedef struct evh {
+	SLONG evh_length;
+} *EVH;
+
+/* Session block */
+
+typedef struct ses {
+	struct ses *ses_next;		/* Next active session */
+	struct req *ses_requests;	/* Outstanding requests in session */
+	struct rint *ses_interests;	/* Historical interests */
+} *SES;
+
+/* Event block */
+
+typedef struct evnt {
+	struct evnt *evnt_next;		/* Next lock */
+	struct evnt *evnt_parent;	/* Parent lock, if any */
+	struct evnt *evnt_offspring;	/* Offspring locks, if any */
+	struct rint *evnt_interests;	/* Interests in event */
+	struct lksb evnt_lksb;		/* Event lock status block */
+	SLONG evnt_count;			/* Last know lock count */
+	USHORT evnt_length;			/* Length of event string */
+	TEXT evnt_name[1];
+} *EVNT;
+
+/* Request block */
+
+typedef struct req {
+	struct req *req_next;		/* Next request in session */
+	struct ses *req_session;	/* Parent session */
+	struct rint *req_interests;	/* Request interests */
+	int (*req_ast) ();			/* Associated AST (zero is fired) */
+	void *req_ast_arg;			/* Argument for ast */
+	SLONG req_request_id;		/* Request id */
+} *REQ;
+
+/* Request interest block */
+
+typedef struct rint {
+	REQ rint_request;			/* Parent request block */
+	EVNT rint_event;			/* Parent event block */
+	struct rint *rint_req_interests;	/* Other interests of request */
+	struct rint *rint_evnt_interests;	/* Other interests for event */
+	SLONG rint_count;			/* Threadhold count */
+} *RINT;
+
+
+static SES sessions;
+static EVNT parent_events;
+static SLONG request_id;
+static POKE pokes;
+static USHORT thread_started, delivery_flag;
+
+static UCHAR *alloc(USHORT);
+static void blocking_ast(EVNT);
+static void delete_event(EVNT);
+static void delete_request(REQ);
+static void deliver(EVNT);
+static void deliver_request(REQ);
+static void delivery_thread(void);
+static int delivery_wait(void);
+static STATUS error(STATUS *, TEXT *, STATUS);
+static EVNT find_event(USHORT, TEXT *, EVNT);
+static void free(SCHAR *);
+static RINT historical_interest(SES, EVNT);
+static EVNT make_event(USHORT, TEXT *, EVNT);
+static void poke_ast(POKE);
+static BOOLEAN request_completed(REQ);
+static int return_ok(STATUS *);
+
+
+int EVENT_cancel(SLONG request_id)
+{
+/**************************************
+ *
+ *	E V E N T _ c a n c e l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel an outstanding event.
+ *
+ **************************************/
+	REQ request;
+	SES session;
+
+	for (session = sessions; session; session = session->ses_next)
+		for (request = session->ses_requests; request;
+			 request =
+			 request->req_next) if (request->req_request_id == request_id) {
+				delete_request(request);
+				return;
+			}
+}
+
+
+SLONG EVENT_create_session(STATUS status_vector)
+{
+/**************************************
+ *
+ *	E V E N T _ c r e a t e _ s e s s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create session.
+ *
+ **************************************/
+	SES session;
+	SLONG id;
+
+	session = (SES) alloc(sizeof(struct ses));
+	if (!session) {
+		assert(FALSE);			/* No error handling */
+		return 0L;
+	}
+	session->ses_next = sessions;
+	sessions = session;
+
+	id = (SLONG) session;
+
+	return id;
+}
+
+
+int EVENT_delete_session(SLONG session_id)
+{
+/**************************************
+ *
+ *	E V E N T _ d e l e t e _ s e s s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a session.
+ *
+ **************************************/
+	SES session;
+	SES *ptr;
+	REQ request;
+	EVNT event;
+	RINT interest, *int_ptr;
+
+	session = (SES) session_id;
+
+/* Delete all requests */
+
+	while (session->ses_requests)
+		delete_request(session->ses_requests);
+
+/* Delete any historical interests */
+
+	while (interest = session->ses_interests) {
+		session->ses_interests = interest->rint_req_interests;
+		event = interest->rint_event;
+		for (int_ptr = &event->evnt_interests; *int_ptr;
+			 int_ptr =
+			 &(*int_ptr)->rint_req_interests) if (*int_ptr == interest) {
+				*int_ptr = interest->rint_req_interests;
+				break;
+			}
+		free(interest);
+		if (!event->evnt_interests)
+			delete_event(event);
+	}
+
+/* Delete from global list of sessions */
+
+	for (ptr = &sessions; *ptr; ptr = &(*ptr)->ses_next)
+		if (*ptr == session) {
+			*ptr = session->ses_next;
+			break;
+		}
+
+	free(session);
+}
+
+
+EVH EVENT_init(STATUS * status_vector, USHORT server_flag)
+{
+/**************************************
+ *
+ *	E V E N T _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for access to shared global region.  If "server_flag" is true,
+ *	create region if it doesn't exist.  Return address of header if region
+ *	exits, otherwise return NULL.
+ *
+ **************************************/
+
+	return_ok(status_vector);
+
+	return (EVH) TRUE;
+}
+
+
+int EVENT_post(
+			   STATUS * status_vector,
+			   USHORT major_length,
+			   TEXT * major, USHORT minor_length, TEXT * minor, USHORT count)
+{
+/**************************************
+ *
+ *	E V E N T _ p o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an event.
+ *
+ **************************************/
+	LKSB lksb;
+	POKE poke;
+	int status;
+	struct dsc$descriptor desc;
+
+/* Get parent lock.  If it isn't held, we will get an invalid lock block */
+
+	ISC_make_desc(major, &desc, major_length);
+
+	status = sys$enq(0,			/* event flag */
+					 LCK$K_CRMODE,	/* lock mode */
+					 &lksb,		/* Lock status block */
+					 LCK$M_SYSTEM,	/* flags */
+					 &desc,		/* resource name */
+					 0,			/* parent id */
+					 0,			/* ast address */
+					 0,			/* ast argument */
+					 0,			/* blocking ast */
+					 0,			/* access mode */
+					 0);
+
+	if (!(status & 1))
+		return error(status_vector, "sys$enqw", status);
+
+/* Find a free poke block to use */
+
+	for (poke = pokes; poke; poke = poke->poke_next)
+		if (!poke->poke_use_count)
+			break;
+
+	if (!poke) {
+		poke = (POKE) alloc(sizeof(struct poke));
+		/* FREE: unknown */
+		if (!poke)				/* NOMEM: */
+			return error(status_vector, "gds__alloc", 0);
+		poke->poke_next = pokes;
+		pokes = poke;
+	}
+
+	++poke->poke_use_count;
+
+/* If the parent lock looks kosher, try the next level down */
+
+	poke->poke_value = count;
+	poke->poke_parent_id = lksb.lksb_lock_id;
+	ISC_make_desc(minor, &desc, minor_length);
+
+	status = sys$enq(0,			/* event flag */
+					 LCK$K_PWMODE,	/* lock mode */
+					 &poke->poke_lksb,	/* Lock status block */
+					 LCK$M_SYSTEM | LCK$M_VALBLK,	/* flags */
+					 &desc,		/* resource name */
+					 poke->poke_parent_id,	/* parent id */
+					 poke_ast,	/* ast address */
+					 poke,		/* ast argument */
+					 0,			/* blocking ast */
+					 0,			/* access mode */
+					 0);
+
+	if (!(status & 1))
+		return error(status_vector, "sys$enqw", status);
+
+	return return_ok(status_vector);
+}
+
+
+SLONG EVENT_que(STATUS * status_vector,
+				SLONG session_id,
+				USHORT string_length,
+				TEXT * string,
+				USHORT events_length,
+				UCHAR * events, void (*ast_routine) (), void *ast_arg)
+{
+/**************************************
+ *
+ *	E V E N T _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que an event.
+ *
+ **************************************/
+	SES session;
+	UCHAR *p, *end, *find_end;
+	USHORT count, flag, len;
+	REQ request, next;
+	EVNT event, parent;
+	RINT interest, *ptr, *ptr2;
+	SLONG id;
+
+	session = (SES) session_id;
+
+	if (!thread_started) {
+		thread_started = TRUE;
+		gds__thread_start(delivery_thread, 0, THREAD_high, THREAD_ast);
+	}
+
+/* Cleanup any residual stuff */
+
+	for (next = session->ses_requests; next;)
+		if (next->req_ast)
+			next = next->req_next;
+		else {
+			request = next;
+			next = next->req_next;
+			delete_request(request);
+		}
+
+/* Allocate request block */
+
+	request = (REQ) alloc(sizeof(struct req));
+/* FREE: unknown */
+	if (!request)				/* NOMEM: */
+		return error(status_vector, "gds__alloc", 0);
+
+	request->req_session = session;
+	request->req_next = session->ses_requests;
+	session->ses_requests = request;
+
+	request->req_ast = ast_routine;
+	request->req_ast_arg = ast_arg;
+	request->req_request_id = id = ++request_id;
+
+/* Find parent block */
+
+	if (!(parent = find_event(string_length, string, 0)))
+		parent = make_event(string_length, string, 0);
+
+/* Process event block */
+
+	ptr = &request->req_interests;
+	p = events + 1;
+	end = events + events_length;
+	flag = FALSE;
+
+	while (p < end) {
+		count = *p++;
+
+		/* The data in the event block may have trailing blanks.  Strip them off. */
+
+		for (find_end = p + count; --find_end >= p && *find_end == ' ';);
+		len = find_end - p + 1;
+		if (!(event = find_event(len, p, parent)))
+			event = make_event(len, p, parent);
+		p += count;
+		if (interest = historical_interest(session, event)) {
+			for (ptr2 = &session->ses_interests; *ptr2;
+				 ptr2 = &(*ptr2)->rint_req_interests) if (*ptr2 == interest) {
+					*ptr2 = interest->rint_req_interests;
+					break;
+				}
+		}
+		else {
+			interest = (RINT) alloc(sizeof(struct req));
+			/* FREE: unknown */
+			if (!interest)		/* NOMEM: */
+				return error(status_vector, "gds__alloc", 0);
+			interest->rint_evnt_interests = event->evnt_interests;
+			event->evnt_interests = interest;
+			interest->rint_event = event;
+		}
+		*ptr = interest;
+		ptr = &interest->rint_req_interests;
+		interest->rint_request = request;
+		interest->rint_count = gds__vax_integer(p, 4);
+		p += 4;
+		if (interest->rint_count <= event->evnt_count)
+			flag = TRUE;
+	}
+
+	if (flag)
+		sys$dclast(blocking_ast, event, 0);
+
+	return_ok(status_vector);
+
+	return id;
+}
+
+
+static UCHAR *alloc(USHORT size)
+{
+/**************************************
+ *
+ *	a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate and zero some memory.
+ *
+ **************************************/
+	UCHAR *p, *block;
+
+	p = block = gds__alloc((SLONG) size);
+/* FREE: handled by caller */
+/* NOMEM: handled by caller */
+	if (!block)
+		return block;
+
+	do
+		*p++ = 0;
+	while (--size);
+
+	return block;
+}
+
+
+static void blocking_ast(EVNT event)
+{
+/**************************************
+ *
+ *	b l o c k i n g _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody else is trying to post a lock.
+ *
+ **************************************/
+	LKSB *lksb;
+	int status;
+
+	lksb = &event->evnt_lksb;
+
+/* Initially down grade the lock to let the other guy complete */
+
+	status = sys$enqw(0,		/* event flag */
+					  LCK$K_NLMODE,	/* lock mode */
+					  lksb,		/* Lock status block */
+					  LCK$M_CONVERT,	/* flags */
+					  0,		/* resource name */
+					  0,		/* parent id */
+					  0,		/* ast address */
+					  0,		/* ast argument */
+					  0,		/* blocking ast */
+					  0,		/* access mode */
+					  0);
+
+/* Now try to upgrade lock */
+
+	status = sys$enq(0,			/* event flag */
+					 LCK$K_PRMODE,	/* lock mode */
+					 lksb,		/* Lock status block */
+					 LCK$M_CONVERT | LCK$M_VALBLK,	/* flags */
+					 0,			/* resource name */
+					 0,			/* parent id */
+					 deliver,	/* ast address */
+					 event,		/* ast argument */
+					 blocking_ast,	/* blocking ast */
+					 0,			/* access mode */
+					 0);
+}
+
+
+static void delete_event(EVNT event)
+{
+/**************************************
+ *
+ *	d e l e t e _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete an unused and unloved event.
+ *
+ **************************************/
+	EVNT *ptr, parent;
+	int status;
+
+/* Delete associated lock */
+
+	status = sys$deq(event->evnt_lksb.lksb_lock_id, 0, 0, 0);
+
+	if (parent = event->evnt_parent)
+		ptr = &parent->evnt_offspring;
+	else
+		ptr = &parent_events;
+
+	for (; *ptr; ptr = &(*ptr)->evnt_next)
+		if (*ptr == event) {
+			*ptr = event->evnt_next;
+			break;
+		}
+
+	free(event);
+
+	if (parent && !parent->evnt_offspring)
+		delete_event(parent);
+}
+
+
+static void delete_request(REQ request)
+{
+/**************************************
+ *
+ *	d e l e t e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an unwanted and unloved request.
+ *
+ **************************************/
+	SES session;
+	RINT *ptr, interest;
+	EVNT event;
+	REQ *req_ptr;
+
+	session = request->req_session;
+
+	while (interest = request->req_interests) {
+		request->req_interests = interest->rint_req_interests;
+		if (historical_interest(session, interest->rint_event)) {
+			event = interest->rint_event;
+			for (ptr = &event->evnt_interests; *ptr;
+				 ptr = &(*ptr)->rint_evnt_interests) if (*ptr == interest) {
+					*ptr = interest->rint_evnt_interests;
+					break;
+				}
+			free(interest);
+		}
+		else {
+			interest->rint_req_interests = session->ses_interests;
+			session->ses_interests = interest;
+			interest->rint_request = NULL;
+		}
+	}
+
+	for (req_ptr = &session->ses_requests; *req_ptr;
+		 req_ptr = &(*req_ptr)->req_next) if (*req_ptr == request) {
+			*req_ptr = request->req_next;
+			break;
+		}
+
+	free(request);
+}
+
+
+static void deliver(EVNT event)
+{
+/**************************************
+ *
+ *	d e l i v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've been poked -- deliver any satisfying requests.
+ *
+ **************************************/
+	RINT interest;
+	REQ request;
+	SES session;
+	USHORT flag;
+
+	event->evnt_count = event->evnt_lksb.lksb_value[0];
+
+	for (interest = event->evnt_interests; interest;
+		 interest = interest->rint_evnt_interests) if (request =
+													   interest->rint_request)
+				if (request->req_ast && request_completed(request))
+				delivery_flag = TRUE;
+
+	gds__completion_ast();
+}
+
+
+static void deliver_request(REQ request)
+{
+/**************************************
+ *
+ *	d e l i v e r _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Request has been satisfied, send updated event block to user, then
+ *	Clean up request.
+ *
+ **************************************/
+	int (*ast) ();
+	void *arg;
+	SLONG count;
+	RINT interest;
+	EVNT event;
+	UCHAR buffer[512], *p, *event_buffer, *end;
+
+	ast = request->req_ast;
+	arg = request->req_ast_arg;
+	p = event_buffer = buffer;
+	end = buffer + sizeof(buffer);
+	*p++ = 1;
+
+/* Loop thru interest block picking up event name, counts, and unlinking
+   stuff */
+
+	for (interest = request->req_interests; interest;
+		 interest = interest->rint_req_interests) {
+		event = interest->rint_event;
+		if (end < p + event->evnt_length + 5) {
+			UCHAR *new_buffer;
+			/* Running out of space - allocate some more and copy it over */
+			assert(event_buffer == buffer);	/* we're in this block only once */
+			new_buffer = gds__alloc((SLONG) MAX_EVENT_BUFFER);
+			/* FREE: at procedure return */
+			if (!new_buffer) {	/* NOMEM: */
+				gds__log("failed to post all events");
+				break;			/* exit loop and send what we have */
+			}
+			event_buffer = new_buffer;
+			memcpy(event_buffer, buffer, p - buffer);
+			p = event_buffer + (p - buffer);
+			end = event_buffer + MAX_EVENT_BUFFER;
+		}
+		*p++ = event->evnt_length;
+		memcpy(p, event->evnt_name, event->evnt_length);
+		p += event->evnt_length;
+		count = event->evnt_count + 1;
+		*p++ = count;
+		*p++ = count >> 8;
+		*p++ = count >> 16;
+		*p++ = count >> 24;
+	}
+
+	(*ast) (arg, p - buffer, buffer);
+	if (event_buffer != buffer)
+		gds__free(event_buffer);
+}
+
+
+static void delivery_thread(void)
+{
+/**************************************
+ *
+ *	d e l i v e r y _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look for events to deliver.
+ *
+ **************************************/
+	REQ request;
+	SES session;
+
+	for (;;) {
+		delivery_flag = FALSE;
+		for (session = sessions; session; session = session->ses_next)
+			for (request = session->ses_requests; request;
+				 request = request->req_next)
+					if (request->req_ast && request_completed(request)) {
+					deliver_request(request);
+					request->req_ast = NULL;
+				}
+		gds__thread_wait(delivery_wait, 0);
+	}
+}
+
+
+static int delivery_wait(void)
+{
+/**************************************
+ *
+ *	d e l i v e r y _ w a i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if the deliver thread should wake up.
+ *
+ **************************************/
+
+	return delivery_flag;
+}
+
+
+static STATUS error(STATUS * status_vector;
+					TEXT * string;
+					STATUS status; {
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Things suck.
+ *
+ **************************************/
+
+					*status_vector++ = gds_arg_gds;
+					*status_vector++ = gds__sys_request;
+					*status_vector++ = gds_arg_string;
+					*status_vector++ = (STATUS) string;
+					*status_vector++ = gds_arg_vms;
+					*status_vector++ = status; *status_vector++ = gds_arg_end;
+					return gds__sys_request;
+					}
+
+
+					static EVNT find_event(USHORT length,
+										   TEXT * string, EVNT parent) {
+/**************************************
+ *
+ *	f i n d _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup an event.
+ *
+ **************************************/
+					EVNT event;
+					event = (parent) ? parent->evnt_offspring : parent_events;
+					for (; event; event = event->evnt_next)
+					if (event->evnt_length == length &&
+						!strncmp(string, event->evnt_name, length))
+					return event; return NULL;}
+
+
+					static void free(SCHAR * block) {
+/**************************************
+ *
+ *	f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block.
+ *
+ **************************************/
+
+					gds__free(block);}
+
+
+					static RINT historical_interest(SES session, EVNT event) {
+/**************************************
+ *
+ *	h i s t o r i c a l _ i n t e r e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a historical interest, if any, of an event with a session.
+ *
+ **************************************/
+					RINT interest, *ptr;
+					for (ptr = &session->ses_interests; interest = *ptr;
+						 ptr = &(*ptr)->rint_req_interests)
+					if (interest->rint_event == event)
+					return interest; return NULL;}
+
+
+					static EVNT make_event(USHORT length,
+										   TEXT * string, EVNT parent) {
+/**************************************
+ *
+ *	m a k e _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate an link in an event.
+ *
+ **************************************/
+					EVNT event, *ptr;
+					LKSB * lksb;
+					SLONG parent_id;
+					int status;
+					struct dsc$descriptor desc;
+					event = (EVNT) alloc(sizeof(struct evnt) + length);
+					if (!event) return NULL; if (parent) {
+					ptr = &parent->evnt_offspring;
+					parent_id = parent->evnt_lksb.lksb_lock_id;}
+					else
+					{
+					ptr = &parent_events; parent_id = 0;}
+
+					event->evnt_next = *ptr;
+					*ptr = event;
+					event->evnt_parent = parent;
+					event->evnt_length = length;
+					strncpy(event->evnt_name, string, length);
+/* Request VMS lock on event */
+					ISC_make_desc(string, &desc, length);
+					lksb = &event->evnt_lksb; status = sys$enqw(0,	/* event flag */
+																LCK$K_PRMODE,	/* lock mode */
+																lksb,	/* Lock status block */
+																LCK$M_SYSTEM | LCK$M_VALBLK,	/* flags */
+																&desc,	/* resource name */
+																parent_id,	/* parent id */
+																0,	/* ast address */
+																event,	/* ast argument */
+																blocking_ast,	/* blocking ast */
+																0,	/* access mode */
+																0);
+					event->evnt_count = lksb->lksb_value[0];
+/* If the lock block is invalid, clean it up immediately */
+					if ((status & 1) &&
+						event->evnt_lksb.lksb_status == SS$_VALNOTVALID) {
+					status = sys$enqw(0,	/* event flag */
+									  LCK$K_PWMODE,	/* lock mode */
+									  lksb,	/* Lock status block */
+									  LCK$M_CONVERT,	/* flags */
+									  0,	/* resource name */
+									  0,	/* parent id */
+									  0,	/* ast address */
+									  event,	/* ast argument */
+									  blocking_ast,	/* blocking ast */
+									  0,	/* access mode */
+									  0);
+					event->evnt_count = lksb->lksb_value[0] = 0;
+					status = sys$enqw(0,	/* event flag */
+									  LCK$K_PRMODE,	/* lock mode */
+									  lksb,	/* Lock status block */
+									  LCK$M_CONVERT | LCK$M_VALBLK,	/* flags */
+									  0,	/* resource name */
+									  0,	/* parent id */
+									  0,	/* ast address */
+									  event,	/* ast argument */
+									  blocking_ast,	/* blocking ast */
+									  0,	/* access mode */
+									  0);}
+
+					return event;}
+
+
+					static void poke_ast(POKE poke) {
+/**************************************
+ *
+ *	p o k e _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lock to poke event has completed.  Update value block
+ *	and deque the lock.
+ *
+ **************************************/
+					int status;
+					LKSB * lksb;
+					lksb = &poke->poke_lksb;
+					lksb->lksb_value[0] += poke->poke_value;
+					status =
+					sys$deq(lksb->lksb_lock_id, lksb->lksb_value, 0, 0);
+					status = sys$deq(poke->poke_parent_id, 0, 0, 0);
+					--poke->poke_use_count;}
+
+
+					static BOOLEAN request_completed(REQ request) {
+/**************************************
+ *
+ *	r e q u e s t _ c o m p l e t e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if request is completed.
+ *
+ **************************************/
+					RINT interest;
+					EVNT event;
+					for (interest = request->req_interests; interest;
+						 interest = interest->rint_req_interests) {
+					event = interest->rint_event;
+					if (interest->rint_count <=
+						event->evnt_count) return TRUE;}
+
+					return FALSE;}
+
+
+					static int return_ok(STATUS * status_vector) {
+/**************************************
+ *
+ *	r e t u r n _ o k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Everything is ducky -- return success.
+ *
+ **************************************/
+
+					*status_vector++ = gds_arg_gds;
+					*status_vector++ = 0;
+					*status_vector = gds_arg_end; return 0;}
diff --git a/src/jrd/vmslo_proto.h b/src/jrd/vmslo_proto.h
new file mode 100644
index 0000000000..3410d8b36a
--- /dev/null
+++ b/src/jrd/vmslo_proto.h
@@ -0,0 +1,41 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		vmslo_proto.h
+ *	DESCRIPTION:	Prototype header file for vmslock.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _JRD_VMSLO_PROTO_H_
+#define _JRD_VMSLO_PROTO_H_
+
+extern int LOCK_convert(SLONG, UCHAR, SSHORT, int (*)(int *), int *,
+						STATUS *);
+extern int LOCK_deq(SLONG);
+extern UCHAR LOCK_downgrade(SLONG, STATUS *);
+extern SLONG LOCK_enq(SLONG, SLONG, USHORT, UCHAR *, USHORT, UCHAR,
+					  int (*)(int *), int *, SLONG, SSHORT, STATUS *, SLONG);
+extern void LOCK_fini(STATUS *, SLONG *);
+extern int LOCK_init(STATUS *, SSHORT, SLONG, UCHAR, SLONG *);
+extern void LOCK_manager(SLONG);
+extern SLONG LOCK_read_data(SLONG);
+extern SLONG LOCK_read_data2(SLONG, USHORT, UCHAR *, USHORT, SLONG);
+extern void LOCK_re_post(int (*)(int *), int *, SLONG);
+extern SLONG LOCK_write_data(SLONG, SLONG);
+
+#endif /* _JRD_VMSLO_PROTO_H_ */
diff --git a/src/jrd/vmslock.cpp b/src/jrd/vmslock.cpp
new file mode 100644
index 0000000000..706d4391b4
--- /dev/null
+++ b/src/jrd/vmslock.cpp
@@ -0,0 +1,346 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		vmslock.c
+ *	DESCRIPTION:	VMS Lock Manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include descrip
+#include psldef
+#include ssdef
+#include lckdef
+
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/vmslo_proto.h"
+
+#define	PTR		int
+#define EVENT_FLAG	15
+
+static SCHAR lock_types[] = {
+	0,
+	LCK$K_NLMODE,
+	LCK$K_CRMODE,
+	LCK$K_CWMODE,
+	LCK$K_PRMODE,
+	LCK$K_PWMODE,
+	LCK$K_EXMODE
+};
+
+typedef struct lksb {
+	SSHORT lksb_status;
+	SSHORT lksb_reserved;
+	SLONG lksb_lock_id;
+	SLONG lksb_value[4];
+} LKSB;
+
+static int lock_error(STATUS *, UCHAR *, int);
+static SLONG write_data(SLONG, SLONG);
+
+
+int LOCK_convert(
+				 PTR lock_id,
+				 UCHAR type,
+				 SSHORT wait,
+				 int (*ast_routine) (int *),
+int *ast_argument, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	L O C K _ c o n v e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a lock conversion, if possible.  If the lock cannot be
+ *	granted immediately, either return immediately or wait depending
+ *	on a wait flag.  If the lock is granted return TRUE, otherwise
+ *	return FALSE.  Note: if the conversion would cause a deadlock,
+ *	FALSE is returned even if wait was requested.
+ *
+ **************************************/
+	int status;
+	LKSB lksb;
+	struct dsc$descriptor_s desc;
+
+	lksb.lksb_lock_id = lock_id;
+
+	status = sys$enq(EVENT_FLAG,
+					 lock_types[type],
+					 &lksb,
+					 (wait) ? LCK$M_CONVERT : LCK$M_CONVERT | LCK$M_NOQUEUE,
+					 &desc, NULL,	/* Lock parent (not used) */
+					 gds__completion_ast,	/* AST routine when granted */
+					 ast_argument, ast_routine, NULL, NULL);
+
+	if (status & 1)
+		ISC_wait(&lksb, EVENT_FLAG);
+
+	if ((status & 1) && ((status = lksb.lksb_status) & 1))
+		return TRUE;
+
+	if (!wait && status == SS$_NOTQUEUED)
+		status = SS$_DEADLOCK;
+
+	return lock_error(status_vector, "sys$enq", status);
+}
+
+
+int LOCK_deq(PTR lock_id)
+{
+/**************************************
+ *
+ *	L O C K _ d e q 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an outstanding lock.
+ *
+ **************************************/
+	int status;
+
+	status = sys$deq(lock_id, NULL, NULL, NULL);
+
+/* The following is a deliberate compile error to force this to
+   be fixed during the next VMS port.  Return FALSE if any error
+   TRUE if everything OK. */
+	return the_appropriate_value;
+}
+
+
+SLONG LOCK_enq(PTR prior_request;
+			   PTR parent_request;
+			   USHORT series;
+			   UCHAR * value;
+			   USHORT length;
+			   UCHAR type;
+			   int (*ast_routine) (int *);
+			   int *ast_argument; SLONG data; USHORT wait;
+			   STATUS * status_vector; {
+/**************************************
+ *
+ *	L O C K _ e n q
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enque on a lock.  If the lock can't be granted immediately,
+ *	return an event count on which to wait.  If the lock can't
+ *	be granted because of deadlock, return NULL.
+ *
+ **************************************/
+			   int status, lock_id, lock_type, flags;
+			   UCHAR buffer[256], *p;
+			   LKSB lksb;
+			   struct dsc$descriptor_s desc;
+			   if (prior_reqeust)
+			   LOCK_deq(prior_request); p = buffer; *p++ = series; if (length)
+			   do
+			   *p++ = *value++; while (--length);
+			   desc.dsc$b_class = DSC$K_CLASS_S;
+			   desc.dsc$b_dtype = DSC$K_DTYPE_T;
+			   desc.dsc$w_length = p - buffer;
+			   desc.dsc$a_pointer = buffer;
+			   flags =
+			   (wait) ? LCK$M_SYSTEM | LCK$M_VALBLK : LCK$M_SYSTEM |
+			   LCK$M_NOQUEUE; lock_type = lock_types[type];
+			   status =
+			   sys$enq(EVENT_FLAG, lock_type, &lksb, flags, &desc, parent_request, gds__completion_ast,	/* AST routine when granted */
+					   ast_argument, ast_routine, PSL$C_USER, NULL);
+			   if (status & 1) ISC_wait(&lksb, EVENT_FLAG); if ((status & 1)
+																&&
+																(((status
+																   =
+																   lksb.
+																   lksb_status)
+																  & 1)
+																 || status ==
+																 SS$_VALNOTVALID))
+			   {
+			   if (data) {
+			   if (lock_type == LCK$K_EXMODE)
+			   write_data(lksb.lksb_lock_id, data);
+			   else
+			   LOCK_write_data(lksb.lksb_lock_id, data);}
+			   return lksb.lksb_lock_id;}
+
+			   if (!wait && status == SS$_NOTQUEUED)
+			   status = SS$_DEADLOCK;
+			   return lock_error(status_vector, "sys$enq", status);}
+
+
+			   void LOCK_fini(STATUS * status_vector, PTR * owner_offset) {
+/**************************************
+ *
+ *	L O C K _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release the process block, any outstanding locks,
+ *	and unmap the lock manager.  This is usually called
+ *	by the cleanup handler.
+ *
+ **************************************/
+
+			   return SUCCESS;}
+
+
+			   int LOCK_init(STATUS * status_vector,
+							 SSHORT owner_flag,
+							 SLONG owner_id,
+							 UCHAR owner_type, SLONG * owner_handle) {
+/**************************************
+ *
+ *	L O C K _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize lock manager for process.
+ *
+ **************************************/
+
+			   return SUCCESS;}
+
+
+			   SLONG LOCK_read_data(PTR lock_id) {
+/**************************************
+ *
+ *	L O C K _ r e a d _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read data associated with a lock.
+ *
+ **************************************/
+			   int status;
+			   LKSB lksb;
+			   struct dsc$descriptor_s desc;
+			   lksb.lksb_lock_id = lock_id;
+			   lksb.lksb_value[0] = 0;
+			   status = sys$enq(EVENT_FLAG,
+								LCK$K_NLMODE, &lksb,
+								LCK$M_CONVERT | LCK$M_VALBLK, &desc, NULL,	/* Lock parent (not used) */
+								gds__completion_ast,	/* AST routine when granted */
+								NULL, NULL, NULL, NULL); if (status & 1)
+			   ISC_wait(&lksb, EVENT_FLAG);
+			   if (!status && !(lksb.lksb_status & 1))
+			   return 0; return lksb.lksb_value[0];}
+
+
+			   void LOCK_re_post(int (*ast_routine) (int *),
+								 int ast_argument, PTR owner_offset) {
+/**************************************
+ *
+ *	L O C K _ r e _ p o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Re-post an AST.
+ *
+ **************************************/
+			   int status;
+			   status = sys$dclast(ast_routine, ast_argument, PSL$C_USER);}
+
+
+			   SLONG LOCK_write_data(PTR lock_id, SLONG data) {
+/**************************************
+ *
+ *	L O C K _ w r i t e _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a conversion to exclusive in preparation
+ *	for a downward conversion to write data to lock.
+ *
+ **************************************/
+			   int status;
+			   LKSB lksb;
+			   struct dsc$descriptor_s desc;
+			   lksb.lksb_lock_id = lock_id;
+			   status =
+			   sys$enq(EVENT_FLAG, LCK$K_EXMODE, &lksb, LCK$M_CONVERT, &desc, NULL,	/* Lock parent (not used) */
+					   gds__completion_ast,	/* AST routine when granted */
+					   NULL, NULL, NULL, NULL); if (status & 1)
+			   ISC_wait(&lksb, EVENT_FLAG);
+			   if (!(status & 1) || !((status = lksb.lksb_status) & 1))
+			   return 0; return write_data(lock_id, data);}
+
+
+			   static int lock_error(STATUS * status_vector,
+									 UCHAR * string, int code) {
+/**************************************
+ *
+ *	l o c k _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report lock manager error.
+ *
+ **************************************/
+
+			   if (code == SS$_DEADLOCK) {
+			   *status_vector++ = gds_arg_gds;
+			   *status_vector++ = gds__deadlock;}
+
+			   *status_vector++ = gds_arg_gds;
+			   *status_vector++ = gds__sys_request;
+			   *status_vector++ = gds_arg_string;
+			   *status_vector++ = string;
+			   *status_vector++ = gds_arg_vms;
+			   *status_vector++ = code; *status_vector++ = 0; return 0;}
+
+
+			   static SLONG write_data(SLONG lock_id, SLONG data) {
+/**************************************
+ *
+ *	w r i t e _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a longword into the lock block.
+ *
+ **************************************/
+			   int status;
+			   LKSB lksb;
+			   struct dsc$descriptor_s desc;
+			   lksb.lksb_lock_id = lock_id;
+			   lksb.lksb_value[0] = data;
+			   lksb.lksb_value[1] = 0;
+			   lksb.lksb_value[2] = 0;
+			   lksb.lksb_value[3] = 0;
+			   status = sys$enqw(EVENT_FLAG,
+								 LCK$K_PWMODE, &lksb,
+								 LCK$M_CONVERT | LCK$M_VALBLK, &desc, NULL,	/* Lock parent (not used) */
+								 gds__completion_ast,	/* AST routine when granted */
+								 NULL,
+								 NULL,
+								 NULL,
+								 NULL);
+			   if (!(status & 1) || !((status = lksb.lksb_status) & 1))
+			   return 0;}
diff --git a/src/jrd/vmsthread.cpp b/src/jrd/vmsthread.cpp
new file mode 100644
index 0000000000..c32c8f6725
--- /dev/null
+++ b/src/jrd/vmsthread.cpp
@@ -0,0 +1,322 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		vmsthread.c
+ *	DESCRIPTION:	VMS Thread Manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#if VMS
+#if __ALPHA
+#ifdef VAX
+#undef VAX
+#endif
+#endif
+#endif
+
+#include <pthread.h>
+
+#define TCB_STACKSIZE	65536
+
+/* Thread control block */
+
+typedef struct tcb {
+	struct tcb *tcb_next;
+	int (*tcb_routine) ();
+	long tcb_routine_arg;
+	int (*tcb_callback) ();
+	long tcb_callback_arg;
+	pthread_cond_t tcb_cond_wait;
+	pthread_t tcb_tid;
+	char tcb_flags;
+} *TCB;
+
+#define TCB_active	1			/* Thread control block is active. */
+
+/* Mutex for synchronizing condition variables. */
+
+static pthread_once_t init_block = pthread_once_init;
+static pthread_attr_t thread_attributes;
+static pthread_mutex_t threads_mutex;
+static TCB threads = 0;
+
+static void thread_init();
+static void thread_starter();
+
+
+THREAD_ast_active()
+{
+/**************************************
+ *
+ *	T H R E A D _ a s t _ a c t i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Called as completion ast for any asynchronous
+ *	system service.
+ *
+ **************************************/
+
+	return FALSE;
+}
+
+
+THREAD_wakeup()
+{
+/**************************************
+ *
+ *	T H R E A D _ w a k e u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Called as completion ast for any asynchronous
+ *	system service.
+ *
+ **************************************/
+	TCB tcb;
+	int (*callback) ();
+
+	if (pthread_once(&init_block, thread_init))
+		gds__put_error("THREAD_completion: pthread_once error!\n");
+
+	if (pthread_mutex_lock(&threads_mutex))
+		gds__put_error("THREAD_completion: pthread_mutex_lock error!\n");
+
+	for (tcb = threads; tcb; tcb = tcb->tcb_next) {
+		if (tcb->tcb_flags & TCB_active &&
+			(callback = tcb->tcb_callback) &&
+			(*callback) (tcb->tcb_callback_arg))
+				if (pthread_cond_signal(&tcb->tcb_cond_wait))
+					gds__put_error
+					("THREAD_completion: pthread_cond_signal error!\n");
+	}
+
+	if (pthread_mutex_unlock(&threads_mutex))
+		gds__put_error("THREAD_completion: pthread_mutex_unlock error!\n");
+}
+
+
+THREAD_completion_ast()
+{
+/**************************************
+ *
+ *	T H R E A D _ c o m p l e t i o n _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Called as completion ast for any asynchronous
+ *	system service.
+ *
+ **************************************/
+	TCB tcb;
+	int (*callback) ();
+
+	for (tcb = threads; tcb; tcb = tcb->tcb_next) {
+		if (tcb->tcb_flags & TCB_active &&
+			(callback = tcb->tcb_callback) &&
+			(*callback) (tcb->tcb_callback_arg))
+				if (pthread_cond_signal_int_np(&tcb->tcb_cond_wait))
+				gds__put_error
+					("THREAD_completion_ast: pthread_cond_signal_int error!\n");
+	}
+}
+
+
+THREAD_start(routine, arg, priority, flags)
+	 int (*routine) ();
+	 long arg;
+	 int priority;
+	 int flags;
+{
+/**************************************
+ *
+ *	T H R E A D _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a new thread.  Return 0 if successful,
+ *	status if not.
+ *
+ **************************************/
+	TCB tcb, prior;
+
+/* Make sure thread subsystem has been initialized. */
+
+	if (pthread_once(&init_block, thread_init))
+		gds__put_error("THREAD_start: pthread_once error!\n");
+
+	if (pthread_mutex_lock(&threads_mutex))
+		gds__put_error("THREAD_start: pthread_mutex_lock error!\n");
+
+	prior = threads;
+	for (tcb = threads; tcb; tcb = tcb->tcb_next) {
+		if (!(tcb->tcb_flags & TCB_active))
+			break;
+		prior = tcb;
+	}
+
+	if (!tcb) {
+		tcb = (TCB) gds__alloc((long) sizeof(struct tcb));
+		memset(tcb, 0, sizeof(struct tcb));
+		if (pthread_cond_init(&tcb->tcb_cond_wait, pthread_condattr_default))
+			gds__put_error("THREAD_start: pthread_cond_init error!\n");
+		prior->tcb_next = tcb;
+	}
+
+	tcb->tcb_callback = 0;
+	tcb->tcb_routine = routine;
+	tcb->tcb_routine_arg = arg;
+	tcb->tcb_flags |= TCB_active;
+
+	if (pthread_mutex_unlock(&threads_mutex))
+		gds__put_error("THREAD_start: pthread_mutex_unlock error!\n");
+
+	if (pthread_create(&tcb->tcb_tid, thread_attributes,
+					   (pthread_startroutine_t) thread_starter, tcb))
+		gds__put_error("THREAD_start: pthread_create error!\n");
+
+	return 0;
+}
+
+
+THREAD_wait(callback, arg)
+	 int (*callback) ();
+	 long arg;
+{
+/**************************************
+ *
+ *	T H R E A D _ w a i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait on thread condition variable.
+ *
+ **************************************/
+	pthread_t self;
+	TCB tcb;
+
+	if (pthread_once(&init_block, thread_init))
+		gds__put_error("THREAD_wait: pthread_once() error!\n");
+
+	self = pthread_self();
+
+	if (pthread_mutex_lock(&threads_mutex))
+		gds__put_error("THREAD_wait: pthread_mutex_lock() error!\n");
+
+/* Find this thread's control block. */
+
+	for (tcb = threads; tcb; tcb = tcb->tcb_next)
+		if (pthread_equal(tcb->tcb_tid, self))
+			break;
+
+	if (!tcb)
+		gds__put_error("THREAD_wait: can't find thread control block.\n");
+
+/* Catch-all thread completion AST will signal condition
+   variables after testing callbacks. */
+
+	tcb->tcb_callback_arg = arg;
+	tcb->tcb_callback = callback;
+
+/* Wait for callback predicate to evaluate to TRUE
+   before returning. */
+
+	while (!(*callback) (arg))
+		if (pthread_cond_wait(&tcb->tcb_cond_wait, &threads_mutex))
+			gds__put_error("THREAD_wait: pthread_cond_wait error!\n");
+
+	tcb->tcb_callback = 0;
+
+	if (pthread_mutex_unlock(&threads_mutex))
+		gds__put_error("THREAD_wait: pthread_mutex_unlock error!\n");
+}
+
+
+static void thread_init()
+{
+/**************************************
+ *
+ *	t h r e a d _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize global mutex and thread characteristics
+ *	once and for all.
+ *
+ **************************************/
+	TCB tcb;
+
+	if (pthread_mutex_init(&threads_mutex, pthread_mutexattr_default))
+		gds__put_error("thread_init: pthread_mutex_init error!\n");
+
+	if (pthread_attr_create(&thread_attributes))
+		gds__put_error("thread_init: pthread_attr_create error!\n");
+
+	if (pthread_attr_setstacksize(&thread_attributes, TCB_STACKSIZE))
+		gds__put_error("thread_init: pthread_attr_setstacksize error!\n");
+
+	tcb = (TCB) gds__alloc((long) sizeof(struct tcb));
+	memset(tcb, 0, sizeof(struct tcb));
+	if (pthread_cond_init(&tcb->tcb_cond_wait, pthread_condattr_default))
+		gds__put_error("thread_init: pthread_cond_init error!\n");
+
+	tcb->tcb_tid = pthread_self();
+	tcb->tcb_flags |= TCB_active;
+	threads = tcb;
+}
+
+
+static void thread_starter(tcb)
+	 TCB tcb;
+{
+/**************************************
+ *
+ *	t h r e a d _ s t a r t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wrapper to start a thread. Releases
+ *	thread control block on exit.
+ *
+ **************************************/
+
+	tcb->tcb_tid = pthread_self();
+
+/* Reclaim thread storage on exit. */
+
+/*
+if (pthread_detach (&tcb->tcb_tid))
+   gds__put_error ("thread_starter: pthread_detach error!\n");
+*/
+
+	(*tcb->tcb_routine) (tcb->tcb_routine_arg);
+
+	tcb->tcb_callback = 0;
+	tcb->tcb_flags &= ~TCB_active;
+
+	if (pthread_detach(&tcb->tcb_tid))
+		gds__put_error("thread_starter: pthread_detach error!\n");
+}
diff --git a/src/jrd/why.c b/src/jrd/why.c
new file mode 100644
index 0000000000..7e41989167
--- /dev/null
+++ b/src/jrd/why.c
@@ -0,0 +1,6260 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		why.c
+ *	DESCRIPTION:	Universal Y-valve
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: why.c,v 1.1.1.1 2001-05-23 13:26:06 tamlin Exp $
+*/
+
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+
+#ifdef DEV_BUILD
+#include "../jrd/ib_stdio.h"
+#include <assert.h>
+#endif
+
+#ifndef assert
+#define assert(x)
+#endif
+
+#include "../jrd/codes.h"
+#include "../jrd/msg_encode.h"
+#include "../jrd/msg_facs.h"
+#include "../jrd/acl.h"
+#include "../jrd/inf.h"
+#include "../jrd/thd.h"
+#include "../jrd/isc.h"
+#include "../jrd/fil.h"
+
+/* includes specific for DSQL */
+
+#include "../dsql/sqlda.h"
+
+/* end DSQL-specific includes */
+
+#include "../jrd/flu_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_f_proto.h"
+#ifndef REQUESTER
+#include "../jrd/isc_i_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/sch_proto.h"
+#endif
+#include "../jrd/thd_proto.h"
+#include "../jrd/utl_proto.h"
+#include "../dsql/dsql_proto.h"
+#include "../dsql/prepa_proto.h"
+#include "../dsql/utld_proto.h"
+
+#ifdef UNIX
+#include <errno.h>
+#include <fcntl.h>
+#if !(defined SEEK_END && defined F_OK)
+#include <unistd.h>
+#endif
+#endif
+
+#ifdef WIN_NT
+#include <windows.h>
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT		SCHAR
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	1024
+#endif
+
+#ifndef F_OK
+#define F_OK		0
+#endif
+
+#ifndef F_TLOCK
+#define F_TLOCK		2
+#endif
+
+#ifdef SHLIB_DEFS
+#define lockf		(*_libgds_lockf)
+#define _assert		(*_libgds__assert)
+#define strchr		(*_libgds_strchr)
+#define access		(*_libgds_access)
+
+extern int lockf();
+extern void _assert();
+extern SCHAR *strchr();
+extern int access();
+#endif
+
+#define IO_RETRY	20
+
+#ifdef DEV_BUILD
+#define CHECK_STATUS(v)		check_status_vector(v, !SUCCESS)
+#define CHECK_STATUS_SUCCESS(v)	check_status_vector(v, SUCCESS)
+#endif
+
+#ifndef CHECK_STATUS
+#define CHECK_STATUS(v)			/* nothing */
+#define CHECK_STATUS_SUCCESS(v)	/* nothing */
+#endif
+
+#define INIT_STATUS(vector)		vector [0] = gds_arg_gds;\
+					vector [1] = SUCCESS;\
+					vector [2] = gds_arg_end
+
+#define CHECK_HANDLE(blk, blk_type, code) if (!(blk) || (blk)->type != blk_type) \
+	return bad_handle (user_status, code)
+
+#define NULL_CHECK(ptr, code, type)	if (*ptr) return bad_handle (user_status, code)
+#define GET_STATUS			{ if (!(status = user_status)) status = local; INIT_STATUS(status); }
+#define RETURN_SUCCESS			{ subsystem_exit(); CHECK_STATUS_SUCCESS (status); return SUCCESS; }
+
+#ifdef REQUESTER
+#define NO_LOCAL_DSQL
+#endif
+
+#ifdef PIPE_CLIENT
+#define NO_LOCAL_DSQL
+#define THREAD_ENTER
+#define THREAD_EXIT
+#endif
+
+#ifdef SUPERCLIENT
+#define NO_LOCAL_DSQL
+#endif
+
+#if defined (SERVER_SHUTDOWN) && !defined (SUPERCLIENT) && !defined (REQUESTER)
+static BOOLEAN shutdown_flag = FALSE;
+#endif /* SERVER_SHUTDOWN && !SUPERCLIENT && !REQUESTER */
+
+typedef STATUS(*PTR) ();
+
+typedef struct hndl
+{
+	UCHAR		type;
+	UCHAR		flags;
+	USHORT		implementation;
+	int*			handle;
+	struct hndl*	parent;
+	struct hndl*	next;
+	struct hndl*	requests;
+	struct hndl*	statements;
+	struct hndl*	blobs;
+	struct hndl**	user_handle;
+	struct clean*	cleanup;
+	TEXT*			db_path;
+} *HNDL, *REQ, *DBB, *TRA, *BLB, *ATT, *STMT, *SVC;
+
+#define HANDLE_invalid		0
+#define HANDLE_database		1
+#define HANDLE_transaction	2
+#define HANDLE_request		3
+#define HANDLE_blob			4
+#define HANDLE_statement	5
+#define HANDLE_service		6
+
+#define HANDLE_TRANSACTION_limbo	1
+#define HANDLE_BLOB_filter			2	/* Blob is locally filtered */
+#define	HANDLE_STATEMENT_local		4	/* Process DSQL statement locally */
+
+/* Database cleanup handlers */
+
+typedef struct clean
+{
+	struct clean*	clean_next;
+	void			(*clean_routine)(TRA, SLONG);
+	SLONG			clean_arg;
+} *CLEAN;
+
+/* Transaction element block */
+
+typedef struct teb
+{
+	ATT *teb_database;
+	int teb_tpb_length;
+	UCHAR *teb_tpb;
+} TEB;
+
+#include "../jrd/why_proto.h"
+
+static SCHAR *alloc(SLONG);
+static HNDL allocate_handle(int, int *, int);
+static STATUS bad_handle(STATUS *, STATUS);
+#ifdef DEV_BUILD
+static void check_status_vector(STATUS *, STATUS);
+#endif
+static STATUS error(STATUS *, STATUS *);
+static STATUS error2(STATUS *, STATUS *);
+static void event_ast(UCHAR *, USHORT, UCHAR *);
+static void exit_handler(EVENT);
+static TRA find_transaction(DBB, TRA);
+static void free_block(void*);
+static int get_database_info(STATUS *, TRA, UCHAR **);
+static PTR get_entrypoint(int, int);
+static SCHAR *get_sqlda_buffer(SCHAR *, USHORT, XSQLDA *, USHORT, USHORT *);
+static STATUS get_transaction_info(STATUS *, TRA, UCHAR **);
+static void init_paths(void);
+static void iterative_sql_info(STATUS *, STMT *, SSHORT, SCHAR *, SSHORT,
+							   SCHAR *, USHORT, XSQLDA *);
+static STATUS no_entrypoint(STATUS *);
+static STATUS open_blob(STATUS *, ATT *, TRA *, BLB *, SLONG *, USHORT,
+						UCHAR *, SSHORT, SSHORT);
+static STATUS open_marker_file(STATUS *, TEXT *, TEXT *);
+static STATUS prepare(STATUS *, TRA);
+static void release_dsql_support(DASUP);
+static void release_handle(HNDL);
+static void save_error_string(STATUS *);
+static void subsystem_enter(void);
+static void subsystem_exit(void);
+
+#ifndef REQUESTER
+static EVENT_T why_event[1];
+static SSHORT why_initialized = 0;
+#endif
+static SLONG why_enabled = 0;
+
+/* subsystem_usage is used to count how many active ATTACHMENTs are 
+ * running though the why valve.  For the first active attachment
+ * request we reset the InterBase FPE handler.
+ * This counter is incremented for each ATTACH DATABASE, ATTACH SERVER,
+ * or CREATE DATABASE.  This counter is decremented for each 
+ * DETACH DATABASE, DETACH SERVER, or DROP DATABASE.
+ *
+ * A client-only API call, isc_reset_fpe() also controls the re-setting of
+ * the FPE handler.
+ *	isc_reset_fpe (0);		(default)
+ *		Initialize the FPE handler the first time the gds
+ *		library is made active.
+ *	isc_reset_fpe (1);
+ *		Initialize the FPE handler the NEXT time an API call is
+ *		invoked.
+ *	isc_reset_fpe (2);
+ *		Revert to InterBase pre-V4.1.0 behavior, reset the FPE
+ *		handler on every API call.
+ */
+
+#define FPE_RESET_INIT_ONLY		0x0	/* Don't reset FPE after init */
+#define FPE_RESET_NEXT_API_CALL		0x1	/* Reset FPE on next gds call */
+#define FPE_RESET_ALL_API_CALL		0x2	/* Reset FPE on all gds call */
+
+#if !(defined REQUESTER || defined PIPE_CLIENT || defined SUPERCLIENT || defined SUPERSERVER)
+extern ULONG isc_enter_count;
+static ULONG subsystem_usage = 0;
+static USHORT subsystem_FPE_reset = FPE_RESET_INIT_ONLY;
+#define SUBSYSTEM_USAGE_INCR	subsystem_usage++
+#define SUBSYSTEM_USAGE_DECR	subsystem_usage--
+#endif
+
+#ifndef SUBSYSTEM_USAGE_INCR
+#define SUBSYSTEM_USAGE_INCR	/* nothing */
+#define SUBSYSTEM_USAGE_DECR	/* nothing */
+#endif
+
+#ifdef UNIX
+static TEXT marker_failures[1024];
+static TEXT *marker_failures_ptr = marker_failures;
+#endif
+
+/* 
+ * Global array to store string from the status vector in 
+ * save_error_string.
+ */
+
+#define MAXERRORSTRINGLENGTH	250
+static TEXT glbstr1[MAXERRORSTRINGLENGTH];
+static CONST TEXT glbunknown[10] = "<unknown>";
+
+#ifdef VMS
+#define CALL(proc, handle)	(*get_entrypoint(proc, handle))
+#else
+#define CALL(proc, handle)	(get_entrypoint(proc, handle))
+#endif
+
+
+#define GDS_ATTACH_DATABASE		isc_attach_database
+#define GDS_BLOB_INFO			isc_blob_info
+#define GDS_CANCEL_BLOB			isc_cancel_blob
+#define GDS_CANCEL_EVENTS		isc_cancel_events
+#define GDS_CANCEL_OPERATION	gds__cancel_operation
+#define GDS_CLOSE_BLOB			isc_close_blob
+#define GDS_COMMIT				isc_commit_transaction
+#define GDS_COMMIT_RETAINING	isc_commit_retaining
+#define GDS_COMPILE				isc_compile_request
+#define GDS_COMPILE2			isc_compile_request2
+#define GDS_CREATE_BLOB			isc_create_blob
+#define GDS_CREATE_BLOB2		isc_create_blob2
+#define GDS_CREATE_DATABASE		isc_create_database
+#define GDS_DATABASE_INFO		isc_database_info
+#define GDS_DDL					isc_ddl
+#define GDS_DETACH				isc_detach_database
+#define GDS_DROP_DATABASE		isc_drop_database
+#define GDS_EVENT_WAIT			gds__event_wait
+#define GDS_GET_SEGMENT			isc_get_segment
+#define GDS_GET_SLICE			isc_get_slice
+#define GDS_OPEN_BLOB			isc_open_blob
+#define GDS_OPEN_BLOB2			isc_open_blob2
+#define GDS_PREPARE				isc_prepare_transaction
+#define GDS_PREPARE2			isc_prepare_transaction2
+#define GDS_PUT_SEGMENT			isc_put_segment
+#define GDS_PUT_SLICE			isc_put_slice
+#define GDS_QUE_EVENTS			isc_que_events
+#define GDS_RECONNECT			isc_reconnect_transaction
+#define GDS_RECEIVE				isc_receive
+
+#ifdef SCROLLABLE_CURSORS
+#define GDS_RECEIVE2			isc_receive2
+#endif
+
+#define GDS_RELEASE_REQUEST		isc_release_request
+#define GDS_REQUEST_INFO		isc_request_info
+#define GDS_ROLLBACK			isc_rollback_transaction
+#define GDS_ROLLBACK_RETAINING	isc_rollback_retaining
+#define GDS_SEEK_BLOB			isc_seek_blob
+#define GDS_SEND				isc_send
+#define GDS_START_AND_SEND		isc_start_and_send
+#define GDS_START				isc_start_request
+#define GDS_START_MULTIPLE		isc_start_multiple
+#define GDS_START_TRANSACTION	isc_start_transaction
+#define GDS_TRANSACT_REQUEST	isc_transact_request
+#define GDS_TRANSACTION_INFO	isc_transaction_info
+#define GDS_UNWIND				isc_unwind_request
+
+#define GDS_DSQL_ALLOCATE		isc_dsql_allocate_statement
+#define GDS_DSQL_ALLOC			isc_dsql_alloc_statement
+#define GDS_DSQL_ALLOC2			isc_dsql_alloc_statement2
+#define GDS_DSQL_EXECUTE		isc_dsql_execute
+#define GDS_DSQL_EXECUTE2		isc_dsql_execute2
+#define GDS_DSQL_EXECUTE_M		isc_dsql_execute_m
+#define GDS_DSQL_EXECUTE2_M		isc_dsql_execute2_m
+#define GDS_DSQL_EXECUTE_IMMED	isc_dsql_execute_immediate
+#define GDS_DSQL_EXECUTE_IMM_M	isc_dsql_execute_immediate_m
+#define GDS_DSQL_EXEC_IMMED		isc_dsql_exec_immediate
+#define GDS_DSQL_EXEC_IMMED2	isc_dsql_exec_immed2
+#define GDS_DSQL_EXEC_IMM_M		isc_dsql_exec_immediate_m
+#define GDS_DSQL_EXEC_IMM2_M	isc_dsql_exec_immed2_m
+#define GDS_DSQL_EXEC_IMM3_M    isc_dsql_exec_immed3_m
+#define GDS_DSQL_FETCH			isc_dsql_fetch
+#define GDS_DSQL_FETCH2			isc_dsql_fetch2
+#define GDS_DSQL_FETCH_M		isc_dsql_fetch_m
+#define GDS_DSQL_FETCH2_M		isc_dsql_fetch2_m
+#define GDS_DSQL_FREE			isc_dsql_free_statement
+#define GDS_DSQL_INSERT			isc_dsql_insert
+#define GDS_DSQL_INSERT_M		isc_dsql_insert_m
+#define GDS_DSQL_PREPARE		isc_dsql_prepare
+#define GDS_DSQL_PREPARE_M		isc_dsql_prepare_m
+#define GDS_DSQL_SET_CURSOR		isc_dsql_set_cursor_name
+#define GDS_DSQL_SQL_INFO		isc_dsql_sql_info
+
+#define GDS_SERVICE_ATTACH		isc_service_attach
+#define GDS_SERVICE_DETACH		isc_service_detach
+#define GDS_SERVICE_QUERY		isc_service_query
+#define GDS_SERVICE_START		isc_service_start
+
+/*****************************************************
+ *  IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT
+ *
+ *  The order in which these defines appear MUST match
+ *  the order in which the entrypoint appears in
+ *  source/jrd/entry.h.  Failure to do so will result in
+ *  much frustration
+ ******************************************************/
+
+#define PROC_ATTACH_DATABASE	0
+#define PROC_BLOB_INFO			1
+#define PROC_CANCEL_BLOB		2
+#define PROC_CLOSE_BLOB			3
+#define PROC_COMMIT				4
+#define PROC_COMPILE			5
+#define PROC_CREATE_BLOB		6
+#define PROC_CREATE_DATABASE	7
+#define PROC_DATABASE_INFO		8
+#define PROC_DETACH				9
+#define PROC_GET_SEGMENT		10
+#define PROC_OPEN_BLOB			11
+#define PROC_PREPARE			12
+#define PROC_PUT_SEGMENT		13
+#define PROC_RECONNECT			14
+#define PROC_RECEIVE			15
+#define PROC_RELEASE_REQUEST	16
+#define PROC_REQUEST_INFO		17
+#define PROC_ROLLBACK			18
+#define PROC_SEND				19
+#define PROC_START_AND_SEND		20
+#define PROC_START				21
+#define PROC_START_MULTIPLE		22
+#define PROC_START_TRANSACTION	23
+#define PROC_TRANSACTION_INFO	24
+#define PROC_UNWIND				25
+#define PROC_COMMIT_RETAINING	26
+#define PROC_QUE_EVENTS			27
+#define PROC_CANCEL_EVENTS		28
+#define PROC_DDL				29
+#define PROC_OPEN_BLOB2			30
+#define PROC_CREATE_BLOB2		31
+#define PROC_GET_SLICE			32
+#define PROC_PUT_SLICE			33
+#define PROC_SEEK_BLOB			34
+#define PROC_TRANSACT_REQUEST	35
+#define PROC_DROP_DATABASE		36
+
+#define PROC_DSQL_ALLOCATE		37
+#define PROC_DSQL_EXECUTE		38
+#define PROC_DSQL_EXECUTE2		39
+#define PROC_DSQL_EXEC_IMMED	40
+#define PROC_DSQL_EXEC_IMMED2	41
+#define PROC_DSQL_FETCH			42
+#define	PROC_DSQL_FREE			43
+#define PROC_DSQL_INSERT		44
+#define PROC_DSQL_PREPARE		45
+#define PROC_DSQL_SET_CURSOR	46
+#define PROC_DSQL_SQL_INFO		47
+
+#define PROC_SERVICE_ATTACH		48
+#define PROC_SERVICE_DETACH		49
+#define PROC_SERVICE_QUERY		50
+#define PROC_SERVICE_START		51
+
+#define PROC_ROLLBACK_RETAINING 52
+#define PROC_CANCEL_OPERATION	53
+
+#define PROC_count				54
+
+typedef struct
+{
+	TEXT *name;
+	PTR address;
+} ENTRY;
+
+typedef struct
+{
+	TEXT *name;
+	TEXT *path;
+} IMAGE;
+
+#ifdef INITIALIZE_PATHS
+#define CONST_IMAGE				/* nothing */
+#else
+#define CONST_IMAGE	CONST
+#endif
+
+
+
+#ifdef PIPE_CLIENT
+
+/* Define simple table for pipe server client-side */
+
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe, win,winipi)	extern STATUS	pipe(), bridge_pipe();
+#include "../jrd/entry.h"
+
+static CONST_IMAGE IMAGE images[] =
+{
+	"PIPE", "PIPE",				/* Pipe interface */
+	"PIPE5", "PIPE5"			/* Pipe interface bridge to V3 */
+};
+
+#else
+
+/* Define complicated table for multi-subsystem world */
+
+#ifdef VMS
+#define V3
+#define RDB
+#endif
+
+#if (defined UNIX) && \
+    !(defined SUPERCLIENT || defined SUPERSERVER || defined DECOSF || defined NCR3000 || defined DG_X86 || defined linux || defined FREEBSD || defined NETBSD || defined AIX_PPC /* platforms without a V3 bridge */)
+#ifndef PIPE_SERVER_YVALUE
+#define PIPE_BRIDGE_TO_V3
+#endif
+#endif
+
+#ifdef PIPE_BRIDGE_TO_V3
+#if !(defined HM300 || defined BACKEND) && \
+    (defined hpux || defined sgi /* platforms with a shared V3 bridge */)
+#undef PIPE_BRIDGE_TO_V3
+#define V3
+#define V3_PATH		"lib/bridge5"
+#define GDS_A_PATH	"lib/gds_1"
+#define GDS_B_PATH	"lib/gds_2"
+#define GDS_C_PATH	"lib/gds_3"
+#define GDS_D_PATH	"lib/gds_4"
+#define INITIALIZE_PATHS
+#endif
+#endif
+
+#ifndef V3_PATH
+#define V3_PATH		"GDSSHR5"
+#endif
+
+#ifndef GDS_A_PATH
+#define GDS_A_PATH	"GDS_A"
+#define GDS_B_PATH	"GDS_B"
+#define GDS_C_PATH	"GDS_C"
+#define GDS_D_PATH	"GDS_D"
+#endif
+
+#ifdef INITIALIZE_PATHS
+static SSHORT paths_initialized = 0;
+#endif
+
+
+
+#ifdef CSI
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	extern STATUS	rem(), cur(), csi();
+#else
+#ifdef SUPERCLIENT
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	extern STATUS	rem();
+#else
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	extern STATUS	rem(), cur();
+#endif
+#endif
+#include "../jrd/entry.h"
+
+#ifdef RDB
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	extern STATUS	rdb();
+#include "../jrd/entry.h"
+#endif
+
+#ifdef PIPE_BRIDGE_TO_V3
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	extern STATUS	bridge_pipe();
+#include "../jrd/entry.h"
+#endif
+
+#ifdef ALTPIPE
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	extern STATUS	pipe();
+#include "../jrd/entry.h"
+#endif
+
+#ifdef IPSERV
+#ifndef XNET
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	extern STATUS	winipi();
+#include "../jrd/entry.h"
+#endif
+#endif
+
+static CONST_IMAGE IMAGE images[] =
+{
+#ifdef WINDOWS_ONLY
+	"REMOTE", "REMOTE.DLL",
+	"STACK", "STACK.DLL"
+#else
+
+	"REMINT", "REMINT",			/* Remote */
+
+#ifdef CSI
+	"CSI", "CSI",				/* Central server interface */
+#endif
+
+#ifdef ALTPIPE
+	"GDSPIPE", "ALTPIPE",		/* Alternate pipe interface */
+#endif
+
+#ifndef REQUESTER
+#ifndef SUPERCLIENT
+	"GDSSHR", "GDSSHR",			/* Primary access method */
+#endif
+#endif
+
+#ifdef V3
+	"GDSSHR5", V3_PATH,			/* Previous access method */
+#endif
+
+#ifdef PIPE_BRIDGE_TO_V3
+	"PIPE5", "PIPE5",			/* Pipe interface bridge to V3 */
+#endif
+
+#ifdef RDB
+	"GDSRDB", "GDSRDB",			/* Rdb Interface */
+#endif
+
+#ifndef	PC_PLATFORM
+	"GDS_A", GDS_A_PATH,
+	"GDS_B", GDS_B_PATH,
+	"GDS_C", GDS_C_PATH,
+	"GDS_D", GDS_D_PATH
+#endif
+#ifdef IPSERV
+#ifndef XNET
+		"WINIPI", "WINIPI",
+#endif
+#endif
+
+#endif							/* WINDOWS_ONLY */
+};
+#endif
+
+
+#define SUBSYSTEMS		sizeof (images) / (sizeof (IMAGE))
+
+static CONST ENTRY entrypoints[PROC_count * SUBSYSTEMS] =
+{
+#ifdef PIPE_CLIENT
+
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	NULL, pipe,
+#include "../jrd/entry.h"
+
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	NULL, bridge_pipe,
+#include "../jrd/entry.h"
+
+#else
+
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	NULL, rem,
+#include "../jrd/entry.h"
+
+#ifdef CSI
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	NULL, csi,
+#include "../jrd/entry.h"
+#endif
+
+#ifdef ALTPIPE
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	NULL, pipe,
+#include "../jrd/entry.h"
+#endif
+
+#ifdef WINDOWS_ONLY
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	win, NULL,
+#include "../jrd/entry.h"
+#else
+#ifndef REQUESTER
+#ifndef SUPERCLIENT
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	NULL, cur,
+#include "../jrd/entry.h"
+#endif
+#endif
+#endif							/* WINDOWS_ONLY */
+
+#ifdef V3
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	bridge, NULL,
+#include "../jrd/entry.h"
+#endif
+
+#ifdef PIPE_BRIDGE_TO_V3
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	NULL, bridge_pipe,
+#include "../jrd/entry.h"
+#endif
+
+#ifdef RDB
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	NULL, rdb,
+#include "../jrd/entry.h"
+#endif
+
+#ifdef IPSERV
+#ifndef XNET
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	NULL, winipi,
+#include "../jrd/entry.h"
+#endif
+#endif
+
+#endif
+};
+
+static CONST TEXT *generic[] = {
+#define ENTRYPOINT(gen,cur,bridge,rem,os2_rem,csi,rdb,pipe,bridge_pipe,win,winipi)	gen,
+#include "../jrd/entry.h"
+};
+
+
+/* Information items for two phase commit */
+
+static CONST UCHAR prepare_tr_info[] =
+{
+	gds__info_tra_id,
+	gds__info_end
+};
+
+/* Information items for DSQL prepare */
+
+static CONST SCHAR sql_prepare_info[] =
+{
+	gds__info_sql_select,
+	gds__info_sql_describe_vars,
+	gds__info_sql_sqlda_seq,
+	gds__info_sql_type,
+	gds__info_sql_sub_type,
+	gds__info_sql_scale,
+	gds__info_sql_length,
+	gds__info_sql_field,
+	gds__info_sql_relation,
+	gds__info_sql_owner,
+	gds__info_sql_alias,
+	gds__info_sql_describe_end
+};
+
+/* Information items for SQL info */
+
+static CONST SCHAR describe_select_info[] =
+{
+	gds__info_sql_select,
+	gds__info_sql_describe_vars,
+	gds__info_sql_sqlda_seq,
+	gds__info_sql_type,
+	gds__info_sql_sub_type,
+	gds__info_sql_scale,
+	gds__info_sql_length,
+	gds__info_sql_field,
+	gds__info_sql_relation,
+	gds__info_sql_owner,
+	gds__info_sql_alias,
+	gds__info_sql_describe_end
+};
+
+static CONST SCHAR describe_bind_info[] =
+{
+	gds__info_sql_bind,
+	gds__info_sql_describe_vars,
+	gds__info_sql_sqlda_seq,
+	gds__info_sql_type,
+	gds__info_sql_sub_type,
+	gds__info_sql_scale,
+	gds__info_sql_length,
+	gds__info_sql_field,
+	gds__info_sql_relation,
+	gds__info_sql_owner,
+	gds__info_sql_alias,
+	gds__info_sql_describe_end
+};
+
+
+STATUS API_ROUTINE GDS_ATTACH_DATABASE(STATUS*	user_status,
+									   SSHORT	GDS_VAL(file_length),
+									   TEXT*	file_name,
+									   ATT*		handle,
+									   SSHORT	GDS_VAL(dpb_length),
+									   SCHAR*	dpb)
+{
+/**************************************
+ *
+ *	g d s _ $ a t t a c h _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attach a database through the first subsystem
+ *	that recognizes it.
+ *
+ **************************************/
+	STATUS local[20], *status, *ptr, temp[20];
+	USHORT n, length, org_length, temp_length;
+	DBB database;
+	SCHAR *current_dpb_ptr, *last_dpb_ptr;
+#ifdef STACK_EFFICIENT
+	TEXT *expanded_filename, *temp_filebuf;
+#else
+	TEXT expanded_filename[MAXPATHLEN], temp_filebuf[MAXPATHLEN];
+#endif
+	TEXT *p, *q, *temp_filename;
+#if defined(UNIX) && !defined(PIPE_CLIENT)
+	TEXT single_user[5];
+#endif
+
+	GET_STATUS;
+
+#if defined(DEBUG_GDS_ALLOC) && defined(WINDOWS_ONLY)
+	gds_alloc_report(ALLOC_mark_current | ALLOC_silent, __FILE__, __LINE__);
+#endif
+
+	NULL_CHECK(handle, isc_bad_db_handle, HANDLE_database);
+	if (!file_name)
+	{
+		status[0] = isc_arg_gds;
+		status[1] = isc_bad_db_format;
+		status[2] = isc_arg_string;
+		status[3] = (STATUS) "";
+		status[4] = isc_arg_end;
+		return error2(status, local);
+	}
+
+	if (GDS_VAL(dpb_length) > 0 && !dpb)
+	{
+		status[0] = isc_arg_gds;
+		status[1] = isc_bad_dpb_form;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+
+#if defined (SERVER_SHUTDOWN) && !defined (SUPERCLIENT) && !defined (REQUESTER)
+	if (shutdown_flag)
+	{
+		status[0] = isc_arg_gds;
+		status[1] = isc_shutwarn;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+#endif /* SERVER_SHUTDOWN && !SUPERCLIENT && !REQUESTER */
+
+	subsystem_enter();
+	SUBSYSTEM_USAGE_INCR;
+
+#ifdef STACK_EFFICIENT
+	expanded_filename =
+		(TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * MAXPATHLEN));
+	if (!expanded_filename)
+	{
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		SUBSYSTEM_USAGE_DECR;
+		return error(status, local);
+	}
+	temp_filebuf = (TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * MAXPATHLEN));
+	if (!temp_filebuf)
+	{
+		gds__free((SLONG *) expanded_filename);
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		SUBSYSTEM_USAGE_DECR;
+		return error(status, local);
+	}
+#endif
+	temp_filename = temp_filebuf;
+
+	ptr = status;
+
+	org_length = GDS_VAL(file_length);
+
+	if (org_length)
+	{
+		p = file_name + org_length - 1;
+		while (*p == ' ')
+		{
+			p--;
+		}
+		org_length = p - file_name + 1;
+	}
+
+/* copy the file name to a temp buffer, since some of the following
+   utilities can modify it */
+
+	temp_length = org_length ? org_length : strlen(file_name);
+	memcpy(temp_filename, file_name, temp_length);
+	temp_filename[temp_length] = '\0';
+
+	if (isc_set_path(temp_filename, org_length, expanded_filename))
+	{
+		temp_filename = expanded_filename;
+		org_length = strlen(temp_filename);
+	}
+	else
+	{
+		ISC_expand_filename(temp_filename, org_length, expanded_filename);
+	}
+
+	current_dpb_ptr = dpb;
+
+#ifdef UNIX
+/* added so that only the pipe_server goes in here */
+#ifndef PIPE_CLIENT
+	single_user[0] = 0;
+	if (open_marker_file(status, expanded_filename, single_user))
+	{
+		SUBSYSTEM_USAGE_DECR;
+		return error(status, local);
+	}
+
+	if (single_user[0]) {
+		isc_set_single_user(&current_dpb_ptr, &dpb_length, single_user);
+	}
+#endif
+#endif
+
+/* Special handling of dpb pointers to handle multiple extends of the dpb */
+	last_dpb_ptr = current_dpb_ptr;
+	isc_set_login(&current_dpb_ptr, &dpb_length);
+	if ((current_dpb_ptr != last_dpb_ptr) && (last_dpb_ptr != dpb))
+		gds__free((SLONG *) last_dpb_ptr);
+
+	for (n = 0; n < SUBSYSTEMS; n++)
+	{
+		if (why_enabled && !(why_enabled & (1 << n)))
+		{
+			continue;
+		}
+		if (!CALL(PROC_ATTACH_DATABASE, n) (ptr,
+											org_length,
+											temp_filename,
+											handle,
+											GDS_VAL(dpb_length),
+											current_dpb_ptr,
+											expanded_filename))
+		{
+			length = strlen(expanded_filename);
+			database = (DBB) allocate_handle(n, *handle, HANDLE_database);
+			if (database)
+			{
+				database->db_path = (TEXT*) alloc((SLONG) (length + 1));
+			}
+			if (!database || !database->db_path)
+			{
+				/* No memory. Make a half-hearted to detach and get out. */
+
+				if (database)
+					release_handle(database);
+				CALL(PROC_DETACH, n) (ptr, handle);
+				*handle = NULL_PTR;
+				status[0] = isc_arg_gds;
+				status[1] = isc_virmemexh;
+				status[2] = isc_arg_end;
+				break;
+			}
+
+			*handle = database;
+			p = database->db_path;
+			for (q = expanded_filename; length; length--)
+			{
+				*p++ = *q++;
+			}
+			*p = 0;
+
+			if (current_dpb_ptr != dpb) {
+				gds__free((SLONG *) current_dpb_ptr);
+			}
+
+#ifdef STACK_EFFICIENT
+			gds__free((SLONG *) expanded_filename);
+			gds__free((SLONG *) temp_filebuf);
+#endif
+			database->cleanup = NULL;
+			status[0] = isc_arg_gds;
+			status[1] = 0;
+
+			/* Check to make sure that status[2] is not a warning.  If it is, then
+			 * the rest of the vector should be untouched.  If it is not, then make
+			 * this element isc_arg_end
+			 *
+			 * This cleanup is done to remove any erroneous errors from trying multiple
+			 * protocols for a database attach
+			 */
+			if (status[2] != isc_arg_warning) {
+				status[2] = isc_arg_end;
+			}
+
+			subsystem_exit();
+			CHECK_STATUS_SUCCESS(status);
+			return status[1];
+		}
+		if (ptr[1] != isc_unavailable) {
+			ptr = temp;
+		}
+	}
+
+	if (current_dpb_ptr != dpb) {
+		gds__free((SLONG *) current_dpb_ptr);
+	}
+
+#ifdef STACK_EFFICIENT
+	gds__free((SLONG *) expanded_filename);
+	gds__free((SLONG *) temp_filebuf);
+#endif
+
+	SUBSYSTEM_USAGE_DECR;
+	return error(status, local);
+}
+
+
+STATUS API_ROUTINE GDS_BLOB_INFO(STATUS*	user_status,
+								 BLB*		blob_handle,
+								 SSHORT		GDS_VAL(item_length),
+								 SCHAR*		items,
+								 SSHORT		GDS_VAL(buffer_length),
+								 SCHAR*		buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ b l o b _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	BLB blob;
+
+	GET_STATUS;
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, HANDLE_blob, isc_bad_segstr_handle);
+	subsystem_enter();
+
+	CALL(PROC_BLOB_INFO, blob->implementation) (status,
+												&blob->handle,
+												GDS_VAL(item_length),
+												items,
+												GDS_VAL(buffer_length),
+												buffer);
+
+	if (status[1])
+		return error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_CANCEL_BLOB(STATUS * user_status, BLB * blob_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ c a n c e l _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	BLB blob, *ptr;
+	ATT dbb;
+
+	if (!*blob_handle) {
+		if (user_status) {
+			user_status[0] = gds_arg_gds;
+			user_status[1] = 0;
+			user_status[2] = gds_arg_end;
+			CHECK_STATUS_SUCCESS(user_status);
+		}
+		return SUCCESS;
+	}
+
+	GET_STATUS;
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, HANDLE_blob, isc_bad_segstr_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_CANCEL_BLOB, blob->implementation) (status, &blob->handle))
+		return error(status, local);
+
+/* Get rid of connections to database */
+
+	dbb = blob->parent;
+
+	for (ptr = &dbb->blobs; *ptr; ptr = &(*ptr)->next)
+		if (*ptr == blob) {
+			*ptr = blob->next;
+			break;
+		}
+
+	release_handle(blob);
+	*blob_handle = NULL;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_CANCEL_EVENTS(STATUS * user_status,
+									 ATT * handle, SLONG * id)
+{
+/**************************************
+ *
+ *	g d s _ $ c a n c e l _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to cancel an event.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT database;
+
+	GET_STATUS;
+	database = *handle;
+	CHECK_HANDLE(database, HANDLE_database, isc_bad_db_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_CANCEL_EVENTS, database->implementation) (status,
+															&database->handle,
+															id))
+			return error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+#ifdef CANCEL_OPERATION
+STATUS API_ROUTINE GDS_CANCEL_OPERATION(STATUS * user_status,
+										ATT * handle, USHORT option)
+{
+/**************************************
+ *
+ *	g d s _ $ c a n c e l _ o p e r a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to cancel an operation.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT database;
+
+	GET_STATUS;
+	database = *handle;
+	CHECK_HANDLE(database, HANDLE_database, isc_bad_db_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_CANCEL_OPERATION, database->implementation) (status,
+															   &database->
+															   handle,
+															   option)) return
+			error(status, local);
+
+	RETURN_SUCCESS;
+}
+#endif
+
+
+STATUS API_ROUTINE GDS_CLOSE_BLOB(STATUS * user_status, BLB * blob_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ c l o s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	BLB blob, *ptr;
+	ATT dbb;
+
+	GET_STATUS;
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, HANDLE_blob, isc_bad_segstr_handle);
+	subsystem_enter();
+
+	CALL(PROC_CLOSE_BLOB, blob->implementation) (status, &blob->handle);
+
+	if (status[1])
+		return error(status, local);
+
+/* Get rid of connections to database */
+
+	dbb = blob->parent;
+
+	for (ptr = &dbb->blobs; *ptr; ptr = &(*ptr)->next)
+		if (*ptr == blob) {
+			*ptr = blob->next;
+			break;
+		}
+
+	release_handle(blob);
+	*blob_handle = NULL;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_COMMIT(STATUS * user_status, TRA * tra_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit a transaction.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	TRA transaction, sub;
+	CLEAN clean;
+
+	GET_STATUS;
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+/* Handle single transaction case */
+
+	if (transaction->implementation != SUBSYSTEMS) {
+		if (CALL(PROC_COMMIT, transaction->implementation) (status,
+															&transaction->
+															handle)) return
+				error(status, local);
+	}
+	else {
+		/* Handle two phase commit.  Start by putting everybody into
+		   limbo.  If anybody fails, punt */
+
+		if (!(transaction->flags & HANDLE_TRANSACTION_limbo))
+			if (prepare(status, transaction))
+				return error(status, local);
+
+		/* Everybody is in limbo, now commit everybody.
+		   In theory, this can't fail */
+
+		for (sub = transaction->next; sub; sub = sub->next)
+			if (CALL(PROC_COMMIT, sub->implementation) (status, &sub->handle))
+				return error(status, local);
+	}
+
+	subsystem_exit();
+
+/* Call the associated cleanup handlers */
+
+	while (clean = transaction->cleanup) {
+		transaction->cleanup = clean->clean_next;
+		(*clean->clean_routine) (transaction, clean->clean_arg);
+		free_block(clean);
+	}
+
+	while (sub = transaction) {
+		transaction = sub->next;
+		release_handle(sub);
+	}
+	*tra_handle = NULL;
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_COMMIT_RETAINING(STATUS * user_status,
+										TRA * tra_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ c o m m i t _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do a commit retaining.
+ *
+ * N.B., the transaction cleanup handlers are NOT
+ * called here since, conceptually, the transaction
+ * is still running.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	TRA transaction, sub;
+
+	GET_STATUS;
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+	for (sub = transaction; sub; sub = sub->next)
+		if (sub->implementation != SUBSYSTEMS &&
+			CALL(PROC_COMMIT_RETAINING, sub->implementation) (status,
+															  &sub->handle))
+				return error(status, local);
+
+	transaction->flags |= HANDLE_TRANSACTION_limbo;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_COMPILE(STATUS * user_status,
+							   ATT * db_handle,
+							   REQ * req_handle,
+							   USHORT GDS_VAL(blr_length), SCHAR * blr)
+{
+/**************************************
+ *
+ *	g d s _ $ c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT dbb;
+	REQ request;
+
+	GET_STATUS;
+	NULL_CHECK(req_handle, isc_bad_req_handle, HANDLE_request);
+	dbb = *db_handle;
+	CHECK_HANDLE(dbb, HANDLE_database, isc_bad_db_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_COMPILE, dbb->implementation) (status,
+												 &dbb->handle,
+												 req_handle,
+												 GDS_VAL(blr_length),
+												 blr))
+			return error(status, local);
+
+	request = allocate_handle(dbb->implementation, *req_handle, HANDLE_request);
+	if (!request) {
+		/* No memory. Make a half-hearted attempt to release request. */
+
+		CALL(PROC_RELEASE_REQUEST, dbb->implementation) (status, req_handle);
+		*req_handle = NULL_PTR;
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		return error(status, local);
+	}
+
+	*req_handle = request;
+	request->parent = dbb;
+	request->next = dbb->requests;
+	dbb->requests = request;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_COMPILE2(STATUS * user_status,
+								ATT * db_handle,
+								REQ * req_handle,
+								USHORT GDS_VAL(blr_length), SCHAR * blr)
+{
+/**************************************
+ *
+ *	g d s _ $ c o m p i l e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	if (GDS_COMPILE(user_status, db_handle, req_handle, blr_length, blr))
+		/* Note: if user_status == NULL then GDS_COMPILE handled it */
+		return user_status[1];
+
+	(*req_handle)->user_handle = req_handle;
+
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_CREATE_BLOB(STATUS * user_status,
+								   ATT * db_handle,
+								   TRA * tra_handle,
+								   BLB * blob_handle, SLONG * blob_id)
+{
+/**************************************
+ *
+ *	g d s _ $ c r e a t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+
+	return open_blob(user_status, db_handle, tra_handle, blob_handle, blob_id,
+					 0, NULL_PTR, PROC_CREATE_BLOB, PROC_CREATE_BLOB2);
+}
+
+
+STATUS API_ROUTINE GDS_CREATE_BLOB2(STATUS * user_status,
+									ATT * db_handle,
+									TRA * tra_handle,
+									BLB * blob_handle,
+									SLONG * blob_id,
+									SSHORT GDS_VAL(bpb_length), UCHAR * bpb)
+{
+/**************************************
+ *
+ *	g d s _ $ c r e a t e _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+
+	return open_blob(user_status, db_handle, tra_handle, blob_handle, blob_id,
+					 GDS_VAL(bpb_length), bpb, PROC_CREATE_BLOB,
+					 PROC_CREATE_BLOB2);
+}
+
+
+
+STATUS API_ROUTINE GDS_CREATE_DATABASE(STATUS * user_status,
+									   USHORT GDS_VAL(file_length),
+									   TEXT * file_name,
+									   ATT * handle,
+									   USHORT GDS_VAL(dpb_length),
+									   UCHAR * dpb, USHORT GDS_VAL(db_type))
+{
+/**************************************
+ *
+ *	g d s _ $ c r e a t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeaky clean database, uncorrupted by user data.
+ *
+ **************************************/
+	STATUS local[20], *status, temp[20], *ptr;
+	USHORT n, length, org_length, temp_length;
+	DBB database;
+#ifdef STACK_EFFICIENT
+	TEXT *expanded_filename, *temp_filebuf;
+#else
+	TEXT expanded_filename[MAXPATHLEN], temp_filebuf[MAXPATHLEN];
+#endif
+	TEXT *p, *q, *temp_filename;
+	UCHAR *current_dpb_ptr, *last_dpb_ptr;
+#ifdef UNIX
+	TEXT single_user[5];
+#endif
+
+	GET_STATUS;
+	NULL_CHECK(handle, isc_bad_db_handle, HANDLE_database);
+	if (!file_name)
+	{
+		status[0] = isc_arg_gds;
+		status[1] = isc_bad_db_format;
+		status[2] = isc_arg_string;
+		status[3] = (STATUS) "";
+		status[4] = isc_arg_end;
+		return error2(status, local);
+	}
+
+	if (dpb_length > 0 && !dpb)
+	{
+		status[0] = isc_arg_gds;
+		status[1] = isc_bad_dpb_form;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+
+#if defined (SERVER_SHUTDOWN) && !defined (SUPERCLIENT) && !defined (REQUESTER)
+	if (shutdown_flag)
+	{
+		status[0] = isc_arg_gds;
+		status[1] = isc_shutwarn;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+#endif /* SERVER_SHUTDOWN && !SUPERCLIENT && !REQUESTER */
+
+	subsystem_enter();
+	SUBSYSTEM_USAGE_INCR;
+
+#ifdef STACK_EFFICIENT
+	expanded_filename = (TEXT*)gds__alloc((SLONG) (sizeof(TEXT) * MAXPATHLEN));
+	if (!expanded_filename)
+	{
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		SUBSYSTEM_USAGE_DECR;
+		return error(status, local);
+	}
+	temp_filebuf = (TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * MAXPATHLEN));
+	if (!temp_filebuf)
+	{
+		gds__free((SLONG *) expanded_filename);
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		SUBSYSTEM_USAGE_DECR;
+		return error(status, local);
+	}
+#endif
+	temp_filename = temp_filebuf;
+
+	ptr = status;
+
+	org_length = file_length;
+
+	if (org_length)
+	{
+		p = file_name + org_length - 1;
+		while (*p == ' ')
+			p--;
+		org_length = p - file_name + 1;
+	}
+
+/* copy the file name to a temp buffer, since some of the following
+   utilities can modify it */
+
+	if (org_length)
+		temp_length = org_length;
+	else
+		temp_length = strlen(file_name);
+	memcpy(temp_filename, file_name, temp_length);
+	temp_filename[temp_length] = '\0';
+
+	if (isc_set_path(temp_filename, org_length, expanded_filename))
+	{
+		temp_filename = expanded_filename;
+		org_length = strlen(temp_filename);
+	}
+	else
+		ISC_expand_filename(temp_filename, org_length, expanded_filename);
+
+	current_dpb_ptr = dpb;
+
+#ifdef UNIX
+	single_user[0] = 0;
+	if (open_marker_file(status, expanded_filename, single_user))
+	{
+		SUBSYSTEM_USAGE_DECR;
+		return error(status, local);
+	}
+
+	if (single_user[0])
+		isc_set_single_user(&current_dpb_ptr, &dpb_length, single_user);
+#endif
+
+/* Special handling of dpb pointers to handle multiple extends of the dpb */
+	last_dpb_ptr = current_dpb_ptr;
+	isc_set_login(&current_dpb_ptr, &dpb_length);
+	if ((current_dpb_ptr != last_dpb_ptr) && (last_dpb_ptr != dpb))
+		gds__free(last_dpb_ptr);
+
+	for (n = 0; n < SUBSYSTEMS; n++)
+	{
+		if (why_enabled && !(why_enabled & (1 << n)))
+			continue;
+		if (!CALL(PROC_CREATE_DATABASE, n) (
+					ptr,
+					org_length,
+					temp_filename,
+					handle,
+					GDS_VAL(dpb_length),
+					current_dpb_ptr,
+					0,
+					expanded_filename))
+		{
+			length = org_length;
+			if (!length) {
+				length = strlen(temp_filename);
+			}
+			database = allocate_handle(n, *handle, HANDLE_database);
+			if (database)
+			{
+				database->db_path = (TEXT *) alloc((SLONG) (length + 1));
+			}
+			if (!database || !database->db_path)
+			{
+				/* No memory. Make a half-hearted to drop database. The
+				   database was successfully created but the user wouldn't
+				   be able to tell. */
+
+				if (database)
+					release_handle(database);
+				CALL(PROC_DROP_DATABASE, n) (ptr, handle);
+				*handle = NULL_PTR;
+				status[0] = isc_arg_gds;
+				status[1] = isc_virmemexh;
+				status[2] = isc_arg_end;
+				break;
+			}
+
+			assert(database);
+			assert(database->db_path);
+
+			*handle = database;
+			p = database->db_path;
+			for (q = temp_filename; length; length--)
+				*p++ = *q++;
+			*p = 0;
+
+			if (current_dpb_ptr != dpb)
+				gds__free((SLONG *) current_dpb_ptr);
+#ifdef STACK_EFFICIENT
+			gds__free((SLONG *) expanded_filename);
+			gds__free((SLONG *) temp_filebuf);
+#endif
+			database->cleanup = NULL;
+			status[0] = isc_arg_gds;
+			status[1] = 0;
+			if (status[2] != isc_arg_warning)
+				status[2] = isc_arg_end;
+			subsystem_exit();
+			CHECK_STATUS_SUCCESS(status);
+			return status[1];
+		}
+		if (ptr[1] != isc_unavailable)
+			ptr = temp;
+	}
+
+	if (current_dpb_ptr != dpb)
+		gds__free((SLONG *) current_dpb_ptr);
+#ifdef STACK_EFFICIENT
+	gds__free((SLONG *) expanded_filename);
+	gds__free((SLONG *) temp_filebuf);
+#endif
+
+	SUBSYSTEM_USAGE_DECR;
+	return error(status, local);
+}
+
+
+STATUS API_ROUTINE gds__database_cleanup(STATUS * user_status,
+										 ATT * handle,
+										 void (*routine) (), SLONG arg)
+{
+/**************************************
+ *
+ *	g d s _ $ d a t a b a s e _ c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Register a database specific cleanup handler.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT database;
+	CLEAN clean;
+
+	GET_STATUS;
+	database = *handle;
+	CHECK_HANDLE(database, HANDLE_database, isc_bad_db_handle);
+
+	if (!(clean = (CLEAN) alloc((SLONG) sizeof(struct clean)))) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+
+	clean->clean_next = database->cleanup;
+	database->cleanup = clean;
+	clean->clean_routine = routine;
+	clean->clean_arg = arg;
+
+	status[0] = gds_arg_gds;
+	status[1] = 0;
+	status[2] = gds_arg_end;
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DATABASE_INFO(STATUS * user_status,
+									 ATT * handle,
+									 SSHORT GDS_VAL(item_length),
+									 SCHAR * items,
+									 SSHORT GDS_VAL(buffer_length),
+									 SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ d a t a b a s e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on database object.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT database;
+
+	GET_STATUS;
+	database = *handle;
+	CHECK_HANDLE(database, HANDLE_database, isc_bad_db_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_DATABASE_INFO, database->implementation) (status,
+															&database->handle,
+															GDS_VAL
+															(item_length),
+															items,
+															GDS_VAL
+															(buffer_length),
+															buffer)) return
+			error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DDL(STATUS * user_status,
+						   ATT * db_handle,
+						   TRA * tra_handle,
+						   USHORT GDS_VAL(length), UCHAR * ddl)
+{
+/**************************************
+ *
+ *	g d s _ $ d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do meta-data update.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT database;
+	TRA transaction;
+
+#if !defined(PIPE_CLIENT) && !defined(SUPERCLIENT)
+	TEXT *image;
+	PTR entrypoint;
+#endif
+
+	GET_STATUS;
+	database = *db_handle;
+	CHECK_HANDLE(database, HANDLE_database, isc_bad_db_handle);
+	transaction = find_transaction(database, *tra_handle);
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+	if (get_entrypoint(PROC_DDL, database->implementation) != no_entrypoint)
+	{
+		if (!CALL(PROC_DDL, database->implementation) (status,
+													   &database->handle,
+													   &transaction->handle,
+													   GDS_VAL(length),
+													   ddl))
+		{
+			RETURN_SUCCESS;
+		}
+		if (status[1] != isc_unavailable)
+		{
+			return error(status, local);
+		}
+	}
+
+	subsystem_exit();
+
+/* Assume that we won't find an entrypoint to call. */
+
+	no_entrypoint(status);
+
+#ifndef PIPE_CLIENT
+#ifndef SUPERCLIENT
+	if ((image = images[database->implementation].path) != NULL &&
+		((entrypoint = (PTR) ISC_lookup_entrypoint(image, "DYN_ddl", NULL)) !=
+		 NULL ||
+		 FALSE) &&
+		!((*entrypoint) (status, db_handle, tra_handle, length, ddl))) {
+		CHECK_STATUS_SUCCESS(status);
+		return SUCCESS;
+	}
+#endif
+#endif
+
+	return error2(status, local);
+}
+
+
+STATUS API_ROUTINE GDS_DETACH(STATUS * user_status, ATT * handle)
+{
+/**************************************
+ *
+ *	g d s _ $ d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a database.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT dbb;
+	REQ request;
+	STMT statement;
+	BLB blob;
+	CLEAN clean;
+
+	GET_STATUS;
+
+	dbb = *handle;
+
+#ifdef WIN_NT
+/* This code was added to fix an IDAPI problem where our DLL exit handler
+ * was getting called before theirs. Our exit handler frees the attachment
+ * but does not NULL the handle.  Their exit handler trys to detach, causing
+ * a GPF.
+ * We should check with IDAPI periodically to see if we still need this.
+ */
+	if (IsBadReadPtr(dbb, sizeof(ATT)))
+		return bad_handle(user_status, isc_bad_db_handle);
+#endif /* WIN_NT */
+
+	CHECK_HANDLE(dbb, HANDLE_database, isc_bad_db_handle);
+
+#ifdef SUPERSERVER
+
+/* Drop all DSQL statements to reclaim DSQL memory pools. */
+
+	while (statement = dbb->statements) {
+		if (!statement->user_handle)
+			statement->user_handle = &statement;
+
+		if (GDS_DSQL_FREE(status, statement->user_handle, DSQL_drop))
+			return error2(status, local);
+	}
+#endif
+
+	subsystem_enter();
+
+	if (CALL(PROC_DETACH, dbb->implementation) (status, &dbb->handle))
+		return error(status, local);
+
+/* Release associated request handles */
+
+	if (dbb->db_path)
+		free_block(dbb->db_path);
+
+	while (request = dbb->requests) {
+		dbb->requests = request->next;
+		if (request->user_handle)
+			*request->user_handle = NULL;
+		release_handle(request);
+	}
+
+#ifndef SUPERSERVER
+	while (statement = dbb->statements) {
+		dbb->statements = statement->next;
+		if (statement->user_handle) {
+			*statement->user_handle = NULL;
+		}
+		release_dsql_support((DASUP)statement->requests);
+		release_handle(statement);
+	}
+#endif
+
+	while (blob = dbb->blobs) {
+		dbb->blobs = blob->next;
+		if (blob->user_handle)
+			*blob->user_handle = NULL;
+		release_handle(blob);
+	}
+
+	SUBSYSTEM_USAGE_DECR;
+	subsystem_exit();
+
+/* Call the associated cleanup handlers */
+
+	while (clean = dbb->cleanup) {
+		dbb->cleanup = clean->clean_next;
+		(*clean->clean_routine) (handle, clean->clean_arg);
+		free_block(clean);
+	}
+
+	release_handle(dbb);
+	*handle = NULL;
+
+#if defined(DEBUG_GDS_ALLOC) && defined(WINDOWS_ONLY)
+	gds_alloc_report(0L, __FILE__, __LINE__);
+#endif
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+int API_ROUTINE gds__disable_subsystem(TEXT * subsystem)
+{
+/**************************************
+ *
+ *	g d s _ $ d i s a b l e _ s u b s y s t e m 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disable access to a specific subsystem.  If no subsystem
+ *	has been explicitly disabled, all are available.
+ *
+ **************************************/
+	CONST_IMAGE IMAGE* sys;
+	CONST_IMAGE IMAGE* end;
+
+	for (sys = images, end = sys + SUBSYSTEMS; sys < end; sys++)
+	{
+		if (!strcmp(sys->name, subsystem)) {
+			if (!why_enabled)
+				why_enabled = ~why_enabled;
+			why_enabled &= ~(1 << (sys - images));
+			return TRUE;
+		}
+	}
+
+	return FALSE;
+}
+
+
+STATUS API_ROUTINE GDS_DROP_DATABASE(STATUS * user_status, ATT * handle)
+{
+/**************************************
+ *
+ *	i s c _ d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a database and then purge it.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT dbb;
+	REQ request;
+	STMT statement;
+	BLB blob;
+	CLEAN clean;
+
+	GET_STATUS;
+	dbb = *handle;
+	CHECK_HANDLE(dbb, HANDLE_database, isc_bad_db_handle);
+
+#ifdef SUPERSERVER
+
+/* Drop all DSQL statements to reclaim DSQL memory pools. */
+
+	while (statement = dbb->statements) {
+		if (!statement->user_handle)
+			statement->user_handle = &statement;
+
+		if (GDS_DSQL_FREE(status, statement->user_handle, DSQL_drop))
+			return error2(status, local);
+	}
+#endif
+
+	subsystem_enter();
+
+	(CALL(PROC_DROP_DATABASE, dbb->implementation) (status, &dbb->handle));
+
+	if (status[1] && (status[1] != isc_drdb_completed_with_errs))
+		return error(status, local);
+
+/* Release associated request handles */
+
+	if (dbb->db_path)
+		free_block(dbb->db_path);
+
+	while (request = dbb->requests) {
+		dbb->requests = request->next;
+		if (request->user_handle)
+			*request->user_handle = NULL;
+		release_handle(request);
+	}
+
+#ifndef SUPERSERVER
+	while (statement = dbb->statements) {
+		dbb->statements = statement->next;
+		if (statement->user_handle)
+			*statement->user_handle = NULL;
+		release_dsql_support(statement->requests);
+		release_handle(statement);
+	}
+#endif
+
+	while (blob = dbb->blobs) {
+		dbb->blobs = blob->next;
+		if (blob->user_handle)
+			*blob->user_handle = NULL;
+		release_handle(blob);
+	}
+
+	SUBSYSTEM_USAGE_DECR;
+	subsystem_exit();
+
+/* Call the associated cleanup handlers */
+
+	while ((clean = dbb->cleanup) != NULL) {
+		dbb->cleanup = clean->clean_next;
+		(*clean->clean_routine) (handle, clean->clean_arg);
+		free_block(clean);
+	}
+
+	release_handle(dbb);
+	*handle = NULL;
+
+	if (status[1])
+		return error2(status, local);
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_ALLOC(STATUS * user_status,
+								  ATT * db_handle, STMT * stmt_handle)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ a l l o c _ s t a t e m e n t
+ *
+ **************************************/
+
+	return GDS_DSQL_ALLOCATE(user_status, db_handle, stmt_handle);
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_ALLOC2(STATUS * user_status,
+								   ATT * db_handle, STMT * stmt_handle)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ a l l o c _ s t a t e m e n t 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a statement handle.
+ *
+ **************************************/
+
+	if (GDS_DSQL_ALLOCATE(user_status, db_handle, stmt_handle))
+		return user_status[1];
+
+	(*stmt_handle)->user_handle = stmt_handle;
+
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_ALLOCATE(STATUS * user_status,
+									 ATT * db_handle, STMT * stmt_handle)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ a l l o c a t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a statement handle.
+ *
+ **************************************/
+	STATUS s, *status, local[20];
+	STMT statement;
+	ATT dbb;
+	UCHAR flag;
+	PTR entry;
+
+	GET_STATUS;
+
+/* check the statement handle to make sure it's NULL and then initialize it. */
+
+	NULL_CHECK(stmt_handle, isc_bad_stmt_handle, HANDLE_statement);
+	dbb = *db_handle;
+	CHECK_HANDLE(dbb, HANDLE_database, isc_bad_db_handle);
+
+/* Attempt to have the implementation which processed the database attach
+   process the allocate statement.  This may not be feasible (e.g., the 
+   server doesn't support remote DSQL because it's the wrong version or 
+   something) in which case, execute the functionality locally (and hence 
+   remotely through the original Y-valve). */
+
+	s = isc_unavailable;
+	entry = get_entrypoint(PROC_DSQL_ALLOCATE, dbb->implementation);
+	if (entry != no_entrypoint) {
+		subsystem_enter();
+		s = (*entry) (status, &dbb->handle, stmt_handle);
+		subsystem_exit();
+	}
+	flag = 0;
+#ifndef NO_LOCAL_DSQL
+	if (s == isc_unavailable) {
+		/* if the entry point didn't exist or if the routine said the server
+		   didn't support the protocol... do it locally */
+
+		flag = HANDLE_STATEMENT_local;
+
+		subsystem_enter();
+		s = dsql8_allocate_statement(status, db_handle, stmt_handle);
+		subsystem_exit();
+	}
+#endif
+
+	if (status[1])
+		return error2(status, local);
+
+	statement =
+		allocate_handle(dbb->implementation, *stmt_handle, HANDLE_statement);
+
+	if (!statement) {
+		/* No memory. Make a half-hearted attempt to drop statement. */
+
+		subsystem_enter();
+
+#ifndef NO_LOCAL_DSQL
+		if (flag & HANDLE_STATEMENT_local)
+			dsql8_free_statement(status, stmt_handle, DSQL_drop);
+		else
+#endif
+			CALL(PROC_DSQL_FREE, dbb->implementation) (status, stmt_handle,
+													   DSQL_drop);
+
+		subsystem_exit();
+
+		*stmt_handle = NULL_PTR;
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+
+	*stmt_handle = statement;
+	statement->parent = dbb;
+	statement->next = dbb->statements;
+	dbb->statements = statement;
+	statement->flags = flag;
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE isc_dsql_describe(STATUS * user_status,
+									 STMT * stmt_handle,
+									 USHORT dialect, XSQLDA * sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ d e s c r i b e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Describe output parameters for a prepared statement.
+ *
+ **************************************/
+	STATUS *status, local[20];
+	USHORT buffer_len;
+#ifdef STACK_EFFICIENT
+	SCHAR *buffer, local_buffer[1];
+#else
+	SCHAR *buffer, local_buffer[512];
+#endif /* STACK_EFFICIENT */
+
+	GET_STATUS;
+	CHECK_HANDLE(*stmt_handle, HANDLE_statement, isc_bad_stmt_handle);
+
+	if (!(buffer = get_sqlda_buffer(local_buffer, sizeof(local_buffer), sqlda,
+									dialect, &buffer_len))) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+
+	if (!GDS_DSQL_SQL_INFO(	status,
+							stmt_handle,
+							sizeof(describe_select_info),
+							describe_select_info,
+							buffer_len,
+							buffer))
+	{
+		iterative_sql_info(	status,
+							stmt_handle,
+							sizeof(describe_select_info),
+							describe_select_info,
+							buffer_len,
+							buffer,
+							dialect,
+							sqlda);
+	}
+
+	if (buffer != local_buffer) {
+		free_block(buffer);
+	}
+
+	if (status[1]) {
+		return error2(status, local);
+	}
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE isc_dsql_describe_bind(STATUS * user_status,
+										  STMT * stmt_handle,
+										  USHORT dialect, XSQLDA * sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ d e s c r i b e _ b i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Describe input parameters for a prepared statement.
+ *
+ **************************************/
+	STATUS *status, local[20];
+	USHORT buffer_len;
+#ifdef STACK_EFFICIENT
+	SCHAR *buffer, local_buffer[1];
+#else
+	SCHAR *buffer, local_buffer[512];
+#endif /* STACK_EFFICIENT */
+
+	GET_STATUS;
+	CHECK_HANDLE(*stmt_handle, HANDLE_statement, isc_bad_stmt_handle);
+
+	if (!(buffer = get_sqlda_buffer(local_buffer, sizeof(local_buffer), sqlda,
+									dialect, &buffer_len))) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+
+	if (!GDS_DSQL_SQL_INFO(	status,
+							stmt_handle,
+							sizeof(describe_bind_info),
+							describe_bind_info,
+							buffer_len,
+							buffer))
+	{
+		iterative_sql_info(	status,
+							stmt_handle,
+							sizeof(describe_bind_info),
+							describe_bind_info,
+							buffer_len,
+							buffer,
+							dialect,
+							sqlda);
+	}
+
+	if (buffer != local_buffer) {
+		free_block(buffer);
+	}
+
+	if (status[1]) {
+		return error2(status, local);
+	}
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_EXECUTE(STATUS * user_status,
+									TRA * tra_handle,
+									STMT * stmt_handle,
+									USHORT dialect, XSQLDA * sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+
+	return GDS_DSQL_EXECUTE2(user_status, tra_handle, stmt_handle, dialect,
+							 sqlda, NULL);
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_EXECUTE2(STATUS * user_status,
+									 TRA * tra_handle,
+									 STMT * stmt_handle,
+									 USHORT dialect,
+									 XSQLDA * in_sqlda, XSQLDA * out_sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c u t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+	STATUS *status, local[20];
+	STMT statement;
+	USHORT in_blr_length, in_msg_type, in_msg_length,
+		out_blr_length, out_msg_type, out_msg_length;
+	DASUP dasup;
+
+	GET_STATUS;
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, HANDLE_statement, isc_bad_stmt_handle);
+	if (*tra_handle)
+		CHECK_HANDLE(*tra_handle, HANDLE_transaction, isc_bad_trans_handle);
+
+	if (!(dasup = (DASUP) statement->requests))
+		return bad_handle(user_status, isc_unprepared_stmt);
+
+	if (UTLD_parse_sqlda(status, dasup, &in_blr_length, &in_msg_type,
+						 &in_msg_length, dialect, in_sqlda,
+						 DASUP_CLAUSE_bind)) return error2(status, local);
+	if (UTLD_parse_sqlda
+		(status, dasup, &out_blr_length, &out_msg_type, &out_msg_length,
+		 dialect, out_sqlda, DASUP_CLAUSE_select))
+		return error2(status, local);
+
+	if (GDS_DSQL_EXECUTE2_M(status, tra_handle, stmt_handle,
+							in_blr_length,
+							dasup->dasup_clauses[DASUP_CLAUSE_bind].dasup_blr,
+							in_msg_type, in_msg_length,
+							dasup->dasup_clauses[DASUP_CLAUSE_bind].dasup_msg,
+							out_blr_length,
+							dasup->dasup_clauses[DASUP_CLAUSE_select].
+							dasup_blr, out_msg_type, out_msg_length,
+							dasup->dasup_clauses[DASUP_CLAUSE_select].
+							dasup_msg)) return error2(status, local);
+
+	if (UTLD_parse_sqlda(status, dasup, NULL, NULL, NULL,
+						 dialect, out_sqlda, DASUP_CLAUSE_select))
+			return error2(status, local);
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_EXECUTE_M(STATUS * user_status,
+									  TRA * tra_handle,
+									  STMT * stmt_handle,
+									  USHORT blr_length,
+									  SCHAR * blr,
+									  USHORT msg_type,
+									  USHORT msg_length, SCHAR * msg)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c u t e _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+
+	return GDS_DSQL_EXECUTE2_M(user_status, tra_handle, stmt_handle,
+							   blr_length, blr, msg_type, msg_length, msg,
+							   0, NULL, 0, 0, NULL);
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_EXECUTE2_M(STATUS * user_status,
+									   TRA * tra_handle,
+									   STMT * stmt_handle,
+									   USHORT in_blr_length,
+									   SCHAR * in_blr,
+									   USHORT in_msg_type,
+									   USHORT in_msg_length,
+									   SCHAR * in_msg,
+									   USHORT out_blr_length,
+									   SCHAR * out_blr,
+									   USHORT out_msg_type,
+									   USHORT out_msg_length, SCHAR * out_msg)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c u t e 2 _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+	STATUS *status, local[20];
+	STMT statement;
+	TRA transaction, handle = NULL;
+	PTR entry;
+	CLEAN clean;
+
+	GET_STATUS;
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, HANDLE_statement, isc_bad_stmt_handle);
+	if (transaction = *tra_handle)
+		CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+
+#ifndef NO_LOCAL_DSQL
+	if (statement->flags & HANDLE_STATEMENT_local) {
+		subsystem_enter();
+		dsql8_execute(status, tra_handle, &statement->handle,
+					  in_blr_length, in_blr, in_msg_type, in_msg_length,
+					  in_msg, out_blr_length, out_blr, out_msg_type,
+					  out_msg_length, out_msg);
+		subsystem_exit();
+	}
+	else
+#endif
+	{
+		if (transaction) {
+			handle = find_transaction(statement->parent, transaction);
+			CHECK_HANDLE(handle, HANDLE_transaction, isc_bad_trans_handle);
+			handle = handle->handle;
+		}
+		subsystem_enter();
+		entry = get_entrypoint(PROC_DSQL_EXECUTE2, statement->implementation);
+		if (entry != no_entrypoint &&
+			(*entry) (status,
+					  &handle,
+					  &statement->handle,
+					  in_blr_length,
+					  in_blr,
+					  in_msg_type,
+					  in_msg_length,
+					  in_msg,
+					  out_blr_length,
+					  out_blr,
+					  out_msg_type,
+					  out_msg_length, out_msg) != isc_unavailable);
+		else if (!out_blr_length && !out_msg_type && !out_msg_length)
+			CALL(PROC_DSQL_EXECUTE, statement->implementation) (status,
+																&handle,
+																&statement->
+																handle,
+																in_blr_length,
+																in_blr,
+																in_msg_type,
+																in_msg_length,
+																in_msg);
+		else
+			no_entrypoint(status);
+		subsystem_exit();
+
+		if (!status[1])
+		{
+			if (transaction && !handle) {
+				/* Call the associated cleanup handlers */
+
+				while (clean = transaction->cleanup) {
+					transaction->cleanup = clean->clean_next;
+					(*clean->clean_routine) (transaction, clean->clean_arg);
+					free_block(clean);
+				}
+
+				release_handle(transaction);
+				*tra_handle = NULL;
+			}
+			else if (!transaction && handle)
+			{
+				*tra_handle = allocate_handle(	statement->implementation,
+												handle,
+												HANDLE_transaction);
+				if (*tra_handle) {
+					(*tra_handle)->parent = statement->parent;
+				} else {
+					status[0] = isc_arg_gds;
+					status[1] = isc_virmemexh;
+					status[2] = isc_arg_end;
+				}
+			}
+		}
+	}
+
+	if (status[1]) {
+		return error2(status, local);
+	}
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_EXEC_IMMED(STATUS * user_status,
+									   ATT * db_handle,
+									   TRA * tra_handle,
+									   USHORT length,
+									   SCHAR * string,
+									   USHORT dialect, XSQLDA * sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c _ i m m e d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return GDS_DSQL_EXECUTE_IMMED(user_status,
+								  db_handle, tra_handle, length, string,
+								  dialect, sqlda);
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_EXECUTE_IMMED(STATUS * user_status,
+										  ATT * db_handle,
+										  TRA * tra_handle,
+										  USHORT length,
+										  SCHAR * string,
+										  USHORT dialect, XSQLDA * sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c u t e _ i m m e d i a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+
+	return GDS_DSQL_EXEC_IMMED2(user_status,
+								db_handle, tra_handle, length, string,
+								dialect, sqlda, NULL);
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_EXEC_IMMED2(STATUS * user_status,
+										ATT * db_handle,
+										TRA * tra_handle,
+										USHORT length,
+										SCHAR * string,
+										USHORT dialect,
+										XSQLDA * in_sqlda, XSQLDA * out_sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c _ i m m e d 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+	STATUS s, *status, local[20];
+	USHORT in_blr_length, in_msg_type, in_msg_length,
+		out_blr_length, out_msg_type, out_msg_length;
+	struct dasup dasup;
+
+	GET_STATUS;
+
+	if (*db_handle)
+		CHECK_HANDLE(*db_handle, HANDLE_database, isc_bad_db_handle);
+	if (*tra_handle)
+		CHECK_HANDLE(*tra_handle, HANDLE_transaction, isc_bad_trans_handle);
+
+	memset(&dasup, 0, sizeof(struct dasup));
+	if (UTLD_parse_sqlda(status, &dasup, &in_blr_length, &in_msg_type,
+						 &in_msg_length, dialect, in_sqlda,
+						 DASUP_CLAUSE_bind)) return error2(status, local);
+	if (UTLD_parse_sqlda
+		(status, &dasup, &out_blr_length, &out_msg_type, &out_msg_length,
+		 dialect, out_sqlda, DASUP_CLAUSE_select))
+		return error2(status, local);
+
+	if (!(s = GDS_DSQL_EXEC_IMM2_M(status, db_handle, tra_handle,
+								   length, string, dialect,
+								   in_blr_length,
+								   dasup.dasup_clauses[DASUP_CLAUSE_bind].
+								   dasup_blr, in_msg_type, in_msg_length,
+								   dasup.dasup_clauses[DASUP_CLAUSE_bind].
+								   dasup_msg, out_blr_length,
+								   dasup.dasup_clauses[DASUP_CLAUSE_select].
+								   dasup_blr, out_msg_type, out_msg_length,
+								   dasup.dasup_clauses[DASUP_CLAUSE_select].
+								   dasup_msg))) s =
+			UTLD_parse_sqlda(status, &dasup, NULL, NULL, NULL, dialect,
+							 out_sqlda, DASUP_CLAUSE_select);
+
+	if (dasup.dasup_clauses[DASUP_CLAUSE_bind].dasup_blr)
+		gds__free((SLONG *)
+				  (dasup.dasup_clauses[DASUP_CLAUSE_bind].dasup_blr));
+	if (dasup.dasup_clauses[DASUP_CLAUSE_bind].dasup_msg)
+		gds__free((SLONG *)
+				  (dasup.dasup_clauses[DASUP_CLAUSE_bind].dasup_msg));
+	if (dasup.dasup_clauses[DASUP_CLAUSE_select].dasup_blr)
+		gds__free((SLONG *)
+				  (dasup.dasup_clauses[DASUP_CLAUSE_select].dasup_blr));
+	if (dasup.dasup_clauses[DASUP_CLAUSE_select].dasup_msg)
+		gds__free((SLONG *)
+				  (dasup.dasup_clauses[DASUP_CLAUSE_select].dasup_msg));
+
+	CHECK_STATUS(status);
+	return s;
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_EXEC_IMM_M(STATUS * user_status,
+									   ATT * db_handle,
+									   TRA * tra_handle,
+									   USHORT length,
+									   SCHAR * string,
+									   USHORT dialect,
+									   USHORT blr_length,
+									   USHORT msg_type,
+									   USHORT msg_length,
+									   SCHAR * blr, SCHAR * msg)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c _ i m m e d _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return GDS_DSQL_EXECUTE_IMM_M(user_status, db_handle, tra_handle,
+								  length, string, dialect, blr_length, blr,
+								  msg_type, msg_length, msg);
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_EXECUTE_IMM_M(STATUS * user_status,
+										  ATT * db_handle,
+										  TRA * tra_handle,
+										  USHORT length,
+										  SCHAR * string,
+										  USHORT dialect,
+										  USHORT blr_length,
+										  SCHAR * blr,
+										  USHORT msg_type,
+										  USHORT msg_length, SCHAR * msg)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c u t e _ i m m e d i a t e _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+
+	return GDS_DSQL_EXEC_IMM2_M(user_status, db_handle, tra_handle,
+								length, string, dialect, blr_length, blr,
+								msg_type, msg_length, msg, 0, NULL, 0, 0,
+								NULL);
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_EXEC_IMM2_M(STATUS * user_status,
+										ATT * db_handle,
+										TRA * tra_handle,
+										USHORT length,
+										SCHAR * string,
+										USHORT dialect,
+										USHORT in_blr_length,
+										SCHAR * in_blr,
+										USHORT in_msg_type,
+										USHORT in_msg_length,
+										SCHAR * in_msg,
+										USHORT out_blr_length,
+										SCHAR * out_blr,
+										USHORT out_msg_type,
+										USHORT out_msg_length,
+										SCHAR * out_msg)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c _ i m m 2 _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+	TRA crdb_trans_handle;
+	STATUS temp_status[20];
+	STATUS local[20], *status, *s;
+	BOOLEAN stmt_eaten;
+	SCHAR buffer[16];
+	SCHAR ch;
+	BOOLEAN ret_v3_error;
+
+	GET_STATUS;
+
+	if (PREPARSE_execute(	status,
+							db_handle,
+							tra_handle,
+							length,
+							string,
+							&stmt_eaten,
+							dialect))
+	{
+		if (status[1])
+			return error2(status, local);
+
+		crdb_trans_handle = NULL;
+		if (GDS_START_TRANSACTION(status, &crdb_trans_handle, 1,
+								  db_handle, 0, (SCHAR *) 0)) {
+			save_error_string(status);
+			GDS_DROP_DATABASE(temp_status, db_handle);
+			*db_handle = NULL;
+			return error2(status, local);
+		}
+
+		ret_v3_error = FALSE;
+		if (!stmt_eaten) {
+			/* Check if against < 4.0 database */
+
+			ch = gds__info_base_level;
+			if (!GDS_DATABASE_INFO(status, db_handle, 1, &ch, sizeof(buffer),
+								   buffer)) {
+				if ((buffer[0] != gds__info_base_level) || (buffer[4] > 3))
+					GDS_DSQL_EXEC_IMM3_M(status, db_handle,
+										 &crdb_trans_handle, length, string,
+										 dialect, in_blr_length, in_blr,
+										 in_msg_type, in_msg_length, in_msg,
+										 out_blr_length, out_blr,
+										 out_msg_type, out_msg_length,
+										 out_msg);
+				else
+					ret_v3_error = TRUE;
+			}
+		}
+
+		if (status[1]) {
+			GDS_ROLLBACK(temp_status, &crdb_trans_handle);
+			save_error_string(status);
+			GDS_DROP_DATABASE(temp_status, db_handle);
+			*db_handle = NULL;
+			return error2(status, local);
+		}
+		else {
+			if (GDS_COMMIT(status, &crdb_trans_handle)) {
+				GDS_ROLLBACK(temp_status, &crdb_trans_handle);
+				save_error_string(status);
+				GDS_DROP_DATABASE(temp_status, db_handle);
+				*db_handle = NULL;
+				return error2(status, local);
+			}
+		}
+
+		if (ret_v3_error) {
+			s = status;
+			*s++ = isc_arg_gds;
+			*s++ = isc_srvr_version_too_old;
+			*s = isc_arg_end;
+			return error2(status, local);
+		}
+		CHECK_STATUS_SUCCESS(status);
+		return SUCCESS;
+	}
+	else
+		return GDS_DSQL_EXEC_IMM3_M(user_status, db_handle, tra_handle,
+									length, string, dialect,
+									in_blr_length, in_blr, in_msg_type,
+									in_msg_length, in_msg, out_blr_length,
+									out_blr, out_msg_type, out_msg_length,
+									out_msg);
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_EXEC_IMM3_M(STATUS * user_status,
+										ATT * db_handle,
+										TRA * tra_handle,
+										USHORT length,
+										SCHAR * string,
+										USHORT dialect,
+										USHORT in_blr_length,
+										SCHAR * in_blr,
+										USHORT in_msg_type,
+										USHORT in_msg_length,
+										SCHAR * in_msg,
+										USHORT out_blr_length,
+										SCHAR * out_blr,
+										USHORT out_msg_type,
+										USHORT out_msg_length,
+										SCHAR * out_msg)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ e x e c _ i m m 3 _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+	STATUS s, *status, local[20];
+	ATT dbb;
+	TRA transaction, handle = NULL;
+	PTR entry;
+	CLEAN clean;
+
+/* If we haven't been initialized yet, do it now */
+
+	GET_STATUS;
+
+	dbb = *db_handle;
+	CHECK_HANDLE(dbb, HANDLE_database, isc_bad_db_handle);
+	if (transaction = *tra_handle) {
+		CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+		handle = find_transaction(dbb, transaction);
+		CHECK_HANDLE(handle, HANDLE_transaction, isc_bad_trans_handle);
+		handle = handle->handle;
+	}
+
+/* Attempt to have the implementation which processed the database attach
+   process the prepare statement.  This may not be feasible (e.g., the 
+   server doesn't support remote DSQL because it's the wrong version or 
+   something) in which case, execute the functionality locally (and hence 
+   remotely through the original Y-valve). */
+
+	s = isc_unavailable;
+	entry = get_entrypoint(PROC_DSQL_EXEC_IMMED2, dbb->implementation);
+	if (entry != no_entrypoint) {
+		subsystem_enter();
+		s = (*entry) (status,
+					  &dbb->handle,
+					  &handle,
+					  length,
+					  string,
+					  dialect,
+					  in_blr_length,
+					  in_blr,
+					  in_msg_type,
+					  in_msg_length,
+					  in_msg,
+					  out_blr_length,
+					  out_blr, out_msg_type, out_msg_length, out_msg);
+		subsystem_exit();
+	}
+
+	if (s == isc_unavailable && !out_msg_length) {
+		entry = get_entrypoint(PROC_DSQL_EXEC_IMMED, dbb->implementation);
+		if (entry != no_entrypoint)
+		{
+			subsystem_enter();
+			s = (*entry) (status,
+						  &dbb->handle,
+						  &handle,
+						  length,
+						  string,
+						  dialect,
+						  in_blr_length,
+						  in_blr, in_msg_type, in_msg_length, in_msg);
+			subsystem_exit();
+		}
+	}
+
+	if (s != isc_unavailable && !status[1])
+		if (transaction && !handle) {
+			/* Call the associated cleanup handlers */
+
+			while (clean = transaction->cleanup) {
+				transaction->cleanup = clean->clean_next;
+				(*clean->clean_routine) (transaction, clean->clean_arg);
+				free_block(clean);
+			}
+
+			release_handle(transaction);
+			*tra_handle = NULL;
+		}
+		else if (!transaction && handle) {
+			if (*tra_handle =
+				allocate_handle(dbb->implementation, handle,
+								HANDLE_transaction))
+				(*tra_handle)->parent = dbb;
+			else {
+				status[0] = isc_arg_gds;
+				status[1] = isc_virmemexh;
+				status[2] = isc_arg_end;
+				return error2(status, local);
+			}
+		}
+
+#ifndef NO_LOCAL_DSQL
+	if (s == isc_unavailable) {
+		/* if the entry point didn't exist or if the routine said the server
+		   didn't support the protocol... do it locally */
+
+		subsystem_enter();
+		dsql8_execute_immediate(status, db_handle, tra_handle,
+								length, string, dialect,
+								in_blr_length, in_blr, in_msg_type,
+								in_msg_length, in_msg, out_blr_length,
+								out_blr, out_msg_type, out_msg_length,
+								out_msg);
+		subsystem_exit();
+	}
+#endif
+
+	if (status[1])
+		return error2(status, local);
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_FETCH(STATUS * user_status,
+								  STMT * stmt_handle,
+								  USHORT dialect, XSQLDA * sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+	STATUS s, *status, local[20];
+	STMT statement;
+	USHORT blr_length, msg_type, msg_length;
+	DASUP dasup;
+
+	GET_STATUS;
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, HANDLE_statement, isc_bad_stmt_handle);
+
+	if (!sqlda) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_dsql_sqlda_err;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+
+	if (!(dasup = (DASUP) statement->requests))
+		return bad_handle(user_status, isc_unprepared_stmt);
+
+	if (UTLD_parse_sqlda(status, dasup, &blr_length, &msg_type, &msg_length,
+						 dialect, sqlda, DASUP_CLAUSE_select))
+		return error2(status, local);
+
+	if ((s = GDS_DSQL_FETCH_M(status, stmt_handle, blr_length,
+							  dasup->dasup_clauses[DASUP_CLAUSE_select].
+							  dasup_blr, 0, msg_length,
+							  dasup->dasup_clauses[DASUP_CLAUSE_select].
+							  dasup_msg)) && s != 101) {
+		CHECK_STATUS(status);
+		return s;
+	}
+
+	if (UTLD_parse_sqlda(status, dasup, NULL, NULL, NULL,
+						 dialect, sqlda, DASUP_CLAUSE_select))
+			return error2(status, local);
+
+	CHECK_STATUS(status);
+	return s;
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+STATUS API_ROUTINE GDS_DSQL_FETCH2(STATUS * user_status,
+								   STMT * stmt_handle,
+								   USHORT dialect,
+								   XSQLDA * sqlda,
+								   USHORT direction, SLONG offset)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ f e t c h 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+	STATUS s, *status, local[20];
+	STMT statement;
+	USHORT blr_length, msg_type, msg_length;
+	DASUP dasup;
+
+	GET_STATUS;
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, HANDLE_statement, isc_bad_stmt_handle);
+
+	if (!(dasup = (DASUP) statement->requests))
+		return bad_handle(user_status, isc_unprepared_stmt);
+
+	if (UTLD_parse_sqlda(status, dasup, &blr_length, &msg_type, &msg_length,
+						 dialect, sqlda, DASUP_CLAUSE_select))
+		return error2(status, local);
+
+	if ((s = GDS_DSQL_FETCH2_M(status, stmt_handle, blr_length,
+							   dasup->dasup_clauses[DASUP_CLAUSE_select].
+							   dasup_blr, 0, msg_length,
+							   dasup->dasup_clauses[DASUP_CLAUSE_select].
+							   dasup_msg, direction, offset)) && s != 101) {
+		CHECK_STATUS(status);
+		return s;
+	}
+
+	if (UTLD_parse_sqlda(status, dasup, NULL, NULL, NULL,
+						 dialect, sqlda, DASUP_CLAUSE_select))
+			return error2(status, local);
+
+	CHECK_STATUS(status);
+	return s;
+}
+#endif
+
+
+STATUS API_ROUTINE GDS_DSQL_FETCH_M(STATUS * user_status,
+									STMT * stmt_handle,
+									USHORT blr_length,
+									SCHAR * blr,
+									USHORT msg_type,
+									USHORT msg_length, SCHAR * msg)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ f e t c h _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+	STATUS s, *status, local[20];
+	STMT statement;
+
+	GET_STATUS;
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, HANDLE_statement, isc_bad_stmt_handle);
+
+	subsystem_enter();
+
+#ifndef NO_LOCAL_DSQL
+	if (statement->flags & HANDLE_STATEMENT_local)
+		s = dsql8_fetch(status,
+						&statement->handle, blr_length, blr, msg_type,
+						msg_length, msg
+#ifdef	SCROLLABLE_CURSORS
+						, (USHORT) 0, (ULONG) 1);
+#else
+			);
+#endif
+	else
+#endif
+		s = CALL(PROC_DSQL_FETCH, statement->implementation) (status,
+															  &statement->
+															  handle,
+															  blr_length, blr,
+															  msg_type,
+															  msg_length, msg
+#ifdef SCROLLABLE_CURSORS
+															  ,
+															  (USHORT) 0,
+															  (ULONG) 1);
+#else
+			);
+#endif
+
+	subsystem_exit();
+
+	CHECK_STATUS(status);
+	if (s == 100 || s == 101)
+		return s;
+	else if (s)
+		return error2(status, local);
+
+	return SUCCESS;
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+STATUS API_ROUTINE GDS_DSQL_FETCH2_M(STATUS * user_status,
+									 STMT * stmt_handle,
+									 USHORT blr_length,
+									 SCHAR * blr,
+									 USHORT msg_type,
+									 USHORT msg_length,
+									 SCHAR * msg,
+									 USHORT direction, SLONG offset)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ f e t c h 2 _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor
+ *
+ **************************************/
+	STATUS s, *status, local[20];
+	STMT statement;
+
+	GET_STATUS;
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, HANDLE_statement, isc_bad_stmt_handle);
+
+	subsystem_enter();
+
+#ifndef NO_LOCAL_DSQL
+	if (statement->flags & HANDLE_STATEMENT_local)
+		s = dsql8_fetch(status,
+						&statement->handle, blr_length, blr, msg_type,
+						msg_length, msg, direction, offset);
+	else
+#endif
+		s = CALL(PROC_DSQL_FETCH, statement->implementation) (status,
+															  &statement->
+															  handle,
+															  blr_length, blr,
+															  msg_type,
+															  msg_length, msg,
+															  direction,
+															  offset);
+
+	subsystem_exit();
+
+	CHECK_STATUS(status);
+	if (s == 100 || s == 101)
+		return s;
+	else if (s)
+		return error2(status, local);
+
+	return SUCCESS;
+}
+#endif
+
+
+STATUS API_ROUTINE GDS_DSQL_FREE(STATUS * user_status,
+								 STMT * stmt_handle, USHORT option)
+{
+/*****************************************
+ *
+ *	i s c _ d s q l _ f r e e _ s t a t e m e n t
+ *
+ *****************************************
+ *
+ * Functional Description
+ *	release request for an sql statement
+ *
+ *****************************************/
+	STATUS *status, local[20];
+	STMT statement;
+	DBB dbb, *ptr;
+
+	GET_STATUS;
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, HANDLE_statement, isc_bad_stmt_handle);
+
+	subsystem_enter();
+
+#ifndef NO_LOCAL_DSQL
+	if (statement->flags & HANDLE_STATEMENT_local)
+		dsql8_free_statement(status, &statement->handle, option);
+	else
+#endif
+		CALL(PROC_DSQL_FREE, statement->implementation) (status,
+														 &statement->handle,
+														 option);
+
+	subsystem_exit();
+
+	if (status[1])
+		return error2(status, local);
+
+/* Release the handle and any request hanging off of it. */
+
+	if (option & DSQL_drop) {
+		/* Get rid of connections to database */
+
+		dbb = statement->parent;
+		for (ptr = &dbb->statements; *ptr; ptr = &(*ptr)->next)
+			if (*ptr == statement) {
+				*ptr = statement->next;
+				break;
+			}
+
+		release_dsql_support(statement->requests);
+		release_handle(statement);
+		*stmt_handle = NULL;
+	}
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_INSERT(STATUS * user_status,
+								   STMT * stmt_handle,
+								   USHORT dialect, XSQLDA * sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert next record into a dynamic SQL cursor
+ *
+ **************************************/
+	STATUS *status, local[20];
+	STMT statement;
+	USHORT blr_length, msg_type, msg_length;
+	DASUP dasup;
+
+	GET_STATUS;
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, HANDLE_statement, isc_bad_stmt_handle);
+
+	if (!(dasup = (DASUP) statement->requests))
+		return bad_handle(user_status, isc_unprepared_stmt);
+
+	if (UTLD_parse_sqlda(status, dasup, &blr_length, &msg_type, &msg_length,
+						 dialect, sqlda, DASUP_CLAUSE_bind))
+		return error2(status, local);
+
+	return GDS_DSQL_INSERT_M(status, stmt_handle, blr_length,
+							 dasup->dasup_clauses[DASUP_CLAUSE_bind].
+							 dasup_blr, 0, msg_length,
+							 dasup->dasup_clauses[DASUP_CLAUSE_bind].
+							 dasup_msg);
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_INSERT_M(STATUS * user_status,
+									 STMT * stmt_handle,
+									 USHORT blr_length,
+									 SCHAR * blr,
+									 USHORT msg_type,
+									 USHORT msg_length, SCHAR * msg)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ i n s e r t _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert next record into a dynamic SQL cursor
+ *
+ **************************************/
+	STATUS s, *status, local[20];
+	STMT statement;
+
+	GET_STATUS;
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, HANDLE_statement, isc_bad_stmt_handle);
+
+	subsystem_enter();
+
+#ifndef NO_LOCAL_DSQL
+	if (statement->flags & HANDLE_STATEMENT_local)
+		s = dsql8_insert(status,
+						 &statement->handle, blr_length, blr, msg_type,
+						 msg_length, msg);
+	else
+#endif
+		s = CALL(PROC_DSQL_INSERT, statement->implementation) (status,
+															   &statement->
+															   handle,
+															   blr_length,
+															   blr, msg_type,
+															   msg_length,
+															   msg);
+
+	subsystem_exit();
+
+	if (s)
+		return error2(status, local);
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_PREPARE(STATUS * user_status,
+									TRA * tra_handle,
+									STMT * stmt_handle,
+									USHORT length,
+									SCHAR * string,
+									USHORT dialect, XSQLDA * sqlda)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+	STATUS *status, local[20];
+	USHORT buffer_len;
+#ifdef STACK_EFFICIENT
+	SCHAR *buffer, local_buffer[1];
+#else
+	SCHAR *buffer, local_buffer[BUFFER_MEDIUM];
+#endif /* STACK_EFFICIENT */
+	DASUP dasup;
+
+	GET_STATUS;
+	CHECK_HANDLE(*stmt_handle, HANDLE_statement, isc_bad_stmt_handle);
+	if (*tra_handle)
+		CHECK_HANDLE(*tra_handle, HANDLE_transaction, isc_bad_trans_handle);
+
+	if (!(buffer = get_sqlda_buffer(local_buffer, sizeof(local_buffer), sqlda,
+									dialect, &buffer_len))) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+
+	if (!GDS_DSQL_PREPARE_M(status,
+							tra_handle,
+							stmt_handle,
+							length,
+							string,
+							dialect,
+							sizeof(sql_prepare_info),
+							sql_prepare_info,
+							buffer_len,
+							buffer))
+	{
+		release_dsql_support((*stmt_handle)->requests);
+
+		if (!(dasup = (DASUP) alloc((SLONG) sizeof(struct dasup)))) {
+			(*stmt_handle)->requests = NULL_PTR;
+			status[0] = isc_arg_gds;
+			status[1] = isc_virmemexh;
+			status[2] = isc_arg_end;
+		}
+		else {
+			(*stmt_handle)->requests = (HNDL) dasup;
+			dasup->dasup_dialect = dialect;
+
+			iterative_sql_info(status, stmt_handle, sizeof(sql_prepare_info),
+							   sql_prepare_info, buffer_len, buffer, dialect,
+							   sqlda);
+		}
+	}
+
+	if (buffer != local_buffer)
+		free_block(buffer);
+
+	if (status[1])
+		return error2(status, local);
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_PREPARE_M(STATUS * user_status,
+									  TRA * tra_handle,
+									  STMT * stmt_handle,
+									  USHORT length,
+									  SCHAR * string,
+									  USHORT dialect,
+									  USHORT GDS_VAL(item_length),
+									  SCHAR * items,
+									  USHORT GDS_VAL(buffer_length),
+									  SCHAR * buffer)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ p r e p a r e _ m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a statement for execution.
+ *
+ **************************************/
+	STATUS *status, local[20];
+	STMT statement;
+	TRA handle = NULL, transaction;
+
+	GET_STATUS;
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, HANDLE_statement, isc_bad_stmt_handle);
+	if (transaction = *tra_handle) {
+		CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+		handle = find_transaction(statement->parent, transaction);
+		CHECK_HANDLE(handle, HANDLE_transaction, isc_bad_trans_handle);
+		handle = handle->handle;
+	}
+
+	subsystem_enter();
+
+#ifndef NO_LOCAL_DSQL
+	if (statement->flags & HANDLE_STATEMENT_local)
+		dsql8_prepare(status, tra_handle, &statement->handle,
+					  length, string, dialect, item_length, items,
+					  buffer_length, buffer);
+	else
+#endif
+	{
+		CALL(PROC_DSQL_PREPARE, statement->implementation) (status,
+															&handle,
+															&statement->
+															handle, length,
+															string, dialect,
+															item_length,
+															items,
+															buffer_length,
+															buffer);
+	}
+
+	subsystem_exit();
+
+	if (status[1])
+		return error2(status, local);
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_SET_CURSOR(STATUS * user_status,
+									   STMT * stmt_handle,
+									   SCHAR * cursor, USHORT type)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ s e t _ c u r s o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set a cursor name for a dynamic request.
+ *
+ **************************************/
+	STATUS *status, local[20];
+	STMT statement;
+
+	GET_STATUS;
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, HANDLE_statement, isc_bad_stmt_handle);
+
+	subsystem_enter();
+
+#ifndef NO_LOCAL_DSQL
+	if (statement->flags & HANDLE_STATEMENT_local)
+		dsql8_set_cursor(status, &statement->handle, cursor, type);
+	else
+#endif
+		CALL(PROC_DSQL_SET_CURSOR, statement->implementation) (status,
+															   &statement->
+															   handle, cursor,
+															   type);
+
+	subsystem_exit();
+
+	if (status[1])
+		return error2(status, local);
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_DSQL_SQL_INFO(STATUS * user_status,
+									 STMT * stmt_handle,
+									 SSHORT GDS_VAL(item_length),
+									 SCHAR * items,
+									 SSHORT GDS_VAL(buffer_length),
+									 SCHAR * buffer)
+{
+/**************************************
+ *
+ *	i s c _ d s q l _ s q l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on sql statement.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	STMT statement;
+
+	GET_STATUS;
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, HANDLE_statement, isc_bad_stmt_handle);
+
+	subsystem_enter();
+
+#ifndef NO_LOCAL_DSQL
+	if (statement->flags & HANDLE_STATEMENT_local)
+		dsql8_sql_info(status, &statement->handle, item_length, items,
+					   buffer_length, buffer);
+	else
+#endif
+		CALL(PROC_DSQL_SQL_INFO, statement->implementation) (status,
+															 &statement->
+															 handle,
+															 item_length,
+															 items,
+															 buffer_length,
+															 buffer);
+
+	subsystem_exit();
+
+	if (status[1])
+		return error2(status, local);
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+int API_ROUTINE gds__enable_subsystem(TEXT * subsystem)
+{
+/**************************************
+ *
+ *	g d s _ $ e n a b l e _ s u b s y s t e m 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enable access to a specific subsystem.  If no subsystem
+ *	has been explicitly enabled, all are available.
+ *
+ **************************************/
+	IMAGE *sys, *end;
+
+	for (sys = images, end = sys + SUBSYSTEMS; sys < end; sys++)
+		if (!strcmp(sys->name, subsystem)) {
+			if (!~why_enabled)
+				why_enabled = 0;
+			why_enabled |= (1 << (sys - images));
+			return TRUE;
+		}
+
+	return FALSE;
+}
+
+
+#ifndef REQUESTER
+STATUS API_ROUTINE GDS_EVENT_WAIT(STATUS * user_status,
+								  ATT * handle,
+								  USHORT GDS_VAL(length),
+								  UCHAR * events, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ e v e n t _ w a i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que request for event notification.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	SLONG value, id;
+	EVENT event_ptr;
+
+	GET_STATUS;
+
+	if (!why_initialized) {
+		gds__register_cleanup(exit_handler, why_event);
+		why_initialized = TRUE;
+		ISC_event_init(why_event, 0, 0);
+	}
+
+	value = ISC_event_clear(why_event);
+
+	if (GDS_QUE_EVENTS
+		(status, handle, &id, length, events, event_ast,
+		 buffer)) return error2(status, local);
+
+	event_ptr = why_event;
+	ISC_event_wait(1, &event_ptr, &value, -1, NULL_PTR, NULL_PTR);
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+#endif
+
+
+STATUS API_ROUTINE GDS_GET_SEGMENT(STATUS * user_status,
+								   BLB * blob_handle,
+								   USHORT * length,
+								   USHORT GDS_VAL(buffer_length),
+								   UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	STATUS local[20], *status, code;
+	BLB blob;
+
+	GET_STATUS;
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, HANDLE_blob, isc_bad_segstr_handle);
+	subsystem_enter();
+
+	code = CALL(PROC_GET_SEGMENT, blob->implementation) (status,
+														 &blob->handle,
+														 length,
+														 GDS_VAL
+														 (buffer_length),
+														 buffer);
+
+	if (code) {
+		if (code == isc_segstr_eof || code == isc_segment) {
+			subsystem_exit();
+			CHECK_STATUS(status);
+			return code;
+		}
+		return error(status, local);
+	}
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_GET_SLICE(STATUS * user_status,
+								 ATT * db_handle,
+								 TRA * tra_handle,
+								 SLONG * array_id,
+								 USHORT GDS_VAL(sdl_length),
+								 UCHAR * sdl,
+								 USHORT GDS_VAL(param_length),
+								 UCHAR * param,
+								 SLONG GDS_VAL(slice_length),
+								 UCHAR * slice, SLONG * return_length)
+{
+/**************************************
+ *
+ *	g d s _ $ g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT dbb;
+	TRA transaction;
+
+	GET_STATUS;
+	dbb = *db_handle;
+	CHECK_HANDLE(dbb, HANDLE_database, isc_bad_db_handle);
+	transaction = find_transaction(dbb, *tra_handle);
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_GET_SLICE, dbb->implementation) (status,
+												   &dbb->handle,
+												   &transaction->handle,
+												   array_id,
+												   GDS_VAL(sdl_length),
+												   sdl,
+												   GDS_VAL(param_length),
+												   param,
+												   GDS_VAL(slice_length),
+												   slice,
+												   return_length))
+			return error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS gds__handle_cleanup(STATUS * user_status, HNDL * user_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ h a n d l e _ c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clean up a dangling y-valve handle.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	HNDL handle;
+	TRA transaction, sub;
+	CLEAN clean;
+
+	GET_STATUS;
+
+	if (!(handle = *user_handle)) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_bad_db_handle;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+
+	switch (handle->type) {
+	case HANDLE_transaction:
+
+		/* Call the associated cleanup handlers */
+
+		transaction = (TRA) handle;
+		while (clean = transaction->cleanup) {
+			transaction->cleanup = clean->clean_next;
+			(*clean->clean_routine) (transaction, clean->clean_arg);
+			free_block(clean);
+		}
+		while (sub = transaction) {
+			transaction = sub->next;
+			release_handle(sub);
+		}
+		break;
+
+	default:
+		status[0] = isc_arg_gds;
+		status[1] = isc_bad_db_handle;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_OPEN_BLOB(STATUS * user_status,
+								 ATT * db_handle,
+								 TRA * tra_handle,
+								 BLB * blob_handle, SLONG * blob_id)
+{
+/**************************************
+ *
+ *	g d s _ $ o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+
+	return open_blob(user_status, db_handle, tra_handle, blob_handle, blob_id,
+					 0, NULL_PTR, PROC_OPEN_BLOB, PROC_OPEN_BLOB2);
+}
+
+
+STATUS API_ROUTINE GDS_OPEN_BLOB2(STATUS * user_status,
+								  ATT * db_handle,
+								  TRA * tra_handle,
+								  BLB * blob_handle,
+								  SLONG * blob_id,
+								  SSHORT GDS_VAL(bpb_length), UCHAR * bpb)
+{
+/**************************************
+ *
+ *	g d s _ $ o p e n _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob (extended edition).
+ *
+ **************************************/
+
+	return open_blob(user_status, db_handle, tra_handle, blob_handle, blob_id,
+					 GDS_VAL(bpb_length), bpb, PROC_OPEN_BLOB,
+					 PROC_OPEN_BLOB2);
+}
+
+
+STATUS API_ROUTINE GDS_PREPARE(STATUS * user_status, TRA * tra_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First phase of a two
+ *	phase commit.
+ *
+ **************************************/
+	return GDS_PREPARE2(user_status, tra_handle, 0, NULL_PTR);
+}
+
+
+STATUS API_ROUTINE GDS_PREPARE2(STATUS * user_status,
+								TRA * tra_handle,
+								USHORT GDS_VAL(msg_length), UCHAR * msg)
+{
+/**************************************
+ *
+ *	g d s _ $ p r e p a r e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First phase of a two
+ *	phase commit.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	TRA transaction, sub;
+
+	GET_STATUS;
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+	for (sub = transaction; sub; sub = sub->next)
+		if (sub->implementation != SUBSYSTEMS &&
+			CALL(PROC_PREPARE, sub->implementation) (status,
+													 &sub->handle,
+													 GDS_VAL(msg_length),
+													 msg))
+				return error(status, local);
+
+	transaction->flags |= HANDLE_TRANSACTION_limbo;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_PUT_SEGMENT(STATUS * user_status,
+								   BLB * blob_handle,
+								   USHORT GDS_VAL(buffer_length),
+								   UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	BLB blob;
+
+	GET_STATUS;
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, HANDLE_blob, isc_bad_segstr_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_PUT_SEGMENT, blob->implementation) (status,
+													  &blob->handle,
+													  GDS_VAL(buffer_length),
+													  buffer))
+			return error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_PUT_SLICE(STATUS * user_status,
+								 ATT * db_handle,
+								 TRA * tra_handle,
+								 SLONG * array_id,
+								 USHORT GDS_VAL(sdl_length),
+								 UCHAR * sdl,
+								 USHORT GDS_VAL(param_length),
+								 UCHAR * param,
+								 SLONG GDS_VAL(slice_length), UCHAR * slice)
+{
+/**************************************
+ *
+ *	g d s _ $ p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT dbb;
+	TRA transaction;
+
+	GET_STATUS;
+	dbb = *db_handle;
+	CHECK_HANDLE(dbb, HANDLE_database, isc_bad_db_handle);
+	transaction = find_transaction(dbb, *tra_handle);
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_PUT_SLICE, dbb->implementation) (status,
+												   &dbb->handle,
+												   &transaction->handle,
+												   array_id,
+												   GDS_VAL(sdl_length),
+												   sdl,
+												   GDS_VAL(param_length),
+												   param,
+												   GDS_VAL(slice_length),
+												   slice))
+			return error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_QUE_EVENTS(STATUS * user_status,
+								  ATT * handle,
+								  SLONG * id,
+								  USHORT GDS_VAL(length),
+								  UCHAR * events,
+								  void (GDS_VAL(*ast)) (), void *arg)
+{
+/**************************************
+ *
+ *	g d s _ $ q u e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que request for event notification.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT database;
+
+	GET_STATUS;
+	database = *handle;
+	CHECK_HANDLE(database, HANDLE_database, isc_bad_db_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_QUE_EVENTS, database->implementation) (status,
+														 &database->handle,
+														 id,
+														 GDS_VAL(length),
+														 events,
+														 GDS_VAL(ast),
+														 arg))
+			return error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_RECEIVE(STATUS * user_status,
+							   REQ * req_handle,
+							   USHORT GDS_VAL(msg_type),
+							   USHORT GDS_VAL(msg_length),
+							   SCHAR * msg, SSHORT GDS_VAL(level))
+{
+/**************************************
+ *
+ *	g d s _ $ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+
+#ifdef SCROLLABLE_CURSORS
+	return GDS_RECEIVE2(user_status, req_handle, msg_type, msg_length,
+						msg, level, (USHORT) blr_continue,	/* means continue in same direction as before */
+						(ULONG) 1);
+#else
+	STATUS local[20], *status;
+	REQ request;
+
+	GET_STATUS;
+	request = *req_handle;
+	CHECK_HANDLE(request, HANDLE_request, isc_bad_req_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_RECEIVE, request->implementation) (status,
+													 &request->handle,
+													 GDS_VAL(msg_type),
+													 GDS_VAL(msg_length),
+													 msg,
+													 GDS_VAL(level)))
+			return error(status, local);
+
+	RETURN_SUCCESS;
+#endif
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+STATUS API_ROUTINE GDS_RECEIVE2(STATUS * user_status,
+								REQ * req_handle,
+								USHORT GDS_VAL(msg_type),
+								USHORT GDS_VAL(msg_length),
+								SCHAR * msg,
+								SSHORT GDS_VAL(level),
+								USHORT direction, ULONG offset)
+{
+/**************************************
+ *
+ *	i s c _ r e c e i v e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Scroll through the request output stream, 
+ *	then get a record from the host program.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	REQ request;
+
+	GET_STATUS;
+	request = *req_handle;
+	CHECK_HANDLE(request, HANDLE_request, isc_bad_req_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_RECEIVE, request->implementation) (status,
+													 &request->handle,
+													 GDS_VAL(msg_type),
+													 GDS_VAL(msg_length),
+													 msg,
+													 GDS_VAL(level),
+													 direction,
+													 offset))
+			return error(status, local);
+
+	RETURN_SUCCESS;
+}
+#endif
+
+
+STATUS API_ROUTINE GDS_RECONNECT(STATUS * user_status,
+								 ATT * db_handle,
+								 TRA * tra_handle,
+								 SSHORT GDS_VAL(length), UCHAR * id)
+{
+/**************************************
+ *
+ *	g d s _ $ r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to a transaction in limbo.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT database;
+
+	GET_STATUS;
+	NULL_CHECK(tra_handle, isc_bad_trans_handle, HANDLE_transaction);
+	database = *db_handle;
+	CHECK_HANDLE(database, HANDLE_database, isc_bad_db_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_RECONNECT, database->implementation) (status,
+														&database->handle,
+														tra_handle,
+														GDS_VAL(length),
+														id))
+			return error(status, local);
+
+	*tra_handle = allocate_handle(	database->implementation,
+									*tra_handle,
+									HANDLE_transaction);
+	if (*tra_handle) {
+		(*tra_handle)->parent = database;
+	} else {
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		return error(status, local);
+	}
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_RELEASE_REQUEST(STATUS * user_status, REQ * req_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	REQ request, *ptr;
+	DBB dbb;
+
+	GET_STATUS;
+	request = *req_handle;
+	CHECK_HANDLE(request, HANDLE_request, isc_bad_req_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_RELEASE_REQUEST, request->implementation) (status,
+															 &request->
+															 handle)) return
+			error(status, local);
+
+/* Get rid of connections to database */
+
+	dbb = request->parent;
+
+	for (ptr = &dbb->requests; *ptr; ptr = &(*ptr)->next)
+		if (*ptr == request) {
+			*ptr = request->next;
+			break;
+		}
+
+	release_handle(request);
+	*req_handle = NULL;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_REQUEST_INFO(STATUS * user_status,
+									REQ * req_handle,
+									SSHORT GDS_VAL(level),
+									SSHORT GDS_VAL(item_length),
+									SCHAR * items,
+									SSHORT GDS_VAL(buffer_length),
+									SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ r e q u e s t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	REQ request;
+
+	GET_STATUS;
+	request = *req_handle;
+	CHECK_HANDLE(request, HANDLE_request, isc_bad_req_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_REQUEST_INFO, request->implementation) (status,
+														  &request->handle,
+														  GDS_VAL(level),
+														  GDS_VAL
+														  (item_length),
+														  items,
+														  GDS_VAL
+														  (buffer_length),
+														  buffer)) return
+			error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+SLONG API_ROUTINE isc_reset_fpe(USHORT fpe_status)
+{
+/**************************************
+ *
+ *	i s c _ r e s e t _ f p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	API to be used to tell InterBase to reset it's
+ *	FPE handler - eg: client has an FPE of it's own
+ *	and just changed it.
+ *
+ * Returns
+ *	Prior setting of the FPE reset flag
+ *
+ **************************************/
+#if !(defined REQUESTER || defined PIPE_CLIENT || defined SUPERCLIENT || defined SUPERSERVER)
+	SLONG prior;
+	prior = (SLONG) subsystem_FPE_reset;
+	switch (fpe_status) {
+	case FPE_RESET_INIT_ONLY:
+		subsystem_FPE_reset = fpe_status;
+		break;
+	case FPE_RESET_NEXT_API_CALL:
+		subsystem_FPE_reset = fpe_status;
+		break;
+	case FPE_RESET_ALL_API_CALL:
+		subsystem_FPE_reset = fpe_status;
+		break;
+	default:
+		break;
+	}
+	return prior;
+#else
+	return FPE_RESET_INIT_ONLY;
+#endif
+}
+
+
+STATUS API_ROUTINE GDS_ROLLBACK_RETAINING(STATUS * user_status,
+										  TRA * tra_handle)
+{
+/**************************************
+ *
+ *	i s c _ r o l l b a c k _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction, but keep all cursors open.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	TRA transaction, sub;
+
+	GET_STATUS;
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+	for (sub = transaction; sub; sub = sub->next)
+		if (sub->implementation != SUBSYSTEMS &&
+			CALL(PROC_ROLLBACK_RETAINING, sub->implementation) (status,
+																&sub->handle))
+				return error(status, local);
+
+	transaction->flags |= HANDLE_TRANSACTION_limbo;
+
+	RETURN_SUCCESS;
+}
+STATUS API_ROUTINE GDS_ROLLBACK(STATUS * user_status, TRA * tra_handle)
+{
+/**************************************
+ *
+ *	g d s _ $ r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	TRA transaction, sub;
+	CLEAN clean;
+
+	GET_STATUS;
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+	for (sub = transaction; sub; sub = sub->next)
+		if (sub->implementation != SUBSYSTEMS &&
+			CALL(PROC_ROLLBACK, sub->implementation) (status, &sub->handle))
+			return error(status, local);
+
+	subsystem_exit();
+
+/* Call the associated cleanup handlers */
+
+	while (clean = transaction->cleanup) {
+		transaction->cleanup = clean->clean_next;
+		(*clean->clean_routine) (transaction, clean->clean_arg);
+		free_block(clean);
+	}
+
+	while (sub = transaction) {
+		transaction = sub->next;
+		release_handle(sub);
+	}
+	*tra_handle = NULL;
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_SEEK_BLOB(STATUS * user_status,
+								 BLB * blob_handle,
+								 SSHORT GDS_VAL(mode),
+								 SLONG GDS_VAL(offset), SLONG * result)
+{
+/**************************************
+ *
+ *	g d s _ $ s e e k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Seek a blob.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	BLB blob;
+
+	GET_STATUS;
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, HANDLE_blob, isc_bad_segstr_handle);
+	subsystem_enter();
+
+/***
+if (blob->flags & HANDLE_BLOB_filter)
+    {
+    subsystem_exit();
+    BLF_close_blob (status, &blob->handle);
+    subsystem_enter();
+    }
+else
+***/
+	CALL(PROC_SEEK_BLOB, blob->implementation) (status,
+												&blob->handle,
+												GDS_VAL(mode),
+												GDS_VAL(offset), result);
+
+	if (status[1])
+		return error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_SEND(STATUS * user_status,
+							REQ * req_handle,
+							USHORT GDS_VAL(msg_type),
+							USHORT GDS_VAL(msg_length),
+							SCHAR * msg, SSHORT GDS_VAL(level))
+{
+/**************************************
+ *
+ *	g d s _ $ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	REQ request;
+
+	GET_STATUS;
+	request = *req_handle;
+	CHECK_HANDLE(request, HANDLE_request, isc_bad_req_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_SEND, request->implementation) (status,
+												  &request->handle,
+												  GDS_VAL(msg_type),
+												  GDS_VAL(msg_length),
+												  msg,
+												  GDS_VAL(level)))
+			return error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_SERVICE_ATTACH(STATUS * user_status,
+									  USHORT service_length,
+									  TEXT * service_name,
+									  SVC * handle,
+									  USHORT spb_length, SCHAR * spb)
+{
+/**************************************
+ *
+ *	i s c _ s e r v i c e _ a t t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attach a service through the first subsystem
+ *	that recognizes it.
+ *
+ **************************************/
+	STATUS local[20], *status, *ptr, temp[20];
+	USHORT n, org_length;
+	SVC service;
+	TEXT *p;
+
+	GET_STATUS;
+	NULL_CHECK(handle, isc_bad_svc_handle, HANDLE_service);
+
+	if (!service_name) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_service_att_err;
+		status[2] = isc_arg_gds;
+		status[3] = isc_svc_name_missing;
+		status[4] = isc_arg_end;
+		return error2(status, local);
+	}
+
+	if (GDS_VAL(spb_length) > 0 && !spb) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_bad_spb_form;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+
+#if defined (SERVER_SHUTDOWN) && !defined (SUPERCLIENT) && !defined (REQUESTER)
+	if (shutdown_flag) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_shutwarn;
+		status[2] = isc_arg_end;
+		return error2(status, local);
+	}
+#endif /* SERVER_SHUTDOWN && !SUPERCLIENT && !REQUESTER */
+
+	subsystem_enter();
+	SUBSYSTEM_USAGE_INCR;
+
+	ptr = status;
+
+	org_length = service_length;
+
+	if (org_length) {
+		p = service_name + org_length - 1;
+		while (*p == ' ')
+			p--;
+		org_length = p - service_name + 1;
+	}
+
+	for (n = 0; n < SUBSYSTEMS; n++) {
+		if (why_enabled && !(why_enabled & (1 << n)))
+			continue;
+		if (!CALL(PROC_SERVICE_ATTACH, n) (ptr,
+										   org_length,
+										   service_name,
+										   handle, spb_length, spb))
+		{
+			service = allocate_handle(n, *handle, HANDLE_service);
+			if (!service)
+			{
+				/* No memory. Make a half-hearted attempt to detach service. */
+
+				CALL(PROC_SERVICE_DETACH, n) (ptr, handle);
+				*handle = NULL_PTR;
+				status[0] = isc_arg_gds;
+				status[1] = isc_virmemexh;
+				status[2] = isc_arg_end;
+				break;
+			}
+
+			*handle = service;
+			service->cleanup = NULL;
+			status[0] = isc_arg_gds;
+			status[1] = 0;
+			if (status[2] != isc_arg_warning)
+				status[2] = isc_arg_end;
+			subsystem_exit();
+			CHECK_STATUS_SUCCESS(status);
+			return status[1];
+		}
+		if (ptr[1] != isc_unavailable)
+			ptr = temp;
+	}
+
+	SUBSYSTEM_USAGE_DECR;
+	if (status[1] == isc_unavailable)
+		status[1] = isc_service_att_err;
+	return error(status, local);
+}
+
+
+STATUS API_ROUTINE GDS_SERVICE_DETACH(STATUS * user_status, SVC * handle)
+{
+/**************************************
+ *
+ *	i s c _ s e r v i c e _ d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a service.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	SVC service;
+	CLEAN clean;
+
+	GET_STATUS;
+	service = *handle;
+	CHECK_HANDLE(service, HANDLE_service, isc_bad_svc_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_SERVICE_DETACH, service->implementation) (status,
+															&service->handle))
+			return error(status, local);
+
+	SUBSYSTEM_USAGE_DECR;
+	subsystem_exit();
+
+/* Call the associated cleanup handlers */
+
+	while ((clean = service->cleanup) != NULL) {
+		service->cleanup = clean->clean_next;
+		(*clean->clean_routine) (handle, clean->clean_arg);
+		free_block(clean);
+	}
+
+	release_handle(service);
+	*handle = NULL;
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_SERVICE_QUERY(STATUS * user_status,
+									 SVC * handle,
+									 ULONG * reserved,
+									 USHORT send_item_length,
+									 SCHAR * send_items,
+									 USHORT recv_item_length,
+									 SCHAR * recv_items,
+									 USHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	i s c _ s e r v i c e _ q u e r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on service object.
+ *
+ *	NOTE: The parameter RESERVED must not be used
+ *	for any purpose as there are networking issues
+ *	involved (as with any handle that goes over the
+ *	network).  This parameter will be implemented at 
+ *	a later date.
+ **************************************/
+	STATUS local[20], *status;
+	SVC service;
+
+	GET_STATUS;
+	service = *handle;
+	CHECK_HANDLE(service, HANDLE_service, isc_bad_svc_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_SERVICE_QUERY, service->implementation) (status, &service->handle, 0,	/* reserved */
+														   send_item_length,
+														   send_items,
+														   recv_item_length,
+														   recv_items,
+														   buffer_length,
+														   buffer))
+			return error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_SERVICE_START(STATUS * user_status,
+									 SVC * handle,
+									 ULONG * reserved,
+									 USHORT spb_length, SCHAR * spb)
+{
+/**************************************
+ *
+ *	i s c _ s e r v i c e _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Starts a service thread
+ * 
+ *	NOTE: The parameter RESERVED must not be used
+ *	for any purpose as there are networking issues
+ *	involved (as with any handle that goes over the
+ *	network).  This parameter will be implemented at 
+ *	a later date.
+ **************************************/
+	STATUS local[20], *status;
+	SVC service;
+
+	GET_STATUS;
+	service = *handle;
+	CHECK_HANDLE(service, HANDLE_service, isc_bad_svc_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_SERVICE_START, service->implementation) (status,
+														   &service->handle,
+														   NULL,
+														   spb_length, spb)) {
+		return error(status, local);
+	}
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_START_AND_SEND(STATUS * user_status,
+									  REQ * req_handle,
+									  TRA * tra_handle,
+									  USHORT GDS_VAL(msg_type),
+									  USHORT GDS_VAL(msg_length),
+									  SCHAR * msg, SSHORT GDS_VAL(level))
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t _ a n d _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	REQ request;
+	TRA transaction;
+
+	GET_STATUS;
+	request = *req_handle;
+	CHECK_HANDLE(request, HANDLE_request, isc_bad_req_handle);
+	transaction = find_transaction(request->parent, *tra_handle);
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_START_AND_SEND, request->implementation) (status,
+															&request->handle,
+															&transaction->
+															handle,
+															GDS_VAL(msg_type),
+															GDS_VAL
+															(msg_length), msg,
+															GDS_VAL(level)))
+			return error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_START(STATUS * user_status,
+							 register REQ * req_handle,
+							 register TRA * tra_handle, SSHORT GDS_VAL(level))
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	REQ request;
+	TRA transaction;
+
+	GET_STATUS;
+	request = *req_handle;
+	CHECK_HANDLE(request, HANDLE_request, isc_bad_req_handle);
+	transaction = find_transaction(request->parent, *tra_handle);
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_START, request->implementation) (status,
+												   &request->handle,
+												   &transaction->handle,
+												   GDS_VAL(level)))
+			return error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_START_MULTIPLE(STATUS * user_status,
+									  TRA * tra_handle,
+									  USHORT GDS_VAL(count), TEB * vector)
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t _ m u l t i p l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+	STATUS local[20], *status, temp[20], *s;
+	TRA transaction, sub, *ptr;
+	DBB database;
+	USHORT n;
+
+	GET_STATUS;
+	NULL_CHECK(tra_handle, isc_bad_trans_handle, HANDLE_transaction);
+	transaction = NULL;
+	subsystem_enter();
+
+	for (n = 0, ptr = &transaction; n < GDS_VAL(count);
+		 n++, ptr = &(*ptr)->next, vector++) {
+		database = *vector->teb_database;
+		if (!database || database->type != HANDLE_database) {
+			s = status;
+			*s++ = isc_arg_gds;
+			*s++ = isc_bad_db_handle;
+			*s = isc_arg_end;
+			return error(status, local);
+		}
+		if (CALL(PROC_START_TRANSACTION, database->implementation) (status,
+																	ptr,
+																	1,
+																	&database->
+																	handle,
+																	vector->
+																	teb_tpb_length,
+																	vector->
+																	teb_tpb))
+		{
+			while (sub = transaction) {
+				transaction = sub->next;
+				CALL(PROC_ROLLBACK, sub->implementation) (temp, &sub->handle);
+				release_handle(sub);
+			}
+			return error(status, local);
+		}
+
+		sub = allocate_handle(	database->implementation,
+								*ptr,
+								HANDLE_transaction);
+		if (!sub)
+		{
+			/* No memory. Make a half-hearted attempt to rollback all sub-transactions. */
+
+			CALL(PROC_ROLLBACK, database->implementation) (temp, ptr);
+			*ptr = NULL_PTR;
+			while (sub = transaction) {
+				transaction = sub->next;
+				CALL(PROC_ROLLBACK, sub->implementation) (temp, &sub->handle);
+				release_handle(sub);
+			}
+			status[0] = isc_arg_gds;
+			status[1] = isc_virmemexh;
+			status[2] = isc_arg_end;
+			return error(status, local);
+		}
+
+		sub->parent = database;
+		*ptr = sub;
+	}
+
+	if (transaction->next)
+	{
+		sub = allocate_handle(SUBSYSTEMS, NULL_PTR, HANDLE_transaction);
+		if (!sub)
+		{
+			/* No memory. Make a half-hearted attempt to rollback all sub-transactions. */
+
+			while (sub = transaction) {
+				transaction = sub->next;
+				CALL(PROC_ROLLBACK, sub->implementation) (temp, &sub->handle);
+				release_handle(sub);
+			}
+			status[0] = isc_arg_gds;
+			status[1] = isc_virmemexh;
+			status[2] = isc_arg_end;
+			return error(status, local);
+		}
+
+		sub->next = transaction;
+		*tra_handle = sub;
+	}
+	else
+		*tra_handle = transaction;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE_VARARG GDS_START_TRANSACTION(STATUS * user_status,
+												TRA * tra_handle,
+												SSHORT count, ...)
+{
+/**************************************
+ *
+ *	g d s _ $ s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+	TEB tebs[16], *teb, *end;
+	STATUS status;
+	va_list ptr;
+
+	if (GDS_VAL(count) <= sizeof(tebs) / sizeof(struct teb))
+		teb = tebs;
+	else
+		teb = (TEB *) alloc((SLONG) (sizeof(struct teb) * GDS_VAL(count)));
+
+	if (!teb) {
+		user_status[0] = isc_arg_gds;
+		user_status[1] = status = isc_virmemexh;
+		user_status[2] = isc_arg_end;
+		return status;
+	}
+
+	end = teb + GDS_VAL(count);
+	VA_START(ptr, count);
+
+	for (; teb < end; teb++) {
+		teb->teb_database = va_arg(ptr, ATT *);
+		teb->teb_tpb_length = va_arg(ptr, int);
+		teb->teb_tpb = va_arg(ptr, UCHAR *);
+	}
+
+	teb = end - GDS_VAL(count);
+
+	status = GDS_START_MULTIPLE(user_status, tra_handle, count, teb);
+
+	if (teb != tebs)
+		free_block(teb);
+
+	return status;
+}
+
+
+STATUS API_ROUTINE GDS_TRANSACT_REQUEST(STATUS * user_status,
+										ATT * db_handle,
+										TRA * tra_handle,
+										USHORT blr_length,
+										SCHAR * blr,
+										USHORT in_msg_length,
+										SCHAR * in_msg,
+										USHORT out_msg_length,
+										SCHAR * out_msg)
+{
+/**************************************
+ *
+ *	i s c _ t r a n s a c t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a procedure.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	ATT dbb;
+	TRA transaction;
+
+	GET_STATUS;
+	dbb = *db_handle;
+	CHECK_HANDLE(dbb, HANDLE_database, isc_bad_db_handle);
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_TRANSACT_REQUEST, dbb->implementation) (status,
+														  &dbb->handle,
+														  &transaction->
+														  handle, blr_length,
+														  blr, in_msg_length,
+														  in_msg,
+														  out_msg_length,
+														  out_msg)) return
+			error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE gds__transaction_cleanup(STATUS * user_status,
+											TRA * tra_handle,
+											void (*routine) (), SLONG arg)
+{
+/**************************************
+ *
+ *	g d s _ $ t r a n s a c t i o n _ c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Register a transaction specific cleanup handler.
+ *
+ **************************************/
+	STATUS local[20], *status, *s;
+	TRA transaction;
+	CLEAN clean;
+
+	GET_STATUS;
+	transaction = *tra_handle;
+	if (!transaction || transaction->type != HANDLE_transaction) {
+		s = status;
+		*s++ = isc_arg_gds;
+		*s++ = isc_bad_db_handle;
+		*s = isc_arg_end;
+		return error2(status, local);
+	}
+
+/* Only add the cleanup handler if the transaction doesn't already know
+   about it. */
+
+	for (clean = transaction->cleanup; clean; clean = clean->clean_next)
+	{
+		if (clean->clean_routine == routine && clean->clean_arg == arg)
+		{
+			break;
+		}
+	}
+
+	if (!clean)
+	{
+		if (clean = (CLEAN) alloc((SLONG) sizeof(struct clean)))
+		{
+#ifdef DEBUG_GDS_ALLOC
+			/* If client doesn't commit/rollback/detach
+			   or drop, this could be left unfreed. */
+
+			gds_alloc_flag_unfreed((void *) clean);
+#endif
+			clean->clean_next = transaction->cleanup;
+			transaction->cleanup = clean;
+			clean->clean_routine = routine;
+			clean->clean_arg = arg;
+		}
+		else {
+			status[0] = isc_arg_gds;
+			status[1] = isc_virmemexh;
+			status[2] = isc_arg_end;
+			return error2(status, local);
+		}
+	}
+
+	status[0] = gds_arg_gds;
+	status[1] = SUCCESS;
+	status[2] = gds_arg_end;
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_TRANSACTION_INFO(STATUS * user_status,
+										TRA * tra_handle,
+										SSHORT GDS_VAL(item_length),
+										SCHAR * items,
+										SSHORT GDS_VAL(buffer_length),
+										SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ $ t r a n s a c t i o n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on transaction object.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	TRA transaction, sub;
+	SCHAR *ptr, *end;
+	SSHORT buffer_len, item_len;
+
+	GET_STATUS;
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+	if (transaction->implementation != SUBSYSTEMS) {
+		if (CALL(PROC_TRANSACTION_INFO, transaction->implementation) (status,
+																	  &transaction->
+																	  handle,
+																	  GDS_VAL
+																	  (item_length),
+																	  items,
+																	  GDS_VAL
+																	  (buffer_length),
+																	  buffer))
+				return error(status, local);
+	}
+	else {
+		item_len = GDS_VAL(item_length);
+		buffer_len = GDS_VAL(buffer_length);
+		for (sub = transaction->next; sub; sub = sub->next) {
+			if (CALL(PROC_TRANSACTION_INFO, sub->implementation) (status,
+																  &sub->
+																  handle,
+																  item_len,
+																  items,
+																  buffer_len,
+																  buffer))
+					return error(status, local);
+
+			ptr = buffer;
+			end = buffer + buffer_len;
+			while (ptr < end && *ptr == gds__info_tra_id)
+				ptr += 3 + gds__vax_integer(ptr + 1, 2);
+
+			if (ptr >= end || *ptr != gds__info_end) {
+				RETURN_SUCCESS;
+			}
+
+			buffer_len = end - ptr;
+			buffer = ptr;
+		}
+	}
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS API_ROUTINE GDS_UNWIND(STATUS * user_status,
+							  REQ * req_handle, SSHORT GDS_VAL(level))
+{
+/**************************************
+ *
+ *	g d s _ $ u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a running request.  This is potentially nasty since it can be called
+ *	asynchronously.
+ *
+ **************************************/
+	STATUS local[20], *status;
+	REQ request;
+
+	GET_STATUS;
+	request = *req_handle;
+	CHECK_HANDLE(request, HANDLE_request, isc_bad_req_handle);
+	subsystem_enter();
+
+	if (CALL(PROC_UNWIND, request->implementation) (status,
+													&request->handle,
+													GDS_VAL(level)))
+			return error(status, local);
+
+	RETURN_SUCCESS;
+}
+
+
+static SCHAR *alloc(SLONG length)
+{
+/**************************************
+ *
+ *	a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate some memory.
+ *
+ **************************************/
+	SCHAR *block;
+
+	if (block = (SCHAR *) gds__alloc((SLONG) (sizeof(SCHAR) * length)))
+		memset(block, 0, length);
+	return block;
+}
+
+
+static HNDL allocate_handle(int		implementation,
+							int*	real_handle,
+							int		handle_type)
+{
+/**************************************
+ *
+ *	a l l o c a t e _ h a n d l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate an indirect handle.
+ *
+ **************************************/
+	HNDL handle;
+
+	if (handle = (HNDL) alloc((SLONG) sizeof(struct hndl)))
+	{
+		handle->implementation = implementation;
+		handle->handle = real_handle;
+		handle->type = handle_type;
+
+#ifdef DEBUG_GDS_ALLOC
+/* As the memory for the handle is handed back to the client, InterBase
+ * cannot free the memory unless the client returns to us.  As a result,
+ * the memory allocator might try to report this as unfreed, but it
+ * ain't our fault.  So flag it to make the allocator be happy.
+ */
+		gds_alloc_flag_unfreed((void *) handle);
+#endif
+	}
+
+	return handle;
+}
+
+
+static STATUS bad_handle(STATUS * user_status, STATUS code)
+{
+/**************************************
+ *
+ *	b a d _ h a n d l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate an error for a bad handle.
+ *
+ **************************************/
+	STATUS *s, *status, local[20];
+
+	GET_STATUS;
+	s = status;
+	*s++ = isc_arg_gds;
+	*s++ = code;
+	*s = isc_arg_end;
+
+	return error2(status, local);
+}
+
+
+#ifdef DEV_BUILD
+static void check_status_vector(STATUS * status, STATUS expected)
+ {
+/**************************************
+ *
+ *	c h e c k _ s t a t u s _ v e c t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate that a status vector looks valid.
+ *
+ **************************************/
+
+	STATUS *s, code;
+	ULONG length;
+
+#ifdef	WINDOWS_ONLY
+#define SV_MSG(x)	{ ib_fprintf (ib_stderr, "%s %d check_status_vector: %s\n", __FILE__, __LINE__, (x)); }
+#else
+#define SV_MSG(x)	{ ib_fprintf (ib_stderr, "%s %d check_status_vector: %s\n", __FILE__, __LINE__, (x)); BREAKPOINT (__LINE__); }
+#endif
+
+	s = status;
+	if (!s) {
+		SV_MSG("Invalid status vector");
+		return;
+	}
+
+	if (*s != gds_arg_gds) {
+		SV_MSG("Must start with gds_arg_gds");
+		return;
+	}
+
+/* Vector [2] could either end the vector, or start a warning 
+   in either case the status vector is a success */
+	if ((expected == SUCCESS)
+		&& (s[1] != SUCCESS
+			|| (s[2] != gds_arg_end && s[2] != gds_arg_gds
+				&& s[2] !=
+				isc_arg_warning))) SV_MSG("Success vector expected");
+
+	while (*s != gds_arg_end) {
+		code = *s++;
+		switch (code) {
+		case isc_arg_warning:
+		case gds_arg_gds:
+			/* The next element must either be 0 (indicating no error) or a
+			 * valid isc error message, let's check */
+			if (*s && (*s & ISC_MASK) != ISC_MASK) {
+				if (code == isc_arg_warning) {
+					SV_MSG("warning code not a valid ISC message");
+				}
+				else {
+					SV_MSG("error code not a valid ISC message");
+				}
+			}
+
+			/* If the error code is valid, then I better be able to retrieve a
+			 * proper facility code from it ... let's find out */
+			if (*s && (*s & ISC_MASK) == ISC_MASK) {
+				struct _facilities *facs;
+				int fac_code;
+				BOOLEAN found = 0;
+
+				facs = facilities;
+				fac_code = GET_FACILITY(*s);
+				while (facs->facility) {
+					if (facs->fac_code == fac_code) {
+						found = 1;
+						break;
+					}
+					facs++;
+				}
+				if (!found)
+					if (code == isc_arg_warning) {
+						SV_MSG
+							("warning code does not contain a valid facility");
+					}
+					else {
+						SV_MSG
+							("error code does not contain a valid facility");
+					}
+			}
+			s++;
+			break;
+
+		case gds_arg_interpreted:
+		case gds_arg_string:
+			length = strlen((char *) *s);
+			/* This check is heuristic, not deterministic */
+			if (length > 1024 - 1)
+				SV_MSG("suspect length value");
+			if (*((UCHAR *) * s) == 0xCB)
+				SV_MSG("string in freed memory");
+			s++;
+			break;
+
+		case gds_arg_cstring:
+			length = (ULONG) * s;
+			s++;
+			/* This check is heuristic, not deterministic */
+			/* Note: This can never happen anyway, as the length is coming
+			   from a byte value */
+			if (length > 1024 - 1)
+				SV_MSG("suspect length value");
+			if (*((UCHAR *) * s) == 0xCB)
+				SV_MSG("string in freed memory");
+			s++;
+			break;
+
+		case gds_arg_number:
+		case gds_arg_vms:
+		case gds_arg_unix:
+		case gds_arg_domain:
+		case gds_arg_dos:
+		case gds_arg_mpexl:
+		case gds_arg_mpexl_ipc:
+		case gds_arg_next_mach:
+		case gds_arg_netware:
+		case gds_arg_win32:
+			s++;
+			break;
+
+		default:
+			SV_MSG("invalid status code");
+			return;
+		}
+		if ((s - status) >= 20)
+			SV_MSG("vector too long");
+	}
+
+#undef SV_MSG
+
+}
+#endif
+
+
+static STATUS error(STATUS * user_status, STATUS * local)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An error returned has been trapped.  If the user specified
+ *	a status vector, return a status code.  Otherwise print the
+ *	error code(s) and abort.
+ *
+ **************************************/
+
+	subsystem_exit();
+
+	return error2(user_status, local);
+}
+
+
+static STATUS error2(STATUS * user_status, STATUS * local)
+{
+/**************************************
+ *
+ *	e r r o r 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	An error returned has been trapped.  If the user specified
+ *	a status vector, return a status code.  Otherwise print the
+ *	error code(s) and abort.
+ *
+ **************************************/
+
+	CHECK_STATUS(user_status);
+
+#ifdef SUPERSERVER
+	return user_status[1];
+#else
+	if (user_status != local)
+		return user_status[1];
+
+	gds__print_status(user_status);
+	exit((int) user_status[1]);
+
+	return SUCCESS;
+#endif
+}
+
+
+#ifndef REQUESTER
+static void event_ast(UCHAR * buffer, USHORT length, UCHAR * items)
+{
+/**************************************
+ *
+ *	e v e n t _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	We're had an event complete.
+ *
+ **************************************/
+
+	while (length--)
+		*buffer++ = *items++;
+	ISC_event_post(why_event);
+}
+#endif
+
+
+#ifndef REQUESTER
+static void exit_handler(EVENT why_event)
+{
+/**************************************
+ *
+ *	e x i t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cleanup shared image.
+ *
+ **************************************/
+
+#ifdef WIN_NT
+	CloseHandle((void *) why_event->event_handle);
+#endif
+
+	why_initialized = FALSE;
+	why_enabled = 0;
+#if !(defined REQUESTER || defined PIPE_CLIENT || defined SUPERCLIENT || defined SUPERSERVER)
+	isc_enter_count = 0;
+	subsystem_usage = 0;
+	subsystem_FPE_reset = FPE_RESET_INIT_ONLY;
+#endif
+}
+#endif
+
+
+static TRA find_transaction(DBB dbb, TRA transaction)
+{
+/**************************************
+ *
+ *	f i n d _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the element of a possible multiple database transaction
+ *	that corresponds to the current database.
+ *
+ **************************************/
+
+	for (; transaction; transaction = transaction->next)
+		if (transaction->parent == dbb)
+			return transaction;
+
+	return NULL;
+}
+
+
+static void free_block(void* block)
+{
+/**************************************
+ *
+ *	f r e e _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release some memory.
+ *
+ **************************************/
+
+	gds__free((SLONG *) block);
+}
+
+
+static int get_database_info(STATUS * status, TRA transaction, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	g e t _ d a t a b a s e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the full database pathname
+ *	and put it in the transaction
+ *	description record.
+ *
+ **************************************/
+	UCHAR *p, *q;
+	DBB database;
+
+	p = *ptr;
+
+	database = transaction->parent;
+	q = (UCHAR *) database->db_path;
+	*p++ = TDR_DATABASE_PATH;
+	*p++ = (UCHAR) strlen((SCHAR *) q);
+	while (*q)
+		*p++ = *q++;
+
+	*ptr = p;
+
+	return SUCCESS;
+}
+
+
+static PTR get_entrypoint(int proc, int implementation)
+{
+/**************************************
+ *
+ *	g e t _ e n t r y p o i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup entrypoint for procedure.
+ *
+ **************************************/
+
+	ENTRY *ent;
+	PTR entrypoint;
+
+#if !defined(PIPE_CLIENT) && !defined(SUPERCLIENT)
+	TEXT *image, *name;
+#endif
+
+	ent = entrypoints + implementation * PROC_count + proc;
+	entrypoint = ent->address;
+
+	if (entrypoint)
+	{
+		return entrypoint;
+	}
+
+#ifndef PIPE_CLIENT
+#ifndef SUPERCLIENT
+#ifdef INITIALIZE_PATHS
+	if (!paths_initialized)
+	{
+		paths_initialized = TRUE;
+		init_paths();
+	}
+#endif
+
+	image = images[implementation].path;
+	name = ent->name;
+	if (!name)
+	{
+		name = generic[proc];
+	}
+
+	if (image && name)
+	{
+		entrypoint = (PTR) ISC_lookup_entrypoint(image, name, NULL);
+		if (entrypoint)
+		{
+			ent->address = entrypoint;
+			return entrypoint;
+		}
+	}
+#endif
+#endif
+
+	return &no_entrypoint;
+}
+
+
+static SCHAR *get_sqlda_buffer(SCHAR * buffer,
+							   USHORT local_buffer_length,
+							   XSQLDA * sqlda,
+							   USHORT dialect, USHORT * buffer_length)
+{
+/**************************************
+ *
+ *	g e t _ s q l d a _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a buffer that is large enough to store
+ *	the info items relating to an SQLDA.
+ *
+ **************************************/
+	USHORT n_variables;
+	SLONG length;
+	USHORT sql_dialect;
+
+/* If dialect / 10 == 0, then it has not been combined with the
+   parser version for a prepare statement.  If it has been combined, then
+   the dialect needs to be pulled out to compare to DIALECT_xsqlda
+*/
+
+	if ((sql_dialect = dialect / 10) == 0)
+		sql_dialect = dialect;
+
+	if (!sqlda)
+		n_variables = 0;
+	else if (sql_dialect >= DIALECT_xsqlda)
+		n_variables = sqlda->sqln;
+	else
+		n_variables = ((SQLDA *) sqlda)->sqln;
+
+	length = 32 + n_variables * 172;
+	*buffer_length = (USHORT)((length > 65500L) ? 65500L : length);
+	if (*buffer_length > local_buffer_length)
+		buffer = alloc((SLONG) * buffer_length);
+
+	return buffer;
+}
+
+
+static STATUS get_transaction_info(STATUS * status,
+								   TRA transaction, UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	g e t _ t r a n s a c t i o n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a transaction's id into the transaction
+ *	description record.
+ *
+ **************************************/
+	UCHAR *p, *q, buffer[16];
+	USHORT length;
+
+	p = *ptr;
+
+	if (CALL(PROC_TRANSACTION_INFO, transaction->implementation) (status,
+																  &transaction->
+																  handle,
+																  sizeof
+																  (prepare_tr_info),
+																  prepare_tr_info,
+																  sizeof
+																  (buffer),
+																  buffer)) {
+		CHECK_STATUS(status);
+		return status[1];
+	}
+
+	q = buffer + 3;
+	*p++ = TDR_TRANSACTION_ID;
+
+	length = (USHORT)gds__vax_integer(buffer + 1, 2);
+	*p++ = length;
+	if (length) {
+		do {
+			*p++ = *q++;
+		} while (--length);
+	}
+
+	*ptr = p;
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+static void iterative_sql_info(STATUS * user_status,
+							   STMT * stmt_handle,
+							   SSHORT item_length,
+							   SCHAR * items,
+							   SSHORT buffer_length,
+							   SCHAR * buffer, USHORT dialect, XSQLDA * sqlda)
+{
+/**************************************
+ *
+ *	i t e r a t i v e _ s q l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Turn an sql info buffer into an SQLDA.  If the info
+ *	buffer was incomplete, make another request, beginning
+ *	where the previous info call left off.
+ *
+ **************************************/
+	USHORT last_index;
+	SCHAR new_items[32], *p;
+
+	while (UTLD_parse_sql_info(	user_status,
+								dialect,
+								buffer,
+								sqlda,
+								&last_index) && last_index)
+	{
+		p = new_items;
+		*p++ = gds__info_sql_sqlda_start;
+		*p++ = 2;
+		*p++ = last_index;
+		*p++ = last_index >> 8;
+		memcpy(p, items, (int) item_length);
+		p += item_length;
+		if (GDS_DSQL_SQL_INFO(	user_status,
+								stmt_handle,
+								(SSHORT) (p - new_items),
+								new_items,
+								buffer_length,
+								buffer))
+		{
+			break;
+		}
+	}
+}
+
+
+#ifdef INITIALIZE_PATHS
+static void init_paths(void)
+{
+/**************************************
+ *
+ *	i n i t _ p a t h s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the paths to use in dynamically
+ *	looking up entrypoints.
+ *
+ **************************************/
+	USHORT n;
+	IMAGE *sys;
+#ifdef STACK_EFFICIENT
+	TEXT *path;
+#else
+	TEXT path[MAXPATHLEN];
+#endif /* STACK_EFFICIENT */
+
+#ifdef STACK_EFFICIENT
+	if (path = (TEXT *) gds__alloc((SLONG) (sizeof(TEXT) * MAXPATHLEN)))
+/* if we fail don't try to do the remainder of the function since*/
+/* we will probably die a horrible death in gds_prefix */
+#endif /* STACK_EFFICIENT */
+		for (n = 0, sys = images; n < SUBSYSTEMS; n++, sys++)
+			if (sys->path) {
+				gds__prefix(path, sys->path);
+				sys->path = alloc((SLONG) (strlen(path) + 1));
+				strcpy(sys->path, path);
+			}
+#ifdef STACK_EFFICIENT
+	if (path)
+		gds__free((SLONG *) path);
+#endif /* STACK_EFFICIENT */
+}
+#endif
+
+
+static STATUS open_blob(STATUS * user_status,
+						ATT * db_handle,
+						TRA * tra_handle,
+						BLB * blob_handle,
+						SLONG * blob_id,
+						USHORT bpb_length,
+						UCHAR * bpb, SSHORT proc, SSHORT proc2)
+{
+/**************************************
+ *
+ *	o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob (extended edition).
+ *
+ **************************************/
+	STATUS local[20], *status;
+	TRA transaction;
+	ATT dbb;
+	BLB blob;
+	SSHORT from, to;
+	USHORT flags;
+
+	GET_STATUS;
+	NULL_CHECK(blob_handle, isc_bad_segstr_handle, HANDLE_blob);
+
+	dbb = *db_handle;
+	CHECK_HANDLE(dbb, HANDLE_database, isc_bad_db_handle);
+	transaction = find_transaction(dbb, *tra_handle);
+	CHECK_HANDLE(transaction, HANDLE_transaction, isc_bad_trans_handle);
+	subsystem_enter();
+
+	flags = 0;
+	gds__parse_bpb(bpb_length, bpb, &from, &to);
+
+	if (get_entrypoint(proc2, dbb->implementation) != no_entrypoint &&
+		CALL(proc2, dbb->implementation) (status,
+										  &dbb->handle,
+										  &transaction->handle,
+										  blob_handle,
+										  blob_id,
+										  bpb_length,
+										  bpb) != isc_unavailable) flags = 0;
+	else if (!to || from == to)
+		CALL(proc, dbb->implementation) (status,
+										 &dbb->handle,
+										 &transaction->handle,
+										 blob_handle, blob_id);
+
+	if (status[1]) {
+		return error(status, local);
+	}
+
+	blob = allocate_handle(dbb->implementation, *blob_handle, HANDLE_blob);
+	if (!blob)
+	{
+		/* No memory. Make a half-hearted attempt to cancel the blob. */
+
+		CALL(PROC_CANCEL_BLOB, dbb->implementation) (status, blob_handle);
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		*blob_handle = NULL_PTR;
+		return error(status, local);
+	}
+
+	*blob_handle = blob;
+	blob->flags |= flags;
+	blob->parent = dbb;
+	blob->next = dbb->blobs;
+	dbb->blobs = blob;
+
+	RETURN_SUCCESS;
+}
+
+
+#ifdef UNIX
+static STATUS open_marker_file(STATUS * status,
+							   TEXT * expanded_filename, TEXT * single_user)
+{
+/*************************************
+ *
+ *	o p e n _ m a r k e r _ f i l e
+ *
+ *************************************
+ *
+ * Functional description
+ *	Try to open a marker file.  If one is
+ *	found, open it, read the absolute path
+ *	to the NFS mounted database, lockf()
+ *	the marker file to ensure single user
+ *	access to the db and write the open marker
+ *	file descriptor into the marker file so
+ *	that the file can be closed in
+ *	close_marker_file located in unix.c.
+ *	Return FAILURE if a marker file exists
+ *	but something goes wrong.  Return SUCCESS
+ *	otherwise.
+ *
+ *************************************/
+	int fd, length, i, j;
+	TEXT marker_filename[MAXPATHLEN], marker_contents[MAXPATHLEN],
+		fildes_str[5], *p;
+	TEXT *err_routine, buffer[80];
+	SLONG bytes, size;
+
+/* Create the marker file name and see if it exists.  If not,
+   don't sweat it. */
+
+	strcpy(marker_filename, expanded_filename);
+	strcat(marker_filename, "_m");
+	if (access(marker_filename, F_OK))	/* Marker file doesn't exist. */
+		return SUCCESS;
+
+/* Ensure that writes are ok on the marker file for lockf(). */
+
+	if (!access(marker_filename, W_OK)) {
+		for (i = 0; i < IO_RETRY; i++) {
+			if ((fd = open(marker_filename, O_RDWR)) == -1) {
+				sprintf(buffer,
+						"Couldn't open marker file %s\n", marker_filename);
+				gds__log(buffer);
+				err_routine = "open";
+				break;
+			}
+
+			/* Place an advisory lock on the marker file. */
+
+			if (lockf(fd, F_TLOCK, 0) != -1) {
+				size = sizeof(marker_contents);
+				for (j = 0; j < IO_RETRY; j++) {
+					if ((bytes = read(fd, marker_contents, size)) != -1)
+						break;
+
+					if ((bytes == -1) && (!SYSCALL_INTERRUPTED(errno))) {
+						err_routine = "read";
+						close(fd);
+						fd = -1;
+					}
+				}				/* for (j < IO_RETRY ) */
+
+				p = strchr(marker_contents, '\n');
+				*p = 0;
+				if (strcmp(expanded_filename, marker_contents))
+					close(fd);
+				else {
+					sprintf(fildes_str, "%d\n", fd);
+					strcpy(single_user, "YES");
+					size = strlen(fildes_str);
+					for (j = 0; j < IO_RETRY; j++) {
+						if (lseek(fd, 0L, SEEK_END) == -1) {
+							err_routine = "lseek";
+							close(fd);
+							fd = -1;
+						}
+
+						if ((bytes = write(fd, fildes_str, size)) == size)
+							break;
+
+						if ((bytes == -1) && (!SYSCALL_INTERRUPTED(errno))) {
+							err_routine = "write";
+							close(fd);
+							fd = -1;
+						}
+					}			/* for (j < IO_RETRY ) */
+				}
+			}
+			else
+			{				/* Else couldn't lockf(). */
+
+				sprintf(buffer,
+						"Marker file %s already opened by another user\n",
+						marker_filename);
+				gds__log(buffer);
+				close(fd);
+				fd = -1;
+			}
+
+			if (!SYSCALL_INTERRUPTED(errno))
+			{
+				break;
+			}
+		}						/* for (i < IO_RETRY ) */
+	}							/* if (access (...)) */
+	else
+	{						/* Else the marker file exists, but can't write to it. */
+
+		sprintf(buffer,
+				"Must have write permission on marker file %s\n",
+				marker_filename);
+		gds__log(buffer);
+		err_routine = "access";
+		fd = -1;
+	}
+
+	if (fd != -1)
+		return SUCCESS;
+
+/* The following code saves the name of the offending marker
+   file in a (sort of) permanent location.  It is totally specific
+   because this is the only dynamic string being returned in
+   a status vector in this entire module.  Since the marker
+   feature will almost never be used, it's not worth saving the
+   information in a more general way. */
+
+	if (marker_failures_ptr + strlen(marker_filename) + 1 >
+		marker_failures + sizeof(marker_failures) - 1)
+		marker_failures_ptr = marker_failures;
+
+	*status++ = isc_arg_gds;
+	*status++ = isc_io_error;
+	*status++ = isc_arg_string;
+	*status++ = (STATUS) err_routine;
+	*status++ = isc_arg_string;
+	*status++ = (STATUS) marker_failures_ptr;
+	*status++ = isc_arg_unix;
+	*status++ = errno;
+	*status = isc_arg_end;
+
+	strcpy(marker_failures_ptr, marker_filename);
+	marker_failures_ptr += strlen(marker_filename) + 1;
+
+	return FAILURE;
+}
+#endif
+
+
+static STATUS no_entrypoint(STATUS * user_status)
+{
+/**************************************
+ *
+ *	n o _ e n t r y p o i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	No_entrypoint is called if there is not entrypoint for a given routine.
+ *
+ **************************************/
+
+	*user_status++ = isc_arg_gds;
+	*user_status++ = isc_unavailable;
+	*user_status = isc_arg_end;
+
+	return isc_unavailable;
+}
+
+
+static STATUS prepare(STATUS * status, TRA transaction)
+{
+/**************************************
+ *
+ *	p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform the first phase of a two-phase commit 
+ *	for a multi-database transaction.
+ *
+ **************************************/
+	TRA sub;
+	UCHAR *p, *description;
+#ifdef PC_PLATFORM
+	UCHAR tdr_buffer[256];
+#else
+	UCHAR tdr_buffer[1024];
+#endif
+	USHORT length = 0;
+
+	for (sub = transaction->next; sub; sub = sub->next)
+		length += 256;
+
+	description =
+		(length >
+		 sizeof(tdr_buffer)) ? (UCHAR *) gds__alloc((SLONG) length) :
+		tdr_buffer;
+
+/* build a transaction description record containing 
+   the host site and database/transaction
+   information for the target databases. */
+
+	if (!(p = description)) {
+		status[0] = isc_arg_gds;
+		status[1] = isc_virmemexh;
+		status[2] = isc_arg_end;
+		CHECK_STATUS(status);
+		return status[1];
+	}
+	*p++ = TDR_VERSION;
+
+	ISC_get_host(p + 2, length - 16);
+	*p++ = TDR_HOST_SITE;
+	*p = (UCHAR) strlen((SCHAR *) p + 1);
+
+	while (*++p);
+
+/* Get database and transaction stuff for each sub-transaction */
+
+	for (sub = transaction->next; sub; sub = sub->next) {
+		get_database_info(status, sub, &p);
+		get_transaction_info(status, sub, &p);
+	}
+
+/* So far so good -- prepare each sub-transaction */
+
+	length = p - description;
+
+	for (sub = transaction->next; sub; sub = sub->next)
+		if (CALL(PROC_PREPARE, sub->implementation) (status,
+													 &sub->handle,
+													 length, description))
+		{
+			if (description != tdr_buffer) {
+				free_block(description);
+			}
+			CHECK_STATUS(status);
+			return status[1];
+		}
+
+	if (description != tdr_buffer)
+		free_block(description);
+
+	CHECK_STATUS_SUCCESS(status);
+	return SUCCESS;
+}
+
+
+static void why_priv_gds__free_if_set(void* pMem)
+{
+	if (pMem) {
+		gds__free(pMem);
+	}
+}
+
+static void release_dsql_support(DASUP dasup)
+{
+/**************************************
+ *
+ *	r e l e a s e _ d s q l _ s u p p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release some memory.
+ *
+ **************************************/
+
+	struct dasup_clause* pClauses;
+
+	if (!dasup) {
+		return;
+	}
+
+	/* for C++, add "dasup::" before "dasup_clause" */
+	pClauses = dasup->dasup_clauses;
+
+	why_priv_gds__free_if_set(pClauses[DASUP_CLAUSE_bind].dasup_blr);
+	why_priv_gds__free_if_set(pClauses[DASUP_CLAUSE_select].dasup_blr);
+	why_priv_gds__free_if_set(pClauses[DASUP_CLAUSE_bind].dasup_msg);
+	why_priv_gds__free_if_set(pClauses[DASUP_CLAUSE_select].dasup_msg);
+	free_block(dasup);
+}
+
+
+static void release_handle(HNDL handle)
+{
+/**************************************
+ *
+ *	r e l e a s e _ h a n d l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release unused and unloved handle.
+ *
+ **************************************/
+
+	handle->type = HANDLE_invalid;
+	free_block(handle);
+}
+
+
+static void save_error_string(STATUS * status)
+{
+/**************************************
+ *
+ *	s a v e _ e r r o r _ s t r i n g  
+ *
+ **************************************
+ *
+ * Functional description
+ *	This is need because there are cases
+ *	where the memory allocated for strings 
+ *	in the status vector is freed prior to 
+ *	surfacing them to the user.  This is an
+ *	attempt to save off 1 string to surface to
+ *  	the user.  Any other strings will be set to
+ *	a standard <Unknown> string.
+ *
+ **************************************/
+	TEXT *p;
+	ULONG l, len;
+
+	assert(status != NULL);
+
+	p = glbstr1;
+	len = sizeof(glbstr1) - 1;
+
+	while (*status != isc_arg_end)
+	{
+		switch (*status++)
+		{
+		case isc_arg_cstring:
+			l = (ULONG) * status;
+			if (l < len)
+			{
+				status++;		/* Length is unchanged */
+				/* 
+				 * This strncpy should really be a memcpy
+				 */
+				strncpy(p, (UCHAR *) * status, l);
+				*status++ = (STATUS) p;	/* string in static memory */
+				p += l;
+				len -= l;
+			}
+			else {
+				*status++ = (STATUS) strlen(glbunknown);
+				*status++ = (STATUS) glbunknown;
+			}
+			break;
+
+		case isc_arg_interpreted:
+		case isc_arg_string:
+			l = (ULONG) strlen((UCHAR *) * status) + 1;
+			if (l < len)
+			{
+				strncpy(p, (UCHAR *) * status, l);
+				*status++ = (STATUS) p;	/* string in static memory */
+				p += l;
+				len -= l;
+			}
+			else
+			{
+				*status++ = (STATUS) glbunknown;
+			}
+			break;
+
+		default:
+			assert(FALSE);
+		case isc_arg_gds:
+		case isc_arg_number:
+		case isc_arg_vms:
+		case isc_arg_unix:
+		case isc_arg_domain:
+		case isc_arg_dos:
+		case isc_arg_mpexl:
+		case isc_arg_mpexl_ipc:
+		case isc_arg_next_mach:
+		case isc_arg_netware:
+		case isc_arg_win32:
+			status++;			/* Skip parameter */
+			break;
+		}
+	}
+}
+
+
+static void subsystem_enter(void)
+{
+/**************************************
+ *
+ *	s u b s y s t e m _ e n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enter subsystem.
+ *
+ **************************************/
+
+	THREAD_ENTER;
+#if !(defined REQUESTER || defined PIPE_CLIENT || defined SUPERCLIENT || defined SUPERSERVER)
+	isc_enter_count++;
+	if (subsystem_usage == 0 ||
+		(subsystem_FPE_reset &
+		 (FPE_RESET_NEXT_API_CALL | FPE_RESET_ALL_API_CALL)))
+	{
+		ISC_enter();
+		subsystem_FPE_reset &= ~FPE_RESET_NEXT_API_CALL;
+	}
+#endif
+
+#ifdef DEBUG_FPE_HANDLING
+	{
+/* It's difficult to make a FPE to occur inside the engine - for debugging
+ * just force one to occur every-so-often. */
+		static ULONG counter = 0;
+		if (((counter++) % 10) == 0)
+		{
+			ib_fprintf(ib_stderr, "Forcing FPE to occur within engine\n");
+			(void) kill(getpid(), SIGFPE);
+		}
+	}
+#endif /* DEBUG_FPE_HANDLING */
+}
+
+
+static void subsystem_exit(void)
+{
+/**************************************
+ *
+ *	s u b s y s t e m _ e x i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Exit subsystem.
+ *
+ **************************************/
+
+#if !(defined REQUESTER || defined PIPE_CLIENT || defined SUPERCLIENT || defined SUPERSERVER)
+	if (subsystem_usage == 0 ||
+		(subsystem_FPE_reset &
+		 (FPE_RESET_NEXT_API_CALL | FPE_RESET_ALL_API_CALL)))
+	{
+		ISC_exit();
+	}
+	isc_enter_count--;
+#endif
+	THREAD_EXIT;
+}
+
+
+#if defined (SERVER_SHUTDOWN) && !defined (SUPERCLIENT) && !defined (REQUESTER)
+BOOLEAN WHY_set_shutdown(BOOLEAN flag)
+{
+/**************************************
+ *
+ *	W H Y _ s e t _ s h u t d o w n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set shutdown_flag to either TRUE or FALSE.
+ *		TRUE = accept new connections
+ *		FALSE= refuse new connections
+ *	Returns the prior state of the flag (server).
+ *
+ **************************************/
+
+	BOOLEAN old_flag;
+	old_flag = shutdown_flag;
+	shutdown_flag = flag;
+	return old_flag;
+}
+
+BOOLEAN WHY_get_shutdown()
+{
+/**************************************
+ *
+ *	W H Y _ g e t _ s h u t d o w n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns the current value of shutdown_flag.
+ *
+ **************************************/
+
+	return shutdown_flag;
+}
+#endif /* SERVER_SHUTDOWN && !SUPERCLIENT && !REQUESTER */
diff --git a/src/jrd/why_proto.h b/src/jrd/why_proto.h
new file mode 100644
index 0000000000..0491e349c9
--- /dev/null
+++ b/src/jrd/why_proto.h
@@ -0,0 +1,144 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		why_proto.h
+ *	DESCRIPTION:	Prototype header file for why.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef JRD_WHY_PROTO_H
+#define JRD_WHY_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+#ifndef JRD_IBASE_H
+extern STATUS API_ROUTINE isc_dsql_allocate_statement(STATUS *,
+													  struct hndl **,
+													  struct hndl **);
+extern STATUS API_ROUTINE isc_dsql_alloc_statement2(STATUS *, struct hndl **,
+													struct hndl **);
+extern STATUS API_ROUTINE isc_dsql_describe(STATUS *, struct hndl **, USHORT,
+											XSQLDA *);
+extern STATUS API_ROUTINE isc_dsql_describe_bind(STATUS *, struct hndl **,
+												 USHORT, XSQLDA *);
+extern STATUS API_ROUTINE isc_dsql_execute2(STATUS *, struct hndl **,
+											struct hndl **, USHORT, XSQLDA *,
+											XSQLDA *);
+extern STATUS API_ROUTINE isc_dsql_execute2_m(STATUS *, struct hndl **,
+											  struct hndl **, USHORT, SCHAR *,
+											  USHORT, USHORT, SCHAR *, USHORT,
+											  SCHAR *, USHORT, USHORT,
+											  SCHAR *);
+extern STATUS API_ROUTINE isc_dsql_execute_immediate(STATUS *, struct hndl **,
+													 struct hndl **, USHORT,
+													 SCHAR *, USHORT,
+													 XSQLDA *);
+extern STATUS API_ROUTINE isc_dsql_exec_immed2(STATUS *, struct hndl **,
+											   struct hndl **, USHORT,
+											   SCHAR *, USHORT, XSQLDA *,
+											   XSQLDA *);
+extern STATUS API_ROUTINE isc_dsql_execute_immediate_m(STATUS *,
+													   struct hndl **,
+													   struct hndl **, USHORT,
+													   SCHAR *, USHORT,
+													   USHORT, SCHAR *,
+													   USHORT, USHORT,
+													   SCHAR *);
+extern STATUS API_ROUTINE isc_dsql_exec_immed2_m(STATUS *, struct hndl **,
+												 struct hndl **, USHORT,
+												 SCHAR *, USHORT, USHORT,
+												 SCHAR *, USHORT, USHORT,
+												 SCHAR *, USHORT, SCHAR *,
+												 USHORT, USHORT, SCHAR *);
+extern STATUS API_ROUTINE isc_dsql_exec_immed3_m(STATUS *, struct hndl **,
+												 struct hndl **, USHORT,
+												 SCHAR *, USHORT, USHORT,
+												 SCHAR *, USHORT, USHORT,
+												 SCHAR *, USHORT, SCHAR *,
+												 USHORT, USHORT, SCHAR *);
+extern STATUS API_ROUTINE isc_dsql_fetch(STATUS *, struct hndl **, USHORT,
+										 XSQLDA *);
+#ifdef SCROLLABLE_CURSORS
+extern STATUS API_ROUTINE isc_dsql_fetch2(STATUS *, struct hndl **, USHORT,
+										  XSQLDA *, USHORT, SLONG);
+#endif
+extern STATUS API_ROUTINE isc_dsql_fetch_m(STATUS *, struct hndl **, USHORT,
+										   SCHAR *, USHORT, USHORT, SCHAR *);
+#ifdef SCROLLABLE_CURSORS
+extern STATUS API_ROUTINE isc_dsql_fetch2_m(STATUS *, struct hndl **, USHORT,
+											SCHAR *, USHORT, USHORT, SCHAR *,
+											USHORT, SLONG);
+#endif
+extern STATUS API_ROUTINE isc_dsql_free_statement(STATUS *, struct hndl **,
+												  USHORT);
+extern STATUS API_ROUTINE isc_dsql_insert(STATUS *, struct hndl **, USHORT,
+										  XSQLDA *);
+extern STATUS API_ROUTINE isc_dsql_insert_m(STATUS *, struct hndl **, USHORT,
+											SCHAR *, USHORT, USHORT, SCHAR *);
+extern STATUS API_ROUTINE isc_dsql_prepare(STATUS *, struct hndl **,
+										   struct hndl **, USHORT, SCHAR *,
+										   USHORT, XSQLDA *);
+extern STATUS API_ROUTINE isc_dsql_prepare_m(STATUS *, struct hndl **,
+											 struct hndl **, USHORT, SCHAR *,
+											 USHORT, USHORT, SCHAR *, USHORT,
+											 SCHAR *);
+extern STATUS API_ROUTINE isc_dsql_set_cursor_name(STATUS *, struct hndl **,
+												   SCHAR *, USHORT);
+extern STATUS API_ROUTINE isc_dsql_sql_info(STATUS *, struct hndl **, SSHORT,
+											SCHAR *, SSHORT, SCHAR *);
+extern STATUS API_ROUTINE isc_prepare_transaction2(STATUS *, TRA *, USHORT,
+												   UCHAR *);
+extern STATUS API_ROUTINE isc_que_events(STATUS *, struct hndl **, SLONG *,
+										 USHORT, UCHAR *, FPTR_VOID, void *);
+#ifdef SCROLLABLE_CURSORS
+extern STATUS API_ROUTINE isc_receive2(STATUS *, struct hndl **, USHORT,
+									   USHORT, SCHAR *, SSHORT, USHORT,
+									   ULONG);
+#endif
+extern STATUS API_ROUTINE isc_rollback_transaction(STATUS *, struct hndl **);
+extern STATUS API_ROUTINE_VARARG isc_start_transaction(STATUS *,
+													   struct hndl **, SSHORT,
+													   ...);
+#endif
+
+#ifdef CANCEL_OPERATION
+extern STATUS API_ROUTINE gds__cancel_operation(STATUS *, struct hndl **,
+												USHORT);
+#endif
+extern STATUS API_ROUTINE gds__database_cleanup(STATUS *, struct hndl **,
+												void (*)(), SLONG);
+extern int API_ROUTINE gds__disable_subsystem(TEXT *);
+extern int API_ROUTINE gds__enable_subsystem(TEXT *);
+extern STATUS gds__handle_cleanup(STATUS *, struct hndl **);
+extern STATUS API_ROUTINE gds__transaction_cleanup(STATUS *, struct hndl **,
+												   void (*)(), SLONG);
+
+#ifdef SERVER_SHUTDOWN
+extern BOOLEAN WHY_set_shutdown(BOOLEAN);
+extern BOOLEAN WHY_get_shutdown();
+#endif /* SERVER_SHUTDOWN */
+
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /* JRD_WHY_PROTO_H */
diff --git a/src/jrd/windows.cpp b/src/jrd/windows.cpp
new file mode 100644
index 0000000000..967ddb4948
--- /dev/null
+++ b/src/jrd/windows.cpp
@@ -0,0 +1,764 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		unix.c
+ *	DESCRIPTION:	UNIX (BSD) specific physical IO
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <fcntl.h>
+#include <errno.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <string.h>
+#include <io.h>
+
+#include "../jrd/common.h"
+#include "../jrd/jrd.h"
+#include "../jrd/pio.h"
+#include "../jrd/ods.h"
+#include "../jrd/lck.h"
+#include "../jrd/cch.h"
+#include "../jrd/codes.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/isc_i_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/doserr.h"
+
+#include "../open/fileserv.h"
+
+
+extern "C" {
+
+
+#ifdef V4_THREADING
+#undef V4_MUTEX_LOCK
+#define V4_MUTEX_LOCK(mutx)	THD_MUTEX_LOCK (mutx)
+#endif
+
+#define MAXPATHLEN	1024
+#define IO_RETRY	20
+
+#ifdef O_SYNC
+#define SYNC		O_SYNC
+#endif
+
+#ifdef O_FSYNC
+#define SYNC		O_FSYNC
+#endif
+
+#ifndef SYNC
+#define SYNC		0
+#endif
+
+#ifndef O_BINARY
+#define O_BINARY	0
+#endif
+
+#ifndef EINTR
+#define EINTR		0
+#endif
+
+#define MASK		(S_IWRITE | S_IREAD)
+
+static void close_marker_file(TEXT *);
+static FIL seek_file(FIL, BDB, STATUS *);
+static FIL setup_file(DBB, TEXT *, USHORT, int);
+static void windows_error(TEXT *, FIL, STATUS, STATUS *);
+
+
+
+int PIO_add_file(DBB dbb, FIL main_file, TEXT * file_name, SLONG start)
+{
+/**************************************
+ *
+ *	P I O _ a d d _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a file to an existing database.  Return the sequence
+ *	number of the new file.  If anything goes wrong, return a
+ *	sequence of 0.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	USHORT sequence;
+	FIL file, new_file;
+
+	if (!(new_file = PIO_create(dbb, file_name, strlen(file_name), FALSE)))
+		return 0;
+
+	new_file->fil_min_page = start;
+	sequence = 1;
+
+	for (file = main_file; file->fil_next; file = file->fil_next)
+		++sequence;
+
+	file->fil_max_page = start - 1;
+	file->fil_next = new_file;
+
+	return sequence;
+}
+
+
+void PIO_close(FIL main_file)
+{
+/**************************************
+ *
+ *	P I O _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	FIL file;
+
+	for (file = main_file; file; file = file->fil_next) {
+		if (file->fil_desc == HFILE_ERROR)
+			continue;			/* This really should be an error */
+		if (file->fil_desc) {
+			FILE_close(file->fil_desc);
+			file->fil_desc = HFILE_ERROR;
+			V4_MUTEX_DESTROY(file->fil_mutex);
+		}
+	}
+}
+
+
+int PIO_connection(TEXT * file_name, USHORT * file_length)
+{
+/**************************************
+ *
+ *	P I O _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a file specification and determine whether a page/lock
+ *	server is required and available.  If so, return a "connection"
+ *	block.  If not, return NULL.
+ *
+ *	Note: The file name must have been expanded prior to this call.
+ *
+ **************************************/
+
+	return NULL;
+}
+
+
+FIL PIO_create(DBB dbb, TEXT * string, SSHORT length, BOOLEAN overwrite)
+{
+/**************************************
+ *
+ *	P I O _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new database file.
+ *	NOTE:  This routine does not lock any mutexes on
+ *	its own behalf.  It is assumed that mutexes will
+ *	have been locked before entry.
+ *
+ **************************************/
+	HFILE desc;
+	FIL file;
+	TEXT expanded_name[256], temp[256], *file_name;
+	OFSTRUCT OfStruct;
+
+	file_name = string;
+
+	if (length) {
+		MOVE_FAST(file_name, temp, length);
+		temp[length] = 0;
+		file_name = temp;
+	}
+
+	memset(&OfStruct, 0, sizeof OfStruct);
+	desc = FILE_OpenFile(file_name, &OfStruct, OF_READWRITE | OF_CREATE);
+	if (desc == HFILE_ERROR)
+		ERR_post(isc_io_error,
+				 gds_arg_string,
+				 "OpenFile OF_CREATE",
+				 gds_arg_cstring,
+				 length,
+				 ERR_string(string, length),
+				 isc_arg_gds,
+				 isc_io_create_err, gds_arg_dos, FILE_GetLastError(), 0);
+	FILE_close(desc);
+	desc = FILE_OpenFile(NULL, &OfStruct, OF_REOPEN | OF_READWRITE |
+						 OF_SHARE_EXCLUSIVE);
+	if (desc == HFILE_ERROR)
+		ERR_post(isc_io_error,
+				 gds_arg_string,
+				 "OpenFile OF_READWRITE",
+				 gds_arg_cstring,
+				 length,
+				 ERR_string(string, length),
+				 isc_arg_gds,
+				 isc_io_open_err, gds_arg_dos, FILE_GetLastError(), 0);
+
+/* File open succeeded.  Now expand the file name. */
+
+	OemToAnsi(OfStruct.szPathName, expanded_name);
+	file = setup_file(dbb, expanded_name, strlen(expanded_name), desc);
+	return file;
+}
+
+
+int PIO_expand(TEXT * file_name, USHORT file_length, TEXT * expanded_name)
+{
+/**************************************
+ *
+ *	P I O _ e x p a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fully expand a file name.  If the file doesn't exist, do something
+ *	intelligent.
+ *
+ **************************************/
+	return ISC_expand_filename(file_name, file_length, expanded_name);
+}
+
+
+void PIO_flush(FIL main_file)
+{
+/**************************************
+ *
+ *	P I O _ f l u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush the operating system cache back to good, solid oxide.
+ *
+ **************************************/
+	FIL file;
+
+	for (file = main_file; file; file = file->fil_next) {
+		FILE_flush(file->fil_desc);
+	}
+}
+
+
+void PIO_force_write(FIL file, USHORT flag)
+{
+/**************************************
+ *
+ *	P I O _ f o r c e _ w r i t e	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set (or clear) force write, if possible, for the database.
+ *
+ **************************************/
+}
+
+
+void PIO_header(DBB dbb, SCHAR * address, int length)
+{
+/**************************************
+ *
+ *	P I O _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the page header.  This assumes that the file has not been
+ *	repositioned since the file was originally mapped.
+ *
+ **************************************/
+	FIL file;
+
+	file = dbb->dbb_file;
+
+	if (file->fil_desc == HFILE_ERROR)
+		windows_error("PIO_header (invalid file descriptor)", file,
+					  isc_io_read_err, 0);
+
+	ISC_inhibit();
+	V4_MUTEX_LOCK(file->fil_mutex);
+
+	if ((FILE_lseek(file->fil_desc, 0, 0)) == HFILE_ERROR) {
+		V4_MUTEX_UNLOCK(file->fil_mutex);
+		windows_error("lseek", file, isc_io_read_err, 0);
+	}
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		if ((FILE_read(file->fil_desc, spare_buffer, length)) != length) {
+			V4_MUTEX_UNLOCK(file->fil_mutex);
+			windows_error("read", file, isc_io_read_err, 0);
+		}
+
+		(*dbb->dbb_decrypt) (dbb->dbb_encrypt_key->str_data,
+							 spare_buffer, length, address);
+	}
+	else
+#endif
+	if ((FILE_read(file->fil_desc, address, length)) != length) {
+		V4_MUTEX_UNLOCK(file->fil_mutex);
+		windows_error("read", file, isc_io_read_err, 0);
+	}
+
+	V4_MUTEX_UNLOCK(file->fil_mutex);
+	ISC_enable();
+}
+
+
+SLONG PIO_max_alloc(DBB dbb)
+{
+/**************************************
+ *
+ *	P I O _ m a x _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute last physically allocated page of database.
+ *
+ **************************************/
+	LONG length, Offset;
+	FIL file;
+
+	for (file = dbb->dbb_file; file->fil_next; file = file->fil_next);
+
+	if (file->fil_desc == HFILE_ERROR) {
+		windows_error("PIO_max_alloc (invalid file descriptor)", file,
+					  isc_io_access_err, 0);
+		return FALSE;
+	}
+
+/* save the current position */
+	Offset = FILE_lseek(file->fil_desc, 0, 1);
+
+/* get the file length (end of file) */
+	length = FILE_lseek(file->fil_desc, 0, 2);
+
+/* restore saved position (from beginning of file) */
+	FILE_lseek(file->fil_desc, Offset, 0);
+
+	if (length == HFILE_ERROR) {
+		ISC_inhibit();
+		windows_error("lseek (end of file)", file, isc_io_access_err, 0);
+	}
+
+	return (file->fil_min_page - file->fil_fudge +
+			(length + dbb->dbb_page_size - 1) / dbb->dbb_page_size);
+}
+
+
+FIL PIO_open(DBB dbb,
+			 TEXT * string,
+			 SSHORT length,
+			 SSHORT trace_flag,
+			 BLK connection, TEXT * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	P I O _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.  If a "connection" block is provided, use
+ *	the connection to communication with a page/lock server.
+ *
+ **************************************/
+	TEXT *ptr, temp[256];
+	HFILE desc;
+	OFSTRUCT OfStruct;
+	int i;
+
+	if (string) {
+		ptr = string;
+		if (length) {
+			MOVE_FAST(string, temp, length);
+			temp[length] = 0;
+			ptr = temp;
+		}
+	}
+	else {
+		ptr = file_name;
+		if (file_length) {
+			MOVE_FAST(file_name, temp, file_length);
+			temp[file_length] = 0;
+			ptr = temp;
+		}
+	}
+
+	for (i = 0; i < IO_RETRY; i++) {
+		memset(&OfStruct, 0, sizeof OfStruct);
+		if ((desc = FILE_OpenFile(ptr, &OfStruct, OF_READWRITE |
+								  OF_SHARE_EXCLUSIVE)) != HFILE_ERROR)
+			break;
+	}
+
+	if (desc == HFILE_ERROR)
+		ERR_post(isc_io_error,
+				 gds_arg_string,
+				 "OpenFile OF_READWRITE",
+				 gds_arg_cstring,
+				 file_length,
+				 ERR_string(file_name, file_length),
+				 isc_arg_gds,
+				 isc_io_open_err, gds_arg_dos, FILE_GetLastError(), 0);
+
+/* use the expanded filename */
+	OemToAnsi(OfStruct.szPathName, temp);
+
+	return setup_file(dbb, temp, strlen(temp), desc);
+}
+
+
+int PIO_read(FIL file, BDB bdb, PAG page, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	P I O _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a data page.  Oh wow.
+ *
+ **************************************/
+	DBB dbb;
+	SSHORT i;
+	SLONG bytes, size;
+
+	if (file->fil_desc == HFILE_ERROR) {
+		windows_error("PIO_read (invalid file descriptor)", file,
+					  isc_io_read_err, status_vector);
+		return FALSE;
+	}
+
+	ISC_inhibit();
+	dbb = bdb->bdb_dbb;
+	size = dbb->dbb_page_size;
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		for (i = 0; i < IO_RETRY; i++) {
+			if (!(file = seek_file(file, bdb, status_vector)))
+				return FALSE;
+			if ((bytes = FILE_read(file->fil_desc, spare_buffer, size)) ==
+				size) {
+				(*dbb->dbb_decrypt) (dbb->dbb_encrypt_key->str_data,
+									 spare_buffer, size, page);
+				break;
+			}
+			V4_MUTEX_UNLOCK(file->fil_mutex);
+			if (bytes == HFILE_ERROR) {
+				windows_error("read", file, isc_io_read_err, status_vector);
+				return FALSE;
+			}
+		}
+	}
+	else
+#endif
+	{
+		for (i = 0; i < IO_RETRY; i++) {
+			if (!(file = seek_file(file, bdb, status_vector)))
+				return FALSE;
+			if ((bytes = FILE_read(file->fil_desc, page, size)) == size)
+				break;
+			V4_MUTEX_UNLOCK(file->fil_mutex);
+			if (bytes == HFILE_ERROR) {
+				windows_error("read", file, isc_io_read_err, status_vector);
+				return FALSE;
+			}
+		}
+	}
+
+	V4_MUTEX_UNLOCK(file->fil_mutex);
+
+	if (i == IO_RETRY) {
+		windows_error("read", file, isc_io_read_err, status_vector);
+		return FALSE;
+	}
+
+	ISC_enable();
+	return TRUE;
+}
+
+
+int PIO_write(FIL file, BDB bdb, PAG page, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	P I O _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a data page.  Oh wow.
+ *
+ **************************************/
+	DBB dbb;
+	SSHORT i;
+	SLONG bytes, size;
+
+	if (file->fil_desc == HFILE_ERROR) {
+		windows_error("PIO_write (invalid file descriptor)", file,
+					  isc_io_write_err, status_vector);
+		return FALSE;
+	}
+
+	ISC_inhibit();
+	dbb = bdb->bdb_dbb;
+	size = dbb->dbb_page_size;
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		(*dbb->dbb_encrypt) (dbb->dbb_encrypt_key->str_data,
+							 page, size, spare_buffer);
+
+		for (i = 0; i < IO_RETRY; i++) {
+			if (!(file = seek_file(file, bdb, status_vector)))
+				return FALSE;
+			if ((bytes = FILE_write(file->fil_desc, spare_buffer, size)) ==
+				size) break;
+			V4_MUTEX_UNLOCK(file->fil_mutex);
+			if (bytes == HFILE_ERROR) {
+				windows_error("write", file, isc_io_write_err, status_vector);
+				return FALSE;
+			}
+		}
+	}
+	else
+#endif
+	{
+		for (i = 0; i < IO_RETRY; i++) {
+			if (!(file = seek_file(file, bdb, status_vector)))
+				return FALSE;
+			if ((bytes = FILE_write(file->fil_desc, page, size)) == size)
+				break;
+			V4_MUTEX_UNLOCK(file->fil_mutex);
+			if (bytes == HFILE_ERROR) {
+				windows_error("write", file, isc_io_write_err, status_vector);
+				return FALSE;
+			}
+		}
+	}
+
+	V4_MUTEX_UNLOCK(file->fil_mutex);
+
+	if (i == IO_RETRY) {
+		windows_error("write", file, isc_io_write_err, status_vector);
+		return FALSE;
+	}
+
+	ISC_enable();
+	return TRUE;
+}
+
+
+static FIL seek_file(FIL file, BDB bdb, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	s e e k _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a buffer descriptor block, find the appropropriate
+ *	file block and seek to the proper page in that file.
+ *
+ **************************************/
+	ULONG page;
+	DBB dbb;
+
+	dbb = bdb->bdb_dbb;
+	page = bdb->bdb_page;
+
+	for (;; file = file->fil_next)
+		if (!file) {
+			ISC_enable();
+			CORRUPT(158);		/* msg 158 cannot sort on a field that does not exist */
+		}
+		else if (page >= file->fil_min_page && page <= file->fil_max_page)
+			break;
+
+	if (file->fil_desc == HFILE_ERROR) {
+		windows_error("seek_file (invalid file descriptor)", file,
+					  isc_io_access_err, status_vector);
+		return (FIL) FALSE;
+	}
+
+	page -= file->fil_min_page - file->fil_fudge;
+
+	V4_MUTEX_LOCK(file->fil_mutex);
+
+	while ((FILE_lseek(file->fil_desc, (LONG) (page * dbb->dbb_page_size), 0))
+		   == HFILE_ERROR) {
+		V4_MUTEX_UNLOCK(file->fil_mutex);
+		windows_error("lseek", file, isc_io_access_err, status_vector);
+		return (FIL) FALSE;
+	}
+
+	return file;
+}
+
+
+static FIL setup_file(
+					  DBB dbb,
+					  TEXT * file_name, USHORT file_length, HFILE desc)
+{
+/**************************************
+ *
+ *	s e t u p _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up file and lock blocks for a file.
+ *
+ **************************************/
+	FIL file;
+	LCK lock;
+	UCHAR *lock_string;
+	USHORT l;
+
+/* Allocate file block and copy file name string */
+
+	file = (FIL) ALLOCPV(type_fil, file_length + 1);
+	file->fil_desc = desc;
+	file->fil_length = file_length;
+	file->fil_max_page = -1;
+	MOVE_FAST(file_name, file->fil_string, file_length);
+	file->fil_string[file_length] = '\0';
+	V4_MUTEX_INIT(file->fil_mutex);
+
+/* If this isn't the primary file, we're done */
+
+	if (dbb->dbb_file)
+		return file;
+
+/* 
+* Build unique lock string for file and construct lock block 
+* on the PC/WINDOWS platfrom the only unique identifier is the
+* expanded filename (cross references are bound to screwup).
+*/
+
+	l = file_length;
+	lock_string = file_name;
+
+	dbb->dbb_lock = lock = (LCK) ALLOCPV(type_lck, l);
+	lock->lck_type = LCK_database;
+	lock->lck_owner_handle = LCK_get_owner_handle(NULL_TDBB, lock->lck_type);
+	lock->lck_object = (BLK) dbb;
+	lock->lck_length = l;
+	lock->lck_dbb = dbb;
+	lock->lck_ast = CCH_down_grade_dbb;
+	MOVE_FAST(lock_string, lock->lck_key.lck_string, l);
+
+/* 
+* Try to get an exclusive lock on database.  If this fails, insist
+* on at least a shared lock 
+*/
+
+	dbb->dbb_flags |= DBB_exclusive;
+	if (!LCK_lock(NULL_TDBB, lock, LCK_EX, LCK_NO_WAIT)) {
+		dbb->dbb_flags &= ~DBB_exclusive;
+		LCK_lock(NULL_TDBB, lock,
+				 (dbb->dbb_flags & DBB_cache_manager) ? LCK_SR : LCK_SW,
+				 LCK_WAIT);
+	}
+
+	return file;
+}
+
+
+static void windows_error(
+						  TEXT * string,
+						  FIL file, STATUS operation, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	w i n d o w s _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody has noticed a file system error and expects error
+ *	to do something about it.  Harumph!
+ *
+ **************************************/
+	STATUS *status;
+	LONG errno;
+
+/* Adjust error code for messages contained in the message file. */
+	errno = FILE_GetLastError();
+	if (MAP_LOC_ERROR(errno) != -1)
+		errno += LOC_ERROR_BEG;
+
+	ISC_enable();
+
+	if (status = status_vector) {
+		*status++ = isc_arg_gds;
+		*status++ = isc_io_error;
+		*status++ = gds_arg_string;
+		*status++ = (STATUS) string;
+		*status++ = gds_arg_string;
+		*status++ = (STATUS) ERR_string(file->fil_string, file->fil_length);
+		*status++ = isc_arg_gds;
+		*status++ = operation;
+		*status++ = gds_arg_dos;
+		*status++ = errno;
+		*status++ = gds_arg_end;
+		gds__log_status(0, status_vector);
+	}
+	else
+		ERR_post(isc_io_error,
+				 gds_arg_string,
+				 string,
+				 gds_arg_string,
+				 ERR_string(file->fil_string, file->fil_length),
+				 isc_arg_gds, operation, gds_arg_dos, errno, 0);
+}
+
+
+} // extern "C"
diff --git a/src/jrd/winnt.cpp b/src/jrd/winnt.cpp
new file mode 100644
index 0000000000..9f8423a3a7
--- /dev/null
+++ b/src/jrd/winnt.cpp
@@ -0,0 +1,1124 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		winnt.c
+ *	DESCRIPTION:	Windows NT specific physical IO
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef _MSC_VER
+/* TMN: 27 Jul 2000 - Added define to make it compile on Win32 */
+#ifndef _tagBLOB_DEFINED
+#define _tagBLOB_DEFINED
+#endif
+#ifndef WIN32_LEAN_AND_MEAN
+#define WIN32_LEAN_AND_MEAN
+#endif
+#endif /* _MSC_VER */
+
+#include <string.h>
+#include "../jrd/jrd.h"
+#include "../jrd/pio.h"
+#include "../jrd/ods.h"
+#include "../jrd/lck.h"
+#include "../jrd/cch.h"
+#include "../jrd/codes.h"
+#include "../jrd/all_proto.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/err_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_f_proto.h"
+
+#include "../jrd/lck_proto.h"
+#include "../jrd/mov_proto.h"
+#include "../jrd/pio_proto.h"
+#include "../jrd/thd_proto.h"
+
+#include <windows.h>
+
+
+extern "C" {
+
+
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT		SCHAR
+
+#ifdef MAXPATHLEN
+#undef MAXPATHLEN
+#endif
+#define MAXPATHLEN		512
+#define DEFAULTBUFFERSIZE	1024
+
+#define OS_WINDOWS_NT		1
+#define OS_CHICAGO		2
+
+#ifdef SUPERSERVER_V2
+static void release_io_event(FIL, OVERLAPPED *);
+#endif
+static FIL seek_file(FIL, BDB, STATUS *, OVERLAPPED *, OVERLAPPED **);
+static FIL setup_file(DBB, TEXT *, USHORT, HANDLE);
+static BOOLEAN nt_error(TEXT *, FIL, STATUS, STATUS *);
+
+static USHORT ostype;
+
+
+
+/**************************************
+ *
+ *	Add a file to an existing database.  Return the sequence
+ *	number of the new file.  If anything goes wrong, return a
+ *	sequence of 0.
+ *
+ **************************************/
+int PIO_add_file(DBB dbb, FIL main_file, TEXT * file_name, SLONG start)
+{
+	USHORT sequence;
+	FIL file;
+
+	FIL new_file = PIO_create(dbb, file_name, strlen(file_name), FALSE);
+	if (!new_file) {
+		return 0;
+	}
+
+	new_file->fil_min_page = start;
+	sequence = 1;
+
+	for (file = main_file; file->fil_next; file = file->fil_next) {
+		++sequence;
+	}
+
+	file->fil_max_page = start - 1;
+	file->fil_next = new_file;
+
+	return sequence;
+}
+
+
+void PIO_close(FIL main_file)
+{
+/**************************************
+ *
+ *	P I O _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	FIL file;
+
+	for (file = main_file; file; file = file->fil_next)
+	{
+		if ((HANDLE) file->fil_desc != INVALID_HANDLE_VALUE)
+		{
+			CloseHandle((HANDLE) file->fil_desc);
+			file->fil_desc = (SLONG) INVALID_HANDLE_VALUE;
+			if ((HANDLE) file->fil_force_write_desc != INVALID_HANDLE_VALUE)
+			{
+				CloseHandle((HANDLE) file->fil_force_write_desc);
+			}
+			file->fil_force_write_desc = (SLONG) INVALID_HANDLE_VALUE;
+#ifdef SUPERSERVER_V2
+			for (i = 0; i < MAX_FILE_IO; i++)
+			{
+				if (file->fil_io_events[i])
+				{
+					CloseHandle((HANDLE) file->fil_io_events[i]);
+				}
+			}
+#endif
+			THD_MUTEX_DESTROY(file->fil_mutex);
+		}
+	}
+}
+
+
+int PIO_connection(TEXT * file_name, USHORT * file_length)
+{
+/**************************************
+ *
+ *	P I O _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a file specification and determine whether a page/lock
+ *	server is required and available.  If so, return a "connection"
+ *	block.  If not, return NULL.
+ *
+ *	Note: The file name must have been expanded prior to this call.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+
+/**************************************
+ *
+ *	Create a new database file.
+ *
+ **************************************/
+FIL PIO_create(DBB dbb, TEXT * string, SSHORT length, BOOLEAN overwrite)
+{
+	HANDLE desc;
+	FIL file;
+	TEXT workspace[MAXPATHLEN];
+	TEXT *file_name;
+
+#ifdef SUPERSERVER_V2
+	const DWORD dwShareFlags = 0;	/* no sharing */
+	const DWORD dwExtraFlags = FILE_FLAG_OVERLAPPED | FILE_FLAG_NO_BUFFERING;
+#else
+	const DWORD dwShareFlags = FILE_SHARE_READ | FILE_SHARE_WRITE;
+	const DWORD dwExtraFlags = 0;
+#endif
+
+	file_name = string;
+
+	if (length) {
+		MOVE_FAST(file_name, workspace, length);
+		workspace[length] = 0;
+		file_name = workspace;
+	}
+
+	desc = CreateFile(file_name,
+					  GENERIC_READ | GENERIC_WRITE,
+					  dwShareFlags,
+					  NULL,
+					  (overwrite ? CREATE_ALWAYS : CREATE_NEW),
+					  FILE_ATTRIBUTE_NORMAL |
+					  FILE_FLAG_RANDOM_ACCESS | dwExtraFlags, 0);
+
+	if (desc == INVALID_HANDLE_VALUE) {
+		ERR_post(isc_io_error,
+				 gds_arg_string, "CreateFile (create)",
+				 gds_arg_cstring,
+				 length,
+				 ERR_string(string, length),
+				 isc_arg_gds,
+				 isc_io_create_err, gds_arg_win32, GetLastError(), 0);
+	}
+
+/* File open succeeded.  Now expand the file name. */
+/* workspace is the exapnded name here */
+
+	length = PIO_expand(string, length, workspace);
+	file = setup_file(dbb, workspace, length, desc);
+
+	return file;
+}
+
+
+int PIO_expand(TEXT* file_name, USHORT file_length, TEXT* expanded_name)
+{
+/**************************************
+ *
+ *	P I O _ e x p a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fully expand a file name.  If the file doesn't exist, do something
+ *	intelligent.
+ *
+ **************************************/
+
+	return ISC_expand_filename(file_name, file_length, expanded_name);
+}
+
+
+void PIO_flush(FIL main_file)
+{
+/**************************************
+ *
+ *	P I O _ f l u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush the operating system cache back to good, solid oxide.
+ *
+ **************************************/
+	FIL file;
+
+	for (file = main_file; file; file = file->fil_next) {
+		if (ostype == OS_CHICAGO)
+			THD_MUTEX_LOCK(file->fil_mutex);
+		FlushFileBuffers((HANDLE) file->fil_desc);
+		if (ostype == OS_CHICAGO)
+			THD_MUTEX_UNLOCK(file->fil_mutex);
+	}
+}
+
+
+void PIO_force_write(FIL file, USHORT flag)
+{
+/**************************************
+ *
+ *	P I O _ f o r c e _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set (or clear) force write, if possible, for the database.
+ *
+ **************************************/
+	HANDLE desc;
+
+#ifdef SUPERSERVER_V2
+	const DWORD dwShareFlags = 0;	/* no sharing */
+	const DWORD dwExtraFlags = FILE_FLAG_OVERLAPPED | FILE_FLAG_NO_BUFFERING;
+#else
+	const DWORD dwShareFlags = FILE_SHARE_READ | FILE_SHARE_WRITE;
+	const DWORD dwExtraFlags = 0;
+#endif
+
+	if (flag) {
+		if (!(file->fil_flags & FIL_force_write_init)) {
+			desc = CreateFile(file->fil_string,
+							  GENERIC_READ | GENERIC_WRITE,
+							  dwShareFlags,
+							  NULL,
+							  OPEN_EXISTING,
+							  FILE_ATTRIBUTE_NORMAL |
+							  FILE_FLAG_WRITE_THROUGH |
+							  FILE_FLAG_RANDOM_ACCESS | dwExtraFlags, 0);
+
+			if (desc == INVALID_HANDLE_VALUE) {
+				ERR_post(isc_io_error,
+						 gds_arg_string,
+						 "CreateFile (force write)",
+						 gds_arg_cstring,
+						 file->fil_length,
+						 ERR_string(file->fil_string, file->fil_length),
+						 isc_arg_gds, isc_io_access_err,
+						 gds_arg_win32, GetLastError(), 0);
+			}
+
+			/* TMN: Take note! Assumes sizeof(long) == sizeof(void*) ! */
+			file->fil_force_write_desc = reinterpret_cast < long >(desc);
+		}
+		file->fil_flags |= (FIL_force_write | FIL_force_write_init);
+	}
+	else {
+		file->fil_flags &= ~FIL_force_write;
+	}
+}
+
+
+void PIO_header(DBB dbb, SCHAR * address, int length)
+{
+/**************************************
+ *
+ *	P I O _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the page header.  This assumes that the file has not been
+ *	repositioned since the file was originally mapped.
+ *
+ **************************************/
+	FIL file;
+	HANDLE desc;
+	DWORD actual_length;
+	OVERLAPPED overlapped, *overlapped_ptr;
+
+	file = dbb->dbb_file;
+	desc = (HANDLE) ((file->fil_flags & FIL_force_write) ?
+					 file->fil_force_write_desc : file->fil_desc);
+
+	if (ostype == OS_CHICAGO) {
+		THD_MUTEX_LOCK(file->fil_mutex);
+		if (SetFilePointer(desc, 0, NULL, FILE_BEGIN) == -1) {
+			THD_MUTEX_UNLOCK(file->fil_mutex);
+			nt_error("SetFilePointer", file, isc_io_read_err, 0);
+		}
+		overlapped_ptr = NULL;
+	}
+	else {
+		memset(&overlapped, 0, sizeof(OVERLAPPED));
+		overlapped_ptr = &overlapped;
+#ifdef SUPERSERVER_V2
+		if (!(overlapped.hEvent = CreateEvent(NULL, TRUE, FALSE, NULL)))
+			nt_error("Overlapped event", file, isc_io_read_err, 0);
+		ResetEvent(overlapped.hEvent);
+#endif
+	}
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		if (!ReadFile
+			(desc, spare_buffer, length, &actual_length, overlapped_ptr)
+			|| actual_length != length) {
+			if (ostype == OS_CHICAGO)
+				THD_MUTEX_UNLOCK(file->fil_mutex);
+			nt_error("ReadFile", file, isc_io_read_err, 0);
+		}
+
+		(*dbb->dbb_decrypt) (dbb->dbb_encrypt_key->str_data,
+							 spare_buffer, length, address);
+	}
+	else
+#endif
+	{
+		if (ReadFile(desc, address, length, &actual_length, overlapped_ptr) &&
+			actual_length == length);
+#ifdef SUPERSERVER_V2
+		else
+			if (!GetOverlappedResult
+				(desc, overlapped_ptr, &actual_length, TRUE)
+				|| actual_length != length) {
+			CloseHandle(overlapped.hEvent);
+			nt_error("GetOverlappedResult", file, isc_io_read_err, 0);
+		}
+#else
+		else {
+			if (ostype == OS_CHICAGO)
+				THD_MUTEX_UNLOCK(file->fil_mutex);
+			nt_error("ReadFile", file, isc_io_read_err, 0);
+		}
+#endif
+	}
+
+#ifdef SUPERSERVER_V2
+	CloseHandle(overlapped.hEvent);
+#endif
+
+	if (ostype == OS_CHICAGO) {
+		THD_MUTEX_UNLOCK(file->fil_mutex);
+	}
+}
+
+
+
+/**************************************
+ *
+ *	Compute number of pages in file, based only on file size.
+ *
+ **************************************/
+static ULONG private_PIO_get_number_of_pages(FIL file, USHORT pagesize)
+{
+	HANDLE hFile = (HANDLE) file->fil_desc;
+	DWORD dwFileSizeLow;
+	DWORD dwFileSizeHigh;
+	ULONGLONG ullFileSize;
+
+	dwFileSizeLow = GetFileSize(hFile, &dwFileSizeHigh);
+
+	if (dwFileSizeLow == -1) {
+		nt_error("GetFileSize", file, isc_io_access_err, 0);
+	}
+
+	ullFileSize = (((ULONGLONG) dwFileSizeHigh) << 32) + dwFileSizeLow;
+	return (ULONG) ((ullFileSize + pagesize - 1) / pagesize);
+}
+
+
+/**************************************
+ *
+ *	Compute last physically allocated page of database.
+ *
+ **************************************/
+SLONG PIO_max_alloc(DBB dbb)
+{
+	FIL file = dbb->dbb_file;
+	ULONG nPages;
+
+	while (file->fil_next) {
+		file = file->fil_next;
+	}
+
+	nPages = private_PIO_get_number_of_pages(file, dbb->dbb_page_size);
+
+	return file->fil_min_page - file->fil_fudge + nPages;
+}
+
+
+/**************************************
+ *
+ *  Compute actual number of physically allocated pages of database.
+ *
+ **************************************/
+SLONG PIO_act_alloc(DBB dbb)
+{
+	FIL file;
+	SLONG tot_pages = 0;
+
+/**
+ **  Traverse the linked list of files and add up the number of pages
+ **  in each file
+ **/
+	for (file = dbb->dbb_file; file != NULL; file = file->fil_next) {
+		tot_pages +=
+			private_PIO_get_number_of_pages(file, dbb->dbb_page_size);
+	}
+
+	return tot_pages;
+}
+
+
+
+/**************************************
+ *
+ *	Open a database file.  If a "connection" block is provided, use
+ *	the connection to communication with a page/lock server.
+ *
+ **************************************/
+FIL PIO_open(DBB dbb,
+			 TEXT * string,
+			 SSHORT length,
+			 SSHORT trace_flag,
+			 BLK connection, TEXT * file_name, USHORT file_length)
+{
+	TEXT temp[MAXPATHLEN], *ptr;
+	HANDLE desc;
+
+#ifdef SUPERSERVER_V2
+	const DWORD dwShareFlags = 0;	/* no sharing */
+	const DWORD dwExtraFlags = FILE_FLAG_OVERLAPPED | FILE_FLAG_NO_BUFFERING;
+#else
+	const DWORD dwShareFlags = FILE_SHARE_READ | FILE_SHARE_WRITE;
+	const DWORD dwExtraFlags = 0;
+#endif
+
+	if (string) {
+		ptr = string;
+		if (length) {
+			MOVE_FAST(string, temp, length);
+			temp[length] = 0;
+			ptr = temp;
+		}
+	}
+	else {
+		ptr = file_name;
+		if (file_length) {
+			MOVE_FAST(file_name, temp, file_length);
+			temp[file_length] = 0;
+			ptr = temp;
+		}
+	}
+
+	desc = CreateFile(ptr,
+					  GENERIC_READ | GENERIC_WRITE,
+					  dwShareFlags,
+					  NULL,
+					  OPEN_EXISTING,
+					  FILE_ATTRIBUTE_NORMAL |
+					  FILE_FLAG_RANDOM_ACCESS | dwExtraFlags, 0);
+
+	if (desc == INVALID_HANDLE_VALUE) {
+#ifdef READONLY_DATABASE
+		/* Try opening the database file in ReadOnly mode.
+		 * The database file could be on a RO medium (CD-ROM etc.).
+		 * If this fileopen fails, return error.
+		 */
+		desc = CreateFile(ptr,
+						  GENERIC_READ,
+						  FILE_SHARE_READ,
+						  NULL,
+						  OPEN_EXISTING,
+						  FILE_ATTRIBUTE_NORMAL |
+						  FILE_FLAG_RANDOM_ACCESS | dwExtraFlags, 0);
+
+		if (desc == INVALID_HANDLE_VALUE) {
+#endif /* READONLY_DATABASE */
+			ERR_post(isc_io_error,
+					 gds_arg_string,
+					 "CreateFile (open)",
+					 gds_arg_cstring,
+					 file_length,
+					 ERR_string(file_name, file_length),
+					 isc_arg_gds,
+					 isc_io_open_err, gds_arg_win32, GetLastError(), 0);
+#ifdef READONLY_DATABASE
+		}
+		else {
+			/* If this is the primary file, set DBB flag to indicate that it is
+			 * being opened ReadOnly. This flag will be used later to compare with
+			 * the Header Page flag setting to make sure that the database is set
+			 * ReadOnly.
+			 */
+			if (!dbb->dbb_file)
+				dbb->dbb_flags |= DBB_being_opened_read_only;
+		}
+#endif /* READONLY_DATABASE */
+	}
+
+	return setup_file(dbb, string, length, desc);
+}
+
+
+int PIO_read(FIL file, BDB bdb, PAG page, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	P I O _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a data page.
+ *
+ **************************************/
+	DBB dbb;
+	DWORD size, actual_length;
+	HANDLE desc;
+	OVERLAPPED overlapped, *overlapped_ptr;
+
+	dbb = bdb->bdb_dbb;
+	size = dbb->dbb_page_size;
+
+	file = seek_file(file, bdb, status_vector, &overlapped, &overlapped_ptr);
+	if (!file) {
+		return FALSE;
+	}
+
+	desc = (HANDLE) ((file->fil_flags & FIL_force_write) ?
+					 file->fil_force_write_desc : file->fil_desc);
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		if (!ReadFile
+			(desc, spare_buffer, size, &actual_length, overlapped_ptr)
+			|| actual_length != size) {
+			if (ostype == OS_CHICAGO)
+				THD_MUTEX_UNLOCK(file->fil_mutex);
+			return nt_error("ReadFile", file, isc_io_read_err, status_vector);
+		}
+
+		(*dbb->dbb_decrypt) (dbb->dbb_encrypt_key->str_data,
+							 spare_buffer, size, page);
+	}
+	else
+#endif
+	{
+		if (!ReadFile(desc, page, size, &actual_length, overlapped_ptr) ||
+			actual_length != size) {
+#ifdef SUPERSERVER_V2
+			if (!GetOverlappedResult
+				(desc, overlapped_ptr, &actual_length, TRUE)
+				|| actual_length != size) {
+				release_io_event(file, overlapped_ptr);
+				return nt_error("GetOverlappedResult", file, isc_io_read_err,
+								status_vector);
+			}
+			else
+#else
+			{
+				if (ostype == OS_CHICAGO) {
+					THD_MUTEX_UNLOCK(file->fil_mutex);
+				}
+				return nt_error("ReadFile", file, isc_io_read_err,
+								status_vector);
+			}
+#endif
+		}
+	}
+
+#ifdef SUPERSERVER_V2
+	release_io_event(file, overlapped_ptr);
+#endif
+
+	if (ostype == OS_CHICAGO) {
+		THD_MUTEX_UNLOCK(file->fil_mutex);
+	}
+
+	return TRUE;
+}
+
+
+#ifdef SUPERSERVER_V2
+int PIO_read_ahead(
+				   DBB dbb,
+				   SLONG start_page,
+				   SCHAR * buffer,
+				   SLONG pages, PIOB piob, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	P I O _ r e a d _ a h e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a contiguous set of pages. The only
+ *	tricky part is to segment the I/O when crossing
+ *	file boundaries.
+ *
+ **************************************/
+	FIL file;
+	DWORD segmented_length, actual_length;
+	HANDLE desc;
+	OVERLAPPED overlapped, *overlapped_ptr;
+	struct bdb bdb;
+
+/* If an I/O status block was passed the caller wants to
+   queue an asynchronous I/O. */
+
+	if (!piob) {
+		overlapped_ptr = &overlapped;
+	}
+	else {
+		overlapped_ptr = (OVERLAPPED *) & piob->piob_io_event;
+		piob->piob_flags = 0;
+	}
+
+	while (pages) {
+		/* Setup up a dummy buffer descriptor block for seeking file. */
+
+		bdb.bdb_dbb = dbb;
+		bdb.bdb_page = start_page;
+
+		file =
+			seek_file(dbb->dbb_file, &bdb, status_vector, overlapped_ptr,
+					  &overlapped_ptr);
+		if (!file) {
+			return FALSE;
+		}
+
+		/* Check that every page within the set resides in the same database
+		   file. If not read what you can and loop back for the rest. */
+
+		segmented_length = 0;
+		while (pages && start_page >= file->fil_min_page
+			   && start_page <= file->fil_max_page) {
+			segmented_length += dbb->dbb_page_size;
+			++start_page;
+			--pages;
+		}
+
+		desc = (HANDLE) ((file->fil_flags & FIL_force_write) ?
+						 file->fil_force_write_desc : file->fil_desc);
+
+		if (ReadFile
+			(desc, buffer, segmented_length, &actual_length, overlapped_ptr)
+			&& actual_length == segmented_length) {
+			if (piob && !pages)
+				piob->piob_flags = PIOB_success;
+		}
+		else if (piob && !pages) {
+			piob->piob_flags = PIOB_pending;
+			piob->piob_desc = desc;
+			piob->piob_file = file;
+			piob->piob_io_length = segmented_length;
+		}
+		else
+			if (!GetOverlappedResult
+				(desc, overlapped_ptr, &actual_length, TRUE)
+				|| actual_length != segmented_length) {
+			if (piob)
+				piob->piob_flags = PIOB_error;
+			release_io_event(file, overlapped_ptr);
+			return nt_error("GetOverlappedResult", file, isc_io_read_err,
+							status_vector);
+		}
+
+		if (!piob || (piob->piob_flags & (PIOB_success | PIOB_error)))
+			release_io_event(file, overlapped_ptr);
+
+		buffer += segmented_length;
+	}
+
+	return TRUE;
+}
+#endif
+
+
+#ifdef SUPERSERVER_V2
+int PIO_status(PIOB piob, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	P I O _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check the status of an asynchronous I/O.
+ *
+ **************************************/
+	DWORD actual_length;
+
+	if (!(piob->piob_flags & PIOB_success)) {
+		if (piob->piob_flags & PIOB_error) {
+			return FALSE;
+		}
+		if (!GetOverlappedResult((HANDLE) piob->piob_desc,
+								 (OVERLAPPED *) & piob->piob_io_event,
+								 &actual_length,
+								 piob->piob_wait) ||
+			actual_length != piob->piob_io_length) {
+			release_io_event(piob->piob_file,
+							 (OVERLAPPED *) & piob->piob_io_event);
+			return nt_error("GetOverlappedResult", piob->piob_file,
+							isc_io_error, status_vector);
+		}
+	}
+
+	release_io_event(piob->piob_file, (OVERLAPPED *) & piob->piob_io_event);
+	return TRUE;
+}
+#endif
+
+
+int PIO_write(FIL file, BDB bdb, PAG page, STATUS* status_vector)
+{
+/**************************************
+ *
+ *	P I O _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a data page.
+ *
+ **************************************/
+	DBB dbb;
+	DWORD size, actual_length;
+	HANDLE desc;
+	OVERLAPPED overlapped, *overlapped_ptr;
+
+	dbb = bdb->bdb_dbb;
+	size = dbb->dbb_page_size;
+
+	if (!
+		(file =
+		 seek_file(file, bdb, status_vector, &overlapped,
+				   &overlapped_ptr))) return FALSE;
+
+	desc = (HANDLE) ((file->fil_flags & FIL_force_write) ?
+					 file->fil_force_write_desc : file->fil_desc);
+
+#ifdef ISC_DATABASE_ENCRYPTION
+	if (dbb->dbb_encrypt_key) {
+		SLONG spare_buffer[MAX_PAGE_SIZE / sizeof(SLONG)];
+
+		(*dbb->dbb_encrypt) (dbb->dbb_encrypt_key->str_data,
+							 page, size, spare_buffer);
+
+		if (!WriteFile
+			(desc, spare_buffer, size, &actual_length, overlapped_ptr)
+			|| actual_length != size) {
+			if (ostype == OS_CHICAGO)
+				THD_MUTEX_UNLOCK(file->fil_mutex);
+			return nt_error("WriteFile", file, isc_io_write_err,
+							status_vector);
+		}
+	}
+	else
+#endif
+	{
+		if (WriteFile(desc, page, size, &actual_length, overlapped_ptr) &&
+			actual_length == size);
+#ifdef SUPERSERVER_V2
+		else
+			if (!GetOverlappedResult
+				(desc, overlapped_ptr, &actual_length, TRUE)
+				|| actual_length != size) {
+			release_io_event(file, overlapped_ptr);
+			return nt_error("GetOverlappedResult", file, isc_io_write_err,
+							status_vector);
+		}
+#else
+		else {
+			if (ostype == OS_CHICAGO)
+				THD_MUTEX_UNLOCK(file->fil_mutex);
+			return nt_error("WriteFile", file, isc_io_write_err,
+							status_vector);
+		}
+#endif
+	}
+
+#ifdef SUPERSERVER_V2
+	release_io_event(file, overlapped_ptr);
+#endif
+
+	if (ostype == OS_CHICAGO)
+		THD_MUTEX_UNLOCK(file->fil_mutex);
+
+	return TRUE;
+}
+
+
+#ifdef SUPERSERVER_V2
+static void release_io_event(FIL file, OVERLAPPED* overlapped)
+{
+/**************************************
+ *
+ *	r e l e a s e _ i o _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an overlapped I/O event
+ *	back to the file block.
+ *
+ **************************************/
+	USHORT i;
+
+	if (!overlapped || !overlapped->hEvent)
+		return;
+
+	THD_MUTEX_LOCK(file->fil_mutex);
+	for (i = 0; i < MAX_FILE_IO; i++)
+		if (!file->fil_io_events[i]) {
+			file->fil_io_events[i] = overlapped->hEvent;
+			overlapped->hEvent = NULL;
+			break;
+		}
+	THD_MUTEX_UNLOCK(file->fil_mutex);
+
+	if (overlapped->hEvent)
+		CloseHandle(overlapped->hEvent);
+}
+#endif
+
+
+
+static FIL seek_file(FIL			file,
+					 BDB			bdb,
+					 STATUS*		status_vector,
+					 OVERLAPPED*	overlapped,
+					 OVERLAPPED**	overlapped_ptr)
+{
+/**************************************
+ *
+ *	s e e k _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a buffer descriptor block, find the appropropriate
+ *	file block and seek to the proper page in that file.
+ *
+ **************************************/
+	ULONG page;
+	DBB dbb;
+	HANDLE desc;
+	LARGE_INTEGER liOffset;
+
+#ifdef SUPERSERVER_V2
+	USHORT i;
+#endif
+
+	dbb = bdb->bdb_dbb;
+	page = bdb->bdb_page;
+
+	for (;; file = file->fil_next) {
+		if (!file) {
+			CORRUPT(158);		/* msg 158 cannot sort on a field that does not exist */
+		}
+		else if (page >= file->fil_min_page && page <= file->fil_max_page) {
+			break;
+		}
+	}
+
+	page -= file->fil_min_page - file->fil_fudge;
+
+	liOffset.QuadPart =
+		UInt32x32To64((DWORD) page, (DWORD) dbb->dbb_page_size);
+
+	if (ostype == OS_CHICAGO) {
+		THD_MUTEX_LOCK(file->fil_mutex);
+		desc = (HANDLE) ((file->fil_flags & FIL_force_write) ?
+						 file->fil_force_write_desc : file->fil_desc);
+
+		if (SetFilePointer(desc,
+						   (LONG) liOffset.LowPart,
+						   &liOffset.HighPart, FILE_BEGIN) == 0xffffffff) {
+			THD_MUTEX_UNLOCK(file->fil_mutex);
+			return (FIL) nt_error("SetFilePointer", file, isc_io_access_err,
+								  status_vector);
+		}
+		*overlapped_ptr = NULL;
+	}
+	else {
+		overlapped->Offset = liOffset.LowPart;
+		overlapped->OffsetHigh = liOffset.HighPart;
+		overlapped->Internal = 0;
+		overlapped->InternalHigh = 0;
+		overlapped->hEvent = (HANDLE) 0;
+
+		*overlapped_ptr = overlapped;
+
+#ifdef SUPERSERVER_V2
+		THD_MUTEX_LOCK(file->fil_mutex);
+		for (i = 0; i < MAX_FILE_IO; i++) {
+			if (overlapped->hEvent = (HANDLE) file->fil_io_events[i]) {
+				file->fil_io_events[i] = 0;
+				break;
+			}
+		}
+		THD_MUTEX_UNLOCK(file->fil_mutex);
+		if (!overlapped->hEvent &&
+			!(overlapped->hEvent = CreateEvent(NULL, TRUE, FALSE, NULL))) {
+			return (FIL) nt_error("CreateEvent", file, isc_io_access_err,
+								  status_vector);
+		}
+		ResetEvent(overlapped->hEvent);
+#endif
+	}
+
+	return file;
+}
+
+
+static FIL setup_file(DBB		dbb,
+					  TEXT*		file_name,
+					  USHORT	file_length,
+					  HANDLE	desc)
+{
+/**************************************
+ *
+ *	s e t u p _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up file and lock blocks for a file.
+ *
+ **************************************/
+	FIL file;
+	LCK lock;
+	UCHAR *p, *q, lock_string[32];
+	USHORT l;
+	BY_HANDLE_FILE_INFORMATION file_info;
+
+/* Allocate file block and copy file name string */
+
+	file = (FIL) ALLOCPV(type_fil, file_length + 1);
+	file->fil_desc = reinterpret_cast < long >(desc);
+	file->fil_force_write_desc =
+		reinterpret_cast < long >(INVALID_HANDLE_VALUE);
+	file->fil_length = file_length;
+	file->fil_max_page = -1;
+	MOVE_FAST(file_name, file->fil_string, file_length);
+	file->fil_string[file_length] = 0;
+	THD_MUTEX_INIT(file->fil_mutex);
+
+/* If this isn't the primary file, we're done */
+
+	if (dbb->dbb_file)
+		return file;
+
+/* Set a local variable that indicates whether we're running
+   under Windows/NT or Chicago */
+
+	ostype = ISC_is_WinNT()? OS_WINDOWS_NT : OS_CHICAGO;
+
+/* Build unique lock string for file and construct lock block */
+
+	GetFileInformationByHandle((HANDLE) desc, &file_info);
+	p = lock_string;
+
+	q = (UCHAR *) & file_info.dwVolumeSerialNumber;
+	l = sizeof(file_info.dwVolumeSerialNumber);
+	do
+		*p++ = *q++;
+	while (--l);
+
+	q = (UCHAR *) & file_info.nFileIndexHigh;
+	l = sizeof(file_info.nFileIndexHigh);
+	do
+		*p++ = *q++;
+	while (--l);
+
+	q = (UCHAR *) & file_info.nFileIndexLow;
+	l = sizeof(file_info.nFileIndexLow);
+	do
+		*p++ = *q++;
+	while (--l);
+
+	l = p - lock_string;
+
+	dbb->dbb_lock = lock = (LCK) ALLOCPV(type_lck, l);
+	lock->lck_type = LCK_database;
+	lock->lck_owner_handle = LCK_get_owner_handle(NULL_TDBB, lock->lck_type);
+	lock->lck_object = reinterpret_cast < blk * >(dbb);
+	lock->lck_length = l;
+	lock->lck_dbb = dbb;
+	lock->lck_ast = reinterpret_cast < int (*) () > (CCH_down_grade_dbb);
+	MOVE_FAST(lock_string, lock->lck_key.lck_string, l);
+
+/* Try to get an exclusive lock on database.  If this fails, insist
+   on at least a shared lock */
+
+	dbb->dbb_flags |= DBB_exclusive;
+	if (!LCK_lock(NULL_TDBB, lock, LCK_EX, LCK_NO_WAIT)) {
+		dbb->dbb_flags &= ~DBB_exclusive;
+		LCK_lock(NULL_TDBB, lock,
+				 (dbb->dbb_flags & DBB_cache_manager) ? LCK_SR : LCK_SW,
+				 LCK_WAIT);
+	}
+
+	return file;
+}
+
+
+static BOOLEAN nt_error(TEXT*	string,
+						FIL		file,
+						STATUS	operation,
+						STATUS*	status_vector)
+{
+/**************************************
+ *
+ *	n t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody has noticed a file system error and expects error
+ *	to do something about it.  Harumph!
+ *
+ **************************************/
+
+	if (status_vector) {
+		*status_vector++ = isc_arg_gds;
+		*status_vector++ = isc_io_error;
+		*status_vector++ = gds_arg_string;
+		*status_vector++ = (STATUS) string;
+		*status_vector++ = gds_arg_string;
+		*status_vector++ =
+			(STATUS) ERR_string(file->fil_string, file->fil_length);
+		*status_vector++ = isc_arg_gds;
+		*status_vector++ = operation;
+		*status_vector++ = gds_arg_win32;
+		*status_vector++ = GetLastError();
+		*status_vector++ = gds_arg_end;
+		return FALSE;
+	}
+
+	ERR_post(isc_io_error,
+			 gds_arg_string, string,
+			 gds_arg_string, ERR_string(file->fil_string, file->fil_length),
+			 isc_arg_gds, operation, gds_arg_win32, GetLastError(), 0);
+
+	return TRUE;
+}
+
+
+} // extern "C"
diff --git a/src/jrd/winnt_dll.cpp b/src/jrd/winnt_dll.cpp
new file mode 100644
index 0000000000..0d92b7d729
--- /dev/null
+++ b/src/jrd/winnt_dll.cpp
@@ -0,0 +1,41 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		winnt_dll.c
+ *	DESCRIPTION:	Initialization for Windows NT DLL
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include <windows.h>
+
+
+INT LibMain(HANDLE hInst, ULONG ul_reasoncalled, LPVOID lpReserved)
+{
+/**************************************
+ *
+ *	L i b M a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return TRUE;
+}
diff --git a/src/lock/config_params b/src/lock/config_params
new file mode 100644
index 0000000000..926354600d
--- /dev/null
+++ b/src/lock/config_params
@@ -0,0 +1,9 @@
+#V4_LOCK_MEM_SIZE	98304
+#ANY_LOCK_MEM_SIZE	98304
+#V4_LOCK_SEM_COUNT	32
+#ANY_LOCK_SEM_COUNT	32
+#V4_LOCK_SIGNAL		16
+#ANY_LOCK_SIGNAL	16
+#V4_EVENT_MEM_SIZE	32768
+#ANY_EVENT_MEM_SIZE	32768
+#TCP_NO_NAGLE           0
diff --git a/src/lock/depends.mak b/src/lock/depends.mak
new file mode 100644
index 0000000000..0e99b24035
--- /dev/null
+++ b/src/lock/depends.mak
@@ -0,0 +1,99 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# depends.mak - lock
+# Created by 'make depends.mak'
+# Created on 1998-11-17
+driver.o: driver.c
+driver.o: source/interbase/include/iberror.h
+driver.o: source/lock/lock.h
+driver.o: source/lock/source/jrd/common.h
+driver.o: source/lock/source/jrd/file_params.h
+driver.o: source/jrd/common.h
+driver.o: source/jrd/gds.h
+driver.o: source/jrd/isc.h
+driver.o: source/jrd/thd.h
+lock.o: lock.c
+lock.o: source/lock/lock.h
+lock.o: source/lock/lock_proto.h
+lock.o: source/lock/source/jrd/common.h
+lock.o: source/lock/source/jrd/file_params.h
+lock.o: source/jrd/codes.h
+lock.o: source/jrd/common.h
+lock.o: source/jrd/fil.h
+lock.o: source/jrd/gds_proto.h
+lock.o: source/jrd/isc.h
+lock.o: source/jrd/isc_i_proto.h
+lock.o: source/jrd/isc_proto.h
+lock.o: source/jrd/isc_s_proto.h
+lock.o: source/jrd/sch_proto.h
+lock.o: source/jrd/thd.h
+lock.o: source/jrd/thd_proto.h
+lock.o: source/jrd/time.h
+manager.o: manager.c
+manager.o: source/lock/lock_proto.h
+manager.o: source/jrd/blk.h
+manager.o: source/jrd/common.h
+manager.o: source/jrd/dsc.h
+manager.o: source/jrd/gdsassert.h
+manager.o: source/jrd/isc.h
+manager.o: source/jrd/jrd.h
+manager.o: source/jrd/lck.h
+manager.o: source/jrd/thd.h
+pls.o: lock.h
+pls.o: pls.c
+pls.o: plserver.h
+pls.o: source/jrd/common.h
+pls.o: source/jrd/file_params.h
+plserver.o: plserver.c
+plserver.o: plserver.h
+plserver.o: source/jrd/common.h
+print.o: print.c
+print.o: prtv3_proto.h
+print.o: source/lock/lock.h
+print.o: source/lock/source/jrd/common.h
+print.o: source/lock/source/jrd/file_params.h
+print.o: source/jrd/blk.h
+print.o: source/jrd/common.h
+print.o: source/jrd/dsc.h
+print.o: source/jrd/fil.h
+print.o: source/jrd/file_params.h
+print.o: source/jrd/gds_proto.h
+print.o: source/jrd/gdsassert.h
+print.o: source/jrd/isc.h
+print.o: source/jrd/isc_proto.h
+print.o: source/jrd/isc_s_proto.h
+print.o: source/jrd/jrd.h
+print.o: source/jrd/lck.h
+print.o: source/jrd/thd.h
+print.o: source/jrd/time.h
+printv3.o: fparamv3.h
+printv3.o: lockv3.h
+printv3.o: printv3.c
+printv3.o: prtv3_proto.h
+printv3.o: source/jrd/common.h
+printv3.o: source/jrd/isc.h
+printv3.o: source/jrd/thd.h
+printv3s4.o: fparamv3.h
+printv3s4.o: lockv3s4.h
+printv3s4.o: printv3s4.c
+printv3s4.o: prtv3_proto.h
+printv3s4.o: source/jrd/common.h
+reset.o: lock.h
+reset.o: reset.c
+reset.o: source/jrd/common.h
+reset.o: source/jrd/file_params.h
+ulimit.o: ulimit.c
diff --git a/src/lock/driver.cpp b/src/lock/driver.cpp
new file mode 100644
index 0000000000..bbca5c6bb0
--- /dev/null
+++ b/src/lock/driver.cpp
@@ -0,0 +1,376 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		driver.c
+ *	DESCRIPTION:	Stand alone test driver
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/isc.h"
+#ifdef LINKS_EXIST
+#include "../isc_lock/lock.h"
+#else
+#include "../lock/lock.h"
+#endif
+
+#ifdef WIN_NT
+#include <process.h>
+#endif
+
+static void ast(int);
+static int lookup_agg(UCHAR *);
+static int lookup_lock(UCHAR *);
+static void print_help(void);
+
+static struct tbl {
+	SCHAR *tbl_string;
+	SSHORT tbl_code;
+} types[] = {
+	"null", LCK_null,
+		"pr", LCK_PR,
+		"sr", LCK_SR,
+
+		"pw", LCK_PW, "sw", LCK_SW, "ex", LCK_EX, NULL, LCK_none};
+
+static struct tagg {
+	SCHAR *tagg_string;
+	SSHORT tagg_code;
+} aggs[] = {
+	"min", LCK_MIN,
+		"max", LCK_MAX,
+		"cnt", LCK_CNT,
+		"sum", LCK_SUM, "avg", LCK_AVG, "any", LCK_ANY, NULL, NULL};
+
+static int wait, sw_release, locks[100], levels[100];
+static SLONG lck_owner_handle = 0;
+
+
+void main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Test driver for lock manager.
+ *
+ **************************************/
+	UCHAR op[500], arg[500];
+	SSHORT type, slot, n, agg;
+	SLONG lock, parent, data;
+	STATUS status, status_vector[20];
+
+	ib_printf("\nStand alone Lock Manager driver program.\n");
+	ib_printf("****************************************\n\n");
+	ib_printf("pid = %d\n\n", getpid());
+	ib_printf("\n");
+
+	if (LOCK_init(status_vector, TRUE,
+				  (SLONG) getpid(), 1, &lck_owner_handle)) {
+		ib_printf("LOCK_init failed\n");
+		gds__print_status(status_vector);
+		exit(0);
+	}
+
+	wait = 1;
+	sw_release = 1;
+	slot = 0;
+
+/* Force a dummy parent lock to test query data functionality */
+
+	parent = LOCK_enq(NULL,		/* prior request */
+					  NULL,		/* parent request */
+					  0,		/* series */
+					  "parent",	/* value */
+					  strlen("parent"),	/* length of key */
+					  LCK_SR,	/* lock type */
+					  NULL, NULL,	/* AST and argument */
+					  0, wait, status_vector, lck_owner_handle);
+
+	while (TRUE) {
+		ib_printf("Request: ");
+		status = ib_scanf("%s%s", op, arg);
+		if (status == EOF)
+			continue;
+		if (!strcmp(op, "rel")) {
+			n = atoi(arg);
+			if (n < slot && (lock = locks[n])) {
+				LOCK_deq(lock);
+				locks[n] = 0;
+			}
+			else
+				ib_printf("*** BAD LOCK\n");
+			continue;
+		}
+		else if (!strcmp(op, "ar")) {
+			sw_release = atoi(arg);
+			continue;
+		}
+		else if (!strcmp(op, "w")) {
+			wait = atoi(arg);
+			continue;
+		}
+		else if (!strcmp(op, "q"))
+			exit(0);
+		else if (!strcmp(op, "rd")) {
+			n = atoi(arg);
+			if (n >= slot || !(lock = locks[n])) {
+				ib_printf("bad lock\n");
+				continue;
+			}
+			data = LOCK_read_data(lock);
+			ib_printf("lock data = %d\n", data);
+			continue;
+		}
+		else if (!strcmp(op, "wd")) {
+			n = atoi(arg);
+			if (n >= slot || !(lock = locks[n])) {
+				ib_printf("bad lock\n");
+				continue;
+			}
+			ib_scanf("%s", arg);
+			data = atoi(arg);
+			LOCK_write_data(lock, data);
+			continue;
+		}
+		else if (!strcmp(op, "qd")) {
+			if (!(agg = lookup_agg(arg))) {
+				ib_printf("bad query aggregate\n");
+				continue;
+			}
+			data = LOCK_query_data(parent, 0, agg);
+			if (agg == LCK_ANY)
+				ib_printf("%s = %s\n", arg, ((data) ? "true" : "false"));
+			else
+				ib_printf("%s = %d\n", arg, data);
+			continue;
+		}
+		else if (!strcmp(op, "cvt")) {
+			n = atoi(arg);
+			ib_scanf("%s", op);
+			if (!(type = lookup_lock(op))) {
+				ib_printf("bad lock type\n");
+				continue;
+			}
+			if (n >= slot || !(lock = locks[n])) {
+				ib_printf("bad lock\n");
+				continue;
+			}
+			if (!LOCK_convert(lock, type, wait, NULL, 0, status_vector)) {
+				ib_printf("*** CONVERSION FAILED: status_vector[1] = %d",
+						  status_vector[1]);
+				if (status_vector[1] == gds__lock_timeout)
+					ib_printf(" (gds__lock_timeout)\n");
+				else if (status_vector[1] == gds__lock_conflict)
+					ib_printf(" (gds__lock_conflict)\n");
+				else if (status_vector[1] == gds__deadlock)
+					ib_printf(" (gds__deadlock)\n");
+				else
+					ib_printf("\n");
+			}
+			continue;
+		}
+		else if (type = lookup_lock(op)) {
+			lock = LOCK_enq(NULL,	/* prior request */
+							parent,	/* parent request */
+							0,	/* series */
+							arg,	/* value */
+							strlen(arg),	/* length of key */
+							type,	/* lock type */
+							(sw_release ? ast : NULL), slot,	/* AST and argument */
+							0, wait, status_vector, lck_owner_handle);
+			if (lock) {
+				ib_printf("lock# %d = %d\n", slot, lock);
+				levels[slot] = type;
+				locks[slot++] = lock;
+			}
+			else {
+				ib_printf("*** LOCK REJECTED: status_vector[1] = %d",
+						  status_vector[1]);
+				if (status_vector[1] == gds__lock_timeout)
+					ib_printf(" (gds__lock_timeout)\n");
+				else if (status_vector[1] == gds__lock_conflict)
+					ib_printf(" (gds__lock_conflict)\n");
+				else if (status_vector[1] == gds__deadlock)
+					ib_printf(" (gds__deadlock)\n");
+				else
+					ib_printf("\n");
+			}
+		}
+		else {
+			print_help();
+			continue;
+		}
+	}
+
+}
+
+
+static void ast( int slot)
+{
+/**************************************
+ *
+ *	a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dummy blocking ast.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	int sw_release_use = sw_release;
+
+	ib_printf("*** blocking AST for lock# %d ", slot);
+
+	if (sw_release < 0) {
+		ib_printf("In the AST routine.\n");
+		ib_printf("Enter ar value [1=nothing, 2=release, 3=downgrade]:");
+		ib_scanf("%d", &sw_release_use);
+	}
+
+	if (sw_release_use == 1) {
+		ib_printf("-- ignored ***\n");
+		return;
+	}
+
+	if (sw_release_use > 2 && levels[slot] == LCK_EX) {
+		LOCK_convert(locks[slot], LCK_SR, wait, NULL, 0, status_vector);
+		levels[slot] = LCK_SR;
+		ib_printf("-- down graded to SR ***\n");
+		return;
+	}
+
+	LOCK_deq(locks[slot]);
+	ib_printf("-- released ***\n");
+}
+
+
+static lookup_agg( UCHAR * string)
+{
+/**************************************
+ *
+ *	l o o k u p _ a g g
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	struct tagg *ptr;
+
+	for (ptr = aggs; ptr->tagg_string; ptr++)
+		if (strcmp(ptr->tagg_string, string) == 0)
+			return ptr->tagg_code;
+
+	return NULL;
+}
+
+
+static lookup_lock( UCHAR * string)
+{
+/**************************************
+ *
+ *	l o o k u p _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	struct tbl *ptr;
+
+	for (ptr = types; ptr->tbl_string; ptr++)
+		if (strcmp(ptr->tbl_string, string) == 0)
+			return ptr->tbl_code;
+
+	return LCK_none;
+}
+
+
+static void print_help(void)
+{
+/**************************************
+*                                                       
+*      p r i n t _ h e l p
+*
+**************************************
+*
+* Functional description
+*      Prints the command syntax.
+*
+***************************************/
+
+	ib_printf("Command syntax is:\n");
+	ib_printf
+		("\tnull <key>\tAcquire an 'null' lock on <key> (returns <lock#>)\n");
+	ib_printf
+		("\tsr <key>\tAcquire an 'sr' lock on <key> (returns <lock#>)\n");
+	ib_printf
+		("\tpr <key>\tAcquire an 'pr' lock on <key> (returns <lock#>)\n");
+	ib_printf
+		("\tsw <key>\tAcquire an 'sw' lock on <key> (returns <lock#>)\n");
+	ib_printf
+		("\tpw <key>\tAcquire an 'pw' lock on <key> (returns <lock#>)\n");
+	ib_printf
+		("\tex <key>\tAcquire an 'ex' lock on <key> (returns <lock#>)\n");
+	ib_printf("\tw <value>\tSet wait parameter to LOCK_enq:\n");
+	ib_printf("\t\t\t\tvalue>0   willing to wait forever [default]\n");
+	ib_printf("\t\t\t\tvalue=0   not willing to wait\n");
+	ib_printf("\t\t\t\tvalue<0   willing to wait for that many seconds\n");
+	ib_printf("\tar <value>\tControls the AST\n");
+	ib_printf
+		("\t\t\t\tvalue=1   AST will not release nor downgrade [default]\n");
+	ib_printf("\t\t\t\tvalue=2   AST will release lock\n");
+	ib_printf("\t\t\t\tvalue=3   AST will attempt to downgrade first\n");
+	ib_printf("\t\t\t\tvalue<0   AST will prompt\n");
+	ib_printf("\t\t\t\tvalue=0   AST is not supplied\n");
+	ib_printf("\trel <lock#>\tRelease lock <lock#>\n");
+	ib_printf
+		("\tcvt <lock#> <lock-type>\n\t\t\tConvert lock <lock#> to type <lock-type>\n");
+	ib_printf("\trd <lock#>\tRead data <lock#>\n");
+	ib_printf("\twd <lock#> <data>\tWrite <data> to <lock#>\n");
+	ib_printf
+		("\tqd <agg>\tQuery data for <agg := min,max,cnt,sum,avg,any>\n");
+	ib_printf("\tq <don't-care>\tQuit\n");
+	ib_printf("\nRemember the isc_config modifier:\n");
+	ib_printf("\tV4_LOCK_GRANT_ORDER {0 | 1}\n");
+	ib_printf("\t\t\t0 = disable lock-grant-order (no lock-fairness)\n");
+	ib_printf("\t\t\t1 = enable lock-grant-order [default]\n");
+}
+
+
+SCH_ast(void)
+{
+/**************************************
+ *
+ *	S C H _ a s t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stub to prevent link error
+ *
+ **************************************/
+}
diff --git a/src/lock/fparamv3.h b/src/lock/fparamv3.h
new file mode 100644
index 0000000000..b4b1601f5b
--- /dev/null
+++ b/src/lock/fparamv3.h
@@ -0,0 +1,85 @@
+/*
+ *	PROGRAM:	Lock manager
+ *	MODULE:		fparamv3.h
+ *	DESCRIPTION:	Version 3 file parameter definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef NOHOSTNAME
+#define LOCK_FILE	"/usr/interbase/isc_lock.gbl"
+#define EVENT_FILE	"/usr/interbase/isc_event.gbl"
+#else
+#ifdef SMALL_FILE_NAMES
+#define LOCK_FILE	"/usr/interbase/isclm.%s"
+#define EVENT_FILE	"/usr/interbase/iscev.%s"
+#endif
+#endif
+
+#ifdef VMS
+#define EVENT_FILE		"[000000]isc_event.%s"
+#endif
+
+#ifdef MSDOS
+#define EVENT_FILE		"/sharemem/gds_evnt.m0"
+#endif
+
+#ifndef EVENT_FILE
+#define EVENT_FILE		"/usr/interbase/isc_event.gbl.%s"
+#endif
+
+#define EVENT_DEFAULT_SIZE	32768
+#define EVENT_EXTEND_SIZE	32768
+#define EVENT_VERSION		1
+#define EVENT_SEMAPHORES	1
+
+#ifndef LOCK_FILE
+#define LOCK_FILE	"/usr/interbase/gds.lock.%s"
+#endif
+
+#ifndef LOCK_HEADER
+#define LOCK_HEADER	"/usr/interbase/lock_header"
+#endif
+
+#ifdef sun
+#ifndef SUN3_3
+#include <sys/types.h>
+#include <sys/ipc.h>
+#define SUNOS4
+#ifndef i386
+#define CSV
+#endif
+#endif
+#endif
+
+#if (defined linux || defined FREEBSD || defined NETBSD)
+#include <sys/types.h>
+#include <sys/ipc.h>
+#ifndef i386
+#define CSV
+#endif
+#endif
+
+
+#ifdef CSV
+/* Central server definitions taken from source/csv/csi.h */
+
+#define CSI_FILE                "/usr/interbase/isc_csv.%s"
+#define CSI_DEFAULT_SIZE        262144
+#define MAX_PROCESSES           16
+#endif
diff --git a/src/lock/lock.cpp b/src/lock/lock.cpp
new file mode 100644
index 0000000000..4934ed8db4
--- /dev/null
+++ b/src/lock/lock.cpp
@@ -0,0 +1,5242 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		lock.c
+ *	DESCRIPTION:	Generic ISC Lock Manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: lock.cpp,v 1.1.1.1 2001-05-23 13:26:25 tamlin Exp $
+*/
+
+#include "../jrd/time.h"
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include "../jrd/thd.h"
+#include "../jrd/isc.h"
+#ifdef LINKS_EXIST
+#include "../isc_lock/lock.h"
+#include "../isc_lock/lock_proto.h"
+#else
+#include "../lock/lock.h"
+#include "../lock/lock_proto.h"
+#endif /* LINKS_EXIST */
+#include "../jrd/codes.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_i_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#include <errno.h>
+
+#ifdef sparc
+#ifndef SOLARIS
+#include <vfork.h>
+#endif
+#endif
+
+#if ( defined DELTA || defined IMP )
+#define waitpid(x,y,z)	wait (y)
+#endif
+
+#ifdef NETWARE_386
+#define getpid		GetNLMID
+#define USE_EVENTS
+#endif
+
+#if defined UNIX
+#define USE_EVENTS
+#ifndef ANY_THREADING			/* #if !(defined SOLARIS || defined POSIX_THREADS) */
+#define STATIC_SEMAPHORES
+#endif /* ANY_THREADING */
+#endif /* UNIX */
+
+#ifdef WIN_NT
+#include <process.h>
+#define MUTEX		lock_manager_mutex
+#define ERRNO		GetLastError()
+#endif
+
+#ifdef MANAGER_PROCESS
+#include <sys/stat.h>
+#define statistics	stat
+static BOOLEAN LOCK_post_manager;
+#endif
+
+#ifdef DEV_BUILD
+#define ASSERT_ACQUIRED current_is_active_owner (TRUE,  __LINE__)
+#define ASSERT_RELEASED current_is_active_owner (FALSE, __LINE__)
+#define VALIDATE_LOCK_TABLE
+#if ((defined MMAP_SUPPORTED) && !(defined SUPERSERVER))
+#define LOCK_DEBUG_ACQUIRE
+#endif
+#endif
+
+#ifdef LOCK_DEBUG_ACQUIRE
+#define DEBUG_ACQUIRE_INTERVAL 5000
+static ULONG debug_acquire_count = 0;
+#endif
+
+#ifndef ASSERT_ACQUIRED
+#define	ASSERT_ACQUIRED			/* nothing */
+#endif
+
+#ifndef ASSERT_RELEASED
+#define	ASSERT_RELEASED			/* nothing */
+#endif
+
+
+#ifdef DEV_BUILD
+#define CHECK(x)	{ if (!(x)) bug_assert ("consistency check", __LINE__); }
+#endif
+
+#ifndef CHECK
+#define CHECK(x)				/* nothing */
+#endif
+
+#ifdef DEBUG
+#define DEBUG_MANAGER "manager"
+#define DEBUG_TRACE
+#endif
+
+#ifdef DEBUG_TRACE
+#define LOCK_TRACE(x)	{ time_t t; (void) time (&t); ib_printf ("%s", ctime(&t) ); ib_printf x ; ib_fflush (ib_stdout); }
+#endif
+
+#ifdef DEBUG
+SSHORT LOCK_debug_level = 0;
+#define DEBUG_MSG(l,x)	if ((l) <= LOCK_debug_level) { time_t t; (void) time (&t); ib_printf ("%s", ctime(&t) ); ib_printf x ; ib_fflush (ib_stdout); gds__log x ; }
+#endif
+
+#ifndef DEBUG_MSG
+#define DEBUG_MSG(l,x)			/* nothing */
+#endif
+
+#ifndef LOCK_TRACE
+#define LOCK_TRACE(x)			/* nothing */
+#endif
+
+/* Debug delay is used to create nice big windows for signals or other
+ * events to occur in - eg: slow down the code to try and make
+ * timing race conditions show up
+ */
+#ifdef DEBUG
+#define	DEBUG_DELAY	debug_delay (__LINE__)
+#endif
+
+#ifndef DEBUG_DELAY
+#define DEBUG_DELAY				/* nothing */
+#endif
+
+#ifndef ERRNO
+#define ERRNO		errno
+#endif
+
+#ifndef MUTEX
+#define MUTEX		LOCK_header->lhb_mutex
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	256
+#endif
+
+#ifndef SV_INTERRUPT
+#define SV_INTERRUPT	0
+#endif
+
+#define DUMMY_OWNER_CREATE	((PTR) -1)
+#define DUMMY_OWNER_DELETE	((PTR) -2)
+#define DUMMY_OWNER_SHUTDOWN	((PTR) -3)
+
+#if !(defined linux || defined NETWARE_386 || defined WIN_NT || defined FREEBSD || defined NETBSD)
+extern SCHAR *sys_errlist[];
+#endif
+
+static void acquire(PTR);
+static UCHAR *alloc(SSHORT, STATUS *);
+static LBL alloc_lock(USHORT, STATUS *);
+static USHORT alloc_semaphore(OWN, STATUS *);
+static void blocking_action(PTR);
+static void blocking_action2(PTR, PTR);
+static void THREAD_ROUTINE blocking_action_thread(PTR *);
+static void bug(STATUS *, CONST TEXT *);
+#ifdef DEV_BUILD
+static void bug_assert(CONST TEXT *, ULONG);
+#endif
+static BOOLEAN convert(PTR, UCHAR, SSHORT, FPTR_INT, int *, STATUS *);
+static USHORT create_owner(STATUS *, SLONG, UCHAR, SLONG *);
+#ifdef DEV_BUILD
+static void current_is_active_owner(BOOLEAN, ULONG);
+#endif
+static void deadlock_clear(void);
+static LRQ deadlock_scan(OWN, LRQ);
+static LRQ deadlock_walk(LRQ, BOOLEAN *);
+static void dequeue(PTR);
+#ifdef DEBUG
+static void debug_delay(ULONG);
+#endif
+static void exit_handler(void *);
+static LBL find_lock(PTR, USHORT, UCHAR *, USHORT, USHORT *);
+static USHORT fork_lock_manager(STATUS *);
+static OWN get_manager(BOOLEAN);
+static LRQ get_request(PTR);
+static void grant(LRQ, LBL);
+static PTR grant_or_que(LRQ, LBL, SSHORT);
+static STATUS init_lock_table(STATUS *);
+static void init_owner_block(OWN, UCHAR, ULONG, USHORT);
+static void lock_alarm_handler(EVENT);
+static void lock_initialize(void *, SH_MEM, int);
+static void insert_data_que(LBL);
+static void insert_tail(SRQ, SRQ);
+static USHORT lock_state(LBL);
+static void port_waker(PTR *);
+static void post_blockage(LRQ, LBL, BOOLEAN);
+static void post_history(USHORT, PTR, PTR, PTR, BOOLEAN);
+static void post_pending(LBL);
+static void post_wakeup(OWN);
+#ifndef SUPERSERVER
+static BOOLEAN probe_owners(PTR);
+#endif
+static void purge_owner(PTR, OWN);
+static void remove_que(SRQ);
+static void release(PTR);
+static void release_mutex(void);
+static void release_request(LRQ);
+static void release_semaphore(OWN);
+static void shutdown_blocking_thread(STATUS *);
+static int signal_owner(OWN, PTR);
+#ifdef VALIDATE_LOCK_TABLE
+static void validate_lhb(LHB);
+static void validate_shb(PTR);
+static void validate_owner(PTR, USHORT);
+static void validate_lock(PTR, USHORT, PTR);
+static void validate_request(PTR, USHORT, USHORT);
+static void validate_block(PTR);
+#endif
+
+static USHORT wait_for_request(LRQ, SSHORT, STATUS *);
+static void wakeup_action(PTR *);
+
+static struct own LOCK_process_owner;	/* Place holder */
+static SSHORT LOCK_bugcheck = 0;
+static LHB VOLATILE LOCK_header = NULL;
+static PTR LOCK_owner_offset = 0;
+static OWN LOCK_owner = 0;
+static SSHORT VOLATILE LOCK_asts = -1;
+static int LOCK_pid = 0, LOCK_version = 0;
+static SLONG LOCK_shm_size = 0, LOCK_sem_count = 0;
+
+#if (defined SOLARIS_MT && !defined SUPERSERVER)
+static SLONG LOCK_solaris_stall = 60;	/* seconds - def value for solaris stall */
+#endif
+
+static SLONG LOCK_block_signal = 0;
+
+#ifdef WAKEUP_SIGNAL
+static SLONG LOCK_wakeup_signal = 0;
+#endif
+
+static SLONG LOCK_ordering = 0;
+static SLONG LOCK_hash_slots;
+static SLONG LOCK_scan_interval;
+static SLONG LOCK_acquire_spins = 0;
+static SH_MEM_T LOCK_data;
+static BOOLEAN start_manager = FALSE;
+static TEXT LOCK_bug_buffer[128];
+
+
+#ifdef WIN_NT
+static MTX_T	lock_manager_mutex[1];
+#ifndef SUPERSERVER
+static HANDLE	blocking_event[1];
+static HANDLE	wakeup_event[1];
+#endif
+#endif
+
+// TMN: This struct must not be const, it's modified by ISC.
+static struct ipccfg LOCK_hdrtbl[] =
+{
+/* 5.5 SCO Port: Classic server on SCO - following is not supported */
+#if (!(defined WIN_NT) && !(defined SCO_EV))
+	"V4_LOCK_MEM_SIZE"		, -1, &LOCK_shm_size		, 0, 0,
+	"ANY_LOCK_MEM_SIZE"		, -1, &LOCK_shm_size		, -1, 0,
+#endif
+#ifdef STATIC_SEMAPHORES
+	"V4_LOCK_SEM_COUNT"		, -1, &LOCK_sem_count		, 0, 0,
+	"ANY_LOCK_SEM_COUNT"	, -1, &LOCK_sem_count		, -1, 0,
+#endif
+	"V4_LOCK_SIGNAL"		, -1, &LOCK_block_signal	, 0, 0,
+	"ANY_LOCK_SIGNAL"		, -1, &LOCK_block_signal	, -1, 0,
+	"V4_LOCK_GRANT_ORDER"	, -1, &LOCK_ordering		, 0, 0,
+	"LOCK_HASH_SLOTS"		, -1, &LOCK_hash_slots		, 0, 0,
+	"DEADLOCK_TIMEOUT"		, -1, &LOCK_scan_interval	, 0, 0,
+	"LOCK_ACQUIRE_SPINS"	, -1, &LOCK_acquire_spins	, 0, 0,
+#if (defined SOLARIS_MT && !defined SUPERSERVER)
+	"V4_SOLARIS_STALL_VALUE", -1, &LOCK_solaris_stall	, 0, 0,
+#endif
+	NULL, 0, NULL, 0, 0
+};
+
+#define GET_TIME	time (NULL)
+
+#define WAIT_TIME	10
+#define HASH_MIN_SLOTS	101
+#define HASH_MAX_SLOTS	2048
+#define HISTORY_BLOCKS	256
+#define LOCKMANTIMEOUT	300
+
+#if (defined SOLARIS_MT && !defined SUPERSERVER)
+#define STARVATION_THRESHHOLD	500	/* acquires of lock table */
+#define SOLARIS_MIN_STALL       0
+#define SOLARIS_MAX_STALL       200
+#define SOLARIS_MAX_STALL       200	/* Seconds */
+#endif
+
+#define OWN_BLOCK_new		1
+#define OWN_BLOCK_reused	2
+#define OWN_BLOCK_dummy		3
+
+#ifndef LOCK_MANAGER
+#define LOCK_MANAGER	"bin/gds_lock_mgr"
+#endif
+
+
+#ifdef SHLIB_DEFS
+#define sys_errlist	(*_libgds_sys_errlist)
+#ifdef IMP
+#define wait		(*_libgds_wait)
+#else
+#define waitpid		(*_libgds_waitpid)
+#endif
+#define execl		(*_libgds_execl)
+#define _exit		(*_libgds__exit)
+#define statistics	(*_libgds_stat)
+#define chmod		(*_libgds_chmod)
+
+extern SCHAR *sys_errlist[];
+#ifdef IMP
+extern int wait();
+#else
+extern int waitpid();
+#endif
+extern int execl();
+extern void _exit();
+extern int statistics();
+extern int chmod();
+#endif
+
+
+static CONST UCHAR compatibility[] = {
+
+/*				Shared	Prot	Shared	Prot
+		none	null	 Read	Read	Write	Write	Exclusive */
+
+/* none */ 1, 1, 1, 1, 1, 1, 1,
+/* null */ 1, 1, 1, 1, 1, 1, 1,
+/* SR */ 1, 1, 1, 1, 1, 1, 0,
+/* PR */ 1, 1, 1, 1, 0, 0, 0,
+/* SW */ 1, 1, 1, 0, 1, 0, 0,
+/* PW */ 1, 1, 1, 0, 0, 0, 0,
+/* EX */ 1, 1, 0, 0, 0, 0, 0
+};
+
+#define COMPATIBLE(st1, st2)	compatibility [st1 * LCK_max + st2]
+
+
+int LOCK_convert(
+				 PTR request_offset,
+				 UCHAR type,
+				 SSHORT lck_wait,
+				 int (*ast_routine) (void *),
+void *ast_argument, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	L O C K _ c o n v e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a lock conversion, if possible.
+ *
+ **************************************/
+	LRQ request;
+	OWN owner;
+	LBL lock;
+
+	LOCK_TRACE(("LOCK_convert (%d, %d)\n", type, lck_wait));
+
+	request = get_request(request_offset);
+	owner = (OWN) ABS_PTR(request->lrq_owner);
+	if (!owner->own_count)
+		return FALSE;
+
+	acquire(request->lrq_owner);
+	owner = NULL;				/* remap */
+	++LOCK_header->lhb_converts;
+	request = (LRQ) ABS_PTR(request_offset);	/* remap */
+	lock = (LBL) ABS_PTR(request->lrq_lock);
+	if (lock->lbl_series < LCK_MAX_SERIES)
+		++LOCK_header->lhb_operations[lock->lbl_series];
+	else
+		++LOCK_header->lhb_operations[0];
+
+	return convert(request_offset,
+				   type,
+				   lck_wait,
+				   reinterpret_cast < int (*)() > (ast_routine),
+				   static_cast < int *>(ast_argument), status_vector);
+}
+
+
+int LOCK_deq( PTR request_offset)
+{
+/**************************************
+ *
+ *	L O C K _ d e q 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an outstanding lock.
+ *
+ **************************************/
+	LRQ request;
+	OWN owner;
+	PTR owner_offset;
+	LBL lock;
+
+	LOCK_TRACE(("LOCK_deq (%d)\n", request_offset));
+
+	request = get_request(request_offset);
+	owner_offset = request->lrq_owner;
+	owner = (OWN) ABS_PTR(owner_offset);
+	if (!owner->own_count)
+		return FALSE;
+
+	acquire(owner_offset);
+	owner = NULL;				/* remap */
+	++LOCK_header->lhb_deqs;
+	request = (LRQ) ABS_PTR(request_offset);	/* remap */
+	lock = (LBL) ABS_PTR(request->lrq_lock);
+	if (lock->lbl_series < LCK_MAX_SERIES)
+		++LOCK_header->lhb_operations[lock->lbl_series];
+	else
+		++LOCK_header->lhb_operations[0];
+
+	dequeue(request_offset);
+	release(owner_offset);
+	return TRUE;
+}
+
+
+UCHAR LOCK_downgrade(PTR request_offset, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	L O C K _ d o w n g r a d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Downgrade an existing lock returning
+ *	its new state.
+ *
+ **************************************/
+	LBL lock;
+	LRQ request, pending;
+	SRQ que;
+	UCHAR state, pending_state;
+	OWN owner;
+	PTR owner_offset;
+
+	LOCK_TRACE(("LOCK_downgrade (%d)\n", request_offset));
+
+	request = get_request(request_offset);
+	owner_offset = request->lrq_owner;
+	owner = (OWN) ABS_PTR(owner_offset);
+	if (!owner->own_count)
+		return FALSE;
+
+	acquire(owner_offset);
+	owner = NULL;				/* remap */
+	++LOCK_header->lhb_downgrades;
+
+	request = (LRQ) ABS_PTR(request_offset);	/* Re-init after a potential remap */
+	lock = (LBL) ABS_PTR(request->lrq_lock);
+	pending_state = LCK_none;
+
+/* Loop thru requests looking for pending conversions
+   and find the highest requested state */
+
+	QUE_LOOP(lock->lbl_requests, que) {
+		pending = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_lbl_requests));
+		if (pending->lrq_flags & LRQ_pending && pending != request) {
+			pending_state = MAX(pending->lrq_requested, pending_state);
+			if (pending_state == LCK_EX)
+				break;
+		}
+	}
+
+	for (state = request->lrq_state;
+		 state > LCK_none && !COMPATIBLE(pending_state, state); --state);
+
+	if (state == LCK_none || state == LCK_null) {
+		dequeue(request_offset);
+		release(owner_offset);
+		state = LCK_none;
+	}
+	else
+		convert(request_offset, state, FALSE,
+				request->lrq_ast_routine, request->lrq_ast_argument,
+				status_vector);
+
+	return state;
+}
+
+
+SLONG LOCK_enq(	PTR		prior_request,
+				PTR		parent_request,
+				USHORT	series,
+				UCHAR*	value,
+				USHORT	length,
+				UCHAR	type,
+				int		(*ast_routine) (void *),
+				void*	ast_argument,
+				SLONG	data,
+				SSHORT	lck_wait,
+				STATUS*	status_vector,
+				PTR		owner_offset)
+{
+/**************************************
+ *
+ *	L O C K _ e n q
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enque on a lock.  If the lock can't be granted immediately,
+ *	return an event count on which to wait.  If the lock can't
+ *	be granted because of deadlock, return NULL.
+ *
+ **************************************/
+	LBL lock;
+	LRQ request;
+	OWN owner;
+	PTR parent, request_offset;
+	UCHAR *p;
+	SLONG lock_id;
+	USHORT hash_slot, *ps;
+	SSHORT l;
+
+
+	LOCK_TRACE(("LOCK_enq (%d)\n", parent_request));
+
+	owner = (OWN) ABS_PTR(owner_offset);
+	if (!owner_offset || !owner->own_count)
+		return 0;
+
+	acquire(owner_offset);
+	owner = NULL;				/* remap */
+
+	ASSERT_ACQUIRED;
+	++LOCK_header->lhb_enqs;
+
+#ifdef VALIDATE_LOCK_TABLE
+	if ((LOCK_header->lhb_enqs % 50) == 0)
+		validate_lhb(LOCK_header);
+#endif
+
+	if (prior_request)
+		dequeue(prior_request);
+
+	if (parent_request) {
+		request = get_request(parent_request);
+		parent = request->lrq_lock;
+	}
+	else
+		parent = 0;
+
+/* Allocate or reuse a lock request block */
+
+	ASSERT_ACQUIRED;
+	if (QUE_EMPTY(LOCK_header->lhb_free_requests)) {
+		if (!(request = (LRQ) alloc(sizeof(struct lrq), status_vector))) {
+			release(owner_offset);
+			return 0;
+		}
+	}
+	else {
+		ASSERT_ACQUIRED;
+		request = (LRQ) ((UCHAR *) QUE_NEXT(LOCK_header->lhb_free_requests) -
+						 OFFSET(LRQ, lrq_lbl_requests));
+		remove_que(&request->lrq_lbl_requests);
+	}
+
+	owner = (OWN) ABS_PTR(owner_offset);	/* Re-init after a potential remap */
+	post_history(his_enq, owner_offset, NULL, REL_PTR(request), TRUE);
+
+	request->lrq_type = type_lrq;
+	request->lrq_flags = 0;
+	request->lrq_requested = type;
+	request->lrq_state = LCK_none;
+	request->lrq_data = 0;
+	request->lrq_owner = owner_offset;
+	request->lrq_ast_routine = reinterpret_cast < int (*) () > (ast_routine);
+	request->lrq_ast_argument = static_cast < int *>(ast_argument);
+	insert_tail(&owner->own_requests, &request->lrq_own_requests);
+	QUE_INIT(request->lrq_own_blocks);
+
+/* See if the lock already exits */
+
+	lock = find_lock(parent, series, value, length, &hash_slot);
+	if (lock)
+	{
+		if (series < LCK_MAX_SERIES) {
+			++LOCK_header->lhb_operations[series];
+		} else {
+			++LOCK_header->lhb_operations[0];
+		}
+
+		insert_tail(&lock->lbl_requests, &request->lrq_lbl_requests);
+		request->lrq_data = data;
+		if (!(lock_id = grant_or_que(request, lock, lck_wait))) {
+			*status_vector++ = gds_arg_gds;
+			*status_vector++ = (lck_wait > 0) ? gds__deadlock :
+				((lck_wait < 0) ? gds__lock_timeout : gds__lock_conflict);
+			*status_vector++ = gds_arg_end;
+		}
+		ASSERT_RELEASED;
+		return lock_id;
+	}
+
+/* Lock doesn't exist.  Allocate lock block and set it up. */
+
+	request_offset = REL_PTR(request);
+
+	if (!(lock = alloc_lock(length, status_vector))) {
+		/* lock table is exhausted */
+		/* release request gracefully */
+		remove_que(&request->lrq_own_requests);
+		request->lrq_type = type_null;
+		insert_tail(&LOCK_header->lhb_free_requests,
+					&request->lrq_lbl_requests);
+		release(owner_offset);
+		return 0;
+	}
+	lock->lbl_state = type;
+	lock->lbl_parent = parent;
+	assert(series <= MAX_UCHAR);
+	lock->lbl_series = (UCHAR)series;
+
+/* Maintain lock series data queue */
+
+	QUE_INIT(lock->lbl_lhb_data);
+	if (lock->lbl_data = data)
+		insert_data_que(lock);
+
+	if (series < LCK_MAX_SERIES)
+		++LOCK_header->lhb_operations[series];
+	else
+		++LOCK_header->lhb_operations[0];
+
+	lock->lbl_flags = 0;
+	lock->lbl_pending_lrq_count = 0;
+
+	for (l = LCK_max, ps = lock->lbl_counts; l--;)
+		*ps++ = 0;
+
+	if (lock->lbl_length = length)
+	{
+		p = lock->lbl_key;
+		do {
+			*p++ = *value++;
+		} while (--length);
+	}
+
+	request = (LRQ) ABS_PTR(request_offset);
+
+	QUE_INIT(lock->lbl_requests);
+	ASSERT_ACQUIRED;
+	insert_tail(&LOCK_header->lhb_hash[hash_slot], &lock->lbl_lhb_hash);
+	insert_tail(&lock->lbl_requests, &request->lrq_lbl_requests);
+	request->lrq_lock = REL_PTR(lock);
+	grant(request, lock);
+	lock_id = REL_PTR(request);
+	release(request->lrq_owner);
+
+	return lock_id;
+}
+
+
+void LOCK_fini( STATUS * status_vector, PTR * owner_offset)
+{
+/**************************************
+ *
+ *	L O C K _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release the owner block and any outstanding locks.
+ *	The exit handler will unmap the shared memory.
+ *
+ **************************************/
+	OWN owner;
+	PTR offset;
+
+	LOCK_TRACE(("LOCK_fini(%ld)\n", *owner_offset));
+
+	offset = *owner_offset;
+	owner = (OWN) ABS_PTR(offset);
+	if (!offset || !owner->own_count)
+		return;
+
+	if (--owner->own_count > 0 || !LOCK_header)
+		return;
+
+#ifndef SUPERSERVER
+#if (defined WIN_NT || defined NEXT || defined SOLARIS_MT)
+	shutdown_blocking_thread(status_vector);
+#else
+#ifdef MMAP_SUPPORTED
+	if (LOCK_owner) {
+		ISC_unmap_object(status_vector, &LOCK_data, &LOCK_owner,
+						 sizeof(struct own));
+		LOCK_owner_offset = 0;
+	}
+#endif
+#endif
+	LOCK_owner = 0;
+#endif
+
+	if (LOCK_header->lhb_active_owner != offset)
+	{
+		acquire(offset);
+		owner = (OWN) ABS_PTR(offset);	/* Re-init after a potential remap */
+	}
+
+	if (LOCK_pid == owner->own_process_id)
+		purge_owner(offset, owner);
+
+	release_mutex();
+
+#if !(defined NETWARE_386 || defined WIN_NT || defined SOLARIS_MT || POSIX_THREADS)
+	ISC_signal_cancel(LOCK_block_signal, blocking_action, (void *) offset);
+#endif
+
+	*owner_offset = NULL;
+}
+
+
+int LOCK_init(
+			  STATUS * status_vector,
+			  SSHORT owner_flag,
+			  SLONG owner_id, UCHAR owner_type, SLONG * owner_handle)
+{
+/**************************************
+ *
+ *	L O C K _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize lock manager for the given owner, if not already done.
+ *
+ *	Initialize an owner block in the lock manager, if not already
+ *	initialized.
+ *
+ *	Return the offset of the owner block through owner_handle.
+ *
+ *	Return SUCCESS or FAILURE.
+ *
+ **************************************/
+	OWN owner;
+#if (defined SOLARIS_MT)
+	ULONG status;
+#endif
+
+	LOCK_TRACE(("LOCK_init (ownerid=%ld)\n", owner_id));
+
+/* If everything is already initialized, just bump the use count. */
+
+	if (*owner_handle) {
+		owner = (OWN) ABS_PTR(*owner_handle);
+		owner->own_count++;
+		return SUCCESS;
+	}
+
+	if (!LOCK_header) {
+		/* We haven't yet mapped the shared region.  Do so now. */
+
+		start_manager = FALSE;
+		if (init_lock_table(status_vector) != SUCCESS)
+			return FAILURE;
+	}
+	if (owner_flag &&
+		create_owner(status_vector, owner_id, owner_type,
+					 owner_handle) != SUCCESS) return FAILURE;
+
+#ifndef  SUPERSERVER
+#if defined(SCO_EV) || defined(LINUX) || defined(FREEBSD) || defined(NETBSD) || defined(AIX_PPC)
+/* 5.5 SCO port: might also help other classic ports, but not sure. This
+   and a few subsequent pieces of code later, solve problem of gds_drop 
+   giving following message 
+Fatal lock manager error: semop failed (acquire), errno: 22
+--Invalid argument
+If this happens on another classic platform add that platform too. - Shailesh
+*/
+	if (LOCK_owner_offset = *owner_handle)
+#else
+	LOCK_owner_offset = *owner_handle;
+#endif
+	LOCK_owner = (OWN) ABS_PTR(*owner_handle);
+#endif
+
+#if !(defined NETWARE_386 || defined WIN_NT || defined SOLARIS_MT || POSIX_THREADS)
+#if defined(SCO_EV) || defined(LINUX) || defined(FREEBSD) || defined(NETBSD) || defined(AIX_PPC)
+	if (LOCK_owner_offset)		/* 5.5 SCO port: gds_drop */
+#endif
+		ISC_signal(LOCK_block_signal, blocking_action,
+				   (void *) LOCK_owner_offset);
+#endif
+
+/* Initialize process level stuffs for different platforms.
+   This should be done after the call to create_owner() that 
+   initializes owner_handle. */
+
+#if (defined WIN_NT && !defined SUPERSERVER)
+	owner = (OWN) ABS_PTR(*owner_handle);
+	wakeup_event[0] = owner->own_wakeup_hndl;
+	blocking_event[0] =
+		ISC_make_signal(TRUE, FALSE, LOCK_pid, LOCK_block_signal);
+	owner->own_blocking_hndl = blocking_event[0];
+	AST_ALLOC;
+	if (gds__thread_start
+		(reinterpret_cast < FPTR_INT_VOID_PTR > (blocking_action_thread),
+		 &LOCK_owner_offset, THREAD_critical, 0, 0)) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__lockmanerr;
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__sys_request;
+		*status_vector++ = gds_arg_string;
+		*status_vector++ = (STATUS) "CreateThread";
+		*status_vector++ = gds_arg_win32;
+		*status_vector++ = GetLastError();
+		*status_vector++ = gds_arg_end;
+		CloseHandle(blocking_event[0]);
+		CloseHandle(wakeup_event[0]);
+		return FAILURE;
+	}
+#endif
+
+#ifndef SUPERSERVER
+#ifdef MMAP_SUPPORTED
+#ifdef SOLARIS_MT
+/* Map the owner block separately so that threads waiting
+   on synchronization variables embedded in the owner block
+   don't have to coordinate during lock table unmapping. */
+
+	if (!(LOCK_owner = (OWN) ISC_map_object(status_vector, &LOCK_data,
+											LOCK_owner_offset,
+											sizeof(struct own)))) return
+			FAILURE;
+	AST_ALLOC;
+	if (status = gds__thread_start((FPTR_INT) blocking_action_thread,
+								   &LOCK_owner_offset, THREAD_high, 0, 0)) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__lockmanerr;
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__sys_request;
+		*status_vector++ = gds_arg_string;
+		*status_vector++ = (STATUS) "thr_create";
+		*status_vector++ = gds_arg_unix;
+		*status_vector++ = status;
+		*status_vector++ = gds_arg_end;
+		return FAILURE;
+	}
+#else
+#if defined(SCO_EV) || defined(LINUX) || defined(FREEBSD) || defined(NETBSD) || defined(AIX_PPC)
+	if (LOCK_owner_offset)		/* 5.5 SCO Port: gds_drop */
+#endif
+		if (!(LOCK_owner = (OWN) ISC_map_object(status_vector, &LOCK_data,
+												LOCK_owner_offset,
+												sizeof(struct own)))) return
+				FAILURE;
+#endif
+#endif
+#endif
+
+#ifdef MANAGER_PROCESS
+	if (start_manager) {
+		start_manager = FALSE;
+		if (!fork_lock_manager(status_vector))
+			return FAILURE;
+	}
+#endif
+
+	return SUCCESS;
+}
+
+
+#ifdef MANAGER_PROCESS
+void LOCK_manager( PTR manager_owner_offset)
+{
+/**************************************
+ *
+ *	L O C K _ m a n a g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	LOCK_manager is used only in the privileged lock manager
+ *	process.  The routine simply waits on its semaphore.  It
+ *	the semaphore is poked, it wakes up, looks for blocking
+ *	signals to be delivered, delivers them, and goes back to
+ *	sleep.
+ *
+ **************************************/
+	OWN manager_owner, owner;
+	SRQ que;
+	int ret = FAILURE;
+	STATUS local_status[20];
+	SLONG value;
+	USHORT semaphore;
+	EVENT event_ptr;
+#ifdef DEBUG
+	ULONG signal_counter = 0;
+#endif
+#ifdef VALIDATE_LOCK_TABLE
+	ULONG manager_counter = 0;
+#endif
+
+
+	LOCK_TRACE(("LOCK_manager\n"));
+
+	acquire(manager_owner_offset);
+
+#ifdef VALIDATE_LOCK_TABLE
+	validate_lhb(LOCK_header);
+#endif
+
+
+/* If there already is a lock manager running, quietly return */
+
+	while (owner = get_manager(FALSE))
+		if (signal_owner(owner, (PTR) NULL))
+			purge_owner(manager_owner_offset, owner);
+		else {
+			DEBUG_MSG(0,
+					  ("LOCK_manager, pid %ld quiting, pid %ld is already manager\n",
+					   LOCK_pid, owner->own_process_id));
+			release(manager_owner_offset);
+			return;
+		}
+
+/* Declare ourselves to be lock manager process */
+
+	DEBUG_MSG(0, ("LOCK_manager, pid %ld becoming manager\n", LOCK_pid));
+
+	manager_owner = (OWN) ABS_PTR(manager_owner_offset);
+	manager_owner->own_flags |= OWN_manager;
+	LOCK_process_owner.own_flags |= OWN_manager;
+#ifdef STATIC_SEMAPHORES
+	semaphore = alloc_semaphore(manager_owner, NULL);
+#else
+	manager_owner->own_semaphore = 1;
+#endif
+	ASSERT_ACQUIRED;
+	LOCK_header->lhb_manager = manager_owner_offset;
+	LOCK_header->lhb_flags &= ~LHB_shut_manager;
+	release(manager_owner_offset);
+
+/* Loop, waiting for something to happen */
+
+	chmod(LOCK_HEADER, 0444);
+
+	for (;;) {
+		acquire(manager_owner_offset);
+#ifdef VALIDATE_LOCK_TABLE
+		if ((manager_counter++ % 100) == 0)
+			validate_lhb(LOCK_header);
+#endif
+		manager_owner = (OWN) ABS_PTR(manager_owner_offset);
+		if (LOCK_header->lhb_flags & LHB_shut_manager) {
+			purge_owner(manager_owner_offset, manager_owner);
+			release_mutex();
+			break;
+		}
+		ASSERT_ACQUIRED;
+		QUE_LOOP(LOCK_header->lhb_owners, que) {
+			owner = (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners));
+			if (owner->own_flags & OWN_signal)
+				if (signal_owner(owner, (PTR) NULL)) {
+					que = (SRQ) ABS_PTR(que->srq_backward);
+					purge_owner(manager_owner_offset, owner);
+				}
+				else {
+					owner->own_flags &= ~OWN_signal;
+#ifdef DEBUG
+					if ((++signal_counter % 1000) == 0)
+						DEBUG_MSG(1,
+								  ("LOCK_manager: delivered %ld signals\n",
+								   signal_counter));
+#endif
+				}
+		}
+		event_ptr = manager_owner->own_wakeup;
+		value = ISC_event_clear(manager_owner->own_wakeup);
+		release(manager_owner_offset);
+
+		/* Prepare to wait for a timeout or a wakeup from somebody else.  Start
+		   by setting an alarm clock. */
+
+		ret = ISC_event_wait(1, &event_ptr, &value,
+							 LOCKMANTIMEOUT * 1000000, lock_alarm_handler,
+							 event_ptr);
+
+#ifdef DEBUG
+		if (ret == FAILURE)
+			DEBUG_MSG(1, ("LOCK_manager timer wakeup\n"));
+#endif
+
+#ifdef TERMINATE_IDLE_LOCK_MANAGER
+		/* The code to terminate an idle lock manager
+		 * was disabled around Dec 1993 as part of the Solaris port.
+		 * This was due to customer complaints about running InterBase and
+		 * Oracle on the same machine.  When Oracle starts up it grabs all
+		 * the system resources, leaving none for InterBase.  And if we
+		 * release our resources we won't be able to restart.
+		 * 1995-March-20 David Schnepper 
+		 */
+
+		/* If we're the only process mapping the lock table when the alarm 
+		   expires, exit. */
+
+		if (ret == FALSE)
+			if (!flock((int) LOCK_data.sh_mem_handle, LOCK_EX | LOCK_NB))
+				break;
+			else
+				flock((int) LOCK_data.sh_mem_handle, LOCK_SH);
+#endif
+	}
+
+/* Release system resources for semaphores. */
+
+	LOCK_header = NULL;
+#ifdef TERMINATE_IDLE_LOCK_MANAGER
+	ISC_unmap_file(local_status, &LOCK_data, ISC_SEM_REMOVE);
+	chmod(LOCK_HEADER, 0664);
+#else
+	ISC_unmap_file(local_status, &LOCK_data, NULL);
+#endif
+
+}
+#endif
+
+
+SLONG LOCK_query_data(PTR parent_request, USHORT series, USHORT aggregate)
+{
+/**************************************
+ *
+ *	L O C K _ q u e r y _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Query lock series data with respect to a rooted
+ *	lock hierarchy calculating aggregates as we go.
+ *
+ **************************************/
+	LBL lock;
+	LRQ parent;
+	SLONG data, count;
+	SRQ data_header, que;
+
+/* Get root of lock hierarchy */
+
+	if (parent_request && series < LCK_MAX_SERIES)
+		parent = get_request(parent_request);
+	else {
+		CHECK(FALSE);
+		return 0;
+	}
+
+	acquire(parent->lrq_owner);
+	parent = (LRQ) ABS_PTR(parent_request);	/* remap */
+
+	++LOCK_header->lhb_query_data;
+	data_header = &LOCK_header->lhb_data[series];
+	data = count = 0;
+
+/* Simply walk the lock series data queue forward for the minimum
+   and backward for the maximum -- it's maintained in sorted order. */
+
+	switch (aggregate) {
+	case LCK_MIN:
+	case LCK_CNT:
+	case LCK_AVG:
+	case LCK_SUM:
+	case LCK_ANY:
+		for (que = (SRQ) ABS_PTR(data_header->srq_forward);
+			 que != data_header; que = (SRQ) ABS_PTR(que->srq_forward)) {
+			lock = (LBL) ((UCHAR *) que - OFFSET(LBL, lbl_lhb_data));
+			CHECK(lock->lbl_series == series);
+			if (lock->lbl_parent != parent->lrq_lock)
+				continue;
+
+			switch (aggregate) {
+			case LCK_MIN:
+				data = lock->lbl_data;
+				break;
+
+			case LCK_ANY:
+			case LCK_CNT:
+				++count;
+				break;
+
+			case LCK_AVG:
+				++count;
+
+			case LCK_SUM:
+				data += lock->lbl_data;
+				break;
+			}
+
+			if (aggregate == LCK_MIN || aggregate == LCK_ANY)
+				break;
+		}
+
+		if (aggregate == LCK_CNT || aggregate == LCK_ANY)
+			data = count;
+		else if (aggregate == LCK_AVG)
+			data = (count) ? data / count : 0;
+		break;
+
+	case LCK_MAX:
+		for (que = (SRQ) ABS_PTR(data_header->srq_backward);
+			 que != data_header; que = (SRQ) ABS_PTR(que->srq_backward)) {
+			lock = (LBL) ((UCHAR *) que - OFFSET(LBL, lbl_lhb_data));
+			CHECK(lock->lbl_series == series);
+			if (lock->lbl_parent != parent->lrq_lock)
+				continue;
+
+			data = lock->lbl_data;
+			break;
+		}
+		break;
+
+	default:
+		CHECK(FALSE);
+	}
+
+	release(parent->lrq_owner);
+	return data;
+}
+
+
+SLONG LOCK_read_data(PTR request_offset)
+{
+/**************************************
+ *
+ *	L O C K _ r e a d _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read data associated with a lock.
+ *
+ **************************************/
+	LBL lock;
+	LRQ request;
+	SLONG data;
+
+	LOCK_TRACE(("LOCK_read_data(%ld)\n", request_offset));
+
+	request = get_request(request_offset);
+	acquire(request->lrq_owner);
+	++LOCK_header->lhb_read_data;
+	request = (LRQ) ABS_PTR(request_offset);	/* Re-init after a potential remap */
+	lock = (LBL) ABS_PTR(request->lrq_lock);
+	data = lock->lbl_data;
+	if (lock->lbl_series < LCK_MAX_SERIES)
+		++LOCK_header->lhb_operations[lock->lbl_series];
+	else
+		++LOCK_header->lhb_operations[0];
+
+	release(request->lrq_owner);
+
+	return data;
+}
+
+
+SLONG LOCK_read_data2(PTR parent_request,
+					  USHORT series,
+					  UCHAR * value, USHORT length, PTR owner_offset)
+{
+/**************************************
+ *
+ *	L O C K _ r e a d _ d a t a 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read data associated with transient locks.
+ *
+ **************************************/
+	PTR parent;
+	LRQ request;
+	LBL lock;
+	SLONG data;
+	USHORT junk;
+
+	LOCK_TRACE(("LOCK_read_data2(%ld)\n", parent_request));
+
+	acquire(owner_offset);
+	++LOCK_header->lhb_read_data;
+	if (series < LCK_MAX_SERIES)
+		++LOCK_header->lhb_operations[series];
+	else
+		++LOCK_header->lhb_operations[0];
+
+	if (parent_request) {
+		request = get_request(parent_request);
+		parent = request->lrq_lock;
+	}
+	else
+		parent = 0;
+
+	if (lock = find_lock(parent, series, value, length, &junk))
+		data = lock->lbl_data;
+	else
+		data = 0;
+
+	release(owner_offset);
+
+	return data;
+}
+
+
+void LOCK_re_post( int (*ast) (void *), void *arg, PTR owner_offset)
+{
+/**************************************
+ *
+ *	L O C K _ r e _ p o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Re-post an AST that was previously blocked.
+ *	It is assumed that the routines that look
+ *	at the re-post list only test the ast element.
+ *
+ **************************************/
+	OWN owner;
+	LRQ request;
+
+	LOCK_TRACE(("LOCK_re_post(%ld)\n", owner_offset));
+
+	acquire(owner_offset);
+
+/* Allocate or reuse a lock request block */
+
+	ASSERT_ACQUIRED;
+	if (QUE_EMPTY(LOCK_header->lhb_free_requests)) {
+		if (!(request = (LRQ) alloc(sizeof(struct lrq), NULL))) {
+			release(owner_offset);
+			return;
+		}
+	}
+	else {
+		ASSERT_ACQUIRED;
+		request = (LRQ) ((UCHAR *) QUE_NEXT(LOCK_header->lhb_free_requests) -
+						 OFFSET(LRQ, lrq_lbl_requests));
+		remove_que(&request->lrq_lbl_requests);
+	}
+
+	owner = (OWN) ABS_PTR(owner_offset);
+	request->lrq_type = type_lrq;
+	request->lrq_flags = LRQ_repost;
+	request->lrq_ast_routine = reinterpret_cast < int (*) () > (ast);
+	request->lrq_ast_argument = static_cast < int *>(arg);
+	request->lrq_requested = LCK_none;
+	request->lrq_state = LCK_none;
+	request->lrq_owner = owner_offset;
+	request->lrq_lock = (PTR) 0;
+	insert_tail(&owner->own_blocks, &request->lrq_own_blocks);
+
+	DEBUG_DELAY;
+
+#ifdef ANY_THREADING
+	signal_owner((OWN) ABS_PTR(owner_offset), (PTR) NULL);
+#else
+/* The deadlock detection looks at the OWN_signaled bit to decide
+ * whether processes have things to look at - as we're putting
+ * a repost item on the blocking queue, we DO have additional work
+ * to do, so set the flag to indicate so.
+ */
+	owner->own_flags &= ~OWN_signal;
+	owner->own_ast_flags |= OWN_signaled;
+	DEBUG_DELAY;
+	ISC_inhibit();
+	DEBUG_DELAY;
+	blocking_action2(owner_offset, (PTR) NULL);
+	DEBUG_DELAY;
+	ISC_enable();
+	DEBUG_DELAY;
+#endif
+	release(owner_offset);
+}
+
+
+BOOLEAN LOCK_shut_manager(void)
+{
+/**************************************
+ *
+ *	L O C K _ s h u t _ m a n a g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set a shutdown flag and post the lock
+ *	manager process to exit.
+ *
+ **************************************/
+#ifdef MANAGER_PROCESS
+	OWN manager;
+
+	acquire(DUMMY_OWNER_SHUTDOWN);
+	if (manager = get_manager(FALSE)) {
+		LOCK_header->lhb_flags |= LHB_shut_manager;
+		post_wakeup(manager);
+		release_mutex();
+		sleep(5);
+		acquire(DUMMY_OWNER_SHUTDOWN);
+		LOCK_header->lhb_flags &= ~LHB_shut_manager;
+		manager = get_manager(FALSE);
+	}
+
+	release_mutex();
+	return (manager ? FALSE : TRUE);
+#else
+	return TRUE;
+#endif
+}
+
+
+SLONG LOCK_write_data(PTR request_offset, SLONG data)
+{
+/**************************************
+ *
+ *	L O C K _ w r i t e _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a longword into the lock block.
+ *
+ **************************************/
+	LBL lock;
+	LRQ request;
+
+	LOCK_TRACE(("LOCK_write_data (%ld)\n", request_offset));
+
+	request = get_request(request_offset);
+	acquire(request->lrq_owner);
+	++LOCK_header->lhb_write_data;
+	request = (LRQ) ABS_PTR(request_offset);	/* Re-init after a potential remap */
+	lock = (LBL) ABS_PTR(request->lrq_lock);
+	remove_que(&lock->lbl_lhb_data);
+	if (lock->lbl_data = data)
+		insert_data_que(lock);
+
+	if (lock->lbl_series < LCK_MAX_SERIES)
+		++LOCK_header->lhb_operations[lock->lbl_series];
+	else
+		++LOCK_header->lhb_operations[0];
+
+	release(request->lrq_owner);
+
+	return data;
+}
+
+
+static void acquire( PTR owner_offset)
+{
+/**************************************
+ *
+ *	a c q u i r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Acquire the lock file.  It it's busy, wait for it.
+ *
+ **************************************/
+	PTR prior_active;
+	SLONG length, spins, status;
+	LHB header;
+	STATUS status_vector[20];
+
+#if (defined SOLARIS_MT && !defined SUPERSERVER)
+  acquire_retry:
+#endif
+
+/* Check that we aren't trying to acquire when we already own it! */
+/* ASSERT_RELEASED; This will not work, when the current active owner
+   of the lock table falls in the remapped portion of the map
+   file, which we are yet to expand (remap) to */
+
+#ifndef ANY_THREADING
+	++LOCK_asts;
+	DEBUG_DELAY;
+#endif
+
+/* Measure the impact of the lock table resource as an overall
+   system bottleneck. This will be useful metric for lock
+   improvements and as a limiting factor for SMP. A conditional
+   mutex would probably be more accurate but isn't worth the
+   effort. */
+
+	prior_active = LOCK_header->lhb_active_owner;
+
+#ifndef SUPERSERVER
+#ifdef MMAP_SUPPORTED
+	if (LOCK_owner) {
+		/* Record a "timestamp" of when this owner requested the lock table */
+		LOCK_owner->own_acquire_time = LOCK_header->lhb_acquires;
+#ifdef DEV_BUILD
+		/* Due to the system overhead of acquiring the actual time-of-day,
+		   we only get the realtime for DEV_BUILD */
+		LOCK_owner->own_acquire_realtime = GET_TIME;
+#endif
+		LOCK_owner->own_ast_hung_flags |= OWN_hung;
+	}
+#endif
+#endif
+
+/* Perform a spin wait on the lock table mutex. This should only
+   be used on SMP machines; it doesn't make much sense otherwise. */
+
+	status = FAILURE;
+#if (defined UNIX || defined WIN_NT)
+	for (spins = 0; spins < LOCK_acquire_spins; ++spins)
+		if ((status = ISC_mutex_lock_cond(MUTEX)) == SUCCESS)
+			break;
+#endif
+
+/* If the spin wait didn't succeed then wait forever. */
+
+	if (status != SUCCESS)
+		if (ISC_mutex_lock(MUTEX))
+			bug(NULL, "semop failed (acquire)");
+
+	++LOCK_header->lhb_acquires;
+	if (prior_active)
+		++LOCK_header->lhb_acquire_blocks;
+
+#if (defined UNIX || defined WIN_NT)
+	if (spins) {
+		++LOCK_header->lhb_acquire_retries;
+		if (spins < LOCK_acquire_spins)
+			++LOCK_header->lhb_retry_success;
+	}
+#endif
+
+	prior_active = LOCK_header->lhb_active_owner;
+	LOCK_header->lhb_active_owner = owner_offset;
+
+#ifdef MANAGER_PROCESS
+	LOCK_post_manager = FALSE;
+#endif
+
+#ifndef SUPERSERVER
+#ifndef ANY_THREADING
+	if (LOCK_owner) {
+		LOCK_owner->own_ast_hung_flags &= ~OWN_hung;	/* Can't be hung by OS if we got here */
+	}
+#endif
+#endif
+
+	if (LOCK_header->lhb_length > LOCK_data.sh_mem_length_mapped
+#ifdef LOCK_DEBUG_ACQUIRE
+/* If we're debugging remaps occuring during acquire, force 
+   a remap every-so-often. */
+		|| ((debug_acquire_count++ % DEBUG_ACQUIRE_INTERVAL) == 0)
+#endif
+		) {
+
+		length = LOCK_header->lhb_length;
+/* Do not do Lock table remapping for SUPERSERVER. Specify required
+   lock table size in the configuration file */
+#if !((defined SUPERSERVER) && (defined MMAP_SUPPORTED))
+		header =
+			(LHB) ISC_remap_file(status_vector, &LOCK_data, length, FALSE);
+		if (!header)
+#endif
+		{
+			bug(NULL, "remap failed");
+			return;
+		}
+		LOCK_header = header;
+	}
+
+/* If we were able to acquire the MUTEX, but there is an prior owner marked
+ * in the the lock table, it means that someone died while owning
+ * the lock mutex.  In that event, lets see if there is any unfinished work
+ * left around that we need to finish up.
+ */
+	if (prior_active) {
+		SHB recover;
+		SRQ que;
+
+		post_history(his_active, owner_offset, prior_active, (PTR) 0, FALSE);
+		recover = (SHB) ABS_PTR(LOCK_header->lhb_secondary);
+		if (recover->shb_remove_node) {
+			/* There was a remove_que operation in progress when the prior_owner died */
+			DEBUG_MSG(0, ("Got to the funky shb_remove_node code\n"));
+			remove_que((SRQ) ABS_PTR(recover->shb_remove_node));
+		}
+		else if (recover->shb_insert_que && recover->shb_insert_prior) {
+			/* There was a insert_que operation in progress when the prior_owner died */
+			DEBUG_MSG(0, ("Got to the funky shb_insert_que code\n"));
+
+			que = (SRQ) ABS_PTR(recover->shb_insert_que);
+			que->srq_backward = recover->shb_insert_prior;
+			que = (SRQ) ABS_PTR(recover->shb_insert_prior);
+			que->srq_forward = recover->shb_insert_que;
+			recover->shb_insert_que = 0;
+			recover->shb_insert_prior = 0;
+		}
+	}
+#if (defined SOLARIS_MT && !defined SUPERSERVER)
+	if (LOCK_solaris_stall) {
+		if (owner_offset > 0) {
+			OWN first_owner;
+			EVENT event_ptr;
+			SLONG value;
+
+			// Can't be hung by OS if we got here
+			OWN owner = (OWN)ABS_PTR(owner_offset);
+
+			owner->own_ast_hung_flags &= ~OWN_hung;
+			first_owner = (OWN) ((UCHAR *) QUE_NEXT(LOCK_header->lhb_owners) -
+								 OFFSET(OWN, own_lhb_owners));
+			if (first_owner->own_ast_hung_flags & OWN_hung &&
+				((LOCK_header->lhb_acquires - first_owner->own_acquire_time)
+				 > STARVATION_THRESHHOLD)) {
+				first_owner->own_flags |= OWN_starved;
+				if (owner->own_flags & OWN_blocking) {
+					probe_owners(owner_offset);
+					owner->own_flags &= ~OWN_blocking;
+					release_mutex();
+				}
+				else {
+					SLONG ret;
+					owner->own_flags |= OWN_blocking;
+					owner->own_flags &= ~OWN_wakeup;
+					owner->own_semaphore = 1;
+					event_ptr = owner->own_stall;
+					value = ISC_event_clear(event_ptr);
+					release_mutex();
+					ret = ISC_event_wait(1, &event_ptr, &value,
+										 LOCK_solaris_stall * 1000000,
+										 lock_alarm_handler, event_ptr);
+#ifdef DEV_BUILD
+					if (ret != SUCCESS)
+						gds__log
+							("LOCK: owner %d timed out while stalling for benefit of owner %d",
+							 owner_offset, REL_PTR(first_owner));
+#endif
+				}
+
+				goto acquire_retry;
+			}
+
+			owner->own_flags &= ~OWN_blocking;
+		}
+	}
+#endif
+
+}
+
+
+static UCHAR *alloc( SSHORT size, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block of given size.
+ *
+ **************************************/
+	ULONG length, block;
+	LHB header;
+
+	size = FB_ALIGN(size, sizeof(IPTR));
+	ASSERT_ACQUIRED;
+	block = LOCK_header->lhb_used;
+	LOCK_header->lhb_used += size;
+
+/* Make sure we haven't overflowed the lock table.  If so, bump the size of
+   the table */
+
+	if (LOCK_header->lhb_used > LOCK_header->lhb_length) {
+		LOCK_header->lhb_used -= size;
+/* Do not do Lock table remapping for SUPERSERVER. Specify required
+   lock table size in the configuration file */
+#if (!(defined SUPERSERVER) && (defined MMAP_SUPPORTED)) || defined (WIN_NT)
+		length = LOCK_data.sh_mem_length_mapped + EXTEND_SIZE;
+		header =
+			(LHB) ISC_remap_file(status_vector, &LOCK_data, length, TRUE);
+		if (header) {
+			LOCK_header = header;
+			ASSERT_ACQUIRED;
+			LOCK_header->lhb_length = LOCK_data.sh_mem_length_mapped;
+			LOCK_header->lhb_used += size;
+		}
+		else
+#endif
+		{
+			/* Do not do abort in case if there is not enough room -- just 
+			   return an error */
+
+			if (status_vector) {
+				*status_vector++ = gds_arg_gds;
+				*status_vector++ = gds__random;
+				*status_vector++ = gds_arg_string;
+				*status_vector++ = (STATUS) "lock manager out of room";
+				*status_vector++ = gds_arg_end;
+			}
+
+			return (UCHAR *) NULL;
+		}
+	}
+
+#ifdef DEV_BUILD
+/* This version of alloc() doesn't initialize memory.  To shake out
+   any bugs, in DEV_BUILD we initialize it to a "funny" pattern */
+	memset(ABS_PTR(block), 0xFD, size);
+#endif
+
+	return ABS_PTR(block);
+}
+
+
+static LBL alloc_lock( USHORT length, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	a l l o c _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a lock for a key of a given length.  Look first to see
+ *	if a spare of the right size is sitting around.  If not, allocate
+ *	one.
+ *
+ **************************************/
+	LBL lock;
+	SRQ que;
+
+	length = (length + 3) & ~3;
+
+	ASSERT_ACQUIRED;
+	QUE_LOOP(LOCK_header->lhb_free_locks, que) {
+		lock = (LBL) ((UCHAR *) que - OFFSET(LBL, lbl_lhb_hash));
+		if (lock->lbl_size == length) {
+			remove_que(&lock->lbl_lhb_hash);
+			lock->lbl_type = type_lbl;
+			return lock;
+		}
+	}
+
+	if (lock = (LBL) alloc(sizeof(struct lbl) + length, status_vector))
+	{
+		lock->lbl_size = length;
+		lock->lbl_type = type_lbl;
+	}
+
+/* NOTE: if the above alloc() fails do not release mutex here but rather
+         release it in LOCK_enq() (as of now it is the only function that
+         calls alloc_lock()). We need to hold mutex to be able
+         to release a lock request block */
+
+
+	return lock;
+}
+
+
+#ifdef STATIC_SEMAPHORES
+static USHORT alloc_semaphore( OWN owner, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	a l l o c _ s e m a p h o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate an unused semaphore.
+ *
+ **************************************/
+	USHORT h, i;
+	SRQ que;
+	OWN other;
+	SMB semaphores;
+
+	for (h = 0; h < 2; h++) {
+		ASSERT_ACQUIRED;
+		semaphores = (SMB) ABS_PTR(LOCK_header->lhb_mask);
+		for (i = 1; i < (USHORT) LOCK_sem_count; i++)
+			if (semaphores->
+				smb_mask[i / BITS_PER_LONG] & (1L << (i % BITS_PER_LONG))) {
+				semaphores->smb_mask[i / BITS_PER_LONG] &=
+					~(1L << (i % BITS_PER_LONG));
+				owner->own_semaphore = i;
+				owner->own_wakeup[0].event_semnum = i;
+				return i;
+			}
+
+		/* Loop thru owners to see if a semaphore is available */
+
+		ASSERT_ACQUIRED;
+		QUE_LOOP(LOCK_header->lhb_owners, que) {
+			other = (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners));
+			if (other->own_semaphore & OWN_semavail)
+				release_semaphore(other);
+		}
+	}
+
+	bug(status_vector, "semaphores are exhausted");
+
+	return 0;
+}
+#endif
+
+
+static void blocking_action( PTR owner_offset)
+{
+/**************************************
+ *
+ *	b l o c k i n g _ a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fault hander for a blocking signal.  A blocking signal
+ *	is an indication (albeit a strong one) that a blocking
+ *	AST is pending for the owner.  Check in with the data
+ *	structure for details.
+ *	The re-post code in this routine assumes that no more
+ *	than one thread of execution can be running in this
+ *	routine at any time.
+ *
+ *      NOTE: This is a wrapper for calling blocking_action2() where 
+ *		   the real action is.  This routine would be called 
+ *		   from a signal_handler or blocking_action_thread()
+ *		   or LOCK_re_post() where acquire() would not have 
+ *		   been done.
+ *
+ **************************************/
+
+/* Ignore signals that occur when executing in lock manager
+   or when there is no owner block set up */
+
+#ifndef ANY_THREADING
+	if (++LOCK_asts || !owner_offset) {
+		DEBUG_DELAY;
+		if (owner_offset) {
+			OWN owner;
+			/* This operation is done WITHOUT acquiring the lock table.
+			 * As this is done at the signal level, we might be resignalling
+			 * ourself and already have the lock table acquired at this
+			 * point.  If we already have it we'll hang when trying to acquire
+			 * it.  The use of LOCK_asts indicates, somewhat imprecisely,
+			 * when we are resignalling ourselves when we have the table
+			 * acquired already.
+			 */
+			owner = (OWN) ABS_PTR(owner_offset);
+			owner->own_ast_flags &= ~OWN_signaled;
+		}
+		DEBUG_DELAY;
+		--LOCK_asts;
+		DEBUG_DELAY;
+		return;
+	}
+#else
+	if (!owner_offset)
+		return;
+#endif
+
+	DEBUG_DELAY;
+
+	acquire(owner_offset);
+	blocking_action2(owner_offset, (PTR) NULL);
+	release(owner_offset);
+
+#ifndef ANY_THREADING
+	DEBUG_DELAY;
+	--LOCK_asts;
+	DEBUG_DELAY;
+#endif
+}
+
+
+static void blocking_action2(
+							 PTR blocking_owner_offset,
+							 PTR blocked_owner_offset)
+{
+/**************************************
+ *
+ *	b l o c k i n g _ a c t i o n 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fault hander for a blocking signal.  A blocking signal
+ *	is an indication (albeit a strong one) that a blocking
+ *	AST is pending for the owner.  Check in with the data
+ *	structure for details.
+ *	The re-post code in this routine assumes that no more
+ *	than one thread of execution can be running in this
+ *	routine at any time.
+ *
+ *      IMPORTANT: Before calling this routine, acquire() should
+ *	           have already been done.
+ *
+ *      Note that both a blocking owner offset and blocked owner
+ *      offset are passed to this function.   This is for those
+ *      cases where the owners are not the same.   If they are
+ *      the same, then the blocked owner offset will be NULL.
+ *
+ **************************************/
+	OWN owner;
+	SRQ que;
+	LRQ request;
+	int (*routine) (), *arg;
+
+	ASSERT_ACQUIRED;
+	owner = (OWN) ABS_PTR(blocking_owner_offset);
+
+	if (!blocked_owner_offset)
+		blocked_owner_offset = blocking_owner_offset;
+
+	while (owner->own_count) {
+		que = QUE_NEXT(owner->own_blocks);
+		if (que == &owner->own_blocks) {
+			/* We've processed the own_blocks queue, reset the "we've been
+			 * signaled" flag and start winding out of here
+			 */
+			owner->own_ast_flags &= ~OWN_signaled;
+			/*post_history (his_leave_ast, blocking_owner_offset, 0, 0, TRUE); */
+			break;
+		}
+		request = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_own_blocks));
+		routine = request->lrq_ast_routine;
+		arg = request->lrq_ast_argument;
+		remove_que(&request->lrq_own_blocks);
+		if (request->lrq_flags & LRQ_blocking) {
+			request->lrq_flags &= ~LRQ_blocking;
+			request->lrq_flags |= LRQ_blocking_seen;
+			++LOCK_header->lhb_blocks;
+			post_history(his_post_ast, blocking_owner_offset,
+						 request->lrq_lock, REL_PTR(request), TRUE);
+		}
+		else if (request->lrq_flags & LRQ_repost) {
+			request->lrq_type = type_null;
+			insert_tail(&LOCK_header->lhb_free_requests,
+						&request->lrq_lbl_requests);
+		}
+
+		if (routine) {
+			release(blocked_owner_offset);
+			reinterpret_cast<void(*)(...)>(*routine)(arg);
+			acquire(blocked_owner_offset);
+			owner = (OWN) ABS_PTR(blocking_owner_offset);
+		}
+	}
+}
+
+
+#if (defined WIN_NT && !defined SUPERSERVER)
+static void THREAD_ROUTINE blocking_action_thread( PTR * owner_offset_ptr)
+{
+/**************************************
+ *
+ *	b l o c k i n g _ a c t i o n _ t h r e a d	( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Thread to handle blocking signals that a process
+ *	will send to itself.
+ *
+ **************************************/
+	SLONG ret;
+	OWN owner;
+
+	AST_INIT;					/* Check into scheduler as AST thread */
+
+	while (TRUE) {
+		ret = WaitForSingleObject(blocking_event[0], INFINITE);
+		AST_ENTER;
+		owner = (OWN) ABS_PTR(*owner_offset_ptr);
+		if ((ret && ret != WAIT_ABANDONED) ||
+			!*owner_offset_ptr ||
+			owner->own_process_id != LOCK_pid || owner->own_owner_id == 0)
+			break;
+		blocking_action(*owner_offset_ptr);
+		AST_EXIT;
+	}
+
+	AST_EXIT;
+	AST_FINI;					/* Check out of scheduler as AST thread */
+}
+#endif
+
+
+#if (defined SOLARIS_MT && !defined SUPERSERVER)
+static void THREAD_ROUTINE blocking_action_thread( PTR * owner_offset_ptr)
+{
+/**************************************
+ *
+ *	b l o c k i n g _ a c t i o n _ t h r e a d	( S O L A R I S _ M T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Thread to handle blocking signals.
+ *
+ **************************************/
+	SLONG value;
+	EVENT event_ptr;
+
+	AST_INIT;					/* Check into scheduler as AST thread */
+
+	while (TRUE) {
+		AST_ENTER;
+
+		/* See if main thread has requested us to go away */
+		if (!*owner_offset_ptr ||
+			LOCK_owner->own_process_id != LOCK_pid ||
+			!LOCK_owner->own_owner_id) break;
+
+		value = ISC_event_clear(LOCK_owner->own_blocking);
+		blocking_action(*owner_offset_ptr);
+		AST_EXIT;
+		event_ptr = LOCK_owner->own_blocking;
+		ISC_event_wait(1, &event_ptr, &value, 0, NULL, 0);
+	}
+
+/* Main thread asked us to go away, do our cleanup, then tell
+ * main thread we're done (see shutdown_blocking_action()).
+ */
+
+	AST_EXIT;
+	AST_FINI;					/* Check out of scheduler as AST thread */
+
+/* Wakeup the main thread waiting for our exit. */
+/* Main thread won't wait forever, so check LOCK_owner is still mapped */
+
+	if (LOCK_owner)
+		ISC_event_post(LOCK_owner->own_wakeup);
+}
+#endif
+
+
+#ifdef DEV_BUILD
+static void bug_assert( CONST TEXT * string, ULONG line)
+{
+/**************************************
+ *
+ *      b u g _ a s s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disasterous lock manager bug.  Issue message and abort process.
+ *
+ **************************************/
+	TEXT buffer[100];
+	struct lhb LOCK_header_copy;
+
+	sprintf((char *) buffer, "%s %ld: lock assertion failure: %s\n",
+			__FILE__, line, string);
+
+/* Copy the shared memory so we can examine its state when we crashed */
+	LOCK_header_copy = *LOCK_header;
+
+	bug(NULL, buffer);			/* Never returns */
+}
+#endif
+
+
+static void bug( STATUS * status_vector, CONST TEXT * string)
+{
+/**************************************
+ *
+ *	b u g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disasterous lock manager bug.  Issue message and abort process.
+ *
+ **************************************/
+	TEXT s[128];
+	OWN owner;
+
+	if (!LOCK_bugcheck++) {
+
+#ifdef DEV_BUILD
+#if !defined(WIN_NT)
+		/* The lock file has some problem - copy it for later analysis */
+		{
+			TEXT *lock_file;
+			TEXT buffer[256];
+			TEXT buffer2[256];
+			TEXT hostname[64];
+			gds__prefix_lock(buffer, LOCK_FILE);
+			lock_file = buffer;
+			sprintf(buffer2, lock_file,
+					ISC_get_host(hostname, sizeof(hostname)));
+			sprintf(buffer, "cp %s isc_lock1.%d", buffer2, getpid());
+			system(buffer);
+		}
+#endif /* WIN_NT */
+#endif /* DEV_BUILD */
+
+		/* If the current mutex acquirer is in the same process, 
+		   release the mutex */
+
+		if (LOCK_header && (LOCK_header->lhb_active_owner > 0)) {
+			owner = (OWN) ABS_PTR(LOCK_header->lhb_active_owner);
+			if (owner->own_process_id == LOCK_pid)
+				release(LOCK_header->lhb_active_owner);
+		}
+
+		if (status_vector) {
+			*status_vector++ = gds_arg_gds;
+			*status_vector++ = gds__lockmanerr;
+			*status_vector++ = gds_arg_gds;
+			*status_vector++ = gds__random;
+			*status_vector++ = gds_arg_string;
+			*status_vector++ = (STATUS) string;
+			*status_vector++ = gds_arg_end;
+			return;
+		}
+	}
+
+	sprintf(s, "Fatal lock manager error: %s, errno: %d", string, ERRNO);
+	gds__log(s);
+	ib_fprintf(ib_stderr, "%s\n", s);
+
+#if !(defined NETWARE_386 || defined WIN_NT)
+	if (errno > 0)
+		ib_fprintf(ib_stderr, "--%s\n", sys_errlist[errno]);
+#endif
+
+#ifdef DEV_BUILD
+/* Make a core drop - we want to LOOK at this failure! */
+	abort();
+#endif
+
+	exit(FINI_ERROR);
+}
+
+
+static BOOLEAN convert(
+					   PTR request_offset,
+					   UCHAR type,
+					   SSHORT lck_wait,
+					   int (*ast_routine) (),
+int *ast_argument, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	c o n v e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a lock conversion, if possible.  If the lock cannot be
+ *	granted immediately, either return immediately or wait depending
+ *	on a wait flag.  If the lock is granted return TRUE, otherwise
+ *	return FALSE.  Note: if the conversion would cause a deadlock,
+ *	FALSE is returned even if wait was requested.
+ *
+ **************************************/
+	LBL lock;
+	LRQ request;
+	UCHAR temp;
+	BOOLEAN new_ast;
+	PTR owner_offset;
+
+	ASSERT_ACQUIRED;
+	request = get_request(request_offset);
+	lock = (LBL) ABS_PTR(request->lrq_lock);
+	owner_offset = request->lrq_owner;
+	post_history(his_convert, owner_offset, request->lrq_lock, request_offset,
+				 TRUE);
+	request->lrq_requested = type;
+	request->lrq_flags &= ~LRQ_blocking_seen;
+
+/* Compute the state of the lock without the request. */
+
+	--lock->lbl_counts[request->lrq_state];
+	temp = lock_state(lock);
+
+/* If the requested lock level is compatible with the current state
+   of the lock, just grant the request.  Easy enough. */
+
+	if (COMPATIBLE(type, temp))
+	{
+		request->lrq_ast_routine = ast_routine;
+		request->lrq_ast_argument = ast_argument;
+		grant(request, lock);
+		post_pending(lock);
+		release(owner_offset);
+		return TRUE;
+	}
+
+	++lock->lbl_counts[request->lrq_state];
+
+/* If we weren't requested to wait, just forget about the whole thing. 
+   Otherwise wait for the request to be granted or rejected */
+
+	if (lck_wait) {
+		if (request->lrq_ast_routine != ast_routine ||
+			request->lrq_ast_argument != ast_argument)
+			new_ast = TRUE;
+		else
+			new_ast = FALSE;
+
+		if (wait_for_request(request, lck_wait, status_vector)) {
+			ASSERT_RELEASED;
+			return FALSE;
+		}
+		request = (LRQ) ABS_PTR(request_offset);
+		if (!(request->lrq_flags & LRQ_rejected)) {
+			if (new_ast) {
+				acquire(owner_offset);
+				request = (LRQ) ABS_PTR(request_offset);
+				request->lrq_ast_routine = ast_routine;
+				request->lrq_ast_argument = ast_argument;
+				release(owner_offset);
+			}
+			ASSERT_RELEASED;
+			return TRUE;
+		}
+		acquire(owner_offset);
+		request = get_request(request_offset);
+		lock = (LBL) ABS_PTR(request->lrq_lock);
+		post_pending(lock);
+	}
+
+	request = (LRQ) ABS_PTR(request_offset);
+	request->lrq_requested = request->lrq_state;
+	ASSERT_ACQUIRED;
+	++LOCK_header->lhb_denies;
+	if (lck_wait < 0)
+		++LOCK_header->lhb_timeouts;
+	release(owner_offset);
+	*status_vector++ = gds_arg_gds;
+	*status_vector++ = (lck_wait > 0) ? gds__deadlock :
+		((lck_wait < 0) ? gds__lock_timeout : gds__lock_conflict);
+	*status_vector++ = gds_arg_end;
+
+	return FALSE;
+}
+
+
+static USHORT create_owner(STATUS*	status_vector,
+						   SLONG	owner_id,
+						   UCHAR	owner_type,
+						   SLONG*	owner_handle)
+{
+/**************************************
+ *
+ *	c r e a t e _ o w n e r 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an owner block.
+ *
+ **************************************/
+	SRQ que;
+	OWN owner;
+	USHORT new_block;
+
+	LOCK_version = LOCK_header->lhb_version;
+	if (LOCK_version != LHB_VERSION)
+	{
+
+		sprintf(LOCK_bug_buffer,
+				"inconsistent lock table version number; found %d, expected %d",
+				LOCK_version, LHB_VERSION);
+		bug(status_vector, LOCK_bug_buffer);
+		return FAILURE;
+	}
+
+	acquire(DUMMY_OWNER_CREATE);	/* acquiring owner is being created */
+
+/* Look for a previous instance of owner.  If we find one, get rid of it. */
+
+	QUE_LOOP(LOCK_header->lhb_owners, que)
+	{
+		owner = (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners));
+		if (owner->own_owner_id == owner_id &&
+			(UCHAR)owner->own_owner_type == owner_type)
+		{
+			purge_owner(DUMMY_OWNER_CREATE, owner);	/* purging owner_offset has not been set yet */
+			break;
+		}
+	}
+
+/* Allocate an owner block */
+
+	if (QUE_EMPTY(LOCK_header->lhb_free_owners))
+	{
+		if (!(owner = (OWN) alloc(sizeof(struct own), status_vector)))
+		{
+			release_mutex();
+			return FAILURE;
+		}
+		new_block = OWN_BLOCK_new;
+	}
+	else
+	{
+		owner = (OWN) ((UCHAR *) QUE_NEXT(LOCK_header->lhb_free_owners) -
+					   OFFSET(OWN, own_lhb_owners));
+		remove_que(&owner->own_lhb_owners);
+		new_block = OWN_BLOCK_reused;
+	}
+
+	init_owner_block(owner, owner_type, owner_id, new_block);
+
+/* cannot ASSERT_ACQUIRED; here - owner not setup */
+	insert_tail(&LOCK_header->lhb_owners, &owner->own_lhb_owners);
+
+#ifndef SUPERSERVER
+	(void) probe_owners(REL_PTR(owner));
+#endif
+
+	*owner_handle = REL_PTR(owner);
+	LOCK_header->lhb_active_owner = *owner_handle;
+
+#ifdef VALIDATE_LOCK_TABLE
+	validate_lhb(LOCK_header);
+#endif
+
+	release(*owner_handle);
+
+	return SUCCESS;
+}
+
+
+#ifdef DEV_BUILD
+static void current_is_active_owner( BOOLEAN expect_acquired, ULONG line)
+{
+/**************************************
+ *
+ *	c u r r e n t _ i s _ a c t i v e _ o w n e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Decide if the current process is the active owner
+ *	for the lock table.  Used in assertion checks.
+ *
+ **************************************/
+	OWN owner;
+	PTR owner_ptr;
+
+/* Do not ASSERT_ACQUIRED in this routine */
+
+/* If there's no header, we must be setting up in init somewhere */
+	if (!LOCK_header)
+		return;
+
+/* Use a local copy of lhb_active_owner.  We're viewing the lock table
+   without being acquired in the "expect_acquired FALSE" case, so it
+   can change out from under us.  We don't care that it changes, but
+   if it gets set to DUMMY_OWNER_SHUTDOWN, DUMMY_OWNER_CREATE or 
+   DUMMY_OWNER_DELETE it can lead to a core drop when we try to map 
+   the owner pointer */
+
+	owner_ptr = LOCK_header->lhb_active_owner;
+
+/* If no active owner, then we certainly aren't the active owner */
+	if (!owner_ptr) {
+		if (!expect_acquired)
+			return;
+		bug_assert("not acquired", line);
+	}
+
+/* When creating or deleting an owner the owner offset is set such that
+ * we can't be sure if WE have the lock table acquired, or someone else 
+ * has it, and they just happen to be doing the same operation.  So, we 
+ * don't try to report any problems when the lock table is in that state
+ */
+
+/* If active owner is DUMMY_OWNER_SHUTDOWN, then we're in process of shutting
+   down the lock system. */
+	if (owner_ptr == DUMMY_OWNER_SHUTDOWN)
+		return;
+
+/* If active owner is DUMMY_OWNER_CREATE, then we're creating a new owner */
+	if (owner_ptr == DUMMY_OWNER_CREATE)
+		return;
+
+/* If active owner is DUMMY_OWNER_DELETE, then we're deleting an owner */
+	if (owner_ptr == DUMMY_OWNER_DELETE)
+		return;
+
+/* Find the active owner, and see if it is us */
+	owner = (OWN) ABS_PTR(owner_ptr);
+
+
+/* SUPERSERVER uses the same pid for all threads, so the tests
+   below are of limited utility and can cause bogus errors */
+
+#ifndef SUPERSERVER
+
+	struct own owner_copy;
+
+	if (owner->own_process_id == LOCK_pid) {
+		if (expect_acquired)
+			return;
+		/* Save a copy for the debugger before we abort */
+		memcpy(&owner_copy, owner, sizeof(owner_copy));
+		bug_assert("not acquired", line);
+	}
+	else {
+		if (!expect_acquired)
+			return;
+		/* Save a copy for the debugger before we abort */
+		memcpy(&owner_copy, owner, sizeof(owner_copy));
+		bug_assert("not released", line);
+	}
+#endif // SUPERSERVER
+}
+
+#endif // DEV_BUILD
+
+
+static void deadlock_clear(void)
+{
+/**************************************
+ *
+ *	d e a d l o c k _ c l e a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear deadlock and scanned bits for pending requests
+ *	in preparation for a deadlock scan.
+ *
+ **************************************/
+	SRQ que;
+	LRQ pending;
+	OWN owner;
+	PTR pending_offset;
+
+	ASSERT_ACQUIRED;
+	QUE_LOOP(LOCK_header->lhb_owners, que) {
+		owner = (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners));
+		if (!(pending_offset = owner->own_pending_request))
+			continue;
+		pending = (LRQ) ABS_PTR(pending_offset);
+		pending->lrq_flags &= ~(LRQ_deadlock | LRQ_scanned);
+	}
+}
+
+
+static LRQ deadlock_scan( OWN owner, LRQ request)
+{
+/**************************************
+ *
+ *	d e a d l o c k _ s c a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given an owner block that has been stalled for some time, find
+ *	a deadlock cycle if there is one.  If a deadlock is found, return
+ *	the address of a pending lock request in the deadlock request.
+ *	If no deadlock is found, return null.
+ *
+ **************************************/
+	LRQ victim;
+	BOOLEAN maybe_deadlock = FALSE;
+
+	LOCK_TRACE(
+			   ("deadlock_scan: owner %ld request %ld\n", REL_PTR(owner),
+				REL_PTR(request)));
+
+	ASSERT_ACQUIRED;
+	++LOCK_header->lhb_scans;
+	post_history(his_scan, request->lrq_owner, request->lrq_lock,
+				 REL_PTR(request), TRUE);
+	deadlock_clear();
+
+#ifdef VALIDATE_LOCK_TABLE
+	validate_lhb(LOCK_header);
+#endif
+
+	victim = deadlock_walk(request, &maybe_deadlock);
+
+/* Only when it is certain that this request is not part of a deadlock do we
+   mark this request as 'scanned' so that we will not check this request again. 
+   Note that this request might be part of multiple deadlocks. */
+
+	if (!victim && !maybe_deadlock)
+		owner->own_flags |= OWN_scanned;
+#ifdef DEBUG
+	else if (!victim && maybe_deadlock)
+		DEBUG_MSG(0, ("deadlock_scan: not marking due to maybe_deadlock\n"));
+#endif
+
+	return victim;
+}
+
+
+static LRQ deadlock_walk( LRQ request, BOOLEAN * maybe_deadlock)
+{
+/**************************************
+ *
+ *	d e a d l o c k _ w a l k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a request that is waiting, determine whether a deadlock has
+ *	occured.
+ *
+ **************************************/
+	SRQ que;
+	LRQ block, target;
+	LBL lock;
+	OWN owner;
+	PTR pending_offset;
+	BOOLEAN conversion;
+
+/* If this request was scanned for deadlock earlier than don't
+   visit it again. */
+
+	if (request->lrq_flags & LRQ_scanned)
+		return NULL;
+
+/* If this request has been seen already during this deadlock-walk, then we
+   detected a circle in the wait-for graph.  Return "deadlock". */
+
+	if (request->lrq_flags & LRQ_deadlock)
+		return request;
+
+/* Remember that this request is part of the wait-for graph. */
+
+	request->lrq_flags |= LRQ_deadlock;
+
+/* Check if this is a conversion request. */
+
+	conversion = (request->lrq_state > LCK_null) ? TRUE : FALSE;
+
+/* Find the parent lock of the request */
+
+	lock = (LBL) ABS_PTR(request->lrq_lock);
+
+/* Loop thru the requests granted against the lock.  If any granted request is
+   blocking the request we're handling, recurse to find what's blocking him. */
+
+	QUE_LOOP(lock->lbl_requests, que) {
+		block = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_lbl_requests));
+
+		/* Note that the default for LOCK_ordering is 1, and the default can be
+		   changed with the isc_config modifier 'V4_LOCK_GRANT_ORDER'. */
+
+		if (!LOCK_ordering || conversion) {
+			/* Don't pursue our own lock-request again. */
+
+			if (request == block)
+				continue;
+
+			/* Since lock conversions can't follow the fairness rules (to avoid
+			   deadlocks), only granted lock requests need to be examined. */
+			/* If lock-ordering is turned off (opening the door for starvation),
+			   only granted requests can block our request. */
+
+			if (COMPATIBLE(request->lrq_requested, block->lrq_state))
+				continue;
+		}
+		else {
+			/* Don't pursue our own lock-request again.  In addition, don't look
+			   at requests that arrived after our request because lock-ordering
+			   is in effect. */
+
+			if (request == block)
+				break;
+
+			/* Since lock ordering is in effect, granted locks and waiting
+			   requests that arrived before our request could block us. */
+
+			if (COMPATIBLE
+				(request->lrq_requested,
+				 MAX(block->lrq_state, block->lrq_requested))) continue;
+		}
+
+		/* Don't pursue lock owners that are not blocked themselves 
+		   (they can't cause a deadlock). */
+
+		owner = (OWN) ABS_PTR(block->lrq_owner);
+
+		/* Don't pursue lock owners that still have to finish processing their AST.
+		   If the blocking queue is not empty, then the owner still has some
+		   AST's to process (or lock reposts).
+		   Remember this fact because they still might be part of a deadlock. */
+
+		if (owner->own_ast_flags & OWN_signaled ||
+			!QUE_EMPTY((owner->own_blocks))) {
+			*maybe_deadlock = TRUE;
+			continue;
+		}
+
+		/* YYY: Note: can the below code be moved to the
+		   start of this block?  Before the OWN_signaled check?
+		 */
+
+		/* Get pointer to the waiting request whose owner also owns a lock
+		   that blocks the input request. */
+
+		if (!(pending_offset = owner->own_pending_request))
+			continue;
+
+		target = (LRQ) ABS_PTR(pending_offset);
+
+		/* If this waiting request is not pending anymore, then things are changing
+		   and this request cannot be part of a deadlock. */
+
+		if (!(target->lrq_flags & LRQ_pending))
+			continue;
+
+		/* Check who is blocking the request whose owner is blocking the input
+		   request. */
+
+		if (target = deadlock_walk(target, maybe_deadlock))
+			return target;
+	}
+
+/* This branch of the wait-for graph is exhausted, the current waiting
+   request is not part of a deadlock. */
+
+	request->lrq_flags &= ~LRQ_deadlock;
+	request->lrq_flags |= LRQ_scanned;
+	return NULL;
+}
+
+
+
+
+static void dequeue( PTR request_offset)
+{
+/**************************************
+ *
+ *	d e q u e u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an outstanding lock.
+ *
+ **************************************/
+	LRQ request;
+
+/* Acquire the data structure, and compute addresses of both lock
+   request and lock */
+
+	request = get_request(request_offset);
+	post_history(his_deq, request->lrq_owner, request->lrq_lock,
+				 request_offset, TRUE);
+	request->lrq_ast_routine = NULL;
+	release_request(request);
+}
+
+
+#ifdef DEBUG
+
+static ULONG delay_count = 0;
+static ULONG last_signal_line = 0;
+static ULONG last_delay_line = 0;
+
+static void debug_delay( ULONG lineno)
+{
+/**************************************
+ *
+ *	d e b u g _ d e l a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	This is a debugging routine, the purpose of which is to slow
+ *	down operations in order to expose windows of critical 
+ *	sections.
+ *
+ **************************************/
+
+	ULONG i;
+
+/* Delay for a while */
+
+	last_delay_line = lineno;
+	for (i = 0; i < 10000; i++)
+		/* Nothing */ ;
+
+
+/* Occasionally post a signal to ourselves, provided we aren't
+ * in the signal handler already and we've gotten past the initialization code.
+ */
+	if (LOCK_asts < 1)
+		if (((delay_count++ % 20) == 0) && LOCK_block_signal
+			&& LOCK_owner_offset) {
+			last_signal_line = lineno;
+			kill(getpid(), LOCK_block_signal);
+		}
+
+
+/* Occasionally crash for robustness testing */
+/*
+if ((delay_count % 500) == 0)
+    exit (-1);
+*/
+
+	for (i = 0; i < 10000; i++)
+		/* Nothing */ ;
+
+}
+#endif
+
+
+static void exit_handler( void *arg)
+{
+/**************************************
+ *
+ *	e x i t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release the process block, any outstanding locks,
+ *	and unmap the lock manager.  This is usually called
+ *	by the cleanup handler.
+ *
+ **************************************/
+	STATUS local_status[20];
+
+	if (!LOCK_header)
+		return;
+
+#ifndef SUPERSERVER
+/* For a superserver (e.g. Netware), since the server is going away, 
+   the semaphores cleanups are also happening; things are in a flux; 
+   all the threads are going away -- so don't get into any trouble 
+   by doing purge_owner() below. */
+
+	SRQ que;
+	PTR owner_offset;
+
+/* Get rid of all the owners belonging to the current process */
+
+	if (owner_offset = LOCK_owner_offset) {
+#if (defined WIN_NT || defined NEXT || defined SOLARIS_MT)
+		shutdown_blocking_thread(local_status);
+#else
+#ifdef MMAP_SUPPORTED
+		if (LOCK_owner)
+			ISC_unmap_object(local_status, &LOCK_data, &LOCK_owner,
+							 sizeof(struct own));
+#endif
+#endif
+		if (owner_offset != LOCK_header->lhb_active_owner)
+			acquire(DUMMY_OWNER_DELETE);
+
+		QUE_LOOP(LOCK_header->lhb_owners, que) {
+			OWN owner = (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners));
+			if (owner->own_process_id == LOCK_pid) {
+				que = (SRQ) ABS_PTR(que->srq_backward);
+				purge_owner(REL_PTR(owner), owner);
+				break;
+			}
+		}
+		release_mutex();
+		LOCK_owner_offset = 0;
+	}
+
+#endif
+
+	ISC_unmap_file(local_status, &LOCK_data, 0);
+}
+
+
+static LBL find_lock(
+					 PTR parent,
+					 USHORT series,
+					 UCHAR * value, USHORT length, USHORT * slot)
+{
+/**************************************
+ *
+ *	f i n d _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a lock block given a resource
+ *	name. If it doesn't exist, the hash
+ *	slot will be useful for enqueing a
+ *	lock.
+ *
+ **************************************/
+	LBL lock;
+	SRQ que, hash_header;
+	UCHAR *p, *q;
+	ULONG hash_value;
+	USHORT hash_slot;
+	USHORT l;
+
+/* Hash the value preserving its distribution as much as possible */
+
+	hash_value = 0;
+	q = value;
+
+	for (l = 0, q = value; l < length; l++) {
+		if (!(l & 3))
+			p = (UCHAR *) & hash_value;
+		*p++ = *q++;
+	}
+
+/* See if the lock already exists */
+
+	hash_slot = *slot = (USHORT) (hash_value % LOCK_header->lhb_hash_slots);
+	ASSERT_ACQUIRED;
+	hash_header = &LOCK_header->lhb_hash[hash_slot];
+
+	for (que = (SRQ) ABS_PTR(hash_header->srq_forward);
+		 que != hash_header; que = (SRQ) ABS_PTR(que->srq_forward)) {
+		lock = (LBL) ((UCHAR *) que - OFFSET(LBL, lbl_lhb_hash));
+		if (lock->lbl_series != series ||
+			lock->lbl_length != length || lock->lbl_parent != parent)
+			continue;
+		if (l = length) {
+			p = value;
+			q = lock->lbl_key;
+			do
+				if (*p++ != *q++)
+					break;
+			while (--l);
+		}
+		if (!l)
+			return lock;
+	}
+
+	return NULL;
+}
+
+
+#ifdef MANAGER_PROCESS
+static USHORT fork_lock_manager( STATUS * status_vector)
+{
+/**************************************
+ *
+ *	f o r k _ l o c k _ m a n a g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fork lock manager process.
+ *
+ **************************************/
+	TEXT string[256];
+	struct stat stat_buf;
+	int pid;
+
+/* Probe the lock manager executable to see if it plausibly exists. */
+
+#ifdef DEBUG_MANAGER
+	strcpy(string, DEBUG_MANAGER);
+#else
+	gds__prefix(string, LOCK_MANAGER);
+#endif
+	if (statistics(string, &stat_buf) == -1) {
+		bug(status_vector, "can't start lock manager");
+		return FALSE;
+	}
+
+	if (!(pid = vfork())) {
+		if (!vfork()) {
+			execl(string, string, (SCHAR *) 0);
+			_exit(FINI_ERROR);
+		}
+		_exit(FINI_OK);
+	}
+
+	if (pid == -1) {
+		bug(status_vector, "can't start lock manager");
+		return FALSE;
+	}
+
+	while (waitpid(pid, NULL, 0) == -1 && SYSCALL_INTERRUPTED(errno))
+		/* do nothing */ ;
+
+	return TRUE;
+}
+#endif
+
+
+#ifdef MANAGER_PROCESS
+static OWN get_manager( BOOLEAN flag)
+{
+/**************************************
+ *
+ *	g e t _ m a n a g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find lock manager process.  If we can't find one, start
+ *	one.
+ *
+ **************************************/
+	OWN owner;
+	SRQ que;
+
+/* Look for lock manager */
+
+	ASSERT_ACQUIRED;
+/* Let's perform a quick search if possible */
+
+	if (LOCK_header->lhb_manager) {
+		owner = (OWN) ABS_PTR(LOCK_header->lhb_manager);
+		if (owner->own_flags & OWN_manager)
+			return owner;
+	}
+
+/* Perform a long, hard search thru the owner blocks. */
+
+	QUE_LOOP(LOCK_header->lhb_owners, que) {
+		owner = (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners));
+		if (owner->own_flags & OWN_manager) {
+			LOCK_header->lhb_manager = REL_PTR(owner);
+			return owner;
+		}
+	}
+
+/* Oops -- no lock manager.  */
+
+	if (flag)
+		fork_lock_manager((STATUS *) NULL);
+
+	return NULL;
+}
+#endif
+
+
+static LRQ get_request( PTR offset)
+{
+/**************************************
+ *
+ *	g e t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Locate and validate user supplied request offset.
+ *
+ **************************************/
+	LRQ request;
+	LBL lock;
+	TEXT s[32];
+
+	request = (LRQ) ABS_PTR(offset);
+	if ((SLONG) offset == -1 || request->lrq_type != type_lrq) {
+		sprintf(s, "invalid lock id (%d)", offset);
+		bug(NULL, s);
+	}
+
+	lock = (LBL) ABS_PTR(request->lrq_lock);
+	if (lock->lbl_type != type_lbl) {
+		sprintf(s, "invalid lock (%d)", offset);
+		bug(NULL, s);
+	}
+
+	return request;
+}
+
+
+static void grant( LRQ request, LBL lock)
+{
+/**************************************
+ *
+ *	g r a n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Grant a lock request.  If the lock is a conversion, assume the caller
+ *	has already decremented the former lock type count in the lock block.
+ *
+ **************************************/
+
+/* Request must be for THIS lock */
+	CHECK(REL_PTR(lock) == request->lrq_lock);
+
+	post_history(his_grant, request->lrq_owner, request->lrq_lock,
+				 REL_PTR(request), TRUE);
+
+	++lock->lbl_counts[request->lrq_requested];
+	request->lrq_state = request->lrq_requested;
+	if (request->lrq_data) {
+		remove_que(&lock->lbl_lhb_data);
+		if (lock->lbl_data = request->lrq_data)
+			insert_data_que(lock);
+		request->lrq_data = 0;
+	}
+
+	lock->lbl_state = lock_state(lock);
+	if (request->lrq_flags & LRQ_pending)
+	{
+		request->lrq_flags &= ~LRQ_pending;
+		lock->lbl_pending_lrq_count--;
+	}
+	post_wakeup((OWN) ABS_PTR(request->lrq_owner));
+}
+
+
+static PTR grant_or_que( LRQ request, LBL lock, SSHORT lck_wait)
+{
+/**************************************
+ *
+ *	g r a n t _ o r _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	There is a request against an existing lock.  If the request
+ *	is compatible with the lock, grant it.  Otherwise que it.
+ *	If the lock is que-ed, set up the machinery to do a deadlock
+ *	scan in awhile.
+ *
+ **************************************/
+	PTR request_offset;
+	PTR owner_offset;
+
+	request_offset = REL_PTR(request);
+	request->lrq_lock = REL_PTR(lock);
+
+/* Compatible requests are easy to satify.  Just post the request
+   to the lock, update the lock state, release the data structure,
+   and we're done. */
+
+	if (COMPATIBLE(request->lrq_requested, lock->lbl_state))
+		if (!LOCK_ordering ||
+			request->lrq_requested == LCK_null ||
+			(lock->lbl_pending_lrq_count == 0)) {
+			grant(request, lock);
+			post_pending(lock);
+			release(request->lrq_owner);
+			return request_offset;
+		}
+
+/* The request isn't compatible with the current state of the lock.
+ * If we haven't be asked to wait for the lock, return now. 
+ */
+
+	if (lck_wait)
+	{
+		(void) wait_for_request(request, lck_wait, (STATUS *) NULL);
+
+		/* For performance reasons, we're going to look at the 
+		 * request's status without re-acquiring the lock table.
+		 * This is safe as no-one can take away the request, once
+		 * granted, and we're doing a read-only access
+		 */
+		request = (LRQ) ABS_PTR(request_offset);
+
+		/* Request HAS been resolved */
+		CHECK(!(request->lrq_flags & LRQ_pending));
+
+		if (!(request->lrq_flags & LRQ_rejected))
+			return request_offset;
+		acquire(request->lrq_owner);
+	}
+
+	request = (LRQ) ABS_PTR(request_offset);
+	post_history(his_deny, request->lrq_owner, request->lrq_lock,
+				 REL_PTR(request), TRUE);
+	ASSERT_ACQUIRED;
+	++LOCK_header->lhb_denies;
+	if (lck_wait < 0)
+		++LOCK_header->lhb_timeouts;
+	owner_offset = request->lrq_owner;
+	release_request(request);
+	release(owner_offset);
+
+	return NULL;
+}
+
+
+static STATUS init_lock_table( STATUS * status_vector)
+{
+/**************************************
+ *
+ *	i n i t _ l o c k _ t a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the global lock table for the first time.
+ *	Read the config file, map the shared region, etc. 
+ *
+ **************************************/
+	TEXT *lock_file;
+	TEXT buffer[256];
+
+	LOCK_shm_size = DEFAULT_SIZE;
+	LOCK_sem_count = SEMAPHORES;
+	LOCK_block_signal = BLOCKING_SIGNAL;
+#ifdef WAKEUP_SIGNAL
+	LOCK_wakeup_signal = WAKEUP_SIGNAL;
+#endif
+	LOCK_hash_slots = HASH_MIN_SLOTS;
+	LOCK_scan_interval = WAIT_TIME;
+	LOCK_acquire_spins = 0;
+
+/* LOCK_ordering is TRUE (ON) by default.  It may be changed 
+   by the V4_LOCK_GRANT_ORDER option in the configuration file.
+   A value of 0 for that option turns lock ordering off */
+
+	LOCK_ordering = TRUE;
+
+	ISC_get_config(LOCK_HEADER, const_cast<ipccfg*>(LOCK_hdrtbl));
+
+	if (LOCK_hash_slots < HASH_MIN_SLOTS)
+		LOCK_hash_slots = HASH_MIN_SLOTS;
+	if (LOCK_hash_slots > HASH_MAX_SLOTS)
+		LOCK_hash_slots = HASH_MAX_SLOTS;
+
+#if (defined SOLARIS_MT && !defined SUPERSERVER)
+	if (LOCK_solaris_stall < SOLARIS_MIN_STALL)
+		LOCK_solaris_stall = SOLARIS_MIN_STALL;
+	if (LOCK_solaris_stall > SOLARIS_MAX_STALL)
+		LOCK_solaris_stall = SOLARIS_MAX_STALL;
+#endif
+
+	LOCK_pid = getpid();
+
+	gds__prefix_lock(buffer, LOCK_FILE);
+	lock_file = buffer;
+#ifdef UNIX
+	LOCK_data.sh_mem_semaphores = LOCK_sem_count;
+#endif
+#ifdef NETWARE_386
+	LOCK_data.sh_mem_semaphores = 1;
+#endif
+	if (!(LOCK_header = (LHB) ISC_map_file(status_vector, lock_file,
+										   reinterpret_cast < void (*)() >
+										   (lock_initialize), 0,
+										   LOCK_shm_size, &LOCK_data))) {
+
+/* In Superserver lock table init happens only once and 
+   if error occurs it could be considered a startup error.
+   There is almost nothing the server could do without
+   the lock table, let's exit
+*/
+#if (defined SUPERSERVER && defined UNIX)
+		gds__log_status(NULL, status_vector);
+		exit(STARTUP_ERROR);
+#endif
+		return status_vector[1];
+	}
+
+/* Now get the globally consistent value of LOCK_ordering from the 
+   shared lock table. */
+
+	LOCK_ordering =
+		(LOCK_header->lhb_flags & LHB_lock_ordering) ? TRUE : FALSE;
+
+	gds__register_cleanup(exit_handler, 0);
+
+/* Define a place holder process owner block */
+
+	init_owner_block(&LOCK_process_owner, 255 /*LCK_OWNER_dummy_process */ ,
+					 LOCK_header->lhb_process_count++, OWN_BLOCK_dummy);
+
+	return SUCCESS;
+}
+
+
+static void init_owner_block(
+							 OWN owner,
+							 UCHAR owner_type,
+							 ULONG owner_id, USHORT new_block)
+{
+/**************************************
+ *
+ *	i n i t _ o w n e r _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the passed owner block nice and new. 
+ *
+ **************************************/
+
+	owner->own_type = type_own;
+	owner->own_owner_type = owner_type;
+	owner->own_flags = 0;
+	owner->own_ast_flags = 0;
+	owner->own_ast_hung_flags = 0;
+	owner->own_count = 1;
+	owner->own_owner_id = owner_id;
+	QUE_INIT(owner->own_lhb_owners);
+	QUE_INIT(owner->own_requests);
+	QUE_INIT(owner->own_blocks);
+	owner->own_pending_request = 0;
+
+	owner->own_process_id = LOCK_pid;
+#ifdef UNIX
+	owner->own_process_uid = getuid();
+#endif
+#if defined(WIN_NT)
+	owner->own_process_uid = 0;
+#endif
+
+	owner->own_acquire_time = 0;
+	owner->own_acquire_realtime = 0;
+	owner->own_semaphore = 0;
+
+	if (new_block == OWN_BLOCK_new)
+	{
+#ifdef WIN_NT
+		owner->own_wakeup_hndl =
+			ISC_make_signal(TRUE, TRUE, LOCK_pid, LOCK_wakeup_signal);
+#endif
+#ifdef USE_EVENTS
+#ifdef NETWARE_386
+		ISC_event_init(owner->own_wakeup, 0, 0);
+#endif
+#if (defined WIN_NT && defined SUPERSERVER)
+		ISC_event_init(owner->own_wakeup, 0, 0);
+#endif
+#ifdef SOLARIS
+		ISC_event_init(owner->own_wakeup, 0, 1);
+#endif
+#ifdef SOLARIS_MT
+		ISC_event_init(owner->own_blocking, 0, 1);
+		ISC_event_init(owner->own_stall, 0, 1);
+#endif
+#if (defined POSIX_THREADS && defined SUPERSERVER)
+		ISC_event_init(owner->own_wakeup, 0, 0);
+#endif
+
+#ifdef UNIX
+#if !(defined SOLARIS || defined POSIX_THREADS)
+
+		owner->own_wakeup[0].event_semid = LOCK_data.sh_mem_mutex_arg;
+		owner->own_wakeup[0].event_semnum = 0;
+		owner->own_wakeup[0].event_count = 0;
+#endif
+#endif
+#endif
+	}
+}
+
+
+#ifdef USE_EVENTS
+static void lock_alarm_handler( EVENT event)
+{
+/**************************************
+ *
+ *      l o c k _ a l a r m _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      This handler would just post the passed event.
+ *      This is to take care of the situation when an alarm handler
+ *      expires before the wait on the samaphore starts.  This way, we can
+ *      avoid an indefinite wait when there is nobody to poke the
+ *      semaphore and the timer also expired becuase of some asynchronous
+ *      event (signal) handling.
+ *
+ **************************************/
+
+	ISC_event_post(event);
+}
+#endif
+
+
+static void lock_initialize( void *arg, SH_MEM shmem_data, int initialize)
+{
+/**************************************
+ *
+ *	l o c k _ i n i t i a l i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the lock header block.  The caller is assumed
+ *	to have an exclusive lock on the lock file.
+ *
+ **************************************/
+	SSHORT length;
+	USHORT i, j;
+	SRQ que;
+	SHB shb;
+	HIS history;
+	PTR *prior;
+
+#if defined(WIN_NT)
+	if (ISC_mutex_init(MUTEX, LOCK_FILE))
+		bug(NULL, "mutex init failed");
+#endif
+
+	LOCK_header = (LHB) shmem_data->sh_mem_address;
+
+	if (!initialize)
+		return;
+
+	start_manager = TRUE;
+
+	memset(LOCK_header, 0, sizeof(struct lhb));
+	LOCK_header->lhb_type = type_lhb;
+	LOCK_header->lhb_version = LHB_VERSION;
+
+/* Mark ourselves as active owner to prevent assert() checks */
+	LOCK_header->lhb_active_owner = DUMMY_OWNER_CREATE;	/* In init of lock system */
+
+	QUE_INIT(LOCK_header->lhb_owners);
+	QUE_INIT(LOCK_header->lhb_free_owners);
+	QUE_INIT(LOCK_header->lhb_free_locks);
+	QUE_INIT(LOCK_header->lhb_free_requests);
+
+#pragma FB_COMPILER_MESSAGE("TMN: Why not init the mutex on NT?")
+#if !defined(WIN_NT)
+	if (ISC_mutex_init(MUTEX, shmem_data->sh_mem_mutex_arg))
+		bug(NULL, "mutex init failed");
+#endif
+
+	LOCK_header->lhb_hash_slots = (USHORT) LOCK_hash_slots;
+	LOCK_header->lhb_scan_interval = LOCK_scan_interval;
+	LOCK_header->lhb_acquire_spins = LOCK_acquire_spins;
+
+/* Initialize lock series data queues and lock hash chains. */
+
+	for (i = 0, que = LOCK_header->lhb_data; i < LCK_MAX_SERIES; i++, que++)
+	{
+		QUE_INIT((*que));
+	}
+	for (i = 0, que = LOCK_header->lhb_hash; i < LOCK_header->lhb_hash_slots;
+		 i++, que++)
+	{
+		QUE_INIT((*que));
+	}
+
+/* Set lock_ordering flag for the first time */
+
+	if (LOCK_ordering)
+		LOCK_header->lhb_flags |= LHB_lock_ordering;
+
+	length =
+		sizeof(struct lhb) +
+		(LOCK_header->lhb_hash_slots * sizeof(LOCK_header->lhb_hash[0]));
+	LOCK_header->lhb_length = shmem_data->sh_mem_length_mapped;
+	LOCK_header->lhb_used = FB_ALIGN(length, sizeof(IPTR));
+
+	if (!(shb = (SHB) alloc(sizeof(struct shb), NULL)))
+	{
+		gds__log("Fatal lock manager error: lock manager out of room");
+		exit(STARTUP_ERROR);
+	}
+	
+	LOCK_header->lhb_secondary = REL_PTR(shb);
+	shb->shb_type = type_shb;
+	shb->shb_flags = 0;
+	shb->shb_remove_node = 0;
+	shb->shb_insert_que = 0;
+	shb->shb_insert_prior = 0;
+	
+	for (i = sizeof(shb->shb_misc) / sizeof(shb->shb_misc[0]); i--;)
+	{
+		shb->shb_misc[i] = 0;
+	}
+
+/* Allocate a sufficiency of history blocks */
+
+	for (j = 0; j < 2; j++)
+	{
+		prior = (j == 0) ? &LOCK_header->lhb_history : &shb->shb_history;
+
+		for (i = 0; i < HISTORY_BLOCKS; i++)
+		{
+			if (!(history = (HIS) alloc(sizeof(struct his), NULL)))
+			{
+				gds__log("Fatal lock manager error: lock manager out of room");
+				exit(STARTUP_ERROR);
+			}
+			*prior = REL_PTR(history);
+			history->his_type = type_his;
+			history->his_operation = 0;
+			prior = &history->his_next;
+		}
+
+		history->his_next =
+			(j == 0) ? LOCK_header->lhb_history : shb->shb_history;
+	}
+
+#ifdef STATIC_SEMAPHORES
+/* Initialize the semaphores. Allocate semaphore block. */
+
+	SMB semaphores = (SMB) alloc(sizeof(struct smb) +
+								   (LOCK_sem_count / BITS_PER_LONG) *
+								   sizeof(ULONG), NULL);
+	if (!semaphores)
+	{
+		gds__log("Fatal lock manager error: lock manager out of room");
+		exit(STARTUP_ERROR);
+	}
+	LOCK_header->lhb_mask = REL_PTR(semaphores);
+	semaphores->smb_type = type_smb;
+	for (i = LOCK_sem_count / BITS_PER_LONG + 1; i--;)
+	{
+		semaphores->smb_mask[i] = 0;
+	}
+	for (i = 1; i < (USHORT) LOCK_sem_count; i++)
+	{
+		EVENT_T local_event;
+
+		ISC_event_init(&local_event, shmem_data->sh_mem_mutex_arg, i);
+		semaphores->smb_mask[i / BITS_PER_LONG] |= 1L << (i % BITS_PER_LONG);
+	}
+#endif
+
+/* Done initializing, unmark owner information */
+	LOCK_header->lhb_active_owner = 0;
+}
+
+
+static void insert_data_que( LBL lock)
+{
+/**************************************
+ *
+ *	i n s e r t _ d a t a _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a node in the lock series data queue
+ *	in sorted (ascending) order by lock data.
+ *
+ **************************************/
+	LBL lock2;
+	SRQ data_header, que;
+
+	if (lock->lbl_series < LCK_MAX_SERIES && lock->lbl_parent
+		&& lock->lbl_data) {
+		data_header = &LOCK_header->lhb_data[lock->lbl_series];
+
+		for (que = (SRQ) ABS_PTR(data_header->srq_forward);
+			 que != data_header; que = (SRQ) ABS_PTR(que->srq_forward)) {
+			lock2 = (LBL) ((UCHAR *) que - OFFSET(LBL, lbl_lhb_data));
+			CHECK(lock2->lbl_series == lock->lbl_series);
+			if (lock2->lbl_parent != lock->lbl_parent)
+				continue;
+
+			if (lock->lbl_data <= lock2->lbl_data)
+				break;
+		}
+
+		insert_tail(que, &lock->lbl_lhb_data);
+	}
+}
+
+
+static void insert_tail( SRQ que, SRQ node)
+{
+/**************************************
+ *
+ *	i n s e r t _ t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a node at the tail of a que.
+ *
+ *	To handle the event of the process terminating during
+ *	the insertion of the node, we set values in the shb to
+ *	indicate the node being inserted.
+ *	Then, should we be unable to complete
+ *	the node insert, the next process into the lock table
+ *	will notice the uncompleted work and undo it,
+ *	eg: it will put the queue back to the state
+ *	prior to the insertion being started.
+ *
+ **************************************/
+	SRQ prior;
+	SHB recover;
+
+	ASSERT_ACQUIRED;
+	recover = (SHB) ABS_PTR(LOCK_header->lhb_secondary);
+	DEBUG_DELAY;
+	recover->shb_insert_que = REL_PTR(que);
+	DEBUG_DELAY;
+	recover->shb_insert_prior = que->srq_backward;
+	DEBUG_DELAY;
+
+	node->srq_forward = REL_PTR(que);
+	DEBUG_DELAY;
+	node->srq_backward = que->srq_backward;
+
+	DEBUG_DELAY;
+	prior = (SRQ) ABS_PTR(que->srq_backward);
+	DEBUG_DELAY;
+	prior->srq_forward = REL_PTR(node);
+	DEBUG_DELAY;
+	que->srq_backward = REL_PTR(node);
+	DEBUG_DELAY;
+
+	recover->shb_insert_que = 0;
+	DEBUG_DELAY;
+	recover->shb_insert_prior = 0;
+	DEBUG_DELAY;
+}
+
+
+static USHORT lock_state( LBL lock)
+{
+/**************************************
+ *
+ *	l o c k _ s t a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the current state of a lock.
+ *
+ **************************************/
+
+	if (lock->lbl_counts[LCK_EX])
+		return LCK_EX;
+	else if (lock->lbl_counts[LCK_PW])
+		return LCK_PW;
+	else if (lock->lbl_counts[LCK_SW])
+		return LCK_SW;
+	else if (lock->lbl_counts[LCK_PR])
+		return LCK_PR;
+	else if (lock->lbl_counts[LCK_SR])
+		return LCK_SR;
+	else if (lock->lbl_counts[LCK_null])
+		return LCK_null;
+
+	return LCK_none;
+}
+
+
+static void post_blockage( LRQ request, LBL lock, BOOLEAN force)
+{
+/**************************************
+ *
+ *	p o s t _ b l o c k a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	The current request is blocked.  Post blocking notices to
+ *	any process blocking the request.
+ *
+ **************************************/
+	OWN owner, blocking_owner;
+	SRQ que, next_que;
+	PTR next_que_offset;
+	LRQ block;
+
+	owner = (OWN) ABS_PTR(request->lrq_owner);
+
+	ASSERT_ACQUIRED;
+	CHECK(owner->own_pending_request == REL_PTR(request));
+	CHECK(request->lrq_flags & LRQ_pending);
+
+	for (que = QUE_NEXT(lock->lbl_requests); que != &lock->lbl_requests;
+		 que = (SRQ) ABS_PTR(next_que_offset)) {
+		next_que = QUE_NEXT((*que));
+		next_que_offset = REL_PTR(next_que);
+		block = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_lbl_requests));
+
+		/* Figure out if this lock request is blocking our own lock request.
+		   Of course, our own request cannot block ourselves.  Compatible
+		   requests don't block us, and if there is no AST routine for the
+		   request the block doesn't matter as we can't notify anyone.
+		   If the owner has marked the request with "LRQ_blocking_seen 
+		   then the blocking AST has been delivered and the owner promises
+		   to release the lock as soon as possible (so don't bug the owner) */
+
+		if (block == request ||
+			COMPATIBLE(request->lrq_requested, block->lrq_state) ||
+			!block->lrq_ast_routine ||
+			((block->lrq_flags & LRQ_blocking_seen) && !force))
+			continue;
+
+		blocking_owner = (OWN) ABS_PTR(block->lrq_owner);
+
+		/* Add the blocking request to the list of blocks if it's not
+		   there already (LRQ_blocking) */
+
+		if (!(block->lrq_flags & LRQ_blocking)) {
+			insert_tail(&blocking_owner->own_blocks, &block->lrq_own_blocks);
+			block->lrq_flags |= LRQ_blocking;
+			block->lrq_flags &= ~LRQ_blocking_seen;
+		}
+
+		if (force)
+			blocking_owner->own_ast_flags &= ~OWN_signaled;
+		if (blocking_owner != owner &&
+			signal_owner(blocking_owner, REL_PTR(owner))) {
+			/* We can't signal the blocking_owner, assume he has died
+			   and purge him out */
+
+			que = (SRQ) ABS_PTR(que->srq_backward);
+			purge_owner(REL_PTR(owner), blocking_owner);
+		}
+		if (block->lrq_state == LCK_EX)
+			break;
+	}
+}
+
+
+static void post_history(
+						 USHORT operation,
+						 PTR process,
+						 PTR lock, PTR request, BOOLEAN old_version)
+{
+/**************************************
+ *
+ *	p o s t _ h i s t o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post a history item.
+ *
+ **************************************/
+	HIS history;
+
+	if (old_version) {
+		history = (HIS) ABS_PTR(LOCK_header->lhb_history);
+		ASSERT_ACQUIRED;
+		LOCK_header->lhb_history = history->his_next;
+	}
+	else {
+		SHB shb;
+
+		ASSERT_ACQUIRED;
+		shb = (SHB) ABS_PTR(LOCK_header->lhb_secondary);
+		history = (HIS) ABS_PTR(shb->shb_history);
+		shb->shb_history = history->his_next;
+	}
+
+	history->his_operation = operation;
+	history->his_process = process;
+	history->his_lock = lock;
+	history->his_request = request;
+}
+
+
+static void post_pending( LBL lock)
+{
+/**************************************
+ *
+ *	p o s t _ p e n d i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	There has been a change in state of a lock.  Check pending
+ *	requests to see if something can be granted.  If so, do it.
+ *
+ **************************************/
+	LRQ request;
+	SRQ que;
+	UCHAR temp_state;
+	OWN owner;
+#ifdef DEV_BUILD
+	USHORT pending_counter = 0;
+#endif
+
+	if (lock->lbl_pending_lrq_count == 0)
+		return;
+
+/* Loop thru granted requests looking for pending conversions.  If one
+   is found, check to see if it can be granted.  Even if a request cannot
+   be granted for compatibility reason, post_wakeup () that owner so that
+   it can post_blockage() to the newly granted owner of the lock. */
+
+	QUE_LOOP(lock->lbl_requests, que) {
+		request = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_lbl_requests));
+		if (!(request->lrq_flags & LRQ_pending))
+			continue;
+		if (request->lrq_state)
+		{
+			--lock->lbl_counts[request->lrq_state];
+			temp_state = lock_state(lock);
+			if (COMPATIBLE(request->lrq_requested, temp_state))
+				grant(request, lock);
+			else {
+#ifdef DEV_BUILD
+				pending_counter++;
+#endif
+				++lock->lbl_counts[request->lrq_state];
+				owner = (OWN) ABS_PTR(request->lrq_owner);
+				post_wakeup(owner);
+				if (LOCK_ordering) {
+					CHECK(lock->lbl_pending_lrq_count >= pending_counter);
+					return;
+				}
+			}
+		}
+		else if (COMPATIBLE(request->lrq_requested, lock->lbl_state))
+			grant(request, lock);
+		else {
+#ifdef DEV_BUILD
+			pending_counter++;
+#endif
+			owner = (OWN) ABS_PTR(request->lrq_owner);
+			post_wakeup(owner);
+			if (LOCK_ordering) {
+				CHECK(lock->lbl_pending_lrq_count >= pending_counter);
+				return;
+			}
+		}
+	}
+
+	CHECK(lock->lbl_pending_lrq_count == pending_counter);
+}
+
+
+#ifdef USE_EVENTS
+static void post_wakeup( OWN owner)
+{
+/**************************************
+ *
+ *	p o s t _ w a k e u p		( U S E _ E V E N T S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wakeup whoever is waiting on a lock.
+ *
+ **************************************/
+	USHORT semaphore;
+
+/* Note: own_semaphore is set to 1 if we are in wait_for_request() */
+
+	if (!(semaphore = owner->own_semaphore) || (semaphore & OWN_semavail))
+		return;
+
+	++LOCK_header->lhb_wakeups;
+	owner->own_flags |= OWN_wakeup;
+	ISC_event_post(owner->own_wakeup);
+}
+#endif
+
+
+#ifndef USE_EVENTS
+static void post_wakeup( OWN owner)
+{
+/**************************************
+ *
+ *	p o s t _ w a k e u p		( n o n - U S E _ E V E N T S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wakeup whoever is waiting on a lock.
+ *
+ **************************************/
+
+	if (!owner->own_semaphore)
+		return;
+
+	if (owner->own_flags & OWN_wakeup)
+		return;
+
+	++LOCK_header->lhb_wakeups;
+	owner->own_flags |= OWN_wakeup;
+
+#ifdef WIN_NT
+	ISC_kill(owner->own_process_id, LOCK_wakeup_signal,
+			 owner->own_wakeup_hndl);
+#else
+	ISC_kill(owner->own_process_id, LOCK_wakeup_signal);
+#endif
+}
+#endif
+
+
+#ifndef SUPERSERVER
+static BOOLEAN probe_owners( PTR probing_owner_offset)
+{
+/**************************************
+ *
+ *	p r o b e _ o w n e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Probe an owner to see if it still exists.  If it doesn't, get
+ *	rid of it.
+ *
+ **************************************/
+	SRQ que;
+	OWN owner;
+	BOOLEAN purged;
+
+	purged = FALSE;
+
+	ASSERT_ACQUIRED;
+	QUE_LOOP(LOCK_header->lhb_owners, que) {
+		owner = (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners));
+		if (owner->own_flags & OWN_signal)
+			signal_owner(owner, (PTR) NULL);
+		if (owner->own_process_id != LOCK_pid &&
+			!ISC_check_process_existence(owner->own_process_id,
+										 owner->own_process_uid, FALSE)) {
+			que = (SRQ) ABS_PTR(que->srq_backward);
+			purge_owner(probing_owner_offset, owner);
+			purged = TRUE;
+		}
+	}
+
+	return purged;
+}
+#endif /* SUPERSERVER */
+
+
+static void purge_owner( PTR purging_owner_offset, OWN owner)
+{
+/**************************************
+ *
+ *	p u r g e _ o w n e r    
+ *
+ **************************************
+ *
+ * Functional description
+ *	Purge an owner and all of its associated locks.
+ *
+ **************************************/
+	SRQ que;
+	LRQ request;
+
+	LOCK_TRACE(("purge_owner (%ld)\n", purging_owner_offset));
+
+	post_history(his_del_owner, purging_owner_offset, REL_PTR(owner), 0,
+				 FALSE);
+
+#ifdef STATIC_SEMAPHORES
+	release_semaphore(owner);
+#endif
+
+/* Release any locks that are active. */
+
+	while ((que = QUE_NEXT(owner->own_requests)) != &owner->own_requests) {
+		request = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_own_requests));
+		release_request(request);
+	}
+
+/* Release any repost requests left dangling on blocking queue. */
+
+	while ((que = QUE_NEXT(owner->own_blocks)) != &owner->own_blocks) {
+		request = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_own_blocks));
+		remove_que(&request->lrq_own_blocks);
+		request->lrq_type = type_null;
+		insert_tail(&LOCK_header->lhb_free_requests,
+					&request->lrq_lbl_requests);
+	}
+
+#ifdef MANAGER_PROCESS
+	if (owner->own_flags & OWN_manager)
+		LOCK_header->lhb_manager = 0;
+#endif
+
+/* Release owner block */
+
+	remove_que(&owner->own_lhb_owners);
+	insert_tail(&LOCK_header->lhb_free_owners, &owner->own_lhb_owners);
+
+	owner->own_owner_type = 0;
+	owner->own_owner_id = 0;
+	owner->own_process_id = 0;
+	owner->own_flags = 0;
+}
+
+
+static void remove_que( SRQ node)
+{
+/**************************************
+ *
+ *	r e m o v e _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove a node from a self-relative que.
+ *
+ *	To handle the event of the process terminating during
+ *	the removal of the node, we set shb_remove_node to the
+ *	node to be removed.  Then, should we be unsuccessful
+ *	in the node removal, the next process into the lock table
+ *	will notice the uncompleted work and complete it.
+ *
+ *	Note that the work is completed by again calling this routine,
+ *	specifing the node to be removed.  As the prior and following
+ *	nodes may have changed prior to the crash, we need to redo the
+ *	work only based on what is in <node>.  
+ *
+ **************************************/
+	SRQ que;
+	SHB recover;
+
+	ASSERT_ACQUIRED;
+	recover = (SHB) ABS_PTR(LOCK_header->lhb_secondary);
+	DEBUG_DELAY;
+	recover->shb_remove_node = REL_PTR(node);
+	DEBUG_DELAY;
+
+	que = (SRQ) ABS_PTR(node->srq_forward);
+
+/* The next link might point back to us, or our prior link should
+ * the backlink change occur before a crash
+ */
+	CHECK(que->srq_backward == REL_PTR(node) ||
+		  que->srq_backward == node->srq_backward);
+	DEBUG_DELAY;
+	que->srq_backward = node->srq_backward;
+
+	DEBUG_DELAY;
+	que = (SRQ) ABS_PTR(node->srq_backward);
+
+/* The prior link might point forward to us, or our following link should
+ * the change occur before a crash
+ */
+	CHECK(que->srq_forward == REL_PTR(node) ||
+		  que->srq_forward == node->srq_forward);
+	DEBUG_DELAY;
+	que->srq_forward = node->srq_forward;
+
+	DEBUG_DELAY;
+	recover->shb_remove_node = 0;
+	DEBUG_DELAY;
+
+/* To prevent trying to remove this entry a second time, which could occur
+ * for instance, when we're removing an owner, and crash while removing
+ * the owner's blocking requests, reset the que entry in this node.
+ * Note that if we get here, shb_remove_node has been cleared, so we
+ * no longer need the queue information.
+ */
+
+	QUE_INIT((*node));
+}
+
+
+static void release( PTR owner_offset)
+{
+/**************************************
+ *
+ *	r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release the mapped lock file.  Advance the event count to wake up
+ *	anyone waiting for it.  If there appear to be blocking items
+ *	posted.
+ *
+ **************************************/
+
+#if !defined(ANY_THREADING) || \
+	defined(MANAGER_PROCESS) || \
+	(defined SOLARIS_MT && !defined SUPERSERVER)
+
+	OWN owner;
+#endif
+
+#ifndef ANY_THREADING
+	if (owner_offset) {
+		owner = (OWN) ABS_PTR(owner_offset);
+		if (!QUE_EMPTY(owner->own_blocks))
+			signal_owner(owner, (PTR) NULL);
+	}
+#endif
+
+	if (owner_offset && LOCK_header->lhb_active_owner != owner_offset)
+		bug(NULL, "release when not owner");
+
+#ifdef MANAGER_PROCESS
+	if (LOCK_post_manager && (owner = get_manager(TRUE)))
+		post_wakeup(owner);
+#endif
+
+#if (defined SOLARIS_MT && !defined SUPERSERVER)
+
+	if (LOCK_solaris_stall) {
+		OWN first_owner;
+
+		if (owner_offset)
+			owner = (OWN) ABS_PTR(owner_offset);
+
+		/* Rotate first owner to tail of active owners' queue
+		   in search of mutex-starved owners. */
+
+		first_owner = (OWN) ((UCHAR *) QUE_NEXT(LOCK_header->lhb_owners) -
+							 OFFSET(OWN, own_lhb_owners));
+		remove_que(&first_owner->own_lhb_owners);
+		insert_tail(&LOCK_header->lhb_owners, &first_owner->own_lhb_owners);
+
+		/* If others stepped aside to let us run then wake them up now. */
+
+		if (owner_offset && owner->own_flags & OWN_starved) {
+			SRQ que;
+
+			owner->own_flags &= ~(OWN_starved | OWN_blocking);
+			QUE_LOOP(LOCK_header->lhb_owners, que) {
+				owner = (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners));
+				if (owner->own_flags & OWN_blocking) {
+					owner->own_flags &= ~OWN_blocking;
+					ISC_event_post(owner->own_stall);
+				}
+			}
+		}
+
+	}
+#endif /* SOLARIS_MT */
+
+#ifdef VALIDATE_LOCK_TABLE
+/* Validate the lock table occasionally (every 500 releases) */
+	if ((LOCK_header->lhb_acquires % (HISTORY_BLOCKS / 2)) == 0)
+		validate_lhb(LOCK_header);
+#endif
+
+	release_mutex();
+}
+
+
+static void release_mutex(void)
+{
+/**************************************
+ *
+ *	r e l e a s e _ m u t e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release the mapped lock file.  Advance the event count to wake up
+ *	anyone waiting for it.  If there appear to be blocking items
+ *	posted.
+ *
+ **************************************/
+
+	DEBUG_DELAY;
+	ISC_inhibit();
+	DEBUG_DELAY;
+
+	if (!LOCK_header->lhb_active_owner)
+		bug(NULL, "release when not active");
+
+	LOCK_header->lhb_active_owner = 0;
+
+	if (ISC_mutex_unlock(MUTEX))
+		bug(NULL, "semop failed (release)");
+
+#ifndef ANY_THREADING
+	DEBUG_DELAY;
+	--LOCK_asts;
+#endif
+
+	DEBUG_DELAY;
+	ISC_enable();
+	DEBUG_DELAY;
+}
+
+
+static void release_request( LRQ request)
+{
+/**************************************
+ *
+ *	r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request.  This is called both by release lock
+ *	and by the cleanup handler.
+ *
+ **************************************/
+	LBL lock;
+
+	ASSERT_ACQUIRED;
+
+/* Start by disconnecting request from both lock and process */
+
+	remove_que(&request->lrq_lbl_requests);
+	remove_que(&request->lrq_own_requests);
+
+	request->lrq_type = type_null;
+	insert_tail(&LOCK_header->lhb_free_requests, &request->lrq_lbl_requests);
+	lock = (LBL) ABS_PTR(request->lrq_lock);
+
+/* If the request is marked as blocking, clean it up. */
+
+	if (request->lrq_flags & LRQ_blocking)
+	{
+		remove_que(&request->lrq_own_blocks);
+		request->lrq_flags &= ~LRQ_blocking;
+	}
+
+	request->lrq_flags &= ~LRQ_blocking_seen;
+
+/* Update counts if we are cleaning up something we're waiting on!
+   This should only happen if we are purging out an owner that died */
+	if (request->lrq_flags & LRQ_pending) {
+		request->lrq_flags &= ~LRQ_pending;
+		lock->lbl_pending_lrq_count--;
+	}
+
+/* If there are no outstanding requests, release the lock */
+
+	if (QUE_EMPTY(lock->lbl_requests))
+	{
+		CHECK(lock->lbl_pending_lrq_count == 0);
+		remove_que(&lock->lbl_lhb_hash);
+		remove_que(&lock->lbl_lhb_data);
+		lock->lbl_type = type_null;
+		insert_tail(&LOCK_header->lhb_free_locks, &lock->lbl_lhb_hash);
+		return;
+	}
+
+/* Re-compute the state of the lock and post any compatible pending
+   requests. */
+
+	if ((request->lrq_state != LCK_none) &&
+		!(--lock->lbl_counts[request->lrq_state]))
+	{
+		lock->lbl_state = lock_state(lock);
+		if (request->lrq_state != LCK_null)
+		{
+			post_pending(lock);
+			return;
+		}
+	}
+
+/* If a lock enqueue failed because of a deadlock or timeout, the pending
+   request may be holding up compatible, pending lock requests queued
+   behind it. 
+   Or, even if this request had been granted, it's now being released,
+   so we might be holding up requests or conversions queued up behind. */
+
+	post_pending(lock);
+}
+
+
+#ifdef STATIC_SEMAPHORES
+static void release_semaphore( OWN owner)
+{
+/**************************************
+ *
+ *	r e l e a s e _ s e m a p h o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an un-used and unloved semaphore.
+ *
+ **************************************/
+	USHORT semaphore;
+	SMB semaphores;
+
+	if (semaphore = owner->own_semaphore) {
+		semaphore &= ~OWN_semavail;
+		semaphores = (SMB) ABS_PTR(LOCK_header->lhb_mask);
+		semaphores->smb_mask[semaphore / BITS_PER_LONG] |=
+			1L << (semaphore % BITS_PER_LONG);
+		owner->own_semaphore = 0;
+		owner->own_wakeup[0].event_semnum = 0;
+	}
+}
+#endif
+
+
+static void shutdown_blocking_thread( STATUS * status_vector)
+{
+/**************************************
+ *
+ *	s h u t d o w n _ b l o c k i n g _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a controlled shutdown of blocking thread
+ *	to avoid tragic misunderstandings when unmapping
+ *	memory.
+ *
+ **************************************/
+
+/* Zeroing the owner offset implicitly flags the
+   blocking thread to exit. */
+
+	LOCK_owner_offset = 0;
+
+#ifdef SUPERSERVER
+	return;
+#endif
+
+#if (defined WIN_NT && !defined SUPERSERVER)
+	SetEvent(blocking_event[0]);
+	CloseHandle(blocking_event[0]);
+	CloseHandle(wakeup_event[0]);
+#endif
+
+#ifndef SUPERSERVER
+#ifdef SOLARIS_MT
+/* Poke the blocking action thread to wakeup and notice
+   the exit flag. In turn, wait on an event ourselves
+   which the blocking action thread should post on
+   the way out. If it doesn't post, wakeup after a
+   timeout and cleanup anyway. */
+
+	if (LOCK_owner) {
+		EVENT event_ptr;
+		SLONG value;
+
+		/* Set a marker for the AST thread to know it's time to cleanup */
+		LOCK_owner->own_semaphore = 1;
+
+		event_ptr = LOCK_owner->own_wakeup;
+		value = ISC_event_clear(event_ptr);
+
+		/* Wakeup the AST thread - it might be blocking or stalled */
+		ISC_event_post(LOCK_owner->own_blocking);
+		ISC_event_post(LOCK_owner->own_stall);
+
+		/* Tell the scheduler to allow AST's to run */
+		AST_ENABLE;
+
+		/* Wait for the AST thread to finish cleanup or for 10 seconds */
+		ISC_event_wait(1, &event_ptr, &value, 10 * 1000000,
+					   lock_alarm_handler, event_ptr);
+
+		/* Either AST thread terminated, or our timeout expired */
+
+		/* Finish our cleanup */
+		ISC_unmap_object(status_vector, &LOCK_data, &LOCK_owner,
+						 sizeof(struct own));
+	}
+#endif
+#endif
+}
+
+
+static int signal_owner( OWN blocking_owner, PTR blocked_owner_offset)
+{
+/**************************************
+ *
+ *	s i g n a l _ o w n e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a signal to a process.
+ *
+ *      The second parameter is a possible offset to the
+ *      blocked owner (or NULL), which is passed on to
+ *      blocking_action2().
+ *
+ **************************************/
+
+/*post_history (his_signal, LOCK_header->lhb_iactive_owner, REL_PTR (blocking_owner), 0, TRUE);*/
+
+	ASSERT_ACQUIRED;
+
+/* If a process, other than ourselves, hasn't yet seen a signal
+   that was sent, don't bother to send another one. */
+
+	DEBUG_DELAY;
+
+#if (!defined ANY_THREADING && !defined SUPERSERVER)
+	if ((blocking_owner->own_ast_flags & OWN_signaled) ||
+		(blocking_owner->own_ast_hung_flags & OWN_hung))
+#else
+	if (blocking_owner->own_ast_flags & OWN_signaled)
+#endif
+	{
+		DEBUG_MSG(1,
+				  ("signal_owner (%ld) - skipped OWN_signaled\n",
+				   blocking_owner->own_process_id));
+		return SUCCESS;
+	}
+
+	blocking_owner->own_ast_flags |= OWN_signaled;
+	DEBUG_DELAY;
+	blocking_owner->own_flags &= ~OWN_signal;
+#if (defined SUPERSERVER || !defined ANY_THREADING)
+	if (blocking_owner->own_process_id == LOCK_pid) {
+		DEBUG_DELAY;
+		ISC_inhibit();
+		DEBUG_DELAY;
+		blocking_action2(REL_PTR(blocking_owner), blocked_owner_offset);
+		DEBUG_DELAY;
+		ISC_enable();
+		DEBUG_DELAY;
+		return SUCCESS;
+	}
+#endif
+
+#ifdef MANAGER_PROCESS
+/* If we can deliver the signal directly, do so.  */
+
+	if ((LOCK_process_owner.own_flags & OWN_manager) ||
+		blocking_owner->own_process_uid == LOCK_process_owner.own_process_uid) {
+		if (LOCK_process_owner.own_flags & OWN_manager)
+			++LOCK_header->lhb_indirect_sigs;
+		else
+			++LOCK_header->lhb_direct_sigs;
+
+		/* Following cases are included */
+#endif
+
+		DEBUG_DELAY;
+
+#if !(defined WIN_NT || defined SOLARIS_MT || POSIX_THREADS)
+		if (ISC_kill(blocking_owner->own_process_id, LOCK_block_signal) != -1)
+			return SUCCESS;
+#endif
+
+#if (defined WIN_NT && !defined SUPERSERVER)
+		if (ISC_kill
+			(blocking_owner->own_process_id, LOCK_block_signal,
+			 blocking_owner->own_blocking_hndl) != -1)
+			return SUCCESS;
+#endif
+
+#if (defined SOLARIS_MT && !defined SUPERSERVER)
+		if (!(errno = ISC_event_post(blocking_owner->own_blocking)))
+			return SUCCESS;
+#endif
+
+#ifdef MANAGER_PROCESS
+		/* End block started above */
+	}
+#endif
+
+	DEBUG_MSG(1, ("signal_owner - direct delivery failed\n"));
+
+	blocking_owner->own_ast_flags &= ~OWN_signaled;
+	DEBUG_DELAY;
+	blocking_owner->own_flags |= OWN_signal;
+
+#ifdef MANAGER_PROCESS
+/* If we can't deliver the signal, direct it toward the lock manager
+   process for delivery. */
+
+	if (!(LOCK_process_owner.own_flags & OWN_manager)) {
+		LOCK_post_manager = TRUE;
+		return SUCCESS;
+	}
+#endif
+
+/* Conclude that the owning process is dead */
+	return FAILURE;
+}
+
+
+#ifdef VALIDATE_LOCK_TABLE
+
+
+#define	EXPECT_inuse	0
+#define	EXPECT_freed	1
+
+#define	RECURSE_yes	0
+#define	RECURSE_not	1
+
+static void validate_history( PTR history_header)
+{
+/**************************************
+ *
+ *	v a l i d a t e _ h i s t o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate a circular list of history blocks.
+ *
+ **************************************/
+	HIS history;
+	USHORT count = 0;
+
+	LOCK_TRACE(("validate_history: %ld\n", history_header));
+
+	for (history = (HIS) ABS_PTR(history_header); TRUE;
+		 history = (HIS) ABS_PTR(history->his_next)) {
+		count++;
+		CHECK(history->his_type == type_his);
+		CHECK(history->his_operation >= 0);
+		CHECK(history->his_operation <= his_MAX);
+		if (history->his_next == history_header)
+			break;
+		CHECK(count <= HISTORY_BLOCKS);
+	}
+}
+#endif
+
+
+#ifdef VALIDATE_LOCK_TABLE
+static void validate_lhb( LHB lhb)
+{
+/**************************************
+ *
+ *	v a l i d a t e _ l h b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate the LHB structure and everything that hangs off of it.
+ *
+ **************************************/
+
+	SRQ que, que_next;
+	OWN owner;
+	LBL lock;
+	LRQ request;
+
+	LOCK_TRACE(("validate_lhb:\n"));
+
+/* Prevent recursive reporting of validation errors */
+	if (LOCK_bugcheck)
+		return;
+
+	ISC_inhibit();
+
+	CHECK(lhb != NULL);
+
+	CHECK(lhb->lhb_type == type_lhb);
+	CHECK(lhb->lhb_version == LHB_VERSION);
+
+	validate_shb(lhb->lhb_secondary);
+	if (lhb->lhb_active_owner > 0)
+		validate_owner(lhb->lhb_active_owner, EXPECT_inuse);
+
+	QUE_LOOP(lhb->lhb_owners, que) {
+		/* Validate that the next backpointer points back to us */
+		que_next = QUE_NEXT((*que));
+		CHECK(que_next->srq_backward == REL_PTR(que));
+
+		owner = (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners));
+		validate_owner(REL_PTR(owner), EXPECT_inuse);
+	}
+
+	QUE_LOOP(lhb->lhb_free_owners, que) {
+		/* Validate that the next backpointer points back to us */
+		que_next = QUE_NEXT((*que));
+		CHECK(que_next->srq_backward == REL_PTR(que));
+
+		owner = (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners));
+		validate_owner(REL_PTR(owner), EXPECT_freed);
+	}
+
+	QUE_LOOP(lhb->lhb_free_locks, que) {
+		/* Validate that the next backpointer points back to us */
+		que_next = QUE_NEXT((*que));
+		CHECK(que_next->srq_backward == REL_PTR(que));
+
+		lock = (LBL) ((UCHAR *) que - OFFSET(LBL, lbl_lhb_hash));
+		validate_lock(REL_PTR(lock), EXPECT_freed, (PTR) 0);
+	}
+
+	QUE_LOOP(lhb->lhb_free_requests, que) {
+		/* Validate that the next backpointer points back to us */
+		que_next = QUE_NEXT((*que));
+		CHECK(que_next->srq_backward == REL_PTR(que));
+
+		request = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_lbl_requests));
+		validate_request(REL_PTR(request), EXPECT_freed, RECURSE_not);
+	}
+
+	CHECK(lhb->lhb_used <= lhb->lhb_length);
+
+#ifdef UNIX
+#ifndef ANY_THREADING
+	CHECK(lhb->lhb_mutex[0].mtx_semid == LOCK_data.sh_mem_mutex_arg);
+#endif
+#endif
+
+	validate_history(lhb->lhb_history);
+/* validate_semaphore_mask (lhb->lhb_mask); */
+
+	CHECK(lhb->lhb_reserved[0] == 0);
+	CHECK(lhb->lhb_reserved[1] == 0);
+
+	DEBUG_MSG(0, ("validate_lhb completed:\n"));
+
+	ISC_enable();
+
+}
+#endif
+
+
+#ifdef VALIDATE_LOCK_TABLE
+static void validate_lock( PTR lock_ptr, USHORT freed, PTR lrq_ptr)
+{
+/**************************************
+ *
+ *	v a l i d a t e _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate the lock structure and everything that hangs off of it.
+ *
+ **************************************/
+	LBL lock;
+	SRQ que, que_next;
+	LRQ request;
+	USHORT found;
+	UCHAR highest_request;
+	USHORT found_pending;
+	USHORT i;
+	USHORT direct_counts[LCK_max];
+	struct lbl lock_copy;
+
+	LOCK_TRACE(("validate_lock: %ld\n", lock_ptr));
+
+	lock = (LBL) ABS_PTR(lock_ptr);
+	lock_copy = *lock;
+
+	if (freed == EXPECT_freed)
+		CHECK(lock->lbl_type == type_null)
+			else
+		CHECK(lock->lbl_type == type_lbl);
+
+	CHECK(lock->lbl_state >= LCK_none);
+	CHECK(lock->lbl_state < LCK_max);
+
+	CHECK(lock->lbl_length <= lock->lbl_size);
+
+/* The lbl_count's should never roll over to be negative */
+	for (i = 0; i < sizeof(lock->lbl_counts) / sizeof(lock->lbl_counts[0]);
+		 i++)
+		CHECK(!(lock->lbl_counts[i] & 0x8000))
+
+/* The count of pending locks should never roll over to be negative */
+			CHECK(!(lock->lbl_pending_lrq_count & 0x8000));
+
+	memset(direct_counts, 0, sizeof(direct_counts));
+
+	found = 0;
+	found_pending = 0;
+	highest_request = LCK_none;
+	QUE_LOOP(lock->lbl_requests, que) {
+		/* Validate that the next backpointer points back to us */
+		que_next = QUE_NEXT((*que));
+		CHECK(que_next->srq_backward == REL_PTR(que));
+
+		/* Any requests of a freed lock should also be free */
+		CHECK(freed == EXPECT_inuse);
+
+		request = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_lbl_requests));
+		/* Note: Don't try to validate_request here, it leads to recursion */
+
+		if (REL_PTR(request) == lrq_ptr)
+			found++;
+
+		CHECK(found <= 1);		/* check for a loop in the queue */
+
+		/* Request must be for this lock */
+		CHECK(request->lrq_lock == lock_ptr);
+
+		if (request->lrq_requested > highest_request)
+			highest_request = request->lrq_requested;
+
+		/* If the request is pending, then it must be incompatible with current
+		   state of the lock - OR lock_ordering is enabled and there is at 
+		   least one pending request in the queue (before this request 
+		   but not including it). */
+
+		if (request->lrq_flags & LRQ_pending) {
+			CHECK(!COMPATIBLE(request->lrq_requested, lock->lbl_state) ||
+				  (LOCK_ordering && found_pending));
+
+			/* The above condition would probably be more clear if we 
+			   wrote it as the following:
+
+			   CHECK (!COMPATIBLE (request->lrq_requested, lock->lbl_state) ||
+			   (LOCK_ordering && found_pending &&
+			   COMPATIBLE (request->lrq_requested, lock->lbl_state)));
+
+			   but that would be redundant
+			 */
+
+			found_pending++;
+		}
+
+		/* If the request is NOT pending, then it must be rejected or 
+		   compatible with the current state of the lock */
+		if (!(request->lrq_flags & LRQ_pending)) {
+			CHECK((request->lrq_flags & LRQ_rejected) ||
+				  (request->lrq_requested == lock->lbl_state) ||
+				  COMPATIBLE(request->lrq_requested, lock->lbl_state));
+
+		}
+
+		direct_counts[request->lrq_state]++;
+	}
+
+	if ((freed == EXPECT_inuse) && (lrq_ptr != 0))
+		CHECK(found == 1);		/* request is in lock's queue */
+
+
+	if (freed == EXPECT_inuse) {
+		CHECK(found_pending == lock->lbl_pending_lrq_count);
+
+		/* The counter in the lock header should match the actual counts
+		   lock->lbl_counts [LCK_null] isn't maintained, so don't check it */
+		for (i = LCK_null; i < LCK_max; i++)
+			CHECK(direct_counts[i] == lock->lbl_counts[i]);
+	}
+
+	if (lock->lbl_parent && (freed == EXPECT_inuse))
+		validate_lock(lock->lbl_parent, EXPECT_inuse, (PTR) 0);
+
+}
+#endif
+
+
+#ifdef VALIDATE_LOCK_TABLE
+static void validate_owner( PTR own_ptr, USHORT freed)
+{
+/**************************************
+ *
+ *	v a l i d a t e _ o w n e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate the owner structure and everything that hangs off of it.
+ *
+ **************************************/
+	OWN owner;
+	SRQ que, que_next;
+	SRQ que2, que2_next;
+	LRQ request;
+	LRQ request2;
+	USHORT found;
+	PTR owner_own_pending_request;
+	struct own owner_copy;
+
+	LOCK_TRACE(("validate_owner: %ld\n", own_ptr));
+
+	owner = (OWN) ABS_PTR(own_ptr);
+	owner_copy = *owner;
+
+/* Note that owner->own_pending_request can be reset without the lock
+ * table being acquired - eg: by another process.  That being the case,
+ * we need to stash away a copy of it for validation.
+ */
+	owner_own_pending_request = owner->own_pending_request;
+
+	CHECK(owner->own_type == type_own);
+	if (freed == EXPECT_freed)
+		CHECK(owner->own_owner_type == 0)
+	else {
+		CHECK(owner->own_owner_type > 0);
+		CHECK(owner->own_owner_type <= 4	/* LCK_OWNER_transaction */
+			  || owner->own_owner_type == 255);	/* LCK_OWNER_dummy_process */
+	}
+
+	CHECK(owner->own_acquire_time <= LOCK_header->lhb_acquires);
+	CHECK(owner->own_acquire_realtime == 0 ||
+		  static_cast<time_t>(owner->own_acquire_realtime) <= GET_TIME);
+
+/* Check that no invalid flag bit is set */
+	CHECK(!
+		  (owner->
+		   own_flags & ~(OWN_blocking | OWN_scanned | OWN_manager | OWN_signal
+						 | OWN_wakeup | OWN_starved)));
+
+/* Check that no invalid flag bit is set */
+	CHECK(!(owner->own_ast_flags & ~(OWN_signaled)));
+
+/* Check that no invalid flag bit is set */
+	CHECK(!(owner->own_ast_hung_flags & ~(OWN_hung)));
+
+/* Can't both be signal & signaled */
+	if (owner->own_flags & OWN_signal)
+		CHECK(!(owner->own_ast_flags & OWN_signaled));
+
+	if (owner->own_ast_flags & OWN_signaled)
+		CHECK(!(owner->own_flags & OWN_signal));
+
+	QUE_LOOP(owner->own_requests, que) {
+		/* Validate that the next backpointer points back to us */
+		que_next = QUE_NEXT((*que));
+		CHECK(que_next->srq_backward == REL_PTR(que));
+
+		CHECK(freed == EXPECT_inuse);	/* should not be in loop for freed owner */
+
+		request = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_own_requests));
+		validate_request(REL_PTR(request), EXPECT_inuse, RECURSE_not);
+		CHECK(request->lrq_owner == own_ptr);
+
+		/* Make sure that request marked as blocking also exists in the blocking list */
+
+		if (request->lrq_flags & LRQ_blocking) {
+			found = 0;
+			QUE_LOOP(owner->own_blocks, que2) {
+				/* Validate that the next backpointer points back to us */
+				que2_next = QUE_NEXT((*que2));
+				CHECK(que2_next->srq_backward == REL_PTR(que2));
+
+				request2 =
+					(LRQ) ((UCHAR *) que2 - OFFSET(LRQ, lrq_own_blocks));
+				CHECK(request2->lrq_owner == own_ptr);
+
+				if (REL_PTR(request2) == REL_PTR(request))
+					found++;
+
+				CHECK(found <= 1);	/* watch for loops in queue */
+			}
+			CHECK(found == 1);	/* request marked as blocking must be in blocking queue */
+		}
+	}
+
+/* Check each item in the blocking queue */
+
+	QUE_LOOP(owner->own_blocks, que) {
+		/* Validate that the next backpointer points back to us */
+		que_next = QUE_NEXT((*que));
+		CHECK(que_next->srq_backward == REL_PTR(que));
+
+		CHECK(freed == EXPECT_inuse);	/* should not be in loop for freed owner */
+
+		request = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_own_blocks));
+		validate_request(REL_PTR(request), EXPECT_inuse, RECURSE_not);
+
+		LOCK_TRACE(("Validate own_block: %ld\n", REL_PTR(request)));
+
+		CHECK(request->lrq_owner == own_ptr);
+
+		/* A repost won't be in the request list */
+
+		if (request->lrq_flags & LRQ_repost)
+			continue;
+
+		/* Make sure that each block also exists in the request list */
+
+		found = 0;
+		QUE_LOOP(owner->own_requests, que2) {
+			/* Validate that the next backpointer points back to us */
+			que2_next = QUE_NEXT((*que2));
+			CHECK(que2_next->srq_backward == REL_PTR(que2));
+
+			request2 = (LRQ) ((UCHAR *) que2 - OFFSET(LRQ, lrq_own_requests));
+			CHECK(request2->lrq_owner == own_ptr);
+
+			if (REL_PTR(request2) == REL_PTR(request))
+				found++;
+
+			CHECK(found <= 1);	/* watch for loops in queue */
+		}
+		CHECK(found == 1);		/* blocking request must be in request queue */
+	}
+
+/* If there is a pending request, make sure it is valid, that it
+ * exists in the queue for the lock.
+ */
+	if (owner_own_pending_request && (freed == EXPECT_inuse)) {
+		BOOLEAN found_pending;
+		LRQ request;
+		LBL lock;
+		LRQ pending;
+		SRQ que_of_lbl_requests;
+
+		/* Make sure pending request is valid, and we own it */
+		request = (LRQ) ABS_PTR(owner_own_pending_request);
+		validate_request(REL_PTR(request), EXPECT_inuse, RECURSE_not);
+		CHECK(request->lrq_owner == own_ptr);
+
+		/* Make sure the lock the request is for is valid */
+		lock = (LBL) ABS_PTR(request->lrq_lock);
+		validate_lock(REL_PTR(lock), EXPECT_inuse, (PTR) 0);
+
+		/* Make sure the pending request is on the list of requests for the lock */
+
+		found_pending = FALSE;
+		QUE_LOOP(lock->lbl_requests, que_of_lbl_requests) {
+			pending =
+				(LRQ) ((UCHAR *) que_of_lbl_requests -
+					   OFFSET(LRQ, lrq_lbl_requests));
+			if (REL_PTR(pending) == owner_own_pending_request) {
+				found_pending = TRUE;
+				break;
+			}
+		}
+
+		/* pending request must exist in the lock's request queue */
+		CHECK(found_pending);
+
+		/* Either the pending request is the same as what we stashed away, or it's
+		 * been cleared by another process without the lock table acquired.  */
+		CHECK((owner_own_pending_request == owner->own_pending_request) ||
+			  !owner->own_pending_request);
+	}
+#ifdef  STATIC_SEMAPHORES
+	{
+		USHORT semaphore;
+		if ((semaphore = owner->own_semaphore) && (freed == EXPECT_inuse)) {
+			SMB semaphores;
+			if (!(semaphore & OWN_semavail)) {
+				/* Check that the semaphore allocated is flagged as in use */
+				semaphores = (SMB) ABS_PTR(LOCK_header->lhb_mask);
+				CHECK(!
+					  (semaphores->
+					   smb_mask[semaphore /
+								BITS_PER_LONG] & (1L << (semaphore %
+														 BITS_PER_LONG))));
+			}
+		}
+	}
+#endif
+}
+#endif
+
+
+#ifdef VALIDATE_LOCK_TABLE
+static void validate_request( PTR lrq_ptr, USHORT freed, USHORT recurse)
+{
+/**************************************
+ *
+ *	v a l i d a t e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate the request structure and everything that hangs off of it.
+ *
+ **************************************/
+	LRQ request;
+	struct lrq request_copy;
+
+	LOCK_TRACE(("validate_request: %ld\n", lrq_ptr));
+
+	request = (LRQ) ABS_PTR(lrq_ptr);
+	request_copy = *request;
+
+	if (freed == EXPECT_freed)
+		CHECK(request->lrq_type == type_null)
+			else
+		CHECK(request->lrq_type == type_lrq);
+
+/* Check that no invalid flag bit is set */
+	CHECK(!
+		  (request->
+		   lrq_flags & ~(LRQ_blocking | LRQ_pending | LRQ_converting |
+						 LRQ_rejected | LRQ_timed_out | LRQ_deadlock |
+						 LRQ_repost | LRQ_scanned | LRQ_blocking_seen)));
+
+/* LRQ_converting & LRQ_timed_out are defined, but never actually used */
+	CHECK(!(request->lrq_flags & (LRQ_converting | LRQ_timed_out)));
+
+/* Once a request is rejected, it CAN'T be pending any longer */
+	if (request->lrq_flags & LRQ_rejected)
+		CHECK(!(request->lrq_flags & LRQ_pending));
+
+/* Can't both be scanned & marked for deadlock walk */
+	CHECK((request->lrq_flags & (LRQ_deadlock | LRQ_scanned)) !=
+		  (LRQ_deadlock | LRQ_scanned));
+
+	CHECK(request->lrq_requested < LCK_max);
+	CHECK(request->lrq_state < LCK_max);
+
+	if (freed == EXPECT_inuse) {
+		if (recurse == RECURSE_yes)
+			validate_owner(request->lrq_owner, EXPECT_inuse);
+
+		/* Reposted request are pseudo requests, not attached to any real lock */
+		if (!(request->lrq_flags & LRQ_repost))
+			validate_lock(request->lrq_lock, EXPECT_inuse, REL_PTR(request));
+	}
+}
+#endif
+
+
+#ifdef VALIDATE_LOCK_TABLE
+static void validate_shb( PTR shb_ptr)
+{
+/**************************************
+ *
+ *	v a l i d a t e _ s h b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate the SHB structure and everything that hangs off of
+ *	it.
+ *	Of course, it would have been a VERY good thing if someone
+ *	had moved this into lhb when we made a unique v4 lock
+ *	manager....
+ *	1995-April-13 David Schnepper 
+ *
+ **************************************/
+	SHB shb;
+	USHORT i;
+
+	LOCK_TRACE(("validate_shb: %ld\n", shb_ptr));
+
+	shb = (SHB) ABS_PTR(shb_ptr);
+
+	CHECK(shb->shb_type == type_shb);
+
+	validate_history(shb->shb_history);
+
+	for (i = 0; i < sizeof(shb->shb_misc) / sizeof(shb->shb_misc[0]); i++)
+		CHECK(shb->shb_misc[i] == 0);
+}
+#endif
+
+
+static USHORT wait_for_request(
+							   LRQ request,
+							   SSHORT lck_wait, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	w a i t _ f o r _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	There is a request that needs satisfaction, but is waiting for
+ *	somebody else.  Mark the request as pending and go to sleep until
+ *	the lock gets poked.  When we wake up, see if somebody else has
+ *	cleared the pending flag.  If not, go back to sleep.
+ * Returns
+ *	SUCCESS	- we waited until the request was granted or rejected
+ * 	FAILURE - Insufficient resouces to wait (eg: no semaphores)
+ *
+ **************************************/
+
+	LBL lock;
+	PTR owner_offset, request_offset, lock_offset;
+	OWN owner, blocking_owner;
+	LRQ blocking_request;
+	int ret;
+	SLONG timeout, current_time, scan_interval, deadlock_timeout,
+		lock_timeout;
+#ifdef DEV_BUILD
+	ULONG repost_counter = 0;
+#endif
+
+	ASSERT_ACQUIRED;
+
+	++LOCK_header->lhb_waits;
+	scan_interval = LOCK_header->lhb_scan_interval;
+
+/* lrq_count will be off if we wait for a pending request */
+	CHECK(!(request->lrq_flags & LRQ_pending));
+
+	request->lrq_flags &= ~LRQ_rejected;
+	request->lrq_flags |= LRQ_pending;
+	owner_offset = request->lrq_owner;
+	lock_offset = request->lrq_lock;
+	lock = (LBL) ABS_PTR(lock_offset);
+	lock->lbl_pending_lrq_count++;
+	if (LOCK_ordering) {
+		if (!request->lrq_state) {
+			/* If ordering is in effect, and this is a conversion of
+			   an existing lock in LCK_none state - put the lock to the
+			   end of the list so it's not taking cuts in the lineup */
+			remove_que(&request->lrq_lbl_requests);
+			insert_tail(&lock->lbl_requests, &request->lrq_lbl_requests);
+		}
+	}
+
+	owner = (OWN) ABS_PTR(owner_offset);
+	owner->own_pending_request = request_offset = REL_PTR(request);
+	owner->own_flags &= ~(OWN_scanned | OWN_wakeup);
+
+#ifdef STATIC_SEMAPHORES
+/* If semaphore hasn't been allocated for lock, allocate it now. */
+
+	USHORT semaphore = owner->own_semaphore &= ~OWN_semavail;
+
+	if (!semaphore)
+		if (!(semaphore = alloc_semaphore(owner, status_vector)))
+			return FAILURE;
+#else
+/* On non-static semaphore systems, set a flag to indicate that we're
+   in wait_for_request.  Post_wakeup will check this flag. */
+
+	owner->own_semaphore = 1;
+#endif /* STATIC_SEMAPHORES */
+
+#ifdef WIN_NT
+#ifdef SUPERSERVER
+	ResetEvent(owner->own_wakeup_hndl);
+#else
+	ResetEvent(wakeup_event[0]);
+#endif
+#endif
+
+/* Post blockage.  If the blocking owner has disappeared, the blockage
+   may clear spontaneously. */
+
+	post_blockage(request, lock, FALSE);
+	post_history(his_wait, owner_offset, lock_offset, REL_PTR(request), TRUE);
+	release(owner_offset);
+
+	current_time = GET_TIME;
+
+/* If a lock timeout was requested (wait < 0) then figure
+   out the time when the lock request will timeout */
+
+	if (lck_wait < 0)
+		lock_timeout = current_time + (-lck_wait);
+	deadlock_timeout = current_time + scan_interval;
+
+/* Wait in a loop until the lock becomes available */
+
+	while (TRUE) {
+		/* NOTE: Many operations in this loop are done without having
+		 *       the lock table acquired - for performance reasons
+		 */
+
+		/* Before starting to wait - look to see if someone resolved
+		   the request for us - if so we're out easy! */
+
+		ISC_inhibit();
+		request = (LRQ) ABS_PTR(request_offset);
+		if (!(request->lrq_flags & LRQ_pending)) {
+			ISC_enable();
+			break;
+		}
+		ISC_enable();
+
+		/* recalculate when we next want to wake up, the lesser of a
+		   deadlock scan interval or when the lock request wanted a timeout */
+
+		timeout = deadlock_timeout;
+		if (lck_wait < 0 && lock_timeout < deadlock_timeout)
+			timeout = lock_timeout;
+
+		/* Prepare to wait for a timeout or a wakeup from somebody else.  */
+
+#ifdef USE_EVENTS
+		SLONG value;
+		EVENT event_ptr;
+
+		owner = (OWN) ABS_PTR(owner_offset);
+#if (defined MMAP_SUPPORTED && !defined SUPERSERVER)
+		if (!(LOCK_owner->own_flags & OWN_wakeup))
+#else
+		if (!(owner->own_flags & OWN_wakeup))
+#endif
+		{
+			/* Re-initialize value each time thru the loop to make sure that the
+			   semaphore looks 'un-poked'. */
+
+			/* YYY: NOTE - couldn't there be "missing events" here? */
+			/* We don't own the lock_table at this point, but we modify it! */
+
+#if (defined MMAP_SUPPORTED && !defined SUPERSERVER)
+			event_ptr = LOCK_owner->own_wakeup;
+			value = ISC_event_clear(event_ptr);
+			event_ptr = LOCK_owner->own_wakeup;
+#else
+			event_ptr = owner->own_wakeup;
+			value = ISC_event_clear(event_ptr);
+			owner = (OWN) ABS_PTR(owner_offset);
+			event_ptr = owner->own_wakeup;
+#endif
+#if (defined MMAP_SUPPORTED && !defined SUPERSERVER)
+			if (!(LOCK_owner->own_flags & OWN_wakeup))
+#else
+			if (!(owner->own_flags & OWN_wakeup))
+#endif
+			{
+/* Until here we've been the only thread in the engine (We no longer
+   release engine in LCK.C module to avoid problems with more than
+   one thread running in out not-yet-MT-safe engine). We already
+   tried to execute AST routine provided (sometimes) by blocking
+   owner hoping our lock request would be satisfied. Did not help!
+   The only thing we could do now is to wait. But let's do it without
+   monopolizing the engine
+*/
+#ifdef SUPERSERVER
+				THREAD_EXIT;
+#endif
+				AST_ENABLE;
+				ret = ISC_event_wait(1, &event_ptr, &value,
+									 (timeout - current_time) * 1000000,
+									 lock_alarm_handler, event_ptr);
+				AST_DISABLE;
+#ifdef SUPERSERVER
+				THREAD_ENTER;
+#endif
+			}
+		}
+#endif
+
+#ifdef WIN_NT
+		AST_ENABLE;
+#ifdef SUPERSERVER
+
+/* Until here weve been the only thread in the engine (We no longer
+   release engine in LCK.C module to avoid problems with more than
+   one thread running in out not-yet-MT-safe engine). We already
+   tried to execute AST routine provided (sometimes) by blocking
+   owner hoping our lock request would be satisfied. Did not help!
+   The only thing we could do now is to wait. But let's do it without
+   monopolizing the engine
+*/
+		THREAD_EXIT;
+		ret =
+			WaitForSingleObject(owner->own_wakeup_hndl,
+								(timeout - current_time) * 1000);
+		THREAD_ENTER;
+#else
+		ret =
+			WaitForSingleObject(wakeup_event[0],
+								(timeout - current_time) * 1000);
+#endif
+		AST_DISABLE;
+		if (!ret || ret == WAIT_ABANDONED)
+			ret = SUCCESS;
+		else					/* if (ret == WAIT_TIMEOUT) */
+			ret = FAILURE;
+#endif
+
+		/* We've worken up from the wait - now look around and see
+		   why we wokeup */
+
+		/* If somebody else has resolved the lock, we're done */
+
+		ISC_inhibit();
+		request = (LRQ) ABS_PTR(request_offset);
+		if (!(request->lrq_flags & LRQ_pending)) {
+			ISC_enable();
+			break;
+		}
+		ISC_enable();
+
+		/* See if we wokeup due to another owner deliberately waking us up
+		   ret==SUCCESS --> we were deliberately worken up
+		   ret==FAILURE --> we still don't know why we work up */
+
+		/* Only if we came out of the ISC_event_wait() because of a post_wakeup()
+		   by another owner is OWN_wakeup set.  This is the only SUCCESS case. */
+
+#if (defined MMAP_SUPPORTED && !defined SUPERSERVER)
+		if (LOCK_owner->own_flags & OWN_wakeup)
+#else
+		owner = (OWN) ABS_PTR(owner_offset);
+		if (owner->own_flags & OWN_wakeup)
+#endif
+			ret = SUCCESS;
+#ifdef USE_EVENTS
+		else
+			ret = FAILURE;
+#endif
+
+		current_time = GET_TIME;
+
+		/* See if we workup for a bogus reason - if so 
+		   go right back to sleep.  We wokeup bogus unless
+		   - we weren't deliberatly woken up
+		   - it's not time for a deadlock scan.
+		   - it's not time for the lock timeout to expire.
+		   Bogus reasons for wakeups include signal reception on some
+		   platforms (eg: SUN4)
+		   Note: we allow a 1 second leaway on declaring a bogus
+		   wakeup due to timing differences (we use seconds here,
+		   ISC_event_wait() uses finer granularity) */
+
+		if ((ret != SUCCESS) && (current_time + 1 < timeout)) {
+			continue;
+		}
+
+		/* We apparently woke up for some real reason.  
+		   Make sure everyone is still with us.  Then see if we're still
+		   blocked. */
+
+		acquire(owner_offset);
+		request = (LRQ) ABS_PTR(request_offset);	/* Re-init after potential remap */
+		lock = (LBL) ABS_PTR(lock_offset);
+		owner = (OWN) ABS_PTR(owner_offset);
+		owner->own_flags &= ~OWN_wakeup;
+
+		/* Now that we own the lock table, see if the request was resolved
+		   while we were waiting for the lock table */
+
+		if (!(request->lrq_flags & LRQ_pending)) {
+			release(owner_offset);
+			break;
+		}
+
+		current_time = GET_TIME;	/* refetch due to wait in acquire() */
+
+		/* See if we've waited beyond the lock timeout - if so we
+		   mark our own request as rejected */
+
+		if (lck_wait < 0 && lock_timeout <= current_time)
+		{
+			/* We're going to reject our lock - it's the callers responsibility
+			   to do cleanup and make sure post_pending() is called to wakeup
+			   other owners we might be blocking */
+			request->lrq_flags |= LRQ_rejected;
+			request->lrq_flags &= ~LRQ_pending;
+			lock->lbl_pending_lrq_count--;
+			release(owner_offset);
+			break;
+		}
+
+		/* We're going to do some real work - reset when we next want to
+		   do a deadlock scan */
+		deadlock_timeout = current_time + scan_interval;
+
+
+		/* Handle lock event first */
+		if (ret == SUCCESS)
+		{
+			/* Someone posted our wakeup event, but DIDN'T grant our request.
+			   Re-post what we're blocking on and continue to wait.
+			   This could happen if the lock was granted to a different request,
+			   we have to tell the new owner of the lock that they are blocking us. */
+
+			post_blockage(request, lock, FALSE);
+#ifdef WIN_NT
+#ifdef SUPERSERVER
+			ResetEvent(owner->own_wakeup_hndl);
+#else
+			ResetEvent(wakeup_event[0]);
+#endif
+#endif
+		}
+
+#ifndef SUPERSERVER
+		/* See if all the other owners are still alive.  Dead ones will be purged,
+		   purging one might resolve our lock request. */
+
+		else if (probe_owners(owner_offset) &&
+				 !(request->lrq_flags & LRQ_pending))
+		{
+			release(owner_offset);
+			break;
+		}
+#endif /* SUPERSERVER */
+
+		/* If we've not previously been scanned for a deadlock, go do a
+		   deadlock scan */
+
+		else if (!(owner->own_flags & OWN_scanned) &&
+				 (blocking_request = deadlock_scan(owner, request)))
+		{
+			LBL blocking_lock;
+
+			/* Something has been selected for rejection to prevent a
+			   deadlock.  Clean things up and go on.  We still have to
+			   wait for our request to be resolved. */
+
+			DEBUG_MSG(0, ("wait_for_request: selecting something for deadlock kill\n"));
+
+			++LOCK_header->lhb_deadlocks;
+			blocking_request->lrq_flags |= LRQ_rejected;
+			blocking_request->lrq_flags &= ~LRQ_pending;
+			blocking_lock = (LBL) ABS_PTR(blocking_request->lrq_lock);
+			blocking_lock->lbl_pending_lrq_count--;
+
+			blocking_owner = (OWN) ABS_PTR(blocking_request->lrq_owner);
+			blocking_owner->own_pending_request = 0;
+			blocking_owner->own_flags &= ~OWN_scanned;
+			if (blocking_request != request)
+				post_wakeup(blocking_owner);
+			/* else
+			   We rejected our own request to avoid a deadlock.
+			   When we get back to the top of the master loop we
+			   fall out and start cleaning up */
+		}
+		else
+		{
+			/* Our request is not resolved, all the owners are alive, there's
+			   no deadlock -- there's nothing else to do.  Let's
+			   make sure our request hasn't been forgotten by reminding
+			   all the owners we're waiting - some plaforms under CLASSIC
+			   architecture had problems with "missing signals" - which is
+			   another reason to repost the blockage.
+			   Also, the ownership of the lock could have changed, and we
+			   weren't woken up because we weren't next in line for the lock.
+			   We need to inform the new owner. */
+
+			DEBUG_MSG(0, ("wait_for_request: forcing a resignal of blockers\n"));
+			post_blockage(request, lock, FALSE);
+#ifdef DEV_BUILD
+			repost_counter++;
+			if (repost_counter % 50 == 0) {
+				gds__log("wait_for_request: owner %d reposted %ld times for lock %d",
+						owner_offset,
+						repost_counter,
+						lock_offset);
+				DEBUG_MSG(0,
+						  ("wait_for_request: reposted %ld times for this lock!\n",
+						   repost_counter));
+			}
+#endif /* DEV_BUILD */
+		}
+		release(owner_offset);
+	}
+
+/* NOTE: lock table is not acquired at this point */
+
+#ifdef DEV_BUILD
+	request = (LRQ) ABS_PTR(request_offset);
+	CHECK(!(request->lrq_flags & LRQ_pending));
+#endif /* DEV_BUILD */
+
+	owner = (OWN) ABS_PTR(owner_offset);
+	owner->own_pending_request = 0;
+
+#ifdef STATIC_SEMAPHORES
+	owner->own_semaphore |= OWN_semavail;
+#else
+	owner->own_semaphore = 0;
+#endif
+
+	return SUCCESS;
+}
+
diff --git a/src/lock/lock.h b/src/lock/lock.h
new file mode 100644
index 0000000000..bed3ebc129
--- /dev/null
+++ b/src/lock/lock.h
@@ -0,0 +1,417 @@
+/*
+ *      PROGRAM:        JRD Lock Manager
+ *      MODULE:         lock.h
+ *      DESCRIPTION:    Lock manager structure definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ISC_LOCK_LOCK_H_
+#define _ISC_LOCK_LOCK_H_
+
+#include <stdio.h>
+#include <sys/types.h>
+
+#if !defined(WIN_NT)
+#include <signal.h>
+#if !(defined NETWARE_386)
+#include <sys/ipc.h>
+#include <sys/shm.h>
+#include <sys/sem.h>
+#endif
+#endif
+
+#ifdef WIN_NT
+#include <windows.h>
+#ifdef TEXT
+#undef TEXT
+#define TEXT            SCHAR
+#endif
+#endif
+
+#include "../jrd/common.h"
+#include "../jrd/file_params.h"
+
+#ifdef UNIX
+#ifndef SOLARIS_MT
+#if !(defined(HP10) && defined(SUPERSERVER))
+#if !(defined(LINUX) && defined(SUPERSERVER))
+#define MANAGER_PROCESS
+#endif
+#endif
+#endif
+#endif
+
+#ifdef WIN_NT
+#define DEFAULT_SIZE    32768
+#include "../jrd/isc_signal.h"
+#endif
+
+#ifdef NETWARE_386
+#define DEFAULT_SIZE    131072
+#define BLOCKING_SIGNAL 101
+#endif
+
+#ifndef BLOCKING_SIGNAL
+#define BLOCKING_SIGNAL SIGUSR1
+#endif
+
+#ifndef DEFAULT_SIZE
+#define DEFAULT_SIZE    98304
+#endif
+
+#ifndef EXTEND_SIZE
+#define EXTEND_SIZE     32768
+#endif
+
+#ifdef EPSON
+#define SEMAPHORES      10
+#endif
+
+#ifdef M88K
+#define SEMAPHORES      10
+#endif
+
+#ifdef UNIXWARE
+#define SEMAPHORES      10
+#endif
+
+#ifdef NCR3000
+#define SEMAPHORES      25
+#endif
+
+#ifdef SCO_UNIX
+#define SEMAPHORES      25
+#endif
+
+#ifdef sgi
+#define SEMAPHORES      25
+#endif
+
+#ifdef IMP
+#define SEMAPHORES      25
+#endif
+
+#ifdef DELTA
+#define SEMAPHORES      25
+#endif
+
+#ifdef ultrix
+#define SEMAPHORES      25
+#endif
+
+#ifdef DGUX
+#define SEMAPHORES      25
+#endif
+
+#ifdef DECOSF
+#define SEMAPHORES      16
+#endif
+
+#ifndef SEMAPHORES
+#define SEMAPHORES      32
+#endif
+
+#undef BASE
+#define BASE                    ((UCHAR*) LOCK_header)
+#define REL_PTR(item)           (PTR) ((UCHAR*) item - BASE)
+#define ABS_PTR(item)           (BASE + item)
+
+#define QUE_INIT(que)   {que.srq_forward = que.srq_backward = REL_PTR (&que);}
+#define QUE_EMPTY(que)  (que.srq_forward == REL_PTR (&que))
+#define QUE_NEXT(que)   (SRQ) ABS_PTR (que.srq_forward)
+
+#define QUE_LOOP(header,que)    for (que = QUE_NEXT (header);\
+	que != &header; que = QUE_NEXT ((*que)))
+
+#define PTR     SLONG
+
+/* Maximum lock series for gathering statistics
+   and querying data */
+
+#define LCK_MAX_SERIES	7
+
+/* Lock query data aggregates */
+
+#define LCK_MIN		1
+#define LCK_MAX		2
+#define LCK_CNT		3
+#define LCK_SUM		4
+#define LCK_AVG		5
+#define LCK_ANY		6
+
+/* Lock states */
+
+#define LCK_none        0
+#define LCK_null        1
+#define LCK_SR          2		/* Shared Read */
+#define LCK_PR          3		/* Protected Read */
+#define LCK_SW          4		/* Shared Write */
+#define LCK_PW          5		/* Protected Write */
+#define LCK_EX          6		/* Exclusive */
+#define LCK_max         7
+
+/* Lock block types */
+
+#define type_null       0
+#define type_lhb        1
+#define type_prb        2
+#define type_lrq        3
+#define type_lbl        4
+#define type_his        5
+#define type_smb        6
+#define type_shb        7
+#define type_own        8
+
+#define type_MAX        type_own
+
+
+
+/* Self-relative que block.  Offsets are from the block itself. */
+
+typedef struct srq {
+	PTR srq_forward;			/* Forward offset */
+	PTR srq_backward;			/* Backward offset */
+} *SRQ;
+
+
+#define CLASSIC_LHB_VERSION	14
+#define SS_LHB_VERSION		(CLASSIC_LHB_VERSION + 100)
+
+#ifdef SUPERSERVER
+#define LHB_VERSION	SS_LHB_VERSION
+#else
+#define LHB_VERSION	CLASSIC_LHB_VERSION
+#endif
+
+#define LHB_PATTERN     123454321
+
+/* Lock header block -- one per lock file, lives up front */
+
+typedef struct lhb {
+	UCHAR lhb_type;				/* memory tag - always type_lbh */
+	UCHAR lhb_version;			/* Version of lock table */
+	PTR lhb_secondary;			/* Secondary lock header block */
+	PTR lhb_active_owner;		/* Active owner, if any */
+	struct srq lhb_owners;		/* Que of active owners */
+	struct srq lhb_free_owners;	/* Free owners blocks */
+	struct srq lhb_free_locks;	/* Free lock blocks */
+	struct srq lhb_free_requests;	/* Free lock requests */
+	SLONG lhb_length;			/* Size of lock table */
+	SLONG lhb_used;				/* Bytes of lock table in use */
+	USHORT lhb_hash_slots;		/* Number of hash slots allocated */
+	USHORT lhb_flags;			/* Miscellaneous info */
+	MTX_T lhb_mutex[1];			/* Mutex controlling access */
+	PTR lhb_manager;			/* Lock manager owner block */
+	PTR lhb_history;
+	ULONG lhb_process_count;	/* To give a unique id to each process attachment to the lock table */
+	PTR lhb_mask;				/* Semaphore mask block */
+	ULONG lhb_scan_interval;	/* Deadlock scan interval (secs) */
+	ULONG lhb_acquire_spins;
+	ULONG lhb_acquires;
+	ULONG lhb_acquire_blocks;
+	ULONG lhb_acquire_retries;
+	ULONG lhb_retry_success;
+	ULONG lhb_enqs;
+	ULONG lhb_converts;
+	ULONG lhb_downgrades;
+	ULONG lhb_deqs;
+	ULONG lhb_read_data;
+	ULONG lhb_write_data;
+	ULONG lhb_query_data;
+	ULONG lhb_operations[LCK_MAX_SERIES];
+	ULONG lhb_waits;
+	ULONG lhb_denies;
+	ULONG lhb_timeouts;
+	ULONG lhb_blocks;
+	ULONG lhb_direct_sigs;
+	ULONG lhb_indirect_sigs;
+	ULONG lhb_wakeups;
+	ULONG lhb_scans;
+	ULONG lhb_deadlocks;
+	ULONG lhb_wait_time;
+	ULONG lhb_reserved[2];		/* For future use */
+	struct srq lhb_data[LCK_MAX_SERIES];
+	struct srq lhb_hash[1];		/* Hash table */
+} *LHB;
+
+#define LHB_lock_ordering       1	/* Lock ordering is enabled */
+#define LHB_shut_manager	2	/* Lock manager shutdown flag */
+
+/* Secondary header block -- exists only in V3.3 and later lock
+   managers.  It is pointed to by the word in the lhb that used to contain
+   a pattern. */
+
+typedef struct shb {
+	UCHAR shb_type;				/* memory tag - always type_shb */
+	UCHAR shb_flags;
+	PTR shb_history;
+	PTR shb_remove_node;		/* Node removing itself */
+	PTR shb_insert_que;			/* Queue inserting into */
+	PTR shb_insert_prior;		/* Prior of inserting queue */
+	SLONG shb_misc[10];			/* Unused space */
+} *SHB;
+
+
+/* Lock block */
+
+typedef struct lbl
+{
+	UCHAR lbl_type;				/* mem tag: type_lbl=in use, type_null=free */
+	UCHAR lbl_state;			/* High state granted */
+	UCHAR lbl_size;				/* Key bytes allocated */
+	UCHAR lbl_length;			/* Key bytes used */
+	struct srq lbl_requests;	/* Requests granted */
+	struct srq lbl_lhb_hash;	/* Collision que for hash table */
+	struct srq lbl_lhb_data;	/* Lock data que by series */
+	SLONG lbl_data;				/* user data */
+	PTR lbl_parent;				/* Parent */
+	UCHAR lbl_series;			/* Lock series */
+	UCHAR lbl_flags;			/* Misc flags */
+	USHORT lbl_pending_lrq_count;	/* count of lbl_requests with LRQ_pending */
+	USHORT lbl_counts[LCK_max];	/* Counts of granted locks */
+	UCHAR lbl_key[1];			/* Key value */
+} *LBL;
+
+/* No flags are defined for LBL at this time */
+
+/* Lock requests */
+
+typedef struct lrq {
+	UCHAR lrq_type;				/* mem tag: type_lrq=in use, type_null=free */
+	UCHAR lrq_flags;			/* Misc crud */
+	UCHAR lrq_requested;		/* Level requested  */
+	UCHAR lrq_state;			/* State of lock request */
+	PTR lrq_owner;				/* Owner making request */
+	PTR lrq_lock;				/* Lock requested */
+	SLONG lrq_data;				/* Lock data requested */
+	struct srq lrq_own_requests;	/* Locks granted for owner */
+	struct srq lrq_lbl_requests;	/* Que of requests (active, pending) */
+	struct srq lrq_own_blocks;	/* Owner block que */
+	int (*lrq_ast_routine) ();	/* Block ast routine */
+	int *lrq_ast_argument;		/* Ast argument */
+} *LRQ;
+
+#define LRQ_blocking    1		/* Request is blocking */
+#define LRQ_pending     2		/* Request is pending */
+#define LRQ_converting  4		/* Request is pending conversion */
+#define LRQ_rejected    8		/* Request is rejected */
+#define LRQ_timed_out   16		/* Wait timed out */
+#define LRQ_deadlock    32		/* Request has been seen by the deadlock-walk */
+#define LRQ_repost      64		/* Request block used for repost */
+#define LRQ_scanned     128		/* Request already scanned for deadlock */
+#define LRQ_blocking_seen 256	/* Blocking notification received by owner */
+
+/* Owner block */
+
+typedef struct own
+{
+	UCHAR own_type;				/* memory tag - always type_own */
+	UCHAR own_owner_type;		/* type of owner */
+	SSHORT own_count;			/* init count for the owner */
+	ULONG own_owner_id;			/* Owner ID */
+	UATOM own_ast_flags;		/* flags shared by main and ast codes */
+	UATOM own_ast_hung_flags;	/* unprotected - OWN_hung flag */
+	struct srq own_lhb_owners;	/* Owner que */
+	struct srq own_requests;	/* Lock requests granted */
+	struct srq own_blocks;		/* Lock requests blocking */
+	PTR own_pending_request;	/* Request we're waiting on */
+	int own_process_id;			/* Owner's process ID */
+	int own_process_uid;		/* Owner's process UID */
+	ULONG own_acquire_time;		/* lhb_acquires when owner last tried acquire() */
+	ULONG own_acquire_realtime;	/* GET_TIME when owner last tried acquire() */
+#ifdef WIN_NT
+	void *own_wakeup_hndl;		/* Handle of wakeup event */
+#ifndef SUPERSERVER
+	void *own_blocking_hndl;	/* Handle of blocking event */
+#endif
+#endif							/* WIN_NT */
+#ifdef SOLARIS_MT
+	EVENT_T own_blocking[1];	/* Blocking event block */
+	EVENT_T own_stall[1];		/* Owner is stalling for other owner */
+#endif
+#ifndef WIN_NT
+	EVENT_T own_wakeup[1];		/* Wakeup event block */
+#endif
+	USHORT own_semaphore;		/* Owner semaphore -- see note below */
+	USHORT own_flags;			/* Misc stuff */
+} *OWN;
+
+/* Flags in own_flags */
+#define OWN_blocking    1		/* Owner is blocking */
+#define OWN_scanned     2		/* Owner has been deadlock scanned */
+#define OWN_manager     4		/* Owner is privileged manager */
+#define OWN_signal      8		/* Owner needs signal delivered */
+#define OWN_wakeup      32		/* Owner has been awoken */
+#define OWN_starved     128		/* This thread may be starved        */
+
+/* Flags in own_ast_flags */
+#define OWN_signaled    16		/* Signal is thought to be delivered */
+
+/* Flags in own_semaphore */
+#define OWN_semavail    0x8000	/* Process semaphore is available */
+
+/* Flags in own_ast_hung_flag */
+#define OWN_hung        64		/* Owner may be hung by OS-level bug */
+
+/* NOTE: own_semaphore, when USE_EVENTS is set, is used to indicate when a 
+   owner is waiting inside wait_for_request().  post_wakeup() will only
+   attempt to wakeup owners that are waiting.  The reason for this is
+   likely historical - a flag bit could be used for this instead. */
+
+/* Semaphore mask block */
+
+typedef struct smb {
+	UCHAR smb_type;				/* memory tag - always type_smb */
+	ULONG smb_mask[1];			/* Mask of available semaphores */
+} *SMB;
+
+/* Lock manager history block */
+
+typedef struct his {
+	UCHAR his_type;				/* memory tag - always type_his */
+	UCHAR his_operation;		/* operation that occured */
+	PTR his_next;				/* PTR to next item in history list */
+	PTR his_process;			/* owner to record for this operation */
+	PTR his_lock;				/* lock to record for operation */
+	PTR his_request;			/* request to record for operation */
+} *HIS;
+
+/* his_operation definitions */
+#define his_enq         1
+#define his_deq         2
+#define his_convert     3
+#define his_signal      4
+#define his_post_ast    5
+#define his_wait        6
+#define his_del_process 7
+#define his_del_lock    8
+#define his_del_request 9
+#define his_deny        10
+#define his_grant       11
+#define his_leave_ast   12
+#define his_scan        13
+#define his_dead        14
+#define his_enter       15
+#define his_bug         16
+#define his_active      17
+#define his_cleanup     18
+#define his_del_owner   19
+#define his_MAX         his_del_owner
+
+#endif /* _ISC_LOCK_LOCK_H_ */
diff --git a/src/lock/lock_header_mmap b/src/lock/lock_header_mmap
new file mode 100644
index 0000000000..c78e19382a
--- /dev/null
+++ b/src/lock/lock_header_mmap
@@ -0,0 +1,4 @@
+#SEMCOUNT	32
+#BLKSIG		30
+#EVENT_SHMSIZE	32768
+
diff --git a/src/lock/lock_header_shmem b/src/lock/lock_header_shmem
new file mode 100644
index 0000000000..2d92c5f10a
--- /dev/null
+++ b/src/lock/lock_header_shmem
@@ -0,0 +1,5 @@
+#SHMSIZE	32768
+#SEMCOUNT	32
+#BLKSIG		16
+#EVENT_SHMSIZE	32768
+
diff --git a/src/lock/lock_proto.h b/src/lock/lock_proto.h
new file mode 100644
index 0000000000..77369e4869
--- /dev/null
+++ b/src/lock/lock_proto.h
@@ -0,0 +1,44 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		lock_proto.h
+ *	DESCRIPTION:	Prototype header file for lock.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _LOCK_LOCK_PROTO_H_
+#define _LOCK_LOCK_PROTO_H_
+
+int	LOCK_convert(SLONG, UCHAR, SSHORT, int (*)(void *), void *,
+						STATUS *);
+int		LOCK_deq(SLONG);
+UCHAR	LOCK_downgrade(SLONG, STATUS *);
+SLONG	LOCK_enq(SLONG, SLONG, USHORT, UCHAR *, USHORT, UCHAR,
+					  int (*)(void *), void *, SLONG, SSHORT, STATUS *,
+					  SLONG);
+void	LOCK_fini(STATUS *, SLONG *);
+int		LOCK_init(STATUS *, SSHORT, SLONG, UCHAR, SLONG *);
+void	LOCK_manager(SLONG);
+SLONG	LOCK_query_data(SLONG, USHORT, USHORT);
+SLONG	LOCK_read_data(SLONG);
+SLONG	LOCK_read_data2(SLONG, USHORT, UCHAR *, USHORT, SLONG);
+void	LOCK_re_post(int (*)(void *), void *, SLONG);
+BOOLEAN	LOCK_shut_manager(void);
+SLONG	LOCK_write_data(SLONG, SLONG);
+
+#endif /* _LOCK_LOCK_PROTO_H_ */
diff --git a/src/lock/lockv3.h b/src/lock/lockv3.h
new file mode 100644
index 0000000000..f6b8ff3202
--- /dev/null
+++ b/src/lock/lockv3.h
@@ -0,0 +1,306 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		lockv3.h
+ *	DESCRIPTION:	Version 3 lock manager structure definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+
+#include <sys/types.h>
+#include <signal.h>
+#include <sys/ipc.h>
+#include <sys/shm.h>
+#include <sys/sem.h>
+
+#include "../jrd/common.h"
+#include "../lock/fparamv3.h"
+
+#if (defined linux || defined FREEBSD || defined NETBSD)
+#define SEMUN
+#endif
+
+#ifdef sun
+#ifndef SOLARIS
+#define SEMUN
+#endif
+#endif
+
+#ifdef sgi
+#define SEMUN
+#endif
+
+#ifdef SEMUN
+#undef SEMUN
+#else
+union semun {
+	int val;
+	struct semid_ds *buf;
+	ushort *array;
+};
+#endif
+
+#define DEFAULT_SIZE	32768
+#define BLOCKING_SIGNAL	SIGUSR1
+
+#ifndef EXTEND_SIZE
+#define EXTEND_SIZE	32768
+#endif
+
+#ifdef UNIXWARE
+#define SEMAPHORES      10
+#endif
+
+#ifdef XENIX
+#define SEMAPHORES	10
+#endif
+
+#ifdef M88K
+#define SEMAPHORES	10
+#endif
+
+#ifdef sgi
+#define SEMAPHORES	25
+#endif
+
+#ifdef IMP
+#define SEMAPHORES	25
+#endif
+
+#ifdef DELTA
+#define SEMAPHORES	25
+#endif
+
+#ifdef ultrix
+#define SEMAPHORES	25
+#endif
+
+#ifdef DGUX
+#define SEMAPHORES	25
+#endif
+
+#ifdef SOLARIS
+#define SEMAPHORES	25
+#endif
+
+#ifndef SEMAPHORES
+#define SEMAPHORES	32
+#endif
+
+#undef BASE
+#define BASE 			((UCHAR*) LOCK_header)
+#define REL_PTR(item)		((UCHAR*) item - BASE)
+#define ABS_PTR(item)		(BASE + item)
+
+#define QUE_INIT(que)	{que.srq_forward = que.srq_backward = REL_PTR (&que);}
+#define QUE_EMPTY(que)	(que.srq_forward == REL_PTR (&que))
+#define QUE_NEXT(que)	(SRQ) ABS_PTR (que.srq_forward)
+
+#define QUE_LOOP(header,que)	for (que = QUE_NEXT (header);\
+	que != &header; que = QUE_NEXT ((*que)))
+
+#define PTR	long
+
+/* Lock states */
+
+#define LCK_none	0
+#define LCK_null	1
+#define LCK_SR		2			/* Shared Read */
+#define LCK_PR		3			/* Protected Read */
+#define LCK_SW		4			/* Shared Write */
+#define LCK_PW		5			/* Protected Write */
+#define LCK_EX		6			/* Exclusive */
+#define LCK_max		7
+
+/* Lock block types */
+
+#define type_null	0
+#define type_lhb	1
+#define type_prb	2
+#define type_lrq	3
+#define type_lbl	4
+#define type_his	5
+#define type_smb	6
+#define type_shb	7
+
+
+/* Self-relative que block.  Offsets are from the block itself. */
+
+typedef struct srq {
+	PTR srq_forward;			/* Forward offset */
+	PTR srq_backward;			/* Backward offset */
+} *SRQ;
+
+
+#define LHB_VERSION5	5
+#define LHB_VERSION6	6
+#define LHB_VERSION7	7
+#define LHB_VERSION	7
+#define LHB_PATTERN	123454321
+
+/* Lock header block -- one per lock file, lives up front */
+
+typedef struct lhb {
+	UCHAR lhb_type;
+	UCHAR lhb_version;			/* Version of lock table */
+	PTR lhb_secondary;			/* Secondary lock header block */
+	PTR lhb_active_process;		/* Active process, if any */
+	struct srq lhb_processes;	/* Que of active processess */
+	struct srq lhb_free_processes;	/* Free process blocks */
+	struct srq lhb_free_locks;	/* Free lock blocks */
+	struct srq lhb_free_requests;	/* Free lock requests */
+	long lhb_length;			/* Size of lock table */
+	long lhb_used;				/* Bytes of lock table in use */
+	USHORT lhb_hash_slots;		/* Number of hash slots allocated */
+	long lhb_mutex[2];			/* Mutex controlling access */
+	PTR lhb_history;
+	int lhb_enqs;
+	int lhb_converts;
+	int lhb_denies;
+	int lhb_deadlocks;
+	int lhb_scans;
+	int lhb_blocks;
+	ULONG lhb_mask;				/* Mask of available semaphores */
+	struct srq lhb_hash[1];		/* Hash table */
+} *LHB;
+
+/* Secondary header block -- exists only in V3.3 and later lock
+   managers.  It is pointed to by the word in the lhb that used to contain
+   a pattern. */
+
+typedef struct shb {
+	UCHAR shb_type;
+	UCHAR shb_flags;
+	PTR shb_history;
+	PTR shb_remove_node;		/* Node removing itself */
+	PTR shb_insert_que;			/* Queue inserting into */
+	PTR shb_insert_prior;		/* Prior of inserting queue */
+	long shb_misc[10];			/* Unused space */
+} *SHB;
+
+
+/* Lock block */
+
+typedef struct lbl
+{
+	UCHAR lbl_type;
+	UCHAR lbl_state;			/* High state granted */
+	UCHAR lbl_size;				/* Key bytes allocated */
+	UCHAR lbl_length;			/* Key bytes used */
+	struct srq lbl_requests;	/* Requests granted */
+	struct srq lbl_lhb_hash;	/* Collision que for hash table */
+	long lbl_data;				/* user data */
+	PTR lbl_parent;				/* Parent */
+	UCHAR lbl_series;			/* Lock series */
+	UCHAR lbl_flags;			/* Misc flags */
+	UCHAR lbl_counts5[LCK_max];	/* Counts of granted locks */
+	UCHAR lbl_key5[1];			/* Key value */
+	USHORT lbl_counts7[LCK_max];	/* Counts of granted locks */
+	UCHAR lbl_key7[1];			/* Key value */
+} *LBL;
+
+#define LBL_scanned	1			/* Lock as been scanned */
+
+/* Lock requests */
+
+typedef struct lrq {
+	UCHAR lrq_type;
+	UCHAR lrq_flags;			/* Misc crud */
+	UCHAR lrq_requested;		/* Level requested  */
+	UCHAR lrq_state;			/* State of lock request */
+	PTR lrq_process;			/* Process making request */
+	PTR lrq_lock;				/* Lock requested */
+	struct srq lrq_prb_requests;	/* Locks granted for process */
+	struct srq lrq_lbl_requests;	/* Que of requests (active, pending) */
+	struct srq lrq_prb_blocks;	/* Process block que */
+	int (*lrq_ast_routine) ();	/* Block ast routine */
+	int *lrq_ast_argument;		/* Ast argument */
+} *LRQ;
+
+#define LRQ_blocking	1		/* Request is blocking */
+#define LRQ_pending	2			/* Request is pending */
+#define LRQ_converting	4		/* Request is pending conversion */
+#define LRQ_rejected	8		/* Request is rejected */
+#define LRQ_timed_out	16		/* Wait timed out */
+
+/* Process block */
+
+typedef struct prb
+{
+	UCHAR prb_type;
+	UCHAR prb_flags;			/* Misc stuff */
+	struct srq prb_lhb_processes;	/* Processes que */
+	struct srq prb_requests;	/* Lock requests granted */
+	struct srq prb_blocks;		/* Lock requests blocking */
+	PTR prb_pending_request;	/* Request we're waiting on */
+	int prb_process_id;			/* Process ID */
+	int prb_process_uid;		/* Process UID */
+	UCHAR prb_semaphore5;		/* Process semaphore */
+	USHORT prb_semaphore7;		/* Process semaphore */
+} *PRB;
+
+#define PRB_blocking	1		/* Process is blocking */
+#define PRB_scanned	2			/* Process has been deadlock scanned */
+#define PRB_manager	4			/* Process is privileged manager */
+#define PRB_signal	8			/* Process needs signal delivered */
+#define PRB_signaled	16		/* Signal is thought to be delivered */
+#define PRB_wakeup	32			/* Process has been awoken */
+
+/* Flag in prb_semaphore */
+
+#define PRB_semavail5	0x80	/* Process semaphore is available */
+#define PRB_semavail7	0x8000	/* Process semaphore is available */
+
+/* Semaphore mask block */
+
+#define SMB_SEMAPHORES6	128
+
+typedef struct smb {
+	UCHAR smb_type;
+	ULONG smb_mask[1];			/* Mask of available semaphores */
+} *SMB;
+
+/* Lock manager history block */
+
+typedef struct his {
+	UCHAR his_type;
+	UCHAR his_operation;
+	PTR his_next;
+	PTR his_process;
+	PTR his_lock;
+	PTR his_request;
+} *HIS;
+
+#define his_enq		1
+#define his_deq		2
+#define his_convert	3
+#define his_signal	4
+#define his_post_ast	5
+#define his_wait	6
+#define his_del_process	7
+#define his_del_lock	8
+#define his_del_request	9
+#define his_deny	10
+#define his_grant	11
+#define his_leave_ast	12
+#define his_scan	13
+#define his_dead	14
+#define his_enter	15
+#define his_bug		16
+#define his_active	17
diff --git a/src/lock/lockv3s4.h b/src/lock/lockv3s4.h
new file mode 100644
index 0000000000..a7b140c007
--- /dev/null
+++ b/src/lock/lockv3s4.h
@@ -0,0 +1,233 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		lockv3s4.h
+ *	DESCRIPTION:	Version 3 Sun 4 lock manager structure definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdio.h>
+#include <fcntl.h>
+#include <sys/types.h>
+#include <sys/mman.h>
+
+#include "../jrd/common.h"
+#include "../lock/fparamv3.h"
+
+#define BLOCKING_SIGNAL	SIGUSR1
+#define DEFAULT_SIZE	32768
+#define EXTEND_SIZE	32768
+#define SEM_KEY		100
+#define SEMAPHORES	32
+
+#define BASE 			((UCHAR*) LOCK_header)
+#define REL_PTR(item)		((UCHAR*) item - BASE)
+#define ABS_PTR(item)		(BASE + item)
+
+#define QUE_INIT(que)	{que.srq_forward = que.srq_backward = REL_PTR (&que);}
+#define QUE_EMPTY(que)	(que.srq_forward == REL_PTR (&que))
+#define QUE_NEXT(que)	ABS_PTR (que.srq_forward)
+
+#define QUE_LOOP(header,que)	for (que = (SRQ) QUE_NEXT (header);\
+	que != &header; que = (SRQ) QUE_NEXT ((*que)))
+
+#define PTR	long
+
+/* Lock states */
+
+#define LCK_none	0
+#define LCK_null	1
+#define LCK_SR		2			/* Shared Read */
+#define LCK_PR		3			/* Protected Read */
+#define LCK_SW		4			/* Shared Write */
+#define LCK_PW		5			/* Protected Write */
+#define LCK_EX		6			/* Exclusive */
+#define LCK_max		7
+
+/* Lock block types */
+
+#define type_null	0
+#define type_lhb	1
+#define type_prb	2
+#define type_lrq	3
+#define type_lbl	4
+#define type_his	5
+#define type_smb	6
+#define type_shb	7
+
+
+/* Self-relative que block.  Offsets are from the block itself. */
+
+typedef struct srq {
+	PTR srq_forward;			/* Forward offset */
+	PTR srq_backward;			/* Backward offset */
+} *SRQ;
+
+#define LHB_VERSION3	3
+#define LHB_VERSION4	4
+#define LHB_VERSION5	5
+#define LHB_VERSION	5
+#define LHB_PATTERN	123454321
+
+/* Lock header block -- one per lock file, lives up front */
+
+typedef struct lhb {
+	UCHAR lhb_type;
+	UCHAR lhb_version;			/* Version of lock table */
+	PTR lhb_secondary;			/* Secondary lock header block */
+	PTR lhb_active_process;		/* Active process, if any */
+	struct srq lhb_processes;	/* Que of active processess */
+	struct srq lhb_free_processes;	/* Free process blocks */
+	struct srq lhb_free_locks;	/* Free lock blocks */
+	struct srq lhb_free_requests;	/* Free lock requests */
+	long lhb_length;			/* Size of lock table */
+	long lhb_used;				/* Bytes of lock table in use */
+	USHORT lhb_hash_slots;		/* Number of hash slots allocated */
+	PTR lhb_history;
+	int lhb_enqs;
+	int lhb_converts;
+	int lhb_denies;
+	int lhb_deadlocks;
+	int lhb_scans;
+	int lhb_blocks;
+	ULONG lhb_mask;				/* Mask of available semaphores */
+	struct srq lhb_hash[1];		/* Hash table */
+} *LHB;
+
+/* Secondary header block -- exists only in V3.3 and later lock
+   managers.  It is pointed to by the word in the lhb that used to contain
+   a pattern. */
+
+typedef struct shb {
+	UCHAR shb_type;
+	UCHAR shb_flags;
+	PTR shb_history;
+	PTR shb_remove_node;		/* Node removing itself */
+	PTR shb_insert_que;			/* Queue inserting into */
+	PTR shb_insert_prior;		/* Prior of inserting queue */
+	long shb_misc[10];			/* Unused space */
+} *SHB;
+
+
+/* Lock block */
+
+typedef struct lbl {
+	UCHAR lbl_type;
+	UCHAR lbl_state;			/* High state granted */
+	UCHAR lbl_size;				/* Key bytes allocated */
+	UCHAR lbl_length;			/* Key bytes used */
+	struct srq lbl_requests;	/* Requests granted */
+	struct srq lbl_lhb_hash;	/* Collision que for hash table */
+	long lbl_data;				/* user data */
+	PTR lbl_parent;				/* Parent */
+	UCHAR lbl_series;			/* Lock series */
+	UCHAR lbl_flags;			/* Misc flags */
+	UCHAR lbl_counts3[LCK_max];	/* Counts of granted locks */
+	UCHAR lbl_key3[1];			/* Key value */
+	USHORT lbl_counts5[LCK_max];	/* Counts of granted locks */
+	UCHAR lbl_key5[1];			/* Key value */
+} *LBL;
+
+#define LBL_scanned	1			/* Lock as been scanned */
+
+/* Lock requests */
+
+typedef struct lrq {
+	UCHAR lrq_type;
+	UCHAR lrq_flags;			/* Misc crud */
+	UCHAR lrq_requested;		/* Level requested  */
+	UCHAR lrq_state;			/* State of lock request */
+	PTR lrq_process;			/* Process making request */
+	PTR lrq_lock;				/* Lock requested */
+	struct srq lrq_prb_requests;	/* Locks granted for process */
+	struct srq lrq_lbl_requests;	/* Que of requests (active, pending) */
+	struct srq lrq_prb_blocks;	/* Process block que */
+	int (*lrq_ast_routine) ();	/* Block ast routine */
+	int *lrq_ast_argument;		/* Ast argument */
+} *LRQ;
+
+#define LRQ_blocking	1		/* Request is blocking */
+#define LRQ_pending	2			/* Request is pending */
+#define LRQ_converting	4		/* Request is pending conversion */
+#define LRQ_rejected	8		/* Request is rejected */
+
+
+/* Process block */
+
+typedef struct prb {
+	UCHAR prb_type;
+	UCHAR prb_flags;			/* Misc stuff */
+	struct srq prb_lhb_processes;	/* Processes que */
+	struct srq prb_requests;	/* Lock requests granted */
+	struct srq prb_blocks;		/* Lock requests blocking */
+	PTR prb_pending_request;	/* Request we're waiting on */
+	int prb_process_id;			/* Process ID */
+	int prb_process_uid;		/* Process user ID */
+	UCHAR prb_semaphore3;		/* Process semaphore */
+	USHORT prb_semaphore5;		/* Process semaphore */
+} *PRB;
+
+#define PRB_blocking	1		/* Process is blocking */
+#define PRB_scanned	2			/* Process has been deadlock scanned */
+#define PRB_manager	4			/* Process is privileged manager */
+#define PRB_signal	8			/* Process needs signal delivered */
+#define PRB_wakeup	16			/* Process has been awoken */
+
+/* Flag in prb_semaphore */
+
+#define PRB_semavail3	0x80	/* Process semaphore is available */
+#define PRB_semavail5	0x8000	/* Process semaphore is available */
+
+/* Semaphore mask block */
+
+#define SMB_SEMAPHORES4	128
+
+typedef struct smb {
+	UCHAR smb_type;
+	ULONG smb_mask[1];			/* Mask of available semaphores */
+} *SMB;
+
+/* Lock manager history block */
+
+typedef struct his {
+	UCHAR his_type;
+	UCHAR his_operation;
+	PTR his_next;
+	PTR his_process;
+	PTR his_lock;
+	PTR his_request;
+} *HIS;
+
+#define his_enq		1
+#define his_deq		2
+#define his_convert	3
+#define his_signal	4
+#define his_post_ast	5
+#define his_wait	6
+#define his_del_process	7
+#define his_del_lock	8
+#define his_del_request	9
+#define his_deny	10
+#define his_grant	11
+#define his_leave_ast	12
+#define his_scan	13
+#define his_dead	14
+#define his_enter	15
+#define his_cleanup	16
+#define his_bug		17
+#define his_active	18
diff --git a/src/lock/manager.cpp b/src/lock/manager.cpp
new file mode 100644
index 0000000000..f2838c717f
--- /dev/null
+++ b/src/lock/manager.cpp
@@ -0,0 +1,63 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		manager.c
+ *	DESCRIPTION:	Lock manager process
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include "../jrd/ib_stdio.h"
+#include "../jrd/jrd.h"
+#include "../jrd/lck.h"
+#ifdef LINKS_EXIST
+#include "../isc_lock/lock_proto.h"
+#else
+#include "../lock/lock_proto.h"
+#endif
+
+
+
+void main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	SLONG owner_handle;
+
+	if (setreuid(0, 0) < 0)
+		ib_printf("lock manager: couldn't set uid to superuser\n");
+
+	if (argc < 2)
+		divorce_terminal(0);
+
+	status_vector[1] = 0;
+	owner_handle = 0;
+	if (!LOCK_init
+		(status_vector, TRUE, getpid(), LCK_OWNER_process,
+		 &owner_handle)) LOCK_manager(owner_handle);
+
+	LOCK_fini(status_vector, &owner_handle);
+}
diff --git a/src/lock/pls.cpp b/src/lock/pls.cpp
new file mode 100644
index 0000000000..e8b9193123
--- /dev/null
+++ b/src/lock/pls.cpp
@@ -0,0 +1,448 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		pls.c
+ *	DESCRIPTION:	Page lock server interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "lock.h"
+#include "plserver.h"
+
+#include "/sys/ins/streams.ins.c"
+#include "/sys/ins/ms.ins.c"
+#include "/sys/ins/name.ins.c"
+#include "/sys/ins/proc2.ins.c"
+#include "/sys/ins/ipc.ins.c"
+
+#define ALLOC		pls_alloc
+#define DATAGRAM_RETRY	10
+
+/* Connection block for page/lock server */
+
+typedef struct plc {
+	struct blk plc_header;
+	struct pld *plc_next;		/* Next connection */
+	int plc_node;				/* Node id of connection */
+	int plc_send_sequence;		/* Next available packet sequence number */
+	int plc_recv_sequence;		/* Sequence number of last packet received */
+	UCHAR plc_socket[20];		/* Apollo socket handle */
+	UCHAR plc_socket2[20];		/* Our socket handle */
+	int plc_connection_handle;
+	int plc_file_handle;
+	USHORT plc_length;			/* Length of file name */
+	UCHAR plc_file[1];			/* Socket file name */
+} *PLC;
+
+static int connect(int, ipc_$socket_handle_t *);
+static int error(UCHAR *, UCHAR *, status_$t);
+static UCHAR *pls_alloc(USHORT);
+static void pls_release(UCHAR *);
+static void move(register SCHAR *, register SCHAR *, register SSHORT);
+
+static PLC connections;
+
+#define NODE_MASK	0xFFFFF
+
+
+/* Asknode Stuff */
+
+std_$call void asknode_$info();
+
+typedef SSHORT enum {
+	ask_who, who_r,
+	ask_time, time_r,
+	ask_node_root, node_root_r
+} asknode_$kind_t;
+
+#define asknode_$version	2
+
+typedef struct {
+	pinteger version;
+	asknode_$kind_t kind;
+	status_$t status;
+	uid_$t uid;
+	SCHAR stuff[256];			/* Random and various */
+} asknode_$reply_t;
+
+/* name_$ stuff */
+
+std_$call void name_$gpath_dir();
+
+SSHORT enum name_$namtyp_t {
+	name_$junk_flag,
+	name_$wdir_flag,
+	name_$ndir_flag,
+	name_$node_flag,
+	name_$root_flag,
+	name_$node_data_flag
+};
+
+
+PLC PLS_connection(int node, USHORT server_flag)
+{
+/**************************************
+ *
+ *	P L S _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish a connection to a page/lock server on a given node.
+ *
+ **************************************/
+	PLC connection;
+	PHD header, reply;
+	UCHAR socket_name[32];
+	USHORT length;
+	uid_$t uid;
+	status_$t status;
+	ipc_$socket_handle_t handle, local_handle;
+	asknode_$reply_t node_info;
+
+	if (connect(node, &handle))
+		return NULL;
+
+	if (connect(NULL, &local_handle))
+		return NULL;
+
+/* We seem to have a socket -- time to make a connection block */
+
+	connection = ALLOC(sizeof(struct plc) + length);
+	connection->plc_length = length;
+	connection->plc_node = node;
+	strcpy(connection->plc_file, socket_name);
+	move(&handle, connection->plc_socket, sizeof(handle));
+	move(&local_handle, connection->plc_socket2, sizeof(handle));
+
+/* We at least have a socket handle.  See if anybody is really there */
+
+	header.phd_type = PL_CONNECT;
+	proc2_$who_am_i(uid);
+	header.phd_misc = uid.low & NODE_MASK;
+	header.phd_flags = (server_flag) ? PHD_SERVER : 0;
+	status.all =
+		PLS_request(connection, &header, sizeof(header), &reply,
+					sizeof(reply), NULL, 0, 0);
+
+	if (status.all) {
+		PLS_disconnect(connection);
+		return NULL;
+	}
+
+	connection->plc_connection_handle = reply.phd_handle;
+
+	return connection;
+}
+
+
+PLC PLS_find_connection(int node, USHORT server_flag)
+{
+/**************************************
+ *
+ *	P L S _ f i n d _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a connection if it exists, otherwise create it.
+ *	Note: This is used only by the page/lock server to
+ *	avoid problems of dirty statics in Apollo installed images.
+ *
+ **************************************/
+	PLC connection;
+
+/* See if connection exits */
+
+	for (connection = connections; connection;
+		 connection = connection->plc_next) if (connection->plc_node == node)
+			return connection;
+
+/* Connection doesn't exist -- try to make it */
+
+	if (!(connection = PLS_connection(node, server_flag)))
+		return NULL;
+
+	connection->plc_next = connections;
+	connections = connection;
+
+	return connection;
+}
+
+
+int PLS_request(
+				PLC connection,
+				PHD * header,
+				USHORT header_len,
+				PHD * reply,
+				USHORT reply_len,
+UCHAR * data, USHORT send_len, USHORT receive_len)
+{
+/**************************************
+ *
+ *	P L S _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a page/lock request and get response.
+ *
+ **************************************/
+	USHORT send, wait, count, receive_length, header_length, next;
+	status_$t status;
+	ipc_$socket_handle_t handle;
+
+/* Send the request until we get something back */
+
+	header->phd_connection = connection->plc_connection_handle;
+	BUMP_SEQUENCE(connection->plc_send_sequence);
+	header->phd_sequence = connection->plc_send_sequence;
+	send = TRUE;
+	wait = 10 * 4;
+
+	for (count = 0; count < DATAGRAM_RETRY; count++) {
+		if (send) {
+			header->phd_ack = connection->plc_recv_sequence;
+			ipc_$send(connection->plc_socket,
+					  connection->plc_socket2,
+					  *header, header_len, *data, send_len, status);
+			if (status.all)
+				return status.all;
+		}
+
+		/* Wait for and read reply */
+
+		ipc_$wait(connection->plc_socket2, wait, status);
+		if (status.all == ipc_$timeout)
+			continue;
+		if (status.all)
+			return status.all;
+		ipc_$rcv(connection->plc_socket2, header_len,	/* out-hdr-buflen */
+				 receive_len,	/* out-data-buflen */
+				 handle, *reply,	/* out-hdr-buf */
+				 reply_len,		/* out-hdr-length */
+				 *data,			/* out-data-buf */
+				 receive_length,	/* out-data-length */
+				 status);		/* status */
+		if (status.all)
+			return status.all;
+
+		connection->plc_recv_sequence = reply->phd_sequence;
+
+		/* If the packet acknowleges something other than the one sent, re-transmit */
+
+		if (reply->phd_ack != connection->plc_send_sequence) {
+			send = TRUE;
+			continue;
+		}
+
+		/* If this is something other than an acknowlegement, be patient */
+
+		if (reply->phd_type != PL_ACK)
+			return SUCCESS;
+
+		/* If we got an acknowlegement, the other guy has at least received the packet.  
+		   We should be more patient, but still probe looking for death */
+
+		wait = 30 * 4;
+		send = FALSE;
+	}
+}
+
+
+void PLS_disconnect( PLC connection)
+{
+/**************************************
+ *
+ *	P L S _ d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break a remote connection.
+ *
+ **************************************/
+	status_$t status;
+
+	ipc_$close(connection->plc_file, connection->plc_length, status);
+	if (status.all)
+		error_$print(&status);
+
+	ipc_$delete(connection->plc_file, connection->plc_length, status);
+	if (status.all)
+		error_$print(&status);
+
+/* Close a client channel */
+
+	pls_release(connection);
+}
+
+
+static int connect( int node, ipc_$socket_handle_t * handle)
+{
+/**************************************
+ *
+ *	c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to establish a physical connection to the page
+ *	lock server on a given node.
+ *
+ **************************************/
+	PHD header, reply;
+	UCHAR socket_name[32], root_name[256], *p;
+	USHORT length;
+	status_$t status;
+	asknode_$reply_t node_info;
+
+/* If no node id was given, create a connection for ourselves */
+
+	if (!node) {
+		strcpy(socket_name, "gds.pl_server_XXXXXX");
+		mktemp(socket_name);
+		length = strlen(socket_name);
+		ipc_$create(socket_name, length, status);
+		if (status.all)
+			return error("ipc_$create", socket_name, status);
+		ipc_$open(socket_name, length, 4, *handle, status);
+		if (status.all)
+			return error("ipc_$open", socket_name, status);
+		unlink(socket_name);
+		return SUCCESS;
+	}
+
+/* File is open by another node.  Sigh.  Make up a nice filename */
+
+	asknode_$info(ask_node_root, node, 0, node_info, status);
+	if (status.all)
+		return error("asknode_$info", " ", status);
+
+	if (node_info.status.all)
+		return error("asknode_$info", "remote site", node_info.status);
+
+	name_$gpath_dir(node_info.uid, name_$root_flag, root_name, length,
+					status);
+	if (status.all)
+		return error("name_$gpath_dir", "", status);
+
+	root_name[length] = 0;
+	sprintf(socket_name, "%s/sys/gds.plserver_%x", root_name, node);
+	length = strlen(socket_name);
+
+/* See if we can get a socket for the server.  If not, don't bother
+   continuing this non-sense */
+
+	ipc_$resolve(socket_name, length, *handle, status);
+	if (status.all) {
+		for (p = socket_name + 2; *p && *p != '/'; p++)
+			if (*p >= 'A' && *p <= 'Z')
+				*p = *p - 'A' + 'a';
+		ipc_$resolve(socket_name, length, *handle, status);
+	}
+
+	if (status.all)
+		return error("ipc_$resolve", socket_name, status);
+
+	return SUCCESS;
+}
+
+
+static int error( UCHAR * operation, UCHAR * object, status_$t status)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	A system service error has occurred.
+ *
+ **************************************/
+
+	ib_printf("Page/lock service error occurred during %s on \"%s\"\n",
+			  operation, object);
+	error_$print(status);
+
+	return status.all;
+}
+
+
+static UCHAR *pls_alloc( USHORT size)
+{
+/**************************************
+ *
+ *	p l s _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block.
+ *
+ **************************************/
+	UCHAR *blk, *p, *end;
+
+	blk = p = gds__alloc(size);
+	end = p + size;
+
+	while (p < end)
+		*p++ = 0;
+
+	return blk;
+}
+
+
+static void pls_release( UCHAR * blk)
+{
+/**************************************
+ *
+ *	p l s _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block.
+ *
+ **************************************/
+
+	gds__free(blk);
+}
+
+
+static void move(
+				 register SCHAR * from,
+				 register SCHAR * to, register SSHORT length)
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a byte string as fast as possible.
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+}
diff --git a/src/lock/plserver.cpp b/src/lock/plserver.cpp
new file mode 100644
index 0000000000..ff98755a6f
--- /dev/null
+++ b/src/lock/plserver.cpp
@@ -0,0 +1,683 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		plserver.c
+ *	DESCRIPTION:	Page/lock server
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+
+#include "../jrd/common.h"
+#include "plserver.h"
+
+#include "/sys/ins/base.ins.c"
+#include "/sys/ins/ipc.ins.c"
+#include "/sys/ins/error.ins.c"
+#include "/sys/ins/proc2.ins.c"
+#include "/sys/ins/ms.ins.c"
+
+/* Block used to manage connections */
+
+typedef struct plc {
+	struct plc *plc_next;
+	int plc_send_sequence;		/* Next available packet sequence number */
+	int plc_recv_sequence;		/* Sequence number of last packet received */
+	UCHAR plc_socket[20];		/* Apollo socket handle */
+	struct fat *plc_attachments;
+	struct blk *plc_server;		/* Server connection on client node */
+} *PLC;
+
+/* File attachment blocks */
+
+typedef struct fat {
+	struct plc *fat_connection;	/* Connection block for file */
+	struct file *fat_file;		/* File block for attachment */
+	struct fat *fat_next_connection;	/* Next FAT in connections list */
+	struct fat *fat_next_file;	/* Next FAT in file list */
+} *FAT;
+
+/* File window and file blocks */
+
+typedef struct fwin {
+	struct pag *fwin_address;	/* Address of mapped region */
+	SLONG fwin_length;			/* Length of mapped region */
+	SLONG fwin_offset;			/* Offset in bytes of region */
+	SLONG fwin_activity;		/* Accesses since window turn */
+} FWIN;
+
+#define WINDOWS		3
+#define WINDOW_LENGTH	32768
+
+typedef struct fil {
+	struct file *fil_next;		/* Next file in server */
+	FAT fil_attachments;		/* List of attachments to file */
+	USHORT fil_count;			/* Number of window */
+	FWIN fil_windows[WINDOWS];	/* File windows */
+	USHORT fil_length;			/* File name length */
+	UCHAR fil_name[1];			/* File name */
+} *FIL;
+
+static UCHAR *alloc(USHORT);
+static int client_error(PLC, UCHAR *, status_$t);
+static PLC connect(PHD *, UCHAR *);
+static void detach(FAT);
+static void disconnect(PHD *);
+static void ipc_error(status_$t, UCHAR *);
+static UCHAR *map_file(PLC, FIL, ULONG);
+static void move(UCHAR *, UCHAR *, USHORT);
+static void open(PHD *, UCHAR *);
+static void page_read(PHD *);
+static void page_write(PHD *, UCHAR *);
+static void release(UCHAR *);
+static void reply(PLC, PHD *, USHORT, UCHAR *, USHORT);
+static int socket_eql(UCHAR *, UCHAR *);
+
+static PLC connections, servers;
+static FIL files;
+static ipc_$socket_handle_t server_handle;
+
+static PLC connect();
+
+
+void main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Apollo specific page/lock server.  The page and lock functions
+ *	are independent (sigh), but there is no reason to have multiple
+ *	servers.
+ *
+ **************************************/
+	UCHAR file[32], header_buffer[128], data_buffer[1024];
+	USHORT header_length, data_length;
+	PHD *header;
+	PLC connection;
+	status_$t status;
+	uid_$t process_uid;
+	ipc_$socket_handle_t client_handle;
+
+/* Open the socket for activity */
+
+	proc2_$who_am_i(process_uid);
+	sprintf(file, "/sys/gds.plserver_%x", process_uid.low & 0xFFFFF);
+	data_length = strlen(file);
+
+	ipc_$create(file, data_length, status);
+
+	ipc_$open(file, data_length, 4, server_handle, status);
+	if (status.all)
+		ipc_error(status, "ipc_$open");
+
+/* Process messages */
+
+	header = header_buffer;
+
+	for (;;) {
+		for (;;) {
+			ipc_$wait(server_handle, 4 * 10, status);
+			if (!status.all)
+				break;
+			if (status.all != ipc_$timeout)
+				ipc_error(status, "ipc_$wait");
+			for (connection = connections; connection;
+				 connection = connection->plc_next) {
+			}
+		}
+		ipc_$rcv(server_handle,
+				 sizeof(header_buffer),
+				 sizeof(data_buffer),
+				 client_handle,
+				 header_buffer,
+				 header_length, data_buffer, data_length, status);
+		if (status.all)
+			ipc_error(status, "ipc_$rcv");
+
+		if (!(connection = header->phd_connection))
+			connection = connect(header, &client_handle);
+
+		/* Get rid of duplicate packet */
+
+		if (header->phd_sequence == connection->plc_recv_sequence)
+			continue;
+		connection->plc_recv_sequence = header->phd_sequence;
+
+		switch (header->phd_type) {
+		case PL_CONNECT:
+			break;
+
+		case PL_DISCONNECT:
+			disconnect(header);
+			break;
+
+		case PL_PAGE_OPEN:
+			open(header, data_buffer);
+			break;
+
+		case PL_PAGE_READ:
+			page_read(header);
+			break;
+
+		case PL_PAGE_WRITE:
+			page_write(header, data_buffer);
+			break;
+
+		default:
+			ib_fprintf(ib_stderr, "packet type %d not understood\n",
+					   header->phd_type);
+		}
+	}
+}
+
+
+static UCHAR *alloc( USHORT size)
+{
+/**************************************
+ *
+ *	a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a zero filled block.
+ *
+ **************************************/
+	UCHAR *blk, *p, *end;
+
+	blk = p = gds__alloc(size);
+	do
+		*p++ = 0;
+	while (--size);
+
+	return blk;
+}
+
+
+static int client_error( PLC connection, UCHAR * string, status_$t status)
+{
+/**************************************
+ *
+ *	c l i e n t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report an error to the client.
+ *
+ **************************************/
+	PHD packet;
+
+	packet.phd_type = PL_ERROR;
+	packet.phd_length = 0;
+	packet.phd_misc = status.all;
+	strcpy(packet.phd_string, string);
+	reply(connection, &packet, sizeof(packet), NULL, 0);
+
+	return -1;
+}
+
+
+static PLC connect( PHD * header, UCHAR * socket)
+{
+/**************************************
+ *
+ *	c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept incoming connection.
+ *
+ **************************************/
+	PLC connection;
+
+/* Check for connection already active */
+
+	for (connection = connections; connection;
+		 connection =
+		 connection->plc_next) if (socket_eql(connection->plc_socket, socket))
+			break;
+
+	if (!connection) {
+		connection = alloc(sizeof(struct plc));
+		connection->plc_next = connections;
+		connections = connection;
+	}
+
+	header->phd_handle = connection;
+	connection->plc_recv_sequence = header->phd_sequence;
+	move(socket, connection->plc_socket, sizeof(connection->plc_socket));
+	reply(connection, header, sizeof(struct phd), NULL, 0);
+
+	return connection;
+}
+
+
+static void detach( FAT attachment)
+{
+/**************************************
+ *
+ *	d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Detach from a file segment.
+ *
+ **************************************/
+	PLC connection;
+	FIL file, *file_ptr;
+	FAT *fat;
+	FWIN *win, *end;
+	status_$t status;
+
+	connection = attachment->fat_connection;
+	file = attachment->fat_file;
+
+/* Disconnect attachment from connection. */
+
+	for (fat = &connection->plc_attachments; *fat;
+		 fat = &(*fat)->fat_next_connection) if (*fat == attachment) {
+			*fat = attachment->fat_next_connection;
+			break;
+		}
+
+/* Disconnect attachment from file.  If file loses its last attachment,
+   release the file */
+
+	for (fat = &file->fil_attachments; *fat; fat = &(*fat)->fat_next_file)
+		if (*fat == attachment) {
+			*fat = attachment->fat_next_file;
+			break;
+		}
+
+	if (!file->fil_attachments) {
+		for (win = file->fil_windows, end = win + file->fil_count; win < end;
+			 win++)
+			ms_$unmap(win->fwin_address, win->fwin_length, status);
+		for (file_ptr = &files; *file_ptr; file_ptr = &(*file_ptr)->fil_next)
+			if (*file_ptr = file) {
+				*file_ptr = file->fil_next;
+				break;
+			}
+		release(file);
+	}
+
+	release(attachment);
+}
+
+
+static void disconnect( PHD * packet)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break a connection.
+ *
+ **************************************/
+	PLC connection, *ptr;
+
+	connection = packet->phd_connection;
+	packet->phd_type = PL_REPLY;
+	reply(connection, packet, sizeof(struct phd), NULL, 0);
+
+/* Get rid of file segments */
+
+	while (connection->plc_attachments)
+		detach(connection->plc_attachments);
+
+/* Get rid of connection block */
+
+	for (ptr = &connections; *ptr; ptr = &(*ptr)->plc_next)
+		if (*ptr == connection) {
+			*ptr = connection->plc_next;
+			break;
+		}
+}
+
+
+static void ipc_error( status_$t status, UCHAR * string)
+{
+/**************************************
+ *
+ *	i p c _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	A more or less fatal error occurred.  Seppicu time.
+ *
+ **************************************/
+
+	ib_fprintf(ib_stderr, "Error during %s operation\n", string);
+	error_$print(status);
+	abort();
+}
+
+
+static UCHAR *map_file( PLC connection, FIL file, ULONG offset)
+{
+/**************************************
+ *
+ *	m a p _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a page in a file.
+ *
+ **************************************/
+	FWIN *window, *win, *end;
+	SLONG section;
+	status_$t status;
+	USHORT i, length;
+	UCHAR *address;
+
+	win = NULL;
+
+/* Search for a window that is already mapped. */
+
+	for (window = file->fil_windows, end = window + file->fil_count;
+		 window < end; window++) {
+		if (offset >= window->fwin_offset &&
+			offset < window->fwin_offset + window->fwin_length) goto exit;
+		if (!win || window->fwin_activity < win->fwin_activity)
+			win = window;
+	}
+
+/* If not all windows have been used, use another */
+
+	section = offset & ~(WINDOW_LENGTH - 1);
+
+	if (file->fil_count < WINDOWS) {
+		address = ms_$mapl(file->fil_name, file->fil_length, section,
+						   (SLONG) WINDOW_LENGTH, ms_$cowriters, ms_$wr,
+						   (SSHORT) - 1, window->fwin_length, status);
+
+		if (status.all)
+			return client_error(connection, "ms_$mapl", status);
+		++file->fil_count;
+		goto finish;
+	}
+
+/* Window not found, remap it.  */
+
+	window = win;
+	address = ms_$remap(window->fwin_address, section,
+						(SLONG) WINDOW_LENGTH, window->fwin_length, status);
+
+	if (status.all)
+		return client_error(connection, "ms_$remap", status);
+
+/* Down grade activity after window shift */
+
+	for (win = file->fil_windows; win < end; win++)
+		win->fwin_activity >>= 2;
+
+  finish:
+
+	window->fwin_address = address;
+	window->fwin_offset = section;
+	window->fwin_activity = 0;
+
+  exit:
+
+	++window->fwin_activity;
+	return (SCHAR *) window->fwin_address + offset - window->fwin_offset;
+}
+
+
+
+static void move( UCHAR * from, UCHAR * to, USHORT length)
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a fixed length string.
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+}
+
+
+static void open( PHD * packet, UCHAR * data)
+{
+/**************************************
+ *
+ *	o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a file.
+ *
+ **************************************/
+	PLC connection;
+	FIL file;
+	FAT attachment;
+	FWIN *window;
+	status_$t status;
+
+	data[packet->phd_length] = 0;
+	connection = packet->phd_connection;
+
+/* Check to see if file is already known */
+
+	for (file = files; file; file = file->fil_next)
+		if (!strcmp(data, file->fil_name))
+			break;
+
+/* If file doesn't exist, create it now */
+
+	if (!file) {
+		file = alloc(sizeof(struct fil) + packet->phd_length);
+		file->fil_length = packet->phd_length;
+		strcpy(file->fil_name, data);
+		file->fil_next = files;
+		files = file;
+		file->fil_count = 1;
+
+		/* Map the file as appropriate */
+
+		window = file->fil_windows;
+		window->fwin_address = ms_$mapl(file->fil_name, file->fil_length,
+										window->fwin_offset,
+										(SLONG) WINDOW_LENGTH, ms_$cowriters,
+										ms_$wr, (SSHORT) - 1,
+										window->fwin_length, status);
+		if (status.all)
+			client_error(connection, "ms_$mapl", status);
+		file->fil_count = 1;
+	}
+
+/* Connect file and connection block */
+
+	attachment = alloc(sizeof(struct fat));
+	attachment->fat_connection = connection;
+	attachment->fat_file = file;
+	attachment->fat_next_file = file->fil_attachments;
+	file->fil_attachments = attachment;
+	attachment->fat_next_connection = connection->plc_attachments;
+	connection->plc_attachments = attachment;
+
+/* Send a reply */
+
+	packet->phd_handle = attachment;
+	packet->phd_type = PL_REPLY;
+	reply(connection, packet, sizeof(struct phd), NULL, 0);
+}
+
+
+static void page_read( PHD * packet)
+{
+/**************************************
+ *
+ *	p a g e _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a database page.
+ *
+ **************************************/
+	PLC connection;
+	FIL file;
+	FAT attachment;
+	UCHAR *ptr;
+	status_$t status;
+
+	connection = packet->phd_connection;
+	attachment = packet->phd_handle;
+	file = attachment->fat_file;
+
+/* Map appropriate part of file */
+
+	ptr = map_file(connection, file, packet->phd_misc);
+	if (ptr == -1)
+		return;
+
+/* Send a reply */
+
+	packet->phd_handle = attachment;
+	packet->phd_type = PL_REPLY;
+	reply(connection, packet, sizeof(struct phd), ptr, packet->phd_length);
+}
+
+
+static void page_write( PHD * packet, UCHAR * data)
+{
+/**************************************
+ *
+ *	p a g e _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a database page.
+ *
+ **************************************/
+	PLC connection;
+	FIL file;
+	FAT attachment;
+	UCHAR *ptr;
+	status_$t status;
+
+	attachment = packet->phd_handle;
+	connection = packet->phd_connection;
+	file = attachment->fat_file;
+
+/* Map appropriate part of file */
+
+	ptr = map_file(connection, file, packet->phd_misc);
+	if (ptr == -1)
+		return;
+
+	move(data, ptr, packet->phd_length);
+
+/* Send a reply */
+
+	packet->phd_handle = attachment;
+	packet->phd_type = PL_REPLY;
+	reply(connection, packet, sizeof(struct phd), NULL, 0);
+}
+
+
+static void release( UCHAR * blk)
+{
+/**************************************
+ *
+ *	r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block.
+ *
+ **************************************/
+
+	gds__free(blk);
+}
+
+
+static void reply(
+				  PLC connection,
+				  PHD * header,
+				  USHORT header_len, UCHAR * data, USHORT data_len)
+{
+/**************************************
+ *
+ *	r e p l y 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reply to a request.
+ *
+ **************************************/
+	status_$t status;
+
+	BUMP_SEQUENCE(connection->plc_send_sequence);
+	header->phd_sequence = connection->plc_send_sequence;
+	header->phd_ack = connection->plc_recv_sequence;
+
+	ipc_$send(connection->plc_socket, server_handle,
+			  *header, header_len, *data, data_len, status);
+	if (status.all)
+		ipc_error(status, "icp_$send");
+}
+
+
+static int socket_eql( UCHAR * socket1, UCHAR * socket2)
+{
+/**************************************
+ *
+ *	s o c k e t _ e q l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two sockets for equality.
+ *
+ **************************************/
+	UCHAR *end;
+
+	end = socket1 + sizeof(struct ipc_$socket_handle);
+
+	while (socket1 < end)
+		if (*socket1++ != socket2++)
+			return FALSE;
+
+	return TRUE;
+}
diff --git a/src/lock/plserver.h b/src/lock/plserver.h
new file mode 100644
index 0000000000..24942ebf13
--- /dev/null
+++ b/src/lock/plserver.h
@@ -0,0 +1,69 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		plserver.h
+ *	DESCRIPTION:	Page/lock server
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _ISC_LOCK_PLSERVER_H_
+#define _ISC_LOCK_PLSERVER_H_
+
+/* General usage packet types */
+
+#define PL_CONNECT	1			/* Establish connection */
+#define PL_DISCONNECT	2		/* Break connection */
+#define PL_ACK		3			/* Acknowledge message */
+#define PL_ERROR	4			/* An error occurred */
+#define PL_REPLY	5			/* Generic reply */
+
+/* Packet types for page operations */
+
+#define PL_PAGE_OPEN	10		/* Open existing file */
+#define PL_PAGE_CREATE	11		/* Create new file */
+#define PL_PAGE_READ	12		/* Read file data */
+#define PL_PAGE_WRITE	13		/* Write file data */
+
+/* Packet types for lock operations */
+
+#define PL_LOCK_ENQ	20			/* Enqueue on lock */
+#define PL_LOCK_CVT	21			/* Convert existing lock */
+#define PL_LOCK_DEQ	22			/* Dequeue lock */
+#define PL_LOCK_GRANT	23		/* Grant lock */
+#define PL_LOCK_DENY	24		/* Deny lock */
+#define PL_LOCK_BLOCK	25		/* Existing lock is blocking another process */
+
+/* Generate packet format */
+
+typedef struct phd {
+	UCHAR phd_type;				/* Packet type */
+	UCHAR phd_flags;			/* Misc flags */
+	USHORT phd_sequence;		/* Packet sequence number */
+	USHORT phd_ack;				/* Acknowleding packet */
+	int *phd_connection;		/* Connection handle */
+	int *phd_handle;			/* Internal handle */
+	USHORT phd_length;			/* Miscellaneous usage */
+	int phd_misc;				/* Also miscellaneous usage */
+	UCHAR phd_string[16];		/* Associated string */
+} PHD;
+
+#define PHD_SERVER	1			/* Connection is from a server */
+
+#define BUMP_SEQUENCE(n)	n = (++n == 10000) ? 1 : n;
+
+#endif /* _ISC_LOCK_PLSERVER_H_ */
diff --git a/src/lock/print.cpp b/src/lock/print.cpp
new file mode 100644
index 0000000000..1bd405e32f
--- /dev/null
+++ b/src/lock/print.cpp
@@ -0,0 +1,1275 @@
+/*
+ *      PROGRAM:        JRD Lock Manager
+ *      MODULE:         print.c
+ *      DESCRIPTION:    Lock Table printer
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+#include "../jrd/file_params.h"
+#include "../jrd/jrd.h"
+#include "../jrd/lck.h"
+#include "../jrd/isc.h"
+#include "../jrd/time.h"
+#ifdef LINKS_EXIST
+#include "../isc_lock/lock.h"
+#else
+#include "../lock/lock.h"
+#endif /* LINKS_EXIST */
+#include "../jrd/gdsassert.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../lock/prtv3_proto.h"
+
+#if (defined DELTA || defined sgi || defined ultrix)
+#include <sys/types.h>
+#endif
+#include <sys/stat.h>
+#if !(defined WIN_NT)
+#include <sys/param.h>
+#endif
+
+#if (defined WIN_NT)
+#include <winbase.h>
+#include <io.h>
+#include <process.h>
+#endif
+
+#ifdef NETWARE_386
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+#include "../jrd/svc.h"
+#include "../jrd/svc_proto.h"
+#define exit(code)      {service->svc_handle = 0;                           \
+									    \
+		    /* Mark service thread as finished. */                  \
+		    /* If service is detached, cleanup memory being used    \
+		       by service. */                                       \
+		    SVC_finish (service, SVC_finished);			    \
+									    \
+		    return (code);}
+
+#define FPRINTF         SVC_netware_fprintf
+#endif
+
+#ifndef FPRINTF
+#define FPRINTF         ib_fprintf
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      256
+#endif
+
+#ifdef NETWARE_386
+typedef SVC OUTFILE;
+#else
+typedef IB_FILE *OUTFILE;
+#endif
+
+#define SW_I_ACQUIRE	1
+#define SW_I_OPERATION	2
+#define SW_I_TYPE	4
+#define SW_I_WAIT	8
+
+struct waitque {
+	USHORT waitque_depth;
+	PTR waitque_entry[30];
+};
+#define COUNT(x)	(sizeof (x)/ sizeof ((x)[0]))
+
+static void prt_lock_activity(OUTFILE, LHB, USHORT, USHORT, USHORT);
+static void prt_lock_init(void);
+static void prt_history(OUTFILE, LHB, PTR, SCHAR *);
+static void prt_lock(OUTFILE, LHB, LBL, USHORT);
+static void prt_owner(OUTFILE, LHB, OWN, BOOLEAN, BOOLEAN);
+static void prt_owner_wait_cycle(OUTFILE, LHB, OWN, USHORT, struct waitque *);
+static void prt_request(OUTFILE, LHB, LRQ);
+static void prt_que(OUTFILE, LHB, SCHAR *, SRQ, USHORT);
+static void prt_que2(OUTFILE, LHB, SCHAR *, SRQ, USHORT);
+
+static CONST TEXT history_names[][10] = {
+	"n/a", "ENQ", "DEQ", "CONVERT", "SIGNAL", "POST", "WAIT",
+	"DEL_PROC", "DEL_LOCK", "DEL_REQ", "DENY", "GRANT", "LEAVE",
+	"SCAN", "DEAD", "ENTER", "BUG", "ACTIVE", "CLEANUP", "DEL_OWNER"
+};
+
+static CONST UCHAR compatibility[] = {
+
+/*				Shared	Prot	Shared	Prot
+		none	null	 Read	Read	Write	Write	Exclusive */
+
+/* none */ 1, 1, 1, 1, 1, 1, 1,
+/* null */ 1, 1, 1, 1, 1, 1, 1,
+/* SR */ 1, 1, 1, 1, 1, 1, 0,
+/* PR */ 1, 1, 1, 1, 0, 0, 0,
+/* SW */ 1, 1, 1, 0, 1, 0, 0,
+/* PW */ 1, 1, 1, 0, 0, 0, 0,
+/* EX */ 1, 1, 0, 0, 0, 0, 0
+};
+
+#define COMPATIBLE(st1, st2)	compatibility [st1 * LCK_max + st2]
+
+
+
+#ifdef NETWARE_386
+
+int main_lock_print( SVC service)
+#else /* Non-Netware declaration */
+
+int CLIB_ROUTINE main( int argc, char *argv[])
+#endif
+{
+/**************************************
+ *
+ *      m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check switches passed in and prepare to dump the lock table
+ *	to ib_stdout.
+ *
+ **************************************/
+	BOOLEAN sw_requests, sw_owners, sw_locks, sw_history, sw_nobridge;
+	USHORT sw_series, sw_interactive, sw_intervals, sw_seconds;
+	BOOLEAN sw_consistency;
+	BOOLEAN sw_waitlist;
+	BOOLEAN sw_file;
+	LHB LOCK_header, header = NULL;
+	SLONG LOCK_size_mapped = DEFAULT_SIZE;
+	int orig_argc;
+	SCHAR **orig_argv;
+	TEXT *lock_file, buffer[MAXPATHLEN];
+	TEXT expanded_lock_filename[MAXPATHLEN];
+	TEXT hostname[64];
+	USHORT i;
+	SLONG length;
+	SH_MEM_T shmem_data;
+	SHB shb;
+	SRQ que, slot;
+	SCHAR *p, c;
+	STATUS status_vector[20];
+	SLONG redir_in, redir_out, redir_err;
+	SLONG hash_total_count, hash_lock_count, hash_min_count, hash_max_count;
+	float bottleneck;
+#ifdef NETWARE_386
+	int argc;
+	char **argv;
+#endif
+	OUTFILE outfile;
+#ifdef MANAGER_PROCESS
+	OWN manager;
+	int manager_pid;
+#endif
+
+#ifdef NETWARE_386
+	argc = service->svc_argc;
+	argv = service->svc_argv;
+#endif
+
+#ifdef NETWARE_386
+	outfile = service;
+#else
+	outfile = ib_stdout;
+#endif
+
+/* Perform some special handling when run as an Interbase service.  The
+   first switch can be "-svc" (lower case!) or it can be "-svc_re" followed
+   by 3 file descriptors to use in re-directing ib_stdin, ib_stdout, and ib_stderr. */
+
+	if (argc > 1 && !strcmp(argv[1], "-svc")) {
+		argv++;
+		argc--;
+#ifdef NETWARE_386
+		/* Get the output file name from the next argv[] etc. */
+#endif
+	}
+#ifndef NETWARE_386
+	else if (argc > 4 && !strcmp(argv[1], "-svc_re")) {
+		redir_in = atol(argv[2]);
+		redir_out = atol(argv[3]);
+		redir_err = atol(argv[4]);
+#ifdef WIN_NT
+		redir_in = _open_osfhandle(redir_in, 0);
+		redir_out = _open_osfhandle(redir_out, 0);
+		redir_err = _open_osfhandle(redir_err, 0);
+#endif
+		if (redir_in != 0)
+			if (dup2((int) redir_in, 0))
+				close((int) redir_in);
+		if (redir_out != 1)
+			if (dup2((int) redir_out, 1))
+				close((int) redir_out);
+		if (redir_err != 2)
+			if (dup2((int) redir_err, 2))
+				close((int) redir_err);
+		argv += 4;
+		argc -= 4;
+	}
+#endif
+
+	orig_argc = argc;
+	orig_argv = argv;
+
+/* Handle switches, etc. */
+
+	argv++;
+	sw_consistency = FALSE;
+	sw_waitlist = FALSE;
+	sw_file = FALSE;
+	sw_requests = sw_locks = sw_history = sw_nobridge = FALSE;
+	sw_owners = TRUE;
+	sw_series = sw_interactive = sw_intervals = sw_seconds = 0;
+
+	while (--argc) {
+		p = *argv++;
+		if (*p++ != '-') {
+			FPRINTF(outfile,
+					"Valid switches are: -o, -p, -l, -r, -a, -h, -n, -s <n>, -c, -i <n> <n>\n");
+			exit(FINI_OK);
+		}
+		while (c = *p++)
+			switch (c) {
+			case 'o':
+			case 'p':
+				sw_owners = TRUE;
+				break;
+
+			case 'c':
+				sw_nobridge = TRUE;
+				sw_consistency = TRUE;
+				break;
+
+			case 'l':
+				sw_locks = TRUE;
+				break;
+
+			case 'r':
+				sw_requests = TRUE;
+				break;
+
+			case 'a':
+				sw_locks = TRUE;
+				sw_owners = TRUE;
+				sw_requests = TRUE;
+				sw_history = TRUE;
+				break;
+
+			case 'h':
+				sw_history = TRUE;
+				break;
+
+			case 's':
+				if (argc > 1)
+					sw_series = atoi(*argv++);
+				if (!sw_series) {
+					FPRINTF(outfile,
+							"Please specify a positive value following option -s\n");
+					exit(FINI_OK);
+				}
+				--argc;
+				break;
+
+			case 'n':
+				sw_nobridge = TRUE;
+				break;
+
+			case 'i':
+				while (c = *p++)
+					switch (c) {
+					case 'a':
+						sw_interactive |= SW_I_ACQUIRE;
+						break;
+
+					case 'o':
+						sw_interactive |= SW_I_OPERATION;
+						break;
+
+					case 't':
+						sw_interactive |= SW_I_TYPE;
+						break;
+
+					case 'w':
+						sw_interactive |= SW_I_WAIT;
+						break;
+
+					default:
+						FPRINTF(outfile,
+								"Valid interactive switches are: a, o, t, w\n");
+						exit(FINI_OK);
+						break;
+					}
+				if (!sw_interactive)
+					sw_interactive =
+						(SW_I_ACQUIRE | SW_I_OPERATION | SW_I_TYPE |
+						 SW_I_WAIT);
+				sw_nobridge = TRUE;
+				sw_seconds = sw_intervals = 1;
+				if (argc > 1) {
+					sw_seconds = atoi(*argv++);
+					--argc;
+					if (argc > 1) {
+						sw_intervals = atoi(*argv++);
+						--argc;
+					}
+					if (!(sw_seconds > 0) || (sw_intervals < 0)) {
+						FPRINTF(outfile,
+								"Please specify 2 positive values for option -i\n");
+						exit(FINI_OK);
+					}
+				}
+				--p;
+				break;
+
+			case 'w':
+				sw_nobridge = TRUE;
+				sw_waitlist = TRUE;
+				break;
+
+			case 'f':
+				sw_nobridge = TRUE;
+				sw_file = TRUE;
+				if (argc > 1) {
+					lock_file = *argv++;
+					--argc;
+				}
+				else {
+					FPRINTF(outfile, "Usage: -f <filename>\n");
+					exit(FINI_OK);
+				};
+				break;
+
+			default:
+				FPRINTF(outfile,
+						"Valid switches are: -o, -p, -l, -r, -a, -h, -n, -s <n>, -c, -i <n> <n>\n");
+				exit(FINI_OK);
+				break;
+			}
+	}
+
+	if (!sw_file) {
+		gds__prefix_lock(buffer, LOCK_FILE);
+		lock_file = buffer;
+	}
+
+#ifdef UNIX
+	shmem_data.sh_mem_semaphores = 0;
+#endif
+
+#ifdef UNIX
+	LOCK_size_mapped = 0;		/* Use length of existing segment */
+#else
+	LOCK_size_mapped = DEFAULT_SIZE;	/* length == 0 not supported by all non-UNIX */
+#endif
+	LOCK_header = (LHB) ISC_map_file(status_vector, lock_file, prt_lock_init, 0, -LOCK_size_mapped,	/* Negative to NOT truncate file */
+									 &shmem_data);
+
+	sprintf(expanded_lock_filename, lock_file,
+			ISC_get_host(hostname, sizeof(hostname)));
+
+/* Make sure the lock file is valid - if it's a zero length file we 
+ * can't look at the header without causing a BUS error by going
+ * off the end of the mapped region.
+ */
+
+	if (LOCK_header && shmem_data.sh_mem_length_mapped < sizeof(struct lhb)) {
+		/* Mapped file is obviously too small to really be a lock file */
+		FPRINTF(outfile,
+				"Unable to access lock table - file too small.\n%s\n",
+				expanded_lock_filename);
+		exit(FINI_OK);
+	}
+
+	if (LOCK_header
+		&& LOCK_header->lhb_length > shmem_data.sh_mem_length_mapped) {
+		length = LOCK_header->lhb_length;
+#if (!(defined UNIX) || (defined MMAP_SUPPORTED))
+		LOCK_header =
+			(LHB) ISC_remap_file(status_vector, &shmem_data, length, FALSE);
+#endif
+	}
+
+	if (!LOCK_header) {
+		FPRINTF(outfile, "Unable to access lock table.\n%s\n",
+				expanded_lock_filename);
+		gds__print_status(status_vector);
+		exit(FINI_OK);
+	}
+
+	LOCK_size_mapped = shmem_data.sh_mem_length_mapped;
+
+/* if we can't read this version - admit there's nothing to say and return. */
+
+	if ((LOCK_header->lhb_version != SS_LHB_VERSION) &&
+		(LOCK_header->lhb_version != CLASSIC_LHB_VERSION)) {
+		FPRINTF(outfile, "\tUnable to read lock table version %d.\n",
+				LOCK_header->lhb_version);
+		exit(FINI_OK);
+	}
+
+/* Print lock activity report */
+
+	if (sw_interactive) {
+		prt_lock_activity(outfile, LOCK_header, sw_interactive, sw_seconds,
+						  sw_intervals);
+		exit(FINI_OK);
+	}
+
+#ifdef NETWARE_386
+/* For Netware SuperServer - we will have other threads munging the
+ * lock table while we are trying to print it over the slow remote
+ * link.  Therefore, ALWAYS insist on a consistent copy before doing
+ * the dump.
+ */
+	sw_consistency = TRUE;
+#endif
+
+	if (sw_consistency) {
+		/* To avoid changes in the lock file while we are dumping it - make
+		 * a local buffer, lock the lock file, copy it, then unlock the
+		 * lock file to let processing continue.  Printing of the lock file
+		 * will continue from the in-memory copy.
+		 */
+		header = (LHB) gds__alloc(LOCK_header->lhb_length);
+		if (!header) {
+			FPRINTF(outfile,
+					"Insufficient memory for consistent lock statistics.\n");
+#ifndef NETWARE_386
+			FPRINTF(outfile, "Try omitting the -c switch.\n");
+#endif
+			exit(FINI_OK);
+		}
+
+		ISC_mutex_lock(LOCK_header->lhb_mutex);
+		memcpy(header, LOCK_header, LOCK_header->lhb_length);
+		ISC_mutex_unlock(LOCK_header->lhb_mutex);
+		LOCK_header = header;
+	}
+
+/* Print lock header block */
+
+	FPRINTF(outfile, "LOCK_HEADER BLOCK\n");
+	FPRINTF(outfile,
+			"\tVersion: %d, Active owner: %6d, Length: %6d, Used: %6d\n",
+			LOCK_header->lhb_version, LOCK_header->lhb_active_owner,
+			LOCK_header->lhb_length, LOCK_header->lhb_used);
+
+#ifdef MANAGER_PROCESS
+	manager_pid = 0;
+	if (LOCK_header->lhb_manager) {
+		manager = (OWN) ABS_PTR(LOCK_header->lhb_manager);
+		manager_pid = manager->own_process_id;
+	}
+
+	FPRINTF(outfile, "\tLock manager pid: %6d\n", manager_pid);
+#endif
+
+	FPRINTF(outfile, "\tSemmask: 0x%X, Flags: 0x%04X\n",
+			LOCK_header->lhb_mask, LOCK_header->lhb_flags);
+
+	FPRINTF(outfile,
+			"\tEnqs: %6d, Converts: %6d, Rejects: %6d, Blocks: %6d\n",
+			LOCK_header->lhb_enqs, LOCK_header->lhb_converts,
+			LOCK_header->lhb_denies, LOCK_header->lhb_blocks);
+
+	FPRINTF(outfile,
+			"\tDeadlock scans: %6d, Deadlocks: %6d, Scan interval: %3d\n",
+			LOCK_header->lhb_scans, LOCK_header->lhb_deadlocks,
+			LOCK_header->lhb_scan_interval);
+
+	FPRINTF(outfile,
+			"\tAcquires: %6d, Acquire blocks: %6d, Spin count: %3d\n",
+			LOCK_header->lhb_acquires, LOCK_header->lhb_acquire_blocks,
+			LOCK_header->lhb_acquire_spins);
+
+	if (LOCK_header->lhb_acquire_blocks) {
+		bottleneck =
+			(float) ((100. * LOCK_header->lhb_acquire_blocks) /
+					 LOCK_header->lhb_acquires);
+		FPRINTF(outfile, "\tMutex wait: %3.1f%%\n", bottleneck);
+	}
+	else
+		FPRINTF(outfile, "\tMutex wait: 0.0%%\n");
+
+	hash_total_count = hash_max_count = 0;
+	hash_min_count = 10000000;
+	for (slot = LOCK_header->lhb_hash, i = 0; i < LOCK_header->lhb_hash_slots;
+		 slot++, i++) {
+		hash_lock_count = 0;
+		for (que = (SRQ) ABS_PTR(slot->srq_forward); que != slot;
+			 que = (SRQ) ABS_PTR(que->srq_forward)) {
+			++hash_total_count;
+			++hash_lock_count;
+		}
+		if (hash_lock_count < hash_min_count)
+			hash_min_count = hash_lock_count;
+		if (hash_lock_count > hash_max_count)
+			hash_max_count = hash_lock_count;
+	}
+
+	FPRINTF(outfile, "\tHash slots: %4d, ", LOCK_header->lhb_hash_slots);
+
+	FPRINTF(outfile, "Hash lengths (min/avg/max): %4d/%4d/%4d\n",
+			hash_min_count, (hash_total_count / LOCK_header->lhb_hash_slots),
+			hash_max_count);
+
+	if (LOCK_header->lhb_secondary != LHB_PATTERN) {
+		shb = (SHB) ABS_PTR(LOCK_header->lhb_secondary);
+		FPRINTF(outfile,
+				"\tRemove node: %6d, Insert queue: %6d, Insert prior: %6d\n",
+				shb->shb_remove_node, shb->shb_insert_que,
+				shb->shb_insert_prior);
+	}
+
+	prt_que(outfile, LOCK_header, "\tOwners", &LOCK_header->lhb_owners,
+			OFFSET(OWN, own_lhb_owners));
+	prt_que(outfile, LOCK_header, "\tFree owners",
+			&LOCK_header->lhb_free_owners, OFFSET(OWN, own_lhb_owners));
+	prt_que(outfile, LOCK_header, "\tFree locks",
+			&LOCK_header->lhb_free_locks, OFFSET(LBL, lbl_lhb_hash));
+	prt_que(outfile, LOCK_header, "\tFree requests",
+			&LOCK_header->lhb_free_requests, OFFSET(LRQ, lrq_lbl_requests));
+
+/* Print lock ordering option */
+
+	FPRINTF(outfile, "\tLock Ordering: %s\n",
+			(LOCK_header->
+			 lhb_flags & LHB_lock_ordering) ? "Enabled" : "Disabled");
+	FPRINTF(outfile, "\n");
+
+/* Print known owners */
+
+	if (sw_owners) {
+#ifdef SOLARIS_MT
+		/* The Lock Starvation recovery code on Solaris rotates the owner
+		   queue once per acquire.  This makes it difficult to read the
+		   printouts when multiple runs are made.  So we scan the list
+		   of owners once to find the lowest owner_id, and start the printout
+		   from there. */
+		PTR least_owner_id = 0x7FFFFFFF;
+		SRQ least_owner_ptr = &LOCK_header->lhb_owners;
+		QUE_LOOP(LOCK_header->lhb_owners, que) {
+			OWN this_owner;
+			this_owner = (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners));
+			if (REL_PTR(this_owner) < least_owner_id) {
+				least_owner_id = REL_PTR(this_owner);
+				least_owner_ptr = que;
+			}
+		}
+		que = least_owner_ptr;
+		do {
+			if (que != &LOCK_header->lhb_owners)
+				prt_owner(outfile, LOCK_header,
+						  (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners)),
+						  sw_requests, sw_waitlist);
+			que = QUE_NEXT((*que));
+		}
+		while (que != least_owner_ptr);
+#else
+		QUE_LOOP(LOCK_header->lhb_owners, que) {
+			prt_owner(outfile, LOCK_header,
+					  (OWN) ((UCHAR *) que - OFFSET(OWN, own_lhb_owners)),
+					  sw_requests, sw_waitlist);
+		}
+#endif /* SOLARIS_MT */
+	}
+
+/* Print known locks */
+
+	if (sw_locks || sw_series)
+		for (slot = LOCK_header->lhb_hash, i = 0;
+			 i < LOCK_header->lhb_hash_slots; slot++, i++)
+			for (que = (SRQ) ABS_PTR(slot->srq_forward); que != slot;
+				 que = (SRQ) ABS_PTR(que->srq_forward))
+				prt_lock(outfile, LOCK_header,
+						 (LBL) ((UCHAR *) que - OFFSET(LBL, lbl_lhb_hash)),
+						 sw_series);
+
+	if (sw_history)
+		prt_history(outfile, LOCK_header, LOCK_header->lhb_history,
+					"History");
+
+	if (LOCK_header->lhb_secondary != LHB_PATTERN)
+		prt_history(outfile, LOCK_header, shb->shb_history, "Event log");
+
+#if !(defined WIN_NT || defined NETWARE_386)
+	if (!sw_nobridge) {
+		FPRINTF(outfile, "\nBRIDGE RESOURCES\n\n");
+		V3_lock_print(orig_argc, orig_argv);
+	}
+#endif
+
+	if (header)
+		gds__free(header);
+	exit(FINI_OK);
+}
+
+
+static void prt_lock_activity(
+							  OUTFILE outfile,
+							  LHB header,
+							  USHORT flag, USHORT seconds, USHORT intervals)
+{
+/**************************************
+ *
+ *	p r t _ l o c k _ a c t i v i t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a time-series lock activity report 
+ *
+ **************************************/
+	struct tm d;
+	ULONG clock, i;
+	struct lhb base, prior;
+	ULONG factor;
+
+	clock = time(NULL);
+	d = *localtime(&clock);
+
+	FPRINTF(outfile, "%02d:%02d:%02d ", d.tm_hour, d.tm_min, d.tm_sec);
+
+	if (flag & SW_I_ACQUIRE)
+		FPRINTF(outfile,
+				"acquire/s acqwait/s  %%acqwait acqrtry/s rtrysuc/s ");
+
+	if (flag & SW_I_OPERATION)
+		FPRINTF(outfile,
+				"enqueue/s convert/s downgrd/s dequeue/s readata/s wrtdata/s qrydata/s ");
+
+	if (flag & SW_I_TYPE)
+		FPRINTF(outfile,
+				"  dblop/s  rellop/s pagelop/s tranlop/s relxlop/s idxxlop/s misclop/s ");
+
+	if (flag & SW_I_WAIT) {
+		FPRINTF(outfile,
+				"   wait/s  reject/s timeout/s blckast/s  dirsig/s  indsig/s ");
+		FPRINTF(outfile, " wakeup/s dlkscan/s deadlck/s avlckwait(msec)");
+	}
+
+	FPRINTF(outfile, "\n");
+
+	base = *header;
+	prior = *header;
+	if (intervals == 0)
+		memset(&base, 0, sizeof(base));
+
+	for (i = 0; i < intervals; i++) {
+#ifdef WIN_NT
+		Sleep((DWORD) seconds * 1000);
+#else
+#ifdef NETWARE_386
+		delay(seconds * 1000);
+#else
+		sleep(seconds);
+#endif
+#endif
+		clock = time(NULL);
+		d = *localtime(&clock);
+
+		FPRINTF(outfile, "%02d:%02d:%02d ", d.tm_hour, d.tm_min, d.tm_sec);
+
+		if (flag & SW_I_ACQUIRE) {
+			FPRINTF(outfile, "%9d %9d %9d %9d %9d ",
+					(header->lhb_acquires - prior.lhb_acquires) / seconds,
+					(header->lhb_acquire_blocks -
+					 prior.lhb_acquire_blocks) / seconds,
+					(header->lhb_acquires -
+					 prior.lhb_acquires) ? (100 *
+											(header->lhb_acquire_blocks -
+											 prior.lhb_acquire_blocks)) /
+					(header->lhb_acquires - prior.lhb_acquires) : 0,
+					(header->lhb_acquire_retries -
+					 prior.lhb_acquire_retries) / seconds,
+					(header->lhb_retry_success -
+					 prior.lhb_retry_success) / seconds);
+
+			prior.lhb_acquires = header->lhb_acquires;
+			prior.lhb_acquire_blocks = header->lhb_acquire_blocks;
+			prior.lhb_acquire_retries = header->lhb_acquire_retries;
+			prior.lhb_retry_success = header->lhb_retry_success;
+		}
+
+		if (flag & SW_I_OPERATION) {
+			FPRINTF(outfile, "%9d %9d %9d %9d %9d %9d %9d ",
+					(header->lhb_enqs - prior.lhb_enqs) / seconds,
+					(header->lhb_converts - prior.lhb_converts) / seconds,
+					(header->lhb_downgrades - prior.lhb_downgrades) / seconds,
+					(header->lhb_deqs - prior.lhb_deqs) / seconds,
+					(header->lhb_read_data - prior.lhb_read_data) / seconds,
+					(header->lhb_write_data - prior.lhb_write_data) / seconds,
+					(header->lhb_query_data -
+					 prior.lhb_query_data) / seconds);
+
+			prior.lhb_enqs = header->lhb_enqs;
+			prior.lhb_converts = header->lhb_converts;
+			prior.lhb_downgrades = header->lhb_downgrades;
+			prior.lhb_deqs = header->lhb_deqs;
+			prior.lhb_read_data = header->lhb_read_data;
+			prior.lhb_write_data = header->lhb_write_data;
+			prior.lhb_query_data = header->lhb_query_data;
+		}
+
+		if (flag & SW_I_TYPE) {
+			FPRINTF(outfile, "%9d %9d %9d %9d %9d %9d %9d ",
+					(header->lhb_operations[LCK_database] -
+					 prior.lhb_operations[LCK_database]) / seconds,
+					(header->lhb_operations[LCK_relation] -
+					 prior.lhb_operations[LCK_relation]) / seconds,
+					(header->lhb_operations[LCK_bdb] -
+					 prior.lhb_operations[LCK_bdb]) / seconds,
+					(header->lhb_operations[LCK_tra] -
+					 prior.lhb_operations[LCK_tra]) / seconds,
+					(header->lhb_operations[LCK_rel_exist] -
+					 prior.lhb_operations[LCK_rel_exist]) / seconds,
+					(header->lhb_operations[LCK_idx_exist] -
+					 prior.lhb_operations[LCK_idx_exist]) / seconds,
+					(header->lhb_operations[0] -
+					 prior.lhb_operations[0]) / seconds);
+
+			prior.lhb_operations[LCK_database] =
+				header->lhb_operations[LCK_database];
+			prior.lhb_operations[LCK_relation] =
+				header->lhb_operations[LCK_relation];
+			prior.lhb_operations[LCK_bdb] = header->lhb_operations[LCK_bdb];
+			prior.lhb_operations[LCK_tra] = header->lhb_operations[LCK_tra];
+			prior.lhb_operations[LCK_rel_exist] =
+				header->lhb_operations[LCK_rel_exist];
+			prior.lhb_operations[LCK_idx_exist] =
+				header->lhb_operations[LCK_idx_exist];
+			prior.lhb_operations[0] = header->lhb_operations[0];
+		}
+
+		if (flag & SW_I_WAIT) {
+			FPRINTF(outfile, "%9d %9d %9d %9d %9d %9d %9d %9d %9d %9d ",
+					(header->lhb_waits - prior.lhb_waits) / seconds,
+					(header->lhb_denies - prior.lhb_denies) / seconds,
+					(header->lhb_timeouts - prior.lhb_timeouts) / seconds,
+					(header->lhb_blocks - prior.lhb_blocks) / seconds,
+					(header->lhb_direct_sigs -
+					 prior.lhb_direct_sigs) / seconds,
+					(header->lhb_indirect_sigs -
+					 prior.lhb_indirect_sigs) / seconds,
+					(header->lhb_wakeups - prior.lhb_wakeups) / seconds,
+					(header->lhb_scans - prior.lhb_scans) / seconds,
+					(header->lhb_deadlocks - prior.lhb_deadlocks) / seconds,
+					(header->lhb_waits -
+					 prior.lhb_waits) ? (header->lhb_wait_time -
+										 prior.lhb_wait_time) /
+					(header->lhb_waits - prior.lhb_waits) : 0);
+
+			prior.lhb_waits = header->lhb_waits;
+			prior.lhb_denies = header->lhb_denies;
+			prior.lhb_timeouts = header->lhb_timeouts;
+			prior.lhb_blocks = header->lhb_blocks;
+			prior.lhb_direct_sigs = header->lhb_direct_sigs;
+			prior.lhb_indirect_sigs = header->lhb_indirect_sigs;
+			prior.lhb_wakeups = header->lhb_wakeups;
+			prior.lhb_scans = header->lhb_scans;
+			prior.lhb_deadlocks = header->lhb_deadlocks;
+			prior.lhb_wait_time = header->lhb_wait_time;
+		}
+
+		FPRINTF(outfile, "\n");
+	}
+
+	factor = seconds * intervals;
+	if (factor < 1)
+		factor = 1;
+
+	FPRINTF(outfile, "\nAverage: ");
+	if (flag & SW_I_ACQUIRE) {
+		FPRINTF(outfile, "%9d %9d %9d %9d %9d ",
+				(header->lhb_acquires - base.lhb_acquires) / (factor),
+				(header->lhb_acquire_blocks -
+				 base.lhb_acquire_blocks) / (factor),
+				(header->lhb_acquires -
+				 base.lhb_acquires) ? (100 * (header->lhb_acquire_blocks -
+											  base.lhb_acquire_blocks)) /
+				(header->lhb_acquires - base.lhb_acquires) : 0,
+				(header->lhb_acquire_retries -
+				 base.lhb_acquire_retries) / (factor),
+				(header->lhb_retry_success -
+				 base.lhb_retry_success) / (factor));
+	}
+
+	if (flag & SW_I_OPERATION) {
+		FPRINTF(outfile, "%9d %9d %9d %9d %9d %9d %9d ",
+				(header->lhb_enqs - base.lhb_enqs) / (factor),
+				(header->lhb_converts - base.lhb_converts) / (factor),
+				(header->lhb_downgrades - base.lhb_downgrades) / (factor),
+				(header->lhb_deqs - base.lhb_deqs) / (factor),
+				(header->lhb_read_data - base.lhb_read_data) / (factor),
+				(header->lhb_write_data - base.lhb_write_data) / (factor),
+				(header->lhb_query_data - base.lhb_query_data) / (factor));
+	}
+
+	if (flag & SW_I_TYPE) {
+		FPRINTF(outfile, "%9d %9d %9d %9d %9d %9d %9d ",
+				(header->lhb_operations[LCK_database] -
+				 base.lhb_operations[LCK_database]) / (factor),
+				(header->lhb_operations[LCK_relation] -
+				 base.lhb_operations[LCK_relation]) / (factor),
+				(header->lhb_operations[LCK_bdb] -
+				 base.lhb_operations[LCK_bdb]) / (factor),
+				(header->lhb_operations[LCK_tra] -
+				 base.lhb_operations[LCK_tra]) / (factor),
+				(header->lhb_operations[LCK_rel_exist] -
+				 base.lhb_operations[LCK_rel_exist]) / (factor),
+				(header->lhb_operations[LCK_idx_exist] -
+				 base.lhb_operations[LCK_idx_exist]) / (factor),
+				(header->lhb_operations[0] -
+				 base.lhb_operations[0]) / (factor));
+	}
+
+	if (flag & SW_I_WAIT) {
+		FPRINTF(outfile, "%9d %9d %9d %9d %9d %9d %9d %9d %9d %9d ",
+				(header->lhb_waits - base.lhb_waits) / (factor),
+				(header->lhb_denies - base.lhb_denies) / (factor),
+				(header->lhb_timeouts - base.lhb_timeouts) / (factor),
+				(header->lhb_blocks - base.lhb_blocks) / (factor),
+				(header->lhb_direct_sigs - base.lhb_direct_sigs) / (factor),
+				(header->lhb_indirect_sigs -
+				 base.lhb_indirect_sigs) / (factor),
+				(header->lhb_wakeups - base.lhb_wakeups) / (factor),
+				(header->lhb_scans - base.lhb_scans) / (factor),
+				(header->lhb_deadlocks - base.lhb_deadlocks) / (factor),
+				(header->lhb_waits -
+				 base.lhb_waits) ? (header->lhb_wait_time -
+									base.lhb_wait_time) / (header->lhb_waits -
+														   base.
+														   lhb_waits) : 0);
+	}
+
+	FPRINTF(outfile, "\n");
+}
+
+
+static void prt_lock_init(void)
+{
+/**************************************
+ *
+ *      l o c k _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Initialize a lock table to looking -- i.e. don't do
+ *      nuthin.
+ *
+ **************************************/
+}
+
+
+static void prt_history(
+						OUTFILE outfile,
+						LHB LOCK_header, PTR history_header, SCHAR * title)
+{
+/**************************************
+ *
+ *      p r t _ h i s t o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Print history list of lock table.
+ *
+ **************************************/
+	HIS history;
+
+	FPRINTF(outfile, "%s:\n", title);
+
+	for (history = (HIS) ABS_PTR(history_header); TRUE;
+		 history = (HIS) ABS_PTR(history->his_next)) {
+		if (history->his_operation)
+			FPRINTF(outfile,
+					"    %s:\towner = %6d, lock = %6d, request = %6d\n",
+					history_names[history->his_operation],
+					history->his_process, history->his_lock,
+					history->his_request);
+		if (history->his_next == history_header)
+			break;
+	}
+}
+
+
+static void prt_lock(
+					 OUTFILE outfile,
+					 LHB LOCK_header, LBL lock, USHORT sw_series)
+{
+/**************************************
+ *
+ *      p r t _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Print a formatted lock block 
+ *
+ **************************************/
+	SRQ que;
+	LRQ request;
+
+	if (sw_series && lock->lbl_series != sw_series)
+		return;
+
+	FPRINTF(outfile, "LOCK BLOCK %6d\n", REL_PTR(lock));
+	FPRINTF(outfile,
+			"\tSeries: %d, Parent: %6d, State: %d, size: %d length: %d data: %d\n",
+			lock->lbl_series, lock->lbl_parent, lock->lbl_state,
+			lock->lbl_size, lock->lbl_length, lock->lbl_data);
+
+	if (lock->lbl_length == 4) {
+		SLONG key;
+		UCHAR *p, *q, *end;
+		p = (UCHAR *) & key;
+		q = lock->lbl_key;
+		for (end = q + 4; q < end; q++)
+			*p++ = *q;
+		FPRINTF(outfile, "\tKey: %06u,", key);
+	}
+	else {
+		UCHAR c, *p, *q, *end, temp[512];
+		q = lock->lbl_key;
+		for (p = temp, end = q + lock->lbl_length; q < end; q++) {
+			c = *q;
+			if ((c >= 'a' && c <= 'z') ||
+				(c >= 'A' && c <= 'Z') || (c >= '0' && c <= '9') || c == '/')
+				*p++ = c;
+			else {
+				sprintf(p, "<%d>", c);
+				while (*p)
+					p++;
+			}
+		}
+		*p = 0;
+		FPRINTF(outfile, "\tKey: %s,", temp);
+	}
+
+	FPRINTF(outfile, " Flags: 0x%02X, Pending request count: %6d\n",
+			lock->lbl_flags, lock->lbl_pending_lrq_count);
+
+	prt_que(outfile, LOCK_header, "\tHash que", &lock->lbl_lhb_hash,
+			OFFSET(LBL, lbl_lhb_hash));
+
+	prt_que(outfile, LOCK_header, "\tRequests", &lock->lbl_requests,
+			OFFSET(LRQ, lrq_lbl_requests));
+
+	QUE_LOOP(lock->lbl_requests, que) {
+		request = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_lbl_requests));
+		FPRINTF(outfile,
+				"\t\tRequest %6d, Owner: %6d, State: %d (%d), Flags: 0x%02X\n",
+				REL_PTR(request), request->lrq_owner, request->lrq_state,
+				request->lrq_requested, request->lrq_flags);
+	}
+
+	FPRINTF(outfile, "\n");
+}
+
+
+static void prt_owner(
+					  OUTFILE outfile,
+					  LHB LOCK_header,
+					  OWN owner, BOOLEAN sw_requests, BOOLEAN sw_waitlist)
+{
+/**************************************
+ *
+ *      p r t _ o w n e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Print a formatted owner block.
+ *
+ **************************************/
+	SRQ que;
+
+	FPRINTF(outfile, "OWNER BLOCK %6d\n", REL_PTR(owner));
+	FPRINTF(outfile,
+			"\tOwner id: %6d, type: %1d, flags: 0x%02X, pending: %6d, semid: %6d ",
+			owner->own_owner_id, owner->own_owner_type,
+			(owner->own_flags | (UCHAR) owner->own_ast_flags),
+			owner->own_pending_request, owner->own_semaphore & ~OWN_semavail);
+	if (owner->own_semaphore & OWN_semavail)
+		FPRINTF(outfile, "(available)\n");
+	else
+		FPRINTF(outfile, "\n");
+
+	FPRINTF(outfile, "\tProcess id: %6d, UID: 0x%X  %s\n",
+			owner->own_process_id,
+			owner->own_process_uid,
+			ISC_check_process_existence(owner->own_process_id,
+										owner->own_process_uid,
+										FALSE) ? "Alive" : "Dead");
+#ifdef SOLARIS_MT
+	FPRINTF(outfile, "\tLast Acquire: %6d (%6d ago)",
+			owner->own_acquire_time,
+			LOCK_header->lhb_acquires - owner->own_acquire_time);
+#ifdef DEV_BUILD
+	FPRINTF(outfile, " sec %9ld (%3d sec ago)",
+			owner->own_acquire_realtime,
+			time(NULL) - owner->own_acquire_realtime);
+#endif /* DEV_BUILD */
+	FPRINTF(outfile, "\n");
+#endif /* SOLARIS_MT */
+	{
+		UCHAR tmp;
+		tmp = (owner->own_flags | (UCHAR) owner->own_ast_flags
+			   | (UCHAR) owner->own_ast_hung_flags);
+		FPRINTF(outfile, "\tFlags: 0x%02X ", tmp);
+		FPRINTF(outfile, " %s", (tmp & OWN_hung) ? "hung" : "    ");
+		FPRINTF(outfile, " %s", (tmp & OWN_blocking) ? "blkg" : "    ");
+		FPRINTF(outfile, " %s", (tmp & OWN_starved) ? "STRV" : "    ");
+		FPRINTF(outfile, " %s", (tmp & OWN_signal) ? "sgnl" : "    ");
+		FPRINTF(outfile, " %s", (tmp & OWN_wakeup) ? "wake" : "    ");
+		FPRINTF(outfile, " %s", (tmp & OWN_scanned) ? "scan" : "    ");
+		FPRINTF(outfile, "\n");
+	}
+
+	prt_que(outfile, LOCK_header, "\tRequests", &owner->own_requests,
+			OFFSET(LRQ, lrq_own_requests));
+	prt_que(outfile, LOCK_header, "\tBlocks", &owner->own_blocks,
+			OFFSET(LRQ, lrq_own_blocks));
+
+	if (sw_waitlist) {
+		struct waitque owner_list;
+		owner_list.waitque_depth = 0;
+		prt_owner_wait_cycle(outfile, LOCK_header, owner, 8, &owner_list);
+	}
+
+	FPRINTF(outfile, "\n");
+
+	if (sw_requests)
+		QUE_LOOP(owner->own_requests, que)
+			prt_request(outfile, LOCK_header,
+						(LRQ) ((UCHAR *) que -
+							   OFFSET(LRQ, lrq_own_requests)));
+}
+
+
+static void prt_owner_wait_cycle(
+								 OUTFILE outfile,
+								 LHB LOCK_header,
+								 OWN owner,
+								 USHORT indent, struct waitque *waiters)
+{
+/**************************************
+ *
+ *      p r t _ o w n e r _ w a i t _ c y c l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	For the given owner, print out the list of owners
+ *	being waited on.  The printout is recursive, up to
+ *	a limit.  It is recommended this be used with 
+ *	the -c consistency mode.
+ *
+ **************************************/
+	USHORT i;
+
+	for (i = indent; i; i--)
+		FPRINTF(outfile, " ");
+
+/* Check to see if we're in a cycle of owners - this might be
+   a deadlock, or might not, if the owners haven't processed
+   their blocking queues */
+
+	for (i = 0; i < waiters->waitque_depth; i++)
+		if (REL_PTR(owner) == waiters->waitque_entry[i]) {
+			FPRINTF(outfile, "%6d (potential deadlock).\n", REL_PTR(owner));
+			return;
+		};
+
+	FPRINTF(outfile, "%6d waits on ", REL_PTR(owner));
+
+	if (!owner->own_pending_request)
+		FPRINTF(outfile, "nothing.\n");
+	else {
+		SRQ que;
+		LRQ owner_request;
+		LBL lock;
+		USHORT counter;
+		BOOLEAN owner_conversion;
+
+		if (waiters->waitque_depth > COUNT(waiters->waitque_entry)) {
+			FPRINTF(outfile, "Dependency too deep\n");
+			return;
+		};
+
+		waiters->waitque_entry[waiters->waitque_depth++] = REL_PTR(owner);
+
+		FPRINTF(outfile, "\n");
+		owner_request = ABS_PTR(owner->own_pending_request);
+		assert(owner_request->lrq_type == type_lrq);
+		owner_conversion =
+			(owner_request->lrq_state > LCK_null) ? TRUE : FALSE;
+
+		lock = ABS_PTR(owner_request->lrq_lock);
+		assert(lock->lbl_type == type_lbl);
+
+		counter = 0;
+		QUE_LOOP(lock->lbl_requests, que) {
+			OWN lock_owner;
+			LRQ lock_request;
+
+			if (counter++ > 50) {
+				for (i = indent + 6; i; i--)
+					FPRINTF(outfile, " ");
+				FPRINTF(outfile, "printout stopped after %d owners\n",
+						counter - 1);
+				break;
+			}
+
+			lock_request =
+				(LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_lbl_requests));
+			assert(lock_request->lrq_type == type_lrq);
+
+
+			if (LOCK_header->lhb_flags & LHB_lock_ordering
+				&& !owner_conversion) {
+
+				/* Requests AFTER our request can't block us */
+				if (owner_request == lock_request)
+					break;
+
+				if (COMPATIBLE(owner_request->lrq_requested,
+							   MAX(lock_request->lrq_state,
+								   lock_request->lrq_requested))) continue;
+			}
+			else {
+
+				/* Requests AFTER our request CAN block us */
+				if (lock_request == owner_request)
+					continue;
+
+				if (COMPATIBLE
+					(owner_request->lrq_requested,
+					 lock_request->lrq_state)) continue;
+			};
+			lock_owner = ABS_PTR(lock_request->lrq_owner);
+			prt_owner_wait_cycle(outfile, LOCK_header, lock_owner, indent + 4,
+								 waiters);
+		}
+		waiters->waitque_depth--;
+	}
+}
+
+
+static void prt_request( OUTFILE outfile, LHB LOCK_header, LRQ request)
+{
+/**************************************
+ *
+ *      p r t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Print a format request block.
+ *
+ **************************************/
+
+	FPRINTF(outfile, "REQUEST BLOCK %6d\n", REL_PTR(request));
+	FPRINTF(outfile,
+			"\tOwner: %6d, Lock: %6d, State: %d, Mode: %d, Flags: 0x%02X\n",
+			request->lrq_owner, request->lrq_lock, request->lrq_state,
+			request->lrq_requested, request->lrq_flags);
+	FPRINTF(outfile, "\tAST: 0x%X, argument: 0x%X\n",
+			request->lrq_ast_routine, request->lrq_ast_argument);
+	prt_que2(outfile, LOCK_header, "\tlrq_own_requests",
+			 &request->lrq_own_requests, OFFSET(LRQ, lrq_own_requests));
+	prt_que2(outfile, LOCK_header, "\tlrq_lbl_requests",
+			 &request->lrq_lbl_requests, OFFSET(LRQ, lrq_lbl_requests));
+	prt_que2(outfile, LOCK_header, "\tlrq_own_blocks  ",
+			 &request->lrq_own_blocks, OFFSET(LRQ, lrq_own_blocks));
+	FPRINTF(outfile, "\n");
+}
+
+
+static void prt_que(
+					OUTFILE outfile,
+					LHB LOCK_header,
+					SCHAR * string, SRQ que, USHORT que_offset)
+{
+/**************************************
+ *
+ *      p r t _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Print the contents of a self-relative que.
+ *
+ **************************************/
+	SLONG count, offset;
+	SRQ next;
+
+	offset = REL_PTR(que);
+
+	if (offset == que->srq_forward && offset == que->srq_backward) {
+		FPRINTF(outfile, "%s: *empty*\n", string);
+		return;
+	}
+
+	count = 0;
+
+	QUE_LOOP((*que), next)
+		++ count;
+
+	FPRINTF(outfile, "%s (%ld):\tforward: %6d, backward: %6d\n",
+			string, count,
+			que->srq_forward - que_offset, que->srq_backward - que_offset);
+}
+
+
+static void prt_que2(
+					 OUTFILE outfile,
+					 LHB LOCK_header,
+					 SCHAR * string, SRQ que, USHORT que_offset)
+{
+/**************************************
+ *
+ *      p r t _ q u e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Print the contents of a self-relative que.
+ *      But don't try to count the entries, as they might be invalid
+ *
+ **************************************/
+	SLONG offset;
+
+	offset = REL_PTR(que);
+
+	if (offset == que->srq_forward && offset == que->srq_backward) {
+		FPRINTF(outfile, "%s: *empty*\n", string);
+		return;
+	}
+
+	FPRINTF(outfile, "%s:\tforward: %6d, backward: %6d\n",
+			string,
+			que->srq_forward - que_offset, que->srq_backward - que_offset);
+}
diff --git a/src/lock/printv3.cpp b/src/lock/printv3.cpp
new file mode 100644
index 0000000000..baaaae813e
--- /dev/null
+++ b/src/lock/printv3.cpp
@@ -0,0 +1,508 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		printv3.c
+ *	DESCRIPTION:	Version 3 lock Table printer
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <sys/param.h>
+#ifdef IMP
+#include <sys/types.h>
+#endif
+#include <sys/stat.h>
+
+#include "../jrd/common.h"
+#include "../jrd/isc.h"
+#include "../lock/lockv3.h"
+#include "../lock/prtv3_proto.h"
+
+#ifndef FOPEN_READ_TYPE
+#define FOPEN_READ_TYPE	"r"
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	256
+#endif
+
+extern LHB ISC_map_file();
+
+static USHORT sw_requests, sw_processes, sw_locks, sw_series, sw_history,
+	sw_mutex;
+
+static LHB LOCK_header;
+static int LOCK_shmid, LOCK_semid, LOCK_pid;
+static LRQ LOCK_wait_request;
+static long LOCK_shm_size = DEFAULT_SIZE;
+
+static struct {
+	char *tptr;
+	long *vptr;
+} LOCK_hdrtbl[] = {
+"SHMSIZE", &LOCK_shm_size, NULL, NULL};
+
+static prt_lock_init();
+
+static TEXT *history_names[] = {
+	"n/a", "ENQ", "DEQ", "CONVERT", "SIGNAL", "POST", "WAIT",
+	"DEL_PROC", "DEL_LOCK", "DEL_REQ", "DENY", "GRANT", "LEAVE",
+	"SCAN", "DEAD", "ENTER", "BUG", "ACTIVE"
+};
+
+
+static UCHAR compatibility[] = {
+
+/*				Shared	Prot	Shared	Prot
+		none	null	 Read	Read	Write	Write	Exclusive */
+
+/* none */ 1, 1, 1, 1, 1, 1, 1,
+/* null */ 1, 1, 1, 1, 1, 1, 1,
+/* SR */ 1, 1, 1, 1, 1, 1, 0,
+/* PR */ 1, 1, 1, 1, 0, 0, 0,
+/* SW */ 1, 1, 1, 0, 1, 0, 0,
+/* PW */ 1, 1, 1, 0, 0, 0, 0,
+/* EX */ 1, 1, 0, 0, 0, 0, 0
+};
+
+#define COMPATIBLE(st1, st2)	compatibility [st1 * LCK_max + st2]
+
+
+V3_lock_print(argc, argv)
+	 USHORT argc;
+	 UCHAR *argv[];
+{
+/**************************************
+ *
+ *	V 3 _ l o c k _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a v3 lock table for v4
+ *
+ **************************************/
+	USHORT name_length, i;
+	long start, length;
+	int fd;
+	SHB shb;
+	SRQ que, slot;
+	PRB process;
+	LBL lock;
+	UCHAR *p, c;
+	STATUS status_vector[20];
+	SH_MEM_T shmem_data;
+	TEXT expanded_filename[512], hostname[64];
+	struct stat stat_buf;
+
+/* Handle switches, etc. */
+
+	argv++;
+	sw_processes = TRUE;
+
+	while (--argc) {
+		p = *argv++;
+		while (c = *p++)
+			switch (c) {
+			case 'o':			/* Owners: compatible with v4 */
+			case 'p':
+				sw_processes = TRUE;
+				break;
+
+			case 'l':
+				sw_locks = TRUE;
+				break;
+
+			case 'r':
+				sw_requests = TRUE;
+				break;
+
+			case 'a':
+				sw_locks = TRUE;
+				sw_processes = TRUE;
+				sw_requests = TRUE;
+				sw_history = TRUE;
+				break;
+
+			case 'h':
+				sw_history = TRUE;
+				break;
+
+			case 's':
+				sw_series = atoi(*argv++);
+				--argc;
+				break;
+
+			case '-':
+				break;
+
+			default:
+				/* Silently ignore invalid options - 
+				 *  the V4 option parser reported any appropriate error */
+				break;
+			}
+	}
+
+/* first, make sure there's a v3 lock table */
+
+#ifdef NOHOSTNAME
+	strcpy(expanded_filename, LOCK_FILE);
+#else
+	sprintf(expanded_filename, LOCK_FILE,
+			ISC_get_host(hostname, sizeof(hostname)));
+#endif
+	if (stat(expanded_filename, &stat_buf)) {
+		/* Silently return - there doesn't have to be a bridge file */
+		return FAILURE;
+	}
+
+	get_lock_header();
+
+#ifdef UNIX
+	shmem_data.sh_mem_semaphores = 0;
+#endif
+	LOCK_header = (LHB) ISC_map_file(status_vector, LOCK_FILE, prt_lock_init, 0, 0,	/* Map entire length of segment */
+									 &shmem_data);
+
+/* if there's nothing mapped, there's nothing to print */
+
+	if (!shmem_data.sh_mem_length_mapped)
+		LOCK_header = (LHB) NULL;
+
+	if (LOCK_header && shmem_data.sh_mem_length_mapped < sizeof(struct lhb)) {
+		/* File is obviously too small to really be a lock file */
+		ib_printf("Bridge lock file too small.\n%s\n", expanded_filename);
+		return FAILURE;
+	}
+
+	if (LOCK_header && LOCK_header->lhb_length > LOCK_shm_size) {
+		length = LOCK_header->lhb_length;
+		LOCK_header =
+			(LHB) ISC_remap_file(status_vector, &shmem_data, length, FALSE);
+		LOCK_shm_size = length;
+	}
+
+	if (!LOCK_header) {
+		ib_printf("Unable to access bridge lock table\n");
+		gds__print_status(status_vector);
+		return FAILURE;
+	}
+
+	LOCK_shm_size = shmem_data.sh_mem_length_mapped;
+
+/* if there's no version number - admit there's nothing to say and return. */
+
+	if (!LOCK_header->lhb_version) {
+		ib_printf("LOCK_HEADER BLOCK\n");
+		ib_printf("\tNo bridge lock table present.\n");
+		return FAILURE;
+	}
+
+/* Print lock header block */
+
+	ib_printf("LOCK_HEADER BLOCK\n");
+	ib_printf("\tVersion: %d, Active process: %d, Length: %d, Used: %d\n",
+			  LOCK_header->lhb_version, LOCK_header->lhb_active_process,
+			  LOCK_header->lhb_length, LOCK_header->lhb_used);
+
+	ib_printf("\tSemmask: %x\n", LOCK_header->lhb_mask);
+
+	ib_printf("\tEnqs: %d, Converts: %d, Rejects: %d, Blocks: %d\n",
+			  LOCK_header->lhb_enqs, LOCK_header->lhb_converts,
+			  LOCK_header->lhb_denies, LOCK_header->lhb_blocks);
+
+	ib_printf("\tDeadlock scans: %d, Deadlocks: %d\n",
+			  LOCK_header->lhb_scans, LOCK_header->lhb_deadlocks);
+
+	if (LOCK_header->lhb_secondary != LHB_PATTERN) {
+		shb = (SHB) ABS_PTR(LOCK_header->lhb_secondary);
+		ib_printf("\tRemove node: %d, Insert queue: %d, Insert prior: %d\n",
+				  shb->shb_remove_node, shb->shb_insert_que,
+				  shb->shb_insert_prior);
+	}
+
+	prt_que("\tProcesses", &LOCK_header->lhb_processes);
+	prt_que("\tFree processes", &LOCK_header->lhb_free_processes);
+	prt_que("\tFree locks", &LOCK_header->lhb_free_locks);
+	prt_que("\tFree requests", &LOCK_header->lhb_free_requests);
+	ib_printf("\n");
+
+/* Print known processes */
+
+	if (sw_processes)
+		QUE_LOOP(LOCK_header->lhb_processes, que)
+			prt_process((UCHAR *) que - OFFSET(PRB, prb_lhb_processes));
+
+/* Print known locks */
+
+	if (sw_locks || sw_series)
+		for (slot = LOCK_header->lhb_hash, i = 0;
+			 i < LOCK_header->lhb_hash_slots; slot++, i++)
+			for (que = (SRQ) ABS_PTR(slot->srq_forward); que != slot;
+				 que = (SRQ) ABS_PTR(que->srq_forward))
+				prt_lock((UCHAR *) que - OFFSET(LBL, lbl_lhb_hash));
+
+	if (sw_history)
+		prt_history(LOCK_header->lhb_history, "History");
+
+	if (LOCK_header->lhb_secondary != LHB_PATTERN)
+		prt_history(shb->shb_history, "Event log");
+
+	return SUCCESS;
+}
+
+
+static get_lock_header()
+{
+/*************************************
+ *
+ *	g e t _ l o c k _ h e a d e r
+ *
+ *************************************
+ *
+ * Functional description
+ *	Read user-defined values for shared memory
+ *		and semaphores from LOCK_HEADER.
+ *
+ ************************************/
+	IB_FILE *fd;
+	char *p, *q, buf[40];
+	int i, atoi();
+
+	if (fd = ib_fopen(LOCK_HEADER, FOPEN_READ_TYPE)) {
+		while (p = ib_fgets(buf, 40, fd))
+			for (i = 0; q = LOCK_hdrtbl[i].tptr; i++) {
+				p = buf;
+				while (*p++ == *q++);
+				if (!*--q) {
+					*LOCK_hdrtbl[i].vptr = atoi(p);
+					break;
+				}
+			}
+		ib_fclose(fd);
+	}
+}
+
+
+static prt_lock_init()
+{
+/**************************************
+ *
+ *	l o c k _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a lock table to looking -- i.e. don't do
+ *	nuthin.
+ *
+ **************************************/
+}
+
+
+static prt_history(history_header, title)
+	 PTR history_header;
+	 char *title;
+{
+/**************************************
+ *
+ *	p r t _ h i s t o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print history list of lock table.
+ *
+ **************************************/
+	HIS history;
+
+	ib_printf("%s:\n", title);
+
+	for (history = (HIS) ABS_PTR(history_header); TRUE;
+		 history = (HIS) ABS_PTR(history->his_next)) {
+		if (history->his_operation)
+			ib_printf("    %s:\tprocess = %d, lock = %d, request = %d\n",
+					  history_names[history->his_operation],
+					  history->his_process, history->his_lock,
+					  history->his_request);
+		if (history->his_next == history_header)
+			break;
+	}
+}
+
+
+static prt_lock(lock)
+	 LBL lock;
+{
+/**************************************
+ *
+ *	p r t _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a formatted lock block 
+ *
+ **************************************/
+	long key;
+	UCHAR c, *p, *q, *end, temp[512];
+	SRQ que;
+	LRQ request;
+
+	if (sw_series && lock->lbl_series != sw_series)
+		return;
+
+	if (LOCK_header->lhb_version >= LHB_VERSION7)
+		q = lock->lbl_key7;
+	else
+		q = lock->lbl_key5;
+	for (p = temp, end = q + lock->lbl_length; q < end; q++) {
+		c = *q;
+		if ((c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z') || c == '/')
+			*p++ = c;
+		else {
+			sprintf(p, "<%d>", c);
+			while (*p)
+				p++;
+		}
+	}
+
+	*p = 0;
+
+	ib_printf("LOCK BLOCK %d\n", REL_PTR(lock));
+	ib_printf
+		("\tSeries: %d, Parent: %d, State: %d, size: %d length: %d data: %d\n",
+		 lock->lbl_series, lock->lbl_parent, lock->lbl_state, lock->lbl_size,
+		 lock->lbl_length, lock->lbl_data);
+
+	if (lock->lbl_length == 4) {
+		p = (UCHAR *) & key;
+		if (LOCK_header->lhb_version >= LHB_VERSION7)
+			q = lock->lbl_key7;
+		else
+			q = lock->lbl_key5;
+		for (end = q + 4; q < end; q++)
+			*p++ = *q;
+		ib_printf("\tKey: %d\n", key);
+	}
+	else
+		ib_printf("\tKey: %s\n", temp);
+
+	prt_que("\tHash que", &lock->lbl_lhb_hash);
+
+	prt_que("\tRequests", &lock->lbl_requests);
+	QUE_LOOP(lock->lbl_requests, que) {
+		request = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_lbl_requests));
+		ib_printf("\t\tRequest %d, Process: %d, State: %d (%d), Flags: %d\n",
+				  REL_PTR(request), request->lrq_process, request->lrq_state,
+				  request->lrq_requested, request->lrq_flags);
+	}
+
+	ib_printf("\n");
+}
+
+
+static prt_process(process)
+	 PRB process;
+{
+/**************************************
+ *
+ *	p r t _ p r o c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a formatted process block.
+ *
+ **************************************/
+	SRQ que;
+
+	ib_printf("PROCESS BLOCK %d\n", REL_PTR(process));
+	ib_printf
+		("\tProcess id: %d, flags: %d, pending: %d, UID: %x, semid: %d\n",
+		 process->prb_process_id, process->prb_flags,
+		 process->prb_pending_request, process->prb_process_uid,
+		 (LOCK_header->lhb_version >=
+		  LHB_VERSION7) ? process->prb_semaphore7 : process->prb_semaphore5);
+
+	prt_que("\tRequests", &process->prb_requests);
+	prt_que("\tBlocks", &process->prb_blocks);
+	ib_printf("\n");
+
+	if (sw_requests)
+		QUE_LOOP(process->prb_requests, que)
+			prt_request((UCHAR *) que - OFFSET(LRQ, lrq_prb_requests));
+}
+
+
+static prt_request(request)
+	 LRQ request;
+{
+/**************************************
+ *
+ *	p r t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a format request block.
+ *
+ **************************************/
+
+	ib_printf("REQUEST BLOCK %d\n", REL_PTR(request));
+	ib_printf("\tProcess: %d, Lock: %d, State: %d, Mode: %d, Flags: %x\n",
+			  request->lrq_process, request->lrq_lock, request->lrq_state,
+			  request->lrq_requested, request->lrq_flags);
+	ib_printf("\tAST: %x, argument: %x\n", request->lrq_ast_routine,
+			  request->lrq_ast_argument);
+	ib_printf("\n");
+}
+
+
+static prt_que(string, que)
+	 UCHAR *string;
+	 SRQ que;
+{
+/**************************************
+ *
+ *	p r t _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print the contents of a self-relative que.
+ *
+ **************************************/
+	long count, offset;
+	SRQ next;
+
+	offset = REL_PTR(que);
+
+	if (offset == que->srq_forward && offset == que->srq_backward) {
+		ib_printf("%s: *empty*\n", string);
+		return;
+	}
+
+	count = 0;
+
+	QUE_LOOP((*que), next)
+		++ count;
+
+	ib_printf("%s (%ld):\tforward: %d, backward: %d\n",
+			  string, count, que->srq_forward, que->srq_backward);
+}
diff --git a/src/lock/printv3s4.cpp b/src/lock/printv3s4.cpp
new file mode 100644
index 0000000000..a49db9c8a2
--- /dev/null
+++ b/src/lock/printv3s4.cpp
@@ -0,0 +1,410 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		printv3s4.c
+ *	DESCRIPTION:	Version 3 Sun 4 lock Table printer
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../lock/lockv3s4.h"
+#include "../lock/prtv3_proto.h"
+
+#ifndef MAXHOSTNAMELEN
+#define MAXHOSTNAMELEN 64
+#endif
+
+#include <sys/param.h>
+#include <sys/stat.h>
+
+static USHORT sw_requests, sw_processes, sw_locks, sw_series, sw_history,
+	sw_mutex;
+
+static LHB LOCK_header;
+static long LOCK_size_mapped;
+static LOCK_fd;
+
+#define default_size	8192
+#define hash_slots	101
+
+static TEXT *history_names[] = {
+	"n/a", "ENQ", "DEQ", "CONVERT", "SIGNAL", "POST", "WAIT",
+	"DEL_PROC", "DEL_LOCK", "DEL_REQ", "DENY", "GRANT", "LEAVE",
+	"SCAN", "DEAD", "ENTER", "CLEANUP", "BUG", "ACTIVE"
+};
+
+
+
+static UCHAR compatibility[] = {
+
+/*				Shared	Prot	Shared	Prot
+		none	null	 Read	Read	Write	Write	Exclusive */
+
+/* none */ 1, 1, 1, 1, 1, 1, 1,
+/* null */ 1, 1, 1, 1, 1, 1, 1,
+/* SR */ 1, 1, 1, 1, 1, 1, 0,
+/* PR */ 1, 1, 1, 1, 0, 0, 0,
+/* SW */ 1, 1, 1, 0, 1, 0, 0,
+/* PW */ 1, 1, 1, 0, 0, 0, 0,
+/* EX */ 1, 1, 0, 0, 0, 0, 0
+};
+
+#define COMPATIBLE(st1, st2)	compatibility [st1 * LCK_max + st2]
+
+
+V3_lock_print(argc, argv)
+	 USHORT argc;
+	 UCHAR *argv[];
+{
+/**************************************
+ *
+ *	V 3 _ l o c k _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print v3 lock table structure
+ *
+ **************************************/
+	USHORT name_length, i;
+	long start, length;
+	SHB shb;
+	SRQ que, slot;
+	PRB process;
+	LBL lock;
+	UCHAR *p, c;
+	char lock_file[MAXPATHLEN];
+	char host_name[MAXHOSTNAMELEN];
+	struct stat stat_buf;
+
+/* Handle switches, etc. */
+
+	argv++;
+	sw_processes = TRUE;
+
+	while (--argc) {
+		p = *argv++;
+		while (c = *p++)
+			switch (c) {
+			case 'o':			/* Owners: compatible with v4 */
+			case 'p':
+				sw_processes = TRUE;
+				break;
+
+			case 'l':
+				sw_locks = TRUE;
+				break;
+
+			case 'r':
+				sw_requests = TRUE;
+				break;
+
+			case 'a':
+				sw_locks = TRUE;
+				sw_processes = TRUE;
+				sw_requests = TRUE;
+				sw_history = TRUE;
+				break;
+
+			case 'h':
+				sw_history = TRUE;
+				break;
+
+			case 's':
+				sw_series = atoi(*argv++);
+				--argc;
+				break;
+
+			case '-':
+				break;
+
+			default:
+				/* Silently ignore invalid options - 
+				 *  the V4 option parser reported any appropriate error */
+				break;
+			}
+	}
+
+/* Construct a node-specific filename of the form "gds.lockfile.<hostname>" */
+
+	if (gethostname(host_name, sizeof(host_name))) {
+		ib_printf("gethostname failed\n");
+		return FAILURE;
+	}
+
+	sprintf(lock_file, LOCK_FILE, host_name);
+
+	LOCK_fd = open(lock_file, O_RDWR, 0660);
+	if (LOCK_fd == -1) {
+		/* Silently return - there doesn't have to be a bridge lock file */
+		return FAILURE;
+	}
+
+	if (stat(lock_file, &stat_buf)) {
+		ib_printf("stat failed for bridge lock table %s\n", lock_file);
+		return FAILURE;
+	}
+
+	if (stat_buf.st_size < sizeof(struct lhb)) {
+		/* File is obviously too small to really be a lock file */
+		ib_printf("Bridge lock file too small: %s\n", lock_file);
+		return FAILURE;
+	}
+
+	LOCK_size_mapped = DEFAULT_SIZE;
+	LOCK_header =
+		(LHB) mmap(NULL, LOCK_size_mapped, PROT_READ | PROT_WRITE, MAP_SHARED,
+				   LOCK_fd, 0);
+
+	if ((int) LOCK_header == -1) {
+		ib_printf("mmap failed\n");
+		return FAILURE;
+	}
+
+/* If the table is larger than usual, remap it */
+
+	if (LOCK_header->lhb_length > LOCK_size_mapped) {
+		length = LOCK_header->lhb_length;
+		LOCK_header =
+			(LHB) mmap(NULL, length, PROT_READ | PROT_WRITE, MAP_SHARED,
+					   LOCK_fd, 0);
+	}
+
+/* Print lock header block */
+
+	ib_printf("LOCK_HEADER BLOCK\n");
+	ib_printf("\tVersion: %d, Active process: %d, Length: %d, Used: %d\n",
+			  LOCK_header->lhb_version, LOCK_header->lhb_active_process,
+			  LOCK_header->lhb_length, LOCK_header->lhb_used);
+
+	ib_printf("\tEnqs: %d, Converts: %d, Rejects: %d, Blocks: %d\n",
+			  LOCK_header->lhb_enqs, LOCK_header->lhb_converts,
+			  LOCK_header->lhb_denies, LOCK_header->lhb_blocks);
+
+	ib_printf("\tDeadlock scans: %d, Deadlocks: %d\n",
+			  LOCK_header->lhb_scans, LOCK_header->lhb_deadlocks);
+
+	if (LOCK_header->lhb_secondary != LHB_PATTERN) {
+		shb = (SHB) ABS_PTR(LOCK_header->lhb_secondary);
+		ib_printf("\tRemove node: %d, Insert queue: %d, Insert prior: %d\n",
+				  shb->shb_remove_node, shb->shb_insert_que,
+				  shb->shb_insert_prior);
+	}
+
+	prt_que("\tProcesses", &LOCK_header->lhb_processes);
+	prt_que("\tFree processes", &LOCK_header->lhb_free_processes);
+	prt_que("\tFree locks", &LOCK_header->lhb_free_locks);
+	prt_que("\tFree requests", &LOCK_header->lhb_free_requests);
+	ib_printf("\n");
+
+/* Print known processes */
+
+	if (sw_processes)
+		QUE_LOOP(LOCK_header->lhb_processes, que)
+			prt_process((UCHAR *) que - OFFSET(PRB, prb_lhb_processes));
+
+/* Print known locks */
+
+	if (sw_locks || sw_series)
+		for (slot = LOCK_header->lhb_hash, i = 0;
+			 i < LOCK_header->lhb_hash_slots; slot++, i++)
+			for (que = (SRQ) ABS_PTR(slot->srq_forward); que != slot;
+				 que = (SRQ) ABS_PTR(que->srq_forward))
+				prt_lock((UCHAR *) que - OFFSET(LBL, lbl_lhb_hash));
+
+	if (sw_history)
+		prt_history(LOCK_header->lhb_history, "History");
+
+	if (LOCK_header->lhb_secondary != LHB_PATTERN)
+		prt_history(shb->shb_history, "Event log");
+
+	return SUCCESS;
+}
+
+
+static prt_history(history_header, title)
+	 PTR history_header;
+	 char *title;
+{
+/**************************************
+ *
+ *	p r t _ h i s t o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print history list of lock table.
+ *
+ **************************************/
+	HIS history;
+
+	ib_printf("%s:\n", title);
+
+	for (history = (HIS) ABS_PTR(history_header); TRUE;
+		 history = (HIS) ABS_PTR(history->his_next)) {
+		if (history->his_operation)
+			ib_printf("    %s:\tprocess = %d, lock = %d, request = %d\n",
+					  history_names[history->his_operation],
+					  history->his_process, history->his_lock,
+					  history->his_request);
+		if (history->his_next == history_header)
+			break;
+	}
+}
+
+
+static prt_lock(lock)
+	 LBL lock;
+{
+/**************************************
+ *
+ *	p r t _ l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a formatted lock block 
+ *
+ **************************************/
+	long key;
+	UCHAR *p, *q, *end;
+	SRQ que;
+	LRQ request;
+
+	if (sw_series && lock->lbl_series != sw_series)
+		return;
+
+	ib_printf("LOCK BLOCK %d\n", REL_PTR(lock));
+	ib_printf
+		("\tSeries: %d, Parent: %d, State: %d, size: %d length: %d data: %d\n",
+		 lock->lbl_series, lock->lbl_parent, lock->lbl_state, lock->lbl_size,
+		 lock->lbl_length, lock->lbl_data);
+
+	if (LOCK_header->lhb_version >= LHB_VERSION5)
+		q = lock->lbl_key5;
+	else
+		q = lock->lbl_key3;
+	if (lock->lbl_length == 4) {
+		p = (UCHAR *) & key;
+		for (end = q + 4; q < end; q++)
+			*p++ = *q;
+		ib_printf("\tKey: %d\n", key);
+	}
+	else
+		ib_printf("\tKey: %.*s\n", lock->lbl_length, q);
+
+	prt_que("\tHash que", &lock->lbl_lhb_hash);
+	prt_que("\tRequests", &lock->lbl_requests);
+
+	QUE_LOOP(lock->lbl_requests, que) {
+		request = (LRQ) ((UCHAR *) que - OFFSET(LRQ, lrq_lbl_requests));
+		ib_printf("\t\tRequest %d, Process: %d, State: %d (%d), Flags: %d\n",
+				  REL_PTR(request), request->lrq_process, request->lrq_state,
+				  request->lrq_requested, request->lrq_flags);
+	}
+
+	ib_printf("\n");
+}
+
+
+static prt_process(process)
+	 PRB process;
+{
+/**************************************
+ *
+ *	p r t _ p r o c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a formatted process block.
+ *
+ **************************************/
+	SRQ que;
+
+	ib_printf("PROCESS BLOCK %d\n", REL_PTR(process));
+	ib_printf("\tProcess id: %d, flags: %d, pending: %d\n",
+			  process->prb_process_id, process->prb_flags,
+			  process->prb_pending_request);
+
+	prt_que("\tRequests", &process->prb_requests);
+	prt_que("\tBlocks", &process->prb_blocks);
+	ib_printf("\n");
+
+	if (sw_requests)
+		QUE_LOOP(process->prb_requests, que)
+			prt_request((UCHAR *) que - OFFSET(LRQ, lrq_prb_requests));
+}
+
+
+static prt_request(request)
+	 LRQ request;
+{
+/**************************************
+ *
+ *	p r t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a format request block.
+ *
+ **************************************/
+
+	ib_printf("REQUEST BLOCK %d\n", REL_PTR(request));
+	ib_printf("\tProcess: %d, Lock: %d, State: %d, Mode: %d, Flags: %x\n",
+			  request->lrq_process, request->lrq_lock, request->lrq_state,
+			  request->lrq_requested, request->lrq_flags);
+	ib_printf("\tAST: %x, argument: %x\n", request->lrq_ast_routine,
+			  request->lrq_ast_argument);
+	ib_printf("\n");
+}
+
+
+static prt_que(string, que)
+	 UCHAR *string;
+	 SRQ que;
+{
+/**************************************
+ *
+ *	p r t _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print the contents of a self-relative que.
+ *
+ **************************************/
+	long count, offset;
+	SRQ next;
+
+	offset = REL_PTR(que);
+
+	if (offset == que->srq_forward && offset == que->srq_backward) {
+		ib_printf("%s: *empty*\n", string);
+		return;
+	}
+
+	count = 0;
+
+	QUE_LOOP((*que), next)
+		++ count;
+
+	ib_printf("%s (%ld):\tforward: %d, backward: %d\n",
+			  string, count, que->srq_forward, que->srq_backward);
+}
diff --git a/src/lock/prtv3_proto.h b/src/lock/prtv3_proto.h
new file mode 100644
index 0000000000..871e2b374a
--- /dev/null
+++ b/src/lock/prtv3_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	JRD Lock Manager
+ *	MODULE:		prtv3_proto.h
+ *	DESCRIPTION:	Version 3 lock Table printer prototype
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _LOCK_PRTV3_PROTO_H_
+#define _LOCK_PRTV3_PROTO_H_
+
+extern int V3_lock_print(int, UCHAR **);
+
+#endif /* _LOCK_PRTV3_PROTO_H_ */
diff --git a/src/lock/reset.cpp b/src/lock/reset.cpp
new file mode 100644
index 0000000000..5c7f73ca95
--- /dev/null
+++ b/src/lock/reset.cpp
@@ -0,0 +1,42 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "/sys5/usr/include/sys/types.h"
+#include "/sys5/usr/include/sys/ipc.h"
+#include "/sys5/usr/include/sys/shm.h"
+#include "/sys5/usr/include/sys/sem.h"
+#include "lock.h"
+
+void main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int semid, ret;
+
+	semid = semget(SEM_KEY, 2, 0);
+	if (semid == -1)
+		return;
+	ret = semctl(semid, 0, IPC_RMID, 0);
+}
diff --git a/src/lock/ulimit.cpp b/src/lock/ulimit.cpp
new file mode 100644
index 0000000000..4783371013
--- /dev/null
+++ b/src/lock/ulimit.cpp
@@ -0,0 +1,37 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "/bsd4.2/usr/include/sys/time.h"
+#include "/bsd4.2/usr/include/sys/resource.h"
+
+int ulimit( int cmd, int new_limit)
+{
+/**************************************
+ *
+ *	u l i m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	struct rlimit rlp;
+
+	getrlimit(RLIMIT_DATA, &rlp);
+	return rlp.rlim_max + 4000000;
+}
diff --git a/src/misc/codes.h b/src/misc/codes.h
new file mode 100644
index 0000000000..b72d6cde5e
--- /dev/null
+++ b/src/misc/codes.h
@@ -0,0 +1,2144 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+#define gds_facility	20
+#define gds_err_base	335544320L
+#define gds_err_factor	1
+#define gds_arg_end		0		/* end of argument list */
+#define gds_arg_gds		1		/* generic DSRI status value */
+#define gds_arg_string		2	/* string argument */
+#define gds_arg_cstring	3		/* count & string argument */
+#define gds_arg_number		4	/* numeric argument (long) */
+#define gds_arg_interpreted	5	/* interpreted status code (string) */
+#define gds_arg_vms		6		/* VAX/VMS status code (long) */
+#define gds_arg_unix		7	/* UNIX error code */
+#define gds_arg_domain		8	/* Apollo/Domain error code */
+#define gds_arg_dos		9		/* MSDOS/OS2 error code */
+#define gds_arg_mpexl		10	/* HP MPE/XL error code */
+#define gds_arg_mpexl_ipc	11	/* HP MPE/XL IPC error code */
+#define gds_arg_next_mach	15	/* NeXT/Mach error code */
+#define gds_arg_netware	16		/* NetWare error code */
+#define gds_arg_win32		17	/* Win32 error code */
+#define gds_arg_warning	18		/* warning argument */
+
+#define gds__arith_except                     335544321L
+#define gds__bad_dbkey                        335544322L
+#define gds__bad_db_format                    335544323L
+#define gds__bad_db_handle                    335544324L
+#define gds__bad_dpb_content                  335544325L
+#define gds__bad_dpb_form                     335544326L
+#define gds__bad_req_handle                   335544327L
+#define gds__bad_segstr_handle                335544328L
+#define gds__bad_segstr_id                    335544329L
+#define gds__bad_tpb_content                  335544330L
+#define gds__bad_tpb_form                     335544331L
+#define gds__bad_trans_handle                 335544332L
+#define gds__bug_check                        335544333L
+#define gds__convert_error                    335544334L
+#define gds__db_corrupt                       335544335L
+#define gds__deadlock                         335544336L
+#define gds__excess_trans                     335544337L
+#define gds__from_no_match                    335544338L
+#define gds__infinap                          335544339L
+#define gds__infona                           335544340L
+#define gds__infunk                           335544341L
+#define gds__integ_fail                       335544342L
+#define gds__invalid_blr                      335544343L
+#define gds__io_error                         335544344L
+#define gds__lock_conflict                    335544345L
+#define gds__metadata_corrupt                 335544346L
+#define gds__not_valid                        335544347L
+#define gds__no_cur_rec                       335544348L
+#define gds__no_dup                           335544349L
+#define gds__no_finish                        335544350L
+#define gds__no_meta_update                   335544351L
+#define gds__no_priv                          335544352L
+#define gds__no_recon                         335544353L
+#define gds__no_record                        335544354L
+#define gds__no_segstr_close                  335544355L
+#define gds__obsolete_metadata                335544356L
+#define gds__open_trans                       335544357L
+#define gds__port_len                         335544358L
+#define gds__read_only_field                  335544359L
+#define gds__read_only_rel                    335544360L
+#define gds__read_only_trans                  335544361L
+#define gds__read_only_view                   335544362L
+#define gds__req_no_trans                     335544363L
+#define gds__req_sync                         335544364L
+#define gds__req_wrong_db                     335544365L
+#define gds__segment                          335544366L
+#define gds__segstr_eof                       335544367L
+#define gds__segstr_no_op                     335544368L
+#define gds__segstr_no_read                   335544369L
+#define gds__segstr_no_trans                  335544370L
+#define gds__segstr_no_write                  335544371L
+#define gds__segstr_wrong_db                  335544372L
+#define gds__sys_request                      335544373L
+#define gds__stream_eof                       335544374L
+#define gds__unavailable                      335544375L
+#define gds__unres_rel                        335544376L
+#define gds__uns_ext                          335544377L
+#define gds__wish_list                        335544378L
+#define gds__wrong_ods                        335544379L
+#define gds__wronumarg                        335544380L
+#define gds__imp_exc                          335544381L
+#define gds__random                           335544382L
+#define gds__fatal_conflict                   335544383L
+#define gds__badblk                           335544384L
+#define gds__invpoolcl                        335544385L
+#define gds__nopoolids                        335544386L
+#define gds__relbadblk                        335544387L
+#define gds__blktoobig                        335544388L
+#define gds__bufexh                           335544389L
+#define gds__syntaxerr                        335544390L
+#define gds__bufinuse                         335544391L
+#define gds__bdbincon                         335544392L
+#define gds__reqinuse                         335544393L
+#define gds__badodsver                        335544394L
+#define gds__relnotdef                        335544395L
+#define gds__fldnotdef                        335544396L
+#define gds__dirtypage                        335544397L
+#define gds__waifortra                        335544398L
+#define gds__doubleloc                        335544399L
+#define gds__nodnotfnd                        335544400L
+#define gds__dupnodfnd                        335544401L
+#define gds__locnotmar                        335544402L
+#define gds__badpagtyp                        335544403L
+#define gds__corrupt                          335544404L
+#define gds__badpage                          335544405L
+#define gds__badindex                         335544406L
+#define gds__dbbnotzer                        335544407L
+#define gds__tranotzer                        335544408L
+#define gds__trareqmis                        335544409L
+#define gds__badhndcnt                        335544410L
+#define gds__wrotpbver                        335544411L
+#define gds__wroblrver                        335544412L
+#define gds__wrodpbver                        335544413L
+#define gds__blobnotsup                       335544414L
+#define gds__badrelation                      335544415L
+#define gds__nodetach                         335544416L
+#define gds__notremote                        335544417L
+#define gds__trainlim                         335544418L
+#define gds__notinlim                         335544419L
+#define gds__traoutsta                        335544420L
+#define gds__connect_reject                   335544421L
+#define gds__dbfile                           335544422L
+#define gds__orphan                           335544423L
+#define gds__no_lock_mgr                      335544424L
+#define gds__ctxinuse                         335544425L
+#define gds__ctxnotdef                        335544426L
+#define gds__datnotsup                        335544427L
+#define gds__badmsgnum                        335544428L
+#define gds__badparnum                        335544429L
+#define gds__virmemexh                        335544430L
+#define gds__blocking_signal                  335544431L
+#define gds__lockmanerr                       335544432L
+#define gds__journerr                         335544433L
+#define gds__keytoobig                        335544434L
+#define gds__nullsegkey                       335544435L
+#define gds__sqlerr                           335544436L
+#define gds__wrodynver                        335544437L
+#define gds__funnotdef                        335544438L
+#define gds__funmismat                        335544439L
+#define gds__bad_msg_vec                      335544440L
+#define gds__bad_detach                       335544441L
+#define gds__noargacc_read                    335544442L
+#define gds__noargacc_write                   335544443L
+#define gds__read_only                        335544444L
+#define gds__ext_err                          335544445L
+#define gds__non_updatable                    335544446L
+#define gds__no_rollback                      335544447L
+#define gds__bad_sec_info                     335544448L
+#define gds__invalid_sec_info                 335544449L
+#define gds__misc_interpreted                 335544450L
+#define gds__update_conflict                  335544451L
+#define gds__unlicensed                       335544452L
+#define gds__obj_in_use                       335544453L
+#define gds__nofilter                         335544454L
+#define gds__shadow_accessed                  335544455L
+#define gds__invalid_sdl                      335544456L
+#define gds__out_of_bounds                    335544457L
+#define gds__invalid_dimension                335544458L
+#define gds__rec_in_limbo                     335544459L
+#define gds__shadow_missing                   335544460L
+#define gds__cant_validate                    335544461L
+#define gds__cant_start_journal               335544462L
+#define gds__gennotdef                        335544463L
+#define gds__cant_start_logging               335544464L
+#define gds__bad_segstr_type                  335544465L
+#define gds__foreign_key                      335544466L
+#define gds__high_minor                       335544467L
+#define gds__tra_state                        335544468L
+#define gds__trans_invalid                    335544469L
+#define gds__buf_invalid                      335544470L
+#define gds__indexnotdefined                  335544471L
+#define gds__login                            335544472L
+#define gds__invalid_bookmark                 335544473L
+#define gds__bad_lock_level                   335544474L
+#define gds__relation_lock                    335544475L
+#define gds__record_lock                      335544476L
+#define gds__max_idx                          335544477L
+#define gds__jrn_enable                       335544478L
+#define gds__old_failure                      335544479L
+#define gds__old_in_progress                  335544480L
+#define gds__old_no_space                     335544481L
+#define gds__no_wal_no_jrn                    335544482L
+#define gds__num_old_files                    335544483L
+#define gds__wal_file_open                    335544484L
+#define gds__bad_stmt_handle                  335544485L
+#define gds__wal_failure                      335544486L
+#define gds__walw_err                         335544487L
+#define gds__logh_small                       335544488L
+#define gds__logh_inv_version                 335544489L
+#define gds__logh_open_flag                   335544490L
+#define gds__logh_open_flag2                  335544491L
+#define gds__logh_diff_dbname                 335544492L
+#define gds__logf_unexpected_eof              335544493L
+#define gds__logr_incomplete                  335544494L
+#define gds__logr_header_small                335544495L
+#define gds__logb_small                       335544496L
+#define gds__wal_illegal_attach               335544497L
+#define gds__wal_invalid_wpb                  335544498L
+#define gds__wal_err_rollover                 335544499L
+#define gds__no_wal                           335544500L
+#define gds__drop_wal                         335544501L
+#define gds__stream_not_defined               335544502L
+#define gds__wal_subsys_error                 335544503L
+#define gds__wal_subsys_corrupt               335544504L
+#define gds__no_archive                       335544505L
+#define gds__shutinprog                       335544506L
+#define gds__range_in_use                     335544507L
+#define gds__range_not_found                  335544508L
+#define gds__charset_not_found                335544509L
+#define gds__lock_timeout                     335544510L
+#define gds__prcnotdef                        335544511L
+#define gds__prcmismat                        335544512L
+#define gds__wal_bugcheck                     335544513L
+#define gds__wal_cant_expand                  335544514L
+#define gds__codnotdef                        335544515L
+#define gds__xcpnotdef                        335544516L
+#define gds__except                           335544517L
+#define gds__cache_restart                    335544518L
+#define gds__bad_lock_handle                  335544519L
+#define gds__jrn_present                      335544520L
+#define gds__wal_err_rollover2                335544521L
+#define gds__wal_err_logwrite                 335544522L
+#define gds__wal_err_jrn_comm                 335544523L
+#define gds__wal_err_expansion                335544524L
+#define gds__wal_err_setup                    335544525L
+#define gds__wal_err_ww_sync                  335544526L
+#define gds__wal_err_ww_start                 335544527L
+#define gds__shutdown                         335544528L
+#define gds__existing_priv_mod                335544529L
+#define gds__primary_key_ref                  335544530L
+#define gds__primary_key_notnull              335544531L
+#define gds__ref_cnstrnt_notfound             335544532L
+#define gds__foreign_key_notfound             335544533L
+#define gds__ref_cnstrnt_update               335544534L
+#define gds__check_cnstrnt_update             335544535L
+#define gds__check_cnstrnt_del                335544536L
+#define gds__integ_index_seg_del              335544537L
+#define gds__integ_index_seg_mod              335544538L
+#define gds__integ_index_del                  335544539L
+#define gds__integ_index_mod                  335544540L
+#define gds__check_trig_del                   335544541L
+#define gds__check_trig_update                335544542L
+#define gds__cnstrnt_fld_del                  335544543L
+#define gds__cnstrnt_fld_rename               335544544L
+#define gds__rel_cnstrnt_update               335544545L
+#define gds__constaint_on_view                335544546L
+#define gds__invld_cnstrnt_type               335544547L
+#define gds__primary_key_exists               335544548L
+#define gds__systrig_update                   335544549L
+#define gds__not_rel_owner                    335544550L
+#define gds__grant_obj_notfound               335544551L
+#define gds__grant_fld_notfound               335544552L
+#define gds__grant_nopriv                     335544553L
+#define gds__nonsql_security_rel              335544554L
+#define gds__nonsql_security_fld              335544555L
+#define gds__wal_cache_err                    335544556L
+#define gds__shutfail                         335544557L
+#define gds__check_constraint                 335544558L
+#define gds__bad_svc_handle                   335544559L
+#define gds__shutwarn                         335544560L
+#define gds__wrospbver                        335544561L
+#define gds__bad_spb_form                     335544562L
+#define gds__svcnotdef                        335544563L
+#define gds__no_jrn                           335544564L
+#define gds__transliteration_failed           335544565L
+#define gds__start_cm_for_wal                 335544566L
+#define gds__wal_ovflow_log_required          335544567L
+#define gds__text_subtype                     335544568L
+#define gds__dsql_error                       335544569L
+#define gds__dsql_command_err                 335544570L
+#define gds__dsql_constant_err                335544571L
+#define gds__dsql_cursor_err                  335544572L
+#define gds__dsql_datatype_err                335544573L
+#define gds__dsql_decl_err                    335544574L
+#define gds__dsql_cursor_update_err           335544575L
+#define gds__dsql_cursor_open_err             335544576L
+#define gds__dsql_cursor_close_err            335544577L
+#define gds__dsql_field_err                   335544578L
+#define gds__dsql_internal_err                335544579L
+#define gds__dsql_relation_err                335544580L
+#define gds__dsql_procedure_err               335544581L
+#define gds__dsql_request_err                 335544582L
+#define gds__dsql_sqlda_err                   335544583L
+#define gds__dsql_var_count_err               335544584L
+#define gds__dsql_stmt_handle                 335544585L
+#define gds__dsql_function_err                335544586L
+#define gds__dsql_blob_err                    335544587L
+#define gds__collation_not_found              335544588L
+#define gds__collation_not_for_charset        335544589L
+#define gds__dsql_dup_option                  335544590L
+#define gds__dsql_tran_err                    335544591L
+#define gds__dsql_invalid_array               335544592L
+#define gds__dsql_max_arr_dim_exceeded        335544593L
+#define gds__dsql_arr_range_error             335544594L
+#define gds__dsql_trigger_err                 335544595L
+#define gds__dsql_subselect_err               335544596L
+#define gds__dsql_crdb_prepare_err            335544597L
+#define gds__specify_field_err                335544598L
+#define gds__num_field_err                    335544599L
+#define gds__col_name_err                     335544600L
+#define gds__where_err                        335544601L
+#define gds__table_view_err                   335544602L
+#define gds__distinct_err                     335544603L
+#define gds__key_field_count_err              335544604L
+#define gds__subquery_err                     335544605L
+#define gds__expression_eval_err              335544606L
+#define gds__node_err                         335544607L
+#define gds__command_end_err                  335544608L
+#define gds__index_name                       335544609L
+#define gds__exception_name                   335544610L
+#define gds__field_name                       335544611L
+#define gds__token_err                        335544612L
+#define gds__union_err                        335544613L
+#define gds__dsql_construct_err               335544614L
+#define gds__field_aggregate_err              335544615L
+#define gds__field_ref_err                    335544616L
+#define gds__order_by_err                     335544617L
+#define gds__return_mode_err                  335544618L
+#define gds__extern_func_err                  335544619L
+#define gds__alias_conflict_err               335544620L
+#define gds__procedure_conflict_error         335544621L
+#define gds__relation_conflict_err            335544622L
+#define gds__dsql_domain_err                  335544623L
+#define gds__idx_seg_err                      335544624L
+#define gds__node_name_err                    335544625L
+#define gds__table_name                       335544626L
+#define gds__proc_name                        335544627L
+#define gds__idx_create_err                   335544628L
+#define gds__wal_shadow_err                   335544629L
+#define gds__dependency                       335544630L
+#define gds__idx_key_err                      335544631L
+#define gds__dsql_file_length_err             335544632L
+#define gds__dsql_shadow_number_err           335544633L
+#define gds__dsql_token_unk_err               335544634L
+#define gds__dsql_no_relation_alias           335544635L
+#define gds__indexname                        335544636L
+#define gds__no_stream_plan                   335544637L
+#define gds__stream_twice                     335544638L
+#define gds__stream_not_found                 335544639L
+#define gds__collation_requires_text          335544640L
+#define gds__dsql_domain_not_found            335544641L
+#define gds__index_unused                     335544642L
+#define gds__dsql_self_join                   335544643L
+#define gds__stream_bof                       335544644L
+#define gds__stream_crack                     335544645L
+#define gds__db_or_file_exists                335544646L
+#define gds__invalid_operator                 335544647L
+#define gds__conn_lost                        335544648L
+#define gds__bad_checksum                     335544649L
+#define gds__page_type_err                    335544650L
+#define gds__ext_readonly_err                 335544651L
+#define gds__sing_select_err                  335544652L
+#define gds__psw_attach                       335544653L
+#define gds__psw_start_trans                  335544654L
+#define gds__invalid_direction                335544655L
+#define gds__dsql_var_conflict                335544656L
+#define gds__dsql_no_blob_array               335544657L
+#define gds__dsql_base_table                  335544658L
+#define gds__duplicate_base_table             335544659L
+#define gds__view_alias                       335544660L
+#define gds__index_root_page_full             335544661L
+#define gds__dsql_blob_type_unknown           335544662L
+#define gds__req_max_clones_exceeded          335544663L
+#define gds__dsql_duplicate_spec              335544664L
+#define gds__unique_key_violation             335544665L
+#define gds__srvr_version_too_old             335544666L
+#define gds__drdb_completed_with_errs         335544667L
+#define gds__dsql_procedure_use_err           335544668L
+#define gds__dsql_count_mismatch              335544669L
+#define gds__blob_idx_err                     335544670L
+#define gds__array_idx_err                    335544671L
+#define gds__key_field_err                    335544672L
+#define gds__no_delete                        335544673L
+#define gds__del_last_field                   335544674L
+#define gds__sort_err                         335544675L
+#define gds__sort_mem_err                     335544676L
+#define gds__version_err                      335544677L
+#define gds__inval_key_posn                   335544678L
+#define gds__no_segments_err                  335544679L
+#define gds__crrp_data_err                    335544680L
+#define gds__rec_size_err                     335544681L
+#define gds__dsql_field_ref                   335544682L
+#define gds__req_depth_exceeded               335544683L
+#define gds__no_field_access                  335544684L
+#define gds__no_dbkey                         335544685L
+#define gds__jrn_format_err                   335544686L
+#define gds__jrn_file_full                    335544687L
+#define gds__dsql_open_cursor_request         335544688L
+#define gds__ib_error                         335544689L
+#define gds__cache_redef                      335544690L
+#define gds__cache_too_small                  335544691L
+#define gds__log_redef                        335544692L
+#define gds__log_too_small                    335544693L
+#define gds__partition_too_small              335544694L
+#define gds__partition_not_supp               335544695L
+#define gds__log_length_spec                  335544696L
+#define gds__precision_err                    335544697L
+#define gds__scale_nogt                       335544698L
+#define gds__expec_short                      335544699L
+#define gds__expec_long                       335544700L
+#define gds__expec_ushort                     335544701L
+#define gds__like_escape_invalid              335544702L
+#define gds__svcnoexe                         335544703L
+#define gds__net_lookup_err                   335544704L
+#define gds__service_unknown                  335544705L
+#define gds__host_unknown                     335544706L
+#define gds__grant_nopriv_on_base             335544707L
+#define gds__dyn_fld_ambiguous                335544708L
+#define gds__dsql_agg_ref_err                 335544709L
+#define gds__complex_view                     335544710L
+#define gds__unprepared_stmt                  335544711L
+#define gds__expec_positive                   335544712L
+#define gds__dsql_sqlda_value_err             335544713L
+#define gds__invalid_array_id                 335544714L
+#define gds__extfile_uns_op                   335544715L
+#define gds__svc_in_use                       335544716L
+#define gds__err_stack_limit                  335544717L
+#define gds__invalid_key                      335544718L
+#define gds__net_init_error                   335544719L
+#define gds__loadlib_failure                  335544720L
+#define gds__network_error                    335544721L
+#define gds__net_connect_err                  335544722L
+#define gds__net_connect_listen_err           335544723L
+#define gds__net_event_connect_err            335544724L
+#define gds__net_event_listen_err             335544725L
+#define gds__net_read_err                     335544726L
+#define gds__net_write_err                    335544727L
+#define gds__integ_index_deactivate           335544728L
+#define gds__integ_deactivate_primary         335544729L
+#define gds__cse_not_supported                335544730L
+#define gds__tra_must_sweep                   335544731L
+#define gds__unsupported_network_drive        335544732L
+#define gds__io_create_err                    335544733L
+#define gds__io_open_err                      335544734L
+#define gds__io_close_err                     335544735L
+#define gds__io_read_err                      335544736L
+#define gds__io_write_err                     335544737L
+#define gds__io_delete_err                    335544738L
+#define gds__io_access_err                    335544739L
+#define gds__udf_exception                    335544740L
+#define gds__lost_db_connection               335544741L
+#define gds__no_write_user_priv               335544742L
+#define gds__token_too_long                   335544743L
+#define gds__max_att_exceeded                 335544744L
+#define gds__login_same_as_role_name          335544745L
+#define gds__reftable_requires_pk             335544746L
+#define gds__usrname_too_long                 335544747L
+#define gds__password_too_long                335544748L
+#define gds__usrname_required                 335544749L
+#define gds__password_required                335544750L
+#define gds__bad_protocol                     335544751L
+#define gds__dup_usrname_found                335544752L
+#define gds__usrname_not_found                335544753L
+#define gds__error_adding_sec_record          335544754L
+#define gds__error_modifying_sec_record       335544755L
+#define gds__error_deleting_sec_record        335544756L
+#define gds__error_updating_sec_db            335544757L
+#define gds__sort_rec_size_err                335544758L
+#define gds__bad_default_value                335544759L
+#define gds__invalid_clause                   335544760L
+#define gds__too_many_handles                 335544761L
+#define gds__optimizer_blk_exc                335544762L
+#define gds__invalid_string_constant          335544763L
+#define gds__transitional_date                335544764L
+#define gds__read_only_database               335544765L
+#define gds__must_be_dialect_2_and_up         335544766L
+#define gds__blob_filter_exception            335544767L
+#define gds__exception_access_violation       335544768L
+#define gds__exception_datatype_missalignment 335544769L
+#define gds__exception_array_bounds_exceeded  335544770L
+#define gds__exception_float_denormal_operand 335544771L
+#define gds__exception_float_divide_by_zero   335544772L
+#define gds__exception_float_inexact_result   335544773L
+#define gds__exception_float_invalid_operand  335544774L
+#define gds__exception_float_overflow         335544775L
+#define gds__exception_float_stack_check      335544776L
+#define gds__exception_float_underflow        335544777L
+#define gds__exception_integer_divide_by_zero 335544778L
+#define gds__exception_integer_overflow       335544779L
+#define gds__exception_unknown                335544780L
+#define gds__exception_stack_overflow         335544781L
+#define gds__exception_sigsegv                335544782L
+#define gds__exception_sigill                 335544783L
+#define gds__exception_sigbus                 335544784L
+#define gds__exception_sigfpe                 335544785L
+#define gds__ext_file_delete                  335544786L
+#define gds__ext_file_modify                  335544787L
+#define gds__adm_task_denied                  335544788L
+#define gds__extract_input_mismatch           335544789L
+#define gds__insufficient_svc_privileges      335544790L
+#define gds__file_in_use                      335544791L
+#define gds__service_att_err                  335544792L
+#define gds__ddl_not_allowed_by_db_sql_dial   335544793L
+#define gds__cancelled                        335544794L
+#define gds__unexp_spb_form                   335544795L
+#define gds__sql_dialect_datatype_unsupport   335544796L
+#define gds__svcnouser                        335544797L
+#define gds__depend_on_uncommitted_rel        335544798L
+#define gds__svc_name_missing                 335544799L
+#define gds__too_many_contexts                335544800L
+#define gds__datype_notsup                    335544801L
+#define gds__dialect_reset_warning            335544802L
+#define gds__dialect_not_changed              335544803L
+#define gds__database_create_failed           335544804L
+#define gds__inv_dialect_specified            335544805L
+#define gds__valid_db_dialects                335544806L
+#define gds__sqlwarn                          335544807L
+#define gds__dtype_renamed                    335544808L
+#define gds__extern_func_dir_error            335544809L
+#define gds__date_range_exceeded              335544810L
+#define gds__inv_client_dialect_specified     335544811L
+#define gds__valid_client_dialects            335544812L
+#define gds__optimizer_between_err            335544813L
+#define gds__service_not_supported            335544814L
+#define gds__gfix_db_name                     335740929L
+#define gds__gfix_invalid_sw                  335740930L
+#define gds__gfix_incmp_sw                    335740932L
+#define gds__gfix_replay_req                  335740933L
+#define gds__gfix_pgbuf_req                   335740934L
+#define gds__gfix_val_req                     335740935L
+#define gds__gfix_pval_req                    335740936L
+#define gds__gfix_trn_req                     335740937L
+#define gds__gfix_full_req                    335740940L
+#define gds__gfix_usrname_req                 335740941L
+#define gds__gfix_pass_req                    335740942L
+#define gds__gfix_subs_name                   335740943L
+#define gds__gfix_wal_req                     335740944L
+#define gds__gfix_sec_req                     335740945L
+#define gds__gfix_nval_req                    335740946L
+#define gds__gfix_type_shut                   335740947L
+#define gds__gfix_retry                       335740948L
+#define gds__gfix_retry_db                    335740951L
+#define gds__gfix_exceed_max                  335740991L
+#define gds__gfix_corrupt_pool                335740992L
+#define gds__gfix_mem_exhausted               335740993L
+#define gds__gfix_bad_pool                    335740994L
+#define gds__gfix_trn_not_valid               335740995L
+#define gds__gfix_unexp_eoi                   335741012L
+#define gds__gfix_recon_fail                  335741018L
+#define gds__gfix_trn_unknown                 335741036L
+#define gds__gfix_mode_req                    335741038L
+#define gds__gfix_opt_SQL_dialect             335741039L
+#define gds__dsql_dbkey_from_non_table        336003074L
+#define gds__dsql_transitional_numeric        336003075L
+#define gds__dsql_dialect_warning_expr        336003076L
+#define gds__sql_db_dialect_dtype_unsupport   336003077L
+#define gds__isc_sql_dialect_conflict_num     336003079L
+#define gds__dsql_warning_number_ambiguous    336003080L
+#define gds__dsql_warning_number_ambiguous1   336003081L
+#define gds__dsql_warn_precision_ambiguous    336003082L
+#define gds__dsql_warn_precision_ambiguous1   336003083L
+#define gds__dsql_warn_precision_ambiguous2   336003084L
+#define gds__dyn_role_does_not_exist          336068796L
+#define gds__dyn_no_grant_admin_opt           336068797L
+#define gds__dyn_user_not_role_member         336068798L
+#define gds__dyn_delete_role_failed           336068799L
+#define gds__dyn_grant_role_to_user           336068800L
+#define gds__dyn_inv_sql_role_name            336068801L
+#define gds__dyn_dup_sql_role                 336068802L
+#define gds__dyn_kywd_spec_for_role           336068803L
+#define gds__dyn_roles_not_supported          336068804L
+#define gds__dyn_domain_name_exists           336068812L
+#define gds__dyn_field_name_exists            336068813L
+#define gds__dyn_dependency_exists            336068814L
+#define gds__dyn_dtype_invalid                336068815L
+#define gds__dyn_char_fld_too_small           336068816L
+#define gds__dyn_invalid_dtype_conversion     336068817L
+#define gds__dyn_dtype_conv_invalid           336068818L
+#define gds__gbak_unknown_switch              336330753L
+#define gds__gbak_page_size_missing           336330754L
+#define gds__gbak_page_size_toobig            336330755L
+#define gds__gbak_redir_ouput_missing         336330756L
+#define gds__gbak_switches_conflict           336330757L
+#define gds__gbak_unknown_device              336330758L
+#define gds__gbak_no_protection               336330759L
+#define gds__gbak_page_size_not_allowed       336330760L
+#define gds__gbak_multi_source_dest           336330761L
+#define gds__gbak_filename_missing            336330762L
+#define gds__gbak_dup_inout_names             336330763L
+#define gds__gbak_inv_page_size               336330764L
+#define gds__gbak_db_specified                336330765L
+#define gds__gbak_db_exists                   336330766L
+#define gds__gbak_unk_device                  336330767L
+#define gds__gbak_blob_info_failed            336330772L
+#define gds__gbak_unk_blob_item               336330773L
+#define gds__gbak_get_seg_failed              336330774L
+#define gds__gbak_close_blob_failed           336330775L
+#define gds__gbak_open_blob_failed            336330776L
+#define gds__gbak_put_blr_gen_id_failed       336330777L
+#define gds__gbak_unk_type                    336330778L
+#define gds__gbak_comp_req_failed             336330779L
+#define gds__gbak_start_req_failed            336330780L
+#define gds__gbak_rec_failed                  336330781L
+#define gds__gbak_rel_req_failed              336330782L
+#define gds__gbak_db_info_failed              336330783L
+#define gds__gbak_no_db_desc                  336330784L
+#define gds__gbak_db_create_failed            336330785L
+#define gds__gbak_decomp_len_error            336330786L
+#define gds__gbak_tbl_missing                 336330787L
+#define gds__gbak_blob_col_missing            336330788L
+#define gds__gbak_create_blob_failed          336330789L
+#define gds__gbak_put_seg_failed              336330790L
+#define gds__gbak_rec_len_exp                 336330791L
+#define gds__gbak_inv_rec_len                 336330792L
+#define gds__gbak_exp_data_type               336330793L
+#define gds__gbak_gen_id_failed               336330794L
+#define gds__gbak_unk_rec_type                336330795L
+#define gds__gbak_inv_bkup_ver                336330796L
+#define gds__gbak_missing_bkup_desc           336330797L
+#define gds__gbak_string_trunc                336330798L
+#define gds__gbak_cant_rest_record            336330799L
+#define gds__gbak_send_failed                 336330800L
+#define gds__gbak_no_tbl_name                 336330801L
+#define gds__gbak_unexp_eof                   336330802L
+#define gds__gbak_db_format_too_old           336330803L
+#define gds__gbak_inv_array_dim               336330804L
+#define gds__gbak_xdr_len_expected            336330807L
+#define gds__gbak_open_bkup_error             336330817L
+#define gds__gbak_open_error                  336330818L
+#define gds__gbak_missing_block_fac           336330934L
+#define gds__gbak_inv_block_fac               336330935L
+#define gds__gbak_block_fac_specified         336330936L
+#define gds__gbak_missing_username            336330940L
+#define gds__gbak_missing_password            336330941L
+#define gds__gbak_missing_skipped_bytes       336330952L
+#define gds__gbak_inv_skipped_bytes           336330953L
+#define gds__gbak_err_restore_charset         336330965L
+#define gds__gbak_err_restore_collation       336330967L
+#define gds__gbak_read_error                  336330972L
+#define gds__gbak_write_error                 336330973L
+#define gds__gbak_db_in_use                   336330985L
+#define gds__gbak_sysmemex                    336330990L
+#define gds__gbak_restore_role_failed         336331002L
+#define gds__gbak_role_op_missing             336331005L
+#define gds__gbak_page_buffers_missing        336331010L
+#define gds__gbak_page_buffers_wrong_param    336331011L
+#define gds__gbak_page_buffers_restore        336331012L
+#define gds__gbak_inv_size                    336331014L
+#define gds__gbak_file_outof_sequence         336331015L
+#define gds__gbak_join_file_missing           336331016L
+#define gds__gbak_stdin_not_supptd            336331017L
+#define gds__gbak_stdout_not_supptd           336331018L
+#define gds__gbak_bkup_corrupt                336331019L
+#define gds__gbak_unk_db_file_spec            336331020L
+#define gds__gbak_hdr_write_failed            336331021L
+#define gds__gbak_disk_space_ex               336331022L
+#define gds__gbak_size_lt_min                 336331023L
+#define gds__gbak_svc_name_missing            336331025L
+#define gds__gbak_not_ownr                    336331026L
+#define gds__gbak_mode_req                    336331031L
+#define gds__gsec_cant_open_db                336723983L
+#define gds__gsec_switches_error              336723984L
+#define gds__gsec_no_op_spec                  336723985L
+#define gds__gsec_no_usr_name                 336723986L
+#define gds__gsec_err_add                     336723987L
+#define gds__gsec_err_modify                  336723988L
+#define gds__gsec_err_find_mod                336723989L
+#define gds__gsec_err_rec_not_found           336723990L
+#define gds__gsec_err_delete                  336723991L
+#define gds__gsec_err_find_del                336723992L
+#define gds__gsec_err_find_disp               336723996L
+#define gds__gsec_inv_param                   336723997L
+#define gds__gsec_op_specified                336723998L
+#define gds__gsec_pw_specified                336723999L
+#define gds__gsec_uid_specified               336724000L
+#define gds__gsec_gid_specified               336724001L
+#define gds__gsec_proj_specified              336724002L
+#define gds__gsec_org_specified               336724003L
+#define gds__gsec_fname_specified             336724004L
+#define gds__gsec_mname_specified             336724005L
+#define gds__gsec_lname_specified             336724006L
+#define gds__gsec_inv_switch                  336724008L
+#define gds__gsec_amb_switch                  336724009L
+#define gds__gsec_no_op_specified             336724010L
+#define gds__gsec_params_not_allowed          336724011L
+#define gds__gsec_incompat_switch             336724012L
+#define gds__gsec_inv_username                336724044L
+#define gds__gsec_inv_pw_length               336724045L
+#define gds__gsec_db_specified                336724046L
+#define gds__gsec_db_admin_specified          336724047L
+#define gds__gsec_db_admin_pw_specified       336724048L
+#define gds__gsec_sql_role_specified          336724049L
+#define gds__license_no_file                  336789504L
+#define gds__license_op_specified             336789523L
+#define gds__license_op_missing               336789524L
+#define gds__license_inv_switch               336789525L
+#define gds__license_inv_switch_combo         336789526L
+#define gds__license_inv_op_combo             336789527L
+#define gds__license_amb_switch               336789528L
+#define gds__license_inv_parameter            336789529L
+#define gds__license_param_specified          336789530L
+#define gds__license_param_req                336789531L
+#define gds__license_syntx_error              336789532L
+#define gds__license_dup_id                   336789534L
+#define gds__license_inv_id_key               336789535L
+#define gds__license_err_remove               336789536L
+#define gds__license_err_update               336789537L
+#define gds__license_err_convert              336789538L
+#define gds__license_err_unk                  336789539L
+#define gds__license_svc_err_add              336789540L
+#define gds__license_svc_err_remove           336789541L
+#define gds__license_eval_exists              336789563L
+#define gds__gstat_unknown_switch             336920577L
+#define gds__gstat_retry                      336920578L
+#define gds__gstat_wrong_ods                  336920579L
+#define gds__gstat_unexpected_eof             336920580L
+#define gds__gstat_open_err                   336920605L
+#define gds__gstat_read_err                   336920606L
+#define gds__gstat_sysmemex                   336920607L
+#define gds_err_max                          689
+
+
+// TMN: Added C++ legal identifiers
+
+#define gds_arith_except                     335544321L
+#define gds_bad_dbkey                        335544322L
+#define gds_bad_db_format                    335544323L
+#define gds_bad_db_handle                    335544324L
+#define gds_bad_dpb_content                  335544325L
+#define gds_bad_dpb_form                     335544326L
+#define gds_bad_req_handle                   335544327L
+#define gds_bad_segstr_handle                335544328L
+#define gds_bad_segstr_id                    335544329L
+#define gds_bad_tpb_content                  335544330L
+#define gds_bad_tpb_form                     335544331L
+#define gds_bad_trans_handle                 335544332L
+#define gds_bug_check                        335544333L
+#define gds_convert_error                    335544334L
+#define gds_db_corrupt                       335544335L
+#define gds_deadlock                         335544336L
+#define gds_excess_trans                     335544337L
+#define gds_from_no_match                    335544338L
+#define gds_infinap                          335544339L
+#define gds_infona                           335544340L
+#define gds_infunk                           335544341L
+#define gds_integ_fail                       335544342L
+#define gds_invalid_blr                      335544343L
+#define gds_io_error                         335544344L
+#define gds_lock_conflict                    335544345L
+#define gds_metadata_corrupt                 335544346L
+#define gds_not_valid                        335544347L
+#define gds_no_cur_rec                       335544348L
+#define gds_no_dup                           335544349L
+#define gds_no_finish                        335544350L
+#define gds_no_meta_update                   335544351L
+#define gds_no_priv                          335544352L
+#define gds_no_recon                         335544353L
+#define gds_no_record                        335544354L
+#define gds_no_segstr_close                  335544355L
+#define gds_obsolete_metadata                335544356L
+#define gds_open_trans                       335544357L
+#define gds_port_len                         335544358L
+#define gds_read_only_field                  335544359L
+#define gds_read_only_rel                    335544360L
+#define gds_read_only_trans                  335544361L
+#define gds_read_only_view                   335544362L
+#define gds_req_no_trans                     335544363L
+#define gds_req_sync                         335544364L
+#define gds_req_wrong_db                     335544365L
+#define gds_segment                          335544366L
+#define gds_segstr_eof                       335544367L
+#define gds_segstr_no_op                     335544368L
+#define gds_segstr_no_read                   335544369L
+#define gds_segstr_no_trans                  335544370L
+#define gds_segstr_no_write                  335544371L
+#define gds_segstr_wrong_db                  335544372L
+#define gds_sys_request                      335544373L
+#define gds_stream_eof                       335544374L
+#define gds_unavailable                      335544375L
+#define gds_unres_rel                        335544376L
+#define gds_uns_ext                          335544377L
+#define gds_wish_list                        335544378L
+#define gds_wrong_ods                        335544379L
+#define gds_wronumarg                        335544380L
+#define gds_imp_exc                          335544381L
+#define gds_random                           335544382L
+#define gds_fatal_conflict                   335544383L
+#define gds_badblk                           335544384L
+#define gds_invpoolcl                        335544385L
+#define gds_nopoolids                        335544386L
+#define gds_relbadblk                        335544387L
+#define gds_blktoobig                        335544388L
+#define gds_bufexh                           335544389L
+#define gds_syntaxerr                        335544390L
+#define gds_bufinuse                         335544391L
+#define gds_bdbincon                         335544392L
+#define gds_reqinuse                         335544393L
+#define gds_badodsver                        335544394L
+#define gds_relnotdef                        335544395L
+#define gds_fldnotdef                        335544396L
+#define gds_dirtypage                        335544397L
+#define gds_waifortra                        335544398L
+#define gds_doubleloc                        335544399L
+#define gds_nodnotfnd                        335544400L
+#define gds_dupnodfnd                        335544401L
+#define gds_locnotmar                        335544402L
+#define gds_badpagtyp                        335544403L
+#define gds_corrupt                          335544404L
+#define gds_badpage                          335544405L
+#define gds_badindex                         335544406L
+#define gds_dbbnotzer                        335544407L
+#define gds_tranotzer                        335544408L
+#define gds_trareqmis                        335544409L
+#define gds_badhndcnt                        335544410L
+#define gds_wrotpbver                        335544411L
+#define gds_wroblrver                        335544412L
+#define gds_wrodpbver                        335544413L
+#define gds_blobnotsup                       335544414L
+#define gds_badrelation                      335544415L
+#define gds_nodetach                         335544416L
+#define gds_notremote                        335544417L
+#define gds_trainlim                         335544418L
+#define gds_notinlim                         335544419L
+#define gds_traoutsta                        335544420L
+#define gds_connect_reject                   335544421L
+#define gds_dbfile                           335544422L
+#define gds_orphan                           335544423L
+#define gds_no_lock_mgr                      335544424L
+#define gds_ctxinuse                         335544425L
+#define gds_ctxnotdef                        335544426L
+#define gds_datnotsup                        335544427L
+#define gds_badmsgnum                        335544428L
+#define gds_badparnum                        335544429L
+#define gds_virmemexh                        335544430L
+#define gds_blocking_signal                  335544431L
+#define gds_lockmanerr                       335544432L
+#define gds_journerr                         335544433L
+#define gds_keytoobig                        335544434L
+#define gds_nullsegkey                       335544435L
+#define gds_sqlerr                           335544436L
+#define gds_wrodynver                        335544437L
+#define gds_funnotdef                        335544438L
+#define gds_funmismat                        335544439L
+#define gds_bad_msg_vec                      335544440L
+#define gds_bad_detach                       335544441L
+#define gds_noargacc_read                    335544442L
+#define gds_noargacc_write                   335544443L
+#define gds_read_only                        335544444L
+#define gds_ext_err                          335544445L
+#define gds_non_updatable                    335544446L
+#define gds_no_rollback                      335544447L
+#define gds_bad_sec_info                     335544448L
+#define gds_invalid_sec_info                 335544449L
+#define gds_misc_interpreted                 335544450L
+#define gds_update_conflict                  335544451L
+#define gds_unlicensed                       335544452L
+#define gds_obj_in_use                       335544453L
+#define gds_nofilter                         335544454L
+#define gds_shadow_accessed                  335544455L
+#define gds_invalid_sdl                      335544456L
+#define gds_out_of_bounds                    335544457L
+#define gds_invalid_dimension                335544458L
+#define gds_rec_in_limbo                     335544459L
+#define gds_shadow_missing                   335544460L
+#define gds_cant_validate                    335544461L
+#define gds_cant_start_journal               335544462L
+#define gds_gennotdef                        335544463L
+#define gds_cant_start_logging               335544464L
+#define gds_bad_segstr_type                  335544465L
+#define gds_foreign_key                      335544466L
+#define gds_high_minor                       335544467L
+#define gds_tra_state                        335544468L
+#define gds_trans_invalid                    335544469L
+#define gds_buf_invalid                      335544470L
+#define gds_indexnotdefined                  335544471L
+#define gds_login                            335544472L
+#define gds_invalid_bookmark                 335544473L
+#define gds_bad_lock_level                   335544474L
+#define gds_relation_lock                    335544475L
+#define gds_record_lock                      335544476L
+#define gds_max_idx                          335544477L
+#define gds_jrn_enable                       335544478L
+#define gds_old_failure                      335544479L
+#define gds_old_in_progress                  335544480L
+#define gds_old_no_space                     335544481L
+#define gds_no_wal_no_jrn                    335544482L
+#define gds_num_old_files                    335544483L
+#define gds_wal_file_open                    335544484L
+#define gds_bad_stmt_handle                  335544485L
+#define gds_wal_failure                      335544486L
+#define gds_walw_err                         335544487L
+#define gds_logh_small                       335544488L
+#define gds_logh_inv_version                 335544489L
+#define gds_logh_open_flag                   335544490L
+#define gds_logh_open_flag2                  335544491L
+#define gds_logh_diff_dbname                 335544492L
+#define gds_logf_unexpected_eof              335544493L
+#define gds_logr_incomplete                  335544494L
+#define gds_logr_header_small                335544495L
+#define gds_logb_small                       335544496L
+#define gds_wal_illegal_attach               335544497L
+#define gds_wal_invalid_wpb                  335544498L
+#define gds_wal_err_rollover                 335544499L
+#define gds_no_wal                           335544500L
+#define gds_drop_wal                         335544501L
+#define gds_stream_not_defined               335544502L
+#define gds_wal_subsys_error                 335544503L
+#define gds_wal_subsys_corrupt               335544504L
+#define gds_no_archive                       335544505L
+#define gds_shutinprog                       335544506L
+#define gds_range_in_use                     335544507L
+#define gds_range_not_found                  335544508L
+#define gds_charset_not_found                335544509L
+#define gds_lock_timeout                     335544510L
+#define gds_prcnotdef                        335544511L
+#define gds_prcmismat                        335544512L
+#define gds_wal_bugcheck                     335544513L
+#define gds_wal_cant_expand                  335544514L
+#define gds_codnotdef                        335544515L
+#define gds_xcpnotdef                        335544516L
+#define gds_except                           335544517L
+#define gds_cache_restart                    335544518L
+#define gds_bad_lock_handle                  335544519L
+#define gds_jrn_present                      335544520L
+#define gds_wal_err_rollover2                335544521L
+#define gds_wal_err_logwrite                 335544522L
+#define gds_wal_err_jrn_comm                 335544523L
+#define gds_wal_err_expansion                335544524L
+#define gds_wal_err_setup                    335544525L
+#define gds_wal_err_ww_sync                  335544526L
+#define gds_wal_err_ww_start                 335544527L
+#define gds_shutdown                         335544528L
+#define gds_existing_priv_mod                335544529L
+#define gds_primary_key_ref                  335544530L
+#define gds_primary_key_notnull              335544531L
+#define gds_ref_cnstrnt_notfound             335544532L
+#define gds_foreign_key_notfound             335544533L
+#define gds_ref_cnstrnt_update               335544534L
+#define gds_check_cnstrnt_update             335544535L
+#define gds_check_cnstrnt_del                335544536L
+#define gds_integ_index_seg_del              335544537L
+#define gds_integ_index_seg_mod              335544538L
+#define gds_integ_index_del                  335544539L
+#define gds_integ_index_mod                  335544540L
+#define gds_check_trig_del                   335544541L
+#define gds_check_trig_update                335544542L
+#define gds_cnstrnt_fld_del                  335544543L
+#define gds_cnstrnt_fld_rename               335544544L
+#define gds_rel_cnstrnt_update               335544545L
+#define gds_constaint_on_view                335544546L
+#define gds_invld_cnstrnt_type               335544547L
+#define gds_primary_key_exists               335544548L
+#define gds_systrig_update                   335544549L
+#define gds_not_rel_owner                    335544550L
+#define gds_grant_obj_notfound               335544551L
+#define gds_grant_fld_notfound               335544552L
+#define gds_grant_nopriv                     335544553L
+#define gds_nonsql_security_rel              335544554L
+#define gds_nonsql_security_fld              335544555L
+#define gds_wal_cache_err                    335544556L
+#define gds_shutfail                         335544557L
+#define gds_check_constraint                 335544558L
+#define gds_bad_svc_handle                   335544559L
+#define gds_shutwarn                         335544560L
+#define gds_wrospbver                        335544561L
+#define gds_bad_spb_form                     335544562L
+#define gds_svcnotdef                        335544563L
+#define gds_no_jrn                           335544564L
+#define gds_transliteration_failed           335544565L
+#define gds_start_cm_for_wal                 335544566L
+#define gds_wal_ovflow_log_required          335544567L
+#define gds_text_subtype                     335544568L
+#define gds_dsql_error                       335544569L
+#define gds_dsql_command_err                 335544570L
+#define gds_dsql_constant_err                335544571L
+#define gds_dsql_cursor_err                  335544572L
+#define gds_dsql_datatype_err                335544573L
+#define gds_dsql_decl_err                    335544574L
+#define gds_dsql_cursor_update_err           335544575L
+#define gds_dsql_cursor_open_err             335544576L
+#define gds_dsql_cursor_close_err            335544577L
+#define gds_dsql_field_err                   335544578L
+#define gds_dsql_internal_err                335544579L
+#define gds_dsql_relation_err                335544580L
+#define gds_dsql_procedure_err               335544581L
+#define gds_dsql_request_err                 335544582L
+#define gds_dsql_sqlda_err                   335544583L
+#define gds_dsql_var_count_err               335544584L
+#define gds_dsql_stmt_handle                 335544585L
+#define gds_dsql_function_err                335544586L
+#define gds_dsql_blob_err                    335544587L
+#define gds_collation_not_found              335544588L
+#define gds_collation_not_for_charset        335544589L
+#define gds_dsql_dup_option                  335544590L
+#define gds_dsql_tran_err                    335544591L
+#define gds_dsql_invalid_array               335544592L
+#define gds_dsql_max_arr_dim_exceeded        335544593L
+#define gds_dsql_arr_range_error             335544594L
+#define gds_dsql_trigger_err                 335544595L
+#define gds_dsql_subselect_err               335544596L
+#define gds_dsql_crdb_prepare_err            335544597L
+#define gds_specify_field_err                335544598L
+#define gds_num_field_err                    335544599L
+#define gds_col_name_err                     335544600L
+#define gds_where_err                        335544601L
+#define gds_table_view_err                   335544602L
+#define gds_distinct_err                     335544603L
+#define gds_key_field_count_err              335544604L
+#define gds_subquery_err                     335544605L
+#define gds_expression_eval_err              335544606L
+#define gds_node_err                         335544607L
+#define gds_command_end_err                  335544608L
+#define gds_index_name                       335544609L
+#define gds_exception_name                   335544610L
+#define gds_field_name                       335544611L
+#define gds_token_err                        335544612L
+#define gds_union_err                        335544613L
+#define gds_dsql_construct_err               335544614L
+#define gds_field_aggregate_err              335544615L
+#define gds_field_ref_err                    335544616L
+#define gds_order_by_err                     335544617L
+#define gds_return_mode_err                  335544618L
+#define gds_extern_func_err                  335544619L
+#define gds_alias_conflict_err               335544620L
+#define gds_procedure_conflict_error         335544621L
+#define gds_relation_conflict_err            335544622L
+#define gds_dsql_domain_err                  335544623L
+#define gds_idx_seg_err                      335544624L
+#define gds_node_name_err                    335544625L
+#define gds_table_name                       335544626L
+#define gds_proc_name                        335544627L
+#define gds_idx_create_err                   335544628L
+#define gds_wal_shadow_err                   335544629L
+#define gds_dependency                       335544630L
+#define gds_idx_key_err                      335544631L
+#define gds_dsql_file_length_err             335544632L
+#define gds_dsql_shadow_number_err           335544633L
+#define gds_dsql_token_unk_err               335544634L
+#define gds_dsql_no_relation_alias           335544635L
+#define gds_indexname                        335544636L
+#define gds_no_stream_plan                   335544637L
+#define gds_stream_twice                     335544638L
+#define gds_stream_not_found                 335544639L
+#define gds_collation_requires_text          335544640L
+#define gds_dsql_domain_not_found            335544641L
+#define gds_index_unused                     335544642L
+#define gds_dsql_self_join                   335544643L
+#define gds_stream_bof                       335544644L
+#define gds_stream_crack                     335544645L
+#define gds_db_or_file_exists                335544646L
+#define gds_invalid_operator                 335544647L
+#define gds_conn_lost                        335544648L
+#define gds_bad_checksum                     335544649L
+#define gds_page_type_err                    335544650L
+#define gds_ext_readonly_err                 335544651L
+#define gds_sing_select_err                  335544652L
+#define gds_psw_attach                       335544653L
+#define gds_psw_start_trans                  335544654L
+#define gds_invalid_direction                335544655L
+#define gds_dsql_var_conflict                335544656L
+#define gds_dsql_no_blob_array               335544657L
+#define gds_dsql_base_table                  335544658L
+#define gds_duplicate_base_table             335544659L
+#define gds_view_alias                       335544660L
+#define gds_index_root_page_full             335544661L
+#define gds_dsql_blob_type_unknown           335544662L
+#define gds_req_max_clones_exceeded          335544663L
+#define gds_dsql_duplicate_spec              335544664L
+#define gds_unique_key_violation             335544665L
+#define gds_srvr_version_too_old             335544666L
+#define gds_drdb_completed_with_errs         335544667L
+#define gds_dsql_procedure_use_err           335544668L
+#define gds_dsql_count_mismatch              335544669L
+#define gds_blob_idx_err                     335544670L
+#define gds_array_idx_err                    335544671L
+#define gds_key_field_err                    335544672L
+#define gds_no_delete                        335544673L
+#define gds_del_last_field                   335544674L
+#define gds_sort_err                         335544675L
+#define gds_sort_mem_err                     335544676L
+#define gds_version_err                      335544677L
+#define gds_inval_key_posn                   335544678L
+#define gds_no_segments_err                  335544679L
+#define gds_crrp_data_err                    335544680L
+#define gds_rec_size_err                     335544681L
+#define gds_dsql_field_ref                   335544682L
+#define gds_req_depth_exceeded               335544683L
+#define gds_no_field_access                  335544684L
+#define gds_no_dbkey                         335544685L
+#define gds_jrn_format_err                   335544686L
+#define gds_jrn_file_full                    335544687L
+#define gds_dsql_open_cursor_request         335544688L
+#define gds_ib_error                         335544689L
+#define gds_cache_redef                      335544690L
+#define gds_cache_too_small                  335544691L
+#define gds_log_redef                        335544692L
+#define gds_log_too_small                    335544693L
+#define gds_partition_too_small              335544694L
+#define gds_partition_not_supp               335544695L
+#define gds_log_length_spec                  335544696L
+#define gds_precision_err                    335544697L
+#define gds_scale_nogt                       335544698L
+#define gds_expec_short                      335544699L
+#define gds_expec_long                       335544700L
+#define gds_expec_ushort                     335544701L
+#define gds_like_escape_invalid              335544702L
+#define gds_svcnoexe                         335544703L
+#define gds_net_lookup_err                   335544704L
+#define gds_service_unknown                  335544705L
+#define gds_host_unknown                     335544706L
+#define gds_grant_nopriv_on_base             335544707L
+#define gds_dyn_fld_ambiguous                335544708L
+#define gds_dsql_agg_ref_err                 335544709L
+#define gds_complex_view                     335544710L
+#define gds_unprepared_stmt                  335544711L
+#define gds_expec_positive                   335544712L
+#define gds_dsql_sqlda_value_err             335544713L
+#define gds_invalid_array_id                 335544714L
+#define gds_extfile_uns_op                   335544715L
+#define gds_svc_in_use                       335544716L
+#define gds_err_stack_limit                  335544717L
+#define gds_invalid_key                      335544718L
+#define gds_net_init_error                   335544719L
+#define gds_loadlib_failure                  335544720L
+#define gds_network_error                    335544721L
+#define gds_net_connect_err                  335544722L
+#define gds_net_connect_listen_err           335544723L
+#define gds_net_event_connect_err            335544724L
+#define gds_net_event_listen_err             335544725L
+#define gds_net_read_err                     335544726L
+#define gds_net_write_err                    335544727L
+#define gds_integ_index_deactivate           335544728L
+#define gds_integ_deactivate_primary         335544729L
+#define gds_cse_not_supported                335544730L
+#define gds_tra_must_sweep                   335544731L
+#define gds_unsupported_network_drive        335544732L
+#define gds_io_create_err                    335544733L
+#define gds_io_open_err                      335544734L
+#define gds_io_close_err                     335544735L
+#define gds_io_read_err                      335544736L
+#define gds_io_write_err                     335544737L
+#define gds_io_delete_err                    335544738L
+#define gds_io_access_err                    335544739L
+#define gds_udf_exception                    335544740L
+#define gds_lost_db_connection               335544741L
+#define gds_no_write_user_priv               335544742L
+#define gds_token_too_long                   335544743L
+#define gds_max_att_exceeded                 335544744L
+#define gds_login_same_as_role_name          335544745L
+#define gds_reftable_requires_pk             335544746L
+#define gds_usrname_too_long                 335544747L
+#define gds_password_too_long                335544748L
+#define gds_usrname_required                 335544749L
+#define gds_password_required                335544750L
+#define gds_bad_protocol                     335544751L
+#define gds_dup_usrname_found                335544752L
+#define gds_usrname_not_found                335544753L
+#define gds_error_adding_sec_record          335544754L
+#define gds_error_modifying_sec_record       335544755L
+#define gds_error_deleting_sec_record        335544756L
+#define gds_error_updating_sec_db            335544757L
+#define gds_sort_rec_size_err                335544758L
+#define gds_bad_default_value                335544759L
+#define gds_invalid_clause                   335544760L
+#define gds_too_many_handles                 335544761L
+#define gds_optimizer_blk_exc                335544762L
+#define gds_invalid_string_constant          335544763L
+#define gds_transitional_date                335544764L
+#define gds_read_only_database               335544765L
+#define gds_must_be_dialect_2_and_up         335544766L
+#define gds_blob_filter_exception            335544767L
+#define gds_exception_access_violation       335544768L
+#define gds_exception_datatype_missalignment 335544769L
+#define gds_exception_array_bounds_exceeded  335544770L
+#define gds_exception_float_denormal_operand 335544771L
+#define gds_exception_float_divide_by_zero   335544772L
+#define gds_exception_float_inexact_result   335544773L
+#define gds_exception_float_invalid_operand  335544774L
+#define gds_exception_float_overflow         335544775L
+#define gds_exception_float_stack_check      335544776L
+#define gds_exception_float_underflow        335544777L
+#define gds_exception_integer_divide_by_zero 335544778L
+#define gds_exception_integer_overflow       335544779L
+#define gds_exception_unknown                335544780L
+#define gds_exception_stack_overflow         335544781L
+#define gds_exception_sigsegv                335544782L
+#define gds_exception_sigill                 335544783L
+#define gds_exception_sigbus                 335544784L
+#define gds_exception_sigfpe                 335544785L
+#define gds_ext_file_delete                  335544786L
+#define gds_ext_file_modify                  335544787L
+#define gds_adm_task_denied                  335544788L
+#define gds_extract_input_mismatch           335544789L
+#define gds_insufficient_svc_privileges      335544790L
+#define gds_file_in_use                      335544791L
+#define gds_service_att_err                  335544792L
+#define gds_ddl_not_allowed_by_db_sql_dial   335544793L
+#define gds_cancelled                        335544794L
+#define gds_unexp_spb_form                   335544795L
+#define gds_sql_dialect_datatype_unsupport   335544796L
+#define gds_svcnouser                        335544797L
+#define gds_depend_on_uncommitted_rel        335544798L
+#define gds_svc_name_missing                 335544799L
+#define gds_too_many_contexts                335544800L
+#define gds_datype_notsup                    335544801L
+#define gds_dialect_reset_warning            335544802L
+#define gds_dialect_not_changed              335544803L
+#define gds_database_create_failed           335544804L
+#define gds_inv_dialect_specified            335544805L
+#define gds_valid_db_dialects                335544806L
+#define gds_sqlwarn                          335544807L
+#define gds_dtype_renamed                    335544808L
+#define gds_extern_func_dir_error            335544809L
+#define gds_date_range_exceeded              335544810L
+#define gds_inv_client_dialect_specified     335544811L
+#define gds_valid_client_dialects            335544812L
+#define gds_optimizer_between_err            335544813L
+#define gds_service_not_supported            335544814L
+#define gds_gfix_db_name                     335740929L
+#define gds_gfix_invalid_sw                  335740930L
+#define gds_gfix_incmp_sw                    335740932L
+#define gds_gfix_replay_req                  335740933L
+#define gds_gfix_pgbuf_req                   335740934L
+#define gds_gfix_val_req                     335740935L
+#define gds_gfix_pval_req                    335740936L
+#define gds_gfix_trn_req                     335740937L
+#define gds_gfix_full_req                    335740940L
+#define gds_gfix_usrname_req                 335740941L
+#define gds_gfix_pass_req                    335740942L
+#define gds_gfix_subs_name                   335740943L
+#define gds_gfix_wal_req                     335740944L
+#define gds_gfix_sec_req                     335740945L
+#define gds_gfix_nval_req                    335740946L
+#define gds_gfix_type_shut                   335740947L
+#define gds_gfix_retry                       335740948L
+#define gds_gfix_retry_db                    335740951L
+#define gds_gfix_exceed_max                  335740991L
+#define gds_gfix_corrupt_pool                335740992L
+#define gds_gfix_mem_exhausted               335740993L
+#define gds_gfix_bad_pool                    335740994L
+#define gds_gfix_trn_not_valid               335740995L
+#define gds_gfix_unexp_eoi                   335741012L
+#define gds_gfix_recon_fail                  335741018L
+#define gds_gfix_trn_unknown                 335741036L
+#define gds_gfix_mode_req                    335741038L
+#define gds_gfix_opt_SQL_dialect             335741039L
+#define gds_dsql_dbkey_from_non_table        336003074L
+#define gds_dsql_transitional_numeric        336003075L
+#define gds_dsql_dialect_warning_expr        336003076L
+#define gds_sql_db_dialect_dtype_unsupport   336003077L
+#define gds_isc_sql_dialect_conflict_num     336003079L
+#define gds_dsql_warning_number_ambiguous    336003080L
+#define gds_dsql_warning_number_ambiguous1   336003081L
+#define gds_dsql_warn_precision_ambiguous    336003082L
+#define gds_dsql_warn_precision_ambiguous1   336003083L
+#define gds_dsql_warn_precision_ambiguous2   336003084L
+#define gds_dyn_role_does_not_exist          336068796L
+#define gds_dyn_no_grant_admin_opt           336068797L
+#define gds_dyn_user_not_role_member         336068798L
+#define gds_dyn_delete_role_failed           336068799L
+#define gds_dyn_grant_role_to_user           336068800L
+#define gds_dyn_inv_sql_role_name            336068801L
+#define gds_dyn_dup_sql_role                 336068802L
+#define gds_dyn_kywd_spec_for_role           336068803L
+#define gds_dyn_roles_not_supported          336068804L
+#define gds_dyn_domain_name_exists           336068812L
+#define gds_dyn_field_name_exists            336068813L
+#define gds_dyn_dependency_exists            336068814L
+#define gds_dyn_dtype_invalid                336068815L
+#define gds_dyn_char_fld_too_small           336068816L
+#define gds_dyn_invalid_dtype_conversion     336068817L
+#define gds_dyn_dtype_conv_invalid           336068818L
+#define gds_gbak_unknown_switch              336330753L
+#define gds_gbak_page_size_missing           336330754L
+#define gds_gbak_page_size_toobig            336330755L
+#define gds_gbak_redir_ouput_missing         336330756L
+#define gds_gbak_switches_conflict           336330757L
+#define gds_gbak_unknown_device              336330758L
+#define gds_gbak_no_protection               336330759L
+#define gds_gbak_page_size_not_allowed       336330760L
+#define gds_gbak_multi_source_dest           336330761L
+#define gds_gbak_filename_missing            336330762L
+#define gds_gbak_dup_inout_names             336330763L
+#define gds_gbak_inv_page_size               336330764L
+#define gds_gbak_db_specified                336330765L
+#define gds_gbak_db_exists                   336330766L
+#define gds_gbak_unk_device                  336330767L
+#define gds_gbak_blob_info_failed            336330772L
+#define gds_gbak_unk_blob_item               336330773L
+#define gds_gbak_get_seg_failed              336330774L
+#define gds_gbak_close_blob_failed           336330775L
+#define gds_gbak_open_blob_failed            336330776L
+#define gds_gbak_put_blr_gen_id_failed       336330777L
+#define gds_gbak_unk_type                    336330778L
+#define gds_gbak_comp_req_failed             336330779L
+#define gds_gbak_start_req_failed            336330780L
+#define gds_gbak_rec_failed                  336330781L
+#define gds_gbak_rel_req_failed              336330782L
+#define gds_gbak_db_info_failed              336330783L
+#define gds_gbak_no_db_desc                  336330784L
+#define gds_gbak_db_create_failed            336330785L
+#define gds_gbak_decomp_len_error            336330786L
+#define gds_gbak_tbl_missing                 336330787L
+#define gds_gbak_blob_col_missing            336330788L
+#define gds_gbak_create_blob_failed          336330789L
+#define gds_gbak_put_seg_failed              336330790L
+#define gds_gbak_rec_len_exp                 336330791L
+#define gds_gbak_inv_rec_len                 336330792L
+#define gds_gbak_exp_data_type               336330793L
+#define gds_gbak_gen_id_failed               336330794L
+#define gds_gbak_unk_rec_type                336330795L
+#define gds_gbak_inv_bkup_ver                336330796L
+#define gds_gbak_missing_bkup_desc           336330797L
+#define gds_gbak_string_trunc                336330798L
+#define gds_gbak_cant_rest_record            336330799L
+#define gds_gbak_send_failed                 336330800L
+#define gds_gbak_no_tbl_name                 336330801L
+#define gds_gbak_unexp_eof                   336330802L
+#define gds_gbak_db_format_too_old           336330803L
+#define gds_gbak_inv_array_dim               336330804L
+#define gds_gbak_xdr_len_expected            336330807L
+#define gds_gbak_open_bkup_error             336330817L
+#define gds_gbak_open_error                  336330818L
+#define gds_gbak_missing_block_fac           336330934L
+#define gds_gbak_inv_block_fac               336330935L
+#define gds_gbak_block_fac_specified         336330936L
+#define gds_gbak_missing_username            336330940L
+#define gds_gbak_missing_password            336330941L
+#define gds_gbak_missing_skipped_bytes       336330952L
+#define gds_gbak_inv_skipped_bytes           336330953L
+#define gds_gbak_err_restore_charset         336330965L
+#define gds_gbak_err_restore_collation       336330967L
+#define gds_gbak_read_error                  336330972L
+#define gds_gbak_write_error                 336330973L
+#define gds_gbak_db_in_use                   336330985L
+#define gds_gbak_sysmemex                    336330990L
+#define gds_gbak_restore_role_failed         336331002L
+#define gds_gbak_role_op_missing             336331005L
+#define gds_gbak_page_buffers_missing        336331010L
+#define gds_gbak_page_buffers_wrong_param    336331011L
+#define gds_gbak_page_buffers_restore        336331012L
+#define gds_gbak_inv_size                    336331014L
+#define gds_gbak_file_outof_sequence         336331015L
+#define gds_gbak_join_file_missing           336331016L
+#define gds_gbak_stdin_not_supptd            336331017L
+#define gds_gbak_stdout_not_supptd           336331018L
+#define gds_gbak_bkup_corrupt                336331019L
+#define gds_gbak_unk_db_file_spec            336331020L
+#define gds_gbak_hdr_write_failed            336331021L
+#define gds_gbak_disk_space_ex               336331022L
+#define gds_gbak_size_lt_min                 336331023L
+#define gds_gbak_svc_name_missing            336331025L
+#define gds_gbak_not_ownr                    336331026L
+#define gds_gbak_mode_req                    336331031L
+#define gds_gsec_cant_open_db                336723983L
+#define gds_gsec_switches_error              336723984L
+#define gds_gsec_no_op_spec                  336723985L
+#define gds_gsec_no_usr_name                 336723986L
+#define gds_gsec_err_add                     336723987L
+#define gds_gsec_err_modify                  336723988L
+#define gds_gsec_err_find_mod                336723989L
+#define gds_gsec_err_rec_not_found           336723990L
+#define gds_gsec_err_delete                  336723991L
+#define gds_gsec_err_find_del                336723992L
+#define gds_gsec_err_find_disp               336723996L
+#define gds_gsec_inv_param                   336723997L
+#define gds_gsec_op_specified                336723998L
+#define gds_gsec_pw_specified                336723999L
+#define gds_gsec_uid_specified               336724000L
+#define gds_gsec_gid_specified               336724001L
+#define gds_gsec_proj_specified              336724002L
+#define gds_gsec_org_specified               336724003L
+#define gds_gsec_fname_specified             336724004L
+#define gds_gsec_mname_specified             336724005L
+#define gds_gsec_lname_specified             336724006L
+#define gds_gsec_inv_switch                  336724008L
+#define gds_gsec_amb_switch                  336724009L
+#define gds_gsec_no_op_specified             336724010L
+#define gds_gsec_params_not_allowed          336724011L
+#define gds_gsec_incompat_switch             336724012L
+#define gds_gsec_inv_username                336724044L
+#define gds_gsec_inv_pw_length               336724045L
+#define gds_gsec_db_specified                336724046L
+#define gds_gsec_db_admin_specified          336724047L
+#define gds_gsec_db_admin_pw_specified       336724048L
+#define gds_gsec_sql_role_specified          336724049L
+#define gds_license_no_file                  336789504L
+#define gds_license_op_specified             336789523L
+#define gds_license_op_missing               336789524L
+#define gds_license_inv_switch               336789525L
+#define gds_license_inv_switch_combo         336789526L
+#define gds_license_inv_op_combo             336789527L
+#define gds_license_amb_switch               336789528L
+#define gds_license_inv_parameter            336789529L
+#define gds_license_param_specified          336789530L
+#define gds_license_param_req                336789531L
+#define gds_license_syntx_error              336789532L
+#define gds_license_dup_id                   336789534L
+#define gds_license_inv_id_key               336789535L
+#define gds_license_err_remove               336789536L
+#define gds_license_err_update               336789537L
+#define gds_license_err_convert              336789538L
+#define gds_license_err_unk                  336789539L
+#define gds_license_svc_err_add              336789540L
+#define gds_license_svc_err_remove           336789541L
+#define gds_license_eval_exists              336789563L
+#define gds_gstat_unknown_switch             336920577L
+#define gds_gstat_retry                      336920578L
+#define gds_gstat_wrong_ods                  336920579L
+#define gds_gstat_unexpected_eof             336920580L
+#define gds_gstat_open_err                   336920605L
+#define gds_gstat_read_err                   336920606L
+#define gds_gstat_sysmemex                   336920607L
+
+
+/***********************/
+/*   ISC Error Codes   */
+/***********************/
+
+#define isc_facility	20
+#define isc_err_base	335544320L
+#define isc_err_factor	1
+#define isc_arg_end		0		/* end of argument list */
+#define isc_arg_gds		1		/* generic DSRI status value */
+#define isc_arg_string		2	/* string argument */
+#define isc_arg_cstring	3		/* count & string argument */
+#define isc_arg_number		4	/* numeric argument (long) */
+#define isc_arg_interpreted	5	/* interpreted status code (string) */
+#define isc_arg_vms		6		/* VAX/VMS status code (long) */
+#define isc_arg_unix		7	/* UNIX error code */
+#define isc_arg_domain		8	/* Apollo/Domain error code */
+#define isc_arg_dos		9		/* MSDOS/OS2 error code */
+#define isc_arg_mpexl		10	/* HP MPE/XL error code */
+#define isc_arg_mpexl_ipc	11	/* HP MPE/XL IPC error code */
+#define isc_arg_next_mach	15	/* NeXT/Mach error code */
+#define isc_arg_netware	16		/* NetWare error code */
+#define isc_arg_win32		17	/* Win32 error code */
+#define isc_arg_warning	18		/* warning argument */
+
+#define isc_arith_except                     335544321L
+#define isc_bad_dbkey                        335544322L
+#define isc_bad_db_format                    335544323L
+#define isc_bad_db_handle                    335544324L
+#define isc_bad_dpb_content                  335544325L
+#define isc_bad_dpb_form                     335544326L
+#define isc_bad_req_handle                   335544327L
+#define isc_bad_segstr_handle                335544328L
+#define isc_bad_segstr_id                    335544329L
+#define isc_bad_tpb_content                  335544330L
+#define isc_bad_tpb_form                     335544331L
+#define isc_bad_trans_handle                 335544332L
+#define isc_bug_check                        335544333L
+#define isc_convert_error                    335544334L
+#define isc_db_corrupt                       335544335L
+#define isc_deadlock                         335544336L
+#define isc_excess_trans                     335544337L
+#define isc_from_no_match                    335544338L
+#define isc_infinap                          335544339L
+#define isc_infona                           335544340L
+#define isc_infunk                           335544341L
+#define isc_integ_fail                       335544342L
+#define isc_invalid_blr                      335544343L
+#define isc_io_error                         335544344L
+#define isc_lock_conflict                    335544345L
+#define isc_metadata_corrupt                 335544346L
+#define isc_not_valid                        335544347L
+#define isc_no_cur_rec                       335544348L
+#define isc_no_dup                           335544349L
+#define isc_no_finish                        335544350L
+#define isc_no_meta_update                   335544351L
+#define isc_no_priv                          335544352L
+#define isc_no_recon                         335544353L
+#define isc_no_record                        335544354L
+#define isc_no_segstr_close                  335544355L
+#define isc_obsolete_metadata                335544356L
+#define isc_open_trans                       335544357L
+#define isc_port_len                         335544358L
+#define isc_read_only_field                  335544359L
+#define isc_read_only_rel                    335544360L
+#define isc_read_only_trans                  335544361L
+#define isc_read_only_view                   335544362L
+#define isc_req_no_trans                     335544363L
+#define isc_req_sync                         335544364L
+#define isc_req_wrong_db                     335544365L
+#define isc_segment                          335544366L
+#define isc_segstr_eof                       335544367L
+#define isc_segstr_no_op                     335544368L
+#define isc_segstr_no_read                   335544369L
+#define isc_segstr_no_trans                  335544370L
+#define isc_segstr_no_write                  335544371L
+#define isc_segstr_wrong_db                  335544372L
+#define isc_sys_request                      335544373L
+#define isc_stream_eof                       335544374L
+#define isc_unavailable                      335544375L
+#define isc_unres_rel                        335544376L
+#define isc_uns_ext                          335544377L
+#define isc_wish_list                        335544378L
+#define isc_wrong_ods                        335544379L
+#define isc_wronumarg                        335544380L
+#define isc_imp_exc                          335544381L
+#define isc_random                           335544382L
+#define isc_fatal_conflict                   335544383L
+#define isc_badblk                           335544384L
+#define isc_invpoolcl                        335544385L
+#define isc_nopoolids                        335544386L
+#define isc_relbadblk                        335544387L
+#define isc_blktoobig                        335544388L
+#define isc_bufexh                           335544389L
+#define isc_syntaxerr                        335544390L
+#define isc_bufinuse                         335544391L
+#define isc_bdbincon                         335544392L
+#define isc_reqinuse                         335544393L
+#define isc_badodsver                        335544394L
+#define isc_relnotdef                        335544395L
+#define isc_fldnotdef                        335544396L
+#define isc_dirtypage                        335544397L
+#define isc_waifortra                        335544398L
+#define isc_doubleloc                        335544399L
+#define isc_nodnotfnd                        335544400L
+#define isc_dupnodfnd                        335544401L
+#define isc_locnotmar                        335544402L
+#define isc_badpagtyp                        335544403L
+#define isc_corrupt                          335544404L
+#define isc_badpage                          335544405L
+#define isc_badindex                         335544406L
+#define isc_dbbnotzer                        335544407L
+#define isc_tranotzer                        335544408L
+#define isc_trareqmis                        335544409L
+#define isc_badhndcnt                        335544410L
+#define isc_wrotpbver                        335544411L
+#define isc_wroblrver                        335544412L
+#define isc_wrodpbver                        335544413L
+#define isc_blobnotsup                       335544414L
+#define isc_badrelation                      335544415L
+#define isc_nodetach                         335544416L
+#define isc_notremote                        335544417L
+#define isc_trainlim                         335544418L
+#define isc_notinlim                         335544419L
+#define isc_traoutsta                        335544420L
+#define isc_connect_reject                   335544421L
+#define isc_dbfile                           335544422L
+#define isc_orphan                           335544423L
+#define isc_no_lock_mgr                      335544424L
+#define isc_ctxinuse                         335544425L
+#define isc_ctxnotdef                        335544426L
+#define isc_datnotsup                        335544427L
+#define isc_badmsgnum                        335544428L
+#define isc_badparnum                        335544429L
+#define isc_virmemexh                        335544430L
+#define isc_blocking_signal                  335544431L
+#define isc_lockmanerr                       335544432L
+#define isc_journerr                         335544433L
+#define isc_keytoobig                        335544434L
+#define isc_nullsegkey                       335544435L
+#define isc_sqlerr                           335544436L
+#define isc_wrodynver                        335544437L
+#define isc_funnotdef                        335544438L
+#define isc_funmismat                        335544439L
+#define isc_bad_msg_vec                      335544440L
+#define isc_bad_detach                       335544441L
+#define isc_noargacc_read                    335544442L
+#define isc_noargacc_write                   335544443L
+#define isc_read_only                        335544444L
+#define isc_ext_err                          335544445L
+#define isc_non_updatable                    335544446L
+#define isc_no_rollback                      335544447L
+#define isc_bad_sec_info                     335544448L
+#define isc_invalid_sec_info                 335544449L
+#define isc_misc_interpreted                 335544450L
+#define isc_update_conflict                  335544451L
+#define isc_unlicensed                       335544452L
+#define isc_obj_in_use                       335544453L
+#define isc_nofilter                         335544454L
+#define isc_shadow_accessed                  335544455L
+#define isc_invalid_sdl                      335544456L
+#define isc_out_of_bounds                    335544457L
+#define isc_invalid_dimension                335544458L
+#define isc_rec_in_limbo                     335544459L
+#define isc_shadow_missing                   335544460L
+#define isc_cant_validate                    335544461L
+#define isc_cant_start_journal               335544462L
+#define isc_gennotdef                        335544463L
+#define isc_cant_start_logging               335544464L
+#define isc_bad_segstr_type                  335544465L
+#define isc_foreign_key                      335544466L
+#define isc_high_minor                       335544467L
+#define isc_tra_state                        335544468L
+#define isc_trans_invalid                    335544469L
+#define isc_buf_invalid                      335544470L
+#define isc_indexnotdefined                  335544471L
+#define isc_login                            335544472L
+#define isc_invalid_bookmark                 335544473L
+#define isc_bad_lock_level                   335544474L
+#define isc_relation_lock                    335544475L
+#define isc_record_lock                      335544476L
+#define isc_max_idx                          335544477L
+#define isc_jrn_enable                       335544478L
+#define isc_old_failure                      335544479L
+#define isc_old_in_progress                  335544480L
+#define isc_old_no_space                     335544481L
+#define isc_no_wal_no_jrn                    335544482L
+#define isc_num_old_files                    335544483L
+#define isc_wal_file_open                    335544484L
+#define isc_bad_stmt_handle                  335544485L
+#define isc_wal_failure                      335544486L
+#define isc_walw_err                         335544487L
+#define isc_logh_small                       335544488L
+#define isc_logh_inv_version                 335544489L
+#define isc_logh_open_flag                   335544490L
+#define isc_logh_open_flag2                  335544491L
+#define isc_logh_diff_dbname                 335544492L
+#define isc_logf_unexpected_eof              335544493L
+#define isc_logr_incomplete                  335544494L
+#define isc_logr_header_small                335544495L
+#define isc_logb_small                       335544496L
+#define isc_wal_illegal_attach               335544497L
+#define isc_wal_invalid_wpb                  335544498L
+#define isc_wal_err_rollover                 335544499L
+#define isc_no_wal                           335544500L
+#define isc_drop_wal                         335544501L
+#define isc_stream_not_defined               335544502L
+#define isc_wal_subsys_error                 335544503L
+#define isc_wal_subsys_corrupt               335544504L
+#define isc_no_archive                       335544505L
+#define isc_shutinprog                       335544506L
+#define isc_range_in_use                     335544507L
+#define isc_range_not_found                  335544508L
+#define isc_charset_not_found                335544509L
+#define isc_lock_timeout                     335544510L
+#define isc_prcnotdef                        335544511L
+#define isc_prcmismat                        335544512L
+#define isc_wal_bugcheck                     335544513L
+#define isc_wal_cant_expand                  335544514L
+#define isc_codnotdef                        335544515L
+#define isc_xcpnotdef                        335544516L
+#define isc_except                           335544517L
+#define isc_cache_restart                    335544518L
+#define isc_bad_lock_handle                  335544519L
+#define isc_jrn_present                      335544520L
+#define isc_wal_err_rollover2                335544521L
+#define isc_wal_err_logwrite                 335544522L
+#define isc_wal_err_jrn_comm                 335544523L
+#define isc_wal_err_expansion                335544524L
+#define isc_wal_err_setup                    335544525L
+#define isc_wal_err_ww_sync                  335544526L
+#define isc_wal_err_ww_start                 335544527L
+#define isc_shutdown                         335544528L
+#define isc_existing_priv_mod                335544529L
+#define isc_primary_key_ref                  335544530L
+#define isc_primary_key_notnull              335544531L
+#define isc_ref_cnstrnt_notfound             335544532L
+#define isc_foreign_key_notfound             335544533L
+#define isc_ref_cnstrnt_update               335544534L
+#define isc_check_cnstrnt_update             335544535L
+#define isc_check_cnstrnt_del                335544536L
+#define isc_integ_index_seg_del              335544537L
+#define isc_integ_index_seg_mod              335544538L
+#define isc_integ_index_del                  335544539L
+#define isc_integ_index_mod                  335544540L
+#define isc_check_trig_del                   335544541L
+#define isc_check_trig_update                335544542L
+#define isc_cnstrnt_fld_del                  335544543L
+#define isc_cnstrnt_fld_rename               335544544L
+#define isc_rel_cnstrnt_update               335544545L
+#define isc_constaint_on_view                335544546L
+#define isc_invld_cnstrnt_type               335544547L
+#define isc_primary_key_exists               335544548L
+#define isc_systrig_update                   335544549L
+#define isc_not_rel_owner                    335544550L
+#define isc_grant_obj_notfound               335544551L
+#define isc_grant_fld_notfound               335544552L
+#define isc_grant_nopriv                     335544553L
+#define isc_nonsql_security_rel              335544554L
+#define isc_nonsql_security_fld              335544555L
+#define isc_wal_cache_err                    335544556L
+#define isc_shutfail                         335544557L
+#define isc_check_constraint                 335544558L
+#define isc_bad_svc_handle                   335544559L
+#define isc_shutwarn                         335544560L
+#define isc_wrospbver                        335544561L
+#define isc_bad_spb_form                     335544562L
+#define isc_svcnotdef                        335544563L
+#define isc_no_jrn                           335544564L
+#define isc_transliteration_failed           335544565L
+#define isc_start_cm_for_wal                 335544566L
+#define isc_wal_ovflow_log_required          335544567L
+#define isc_text_subtype                     335544568L
+#define isc_dsql_error                       335544569L
+#define isc_dsql_command_err                 335544570L
+#define isc_dsql_constant_err                335544571L
+#define isc_dsql_cursor_err                  335544572L
+#define isc_dsql_datatype_err                335544573L
+#define isc_dsql_decl_err                    335544574L
+#define isc_dsql_cursor_update_err           335544575L
+#define isc_dsql_cursor_open_err             335544576L
+#define isc_dsql_cursor_close_err            335544577L
+#define isc_dsql_field_err                   335544578L
+#define isc_dsql_internal_err                335544579L
+#define isc_dsql_relation_err                335544580L
+#define isc_dsql_procedure_err               335544581L
+#define isc_dsql_request_err                 335544582L
+#define isc_dsql_sqlda_err                   335544583L
+#define isc_dsql_var_count_err               335544584L
+#define isc_dsql_stmt_handle                 335544585L
+#define isc_dsql_function_err                335544586L
+#define isc_dsql_blob_err                    335544587L
+#define isc_collation_not_found              335544588L
+#define isc_collation_not_for_charset        335544589L
+#define isc_dsql_dup_option                  335544590L
+#define isc_dsql_tran_err                    335544591L
+#define isc_dsql_invalid_array               335544592L
+#define isc_dsql_max_arr_dim_exceeded        335544593L
+#define isc_dsql_arr_range_error             335544594L
+#define isc_dsql_trigger_err                 335544595L
+#define isc_dsql_subselect_err               335544596L
+#define isc_dsql_crdb_prepare_err            335544597L
+#define isc_specify_field_err                335544598L
+#define isc_num_field_err                    335544599L
+#define isc_col_name_err                     335544600L
+#define isc_where_err                        335544601L
+#define isc_table_view_err                   335544602L
+#define isc_distinct_err                     335544603L
+#define isc_key_field_count_err              335544604L
+#define isc_subquery_err                     335544605L
+#define isc_expression_eval_err              335544606L
+#define isc_node_err                         335544607L
+#define isc_command_end_err                  335544608L
+#define isc_index_name                       335544609L
+#define isc_exception_name                   335544610L
+#define isc_field_name                       335544611L
+#define isc_token_err                        335544612L
+#define isc_union_err                        335544613L
+#define isc_dsql_construct_err               335544614L
+#define isc_field_aggregate_err              335544615L
+#define isc_field_ref_err                    335544616L
+#define isc_order_by_err                     335544617L
+#define isc_return_mode_err                  335544618L
+#define isc_extern_func_err                  335544619L
+#define isc_alias_conflict_err               335544620L
+#define isc_procedure_conflict_error         335544621L
+#define isc_relation_conflict_err            335544622L
+#define isc_dsql_domain_err                  335544623L
+#define isc_idx_seg_err                      335544624L
+#define isc_node_name_err                    335544625L
+#define isc_table_name                       335544626L
+#define isc_proc_name                        335544627L
+#define isc_idx_create_err                   335544628L
+#define isc_wal_shadow_err                   335544629L
+#define isc_dependency                       335544630L
+#define isc_idx_key_err                      335544631L
+#define isc_dsql_file_length_err             335544632L
+#define isc_dsql_shadow_number_err           335544633L
+#define isc_dsql_token_unk_err               335544634L
+#define isc_dsql_no_relation_alias           335544635L
+#define isc_indexname                        335544636L
+#define isc_no_stream_plan                   335544637L
+#define isc_stream_twice                     335544638L
+#define isc_stream_not_found                 335544639L
+#define isc_collation_requires_text          335544640L
+#define isc_dsql_domain_not_found            335544641L
+#define isc_index_unused                     335544642L
+#define isc_dsql_self_join                   335544643L
+#define isc_stream_bof                       335544644L
+#define isc_stream_crack                     335544645L
+#define isc_db_or_file_exists                335544646L
+#define isc_invalid_operator                 335544647L
+#define isc_conn_lost                        335544648L
+#define isc_bad_checksum                     335544649L
+#define isc_page_type_err                    335544650L
+#define isc_ext_readonly_err                 335544651L
+#define isc_sing_select_err                  335544652L
+#define isc_psw_attach                       335544653L
+#define isc_psw_start_trans                  335544654L
+#define isc_invalid_direction                335544655L
+#define isc_dsql_var_conflict                335544656L
+#define isc_dsql_no_blob_array               335544657L
+#define isc_dsql_base_table                  335544658L
+#define isc_duplicate_base_table             335544659L
+#define isc_view_alias                       335544660L
+#define isc_index_root_page_full             335544661L
+#define isc_dsql_blob_type_unknown           335544662L
+#define isc_req_max_clones_exceeded          335544663L
+#define isc_dsql_duplicate_spec              335544664L
+#define isc_unique_key_violation             335544665L
+#define isc_srvr_version_too_old             335544666L
+#define isc_drdb_completed_with_errs         335544667L
+#define isc_dsql_procedure_use_err           335544668L
+#define isc_dsql_count_mismatch              335544669L
+#define isc_blob_idx_err                     335544670L
+#define isc_array_idx_err                    335544671L
+#define isc_key_field_err                    335544672L
+#define isc_no_delete                        335544673L
+#define isc_del_last_field                   335544674L
+#define isc_sort_err                         335544675L
+#define isc_sort_mem_err                     335544676L
+#define isc_version_err                      335544677L
+#define isc_inval_key_posn                   335544678L
+#define isc_no_segments_err                  335544679L
+#define isc_crrp_data_err                    335544680L
+#define isc_rec_size_err                     335544681L
+#define isc_dsql_field_ref                   335544682L
+#define isc_req_depth_exceeded               335544683L
+#define isc_no_field_access                  335544684L
+#define isc_no_dbkey                         335544685L
+#define isc_jrn_format_err                   335544686L
+#define isc_jrn_file_full                    335544687L
+#define isc_dsql_open_cursor_request         335544688L
+#define isc_ib_error                         335544689L
+#define isc_cache_redef                      335544690L
+#define isc_cache_too_small                  335544691L
+#define isc_log_redef                        335544692L
+#define isc_log_too_small                    335544693L
+#define isc_partition_too_small              335544694L
+#define isc_partition_not_supp               335544695L
+#define isc_log_length_spec                  335544696L
+#define isc_precision_err                    335544697L
+#define isc_scale_nogt                       335544698L
+#define isc_expec_short                      335544699L
+#define isc_expec_long                       335544700L
+#define isc_expec_ushort                     335544701L
+#define isc_like_escape_invalid              335544702L
+#define isc_svcnoexe                         335544703L
+#define isc_net_lookup_err                   335544704L
+#define isc_service_unknown                  335544705L
+#define isc_host_unknown                     335544706L
+#define isc_grant_nopriv_on_base             335544707L
+#define isc_dyn_fld_ambiguous                335544708L
+#define isc_dsql_agg_ref_err                 335544709L
+#define isc_complex_view                     335544710L
+#define isc_unprepared_stmt                  335544711L
+#define isc_expec_positive                   335544712L
+#define isc_dsql_sqlda_value_err             335544713L
+#define isc_invalid_array_id                 335544714L
+#define isc_extfile_uns_op                   335544715L
+#define isc_svc_in_use                       335544716L
+#define isc_err_stack_limit                  335544717L
+#define isc_invalid_key                      335544718L
+#define isc_net_init_error                   335544719L
+#define isc_loadlib_failure                  335544720L
+#define isc_network_error                    335544721L
+#define isc_net_connect_err                  335544722L
+#define isc_net_connect_listen_err           335544723L
+#define isc_net_event_connect_err            335544724L
+#define isc_net_event_listen_err             335544725L
+#define isc_net_read_err                     335544726L
+#define isc_net_write_err                    335544727L
+#define isc_integ_index_deactivate           335544728L
+#define isc_integ_deactivate_primary         335544729L
+#define isc_cse_not_supported                335544730L
+#define isc_tra_must_sweep                   335544731L
+#define isc_unsupported_network_drive        335544732L
+#define isc_io_create_err                    335544733L
+#define isc_io_open_err                      335544734L
+#define isc_io_close_err                     335544735L
+#define isc_io_read_err                      335544736L
+#define isc_io_write_err                     335544737L
+#define isc_io_delete_err                    335544738L
+#define isc_io_access_err                    335544739L
+#define isc_udf_exception                    335544740L
+#define isc_lost_db_connection               335544741L
+#define isc_no_write_user_priv               335544742L
+#define isc_token_too_long                   335544743L
+#define isc_max_att_exceeded                 335544744L
+#define isc_login_same_as_role_name          335544745L
+#define isc_reftable_requires_pk             335544746L
+#define isc_usrname_too_long                 335544747L
+#define isc_password_too_long                335544748L
+#define isc_usrname_required                 335544749L
+#define isc_password_required                335544750L
+#define isc_bad_protocol                     335544751L
+#define isc_dup_usrname_found                335544752L
+#define isc_usrname_not_found                335544753L
+#define isc_error_adding_sec_record          335544754L
+#define isc_error_modifying_sec_record       335544755L
+#define isc_error_deleting_sec_record        335544756L
+#define isc_error_updating_sec_db            335544757L
+#define isc_sort_rec_size_err                335544758L
+#define isc_bad_default_value                335544759L
+#define isc_invalid_clause                   335544760L
+#define isc_too_many_handles                 335544761L
+#define isc_optimizer_blk_exc                335544762L
+#define isc_invalid_string_constant          335544763L
+#define isc_transitional_date                335544764L
+#define isc_read_only_database               335544765L
+#define isc_must_be_dialect_2_and_up         335544766L
+#define isc_blob_filter_exception            335544767L
+#define isc_exception_access_violation       335544768L
+#define isc_exception_datatype_missalignment 335544769L
+#define isc_exception_array_bounds_exceeded  335544770L
+#define isc_exception_float_denormal_operand 335544771L
+#define isc_exception_float_divide_by_zero   335544772L
+#define isc_exception_float_inexact_result   335544773L
+#define isc_exception_float_invalid_operand  335544774L
+#define isc_exception_float_overflow         335544775L
+#define isc_exception_float_stack_check      335544776L
+#define isc_exception_float_underflow        335544777L
+#define isc_exception_integer_divide_by_zero 335544778L
+#define isc_exception_integer_overflow       335544779L
+#define isc_exception_unknown                335544780L
+#define isc_exception_stack_overflow         335544781L
+#define isc_exception_sigsegv                335544782L
+#define isc_exception_sigill                 335544783L
+#define isc_exception_sigbus                 335544784L
+#define isc_exception_sigfpe                 335544785L
+#define isc_ext_file_delete                  335544786L
+#define isc_ext_file_modify                  335544787L
+#define isc_adm_task_denied                  335544788L
+#define isc_extract_input_mismatch           335544789L
+#define isc_insufficient_svc_privileges      335544790L
+#define isc_file_in_use                      335544791L
+#define isc_service_att_err                  335544792L
+#define isc_ddl_not_allowed_by_db_sql_dial   335544793L
+#define isc_cancelled                        335544794L
+#define isc_unexp_spb_form                   335544795L
+#define isc_sql_dialect_datatype_unsupport   335544796L
+#define isc_svcnouser                        335544797L
+#define isc_depend_on_uncommitted_rel        335544798L
+#define isc_svc_name_missing                 335544799L
+#define isc_too_many_contexts                335544800L
+#define isc_datype_notsup                    335544801L
+#define isc_dialect_reset_warning            335544802L
+#define isc_dialect_not_changed              335544803L
+#define isc_database_create_failed           335544804L
+#define isc_inv_dialect_specified            335544805L
+#define isc_valid_db_dialects                335544806L
+#define isc_sqlwarn                          335544807L
+#define isc_dtype_renamed                    335544808L
+#define isc_extern_func_dir_error            335544809L
+#define isc_date_range_exceeded              335544810L
+#define isc_inv_client_dialect_specified     335544811L
+#define isc_valid_client_dialects            335544812L
+#define isc_optimizer_between_err            335544813L
+#define isc_service_not_supported            335544814L
+#define isc_gfix_db_name                     335740929L
+#define isc_gfix_invalid_sw                  335740930L
+#define isc_gfix_incmp_sw                    335740932L
+#define isc_gfix_replay_req                  335740933L
+#define isc_gfix_pgbuf_req                   335740934L
+#define isc_gfix_val_req                     335740935L
+#define isc_gfix_pval_req                    335740936L
+#define isc_gfix_trn_req                     335740937L
+#define isc_gfix_full_req                    335740940L
+#define isc_gfix_usrname_req                 335740941L
+#define isc_gfix_pass_req                    335740942L
+#define isc_gfix_subs_name                   335740943L
+#define isc_gfix_wal_req                     335740944L
+#define isc_gfix_sec_req                     335740945L
+#define isc_gfix_nval_req                    335740946L
+#define isc_gfix_type_shut                   335740947L
+#define isc_gfix_retry                       335740948L
+#define isc_gfix_retry_db                    335740951L
+#define isc_gfix_exceed_max                  335740991L
+#define isc_gfix_corrupt_pool                335740992L
+#define isc_gfix_mem_exhausted               335740993L
+#define isc_gfix_bad_pool                    335740994L
+#define isc_gfix_trn_not_valid               335740995L
+#define isc_gfix_unexp_eoi                   335741012L
+#define isc_gfix_recon_fail                  335741018L
+#define isc_gfix_trn_unknown                 335741036L
+#define isc_gfix_mode_req                    335741038L
+#define isc_gfix_opt_SQL_dialect             335741039L
+#define isc_dsql_dbkey_from_non_table        336003074L
+#define isc_dsql_transitional_numeric        336003075L
+#define isc_dsql_dialect_warning_expr        336003076L
+#define isc_sql_db_dialect_dtype_unsupport   336003077L
+#define isc_isc_sql_dialect_conflict_num     336003079L
+#define isc_dsql_warning_number_ambiguous    336003080L
+#define isc_dsql_warning_number_ambiguous1   336003081L
+#define isc_dsql_warn_precision_ambiguous    336003082L
+#define isc_dsql_warn_precision_ambiguous1   336003083L
+#define isc_dsql_warn_precision_ambiguous2   336003084L
+#define isc_dyn_role_does_not_exist          336068796L
+#define isc_dyn_no_grant_admin_opt           336068797L
+#define isc_dyn_user_not_role_member         336068798L
+#define isc_dyn_delete_role_failed           336068799L
+#define isc_dyn_grant_role_to_user           336068800L
+#define isc_dyn_inv_sql_role_name            336068801L
+#define isc_dyn_dup_sql_role                 336068802L
+#define isc_dyn_kywd_spec_for_role           336068803L
+#define isc_dyn_roles_not_supported          336068804L
+#define isc_dyn_domain_name_exists           336068812L
+#define isc_dyn_field_name_exists            336068813L
+#define isc_dyn_dependency_exists            336068814L
+#define isc_dyn_dtype_invalid                336068815L
+#define isc_dyn_char_fld_too_small           336068816L
+#define isc_dyn_invalid_dtype_conversion     336068817L
+#define isc_dyn_dtype_conv_invalid           336068818L
+#define isc_gbak_unknown_switch              336330753L
+#define isc_gbak_page_size_missing           336330754L
+#define isc_gbak_page_size_toobig            336330755L
+#define isc_gbak_redir_ouput_missing         336330756L
+#define isc_gbak_switches_conflict           336330757L
+#define isc_gbak_unknown_device              336330758L
+#define isc_gbak_no_protection               336330759L
+#define isc_gbak_page_size_not_allowed       336330760L
+#define isc_gbak_multi_source_dest           336330761L
+#define isc_gbak_filename_missing            336330762L
+#define isc_gbak_dup_inout_names             336330763L
+#define isc_gbak_inv_page_size               336330764L
+#define isc_gbak_db_specified                336330765L
+#define isc_gbak_db_exists                   336330766L
+#define isc_gbak_unk_device                  336330767L
+#define isc_gbak_blob_info_failed            336330772L
+#define isc_gbak_unk_blob_item               336330773L
+#define isc_gbak_get_seg_failed              336330774L
+#define isc_gbak_close_blob_failed           336330775L
+#define isc_gbak_open_blob_failed            336330776L
+#define isc_gbak_put_blr_gen_id_failed       336330777L
+#define isc_gbak_unk_type                    336330778L
+#define isc_gbak_comp_req_failed             336330779L
+#define isc_gbak_start_req_failed            336330780L
+#define isc_gbak_rec_failed                  336330781L
+#define isc_gbak_rel_req_failed              336330782L
+#define isc_gbak_db_info_failed              336330783L
+#define isc_gbak_no_db_desc                  336330784L
+#define isc_gbak_db_create_failed            336330785L
+#define isc_gbak_decomp_len_error            336330786L
+#define isc_gbak_tbl_missing                 336330787L
+#define isc_gbak_blob_col_missing            336330788L
+#define isc_gbak_create_blob_failed          336330789L
+#define isc_gbak_put_seg_failed              336330790L
+#define isc_gbak_rec_len_exp                 336330791L
+#define isc_gbak_inv_rec_len                 336330792L
+#define isc_gbak_exp_data_type               336330793L
+#define isc_gbak_gen_id_failed               336330794L
+#define isc_gbak_unk_rec_type                336330795L
+#define isc_gbak_inv_bkup_ver                336330796L
+#define isc_gbak_missing_bkup_desc           336330797L
+#define isc_gbak_string_trunc                336330798L
+#define isc_gbak_cant_rest_record            336330799L
+#define isc_gbak_send_failed                 336330800L
+#define isc_gbak_no_tbl_name                 336330801L
+#define isc_gbak_unexp_eof                   336330802L
+#define isc_gbak_db_format_too_old           336330803L
+#define isc_gbak_inv_array_dim               336330804L
+#define isc_gbak_xdr_len_expected            336330807L
+#define isc_gbak_open_bkup_error             336330817L
+#define isc_gbak_open_error                  336330818L
+#define isc_gbak_missing_block_fac           336330934L
+#define isc_gbak_inv_block_fac               336330935L
+#define isc_gbak_block_fac_specified         336330936L
+#define isc_gbak_missing_username            336330940L
+#define isc_gbak_missing_password            336330941L
+#define isc_gbak_missing_skipped_bytes       336330952L
+#define isc_gbak_inv_skipped_bytes           336330953L
+#define isc_gbak_err_restore_charset         336330965L
+#define isc_gbak_err_restore_collation       336330967L
+#define isc_gbak_read_error                  336330972L
+#define isc_gbak_write_error                 336330973L
+#define isc_gbak_db_in_use                   336330985L
+#define isc_gbak_sysmemex                    336330990L
+#define isc_gbak_restore_role_failed         336331002L
+#define isc_gbak_role_op_missing             336331005L
+#define isc_gbak_page_buffers_missing        336331010L
+#define isc_gbak_page_buffers_wrong_param    336331011L
+#define isc_gbak_page_buffers_restore        336331012L
+#define isc_gbak_inv_size                    336331014L
+#define isc_gbak_file_outof_sequence         336331015L
+#define isc_gbak_join_file_missing           336331016L
+#define isc_gbak_stdin_not_supptd            336331017L
+#define isc_gbak_stdout_not_supptd           336331018L
+#define isc_gbak_bkup_corrupt                336331019L
+#define isc_gbak_unk_db_file_spec            336331020L
+#define isc_gbak_hdr_write_failed            336331021L
+#define isc_gbak_disk_space_ex               336331022L
+#define isc_gbak_size_lt_min                 336331023L
+#define isc_gbak_svc_name_missing            336331025L
+#define isc_gbak_not_ownr                    336331026L
+#define isc_gbak_mode_req                    336331031L
+#define isc_gsec_cant_open_db                336723983L
+#define isc_gsec_switches_error              336723984L
+#define isc_gsec_no_op_spec                  336723985L
+#define isc_gsec_no_usr_name                 336723986L
+#define isc_gsec_err_add                     336723987L
+#define isc_gsec_err_modify                  336723988L
+#define isc_gsec_err_find_mod                336723989L
+#define isc_gsec_err_rec_not_found           336723990L
+#define isc_gsec_err_delete                  336723991L
+#define isc_gsec_err_find_del                336723992L
+#define isc_gsec_err_find_disp               336723996L
+#define isc_gsec_inv_param                   336723997L
+#define isc_gsec_op_specified                336723998L
+#define isc_gsec_pw_specified                336723999L
+#define isc_gsec_uid_specified               336724000L
+#define isc_gsec_gid_specified               336724001L
+#define isc_gsec_proj_specified              336724002L
+#define isc_gsec_org_specified               336724003L
+#define isc_gsec_fname_specified             336724004L
+#define isc_gsec_mname_specified             336724005L
+#define isc_gsec_lname_specified             336724006L
+#define isc_gsec_inv_switch                  336724008L
+#define isc_gsec_amb_switch                  336724009L
+#define isc_gsec_no_op_specified             336724010L
+#define isc_gsec_params_not_allowed          336724011L
+#define isc_gsec_incompat_switch             336724012L
+#define isc_gsec_inv_username                336724044L
+#define isc_gsec_inv_pw_length               336724045L
+#define isc_gsec_db_specified                336724046L
+#define isc_gsec_db_admin_specified          336724047L
+#define isc_gsec_db_admin_pw_specified       336724048L
+#define isc_gsec_sql_role_specified          336724049L
+#define isc_license_no_file                  336789504L
+#define isc_license_op_specified             336789523L
+#define isc_license_op_missing               336789524L
+#define isc_license_inv_switch               336789525L
+#define isc_license_inv_switch_combo         336789526L
+#define isc_license_inv_op_combo             336789527L
+#define isc_license_amb_switch               336789528L
+#define isc_license_inv_parameter            336789529L
+#define isc_license_param_specified          336789530L
+#define isc_license_param_req                336789531L
+#define isc_license_syntx_error              336789532L
+#define isc_license_dup_id                   336789534L
+#define isc_license_inv_id_key               336789535L
+#define isc_license_err_remove               336789536L
+#define isc_license_err_update               336789537L
+#define isc_license_err_convert              336789538L
+#define isc_license_err_unk                  336789539L
+#define isc_license_svc_err_add              336789540L
+#define isc_license_svc_err_remove           336789541L
+#define isc_license_eval_exists              336789563L
+#define isc_gstat_unknown_switch             336920577L
+#define isc_gstat_retry                      336920578L
+#define isc_gstat_wrong_ods                  336920579L
+#define isc_gstat_unexpected_eof             336920580L
+#define isc_gstat_open_err                   336920605L
+#define isc_gstat_read_err                   336920606L
+#define isc_gstat_sysmemex                   336920607L
+
+#define isc_err_max                          689
diff --git a/src/misc/codetext.h b/src/misc/codetext.h
new file mode 100644
index 0000000000..b1ae03e863
--- /dev/null
+++ b/src/misc/codetext.h
@@ -0,0 +1,712 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+"arith_except", 335544321,
+	"bad_dbkey", 335544322,
+	"bad_db_format", 335544323,
+	"bad_db_handle", 335544324,
+	"bad_dpb_content", 335544325,
+	"bad_dpb_form", 335544326,
+	"bad_req_handle", 335544327,
+	"bad_segstr_handle", 335544328,
+	"bad_segstr_id", 335544329,
+	"bad_tpb_content", 335544330,
+	"bad_tpb_form", 335544331,
+	"bad_trans_handle", 335544332,
+	"bug_check", 335544333,
+	"convert_error", 335544334,
+	"db_corrupt", 335544335,
+	"deadlock", 335544336,
+	"excess_trans", 335544337,
+	"from_no_match", 335544338,
+	"infinap", 335544339,
+	"infona", 335544340,
+	"infunk", 335544341,
+	"integ_fail", 335544342,
+	"invalid_blr", 335544343,
+	"io_error", 335544344,
+	"lock_conflict", 335544345,
+	"metadata_corrupt", 335544346,
+	"not_valid", 335544347,
+	"no_cur_rec", 335544348,
+	"no_dup", 335544349,
+	"no_finish", 335544350,
+	"no_meta_update", 335544351,
+	"no_priv", 335544352,
+	"no_recon", 335544353,
+	"no_record", 335544354,
+	"no_segstr_close", 335544355,
+	"obsolete_metadata", 335544356,
+	"open_trans", 335544357,
+	"port_len", 335544358,
+	"read_only_field", 335544359,
+	"read_only_rel", 335544360,
+	"read_only_trans", 335544361,
+	"read_only_view", 335544362,
+	"req_no_trans", 335544363,
+	"req_sync", 335544364,
+	"req_wrong_db", 335544365,
+	"segment", 335544366,
+	"segstr_eof", 335544367,
+	"segstr_no_op", 335544368,
+	"segstr_no_read", 335544369,
+	"segstr_no_trans", 335544370,
+	"segstr_no_write", 335544371,
+	"segstr_wrong_db", 335544372,
+	"sys_request", 335544373,
+	"stream_eof", 335544374,
+	"unavailable", 335544375,
+	"unres_rel", 335544376,
+	"uns_ext", 335544377,
+	"wish_list", 335544378,
+	"wrong_ods", 335544379,
+	"wronumarg", 335544380,
+	"imp_exc", 335544381,
+	"random", 335544382,
+	"fatal_conflict", 335544383,
+	"badblk", 335544384,
+	"invpoolcl", 335544385,
+	"nopoolids", 335544386,
+	"relbadblk", 335544387,
+	"blktoobig", 335544388,
+	"bufexh", 335544389,
+	"syntaxerr", 335544390,
+	"bufinuse", 335544391,
+	"bdbincon", 335544392,
+	"reqinuse", 335544393,
+	"badodsver", 335544394,
+	"relnotdef", 335544395,
+	"fldnotdef", 335544396,
+	"dirtypage", 335544397,
+	"waifortra", 335544398,
+	"doubleloc", 335544399,
+	"nodnotfnd", 335544400,
+	"dupnodfnd", 335544401,
+	"locnotmar", 335544402,
+	"badpagtyp", 335544403,
+	"corrupt", 335544404,
+	"badpage", 335544405,
+	"badindex", 335544406,
+	"dbbnotzer", 335544407,
+	"tranotzer", 335544408,
+	"trareqmis", 335544409,
+	"badhndcnt", 335544410,
+	"wrotpbver", 335544411,
+	"wroblrver", 335544412,
+	"wrodpbver", 335544413,
+	"blobnotsup", 335544414,
+	"badrelation", 335544415,
+	"nodetach", 335544416,
+	"notremote", 335544417,
+	"trainlim", 335544418,
+	"notinlim", 335544419,
+	"traoutsta", 335544420,
+	"connect_reject", 335544421,
+	"dbfile", 335544422,
+	"orphan", 335544423,
+	"no_lock_mgr", 335544424,
+	"ctxinuse", 335544425,
+	"ctxnotdef", 335544426,
+	"datnotsup", 335544427,
+	"badmsgnum", 335544428,
+	"badparnum", 335544429,
+	"virmemexh", 335544430,
+	"blocking_signal", 335544431,
+	"lockmanerr", 335544432,
+	"journerr", 335544433,
+	"keytoobig", 335544434,
+	"nullsegkey", 335544435,
+	"sqlerr", 335544436,
+	"wrodynver", 335544437,
+	"funnotdef", 335544438,
+	"funmismat", 335544439,
+	"bad_msg_vec", 335544440,
+	"bad_detach", 335544441,
+	"noargacc_read", 335544442,
+	"noargacc_write", 335544443,
+	"read_only", 335544444,
+	"ext_err", 335544445,
+	"non_updatable", 335544446,
+	"no_rollback", 335544447,
+	"bad_sec_info", 335544448,
+	"invalid_sec_info", 335544449,
+	"misc_interpreted", 335544450,
+	"update_conflict", 335544451,
+	"unlicensed", 335544452,
+	"obj_in_use", 335544453,
+	"nofilter", 335544454,
+	"shadow_accessed", 335544455,
+	"invalid_sdl", 335544456,
+	"out_of_bounds", 335544457,
+	"invalid_dimension", 335544458,
+	"rec_in_limbo", 335544459,
+	"shadow_missing", 335544460,
+	"cant_validate", 335544461,
+	"cant_start_journal", 335544462,
+	"gennotdef", 335544463,
+	"cant_start_logging", 335544464,
+	"bad_segstr_type", 335544465,
+	"foreign_key", 335544466,
+	"high_minor", 335544467,
+	"tra_state", 335544468,
+	"trans_invalid", 335544469,
+	"buf_invalid", 335544470,
+	"indexnotdefined", 335544471,
+	"login", 335544472,
+	"invalid_bookmark", 335544473,
+	"bad_lock_level", 335544474,
+	"relation_lock", 335544475,
+	"record_lock", 335544476,
+	"max_idx", 335544477,
+	"jrn_enable", 335544478,
+	"old_failure", 335544479,
+	"old_in_progress", 335544480,
+	"old_no_space", 335544481,
+	"no_wal_no_jrn", 335544482,
+	"num_old_files", 335544483,
+	"wal_file_open", 335544484,
+	"bad_stmt_handle", 335544485,
+	"wal_failure", 335544486,
+	"walw_err", 335544487,
+	"logh_small", 335544488,
+	"logh_inv_version", 335544489,
+	"logh_open_flag", 335544490,
+	"logh_open_flag2", 335544491,
+	"logh_diff_dbname", 335544492,
+	"logf_unexpected_eof", 335544493,
+	"logr_incomplete", 335544494,
+	"logr_header_small", 335544495,
+	"logb_small", 335544496,
+	"wal_illegal_attach", 335544497,
+	"wal_invalid_wpb", 335544498,
+	"wal_err_rollover", 335544499,
+	"no_wal", 335544500,
+	"drop_wal", 335544501,
+	"stream_not_defined", 335544502,
+	"wal_subsys_error", 335544503,
+	"wal_subsys_corrupt", 335544504,
+	"no_archive", 335544505,
+	"shutinprog", 335544506,
+	"range_in_use", 335544507,
+	"range_not_found", 335544508,
+	"charset_not_found", 335544509,
+	"lock_timeout", 335544510,
+	"prcnotdef", 335544511,
+	"prcmismat", 335544512,
+	"wal_bugcheck", 335544513,
+	"wal_cant_expand", 335544514,
+	"codnotdef", 335544515,
+	"xcpnotdef", 335544516,
+	"except", 335544517,
+	"cache_restart", 335544518,
+	"bad_lock_handle", 335544519,
+	"jrn_present", 335544520,
+	"wal_err_rollover2", 335544521,
+	"wal_err_logwrite", 335544522,
+	"wal_err_jrn_comm", 335544523,
+	"wal_err_expansion", 335544524,
+	"wal_err_setup", 335544525,
+	"wal_err_ww_sync", 335544526,
+	"wal_err_ww_start", 335544527,
+	"shutdown", 335544528,
+	"existing_priv_mod", 335544529,
+	"primary_key_ref", 335544530,
+	"primary_key_notnull", 335544531,
+	"ref_cnstrnt_notfound", 335544532,
+	"foreign_key_notfound", 335544533,
+	"ref_cnstrnt_update", 335544534,
+	"check_cnstrnt_update", 335544535,
+	"check_cnstrnt_del", 335544536,
+	"integ_index_seg_del", 335544537,
+	"integ_index_seg_mod", 335544538,
+	"integ_index_del", 335544539,
+	"integ_index_mod", 335544540,
+	"check_trig_del", 335544541,
+	"check_trig_update", 335544542,
+	"cnstrnt_fld_del", 335544543,
+	"cnstrnt_fld_rename", 335544544,
+	"rel_cnstrnt_update", 335544545,
+	"constaint_on_view", 335544546,
+	"invld_cnstrnt_type", 335544547,
+	"primary_key_exists", 335544548,
+	"systrig_update", 335544549,
+	"not_rel_owner", 335544550,
+	"grant_obj_notfound", 335544551,
+	"grant_fld_notfound", 335544552,
+	"grant_nopriv", 335544553,
+	"nonsql_security_rel", 335544554,
+	"nonsql_security_fld", 335544555,
+	"wal_cache_err", 335544556,
+	"shutfail", 335544557,
+	"check_constraint", 335544558,
+	"bad_svc_handle", 335544559,
+	"shutwarn", 335544560,
+	"wrospbver", 335544561,
+	"bad_spb_form", 335544562,
+	"svcnotdef", 335544563,
+	"no_jrn", 335544564,
+	"transliteration_failed", 335544565,
+	"start_cm_for_wal", 335544566,
+	"wal_ovflow_log_required", 335544567,
+	"text_subtype", 335544568,
+	"dsql_error", 335544569,
+	"dsql_command_err", 335544570,
+	"dsql_constant_err", 335544571,
+	"dsql_cursor_err", 335544572,
+	"dsql_datatype_err", 335544573,
+	"dsql_decl_err", 335544574,
+	"dsql_cursor_update_err", 335544575,
+	"dsql_cursor_open_err", 335544576,
+	"dsql_cursor_close_err", 335544577,
+	"dsql_field_err", 335544578,
+	"dsql_internal_err", 335544579,
+	"dsql_relation_err", 335544580,
+	"dsql_procedure_err", 335544581,
+	"dsql_request_err", 335544582,
+	"dsql_sqlda_err", 335544583,
+	"dsql_var_count_err", 335544584,
+	"dsql_stmt_handle", 335544585,
+	"dsql_function_err", 335544586,
+	"dsql_blob_err", 335544587,
+	"collation_not_found", 335544588,
+	"collation_not_for_charset", 335544589,
+	"dsql_dup_option", 335544590,
+	"dsql_tran_err", 335544591,
+	"dsql_invalid_array", 335544592,
+	"dsql_max_arr_dim_exceeded", 335544593,
+	"dsql_arr_range_error", 335544594,
+	"dsql_trigger_err", 335544595,
+	"dsql_subselect_err", 335544596,
+	"dsql_crdb_prepare_err", 335544597,
+	"specify_field_err", 335544598,
+	"num_field_err", 335544599,
+	"col_name_err", 335544600,
+	"where_err", 335544601,
+	"table_view_err", 335544602,
+	"distinct_err", 335544603,
+	"key_field_count_err", 335544604,
+	"subquery_err", 335544605,
+	"expression_eval_err", 335544606,
+	"node_err", 335544607,
+	"command_end_err", 335544608,
+	"index_name", 335544609,
+	"exception_name", 335544610,
+	"field_name", 335544611,
+	"token_err", 335544612,
+	"union_err", 335544613,
+	"dsql_construct_err", 335544614,
+	"field_aggregate_err", 335544615,
+	"field_ref_err", 335544616,
+	"order_by_err", 335544617,
+	"return_mode_err", 335544618,
+	"extern_func_err", 335544619,
+	"alias_conflict_err", 335544620,
+	"procedure_conflict_error", 335544621,
+	"relation_conflict_err", 335544622,
+	"dsql_domain_err", 335544623,
+	"idx_seg_err", 335544624,
+	"node_name_err", 335544625,
+	"table_name", 335544626,
+	"proc_name", 335544627,
+	"idx_create_err", 335544628,
+	"wal_shadow_err", 335544629,
+	"dependency", 335544630,
+	"idx_key_err", 335544631,
+	"dsql_file_length_err", 335544632,
+	"dsql_shadow_number_err", 335544633,
+	"dsql_token_unk_err", 335544634,
+	"dsql_no_relation_alias", 335544635,
+	"indexname", 335544636,
+	"no_stream_plan", 335544637,
+	"stream_twice", 335544638,
+	"stream_not_found", 335544639,
+	"collation_requires_text", 335544640,
+	"dsql_domain_not_found", 335544641,
+	"index_unused", 335544642,
+	"dsql_self_join", 335544643,
+	"stream_bof", 335544644,
+	"stream_crack", 335544645,
+	"db_or_file_exists", 335544646,
+	"invalid_operator", 335544647,
+	"conn_lost", 335544648,
+	"bad_checksum", 335544649,
+	"page_type_err", 335544650,
+	"ext_readonly_err", 335544651,
+	"sing_select_err", 335544652,
+	"psw_attach", 335544653,
+	"psw_start_trans", 335544654,
+	"invalid_direction", 335544655,
+	"dsql_var_conflict", 335544656,
+	"dsql_no_blob_array", 335544657,
+	"dsql_base_table", 335544658,
+	"duplicate_base_table", 335544659,
+	"view_alias", 335544660,
+	"index_root_page_full", 335544661,
+	"dsql_blob_type_unknown", 335544662,
+	"req_max_clones_exceeded", 335544663,
+	"dsql_duplicate_spec", 335544664,
+	"unique_key_violation", 335544665,
+	"srvr_version_too_old", 335544666,
+	"drdb_completed_with_errs", 335544667,
+	"dsql_procedure_use_err", 335544668,
+	"dsql_count_mismatch", 335544669,
+	"blob_idx_err", 335544670,
+	"array_idx_err", 335544671,
+	"key_field_err", 335544672,
+	"no_delete", 335544673,
+	"del_last_field", 335544674,
+	"sort_err", 335544675,
+	"sort_mem_err", 335544676,
+	"version_err", 335544677,
+	"inval_key_posn", 335544678,
+	"no_segments_err", 335544679,
+	"crrp_data_err", 335544680,
+	"rec_size_err", 335544681,
+	"dsql_field_ref", 335544682,
+	"req_depth_exceeded", 335544683,
+	"no_field_access", 335544684,
+	"no_dbkey", 335544685,
+	"jrn_format_err", 335544686,
+	"jrn_file_full", 335544687,
+	"dsql_open_cursor_request", 335544688,
+	"ib_error", 335544689,
+	"cache_redef", 335544690,
+	"cache_too_small", 335544691,
+	"log_redef", 335544692,
+	"log_too_small", 335544693,
+	"partition_too_small", 335544694,
+	"partition_not_supp", 335544695,
+	"log_length_spec", 335544696,
+	"precision_err", 335544697,
+	"scale_nogt", 335544698,
+	"expec_short", 335544699,
+	"expec_long", 335544700,
+	"expec_ushort", 335544701,
+	"like_escape_invalid", 335544702,
+	"svcnoexe", 335544703,
+	"net_lookup_err", 335544704,
+	"service_unknown", 335544705,
+	"host_unknown", 335544706,
+	"grant_nopriv_on_base", 335544707,
+	"dyn_fld_ambiguous", 335544708,
+	"dsql_agg_ref_err", 335544709,
+	"complex_view", 335544710,
+	"unprepared_stmt", 335544711,
+	"expec_positive", 335544712,
+	"dsql_sqlda_value_err", 335544713,
+	"invalid_array_id", 335544714,
+	"extfile_uns_op", 335544715,
+	"svc_in_use", 335544716,
+	"err_stack_limit", 335544717,
+	"invalid_key", 335544718,
+	"net_init_error", 335544719,
+	"loadlib_failure", 335544720,
+	"network_error", 335544721,
+	"net_connect_err", 335544722,
+	"net_connect_listen_err", 335544723,
+	"net_event_connect_err", 335544724,
+	"net_event_listen_err", 335544725,
+	"net_read_err", 335544726,
+	"net_write_err", 335544727,
+	"integ_index_deactivate", 335544728,
+	"integ_deactivate_primary", 335544729,
+	"cse_not_supported", 335544730,
+	"tra_must_sweep", 335544731,
+	"unsupported_network_drive", 335544732,
+	"io_create_err", 335544733,
+	"io_open_err", 335544734,
+	"io_close_err", 335544735,
+	"io_read_err", 335544736,
+	"io_write_err", 335544737,
+	"io_delete_err", 335544738,
+	"io_access_err", 335544739,
+	"udf_exception", 335544740,
+	"lost_db_connection", 335544741,
+	"no_write_user_priv", 335544742,
+	"token_too_long", 335544743,
+	"max_att_exceeded", 335544744,
+	"login_same_as_role_name", 335544745,
+	"reftable_requires_pk", 335544746,
+	"usrname_too_long", 335544747,
+	"password_too_long", 335544748,
+	"usrname_required", 335544749,
+	"password_required", 335544750,
+	"bad_protocol", 335544751,
+	"dup_usrname_found", 335544752,
+	"usrname_not_found", 335544753,
+	"error_adding_sec_record", 335544754,
+	"error_modifying_sec_record", 335544755,
+	"error_deleting_sec_record", 335544756,
+	"error_updating_sec_db", 335544757,
+	"sort_rec_size_err", 335544758,
+	"bad_default_value", 335544759,
+	"invalid_clause", 335544760,
+	"too_many_handles", 335544761,
+	"optimizer_blk_exc", 335544762,
+	"invalid_string_constant", 335544763,
+	"transitional_date", 335544764,
+	"read_only_database", 335544765,
+	"must_be_dialect_2_and_up", 335544766,
+	"blob_filter_exception", 335544767,
+	"exception_access_violation", 335544768,
+	"exception_datatype_missalignmen", 335544769,
+	"exception_array_bounds_exceeded", 335544770,
+	"exception_float_denormal_operan", 335544771,
+	"exception_float_divide_by_zero", 335544772,
+	"exception_float_inexact_result", 335544773,
+	"exception_float_invalid_operand", 335544774,
+	"exception_float_overflow", 335544775,
+	"exception_float_stack_check", 335544776,
+	"exception_float_underflow", 335544777,
+	"exception_integer_divide_by_zer", 335544778,
+	"exception_integer_overflow", 335544779,
+	"exception_unknown", 335544780,
+	"exception_stack_overflow", 335544781,
+	"exception_sigsegv", 335544782,
+	"exception_sigill", 335544783,
+	"exception_sigbus", 335544784,
+	"exception_sigfpe", 335544785,
+	"ext_file_delete", 335544786,
+	"ext_file_modify", 335544787,
+	"adm_task_denied", 335544788,
+	"extract_input_mismatch", 335544789,
+	"insufficient_svc_privileges", 335544790,
+	"file_in_use", 335544791,
+	"service_att_err", 335544792,
+	"ddl_not_allowed_by_db_sql_dial", 335544793,
+	"cancelled", 335544794,
+	"unexp_spb_form", 335544795,
+	"sql_dialect_datatype_unsupport", 335544796,
+	"svcnouser", 335544797,
+	"depend_on_uncommitted_rel", 335544798,
+	"svc_name_missing", 335544799,
+	"too_many_contexts", 335544800,
+	"datype_notsup", 335544801,
+	"dialect_reset_warning", 335544802,
+	"dialect_not_changed", 335544803,
+	"database_create_failed", 335544804,
+	"inv_dialect_specified", 335544805,
+	"valid_db_dialects", 335544806,
+	"sqlwarn", 335544807,
+	"dtype_renamed", 335544808,
+	"extern_func_dir_error", 335544809,
+	"date_range_exceeded", 335544810,
+	"inv_client_dialect_specified", 335544811,
+	"valid_client_dialects", 335544812,
+	"optimizer_between_err", 335544813,
+	"service_not_supported", 335544814,
+	"gfix_db_name", 335740929,
+	"gfix_invalid_sw", 335740930,
+	"gfix_incmp_sw", 335740932,
+	"gfix_replay_req", 335740933,
+	"gfix_pgbuf_req", 335740934,
+	"gfix_val_req", 335740935,
+	"gfix_pval_req", 335740936,
+	"gfix_trn_req", 335740937,
+	"gfix_full_req", 335740940,
+	"gfix_usrname_req", 335740941,
+	"gfix_pass_req", 335740942,
+	"gfix_subs_name", 335740943,
+	"gfix_wal_req", 335740944,
+	"gfix_sec_req", 335740945,
+	"gfix_nval_req", 335740946,
+	"gfix_type_shut", 335740947,
+	"gfix_retry", 335740948,
+	"gfix_retry_db", 335740951,
+	"gfix_exceed_max", 335740991,
+	"gfix_corrupt_pool", 335740992,
+	"gfix_mem_exhausted", 335740993,
+	"gfix_bad_pool", 335740994,
+	"gfix_trn_not_valid", 335740995,
+	"gfix_unexp_eoi", 335741012,
+	"gfix_recon_fail", 335741018,
+	"gfix_trn_unknown", 335741036,
+	"gfix_mode_req", 335741038,
+	"gfix_opt_SQL_dialect", 335741039,
+	"dsql_dbkey_from_non_table", 336003074,
+	"dsql_transitional_numeric", 336003075,
+	"dsql_dialect_warning_expr", 336003076,
+	"sql_db_dialect_dtype_unsupport", 336003077,
+	"isc_sql_dialect_conflict_num", 336003079,
+	"dsql_warning_number_ambiguous", 336003080,
+	"dsql_warning_number_ambiguous1", 336003081,
+	"dsql_warn_precision_ambiguous", 336003082,
+	"dsql_warn_precision_ambiguous1", 336003083,
+	"dsql_warn_precision_ambiguous2", 336003084,
+	"dyn_role_does_not_exist", 336068796,
+	"dyn_no_grant_admin_opt", 336068797,
+	"dyn_user_not_role_member", 336068798,
+	"dyn_delete_role_failed", 336068799,
+	"dyn_grant_role_to_user", 336068800,
+	"dyn_inv_sql_role_name", 336068801,
+	"dyn_dup_sql_role", 336068802,
+	"dyn_kywd_spec_for_role", 336068803,
+	"dyn_roles_not_supported", 336068804,
+	"dyn_domain_name_exists", 336068812,
+	"dyn_field_name_exists", 336068813,
+	"dyn_dependency_exists", 336068814,
+	"dyn_dtype_invalid", 336068815,
+	"dyn_char_fld_too_small", 336068816,
+	"dyn_invalid_dtype_conversion", 336068817,
+	"dyn_dtype_conv_invalid", 336068818,
+	"gbak_unknown_switch", 336330753,
+	"gbak_page_size_missing", 336330754,
+	"gbak_page_size_toobig", 336330755,
+	"gbak_redir_ouput_missing", 336330756,
+	"gbak_switches_conflict", 336330757,
+	"gbak_unknown_device", 336330758,
+	"gbak_no_protection", 336330759,
+	"gbak_page_size_not_allowed", 336330760,
+	"gbak_multi_source_dest", 336330761,
+	"gbak_filename_missing", 336330762,
+	"gbak_dup_inout_names", 336330763,
+	"gbak_inv_page_size", 336330764,
+	"gbak_db_specified", 336330765,
+	"gbak_db_exists", 336330766,
+	"gbak_unk_device", 336330767,
+	"gbak_blob_info_failed", 336330772,
+	"gbak_unk_blob_item", 336330773,
+	"gbak_get_seg_failed", 336330774,
+	"gbak_close_blob_failed", 336330775,
+	"gbak_open_blob_failed", 336330776,
+	"gbak_put_blr_gen_id_failed", 336330777,
+	"gbak_unk_type", 336330778,
+	"gbak_comp_req_failed", 336330779,
+	"gbak_start_req_failed", 336330780,
+	"gbak_rec_failed", 336330781,
+	"gbak_rel_req_failed", 336330782,
+	"gbak_db_info_failed", 336330783,
+	"gbak_no_db_desc", 336330784,
+	"gbak_db_create_failed", 336330785,
+	"gbak_decomp_len_error", 336330786,
+	"gbak_tbl_missing", 336330787,
+	"gbak_blob_col_missing", 336330788,
+	"gbak_create_blob_failed", 336330789,
+	"gbak_put_seg_failed", 336330790,
+	"gbak_rec_len_exp", 336330791,
+	"gbak_inv_rec_len", 336330792,
+	"gbak_exp_data_type", 336330793,
+	"gbak_gen_id_failed", 336330794,
+	"gbak_unk_rec_type", 336330795,
+	"gbak_inv_bkup_ver", 336330796,
+	"gbak_missing_bkup_desc", 336330797,
+	"gbak_string_trunc", 336330798,
+	"gbak_cant_rest_record", 336330799,
+	"gbak_send_failed", 336330800,
+	"gbak_no_tbl_name", 336330801,
+	"gbak_unexp_eof", 336330802,
+	"gbak_db_format_too_old", 336330803,
+	"gbak_inv_array_dim", 336330804,
+	"gbak_xdr_len_expected", 336330807,
+	"gbak_open_bkup_error", 336330817,
+	"gbak_open_error", 336330818,
+	"gbak_missing_block_fac", 336330934,
+	"gbak_inv_block_fac", 336330935,
+	"gbak_block_fac_specified", 336330936,
+	"gbak_missing_username", 336330940,
+	"gbak_missing_password", 336330941,
+	"gbak_missing_skipped_bytes", 336330952,
+	"gbak_inv_skipped_bytes", 336330953,
+	"gbak_err_restore_charset", 336330965,
+	"gbak_err_restore_collation", 336330967,
+	"gbak_read_error", 336330972,
+	"gbak_write_error", 336330973,
+	"gbak_db_in_use", 336330985,
+	"gbak_sysmemex", 336330990,
+	"gbak_restore_role_failed", 336331002,
+	"gbak_role_op_missing", 336331005,
+	"gbak_page_buffers_missing", 336331010,
+	"gbak_page_buffers_wrong_param", 336331011,
+	"gbak_page_buffers_restore", 336331012,
+	"gbak_inv_size", 336331014,
+	"gbak_file_outof_sequence", 336331015,
+	"gbak_join_file_missing", 336331016,
+	"gbak_stdin_not_supptd", 336331017,
+	"gbak_stdout_not_supptd", 336331018,
+	"gbak_bkup_corrupt", 336331019,
+	"gbak_unk_db_file_spec", 336331020,
+	"gbak_hdr_write_failed", 336331021,
+	"gbak_disk_space_ex", 336331022,
+	"gbak_size_lt_min", 336331023,
+	"gbak_svc_name_missing", 336331025,
+	"gbak_not_ownr", 336331026,
+	"gbak_mode_req", 336331031,
+	"gsec_cant_open_db", 336723983,
+	"gsec_switches_error", 336723984,
+	"gsec_no_op_spec", 336723985,
+	"gsec_no_usr_name", 336723986,
+	"gsec_err_add", 336723987,
+	"gsec_err_modify", 336723988,
+	"gsec_err_find_mod", 336723989,
+	"gsec_err_rec_not_found", 336723990,
+	"gsec_err_delete", 336723991,
+	"gsec_err_find_del", 336723992,
+	"gsec_err_find_disp", 336723996,
+	"gsec_inv_param", 336723997,
+	"gsec_op_specified", 336723998,
+	"gsec_pw_specified", 336723999,
+	"gsec_uid_specified", 336724000,
+	"gsec_gid_specified", 336724001,
+	"gsec_proj_specified", 336724002,
+	"gsec_org_specified", 336724003,
+	"gsec_fname_specified", 336724004,
+	"gsec_mname_specified", 336724005,
+	"gsec_lname_specified", 336724006,
+	"gsec_inv_switch", 336724008,
+	"gsec_amb_switch", 336724009,
+	"gsec_no_op_specified", 336724010,
+	"gsec_params_not_allowed", 336724011,
+	"gsec_incompat_switch", 336724012,
+	"gsec_inv_username", 336724044,
+	"gsec_inv_pw_length", 336724045,
+	"gsec_db_specified", 336724046,
+	"gsec_db_admin_specified", 336724047,
+	"gsec_db_admin_pw_specified", 336724048,
+	"gsec_sql_role_specified", 336724049,
+	"license_no_file", 336789504,
+	"license_op_specified", 336789523,
+	"license_op_missing", 336789524,
+	"license_inv_switch", 336789525,
+	"license_inv_switch_combo", 336789526,
+	"license_inv_op_combo", 336789527,
+	"license_amb_switch", 336789528,
+	"license_inv_parameter", 336789529,
+	"license_param_specified", 336789530,
+	"license_param_req", 336789531,
+	"license_syntx_error", 336789532,
+	"license_dup_id", 336789534,
+	"license_inv_id_key", 336789535,
+	"license_err_remove", 336789536,
+	"license_err_update", 336789537,
+	"license_err_convert", 336789538,
+	"license_err_unk", 336789539,
+	"license_svc_err_add", 336789540,
+	"license_svc_err_remove", 336789541,
+	"license_eval_exists", 336789563,
+	"gstat_unknown_switch", 336920577,
+	"gstat_retry", 336920578,
+	"gstat_wrong_ods", 336920579,
+	"gstat_unexpected_eof", 336920580,
+	"gstat_open_err", 336920605,
+	"gstat_read_err", 336920606, "gstat_sysmemex", 336920607,
diff --git a/src/misc/gds_codes.ftn b/src/misc/gds_codes.ftn
new file mode 100644
index 0000000000..5795e75bd2
--- /dev/null
+++ b/src/misc/gds_codes.ftn
@@ -0,0 +1,2873 @@
+C --
+
+C -- The contents of this file are subject to the Interbase Public
+
+C -- License Version 1.0 (the "License"); you may not use this file
+
+C -- except in compliance with the License. You may obtain a copy
+
+C -- of the License at http://www.Inprise.com/IPL/
+
+C -- 
+
+C -- Software distributed under the License is distributed on an
+
+C -- "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+
+C -- or implied. See the License for the specific language governing
+
+C -- rights and limitations under the License.
+
+C -- 
+
+C -- The Original Code was created by Inprise Corporation
+
+C -- and its predecessors. Portions created by Inprise Corporation are
+
+C -- Copyright (C) Inprise Corporation.
+
+C -- 
+
+C -- Copyright (C) 2000 Inprise Corporation
+
+C -- All Rights Reserved.
+
+C -- Contributor(s): ______________________________________.
+
+C --
+
+C --
+
+C -- 
+
+C -- File generated by codes.e - do not edit!
+
+C -- 
+
+C --
+
+
+
+      INTEGER*4
+
+     + GDS_FACILITY,
+
+     + GDS_ERR_BASE,
+
+     + GDS_ERR_FACTOR
+
+      INTEGER*4
+
+     + GDS_ARG_END,          { end of argument list }
+
+     + GDS_ARG_GDS,          { generic DSRI status value }
+
+     + GDS_ARG_STRING,       { string argument }
+
+     + GDS_ARG_CSTRING,      { count & string argument }
+
+     + GDS_ARG_NUMBER,       { numeric argument (long) }
+
+     + GDS_ARG_INTERPRETED,  { interpreted status code (string) }
+
+     + GDS_ARG_VMS,          { VAX/VMS status code (long) }
+
+     + GDS_ARG_UNIX,         { UNIX error code }
+
+     + GDS_ARG_DOMAIN,       { Apollo/Domain error code }
+
+     + GDS_ARG_DOS           { MSDOS/OS2 error code }
+
+
+
+
+
+      PARAMETER (
+
+     + GDS_FACILITY    = 20,
+
+     + GDS_ERR_BASE    = 335544320,
+
+     + GDS_ERR_FACTOR  = 1)
+
+
+
+      PARAMETER (
+
+     + GDS_ARG_END          = 0,   { end of argument list }
+
+     + GDS_ARG_GDS          = 1,   { generic DSRI status value }
+
+     + GDS_ARG_STRING       = 2,   { string argument }
+
+     + GDS_ARG_CSTRING      = 3,   { count & string argument }
+
+     + GDS_ARG_NUMBER       = 4,   { numeric argument (long) }
+
+     + GDS_ARG_INTERPRETED  = 5,   { interpreted status code (string) }
+
+     + GDS_ARG_VMS          = 6,   { VAX/VMS status code (long) }
+
+     + GDS_ARG_UNIX         = 7,   { UNIX error code }
+
+     + GDS_ARG_DOMAIN       = 8,   { Apollo/Domain error code }
+
+     + GDS_ARG_DOS	       = 9)   { Apollo/Domain error code }
+
+
+
+      INTEGER*4 GDS__arith_except                    
+
+      PARAMETER (GDS__arith_except                     = 335544321)
+
+      INTEGER*4 GDS__bad_dbkey                       
+
+      PARAMETER (GDS__bad_dbkey                        = 335544322)
+
+      INTEGER*4 GDS__bad_db_format                   
+
+      PARAMETER (GDS__bad_db_format                    = 335544323)
+
+      INTEGER*4 GDS__bad_db_handle                   
+
+      PARAMETER (GDS__bad_db_handle                    = 335544324)
+
+      INTEGER*4 GDS__bad_dpb_content                 
+
+      PARAMETER (GDS__bad_dpb_content                  = 335544325)
+
+      INTEGER*4 GDS__bad_dpb_form                    
+
+      PARAMETER (GDS__bad_dpb_form                     = 335544326)
+
+      INTEGER*4 GDS__bad_req_handle                  
+
+      PARAMETER (GDS__bad_req_handle                   = 335544327)
+
+      INTEGER*4 GDS__bad_segstr_handle               
+
+      PARAMETER (GDS__bad_segstr_handle                = 335544328)
+
+      INTEGER*4 GDS__bad_segstr_id                   
+
+      PARAMETER (GDS__bad_segstr_id                    = 335544329)
+
+      INTEGER*4 GDS__bad_tpb_content                 
+
+      PARAMETER (GDS__bad_tpb_content                  = 335544330)
+
+      INTEGER*4 GDS__bad_tpb_form                    
+
+      PARAMETER (GDS__bad_tpb_form                     = 335544331)
+
+      INTEGER*4 GDS__bad_trans_handle                
+
+      PARAMETER (GDS__bad_trans_handle                 = 335544332)
+
+      INTEGER*4 GDS__bug_check                       
+
+      PARAMETER (GDS__bug_check                        = 335544333)
+
+      INTEGER*4 GDS__convert_error                   
+
+      PARAMETER (GDS__convert_error                    = 335544334)
+
+      INTEGER*4 GDS__db_corrupt                      
+
+      PARAMETER (GDS__db_corrupt                       = 335544335)
+
+      INTEGER*4 GDS__deadlock                        
+
+      PARAMETER (GDS__deadlock                         = 335544336)
+
+      INTEGER*4 GDS__excess_trans                    
+
+      PARAMETER (GDS__excess_trans                     = 335544337)
+
+      INTEGER*4 GDS__from_no_match                   
+
+      PARAMETER (GDS__from_no_match                    = 335544338)
+
+      INTEGER*4 GDS__infinap                         
+
+      PARAMETER (GDS__infinap                          = 335544339)
+
+      INTEGER*4 GDS__infona                          
+
+      PARAMETER (GDS__infona                           = 335544340)
+
+      INTEGER*4 GDS__infunk                          
+
+      PARAMETER (GDS__infunk                           = 335544341)
+
+      INTEGER*4 GDS__integ_fail                      
+
+      PARAMETER (GDS__integ_fail                       = 335544342)
+
+      INTEGER*4 GDS__invalid_blr                     
+
+      PARAMETER (GDS__invalid_blr                      = 335544343)
+
+      INTEGER*4 GDS__io_error                        
+
+      PARAMETER (GDS__io_error                         = 335544344)
+
+      INTEGER*4 GDS__lock_conflict                   
+
+      PARAMETER (GDS__lock_conflict                    = 335544345)
+
+      INTEGER*4 GDS__metadata_corrupt                
+
+      PARAMETER (GDS__metadata_corrupt                 = 335544346)
+
+      INTEGER*4 GDS__not_valid                       
+
+      PARAMETER (GDS__not_valid                        = 335544347)
+
+      INTEGER*4 GDS__no_cur_rec                      
+
+      PARAMETER (GDS__no_cur_rec                       = 335544348)
+
+      INTEGER*4 GDS__no_dup                          
+
+      PARAMETER (GDS__no_dup                           = 335544349)
+
+      INTEGER*4 GDS__no_finish                       
+
+      PARAMETER (GDS__no_finish                        = 335544350)
+
+      INTEGER*4 GDS__no_meta_update                  
+
+      PARAMETER (GDS__no_meta_update                   = 335544351)
+
+      INTEGER*4 GDS__no_priv                         
+
+      PARAMETER (GDS__no_priv                          = 335544352)
+
+      INTEGER*4 GDS__no_recon                        
+
+      PARAMETER (GDS__no_recon                         = 335544353)
+
+      INTEGER*4 GDS__no_record                       
+
+      PARAMETER (GDS__no_record                        = 335544354)
+
+      INTEGER*4 GDS__no_segstr_close                 
+
+      PARAMETER (GDS__no_segstr_close                  = 335544355)
+
+      INTEGER*4 GDS__obsolete_metadata               
+
+      PARAMETER (GDS__obsolete_metadata                = 335544356)
+
+      INTEGER*4 GDS__open_trans                      
+
+      PARAMETER (GDS__open_trans                       = 335544357)
+
+      INTEGER*4 GDS__port_len                        
+
+      PARAMETER (GDS__port_len                         = 335544358)
+
+      INTEGER*4 GDS__read_only_field                 
+
+      PARAMETER (GDS__read_only_field                  = 335544359)
+
+      INTEGER*4 GDS__read_only_rel                   
+
+      PARAMETER (GDS__read_only_rel                    = 335544360)
+
+      INTEGER*4 GDS__read_only_trans                 
+
+      PARAMETER (GDS__read_only_trans                  = 335544361)
+
+      INTEGER*4 GDS__read_only_view                  
+
+      PARAMETER (GDS__read_only_view                   = 335544362)
+
+      INTEGER*4 GDS__req_no_trans                    
+
+      PARAMETER (GDS__req_no_trans                     = 335544363)
+
+      INTEGER*4 GDS__req_sync                        
+
+      PARAMETER (GDS__req_sync                         = 335544364)
+
+      INTEGER*4 GDS__req_wrong_db                    
+
+      PARAMETER (GDS__req_wrong_db                     = 335544365)
+
+      INTEGER*4 GDS__segment                         
+
+      PARAMETER (GDS__segment                          = 335544366)
+
+      INTEGER*4 GDS__segstr_eof                      
+
+      PARAMETER (GDS__segstr_eof                       = 335544367)
+
+      INTEGER*4 GDS__segstr_no_op                    
+
+      PARAMETER (GDS__segstr_no_op                     = 335544368)
+
+      INTEGER*4 GDS__segstr_no_read                  
+
+      PARAMETER (GDS__segstr_no_read                   = 335544369)
+
+      INTEGER*4 GDS__segstr_no_trans                 
+
+      PARAMETER (GDS__segstr_no_trans                  = 335544370)
+
+      INTEGER*4 GDS__segstr_no_write                 
+
+      PARAMETER (GDS__segstr_no_write                  = 335544371)
+
+      INTEGER*4 GDS__segstr_wrong_db                 
+
+      PARAMETER (GDS__segstr_wrong_db                  = 335544372)
+
+      INTEGER*4 GDS__sys_request                     
+
+      PARAMETER (GDS__sys_request                      = 335544373)
+
+      INTEGER*4 GDS__stream_eof                      
+
+      PARAMETER (GDS__stream_eof                       = 335544374)
+
+      INTEGER*4 GDS__unavailable                     
+
+      PARAMETER (GDS__unavailable                      = 335544375)
+
+      INTEGER*4 GDS__unres_rel                       
+
+      PARAMETER (GDS__unres_rel                        = 335544376)
+
+      INTEGER*4 GDS__uns_ext                         
+
+      PARAMETER (GDS__uns_ext                          = 335544377)
+
+      INTEGER*4 GDS__wish_list                       
+
+      PARAMETER (GDS__wish_list                        = 335544378)
+
+      INTEGER*4 GDS__wrong_ods                       
+
+      PARAMETER (GDS__wrong_ods                        = 335544379)
+
+      INTEGER*4 GDS__wronumarg                       
+
+      PARAMETER (GDS__wronumarg                        = 335544380)
+
+      INTEGER*4 GDS__imp_exc                         
+
+      PARAMETER (GDS__imp_exc                          = 335544381)
+
+      INTEGER*4 GDS__random                          
+
+      PARAMETER (GDS__random                           = 335544382)
+
+      INTEGER*4 GDS__fatal_conflict                  
+
+      PARAMETER (GDS__fatal_conflict                   = 335544383)
+
+      INTEGER*4 GDS__badblk                          
+
+      PARAMETER (GDS__badblk                           = 335544384)
+
+      INTEGER*4 GDS__invpoolcl                       
+
+      PARAMETER (GDS__invpoolcl                        = 335544385)
+
+      INTEGER*4 GDS__nopoolids                       
+
+      PARAMETER (GDS__nopoolids                        = 335544386)
+
+      INTEGER*4 GDS__relbadblk                       
+
+      PARAMETER (GDS__relbadblk                        = 335544387)
+
+      INTEGER*4 GDS__blktoobig                       
+
+      PARAMETER (GDS__blktoobig                        = 335544388)
+
+      INTEGER*4 GDS__bufexh                          
+
+      PARAMETER (GDS__bufexh                           = 335544389)
+
+      INTEGER*4 GDS__syntaxerr                       
+
+      PARAMETER (GDS__syntaxerr                        = 335544390)
+
+      INTEGER*4 GDS__bufinuse                        
+
+      PARAMETER (GDS__bufinuse                         = 335544391)
+
+      INTEGER*4 GDS__bdbincon                        
+
+      PARAMETER (GDS__bdbincon                         = 335544392)
+
+      INTEGER*4 GDS__reqinuse                        
+
+      PARAMETER (GDS__reqinuse                         = 335544393)
+
+      INTEGER*4 GDS__badodsver                       
+
+      PARAMETER (GDS__badodsver                        = 335544394)
+
+      INTEGER*4 GDS__relnotdef                       
+
+      PARAMETER (GDS__relnotdef                        = 335544395)
+
+      INTEGER*4 GDS__fldnotdef                       
+
+      PARAMETER (GDS__fldnotdef                        = 335544396)
+
+      INTEGER*4 GDS__dirtypage                       
+
+      PARAMETER (GDS__dirtypage                        = 335544397)
+
+      INTEGER*4 GDS__waifortra                       
+
+      PARAMETER (GDS__waifortra                        = 335544398)
+
+      INTEGER*4 GDS__doubleloc                       
+
+      PARAMETER (GDS__doubleloc                        = 335544399)
+
+      INTEGER*4 GDS__nodnotfnd                       
+
+      PARAMETER (GDS__nodnotfnd                        = 335544400)
+
+      INTEGER*4 GDS__dupnodfnd                       
+
+      PARAMETER (GDS__dupnodfnd                        = 335544401)
+
+      INTEGER*4 GDS__locnotmar                       
+
+      PARAMETER (GDS__locnotmar                        = 335544402)
+
+      INTEGER*4 GDS__badpagtyp                       
+
+      PARAMETER (GDS__badpagtyp                        = 335544403)
+
+      INTEGER*4 GDS__corrupt                         
+
+      PARAMETER (GDS__corrupt                          = 335544404)
+
+      INTEGER*4 GDS__badpage                         
+
+      PARAMETER (GDS__badpage                          = 335544405)
+
+      INTEGER*4 GDS__badindex                        
+
+      PARAMETER (GDS__badindex                         = 335544406)
+
+      INTEGER*4 GDS__dbbnotzer                       
+
+      PARAMETER (GDS__dbbnotzer                        = 335544407)
+
+      INTEGER*4 GDS__tranotzer                       
+
+      PARAMETER (GDS__tranotzer                        = 335544408)
+
+      INTEGER*4 GDS__trareqmis                       
+
+      PARAMETER (GDS__trareqmis                        = 335544409)
+
+      INTEGER*4 GDS__badhndcnt                       
+
+      PARAMETER (GDS__badhndcnt                        = 335544410)
+
+      INTEGER*4 GDS__wrotpbver                       
+
+      PARAMETER (GDS__wrotpbver                        = 335544411)
+
+      INTEGER*4 GDS__wroblrver                       
+
+      PARAMETER (GDS__wroblrver                        = 335544412)
+
+      INTEGER*4 GDS__wrodpbver                       
+
+      PARAMETER (GDS__wrodpbver                        = 335544413)
+
+      INTEGER*4 GDS__blobnotsup                      
+
+      PARAMETER (GDS__blobnotsup                       = 335544414)
+
+      INTEGER*4 GDS__badrelation                     
+
+      PARAMETER (GDS__badrelation                      = 335544415)
+
+      INTEGER*4 GDS__nodetach                        
+
+      PARAMETER (GDS__nodetach                         = 335544416)
+
+      INTEGER*4 GDS__notremote                       
+
+      PARAMETER (GDS__notremote                        = 335544417)
+
+      INTEGER*4 GDS__trainlim                        
+
+      PARAMETER (GDS__trainlim                         = 335544418)
+
+      INTEGER*4 GDS__notinlim                        
+
+      PARAMETER (GDS__notinlim                         = 335544419)
+
+      INTEGER*4 GDS__traoutsta                       
+
+      PARAMETER (GDS__traoutsta                        = 335544420)
+
+      INTEGER*4 GDS__connect_reject                  
+
+      PARAMETER (GDS__connect_reject                   = 335544421)
+
+      INTEGER*4 GDS__dbfile                          
+
+      PARAMETER (GDS__dbfile                           = 335544422)
+
+      INTEGER*4 GDS__orphan                          
+
+      PARAMETER (GDS__orphan                           = 335544423)
+
+      INTEGER*4 GDS__no_lock_mgr                     
+
+      PARAMETER (GDS__no_lock_mgr                      = 335544424)
+
+      INTEGER*4 GDS__ctxinuse                        
+
+      PARAMETER (GDS__ctxinuse                         = 335544425)
+
+      INTEGER*4 GDS__ctxnotdef                       
+
+      PARAMETER (GDS__ctxnotdef                        = 335544426)
+
+      INTEGER*4 GDS__datnotsup                       
+
+      PARAMETER (GDS__datnotsup                        = 335544427)
+
+      INTEGER*4 GDS__badmsgnum                       
+
+      PARAMETER (GDS__badmsgnum                        = 335544428)
+
+      INTEGER*4 GDS__badparnum                       
+
+      PARAMETER (GDS__badparnum                        = 335544429)
+
+      INTEGER*4 GDS__virmemexh                       
+
+      PARAMETER (GDS__virmemexh                        = 335544430)
+
+      INTEGER*4 GDS__blocking_signal                 
+
+      PARAMETER (GDS__blocking_signal                  = 335544431)
+
+      INTEGER*4 GDS__lockmanerr                      
+
+      PARAMETER (GDS__lockmanerr                       = 335544432)
+
+      INTEGER*4 GDS__journerr                        
+
+      PARAMETER (GDS__journerr                         = 335544433)
+
+      INTEGER*4 GDS__keytoobig                       
+
+      PARAMETER (GDS__keytoobig                        = 335544434)
+
+      INTEGER*4 GDS__nullsegkey                      
+
+      PARAMETER (GDS__nullsegkey                       = 335544435)
+
+      INTEGER*4 GDS__sqlerr                          
+
+      PARAMETER (GDS__sqlerr                           = 335544436)
+
+      INTEGER*4 GDS__wrodynver                       
+
+      PARAMETER (GDS__wrodynver                        = 335544437)
+
+      INTEGER*4 GDS__funnotdef                       
+
+      PARAMETER (GDS__funnotdef                        = 335544438)
+
+      INTEGER*4 GDS__funmismat                       
+
+      PARAMETER (GDS__funmismat                        = 335544439)
+
+      INTEGER*4 GDS__bad_msg_vec                     
+
+      PARAMETER (GDS__bad_msg_vec                      = 335544440)
+
+      INTEGER*4 GDS__bad_detach                      
+
+      PARAMETER (GDS__bad_detach                       = 335544441)
+
+      INTEGER*4 GDS__noargacc_read                   
+
+      PARAMETER (GDS__noargacc_read                    = 335544442)
+
+      INTEGER*4 GDS__noargacc_write                  
+
+      PARAMETER (GDS__noargacc_write                   = 335544443)
+
+      INTEGER*4 GDS__read_only                       
+
+      PARAMETER (GDS__read_only                        = 335544444)
+
+      INTEGER*4 GDS__ext_err                         
+
+      PARAMETER (GDS__ext_err                          = 335544445)
+
+      INTEGER*4 GDS__non_updatable                   
+
+      PARAMETER (GDS__non_updatable                    = 335544446)
+
+      INTEGER*4 GDS__no_rollback                     
+
+      PARAMETER (GDS__no_rollback                      = 335544447)
+
+      INTEGER*4 GDS__bad_sec_info                    
+
+      PARAMETER (GDS__bad_sec_info                     = 335544448)
+
+      INTEGER*4 GDS__invalid_sec_info                
+
+      PARAMETER (GDS__invalid_sec_info                 = 335544449)
+
+      INTEGER*4 GDS__misc_interpreted                
+
+      PARAMETER (GDS__misc_interpreted                 = 335544450)
+
+      INTEGER*4 GDS__update_conflict                 
+
+      PARAMETER (GDS__update_conflict                  = 335544451)
+
+      INTEGER*4 GDS__unlicensed                      
+
+      PARAMETER (GDS__unlicensed                       = 335544452)
+
+      INTEGER*4 GDS__obj_in_use                      
+
+      PARAMETER (GDS__obj_in_use                       = 335544453)
+
+      INTEGER*4 GDS__nofilter                        
+
+      PARAMETER (GDS__nofilter                         = 335544454)
+
+      INTEGER*4 GDS__shadow_accessed                 
+
+      PARAMETER (GDS__shadow_accessed                  = 335544455)
+
+      INTEGER*4 GDS__invalid_sdl                     
+
+      PARAMETER (GDS__invalid_sdl                      = 335544456)
+
+      INTEGER*4 GDS__out_of_bounds                   
+
+      PARAMETER (GDS__out_of_bounds                    = 335544457)
+
+      INTEGER*4 GDS__invalid_dimension               
+
+      PARAMETER (GDS__invalid_dimension                = 335544458)
+
+      INTEGER*4 GDS__rec_in_limbo                    
+
+      PARAMETER (GDS__rec_in_limbo                     = 335544459)
+
+      INTEGER*4 GDS__shadow_missing                  
+
+      PARAMETER (GDS__shadow_missing                   = 335544460)
+
+      INTEGER*4 GDS__cant_validate                   
+
+      PARAMETER (GDS__cant_validate                    = 335544461)
+
+      INTEGER*4 GDS__cant_start_journal              
+
+      PARAMETER (GDS__cant_start_journal               = 335544462)
+
+      INTEGER*4 GDS__gennotdef                       
+
+      PARAMETER (GDS__gennotdef                        = 335544463)
+
+      INTEGER*4 GDS__cant_start_logging              
+
+      PARAMETER (GDS__cant_start_logging               = 335544464)
+
+      INTEGER*4 GDS__bad_segstr_type                 
+
+      PARAMETER (GDS__bad_segstr_type                  = 335544465)
+
+      INTEGER*4 GDS__foreign_key                     
+
+      PARAMETER (GDS__foreign_key                      = 335544466)
+
+      INTEGER*4 GDS__high_minor                      
+
+      PARAMETER (GDS__high_minor                       = 335544467)
+
+      INTEGER*4 GDS__tra_state                       
+
+      PARAMETER (GDS__tra_state                        = 335544468)
+
+      INTEGER*4 GDS__trans_invalid                   
+
+      PARAMETER (GDS__trans_invalid                    = 335544469)
+
+      INTEGER*4 GDS__buf_invalid                     
+
+      PARAMETER (GDS__buf_invalid                      = 335544470)
+
+      INTEGER*4 GDS__indexnotdefined                 
+
+      PARAMETER (GDS__indexnotdefined                  = 335544471)
+
+      INTEGER*4 GDS__login                           
+
+      PARAMETER (GDS__login                            = 335544472)
+
+      INTEGER*4 GDS__invalid_bookmark                
+
+      PARAMETER (GDS__invalid_bookmark                 = 335544473)
+
+      INTEGER*4 GDS__bad_lock_level                  
+
+      PARAMETER (GDS__bad_lock_level                   = 335544474)
+
+      INTEGER*4 GDS__relation_lock                   
+
+      PARAMETER (GDS__relation_lock                    = 335544475)
+
+      INTEGER*4 GDS__record_lock                     
+
+      PARAMETER (GDS__record_lock                      = 335544476)
+
+      INTEGER*4 GDS__max_idx                         
+
+      PARAMETER (GDS__max_idx                          = 335544477)
+
+      INTEGER*4 GDS__jrn_enable                      
+
+      PARAMETER (GDS__jrn_enable                       = 335544478)
+
+      INTEGER*4 GDS__old_failure                     
+
+      PARAMETER (GDS__old_failure                      = 335544479)
+
+      INTEGER*4 GDS__old_in_progress                 
+
+      PARAMETER (GDS__old_in_progress                  = 335544480)
+
+      INTEGER*4 GDS__old_no_space                    
+
+      PARAMETER (GDS__old_no_space                     = 335544481)
+
+      INTEGER*4 GDS__no_wal_no_jrn                   
+
+      PARAMETER (GDS__no_wal_no_jrn                    = 335544482)
+
+      INTEGER*4 GDS__num_old_files                   
+
+      PARAMETER (GDS__num_old_files                    = 335544483)
+
+      INTEGER*4 GDS__wal_file_open                   
+
+      PARAMETER (GDS__wal_file_open                    = 335544484)
+
+      INTEGER*4 GDS__bad_stmt_handle                 
+
+      PARAMETER (GDS__bad_stmt_handle                  = 335544485)
+
+      INTEGER*4 GDS__wal_failure                     
+
+      PARAMETER (GDS__wal_failure                      = 335544486)
+
+      INTEGER*4 GDS__walw_err                        
+
+      PARAMETER (GDS__walw_err                         = 335544487)
+
+      INTEGER*4 GDS__logh_small                      
+
+      PARAMETER (GDS__logh_small                       = 335544488)
+
+      INTEGER*4 GDS__logh_inv_version                
+
+      PARAMETER (GDS__logh_inv_version                 = 335544489)
+
+      INTEGER*4 GDS__logh_open_flag                  
+
+      PARAMETER (GDS__logh_open_flag                   = 335544490)
+
+      INTEGER*4 GDS__logh_open_flag2                 
+
+      PARAMETER (GDS__logh_open_flag2                  = 335544491)
+
+      INTEGER*4 GDS__logh_diff_dbname                
+
+      PARAMETER (GDS__logh_diff_dbname                 = 335544492)
+
+      INTEGER*4 GDS__logf_unexpected_eof             
+
+      PARAMETER (GDS__logf_unexpected_eof              = 335544493)
+
+      INTEGER*4 GDS__logr_incomplete                 
+
+      PARAMETER (GDS__logr_incomplete                  = 335544494)
+
+      INTEGER*4 GDS__logr_header_small               
+
+      PARAMETER (GDS__logr_header_small                = 335544495)
+
+      INTEGER*4 GDS__logb_small                      
+
+      PARAMETER (GDS__logb_small                       = 335544496)
+
+      INTEGER*4 GDS__wal_illegal_attach              
+
+      PARAMETER (GDS__wal_illegal_attach               = 335544497)
+
+      INTEGER*4 GDS__wal_invalid_wpb                 
+
+      PARAMETER (GDS__wal_invalid_wpb                  = 335544498)
+
+      INTEGER*4 GDS__wal_err_rollover                
+
+      PARAMETER (GDS__wal_err_rollover                 = 335544499)
+
+      INTEGER*4 GDS__no_wal                          
+
+      PARAMETER (GDS__no_wal                           = 335544500)
+
+      INTEGER*4 GDS__drop_wal                        
+
+      PARAMETER (GDS__drop_wal                         = 335544501)
+
+      INTEGER*4 GDS__stream_not_defined              
+
+      PARAMETER (GDS__stream_not_defined               = 335544502)
+
+      INTEGER*4 GDS__wal_subsys_error                
+
+      PARAMETER (GDS__wal_subsys_error                 = 335544503)
+
+      INTEGER*4 GDS__wal_subsys_corrupt              
+
+      PARAMETER (GDS__wal_subsys_corrupt               = 335544504)
+
+      INTEGER*4 GDS__no_archive                      
+
+      PARAMETER (GDS__no_archive                       = 335544505)
+
+      INTEGER*4 GDS__shutinprog                      
+
+      PARAMETER (GDS__shutinprog                       = 335544506)
+
+      INTEGER*4 GDS__range_in_use                    
+
+      PARAMETER (GDS__range_in_use                     = 335544507)
+
+      INTEGER*4 GDS__range_not_found                 
+
+      PARAMETER (GDS__range_not_found                  = 335544508)
+
+      INTEGER*4 GDS__charset_not_found               
+
+      PARAMETER (GDS__charset_not_found                = 335544509)
+
+      INTEGER*4 GDS__lock_timeout                    
+
+      PARAMETER (GDS__lock_timeout                     = 335544510)
+
+      INTEGER*4 GDS__prcnotdef                       
+
+      PARAMETER (GDS__prcnotdef                        = 335544511)
+
+      INTEGER*4 GDS__prcmismat                       
+
+      PARAMETER (GDS__prcmismat                        = 335544512)
+
+      INTEGER*4 GDS__wal_bugcheck                    
+
+      PARAMETER (GDS__wal_bugcheck                     = 335544513)
+
+      INTEGER*4 GDS__wal_cant_expand                 
+
+      PARAMETER (GDS__wal_cant_expand                  = 335544514)
+
+      INTEGER*4 GDS__codnotdef                       
+
+      PARAMETER (GDS__codnotdef                        = 335544515)
+
+      INTEGER*4 GDS__xcpnotdef                       
+
+      PARAMETER (GDS__xcpnotdef                        = 335544516)
+
+      INTEGER*4 GDS__except                          
+
+      PARAMETER (GDS__except                           = 335544517)
+
+      INTEGER*4 GDS__cache_restart                   
+
+      PARAMETER (GDS__cache_restart                    = 335544518)
+
+      INTEGER*4 GDS__bad_lock_handle                 
+
+      PARAMETER (GDS__bad_lock_handle                  = 335544519)
+
+      INTEGER*4 GDS__jrn_present                     
+
+      PARAMETER (GDS__jrn_present                      = 335544520)
+
+      INTEGER*4 GDS__wal_err_rollover2               
+
+      PARAMETER (GDS__wal_err_rollover2                = 335544521)
+
+      INTEGER*4 GDS__wal_err_logwrite                
+
+      PARAMETER (GDS__wal_err_logwrite                 = 335544522)
+
+      INTEGER*4 GDS__wal_err_jrn_comm                
+
+      PARAMETER (GDS__wal_err_jrn_comm                 = 335544523)
+
+      INTEGER*4 GDS__wal_err_expansion               
+
+      PARAMETER (GDS__wal_err_expansion                = 335544524)
+
+      INTEGER*4 GDS__wal_err_setup                   
+
+      PARAMETER (GDS__wal_err_setup                    = 335544525)
+
+      INTEGER*4 GDS__wal_err_ww_sync                 
+
+      PARAMETER (GDS__wal_err_ww_sync                  = 335544526)
+
+      INTEGER*4 GDS__wal_err_ww_start                
+
+      PARAMETER (GDS__wal_err_ww_start                 = 335544527)
+
+      INTEGER*4 GDS__shutdown                        
+
+      PARAMETER (GDS__shutdown                         = 335544528)
+
+      INTEGER*4 GDS__existing_priv_mod               
+
+      PARAMETER (GDS__existing_priv_mod                = 335544529)
+
+      INTEGER*4 GDS__primary_key_ref                 
+
+      PARAMETER (GDS__primary_key_ref                  = 335544530)
+
+      INTEGER*4 GDS__primary_key_notnull             
+
+      PARAMETER (GDS__primary_key_notnull              = 335544531)
+
+      INTEGER*4 GDS__ref_cnstrnt_notfound            
+
+      PARAMETER (GDS__ref_cnstrnt_notfound             = 335544532)
+
+      INTEGER*4 GDS__foreign_key_notfound            
+
+      PARAMETER (GDS__foreign_key_notfound             = 335544533)
+
+      INTEGER*4 GDS__ref_cnstrnt_update              
+
+      PARAMETER (GDS__ref_cnstrnt_update               = 335544534)
+
+      INTEGER*4 GDS__check_cnstrnt_update            
+
+      PARAMETER (GDS__check_cnstrnt_update             = 335544535)
+
+      INTEGER*4 GDS__check_cnstrnt_del               
+
+      PARAMETER (GDS__check_cnstrnt_del                = 335544536)
+
+      INTEGER*4 GDS__integ_index_seg_del             
+
+      PARAMETER (GDS__integ_index_seg_del              = 335544537)
+
+      INTEGER*4 GDS__integ_index_seg_mod             
+
+      PARAMETER (GDS__integ_index_seg_mod              = 335544538)
+
+      INTEGER*4 GDS__integ_index_del                 
+
+      PARAMETER (GDS__integ_index_del                  = 335544539)
+
+      INTEGER*4 GDS__integ_index_mod                 
+
+      PARAMETER (GDS__integ_index_mod                  = 335544540)
+
+      INTEGER*4 GDS__check_trig_del                  
+
+      PARAMETER (GDS__check_trig_del                   = 335544541)
+
+      INTEGER*4 GDS__check_trig_update               
+
+      PARAMETER (GDS__check_trig_update                = 335544542)
+
+      INTEGER*4 GDS__cnstrnt_fld_del                 
+
+      PARAMETER (GDS__cnstrnt_fld_del                  = 335544543)
+
+      INTEGER*4 GDS__cnstrnt_fld_rename              
+
+      PARAMETER (GDS__cnstrnt_fld_rename               = 335544544)
+
+      INTEGER*4 GDS__rel_cnstrnt_update              
+
+      PARAMETER (GDS__rel_cnstrnt_update               = 335544545)
+
+      INTEGER*4 GDS__constaint_on_view               
+
+      PARAMETER (GDS__constaint_on_view                = 335544546)
+
+      INTEGER*4 GDS__invld_cnstrnt_type              
+
+      PARAMETER (GDS__invld_cnstrnt_type               = 335544547)
+
+      INTEGER*4 GDS__primary_key_exists              
+
+      PARAMETER (GDS__primary_key_exists               = 335544548)
+
+      INTEGER*4 GDS__systrig_update                  
+
+      PARAMETER (GDS__systrig_update                   = 335544549)
+
+      INTEGER*4 GDS__not_rel_owner                   
+
+      PARAMETER (GDS__not_rel_owner                    = 335544550)
+
+      INTEGER*4 GDS__grant_obj_notfound              
+
+      PARAMETER (GDS__grant_obj_notfound               = 335544551)
+
+      INTEGER*4 GDS__grant_fld_notfound              
+
+      PARAMETER (GDS__grant_fld_notfound               = 335544552)
+
+      INTEGER*4 GDS__grant_nopriv                    
+
+      PARAMETER (GDS__grant_nopriv                     = 335544553)
+
+      INTEGER*4 GDS__nonsql_security_rel             
+
+      PARAMETER (GDS__nonsql_security_rel              = 335544554)
+
+      INTEGER*4 GDS__nonsql_security_fld             
+
+      PARAMETER (GDS__nonsql_security_fld              = 335544555)
+
+      INTEGER*4 GDS__wal_cache_err                   
+
+      PARAMETER (GDS__wal_cache_err                    = 335544556)
+
+      INTEGER*4 GDS__shutfail                        
+
+      PARAMETER (GDS__shutfail                         = 335544557)
+
+      INTEGER*4 GDS__check_constraint                
+
+      PARAMETER (GDS__check_constraint                 = 335544558)
+
+      INTEGER*4 GDS__bad_svc_handle                  
+
+      PARAMETER (GDS__bad_svc_handle                   = 335544559)
+
+      INTEGER*4 GDS__shutwarn                        
+
+      PARAMETER (GDS__shutwarn                         = 335544560)
+
+      INTEGER*4 GDS__wrospbver                       
+
+      PARAMETER (GDS__wrospbver                        = 335544561)
+
+      INTEGER*4 GDS__bad_spb_form                    
+
+      PARAMETER (GDS__bad_spb_form                     = 335544562)
+
+      INTEGER*4 GDS__svcnotdef                       
+
+      PARAMETER (GDS__svcnotdef                        = 335544563)
+
+      INTEGER*4 GDS__no_jrn                          
+
+      PARAMETER (GDS__no_jrn                           = 335544564)
+
+      INTEGER*4 GDS__transliteration_failed          
+
+      PARAMETER (GDS__transliteration_failed           = 335544565)
+
+      INTEGER*4 GDS__start_cm_for_wal                
+
+      PARAMETER (GDS__start_cm_for_wal                 = 335544566)
+
+      INTEGER*4 GDS__wal_ovflow_log_required         
+
+      PARAMETER (GDS__wal_ovflow_log_required          = 335544567)
+
+      INTEGER*4 GDS__text_subtype                    
+
+      PARAMETER (GDS__text_subtype                     = 335544568)
+
+      INTEGER*4 GDS__dsql_error                      
+
+      PARAMETER (GDS__dsql_error                       = 335544569)
+
+      INTEGER*4 GDS__dsql_command_err                
+
+      PARAMETER (GDS__dsql_command_err                 = 335544570)
+
+      INTEGER*4 GDS__dsql_constant_err               
+
+      PARAMETER (GDS__dsql_constant_err                = 335544571)
+
+      INTEGER*4 GDS__dsql_cursor_err                 
+
+      PARAMETER (GDS__dsql_cursor_err                  = 335544572)
+
+      INTEGER*4 GDS__dsql_datatype_err               
+
+      PARAMETER (GDS__dsql_datatype_err                = 335544573)
+
+      INTEGER*4 GDS__dsql_decl_err                   
+
+      PARAMETER (GDS__dsql_decl_err                    = 335544574)
+
+      INTEGER*4 GDS__dsql_cursor_update_err          
+
+      PARAMETER (GDS__dsql_cursor_update_err           = 335544575)
+
+      INTEGER*4 GDS__dsql_cursor_open_err            
+
+      PARAMETER (GDS__dsql_cursor_open_err             = 335544576)
+
+      INTEGER*4 GDS__dsql_cursor_close_err           
+
+      PARAMETER (GDS__dsql_cursor_close_err            = 335544577)
+
+      INTEGER*4 GDS__dsql_field_err                  
+
+      PARAMETER (GDS__dsql_field_err                   = 335544578)
+
+      INTEGER*4 GDS__dsql_internal_err               
+
+      PARAMETER (GDS__dsql_internal_err                = 335544579)
+
+      INTEGER*4 GDS__dsql_relation_err               
+
+      PARAMETER (GDS__dsql_relation_err                = 335544580)
+
+      INTEGER*4 GDS__dsql_procedure_err              
+
+      PARAMETER (GDS__dsql_procedure_err               = 335544581)
+
+      INTEGER*4 GDS__dsql_request_err                
+
+      PARAMETER (GDS__dsql_request_err                 = 335544582)
+
+      INTEGER*4 GDS__dsql_sqlda_err                  
+
+      PARAMETER (GDS__dsql_sqlda_err                   = 335544583)
+
+      INTEGER*4 GDS__dsql_var_count_err              
+
+      PARAMETER (GDS__dsql_var_count_err               = 335544584)
+
+      INTEGER*4 GDS__dsql_stmt_handle                
+
+      PARAMETER (GDS__dsql_stmt_handle                 = 335544585)
+
+      INTEGER*4 GDS__dsql_function_err               
+
+      PARAMETER (GDS__dsql_function_err                = 335544586)
+
+      INTEGER*4 GDS__dsql_blob_err                   
+
+      PARAMETER (GDS__dsql_blob_err                    = 335544587)
+
+      INTEGER*4 GDS__collation_not_found             
+
+      PARAMETER (GDS__collation_not_found              = 335544588)
+
+      INTEGER*4 GDS__collation_not_for_charset       
+
+      PARAMETER (GDS__collation_not_for_charset        = 335544589)
+
+      INTEGER*4 GDS__dsql_dup_option                 
+
+      PARAMETER (GDS__dsql_dup_option                  = 335544590)
+
+      INTEGER*4 GDS__dsql_tran_err                   
+
+      PARAMETER (GDS__dsql_tran_err                    = 335544591)
+
+      INTEGER*4 GDS__dsql_invalid_array              
+
+      PARAMETER (GDS__dsql_invalid_array               = 335544592)
+
+      INTEGER*4 GDS__dsql_max_arr_dim_exceeded       
+
+      PARAMETER (GDS__dsql_max_arr_dim_exceeded        = 335544593)
+
+      INTEGER*4 GDS__dsql_arr_range_error            
+
+      PARAMETER (GDS__dsql_arr_range_error             = 335544594)
+
+      INTEGER*4 GDS__dsql_trigger_err                
+
+      PARAMETER (GDS__dsql_trigger_err                 = 335544595)
+
+      INTEGER*4 GDS__dsql_subselect_err              
+
+      PARAMETER (GDS__dsql_subselect_err               = 335544596)
+
+      INTEGER*4 GDS__dsql_crdb_prepare_err           
+
+      PARAMETER (GDS__dsql_crdb_prepare_err            = 335544597)
+
+      INTEGER*4 GDS__specify_field_err               
+
+      PARAMETER (GDS__specify_field_err                = 335544598)
+
+      INTEGER*4 GDS__num_field_err                   
+
+      PARAMETER (GDS__num_field_err                    = 335544599)
+
+      INTEGER*4 GDS__col_name_err                    
+
+      PARAMETER (GDS__col_name_err                     = 335544600)
+
+      INTEGER*4 GDS__where_err                       
+
+      PARAMETER (GDS__where_err                        = 335544601)
+
+      INTEGER*4 GDS__table_view_err                  
+
+      PARAMETER (GDS__table_view_err                   = 335544602)
+
+      INTEGER*4 GDS__distinct_err                    
+
+      PARAMETER (GDS__distinct_err                     = 335544603)
+
+      INTEGER*4 GDS__key_field_count_err             
+
+      PARAMETER (GDS__key_field_count_err              = 335544604)
+
+      INTEGER*4 GDS__subquery_err                    
+
+      PARAMETER (GDS__subquery_err                     = 335544605)
+
+      INTEGER*4 GDS__expression_eval_err             
+
+      PARAMETER (GDS__expression_eval_err              = 335544606)
+
+      INTEGER*4 GDS__node_err                        
+
+      PARAMETER (GDS__node_err                         = 335544607)
+
+      INTEGER*4 GDS__command_end_err                 
+
+      PARAMETER (GDS__command_end_err                  = 335544608)
+
+      INTEGER*4 GDS__index_name                      
+
+      PARAMETER (GDS__index_name                       = 335544609)
+
+      INTEGER*4 GDS__exception_name                  
+
+      PARAMETER (GDS__exception_name                   = 335544610)
+
+      INTEGER*4 GDS__field_name                      
+
+      PARAMETER (GDS__field_name                       = 335544611)
+
+      INTEGER*4 GDS__token_err                       
+
+      PARAMETER (GDS__token_err                        = 335544612)
+
+      INTEGER*4 GDS__union_err                       
+
+      PARAMETER (GDS__union_err                        = 335544613)
+
+      INTEGER*4 GDS__dsql_construct_err              
+
+      PARAMETER (GDS__dsql_construct_err               = 335544614)
+
+      INTEGER*4 GDS__field_aggregate_err             
+
+      PARAMETER (GDS__field_aggregate_err              = 335544615)
+
+      INTEGER*4 GDS__field_ref_err                   
+
+      PARAMETER (GDS__field_ref_err                    = 335544616)
+
+      INTEGER*4 GDS__order_by_err                    
+
+      PARAMETER (GDS__order_by_err                     = 335544617)
+
+      INTEGER*4 GDS__return_mode_err                 
+
+      PARAMETER (GDS__return_mode_err                  = 335544618)
+
+      INTEGER*4 GDS__extern_func_err                 
+
+      PARAMETER (GDS__extern_func_err                  = 335544619)
+
+      INTEGER*4 GDS__alias_conflict_err              
+
+      PARAMETER (GDS__alias_conflict_err               = 335544620)
+
+      INTEGER*4 GDS__procedure_conflict_error        
+
+      PARAMETER (GDS__procedure_conflict_error         = 335544621)
+
+      INTEGER*4 GDS__relation_conflict_err           
+
+      PARAMETER (GDS__relation_conflict_err            = 335544622)
+
+      INTEGER*4 GDS__dsql_domain_err                 
+
+      PARAMETER (GDS__dsql_domain_err                  = 335544623)
+
+      INTEGER*4 GDS__idx_seg_err                     
+
+      PARAMETER (GDS__idx_seg_err                      = 335544624)
+
+      INTEGER*4 GDS__node_name_err                   
+
+      PARAMETER (GDS__node_name_err                    = 335544625)
+
+      INTEGER*4 GDS__table_name                      
+
+      PARAMETER (GDS__table_name                       = 335544626)
+
+      INTEGER*4 GDS__proc_name                       
+
+      PARAMETER (GDS__proc_name                        = 335544627)
+
+      INTEGER*4 GDS__idx_create_err                  
+
+      PARAMETER (GDS__idx_create_err                   = 335544628)
+
+      INTEGER*4 GDS__wal_shadow_err                  
+
+      PARAMETER (GDS__wal_shadow_err                   = 335544629)
+
+      INTEGER*4 GDS__dependency                      
+
+      PARAMETER (GDS__dependency                       = 335544630)
+
+      INTEGER*4 GDS__idx_key_err                     
+
+      PARAMETER (GDS__idx_key_err                      = 335544631)
+
+      INTEGER*4 GDS__dsql_file_length_err            
+
+      PARAMETER (GDS__dsql_file_length_err             = 335544632)
+
+      INTEGER*4 GDS__dsql_shadow_number_err          
+
+      PARAMETER (GDS__dsql_shadow_number_err           = 335544633)
+
+      INTEGER*4 GDS__dsql_token_unk_err              
+
+      PARAMETER (GDS__dsql_token_unk_err               = 335544634)
+
+      INTEGER*4 GDS__dsql_no_relation_alias          
+
+      PARAMETER (GDS__dsql_no_relation_alias           = 335544635)
+
+      INTEGER*4 GDS__indexname                       
+
+      PARAMETER (GDS__indexname                        = 335544636)
+
+      INTEGER*4 GDS__no_stream_plan                  
+
+      PARAMETER (GDS__no_stream_plan                   = 335544637)
+
+      INTEGER*4 GDS__stream_twice                    
+
+      PARAMETER (GDS__stream_twice                     = 335544638)
+
+      INTEGER*4 GDS__stream_not_found                
+
+      PARAMETER (GDS__stream_not_found                 = 335544639)
+
+      INTEGER*4 GDS__collation_requires_text         
+
+      PARAMETER (GDS__collation_requires_text          = 335544640)
+
+      INTEGER*4 GDS__dsql_domain_not_found           
+
+      PARAMETER (GDS__dsql_domain_not_found            = 335544641)
+
+      INTEGER*4 GDS__index_unused                    
+
+      PARAMETER (GDS__index_unused                     = 335544642)
+
+      INTEGER*4 GDS__dsql_self_join                  
+
+      PARAMETER (GDS__dsql_self_join                   = 335544643)
+
+      INTEGER*4 GDS__stream_bof                      
+
+      PARAMETER (GDS__stream_bof                       = 335544644)
+
+      INTEGER*4 GDS__stream_crack                    
+
+      PARAMETER (GDS__stream_crack                     = 335544645)
+
+      INTEGER*4 GDS__db_or_file_exists               
+
+      PARAMETER (GDS__db_or_file_exists                = 335544646)
+
+      INTEGER*4 GDS__invalid_operator                
+
+      PARAMETER (GDS__invalid_operator                 = 335544647)
+
+      INTEGER*4 GDS__conn_lost                       
+
+      PARAMETER (GDS__conn_lost                        = 335544648)
+
+      INTEGER*4 GDS__bad_checksum                    
+
+      PARAMETER (GDS__bad_checksum                     = 335544649)
+
+      INTEGER*4 GDS__page_type_err                   
+
+      PARAMETER (GDS__page_type_err                    = 335544650)
+
+      INTEGER*4 GDS__ext_readonly_err                
+
+      PARAMETER (GDS__ext_readonly_err                 = 335544651)
+
+      INTEGER*4 GDS__sing_select_err                 
+
+      PARAMETER (GDS__sing_select_err                  = 335544652)
+
+      INTEGER*4 GDS__psw_attach                      
+
+      PARAMETER (GDS__psw_attach                       = 335544653)
+
+      INTEGER*4 GDS__psw_start_trans                 
+
+      PARAMETER (GDS__psw_start_trans                  = 335544654)
+
+      INTEGER*4 GDS__invalid_direction               
+
+      PARAMETER (GDS__invalid_direction                = 335544655)
+
+      INTEGER*4 GDS__dsql_var_conflict               
+
+      PARAMETER (GDS__dsql_var_conflict                = 335544656)
+
+      INTEGER*4 GDS__dsql_no_blob_array              
+
+      PARAMETER (GDS__dsql_no_blob_array               = 335544657)
+
+      INTEGER*4 GDS__dsql_base_table                 
+
+      PARAMETER (GDS__dsql_base_table                  = 335544658)
+
+      INTEGER*4 GDS__duplicate_base_table            
+
+      PARAMETER (GDS__duplicate_base_table             = 335544659)
+
+      INTEGER*4 GDS__view_alias                      
+
+      PARAMETER (GDS__view_alias                       = 335544660)
+
+      INTEGER*4 GDS__index_root_page_full            
+
+      PARAMETER (GDS__index_root_page_full             = 335544661)
+
+      INTEGER*4 GDS__dsql_blob_type_unknown          
+
+      PARAMETER (GDS__dsql_blob_type_unknown           = 335544662)
+
+      INTEGER*4 GDS__req_max_clones_exceeded         
+
+      PARAMETER (GDS__req_max_clones_exceeded          = 335544663)
+
+      INTEGER*4 GDS__dsql_duplicate_spec             
+
+      PARAMETER (GDS__dsql_duplicate_spec              = 335544664)
+
+      INTEGER*4 GDS__unique_key_violation            
+
+      PARAMETER (GDS__unique_key_violation             = 335544665)
+
+      INTEGER*4 GDS__srvr_version_too_old            
+
+      PARAMETER (GDS__srvr_version_too_old             = 335544666)
+
+      INTEGER*4 GDS__drdb_completed_with_errs        
+
+      PARAMETER (GDS__drdb_completed_with_errs         = 335544667)
+
+      INTEGER*4 GDS__dsql_procedure_use_err          
+
+      PARAMETER (GDS__dsql_procedure_use_err           = 335544668)
+
+      INTEGER*4 GDS__dsql_count_mismatch             
+
+      PARAMETER (GDS__dsql_count_mismatch              = 335544669)
+
+      INTEGER*4 GDS__blob_idx_err                    
+
+      PARAMETER (GDS__blob_idx_err                     = 335544670)
+
+      INTEGER*4 GDS__array_idx_err                   
+
+      PARAMETER (GDS__array_idx_err                    = 335544671)
+
+      INTEGER*4 GDS__key_field_err                   
+
+      PARAMETER (GDS__key_field_err                    = 335544672)
+
+      INTEGER*4 GDS__no_delete                       
+
+      PARAMETER (GDS__no_delete                        = 335544673)
+
+      INTEGER*4 GDS__del_last_field                  
+
+      PARAMETER (GDS__del_last_field                   = 335544674)
+
+      INTEGER*4 GDS__sort_err                        
+
+      PARAMETER (GDS__sort_err                         = 335544675)
+
+      INTEGER*4 GDS__sort_mem_err                    
+
+      PARAMETER (GDS__sort_mem_err                     = 335544676)
+
+      INTEGER*4 GDS__version_err                     
+
+      PARAMETER (GDS__version_err                      = 335544677)
+
+      INTEGER*4 GDS__inval_key_posn                  
+
+      PARAMETER (GDS__inval_key_posn                   = 335544678)
+
+      INTEGER*4 GDS__no_segments_err                 
+
+      PARAMETER (GDS__no_segments_err                  = 335544679)
+
+      INTEGER*4 GDS__crrp_data_err                   
+
+      PARAMETER (GDS__crrp_data_err                    = 335544680)
+
+      INTEGER*4 GDS__rec_size_err                    
+
+      PARAMETER (GDS__rec_size_err                     = 335544681)
+
+      INTEGER*4 GDS__dsql_field_ref                  
+
+      PARAMETER (GDS__dsql_field_ref                   = 335544682)
+
+      INTEGER*4 GDS__req_depth_exceeded              
+
+      PARAMETER (GDS__req_depth_exceeded               = 335544683)
+
+      INTEGER*4 GDS__no_field_access                 
+
+      PARAMETER (GDS__no_field_access                  = 335544684)
+
+      INTEGER*4 GDS__no_dbkey                        
+
+      PARAMETER (GDS__no_dbkey                         = 335544685)
+
+      INTEGER*4 GDS__jrn_format_err                  
+
+      PARAMETER (GDS__jrn_format_err                   = 335544686)
+
+      INTEGER*4 GDS__jrn_file_full                   
+
+      PARAMETER (GDS__jrn_file_full                    = 335544687)
+
+      INTEGER*4 GDS__dsql_open_cursor_request        
+
+      PARAMETER (GDS__dsql_open_cursor_request         = 335544688)
+
+      INTEGER*4 GDS__ib_error                        
+
+      PARAMETER (GDS__ib_error                         = 335544689)
+
+      INTEGER*4 GDS__cache_redef                     
+
+      PARAMETER (GDS__cache_redef                      = 335544690)
+
+      INTEGER*4 GDS__cache_too_small                 
+
+      PARAMETER (GDS__cache_too_small                  = 335544691)
+
+      INTEGER*4 GDS__log_redef                       
+
+      PARAMETER (GDS__log_redef                        = 335544692)
+
+      INTEGER*4 GDS__log_too_small                   
+
+      PARAMETER (GDS__log_too_small                    = 335544693)
+
+      INTEGER*4 GDS__partition_too_small             
+
+      PARAMETER (GDS__partition_too_small              = 335544694)
+
+      INTEGER*4 GDS__partition_not_supp              
+
+      PARAMETER (GDS__partition_not_supp               = 335544695)
+
+      INTEGER*4 GDS__log_length_spec                 
+
+      PARAMETER (GDS__log_length_spec                  = 335544696)
+
+      INTEGER*4 GDS__precision_err                   
+
+      PARAMETER (GDS__precision_err                    = 335544697)
+
+      INTEGER*4 GDS__scale_nogt                      
+
+      PARAMETER (GDS__scale_nogt                       = 335544698)
+
+      INTEGER*4 GDS__expec_short                     
+
+      PARAMETER (GDS__expec_short                      = 335544699)
+
+      INTEGER*4 GDS__expec_long                      
+
+      PARAMETER (GDS__expec_long                       = 335544700)
+
+      INTEGER*4 GDS__expec_ushort                    
+
+      PARAMETER (GDS__expec_ushort                     = 335544701)
+
+      INTEGER*4 GDS__like_escape_invalid             
+
+      PARAMETER (GDS__like_escape_invalid              = 335544702)
+
+      INTEGER*4 GDS__svcnoexe                        
+
+      PARAMETER (GDS__svcnoexe                         = 335544703)
+
+      INTEGER*4 GDS__net_lookup_err                  
+
+      PARAMETER (GDS__net_lookup_err                   = 335544704)
+
+      INTEGER*4 GDS__service_unknown                 
+
+      PARAMETER (GDS__service_unknown                  = 335544705)
+
+      INTEGER*4 GDS__host_unknown                    
+
+      PARAMETER (GDS__host_unknown                     = 335544706)
+
+      INTEGER*4 GDS__grant_nopriv_on_base            
+
+      PARAMETER (GDS__grant_nopriv_on_base             = 335544707)
+
+      INTEGER*4 GDS__dyn_fld_ambiguous               
+
+      PARAMETER (GDS__dyn_fld_ambiguous                = 335544708)
+
+      INTEGER*4 GDS__dsql_agg_ref_err                
+
+      PARAMETER (GDS__dsql_agg_ref_err                 = 335544709)
+
+      INTEGER*4 GDS__complex_view                    
+
+      PARAMETER (GDS__complex_view                     = 335544710)
+
+      INTEGER*4 GDS__unprepared_stmt                 
+
+      PARAMETER (GDS__unprepared_stmt                  = 335544711)
+
+      INTEGER*4 GDS__expec_positive                  
+
+      PARAMETER (GDS__expec_positive                   = 335544712)
+
+      INTEGER*4 GDS__dsql_sqlda_value_err            
+
+      PARAMETER (GDS__dsql_sqlda_value_err             = 335544713)
+
+      INTEGER*4 GDS__invalid_array_id                
+
+      PARAMETER (GDS__invalid_array_id                 = 335544714)
+
+      INTEGER*4 GDS__extfile_uns_op                  
+
+      PARAMETER (GDS__extfile_uns_op                   = 335544715)
+
+      INTEGER*4 GDS__svc_in_use                      
+
+      PARAMETER (GDS__svc_in_use                       = 335544716)
+
+      INTEGER*4 GDS__err_stack_limit                 
+
+      PARAMETER (GDS__err_stack_limit                  = 335544717)
+
+      INTEGER*4 GDS__invalid_key                     
+
+      PARAMETER (GDS__invalid_key                      = 335544718)
+
+      INTEGER*4 GDS__net_init_error                  
+
+      PARAMETER (GDS__net_init_error                   = 335544719)
+
+      INTEGER*4 GDS__loadlib_failure                 
+
+      PARAMETER (GDS__loadlib_failure                  = 335544720)
+
+      INTEGER*4 GDS__network_error                   
+
+      PARAMETER (GDS__network_error                    = 335544721)
+
+      INTEGER*4 GDS__net_connect_err                 
+
+      PARAMETER (GDS__net_connect_err                  = 335544722)
+
+      INTEGER*4 GDS__net_connect_listen_err          
+
+      PARAMETER (GDS__net_connect_listen_err           = 335544723)
+
+      INTEGER*4 GDS__net_event_connect_err           
+
+      PARAMETER (GDS__net_event_connect_err            = 335544724)
+
+      INTEGER*4 GDS__net_event_listen_err            
+
+      PARAMETER (GDS__net_event_listen_err             = 335544725)
+
+      INTEGER*4 GDS__net_read_err                    
+
+      PARAMETER (GDS__net_read_err                     = 335544726)
+
+      INTEGER*4 GDS__net_write_err                   
+
+      PARAMETER (GDS__net_write_err                    = 335544727)
+
+      INTEGER*4 GDS__integ_index_deactivate          
+
+      PARAMETER (GDS__integ_index_deactivate           = 335544728)
+
+      INTEGER*4 GDS__integ_deactivate_primary        
+
+      PARAMETER (GDS__integ_deactivate_primary         = 335544729)
+
+      INTEGER*4 GDS__cse_not_supported               
+
+      PARAMETER (GDS__cse_not_supported                = 335544730)
+
+      INTEGER*4 GDS__tra_must_sweep                  
+
+      PARAMETER (GDS__tra_must_sweep                   = 335544731)
+
+      INTEGER*4 GDS__unsupported_network_drive       
+
+      PARAMETER (GDS__unsupported_network_drive        = 335544732)
+
+      INTEGER*4 GDS__io_create_err                   
+
+      PARAMETER (GDS__io_create_err                    = 335544733)
+
+      INTEGER*4 GDS__io_open_err                     
+
+      PARAMETER (GDS__io_open_err                      = 335544734)
+
+      INTEGER*4 GDS__io_close_err                    
+
+      PARAMETER (GDS__io_close_err                     = 335544735)
+
+      INTEGER*4 GDS__io_read_err                     
+
+      PARAMETER (GDS__io_read_err                      = 335544736)
+
+      INTEGER*4 GDS__io_write_err                    
+
+      PARAMETER (GDS__io_write_err                     = 335544737)
+
+      INTEGER*4 GDS__io_delete_err                   
+
+      PARAMETER (GDS__io_delete_err                    = 335544738)
+
+      INTEGER*4 GDS__io_access_err                   
+
+      PARAMETER (GDS__io_access_err                    = 335544739)
+
+      INTEGER*4 GDS__udf_exception                   
+
+      PARAMETER (GDS__udf_exception                    = 335544740)
+
+      INTEGER*4 GDS__lost_db_connection              
+
+      PARAMETER (GDS__lost_db_connection               = 335544741)
+
+      INTEGER*4 GDS__no_write_user_priv              
+
+      PARAMETER (GDS__no_write_user_priv               = 335544742)
+
+      INTEGER*4 GDS__token_too_long                  
+
+      PARAMETER (GDS__token_too_long                   = 335544743)
+
+      INTEGER*4 GDS__max_att_exceeded                
+
+      PARAMETER (GDS__max_att_exceeded                 = 335544744)
+
+      INTEGER*4 GDS__login_same_as_role_name         
+
+      PARAMETER (GDS__login_same_as_role_name          = 335544745)
+
+      INTEGER*4 GDS__reftable_requires_pk            
+
+      PARAMETER (GDS__reftable_requires_pk             = 335544746)
+
+      INTEGER*4 GDS__usrname_too_long                
+
+      PARAMETER (GDS__usrname_too_long                 = 335544747)
+
+      INTEGER*4 GDS__password_too_long               
+
+      PARAMETER (GDS__password_too_long                = 335544748)
+
+      INTEGER*4 GDS__usrname_required                
+
+      PARAMETER (GDS__usrname_required                 = 335544749)
+
+      INTEGER*4 GDS__password_required               
+
+      PARAMETER (GDS__password_required                = 335544750)
+
+      INTEGER*4 GDS__bad_protocol                    
+
+      PARAMETER (GDS__bad_protocol                     = 335544751)
+
+      INTEGER*4 GDS__dup_usrname_found               
+
+      PARAMETER (GDS__dup_usrname_found                = 335544752)
+
+      INTEGER*4 GDS__usrname_not_found               
+
+      PARAMETER (GDS__usrname_not_found                = 335544753)
+
+      INTEGER*4 GDS__error_adding_sec_record         
+
+      PARAMETER (GDS__error_adding_sec_record          = 335544754)
+
+      INTEGER*4 GDS__error_modifying_sec_record      
+
+      PARAMETER (GDS__error_modifying_sec_record       = 335544755)
+
+      INTEGER*4 GDS__error_deleting_sec_record       
+
+      PARAMETER (GDS__error_deleting_sec_record        = 335544756)
+
+      INTEGER*4 GDS__error_updating_sec_db           
+
+      PARAMETER (GDS__error_updating_sec_db            = 335544757)
+
+      INTEGER*4 GDS__sort_rec_size_err               
+
+      PARAMETER (GDS__sort_rec_size_err                = 335544758)
+
+      INTEGER*4 GDS__bad_default_value               
+
+      PARAMETER (GDS__bad_default_value                = 335544759)
+
+      INTEGER*4 GDS__invalid_clause                  
+
+      PARAMETER (GDS__invalid_clause                   = 335544760)
+
+      INTEGER*4 GDS__too_many_handles                
+
+      PARAMETER (GDS__too_many_handles                 = 335544761)
+
+      INTEGER*4 GDS__optimizer_blk_exc               
+
+      PARAMETER (GDS__optimizer_blk_exc                = 335544762)
+
+      INTEGER*4 GDS__invalid_string_constant         
+
+      PARAMETER (GDS__invalid_string_constant          = 335544763)
+
+      INTEGER*4 GDS__transitional_date               
+
+      PARAMETER (GDS__transitional_date                = 335544764)
+
+      INTEGER*4 GDS__read_only_database              
+
+      PARAMETER (GDS__read_only_database               = 335544765)
+
+      INTEGER*4 GDS__must_be_dialect_2_and_up        
+
+      PARAMETER (GDS__must_be_dialect_2_and_up         = 335544766)
+
+      INTEGER*4 GDS__blob_filter_exception           
+
+      PARAMETER (GDS__blob_filter_exception            = 335544767)
+
+      INTEGER*4 GDS__exception_access_violation      
+
+      PARAMETER (GDS__exception_access_violation       = 335544768)
+
+      INTEGER*4 GDS__exception_datatype_missalignment
+
+      PARAMETER (GDS__exception_datatype_missalignment = 335544769)
+
+      INTEGER*4 GDS__exception_array_bounds_exceeded 
+
+      PARAMETER (GDS__exception_array_bounds_exceeded  = 335544770)
+
+      INTEGER*4 GDS__exception_float_denormal_operand
+
+      PARAMETER (GDS__exception_float_denormal_operand = 335544771)
+
+      INTEGER*4 GDS__exception_float_divide_by_zero  
+
+      PARAMETER (GDS__exception_float_divide_by_zero   = 335544772)
+
+      INTEGER*4 GDS__exception_float_inexact_result  
+
+      PARAMETER (GDS__exception_float_inexact_result   = 335544773)
+
+      INTEGER*4 GDS__exception_float_invalid_operand 
+
+      PARAMETER (GDS__exception_float_invalid_operand  = 335544774)
+
+      INTEGER*4 GDS__exception_float_overflow        
+
+      PARAMETER (GDS__exception_float_overflow         = 335544775)
+
+      INTEGER*4 GDS__exception_float_stack_check     
+
+      PARAMETER (GDS__exception_float_stack_check      = 335544776)
+
+      INTEGER*4 GDS__exception_float_underflow       
+
+      PARAMETER (GDS__exception_float_underflow        = 335544777)
+
+      INTEGER*4 GDS__exception_integer_divide_by_zero
+
+      PARAMETER (GDS__exception_integer_divide_by_zero = 335544778)
+
+      INTEGER*4 GDS__exception_integer_overflow      
+
+      PARAMETER (GDS__exception_integer_overflow       = 335544779)
+
+      INTEGER*4 GDS__exception_unknown               
+
+      PARAMETER (GDS__exception_unknown                = 335544780)
+
+      INTEGER*4 GDS__exception_stack_overflow        
+
+      PARAMETER (GDS__exception_stack_overflow         = 335544781)
+
+      INTEGER*4 GDS__exception_sigsegv               
+
+      PARAMETER (GDS__exception_sigsegv                = 335544782)
+
+      INTEGER*4 GDS__exception_sigill                
+
+      PARAMETER (GDS__exception_sigill                 = 335544783)
+
+      INTEGER*4 GDS__exception_sigbus                
+
+      PARAMETER (GDS__exception_sigbus                 = 335544784)
+
+      INTEGER*4 GDS__exception_sigfpe                
+
+      PARAMETER (GDS__exception_sigfpe                 = 335544785)
+
+      INTEGER*4 GDS__ext_file_delete                 
+
+      PARAMETER (GDS__ext_file_delete                  = 335544786)
+
+      INTEGER*4 GDS__ext_file_modify                 
+
+      PARAMETER (GDS__ext_file_modify                  = 335544787)
+
+      INTEGER*4 GDS__adm_task_denied                 
+
+      PARAMETER (GDS__adm_task_denied                  = 335544788)
+
+      INTEGER*4 GDS__extract_input_mismatch          
+
+      PARAMETER (GDS__extract_input_mismatch           = 335544789)
+
+      INTEGER*4 GDS__insufficient_svc_privileges     
+
+      PARAMETER (GDS__insufficient_svc_privileges      = 335544790)
+
+      INTEGER*4 GDS__file_in_use                     
+
+      PARAMETER (GDS__file_in_use                      = 335544791)
+
+      INTEGER*4 GDS__service_att_err                 
+
+      PARAMETER (GDS__service_att_err                  = 335544792)
+
+      INTEGER*4 GDS__ddl_not_allowed_by_db_sql_dial  
+
+      PARAMETER (GDS__ddl_not_allowed_by_db_sql_dial   = 335544793)
+
+      INTEGER*4 GDS__cancelled                       
+
+      PARAMETER (GDS__cancelled                        = 335544794)
+
+      INTEGER*4 GDS__unexp_spb_form                  
+
+      PARAMETER (GDS__unexp_spb_form                   = 335544795)
+
+      INTEGER*4 GDS__sql_dialect_datatype_unsupport  
+
+      PARAMETER (GDS__sql_dialect_datatype_unsupport   = 335544796)
+
+      INTEGER*4 GDS__svcnouser                       
+
+      PARAMETER (GDS__svcnouser                        = 335544797)
+
+      INTEGER*4 GDS__depend_on_uncommitted_rel       
+
+      PARAMETER (GDS__depend_on_uncommitted_rel        = 335544798)
+
+      INTEGER*4 GDS__svc_name_missing                
+
+      PARAMETER (GDS__svc_name_missing                 = 335544799)
+
+      INTEGER*4 GDS__too_many_contexts               
+
+      PARAMETER (GDS__too_many_contexts                = 335544800)
+
+      INTEGER*4 GDS__datype_notsup                   
+
+      PARAMETER (GDS__datype_notsup                    = 335544801)
+
+      INTEGER*4 GDS__dialect_reset_warning           
+
+      PARAMETER (GDS__dialect_reset_warning            = 335544802)
+
+      INTEGER*4 GDS__dialect_not_changed             
+
+      PARAMETER (GDS__dialect_not_changed              = 335544803)
+
+      INTEGER*4 GDS__database_create_failed          
+
+      PARAMETER (GDS__database_create_failed           = 335544804)
+
+      INTEGER*4 GDS__inv_dialect_specified           
+
+      PARAMETER (GDS__inv_dialect_specified            = 335544805)
+
+      INTEGER*4 GDS__valid_db_dialects               
+
+      PARAMETER (GDS__valid_db_dialects                = 335544806)
+
+      INTEGER*4 GDS__sqlwarn                         
+
+      PARAMETER (GDS__sqlwarn                          = 335544807)
+
+      INTEGER*4 GDS__dtype_renamed                   
+
+      PARAMETER (GDS__dtype_renamed                    = 335544808)
+
+      INTEGER*4 GDS__extern_func_dir_error           
+
+      PARAMETER (GDS__extern_func_dir_error            = 335544809)
+
+      INTEGER*4 GDS__date_range_exceeded             
+
+      PARAMETER (GDS__date_range_exceeded              = 335544810)
+
+      INTEGER*4 GDS__inv_client_dialect_specified    
+
+      PARAMETER (GDS__inv_client_dialect_specified     = 335544811)
+
+      INTEGER*4 GDS__valid_client_dialects           
+
+      PARAMETER (GDS__valid_client_dialects            = 335544812)
+
+      INTEGER*4 GDS__optimizer_between_err           
+
+      PARAMETER (GDS__optimizer_between_err            = 335544813)
+
+      INTEGER*4 GDS__service_not_supported           
+
+      PARAMETER (GDS__service_not_supported            = 335544814)
+
+      INTEGER*4 GDS__gfix_db_name                    
+
+      PARAMETER (GDS__gfix_db_name                     = 335740929)
+
+      INTEGER*4 GDS__gfix_invalid_sw                 
+
+      PARAMETER (GDS__gfix_invalid_sw                  = 335740930)
+
+      INTEGER*4 GDS__gfix_incmp_sw                   
+
+      PARAMETER (GDS__gfix_incmp_sw                    = 335740932)
+
+      INTEGER*4 GDS__gfix_replay_req                 
+
+      PARAMETER (GDS__gfix_replay_req                  = 335740933)
+
+      INTEGER*4 GDS__gfix_pgbuf_req                  
+
+      PARAMETER (GDS__gfix_pgbuf_req                   = 335740934)
+
+      INTEGER*4 GDS__gfix_val_req                    
+
+      PARAMETER (GDS__gfix_val_req                     = 335740935)
+
+      INTEGER*4 GDS__gfix_pval_req                   
+
+      PARAMETER (GDS__gfix_pval_req                    = 335740936)
+
+      INTEGER*4 GDS__gfix_trn_req                    
+
+      PARAMETER (GDS__gfix_trn_req                     = 335740937)
+
+      INTEGER*4 GDS__gfix_full_req                   
+
+      PARAMETER (GDS__gfix_full_req                    = 335740940)
+
+      INTEGER*4 GDS__gfix_usrname_req                
+
+      PARAMETER (GDS__gfix_usrname_req                 = 335740941)
+
+      INTEGER*4 GDS__gfix_pass_req                   
+
+      PARAMETER (GDS__gfix_pass_req                    = 335740942)
+
+      INTEGER*4 GDS__gfix_subs_name                  
+
+      PARAMETER (GDS__gfix_subs_name                   = 335740943)
+
+      INTEGER*4 GDS__gfix_wal_req                    
+
+      PARAMETER (GDS__gfix_wal_req                     = 335740944)
+
+      INTEGER*4 GDS__gfix_sec_req                    
+
+      PARAMETER (GDS__gfix_sec_req                     = 335740945)
+
+      INTEGER*4 GDS__gfix_nval_req                   
+
+      PARAMETER (GDS__gfix_nval_req                    = 335740946)
+
+      INTEGER*4 GDS__gfix_type_shut                  
+
+      PARAMETER (GDS__gfix_type_shut                   = 335740947)
+
+      INTEGER*4 GDS__gfix_retry                      
+
+      PARAMETER (GDS__gfix_retry                       = 335740948)
+
+      INTEGER*4 GDS__gfix_retry_db                   
+
+      PARAMETER (GDS__gfix_retry_db                    = 335740951)
+
+      INTEGER*4 GDS__gfix_exceed_max                 
+
+      PARAMETER (GDS__gfix_exceed_max                  = 335740991)
+
+      INTEGER*4 GDS__gfix_corrupt_pool               
+
+      PARAMETER (GDS__gfix_corrupt_pool                = 335740992)
+
+      INTEGER*4 GDS__gfix_mem_exhausted              
+
+      PARAMETER (GDS__gfix_mem_exhausted               = 335740993)
+
+      INTEGER*4 GDS__gfix_bad_pool                   
+
+      PARAMETER (GDS__gfix_bad_pool                    = 335740994)
+
+      INTEGER*4 GDS__gfix_trn_not_valid              
+
+      PARAMETER (GDS__gfix_trn_not_valid               = 335740995)
+
+      INTEGER*4 GDS__gfix_unexp_eoi                  
+
+      PARAMETER (GDS__gfix_unexp_eoi                   = 335741012)
+
+      INTEGER*4 GDS__gfix_recon_fail                 
+
+      PARAMETER (GDS__gfix_recon_fail                  = 335741018)
+
+      INTEGER*4 GDS__gfix_trn_unknown                
+
+      PARAMETER (GDS__gfix_trn_unknown                 = 335741036)
+
+      INTEGER*4 GDS__gfix_mode_req                   
+
+      PARAMETER (GDS__gfix_mode_req                    = 335741038)
+
+      INTEGER*4 GDS__gfix_opt_SQL_dialect            
+
+      PARAMETER (GDS__gfix_opt_SQL_dialect             = 335741039)
+
+      INTEGER*4 GDS__dsql_dbkey_from_non_table       
+
+      PARAMETER (GDS__dsql_dbkey_from_non_table        = 336003074)
+
+      INTEGER*4 GDS__dsql_transitional_numeric       
+
+      PARAMETER (GDS__dsql_transitional_numeric        = 336003075)
+
+      INTEGER*4 GDS__dsql_dialect_warning_expr       
+
+      PARAMETER (GDS__dsql_dialect_warning_expr        = 336003076)
+
+      INTEGER*4 GDS__sql_db_dialect_dtype_unsupport  
+
+      PARAMETER (GDS__sql_db_dialect_dtype_unsupport   = 336003077)
+
+      INTEGER*4 GDS__isc_sql_dialect_conflict_num    
+
+      PARAMETER (GDS__isc_sql_dialect_conflict_num     = 336003079)
+
+      INTEGER*4 GDS__dsql_warning_number_ambiguous   
+
+      PARAMETER (GDS__dsql_warning_number_ambiguous    = 336003080)
+
+      INTEGER*4 GDS__dsql_warning_number_ambiguous1  
+
+      PARAMETER (GDS__dsql_warning_number_ambiguous1   = 336003081)
+
+      INTEGER*4 GDS__dsql_warn_precision_ambiguous   
+
+      PARAMETER (GDS__dsql_warn_precision_ambiguous    = 336003082)
+
+      INTEGER*4 GDS__dsql_warn_precision_ambiguous1  
+
+      PARAMETER (GDS__dsql_warn_precision_ambiguous1   = 336003083)
+
+      INTEGER*4 GDS__dsql_warn_precision_ambiguous2  
+
+      PARAMETER (GDS__dsql_warn_precision_ambiguous2   = 336003084)
+
+      INTEGER*4 GDS__dyn_role_does_not_exist         
+
+      PARAMETER (GDS__dyn_role_does_not_exist          = 336068796)
+
+      INTEGER*4 GDS__dyn_no_grant_admin_opt          
+
+      PARAMETER (GDS__dyn_no_grant_admin_opt           = 336068797)
+
+      INTEGER*4 GDS__dyn_user_not_role_member        
+
+      PARAMETER (GDS__dyn_user_not_role_member         = 336068798)
+
+      INTEGER*4 GDS__dyn_delete_role_failed          
+
+      PARAMETER (GDS__dyn_delete_role_failed           = 336068799)
+
+      INTEGER*4 GDS__dyn_grant_role_to_user          
+
+      PARAMETER (GDS__dyn_grant_role_to_user           = 336068800)
+
+      INTEGER*4 GDS__dyn_inv_sql_role_name           
+
+      PARAMETER (GDS__dyn_inv_sql_role_name            = 336068801)
+
+      INTEGER*4 GDS__dyn_dup_sql_role                
+
+      PARAMETER (GDS__dyn_dup_sql_role                 = 336068802)
+
+      INTEGER*4 GDS__dyn_kywd_spec_for_role          
+
+      PARAMETER (GDS__dyn_kywd_spec_for_role           = 336068803)
+
+      INTEGER*4 GDS__dyn_roles_not_supported         
+
+      PARAMETER (GDS__dyn_roles_not_supported          = 336068804)
+
+      INTEGER*4 GDS__dyn_domain_name_exists          
+
+      PARAMETER (GDS__dyn_domain_name_exists           = 336068812)
+
+      INTEGER*4 GDS__dyn_field_name_exists           
+
+      PARAMETER (GDS__dyn_field_name_exists            = 336068813)
+
+      INTEGER*4 GDS__dyn_dependency_exists           
+
+      PARAMETER (GDS__dyn_dependency_exists            = 336068814)
+
+      INTEGER*4 GDS__dyn_dtype_invalid               
+
+      PARAMETER (GDS__dyn_dtype_invalid                = 336068815)
+
+      INTEGER*4 GDS__dyn_char_fld_too_small          
+
+      PARAMETER (GDS__dyn_char_fld_too_small           = 336068816)
+
+      INTEGER*4 GDS__dyn_invalid_dtype_conversion    
+
+      PARAMETER (GDS__dyn_invalid_dtype_conversion     = 336068817)
+
+      INTEGER*4 GDS__dyn_dtype_conv_invalid          
+
+      PARAMETER (GDS__dyn_dtype_conv_invalid           = 336068818)
+
+      INTEGER*4 GDS__gbak_unknown_switch             
+
+      PARAMETER (GDS__gbak_unknown_switch              = 336330753)
+
+      INTEGER*4 GDS__gbak_page_size_missing          
+
+      PARAMETER (GDS__gbak_page_size_missing           = 336330754)
+
+      INTEGER*4 GDS__gbak_page_size_toobig           
+
+      PARAMETER (GDS__gbak_page_size_toobig            = 336330755)
+
+      INTEGER*4 GDS__gbak_redir_ouput_missing        
+
+      PARAMETER (GDS__gbak_redir_ouput_missing         = 336330756)
+
+      INTEGER*4 GDS__gbak_switches_conflict          
+
+      PARAMETER (GDS__gbak_switches_conflict           = 336330757)
+
+      INTEGER*4 GDS__gbak_unknown_device             
+
+      PARAMETER (GDS__gbak_unknown_device              = 336330758)
+
+      INTEGER*4 GDS__gbak_no_protection              
+
+      PARAMETER (GDS__gbak_no_protection               = 336330759)
+
+      INTEGER*4 GDS__gbak_page_size_not_allowed      
+
+      PARAMETER (GDS__gbak_page_size_not_allowed       = 336330760)
+
+      INTEGER*4 GDS__gbak_multi_source_dest          
+
+      PARAMETER (GDS__gbak_multi_source_dest           = 336330761)
+
+      INTEGER*4 GDS__gbak_filename_missing           
+
+      PARAMETER (GDS__gbak_filename_missing            = 336330762)
+
+      INTEGER*4 GDS__gbak_dup_inout_names            
+
+      PARAMETER (GDS__gbak_dup_inout_names             = 336330763)
+
+      INTEGER*4 GDS__gbak_inv_page_size              
+
+      PARAMETER (GDS__gbak_inv_page_size               = 336330764)
+
+      INTEGER*4 GDS__gbak_db_specified               
+
+      PARAMETER (GDS__gbak_db_specified                = 336330765)
+
+      INTEGER*4 GDS__gbak_db_exists                  
+
+      PARAMETER (GDS__gbak_db_exists                   = 336330766)
+
+      INTEGER*4 GDS__gbak_unk_device                 
+
+      PARAMETER (GDS__gbak_unk_device                  = 336330767)
+
+      INTEGER*4 GDS__gbak_blob_info_failed           
+
+      PARAMETER (GDS__gbak_blob_info_failed            = 336330772)
+
+      INTEGER*4 GDS__gbak_unk_blob_item              
+
+      PARAMETER (GDS__gbak_unk_blob_item               = 336330773)
+
+      INTEGER*4 GDS__gbak_get_seg_failed             
+
+      PARAMETER (GDS__gbak_get_seg_failed              = 336330774)
+
+      INTEGER*4 GDS__gbak_close_blob_failed          
+
+      PARAMETER (GDS__gbak_close_blob_failed           = 336330775)
+
+      INTEGER*4 GDS__gbak_open_blob_failed           
+
+      PARAMETER (GDS__gbak_open_blob_failed            = 336330776)
+
+      INTEGER*4 GDS__gbak_put_blr_gen_id_failed      
+
+      PARAMETER (GDS__gbak_put_blr_gen_id_failed       = 336330777)
+
+      INTEGER*4 GDS__gbak_unk_type                   
+
+      PARAMETER (GDS__gbak_unk_type                    = 336330778)
+
+      INTEGER*4 GDS__gbak_comp_req_failed            
+
+      PARAMETER (GDS__gbak_comp_req_failed             = 336330779)
+
+      INTEGER*4 GDS__gbak_start_req_failed           
+
+      PARAMETER (GDS__gbak_start_req_failed            = 336330780)
+
+      INTEGER*4 GDS__gbak_rec_failed                 
+
+      PARAMETER (GDS__gbak_rec_failed                  = 336330781)
+
+      INTEGER*4 GDS__gbak_rel_req_failed             
+
+      PARAMETER (GDS__gbak_rel_req_failed              = 336330782)
+
+      INTEGER*4 GDS__gbak_db_info_failed             
+
+      PARAMETER (GDS__gbak_db_info_failed              = 336330783)
+
+      INTEGER*4 GDS__gbak_no_db_desc                 
+
+      PARAMETER (GDS__gbak_no_db_desc                  = 336330784)
+
+      INTEGER*4 GDS__gbak_db_create_failed           
+
+      PARAMETER (GDS__gbak_db_create_failed            = 336330785)
+
+      INTEGER*4 GDS__gbak_decomp_len_error           
+
+      PARAMETER (GDS__gbak_decomp_len_error            = 336330786)
+
+      INTEGER*4 GDS__gbak_tbl_missing                
+
+      PARAMETER (GDS__gbak_tbl_missing                 = 336330787)
+
+      INTEGER*4 GDS__gbak_blob_col_missing           
+
+      PARAMETER (GDS__gbak_blob_col_missing            = 336330788)
+
+      INTEGER*4 GDS__gbak_create_blob_failed         
+
+      PARAMETER (GDS__gbak_create_blob_failed          = 336330789)
+
+      INTEGER*4 GDS__gbak_put_seg_failed             
+
+      PARAMETER (GDS__gbak_put_seg_failed              = 336330790)
+
+      INTEGER*4 GDS__gbak_rec_len_exp                
+
+      PARAMETER (GDS__gbak_rec_len_exp                 = 336330791)
+
+      INTEGER*4 GDS__gbak_inv_rec_len                
+
+      PARAMETER (GDS__gbak_inv_rec_len                 = 336330792)
+
+      INTEGER*4 GDS__gbak_exp_data_type              
+
+      PARAMETER (GDS__gbak_exp_data_type               = 336330793)
+
+      INTEGER*4 GDS__gbak_gen_id_failed              
+
+      PARAMETER (GDS__gbak_gen_id_failed               = 336330794)
+
+      INTEGER*4 GDS__gbak_unk_rec_type               
+
+      PARAMETER (GDS__gbak_unk_rec_type                = 336330795)
+
+      INTEGER*4 GDS__gbak_inv_bkup_ver               
+
+      PARAMETER (GDS__gbak_inv_bkup_ver                = 336330796)
+
+      INTEGER*4 GDS__gbak_missing_bkup_desc          
+
+      PARAMETER (GDS__gbak_missing_bkup_desc           = 336330797)
+
+      INTEGER*4 GDS__gbak_string_trunc               
+
+      PARAMETER (GDS__gbak_string_trunc                = 336330798)
+
+      INTEGER*4 GDS__gbak_cant_rest_record           
+
+      PARAMETER (GDS__gbak_cant_rest_record            = 336330799)
+
+      INTEGER*4 GDS__gbak_send_failed                
+
+      PARAMETER (GDS__gbak_send_failed                 = 336330800)
+
+      INTEGER*4 GDS__gbak_no_tbl_name                
+
+      PARAMETER (GDS__gbak_no_tbl_name                 = 336330801)
+
+      INTEGER*4 GDS__gbak_unexp_eof                  
+
+      PARAMETER (GDS__gbak_unexp_eof                   = 336330802)
+
+      INTEGER*4 GDS__gbak_db_format_too_old          
+
+      PARAMETER (GDS__gbak_db_format_too_old           = 336330803)
+
+      INTEGER*4 GDS__gbak_inv_array_dim              
+
+      PARAMETER (GDS__gbak_inv_array_dim               = 336330804)
+
+      INTEGER*4 GDS__gbak_xdr_len_expected           
+
+      PARAMETER (GDS__gbak_xdr_len_expected            = 336330807)
+
+      INTEGER*4 GDS__gbak_open_bkup_error            
+
+      PARAMETER (GDS__gbak_open_bkup_error             = 336330817)
+
+      INTEGER*4 GDS__gbak_open_error                 
+
+      PARAMETER (GDS__gbak_open_error                  = 336330818)
+
+      INTEGER*4 GDS__gbak_missing_block_fac          
+
+      PARAMETER (GDS__gbak_missing_block_fac           = 336330934)
+
+      INTEGER*4 GDS__gbak_inv_block_fac              
+
+      PARAMETER (GDS__gbak_inv_block_fac               = 336330935)
+
+      INTEGER*4 GDS__gbak_block_fac_specified        
+
+      PARAMETER (GDS__gbak_block_fac_specified         = 336330936)
+
+      INTEGER*4 GDS__gbak_missing_username           
+
+      PARAMETER (GDS__gbak_missing_username            = 336330940)
+
+      INTEGER*4 GDS__gbak_missing_password           
+
+      PARAMETER (GDS__gbak_missing_password            = 336330941)
+
+      INTEGER*4 GDS__gbak_missing_skipped_bytes      
+
+      PARAMETER (GDS__gbak_missing_skipped_bytes       = 336330952)
+
+      INTEGER*4 GDS__gbak_inv_skipped_bytes          
+
+      PARAMETER (GDS__gbak_inv_skipped_bytes           = 336330953)
+
+      INTEGER*4 GDS__gbak_err_restore_charset        
+
+      PARAMETER (GDS__gbak_err_restore_charset         = 336330965)
+
+      INTEGER*4 GDS__gbak_err_restore_collation      
+
+      PARAMETER (GDS__gbak_err_restore_collation       = 336330967)
+
+      INTEGER*4 GDS__gbak_read_error                 
+
+      PARAMETER (GDS__gbak_read_error                  = 336330972)
+
+      INTEGER*4 GDS__gbak_write_error                
+
+      PARAMETER (GDS__gbak_write_error                 = 336330973)
+
+      INTEGER*4 GDS__gbak_db_in_use                  
+
+      PARAMETER (GDS__gbak_db_in_use                   = 336330985)
+
+      INTEGER*4 GDS__gbak_sysmemex                   
+
+      PARAMETER (GDS__gbak_sysmemex                    = 336330990)
+
+      INTEGER*4 GDS__gbak_restore_role_failed        
+
+      PARAMETER (GDS__gbak_restore_role_failed         = 336331002)
+
+      INTEGER*4 GDS__gbak_role_op_missing            
+
+      PARAMETER (GDS__gbak_role_op_missing             = 336331005)
+
+      INTEGER*4 GDS__gbak_page_buffers_missing       
+
+      PARAMETER (GDS__gbak_page_buffers_missing        = 336331010)
+
+      INTEGER*4 GDS__gbak_page_buffers_wrong_param   
+
+      PARAMETER (GDS__gbak_page_buffers_wrong_param    = 336331011)
+
+      INTEGER*4 GDS__gbak_page_buffers_restore       
+
+      PARAMETER (GDS__gbak_page_buffers_restore        = 336331012)
+
+      INTEGER*4 GDS__gbak_inv_size                   
+
+      PARAMETER (GDS__gbak_inv_size                    = 336331014)
+
+      INTEGER*4 GDS__gbak_file_outof_sequence        
+
+      PARAMETER (GDS__gbak_file_outof_sequence         = 336331015)
+
+      INTEGER*4 GDS__gbak_join_file_missing          
+
+      PARAMETER (GDS__gbak_join_file_missing           = 336331016)
+
+      INTEGER*4 GDS__gbak_stdin_not_supptd           
+
+      PARAMETER (GDS__gbak_stdin_not_supptd            = 336331017)
+
+      INTEGER*4 GDS__gbak_stdout_not_supptd          
+
+      PARAMETER (GDS__gbak_stdout_not_supptd           = 336331018)
+
+      INTEGER*4 GDS__gbak_bkup_corrupt               
+
+      PARAMETER (GDS__gbak_bkup_corrupt                = 336331019)
+
+      INTEGER*4 GDS__gbak_unk_db_file_spec           
+
+      PARAMETER (GDS__gbak_unk_db_file_spec            = 336331020)
+
+      INTEGER*4 GDS__gbak_hdr_write_failed           
+
+      PARAMETER (GDS__gbak_hdr_write_failed            = 336331021)
+
+      INTEGER*4 GDS__gbak_disk_space_ex              
+
+      PARAMETER (GDS__gbak_disk_space_ex               = 336331022)
+
+      INTEGER*4 GDS__gbak_size_lt_min                
+
+      PARAMETER (GDS__gbak_size_lt_min                 = 336331023)
+
+      INTEGER*4 GDS__gbak_svc_name_missing           
+
+      PARAMETER (GDS__gbak_svc_name_missing            = 336331025)
+
+      INTEGER*4 GDS__gbak_not_ownr                   
+
+      PARAMETER (GDS__gbak_not_ownr                    = 336331026)
+
+      INTEGER*4 GDS__gbak_mode_req                   
+
+      PARAMETER (GDS__gbak_mode_req                    = 336331031)
+
+      INTEGER*4 GDS__gsec_cant_open_db               
+
+      PARAMETER (GDS__gsec_cant_open_db                = 336723983)
+
+      INTEGER*4 GDS__gsec_switches_error             
+
+      PARAMETER (GDS__gsec_switches_error              = 336723984)
+
+      INTEGER*4 GDS__gsec_no_op_spec                 
+
+      PARAMETER (GDS__gsec_no_op_spec                  = 336723985)
+
+      INTEGER*4 GDS__gsec_no_usr_name                
+
+      PARAMETER (GDS__gsec_no_usr_name                 = 336723986)
+
+      INTEGER*4 GDS__gsec_err_add                    
+
+      PARAMETER (GDS__gsec_err_add                     = 336723987)
+
+      INTEGER*4 GDS__gsec_err_modify                 
+
+      PARAMETER (GDS__gsec_err_modify                  = 336723988)
+
+      INTEGER*4 GDS__gsec_err_find_mod               
+
+      PARAMETER (GDS__gsec_err_find_mod                = 336723989)
+
+      INTEGER*4 GDS__gsec_err_rec_not_found          
+
+      PARAMETER (GDS__gsec_err_rec_not_found           = 336723990)
+
+      INTEGER*4 GDS__gsec_err_delete                 
+
+      PARAMETER (GDS__gsec_err_delete                  = 336723991)
+
+      INTEGER*4 GDS__gsec_err_find_del               
+
+      PARAMETER (GDS__gsec_err_find_del                = 336723992)
+
+      INTEGER*4 GDS__gsec_err_find_disp              
+
+      PARAMETER (GDS__gsec_err_find_disp               = 336723996)
+
+      INTEGER*4 GDS__gsec_inv_param                  
+
+      PARAMETER (GDS__gsec_inv_param                   = 336723997)
+
+      INTEGER*4 GDS__gsec_op_specified               
+
+      PARAMETER (GDS__gsec_op_specified                = 336723998)
+
+      INTEGER*4 GDS__gsec_pw_specified               
+
+      PARAMETER (GDS__gsec_pw_specified                = 336723999)
+
+      INTEGER*4 GDS__gsec_uid_specified              
+
+      PARAMETER (GDS__gsec_uid_specified               = 336724000)
+
+      INTEGER*4 GDS__gsec_gid_specified              
+
+      PARAMETER (GDS__gsec_gid_specified               = 336724001)
+
+      INTEGER*4 GDS__gsec_proj_specified             
+
+      PARAMETER (GDS__gsec_proj_specified              = 336724002)
+
+      INTEGER*4 GDS__gsec_org_specified              
+
+      PARAMETER (GDS__gsec_org_specified               = 336724003)
+
+      INTEGER*4 GDS__gsec_fname_specified            
+
+      PARAMETER (GDS__gsec_fname_specified             = 336724004)
+
+      INTEGER*4 GDS__gsec_mname_specified            
+
+      PARAMETER (GDS__gsec_mname_specified             = 336724005)
+
+      INTEGER*4 GDS__gsec_lname_specified            
+
+      PARAMETER (GDS__gsec_lname_specified             = 336724006)
+
+      INTEGER*4 GDS__gsec_inv_switch                 
+
+      PARAMETER (GDS__gsec_inv_switch                  = 336724008)
+
+      INTEGER*4 GDS__gsec_amb_switch                 
+
+      PARAMETER (GDS__gsec_amb_switch                  = 336724009)
+
+      INTEGER*4 GDS__gsec_no_op_specified            
+
+      PARAMETER (GDS__gsec_no_op_specified             = 336724010)
+
+      INTEGER*4 GDS__gsec_params_not_allowed         
+
+      PARAMETER (GDS__gsec_params_not_allowed          = 336724011)
+
+      INTEGER*4 GDS__gsec_incompat_switch            
+
+      PARAMETER (GDS__gsec_incompat_switch             = 336724012)
+
+      INTEGER*4 GDS__gsec_inv_username               
+
+      PARAMETER (GDS__gsec_inv_username                = 336724044)
+
+      INTEGER*4 GDS__gsec_inv_pw_length              
+
+      PARAMETER (GDS__gsec_inv_pw_length               = 336724045)
+
+      INTEGER*4 GDS__gsec_db_specified               
+
+      PARAMETER (GDS__gsec_db_specified                = 336724046)
+
+      INTEGER*4 GDS__gsec_db_admin_specified         
+
+      PARAMETER (GDS__gsec_db_admin_specified          = 336724047)
+
+      INTEGER*4 GDS__gsec_db_admin_pw_specified      
+
+      PARAMETER (GDS__gsec_db_admin_pw_specified       = 336724048)
+
+      INTEGER*4 GDS__gsec_sql_role_specified         
+
+      PARAMETER (GDS__gsec_sql_role_specified          = 336724049)
+
+      INTEGER*4 GDS__license_no_file                 
+
+      PARAMETER (GDS__license_no_file                  = 336789504)
+
+      INTEGER*4 GDS__license_op_specified            
+
+      PARAMETER (GDS__license_op_specified             = 336789523)
+
+      INTEGER*4 GDS__license_op_missing              
+
+      PARAMETER (GDS__license_op_missing               = 336789524)
+
+      INTEGER*4 GDS__license_inv_switch              
+
+      PARAMETER (GDS__license_inv_switch               = 336789525)
+
+      INTEGER*4 GDS__license_inv_switch_combo        
+
+      PARAMETER (GDS__license_inv_switch_combo         = 336789526)
+
+      INTEGER*4 GDS__license_inv_op_combo            
+
+      PARAMETER (GDS__license_inv_op_combo             = 336789527)
+
+      INTEGER*4 GDS__license_amb_switch              
+
+      PARAMETER (GDS__license_amb_switch               = 336789528)
+
+      INTEGER*4 GDS__license_inv_parameter           
+
+      PARAMETER (GDS__license_inv_parameter            = 336789529)
+
+      INTEGER*4 GDS__license_param_specified         
+
+      PARAMETER (GDS__license_param_specified          = 336789530)
+
+      INTEGER*4 GDS__license_param_req               
+
+      PARAMETER (GDS__license_param_req                = 336789531)
+
+      INTEGER*4 GDS__license_syntx_error             
+
+      PARAMETER (GDS__license_syntx_error              = 336789532)
+
+      INTEGER*4 GDS__license_dup_id                  
+
+      PARAMETER (GDS__license_dup_id                   = 336789534)
+
+      INTEGER*4 GDS__license_inv_id_key              
+
+      PARAMETER (GDS__license_inv_id_key               = 336789535)
+
+      INTEGER*4 GDS__license_err_remove              
+
+      PARAMETER (GDS__license_err_remove               = 336789536)
+
+      INTEGER*4 GDS__license_err_update              
+
+      PARAMETER (GDS__license_err_update               = 336789537)
+
+      INTEGER*4 GDS__license_err_convert             
+
+      PARAMETER (GDS__license_err_convert              = 336789538)
+
+      INTEGER*4 GDS__license_err_unk                 
+
+      PARAMETER (GDS__license_err_unk                  = 336789539)
+
+      INTEGER*4 GDS__license_svc_err_add             
+
+      PARAMETER (GDS__license_svc_err_add              = 336789540)
+
+      INTEGER*4 GDS__license_svc_err_remove          
+
+      PARAMETER (GDS__license_svc_err_remove           = 336789541)
+
+      INTEGER*4 GDS__license_eval_exists             
+
+      PARAMETER (GDS__license_eval_exists              = 336789563)
+
+      INTEGER*4 GDS__gstat_unknown_switch            
+
+      PARAMETER (GDS__gstat_unknown_switch             = 336920577)
+
+      INTEGER*4 GDS__gstat_retry                     
+
+      PARAMETER (GDS__gstat_retry                      = 336920578)
+
+      INTEGER*4 GDS__gstat_wrong_ods                 
+
+      PARAMETER (GDS__gstat_wrong_ods                  = 336920579)
+
+      INTEGER*4 GDS__gstat_unexpected_eof            
+
+      PARAMETER (GDS__gstat_unexpected_eof             = 336920580)
+
+      INTEGER*4 GDS__gstat_open_err                  
+
+      PARAMETER (GDS__gstat_open_err                   = 336920605)
+
+      INTEGER*4 GDS__gstat_read_err                  
+
+      PARAMETER (GDS__gstat_read_err                   = 336920606)
+
+      INTEGER*4 GDS__gstat_sysmemex                  
+
+      PARAMETER (GDS__gstat_sysmemex                   = 336920607)
\ No newline at end of file
diff --git a/src/misc/gds_codes.pas b/src/misc/gds_codes.pas
new file mode 100644
index 0000000000..7c0e16ff59
--- /dev/null
+++ b/src/misc/gds_codes.pas
@@ -0,0 +1,1456 @@
+(*
+
+ * The contents of this file are subject to the Interbase Public
+
+ * License Version 1.0 (the "License"); you may not use this file
+
+ * except in compliance with the License. You may obtain a copy
+
+ * of the License at http://www.Inprise.com/IPL/
+
+ * 
+
+ * Software distributed under the License is distributed on an
+
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+
+ * or implied. See the License for the specific language governing
+
+ * rights and limitations under the License.
+
+ * 
+
+ * The Original Code was created by Inprise Corporation
+
+ * and its predecessors. Portions created by Inprise Corporation are
+
+ * Copyright (C) Inprise Corporation.
+
+ * 
+
+ * Copyright (C) 2000 Inprise Corporation
+
+ * All Rights Reserved.
+
+ * Contributor(s): ______________________________________.
+
+ *)
+
+(*
+
+ * 
+
+ * File generated by codes.e - do not edit!
+
+ * 
+
+ *)
+
+CONST
+
+	gds_facility		= 20;
+
+	gds_err_base		= 335544320;
+
+	gds_err_factor		= 1;
+
+	gds_arg_end		= 0;	(* end of argument list *)
+
+	gds_arg_gds		= 1;	(* generic DSRI status value *)
+
+	gds_arg_string		= 2;	(* string argument *)
+
+	gds_arg_cstring		= 3;	(* count & string argument *)
+
+	gds_arg_number		= 4;	(* numeric argument (long) *)
+
+	gds_arg_interpreted	= 5;	(* interpreted status code (string) *)
+
+	gds_arg_vms		= 6;	(* VAX/VMS status code (long) *)
+
+	gds_arg_unix		= 7;	(* UNIX error code *)
+
+	gds_arg_domain		= 8;	(* Apollo/Domain error code *)
+
+	gds_arg_dos		= 9;	(* MSDOS/OS2 error code *)
+
+
+
+	gds__arith_except                     = 335544321;
+
+	gds__bad_dbkey                        = 335544322;
+
+	gds__bad_db_format                    = 335544323;
+
+	gds__bad_db_handle                    = 335544324;
+
+	gds__bad_dpb_content                  = 335544325;
+
+	gds__bad_dpb_form                     = 335544326;
+
+	gds__bad_req_handle                   = 335544327;
+
+	gds__bad_segstr_handle                = 335544328;
+
+	gds__bad_segstr_id                    = 335544329;
+
+	gds__bad_tpb_content                  = 335544330;
+
+	gds__bad_tpb_form                     = 335544331;
+
+	gds__bad_trans_handle                 = 335544332;
+
+	gds__bug_check                        = 335544333;
+
+	gds__convert_error                    = 335544334;
+
+	gds__db_corrupt                       = 335544335;
+
+	gds__deadlock                         = 335544336;
+
+	gds__excess_trans                     = 335544337;
+
+	gds__from_no_match                    = 335544338;
+
+	gds__infinap                          = 335544339;
+
+	gds__infona                           = 335544340;
+
+	gds__infunk                           = 335544341;
+
+	gds__integ_fail                       = 335544342;
+
+	gds__invalid_blr                      = 335544343;
+
+	gds__io_error                         = 335544344;
+
+	gds__lock_conflict                    = 335544345;
+
+	gds__metadata_corrupt                 = 335544346;
+
+	gds__not_valid                        = 335544347;
+
+	gds__no_cur_rec                       = 335544348;
+
+	gds__no_dup                           = 335544349;
+
+	gds__no_finish                        = 335544350;
+
+	gds__no_meta_update                   = 335544351;
+
+	gds__no_priv                          = 335544352;
+
+	gds__no_recon                         = 335544353;
+
+	gds__no_record                        = 335544354;
+
+	gds__no_segstr_close                  = 335544355;
+
+	gds__obsolete_metadata                = 335544356;
+
+	gds__open_trans                       = 335544357;
+
+	gds__port_len                         = 335544358;
+
+	gds__read_only_field                  = 335544359;
+
+	gds__read_only_rel                    = 335544360;
+
+	gds__read_only_trans                  = 335544361;
+
+	gds__read_only_view                   = 335544362;
+
+	gds__req_no_trans                     = 335544363;
+
+	gds__req_sync                         = 335544364;
+
+	gds__req_wrong_db                     = 335544365;
+
+	gds__segment                          = 335544366;
+
+	gds__segstr_eof                       = 335544367;
+
+	gds__segstr_no_op                     = 335544368;
+
+	gds__segstr_no_read                   = 335544369;
+
+	gds__segstr_no_trans                  = 335544370;
+
+	gds__segstr_no_write                  = 335544371;
+
+	gds__segstr_wrong_db                  = 335544372;
+
+	gds__sys_request                      = 335544373;
+
+	gds__stream_eof                       = 335544374;
+
+	gds__unavailable                      = 335544375;
+
+	gds__unres_rel                        = 335544376;
+
+	gds__uns_ext                          = 335544377;
+
+	gds__wish_list                        = 335544378;
+
+	gds__wrong_ods                        = 335544379;
+
+	gds__wronumarg                        = 335544380;
+
+	gds__imp_exc                          = 335544381;
+
+	gds__random                           = 335544382;
+
+	gds__fatal_conflict                   = 335544383;
+
+	gds__badblk                           = 335544384;
+
+	gds__invpoolcl                        = 335544385;
+
+	gds__nopoolids                        = 335544386;
+
+	gds__relbadblk                        = 335544387;
+
+	gds__blktoobig                        = 335544388;
+
+	gds__bufexh                           = 335544389;
+
+	gds__syntaxerr                        = 335544390;
+
+	gds__bufinuse                         = 335544391;
+
+	gds__bdbincon                         = 335544392;
+
+	gds__reqinuse                         = 335544393;
+
+	gds__badodsver                        = 335544394;
+
+	gds__relnotdef                        = 335544395;
+
+	gds__fldnotdef                        = 335544396;
+
+	gds__dirtypage                        = 335544397;
+
+	gds__waifortra                        = 335544398;
+
+	gds__doubleloc                        = 335544399;
+
+	gds__nodnotfnd                        = 335544400;
+
+	gds__dupnodfnd                        = 335544401;
+
+	gds__locnotmar                        = 335544402;
+
+	gds__badpagtyp                        = 335544403;
+
+	gds__corrupt                          = 335544404;
+
+	gds__badpage                          = 335544405;
+
+	gds__badindex                         = 335544406;
+
+	gds__dbbnotzer                        = 335544407;
+
+	gds__tranotzer                        = 335544408;
+
+	gds__trareqmis                        = 335544409;
+
+	gds__badhndcnt                        = 335544410;
+
+	gds__wrotpbver                        = 335544411;
+
+	gds__wroblrver                        = 335544412;
+
+	gds__wrodpbver                        = 335544413;
+
+	gds__blobnotsup                       = 335544414;
+
+	gds__badrelation                      = 335544415;
+
+	gds__nodetach                         = 335544416;
+
+	gds__notremote                        = 335544417;
+
+	gds__trainlim                         = 335544418;
+
+	gds__notinlim                         = 335544419;
+
+	gds__traoutsta                        = 335544420;
+
+	gds__connect_reject                   = 335544421;
+
+	gds__dbfile                           = 335544422;
+
+	gds__orphan                           = 335544423;
+
+	gds__no_lock_mgr                      = 335544424;
+
+	gds__ctxinuse                         = 335544425;
+
+	gds__ctxnotdef                        = 335544426;
+
+	gds__datnotsup                        = 335544427;
+
+	gds__badmsgnum                        = 335544428;
+
+	gds__badparnum                        = 335544429;
+
+	gds__virmemexh                        = 335544430;
+
+	gds__blocking_signal                  = 335544431;
+
+	gds__lockmanerr                       = 335544432;
+
+	gds__journerr                         = 335544433;
+
+	gds__keytoobig                        = 335544434;
+
+	gds__nullsegkey                       = 335544435;
+
+	gds__sqlerr                           = 335544436;
+
+	gds__wrodynver                        = 335544437;
+
+	gds__funnotdef                        = 335544438;
+
+	gds__funmismat                        = 335544439;
+
+	gds__bad_msg_vec                      = 335544440;
+
+	gds__bad_detach                       = 335544441;
+
+	gds__noargacc_read                    = 335544442;
+
+	gds__noargacc_write                   = 335544443;
+
+	gds__read_only                        = 335544444;
+
+	gds__ext_err                          = 335544445;
+
+	gds__non_updatable                    = 335544446;
+
+	gds__no_rollback                      = 335544447;
+
+	gds__bad_sec_info                     = 335544448;
+
+	gds__invalid_sec_info                 = 335544449;
+
+	gds__misc_interpreted                 = 335544450;
+
+	gds__update_conflict                  = 335544451;
+
+	gds__unlicensed                       = 335544452;
+
+	gds__obj_in_use                       = 335544453;
+
+	gds__nofilter                         = 335544454;
+
+	gds__shadow_accessed                  = 335544455;
+
+	gds__invalid_sdl                      = 335544456;
+
+	gds__out_of_bounds                    = 335544457;
+
+	gds__invalid_dimension                = 335544458;
+
+	gds__rec_in_limbo                     = 335544459;
+
+	gds__shadow_missing                   = 335544460;
+
+	gds__cant_validate                    = 335544461;
+
+	gds__cant_start_journal               = 335544462;
+
+	gds__gennotdef                        = 335544463;
+
+	gds__cant_start_logging               = 335544464;
+
+	gds__bad_segstr_type                  = 335544465;
+
+	gds__foreign_key                      = 335544466;
+
+	gds__high_minor                       = 335544467;
+
+	gds__tra_state                        = 335544468;
+
+	gds__trans_invalid                    = 335544469;
+
+	gds__buf_invalid                      = 335544470;
+
+	gds__indexnotdefined                  = 335544471;
+
+	gds__login                            = 335544472;
+
+	gds__invalid_bookmark                 = 335544473;
+
+	gds__bad_lock_level                   = 335544474;
+
+	gds__relation_lock                    = 335544475;
+
+	gds__record_lock                      = 335544476;
+
+	gds__max_idx                          = 335544477;
+
+	gds__jrn_enable                       = 335544478;
+
+	gds__old_failure                      = 335544479;
+
+	gds__old_in_progress                  = 335544480;
+
+	gds__old_no_space                     = 335544481;
+
+	gds__no_wal_no_jrn                    = 335544482;
+
+	gds__num_old_files                    = 335544483;
+
+	gds__wal_file_open                    = 335544484;
+
+	gds__bad_stmt_handle                  = 335544485;
+
+	gds__wal_failure                      = 335544486;
+
+	gds__walw_err                         = 335544487;
+
+	gds__logh_small                       = 335544488;
+
+	gds__logh_inv_version                 = 335544489;
+
+	gds__logh_open_flag                   = 335544490;
+
+	gds__logh_open_flag2                  = 335544491;
+
+	gds__logh_diff_dbname                 = 335544492;
+
+	gds__logf_unexpected_eof              = 335544493;
+
+	gds__logr_incomplete                  = 335544494;
+
+	gds__logr_header_small                = 335544495;
+
+	gds__logb_small                       = 335544496;
+
+	gds__wal_illegal_attach               = 335544497;
+
+	gds__wal_invalid_wpb                  = 335544498;
+
+	gds__wal_err_rollover                 = 335544499;
+
+	gds__no_wal                           = 335544500;
+
+	gds__drop_wal                         = 335544501;
+
+	gds__stream_not_defined               = 335544502;
+
+	gds__wal_subsys_error                 = 335544503;
+
+	gds__wal_subsys_corrupt               = 335544504;
+
+	gds__no_archive                       = 335544505;
+
+	gds__shutinprog                       = 335544506;
+
+	gds__range_in_use                     = 335544507;
+
+	gds__range_not_found                  = 335544508;
+
+	gds__charset_not_found                = 335544509;
+
+	gds__lock_timeout                     = 335544510;
+
+	gds__prcnotdef                        = 335544511;
+
+	gds__prcmismat                        = 335544512;
+
+	gds__wal_bugcheck                     = 335544513;
+
+	gds__wal_cant_expand                  = 335544514;
+
+	gds__codnotdef                        = 335544515;
+
+	gds__xcpnotdef                        = 335544516;
+
+	gds__except                           = 335544517;
+
+	gds__cache_restart                    = 335544518;
+
+	gds__bad_lock_handle                  = 335544519;
+
+	gds__jrn_present                      = 335544520;
+
+	gds__wal_err_rollover2                = 335544521;
+
+	gds__wal_err_logwrite                 = 335544522;
+
+	gds__wal_err_jrn_comm                 = 335544523;
+
+	gds__wal_err_expansion                = 335544524;
+
+	gds__wal_err_setup                    = 335544525;
+
+	gds__wal_err_ww_sync                  = 335544526;
+
+	gds__wal_err_ww_start                 = 335544527;
+
+	gds__shutdown                         = 335544528;
+
+	gds__existing_priv_mod                = 335544529;
+
+	gds__primary_key_ref                  = 335544530;
+
+	gds__primary_key_notnull              = 335544531;
+
+	gds__ref_cnstrnt_notfound             = 335544532;
+
+	gds__foreign_key_notfound             = 335544533;
+
+	gds__ref_cnstrnt_update               = 335544534;
+
+	gds__check_cnstrnt_update             = 335544535;
+
+	gds__check_cnstrnt_del                = 335544536;
+
+	gds__integ_index_seg_del              = 335544537;
+
+	gds__integ_index_seg_mod              = 335544538;
+
+	gds__integ_index_del                  = 335544539;
+
+	gds__integ_index_mod                  = 335544540;
+
+	gds__check_trig_del                   = 335544541;
+
+	gds__check_trig_update                = 335544542;
+
+	gds__cnstrnt_fld_del                  = 335544543;
+
+	gds__cnstrnt_fld_rename               = 335544544;
+
+	gds__rel_cnstrnt_update               = 335544545;
+
+	gds__constaint_on_view                = 335544546;
+
+	gds__invld_cnstrnt_type               = 335544547;
+
+	gds__primary_key_exists               = 335544548;
+
+	gds__systrig_update                   = 335544549;
+
+	gds__not_rel_owner                    = 335544550;
+
+	gds__grant_obj_notfound               = 335544551;
+
+	gds__grant_fld_notfound               = 335544552;
+
+	gds__grant_nopriv                     = 335544553;
+
+	gds__nonsql_security_rel              = 335544554;
+
+	gds__nonsql_security_fld              = 335544555;
+
+	gds__wal_cache_err                    = 335544556;
+
+	gds__shutfail                         = 335544557;
+
+	gds__check_constraint                 = 335544558;
+
+	gds__bad_svc_handle                   = 335544559;
+
+	gds__shutwarn                         = 335544560;
+
+	gds__wrospbver                        = 335544561;
+
+	gds__bad_spb_form                     = 335544562;
+
+	gds__svcnotdef                        = 335544563;
+
+	gds__no_jrn                           = 335544564;
+
+	gds__transliteration_failed           = 335544565;
+
+	gds__start_cm_for_wal                 = 335544566;
+
+	gds__wal_ovflow_log_required          = 335544567;
+
+	gds__text_subtype                     = 335544568;
+
+	gds__dsql_error                       = 335544569;
+
+	gds__dsql_command_err                 = 335544570;
+
+	gds__dsql_constant_err                = 335544571;
+
+	gds__dsql_cursor_err                  = 335544572;
+
+	gds__dsql_datatype_err                = 335544573;
+
+	gds__dsql_decl_err                    = 335544574;
+
+	gds__dsql_cursor_update_err           = 335544575;
+
+	gds__dsql_cursor_open_err             = 335544576;
+
+	gds__dsql_cursor_close_err            = 335544577;
+
+	gds__dsql_field_err                   = 335544578;
+
+	gds__dsql_internal_err                = 335544579;
+
+	gds__dsql_relation_err                = 335544580;
+
+	gds__dsql_procedure_err               = 335544581;
+
+	gds__dsql_request_err                 = 335544582;
+
+	gds__dsql_sqlda_err                   = 335544583;
+
+	gds__dsql_var_count_err               = 335544584;
+
+	gds__dsql_stmt_handle                 = 335544585;
+
+	gds__dsql_function_err                = 335544586;
+
+	gds__dsql_blob_err                    = 335544587;
+
+	gds__collation_not_found              = 335544588;
+
+	gds__collation_not_for_charset        = 335544589;
+
+	gds__dsql_dup_option                  = 335544590;
+
+	gds__dsql_tran_err                    = 335544591;
+
+	gds__dsql_invalid_array               = 335544592;
+
+	gds__dsql_max_arr_dim_exceeded        = 335544593;
+
+	gds__dsql_arr_range_error             = 335544594;
+
+	gds__dsql_trigger_err                 = 335544595;
+
+	gds__dsql_subselect_err               = 335544596;
+
+	gds__dsql_crdb_prepare_err            = 335544597;
+
+	gds__specify_field_err                = 335544598;
+
+	gds__num_field_err                    = 335544599;
+
+	gds__col_name_err                     = 335544600;
+
+	gds__where_err                        = 335544601;
+
+	gds__table_view_err                   = 335544602;
+
+	gds__distinct_err                     = 335544603;
+
+	gds__key_field_count_err              = 335544604;
+
+	gds__subquery_err                     = 335544605;
+
+	gds__expression_eval_err              = 335544606;
+
+	gds__node_err                         = 335544607;
+
+	gds__command_end_err                  = 335544608;
+
+	gds__index_name                       = 335544609;
+
+	gds__exception_name                   = 335544610;
+
+	gds__field_name                       = 335544611;
+
+	gds__token_err                        = 335544612;
+
+	gds__union_err                        = 335544613;
+
+	gds__dsql_construct_err               = 335544614;
+
+	gds__field_aggregate_err              = 335544615;
+
+	gds__field_ref_err                    = 335544616;
+
+	gds__order_by_err                     = 335544617;
+
+	gds__return_mode_err                  = 335544618;
+
+	gds__extern_func_err                  = 335544619;
+
+	gds__alias_conflict_err               = 335544620;
+
+	gds__procedure_conflict_error         = 335544621;
+
+	gds__relation_conflict_err            = 335544622;
+
+	gds__dsql_domain_err                  = 335544623;
+
+	gds__idx_seg_err                      = 335544624;
+
+	gds__node_name_err                    = 335544625;
+
+	gds__table_name                       = 335544626;
+
+	gds__proc_name                        = 335544627;
+
+	gds__idx_create_err                   = 335544628;
+
+	gds__wal_shadow_err                   = 335544629;
+
+	gds__dependency                       = 335544630;
+
+	gds__idx_key_err                      = 335544631;
+
+	gds__dsql_file_length_err             = 335544632;
+
+	gds__dsql_shadow_number_err           = 335544633;
+
+	gds__dsql_token_unk_err               = 335544634;
+
+	gds__dsql_no_relation_alias           = 335544635;
+
+	gds__indexname                        = 335544636;
+
+	gds__no_stream_plan                   = 335544637;
+
+	gds__stream_twice                     = 335544638;
+
+	gds__stream_not_found                 = 335544639;
+
+	gds__collation_requires_text          = 335544640;
+
+	gds__dsql_domain_not_found            = 335544641;
+
+	gds__index_unused                     = 335544642;
+
+	gds__dsql_self_join                   = 335544643;
+
+	gds__stream_bof                       = 335544644;
+
+	gds__stream_crack                     = 335544645;
+
+	gds__db_or_file_exists                = 335544646;
+
+	gds__invalid_operator                 = 335544647;
+
+	gds__conn_lost                        = 335544648;
+
+	gds__bad_checksum                     = 335544649;
+
+	gds__page_type_err                    = 335544650;
+
+	gds__ext_readonly_err                 = 335544651;
+
+	gds__sing_select_err                  = 335544652;
+
+	gds__psw_attach                       = 335544653;
+
+	gds__psw_start_trans                  = 335544654;
+
+	gds__invalid_direction                = 335544655;
+
+	gds__dsql_var_conflict                = 335544656;
+
+	gds__dsql_no_blob_array               = 335544657;
+
+	gds__dsql_base_table                  = 335544658;
+
+	gds__duplicate_base_table             = 335544659;
+
+	gds__view_alias                       = 335544660;
+
+	gds__index_root_page_full             = 335544661;
+
+	gds__dsql_blob_type_unknown           = 335544662;
+
+	gds__req_max_clones_exceeded          = 335544663;
+
+	gds__dsql_duplicate_spec              = 335544664;
+
+	gds__unique_key_violation             = 335544665;
+
+	gds__srvr_version_too_old             = 335544666;
+
+	gds__drdb_completed_with_errs         = 335544667;
+
+	gds__dsql_procedure_use_err           = 335544668;
+
+	gds__dsql_count_mismatch              = 335544669;
+
+	gds__blob_idx_err                     = 335544670;
+
+	gds__array_idx_err                    = 335544671;
+
+	gds__key_field_err                    = 335544672;
+
+	gds__no_delete                        = 335544673;
+
+	gds__del_last_field                   = 335544674;
+
+	gds__sort_err                         = 335544675;
+
+	gds__sort_mem_err                     = 335544676;
+
+	gds__version_err                      = 335544677;
+
+	gds__inval_key_posn                   = 335544678;
+
+	gds__no_segments_err                  = 335544679;
+
+	gds__crrp_data_err                    = 335544680;
+
+	gds__rec_size_err                     = 335544681;
+
+	gds__dsql_field_ref                   = 335544682;
+
+	gds__req_depth_exceeded               = 335544683;
+
+	gds__no_field_access                  = 335544684;
+
+	gds__no_dbkey                         = 335544685;
+
+	gds__jrn_format_err                   = 335544686;
+
+	gds__jrn_file_full                    = 335544687;
+
+	gds__dsql_open_cursor_request         = 335544688;
+
+	gds__ib_error                         = 335544689;
+
+	gds__cache_redef                      = 335544690;
+
+	gds__cache_too_small                  = 335544691;
+
+	gds__log_redef                        = 335544692;
+
+	gds__log_too_small                    = 335544693;
+
+	gds__partition_too_small              = 335544694;
+
+	gds__partition_not_supp               = 335544695;
+
+	gds__log_length_spec                  = 335544696;
+
+	gds__precision_err                    = 335544697;
+
+	gds__scale_nogt                       = 335544698;
+
+	gds__expec_short                      = 335544699;
+
+	gds__expec_long                       = 335544700;
+
+	gds__expec_ushort                     = 335544701;
+
+	gds__like_escape_invalid              = 335544702;
+
+	gds__svcnoexe                         = 335544703;
+
+	gds__net_lookup_err                   = 335544704;
+
+	gds__service_unknown                  = 335544705;
+
+	gds__host_unknown                     = 335544706;
+
+	gds__grant_nopriv_on_base             = 335544707;
+
+	gds__dyn_fld_ambiguous                = 335544708;
+
+	gds__dsql_agg_ref_err                 = 335544709;
+
+	gds__complex_view                     = 335544710;
+
+	gds__unprepared_stmt                  = 335544711;
+
+	gds__expec_positive                   = 335544712;
+
+	gds__dsql_sqlda_value_err             = 335544713;
+
+	gds__invalid_array_id                 = 335544714;
+
+	gds__extfile_uns_op                   = 335544715;
+
+	gds__svc_in_use                       = 335544716;
+
+	gds__err_stack_limit                  = 335544717;
+
+	gds__invalid_key                      = 335544718;
+
+	gds__net_init_error                   = 335544719;
+
+	gds__loadlib_failure                  = 335544720;
+
+	gds__network_error                    = 335544721;
+
+	gds__net_connect_err                  = 335544722;
+
+	gds__net_connect_listen_err           = 335544723;
+
+	gds__net_event_connect_err            = 335544724;
+
+	gds__net_event_listen_err             = 335544725;
+
+	gds__net_read_err                     = 335544726;
+
+	gds__net_write_err                    = 335544727;
+
+	gds__integ_index_deactivate           = 335544728;
+
+	gds__integ_deactivate_primary         = 335544729;
+
+	gds__cse_not_supported                = 335544730;
+
+	gds__tra_must_sweep                   = 335544731;
+
+	gds__unsupported_network_drive        = 335544732;
+
+	gds__io_create_err                    = 335544733;
+
+	gds__io_open_err                      = 335544734;
+
+	gds__io_close_err                     = 335544735;
+
+	gds__io_read_err                      = 335544736;
+
+	gds__io_write_err                     = 335544737;
+
+	gds__io_delete_err                    = 335544738;
+
+	gds__io_access_err                    = 335544739;
+
+	gds__udf_exception                    = 335544740;
+
+	gds__lost_db_connection               = 335544741;
+
+	gds__no_write_user_priv               = 335544742;
+
+	gds__token_too_long                   = 335544743;
+
+	gds__max_att_exceeded                 = 335544744;
+
+	gds__login_same_as_role_name          = 335544745;
+
+	gds__reftable_requires_pk             = 335544746;
+
+	gds__usrname_too_long                 = 335544747;
+
+	gds__password_too_long                = 335544748;
+
+	gds__usrname_required                 = 335544749;
+
+	gds__password_required                = 335544750;
+
+	gds__bad_protocol                     = 335544751;
+
+	gds__dup_usrname_found                = 335544752;
+
+	gds__usrname_not_found                = 335544753;
+
+	gds__error_adding_sec_record          = 335544754;
+
+	gds__error_modifying_sec_record       = 335544755;
+
+	gds__error_deleting_sec_record        = 335544756;
+
+	gds__error_updating_sec_db            = 335544757;
+
+	gds__sort_rec_size_err                = 335544758;
+
+	gds__bad_default_value                = 335544759;
+
+	gds__invalid_clause                   = 335544760;
+
+	gds__too_many_handles                 = 335544761;
+
+	gds__optimizer_blk_exc                = 335544762;
+
+	gds__invalid_string_constant          = 335544763;
+
+	gds__transitional_date                = 335544764;
+
+	gds__read_only_database               = 335544765;
+
+	gds__must_be_dialect_2_and_up         = 335544766;
+
+	gds__blob_filter_exception            = 335544767;
+
+	gds__exception_access_violation       = 335544768;
+
+	gds__exception_datatype_missalignment = 335544769;
+
+	gds__exception_array_bounds_exceeded  = 335544770;
+
+	gds__exception_float_denormal_operand = 335544771;
+
+	gds__exception_float_divide_by_zero   = 335544772;
+
+	gds__exception_float_inexact_result   = 335544773;
+
+	gds__exception_float_invalid_operand  = 335544774;
+
+	gds__exception_float_overflow         = 335544775;
+
+	gds__exception_float_stack_check      = 335544776;
+
+	gds__exception_float_underflow        = 335544777;
+
+	gds__exception_integer_divide_by_zero = 335544778;
+
+	gds__exception_integer_overflow       = 335544779;
+
+	gds__exception_unknown                = 335544780;
+
+	gds__exception_stack_overflow         = 335544781;
+
+	gds__exception_sigsegv                = 335544782;
+
+	gds__exception_sigill                 = 335544783;
+
+	gds__exception_sigbus                 = 335544784;
+
+	gds__exception_sigfpe                 = 335544785;
+
+	gds__ext_file_delete                  = 335544786;
+
+	gds__ext_file_modify                  = 335544787;
+
+	gds__adm_task_denied                  = 335544788;
+
+	gds__extract_input_mismatch           = 335544789;
+
+	gds__insufficient_svc_privileges      = 335544790;
+
+	gds__file_in_use                      = 335544791;
+
+	gds__service_att_err                  = 335544792;
+
+	gds__ddl_not_allowed_by_db_sql_dial   = 335544793;
+
+	gds__cancelled                        = 335544794;
+
+	gds__unexp_spb_form                   = 335544795;
+
+	gds__sql_dialect_datatype_unsupport   = 335544796;
+
+	gds__svcnouser                        = 335544797;
+
+	gds__depend_on_uncommitted_rel        = 335544798;
+
+	gds__svc_name_missing                 = 335544799;
+
+	gds__too_many_contexts                = 335544800;
+
+	gds__datype_notsup                    = 335544801;
+
+	gds__dialect_reset_warning            = 335544802;
+
+	gds__dialect_not_changed              = 335544803;
+
+	gds__database_create_failed           = 335544804;
+
+	gds__inv_dialect_specified            = 335544805;
+
+	gds__valid_db_dialects                = 335544806;
+
+	gds__sqlwarn                          = 335544807;
+
+	gds__dtype_renamed                    = 335544808;
+
+	gds__extern_func_dir_error            = 335544809;
+
+	gds__date_range_exceeded              = 335544810;
+
+	gds__inv_client_dialect_specified     = 335544811;
+
+	gds__valid_client_dialects            = 335544812;
+
+	gds__optimizer_between_err            = 335544813;
+
+	gds__service_not_supported            = 335544814;
+
+	gds__gfix_db_name                     = 335740929;
+
+	gds__gfix_invalid_sw                  = 335740930;
+
+	gds__gfix_incmp_sw                    = 335740932;
+
+	gds__gfix_replay_req                  = 335740933;
+
+	gds__gfix_pgbuf_req                   = 335740934;
+
+	gds__gfix_val_req                     = 335740935;
+
+	gds__gfix_pval_req                    = 335740936;
+
+	gds__gfix_trn_req                     = 335740937;
+
+	gds__gfix_full_req                    = 335740940;
+
+	gds__gfix_usrname_req                 = 335740941;
+
+	gds__gfix_pass_req                    = 335740942;
+
+	gds__gfix_subs_name                   = 335740943;
+
+	gds__gfix_wal_req                     = 335740944;
+
+	gds__gfix_sec_req                     = 335740945;
+
+	gds__gfix_nval_req                    = 335740946;
+
+	gds__gfix_type_shut                   = 335740947;
+
+	gds__gfix_retry                       = 335740948;
+
+	gds__gfix_retry_db                    = 335740951;
+
+	gds__gfix_exceed_max                  = 335740991;
+
+	gds__gfix_corrupt_pool                = 335740992;
+
+	gds__gfix_mem_exhausted               = 335740993;
+
+	gds__gfix_bad_pool                    = 335740994;
+
+	gds__gfix_trn_not_valid               = 335740995;
+
+	gds__gfix_unexp_eoi                   = 335741012;
+
+	gds__gfix_recon_fail                  = 335741018;
+
+	gds__gfix_trn_unknown                 = 335741036;
+
+	gds__gfix_mode_req                    = 335741038;
+
+	gds__gfix_opt_SQL_dialect             = 335741039;
+
+	gds__dsql_dbkey_from_non_table        = 336003074;
+
+	gds__dsql_transitional_numeric        = 336003075;
+
+	gds__dsql_dialect_warning_expr        = 336003076;
+
+	gds__sql_db_dialect_dtype_unsupport   = 336003077;
+
+	gds__isc_sql_dialect_conflict_num     = 336003079;
+
+	gds__dsql_warning_number_ambiguous    = 336003080;
+
+	gds__dsql_warning_number_ambiguous1   = 336003081;
+
+	gds__dsql_warn_precision_ambiguous    = 336003082;
+
+	gds__dsql_warn_precision_ambiguous1   = 336003083;
+
+	gds__dsql_warn_precision_ambiguous2   = 336003084;
+
+	gds__dyn_role_does_not_exist          = 336068796;
+
+	gds__dyn_no_grant_admin_opt           = 336068797;
+
+	gds__dyn_user_not_role_member         = 336068798;
+
+	gds__dyn_delete_role_failed           = 336068799;
+
+	gds__dyn_grant_role_to_user           = 336068800;
+
+	gds__dyn_inv_sql_role_name            = 336068801;
+
+	gds__dyn_dup_sql_role                 = 336068802;
+
+	gds__dyn_kywd_spec_for_role           = 336068803;
+
+	gds__dyn_roles_not_supported          = 336068804;
+
+	gds__dyn_domain_name_exists           = 336068812;
+
+	gds__dyn_field_name_exists            = 336068813;
+
+	gds__dyn_dependency_exists            = 336068814;
+
+	gds__dyn_dtype_invalid                = 336068815;
+
+	gds__dyn_char_fld_too_small           = 336068816;
+
+	gds__dyn_invalid_dtype_conversion     = 336068817;
+
+	gds__dyn_dtype_conv_invalid           = 336068818;
+
+	gds__gbak_unknown_switch              = 336330753;
+
+	gds__gbak_page_size_missing           = 336330754;
+
+	gds__gbak_page_size_toobig            = 336330755;
+
+	gds__gbak_redir_ouput_missing         = 336330756;
+
+	gds__gbak_switches_conflict           = 336330757;
+
+	gds__gbak_unknown_device              = 336330758;
+
+	gds__gbak_no_protection               = 336330759;
+
+	gds__gbak_page_size_not_allowed       = 336330760;
+
+	gds__gbak_multi_source_dest           = 336330761;
+
+	gds__gbak_filename_missing            = 336330762;
+
+	gds__gbak_dup_inout_names             = 336330763;
+
+	gds__gbak_inv_page_size               = 336330764;
+
+	gds__gbak_db_specified                = 336330765;
+
+	gds__gbak_db_exists                   = 336330766;
+
+	gds__gbak_unk_device                  = 336330767;
+
+	gds__gbak_blob_info_failed            = 336330772;
+
+	gds__gbak_unk_blob_item               = 336330773;
+
+	gds__gbak_get_seg_failed              = 336330774;
+
+	gds__gbak_close_blob_failed           = 336330775;
+
+	gds__gbak_open_blob_failed            = 336330776;
+
+	gds__gbak_put_blr_gen_id_failed       = 336330777;
+
+	gds__gbak_unk_type                    = 336330778;
+
+	gds__gbak_comp_req_failed             = 336330779;
+
+	gds__gbak_start_req_failed            = 336330780;
+
+	gds__gbak_rec_failed                  = 336330781;
+
+	gds__gbak_rel_req_failed              = 336330782;
+
+	gds__gbak_db_info_failed              = 336330783;
+
+	gds__gbak_no_db_desc                  = 336330784;
+
+	gds__gbak_db_create_failed            = 336330785;
+
+	gds__gbak_decomp_len_error            = 336330786;
+
+	gds__gbak_tbl_missing                 = 336330787;
+
+	gds__gbak_blob_col_missing            = 336330788;
+
+	gds__gbak_create_blob_failed          = 336330789;
+
+	gds__gbak_put_seg_failed              = 336330790;
+
+	gds__gbak_rec_len_exp                 = 336330791;
+
+	gds__gbak_inv_rec_len                 = 336330792;
+
+	gds__gbak_exp_data_type               = 336330793;
+
+	gds__gbak_gen_id_failed               = 336330794;
+
+	gds__gbak_unk_rec_type                = 336330795;
+
+	gds__gbak_inv_bkup_ver                = 336330796;
+
+	gds__gbak_missing_bkup_desc           = 336330797;
+
+	gds__gbak_string_trunc                = 336330798;
+
+	gds__gbak_cant_rest_record            = 336330799;
+
+	gds__gbak_send_failed                 = 336330800;
+
+	gds__gbak_no_tbl_name                 = 336330801;
+
+	gds__gbak_unexp_eof                   = 336330802;
+
+	gds__gbak_db_format_too_old           = 336330803;
+
+	gds__gbak_inv_array_dim               = 336330804;
+
+	gds__gbak_xdr_len_expected            = 336330807;
+
+	gds__gbak_open_bkup_error             = 336330817;
+
+	gds__gbak_open_error                  = 336330818;
+
+	gds__gbak_missing_block_fac           = 336330934;
+
+	gds__gbak_inv_block_fac               = 336330935;
+
+	gds__gbak_block_fac_specified         = 336330936;
+
+	gds__gbak_missing_username            = 336330940;
+
+	gds__gbak_missing_password            = 336330941;
+
+	gds__gbak_missing_skipped_bytes       = 336330952;
+
+	gds__gbak_inv_skipped_bytes           = 336330953;
+
+	gds__gbak_err_restore_charset         = 336330965;
+
+	gds__gbak_err_restore_collation       = 336330967;
+
+	gds__gbak_read_error                  = 336330972;
+
+	gds__gbak_write_error                 = 336330973;
+
+	gds__gbak_db_in_use                   = 336330985;
+
+	gds__gbak_sysmemex                    = 336330990;
+
+	gds__gbak_restore_role_failed         = 336331002;
+
+	gds__gbak_role_op_missing             = 336331005;
+
+	gds__gbak_page_buffers_missing        = 336331010;
+
+	gds__gbak_page_buffers_wrong_param    = 336331011;
+
+	gds__gbak_page_buffers_restore        = 336331012;
+
+	gds__gbak_inv_size                    = 336331014;
+
+	gds__gbak_file_outof_sequence         = 336331015;
+
+	gds__gbak_join_file_missing           = 336331016;
+
+	gds__gbak_stdin_not_supptd            = 336331017;
+
+	gds__gbak_stdout_not_supptd           = 336331018;
+
+	gds__gbak_bkup_corrupt                = 336331019;
+
+	gds__gbak_unk_db_file_spec            = 336331020;
+
+	gds__gbak_hdr_write_failed            = 336331021;
+
+	gds__gbak_disk_space_ex               = 336331022;
+
+	gds__gbak_size_lt_min                 = 336331023;
+
+	gds__gbak_svc_name_missing            = 336331025;
+
+	gds__gbak_not_ownr                    = 336331026;
+
+	gds__gbak_mode_req                    = 336331031;
+
+	gds__gsec_cant_open_db                = 336723983;
+
+	gds__gsec_switches_error              = 336723984;
+
+	gds__gsec_no_op_spec                  = 336723985;
+
+	gds__gsec_no_usr_name                 = 336723986;
+
+	gds__gsec_err_add                     = 336723987;
+
+	gds__gsec_err_modify                  = 336723988;
+
+	gds__gsec_err_find_mod                = 336723989;
+
+	gds__gsec_err_rec_not_found           = 336723990;
+
+	gds__gsec_err_delete                  = 336723991;
+
+	gds__gsec_err_find_del                = 336723992;
+
+	gds__gsec_err_find_disp               = 336723996;
+
+	gds__gsec_inv_param                   = 336723997;
+
+	gds__gsec_op_specified                = 336723998;
+
+	gds__gsec_pw_specified                = 336723999;
+
+	gds__gsec_uid_specified               = 336724000;
+
+	gds__gsec_gid_specified               = 336724001;
+
+	gds__gsec_proj_specified              = 336724002;
+
+	gds__gsec_org_specified               = 336724003;
+
+	gds__gsec_fname_specified             = 336724004;
+
+	gds__gsec_mname_specified             = 336724005;
+
+	gds__gsec_lname_specified             = 336724006;
+
+	gds__gsec_inv_switch                  = 336724008;
+
+	gds__gsec_amb_switch                  = 336724009;
+
+	gds__gsec_no_op_specified             = 336724010;
+
+	gds__gsec_params_not_allowed          = 336724011;
+
+	gds__gsec_incompat_switch             = 336724012;
+
+	gds__gsec_inv_username                = 336724044;
+
+	gds__gsec_inv_pw_length               = 336724045;
+
+	gds__gsec_db_specified                = 336724046;
+
+	gds__gsec_db_admin_specified          = 336724047;
+
+	gds__gsec_db_admin_pw_specified       = 336724048;
+
+	gds__gsec_sql_role_specified          = 336724049;
+
+	gds__license_no_file                  = 336789504;
+
+	gds__license_op_specified             = 336789523;
+
+	gds__license_op_missing               = 336789524;
+
+	gds__license_inv_switch               = 336789525;
+
+	gds__license_inv_switch_combo         = 336789526;
+
+	gds__license_inv_op_combo             = 336789527;
+
+	gds__license_amb_switch               = 336789528;
+
+	gds__license_inv_parameter            = 336789529;
+
+	gds__license_param_specified          = 336789530;
+
+	gds__license_param_req                = 336789531;
+
+	gds__license_syntx_error              = 336789532;
+
+	gds__license_dup_id                   = 336789534;
+
+	gds__license_inv_id_key               = 336789535;
+
+	gds__license_err_remove               = 336789536;
+
+	gds__license_err_update               = 336789537;
+
+	gds__license_err_convert              = 336789538;
+
+	gds__license_err_unk                  = 336789539;
+
+	gds__license_svc_err_add              = 336789540;
+
+	gds__license_svc_err_remove           = 336789541;
+
+	gds__license_eval_exists              = 336789563;
+
+	gds__gstat_unknown_switch             = 336920577;
+
+	gds__gstat_retry                      = 336920578;
+
+	gds__gstat_wrong_ods                  = 336920579;
+
+	gds__gstat_unexpected_eof             = 336920580;
+
+	gds__gstat_open_err                   = 336920605;
+
+	gds__gstat_read_err                   = 336920606;
+
+	gds__gstat_sysmemex                   = 336920607;
+
diff --git a/src/misc/help.gbak b/src/misc/help.gbak
new file mode 100644
index 0000000000..2c5b8d7df8
Binary files /dev/null and b/src/misc/help.gbak differ
diff --git a/src/misc/metadata.gbak b/src/misc/metadata.gbak
new file mode 100644
index 0000000000..8e5473c8f3
Binary files /dev/null and b/src/misc/metadata.gbak differ
diff --git a/src/misc/msg_facs.h b/src/misc/msg_facs.h
new file mode 100644
index 0000000000..548a8acd3b
--- /dev/null
+++ b/src/misc/msg_facs.h
@@ -0,0 +1,52 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+/*
+ *	MODULE:		msg_facs.h
+ *	DESCRIPTION:	ISC message facilities
+ *
+ */
+
+
+
+/******************************/
+/*   ISC message facilities   */
+/******************************/
+
+typedef struct _facilities {
+	int fac_code;
+	char *facility;
+};
+
+static CONST struct _facilities facilities[] = {
+	0, "JRD       ",
+	3, "GFIX      ",
+	7, "DSQL      ",
+	8, "DYN       ",
+	12, "GBAK      ",
+	18, "GSEC      ",
+	19, "LICENSE   ",
+	21, "GSTAT     ",
+	0, NULL
+};
diff --git a/src/misc/msgs.h b/src/misc/msgs.h
new file mode 100644
index 0000000000..f6931056eb
--- /dev/null
+++ b/src/misc/msgs.h
@@ -0,0 +1,715 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+"unassigned code",
+	"arithmetic exception, numeric overflow, or string truncation",	/*1, arith_except                    */
+	"invalid database key",		/*2, bad_dbkey                       */
+	"file %s is not a valid database",	/*3, bad_db_format                   */
+	"invalid database handle (no active connection)",	/*4, bad_db_handle                   */
+	"bad parameters on attach or create database",	/*5, bad_dpb_content                 */
+	"unrecognized database parameter block",	/*6, bad_dpb_form                    */
+	"invalid request handle",	/*7, bad_req_handle                  */
+	"invalid BLOB handle",		/*8, bad_segstr_handle               */
+	"invalid BLOB ID",			/*9, bad_segstr_id                   */
+	"invalid parameter in transaction parameter block",	/*10, bad_tpb_content                 */
+	"invalid format for transaction parameter block",	/*11, bad_tpb_form                    */
+	"invalid transaction handle (expecting explicit transaction start)",	/*12, bad_trans_handle                */
+	"internal gds software consistency check (%s)",	/*13, bug_check                       */
+	"conversion error from string \"%s\"",	/*14, convert_error                   */
+	"database file appears corrupt (%s)",	/*15, db_corrupt                      */
+	"deadlock",					/*16, deadlock                        */
+	"attempt to start more than %ld transactions",	/*17, excess_trans                    */
+	"no match for first value expression",	/*18, from_no_match                   */
+	"information type inappropriate for object specified",	/*19, infinap                         */
+	"no information of this type available for object specified",	/*20, infona                          */
+	"unknown information item",	/*21, infunk                          */
+	"action cancelled by trigger (%ld) to preserve data integrity",	/*22, integ_fail                      */
+	"invalid request BLR at offset %ld",	/*23, invalid_blr                     */
+	"I/O error for file %.0s\"%s\"",	/*24, io_error                        */
+	"lock conflict on no wait transaction",	/*25, lock_conflict                   */
+	"corrupt system table",		/*26, metadata_corrupt                */
+	"validation error for column %s, value \"%s\"",	/*27, not_valid                       */
+	"no current record for fetch operation",	/*28, no_cur_rec                      */
+	"attempt to store duplicate value (visible to active transactions) in unique index \"%s\"",	/*29, no_dup                          */
+	"program attempted to exit without finishing database",	/*30, no_finish                       */
+	"unsuccessful metadata update",	/*31, no_meta_update                  */
+	"no permission for %s access to %s %s",	/*32, no_priv                         */
+	"transaction is not in limbo",	/*33, no_recon                        */
+	"invalid database key",		/*34, no_record                       */
+	"BLOB was not closed",		/*35, no_segstr_close                 */
+	"metadata is obsolete",		/*36, obsolete_metadata               */
+	"cannot disconnect database with open transactions (%ld active)",	/*37, open_trans                      */
+	"message length error (encountered %ld, expected %ld)",	/*38, port_len                        */
+	"attempted update of read-only column",	/*39, read_only_field                 */
+	"attempted update of read-only table",	/*40, read_only_rel                   */
+	"attempted update during read-only transaction",	/*41, read_only_trans                 */
+	"cannot update read-only view %s",	/*42, read_only_view                  */
+	"no transaction for request",	/*43, req_no_trans                    */
+	"request synchronization error",	/*44, req_sync                        */
+	"request referenced an unavailable database",	/*45, req_wrong_db                    */
+	"segment buffer length shorter than expected",	/*46, segment                         */
+	"attempted retrieval of more segments than exist",	/*47, segstr_eof                      */
+	"attempted invalid operation on a BLOB",	/*48, segstr_no_op                    */
+	"attempted read of a new, open BLOB",	/*49, segstr_no_read                  */
+	"attempted action on blob outside transaction",	/*50, segstr_no_trans                 */
+	"attempted write to read-only BLOB",	/*51, segstr_no_write                 */
+	"attempted reference to BLOB in unavailable database",	/*52, segstr_wrong_db                 */
+	"operating system directive %s failed",	/*53, sys_request                     */
+	"attempt to fetch past the last record in a record stream",	/*54, stream_eof                      */
+	"unavailable database",		/*55, unavailable                     */
+	"table %s was omitted from the transaction reserving list",	/*56, unres_rel                       */
+	"request includes a DSRI extension not supported in this implementation",	/*57, uns_ext                         */
+	"feature is not supported",	/*58, wish_list                       */
+	"unsupported on-disk structure for file %s; found %ld, support %ld",	/*59, wrong_ods                       */
+	"wrong number of arguments on call",	/*60, wronumarg                       */
+	"Implementation limit exceeded",	/*61, imp_exc                         */
+	"%s",						/*62, random                          */
+	"unrecoverable conflict with limbo transaction %ld",	/*63, fatal_conflict                  */
+	"internal error",			/*64, badblk                          */
+	"internal error",			/*65, invpoolcl                       */
+	"too many requests",		/*66, nopoolids                       */
+	"internal error",			/*67, relbadblk                       */
+	"block size exceeds implementation restriction",	/*68, blktoobig                       */
+	"buffer exhausted",			/*69, bufexh                          */
+	"BLR syntax error: expected %s at offset %ld, encountered %ld",	/*70, syntaxerr                       */
+	"buffer in use",			/*71, bufinuse                        */
+	"internal error",			/*72, bdbincon                        */
+	"request in use",			/*73, reqinuse                        */
+	"incompatible version of on-disk structure",	/*74, badodsver                       */
+	"table %s is not defined",	/*75, relnotdef                       */
+	"column %s is not defined in table %s",	/*76, fldnotdef                       */
+	"internal error",			/*77, dirtypage                       */
+	"internal error",			/*78, waifortra                       */
+	"internal error",			/*79, doubleloc                       */
+	"internal error",			/*80, nodnotfnd                       */
+	"internal error",			/*81, dupnodfnd                       */
+	"internal error",			/*82, locnotmar                       */
+	"page %ld is of wrong type (expected %ld, found %ld)",	/*83, badpagtyp                       */
+	"database corrupted",		/*84, corrupt                         */
+	"checksum error on database page %ld",	/*85, badpage                         */
+	"index is broken",			/*86, badindex                        */
+	"database handle not zero",	/*87, dbbnotzer                       */
+	"transaction handle not zero",	/*88, tranotzer                       */
+	"transaction--request mismatch (synchronization error)",	/*89, trareqmis                       */
+	"bad handle count",			/*90, badhndcnt                       */
+	"wrong version of transaction parameter block",	/*91, wrotpbver                       */
+	"unsupported BLR version (expected %ld, encountered %ld)",	/*92, wroblrver                       */
+	"wrong version of database parameter block",	/*93, wrodpbver                       */
+	"BLOB and array data types are not supported for %s operation",	/*94, blobnotsup                      */
+	"database corrupted",		/*95, badrelation                     */
+	"internal error",			/*96, nodetach                        */
+	"internal error",			/*97, notremote                       */
+	"transaction in limbo",		/*98, trainlim                        */
+	"transaction not in limbo",	/*99, notinlim                        */
+	"transaction outstanding",	/*100, traoutsta                       */
+	"connection rejected by remote interface",	/*101, connect_reject                  */
+	"internal error",			/*102, dbfile                          */
+	"internal error",			/*103, orphan                          */
+	"no lock manager available",	/*104, no_lock_mgr                     */
+	"context already in use (BLR error)",	/*105, ctxinuse                        */
+	"context not defined (BLR error)",	/*106, ctxnotdef                       */
+	"data operation not supported",	/*107, datnotsup                       */
+	"undefined message number",	/*108, badmsgnum                       */
+	"bad parameter number",		/*109, badparnum                       */
+	"unable to allocate memory from operating system",	/*110, virmemexh                       */
+	"blocking signal has been received",	/*111, blocking_signal                 */
+	"lock manager error",		/*112, lockmanerr                      */
+	"communication error with journal \"%s\"",	/*113, journerr                        */
+	"key size exceeds implementation restriction for index \"%s\"",	/*114, keytoobig                       */
+	"null segment of UNIQUE KEY",	/*115, nullsegkey                      */
+	"SQL error code = %ld",		/*116, sqlerr                          */
+	"wrong DYN version",		/*117, wrodynver                       */
+	"function %s is not defined",	/*118, funnotdef                       */
+	"function %s could not be matched",	/*119, funmismat                       */
+	"",							/*120, bad_msg_vec                     */
+	"database detach completed with errors",	/*121, bad_detach                      */
+	"database system cannot read argument %ld",	/*122, noargacc_read                   */
+	"database system cannot write argument %ld",	/*123, noargacc_write                  */
+	"operation not supported",	/*124, read_only                       */
+	"%s extension error",		/*125, ext_err                         */
+	"not updatable",			/*126, non_updatable                   */
+	"no rollback performed",	/*127, no_rollback                     */
+	"",							/*128, bad_sec_info                    */
+	"",							/*129, invalid_sec_info                */
+	"%s",						/*130, misc_interpreted                */
+	"update conflicts with concurrent update",	/*131, update_conflict                 */
+	"product %s is not licensed",	/*132, unlicensed                      */
+	"object %s is in use",		/*133, obj_in_use                      */
+	"filter not found to convert type %ld to type %ld",	/*134, nofilter                        */
+	"cannot attach active shadow file",	/*135, shadow_accessed                 */
+	"invalid slice description language at offset %ld",	/*136, invalid_sdl                     */
+	"subscript out of bounds",	/*137, out_of_bounds                   */
+	"column not array or invalid dimensions (expected %ld, encountered %ld)",	/*138, invalid_dimension               */
+	"record from transaction %ld is stuck in limbo",	/*139, rec_in_limbo                    */
+	"a file in manual shadow %ld is unavailable",	/*140, shadow_missing                  */
+	"secondary server attachments cannot validate databases",	/*141, cant_validate                   */
+	"secondary server attachments cannot start journaling",	/*142, cant_start_journal              */
+	"generator %s is not defined",	/*143, gennotdef                       */
+	"secondary server attachments cannot start logging",	/*144, cant_start_logging              */
+	"invalid BLOB type for operation",	/*145, bad_segstr_type                 */
+	"violation of FOREIGN KEY constraint \"%s\" on table \"%s\"",	/*146, foreign_key                     */
+	"minor version too high found %ld expected %ld",	/*147, high_minor                      */
+	"transaction %ld is %s",	/*148, tra_state                       */
+	"transaction marked invalid by I/O error",	/*149, trans_invalid                   */
+	"cache buffer for page %ld invalid",	/*150, buf_invalid                     */
+	"there is no index in table %s with id %d",	/*151, indexnotdefined                 */
+	"Your user name and password are not defined. Ask your database administrator to set up an InterBase login.",	/*152, login                           */
+	"invalid bookmark handle",	/*153, invalid_bookmark                */
+	"invalid lock level %d",	/*154, bad_lock_level                  */
+	"lock on table %s conflicts with existing lock",	/*155, relation_lock                   */
+	"requested record lock conflicts with existing lock",	/*156, record_lock                     */
+	"maximum indexes per table (%d) exceeded",	/*157, max_idx                         */
+	"enable journal for database before starting online dump",	/*158, jrn_enable                      */
+	"online dump failure. Retry dump",	/*159, old_failure                     */
+	"an online dump is already in progress",	/*160, old_in_progress                 */
+	"no more disk/tape space.  Cannot continue online dump",	/*161, old_no_space                    */
+	"journaling allowed only if database has Write-ahead Log",	/*162, no_wal_no_jrn                   */
+	"maximum number of online dump files that can be specified is 16",	/*163, num_old_files                   */
+	"error in opening Write-ahead Log file during recovery",	/*164, wal_file_open                   */
+	"invalid statement handle",	/*165, bad_stmt_handle                 */
+	"Write-ahead log subsystem failure",	/*166, wal_failure                     */
+	"WAL Writer error",			/*167, walw_err                        */
+	"Log file header of %s too small",	/*168, logh_small                      */
+	"Invalid version of log file %s",	/*169, logh_inv_version                */
+	"Log file %s not latest in the chain but open flag still set",	/*170, logh_open_flag                  */
+	"Log file %s not closed properly; database recovery may be required",	/*171, logh_open_flag2                 */
+	"Database name in the log file %s is different",	/*172, logh_diff_dbname                */
+	"Unexpected end of log file %s at offset %ld",	/*173, logf_unexpected_eof             */
+	"Incomplete log record at offset %ld in log file %s",	/*174, logr_incomplete                 */
+	"Log record header too small at offset %ld in log file %s",	/*175, logr_header_small               */
+	"Log block too small at offset %ld in log file %s",	/*176, logb_small                      */
+	"Illegal attempt to attach to an uninitialized WAL segment for %s",	/*177, wal_illegal_attach              */
+	"Invalid WAL parameter block option %s",	/*178, wal_invalid_wpb                 */
+	"Cannot roll over to the next log file %s",	/*179, wal_err_rollover                */
+	"database does not use Write-ahead Log",	/*180, no_wal                          */
+	"cannot drop log file when journaling is enabled",	/*181, drop_wal                        */
+	"reference to invalid stream number",	/*182, stream_not_defined              */
+	"WAL subsystem encountered error",	/*183, wal_subsys_error                */
+	"WAL subsystem corrupted",	/*184, wal_subsys_corrupt              */
+	"must specify archive file when enabling long term journal for databases with round-robin log files",	/*185, no_archive                      */
+	"database %s shutdown in progress",	/*186, shutinprog                      */
+	"refresh range number %ld already in use",	/*187, range_in_use                    */
+	"refresh range number %ld not found",	/*188, range_not_found                 */
+	"CHARACTER SET %s is not defined",	/*189, charset_not_found               */
+	"lock time-out on wait transaction",	/*190, lock_timeout                    */
+	"procedure %s is not defined",	/*191, prcnotdef                       */
+	"parameter mismatch for procedure %s",	/*192, prcmismat                       */
+	"Database %s: WAL subsystem bug for pid %d\
+%s",							/*193, wal_bugcheck                    */
+	"Could not expand the WAL segment for database %s",	/*194, wal_cant_expand                 */
+	"status code %s unknown",	/*195, codnotdef                       */
+	"exception %s not defined",	/*196, xcpnotdef                       */
+	"exception %d",				/*197, except                          */
+	"restart shared cache manager",	/*198, cache_restart                   */
+	"invalid lock handle",		/*199, bad_lock_handle                 */
+	"long-term journaling already enabled",	/*200, jrn_present                     */
+	"Unable to roll over; please see InterBase log.",	/*201, wal_err_rollover2               */
+	"WAL I/O error.  Please see InterBase log.",	/*202, wal_err_logwrite                */
+	"WAL writer - Journal server communication error.  Please see InterBase log.",	/*203, wal_err_jrn_comm                */
+	"WAL buffers cannot be increased.  Please see InterBase log.",	/*204, wal_err_expansion               */
+	"WAL setup error.  Please see InterBase log.",	/*205, wal_err_setup                   */
+	"WAL writer synchronization error for the database %s",	/*206, wal_err_ww_sync                 */
+	"Cannot start WAL writer for the database %s",	/*207, wal_err_ww_start                */
+	"database %s shutdown",		/*208, shutdown                        */
+	"cannot modify an existing user privilege",	/*209, existing_priv_mod               */
+	"Cannot delete PRIMARY KEY being used in FOREIGN KEY definition.",	/*210, primary_key_ref                 */
+	"Column used in a PRIMARY/UNIQUE constraint must be NOT NULL.",	/*211, primary_key_notnull             */
+	"Name of Referential Constraint not defined in constraints table.",	/*212, ref_cnstrnt_notfound            */
+	"Non-existent PRIMARY or UNIQUE KEY specified for FOREIGN KEY.",	/*213, foreign_key_notfound            */
+	"Cannot update constraints (RDB$REF_CONSTRAINTS).",	/*214, ref_cnstrnt_update              */
+	"Cannot update constraints (RDB$CHECK_CONSTRAINTS).",	/*215, check_cnstrnt_update            */
+	"Cannot delete CHECK constraint entry (RDB$CHECK_CONSTRAINTS)",	/*216, check_cnstrnt_del               */
+	"Cannot delete index segment used by an Integrity Constraint",	/*217, integ_index_seg_del             */
+	"Cannot update index segment used by an Integrity Constraint",	/*218, integ_index_seg_mod             */
+	"Cannot delete index used by an Integrity Constraint",	/*219, integ_index_del                 */
+	"Cannot modify index used by an Integrity Constraint",	/*220, integ_index_mod                 */
+	"Cannot delete trigger used by a CHECK Constraint",	/*221, check_trig_del                  */
+	"Cannot update trigger used by a CHECK Constraint",	/*222, check_trig_update               */
+	"Cannot delete column being used in an Integrity Constraint.",	/*223, cnstrnt_fld_del                 */
+	"Cannot rename column being used in an Integrity Constraint.",	/*224, cnstrnt_fld_rename              */
+	"Cannot update constraints (RDB$RELATION_CONSTRAINTS).",	/*225, rel_cnstrnt_update              */
+	"Cannot define constraints on views",	/*226, constaint_on_view               */
+	"internal gds software consistency check (invalid RDB$CONSTRAINT_TYPE)",	/*227, invld_cnstrnt_type              */
+	"Attempt to define a second PRIMARY KEY for the same table",	/*228, primary_key_exists              */
+	"cannot modify or erase a system trigger",	/*229, systrig_update                  */
+	"only the owner of a table may reassign ownership",	/*230, not_rel_owner                   */
+	"could not find table/procedure for GRANT",	/*231, grant_obj_notfound              */
+	"could not find column for GRANT",	/*232, grant_fld_notfound              */
+	"user does not have GRANT privileges for operation",	/*233, grant_nopriv                    */
+	"table/procedure has non-SQL security class defined",	/*234, nonsql_security_rel             */
+	"column has non-SQL security class defined",	/*235, nonsql_security_fld             */
+	"Write-ahead Log without shared cache configuration not allowed",	/*236, wal_cache_err                   */
+	"database shutdown unsuccessful",	/*237, shutfail                        */
+	"Operation violates CHECK constraint %s on view or table %s",	/*238, check_constraint                */
+	"invalid service handle",	/*239, bad_svc_handle                  */
+	"database %s shutdown in %d seconds",	/*240, shutwarn                        */
+	"wrong version of service parameter block",	/*241, wrospbver                       */
+	"unrecognized service parameter block",	/*242, bad_spb_form                    */
+	"service %s is not defined",	/*243, svcnotdef                       */
+	"long-term journaling not enabled",	/*244, no_jrn                          */
+	"Cannot transliterate character between character sets",	/*245, transliteration_failed          */
+	"WAL defined; Cache Manager must be started first",	/*246, start_cm_for_wal                */
+	"Overflow log specification required for round-robin log",	/*247, wal_ovflow_log_required         */
+	"Implementation of text subtype %d not located.",	/*248, text_subtype                    */
+	"Dynamic SQL Error",		/*249, dsql_error                      */
+	"Invalid command",			/*250, dsql_command_err                */
+	"Data type for constant unknown",	/*251, dsql_constant_err               */
+	"Cursor unknown",			/*252, dsql_cursor_err                 */
+	"Data type unknown",		/*253, dsql_datatype_err               */
+	"Declared cursor already exists",	/*254, dsql_decl_err                   */
+	"Cursor not updatable",		/*255, dsql_cursor_update_err          */
+	"Attempt to reopen an open cursor",	/*256, dsql_cursor_open_err            */
+	"Attempt to reclose a closed cursor",	/*257, dsql_cursor_close_err           */
+	"Column unknown",			/*258, dsql_field_err                  */
+	"Internal error",			/*259, dsql_internal_err               */
+	"Table unknown",			/*260, dsql_relation_err               */
+	"Procedure unknown",		/*261, dsql_procedure_err              */
+	"Request unknown",			/*262, dsql_request_err                */
+	"SQLDA missing or incorrect version, or incorrect number/type of variables",	/*263, dsql_sqlda_err                  */
+	"Count of columns does not equal count of values",	/*264, dsql_var_count_err              */
+	"Invalid statement handle",	/*265, dsql_stmt_handle                */
+	"Function unknown",			/*266, dsql_function_err               */
+	"Column is not a BLOB",		/*267, dsql_blob_err                   */
+	"COLLATION %s is not defined",	/*268, collation_not_found             */
+	"COLLATION %s is not valid for specified CHARACTER SET",	/*269, collation_not_for_charset       */
+	"Option specified more than once",	/*270, dsql_dup_option                 */
+	"Unknown transaction option",	/*271, dsql_tran_err                   */
+	"Invalid array reference",	/*272, dsql_invalid_array              */
+	"Array declared with too many dimensions",	/*273, dsql_max_arr_dim_exceeded       */
+	"Illegal array dimension range",	/*274, dsql_arr_range_error            */
+	"Trigger unknown",			/*275, dsql_trigger_err                */
+	"Subselect illegal in this context",	/*276, dsql_subselect_err              */
+	"Cannot prepare a CREATE DATABASE/SCHEMA statement",	/*277, dsql_crdb_prepare_err           */
+	"must specify column name for view select expression",	/*278, specify_field_err               */
+	"number of columns does not match select list",	/*279, num_field_err                   */
+	"Only simple column names permitted for VIEW WITH CHECK OPTION",	/*280, col_name_err                    */
+	"No WHERE clause for VIEW WITH CHECK OPTION",	/*281, where_err                       */
+	"Only one table allowed for VIEW WITH CHECK OPTION",	/*282, table_view_err                  */
+	"DISTINCT, GROUP or HAVING not permitted for VIEW WITH CHECK OPTION",	/*283, distinct_err                    */
+	"FOREIGN KEY column count does not match PRIMARY KEY",	/*284, key_field_count_err             */
+	"No subqueries permitted for VIEW WITH CHECK OPTION",	/*285, subquery_err                    */
+	"expression evaluation not supported",	/*286, expression_eval_err             */
+	"gen.c: node not supported",	/*287, node_err                        */
+	"Unexpected end of command",	/*288, command_end_err                 */
+	"INDEX %s",					/*289, index_name                      */
+	"EXCEPTION %s",				/*290, exception_name                  */
+	"COLUMN %s",				/*291, field_name                      */
+	"Token unknown",			/*292, token_err                       */
+	"union not supported",		/*293, union_err                       */
+	"Unsupported DSQL construct",	/*294, dsql_construct_err              */
+	"column used with aggregate",	/*295, field_aggregate_err             */
+	"invalid column reference",	/*296, field_ref_err                   */
+	"invalid ORDER BY clause",	/*297, order_by_err                    */
+	"Return mode by value not allowed for this data type",	/*298, return_mode_err                 */
+	" External functions cannot have more than 10 parameters",	/*299, extern_func_err                 */
+	"alias %s conflicts with an alias in the same statement",	/*300, alias_conflict_err              */
+	"alias %s conflicts with a procedure in the same statement",	/*301, procedure_conflict_error        */
+	"alias %s conflicts with a table in the same statement",	/*302, relation_conflict_err           */
+	"Illegal use of keyword VALUE",	/*303, dsql_domain_err                 */
+	"segment count of 0 defined for index %s",	/*304, idx_seg_err                     */
+	"A node name is not permitted in a secondary, shadow, cache or log file name",	/*305, node_name_err                   */
+	"TABLE %s",					/*306, table_name                      */
+	"PROCEDURE %s",				/*307, proc_name                       */
+	"cannot create index %s",	/*308, idx_create_err                  */
+	"Write-ahead Log with shadowing configuration not allowed",	/*309, wal_shadow_err                  */
+	"there are %ld dependencies",	/*310, dependency                      */
+	"too many keys defined for index %s",	/*311, idx_key_err                     */
+	"Preceding file did not specify length, so %s must include starting page number",	/*312, dsql_file_length_err            */
+	"Shadow number must be a positive integer",	/*313, dsql_shadow_number_err          */
+	"Token unknown - line %ld, char %ld",	/*314, dsql_token_unk_err              */
+	"there is no alias or table named %s at this scope level",	/*315, dsql_no_relation_alias          */
+	"there is no index %s for table %s",	/*316, indexname                       */
+	"table %s is not referenced in plan",	/*317, no_stream_plan                  */
+	"table %s is referenced more than once in plan; use aliases to distinguish",	/*318, stream_twice                    */
+	"table %s is referenced in the plan but not the from list",	/*319, stream_not_found                */
+	"Invalid use of CHARACTER SET or COLLATE",	/*320, collation_requires_text         */
+	"Specified domain or source column does not exist",	/*321, dsql_domain_not_found           */
+	"index %s cannot be used in the specified plan",	/*322, index_unused                    */
+	"the table %s is referenced twice; use aliases to differentiate",	/*323, dsql_self_join                  */
+	"illegal operation when at beginning of stream",	/*324, stream_bof                      */
+	"the current position is on a crack",	/*325, stream_crack                    */
+	"database or file exists",	/*326, db_or_file_exists               */
+	"invalid comparison operator for find operation",	/*327, invalid_operator                */
+	"Connection lost to pipe server",	/*328, conn_lost                       */
+	"bad checksum",				/*329, bad_checksum                    */
+	"wrong page type",			/*330, page_type_err                   */
+	"Cannot insert because the file is readonly or is on a read only medium.",	/*331, ext_readonly_err                */
+	"multiple rows in singleton select",	/*332, sing_select_err                 */
+	"cannot attach to password database",	/*333, psw_attach                      */
+	"cannot start transaction for password database",	/*334, psw_start_trans                 */
+	"invalid direction for find operation",	/*335, invalid_direction               */
+	"variable %s conflicts with parameter in same procedure",	/*336, dsql_var_conflict               */
+	"Array/BLOB/DATE data types not allowed in arithmetic",	/*337, dsql_no_blob_array              */
+	"%s is not a valid base table of the specified view",	/*338, dsql_base_table                 */
+	"table %s is referenced twice in view; use an alias to distinguish",	/*339, duplicate_base_table            */
+	"view %s has more than one base table; use aliases to distinguish",	/*340, view_alias                      */
+	"cannot add index, index root page is full.",	/*341, index_root_page_full            */
+	"BLOB SUB_TYPE %s is not defined",	/*342, dsql_blob_type_unknown          */
+	"Too many concurrent executions of the same request",	/*343, req_max_clones_exceeded         */
+	"duplicate specification of %s - not supported",	/*344, dsql_duplicate_spec             */
+	"violation of PRIMARY or UNIQUE KEY constraint \"%s\" on table \"%s\"",	/*345, unique_key_violation            */
+	"server version too old to support all CREATE DATABASE options",	/*346, srvr_version_too_old            */
+	"drop database completed with errors",	/*347, drdb_completed_with_errs        */
+	"procedure %s does not return any values",	/*348, dsql_procedure_use_err          */
+	"count of column list and variable list do not match",	/*349, dsql_count_mismatch             */
+	"attempt to index BLOB column in index %s",	/*350, blob_idx_err                    */
+	"attempt to index array column in index %s",	/*351, array_idx_err                   */
+	"too few key columns found for index %s (incorrect column name?)",	/*352, key_field_err                   */
+	"cannot delete",			/*353, no_delete                       */
+	"last column in a table cannot be deleted",	/*354, del_last_field                  */
+	"sort error",				/*355, sort_err                        */
+	"sort error: not enough memory",	/*356, sort_mem_err                    */
+	"too many versions",		/*357, version_err                     */
+	"invalid key position",		/*358, inval_key_posn                  */
+	"segments not allowed in expression index %s",	/*359, no_segments_err                 */
+	"sort error: corruption in data structure",	/*360, crrp_data_err                   */
+	"new record size of %ld bytes is too big",	/*361, rec_size_err                    */
+	"Inappropriate self-reference of column",	/*362, dsql_field_ref                  */
+	"request depth exceeded. (Recursive definition?)",	/*363, req_depth_exceeded              */
+	"cannot access column %s in view %s",	/*364, no_field_access                 */
+	"dbkey not available for multi-table views",	/*365, no_dbkey                        */
+	"journal file wrong format",	/*366, jrn_format_err                  */
+	"intermediate journal file full",	/*367, jrn_file_full                   */
+	"The prepare statement identifies a prepare statement with an open cursor",	/*368, dsql_open_cursor_request        */
+	"InterBase error",			/*369, ib_error                        */
+	"Cache redefined",			/*370, cache_redef                     */
+	"Insufficient memory to allocate page buffer cache",	/*371, cache_too_small                 */
+	"Log redefined",			/*372, log_redef                       */
+	"Log size too small",		/*373, log_too_small                   */
+	"Log partition size too small",	/*374, partition_too_small             */
+	"Partitions not supported in series of log file specification",	/*375, partition_not_supp              */
+	"Total length of a partitioned log must be specified",	/*376, log_length_spec                 */
+	"Precision must be from 1 to 18",	/*377, precision_err                   */
+	"Scale must be between zero and precision",	/*378, scale_nogt                      */
+	"Short integer expected",	/*379, expec_short                     */
+	"Long integer expected",	/*380, expec_long                      */
+	"Unsigned short integer expected",	/*381, expec_ushort                    */
+	"Invalid ESCAPE sequence",	/*382, like_escape_invalid             */
+	"service %s does not have an associated executable",	/*383, svcnoexe                        */
+	"Failed to locate host machine.",	/*384, net_lookup_err                  */
+	"Undefined service %s/%s.",	/*385, service_unknown                 */
+	"The specified name was not found in the hosts file or Domain Name Services.",	/*386, host_unknown                    */
+	"user does not have GRANT privileges on base table/view for operation",	/*387, grant_nopriv_on_base            */
+	"Ambiguous column reference.",	/*388, dyn_fld_ambiguous               */
+	"Invalid aggregate reference",	/*389, dsql_agg_ref_err                */
+	"navigational stream %ld references a view with more than one base table",	/*390, complex_view                    */
+	"Attempt to execute an unprepared dynamic SQL statement.",	/*391, unprepared_stmt                 */
+	"Positive value expected",	/*392, expec_positive                  */
+	"Incorrect values within SQLDA structure",	/*393, dsql_sqlda_value_err            */
+	"invalid blob id",			/*394, invalid_array_id                */
+	"Operation not supported for EXTERNAL FILE table %s",	/*395, extfile_uns_op                  */
+	"Service is currently busy: %s",	/*396, svc_in_use                      */
+	"stack size insufficent to execute current request",	/*397, err_stack_limit                 */
+	"Invalid key for find operation",	/*398, invalid_key                     */
+	"Error initializing the network software.",	/*399, net_init_error                  */
+	"Unable to load required library %s.",	/*400, loadlib_failure                 */
+	"Unable to complete network request to host \"%s\".",	/*401, network_error                   */
+	"Failed to establish a connection.",	/*402, net_connect_err                 */
+	"Error while listening for an incoming connection.",	/*403, net_connect_listen_err          */
+	"Failed to establish a secondary connection for event processing.",	/*404, net_event_connect_err           */
+	"Error while listening for an incoming event connection request.",	/*405, net_event_listen_err            */
+	"Error reading data from the connection.",	/*406, net_read_err                    */
+	"Error writing data to the connection.",	/*407, net_write_err                   */
+	"Cannot deactivate index used by an Integrity Constraint",	/*408, integ_index_deactivate          */
+	"Cannot deactivate primary index",	/*409, integ_deactivate_primary        */
+	"Client/Server Express not supported in this release",	/*410, cse_not_supported               */
+	"",							/*411, tra_must_sweep                  */
+	"Access to databases on file servers is not supported.",	/*412, unsupported_network_drive       */
+	"Error while trying to create file",	/*413, io_create_err                   */
+	"Error while trying to open file",	/*414, io_open_err                     */
+	"Error while trying to close file",	/*415, io_close_err                    */
+	"Error while trying to read from file",	/*416, io_read_err                     */
+	"Error while trying to write to file",	/*417, io_write_err                    */
+	"Error while trying to delete file",	/*418, io_delete_err                   */
+	"Error while trying to access file",	/*419, io_access_err                   */
+	"A fatal exception occurred during the execution of a user defined function.",	/*420, udf_exception                   */
+	"connection lost to database",	/*421, lost_db_connection              */
+	"User cannot write to RDB$USER_PRIVILEGES",	/*422, no_write_user_priv              */
+	"token size exceeds limit",	/*423, token_too_long                  */
+	"Maximum user count exceeded.  Contact your database administrator.",	/*424, max_att_exceeded                */
+	"Your login %s is same as one of the SQL role name. Ask your database administrator to set up a valid InterBase login.",	/*425, login_same_as_role_name         */
+	"\"REFERENCES table\" without \"(column)\" requires PRIMARY KEY on referenced table",	/*426, reftable_requires_pk            */
+	"The username entered is too long.  Maximum length is 31 bytes.",	/*427, usrname_too_long                */
+	"The password specified is too long.  Maximum length is 8 bytes.",	/*428, password_too_long               */
+	"A username is required for this operation.",	/*429, usrname_required                */
+	"A password is required for this operation",	/*430, password_required               */
+	"The network protocol specified is invalid",	/*431, bad_protocol                    */
+	"A duplicate user name was found in the security database",	/*432, dup_usrname_found               */
+	"The user name specified was not found in the security database",	/*433, usrname_not_found               */
+	"An error occurred while attempting to add the user.",	/*434, error_adding_sec_record         */
+	"An error occurred while attempting to modify the user record.",	/*435, error_modifying_sec_record      */
+	"An error occurred while attempting to delete the user record.",	/*436, error_deleting_sec_record       */
+	"An error occurred while updating the security database.",	/*437, error_updating_sec_db           */
+	"sort record size of %ld bytes is too big",	/*438, sort_rec_size_err               */
+	"can not define a not null column with NULL as default value",	/*439, bad_default_value               */
+	"invalid clause --- '%s'",	/*440, invalid_clause                  */
+	"too many open handles to database",	/*441, too_many_handles                */
+	"size of optimizer block exceeded",	/*442, optimizer_blk_exc               */
+	"a string constant is delimited by double quotes",	/*443, invalid_string_constant         */
+	"DATE must be changed to TIMESTAMP",	/*444, transitional_date               */
+	"attempted update on read-only database",	/*445, read_only_database              */
+	"SQL dialect %s is not supported in this database",	/*446, must_be_dialect_2_and_up        */
+	"A fatal exception occurred during the execution of a blob filter.",	/*447, blob_filter_exception           */
+	"Access violation.  The code attempted to access a virtual address without privilege to do so.",	/*448, exception_access_violation      */
+	"Datatype misalignment.  The attempted to read or write a value that was not stored on a memory boundary.",	/*449, exception_datatype_missalignment */
+	"Array bounds exceeded.  The code attempted to access an array element that is out of bounds.",	/*450, exception_array_bounds_exceeded */
+	"Float denormal operand.  One of the floating-point operands is too small to represent a standard float value.",	/*451, exception_float_denormal_operand */
+	"Floating-point divide by zero.  The code attempted to divide a floating-point value by zero.",	/*452, exception_float_divide_by_zero  */
+	"Floating-point inexact result.  The result of a floating-point operation cannot be represented as a deciaml fraction.",	/*453, exception_float_inexact_result  */
+	"Floating-point invalid operand.  An indeterminant error occurred during a floating-point operation.",	/*454, exception_float_invalid_operand */
+	"Floating-point overflow.  The exponent of a floating-point operation is greater than the magnitude allowed.",	/*455, exception_float_overflow        */
+	"Floating-point stack check.  The stack overflowed or underflowed as the result of a floating-point operation.",	/*456, exception_float_stack_check     */
+	"Floating-point underflow.  The exponent of a floating-point operation is less than the magnitude allowed.",	/*457, exception_float_underflow       */
+	"Integer divide by zero.  The code attempted to divide an integer value by an integer divisor of zero.",	/*458, exception_integer_divide_by_zero */
+	"Integer overflow.  The result of an integer operation caused the most significant bit of the result to carry.",	/*459, exception_integer_overflow      */
+	"An exception occurred that does not have a description.  Exception number %X.",	/*460, exception_unknown               */
+	"Stack overflow.  The resource requirements of the runtime stack have exceeded the memory available to it.",	/*461, exception_stack_overflow        */
+	"Segmentation Fault. The code attempted to access memory without priviledges.",	/*462, exception_sigsegv               */
+	"Illegal Instruction. The Code attempted to perfrom an illegal operation.",	/*463, exception_sigill                */
+	"Bus Error. The Code caused a system bus error.",	/*464, exception_sigbus                */
+	"Floating Point Error. The Code caused an Arithmetic Exception or a floating point exception.",	/*465, exception_sigfpe                */
+	"Cannot delete rows from external files.",	/*466, ext_file_delete                 */
+	"Cannot update rows in external files.",	/*467, ext_file_modify                 */
+	"Unable to perform operation.  You must be either SYSDBA or owner of the database",	/*468, adm_task_denied                 */
+	"Specified EXTRACT part does not exist in input datatype",	/*469, extract_input_mismatch          */
+	"Service %s requires SYSDBA permissions.  Reattach to the Service Manager using the SYSDBA account.",	/*470, insufficient_svc_privileges     */
+	"The file %s is currently in use by another process.  Try again later.",	/*471, file_in_use                     */
+	"Cannot attach to services manager",	/*472, service_att_err                 */
+	"Metadata update statement is not allowed by the current database SQL dialect %d",	/*473, ddl_not_allowed_by_db_sql_dial  */
+	"operation was cancelled",	/*474, cancelled                       */
+	"unexpected item in service parameter block, expected %s",	/*475, unexp_spb_form                  */
+	"Client SQL dialect %d does not support reference to %s datatype",	/*476, sql_dialect_datatype_unsupport  */
+	"user name and password are required while attaching to the services manager",	/*477, svcnouser                       */
+	"You created an indirect dependency on uncommitted metadata. You must roll back the current transaction.",	/*478, depend_on_uncommitted_rel       */
+	"The service name was not specified.",	/*479, svc_name_missing                */
+	"Too many Contexts of Relation/Procedure/Views. Maximum allowed is 127",	/*480, too_many_contexts               */
+	"data type not supported for arithmetic",	/*481, datype_notsup                   */
+	"Database dialect being changed from 3 to 1",	/*482, dialect_reset_warning           */
+	"Database dialect not changed.",	/*483, dialect_not_changed             */
+	"Unable to create database %s",	/*484, database_create_failed          */
+	"Database dialect %d is not a valid dialect.",	/*485, inv_dialect_specified           */
+	"Valid database dialects are %s.",	/*486, valid_db_dialects               */
+	"SQL warning code = %ld",	/*487, sqlwarn                         */
+	"DATE data type is now called TIMESTAMP",	/*488, dtype_renamed                   */
+	"Function %s is in %s, which is not in a permitted directory for external functions.",	/*489, extern_func_dir_error           */
+	"value exceeds the range for valid dates",	/*490, date_range_exceeded             */
+	"passed client dialect %d is not a valid dialect.",	/*491, inv_client_dialect_specified    */
+	"Valid client dialects are %s.",	/*492, valid_client_dialects           */
+	"Unsupported field type specified in BETWEEN predicate.",	/*493, optimizer_between_err           */
+	"Services functionality will be supported in a later version  of the product",	/*494, service_not_supported           */
+	"data base file name (%s) already given",	/*495, gfix_db_name                    */
+	"invalid switch %s",		/*496, gfix_invalid_sw                 */
+	"incompatible switch combination",	/*497, gfix_incmp_sw                   */
+	"replay log pathname required",	/*498, gfix_replay_req                 */
+	"number of page buffers for cache required",	/*499, gfix_pgbuf_req                  */
+	"numeric value required",	/*500, gfix_val_req                    */
+	"positive numeric value required",	/*501, gfix_pval_req                   */
+	"number of transactions per sweep required",	/*502, gfix_trn_req                    */
+	"\"full\" or \"reserve\" required",	/*503, gfix_full_req                   */
+	"user name required",		/*504, gfix_usrname_req                */
+	"password required",		/*505, gfix_pass_req                   */
+	"subsystem name",			/*506, gfix_subs_name                  */
+	"\"wal\" required",			/*507, gfix_wal_req                    */
+	"number of seconds required",	/*508, gfix_sec_req                    */
+	"numeric value between 0 and 32767 inclusive required",	/*509, gfix_nval_req                   */
+	"must specify type of shutdown",	/*510, gfix_type_shut                  */
+	"please retry, specifying an option",	/*511, gfix_retry                      */
+	"please retry, giving a database name",	/*512, gfix_retry_db                   */
+	"internal block exceeds maximum size",	/*513, gfix_exceed_max                 */
+	"corrupt pool",				/*514, gfix_corrupt_pool               */
+	"virtual memory exhausted",	/*515, gfix_mem_exhausted              */
+	"bad pool id",				/*516, gfix_bad_pool                   */
+	"Transaction state %d not in valid range.",	/*517, gfix_trn_not_valid              */
+	"unexpected end of input",	/*518, gfix_unexp_eoi                  */
+	"failed to reconnect to a transaction in database %s",	/*519, gfix_recon_fail                 */
+	"Transaction description item unknown",	/*520, gfix_trn_unknown                */
+	"\"read_only\" or \"read_write\" required",	/*521, gfix_mode_req                   */
+	"	-sql_dialect	set database dialect n",	/*522, gfix_opt_SQL_dialect            */
+	"Cannot SELECT RDB$DB_KEY from a stored procedure.",	/*523, dsql_dbkey_from_non_table       */
+	"Precision 10 to 18 changed from DOUBLE PRECISION in SQL dialect 1 to 64-bit scaled integer in SQL dialect 3",	/*524, dsql_transitional_numeric       */
+	"Use of %s expression that returns different results in dialect 1 and dialect 3",	/*525, dsql_dialect_warning_expr       */
+	"Database SQL dialect %d does not support reference to %s datatype",	/*526, sql_db_dialect_dtype_unsupport  */
+	"DB dialect %d and client dialect %d conflict with respect to numeric precision %d.",	/*527, isc_sql_dialect_conflict_num    */
+	"WARNING: Numeric literal %s is interpreted as a floating-point",	/*528, dsql_warning_number_ambiguous   */
+	"value in SQL dialect 1, but as an exact numeric value in SQL dialect 3.",	/*529, dsql_warning_number_ambiguous1  */
+	"WARNING: NUMERIC and DECIMAL fields with precision 10 or greater are stored",	/*530, dsql_warn_precision_ambiguous   */
+	"as approximate floating-point values in SQL dialect 1, but as 64-bit",	/*531, dsql_warn_precision_ambiguous1  */
+	"integers in SQL dialect 3.",	/*532, dsql_warn_precision_ambiguous2  */
+	"SQL role %s does not exist",	/*533, dyn_role_does_not_exist         */
+	"user %s has no grant admin option on SQL role %s",	/*534, dyn_no_grant_admin_opt          */
+	"user %s is not a member of SQL role %s",	/*535, dyn_user_not_role_member        */
+	"%s is not the owner of SQL role %s",	/*536, dyn_delete_role_failed          */
+	"%s is a SQL role and not a user",	/*537, dyn_grant_role_to_user          */
+	"user name %s could not be used for SQL role",	/*538, dyn_inv_sql_role_name           */
+	"SQL role %s already exists",	/*539, dyn_dup_sql_role                */
+	"keyword %s can not be used as a SQL role name",	/*540, dyn_kywd_spec_for_role          */
+	"SQL roles are not supported in on older versions of the database.  A backup and restore of the database is required.",	/*541, dyn_roles_not_supported         */
+	"Cannot rename domain %s to %s.  A domain with that name already exists.",	/*542, dyn_domain_name_exists          */
+	"Cannot rename column %s to %s.  A column with that name already exists in table %s.",	/*543, dyn_field_name_exists           */
+	"Column %s from table %s is referenced in %s",	/*544, dyn_dependency_exists           */
+	"Cannot change datatype for column %s.  Changing datatype is not supported for BLOB or ARRAY columns.",	/*545, dyn_dtype_invalid               */
+	"New size specified for column %s must be at least %d characters.",	/*546, dyn_char_fld_too_small          */
+	"Cannot change datatype for %s.  Conversion from base type %s to %s is not supported.",	/*547, dyn_invalid_dtype_conversion    */
+	"Cannot change datatype for column %s from a character type to a non-character type.",	/*548, dyn_dtype_conv_invalid          */
+	"found unknown switch",		/*549, gbak_unknown_switch             */
+	"page size parameter missing",	/*550, gbak_page_size_missing          */
+	"Page size specified (%ld) greater than limit (8192 bytes)",	/*551, gbak_page_size_toobig           */
+	"redirect location for output is not specified",	/*552, gbak_redir_ouput_missing        */
+	"conflicting switches for backup/restore",	/*553, gbak_switches_conflict          */
+	"device type %s not known",	/*554, gbak_unknown_device             */
+	"protection is not there yet",	/*555, gbak_no_protection              */
+	"page size is allowed only on restore or create",	/*556, gbak_page_size_not_allowed      */
+	"multiple sources or destinations specified",	/*557, gbak_multi_source_dest          */
+	"requires both input and output filenames",	/*558, gbak_filename_missing           */
+	"input and output have the same name.  Disallowed.",	/*559, gbak_dup_inout_names            */
+	"expected page size, encountered \"%s\"",	/*560, gbak_inv_page_size              */
+	"REPLACE specified, but the first file %s is a database",	/*561, gbak_db_specified               */
+	"database %s already exists.  To replace it, use the -R switch",	/*562, gbak_db_exists                  */
+	"device type not specified",	/*563, gbak_unk_device                 */
+	"gds_$blob_info failed",	/*564, gbak_blob_info_failed           */
+	"do not understand BLOB INFO item %ld",	/*565, gbak_unk_blob_item              */
+	"gds_$get_segment failed",	/*566, gbak_get_seg_failed             */
+	"gds_$close_blob failed",	/*567, gbak_close_blob_failed          */
+	"gds_$open_blob failed",	/*568, gbak_open_blob_failed           */
+	"Failed in put_blr_gen_id",	/*569, gbak_put_blr_gen_id_failed      */
+	"data type %ld not understood",	/*570, gbak_unk_type                   */
+	"gds_$compile_request failed",	/*571, gbak_comp_req_failed            */
+	"gds_$start_request failed",	/*572, gbak_start_req_failed           */
+	" gds_$receive failed",		/*573, gbak_rec_failed                 */
+	"gds_$release_request failed",	/*574, gbak_rel_req_failed             */
+	" gds_$database_info failed",	/*575, gbak_db_info_failed             */
+	"Expected database description record",	/*576, gbak_no_db_desc                 */
+	"failed to create database %s",	/*577, gbak_db_create_failed           */
+	"RESTORE: decompression length error",	/*578, gbak_decomp_len_error           */
+	"cannot find table %s",		/*579, gbak_tbl_missing                */
+	"Cannot find column for BLOB",	/*580, gbak_blob_col_missing           */
+	"gds_$create_blob failed",	/*581, gbak_create_blob_failed         */
+	"gds_$put_segment failed",	/*582, gbak_put_seg_failed             */
+	"expected record length",	/*583, gbak_rec_len_exp                */
+	"wrong length record, expected %ld encountered %ld",	/*584, gbak_inv_rec_len                */
+	"expected data attribute",	/*585, gbak_exp_data_type              */
+	"Failed in store_blr_gen_id",	/*586, gbak_gen_id_failed              */
+	"do not recognize record type %ld",	/*587, gbak_unk_rec_type               */
+	"Expected backup version 1, 2, or 3.  Found %ld",	/*588, gbak_inv_bkup_ver               */
+	"expected backup description record",	/*589, gbak_missing_bkup_desc          */
+	"string truncated",			/*590, gbak_string_trunc               */
+	" warning -- record could not be restored",	/*591, gbak_cant_rest_record           */
+	"gds_$send failed",			/*592, gbak_send_failed                */
+	"no table name for data",	/*593, gbak_no_tbl_name                */
+	"unexpected end of file on backup file",	/*594, gbak_unexp_eof                  */
+	"database format %ld is too old to restore to",	/*595, gbak_db_format_too_old          */
+	"array dimension for column %s is invalid",	/*596, gbak_inv_array_dim              */
+	"Expected XDR record length",	/*597, gbak_xdr_len_expected           */
+	"cannot open backup file %s",	/*598, gbak_open_bkup_error            */
+	"cannot open status and error output file %s",	/*599, gbak_open_error                 */
+	"blocking factor parameter missing",	/*600, gbak_missing_block_fac          */
+	"expected blocking factor, encountered \"%s\"",	/*601, gbak_inv_block_fac              */
+	"a blocking factor may not be used in conjunction with device CT",	/*602, gbak_block_fac_specified        */
+	"user name parameter missing",	/*603, gbak_missing_username           */
+	"password parameter missing",	/*604, gbak_missing_password           */
+	" missing parameter for the number of bytes to be skipped",	/*605, gbak_missing_skipped_bytes      */
+	"expected number of bytes to be skipped, encountered \"%s\"",	/*606, gbak_inv_skipped_bytes          */
+	"Bad attribute for RDB$CHARACTER_SETS",	/*607, gbak_err_restore_charset        */
+	"Bad attribute for RDB$COLLATIONS",	/*608, gbak_err_restore_collation      */
+	"Unexpected I/O error while reading from backup file",	/*609, gbak_read_error                 */
+	"Unexpected I/O error while writing to backup file",	/*610, gbak_write_error                */
+	"could not drop database %s (database might be in use)",	/*611, gbak_db_in_use                  */
+	"System memory exhausted",	/*612, gbak_sysmemex                   */
+	"Bad attributes for restoring SQL role",	/*613, gbak_restore_role_failed        */
+	"SQL role parameter missing",	/*614, gbak_role_op_missing            */
+	"page buffers parameter missing",	/*615, gbak_page_buffers_missing       */
+	"expected page buffers, encountered \"%s\"",	/*616, gbak_page_buffers_wrong_param   */
+	"page buffers is allowed only on restore or create",	/*617, gbak_page_buffers_restore       */
+	"size specification either missing or incorrect for file %s",	/*618, gbak_inv_size                   */
+	"file %s out of sequence",	/*619, gbak_file_outof_sequence        */
+	"can't join -- one of the files missing",	/*620, gbak_join_file_missing          */
+	" standard input is not supported when using join operation",	/*621, gbak_stdin_not_supptd           */
+	"standard output is not supported when using split operation",	/*622, gbak_stdout_not_supptd          */
+	"backup file %s might be corrupt",	/*623, gbak_bkup_corrupt               */
+	"database file specification missing",	/*624, gbak_unk_db_file_spec           */
+	"can't write a header record to file %s",	/*625, gbak_hdr_write_failed           */
+	"free disk space exhausted",	/*626, gbak_disk_space_ex              */
+	"file size given (%d) is less than minimum allowed (%d)",	/*627, gbak_size_lt_min                */
+	"service name parameter missing",	/*628, gbak_svc_name_missing           */
+	"Cannot restore over current database, must be SYSDBA or owner of the existing database.",	/*629, gbak_not_ownr                   */
+	"\"read_only\" or \"read_write\" required",	/*630, gbak_mode_req                   */
+	"unable to open database",	/*631, gsec_cant_open_db               */
+	"error in switch specifications",	/*632, gsec_switches_error             */
+	"no operation specified",	/*633, gsec_no_op_spec                 */
+	"no user name specified",	/*634, gsec_no_usr_name                */
+	"add record error",			/*635, gsec_err_add                    */
+	"modify record error",		/*636, gsec_err_modify                 */
+	"find/modify record error",	/*637, gsec_err_find_mod               */
+	"record not found for user: %s",	/*638, gsec_err_rec_not_found          */
+	"delete record error",		/*639, gsec_err_delete                 */
+	"find/delete record error",	/*640, gsec_err_find_del               */
+	"find/display record error",	/*641, gsec_err_find_disp              */
+	"invalid parameter, no switch defined",	/*642, gsec_inv_param                  */
+	"operation already specified",	/*643, gsec_op_specified               */
+	"password already specified",	/*644, gsec_pw_specified               */
+	"uid already specified",	/*645, gsec_uid_specified              */
+	"gid already specified",	/*646, gsec_gid_specified              */
+	"project already specified",	/*647, gsec_proj_specified             */
+	"organization already specified",	/*648, gsec_org_specified              */
+	"first name already specified",	/*649, gsec_fname_specified            */
+	"middle name already specified",	/*650, gsec_mname_specified            */
+	"last name already specified",	/*651, gsec_lname_specified            */
+	"invalid switch specified",	/*652, gsec_inv_switch                 */
+	"ambiguous switch specified",	/*653, gsec_amb_switch                 */
+	"no operation specified for parameters",	/*654, gsec_no_op_specified            */
+	"no parameters allowed for this operation",	/*655, gsec_params_not_allowed         */
+	"incompatible switches specified",	/*656, gsec_incompat_switch            */
+	"Invalid user name (maximum 31 bytes allowed)",	/*657, gsec_inv_username               */
+	"Warning - maximum 8 significant bytes of password used",	/*658, gsec_inv_pw_length              */
+	"database already specified",	/*659, gsec_db_specified               */
+	"database administrator name already specified",	/*660, gsec_db_admin_specified         */
+	"database administrator password already specified",	/*661, gsec_db_admin_pw_specified      */
+	"SQL role name already specified",	/*662, gsec_sql_role_specified         */
+	"The license file does not exist or could not be opened for read",	/*663, license_no_file                 */
+	"operation already specified",	/*664, license_op_specified            */
+	"no operation specified",	/*665, license_op_missing              */
+	"invalid switch",			/*666, license_inv_switch              */
+	"invalid switch combination",	/*667, license_inv_switch_combo        */
+	"illegal operation/switch combination",	/*668, license_inv_op_combo            */
+	"ambiguous switch",			/*669, license_amb_switch              */
+	"invalid parameter, no switch specified",	/*670, license_inv_parameter           */
+	"switch does not take any parameter",	/*671, license_param_specified         */
+	"switch requires a parameter",	/*672, license_param_req               */
+	"syntax error in command line",	/*673, license_syntx_error             */
+	"The certificate was not added.  A duplicate ID exists in the license file.",	/*674, license_dup_id                  */
+	"The certificate was not added.  Invalid certificate ID / Key combination.",	/*675, license_inv_id_key              */
+	"The certificate was not removed.  The key does not exist or corresponds to a temporary evaluation license.",	/*676, license_err_remove              */
+	"An error occurred updating the license file.  Operation cancelled.",	/*677, license_err_update              */
+	"The certificate could not be validated based on the information given.  Please recheck the ID and key information.",	/*678, license_err_convert             */
+	"Operation failed.  An unknown error occurred.",	/*679, license_err_unk                 */
+	"Add license operation failed, KEY: %s ID: %s",	/*680, license_svc_err_add             */
+	"Remove license operation failed, KEY: %s",	/*681, license_svc_err_remove          */
+	"The evaluation license has already been used on this server.  You need to purchase a non-evaluation license.",	/*682, license_eval_exists             */
+	"found unknown switch",		/*683, gstat_unknown_switch            */
+	"please retry, giving a database name",	/*684, gstat_retry                     */
+	"Wrong ODS version, expected %d, encountered %d",	/*685, gstat_wrong_ods                 */
+	"Unexpected end of database file.",	/*686, gstat_unexpected_eof            */
+	"Can't open database file %s",	/*687, gstat_open_err                  */
+	"Can't read a database page",	/*688, gstat_read_err                  */
+	"System memory exhausted",	/*689, gstat_sysmemex                  */
diff --git a/src/misc/rdb_codes.h b/src/misc/rdb_codes.h
new file mode 100644
index 0000000000..f3394eef32
--- /dev/null
+++ b/src/misc/rdb_codes.h
@@ -0,0 +1,689 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+195919882,
+	195919890,
+	195919898,
+	195919906,
+	195919914,
+	195919922,
+	195919930,
+	195919938,
+	195919946,
+	195919954,
+	195919962,
+	195919970,
+	195919978,
+	195919987,
+	195919995,
+	195920002,
+	195920011,
+	195920019,
+	20480152,
+	195920027,
+	195920036,
+	195920044,
+	195920051,
+	20480196,
+	195920059,
+	195920066,
+	195920074,
+	195920082,
+	195920090,
+	195920098,
+	195920106,
+	195920114,
+	195920122,
+	195920130,
+	195920139,
+	20480290,
+	20480298,
+	20480306,
+	20480314,
+	20480322,
+	20480330,
+	20480338,
+	20480346,
+	20480354,
+	20480362,
+	20480369,
+	20480378,
+	20480386,
+	20480394,
+	20480402,
+	20480410,
+	20480418,
+	20480436,
+	20480426,
+	195920146,
+	195920154,
+	195920162,
+	195920170,
+	20480546,
+	195920186,
+	195920195,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	20480498,
+	20480504,
+	20480516,
+	20480524,
+	20480530,
+	20480538,
+	20480554,
+	20480562,
+	0,
+	0,
+	195920202,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
diff --git a/src/misc/sql_code.h b/src/misc/sql_code.h
new file mode 100644
index 0000000000..5a405e7ba9
--- /dev/null
+++ b/src/misc/sql_code.h
@@ -0,0 +1,716 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL/
+ * 
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ * 
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ * 
+ * Copyright (C) 2000 Inprise Corporation
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+ * 
+ * File generated by codes.e - do not edit!
+ * 
+ */
+static CONST SSHORT FAR_VARIABLE gds__sql_code[] = {
+	0 /* No Error */ ,
+	-802 /*   1 arith_except                    
 */ ,
+	-901 /*   2 bad_dbkey                       
 */ ,
+	-922 /*   3 bad_db_format                   
 */ ,
+	-904 /*   4 bad_db_handle                   
 */ ,
+	-924 /*   5 bad_dpb_content                 
 */ ,
+	-901 /*   6 bad_dpb_form                    
 */ ,
+	-501 /*   7 bad_req_handle                  
 */ ,
+	-901 /*   8 bad_segstr_handle               
 */ ,
+	-901 /*   9 bad_segstr_id                   
 */ ,
+	-901 /*  10 bad_tpb_content                 
 */ ,
+	-901 /*  11 bad_tpb_form                    
 */ ,
+	-901 /*  12 bad_trans_handle                
 */ ,
+	-902 /*  13 bug_check                       
 */ ,
+	-413 /*  14 convert_error                   
 */ ,
+	-902 /*  15 db_corrupt                      
 */ ,
+	-913 /*  16 deadlock                        
 */ ,
+	-901 /*  17 excess_trans                    
 */ ,
+	100 /*  18 from_no_match                   
 */ ,
+	-901 /*  19 infinap                         
 */ ,
+	-901 /*  20 infona                          
 */ ,
+	-901 /*  21 infunk                          
 */ ,
+	-901 /*  22 integ_fail                      
 */ ,
+	-104 /*  23 invalid_blr                     
 */ ,
+	-902 /*  24 io_error                        
 */ ,
+	-901 /*  25 lock_conflict                   
 */ ,
+	-902 /*  26 metadata_corrupt                
 */ ,
+	-625 /*  27 not_valid                       
 */ ,
+	-508 /*  28 no_cur_rec                      
 */ ,
+	-803 /*  29 no_dup                          
 */ ,
+	-901 /*  30 no_finish                       
 */ ,
+	-607 /*  31 no_meta_update                  
 */ ,
+	-551 /*  32 no_priv                         
 */ ,
+	-901 /*  33 no_recon                        
 */ ,
+	100 /*  34 no_record                       
 */ ,
+	-901 /*  35 no_segstr_close                 
 */ ,
+	-820 /*  36 obsolete_metadata               
 */ ,
+	-901 /*  37 open_trans                      
 */ ,
+	-901 /*  38 port_len                        
 */ ,
+	-151 /*  39 read_only_field                 
 */ ,
+	-150 /*  40 read_only_rel                   
 */ ,
+	-817 /*  41 read_only_trans                 
 */ ,
+	-150 /*  42 read_only_view                  
 */ ,
+	-901 /*  43 req_no_trans                    
 */ ,
+	-901 /*  44 req_sync                        
 */ ,
+	-901 /*  45 req_wrong_db                    
 */ ,
+	101 /*  46 segment                         
 */ ,
+	100 /*  47 segstr_eof                      
 */ ,
+	-402 /*  48 segstr_no_op                    
 */ ,
+	-901 /*  49 segstr_no_read                  
 */ ,
+	-901 /*  50 segstr_no_trans                 
 */ ,
+	-817 /*  51 segstr_no_write                 
 */ ,
+	-901 /*  52 segstr_wrong_db                 
 */ ,
+	-902 /*  53 sys_request                     
 */ ,
+	100 /*  54 stream_eof                      
 */ ,
+	-904 /*  55 unavailable                     
 */ ,
+	-901 /*  56 unres_rel                       
 */ ,
+	-901 /*  57 uns_ext                         
 */ ,
+	-901 /*  58 wish_list                       
 */ ,
+	-820 /*  59 wrong_ods                       
 */ ,
+	-804 /*  60 wronumarg                       
 */ ,
+	-904 /*  61 imp_exc                         
 */ ,
+	-901 /*  62 random                          
 */ ,
+	-901 /*  63 fatal_conflict                  
 */ ,
+	-902 /*  64 badblk                          
 */ ,
+	-902 /*  65 invpoolcl                       
 */ ,
+	-904 /*  66 nopoolids                       
 */ ,
+	-902 /*  67 relbadblk                       
 */ ,
+	-902 /*  68 blktoobig                       
 */ ,
+	-904 /*  69 bufexh                          
 */ ,
+	-104 /*  70 syntaxerr                       
 */ ,
+	-904 /*  71 bufinuse                        
 */ ,
+	-901 /*  72 bdbincon                        
 */ ,
+	-904 /*  73 reqinuse                        
 */ ,
+	-902 /*  74 badodsver                       
 */ ,
+	-219 /*  75 relnotdef                       
 */ ,
+	-205 /*  76 fldnotdef                       
 */ ,
+	-902 /*  77 dirtypage                       
 */ ,
+	-902 /*  78 waifortra                       
 */ ,
+	-902 /*  79 doubleloc                       
 */ ,
+	-902 /*  80 nodnotfnd                       
 */ ,
+	-902 /*  81 dupnodfnd                       
 */ ,
+	-902 /*  82 locnotmar                       
 */ ,
+	-689 /*  83 badpagtyp                       
 */ ,
+	-902 /*  84 corrupt                         
 */ ,
+	-902 /*  85 badpage                         
 */ ,
+	-902 /*  86 badindex                        
 */ ,
+	-901 /*  87 dbbnotzer                       
 */ ,
+	-901 /*  88 tranotzer                       
 */ ,
+	-902 /*  89 trareqmis                       
 */ ,
+	-902 /*  90 badhndcnt                       
 */ ,
+	-902 /*  91 wrotpbver                       
 */ ,
+	-902 /*  92 wroblrver                       
 */ ,
+	-902 /*  93 wrodpbver                       
 */ ,
+	-402 /*  94 blobnotsup                      
 */ ,
+	-902 /*  95 badrelation                     
 */ ,
+	-902 /*  96 nodetach                        
 */ ,
+	-902 /*  97 notremote                       
 */ ,
+	-901 /*  98 trainlim                        
 */ ,
+	-901 /*  99 notinlim                        
 */ ,
+	-901 /* 100 traoutsta                       
 */ ,
+	-923 /* 101 connect_reject                  
 */ ,
+	-902 /* 102 dbfile                          
 */ ,
+	-902 /* 103 orphan                          
 */ ,
+	-904 /* 104 no_lock_mgr                     
 */ ,
+	-104 /* 105 ctxinuse                        
 */ ,
+	-104 /* 106 ctxnotdef                       
 */ ,
+	-402 /* 107 datnotsup                       
 */ ,
+	-901 /* 108 badmsgnum                       
 */ ,
+	-104 /* 109 badparnum                       
 */ ,
+	-904 /* 110 virmemexh                       
 */ ,
+	-901 /* 111 blocking_signal                 
 */ ,
+	-902 /* 112 lockmanerr                      
 */ ,
+	-924 /* 113 journerr                        
 */ ,
+	-664 /* 114 keytoobig                       
 */ ,
+	-407 /* 115 nullsegkey                      
 */ ,
+	-902 /* 116 sqlerr                          
 */ ,
+	-820 /* 117 wrodynver                       
 */ ,
+	-172 /* 118 funnotdef                       
 */ ,
+	-171 /* 119 funmismat                       
 */ ,
+	-104 /* 120 bad_msg_vec                     
 */ ,
+	-924 /* 121 bad_detach                      
 */ ,
+	-901 /* 122 noargacc_read                   
 */ ,
+	-901 /* 123 noargacc_write                  
 */ ,
+	-817 /* 124 read_only                       
 */ ,
+	-677 /* 125 ext_err                         
 */ ,
+	-150 /* 126 non_updatable                   
 */ ,
+	-926 /* 127 no_rollback                     
 */ ,
+	-902 /* 128 bad_sec_info                    
 */ ,
+	-902 /* 129 invalid_sec_info                
 */ ,
+	-901 /* 130 misc_interpreted                
 */ ,
+	-904 /* 131 update_conflict                 
 */ ,
+	-906 /* 132 unlicensed                      
 */ ,
+	-904 /* 133 obj_in_use                      
 */ ,
+	-413 /* 134 nofilter                        
 */ ,
+	-904 /* 135 shadow_accessed                 
 */ ,
+	-104 /* 136 invalid_sdl                     
 */ ,
+	-406 /* 137 out_of_bounds                   
 */ ,
+	-171 /* 138 invalid_dimension               
 */ ,
+	-911 /* 139 rec_in_limbo                    
 */ ,
+	-904 /* 140 shadow_missing                  
 */ ,
+	-923 /* 141 cant_validate                   
 */ ,
+	-923 /* 142 cant_start_journal              
 */ ,
+	-204 /* 143 gennotdef                       
 */ ,
+	-923 /* 144 cant_start_logging              
 */ ,
+	-685 /* 145 bad_segstr_type                 
 */ ,
+	-530 /* 146 foreign_key                     
 */ ,
+	-820 /* 147 high_minor                      
 */ ,
+	-901 /* 148 tra_state                       
 */ ,
+	-532 /* 149 trans_invalid                   
 */ ,
+	-902 /* 150 buf_invalid                     
 */ ,
+	-902 /* 151 indexnotdefined                 
 */ ,
+	-902 /* 152 login                           
 */ ,
+	-823 /* 153 invalid_bookmark                
 */ ,
+	-824 /* 154 bad_lock_level                  
 */ ,
+	-615 /* 155 relation_lock                   
 */ ,
+	-615 /* 156 record_lock                     
 */ ,
+	-692 /* 157 max_idx                         
 */ ,
+	-902 /* 158 jrn_enable                      
 */ ,
+	-902 /* 159 old_failure                     
 */ ,
+	-902 /* 160 old_in_progress                 
 */ ,
+	-902 /* 161 old_no_space                    
 */ ,
+	-902 /* 162 no_wal_no_jrn                   
 */ ,
+	-902 /* 163 num_old_files                   
 */ ,
+	-902 /* 164 wal_file_open                   
 */ ,
+	-901 /* 165 bad_stmt_handle                 
 */ ,
+	-902 /* 166 wal_failure                     
 */ ,
+	-230 /* 167 walw_err                        
 */ ,
+	-231 /* 168 logh_small                      
 */ ,
+	-232 /* 169 logh_inv_version                
 */ ,
+	-233 /* 170 logh_open_flag                  
 */ ,
+	-234 /* 171 logh_open_flag2                 
 */ ,
+	-235 /* 172 logh_diff_dbname                
 */ ,
+	-236 /* 173 logf_unexpected_eof             
 */ ,
+	-237 /* 174 logr_incomplete                 
 */ ,
+	-238 /* 175 logr_header_small               
 */ ,
+	-239 /* 176 logb_small                      
 */ ,
+	-240 /* 177 wal_illegal_attach              
 */ ,
+	-241 /* 178 wal_invalid_wpb                 
 */ ,
+	-242 /* 179 wal_err_rollover                
 */ ,
+	-243 /* 180 no_wal                          
 */ ,
+	-615 /* 181 drop_wal                        
 */ ,
+	-204 /* 182 stream_not_defined              
 */ ,
+	-244 /* 183 wal_subsys_error                
 */ ,
+	-245 /* 184 wal_subsys_corrupt              
 */ ,
+	-902 /* 185 no_archive                      
 */ ,
+	-902 /* 186 shutinprog                      
 */ ,
+	-615 /* 187 range_in_use                    
 */ ,
+	-834 /* 188 range_not_found                 
 */ ,
+	-204 /* 189 charset_not_found               
 */ ,
+	-901 /* 190 lock_timeout                    
 */ ,
+	-204 /* 191 prcnotdef                       
 */ ,
+	-170 /* 192 prcmismat                       
 */ ,
+	-246 /* 193 wal_bugcheck                    
 */ ,
+	-247 /* 194 wal_cant_expand                 
 */ ,
+	-204 /* 195 codnotdef                       
 */ ,
+	-204 /* 196 xcpnotdef                       
 */ ,
+	-836 /* 197 except                          
 */ ,
+	-837 /* 198 cache_restart                   
 */ ,
+	-825 /* 199 bad_lock_handle                 
 */ ,
+	-902 /* 200 jrn_present                     
 */ ,
+	-248 /* 201 wal_err_rollover2               
 */ ,
+	-249 /* 202 wal_err_logwrite                
 */ ,
+	-250 /* 203 wal_err_jrn_comm                
 */ ,
+	-251 /* 204 wal_err_expansion               
 */ ,
+	-252 /* 205 wal_err_setup                   
 */ ,
+	-253 /* 206 wal_err_ww_sync                 
 */ ,
+	-254 /* 207 wal_err_ww_start                
 */ ,
+	-902 /* 208 shutdown                        
 */ ,
+	-553 /* 209 existing_priv_mod               
 */ ,
+	-616 /* 210 primary_key_ref                 
 */ ,
+	-291 /* 211 primary_key_notnull             
 */ ,
+	-204 /* 212 ref_cnstrnt_notfound            
 */ ,
+	-660 /* 213 foreign_key_notfound            
 */ ,
+	-292 /* 214 ref_cnstrnt_update              
 */ ,
+	-293 /* 215 check_cnstrnt_update            
 */ ,
+	-294 /* 216 check_cnstrnt_del               
 */ ,
+	-618 /* 217 integ_index_seg_del             
 */ ,
+	-618 /* 218 integ_index_seg_mod             
 */ ,
+	-616 /* 219 integ_index_del                 
 */ ,
+	-616 /* 220 integ_index_mod                 
 */ ,
+	-616 /* 221 check_trig_del                  
 */ ,
+	-617 /* 222 check_trig_update               
 */ ,
+	-616 /* 223 cnstrnt_fld_del                 
 */ ,
+	-617 /* 224 cnstrnt_fld_rename              
 */ ,
+	-295 /* 225 rel_cnstrnt_update              
 */ ,
+	-150 /* 226 constaint_on_view               
 */ ,
+	-296 /* 227 invld_cnstrnt_type              
 */ ,
+	-831 /* 228 primary_key_exists              
 */ ,
+	-607 /* 229 systrig_update                  
 */ ,
+	-552 /* 230 not_rel_owner                   
 */ ,
+	-204 /* 231 grant_obj_notfound              
 */ ,
+	-205 /* 232 grant_fld_notfound              
 */ ,
+	-552 /* 233 grant_nopriv                    
 */ ,
+	-84 /* 234 nonsql_security_rel             
 */ ,
+	-84 /* 235 nonsql_security_fld             
 */ ,
+	-255 /* 236 wal_cache_err                   
 */ ,
+	-902 /* 237 shutfail                        
 */ ,
+	-297 /* 238 check_constraint                
 */ ,
+	-901 /* 239 bad_svc_handle                  
 */ ,
+	-838 /* 240 shutwarn                        
 */ ,
+	-901 /* 241 wrospbver                       
 */ ,
+	-901 /* 242 bad_spb_form                    
 */ ,
+	-901 /* 243 svcnotdef                       
 */ ,
+	-902 /* 244 no_jrn                          
 */ ,
+	-314 /* 245 transliteration_failed          
 */ ,
+	-257 /* 246 start_cm_for_wal                
 */ ,
+	-258 /* 247 wal_ovflow_log_required         
 */ ,
+	-204 /* 248 text_subtype                    
 */ ,
+	-902 /* 249 dsql_error                      
 */ ,
+	-104 /* 250 dsql_command_err                
 */ ,
+	-103 /* 251 dsql_constant_err               
 */ ,
+	-504 /* 252 dsql_cursor_err                 
 */ ,
+	-204 /* 253 dsql_datatype_err               
 */ ,
+	-502 /* 254 dsql_decl_err                   
 */ ,
+	-510 /* 255 dsql_cursor_update_err          
 */ ,
+	-502 /* 256 dsql_cursor_open_err            
 */ ,
+	-501 /* 257 dsql_cursor_close_err           
 */ ,
+	-206 /* 258 dsql_field_err                  
 */ ,
+	-104 /* 259 dsql_internal_err               
 */ ,
+	-204 /* 260 dsql_relation_err               
 */ ,
+	-204 /* 261 dsql_procedure_err              
 */ ,
+	-518 /* 262 dsql_request_err                
 */ ,
+	-804 /* 263 dsql_sqlda_err                  
 */ ,
+	-804 /* 264 dsql_var_count_err              
 */ ,
+	-826 /* 265 dsql_stmt_handle                
 */ ,
+	-804 /* 266 dsql_function_err               
 */ ,
+	-206 /* 267 dsql_blob_err                   
 */ ,
+	-204 /* 268 collation_not_found             
 */ ,
+	-204 /* 269 collation_not_for_charset       
 */ ,
+	-104 /* 270 dsql_dup_option                 
 */ ,
+	-104 /* 271 dsql_tran_err                   
 */ ,
+	-104 /* 272 dsql_invalid_array              
 */ ,
+	-604 /* 273 dsql_max_arr_dim_exceeded       
 */ ,
+	-604 /* 274 dsql_arr_range_error            
 */ ,
+	-204 /* 275 dsql_trigger_err                
 */ ,
+	-206 /* 276 dsql_subselect_err              
 */ ,
+	-531 /* 277 dsql_crdb_prepare_err           
 */ ,
+	-157 /* 278 specify_field_err               
 */ ,
+	-158 /* 279 num_field_err                   
 */ ,
+	-806 /* 280 col_name_err                    
 */ ,
+	-807 /* 281 where_err                       
 */ ,
+	-808 /* 282 table_view_err                  
 */ ,
+	-809 /* 283 distinct_err                    
 */ ,
+	-832 /* 284 key_field_count_err             
 */ ,
+	-810 /* 285 subquery_err                    
 */ ,
+	-833 /* 286 expression_eval_err             
 */ ,
+	-599 /* 287 node_err                        
 */ ,
+	-104 /* 288 command_end_err                 
 */ ,
+	-901 /* 289 index_name                      
 */ ,
+	-901 /* 290 exception_name                  
 */ ,
+	-901 /* 291 field_name                      
 */ ,
+	-104 /* 292 token_err                       
 */ ,
+	-901 /* 293 union_err                       
 */ ,
+	-901 /* 294 dsql_construct_err              
 */ ,
+	-830 /* 295 field_aggregate_err             
 */ ,
+	-829 /* 296 field_ref_err                   
 */ ,
+	-208 /* 297 order_by_err                    
 */ ,
+	-171 /* 298 return_mode_err                 
 */ ,
+	-170 /* 299 extern_func_err                 
 */ ,
+	-204 /* 300 alias_conflict_err              
 */ ,
+	-204 /* 301 procedure_conflict_error        
 */ ,
+	-204 /* 302 relation_conflict_err           
 */ ,
+	-901 /* 303 dsql_domain_err                 
 */ ,
+	-663 /* 304 idx_seg_err                     
 */ ,
+	-599 /* 305 node_name_err                   
 */ ,
+	-901 /* 306 table_name                      
 */ ,
+	-901 /* 307 proc_name                       
 */ ,
+	-660 /* 308 idx_create_err                  
 */ ,
+	-259 /* 309 wal_shadow_err                  
 */ ,
+	-616 /* 310 dependency                      
 */ ,
+	-663 /* 311 idx_key_err                     
 */ ,
+	-597 /* 312 dsql_file_length_err            
 */ ,
+	-598 /* 313 dsql_shadow_number_err          
 */ ,
+	-104 /* 314 dsql_token_unk_err              
 */ ,
+	-204 /* 315 dsql_no_relation_alias          
 */ ,
+	-204 /* 316 indexname                       
 */ ,
+	-281 /* 317 no_stream_plan                  
 */ ,
+	-282 /* 318 stream_twice                    
 */ ,
+	-283 /* 319 stream_not_found                
 */ ,
+	-204 /* 320 collation_requires_text         
 */ ,
+	-901 /* 321 dsql_domain_not_found           
 */ ,
+	-284 /* 322 index_unused                    
 */ ,
+	-282 /* 323 dsql_self_join                  
 */ ,
+	-596 /* 324 stream_bof                      
 */ ,
+	-595 /* 325 stream_crack                    
 */ ,
+	-601 /* 326 db_or_file_exists               
 */ ,
+	-401 /* 327 invalid_operator                
 */ ,
+	-924 /* 328 conn_lost                       
 */ ,
+	-835 /* 329 bad_checksum                    
 */ ,
+	-689 /* 330 page_type_err                   
 */ ,
+	-816 /* 331 ext_readonly_err                
 */ ,
+	-811 /* 332 sing_select_err                 
 */ ,
+	-902 /* 333 psw_attach                      
 */ ,
+	-902 /* 334 psw_start_trans                 
 */ ,
+	-827 /* 335 invalid_direction               
 */ ,
+	-901 /* 336 dsql_var_conflict               
 */ ,
+	-607 /* 337 dsql_no_blob_array              
 */ ,
+	-155 /* 338 dsql_base_table                 
 */ ,
+	-282 /* 339 duplicate_base_table            
 */ ,
+	-282 /* 340 view_alias                      
 */ ,
+	-904 /* 341 index_root_page_full            
 */ ,
+	-204 /* 342 dsql_blob_type_unknown          
 */ ,
+	-693 /* 343 req_max_clones_exceeded         
 */ ,
+	-637 /* 344 dsql_duplicate_spec             
 */ ,
+	-803 /* 345 unique_key_violation            
 */ ,
+	-901 /* 346 srvr_version_too_old            
 */ ,
+	-909 /* 347 drdb_completed_with_errs        
 */ ,
+	-84 /* 348 dsql_procedure_use_err          
 */ ,
+	-313 /* 349 dsql_count_mismatch             
 */ ,
+	-685 /* 350 blob_idx_err                    
 */ ,
+	-685 /* 351 array_idx_err                   
 */ ,
+	-663 /* 352 key_field_err                   
 */ ,
+	-901 /* 353 no_delete                       
 */ ,
+	-616 /* 354 del_last_field                  
 */ ,
+	-901 /* 355 sort_err                        
 */ ,
+	-904 /* 356 sort_mem_err                    
 */ ,
+	-841 /* 357 version_err                     
 */ ,
+	-828 /* 358 inval_key_posn                  
 */ ,
+	-690 /* 359 no_segments_err                 
 */ ,
+	-600 /* 360 crrp_data_err                   
 */ ,
+	-691 /* 361 rec_size_err                    
 */ ,
+	-605 /* 362 dsql_field_ref                  
 */ ,
+	-904 /* 363 req_depth_exceeded              
 */ ,
+	-694 /* 364 no_field_access                 
 */ ,
+	-162 /* 365 no_dbkey                        
 */ ,
+	-839 /* 366 jrn_format_err                  
 */ ,
+	-840 /* 367 jrn_file_full                   
 */ ,
+	-519 /* 368 dsql_open_cursor_request        
 */ ,
+	-999 /* 369 ib_error                        
 */ ,
+	-260 /* 370 cache_redef                     
 */ ,
+	-239 /* 371 cache_too_small                 
 */ ,
+	-260 /* 372 log_redef                       
 */ ,
+	-239 /* 373 log_too_small                   
 */ ,
+	-239 /* 374 partition_too_small             
 */ ,
+	-261 /* 375 partition_not_supp              
 */ ,
+	-261 /* 376 log_length_spec                 
 */ ,
+	-842 /* 377 precision_err                   
 */ ,
+	-842 /* 378 scale_nogt                      
 */ ,
+	-842 /* 379 expec_short                     
 */ ,
+	-842 /* 380 expec_long                      
 */ ,
+	-842 /* 381 expec_ushort                    
 */ ,
+	-105 /* 382 like_escape_invalid             
 */ ,
+	-901 /* 383 svcnoexe                        
 */ ,
+	-901 /* 384 net_lookup_err                  
 */ ,
+	-901 /* 385 service_unknown                 
 */ ,
+	-901 /* 386 host_unknown                    
 */ ,
+	-552 /* 387 grant_nopriv_on_base            
 */ ,
+	-203 /* 388 dyn_fld_ambiguous               
 */ ,
+	-104 /* 389 dsql_agg_ref_err                
 */ ,
+	-282 /* 390 complex_view                    
 */ ,
+	-901 /* 391 unprepared_stmt                 
 */ ,
+	-842 /* 392 expec_positive                  
 */ ,
+	-804 /* 393 dsql_sqlda_value_err            
 */ ,
+	-104 /* 394 invalid_array_id                
 */ ,
+	-816 /* 395 extfile_uns_op                  
 */ ,
+	-901 /* 396 svc_in_use                      
 */ ,
+	-902 /* 397 err_stack_limit                 
 */ ,
+	-827 /* 398 invalid_key                     
 */ ,
+	-901 /* 399 net_init_error                  
 */ ,
+	-901 /* 400 loadlib_failure                 
 */ ,
+	-902 /* 401 network_error                   
 */ ,
+	-902 /* 402 net_connect_err                 
 */ ,
+	-902 /* 403 net_connect_listen_err          
 */ ,
+	-902 /* 404 net_event_connect_err           
 */ ,
+	-902 /* 405 net_event_listen_err            
 */ ,
+	-902 /* 406 net_read_err                    
 */ ,
+	-902 /* 407 net_write_err                   
 */ ,
+	-616 /* 408 integ_index_deactivate          
 */ ,
+	-616 /* 409 integ_deactivate_primary        
 */ ,
+	-104 /* 410 cse_not_supported               
 */ ,
+	-901 /* 411 tra_must_sweep                  
 */ ,
+	-902 /* 412 unsupported_network_drive       
 */ ,
+	-902 /* 413 io_create_err                   
 */ ,
+	-902 /* 414 io_open_err                     
 */ ,
+	-902 /* 415 io_close_err                    
 */ ,
+	-902 /* 416 io_read_err                     
 */ ,
+	-902 /* 417 io_write_err                    
 */ ,
+	-902 /* 418 io_delete_err                   
 */ ,
+	-902 /* 419 io_access_err                   
 */ ,
+	-901 /* 420 udf_exception                   
 */ ,
+	-901 /* 421 lost_db_connection              
 */ ,
+	-901 /* 422 no_write_user_priv              
 */ ,
+	-104 /* 423 token_too_long                  
 */ ,
+	-906 /* 424 max_att_exceeded                
 */ ,
+	-902 /* 425 login_same_as_role_name         
 */ ,
+	-607 /* 426 reftable_requires_pk            
 */ ,
+	-85 /* 427 usrname_too_long                
 */ ,
+	-85 /* 428 password_too_long               
 */ ,
+	-85 /* 429 usrname_required                
 */ ,
+	-85 /* 430 password_required               
 */ ,
+	-85 /* 431 bad_protocol                    
 */ ,
+	-85 /* 432 dup_usrname_found               
 */ ,
+	-85 /* 433 usrname_not_found               
 */ ,
+	-85 /* 434 error_adding_sec_record         
 */ ,
+	-85 /* 435 error_modifying_sec_record      
 */ ,
+	-85 /* 436 error_deleting_sec_record       
 */ ,
+	-85 /* 437 error_updating_sec_db           
 */ ,
+	-904 /* 438 sort_rec_size_err               
 */ ,
+	-204 /* 439 bad_default_value               
 */ ,
+	-204 /* 440 invalid_clause                  
 */ ,
+	-904 /* 441 too_many_handles                
 */ ,
+	-904 /* 442 optimizer_blk_exc               
 */ ,
+	-104 /* 443 invalid_string_constant         
 */ ,
+	-104 /* 444 transitional_date               
 */ ,
+	-817 /* 445 read_only_database              
 */ ,
+	-817 /* 446 must_be_dialect_2_and_up        
 */ ,
+	-901 /* 447 blob_filter_exception           
 */ ,
+	-901 /* 448 exception_access_violation      
 */ ,
+	-901 /* 449 exception_datatype_missalignment
 */ ,
+	-901 /* 450 exception_array_bounds_exceeded 
 */ ,
+	-901 /* 451 exception_float_denormal_operand
 */ ,
+	-901 /* 452 exception_float_divide_by_zero  
 */ ,
+	-901 /* 453 exception_float_inexact_result  
 */ ,
+	-901 /* 454 exception_float_invalid_operand 
 */ ,
+	-901 /* 455 exception_float_overflow        
 */ ,
+	-901 /* 456 exception_float_stack_check     
 */ ,
+	-901 /* 457 exception_float_underflow       
 */ ,
+	-901 /* 458 exception_integer_divide_by_zero
 */ ,
+	-901 /* 459 exception_integer_overflow      
 */ ,
+	-901 /* 460 exception_unknown               
 */ ,
+	-901 /* 461 exception_stack_overflow        
 */ ,
+	-901 /* 462 exception_sigsegv               
 */ ,
+	-901 /* 463 exception_sigill                
 */ ,
+	-901 /* 464 exception_sigbus                
 */ ,
+	-901 /* 465 exception_sigfpe                
 */ ,
+	-901 /* 466 ext_file_delete                 
 */ ,
+	-901 /* 467 ext_file_modify                 
 */ ,
+	-901 /* 468 adm_task_denied                 
 */ ,
+	-105 /* 469 extract_input_mismatch          
 */ ,
+	-551 /* 470 insufficient_svc_privileges     
 */ ,
+	-902 /* 471 file_in_use                     
 */ ,
+	-904 /* 472 service_att_err                 
 */ ,
+	-817 /* 473 ddl_not_allowed_by_db_sql_dial  
 */ ,
+	-901 /* 474 cancelled                       
 */ ,
+	-902 /* 475 unexp_spb_form                  
 */ ,
+	-104 /* 476 sql_dialect_datatype_unsupport  
 */ ,
+	-901 /* 477 svcnouser                       
 */ ,
+	-104 /* 478 depend_on_uncommitted_rel       
 */ ,
+	-904 /* 479 svc_name_missing                
 */ ,
+	-204 /* 480 too_many_contexts               
 */ ,
+	-901 /* 481 datype_notsup                   
 */ ,
+	501 /* 482 dialect_reset_warning           
 */ ,
+	-901 /* 483 dialect_not_changed             
 */ ,
+	-901 /* 484 database_create_failed          
 */ ,
+	-901 /* 485 inv_dialect_specified           
 */ ,
+	-901 /* 486 valid_db_dialects               
 */ ,
+	300 /* 487 sqlwarn                         
 */ ,
+	301 /* 488 dtype_renamed                   
 */ ,
+	-902 /* 489 extern_func_dir_error           
 */ ,
+	-833 /* 490 date_range_exceeded             
 */ ,
+	-901 /* 491 inv_client_dialect_specified    
 */ ,
+	-901 /* 492 valid_client_dialects           
 */ ,
+	-904 /* 493 optimizer_between_err           
 */ ,
+	-901 /* 494 service_not_supported           
 */ ,
+	-901 /*   1 gfix_db_name                    
 */ ,
+	-901 /*   2 gfix_invalid_sw                 
 */ ,
+	-901 /*   4 gfix_incmp_sw                   
 */ ,
+	-901 /*   5 gfix_replay_req                 
 */ ,
+	-901 /*   6 gfix_pgbuf_req                  
 */ ,
+	-901 /*   7 gfix_val_req                    
 */ ,
+	-901 /*   8 gfix_pval_req                   
 */ ,
+	-901 /*   9 gfix_trn_req                    
 */ ,
+	-901 /*  12 gfix_full_req                   
 */ ,
+	-901 /*  13 gfix_usrname_req                
 */ ,
+	-901 /*  14 gfix_pass_req                   
 */ ,
+	-901 /*  15 gfix_subs_name                  
 */ ,
+	-901 /*  16 gfix_wal_req                    
 */ ,
+	-901 /*  17 gfix_sec_req                    
 */ ,
+	-901 /*  18 gfix_nval_req                   
 */ ,
+	-901 /*  19 gfix_type_shut                  
 */ ,
+	-901 /*  20 gfix_retry                      
 */ ,
+	-901 /*  23 gfix_retry_db                   
 */ ,
+	-901 /*  63 gfix_exceed_max                 
 */ ,
+	-901 /*  64 gfix_corrupt_pool               
 */ ,
+	-901 /*  65 gfix_mem_exhausted              
 */ ,
+	-901 /*  66 gfix_bad_pool                   
 */ ,
+	-901 /*  67 gfix_trn_not_valid              
 */ ,
+	-901 /*  84 gfix_unexp_eoi                  
 */ ,
+	-901 /*  90 gfix_recon_fail                 
 */ ,
+	-901 /* 108 gfix_trn_unknown                
 */ ,
+	-901 /* 110 gfix_mode_req                   
 */ ,
+	0 /* 111 gfix_opt_SQL_dialect            
 */ ,
+	-607 /*   2 dsql_dbkey_from_non_table       
 */ ,
+	-104 /*   3 dsql_transitional_numeric       
 */ ,
+	301 /*   4 dsql_dialect_warning_expr       
 */ ,
+	-104 /*   5 sql_db_dialect_dtype_unsupport  
 */ ,
+	-817 /*   7 isc_sql_dialect_conflict_num    
 */ ,
+	301 /*   8 dsql_warning_number_ambiguous   
 */ ,
+	301 /*   9 dsql_warning_number_ambiguous1  
 */ ,
+	301 /*  10 dsql_warn_precision_ambiguous   
 */ ,
+	301 /*  11 dsql_warn_precision_ambiguous1  
 */ ,
+	301 /*  12 dsql_warn_precision_ambiguous2  
 */ ,
+	-901 /* 188 dyn_role_does_not_exist         
 */ ,
+	-901 /* 189 dyn_no_grant_admin_opt          
 */ ,
+	-901 /* 190 dyn_user_not_role_member        
 */ ,
+	-901 /* 191 dyn_delete_role_failed          
 */ ,
+	-901 /* 192 dyn_grant_role_to_user          
 */ ,
+	-901 /* 193 dyn_inv_sql_role_name           
 */ ,
+	-901 /* 194 dyn_dup_sql_role                
 */ ,
+	-901 /* 195 dyn_kywd_spec_for_role          
 */ ,
+	-901 /* 196 dyn_roles_not_supported         
 */ ,
+	-612 /* 204 dyn_domain_name_exists          
 */ ,
+	-612 /* 205 dyn_field_name_exists           
 */ ,
+	-383 /* 206 dyn_dependency_exists           
 */ ,
+	-315 /* 207 dyn_dtype_invalid               
 */ ,
+	-829 /* 208 dyn_char_fld_too_small          
 */ ,
+	-829 /* 209 dyn_invalid_dtype_conversion    
 */ ,
+	-829 /* 210 dyn_dtype_conv_invalid          
 */ ,
+	-901 /*   1 gbak_unknown_switch             
 */ ,
+	-901 /*   2 gbak_page_size_missing          
 */ ,
+	-901 /*   3 gbak_page_size_toobig           
 */ ,
+	-901 /*   4 gbak_redir_ouput_missing        
 */ ,
+	-901 /*   5 gbak_switches_conflict          
 */ ,
+	-901 /*   6 gbak_unknown_device             
 */ ,
+	-901 /*   7 gbak_no_protection              
 */ ,
+	-901 /*   8 gbak_page_size_not_allowed      
 */ ,
+	-901 /*   9 gbak_multi_source_dest          
 */ ,
+	-901 /*  10 gbak_filename_missing           
 */ ,
+	-901 /*  11 gbak_dup_inout_names            
 */ ,
+	-901 /*  12 gbak_inv_page_size              
 */ ,
+	-901 /*  13 gbak_db_specified               
 */ ,
+	-901 /*  14 gbak_db_exists                  
 */ ,
+	-901 /*  15 gbak_unk_device                 
 */ ,
+	-901 /*  20 gbak_blob_info_failed           
 */ ,
+	-901 /*  21 gbak_unk_blob_item              
 */ ,
+	-901 /*  22 gbak_get_seg_failed             
 */ ,
+	-901 /*  23 gbak_close_blob_failed          
 */ ,
+	-901 /*  24 gbak_open_blob_failed           
 */ ,
+	-901 /*  25 gbak_put_blr_gen_id_failed      
 */ ,
+	-901 /*  26 gbak_unk_type                   
 */ ,
+	-901 /*  27 gbak_comp_req_failed            
 */ ,
+	-901 /*  28 gbak_start_req_failed           
 */ ,
+	-901 /*  29 gbak_rec_failed                 
 */ ,
+	-901 /*  30 gbak_rel_req_failed             
 */ ,
+	-901 /*  31 gbak_db_info_failed             
 */ ,
+	-901 /*  32 gbak_no_db_desc                 
 */ ,
+	-901 /*  33 gbak_db_create_failed           
 */ ,
+	-901 /*  34 gbak_decomp_len_error           
 */ ,
+	-901 /*  35 gbak_tbl_missing                
 */ ,
+	-901 /*  36 gbak_blob_col_missing           
 */ ,
+	-901 /*  37 gbak_create_blob_failed         
 */ ,
+	-901 /*  38 gbak_put_seg_failed             
 */ ,
+	-901 /*  39 gbak_rec_len_exp                
 */ ,
+	-901 /*  40 gbak_inv_rec_len                
 */ ,
+	-901 /*  41 gbak_exp_data_type              
 */ ,
+	-901 /*  42 gbak_gen_id_failed              
 */ ,
+	-901 /*  43 gbak_unk_rec_type               
 */ ,
+	-901 /*  44 gbak_inv_bkup_ver               
 */ ,
+	-901 /*  45 gbak_missing_bkup_desc          
 */ ,
+	-901 /*  46 gbak_string_trunc               
 */ ,
+	-901 /*  47 gbak_cant_rest_record           
 */ ,
+	-901 /*  48 gbak_send_failed                
 */ ,
+	-901 /*  49 gbak_no_tbl_name                
 */ ,
+	-901 /*  50 gbak_unexp_eof                  
 */ ,
+	-901 /*  51 gbak_db_format_too_old          
 */ ,
+	-901 /*  52 gbak_inv_array_dim              
 */ ,
+	-901 /*  55 gbak_xdr_len_expected           
 */ ,
+	-901 /*  65 gbak_open_bkup_error            
 */ ,
+	-901 /*  66 gbak_open_error                 
 */ ,
+	-901 /* 182 gbak_missing_block_fac          
 */ ,
+	-901 /* 183 gbak_inv_block_fac              
 */ ,
+	-901 /* 184 gbak_block_fac_specified        
 */ ,
+	-901 /* 188 gbak_missing_username           
 */ ,
+	-901 /* 189 gbak_missing_password           
 */ ,
+	-901 /* 200 gbak_missing_skipped_bytes      
 */ ,
+	-901 /* 201 gbak_inv_skipped_bytes          
 */ ,
+	-901 /* 213 gbak_err_restore_charset        
 */ ,
+	-901 /* 215 gbak_err_restore_collation      
 */ ,
+	-901 /* 220 gbak_read_error                 
 */ ,
+	-901 /* 221 gbak_write_error                
 */ ,
+	-901 /* 233 gbak_db_in_use                  
 */ ,
+	-901 /* 238 gbak_sysmemex                   
 */ ,
+	-901 /* 250 gbak_restore_role_failed        
 */ ,
+	-901 /* 253 gbak_role_op_missing            
 */ ,
+	-901 /* 258 gbak_page_buffers_missing       
 */ ,
+	-901 /* 259 gbak_page_buffers_wrong_param   
 */ ,
+	-901 /* 260 gbak_page_buffers_restore       
 */ ,
+	-901 /* 262 gbak_inv_size                   
 */ ,
+	-901 /* 263 gbak_file_outof_sequence        
 */ ,
+	-901 /* 264 gbak_join_file_missing          
 */ ,
+	-901 /* 265 gbak_stdin_not_supptd           
 */ ,
+	-901 /* 266 gbak_stdout_not_supptd          
 */ ,
+	-901 /* 267 gbak_bkup_corrupt               
 */ ,
+	-901 /* 268 gbak_unk_db_file_spec           
 */ ,
+	-901 /* 269 gbak_hdr_write_failed           
 */ ,
+	-901 /* 270 gbak_disk_space_ex              
 */ ,
+	-901 /* 271 gbak_size_lt_min                
 */ ,
+	-901 /* 273 gbak_svc_name_missing           
 */ ,
+	-901 /* 274 gbak_not_ownr                   
 */ ,
+	-901 /* 279 gbak_mode_req                   
 */ ,
+	-901 /*  15 gsec_cant_open_db               
 */ ,
+	-901 /*  16 gsec_switches_error             
 */ ,
+	-901 /*  17 gsec_no_op_spec                 
 */ ,
+	-901 /*  18 gsec_no_usr_name                
 */ ,
+	-901 /*  19 gsec_err_add                    
 */ ,
+	-901 /*  20 gsec_err_modify                 
 */ ,
+	-901 /*  21 gsec_err_find_mod               
 */ ,
+	-901 /*  22 gsec_err_rec_not_found          
 */ ,
+	-901 /*  23 gsec_err_delete                 
 */ ,
+	-901 /*  24 gsec_err_find_del               
 */ ,
+	-901 /*  28 gsec_err_find_disp              
 */ ,
+	-901 /*  29 gsec_inv_param                  
 */ ,
+	-901 /*  30 gsec_op_specified               
 */ ,
+	-901 /*  31 gsec_pw_specified               
 */ ,
+	-901 /*  32 gsec_uid_specified              
 */ ,
+	-901 /*  33 gsec_gid_specified              
 */ ,
+	-901 /*  34 gsec_proj_specified             
 */ ,
+	-901 /*  35 gsec_org_specified              
 */ ,
+	-901 /*  36 gsec_fname_specified            
 */ ,
+	-901 /*  37 gsec_mname_specified            
 */ ,
+	-901 /*  38 gsec_lname_specified            
 */ ,
+	-901 /*  40 gsec_inv_switch                 
 */ ,
+	-901 /*  41 gsec_amb_switch                 
 */ ,
+	-901 /*  42 gsec_no_op_specified            
 */ ,
+	-901 /*  43 gsec_params_not_allowed         
 */ ,
+	-901 /*  44 gsec_incompat_switch            
 */ ,
+	-901 /*  76 gsec_inv_username               
 */ ,
+	-901 /*  77 gsec_inv_pw_length              
 */ ,
+	-901 /*  78 gsec_db_specified               
 */ ,
+	-901 /*  79 gsec_db_admin_specified         
 */ ,
+	-901 /*  80 gsec_db_admin_pw_specified      
 */ ,
+	-901 /*  81 gsec_sql_role_specified         
 */ ,
+	-901 /*   0 license_no_file                 
 */ ,
+	-901 /*  19 license_op_specified            
 */ ,
+	-901 /*  20 license_op_missing              
 */ ,
+	-901 /*  21 license_inv_switch              
 */ ,
+	-901 /*  22 license_inv_switch_combo        
 */ ,
+	-901 /*  23 license_inv_op_combo            
 */ ,
+	-901 /*  24 license_amb_switch              
 */ ,
+	-901 /*  25 license_inv_parameter           
 */ ,
+	-901 /*  26 license_param_specified         
 */ ,
+	-901 /*  27 license_param_req               
 */ ,
+	-901 /*  28 license_syntx_error             
 */ ,
+	-901 /*  30 license_dup_id                  
 */ ,
+	-901 /*  31 license_inv_id_key              
 */ ,
+	-901 /*  32 license_err_remove              
 */ ,
+	-901 /*  33 license_err_update              
 */ ,
+	-901 /*  34 license_err_convert             
 */ ,
+	-901 /*  35 license_err_unk                 
 */ ,
+	-901 /*  36 license_svc_err_add             
 */ ,
+	-901 /*  37 license_svc_err_remove          
 */ ,
+	-901 /*  59 license_eval_exists             
 */ ,
+	-901 /*   1 gstat_unknown_switch            
 */ ,
+	-901 /*   2 gstat_retry                     
 */ ,
+	-901 /*   3 gstat_wrong_ods                 
 */ ,
+	-901 /*   4 gstat_unexpected_eof            
 */ ,
+	-901 /*  29 gstat_open_err                  
 */ ,
+	-901 /*  30 gstat_read_err                  
 */ ,
+	-901						/*  31 gstat_sysmemex                  
 */
+};
diff --git a/src/misc/status.cpp b/src/misc/status.cpp
new file mode 100644
index 0000000000..44152fba14
--- /dev/null
+++ b/src/misc/status.cpp
@@ -0,0 +1,132 @@
+// status.cpp
+//
+// Copyright 2001 Mikael Nordell <tamlin@users.sourceforge.net>
+//
+// This file is part of the firebird RDBMS engine, and as such
+// is only allowed to be used within that engine, where it may
+// be used freely. Any other use is prohibited.
+//
+
+#include <stdlib.h>
+#include <stdarg.h>
+#include <string.h>
+#include "../misc/status.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/codes.h"
+#include "../jrd/gds_proto.h"
+
+
+/* The following function is used to stuff variable number of error message
+   arguments from stack to the status_vector.   This macro should be the 
+   first statement in a routine where it is invoked. */
+
+/* Get the addresses of the argument vector and the status vector, and do
+   word-wise copy. */
+
+void STUFF_STATUS_function(STATUS* status_vector, STATUS status, va_list args)
+{
+	int type, len;
+
+	STATUS* p = status_vector;
+
+	*p++ = gds_arg_gds;
+	*p++ = status;
+
+	while ((type = va_arg(args, int)) && ((p - status_vector) < 17))
+	{
+		switch (*p++ = type)
+		{
+			case gds_arg_gds:
+				*p++ = va_arg(args, STATUS);
+				break;
+
+			case gds_arg_string:
+				{
+					STATUS* q = va_arg(args, STATUS*);
+					if (strlen((TEXT *) q) >= MAX_ERRSTR_LEN)
+					{
+						*(p - 1) = gds_arg_cstring;
+						*p++ = (STATUS) MAX_ERRSTR_LEN;
+					}
+					*p++ = (STATUS) q;
+				}
+				break;
+
+			case gds_arg_interpreted:
+				*p++ = (STATUS) va_arg(args, TEXT *);
+				break;
+
+			case gds_arg_cstring:
+				len = (int) va_arg(args, int);
+				*p++ = (STATUS) (len >= MAX_ERRSTR_LEN) ? MAX_ERRSTR_LEN : len;
+				*p++ = (STATUS) va_arg(args, TEXT *);
+				break;
+
+			case gds_arg_number:
+				*p++ = (STATUS) va_arg(args, SLONG);
+				break;
+
+			case gds_arg_vms:
+			case gds_arg_unix:
+			case gds_arg_domain:
+			case gds_arg_dos:
+			case gds_arg_mpexl:
+			case gds_arg_next_mach:
+			case gds_arg_netware:
+			case gds_arg_win32:
+			default:
+				*p++ = (STATUS) va_arg(args, int);
+				break;
+		}
+	}
+	*p = gds_arg_end;
+}
+
+
+/** Check that we never overrun the status vector.  The status
+ *  vector is 20 elements.  The maximum is 3 entries for a 
+ * type.  So check for 17 or less
+ */
+
+void PARSE_STATUS(STATUS * status_vector, int &length, int &warning)
+{
+	warning = 0;
+	length = 0;
+
+	for (int i = 0; status_vector[i] != gds_arg_end; i++, length++)
+	{
+		switch (status_vector[i])
+		{
+		case isc_arg_warning:
+			if (!warning)
+				warning = i;	// find the very first
+			// fallthrought intended
+		case gds_arg_gds:
+		case gds_arg_string:
+		case gds_arg_number:
+		case gds_arg_vms:
+		case gds_arg_unix:
+		case gds_arg_domain:
+		case gds_arg_dos:
+		case gds_arg_mpexl:
+		case gds_arg_next_mach:
+		case gds_arg_netware:
+		case gds_arg_win32:
+			i++;
+			length++;
+			break;
+
+		case gds_arg_cstring:
+			i += 2;
+			length += 2;
+			break;
+
+		default:
+			assert(FALSE);
+			break;
+		}
+	}
+	if (i) {
+		length++;				// gds_arg_end is counted
+	}
+}
diff --git a/src/misc/status.h b/src/misc/status.h
new file mode 100644
index 0000000000..5415797d19
--- /dev/null
+++ b/src/misc/status.h
@@ -0,0 +1,18 @@
+#ifndef FB_MISC_STATUS_H
+#define FB_MISC_STATUS_H
+
+#include <stdlib.h>				// size_t
+#include "../jrd/common.h"		// STATUS
+
+#define MAX_ERRMSG_LEN  128
+#define MAX_ERRSTR_LEN	255
+
+#ifdef __cplusplus
+/* only allow these functions from C++ code (use of reference) */
+
+void STUFF_STATUS_function(STATUS* status_vector, STATUS status, va_list args);
+
+void PARSE_STATUS(STATUS * status_vector, int &length, int &warning);
+#endif
+
+#endif // FB_MISC_STATUS_H
diff --git a/src/msgs/build.def b/src/msgs/build.def
new file mode 100644
index 0000000000..42b1e64cba
--- /dev/null
+++ b/src/msgs/build.def
@@ -0,0 +1,34 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+; 
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+; 
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+; 
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;------------------------------------------------
+;   build
+;   
+;   SUBSYSTEM:    build.exe Module Defintion File
+;   FILE:         build.def
+;------------------------------------------------
+
+NAME build
+
+DESCRIPTION 'Message file builder utility - Copyright © 1993 by Borland International. All Rights Reserved.'
+EXETYPE     WINDOWS
+CODE        PRELOAD MOVEABLE DISCARDABLE
+DATA        PRELOAD MOVEABLE MULTIPLE
+HEAPSIZE    4096
+STACKSIZE   15000
+
+EXPORTS
+	
diff --git a/src/msgs/build_file.e b/src/msgs/build_file.e
new file mode 100644
index 0000000000..37d4dc123d
--- /dev/null
+++ b/src/msgs/build_file.e
@@ -0,0 +1,509 @@
+/*
+ *	PROGRAM:	JRD Message Facility
+ *	MODULE:		build_file.e
+ *	DESCRIPTION:	Build message file
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/gds.h"
+#include "../jrd/common.h"
+#include "../jrd/msg.h"
+#include "../jrd/gds_proto.h"
+
+#define MAX_LEVELS	4
+
+DATABASE DB = "msg.gdb";
+
+static void ascii_str_to_upper(TEXT *);
+static USHORT do_msgs(TEXT *, TEXT *, USHORT);
+static void propogate(MSGNOD *, MSGNOD *, ULONG, ULONG);
+static SLONG write_bucket(MSGNOD, USHORT);
+static void sanitize(TEXT *);
+
+static SLONG file_position;
+static int file;
+
+/* keep the LOCALE_PAT names in sync with gds.h */
+
+#if (defined WIN_NT)
+#include <io.h>
+#define FILENAME	"interbas.msg"
+#define LOCALE_PAT	"%.8s.msg"
+#define PATH_SEPARATOR	'\\'
+#endif
+
+#ifdef PC_PLATFORM
+#include <fcntl.h>
+#include <io.h>
+#define FILENAME	"interbas.msg"
+#define LOCALE_PAT	"%.8s.msg"
+#define PATH_SEPARATOR	'\\'
+#endif
+
+#ifndef FILENAME
+#define FILENAME	"interbase.msg"
+#define LOCALE_PAT	"%.10s.msg"
+#define PATH_SEPARATOR	'/'
+#endif
+
+#ifdef VMS
+#include <file.h>
+#else
+#include <sys/types.h>
+#ifndef DELTA
+#ifndef XENIX
+#ifndef PC_PLATFORM
+#ifndef WIN_NT
+#include <sys/file.h>
+#endif
+#endif
+#endif
+#endif
+#endif
+
+#ifndef O_RDWR
+#include <fcntl.h>
+#endif
+
+#ifndef O_BINARY
+#define O_BINARY	0
+#endif
+
+
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Top level routine.
+ *
+ **************************************/
+	TEXT *p, **end_args, db_file[256], filename[256],
+		*pathname, pathbuffer[256], *locale;
+	USHORT sw_bad;
+	USHORT sw_warning;
+	USHORT i, locale_count;
+	SSHORT len;
+	BASED ON LOCALES.LOCALE this_locale;
+
+	strcpy(db_file, "msg.gdb");
+	strcpy(filename, FILENAME);
+	pathname = NULL;
+	locale = NULL;
+	sw_warning = 0;
+
+	end_args = argv + argc;
+
+	for (++argv; argv < end_args;) {
+		p = *argv++;
+		sw_bad = FALSE;
+		if (*p != '-')
+			sw_bad = TRUE;
+		else
+			switch (UPPER(p[1])) {
+			case 'D':
+				strcpy(db_file, *argv++);
+				break;
+
+			case 'F':
+				strcpy(filename, *argv++);
+				break;
+
+			case 'P':
+				strcpy(pathbuffer, *argv++);
+				pathname = pathbuffer;
+				break;
+
+			case 'L':
+				locale = *argv++;
+				break;
+
+			case 'W':
+				sw_warning++;
+				break;
+
+			default:
+				sw_bad = TRUE;
+			}
+		if (sw_bad) {
+			ib_printf("Invalid option \"%s\".  Valid options are:\n", p);
+			ib_printf("\t-D\tDatabase name\n");
+			ib_printf("\t-F\tMessage file name\n");
+			ib_printf("\t-P\tMessage file path (should end with '/')\n");
+			ib_printf("\t-L\tLocale name\n");
+			ib_printf("\t-W\tVerbose warning messages\n");
+			exit(FINI_ERROR);
+		}
+	}
+
+/* Get db_file ready to go */
+
+	READY db_file AS DB;
+	START_TRANSACTION;
+
+/* make sure the path name ends in a '/' */
+
+	if (pathname) {
+		len = strlen(pathname);
+		if (pathname[len - 1] != PATH_SEPARATOR) {
+			pathname[len] = PATH_SEPARATOR;
+			pathname[len + 1] = 0;
+		}
+	}
+
+/* check for the locale option  */
+
+	if (!locale) {				/* no locale given: do the regular US msgs  */
+		if (!pathname)
+			do_msgs(filename, NULL, 0);
+		else {
+			strcat(pathname, filename);
+			do_msgs(pathname, NULL, 0);
+		}
+	}
+	else {
+		int got_one = 0;
+		FOR FIRST 1 L IN LOCALES WITH L.LOCALE = locale
+			got_one = 1;
+		END_FOR;
+		if (got_one) {			/* do only 1 locale */
+			strcpy(this_locale, locale);
+			sanitize(locale);
+			if (pathname) {
+				sprintf(filename, LOCALE_PAT, locale);
+				strcat(pathname, filename);
+				do_msgs(pathname, this_locale, sw_warning);
+			}
+			else
+				do_msgs(filename, this_locale, sw_warning);
+		}
+		else {
+			strncpy(this_locale, locale, sizeof(this_locale));
+			ascii_str_to_upper(this_locale);
+			if (!strcmp(this_locale, "ALL")) {
+				FOR LC IN LOCALES /* do all locales except piglatin */
+					WITH LC.LOCALE != "pg_PG" AND LC.LOCALE != "piglatin";
+					locale = LC.LOCALE;
+					strcpy(this_locale, LC.LOCALE);
+					ib_printf("build_file: building locale %s", this_locale);
+					sanitize(locale);
+					sprintf(filename, LOCALE_PAT, locale);
+					if (pathname) {
+						strcat(pathname, filename);
+						ib_printf(" to file %s\n", pathname);
+						do_msgs(pathname, this_locale, sw_warning);
+					}
+					else {
+						ib_printf(" to file %s\n", filename);
+						do_msgs(filename, this_locale, sw_warning);
+					}
+					pathname = NULL;
+				END_FOR;
+			}
+			else {
+				ib_printf("build_file: Unknown locale: %s\n", locale);
+				ib_printf("Valid options are:\n");
+				FOR LO IN LOCALES
+					ib_printf("\t%s\n", LO.LOCALE);
+				END_FOR;
+				ib_printf("\tall\n");
+			}
+			COMMIT;
+			FINISH DB;
+			exit(FINI_ERROR);
+		}
+	}
+
+	COMMIT;
+	FINISH;
+
+	exit(FINI_OK);
+}
+
+
+static void ascii_str_to_upper( TEXT * s)
+{
+/**************************************
+ *
+ *	a s c i i _ s t r _ t o _ u p p e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	change the a - z chars in string to upper case
+ *
+ **************************************/
+
+	while (*s) {
+		*s >= 'a' && *s <= 'z' ? *s &= 0xDF : *s;
+		*s++;
+	}
+}
+
+
+static USHORT do_msgs( TEXT * filename, TEXT * locale, USHORT sw_warning)
+{
+/**************************************
+ *
+ *	d o _ m s g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build the message file
+ *
+ **************************************/
+	ISC_MSGHDR header;
+	TEXT buffer[MAX_LEVELS * MSG_BUCKET], *p, *q, *end_leaf, msg_text[256];
+	MSGREC leaf_node, leaf;
+	MSGNOD buckets[MAX_LEVELS], *ptr, *ptr2, *end, nodes[MAX_LEVELS], node;
+	USHORT l, n, levels;
+	ULONG position, prior_code;
+	int warning_counter;
+
+	warning_counter = 0;
+
+/* Divy up memory among various buffers */
+
+	leaf_node = leaf = (MSGREC) gds__alloc((SLONG) MSG_BUCKET);
+	end_leaf = (TEXT *) leaf + MSG_BUCKET;
+	nodes[0] = NULL;
+
+/* Open output file */
+
+	if ((file = open(filename, O_WRONLY | O_CREAT | O_BINARY, 0666)) == -1) {
+		ib_printf("Can't open %s\n", filename);
+		return FINI_ERROR;
+	}
+	file_position = 0;
+
+/* Format and write header */
+
+	header.msghdr_major_version = MSG_MAJOR_VERSION;
+	header.msghdr_minor_version = MSG_MINOR_VERSION;
+	header.msghdr_bucket_size = MSG_BUCKET;
+	write_bucket(&header, sizeof(header));
+
+/* Write out messages building B-tree */
+
+	FOR X IN MESSAGES SORTED BY X.CODE
+
+		/* pre-load with US English message - just in case we don't
+		 * have a translation available. */
+
+		strcpy(msg_text, X.TEXT);
+		l = strlen(msg_text);
+		if (locale) {			/* want translated output */
+			/* Overwrite English message with translation, if we find one */
+			int found_one;
+			found_one = 0;
+			FOR Y IN TRANSMSGS WITH Y.FAC_CODE = X.FAC_CODE
+				AND Y.NUMBER = X.NUMBER
+					AND Y.LOCALE = locale
+					AND Y.TEXT NOT MISSING AND Y.TEXT != " ";
+				strcpy(msg_text, Y.TEXT);
+				l = strlen(msg_text);
+				found_one++;
+			END_FOR;
+			if (!found_one && sw_warning)
+				ib_printf
+					("build_file: Warning - no %s translation of msg# %d\n",
+					 locale, X.CODE);
+			if (found_one > 1 && sw_warning)
+				ib_printf
+					("build_file: Warning - multiple %s translations of msg# %d\n",
+					 locale, X.CODE);
+			if (found_one != 1)
+				warning_counter++;
+		}
+
+		if (leaf_node->msgrec_text + l >= end_leaf) {
+			position = write_bucket(leaf, n);
+			propogate(buckets, nodes, prior_code, position);
+			leaf_node = leaf;
+		}
+		leaf_node->msgrec_code = prior_code =
+			MSG_NUMBER(X.FAC_CODE, X.NUMBER);
+
+		leaf_node->msgrec_length = l;
+		leaf_node->msgrec_flags = X.FLAGS;
+		n = OFFSETA(MSGREC, msgrec_text) + l;
+		p = leaf_node->msgrec_text;
+		if (l) {
+			q = msg_text;
+			do
+				*p++ = *q++;
+			while (--l);
+		}
+		n = p - (SCHAR *) leaf;
+		leaf_node = NEXT_LEAF(leaf_node);
+	END_FOR;
+
+/* Write a high water mark on leaf node */
+
+	if (leaf_node->msgrec_text + l >= end_leaf) {
+		n = (SCHAR *) leaf_node - (SCHAR *) leaf;
+		position = write_bucket(leaf, n);
+		propogate(buckets, nodes, prior_code, position);
+		leaf_node = leaf;
+	}
+
+	leaf_node->msgrec_code = -1;
+	leaf_node->msgrec_length = 0;
+	leaf_node->msgrec_flags = 0;
+	n = (SCHAR *) leaf_node - (SCHAR *) leaf;
+	position = write_bucket(leaf, n);
+
+/* Finish off upper levels of tree */
+
+	header.msghdr_levels = 1;
+
+	for (ptr = nodes, ptr2 = buckets; node = *ptr; ptr++, ptr2++) {
+		node->msgnod_code = -1;
+		node->msgnod_seek = position;
+		n = (SCHAR *) (node + 1) - (SCHAR *) * ptr2;
+		position = write_bucket(*ptr2, n);
+		++header.msghdr_levels;
+	}
+
+	header.msghdr_top_tree = position;
+
+/* Re-write header record and finish */
+
+	lseek(file, (SLONG) 0, 0);
+	write(file, &header, sizeof(header));
+	close(file);
+	file = -1;
+
+	if (warning_counter)
+		ib_printf("build_file: %d messages lack translations in locale %s\n",
+				  warning_counter, locale);
+}
+
+
+static void propogate(
+					  MSGNOD * buckets,
+					  MSGNOD * nodes, ULONG prior_code, ULONG position)
+{
+/**************************************
+ *
+ *	p r o p o g a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Propogate a full bucket upward.
+ *
+ **************************************/
+	MSGNOD node, end;
+
+/* Make sure current level has been allocated */
+
+	if (!*nodes) {
+		*nodes = *buckets = (MSGNOD) gds__alloc((SLONG) MSG_BUCKET);
+		nodes[1] = NULL;
+	}
+
+/* Insert into current bucket */
+
+	node = (*nodes)++;
+	node->msgnod_code = prior_code;
+	node->msgnod_seek = position;
+
+/* Check for full bucket.  If not, we're done */
+
+	end = (MSGNOD) ((SCHAR *) * buckets + MSG_BUCKET);
+
+	if (*nodes < end)
+		return;
+
+/* Bucket is full -- write it out, propogate the split, and re-initialize */
+
+	position = write_bucket(*buckets, MSG_BUCKET);
+	propogate(buckets + 1, nodes + 1, prior_code, position);
+	*nodes = *buckets;
+}
+
+
+static SLONG write_bucket( MSGNOD bucket, USHORT length)
+{
+/**************************************
+ *
+ *	w r i t e _ b u c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write stuff, return position of stuff written.
+ *
+ **************************************/
+	SLONG position;
+	int n;
+	USHORT padded_length;
+	SLONG zero_bytes = 0;
+
+	padded_length = ROUNDUP(length, sizeof(SLONG));
+	position = file_position;
+	n = write(file, bucket, length);
+	if (n == -1) {
+		ib_fprintf(ib_stderr, "IO error on write()\n");
+		exit(FINI_ERROR);
+	}
+	n = write(file, &zero_bytes, padded_length - length);
+	if (n == -1) {
+		ib_fprintf(ib_stderr, "IO error on write()\n");
+		exit(FINI_ERROR);
+	}
+	file_position += padded_length;
+
+	return position;
+}
+
+
+static void sanitize( TEXT * locale)
+{
+/**************************************
+ *
+ *	s a n i t i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clean up a locale to make it acceptable for use in file names
+ *      for Windows NT, PC, and mpexl: remove any '.' or '_' for mpexl,
+ *	replace any period with '_' for NT or PC.
+ *      Keep this in sync with gds.c
+ *
+ **************************************/
+	SSHORT ch;
+
+	while (*locale) {
+		ch = *locale;
+		if (ch == '.')
+			*locale = '_';
+		locale++;
+	}
+}
diff --git a/src/msgs/change_msgs.e b/src/msgs/change_msgs.e
new file mode 100644
index 0000000000..28ad29abcf
--- /dev/null
+++ b/src/msgs/change_msgs.e
@@ -0,0 +1,468 @@
+/*
+ *	PROGRAM:	Interbase Message file edit program
+ *	MODULE:		change_msgs.e
+ *	DESCRIPTION:	Allow limited change of messages in database
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/gds.h"
+#include "../jrd/common.h"
+
+DATABASE DB = "msg.gdb";
+
+#define FAC_SQL_POSITIVE	14
+#define FAC_SQL_NEGATIVE	13
+
+#define LOWER_A         'a'
+#define UPPER_A         'A'
+#define LOWER_Z         'z'
+#define UPPER_Z         'Z'
+
+static void ascii_str_upper(UCHAR *);
+static void explicit_print(TEXT *);
+static int get_sql_class(UCHAR *);
+static int get_sql_subclass(UCHAR *);
+static int get_symbol(UCHAR *);
+static SSHORT mustget(SCHAR *);
+static int translate(SCHAR *, SCHAR *, SSHORT);
+
+
+void main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Top level routine.  
+ *
+ **************************************/
+	SCHAR facility[20], text[256], module[32], routine[32];
+	UCHAR sql_class[32], sql_sub_class[32];
+	SCHAR input[200], yesno[100];
+	SCHAR symbol[30];
+	SCHAR nstring[32];
+	SCHAR *p, *q;
+	SSHORT count;
+	SSHORT sql_number;
+	SSHORT msg_number;
+
+	ib_printf("\nHit Ctrl-D (or Ctrl-Z) at prompt to exit level\n");
+	ib_printf
+		("You will be prompted for facility, module, routine and message text\n");
+	ib_printf
+		("You *must* enter module and routine names for each message; be prepared\n");
+	ib_printf("You may assign an optional symbol for the message\n");
+	ib_printf
+		("Escape sequences may be entered and will be translated to single bytes\n");
+
+	READY;
+	START_TRANSACTION;
+
+	for (;;) {
+		ib_printf("Facility: ");
+		if (!gets(facility))
+			break;
+		count = 0;
+		msg_number = 0;
+		ascii_str_upper(facility);
+		FOR X IN FACILITIES WITH X.FACILITY = facility
+			count++;
+			for (;;) {
+				BOOLEAN sys_error = FALSE;
+
+				ib_printf("Message number (%d) ? ", msg_number + 1);
+				if (!gets(input))
+					break;
+				if (!input[0])
+					msg_number++;
+				else
+					msg_number = atoi(input);
+				if (msg_number <= 0)
+					break;
+				ib_printf("Facility: %s\n", X.FACILITY);
+				FOR Y IN MESSAGES WITH
+					Y.FAC_CODE EQ X.FAC_CODE AND Y.NUMBER EQ msg_number;
+
+					ib_printf(" Message: %d\n", Y.NUMBER);
+					ib_printf("  Module: %s\n", Y.MODULE);
+					ib_printf(" Routine: %s\n", Y.ROUTINE);
+					ib_printf("    Text: ");
+					explicit_print(Y.TEXT);
+					ib_printf("\n");
+					ib_printf("  Symbol: %s\n", Y.SYMBOL);
+				END_FOR
+
+				FOR Z IN SYSTEM_ERRORS WITH X.FAC_CODE EQ Z.FAC_CODE AND
+					Z.NUMBER EQ msg_number;
+					ib_printf("SQLCODE: %d\n", Z.SQL_CODE);
+					ib_printf("   SQL_CLASS:    %s\n", Z.SQL_CLASS);
+					ib_printf("SQL_SUBCLASS: %s\n", Z.SQL_SUBCLASS);
+					sys_error = TRUE;
+				END_FOR
+
+				ib_printf(" Modify? ");
+				if (mustget(yesno) && (yesno[0] == 'y' || yesno[0] == 'Y')) {
+					module[0] = 0;
+					ib_printf(" Module: ");
+					if (!gets(module))
+						break;
+					routine[0] = 0;
+					ib_printf("Routine: ");
+					if (!gets(routine))
+						break;
+					text[0] = 0;
+					ib_printf("   Text: ");
+					if (!gets(text))
+						break;
+					symbol[0] = 0;
+					ib_printf(" Symbol: ");
+					if (!gets(symbol))
+						break;
+					if (sys_error || X.FAC_CODE == 0) {
+						ib_printf("SQLCODE: ");
+						if (mustget(nstring))
+							sql_number = atoi(nstring);
+						if (!get_sql_class(sql_class))
+							/* continue */ ;
+						if (!get_sql_subclass(sql_sub_class))
+							/* continue */ ;
+					}
+
+					FOR Y IN MESSAGES WITH
+						Y.FAC_CODE EQ X.FAC_CODE AND Y.NUMBER EQ msg_number;
+						MODIFY Y USING
+							if (module[0])
+								strcpy(Y.MODULE, module);
+							if (routine[0])
+								strcpy(Y.ROUTINE, routine);
+							if (text[0])
+								while (!translate
+									   (text, Y.TEXT, sizeof(Y.TEXT))) {
+									ib_printf
+										("Message too long: max length: %d\n",
+										 sizeof(Y.TEXT));
+									(void) mustget(text);
+								}
+							if (symbol[0])
+								strcpy(Y.SYMBOL, symbol);
+						END_MODIFY;
+					END_FOR;
+
+					FOR Z IN SYSTEM_ERRORS WITH
+						Z.FAC_CODE EQ X.FAC_CODE AND Z.NUMBER EQ msg_number;
+						MODIFY Z USING
+							if (symbol[0])
+								strcpy(Z.GDS_SYMBOL, symbol);
+							if (sql_number != 0)
+								Z.SQL_CODE = sql_number;
+							if (sql_class[0])
+								strcpy(Z.SQL_CLASS, sql_class);
+							if (sql_sub_class[0])
+								strcpy(Z.SQL_SUBCLASS, sql_sub_class);
+						END_MODIFY;
+					END_FOR;
+				}
+			}
+		END_FOR;
+		if (!count) {
+			ib_printf("Facilty %s not found\n  Known facilities are:\n",
+					  facility);
+			FOR F IN FACILITIES SORTED BY F.FACILITY
+				ib_printf("    %s\n", F.FACILITY);
+			END_FOR;
+		}
+	}
+
+	ib_printf("\n\nCommitting changes...");
+	COMMIT;
+	FINISH;
+	ib_printf("done.\n");
+
+	exit(FINI_OK);
+}
+
+
+static void ascii_str_upper( UCHAR * str)
+{
+/**************************************
+ *
+ *      a s c i i _ s t r _ u p p e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      change a string to all upper case
+ *
+ **************************************/
+
+	while (*str) {
+		/* subtract 32 if necessary */
+
+		if (*str >= LOWER_A && *str <= LOWER_Z)
+			*str += (UPPER_A - LOWER_A);
+		str++;
+	}
+}
+
+
+static void explicit_print( TEXT * string)
+{
+/**************************************
+ *
+ *	e x p l i c i t _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Let it all hang out: print line
+ *      with explicit \n \b \t \f etc.
+ *      to make changing messages easy
+ *
+ **************************************/
+	TEXT *p;
+
+	p = string;
+
+	while (*p) {
+		switch (*p) {
+		case '\n':
+			ib_putchar('\\');
+			ib_putchar('n');
+			break;
+		case '\t':
+			ib_putchar('\\');
+			ib_putchar('t');
+			break;
+		case '\f':
+			ib_putchar('\\');
+			ib_putchar('f');
+			break;
+		case '\b':
+			ib_putchar('\\');
+			ib_putchar('b');
+			break;
+		case '\r':
+			ib_putchar('\\');
+			ib_putchar('r');
+			break;
+		case '\v':
+			ib_putchar('\\');
+			break;
+		case '\\':
+			ib_putchar('\\');
+			ib_putchar('\\');
+			break;
+		case '\"':
+			ib_putchar('\\');
+			ib_putchar('\"');
+			break;
+		case '\'':
+			ib_putchar('\\');
+			ib_putchar('\'');
+			break;
+		default:
+			ib_putchar(*p);
+		}
+		*p++;
+	}
+}
+
+
+static int get_sql_class( UCHAR * sql_class)
+{
+/**************************************
+ *
+ *	g e t _ s q l _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	get a two character sql_class string
+ *	return TRUE if we get one, otherwise FALSE
+ *
+ **************************************/
+	SSHORT length;
+
+	while (1) {
+		ib_printf("   SQLCLASS: ");
+		gets(sql_class);
+		length = strlen(sql_class);
+		if (!length)
+			break;
+
+		if (length == 2)
+			return TRUE;
+		else
+			ib_fprintf(ib_stderr, "Sqlclass is two characters!\n");
+	}
+
+	return FALSE;
+}
+
+
+static int get_sql_subclass( UCHAR * sql_sub_class)
+{
+/**************************************
+ *
+ *	g e t _ s q l _ s u b c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	get a three character sql_subclass string
+ *	return TRUE if we get one, otherwise FALSE
+ *
+ **************************************/
+	SSHORT length;
+
+	while (1) {
+		ib_printf("SQLSUBCLASS: ");
+		gets(sql_sub_class);
+		length = strlen(sql_sub_class);
+		if (!length)
+			break;
+
+		if (length == 3)
+			return TRUE;
+		else
+			ib_fprintf(ib_stderr, "Sqlsubclass is three characters!\n");
+	}
+	return FALSE;
+}
+
+
+static int get_symbol( UCHAR * symbol)
+{
+/**************************************
+ *
+ *	g e t _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	insist on getting the symbol
+ *	return TRUE when we get one
+ *
+ **************************************/
+	SSHORT length;
+
+	while (TRUE) {
+		ib_fprintf(ib_stderr, "Symbols are required for system errors!\n");
+		ib_printf(" Symbol: ");
+		gets(symbol);
+		if (strlen(symbol))
+			return TRUE;
+	}
+}
+
+
+static SSHORT mustget( SCHAR * s)
+{
+/**************************************
+ *
+ *	m u s t g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	gets & returns a string.  Returns FALSE
+ *	if string is empty.
+ *
+ **************************************/
+
+	if (!gets(s))
+		return FALSE;
+
+	return (s[0] != 0);
+}
+
+
+static int translate( SCHAR * source, SCHAR * target, SSHORT length)
+{
+/**************************************
+ *
+ *	t r a n s l a t e
+ *
+ **************************************
+ *
+ * Functional description
+ * 	make explicit escape sequences into
+ *	ascii, returns length ok?
+ *
+ **************************************/
+	SCHAR *p, *q;
+
+	p = target;
+	q = source;
+
+	while (*q) {
+		if (!--length)
+			return 0;
+		if (*q == '\\') {
+			*q++;
+			switch (*q) {
+			case 'n':
+				*p++ = '\n';
+				break;
+			case 't':
+				*p++ = '\t';
+				break;
+			case 'f':
+				*p++ = '\f';
+				break;
+			case 'a':
+				*p++ = '\a';
+				break;
+			case 'b':
+				*p++ = '\b';
+				break;
+			case 'r':
+				*p++ = '\r';
+				break;
+			case 'v':
+				*p++ = '\v';
+				break;
+			case '\\':
+				*p++ = '\\';
+				break;
+			case '\"':
+				*p++ = '\"';
+				break;
+			case '\'':
+				*p++ = '\'';
+				break;
+			default:
+				ib_printf
+					("\n\n*** Escape sequence not understood; being copied unchanged ***\n\n");
+				*p++ = '\\';
+				*p++ = *q;
+			}
+			*q++;
+		}
+		else
+			*p++ = *q++;
+	}
+	*p = 0;
+
+	return 1;
+}
diff --git a/src/msgs/check_msgs.e b/src/msgs/check_msgs.e
new file mode 100644
index 0000000000..584698a9a9
--- /dev/null
+++ b/src/msgs/check_msgs.e
@@ -0,0 +1,177 @@
+/*
+ *	PROGRAM:	Interbase Message Facility
+ *	MODULE:		check_messages.e
+ *	DESCRIPTION:	Check whether any messages have been updated
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#ifdef VMS
+#include <types.h>
+#include <stat.h>
+#else
+#include <sys/types.h>
+#include <sys/stat.h>
+#endif
+#include <time.h>
+
+#include "../jrd/common.h"
+#include "../jrd/gds.h"
+#include "../jrd/gds_proto.h"
+
+DATABASE DB = "msg.gdb";
+
+
+#define INCLUDE_INDICATOR	"indicator.incl"
+#define MESSAGE_INDICATOR	"indicator.msg"
+#define LOCALE_INDICATOR	"indicator.loc"
+
+
+int CLIB_ROUTINE main( int argc, char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Top level routine.  
+ *
+ **************************************/
+	TEXT *p, **end_args, db_file[256];
+	USHORT flag_jrd, flag_msg, flag_loc, sw_bad, do_locales;
+	IB_FILE *ind_jrd, *ind_msg, *ind_loc;
+	ISC_TIMESTAMP date_jrd, date_msg, date_loc;
+	struct stat file_stat;
+
+	strcpy(db_file, "msg.gdb");
+	do_locales = FALSE;
+
+	end_args = argv + argc;
+
+	for (++argv; argv < end_args;) {
+		p = *argv++;
+		sw_bad = FALSE;
+		if (*p != '-')
+			sw_bad = TRUE;
+		else
+			switch (UPPER(p[1])) {
+			case 'D':
+				strcpy(db_file, *argv++);
+				break;
+
+			case 'L':
+				do_locales = TRUE;
+				break;
+
+			default:
+				sw_bad = TRUE;
+			}
+		if (sw_bad) {
+			ib_printf("Invalid option \"%s\".  Valid options are:\n", p);
+			ib_printf("\t-D\tDatabase name\n");
+			ib_printf("\t-L\tCheck all locales\n");
+			exit(FINI_ERROR);
+		}
+	}
+
+	flag_jrd = flag_msg = TRUE;
+
+	if (ind_jrd = ib_fopen(INCLUDE_INDICATOR, "r")) {
+		if (!fstat(ib_fileno(ind_jrd), &file_stat)) {
+			gds__encode_date(localtime(&file_stat.st_mtime), &date_jrd);
+			flag_jrd = FALSE;
+		}
+		ib_fclose(ind_jrd);
+	}
+
+	if (ind_msg = ib_fopen(MESSAGE_INDICATOR, "r")) {
+		if (!fstat(ib_fileno(ind_msg), &file_stat)) {
+			gds__encode_date(localtime(&file_stat.st_mtime), &date_msg);
+			flag_msg = FALSE;
+		}
+		ib_fclose(ind_msg);
+	}
+
+	if (do_locales) {
+		flag_loc = TRUE;
+		if (ind_loc = ib_fopen(LOCALE_INDICATOR, "r")) {
+			if (!fstat(ib_fileno(ind_loc), &file_stat)) {
+				gds__encode_date(localtime(&file_stat.st_mtime), &date_loc);
+				flag_loc = FALSE;
+			}
+/* Earlier the following ib_fclose was closing ind_msg again, due to which 
+   check_messages was crashing with SEGV signal - */
+			ib_fclose(ind_loc);	/* A bug in check_messages is fixed */
+		}
+	}
+
+	READY db_file AS DB;
+	START_TRANSACTION;
+
+	if (!flag_jrd) {
+		FOR FIRST 1 X IN FACILITIES WITH
+			X.FACILITY EQ "JRD" AND X.LAST_CHANGE GE date_jrd 
+
+            flag_jrd = TRUE;
+		END_FOR;
+	}
+
+	if (!flag_msg) {
+		FOR FIRST 1 X IN FACILITIES WITH
+			X.LAST_CHANGE GE date_msg 
+
+            flag_msg = TRUE;
+		END_FOR;
+	}
+
+	if (!flag_loc) {
+		FOR FIRST 1 T IN TRANSMSGS WITH
+			T.TRANS_DATE GE date_loc 
+
+            flag_loc = TRUE;
+		END_FOR;
+	}
+
+	COMMIT;
+	FINISH;
+
+	if (flag_jrd)
+		if (ind_jrd = ib_fopen(INCLUDE_INDICATOR, "w")) {
+			ib_fputc(' ', ind_jrd);
+			ib_fclose(ind_jrd);
+		}
+
+	if (flag_msg)
+		if (ind_msg = ib_fopen(MESSAGE_INDICATOR, "w")) {
+			ib_fputc(' ', ind_msg);
+			ib_fclose(ind_msg);
+		}
+
+	if (flag_loc)
+		if (ind_loc = ib_fopen(LOCALE_INDICATOR, "w")) {
+			ib_fputc(' ', ind_loc);
+			ib_fclose(ind_loc);
+		}
+
+	exit(FINI_OK);
+}
diff --git a/src/msgs/depends.mak b/src/msgs/depends.mak
new file mode 100644
index 0000000000..f3ce875d95
--- /dev/null
+++ b/src/msgs/depends.mak
@@ -0,0 +1,46 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# depends.mak - msgs
+# Created by 'make depends.mak'
+# Created on 1998-11-17
+build_file.o: build_file.c
+build_file.o: source/interbase/include/iberror.h
+build_file.o: source/jrd/common.h
+build_file.o: source/jrd/fil.h
+build_file.o: source/jrd/gds.h
+build_file.o: source/jrd/gds_proto.h
+build_file.o: source/jrd/msg.h
+build_file.o: source/jrd/thd.h
+change_msgs.o: change_msgs.c
+change_msgs.o: source/interbase/include/iberror.h
+change_msgs.o: source/jrd/common.h
+change_msgs.o: source/jrd/gds.h
+check_msgs.o: check_msgs.c
+check_msgs.o: source/interbase/include/iberror.h
+check_msgs.o: source/jrd/common.h
+check_msgs.o: source/jrd/fil.h
+check_msgs.o: source/jrd/gds.h
+check_msgs.o: source/jrd/gds_proto.h
+check_msgs.o: source/jrd/thd.h
+enter_msgs.o: enter_msgs.c
+enter_msgs.o: source/interbase/include/iberror.h
+enter_msgs.o: source/jrd/common.h
+enter_msgs.o: source/jrd/gds.h
+modify_msgs.o: modify_msgs.c
+modify_msgs.o: source/interbase/include/iberror.h
+modify_msgs.o: source/jrd/common.h
+modify_msgs.o: source/jrd/gds.h
diff --git a/src/msgs/enter_msgs.e b/src/msgs/enter_msgs.e
new file mode 100644
index 0000000000..c7a0eca295
--- /dev/null
+++ b/src/msgs/enter_msgs.e
@@ -0,0 +1,532 @@
+/*
+ *	PROGRAM:	Interbase Message file entry program
+ *	MODULE:		enter_messages.e
+ *	DESCRIPTION:	Allow entry of messages to database
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/gds.h"
+#include "../jrd/common.h"
+
+DATABASE DB = "msg.gdb";
+
+static void ascii_str_upper(UCHAR *);
+static int get_sql_class(UCHAR *);
+static int get_sql_code(SSHORT *);
+static int get_sql_subclass(UCHAR *);
+static int store_sql_msg(void);
+static int translate(UCHAR *, UCHAR *, SSHORT);
+
+#define FAC_SQL_POSITIVE	14
+#define FAC_SQL_NEGATIVE	13
+
+#define	LOWER_A		'a'
+#define	UPPER_A		'A'
+#define LOWER_Z		'z'
+#define UPPER_Z		'Z'
+
+
+void main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Top level routine.  
+ *
+ **************************************/
+
+/* Note that the lengths of these variables are based on the lengths of the
+ * fields in the message database */
+
+	UCHAR facility[20], text[256], module[32], routine[32];
+	UCHAR sql_class[32], sql_sub_class[32];
+	UCHAR symbol[30], pub[1];
+	UCHAR nstring[32];
+	UCHAR *p, *q;
+	SSHORT count;
+	SSHORT sql_num, sign;
+	BOOLEAN public;
+
+/* Setup the 'strings' so that element 0 is really 0 */
+	memset(facility, 0, sizeof(facility));
+	memset(text, 0, sizeof(text));
+	memset(module, 0, sizeof(module));
+	memset(routine, 0, sizeof(routine));
+	memset(sql_class, 0, sizeof(sql_class));
+	memset(sql_sub_class, 0, sizeof(sql_sub_class));
+	memset(symbol, 0, sizeof(symbol));
+	memset(pub, 0, sizeof(pub));
+	memset(nstring, 0, sizeof(nstring));
+
+	ib_printf("\nHit Ctrl-D (or Ctrl-Z) at prompt to exit level\n");
+	ib_printf
+		("You will be prompted for facility, module, routine and message text\n");
+	ib_printf
+		("You *must* enter module and routine names for each message; be prepared\n");
+	ib_printf("You will be returned a message number for the message\n");
+	ib_printf("You may assign an optional symbol for the message\n");
+	ib_printf
+		("Escape sequences may be entered and will be translated to single bytes\n");
+
+	READY;
+	START_TRANSACTION;
+
+	for (;;) {
+		ib_printf("Facility: ");
+		if (!gets(facility))
+			break;
+		ascii_str_upper(facility);
+		count = 0;
+		FOR X IN FACILITIES WITH X.FACILITY = facility
+			count++;
+			if (X.FAC_CODE == FAC_SQL_POSITIVE
+				|| X.FAC_CODE == FAC_SQL_NEGATIVE) {
+				if (!store_sql_msg())
+					break;
+			}
+			else {
+				MODIFY X USING
+					for (;;) {
+						ib_printf(" Module: ");
+						if (!gets(module))
+							break;
+						ib_printf(" Routine: ");
+						if (!gets(routine))
+							break;
+						ib_printf(" Text: ");
+						if (!gets(text))
+							break;
+						symbol[0] = 0;
+
+						/* All JRD messages are public.  Only ask if entering messages
+						 * in a component other than JRD */
+						if (X.FAC_CODE != 0) {
+							ib_printf("Public [y/n]: ");
+							gets(pub);
+							if (*pub == 'Y' || *pub == 'y')
+								public = TRUE;
+							else
+								public = FALSE;
+						}
+						else
+							public = TRUE;
+
+						ib_printf(" Symbol: ");
+						if (!gets(symbol))
+							break;
+
+						if (public) {
+							if (!symbol[0])
+								if (!get_symbol(symbol))
+									break;
+
+							if (!get_sql_code(&sql_num))
+								break;
+
+							if (!get_sql_class(sql_class))
+								/* continue */ ;
+
+							if (!get_sql_subclass(sql_sub_class))
+								/* continue */ ;
+
+							STORE S IN SYSTEM_ERRORS USING
+								S.FAC_CODE = X.FAC_CODE;
+								S.NUMBER = X.MAX_NUMBER;
+
+								S.SQL_CODE = sql_num;
+
+								strcpy(S.GDS_SYMBOL, symbol);
+								if (sql_class[0]) {
+									strcpy(S.SQL_CLASS, sql_class);
+									S.SQL_CLASS.NULL = FALSE;
+								}
+								else
+									S.SQL_CLASS.NULL = TRUE;
+								if (sql_sub_class[0]) {
+									strcpy(S.SQL_SUBCLASS, sql_sub_class);
+									S.SQL_SUBCLASS.NULL = FALSE;
+								}
+								else
+									S.SQL_SUBCLASS.NULL = TRUE;
+							END_STORE;
+
+						}
+
+						STORE Y IN MESSAGES USING
+							Y.FAC_CODE = X.FAC_CODE;
+							Y.NUMBER = X.MAX_NUMBER;
+							strcpy(Y.MODULE, module);
+							strcpy(Y.ROUTINE, routine);
+							strcpy(Y.SYMBOL, symbol);
+							if (!translate(text, Y.TEXT, sizeof(Y.TEXT))) {
+								ib_printf
+									("Message too long: max length: %d\n",
+									 sizeof(Y.TEXT));
+								break;
+							}
+							ib_printf("Message number: %d\n", X.MAX_NUMBER);
+							X.MAX_NUMBER = X.MAX_NUMBER + 1;
+						END_STORE;
+					}
+				END_MODIFY;
+			}
+		END_FOR;
+		if (!count) {
+			ib_printf("Facilty %s not found\n  Known facilities are:\n",
+					  facility);
+			FOR F IN FACILITIES SORTED BY F.FACILITY
+				ib_printf("    %s\n", F.FACILITY);
+			END_FOR;
+		}
+	}
+
+	COMMIT;
+	FINISH;
+	exit(FINI_OK);
+}
+
+
+static void ascii_str_upper( UCHAR * str)
+{
+/**************************************
+ *
+ *	a s c i i _ s t r _ u p p e r
+ *
+ **************************************
+ *
+ * Functional description
+ * 	change a string to all upper case
+ *
+ **************************************/
+
+	while (*str) {
+		/* subtract 32 if necessary */
+
+		if (*str >= LOWER_A && *str <= LOWER_Z)
+			*str += (UPPER_A - LOWER_A);
+		str++;
+	}
+}
+
+
+static get_sql_class( UCHAR * sql_class)
+{
+/**************************************
+ *
+ *	g e t _ s q l _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	get a two character sql_class string
+ *	return TRUE if we get one, otherwise FALSE
+ *
+ **************************************/
+	SSHORT length;
+
+	while (1) {
+		ib_printf(" SQLCLASS: ");
+		gets(sql_class);
+		length = strlen(sql_class);
+		if (length == 0 || !isalnum(sql_class[0]))
+			break;
+
+		if (length == 2)
+			return TRUE;
+		else
+			ib_fprintf(ib_stderr, "Sqlclass is two characters!\n");
+	}
+
+	return FALSE;
+}
+
+
+static int get_sql_code( SSHORT * sql_code)
+{
+/**************************************
+ *
+ *	g e t _ s q l _ c o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	prompt for sql_code and convert it to a number
+ *	return TRUE on success, otherwise FALSE
+ *	Issue a warning if the SQL code is not in the SQLERR facility
+ *
+ **************************************/
+	UCHAR nstring[32];
+	UCHAR *p;
+	SSHORT sign;
+	SSHORT sql_num;
+	SSHORT srch_num, got_it;
+	int ret;
+
+	ret = FALSE;
+	while (1) {
+		ib_printf(" SQLCODE: ");
+		if (!gets(nstring))
+			break;
+		p = nstring;
+		sign = 1;
+		sql_num = 0;
+
+		/* skip spaces */
+		while (*p && *p == ' ')
+			p++;
+
+		/* Allow for leading sign */
+		if (*p == '+')
+			p++;
+		else if (*p == '-') {
+			p++;
+			sign = -1;
+		}
+
+		/* skip spaces again */
+		while (*p && *p == ' ')
+			p++;
+
+		/* and if anything is left, convert to a number .. */
+		if (*p && isdigit(*p)) {
+			sql_num = sign * atoi(p);
+			*sql_code = sql_num;
+			ret = TRUE;
+			break;
+		}
+		else {
+			ib_fprintf(ib_stderr, "SQLCode is now required!\n");
+		}
+	}
+
+/* make sure that the SQL code is in the SQLERR facility */
+	if (ret) {
+		got_it = 0;
+		if (sql_num < 0) {
+			srch_num = 1000 + sql_num;
+			FOR M IN MESSAGES WITH M.FAC_CODE = FAC_SQL_NEGATIVE
+				AND M.NUMBER = srch_num 
+
+                got_it = 1;
+			END_FOR;
+		}
+		else {
+			srch_num = sql_num;
+			FOR M IN MESSAGES WITH M.FAC_CODE = FAC_SQL_POSITIVE
+				AND M.NUMBER = srch_num 
+
+                got_it = 1;
+			END_FOR;
+		}
+		if (!got_it) {
+			ib_printf("Warning: SQL code %d is not in the SQLERR facility.\n",
+					  sql_num);
+			ib_printf("You will need to add it there too.\n");
+		}
+	}
+	return ret;
+}
+
+
+static int get_sql_subclass( UCHAR * sql_sub_class)
+{
+/**************************************
+ *
+ *	g e t _ s q l _ s u b c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	get a three character sql_subclass string
+ *	return TRUE if we get one, otherwise FALSE
+ *
+ **************************************/
+	SSHORT length;
+
+	while (1) {
+		ib_printf(" SQLSUBCLASS: ");
+		gets(sql_sub_class);
+		length = strlen(sql_sub_class);
+		if (length == 0 || !isalnum(sql_sub_class[0]))
+			break;
+
+		if (length == 3)
+			return TRUE;
+		else {
+			ib_fprintf(ib_stderr, "Sqlsubclass is three characters!\n");
+			continue;
+		}
+	}
+
+	return FALSE;
+}
+
+
+static int get_symbol( UCHAR * symbol)
+{
+/**************************************
+ *
+ *	g e t _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	insist on getting the symbol
+ *	return TRUE when we get one
+ *	or FALSE if user breaks out
+ *
+ **************************************/
+	SSHORT length;
+
+	while (1) {
+		ib_fprintf(ib_stderr, "Symbols are required for system errors!\n");
+		ib_printf(" Symbol: ");
+		gets(symbol);
+		if (!strlen(symbol) || !isalnum(symbol[0]))
+			return FALSE;
+		else
+			return TRUE;
+	}
+}
+
+
+static int store_sql_msg(void)
+{
+/**************************************
+ *
+ *	s t o r e _ s q l _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	sql messages key off the sql code. The
+ *	compound message number works out to
+ *	the offset from 1400.
+ *
+ **************************************/
+	UCHAR text[256], nstring[32];
+	UCHAR *p, *q;
+	SSHORT sql_num;
+
+	for (;;) {
+		ib_printf("Enter the sqlcode: ");
+		if (!gets(nstring))
+			break;;
+
+		sql_num = atoi(nstring);
+		ib_printf(" Text: ");
+		if (!gets(text))
+			break;
+
+		STORE Y IN MESSAGES USING
+			if (sql_num < 0) {
+				Y.NUMBER = 1000 + sql_num;
+				Y.FAC_CODE = FAC_SQL_NEGATIVE;
+			}
+			else {
+				Y.NUMBER = sql_num;
+				Y.FAC_CODE = FAC_SQL_POSITIVE;
+			}
+
+			/* translate escape sequences to single bytes */
+
+			if (!translate(text, Y.TEXT, sizeof(Y.TEXT))) {
+				ib_printf("Message too long: max length: %d\n",
+						  sizeof(Y.TEXT));
+				return 0;
+			}
+		END_STORE;
+	}
+
+	return 1;
+}
+
+
+static translate( UCHAR * source, UCHAR * target, SSHORT length)
+{
+/**************************************
+ *
+ *	t r a n s l a t e
+ *
+ **************************************
+ *
+ * Functional description
+ * 	make explicit escape sequences into
+ *	ascii, returns length ok?
+ **************************************/
+	UCHAR *p, *q;
+
+	p = target;
+	q = source;
+
+	while (*q) {
+		if (!--length)
+			return 0;
+		if (*q == '\\') {
+			*q++;
+			switch (*q) {
+			case 'n':
+				*p++ = '\n';
+				break;
+			case 't':
+				*p++ = '\t';
+				break;
+			case 'f':
+				*p++ = '\f';
+				break;
+			case 'a':
+				*p++ = '\a';
+				break;
+			case 'b':
+				*p++ = '\b';
+				break;
+			case 'r':
+				*p++ = '\r';
+				break;
+			case 'v':
+				*p++ = '\v';
+				break;
+			case '\\':
+				*p++ = '\\';
+				break;
+			case '\"':
+				*p++ = '\"';
+				break;
+			case '\'':
+				*p++ = '\'';
+				break;
+			default:
+				ib_printf
+					("\n\n*** Escape sequence not understood; being copied unchanged ***\n\n");
+				*p++ = '\\';
+				*p++ = *q;
+			}
+			*q++;
+		}
+		else
+			*p++ = *q++;
+	}
+	*p = 0;
+	return 1;
+}
diff --git a/src/msgs/include.e b/src/msgs/include.e
new file mode 100644
index 0000000000..a82d689cb4
--- /dev/null
+++ b/src/msgs/include.e
@@ -0,0 +1,422 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		include.e
+ *	DESCRIPTION:	Include file generator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+
+DATABASE DB = "source/msgs/msg.gdb";
+
+IB_FILE *output;
+
+static int check_option(SCHAR *, SSHORT *, SCHAR **);
+static int define_format(SCHAR *, SCHAR *);
+static int gen(SCHAR *, SCHAR *);
+static int process_line(IB_FILE *, SCHAR *);
+static int put_error(IB_FILE *, SCHAR **, SCHAR *, SSHORT);
+static int put_symbol(IB_FILE *, SCHAR *, SCHAR *, SLONG, SSHORT);
+static int put_symbols(IB_FILE *, SCHAR **, SCHAR *, SSHORT);
+
+#define OPT_byte	1
+#define OPT_signed	2
+#define OPT_sans_dollar	4
+
+static SSHORT defaults;
+static SCHAR *formats[40], *format_ptr, format_buffer[1024];
+
+
+void main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate include files.
+ *
+ **************************************/
+	SCHAR **end, *p, *file, *language, *db_name, sw_all;
+
+	file = db_name = 0;
+	language = "C";
+	sw_all = 0;
+
+	for (end = argv + argc, ++argv; argv < end;) {
+		p = *argv++;
+		if (*p == '-')
+			switch (UPPER(p[1])) {
+			case 'F':
+				file = *argv++;
+				continue;
+
+			case 'L':
+				language = *argv++;
+				continue;
+
+			case 'D':
+				db_name = *argv++;
+				continue;
+
+			case 'A':
+				sw_all = TRUE;
+				continue;
+			}
+		ib_printf("Bad switch %s\n", *p);
+		exit(FINI_ERROR);
+	}
+
+	if (db_name)
+		READY db_name AS DB;
+	else
+		READY;
+
+	START_TRANSACTION;
+
+	if (sw_all)
+        FOR X IN TEMPLATES
+            gen(X.LANGUAGE, X.IB_FILE);
+	    END_FOR
+	else
+	    gen(language, file);
+
+	COMMIT;
+	FINISH;
+	exit(FINI_OK);
+}
+
+
+static int check_option(
+						SCHAR * string,
+						SSHORT * option_ptr, SCHAR ** format_ptr)
+{
+/**************************************
+ *
+ *	c h e c k _ o p t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check an word for a known option.
+ *
+ **************************************/
+	SCHAR **format;
+
+	if (!strcmp(string, "BYTE")) {
+		*option_ptr |= OPT_byte;
+		return TRUE;
+	}
+
+	if (!strcmp(string, "SIGNED")) {
+		*option_ptr |= OPT_signed;
+		return TRUE;
+	}
+
+	if (!strcmp(string, "SANS_DOLLAR")) {
+		*option_ptr |= OPT_sans_dollar;
+		return TRUE;
+	}
+
+	if (!format_ptr)
+		return FALSE;
+
+	for (format = formats; *format; format += 2)
+		if (!strcmp(string, *format)) {
+			*format_ptr = format[1];
+			return TRUE;
+		}
+
+	return FALSE;
+}
+
+
+static int define_format( SCHAR * name, SCHAR * format)
+{
+/**************************************
+ *
+ *	d e f i n e _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define named format.
+ *
+ **************************************/
+	SCHAR **ptr, *p;
+
+	if (!name) {
+		ib_printf("Format redefined\n");
+		return;
+	}
+
+/* Find next free slot */
+
+	for (ptr = formats; *ptr; ptr += 2);
+
+/* Copy in format name */
+
+	*ptr++ = format_ptr;
+
+	while (*format_ptr++ = *name++);
+
+/* Copy in format */
+
+	*ptr++ = format_ptr;
+
+	while (*format_ptr++ = *format++);
+
+/* Zero next entry */
+
+	*ptr = NULL;
+}
+
+
+static int gen( SCHAR * language, SCHAR * filename)
+{
+/**************************************
+ *
+ *	g e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate an include file for a single language.
+ *
+ **************************************/
+	SCHAR *end;
+
+	format_ptr = format_buffer;
+	formats[0] = NULL;
+	defaults = 0;
+
+	FOR X IN TEMPLATES WITH X.LANGUAGE EQ language
+		if (!filename)
+			filename = X.IB_FILE;
+		if (!(output = ib_fopen(filename, "w"))) {
+			ib_perror(X.IB_FILE);
+			return;
+		}
+		ib_printf("Generating %s for %s\n", filename, X.LANGUAGE);
+		FOR Y IN X.TEMPLATE
+			end = Y.SEGMENT + Y.LENGTH;
+			*end = 0;
+			if (Y.LENGTH && end[-1] == '\n')
+				end[-1] = 0;
+			process_line(output, Y.SEGMENT);
+		END_FOR;
+		ib_fclose(output);
+	END_FOR;
+}
+
+
+static int process_line( IB_FILE * file, SCHAR * line_ptr)
+{
+/**************************************
+ *
+ *	p r o c e s s _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process an output line.
+ *
+ **************************************/
+	SCHAR *line, c, *p, *q, **word, *words[10], stuff[512], *format;
+	SSHORT options;
+
+	line = line_ptr;
+
+/* If the line doesn't start with a $, just copy it */
+
+	if (*line != '$') {
+		ib_fprintf(output, "%s\n", line);
+		return;
+	}
+
+	p = stuff;
+	format = 0;
+	options = defaults;
+	word = words;
+	++line;
+
+	while (*line) {
+		*word = 0;
+		while (*line == ' ' || *line == '\t')
+			line++;
+		if (*line == '"') {
+			++line;
+			break;
+		}
+		*word++ = p;
+		while (*line && *line != ' ' && *line != '\t' && *line != '"')
+			*p++ = *line++;
+		*p++ = 0;
+		if (check_option(word[-1], &options, &format))
+			--word;
+	}
+
+	if (!format) {
+		for (format = p, line; *line;)
+			if ((c = *line++) != '\\')
+				*p++ = c;
+			else if (*line == 'n') {
+				*p++ = '\n';
+				++line;
+			}
+			else if (*line == 't') {
+				*p++ = '\t';
+				++line;
+			}
+			else
+				*p++ = c;
+		*p = 0;
+	}
+
+	if (!words[0]) {
+		ib_printf("no class for line\n");
+		return;
+	}
+
+	if (!strcmp(words[0], "SYMBOLS"))
+		put_symbols(file, words + 1, format, options);
+	else if (!strcmp(words[0], "ERROR"))
+		put_error(file, words + 1, format, options);
+	else if (!strcmp(words[0], "FORMAT"))
+		define_format(words[1], format);
+	else if (!strcmp(words[0], "SET") && words[1])
+		defaults = options;
+	else
+		ib_printf("don't understand %s\n", words[0]);
+
+}
+
+
+static int put_error(
+					 IB_FILE * file,
+					 SCHAR ** words, SCHAR * format, SSHORT options)
+{
+/**************************************
+ *
+ *	p u t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Error codes to a file.
+ *
+ **************************************/
+	SCHAR *option, symbol[64];
+	SSHORT count;
+
+	option = words[0];
+	count = 0;
+	options &= ~(OPT_byte | OPT_signed);
+
+	if (!option || !strcmp(option, "MAJOR") || !strcmp(option, "MINOR"))
+	FOR X IN SYSTEM_ERRORS SORTED BY X.CODE
+		strcpy(symbol, "gds__");
+		strcat(symbol, X.GDS_SYMBOL);
+		put_symbol(file, format, symbol,
+				   (X.CODE + gds_err_base) * gds_err_factor, options);
+	END_FOR;
+}
+
+
+static int put_symbol(
+					  IB_FILE * file,
+					  SCHAR * format,
+					  SCHAR * symbol, SLONG value, SSHORT options)
+{
+/**************************************
+ *
+ *	p u t _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out a symbol.
+ *
+ **************************************/
+	SCHAR *p, buffer[64];
+
+	if (!format) {
+		ib_printf("No format for symbol\n");
+		return;
+	}
+
+	if (options & OPT_byte) {
+		if (value > 255)
+			return;
+		value = (UCHAR) value;
+	}
+
+	if (options & OPT_signed)
+		value = (SCHAR) value;
+
+	if (options & OPT_sans_dollar) {
+		for (p = buffer; *symbol; symbol++)
+			if (*symbol != '$')
+				*p++ = *symbol;
+		*p = 0;
+		symbol = buffer;
+	}
+
+	ib_fprintf(file, format, symbol, value);
+}
+
+
+static int put_symbols(
+					   IB_FILE * file,
+					   SCHAR ** words, SCHAR * format, SSHORT options)
+{
+/**************************************
+ *
+ *	p u t _ s y m b o l s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump symbols to a file.
+ *
+ **************************************/
+	SSHORT count;
+
+	count = 0;
+
+	if (words[1] && strcmp(words[1], "*")) {
+		FOR X IN SYMBOLS WITH X.CLASS EQ words[0] AND X.TYPE EQ words[1] SORTED BY X.SEQUENCE
+			++count;
+			put_symbol(file, format, X.SYMBOL, X.VALUE, options);
+		END_FOR;
+		if (!count)
+			ib_printf("No symbols found for %s/%s\n", words[0], words[1]);
+	}
+	else {
+		FOR X IN SYMBOLS WITH X.CLASS EQ words[0] SORTED BY X.SEQUENCE
+			++count;
+			put_symbol(file, format, X.SYMBOL, X.VALUE, options);
+		END_FOR;
+		if (!count)
+			ib_printf("No symbols found for %s\n", words[0]);
+	}
+}
diff --git a/src/msgs/load.e b/src/msgs/load.e
new file mode 100644
index 0000000000..3e79816e25
--- /dev/null
+++ b/src/msgs/load.e
@@ -0,0 +1,581 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "../jrd/gds.h"
+#include "../jrd/common.h"
+
+DATABASE DB = "msg.gdb";
+
+typedef struct {
+	SLONG value;
+	SCHAR *symbol;
+	SCHAR *class;
+	SCHAR *type;
+} STUFF;
+
+#define ITEM(symbol, class, type)	symbol, "symbol", "class", "type",
+
+static STUFF stuff[] = {
+
+	ITEM(blr_text, BLR, DTYPE)
+		ITEM(blr_short, BLR, DTYPE)
+		ITEM(blr_long, BLR, DTYPE)
+		ITEM(blr_quad, BLR, DTYPE)
+		ITEM(blr_float, BLR, DTYPE)
+		ITEM(blr_double, BLR, DTYPE)
+		ITEM(blr_d_float, BLR, DTYPE)
+		ITEM(blr_date, BLR, DTYPE)
+		ITEM(blr_varying, BLR, DTYPE)
+		ITEM(blr_blob, BLR, DTYPE)
+		ITEM(blr_cstring, BLR, DTYPE)
+		ITEM(blr_blob_id, BLR, DTYPE)
+
+		ITEM(blr_inner, BLR, JOIN)
+		ITEM(blr_left, BLR, JOIN)
+		ITEM(blr_right, BLR, JOIN)
+		ITEM(blr_full, BLR, JOIN)
+
+		ITEM(blr_version4, BLR, MECH)
+		ITEM(blr_eoc, BLR, MECH)
+		ITEM(blr_end, BLR, MECH)
+
+		ITEM(blr_assignment, BLR, STATEMENTS)
+		ITEM(blr_begin, BLR, STATEMENTS)
+		ITEM(blr_dcl_variable, BLR, STATEMENTS)
+		ITEM(blr_message, BLR, STATEMENTS)
+		ITEM(blr_erase, BLR, STATEMENTS)
+		ITEM(blr_fetch, BLR, STATEMENTS)
+		ITEM(blr_for, BLR, STATEMENTS)
+		ITEM(blr_if, BLR, STATEMENTS)
+		ITEM(blr_loop, BLR, STATEMENTS)
+		ITEM(blr_modify, BLR, STATEMENTS)
+		ITEM(blr_handler, BLR, STATEMENTS)
+		ITEM(blr_receive, BLR, STATEMENTS)
+		ITEM(blr_select, BLR, STATEMENTS)
+		ITEM(blr_send, BLR, STATEMENTS)
+		ITEM(blr_store, BLR, STATEMENTS)
+		ITEM(blr_label, BLR, STATEMENTS)
+		ITEM(blr_leave, BLR, STATEMENTS)
+		ITEM(blr_store2, BLR, STATEMENTS)
+		ITEM(blr_post, BLR, STATEMENTS)
+
+		ITEM(blr_literal, BLR, VALUES)
+		ITEM(blr_dbkey, BLR, VALUES)
+		ITEM(blr_field, BLR, VALUES)
+		ITEM(blr_fid, BLR, VALUES)
+		ITEM(blr_parameter, BLR, VALUES)
+		ITEM(blr_variable, BLR, VALUES)
+		ITEM(blr_average, BLR, VALUES)
+		ITEM(blr_count, BLR, VALUES)
+		ITEM(blr_maximum, BLR, VALUES)
+		ITEM(blr_minimum, BLR, VALUES)
+		ITEM(blr_total, BLR, VALUES)
+
+		ITEM(blr_add, BLR, VALUES)
+		ITEM(blr_subtract, BLR, VALUES)
+		ITEM(blr_multiply, BLR, VALUES)
+		ITEM(blr_divide, BLR, VALUES)
+		ITEM(blr_negate, BLR, VALUES)
+		ITEM(blr_concatenate, BLR, VALUES)
+		ITEM(blr_substring, BLR, VALUES)
+		ITEM(blr_parameter2, BLR, VALUES)
+		ITEM(blr_from, BLR, VALUES)
+		ITEM(blr_via, BLR, VALUES)
+		ITEM(blr_user_name, BLR, VALUES)	/* User name */
+		ITEM(blr_null, BLR, VALUES)
+
+		ITEM(blr_eql, BLR, BOOLEANS)
+		ITEM(blr_neq, BLR, BOOLEANS)
+		ITEM(blr_gtr, BLR, BOOLEANS)
+		ITEM(blr_geq, BLR, BOOLEANS)
+		ITEM(blr_lss, BLR, BOOLEANS)
+		ITEM(blr_leq, BLR, BOOLEANS)
+		ITEM(blr_containing, BLR, BOOLEANS)
+		ITEM(blr_matching, BLR, BOOLEANS)
+		ITEM(blr_starting, BLR, BOOLEANS)
+		ITEM(blr_between, BLR, BOOLEANS)
+		ITEM(blr_or, BLR, BOOLEANS)
+		ITEM(blr_and, BLR, BOOLEANS)
+		ITEM(blr_not, BLR, BOOLEANS)
+		ITEM(blr_any, BLR, BOOLEANS)
+		ITEM(blr_missing, BLR, BOOLEANS)
+		ITEM(blr_unique, BLR, BOOLEANS)
+		ITEM(blr_like, BLR, BOOLEANS)
+
+		ITEM(blr_rse, BLR, RSE)
+		ITEM(blr_first, BLR, RSE)
+		ITEM(blr_project, BLR, RSE)
+		ITEM(blr_sort, BLR, RSE)
+		ITEM(blr_boolean, BLR, RSE)
+		ITEM(blr_ascending, BLR, RSE)
+		ITEM(blr_descending, BLR, RSE)
+		ITEM(blr_relation, BLR, RSE)
+		ITEM(blr_rid, BLR, RSE)
+		ITEM(blr_union, BLR, RSE)
+		ITEM(blr_map, BLR, RSE)
+		ITEM(blr_group_by, BLR, RSE)
+		ITEM(blr_aggregate, BLR, RSE)
+		ITEM(blr_join_type, BLR, RSE)
+
+		ITEM(blr_agg_count, BLR, AGGREGATE)
+		ITEM(blr_agg_max, BLR, AGGREGATE)
+		ITEM(blr_agg_min, BLR, AGGREGATE)
+		ITEM(blr_agg_total, BLR, AGGREGATE)
+		ITEM(blr_agg_average, BLR, AGGREGATE)
+		ITEM(blr_run_count, BLR, AGGREGATE)
+		ITEM(blr_run_max, BLR, AGGREGATE)
+		ITEM(blr_run_min, BLR, AGGREGATE)
+		ITEM(blr_run_total, BLR, AGGREGATE)
+		ITEM(blr_run_average, BLR, AGGREGATE)
+
+		ITEM(blr_function, BLR, NEW)
+		ITEM(blr_gen_id, BLR, NEW)
+		ITEM(blr_prot_mask, BLR, NEW)
+		ITEM(blr_upcase, BLR, NEW)
+		ITEM(blr_lock_state, BLR, NEW)
+		ITEM(blr_value_if, BLR, NEW)
+		ITEM(blr_matching2, BLR, NEW)
+		ITEM(blr_index, BLR, NEW)
+		ITEM(blr_ansi_like, BLR, NEW)
+
+/* Database parameter block stuff */
+		ITEM(gds__dpb_version1, DPB, ITEMS)
+
+		ITEM(gds__dpb_cdd_pathname, DPB, ITEMS)	/* not implemented */
+		ITEM(gds__dpb_allocation, DPB, ITEMS)	/* not implemented */
+		ITEM(gds__dpb_journal, DPB, ITEMS)	/* not implemented */
+		ITEM(gds__dpb_page_size, DPB, ITEMS)
+		ITEM(gds__dpb_num_buffers, DPB, ITEMS)
+		ITEM(gds__dpb_buffer_length, DPB, ITEMS)	/* not implemented */
+		ITEM(gds__dpb_debug, DPB, ITEMS)
+		ITEM(gds__dpb_garbage_collect, DPB, ITEMS)	/* not implemented */
+		ITEM(gds__dpb_verify, DPB, ITEMS)
+		ITEM(gds__dpb_sweep, DPB, ITEMS)
+		ITEM(gds__dpb_enable_journal, DPB, ITEMS)
+		ITEM(gds__dpb_disable_journal, DPB, ITEMS)
+		ITEM(gds__dpb_dbkey_scope, DPB, ITEMS)
+		ITEM(gds__dpb_number_of_users, DPB, ITEMS)	/* not implemented */
+		ITEM(gds__dpb_trace, DPB, ITEMS)
+		ITEM(gds__dpb_no_garbage_collect, DPB, ITEMS)	/* not implemented */
+		ITEM(gds__dpb_damaged, DPB, ITEMS)
+		ITEM(gds__dpb_license, DPB, ITEMS)
+		ITEM(gds__dpb_user_name, DPB, ITEMS)	/* User Name (advisory only, DPB, ITEMS) */
+		ITEM(gds__dpb_encrypt_key, DPB, ITEMS)	/* Encryption key */
+		ITEM(gds__dpb_activate_shadow, DPB, ITEMS)	/* make a database out of a shadow */
+		ITEM(gds__dpb_sweep_interval, DPB, ITEMS)
+		/* Transactions betweens sweeps */
+		ITEM(gds__dpb_pages, DPB, BITS)
+		ITEM(gds__dpb_records, DPB, BITS)
+		ITEM(gds__dpb_indices, DPB, BITS)
+		ITEM(gds__dpb_transactions, DPB, BITS)
+		ITEM(gds__dpb_no_update, DPB, BITS)
+		ITEM(gds__dpb_repair, DPB, BITS)
+		ITEM(gds__dpb_ignore, DPB, BITS)
+
+/* Bit assignments in RDB$SYSTEM_FLAG */
+		ITEM(RDB_system, RDB, FLAG)	/* Object belongs to system */
+		ITEM(RDB_id_assigned, RDB, FLAG)
+
+
+		/* Internal id has been assigned */
+		/* Transaction parameter blob stuff */
+		ITEM(gds__tpb_version1, TPB, ITEMS)
+		ITEM(gds__tpb_version3, TPB, ITEMS)
+		ITEM(gds__tpb_consistency, TPB, ITEMS)
+		ITEM(gds__tpb_concurrency, TPB, ITEMS)
+		ITEM(gds__tpb_shared, TPB, ITEMS)
+		ITEM(gds__tpb_protected, TPB, ITEMS)
+		ITEM(gds__tpb_exclusive, TPB, ITEMS)
+		ITEM(gds__tpb_wait, TPB, ITEMS)
+		ITEM(gds__tpb_nowait, TPB, ITEMS)
+		ITEM(gds__tpb_read, TPB, ITEMS)
+		ITEM(gds__tpb_write, TPB, ITEMS)
+		ITEM(gds__tpb_lock_read, TPB, ITEMS)
+		ITEM(gds__tpb_lock_write, TPB, ITEMS)
+		ITEM(gds__tpb_verb_time, TPB, ITEMS)
+		ITEM(gds__tpb_commit_time, TPB, ITEMS)
+		ITEM(gds__tpb_ignore_limbo, TPB, ITEMS)
+
+/* Blob Parameter Block */
+		ITEM(gds__bpb_version1, BPB, ITEMS)
+		ITEM(gds__bpb_source_type, BPB, ITEMS)
+		ITEM(gds__bpb_target_type, BPB, ITEMS)
+		ITEM(gds__bpb_type, BPB, ITEMS)
+
+		ITEM(gds__bpb_type_segmented, BPB, ITEMS)
+		ITEM(gds__bpb_type_stream, BPB, ITEMS)
+
+
+/* Information call declarations */
+/* Common, structural codes */
+		ITEM(gds__info_end, INFO, MECH)
+		ITEM(gds__info_truncated, INFO, MECH)
+		ITEM(gds__info_error, INFO, MECH)
+
+/* Database information items */
+		ITEM(gds__info_db_id, INFO, DB)
+		ITEM(gds__info_reads, INFO, DB)
+		ITEM(gds__info_writes, INFO, DB)
+		ITEM(gds__info_fetches, INFO, DB)
+		ITEM(gds__info_marks, INFO, DB)
+		ITEM(gds__info_implementation, INFO, DB)
+		ITEM(gds__info_version, INFO, DB)
+		ITEM(gds__info_base_level, INFO, DB)
+		ITEM(gds__info_page_size, INFO, DB)
+		ITEM(gds__info_num_buffers, INFO, DB)
+		ITEM(gds__info_limbo, INFO, DB)
+		ITEM(gds__info_current_memory, INFO, DB)
+		ITEM(gds__info_max_memory, INFO, DB)
+		ITEM(gds__info_window_turns, INFO, DB)
+		ITEM(gds__info_license, INFO, DB)
+		ITEM(gds__info_allocation, INFO, DB)
+		ITEM(gds__info_attachment_id, INFO, DB)
+		ITEM(gds__info_read_seq_count, INFO, DB)
+		ITEM(gds__info_read_idx_count, INFO, DB)
+		ITEM(gds__info_insert_count, INFO, DB)
+		ITEM(gds__info_update_count, INFO, DB)
+		ITEM(gds__info_delete_count, INFO, DB)
+		ITEM(gds__info_backout_count, INFO, DB)
+		ITEM(gds__info_purge_count, INFO, DB)
+		ITEM(gds__info_expunge_count, INFO, DB)
+
+/* Database Info Return Values */
+		ITEM(gds__info_db_impl_rdb_vms, INFO, VALUES)
+		ITEM(gds__info_db_impl_rdb_eln, INFO, VALUES)
+		ITEM(gds__info_db_impl_rdb_eln_dev, INFO, VALUES)
+		ITEM(gds__info_db_impl_rdb_vms_y, INFO, VALUES)
+		ITEM(gds__info_db_impl_rdb_eln_y, INFO, VALUES)
+		ITEM(gds__info_db_impl_jri, INFO, VALUES)
+		ITEM(gds__info_db_impl_jsv, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_a, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_u, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_v, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_s, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_apl_68K, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_vax_ultr, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_vms, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_sun_68k, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_os2, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_sun4, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_hp_ux, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_sun_386i, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_vms_orcl, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_mac_aux, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_rt_aix, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_mips_ult, INFO, VALUES)
+		ITEM(gds__info_db_impl_isc_apl_dn10, INFO, VALUES)
+
+		ITEM(gds__info_db_class_access, INFO, VALUES)
+		ITEM(gds__info_db_class_y_valve, INFO, VALUES)
+		ITEM(gds__info_db_class_rem_int, INFO, VALUES)
+		ITEM(gds__info_db_class_rem_srvr, INFO, VALUES)
+		ITEM(gds__info_db_class_pipe_int, INFO, VALUES)
+		ITEM(gds__info_db_class_pipe_srvr, INFO, VALUES)
+		ITEM(gds__info_db_class_sam_int, INFO, VALUES)
+		ITEM(gds__info_db_class_sam_srvr, INFO, VALUES)
+		ITEM(gds__info_db_class_gateway, INFO, VALUES)
+
+
+/* Request information items */
+		ITEM(gds__info_number_messages, INFO, REQUEST)
+		ITEM(gds__info_max_message, INFO, REQUEST)
+		ITEM(gds__info_max_send, INFO, REQUEST)
+		ITEM(gds__info_max_receive, INFO, REQUEST)
+		ITEM(gds__info_state, INFO, REQUEST)
+		ITEM(gds__info_message_number, INFO, REQUEST)
+		ITEM(gds__info_message_size, INFO, REQUEST)
+		ITEM(gds__info_request_cost, INFO, REQUEST)
+
+		ITEM(gds__info_req_active, INFO, REQUEST)
+		ITEM(gds__info_req_inactive, INFO, REQUEST)
+		ITEM(gds__info_req_send, INFO, REQUEST)
+		ITEM(gds__info_req_receive, INFO, REQUEST)
+		ITEM(gds__info_req_select, INFO, REQUEST)
+
+/* Blob information items */
+		ITEM(gds__info_blob_num_segments, INFO, BLOB)
+		ITEM(gds__info_blob_max_segment, INFO, BLOB)
+		ITEM(gds__info_blob_total_length, INFO, BLOB)
+		ITEM(gds__info_blob_type, INFO, BLOB)
+
+/* Transaction information items */
+		ITEM(gds__info_tra_id, INFO, TRANSACTION)
+
+
+		ITEM(gds_facility, ERROR, MECH)
+		ITEM(gds_err_base, ERROR, MECH)
+		ITEM(gds_err_factor, ERROR, MECH)
+		ITEM(gds_arg_end, ERROR, MECH)
+		ITEM(gds_arg_gds, ERROR, MECH)
+		ITEM(gds_arg_string, ERROR, MECH)
+		ITEM(gds_arg_cstring, ERROR, MECH)
+		ITEM(gds_arg_number, ERROR, MECH)
+		ITEM(gds_arg_interpreted, ERROR, MECH)
+		ITEM(gds_arg_vms, ERROR, MECH)
+		ITEM(gds_arg_unix, ERROR, MECH)
+		ITEM(gds_arg_domain, ERROR, MECH)
+		ITEM(gds_arg_dos, ERROR, MECH)
+		ITEM(gds_arg_mpexl, ERROR, MECH)
+
+/* Dynamic Data Definition Language operators */
+/* Version number */
+		ITEM(gds__dyn_version_1, DYN, MECH)
+		ITEM(gds__dyn_eoc, DYN, MECH)
+
+/* Operations (may be nested, DYN, yyy) */
+		ITEM(gds__dyn_begin, DYN, OPERATIONS)
+		ITEM(gds__dyn_end, DYN, OPERATIONS)
+		ITEM(gds__dyn_if, DYN, OPERATIONS)
+
+		ITEM(gds__dyn_def_database, DYN, OPERATIONS)
+		ITEM(gds__dyn_def_global_fld, DYN, OPERATIONS)
+		ITEM(gds__dyn_def_local_fld, DYN, OPERATIONS)
+		ITEM(gds__dyn_def_idx, DYN, OPERATIONS)
+		ITEM(gds__dyn_def_rel, DYN, OPERATIONS)
+		ITEM(gds__dyn_def_sql_fld, DYN, OPERATIONS)
+		ITEM(gds__dyn_def_view, DYN, OPERATIONS)
+		ITEM(gds__dyn_def_trigger, DYN, OPERATIONS)
+		ITEM(gds__dyn_def_security_class, DYN, OPERATIONS)
+		ITEM(gds__dyn_def_dimension, DYN, OPERATIONS)
+
+		ITEM(gds__dyn_mod_rel, DYN, OPERATIONS)
+		ITEM(gds__dyn_mod_global_fld, DYN, OPERATIONS)
+		ITEM(gds__dyn_mod_idx, DYN, OPERATIONS)
+		ITEM(gds__dyn_mod_local_fld, DYN, OPERATIONS)
+		ITEM(gds__dyn_mod_view, DYN, OPERATIONS)
+		ITEM(gds__dyn_mod_security_class, DYN, OPERATIONS)
+		ITEM(gds__dyn_mod_trigger, DYN, OPERATIONS)
+
+		ITEM(gds__dyn_delete_database, DYN, OPERATIONS)
+		ITEM(gds__dyn_delete_rel, DYN, OPERATIONS)
+		ITEM(gds__dyn_delete_global_fld, DYN, OPERATIONS)
+		ITEM(gds__dyn_delete_local_fld, DYN, OPERATIONS)
+		ITEM(gds__dyn_delete_idx, DYN, OPERATIONS)
+		ITEM(gds__dyn_delete_security_class, DYN, OPERATIONS)
+		ITEM(gds__dyn_delete_dimensions, DYN, OPERATIONS)
+
+		ITEM(gds__dyn_grant, DYN, OPERATIONS)
+		ITEM(gds__dyn_revoke, DYN, OPERATIONS)
+
+/* View specific stuff */
+		ITEM(gds__dyn_view_blr, DYN, VIEW)
+		ITEM(gds__dyn_view_source, DYN, VIEW)
+		ITEM(gds__dyn_view_relation, DYN, VIEW)
+		ITEM(gds__dyn_view_context, DYN, VIEW)
+		ITEM(gds__dyn_view_context_name, DYN, VIEW)
+
+/* Generic attributes */
+		ITEM(gds__dyn_rel_name, DYN, GENERIC)
+		ITEM(gds__dyn_fld_name, DYN, GENERIC)
+		ITEM(gds__dyn_idx_name, DYN, GENERIC)
+		ITEM(gds__dyn_description, DYN, GENERIC)
+		ITEM(gds__dyn_security_class, DYN, GENERIC)
+		ITEM(gds__dyn_system_flag, DYN, GENERIC)
+		ITEM(gds__dyn_update_flag, DYN, GENERIC)
+
+/* Relation specific attributes */
+		ITEM(gds__dyn_rel_dbkey_length, DYN, RELATION)
+		ITEM(gds__dyn_rel_store_trig, DYN, RELATION)
+		ITEM(gds__dyn_rel_modify_trig, DYN, RELATION)
+		ITEM(gds__dyn_rel_erase_trig, DYN, RELATION)
+		ITEM(gds__dyn_rel_store_trig_source, DYN, RELATION)
+		ITEM(gds__dyn_rel_modify_trig_source, DYN, RELATION)
+		ITEM(gds__dyn_rel_erase_trig_source, DYN, RELATION)
+		ITEM(gds__dyn_rel_ext_file, DYN, RELATION)
+		ITEM(gds__dyn_rel_sql_protection, DYN, RELATION)
+
+/* Global field specific attributes */
+		ITEM(gds__dyn_fld_type, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_length, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_scale, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_sub_type, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_segment_length, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_query_header, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_edit_string, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_validation_blr, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_validation_source, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_computed_blr, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_computed_source, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_missing_value, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_default_value, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_query_name, DYN, GLOBAL)
+		ITEM(gds__dyn_fld_dimensions, DYN, GLOBAL)
+
+/* Local field specific attributes */
+		ITEM(gds__dyn_fld_source, DYN, FIELD)
+		ITEM(gds__dyn_fld_base_fld, DYN, FIELD)
+		ITEM(gds__dyn_fld_position, DYN, FIELD)
+		ITEM(gds__dyn_fld_update_flag, DYN, FIELD)
+
+/* Index specific attributes */
+		ITEM(gds__dyn_idx_unique, DYN, INDEX)
+		ITEM(gds__dyn_idx_inactive, DYN, INDEX)
+		ITEM(gds__dyn_idx_type, DYN, INDEX)
+
+/* Trigger specific attributes */
+		ITEM(gds__dyn_trg_type, DYN, TRIGGER)
+		ITEM(gds__dyn_trg_blr, DYN, TRIGGER)
+		ITEM(gds__dyn_trg_source, DYN, TRIGGER)
+
+/* Security Class specific attributes */
+		ITEM(gds__dyn_scl_acl, DYN, SECURITY)
+
+/* Grant/Revoke specific attributes */
+		ITEM(gds__dyn_grant_user, DYN, SECURITY)
+		ITEM(gds__dyn_grant_options, DYN, SECURITY)
+
+		ITEM(gds__dyn_dim_lower, DYN, ARRAY)
+		ITEM(gds__dyn_dim_upper, DYN, ARRAY)
+
+/* Array slice description language (SDL, xxx, yyy) */
+		ITEM(gds__sdl_version1, SDL, SDL)
+		ITEM(gds__sdl_eoc, SDL, SDL)
+		ITEM(gds__sdl_relation, SDL, SDL)
+		ITEM(gds__sdl_rid, SDL, SDL)
+		ITEM(gds__sdl_field, SDL, SDL)
+		ITEM(gds__sdl_fid, SDL, SDL)
+		ITEM(gds__sdl_struct, SDL, SDL)
+		ITEM(gds__sdl_variable, SDL, SDL)
+		ITEM(gds__sdl_scalar, SDL, SDL)
+		ITEM(gds__sdl_tiny_integer, SDL, SDL)
+		ITEM(gds__sdl_short_integer, SDL, SDL)
+		ITEM(gds__sdl_long_integer, SDL, SDL)
+		ITEM(gds__sdl_literal, SDL, SDL)
+		ITEM(gds__sdl_add, SDL, SDL)
+		ITEM(gds__sdl_subtract, SDL, SDL)
+		ITEM(gds__sdl_multiply, SDL, SDL)
+		ITEM(gds__sdl_divide, SDL, SDL)
+		ITEM(gds__sdl_negate, SDL, SDL)
+		ITEM(gds__sdl_eql, SDL, SDL)
+		ITEM(gds__sdl_neq, SDL, SDL)
+		ITEM(gds__sdl_gtr, SDL, SDL)
+		ITEM(gds__sdl_geq, SDL, SDL)
+		ITEM(gds__sdl_lss, SDL, SDL)
+		ITEM(gds__sdl_leq, SDL, SDL)
+		ITEM(gds__sdl_and, SDL, SDL)
+		ITEM(gds__sdl_or, SDL, SDL)
+		ITEM(gds__sdl_not, SDL, SDL)
+		ITEM(gds__sdl_while, SDL, SDL)
+		ITEM(gds__sdl_assignment, SDL, SDL)
+		ITEM(gds__sdl_label, SDL, SDL)
+		ITEM(gds__sdl_leave, SDL, SDL)
+		ITEM(gds__sdl_begin, SDL, SDL)
+		ITEM(gds__sdl_end, SDL, SDL)
+		ITEM(gds__sdl_do3, SDL, SDL)
+		ITEM(gds__sdl_do2, SDL, SDL)
+		ITEM(gds__sdl_do1, SDL, SDL)
+		ITEM(gds__sdl_element, SDL, SDL)
+
+		ITEM(SQL_TEXT, SQL, DTYPE)
+		ITEM(SQL_VARYING, SQL, DTYPE)
+		ITEM(SQL_SHORT, SQL, DTYPE)
+		ITEM(SQL_LONG, SQL, DTYPE)
+		ITEM(SQL_FLOAT, SQL, DTYPE)
+		ITEM(SQL_DOUBLE, SQL, DTYPE)
+		ITEM(SQL_DATE, SQL, DTYPE)
+		ITEM(SQL_BLOB, SQL, DTYPE)
+
+/* Forms Package definitions */
+/* Map definition block definitions */
+		ITEM(PYXIS__MAP_VERSION1, PYXIS, MAP)
+		ITEM(PYXIS__MAP_FIELD2, PYXIS, MAP)
+		ITEM(PYXIS__MAP_FIELD1, PYXIS, MAP)
+		ITEM(PYXIS__MAP_MESSAGE, PYXIS, MAP)
+		ITEM(PYXIS__MAP_TERMINATOR, PYXIS, MAP)
+		ITEM(PYXIS__MAP_TERMINATING_FIELD, PYXIS, MAP)
+		ITEM(PYXIS__MAP_OPAQUE, PYXIS, MAP)
+		ITEM(PYXIS__MAP_TRANSPARENT, PYXIS, MAP)
+		ITEM(PYXIS__MAP_TAG, PYXIS, MAP)
+		ITEM(PYXIS__MAP_SUB_FORM, PYXIS, MAP)
+		ITEM(PYXIS__MAP_ITEM_INDEX, PYXIS, MAP)
+		ITEM(PYXIS__MAP_SUB_FIELD, PYXIS, MAP)
+		ITEM(PYXIS__MAP_END, PYXIS, MAP)
+
+/* Field option flags for display options */
+		ITEM(PYXIS__OPT_DISPLAY, PYXIS, DISPLAY)
+		ITEM(PYXIS__OPT_UPDATE, PYXIS, DISPLAY)
+		ITEM(PYXIS__OPT_WAKEUP, PYXIS, DISPLAY)
+		ITEM(PYXIS__OPT_POSITION, PYXIS, DISPLAY)
+
+/* Field option values following display */
+		ITEM(PYXIS__OPT_NULL, PYXIS, VALUE)	/* No data: zero/blank filled */
+		ITEM(PYXIS__OPT_DEFAULT, PYXIS, VALUE)	/* Defaulted data */
+		ITEM(PYXIS__OPT_INITIAL, PYXIS, VALUE)	/* Program initialized valued */
+		ITEM(PYXIS__OPT_USER_DATA, PYXIS, VALUE)
+
+
+		/* User supplied data */
+		/* Pseudo key definitions */
+		ITEM(PYXIS__KEY_DELETE, PYXIS, KEY)
+		ITEM(PYXIS__KEY_UP, PYXIS, KEY)
+		ITEM(PYXIS__KEY_DOWN, PYXIS, KEY)
+		ITEM(PYXIS__KEY_RIGHT, PYXIS, KEY)
+		ITEM(PYXIS__KEY_LEFT, PYXIS, KEY)
+		ITEM(PYXIS__KEY_PF1, PYXIS, KEY)
+		ITEM(PYXIS__KEY_PF2, PYXIS, KEY)
+		ITEM(PYXIS__KEY_PF3, PYXIS, KEY)
+		ITEM(PYXIS__KEY_PF4, PYXIS, KEY)
+		ITEM(PYXIS__KEY_PF5, PYXIS, KEY)
+		ITEM(PYXIS__KEY_PF6, PYXIS, KEY)
+		ITEM(PYXIS__KEY_PF7, PYXIS, KEY)
+		ITEM(PYXIS__KEY_PF8, PYXIS, KEY)
+		ITEM(PYXIS__KEY_PF9, PYXIS, KEY)
+		ITEM(PYXIS__KEY_ENTER, PYXIS, KEY)
+		ITEM(PYXIS__KEY_SCROLL_TOP, PYXIS, KEY)
+		ITEM(PYXIS__KEY_SCROLL_BOTTOM, PYXIS, KEY)
+
+/* Menu definition stuff */
+		ITEM(PYXIS__MENU_VERSION1, PYXIS, MENU)
+		ITEM(PYXIS__MENU_LABEL, PYXIS, MENU)
+		ITEM(PYXIS__MENU_ENTREE, PYXIS, MENU)
+		ITEM(PYXIS__MENU_OPAQUE, PYXIS, MENU)
+		ITEM(PYXIS__MENU_TRANSPARENT, PYXIS, MENU)
+		ITEM(PYXIS__MENU_HORIZONTAL, PYXIS, MENU)
+		ITEM(PYXIS__MENU_VERTICAL, PYXIS, MENU)
+		ITEM(PYXIS__MENU_END, PYXIS, MENU)
+
+	0, 0, 0, 0
+};
+
+void main( int argc, char **argv)
+{
+	SSHORT sequence;
+	STUFF *item;
+
+	READY;
+	START_TRANSACTION;
+
+	FOR X IN SYMBOLS
+		ERASE X;
+	END_FOR;
+
+	sequence = 0;
+
+	for (item = stuff; item->symbol; ++item)
+	STORE X IN SYMBOLS
+		X.SEQUENCE = ++sequence;
+		X.VALUE = item->value;
+		strcpy(X.SYMBOL, item->symbol);
+		strcpy(X.CLASS, item->class);
+		strcpy(X.TYPE, item->type);
+	END_STORE;
+
+	COMMIT;
+	FINISH;
+	exit(FINI_OK);
+}
diff --git a/src/msgs/makefile.mak b/src/msgs/makefile.mak
new file mode 100644
index 0000000000..aaf0a8f6ec
--- /dev/null
+++ b/src/msgs/makefile.mak
@@ -0,0 +1,85 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+#--------------------------- PC MSGS MAKEFILE ----------------------------
+ROOT=..
+.path.c=$(ROOT)\msgs
+
+WIN=1
+DEBUG=1
+APPBUILD=1
+!include $(ROOT)\std.mk
+
+#--------------------------- SOURCE COMPONENTS -----------------------------
+
+SRCS = build_fi.c
+
+# Extra files which are used to build the product
+XFILES   = makefile.mak
+
+#---------------------------- TARGET LIST --------------------------------
+OBJS=$(TOOLPATH)\lib\c0wl.obj $(SRCS:.c=.obj)
+BUILDLIBS=$(ROOT)\jrd\$(.path.obj)\gds.lib
+
+all: extern_libs build.exe 
+
+#------------------------------ RULES -------------------------------------
+
+# Makes the build.exe application which reads the msg database and
+# builds the message file.
+build.exe: $(OBJS) $(BUILDLIBS) build.rsp
+   tlink $(LFLAGS) @$(.path.obj)\$&.rsp @&&|
+   $<
+   $*.map
+   $(BUILDLIBS) cw$(MODEL) mathw$(MODEL) import.lib
+   $&.def
+|
+
+build.rsp: $(OBJS)
+	copy &&|
+	$**
+| $<
+
+# Because of the circular "architecture" here, we need to build 
+# required libraries within each of the makefiles.
+extern_libs:
+	cd $(ROOT)\jrd
+	make $(MAKEFLAGS) alllibs
+	cd $(ROOT)\msgs
+
+
+#---------------------------- UTILITIES ---------------------------------
+# Refresh all the source & header files from the DEVSRC directory
+srcs::
+   for %i in ($(SRCS)) do copy $(DEVSRC)\msgs\%i
+   for %i in ($(XFILES)) do copy $(DEVSRC)\msgs\%i
+
diff --git a/src/msgs/modify_msgs.e b/src/msgs/modify_msgs.e
new file mode 100644
index 0000000000..6e7e89b20c
--- /dev/null
+++ b/src/msgs/modify_msgs.e
@@ -0,0 +1,197 @@
+/*
+ *	PROGRAM:	Interbase Message file modify for escape chars
+ *	MODULE:		modify_messages.e
+ *	DESCRIPTION:	Allow modification of messages with translatation of escape sequences
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/gds.h"
+#include "../jrd/common.h"
+
+DATABASE DB = "msg.gdb";
+
+static int explicit_print(TEXT *);
+
+
+void main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Top level routine.  
+ *
+ **************************************/
+	SCHAR facility[20], transtext[256], newtext[256];
+	SCHAR innumber[4];
+	SCHAR *p, *q;
+	SSHORT number;
+
+	ib_printf("\nHit Ctrl-D (or Ctrl-Z) at prompt to exit level\n");
+	ib_printf("You will be prompted for fac_code and message number\n");
+	ib_printf("Escape sequences will be translated to single bytes\n");
+
+	READY;
+	START_TRANSACTION;
+
+	for (;;) {
+		ib_printf("Facility: ");
+		if (!gets(facility))
+			break;
+		FOR Y IN FACILITIES WITH Y.FACILITY CONTAINING facility
+			ib_printf("Message number: ");
+			if (!gets(innumber))
+				break;
+			number = atoi(innumber);
+			FOR X IN MESSAGES WITH X.FAC_CODE = Y.FAC_CODE AND X.NUMBER = number
+				ib_printf(" Current text:");
+				explicit_print(X.TEXT);
+				ib_printf("\n New text: ");
+				if (!gets(newtext))
+					break;
+
+				MODIFY X USING
+
+					p = X.TEXT;
+					q = newtext;
+
+					/* translate scape sequences to single bytes */
+					while (*q) {
+						if (*q == '\\') {
+							*q++;
+							switch (*q) {
+							case 'n':
+								*p++ = '\n';
+								break;
+							case 't':
+								*p++ = '\t';
+								break;
+							case 'f':
+								*p++ = '\f';
+								break;
+							case 'a':
+								*p++ = '\a';
+								break;
+							case 'b':
+								*p++ = '\b';
+								break;
+							case 'r':
+								*p++ = '\r';
+								break;
+							case 'v':
+								*p++ = '\v';
+								break;
+							case '\\':
+								*p++ = '\\';
+								break;
+							case '\"':
+								*p++ = '\"';
+								break;
+							case '\'':
+								*p++ = '\'';
+								break;
+							default:
+								ib_printf
+									("\n\n*** Escape sequence not understood; being copied unchanged  ***\n\n");
+								*p++ = '\\';
+								*p++ = *q;
+								break;
+							}
+							*q++;
+						}
+						else
+							*p++ = *q++;
+					}
+					*p = 0;
+				END_MODIFY;
+			END_FOR;
+		END_FOR;
+	}
+
+	COMMIT;
+	FINISH;
+	exit(FINI_OK);
+}
+
+
+static int explicit_print( TEXT * string)
+{
+/**************************************
+ *
+ *	e x p l i c i t _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Let it all hang out: print line
+ *      with explicit \n \b \t \f etc.
+ *      to make changing messages easy
+ *
+ **************************************/
+	TEXT *p;
+
+	p = string;
+
+	while (*p) {
+		switch (*p) {
+		case '\n':
+			ib_putchar('\\');
+			ib_putchar('n');
+			break;
+		case '\t':
+			ib_putchar('\\');
+			ib_putchar('t');
+			break;
+		case '\f':
+			ib_putchar('\\');
+			ib_putchar('f');
+			break;
+		case '\b':
+			ib_putchar('\\');
+			ib_putchar('b');
+			break;
+		case '\r':
+			ib_putchar('\\');
+			ib_putchar('r');
+			break;
+		case '\v':
+			ib_putchar('\\');
+			break;
+		case '\\':
+			ib_putchar('\\');
+			ib_putchar('\\');
+			break;
+		case '\"':
+			ib_putchar('\\');
+			ib_putchar('\"');
+			break;
+		case '\'':
+			ib_putchar('\\');
+			ib_putchar('\'');
+			break;
+		default:
+			ib_putchar(*p);
+		}
+		*p++;
+	}
+}
diff --git a/src/msgs/msg.gbak b/src/msgs/msg.gbak
new file mode 100644
index 0000000000..dcb802463e
Binary files /dev/null and b/src/msgs/msg.gbak differ
diff --git a/src/msgs/msg.gdl b/src/msgs/msg.gdl
new file mode 100644
index 0000000000..e8e1e93b36
--- /dev/null
+++ b/src/msgs/msg.gdl
@@ -0,0 +1,312 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+define database "msg.gdb"
+	page_size 1024;
+
+
+/*	Global Field Definitions	*/
+
+define field ACTION blob;
+define field CHANGE_DATE date;
+define field CHANGE_NUMBER long;
+define field CHANGE_WHO varying [32];
+define field CLASS char [10];
+define field DESCRIPTION blob segment_length 80;
+define field EXPLANATION blob;
+define field FACILITY char [10];
+define field FAC_CODE short;
+define field FILE varying [30];
+define field FLAGS short;
+define field LANGUAGE varying [10];
+define field LAST_CHANGE date;
+define field LOCALE varying [20];
+define field MAX_NUMBER short;
+define field MODULE varying [32];
+define field NUMBER short;
+define field OLD_SEQUENCE short;
+define field PYXIS$FORM blob segment_length 80
+	system_flag 3;
+define field PYXIS$FORM_NAME char [31]
+	system_flag 3;
+define field PYXIS$FORM_TYPE char [16]
+	system_flag 3;
+define field QLI$PROCEDURE blob segment_length 80 sub_type text
+	system_flag 2;
+define field QLI$PROCEDURE_NAME char [31]
+	system_flag 2;
+define field ROUTINE varying [32];
+define field SEQUENCE short;
+define field SEVERITY short;
+define field SEVERITY_TEXT char [7];
+define field SQL_CODE short;
+define field SYMBOL varying [32];
+define field TEMPLATE blob segment_length 256;
+define field TEXT varying [118];
+define field TRANSLATOR varying [32];
+define field TRANS_DATE date;
+define field TRANS_NOTES blob;
+define field TYPE char [12];
+define field VALUE long;
+define field VMS_CODE long;
+
+
+/*	Relation Definitions	*/
+
+
+define relation FACILITIES
+    FACILITY	position 0,
+    FAC_CODE	position 1,
+    MAX_NUMBER	position 2,
+    LAST_CHANGE;
+
+define relation HISTORY
+    CHANGE_NUMBER	position 1,
+    CHANGE_WHO	position 2,
+    CHANGE_DATE	position 3,
+    FAC_CODE	position 5,
+    NUMBER	position 6,
+    OLD_TEXT based on TEXT	position 7,
+    OLD_ACTION based on ACTION	position 8,
+    OLD_EXPLANATION based on EXPLANATION	position 9,
+    LOCALE	position 10,
+    CODE computed by (fac_code * 10000 + number)	position 4;
+
+define relation LOCALES
+    LOCALE	position 1,
+    DESCRIPTION	position 2;
+
+define relation MESSAGES
+    FAC_CODE	position 1,
+    NUMBER	position 2,
+    FLAGS	position 3,
+    TEXT	position 4,
+    ACTION	position 5,
+    EXPLANATION	position 6,
+    SQL_CODE	position 7,
+    SEVERITY_TEXT	position 8,
+    SEVERITY	position 9,
+    VMS_CODE	position 10,
+    MODULE,
+    ROUTINE,
+    SYMBOL,
+    TRANS_NOTES,
+    CODE computed by (fac_code * 10000 + number)	position 0;
+
+define relation PYXIS$FORMS
+	system_flag 3
+    PYXIS$FORM_NAME	position 1
+	system_flag 3,
+    PYXIS$FORM_TYPE	position 2
+	system_flag 3,
+    PYXIS$FORM	position 3
+	system_flag 3;
+
+define relation QLI$PROCEDURES
+	system_flag 2
+    QLI$PROCEDURE_NAME	position 0
+	system_flag 2,
+    QLI$PROCEDURE	position 1
+	system_flag 2;
+
+define relation SYMBOLS
+    SYMBOL	position 0,
+    VALUE	position 1,
+    CLASS	position 2,
+    TYPE	position 3,
+    SEQUENCE	position 4;
+
+define relation TEMPLATES
+    LANGUAGE	position 1,
+    FILE	position 2,
+    TEMPLATE	position 3;
+
+define relation TRANSMSGS
+    FAC_CODE	position 2,
+    NUMBER	position 3,
+    LOCALE	position 4,
+    TEXT	position 5,
+    ACTION	position 6,
+    EXPLANATION	position 7,
+    TRANSLATOR	position 8,
+    TRANS_DATE	position 9,
+    ENG_ACTION based on ACTION,
+    ENG_EXPLANATION based on EXPLANATION,
+    ENG_TEXT based on TEXT,
+    CODE computed by (fac_code * 10000 + number)	position 1;
+
+
+/*	View Definitions	*/
+
+
+define view MAJOR_CODES of m in messages with
+	m.fac_code = 0 and m.code < 64 and m.symbol not missing
+        M.SQL_CODE	position 1,
+    M.CODE	position 2,
+    M.SYMBOL	position 3,
+    GDS_TEXT FROM M.TEXT	position 4,
+    APOLLO_TEXT FROM M.TEXT	position 5,
+    M.EXPLANATION	position 6,
+    M.ACTION	position 7,
+    M.SEVERITY	position 8,
+    M.SEVERITY_TEXT	position 9,
+    M.VMS_CODE	position 10;
+
+define view MINOR_CODES of m in messages with
+	m.fac_code = 0 and m.code >= 64 and m.symbol not missing
+        M.CODE	position 1,
+    M.SYMBOL	position 2,
+    GDS_TEXT FROM M.TEXT	position 3,
+    APOLLO_TEXT FROM M.TEXT	position 4,
+    M.EXPLANATION	position 5,
+    M.ACTION	position 6,
+    M.SEVERITY	position 7,
+    M.VMS_CODE	position 8;
+
+
+/*	Index Definitions	*/
+
+
+define index FAC_1 for FACILITIES unique
+	FAC_CODE;
+
+define index FAC_2 for FACILITIES unique
+	FACILITY;
+
+define index UNIQUE_LOCALES for LOCALES unique
+	LOCALE;
+
+define index MSG_1 for MESSAGES unique
+	FAC_CODE,
+	NUMBER;
+
+define index PYXIS$INDEX for PYXIS$FORMS unique
+inactive
+	PYXIS$FORM_NAME;
+
+define index SYM1 for SYMBOLS 
+	CLASS,
+	TYPE;
+
+define index SYM2 for SYMBOLS unique
+	SYMBOL;
+
+define index TMSG_1 for TRANSMSGS unique
+	LOCALE,
+	FAC_CODE,
+	NUMBER;
+
+
+/*	Generator Definitions	*/
+
+
+define generator CHANGE_NUM;
+
+/*	Trigger Definitions	*/
+
+
+
+define trigger FACILITIES$MODIFY for FACILITIES
+	pre modify 0:
+begin
+	new.last_change = 'now';
+    end;
+
+	end_trigger;
+
+define trigger FACILITIES$STORE for FACILITIES
+	pre store 0:
+begin
+	new.last_change = 'now';
+    end;
+
+	end_trigger;
+
+define trigger MESSAGES$MODIFY for MESSAGES
+	post modify 0:
+begin
+	for f in facilities with f.fac_code = new.fac_code
+	    modify f using
+		f.last_change = 'now';
+	    end_modify;
+	end_for;
+    end;
+
+
+	end_trigger;
+
+define trigger MSGS$MODIFY for MESSAGES
+	post modify 1:
+begin
+   if (new.text ne old.text)
+      begin
+         store h in history using
+            h.change_number = gen_id(change_num, 1);
+            h.change_date   = "now";
+            h.change_who    = rdb$user_name;
+            h.fac_code      = old.fac_code;
+            h.number        = old.number;
+            h.old_text      = old.text;
+ 	    h.old_action    = old.action;
+ 	    h.old_explanation = old.explanation
+            h.locale        = "c_pg";
+         end_store;
+      end;
+end;
+
+	
+	end_trigger;
+
+define trigger TRANSMSGS$MODIFY for TRANSMSGS
+	post modify 0:
+begin
+   if (new.text ne old.text)
+      begin
+         store h in history using
+            h.change_number = gen_id(change_num, 1);
+            h.change_date   = "now";
+            h.change_who    = rdb$user_name;
+            h.fac_code      = old.fac_code;
+            h.number        = old.number;
+            h.old_text      = old.text;
+ 	    h.old_action    = old.action;
+ 	    h.old_explanation = old.explanation
+            h.locale        = old.locale;
+         end_store;
+      end;
+end;
+
+	
+	end_trigger;
+
+define trigger TRANSMSGS$STORE for TRANSMSGS
+	pre store 0:
+begin
+   if (new.translator missing)
+	   new.translator = rdb$user_name;
+   if (new.trans_date missing)
+	   new.trans_date = "now";
+   if (new.locale missing)
+	   abort 1;
+   if (not any t in locales with t.locale = new.locale)
+	   abort 2;
+end;
+
+	end_trigger 
+	message  1:  'LOCALE must be present',
+	message  2:  'Unknown locale name';
diff --git a/src/pipe/allp.cpp b/src/pipe/allp.cpp
new file mode 100644
index 0000000000..7248f6a22a
--- /dev/null
+++ b/src/pipe/allp.cpp
@@ -0,0 +1,129 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		all.c
+ *	DESCRIPTION:	Internal block allocator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../pipe/pipe.h"
+
+#define BLKDEF(type, root, tail) sizeof (struct root), tail,
+static struct {
+    SSHORT	typ_root_length;
+    SSHORT	typ_tail_length;
+    } PIPE_block_sizes[] =
+    {
+    0,0,
+
+#include "../pipe/blk.h"
+    0};
+
+#include "../pipe/allp_proto.h"
+#include "../jrd/gds_proto.h"
+
+
+UCHAR *ALLP_alloc (
+    ULONG	size)
+{
+/**************************************
+ *
+ *	A L L _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block.
+ *
+ **************************************/
+
+return gds__alloc (size);
+}
+
+BLK ALLP_block (
+    UCHAR	type,
+    int		count)
+{
+/**************************************
+ *
+ *	A L L _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block from a given pool and initialize the block.
+ *	This is the primary block allocation routine.
+ *
+ **************************************/
+register BLK	block;
+register USHORT	size, *p;
+USHORT		best_tail, tail;
+
+if (type <= (SCHAR) type_MIN || type >= (SCHAR) type_MAX)
+    abort();
+
+/* Compute block length */
+
+size = PIPE_block_sizes[type].typ_root_length;
+
+if (tail = PIPE_block_sizes[type].typ_tail_length)
+    size += count * tail;
+
+block = (BLK) ALLP_alloc ((SLONG) size);
+block->blk_type = type;
+block->blk_length = size;
+
+if (size -= sizeof (struct blk))
+    memset ((SCHAR*) block + sizeof (struct blk), 0, size);
+
+return block;
+}
+
+void ALLP_free (
+    UCHAR	*block)
+{
+/**************************************
+ *
+ *	A L L _ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free a block.
+ *
+ **************************************/
+
+gds__free (block);
+}
+
+void ALLP_release (
+    BLK		block)
+{
+/**************************************
+ *
+ *	A L L _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a structured block.
+ *
+ **************************************/
+
+ALLP_free (block);
+}
diff --git a/src/pipe/allp_proto.h b/src/pipe/allp_proto.h
new file mode 100644
index 0000000000..ed2a806b9f
--- /dev/null
+++ b/src/pipe/allp_proto.h
@@ -0,0 +1,32 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		allp_proto.h
+ *	DESCRIPTION:	Prototype Header file for allp.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _PIPE_ALLP_PROTO_H_
+#define _PIPE_ALLP_PROTO_H_
+
+extern UCHAR *ALLP_alloc(ULONG);
+extern BLK ALLP_block(UCHAR, int);
+extern void ALLP_free(UCHAR *);
+extern void ALLP_release(BLK);
+
+#endif /*  _PIPE_ALLP_PROTO_H_  */
diff --git a/src/pipe/blk.h b/src/pipe/blk.h
new file mode 100644
index 0000000000..0a2b669b98
--- /dev/null
+++ b/src/pipe/blk.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		blk.h
+ *	DESCRIPTION:	Block type definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+    BLKDEF(type_rdb, rdb, 0)
+	BLKDEF(type_rrq, rrq, 0)
+	BLKDEF(type_rtr, rtr, 0)
+	BLKDEF(type_rbl, rbl, 1)
+	BLKDEF(type_rvnt, rvnt, 0)
+	BLKDEF(type_rsr, rsr, 0)
diff --git a/src/pipe/foot.cpp b/src/pipe/foot.cpp
new file mode 100644
index 0000000000..11157121a9
--- /dev/null
+++ b/src/pipe/foot.cpp
@@ -0,0 +1,2889 @@
+/*
+ *	PROGRAM:	Pipe Server
+ *	MODULE:		foot.c
+ *	DESCRIPTION:	Pipe server
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <signal.h>
+#include <errno.h>
+#include "../pipe/pipe.h"
+#include "../jrd/license.h"
+#include "../include/jrd/gds.h" 
+#include "../jrd/gds_proto.h"
+#include "../pipe/allp_proto.h"
+#include "../remote/merge_proto.h"
+
+static void	allocate_statement (void);
+static void	attach_database (P_OP);
+static void	service_attach (void);
+static void	cancel_events (void);
+static void	compile (void);
+static void	ddl (void);
+static void	drop_database (void);
+static void	end_blob (P_OP);
+static void	end_database (void);
+static void	end_request (void);
+static void	service_end (void);
+static void	end_statement (void);
+static void	end_transaction (P_OP);
+static void	event_ast (RVNT, USHORT, UCHAR *);
+static void	execute_immediate (P_OP);
+static void	execute_statement (P_OP);
+static void	fetch (void);
+static UCHAR	*get_buffer (USHORT, USHORT);
+static int	get_byte (BOOLEAN);
+static IPTR	get_handle (void);
+static void	get_segment (P_OP);
+static void	get_slice (void);
+static SLONG	get_word (void);
+static void	info (P_OP);
+static void	insert (void);
+static RTR	make_transaction (RDB, HANDLE);
+static void	open_blob (P_OP op);
+static void	prepare_statement (void);
+static int	put_byte (int);
+static int	put_byte_event (int);
+static IPTR	put_handle (IPTR);
+static IPTR	put_handle_event (IPTR);
+static void	put_segment (P_OP);
+static void	put_slice (void);
+static SLONG	put_word (SLONG);
+static SLONG	put_word_event (SLONG);
+static void	que_events (void);
+static void	receive_msg (void);
+static void	reconnect (void);
+static void	release_blob (RBL);
+static void	release_request (RRQ);
+static void	release_sql_request (RSR);
+static void	release_transaction (RTR);
+static void	seek_blob (void);
+static void	send_msg (void);
+static STATUS	send_response (STATUS *);
+static void	set_cursor (void);
+static void	shutdown_attachments (void);
+static void	start (void);
+static void	start_and_send (void);
+static void	start_transaction (void);
+static void	transact_request (void);
+static void	unwind (void);
+
+static int	parent_pid = 0;
+static UCHAR	*buffer [5] = {NULL, NULL, NULL, NULL, NULL};
+static USHORT	buffer_length [5] = {0, 0, 0, 0, 0};
+static FILE	*read_pipe = NULL, 
+		*write_pipe = NULL, 
+		*event_pipe = NULL;
+static RDB	PSV_databases = NULL;
+static RDB	PSV_services = NULL;
+static RVNT	PSV_events = NULL;
+
+#ifdef SOLARIS
+/* NOTE: This code is cloned in head.c */
+/* On Solaris, getc&putc are thread-safe calls, which mean they do
+ * a file lock/unlock for each character IO.  This is a performance
+ * drain; however, the main reason for making the change is that
+ * getc&putc don't work on (at least) Solaris 2.4 with the -mt CC option.
+ * Our testing on Solaris revealed that the standard definitions 
+ * of putc/getc would obtain bogus EOF indicators - which would 
+ * cause one end of the pipe connection to terminate after a message.
+ *
+ * Note also that getc_unlocked & putc_unlocked are macros. 
+ *
+ * The man page for putc_unlocked/getc_unlocked state that we must
+ * do our own file locking to ensure that the usage is MT safe -
+ * in our case, the pipe server connection is not threaded - and
+ * as there is a unique pipe created for each client-server connection
+ * there is no MT issue.
+ *  15-September-1995 David Schnepper & Morgan Schweers
+ */
+#define	GETC_UNLOCKED		getc_unlocked
+#define	PUTC_UNLOCKED		putc_unlocked
+#endif
+
+#ifndef	GETC_UNLOCKED
+#define	GETC_UNLOCKED		getc
+#define	PUTC_UNLOCKED		putc
+#endif
+
+#ifdef KILLER_SIGNALS
+
+/* Define KILLER_SIGNALS for platforms where system calls can
+ * be interrupted (and return error EINTR).  These routines
+ * check and restart the call.
+ */
+
+#define GET_BYTE(f)		get_byte (f)
+#define GET_WORD		get_word ()
+#define GET_HANDLE		get_handle ()
+#define PUT_BYTE(byte)		put_byte (byte)
+#define PUT_WORD(word)		put_word ((SLONG) (word))
+#define PUT_HANDLE(word)	put_handle ((IPTR) (word))
+#define PUT_BYTE_EVENT(byte)	put_byte_event (byte)
+#define PUT_WORD_EVENT(word)	put_word_event ((SLONG) (word))
+#define PUT_HANDLE_EVENT(word)	put_handle_event ((IPTR) (word))
+
+#else
+
+/* Note that these definitions, while faster, DON'T
+ * check for any errors and don't check for an interrupted
+ * system call.
+ */
+
+#define GET_BYTE(f)		GETC_UNLOCKED (read_pipe)
+#define GET_WORD		getw (read_pipe)
+#define GET_HANDLE		getw (read_pipe)
+#define PUT_BYTE(byte)		PUTC_UNLOCKED (byte, write_pipe)
+#define PUT_WORD(word)		putw ((SLONG) word, write_pipe)
+#define PUT_HANDLE(word)	putw ((SLONG) word, write_pipe)
+#define PUT_BYTE_EVENT(byte)	PUTC_UNLOCKED (byte, event_pipe)
+#define PUT_WORD_EVENT(word)	putw ((SLONG) word, event_pipe)
+#define PUT_HANDLE_EVENT(word)	putw ((SLONG) word, event_pipe)
+#endif
+
+
+/* Macro to check a given handle for validity.  While generally
+ * we can depend on the client-side remote library to do this
+ * for us, there were bugs due to not checking on our side.
+ * Also, since these handles are passed though to
+ * the why-value routines and checked there, strictly speaking
+ * we only have to check ones that we dereference before
+ * passing along.  For safety's side, we check them all.
+ */
+
+/* h = handle to check
+ * t = type of handle to expect
+ * c = error code to return
+ */
+#define CHECK_HANDLE(h,t,c)	if (!(h) || (((BLK) (h))->blk_type != (t))) \
+				    { \
+				    status_vector [0] = gds_arg_gds;\
+				    status_vector [1] = (c);\
+				    status_vector [2] = gds_arg_end;\
+				    (void) send_response (status_vector); \
+				    return; \
+				    } 
+
+/* Macros to get and validate various types of handles.
+ * Note that it's possible the memory we refer to has been
+ * freed already - but in most cases we should get the error
+ * properly (the normal time we get an invalid handle is
+ * a reference to a valid handle sometime after it has been
+ * released).
+ *
+ * Note that transaction handles coming via DSQL can be NULL.
+ */
+#define RDB_GET_HANDLE(v)	{v = (RDB) GET_HANDLE; CHECK_HANDLE(v,type_rdb,gds__bad_db_handle);}
+#define RTR_GET_HANDLE(v)	{v = (RTR) GET_HANDLE; CHECK_HANDLE(v,type_rtr,gds__bad_trans_handle);}
+#define RTR_GET_HANDLE_NULL(v)	{v = (RTR) GET_HANDLE; if (v) CHECK_HANDLE(v,type_rtr,gds__bad_trans_handle);}
+#define RRQ_GET_HANDLE(v)	{v = (RRQ) GET_HANDLE; CHECK_HANDLE(v,type_rrq,gds__bad_req_handle);}
+#define RBL_GET_HANDLE(v)	{v = (RBL) GET_HANDLE; CHECK_HANDLE(v,type_rbl,gds__bad_segstr_handle);}
+#define RSR_GET_HANDLE(v)	{v = (RSR) GET_HANDLE; CHECK_HANDLE(v,type_rsr,gds__bad_stmt_handle);}
+
+#define GET_STRING(length,ptr)	if (l = (length))\
+	{p = (ptr); do *p++ = GET_BYTE (FALSE); while (--l);}
+
+#define PUT_STRING(length,ptr)	if (l = (length))\
+	{p = (ptr); do PUT_BYTE (*p++); while (--l);}
+
+#ifdef DEBUG
+/* Defined to trace problems with pipe server */
+#define DEBUGMSG(x)	fprintf (stderr, "%s %d %s\n", __FILE__, __LINE__, x)
+#endif
+
+#ifndef DEBUGMSG
+#define DEBUGMSG(x)	/* nothing */
+#endif
+
+/* Macros that generates code for all of the KILLER_SIGNALS get and
+   put routines. */
+
+#define GET_DATA_CODE(element,pipe,msg)	\
+	union	{SCHAR c; SLONG l; IPTR h; SCHAR p [sizeof (IPTR)];} c; \
+	int	i, n; \
+	if (!pipe) \
+	    return -1; \
+	for (i = 0; i < sizeof (c.element);) \
+	    { \
+	    errno = 0; \
+	    if ((n = GETC_UNLOCKED (pipe)) == EOF) \
+		{ \
+		if (SYSCALL_INTERRUPTED(errno)) \
+		    { \
+		    DEBUGMSG ("get_data: clearing EINTR"); \
+		    clearerr (pipe); \
+		    rewind (pipe); \
+		    continue; \
+		    } \
+		else \
+		    { \
+		    DEBUGMSG ("get_data: closing due to error"); \
+		    fclose (pipe); \
+		    pipe = NULL; \
+		    gds__log (msg, (int*) errno); \
+		    return -1; \
+		    } \
+		} \
+	    else \
+		c.p [i++] = n; \
+	    } \
+	return c.element
+
+#define PUT_DATA_CODE(data,element,pipe,msg)	\
+	union	{SCHAR c; SLONG l; IPTR h; SCHAR p [sizeof (IPTR)];} c; \
+	int	i, n; \
+	if (!pipe) \
+	    return -1; \
+	c.element = data; \
+	for (i = 0; i < sizeof (c.element);) \
+	    { \
+	    errno = 0; \
+	    if ((n = PUTC_UNLOCKED (c.p [i], pipe)) == EOF) \
+		{ \
+		if (SYSCALL_INTERRUPTED(errno)) \
+		    { \
+		    DEBUGMSG ("put_data: clearing EINTR"); \
+		    clearerr (pipe); \
+		    rewind (pipe); \
+		    continue; \
+		    } \
+		else \
+		    { \
+		    DEBUGMSG ("put_data: closing due to error"); \
+		    fclose (pipe); \
+		    pipe = NULL; \
+		    gds__log (msg, (int*) errno); \
+		    return -1; \
+		    } \
+		} \
+	    else \
+		i++; \
+	    } \
+	return c.element
+
+#ifdef GATEWAY
+/* The Gateway needs to close any extraneous pipes that it
+   inherits.  Define a maximum file descriptor to close. */
+
+#define MAX_FD		128
+#endif
+
+#ifndef GATEWAY
+#define GDS_ATTACH_DATABASE	gds__attach_database
+#define GDS_SERVICE_ATTACH	isc_service_attach
+#define GDS_BLOB_INFO		gds__blob_info
+#define GDS_CANCEL_BLOB		gds__cancel_blob
+#define GDS_CANCEL_EVENTS	gds__cancel_events
+#define GDS_CLOSE_BLOB		gds__close_blob
+#define GDS_COMMIT		gds__commit_transaction
+#define GDS_COMMIT_RETAINING	gds__commit_retaining
+#define GDS_COMPILE		gds__compile_request
+#define GDS_CREATE_BLOB		gds__create_blob
+#define GDS_CREATE_BLOB2	gds__create_blob2
+#define GDS_CREATE_DATABASE	gds__create_database
+#define GDS_DATABASE_INFO	gds__database_info
+#define GDS_DDL			gds__ddl
+#define GDS_DETACH		gds__detach_database
+#define GDS_SERVICE_DETACH	isc_service_detach
+#define GDS_DROP_DATABASE	isc_drop_database
+#define GDS_GET_SEGMENT		gds__get_segment
+#define GDS_GET_SLICE		gds__get_slice
+#define GDS_OPEN_BLOB		gds__open_blob
+#define GDS_OPEN_BLOB2		gds__open_blob2
+#define GDS_PREPARE		gds__prepare_transaction
+#define GDS_PREPARE2		gds__prepare_transaction2
+#define GDS_PUT_SEGMENT		gds__put_segment
+#define GDS_PUT_SLICE		gds__put_slice
+#define GDS_QUE_EVENTS		gds__que_events
+#define GDS_SERVICE_QUERY	isc_service_query
+#define GDS_RECONNECT		gds__reconnect_transaction
+#ifdef SCROLLABLE_CURSORS
+#define GDS_RECEIVE		isc_receive2
+#else 
+#define GDS_RECEIVE		gds__receive
+#endif
+#define GDS_RELEASE_REQUEST	gds__release_request
+#define GDS_REQUEST_INFO	gds__request_info
+#define GDS_ROLLBACK		gds__rollback_transaction
+#define GDS_SEEK_BLOB		gds__seek_blob
+#define GDS_SEND		gds__send
+#define GDS_START_AND_SEND	gds__start_and_send
+#define GDS_START		gds__start_request
+#define GDS_START_MULTIPLE	gds__start_multiple
+#define GDS_START_TRANSACTION	gds__start_transaction
+#define GDS_TRANSACT_REQUEST	isc_transact_request
+#define GDS_TRANSACTION_INFO	gds__transaction_info
+#define GDS_UNWIND		gds__unwind_request
+
+#define GDS_DSQL_ALLOCATE	isc_dsql_allocate_statement
+#define GDS_DSQL_EXECUTE	isc_dsql_execute2_m
+#define GDS_DSQL_EXECUTE_IMMED	isc_dsql_exec_immed3_m
+#define GDS_DSQL_FETCH		isc_dsql_fetch_m
+#define GDS_DSQL_FREE		isc_dsql_free_statement
+#define GDS_DSQL_INSERT		isc_dsql_insert_m
+#define GDS_DSQL_PREPARE	isc_dsql_prepare_m
+#define GDS_DSQL_SET_CURSOR	isc_dsql_set_cursor_name
+#define GDS_DSQL_SQL_INFO	isc_dsql_sql_info
+#else
+#define GDS_ATTACH_DATABASE	GWAY_attach_database
+#define GDS_BLOB_INFO		GWAY_blob_info
+#define GDS_CANCEL_BLOB		GWAY_cancel_blob
+#define GDS_CANCEL_EVENTS	GWAY_cancel_events
+#define GDS_CLOSE_BLOB		GWAY_close_blob
+#define GDS_COMMIT		GWAY_commit_transaction
+#define GDS_COMMIT_RETAINING	GWAY_commit_retaining
+#define GDS_COMPILE		GWAY_compile_request
+#define GDS_CREATE_BLOB		GWAY_create_blob2
+#define GDS_CREATE_BLOB2	GWAY_create_blob2
+#define GDS_CREATE_DATABASE	GWAY_create_database
+#define GDS_DATABASE_INFO	GWAY_database_info
+#define GDS_DDL			GWAY_ddl
+#define GDS_DETACH		GWAY_detach_database
+#define GDS_GET_SEGMENT		GWAY_get_segment
+#define GDS_GET_SLICE		GWAY_get_slice
+#define GDS_OPEN_BLOB		GWAY_open_blob2
+#define GDS_OPEN_BLOB2		GWAY_open_blob2
+#define GDS_PREPARE		GWAY_prepare_transaction
+#define GDS_PREPARE2		GWAY_prepare_transaction
+#define GDS_PUT_SEGMENT		GWAY_put_segment
+#define GDS_PUT_SLICE		GWAY_put_slice
+#define GDS_QUE_EVENTS		GWAY_que_events
+#define GDS_RECONNECT		GWAY_reconnect_transaction
+#define GDS_RECEIVE		GWAY_receive
+#define GDS_RELEASE_REQUEST	GWAY_release_request
+#define GDS_REQUEST_INFO	GWAY_request_info
+#define GDS_ROLLBACK		GWAY_rollback_transaction
+#define GDS_SEEK_BLOB		GWAY_seek_blob
+#define GDS_SEND		GWAY_send
+#define GDS_START_AND_SEND	GWAY_start_and_send
+#define GDS_START		GWAY_start_request
+#define GDS_START_MULTIPLE	GWAY_start_multiple
+#define GDS_START_TRANSACTION	GWAY_start_transaction
+#define GDS_TRANSACTION_INFO	GWAY_transaction_info
+#define GDS_UNWIND		GWAY_unwind_request
+#endif
+
+int CLIB_ROUTINE main (
+    USHORT	argc,
+    TEXT	*argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Main entrypoint of server.
+ *
+ **************************************/
+int	desc_in, desc_out, desc_event, fd;
+P_OP	op, prev_op;
+TEXT	buffer [256];
+
+/*
+fprintf (stderr, "gds_pipe here argc = %d argv[1] = '%s' getpid = %d\n", 
+	argc, argv[1], getpid());
+*/
+
+#ifndef DEBUG
+SETPGRP;
+#endif
+
+signal (SIGINT, SIG_IGN);
+signal (SIGQUIT, SIG_IGN);
+signal (SIGHUP, SIG_IGN);
+
+/* Parent left the file descriptor numbers in the first argument.
+   Get them out and then get file handles for the pipes. */
+
+if (argc < 2)
+    {
+    desc_in = 0;
+    desc_out = 1;
+    }
+else
+    sscanf (argv [1], "%d %d %d %d", &desc_in, &desc_out, &desc_event, &parent_pid);
+
+if (!(read_pipe = fdopen (desc_in, "r")) ||
+    !(write_pipe = fdopen (desc_out, "w")) ||
+    !(event_pipe = fdopen (desc_event, "w")))
+    {
+    fprintf (stderr, "Fdopen failed in pipe server.  Errno = %d\n", errno);
+    exit (FINI_ERROR);
+    }
+
+#ifdef SOLARIS
+/* In Solaris 2.5, _filbuf has a bug causing it to return bogus values
+   (not in the range -1 through MAX_UCHAR).  Making the read_pipe FILE
+   unbuffered avoids triggering the bug. */
+ 
+setbuf(read_pipe, (char *)0);
+#endif
+ 
+#ifdef GATEWAY
+/* Let's close any extraneous file descriptors inherited from parent */
+
+for (fd = 3; fd < MAX_FD; fd++)
+    if (fd != desc_in && fd != desc_out && fd != desc_event)
+	close (fd);
+
+errno = 0;
+#endif
+
+op = (P_OP) 0;
+
+while (TRUE)
+    {
+    prev_op = op;
+    op = (P_OP) GET_BYTE (TRUE);
+/*
+    fprintf (stderr,  "Operation %d\n", op);
+*/
+    switch (op)
+	{
+	case op_attach:
+	case op_create:
+	    attach_database (op);
+	    break;
+
+	case op_cancel_events:
+	    cancel_events();
+	    break;
+
+	case op_compile:
+	    compile();
+	    break;
+
+	case op_ddl:
+	    ddl();
+	    break;
+
+	case op_receive:
+	    receive_msg();
+	    break;
+
+	case op_seek_blob:
+	    seek_blob();
+	    break;
+
+	case op_send:
+	    send_msg();
+	    break;
+
+	case op_start:
+	    start();
+	    break;
+
+	case op_start_and_send:
+	    start_and_send();
+	    break;
+
+	case op_transact_request:
+	    transact_request();
+	    break;
+
+	case op_transaction:
+	    start_transaction();
+	    break;
+
+	case op_prepare:
+	case op_rollback:
+	case op_commit:
+	case op_commit_retaining:
+	case op_prepare2:
+	    end_transaction (op);
+	    break;
+
+	case op_detach:
+	    end_database();
+	    break;
+
+	case op_drop_database:
+	    drop_database();
+	    break;
+
+	case op_create_blob:
+	case op_open_blob:
+	case op_create_blob2:
+	case op_open_blob2:
+	    open_blob (op);
+	    break;
+	
+	case op_put_segment:
+	case op_put_segment_buf:
+	    put_segment (op);
+	    break;
+
+	case op_get_segment:
+	case op_get_segment_buf:
+	    get_segment (op);
+	    break;
+
+	case op_cancel_blob:
+	case op_close_blob:
+	    end_blob (op);
+	    break;
+
+	case op_release:
+	    end_request();
+	    break;
+
+	case op_que_events:
+	    que_events();
+	    break;
+
+	case op_unwind:
+	    unwind();
+	    break;
+
+	case op_reconnect:
+	    reconnect();
+	    break;
+
+	case op_info_blob:
+	case op_info_request:
+	case op_info_database:
+	case op_info_transaction:
+	case op_info_sql:
+	    info (op);
+	    break;
+
+	case op_get_slice:
+	    get_slice();
+	    break;
+	
+	case op_put_slice:
+	    put_slice();
+	    break;
+
+	case op_allocate_stmt:
+	    allocate_statement();
+	    break;
+
+	case op_execute:
+	case op_execute2:
+	    execute_statement (op);
+	    break;
+
+	case op_exec_immediate:
+	case op_exec_immediate2:
+	    execute_immediate (op);
+	    break;
+
+	case op_fetch:
+	    fetch();
+	    break;
+
+	case op_free_stmt:
+	    end_statement();
+	    break;
+
+	case op_insert:
+	    insert();
+	    break;
+
+	case op_prepare_stmt:
+	    prepare_statement();
+	    break;
+
+	case op_set_cursor:
+	    set_cursor();
+	    break;
+
+#ifndef GATEWAY
+	case op_attach_service:
+	    service_attach();
+	    break;
+
+	case op_detach_service:
+	    service_end();
+	    break;
+
+	case op_info_service:
+	    info (op);
+	    break;
+#endif
+
+	default:
+#ifdef GATEWAY
+	    /* In the Gateway we have a terrible battle between
+	       siblings.  They feel the need to send each other
+	       EOF signals.  But our protective parent will warn
+	       us before this is going to occur so that we can
+               prepare ourselves for the onslaught. */
+
+	    if (op == op_gateway_sync || prev_op == op_gateway_sync)
+		continue;
+#endif
+	    if ((int) op != -1)
+                gds__log ("Pipe Server op code %d unknown, previous %d\n",
+                          (int) op, (int) prev_op);
+    
+	    shutdown_attachments();
+	    exit (FINI_ERROR);
+	}
+
+    if (fflush (write_pipe) == EOF)
+	{
+	gds__log ("Pipe Server connection lost\n", 0);
+	fprintf (stderr, "gds pipe server connection lost");
+	shutdown_attachments();
+	exit (FINI_ERROR);
+	}
+    }
+}
+
+static void allocate_statement (void)
+{
+/**************************************
+ *
+ *	a l l o c a t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a statement handle.
+ *
+ **************************************/
+RDB		rdb;
+RSR		statement;
+HANDLE		handle;
+STATUS		status_vector [20];
+
+RDB_GET_HANDLE (rdb);
+handle = NULL;
+
+GDS_DSQL_ALLOCATE (status_vector, 
+	&rdb->rdb_handle,
+	&handle);
+
+if (send_response (status_vector))
+    return;
+
+statement = (RSR) ALLOC (type_rsr);
+statement->rsr_handle = handle;
+statement->rsr_rdb = rdb;
+statement->rsr_next = rdb->rdb_sql_requests;
+rdb->rdb_sql_requests = statement;
+PUT_HANDLE (statement);
+}
+
+static void attach_database (
+    P_OP	operation)
+{
+/**************************************
+ *
+ *	a t t a c h _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process an attach or create packet.
+ *
+ **************************************/
+USHORT	l, file_length, dpb_length, object;
+UCHAR	*p, *file_name, file_buf [256], *dpb, dpb_buf [256];
+HANDLE	handle;
+STATUS	status_vector [20];
+RDB	rdb;
+
+file_length = GET_WORD;
+file_name = (file_length <= sizeof (file_buf)) ? file_buf : get_buffer (file_length, 1);
+GET_STRING (file_length, file_name);
+dpb_length = GET_WORD;
+dpb = (dpb_length <= sizeof (dpb_buf)) ? dpb_buf : get_buffer (dpb_length, 0);
+GET_STRING (dpb_length, dpb);
+handle = NULL;
+
+if (operation == op_attach)
+    GDS_ATTACH_DATABASE (status_vector, 
+	file_length, file_name, 
+	GDS_REF (handle), 
+	dpb_length, dpb);
+else
+    GDS_CREATE_DATABASE (status_vector, 
+	file_length, file_name, 
+	GDS_REF (handle), 
+	dpb_length, dpb, 0);
+
+if (!send_response (status_vector))
+    {
+    rdb = (RDB) ALLOC (type_rdb);
+    rdb->rdb_handle = handle;
+    rdb->rdb_next = PSV_databases;
+    PSV_databases = rdb;
+    PUT_HANDLE (rdb);
+    }
+}
+
+#ifndef GATEWAY
+static void service_attach (void)
+{
+/**************************************
+ *
+ *	s e r v i c e _ a t t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to an Interbase service.
+ *
+ **************************************/
+USHORT	l, service_length, spb_length, object;
+UCHAR	*p, service_name [256], *spb, spb_buf [256];
+HANDLE	handle;
+STATUS	status_vector [20];
+RDB	rdb;
+
+service_length = GET_WORD;
+GET_STRING (service_length, service_name);
+spb_length = GET_WORD;
+spb = (spb_length <= sizeof (spb_buf)) ? spb_buf : get_buffer (spb_length, 0);
+GET_STRING (spb_length, spb);
+handle = NULL;
+
+GDS_SERVICE_ATTACH (status_vector, 
+	service_length, service_name, 
+	&handle, 
+	spb_length, spb);
+
+if (!send_response (status_vector))
+    {
+    rdb = (RDB) ALLOC (type_rdb);
+    rdb->rdb_handle = handle;
+    rdb->rdb_next = PSV_services;
+    PSV_services = rdb;
+    PUT_HANDLE (rdb);
+    }
+}
+#endif
+
+static void cancel_events (void)
+{
+/**************************************
+ *
+ *	c a n c e l _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel an outstanding event call.
+ *
+ **************************************/
+STATUS	status_vector [20];
+RDB	rdb;
+RVNT	event;
+SLONG	id;
+
+RDB_GET_HANDLE (rdb);
+id = GET_WORD;
+
+GDS_CANCEL_EVENTS (status_vector,
+    GDS_REF (rdb->rdb_handle), 
+    GDS_REF (id));
+
+(void) send_response (status_vector);
+
+for (event = PSV_events; event; event = event->rvnt_next)
+    if (event->rvnt_ast && event->rvnt_handle == id)
+	{
+	event->rvnt_ast = NULL;
+	event->rvnt_handle = 0;
+	break;
+	}
+}
+
+static void compile (void)
+{
+/**************************************
+ *
+ *	c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a request.
+ *
+ **************************************/
+RDB	rdb;
+RRQ	request;
+USHORT	l, blr_length, object;
+UCHAR	*p, *blr;
+HANDLE	handle;
+STATUS	status_vector [20];
+
+RDB_GET_HANDLE (rdb);
+blr_length = GET_WORD;
+blr = get_buffer (blr_length, 0);
+GET_STRING (blr_length, blr);
+handle = NULL;
+
+GDS_COMPILE (status_vector, 
+	GDS_REF (rdb->rdb_handle), 
+	GDS_REF (handle), 
+	blr_length, 
+	GDS_VAL (blr));
+
+if (!send_response (status_vector))
+    {
+    request = (RRQ) ALLOC (type_rrq);
+    request->rrq_handle = handle;
+    request->rrq_rdb = rdb;
+    request->rrq_next = rdb->rdb_requests;
+    rdb->rdb_requests = request;
+    PUT_HANDLE (request);
+    }
+}
+
+static void ddl (void)
+{
+/**************************************
+ *
+ *	d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pass thru a DDL call.
+ *
+ **************************************/
+STATUS	status_vector [20];
+RTR	transaction;
+RDB	rdb;
+UCHAR	*p, *buffer;
+USHORT	l, length, number;
+
+RDB_GET_HANDLE (rdb);
+RTR_GET_HANDLE (transaction);
+length = GET_WORD;
+buffer = get_buffer (length, 0);
+GET_STRING (length, buffer);
+
+GDS_DDL (status_vector, 
+	GDS_REF (rdb->rdb_handle), 
+	GDS_REF (transaction->rtr_handle),
+	length, 
+	GDS_VAL (buffer));
+
+(void) send_response (status_vector);
+}
+
+#ifndef GATEWAY
+static void drop_database (void)
+{
+/**************************************
+ *
+ *	d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a request..
+ *
+ **************************************/
+RDB	rdb, *ptr;
+STATUS	status_vector [20];
+STATUS	code;
+
+RDB_GET_HANDLE (rdb);
+GDS_DROP_DATABASE (status_vector, 
+	&rdb->rdb_handle);
+
+code = send_response (status_vector);
+if (!code || (code == gds__drdb_completed_with_errs))
+    {
+    while (rdb->rdb_requests)
+	release_request (rdb->rdb_requests);
+    while (rdb->rdb_sql_requests)
+	release_sql_request (rdb->rdb_sql_requests);
+    while (rdb->rdb_transactions)
+	release_transaction (rdb->rdb_transactions);
+    for (ptr = &PSV_databases; *ptr; ptr = &(*ptr)->rdb_next)
+	if (*ptr == rdb)
+	    {
+	    *ptr = rdb->rdb_next;
+	    break;
+	    }
+    ALLP_release (rdb);
+    }
+}
+#endif
+
+static void end_blob (
+    P_OP	operation)
+{
+/**************************************
+ *
+ *	e n d _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a blob..
+ *
+ **************************************/
+RBL	blob;
+STATUS	status_vector [20];
+
+RBL_GET_HANDLE (blob);
+
+if (operation == op_close_blob)
+    GDS_CLOSE_BLOB (status_vector, 
+	GDS_REF (blob->rbl_handle));
+else
+    GDS_CANCEL_BLOB (status_vector,
+	GDS_REF (blob->rbl_handle));
+
+if (!send_response (status_vector))
+    release_blob (blob);
+}
+
+static void end_database (void)
+{
+/**************************************
+ *
+ *	e n d _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a request..
+ *
+ **************************************/
+RDB	rdb, *ptr;
+STATUS	status_vector [20];
+
+RDB_GET_HANDLE (rdb);
+GDS_DETACH (status_vector, 
+	GDS_REF (rdb->rdb_handle));
+
+if (!send_response (status_vector))
+    {
+    while (rdb->rdb_requests)
+	release_request (rdb->rdb_requests);
+    while (rdb->rdb_sql_requests)
+	release_sql_request (rdb->rdb_sql_requests);
+    while (rdb->rdb_transactions)
+	release_transaction (rdb->rdb_transactions);
+    for (ptr = &PSV_databases; *ptr; ptr = &(*ptr)->rdb_next)
+	if (*ptr == rdb)
+	    {
+	    *ptr = rdb->rdb_next;
+	    break;
+	    }
+    ALLP_release (rdb);
+    }
+}
+
+static void end_request (void)
+{
+/**************************************
+ *
+ *	e n d _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a request..
+ *
+ **************************************/
+RDB	rdb;
+RRQ	request;
+STATUS	status_vector [20];
+
+RRQ_GET_HANDLE (request);
+
+GDS_RELEASE_REQUEST (status_vector, 
+	GDS_REF (request->rrq_handle));
+
+if (!send_response (status_vector))
+    release_request (request);
+}
+
+#ifndef GATEWAY
+static void service_end (void)
+{
+/**************************************
+ *
+ *	s e r v i c e _ e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a service.
+ *
+ **************************************/
+RDB	rdb, *ptr;
+STATUS	status_vector [20];
+
+RDB_GET_HANDLE (rdb);
+GDS_SERVICE_DETACH (status_vector, 
+	&rdb->rdb_handle);
+
+if (!send_response (status_vector))
+    {
+    for (ptr = &PSV_services; *ptr; ptr = &(*ptr)->rdb_next)
+	if (*ptr == rdb)
+	    {
+	    *ptr = rdb->rdb_next;
+	    break;
+	    }
+    ALLP_release (rdb);
+    }
+}
+#endif
+
+static void end_statement (void)
+{
+/**************************************
+ *
+ *	e n d _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free a dynamic statement.
+ *
+ **************************************/
+RSR	statement;
+USHORT	option;
+STATUS	status_vector [20];
+
+RSR_GET_HANDLE (statement);
+option = GET_WORD;
+
+GDS_DSQL_FREE (status_vector, 
+	&statement->rsr_handle,
+	option);
+
+if (send_response (status_vector))
+    return;
+
+if (!statement->rsr_handle)
+    {
+    release_sql_request (statement);
+    statement = NULL;
+    }
+
+PUT_HANDLE (statement);
+}
+
+static void end_transaction (
+    P_OP	operation)
+{
+/**************************************
+ *
+ *	e n d _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a transaction.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+UCHAR	*p, *msg;
+USHORT	l, msg_length;
+STATUS	status_vector [20];
+
+RTR_GET_HANDLE (transaction);
+
+switch (operation)
+    {
+    case op_commit:
+	if (!GDS_COMMIT (status_vector, 
+		GDS_REF (transaction->rtr_handle)))
+	    release_transaction (transaction);
+	break;
+
+    case op_rollback:
+	if (!GDS_ROLLBACK (status_vector, 
+		GDS_REF (transaction->rtr_handle)))
+	    release_transaction (transaction);
+	break;
+
+    case op_commit_retaining:
+	if (!GDS_COMMIT_RETAINING (status_vector, 
+		GDS_REF (transaction->rtr_handle)))
+	    transaction->rtr_flags |= RTR_limbo;
+	break;
+
+    case op_prepare:
+	if (!GDS_PREPARE (status_vector, 
+		GDS_REF (transaction->rtr_handle)))
+	    transaction->rtr_flags |= RTR_limbo;
+	break;
+
+    case op_prepare2:
+	msg_length = GET_WORD;
+	msg = get_buffer (msg_length, 0);
+	GET_STRING (msg_length, msg);
+	if (!GDS_PREPARE2 (status_vector, 
+		GDS_REF (transaction->rtr_handle),
+		msg_length,
+		GDS_VAL (msg)))
+	    transaction->rtr_flags |= RTR_limbo;
+	break;
+    }
+
+(void) send_response (status_vector);
+}
+
+static void event_ast (
+    RVNT	event,
+    USHORT	length,
+    UCHAR	*data)
+{
+/**************************************
+ *
+ *	e v e n t _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send off event stuff.
+ *
+ **************************************/
+
+#ifdef DEBUG
+fprintf (stderr, "event ast entered\n");
+#endif
+
+if (!event->rvnt_ast)
+    return;
+
+PUT_HANDLE_EVENT (event->rvnt_ast);
+PUT_HANDLE_EVENT (event->rvnt_arg);
+PUT_WORD_EVENT (length);
+
+if (length)
+    do PUT_BYTE_EVENT (*data++); while (--length);
+
+fflush (event_pipe);
+kill (parent_pid, SIGUSR1);
+event->rvnt_ast = NULL;
+}
+
+static void execute_immediate (
+    P_OP	operation)
+{
+/**************************************
+ *
+ *	e x e c u t e _ i m m e d i a t e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare and execute a statement.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+HANDLE	handle;
+USHORT	l, length, dialect, in_blr_length, in_msg_type, in_msg_length,
+	out_blr_length, out_msg_type, out_msg_length;
+UCHAR	*p, *string, *in_blr, *in_msg, *out_blr, *out_msg;
+STATUS	status_vector [20];
+
+RDB_GET_HANDLE (rdb);
+RTR_GET_HANDLE_NULL (transaction);
+length = GET_WORD;
+string = get_buffer (length, 2);
+GET_STRING (length, string);
+dialect = GET_WORD;
+in_blr_length = GET_WORD;
+in_blr = get_buffer (in_blr_length, 0);
+GET_STRING (in_blr_length, in_blr);
+in_msg_type = GET_WORD;
+in_msg_length = GET_WORD;
+in_msg = get_buffer (in_msg_length, 1);
+GET_STRING (in_msg_length, in_msg);
+if (operation == op_exec_immediate2)
+    {
+    out_blr_length = GET_WORD;
+    out_blr = get_buffer (out_blr_length, 3);
+    GET_STRING (out_blr_length, out_blr);
+    out_msg_type = GET_WORD;
+    out_msg_length = GET_WORD;
+    out_msg = get_buffer (out_msg_length, 4);
+    }
+else
+    {
+    out_blr_length = out_msg_type = out_msg_length = 0;
+    out_blr = out_msg = NULL;
+    }
+
+handle = (transaction) ? transaction->rtr_handle : NULL;
+
+GDS_DSQL_EXECUTE_IMMED (status_vector,
+	&rdb->rdb_handle,
+	&handle,
+	length,
+	string,
+	dialect,
+	in_blr_length,
+	in_blr,
+	in_msg_type,
+	in_msg_length,
+	in_msg,
+	out_blr_length,
+	out_blr,
+	out_msg_type,
+	out_msg_length,
+	out_msg);
+
+(void) send_response (status_vector);
+
+if (transaction && !handle)
+    {
+    release_transaction (transaction);
+    transaction = NULL;
+    }
+else if (!transaction && handle)
+    transaction = make_transaction (rdb, handle);
+
+PUT_HANDLE (transaction);
+if (operation == op_exec_immediate2 && !status_vector [1])
+    {
+    PUT_WORD (out_msg_length);
+    PUT_STRING (out_msg_length, out_msg);
+    }
+}
+
+static void execute_statement (
+    P_OP	operation)
+{
+/**************************************
+ *
+ *	e x e c u t e _ s t a t e m e n t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+RTR	transaction;
+RSR	statement;
+HANDLE	handle;
+USHORT	l, in_blr_length, in_msg_type, in_msg_length,
+	out_blr_length, out_msg_type, out_msg_length;
+UCHAR	*p, *in_blr, *in_msg, *out_blr, *out_msg;
+STATUS	status_vector [20];
+
+RTR_GET_HANDLE_NULL (transaction);
+RSR_GET_HANDLE (statement);
+in_blr_length = GET_WORD;
+in_blr = get_buffer (in_blr_length, 0);
+GET_STRING (in_blr_length, in_blr);
+in_msg_type = GET_WORD;
+in_msg_length = GET_WORD;
+in_msg = get_buffer (in_msg_length, 1);
+GET_STRING (in_msg_length, in_msg);
+if (operation == op_execute2)
+    {
+    out_blr_length = GET_WORD;
+    out_blr = get_buffer (out_blr_length, 2);
+    GET_STRING (out_blr_length, out_blr);
+    out_msg_type = GET_WORD;
+    out_msg_length = GET_WORD;
+    out_msg = get_buffer (out_msg_length, 3);
+    }
+else
+    {
+    out_blr_length = out_msg_type = out_msg_length = 0;
+    out_blr = out_msg = NULL;
+    }
+
+handle = (transaction) ? transaction->rtr_handle : NULL;
+
+GDS_DSQL_EXECUTE (status_vector,
+	&handle,
+	&statement->rsr_handle,
+	in_blr_length,
+	in_blr,
+	in_msg_type,
+	in_msg_length,
+	in_msg,
+	out_blr_length,
+	out_blr,
+	out_msg_type,
+	out_msg_length,
+	out_msg);
+
+(void) send_response (status_vector);
+
+if (transaction && !handle)
+    {
+    release_transaction (transaction);
+    transaction = NULL;
+    }
+else if (!transaction && handle)
+    transaction = make_transaction (statement->rsr_rdb, handle);
+
+PUT_HANDLE (transaction);
+if (operation == op_execute2 && !status_vector [1])
+    {
+    PUT_WORD (out_msg_length);
+    PUT_STRING (out_msg_length, out_msg);
+    }
+}
+
+static void fetch (void)
+{
+/**************************************
+ *
+ *	f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor.
+ *
+ **************************************/
+RSR	statement;
+USHORT	l, blr_length, msg_type, msg_length;
+UCHAR	*p, *blr, *msg;
+STATUS	s, status_vector [20];
+
+RSR_GET_HANDLE (statement);
+blr_length = GET_WORD;
+blr = get_buffer (blr_length, 0);
+GET_STRING (blr_length, blr);
+msg_type = GET_WORD;
+msg_length = GET_WORD;
+msg = get_buffer (msg_length, 1);
+
+s = GDS_DSQL_FETCH (status_vector,
+	&statement->rsr_handle,
+	blr_length,
+	blr,
+	msg_type,
+	msg_length,
+	msg);
+
+(void) send_response (status_vector);
+
+PUT_WORD (s);
+
+/* Note: code 101 should be allowed here for a gds__segment on dynamic blob
+ * cursors
+ */
+if (s != 100 && !status_vector [1])
+    {
+    PUT_WORD (msg_length);
+    PUT_STRING (msg_length, msg);
+    }
+}
+
+static UCHAR *get_buffer (
+    USHORT	length,
+    USHORT	n)
+{
+/**************************************
+ *
+ *	g e t _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a buffer "big enough".
+ *
+ **************************************/
+
+if (buffer_length [n] >= length)
+    return buffer [n];
+
+if (buffer [n])
+    ALLP_free (buffer [n]);
+buffer_length [n] = length;
+
+return buffer [n] = ALLP_alloc ((SLONG) length);
+}
+
+#ifdef KILLER_SIGNALS
+static int get_byte (
+    BOOLEAN	eof_flag)
+{
+/**************************************
+ *
+ *	g e t _ b y t e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a byte from stdin but watch for EINTR
+ *
+ **************************************/
+int	c;
+
+if (!read_pipe)
+    return -1;
+
+for (;;)
+    {
+    errno = 0;
+    if ((c = GETC_UNLOCKED (read_pipe)) == EOF)
+        {
+	if (SYSCALL_INTERRUPTED(errno))
+	    {
+	    DEBUGMSG ("get_byte: clearing EINTR");
+	    clearerr (read_pipe);
+	    rewind (read_pipe);
+	    continue;
+	    }
+        else
+            {
+	    if (!eof_flag)
+		{
+		DEBUGMSG ("get_byte: EOF on read_pipe");
+		};
+            if (!eof_flag ||
+                 (errno && (errno != ENOENT) && (errno != EINVAL)))
+		 gds__log ("Pipe Server read pipe error %d\n", (int*) errno);
+            return -1;
+            }
+        }
+    return c;
+    }
+}
+#endif
+
+#ifdef KILLER_SIGNALS
+static IPTR get_handle (void)
+{
+/**************************************
+ *
+ *	g e t _ h a n d l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a handle from stdin but watch for EINTR
+ *
+ **************************************/
+
+GET_DATA_CODE (h, read_pipe, "Pipe Server read pipe error %d\n");
+}
+#endif 
+
+static void get_segment (
+    P_OP	operation)
+{
+/**************************************
+ *
+ *	g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a single blob segment.
+ *
+ **************************************/
+RDB	rdb;
+RBL	blob;
+USHORT	l, buffer_length, length;
+UCHAR	*p, *buffer;
+STATUS	status_vector [20], state;
+
+RBL_GET_HANDLE (blob);
+buffer_length = GET_WORD;
+buffer = get_buffer (buffer_length, 0);
+
+if (operation == op_get_segment)
+    {
+    /* Get the segment data - return it regardless of result
+     * as that is what the client side expects.  Note that
+     * gds__segment can be returned in the status vector,
+     * but that the data is still valid.
+     */
+
+    length = 0;
+
+    GDS_GET_SEGMENT (status_vector,
+	GDS_REF (blob->rbl_handle),
+	GDS_REF (length),
+	buffer_length,
+	GDS_VAL (buffer));
+
+    (void) send_response (status_vector);
+    PUT_WORD (length);
+    PUT_STRING (length, buffer);
+    }
+else /* operation == op_get_segment_buf */
+    {
+    /* Gobble up a buffer's worth of segments */
+
+    p = buffer;
+    state = 0;
+
+    while (buffer_length > 2)
+	{
+	buffer_length -= 2;
+	p += 2;
+	GDS_GET_SEGMENT (status_vector,
+	    GDS_REF (blob->rbl_handle),
+	    GDS_REF (length),
+	    buffer_length,
+	    GDS_VAL (p));
+	if (status_vector [1] == gds__segstr_eof)
+	    {
+	    state = 2;
+	    status_vector [1] = SUCCESS;
+	    p -= 2;
+	    break;
+	    }
+	if (status_vector [1] && (status_vector [1] != gds__segment))
+	    {
+	    p -= 2;
+	    break;
+	    }
+	p [-2] = length;
+	p [-1] = length >> 8;
+	p += length;
+	buffer_length -= length;
+	if (status_vector [1] == gds__segment)
+	    {
+	    state = 1;
+	    status_vector [1] = SUCCESS;
+	    break;
+	    }
+	}
+
+    length = p - buffer;
+    if (!send_response (status_vector))
+	{
+	PUT_WORD (length);
+	PUT_STRING (length, buffer);
+	PUT_WORD (state);
+	}
+    }
+}
+
+static void get_slice (void)
+{
+/**************************************
+ *
+ *	g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get slice of array;
+ *
+ **************************************/
+RDB		rdb;
+RTR		transaction;
+STATUS		status_vector [20];
+USHORT		sdl_length, param_length;
+ULONG		l, slice_length, return_length, parameters [32];
+UCHAR		*p, *sdl, sdl_buf [256], *slice;
+struct bid	array_id;
+
+RDB_GET_HANDLE (rdb);
+RTR_GET_HANDLE (transaction);
+array_id.bid_relation_id = GET_WORD;
+array_id.bid_number = GET_WORD;
+sdl_length = GET_WORD;
+sdl = (sdl_length <= sizeof (sdl_buf)) ? sdl_buf : get_buffer (sdl_length, 0);
+GET_STRING (sdl_length, sdl);
+param_length = GET_WORD;
+GET_STRING (param_length, (UCHAR*) parameters);
+slice_length = GET_WORD;
+
+slice = (slice_length) ? ALLP_alloc (slice_length) : NULL;
+if (slice)
+    memset (slice, 0, slice_length);
+
+GDS_GET_SLICE (status_vector,
+	GDS_REF (rdb->rdb_handle), 
+	GDS_REF (transaction->rtr_handle), 
+	GDS_REF (array_id),
+	sdl_length,
+	sdl,
+	param_length,
+	parameters,
+	slice_length,
+	slice,
+	GDS_REF (return_length));
+
+if (!send_response (status_vector))
+    {
+    PUT_WORD (return_length);
+    PUT_STRING (slice_length, slice);
+    }
+
+if (slice)
+    ALLP_free (slice);
+}
+
+#ifdef KILLER_SIGNALS
+static SLONG get_word (void)
+{
+/**************************************
+ *
+ *	g e t _ w o r d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a word from stdin but watch for EINTR
+ *
+ **************************************/
+
+GET_DATA_CODE (l, read_pipe, "Pipe Server read pipe error %d\n");
+}
+#endif 
+
+static void info (
+    P_OP	operation)
+{
+/**************************************
+ *
+ *	i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Issue information.
+ *
+ **************************************/
+HANDLE	handle;
+STATUS	status_vector [20];
+USHORT	item_length, recv_item_length, buffer_length, l, incarnation;
+UCHAR	*p, *buffer, *items, *recv_items, *temp;
+UCHAR	items_buf [128], recv_items_buf [128], temp_buf [512];
+RDB	rdb;
+RTR	transaction;
+RBL	blob;
+RRQ	request;
+RSR	statement;
+
+handle = (HANDLE) GET_HANDLE;
+if (operation == op_info_request)
+    incarnation = GET_WORD;
+item_length = GET_WORD;
+items = (item_length <= sizeof (items_buf)) ? items_buf : get_buffer (item_length, 1);
+GET_STRING (item_length, items);
+if (operation == op_info_service)
+    {
+    recv_item_length = GET_WORD;
+    recv_items = (recv_item_length <= sizeof (recv_items_buf)) ?
+	recv_items_buf : get_buffer (recv_item_length, 3);
+    GET_STRING (recv_item_length, recv_items);
+    }
+buffer_length = GET_WORD;
+buffer = get_buffer (buffer_length, 0);
+
+switch (operation)
+    {
+    case op_info_database:
+	temp = (buffer_length <= sizeof (temp_buf)) ?
+	    temp_buf : get_buffer (buffer_length, 2);
+	rdb = (RDB) handle;
+	CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+	if (!GDS_DATABASE_INFO (status_vector,
+		GDS_REF (rdb->rdb_handle),
+		item_length,
+		items,
+		buffer_length,
+		temp))
+	    MERGE_database_info (temp, buffer, buffer_length,
+		IMPLEMENTATION, 8, 1, GDS_VERSION, "", 0);
+	break;
+
+    case op_info_blob:
+	blob = (RBL) handle;
+	CHECK_HANDLE (blob, type_rbl, gds__bad_segstr_handle);
+	GDS_BLOB_INFO (status_vector,
+		GDS_REF (blob->rbl_handle),
+		item_length,
+		items,
+		buffer_length,
+		GDS_VAL (buffer));
+	break;
+
+    case op_info_request:
+	request = (RRQ) handle;
+	CHECK_HANDLE (request, type_rrq, gds__bad_req_handle);
+	GDS_REQUEST_INFO (status_vector,
+		GDS_REF (request->rrq_handle),
+		incarnation,
+		item_length,
+		items,
+		buffer_length,
+		GDS_VAL (buffer));
+	break;
+
+    case op_info_transaction:
+	transaction = (RTR) handle;
+	CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+	GDS_TRANSACTION_INFO (status_vector,
+		GDS_REF (transaction->rtr_handle),
+		item_length,
+		items,
+		buffer_length,
+		GDS_VAL (buffer));
+	break;
+
+#ifndef GATEWAY
+    case op_info_service:
+	rdb = (RDB) handle;
+	CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+	GDS_SERVICE_QUERY (status_vector,
+		&rdb->rdb_handle,
+		NULL, 
+		item_length,
+		items,
+		recv_item_length,
+		recv_items,
+		buffer_length,
+		buffer);
+	break;
+#endif
+
+    case op_info_sql:
+	statement = (RSR) handle;
+	CHECK_HANDLE (statement, type_rsr, gds__bad_stmt_handle);
+	GDS_DSQL_SQL_INFO (status_vector,
+		&statement->rsr_handle,
+		item_length,
+		items,
+		buffer_length,
+		buffer);
+	break;
+    }
+
+if (send_response (status_vector))
+    return;
+
+PUT_WORD (buffer_length);
+PUT_STRING (buffer_length, buffer);
+}
+
+static void insert (void)
+{
+/**************************************
+ *
+ *	i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert next record into a dynamic SQL cursor.
+ *
+ **************************************/
+RSR	statement;
+USHORT	l, blr_length, msg_type, msg_length;
+UCHAR	*p, *blr, *msg;
+STATUS	status_vector [20];
+
+RSR_GET_HANDLE (statement);
+blr_length = GET_WORD;
+blr = get_buffer (blr_length, 0);
+GET_STRING (blr_length, blr);
+msg_type = GET_WORD;
+msg_length = GET_WORD;
+msg = get_buffer (msg_length, 1);
+GET_STRING (msg_length, msg);
+
+GDS_DSQL_INSERT (status_vector,
+	&statement->rsr_handle,
+	blr_length,
+	blr,
+	msg_type,
+	msg_length,
+	msg);
+
+(void) send_response (status_vector);
+}
+
+static RTR make_transaction (
+    RDB		rdb,
+    HANDLE	handle)
+{
+/**************************************
+ *
+ *	m a k e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a local transaction handle.
+ *
+ **************************************/
+RTR	transaction;
+
+transaction = (RTR) ALLOC (type_rtr);
+transaction->rtr_rdb = rdb;
+transaction->rtr_handle = handle;
+transaction->rtr_next = rdb->rdb_transactions;
+rdb->rdb_transactions = transaction;
+
+return transaction;
+}
+
+static void open_blob (
+    P_OP	op)
+{
+/**************************************
+ *
+ *	o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open or create a new blob.
+ *
+ **************************************/
+RDB		rdb;
+RBL		blob;
+RTR		transaction;
+HANDLE		handle;
+STATUS		status_vector [20];
+USHORT		l, bpb_length;
+UCHAR		*p, *bpb, bpb_buf [128];
+struct bid	blob_id;
+
+RDB_GET_HANDLE (rdb);
+RTR_GET_HANDLE (transaction);
+handle = NULL;
+bpb_length = 0;
+
+switch (op)
+    {
+    case op_open_blob:
+	blob_id.bid_relation_id = GET_WORD;
+	blob_id.bid_number = GET_WORD;
+	GDS_OPEN_BLOB (status_vector, 
+	    GDS_REF (rdb->rdb_handle), 
+	    GDS_REF (transaction->rtr_handle), 
+	    GDS_REF (handle), 
+	    GDS_REF (blob_id));
+	break;
+    
+    case op_create_blob:
+	GDS_CREATE_BLOB (status_vector,
+	    GDS_REF (rdb->rdb_handle), 
+	    GDS_REF (transaction->rtr_handle), 
+	    GDS_REF (handle), 
+	    GDS_REF (blob_id));
+	break;
+
+    case op_open_blob2:
+	blob_id.bid_relation_id = GET_WORD;
+	blob_id.bid_number = GET_WORD;
+	bpb_length = GET_WORD;
+	bpb = (bpb_length <= sizeof (bpb_buf)) ? bpb_buf : get_buffer (bpb_length, 0);
+	GET_STRING (bpb_length, bpb);
+	GDS_OPEN_BLOB2 (status_vector, 
+	    GDS_REF (rdb->rdb_handle), 
+	    GDS_REF (transaction->rtr_handle), 
+	    GDS_REF (handle), 
+	    GDS_REF (blob_id),
+	    bpb_length,
+	    bpb);
+	break;
+    
+    case op_create_blob2:
+	bpb_length = GET_WORD;
+	bpb = (bpb_length <= sizeof (bpb_buf)) ? bpb_buf : get_buffer (bpb_length, 0);
+	GET_STRING (bpb_length, bpb);
+	GDS_CREATE_BLOB2 (status_vector,
+	    GDS_REF (rdb->rdb_handle), 
+	    GDS_REF (transaction->rtr_handle), 
+	    GDS_REF (handle), 
+	    GDS_REF (blob_id),
+	    bpb_length,
+	    bpb);
+	break;
+    }
+
+if (send_response (status_vector))
+    return;
+
+blob = (RBL) ALLOC (type_rbl);
+blob->rbl_handle = handle;
+blob->rbl_rdb = rdb;
+blob->rbl_rtr = transaction;
+blob->rbl_next = transaction->rtr_blobs;
+transaction->rtr_blobs = blob;
+PUT_HANDLE (blob);
+
+if (op == op_create_blob || op == op_create_blob2)
+    {
+    PUT_WORD (blob_id.bid_relation_id);
+    PUT_WORD (blob_id.bid_number);
+    }
+}
+
+static void prepare_statement (void)
+{
+/**************************************
+ *
+ *	p r e p a r e _ s t a t e m e n t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a dynamic SQL statement for execution.
+ *
+ **************************************/
+RTR	transaction;
+RSR	statement;
+USHORT	l, length, item_length, buffer_length, dialect;
+UCHAR	*p, *string, *items, items_buf [128], *buffer;
+STATUS	status_vector [20];
+HANDLE	handle;
+
+RTR_GET_HANDLE_NULL (transaction);
+RSR_GET_HANDLE (statement);
+length = GET_WORD;
+string = get_buffer (length, 0);
+GET_STRING (length, string);
+dialect = GET_WORD;
+item_length = GET_WORD;
+items = (item_length <= sizeof (items_buf)) ? items_buf : get_buffer (item_length, 2);
+GET_STRING (item_length, items);
+buffer_length = GET_WORD;
+buffer = get_buffer (buffer_length, 1);
+
+handle = (transaction) ? transaction->rtr_handle : NULL;
+
+GDS_DSQL_PREPARE (status_vector,
+	&handle,
+	&statement->rsr_handle,
+	length,
+	string,
+	dialect,
+	item_length,
+	items,
+	buffer_length,
+	buffer);
+
+if (!send_response (status_vector))
+    {
+    PUT_WORD (buffer_length);
+    PUT_STRING (buffer_length, buffer);
+    }
+}
+
+#ifdef KILLER_SIGNALS
+static int put_byte (
+    int b)
+{
+/**************************************
+ *
+ *	p u t _ b y t e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a byte into stdout but watch for EINTR
+ *
+ **************************************/
+
+PUT_DATA_CODE (b, c, write_pipe, "Pipe Server write pipe error %d\n");
+}
+#endif
+
+#ifdef KILLER_SIGNALS
+static int put_byte_event (
+    int b)
+{
+/**************************************
+ *
+ *	p u t _ b y t e _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a byte into event pipe but watch for EINTR
+ *
+ **************************************/
+
+PUT_DATA_CODE (b, c, event_pipe, "Pipe Server write event pipe error %d\n");
+}
+#endif
+
+#ifdef KILLER_SIGNALS
+static IPTR put_handle (
+    IPTR	b)
+{
+/**************************************
+ *
+ *	p u t _ h a n d l e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a handle into stdout but watch for EINTR
+ *
+ **************************************/
+
+PUT_DATA_CODE (b, h, write_pipe, "Pipe Server write pipe error %d\n");
+}
+#endif
+
+#ifdef KILLER_SIGNALS
+static IPTR put_handle_event (
+    IPTR	b)
+{
+/**************************************
+ *
+ *	p u t _ h a n d l e _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a handle into event pipe but watch for EINTR
+ *
+ **************************************/
+
+PUT_DATA_CODE (b, h, event_pipe, "Pipe Server write event pipe error %d\n");
+}
+#endif
+
+static void put_segment (
+    P_OP	operation)
+{
+/**************************************
+ *
+ *	p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a single blob segment.
+ *
+ **************************************/
+RDB	rdb;
+RBL	blob;
+USHORT	l, buffer_length, length;
+UCHAR	*p, *buffer, *end;
+STATUS	status_vector [20];
+
+RBL_GET_HANDLE (blob);
+buffer_length = GET_WORD;
+buffer = get_buffer (buffer_length, 0);
+GET_STRING (buffer_length, buffer);
+
+if (operation == op_put_segment)
+    {
+    /* Do the single segment version.  If it failed, just pass on the
+       bad news. */
+
+    GDS_PUT_SEGMENT (status_vector, 
+	GDS_REF (blob->rbl_handle), 
+	buffer_length, 
+	GDS_VAL (buffer));
+    }
+else /* operation == op_put_segment_buf */
+    {
+    /* We've got a batch of segments.  This is only slightly more complicated */
+
+    end = buffer + buffer_length;
+
+    while (buffer < end)
+	{
+	length = *buffer++;
+	length += *buffer++ << 8;
+	GDS_PUT_SEGMENT (status_vector,
+	    GDS_REF (blob->rbl_handle),
+	    length,
+	    GDS_VAL (buffer));
+	if (status_vector [1])
+	    break;
+	buffer += length;
+	}
+    }
+
+(void) send_response (status_vector);
+}
+
+static void put_slice (void)
+{
+/**************************************
+ *
+ *	p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put slice of array;
+ *
+ **************************************/
+RDB		rdb;
+RTR		transaction;
+STATUS		status_vector [20];
+USHORT		sdl_length, param_length;
+ULONG		l, slice_length, return_length, parameters [32];
+UCHAR		*p, *sdl, sdl_buf [256], *slice;
+struct bid	array_id;
+
+RDB_GET_HANDLE (rdb);
+RTR_GET_HANDLE (transaction);
+array_id.bid_relation_id = GET_WORD;
+array_id.bid_number = GET_WORD;
+sdl_length = GET_WORD;
+sdl = (sdl_length <= sizeof (sdl_buf)) ? sdl_buf : get_buffer (sdl_length, 0);
+GET_STRING (sdl_length, sdl);
+param_length = GET_WORD;
+GET_STRING (param_length, (UCHAR*) parameters);
+slice = NULL;
+
+if (slice_length = GET_WORD)
+    {
+    slice = ALLP_alloc (slice_length);
+    GET_STRING (slice_length, slice);
+    }
+
+GDS_PUT_SLICE (status_vector,
+	GDS_REF (rdb->rdb_handle), 
+	GDS_REF (transaction->rtr_handle), 
+	GDS_REF (array_id),
+	sdl_length,
+	sdl,
+	param_length,
+	parameters,
+	slice_length,
+	GDS_VAL (slice));
+
+if (slice)
+    ALLP_free (slice);
+
+if (send_response (status_vector))
+    return;
+
+PUT_WORD (array_id.bid_relation_id);
+PUT_WORD (array_id.bid_number);
+}
+
+#ifdef KILLER_SIGNALS
+static SLONG put_word (
+    SLONG	b)
+{
+/**************************************
+ *
+ *	p u t _ w o r d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a word into stdout but watch for EINTR
+ *
+ **************************************/
+
+PUT_DATA_CODE (b, l, write_pipe, "Pipe Server write pipe error %d\n");
+}
+#endif
+
+#ifdef KILLER_SIGNALS
+static SLONG put_word_event (
+    SLONG	b)
+{
+/**************************************
+ *
+ *	p u t _ w o r d _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a word into event pipe but watch for EINTR
+ *
+ **************************************/
+
+PUT_DATA_CODE (b, l, event_pipe, "Pipe Server write event pipe error %d\n");
+}
+#endif
+
+static void que_events (void)
+{
+/**************************************
+ *
+ *	q u e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que events for asynchronous notification.
+ *
+ **************************************/
+RDB	rdb;
+USHORT	l, length, object;
+UCHAR	*p, *events;
+STATUS	status_vector [20];
+RVNT	event;
+
+#ifdef DEBUG
+fprintf (stderr, "que_events entered\n");
+#endif
+
+/* Find or allocate pipe block */
+
+for (event = PSV_events; event; event = event->rvnt_next)
+    if (!event->rvnt_ast)
+	break;
+
+if (!event)
+    {
+    event = (RVNT) ALLOC (type_rvnt);
+    event->rvnt_next = PSV_events;
+    PSV_events = event;
+    }
+
+/* Get data, etc */
+
+RDB_GET_HANDLE (rdb);
+event->rvnt_ast = (void (*)()) GET_HANDLE;
+event->rvnt_arg = (void *) GET_HANDLE;
+length = GET_WORD;
+events = get_buffer (length, 0);
+GET_STRING (length, events);
+
+#ifdef DEBUG
+fprintf (stderr, "que_events: making call \n");
+#endif
+
+GDS_QUE_EVENTS (status_vector, 
+	GDS_REF (rdb->rdb_handle), 
+	GDS_REF (event->rvnt_handle), 
+	length, 
+	GDS_VAL (events),
+	event_ast,
+	GDS_VAL (event));
+
+#ifdef DEBUG
+fprintf (stderr, "que_events: call status: %d\n", status_vector [1]);
+#endif
+
+if (send_response (status_vector))
+    event->rvnt_ast = 0;
+else
+    PUT_WORD (event->rvnt_handle);
+}
+
+static void receive_msg (void)
+{
+/**************************************
+ *
+ *	r e c e i v e _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message.
+ *
+ **************************************/
+STATUS	status_vector [20];
+RRQ	request;
+RDB	rdb;
+USHORT	l, length, number, level;
+#ifdef SCROLLABLE_CURSORS
+USHORT	direction;
+ULONG	offset;
+#endif
+UCHAR	*p, *buffer;
+
+RRQ_GET_HANDLE (request);
+number = GET_WORD;
+length = GET_WORD;
+buffer = get_buffer (length, 0);
+level = GET_WORD;
+#ifdef SCROLLABLE_CURSORS
+direction = GET_WORD; 
+offset = GET_WORD;
+#endif
+
+GDS_RECEIVE (status_vector, 
+	GDS_REF (request->rrq_handle), 
+	number, 
+	length, 
+	GDS_VAL (buffer),
+	level
+#ifdef SCROLLABLE_CURSORS
+	, 
+	direction, 
+	offset
+#endif
+	);
+
+if (send_response (status_vector))
+    return;
+
+PUT_STRING (length, buffer);
+}
+
+static void reconnect (void)
+{
+/**************************************
+ *
+ *	r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reconnect to a transaction in limbo.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+USHORT	l, length, count, object;
+UCHAR	*p, *buffer;
+HANDLE	handle;
+STATUS	status_vector [20];
+
+RDB_GET_HANDLE (rdb);
+length = GET_WORD;
+buffer = get_buffer (length, 0);
+GET_STRING (length, buffer);
+handle = NULL;
+
+GDS_RECONNECT (status_vector, 
+	GDS_REF (rdb->rdb_handle),
+	GDS_REF (handle), 
+	length, 
+	GDS_VAL (buffer));
+
+if (!send_response (status_vector))
+    {
+    transaction = make_transaction (rdb, handle);
+    transaction->rtr_flags |= RTR_limbo;
+    PUT_HANDLE (transaction);
+    }
+}
+
+static void release_blob (
+    RBL		blob)
+{
+/**************************************
+ *
+ *	r e l e a s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a blob block and friends.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+RBL	*p;
+
+rdb = blob->rbl_rdb;
+transaction = blob->rbl_rtr;
+
+for (p = &transaction->rtr_blobs; *p; p = &(*p)->rbl_next)
+    if (*p == blob)
+	{
+	*p = blob->rbl_next;
+	break;
+	}
+
+ALLP_release (blob);
+}
+
+static void release_request (
+    RRQ		request)
+{
+/**************************************
+ *
+ *	r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request block and friends.
+ *
+ **************************************/
+RDB	rdb;
+RRQ	*p;
+
+rdb = request->rrq_rdb;
+
+for (p = &rdb->rdb_requests; *p; p = &(*p)->rrq_next)
+    if (*p == request)
+	{
+	*p = request->rrq_next;
+	break;
+	}
+
+ALLP_release (request);
+}
+
+static void release_sql_request (
+    RSR		stmt)
+{
+/**************************************
+ *
+ *	r e l e a s e _ s q l _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an SQL request block.
+ *
+ **************************************/
+RDB	rdb;
+RSR	*p;
+
+rdb = stmt->rsr_rdb;
+
+for (p = &rdb->rdb_sql_requests; *p; p = &(*p)->rsr_next)
+    if (*p == stmt)
+	{
+	*p = stmt->rsr_next;
+	break;
+	}
+
+ALLP_release (stmt);
+}
+
+static void release_transaction (
+    RTR		transaction)
+{
+/**************************************
+ *
+ *	r e l e a s e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a transaction block and friends.
+ *
+ **************************************/
+RDB	rdb;
+RTR	*p;
+
+rdb = transaction->rtr_rdb;
+
+while (transaction->rtr_blobs)
+    release_blob (transaction->rtr_blobs);
+
+for (p = &rdb->rdb_transactions; *p; p = &(*p)->rtr_next)
+    if (*p == transaction)
+	{
+	*p = transaction->rtr_next;
+	break;
+	}
+
+ALLP_release (transaction);
+}
+
+static void seek_blob (void)
+{
+/**************************************
+ *
+ *	s e e k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a blob seek.
+ *
+ **************************************/
+RDB	rdb;
+RBL	blob;
+SSHORT	mode;
+SLONG	offset, result;
+STATUS	status_vector [20];
+
+RBL_GET_HANDLE (blob);
+mode = GET_WORD;
+offset = GET_WORD;
+
+/* Do the call.  We basically don't care whether it succeeds or not */
+
+GDS_SEEK_BLOB (status_vector, 
+	GDS_REF (blob->rbl_handle), 
+	mode, 
+	offset,
+	GDS_REF (result));
+
+if (send_response (status_vector))
+    return;
+
+PUT_WORD (result);
+}
+
+static void send_msg (void)
+{
+/**************************************
+ *
+ *	s e n d _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+STATUS	status_vector [20];
+RRQ	request;
+RTR	transaction;
+RDB	rdb;
+UCHAR	*p, *buffer;
+USHORT	l, length, number, level;
+
+RRQ_GET_HANDLE (request);
+number = GET_WORD;
+length = GET_WORD;
+buffer = get_buffer (length, 0);
+GET_STRING (length, buffer);
+level = GET_WORD;
+
+GDS_SEND (status_vector, 
+	GDS_REF (request->rrq_handle),
+	number, 
+	length, 
+	GDS_VAL (buffer),
+	level);
+
+(void) send_response (status_vector);
+}
+
+static STATUS send_response (
+    STATUS	*status_vector)
+{
+/**************************************
+ *
+ *	s e n d _ r e s p o n s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a response packet.
+ *
+ **************************************/
+STATUS	code;
+USHORT	l, length;
+TEXT	*p, buffer [1024];
+
+if (!(code = status_vector [1]))
+    {
+    PUT_WORD ((SLONG) *status_vector++);
+    PUT_WORD ((SLONG) *status_vector++);
+    PUT_WORD (gds_arg_end);
+    return SUCCESS;
+    }
+
+/* Start by translating the status vector into "generic" form */
+
+while (*status_vector)
+    switch (*status_vector)
+	{
+	case gds_arg_interpreted:
+	case gds_arg_string:
+	    PUT_WORD ((SLONG) *status_vector++);
+	    p = (TEXT*) *status_vector++;
+	    length = ((p) ? strlen (p) : 0);
+	    PUT_WORD (length);
+	    PUT_STRING (length, p);
+	    break;
+
+	case gds_arg_cstring:
+	    PUT_WORD (gds_arg_string);
+	    status_vector++;
+	    length = *status_vector++;
+	    PUT_WORD (length);
+	    p = (TEXT*) *status_vector++;
+	    PUT_STRING (length, p);
+	    break;
+	
+#ifndef GATEWAY
+	case gds_arg_number:
+	case gds_arg_gds:
+	    PUT_WORD ((SLONG) *status_vector++);
+	    PUT_WORD ((SLONG) *status_vector++);
+	    break;
+
+	default:
+	    if (!(length = gds__interprete (buffer, &status_vector)))
+		{
+		*status_vector = 0;
+		break;
+		}
+	    PUT_WORD (gds_arg_interpreted);
+	    PUT_WORD (length);
+	    PUT_STRING (length, buffer);
+	    break;
+#else
+	default:
+	    PUT_WORD ((SLONG) *status_vector++);
+	    PUT_WORD ((SLONG) *status_vector++);
+	    break;
+#endif
+	}
+
+PUT_WORD (gds_arg_end);
+
+return code;
+}
+
+static void set_cursor (void)
+{
+/**************************************
+ *
+ *	s e t _ c u r s o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set a cursor name for a dynamic request.
+ *
+ **************************************/
+RSR	statement;
+USHORT	l, length, type;
+UCHAR	*p, *cursor;
+STATUS	status_vector [20];
+
+RSR_GET_HANDLE (statement);
+length = GET_WORD;
+cursor = get_buffer (length, 0);
+GET_STRING (length, cursor);
+type = GET_WORD;
+
+GDS_DSQL_SET_CURSOR (status_vector, 
+	&statement->rsr_handle,
+	cursor,
+	type);
+
+(void) send_response (status_vector);
+}
+
+static void shutdown_attachments (void)
+{
+/**************************************
+ *
+ *	s h u t d o w n _ a t t a c h m e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	About to exit, detach any remaining database
+ *	and service attachments.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+STATUS	status_vector [20];
+
+for (rdb = PSV_databases; rdb; rdb = rdb->rdb_next)
+    {
+#ifdef GATEWAY
+    /* Abort any outstanding, non-limbo transactions */
+
+    for (transaction = rdb->rdb_transactions; transaction; transaction = transaction->rtr_next)
+	if (!(transaction->rtr_flags & RTR_limbo))
+	    GDS_ROLLBACK (status_vector, GDS_REF (transaction->rtr_handle));
+#endif
+
+    GDS_DETACH (status_vector, GDS_REF (rdb->rdb_handle));
+    }
+
+#ifndef GATEWAY
+for (rdb = PSV_services; rdb; rdb = rdb->rdb_next)
+    GDS_SERVICE_DETACH (status_vector, &rdb->rdb_handle);
+#endif
+}
+
+static void start (void)
+{
+/**************************************
+ *
+ *	s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+STATUS	status_vector [20];
+RRQ	request;
+RTR	transaction;
+RDB	rdb;
+USHORT	level;
+
+RRQ_GET_HANDLE (request);
+RTR_GET_HANDLE (transaction);
+level = GET_WORD;
+
+GDS_START (status_vector, 
+	GDS_REF (request->rrq_handle), 
+	GDS_REF (transaction->rtr_handle),
+	level);
+
+(void) send_response (status_vector);
+}
+
+static void start_and_send (void)
+{
+/**************************************
+ *
+ *	s t a r t _ a n d _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+STATUS	status_vector [20];
+RRQ	request;
+RTR	transaction;
+RDB	rdb;
+UCHAR	*p, *buffer;
+USHORT	l, length, number, level;
+
+RRQ_GET_HANDLE (request);
+RTR_GET_HANDLE (transaction);
+number = GET_WORD;
+length = GET_WORD;
+buffer = get_buffer (length, 0);
+GET_STRING (length, buffer);
+level = GET_WORD;
+
+GDS_START_AND_SEND (status_vector, 
+	GDS_REF (request->rrq_handle),
+	GDS_REF (transaction->rtr_handle),
+	number, 
+	length, 
+	GDS_VAL (buffer),
+	level);
+
+(void) send_response (status_vector);
+}
+
+static void start_transaction (void)
+{
+/**************************************
+ *
+ *	s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+USHORT	l, length, count, c, object;
+UCHAR	*p, *buffer;
+HANDLE	handle;
+int	**v, *vector [3*16];
+STATUS	status_vector [20];
+
+v = vector;
+count = GET_WORD;
+buffer = get_buffer (1024, 0);
+
+for (c = 0; c < count; c++)
+    {
+    RDB_GET_HANDLE (rdb);
+    *v++ = (int*) &rdb->rdb_handle;
+    length = GET_WORD;
+    *v++ = (int*) length;
+    *v++ = (int*) buffer;
+    GET_STRING (length, buffer);
+    buffer += length;
+    }
+
+handle = NULL;
+
+GDS_START_MULTIPLE (status_vector, 
+	GDS_REF (handle), 
+	count, 
+	vector);
+
+if (!send_response (status_vector))
+    {
+    transaction = make_transaction (rdb, handle);
+    PUT_HANDLE (transaction);
+    }
+}
+
+static void transact_request (void)
+{
+/**************************************
+ *
+ *	t r a n s a c t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+USHORT	i, l, blr_length, in_msg_length, out_msg_length;
+UCHAR	*p, *blr, *in_buffer, *out_buffer;
+STATUS	status_vector [20];
+
+RDB_GET_HANDLE (rdb);
+RTR_GET_HANDLE (transaction);
+blr_length = GET_WORD;
+blr = get_buffer (blr_length, 0);
+GET_STRING (blr_length, blr);
+in_msg_length = GET_WORD;
+in_buffer = get_buffer (in_msg_length, 1);
+GET_STRING (in_msg_length, in_buffer);
+out_msg_length = GET_WORD;
+out_buffer = get_buffer (out_msg_length, 2);
+
+GDS_TRANSACT_REQUEST (status_vector, 
+	&rdb->rdb_handle, 
+	&transaction->rtr_handle,
+	blr_length, blr,
+	in_msg_length, in_buffer,
+	out_msg_length, out_buffer);
+
+if (send_response (status_vector))
+    return;
+
+PUT_STRING (out_msg_length, out_buffer);
+}
+
+static void unwind (void)
+{
+/**************************************
+ *
+ *	u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a request.
+ *
+ **************************************/
+RDB	rdb;
+RRQ	request;
+USHORT	level;
+STATUS	status_vector [20];
+
+RRQ_GET_HANDLE (request);
+level = GET_WORD;
+
+GDS_UNWIND (status_vector, 
+	GDS_REF (request->rrq_handle),
+	level);
+
+(void) send_response (status_vector);
+}
diff --git a/src/pipe/head.cpp b/src/pipe/head.cpp
new file mode 100644
index 0000000000..cb42b3c933
--- /dev/null
+++ b/src/pipe/head.cpp
@@ -0,0 +1,3963 @@
+/*
+ *	PROGRAM:	Pipe Server
+ *	MODULE:		head.c
+ *	DESCRIPTION:	Pipe Server interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Solaris x86 changes - Konstantin Kuznetsov, Neil McCalden 
+ */
+ 
+ /* $Id: head.cpp,v 1.1.1.1 2001-05-23 13:26:33 tamlin Exp $ */
+ 
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include <signal.h>
+#include <errno.h>
+
+#include "../pipe/pipe.h"
+#include "../jrd/codes.h"
+#include "../jrd/license.h"
+#include "../jrd/inf.h"
+#include "../pipe/allp_proto.h"
+#include "../pipe/head_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../remote/merge_proto.h"
+
+#ifdef sparc
+#ifdef SOLARIS
+#include <fcntl.h>
+#else
+#include <vfork.h>
+#endif
+#endif
+
+#ifdef SOLX86
+#include <fcntl.h>
+#endif
+
+#if (defined DELTA || defined M88K || defined SCO_UNIX || defined EPSON)
+#include <fcntl.h>
+#endif
+
+#if (defined UNIXWARE || defined NCR3000)
+#include <sys/fcntl.h>
+#endif
+
+#ifdef GDS_PIPE
+#define BRIDGE
+#endif
+
+#include <sys/param.h>
+#include <sys/types.h>
+#include <sys/file.h>
+#include <sys/stat.h>
+
+#ifndef GDS_PIPE
+#define GDS_PIPE	"bin/gds_pipe"
+#define GDS_SERVER	"GDS_SERVER"
+#else
+#define GDS_SERVER	"GDS_BRIDGE"
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	256
+#endif
+
+#ifndef GATEWAY
+#define ESTABLISH_PIPES { \
+	    if (!read_pipe || !write_pipe) \
+	        { \
+		user_status [0] = gds_arg_gds; \
+		user_status [1] = gds__conn_lost;	/* Msg 328 Connection lost to pipe server */ \
+		user_status [2] = gds_arg_end; \
+		return user_status [1]; \
+		}; \
+	    }
+#else
+#define ESTABLISH_PIPES		read_pipe = (FILE*) rdb->rdb_pipes.cnct_read_pipe; write_pipe = (FILE*) rdb->rdb_pipes.cnct_write_pipe; connection = rdb;
+#endif
+
+#define statistics	stat
+
+typedef void	(*PTR)();
+
+static STATUS	check_response (STATUS *);
+static void	event_handler (void);
+static int	get_byte (void);
+static int	get_byte_event (void);
+static IPTR	get_handle (void);
+static IPTR	get_handle_event (void);
+static SLONG	get_word (void);
+static SLONG	get_word_event (void);
+static STATUS	handle_error (STATUS *, STATUS);
+static RDB	init (STATUS *, P_OP, UCHAR *, USHORT, UCHAR *, USHORT);
+static RTR	make_transaction (RDB, HANDLE);
+static SSHORT	name_length (TEXT *);
+static void	pipe_io_error (STATUS *, TEXT *, TEXT *, int);
+static int	put_byte (int);
+static IPTR	put_handle (IPTR);
+static SLONG	put_word (SLONG);
+static void	release_blob (RBL);
+static STATUS	release_object (P_OP, HANDLE, STATUS *);
+static void	release_request (RRQ);
+static void	release_sql_request (RSR);
+static void	release_transaction (RTR);
+static STATUS	send_blob (STATUS *, RBL, USHORT, UCHAR *);
+
+static FILE	*read_pipe = NULL, 
+		*write_pipe = NULL,
+		*event_pipe = NULL;
+static int	event_fd = -1;
+static TEXT	error_text [1024];
+static RDB	PSI_databases = NULL;
+
+#ifdef GATEWAY
+static RDB	connection = NULL;
+#endif
+
+#ifdef SOLARIS
+/* NOTE: This code is cloned in foot.c */
+/* On Solaris, getc&putc are thread-safe calls, which mean they do
+ * a file lock/unlock for each character IO.  This is a performance
+ * drain; however, the main reason for making the change is that
+ * getc&putc don't work on (at least) Solaris 2.4 with the -mt CC option.
+ * Our testing on Solaris revealed that the standard definitions 
+ * of putc/getc would obtain bogus EOF indicators - which would 
+ * cause one end of the pipe connection to terminate after a message.
+ *
+ * Note also that getc_unlocked & putc_unlocked are macros. 
+ *
+ * The man page for putc_unlocked/getc_unlocked state that we must
+ * do our own file locking to ensure that the usage is MT safe -
+ * in our case, the pipe server connection is not threaded - and
+ * as there is a unique pipe created for each client-server connection
+ * there is no MT issue.
+ *  15-September-1995 David Schnepper & Morgan Schweers
+ */
+#define	GETC_UNLOCKED		getc_unlocked
+#define	PUTC_UNLOCKED		putc_unlocked
+#endif
+
+#ifndef	GETC_UNLOCKED
+#define	GETC_UNLOCKED		getc
+#define	PUTC_UNLOCKED		putc
+#endif
+
+#ifdef KILLER_SIGNALS
+#define GET_BYTE		get_byte ()
+#define GET_WORD		get_word ()
+#define GET_HANDLE		get_handle ()
+#define GET_BYTE_EVENT		get_byte_event ()
+#define GET_WORD_EVENT		get_word_event ()
+#define GET_HANDLE_EVENT	get_handle_event ()
+#define PUT_BYTE(byte)		put_byte (byte)
+#define PUT_WORD(word)		put_word ((SLONG) (word))
+#define PUT_HANDLE(word)	put_handle ((IPTR) (word))
+
+#else
+#define GET_BYTE		GETC_UNLOCKED (read_pipe)
+#define GET_WORD		getw (read_pipe)
+#define GET_HANDLE		getw (read_pipe)
+#define GET_BYTE_EVENT		GETC_UNLOCKED (event_pipe)
+#define GET_WORD_EVENT		getw (event_pipe)
+#define GET_HANDLE_EVENT	getw (event_pipe)
+#define PUT_BYTE(byte)		PUTC_UNLOCKED (byte, write_pipe)
+#define PUT_WORD(word)		putw (word, write_pipe)
+#define PUT_HANDLE(word)	putw (word, write_pipe)
+#endif
+
+#define GET_STRING(length,ptr)	if (l = (length))\
+	{p = (ptr); do *p++ = GET_BYTE; while (--l);}
+
+#define PUT_STRING(length,ptr)	if (l = (length))\
+	{p = (ptr); do PUT_BYTE (*p++); while (--l);}
+
+#ifdef DEBUG
+/* Define this to try and trace down problems with pipe server */
+#define DEBUGMSG(x)	fprintf (stderr, "%s %d %s\n", __FILE__, __LINE__, x)
+#endif
+
+#ifndef DEBUGMSG
+#define DEBUGMSG(x)	/* nothing */
+#endif
+
+/* Macros that generates code for all of the KILLER_SIGNALS get and
+   put routines. */
+
+#define GET_DATA_CODE(element,pipe,msg)	\
+	union	{SCHAR c; SLONG l; IPTR h; SCHAR p [sizeof (IPTR)];} c; \
+	int	i, n; \
+	if (!pipe) \
+	    return -1; \
+	for (i = 0; i < sizeof (c.element);) \
+	    { \
+	    errno = 0; \
+	    if ((n = GETC_UNLOCKED (pipe)) == EOF) \
+		{ \
+		if (SYSCALL_INTERRUPTED(errno)) \
+		    { \
+		    DEBUGMSG ("get_data: clearing EINTR"); \
+		    clearerr (pipe); \
+		    rewind (pipe); \
+		    continue; \
+		    } \
+		else \
+		    { \
+		    DEBUGMSG ("get_data: closing due to error"); \
+		    fclose (pipe); \
+		    pipe = NULL; \
+		    gds__log (msg, (int*) errno); \
+		    return -1; \
+		    } \
+		} \
+	    else \
+		c.p [i++] = n; \
+	    } \
+	return c.element
+
+#define PUT_DATA_CODE(data,element,pipe,msg)	\
+	union	{SCHAR c; SLONG l; IPTR h; SCHAR p [sizeof (IPTR)];} c; \
+	int	i, n; \
+	c.element = data; \
+	if (!pipe) \
+	    return -1; \
+	for (i = 0; i < sizeof (c.element);) \
+	    { \
+	    errno = 0; \
+	    if ((n = PUTC_UNLOCKED (c.p [i], pipe)) == EOF) \
+		{ \
+		if (SYSCALL_INTERRUPTED(errno)) \
+		    { \
+		    DEBUGMSG ("put_data: clearing EINTR"); \
+		    clearerr (pipe); \
+		    rewind (pipe); \
+		    continue; \
+		    } \
+		else \
+		    { \
+		    DEBUGMSG ("put_data: closing due to error"); \
+		    fclose (pipe); \
+		    pipe = NULL; \
+		    gds__log (msg, (int*) errno); \
+		    return -1; \
+		    } \
+		} \
+	    else \
+		i++; \
+	    } \
+	return c.element
+
+#define RETURN_SUCCESS return SUCCESS;
+
+#define CHECK_HANDLE(blk, type, error) if (!blk || ((BLK) blk)->blk_type != (SCHAR) type) \
+	return handle_error (user_status, error)
+
+#define NULL_CHECK(ptr, code) if (*ptr) return handle_error (user_status, code)
+
+#ifdef SHLIB_DEFS
+#define fcntl		(*_libgds_fcntl)
+#define fdopen		(*_libgds_fdopen)
+#define pipe		(*_libgds_pipe)
+#define statistics	(*_libgds_stat)
+#define dup		(*_libgds_dup)
+#define execle		(*_libgds_execle)
+#define execl		(*_libgds_execl)
+#define putenv		(*_libgds_putenv)
+
+extern int		fcntl();
+extern FILE		*fdopen();
+extern int		pipe();
+extern int		statistics();
+extern int		dup();
+extern int		execle();
+extern int		execl();
+extern int		putenv();
+#endif
+
+#ifndef BRIDGE
+#define GDS_ATTACH_DATABASE	PSI_attach_database
+#define GDS_ATTACH_SERVICE	PSI_attach_service
+#define GDS_BLOB_INFO		PSI_blob_info
+#define GDS_CANCEL_BLOB		PSI_cancel_blob
+#define GDS_CANCEL_EVENTS	PSI_cancel_events
+#define GDS_CLOSE_BLOB		PSI_close_blob
+#define GDS_COMMIT		PSI_commit_transaction
+#define GDS_COMMIT_RETAINING	PSI_commit_retaining
+#define GDS_COMPILE		PSI_compile_request
+#define GDS_CREATE_BLOB		PSI_create_blob
+#define GDS_CREATE_BLOB2	PSI_create_blob2
+#define GDS_CREATE_DATABASE	PSI_create_database
+#define GDS_DATABASE_INFO	PSI_database_info
+#define GDS_DDL			PSI_ddl
+#define GDS_DETACH		PSI_detach_database
+#define GDS_DETACH_SERVICE	PSI_detach_service
+#define GDS_DROP_DATABASE	PSI_drop_database
+#define GDS_GET_SEGMENT		PSI_get_segment
+#define GDS_GET_SLICE		PSI_get_slice
+#define GDS_OPEN_BLOB		PSI_open_blob
+#define GDS_OPEN_BLOB2		PSI_open_blob2
+#define GDS_PREPARE		PSI_prepare_transaction
+#define GDS_PUT_SEGMENT		PSI_put_segment
+#define GDS_PUT_SLICE		PSI_put_slice
+#define GDS_QUE_EVENTS		PSI_que_events
+#define GDS_QUERY_SERVICE	PSI_query_service
+#define GDS_RECEIVE		PSI_receive
+#define GDS_RECONNECT		PSI_reconnect_transaction
+#define GDS_RELEASE_REQUEST	PSI_release_request
+#define GDS_REQUEST_INFO	PSI_request_info
+#define GDS_ROLLBACK		PSI_rollback_transaction
+#define GDS_SEEK_BLOB		PSI_seek_blob
+#define GDS_SEND		PSI_send
+#define GDS_START_AND_SEND	PSI_start_and_send
+#define GDS_START		PSI_start_request
+#define GDS_START_MULTIPLE	PSI_start_multiple
+#define GDS_START_TRANSACTION	PSI_start_transaction
+#define GDS_TRANSACT_REQUEST	PSI_transact_request
+#define GDS_TRANSACTION_INFO	PSI_transaction_info
+#define GDS_UNWIND		PSI_unwind_request
+
+#define GDS_DSQL_ALLOCATE	PSI_allocate_statement
+#define GDS_DSQL_EXECUTE	PSI_execute
+#define GDS_DSQL_EXECUTE2	PSI_execute2
+#define GDS_DSQL_EXECUTE_IMMED	PSI_execute_immediate
+#define GDS_DSQL_EXECUTE_IMMED2	PSI_execute_immediate2
+#define GDS_DSQL_FETCH		PSI_fetch
+#define GDS_DSQL_FREE		PSI_free_statement
+#define GDS_DSQL_INSERT		PSI_insert
+#define GDS_DSQL_PREPARE	PSI_prepare
+#define GDS_DSQL_SET_CURSOR	PSI_set_cursor_name
+#define GDS_DSQL_SQL_INFO	PSI_sql_info
+#else
+#define GDS_ATTACH_DATABASE	PSI5_attach_database
+#define GDS_BLOB_INFO		PSI5_blob_info
+#define GDS_CANCEL_BLOB		PSI5_cancel_blob
+#define GDS_CLOSE_BLOB		PSI5_close_blob
+#define GDS_COMMIT		PSI5_commit_transaction
+#define GDS_COMMIT_RETAINING	PSI5_commit_retaining
+#define GDS_COMPILE		PSI5_compile_request
+#define GDS_CREATE_BLOB		PSI5_create_blob
+#define GDS_CREATE_BLOB2	PSI5_create_blob2
+#define GDS_CREATE_DATABASE	PSI5_create_database
+#define GDS_DATABASE_INFO	PSI5_database_info
+#define GDS_DETACH		PSI5_detach_database
+#define GDS_GET_SEGMENT		PSI5_get_segment
+#define GDS_OPEN_BLOB		PSI5_open_blob
+#define GDS_OPEN_BLOB2		PSI5_open_blob2
+#define GDS_PREPARE		PSI5_prepare_transaction
+#define GDS_PUT_SEGMENT		PSI5_put_segment
+#define GDS_RECEIVE		PSI5_receive
+#define GDS_RECONNECT		PSI5_reconnect_transaction
+#define GDS_RELEASE_REQUEST	PSI5_release_request
+#define GDS_REQUEST_INFO	PSI5_request_info
+#define GDS_ROLLBACK		PSI5_rollback_transaction
+#define GDS_SEEK_BLOB		PSI5_seek_blob
+#define GDS_SEND		PSI5_send
+#define GDS_START_AND_SEND	PSI5_start_and_send
+#define GDS_START		PSI5_start_request
+#define GDS_START_MULTIPLE	PSI5_start_multiple
+#define GDS_START_TRANSACTION	PSI5_start_transaction
+#define GDS_TRANSACTION_INFO	PSI5_transaction_info
+#define GDS_UNWIND		PSI5_unwind_request
+#define GDS_DDL			PSI5_ddl
+#define GDS_QUE_EVENTS		PSI5_que_events
+#define GDS_CANCEL_EVENTS	PSI5_cancel_events
+#define GDS_GET_SLICE		PSI5_get_slice
+#define GDS_PUT_SLICE		PSI5_put_slice
+
+#define GDS_DSQL_ALLOCATE	PSI5_allocate_statement
+#define GDS_DSQL_EXECUTE	PSI5_execute
+#define GDS_DSQL_EXECUTE_IMMED	PSI5_execute_immediate
+#define GDS_DSQL_FETCH		PSI5_fetch
+#define GDS_DSQL_FREE		PSI5_free_statement
+#define GDS_DSQL_PREPARE	PSI5_prepare
+#define GDS_DSQL_SET_CURSOR	PSI5_set_cursor_name
+#define GDS_DSQL_SQL_INFO	PSI5_sql_info
+#endif
+
+STATUS GDS_ATTACH_DATABASE (
+    STATUS	*user_status,
+    SSHORT	GDS_VAL (file_length),
+    SCHAR	*file_name,
+    RDB		*handle,
+    SSHORT	GDS_VAL (dpb_length),
+    SCHAR	*dpb)
+{
+/**************************************
+ *
+ *	g d s _ a t t a c h _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attach to a grungy old database, corrupted by user data.
+ *
+ **************************************/
+RDB	rdb;
+
+NULL_CHECK (handle, gds__bad_db_handle);
+
+if (!(rdb = init (user_status, op_attach, 
+	file_name, GDS_VAL (file_length), dpb, GDS_VAL (dpb_length))))
+    return user_status [1];
+
+*handle = rdb;
+
+RETURN_SUCCESS;
+}
+
+#ifndef BRIDGE
+#ifndef GATEWAY
+STATUS GDS_ATTACH_SERVICE (
+    STATUS	*user_status,
+    USHORT	service_length,
+    TEXT	*service_name,
+    RDB		*handle,
+    USHORT	spb_length,
+    SCHAR	*spb)
+{
+/**************************************
+ *
+ *	g d s _ a t t a c h _ s e r v i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to an Interbase service.
+ *
+ **************************************/
+RDB	rdb;
+
+NULL_CHECK (handle, gds__bad_svc_handle);
+
+if (!(rdb = init (user_status, op_attach_service, 
+	service_name, service_length, spb, spb_length)))
+    return user_status [1];
+
+*handle = rdb;
+
+RETURN_SUCCESS;
+}
+#endif
+#endif
+
+STATUS GDS_BLOB_INFO (
+    STATUS	*user_status,
+    RBL		*blob,
+    SSHORT	GDS_VAL (item_length),
+    UCHAR	*items,
+    SSHORT	GDS_VAL (buffer_length),
+    UCHAR	*buffer)
+{
+/**************************************
+ *
+ *	g d s _ b l o b _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+RDB	rdb;
+USHORT	l;
+UCHAR	*p;
+
+CHECK_HANDLE ((*blob), type_rbl, gds__bad_segstr_handle);
+rdb = (*blob)->rbl_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_info_blob);
+PUT_HANDLE ((*blob)->rbl_handle);
+PUT_WORD (GDS_VAL (item_length));
+PUT_STRING (GDS_VAL (item_length), items);
+PUT_WORD (GDS_VAL (buffer_length));
+if (check_response (user_status))
+    return user_status [1];
+
+GET_STRING (GET_WORD, buffer);
+RETURN_SUCCESS;
+}
+
+STATUS GDS_CANCEL_BLOB (
+    STATUS	*user_status,
+    RBL		*blob_handle)
+{
+/**************************************
+ *
+ *	g d s _ c a n c e l _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+RDB	rdb;
+RBL	blob;
+USHORT	l;
+UCHAR	*p;
+
+if (!(blob = *blob_handle))
+    {
+    *user_status++ = gds_arg_gds;
+    *user_status = SUCCESS;
+    return SUCCESS;
+    }
+
+CHECK_HANDLE (blob, type_rbl, gds__bad_segstr_handle);
+rdb = blob->rbl_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+if (release_object (op_cancel_blob, blob->rbl_handle, user_status))
+    return user_status [1];
+
+release_blob (blob);
+*blob_handle = NULL;
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_CANCEL_EVENTS (
+    STATUS	*user_status,
+    RDB		*handle,
+    SLONG	*id)
+{
+/**************************************
+ *
+ *	g d s _ $ c a n c e l _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to cancel an event.
+ *
+ **************************************/
+RDB	rdb;
+RBL	blob;
+USHORT	l;
+UCHAR	*p;
+
+#ifdef V2_BRIDGE
+return handle_error (user_status, gds__unavailable);
+
+#else
+
+rdb = *handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_cancel_events);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_WORD (*id);
+
+if (check_response (user_status))
+    return user_status [1];
+
+RETURN_SUCCESS;
+#endif
+}
+
+STATUS GDS_CLOSE_BLOB (
+    STATUS	*user_status,
+    RBL		*blob_handle)
+{
+/**************************************
+ *
+ *	g d s _ c l o s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+RDB	rdb;
+RBL	blob;
+USHORT	l;
+UCHAR	*p;
+
+blob = *blob_handle;
+CHECK_HANDLE (blob, type_rbl, gds__bad_segstr_handle);
+rdb = blob->rbl_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+#ifndef V2_BRIDGE
+/* If a portion of the blob hasn't been sent to the pipe yet,
+   do so now. */
+
+if ((blob->rbl_flags & RBL_create) &&
+    blob->rbl_ptr != blob->rbl_buffer)
+    if (send_blob (user_status, blob, 0, NULL))
+	return user_status [1];
+#endif
+
+if (release_object (op_close_blob, blob->rbl_handle, user_status))
+    return user_status [1];
+
+release_blob (blob);
+*blob_handle = NULL;
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_COMMIT (
+    STATUS	*user_status,
+    RTR		*rtr_handle)
+{
+/**************************************
+ *
+ *	g d s _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit a transaction.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+USHORT	l;
+UCHAR	*p;
+
+transaction = *rtr_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+rdb = (*rtr_handle)->rtr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+if (release_object (op_commit, transaction->rtr_handle, user_status))
+    return user_status [1];
+
+release_transaction (transaction);
+*rtr_handle = NULL;
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_COMMIT_RETAINING (
+    STATUS	*user_status,
+    RTR		*rtr_handle)
+{
+/**************************************
+ *
+ *	g d s _ c o m m i t _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First phase of a two
+ *	phase commit.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+USHORT	l;
+UCHAR	*p;
+
+#ifdef V2_BRIDGE
+return handle_error (user_status, gds__unavailable);
+
+#else
+transaction = *rtr_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+rdb = (*rtr_handle)->rtr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+if (release_object (op_commit_retaining, transaction->rtr_handle, user_status))
+    return user_status [1];
+
+RETURN_SUCCESS;
+#endif
+}
+
+STATUS GDS_COMPILE (
+    STATUS	*user_status,
+    RDB		*db_handle,
+    RRQ		*req_handle,
+    SSHORT	GDS_VAL (blr_length),
+    UCHAR	*blr)
+{
+/**************************************
+ *
+ *	g d s _ c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+RDB	rdb;
+RRQ	request;
+USHORT	i, count, max_msg;
+USHORT	l;
+UCHAR	*p;
+
+/* Check and validate handles, etc. */
+
+NULL_CHECK (req_handle, gds__bad_req_handle);
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_compile);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_WORD (GDS_VAL (blr_length));
+PUT_STRING (GDS_VAL (blr_length), blr);
+
+if (check_response (user_status))
+    return user_status [1];
+
+/* Allocate request block */
+
+*req_handle = request = (RRQ) ALLOC (type_rrq);
+request->rrq_handle = GET_HANDLE;
+request->rrq_rdb = rdb;
+request->rrq_next = rdb->rdb_requests;
+rdb->rdb_requests = request;
+
+RETURN_SUCCESS;
+}
+
+#ifndef GATEWAY
+STATUS GDS_CREATE_BLOB (
+    STATUS	*user_status,
+    RDB		*db_handle,
+    RTR		*rtr_handle,
+    RBL		*blob_handle,
+    BID		blob_id)
+{
+/**************************************
+ *
+ *	g d s _ c r e a t e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a brand new blob.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+RBL	blob;
+USHORT	l;
+UCHAR	*p;
+
+NULL_CHECK (blob_handle, gds__bad_segstr_handle);
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+transaction = *rtr_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_create_blob);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_HANDLE (transaction->rtr_handle);
+
+if (check_response (user_status))
+    return user_status [1];
+
+*blob_handle = blob = (RBL) ALLOCV (type_rbl, BLOB_LENGTH);
+blob->rbl_handle = GET_HANDLE;
+blob->rbl_buffer_length = BLOB_LENGTH;
+blob->rbl_rdb = rdb;
+blob->rbl_rtr = transaction;
+blob->rbl_ptr = blob->rbl_buffer;
+blob->rbl_flags |= RBL_create;
+blob->rbl_next = transaction->rtr_blobs;
+transaction->rtr_blobs = blob;
+
+blob_id->bid_relation_id = GET_WORD;
+blob_id->bid_number = GET_WORD;
+
+RETURN_SUCCESS;
+}
+#endif
+
+STATUS GDS_CREATE_BLOB2 (
+    STATUS	*user_status,
+    RDB		*db_handle,
+    RTR		*rtr_handle,
+    RBL		*blob_handle,
+    BID		blob_id,
+    SSHORT	GDS_VAL (bpb_length),
+    UCHAR	*bpb)
+{
+/**************************************
+ *
+ *	g d s _ c r e a t e _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a brand new blob.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+RBL	blob;
+USHORT	l;
+UCHAR	*p;
+
+#ifdef V2_BRIDGE
+return handle_error (user_status, gds__unavailable);
+
+#else
+NULL_CHECK (blob_handle, gds__bad_segstr_handle);
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+transaction = *rtr_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_create_blob2);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_HANDLE (transaction->rtr_handle);
+PUT_WORD (GDS_VAL (bpb_length));
+PUT_STRING (GDS_VAL (bpb_length), bpb);
+
+if (check_response (user_status))
+    return user_status [1];
+
+*blob_handle = blob = (RBL) ALLOCV (type_rbl, BLOB_LENGTH);
+blob->rbl_handle = GET_HANDLE;
+blob->rbl_buffer_length = BLOB_LENGTH;
+blob->rbl_rdb = rdb;
+blob->rbl_rtr = transaction;
+blob->rbl_ptr = blob->rbl_buffer;
+blob->rbl_flags |= RBL_create;
+blob->rbl_next = transaction->rtr_blobs;
+transaction->rtr_blobs = blob;
+
+blob_id->bid_relation_id = GET_WORD;
+blob_id->bid_number = GET_WORD;
+
+RETURN_SUCCESS;
+#endif
+}
+
+#ifndef GATEWAY
+STATUS GDS_CREATE_DATABASE (
+    STATUS	*user_status,
+    SSHORT	GDS_VAL (file_length),
+    SCHAR	*file_name,
+    RDB		*handle,
+    SSHORT	GDS_VAL (dpb_length),
+    SCHAR	*dpb,
+    SSHORT	GDS_VAL (db_type))
+{
+/**************************************
+ *
+ *	g d s _ c r e a t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeeky clean database, uncorrupted by user data.
+ *
+ **************************************/
+RDB	rdb;
+UCHAR	p;
+USHORT	l;
+
+NULL_CHECK (handle, gds__bad_db_handle);
+
+if (!(l = GDS_VAL (file_length)))
+    l = strlen (file_name);
+
+if (!(rdb = init (user_status, op_create, file_name, l, 
+	dpb, GDS_VAL (dpb_length))))
+    return user_status [1];
+
+*handle = rdb;
+
+RETURN_SUCCESS;
+}
+#endif
+
+STATUS GDS_DATABASE_INFO (
+    STATUS	*user_status,
+    RDB		*handle,
+    SSHORT	GDS_VAL (item_length),
+    UCHAR	*items,
+    SSHORT	GDS_VAL (buffer_length),
+    UCHAR	*buffer)
+{
+/**************************************
+ *
+ *	g d s _ d a t a b a s e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on database object.
+ *
+ **************************************/
+RDB	rdb;
+USHORT	l;
+UCHAR	*p, temp [1024], *temp_buffer;
+
+rdb = *handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_info_database);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_WORD (GDS_VAL (item_length));
+PUT_STRING (GDS_VAL (item_length), items);
+PUT_WORD (GDS_VAL (buffer_length));
+
+if (check_response (user_status))
+    return user_status [1];
+
+if (buffer_length > sizeof (temp))
+    temp_buffer = ALLP_alloc ((SLONG) buffer_length);
+else
+    temp_buffer = temp;
+
+GET_STRING (GET_WORD, temp_buffer);
+MERGE_database_info (temp_buffer, buffer, GDS_VAL (buffer_length),
+	IMPLEMENTATION, 7, 1, GDS_VERSION, "", 0);
+
+if (buffer_length > sizeof (temp))
+    ALLP_free (temp_buffer);
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_DDL (
+    STATUS	*user_status,
+    RDB		*db_handle,
+    RTR		*rtr_handle,
+    SSHORT	GDS_VAL (length),
+    UCHAR	*msg)
+{
+/**************************************
+ *
+ *	g d s _ d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pump thru a DDL call.
+ *
+ **************************************/
+RTR	transaction;
+RDB	rdb;
+USHORT	l;
+UCHAR	*p;
+
+#ifdef V2_BRIDGE
+return handle_error (user_status, gds__unavailable);
+
+#else
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+transaction = *rtr_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_ddl);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_HANDLE (transaction->rtr_handle);
+PUT_WORD (GDS_VAL (length));
+PUT_STRING (GDS_VAL (length), msg);
+
+if (check_response (user_status))
+    return user_status [1];
+
+RETURN_SUCCESS;
+#endif
+}
+
+STATUS GDS_DETACH (
+    STATUS	*user_status,
+    RDB		*handle)
+{
+/**************************************
+ *
+ *	g d s _ d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a database.
+ *
+ **************************************/
+RDB	rdb, *ptr;
+RRQ	rrq;
+USHORT	l;
+UCHAR	*p;
+
+rdb = *handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+if (release_object (op_detach, rdb->rdb_handle, user_status))
+    return user_status [1];
+
+while (rrq = rdb->rdb_requests)
+    {
+    if (rrq->rrq_user_handle)
+	*(rrq->rrq_user_handle) = NULL;
+    release_request (rrq);
+    }
+
+while (rdb->rdb_sql_requests)
+    release_sql_request (rdb->rdb_sql_requests);
+
+while (rdb->rdb_transactions)
+    release_transaction (rdb->rdb_transactions);
+
+#ifdef GATEWAY
+/* Unhook the rdb block */
+
+for (ptr = &PSI_databases; *ptr; ptr = &(*ptr)->rdb_next)
+    if (*ptr == rdb)
+	{
+	*ptr = rdb->rdb_next;
+	break;
+	}
+
+/* Close the pipes relating to this fork */
+
+fclose (rdb->rdb_pipes.cnct_read_pipe);
+fclose (rdb->rdb_pipes.cnct_write_pipe);
+
+ALLP_release (rdb);
+
+#else
+ALLP_release (rdb);
+#endif
+
+*handle = NULL;
+
+RETURN_SUCCESS;
+}
+
+#ifndef BRIDGE
+#ifndef GATEWAY
+STATUS GDS_DETACH_SERVICE (
+    STATUS	*user_status,
+    RDB		*handle)
+{
+/**************************************
+ *
+ *	g d s _ d e t a c h _ s e r v i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a service.
+ *
+ **************************************/
+RDB	rdb;
+USHORT	l;
+UCHAR	*p;
+
+rdb = *handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_svc_handle);
+
+ESTABLISH_PIPES;
+
+if (release_object (op_detach_service, rdb->rdb_handle, user_status))
+    return user_status [1];
+
+ALLP_release (rdb);
+
+*handle = NULL;
+
+RETURN_SUCCESS;
+}
+#endif
+#endif
+
+#ifndef BRIDGE
+#ifndef GATEWAY
+STATUS GDS_DROP_DATABASE (
+    STATUS	*user_status,
+    RDB		*handle)
+{
+/**************************************
+ *
+ *	i s c _ d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down and purge a database.
+ *
+ **************************************/
+RDB	rdb, *ptr;
+RRQ	rrq;
+USHORT	l;
+UCHAR	*p;
+STATUS  code;
+
+rdb = *handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+code = release_object (op_drop_database, rdb->rdb_handle, user_status);
+if (code && (code != gds__drdb_completed_with_errs))
+    return user_status [1];
+
+while (rrq = rdb->rdb_requests)
+    {
+    if (rrq->rrq_user_handle)
+	*(rrq->rrq_user_handle) = NULL;
+    release_request (rrq);
+    }
+
+while (rdb->rdb_sql_requests)
+    release_sql_request (rdb->rdb_sql_requests);
+
+while (rdb->rdb_transactions)
+    release_transaction (rdb->rdb_transactions);
+
+ALLP_release (rdb);
+
+*handle = NULL;
+
+if (code)
+    return code;
+
+RETURN_SUCCESS;
+}
+#endif
+#endif
+
+STATUS GDS_DSQL_ALLOCATE (
+    STATUS	*user_status,
+    RDB		*db_handle,
+    RSR		*stmt_handle)
+{
+/**************************************
+ *
+ *	d s q l _ a l l o c a t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a statement handle.
+ *
+ **************************************/
+RDB	rdb;
+RSR	statement;
+USHORT	l;
+UCHAR	*p;
+
+/* Check and validate handles, etc. */
+
+NULL_CHECK (stmt_handle, gds__bad_req_handle);
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_allocate_stmt);
+PUT_HANDLE (rdb->rdb_handle);
+if (check_response (user_status))
+    return user_status [1];
+
+/* Allocate SQL request block */
+
+*stmt_handle = statement = (RSR) ALLOC (type_rsr);
+statement->rsr_handle = GET_HANDLE;
+statement->rsr_rdb = rdb;
+statement->rsr_next = rdb->rdb_sql_requests;
+rdb->rdb_sql_requests = statement;
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_DSQL_EXECUTE (
+    STATUS	*user_status,
+    RTR		*rtr_handle,
+    RSR		*stmt_handle,
+    USHORT	blr_length,
+    UCHAR	*blr,
+    USHORT	msg_type,
+    USHORT	msg_length,
+    UCHAR	*msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic SQL statement.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+RSR	statement;
+HANDLE	handle;
+USHORT	l;
+UCHAR	*p;
+
+/* Check and validate handles, etc. */
+
+if (transaction = *rtr_handle)
+    CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+statement = *stmt_handle;
+CHECK_HANDLE (statement, type_rsr, gds__bad_req_handle);
+rdb = statement->rsr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_execute);
+PUT_HANDLE ((transaction) ? transaction->rtr_handle : (HANDLE) NULL);
+PUT_HANDLE (statement->rsr_handle);
+PUT_WORD (blr_length);
+PUT_STRING (blr_length, blr);
+PUT_WORD (msg_type);
+PUT_WORD (msg_length);
+PUT_STRING (msg_length, msg);
+(void) check_response (user_status);
+
+handle = GET_HANDLE;
+if (transaction && !handle)
+    {
+    release_transaction (transaction);
+    *rtr_handle = NULL;
+    }
+else if (!transaction && handle)
+    *rtr_handle = make_transaction (rdb, handle);
+
+if (user_status [1])
+    return user_status [1];
+
+RETURN_SUCCESS;
+}
+
+#ifndef BRIDGE
+STATUS GDS_DSQL_EXECUTE2 (
+    STATUS	*user_status,
+    RTR		*rtr_handle,
+    RSR		*stmt_handle,
+    USHORT	in_blr_length,
+    UCHAR	*in_blr,
+    USHORT	in_msg_type,
+    USHORT	in_msg_length,
+    UCHAR	*in_msg,
+    USHORT	out_blr_length,
+    UCHAR	*out_blr,
+    USHORT	out_msg_type,
+    USHORT	out_msg_length,
+    UCHAR	*out_msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a dynamic SQL statement.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+RSR	statement;
+HANDLE	handle;
+USHORT	l;
+UCHAR	*p;
+
+/* Check and validate handles, etc. */
+
+if (transaction = *rtr_handle)
+    CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+statement = *stmt_handle;
+CHECK_HANDLE (statement, type_rsr, gds__bad_req_handle);
+rdb = statement->rsr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_execute2);
+PUT_HANDLE ((transaction) ? transaction->rtr_handle : (HANDLE) NULL);
+PUT_HANDLE (statement->rsr_handle);
+PUT_WORD (in_blr_length);
+PUT_STRING (in_blr_length, in_blr);
+PUT_WORD (in_msg_type);
+PUT_WORD (in_msg_length);
+PUT_STRING (in_msg_length, in_msg);
+PUT_WORD (out_blr_length);
+PUT_STRING (out_blr_length, out_blr);
+PUT_WORD (out_msg_type);
+PUT_WORD (out_msg_length);
+(void) check_response (user_status);
+
+handle = GET_HANDLE;
+if (transaction && !handle)
+    {
+    release_transaction (transaction);
+    *rtr_handle = NULL;
+    }
+else if (!transaction && handle)
+    *rtr_handle = make_transaction (rdb, handle);
+
+if (user_status [1])
+    return user_status [1];
+
+GET_STRING (GET_WORD, out_msg);
+
+RETURN_SUCCESS;
+}
+#endif
+
+STATUS GDS_DSQL_EXECUTE_IMMED (
+    STATUS	*user_status,
+    RDB		*db_handle,
+    RTR		*rtr_handle,
+    USHORT	length,
+    UCHAR	*string,
+    USHORT	dialect,
+    USHORT	blr_length,
+    UCHAR	*blr,
+    USHORT	msg_type,
+    USHORT	msg_length,
+    UCHAR	*msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e _ i m m e d i a t e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare and execute a statement.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+HANDLE	handle;
+USHORT	l;
+UCHAR	*p;
+
+/* Check and validate handles, etc. */
+
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+if (transaction = *rtr_handle)
+    CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+
+ESTABLISH_PIPES;
+
+if (!length)
+    length = strlen (string);
+
+PUT_BYTE (op_exec_immediate);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_HANDLE ((transaction) ? transaction->rtr_handle : (HANDLE) NULL);
+PUT_WORD (length);
+PUT_STRING (length, string);
+PUT_WORD (dialect);
+PUT_WORD (blr_length);
+PUT_STRING (blr_length, blr);
+PUT_WORD (msg_type);
+PUT_WORD (msg_length);
+PUT_STRING (msg_length, msg);
+(void) check_response (user_status);
+
+handle = GET_HANDLE;
+if (transaction && !handle)
+    {
+    release_transaction (transaction);
+    *rtr_handle = NULL;
+    }
+else if (!transaction && handle)
+    *rtr_handle = make_transaction (rdb, handle);
+
+if (user_status [1])
+    return user_status [1];
+
+RETURN_SUCCESS;
+}
+
+#ifndef BRIDGE
+STATUS GDS_DSQL_EXECUTE_IMMED2 (
+    STATUS	*user_status,
+    RDB		*db_handle,
+    RTR		*rtr_handle,
+    USHORT	length,
+    UCHAR	*string,
+    USHORT	dialect,
+    USHORT	in_blr_length,
+    UCHAR	*in_blr,
+    USHORT	in_msg_type,
+    USHORT	in_msg_length,
+    UCHAR	*in_msg,
+    USHORT	out_blr_length,
+    UCHAR	*out_blr,
+    USHORT	out_msg_type,
+    USHORT	out_msg_length,
+    UCHAR	*out_msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e _ i m m e d i a t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare and execute a statement.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+HANDLE	handle;
+USHORT	l;
+UCHAR	*p;
+
+/* Check and validate handles, etc. */
+
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+if (transaction = *rtr_handle)
+    CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+
+ESTABLISH_PIPES;
+
+if (!length)
+    length = strlen (string);
+
+PUT_BYTE (op_exec_immediate2);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_HANDLE ((transaction) ? transaction->rtr_handle : (HANDLE) NULL);
+PUT_WORD (length);
+PUT_STRING (length, string);
+PUT_WORD (dialect);
+PUT_WORD (in_blr_length);
+PUT_STRING (in_blr_length, in_blr);
+PUT_WORD (in_msg_type);
+PUT_WORD (in_msg_length);
+PUT_STRING (in_msg_length, in_msg);
+PUT_WORD (out_blr_length);
+PUT_STRING (out_blr_length, out_blr);
+PUT_WORD (out_msg_type);
+PUT_WORD (out_msg_length);
+
+(void) check_response (user_status);
+
+handle = GET_HANDLE;
+if (transaction && !handle)
+    {
+    release_transaction (transaction);
+    *rtr_handle = NULL;
+    }
+else if (!transaction && handle)
+    *rtr_handle = make_transaction (rdb, handle);
+
+if (user_status [1])
+    return user_status [1];
+
+GET_STRING (GET_WORD, out_msg);
+
+RETURN_SUCCESS;
+}
+#endif
+
+STATUS GDS_DSQL_FETCH (
+    STATUS	*user_status,
+    RSR		*stmt_handle,
+    USHORT	blr_length,
+    UCHAR	*blr,
+    USHORT	msg_type,
+    USHORT	msg_length,
+    UCHAR	*msg)
+{
+/**************************************
+ *                  
+ *	d s q l _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor.
+ *
+ **************************************/
+RDB	rdb;
+RSR	statement;
+USHORT	l;
+UCHAR	*p;
+
+/* Check and validate handles, etc. */
+
+statement = *stmt_handle;
+CHECK_HANDLE (statement, type_rsr, gds__bad_req_handle);
+rdb = statement->rsr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_fetch);
+PUT_HANDLE (statement->rsr_handle);
+PUT_WORD (blr_length);
+PUT_STRING (blr_length, blr);
+PUT_WORD (msg_type);
+PUT_WORD (msg_length);
+(void) check_response (user_status);
+
+/* NOTE: for the dynamic blob cursor, likely 101 should also be
+ * allowed here  - 101 is used for "more data available", eg: gds__segment
+ */
+if (GET_WORD == 100)
+    return 100;
+else if (user_status [1])
+    return user_status [1];
+
+GET_STRING (GET_WORD, msg);
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_DSQL_FREE (
+    STATUS	*user_status,
+    RSR		*stmt_handle,
+    USHORT	option)
+{
+/**************************************
+ *
+ *	d s q l _ f r e e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release request for a Dynamic SQL statement
+ *
+ **************************************/
+RDB	rdb;
+RSR	statement;
+
+/* Check and validate handles, etc. */
+
+statement = *stmt_handle;
+CHECK_HANDLE (statement, type_rsr, gds__bad_req_handle);
+rdb = statement->rsr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_free_stmt);
+PUT_HANDLE (statement->rsr_handle);
+PUT_WORD (option);
+
+if (check_response (user_status))
+    return user_status [1];
+
+statement->rsr_handle = GET_HANDLE;
+if (!statement->rsr_handle)
+    {
+    release_sql_request (statement);
+    *stmt_handle = NULL;
+    }
+
+RETURN_SUCCESS;
+}
+
+#ifndef BRIDGE
+STATUS GDS_DSQL_INSERT (
+    STATUS	*user_status,
+    RSR		*stmt_handle,
+    USHORT	blr_length,
+    UCHAR	*blr,
+    USHORT	msg_type,
+    USHORT	msg_length,
+    UCHAR	*msg)
+{
+/**************************************
+ *                  
+ *	d s q l _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert next record into a dynamic SQL cursor.
+ *
+ **************************************/
+RDB	rdb;
+RSR	statement;
+USHORT	l;
+UCHAR	*p;
+
+/* Check and validate handles, etc. */
+
+statement = *stmt_handle;
+CHECK_HANDLE (statement, type_rsr, gds__bad_req_handle);
+rdb = statement->rsr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_insert);
+PUT_HANDLE (statement->rsr_handle);
+PUT_WORD (blr_length);
+PUT_STRING (blr_length, blr);
+PUT_WORD (msg_type);
+PUT_WORD (msg_length);
+PUT_STRING (msg_length, msg);
+if (check_response (user_status))
+    return user_status [1];
+
+RETURN_SUCCESS;
+}
+#endif
+
+STATUS GDS_DSQL_PREPARE (
+    STATUS	*user_status,
+    RTR		*rtr_handle,
+    RSR		*stmt_handle,	/* a remote statement block */
+    USHORT	length,
+    UCHAR	*string,
+    USHORT	dialect,
+    USHORT	item_length,
+    UCHAR	*items,
+    USHORT	buffer_length,
+    UCHAR	*buffer)
+{
+/**************************************
+ *
+ *	d s q l _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a dynamic SQL statement for execution.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+RSR	statement;
+USHORT	l;
+UCHAR	*p;
+
+/* Check and validate handles, etc. */
+
+statement = *stmt_handle;
+CHECK_HANDLE (statement, type_rsr, gds__bad_req_handle);
+rdb = statement->rsr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+if (transaction = *rtr_handle)
+    CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+
+ESTABLISH_PIPES;
+
+if (!length)
+    length = strlen (string);
+
+PUT_BYTE (op_prepare_stmt);
+PUT_HANDLE ((transaction) ? transaction->rtr_handle : (HANDLE) NULL);
+PUT_HANDLE (statement->rsr_handle);
+PUT_WORD (length);
+PUT_STRING (length, string);
+PUT_WORD (dialect);
+PUT_WORD (item_length);
+PUT_STRING (item_length, items);
+PUT_WORD (buffer_length);
+
+if (check_response (user_status))
+    return user_status [1];
+
+GET_STRING (GET_WORD, buffer);
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_DSQL_SET_CURSOR (
+    STATUS	*user_status,
+    RSR		*stmt_handle,
+    UCHAR	*cursor,
+    USHORT	type)
+{
+/*****************************************
+ *
+ *	d s q l _ s e t _ c u r s o r
+ *
+ *****************************************
+ *
+ * Functional Description
+ *	Set a cursor name for a dynamic request.
+ *
+ *****************************************/
+RDB	rdb;
+RSR	statement;
+USHORT	cursor_length;
+USHORT	l;
+UCHAR	*p;
+
+/* Check and validate handles, etc. */
+
+statement = *stmt_handle;
+CHECK_HANDLE (statement, type_rsr, gds__bad_req_handle);
+rdb = statement->rsr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+cursor_length = name_length (cursor) + 1;
+
+PUT_BYTE (op_set_cursor);
+PUT_HANDLE (statement->rsr_handle);
+PUT_WORD (cursor_length);
+PUT_STRING (cursor_length, cursor);
+PUT_WORD (type);
+if (check_response (user_status))
+    return user_status [1];
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_DSQL_SQL_INFO (
+    STATUS	*user_status,
+    RSR		*stmt_handle,
+    SSHORT	item_length,
+    UCHAR	*items,
+    SSHORT	buffer_length,
+    UCHAR	*buffer)
+{
+/**************************************
+ *
+ *	d s q l _ s q l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on sql object.
+ *
+ **************************************/
+RDB	rdb;
+RSR	statement;
+USHORT	l;
+UCHAR	*p;
+
+/* Check and validate handles, etc. */
+
+statement = *stmt_handle;
+CHECK_HANDLE (statement, type_rsr, gds__bad_req_handle);
+rdb = statement->rsr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_info_sql);
+PUT_HANDLE (statement->rsr_handle);
+PUT_WORD (GDS_VAL (item_length));
+PUT_STRING (GDS_VAL (item_length), items);
+PUT_WORD (GDS_VAL (buffer_length));
+if (check_response (user_status))
+    return user_status [1];
+
+GET_STRING (GET_WORD, buffer);
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_GET_SEGMENT (
+    STATUS	*user_status,
+    RBL		*blob_handle,
+    USHORT	*length,
+    USHORT	GDS_VAL (buffer_length),
+    UCHAR	*buffer)
+{
+/**************************************
+ *
+ *	g d s _ g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a segment from an open blob.
+ *
+ **************************************/
+RDB	rdb;
+RBL	blob;
+USHORT	l;
+UCHAR	*p;
+STATUS	*v;
+USHORT	state;
+
+/* Sniff out handles, etc, and find the various blocks. */
+
+blob = *blob_handle;
+CHECK_HANDLE (blob, type_rbl, gds__bad_segstr_handle);
+rdb = blob->rbl_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+#ifndef V2_BRIDGE
+if (blob->rbl_flags & RBL_create)
+#endif
+    {
+    PUT_BYTE (op_get_segment);
+    PUT_HANDLE (blob->rbl_handle);
+    PUT_WORD (GDS_VAL (buffer_length));
+
+    /* pipe protocol will return a segment buffer regardless of
+     * the result of the operation.
+     * This is to handle gds__segment properly.
+     */
+    (void) check_response (user_status);
+
+    *length = GET_WORD;
+    GET_STRING (*length, buffer);
+
+    return user_status [1];
+    }
+
+#ifndef V2_BRIDGE
+/* Ask for a 1K chunk of blob and fill segment requests from it until its time
+   to get the next section.  In other words, get a bunch, pass it out piece by
+   piece, then when there isn't enough left, ask for more. */
+
+/* set up the status vector for the calls we're going to fake */
+
+v = user_status;
+*v++ = gds_arg_gds;
+v [0] = 0;
+v [1] = gds_arg_end;
+*length = 0;
+
+/* if we're already done, stop now */
+
+if (blob->rbl_flags & RBL_eof)
+    {
+    *v = gds__segstr_eof;
+    return user_status [1];
+    }
+
+/* Here's the loop, passing out data from our basket & refilling it.
+   Our buffer (described by the structure blob) is counted strings 
+   <count word> <string> <count word> <string>... */
+
+while (TRUE)
+    {
+    /* If there's data to be given away, give some away (p points to the local data) */
+
+    if (blob->rbl_length)
+	{
+	p = blob->rbl_ptr;              
+
+	/* If there was a fragment left over last time use it */
+
+	if (l = blob->rbl_fragment_length)
+ 	    blob->rbl_fragment_length = 0;   
+	
+	/* otherwise pick up the count word as the length, & decrement the local length */
+
+	else
+	    {                             
+	    l = *p++;
+	    l += *p++ << 8;
+	    blob->rbl_length -= 2;        
+	    }
+
+	/* Now check that what we've got fits. 
+	   If not, set up the fragment pointer and set the status vector */
+
+	if (l > buffer_length)           
+	    {
+	    blob->rbl_fragment_length = l - buffer_length;  
+	    l = buffer_length;
+	    *v = gds__segment;                               
+	    }
+
+	/* and, just for yucks, see if we're exactly using up the fragment
+	   part of a previous incomplete read - if so mark this as an incomplete read */
+
+	if (l == buffer_length && 
+	    l == blob->rbl_length && 
+	    (blob->rbl_flags & RBL_segment))
+	    *v = gds__segment;
+	
+    	/* finally set up the return length, decrement the current length,
+	   copy the data, and indicate where to start next time. */ 
+
+	*length += l; 
+	blob->rbl_length -= l;  
+	buffer_length -= l;
+
+	if (l)
+	    do *buffer++ = *p++; while (--l);    
+
+	blob->rbl_ptr = p;             
+
+	/* return if we've filled up the caller's buffer, or completed a segment */
+
+	if (!buffer_length ||
+	    blob->rbl_length ||
+	    !(blob->rbl_flags & RBL_segment))
+	    break;
+	}
+
+    /* We're done with buffer.  If this was the last, we're done */
+
+    if (blob->rbl_flags & RBL_eof_pending)
+	{
+	blob->rbl_flags |= RBL_eof;
+	*v = gds__segstr_eof;
+	break;
+	}
+
+    /* We need more data.  Ask for it politely */
+
+    PUT_BYTE (op_get_segment_buf);
+    PUT_HANDLE (blob->rbl_handle);
+    PUT_WORD (blob->rbl_buffer_length);
+
+    /* Note that if gds__segment needs to be returned it will be
+     * sent via the STATE value - and the status vector will reflect SUCCESS
+     */
+    if (check_response (user_status))
+	return user_status [1];
+
+    blob->rbl_length = GET_WORD;
+    GET_STRING (blob->rbl_length, blob->rbl_buffer);
+    state = GET_WORD;
+    blob->rbl_ptr = blob->rbl_buffer;
+    blob->rbl_flags &= ~RBL_segment;
+    if (state == 1)
+	blob->rbl_flags |= RBL_segment;
+    else if (state == 2)
+	blob->rbl_flags |= RBL_eof_pending;
+    }
+
+return user_status [1];
+#endif
+}
+
+STATUS GDS_GET_SLICE (
+    STATUS	*user_status,
+    RDB		*db_handle,
+    RTR		*tra_handle,
+    BID		array_id,
+    USHORT	GDS_VAL (sdl_length),
+    UCHAR	*sdl,
+    USHORT	GDS_VAL (param_length),
+    UCHAR	*param,
+    SLONG	GDS_VAL (slice_length),
+    UCHAR	*slice,
+    SLONG	*return_length)
+{
+/**************************************
+ *
+ *	g d s _ $ g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+ULONG	l, length;
+UCHAR	*p;
+
+#ifdef V2_BRIDGE
+return handle_error (user_status, gds__unavailable);
+
+#else
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+transaction = *tra_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_get_slice);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_HANDLE (transaction->rtr_handle);
+PUT_WORD (array_id->bid_relation_id);
+PUT_WORD (array_id->bid_number);
+PUT_WORD (GDS_VAL (sdl_length));
+PUT_STRING (GDS_VAL (sdl_length), sdl);
+PUT_WORD (GDS_VAL (param_length));
+PUT_STRING (GDS_VAL (param_length), param);
+PUT_WORD (GDS_VAL (slice_length));
+
+if (check_response (user_status))
+    return user_status [1];
+
+length = GET_WORD;
+GET_STRING (GDS_VAL (slice_length), slice);
+
+if (return_length)
+    *return_length = length;
+
+RETURN_SUCCESS;
+#endif
+}
+
+#ifndef GATEWAY
+STATUS GDS_OPEN_BLOB (
+    STATUS	*user_status,
+    RDB		*db_handle,
+    RTR		*rtr_handle,
+    RBL		*blob_handle,
+    BID		blob_id)
+{
+/**************************************
+ *
+ *	g d s _ o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+RBL	blob;
+USHORT	l;
+UCHAR	*p;
+
+NULL_CHECK (blob_handle, gds__bad_segstr_handle);
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+transaction = *rtr_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_open_blob);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_HANDLE (transaction->rtr_handle);
+PUT_WORD (blob_id->bid_relation_id);
+PUT_WORD (blob_id->bid_number);
+
+if (check_response (user_status))
+    return user_status [1];
+
+*blob_handle = blob = (RBL) ALLOCV (type_rbl, BLOB_LENGTH);
+blob->rbl_handle = GET_HANDLE;
+blob->rbl_buffer_length = BLOB_LENGTH;
+blob->rbl_rdb = rdb;
+blob->rbl_rtr = transaction;
+blob->rbl_ptr = blob->rbl_buffer;
+blob->rbl_next = transaction->rtr_blobs;
+transaction->rtr_blobs = blob;
+
+RETURN_SUCCESS;
+}
+#endif
+
+STATUS GDS_OPEN_BLOB2 (
+    STATUS	*user_status,
+    RDB		*db_handle,
+    RTR		*rtr_handle,
+    RBL		*blob_handle,
+    BID		blob_id,
+    SSHORT	GDS_VAL (bpb_length),
+    UCHAR	*bpb)
+{
+/**************************************
+ *
+ *	g d s _ o p e n _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+RBL	blob;
+USHORT	l;
+UCHAR	*p;
+
+#ifdef V2_BRIDGE
+return handle_error (user_status, gds__unavailable);
+
+#else
+NULL_CHECK (blob_handle, gds__bad_segstr_handle);
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+transaction = *rtr_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_open_blob2);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_HANDLE (transaction->rtr_handle);
+PUT_WORD (blob_id->bid_relation_id);
+PUT_WORD (blob_id->bid_number);
+PUT_WORD (GDS_VAL (bpb_length));
+PUT_STRING (GDS_VAL (bpb_length), bpb);
+
+if (check_response (user_status))
+    return user_status [1];
+
+*blob_handle = blob = (RBL) ALLOCV (type_rbl, BLOB_LENGTH);
+blob->rbl_handle = GET_HANDLE;
+blob->rbl_buffer_length = BLOB_LENGTH;
+blob->rbl_rdb = rdb;
+blob->rbl_rtr = transaction;
+blob->rbl_ptr = blob->rbl_buffer;
+blob->rbl_next = transaction->rtr_blobs;
+transaction->rtr_blobs = blob;
+
+RETURN_SUCCESS;
+#endif
+}
+
+STATUS GDS_PREPARE (
+    STATUS	*user_status,
+    RTR		*rtr_handle,
+    USHORT	GDS_VAL (buffer_length),
+    UCHAR	*buffer)
+{
+/**************************************
+ *
+ *	g d s _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First phase of a two
+ *	phase commit.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+USHORT	l;
+UCHAR	*p;
+
+transaction = *rtr_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+rdb = (*rtr_handle)->rtr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+#ifdef V2_BRIDGE
+PUT_BYTE (op_prepare);
+PUT_HANDLE (transaction->rtr_handle);
+#else
+PUT_BYTE (op_prepare2);
+PUT_HANDLE (transaction->rtr_handle);
+PUT_WORD (GDS_VAL (buffer_length));
+PUT_STRING (GDS_VAL (buffer_length), buffer);
+#endif
+
+return check_response (user_status);
+}
+
+STATUS GDS_PUT_SEGMENT (
+    STATUS	*user_status,
+    RBL		*blob_handle,
+    USHORT	GDS_VAL (buffer_length),
+    UCHAR	*buffer)
+{
+/**************************************
+ *
+ *	g d s _ p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a segment of data to an open blob.
+ *
+ **************************************/
+RDB	rdb;
+RBL	blob;
+USHORT	l;
+UCHAR	*p;
+
+/* Sniff out handles, etc, and find the various blocks. */
+
+blob = *blob_handle;
+CHECK_HANDLE (blob, type_rbl, gds__bad_segstr_handle);
+rdb = blob->rbl_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+#ifndef V2_BRIDGE
+if (!(blob->rbl_flags & RBL_create))
+#endif
+    {
+    PUT_BYTE (op_put_segment);
+    PUT_HANDLE (blob->rbl_handle);
+    PUT_WORD (GDS_VAL (buffer_length));
+    PUT_STRING (GDS_VAL (buffer_length), buffer);
+
+    if (check_response (user_status))
+	return user_status [1];
+
+    RETURN_SUCCESS;
+    }
+
+#ifndef V2_BRIDGE
+/* set up the status vector for the calls we're going to fake */
+
+user_status [0] = gds_arg_gds;
+user_status [1] = 0;
+user_status [2] = gds_arg_end;
+
+/* If the buffer is too full to even hold the length of the incoming
+   segment, flush out the old buffer.  If the segment is too large
+   to fit into the blob buffer, just send it as a single segment. */
+
+p = blob->rbl_ptr;
+l = blob->rbl_buffer_length - (p - blob->rbl_buffer);
+
+if ((ULONG) buffer_length + 2 > l)
+    {
+    if (blob->rbl_ptr > blob->rbl_buffer)
+	if (send_blob (user_status, blob, 0, NULL))
+	    return user_status [1];
+    if ((ULONG) buffer_length + 2 > blob->rbl_buffer_length)
+	return send_blob (user_status, blob, buffer_length, buffer);
+    p = blob->rbl_buffer;
+    }
+
+/* Move segment length and data into blob buffer */
+
+*p++ = buffer_length;
+*p++ = buffer_length >> 8;
+
+if (buffer_length)
+    do *p++ = *buffer++; while (--buffer_length);
+
+blob->rbl_ptr = p;
+
+RETURN_SUCCESS;
+#endif
+}
+
+STATUS GDS_PUT_SLICE (
+    STATUS	*user_status,
+    RDB		*db_handle,
+    RTR		*tra_handle,
+    BID		array_id,
+    USHORT	GDS_VAL (sdl_length),
+    UCHAR	*sdl,
+    USHORT	GDS_VAL (param_length),
+    UCHAR	*param,
+    SLONG	GDS_VAL (slice_length),
+    UCHAR	*slice)
+{
+/**************************************
+ *
+ *	g d s _ $ p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a slice of an array.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+ULONG	l, length;
+UCHAR	*p;
+
+#ifdef V2_BRIDGE
+return handle_error (user_status, gds__unavailable);
+
+#else
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+transaction = *tra_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_put_slice);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_HANDLE (transaction->rtr_handle);
+PUT_WORD (array_id->bid_relation_id);
+PUT_WORD (array_id->bid_number);
+PUT_WORD (GDS_VAL (sdl_length));
+PUT_STRING (GDS_VAL (sdl_length), sdl);
+PUT_WORD (GDS_VAL (param_length));
+PUT_STRING (GDS_VAL (param_length), param);
+PUT_WORD (GDS_VAL (slice_length));
+PUT_STRING (GDS_VAL (slice_length), slice);
+
+if (check_response (user_status))
+    return user_status [1];
+
+array_id->bid_relation_id = GET_WORD;
+array_id->bid_number = GET_WORD;
+
+RETURN_SUCCESS;
+#endif
+}
+
+#ifndef GATEWAY
+STATUS GDS_QUE_EVENTS (
+    STATUS	*user_status,
+    RDB		*handle,
+    SLONG	*id,
+    USHORT	GDS_VAL (length),
+    UCHAR	*events,
+    void	(GDS_VAL (*ast))(),
+    void	*arg)
+{
+/**************************************
+ *
+ *	g d s _ $ q u e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Que request for event notification.
+ *
+ **************************************/
+RDB	rdb;
+USHORT	l;
+UCHAR	*p;
+
+#ifdef V2_BRIDGE
+return handle_error (user_status, gds__unavailable);
+
+#else
+/* If the event pipe is not fully active, finish initialization */
+
+#ifdef FNDELAY
+if (!event_pipe)
+    {
+    if (fcntl (event_fd, F_SETFL, FNDELAY) == -1)
+	{
+	pipe_io_error (user_status, "fcntl", "event pipe", errno);
+	return user_status [1];
+	}
+    if (!(event_pipe = fdopen (event_fd, "r")))
+	{
+	pipe_io_error (user_status, "fdopen", "event pipe", errno);
+	return user_status [1];
+	}
+    ISC_signal (SIGUSR1, event_handler, event_pipe);
+    }
+#endif
+
+/* Check and validate handles, etc. */
+
+rdb = *handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+PUT_BYTE (op_que_events);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_HANDLE (ast);
+PUT_HANDLE (arg);
+PUT_WORD (GDS_VAL (length));
+PUT_STRING (GDS_VAL (length), events);
+
+if (check_response (user_status))
+    return user_status [1];
+
+/* Allocate request block */
+
+*id = GET_WORD;
+
+return SUCCESS;
+#endif
+}
+#endif
+
+#ifndef BRIDGE
+#ifndef GATEWAY
+STATUS GDS_QUERY_SERVICE (
+    STATUS	*user_status,
+    RDB		*service,
+    USHORT	send_item_length,
+    SCHAR	*send_items,
+    USHORT	recv_item_length,
+    SCHAR	*recv_items,
+    USHORT	buffer_length,
+    SCHAR	*buffer)
+{
+/**************************************
+ *
+ *	g d s _ q u e r y _ s e r v i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on service object.
+ *
+ **************************************/
+RDB	rdb;
+USHORT	l;
+UCHAR	*p;
+
+rdb = *service;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_svc_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_info_service);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_WORD (send_item_length);
+PUT_STRING (send_item_length, send_items);
+PUT_WORD (recv_item_length);
+PUT_STRING (recv_item_length, recv_items);
+PUT_WORD (buffer_length);
+if (check_response (user_status))
+    return user_status [1];
+
+GET_STRING (GET_WORD, buffer);
+
+RETURN_SUCCESS;
+}
+#endif
+#endif
+
+STATUS GDS_RECEIVE (
+    STATUS	*user_status,
+    RRQ		*req_handle,
+    SSHORT	GDS_VAL (msg_type),
+    SSHORT	GDS_VAL (msg_length),
+    UCHAR	*msg,
+    SSHORT	GDS_VAL (level)
+#ifdef SCROLLABLE_CURSORS
+    , 
+    USHORT	GDS_VAL (direction), 
+    ULONG	GDS_VAL (offset)
+#endif
+    )
+{
+/**************************************
+ *
+ *	g d s _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+RRQ	request;
+RTR	transaction;
+RDB	rdb;
+UCHAR	*p;
+USHORT	l;
+
+request = *req_handle;
+CHECK_HANDLE (request, type_rrq, gds__bad_req_handle);
+rdb = request->rrq_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_receive);
+PUT_HANDLE (request->rrq_handle);
+PUT_WORD (GDS_VAL (msg_type));
+PUT_WORD (GDS_VAL (msg_length));
+PUT_WORD (GDS_VAL (level));
+#ifdef SCROLLABLE_CURSORS
+PUT_WORD (GDS_VAL (direction));
+PUT_WORD (GDS_VAL (offset));
+#endif
+
+if (check_response (user_status))
+    return user_status [1];
+
+GET_STRING (GDS_VAL (msg_length), msg);
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_RECONNECT (
+    STATUS	*user_status,
+    RDB		*db_handle,
+    RTR		*rtr_handle,
+    SSHORT	GDS_VAL (length),
+    UCHAR	*id)
+{
+/**************************************
+ *
+ *	g d s _ r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to a transaction in limbo.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+STATUS	*temp, l;
+UCHAR	*p;
+
+NULL_CHECK (rtr_handle, gds__bad_trans_handle);
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_reconnect);
+PUT_HANDLE (rdb->rdb_handle);
+
+PUT_WORD (l = GDS_VAL (length));
+PUT_STRING (l, id);
+
+if (check_response (user_status))
+    return user_status [1];
+
+*rtr_handle = make_transaction (rdb, GET_HANDLE);
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_RELEASE_REQUEST (
+    STATUS	*user_status,
+    RRQ		*req_handle)
+{
+/**************************************
+ *
+ *	g d s _ r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request.
+ *
+ **************************************/
+RDB	rdb;
+RRQ	request;
+USHORT	l;
+UCHAR	*p;
+
+request = *req_handle;
+CHECK_HANDLE (request, type_rrq, gds__bad_req_handle);
+rdb = request->rrq_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+if (release_object (op_release, request->rrq_handle, user_status))
+    return user_status [1];
+
+release_request (request);
+*req_handle = NULL;
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_REQUEST_INFO (
+    STATUS	*user_status,
+    RRQ		*request,
+    USHORT	GDS_VAL (level),
+    SSHORT	GDS_VAL (item_length),
+    UCHAR	*items,
+    SSHORT	GDS_VAL (buffer_length),
+    UCHAR	*buffer)
+{
+/**************************************
+ *
+ *	g d s _ r e q u e s t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on request object.
+ *
+ **************************************/
+RDB	rdb;
+USHORT	l;
+UCHAR	*p;
+
+CHECK_HANDLE ((*request), type_rrq, gds__bad_req_handle);
+rdb = (*request)->rrq_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_info_request);
+PUT_HANDLE ((*request)->rrq_handle);
+PUT_WORD (GDS_VAL (level));			/* Incarnation */
+PUT_WORD (GDS_VAL (item_length));
+PUT_STRING (GDS_VAL (item_length), items);
+PUT_WORD (GDS_VAL (buffer_length));
+
+if (check_response (user_status))
+    return user_status [1];
+
+GET_STRING (GET_WORD, buffer);
+RETURN_SUCCESS;
+}
+
+STATUS GDS_ROLLBACK (
+    STATUS	*user_status,
+    RTR		*rtr_handle)
+{
+/**************************************
+ *
+ *	g d s _ r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction.
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+USHORT	l;
+UCHAR	*p;
+
+transaction = *rtr_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+rdb = (*rtr_handle)->rtr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+if (release_object (op_rollback, transaction->rtr_handle, user_status))
+    return user_status [1];
+
+release_transaction (transaction);
+*rtr_handle = NULL;
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_SEEK_BLOB (
+    STATUS	*user_status,
+    RBL		*blob_handle,
+    SSHORT	GDS_VAL (mode),
+    SLONG	GDS_VAL (offset),
+    SLONG	*result)
+{
+/**************************************
+ *
+ *	g d s _ $ s e e k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to seek a blob.
+ *
+ **************************************/
+RDB	rdb;
+RBL	blob;
+USHORT	l;
+UCHAR	*p;
+
+blob = *blob_handle;
+CHECK_HANDLE (blob, type_rbl, gds__bad_segstr_handle);
+rdb = blob->rbl_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_seek_blob);
+PUT_HANDLE (blob->rbl_handle);
+PUT_WORD (GDS_VAL (mode));
+PUT_WORD (GDS_VAL (offset));
+
+if (check_response (user_status))
+    return user_status [1];
+
+*result = GET_WORD;
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_SEND (
+    STATUS	*user_status,
+    RRQ		*req_handle,
+    SSHORT	GDS_VAL (msg_type),
+    SSHORT	GDS_VAL (msg_length),
+    UCHAR	*msg,
+    SSHORT	GDS_VAL (level))
+{
+/**************************************
+ *
+ *	g d s _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+RRQ	request;
+RTR	transaction;
+RDB	rdb;
+USHORT	l;
+UCHAR	*p;
+
+request = *req_handle;
+CHECK_HANDLE (request, type_rrq, gds__bad_req_handle);
+rdb = request->rrq_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_send);
+PUT_HANDLE (request->rrq_handle);
+PUT_WORD (GDS_VAL (msg_type));
+PUT_WORD (GDS_VAL (msg_length));
+PUT_STRING (GDS_VAL (msg_length), msg);
+PUT_WORD (GDS_VAL (level));
+
+if (check_response (user_status))
+    return user_status [1];
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_START_AND_SEND (
+    STATUS	*user_status,
+    RRQ		*req_handle,
+    RTR		*rtr_handle,
+    SSHORT	GDS_VAL (msg_type),
+    SSHORT	GDS_VAL (msg_length),
+    UCHAR	*msg,
+    SSHORT	GDS_VAL (level))
+{
+/**************************************
+ *
+ *	g d s _ s t a r t _ a n d _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+RRQ	request;
+RTR	transaction;
+RDB	rdb;
+USHORT	l;
+UCHAR	*p;
+
+request = *req_handle;
+CHECK_HANDLE (request, type_rrq, gds__bad_req_handle);
+transaction = *rtr_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+rdb = request->rrq_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_start_and_send);
+PUT_HANDLE (request->rrq_handle);
+PUT_HANDLE (transaction->rtr_handle);
+PUT_WORD (GDS_VAL (msg_type));
+PUT_WORD (GDS_VAL (msg_length));
+PUT_STRING (GDS_VAL (msg_length), msg);
+PUT_WORD (GDS_VAL (level));
+
+if (check_response (user_status))
+    return user_status [1];
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_START (
+    STATUS		*user_status,
+    register RRQ	*req_handle,
+    register RTR	*rtr_handle,
+    SSHORT		GDS_VAL (level))
+{
+/**************************************
+ *
+ *	g d s _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+RRQ	request;
+RTR	transaction;
+RDB	rdb;
+USHORT	l;
+UCHAR	*p;
+
+request = *req_handle;
+CHECK_HANDLE (request, type_rrq, gds__bad_req_handle);
+transaction = *rtr_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+rdb = request->rrq_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_start);
+PUT_HANDLE (request->rrq_handle);
+PUT_HANDLE (transaction->rtr_handle);
+PUT_WORD (GDS_VAL (level));
+
+if (check_response (user_status))
+    return user_status [1];
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_START_MULTIPLE (
+    STATUS	*user_status,
+    RTR		*rtr_handle,
+    SSHORT	GDS_VAL (count),
+    int		**vector)
+{
+/**************************************
+ *
+ *	g d s _ s t a r t _ m u l t i p l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+RTR	transaction;
+int	**args;
+RDB	rdb;
+USHORT	l, i;
+UCHAR	*p;
+
+NULL_CHECK (rtr_handle, gds__bad_trans_handle);
+
+#ifdef GATEWAY
+/* We must peek at the rdb so that we know who to talk to.
+   This is safe since the gateway is guaranteed to have a
+   single database transaction. */
+
+rdb = (RDB) **vector;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+#endif
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_transaction);
+PUT_WORD (GDS_VAL (count));
+args = vector;
+
+for (i = 0; i < GDS_VAL (count); i++)
+    {
+    rdb = (RDB) *(*args++);
+    CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+    PUT_HANDLE (rdb->rdb_handle);
+    l = (SSHORT) *args++;
+    PUT_WORD (l);
+    p = (UCHAR*) *args++;
+    PUT_STRING (l, p);
+    }
+
+if (check_response (user_status))
+    return user_status [1];
+
+*rtr_handle = make_transaction (rdb, GET_HANDLE);
+
+RETURN_SUCCESS;
+}
+
+STATUS GDS_START_TRANSACTION (
+    STATUS	*user_status,
+    RTR		*rtr_handle,
+    SSHORT	GDS_VAL (count),
+    ...)
+{
+/**************************************
+ *
+ *	g d s _ s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+RTR	transaction;
+va_list	args;
+RDB	rdb;
+USHORT	l, i;
+UCHAR	*p;
+
+NULL_CHECK (rtr_handle, gds__bad_trans_handle);
+
+#ifdef GATEWAY
+/* We must peek at the rdb so that we know who to talk to.
+   This is safe since the gateway is guaranteed to have a
+   single database transaction. */
+
+VA_START (args, count);
+rdb = *(va_arg (args, RDB*));
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+#endif
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_transaction);
+PUT_WORD (GDS_VAL (count));
+VA_START (args, count);
+
+for (i = 0; i < GDS_VAL (count); i++)
+    {
+    rdb = *(va_arg (args, RDB*));
+    CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+    PUT_HANDLE (rdb->rdb_handle);
+    l = va_arg (args, int);
+    PUT_WORD (l);
+    p = va_arg (args, UCHAR*);
+    PUT_STRING (l, p);
+    }
+
+if (check_response (user_status))
+    return user_status [1];
+
+*rtr_handle = make_transaction (rdb, GET_HANDLE);
+
+RETURN_SUCCESS;
+}
+
+#ifndef BRIDGE
+STATUS GDS_TRANSACT_REQUEST (
+    STATUS      *user_status,
+    RDB         *db_handle,
+    RTR         *tra_handle,
+    USHORT	blr_length,
+    UCHAR	*blr,
+    USHORT	in_msg_length,
+    UCHAR	*in_msg,
+    USHORT	out_msg_length,
+    UCHAR	*out_msg)
+{
+/**************************************
+ *
+ *	i s c _ t r a n s a c t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+RDB	rdb;
+RTR	transaction;
+USHORT	l, count;
+UCHAR	*p;
+
+/* Check and validate handles, etc. */
+
+rdb = *db_handle;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+transaction = *tra_handle;
+CHECK_HANDLE (transaction, type_rtr, gds__bad_trans_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_transact_request);
+PUT_HANDLE (rdb->rdb_handle);
+PUT_HANDLE (transaction->rtr_handle);
+PUT_WORD (blr_length);
+PUT_STRING (blr_length, blr);
+PUT_WORD (in_msg_length);
+PUT_STRING (in_msg_length, in_msg);
+PUT_WORD (out_msg_length);
+
+if (check_response (user_status))
+    return user_status [1];
+
+GET_STRING (out_msg_length, out_msg);
+
+RETURN_SUCCESS;
+}
+#endif
+
+STATUS GDS_TRANSACTION_INFO (
+    STATUS	*user_status,
+    RTR		*transaction,
+    SSHORT	GDS_VAL (item_length),
+    UCHAR	*items,
+    SSHORT	GDS_VAL (buffer_length),
+    UCHAR	*buffer)
+{
+/**************************************
+ *
+ *	g d s _ t r a n s a c t i o n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on transaction object.
+ *
+ **************************************/
+RDB	rdb;
+USHORT	l;
+UCHAR	*p;
+
+CHECK_HANDLE ((*transaction), type_rtr, gds__bad_trans_handle);
+rdb = (*transaction)->rtr_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+PUT_BYTE (op_info_transaction);
+PUT_HANDLE ((*transaction)->rtr_handle);
+PUT_WORD (GDS_VAL (item_length));
+PUT_STRING (GDS_VAL (item_length), items);
+PUT_WORD (GDS_VAL (buffer_length));
+if (check_response (user_status))
+    return user_status [1];
+
+GET_STRING (GET_WORD, buffer);
+RETURN_SUCCESS;
+}
+
+STATUS GDS_UNWIND (
+    STATUS	*user_status,
+    RRQ		*req_handle,
+    SSHORT	GDS_VAL (level))
+{
+/**************************************
+ *
+ *	g d s _ u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a running request.
+ *
+ **************************************/
+RDB	rdb;
+RRQ	request;
+USHORT	l;
+UCHAR	*p;
+
+request = *req_handle;
+CHECK_HANDLE (request, type_rrq, gds__bad_req_handle);
+rdb = request->rrq_rdb;
+CHECK_HANDLE (rdb, type_rdb, gds__bad_db_handle);
+
+ESTABLISH_PIPES;
+
+#ifdef GATEWAY
+
+/* Let's start by trying to flush the input buffer */
+
+if (fseek (read_pipe, (SLONG) 0, 2))
+    {
+    clearerr (read_pipe);
+    fseek (read_pipe, (SLONG) 0, 2);
+    }
+
+PUT_BYTE (op_unwind);
+PUT_HANDLE (request->rrq_handle);
+PUT_WORD (level);
+
+return check_response (user_status);
+#else
+
+PUT_BYTE (op_unwind);
+PUT_HANDLE (request->rrq_handle);
+PUT_WORD (level);
+
+return check_response (user_status);
+#endif
+}
+
+static STATUS check_response (
+    STATUS	*user_status)
+{
+/**************************************
+ *
+ *	c h e c k _ r e s p o n s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check response to a remote call.
+ *
+ **************************************/
+USHORT	l, length;
+TEXT	*p, *text;
+STATUS	*v, code;
+
+text = error_text;
+
+if (!read_pipe || !write_pipe)
+    {
+    pipe_io_error (user_status, NULL, NULL, 0);
+    }
+else if (fflush (write_pipe) == EOF)
+    {
+    /* ERRCHECK: what about EINTR in the fflush call? */
+    pipe_io_error (user_status, "fflush", "write pipe", errno);
+    (void) fclose (write_pipe);
+    write_pipe = NULL;
+    }
+else
+    {
+    v = user_status;
+    while (code = GET_WORD)
+	{
+	switch (*v++ = code)
+	    {
+	    case gds_arg_interpreted:
+	    case gds_arg_string:
+		length = GET_WORD;
+		GET_STRING (length, text);
+		*v++ = (STATUS) text;
+		text += length;
+		*text++ = 0;
+		continue;
+
+	    case gds_arg_end:
+	    case gds_arg_cstring:
+	    default:
+		/* Unexpected gds_arg_* value received.
+		 *  The remote protocol filters out gds_arg_cstring,
+		 *  the loop should terminate with gds_arg_end
+		 *  and anything else is out of range.
+		 */
+#ifdef DEV_BUILD
+		pipe_io_error (user_status, "pipe protocol problem", 
+				"invalid arg", code);
+		return user_status [1];
+#endif
+	    case EOF:
+		/* If the connection breaks while we're still receiving
+		 * the status vector we're hosed.  So we'll
+		 * throw away the partially received status vector
+		 * and just return a connection lost message.
+		 */
+		pipe_io_error (user_status, "getw", "pipe server", errno);
+#ifndef GATEWAY
+		(void) fclose (read_pipe);
+		read_pipe = NULL;
+		/* ERRORCHECK - perhaps write_pipe should also be closed here */
+#else
+		connection->rdb_pipes.cnct_read_pipe = 0;
+#endif
+		return user_status [1];
+
+	    case gds_arg_gds:
+	    case gds_arg_number:
+	    case gds_arg_vms:
+	    case gds_arg_unix:
+	    case gds_arg_domain:
+	    case gds_arg_dos:
+	    case gds_arg_mpexl:
+	    case gds_arg_mpexl_ipc:
+	    case gds_arg_next_mach:
+	    case gds_arg_netware:
+	    case gds_arg_win32:
+		*v++ = GET_WORD;
+		continue;
+	    }
+	}
+    *v = gds_arg_end;
+    }
+
+return user_status [1];
+}
+
+#ifndef GATEWAY
+static void event_handler (void)
+{
+/**************************************
+ *
+ *	e v e n t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Respond signal.
+ *
+ **************************************/
+void	*arg;
+PTR	ast;
+SSHORT	l, length;
+UCHAR	*p, events [1024];
+
+ast = (PTR) GET_HANDLE_EVENT;
+
+if ((long) ast == -1)
+    return;
+
+arg = GET_HANDLE_EVENT;
+length = GET_WORD_EVENT;
+
+if (l = length)
+    {
+    p = events; 
+    do *p++ = GET_BYTE_EVENT; while (--l);
+    }
+
+(*ast) (arg, length, events);
+}
+#endif
+
+#ifdef KILLER_SIGNALS
+static int get_byte (void)
+{
+/**************************************
+ *
+ *	g e t _ b y t e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a byte from stdin but watch for EINTR
+ *
+ **************************************/
+int c;
+
+if (!read_pipe)
+    return -1;
+
+for (;;)
+    {
+    errno = 0; 
+    if ((c = GETC_UNLOCKED (read_pipe)) == EOF)
+        {
+	if (SYSCALL_INTERRUPTED(errno))
+	    {
+	    DEBUGMSG ("get_byte: clearing EINTR");
+	    clearerr (read_pipe);
+	    rewind (read_pipe);
+	    continue;
+	    }
+        else
+            {
+	    DEBUGMSG ("get_byte: closing due to error");
+	    fclose (read_pipe);
+	    read_pipe = NULL;
+            gds__log ("Pipe Interface read pipe error %d\n", (int*) errno);
+            return -1;
+            }
+        }
+    return c;
+    }
+}
+
+static int get_byte_event (void)
+{
+/**************************************
+ *
+ *	g e t _ b y t e _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a byte from event pipe but watch for EINTR
+ *
+ **************************************/
+int c;
+
+if (!event_pipe)
+    return -1;
+
+for (;;)
+    {
+    errno = 0; 
+    if ((c = GETC_UNLOCKED (event_pipe)) == EOF)
+        {
+	if (SYSCALL_INTERRUPTED(errno))
+	    {
+	    DEBUGMSG ("get_byte_event: clearing EINTR");
+	    clearerr (event_pipe);
+	    rewind (event_pipe);
+	    continue;
+	    }
+        else
+            {
+	    DEBUGMSG ("get_byte_event: closing due to error");
+	    fclose (event_pipe);
+	    event_pipe = NULL;
+            gds__log ("Pipe Interface read event pipe error %d\n", (int*) errno);
+            return -1;
+            }
+        }
+    return c;
+    }
+}
+#endif
+
+#ifdef KILLER_SIGNALS
+static IPTR get_handle (void)
+{
+/**************************************
+ *
+ *	g e t _ h a n d l e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a handle from stdin but watch for EINTR
+ *
+ **************************************/
+
+GET_DATA_CODE (h, read_pipe, "Pipe Interface read pipe error %d\n");
+}
+#endif
+
+#ifdef KILLER_SIGNALS
+static IPTR get_handle_event (void)
+{
+/**************************************
+ *
+ *	g e t _ h a n d l e _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a handle from event pipe but watch for EINTR
+ *
+ **************************************/
+
+GET_DATA_CODE (h, event_pipe, "Pipe Interface read event pipe error %d\n");
+}
+#endif 
+
+#ifdef KILLER_SIGNALS
+static SLONG get_word (void)
+{
+/**************************************
+ *
+ *	g e t _ w o r d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a word from stdin but watch for EINTR
+ *
+ **************************************/
+
+GET_DATA_CODE (l, read_pipe, "Pipe Interface read pipe error %d\n");
+}
+#endif
+
+#ifdef KILLER_SIGNALS
+static SLONG get_word_event (void)
+{
+/**************************************
+ *
+ *	g e t _ w o r d _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a word from event pipe but watch for EINTR
+ *
+ **************************************/
+
+GET_DATA_CODE (l, event_pipe, "Pipe Interface read event pipe error %d\n");
+}
+#endif 
+
+static STATUS handle_error (
+    STATUS	*user_status,
+    STATUS	code)
+{
+/**************************************
+ *
+ *	h a n d l e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An invalid handle has been passed in.  If there is a user status
+ *	vector, make it reflect the error.  If not, emulate the routine
+ *	"error" and abort.
+ *
+ **************************************/
+
+*user_status++ = gds_arg_gds;
+*user_status++ = code;
+*user_status = gds_arg_end;
+
+return code;
+}
+
+static RDB init (
+    STATUS	*user_status,
+    P_OP	op,
+    UCHAR	*file_name,
+    USHORT	file_length,
+    UCHAR	*dpb,
+    USHORT	dpb_length)
+{
+/**************************************
+ *
+ *	i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for database access.  First call from both CREATE and
+ *	OPEN.
+ *
+ **************************************/
+USHORT	l;
+TEXT	*partner, pipe_numbers [32], gds_pipe [MAXPATHLEN], *new_env, new_env_buf [128];
+UCHAR	*p;
+int	pair1 [2], pair2 [2], pair3 [2], pid, parent_pid, fd;
+RDB	rdb;
+FILE	*save_pipe;
+STATUS	status;
+struct stat	stat_buf;
+
+#ifndef GATEWAY
+/* Check to see if pipes are already open.  If not, fork. */
+
+if (!read_pipe && !write_pipe)
+    {
+    if (pipe (pair1) < 0 || pipe (pair2) < 0 || pipe (pair3))
+#else
+    {
+    pair3 [0] = pair3 [1] = -1;
+    if (pipe (pair1) < 0 || pipe (pair2) < 0)
+#endif
+	{
+	pipe_io_error (user_status, "pipe", "pipe server", errno);
+	return NULL;
+	}
+
+#ifdef GATEWAY
+    /* We must inform all of our children that the expected
+       arrival may try to kill them (by sending them an EOF). */
+
+    for (rdb = PSI_databases; rdb; rdb = rdb->rdb_next)
+	{
+	write_pipe = (FILE*) rdb->rdb_pipes.cnct_write_pipe;
+	PUT_BYTE (op_gateway_sync);
+	fflush (write_pipe);
+	}
+#endif
+
+    parent_pid = getpid();
+
+    if ((partner = getenv (GDS_SERVER)) && *partner)
+	new_env = new_env_buf;
+    else
+	{
+	new_env = NULL;
+	gds__prefix (gds_pipe, GDS_PIPE);
+	partner = gds_pipe;
+	}
+
+    /* Probe pipe server to see it if plausibly exists */
+
+    if (statistics (partner, &stat_buf) == -1)
+	{
+	pipe_io_error (user_status, "stat", partner, errno);
+	return NULL;
+	}
+
+    if ((pid = vfork()) < 0)
+	{
+	pipe_io_error (user_status, "vfork", partner, errno);
+	return NULL;
+	}
+
+    if (pid == 0)
+	{
+	close (pair1 [0]);
+	close (pair2 [1]);
+	if (pair2 [0] != 0)
+	    {
+	    close (0);
+	    dup (pair2 [0]);
+	    close (pair2 [0]);
+	    }
+	if (pair1 [1] != 1)
+	    {
+	    close (1);
+	    dup (pair1 [1]);
+	    close (pair1 [1]);
+	    }
+	sprintf (pipe_numbers, "%d %d %d %d", 
+		0, 1, pair3 [1], parent_pid);
+	if (new_env)
+	    {
+	    sprintf (new_env, "%s=", GDS_SERVER);
+	    putenv (new_env);
+	    }
+	execl (partner, partner, pipe_numbers, 0);
+	abort();
+	}
+
+    if (kill (pid, 0) == -1)
+	{
+	pipe_io_error (user_status, "excl", partner, 0);
+	return NULL;
+	}
+
+    close (pair1 [1]);
+    close (pair2 [0]);
+    event_fd = pair3 [0];
+
+    if (!(read_pipe = fdopen (pair1 [0], "r")) ||
+        !(write_pipe = fdopen (pair2 [1], "w")))
+	{
+	pipe_io_error (user_status, "fdopen", "pipe server", errno);
+	if (read_pipe)
+	    {
+	    fclose (read_pipe);
+	    read_pipe = NULL;
+	    }
+	return NULL;
+	}
+    }
+
+#ifdef SOLARIS
+    /* In Solaris 2.5, _filbuf has a bug causing it to return bogus values
+       (not in the range -1 through MAX_UCHAR).  Making the read_pipe FILE
+       unbuffered avoids triggering the bug. */
+ 
+    setbuf(read_pipe, (char *)0);
+#endif
+ 
+/* Check that we have both a read_pipe and a write_pipe.
+ * If we don't, then either the above init code didn't complete correctly,
+ * or we had an IO error during communication with the server.  That
+ * IO error could close either the read_pipe or write_pipe, leaving
+ * us in an inconsistant state until the user's process restarted.
+ *
+ * Note that we cannot silently restart the pipe server, as this client
+ * may have multiple attachments going through the same server.  Unless
+ * we can invalidate all those database handles, we cannot just leave
+ * them around.
+ * Possible solutions:
+ *   Use the rdb_next field to track all the attachments.
+ *   Put the read_pipe & write_pipe handles into the rdb structure
+ *
+ * Due to time constaints, and that this impacts Unix only, this
+ * problem is not being solved at this time. Instead, this simple
+ * workaround is put in to prevent core dumps that occur later
+ * due to one pipe being closed, but not the other.
+ *
+ * 1994-August-31 David Schnepper 
+ */
+if (!read_pipe || !write_pipe)
+    {
+    pipe_io_error (user_status, "init", "<previous pipe error>", 0);
+    return NULL;
+    }
+
+/* Send the operation over */
+
+if (file_length == 0)
+    file_length = strlen (file_name);
+
+PUT_BYTE ((SCHAR) op);
+PUT_WORD (file_length);
+PUT_STRING (file_length, file_name);
+PUT_WORD (dpb_length);
+PUT_STRING (dpb_length, dpb);
+
+/* Check the return status.  If it failed, return error */
+
+#ifndef GATEWAY
+if (check_response (user_status))
+    return NULL;
+#else
+connection = NULL;
+status = check_response (user_status);
+
+/* The new child is devious and may try to trick us into
+   thinking that the other siblings are dead.  Out smart
+   it by reading the EOF (and pray there is one!).  This
+   should not be attempted by the faint of heart. */
+
+save_pipe = read_pipe;
+
+for (rdb = PSI_databases; rdb; rdb = rdb->rdb_next)
+    {
+    read_pipe = (FILE*) rdb->rdb_pipes.cnct_read_pipe;
+    GET_BYTE;
+    }
+
+read_pipe = save_pipe;
+
+if (status)
+    {
+    /* Can't connect to database.  Close fork down. */
+
+    fclose (read_pipe);
+    fclose (write_pipe);
+    return NULL;
+    }
+#endif
+
+rdb = (RDB) ALLOC (type_rdb);
+rdb->rdb_handle = GET_HANDLE;
+
+#ifdef GATEWAY
+rdb->rdb_next = PSI_databases;
+PSI_databases = rdb;
+
+/* Since we can fork many processes, save the pipe info */
+
+rdb->rdb_pipes.cnct_read_pipe = (int*) read_pipe;
+rdb->rdb_pipes.cnct_write_pipe = (int*) write_pipe;
+#endif
+
+return rdb;
+}
+
+static RTR make_transaction (
+    RDB		rdb,
+    HANDLE	handle)
+{
+/**************************************
+ *
+ *	m a k e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a local transaction handle.
+ *
+ **************************************/
+RTR	transaction;
+
+transaction = (RTR) ALLOC (type_rtr);
+transaction->rtr_rdb = rdb;
+transaction->rtr_handle = handle;
+transaction->rtr_next = rdb->rdb_transactions;
+rdb->rdb_transactions = transaction;
+
+return transaction;
+}
+
+static SSHORT name_length (
+    TEXT	*name)
+{
+/*****************************************
+ *
+ *	n a m e _ l e n g t h
+ *
+ *****************************************
+ *
+ * Functional Description
+ *	Compute length of user-supplied (blank-padded) or
+ * 	NULL-terminated buffer
+ *
+ *****************************************/
+TEXT	*p;
+
+for (p = name; *p && *p != ' '; p++)
+    ;
+
+return (p - name);
+}
+
+static void pipe_io_error (
+    STATUS	*user_status,
+    TEXT	*operation,
+    TEXT	*file,
+    int		unix_errno)
+{
+/**************************************
+ *
+ *	p i p e _ i o _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Something happened in system call.
+ *
+ **************************************/
+
+*user_status++ = gds_arg_gds;
+*user_status++ = gds__conn_lost;	/* Connection lost to pipe server */
+
+if (operation)
+    {
+    *user_status++ = gds_arg_gds;
+    *user_status++ = gds__sys_request;
+    *user_status++ = gds_arg_string;
+    *user_status++ = (STATUS) operation;
+    *user_status++ = gds_arg_string;
+    *user_status++ = (STATUS) file;
+    }
+
+if (unix_errno)
+    {
+    *user_status++ = gds_arg_unix;
+    *user_status++ = unix_errno;
+    }
+
+*user_status = gds_arg_end;
+}
+
+#ifdef KILLER_SIGNALS
+static int put_byte (
+    int b)
+{
+/**************************************
+ *
+ *	p u t _ b y t e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a byte into stdout but watch for EINTR
+ *
+ **************************************/
+
+PUT_DATA_CODE (b, c, write_pipe, "Pipe Interface write pipe error %d\n");
+}
+#endif
+
+#ifdef KILLER_SIGNALS
+static IPTR put_handle (
+    IPTR	b)
+{
+/**************************************
+ *
+ *	p u t _ h a n d l e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a handle into stdout but watch for EINTR
+ *
+ **************************************/
+
+PUT_DATA_CODE (b, h, write_pipe, "Pipe Interface write pipe error %d\n");
+}
+#endif
+
+#ifdef KILLER_SIGNALS
+static SLONG put_word (
+    SLONG	b)
+{
+/**************************************
+ *
+ *	p u t _ w o r d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a word into stdout but watch for EINTR
+ *
+ **************************************/
+
+PUT_DATA_CODE (b, l, write_pipe, "Pipe Interface write pipe error %d\n");
+}
+#endif
+
+static void release_blob (
+    RBL		blob)
+{
+/**************************************
+ *
+ *	r e l e a s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a blob block and friends.
+ *
+ **************************************/
+RTR	transaction;
+RBL	*p;
+
+transaction = blob->rbl_rtr;
+
+for (p = &transaction->rtr_blobs; *p; p = &(*p)->rbl_next)
+    if (*p == blob)
+	{
+	*p = blob->rbl_next;
+	break;
+	}
+
+ALLP_release (blob);
+}
+
+static STATUS release_object (
+    P_OP	op,
+    HANDLE	handle,
+    STATUS	*status_vector)
+{
+/**************************************
+ *
+ *	r e l e a s e _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Tell the server to zap an object.  This doesn't not necessary
+ *	release the object, but usually does.
+ *
+ **************************************/
+USHORT	l;
+UCHAR	*p;
+
+PUT_BYTE ((SCHAR) op);
+PUT_HANDLE (handle);
+
+return check_response (status_vector);
+}
+
+static void release_request (
+    RRQ		request)
+{
+/**************************************
+ *
+ *	r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request block and friends.
+ *
+ **************************************/
+RDB	rdb;
+RRQ	*p;
+USHORT	i;
+
+rdb = request->rrq_rdb;
+
+for (p = &rdb->rdb_requests; *p; p = &(*p)->rrq_next)
+    if (*p == request)
+	{
+	*p = request->rrq_next;
+	break;
+	}
+
+ALLP_release (request);
+}
+
+static void release_transaction (
+    RTR		transaction)
+{
+/**************************************
+ *
+ *	r e l e a s e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a transaction block and friends.
+ *
+ **************************************/
+RDB	rdb;
+RTR	*p;
+
+rdb = transaction->rtr_rdb;
+
+for (p = &rdb->rdb_transactions; *p; p = &(*p)->rtr_next)
+    if (*p == transaction)
+	{
+	*p = transaction->rtr_next;
+	break;
+	}
+
+ALLP_release (transaction);
+}
+
+static void release_sql_request (
+    RSR		stmt)
+{
+/**************************************
+ *
+ *	r e l e a s e _ s q l _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an SQL request block.
+ *
+ **************************************/
+RDB	rdb;
+RSR	*p;
+
+rdb = stmt->rsr_rdb;
+
+for (p = &rdb->rdb_sql_requests; *p; p = &(*p)->rsr_next)
+    if (*p == stmt)
+	{
+	*p = stmt->rsr_next;
+	break;
+	}
+
+ALLP_release (stmt);
+}
+
+static STATUS send_blob (
+    STATUS	*user_status,
+    RBL		blob,
+    USHORT	buffer_length,
+    UCHAR	*buffer)
+{
+/**************************************
+ *
+ *	s e n d _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a partially completed blob.
+ *
+ **************************************/
+USHORT	l;
+UCHAR	*p;
+P_OP	op;
+
+/* If there is no buffer address, this is a batch send.  Pick up the
+   address and length from the blob buffer and blast away */
+
+if (!buffer)
+    {
+    buffer = blob->rbl_buffer;
+    buffer_length = blob->rbl_ptr - buffer;
+    blob->rbl_ptr = buffer;
+    op = op_put_segment_buf;
+    }
+else
+    op = op_put_segment;
+
+PUT_BYTE (op);
+PUT_HANDLE (blob->rbl_handle);
+PUT_WORD (buffer_length);
+PUT_STRING (buffer_length, buffer);
+
+if (check_response (user_status))
+    return user_status [1];
+
+RETURN_SUCCESS;
+}
diff --git a/src/pipe/head_proto.h b/src/pipe/head_proto.h
new file mode 100644
index 0000000000..b1b432fffa
--- /dev/null
+++ b/src/pipe/head_proto.h
@@ -0,0 +1,125 @@
+/*
+ *	PROGRAM:	Pipe server Interface
+ *	MODULE:		head_proto.h
+ *	DESCRIPTION:	Prototype Header file for head.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _PIPE_HEAD_PROTO_H_
+#define _PIPE_HEAD_PROTO_H_
+
+extern STATUS PSI_attach_database(STATUS *, SSHORT, SCHAR *, struct rdb **,
+								  SSHORT, SCHAR *);
+extern STATUS PSI_attach_service(STATUS *, USHORT, TEXT *, struct rdb **,
+								 USHORT, SCHAR *);
+extern STATUS PSI_blob_info(STATUS *, struct rbl **, SSHORT, UCHAR *, SSHORT,
+							UCHAR *);
+extern STATUS PSI_cancel_blob(STATUS *, struct rbl **);
+extern STATUS PSI_cancel_events(STATUS *, struct rdb **, SLONG *);
+extern STATUS PSI_close_blob(STATUS *, struct rbl **);
+extern STATUS PSI_commit_transaction(STATUS *, struct rtr **);
+extern STATUS PSI_commit_retaining(STATUS *, struct rtr **);
+extern STATUS PSI_compile_request(STATUS *, struct rdb **, struct rrq **,
+								  SSHORT, UCHAR *);
+extern STATUS PSI_create_blob(STATUS *, struct rdb **, struct rtr **,
+							  struct rbl **, struct bid *);
+extern STATUS PSI_create_blob2(STATUS *, struct rdb **, struct rtr **,
+							   struct rbl **, struct bid *, SSHORT, UCHAR *);
+extern STATUS PSI_create_database(STATUS *, SSHORT, SCHAR *, struct rdb **,
+								  SSHORT, SCHAR *, SSHORT);
+extern STATUS PSI_database_info(STATUS *, struct rdb **, SSHORT, UCHAR *,
+								SSHORT, UCHAR *);
+extern STATUS PSI_ddl(STATUS *, struct rdb **, struct rtr **, SSHORT,
+					  UCHAR *);
+extern STATUS PSI_detach_database(STATUS *, struct rdb **);
+extern STATUS PSI_detach_service(STATUS *, struct rdb **);
+extern STATUS PSI_drop_database(STATUS *, struct rdb **);
+extern STATUS PSI_allocate_statement(STATUS *, struct rdb **, struct rsr **);
+extern STATUS PSI_execute(STATUS *, struct rtr **, struct rsr **, USHORT,
+						  UCHAR *, USHORT, USHORT, UCHAR *);
+extern STATUS PSI_execute2(STATUS *, struct rtr **, struct rsr **, USHORT,
+						   UCHAR *, USHORT, USHORT, UCHAR *, USHORT, UCHAR *,
+						   USHORT, USHORT, UCHAR *);
+extern STATUS PSI_execute_immediate(STATUS *, struct rdb **, struct rtr **,
+									USHORT, UCHAR *, USHORT, USHORT, UCHAR *,
+									USHORT, USHORT, UCHAR *);
+extern STATUS PSI_execute_immediate2(STATUS *, struct rdb **, struct rtr **,
+									 USHORT, UCHAR *, USHORT, USHORT, UCHAR *,
+									 USHORT, USHORT, UCHAR *, USHORT, UCHAR *,
+									 USHORT, USHORT, UCHAR *);
+extern STATUS PSI_fetch(STATUS *, struct rsr **, USHORT, UCHAR *, USHORT,
+						USHORT, UCHAR *);
+extern STATUS PSI_free_statement(STATUS *, struct rsr **, USHORT);
+extern STATUS PSI_get_segment(STATUS *, struct rbl **, USHORT *, USHORT,
+							  UCHAR *);
+extern STATUS PSI_get_slice(STATUS *, struct rdb **, struct rtr **,
+							struct bid *, USHORT, UCHAR *, USHORT, UCHAR *,
+							SLONG, UCHAR *, SLONG *);
+extern STATUS PSI_insert(STATUS *, struct rsr **, USHORT, UCHAR *, USHORT,
+						 USHORT, UCHAR *);
+extern STATUS PSI_open_blob(STATUS *, struct rdb **, struct rtr **,
+							struct rbl **, struct bid *);
+extern STATUS PSI_open_blob2(STATUS *, struct rdb **, struct rtr **,
+							 struct rbl **, struct bid *, SSHORT, UCHAR *);
+extern STATUS PSI_prepare(STATUS *, struct rtr **, struct rsr **, USHORT,
+						  UCHAR *, USHORT, USHORT, UCHAR *, USHORT, UCHAR *);
+extern STATUS PSI_prepare_transaction(STATUS *, struct rtr **, USHORT,
+									  UCHAR *);
+extern STATUS PSI_put_segment(STATUS *, struct rbl **, USHORT, UCHAR *);
+extern STATUS PSI_put_slice(STATUS *, struct rdb **, struct rtr **,
+							struct bid *, USHORT, UCHAR *, USHORT, UCHAR *,
+							SLONG, UCHAR *);
+extern STATUS PSI_que_events(STATUS *, struct rdb **, SLONG *, USHORT,
+							 UCHAR * events, FPTR_VOID, void *);
+extern STATUS PSI_query_service(STATUS *, struct rdb **, USHORT, SCHAR *,
+								USHORT, SCHAR *, USHORT, SCHAR *);
+/* GCC compiler does not allow breaking of the statement */
+#ifdef SCROLLABLE_CURSORS
+extern STATUS PSI_receive(STATUS *, struct rrq **, SSHORT, SSHORT, UCHAR *,
+						  SSHORT, USHORT, ULONG);
+#else
+extern STATUS PSI_receive(STATUS *, struct rrq **, SSHORT, SSHORT, UCHAR *,
+						  SSHORT);
+#endif
+extern STATUS PSI_reconnect_transaction(STATUS *, struct rdb **,
+										struct rtr **, SSHORT, UCHAR *);
+extern STATUS PSI_release_request(STATUS *, struct rrq **);
+extern STATUS PSI_request_info(STATUS *, struct rrq **, USHORT, SSHORT,
+							   UCHAR *, SSHORT, UCHAR *);
+extern STATUS PSI_rollback_transaction(STATUS *, struct rtr **);
+extern STATUS PSI_seek_blob(STATUS *, struct rbl **, SSHORT, SLONG, SLONG *);
+extern STATUS PSI_send(STATUS *, struct rrq **, SSHORT, SSHORT, UCHAR *,
+					   SSHORT);
+extern STATUS PSI_set_cursor_name(STATUS *, struct rsr **, UCHAR *, USHORT);
+extern STATUS PSI_sql_info(STATUS *, struct rsr **, SSHORT, UCHAR *, SSHORT,
+						   UCHAR *);
+extern STATUS PSI_start_and_send(STATUS *, struct rrq **, struct rtr **,
+								 SSHORT, SSHORT, UCHAR *, SSHORT);
+extern STATUS PSI_start_multiple(STATUS *, struct rtr **, SSHORT, int **);
+extern STATUS PSI_start_request(STATUS *, register struct rrq **,
+								register struct rtr **, SSHORT);
+extern STATUS PSI_start_transaction(STATUS *, struct rtr **, SSHORT, ...);
+extern STATUS PSI_transact_request(STATUS *, struct rdb **, struct rtr **,
+								   USHORT, UCHAR *, USHORT, UCHAR *, USHORT,
+								   UCHAR *);
+extern STATUS PSI_transaction_info(STATUS *, struct rtr **, SSHORT, UCHAR *,
+								   SSHORT buffer_length, UCHAR *);
+extern STATUS PSI_unwind_request(STATUS *, struct rrq **, SSHORT);
+
+#endif /*  _PIPE_HEAD_PROTO_H_      */
diff --git a/src/pipe/pipe.h b/src/pipe/pipe.h
new file mode 100644
index 0000000000..7481a71dc3
--- /dev/null
+++ b/src/pipe/pipe.h
@@ -0,0 +1,208 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		pipe.h
+ *	DESCRIPTION:	Common descriptions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _PIPE_PIPE_H_
+#define _PIPE_PIPE_H_
+
+#include <stdio.h>
+#include "../jrd/common.h"
+
+#define ALLOC(type)		ALLP_block (type, 0)
+#define ALLOCV(type, count)	ALLP_block (type, count)
+
+#ifdef BUFSIZ
+#define BLOB_LENGTH		(BUFSIZ - 20)
+#else
+#define BLOB_LENGTH		(1024 - 20)
+#endif
+
+typedef enum {
+	op_attach,					/* Attach database */
+	op_create,					/* Create database */
+	op_detach,					/* Detach database */
+
+	op_compile,					/* Request based operations */
+	op_start,
+	op_start_and_send,
+	op_send,
+	op_receive,
+	op_unwind,
+	op_release,
+
+	op_transaction,				/* Transaction operations */
+	op_commit,
+	op_rollback,
+	op_prepare,
+	op_reconnect,
+
+	op_create_blob,				/* Blob operations */
+	op_open_blob,
+	op_get_segment,
+	op_put_segment,
+	op_cancel_blob,
+	op_close_blob,
+
+	op_info_database,			/* Information services */
+	op_info_request,
+	op_info_transaction,
+	op_info_blob,
+
+	op_prepare2,
+	op_commit_retaining,
+	op_open_blob2,
+	op_create_blob2,
+	op_ddl,
+	op_que_events,
+	op_cancel_events,
+	op_put_slice,
+	op_get_slice,
+	op_seek_blob,
+	op_get_segment_buf,			/* a buffered version of get_segment */
+	op_put_segment_buf,			/* a buffered version of put_segment */
+
+	op_allocate_stmt,			/* DSQL operations */
+	op_execute,
+	op_exec_immediate,
+	op_fetch,
+	op_free_stmt,
+	op_prepare_stmt,
+	op_set_cursor,
+	op_info_sql,				/* Last opcode in V3.3 */
+
+	op_insert,
+	op_execute2,
+	op_exec_immediate2,
+
+	op_attach_service,
+	op_detach_service,
+	op_info_service,
+
+	op_transact_request,
+	op_drop_database,
+	op_max,
+	op_gateway_sync = 127
+} P_OP;
+
+typedef struct bid {
+	ULONG bid_relation_id;		/* Relation id (or null) */
+	ULONG bid_number;			/* Record number */
+} *BID;
+
+typedef int *HANDLE;
+
+/* Block types */
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+/* Block types */
+
+typedef struct cnct {
+	int *cnct_read_pipe;		/* this is really a FILE pointer */
+	int *cnct_write_pipe;		/* this is really a FILE pointer */
+#ifdef VMS
+	int cnct_misc_pipe_fds[2];
+#endif
+} *CNCT;
+
+typedef struct rdb {
+	struct blk rdb_header;
+	HANDLE rdb_handle;			/* database handle */
+	struct rtr *rdb_transactions;	/* linked list of transactions */
+	struct rrq *rdb_requests;	/* compiled requests */
+	struct rsr *rdb_sql_requests;	/* SQL requests */
+	struct rdb *rdb_next;
+	int *rdb_status_vector;
+	SCHAR *rdb_setjmp;
+#ifdef GATEWAY
+	struct cnct rdb_pipes;		/* pipe connection */
+#endif
+} *RDB;
+
+typedef struct rtr {
+	struct blk rtr_header;
+	struct rdb *rtr_rdb;
+	struct rtr *rtr_next;
+	struct rbl *rtr_blobs;
+	HANDLE rtr_handle;
+	USHORT rtr_flags;
+} *RTR;
+
+#define RTR_limbo	1
+
+typedef struct rbl {
+	struct blk rbl_header;
+	struct rdb *rbl_rdb;
+	struct rtr *rbl_rtr;
+	struct rbl *rbl_next;
+	HANDLE rbl_handle;
+	SLONG rbl_offset;			/* Apparent (to user) offset in blob */
+	USHORT rbl_flags;
+	UCHAR *rbl_ptr;
+	USHORT rbl_length;
+	USHORT rbl_fragment_length;
+	USHORT rbl_buffer_length;
+	UCHAR rbl_buffer[1];
+} *RBL;
+
+#define RBL_eof		1
+#define RBL_segment	2
+#define RBL_eof_pending	4
+#define RBL_create	8
+
+typedef struct rrq {
+	struct blk rrq_header;
+	struct rdb *rrq_rdb;
+	struct tra *rrq_rtr;
+	struct rrq *rrq_next;
+	struct rrq **rrq_user_handle;
+	HANDLE rrq_handle;
+} *RRQ;
+
+typedef struct rvnt {
+	struct blk rvnt_header;
+	struct rvnt *rvnt_next;
+	void (*rvnt_ast) ();
+	void *rvnt_arg;
+	SLONG rvnt_handle;
+} *RVNT;
+
+/* remote SQL request */
+
+typedef struct rsr {
+	struct blk rsr_header;
+	struct rsr *rsr_next;
+	struct rdb *rsr_rdb;
+	HANDLE rsr_handle;
+} *RSR;
+
+#define BLKDEF(type, root, tail) type,
+enum blk_t {
+	type_MIN = 0,
+#include "../pipe/blk.h"
+	type_MAX
+};
+#undef BLKDEF
+
+#endif /* _PIPE_PIPE_H_ */
diff --git a/src/pyxis/adm.cpp b/src/pyxis/adm.cpp
new file mode 100644
index 0000000000..77250b3aff
--- /dev/null
+++ b/src/pyxis/adm.cpp
@@ -0,0 +1,901 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		adm.c
+ *	DESCRIPTION:	Apollo Display Manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../pyxis/pyxis.h"
+#include "../pyxis/scr.h"
+
+#include <apollo/base.h>
+#include <apollo/gpr.h>
+#include <apollo/pad.h>
+#include <apollo/kbd.h>
+#include <apollo/error.h>
+#include "/sys/ins/smdu.ins.c"
+#include "/sys/ins/streams.ins.c"
+
+#define KEYSET(keyset, key) keyset [7 - key / 32] |= 1 << (key % 32)
+#define CHECK_STATUS	if (status.all) dsply_error (status)
+
+static stream_$id_t stream;
+static status_$t status;
+static gpr_$bitmap_desc_t bitmap, fill_bitmap;
+static gpr_$attribute_desc_t fill_attributes;
+static gpr_$event_t locator_event = gpr_$locator;
+static boolean gpr_true = -1, gpr_false = 0;
+
+static SCHAR beep[] = { 7 };
+static UCHAR special_keys[] = {
+	KBD_$BS,
+	KBD_$CR,
+	KBD_$F1,
+	KBD_$F2,
+	KBD_$F3,
+	KBD_$F4,
+	KBD_$F5,
+	KBD_$F6,
+	KBD_$F7,
+	KBD_$F1S,					/* maps to C_PF8   */
+	KBD_$F2S,					/* maps to C_PF9   */
+	KBD_$F9,					/*    ditto        */
+	KBD_$F8,					/* maps to C_ENTER */
+	KBD_$TAB,
+	KBD_$RIGHT_ARROW,
+	KBD_$LEFT_ARROW,			/* cursor keys */
+	KBD_$UP_ARROW,
+	KBD_$DOWN_ARROW,
+	KBD_$DOWN_BOX_ARROW2,		/* maps to SCROLL_BOTTOM */
+	KBD_$UP_BOX_ARROW2,			/* maps to SCROLL_TOP    */
+	KBD_$NUMERIC_KEYPAD,
+	KBD_$LINE_DEL,				/* field editing */
+	KBD_$CHAR_DEL,				/* field editing */
+	KBD_$INS_MODE1,				/* field editing */
+	KBD_$INS_MODE2,				/* field editing */
+	KBD_$L_BAR_ARROW,			/* field editing */
+	KBD_$R_BAR_ARROW,			/* field editing */
+	KBD_$EDIT,					/* field editing */
+	0
+};
+
+static struct knm keyname_table[] = {
+	{C_PF1, "<F1>"},
+	{C_PF2, "<F2>"},
+	{C_PF3, "<F3>"},
+	{C_PF4, "<F4>"},
+	{C_PF5, "<F5>"},
+	{C_PF6, "<F6>"},
+	{C_PF7, "<F7>"},
+	{C_PF8, "<shift-F1>"},
+	{C_PF9, "<F9> or <shift-F2>"},
+	{C_ENTER, "<ENTER> or <F8>"},
+	{C_LEFT, "<left arrow>"},
+	{C_RIGHT, "<right arrow>"},
+	{C_UP, "<up arrow>"},
+	{C_DOWN, "<down arrow>"},
+	{C_DELETE, "<BACKSPACE>"},
+	{C_SCROLL_TOP, "<boxed up arrow> or <control-T>"},
+	{C_SCROLL_BOTTOM, "<boxed down arrow> or <control-B>"},
+	{C_ERASE, "<LINE DEL>"},
+	{C_DELETE_NEXT, "<CHAR DEL>"},
+	{C_INSERT_OVERSTRIKE, "<INS>"},
+	{C_GOTO_START, "<left bar arrow>"},
+	{C_GOTO_END, "<right bar arrow>"},
+	{C_EDIT, "<EDIT>"},
+	{(UCHAR) 0, "<unknown key>"},
+};
+
+static int clear_window(), disable(), fini(), get_char(), text(),
+update_window();
+
+static SCHAR pending_keystroke;
+static SSHORT button1_down = 0, button2_down = 0, button3_down = 0;
+static SSHORT text_reverse;
+static SSHORT char_width, char_height, char_offset, disabled;
+static SSHORT mouse_delta_width, mouse_delta_height;
+static gpr_$raster_op_t current_raster_op;
+
+#define COND_ACQUIRE()		acquire()
+#define COND_RELEASE()		release()
+
+
+
+ADM_create_window(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	A D M _ c r e a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new display window.
+ *
+ **************************************/
+	gpr_$offset_t size;
+	gpr_$position_t position;
+	pad_$string_t font_name;
+	pad_$window_desc_t window_desc;
+	gpr_$event_t event;
+	gpr_$keyset_t keyset;
+	gpr_$display_config_t config;
+	SSHORT font_name_length, font_id, n, x_size, y_size;
+	SCHAR event_data;
+
+	window->win_keyname_table = keyname_table;
+
+/* Populate window with action routines */
+
+	window->win_clear = clear_window;
+	window->win_disable = disable;
+	window->win_fini = fini;
+	window->win_getchar = get_char;
+	window->win_text = text;
+	window->win_update = update_window;
+
+/* Find the current font and character size */
+
+	pad_$inq_font(stream_$stdout, &char_width, &char_height,
+				  font_name, (SSHORT) sizeof(font_name), &font_name_length,
+				  &status);
+	if (status.all) {
+		strcpy(font_name, "/sys/dm/fonts/f7x13");
+		font_name_length = strlen(font_name);
+		char_width = 9;
+		char_height = 19;
+	}
+
+/*  Adjust mouse sensitivity based on character size.  */
+
+	mouse_delta_width = 3 * char_width;
+	mouse_delta_height = 2 * char_height;
+
+	pad_$inq_windows(stream_$stdout, &window_desc, (SSHORT) 1, &n, &status);
+	if (status.all)
+		return status.all;
+
+/* Adjust window size to reality */
+
+	gpr_$inq_config(&config, &status);
+	CHECK_STATUS;
+
+	switch (config) {
+	case gpr_$bw_800x1024:
+		x_size = 800;
+		y_size = 1024;
+		break;
+
+	case gpr_$bw_1280x1024:
+	case gpr_$color_1280x1024x8:
+	case gpr_$color2_1280x1024x8:
+		x_size = 1280;
+		y_size = 1024;
+		break;
+
+	case gpr_$color_1024x1024x4:
+	case gpr_$color_1024x1024x8:
+		x_size = 1024;
+		y_size = 1024;
+		break;
+
+	default:
+		x_size = 1024;
+		y_size = 800;
+		break;
+	}
+
+/* Create a window of the correct size, allowing for the legend and border. */
+
+	x_size = (x_size / char_width) - 1;
+	y_size = (y_size / char_height) - 3;
+
+	if (!window->win_width || x_size < window->win_width)
+		window->win_width = x_size;
+
+	if (!window->win_height || y_size < window->win_height)
+		window->win_height = y_size;
+
+	window_desc.top = 0;
+	window_desc.left = 0;
+	window_desc.width = (window->win_width + 1) * char_width;
+	window_desc.height = (window->win_height + 3) * char_height;
+	pad_$create_window((SCHAR *) NULL, (SSHORT) 0, pad_$transcript,
+					   (SSHORT) 1, window_desc, &stream, &status);
+
+	if (status.all)
+		return status.all;
+
+/* don't check status for these two commands, we will continue
+   if they fail, anyway */
+	pad_$dm_cmd(stream, "TN", (SSHORT) 2, &status);
+	pad_$set_auto_close(stream, (SSHORT) 1, gpr_true, &status);
+
+	size.x_size = window->win_width * char_width;
+	size.y_size = window->win_height * char_height;
+
+/* Initialize the graphics primitives on the window */
+
+	gpr_$init(gpr_$direct, stream, size, (unsigned short) 0, &bitmap,
+			  &status);
+	CHECK_STATUS;
+	gpr_$set_bitmap(bitmap, &status);
+
+/* Find the current font and character size */
+
+	gpr_$load_font_file(font_name, font_name_length, &font_id, &status);
+	gpr_$set_text_font(font_id, &status);
+	gpr_$set_raster_op(0, 0, &status);
+	gpr_$set_text_value((gpr_$pixel_value_t) 1, &status);
+	gpr_$set_text_background_value((gpr_$pixel_value_t) - 1, &status);
+	gpr_$inq_text_offset("M", 1, &size, &n, &status);
+	char_offset = size.y_size;
+	text_reverse = FALSE;
+
+/* Turn on "pop if obscured" and "auto-refresh" to save work */
+
+	gpr_$set_obscured_opt(gpr_$block_if_obs, &status);
+	gpr_$set_auto_refresh(gpr_true, &status);
+
+/* Enable the events of interest (i.e. left button up) */
+
+	enable_events();
+
+	return SUCCESS;
+}
+
+
+
+
+static clear_window(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	c l e a r _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zap a window clean.
+ *
+ **************************************/
+
+	acquire(window);
+	gpr_$clear((gpr_$pixel_value_t) - 2, &status);
+	release();
+}
+
+
+static disable(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make window disappear.
+ *
+ **************************************/
+
+	clear_window(window);
+
+	if (stream != stream_$stdout) {
+		disabled = TRUE;
+		pad_$make_invisible(stream, (SSHORT) 1, &status);
+		CHECK_STATUS;
+	}
+}
+
+
+static fini(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sign off the screen package.
+ *
+ **************************************/
+	gpr_$position_t position;
+	UCHAR event_data;
+	gpr_$event_t event;
+	SSHORT count;
+
+/* Gobble any pending events to avoid gross confusion when the window
+   disappears and the context changes. */
+
+	COND_ACQUIRE();
+
+	do
+		gpr_$cond_event_wait(&event, &event_data, &position, &status);
+	while (!status.all && event != gpr_$no_event);
+
+	force_release();
+
+	if (stream != stream_$stdout) {
+		gpr_$terminate(gpr_true, &status);
+		stream_$delete(stream, status);
+	}
+}
+
+
+static get_char(window, x, y)
+	 WIN window;
+{
+/**************************************
+ *
+ *	g e t _ c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a character from the user.
+ *
+ **************************************/
+	gpr_$position_t position, current_position;
+	gpr_$event_t event;
+	unsigned char event_data, keypad_flag;
+	status_$t temp;
+	int delta_x, delta_y, abs_delta_x, abs_delta_y;
+	int delta_width, delta_height;
+
+	position.x_coord = x * char_width;
+	position.y_coord = y * char_height + char_offset;
+
+	window->win_flags &= ~WIN_synthesized;
+	keypad_flag = FALSE;
+
+	COND_ACQUIRE();
+	gpr_$set_cursor_position(position, &status);
+
+	for (;;) {
+		gpr_$set_cursor_active(gpr_true, &temp);
+		gpr_$event_wait(&event, &event_data, &current_position, &status);
+		gpr_$set_cursor_active(gpr_false, &temp);
+		if (status.all) {
+			if ((status.all & 0xffffff) == smd_$wait_quit)
+				continue;
+			dsply_error(status);
+		}
+		if (event == gpr_$keystroke)
+			if (event_data == KBD_$NUMERIC_KEYPAD)
+				keypad_flag = TRUE;
+			else
+				break;
+		if (event == gpr_$locator_stop) {
+			gpr_$set_cursor_position(position, &status);
+			continue;
+		}
+
+/*  Synthesize enter and return on the mouse.  */
+
+		if (event == gpr_$buttons) {
+			if (event_data == KBD_$M1U)
+				keypad_flag = TRUE;
+			else if (event_data == KBD_$M3U)
+				keypad_flag = FALSE;
+			else
+				continue;
+			event_data = KBD_$CR;
+			window->win_flags |= WIN_synthesized;
+			break;
+		}
+
+/*  Synthesize cursor keys for mouse movement.  Make mouse sensitivity depend on
+ *  the window sensitivity flag.  */
+
+		if (event == gpr_$locator) {
+			abs_delta_x = delta_x =
+				current_position.x_coord - position.x_coord;
+			if (abs_delta_x < 0)
+				abs_delta_x = -abs_delta_x;
+			abs_delta_y = delta_y =
+				current_position.y_coord - position.y_coord;
+			if (abs_delta_y < 0)
+				abs_delta_y = -abs_delta_y;
+			if (window->win_flags & WIN_sensitive) {
+				delta_width = 4;
+				delta_height = 8;
+			}
+			else {
+				delta_width = mouse_delta_width;
+				delta_height = mouse_delta_height;
+			}
+
+/*  If a diagonal movement is called for, move horizontally and cache the
+ *  vertical move for the next input.  */
+
+			if (abs_delta_x >= delta_width) {
+				if (delta_x > 0)
+					event_data = KBD_$RIGHT_ARROW;
+				else
+					event_data = KBD_$LEFT_ARROW;
+				window->win_flags |= WIN_synthesized;
+			}
+			if (abs_delta_y >= delta_height) {
+				if (delta_y > 0)
+					if (window->win_flags & WIN_synthesized)
+						window->win_pending_char = C_DOWN;
+					else
+						event_data = KBD_$DOWN_ARROW;
+				else if (window->win_flags & WIN_synthesized)
+					window->win_pending_char = C_UP;
+				else
+					event_data = KBD_$UP_ARROW;
+				window->win_flags |= WIN_synthesized;
+			}
+			if (window->win_flags & WIN_synthesized)
+				break;
+		}
+	}
+
+	COND_RELEASE();
+
+	switch (event_data) {
+	case KBD_$CR:
+		return (keypad_flag) ? C_ENTER : '\n';
+	case KBD_$TAB:
+		return '\t';
+	case KBD_$BS:
+		return C_DELETE;
+	case KBD_$F1:
+		return C_PF1;
+	case KBD_$F2:
+		return C_PF2;
+	case KBD_$F3:
+		return C_PF3;
+	case KBD_$F4:
+		return C_PF4;
+	case KBD_$F5:
+		return C_PF5;
+	case KBD_$F6:
+		return C_PF6;
+	case KBD_$F7:
+		return C_PF7;
+	case KBD_$F1S:
+		return C_PF8;
+	case KBD_$F9:
+	case KBD_$F2S:
+		return C_PF9;
+	case KBD_$F8:
+		return C_ENTER;
+	case KBD_$RIGHT_ARROW:
+		return C_RIGHT;
+	case KBD_$LEFT_ARROW:
+		return C_LEFT;
+	case KBD_$UP_ARROW:
+		return C_UP;
+	case KBD_$DOWN_ARROW:
+		return C_DOWN;
+	case KBD_$UP_BOX_ARROW2:
+	case 'T' - 0100:
+		return C_SCROLL_TOP;
+	case KBD_$DOWN_BOX_ARROW2:
+	case 'B' - 0100:
+		return C_SCROLL_BOTTOM;
+
+/* field editing keys */
+
+	case KBD_$LINE_DEL:
+		return C_ERASE;
+	case KBD_$CHAR_DEL:
+		return C_DELETE_NEXT;
+	case KBD_$INS_MODE1:
+	case KBD_$INS_MODE2:
+		return C_INSERT_OVERSTRIKE;
+	case KBD_$L_BAR_ARROW:
+		return C_GOTO_START;
+	case KBD_$R_BAR_ARROW:
+		return C_GOTO_END;
+	case KBD_$EDIT:
+		return C_EDIT;
+	}
+
+	return event_data;
+}
+
+
+
+static text(window, string, length, x, y, mode)
+	 WIN window;
+	 UCHAR *string;
+	 SSHORT length, x, y;
+	 USHORT mode;
+{
+/**************************************
+ *
+ *	t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert text in a given location.
+ *
+ **************************************/
+	UCHAR *p, *end;
+	TEXT buffer[512];
+	USHORT special, bottom, side, op;
+	SSHORT y_char, x1, x2, y1, y2, box_x, box_y;
+
+	if (length == 0)
+		return;
+
+	special = FALSE;
+
+	for (p = (UCHAR *) buffer, end = string + length; string < end;
+		 string++, p++)
+		switch (*p = *string) {
+		case C_UL_CORNER:
+		case C_UR_CORNER:
+		case C_LL_CORNER:
+		case C_LR_CORNER:
+		case C_HORZ_BAR:
+		case C_VERT_BAR:
+			*p = ' ';
+			special = TRUE;
+		}
+
+	string -= length;
+	x *= char_width;
+	y = y * char_height;
+	acquire(window);
+	op = 0;
+
+	if (mode & SCR_reverse) {
+		op = 15;
+		if (!text_reverse) {
+			gpr_$set_text_value((gpr_$pixel_value_t) 0, &status);
+			text_reverse = TRUE;
+		}
+	}
+	else if (text_reverse) {
+		gpr_$set_text_value((gpr_$pixel_value_t) 1, &status);
+		text_reverse = FALSE;
+	}
+
+	raster_op(op, x - 1, y - 1, length * char_width + 1, char_height);
+	y_char = y + char_offset;
+	gpr_$move(x, y_char, &status);
+	CHECK_STATUS;
+	gpr_$text(buffer, length, &status);
+	CHECK_STATUS;
+
+/* If no special drawing stuff, we're done */
+
+	if (!special) {
+		release();
+		return;
+	}
+
+	current_raster_op = 3;
+	gpr_$set_raster_op(0, current_raster_op, &status);
+	box_x = x + char_width / 2;
+	box_y = y + char_height / 2;
+	bottom = y + char_height - 2;
+
+	for (p = string; p < end; p++, x += char_width, box_x += char_width) {
+		side = x + char_width;
+		switch (*p) {
+		case C_UL_CORNER:
+			x1 = box_x;
+			y1 = bottom;
+			x2 = side;
+			y2 = box_y;
+			break;
+
+		case C_LL_CORNER:
+			x1 = box_x;
+			y1 = y - 2;
+			x2 = side;
+			y2 = box_y;
+			break;
+
+		case C_UR_CORNER:
+			x1 = x;
+			y1 = box_y;
+			x2 = box_x;
+			y2 = bottom;
+			break;
+
+		case C_LR_CORNER:
+			x1 = x;
+			y1 = box_y;
+			x2 = box_x;
+			y2 = y - 2;
+			break;
+
+		case C_HORZ_BAR:
+			x1 = x;
+			y1 = box_y;
+			x2 = side;
+			y2 = box_y;
+			break;
+
+		case C_VERT_BAR:
+			x1 = box_x;
+			y1 = y - 2;
+			x2 = box_x;
+			y2 = bottom;
+			break;
+
+		default:
+			continue;
+		}
+		gpr_$move(x1, y1, &status);
+		if (x1 != x2 && y1 != y2)
+			gpr_$line(box_x, box_y, &status);
+		gpr_$line(x2, y2, &status);
+	}
+
+	release();
+}
+
+
+static update_window(window, x, y)
+	 WIN window;
+	 int x, y;
+{
+/**************************************
+ *
+ *	u p d a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update a window leaving the cursor at a given object location.
+ *
+ **************************************/
+
+	dsply_restore_cursor(x * char_width, y * char_height);
+}
+
+
+static dsply_error(status)
+	 status_$t status;
+{
+/**************************************
+ *
+ *	d s p l y _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Complain about system errors.
+ *
+ **************************************/
+
+	error_$print(status);
+}
+
+
+static dsply_restore_cursor(x, y)
+	 SSHORT x, y;
+{
+/**************************************
+ *
+ *	d s p l y _ r e s t o r e _ c u r s o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cursor has gotton lost or something.  Move it to an agreeable
+ *	spot and re-enable it.
+ *
+ **************************************/
+	gpr_$position_t position;
+
+	pad_$select_window(stream, 1, &status);
+	position.x_coord = x;
+	position.y_coord = y + char_offset;
+	gpr_$set_cursor_position(position, &status);
+}
+
+
+#ifdef UNDEFINED
+static dsply_window(file_name, x, y, characters, lines)
+	 SCHAR *file_name;
+	 SSHORT x, y, characters, lines;
+{
+/**************************************
+ *
+ *	d s p l y _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a window at position (x, y) "characters" wide to display
+ *	a file "lines" SLONG.  It it doesn't fit, do something appropriate.
+ *
+ *	5/31/90 - jas - routine not referenced, conditionalize out
+ *
+ **************************************/
+	pad_$window_desc_t window;
+	stream_$id_t stream_id;
+	SCHAR *p, *q, buffer[256];
+	SSHORT left, right;
+	USHORT length;
+
+	length = characters * 7;
+	left = MAX(10, x - length / 2);
+	right = MIN(990, x + length / 2);
+	window.top = y + 20;
+	window.left = left;
+	window.width = right - left;
+	window.height = MIN(lines * 15, (770 - y));
+
+	for (p = file_name, length = 0, q = buffer; *p;) {
+		length++;
+		*q++ = *p++;
+	}
+
+	pad_$create_window(buffer, length, pad_$read_edit, (SSHORT) 1, window,
+					   &stream_id, &status);
+	CHECK_STATUS;
+	stream_$close(stream_id, status);
+	CHECK_STATUS;
+}
+#endif
+
+
+static acquire(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	a c q u i r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Acquire the display.
+ *
+ **************************************/
+
+	if (disabled) {
+		pad_$select_window(stream, (SSHORT) 1, &status);
+		disabled = FALSE;
+	}
+
+	gpr_$acquire_display(&status);
+	CHECK_STATUS;
+}
+
+
+static enable_events()
+{
+/**************************************
+ *
+ *	e n a b l e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	gpr_$keyset_t keyset;
+	SSHORT i, key;
+	UCHAR *string;
+
+	for (i = 0; i < 8; i++)
+		keyset[i] = 0;
+
+/*  Grab mouse buttons 1 and 3.  */
+
+	KEYSET(keyset, KBD_$M1D);
+	KEYSET(keyset, KBD_$M1U);
+	KEYSET(keyset, KBD_$M3D);
+	KEYSET(keyset, KBD_$M3U);
+
+	gpr_$enable_input(gpr_$buttons, keyset, &status);
+	CHECK_STATUS;
+	gpr_$enable_input(gpr_$locator_stop, keyset, &status);
+	CHECK_STATUS;
+	gpr_$enable_input(gpr_$locator, keyset, &status);
+	CHECK_STATUS;
+
+	for (i = 0; i < 127; i++)
+		KEYSET(keyset, i);
+
+	string = special_keys;
+
+	while (key = *string++)
+		KEYSET(keyset, key);
+
+	gpr_$enable_input(gpr_$keystroke, keyset, &status);
+	CHECK_STATUS;
+}
+
+
+static force_release()
+{
+/**************************************
+ *
+ *	f o r c e _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release display.
+ *
+ **************************************/
+	SSHORT count;
+
+	gpr_$force_release(&count, &status);
+}
+
+
+static raster_op(op, x, y, x_size, y_size)
+	 USHORT op;
+	 SSHORT x, y, x_size, y_size;
+{
+/**************************************
+ *
+ *	r a s t e r _ o p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a raster operation on a rectangular region.
+ *
+ **************************************/
+	gpr_$window_t window;
+	gpr_$position_t destination;
+	SSHORT unit;
+
+	if (op != current_raster_op) {
+		gpr_$set_raster_op(0, op, &status);
+		current_raster_op = op;
+	}
+
+	window.window_base.x_coord = x;
+	window.window_base.y_coord = y;
+	window.window_size.x_size = x_size;
+	window.window_size.y_size = y_size;
+	destination.x_coord = x;
+	destination.y_coord = y;
+	gpr_$pixel_blt(bitmap, window, destination, &status);
+	CHECK_STATUS;
+}
+
+
+static release()
+{
+/**************************************
+ *
+ *	r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release display.
+ *
+ **************************************/
+
+	gpr_$release_display(&status);
+	CHECK_STATUS;
+}
diff --git a/src/pyxis/all.h b/src/pyxis/all.h
new file mode 100644
index 0000000000..e934787190
--- /dev/null
+++ b/src/pyxis/all.h
@@ -0,0 +1,55 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		all.h
+ *	DESCRIPTION:	Block allocator blocks
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _PYXIS_ALL_H_
+#define _PYXIS_ALL_H_
+
+#define MIN_ALLOCATION 1024 /* Minimin allocation from operating system */
+
+/* Free block */
+
+typedef struct frb {
+    struct blk	frb_header;
+    struct frb	*frb_next;	/* Next free block in pool */
+} *FRB;
+
+/* Pool block */
+
+typedef struct plb {
+    struct blk	plb_header;
+    USHORT	plb_pool_id;	/* pool id */
+    struct frb	*plb_free;	/* first free block */
+    struct hnk	*plb_hunks;	/* first hunk block */
+    struct lls	*plb_lls;	/* avaiable linked list stack nodes */
+} *PLB;
+
+/* Hunk blocks */
+
+typedef struct hnk {
+    struct blk	hnk_header;
+    SCHAR	*hnk_address;	/* start of memory hunk */
+    int		hnk_length;	/* length of memory hunk */
+    struct hnk	*hnk_next;	/* next memory hunk in structure */
+} *HNK;
+
+#endif /* _PYXIS_ALL_H_ */
diff --git a/src/pyxis/allp.cpp b/src/pyxis/allp.cpp
new file mode 100644
index 0000000000..22fe2adb31
--- /dev/null
+++ b/src/pyxis/allp.cpp
@@ -0,0 +1,510 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		all.c
+ *	DESCRIPTION:	Internal block allocator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: allp.cpp,v 1.1.1.1 2001-05-23 13:26:33 tamlin Exp $
+*/
+
+#include "../pyxis/everything.h"
+
+
+extern UCHAR *gds__alloc();
+
+PLB PYXIS_pool();
+UCHAR *PYXIS_malloc();
+
+static VEC pools;
+
+#define BLKDEF(type, root, tail) sizeof (struct root), tail,
+
+static struct {
+	SSHORT typ_root_length;
+	SSHORT typ_tail_length;
+} block_sizes[] = {
+	0, 0,
+#include "../pyxis/blk.h"
+0};
+
+#undef BLKDEF
+
+
+BLK PYXIS_alloc(pool, type, count)
+	 PLB pool;
+	 UCHAR type;
+	 int count;
+{
+/**************************************
+ *
+ *	P Y X I S _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block from a given pool and initialize the block.
+ *	This is the primary block allocation routine.
+ *
+ **************************************/
+	register BLK block;
+	FRB free, *best, *ptr;
+	HNK hunk;
+	register USHORT size, *p;
+	USHORT best_tail, tail;
+
+	if (type <= (SCHAR) type_MIN || type >= (SCHAR) type_MAX)
+		BUGCHECK("bad block type");
+
+/* Compute block length */
+
+	size = block_sizes[type].typ_root_length;
+
+	if ((tail = block_sizes[type].typ_tail_length) && count >= 1)
+		size += (count - 1) * tail;
+
+#ifndef VMS
+	size = FB_ALIGN(size, ALIGNMENT);
+#else
+	size = ((size + ALIGNMENT - 1) & ~(ALIGNMENT - 1));
+#endif
+
+	if (size <= 4 || size > 32768)
+		BUGCHECK("bad block size");
+
+/* Find best fit.  Best fit is defined to be the free block of shortest
+   tail.  If there isn't a fit, extend the pool and try, try again. */
+
+	while (TRUE) {
+		best = NULL;
+		best_tail = 32767;
+		for (ptr = &pool->plb_free; (free = *ptr); ptr = &free->frb_next)
+			if ((SCHAR HUGE_PTR *) free == (SCHAR HUGE_PTR *) free->frb_next)
+				BUGCHECK("corrupt pool");
+			else if ((tail = free->frb_header.blk_length - size) >= 0
+					 && tail < best_tail) {
+				best = ptr;
+				best_tail = tail;
+				if (tail == 0)
+					break;
+			}
+		if (best)
+			break;
+		extend_pool(pool, size);
+	}
+
+/* We've got our free block.  If there's enough left of the free block
+   after taking out our block, chop out our block.  If not, allocate
+   the entire free block as our block (a little extra won't hurt). */
+
+	free = *best;
+	if (best_tail > sizeof(struct frb)) {
+		block = (BLK) ((SCHAR *) free + free->frb_header.blk_length - size);
+		free->frb_header.blk_length -= size;
+	}
+	else {
+		*best = free->frb_next;
+		size += best_tail;
+		block = (BLK) free;
+	}
+
+	block->blk_type = type;
+	block->blk_pool_id = pool->plb_pool_id;
+	block->blk_length = size;
+
+	if (size -= sizeof(struct blk))
+		memset((SCHAR *) block + sizeof(struct blk), 0, size);
+
+	return block;
+}
+
+
+BLK PYXIS_extend(pointer, size)
+	 BLK *pointer;
+	 int size;
+{
+/**************************************
+ *
+ *	P Y X I S _ e x t e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend a repeating block, copying the constant part.
+ *
+ **************************************/
+	BLK block, new;
+	register int length, l;
+	register SLONG *p1, *p2;
+	register SCHAR *c1, *c2;
+
+	block = *pointer;
+	new = PYXIS_alloc(pools->vec_object[block->blk_pool_id],
+					  block->blk_type, size);
+	length = MIN(block->blk_length, new->blk_length) - sizeof(struct blk);
+	p1 = (SLONG *) ((SCHAR *) new + sizeof(struct blk));
+	p2 = (SLONG *) ((SCHAR *) block + sizeof(struct blk));
+
+	if (l = length >> SHIFTLONG)
+		do
+			*p1++ = *p2++;
+		while (--l);
+
+	if (length &= 3) {
+		c1 = (SCHAR *) p1;
+		c2 = (SCHAR *) p2;
+		do
+			*c1++ = *c2++;
+		while (--length);
+	}
+
+	PYXIS_release(block);
+
+	if (new->blk_type == (SCHAR) type_vec)
+		((VEC) new)->vec_count = size;
+
+	*pointer = new;
+	return new;
+}
+
+
+PYXIS_alloc_fini()
+{
+/**************************************
+ *
+ *	P Y X I S _ a l l o c _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of everything.
+ *
+ **************************************/
+	BLK *vector, *until;
+	register PLB pool;
+	register HNK hunks, hunk;
+
+	for (vector = pools->vec_object + pools->vec_count,
+		 until = pools->vec_object; --vector >= until;)
+		if (pool = (PLB) * vector)
+			for (hunks = pool->plb_hunks; hunk = hunks;) {
+				hunks = hunk->hnk_next;
+				PYXIS_free(hunk->hnk_address);
+			}
+}
+
+
+PYXIS_free(memory)
+	 SCHAR *memory;
+{
+/**************************************
+ *
+ *	P Y X I S _ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Give space back to system.
+ *
+ **************************************/
+
+	gds__free(memory);
+}
+
+
+PYXIS_alloc_init()
+{
+/**************************************
+ *
+ *	P Y X I S _ a l l o c _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the pool system.
+ *
+ **************************************/
+	SLONG temp_vector[20];
+	PLB pool;
+
+	pools = (VEC) temp_vector;
+	pools->vec_count = 1;
+	pools->vec_object[0] = NULL;
+
+	PYXIS_default_pool = PYXIS_permanent_pool = pool = PYXIS_pool();
+	pools = (VEC) PYXIS_alloc(pool, type_vec, 10);
+	pools->vec_count = 10;
+	pools->vec_object[0] = (BLK) pool;
+}
+
+
+UCHAR *PYXIS_malloc(size)
+	 SLONG size;
+{
+/**************************************
+ *
+ *	P Y X I S _ m a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get memory from system.
+ *
+ **************************************/
+	register UCHAR *memory;
+
+	if (memory = (UCHAR *) gds__alloc(size))
+		return memory;
+
+	IBERROR("memory gonzo");
+}
+
+
+PLB PYXIS_pool()
+{
+/**************************************
+ *
+ *	P Y X I S _ p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a new pool.  This is done by creating a tempory
+ *	pool block on the stack, then allocating a real pool block.
+ *	In short, by mirrors.
+ *
+ **************************************/
+	struct plb temp_pool;
+	register PLB pool;
+	register int pool_id;
+
+/* Start by assigning a pool id */
+
+	for (pool_id = 0; pool_id < pools->vec_count; pool_id++)
+		if (!(pools->vec_object[pool_id]))
+			break;
+
+	if (pool_id >= pools->vec_count)
+		PYXIS_extend(&pools, pool_id + 10);
+
+	pools->vec_object[pool_id] = (BLK) & temp_pool;
+	temp_pool.plb_free = NULL;
+	temp_pool.plb_hunks = NULL;
+	temp_pool.plb_pool_id = pool_id;
+	if (pool_id == 0)
+		PYXIS_permanent_pool = &temp_pool;
+
+	pool = (PLB) PYXIS_alloc(&temp_pool, type_plb);
+	pool->plb_pool_id = pool_id;
+	pool->plb_free = temp_pool.plb_free;
+	pool->plb_hunks = temp_pool.plb_hunks;
+	pools->vec_object[pool_id] = (BLK) pool;
+
+	if (pool_id == 0)
+		PYXIS_permanent_pool = pool;
+
+	return pool;
+}
+
+
+PYXIS_push(object, stack)
+	 BLK object;
+	 register LLS *stack;
+{
+/**************************************
+ *
+ *	P Y X I S _ p u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Push an object on an LLS stack.
+ *
+ **************************************/
+	register LLS node;
+	PLB pool;
+
+	pool = PYXIS_default_pool;
+
+	if (node = pool->plb_lls)
+		pool->plb_lls = node->lls_next;
+	else
+		node = (LLS) PYXIS_alloc(pool, type_lls);
+
+	node->lls_object = object;
+	node->lls_next = *stack;
+	*stack = node;
+}
+
+
+BLK PYXIS_pop(stack)
+	 register LLS *stack;
+{
+/**************************************
+ *
+ *	P Y X I S _ p o p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pop an object off a linked list stack.  Save the node for
+ *	further use.
+ *
+ **************************************/
+	register LLS node;
+	register PLB pool;
+
+	node = *stack;
+	pool = (PLB) pools->vec_object[node->lls_header.blk_pool_id];
+	*stack = node->lls_next;
+	node->lls_next = pool->plb_lls;
+	pool->plb_lls = node;
+
+	return node->lls_object;
+}
+
+
+PYXIS_release(block)
+	 register FRB block;
+{
+/**************************************
+ *
+ *	P Y X I S _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block to its pool.  If it is contiguous to
+ *	another free block, combine them.  Otherwise link it
+ *	into the free block linked list (kept in ascending order
+ *	of addresses).
+ *
+ **************************************/
+	register FRB prior, free;
+	FRB *ptr;
+	PLB pool;
+	int pool_id;
+
+	block->frb_header.blk_type = (SCHAR) type_frb;
+	pool_id = block->frb_header.blk_pool_id;
+
+	if (pool_id >= pools->vec_count ||
+		!(pool = (PLB) pools->vec_object[pool_id])) BUGCHECK("bad pool id");
+
+	prior = NULL;
+	for (ptr = &pool->plb_free; free = *ptr;
+		 prior = free, ptr =
+		 &free->frb_next) if ((SCHAR HUGE_PTR *) block <=
+							  (SCHAR HUGE_PTR *) free) break;
+
+	if ((SCHAR HUGE_PTR *) block == (SCHAR HUGE_PTR *) free)
+		BUGCHECK("block released twice");
+
+/* Merge block into list first, then try to combine blocks */
+
+	block->frb_next = free;
+	*ptr = block;
+
+/* Try to merge the free block with the next one down. */
+
+	if (free) {
+		if ((SCHAR HUGE_PTR *) block + block->frb_header.blk_length ==
+			(SCHAR HUGE_PTR *) free) {
+			block->frb_header.blk_length += free->frb_header.blk_length;
+			block->frb_next = free->frb_next;
+		}
+		else if ((SCHAR HUGE_PTR *) block + block->frb_header.blk_length >
+				 (SCHAR HUGE_PTR *) free)
+			BUGCHECK("released block overlaps following free block");
+	}
+
+/* Try to merge the block with the prior free block */
+
+	if (prior) {
+		if ((SCHAR HUGE_PTR *) prior + prior->frb_header.blk_length ==
+			(SCHAR HUGE_PTR *) block) {
+			prior->frb_header.blk_length += block->frb_header.blk_length;
+			prior->frb_next = block->frb_next;
+		}
+		else if ((SCHAR HUGE_PTR *) prior + prior->frb_header.blk_length ==
+				 (SCHAR HUGE_PTR *) block)
+			BUGCHECK("released block overlaps prior free block");
+	}
+
+}
+
+
+PYXIS_rlpool(pool)
+	 PLB pool;
+{
+/**************************************
+ *
+ *	P Y X I S _ r l p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a storage pool.  This involves nothing more than returning
+ *	hunks to the free hunk list.
+ *
+ **************************************/
+	register HNK hunk, hunks;
+
+	pools->vec_object[pool->plb_pool_id] = NULL;
+
+	for (hunks = pool->plb_hunks; hunk = hunks;) {
+		hunks = hunk->hnk_next;
+		gds__free(hunk->hnk_address);
+	}
+}
+
+
+static extend_pool(pool, size)
+	 PLB pool;
+	 int size;
+{
+/**************************************
+ *
+ *	e x t e n d _ p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend a pool by at least enough to accomodate a block
+ *	of given size.
+ *
+ **************************************/
+	register HNK hunk, *ptr;
+	register BLK block;
+
+	size =
+		(size + sizeof(struct hnk) + MIN_ALLOCATION - 1) & ~(MIN_ALLOCATION -
+															 1);
+	block = (BLK) PYXIS_malloc((SLONG) size);
+	block->blk_length = size;
+	block->blk_type = (SCHAR) type_frb;
+	block->blk_pool_id = pool->plb_pool_id;
+	PYXIS_release(block);
+
+	hunk = (HNK) PYXIS_alloc(pool, type_hnk);
+	hunk->hnk_address = (SCHAR *) block;
+	hunk->hnk_length = size;
+	hunk->hnk_next = pool->plb_hunks;
+	pool->plb_hunks = hunk;
+}
diff --git a/src/pyxis/altp.cpp b/src/pyxis/altp.cpp
new file mode 100644
index 0000000000..402c4bddbd
--- /dev/null
+++ b/src/pyxis/altp.cpp
@@ -0,0 +1,214 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		altp.c
+ *	DESCRIPTION:	Alternative entrypoints
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+
+STATUS isc_compile_map(STATUS * status_vector,
+					   void **form_handle,
+					   void **map_handle, SSHORT * length, SCHAR * map)
+{
+	return pyxis__compile_map(status_vector,
+							  form_handle, map_handle, length, map);
+}
+
+STATUS isc_compile_menu(STATUS * status_vector,
+						void **win_handle,
+						void **menu_handle, SSHORT * length, SCHAR * menu)
+{
+	if (status_vector) {
+		status_vector[0] = 1;
+		status_vector[1] = 0;
+	}
+	return pyxis__compile_menu(win_handle, menu_handle, length, menu);
+}
+
+STATUS isc_compile_sub_map(STATUS * status_vector,
+						   void **map_handle,
+						   void **submap_handle, SSHORT * length, SCHAR * map)
+{
+	return pyxis__compile_sub_map(status_vector,
+								  map_handle, submap_handle, length, map);
+}
+
+STATUS isc_create_window(STATUS * status_vector,
+						 void **win_handle,
+						 SSHORT * filename_length,
+						 SCHAR * filename, SSHORT * width, SSHORT * height)
+{
+	if (status_vector) {
+		status_vector[0] = 1;
+		status_vector[1] = 0;
+	}
+	return pyxis__create_window(win_handle,
+								filename_length, filename, width, height);
+}
+
+STATUS isc_delete_window(STATUS * status_vector, void **win_handle)
+{
+	if (status_vector) {
+		status_vector[0] = 1;
+		status_vector[1] = 0;
+	}
+	return pyxis__delete_window(win_handle);
+}
+
+STATUS isc_drive_form(STATUS * status_vector,
+					  void **db_handle,
+					  void **tra_handle,
+					  void **win_handle,
+					  void **map_handle, UCHAR * input, UCHAR * output)
+{
+	return pyxis__drive_form(status_vector,
+							 db_handle,
+							 tra_handle,
+							 win_handle, map_handle, input, output);
+}
+
+STATUS isc_drive_menu(STATUS * status_vector,
+					  void **win_handle,
+					  void **menu_handle,
+					  SSHORT * blr_length,
+					  SCHAR * blr,
+					  SSHORT * title_length,
+					  SCHAR * title,
+					  SSHORT * terminator,
+					  SSHORT * entree_length,
+					  SCHAR * entree, SLONG * entree_value)
+{
+	if (status_vector) {
+		status_vector[0] = 1;
+		status_vector[1] = 0;
+	}
+	return pyxis__drive_menu(win_handle,
+							 menu_handle,
+							 blr_length,
+							 blr,
+							 title_length,
+							 title,
+							 terminator, entree_length, entree, entree_value);
+}
+
+STATUS isc_form_delete(STATUS * status_vector, void **map_handle)
+{
+	if (status_vector) {
+		status_vector[0] = 1;
+		status_vector[1] = 0;
+	}
+	return pyxis__delete(map_handle);
+}
+
+STATUS isc_form_fetch(STATUS * status_vector,
+					  void **db_handle,
+					  void **tra_handle, void **map_handle, UCHAR * output)
+{
+	return pyxis__fetch(status_vector,
+						db_handle, tra_handle, map_handle, output);
+}
+
+STATUS isc_form_insert(STATUS * status_vector,
+					   void **db_handle,
+					   void **tra_handle, void **map_handle, UCHAR * input)
+{
+	return pyxis__insert(status_vector,
+						 db_handle, tra_handle, map_handle, input);
+}
+
+STATUS isc_get_entree(STATUS * status_vector,
+					  void **menu_handle,
+					  SSHORT * entree_length,
+					  SCHAR * entree,
+					  SLONG * entree_value, SSHORT * entree_end)
+{
+	if (status_vector) {
+		status_vector[0] = 1;
+		status_vector[1] = 0;
+	}
+	return pyxis__get_entree(menu_handle,
+							 entree_length, entree, entree_value, entree_end);
+}
+
+STATUS isc_initialize_menu(STATUS * status_vector, void **menu_handle)
+{
+	if (status_vector) {
+		status_vector[0] = 1;
+		status_vector[1] = 0;
+	}
+	return pyxis__initialize_menu(menu_handle);
+}
+
+STATUS isc_load_form(STATUS * status_vector,
+					 void **db_handle,
+					 void **tra_handle,
+					 void **form_handle, SSHORT * length, SCHAR * name)
+{
+	return pyxis__load_form(status_vector,
+							db_handle, tra_handle, form_handle, length, name);
+}
+
+STATUS isc_menu(STATUS * status_vector,
+				void **win_handle,
+				void **menu_handle, SSHORT * length, SCHAR * source)
+{
+	if (status_vector) {
+		status_vector[0] = 1;
+		status_vector[1] = 0;
+	}
+	return pyxis__menu(win_handle, menu_handle, length, source);
+}
+
+STATUS isc_pop_window(STATUS * status_vector, void **win_handle)
+{
+	if (status_vector) {
+		status_vector[0] = 1;
+		status_vector[1] = 0;
+	}
+	return pyxis__pop_window(win_handle);
+}
+
+STATUS isc_put_entree(STATUS * status_vector,
+					  void **menu_handle,
+					  SSHORT * entree_length,
+					  SCHAR * entree, SLONG * entree_value)
+{
+	if (status_vector) {
+		status_vector[0] = 1;
+		status_vector[1] = 0;
+	}
+	return pyxis__put_entree(menu_handle,
+							 entree_length, entree, entree_value);
+}
+
+STATUS isc_reset_form(STATUS * status_vector, void **map_handle)
+{
+	return pyxis__reset_form(status_vector, map_handle);
+}
+
+STATUS isc_suspend_window(STATUS * status_vector, void **win_handle)
+{
+	if (status_vector) {
+		status_vector[0] = 1;
+		status_vector[1] = 0;
+	}
+	return pyxis__suspend_window(win_handle);
+}
diff --git a/src/pyxis/attributes.h b/src/pyxis/attributes.h
new file mode 100644
index 0000000000..e4f0561e42
--- /dev/null
+++ b/src/pyxis/attributes.h
@@ -0,0 +1,86 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		attributes.h
+ *	DESCRIPTION:	Attribute names
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+/* Attributes that directly affect display */
+
+ATT (att_inactive)
+ATT (att_display_x)
+ATT (att_display_y)
+ATT (att_height)
+ATT (att_width)
+ATT (att_reverse_video)
+ATT (att_bold)
+ATT (att_underline)
+ATT (att_blank)
+ATT (att_box)
+ATT (att_end_display)
+
+/* Attributes that don't change display unless
+   display attribute */
+
+ATT (att_data)
+ATT (att_field_name)
+ATT (att_field_id)
+ATT (att_relation_name)
+ATT (att_relation_id)
+ATT (att_rse)
+ATT (att_literal_string)
+ATT (att_value_string)
+ATT (att_fill_string)
+ATT (att_dtype)
+ATT (att_scale)
+ATT (att_length)
+ATT (att_label)
+ATT (att_field)
+ATT (att_entree)
+ATT (att_entree_value)
+ATT (att_menu)
+ATT (att_form)
+ATT (att_temp_data)
+ATT (att_insert_right)
+ATT (att_tag)
+ATT (att_picture)
+ATT (att_parameter_offset)
+ATT (att_edit_string)
+ATT (att_parameter_number)
+ATT (att_update_data)
+ATT (att_view)
+ATT (att_wakeup_flag)
+ATT (att_wakeup_string)
+ATT (att_updatable_flag)
+ATT (att_terminator)
+ATT (att_must_fill)
+ATT (att_upcase)
+ATT (att_temp)
+ATT (att_scroll_x)
+ATT (att_scroll_y)
+ATT (att_border)
+ATT (att_index)
+ATT (att_segment_length)
+ATT (att_prototype)
+ATT (att_reverse_for_update)
+ATT (att_enumeration)
+ATT (att_default_data)
+ATT (att_datatype)
+ATT (att_current_index)
diff --git a/src/pyxis/blk.cpp b/src/pyxis/blk.cpp
new file mode 100644
index 0000000000..bb4d18281b
--- /dev/null
+++ b/src/pyxis/blk.cpp
@@ -0,0 +1,36 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		blk.c
+ *	DESCRIPTION:	Block size tables
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../pyxis/everything.h"
+
+#define BLKDEF(type, root, tail) sizeof (struct root), tail,
+struct {
+	SSHORT typ_root_length;
+	SSHORT typ_tail_length;
+} PYXIS_block_sizes[] = {
+	0, 0,
+#include "../pyxis/blk.h"
+0};
+
+#undef BLKDEF
diff --git a/src/pyxis/blk.h b/src/pyxis/blk.h
new file mode 100644
index 0000000000..ed95cdf7e9
--- /dev/null
+++ b/src/pyxis/blk.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		blk.h
+ *	DESCRIPTION:	Block type definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+BLKDEF (type_lls, lls, 0)
+BLKDEF (type_frb, frb, 0)
+BLKDEF (type_hnk, hnk, 0)
+BLKDEF (type_plb, plb, 0)
+BLKDEF (type_vec, vec, sizeof (((VEC) 0)->vec_object[0]))
+
+BLKDEF (type_att, att, 1)
+BLKDEF (type_obj, p_obj, 0)
+BLKDEF (type_scr, scr, sizeof (((SCR) 0)->scr_screen [0]))
+BLKDEF (type_win, win, 0)
+BLKDEF (type_str, str, 1)
+BLKDEF (type_pic, pic, 0)
+BLKDEF (type_map, map, sizeof (((MAP) 0)->map_rpt [0]))
+BLKDEF (type_menu, menu, 0)
diff --git a/src/pyxis/cdm.cpp b/src/pyxis/cdm.cpp
new file mode 100644
index 0000000000..7b4ef1d79c
--- /dev/null
+++ b/src/pyxis/cdm.cpp
@@ -0,0 +1,743 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		cdm.c
+ *	DESCRIPTION:	Curses Display Manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <curses.h>
+#undef DEBUG_CURSES
+#ifdef DEBUG_CURSES
+#include "../jrd/ib_stdio.h"
+#endif
+#include "../pyxis/pyxis.h"
+#include "../pyxis/scr.h"
+
+/* 
+   Unfortunately, curses tends to be a very buggy system, so we have to provide
+   what workarounds we can. Two categories of problems have been encountered:
+   1. requiring initscr/endwin when all we want to do is temporarily stop using forms.
+      this is triggered by defining DISABLE_BUG
+   2. requiring that after endwin we explicitly return stdin to nonbuffered mode.
+      this is triggered by define BUFF_MODE_BUG & DISABLE_BUG
+*/
+
+#ifdef hpux
+#define DISABLE_BUG
+#endif
+
+#ifdef sun
+#define DISABLE_BUG
+#endif
+
+#ifdef sgi
+#define DISABLE_BUG
+#define BUFF_MODE_BUG
+#endif
+
+#ifdef DELTA
+#define DISABLE_BUG
+#define BUFF_MODE_BUG
+#endif
+
+#ifdef IMP
+#define DISABLE_BUG
+#define BUFF_MODE_BUG
+#endif
+
+#ifdef DGUX
+#define DISABLE_BUG
+#define BUFF_MODE_BUG
+#endif
+
+#ifdef DEBUG_CURSES
+static FILE *log_file;
+#endif
+
+#ifndef NETBSD
+#define getmaxx(s) ((s)->_maxx)
+#define getmaxy(s) ((s)->_maxy)
+#endif
+
+static USHORT disabled = 1;
+static USHORT debug_curses = 0;
+
+static int clear_window(), disable(), fini(), get_char(), text(),
+update_window();
+
+typedef struct seq {
+	UCHAR seq_key;
+	UCHAR *seq_sequence;
+} SEQ;
+
+static SEQ escape_sequences[] = {
+	(UCHAR) C_UP, (UCHAR *) "[A",
+	(UCHAR) C_DOWN, (UCHAR *) "[B",
+	(UCHAR) C_RIGHT, (UCHAR *) "[C",
+	(UCHAR) C_LEFT, (UCHAR *) "[D",
+	(UCHAR) C_ENTER, (UCHAR *) "[222z",	/* R15 */
+	(UCHAR) C_PF1, (UCHAR *) "[208z",	/* R1  */
+	(UCHAR) C_PF2, (UCHAR *) "[209z",	/* R2  */
+	(UCHAR) C_PF3, (UCHAR *) "[210z",	/* R3  */
+	(UCHAR) C_PF4, (UCHAR *) "[211z",	/* R4  */
+	(UCHAR) C_PF5, (UCHAR *) "[212z",	/* R5  */
+	(UCHAR) C_PF6, (UCHAR *) "[213z",	/* R6  */
+	(UCHAR) C_PF7, (UCHAR *) "[214z",	/* R7  */
+	(UCHAR) C_UP, (UCHAR *) "[215z",	/* R8 - up arrow */
+	(UCHAR) C_PF8, (UCHAR *) "[216z",	/* R9  */
+	(UCHAR) C_LEFT, (UCHAR *) "[217z",	/* R10- left arrow */
+	(UCHAR) C_PF9, (UCHAR *) "[218z",	/* R11 */
+	(UCHAR) C_RIGHT, (UCHAR *) "[219z",	/* R12 - right arrow */
+	(UCHAR) C_DOWN, (UCHAR *) "[221z",	/* R14 - down arrow */
+	(UCHAR) C_ENTER, (UCHAR *) "[250z",	/* ENTER */
+	NULL, NULL
+};
+
+#ifdef CURSES_KEYPAD
+typedef struct kpd {
+	UCHAR kpd_key;
+	int kpd_value;
+} KPD;
+
+static KPD keypad_values[] = {
+	(UCHAR) C_UP, KEY_UP,
+	(UCHAR) C_DOWN, KEY_DOWN,
+	(UCHAR) C_RIGHT, KEY_RIGHT,
+	(UCHAR) C_LEFT, KEY_LEFT,
+	(UCHAR) C_PF1, KEY_F(1),
+	(UCHAR) C_PF2, KEY_F(2),
+	(UCHAR) C_PF3, KEY_F(3),
+	(UCHAR) C_PF4, KEY_F(4),
+	(UCHAR) C_PF5, KEY_F(5),
+	(UCHAR) C_PF6, KEY_F(6),
+	(UCHAR) C_PF7, KEY_F(7),
+	(UCHAR) C_PF8, KEY_F(8),
+	(UCHAR) C_PF9, KEY_F(9),
+	(UCHAR) C_SCROLL_TOP, KEY_SR,
+	(UCHAR) C_SCROLL_BOTTOM, KEY_SF,
+	(UCHAR) C_ENTER, KEY_HOME,
+	(UCHAR) C_DELETE, KEY_DC,
+	NULL, NULL
+};
+#endif
+
+#ifdef CURSES_KEYPAD
+static struct knm keyname_table[] = {
+	{C_PF1, "<F1>"},
+	{C_PF2, "<F2>"},
+	{C_PF3, "<F3>"},
+	{C_PF4, "<F4>"},
+	{C_PF5, "<F5>"},
+	{C_PF6, "<F6>"},
+	{C_PF7, "<F7>"},
+	{C_PF8, "<F8>"},
+	{C_PF9, "<R11>"},
+	{C_ENTER, "<HOME>"},
+	{C_LEFT, "<left arrow>"},
+	{C_RIGHT, "<right arrow>"},
+	{C_UP, "<up arrow>"},
+	{C_DOWN, "<down arrow>"},
+	{C_DELETE, "<DELETE>"},
+	{C_SCROLL_TOP, "<control-T>"},
+	{C_SCROLL_BOTTOM, "<control-B>"},
+	{C_ERASE, "<control-U>"},
+	{C_DELETE_NEXT, "<control-F>"},
+	{C_INSERT_OVERSTRIKE, "<control-A>"},
+	{C_GOTO_START, "<control-H>"},
+	{C_GOTO_END, "<control-E>"},
+	{C_EDIT, "<control-G>"},
+	{(UCHAR) 0, "<unknown key>"},
+};
+
+#else
+static struct knm keyname_table[] = {
+	{C_PF1, "<R1>"},
+	{C_PF2, "<R2>"},
+	{C_PF3, "<R3>"},
+	{C_PF4, "<R4>"},
+	{C_PF5, "<R5>"},
+	{C_PF6, "<R6>"},
+	{C_PF7, "<R7>"},
+	{C_PF8, "<R9>"},
+	{C_PF9, "<R11>"},
+	{C_ENTER, "<ENTER> or <R15>"},
+	{C_LEFT, "<R10>"},
+	{C_RIGHT, "<R12>"},
+	{C_UP, "<R8>"},
+	{C_DOWN, "<R14>"},
+	{C_DELETE, "<DELETE>"},
+	{C_SCROLL_TOP, "<control-T>"},
+	{C_SCROLL_BOTTOM, "<control-B>"},
+	{C_ERASE, "<control-U>"},
+	{C_DELETE_NEXT, "<control-F>"},
+	{C_INSERT_OVERSTRIKE, "<control-A>"},
+	{C_GOTO_START, "<control-H>"},
+	{C_GOTO_END, "<control-E>"},
+	{C_EDIT, "<control-G>"},
+	{(UCHAR) 0, "<unknown key>"},
+};
+#endif
+
+static UCHAR key_pad[256], keypad_equiv[] = {
+	C_ENTER, 'M',
+	C_PF1, 'P',
+	C_PF2, 'Q',
+	C_PF3, 'R',
+	C_PF4, 'S',
+	'-', 'm',
+	',', 'l',
+	'.', 'n',
+	'0', 'p',
+	'1', 'q',
+	'2', 'r',
+	'3', 's',
+	'4', 't',
+	'5', 'u',
+	'6', 'v',
+	'7', 'w',
+	'8', 'x',
+	'9', 'y',
+	0, 0
+};
+
+
+CDM_create_window(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	C D M _ c r e a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new display window.
+ *
+ **************************************/
+	UCHAR *p;
+
+	window->win_keyname_table = keyname_table;
+
+/* Populate window with action routines */
+
+	window->win_clear = clear_window;
+	window->win_disable = disable;
+	window->win_fini = fini;
+	window->win_getchar = get_char;
+	window->win_text = text;
+	window->win_update = update_window;
+
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		if (!(log_file = fopen("pyxis.log", "w")))
+			printf("ERROR opening log file!\n");
+#endif
+
+/*
+ work around bugs in HP & SUN curses by having enable/disable do
+ initscr/endwin.
+*/
+#ifndef DISABLE_BUG
+	initscr();
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		fprintf(log_file, "initscr\n");
+#endif
+#ifdef CURSES_TERM
+	saveterm();
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		fprintf(log_file, "saveterm\n");
+#endif
+#endif
+#endif
+
+	enable(window);
+
+	window->win_width = (window->win_width) ?
+		MIN(getmaxx(stdscr), window->win_width) : getmaxx(stdscr);
+
+	window->win_height = (window->win_height) ?
+		MIN(getmaxy(stdscr), window->win_height) : getmaxy(stdscr);
+
+	for (p = keypad_equiv; *p; p += 2)
+		key_pad[p[1]] = p[0];
+
+	return SUCCESS;
+}
+
+
+static clear_window(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	c l e a r _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear out a window.
+ *
+ **************************************/
+
+	enable();
+	clear();
+	wrefresh(stdscr);
+#ifdef DEBUG_CURSES
+	if (debug_curses) {
+		fprintf(log_file, "clear\n");
+		fprintf(log_file, "wrefresh\n");
+	}
+#endif
+}
+
+
+static disable(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make window disappear.
+ *
+ **************************************/
+#ifdef BUFF_MODE_BUG
+	SCHAR buf[BUFSIZ];
+#endif
+
+	if (disabled)
+		return;
+
+	wmove(stdscr, getmaxy(stdscr) - 1, 0);
+	clear();
+	wrefresh(stdscr);
+	wstandend(stdscr);
+
+#ifdef DEBUG_CURSES
+	if (debug_curses) {
+		fprintf(log_file, "wmove %d %d\n", stdscr->_maxy - 1, 0);
+		fprintf(log_file, "clear\n");
+		fprintf(log_file, "wrefresh\n");
+		fprintf(log_file, "wstandend\n");
+	}
+#endif
+
+#ifdef CURSES_TERM
+
+	resetterm();
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		fprintf(log_file, "resetterm\n");
+#endif
+
+#else
+
+	echo();
+	nocrmode();
+#ifdef DEBUG_CURSES
+	if (debug_curses) {
+		fprintf(log_file, "echo\n");
+		fprintf(log_file, "nocrmode\n");
+	}
+#endif
+#ifdef CURSES_KEYPAD
+	keypad(stdscr, FALSE);
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		fprintf(log_file, "keypad FALSE\n");
+#endif
+#endif
+
+#endif
+
+#ifdef DISABLE_BUG
+/*
+ work around bugs in curses by having enable/disable do
+ initscr/endwin.
+*/
+	endwin();
+#ifdef BUFF_MODE_BUG
+	setvbuf(stdout, buf, _IOLBF, BUFSIZ);
+#endif
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		fprintf(log_file, "endwin\n");
+#endif
+#endif
+
+	disabled = TRUE;
+}
+
+
+static enable(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	e n a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enable forms package.
+ *
+ **************************************/
+
+	if (!disabled)
+		return;
+
+#ifdef DISABLE_BUG
+/*
+ work around bugs in curses by having enable/disable do
+ initscr/endwin.
+*/
+	initscr();
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		fprintf(log_file, "initscr\n");
+#endif
+#endif
+
+#ifdef CURSES_TERM
+
+	fixterm();
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		fprintf(log_file, "fixterm\n");
+#endif
+
+#else
+
+	noecho();
+	crmode();
+#ifdef DEBUG_CURSES
+	if (debug_curses) {
+		fprintf(log_file, "noecho\n");
+		fprintf(log_file, "crmode\n");
+	}
+#endif
+
+#endif
+
+#ifdef CURSES_KEYPAD
+	keypad(stdscr, TRUE);
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		fprintf(log_file, "keypad TRUE\n");
+#endif
+#endif
+
+	clear();
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		fprintf(log_file, "clear\n");
+#endif
+	disabled = FALSE;
+}
+
+
+static fini(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sign off the screen package.
+ *
+ **************************************/
+
+	disable(window);
+	endwin();
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		fprintf(log_file, "endwin\n");
+#endif
+}
+
+
+static get_char(window, x, y)
+	 WIN window;
+{
+/**************************************
+ *
+ *	g e t _ c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a character from the user.
+ *
+ **************************************/
+	int n;
+	SEQ *sequence;
+	UCHAR buffer[16], *p, *q, c;
+
+/***
+position (window, x, y);
+fflush (window->win_output);
+***/
+
+	for (;;) {
+		if (!(n = get_input(window, buffer)))
+			fprintf(stderr, "read failed\n");
+		if (n == 1)
+			switch (buffer[0]) {
+			case '\n':
+			case '\r':
+				return '\n';
+			case 'T' - 0100:
+				return C_SCROLL_TOP;
+			case 'B' - 0100:
+				return C_SCROLL_BOTTOM;
+			case 'Z' - 0100:
+				return C_EOF;
+
+/* Edit mode */
+
+			case 'F' - 0100:
+				return C_DELETE_NEXT;
+			case 'G' - 0100:
+				return C_EDIT;
+			case 'H' - 0100:
+				return C_GOTO_START;
+			case 'E' - 0100:
+				return C_GOTO_END;
+			case 'A' - 0100:
+				return C_INSERT_OVERSTRIKE;
+			case 'U' - 0100:
+				return C_ERASE;
+			default:
+				return buffer[0];
+			}
+		buffer[n] = 0;
+		for (sequence = escape_sequences; q = sequence->seq_sequence;
+			 sequence++)
+			for (p = buffer + 1; *p == *q; p++, q++)
+				if (!*p)
+					return sequence->seq_key;
+	}
+}
+
+
+
+static get_input(window, buffer)
+	 WIN window;
+	 UCHAR *buffer;
+{
+/**************************************
+ *
+ *	g e t _ i n p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a single character or escape sequence from terminal.
+ *	Return number of characters read.
+ *
+ **************************************/
+#ifdef CURSES_KEYPAD
+	KPD *kv;
+#endif
+	UCHAR *p;
+	int c;
+
+	p = buffer;
+	c = read_char(window);
+
+	if (!c)
+		return 0;
+
+#ifdef CURSES_KEYPAD
+	if (c > 0400) {
+		for (kv = keypad_values; kv->kpd_value; kv++)
+			if (kv->kpd_value == c) {
+				*p = kv->kpd_key;
+				return 1;
+			}
+		/* treat everything else as a tab */
+		*p = '\t';
+		return 1;
+	}
+#endif
+
+	if (c != 033) {
+		*p = c;
+		return 1;
+	}
+
+/* Escape or control sequence coming in */
+
+	*p++ = c;
+	*p++ = c = read_char(window);
+
+/* If this a keypad character, handling it specially */
+
+	if (c == 'O') {
+		c = read_char(window);
+		buffer[0] = key_pad[c];
+		return 1;
+	}
+
+/* Handle escape sequences and control sequences slightly differently */
+
+	if (c >= ' ' && c < '/')
+		for (;;) {
+			*p++ = c = read_char(window);
+			if (c >= '0')
+				break;
+		}
+	else
+		for (;;) {
+			*p++ = c = read_char(window);
+			if (c >= '@')
+				break;
+		}
+
+	return p - buffer;
+}
+
+
+static read_char(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	r e a d _ c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a character from the user.
+ *
+ **************************************/
+	int c;
+
+	if (disabled)
+		enable(window);
+
+	c = wgetch(stdscr);
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		fprintf(log_file, "read %d\n", c);
+#endif
+	return c;
+}
+
+
+static text(window, string, length, x, y, mode)
+	 WIN window;
+	 UCHAR *string;
+	 USHORT length, x, y;
+	 USHORT mode;
+{
+/**************************************
+ *
+ *	t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display some text in a given rendition.
+ *
+ **************************************/
+	UCHAR *p, *end;
+
+	for (p = string, end = p + length; p < end; p++)
+		switch (*p) {
+		case C_UL_CORNER:
+		case C_UR_CORNER:
+		case C_LL_CORNER:
+		case C_LR_CORNER:
+			*p = '+';
+			break;
+
+		case C_HORZ_BAR:
+			*p = '-';
+			break;
+
+		case C_VERT_BAR:
+			*p = '|';
+			break;
+		}
+
+	if (disabled)
+		enable(window);
+
+	string[length] = 0;
+
+	if (mode & SCR_reverse) {
+#ifdef DEBUG_CURSES
+		if (debug_curses)
+			fprintf(log_file, "wstandout\n");
+#endif
+		wstandout(stdscr);
+	}
+
+	mvwaddstr(stdscr, y, x, string);
+#ifdef DEBUG_CURSES
+	if (debug_curses)
+		fprintf(log_file, "mvwaddstr %d %d %s\n", y, x, string);
+#endif
+
+	if (mode & SCR_reverse) {
+#ifdef DEBUG_CURSES
+		if (debug_curses)
+			fprintf(log_file, "wstandend\n");
+#endif
+		wstandend(stdscr);
+	}
+}
+
+
+static update_window(window, x, y)
+	 WIN window;
+	 int x, y;
+{
+/**************************************
+ *
+ *	u p d a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update a window leaving the cursor at a given object location.
+ *
+ **************************************/
+
+	if (disabled)
+		enable(window);
+
+	wmove(stdscr, y, x);
+	wrefresh(stdscr);
+#ifdef DEBUG_CURSES
+	if (debug_curses) {
+		fprintf(log_file, "wrefresh\n");
+		fprintf(log_file, "wmove %d %d\n", y, x);
+	}
+#endif
+}
diff --git a/src/pyxis/curses_play.cpp b/src/pyxis/curses_play.cpp
new file mode 100644
index 0000000000..7604d69154
--- /dev/null
+++ b/src/pyxis/curses_play.cpp
@@ -0,0 +1,135 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include <curses.h>
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+
+SCHAR get_line();
+
+main(argc, argv)
+	 int argc;
+	 SCHAR *argv[];
+{
+	int i;
+	SSHORT x, y, sw_read;
+	FILE *log_file;
+	SCHAR log_file_name[128], line[128], *command, *s;
+
+	sw_read = 0;
+	if (argc > 1)
+		strcpy(log_file_name, argv[1]);
+	else {
+		fprintf(stderr, "Must give log file name.\n");
+		exit(1);
+	}
+	if (argc > 2) {
+		s = argv[2];
+		if ((*s++ == '-') && ((*s == 'r') || (*s == 'R')))
+			sw_read = 1;
+		else {
+			fprintf(stderr, "unrecognized switch");
+			exit(1);
+		}
+	}
+	if (!(log_file = fopen(log_file_name, "r"))) {
+		fprintf(stderr, "Error opening log file\n");
+		exit(1);
+	}
+
+	while (get_line(log_file, line) != EOF) {
+		command = strtok(line, " ");
+		if (!strcmp(command, "initscr"))
+			initscr();
+		else if (!strcmp(command, "endwin"))
+			endwin();
+		else if (!strcmp(command, "saveterm")) {
+			saveterm();
+		}
+		else if (!strcmp(command, "resetterm")) {
+			resetterm();
+		}
+		else if (!strcmp(command, "fixterm")) {
+			fixterm();
+		}
+		else if (!strcmp(command, "clear"))
+			clear();
+		else if (!strcmp(command, "echo"))
+			echo();
+		else if (!strcmp(command, "noecho"))
+			noecho();
+		else if (!strcmp(command, "crmode"))
+			crmode();
+		else if (!strcmp(command, "nocrmode"))
+			nocrmode();
+		else if (!strcmp(command, "keypad")) {
+			if (!strcmp(strtok(NULL, " "), "TRUE"))
+				keypad(stdscr, TRUE);
+			else
+				keypad(stdscr, FALSE);
+		}
+		else if (!strcmp(command, "wrefresh"))
+			wrefresh(stdscr);
+		else if (!strcmp(command, "wstandend"))
+			wstandend(stdscr);
+		else if (!strcmp(command, "wstandout"))
+			wstandout(stdscr);
+		else if (!strcmp(command, "wmove")) {
+			y = atoi(strtok(NULL, " "));
+			x = atoi(strtok(NULL, " "));
+			wmove(stdscr, y, x);
+		}
+		else if (!strcmp(command, "mvwaddstr")) {
+			command = strtok(NULL, " ");
+			y = atoi(command);
+			command = strtok(NULL, " ");
+			x = atoi(command);
+			command += strlen(command) + 1;
+			mvwaddstr(stdscr, y, x, command);
+		}
+		else if (!strcmp(command, "input")) {
+			printf("enter something: ");
+			get_line(stdin, line);
+		}
+		else if (!strcmp(command, "read")) {
+			if (sw_read) {
+				i = wgetch(stdscr);
+				printf("read %d\n", i);
+			}
+			else
+				sleep(5);
+		}
+		else
+			fprintf(stderr, "unknown command %s\n", command);
+	}
+	fclose(log_file);
+}
+
+SCHAR get_line(f, s)
+	 FILE *f;
+	 SCHAR *s;
+{
+	SCHAR c;
+
+	while (((c = getc(f)) != '\n') && (c != EOF))
+		*s++ = c;
+
+	*s = 0;
+
+	return c;
+}
diff --git a/src/pyxis/debug.cpp b/src/pyxis/debug.cpp
new file mode 100644
index 0000000000..192f60fd69
--- /dev/null
+++ b/src/pyxis/debug.cpp
@@ -0,0 +1,164 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		debug.c
+ *	DESCRIPTION:	Form debugging stuff
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: debug.cpp,v 1.1.1.1 2001-05-23 13:26:33 tamlin Exp $
+ * Revision 1.2  2000/11/24 17:23:02  fsg
+ * Another little fix in pyxis/debug.c that nobody
+ * ever will notice :-)
+ * Will print correct names for this forms stuff now.
+ *
+ */
+
+#include "../pyxis/pyxis.h"
+#include "../pyxis/scr.h"
+
+#define INDENT	2
+
+extern OBJ PYXIS_get_attribute_value();
+
+/* changed "name" to #name to get what was intended
+   FSG 24.Nov.2000
+*/
+#define ATT(name)	#name,
+static SCHAR *attribute_names[] = {
+	"att_any = 0",
+#include "../pyxis/attributes.h"
+	"****"
+};
+#undef ATT
+
+static ATT_N special_attributes[] = {
+	att_display_x,
+	att_display_y,
+	att_scroll_x,
+	att_scroll_y,
+	att_width,
+	att_height,
+	att_border,
+	att_index,
+	att_inactive,
+	att_reverse_video,
+	att_bold,
+	att_underline,
+	att_box,
+	att_blank,
+	att_insert_right,
+	att_updatable_flag,
+	att_wakeup_flag,
+	att_reverse_for_update,
+	att_any
+};
+
+
+
+
+PYXIS_print(object, level)
+	 OBJ object;
+	 USHORT level;
+{
+/**************************************
+ *
+ *	P Y X I S _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SSHORT l;
+	int value;
+	ATT_N *ptr;
+	ATT attribute;
+
+	for (l = level; l; --l)
+		putchar(' ');
+
+	printf("%x object (%x)\n", object, object->obj_flags);
+	level += INDENT;
+
+	for (ptr = special_attributes; *ptr != att_any; ptr++)
+		if (value = GET_VALUE(object, *ptr)) {
+			for (l = level; l; --l)
+				putchar(' ');
+			printf("[ %s = %d ]\n", attribute_names[(int) *ptr], value);
+		}
+
+	for (attribute = object->obj_attributes; attribute;
+		 attribute = attribute->att_next) {
+		for (l = level; l; --l)
+			putchar(' ');
+		printf(attribute_names[(int) attribute->att_name]);
+		switch (attribute->att_type) {
+		case attype_numeric:
+			printf(" = %d\n", attribute->att_value);
+			break;
+
+		case attype_string:
+			printf(" = \"%s\"\n", attribute->att_value);
+			break;
+
+		case attype_other:
+			printf(" = %x\n", attribute->att_value);
+			break;
+
+		case attype_object:
+			printf("\n");
+			PYXIS_print(attribute->att_value, level + INDENT);
+			break;
+		}
+	}
+}
+
+
+PYXIS_print_screen(screen, text)
+	 SCR screen;
+	 UCHAR *text;
+{
+/**************************************
+ *
+ *	P Y X I S _ p r i n t _ s c r e e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a logical screen for debugging purposes.
+ *
+ **************************************/
+	UCHAR buffer[1024], *p, *last;
+	USHORT x, y, *data, *end;
+
+	printf("%s\n++++++++++\n", text);
+
+	for (y = 0; y < screen->scr_height; y++) {
+		data = screen->scr_screen + y * screen->scr_line_length + 1;
+		end = data + screen->scr_width;
+		p = last = buffer;
+		while (data < end) {
+			*p = *data++;
+			if (*p++ != ' ')
+				last = p;
+		}
+		*last = 0;
+		printf("%s\n", buffer);
+	}
+
+	printf("----------\n");
+}
diff --git a/src/pyxis/edit.cpp b/src/pyxis/edit.cpp
new file mode 100644
index 0000000000..bd85da9c3d
--- /dev/null
+++ b/src/pyxis/edit.cpp
@@ -0,0 +1,1894 @@
+/*********** Preprocessed module -- do not edit ***************/
+/*********** Preprocessed module -- do not edit ***************/
+/*********** Preprocessed module -- do not edit ***************/
+/*********** Preprocessed module -- do not edit ***************/
+/*********** Preprocessed module -- do not edit ***************/
+/***************** gpre version HU-I6.0.0.92 **********************/
+/*************  history ************
+*
+*       COMPONENT: PYXIS        MODULE: EDIT.E
+*       generated by Marion V2.5     2/6/90
+*       from dev              db        on 24-FEB-1994
+*****************************************************************
+*
+*       15601   katz    24-FEB-1994
+*       Use STATUS to declare status vectors instead of SLONG
+*
+*       13392   katz    16-OCT-1993
+*       Move away from C language datatypes
+*
+*       7944    droot   29-MAY-1992
+*       clean up
+*
+*       6652    SCHULDY 15-JUL-1991
+*       Allow moving items off screen
+*
+*       5779    JAS     29-JAN-1991
+*       Clean up types for GET_VALUE for port to Cray
+*
+*/
+
+/*
+ *      PROGRAM:        PYXIS Form Package
+ *      MODULE:         edit.e
+ *      DESCRIPTION:    Form Editor
+ *
+ * copyright (c) 1986, 1990 by Interbase Software Corporation.
+ */
+
+#include "source/jrd/gds.h"
+#include "source/pyxis/pyxis.h"
+#include "source/pyxis/phase2.h"
+
+/***
+#define DEBUG 1
+***/
+
+#define INITIAL_MAX     32000
+
+/*DATABASE
+    db = STATIC "forms.gdb";*/
+/**** GDS Preprocessor Definitions ****/
+#ifndef JRD_IBASE_H
+#include <ibase.h>
+#endif
+
+static ISC_QUAD isc_blob_null = { 0, 0 };	/* initializer for blobs */
+static isc_form_handle isc_2;	/* form SIZE_FORM */
+static isc_form_handle isc_14;	/* form FORM_NAME */
+static isc_form_handle isc_22;	/* form FIELD_EDIT */
+static isc_form_handle isc_49;	/* form FIELD_NAME */
+static isc_form_handle isc_56;	/* form ENUMERATIONS */
+static long *gds__null = 0;		/* dummy status vector */
+static isc_db_handle db = 0;	/* database handle */
+
+static isc_tr_handle gds__trans = 0;	/* default transaction handle */
+static long
+  isc_status[20],				/* status vector */
+  isc_status2[20];				/* status vector */
+static long
+  isc_array_length,				/* array return size */
+  SQLCODE;						/* SQL status code */
+static isc_win_handle isc_window;	/* window handle */
+static short
+  isc_width = 80,				/* window width */
+  isc_height = 24;				/* window height */
+static isc_req_handle isc_0 = 0;	/* request handle */
+
+static short
+  isc_1l = 68;
+static char
+  isc_1[] = {
+	1, 4, 0, 8, 0, 8, 0, 8, 0, 7, 0, 7, 0, 7, 0, 7, 0, 7, 0, 40, 1, 0, 8, 2,
+	6, 'H', 'E', 'I',
+	'G', 'H', 'T', 0, 0, 5, 0, 2, 5, 'W', 'I', 'D', 'T', 'H', 1, 0, 6, 0, 2,
+	12, 'O',
+	'U', 'T', 'L', 'I', 'N', 'E', '_', 'F', 'O', 'R', 'M', 7, 0, 4, 0, 5, 3,
+	0, -1
+};								/* end of form_map string for request isc_1 */
+
+static isc_req_handle isc_12 = 0;	/* request handle */
+
+static short
+  isc_13l = 27;
+static char
+  isc_13[] = {
+	1, 4, 0, 2, 0, 7, 0, 40, 31, 0, 9, 2, 9, 'F', 'O', 'R', 'M', '_', 'N',
+	'A', 'M',
+	'E', 1, 0, 0, 0, -1
+};								/* end of form_map string for request isc_13 */
+
+static short
+  isc_18l = 67;
+static char
+  isc_18[] = {
+	1, 6, 2, 17, 'R', 101, 118, 101, 114, 115, 101, 32, 111, 112, 116, 105,
+	111,
+	110, 115, 58, 32, 3, 1, 6, 'I', 'N', 'V', 'E', 'R', 'T', 3, 2, 17, 'R',
+	'E', 'V',
+	'E', 'R', 'S', 'E', 32, 'O', 'N', 32, 'U', 'P', 'D', 'A', 'T', 'E', 3, 3,
+	6,
+	'N', 'O', 'R', 'M', 'A', 'L', 3, 4, 4, 'E', 120, 105, 116, -1
+};								/* end of blr string for request isc_18 */
+
+static short
+  isc_19l = 53;
+static char
+  isc_19[] = {
+	1, 6, 2, 14, 'M', 111, 118, 101, 32, 111, 112, 116, 105, 111, 110, 115,
+	58, 32,
+	3, 1, 4, 'I', 'T', 'E', 'M', 3, 2, 4, 'S', 'O', 'M', 'E', 3, 3, 4, 'M',
+	'O', 'S',
+	'T', 3, 4, 3, 'A', 'L', 'L', 3, 5, 4, 'E', 120, 105, 116, -1
+};								/* end of blr string for request isc_19 */
+
+static isc_req_handle isc_20 = 0;	/* request handle */
+
+static short
+  isc_21l = 191;
+static char
+  isc_21[] = {
+	1, 4, 0, 22, 0, 40, 32, 0, 40, 8, 0, 7, 0, 7, 0, 7, 0, 7, 0, 7, 0, 7, 0,
+	7, 0, 7, 0, 7,
+	0, 7, 0, 7, 0, 7, 0, 7, 0, 7, 0, 7, 0, 40, 31, 0, 40, 31, 0, 40, -1, 0,
+	40, 1, 0, 40,
+	1, 0, 8, 2, 8, 'D', 'A', 'T', 'A', 'T', 'Y', 'P', 'E', 1, 0, 13, 0, 2, 5,
+	'S', 'C',
+	'A', 'L', 'E', 8, 0, 7, 0, 2, 6, 'L', 'E', 'N', 'G', 'T', 'H', 10, 0, 9,
+	0, 2, 5,
+	'W', 'I', 'D', 'T', 'H', 12, 0, 11, 0, 2, 10, 'F', 'I', 'E', 'L', 'D',
+	'_', 'N',
+	'A', 'M', 'E', 17, 0, 16, 0, 2, 11, 'E', 'D', 'I', 'T', '_', 'S', 'T',
+	'R', 'I',
+	'N', 'G', 18, 0, 15, 0, 2, 11, 'F', 'I', 'L', 'L', '_', 'S', 'T', 'R',
+	'I', 'N',
+	'G', 19, 0, 14, 0, 2, 6, 'U', 'P', 'C', 'A', 'S', 'E', 20, 0, 6, 0, 2, 11,
+	'A',
+	'L', 'I', 'G', 'N', '_', 'R', 'I', 'G', 'H', 'T', 21, 0, 5, 0, 5, 3, 0, 6,
+	0, 0,
+	-1
+};								/* end of form_map string for request isc_21 */
+
+static short
+  isc_46l = 53;
+static char
+  isc_46[] = {
+	1, 6, 2, 8, 'C', 104, 97, 110, 103, 101, 58, 32, 3, 1, 15, 'C', 'H', 'A',
+	'R',
+	'A', 'C', 'T', 'E', 'R', 'I', 'S', 'T', 'I', 'C', 'S', 3, 2, 12, 'E', 'N',
+	'U',
+	'M', 'E', 'R', 'A', 'T', 'I', 'O', 'N', 'S', 3, 3, 4, 'E', 'X', 'I', 'T',
+	-1
+};								/* end of blr string for request isc_46 */
+
+static isc_req_handle isc_47 = 0;	/* request handle */
+
+static short
+  isc_48l = 28;
+static char
+  isc_48[] = {
+	1, 4, 0, 2, 0, 7, 0, 40, 31, 0, 9, 2, 10, 'F', 'I', 'E', 'L', 'D', '_',
+	'N', 'A',
+	'M', 'E', 1, 0, 0, 0, -1
+};								/* end of form_map string for request isc_48 */
+
+static short
+  isc_53l = 65;
+static char
+  isc_53[] = {
+	1, 6, 2, 8, 'C', 104, 97, 110, 103, 101, 58, 32, 3, 1, 15, 'C', 'H', 'A',
+	'R',
+	'A', 'C', 'T', 'E', 'R', 'I', 'S', 'T', 'I', 'C', 'S', 3, 2, 6, 'R', 'E',
+	'G',
+	'I', 'O', 'N', 3, 3, 8, 'S', 'U', 'B', 45, 'I', 'T', 'E', 'M', 3, 4, 4,
+	'S', 'I',
+	'Z', 'E', 3, 5, 4, 'E', 120, 105, 116, -1
+};								/* end of blr string for request isc_53 */
+
+static isc_req_handle isc_54 = 0;	/* request handle */
+
+static short
+  isc_55l = 31;
+static char
+  isc_55[] = {
+	1, 4, 0, 4, 0, 45, 0, 0, 7, 0, 7, 0, 7, 0, 8, 2, 6, 'V', 'A', 'L', 'U',
+	'E', 'S', 0,
+	0, 3, 0, 5, 2, 0, -1
+};								/* end of form_map string for request isc_55 */
+
+static short
+  isc_62l = 79;
+static char
+  isc_62[] = {
+	1, 6, 2, 13, 'A', 100, 100, 32, 111, 112, 116, 105, 111, 110, 115, 58, 32,
+	3,
+	1, 4, 'T', 'E', 'X', 'T', 3, 2, 5, 'F', 'I', 'E', 'L', 'D', 3, 3, 15, 'D',
+	'A',
+	'T', 'A', 'B', 'A', 'S', 'E', 32, 'F', 'I', 'E', 'L', 'D', 'S', 3, 4, 18,
+	'R',
+	'E', 'P', 'E', 'A', 'T', 'I', 'N', 'G', 32, 'S', 'U', 'B', 45, 'F', 'O',
+	'R',
+	'M', 3, 5, 4, 'E', 120, 105, 116, -1
+};								/* end of blr string for request isc_62 */
+
+static short
+  isc_63l = 83;
+static char
+  isc_63[] = {
+	1, 6, 2, 14, 'E', 100, 105, 116, 32, 111, 112, 116, 105, 111, 110, 115,
+	58, 32,
+	3, 1, 6, 'S', 'E', 'L', 'E', 'C', 'T', 3, 2, 4, 'M', 'O', 'V', 'E', 3, 3,
+	3, 'A',
+	'D', 'D', 3, 4, 6, 'C', 'H', 'A', 'N', 'G', 'E', 3, 5, 6, 'D', 'E', 'L',
+	'E',
+	'T', 'E', 3, 6, 7, 'R', 'E', 'V', 'E', 'R', 'S', 'E', 3, 7, 4, 'S', 'A',
+	'V',
+	'E', 3, 8, 4, 'E', 120, 105, 116, -1
+};								/* end of blr string for request isc_63 */
+
+
+#define gds__blob_null  isc_blob_null	/* compatibility symbols */
+#define gds__status     isc_status
+#define gds__status2    isc_status2
+#define gds__array_length       isc_array_length
+#define gds__window     isc_window
+#define gds__height     isc_height
+#define gds__width      isc_width
+#define gds__count      isc_count
+#define gds__slack      isc_slack
+#define gds__utility    isc_utility	/* end of compatibility symbols */
+
+#ifndef isc_version4
+Generate a compile - time error.
+	Picking up a V3 include file after preprocessing with V4 GPRE.
+#endif
+/**** end of GPRE definitions ****//*WINDOW_SCOPE STATIC; */ typedef enum opt_t {
+	e_some,
+	e_most,
+	e_all,
+	e_continue
+} OPT_T;
+
+extern SCHAR *PYXIS_get_keyname();
+extern OBJ PYXIS_get_attribute_value();
+
+static ATT add_text(), add_object(), add_field();
+static SLONG edit_field();
+static cleanup();
+
+#define FIELD_EDIT      impure [0]
+#define RESIZE_FORM     impure [1]
+#define NAME_PROMPT     impure [2]
+#define ENUMERATION     impure [3]
+#define STRING1         impure [4]
+#define STRING2         impure [5]
+#define STRING3         impure [6]
+#define STRING4         impure [7]
+#define STRING5         impure [8]
+#define STRING6         impure [9]
+#define MENU1           impure [10]
+#define MENU2           impure [11]
+#define MENU3           impure [12]
+#define MENU4           impure [13]
+#define MENU5           impure [14]
+#define MENU6           impure [15]
+#define MENU7           impure [16]
+#define IMPURE_MAX      17
+
+static OBJ impure[IMPURE_MAX];
+
+static UCHAR field_edit_form[] =
+#include "source/pyxis/field_edit.h"
+, form_resize[] =
+#include "source/pyxis/size_form.h"
+, form_form_name[] =
+#include "source/pyxis/form_name.h"
+, form_field_name[] =
+#include "source/pyxis/field_name.h"
+, form_enumerations[] =
+#include "source/pyxis/enumerations.h"
+ ;
+
+typedef struct dtyp {
+	UCHAR *dtyp_string;
+	USHORT dtyp_internal;
+	USHORT dtyp_external;
+	USHORT dtyp_length;
+} *DTYP;
+
+static struct dtyp dtypes[] = {
+	(UCHAR *) "CHAR", dtype_text, blr_text, 0,
+	(UCHAR *) "VARYING", dtype_varying, blr_varying, 0,
+	(UCHAR *) "SHORT", dtype_short, blr_short, sizeof(SSHORT),
+	(UCHAR *) "LONG", dtype_long, blr_long, sizeof(SLONG),
+	(UCHAR *) "FLOAT", dtype_real, blr_float, sizeof(float),
+	(UCHAR *) "DOUBLE", dtype_double, blr_double, sizeof(double),
+#ifdef VMS
+	(UCHAR *) "D_FLOAT", dtype_d_float, blr_d_float, sizeof(double),
+#else
+	(UCHAR *) "D_FLOAT", dtype_double, blr_d_float, sizeof(double),
+#endif
+	(UCHAR *) "DATE", dtype_date, blr_date, sizeof(GDS__QUAD),
+	(UCHAR *) "BLOB", dtype_blob, blr_blob, sizeof(GDS__QUAD),
+	NULL, 0, 0
+};
+
+
+PYXIS_edit(window, form, dbb, transaction)
+	 WIN window;
+	 OBJ form;
+	 int *dbb, *transaction;
+{
+/**************************************
+ *
+ *      P Y X I S _ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Edit a form.  Mostly slop fields around.  Return TRUE
+ *      if anything really changed.
+ *
+ **************************************/
+	OBJ object;
+	ATT attribute, next;
+	SLONG stat;
+	STATUS status[20];
+	USHORT c, value, x, y, change;
+
+	gds__window = (int *) window;
+	change = FALSE;
+	set_prototypes(form, FALSE);
+
+#ifdef DEBUG
+	if (!FIELD_EDIT && dbb) {
+		PYXIS_load_form(status, dbb, transaction, &FIELD_EDIT,
+						0, "FIELD_EDIT");
+		PYXIS_load_form(status, dbb, transaction, &RESIZE_FORM,
+						0, "SIZE_FORM");
+		PYXIS_load_form(status, dbb, transaction, &ENUMERATION,
+						0, "ENUMERATIONS");
+	}
+#endif
+
+	for (attribute = NULL;;) {
+		if (!attribute)
+			attribute = (ATT) PYXIS_find_object(form, 0, att_any, TRUE);
+		set_tag_string(window, &STRING6,
+					   "EDIT: Move cursor to object and hit %s",
+					   PYXIS__KEY_ENTER);
+		object = (attribute) ? attribute->att_value : NULL;
+		if (object) {
+			value = GET_VALUE(object, att_reverse_video);
+			REPLACE_ATTRIBUTE(object, att_reverse_video, attype_numeric,
+							  !value);
+		}
+		c = PYXIS_get_char(window, object, 0, 0);
+		if (object)
+			REPLACE_ATTRIBUTE(object, att_reverse_video, attype_numeric,
+							  value);
+		PYXIS_pop_form(window);
+		switch (c) {
+		case PYXIS__KEY_RIGHT:
+		case PYXIS__KEY_DOWN:
+		case PYXIS__KEY_LEFT:
+		case PYXIS__KEY_UP:
+		case '\t':
+			if (attribute
+				&& (next = (ATT) PYXIS_navigate(form, attribute, att_any, c)))
+				attribute = next;
+			break;
+
+		case PYXIS__KEY_SCROLL_TOP:
+			PYXIS_scroll_reset(window->win_form);
+			break;
+
+		case PYXIS__KEY_ENTER:
+		default:
+			if (c != PYXIS__KEY_ENTER && c != '\n')
+				PYXIS_return_char(window, c);
+			/*CASE_MENU (MENU_HANDLE MENU1 HORIZONTAL) "Edit options: " */
+			switch (isc_menu
+					((long *) 0L, &isc_window, &MENU1, &isc_63l, isc_63)) {
+
+				/*MENU_ENTREE "SELECT": */
+			case 1:
+				continue;
+
+				/*MENU_ENTREE "MOVE": */
+				break;
+			case 2:
+				if (!object)
+					break;
+				change |= move(window, form, object, attribute);
+
+				/*MENU_ENTREE "ADD": */
+				break;
+			case 3:
+				if (next = add_object(window, form, object, dbb, transaction)) {
+					attribute = next;
+					change = TRUE;
+				}
+
+				/*MENU_ENTREE "CHANGE": */
+				break;
+			case 4:
+				if (!object)
+					break;
+				x = GET_VALUE(object, att_display_x);
+				y = GET_VALUE(object, att_display_y);
+				if (attribute->att_name == att_label) {
+					set_tag_string(window, &STRING1,
+								   "EDIT ADD_TEXT: Enter replacement text, terminate with <RETURN> or %s",
+								   PYXIS__KEY_ENTER);
+					add_text(window, form, x, y, object);
+					PYXIS_pop_form(window);
+					change = TRUE;
+				}
+				else
+					edit_field(window, object, x, y, dbb, transaction);
+
+				/*MENU_ENTREE "DELETE": */
+				break;
+			case 5:
+				if (!object)
+					break;
+				if (!
+					(next =
+					 (ATT) PYXIS_find_object(form, attribute, att_any,
+											 TRUE))) next =
+						(ATT) PYXIS_find_object(form, attribute, att_any,
+												FALSE);
+				PYXIS_delete_attribute(form, attribute);
+				attribute = next;
+				change = TRUE;
+
+				/*MENU_ENTREE "REVERSE": */
+				break;
+			case 6:
+				if (object)
+					if (attribute->att_name == att_label) {
+						value = !GET_VALUE(object, att_reverse_video);
+						REPLACE_ATTRIBUTE(object, att_reverse_video,
+										  attype_numeric, value);
+						change = TRUE;
+					}
+					else
+						change |= reverse(object);
+
+				/*MENU_ENTREE "SAVE": */
+				break;
+			case 7:
+				save_form(window, form, dbb, transaction);
+
+				/*MENU_ENTREE "Exit": */
+				break;
+			case 8:
+				/* set_prototypes (form, TRUE); */
+				return change;
+				/*END_MENU */
+				break;
+			};
+		}
+	}
+}
+
+static ATT add_field(form, field)
+	 OBJ form, field;
+{
+/**************************************
+ *
+ *      a d d _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Incrementally add a field to a form.
+ *
+ **************************************/
+	OBJ label;
+	ATT attribute, attr;
+	USHORT x1, y1, x2, y2, min_width;
+	TEXT *name;
+
+/* Make up field label */
+
+	name = GET_STRING(field, att_field_name);
+	label = (OBJ) PYXIS_create_object(name, att_literal_string);
+
+	if (!(min_width = default_position(form, att_label, &x1, &y1)))
+		min_width = label->obj_width;
+
+	x1 += min_width;
+	x1 = MAX(x1, label->obj_width);
+	PYXIS_position(label, x1 - label->obj_width, y1);
+	attribute = (ATT) PUT_ATTRIBUTE(form, att_label, attype_object, label);
+	PYXIS_move(form, label);
+
+	PYXIS_delete_named_attribute(field, att_inactive);
+
+	if (attr = (ATT) GET_ATTRIBUTE(field, att_fill_string))
+		PYXIS_set_display_attribute(field, attr);
+
+	default_position(form, att_field, &x2, &y2);
+	if (y1 == y2)
+		x2 = MAX(x1 + 2, x2);
+
+	PYXIS_position(field, x2, y2);
+	REPLACE_ATTRIBUTE(field, att_reverse_for_update, attype_numeric, TRUE);
+	PUT_ATTRIBUTE(form, att_field, attype_object, field);
+	PYXIS_move(form, field);
+
+	return attribute;
+}
+
+static ATT add_object(window, form, object, dbb, transaction)
+	 WIN window;
+	 OBJ form, object;
+	 int *dbb, *transaction;
+{
+/**************************************
+ *
+ *      a d d _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Drive sub-menu to add objects to form.
+ *
+ **************************************/
+	OBJ field;
+	USHORT c, x, y, change;
+
+/*CASE_MENU (MENU_HANDLE MENU2 HORIZONTAL) "Add options: ";*/
+	switch (isc_menu((long *) 0L, &isc_window, &MENU2, &isc_62l, isc_62)) {
+		/*MENU_ENTREE "TEXT": */
+	case 1:
+		x = y = 0;
+		if (object) {
+			x = GET_VALUE(object, att_display_x);
+			y = GET_VALUE(object, att_display_y);
+		}
+		set_tag_string(window, &STRING2,
+					   "EDIT ADD_TEXT: Enter text, terminate with <RETURN> or %s",
+					   PYXIS__KEY_ENTER);
+		field = (OBJ) add_text(window, form, x, y, 0);
+		PYXIS_pop_form(window);
+		return (ATT) field;
+
+		/*MENU_ENTREE "FIELD": */
+		break;
+	case 2:
+		field = (OBJ) PYXIS_create_object(0, 0);
+		default_position(form, att_field, &x, &y);
+		edit_field(window, field, x, y, dbb, transaction);
+		if (!GET_VALUE(field, att_field_name)) {
+			PYXIS_delete_object(field);
+			return NULL;
+		}
+		return add_field(form, field);
+
+		/*MENU_ENTREE "DATABASE FIELDS": */
+		break;
+	case 3:
+		return (ATT) copy_fields(window, form, object, dbb, transaction);
+
+		/*MENU_ENTREE "REPEATING SUB-FORM": */
+		break;
+	case 4:
+		return (ATT) add_repeating(window, form, object, dbb, transaction);
+
+		/*MENU_ENTREE "Exit": */
+		break;
+	case 5:
+		return NULL;
+
+/*END_MENU*/
+		break;
+	};
+}
+
+static add_repeating(window, form, object, dbb, transaction)
+	 WIN window;
+	 OBJ form, object;
+	 int *dbb, *transaction;
+{
+/**************************************
+ *
+ *      a d d _ r e p e a t i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Add a repeating sub-form box.
+ *
+ **************************************/
+	OBJ form_menu, entree, sub_form, box;
+	ATT attribute;
+	TEXT *form_name;
+	USHORT x, y;
+
+/* Generate and format relation menu */
+
+	form_menu = (OBJ) PYXIS_forms(dbb, transaction);
+	PYXIS_format_menu(form_menu, "Select Sub-Form", FALSE);
+	x = (window->win_width - GET_VALUE(form_menu, att_width)) / 2;
+	PYXIS_position(form_menu, x, 1);
+
+/* Let user select relation.  If he doesn't pick anything, give up and
+   go away */
+
+	PYXIS_push_form(window, form_menu, FALSE);
+	entree = (OBJ) PYXIS_menu(window, form_menu);
+
+	if (!entree) {
+		PYXIS_pop_form(window);
+		PYXIS_delete_object(form_menu);
+		return NULL;
+	}
+
+/* Pick up relation name, and build field menu */
+
+	form_name = GET_STRING(entree, att_literal_string);
+	PYXIS_load_form(gds__status, dbb, transaction, &sub_form, 0, form_name);
+	PYXIS_compute_size(sub_form, &x, &y);
+
+/* Set up box to hold sub-form */
+
+	box = (OBJ) PYXIS_create_object(0, 0);
+	PUT_ATTRIBUTE(box, att_border, attype_numeric, 1);
+	PUT_ATTRIBUTE(box, att_blank, attype_numeric, 1);
+	PUT_ATTRIBUTE(box, att_box, attype_numeric, 1);
+	PUT_ATTRIBUTE(box, att_width, attype_numeric, x + 2);
+	PUT_ATTRIBUTE(box, att_height, attype_numeric, 3 * y + 2);
+	PUT_ATTRIBUTE(box, att_prototype, attype_object, sub_form);
+	PUT_ATTRIBUTE(box, att_field_name, attype_string, form_name);
+
+/* Position box someplace */
+
+	default_position(form, att_field, &x, &y);
+	PYXIS_position(box, x, y);
+	PUT_ATTRIBUTE(box, att_dtype, attype_numeric, dtype_short);
+	PUT_ATTRIBUTE(box, att_length, attype_numeric, sizeof(SSHORT));
+	add_field(form, box);
+
+/* Clean up */
+
+	PYXIS_pop_form(window);
+	PYXIS_delete_object(form_menu);
+
+	return NULL;
+}
+
+static ATT add_text(window, form, x, y, object)
+	 WIN window;
+	 OBJ form;
+	 SLONG x, y;
+	 OBJ object;
+{
+/**************************************
+ *
+ *      a d d _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Add literal text to a form.  Follow cursor movements until
+ *      a significant character shows up, then gobble text.
+ *
+ **************************************/
+	UCHAR text[256], *p;
+	ATT attribute, attr;
+	SSHORT c;
+
+/* Unless we're doing a straight replacement, follow cursor keys
+   until text shows up */
+
+	p = text;
+
+	if (object)
+		attribute = (ATT) GET_ATTRIBUTE(form, att_label);
+	else {
+		c = position(window, form, &x, &y);
+
+		if (c == '\n')
+			return NULL;
+
+		*p++ = c;
+		object = (OBJ) PYXIS_create_object(0, 0);
+		PYXIS_position(object, x, y);
+		attribute =
+			(ATT) PUT_ATTRIBUTE(form, att_label, attype_object, object);
+		PYXIS_move(form, object);
+	}
+
+/* Gobble characters until carriage return */
+
+	*p = 0;
+
+	for (;;) {
+		attr =
+			(ATT) REPLACE_ATTRIBUTE(object, att_literal_string, attype_string,
+									text);
+		PYXIS_set_display_attribute(object, attr);
+		REPLACE_ATTRIBUTE(object, att_width, attype_numeric, p - text);
+		c = PYXIS_get_char(window, object, p - text, 0);
+		switch (c) {
+		case PYXIS__KEY_UP:
+		case PYXIS__KEY_DOWN:
+		case PYXIS__KEY_RIGHT:
+		case PYXIS__KEY_LEFT:
+		case PYXIS__KEY_ENTER:
+		case '\n':
+			return attribute;
+
+		case PYXIS__KEY_DELETE:
+			if (p > text)
+				*--p = 0;
+			break;
+
+		default:
+			*p++ = c;
+			*p = 0;
+		}
+	}
+}
+
+static cleanup()
+{
+/**************************************
+ *
+ *      c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *      Cleanup module statics to keep Apollo shared
+ *      images happy.
+ *
+ **************************************/
+	OBJ *p, *end;
+
+	gds__window = NULL;
+/*CLEAR_HANDLES*/
+	{
+		isc_0 = 0;
+		isc_12 = 0;
+		isc_20 = 0;
+		isc_47 = 0;
+		isc_54 = 0;
+	};
+
+	for (p = impure, end = p + IMPURE_MAX; p < end;)
+		*p++ = NULL;
+}
+
+static copy_fields(window, form, object, dbb, transaction)
+	 WIN window;
+	 OBJ form, object;
+	 int *dbb, *transaction;
+{
+/**************************************
+ *
+ *      c o p y _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Copy fields from dbb onto form.
+ *
+ **************************************/
+	OBJ relation_menu, field_menu, entree, field;
+	ATT attribute;
+	TEXT *relation_name;
+	USHORT x, y;
+
+/* Generate and format relation menu */
+
+	relation_menu = (OBJ) PYXIS_relations(dbb, transaction);
+	PYXIS_format_menu(relation_menu, "Select Relation", FALSE);
+	x = (window->win_width - GET_VALUE(relation_menu, att_width)) / 2;
+	PYXIS_position(relation_menu, x, 1);
+
+/* Let user select relation.  If he doesn't pick anything, give up and
+   go away */
+
+	PYXIS_push_form(window, relation_menu, FALSE);
+	entree = (OBJ) PYXIS_menu(window, relation_menu);
+
+	if (!entree) {
+		PYXIS_pop_form(window);
+		PYXIS_delete_object(relation_menu);
+		return NULL;
+	}
+
+/* Pick up relation name, and build field menu */
+
+	relation_name = GET_STRING(entree, att_literal_string);
+	field_menu = (OBJ) PYXIS_relation_fields(dbb, transaction, relation_name);
+	PYXIS_format_menu(field_menu, "Select Field(s)", FALSE);
+	PYXIS_position(field_menu, x + strlen(relation_name), 3);
+	PYXIS_push_form(window, field_menu, FALSE);
+	PYXIS_select(window, field_menu, att_entree, 0);
+
+/* Pick up selected fields, if any */
+
+	for (attribute = NULL;
+		 attribute =
+		 (ATT) PYXIS_find_object(field_menu, attribute, att_entree, TRUE);) {
+		entree = attribute->att_value;
+		if (GET_VALUE(entree, att_reverse_video) &&
+			(field = GET_OBJECT(entree, att_entree_value))) {
+			x = 0;
+			y = 0;
+			field = (OBJ) PYXIS_clone(field);
+			PYXIS_field_defaults(field);
+			add_field(form, field, &x, &y);
+		}
+	}
+
+/* Clean up */
+
+	PYXIS_pop_form(window);
+	PYXIS_pop_form(window);
+	PYXIS_delete_object(field_menu);
+	PYXIS_delete_object(relation_menu);
+
+	return NULL;
+}
+
+static default_position(form, type, x_ptr, y_ptr)
+	 OBJ form;
+	 ATT_N type;
+	 USHORT *x_ptr, *y_ptr;
+{
+/**************************************
+ *
+ *      d e f a u l t _ p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Compute the default position of an object of a given type.
+ *
+ **************************************/
+	OBJ entree;
+	USHORT x, y, max_x, max_y, min_width, count;
+	ATT attribute;
+
+	max_x = max_y = count = 0;
+	min_width = 9999;
+	attribute = NULL;
+
+	if (type == att_label)
+		attribute = (ATT) PYXIS_find_object(form, attribute, type, TRUE);
+
+	while (attribute = (ATT) PYXIS_find_object(form, attribute, type, TRUE)) {
+		entree = attribute->att_value;
+		++count;
+		max_x = MAX(max_x, entree->obj_rel_x);
+		max_y = MAX(max_y, entree->obj_rel_y);
+		min_width = MIN(min_width, entree->obj_width);
+	}
+
+	*x_ptr = max_x;
+	*y_ptr = max_y + ((count < 10) ? 2 : 1);
+
+	return (count) ? min_width : 0;
+}
+
+static edit_enumerations(window, field)
+	 WIN window;
+	 OBJ field;
+{
+	struct {
+		ISC_QUAD isc_58;		/* VALUES */
+		short isc_59;			/* gds__form_control */
+		short isc_60;			/* TERMINATOR */
+		short isc_61;			/* gds__form_control */
+	} isc_57;
+/**************************************
+ *
+ *      e d i t _ e n u m e r a t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Update enumerations, if any, for a field.
+ *
+ **************************************/
+	OBJ values, value;
+	ATT attribute;
+	TEXT *data;
+	USHORT width, height, x, y, index;
+
+	manual_load(&ENUMERATION, form_enumerations);
+	PYXIS_compute_size(ENUMERATION, &width, &height);
+	x = (window->win_width - width) / 2;
+	y = (window->win_height - height) / 2;
+	PYXIS_position(ENUMERATION, x, y);
+	values = (OBJ) PYXIS_find_field(ENUMERATION, "VALUES");
+
+/*FOR_FORM (FORM_HANDLE ENUMERATION TRANSPARENT) X IN ENUMERATIONS*/
+	{
+		if (!ENUMERATION)
+			isc_load_form((long *) 0L, &db, &gds__trans, &ENUMERATION,
+						  (short *) 0, "ENUMERATIONS");
+		if (!isc_54)
+			isc_compile_map((long *) 0L, &ENUMERATION, &isc_54, &isc_55l,
+							isc_55);
+		isc_reset_form((long *) 0L, &isc_54);
+		PYXIS_purge_segments(values, 1);
+		for (index = 1, attribute = NULL;
+			 attribute = (ATT) PYXIS_find_enumeration(field, attribute, TRUE);
+			 ++index) PYXIS_put_segment(values, attribute->att_value, index);
+		/*DISPLAY X ACCEPTING VALUES */
+		{
+			isc_57.isc_59 = 0;
+			isc_57.isc_61 = 2;
+			isc_drive_form((long *) 0L, &db, &gds__trans, &isc_window,
+						   &isc_54, &isc_57, &isc_57);
+		};
+		if (					/*X.TERMINATOR */
+			   isc_57.isc_60 != PYXIS__KEY_ENTER) {
+			pyxis__pop_window(&gds__window);
+			return;
+		}
+		PYXIS_delete_named_attribute(field, att_enumeration);
+		for (index = 1; value = (OBJ) PYXIS_find_index(values, index);
+			 index++) if ((data = GET_STRING(value, att_update_data))
+						  || (data = GET_STRING(value, att_data)))
+				PUT_ATTRIBUTE(field, att_enumeration, attype_string, data);
+/*END_FORM*/
+		isc_pop_window((long *) 0L, &isc_window);
+	};
+}
+
+static SLONG edit_field(window, field, x, y, dbb, transaction)
+	 WIN window;
+	 OBJ field;
+	 USHORT x, y;
+	 int *dbb, *transaction;
+{
+	struct {
+		char isc_24[32];		/* TERMINATING_FIELD */
+		char isc_25[8];			/* DATATYPE */
+		short isc_26;			/* gds__form_control */
+		short isc_27;			/* TERMINATOR */
+		short isc_28;			/* gds__form_control */
+		short isc_29;			/* gds__form_control */
+		short isc_30;			/* gds__form_control */
+		short isc_31;			/* gds__form_control */
+		short isc_32;			/* SCALE */
+		short isc_33;			/* gds__form_control */
+		short isc_34;			/* LENGTH */
+		short isc_35;			/* gds__form_control */
+		short isc_36;			/* WIDTH */
+		short isc_37;			/* gds__form_control */
+		short isc_38;			/* gds__form_control */
+		short isc_39;			/* gds__form_control */
+		short isc_40;			/* gds__form_control */
+		char isc_41[31];		/* FIELD_NAME */
+		char isc_42[31];		/* EDIT_STRING */
+		char isc_43[255];		/* FILL_STRING */
+		char isc_44[1];			/* UPCASE */
+		char isc_45[1];			/* ALIGN_RIGHT */
+	} isc_23;
+	struct {
+		short isc_51;			/* gds__form_control */
+		char isc_52[31];		/* FIELD_NAME */
+	} isc_50;
+/**************************************
+ *
+ *      e d i t _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Edit characteristics of a field.  If the field doesn't exits,
+ *      make one up.
+ *
+ **************************************/
+	OBJ prototype;
+	DTYP dtype;
+	USHORT length, width, offset, height, c;
+	UCHAR *string, *p;
+	SLONG scale;
+	BOOLEAN fnam_upd, edstr_upd, fstr_upd, scale_upd, w_upd;
+
+/* If this is a sub-form, just re-size it for now */
+
+	if (prototype = GET_OBJECT(field, att_prototype))
+		/*CASE_MENU (MENU_HANDLE MENU3 HORIZONTAL) "Change: " */
+		switch (isc_menu((long *) 0L, &isc_window, &MENU3, &isc_53l, isc_53)) {
+
+			/*MENU_ENTREE "CHARACTERISTICS": */
+		case 1:
+			manual_load(&NAME_PROMPT, form_field_name);
+			/*FOR_FORM (TAG FORM_HANDLE NAME_PROMPT) F IN FIELD_NAME */
+			{
+				if (!NAME_PROMPT)
+					isc_load_form((long *) 0L, &db, &gds__trans, &NAME_PROMPT,
+								  (short *) 0, "FIELD_NAME");
+				if (!isc_47)
+					isc_compile_map((long *) 0L, &NAME_PROMPT, &isc_47,
+									&isc_48l, isc_48);
+				isc_reset_form((long *) 0L, &isc_47);
+				strcpy(			/*F.FIELD_NAME */
+						  isc_50.isc_52, GET_VALUE(field, att_field_name));
+				/*DISPLAY F DISPLAYING FIELD_NAME ACCEPTING FIELD_NAME WAKING ON FIELD_NAME */
+				{
+					isc_50.isc_51 = 7;
+					isc_drive_form((long *) 0L, &db, &gds__trans, &isc_window,
+								   &isc_47, &isc_50, &isc_50);
+				};
+				if (			/*F.FIELD_NAME.STATE */
+					   isc_50.isc_51 == PYXIS_OPT_USER_DATA)
+					REPLACE_ATTRIBUTE(field, att_field_name, attype_string,	/*F.FIELD_NAME */
+									  isc_50.isc_52);
+				/*END_FORM */
+				isc_pop_window((long *) 0L, &isc_window);
+			};
+			return;
+
+			/*MENU_ENTREE "REGION": */
+			break;
+		case 2:
+			size_form(window, field);
+			return;
+
+			/*MENU_ENTREE "SUB-ITEM": */
+			break;
+		case 3:
+			PYXIS_edit(window, prototype, dbb, transaction);
+			return;
+
+			/*MENU_ENTREE "SIZE": */
+			break;
+		case 4:
+			size_form(window, prototype);
+			return;
+
+			/*MENU_ENTREE "Exit": */
+			break;
+		case 5:
+			return;
+			/*END_MENU */
+			break;
+		}
+	else
+		/*CASE_MENU (MENU_HANDLE MENU4 HORIZONTAL) "Change: " */
+		switch (isc_menu((long *) 0L, &isc_window, &MENU4, &isc_46l, isc_46)) {
+			/*MENU_ENTREE "CHARACTERISTICS": */
+		case 1:
+
+			/*MENU_ENTREE "ENUMERATIONS": */
+			break;
+		case 2:
+			return edit_enumerations(window, field);
+
+			/*MENU_ENTREE "EXIT": */
+			break;
+		case 3:
+			return;
+			/*END_MENU */
+			break;
+		};
+
+/* Set up data type */
+
+	dtype = dtypes;
+
+	if (c = GET_VALUE(field, att_datatype)) {
+		for (dtype = dtypes; dtype->dtyp_string; dtype++)
+			if (c == dtype->dtyp_external)
+				break;
+	}
+	else if (c = GET_VALUE(field, att_dtype)) {
+		for (dtype = dtypes; dtype->dtyp_string; dtype++)
+			if (c == dtype->dtyp_internal)
+				break;
+	}
+
+	if (!dtype->dtyp_string)
+		dtype = dtypes;
+
+/* Initialize the field edit form, if necessary */
+
+	manual_load(&FIELD_EDIT, field_edit_form);
+
+	PYXIS_compute_size(FIELD_EDIT, &width, &height);
+	x = MIN(x, window->win_width - width - 1);
+	y = MIN(y, window->win_height - height - 1);
+	PYXIS_position(FIELD_EDIT, x, y);
+
+/*FOR_FORM (FORM_HANDLE FIELD_EDIT TRANSPARENT) X IN FIELD_EDIT*/
+	{
+		if (!FIELD_EDIT)
+			isc_load_form((long *) 0L, &db, &gds__trans, &FIELD_EDIT,
+						  (short *) 0, "FIELD_EDIT");
+		if (!isc_20)
+			isc_compile_map((long *) 0L, &FIELD_EDIT, &isc_20, &isc_21l,
+							isc_21);
+		isc_reset_form((long *) 0L, &isc_20);
+		put_string(				/*X.FIELD_NAME */
+					  isc_23.isc_41, sizeof	/*X.FIELD_NAME */
+					  isc_23.isc_41, field, att_field_name);
+		put_string(				/*X.EDIT_STRING */
+					  isc_23.isc_42, sizeof	/*X.EDIT_STRING */
+					  isc_23.isc_42, field, att_edit_string);
+		put_string(				/*X.FILL_STRING */
+					  isc_23.isc_43, sizeof	/*X.FILL_STRING */
+					  isc_23.isc_43, field, att_fill_string);
+		strcpy(					/*X.DATATYPE */
+				  isc_23.isc_25, dtype->dtyp_string);
+		/*X.WIDTH */
+		isc_23.isc_36 = GET_VALUE(field, att_width);
+		/*X.LENGTH */
+		isc_23.isc_34 = GET_VALUE(field, att_length);
+		/*X.SCALE */
+		isc_23.isc_32 = GET_VALUE(field, att_scale);
+		strcpy(					/*X.UPCASE */
+				  isc_23.isc_44, (GET_VALUE(field, att_upcase)) ? "Y" : "N");
+		strcpy(					/*X.ALIGN_RIGHT */
+				  isc_23.isc_45,
+				  (GET_VALUE(field, att_insert_right)) ? "Y" : "N");
+		fnam_upd = edstr_upd = fstr_upd = scale_upd = w_upd = FALSE;
+
+		/* Update all fields */
+
+		for (;;) {
+			if (dtype->dtyp_length) {
+				/*X.LENGTH */
+				isc_23.isc_34 = dtype->dtyp_length;
+				/*X.LENGTH.STATE */
+				isc_23.isc_33 = PYXIS_OPT_DISPLAY;
+			}
+			else
+				/*X.LENGTH.STATE */
+				isc_23.isc_33 = PYXIS_OPT_UPDATE | PYXIS_OPT_DISPLAY;
+
+			switch (dtype->dtyp_internal) {
+			case dtype_short:
+			case dtype_long:
+			case dtype_quad:
+				/*X.SCALE.STATE */
+				isc_23.isc_31 = PYXIS_OPT_DISPLAY | PYXIS_OPT_UPDATE;
+				break;
+
+			default:
+				/*X.SCALE.STATE */
+				isc_23.isc_31 = 0;
+			}
+
+			/*DISPLAY X DISPLAYING * ACCEPTING * WAKING ON DATATYPE OVERRIDING LENGTH, SCALE */
+			{
+				isc_23.isc_26 = 3;
+				isc_23.isc_28 = 3;
+				isc_23.isc_29 = 3;
+				isc_23.isc_30 = 3;
+				isc_23.isc_35 = 3;
+				isc_23.isc_37 = 7;
+				isc_23.isc_38 = 3;
+				isc_23.isc_39 = 3;
+				isc_23.isc_40 = 3;
+				isc_drive_form((long *) 0L, &db, &gds__trans, &isc_window,
+							   &isc_20, &isc_23, &isc_23);
+			};
+			for (dtype = dtypes; dtype->dtyp_string; dtype++)
+				if (!strcmp(	/*X.DATATYPE */
+							   isc_23.isc_25, dtype->dtyp_string))
+					break;
+
+			if (				/*X.FIELD_NAME.STATE */
+				   isc_23.isc_40 == PYXIS_OPT_USER_DATA)
+				fnam_upd = TRUE;
+			if (				/*X.EDIT_STRING.STATE */
+				   isc_23.isc_39 == PYXIS_OPT_USER_DATA)
+				edstr_upd = TRUE;
+			if (				/*X.FILL_STRING.STATE */
+				   isc_23.isc_38 == PYXIS_OPT_USER_DATA)
+				fstr_upd = TRUE;
+			if (				/*X.SCALE.STATE */
+				   isc_23.isc_31 == PYXIS_OPT_USER_DATA)
+				scale_upd = TRUE;
+			if (				/*X.WIDTH.STATE */
+				   isc_23.isc_35 == PYXIS_OPT_USER_DATA)
+				w_upd = TRUE;
+			if (strcmp(			/*X.TERMINATING_FIELD */
+						  isc_23.isc_24, "DATATYPE"))
+				break;
+		}
+
+		if (					/*X.TERMINATOR */
+			   isc_23.isc_27 == PYXIS__KEY_ENTER) {
+			REPLACE_ATTRIBUTE(field, att_dtype, attype_numeric,
+							  dtype->dtyp_internal);
+			REPLACE_ATTRIBUTE(field, att_length, attype_numeric,	/*X.LENGTH */
+							  isc_23.isc_34);
+
+			if (fnam_upd)
+				REPLACE_ATTRIBUTE(field, att_field_name, attype_string,	/*X.FIELD_NAME */
+								  isc_23.isc_41);
+
+			if (edstr_upd)
+				REPLACE_ATTRIBUTE(field, att_edit_string, attype_string,	/*X.EDIT_STRING */
+								  isc_23.isc_42);
+
+			if (fstr_upd)
+				REPLACE_ATTRIBUTE(field, att_fill_string, attype_string,	/*X.FILL_STRING */
+								  isc_23.isc_43);
+
+			if (scale_upd)
+				REPLACE_ATTRIBUTE(field, att_scale, attype_numeric,	/*X.SCALE */
+								  isc_23.isc_32);
+
+			if (w_upd) {
+				REPLACE_ATTRIBUTE(field, att_width, attype_numeric,	/*X.WIDTH */
+								  isc_23.isc_36);
+				if (dtype->dtyp_internal == dtype_text &&	/*X.LENGTH */
+					isc_23.isc_34 !=	/*X.WIDTH */
+					isc_23.isc_36)
+					REPLACE_ATTRIBUTE(field, att_length, attype_numeric,	/*X.WIDTH */
+									  isc_23.isc_36);
+			}
+
+			PYXIS_field_defaults(field);
+
+			if (				/*X.UPCASE */
+				   isc_23.isc_44[0] == 'Y')
+				REPLACE_ATTRIBUTE(field, att_upcase, attype_numeric, TRUE);
+			else
+				PYXIS_delete_named_attribute(field, att_upcase);
+
+			if (				/*X.ALIGN_RIGHT */
+				   isc_23.isc_45[0] == 'Y')
+				REPLACE_ATTRIBUTE(field, att_insert_right, attype_numeric,
+								  TRUE);
+			else
+				PYXIS_delete_named_attribute(field, att_insert_right);
+		}
+/*END_FORM*/
+		isc_pop_window((long *) 0L, &isc_window);
+	};
+
+	return (SLONG) field;
+}
+
+static manual_load(handle, def)
+	 OBJ *handle;
+	 UCHAR *def;
+{
+/**************************************
+ *
+ *      m a n u a l _ l o a d 
+ *
+ **************************************
+ *
+ * Functional description
+ *      Manually load a form from a literal, unless it is
+ *      already loaded.
+ *
+ **************************************/
+
+	if (!*handle)
+		*handle = (OBJ) PYXIS_load(&def);
+}
+
+static motion(window, form, field, x_ptr, y_ptr)
+	 WIN window;
+	 OBJ form, field;
+	 int *x_ptr, *y_ptr;
+{
+/**************************************
+ *
+ *      m o t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Pick up a single cursor motion, including count.
+ *      Compute new coordinates, and return character.
+ *
+ **************************************/
+	SSHORT x, y;
+	SSHORT c, count, cnt, border;
+
+	border = GET_VALUE(form, att_border);
+	x = *x_ptr;
+	y = *y_ptr;
+	count = 0;
+
+/*  Sensitize any mouse movement.  */
+
+	window->win_flags |= WIN_sensitive;
+
+	for (;;) {
+		if (field)
+			c = PYXIS_get_char(window, field, 0, 0);
+		else
+			c = PYXIS_get_char(window, form, x + border, y + border);
+		cnt = (count) ? count : 1;
+		switch (c) {
+		case '0':
+		case '1':
+		case '2':
+		case '3':
+		case '4':
+		case '5':
+		case '6':
+		case '7':
+		case '8':
+		case '9':
+			count = count * 10 + c - '0';
+			continue;
+
+		case PYXIS__KEY_UP:
+			if (window->win_flags & WIN_synthesized)
+				cnt = 1;
+			y -= cnt;
+			if (y < 0)
+				y = 0;
+			count = 0;
+			break;
+
+		case PYXIS__KEY_DOWN:
+			if (window->win_flags & WIN_synthesized)
+				cnt = 1;
+			y += cnt;
+			count = 0;
+			break;
+
+		case PYXIS__KEY_LEFT:
+			if (window->win_flags & WIN_synthesized)
+				cnt = 1;
+			x -= cnt;
+			if (x < 0)
+				x = 0;
+			count = 0;
+			break;
+
+		case PYXIS__KEY_RIGHT:
+			if (window->win_flags & WIN_synthesized)
+				cnt = 1;
+			x += cnt;
+			count = 0;
+			break;
+
+		default:
+			break;
+		}
+		*x_ptr = x;
+		*y_ptr = y;
+		window->win_flags &= ~WIN_sensitive;
+		return c;
+	}
+}
+
+static move(window, form, object, start)
+	 WIN window;
+	 OBJ form, object;
+	 ATT start;
+{
+/**************************************
+ *
+ *      m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Move an object around.  Return TRUE if it really moved.
+ *
+ **************************************/
+	OBJ first;
+	ATT attribute, attr;
+	OPT_T option;
+	USHORT c, change, reverse;
+	SLONG x, y, min_x, min_y, delta_x, delta_y;
+
+/*CASE_MENU (MENU_HANDLE MENU5 HORIZONTAL) "Move options: "*/
+	switch (isc_menu((long *) 0L, &isc_window, &MENU5, &isc_19l, isc_19)) {
+		/*MENU_ENTREE "ITEM": */
+	case 1:
+		return move_item(window, form, object);
+
+		/*MENU_ENTREE "SOME": */
+		break;
+	case 2:
+		option = e_some;
+
+		/*MENU_ENTREE "MOST": */
+		break;
+	case 3:
+		option = e_most;
+
+		/*MENU_ENTREE "ALL": */
+		break;
+	case 4:
+		option = e_all;
+
+		/*MENU_ENTREE "Exit": */
+		break;
+	case 5:
+		return FALSE;
+/*END_MENU*/
+		break;
+	};
+
+/* Mass move -- start by saving current states of reverse video */
+
+	change = FALSE;
+	attribute = NULL;
+
+	while (attribute =
+		   (ATT) PYXIS_find_object(form, attribute, att_any, TRUE)) {
+		object = attribute->att_value;
+		REPLACE_ATTRIBUTE(object, att_temp, attype_numeric,
+						  GET_VALUE(object, att_reverse_video));
+		REPLACE_ATTRIBUTE(object, att_reverse_video, attype_numeric,
+						  (option == e_some) ? FALSE : TRUE);
+	}
+
+/* Let user make fine adjustments */
+
+	if (option != e_all) {
+		set_tag_string(window, &STRING4,
+					   "EDIT MOVE: use <RETURN> to select/deselect items", 0);
+		PYXIS_select(window, form, att_any, start);
+		PYXIS_pop_form(window);
+	}
+
+/* Find the top, rightmost selected object */
+
+	attribute = NULL;
+	first = NULL;
+	min_x = min_y = INITIAL_MAX;
+
+	while (attribute =
+		   (ATT) PYXIS_find_object(form, attribute, att_any, TRUE)) {
+		object = attribute->att_value;
+		if (GET_VALUE(object, att_reverse_video)) {
+			x = GET_VALUE(object, att_display_x);
+			y = GET_VALUE(object, att_display_y);
+			min_x = MIN(min_x, x);
+			min_y = MIN(min_y, y);
+			if (!first)
+				first = object;
+		}
+	}
+
+/* Move group */
+
+	x = min_x;
+	y = min_y;
+
+	for (;;) {
+		delta_x = x;
+		delta_y = y;
+		set_tag_string(window, &STRING5,
+					   "EDIT MOVE: Use cursor keys to move field; hit %s when done",
+					   PYXIS__KEY_ENTER);
+		c = motion(window, form, first, &x, &y);
+		PYXIS_pop_form(window);
+		if (c == PYXIS__KEY_ENTER || c == '\n')
+			break;
+		switch (c) {
+		case PYXIS__KEY_UP:
+		case PYXIS__KEY_DOWN:
+		case PYXIS__KEY_LEFT:
+		case PYXIS__KEY_RIGHT:
+			break;
+
+		default:
+			continue;
+		}
+		delta_x = x - delta_x;
+		delta_y = y - delta_y;
+		change = TRUE;
+		form->obj_flags |= OBJ_changed;
+		while (attribute =
+			   (ATT) PYXIS_find_object(form, attribute, att_any, TRUE)) {
+			object = attribute->att_value;
+			if (GET_VALUE(object, att_reverse_video)) {
+				min_x = GET_VALUE(object, att_display_x);
+				min_y = GET_VALUE(object, att_display_y);
+				PYXIS_position(object, min_x + delta_x, min_y + delta_y);
+			}
+		}
+	}
+
+/* Restore original reverse video */
+
+	while (attribute =
+		   (ATT) PYXIS_find_object(form, attribute, att_any, TRUE)) {
+		object = attribute->att_value;
+		if (attr = (ATT) GET_ATTRIBUTE(object, att_temp)) {
+			PYXIS_move(form, object);
+			REPLACE_ATTRIBUTE(object, att_reverse_video, attype_numeric,
+							  attr->att_value);
+			PYXIS_delete_attribute(object, attr);
+			attribute = NULL;
+		}
+	}
+
+	return change;
+}
+
+static move_item(window, form, object)
+	 WIN window;
+	 OBJ form, object;
+{
+/**************************************
+ *
+ *      m o v e _ i t e m
+ *
+ **************************************
+ *
+ * Functional description
+ *      Move an object around.  Return TRUE if it really moved.
+ *
+ **************************************/
+	USHORT c, change;
+	SLONG x, y;
+
+	change = FALSE;
+	x = GET_VALUE(object, att_display_x);
+	y = GET_VALUE(object, att_display_y);
+
+	for (;;) {
+		set_tag_string(window, &STRING3,
+					   "EDIT MOVE: Use cursor keys to move field; hit %s when done",
+					   PYXIS__KEY_ENTER);
+		/*  c = motion (window, form, &x, &y);  */
+		c = motion(window, form, object, &x, &y);
+		PYXIS_pop_form(window);
+		switch (c) {
+		case PYXIS__KEY_UP:
+		case PYXIS__KEY_DOWN:
+		case PYXIS__KEY_LEFT:
+		case PYXIS__KEY_RIGHT:
+			break;
+
+		case '\n':
+		case PYXIS__KEY_ENTER:
+			PYXIS_move(form, object);
+			return change;
+
+		default:
+			continue;
+		}
+		change = TRUE;
+		PYXIS_position(object, x, y);
+		form->obj_flags |= OBJ_changed;
+	}
+}
+
+static position(window, form, x_ptr, y_ptr)
+	 WIN window;
+	 OBJ form;
+	 int *x_ptr, *y_ptr;
+{
+/**************************************
+ *
+ *      p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Position ourselves somewhere within the form.  Stop
+ *      on a significant character and return.
+ *
+ **************************************/
+	SSHORT c;
+
+	for (;;)
+		switch (c = motion(window, form, 0, x_ptr, y_ptr)) {
+		case PYXIS__KEY_UP:
+		case PYXIS__KEY_DOWN:
+		case PYXIS__KEY_LEFT:
+		case PYXIS__KEY_RIGHT:
+			break;
+
+		default:
+			return c;
+		}
+}
+
+static put_string(target, target_size, field, attribute)
+	 UCHAR *target;
+	 int target_size;
+	 OBJ field;
+	 USHORT attribute;
+{
+/**************************************
+ *
+ *      p u t _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Copy string from form field to form.
+ *
+ **************************************/
+	TEXT *string;
+
+	if (!(string = GET_STRING(field, attribute)))
+		string = "";
+
+	strncpy(target, string, target_size);
+}
+
+static reverse(object)
+	 OBJ object;
+{
+/**************************************
+ *
+ *      r e v e r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Set reverse video family of attributes.
+ *
+ **************************************/
+	SLONG value;
+
+/*CASE_MENU (MENU_HANDLE MENU6 HORIZONTAL) "Reverse options: "*/
+	switch (isc_menu((long *) 0L, &isc_window, &MENU6, &isc_18l, isc_18)) {
+		/*MENU_ENTREE "INVERT": */
+	case 1:
+		value = !GET_VALUE(object, att_reverse_video);
+		REPLACE_ATTRIBUTE(object, att_reverse_video, attype_numeric, value);
+		return TRUE;
+
+		/*MENU_ENTREE "REVERSE ON UPDATE": */
+		break;
+	case 2:
+		REPLACE_ATTRIBUTE(object, att_reverse_for_update, attype_numeric,
+						  TRUE);
+		PYXIS_delete_named_attribute(object, att_reverse_video);
+		return TRUE;
+
+		/*MENU_ENTREE "NORMAL": */
+		break;
+	case 3:
+		PYXIS_delete_named_attribute(object, att_reverse_for_update);
+		PYXIS_delete_named_attribute(object, att_reverse_video);
+		return TRUE;
+
+		/*MENU_ENTREE "Exit": */
+		break;
+	case 4:
+		return FALSE;
+
+/*END_MENU*/
+		break;
+	};
+}
+
+static save_form(window, form, dbb, transaction)
+	 WIN window;
+	 OBJ form;
+	 int *dbb, *transaction;
+{
+	struct {
+		short isc_16;			/* gds__form_control */
+		char isc_17[31];		/* FORM_NAME */
+	} isc_15;
+/**************************************
+ *
+ *      s a v e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *      Save a form in a dbb.
+ *
+ **************************************/
+
+	manual_load(&NAME_PROMPT, form_form_name);
+
+/*FOR_FORM (TAG FORM_HANDLE NAME_PROMPT) F IN FORM_NAME*/
+	{
+		if (!NAME_PROMPT)
+			isc_load_form((long *) 0L, &db, &gds__trans, &NAME_PROMPT,
+						  (short *) 0, "FORM_NAME");
+		if (!isc_12)
+			isc_compile_map((long *) 0L, &NAME_PROMPT, &isc_12, &isc_13l,
+							isc_13);
+		isc_reset_form((long *) 0L, &isc_12);
+		for (;;) {
+			/*DISPLAY F ACCEPTING FORM_NAME WAKING ON FORM_NAME */
+			{
+				isc_15.isc_16 = 6;
+				isc_drive_form((long *) 0L, &db, &gds__trans, &isc_window,
+							   &isc_12, &isc_15, &isc_15);
+			};
+			if (				/*F.FORM_NAME.STATE */
+				   isc_15.isc_16 != PYXIS_OPT_USER_DATA || validate_name(	/*F.FORM_NAME */
+																			isc_15.isc_17))
+				break;
+		}
+		if (					/*F.FORM_NAME.STATE */
+			   isc_15.isc_16 == PYXIS_OPT_USER_DATA)
+			PYXIS_store_form(dbb, transaction,	/*F.FORM_NAME */
+							 isc_15.isc_17, form);
+/*END_FORM*/
+		isc_pop_window((long *) 0L, &isc_window);
+	};
+}
+
+static set_prototypes(object, state)
+	 OBJ object;
+	 USHORT state;
+{
+/**************************************
+ *
+ *      s e t _ p r o t o t y p e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Set prototypes active or inactive.
+ *
+ **************************************/
+	OBJ sub;
+	ATT attribute;
+
+	for (attribute = object->obj_attributes; attribute;
+		 attribute =
+		 attribute->att_next) if (attribute->att_type == attype_object) {
+			sub = attribute->att_value;
+			if (attribute->att_name == att_prototype)
+				REPLACE_ATTRIBUTE(sub, att_inactive, attype_numeric, state);
+			set_prototypes(sub, state);
+		}
+}
+
+static set_tag_string(window, ptr, string, keycode)
+	 WIN window;
+	 OBJ *ptr;
+	 UCHAR *string, keycode;
+{
+/**************************************
+ *
+ *      s e t _ t a g _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Set up tag string, including a possible key name.
+ *
+ **************************************/
+
+	UCHAR buffer[100];
+
+	if (!*ptr) {
+		if (keycode) {
+			sprintf(buffer, string, PYXIS_get_keyname(window, keycode));
+			string = buffer;
+		}
+		*ptr = (OBJ) PYXIS_create_object(string, att_literal_string);
+	}
+
+	PYXIS_push_tag(window, *ptr);
+}
+
+static size_form(window, form)
+	 WIN window;
+	 OBJ form;
+{
+	struct {
+		long isc_4;				/* HEIGHT */
+		long isc_5;				/* WIDTH */
+		short isc_6;			/* gds__form_control */
+		short isc_7;			/* TERMINATOR */
+		short isc_8;			/* gds__form_control */
+		short isc_9;			/* gds__form_control */
+		short isc_10;			/* gds__form_control */
+		char isc_11[1];			/* OUTLINE_FORM */
+	} isc_3;
+/**************************************
+ *
+ *      s i z e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *      Change size or outline of form.
+ *
+ **************************************/
+	UCHAR *p;
+	USHORT c, width, height, x, y, box;
+
+	manual_load(&RESIZE_FORM, form_resize);
+	PYXIS_compute_size(RESIZE_FORM, &x, &y);
+	x = (window->win_width - x) / 2;
+	y = (window->win_height - y) / 2;
+	PYXIS_position(RESIZE_FORM, x, y);
+
+/* Compute "current" size of form */
+
+	box = GET_VALUE(form, att_box);
+	width = GET_VALUE(form, att_width);
+	height = GET_VALUE(form, att_height);
+	PYXIS_compute_size(form, &x, &y);
+
+	if (!width)
+		width = x + 2;
+	if (!height)
+		height = y + 2;
+
+	REPLACE_ATTRIBUTE(form, att_blank, attype_numeric, TRUE);
+
+/*FOR_FORM (FORM_HANDLE RESIZE_FORM TRANSPARENT) X IN SIZE_FORM*/
+	{
+		if (!RESIZE_FORM)
+			isc_load_form((long *) 0L, &db, &gds__trans, &RESIZE_FORM,
+						  (short *) 0, "SIZE_FORM");
+		if (!isc_0)
+			isc_compile_map((long *) 0L, &RESIZE_FORM, &isc_0, &isc_1l,
+							isc_1);
+		isc_reset_form((long *) 0L, &isc_0);
+		/*X.WIDTH */
+		isc_3.isc_5 = width;
+		/*X.HEIGHT */
+		isc_3.isc_4 = height;
+		strcpy(					/*X.OUTLINE_FORM */
+				  isc_3.isc_11, (box) ? "Y" : "N");
+		/*DISPLAY X DISPLAYING * ACCEPTING * */
+		{
+			isc_3.isc_6 = 3;
+			isc_3.isc_8 = 3;
+			isc_3.isc_9 = 3;
+			isc_3.isc_10 = 3;
+			isc_drive_form((long *) 0L, &db, &gds__trans, &isc_window, &isc_0,
+						   &isc_3, &isc_3);
+		};
+		if (					/*X.TERMINATOR */
+			   isc_3.isc_7 == PYXIS__KEY_ENTER) {
+			if (				/*X.WIDTH.STATE */
+				   isc_3.isc_10 == PYXIS_OPT_USER_DATA)
+				REPLACE_ATTRIBUTE(form, att_width, attype_numeric,	/*X.WIDTH */
+								  isc_3.isc_5);
+			if (				/*X.HEIGHT.STATE */
+				   isc_3.isc_9 == PYXIS_OPT_USER_DATA)
+				REPLACE_ATTRIBUTE(form, att_height, attype_numeric,	/*X.HEIGHT */
+								  isc_3.isc_4);
+			if (				/*X.OUTLINE_FORM.STATE */
+				   isc_3.isc_8 == PYXIS_OPT_USER_DATA)
+				if (			/*X.OUTLINE_FORM */
+					   isc_3.isc_11[0] == 'Y') {
+					REPLACE_ATTRIBUTE(form, att_box, attype_numeric, TRUE);
+					REPLACE_ATTRIBUTE(form, att_border, attype_numeric, TRUE);
+				}
+				else {
+					PYXIS_delete_named_attribute(form, att_box);
+					PYXIS_delete_named_attribute(form, att_border);
+				}
+		}
+/*END_FORM*/
+		isc_pop_window((long *) 0L, &isc_window);
+	};
+}
+
+static validate_name(string)
+	 UCHAR *string;
+{
+/**************************************
+ *
+ *      v a l i d a t e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Validate a file and/or form name.
+ *
+ **************************************/
+
+	for (; *string; string++)
+		if (*string == ' ' || *string == '\t')
+			return FALSE;
+
+	return TRUE;
+}
diff --git a/src/pyxis/edit.e b/src/pyxis/edit.e
new file mode 100644
index 0000000000..ece2e622e5
--- /dev/null
+++ b/src/pyxis/edit.e
@@ -0,0 +1,1455 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		edit.e
+ *	DESCRIPTION:	Form Editor
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: edit.e,v 1.1.1.1 2001-05-23 13:26:34 tamlin Exp $
+ * Revision 1.2  2000/11/20 17:17:17  fsg
+ * Changes to get edit.e through gpre 6.0
+ * Still have to find out why gpre isn't processing
+ * PYXYS FORM FIELDS correctly.
+ * Probably no one ever will need this.
+ * But who cares :-)
+ *
+ */
+
+#include "../jrd/gds.h"
+#include "../pyxis/pyxis.h"
+#include "../pyxis/phase2.h"
+
+/***
+#define DEBUG 1
+***/
+
+#define INITIAL_MAX	32000
+
+DATABASE db = STATIC "forms.gdb";
+
+WINDOW_SCOPE STATIC;
+
+typedef enum opt_t {
+	e_some,
+	e_most,
+	e_all,
+	e_continue
+} OPT_T;
+
+extern SCHAR *PYXIS_get_keyname();
+extern OBJ PYXIS_get_attribute_value();
+
+static ATT add_text(), add_object(), add_field();
+static SLONG edit_field();
+static cleanup();
+
+#define FIELD_EDIT	impure [0]
+#define RESIZE_FORM	impure [1]
+#define NAME_PROMPT	impure [2]
+#define ENUMERATION	impure [3]
+#define STRING1		impure [4]
+#define STRING2		impure [5]
+#define STRING3		impure [6]
+#define STRING4		impure [7]
+#define STRING5		impure [8]
+#define STRING6		impure [9]
+#define MENU1		impure [10]
+#define MENU2		impure [11]
+#define MENU3		impure [12]
+#define MENU4		impure [13]
+#define MENU5		impure [14]
+#define MENU6		impure [15]
+#define MENU7		impure [16]
+#define IMPURE_MAX	17
+
+static OBJ impure[IMPURE_MAX];
+
+static UCHAR field_edit_form[] =
+#include "../pyxis/field_edit.h"
+, form_resize[] =
+#include "../pyxis/size_form.h"
+, form_form_name[] =
+#include "../pyxis/form_name.h"
+, form_field_name[] =
+#include "../pyxis/field_name.h"
+, form_enumerations[] =
+#include "../pyxis/enumerations.h"
+ ;
+
+typedef struct dtyp {
+	UCHAR *dtyp_string;
+	USHORT dtyp_internal;
+	USHORT dtyp_external;
+	USHORT dtyp_length;
+} *DTYP;
+
+static struct dtyp dtypes[] = {
+	(UCHAR *) "CHAR", dtype_text, blr_text, 0,
+	(UCHAR *) "VARYING", dtype_varying, blr_varying, 0,
+	(UCHAR *) "SHORT", dtype_short, blr_short, sizeof(SSHORT),
+	(UCHAR *) "LONG", dtype_long, blr_long, sizeof(SLONG),
+	(UCHAR *) "FLOAT", dtype_real, blr_float, sizeof(float),
+	(UCHAR *) "DOUBLE", dtype_double, blr_double, sizeof(double),
+#ifdef VMS
+	(UCHAR *) "D_FLOAT", dtype_d_float, blr_d_float, sizeof(double),
+#else
+	(UCHAR *) "D_FLOAT", dtype_double, blr_d_float, sizeof(double),
+#endif
+	(UCHAR *) "DATE", dtype_timestamp, blr_timestamp, sizeof(GDS__QUAD),
+	(UCHAR *) "BLOB", dtype_blob, blr_blob, sizeof(GDS__QUAD),
+	NULL, 0, 0
+};
+
+
+
+PYXIS_edit(window, form, dbb, transaction)
+	 WIN window;
+	 OBJ form;
+	 int *dbb, *transaction;
+{
+/**************************************
+ *
+ *	P Y X I S _ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit a form.  Mostly slop fields around.  Return TRUE
+ *	if anything really changed.
+ *
+ **************************************/
+	OBJ object;
+	ATT attribute, next;
+	SLONG stat;
+	STATUS status[20];
+	USHORT c, value, x, y, change;
+
+	gds__window = (int *) window;
+	change = FALSE;
+	set_prototypes(form, FALSE);
+
+#ifdef DEBUG
+	if (!FIELD_EDIT && dbb) {
+		PYXIS_load_form(status, dbb, transaction, &FIELD_EDIT,
+						NULL_PTR, "FIELD_EDIT");
+		PYXIS_load_form(status, dbb, transaction, &RESIZE_FORM,
+						NULL_PTR, "SIZE_FORM");
+		PYXIS_load_form(status, dbb, transaction, &ENUMERATION,
+						NULL_PTR, "ENUMERATIONS");
+	}
+#endif
+
+	for (attribute = NULL;;) {
+		if (!attribute)
+			attribute =
+				(ATT) PYXIS_find_object(form, NULL_PTR, att_any, TRUE);
+		set_tag_string(window, &STRING6,
+					   "EDIT: Move cursor to object and hit %s",
+					   PYXIS__KEY_ENTER);
+		object = (attribute) ? attribute->att_value : NULL;
+		if (object) {
+			value = GET_VALUE(object, att_reverse_video);
+			REPLACE_ATTRIBUTE(object, att_reverse_video, attype_numeric,
+							  !value);
+		}
+		c = PYXIS_get_char(window, object, 0, 0);
+		if (object)
+			REPLACE_ATTRIBUTE(object, att_reverse_video, attype_numeric,
+							  value);
+		PYXIS_pop_form(window);
+		switch (c) {
+		case PYXIS__KEY_RIGHT:
+		case PYXIS__KEY_DOWN:
+		case PYXIS__KEY_LEFT:
+		case PYXIS__KEY_UP:
+		case '\t':
+			if (attribute
+				&& (next = (ATT) PYXIS_navigate(form, attribute, att_any, c)))
+				attribute = next;
+			break;
+
+		case PYXIS__KEY_SCROLL_TOP:
+			PYXIS_scroll_reset(window->win_form);
+			break;
+
+		case PYXIS__KEY_ENTER:
+		default:
+			if (c != PYXIS__KEY_ENTER && c != '\n')
+				PYXIS_return_char(window, c);
+			CASE_MENU(MENU_HANDLE MENU1 HORIZONTAL) 'Edit options: '
+		    MENU_ENTREE 'SELECT':
+                continue;
+
+            MENU_ENTREE 'MOVE':
+                if (!object)
+                    break;
+			    change |= move(window, form, object, attribute);
+
+            MENU_ENTREE 'ADD':
+                if (next = add_object(window, form, object, dbb, transaction)) {
+                    attribute = next;
+                    change = TRUE;
+                }
+
+            MENU_ENTREE 'CHANGE':
+                if (!object)
+                    break;
+			    x = GET_VALUE(object, att_display_x);
+			    y = GET_VALUE(object, att_display_y);
+                if (attribute->att_name == att_label) {
+                    set_tag_string(window, &STRING1,
+							   "EDIT ADD_TEXT: Enter replacement text, terminate with <RETURN> or %s",
+							   PYXIS__KEY_ENTER);
+                    add_text(window, form, x, y, object);
+                    PYXIS_pop_form(window);
+                    change = TRUE;
+                }
+                else
+                    edit_field(window, object, x, y, dbb, transaction);
+
+		    MENU_ENTREE 'DELETE':
+                if (!object)
+                    break;
+			    if (!
+                    (next =
+                     (ATT) PYXIS_find_object(form, attribute, att_any,
+                                             TRUE))) next =
+                                                         (ATT) PYXIS_find_object(form, attribute, att_any, FALSE);
+                PYXIS_delete_attribute(form, attribute);
+                attribute = next;
+                change = TRUE;
+
+		    MENU_ENTREE 'REVERSE':
+                if (object)
+                    if (attribute->att_name == att_label) {
+                        value = !GET_VALUE(object, att_reverse_video);
+                        REPLACE_ATTRIBUTE(object, att_reverse_video,
+                                          attype_numeric, value);
+                        change = TRUE;
+                    }
+                    else
+                        change |= reverse(object);
+
+		    MENU_ENTREE 'SAVE':
+                save_form(window, form, dbb, transaction);
+
+		    MENU_ENTREE 'Exit':
+                /* set_prototypes (form, TRUE); */
+                return change;
+			END_MENU;
+		}
+	}
+}
+
+
+static ATT add_field(form, field)
+	 OBJ form, field;
+{
+/**************************************
+ *
+ *	a d d _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Incrementally add a field to a form.
+ *
+ **************************************/
+	OBJ label;
+	ATT attribute, attr;
+	USHORT x1, y1, x2, y2, min_width;
+	TEXT *name;
+
+/* Make up field label */
+
+	name = GET_STRING(field, att_field_name);
+	label = (OBJ) PYXIS_create_object(name, att_literal_string);
+
+	if (!(min_width = default_position(form, att_label, &x1, &y1)))
+		min_width = label->obj_width;
+
+	x1 += min_width;
+	x1 = MAX(x1, label->obj_width);
+	PYXIS_position(label, x1 - label->obj_width, y1);
+	attribute = (ATT) PUT_ATTRIBUTE(form, att_label, attype_object, label);
+	PYXIS_move(form, label);
+
+	PYXIS_delete_named_attribute(field, att_inactive);
+
+	if (attr = (ATT) GET_ATTRIBUTE(field, att_fill_string))
+		PYXIS_set_display_attribute(field, attr);
+
+	default_position(form, att_field, &x2, &y2);
+	if (y1 == y2)
+		x2 = MAX(x1 + 2, x2);
+
+	PYXIS_position(field, x2, y2);
+	REPLACE_ATTRIBUTE(field, att_reverse_for_update, attype_numeric, TRUE);
+	PUT_ATTRIBUTE(form, att_field, attype_object, field);
+	PYXIS_move(form, field);
+
+	return attribute;
+}
+
+
+static ATT add_object(window, form, object, dbb, transaction)
+	 WIN window;
+	 OBJ form, object;
+	 int *dbb, *transaction;
+{
+/**************************************
+ *
+ *	a d d _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drive sub-menu to add objects to form.
+ *
+ **************************************/
+	OBJ field;
+	USHORT c, x, y, change;
+
+	CASE_MENU(MENU_HANDLE MENU2 HORIZONTAL) 'Add options: ';
+    MENU_ENTREE 'TEXT':
+        x = y = 0;
+	    if (object) {
+            x = GET_VALUE(object, att_display_x);
+            y = GET_VALUE(object, att_display_y);
+        }
+        set_tag_string(window, &STRING2,
+				   "EDIT ADD_TEXT: Enter text, terminate with <RETURN> or %s",
+				   PYXIS__KEY_ENTER);
+        field = (OBJ) add_text(window, form, x, y, NULL_PTR);
+        PYXIS_pop_form(window);
+        return (ATT) field;
+
+    MENU_ENTREE 'FIELD':
+        field = (OBJ) PYXIS_create_object(NULL_PTR, 0);
+	    default_position(form, att_field, &x, &y);
+        edit_field(window, field, x, y, dbb, transaction);
+        if (!GET_VALUE(field, att_field_name)) {
+            PYXIS_delete_object(field);
+            return NULL;
+        }
+        return add_field(form, field);
+
+    MENU_ENTREE 'DATABASE FIELDS':
+        return (ATT) copy_fields(window, form, object, dbb, transaction);
+
+    MENU_ENTREE 'REPEATING SUB-FORM':
+        return (ATT) add_repeating(window, form, object, dbb, transaction);
+
+    MENU_ENTREE 'Exit':
+        return NULL;
+
+	END_MENU;
+}
+
+
+static add_repeating(window, form, object, dbb, transaction)
+	 WIN window;
+	 OBJ form, object;
+	 int *dbb, *transaction;
+{
+/**************************************
+ *
+ *	a d d _ r e p e a t i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a repeating sub-form box.
+ *
+ **************************************/
+	OBJ form_menu, entree, sub_form, box;
+	ATT attribute;
+	TEXT *form_name;
+	USHORT x, y;
+
+/* Generate and format relation menu */
+
+	form_menu = (OBJ) PYXIS_forms(dbb, transaction);
+	PYXIS_format_menu(form_menu, "Select Sub-Form", FALSE);
+	x = (window->win_width - GET_VALUE(form_menu, att_width)) / 2;
+	PYXIS_position(form_menu, x, 1);
+
+/* Let user select relation.  If he doesn't pick anything, give up and
+   go away */
+
+	PYXIS_push_form(window, form_menu, FALSE);
+	entree = (OBJ) PYXIS_menu(window, form_menu);
+
+	if (!entree) {
+		PYXIS_pop_form(window);
+		PYXIS_delete_object(form_menu);
+		return NULL;
+	}
+
+/* Pick up relation name, and build field menu */
+
+	form_name = GET_STRING(entree, att_literal_string);
+	PYXIS_load_form(gds__status, dbb, transaction, &sub_form,
+					NULL_PTR, form_name);
+	PYXIS_compute_size(sub_form, &x, &y);
+
+/* Set up box to hold sub-form */
+
+	box = (OBJ) PYXIS_create_object(NULL_PTR, 0);
+	PUT_ATTRIBUTE(box, att_border, attype_numeric, 1);
+	PUT_ATTRIBUTE(box, att_blank, attype_numeric, 1);
+	PUT_ATTRIBUTE(box, att_box, attype_numeric, 1);
+	PUT_ATTRIBUTE(box, att_width, attype_numeric, x + 2);
+	PUT_ATTRIBUTE(box, att_height, attype_numeric, 3 * y + 2);
+	PUT_ATTRIBUTE(box, att_prototype, attype_object, sub_form);
+	PUT_ATTRIBUTE(box, att_field_name, attype_string, form_name);
+
+/* Position box someplace */
+
+	default_position(form, att_field, &x, &y);
+	PYXIS_position(box, x, y);
+	PUT_ATTRIBUTE(box, att_dtype, attype_numeric, dtype_short);
+	PUT_ATTRIBUTE(box, att_length, attype_numeric, sizeof(SSHORT));
+	add_field(form, box);
+
+/* Clean up */
+
+	PYXIS_pop_form(window);
+	PYXIS_delete_object(form_menu);
+
+	return NULL;
+}
+
+
+static ATT add_text(window, form, x, y, object)
+	 WIN window;
+	 OBJ form;
+	 SLONG x, y;
+	 OBJ object;
+{
+/**************************************
+ *
+ *	a d d _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add literal text to a form.  Follow cursor movements until
+ *	a significant character shows up, then gobble text.
+ *
+ **************************************/
+	UCHAR text[256], *p;
+	ATT attribute, attr;
+	SSHORT c;
+
+/* Unless we're doing a straight replacement, follow cursor keys
+   until text shows up */
+
+	p = text;
+
+	if (object)
+		attribute = (ATT) GET_ATTRIBUTE(form, att_label);
+	else {
+		c = position(window, form, &x, &y);
+
+		if (c == '\n')
+			return NULL;
+
+		*p++ = c;
+		object = (OBJ) PYXIS_create_object(NULL_PTR, 0);
+		PYXIS_position(object, x, y);
+		attribute =
+			(ATT) PUT_ATTRIBUTE(form, att_label, attype_object, object);
+		PYXIS_move(form, object);
+	}
+
+/* Gobble characters until carriage return */
+
+	*p = 0;
+
+	for (;;) {
+		attr =
+			(ATT) REPLACE_ATTRIBUTE(object, att_literal_string, attype_string,
+									text);
+		PYXIS_set_display_attribute(object, attr);
+		REPLACE_ATTRIBUTE(object, att_width, attype_numeric, p - text);
+		c = PYXIS_get_char(window, object, p - text, 0);
+		switch (c) {
+		case PYXIS__KEY_UP:
+		case PYXIS__KEY_DOWN:
+		case PYXIS__KEY_RIGHT:
+		case PYXIS__KEY_LEFT:
+		case PYXIS__KEY_ENTER:
+		case '\n':
+			return attribute;
+
+		case PYXIS__KEY_DELETE:
+			if (p > text)
+				*--p = 0;
+			break;
+
+		default:
+			*p++ = c;
+			*p = 0;
+		}
+	}
+}
+
+
+static cleanup()
+{
+/**************************************
+ *
+ *	c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cleanup module statics to keep Apollo shared
+ *	images happy.
+ *
+ **************************************/
+	OBJ *p, *end;
+
+	gds__window = NULL;
+	CLEAR_HANDLES;
+
+	for (p = impure, end = p + IMPURE_MAX; p < end;)
+		*p++ = NULL;
+}
+
+
+static copy_fields(window, form, object, dbb, transaction)
+	 WIN window;
+	 OBJ form, object;
+	 int *dbb, *transaction;
+{
+/**************************************
+ *
+ *	c o p y _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy fields from dbb onto form.
+ *
+ **************************************/
+	OBJ relation_menu, field_menu, entree, field;
+	ATT attribute;
+	TEXT *relation_name;
+	USHORT x, y;
+
+/* Generate and format relation menu */
+
+	relation_menu = (OBJ) PYXIS_relations(dbb, transaction);
+	PYXIS_format_menu(relation_menu, "Select Relation", FALSE);
+	x = (window->win_width - GET_VALUE(relation_menu, att_width)) / 2;
+	PYXIS_position(relation_menu, x, 1);
+
+/* Let user select relation.  If he doesn't pick anything, give up and
+   go away */
+
+	PYXIS_push_form(window, relation_menu, FALSE);
+	entree = (OBJ) PYXIS_menu(window, relation_menu);
+
+	if (!entree) {
+		PYXIS_pop_form(window);
+		PYXIS_delete_object(relation_menu);
+		return NULL;
+	}
+
+/* Pick up relation name, and build field menu */
+
+	relation_name = GET_STRING(entree, att_literal_string);
+	field_menu = (OBJ) PYXIS_relation_fields(dbb, transaction, relation_name);
+	PYXIS_format_menu(field_menu, "Select Field(s)", FALSE);
+	PYXIS_position(field_menu, x + strlen(relation_name), 3);
+	PYXIS_push_form(window, field_menu, FALSE);
+	PYXIS_select(window, field_menu, att_entree, NULL_PTR);
+
+/* Pick up selected fields, if any */
+
+	for (attribute = NULL;
+		 attribute = (ATT) PYXIS_find_object(field_menu, attribute, att_entree, TRUE);) {
+		entree = attribute->att_value;
+		if (GET_VALUE(entree, att_reverse_video) &&
+			(field = GET_OBJECT(entree, att_entree_value))) {
+			x = 0;
+			y = 0;
+			field = (OBJ) PYXIS_clone(field);
+			PYXIS_field_defaults(field);
+			add_field(form, field, &x, &y);
+		}
+	}
+
+/* Clean up */
+
+	PYXIS_pop_form(window);
+	PYXIS_pop_form(window);
+	PYXIS_delete_object(field_menu);
+	PYXIS_delete_object(relation_menu);
+
+	return NULL;
+}
+
+
+static default_position(form, type, x_ptr, y_ptr)
+	 OBJ form;
+	 ATT_N type;
+	 USHORT *x_ptr, *y_ptr;
+{
+/**************************************
+ *
+ *	d e f a u l t _ p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the default position of an object of a given type.
+ *
+ **************************************/
+	OBJ entree;
+	USHORT x, y, max_x, max_y, min_width, count;
+	ATT attribute;
+
+	max_x = max_y = count = 0;
+	min_width = 9999;
+	attribute = NULL;
+
+	if (type == att_label)
+		attribute = (ATT) PYXIS_find_object(form, attribute, type, TRUE);
+
+	while (attribute = (ATT) PYXIS_find_object(form, attribute, type, TRUE)) {
+		entree = attribute->att_value;
+		++count;
+		max_x = MAX(max_x, entree->obj_rel_x);
+		max_y = MAX(max_y, entree->obj_rel_y);
+		min_width = MIN(min_width, entree->obj_width);
+	}
+
+	*x_ptr = max_x;
+	*y_ptr = max_y + ((count < 10) ? 2 : 1);
+
+	return (count) ? min_width : 0;
+}
+
+
+static edit_enumerations(window, field)
+	 WIN window;
+	 OBJ field;
+{
+/**************************************
+ *
+ *	e d i t _ e n u m e r a t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update enumerations, if any, for a field.
+ *
+ **************************************/
+	OBJ values, value;
+	ATT attribute;
+	TEXT *data;
+	USHORT width, height, x, y, index;
+
+	manual_load(&ENUMERATION, form_enumerations);
+	PYXIS_compute_size(ENUMERATION, &width, &height);
+	x = (window->win_width - width) / 2;
+	y = (window->win_height - height) / 2;
+	PYXIS_position(ENUMERATION, x, y);
+	values = (OBJ) PYXIS_find_field(ENUMERATION, "VALUES");
+
+	FOR_FORM(FORM_HANDLE ENUMERATION TRANSPARENT) X IN ENUMERATIONS
+		PYXIS_purge_segments(values, 1);
+		for (index = 1, attribute = NULL;
+			 attribute = (ATT) PYXIS_find_enumeration(field, attribute, TRUE);
+			 ++index) 
+            PYXIS_put_segment(values, attribute->att_value, index);
+		DISPLAY X ACCEPTING VALUES;
+		if (X.TERMINATOR != PYXIS__KEY_ENTER) {
+			pyxis__pop_window(&gds__window);
+			return;
+		}
+		PYXIS_delete_named_attribute(field, att_enumeration);
+		for (index = 1; value = (OBJ) PYXIS_find_index(values, index);
+			 index++) 
+            if ((data = GET_STRING(value, att_update_data))
+                || (data = GET_STRING(value, att_data)))
+				PUT_ATTRIBUTE(field, att_enumeration, attype_string, data);
+    END_FORM;
+}
+
+
+static SLONG edit_field(window, field, x, y, dbb, transaction)
+	 WIN window;
+	 OBJ field;
+	 USHORT x, y;
+	 int *dbb, *transaction;
+{
+/**************************************
+ *
+ *	e d i t _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit characteristics of a field.  If the field doesn't exits,
+ *	make one up.
+ *
+ **************************************/
+	OBJ prototype;
+	DTYP dtype;
+	USHORT length, width, offset, height, c;
+	UCHAR *string, *p;
+	SLONG scale;
+	BOOLEAN fnam_upd, edstr_upd, fstr_upd, scale_upd, w_upd;
+
+/* If this is a sub-form, just re-size it for now */
+
+	if (prototype = GET_OBJECT(field, att_prototype)) {
+		CASE_MENU(MENU_HANDLE MENU3 HORIZONTAL) 'Change: '
+        MENU_ENTREE 'CHARACTERISTICS':
+            manual_load(&NAME_PROMPT, form_field_name);
+            FOR_FORM(TAG FORM_HANDLE NAME_PROMPT) F IN FIELD_NAME
+                strcpy(F.FIELD_NAME, GET_VALUE(field, att_field_name));
+                DISPLAY F DISPLAYING FIELD_NAME ACCEPTING FIELD_NAME WAKING ON FIELD_NAME;
+                if (F.FIELD_NAME.STATE == PYXIS__OPT_USER_DATA)
+                    REPLACE_ATTRIBUTE(field, att_field_name, attype_string, F.FIELD_NAME);
+                END_FORM;
+                return;
+
+        MENU_ENTREE 'REGION':
+            size_form(window, field);
+            return;
+
+        MENU_ENTREE 'SUB-ITEM':
+            PYXIS_edit(window, prototype, dbb, transaction);
+            return;
+
+        MENU_ENTREE 'SIZE':
+            size_form(window, prototype);
+            return;
+
+        MENU_ENTREE 'Exit':
+            return;
+	   END_MENU
+    }
+	else
+	   CASE_MENU(MENU_HANDLE MENU4 HORIZONTAL) 'Change: '
+       MENU_ENTREE 'CHARACTERISTICS':
+
+       MENU_ENTREE 'ENUMERATIONS':
+            return edit_enumerations(window, field);
+
+       MENU_ENTREE 'EXIT':
+            return;
+	   END_MENU;
+
+/* Set up data type */
+
+	dtype = dtypes;
+
+	if (c = GET_VALUE(field, att_datatype)) {
+		for (dtype = dtypes; dtype->dtyp_string; dtype++)
+			if (c == dtype->dtyp_external)
+				break;
+	}
+	else if (c = GET_VALUE(field, att_dtype)) {
+		for (dtype = dtypes; dtype->dtyp_string; dtype++)
+			if (c == dtype->dtyp_internal)
+				break;
+	}
+
+	if (!dtype->dtyp_string)
+		dtype = dtypes;
+
+/* Initialize the field edit form, if necessary */
+
+	manual_load(&FIELD_EDIT, field_edit_form);
+
+	PYXIS_compute_size(FIELD_EDIT, &width, &height);
+	x = MIN(x, window->win_width - width - 1);
+	y = MIN(y, window->win_height - height - 1);
+	PYXIS_position(FIELD_EDIT, x, y);
+
+	FOR_FORM(FORM_HANDLE FIELD_EDIT TRANSPARENT) X IN FIELD_EDIT
+		put_string(X.FIELD_NAME, sizeof X.FIELD_NAME, field, att_field_name);
+		put_string(X.EDIT_STRING, sizeof X.EDIT_STRING, field,
+				   att_edit_string);
+		put_string(X.FILL_STRING, sizeof X.FILL_STRING, field,
+				   att_fill_string);
+		strcpy(X.DATATYPE, dtype->dtyp_string);
+		X.WIDTH = GET_VALUE(field, att_width);
+		X.LENGTH = GET_VALUE(field, att_length);
+		X.SCALE = GET_VALUE(field, att_scale);
+		strcpy(X.UPCASE, (GET_VALUE(field, att_upcase)) ? "Y" : "N");
+		strcpy(X.ALIGN_RIGHT,
+			   (GET_VALUE(field, att_insert_right)) ? "Y" : "N");
+		fnam_upd = edstr_upd = fstr_upd = scale_upd = w_upd = FALSE;
+
+		/* Update all fields */
+
+		for (;;) {
+			if (dtype->dtyp_length) {
+				X.LENGTH = dtype->dtyp_length;
+				X.LENGTH.STATE = PYXIS__OPT_DISPLAY;
+			}
+			else
+				X.LENGTH.STATE = PYXIS__OPT_UPDATE | PYXIS__OPT_DISPLAY;
+
+			switch (dtype->dtyp_internal) {
+			case dtype_short:
+			case dtype_long:
+			case dtype_quad:
+				X.SCALE.STATE = PYXIS__OPT_DISPLAY | PYXIS__OPT_UPDATE;
+				break;
+
+			default:
+				X.SCALE.STATE = 0;
+			}
+
+			DISPLAY X DISPLAYING *ACCEPTING *
+				WAKING ON DATATYPE OVERRIDING LENGTH, SCALE;
+			for (dtype = dtypes; dtype->dtyp_string; dtype++)
+				if (!strcmp(X.DATATYPE, dtype->dtyp_string))
+					break;
+
+			if (X.FIELD_NAME.STATE == PYXIS__OPT_USER_DATA)
+				fnam_upd = TRUE;
+			if (X.EDIT_STRING.STATE == PYXIS__OPT_USER_DATA)
+				edstr_upd = TRUE;
+			if (X.FILL_STRING.STATE == PYXIS__OPT_USER_DATA)
+				fstr_upd = TRUE;
+			if (X.SCALE.STATE == PYXIS__OPT_USER_DATA)
+				scale_upd = TRUE;
+			if (X.WIDTH.STATE == PYXIS__OPT_USER_DATA)
+				w_upd = TRUE;
+			if (strcmp(X.TERMINATING_FIELD, "DATATYPE"))
+				break;
+		}
+
+		if (X.TERMINATOR == PYXIS__KEY_ENTER) {
+			REPLACE_ATTRIBUTE(field, att_dtype, attype_numeric,
+							  dtype->dtyp_internal);
+			REPLACE_ATTRIBUTE(field, att_length, attype_numeric, X.LENGTH);
+
+			if (fnam_upd)
+				REPLACE_ATTRIBUTE(field, att_field_name, attype_string,
+								  X.FIELD_NAME);
+
+			if (edstr_upd)
+				REPLACE_ATTRIBUTE(field, att_edit_string, attype_string,
+								  X.EDIT_STRING);
+
+			if (fstr_upd)
+				REPLACE_ATTRIBUTE(field, att_fill_string, attype_string,
+								  X.FILL_STRING);
+
+			if (scale_upd)
+				REPLACE_ATTRIBUTE(field, att_scale, attype_numeric, X.SCALE);
+
+			if (w_upd) {
+				REPLACE_ATTRIBUTE(field, att_width, attype_numeric, X.WIDTH);
+				if (dtype->dtyp_internal == dtype_text && X.LENGTH != X.WIDTH)
+					REPLACE_ATTRIBUTE(field, att_length, attype_numeric,
+									  X.WIDTH);
+			}
+
+			PYXIS_field_defaults(field);
+
+			if (X.UPCASE[0] == 'Y')
+				REPLACE_ATTRIBUTE(field, att_upcase, attype_numeric, TRUE);
+			else
+				PYXIS_delete_named_attribute(field, att_upcase);
+
+			if (X.ALIGN_RIGHT[0] == 'Y')
+				REPLACE_ATTRIBUTE(field, att_insert_right, attype_numeric,
+								  TRUE);
+			else
+				PYXIS_delete_named_attribute(field, att_insert_right);
+		}
+	END_FORM;
+
+	return (SLONG) field;
+}
+
+
+static manual_load(handle, def)
+	 OBJ *handle;
+	 UCHAR *def;
+{
+/**************************************
+ *
+ *	m a n u a l _ l o a d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Manually load a form from a literal, unless it is
+ *	already loaded.
+ *
+ **************************************/
+
+	if (!*handle)
+		*handle = (OBJ) PYXIS_load(&def);
+}
+
+
+static motion(window, form, field, x_ptr, y_ptr)
+	 WIN window;
+	 OBJ form, field;
+	 int *x_ptr, *y_ptr;
+{
+/**************************************
+ *
+ *	m o t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a single cursor motion, including count.
+ *	Compute new coordinates, and return character.
+ *
+ **************************************/
+	SSHORT x, y;
+	SSHORT c, count, cnt, border;
+
+	border = GET_VALUE(form, att_border);
+	x = *x_ptr;
+	y = *y_ptr;
+	count = 0;
+
+/*  Sensitize any mouse movement.  */
+
+	window->win_flags |= WIN_sensitive;
+
+	for (;;) {
+		if (field)
+			c = PYXIS_get_char(window, field, 0, 0);
+		else
+			c = PYXIS_get_char(window, form, x + border, y + border);
+		cnt = (count) ? count : 1;
+		switch (c) {
+		case '0':
+		case '1':
+		case '2':
+		case '3':
+		case '4':
+		case '5':
+		case '6':
+		case '7':
+		case '8':
+		case '9':
+			count = count * 10 + c - '0';
+			continue;
+
+		case PYXIS__KEY_UP:
+			if (window->win_flags & WIN_synthesized)
+				cnt = 1;
+			y -= cnt;
+			if (y < 0)
+				y = 0;
+			count = 0;
+			break;
+
+		case PYXIS__KEY_DOWN:
+			if (window->win_flags & WIN_synthesized)
+				cnt = 1;
+			y += cnt;
+			count = 0;
+			break;
+
+		case PYXIS__KEY_LEFT:
+			if (window->win_flags & WIN_synthesized)
+				cnt = 1;
+			x -= cnt;
+			if (x < 0)
+				x = 0;
+			count = 0;
+			break;
+
+		case PYXIS__KEY_RIGHT:
+			if (window->win_flags & WIN_synthesized)
+				cnt = 1;
+			x += cnt;
+			count = 0;
+			break;
+
+		default:
+			break;
+		}
+		*x_ptr = x;
+		*y_ptr = y;
+		window->win_flags &= ~WIN_sensitive;
+		return c;
+	}
+}
+
+
+static move(window, form, object, start)
+	 WIN window;
+	 OBJ form, object;
+	 ATT start;
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move an object around.  Return TRUE if it really moved.
+ *
+ **************************************/
+	OBJ first;
+	ATT attribute, attr;
+	OPT_T option;
+	USHORT c, change, reverse;
+	SLONG x, y, min_x, min_y, delta_x, delta_y;
+
+	CASE_MENU(MENU_HANDLE MENU5 HORIZONTAL) 'Move options: '
+    MENU_ENTREE 'ITEM':
+        return move_item(window, form, object);
+
+    MENU_ENTREE 'SOME':
+        option = e_some;
+
+    MENU_ENTREE 'MOST':
+        option = e_most;
+
+    MENU_ENTREE 'ALL':
+        option = e_all;
+
+    MENU_ENTREE 'Exit':
+        return FALSE;
+	END_MENU;
+
+/* Mass move -- start by saving current states of reverse video */
+
+	change = FALSE;
+	attribute = NULL;
+
+	while (attribute = (ATT) PYXIS_find_object(form, attribute, att_any, TRUE)) {
+		object = attribute->att_value;
+		REPLACE_ATTRIBUTE(object, att_temp, attype_numeric,
+						  GET_VALUE(object, att_reverse_video));
+		REPLACE_ATTRIBUTE(object, att_reverse_video, attype_numeric,
+						  (option == e_some) ? FALSE : TRUE);
+	}
+
+/* Let user make fine adjustments */
+
+	if (option != e_all) {
+		set_tag_string(window, &STRING4,
+					   "EDIT MOVE: use <RETURN> to select/deselect items", 0);
+		PYXIS_select(window, form, att_any, start);
+		PYXIS_pop_form(window);
+	}
+
+/* Find the top, rightmost selected object */
+
+	attribute = NULL;
+	first = NULL;
+	min_x = min_y = INITIAL_MAX;
+
+	while (attribute = (ATT) PYXIS_find_object(form, attribute, att_any, TRUE)) {
+		object = attribute->att_value;
+		if (GET_VALUE(object, att_reverse_video)) {
+			x = GET_VALUE(object, att_display_x);
+			y = GET_VALUE(object, att_display_y);
+			min_x = MIN(min_x, x);
+			min_y = MIN(min_y, y);
+			if (!first)
+				first = object;
+		}
+	}
+
+/* Move group */
+
+	x = min_x;
+	y = min_y;
+
+	for (;;) {
+		delta_x = x;
+		delta_y = y;
+		set_tag_string(window, &STRING5,
+					   "EDIT MOVE: Use cursor keys to move field; hit %s when done",
+					   PYXIS__KEY_ENTER);
+		c = motion(window, form, first, &x, &y);
+		PYXIS_pop_form(window);
+		if (c == PYXIS__KEY_ENTER || c == '\n')
+			break;
+		switch (c) {
+		case PYXIS__KEY_UP:
+		case PYXIS__KEY_DOWN:
+		case PYXIS__KEY_LEFT:
+		case PYXIS__KEY_RIGHT:
+			break;
+
+		default:
+			continue;
+		}
+		delta_x = x - delta_x;
+		delta_y = y - delta_y;
+		change = TRUE;
+		form->obj_flags |= OBJ_changed;
+		while (attribute =
+			   (ATT) PYXIS_find_object(form, attribute, att_any, TRUE)) {
+			object = attribute->att_value;
+			if (GET_VALUE(object, att_reverse_video)) {
+				min_x = GET_VALUE(object, att_display_x);
+				min_y = GET_VALUE(object, att_display_y);
+				PYXIS_position(object, min_x + delta_x, min_y + delta_y);
+			}
+		}
+	}
+
+/* Restore original reverse video */
+
+	while (attribute =
+		   (ATT) PYXIS_find_object(form, attribute, att_any, TRUE)) {
+		object = attribute->att_value;
+		if (attr = (ATT) GET_ATTRIBUTE(object, att_temp)) {
+			PYXIS_move(form, object);
+			REPLACE_ATTRIBUTE(object, att_reverse_video, attype_numeric,
+							  attr->att_value);
+			PYXIS_delete_attribute(object, attr);
+			attribute = NULL;
+		}
+	}
+
+	return change;
+}
+
+
+static move_item(window, form, object)
+	 WIN window;
+	 OBJ form, object;
+{
+/**************************************
+ *
+ *	m o v e _ i t e m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move an object around.  Return TRUE if it really moved.
+ *
+ **************************************/
+	USHORT c, change;
+	SLONG x, y;
+
+	change = FALSE;
+	x = GET_VALUE(object, att_display_x);
+	y = GET_VALUE(object, att_display_y);
+
+	for (;;) {
+		set_tag_string(window, &STRING3,
+					   "EDIT MOVE: Use cursor keys to move field; hit %s when done",
+					   PYXIS__KEY_ENTER);
+		/*  c = motion (window, form, &x, &y);  */
+		c = motion(window, form, object, &x, &y);
+		PYXIS_pop_form(window);
+		switch (c) {
+		case PYXIS__KEY_UP:
+		case PYXIS__KEY_DOWN:
+		case PYXIS__KEY_LEFT:
+		case PYXIS__KEY_RIGHT:
+			break;
+
+		case '\n':
+		case PYXIS__KEY_ENTER:
+			PYXIS_move(form, object);
+			return change;
+
+		default:
+			continue;
+		}
+		change = TRUE;
+		PYXIS_position(object, x, y);
+		form->obj_flags |= OBJ_changed;
+	}
+}
+
+
+static position(window, form, x_ptr, y_ptr)
+	 WIN window;
+	 OBJ form;
+	 int *x_ptr, *y_ptr;
+{
+/**************************************
+ *
+ *	p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Position ourselves somewhere within the form.  Stop
+ *	on a significant character and return.
+ *
+ **************************************/
+	SSHORT c;
+
+	for (;;)
+		switch (c = motion(window, form, NULL_PTR, x_ptr, y_ptr)) {
+		case PYXIS__KEY_UP:
+		case PYXIS__KEY_DOWN:
+		case PYXIS__KEY_LEFT:
+		case PYXIS__KEY_RIGHT:
+			break;
+
+		default:
+			return c;
+		}
+}
+
+
+static put_string(target, target_size, field, attribute)
+	 UCHAR *target;
+	 int target_size;
+	 OBJ field;
+	 USHORT attribute;
+{
+/**************************************
+ *
+ *	p u t _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy string from form field to form.
+ *
+ **************************************/
+	TEXT *string;
+
+	if (!(string = GET_STRING(field, attribute)))
+		string = "";
+
+	strncpy(target, string, target_size);
+}
+
+
+static reverse(object)
+	 OBJ object;
+{
+/**************************************
+ *
+ *	r e v e r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set reverse video family of attributes.
+ *
+ **************************************/
+	SLONG value;
+
+	CASE_MENU(MENU_HANDLE MENU6 HORIZONTAL) 'Reverse options: '
+    MENU_ENTREE 'INVERT':
+        value = !GET_VALUE(object, att_reverse_video);
+	    REPLACE_ATTRIBUTE(object, att_reverse_video, attype_numeric, value);
+        return TRUE;
+
+    MENU_ENTREE 'REVERSE ON UPDATE':
+        REPLACE_ATTRIBUTE(object, att_reverse_for_update, attype_numeric, TRUE);
+	    PYXIS_delete_named_attribute(object, att_reverse_video);
+        return TRUE;
+
+    MENU_ENTREE 'NORMAL':
+        PYXIS_delete_named_attribute(object, att_reverse_for_update);
+	    PYXIS_delete_named_attribute(object, att_reverse_video);
+        return TRUE;
+
+    MENU_ENTREE 'Exit':
+        return FALSE;
+
+	END_MENU;
+}
+
+
+static save_form(window, form, dbb, transaction)
+	 WIN window;
+	 OBJ form;
+	 int *dbb, *transaction;
+{
+/**************************************
+ *
+ *	s a v e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Save a form in a dbb.
+ *
+ **************************************/
+
+	manual_load(&NAME_PROMPT, form_form_name);
+
+	FOR_FORM(TAG FORM_HANDLE NAME_PROMPT) F IN FORM_NAME
+		for (;;) {
+			DISPLAY F ACCEPTING FORM_NAME WAKING ON FORM_NAME;
+			if (F.FORM_NAME.STATE != PYXIS__OPT_USER_DATA ||
+				validate_name(F.FORM_NAME)) 
+                break;
+		}
+		if (F.FORM_NAME.STATE == PYXIS__OPT_USER_DATA)
+			PYXIS_store_form(dbb, transaction, F.FORM_NAME, form);
+	END_FORM;
+}
+
+
+static set_prototypes(object, state)
+	 OBJ object;
+	 USHORT state;
+{
+/**************************************
+ *
+ *	s e t _ p r o t o t y p e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set prototypes active or inactive.
+ *
+ **************************************/
+	OBJ sub;
+	ATT attribute;
+
+	for (attribute = object->obj_attributes; attribute;
+		 attribute =
+		 attribute->att_next) 
+        if (attribute->att_type == attype_object) {
+			sub = attribute->att_value;
+			if (attribute->att_name == att_prototype)
+				REPLACE_ATTRIBUTE(sub, att_inactive, attype_numeric, state);
+			set_prototypes(sub, state);
+		}
+}
+
+
+static set_tag_string(window, ptr, string, keycode)
+	 WIN window;
+	 OBJ *ptr;
+	 UCHAR *string, keycode;
+{
+/**************************************
+ *
+ *	s e t _ t a g _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up tag string, including a possible key name.
+ *
+ **************************************/
+
+	UCHAR buffer[100];
+
+	if (!*ptr) {
+		if (keycode) {
+			sprintf(buffer, string, PYXIS_get_keyname(window, keycode));
+			string = buffer;
+		}
+		*ptr = (OBJ) PYXIS_create_object(string, att_literal_string);
+	}
+
+	PYXIS_push_tag(window, *ptr);
+}
+
+
+static size_form(window, form)
+	 WIN window;
+	 OBJ form;
+{
+/**************************************
+ *
+ *	s i z e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change size or outline of form.
+ *
+ **************************************/
+	UCHAR *p;
+	USHORT c, width, height, x, y, box;
+
+	manual_load(&RESIZE_FORM, form_resize);
+	PYXIS_compute_size(RESIZE_FORM, &x, &y);
+	x = (window->win_width - x) / 2;
+	y = (window->win_height - y) / 2;
+	PYXIS_position(RESIZE_FORM, x, y);
+
+/* Compute "current" size of form */
+
+	box = GET_VALUE(form, att_box);
+	width = GET_VALUE(form, att_width);
+	height = GET_VALUE(form, att_height);
+	PYXIS_compute_size(form, &x, &y);
+
+	if (!width)
+		width = x + 2;
+	if (!height)
+		height = y + 2;
+
+	REPLACE_ATTRIBUTE(form, att_blank, attype_numeric, TRUE);
+
+	FOR_FORM(FORM_HANDLE RESIZE_FORM TRANSPARENT) X IN SIZE_FORM
+		X.WIDTH = width;
+		X.HEIGHT = height;
+		strcpy(X.OUTLINE_FORM, (box) ? "Y" : "N");
+		DISPLAY X DISPLAYING *ACCEPTING *;
+		if (X.TERMINATOR == PYXIS__KEY_ENTER) {
+			if (X.WIDTH.STATE == PYXIS__OPT_USER_DATA)
+				REPLACE_ATTRIBUTE(form, att_width, attype_numeric, X.WIDTH);
+			if (X.HEIGHT.STATE == PYXIS__OPT_USER_DATA)
+				REPLACE_ATTRIBUTE(form, att_height, attype_numeric, X.HEIGHT);
+			if (X.OUTLINE_FORM.STATE == PYXIS__OPT_USER_DATA)
+				if (X.OUTLINE_FORM[0] == 'Y') {
+					REPLACE_ATTRIBUTE(form, att_box, attype_numeric, TRUE);
+					REPLACE_ATTRIBUTE(form, att_border, attype_numeric, TRUE);
+				}
+				else {
+					PYXIS_delete_named_attribute(form, att_box);
+					PYXIS_delete_named_attribute(form, att_border);
+				}
+		}
+	END_FORM;
+}
+
+
+static validate_name(string)
+	 UCHAR *string;
+{
+/**************************************
+ *
+ *	v a l i d a t e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate a file and/or form name.
+ *
+ **************************************/
+
+	for (; *string; string++)
+		if (*string == ' ' || *string == '\t')
+			return FALSE;
+
+	return TRUE;
+}
diff --git a/src/pyxis/enumerations.h b/src/pyxis/enumerations.h
new file mode 100644
index 0000000000..717d6a78cc
--- /dev/null
+++ b/src/pyxis/enumerations.h
@@ -0,0 +1,21 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+"24O18D`VALUES`2N23.3N1.5N6.E25O13D`VALUES`50N40.21N10.23N8.\
+52N1.51O5N40.E2N6.3N2.5N42.4N16.48N1.10N1.9N1.E5N55.4N22.48N\
+1.10N1.9N1.E"
diff --git a/src/pyxis/everything.h b/src/pyxis/everything.h
new file mode 100644
index 0000000000..66f5d6dbed
--- /dev/null
+++ b/src/pyxis/everything.h
@@ -0,0 +1,21 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "../pyxis/pyxis.h"
+#include "../pyxis/all.h"
+#include "../pyxis/scr.h"
diff --git a/src/pyxis/field_edit.h b/src/pyxis/field_edit.h
new file mode 100644
index 0000000000..2205027206
--- /dev/null
+++ b/src/pyxis/field_edit.h
@@ -0,0 +1,41 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+"24O18D`FIELD_NAME`2N2.3N1.5N11.E24O18D`F`2N2.3N1.5N1.E24O18\
+D`F`2N2.3N1.5N1.E25O13S`FIELD_NAME`21N1.23N31.35S`X(31)`20D`\
+XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX`44N1.2N14.3N1.5N31.52N1.E24O\
+18D`EDIT_STRING`2N1.3N2.5N12.E25O13S`EDIT_STRING`21N1.23N31.\
+35S`X(31)`44N1.20D`XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX`2N14.3N2.\
+5N31.52N1.E24O18D`FILL_STRING`2N1.3N3.5N12.E25O13S`FILL_STRI\
+NG`21N1.23N255.35S`X(255)`20D`XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\
+XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\
+XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\
+XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\
+XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX`2N14.3N3.5N255\
+.52N1.E24O18D`UPCASE`2N6.3N5.5N7.E25O13S`UPCASE`21N1.23N1.35\
+S`X(1)`20D`X`44N1.53S`N`53S`Y`2N14.3N5.5N1.52N1.E24O18D`WIDT\
+H`2N7.3N6.5N6.E25O13S`WIDTH`21N4.23N2.35S`zz9`20D`999`2N14.3\
+N6.5N3.31N1.52N1.E24O18D`DATATYPE`2N27.3N5.5N9.E25O13S`DATAT\
+YPE`21N1.23N8.35S`x(8)`20D`XXXXXXXX`44N1.53S`CHAR`53S`VARYIN\
+G`53S`SHORT`53S`LONG`53S`FLOAT`53S`DOUBLE`53S`DATE`53S`BLOB`\
+2N37.3N5.5N8.52N1.E24O18D`SCALE`2N27.3N6.5N6.E25O13S`SCALE`2\
+1N4.23N2.35S`--9`20D`   `2N37.3N6.5N3.31N1.52N1.E25O13S`ALIG\
+N_RIGHT`35S`X`20D`X`44N1.21N1.23N1.53S`N`53S`Y`2N14.3N7.5N1.\
+52N1.E24O18D`LENGTH`2N27.3N7.5N7.E25O13S`LENGTH`21N4.23N2.35\
+S`ZZ9`20D`999`2N37.3N7.5N3.31N1.52N1.E24O18D`ALIGN_RIGHT`2N1\
+.3N7.5N11.E5N48.4N11.48N1.10N1.9N1.E"
diff --git a/src/pyxis/field_name.h b/src/pyxis/field_name.h
new file mode 100644
index 0000000000..14cc5c3d7b
--- /dev/null
+++ b/src/pyxis/field_name.h
@@ -0,0 +1,21 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+"24O18D`Field name:`5N11.E25O21N1.23N31.35S`x(31)`20D`xxxxxx\
+xxxxxxxxxxxxxxxxxxxxxxxxx`44N1.13S`FIELD_NAME`2N12.5N31.6N1.\
+EE"
diff --git a/src/pyxis/file_name.h b/src/pyxis/file_name.h
new file mode 100644
index 0000000000..0d4140b898
--- /dev/null
+++ b/src/pyxis/file_name.h
@@ -0,0 +1,21 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+"24O18D`File name:`3N1.5N10.E25O21N1.23N63.13S`FILE_NAME`35S\
+`X(63)`20D`XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\
+XXXXXXXXXXXXXX`2N12.3N1.5N63.6N1.E5N78.4N3.E"
diff --git a/src/pyxis/form_ddl.h b/src/pyxis/form_ddl.h
new file mode 100644
index 0000000000..b8f2ba7a11
--- /dev/null
+++ b/src/pyxis/form_ddl.h
@@ -0,0 +1,68 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+    gds__dyn_version_1, 
+       gds__dyn_begin, 
+          gds__dyn_def_global_fld, 10,0, 'P','Y','X','I','S','$','F','O','R','M',
+             gds__dyn_system_flag, 2,0, 2,0,
+             gds__dyn_fld_type, 2,0, 5,1,
+             gds__dyn_fld_length, 2,0, 8,0,
+             gds__dyn_fld_scale, 2,0, 0,0,
+             gds__dyn_fld_sub_type, 2,0, 0,0,
+             gds__dyn_fld_segment_length, 2,0, 'P',0,
+             gds__dyn_end, 
+          gds__dyn_def_global_fld, 15,0, 'P','Y','X','I','S','$','F','O','R','M','_','N','A','M','E',
+             gds__dyn_system_flag, 2,0, 2,0,
+             gds__dyn_fld_type, 2,0, 14,0,
+             gds__dyn_fld_length, 2,0, 31,0,
+             gds__dyn_fld_scale, 2,0, 0,0,
+             gds__dyn_fld_sub_type, 2,0, 0,0,
+             gds__dyn_end, 
+          gds__dyn_def_global_fld, 15,0, 'P','Y','X','I','S','$','F','O','R','M','_','T','Y','P','E',
+             gds__dyn_system_flag, 2,0, 2,0,
+             gds__dyn_fld_type, 2,0, 14,0,
+             gds__dyn_fld_length, 2,0, 16,0,
+             gds__dyn_fld_scale, 2,0, 0,0,
+             gds__dyn_fld_sub_type, 2,0, 0,0,
+             gds__dyn_end, 
+          gds__dyn_def_rel, 11,0, 'P','Y','X','I','S','$','F','O','R','M','S',
+             gds__dyn_system_flag, 2,0, 2,0,
+             gds__dyn_end, 
+          gds__dyn_def_local_fld, 15,0, 'P','Y','X','I','S','$','F','O','R','M','_','N','A','M','E',
+             gds__dyn_rel_name, 11,0, 'P','Y','X','I','S','$','F','O','R','M','S',
+             gds__dyn_system_flag, 2,0, 2,0,
+             gds__dyn_fld_position, 2,0, 1,0,
+             gds__dyn_end, 
+          gds__dyn_def_local_fld, 15,0, 'P','Y','X','I','S','$','F','O','R','M','_','T','Y','P','E',
+             gds__dyn_rel_name, 11,0, 'P','Y','X','I','S','$','F','O','R','M','S',
+             gds__dyn_system_flag, 2,0, 2,0,
+             gds__dyn_fld_position, 2,0, 2,0,
+             gds__dyn_end, 
+          gds__dyn_def_local_fld, 10,0, 'P','Y','X','I','S','$','F','O','R','M',
+             gds__dyn_rel_name, 11,0, 'P','Y','X','I','S','$','F','O','R','M','S',
+             gds__dyn_system_flag, 2,0, 2,0,
+             gds__dyn_fld_position, 2,0, 3,0,
+             gds__dyn_end, 
+          gds__dyn_def_idx, 11,0, 'P','Y','X','I','S','$','I','N','D','E','X',
+             gds__dyn_rel_name, 11,0, 'P','Y','X','I','S','$','F','O','R','M','S',
+             gds__dyn_idx_unique, 2,0, 1,0,
+             gds__dyn_idx_inactive, 2,0, 0,0,
+             gds__dyn_fld_name, 15,0, 'P','Y','X','I','S','$','F','O','R','M','_','N','A','M','E',
+             gds__dyn_end, 
+          gds__dyn_end, 
+    gds__dyn_eoc
diff --git a/src/pyxis/form_name.h b/src/pyxis/form_name.h
new file mode 100644
index 0000000000..81afb71b3a
--- /dev/null
+++ b/src/pyxis/form_name.h
@@ -0,0 +1,21 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+"24O5N10.2N0.3N0.6N0.18D`Form name:`E25O21N1.23N31.13S`FORM_\
+NAME`5N31.35S`x(31)`20D`xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx`2N11\
+.3N0.6N1.44N1.E1N0.E"
diff --git a/src/pyxis/forms.gbk b/src/pyxis/forms.gbk
new file mode 100644
index 0000000000..ff2ccda28a
Binary files /dev/null and b/src/pyxis/forms.gbk differ
diff --git a/src/pyxis/fred.e b/src/pyxis/fred.e
new file mode 100644
index 0000000000..f212492f59
--- /dev/null
+++ b/src/pyxis/fred.e
@@ -0,0 +1,818 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		fred.e
+ *	DESCRIPTION:	Forms editor
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: fred.e,v 1.1.1.1 2001-05-23 13:26:33 tamlin Exp $
+ * Revision 1.2  2000/11/28 15:09:01  fsg
+ * Changed fred.e to go through 6.0 gpre
+ *
+ */
+
+#include <stdio.h>
+
+#include "../jrd/common.h"
+#include "../jrd/gds.h"
+#include "../jrd/license.h"
+#define FRED_SOURCE	1
+#include "../pyxis/pyxis.h"
+
+DATABASE db = STATIC "forms.gdb";
+
+static OBJ form_names(), relations();
+static OBJ form_menu, relation_menu, name_prompt, file_prompt,
+	help_prompt, resize_form;
+static OBJ get_form(), get_relation();
+
+
+extern SCHAR *gds__alloc(), *PYXIS_get_keyname();
+extern OBJ PYXIS_relation_form(), PYXIS_create_object(),
+PYXIS_get_attribute_value(), PYXIS_menu(),
+PYXIS_relation_fields(), PYXIS_load();
+extern ATT PYXIS_find_object(), PYXIS_find_attribute();
+
+
+typedef enum opt_t {
+	e_none = 0,
+	e_exit,
+	e_help,
+	e_change,
+	e_create,
+	e_edit,
+	e_delete,
+	e_automatic,
+	e_replace,
+	e_resize,
+	e_store,
+	e_write,
+	e_print,
+	e_trash
+} OPT_T;
+
+static TEXT form_resize[] =
+#include "../pyxis/size_form.h"
+, form_file_name[] =
+#include "../pyxis/file_name.h"
+, form_form_name[] =
+#include "../pyxis/form_name.h"
+ ;
+
+
+
+
+main(argc, argv)
+	 int argc;
+	 TEXT *argv[];
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Top level function for form editor.
+ *
+ **************************************/
+	TEXT *filename, *inputfile, *logfile, *p, **end, sw_version;
+	WIN window;
+
+/* Setting defaults and processing switches */
+
+	gds__width = 0;
+	gds__height = 40;
+	filename = inputfile = logfile = NULL;
+	sw_version = FALSE;
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+	for (end = argv + argc, argv++; argv < end;) {
+		p = *argv++;
+		if (*p == '-')
+			switch (UPPER(p[1])) {
+			case 'H':
+				gds__height = atoi(*argv++);
+				break;
+
+			case 'W':
+				gds__width = atoi(*argv++);
+				break;
+
+			case 'Z':
+				if (!sw_version)
+					printf("fred version %s\n", GDS_VERSION);
+				sw_version = TRUE;
+				break;
+
+			case 'L':
+				if (argv < end) {
+					logfile = *argv++;
+					break;
+				}
+				else {
+					fprintf(stderr,
+							"Please retry, supplying a log file name /n");
+					exit(FINI_ERROR);
+				}
+
+			case 'F':
+				if (argv < end) {
+					inputfile = *argv++;
+					break;
+				}
+				else {
+					fprintf(stderr,
+							"Please retry, supplying an input file name /n");
+					exit(FINI_ERROR);
+				}
+
+			default:
+				fprintf(stderr, "unknown switch %s\n", p);
+				exit(FINI_ERROR);
+			}
+		else
+			filename = p;
+	}
+
+	if (!filename) {
+		fprintf(stderr, "fred: database file name is required\n");
+		exit(FINI_ERROR);
+	}
+
+/* Initialize the forms package, fire up the database, create a window
+   and generally get ready to roll. */
+
+	READY GDS_VAL(filename) AS db;
+
+	if (sw_version) {
+		printf("    Version(s) for database \"%s\"\n", filename);
+		gds__version(&db, NULL_PTR, NULL_PTR);
+	}
+
+	START_TRANSACTION;
+	CREATE_WINDOW;
+
+	PYXIS_define_forms_relation(&db);
+	window = (WIN) gds__window;
+
+	if ((inputfile && !PYXIS_trace_in(gds__window, inputfile)) ||
+		(logfile && !PYXIS_trace_out(gds__window, logfile)))
+		fprintf(stderr, "fred: can't open inputfile/logfile\n");
+	else
+		while (top_menu(window));
+
+	DELETE_WINDOW;
+	COMMIT;
+	FINISH;
+	exit(FINI_OK);
+}
+
+
+static center_menu(menu, offset)
+	 OBJ menu;
+	 USHORT offset;
+{
+/**************************************
+ *
+ *	c e n t e r _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format a nice, center, externally visible menu.
+ *
+ **************************************/
+	USHORT x;
+
+	x = (gds__width - GET_VALUE(menu, att_width)) / 2 + offset;
+	PYXIS_position(menu, x, 1);
+}
+
+
+static create_form(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	c r e a t e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new form.
+ *
+ **************************************/
+	OBJ form, relation;
+
+	if (relation = get_relation(window))
+		form = PYXIS_relation_form(window, relation);
+	else
+		form = PYXIS_create_object(NULL_PTR, 0);
+
+	edit_form(window, form, NULL_PTR);
+}
+
+
+static delete_form(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	d e l e t e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete an existing form from the database.
+ *
+ **************************************/
+	TEXT form_name[32];
+	OBJ form;
+
+/* Get form.  If this returns a null string, something was
+   wrong with the form.  Since we want to delete it, this
+   is ok.  Then delete the form */
+
+	get_form(window, form_name);
+
+	FOR X IN PYXIS$FORMS WITH X.PYXIS$FORM_NAME EQ form_name
+		ERASE X;
+	END_FOR;
+
+	pyxis__delete(&form_menu);
+	form_menu = NULL;
+
+	return TRUE;
+}
+
+
+static edit_form(window, form, form_name)
+	 WIN window;
+	 OBJ form;
+	 TEXT *form_name;
+{
+/**************************************
+ *
+ *	e d i t _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit an form.  Start with the existing forms.
+ *
+ **************************************/
+	TEXT *p;
+	STATUS status[20];
+	USHORT change;
+
+/* Eat up options until exit */
+
+	PYXIS_push_form(window, form, TRUE);
+	change = FALSE;
+
+	for (;;)
+        CASE_MENU(HORIZONTAL) 'Edit type:' 
+        MENU_ENTREE 'EDIT':
+		    change |= PYXIS_edit(window, form, &db, &gds__trans);
+
+        MENU_ENTREE 'REFORMAT':
+            PYXIS_format_form(form, gds__width, gds__height);
+            change = TRUE;
+
+        MENU_ENTREE 'SIZE':
+            size_form(window, form);
+
+        MENU_ENTREE 'Exit':
+            save_form(window, form, form_name);
+            pyxis__pop_window(&window);
+            return;
+	    END_MENU;
+}
+
+
+static OBJ form_names()
+{
+/**************************************
+ *
+ *	f o r m _ n a m e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get menu of all forms, etc.
+ *
+ **************************************/
+	OBJ menu;
+
+	menu = PYXIS_create_object(NULL_PTR, 0);
+
+	FOR X IN PYXIS$FORMS SORTED BY X.PYXIS$FORM_NAME
+		zap_string(X.PYXIS$FORM_NAME);
+		PYXIS_create_entree(menu, X.PYXIS$FORM_NAME, 0, 0);
+	END_FOR;
+
+	return menu;
+}
+
+
+static OBJ get_form(window, form_buffer)
+	 WIN window;
+	 UCHAR *form_buffer;
+{
+/**************************************
+ *
+ *	g e t _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a form off the form menu.
+ *
+ **************************************/
+	OBJ entree, form;
+	ATT attribute;
+	STATUS status[20];
+	TEXT *form_name;
+
+	*form_buffer = 0;
+
+	if (!form_menu) {
+		form_menu = form_names();
+		PYXIS_reference(form_menu);
+		PYXIS_create_entree(form_menu, "Exit", attype_numeric, e_exit);
+		PYXIS_format_menu(form_menu, "Select Form for Operation", FALSE);
+		center_menu(form_menu, 0);
+	}
+
+/* Before we start, mark all forms as inactive */
+
+	for (attribute = NULL;
+		 attribute = PYXIS_find_object(form_menu, attribute, att_entree, TRUE);)
+		if ((form = GET_OBJECT(attribute->att_value, att_entree_value))
+			&& (SLONG) form != (SLONG) e_exit)
+			REPLACE_ATTRIBUTE(form, att_inactive, attype_numeric, TRUE);
+
+	PYXIS_push_form(window, form_menu, TRUE);
+	entree = PYXIS_menu(window, form_menu);
+	pyxis__pop_window(&window);
+
+	if (!entree)
+		return NULL;
+
+	if ((OPT_T) GET_VALUE(entree, att_entree_value) == e_exit)
+		return NULL;
+
+	form_name = GET_STRING(entree, att_literal_string);
+	strcpy(form_buffer, form_name);
+
+	if (form = GET_OBJECT(entree, att_entree_value)) {
+		REPLACE_ATTRIBUTE(form, att_inactive, attype_numeric, FALSE);
+		return form;
+	}
+
+	pyxis__load_form(status, &db, &gds__trans, &form, NULL_PTR, form_name);
+
+	if (!form)
+		return NULL;
+
+	REPLACE_ATTRIBUTE(entree, att_entree_value, attype_object, form);
+	REPLACE_ATTRIBUTE(form, att_inactive, attype_numeric, FALSE);
+
+	return form;
+}
+
+
+static OBJ get_relation(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	g e t _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick a relation off a menu.
+ *
+ **************************************/
+	OBJ entree, relation;
+	ATT attribute;
+	TEXT *relation_name;
+
+	if (!relation_menu) {
+		relation_menu = relations();
+		PYXIS_reference(relation_menu);
+		PYXIS_create_entree(relation_menu, "None of the above",
+							attype_numeric, e_exit);
+		PYXIS_format_menu(relation_menu, "Select Relation", FALSE);
+		center_menu(relation_menu, 0);
+	}
+
+/* Before we start, mark all relations as inactive */
+
+	for (attribute = NULL;
+		 attribute = PYXIS_find_object(relation_menu, attribute, att_entree, TRUE);)
+		if ((relation = GET_OBJECT(attribute->att_value, att_entree_value))
+			&& (SLONG) relation != (SLONG) e_exit)
+			REPLACE_ATTRIBUTE(relation, att_inactive, attype_numeric, TRUE);
+
+	PYXIS_push_form(window, relation_menu, TRUE);
+	entree = PYXIS_menu(window, relation_menu);
+	pyxis__pop_window(&window);
+
+	if (!entree || 
+        (SLONG) (relation = GET_OBJECT(entree, att_entree_value)) == (SLONG) e_exit)
+		return NULL;
+
+/* Get the relation from either the selected entree or from the database */
+
+	if (relation)
+		REPLACE_ATTRIBUTE(relation, att_inactive, attype_numeric, FALSE);
+	else {
+		relation_name = GET_STRING(entree, att_literal_string);
+		relation = PYXIS_relation_fields(&db, &gds__trans, relation_name);
+		PYXIS_format_menu(relation, "Select Field(s)", FALSE);
+		PYXIS_box(relation);
+		PUT_ATTRIBUTE(entree, att_entree_value, attype_object, relation);
+		PUT_ATTRIBUTE(relation, att_display_x, attype_numeric,
+					  strlen(relation_name));
+	}
+
+	return relation;
+}
+
+
+static manual_load(handle, def)
+	 OBJ *handle;
+	 TEXT *def;
+{
+/**************************************
+ *
+ *	m a n u a l _ l o a d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Manually load a form from a literal, unless it is
+ *	already loaded.
+ *
+ **************************************/
+
+	if (!*handle)
+		*handle = PYXIS_load(&def);
+}
+
+
+static OBJ relations()
+{
+/**************************************
+ *
+ *	r e l a t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get menu of all relations, etc.
+ *
+ **************************************/
+	OBJ menu, entree;
+
+	menu = PYXIS_create_object(NULL_PTR, 0);
+
+	FOR X IN RDB$RELATIONS WITH X.RDB$SYSTEM_FLAG == 0 SORTED BY X.RDB$RELATION_NAME
+		zap_string(X.RDB$RELATION_NAME);
+		PYXIS_create_entree(menu, X.RDB$RELATION_NAME, 0, NULL_PTR);
+	END_FOR;
+
+	return menu;
+}
+
+
+static size_form(window, form)
+	 WIN window;
+	 OBJ form;
+{
+/**************************************
+ *
+ *	s i z e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change size or outline of form.
+ *
+ **************************************/
+	USHORT c, width, height, x, y, box;
+
+	manual_load(&resize_form, form_resize);
+	PYXIS_compute_size(resize_form, &x, &y);
+	x = (gds__width - x) / 2;
+	y = (gds__height - y) / 2;
+	PYXIS_position(resize_form, x, y);
+
+/* Compute "current" size of form */
+
+	box = GET_VALUE(form, att_box);
+	width = GET_VALUE(form, att_width);
+	height = GET_VALUE(form, att_height);
+	PYXIS_compute_size(form, &x, &y);
+
+	if (!width)
+		width = x + 2;
+	if (!height)
+		height = y + 2;
+
+	FOR FORM(FORM_HANDLE resize_form TRANSPARENT) X IN SIZE_FORM
+		X.WIDTH = width;
+		X.HEIGHT = height;
+		strcpy(X.OUTLINE_FORM, (box) ? "Y" : "N");
+		DISPLAY X DISPLAYING *ACCEPTING *;
+		if (X.TERMINATOR != PYXIS__KEY_ENTER) {
+			pyxis__pop_window(&gds__window);
+			return;
+		}
+		if (X.WIDTH.STATE == PYXIS__OPT_USER_DATA)
+			REPLACE_ATTRIBUTE(form, att_width, attype_numeric, X.WIDTH);
+		if (X.HEIGHT.STATE == PYXIS__OPT_USER_DATA)
+			REPLACE_ATTRIBUTE(form, att_height, attype_numeric, X.HEIGHT);
+		if (X.OUTLINE_FORM.STATE == PYXIS__OPT_USER_DATA)
+			if (X.OUTLINE_FORM[0] == 'Y') {
+				REPLACE_ATTRIBUTE(form, att_box, attype_numeric, TRUE);
+				REPLACE_ATTRIBUTE(form, att_blank, attype_numeric, TRUE);
+				REPLACE_ATTRIBUTE(form, att_border, attype_numeric, TRUE);
+				REPLACE_ATTRIBUTE(form, att_width, attype_numeric, X.WIDTH);
+				REPLACE_ATTRIBUTE(form, att_height, attype_numeric, X.HEIGHT);
+			}
+			else {
+				PYXIS_delete_named_attribute(form, att_box);
+				PYXIS_delete_named_attribute(form, att_blank);
+				PYXIS_delete_named_attribute(form, att_border);
+			}
+	END_FORM;
+}
+
+
+static save_form(window, form, form_name)
+	 WIN window;
+	 OBJ form;
+	 TEXT *form_name;
+{
+/**************************************
+ *
+ *	s a v e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Save, rename, or junk a form.
+ *
+ **************************************/
+	OBJ entree;
+	ATT attribute;
+	OPT_T option;
+	TEXT *p, *file_name;
+
+	if (form_name) {
+        CASE_MENU(HORIZONTAL) 'Retention options:' 
+        MENU_ENTREE 'SAVE':
+		    option = e_replace;
+        MENU_ENTREE 'RENAME':
+            option = e_store;
+        MENU_ENTREE 'DISCARD':
+            option = e_trash;
+        MENU_ENTREE 'EXTERNAL FILE':
+            option = e_write;
+        END_MENU
+    }
+	else {
+        CASE_MENU(HORIZONTAL) 'Retention options:' 
+        MENU_ENTREE 'SAVE':
+            option = e_store;
+        MENU_ENTREE 'DISCARD':
+            option = e_trash;
+        MENU_ENTREE 'EXTERNAL FILE':
+            option = e_write;
+        END_MENU;
+    }
+	switch (option) {
+	case e_trash:
+		pyxis__delete(&form);
+		return;
+
+	case e_replace:
+		break;
+
+	case e_store:
+		manual_load(&name_prompt, form_form_name);
+		FOR FORM(TAG FORM_HANDLE name_prompt) F IN FORM_NAME
+			for (;;) {
+				DISPLAY F ACCEPTING FORM_NAME WAKING ON FORM_NAME;
+				if (F.FORM_NAME.STATE != PYXIS__OPT_USER_DATA)
+					return;
+				if (validate_name(F.FORM_NAME))
+					break;
+			}
+			form_name = F.FORM_NAME;
+		END_FORM;
+		break;
+
+	case e_write:
+		if (!file_prompt) {
+			p = form_file_name;
+			file_prompt = PYXIS_load(&p);
+		}
+		FOR FORM(TAG FORM_HANDLE file_prompt) F IN FILE_NAME
+			DISPLAY F ACCEPTING FILE_NAME WAKING ON FILE_NAME;
+			if (F.FILE_NAME.STATE == PYXIS__OPT_USER_DATA)
+				write_file(form, F.FILE_NAME);
+		END_FORM;
+		return;
+	}
+
+/* The form is either replacing or stored new.  In either case,
+   handle it. */
+
+	PYXIS_store_form(&db, &gds__trans, form_name, form);
+
+/* If a form by that name already exists, replace it.  Otherwise rebuild
+   the form menu */
+
+	if (form_menu) {
+		for (attribute = NULL;
+			 attribute =
+			 PYXIS_find_object(form_menu, attribute, att_entree, TRUE);) {
+			entree = (OBJ) attribute->att_value;
+			if ((p = GET_STRING(entree, att_literal_string)) &&
+				!strcmp(p, form_name)) {
+				REPLACE_ATTRIBUTE(entree, att_entree_value, attype_object,
+								  form);
+				return;
+			}
+		}
+		pyxis__delete(&form_menu);
+		form_menu = NULL;
+	}
+}
+
+
+static top_menu(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	t o p _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Main menu for forms editor.
+ *
+ **************************************/
+	OBJ form;
+	TEXT name_buffer[32];
+
+    CASE_MENU(VERTICAL) 'Pick one, please' 
+    MENU_ENTREE 'EDIT FORM':
+        if (form = get_form(window, name_buffer))
+            edit_form(window, PYXIS_clone(form), name_buffer);
+
+    MENU_ENTREE 'CREATE FORM':
+        create_form(window);
+
+    MENU_ENTREE 'DELETE FORM':
+        delete_form(window);
+
+    MENU_ENTREE 'COMMIT':
+        COMMIT;
+	    START_TRANSACTION;
+
+    MENU_ENTREE 'ROLLBACK':
+        ROLLBACK;
+	    START_TRANSACTION;
+
+    MENU_ENTREE 'Exit Form Editor':
+        return FALSE;
+
+	END_MENU;
+
+	return TRUE;
+}
+
+
+static write_file(form, file_name)
+	 OBJ form;
+	 TEXT *file_name;
+{
+/**************************************
+ *
+ *	w r i t e _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a raw form image to a file.
+ *
+ **************************************/
+	FILE *file;
+	TEXT *buffer, *ptr, static_buffer[1024];
+	USHORT length, l;
+
+/* Open output file */
+
+	if (!(file = fopen(file_name, "w")))
+		return FAILURE;
+
+/* Get a buffer large enough to hold form representation */
+
+	length = PYXIS_dump_length(form);
+	if (length < sizeof(static_buffer))
+		buffer = static_buffer;
+	else
+		buffer = gds__alloc(length + 4);
+
+/* Dump form to memory */
+
+	ptr = buffer;
+	PYXIS_dump(form, &ptr);
+
+/* Dump form to file */
+
+	fputs("\"", file);
+
+	for (ptr = buffer, l = 2; length; --length, l++, ptr++) {
+		putc(*ptr, file);
+		if (l == 60) {
+			fputs("\\\n", file);
+			l = 0;
+		}
+	}
+
+	fputs("\"\n", file);
+	fclose(file);
+
+	if (buffer != static_buffer)
+		gds__free(buffer);
+
+	return 0;
+}
+
+
+static validate_name(string)
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	v a l i d a t e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Validate a file and/or form name.
+ *
+ **************************************/
+
+	for (; *string; string++)
+		if (*string == ' ' || *string == '\t')
+			return FALSE;
+
+	return TRUE;
+}
+
+
+static zap_string(string)
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	z a p _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zap trailing blanks in a string.
+ *
+ **************************************/
+
+	while (*string && *string != ' ')
+		string++;
+
+	*string = 0;
+}
diff --git a/src/pyxis/keys.h b/src/pyxis/keys.h
new file mode 100644
index 0000000000..7acf67f9a9
--- /dev/null
+++ b/src/pyxis/keys.h
@@ -0,0 +1,65 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		keys.h
+ *	DESCRIPTION:	logical key definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _PYXIS_KEYS_H_
+#define _PYXIS_KEYS_H_
+
+/* Special Characters */
+
+#define C_EOF		26
+
+#define	C_DELETE	127
+#define C_UP		128
+#define C_DOWN		129
+#define C_RIGHT		130
+#define C_LEFT		131
+#define C_PF1		132
+#define C_PF2		133
+#define C_PF3		134
+#define C_PF4		135
+#define C_PF5		136
+#define C_PF6		137
+#define C_PF7		138
+#define C_PF8		139
+#define C_PF9		140
+#define C_ENTER		141
+#define C_SCROLL_TOP	146
+#define C_SCROLL_BOTTOM	147
+
+#define C_VERT_BAR	148
+#define C_HORZ_BAR	149
+#define C_UL_CORNER	150
+#define C_UR_CORNER	151
+#define C_LL_CORNER	152
+#define C_LR_CORNER	153
+
+/* Field editing keys.  */
+
+#define C_EDIT			160
+#define C_INSERT_OVERSTRIKE	161
+#define C_DELETE_NEXT		162
+#define C_GOTO_START		163
+#define C_GOTO_END		164
+#define C_ERASE			165
+
+#endif /* _PYXIS_KEYS_H_ */
diff --git a/src/pyxis/menu.cpp b/src/pyxis/menu.cpp
new file mode 100644
index 0000000000..906cb1f387
--- /dev/null
+++ b/src/pyxis/menu.cpp
@@ -0,0 +1,418 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		menu.c
+ *	DESCRIPTION:	Menu manipulation routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <ctype.h>
+
+#include "../pyxis/pyxis.h"
+
+ATT PYXIS_get_attribute(), PYXIS_put_attribute(), REPLACE_ATTRIBUTE(),
+PYXIS_find_object(), PYXIS_navigate();
+
+OBJ PYXIS_create_object(), PYXIS_get_attribute_value();
+
+static ATT lookup_entree();
+
+
+
+
+PYXIS_box(object)
+{
+/**************************************
+ *
+ *	P Y X I S _ b o x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Box a complete object.
+ *
+ **************************************/
+	USHORT width, height;
+
+	width = GET_VALUE(object, att_width);
+	height = GET_VALUE(object, att_height);
+
+	if (!width || !height) {
+		PYXIS_compute_size(object, &width, &height);
+		width += 3;
+		height += 3;
+	}
+
+	REPLACE_ATTRIBUTE(object, att_width, attype_numeric, width);
+	REPLACE_ATTRIBUTE(object, att_height, attype_numeric, height);
+	REPLACE_ATTRIBUTE(object, att_box, attype_numeric, TRUE);
+	REPLACE_ATTRIBUTE(object, att_blank, attype_numeric, TRUE);
+	REPLACE_ATTRIBUTE(object, att_border, attype_numeric, 1);
+}
+
+
+ATT PYXIS_create_entree(menu, string, type, value)
+	 OBJ menu;
+	 TEXT *string;
+	 BLK value;
+{
+/**************************************
+ *
+ *	P Y X I S _ c r e a t e _ e n t r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add another entree to a menu.
+ *
+ **************************************/
+	OBJ object;
+
+	object = PYXIS_create_object(string, att_literal_string);
+
+	if (type)
+		PUT_ATTRIBUTE(object, att_entree_value, type, value);
+
+	return PUT_ATTRIBUTE(menu, att_entree, attype_object, object);
+}
+
+
+OBJ PYXIS_drive_menu(window, menu, terminator)
+	 WIN window;
+	 OBJ menu;
+	 USHORT *terminator;
+{
+/**************************************
+ *
+ *	P Y X I S _ d r i v e _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drive a menu, return selected object and terminator.
+ *
+ **************************************/
+	ATT attribute, prior;
+	OBJ entree;
+	TEXT string[32], *p;
+	USHORT c, direction, horizontal;
+
+	*terminator = 0;
+	PYXIS_scroll_reset(menu);
+
+/* Reset all bolding */
+
+	attribute = NULL;
+
+	while (attribute = PYXIS_find_object(menu, attribute, att_entree, TRUE))
+		REPLACE_ATTRIBUTE(attribute->att_value, att_reverse_video,
+						  attype_numeric, 0);
+
+	p = string;
+
+/* If there is an initial character that uniquely identifies the entree,
+   just return it immediately. */
+
+	if (!attribute &&
+		!(attribute = PYXIS_find_object(menu, 0, att_entree, TRUE)))
+			return NULL;
+
+	horizontal = (menu->obj_flags & OBJ_menu_horizontal);
+
+	prior = NULL;
+
+	for (;;) {
+		entree = (OBJ) attribute->att_value;
+		if (prior != attribute) {
+			if (prior)
+				REPLACE_ATTRIBUTE(prior->att_value, att_reverse_video,
+								  attype_numeric, 0);
+			REPLACE_ATTRIBUTE(entree, att_reverse_video, attype_numeric, 1);
+		}
+		c = PYXIS_get_char(window, entree, -1, 0);
+		prior = attribute;
+
+		switch (c) {
+		case C_ENTER:
+		case '\n':
+			*terminator = c;
+			return entree;
+
+		case C_UP:
+		case C_LEFT:
+		case C_DOWN:
+		case C_RIGHT:
+			p = string;
+			if (attribute = PYXIS_navigate(menu, attribute, att_entree, c))
+				break;
+
+			direction = (c == C_UP || c == C_LEFT) ? FALSE : TRUE;
+
+			if (!(window->win_flags & WIN_synthesized)
+				|| (horizontal && (c == C_RIGHT || c == C_LEFT))
+				|| (!horizontal && (c == C_UP || c == C_DOWN)))
+				attribute = PYXIS_find_object(menu, 0, att_entree, direction);
+			else
+				attribute = prior;
+
+			break;
+
+		case C_SCROLL_TOP:
+			attribute = PYXIS_find_object(menu, 0, att_entree, TRUE);
+			break;
+
+		case C_SCROLL_BOTTOM:
+			attribute = PYXIS_find_object(menu, 0, att_entree, FALSE);
+			break;
+
+		default:
+			if (!isprint(c)) {
+				*terminator = c;
+				return entree;
+			}
+
+			*p++ = c;
+			*p = 0;
+			if (attribute = lookup_entree(menu, 0, string))
+				break;
+			p = string;
+			*p++ = c;
+			*p = 0;
+			if (attribute = lookup_entree(menu, 0, string))
+				break;
+			p = string;
+			attribute = prior;
+			break;
+		}
+	}
+}
+
+
+PYXIS_format_menu(menu, string, horizontal)
+	 OBJ menu;
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	P Y X I S _ f o r m a t _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	ATT attribute;
+	OBJ object, label;
+	USHORT count, x, y, length, delta_y, max_width, string_length;
+
+/*  Clear out any previous formatting.  */
+
+	REPLACE_ATTRIBUTE(menu, att_width, attype_numeric, 0);
+	REPLACE_ATTRIBUTE(menu, att_height, attype_numeric, 0);
+	REPLACE_ATTRIBUTE(menu, att_box, attype_numeric, FALSE);
+	REPLACE_ATTRIBUTE(menu, att_blank, attype_numeric, FALSE);
+	REPLACE_ATTRIBUTE(menu, att_border, attype_numeric, 0);
+
+
+	string_length = max_width = 0;
+	label = NULL;
+
+/* If there is a title, make up an object to display it */
+
+	if (string) {
+		label = PYXIS_create_object(string, att_literal_string);
+		REPLACE_ATTRIBUTE(menu, att_label, attype_object, label);
+		string_length = max_width = strlen(string);
+	}
+
+/* Count objects and pick up length of the various entrees */
+
+	attribute = NULL;
+	count = 0;
+
+	while (attribute = PYXIS_find_object(menu, attribute, att_entree, TRUE)) {
+		++count;
+		object = (OBJ) attribute->att_value;
+		length = GET_VALUE(object, att_width);
+		max_width = MAX(max_width, length);
+	}
+
+	max_width += 2;
+	delta_y = (count < 10) ? 2 : 1;
+
+/* Initial things for either vertical or horizontal formatting */
+
+	x = y = 0;
+
+	if (!horizontal)
+		x = (max_width - string_length) / 2;
+
+/* Position menu title */
+
+	if (label) {
+		REPLACE_ATTRIBUTE(label, att_display_x, attype_numeric, x);
+		REPLACE_ATTRIBUTE(label, att_display_y, attype_numeric, y);
+		if (horizontal)
+			x += 2 + string_length;
+		else
+			y += 2;
+	}
+
+/* Format entrees */
+
+	while (attribute = PYXIS_find_object(menu, attribute, att_entree, TRUE)) {
+		object = (OBJ) attribute->att_value;
+		length = GET_VALUE(object, att_width);
+		if (!horizontal)
+			x = (max_width - length) / 2;
+		REPLACE_ATTRIBUTE(object, att_display_x, attype_numeric, x);
+		REPLACE_ATTRIBUTE(object, att_display_y, attype_numeric, y);
+		if (horizontal)
+			x += 2 + length;
+		else
+			y += delta_y;
+	}
+
+	if (!horizontal)
+		PYXIS_box(menu);
+}
+
+
+OBJ PYXIS_menu(window, menu)
+	 WIN window;
+	 OBJ menu;
+{
+/**************************************
+ *
+ *	P Y X I S _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drive a menu, return selected object.
+ *
+ **************************************/
+	USHORT c;
+
+	return PYXIS_drive_menu(window, menu, &c);
+
+}
+
+
+PYXIS_select(window, menu, attribute_name, start)
+	 WIN window;
+	 OBJ menu;
+	 ATT_N attribute_name;
+	 ATT start;
+{
+/**************************************
+ *
+ *	P Y X I S _ s e l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drive a menu, but allow selection of multiple items.  Selection
+ *	for an entree is visually indicated by toggling reverse video.
+ *	For now, the reverse video attribute also indicates selection.
+ *
+ **************************************/
+	ATT attribute, prior;
+	OBJ entree;
+	TEXT string[32], *p;
+	UCHAR c;
+
+	if (!(attribute = start) &&
+		!(attribute = PYXIS_find_object(menu, 0, attribute_name, TRUE)))
+		return NULL;
+
+	p = string;
+
+	for (;;) {
+		entree = (OBJ) attribute->att_value;
+		c = PYXIS_get_char(window, entree, -1, 0);
+		if (c == C_ENTER)
+			return NULL;
+		prior = attribute;
+		switch (c) {
+		case '\n':
+			REPLACE_ATTRIBUTE(entree, att_reverse_video, attype_numeric,
+							  !GET_VALUE(entree, att_reverse_video));
+			break;
+
+		case C_DOWN:
+		case C_RIGHT:
+		case C_UP:
+		case C_LEFT:
+			p = string;
+			if (!
+				(attribute =
+				 PYXIS_navigate(menu, attribute, attribute_name,
+								c))) attribute = prior;
+			break;
+
+		default:
+			*p++ = c;
+			*p = 0;
+			if (attribute = lookup_entree(menu, 0, string))
+				break;
+			p = string;
+			*p++ = c;
+			*p = 0;
+			if (attribute = lookup_entree(menu, 0, string))
+				break;
+			p = string;
+			attribute = prior;
+			break;
+		}
+	}
+}
+
+
+static ATT lookup_entree(menu, attribute, string)
+	 OBJ menu;
+	 ATT attribute;
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	l o o k u p _ e n t r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup the next entree that matches a string.
+ *
+ **************************************/
+	OBJ entree;
+	TEXT *p, *q;
+
+	while (attribute = PYXIS_find_object(menu, attribute, att_entree, TRUE)) {
+		entree = (OBJ) attribute->att_value;
+		if (!(p = GET_STRING(entree, att_literal_string)))
+			continue;
+		for (q = string; *p && *q; p++, q++)
+			if (UPPER(*p) != UPPER(*q))
+				break;
+		if (!*q)
+			return attribute;
+	}
+
+	return NULL;
+}
diff --git a/src/pyxis/phase1.h b/src/pyxis/phase1.h
new file mode 100644
index 0000000000..332d6391e9
--- /dev/null
+++ b/src/pyxis/phase1.h
@@ -0,0 +1,50 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		phase1.h
+ *	DESCRIPTION:	General header module
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _PYXIS_PHASE1_H_
+#define _PYXIS_PHASE1_H_
+
+/* Reset levels */
+
+#define PYXIS_reset_update		4
+#define PYXIS_reset_data		2
+#define PYXIS_reset_control		1
+
+/* Define attributes */
+
+#define ATT(name)	name,
+typedef enum att_n {
+    att_any = 0,
+#include "../pyxis/attributes.h"
+    att_max
+} ATT_N;
+#undef ATT
+
+typedef enum att_t {
+    attype_numeric = 1,		/* numeric value */
+    attype_string,		/* string address */
+    attype_object,		/* an object */
+    attype_other                /* used for att_picture */
+} ATT_T;
+
+#endif /* _PYXIS_PHASE1_H_ */
diff --git a/src/pyxis/phase2.cpp b/src/pyxis/phase2.cpp
new file mode 100644
index 0000000000..6d5f040165
--- /dev/null
+++ b/src/pyxis/phase2.cpp
@@ -0,0 +1,870 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		phase2.c
+ *	DESCRIPTION:	High level form oriented primitives
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <setjmp.h>
+#include "../pyxis/pyxis.h"
+#include "../pyxis/phase2.h"
+
+static OBJ walk_form(), walk_repeating();
+static ATT find_starting();
+
+extern PIC PICSTR_analyze();
+extern OBJ PYXIS_find_field(), PYXIS_get_attribute_value(),
+PYXIS_find_index(), PYXIS_update(), PYXIS_menu(),
+PYXIS_clone(), PYXIS_create_object();
+extern ATT PYXIS_replicate_prototype(), PYXIS_find_object(),
+PYXIS_put_attribute(), PYXIS_replace_attribute(),
+PYXIS_get_attribute(), PYXIS_navigate();
+
+
+
+OBJ PYXIS_find_field(form, field_name)
+	 OBJ form;
+	 TEXT *field_name;
+{
+/**************************************
+ *
+ *	P Y X I S _ f i n d _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup a field in a form definition.  If the field doesn't
+ *	exist, return NULL.  If the field name is NULL, assume that
+ *	a field handle was supplied in lieu of form handle/field name.
+ *
+ **************************************/
+	ATT attribute;
+	OBJ field;
+	TEXT *name;
+
+	if (!field_name)
+		return form;
+
+	for (attribute = NULL;
+		 attribute = PYXIS_find_object(form, attribute, att_field, TRUE);) {
+		field = attribute->att_value;
+		if (name = GET_STRING(field, att_field_name))
+			if (!strcmp(name, field_name))
+				return field;
+	}
+
+	return NULL;
+}
+
+
+OBJ PYXIS_find_index(form, index)
+	 OBJ form;
+	 USHORT index;
+{
+/**************************************
+ *
+ *	P Y X I S _ f i n d _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a field by index in a repeating form.
+ *
+ **************************************/
+	OBJ field;
+	ATT attribute;
+
+	for (attribute = NULL;
+		 attribute = PYXIS_find_object(form, attribute, att_field, TRUE);) {
+		field = attribute->att_value;
+		if (GET_VALUE(field, att_index) == index)
+			return field;
+	}
+
+	return NULL;
+}
+
+
+TEXT *PYXIS_format_field(field, desc, buffer)
+	 OBJ field;
+	 DSC *desc;
+	 TEXT *buffer;
+{
+/**************************************
+ *
+ *	P Y X I S _ f o r m a t _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a field and a value, try to edit the value.  If there is
+ *	an edit string specified, edit value and return the running 
+ *	output address.  If there isn't an edit string, return NULL.
+ *
+ **************************************/
+	ATT attribute;
+	DSC desc2;
+	PIC picture;
+	TEXT *edit_string;
+
+/* Find processed "picture" attribute.  If it exists, look for
+   a raw picture string; it this exists, pre-process it.  If, in
+   the end, a picture string is found, edit the value using it */
+
+	if (!(picture = (PIC) GET_STRING(field, att_picture))) {
+		if (!(edit_string = GET_STRING(field, att_edit_string)))
+			return NULL;
+		picture = PICSTR_analyze(edit_string, &desc2);
+		PUT_ATTRIBUTE(field, att_picture, attype_other, picture);
+	}
+
+	PICSTR_edit(desc, picture, &buffer, 32000);
+	*buffer = 0;
+
+	return buffer;
+}
+
+
+TEXT *PYXIS_get_string(form, field_name, type)
+	 OBJ form;
+	 TEXT *field_name;
+	 USHORT type;
+{
+/**************************************
+ *
+ *	P Y X I S _ g e t _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a string, any string.  
+ *      The latest, of course, the better.             
+ *	NOTE: This routine obsolete; 
+ *	left in for compatibility during dev't.
+ *
+ **************************************/
+	TEXT *string;
+	OBJ field;
+
+	if (!(field = PYXIS_find_field(form, field_name)))	/* 0)))  */
+		return NULL;
+
+	switch (type) {
+	case PYXIS_user_data:
+		return GET_STRING(field, att_update_data);
+	case PYXIS_any_data:
+		if (string = GET_STRING(field, att_update_data))
+			return string;
+	case PYXIS_prog_data:
+		return GET_STRING(field, att_data);
+	default:
+		return NULL;
+	}
+
+/*if (string = (GET_STRING (field, att_update_data))
+    return string;                 
+
+return GET_STRING (field, att_data);*/
+}
+
+
+PYXIS_get_updated(form, field_name, p)
+	 OBJ form;
+	 TEXT *field_name;
+	 TEXT **p;
+{
+/**************************************
+ *
+ *	P Y X I S _ g e t _ u p d a t e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	(This routine is a replacement for PYXIS_gget_string (sic).
+ *	PYXIS_gget_string is left in for compatibilitiy during dev't.)
+ *	Determine what data is out there and return it.
+ *
+ **************************************/
+	OBJ field;
+
+	*p = NULL;
+
+	if (!(field = PYXIS_find_field(form, field_name)))
+		return PYXIS_no_field;
+
+	if (*p = GET_STRING(field, att_update_data))
+		return PYXIS_user_data;
+
+	if (GET_VALUE(field, att_data))
+		return PYXIS_prog_data;
+
+	return PYXIS_missing_data;
+}
+
+
+PYXIS_purge_segments(field, index)
+	 OBJ field;
+	 int index;
+{
+/**************************************
+ *
+ *	P Y X I S _ p u r g e _ s e g m e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Purge trailing segments from a blob.
+ *
+ **************************************/
+	ATT attribute, attr;
+	OBJ segment;
+
+/* Look for field object already created */
+
+	for (attribute = field->obj_attributes; attr = attribute;) {
+		attribute = attribute->att_next;
+		if (attr->att_name != att_field)
+			continue;
+		segment = attr->att_value;
+		if (segment->obj_index >= index)
+			PYXIS_delete_attribute(field, attr);
+	}
+
+	if (index <= 1 && (segment = GET_OBJECT(field, att_prototype)))
+		REPLACE_ATTRIBUTE(segment, att_inactive, attype_numeric, FALSE);
+}
+
+
+PYXIS_put_desc(field, desc)
+	 OBJ field;
+	 DSC *desc;
+{
+/**************************************
+ *
+ *	P Y X I S _ p u t _ d e s c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish a value for a field.
+ *
+ **************************************/
+	TEXT *edit_string, *p, edit_buffer[256];
+	USHORT l;
+	ATT attribute;
+
+	if (!PYXIS_format_field(field, desc, edit_buffer)) {
+		p = edit_buffer;
+		if (l =
+			MOVP_get_string(desc, &edit_string, edit_buffer,
+							sizeof(edit_buffer)))
+			do
+				*p++ = *edit_string++;
+			while (--l);
+	}
+
+/* Replace the old data attribute */
+
+	attribute =
+		REPLACE_ATTRIBUTE(field, att_data, attype_string, edit_buffer);
+	PYXIS_set_display_attribute(field, attribute);
+
+	return TRUE;
+}
+
+
+PYXIS_put_segment(field, string, index)
+	 OBJ field;
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	P Y X I S _ p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a segment to a blob.
+ *
+ **************************************/
+	ATT attribute;
+	OBJ segment;
+
+	if ((segment = PYXIS_find_index(field, index)) &&
+		segment->obj_rel_y == index) {
+		REPLACE_ATTRIBUTE(segment, att_width, attype_numeric, strlen(string));
+		return TRUE;
+	}
+
+	if (segment = GET_OBJECT(field, att_prototype)) {
+		segment = PYXIS_clone(segment);
+		attribute =
+			REPLACE_ATTRIBUTE(segment, att_data, attype_string, string);
+		PYXIS_set_display_attribute(segment, attribute);
+	}
+	else
+		segment = PYXIS_create_object(string, att_data);
+
+	REPLACE_ATTRIBUTE(segment, att_index, attype_numeric, index);
+	REPLACE_ATTRIBUTE(segment, att_display_y, attype_numeric, index - 1);
+	PUT_ATTRIBUTE(field, att_field, attype_object, segment);
+
+	return TRUE;
+}
+
+
+ATT PYXIS_replicate_prototype(form, prototype, index)
+	 OBJ form;
+	 OBJ prototype;
+	 USHORT index;
+{
+/**************************************
+ *
+ *	P Y X I S _ r e p l i c a t e _ p r o t o t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Replicate prototype sub-object, 
+ *	clearing away extraneous stuff..
+ *
+ **************************************/
+	OBJ clone;
+	USHORT height;
+
+	if (!(height = GET_VALUE(prototype, att_height)))
+		height = 1;
+
+	PYXIS_scroll_reset(form);
+	clone = PYXIS_clone(prototype);
+
+	REPLACE_ATTRIBUTE(clone, att_index, attype_numeric, index);
+	REPLACE_ATTRIBUTE(clone, att_display_y, attype_numeric,
+					  height * (index - 1));
+
+	REPLACE_ATTRIBUTE(clone, att_updatable_flag, attype_numeric, TRUE);
+	REPLACE_ATTRIBUTE(clone, att_inactive, attype_numeric, FALSE);
+
+	return PUT_ATTRIBUTE(form, att_field, attype_object, clone);
+}
+
+
+PYXIS_set_field_options(form, field_name, options, mask)
+	 OBJ form;
+	 TEXT *field_name;
+	 SLONG options, mask;
+{
+/**************************************
+ *
+ *	P Y X I S _ s e t _ f i e l d _ o p t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup field on form and update field options.  If the field
+ *	name is given as "all", update all fields on form.
+ *
+ **************************************/
+	ATT attribute;
+	OBJ field;
+
+/* Handle the simple version first */
+
+	if (field_name && !strcmp(field_name, "all")) {
+		for (attribute = NULL;
+			 attribute = PYXIS_find_object(form, attribute, att_field, TRUE);)
+			set_fld_options(attribute->att_value, options, mask);
+		return TRUE;
+	}
+
+	if (!(field = PYXIS_find_field(form, field_name)))
+		return FALSE;
+
+	set_fld_options(field, options, mask);
+
+	return TRUE;
+}
+
+
+OBJ PYXIS_update(window, form, context_stack, terminator)
+	 WIN window;
+	 OBJ form;
+	 LLS *context_stack;
+	 USHORT *terminator;
+{
+/**************************************
+ *
+ *	P Y X I S _ u p d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update stuff.
+ *
+ **************************************/
+	LLS *context, temp;
+	OBJ field;
+
+/* If no stack given, make a temp one.  */
+
+	if (!(context = context_stack)) {
+		temp = NULL;
+		context = &temp;
+	}
+
+/* If no context, try to stack the first updatable field.
+   If we don't find one, walk_form will find a first.  */
+
+	if (!*context)
+		find_starting(form, TRUE, FALSE, context);
+
+	for (;;) {
+		*terminator = 0;
+		if ((field = walk_form(window, form, context, terminator)) ||
+			!*terminator || (*terminator >= C_PF1 && *terminator <= C_ENTER))
+			break;
+	}
+
+	if ((LLS) context == temp)
+		while (temp)
+			LLS_POP(&temp);
+
+	return field;
+}
+
+
+static ATT find_starting(form, direction, any, out_stack)
+	 OBJ form;
+	 USHORT direction;
+	 USHORT any;
+	 LLS *out_stack;
+{
+/**************************************
+ *
+ *	f i n d _ s t a r t i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a starting field for form navigation
+ *      and stack the fields leading to it.
+ *	ASSUME AT LEAST ONE OBJECT (LABEL, FLD) IN A SUBFORM!!
+ *
+ **************************************/
+	ATT attr, start, real_start;
+	OBJ field;
+
+/* For forms with say, all text that expect a TERMINATOR, position on first label? */
+
+	start = NULL;
+	attr = NULL;
+
+/* During a search for updatables, if a proto has an updatable field but 
+   no instantiations, return field but don't stack it.  */
+
+	if (!any) {
+		while (attr = start =
+			   PYXIS_find_object(form, attr, att_field, direction)) {
+			field = attr->att_value;
+			if (GET_VALUE(field, att_updatable_flag))
+				break;
+			if ((field = GET_OBJECT(field, att_prototype)) &&
+				(start = find_starting(field, direction, FALSE, out_stack))) {
+				/* Hmmm... for recursion, may have to send in a loc stack , 
+				   then pop from one to the other */
+				LLS_POP(out_stack);
+				if ((field = GET_OBJECT(field, att_field)) &&
+					(real_start =
+					 find_starting(field, direction, FALSE,
+								   out_stack))) start = real_start;
+				break;
+			}
+		}
+		if (attr)
+			LLS_PUSH(attr, out_stack);
+		return start;
+	}
+
+	while (attr = start = PYXIS_find_object(form, attr, att_field, direction)) {
+		field = attr->att_value;
+		if (!(field = GET_OBJECT(field, att_prototype)))
+			break;
+		if (!PYXIS_find_object(field, 0, att_any, direction))
+			break;
+		if (start = find_starting(field, direction, TRUE, out_stack))
+			break;
+	}
+	if (attr)
+		LLS_PUSH(attr, out_stack);
+	return start;
+}
+
+
+static set_fld_options(field, options, mask)
+	 OBJ field;
+	 SLONG options, mask;
+{
+/**************************************
+ *
+ *	s e t _ f l d _ o p t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set various field masks.  
+ *
+ **************************************/
+	ATT_N display_attribute;
+	ATT attribute;
+	USHORT flag;
+
+/* Handle field wake up & updatability flags */
+
+	if (options & PYXIS_wakeup)
+		REPLACE_ATTRIBUTE(field, att_wakeup_flag, attype_numeric,
+						  (mask & PYXIS_wakeup) ? TRUE : FALSE);
+
+	if (options & PYXIS_updatable) {
+		flag = (mask & PYXIS_updatable) ? TRUE : FALSE;
+		REPLACE_ATTRIBUTE(field, att_updatable_flag, attype_numeric, flag);
+		if (GET_VALUE(field, att_reverse_for_update))
+			REPLACE_ATTRIBUTE(field, att_reverse_video, attype_numeric, flag);
+	}
+/*
+	/* Handle automatic upcase flag 
+	if (options & PYXIS_upcase)
+	    REPLACE_ATTRIBUTE (field, att_upcase, attype_numeric, 
+		(mask & PYXIS_upcase) ? TRUE : FALSE);
+	/* Handle wakeup string option 
+	if (options & PYXIS_wakeup_string & ~mask)
+	    PYXIS_delete_named_attribute (field, att_wakeup_string);
+*/
+/* Handle update data option & program data option */
+
+	if (options & PYXIS_update_present & ~mask)
+		PYXIS_delete_named_attribute(field, att_update_data);
+
+	if (options & PYXIS_data_present & ~mask)
+		PYXIS_delete_named_attribute(field, att_data);
+
+/* Handle repeating sub-items */
+
+	if (options & PYXIS_repeating_items & ~mask)
+		PYXIS_purge_segments(field, 1);
+
+/* Handle various display masks */
+
+	display_attribute = att_any;
+
+	if (options & PYXIS_update_displayed) {
+		attribute = NULL;
+		if (mask & PYXIS_update_displayed)
+			attribute = GET_ATTRIBUTE(field, att_update_data);
+		if (!attribute)
+			display_attribute = att_data;
+		PYXIS_set_display_attribute(field, attribute);
+	}
+
+	if (options & PYXIS_data_displayed) {
+		attribute = NULL;
+		if (mask & PYXIS_data_displayed)
+			attribute = GET_ATTRIBUTE(field, att_data);
+		if (!attribute)
+			display_attribute = att_fill_string;
+		PYXIS_set_display_attribute(field, attribute);
+	}
+
+	if (options & PYXIS_fill_displayed) {
+		attribute = (mask & PYXIS_fill_displayed) ?
+			GET_ATTRIBUTE(field, att_fill_string) : NULL;
+		if (!attribute)
+			display_attribute = att_any;
+		PYXIS_set_display_attribute(field, attribute);
+	}
+
+	if (display_attribute != att_any &&
+		(attribute = GET_ATTRIBUTE(field, display_attribute)))
+			PYXIS_set_display_attribute(field, attribute);
+
+/* Recurse where appropriate */
+
+	for (attribute = NULL;
+		 attribute = PYXIS_find_object(field, attribute, att_field, TRUE);)
+		set_fld_options(attribute->att_value, options, mask);
+
+	for (attribute = NULL;
+		 attribute =
+		 PYXIS_find_object(field, attribute, att_prototype,
+						   TRUE);) set_fld_options(attribute->att_value,
+												   options, mask);
+}
+
+
+static OBJ walk_form(window, form, context, terminator)
+	 WIN window;
+	 OBJ form;
+	 LLS *context;
+	 USHORT *terminator;
+{
+/**************************************
+ *
+ *	w a l k _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk around form, updating things updatable.  
+ *      If the user tries to move "off" the form, return.
+ *
+ **************************************/
+	ATT field, new_field;
+	OBJ field_object, woken_field;
+	USHORT lc, direction;
+
+	new_field = NULL;
+	direction = TRUE;
+
+/* If there is no first field on the context stack, find one */
+
+	if (*context || find_starting(form, direction, TRUE, context))
+		field = (ATT) LLS_POP(context);
+	else
+		BUGCHECK("Forms sans fields not implemented");;
+
+	for (;;) {
+		switch (lc = *terminator) {
+		case C_SCROLL_TOP:
+			new_field = PYXIS_find_object(form, 0, att_field, TRUE);
+			if (new_field == field)
+				new_field = NULL;
+			break;
+		case C_SCROLL_BOTTOM:
+			new_field = PYXIS_find_object(form, 0, att_field, FALSE);
+			if (new_field == field)
+				new_field = NULL;
+			break;
+		case C_UP:
+		case C_DOWN:
+		case C_LEFT:
+		case C_RIGHT:
+		case '\n':
+		case '\t':
+		case C_DELETE:
+			new_field = PYXIS_navigate(form, field, att_field, lc);	/*context, */
+			break;
+		case C_EOF:			/* should this be same as case n&t ? */
+		case C_ENTER:
+		case C_PF1:
+		case C_PF2:
+		case C_PF3:
+		case C_PF4:
+		case C_PF5:
+		case C_PF6:
+		case C_PF7:
+		case C_PF8:
+		case C_PF9:
+			new_field = NULL;
+			break;
+		default:
+			new_field = field;
+		}
+
+		if (!new_field) {
+			LLS_PUSH(field, context);
+			return NULL;
+		}
+		field = new_field;
+		field_object = field->att_value;
+
+		if (GET_ATTRIBUTE(field_object, att_prototype)) {
+			if (woken_field =
+				walk_repeating(window, field_object, context,
+							   terminator)) return woken_field;
+		}
+		else if (GET_VALUE(field_object, att_updatable_flag)) {
+			if (PYXIS_get_data
+				(window, field_object, att_update_data, form, terminator)
+				&& GET_VALUE(field_object, att_wakeup_flag))
+				return field_object;
+		}
+		else
+			*terminator = PYXIS_get_char(window, field_object, 0, 0);
+	}							/* end for */
+}
+
+
+
+static OBJ walk_repeating(window, form, context, terminator)
+	 WIN window;
+	 OBJ form;
+	 LLS *context;
+	 USHORT *terminator;
+{
+/**************************************
+ *
+ *	w a l k _ r e p e a t i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk around a repeating group.  Replicate new
+ *	elements as required.  If we try to step out of
+ *	the group, return.  This is very hairy since if 
+ * 	we're walking a subform we mostly just need to 
+ * 	choose a repeating group & pass the info cleanly
+ * 	to WALK_FORM, but if we're dealing with a blob,
+ *	we have to process characters here & so on...
+ *
+ **************************************/
+	ATT attr;
+	OBJ object, proto, woken_field;
+	USHORT index, max_index, n, replicable, c;
+
+	proto = GET_OBJECT(form, att_prototype);
+	replicable = FALSE;
+	max_index = 0;
+	c = 0;
+
+/* Compute max index & determine replicability */
+
+	for (attr = NULL; attr = PYXIS_find_object(form, attr, att_field, FALSE);) {
+		object = attr->att_value;
+		n = GET_VALUE(object, att_index);
+		max_index = MAX(n, max_index);
+	}
+
+	if (GET_VALUE(form, att_updatable_flag))
+		replicable = TRUE;
+	else
+		for (attr = NULL;
+			 attr = PYXIS_find_object(proto, attr, att_field, TRUE);) {
+			object = attr->att_value;
+			if (GET_VALUE(object, att_updatable_flag)) {
+				replicable = TRUE;
+				break;
+			}
+		}
+
+/* Find starting index */
+
+	if (!(index = GET_VALUE(form, att_current_index)) && max_index)
+		index = 1;
+
+	for (;;) {
+		switch (c) {
+		case C_SCROLL_TOP:
+			if (index > 1) {
+				index = 1;
+				break;
+			}
+			REPLACE_ATTRIBUTE(form, att_current_index, attype_numeric, 0);
+			*terminator = c;
+			return NULL;
+		case C_SCROLL_BOTTOM:
+			if (index < max_index) {
+				index = max_index;
+				break;
+			}
+			REPLACE_ATTRIBUTE(form, att_current_index, attype_numeric,
+							  max_index);
+			*terminator = c;
+			return NULL;
+		case C_UP:
+		case C_DELETE:
+			if (--index > 0)
+				break;
+			REPLACE_ATTRIBUTE(form, att_current_index, attype_numeric, 0);
+			*terminator = c;
+			return NULL;
+		case C_DOWN:
+			if (++index <= max_index)
+				break;
+			REPLACE_ATTRIBUTE(form, att_current_index, attype_numeric,
+							  max_index);
+			*terminator = c;
+			return NULL;
+		case '\n':
+		case '\t':
+			++index;
+			break;
+		case C_EOF:
+			PYXIS_purge_segments(form, index);
+			REPLACE_ATTRIBUTE(form, att_current_index, attype_numeric, index);
+			*terminator = 0;
+			return NULL;
+		case C_LEFT:
+		case C_RIGHT:
+		case C_ENTER:
+		case C_PF1:
+		case C_PF2:
+		case C_PF3:
+		case C_PF4:
+		case C_PF5:
+		case C_PF6:
+		case C_PF7:
+		case C_PF8:
+		case C_PF9:
+			REPLACE_ATTRIBUTE(form, att_current_index, attype_numeric, index);
+			*terminator = c;
+			return NULL;
+		default:;
+		}
+
+		if (!index) {
+			if (!replicable)
+				object = proto;
+			else {
+				REPLACE_ATTRIBUTE(proto, att_inactive, attype_numeric, TRUE);
+				attr =
+					PYXIS_replicate_prototype(form, proto,
+											  (max_index = ++index));
+				object = attr->att_value;
+			}
+		}
+		else if (index > max_index) {
+			if (!replicable) {
+				REPLACE_ATTRIBUTE(form, att_current_index, attype_numeric,
+								  max_index);
+				*terminator = c;
+				return NULL;
+			}
+			attr =
+				PYXIS_replicate_prototype(form, proto, (max_index = index));
+			object = attr->att_value;
+		}
+		else
+			object = PYXIS_find_index(form, index);
+
+		/* Special case for a subform, then a blob */
+
+		if (PYXIS_find_object(object, 0, att_field, TRUE)) {
+			if (woken_field = walk_form(window, object, context, &c)) {
+				REPLACE_ATTRIBUTE(form, att_current_index, attype_numeric,
+								  index);
+				*terminator = c;
+				return woken_field;
+			}
+		}
+		else if (replicable)
+			PYXIS_get_data(window, object, att_update_data, form, &c);
+		/* what does it mean to say "waking on" on a blob field? */
+		else
+			c = PYXIS_get_char(window, object, 0, 0);
+	}
+}
diff --git a/src/pyxis/phase2.h b/src/pyxis/phase2.h
new file mode 100644
index 0000000000..c46280be50
--- /dev/null
+++ b/src/pyxis/phase2.h
@@ -0,0 +1,62 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		phase2.h
+ *	DESCRIPTION:	Form/field level interface definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _PYXIS_PHASE2_H_
+#define _PYXIS_PHASE2_H_
+
+/* Attribute identification */
+
+#define PYXIS_no_field			0       /* Field not found */
+#define PYXIS_prog_data			1	/* Program supplied data */
+#define PYXIS_user_data			2	/* User supplied data    */
+#define PYXIS_missing_data		3	/* Neither user nor program supplied data */
+#define PYXIS_any_data			3       /* OBSOLETE: left in for compatibility */
+
+/* Options for field attribute calls */
+
+#define PYXIS_clear			0
+
+#define PYXIS_fill_displayed		1
+#define PYXIS_data_displayed		2
+#define PYXIS_update_displayed		4
+
+#define PYXIS_data_present		8
+#define PYXIS_update_present		16
+
+#define PYXIS_repeating_items		32 
+
+#define PYXIS_wakeup			64
+#define PYXIS_updatable			256
+
+/*
+#define PYXIS_wakeup_string		128 
+#define PYXIS_upcase			512
+#define PYXIS_must_fill			1024
+#define PYXIS_reset_scroll		2048
+*/
+
+/* Convenient attribute group mask */
+
+#define PYXIS_reset		(-1 &~ PYXIS_fill_displayed)
+
+#endif /* _PYXIS_PHASE2_H_ */
diff --git a/src/pyxis/phase3.cpp b/src/pyxis/phase3.cpp
new file mode 100644
index 0000000000..2b5e61e96d
--- /dev/null
+++ b/src/pyxis/phase3.cpp
@@ -0,0 +1,1621 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		phase3.c
+ *	DESCRIPTION:	Routines for preprocessor generator stuff
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: phase3.cpp,v 1.1.1.1 2001-05-23 13:26:34 tamlin Exp $
+*/
+
+#include <setjmp.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+#include "../include/jrd/gds.h"
+#include "../pyxis/pyxis.h"
+#include "../pyxis/phase2.h"
+
+extern OBJ PYXIS_find_field(), PYXIS_get_attribute_value(),
+PYXIS_find_index(), PYXIS_update(), PYXIS_drive_menu(), PYXIS_menu(),
+PYXIS_clone(), PYXIS_create_object();
+extern WIN PYXIS_create_window();
+extern ATT PYXIS_replicate_prototype(), PYXIS_find_object(), PYXIS_navigate();
+
+extern PYXIS_init();
+
+static MAP par_message();
+static MENU par_menu();
+static OBJ find_field();
+
+#define BLR_BYTE	(*p++)
+#define BLR_WORD	par_word (&p)
+
+extern WIN PYXIS_create_window();
+
+static int error(STATUS *, TEXT *, ...);
+
+static jmp_buf unwind_env;
+static TEXT error_buffer[256];
+static unwind();
+
+
+pyxis__compile_map(status, form_handle, map_handle, length, source)
+	 STATUS *status;
+	 OBJ *form_handle;
+	 MAP *map_handle;
+	 USHORT *length;
+	 SCHAR *source;
+{
+/**************************************
+ *
+ *	p y x i s _ $ c o m p i l e _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a form map.
+ *
+ **************************************/
+	MAP map;
+	USHORT n;
+	OBJ form, field;
+	STR string;
+	SCHAR *p, c;
+	TEXT *q, name[32];
+	struct map_repeat *tail;
+
+	form = *form_handle;
+	p = source;
+	c = BLR_BYTE;
+
+	if (c != PYXIS__MAP_VERSION1)
+		return error(status, "unsupported map version %d", c);
+
+	while ((c = BLR_BYTE) != PYXIS__MAP_END)
+		switch (c) {
+		case PYXIS__MAP_MESSAGE:
+			if (!(map = par_message(status, &p)))
+				return FALSE;
+			map->map_form = form;
+			break;
+
+		case PYXIS__MAP_FIELD1:
+		case PYXIS__MAP_FIELD2:
+			q = name;
+			if (n = BLR_BYTE)
+				do
+					*q++ = BLR_BYTE;
+				while (--n);
+			*q = 0;
+			n = BLR_WORD;
+			tail = map->map_rpt + n;
+			if (!(tail->map_field = PYXIS_find_field(form, name)))
+				return error(status, "field %s not defined", name);
+			if (c == PYXIS__MAP_FIELD2) {
+				tail->map_field_flags |= MAP_options;
+				tail->map_option = BLR_WORD;
+			}
+			break;
+
+		case PYXIS__MAP_SUB_FIELD:
+
+			/* Get repeating group field name */
+
+			q = name;
+			if (n = BLR_BYTE)
+				do
+					*q++ = BLR_BYTE;
+				while (--n);
+			*q = 0;
+
+			/* Get target field name */
+
+			n = BLR_BYTE;
+			string = (STR) ALLOCPV(type_str, n);
+			q = string->str_data;
+			if (n)
+				do
+					*q++ = BLR_BYTE;
+				while (--n);
+
+			/* Set up tail slot */
+
+			n = BLR_WORD;
+			tail = map->map_rpt + n;
+			if (!(tail->map_field = PYXIS_find_field(form, name)))
+				return error(status, "field %s not defined", name);
+			if (!(field = GET_OBJECT(tail->map_field, att_prototype)))
+				return error(status, "field %s is not sub_form", name);
+			tail->map_name = string->str_data;
+
+			if (!PYXIS_find_field(field, tail->map_name))
+				return error(status, "field %s not defined", tail->map_name);
+
+			tail->map_field_flags |= MAP_options;
+			tail->map_option = BLR_WORD;
+			break;
+
+		case PYXIS__MAP_OPAQUE:
+			map->map_flags &= ~MAP_transparent;
+			break;
+
+		case PYXIS__MAP_TRANSPARENT:
+			map->map_flags |= MAP_transparent;
+			break;
+
+		case PYXIS__MAP_TAG:
+			map->map_flags |= MAP_tag;
+			break;
+
+		case PYXIS__MAP_TERMINATOR:
+			map->map_terminator = par_word(&p) + 1;
+			break;
+
+		case PYXIS__MAP_TERMINATING_FIELD:
+			map->map_terminating_field = par_word(&p) + 1;
+			break;
+
+		default:
+			return error(status, "invalid form map");
+		}
+
+	*map_handle = map;
+}
+
+
+pyxis__compile_menu(window_handle, menu_handle, length, source)
+	 WIN *window_handle;
+	 MENU *menu_handle;
+	 USHORT *length;
+	 TEXT *source;
+{
+/**************************************
+ *
+ *	p y x i s _ $ c o m p i l e _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a menu.
+ *
+ **************************************/
+
+	*menu_handle = par_menu(*window_handle, length, source);
+}
+
+
+pyxis__compile_sub_map(status, parent_handle, map_handle, length, source)
+	 STATUS *status;
+	 MAP *parent_handle;
+	 MAP *map_handle;
+	 USHORT *length;
+	 SCHAR *source;
+{
+/**************************************
+ *
+ *	p y x i s _ $ c o m p i l e _ s u b _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a subform map.
+ *
+ **************************************/
+	MAP map, parent;
+	USHORT n;
+	STR string;
+	SCHAR *p, c;
+	TEXT *q, name[32];
+	struct map_repeat *tail;
+
+	parent = *parent_handle;
+	p = source;
+	c = BLR_BYTE;
+
+	if (c != PYXIS__MAP_VERSION1)
+		return error(status, "unsupported map version %d", c);
+
+	while ((c = BLR_BYTE) != PYXIS__MAP_END)
+		switch (c) {
+		case PYXIS__MAP_MESSAGE:
+			if (!(map = par_message(status, &p)))
+				return FALSE;
+			break;
+
+		case PYXIS__MAP_SUB_FORM:
+			q = name;
+			if (n = BLR_BYTE)
+				do
+					*q++ = BLR_BYTE;
+				while (--n);
+			*q = 0;
+			if (!(map->map_parent = PYXIS_find_field(parent->map_form, name)))
+				return error(status, "sub-form %s not defined", name);
+			if (!
+				(map->map_prototype =
+				 GET_OBJECT(map->map_parent,
+							att_prototype))) return error(status,
+														  "field %s is not a sub-form",
+														  name);
+			break;
+
+		case PYXIS__MAP_FIELD1:
+		case PYXIS__MAP_FIELD2:
+			n = BLR_BYTE;
+			string = (STR) ALLOCPV(type_str, n);
+			q = string->str_data;
+			if (n)
+				do
+					*q++ = BLR_BYTE;
+				while (--n);
+			n = BLR_WORD;
+			tail = map->map_rpt + n;
+			tail->map_name = string->str_data;
+			if (!map->map_prototype
+				|| !PYXIS_find_field(map->map_prototype,
+									 tail->map_name)) return error(status,
+																   "field %s not defined",
+																   tail->map_name);
+			if (c == PYXIS__MAP_FIELD2) {
+				tail->map_field_flags |= MAP_options;
+				tail->map_option = BLR_WORD;
+			}
+			break;
+
+		case PYXIS__MAP_ITEM_INDEX:
+			map->map_item_index = par_word(&p) + 1;
+			break;
+
+		default:
+			return error(status, "invalid form map");
+		}
+
+	*map_handle = map;
+}
+
+
+
+pyxis__create_window(window_handle, file_name_length, file_name, width,
+					 height)
+	 WIN *window_handle;
+	 USHORT *file_name_length;
+	 TEXT *file_name;
+	 SSHORT *width, *height;
+{
+/**************************************
+ *
+ *	p y x i s _ $ c r e a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new window.
+ *
+ **************************************/
+	WIN window;
+
+	if (*window_handle = window = PYXIS_create_window(*width, *height)) {
+		*width = window->win_width;
+		*height = window->win_height;
+	}
+}
+
+
+pyxis__delete(object)
+	 OBJ *object;
+{
+/**************************************
+ *
+ *	p y x i s _ $ d e l e t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete an object.
+ *
+ **************************************/
+
+	if (*object)
+		PYXIS_delete_object(*object);
+}
+
+
+
+
+pyxis__delete_window(window_handle)
+	 SLONG *window_handle;
+{
+/**************************************
+ *
+ *	p y x i s _ $ d e l e t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a window.
+ *
+ **************************************/
+
+	if (*window_handle) {
+		PYXIS_delete_window(*window_handle);
+		*window_handle = NULL;
+	}
+}
+
+
+pyxis__drive_form(status, db_handle, tra_handle, window_handle, map_handle,
+				  input, output)
+	 STATUS *status;
+	 SLONG **db_handle, *tra_handle;
+	 WIN *window_handle;
+	 MAP *map_handle;
+	 UCHAR *input, *output;
+{
+/**************************************
+ *
+ *	p y x i s _ $ d r i v e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy data from a form (or subform).
+ *
+ **************************************/
+	MAP map;
+	DSC desc, desc2;
+	WIN window;
+	OBJ form, field;
+	USHORT source, c;
+	SSHORT n;
+
+/* If the window doesn't exist, create it */
+
+	if (!(window = *window_handle))
+		*window_handle = window = PYXIS_create_window(80, 24);
+
+/* Initialize some local stuff */
+
+	map = *map_handle;
+	map->map_window = window;
+	form = map->map_form;
+
+/* If there is an input record, initialize form */
+
+	if (input)
+		pyxis__insert(status, db_handle, tra_handle, map_handle, input);
+
+/* Drive form */
+
+	if (map->map_flags & MAP_tag)
+		PYXIS_push_tag(window, form);
+	else
+		PYXIS_push_form(window, form,
+						(map->map_flags & MAP_transparent) ? FALSE : TRUE);
+
+/* If there isn't an output record, display the form and get out */
+
+	if (!output) {
+		PYXIS_update_window(window, 0, 0, 0);
+		return SUCCESS;
+	}
+
+/* Let user muddle around waiting for input */
+
+	field =
+		PYXIS_update(window, form, &map->map_context, &map->map_wakeup_char);
+	desc2.dsc_dtype = dtype_cstring;
+	desc2.dsc_length = 256;
+	desc2.dsc_scale = 0;
+
+/* Return terminator, if appropriate */
+
+	if (n = map->map_terminator)
+		put_value(map, n - 1, output, map->map_wakeup_char);
+
+	if (!field)
+		map->map_wakeup_char = 0;
+
+/* Handle terminating field */
+
+	if (n = map->map_terminating_field) {
+		if (field)
+			desc2.dsc_address = (UCHAR *) GET_STRING(field, att_field_name);
+		else
+			desc2.dsc_address = (UCHAR *) "";
+		desc = map->map_rpt[n - 1].map_desc;
+		desc.dsc_address = output + (SLONG) desc.dsc_address;
+		MOVP_move(&desc2, &desc);
+	}
+
+/* Handle general output */
+
+	pyxis__fetch(status, db_handle, tra_handle, map_handle, output);
+
+	return SUCCESS;
+}
+
+
+pyxis__drive_menu(window_handle, menu_handle, blr_length, blr_source,
+				  title_length, title, terminator, entree_length, entree_text,
+				  entree_value)
+	 WIN *window_handle;
+	 MENU *menu_handle;
+	 USHORT *blr_length;
+	 SCHAR *blr_source;
+	 USHORT *title_length;
+	 TEXT *title;
+	 USHORT *terminator;
+	 USHORT *entree_length;
+	 TEXT *entree_text;
+	 SLONG *entree_value;
+{
+/**************************************
+ *
+ *	p y x i s _ $ d r i v e _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build then drive a dynamic menu.
+ *
+ **************************************/
+	WIN window;
+	MENU menu;
+	OBJ object, entree;
+	USHORT x, i, horizontal, transparent;
+	SCHAR *p, c;
+	TEXT *fp, *tp, title_buffer[81];
+
+	if (!(window = *window_handle))
+		*window_handle = window = PYXIS_create_window(80, 24);
+
+	if (!(menu = *menu_handle)) {
+		pyxis__initialize_menu(menu_handle);
+		menu = *menu_handle;
+	}
+
+	object = menu->menu_object;
+
+	p = blr_source;
+	c = BLR_BYTE;
+
+	if (c != PYXIS__MENU_VERSION1) {
+		error(0, "unsupported map version %d", c);
+		return NULL;
+	}
+
+	while ((c = BLR_BYTE) != PYXIS__MENU_END)
+		switch (c) {
+		case PYXIS__MENU_OPAQUE:
+			menu->menu_flags &= ~MENU_transparent;
+			break;
+
+		case PYXIS__MENU_TRANSPARENT:
+			menu->menu_flags |= MENU_transparent;
+			break;
+
+		case PYXIS__MENU_HORIZONTAL:
+			object->obj_flags |= OBJ_menu_horizontal;
+			break;
+
+		case PYXIS__MENU_VERTICAL:
+			object->obj_flags &= ~OBJ_menu_horizontal;
+			break;
+
+		default:
+			error(0, "invalid menu");
+			return;
+		}
+
+	for (i = *title_length, fp = title, tp = title_buffer; i > 0;
+		 i--, fp++, tp++)
+		*tp = *fp;
+	*tp = '\0';
+
+	horizontal = object->obj_flags & OBJ_menu_horizontal;
+	transparent = menu->menu_flags & MENU_transparent;
+	PYXIS_format_menu(object, title_buffer, horizontal);
+
+	if (!horizontal) {
+		x = (window->win_width - GET_VALUE(object, att_width)) / 2;
+		PYXIS_position(object, x, 1);
+	}
+
+	if (horizontal)
+		PYXIS_push_tag(window, object);
+	else
+		PYXIS_push_form(window, object, !transparent);
+
+	entree = PYXIS_drive_menu(window, object, terminator);
+
+	PYXIS_pop_form(window);
+
+	if (!entree) {
+		*entree_length = 0;
+		*entree_value = 0;
+	}
+	else {
+		strcpy(entree_text, GET_STRING(entree, att_literal_string));
+		*entree_length = (USHORT) strlen(entree_text);
+		*entree_value = GET_VALUE(entree, att_entree_value);
+	}
+
+}
+
+
+pyxis__fetch(status, db_handle, tra_handle, map_handle, output)
+	 STATUS *status;
+	 SLONG **db_handle, *tra_handle;
+	 MAP *map_handle;
+	 UCHAR *output;
+{
+/**************************************
+ *
+ *	p y x i s _ $ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy data from a form (or subform).
+ *
+ **************************************/
+	MAP map;
+	DSC desc;
+	OBJ form, field;
+	USHORT source;
+	SSHORT n;
+	struct map_repeat *tail, *end;
+
+	map = *map_handle;
+
+/* Find parent */
+
+	if (form = map->map_parent) {
+		desc = map->map_rpt[map->map_item_index - 1].map_desc;
+		desc.dsc_address = output + (SLONG) desc.dsc_address;
+		n = MOVP_get_long(&desc, 0);
+		if (!(form = PYXIS_find_index(map->map_parent, n))) {
+			put_value(map, map->map_item_index - 1, output, 0);
+			return;
+		}
+	}
+	else
+		form = map->map_form;
+
+	end = map->map_rpt + map->map_count;
+
+/* Handle general output */
+
+	for (tail = map->map_rpt; tail < end; tail++)
+		if (tail->map_field_flags & MAP_options) {
+			if (!(field = find_field(map, form, tail)))
+				continue;
+			desc = tail->map_desc;
+			desc.dsc_address = output + (SLONG) desc.dsc_address;
+			if (desc.dsc_dtype == dtype_blob)
+				source = get_blob(field, &desc, db_handle, tra_handle);
+			else
+				source = get_field_value(map->map_window, form, field, &desc);
+			put_value(map, tail->map_option, output, source);
+		}
+
+	return SUCCESS;
+}
+
+
+pyxis__get_entree(menu_handle, entree_length, entree_text, entree_value,
+				  entree_end)
+	 MENU *menu_handle;
+	 USHORT *entree_length;
+	 TEXT *entree_text;
+	 SLONG *entree_value;
+	 USHORT *entree_end;
+{
+/**************************************
+ *
+ *	p y x i s _ $ g e t _ e n t r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next entree in a dynamic menu
+ *
+ **************************************/
+	MENU menu;
+	OBJ entree_object;
+
+	if (!(menu = *menu_handle)) {
+		*entree_end = TRUE;
+		return;
+	}
+
+	menu->menu_current_entree =
+		PYXIS_find_object(menu->menu_object, menu->menu_current_entree,
+						  att_entree, TRUE);
+
+	if (!menu->menu_current_entree) {
+		*entree_value = 0;
+		*entree_length = 0;
+		*entree_end = TRUE;
+	}
+	else {
+		entree_object = (OBJ) menu->menu_current_entree->att_value;
+		strcpy(entree_text, GET_STRING(entree_object, att_literal_string));
+		*entree_length = (USHORT) strlen(entree_text);
+		*entree_value = GET_VALUE(entree_object, att_entree_value);
+		*entree_end = FALSE;
+	}
+
+}
+
+
+pyxis__initialize_menu(menu_handle)
+	 MENU *menu_handle;
+{
+/**************************************
+ *
+ *	p y x i s _ $ i n i t i a l i z e _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create or reinitialize a menu object
+ *
+ **************************************/
+	MENU menu;
+
+	if (!PYXIS_permanent_pool)
+		PYXIS_init();
+
+	if (menu = *menu_handle) {
+		PYXIS_delete_object(menu->menu_object);
+		menu->menu_flags = 0;
+		menu->menu_current_entree = (ATT) NULL;
+	}
+	else
+		menu = (MENU) ALLOCP(type_menu);
+
+	menu->menu_object = PYXIS_create_object(0, 0);
+	*menu_handle = menu;
+
+}
+
+
+pyxis__insert(status, db_handle, tra_handle, map_handle, input)
+	 STATUS *status;
+	 SLONG **db_handle, *tra_handle;
+	 MAP *map_handle;
+	 UCHAR *input;
+{
+/**************************************
+ *
+ *	p y x i s _ $ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy data to a form (or sub-form).
+ *
+ **************************************/
+	MAP map;
+	DSC desc;
+	OBJ form, field;
+	ATT attribute;
+	SSHORT n, max_index;
+	struct map_repeat *tail, *end;
+
+	map = *map_handle;
+
+/* Find parent */
+
+	if (form = map->map_parent) {
+		for (attribute = NULL, max_index = 0;
+			 attribute = PYXIS_find_object(form, attribute, att_field, TRUE);) {
+			n = GET_VALUE(attribute->att_value, att_index);
+			max_index = MAX(n, max_index);
+		}
+		attribute =
+			PYXIS_replicate_prototype(form, map->map_prototype,
+									  max_index + 1);
+		form = (OBJ) attribute->att_value;
+	}
+	else
+		form = map->map_form;
+
+	end = map->map_rpt + map->map_count;
+	PYXIS_set_field_options(form, "all", PYXIS_updatable | PYXIS_wakeup,
+							PYXIS_clear);
+
+/* If there is an input record, initialize form */
+
+	for (tail = map->map_rpt; tail < end; tail++)
+		if (tail->map_field_flags & MAP_options) {
+			desc = map->map_rpt[tail->map_option].map_desc;
+			desc.dsc_address = input + (SLONG) desc.dsc_address;
+			n = MOVP_get_long(&desc, 0);
+			if (tail->map_field && tail->map_name) {
+				propogate_options(tail, n);
+/*             continue; */
+			}
+			if (!(field = find_field(map, form, tail)))
+				continue;
+			if (n & PYXIS__OPT_DISPLAY) {
+				desc = tail->map_desc;
+				desc.dsc_address = input + (SLONG) desc.dsc_address;
+				if (desc.dsc_dtype == dtype_blob)
+					put_blob(field, &desc, db_handle, tra_handle);
+				else
+					PYXIS_put_desc(field, &desc);
+				PYXIS_set_field_options(field, 0, PYXIS_update_present,
+										PYXIS_clear);
+			}
+			if (n & PYXIS__OPT_POSITION) {
+				while (map->map_context)
+					LLS_POP(&map->map_context);
+				for (attribute = NULL;
+					 attribute =
+					 PYXIS_find_object(form, attribute, att_field, TRUE);)
+					if ((OBJ) attribute->att_value == field) {
+						LLS_PUSH(attribute, &map->map_context);
+						break;
+					}
+			}
+			if (n & PYXIS__OPT_UPDATE)
+				PYXIS_set_field_options(field, 0, PYXIS_updatable,
+										PYXIS_updatable);
+			if (n & PYXIS__OPT_WAKEUP)
+				PYXIS_set_field_options(field, 0, PYXIS_wakeup, PYXIS_wakeup);
+		}
+}
+
+
+pyxis__load_form(status, db, trans, form, length, name)
+	 STATUS *status;
+	 SLONG *db, *trans, *form;
+	 SSHORT *length;
+	 SCHAR *name;
+{
+/**************************************
+ *
+ *	p y x i s _ $ l o a d _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Load a form given an attach database 
+ *	and outstanding transaction.
+ *
+ **************************************/
+
+	return PYXIS_load_form(status, db, trans, form, length, name);
+}
+
+
+OBJ pyxis__menu(window_handle, menu_handle, length, source)
+	 WIN *window_handle;
+	 MENU *menu_handle;
+	 USHORT *length;
+	 TEXT *source;
+{
+/**************************************
+ *
+ *	p y x i s _ $ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build then drive a menu.
+ *
+ **************************************/
+	WIN window;
+	MENU menu;
+	OBJ object, entree;
+
+	if (!(window = *window_handle))
+		*window_handle = window = PYXIS_create_window(80, 24);
+
+	if (!(menu = *menu_handle))
+		menu = *menu_handle = par_menu(window, length, source);
+
+	object = menu->menu_object;
+
+	if (object->obj_flags & OBJ_menu_horizontal)
+		PYXIS_push_tag(window, object);
+	else
+		PYXIS_push_form(window, object,
+						(menu->menu_flags & MENU_transparent) ? FALSE : TRUE);
+
+	entree = PYXIS_menu(window, object);
+	PYXIS_pop_form(window);
+
+	if (!entree)
+		return 0;
+
+	return GET_OBJECT(entree, att_entree_value);
+}
+
+
+pyxis__menu_d(window_handle, menu_handle, length, source, object)
+	 WIN *window_handle;
+	 MENU *menu_handle;
+	 USHORT *length;
+	 TEXT *source;
+	 OBJ *object;
+{
+/**************************************
+ *
+ *	p y x i s _ $ m e n u _ d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Call pyxis__menu for COBOL which is a 
+ *	limited language and in some implementations
+ *	lacks the concept of 'function return value'
+ *
+ **************************************/
+	*object = pyxis__menu(window_handle, menu_handle, length, source);
+}
+
+
+pyxis__pop_window(window_handle)
+	 WIN *window_handle;
+{
+/**************************************
+ *
+ *	p y x i s _ $ p o p _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pop a form off the window stack.
+ *
+ **************************************/
+	WIN window;
+
+	if (window = *window_handle)
+		PYXIS_pop_form(window);
+}
+
+
+pyxis__put_entree(menu_handle, entree_length, entree_text, entree_value)
+	 MENU *menu_handle;
+	 USHORT *entree_length;
+	 TEXT *entree_text;
+	 SLONG *entree_value;
+{
+/**************************************
+ *
+ *	p y x i s _ $ p u t _ e n t r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add an entree to a dynamic menu
+ *
+ **************************************/
+	MENU menu;
+	OBJ object;
+	USHORT i;
+	TEXT *fp, *tp, entree_buffer[81];
+
+	if (!(menu = *menu_handle)) {
+		pyxis__initialize_menu(menu_handle);
+		menu = *menu_handle;
+	}
+
+	object = menu->menu_object;
+
+	for (i = *entree_length, fp = entree_text, tp = entree_buffer; i > 0;
+		 i--, fp++, tp++)
+		*tp = *fp;
+	*tp = '\0';
+
+	PYXIS_create_entree(object, entree_buffer, attype_numeric, *entree_value);
+
+}
+
+
+pyxis__reset_form(status, map_handle)
+	 STATUS *status;
+	 MAP *map_handle;
+{
+/**************************************
+ *
+ *	p y x i s _ $ r e s e t _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset a compiled form to a known state.
+ *
+ **************************************/
+	MAP map;
+	ATT attribute;
+
+	map = *map_handle;
+	PYXIS_scroll_reset(map->map_form);
+	map->map_wakeup_char = 0;
+
+	PYXIS_set_field_options(map->map_form, "all", PYXIS_reset,
+							PYXIS_fill_displayed);
+
+	for (attribute = NULL;
+		 attribute =
+		 PYXIS_find_object(map->map_form, attribute, att_field, TRUE);)
+		PYXIS_delete_named_attribute(attribute->att_value, att_current_index);
+
+	while (map->map_context)
+		LLS_POP(&map->map_context);
+}
+
+
+pyxis__suspend_window(window_handle)
+	 SLONG *window_handle;
+{
+/**************************************
+ *
+ *	p y x i s _ $ s u s p e n d _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Temporarily suspend a window.
+ *
+ **************************************/
+
+	if (*window_handle)
+		PYXIS_disable_window(*window_handle);
+}
+
+
+static error(STATUS * status, TEXT * text, ...)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Produce civilized error (eventually).
+ *
+ **************************************/
+	TEXT buffer[256];
+	va_list ptr;
+
+	VA_START(ptr, text);
+	vsprintf(buffer, text, ptr);
+	gds__put_error(buffer);
+}
+
+
+static OBJ find_field(map, form, tail)
+	 MAP map;
+	 OBJ form;
+	 struct map_repeat *tail;
+{
+/**************************************
+ *
+ *	f i n d _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Based on map information, locate a target field.
+ *
+ **************************************/
+	USHORT index;
+	OBJ field;
+
+/* If this is a simple field, things were easy */
+
+	if ((field = tail->map_field) && !tail->map_name)
+		return field;
+
+/* If this is a sub-map, look up the field */
+
+	if (!field)
+		return PYXIS_find_field(form, tail->map_name);
+
+/* This is a sub-item of a repeating group */
+
+	if (!(index = GET_VALUE(field, att_current_index)))
+		return NULL;
+
+	if (!(field = PYXIS_find_index(field, index)))
+		return NULL;
+
+	return PYXIS_find_field(field, tail->map_name);
+}
+
+
+static get_blob(form, desc, db_handle, tra_handle)
+	 OBJ form;
+	 DSC *desc;
+	 SLONG **db_handle;
+	 SLONG **tra_handle;
+{
+/**************************************
+ *
+ *	g e t _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	If blob has been changed, make a new one.
+ *
+ **************************************/
+	USHORT length, n, source;
+	TEXT *data, *p, buffer[1024];
+	ATT attribute;
+	OBJ field;
+	SLONG *blob_handle, *blob_id;
+	STATUS status_vector[20];
+
+	source = PYXIS__OPT_NULL;
+
+	if (!*db_handle || !*tra_handle)
+		return source;
+
+/* Determine whether there is any old data */
+
+	for (attribute = NULL;
+		 attribute = PYXIS_find_object(form, attribute, att_field, TRUE);) {
+		field = attribute->att_value;
+		if (GET_VALUE(field, att_data)) {
+			source = PYXIS__OPT_INITIAL;
+			break;
+		}
+	}
+
+	if (!attribute) {
+		blob_id = (SLONG *) desc->dsc_address;
+		blob_id[0] = blob_id[1] = 0;
+	}
+
+/* Determine whether there is any new data */
+
+	for (attribute = NULL;
+		 attribute = PYXIS_find_object(form, attribute, att_field, TRUE);) {
+		field = attribute->att_value;
+		if (GET_VALUE(field, att_update_data)) {
+			source = PYXIS__OPT_USER_DATA;
+			break;
+		}
+	}
+
+	if (!attribute)
+		return source;
+
+/* There is new data -- update blob */
+
+	blob_handle = NULL;
+
+	if (gds__create_blob(status_vector,
+						 GDS_VAL(db_handle),
+						 GDS_VAL(tra_handle),
+						 GDS_REF(blob_handle), GDS_VAL(desc->dsc_address))) {
+		gds__print_status(status_vector);
+		return PYXIS__OPT_NULL;
+	}
+
+	for (n = 1;; n++) {
+		if (!(field = PYXIS_find_index(form, n)))
+			break;
+		if (!(data = GET_STRING(field, att_update_data)) &&
+			!(data = GET_STRING(field, att_data)))
+			data = "";
+		for (p = buffer; *data;)
+			*p++ = *data++;
+		*p++ = '\n';
+		*p = 0;
+		length = p - buffer;
+		if (gds__put_segment(status_vector,
+							 GDS_REF(blob_handle), length, buffer)) break;
+	}
+
+	gds__close_blob(status_vector, GDS_REF(blob_handle));
+
+	return source;
+}
+
+
+static get_field_value(window, form, field, desc)
+	 WIN window;
+	 OBJ form, field;
+	 DSC *desc;
+{
+/**************************************
+ *
+ *	g e t _ f i e l d _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a value from a field, move it to a given
+ *	descriptor.  Return the source of the value.
+ *
+ **************************************/
+	DSC desc2;
+	OBJ error_object;
+	TEXT *error_string, *field_name, buffer[80];
+	USHORT source, c;
+
+	desc2.dsc_dtype = dtype_cstring;
+	desc2.dsc_length = 256;
+	desc2.dsc_scale = 0;
+
+	PYXIS_push_handler(unwind);
+
+	if (desc2.dsc_address = (UCHAR *) GET_STRING(field, att_update_data))
+		source = PYXIS__OPT_USER_DATA;
+	else if (desc2.dsc_address = (UCHAR *) GET_STRING(field, att_data))
+		source = PYXIS__OPT_INITIAL;
+	else if (desc2.dsc_address =
+			 (UCHAR *) GET_STRING(field, att_default_data)) source =
+			PYXIS__OPT_DEFAULT;
+	else if (desc2.dsc_address = (UCHAR *) GET_STRING(field, att_enumeration))
+		source = PYXIS__OPT_DEFAULT;
+	else {
+/*    desc2.dsc_address = " ";  */
+		source = PYXIS__OPT_NULL;
+		return source;
+	}
+
+/* if (source == PYXIS__OPT_INITIAL)
+    return source;
+*/
+
+	error_string = (TEXT *) setjmp(unwind_env);
+
+	if (error_string) {
+		PYXIS_set_field_options(form, "all", PYXIS_updatable | PYXIS_wakeup,
+								PYXIS_clear);
+		PYXIS_set_field_options(field, 0, PYXIS_updatable, PYXIS_updatable);
+		PYXIS_push_form(window, form);
+		if (!(field_name = GET_STRING(field, att_field_name)))
+			field_name = "(unnamed)";
+		sprintf(buffer, "*** %s for field %s ***", error_string, field_name);
+		error_object = PYXIS_create_object(buffer, att_literal_string);
+		PYXIS_push_tag(window, error_object);
+		PYXIS_get_data(window, field, att_update_data, form, &c);
+		PYXIS_pop_form(window);
+		PYXIS_pop_form(window);
+		if (desc2.dsc_address = (UCHAR *) GET_STRING(field, att_update_data))
+			source = PYXIS__OPT_USER_DATA;
+		else if (desc2.dsc_address = (UCHAR *) GET_STRING(field, att_data))
+			source = PYXIS__OPT_INITIAL;
+		else if (desc2.dsc_address =
+				 (UCHAR *) GET_STRING(field, att_default_data)) source =
+				PYXIS__OPT_DEFAULT;
+		else if (desc2.dsc_address =
+				 (UCHAR *) GET_STRING(field, att_enumeration)) source =
+				PYXIS__OPT_DEFAULT;
+		else {
+			source = PYXIS__OPT_NULL;
+			PYXIS_pop_handler();
+			return source;
+		}
+	}
+
+	MOVP_move(&desc2, desc);
+	PYXIS_pop_handler();
+
+	return source;
+}
+
+
+static MENU par_menu(window, length, source)
+	 WIN window;
+	 USHORT *length;
+	 SCHAR *source;
+{
+/**************************************
+ *
+ *	p a r _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a menu block.
+ *
+ **************************************/
+	USHORT value, n, x;
+	MENU menu;
+	OBJ object, entree;
+	USHORT flags, horizontal;
+	SCHAR *p, c;
+	TEXT *q, label[256], string[256];
+	struct menu_repeat *tail;
+
+	p = source;
+	c = BLR_BYTE;
+	object = PYXIS_create_object(0, 0);
+	label[0] = 0;
+	flags = horizontal = 0;
+
+	if (c != PYXIS__MENU_VERSION1) {
+		error(0, "unsupported map version %d", c);
+		return NULL;
+	}
+
+	while ((c = BLR_BYTE) != PYXIS__MENU_END)
+		switch (c) {
+		case PYXIS__MENU_LABEL:
+			q = label;
+			if (n = BLR_BYTE)
+				do
+					*q++ = BLR_BYTE;
+				while (--n);
+			*q = 0;
+			break;
+
+		case PYXIS__MENU_ENTREE:
+			value = BLR_BYTE;
+			q = string;
+			if (n = BLR_BYTE)
+				do
+					*q++ = BLR_BYTE;
+				while (--n);
+			*q = 0;
+			PYXIS_create_entree(object, string, attype_numeric, value);
+			break;
+
+		case PYXIS__MENU_OPAQUE:
+			break;
+
+		case PYXIS__MENU_TRANSPARENT:
+			flags |= MENU_transparent;
+			break;
+
+		case PYXIS__MENU_HORIZONTAL:
+			horizontal = TRUE;
+			break;
+
+		case PYXIS__MENU_VERTICAL:
+			break;
+
+		default:
+			error(0, "invalid menu");
+			return NULL;
+		}
+
+	menu = (MENU) ALLOCP(type_menu);
+	menu->menu_flags = flags;
+	menu->menu_object = object;
+	q = NULL;
+
+	if (label[0])
+		q = label;
+
+	if (horizontal) {
+		object->obj_flags |= OBJ_menu_horizontal;
+		PYXIS_format_menu(object, q, TRUE);
+	}
+	else {
+		PYXIS_format_menu(object, q, FALSE);
+		x = (window->win_width - GET_VALUE(object, att_width)) / 2;
+		PYXIS_position(object, x, 1);
+	}
+
+	return menu;
+}
+
+
+static MAP par_message(status, ptr)
+	 STATUS *status;
+	 TEXT **ptr;
+{
+/**************************************
+ *
+ *	p a r _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a message declaration, including operator byte.
+ *
+ **************************************/
+	USHORT n, dtype, alignment, offset;
+	TEXT *p;
+	DSC *desc;
+	MAP map;
+	struct map_repeat *tail, *end;
+
+/* Get message number, register it in the compile scratch block, and
+   allocate a node to represent the message */
+
+	p = *ptr;
+	BLR_BYTE;
+	n = BLR_WORD;
+	map = (MAP) ALLOCPV(type_map, n);
+	map->map_count = n;
+	offset = 0;
+
+/* Get the number of parameters in the message and prepare to fill
+   out the format block */
+
+	for (tail = map->map_rpt, end = tail + n; tail < end; ++tail) {
+		desc = &tail->map_desc;
+		alignment = 4;
+		switch (dtype = BLR_BYTE) {
+		case blr_text:
+			desc->dsc_dtype = dtype_text;
+			desc->dsc_length = BLR_WORD;
+			alignment = 0;
+			break;
+
+		case blr_cstring:
+			desc->dsc_dtype = dtype_cstring;
+			desc->dsc_length = BLR_WORD;
+			alignment = 0;
+			break;
+
+		case blr_varying:
+			desc->dsc_dtype = dtype_varying;
+			desc->dsc_length = BLR_WORD + 2;
+			alignment = 2;
+			break;
+
+		case blr_short:
+			desc->dsc_dtype = dtype_short;
+			desc->dsc_length = 2;
+			desc->dsc_scale = (SSHORT) BLR_BYTE;
+			alignment = 2;
+			break;
+
+		case blr_long:
+			desc->dsc_dtype = dtype_long;
+			desc->dsc_length = 4;
+			desc->dsc_scale = (SSHORT) BLR_BYTE;
+			break;
+
+		case blr_quad:
+			desc->dsc_dtype = dtype_quad;
+			desc->dsc_length = 8;
+			desc->dsc_scale = (SSHORT) BLR_BYTE;
+			break;
+
+		case blr_float:
+			desc->dsc_dtype = dtype_real;
+			desc->dsc_length = 4;
+			break;
+
+		case blr_timestamp:
+			desc->dsc_dtype = dtype_timestamp;
+			desc->dsc_length = 8;
+			break;
+
+		case blr_double:
+#ifndef VMS
+		case blr_d_float:
+#endif
+			desc->dsc_dtype = dtype_double;
+			desc->dsc_length = 8;
+			break;
+
+#ifdef VMS
+		case blr_d_float:
+			desc->dsc_dtype = dtype_d_float;
+			desc->dsc_length = 8;
+			break;
+#endif
+
+		case blr_blob_id:
+			desc->dsc_dtype = dtype_blob;
+			desc->dsc_length = 8;
+			desc->dsc_sub_type = BLR_WORD;
+			break;
+
+		case blr_sql_date:
+		case blr_sql_time:
+		default:
+			error(status, "datatype %d not supported", dtype);
+			return NULL;
+		}
+
+		if (alignment)
+			offset = FB_ALIGN(offset, alignment);
+		desc->dsc_address = (UCHAR *) offset;
+		offset += desc->dsc_length;
+	}
+
+	*ptr = p;
+
+	return map;
+}
+
+
+static par_word(ptr)
+	 TEXT **ptr;
+{
+/**************************************
+ *
+ *	p a r _ w o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a BLR word.
+ *
+ **************************************/
+	unsigned char low, high;
+
+	/*
+	 * Much magic here.  We are going to extract the
+	 * byte at each location by casting the pointer
+	 * to that location to an unsigned char.  We
+	 * assign the result to unsigned chars, so that
+	 * the sloppy return value (which is implicitly
+	 * casting everything to int) won't sign extend.
+	 */
+	low = *((unsigned char *) (*ptr));
+	(*ptr)++;
+	high = *((unsigned char *) (*ptr));
+	(*ptr)++;
+
+	return high << 8 | low;
+}
+
+
+static propogate_options(tail, options)
+	 struct map_repeat *tail;
+	 SLONG options;
+{
+/**************************************
+ *
+ *	p r o p o g a t e _ o p t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Propogate options of a named field 
+ *      to all elements of a repeating group.
+ *
+ **************************************/
+	OBJ form, item, field;
+	TEXT *name;
+	ATT attribute;
+
+	form = tail->map_field;
+	name = tail->map_name;
+
+	for (attribute = NULL;
+		 attribute = PYXIS_find_object(form, attribute, att_any, 0);)
+		if (attribute->att_name == att_prototype
+			|| attribute->att_name == att_field) {
+			item = attribute->att_value;
+			if (field = PYXIS_find_field(item, name)) {
+				if (options & PYXIS__OPT_UPDATE)
+					PYXIS_set_field_options(field, 0, PYXIS_updatable,
+											PYXIS_updatable);
+				if (options & PYXIS__OPT_WAKEUP)
+					PYXIS_set_field_options(field, 0, PYXIS_wakeup,
+											PYXIS_wakeup);
+			}
+		}
+}
+
+
+static put_blob(field, desc, db_handle, tra_handle)
+	 OBJ field;
+	 DSC *desc;
+	 SLONG **db_handle;
+	 SLONG **tra_handle;
+{
+/**************************************
+ *
+ *	p u t _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy blob to form.
+ *
+ **************************************/
+	TEXT buffer[1024];
+	USHORT length, index;
+	OBJ prototype, segment;
+	SLONG *blob_handle;
+	STATUS status_vector[20];
+
+	PYXIS_purge_segments(field, 1);
+	prototype = GET_OBJECT(field, att_prototype);
+	blob_handle = NULL;
+
+	if (!*db_handle || !*tra_handle)
+		return FALSE;
+
+	if (gds__open_blob(status_vector,
+					   GDS_VAL(db_handle),
+					   GDS_VAL(tra_handle),
+					   GDS_REF(blob_handle), GDS_VAL(desc->dsc_address))) {
+		gds__print_status(status_vector);
+		return FALSE;
+	}
+
+	for (index = 1;; index++) {
+		if (gds__get_segment(status_vector,
+							 GDS_REF(blob_handle),
+							 GDS_REF(length), sizeof(buffer), buffer))
+			break;
+		buffer[length] = 0;
+		segment = PYXIS_clone(prototype);
+		REPLACE_ATTRIBUTE(segment, att_index, attype_numeric, index);
+		REPLACE_ATTRIBUTE(segment, att_display_y, attype_numeric, index - 1);
+		PYXIS_set_display_attribute(segment,
+									REPLACE_ATTRIBUTE(segment, att_data,
+													  attype_string, buffer));
+		PUT_ATTRIBUTE(field, att_field, attype_object, segment);
+	}
+
+	gds__close_blob(status_vector, GDS_REF(blob_handle));
+
+	return TRUE;
+}
+
+
+static put_value(map, slot, record, value)
+	 MAP map;
+	 USHORT slot;
+	 UCHAR *record;
+	 SLONG value;
+{
+/**************************************
+ *
+ *	p u t _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a value to a field in a record.
+ *
+ **************************************/
+	DSC desc, desc2;
+
+	desc = map->map_rpt[slot].map_desc;
+	desc.dsc_address = record + (SLONG) desc.dsc_address;
+
+	desc2.dsc_dtype = dtype_long;
+	desc2.dsc_length = sizeof(SLONG);
+	desc2.dsc_scale = 0;
+	desc2.dsc_address = (UCHAR *) & value;
+
+	MOVP_move(&desc2, &desc);
+}
+
+
+static unwind(error_string)
+	 TEXT *error_string;
+{
+/**************************************
+ *
+ *	u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind the current call to a given environment.
+ *
+ **************************************/
+
+	strcpy(error_buffer, error_string);
+	longjmp(unwind_env, (int) error_buffer);
+}
diff --git a/src/pyxis/pyxis.cpp b/src/pyxis/pyxis.cpp
new file mode 100644
index 0000000000..f42ee186ef
--- /dev/null
+++ b/src/pyxis/pyxis.cpp
@@ -0,0 +1,2272 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		pyxis.c
+ *	DESCRIPTION:	External entrypoints
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <ctype.h>
+#define PYXIS_SOURCE
+#include "../pyxis/pyxis.h"
+
+#define BLKCHK(block, type)	if (((BLK) block)->blk_type != (SCHAR)type) PYXIS_bugcheck ("bad block");
+#define ABS(n)			((n >= 0) ? n : -n)
+
+OBJ PYXIS_get_attribute_value();
+
+static WIN PYXIS_window;
+static LLS PYXIS_handlers;
+
+ATT PYXIS_get_attribute(), PYXIS_put_attribute(),
+PYXIS_replace_attribute(), PYXIS_find_object(), PYXIS_navigate();
+
+OBJ PYXIS_create_object();
+
+static cleanup();
+
+
+PYXIS_bugcheck(string)
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	P Y X I S _ b u g c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've got internal error.
+ *
+ **************************************/
+
+	fprintf(stderr, "PYXIS bugcheck: %s\n", string);
+	exit(FINI_ERROR);
+}
+
+
+OBJ PYXIS_clone(object)
+	 OBJ object;
+{
+/**************************************
+ *
+ *	P Y X I S _ c l o n e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clone an object.
+ *
+ **************************************/
+	OBJ clone;
+	ATT attribute, new;
+	BLK value;
+
+	clone = PYXIS_create_object(0, 0);
+
+	for (attribute = object->obj_attributes; attribute;
+		 attribute = attribute->att_next) {
+		value = (BLK) attribute->att_value;
+		if (attribute->att_type == attype_object)
+			value = (BLK) PYXIS_clone(value);
+		new =
+			PUT_ATTRIBUTE(clone, attribute->att_name, attribute->att_type,
+						  value);
+		if (attribute == object->obj_display_attribute)
+			PYXIS_set_display_attribute(clone, new);
+	}
+
+	clone->obj_rel_x = object->obj_rel_x;
+	clone->obj_rel_y = object->obj_rel_y;
+	clone->obj_scroll_x = object->obj_scroll_x;
+	clone->obj_scroll_y = object->obj_scroll_y;
+	clone->obj_border = object->obj_border;
+	clone->obj_width = object->obj_width;
+	clone->obj_height = object->obj_height;
+	clone->obj_index = object->obj_index;
+	clone->obj_flags = object->obj_flags;
+
+	return clone;
+}
+
+
+PYXIS_compute_size(object, width_ptr, height_ptr)
+	 OBJ object;
+	 USHORT *width_ptr, *height_ptr;
+{
+/**************************************
+ *
+ *	P Y X I S _ c o m p u t e _ s i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the displayed size of an object, include sub-objects.
+ *
+ **************************************/
+	OBJ sub;
+	ATT attribute;
+	USHORT max_width, max_height, width, height;
+
+/* Start with the size of the object. */
+
+	max_width = object->obj_width;
+	max_height = object->obj_height;
+
+	if (object->obj_display_attribute && !max_height)
+		max_height = 1;
+
+/* Compute the sizes of the various children */
+
+	for (attribute = NULL;
+		 attribute = PYXIS_find_object(object, attribute, att_any, TRUE);) {
+		sub = attribute->att_value;
+		PYXIS_compute_size(sub, &width, &height);
+		width += sub->obj_rel_x;
+		height += sub->obj_rel_y;
+		max_width = MAX(width, max_width);
+		max_height = MAX(height, max_height);
+	}
+
+	*width_ptr = max_width;
+	*height_ptr = max_height;
+}
+
+
+OBJ PYXIS_create_object(string, name)
+	 TEXT *string;
+	 ATT_N name;
+{
+/**************************************
+ *
+ *	P Y X I S _ c r e a t e _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create object of given type.  If a string is passed,
+ *	add the string as an attribute and set the display
+ *	length.
+ *
+ **************************************/
+	OBJ object;
+	ATT attribute;
+
+	if (!PYXIS_permanent_pool)
+		PYXIS_init();
+
+	object = (OBJ) ALLOCP(type_obj);
+
+	if (string) {
+		attribute = PUT_ATTRIBUTE(object, name, attype_string, string);
+		PYXIS_set_display_attribute(object, attribute);
+		PUT_ATTRIBUTE(object, att_width, attype_numeric,
+					  attribute->att_length);
+	}
+
+	return object;
+}
+
+
+WIN PYXIS_create_window(width, height)
+	 USHORT width, height;
+{
+/**************************************
+ *
+ *	P Y X I S _ c r e a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a window for a form.  PYXIS_create_window does
+ *	not display anything, however.
+ *
+ **************************************/
+	WIN window;
+
+	if (!PYXIS_permanent_pool)
+		PYXIS_init();
+
+	window = (WIN) ALLOCP(type_win);
+	window->win_width = width;
+	window->win_height = height;
+	window->win_form = PYXIS_create_object(0, 0);
+
+	if (SCR_create_window(window))
+		return NULL;
+
+	PUT_ATTRIBUTE(window->win_form, att_width, attype_numeric,
+				  window->win_width);
+	PUT_ATTRIBUTE(window->win_form, att_height, attype_numeric,
+				  window->win_height);
+
+	return window;
+}
+
+
+PYXIS_delete_attribute(object, attribute)
+	 OBJ object;
+	 ATT attribute;
+{
+/**************************************
+ *
+ *	P Y X I S _ d e l e t e _ a t t r i b u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a known attribute from an object.
+ *
+ **************************************/
+	ATT next, prior;
+
+	BLKCHK(object, type_obj);
+	BLKCHK(attribute, type_att);
+
+	clear_change(object);
+	object->obj_flags |= OBJ_changed;
+
+	if (object->obj_display_attribute == attribute)
+		object->obj_display_attribute = NULL;
+
+	if (prior = attribute->att_prior)
+		if (next = prior->att_next = attribute->att_next)
+			next->att_prior = prior;
+		else
+			object->obj_end_attributes = prior;
+	else if (next = object->obj_attributes = attribute->att_next)
+		next->att_prior = NULL;
+	else
+		object->obj_end_attributes = NULL;
+
+	if (attribute->att_type == attype_object)
+		PYXIS_delete_object(attribute->att_value);
+
+	PYXIS_release(attribute);
+}
+
+
+PYXIS_delete_named_attribute(object, name)
+	 OBJ object;
+	 ATT_N name;
+{
+/**************************************
+ *
+ *	P Y X I S _ d e l e t e _ n a m e d _ a t t r i b u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete all instances of a particular attribute.
+ *
+ **************************************/
+	ATT attribute;
+
+	if (reset_attribute(object, name))
+		return;
+
+	while (attribute = GET_ATTRIBUTE(object, name))
+		PYXIS_delete_attribute(object, attribute);
+}
+
+
+PYXIS_delete_object(object)
+	 OBJ object;
+{
+/**************************************
+ *
+ *	P Y X I S _ d e l e t e _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Decrement the use count of an object.  If it does to zero,
+ *	delete object.
+ *
+ **************************************/
+	ATT attribute;
+
+	BLKCHK(object, type_obj);
+
+	if (--object->obj_reference_count)
+		return;
+
+	while (attribute = object->obj_attributes)
+		PYXIS_delete_attribute(object, attribute);
+
+	PYXIS_release(object);
+}
+
+
+PYXIS_delete_window(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	P Y X I S _ d e l e t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown.
+ *
+ **************************************/
+	FILE *file;
+
+	if (file = (FILE *) window->win_trace_in)
+		fclose(file);
+
+	if (file = (FILE *) window->win_trace_out)
+		fclose(file);
+
+	SCR_fini(window);
+}
+
+
+PYXIS_disable_window(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	P Y X I S _ d i s a b l e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disable window display.
+ *
+ **************************************/
+
+	SCR_disable(window);
+}
+
+
+PYXIS_error(string)
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	P Y X I S _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've got a user error.
+ *
+ **************************************/
+	int (*handler) ();
+
+	if (PYXIS_handlers) {
+		handler = (int (*)()) PYXIS_handlers->lls_object;
+		return (*handler) (string);
+	}
+
+	fprintf(stderr, "PYXIS error: %s\n", string);
+}
+
+
+ATT PYXIS_find_enumeration(parent, attribute, direction)
+	 OBJ parent;
+	 ATT attribute;
+	 USHORT direction;
+{
+/**************************************
+ *
+ *	P Y X I S _ f i n d _ e n u m e r a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find next or prior enumeration attribute.
+ *
+ **************************************/
+/*OBJ	object;*/
+
+	if (direction) {
+		while (attribute =
+			   (attribute) ? attribute->
+			   att_next : parent->obj_attributes) if (attribute->att_name ==
+													  att_enumeration) return
+					attribute;
+	}
+	else
+		while (attribute =
+			   (attribute) ? attribute->
+			   att_prior : parent->obj_end_attributes) if (attribute->
+														   att_name ==
+														   att_enumeration)
+					return attribute;
+
+	return NULL;
+}
+
+
+
+ATT PYXIS_find_object(parent, attribute, name, direction)
+	 OBJ parent;
+	 ATT attribute;
+	 ATT_N name;
+	 USHORT direction;
+{
+/**************************************
+ *
+ *	P Y X I S _ f i n d _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find next object valued attribute of given name.
+ *
+ **************************************/
+	OBJ object;
+
+	if (direction) {
+		while (attribute = (attribute) ? attribute->att_next : parent->obj_attributes) 
+			if ((name == attribute->att_name || name == att_any) &&
+			    attribute->att_type == attype_object && 
+                (object = attribute->att_value) &&
+			    !(object->obj_flags & OBJ_inactive))
+				return attribute;
+	}
+	else
+		while (attribute = (attribute) ? attribute-> att_prior : parent->obj_end_attributes) 
+			if ((name == attribute->att_name || name == att_any) &&
+			    attribute->att_type == attype_object && 
+		        (object = attribute->att_value) && 
+                !(object->obj_flags & OBJ_inactive))
+				return attribute;
+
+	return NULL;
+}
+
+
+PYXIS_fini()
+{
+/**************************************
+ *
+ *	P Y X I S _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown.
+ *
+ **************************************/
+
+	PYXIS_alloc_fini();
+}
+
+
+PYXIS_format_form(form, width, height)
+	 OBJ form;
+	 USHORT width, height;
+{
+/**************************************
+ *
+ *	P Y X I S _ f o r m a t _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide a default format for a form.  If nothing is floating,
+ *	nothing is done.  If, however, something doesn't fit, all
+ *	bets are off.
+ *
+ **************************************/
+	ATT attr;
+	OBJ object;
+	SSHORT x, y;
+	USHORT length, x_margin, y_margin, label_length, field_length, count,
+		delta_y, n;
+
+	label_length = field_length = count = 0;
+	delta_y = 1;
+	y = y_margin = 2;
+	x = x_margin = 3;
+
+/* Compute the max length of the various label */
+
+	for (attr = form->obj_attributes; attr; attr = attr->att_next)
+		if (attr->att_type == attype_object && (object = attr->att_value))
+			switch (attr->att_name) {
+			case att_label:
+			case att_literal_string:
+				label_length = MAX(label_length, object->obj_width);
+				++count;
+				break;
+
+			case att_field:
+				field_length = MAX(field_length, object->obj_width);
+				if (n = GET_VALUE(object, att_height))
+					count += n;
+				break;
+			}
+
+/* Based on sizes and counts, pick single or double spacing */
+
+	x_margin = width / 2 - (label_length + 1);
+	if (count * 2 + y_margin + 1 < height)
+		delta_y = 2;
+
+/* Make a second pass the form objects assigning locations */
+
+	y = 1 - delta_y;
+	x = 0;
+
+	for (attr = form->obj_attributes; attr; attr = attr->att_next)
+		if (attr->att_type == attype_object &&
+			(object = attr->att_value) && (length = object->obj_width))
+			switch (attr->att_name) {
+			case att_label:
+			case att_literal_string:
+				x = label_length - object->obj_width;
+				y += delta_y;
+				PYXIS_position(object, x, y);
+				x = label_length + 2;
+				break;
+
+			case att_field:
+				PYXIS_position(object, x, y);
+				x += field_length + 1;
+				if (n = GET_VALUE(object, att_height))
+					y += n;
+				break;
+			}
+
+	if (object = GET_OBJECT(form, att_tag))
+		REPLACE_ATTRIBUTE(object, att_display_y, attype_numeric, height - 1);
+}
+
+
+
+ATT PYXIS_get_attribute(object, name)
+	 OBJ object;
+	 ATT_N name;
+{
+/**************************************
+ *
+ *	P Y X I S _ g e t _ a t t r i b u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get first attribute of known name.  If no attribute of
+ *	that name is found, or the type is wrong, return NULL.
+ *
+ **************************************/
+	ATT attribute;
+
+	for (attribute = object->obj_attributes; attribute;
+		 attribute = attribute->att_next) if (attribute->att_name == name)
+			return attribute;
+
+	return NULL;
+}
+
+
+OBJ PYXIS_get_attribute_value(object, name)
+	 OBJ object;
+	 ATT_N name;
+{
+/**************************************
+ *
+ *	P Y X I S _ g e t _ a t t r i b u t e _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the value of an attribute.  If the attribute doesn't
+ *	exist or is of wrong type, return NULL.
+ *
+ **************************************/
+	SLONG bit;
+	ATT attribute;
+
+/* If the requested attribute is one that is maintained in the object block, this
+   whole process is a lot SSHORTer */
+
+	switch (name) {
+	case att_display_x:
+		return (OBJ) object->obj_rel_x;
+	case att_display_y:
+		return (OBJ) object->obj_rel_y;
+	case att_scroll_x:
+		return (OBJ) object->obj_scroll_x;
+	case att_scroll_y:
+		return (OBJ) object->obj_scroll_y;
+	case att_width:
+		return (OBJ) object->obj_width;
+	case att_height:
+		return (OBJ) object->obj_height;
+	case att_border:
+		return (OBJ) object->obj_border;
+	case att_index:
+		return (OBJ) object->obj_index;
+
+	case att_inactive:
+		bit = OBJ_inactive;
+		break;
+	case att_reverse_video:
+		bit = OBJ_reverse_video;
+		break;
+	case att_bold:
+		bit = OBJ_bold;
+		break;
+	case att_underline:
+		bit = OBJ_underline;
+		break;
+	case att_box:
+		bit = OBJ_box;
+		break;
+	case att_blank:
+		bit = OBJ_blank;
+		break;
+	case att_insert_right:
+		bit = OBJ_insert_right;
+		break;
+	case att_updatable_flag:
+		bit = OBJ_updatable_flag;
+		break;
+	case att_wakeup_flag:
+		bit = OBJ_wakeup_flag;
+		break;
+	case att_reverse_for_update:
+		bit = OBJ_reverse_for_update;
+		break;
+
+	default:
+		if (!(attribute = PYXIS_get_attribute(object, name)))
+			return NULL;
+		return attribute->att_value;
+	}
+
+	return (OBJ) ((object->obj_flags & bit) ? TRUE : FALSE);
+}
+
+
+PYXIS_get_char(window, object, x_offset, y_offset)
+	 WIN window;
+	 OBJ object;
+	 int x_offset, y_offset;
+{
+/**************************************
+ *
+ *	P Y X I S _ g e t _ c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a character from the window.
+ *
+ **************************************/
+	SSHORT c;
+	FILE *file;
+
+	if (object)
+		auto_scroll(object, x_offset, y_offset);
+
+	PYXIS_update_window(window, object, x_offset, y_offset);
+
+	if (file = (FILE *) window->win_trace_in)
+		c = getc(file);
+	else
+		for (;;) {
+			c = SCR_getchar(window, object, x_offset, y_offset);
+			if (c == 18)
+				SCR_refresh_window(window, object, x_offset, y_offset);
+#ifdef DEBUG
+			else if (c == 16)
+				PYXIS_print(window->win_form, 0);
+#endif
+			else
+				break;
+		}
+
+	if (file = (FILE *) window->win_trace_out)
+		putc(c, file);
+
+	return c;
+}
+
+
+PYXIS_get_data(window, object, name, form, term_char)
+	 WIN window;
+	 OBJ object;
+	 ATT_N name;
+	 OBJ form;
+	 USHORT *term_char;
+{
+/**************************************
+ *
+ *	P Y X I S _ g e t _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get data attribute from keyboard.  Return length of string
+ *	stored, zero if nothing happened.  In either case return the
+ *	terminating character.
+ *
+ **************************************/
+	ATT old_display, temp_data, attribute;
+	USHORT length, upcase, max_length;
+	TEXT buffer[256], *p, *end;
+	SSHORT c, edit_mode, overstrike_mode, insert_right, modified_flag;
+
+	if (GET_VALUE(object, att_enumeration))
+		return get_enumerated(window, object, name, form, term_char);
+
+	upcase = GET_VALUE(object, att_upcase);
+	old_display = object->obj_display_attribute;
+
+	if (p = GET_STRING(object, att_update_data))
+		strcpy(buffer, p);
+	else if (p = GET_STRING(object, att_data))
+		strcpy(buffer, p);
+	else if (p = GET_STRING(object, att_default_data))
+		strcpy(buffer, p);
+	else
+		buffer[0] = 0;
+
+	max_length = object->obj_width;
+
+/* Trim leading spaces from right justified data.  */
+
+	insert_right = object->obj_flags & OBJ_insert_right;
+
+	if (insert_right) {
+		for (p = buffer; *p; p++)
+			if (!isspace(*p))
+				break;
+		if (*p)
+			strcpy(buffer, p);
+		p = &buffer[strlen(buffer)];
+	}
+	else
+		p = buffer;
+
+	length = strlen(buffer);
+	edit_mode = FALSE;
+	overstrike_mode = FALSE;
+	modified_flag = FALSE;
+
+	while (TRUE) {
+		object->obj_display_attribute = temp_data =
+			REPLACE_ATTRIBUTE(object, att_temp_data, attype_string, buffer);
+
+		switch (c = PYXIS_get_char(window, object,
+								   (insert_right) ? (max_length -
+													 strlen(p)) : (p -
+																   buffer),
+								   0)) {
+		case C_PF1:
+		case C_PF2:
+		case C_PF3:
+		case C_PF4:
+		case C_PF5:
+		case C_PF6:
+		case C_PF7:
+		case C_PF8:
+		case C_PF9:
+		case C_ENTER:
+		case C_EOF:
+		case '\n':
+		case '\t':
+		case C_SCROLL_TOP:
+		case C_SCROLL_BOTTOM:
+			goto exit;
+
+		case C_UP:				/* ignore vertical mouse movement in edit mode */
+		case C_DOWN:
+			if (edit_mode && (window->win_flags & WIN_synthesized))
+				break;
+			goto exit;
+
+		case C_GOTO_START:		/* go to start of field. */
+			if (!edit_mode)
+				break;
+			if (window->win_flags & WIN_synthesized)
+				break;
+			p = buffer;
+			break;
+
+		case C_GOTO_END:		/* go to end of field. */
+			if (!edit_mode)
+				break;
+			if (window->win_flags & WIN_synthesized)
+				break;
+			p = &buffer[length];
+			break;
+
+		case C_INSERT_OVERSTRIKE:	/* start edit mode and toggle insert/overstrike mode. */
+			edit_mode = TRUE;
+			overstrike_mode = !overstrike_mode;
+			break;
+
+		case C_EDIT:			/* start or terminate edit mode */
+			edit_mode = !edit_mode;
+			if (insert_right)
+				p = &buffer[length];
+			else
+				p = buffer;
+			break;
+
+		case C_RIGHT:			/* move one character to the right. */
+			if (!edit_mode)
+				goto exit;
+			if (!*p)
+				break;
+			p++;
+			break;
+
+		case C_LEFT:			/* move one character to the left. */
+			if (!edit_mode)
+				goto exit;
+			if (p == buffer)
+				break;
+			p--;
+			break;
+
+		case C_DELETE:			/* delete character to the left of the cursor */
+			if (!edit_mode)
+				goto exit;
+			modified_flag = TRUE;
+			if (p == buffer)
+				break;
+			if (overstrike_mode)
+				p[-1] = ' ';
+			else {
+				strcpy(&p[-1], p);
+				length--;
+			}
+			p--;
+			break;
+
+		case C_DELETE_NEXT:	/* delete the character to the right of the cursor */
+			if (!edit_mode)
+				break;
+			modified_flag = TRUE;
+			if (*p == 0)
+				break;
+			strcpy(p, &p[1]);
+			length--;
+			break;
+
+		case C_ERASE:			/* start edit mode and clear the entire field.  */
+
+		  erase_field:
+			edit_mode = TRUE;
+			modified_flag = TRUE;
+			p = buffer;
+			*p = 0;
+			length = 0;
+			break;
+
+		default:
+
+/* start edit mode and enter the new character, if there is room and it is printable. */
+
+			modified_flag = TRUE;
+
+/* if we have not explicitly entered edit mode, erase the field before entering this character */
+
+			if (!edit_mode) {
+				PYXIS_return_char(window, c);
+				goto erase_field;
+			}
+
+			if (!isprint(c))
+				break;
+
+/* if the field is full, ring a bell to warn the user and discard the character.  */
+
+			if ((length == max_length) && (!overstrike_mode || (!*p))) {
+				fprintf(stderr, "\07");
+				break;
+			}
+
+			edit_mode = TRUE;
+			if (upcase)
+				c = UPPER(c);
+			if ((!overstrike_mode) || (!*p)) {
+
+/*  Make room for new char.  Can't use strcpy due to overlapping buffers. */
+
+				for (end = &buffer[length]; end >= p; end--)
+					end[1] = *end;
+				length++;
+			}
+			*p++ = c;
+			break;
+		}
+	}
+
+  exit:
+
+	if (modified_flag)
+		old_display = REPLACE_ATTRIBUTE(object, name, attype_string, buffer);
+	else
+		length = 0;
+
+	*term_char = c;
+	object->obj_display_attribute = old_display;
+	PYXIS_delete_attribute(object, temp_data);
+
+	return length;
+}
+
+
+OBJ PYXIS_get_value(attribute)
+	 ATT attribute;
+{
+/**************************************
+ *
+ *	P Y X I S _ g e t _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the value of an attribute.  This is not used internally, since the
+ *	information is readily available from the attribute block.  Externally,
+ *	however, the attribute block is not available.
+ *
+ **************************************/
+
+	return attribute->att_value;
+}
+
+
+SCHAR *PYXIS_get_keyname(window, key_code)
+	 WIN window;
+	 UCHAR key_code;
+{
+/**************************************
+ *
+ *	P Y X I S _ g e t _ k e y n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the name of the key(s) which correspond to the
+ *	given keycode for this window (keyboard).  Return the string.
+ *
+ **************************************/
+
+	KNM knm_p;
+
+	knm_p = window->win_keyname_table;
+	while (knm_p->knm_keycode && knm_p->knm_keycode != key_code)
+		knm_p++;
+
+	return knm_p->knm_keyname;
+}
+
+
+PYXIS_init()
+{
+/**************************************
+ *
+ *	P Y X I S _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the form system if not already initialized.
+ *
+ **************************************/
+
+	if (!PYXIS_permanent_pool) {
+		gds__register_cleanup(cleanup, 0);
+		PYXIS_alloc_init();
+	}
+}
+
+
+PYXIS_move(form, object)
+	 OBJ form, object;
+{
+/**************************************
+ *
+ *	P Y X I S _ m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move an object to a new location.
+ *
+ **************************************/
+	ATT next, prior, attribute;
+	OBJ object2;
+
+/* Start by finding and removing object from it's parent */
+
+	for (attribute = form->obj_attributes; attribute;
+		 attribute = attribute->att_next)
+			if (attribute->att_type == attype_object &&
+				attribute->att_value == object)
+			break;
+
+	if (!attribute)
+		return;
+
+/* Indicate form needs refreshing */
+
+	form->obj_flags |= OBJ_changed;
+
+/* Special case single attribute */
+
+	if (form->obj_attributes == form->obj_end_attributes &&
+		form->obj_attributes == attribute)
+		return;
+
+/* Splice attribute out of list */
+
+	if (next = attribute->att_next)
+		next->att_prior = attribute->att_prior;
+	else
+		form->obj_end_attributes = attribute->att_prior;
+
+	if (prior = attribute->att_prior)
+		prior->att_next = attribute->att_next;
+	else
+		form->obj_attributes = attribute->att_next;
+
+/* Find new home and re-insert */
+
+	for (next = form->obj_attributes; next; next = next->att_next)
+		if (next->att_type == attype_object) {
+			object2 = next->att_value;
+			if (object->obj_rel_y < object2->obj_rel_y ||
+				(object->obj_rel_y == object2->obj_rel_y &&
+				 object->obj_rel_x < object2->obj_rel_x)) {
+				attribute->att_next = next;
+				attribute->att_prior = prior = next->att_prior;
+				next->att_prior = attribute;
+				if (prior)
+					prior->att_next = attribute;
+				else
+					form->obj_attributes = attribute;
+				return;
+			}
+		}
+
+/* Must be last object */
+
+	if (prior = form->obj_end_attributes) {
+		prior->att_next = attribute;
+		attribute->att_prior = prior;
+		attribute->att_next = NULL;
+		form->obj_end_attributes = attribute;
+	}
+}
+
+
+ATT PYXIS_navigate(form, attribute, name, c)
+	 OBJ form;
+	 ATT attribute;
+	 ATT_N name;
+	 USHORT c;
+{
+/**************************************
+ *
+ *	P Y X I S _ n a v i g a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Use a character to navigate thru a form to find 
+ *	an object-valued attribute.
+ *
+ **************************************/
+	OBJ object, from_object, target, parent, parent2;
+	ATT next, best, attr;
+	LLS *temp, tempstk;
+	USHORT direction;
+	SSHORT x1, x2, a1, a2, y, y2, delta_x, delta_y, best_xy, xy;
+
+
+	if (c == C_DELETE || c == C_LEFT || c == C_UP)
+		direction = FALSE;
+	else
+		direction = TRUE;
+
+	from_object = attribute->att_value;
+
+/*if (GET_ATTRIBUTE (from_object, att_field))
+   {
+   tempstk = NULL;
+   temp = &tempstk;
+   do {
+      attr = (ATT) LLS_POP (context);
+      LLS_PUSH (attr, temp); 
+      } while (GET_ATTRIBUTE(attr->att_value, att_field));
+   from_object = attr->att_value;
+   do {
+      attr = (ATT) LLS_POP (temp);
+      LLS_PUSH (attr, context);
+      } while (tempstk);
+   }*/
+
+	switch (c) {
+	case '\n':
+	case '\t':
+	case C_DELETE:
+		if (!(from_object->obj_parent == form))
+			attribute = NULL;
+		return PYXIS_find_object(form, attribute, name, direction);
+	case C_UP:
+	case C_DOWN:
+	case C_RIGHT:
+	case C_LEFT:
+
+		/* Determine the common parent & the position 
+		   of the source field relative to common parent */
+
+		next = best = NULL;
+		parent2 = NULL;
+		y = x1 = 0;
+		best_xy = 32000;
+
+		for (parent = form; !parent2; parent = parent->obj_parent)
+			for (parent2 = from_object; parent2 = parent2->obj_parent;)
+				if (parent == parent2)
+					break;
+
+		for (object = from_object; object != parent2;
+			 object = object->obj_parent) {
+			y =
+				y + object->obj_rel_y + object->obj_border +
+				object->obj_scroll_y;
+			x1 =
+				x1 + object->obj_rel_x + object->obj_border +
+				object->obj_scroll_x;
+		}
+		x2 = x1 + from_object->obj_width;
+
+		while (next = PYXIS_find_object(form, next, name, direction))
+			if ((target = next->att_value) != from_object) {
+				a1 = y2 = 0;
+				for (object = target; object != parent2;
+					 object = object->obj_parent) {
+					a1 =
+						a1 + object->obj_rel_x + object->obj_border +
+						object->obj_scroll_x;
+					y2 =
+						y2 + object->obj_rel_y + object->obj_border +
+						object->obj_scroll_y;
+				}
+				a2 = a1 + target->obj_width;
+
+				if ((x1 >= a1 && x1 <= a2) || (x2 >= a1 && x2 <= a2) ||
+					(a1 >= x1 && a1 <= x2) || (a2 >= x1 && a2 <= x2))
+					delta_x = 0;	/* if target is "under" from_obj at all */
+				else
+					delta_x = (a1 > x2) ? a1 - x2 : a2 - x1;
+				delta_y = y2 - y;
+				switch (c) {
+				case C_UP:
+					if (delta_y >= 0)
+						continue;
+					xy = 5 * ABS(delta_x) - delta_y;
+					break;
+				case C_DOWN:
+					if (delta_y <= 0)
+						continue;
+					xy = 5 * ABS(delta_x) + delta_y;
+					break;
+				case C_RIGHT:
+					if (delta_x <= 0)
+						continue;
+					xy = 5 * ABS(delta_y) + delta_x;
+					break;
+				case C_LEFT:
+					if (delta_x >= 0)
+						continue;
+					xy = 5 * ABS(delta_y) - delta_x;
+					break;
+				}
+				if (xy < best_xy) {
+					best_xy = xy;
+					best = next;
+				}
+			}
+		return best;
+	}
+
+	return attribute;
+}
+
+
+PYXIS_pop_form(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	P Y X I S _ p o p _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pop a form off the window stack.  Return the form poped.
+ *
+ **************************************/
+	OBJ form, object;
+	ATT attribute;
+
+/* If there isn't a current form, just return NULL */
+
+	if (!
+		(attribute =
+		 PYXIS_find_object(window->win_form, 0, att_form,
+						   FALSE))) return NULL;
+
+/* Delete form from top level meta-form */
+
+	form = attribute->att_value;
+
+	if (form->obj_reference_count > 1) {
+		PYXIS_delete_attribute(window->win_form, attribute);
+		--form->obj_reference_count;
+	}
+	else
+		PYXIS_delete_attribute(window->win_form, attribute);
+
+/* If the exposed form was occluded, expose it and everything else */
+
+	if ((object = (OBJ) PYXIS_top_form(window)) && object->obj_occluded) {
+		SCR_clear_window(window);
+		for (attribute = NULL;
+			 attribute =
+			 PYXIS_find_object(window->win_form, attribute, att_form, TRUE);) {
+			object = attribute->att_value;
+			--object->obj_occluded;
+		}
+	}
+
+/*
+if (!object)
+    PYXIS_disable_window (window);
+*/
+
+	return (int) form;
+}
+
+
+PYXIS_pop_handler(handler)
+	 int (*handler) ();
+{
+/**************************************
+ *
+ *	P Y X I S _ p o p _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pop an error handler from the handler stack.
+ *
+ **************************************/
+
+	LLS_POP(&PYXIS_handlers);
+}
+
+
+PYXIS_position(object, x, y)
+	 OBJ object;
+	 USHORT x, y;
+{
+/**************************************
+ *
+ *	P Y X I S _ p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set x and y coordinates of an object.
+ *
+ **************************************/
+
+	REPLACE_ATTRIBUTE(object, att_display_x, attype_numeric, x);
+	REPLACE_ATTRIBUTE(object, att_display_y, attype_numeric, y);
+}
+
+
+PYXIS_push_form(window, form, occlude)
+	 WIN window;
+	 OBJ form;
+	 USHORT occlude;
+{
+/**************************************
+ *
+ *	P Y X I S _ p u s h _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Push a form on a window.  If the form is already on the
+ *	stack, move it to the top.
+ *
+ **************************************/
+	OBJ object;
+	ATT attribute;
+
+/* If we're top, don't worry much */
+
+	if ((attribute = PYXIS_find_object(window->win_form, 0, att_form, FALSE))
+		&& attribute->att_value == form)
+		return;
+
+	if (occlude) {
+		SCR_clear_window(window);
+		for (attribute = NULL;
+			 attribute =
+			 PYXIS_find_object(window->win_form, attribute, att_form, FALSE);) {
+			object = attribute->att_value;
+			clear_change(object);
+			++object->obj_occluded;
+		}
+	}
+
+/* Make sure we're not already somewhere */
+
+	if (attribute)
+		while (attribute =
+			   PYXIS_find_object(window->win_form, attribute, att_form,
+								 FALSE)) if (attribute->att_value == form) {
+				PYXIS_delete_attribute(form, attribute);	/*??amg _ (window->win_form, att)? */
+				--form->obj_reference_count;	/* but would form still exist for this operat? */
+				break;
+			}
+
+	++form->obj_reference_count;
+	form->obj_occluded = 0;
+	PUT_ATTRIBUTE(window->win_form, att_form, attype_object, form);
+}
+
+
+PYXIS_push_handler(handler)
+	 int (*handler) ();
+{
+/**************************************
+ *
+ *	P Y X I S _ p u s h _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Push an error handler on the handler stack.
+ *
+ **************************************/
+
+	LLS_PUSH(handler, &PYXIS_handlers);
+}
+
+
+PYXIS_push_tag(window, object)
+	 WIN window;
+	 OBJ object;
+{
+/**************************************
+ *
+ *	P Y X I S _ p u s h _ t a g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the position of an object to the tag line of a window.
+ *
+ **************************************/
+
+	PYXIS_position(object, 0, window->win_height - 1);
+	REPLACE_ATTRIBUTE(object, att_blank, attype_numeric, TRUE);
+	REPLACE_ATTRIBUTE(object, att_width, attype_numeric, window->win_width);
+	REPLACE_ATTRIBUTE(object, att_height, attype_numeric, 1);
+	PYXIS_push_form(window, object, FALSE);
+}
+
+
+
+ATT PYXIS_put_attribute(object, name, type, value)
+	 OBJ object;
+	 ATT_N name;
+	 ATT_T type;
+	 OBJ value;
+{
+/**************************************
+ *
+ *	P Y X I S _ p u t _ a t t r i b u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add an attribute to an existing object.  This does NOT replace
+ *	other attributes of the same name.  If the type is string, copy
+ *	the string.
+ *
+ **************************************/
+	USHORT length;
+	TEXT *p, *q;
+	ATT attribute, prior;
+
+	BLKCHK(object, type_obj);
+	object->obj_flags |= OBJ_changed;
+	clear_change(object);
+
+/* If the attribute is special cased, don't do anything else */
+
+	if (set_attribute(object, name, value))
+		return NULL;
+
+/* If value is an object, bump reference count */
+
+	if (type == attype_object) {
+		BLKCHK(value, type_obj);
+		PYXIS_reference(value);
+		value->obj_parent = object;
+	}
+
+/* Allocate new attribute block */
+
+	length = (type == attype_string) ? strlen(value) : 0;
+	attribute = (ATT) ALLOCPV(type_att, length);
+	attribute->att_type = type;
+	attribute->att_name = name;
+
+/* Link attribute into object at end */
+
+	if (prior = object->obj_end_attributes) {
+		attribute->att_prior = prior;
+		prior->att_next = attribute;
+		object->obj_end_attributes = attribute;
+	}
+	else
+		object->obj_attributes = object->obj_end_attributes = attribute;
+
+/* Unless attribute is a string, just set the value and return */
+
+	if (type != attype_string) {
+		attribute->att_value = value;
+		return attribute;
+	}
+
+/* Attribute is a string, sigh, and strings must be copied */
+
+	attribute->att_value = (OBJ) attribute->att_data;
+	MOVP_fast(value, attribute->att_value, length);
+	attribute->att_length = length;
+
+	return attribute;
+}
+
+
+PYXIS_reference(object)
+	 OBJ object;
+{
+/**************************************
+ *
+ *	P Y X I S _ r e f e r e n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Increment reference count for an object.
+ *
+ **************************************/
+
+	++object->obj_reference_count;
+}
+
+
+ATT PYXIS_replace_attribute(object, name, type, value)
+	 OBJ object;
+	 ATT_N name;
+	 ATT_T type;
+	 OBJ value;
+{
+/**************************************
+ *
+ *	P Y X I S _ r e p l a c e _ a t t r i b u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add an attribute to an existing object.  If the object already
+ *	exists, replace it.
+ *
+ **************************************/
+	ATT attribute;
+	USHORT display, length;
+
+	BLKCHK(object, type_obj);
+	object->obj_flags |= OBJ_changed;
+	clear_change(object);
+
+/* Handle special cased attributes */
+
+	if (set_attribute(object, name, value))
+		return NULL;
+
+	if (type == attype_object) {
+		BLKCHK(value, type_obj);
+		value->obj_parent = object;
+	}
+
+	display = FALSE;
+
+	if (attribute = PYXIS_get_attribute(object, name)) {
+		if (attribute->att_type == attype_numeric &&
+			attribute->att_value == value) return attribute;
+		if (type != attype_string) {
+			if (value == attribute->att_value)
+				return attribute;
+			if (type == attype_object) {
+				PYXIS_reference(value);
+				PYXIS_delete_object(attribute->att_value);
+			}
+			attribute->att_value = value;
+			return attribute;
+		}
+		length = strlen(value);
+		if (length <= attribute->att_length) {
+			strcpy(attribute->att_data, value);
+			attribute->att_length = length;
+			return attribute;
+		}
+		if (object->obj_display_attribute == attribute)
+			display = TRUE;
+		PYXIS_delete_attribute(object, attribute);
+	}
+
+	attribute = PYXIS_put_attribute(object, name, type, value);
+
+	if (display)
+		PYXIS_set_display_attribute(object, attribute);
+
+	return attribute;
+}
+
+
+PYXIS_return_char(window, character)
+	 WIN window;
+	 USHORT character;
+{
+/**************************************
+ *
+ *	P Y X I S _ r e t u r n _ c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Register a character to be faked on next call
+ *	to PYXIS_get_char.
+ *
+ **************************************/
+
+	window->win_pending_char = character;
+}
+
+
+PYXIS_scroll_reset(object)
+	 OBJ object;
+{
+/**************************************
+ *
+ *	P Y X I S _ s c r o l l _ r e s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Starting from an arbitrary spot in a complex
+ *	object, reset scrolling to non-scrolled state.
+ *
+ **************************************/
+	ATT attribute;
+
+	if (object->obj_scroll_x)
+		REPLACE_ATTRIBUTE(object, att_scroll_x, attype_numeric, 0);
+
+	if (object->obj_scroll_y)
+		REPLACE_ATTRIBUTE(object, att_scroll_y, attype_numeric, 0);
+
+	for (attribute = NULL;
+		 attribute = PYXIS_find_object(object, attribute, att_any, TRUE);)
+		PYXIS_scroll_reset(attribute->att_value);
+}
+
+
+PYXIS_set_display_attribute(object, attribute)
+	 OBJ object;
+	 ATT attribute;
+{
+/**************************************
+ *
+ *	P Y X I S _ s e t _ d i s p l a y _ a t t r i b u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the display attribute to an object.
+ *
+ **************************************/
+
+	BLKCHK(object, type_obj);
+
+	if (attribute)
+		BLKCHK(attribute, type_att);
+
+	object->obj_display_attribute = attribute;
+	object->obj_flags |= OBJ_changed;
+}
+
+
+PYXIS_top_form(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	P Y X I S _ t o p _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find the top form in window.
+ *
+ **************************************/
+	ATT attribute;
+
+	if (attribute = PYXIS_find_object(window->win_form, 0, att_form, FALSE))
+		return (int) attribute->att_value;
+
+	return NULL;
+}
+
+
+PYXIS_trace_in(window, name)
+	 WIN window;
+	 SCHAR *name;
+{
+/**************************************
+ *
+ *	P Y X I S _ t r a c e _ i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up to receive input from a file rather than
+ *	from the user hitting keys at a terminal!
+ *
+ **************************************/
+	TEXT buffer[64];
+	FILE *file;
+
+	if (file = (FILE *) window->win_trace_in)
+		fclose(file);
+
+	if (!(file = fopen(name, "r"))) {
+		sprintf(buffer, "%s.pyx", name);
+		if (!(file = fopen(buffer, "r")))
+			return FALSE;
+	}
+	window->win_trace_in = (int *) file;
+	return TRUE;
+}
+
+
+PYXIS_trace_out(window, name)
+	 WIN window;
+	 SCHAR *name;
+{
+/**************************************
+ *
+ *	P Y X I S _ t r a c e _ o u t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Log all keyed input to a file.
+ *
+ **************************************/
+	FILE *file;
+
+	if (file = (FILE *) window->win_trace_out)
+		fclose(file);
+
+	if (!(file = fopen(name, "w")))
+		return FALSE;
+
+	window->win_trace_out = (int *) file;
+	return TRUE;
+}
+
+
+PYXIS_update_window(window, object, x_offset, y_offset)
+	 WIN window;
+	 OBJ object;
+	 int x_offset, y_offset;
+{
+/**************************************
+ *
+ *	P Y X I S _ u p d a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update a window.  Leave the cursor pointing at the given object plus
+ *	a given offset.
+ *
+ **************************************/
+
+	SCR_update_window(window, object, x_offset, y_offset);
+	PYXIS_window = window;
+}
+
+
+static auto_scroll(object, x_offset, y_offset)
+	 OBJ object;
+	 int x_offset, y_offset;
+{
+/**************************************
+ *
+ *	a u t o _ s c r o l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Automatically scroll stuff to make object visible
+ *	(if possible, of course).
+ *
+ **************************************/
+	SSHORT x, y, length, end, width, height, delta_x, delta_y, border;
+	OBJ parent;
+
+/* Get current coordinates relative to parent */
+
+	x = object->obj_rel_x + object->obj_scroll_x;
+	y = object->obj_rel_y + object->obj_scroll_y;
+	length = object->obj_width;
+	end = x + length;
+
+/* Make everything fit */
+
+	while (parent = object->obj_parent) {
+		delta_x = delta_y = 0;
+		border = 2 * parent->obj_border;
+		if (width = GET_VALUE(parent, att_width))
+			width -= border;
+		if (height = GET_VALUE(parent, att_height))
+			height -= border;
+
+		/* See if horizontal scrolling is required to make object visible */
+
+		if (x < 0)
+			delta_x = -x;
+		else if (width && end > width)
+			delta_x = (length < width) ? width - end : -x;
+
+		/* Check vertical scrolling */
+
+		if (y < 0)
+			delta_y = -y;
+		else if (height && y >= height)
+			delta_y = height - y - 1;
+
+		/* Check if to see if object is visible if scrolling is cancelled */
+
+		if (x - object->obj_scroll_x >= 0 &&
+			end - object->obj_scroll_x < width)
+				delta_x = -object->obj_scroll_x;
+
+		y -= object->obj_scroll_y;
+		if (y >= 0 && y < height)
+			delta_y = -object->obj_scroll_y;
+
+		if (delta_x || delta_y)
+			scroll(parent, TRUE, delta_x, delta_y);
+
+		x = parent->obj_rel_x + parent->obj_scroll_x + parent->obj_border +
+			object->obj_rel_x + object->obj_scroll_x + object->obj_border;
+		y = parent->obj_rel_y + parent->obj_scroll_y + parent->obj_border +
+			object->obj_rel_y + object->obj_scroll_y + object->obj_border;
+		if (!width)
+			width = length;
+		end = x + MIN(width, length);
+		object = parent;
+	}
+}
+
+
+static cleanup()
+{
+/**************************************
+ *
+ *	c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Exit handler for image exit.
+ *
+ **************************************/
+
+	PYXIS_permanent_pool = NULL;
+	PYXIS_handlers = NULL;
+}
+
+
+
+static clear_change(object)
+	 OBJ object;
+{
+/**************************************
+ *
+ *	c l e a r _ c h a n g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	An object is being modified.  If it is currently displayed,
+ *	clear it.
+ *
+ **************************************/
+
+	if (!(object->obj_flags & OBJ_displayed) ||
+		!PYXIS_window || !related(PYXIS_window->win_form, object))
+		return;
+
+	SCR_clear_object(PYXIS_window, object);
+}
+
+
+static get_enumerated(window, object, name, form, term_char)
+	 WIN window;
+	 OBJ object;
+	 ATT_N name;
+	 OBJ form;
+	 USHORT *term_char;
+{
+/**************************************
+ *
+ *	g e t _ e n u m e r a t e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get one of several enumerated values.
+ *
+ **************************************/
+	ATT old_display, temp_data;
+	USHORT length, offset, upcase;
+	TEXT buffer[256], *p, *q;
+	ATT attribute, temp;
+	SSHORT c, change;
+
+	upcase = GET_VALUE(object, att_upcase);
+	old_display = object->obj_display_attribute;
+	attribute = PYXIS_find_enumeration(object, 0, TRUE);
+	change = FALSE;
+
+/* Find starting value */
+
+	if (!(p = GET_STRING(object, att_update_data)) &&
+		!(p = GET_STRING(object, att_data)))
+			p = (TEXT *) attribute->att_value;
+
+
+	temp_data = REPLACE_ATTRIBUTE(object, att_temp_data, attype_string, p);
+	PYXIS_set_display_attribute(object, temp_data);
+
+	p = buffer;
+	*p = 0;
+
+	for (;;) {
+		offset = p - buffer;
+		switch (c = PYXIS_get_char(window, object, offset, 0)) {
+		case '\n':
+			if (offset)
+				goto exit;
+			change = TRUE;
+			while (!
+				   (attribute =
+					PYXIS_find_enumeration(object, attribute, TRUE)));
+			break;
+
+		case C_DELETE:
+			if (p == buffer) {
+				change = TRUE;
+				while (!
+					   (attribute =
+						PYXIS_find_enumeration(object, attribute, FALSE)));
+			}
+			else
+				*--p = 0;
+			break;
+
+		case C_UP:
+		case C_DOWN:
+		case C_RIGHT:
+		case C_LEFT:
+		case C_PF1:
+		case C_PF2:
+		case C_PF3:
+		case C_PF4:
+		case C_PF5:
+		case C_PF6:
+		case C_PF7:
+		case C_PF8:
+		case C_PF9:
+		case C_ENTER:
+		case C_EOF:
+		case C_SCROLL_TOP:
+		case C_SCROLL_BOTTOM:
+		case '\t':
+			goto exit;
+
+		default:
+			if (upcase)
+				c = UPPER(c);
+			*p++ = c;
+			*p = 0;
+			length = p - buffer;
+
+			/* Check remaining attributes */
+
+			for (temp = attribute; temp;
+				 temp = PYXIS_find_enumeration(object, temp, TRUE))
+				if (!strncmp(buffer, temp->att_value, length))
+					break;
+
+			/* Check preceding attributes */
+
+			if (!temp)
+				while (temp = PYXIS_find_enumeration(object, temp, TRUE))
+					if (!strncmp(buffer, temp->att_value, length))
+						break;
+
+			/* Still can't find it, start over with string */
+
+			if (!temp) {
+				p = buffer;
+				*p++ = c;
+				*p = 0;
+				for (temp = NULL;
+					 temp = PYXIS_find_enumeration(object, temp, TRUE);)
+					if (!(strncmp(buffer, temp->att_value, 1)))
+						break;
+			}
+
+			if (temp) {
+				change = TRUE;
+				attribute = temp;
+			}
+			else if (p > buffer)
+				*--p = 0;
+			break;
+		}
+		object->obj_display_attribute = temp_data =
+			REPLACE_ATTRIBUTE(object, att_temp_data, attype_string,
+							  attribute->att_value);
+	}
+
+  exit:
+
+	if (change)
+		old_display =
+			REPLACE_ATTRIBUTE(object, name, attype_string,
+							  attribute->att_value);
+
+	*term_char = c;
+	object->obj_display_attribute = old_display;
+	PYXIS_delete_attribute(object, temp_data);
+
+	return length;
+}
+
+
+static related(parent, object)
+	 OBJ parent, object;
+{
+/**************************************
+ *
+ *	r e l a t e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if two objects are related.
+ *
+ **************************************/
+	ATT attribute;
+
+	BLKCHK(parent, type_obj);
+	BLKCHK(object, type_obj);
+
+	if (parent == object)
+		return TRUE;
+
+	for (attribute = parent->obj_attributes; attribute;
+		 attribute = attribute->att_next)
+			if (attribute->att_type == attype_object &&
+				related(attribute->att_value, object))
+			return TRUE;
+
+	return FALSE;
+}
+
+
+static reset_attribute(object, name)
+	 OBJ object;
+	 ATT_N name;
+{
+/**************************************
+ *
+ *	r e s e t _ a t t r i b u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set an attribute.  This is used to catch hardcoded attributes.
+ *
+ **************************************/
+
+	switch (name) {
+	case att_inactive:
+		object->obj_flags &= ~OBJ_inactive;
+		break;
+
+	case att_reverse_video:
+		object->obj_flags &= ~OBJ_reverse_video;
+		break;
+
+	case att_bold:
+		object->obj_flags &= ~OBJ_bold;
+		break;
+
+	case att_underline:
+		object->obj_flags &= ~OBJ_underline;
+		break;
+
+	case att_box:
+		object->obj_flags &= ~OBJ_box;
+		break;
+
+	case att_blank:
+		object->obj_flags &= ~OBJ_blank;
+		break;
+
+	case att_insert_right:
+		object->obj_flags &= ~OBJ_insert_right;
+		break;
+
+	case att_updatable_flag:
+		object->obj_flags &= ~OBJ_updatable_flag;
+		break;
+
+	case att_wakeup_flag:
+		object->obj_flags &= ~OBJ_wakeup_flag;
+		break;
+
+	case att_reverse_for_update:
+		object->obj_flags &= ~OBJ_reverse_for_update;
+		break;
+
+	case att_display_x:
+		object->obj_rel_x = 0;
+		break;
+
+	case att_display_y:
+		object->obj_rel_y = 0;
+		break;
+
+	case att_scroll_x:
+		object->obj_scroll_x = 0;
+		break;
+
+	case att_scroll_y:
+		object->obj_scroll_y = 0;
+		break;
+
+	case att_border:
+		object->obj_border = 0;
+		break;
+
+	case att_width:
+		object->obj_width = 0;
+		break;
+
+	case att_height:
+		object->obj_height = 0;
+		break;
+
+	case att_index:
+		object->obj_index = 0;
+		break;
+
+	default:
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+static scroll(parent, relative, delta_x, delta_y)
+	 OBJ parent;
+	 USHORT relative;
+	 SSHORT delta_x, delta_y;
+{
+/**************************************
+ *
+ *	s c r o l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Scroll all objects with object.
+ *
+ **************************************/
+	ATT attribute;
+	OBJ object;
+	SSHORT n;
+
+	attribute = NULL;
+
+	while (attribute = PYXIS_find_object(parent, attribute, att_any, TRUE)) {
+		object = attribute->att_value;
+		if (relative) {
+			if (delta_x) {
+				n = delta_x + GET_VALUE(object, att_scroll_x);
+				REPLACE_ATTRIBUTE(object, att_scroll_x, attype_numeric, n);
+			}
+			if (delta_y) {
+				n = delta_y + GET_VALUE(object, att_scroll_y);
+				REPLACE_ATTRIBUTE(object, att_scroll_y, attype_numeric, n);
+			}
+		}
+		else {
+			REPLACE_ATTRIBUTE(object, att_scroll_x, attype_numeric, delta_x);
+			REPLACE_ATTRIBUTE(object, att_scroll_y, attype_numeric, delta_y);
+		}
+	}
+}
+
+
+
+static set_attribute(object, name, value)
+	 OBJ object;
+	 ATT_N name;
+	 int *value;
+{
+/**************************************
+ *
+ *	s e t _ a t t r i b u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set an attribute.  This is used to catch hardcoded attributes.
+ *	Return TRUE if attribute is handled, otherwise FALSE.
+ *
+ **************************************/
+	USHORT bit;
+
+	switch (name) {
+	case att_inactive:
+		bit = OBJ_inactive;
+		break;
+
+	case att_reverse_video:
+		bit = OBJ_reverse_video;
+		break;
+
+	case att_bold:
+		bit = OBJ_bold;
+		break;
+
+	case att_underline:
+		bit = OBJ_underline;
+		break;
+
+	case att_box:
+		bit = OBJ_box;
+		break;
+
+	case att_blank:
+		bit = OBJ_blank;
+		break;
+
+	case att_insert_right:
+		bit = OBJ_insert_right;
+		break;
+
+	case att_reverse_for_update:
+		bit = OBJ_reverse_for_update;
+		break;
+
+	case att_updatable_flag:
+		bit = OBJ_updatable_flag;
+		break;
+
+	case att_wakeup_flag:
+		bit = OBJ_wakeup_flag;
+		break;
+
+	case att_display_x:
+		object->obj_rel_x = (SSHORT) value;
+		return TRUE;
+
+	case att_display_y:
+		object->obj_rel_y = (SSHORT) value;
+		return TRUE;
+
+	case att_scroll_x:
+		object->obj_scroll_x = (SSHORT) value;
+		return TRUE;
+
+	case att_scroll_y:
+		object->obj_scroll_y = (SSHORT) value;
+		return TRUE;
+
+	case att_border:
+		object->obj_border = (USHORT) value;
+		return TRUE;
+
+	case att_width:
+		object->obj_width = (USHORT) value;
+		return TRUE;
+
+	case att_height:
+		object->obj_height = (USHORT) value;
+		return TRUE;
+
+	case att_index:
+		object->obj_index = (USHORT) value;
+		return TRUE;
+
+	default:
+		return FALSE;
+	}
+
+/* Handle bit encode attributes */
+
+	if (value)
+		object->obj_flags |= bit;
+	else
+		object->obj_flags &= ~bit;
+
+	return TRUE;
+}
diff --git a/src/pyxis/pyxis.h b/src/pyxis/pyxis.h
new file mode 100644
index 0000000000..24b3705c47
--- /dev/null
+++ b/src/pyxis/pyxis.h
@@ -0,0 +1,253 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		pyxis.h
+ *	DESCRIPTION:	General header module
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _PYXIS_PYXIS_H_
+#define _PYXIS_PYXIS_H_
+
+#include "../jrd/common.h"
+#include "../pyxis/keys.h"
+#include "../pyxis/phase1.h"
+
+#define ALLOCD(type)		PYXIS_alloc (PYXIS_default_pool, type)
+#define ALLOCDV(type,repeat)	PYXIS_alloc (PYXIS_default_pool, type, repeat)
+#define ALLOCP(type)		PYXIS_alloc (PYXIS_permanent_pool, type)
+#define ALLOCPV(type,repeat)	PYXIS_alloc (PYXIS_permanent_pool, type, repeat)
+#define IBERROR(string)		PYXIS_error (string)
+#define BUGCHECK(string)	PYXIS_bugcheck (string)
+
+#define GET_VALUE(obj, att)	(SLONG) PYXIS_get_attribute_value (obj, att)
+#define GET_STRING(obj, att)	(TEXT*) PYXIS_get_attribute_value (obj, att)
+#define GET_OBJECT(obj, att)	PYXIS_get_attribute_value (obj, att)
+#define GET_ATTRIBUTE(obj, att)	PYXIS_get_attribute (obj, att)
+#define REPLACE_ATTRIBUTE	PYXIS_replace_attribute
+#define PUT_ATTRIBUTE		PYXIS_put_attribute
+#define SET_DISPLAY		PYXIS_set_display
+
+/**
+**#define DEBUG			1
+**/
+
+#define BLKDEF(type, root, tail) type,
+enum blk_t
+    {
+    type_MIN = 0,
+#include "../pyxis/blk.h"
+    type_MAX
+    };
+#undef BLKDEF
+
+/* Block types */
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+typedef struct vec {
+    struct blk	vec_header;
+    ULONG	vec_count;
+    struct blk	*vec_object[1];
+} *VEC;
+
+#define LLS_PUSH(object, stack)		PYXIS_push (object, stack)
+#define LLS_POP(stack)			PYXIS_pop (stack)
+
+typedef struct lls {
+    struct blk	lls_header;
+    struct blk	*lls_object;
+    struct lls	*lls_next;
+} *LLS;
+
+/* Attribute block names, types, and block */
+
+typedef struct att {
+    struct blk	att_header;
+    struct att	*att_next;		/* next attribute in object */
+    struct att	*att_prior;		/* prior attribute in object */
+    ATT_T	att_type;		/* attribute type */
+    ATT_N	att_name;		/* attribute name */
+    struct p_obj	*att_value;
+    USHORT	att_length;		/* Allocated length for string */
+    UCHAR	att_data[2];		/* room for data */
+} *ATT;
+
+/* Menus */
+
+typedef struct menx {
+    UCHAR	*menx_string; 
+    USHORT 	menx_entree;
+} *MENX;
+
+typedef struct p_obj {
+    struct blk	obj_header;
+    struct p_obj	*obj_parent;
+    USHORT	obj_reference_count;
+    ATT		obj_attributes;		/* list of attributes */
+    ATT		obj_end_attributes;	/* end of attribute list */
+    ATT		obj_display_attribute;	/* attribute for display (if any) */
+    USHORT	obj_flags;		/* misc stuff */
+    SSHORT	obj_x;			/* absolute position */
+    SSHORT	obj_y;			/* absoute  position */
+    SSHORT	obj_scroll_x;		/* scrolled delta */
+    SSHORT	obj_scroll_y;		/* scrolled delta */
+    SSHORT	obj_rel_x;		/* relative position */
+    SSHORT	obj_rel_y;		/* relative position */
+    USHORT	obj_width;		/* displayed width */
+    USHORT	obj_height;		/* displayed height */
+    USHORT	obj_occluded;
+    USHORT	*obj_display_address;
+    USHORT	obj_display_length;
+    USHORT	obj_display_height;
+    USHORT	obj_border;		/* Size of border, if any */
+    USHORT	obj_index;		/* Index in repeating group */
+} *OBJ;
+
+#define OBJ_changed		1		/* object has been updated */
+#define OBJ_displayed		2		/* object is currently displayed */
+#define OBJ_inactive		4		/* don't display object */
+#define OBJ_reverse_video	8		/* reverse video */
+#define OBJ_insert_right	16		/* (10) insert from right (numeric) */
+#define OBJ_bold		32		/* (20) field is bold */
+#define OBJ_underline		64		/* (40) field is underlined */
+#define OBJ_box			128		/* (80) draw box around object */
+#define OBJ_blank		256		/* (100) blank fill before drawing */
+#define OBJ_updatable_flag	512		/* (200) object may be updated*/
+#define OBJ_wakeup_flag		1024		/* (400) object will trigger wakeup*/
+#define OBJ_reverse_for_update	2048		/* (800) when updatable, set reverse video*/
+#define OBJ_menu_horizontal	4096		/* (1000) menu is horizontal*/
+
+
+/* Window definition */
+
+/*  Key names for special keys.  */
+
+typedef struct knm {
+    UCHAR	knm_keycode;
+    SCHAR	*knm_keyname;
+} *KNM;
+
+typedef struct win {
+    struct blk	win_header;		/* Block header */
+    struct win	*win_parent;		/* Parent window */
+    struct win	*win_sibling;		/* Next sibling window */
+    struct scr	*win_logical;		/* Logical screen */
+    struct scr	*win_physical;		/* Physical screen */
+    USHORT	win_flags;
+    USHORT	win_x;
+    USHORT	win_y;
+    USHORT	win_width;
+    USHORT	win_height;
+    USHORT	win_pending_char;	/* "returned" character */
+    OBJ		win_form;
+    int		*win_input;
+    int		*win_output;
+    int 	*win_trace_in;
+    int 	*win_trace_out;
+    int		win_current_x;
+    int		win_current_y;
+    int		win_current_mode;
+    int		(*win_clear)();
+    int		(*win_disable)();
+    int		(*win_fini)();
+    int		(*win_getchar)();
+    int		(*win_text)();
+    int		(*win_update)();
+    KNM		win_keyname_table;
+} *WIN;
+
+#define WIN_disabled	1		/* Forms are diabled */
+#define WIN_reset_80	2		/* Reset 80 column mode at end */
+#define WIN_synthesized	4		/* Input char was synthesized from mouse movement */
+#define WIN_sensitive	8		/* Mouse movement is sensitive */
+
+/* Program wide globals */
+
+#ifdef PYXIS_SOURCE
+struct plb	*PYXIS_default_pool = 0;
+struct plb	*PYXIS_permanent_pool = 0;
+#else
+#ifndef FRED_SOURCE
+extern struct plb	*PYXIS_default_pool;
+extern struct plb	*PYXIS_permanent_pool;
+#endif
+#endif
+
+/* Descriptor format */
+
+#include "../jrd/dsc.h"
+
+/* Picture string handling block */
+
+#include "../qli/format.h"
+
+/* Phase 3 record <-> form map */
+
+typedef struct map {
+    struct blk	map_header;
+    WIN		map_window;		/* Active window */
+    OBJ		map_form;		/* Associated form */
+    OBJ		map_parent;		/* Repeating group parent object */
+    OBJ		map_prototype;		/* Prototype for sub-form */
+    USHORT	map_count;		/* Number of items */
+    USHORT	map_flags;		/* Misc flags */
+    USHORT	map_terminator;		/* Field to receive terminator */
+    USHORT	map_terminating_field;	/* Field to receive field name */
+    USHORT	map_item_index;		/* Field to receive item index */
+    LLS		map_context;		/* Context to restart operation */
+    USHORT	map_wakeup_char;	/* Wakeup character */
+    struct map_repeat
+    {
+    DSC		map_desc;		/* Descriptor */
+    OBJ		map_field;		/* Corresponding form field */
+    TEXT	*map_name;		/* Field name */
+    USHORT	map_option;		/* Slot for options (if any) */
+    USHORT	map_field_flags;	/* Misc crud */
+    }		map_rpt [1];
+} *MAP;
+
+#define MAP_options		1
+#define MAP_display		2
+#define MAP_update		4
+#define MAP_transparent		8
+#define MAP_tag			16
+
+/* Menu block */
+
+typedef struct menu {
+    struct blk	menu_header;
+    OBJ		menu_object;
+    USHORT	menu_flags;
+    ATT		menu_current_entree;	/* current entree in dynamic menu */
+} *MENU;
+
+/* #define MENU_horizontal		1  moved to object block */
+#define MENU_transparent	2
+
+/* Random string block -- jack of all kludges */
+
+typedef struct str {
+    struct blk	str_header;
+    USHORT	str_length;
+    SCHAR	str_data[2];
+} *STR;
+
+#endif /* _PYXIS_PYXIS_H_ */
diff --git a/src/pyxis/save.e b/src/pyxis/save.e
new file mode 100644
index 0000000000..abf9f6d465
--- /dev/null
+++ b/src/pyxis/save.e
@@ -0,0 +1,1015 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		save.e
+ *	DESCRIPTION:	Form dump/load code.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/gds.h"
+#include "../pyxis/pyxis.h"
+
+#define HANDLES		10
+#define PYXIS_RELATION	"PYXIS$FORMS"
+#define BUF_LEN       256
+
+extern PIC PICSTR_analyze();
+extern OBJ PYXIS_create_object(), PYXIS_clone(), PYXIS_get_attribute_value();
+extern ATT PYXIS_get_attribute(), PYXIS_put_attribute(), PYXIS_find_object();
+
+DATABASE DB = STATIC "yachts.lnk";
+
+static SCHAR ddl[] = {
+#include "../pyxis/form_ddl.h"
+	, 0
+};
+
+static ATT_N special_attributes[] = {
+	att_display_x,
+	att_display_y,
+	/*
+	   att_scroll_x,
+	   att_scroll_y,
+	 */
+	att_width,
+	att_height,
+	att_border,
+	att_index,
+	att_inactive,
+	att_reverse_video,
+	att_bold,
+	att_underline,
+	att_box,
+	att_blank,
+	att_insert_right,
+	att_updatable_flag,
+	att_wakeup_flag,
+	att_reverse_for_update,
+	att_any
+};
+
+
+
+PYXIS_define_forms_relation(dbb)
+	 SLONG **dbb;
+{
+/**************************************
+ *
+ *	P Y X I S _ d e f i n e _ f o r m s _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for existence of PYXIS$FORMS relation.  If it doesn't
+ *	exist, create it.
+ *
+ **************************************/
+	SLONG *transaction, *handle, success;
+	STATUS status_vector[20];
+
+	DB = *dbb;
+	transaction = handle = NULL;
+	success = FALSE;
+
+	START_TRANSACTION transaction READ_WRITE;
+
+	FOR(REQUEST_HANDLE handle TRANSACTION_HANDLE transaction)
+		X IN RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ "PYXIS$FORMS"
+			success = TRUE;
+	END_FOR;
+
+	gds__release_request(status_vector, GDS_REF(handle));
+
+	if (!success && gds__ddl(status_vector,
+							 GDS_REF(DB),
+							 GDS_REF(transaction), sizeof(ddl), ddl)) {
+		gds__print_status(status_vector);
+		success = FALSE;
+		ROLLBACK transaction;
+		return FALSE;
+	}
+
+	COMMIT transaction;
+
+	return success;
+}
+
+
+OBJ PYXIS_delete_form(dbb, transaction, form_name)
+	 SLONG **dbb, **transaction;
+	 TEXT *form_name;
+{
+/**************************************
+ *
+ *	P Y X I S _ d e l e t e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a form from a database.
+ *
+ **************************************/
+	int *handle;
+
+	DB = *dbb;
+	gds__trans = *transaction;
+	handle = NULL;
+
+	FOR(REQUEST_HANDLE handle)
+		X IN PYXIS$FORMS WITH X.PYXIS$FORM_NAME EQ form_name 
+        ERASE X;
+	END_FOR;
+
+	gds__release_request(gds__status, GDS_REF(handle));
+
+	return NULL;
+}
+
+
+PYXIS_dump(object, ptr)
+	 OBJ object;
+	 TEXT **ptr;
+{
+/**************************************
+ *
+ *	P Y X I S _ d u m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump an object into linear form.  Assume space is large
+ *	enough.
+ *
+ **************************************/
+	ATT attribute;
+	ATT_N *attr_ptr, name;
+	SLONG value;
+	TEXT *p, c;
+
+	p = *ptr;
+
+/* Start by handling ordinary attributes */
+
+	for (attribute = object->obj_attributes; attribute;
+		 attribute = attribute->att_next) {
+		if (attribute->att_type == attype_other)
+			continue;
+		sprintf(p, "%d", attribute->att_name);
+		while (*p)
+			p++;
+		switch (attribute->att_type) {
+		case attype_string:
+			c = (attribute == object->obj_display_attribute) ? 'D' : 'S';
+			sprintf(p, "%c`%s`", c, attribute->att_value);
+			while (*p)
+				p++;
+			break;
+
+		case attype_numeric:
+			sprintf(p, "N%d.", attribute->att_value);
+			while (*p)
+				p++;
+			break;
+
+		case attype_object:
+			*p++ = 'O';
+			PYXIS_dump(attribute->att_value, &p);
+			break;
+
+		default:
+			BUGCHECK("DUMP:Unknown attribute type");
+		}
+	}
+
+/* Next, handle special attributes */
+
+	for (attr_ptr = special_attributes; *attr_ptr != att_any; attr_ptr++)
+		if (value = GET_VALUE(object, *attr_ptr)) {
+			sprintf(p, "%dN%d.", *attr_ptr, value);
+			while (*p)
+				p++;
+		}
+
+/* Finish up */
+
+	*p++ = 'E';
+	*ptr = p;
+}
+
+
+PYXIS_dump_length(object)
+	 OBJ object;
+{
+/**************************************
+ *
+ *	P Y X I S _ d u m p _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute length of object when dumped.
+ *
+ **************************************/
+	ATT attribute;
+	ATT_N *attr_ptr;
+	TEXT buffer[32];
+	USHORT n;
+	SLONG length;
+	SLONG value;
+
+	length = 1;
+
+	for (attribute = object->obj_attributes; attribute;
+		 attribute = attribute->att_next) {
+		if (attribute->att_type == attype_other)
+			continue;
+		sprintf(buffer, "%d", attribute->att_name);
+		length += strlen(buffer);
+		switch (attribute->att_type) {
+		case attype_string:
+			length += strlen(attribute->att_value) + 3;
+			break;
+
+		case attype_numeric:
+			sprintf(buffer, "N%d.", attribute->att_value);
+			length += strlen(buffer);
+			break;
+
+		case attype_object:
+			length += 1 + PYXIS_dump_length(attribute->att_value);
+			break;
+
+		default:
+			BUGCHECK("Unknown attribute type");
+		}
+	}
+
+/* Next, handle special attributes */
+
+	for (attr_ptr = special_attributes; *attr_ptr != att_any; attr_ptr++)
+		if (value = GET_VALUE(object, *attr_ptr)) {
+			sprintf(buffer, "%dN%d.", *attr_ptr, value);
+			length += strlen(buffer);
+		}
+
+	return length;
+}
+
+
+PYXIS_field_defaults(field)
+	 OBJ field;
+{
+/**************************************
+ *
+ *	P Y X I S _ f i e l d _ d e f a u l t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Supply defaults for missing field characteristics.
+ *
+ **************************************/
+	ATT attribute;
+	OBJ prototype;
+	USHORT length, display_length;
+	TEXT *p, buffer[256], c, *edit_string;
+	PIC picture;
+	DSC desc;
+	STR string;
+
+	PYXIS_delete_named_attribute(field, att_inactive);
+	picture = NULL;
+	desc.dsc_length = desc.dsc_dtype = desc.dsc_scale = 0;
+
+/* If we have a picture string, analyze it */
+
+	if (edit_string = GET_STRING(field, att_edit_string)) {
+		picture = PICSTR_analyze(edit_string, NULL);
+		switch (picture->pic_type) {
+		case pic_alpha:
+		case pic_text:
+			desc.dsc_dtype = dtype_text;
+			desc.dsc_length = picture->pic_length;
+			break;
+
+		case pic_numeric:
+			desc.dsc_dtype = dtype_long;
+			desc.dsc_scale = -picture->pic_fractions;
+			break;
+
+		case pic_date:
+			desc.dsc_dtype = dtype_text;
+			break;
+
+		case pic_float:
+			c = 'F';
+			desc.dsc_dtype = dtype_double;	/* No path to this stmt. */
+			break;
+		}
+	}
+
+/* Pick up data type info, if supplied directly */
+
+	if (GET_ATTRIBUTE(field, att_dtype))
+		desc.dsc_dtype = GET_VALUE(field, att_dtype);
+
+	if (GET_ATTRIBUTE(field, att_length))
+		desc.dsc_length = GET_VALUE(field, att_length);
+
+	if (GET_ATTRIBUTE(field, att_scale))
+		desc.dsc_scale = GET_VALUE(field, att_scale);
+
+/* Cleanup datatype info, as appropriate */
+
+	switch (desc.dsc_dtype) {
+	case dtype_varying:
+/*
+	desc.dsc_length += 2;
+*/
+		break;
+
+	case dtype_short:
+		desc.dsc_length = 2;
+		break;
+
+	case dtype_long:
+		desc.dsc_length = 4;
+		break;
+
+	case dtype_real:
+		desc.dsc_length = 4;
+		break;
+
+	case dtype_double:
+#ifdef VMS
+	case dtype_d_float:
+#endif
+		desc.dsc_length = 8;
+		break;
+
+	case dtype_timestamp:
+		desc.dsc_length = 8;
+		break;
+
+	case dtype_sql_date:
+		desc.dsc_length = 4;
+		break;
+
+	case dtype_sql_time:
+		desc.dsc_length = 4;
+		break;
+
+	case dtype_blob:
+		if (!(display_length = GET_VALUE(field, att_segment_length)))
+			display_length = 40;
+		REPLACE_ATTRIBUTE(field, att_width, attype_numeric,
+						  display_length + 2);
+		REPLACE_ATTRIBUTE(field, att_height, attype_numeric, 6);
+		if (!GET_VALUE(field, att_prototype)) {
+			PYXIS_box(field);
+			prototype = PYXIS_create_object(NULL_PTR, 0);
+			REPLACE_ATTRIBUTE(prototype, att_width, attype_numeric,
+							  display_length);
+			REPLACE_ATTRIBUTE(prototype, att_reverse_for_update,
+							  attype_numeric, TRUE);
+			REPLACE_ATTRIBUTE(field, att_prototype, attype_object, prototype);
+		}
+		return TRUE;
+
+	case dtype_text:
+	default:
+		desc.dsc_dtype = dtype_text;
+		desc.dsc_scale = 0;
+		if (!desc.dsc_length &&
+			!(desc.dsc_length = GET_VALUE(field, att_width)))
+				desc.dsc_length = 10;
+		break;
+	}
+
+	REPLACE_ATTRIBUTE(field, att_dtype, attype_numeric, desc.dsc_dtype);
+	REPLACE_ATTRIBUTE(field, att_length, attype_numeric, desc.dsc_length);
+	if (desc.dsc_scale)
+		REPLACE_ATTRIBUTE(field, att_scale, attype_numeric, desc.dsc_scale);
+
+	if (!edit_string) {
+		edit_string = (TEXT *) PICSTR_default_edit_string(&desc, buffer);
+		REPLACE_ATTRIBUTE(field, att_edit_string, attype_string, edit_string);
+		picture = PICSTR_analyze(edit_string, NULL);
+	}
+
+	REPLACE_ATTRIBUTE(field, att_width, attype_numeric, picture->pic_length);
+
+	if (!(attribute = GET_ATTRIBUTE(field, att_fill_string))) {
+		switch (picture->pic_type) {
+		case pic_alpha:
+			c = 'X';
+			break;
+		case pic_numeric:
+			c = '9';
+			break;
+		case pic_date:
+			c = 'D';
+			break;
+		case pic_float:
+			c = 'F';
+			break;
+		case pic_text:
+			c = 'T';
+			break;
+		}
+
+		/* Make up fill string, possibly laboriously */
+
+		display_length = picture->pic_length;
+		string = NULL;
+
+		if (display_length < 255)
+			p = buffer;
+		else {
+			string = (STR) ALLOCDV(type_str, display_length);
+			p = string->str_data;
+		}
+
+		do
+			*p++ = c;
+		while (--display_length);
+		*p = 0;
+
+		if (string) {
+			attribute =
+				PUT_ATTRIBUTE(field, att_fill_string, attype_string,
+							  string->str_data);
+			PYXIS_release(string);
+		}
+		else
+			attribute =
+				PUT_ATTRIBUTE(field, att_fill_string, attype_string, buffer);
+	}
+
+	PYXIS_set_display_attribute(field, attribute);
+
+	if (picture->pic_type == pic_numeric || picture->pic_type == pic_float)
+		REPLACE_ATTRIBUTE(field, att_insert_right, attype_numeric, TRUE);
+
+	return TRUE;
+}
+
+
+OBJ PYXIS_forms(dbb, transaction)
+	 SLONG **dbb, **transaction;
+{
+/**************************************
+ *
+ *	P Y X I S _ f o r m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get menu all of forms, etc.
+ *
+ **************************************/
+	OBJ menu, entree;
+	int *handle;
+
+	DB = *dbb;
+	gds__trans = *transaction;
+	menu = PYXIS_create_object(NULL_PTR, 0);
+	handle = NULL;
+
+	FOR(REQUEST_HANDLE handle)
+		X IN PYXIS$FORMS SORTED BY X.PYXIS$FORM_NAME
+			zap_string(X.PYXIS$FORM_NAME);
+		PYXIS_create_entree(menu, X.PYXIS$FORM_NAME, 0, NULL_PTR);
+	END_FOR;
+
+	gds__release_request(gds__status, GDS_REF(handle));
+
+	return menu;
+}
+
+
+OBJ PYXIS_load(ptr)
+	 TEXT **ptr;
+{
+/**************************************
+ *
+ *	P Y X I S _ l o a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Load an object from linear representation.
+ *
+ **************************************/
+	OBJ object;
+	ATT attribute;
+	ATT_T type;
+	SLONG value, name, n, negate, buf_size;
+	TEXT *p, c, verb, *s, *string, *new_buf, *buf_end, buffer[1024];
+
+	p = *ptr;
+	object = PYXIS_create_object(NULL_PTR, 0);
+
+	for (;;) {
+		name = 0;
+		while (*p >= '0' && *p <= '9')
+			name = name * 10 + *p++ - '0';
+		switch (verb = *p++) {
+		case 'D':
+		case 'S':
+			c = *p++;
+			string = buffer;
+			buf_size = sizeof(buffer);
+			buf_end = string + buf_size;
+			s = string;
+			while (*p != c) {
+				*s++ = *p++;
+				if (s == buf_end) {
+					new_buf = (TEXT *) gds__alloc(2 * buf_size);
+					memcpy(new_buf, string, buf_size);
+					if (string != buffer)
+						gds__free(string);
+					string = new_buf;
+					s = string + buf_size;
+					buf_size = 2 * buf_size;
+					buf_end = string + buf_size;
+				}
+			}
+			*s = 0;
+			attribute = PUT_ATTRIBUTE(object, name, attype_string, string);
+			if (verb == 'D')
+				PYXIS_set_display_attribute(object, attribute);
+			p++;
+			if (string != buffer)
+				gds__free(string);
+			break;
+
+		case 'N':
+			type = attype_numeric;
+			negate = ((*p == '-') ? (++p, TRUE) : (FALSE));
+			n = 0;
+			while ((c = *p++) != '.')
+				n = n * 10 + c - '0';
+			if (negate)
+				n = -n;
+			PUT_ATTRIBUTE(object, name, attype_numeric, n);
+			break;
+
+		case 'O':
+			PUT_ATTRIBUTE(object, name, attype_object, PYXIS_load(&p));
+			break;
+
+		case 'E':
+			*ptr = p;
+			return object;
+
+		default:
+			BUGCHECK("Bad form definition");
+		}
+	}
+}
+
+
+OBJ PYXIS_load_form(status_vector, dbb, transaction,
+					form_handle, form_name_length, form_name)
+	 int *status_vector;
+	 SLONG **dbb, **transaction;
+	 OBJ *form_handle;
+	 USHORT *form_name_length;
+	 TEXT *form_name;
+{
+/**************************************
+ *
+ *	P Y X I S _ l o a d _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Load a form from a database.  
+ *	If the form doesn't exist, return NULL.
+ *
+ **************************************/
+	USHORT buf_len, out_size, length;
+	TEXT *ptr, buffer[4096], *buff, *p;
+	STATUS code;
+	SLONG temp_vector[20], handle, seg_count, max_seg;
+	SLONG size;
+
+	DB = *dbb;
+	gds__trans = *transaction;
+	*form_handle = NULL;
+	handle = NULL;
+	ptr = NULL;
+
+/* Unless name is zero terminated, copy and terminate form name */
+
+	if (form_name_length && (length = *form_name_length)) {
+		for (p = buffer; length; --length)
+			*p++ = *form_name++;
+		*p = 0;
+		form_name = buffer;
+	}
+
+	buff = buffer;
+	buf_len = sizeof(buffer);
+
+/* Lookup form */
+
+	FOR(REQUEST_HANDLE handle)
+		X IN PYXIS$FORMS WITH X.PYXIS$FORM_NAME EQ form_name 
+        OPEN_BLOB B IN X.PYXIS$FORM
+		ON_ERROR
+			break;
+		END_ERROR;
+
+		if (gds__blob_size(&B, &size, &seg_count, &max_seg))
+			if (size > sizeof(buffer))
+				buff = ptr = (TEXT *) gds__alloc(size + 2);
+
+		while (size > 0) {
+			buf_len = MIN(buf_len, size);
+			if (code = gds__get_segment(gds__status,
+										GDS_REF(B),
+										GDS_REF(out_size),
+										buf_len, GDS_VAL(buff)))
+			 {
+
+				/* segment and segstr_eof codes are benign; 
+				   otherwise, we have an internal error */
+
+				if (code == gds__segstr_eof)
+					break;
+				if (code != gds__segment)
+					BUGCHECK("Unable to load form");
+			}
+
+			buff += out_size;
+			size -= out_size;
+		}
+		CLOSE_BLOB B;
+		if (!(buff = ptr))
+			buff = buffer;
+		*form_handle = PYXIS_load(&buff);
+		break;
+	END_FOR
+	ON_ERROR
+	END_ERROR;
+
+	gds__release_request(temp_vector, GDS_REF(handle));
+
+/* If something failed and there isn't a status vector, 
+   blow away user */
+
+	if (!status_vector && !*form_handle) {
+		if (gds__status[1])
+			gds__print_status(gds__status);
+		else {
+			sprintf(buffer, "form %s not found\n", form_name);
+			gds__put_error(buffer);
+		}
+		exit(FINI_ERROR);
+	}
+
+	if (ptr)
+		gds__free(ptr);
+
+/* Copy status vector */
+
+	if (status_vector)
+		MOVP_fast(gds__status, status_vector, 20 * sizeof(STATUS));
+
+	return (OBJ) gds__status[1];
+}
+
+
+OBJ PYXIS_relation_fields(dbb, transaction, relation_name)
+	 SLONG **dbb, **transaction;
+	 TEXT *relation_name;
+{
+/**************************************
+ *
+ *	P Y X I S _ r e l a t i o n _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an object containing fields for relation.  This is
+ *	NOT formatted as a form.
+ *
+ **************************************/
+	ATT attribute;
+	OBJ form, field;
+	USHORT length, display_length, segment_length;
+	TEXT *p, c, *edit_string;
+	int *handle;
+	DSC desc;
+
+	DB = *dbb;
+	gds__trans = *transaction;
+	form = PYXIS_create_object(NULL_PTR, 0);
+	handle = NULL;
+
+	FOR(REQUEST_HANDLE handle)
+		RFR IN RDB$RELATION_FIELDS CROSS FLD IN RDB$FIELDS WITH
+			RFR.RDB$RELATION_NAME EQ relation_name AND
+			RFR.RDB$FIELD_SOURCE EQ FLD.RDB$FIELD_NAME
+			SORTED BY RFR.RDB$FIELD_POSITION
+			/* Create field itself */
+        zap_string(RFR.RDB$FIELD_NAME);
+		field = PYXIS_create_object(RFR.RDB$FIELD_NAME, att_field_name);
+
+		desc.dsc_scale = FLD.RDB$FIELD_SCALE;
+		desc.dsc_length = FLD.RDB$FIELD_LENGTH;
+		switch (FLD.RDB$FIELD_TYPE) {
+		case blr_text:
+			desc.dsc_dtype = dtype_text;
+			break;
+
+		case blr_varying:
+			desc.dsc_dtype = dtype_varying;
+			desc.dsc_length += 2;
+			break;
+
+		case blr_short:
+			desc.dsc_dtype = dtype_short;
+			desc.dsc_length = 2;
+			break;
+
+		case blr_long:
+			desc.dsc_dtype = dtype_long;
+			desc.dsc_length = 4;
+			break;
+
+		case blr_float:
+			desc.dsc_dtype = dtype_real;
+			desc.dsc_length = 4;
+			break;
+
+		case blr_double:
+#ifndef VMS
+		case blr_d_float:
+#endif
+			desc.dsc_dtype = dtype_double;
+			desc.dsc_length = 8;
+			break;
+
+#ifdef VMS
+		case blr_d_float:
+			desc.dsc_dtype = dtype_d_float;
+			desc.dsc_length = 8;
+			break;
+#endif
+
+		case blr_timestamp:
+			desc.dsc_dtype = dtype_timestamp;
+			desc.dsc_length = 8;
+			break;
+
+		case blr_sql_date:
+			desc.dsc_dtype = dtype_sql_date;
+			desc.dsc_length = 4;
+			break;
+
+		case blr_sql_time:
+			desc.dsc_dtype = dtype_sql_time;
+			desc.dsc_length = 4;
+			break;
+
+		case blr_blob:
+			desc.dsc_dtype = dtype_blob;
+			desc.dsc_length = 8;
+			if (segment_length = FLD.RDB$SEGMENT_LENGTH)
+				PUT_ATTRIBUTE(field, att_segment_length, attype_numeric,
+							  segment_length);
+			break;
+		}
+
+		PYXIS_put_attribute(field, att_dtype, attype_numeric, desc.dsc_dtype);
+		PYXIS_put_attribute(field, att_length, attype_numeric,
+							desc.dsc_length);
+		if (desc.dsc_scale)
+			PYXIS_put_attribute(field, att_scale, attype_numeric,
+								desc.dsc_scale);
+
+		if (desc.dsc_dtype != dtype_blob) {
+			edit_string = RFR.RDB$EDIT_STRING;
+			if (!*edit_string || *edit_string == ' ')
+				edit_string = FLD.RDB$EDIT_STRING;
+			if (*edit_string && *edit_string != ' ')
+				PUT_ATTRIBUTE(field, att_edit_string, attype_string,
+							  edit_string);
+		}
+		PUT_ATTRIBUTE(field, att_inactive, attype_numeric, TRUE);
+		PYXIS_create_entree(form, RFR.RDB$FIELD_NAME, attype_object, field);
+	END_FOR;
+
+	gds__release_request(gds__status, GDS_REF(handle));
+
+	return form;
+}
+
+
+
+OBJ PYXIS_relation_form(window, fields)
+	 WIN window;
+	 OBJ fields;
+{
+/**************************************
+ *
+ *	P Y X I S _ r e l a t i o n _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a form from the fields of a relation.
+ *
+ **************************************/
+	ATT attribute;
+	OBJ form, field, label;
+	TEXT *name;
+
+	form = PYXIS_create_object(NULL_PTR, 0);
+
+	for (attribute = NULL;
+		 attribute = PYXIS_find_object(fields, attribute, att_entree, TRUE);)
+		if (field = GET_OBJECT((OBJ) attribute->att_value, att_entree_value)) {
+			field = PYXIS_clone(field);
+			if (GET_VALUE(field, att_dtype) != dtype_blob &&
+				GET_VALUE(field, att_datatype) != blr_blob)
+				REPLACE_ATTRIBUTE(field, att_reverse_for_update,
+								  attype_numeric, TRUE);
+			PYXIS_field_defaults(field);
+			name = GET_STRING(field, att_field_name);
+			label = PYXIS_create_object(name, att_literal_string);
+			PUT_ATTRIBUTE(form, att_label, attype_object, label);
+			PUT_ATTRIBUTE(form, att_field, attype_object, field);
+		}
+
+	PYXIS_format_form(form, window->win_width, window->win_height);
+
+	return form;
+}
+
+
+OBJ PYXIS_relations(dbb, transaction)
+	 SLONG **dbb, **transaction;
+{
+/**************************************
+ *
+ *	P Y X I S _ r e l a t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get menu all of relations, etc.
+ *
+ **************************************/
+	OBJ menu, entree;
+	int *handle;
+
+	DB = *dbb;
+	gds__trans = *transaction;
+	menu = PYXIS_create_object(NULL_PTR, 0);
+	handle = NULL;
+
+	FOR(REQUEST_HANDLE handle)
+		X IN RDB$RELATIONS WITH X.RDB$SYSTEM_FLAG ==
+			0 SORTED BY X.RDB$RELATION_NAME 
+        zap_string(X.RDB$RELATION_NAME);
+		PYXIS_create_entree(menu, X.RDB$RELATION_NAME, 0, NULL_PTR);
+	END_FOR;
+
+	gds__release_request(gds__status, GDS_REF(handle));
+
+	return menu;
+}
+
+
+
+PYXIS_store_form(dbb, transaction, form_name, form)
+	 SLONG **dbb, **transaction;
+	 TEXT *form_name;
+	 OBJ form;
+{
+/**************************************
+ *
+ *	P Y X I S _ s t o r e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a form in a database.  If the form already exists, replace it.
+ *
+ **************************************/
+	SLONG size;
+	TEXT *ptr, buffer[4096], *buff, *p;
+	int *handle;
+	USHORT seg_len;
+
+	DB = *dbb;
+	gds__trans = *transaction;
+	handle = NULL;
+	ptr = NULL_PTR;
+	seg_len = sizeof(buffer);
+
+/* If local buffer is big enough use it; otherwise allocate buffer big enough */
+
+	size = PYXIS_dump_length(form);
+	buff = buffer;
+
+	if (size > sizeof(buffer))
+		buff = ptr = (TEXT *) gds__alloc(size);
+
+/* Linearize the form */
+
+	p = buff;
+	PYXIS_dump(form, &p);
+	size = p - buff;
+
+/* If form exists, modify it */
+
+	FOR(REQUEST_HANDLE handle)
+		X IN PYXIS$FORMS WITH X.PYXIS$FORM_NAME EQ form_name
+		MODIFY X USING
+			CREATE_BLOB B IN X.PYXIS$FORM;
+			while (size > 0) {
+				seg_len = MIN(seg_len, size);
+				if (gds__put_segment(gds__status,
+									 GDS_REF(B),
+									 seg_len, GDS_VAL(buff))) break;
+				buff += seg_len;
+				size -= seg_len;
+			}
+			if (gds__status[1])
+				gds__print_status(gds__status);
+			CLOSE_BLOB B;
+		END_MODIFY;
+		if (ptr)
+			gds__free(ptr);
+		gds__release_request(gds__status, GDS_REF(handle));
+		return SUCCESS;			/* gpre generates a gds__send call after this which
+								   can never be reached; but it's ok  */
+	END_FOR;
+
+	gds__release_request(gds__status, GDS_REF(handle));
+
+/* Form doesn't exist -- store a new record */
+
+	STORE(REQUEST_HANDLE handle)
+		X IN PYXIS$FORMS 
+
+        strcpy(X.PYXIS$FORM_NAME, form_name);
+		CREATE_BLOB B IN X.PYXIS$FORM;
+		while (size > 0) {
+			seg_len = MIN(seg_len, size);
+			if (gds__put_segment(gds__status,
+								 GDS_REF(B), seg_len, GDS_VAL(buff))) break;
+			buff += seg_len;
+			size -= seg_len;
+		}
+		if (gds__status[1])
+			gds__print_status(gds__status);
+		CLOSE_BLOB B;
+	END_STORE;
+
+	gds__release_request(gds__status, GDS_REF(handle));
+
+	if (ptr)
+		gds__free(ptr);
+}
+
+
+static zap_string(string)
+	 TEXT *string;
+{
+/**************************************
+ *
+ *	z a p _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zap trailing blanks in a string.
+ *
+ **************************************/
+
+	while (*string && *string != ' ')
+		string++;
+
+	*string = 0;
+}
diff --git a/src/pyxis/scr.cpp b/src/pyxis/scr.cpp
new file mode 100644
index 0000000000..7759d320dc
--- /dev/null
+++ b/src/pyxis/scr.cpp
@@ -0,0 +1,720 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		scr.c
+ *	DESCRIPTION:	Logical Screen Handler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../pyxis/pyxis.h"
+#include "../pyxis/scr.h"
+
+static SCR create_screen();
+
+static windows;
+
+typedef struct {
+	SSHORT min_x;
+	SSHORT min_y;
+	SSHORT max_x;
+	SSHORT max_y;
+} REGION;
+
+#ifdef DEBUG
+static debug;
+#endif
+
+
+SCR_clear_object(window, object)
+	 WIN window;
+	 OBJ object;
+{
+/**************************************
+ *
+ *	S C R _ c l e a r _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear the image of an object to blanks.
+ *
+ **************************************/
+
+	clear_object(window->win_logical, object);
+}
+
+
+SCR_clear_window(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	S C R _ c l e a r _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear a complete screen.
+ *
+ **************************************/
+	SCR logical;
+
+	logical = window->win_logical;
+	logical->scr_flags |= SCR_clear;
+	clear_screen(logical);
+}
+
+
+SCR_create_window(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	S C R _ c r e a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up a window.
+ *
+ **************************************/
+	int status;
+
+	++windows;
+
+#ifdef VMS
+#define WINDOW_CREATION
+	status = VDM_create_window(window);
+#endif
+
+#ifndef WINDOW_CREATION
+#ifndef sgi
+#define WINDOW_CREATION
+	if ((strcmp(getenv("TERM"), "vt100")) &&
+		(strcmp(getenv("TERM"), "vt200")) &&
+		(strcmp(getenv("TERM"), "vt300"))) status = CDM_create_window(window);
+	else
+		status = VT100_create_window(window);
+#endif
+#endif
+
+#ifndef WINDOW_CREATION
+	status = CDM_create_window(window);
+#endif
+
+	if (status)
+		return status;
+
+	window->win_logical =
+		create_screen(window->win_width, window->win_height);
+	window->win_physical =
+		create_screen(window->win_width, window->win_height);
+	(*window->win_clear) (window);
+
+	return SUCCESS;
+}
+
+
+SCR_disable(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	S C R _ d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disable window.  Like make it disappear, go
+ *	inactive, or just get out of the way.
+ *
+ **************************************/
+
+	(*window->win_disable) (window);
+	clear_screen(window->win_physical);
+}
+
+
+SCR_fini(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	S C R _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of a screen.
+ *
+ **************************************/
+
+	--windows;
+	(*window->win_fini) (window);
+	PYXIS_release(window->win_logical);
+	PYXIS_release(window->win_physical);
+}
+
+
+SCR_getchar(window, object, x_offset, y_offset)
+	 WIN window;
+	 OBJ object;
+	 int x_offset, y_offset;
+{
+/**************************************
+ *
+ *	S C R _ g e t c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update the physical screen based on the logical screen.
+ *
+ **************************************/
+	SSHORT c, x, y;
+
+	if (c = window->win_pending_char) {
+		window->win_pending_char = 0;
+		return c;
+	}
+
+	if (!object)
+		return (*window->win_getchar) (window, x_offset, y_offset);
+
+	x = object->obj_x + x_offset;
+	y = object->obj_y + y_offset;
+
+	return (*window->win_getchar) (window, x, y);
+}
+
+
+SCR_refresh_window(window, object, x_offset, y_offset)
+	 WIN window;
+	 OBJ object;
+	 int x_offset, y_offset;
+{
+/**************************************
+ *
+ *	S C R _ r e f r e s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Refresh the display, presumable because of extern interference.
+ *
+ **************************************/
+	OBJ form;
+
+	(*window->win_clear) (window);
+	clear_screen(window->win_physical);
+	form = window->win_form;
+	form->obj_flags |= OBJ_changed;
+	SCR_update_window(window, object, x_offset, y_offset);
+}
+
+
+SCR_update_window(window, object, x_offset, y_offset)
+	 WIN window;
+	 OBJ object;
+	 int x_offset, y_offset;
+{
+/**************************************
+ *
+ *	S C R _ u p d a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update the physical screen based on the logical screen.
+ *
+ **************************************/
+	SCR logical, physical;
+	USHORT *lline, *pline, x, y, start, force;
+	ATT attribute;
+	REGION clip;
+
+/* Start by updating logical screen */
+
+	logical = window->win_logical;
+	physical = window->win_physical;
+	clip.min_x = 0;
+	clip.min_y = 0;
+	clip.max_x = window->win_width;
+	clip.max_y = window->win_height;
+	display(logical, clip, window->win_form, 0, FALSE);
+
+#ifdef DEBUG
+	if (debug) {
+		PYXIS_print_screen(logical, "Logical");
+		PYXIS_print_screen(physical, "Physical");
+	}
+#endif
+
+/* If there has been a clear since the last update, zap the whole
+   thing now. */
+
+	if (logical->scr_flags & SCR_clear) {
+		(*window->win_clear) (window);
+		clear_screen(physical);
+		logical->scr_flags &= ~SCR_clear;
+	}
+
+/* Look for differences between physical and logical screens.  Update
+   physical screen */
+
+	lline = logical->scr_screen;
+	pline = physical->scr_screen;
+
+	for (y = 0; y < logical->scr_height; y++,
+		 pline += physical->scr_line_length, lline +=
+		 logical->scr_line_length) if (*lline >> 8) {
+			*lline = FALSE;
+			update_line(window, y, lline + 1, pline + 1);
+		}
+
+	if (object) {
+		x = object->obj_x + object->obj_border + x_offset;
+		y = object->obj_y + object->obj_border + y_offset;
+	}
+	else {
+		x = window->win_width;
+		y = window->win_height;
+	}
+
+	(*window->win_update) (window, x, y);
+}
+
+
+static clear_box(screen, object)
+	 SCR screen;
+	 OBJ object;
+{
+/**************************************
+ *
+ *	c l e a r _ b o x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display a box, possible outlined.
+ *
+ **************************************/
+	USHORT *start, *p, *end, n, *line, l;
+
+	start = object->obj_display_address;
+	l = screen->scr_line_length;
+	n = (start - screen->scr_screen) / l;
+	line = screen->scr_screen + n * l;
+
+	for (n = 0; n < object->obj_display_height; n++, line += l, start += l) {
+		*line = -1;
+		p = start;
+		end = p + object->obj_display_length;
+		while (p < end)
+			*p++ = ' ';
+	}
+
+	return TRUE;
+}
+
+
+
+static clear_object(screen, object)
+	 SCR screen;
+	 OBJ object;
+{
+/**************************************
+ *
+ *	c l e a r _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear the image of an object to blanks.
+ *
+ **************************************/
+	USHORT *line, *p;
+	ATT attribute;
+	SSHORT l;
+
+	if (object->obj_occluded || (object->obj_flags & OBJ_inactive))
+		return;
+
+	object->obj_flags &= ~OBJ_displayed;
+
+	if (object->obj_flags & OBJ_blank)
+		clear_box(screen, object);
+
+/* Check for, any display, and sub-objects */
+
+	for (attribute = object->obj_attributes; attribute;
+		 attribute = attribute->att_next)
+			if (attribute->att_type == attype_object)
+				clear_object(screen, attribute->att_value);
+
+/* Next, clear this object, assuming it has an associated string */
+
+	if (object->obj_display_attribute && (l = object->obj_display_length)) {
+		line = screen->scr_screen + screen->scr_line_length * object->obj_y;
+		*line = -1;
+		p = object->obj_display_address;
+		do
+			*p++ = ' ';
+		while (--l);
+		object->obj_display_length = 0;
+	}
+
+	return TRUE;
+}
+
+
+static clear_screen(screen)
+	 SCR screen;
+{
+/**************************************
+ *
+ *	c l e a r _ s c r e e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear a complete screen.
+ *
+ **************************************/
+	USHORT *p, *end;
+
+	p = screen->scr_screen;
+	end = p + screen->scr_length;
+
+	while (p < end)
+		*p++ = ' ';
+}
+
+
+static SCR create_screen(width, height)
+	 USHORT width, height;
+{
+/**************************************
+ *
+ *	c r e a t e _ s c r e e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a screen block of given dimension, and zero/blank
+ *	same.
+ *
+ **************************************/
+	USHORT length, line_length;
+	SCR screen;
+
+	line_length = width + 1;
+	length = line_length * height;
+	screen = (SCR) ALLOCDV(type_scr, length);
+	screen->scr_width = width;
+	screen->scr_height = height;
+	screen->scr_length = length;
+	screen->scr_line_length = line_length;
+	clear_screen(screen);
+
+	return screen;
+}
+
+
+static display(screen, clip, object, parent, force)
+	 SCR screen;
+	 REGION clip;
+	 OBJ object, parent;
+	 USHORT force;
+{
+/**************************************
+ *
+ *	d i s p l a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk an object updating a screen.
+ *
+ **************************************/
+	UCHAR *string;
+	USHORT mode, *line, *p, *end, *min, *max;
+	SSHORT l, n;
+	ATT attribute;
+
+	if (object->obj_occluded || (object->obj_flags & OBJ_inactive))
+		return;
+
+	if (object->obj_flags & OBJ_changed)
+		force = TRUE;
+
+	object->obj_x = object->obj_rel_x + object->obj_scroll_x;
+	object->obj_y = object->obj_rel_y + object->obj_scroll_y;
+
+	if (parent) {
+		object->obj_x += parent->obj_x + parent->obj_border;
+		object->obj_y += parent->obj_y + parent->obj_border;
+	}
+
+/* If object is box, clear it */
+
+
+	if (force) {
+		object->obj_display_length = 0;
+		if (object->obj_flags & OBJ_blank)
+			display_box(screen, clip, object);
+	}
+
+/* Compute clipping region */
+
+	n = object->obj_x + object->obj_border;
+	if (n > clip.min_x)
+		clip.min_x = n;
+
+	n = object->obj_y + object->obj_border;
+	if (n > clip.min_y)
+		clip.min_y = n;
+
+	if (l = object->obj_width) {
+		l += object->obj_x - object->obj_border;
+		clip.max_x = MIN(clip.max_x, l);
+	}
+
+	if (l = object->obj_height) {
+		l += object->obj_y - object->obj_border;
+		clip.max_y = MIN(clip.max_y, l);
+	}
+
+/* Reset flags to indicate state */
+
+	object->obj_flags |= OBJ_displayed;
+	object->obj_flags &= ~OBJ_changed;
+
+	if (force &&
+		(attribute = object->obj_display_attribute) &&
+		(string = (UCHAR *) attribute->att_value) &&
+		object->obj_y >= clip.min_y &&
+		object->obj_y < clip.max_y && clip.min_x < clip.max_x) {
+		mode = 0;
+		if (object->obj_flags & OBJ_reverse_video)
+			mode |= SCR_reverse << 8;
+		if (object->obj_flags & OBJ_bold)
+			mode |= SCR_bold << 8;
+		if (object->obj_flags & OBJ_underline)
+			mode |= SCR_underline << 8;
+
+		object->obj_width = MAX(attribute->att_length, object->obj_width);
+		line = screen->scr_screen + screen->scr_line_length * object->obj_y;
+		*line++ = -1;
+		min = line + clip.min_x;
+		max = line + clip.max_x;
+		p = line + object->obj_x;
+		object->obj_display_address = MAX(p, min);
+
+		/* Handle leading blanks first */
+
+		l = object->obj_width - attribute->att_length;
+
+		if (l && (object->obj_flags & OBJ_insert_right))
+			for (; l && p < max; --l, ++p)
+				if (p >= min)
+					*p = mode + ' ';
+
+		/* Handle main string */
+
+		for (; *string && p < max; p++, string++)
+			if (p >= min)
+				*p = mode + *string;
+
+		/* Finish up with any trailing blanks */
+
+		for (; l && p < max; --l, ++p)
+			if (p >= min)
+				*p = mode + ' ';
+
+		p = MIN(p, max);
+		l = p - object->obj_display_address;
+		object->obj_display_length = (l >= 0) ? l : 0;
+	}
+
+/* Check for, any display, and sub-objects */
+
+	for (attribute = object->obj_attributes; attribute;
+		 attribute = attribute->att_next)
+			if (attribute->att_type == attype_object)
+				display(screen, clip, attribute->att_value, object, force);
+
+	return TRUE;
+}
+
+
+static display_box(screen, clip, object)
+	 SCR screen;
+	 REGION clip;
+	 OBJ object;
+{
+/**************************************
+ *
+ *	d i s p l a y _ b o x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display a box, possible outlined.
+ *
+ **************************************/
+	SSHORT min_x, min_y, max_x, max_y, x, y, right, bottom,
+		mode, *p, *end, c, top, side, fill, box;
+
+	box = (object->obj_flags & OBJ_box) ? TRUE : FALSE;
+	right = object->obj_x + object->obj_width;
+	bottom = object->obj_y + object->obj_height;
+	min_x = MAX(object->obj_x, clip.min_x);
+	min_y = MAX(object->obj_y, clip.min_y);
+	max_x = MIN(right, clip.max_x);
+	max_y = MIN(bottom, clip.max_y);
+
+	if (min_x >= max_x || min_y >= max_y)
+		return;
+
+	object->obj_display_length = max_x - min_x;
+	object->obj_display_height = max_y - min_y;
+	object->obj_display_address = screen->scr_screen +
+		screen->scr_line_length * min_y + 1 + min_x;
+
+	mode = (object->obj_flags & OBJ_reverse_video) ? SCR_reverse << 8 : 0;
+	fill = ' ' | mode;
+	side = C_VERT_BAR | mode;
+	top = C_HORZ_BAR | mode;
+	--bottom;
+
+/* Start by blanking the box */
+
+	for (y = min_y; y < max_y; y++) {
+		c = fill;
+		if (box && (y == object->obj_y || y == bottom))
+			c = top;
+		p = (SSHORT *) screen->scr_screen + screen->scr_line_length * y;
+		*p++ = -1;
+		p += min_x;
+		end = p + object->obj_display_length;
+		if (box && min_x == object->obj_x)
+			*p++ = side;
+		while (p < end)
+			*p++ = c;
+		if (box && max_x == right)
+			p[-1] = side;
+	}
+
+/* Unless the object is explicitly outlined, we're done */
+
+	if (!(object->obj_flags & OBJ_box))
+		return;
+
+/* Groan -- fill in the corners */
+
+	set_point(object->obj_x, object->obj_y, clip, screen, C_UL_CORNER | mode);
+	set_point(object->obj_x + object->obj_width - 1, object->obj_y,
+			  clip, screen, C_UR_CORNER | mode);
+	set_point(object->obj_x, object->obj_y + object->obj_height - 1,
+			  clip, screen, C_LL_CORNER | mode);
+	set_point(object->obj_x + object->obj_width - 1,
+			  object->obj_y + object->obj_height - 1, clip, screen,
+			  C_LR_CORNER | mode);
+}
+
+
+static set_point(x, y, clip, screen, value)
+	 USHORT x, y;
+	 REGION clip;
+	 SCR screen;
+	 USHORT value;
+{
+/**************************************
+ *
+ *	s e t _ p o i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set a single cell on a screen if it falls within a region.
+ *
+ **************************************/
+	USHORT *p;
+
+	if (x < clip.min_x ||
+		x >= clip.max_x || y < clip.min_y || y >= clip.max_y) return FALSE;
+
+	p = screen->scr_screen + screen->scr_line_length * y + 1 + x;
+	*p = value;
+
+	return TRUE;
+}
+
+
+static update_line(window, y, logical, physical)
+	 WIN window;
+	 USHORT y, *logical, *physical;
+{
+/**************************************
+ *
+ *	u p d a t e _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare a logical line to the physical screen image and make
+ *	any appropriate screen calls.
+ *
+ **************************************/
+	USHORT *end, c, mode, x, start, width;
+	UCHAR buffer[1024], *p;
+
+	width = window->win_logical->scr_width;
+	p = buffer;
+
+	for (x = 0; x < width; x++, physical++) {
+		c = *logical++;
+		if (c == *physical) {
+			if (p == buffer)
+				continue;
+			if (c != ' ' || *logical == physical[1]) {
+				(*window->win_text) (window, buffer, p - buffer, start, y, mode);
+				p = buffer;
+				continue;
+			}
+		}
+		if (p == buffer) {
+			start = x;
+			mode = c >> 8;
+		}
+		else if (c >> 8 != mode) {
+			(*window->win_text) (window, buffer, p - buffer, start, y, mode);
+			p = buffer;
+			start = x;
+			mode = c >> 8;
+		}
+		*p++ = c;
+		*physical = c;
+	}
+
+	if (p != buffer) {
+		(*window->win_text) (window, buffer, p - buffer, start, y, mode);
+		p = buffer;
+	}
+}
diff --git a/src/pyxis/scr.h b/src/pyxis/scr.h
new file mode 100644
index 0000000000..7746813963
--- /dev/null
+++ b/src/pyxis/scr.h
@@ -0,0 +1,52 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		scr.h
+ *	DESCRIPTION:	Logical screen handler definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _PYXIS_SCR_H_
+#define _PYXIS_SCR_H_
+
+/* Screen block.  The "screen" image consists of alternating bytes
+   of video mask and character data. */
+
+typedef struct scr {
+    USHORT	scr_x;			/* Current x location */
+    USHORT	scr_y;			/* Current y location */
+    USHORT	scr_width;		/* Screen width */
+    USHORT	scr_height;		/* Screen height */
+    USHORT	scr_length;		/* Bytes in screen image */
+    USHORT	scr_line_length;	/* Bytes in line image */
+    USHORT	scr_flags;		/* Misc stuff */
+    UCHAR	scr_mask;		/* Video options mask */
+    USHORT	scr_screen[1];		/* Screen image */
+} *SCR;
+
+/* Flags */
+
+#define SCR_clear	1
+
+/* Display attributes */
+
+#define SCR_reverse	1		/* Reverse video */
+#define SCR_bold	2		/* Bold characters */
+#define SCR_underline	4		/* Underlined text */
+
+#endif /* _PYXIS_SCR_H_ */
diff --git a/src/pyxis/size_form.h b/src/pyxis/size_form.h
new file mode 100644
index 0000000000..a4a7901aaf
--- /dev/null
+++ b/src/pyxis/size_form.h
@@ -0,0 +1,24 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+"24O18D`F o r m   S i z e`2N8.5N17.E24O18D`WIDTH`2N5.3N2.5N5\
+.E25O13S`WIDTH`35S`zz9`21N5.23N4.20D`999`2N11.3N2.5N3.6N1.31\
+N1.E24O18D`HEIGHT`2N17.3N2.5N6.E25O13S`HEIGHT`35S`zz9`21N5.2\
+3N4.20D`999`2N24.3N2.5N3.6N1.31N1.E24O18D`OUTLINE_FORM`2N9.3\
+N4.5N12.E25O13S`OUTLINE_FORM`35S`X`21N1.23N1.20D`X`44N1.53S`\
+N`53S`Y`2N22.3N4.5N1.6N1.E5N33.4N8.48N1.10N1.9N1.E"
diff --git a/src/pyxis/sun_ftn_pyxis.cpp b/src/pyxis/sun_ftn_pyxis.cpp
new file mode 100644
index 0000000000..03efb78cbb
--- /dev/null
+++ b/src/pyxis/sun_ftn_pyxis.cpp
@@ -0,0 +1,446 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		sun_ftn_pyxis.c
+ *	DESCRIPTION:	"Wrapper" module which compensates for the
+ *			Sun Fortran compiler appending an underscore
+ *			to external entrypoints.  (Each function in
+ *			this module is an InterBase entrypoint with
+ *			an underscore appended to it which calls the
+ *			real InterBase function).
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <varargs.h>
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#undef GDS_VAL
+#define GDS_VAL(val)	(*val)
+
+typedef STATUS(*PTR) ();
+
+typedef struct handle {
+	struct handle **user_handle;
+} *HANDLE, *REQ, *DBB, *TRA, *BLB, *ATT, *OBJ, *BLK, *MAP, *WIN, *MENU;
+
+#define PYXIS_COMPILE_MAP	pyxis__compile_map_
+#define PYXIS_COMPILE_MENU	pyxis__compile_menu_
+#define PYXIS_COMPILE_SUB_MAP	pyxis__compile_sub_map_
+#define PYXIS_CREATE_WINDOW	pyxis__create_window_
+#define PYXIS_DELETE		pyxis__delete_
+#define PYXIS_DELETE_WINDOW	pyxis__delete_window_
+#define PYXIS_DRIVE_FORM	pyxis__drive_form_
+#define PYXIS_DRIVE_MENU	pyxis__drive_menu_
+#define PYXIS_FETCH		pyxis__fetch_
+#define PYXIS_GET_ENTREE	pyxis__get_entree_
+#define PYXIS_INITIALIZE_MENU	pyxis__initialize_menu_
+#define PYXIS_INSERT		pyxis__insert_
+#define PYXIS_LOAD_FORM		pyxis__load_form_
+#define PYXIS_MENU		pyxis__menu_
+#define PYXIS_POP_WINDOW	pyxis__pop_window_
+#define PYXIS_PUT_ENTREE	pyxis__put_entree_
+#define PYXIS_RESET_FORM	pyxis__reset_form_
+#define PYXIS_SUSPEND_WINDOW	pyxis__suspend_window_
+
+
+PYXIS_COMPILE_MAP(status, form_handle, map_handle, length, source)
+	 STATUS *status;
+	 OBJ *form_handle;
+	 MAP *map_handle;
+	 ULONG *length;
+	 TEXT *source;
+{
+/**************************************
+ *
+ *	p y x i s _ $ c o m p i l e _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a form map.
+ *
+ **************************************/
+	USHORT len;
+
+	len = *length;
+
+	return pyxis__compile_map(status, form_handle, map_handle, &len, source);
+}
+
+
+PYXIS_COMPILE_MENU(window_handle, menu_handle, length, source)
+	 WIN *window_handle;
+	 MENU *menu_handle;
+	 USHORT *length;
+	 TEXT *source;
+{
+/**************************************
+ *
+ *	p y x i s _ $ c o m p i l e _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a menu.
+ *
+ **************************************/
+
+	pyxis__compile_menu(window_handle, menu_handle, length, source);
+}
+
+
+
+PYXIS_COMPILE_SUB_MAP(status, parent_handle, map_handle, length, source)
+	 STATUS *status;
+	 MAP *parent_handle;
+	 MAP *map_handle;
+	 ULONG *length;
+	 TEXT *source;
+{
+/**************************************
+ *
+ *	p y x i s _ $ c o m p i l e _ s u b _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a subform map.
+ *
+ **************************************/
+	USHORT len;
+
+	len = *length;
+	return pyxis__compile_sub_map(status, parent_handle,
+								  map_handle, &len, source);
+}
+
+
+
+PYXIS_CREATE_WINDOW(window_handle, file_name_length, file_name, width, height)
+
+	 WIN *window_handle;
+	 ULONG *file_name_length;
+	 TEXT *file_name;
+	 USHORT *width, *height;
+{
+/**************************************
+ *
+ *	p y x i s _ $ c r e a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sun fortran callable version
+ *      Create a new window.
+ *
+ **************************************/
+	USHORT name_length;
+
+	name_length = *file_name_length;
+	pyxis__create_window(window_handle, &name_length, file_name, width,
+						 height);
+}
+
+
+PYXIS_DELETE(object)
+	 OBJ *object;
+{
+/**************************************
+ *
+ *	p y x i s _ $ d e l e t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete an object.
+ *
+ **************************************/
+	pyxis__delete(object);
+}
+
+
+PYXIS_DELETE_WINDOW(window_handle)
+	 SLONG *window_handle;
+{
+/**************************************
+ *
+ *	p y x i s _ $ d e l e t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a window.
+ *
+ **************************************/
+	pyxis__delete_window(window_handle);
+}
+
+
+PYXIS_DRIVE_FORM(status, db_handle, tra_handle, window_handle, map_handle,
+				 input, output)
+	 STATUS *status;
+	 SLONG **db_handle, *tra_handle;
+	 WIN *window_handle;
+	 MAP *map_handle;
+	 UCHAR *input, *output;
+{
+/**************************************
+ *
+ *	p y x i s _ $ d r i v e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy data from a form (or subform).
+ *
+ **************************************/
+	pyxis__drive_form(status, db_handle, tra_handle, window_handle,
+					  map_handle, input, output);
+}
+
+
+PYXIS_DRIVE_MENU(window_handle, menu_handle, blr_length,
+				 blr_source, title_length, title, terminator,
+				 entree_length, entree_text, entree_value)
+	 WIN *window_handle;
+	 MENU *menu_handle;
+	 SLONG *blr_length;
+	 TEXT *blr_source;
+	 USHORT *title_length;
+	 TEXT *title;
+	 USHORT *terminator;
+	 USHORT *entree_length;
+	 TEXT *entree_text;
+	 SLONG *entree_value;
+{
+/**************************************
+ *
+ *	p y x i s _ $ d r i v e _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build then drive a dynamic menu.
+ *
+ **************************************/
+	USHORT i;
+
+	i = *blr_length;
+	pyxis__drive_menu(window_handle, menu_handle, &i,
+					  blr_source, title_length, title, terminator,
+					  entree_length, entree_text, entree_value);
+}
+
+
+PYXIS_FETCH(status, db_handle, tra_handle, map_handle, output)
+	 STATUS *status;
+	 SLONG **db_handle, *tra_handle;
+	 MAP *map_handle;
+	 UCHAR *output;
+{
+/**************************************
+ *
+ *	p y x i s _ $ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy data from a form (or subform).
+ *
+ **************************************/
+	pyxis__fetch(status, db_handle, tra_handle, map_handle, output);
+}
+
+
+PYXIS_GET_ENTREE(menu_handle, entree_length,
+				 entree_text, entree_value, entree_end)
+	 MENU *menu_handle;
+	 USHORT *entree_length;
+	 TEXT *entree_text;
+	 SLONG *entree_value;
+	 USHORT *entree_end;
+{
+/**************************************
+ *
+ *	p y x i s _ $ g e t _ e n t r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next entree in a dynamic menu
+ *
+ **************************************/
+	pyxis__get_entree(menu_handle, entree_length,
+					  entree_text, entree_value, entree_end);
+}
+
+
+PYXIS_INITIALIZE_MENU(menu_handle)
+	 MENU *menu_handle;
+{
+/**************************************
+ *
+ *	p y x i s _ $ i n i t i a l i z e _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create or reinitialize a menu object
+ *
+ **************************************/
+	pyxis__initialize_menu(menu_handle);
+}
+
+
+PYXIS_INSERT(status, db_handle, tra_handle, map_handle, input)
+	 STATUS *status;
+	 SLONG **db_handle, *tra_handle;
+	 MAP *map_handle;
+	 UCHAR *input;
+{
+/**************************************
+ *
+ *	p y x i s _ $ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy data to a form (or sub-form).
+ *
+ **************************************/
+	pyxis__insert(status, db_handle, tra_handle, map_handle, input);
+}
+
+
+PYXIS_LOAD_FORM(status_vector, dbb, transaction,
+				form_handle, form_name_length, form_name)
+	 STATUS *status_vector;
+	 SLONG *dbb, *transaction;
+	 OBJ *form_handle;
+	 ULONG *form_name_length;
+	 TEXT *form_name;
+{
+/**************************************
+ *
+ *	p y x i s _ $ l o a d _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Load a form given an attach database 
+ *	and outstanding transaction.
+ *
+ **************************************/
+	USHORT length;
+
+	length = *form_name_length;
+	pyxis__load_form(status_vector, dbb, transaction,
+					 form_handle, &length, form_name);
+}
+
+
+OBJ PYXIS_MENU(window_handle, menu_handle, length, source)
+	 WIN *window_handle;
+	 MENU *menu_handle;
+	 USHORT *length;
+	 TEXT *source;
+{
+/**************************************
+ *
+ *	p y x i s _ $ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build then drive a menu.
+ *
+ **************************************/
+	return (OBJ) pyxis__menu(window_handle, menu_handle, length, source);
+}
+
+
+PYXIS_POP_WINDOW(window_handle)
+	 WIN *window_handle;
+{
+/**************************************
+ *
+ *	p y x i s _ $ p o p _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pop a form off the window stack.
+ *
+ **************************************/
+	pyxis__pop_window(window_handle);
+}
+
+
+PYXIS_PUT_ENTREE(menu_handle, entree_length, entree_text, entree_value)
+	 MENU *menu_handle;
+	 USHORT *entree_length;
+	 TEXT *entree_text;
+	 SLONG *entree_value;
+{
+/**************************************
+ *
+ *	p y x i s _ $ p u t _ e n t r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add an entree to a dynamic menu
+ *
+ **************************************/
+	pyxis__put_entree(menu_handle, entree_length, entree_text, entree_value);
+}
+
+
+PYXIS_RESET_FORM(status, map_handle)
+	 STATUS *status;
+	 MAP *map_handle;
+{
+/**************************************
+ *
+ *	p y x i s _ $ r e s e t _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset a compiled form to a known state.
+ *
+ **************************************/
+	pyxis__reset_form(status, map_handle);
+}
+
+
+PYXIS_SUSPEND_WINDOW(window_handle)
+	 SLONG *window_handle;
+{
+/**************************************
+ *
+ *	p y x i s _ $ s u s p e n d _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Temporarily suspend a window.
+ *
+ **************************************/
+	pyxis__suspend_window(window_handle);
+}
diff --git a/src/pyxis/vdm.cpp b/src/pyxis/vdm.cpp
new file mode 100644
index 0000000000..e8f4212800
--- /dev/null
+++ b/src/pyxis/vdm.cpp
@@ -0,0 +1,607 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		vdm.c
+ *	DESCRIPTION:	VMS Display Manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include descrip
+#include iodef
+
+#include "../pyxis/pyxis.h"
+#include "../pyxis/scr.h"
+
+#define DISABLE		"\33[0m\33>\33(B\n"
+#define ENABLE		"\33[0m\33="
+#define CSI		0x9b
+
+static int clear_window(), disable(), fini(), get_char(), text(),
+update_window();
+static SSHORT graphics_mode;
+
+typedef struct seq {
+	UCHAR seq_key;
+	UCHAR *seq_sequence;
+} SEQ;
+
+static SEQ escape_sequences[] = {
+	C_UP, "\33[A",
+	C_DOWN, "\33[B",
+	C_RIGHT, "\33[C",
+	C_LEFT, "\33[D",
+	C_UP, "\233A",
+	C_DOWN, "\233B",
+	C_RIGHT, "\233C",
+	C_LEFT, "\233D",
+	C_PF5, "\33[31~",			/* F17 function key */
+	C_PF6, "\33[18~",			/* F7 function key */
+	C_PF7, "\33[19~",			/* F8 function key */
+	C_PF8, "\33[20~",			/* F9 function key */
+	C_PF9, "\33[21~",			/* F10 function key */
+	C_SCROLL_TOP, "\33[5~",		/* Prev Scrn */
+	C_SCROLL_BOTTOM, "\33[6~",	/* Next Scrn */
+	NULL, NULL
+};
+
+static struct knm keyname_table[] = {
+	{C_PF1, "<PF1>"},
+	{C_PF2, "<PF2>"},
+	{C_PF3, "<PF3>"},
+	{C_PF4, "<PF4>"},
+	{C_PF5, "<F17>"},
+	{C_PF6, "<F7>"},
+	{C_PF7, "<F8>"},
+	{C_PF8, "<F9>"},
+	{C_PF9, "<F10>"},
+	{C_ENTER, "<ENTER>"},
+	{C_LEFT, "<left arrow>"},
+	{C_RIGHT, "<right arrow>"},
+	{C_UP, "<up arrow>"},
+	{C_DOWN, "<down arrow>"},
+	{C_DELETE, "<DELETE>"},
+	{C_SCROLL_TOP, "<PREV SCREEN> or <control-T>"},
+	{C_SCROLL_BOTTOM, "<NEXT SCREEN> of <control-B>"},
+	{C_ERASE, "<control-U>"},
+	{C_DELETE_NEXT, "<control-F>"},
+	{C_INSERT_OVERSTRIKE, "<control-A>"},
+	{C_GOTO_START, "<control-H>"},
+	{C_GOTO_END, "<control-E>"},
+	{C_EDIT, "<control-G>"},
+	{(UCHAR) 0, "<unknown key>"},
+};
+
+static UCHAR keypad[256], keypad_equiv[] = {
+	C_ENTER, 'M',
+	C_PF1, 'P',
+	C_PF2, 'Q',
+	C_PF3, 'R',
+	C_PF4, 'S',
+	'-', 'm',
+	',', 'l',
+	'.', 'n',
+	'0', 'p',
+	'1', 'q',
+	'2', 'r',
+	'3', 's',
+	'4', 't',
+	'5', 'u',
+	'6', 'v',
+	'7', 'w',
+	'8', 'x',
+	'9', 'y',
+	0, 0
+};
+
+
+VDM_create_window(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	V D M _ c r e a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new display window.
+ *
+ **************************************/
+	struct dsc$descriptor sysinput, locdev_dsc;
+	UCHAR *p, buffer[32];
+	SCHAR locdev[64];
+	SLONG l, status, width, height;
+
+	window->win_keyname_table = keyname_table;
+
+/* Populate window with action routines */
+
+	window->win_clear = &clear_window;
+	window->win_disable = &disable;
+	window->win_fini = &fini;
+	window->win_getchar = &get_char;
+	window->win_text = &text;
+	window->win_update = &update_window;
+
+	sysinput.dsc$w_length = sizeof("SYS$INPUT") - 1;
+	sysinput.dsc$b_class = DSC$K_CLASS_S;
+	sysinput.dsc$b_dtype = DSC$K_DTYPE_T;
+	sysinput.dsc$a_pointer = "SYS$INPUT";
+
+	locdev_dsc.dsc$w_length = 63;
+	locdev_dsc.dsc$b_class = DSC$K_CLASS_S;
+	locdev_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
+	locdev_dsc.dsc$a_pointer = &locdev[0];
+
+/*
+status = sys$trnlog(&sysinput, &l, &locdev_dsc, 0, 0, 0);
+locdev[l] = 0;
+strcpy (locdev, &locdev[4]);
+locdev_dsc.dsc$w_length = sizeof (locdev);
+status = sys$assign (&locdev_dsc, &trm_channel, 0, 0);
+*/
+
+	status = sys$assign(&sysinput, &window->win_input, 0, 0);
+	enable_forms(window);
+
+	for (p = keypad_equiv; *p; p += 2)
+		keypad[p[1]] = p[0];
+
+	if (get_size(window, &width, &height)) {
+		if (window->win_width && window->win_width > width) {
+			put_line(window, "\33[?3h", 5, 0);
+			window->win_flags |= WIN_reset_80;
+			get_size(window, &width, &height);
+		}
+		window->win_height = (window->win_height) ?
+			MIN(window->win_height, height) : height;
+		window->win_width = (window->win_width) ?
+			MIN(window->win_width, width) : width;
+	}
+	else {
+		window->win_width = 79;
+		window->win_height = 23;
+	}
+
+	return SUCCESS;
+}
+
+
+static clear_window(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	c l e a r _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear out a window.
+ *
+ **************************************/
+
+/* Set normal characters, keypad application mode */
+
+	put_line(window, ENABLE, sizeof(ENABLE) - 1, 0);
+
+	lib$set_cursor(&(1), &(1));
+	lib$erase_page();
+}
+
+
+static disable(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make window disappear.
+ *
+ **************************************/
+
+/* Set normal characters, numeric keypad, non-graphics */
+
+	put_line(window, DISABLE, sizeof(DISABLE) - 1, 0);
+	position(window, 0, window->win_height);
+	window->win_flags |= WIN_disabled;
+}
+
+
+static enable_forms(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	e n a b l e _ f o r m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put terminal in forms mode.
+ *
+ **************************************/
+	int n;
+
+	window->win_current_mode = 0;
+	window->win_flags &= ~WIN_disabled;
+	clear_window(window);
+}
+
+
+
+static fini(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sign off the screen package.
+ *
+ **************************************/
+
+	if (window->win_flags & WIN_reset_80)
+		put_line(window, "\33[?3l", 5, 0);
+
+	disable(window);
+}
+
+
+static get_char(window, x, y)
+	 WIN window;
+{
+/**************************************
+ *
+ *	g e t _ c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a character from the user.
+ *
+ **************************************/
+	int n;
+	SEQ *sequence;
+	UCHAR buffer[16], *p, *q;
+
+	position(window, x, y);
+
+	for (;;) {
+		if (!(n = get_input(window, buffer)))
+			return 0;
+		if (n == 1)
+			switch (buffer[0]) {
+			case '\n':
+			case '\r':
+				return '\n';
+			case 'T' - 0100:
+				return C_SCROLL_TOP;
+			case 'B' - 0100:
+				return C_SCROLL_BOTTOM;
+			case 'Z' - 0100:
+				return C_EOF;
+
+/* Edit mode */
+
+			case 'F' - 0100:
+				return C_DELETE_NEXT;
+			case 'G' - 0100:
+				return C_EDIT;
+			case 'H' - 0100:
+				return C_GOTO_START;
+			case 'E' - 0100:
+				return C_GOTO_END;
+			case 'A' - 0100:
+				return C_INSERT_OVERSTRIKE;
+			case 'U' - 0100:
+				return C_ERASE;
+			default:
+				return buffer[0];
+			}
+
+		buffer[n] = 0;
+		for (sequence = escape_sequences; q = sequence->seq_sequence;
+			 sequence++)
+			for (p = buffer; *p == *q; p++, q++)
+				if (!*p)
+					return sequence->seq_key;
+	}
+}
+
+
+static get_input(window, buffer)
+	 WIN window;
+	 UCHAR *buffer;
+{
+/**************************************
+ *
+ *	g e t _ i n p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a single character or escape sequence from terminal.
+ *	Return number of characters read.
+ *
+ **************************************/
+	UCHAR *p, c;
+
+	p = buffer;
+	*p++ = c = read_char(window);
+
+	if (!c)
+		return 0;
+
+	if (c == 0217) {
+		c = read_char(window);
+		buffer[0] = keypad[c];
+		return 1;
+	}
+
+	if (c == 0233) {
+		*p++ = read_char(window);
+		return 2;
+	}
+	else if (c != 033)
+		return 1;
+
+/* Escape or control sequence sequence coming in */
+
+	*p++ = c = read_char(window);
+
+/* If this a keypad character, handling it specially */
+
+	if (c == 'O') {
+		c = read_char(window);
+		buffer[0] = keypad[c];
+		return 1;
+	}
+
+/* Handle escape sequences and control sequences slightly differently */
+
+	if (c >= ' ' && c < '/')
+		for (;;) {
+			*p++ = c = read_char(window);
+			if (c >= '0')
+				break;
+		}
+	else
+		for (;;) {
+			*p++ = c = read_char(window);
+			if (c >= '@')
+				break;
+		}
+
+	return p - buffer;
+}
+
+
+static get_size(window, width, height)
+	 WIN window;
+	 int *width, *height;
+{
+/**************************************
+ *
+ *	g e t _ s i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to get size of terminal.
+ *
+ **************************************/
+	UCHAR buffer[32];
+	int n;
+
+/* Position cursor to lower right and request report */
+
+	position(window, 999, 999);
+	put_line(window, "\33[6n", 4, 0);
+	n = get_input(window, buffer);
+	buffer[n] = 0;
+	n = sscanf(buffer, "\33[%d;%dR", height, width);
+
+	return (n == 2);
+}
+
+
+
+static position(window, x, y)
+	 WIN window;
+	 USHORT x, y;
+{
+/**************************************
+ *
+ *	p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Position cursor.
+ *
+ **************************************/
+	SSHORT flag, x1, y1;
+
+	if (window->win_flags & WIN_disabled)
+		enable_forms(window);
+
+	x1 = x + 1;
+	y1 = y + 1;
+	lib$set_cursor(&y1, &x1);
+}
+
+
+static put_line(window, string, length, flags)
+	 WIN window;
+	 UCHAR *string;
+	 USHORT length;
+	 USHORT flags;
+{
+/**************************************
+ *
+ *	p u t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out a bunch of stuff.
+ *
+ **************************************/
+	struct dsc$descriptor text;
+
+	text.dsc$w_length = length;
+	text.dsc$b_class = DSC$K_CLASS_S;
+	text.dsc$b_dtype = DSC$K_DTYPE_T;
+	text.dsc$a_pointer = string;
+
+	scr$put_line(&text, 0, flags);
+}
+
+
+static read_char(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	r e a d _ c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a character from the user.
+ *
+ **************************************/
+	SCHAR c;
+	SSHORT iosb[4];
+	int status;
+
+#define FUNCTION 	IO$_READVBLK | IO$M_NOECHO | IO$M_NOFILTR
+
+	status = sys$qiow(15,		/* Event flag */
+					  window->win_input,	/* Channel */
+					  FUNCTION,	/* Function */
+					  iosb,		/* IO status block */
+					  NULL,		/* AST address */
+					  NULL,		/* AST parameter */
+					  &c,		/* P1 (buffer) */
+					  1,		/* P2 (length) */
+					  NULL, NULL, NULL, NULL);	/* P3  - P6 */
+
+	return c;
+}
+
+
+static text(window, string, length, x, y, mode)
+	 WIN window;
+	 UCHAR *string;
+	 USHORT length, x, y;
+	 USHORT mode;
+{
+/**************************************
+ *
+ *	t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display some text in a given rendition.
+ *
+ **************************************/
+	SSHORT flag, sw;
+	UCHAR c, *p, *end, buffer[1024];
+
+	p = buffer;
+
+	for (end = string + length; string < end; string++) {
+		sw = TRUE;
+		switch (c = *string) {
+		case C_UL_CORNER:
+			c = 'l';
+			break;
+
+		case C_UR_CORNER:
+			c = 'k';
+			break;
+
+		case C_LL_CORNER:
+			c = 'm';
+			break;
+
+		case C_LR_CORNER:
+			c = 'j';
+			break;
+
+		case C_HORZ_BAR:
+			c = 'q';
+			break;
+
+		case C_VERT_BAR:
+			c = 'x';
+			break;
+
+		default:
+			sw = FALSE;
+		}
+		if (sw != graphics_mode) {
+			*p++ = 033;
+			*p++ = '(';
+			*p++ = (sw) ? '0' : 'B';
+			graphics_mode = sw;
+		}
+		*p++ = c;
+	}
+
+	position(window, x, y);
+
+	if (mode & SCR_reverse)
+		flag = 2;
+	else
+		flag = 0;
+
+	put_line(window, buffer, p - buffer, flag);
+}
+
+
+static update_window(window, x_offset, y_offset)
+	 WIN window;
+	 int x_offset, y_offset;
+{
+/**************************************
+ *
+ *	u p d a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update a window leaving the cursor at a given object location.
+ *
+ **************************************/
+	USHORT x, y;
+
+	x = x_offset + 1;
+	y = y_offset + 1;
+	lib$set_cursor(&y, &x);
+}
diff --git a/src/pyxis/vt100.cpp b/src/pyxis/vt100.cpp
new file mode 100644
index 0000000000..7c98e12d12
--- /dev/null
+++ b/src/pyxis/vt100.cpp
@@ -0,0 +1,655 @@
+/*
+ *	PROGRAM:	PYXIS Form Package
+ *	MODULE:		vt100.c
+ *	DESCRIPTION:	VT100 Terminal Manager (more like vt220)
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+
+#ifdef VMS
+#include <file.h>
+#include <types.h>
+#include <stat.h>
+
+#else
+#include <sys/types.h>
+#include <sys/file.h>
+#include <sys/stat.h>
+#include <sys/ioctl.h>
+#include <sgtty.h>
+#endif
+
+#include "../pyxis/pyxis.h"
+#include "../pyxis/scr.h"
+
+#ifndef O_RDWR
+#include <fcntl.h>
+#endif
+
+static USHORT width, height, graphics_mode;
+static int clear_window(), disable(), fini(), get_char(), text(),
+update_window();
+
+typedef struct seq {
+	UCHAR seq_key;
+	UCHAR *seq_sequence;
+} SEQ;
+
+static SEQ escape_sequences[] = {
+	(UCHAR) C_UP, (UCHAR *) "[A",
+	(UCHAR) C_DOWN, (UCHAR *) "[B",	/* cursor keys */
+	(UCHAR) C_RIGHT, (UCHAR *) "[C",
+	(UCHAR) C_LEFT, (UCHAR *) "[D",
+	(UCHAR) C_PF5, (UCHAR *) "[31~",	/* F17 function key */
+	(UCHAR) C_PF6, (UCHAR *) "[18~",	/* F7 function key */
+	(UCHAR) C_PF7, (UCHAR *) "[19~",	/* F8 function key */
+	(UCHAR) C_PF8, (UCHAR *) "[20~",	/* F9 function key */
+	(UCHAR) C_PF9, (UCHAR *) "[21~",	/* F10 function key */
+	(UCHAR) C_SCROLL_TOP, (UCHAR *) "[5~",	/* Prev Scrn */
+	(UCHAR) C_SCROLL_BOTTOM, (UCHAR *) "[6~",	/* Next Scrn */
+	NULL, NULL
+};
+
+static struct knm keyname_table[] = {
+	{C_PF1, "<PF1>"},
+	{C_PF2, "<PF2>"},
+	{C_PF3, "<PF3>"},
+	{C_PF4, "<PF4>"},
+	{C_PF5, "<F17>"},
+	{C_PF6, "<F7>"},
+	{C_PF7, "<F8>"},
+	{C_PF8, "<F9>"},
+	{C_PF9, "<F10>"},
+	{C_ENTER, "<ENTER>"},
+	{C_LEFT, "<left arrow>"},
+	{C_RIGHT, "<right arrow>"},
+	{C_UP, "<up arrow>"},
+	{C_DOWN, "<down arrow>"},
+	{C_DELETE, "<DELETE>"},
+	{C_SCROLL_TOP, "<PREV SCREEN> or <control-T>"},
+	{C_SCROLL_BOTTOM, "<NEXT SCREEN> of <control-B>"},
+	{C_ERASE, "<control-U>"},
+	{C_DELETE_NEXT, "<control-F>"},
+	{C_INSERT_OVERSTRIKE, "<control-A>"},
+	{C_GOTO_START, "<control-H>"},
+	{C_GOTO_END, "<control-E>"},
+	{C_EDIT, "<control-G>"},
+	{(UCHAR) 0, "<unknown key>"},
+};
+
+static UCHAR keypad[256], keypad_equiv[] = {
+	C_ENTER, 'M',
+	C_PF1, 'P',
+	C_PF2, 'Q',
+	C_PF3, 'R',
+	C_PF4, 'S',
+	'-', 'm',
+	',', 'l',
+	'.', 'n',
+	'0', 'p',
+	'1', 'q',
+	'2', 'r',
+	'3', 's',
+	'4', 't',
+	'5', 'u',
+	'6', 'v',
+	'7', 'w',
+	'8', 'x',
+	'9', 'y',
+	0, 0
+};
+
+
+VT100_create_window(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	V T 1 0 0 _ c r e a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new display window.
+ *
+ **************************************/
+	UCHAR *p;
+	int width, height;
+
+	window->win_keyname_table = keyname_table;
+
+/* Populate window with action routines */
+
+	window->win_clear = clear_window;
+	window->win_disable = disable;
+	window->win_fini = fini;
+	window->win_getchar = get_char;
+	window->win_text = text;
+	window->win_update = update_window;
+
+	if ((int) (window->win_input = (int *) open("/dev/tty", O_RDWR, 0660)) <
+		0)
+		return FAILURE;
+	else
+		if (!
+			(window->win_output =
+			 (int *) fdopen((int) window->win_input, "w"))) return FAILURE;
+
+	enable_forms(window);
+
+	for (p = keypad_equiv; *p; p += 2)
+		keypad[p[1]] = p[0];
+
+/* If we can get the screen size, check if adjustment is
+   necessary */
+
+	if (get_size(window, &width, &height)) {
+		if (window->win_width && window->win_width > width) {
+			fputs("\33[?3h", (FILE *) window->win_output);
+			window->win_flags |= WIN_reset_80;
+			get_size(window, &width, &height);
+		}
+		window->win_height = (window->win_height) ?
+			MIN(window->win_height, height) : height;
+		window->win_width = (window->win_width) ?
+			MIN(window->win_width, width) : width;
+	}
+	else {
+		window->win_width = 80;
+		window->win_height = 24;
+	}
+
+	return SUCCESS;
+}
+
+
+static clear_window(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	c l e a r _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zap a window clean.
+ *
+ **************************************/
+
+/* Set normal characters, keypad application mode */
+
+	fputs("\33[0m\33=", (FILE *) window->win_output);
+
+/* Clear screen */
+
+	fprintf((FILE *) window->win_output, "\33[2J");
+}
+
+
+static disable(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	d i s a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make window disappear.
+ *
+ **************************************/
+
+	disable_forms(window);
+	window->win_flags |= WIN_disabled;
+}
+
+
+#ifndef LINUX
+static disable_forms(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	d i s a b l e _ f o r m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Undo forms more for terminal.
+ *
+ **************************************/
+	int n;
+
+#ifndef VMS
+	struct sgttyb cruft;
+
+	n = ioctl(window->win_input, TIOCGETP, &cruft);
+
+/* If CBREAK is not supported by ioctl, use RAW.  (for HP)  */
+
+#ifndef CBREAK
+	cruft.sg_flags &= ~RAW;		/* RAW off */
+#else
+	cruft.sg_flags &= ~CBREAK;	/* CBREAK off */
+#endif
+
+	cruft.sg_flags |= ECHO;		/* ECHO on */
+	n = ioctl(window->win_input, TIOCSETP, &cruft);
+#endif
+
+/* Set normal characters, numeric keypad, non-graphics */
+
+	fputs("\33[0m\33>\33(B\n", (FILE *) window->win_output);
+	clear_window(window);
+	fflush((FILE *) window->win_output);
+	window->win_current_mode = 0;
+}
+#else /** Linux Stub **/
+static disable_forms(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	d i s a b l e _ f o r m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	stub for linux
+ *
+ **************************************/
+}
+#endif
+
+
+
+#ifndef LINUX
+static enable_forms(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	e n a b l e _ f o r m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put terminal in forms mode.
+ *
+ **************************************/
+	int n;
+
+#ifndef VMS
+	struct sgttyb cruft;
+
+	n = ioctl(window->win_input, TIOCGETP, &cruft);
+
+/* If CBREAK is not supported by ioctl, use RAW.  (for HP)  */
+
+#ifndef CBREAK
+	cruft.sg_flags |= RAW;		/* RAW on */
+#else
+	cruft.sg_flags |= CBREAK;	/* CBREAK on */
+#endif
+
+	cruft.sg_flags &= ~ECHO;	/* ECHO off */
+	n = ioctl(window->win_input, TIOCSETP, &cruft);
+#endif
+
+	window->win_current_mode = 0;
+	window->win_flags &= ~WIN_disabled;
+	clear_window(window);
+}
+#else  /** stub function for LINUX **/
+static enable_forms(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	e n a b l e _ f o r m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stubb for LINUX
+ *
+ **************************************/
+}
+#endif
+
+
+static fini(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sign off the screen package.
+ *
+ **************************************/
+
+	if (window->win_flags & WIN_reset_80)
+		fputs("\33[?3l", (FILE *) window->win_output);
+
+	disable_forms(window);
+		fclose((FILE *) window->win_output);
+}
+
+
+static get_char(window, x, y)
+	 WIN window;
+{
+/**************************************
+ *
+ *	g e t _ c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a character from the user.
+ *
+ **************************************/
+	int n;
+	SEQ *sequence;
+	UCHAR buffer[16], *p, *q, c;
+
+	position(window, x, y);
+	fflush((FILE *) window->win_output);
+
+	for (;;) {
+		if (!(n = get_input(window, buffer)))
+			fprintf(stderr, "read failed\n");
+		if (n == 1)
+			switch (buffer[0]) {
+			case '\n':
+			case '\r':
+				return '\n';
+
+			case 'T' - 0100:
+				return C_SCROLL_TOP;
+			case 'B' - 0100:
+				return C_SCROLL_BOTTOM;
+			case 'Z' - 0100:
+				return C_EOF;
+
+/* Edit mode */
+
+			case 'F' - 0100:
+				return C_DELETE_NEXT;
+			case 'G' - 0100:
+				return C_EDIT;
+			case 'H' - 0100:
+				return C_GOTO_START;
+			case 'E' - 0100:
+				return C_GOTO_END;
+			case 'A' - 0100:
+				return C_INSERT_OVERSTRIKE;
+			case 'U' - 0100:
+				return C_ERASE;
+			default:
+				return buffer[0];
+			}
+		buffer[n] = 0;
+		for (sequence = escape_sequences; q = sequence->seq_sequence;
+			 sequence++)
+			for (p = buffer + 1; *p == *q; p++, q++)
+				if (!*p)
+					return sequence->seq_key;
+	}
+}
+
+
+static get_input(window, buffer)
+	 WIN window;
+	 UCHAR *buffer;
+{
+/**************************************
+ *
+ *	g e t _ i n p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a single character or escape sequence from terminal.
+ *	Return number of characters read.
+ *
+ **************************************/
+	UCHAR *p, c;
+
+	p = buffer;
+	*p++ = c = read_char(window);
+
+	if (!c)
+		return 0;
+
+	if (c != 033)
+		return 1;
+
+/* Escape or control sequence sequence coming in */
+
+	*p++ = c = read_char(window);
+
+/* If this a keypad character, handling it specially */
+
+	if (c == 'O') {
+		c = read_char(window);
+		buffer[0] = keypad[c];
+		return 1;
+	}
+
+/* Handle escape sequences and control sequences slightly differently */
+
+	if (c >= ' ' && c < '/')
+		for (;;) {
+			*p++ = c = read_char(window);
+			if (c >= '0')
+				break;
+		}
+	else
+		for (;;) {
+			*p++ = c = read_char(window);
+			if (c >= '@')
+				break;
+		}
+
+	return p - buffer;
+}
+
+
+static get_size(window, width, height)
+	 WIN window;
+	 int *width, *height;
+{
+/**************************************
+ *
+ *	g e t _ s i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to get size of terminal.
+ *
+ **************************************/
+	TEXT buffer[32];
+	int n;
+
+/* Position cursor to lower right and request report */
+
+	position(window, 999, 999);
+	fputs("\33[6n", (FILE *) window->win_output);
+	fflush((FILE *) window->win_output);
+	n = get_input(window, buffer);
+	buffer[n] = 0;
+	n = sscanf(buffer, "\33[%d;%dR", height, width);
+
+	return (n == 2);
+}
+
+
+static position(window, x, y)
+	 WIN window;
+	 SSHORT x, y;
+{
+/**************************************
+ *
+ *	p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Position cursor to given location.
+ *
+ **************************************/
+	FILE *file;
+	USHORT temp;
+	UCHAR c;
+
+	if (window->win_flags & WIN_disabled)
+		enable_forms(window);
+
+	file = (FILE *) window->win_output;
+	fprintf(file, "\33[%d;%dH", y + 1, x + 1);
+}
+
+
+static read_char(window)
+	 WIN window;
+{
+/**************************************
+ *
+ *	r e a d _ c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a character from the user.
+ *
+ **************************************/
+	SCHAR c;
+
+	if (read(window->win_input, &c, 1) <= 0)
+		return 0;
+
+	return c;
+}
+
+
+
+
+static text(window, string, length, x, y, mode)
+	 WIN window;
+	 UCHAR *string;
+	 SSHORT length, x, y;
+	 USHORT mode;
+{
+/**************************************
+ *
+ *	t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert text in a given location.
+ *
+ **************************************/
+	FILE *file;
+	USHORT temp, sw;
+	UCHAR *end, c;
+
+	position(window, x, y);
+	file = (FILE *) window->win_output;
+
+	if (mode != window->win_current_mode) {
+		fputs("\33[0", file);
+		if (mode & SCR_reverse)
+			fputs(";7", file);
+		if (mode & SCR_bold)
+			fputs(";1", file);
+		if (mode & SCR_underline)
+			fputs(";4", file);
+		fputs("m", file);
+		window->win_current_mode = mode;
+	}
+
+	for (end = string + length; string < end; string++) {
+		sw = TRUE;
+		switch (c = *string) {
+		case C_UL_CORNER:
+			c = 'l';
+			break;
+
+		case C_UR_CORNER:
+			c = 'k';
+			break;
+
+		case C_LL_CORNER:
+			c = 'm';
+			break;
+
+		case C_LR_CORNER:
+			c = 'j';
+			break;
+
+		case C_HORZ_BAR:
+			c = 'q';
+			break;
+
+		case C_VERT_BAR:
+			c = 'x';
+			break;
+
+		default:
+			sw = FALSE;
+		}
+		if (sw != graphics_mode) {
+			fputs((sw) ? "\33(0" : "\33(B", file);
+			graphics_mode = sw;
+		}
+		putc(c, file);
+	}
+
+/*fflush (file);*/
+}
+
+
+static update_window(window, x, y)
+	 WIN window;
+	 int x, y;
+{
+/**************************************
+ *
+ *	u p d a t e _ w i n d o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Update a window leaving the cursor at a given object location.
+ *
+ **************************************/
+
+	position(window, x, y);
+}
diff --git a/src/qli/all.cpp b/src/qli/all.cpp
new file mode 100644
index 0000000000..136b3165b9
--- /dev/null
+++ b/src/qli/all.cpp
@@ -0,0 +1,513 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		all.c
+ *	DESCRIPTION:	Internal block allocator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: all.cpp,v 1.1.1.1 2001-05-23 13:26:34 tamlin Exp $
+*/
+
+/***************************************************
+   THIS MODULE HAS SEVERAL KISSING COUSINS; IF YOU
+   SHOULD CHANGE ONE OF THE MODULES IN THE FOLLOWING
+   LIST, PLEASE BE SURE TO CHECK THE OTHERS FOR
+   SIMILAR CHANGES:
+
+        /gds/maint/pyxis/all.c
+                  /dsql/all.c
+                  /jrd/all.c
+                  /pipe/allp.c
+                  /qli/all.c
+                  /remote/allr.c
+                  /gpre/msc.c
+
+   - THANK YOU
+***************************************************/
+
+#include <string.h>
+#include "../qli/everything.h"
+#include "../qli/all_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/mov_proto.h"
+#include "../jrd/gds_proto.h"
+
+#define BLKDEF(type, root, tail) sizeof (struct root), tail,
+
+static struct {
+	SSHORT typ_root_length;
+	SSHORT typ_tail_length;
+} block_sizes[] = {
+	0, 0,
+#include "../qli/blk.h"
+0};
+
+#undef BLKDEF
+
+static void extend_pool(PLB, USHORT);
+
+static VEC pools;
+
+#define MIN_ALLOCATION	1024
+
+
+BLK ALLQ_alloc( PLB pool, UCHAR type, int count)
+{
+/**************************************
+ *
+ *	A L L Q _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a block from a given pool and initialize the block.
+ *	This is the primary block allocation routine.
+ *
+ **************************************/
+	register FRB block;
+	FRB free, *best, *ptr;
+	HNK hunk;
+	USHORT l;
+	register USHORT size, *p;
+	SLONG best_tail, tail;
+
+	if (type <= (SCHAR) type_MIN || type >= (SCHAR) type_MAX)
+		BUGCHECK(1);			/* Msg1 bad block type */
+
+/* Compute block length */
+
+	size = block_sizes[type].typ_root_length;
+
+	if (tail = block_sizes[type].typ_tail_length)
+		size += count * tail;
+
+#ifndef VMS
+	size = FB_ALIGN(size, ALIGNMENT);
+#else
+	size = ((size + ALIGNMENT - 1) & ~(ALIGNMENT - 1));
+#endif
+
+	if (size <= 4 || size > 65535)
+		BUGCHECK(2);			/* Msg2 bad block size */
+
+/* Find best fit.  Best fit is defined to be the free block of SHORTest
+   tail.  If there isn't a fit, extend the pool and try, try again. */
+
+	while (TRUE) {
+		best = NULL;
+		best_tail = 32767;
+		for (ptr = &pool->plb_free; (free = *ptr); ptr = &free->frb_next)
+			if (free->frb_next
+				&& (SCHAR HUGE_PTR *) free >=
+				(SCHAR HUGE_PTR *) free->frb_next) BUGCHECK(434);	/* memory pool free list is incorrect */
+			else if ((tail = free->frb_header.blk_length - size) >= 0
+					 && tail < best_tail) {
+				best = ptr;
+				best_tail = tail;
+				if (tail == 0)
+					break;
+			}
+		if (best)
+			break;
+		extend_pool(pool, size);
+	}
+
+/* We've got our free block.  If there's enough left of the free block
+   after taking out our block, chop out out block.  If not, allocate
+   the entire free block as our block (a little extra won't hurt). */
+
+	free = *best;
+	if (best_tail > sizeof(struct frb)) {
+		l = free->frb_header.blk_length - size;
+		block = (FRB) ((SCHAR *) free + l);
+		free->frb_header.blk_length -= size;
+	}
+	else {
+		*best = free->frb_next;
+		size += best_tail;
+		block = free;
+	}
+
+	block->frb_header.blk_type = type;
+	block->frb_header.blk_pool_id = pool->plb_pool_id;
+	block->frb_header.blk_length = size;
+
+	if (size -= sizeof(struct blk))
+		memset((SCHAR *) block + sizeof(struct blk), 0, size);
+
+	return (BLK) block;
+}
+
+
+BLK ALLQ_extend(BLK * pointer, int size)
+{
+/**************************************
+ *
+ *	A L L Q _ e x t e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend a repeating block, copying the constant part.
+ *
+ **************************************/
+	BLK block, new;
+	register int length;
+
+	block = *pointer;
+	new = (BLK) ALLQ_alloc(pools->vec_object[block->blk_pool_id],
+						   block->blk_type, size);
+	length = MIN(block->blk_length, new->blk_length) - sizeof(struct blk);
+	MOVQ_fast((UCHAR *) block + sizeof(struct blk),
+			  (UCHAR *) new + sizeof(struct blk), length);
+	ALLQ_release(block);
+
+	if (new->blk_type == (SCHAR) type_vec)
+		((VEC) new)->vec_count = size;
+	else if (new->blk_type == (SCHAR) type_vcl)
+		((VCL) new)->vcl_count = size;
+
+	*pointer = new;
+
+	return new;
+}
+
+
+void ALLQ_fini(void)
+{
+/**************************************
+ *
+ *	A L L Q _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get rid of everything.
+ *
+ **************************************/
+	register PLB pool, *vector, *until;
+	register HNK hunks, hunk;
+
+	for (vector = (PLB *) pools->vec_object + pools->vec_count,
+		 until = (PLB *) pools->vec_object; --vector >= until;)
+		if (pool = *vector)
+			for (hunks = pool->plb_hunks; hunk = hunks;) {
+				hunks = hunk->hnk_next;
+				ALLQ_free(hunk->hnk_address);
+			}
+}
+
+
+void ALLQ_free( SCHAR * memory)
+{
+/**************************************
+ *
+ *	A L L Q _ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Give space back to system.
+ *
+ **************************************/
+
+	gds__free(memory);
+}
+
+
+void ALLQ_init(void)
+{
+/**************************************
+ *
+ *	A L L Q _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the pool system.
+ *
+ **************************************/
+	SLONG temp_vector[20];
+	PLB pool;
+
+	pools = (VEC) temp_vector;
+	pools->vec_count = 1;
+	pools->vec_object[0] = NULL;
+
+	QLI_default_pool = QLI_permanent_pool = pool = ALLQ_pool();
+	pools = (VEC) ALLQ_alloc(pool, type_vec, 10);
+	pools->vec_count = 10;
+	pools->vec_object[0] = (BLK) pool;
+}
+
+
+SCHAR *ALLQ_malloc(SLONG size)
+{
+/**************************************
+ *
+ *	A L L Q _ m a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get memory from system.
+ *
+ **************************************/
+	register SCHAR *memory;
+
+	if (memory = (SCHAR *) gds__alloc(size)) {
+#ifdef DEBUG_GDS_ALLOC
+		gds_alloc_flag_unfreed((void *) memory);	/* Don't care about QLI leaks */
+#endif
+		return memory;
+	}
+
+	IBERROR(5);					/* Msg5 "memory gonzo" */
+}
+
+
+PLB ALLQ_pool(void)
+{
+/**************************************
+ *
+ *	A L L Q _ p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a new pool.  This is done by creating a tempory
+ *	pool block on the stack, then allocating a real pool block.
+ *	In SHORT, by mirrors.
+ *
+ **************************************/
+	struct plb temp_pool;
+	register PLB pool;
+	register int pool_id;
+
+/* Start by assigning a pool id */
+
+	for (pool_id = 0; pool_id < pools->vec_count; pool_id++)
+		if (!(pools->vec_object[pool_id]))
+			break;
+
+	if (pool_id >= pools->vec_count)
+		ALLQ_extend(&pools, pool_id + 10);
+
+	pools->vec_object[pool_id] = (BLK) & temp_pool;
+	temp_pool.plb_free = NULL;
+	temp_pool.plb_hunks = NULL;
+	temp_pool.plb_pool_id = pool_id;
+	if (pool_id == 0)
+		QLI_permanent_pool = &temp_pool;
+
+	pool = (PLB) ALLQ_alloc(&temp_pool, type_plb, 0);
+	pool->plb_pool_id = pool_id;
+	pool->plb_free = temp_pool.plb_free;
+	pool->plb_hunks = temp_pool.plb_hunks;
+	pools->vec_object[pool_id] = (BLK) pool;
+
+	if (pool_id == 0)
+		QLI_permanent_pool = pool;
+
+	return pool;
+}
+
+
+void ALLQ_push( BLK object, register LLS * stack)
+{
+/**************************************
+ *
+ *	A L L Q _ p u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Push an object on an LLS stack.
+ *
+ **************************************/
+	register LLS node;
+	PLB pool;
+
+	pool = QLI_default_pool;
+
+	if (node = pool->plb_lls)
+		pool->plb_lls = node->lls_next;
+	else
+		node = (LLS) ALLQ_alloc(pool, type_lls, 0);
+
+	node->lls_object = object;
+	node->lls_next = *stack;
+	*stack = node;
+}
+
+
+BLK ALLQ_pop(register LLS * stack)
+{
+/**************************************
+ *
+ *	A L L Q _ p o p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pop an object off a linked list stack.  Save the node for
+ *	further use.
+ *
+ **************************************/
+	register LLS node;
+	register PLB pool;
+
+	node = *stack;
+	pool = (PLB) pools->vec_object[node->lls_header.blk_pool_id];
+	*stack = node->lls_next;
+	node->lls_next = pool->plb_lls;
+	pool->plb_lls = node;
+
+	return node->lls_object;
+}
+
+
+void ALLQ_release( register FRB block)
+{
+/**************************************
+ *
+ *	A L L Q _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a block to its pool.  If it is contiguous to
+ *	another free block, combine them.  Otherwise link it
+ *	into the free block linked list (kept in ascending order
+ *	of addresses).
+ *
+ **************************************/
+	register FRB prior, free;
+	FRB *ptr;
+	PLB pool;
+	int pool_id;
+
+	block->frb_header.blk_type = (SCHAR) type_frb;
+	pool_id = block->frb_header.blk_pool_id;
+
+	if (pool_id >= pools->vec_count ||
+		!(pool = (PLB) pools->vec_object[pool_id])) BUGCHECK(4);	/* Msg4 bad pool id */
+
+	prior = NULL;
+	for (ptr = &pool->plb_free; free = *ptr;
+		 prior = free, ptr =
+		 &free->frb_next) if ((SCHAR HUGE_PTR *) block <=
+							  (SCHAR HUGE_PTR *) free) break;
+
+	if ((SCHAR HUGE_PTR *) block == (SCHAR HUGE_PTR *) free)
+		BUGCHECK(435);			/* block released twice */
+
+/* Merge block into list first, then try to combine blocks */
+
+	block->frb_next = free;
+	*ptr = block;
+
+/* Try to merge the free block with the next one down. */
+
+	if (free) {
+		if ((SCHAR HUGE_PTR *) block + block->frb_header.blk_length ==
+			(SCHAR HUGE_PTR *) free) {
+			block->frb_header.blk_length += free->frb_header.blk_length;
+			block->frb_next = free->frb_next;
+		}
+		else if ((SCHAR HUGE_PTR *) block + block->frb_header.blk_length >
+				 (SCHAR HUGE_PTR *) free)
+			BUGCHECK(436);		/* released block overlaps following free block */
+	}
+
+/* Try and merge the block with the prior free block */
+
+	if (prior) {
+		if ((SCHAR HUGE_PTR *) prior + prior->frb_header.blk_length ==
+			(SCHAR HUGE_PTR *) block) {
+			prior->frb_header.blk_length += block->frb_header.blk_length;
+			prior->frb_next = block->frb_next;
+		}
+		else if ((SCHAR HUGE_PTR *) prior + prior->frb_header.blk_length >
+				 (SCHAR HUGE_PTR *) block)
+			BUGCHECK(437);		/* released block overlaps prior free block */
+	}
+}
+
+
+void ALLQ_rlpool( PLB pool)
+{
+/**************************************
+ *
+ *	A L L Q _ r l p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a storage pool.  This involves nothing more than returning
+ *	hunks to the free hunk list.
+ *
+ **************************************/
+	register HNK hunk, hunks;
+
+	pools->vec_object[pool->plb_pool_id] = NULL;
+
+	for (hunks = pool->plb_hunks; hunk = hunks;) {
+		hunks = hunk->hnk_next;
+		gds__free(hunk->hnk_address);
+	}
+}
+
+
+static void extend_pool( PLB pool, USHORT count)
+{
+/**************************************
+ *
+ *	e x t e n d _ p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extend a pool by at least enough to accomodate a block
+ *	of given size.
+ *
+ **************************************/
+	register HNK hunk, *ptr;
+	register BLK block;
+	SLONG size;
+
+	size =
+		(count + sizeof(struct hnk) + MIN_ALLOCATION - 1) & ~(MIN_ALLOCATION -
+															  1);
+
+	if ((USHORT) size < count)
+		IBERROR(481);			/* msg 481 unsuccessful attempt to extend pool beyond 64KB */
+
+	block = (BLK) ALLQ_malloc(size);
+	block->blk_length = size;
+	block->blk_type = (SCHAR) type_frb;
+	block->blk_pool_id = pool->plb_pool_id;
+	ALLQ_release(block);
+
+	hunk = (HNK) ALLQ_alloc(pool, type_hnk, 0);
+	hunk->hnk_address = (SCHAR *) block;
+	hunk->hnk_length = size;
+	hunk->hnk_next = pool->plb_hunks;
+	pool->plb_hunks = hunk;
+}
diff --git a/src/qli/all_proto.h b/src/qli/all_proto.h
new file mode 100644
index 0000000000..7d55828f4c
--- /dev/null
+++ b/src/qli/all_proto.h
@@ -0,0 +1,39 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		all_proto.h
+ *	DESCRIPTION:	Prototype header file for all.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_ALL_PROTO_H_
+#define _QLI_ALL_PROTO_H_
+
+extern struct blk	*ALLQ_alloc (struct plb *, UCHAR, int);
+extern struct blk	*ALLQ_extend (struct blk **, int);
+extern void		ALLQ_fini (void);
+extern void		ALLQ_free (SCHAR *);
+extern void		ALLQ_init (void);
+extern SCHAR		*ALLQ_malloc (SLONG);
+extern struct plb	*ALLQ_pool (void);
+extern void		ALLQ_push (struct blk *, register struct lls **);
+extern struct blk	*ALLQ_pop (register struct lls **);
+extern void		ALLQ_release (register struct frb *);
+extern void		ALLQ_rlpool (struct plb *);
+
+#endif /* _QLI_ALL_PROTO_H_ */
diff --git a/src/qli/blk.h b/src/qli/blk.h
new file mode 100644
index 0000000000..b000230984
--- /dev/null
+++ b/src/qli/blk.h
@@ -0,0 +1,58 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		blk.h
+ *	DESCRIPTION:	Block type definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+BLKDEF (type_frb, frb, 0)
+BLKDEF (type_hnk, hnk, 0)
+BLKDEF (type_plb, plb, 0)
+BLKDEF (type_vec, vec, sizeof (((VEC) 0)->vec_object[0]))
+BLKDEF (type_dbb, dbb, 1)
+BLKDEF (type_rel, rel, 0)
+BLKDEF (type_fld, fld, 1)
+BLKDEF (type_vcl, vcl, sizeof (((VCL) 0)->vcl_long[0]))
+BLKDEF (type_req, req, 0)				/* Request block */
+BLKDEF (type_nod, nod, sizeof (((NOD) 0)->nod_arg[0]))
+BLKDEF (type_syn, nod, sizeof (((SYN) 0)->syn_arg[0]))
+BLKDEF (type_lls, lls, 0)				/* linked list stack */
+BLKDEF (type_str, str, 1)				/* random string block */
+BLKDEF (type_tok, tok, 1)				/* token block */
+BLKDEF (type_sym, sym, 1)				/* symbol block */
+BLKDEF (type_msg, msg, 0)				/* Message block */
+BLKDEF (type_nam, nam, 1)				/* Name node */
+BLKDEF (type_ctx, ctx, 0)				/* Context block */
+BLKDEF (type_con, con, 1)				/* Constant block */
+BLKDEF (type_itm, itm, 0)				/* Print item */
+BLKDEF (type_par, par, 0)				/* Parameter block */
+BLKDEF (type_line, line, 1)				/* Input line block */
+BLKDEF (type_brk, brk, 0)
+BLKDEF (type_rpt, rpt, 0)
+BLKDEF (type_pic, pic, 0)
+BLKDEF (type_prt, prt, 0)
+BLKDEF (type_map, map, 0)
+BLKDEF (type_qpr, qpr, 0)
+BLKDEF (type_qfn, qfn, 0)
+BLKDEF (type_qfl, qfl, 0)
+BLKDEF (type_frm, frm, 1)
+BLKDEF (type_ffl, ffl, 1)
+BLKDEF (type_men, men, 1)
+BLKDEF (type_fun, fun, sizeof (((FUN) 0)->fun_arg[0]))
+BLKDEF (type_rlb, rlb, 0)				/* Request language block */
diff --git a/src/qli/comma_proto.h b/src/qli/comma_proto.h
new file mode 100644
index 0000000000..a0e974f241
--- /dev/null
+++ b/src/qli/comma_proto.h
@@ -0,0 +1,39 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		comma_proto.h
+ *	DESCRIPTION:	Prototype header file for command.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_COMMA_PROTO_H_
+#define _QLI_COMMA_PROTO_H_
+
+extern int	CMD_check_ready (void);
+extern void	CMD_copy_procedure (struct syn *);
+extern void	CMD_define_procedure (struct syn *);
+extern void	CMD_delete_proc (struct syn *);
+extern void	CMD_edit_proc (struct syn *);
+extern void	CMD_extract (struct syn *);
+extern void	CMD_finish (struct syn *);
+extern void	CMD_rename_proc (struct syn *);
+extern void	CMD_set (struct syn *);
+extern void	CMD_shell (struct syn *);
+extern void	CMD_transaction (struct syn *);
+
+#endif /* _QLI_COMMA_PROTO_H_ */
diff --git a/src/qli/command.cpp b/src/qli/command.cpp
new file mode 100644
index 0000000000..e0c0612243
--- /dev/null
+++ b/src/qli/command.cpp
@@ -0,0 +1,632 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		command.c
+ *	DESCRIPTION:	Interprete commands
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../qli/dtr.h"
+#include "../qli/parse.h"
+#include "../qli/compile.h"
+#include "../qli/exe.h"
+#include "../jrd/license.h"
+#include "../qli/all_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/exe_proto.h"
+#include "../qli/meta_proto.h"
+#include "../qli/proc_proto.h"
+#include "../jrd/gds_proto.h"
+#ifdef VMS
+#include <descrip.h>
+#endif
+
+static void dump_procedure(DBB, IB_FILE *, TEXT *, USHORT, void *);
+static void extract_procedure(IB_FILE *, TEXT *, USHORT, DBB, SLONG *);
+
+extern USHORT QLI_lines, QLI_columns, QLI_form_mode, QLI_name_columns;
+
+static SCHAR db_items[] =
+	{ gds__info_page_size, gds__info_allocation, gds__info_end };
+
+
+int CMD_check_ready(void)
+{
+/**************************************
+ *
+ *	C M D _ c h e c k _ r e a d y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make sure at least one database is ready.  If not, give a 
+ *	message.
+ *
+ **************************************/
+
+	if (QLI_databases)
+		return FALSE;
+
+	ERRQ_msg_put(95, NULL, NULL, NULL, NULL, NULL);	/* Msg95 No databases are currently ready */
+
+	return TRUE;
+}
+
+
+void CMD_copy_procedure( SYN node)
+{
+/**************************************
+ *
+ *	C M D _ c o p y  _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy one procedure to another, possibly 
+ *	across databases
+ *
+ **************************************/
+	QPR new_proc, old_proc;
+
+	old_proc = (QPR) node->syn_arg[0];
+	new_proc = (QPR) node->syn_arg[1];
+
+	PRO_copy_procedure(old_proc->qpr_database,
+					   old_proc->qpr_name->nam_string,
+					   new_proc->qpr_database,
+					   new_proc->qpr_name->nam_string);
+}
+
+
+void CMD_define_procedure( SYN node)
+{
+/**************************************
+ *
+ *	C M D _ d e f i n e  _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a procedure in the named database
+ *	or in the most recently readied database.
+ *
+ **************************************/
+	QPR proc;
+
+	proc = (QPR) node->syn_arg[0];
+
+	if (!(proc->qpr_database))
+		proc->qpr_database = QLI_databases;
+
+	PRO_create(proc->qpr_database, proc->qpr_name->nam_string);
+}
+
+
+void CMD_delete_proc( SYN node)
+{
+/**************************************
+ *
+ *	C M D _ d e l e t e _ p r o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a procedure in the named database
+ *	or in the most recently readied database.
+ *
+ **************************************/
+	QPR proc;
+
+	proc = (QPR) node->syn_arg[0];
+
+	if (!proc->qpr_database)
+		proc->qpr_database = QLI_databases;
+
+	if (PRO_delete_procedure(proc->qpr_database, proc->qpr_name->nam_string))
+		return;
+
+	ERRQ_msg_put(88, proc->qpr_name->nam_string,	/* Msg88 Procedure %s not found in database %s */
+				 proc->qpr_database->dbb_symbol->sym_string, NULL, NULL,
+				 NULL);
+}
+
+
+void CMD_edit_proc( SYN node)
+{
+/**************************************
+ *
+ *	C M D _ e d i t _ p r o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit a procedure in the specified database.
+ *
+ **************************************/
+	QPR proc;
+
+	proc = (QPR) node->syn_arg[0];
+	if (!proc->qpr_database)
+		proc->qpr_database = QLI_databases;
+
+	PRO_edit_procedure(proc->qpr_database, proc->qpr_name->nam_string);
+}
+
+
+void CMD_extract( SYN node)
+{
+/**************************************
+ *
+ *	C M D _ e x t r a c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extract a series of procedures.
+ *
+ **************************************/
+	SYN list, *ptr, *end;
+	QPR proc;
+	DBB database;
+	NAM name;
+	IB_FILE *file;
+	int *blob;
+
+	file = EXEC_open_output(node->syn_arg[1]);
+
+	if (list = node->syn_arg[0])
+		for (ptr = list->syn_arg, end = ptr + list->syn_count; ptr < end;
+			 ptr++) {
+			proc = (QPR) * ptr;
+			if (!(database = proc->qpr_database))
+				database = QLI_databases;
+			name = proc->qpr_name;
+			if (!(blob = PRO_fetch_procedure(database, name->nam_string))) {
+				ERRQ_msg_put(89,	/* Msg89 Procedure %s not found in database %s */
+							 name->nam_string,
+							 database->dbb_symbol->sym_string, NULL, NULL,
+							 NULL);
+				continue;
+			}
+			dump_procedure(database, file, name->nam_string, name->nam_length,
+						   blob);
+		}
+	else {
+		CMD_check_ready();
+		for (database = QLI_databases; database;
+			 database =
+			 database->dbb_next) PRO_scan(database, extract_procedure, file);
+	}
+
+#ifdef WIN_NT
+	if (((NOD) node->syn_arg[1])->nod_arg[e_out_pipe])
+		_pclose(file);
+	else
+#endif
+		ib_fclose(file);
+}
+
+
+void CMD_finish( SYN node)
+{
+/**************************************
+ *
+ *	C M D _ f i n i s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform FINISH.  Either finish listed databases or everything.
+ *
+ **************************************/
+	USHORT i;
+
+	if (node->syn_count == 0) {
+		while (QLI_databases)
+			MET_finish(QLI_databases);
+		return;
+	}
+
+	for (i = 0; i < node->syn_count; i++)
+		MET_finish(node->syn_arg[i]);
+}
+
+
+void CMD_rename_proc( SYN node)
+{
+/**************************************
+ *
+ *	C M D _ r e n a m e _ p r o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Rename a procedure in the named database,
+ *	or the most recently readied database.
+ *
+ **************************************/
+	QPR old_proc, new_proc;
+	DBB database;
+	NAM old_name, new_name;
+
+	old_proc = (QPR) node->syn_arg[0];
+	new_proc = (QPR) node->syn_arg[1];
+
+	if (!(database = old_proc->qpr_database))
+		database = QLI_databases;
+
+	if (new_proc->qpr_database && (new_proc->qpr_database != database))
+		IBERROR(84);			/* Msg84 Procedures can not be renamed across databases. Try COPY */
+	old_name = old_proc->qpr_name;
+	new_name = new_proc->qpr_name;
+
+	if (PRO_rename_procedure
+		(database, old_name->nam_string, new_name->nam_string)) return;
+
+	ERRQ_error(85,				/* Msg85 Procedure %s not found in database %s */
+			   old_name->nam_string, database->dbb_symbol->sym_string, NULL,
+			   NULL, NULL);
+}
+
+
+void CMD_set( SYN node)
+{
+/**************************************
+ *
+ *	C M D _ s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set various options.
+ *
+ **************************************/
+	SYN *ptr, value;
+	ENUM set_t sw;
+	USHORT i, foo, length;
+	CON string;
+	TEXT *name;
+
+	ptr = node->syn_arg;
+
+	for (i = 0; i < node->syn_count; i++) {
+		foo = (USHORT) * ptr++;
+		sw = (ENUM set_t) foo;
+		value = *ptr++;
+		switch (sw) {
+		case set_blr:
+			QLI_blr = (USHORT) value;
+			break;
+
+		case set_statistics:
+			QLI_statistics = (USHORT) value;
+			break;
+
+		case set_columns:
+			QLI_name_columns = QLI_columns = (USHORT) value;
+			break;
+
+		case set_lines:
+			QLI_lines = (USHORT) value;
+			break;
+
+		case set_semi:
+			QLI_semi = (USHORT) value;
+			break;
+
+		case set_echo:
+			QLI_echo = (USHORT) value;
+			break;
+
+		case set_form:
+#ifdef NO_PYXIS
+			IBERROR(484);		/* FORMs not supported */
+#else
+			QLI_form_mode = (USHORT) value;
+#endif
+			break;
+
+		case set_password:
+			string = (CON) value;
+			length =
+				MIN(string->con_desc.dsc_length,
+					sizeof(QLI_default_password));
+			strncpy(QLI_default_password, string->con_data, length);
+			QLI_default_password[length] = 0;
+			break;
+
+		case set_prompt:
+			string = (CON) value;
+			if (string->con_desc.dsc_length > sizeof(QLI_prompt_string))
+				ERRQ_error(86, NULL, NULL, NULL, NULL, NULL);	/* Msg86 substitute prompt string too long */
+			strncpy(QLI_prompt_string, string->con_data,
+					string->con_desc.dsc_length);
+			QLI_prompt_string[string->con_desc.dsc_length] = 0;
+			break;
+
+		case set_continuation:
+			string = (CON) value;
+			if (string->con_desc.dsc_length > sizeof(QLI_cont_string))
+				ERRQ_error(87, NULL, NULL, NULL, NULL, NULL);	/* Msg87 substitute prompt string too long */
+			strncpy(QLI_cont_string, string->con_data,
+					string->con_desc.dsc_length);
+			QLI_cont_string[string->con_desc.dsc_length] = 0;
+			break;
+
+		case set_matching_language:
+			if (QLI_matching_language)
+				ALLQ_release(QLI_matching_language);
+			if (!(string = (CON) value)) {
+				QLI_matching_language = NULL;
+				break;
+			}
+			QLI_matching_language =
+				(CON) ALLOCPV(type_con, string->con_desc.dsc_length);
+			strncpy(QLI_matching_language->con_data, string->con_data,
+					string->con_desc.dsc_length);
+			QLI_matching_language->con_desc.dsc_dtype = dtype_text;
+			QLI_matching_language->con_desc.dsc_address =
+				QLI_matching_language->con_data;
+			QLI_matching_language->con_desc.dsc_length =
+				string->con_desc.dsc_length;
+			break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+		case set_euc_justify:
+			QLI_euc_justify = (USHORT) value;
+			break;
+#endif
+
+		case set_user:
+			string = (CON) value;
+			length =
+				MIN(string->con_desc.dsc_length, sizeof(QLI_default_user));
+			strncpy(QLI_default_user, string->con_data, length);
+			QLI_default_user[length] = 0;
+			break;
+
+			break;
+
+		case set_count:
+			QLI_count = (USHORT) value;
+			break;
+
+		case set_charset:
+			if (!value) {
+				QLI_charset[0] = 0;
+				break;
+			}
+			name = ((NAM) value)->nam_string;
+			length = MIN(strlen(name), sizeof(QLI_charset));
+			strncpy(QLI_charset, name, length);
+			QLI_charset[length] = 0;
+			break;
+
+#ifdef DEV_BUILD
+		case set_explain:
+			QLI_explain = (USHORT) value;
+			break;
+
+		case set_hex_output:
+			QLI_hex_output = (USHORT) value;
+			break;
+#endif
+
+		default:
+			BUGCHECK(6);		/* Msg6 set option not implemented */
+		}
+	}
+}
+
+
+void CMD_shell( SYN node)
+{
+/**************************************
+ *
+ *	C M D _ s h e l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Invoke operating system shell.
+ *
+ **************************************/
+	TEXT buffer[256], *p, *q;
+	USHORT l;
+	CON constant;
+#ifdef VMS
+	int status, return_status, mask;
+	struct dsc$descriptor desc, *ptr;
+#endif
+
+/* Copy command, inserting extra blank at end. */
+
+	p = buffer;
+
+	if (constant = (CON) node->syn_arg[0]) {
+		q = (TEXT *) constant->con_data;
+		if (l = constant->con_desc.dsc_length)
+			do
+				*p++ = *q++;
+			while (--l);
+		*p++ = ' ';
+		*p = 0;
+	}
+	else
+#ifndef WIN_NT
+		strcpy(buffer, "$SHELL");
+#else
+		strcpy(buffer, "%ComSpec%");
+#endif
+
+#ifdef VMS
+	if (constant) {
+		desc.dsc$b_dtype = DSC$K_DTYPE_T;
+		desc.dsc$b_class = DSC$K_CLASS_S;
+		desc.dsc$w_length = p - buffer;
+		desc.dsc$a_pointer = buffer;
+		ptr = &desc;
+	}
+	else
+		ptr = NULL;
+	return_status = 0;
+	mask = 1;
+	status = lib$spawn(ptr,		/* Command to be executed */
+					   NULL,	/* Command file */
+					   NULL,	/* Output file */
+					   &mask,	/* sub-process characteristics mask */
+					   NULL,	/* sub-process name */
+					   NULL,	/* returned process id */
+					   &return_status,	/* completion status */
+					   &15);	/* event flag for completion */
+	if (status & 1)
+		while (!return_status)
+			sys$waitfr(15);
+#else
+	system(buffer);
+#endif
+}
+
+
+void CMD_transaction( SYN node)
+{
+/**************************************
+ *
+ *	C M D _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform COMMIT, ROLLBACK or PREPARE
+ *      on listed databases or everything.
+ *
+ **************************************/
+	SYN *ptr, *end;
+	DBB database;
+
+/* If there aren't any open databases then obviously
+   there isn't anything to commit. */
+
+	if (node->syn_count == 0 && !QLI_databases)
+		return;
+
+	if (node->syn_type == nod_commit)
+		if ((node->syn_count > 1) ||
+			(node->syn_count == 0 && QLI_databases->dbb_next)) {
+			node->syn_type = nod_prepare;
+			CMD_transaction(node);
+			node->syn_type = nod_commit;
+		}
+		else if (node->syn_count == 1) {
+			database = (DBB) node->syn_arg[0];
+			database->dbb_flags |= DBB_prepared;
+		}
+		else
+			QLI_databases->dbb_flags |= DBB_prepared;
+
+
+	if (node->syn_count == 0) {
+		for (database = QLI_databases; database;
+			 database = database->dbb_next) {
+			if ((node->syn_type == nod_commit)
+				&& !(database->dbb_flags & DBB_prepared)) ERRQ_msg_put(465,
+																	   database->
+																	   dbb_symbol->
+																	   sym_string,
+																	   NULL,
+																	   NULL,
+																	   NULL,
+																	   NULL);
+			else if (node->syn_type == nod_prepare)
+				database->dbb_flags |= DBB_prepared;
+			if (database->dbb_transaction)
+				MET_transaction(node->syn_type, database);
+			if (database->dbb_meta_trans)
+				MET_meta_commit(database);
+			if (database->dbb_proc_trans)
+				PRO_commit(database);
+		}
+		return;
+	}
+
+	for (ptr = node->syn_arg, end = ptr + node->syn_count; ptr < end; ptr++) {
+		database = (DBB) * ptr;
+		if ((node->syn_type == nod_commit) &&
+			!(database->dbb_flags & DBB_prepared))
+				ERRQ_msg_put(465, database->dbb_symbol->sym_string, NULL,
+							 NULL, NULL, NULL);
+		else if (node->syn_type == nod_prepare)
+			database->dbb_flags |= DBB_prepared;
+		if (database->dbb_transaction)
+			MET_transaction(node->syn_type, database);
+	}
+}
+
+
+static void dump_procedure(
+						   DBB database,
+						   IB_FILE * file,
+						   TEXT * name, USHORT length, void *blob)
+{
+/**************************************
+ *
+ *	d u m p _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extract a procedure from a database.
+ *
+ **************************************/
+	TEXT buffer[256];
+
+	ib_fprintf(file, "DELETE PROCEDURE %.*s;\n", length, name);
+	ib_fprintf(file, "DEFINE PROCEDURE %.*s\n", length, name);
+
+	while (PRO_get_line(blob, buffer, sizeof(buffer)))
+		ib_fputs(buffer, file);
+
+	PRO_close(database, blob);
+	ib_fprintf(file, "END_PROCEDURE\n\n");
+}
+
+
+static void extract_procedure(
+							  IB_FILE * file,
+							  TEXT * name,
+							  USHORT length, DBB database, SLONG * blob_id)
+{
+/**************************************
+ *
+ *	e x t r a c t _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extract a procedure from a database.
+ *
+ **************************************/
+	void *blob;
+
+	blob = PRO_open_blob(database, blob_id);
+	dump_procedure(database, file, name, length, blob);
+}
diff --git a/src/qli/compi_proto.h b/src/qli/compi_proto.h
new file mode 100644
index 0000000000..5b075e7864
--- /dev/null
+++ b/src/qli/compi_proto.h
@@ -0,0 +1,31 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		compi_proto.h
+ *	DESCRIPTION:	Prototype header file for compile.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_COMPI_PROTO_H_
+#define _QLI_COMPI_PROTO_H_
+
+extern struct nod	*CMPQ_compile (struct nod *);
+extern void		CMP_alloc_temp (struct nod *);
+extern int		CMP_node_match (struct nod *, struct nod *);
+
+#endif /* _QLI_COMPI_PROTO_H_ */
diff --git a/src/qli/compile.cpp b/src/qli/compile.cpp
new file mode 100644
index 0000000000..0f1aa37950
--- /dev/null
+++ b/src/qli/compile.cpp
@@ -0,0 +1,2107 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		compile.c
+ *	DESCRIPTION:	Compile expanded statement into executable things
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../qli/dtr.h"
+#include "../qli/compile.h"
+#include "../qli/exe.h"
+#include "../qli/report.h"
+#include "../qli/form.h"
+#include "../jrd/intl.h"
+#include "../qli/all_proto.h"
+#include "../qli/compi_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/forma_proto.h"
+#include "../qli/meta_proto.h"
+#include "../jrd/dsc_proto.h"
+
+#define PROMPT_LENGTH	80
+
+static NOD compile_any(NOD, REQ, int);
+static NOD compile_assignment(NOD, REQ, int);
+static void compile_context(NOD, REQ, int);
+static void compile_control_break(BRK, REQ);
+static NOD compile_edit(NOD, REQ);
+static NOD compile_erase(NOD, REQ);
+static NOD compile_expression(NOD, REQ, int);
+static NOD compile_field(NOD, REQ, int);
+static NOD compile_for(NOD, REQ, int);
+static NOD compile_function(NOD, REQ, int);
+static NOD compile_if(NOD, REQ, int);
+static NOD compile_list_fields(NOD, REQ);
+static NOD compile_modify(NOD, REQ, int);
+static NOD compile_print(NOD, REQ);
+static NOD compile_print_list(NOD, REQ, LLS *);
+static NOD compile_prompt(NOD);
+static NOD compile_repeat(NOD, REQ, int);
+static NOD compile_report(NOD, REQ);
+static REQ compile_rse(NOD, REQ, int, MSG *, MSG *, DBB *);
+static NOD compile_statement(NOD, REQ, int);
+static NOD compile_statistical(NOD, REQ, int);
+static NOD compile_store(NOD, REQ, int);
+static int computable(NOD, REQ);
+static void make_descriptor(NOD, DSC *);
+static MSG make_message(REQ);
+static void make_missing_reference(PAR);
+static PAR make_parameter(MSG, NOD);
+static NOD make_reference(NOD, MSG);
+static REQ make_request(DBB);
+static void release_message(MSG);
+static int string_length(DSC *);
+
+static LLS print_items;
+static TEXT **print_header;
+static BRK report_control_break;
+
+
+NOD CMPQ_compile( NOD node)
+{
+/**************************************
+ *
+ *	C M P _ c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a statement into something executable.
+ *
+ **************************************/
+
+	print_header = NULL;
+	print_items = NULL;
+	QLI_requests = NULL;
+	compile_statement(node, 0, TRUE);
+
+	if (print_header)
+		*print_header = FMT_format(print_items);
+
+	return node;
+}
+
+
+void CMP_alloc_temp( NOD node)
+{
+/**************************************
+ *
+ *	C M P _ a l l o c _ t e m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a data area for a node.
+ *
+ **************************************/
+	STR string;
+
+	if (node->nod_desc.dsc_address)
+		return;
+
+	string = (STR) ALLOCDV(type_str, node->nod_desc.dsc_length);
+	node->nod_desc.dsc_address = (UCHAR *) string->str_data;
+}
+
+
+int CMP_node_match( NOD node1, NOD node2)
+{
+/**************************************
+ *
+ *	C M P _ n o d e _ m a t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two nodes for equality of value.
+ *
+ **************************************/
+	NOD *ptr1, *ptr2, *end;
+	MAP map1, map2;
+	USHORT l;
+	UCHAR *p1, *p2;
+
+	if (!node1 || !node2 || node1->nod_type != node2->nod_type)
+		return FALSE;
+
+	switch (node1->nod_type) {
+	case nod_field:
+		{
+			if (node1->nod_arg[e_fld_field] != node2->nod_arg[e_fld_field] ||
+				node1->nod_arg[e_fld_context] != node2->nod_arg[e_fld_context]
+				|| node1->nod_arg[e_fld_subs] != node2->nod_arg[e_fld_subs])
+				return FALSE;
+			return TRUE;
+		}
+
+	case nod_constant:
+		{
+			if (node1->nod_desc.dsc_dtype != node2->nod_desc.dsc_dtype ||
+				node2->nod_desc.dsc_scale != node2->nod_desc.dsc_scale ||
+				node2->nod_desc.dsc_length != node2->nod_desc.dsc_length)
+				return FALSE;
+			p1 = node1->nod_desc.dsc_address;
+			p2 = node2->nod_desc.dsc_address;
+			if (l = node1->nod_desc.dsc_length)
+				do
+					if (*p1++ != *p2++)
+						return FALSE;
+				while (--l);
+			return TRUE;
+		}
+
+	case nod_map:
+		{
+			map1 = (MAP) node1->nod_arg[e_map_map];
+			map2 = (MAP) node2->nod_arg[e_map_map];
+			return CMP_node_match(map1->map_node, map2->map_node);
+		}
+
+	case nod_agg_average:
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_total:
+	case nod_agg_count:
+		return CMP_node_match(node1->nod_arg[e_stt_value],
+							  node2->nod_arg[e_stt_value]);
+
+	case nod_function:
+		if (node1->nod_arg[e_fun_function] != node1->nod_arg[e_fun_function])
+			return FALSE;
+		return CMP_node_match(node1->nod_arg[e_fun_args],
+							  node2->nod_arg[e_fun_args]);
+	}
+
+	ptr1 = node1->nod_arg;
+	ptr2 = node2->nod_arg;
+
+	for (end = ptr1 + node1->nod_count; ptr1 < end; ptr1++, ptr2++)
+		if (!CMP_node_match(*ptr1, *ptr2))
+			return FALSE;
+
+	return TRUE;
+}
+
+
+static NOD compile_any( NOD node, REQ old_request, int internal_flag)
+{
+/**************************************
+ *
+ *	c o m p i l e _ a n y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile either an ANY or UNIQUE boolean expression.
+ *
+ **************************************/
+	MSG send, receive, old_send = NULL, old_receive = NULL, next;
+	REQ request;
+	PAR parameter;
+
+	if (old_request) {
+		old_send = old_request->req_send;
+		old_receive = old_request->req_receive;
+	}
+
+	if (request = compile_rse(node->nod_arg[e_any_rse],
+							  old_request, FALSE, &send, &receive, 0))
+		node->nod_arg[e_any_request] = (NOD) request;
+	else
+		request = old_request;
+
+	if (old_request) {
+		old_request->req_send = old_send;
+		old_request->req_receive = old_receive;
+	}
+
+	if ((send != old_send) && !send->msg_parameters) {
+		release_message(send);
+		send = NULL;
+		if (!receive)
+			return NULL;
+	}
+
+	if (old_request && request->req_database != old_request->req_database)
+		IBERROR(357);			/* Msg357 relations from multiple databases in single rse */
+
+	if (old_request && (!receive || !receive->msg_parameters)) {
+		if (receive)
+			release_message(receive);
+		receive = NULL;
+	}
+
+	if (receive) {
+		node->nod_import = parameter = make_parameter(receive, 0);
+		parameter->par_desc.dsc_dtype = dtype_short;
+		parameter->par_desc.dsc_length = sizeof(SSHORT);
+	}
+
+	node->nod_arg[e_any_send] = (NOD) send;
+	node->nod_arg[e_any_receive] = (NOD) receive;
+
+	return node;
+}
+
+
+static NOD compile_assignment( NOD node, REQ request, int statement_internal)
+{
+/**************************************
+ *
+ *	c o m p i l e _ a s s i g n m e n t
+ *
+ **************************************
+ *
+ * Functional description:
+ *	Compile an assignment statement, passing
+ *	it to the database if possible.  Possibility
+ *	happens when both sides of the assignment are
+ *	computable in the request context.  (Following
+ *	the logic of such things, the 'internal' flags
+ *	mean external to qli, but internal to jrd.
+ *	As is well known, the seat of the soul is the
+ *	dbms). 
+ *
+ **************************************/
+	NOD to, target, from, initial;
+	CTX context;
+	USHORT target_internal;
+
+/* Start by assuming that the assignment will ultimately
+   take place in the DBMS */
+
+	to = node->nod_arg[e_asn_to];
+	to->nod_flags |= NOD_parameter2;
+	from = node->nod_arg[e_asn_from];
+	from->nod_flags |= NOD_parameter2;
+
+/* If the assignment is to a variable, the assignment is
+   completely local */
+
+	if (to->nod_type == nod_variable || to->nod_type == nod_form_field) {
+		statement_internal = FALSE;
+		node->nod_flags |= NOD_local;
+	}
+
+	target_internal = computable(to, request);
+	statement_internal = statement_internal && request && target_internal
+		&& computable(from, request);
+
+	node->nod_arg[e_asn_to] = target =
+		compile_expression(to, request, target_internal);
+	node->nod_arg[e_asn_from] =
+		compile_expression(from, request, statement_internal);
+	if (initial = node->nod_arg[e_asn_initial])
+		node->nod_arg[e_asn_initial] =
+			compile_expression(initial, request, FALSE);
+
+	if (statement_internal) {
+		node->nod_arg[e_asn_valid] = NULL;	/* Memory reclaimed in the main loop */
+		node->nod_flags |= NOD_remote;
+		node = NULL;
+	}
+	else {
+		if (node->nod_arg[e_asn_valid])
+			compile_expression(node->nod_arg[e_asn_valid], request, FALSE);
+		if (target->nod_type == nod_field) {
+			if (!request) {
+				context = (CTX) target->nod_arg[e_fld_context];
+				request = context->ctx_request;
+			}
+			target->nod_arg[e_fld_reference] =
+				make_reference(target, request->req_send);
+		}
+	}
+
+	return node;
+}
+
+
+static void compile_context( NOD node, REQ request, int internal_flag)
+{
+/**************************************
+ *
+ *	c o m p i l e _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set all of the contexts in a request.
+ *	This may require a recursive call.
+ *
+ **************************************/
+	CTX context, *ctx_ptr, *ctx_end;
+
+	ctx_ptr = (CTX *) node->nod_arg + e_rse_count;
+	ctx_end = ctx_ptr + node->nod_count;
+
+	for (; ctx_ptr < ctx_end; ctx_ptr++) {
+		context = *ctx_ptr;
+		context->ctx_request = request;
+		context->ctx_context = request->req_context++;
+		context->ctx_message = request->req_receive;
+		if (context->ctx_sub_rse)
+			compile_rse(context->ctx_sub_rse, request, internal_flag, 0, 0,
+						0);
+		if (context->ctx_stream)
+			compile_context(context->ctx_stream, request, internal_flag);
+	}
+}
+
+
+static void compile_control_break( BRK control, REQ request)
+{
+/**************************************
+ *
+ *	c o m p i l e _ c o n t r o l _ b r e a k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a control/page/report break.
+ *
+ **************************************/
+	NOD temp;
+
+	for (; control; control = control->brk_next) {
+		report_control_break = control;
+		if (control->brk_field)
+/*
+	control->brk_field  = (SYN) compile_expression (control->brk_field, request, FALSE);
+*/
+		{
+			temp = (NOD) control->brk_field;;
+			temp->nod_flags |= NOD_parameter2;
+			temp = compile_expression(control->brk_field, request, FALSE);
+			if (temp->nod_type == nod_field)
+				temp = temp->nod_arg[e_fld_reference];
+			control->brk_field = (SYN) temp;
+		}
+		if (control->brk_line)
+			compile_print_list(control->brk_line, request, 0);
+		report_control_break = NULL;
+	}
+}
+
+
+static NOD compile_edit( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	c o m p i l e _ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile the "edit blob" expression.
+ *
+ **************************************/
+	NOD value;
+	FLD field;
+	PAR parm;
+
+/* Make sure there is a message.  If there isn't a message, we
+   can't find the target database. */
+
+	if (!request)
+		BUGCHECK(358);			/* Msg358 can't find database for blob edit */
+
+/* If there is an input blob, get it now. */
+
+	if (value = node->nod_arg[e_edt_input]) {
+		field = (FLD) value->nod_arg[e_fld_field];
+		if (value->nod_type != nod_field || field->fld_dtype != dtype_blob)
+			IBERROR(356);		/* Msg356 EDIT argument must be a blob field */
+		node->nod_arg[e_edt_input] =
+			compile_expression(value, request, FALSE);
+	}
+
+	node->nod_arg[e_edt_dbb] = (NOD) request->req_database;
+	node->nod_desc.dsc_dtype = dtype_blob;
+	node->nod_desc.dsc_length = 8;
+	node->nod_desc.dsc_address = (UCHAR *) & node->nod_arg[e_edt_id1];
+
+	return node;
+}
+
+
+static NOD compile_erase( NOD node, REQ org_request)
+{
+/**************************************
+ *
+ *	c o m p i l e _ e r a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile an ERASE statement.  This is so simple that nothing
+ *	needs to be done.
+ *
+ **************************************/
+	REQ request;
+	CTX context;
+
+	context = (CTX) node->nod_arg[e_era_context];
+	request = context->ctx_request;
+	node->nod_arg[e_era_request] = (NOD) request;
+
+	request->req_database->dbb_flags |= DBB_updates;
+
+	if (org_request == request && !request->req_continue)
+		return NULL;
+
+	if (!request->req_continue)
+		request->req_continue = make_message(request);
+
+	node->nod_arg[e_era_message] = (NOD) make_message(request);
+
+	return node;
+}
+
+
+static NOD compile_expression( NOD node, REQ request, int internal_flag)
+{
+/**************************************
+ *
+ *	c o m p i l e _ e x p r e s s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a value.  The value may be used internally as part of
+ *	another expression (internal_flag == TRUE) or may be referenced
+ *	in the QLI context (internal_flag == FALSE).	
+ *
+ **************************************/
+	NOD *ptr, *end, value;
+	MAP map;
+	PAR parm;
+	FLD field;
+
+	switch (node->nod_type) {
+	case nod_any:
+	case nod_unique:
+		return compile_any(node, request, internal_flag);
+
+	case nod_max:
+	case nod_min:
+	case nod_count:
+	case nod_average:
+	case nod_total:
+	case nod_from:
+		node->nod_count = 0;
+		return compile_statistical(node, request, internal_flag);
+
+	case nod_rpt_max:
+	case nod_rpt_min:
+	case nod_rpt_count:
+	case nod_rpt_average:
+	case nod_rpt_total:
+		if (report_control_break)
+			LLS_PUSH(node, &report_control_break->brk_statisticals);
+
+	case nod_running_total:
+	case nod_running_count:
+		node->nod_count = 0;
+		if (value = node->nod_arg[e_stt_value]) {
+			value->nod_flags |= NOD_parameter2;
+			node->nod_arg[e_stt_value] =
+				compile_expression(value, request, FALSE);
+		}
+		make_descriptor(node, &node->nod_desc);
+		if (internal_flag) {
+			node->nod_export = parm = make_parameter(request->req_send, 0);
+			parm->par_desc = node->nod_desc;
+			parm->par_value = node;
+		}
+		else {
+			CMP_alloc_temp(node);
+			if (request && value && computable(value, request))
+				node->nod_arg[e_stt_value] =
+					make_reference(value, request->req_receive);
+		}
+		return node;
+
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_count:
+	case nod_agg_average:
+	case nod_agg_total:
+		node->nod_count = 0;
+		if (value = node->nod_arg[e_stt_value]) {
+			value->nod_flags |= NOD_parameter2;
+			node->nod_arg[e_stt_value] =
+				compile_expression(value, request, TRUE);
+		}
+		make_descriptor(node, &node->nod_desc);
+		if (!internal_flag && request)
+			return make_reference(node, request->req_receive);
+		return node;
+
+	case nod_map:
+		map = (MAP) node->nod_arg[e_map_map];
+		map->map_node = value =
+			compile_expression(map->map_node, request, TRUE);
+		make_descriptor(value, &node->nod_desc);
+		if (!internal_flag && request)
+			return make_reference(node, request->req_receive);
+		return node;
+
+	case nod_function:
+		return compile_function(node, request, internal_flag);
+
+	case nod_eql:
+	case nod_neq:
+	case nod_gtr:
+	case nod_geq:
+	case nod_leq:
+	case nod_lss:
+	case nod_between:
+		node->nod_flags |= nod_comparison;
+
+	case nod_list:
+	case nod_matches:
+	case nod_sleuth:
+	case nod_like:
+	case nod_containing:
+	case nod_starts:
+	case nod_missing:
+	case nod_and:
+	case nod_or:
+	case nod_not:
+		for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end;
+			 ptr++) {
+			(*ptr)->nod_flags |= NOD_parameter2;
+			*ptr = compile_expression(*ptr, request, internal_flag);
+		}
+		if (node->nod_type == nod_and || node->nod_type == nod_or)
+			node->nod_flags |= nod_partial;
+		return node;
+
+	case nod_null:
+	case nod_add:
+	case nod_subtract:
+	case nod_multiply:
+	case nod_divide:
+	case nod_negate:
+	case nod_concatenate:
+	case nod_substr:
+	case nod_user_name:
+		if (!internal_flag && request && request->req_receive &&
+			computable(node, request)) {
+			compile_expression(node, request, TRUE);
+			return make_reference(node, request->req_receive);
+		}
+		for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end;
+			 ptr++) {
+			(*ptr)->nod_flags |= NOD_parameter2;
+			*ptr = compile_expression(*ptr, request, internal_flag);
+		}
+		make_descriptor(node, &node->nod_desc);
+		if (!internal_flag) {
+			node->nod_flags |= NOD_local;
+			CMP_alloc_temp(node);
+		}
+		return node;
+
+	case nod_format:
+		value = node->nod_arg[e_fmt_value];
+		node->nod_arg[e_fmt_value] =
+			compile_expression(value, request, FALSE);
+		node->nod_desc.dsc_length = FMT_expression(node);
+		node->nod_desc.dsc_dtype = dtype_text;
+		CMP_alloc_temp(node);
+		if (!internal_flag)
+			node->nod_flags |= NOD_local;
+		return node;
+
+	case nod_constant:
+		if (!internal_flag)
+			node->nod_flags |= NOD_local;
+		return node;
+
+	case nod_edit_blob:
+		compile_edit(node, request);
+		return node;
+
+	case nod_prompt:
+		node->nod_count = 0;
+		compile_prompt(node);
+		if (internal_flag) {
+			node->nod_export = parm = make_parameter(request->req_send, node);
+			parm->par_value = node;
+			if (field = (FLD) node->nod_arg[e_prm_field]) {
+				parm->par_desc.dsc_dtype = field->fld_dtype;
+				parm->par_desc.dsc_length = field->fld_length;
+				parm->par_desc.dsc_scale = field->fld_scale;
+				parm->par_desc.dsc_sub_type = field->fld_sub_type;
+				if (parm->par_desc.dsc_dtype == dtype_text) {
+					parm->par_desc.dsc_dtype = dtype_varying;
+					parm->par_desc.dsc_length += sizeof(SSHORT);
+				}
+			}
+			else
+				parm->par_desc = node->nod_desc;
+		}
+		return node;
+
+	case nod_field:
+		if (value = node->nod_arg[e_fld_subs])
+			compile_expression(value, request, TRUE);
+		return compile_field(node, request, internal_flag);
+
+	case nod_variable:
+		field = (FLD) node->nod_arg[e_fld_field];
+		node->nod_desc.dsc_address = field->fld_data;
+
+	case nod_form_field:
+		make_descriptor(node, &node->nod_desc);
+		if (internal_flag) {
+			node->nod_export = parm = make_parameter(request->req_send, node);
+			parm->par_value = node;
+			parm->par_desc = node->nod_desc;
+		}
+		return node;
+
+	case nod_upcase:
+		value = node->nod_arg[0];
+		node->nod_arg[0] = compile_field(value, request, internal_flag);
+		return node;
+
+	default:
+		BUGCHECK(359);			/* Msg359 compile_expression: not yet implemented */
+	}
+}
+
+
+static NOD compile_field( NOD node, REQ request, int internal_flag)
+{
+/**************************************
+ *
+ *	c o m p i l e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a field reference.
+ *
+ **************************************/
+	NOD reference;
+	CTX context;
+	PAR parm;
+	MSG message;
+	FLD field;
+
+/* Pick up field characteristics */
+
+	node->nod_count = 0;
+	field = (FLD) node->nod_arg[e_fld_field];
+	context = (CTX) node->nod_arg[e_fld_context];
+	if ((field->fld_flags & FLD_array) && !node->nod_arg[e_fld_subs]) {
+		node->nod_desc.dsc_dtype = dtype_quad;
+		node->nod_desc.dsc_length = 8;
+		node->nod_desc.dsc_scale = 0;
+		node->nod_desc.dsc_sub_type = 0;
+	}
+	else {
+		node->nod_desc.dsc_dtype = field->fld_dtype;
+		node->nod_desc.dsc_length = field->fld_length;
+		node->nod_desc.dsc_scale = field->fld_scale;
+		node->nod_desc.dsc_sub_type = field->fld_sub_type;
+	}
+	node->nod_flags |= NOD_parameter2;
+
+/* If the reference is external, or the value is computable in the
+   current request, there is nothing to do.  If the value is not computable,
+   make up a parameter to send the value into the request. */
+
+	if (internal_flag) {
+		if (computable(node, request))
+			return node;
+		node->nod_export = parm = make_parameter(request->req_send, node);
+		parm->par_desc = node->nod_desc;
+		parm->par_value = node;
+		if (!(message = context->ctx_message))
+			message = request->req_receive;
+		node->nod_arg[e_fld_reference] = make_reference(node, message);
+		return node;
+	}
+
+	if (!(message = context->ctx_message) && request)
+		message = request->req_receive;
+
+	node->nod_arg[e_fld_reference] = make_reference(node, message);
+	return node;
+}
+
+
+static NOD compile_for( NOD node, REQ old_request, int internal_flag)
+{
+/**************************************
+ *
+ *	c o m p i l e _ f o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a FOR loop.  If the loop can be done as part of the parent
+ *	request, dandy.
+ *
+ **************************************/
+	MSG send, receive, old_send = NULL, old_receive = NULL;
+	REQ request;
+	PAR parameter;
+
+/* Compile rse.  This will set up both send and receive message.  If the
+   messages aren't needed, we can release them later. */
+
+	if (old_request) {
+		old_send = old_request->req_send;
+		old_receive = old_request->req_receive;
+	}
+
+	if (request = compile_rse(node->nod_arg[e_for_rse],
+							  old_request, FALSE, &send, &receive, 0))
+		node->nod_arg[e_for_request] = (NOD) request;
+	else
+		request = old_request;
+
+/* If nothing is required for sub-statement, and no data is required in
+   either direction, we don't need  to execute the statement. */
+
+	if (!compile_statement
+		(node->nod_arg[e_for_statement], request, internal_flag)
+		&& !receive->msg_parameters) {
+		release_message(receive);
+		receive = NULL;
+	}
+
+	if (old_request) {
+		old_request->req_send = old_send;
+		old_request->req_receive = old_receive;
+	}
+
+	if ((send != old_send) && !send->msg_parameters) {
+		release_message(send);
+		send = NULL;
+		if (!receive)
+			return NULL;
+	}
+
+	if (receive) {
+		parameter = make_parameter(receive, 0);
+		node->nod_arg[e_for_eof] = (NOD) parameter;
+		parameter->par_desc.dsc_dtype = dtype_short;
+		parameter->par_desc.dsc_length = sizeof(SSHORT);
+	}
+
+	node->nod_arg[e_for_send] = (NOD) send;
+	node->nod_arg[e_for_receive] = (NOD) receive;
+
+	return node;
+}
+
+
+static NOD compile_function( NOD node, REQ old_request, int internal_flag)
+{
+/**************************************
+ *
+ *	c o m p i l e _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a database function reference.
+ *
+ **************************************/
+	NOD value, *ptr, *end, list;
+	FUN function;
+	MSG send, receive, old_send = NULL, old_receive = NULL;
+	REQ request;
+	PAR parameter;
+
+	function = (FUN) node->nod_arg[e_fun_function];
+	node->nod_count = 0;
+	send = NULL;
+
+	if (!internal_flag)
+		old_request = NULL;
+
+	if (old_request) {
+		old_send = old_request->req_send;
+		old_receive = old_request->req_receive;
+	}
+
+	if (!old_request || old_request->req_database != function->fun_database) {
+		request = make_request(function->fun_database);
+		node->nod_arg[e_fun_request] = (NOD) request;
+		request->req_send = send = make_message(request);
+		request->req_receive = receive = make_message(request);
+	}
+	else
+		request = old_request;
+
+/* If there is a value, compile it here */
+
+	if (!internal_flag) {
+		node->nod_import = parameter =
+			make_parameter(request->req_receive, 0);
+		make_descriptor(node, &parameter->par_desc);
+	}
+
+	list = node->nod_arg[e_fun_args];
+
+	for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end; ptr++)
+		compile_expression(*ptr, request, TRUE);
+
+	if (old_request) {
+		old_request->req_send = old_send;
+		old_request->req_receive = old_receive;
+	}
+
+	if (!internal_flag && request == old_request && computable(node, request)) {
+		make_descriptor(node, &node->nod_desc);
+		return make_reference(node, request->req_receive);
+	}
+
+	if (send && (send != old_send) && !send->msg_parameters) {
+		release_message(send);
+		send = NULL;
+	}
+
+	node->nod_arg[e_fun_receive] = (NOD) receive;
+	node->nod_arg[e_fun_send] = (NOD) send;
+
+	return node;
+}
+
+
+static NOD compile_if( NOD node, REQ request, int internal_flag)
+{
+/**************************************
+ *
+ *	c o m p i l e _ i f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile an IF statement.  Determine whether the
+ *	statement is going to be executed in QLI or database
+ *	context.  Try to make sure that the whole thing is
+ *	executed one place or the other.
+ *
+ **************************************/
+	NOD sub;
+	REQ sub_req;
+
+/* If the statement can't be executed in database context,
+   make sure it gets executed locally */
+
+	if (!internal_flag || !computable(node, request)) {
+		internal_flag = FALSE;
+		node->nod_flags |= NOD_local;
+		request = NULL;
+	}
+
+	sub = node->nod_arg[e_if_boolean];
+	compile_expression(sub, request, internal_flag);
+	compile_statement(node->nod_arg[e_if_true], request, internal_flag);
+
+	if (sub = node->nod_arg[e_if_false])
+		compile_statement(sub, request, internal_flag);
+
+	if (internal_flag)
+		return NULL;
+
+	return node;
+}
+
+
+static NOD compile_list_fields( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	c o m p i l e _ l i s t _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a print node.
+ *
+ **************************************/
+	NOD list;
+
+	list = node->nod_arg[e_prt_list];
+	compile_print_list(list, request, 0);
+	node->nod_arg[e_prt_list] = FMT_list(list);
+	node->nod_type = nod_print;
+
+	return node;
+}
+
+
+static NOD compile_modify( NOD node, REQ org_request, int internal_flag)
+{
+/**************************************
+ *
+ *	c o m p i l e _ m o d i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a modify statement.
+ *
+ **************************************/
+	REQ request;
+	CTX context;
+	MSG send, old_send;
+	NOD *ptr;
+	USHORT i;
+
+/* If this is a different request from the current one, this will require an
+   optional action and a "continue" mesasge */
+
+	ptr = node->nod_arg + e_mod_count;
+	context = (CTX) * ptr;
+	request = context->ctx_source->ctx_request;
+	node->nod_arg[e_mod_request] = (NOD) request;
+
+	if ((request != org_request || !internal_flag) && !request->req_continue)
+		request->req_continue = make_message(request);
+
+	old_send = request->req_send;
+	request->req_send = send = make_message(request);
+
+	for (i = 0; i < node->nod_count; i++) {
+		context = (CTX) * ptr++;
+		context->ctx_request = request;
+		context->ctx_context = request->req_context++;
+		context->ctx_message = send;
+	}
+
+/* If nothing is required for sub-statement, and no data is required in
+   either direction, we don't need  to execute the statement. */
+
+	if (internal_flag)
+		internal_flag = computable(node->nod_arg[e_mod_statement], request);
+
+	if (!compile_statement
+		(node->nod_arg[e_mod_statement], request, internal_flag)
+		&& (send != old_send) && !send->msg_parameters) {
+		node->nod_flags |= NOD_remote;
+		release_message(send);
+		send = NULL;
+	}
+
+	node->nod_arg[e_mod_send] = (NOD) send;
+	request->req_send = old_send;
+	request->req_database->dbb_flags |= DBB_updates;
+
+	if (internal_flag)
+		return NULL;
+
+	return node;
+}
+
+
+static NOD compile_print( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	c o m p i l e _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a print node.
+ *
+ **************************************/
+
+	if (!print_header)
+		print_header = (TEXT **) & node->nod_arg[e_prt_header];
+
+	compile_print_list(node->nod_arg[e_prt_list], request, &print_items);
+
+	return node;
+}
+
+
+static NOD compile_print_list( NOD list, REQ request, LLS * stack)
+{
+/**************************************
+ *
+ *	c o m p i l e _ p r i n t _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a print node.
+ *
+ **************************************/
+	NOD *ptr, *end, value;
+	ITM item;
+
+	for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end; ptr++) {
+		item = (ITM) * ptr;
+		if (stack)
+			LLS_PUSH(item, stack);
+		if (item->itm_type == item_value) {
+			value = item->itm_value;
+			value->nod_flags |= NOD_parameter2;
+			item->itm_value = compile_expression(value, request, FALSE);
+			if (item->itm_value->nod_type == nod_field)
+				item->itm_value = item->itm_value->nod_arg[e_fld_reference];
+			if (!value->nod_desc.dsc_dtype)
+				make_descriptor(value, &value->nod_desc);
+		}
+	}
+
+	return list;
+}
+
+
+static NOD compile_prompt( NOD node)
+{
+/**************************************
+ *
+ *	c o m p i l e _ p r o m p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up a prompt expression for execution.
+ *
+ **************************************/
+	STR string;
+	FLD field;
+	USHORT l, prompt_length;
+	UCHAR *p, *prompt;
+
+/* Make up a plausible prompt length */
+
+	if (!(field = (FLD) node->nod_arg[e_prm_field]))
+		prompt_length = PROMPT_LENGTH;
+	else
+		switch (field->fld_dtype) {
+		case dtype_text:
+			prompt_length = field->fld_length;
+			break;
+
+		case dtype_varying:
+			prompt_length = field->fld_length - sizeof(SSHORT);
+			break;
+
+		case dtype_short:
+			prompt_length = 8;
+			break;
+
+		case dtype_long:
+		case dtype_real:
+			prompt_length = 15;
+			break;
+
+		default:
+			prompt_length = 30;
+			break;
+		}
+
+/* Allocate string buffer to hold data, a two byte count, 
+  a possible carriage return, and a null */
+
+	prompt_length += 2 + sizeof(SSHORT);
+	string = (STR) ALLOCDV(type_str, prompt_length);
+	node->nod_arg[e_prm_string] = (NOD) string;
+	node->nod_desc.dsc_dtype = dtype_varying;
+	node->nod_desc.dsc_length = prompt_length;
+	node->nod_desc.dsc_address = (UCHAR *) string->str_data;
+
+	return node;
+}
+
+
+static NOD compile_repeat( NOD node, REQ request, int internal_flag)
+{
+/**************************************
+ *
+ *	c o m p i l e _ r e p e a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a REPEAT statement.
+ *
+ **************************************/
+
+	compile_expression(node->nod_arg[e_rpt_value], request, FALSE);
+	compile_statement(node->nod_arg[e_rpt_statement], 0, internal_flag);
+
+	return node;
+}
+
+
+static NOD compile_report( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	c o m p i l e _ r e p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile the body of a report specification.
+ *
+ **************************************/
+	RPT report;
+	BRK control, temp;
+	NOD list;
+
+	report = (RPT) node->nod_arg[e_prt_list];
+
+	if (control = report->rpt_top_rpt)
+		compile_control_break(control, request);
+
+	if (control = report->rpt_top_page)
+		compile_control_break(control, request);
+
+	if (control = report->rpt_top_breaks)
+		compile_control_break(control, request);
+
+	if (list = report->rpt_detail_line)
+		compile_print_list(list, request, 0);
+
+	if (control = report->rpt_bottom_breaks) {
+		compile_control_break(control, request);
+		report->rpt_bottom_breaks = NULL;
+		while (control) {
+			temp = control;
+			control = control->brk_next;
+			temp->brk_next = report->rpt_bottom_breaks;
+			report->rpt_bottom_breaks = temp;
+		}
+	}
+
+	if (control = report->rpt_bottom_page)
+		compile_control_break(control, request);
+
+	if (control = report->rpt_bottom_rpt)
+		compile_control_break(control, request);
+
+	FMT_report(report);
+
+	return node;
+}
+
+
+static REQ compile_rse(
+					   NOD node,
+					   REQ old_request,
+					   int internal_flag,
+					   MSG * send, MSG * receive, DBB * database)
+{
+/**************************************
+ *
+ *	c o m p i l e _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a record selection expression.  If it can't be processed
+ *	as part of an existing parent request, make up a new request.  If
+ *	data must be sent to start the loop, generate a send message.  Set
+ *	up for a receive message as well.
+ *
+ **************************************/
+	NOD list, *ptr, *end, *ptr2, rse;
+	REQ request, original_request;
+	CTX context, parent, *ctx_ptr, *ctx_end;
+	REL relation;
+	DBB local_dbb;
+	USHORT l;
+
+	original_request = old_request;
+
+	if (!database) {
+		local_dbb = NULL;
+		database = &local_dbb;
+	}
+
+/* Loop thru relations to make sure only a single database is presented */
+
+	ctx_ptr = (CTX *) node->nod_arg + e_rse_count;
+	ctx_end = ctx_ptr + node->nod_count;
+
+	for (; ctx_ptr < ctx_end; ctx_ptr++) {
+		context = *ctx_ptr;
+		if (context->ctx_stream) {
+			if (request =
+				compile_rse(context->ctx_stream, old_request, internal_flag,
+							send, receive, database))
+				old_request = request;
+		}
+		else {
+			relation = context->ctx_relation;
+			if (!*database)
+				*database = relation->rel_database;
+			else if (*database != relation->rel_database)
+				IBERROR(357);	/* Msg357 relations from multiple databases in single rse */
+		}
+	}
+
+	if (!old_request || old_request->req_database != *database)
+		request = make_request(*database);
+	else
+		request = old_request;
+
+	if (send) {
+		if (old_request && request == old_request &&
+			!(old_request->req_flags & REQ_rse_compiled))
+			*send = request->req_send;
+		else
+			request->req_send = *send = make_message(request);
+		request->req_receive = *receive = make_message(request);
+	}
+
+	compile_context(node, request, internal_flag);
+
+/* Process various clauses */
+
+	if (node->nod_arg[e_rse_first])
+		compile_expression(node->nod_arg[e_rse_first], request, TRUE);
+
+	if (node->nod_arg[e_rse_boolean])
+		compile_expression(node->nod_arg[e_rse_boolean], request, TRUE);
+
+	if (list = node->nod_arg[e_rse_sort])
+		for (ptr = list->nod_arg, end = ptr + list->nod_count * 2; ptr < end;
+			 ptr += 2)
+			compile_expression(*ptr, request, TRUE);
+
+	if (list = node->nod_arg[e_rse_reduced])
+		for (ptr = list->nod_arg, end = ptr + list->nod_count * 2; ptr < end;
+			 ptr += 2)
+			compile_expression(*ptr, request, TRUE);
+
+	if (list = node->nod_arg[e_rse_group_by])
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++)
+			compile_expression(*ptr, request, TRUE);
+
+	if (node->nod_arg[e_rse_having])
+		compile_expression(node->nod_arg[e_rse_having], request, TRUE);
+
+/* If we didn't allocate a new request block, say so by returning NULL */
+
+	if (request == original_request)
+		return NULL;
+
+	request->req_flags |= REQ_rse_compiled;
+
+	return request;
+}
+
+
+static NOD compile_statement( NOD node, REQ request, int internal_flag)
+{
+/**************************************
+ *
+ *	c o m p i l e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a statement.  Actually, just dispatch, passing along
+ *	the parent request.
+ *
+ **************************************/
+	NOD result, *ptr, *end, sub;
+
+	switch (node->nod_type) {
+	case nod_assign:
+		return compile_assignment(node, request, internal_flag);
+
+	case nod_erase:
+		return compile_erase(node, request);
+
+	case nod_commit_retaining:
+		return node;
+
+	case nod_for:
+	case nod_report_loop:
+		return compile_for(node, request, internal_flag);
+
+	case nod_list:
+		result = NULL;
+		for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end;
+			 ptr++)
+			if (compile_statement(*ptr, request, internal_flag))
+				result = node;
+		return result;
+
+	case nod_modify:
+		return compile_modify(node, request, internal_flag);
+
+	case nod_output:
+		compile_expression(node->nod_arg[e_out_file], request, FALSE);
+		compile_statement(node->nod_arg[e_out_statement], request, FALSE);
+		return node;
+
+	case nod_print:
+		return compile_print(node, request);
+
+	case nod_list_fields:
+		return compile_list_fields(node, request);
+
+	case nod_repeat:
+		return compile_repeat(node, request, internal_flag);
+
+	case nod_report:
+		return compile_report(node, request);
+
+	case nod_store:
+		return compile_store(node, request, internal_flag);
+
+	case nod_if:
+		return compile_if(node, request, internal_flag);
+
+	case nod_form_for:
+		compile_statement(node->nod_arg[e_ffr_statement], request, FALSE);
+		return node;
+
+	case nod_form_update:
+		if (node->nod_arg[e_fup_tag])
+			compile_expression(node->nod_arg[e_fup_tag], 0, FALSE);
+		return node;
+
+	case nod_abort:
+		if (node->nod_count)
+			compile_expression(node->nod_arg[0], 0, FALSE);
+		return node;
+
+	default:
+		BUGCHECK(360);			/* Msg360 not yet implemented (compile_statement) */
+	}
+}
+
+
+static NOD compile_statistical( NOD node, REQ old_request, int internal_flag)
+{
+/**************************************
+ *
+ *	c o m p i l e _ s t a t i s t i c a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a statistical expression.  The expression may or may not
+ *	request a separate request.
+ *
+ **************************************/
+	NOD value;
+	MSG send, receive, old_send = NULL, old_receive = NULL;
+	REQ request;
+	PAR parameter;
+
+/* If a default value is present, compile it outside the context of
+   the rse. */
+
+	if (value = node->nod_arg[e_stt_default])
+		compile_expression(value, old_request, TRUE);
+
+/* Compile rse.  This will set up both send and receive message.  If the
+   messages aren't needed, we can release them later. */
+
+	if (!internal_flag)
+		old_request = NULL;
+
+	if (old_request) {
+		old_send = old_request->req_send;
+		old_receive = old_request->req_receive;
+	}
+
+	if (request = compile_rse(node->nod_arg[e_stt_rse],
+							  old_request, internal_flag, &send, &receive, 0))
+		node->nod_arg[e_stt_request] = (NOD) request;
+	else
+		request = old_request;
+
+/* If there is a value, compile it here */
+
+	if (!internal_flag) {
+		node->nod_import = parameter =
+			make_parameter(request->req_receive, 0);
+		make_descriptor(node, &parameter->par_desc);
+	}
+
+	if (value = node->nod_arg[e_stt_value])
+		compile_expression(value, request, TRUE);
+
+	if (old_request) {
+		old_request->req_send = old_send;
+		old_request->req_receive = old_receive;
+	}
+
+	if (!internal_flag && request == old_request && computable(node, request)) {
+		make_descriptor(node, &node->nod_desc);
+		return make_reference(node, request->req_receive);
+	}
+
+	if ((send != old_send) && !send->msg_parameters) {
+		release_message(send);
+		send = NULL;
+	}
+
+	node->nod_arg[e_stt_receive] = (NOD) receive;
+	node->nod_arg[e_stt_send] = (NOD) send;
+
+	return node;
+}
+
+
+static NOD compile_store( NOD node, REQ request, int internal_flag)
+{
+/**************************************
+ *
+ *	c o m p i l e _ s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile a STORE statement.
+ *
+ **************************************/
+	CTX context;
+	REL relation;
+	MSG send;
+	REQ new_request;
+	PAR parameter;
+
+/* Find or make up request for statement */
+
+	context = (CTX) node->nod_arg[e_sto_context];
+	relation = context->ctx_relation;
+
+	if (!request || request->req_database != relation->rel_database) {
+		request = make_request(relation->rel_database);
+		node->nod_arg[e_sto_request] = (NOD) request;
+	}
+
+	request->req_database->dbb_flags |= DBB_updates;
+
+	context->ctx_request = request;
+	context->ctx_context = request->req_context++;
+	context->ctx_message = request->req_send = send = make_message(request);
+
+/* If nothing is required for sub-statement, and no data is required in
+   either direction, we don't need to execute the statement. */
+
+	if (internal_flag)
+		internal_flag = computable(node->nod_arg[e_sto_statement], request);
+
+	if (!compile_statement
+		(node->nod_arg[e_sto_statement], request, internal_flag)
+		&& !send->msg_parameters) {
+		node->nod_flags |= NOD_remote;
+		release_message(send);
+		return NULL;
+	}
+
+	node->nod_arg[e_sto_send] = (NOD) send;
+
+	return node;
+}
+
+
+static int computable( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	c o m p u t a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if a value is computable within the context of a
+ *	given request.
+ *
+ **************************************/
+	NOD *ptr, *end, sub;
+	CTX context;
+	MAP map;
+
+	switch (node->nod_type) {
+	case nod_max:
+	case nod_min:
+	case nod_count:
+	case nod_average:
+	case nod_total:
+	case nod_from:
+		if ((sub = node->nod_arg[e_stt_rse]) && !computable(sub, request))
+			return FALSE;
+		if ((sub = node->nod_arg[e_stt_value]) && !computable(sub, request))
+			return FALSE;
+		if ((sub = node->nod_arg[e_stt_default]) && !computable(sub, request))
+			return FALSE;
+		return TRUE;
+
+	case nod_rse:
+		if (!request)
+			return FALSE;
+		if ((sub = node->nod_arg[e_rse_first]) && !computable(sub, request))
+			return FALSE;
+		for (ptr = node->nod_arg + e_rse_count, end = ptr + node->nod_count;
+			 ptr < end; ptr++) {
+			context = (CTX) * ptr;
+			if (context->ctx_stream) {
+				if (!computable(context->ctx_stream, request))
+					return FALSE;
+			}
+			else if (context->ctx_relation->rel_database !=
+					 request->req_database) return FALSE;
+			context->ctx_request = request;
+		}
+		if ((sub = node->nod_arg[e_rse_boolean]) && !computable(sub, request))
+			return FALSE;
+		return TRUE;
+
+	case nod_field:
+		if (sub = node->nod_arg[e_fld_subs])
+			for (ptr = sub->nod_arg, end = ptr + sub->nod_count; ptr < end;
+				 ptr++)
+				if (*ptr && !computable(*ptr, request))
+					return FALSE;
+		context = (CTX) node->nod_arg[e_fld_context];
+		return (request == context->ctx_request);
+
+	case nod_map:
+		map = (MAP) node->nod_arg[e_map_map];
+		return computable(map->map_node, request);
+
+	case nod_print:
+	case nod_report:
+	case nod_abort:
+	case nod_repeat:
+	case nod_commit_retaining:
+
+	case nod_rpt_average:
+	case nod_rpt_max:
+	case nod_rpt_min:
+	case nod_rpt_total:
+	case nod_rpt_count:
+	case nod_running_total:
+	case nod_running_count:
+	case nod_edit_blob:
+	case nod_prompt:
+	case nod_variable:
+	case nod_form_field:
+	case nod_form_for:
+	case nod_format:
+		return FALSE;
+
+	case nod_null:
+	case nod_constant:
+	case nod_user_name:
+		return TRUE;
+
+	case nod_for:
+		if ((REQ) node->nod_arg[e_for_request] != request)
+			return FALSE;
+		if (!computable(node->nod_arg[e_for_rse], request) ||
+			!computable(node->nod_arg[e_for_statement], request))
+			return FALSE;
+		return TRUE;
+
+	case nod_store:
+		if ((REQ) node->nod_arg[e_sto_request] != request)
+			return FALSE;
+		return computable(node->nod_arg[e_sto_statement], request);
+
+	case nod_modify:
+		context = (CTX) node->nod_arg[e_mod_count];
+		if (context->ctx_source->ctx_request != request)
+			return FALSE;
+		return computable(node->nod_arg[e_mod_statement], request);
+
+	case nod_erase:
+		context = (CTX) node->nod_arg[e_era_context];
+		if (context->ctx_source->ctx_request != request)
+			return FALSE;
+		return TRUE;
+
+	case nod_unique:
+	case nod_any:
+		if (node->nod_arg[e_any_request] != (NOD) request)
+			return FALSE;
+		return (computable(node->nod_arg[e_any_rse], request));
+
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_count:
+	case nod_agg_average:
+	case nod_agg_total:
+		if (sub = node->nod_arg[e_stt_value])
+			return (computable(sub, request));
+
+	case nod_assign:
+		if (node->nod_arg[e_asn_valid]) {
+			sub = node->nod_arg[e_asn_from];
+			if (sub->nod_type == nod_prompt)
+				/* Try to do validation in QLI as soon as 
+				   the user responds to the prompt */
+				return FALSE;
+		}
+	case nod_list:
+	case nod_if:
+
+	case nod_eql:
+	case nod_neq:
+	case nod_gtr:
+	case nod_geq:
+	case nod_leq:
+	case nod_lss:
+	case nod_between:
+	case nod_matches:
+	case nod_sleuth:
+	case nod_like:
+	case nod_containing:
+	case nod_starts:
+	case nod_missing:
+	case nod_and:
+	case nod_or:
+	case nod_not:
+	case nod_add:
+	case nod_subtract:
+	case nod_multiply:
+	case nod_divide:
+	case nod_negate:
+	case nod_concatenate:
+	case nod_function:
+	case nod_substr:
+		for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end;
+			 ptr++)
+			if (*ptr && !computable(*ptr, request))
+				return FALSE;
+		return TRUE;
+
+	default:
+		BUGCHECK(361);			/* Msg361 computable: not yet implemented */
+	}
+}
+
+
+static void make_descriptor( NOD node, DSC * desc)
+{
+/**************************************
+ *
+ *	m a k e _ d e s c r i p t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fill out a descriptor based on an expression.
+ *
+ **************************************/
+	DSC desc1, desc2;
+	FLD field;
+	PAR parameter;
+	MAP map;
+	FFL ffield;
+	FUN function;
+	USHORT dtype;
+
+	desc1.dsc_dtype = 0;
+	desc1.dsc_scale = 0;
+	desc1.dsc_length = 0;
+	desc1.dsc_sub_type = 0;
+	desc1.dsc_address = NULL;
+	desc1.dsc_flags = 0;
+	desc2 = desc1;
+
+	switch (node->nod_type) {
+	case nod_field:
+	case nod_variable:
+		field = (FLD) node->nod_arg[e_fld_field];
+		desc->dsc_dtype = field->fld_dtype;
+		desc->dsc_length = field->fld_length;
+		desc->dsc_scale = field->fld_scale;
+		desc->dsc_sub_type = field->fld_sub_type;
+		return;
+
+	case nod_reference:
+		parameter = node->nod_import;
+		*desc = parameter->par_desc;
+		return;
+
+	case nod_map:
+		map = (MAP) node->nod_arg[e_map_map];
+		make_descriptor(map->map_node, desc);
+		return;
+
+	case nod_function:
+		function = (FUN) node->nod_arg[e_fun_function];
+		*desc = function->fun_return;
+		return;
+
+	case nod_constant:
+	case nod_prompt:
+	case nod_format:
+		*desc = node->nod_desc;
+		return;
+
+	case nod_concatenate:
+		make_descriptor(node->nod_arg[0], &desc1);
+		make_descriptor(node->nod_arg[1], &desc2);
+		desc->dsc_scale = 0;
+		desc->dsc_dtype = dtype_varying;
+		desc->dsc_length = sizeof(USHORT) +
+			string_length(&desc1) + string_length(&desc2);
+		if (desc1.dsc_dtype <= dtype_any_text)
+			desc->dsc_sub_type = desc1.dsc_sub_type;
+		else
+			desc->dsc_sub_type = ttype_ascii;
+		return;
+
+	case nod_add:
+	case nod_subtract:
+		make_descriptor(node->nod_arg[0], &desc1);
+		make_descriptor(node->nod_arg[1], &desc2);
+		if ((desc1.dsc_dtype == dtype_text && desc1.dsc_length >= 9) ||
+			(desc2.dsc_dtype == dtype_text && desc2.dsc_length >= 9))
+			dtype = dtype_double;
+		else
+			dtype = MAX(desc1.dsc_dtype, desc2.dsc_dtype);
+		switch (dtype) {
+		case dtype_sql_time:
+		case dtype_sql_date:
+		case dtype_timestamp:
+			node->nod_flags |= nod_date;
+			if (node->nod_type == nod_add) {
+				desc->dsc_dtype = dtype;
+				desc->dsc_length = (dtype == dtype_timestamp) ? 8 : 4;
+				break;
+			}
+
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_text:
+		case dtype_double:
+		case dtype_real:
+		case dtype_long:
+			desc->dsc_dtype = dtype_double;
+			desc->dsc_length = sizeof(double);
+			break;
+
+		default:
+			desc->dsc_dtype = dtype_long;
+			desc->dsc_length = sizeof(SLONG);
+			desc->dsc_scale = MIN(desc1.dsc_scale, desc2.dsc_scale);
+			break;
+		}
+		return;
+
+	case nod_multiply:
+		make_descriptor(node->nod_arg[0], &desc1);
+		make_descriptor(node->nod_arg[1], &desc2);
+		if ((desc1.dsc_dtype == dtype_text && desc1.dsc_length >= 9) ||
+			(desc2.dsc_dtype == dtype_text && desc2.dsc_length >= 9))
+			dtype = dtype_double;
+		else
+			dtype = MAX(desc1.dsc_dtype, desc2.dsc_dtype);
+		switch (dtype) {
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_text:
+		case dtype_real:
+		case dtype_double:
+		case dtype_long:
+			desc->dsc_dtype = dtype_double;
+			desc->dsc_length = sizeof(double);
+			break;
+
+		default:
+			desc->dsc_dtype = dtype_long;
+			desc->dsc_length = sizeof(SLONG);
+			desc->dsc_scale = desc1.dsc_scale + desc2.dsc_scale;
+			break;
+		}
+		return;
+
+	case nod_agg_average:
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_total:
+
+	case nod_average:
+	case nod_max:
+	case nod_min:
+	case nod_total:
+	case nod_from:
+
+	case nod_rpt_average:
+	case nod_rpt_max:
+	case nod_rpt_min:
+	case nod_rpt_total:
+	case nod_running_total:
+		make_descriptor(node->nod_arg[e_stt_value], desc);
+		if (desc->dsc_dtype == dtype_short) {
+			desc->dsc_dtype = dtype_long;
+			desc->dsc_length = sizeof(SLONG);
+		}
+		else if (desc->dsc_dtype == dtype_real) {
+			desc->dsc_dtype = dtype_double;
+			desc->dsc_length = sizeof(double);
+		}
+		return;
+
+	case nod_null:
+		desc->dsc_dtype = dtype_long;
+		desc->dsc_length = sizeof(SLONG);
+		desc->dsc_missing = DSC_missing;
+		return;
+
+	case nod_count:
+	case nod_agg_count:
+	case nod_running_count:
+	case nod_rpt_count:
+		desc->dsc_dtype = dtype_long;
+		desc->dsc_length = sizeof(SLONG);
+		return;
+
+	case nod_divide:
+		desc->dsc_dtype = dtype_double;
+		desc->dsc_length = sizeof(double);
+		return;
+
+	case nod_negate:
+		make_descriptor(node->nod_arg[0], desc);
+		return;
+
+	case nod_form_field:
+		ffield = (FFL) node->nod_arg[e_ffl_field];
+		desc->dsc_dtype = ffield->ffl_dtype;
+		desc->dsc_scale = ffield->ffl_scale;
+		desc->dsc_length = ffield->ffl_length;
+		return;
+
+	case nod_user_name:
+		desc->dsc_dtype = dtype_varying;
+		desc->dsc_scale = 0;
+		desc->dsc_length = sizeof(USHORT) + 16;
+		return;
+
+	case nod_substr:
+	default:
+		BUGCHECK(362);			/* Msg362 make_descriptor: not yet implemented */
+	}
+}
+
+
+static MSG make_message( REQ request)
+{
+/**************************************
+ *
+ *	m a k e _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a message block for a request.
+ *
+ **************************************/
+	MSG message;
+
+	message = (MSG) ALLOCDV(type_msg, 0);
+	message->msg_request = request;
+	message->msg_next = request->req_messages;
+	request->req_messages = message;
+	message->msg_number = request->req_msg_number++;
+
+	return message;
+}
+
+
+static void make_missing_reference( PAR parameter)
+{
+/**************************************
+ *
+ *	m a k e _ m i s s i n g _ r e f e r e n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make up a parameter to pass a missing value.
+ *
+ **************************************/
+	PAR missing;
+
+	if (parameter->par_missing)
+		return;
+
+	parameter->par_missing = missing = (PAR) ALLOCD(type_par);
+	missing->par_message = parameter->par_message;
+	missing->par_desc.dsc_dtype = dtype_short;
+	missing->par_desc.dsc_length = sizeof(SSHORT);
+}
+
+
+static PAR make_parameter( MSG message, NOD node)
+{
+/**************************************
+ *
+ *	m a k e _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a parameter block and hang it off a message block.
+ *	To make prompts come out in the right order, insert the
+ *	new prompt at the end of the prompt list.  Sigh.
+ *
+ **************************************/
+	PAR parm, *ptr;
+
+	for (ptr = &message->msg_parameters; *ptr; ptr = &(*ptr)->par_next);
+
+	*ptr = parm = (PAR) ALLOCD(type_par);
+	parm->par_message = message;
+	if (node && (node->nod_flags & NOD_parameter2))
+		make_missing_reference(parm);
+
+	return parm;
+}
+
+
+static NOD make_reference( NOD node, MSG message)
+{
+/**************************************
+ *
+ *	m a k e _ r e f e r e n c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a reference to a value to be computed in the 
+ *	database context.  Since a field can be referenced
+ *	several times, construct reference blocks linking
+ *	the single field to the single parameter.  (I think.)
+ *	In any event, if a parameter for a field exists, 
+ *	use it rather than generating an new one.   Make it
+ *	parameter2 style if necessary.
+ *
+ **************************************/
+	NOD reference;
+	PAR parm;
+
+	if (!message)
+		BUGCHECK(363);			/* Msg363 missing message */
+
+/* Look for an existing field reference */
+
+	for (parm = message->msg_parameters; parm; parm = parm->par_next)
+		if (CMP_node_match(parm->par_value, node))
+			break;
+
+/* Parameter doesn't exits -- make a new one. */
+
+	if (!parm) {
+		parm = make_parameter(message, node);
+		parm->par_value = node;
+		parm->par_desc = node->nod_desc;
+	}
+
+	reference = (NOD) ALLOCDV(type_nod, 1);
+	reference->nod_type = nod_reference;
+	reference->nod_arg[0] = node;
+	reference->nod_desc = parm->par_desc;
+	reference->nod_import = parm;
+
+	return reference;
+}
+
+
+static REQ make_request( DBB dbb)
+{
+/**************************************
+ *
+ *	m a k e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a request block for a database.
+ *
+ **************************************/
+	REQ request;
+
+	request = (REQ) ALLOCD(type_req);
+	request->req_database = dbb;
+	request->req_next = QLI_requests;
+	QLI_requests = request;
+	dbb->dbb_flags |= DBB_active;
+	if (!(dbb->dbb_transaction))
+		MET_transaction(nod_start_trans, dbb);
+
+	return request;
+}
+
+
+static void release_message( MSG message)
+{
+/**************************************
+ *
+ *	r e l e a s e _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	A message block is unneeded, so release it.
+ *
+ **************************************/
+	MSG *ptr;
+	REQ request;
+
+	request = message->msg_request;
+
+	for (ptr = &request->req_messages; *ptr; ptr = &(*ptr)->msg_next)
+		if (*ptr == message)
+			break;
+
+	if (!*ptr)
+		BUGCHECK(364);			/* Msg 364 lost message */
+
+	*ptr = message->msg_next;
+	ALL_release(message);
+}
+
+
+static int string_length( DSC * desc)
+{
+/**************************************
+ *
+ *	s t r i n g _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Estimate length of string based on descriptor.
+ *
+ **************************************/
+
+	return DSC_string_length(desc);
+}
diff --git a/src/qli/compile.h b/src/qli/compile.h
new file mode 100644
index 0000000000..10228d2cae
--- /dev/null
+++ b/src/qli/compile.h
@@ -0,0 +1,265 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		compile.h
+ *	DESCRIPTION:	Parser/compiler definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_COMPILE_H_
+#define _QLI_COMPILE_H_
+
+/* Name nodes -- used to hold names between parse and compilation */
+
+typedef struct nam {
+    struct blk	nam_header;
+    struct sym	*nam_symbol;		/* Symbol pointer, if any */
+    USHORT	nam_length;		/* Length of name */
+    TEXT	nam_string [1];		/* Actual name string */
+} *NAM;
+
+/* Syntax nodes */
+
+typedef struct syn {
+    struct blk	syn_header;
+    NOD_T	syn_type;		/* Type of node */
+    USHORT	syn_flags;
+    USHORT	syn_count;		/* Number of arguments */
+    struct syn	*syn_arg[1];
+} *SYN;
+
+/* Qualified procedure node -- used to hold qualified procedure names */
+
+typedef struct qpr {
+    struct blk  qpr_header;
+    struct dbb	*qpr_database;	/* database block */
+    struct nam	*qpr_name;	/* name block */	
+} *QPR;
+
+/* Qualified function node -- used to hold qualified function names */
+
+typedef struct qfn {
+    struct blk  qfn_header;
+    struct dbb	*qfn_database;	/* database block */
+    struct nam	*qfn_name;	/* name block */	
+} *QFN;
+
+/* Qualified filter node -- used to hold qualified filter names */
+
+typedef struct qfl {
+    struct blk  qfl_header;
+    struct dbb	*qfl_database;	/* database block */
+    struct nam	*qfl_name;	/* name block */	
+} *QFL;
+
+/* SHOW options */
+
+ENUM show_t {
+    show_all,
+    show_relation,
+    show_relations,
+    show_system_relations,
+    show_database,
+    show_databases,
+    show_procedure,
+    show_procedures,
+    show_version,
+    show_variable,
+    show_variables,
+    show_indices,
+    show_qualified_procedure,
+    show_field,
+    show_filter,
+    show_filters,
+    show_global_field,
+    show_global_fields,
+    show_trigger,
+    show_triggers,
+    show_security_class,
+    show_security_classes,
+    show_forms,
+    show_function,
+    show_functions,
+    show_views,
+    show_system_triggers,
+    show_matching_language,
+    show_db_indices,
+    show_db_fields
+};
+
+ENUM set_t {
+    set_blr,
+    set_statistics,
+    set_epilog,
+    set_columns,
+    set_lines,
+    set_semi,
+    set_echo,
+    set_form,
+    set_matching_language,
+    set_prompt,
+    set_continuation,
+    set_user,
+    set_password,
+    set_euc_justify,			/* JPN specific option */
+    set_count,
+    set_charset,
+#ifdef DEV_BUILD
+    set_hex_output,
+    set_explain
+#endif
+};
+
+/* Position assignments for syntax tree nodes */
+
+#define s_rel_relation	0		/* Actual relation block */
+#define s_rel_context	1		/* Symbol block for context, if any */
+#define s_rel_count	2
+
+#define s_prt_list	0		/* Print list */
+#define s_prt_rse	1		/* Rse, if any */
+#define s_prt_output	2		/* Output file, if any */
+#define s_prt_distinct	3		/* Simple flag indicating distinct */
+#define s_prt_order	4		/* SQL order clause */
+#define s_prt_form	5
+#define s_prt_count	6
+
+#define s_rse_first	0		/* FIRST clause, if any */
+#define s_rse_boolean	1		/* Boolean clause, if any */
+#define s_rse_sort	2		/* Sort clause, if any */
+#define s_rse_reduced	3		/* Reduced clause, if any */
+#define s_rse_group_by	4
+#define s_rse_having	5
+#define s_rse_outer	6		/* Outer context value (implicit ANY) */
+#define s_rse_inner	7		/* Inner context value */
+#define s_rse_op	8		/* Comparison operator */
+#define s_rse_join_type	9		/* Join type */
+#define s_rse_all_flag	10		/* Explicit "ALL" flag */
+#define s_rse_list	11
+#ifdef PC_ENGINE
+#define s_rse_index	12
+#define s_rse_count	13
+#else
+#define s_rse_count	12
+#endif
+
+#define s_for_rse	0
+#define s_for_statement	1
+#define s_for_count	2
+
+#define s_itm_value		0	/* Value of print item */
+#define s_itm_edit_string	1	/* Edit string, if any */
+#define s_itm_header		2	/* Query header, if any */
+#define s_itm_count		3
+
+#define s_sto_relation	0
+#define s_sto_statement	1
+#define s_sto_rse	2
+#define s_sto_fields	3
+#define s_sto_values	4
+#define s_sto_form	5
+#define s_sto_count	6
+
+#define s_asn_from	0
+#define s_asn_to	1
+#define s_asn_count	2
+
+#define s_mod_list	0		/* Field list */
+#define s_mod_statement	1		/* Sub-statement */
+#define s_mod_rse	2		/* Record selection expression */
+#define s_mod_form	3
+#define s_mod_count	4
+
+#define s_era_rse	0
+#define s_era_count	1
+
+#define s_rpt_value	0
+#define s_rpt_statement	1
+#define s_rpt_count	2
+
+#define s_if_boolean	0
+#define s_if_true	1
+#define s_if_false	2
+#define s_if_count	3
+
+#define s_stt_rse	0
+#define s_stt_value	1
+#define s_stt_default	2
+#define s_stt_distinct	3
+#define s_stt_count	4
+
+#define s_out_file	0
+#define s_out_pipe	1
+#define s_out_count	2
+
+#define s_fmt_value	0
+#define s_fmt_edit	1
+#define s_fmt_count	2
+
+#define s_dfi_name	0
+#define s_dfi_relation	1		/* Define index */
+#define s_dfi_fields	2
+#define s_dfi_count	3
+
+#define s_mfi_name	0		/* Modify an index */
+#define s_mfi_database	1
+#define s_mfi_count	2
+
+#define s_ffr_form	0
+#define s_ffr_statement	1
+#define s_ffr_count	2
+
+#define s_frm_form	0
+#define s_frm_context	1
+#define s_frm_database	2
+#define s_frm_count	3
+
+#define s_men_string	0
+#define s_men_labels	1
+#define s_men_statements 2
+#define s_men_count	3
+
+#define s_fun_args	0
+#define s_fun_function	1
+#define s_fun_count	2
+
+#define s_idx_field	0		/* array subscript */
+#define s_idx_subs	1
+#define s_idx_count	2
+
+#define s_crv_name	0
+#define s_crv_rse	1
+#define s_crv_count	2
+
+#define s_grant_fields	0
+#define s_grant_relation 1
+#define s_grant_users	2
+#define s_grant_privileges 3
+#define s_grant_count	4   
+
+/*  some flags for index definitions */
+
+#define s_dfi_flag_unique	1
+#define s_dfi_flag_inactive	2	
+#define s_dfi_flag_activity	4
+#define s_dfi_flag_selectivity	8
+#define s_dfi_flag_descending  16
+#define s_dfi_flag_order       32
+#define s_dfi_flag_statistics  64
+
+#endif /* _QLI_COMPILE_H_ */
diff --git a/src/qli/depends.mak b/src/qli/depends.mak
new file mode 100644
index 0000000000..94c971c421
--- /dev/null
+++ b/src/qli/depends.mak
@@ -0,0 +1,419 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# depends.mak - qli
+# Created by 'make depends.mak'
+# Created on 1998-11-17
+all.o: all.c
+all.o: all_proto.h
+all.o: blk.h
+all.o: compile.h
+all.o: dtr.h
+all.o: err_proto.h
+all.o: everything.h
+all.o: exe.h
+all.o: form.h
+all.o: format.h
+all.o: mov_proto.h
+all.o: parse.h
+all.o: report.h
+all.o: source/jrd/common.h
+all.o: source/jrd/dsc.h
+all.o: source/jrd/fil.h
+all.o: source/jrd/gds_proto.h
+all.o: source/jrd/thd.h
+all.o: symbols.h
+command.o: all_proto.h
+command.o: blk.h
+command.o: command.c
+command.o: compile.h
+command.o: dtr.h
+command.o: err_proto.h
+command.o: exe.h
+command.o: exe_proto.h
+command.o: meta_proto.h
+command.o: parse.h
+command.o: proc_proto.h
+command.o: source/interbase/include/iberror.h
+command.o: source/jrd/build_no.h
+command.o: source/jrd/common.h
+command.o: source/jrd/dsc.h
+command.o: source/jrd/fil.h
+command.o: source/jrd/gds.h
+command.o: source/jrd/gds_proto.h
+command.o: source/jrd/license.h
+command.o: source/jrd/thd.h
+command.o: symbols.h
+compile.o: all_proto.h
+compile.o: blk.h
+compile.o: compi_proto.h
+compile.o: compile.c
+compile.o: compile.h
+compile.o: dtr.h
+compile.o: err_proto.h
+compile.o: exe.h
+compile.o: form.h
+compile.o: forma_proto.h
+compile.o: meta_proto.h
+compile.o: report.h
+compile.o: source/intl/charsets.h
+compile.o: source/jrd/common.h
+compile.o: source/jrd/dsc.h
+compile.o: source/jrd/dsc_proto.h
+compile.o: source/jrd/intl.h
+dtr.o: all_proto.h
+dtr.o: blk.h
+dtr.o: compi_proto.h
+dtr.o: compile.h
+dtr.o: dtr.c
+dtr.o: dtr.h
+dtr.o: err_proto.h
+dtr.o: exe_proto.h
+dtr.o: expan_proto.h
+dtr.o: form_proto.h
+dtr.o: gener_proto.h
+dtr.o: help_proto.h
+dtr.o: lex_proto.h
+dtr.o: meta_proto.h
+dtr.o: parse.h
+dtr.o: parse_proto.h
+dtr.o: source/interbase/include/iberror.h
+dtr.o: source/jrd/build_no.h
+dtr.o: source/jrd/common.h
+dtr.o: source/jrd/dsc.h
+dtr.o: source/jrd/fil.h
+dtr.o: source/jrd/gds.h
+dtr.o: source/jrd/gds_proto.h
+dtr.o: source/jrd/license.h
+dtr.o: source/jrd/perf.h
+dtr.o: source/jrd/perf_proto.h
+dtr.o: source/jrd/thd.h
+dtr.o: symbols.h
+err.o: all_proto.h
+err.o: blk.h
+err.o: dtr.h
+err.o: err.c
+err.o: err_proto.h
+err.o: help_proto.h
+err.o: lex_proto.h
+err.o: parse.h
+err.o: source/jrd/common.h
+err.o: source/jrd/dsc.h
+err.o: source/jrd/fil.h
+err.o: source/jrd/gds_proto.h
+err.o: source/jrd/thd.h
+err.o: symbols.h
+eval.o: all_proto.h
+eval.o: blk.h
+eval.o: dtr.h
+eval.o: err_proto.h
+eval.o: eval.c
+eval.o: eval_proto.h
+eval.o: exe.h
+eval.o: exe_proto.h
+eval.o: form_proto.h
+eval.o: lex_proto.h
+eval.o: mov_proto.h
+eval.o: picst_proto.h
+eval.o: source/interbase/include/iberror.h
+eval.o: source/jrd/common.h
+eval.o: source/jrd/dsc.h
+eval.o: source/jrd/fil.h
+eval.o: source/jrd/gds.h
+eval.o: source/jrd/gds_proto.h
+eval.o: source/jrd/thd.h
+eval.o: source/jrd/utl_proto.h
+exe.o: all_proto.h
+exe.o: blk.h
+exe.o: dtr.h
+exe.o: err_proto.h
+exe.o: eval_proto.h
+exe.o: exe.c
+exe.o: exe.h
+exe.o: exe_proto.h
+exe.o: form_proto.h
+exe.o: forma_proto.h
+exe.o: mov_proto.h
+exe.o: repor_proto.h
+exe.o: source/interbase/include/iberror.h
+exe.o: source/jrd/common.h
+exe.o: source/jrd/dsc.h
+exe.o: source/jrd/fil.h
+exe.o: source/jrd/gds.h
+exe.o: source/jrd/gds_proto.h
+exe.o: source/jrd/thd.h
+exe.o: source/jrd/utl_proto.h
+expand.o: all_proto.h
+expand.o: blk.h
+expand.o: comma_proto.h
+expand.o: compi_proto.h
+expand.o: compile.h
+expand.o: dtr.h
+expand.o: err_proto.h
+expand.o: exe.h
+expand.o: expan_proto.h
+expand.o: expand.c
+expand.o: form.h
+expand.o: form_proto.h
+expand.o: help_proto.h
+expand.o: meta_proto.h
+expand.o: parse.h
+expand.o: report.h
+expand.o: show_proto.h
+expand.o: source/jrd/common.h
+expand.o: source/jrd/dsc.h
+expand.o: symbols.h
+form.o: all_proto.h
+form.o: blk.h
+form.o: dtr.h
+form.o: err_proto.h
+form.o: eval_proto.h
+form.o: exe.h
+form.o: exe_proto.h
+form.o: form.c
+form.o: form.h
+form.o: form_proto.h
+form.o: hsh_proto.h
+form.o: proc_proto.h
+form.o: source/interbase/include/iberror.h
+form.o: source/jrd/common.h
+form.o: source/jrd/dsc.h
+form.o: source/jrd/gds.h
+form.o: source/pyxis/attributes.h
+form.o: source/pyxis/phase1.h
+form.o: source/pyxis/phase2.h
+format.o: all_proto.h
+format.o: blk.h
+format.o: compile.h
+format.o: dtr.h
+format.o: err_proto.h
+format.o: eval_proto.h
+format.o: exe.h
+format.o: exe_proto.h
+format.o: form_proto.h
+format.o: forma_proto.h
+format.o: format.c
+format.o: format.h
+format.o: mov_proto.h
+format.o: picst_proto.h
+format.o: report.h
+format.o: source/interbase/include/iberror.h
+format.o: source/jrd/common.h
+format.o: source/jrd/dsc.h
+format.o: source/jrd/gds.h
+format.o: source/jrd/time.h
+gener.o: all_proto.h
+gener.o: blk.h
+gener.o: compi_proto.h
+gener.o: compile.h
+gener.o: dtr.h
+gener.o: err_proto.h
+gener.o: exe.h
+gener.o: gener.c
+gener.o: gener_proto.h
+gener.o: meta_proto.h
+gener.o: mov_proto.h
+gener.o: report.h
+gener.o: source/interbase/include/iberror.h
+gener.o: source/jrd/align.h
+gener.o: source/jrd/common.h
+gener.o: source/jrd/dsc.h
+gener.o: source/jrd/fil.h
+gener.o: source/jrd/gds.h
+gener.o: source/jrd/gds_proto.h
+gener.o: source/jrd/thd.h
+help.o: all_proto.h
+help.o: blk.h
+help.o: compile.h
+help.o: dtr.h
+help.o: err_proto.h
+help.o: help.c
+help.o: help_proto.h
+help.o: lex_proto.h
+help.o: source/interbase/include/iberror.h
+help.o: source/jrd/common.h
+help.o: source/jrd/dsc.h
+help.o: source/jrd/fil.h
+help.o: source/jrd/gds.h
+help.o: source/jrd/gds_proto.h
+help.o: source/jrd/thd.h
+hsh.o: all_proto.h
+hsh.o: blk.h
+hsh.o: dtr.h
+hsh.o: err_proto.h
+hsh.o: hsh.c
+hsh.o: hsh_proto.h
+hsh.o: parse.h
+hsh.o: source/jrd/common.h
+hsh.o: source/jrd/dsc.h
+hsh.o: symbols.h
+hsh.o: words.h
+lex.o: all_proto.h
+lex.o: blk.h
+lex.o: dtr.h
+lex.o: err_proto.h
+lex.o: hsh_proto.h
+lex.o: lex.c
+lex.o: lex_proto.h
+lex.o: parse.h
+lex.o: proc_proto.h
+lex.o: source/interbase/include/iberror.h
+lex.o: source/jrd/common.h
+lex.o: source/jrd/dsc.h
+lex.o: source/jrd/fil.h
+lex.o: source/jrd/gds.h
+lex.o: source/jrd/gds_proto.h
+lex.o: source/jrd/thd.h
+lex.o: source/jrd/utl_proto.h
+lex.o: symbols.h
+meta.o: all_proto.h
+meta.o: blk.h
+meta.o: compile.h
+meta.o: dtr.h
+meta.o: err_proto.h
+meta.o: exe.h
+meta.o: form_proto.h
+meta.o: gener_proto.h
+meta.o: hsh_proto.h
+meta.o: meta.c
+meta.o: meta_proto.h
+meta.o: reqs.h
+meta.o: source/gpre/prett_proto.h
+meta.o: source/interbase/include/iberror.h
+meta.o: source/jrd/build_no.h
+meta.o: source/jrd/common.h
+meta.o: source/jrd/dsc.h
+meta.o: source/jrd/fil.h
+meta.o: source/jrd/flags.h
+meta.o: source/jrd/gds.h
+meta.o: source/jrd/gds_proto.h
+meta.o: source/jrd/isc_f_proto.h
+meta.o: source/jrd/license.h
+meta.o: source/jrd/thd.h
+meta.o: source/jrd/utl_proto.h
+meta.o: source/wal/walf_proto.h
+mov.o: all_proto.h
+mov.o: blk.h
+mov.o: dtr.h
+mov.o: err_proto.h
+mov.o: mov.c
+mov.o: mov_proto.h
+mov.o: source/intl/charsets.h
+mov.o: source/jrd/common.h
+mov.o: source/jrd/dsc.h
+mov.o: source/jrd/fil.h
+mov.o: source/jrd/gds_proto.h
+mov.o: source/jrd/intl.h
+mov.o: source/jrd/thd.h
+mov.o: source/jrd/time.h
+noform.o: all_proto.h
+noform.o: blk.h
+noform.o: dtr.h
+noform.o: exe.h
+noform.o: form.h
+noform.o: form_proto.h
+noform.o: noform.c
+noform.o: source/jrd/common.h
+noform.o: source/jrd/dsc.h
+nounix.o: nounix.c
+parse.o: all_proto.h
+parse.o: blk.h
+parse.o: compile.h
+parse.o: dtr.h
+parse.o: err_proto.h
+parse.o: exe.h
+parse.o: hsh_proto.h
+parse.o: lex_proto.h
+parse.o: mov_proto.h
+parse.o: parse.c
+parse.o: parse.h
+parse.o: parse_proto.h
+parse.o: proc_proto.h
+parse.o: report.h
+parse.o: source/jrd/common.h
+parse.o: source/jrd/dsc.h
+parse.o: symbols.h
+picstr.o: all_proto.h
+picstr.o: blk.h
+picstr.o: dtr.h
+picstr.o: err_proto.h
+picstr.o: format.h
+picstr.o: mov_proto.h
+picstr.o: picst_proto.h
+picstr.o: picstr.c
+picstr.o: source/jrd/common.h
+picstr.o: source/jrd/dsc.h
+picstr.o: source/jrd/fil.h
+picstr.o: source/jrd/gds_proto.h
+picstr.o: source/jrd/thd.h
+picstr.o: source/jrd/time.h
+proc.o: all_proto.h
+proc.o: blk.h
+proc.o: compile.h
+proc.o: dtr.h
+proc.o: err_proto.h
+proc.o: lex_proto.h
+proc.o: meta_proto.h
+proc.o: parse.h
+proc.o: parse_proto.h
+proc.o: proc.c
+proc.o: proc_proto.h
+proc.o: procddl1.h
+proc.o: procddl2.h
+proc.o: procddl3.h
+proc.o: procddl4.h
+proc.o: source/interbase/include/iberror.h
+proc.o: source/jrd/common.h
+proc.o: source/jrd/dsc.h
+proc.o: source/jrd/gds.h
+proc.o: symbols.h
+report.o: all_proto.h
+report.o: blk.h
+report.o: compile.h
+report.o: dtr.h
+report.o: eval_proto.h
+report.o: exe.h
+report.o: exe_proto.h
+report.o: forma_proto.h
+report.o: mov_proto.h
+report.o: repor_proto.h
+report.o: report.c
+report.o: report.h
+report.o: source/jrd/common.h
+report.o: source/jrd/dsc.h
+show.o: all_proto.h
+show.o: blk.h
+show.o: comma_proto.h
+show.o: compile.h
+show.o: dtr.h
+show.o: err_proto.h
+show.o: meta_proto.h
+show.o: parse.h
+show.o: proc_proto.h
+show.o: reqs.h
+show.o: show.c
+show.o: show_proto.h
+show.o: source/interbase/include/iberror.h
+show.o: source/jrd/build_no.h
+show.o: source/jrd/common.h
+show.o: source/jrd/dsc.h
+show.o: source/jrd/fil.h
+show.o: source/jrd/flags.h
+show.o: source/jrd/gds.h
+show.o: source/jrd/gds_proto.h
+show.o: source/jrd/license.h
+show.o: source/jrd/thd.h
+show.o: symbols.h
diff --git a/src/qli/dtr.cpp b/src/qli/dtr.cpp
new file mode 100644
index 0000000000..5d7d831c47
--- /dev/null
+++ b/src/qli/dtr.cpp
@@ -0,0 +1,653 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		dtr.c
+ *	DESCRIPTION:	Top level driving module
+ *                         
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#define QLI_MAIN
+#include "../jrd/ib_stdio.h"
+#include <setjmp.h>
+#include <stdlib.h>
+#include <string.h>
+#include <signal.h>
+#include "../qli/dtr.h"
+#include "../qli/parse.h"
+#include "../qli/compile.h"
+#include "../jrd/perf.h"
+#include "../jrd/license.h"
+#include "../include/jrd/gds.h"
+#include "../qli/all_proto.h"
+#include "../qli/compi_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/exe_proto.h"
+#include "../qli/form_proto.h"
+#include "../qli/expan_proto.h"
+#include "../qli/gener_proto.h"
+#include "../qli/help_proto.h"
+#include "../qli/lex_proto.h"
+#include "../qli/meta_proto.h"
+#include "../qli/parse_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/perf_proto.h"
+
+#ifdef VMS
+#define STARTUP_FILE	"QLI_STARTUP"
+#endif
+
+#ifndef STARTUP_FILE
+#define STARTUP_FILE    "HOME"	/* Assume its Unix */
+#endif
+
+#ifndef SIGQUIT
+#define SIGQUIT		SIGINT
+#define SIGPIPE		SIGINT
+#endif
+
+/* Program wide globals */
+
+int *QLI_env;					/* Error return environment */
+
+TEXT *QLI_error;
+USHORT sw_verify, sw_trace, sw_forms, sw_buffers;
+USHORT QLI_lines = 60, QLI_prompt_count, QLI_reprompt, QLI_name_columns = 0;
+
+/* Let's define the default number of columns on a machine by machine basis */
+
+#ifdef VMS
+USHORT QLI_columns = 80;
+#else
+USHORT QLI_columns = 80;
+#endif
+
+extern TEXT *QLI_prompt;
+
+static void enable_signals(void);
+static USHORT process_statement(USHORT);
+static void CLIB_ROUTINE signal_arith_excp(USHORT, USHORT, USHORT);
+static void CLIB_ROUTINE signal_quit(void);
+static BOOLEAN yes_no(USHORT, TEXT *);
+
+typedef struct answer_t {
+	TEXT answer[30];
+	BOOLEAN value;
+} *ANS;
+
+static yes_no_loaded = 0;
+static struct answer_t answer_table[] = {
+	"", FALSE,					/* NO   */
+	"", TRUE,					/* YES  */
+	NULL, 0,
+};
+
+
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Top level routine.  
+ *
+ **************************************/
+	TEXT **arg_end, *p, *q, *r, *end, c, *startup_file, *application_file;
+	SCHAR home_directory[256];
+	PLB temp;
+	USHORT flush_flag, banner_flag, version_flag, got_started;
+#ifdef VMS
+	USHORT vms_tryagain_flag;
+#endif
+	SLONG debug_value;
+	jmp_buf env;
+	int status;
+
+#ifdef __OVERLAY__
+	_OvrInitEms(0, 0, 0);
+#endif
+
+/* Look at options, if any */
+
+	startup_file = STARTUP_FILE;
+
+#ifdef UNIX
+/* If a Unix system, get home directory from environment */
+	startup_file = getenv("HOME");
+	if (startup_file == NULL) {
+		startup_file = ".qli_startup";
+	}
+	else {
+		strcpy(home_directory, startup_file);
+		strcat(home_directory, "/.qli_startup");
+		startup_file = home_directory;
+	}
+#endif
+
+	application_file = NULL;
+	ALLQ_init();
+	LEX_init();
+	version_flag = flush_flag = FALSE;
+	banner_flag = TRUE;
+	sw_buffers = 0;
+	strcpy(QLI_prompt_string, "QLI> ");
+	strcpy(QLI_cont_string, "CON> ");
+	QLI_prompt = QLI_prompt_string;
+	QLI_matching_language = 0;
+	QLI_default_user[0] = 0;
+	QLI_default_password[0] = 0;
+	QLI_charset[0] = 0;
+
+#ifdef DEVBUILD
+	QLI_hex_output = 0;
+#endif
+
+#if (defined JPN_EUC  || defined JPN_SJIS)
+	QLI_interp = HOST_INTERP;
+#endif /* (defined JPN_EUC  || defined JPN_SJIS) */
+
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+	for (arg_end = argv + argc, argv++; argv < arg_end;) {
+		p = *argv++;
+		if (*p++ != '-') {
+			banner_flag = FALSE;
+			LEX_pop_line();
+			LEX_push_string(p - 1);
+			continue;
+		}
+		while (c = *p++)
+			switch (UPPER(c)) {
+			case 'A':
+				if (argv >= arg_end) {
+					ERRQ_msg_put(23, NULL, NULL, NULL, NULL, NULL);	/* Msg23 Please retry, supplying an application script file name  */
+					exit(FINI_ERROR);
+				}
+
+				application_file = *argv++;
+				break;
+
+			case 'B':
+				if (argv < arg_end && **argv != '-')
+					sw_buffers = atoi(*argv++);
+				break;
+
+			case 'I':
+				if (argv >= arg_end || **argv == '-')
+					startup_file = NULL;
+				else
+					startup_file = *argv++;
+				break;
+
+			case 'N':
+				banner_flag = FALSE;
+				break;
+
+			case 'P':
+				if (argv >= arg_end || **argv == '-')
+					break;
+				r = QLI_default_password;
+				end = r + sizeof(QLI_default_password) - 1;
+				for (q = *argv++; *q && r < end;)
+					*r++ = *q++;
+				*r = 0;
+				break;
+
+			case 'T':
+				sw_trace = TRUE;
+				break;
+
+			case 'U':
+				if (argv >= arg_end || **argv == '-')
+					break;
+				r = QLI_default_user;
+				end = r + sizeof(QLI_default_user) - 1;
+				for (q = *argv++; *q && r < end;)
+					*r++ = *q++;
+				*r = 0;
+				break;
+
+			case 'V':
+				sw_verify = TRUE;
+				break;
+
+#ifndef PC_PLATFORM
+			case 'X':
+				debug_value = 1;
+				gds__set_debug(debug_value);
+				break;
+#endif
+
+				/* This switch's name is arbitrary; since it is an internal 
+				   mechanism it can be changed at will */
+
+			case 'Y':
+				QLI_trace = TRUE;
+				break;
+
+			case 'Z':
+				version_flag = TRUE;
+				break;
+
+			default:
+				ERRQ_msg_put(469, (TEXT *) c, NULL, NULL, NULL, NULL);	/* Msg469 qli: ignoring unknown switch %c */
+				break;
+			}
+	}
+
+	enable_signals();
+
+	if (banner_flag)
+		ERRQ_msg_put(24, NULL, NULL, NULL, NULL, NULL);	/* Msg24 Welcome to QLI Query Language Interpreter */
+
+	if (version_flag)
+		ERRQ_msg_put(25, GDS_VERSION, NULL, NULL, NULL, NULL);	/* Msg25 qli version %s */
+
+	if (application_file)
+		LEX_push_file(application_file, TRUE);
+
+	if (startup_file)
+		LEX_push_file(startup_file, FALSE);
+
+#ifdef VMS
+	vms_tryagain_flag = FALSE;
+	if (startup_file)
+		vms_tryagain_flag = LEX_push_file(startup_file, FALSE);
+
+/* If default value of startup file wasn't altered by the use of -i,
+   and LEX returned FALSE (above), try the old logical name, QLI_INIT */
+
+	if (!vms_tryagain_flag && startup_file
+		&& !(strcmp(startup_file, STARTUP_FILE))) LEX_push_file("QLI_INIT",
+																FALSE);
+#endif
+
+	for (got_started = 0; !got_started;) {
+		got_started = 1;
+		if (setjmp(env)) {
+			/* try again */
+
+			got_started = 0;
+			ERRQ_pending();
+		}
+		else {
+			QLI_env = env;
+			PAR_token();
+		}
+	}
+	QLI_env = NULL;
+	QLI_error = NULL;
+
+/* Loop until end of file or forced exit */
+
+	while (QLI_line) {
+		temp = QLI_default_pool = ALLQ_pool();
+		flush_flag = process_statement(flush_flag);
+		ERRQ_pending();
+		if (sw_forms)
+			FORM_reset();
+		ALLQ_rlpool(temp);
+	}
+
+	FORM_fini();
+	HELP_fini();
+	MET_shutdown();
+	LEX_fini();
+	ALLQ_fini();
+#ifdef DEBUG_GDS_ALLOC
+/* Report any memory leaks noticed.  
+ * We don't particularly care about QLI specific memory leaks, so all
+ * QLI allocations have been marked as "don't report".  However, much
+ * of the test-base uses QLI so having a report when QLI finishes
+ * could find leaks within the engine.
+ */
+	gds_alloc_report(0, __FILE__, __LINE__);
+#endif
+	exit(FINI_OK);
+}
+
+
+static void enable_signals(void)
+{
+/**************************************
+ *
+ *	e n a b l e _ s i g n a l s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enable signals.
+ *
+ **************************************/
+	SLONG mask;
+	void (*prev_handler) ();
+
+	signal(SIGQUIT, signal_quit);
+	signal(SIGINT, signal_quit);
+	signal(SIGPIPE, signal_quit);
+	signal(SIGFPE, signal_arith_excp);
+}
+
+
+static USHORT process_statement( USHORT flush_flag)
+{
+/**************************************
+ *
+ *	p r o c e s s _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse, compile, and execute a single statement.  If an input flush
+ *	is required, return TRUE (or status), otherwise return FALSE.
+ *
+ **************************************/
+	SYN syntax_tree;
+	BLK expanded_tree, execution_tree;
+	DBB dbb;
+	PERF statistics;
+	TEXT buffer[512], report[256], *p;
+	int status;
+	jmp_buf env;
+
+/* Clear database active flags in preparation for a new statement */
+
+	QLI_abort = FALSE;
+	execution_tree = NULL;
+
+	for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+		dbb->dbb_flags &= ~DBB_active;
+
+/* If the last statement wrote out anything to the terminal, skip a line */
+
+	if (QLI_skip_line) {
+		ib_printf("\n");
+		QLI_skip_line = FALSE;
+	}
+
+/* Enable signal handling for the next statement.  Each signal will
+   be caught at least once, then reset to allow the user to really
+   kill the process */
+
+	enable_signals();
+
+/* Enable error unwinding and enable the unwinding environment */
+
+	status = setjmp(env);
+
+	if (status) {
+		GEN_release();
+		return status;
+	}
+
+	QLI_env = env;
+
+/* Set up the appropriate prompt and get the first significant token.  If
+   we don't get one, we're at end of file */
+
+	QLI_prompt = QLI_prompt_string;
+
+/* This needs to be done after setting QLI_prompt to prevent
+ * and infinite loop in LEX/next_line.
+ */
+/* If there was a prior syntax error, flush the token stream */
+
+	if (flush_flag)
+		LEX_flush();
+
+	while (QLI_token->tok_keyword == KW_SEMI)
+		LEX_token();
+
+	PAR_real();
+
+	if (!QLI_line)
+		return FALSE;
+
+	EXEC_poll_abort();
+
+/* Mark the current token as starting the statement.  This is allows
+   the EDIT command to find the last statement */
+
+	LEX_mark_statement();
+
+/* Change the prompt string to the continuation prompt, and parse
+   the next statement */
+
+	QLI_prompt = QLI_cont_string;
+
+	if (!(syntax_tree = PARQ_parse()))
+		return FALSE;
+
+	EXEC_poll_abort();
+
+/* If the statement was EXIT, force end of file on command input */
+
+	if (syntax_tree->syn_type == nod_exit) {
+		QLI_line = NULL;
+		return FALSE;
+	}
+
+/* If the statement was quit, ask the user if he want to rollback */
+
+	if (syntax_tree->syn_type == nod_quit) {
+		QLI_line = NULL;
+		for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+			if ((dbb->dbb_transaction) && (dbb->dbb_flags & DBB_updates))
+				if (yes_no(460, dbb->dbb_symbol->sym_string))	/* Msg460 Do you want to rollback updates for <dbb>? */
+					MET_transaction(nod_rollback, dbb);
+				else
+					MET_transaction(nod_commit, dbb);
+		return FALSE;
+	}
+
+/* Expand the statement.  It will return NULL is the statement was
+   a command.  An error will be unwound */
+
+	if (!(expanded_tree = EXP_expand(syntax_tree)))
+		return FALSE;
+
+/* Compile the statement */
+
+	if (!(execution_tree = CMPQ_compile(expanded_tree)))
+		return FALSE;
+
+/* Generate any BLR needed to support the request */
+
+	if (!GEN_generate(execution_tree))
+		return FALSE;
+
+	if (QLI_statistics)
+		for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+			if (dbb->dbb_flags & DBB_active) {
+				if (!dbb->dbb_statistics) {
+					dbb->dbb_statistics =
+						(int *) gds__alloc((SLONG) sizeof(PERF));
+#ifdef DEBUG_GDS_ALLOC
+					/* We don't care about QLI specific memory leaks for V4.0 */
+					gds_alloc_flag_unfreed((void *) dbb->dbb_statistics);	/* QLI: don't care */
+#endif
+				}
+#ifndef PC_PLATFORM
+				perf_get_info(&dbb->dbb_handle, dbb->dbb_statistics);
+#endif
+			}
+
+/* Execute the request, for better or worse */
+
+	EXEC_top(execution_tree);
+
+	if (QLI_statistics)
+		for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+			if (dbb->dbb_flags & DBB_active) {
+#ifndef PC_PLATFORM
+				ERRQ_msg_get(505, report);
+				/* Msg505 "    reads = !r writes = !w fetches = !f marks = !m\n" */
+				ERRQ_msg_get(506, report + strlen(report));
+				/* Msg506 "    elapsed = !e cpu = !u system = !s mem = !x, buffers = !b" */
+				perf_get_info(&dbb->dbb_handle, &statistics);
+				perf_format(dbb->dbb_statistics, &statistics,
+							report, buffer, 0);
+#endif
+				ERRQ_msg_put(26, dbb->dbb_filename, buffer, NULL, NULL, NULL);	/* Msg26 Statistics for database %s %s  */
+				QLI_skip_line = TRUE;
+			}
+
+/* Release resources associated with the request */
+
+	GEN_release();
+
+	return FALSE;
+}
+
+
+static void CLIB_ROUTINE signal_arith_excp(USHORT sig, USHORT code, USHORT scp)
+{
+/**************************************
+ *
+ *	s i g n a l _ a r i t h _ e x c p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Catch arithmetic exception.
+ *
+ **************************************/
+	USHORT msg_number;
+
+	switch (code) {
+#ifdef FPE_INOVF_TRAP
+	case FPE_INTOVF_TRAP:
+		msg_number = 14;		/* Msg14 integer overflow */
+		break;
+#endif
+
+#ifdef FPE_INTDIV_TRAP
+	case FPE_INTDIV_TRAP:
+		msg_number = 15;		/* Msg15 integer division by zero */
+		break;
+#endif
+
+#ifdef FPE_FLTOVF_TRAP
+	case FPE_FLTOVF_TRAP:
+		msg_number = 16;		/* Msg16 floating overflow trap */
+		break;
+#endif
+
+#ifdef FPE_FLTDIV_TRAP
+	case FPE_FLTDIV_TRAP:
+		msg_number = 17;		/* Msg17 floating division by zero */
+		break;
+#endif
+
+#ifdef FPE_FLTUND_TRAP
+	case FPE_FLTUND_TRAP:
+		msg_number = 18;		/* Msg18 floating underflow trap */
+		break;
+#endif
+
+#ifdef FPE_FLTOVF_FAULT
+	case FPE_FLTOVF_FAULT:
+		msg_number = 19;		/* Msg19 floating overflow fault */
+		break;
+#endif
+
+#ifdef FPE_FLTUND_FAULT
+	case FPE_FLTUND_FAULT:
+		msg_number = 20;		/* Msg20 floating underflow fault */
+		break;
+#endif
+
+	default:
+		msg_number = 21;		/* Msg21 arithmetic exception */
+	}
+
+	signal(SIGFPE, signal_arith_excp);
+
+	IBERROR(msg_number);
+}
+
+
+static void CLIB_ROUTINE signal_quit(void)
+{
+/**************************************
+ *
+ *	s i g n a l _ q u i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stop whatever we happened to be doing.
+ *
+ **************************************/
+	void (*prev_handler) ();
+
+	signal(SIGQUIT, SIG_DFL);
+	signal(SIGINT, SIG_DFL);
+
+	EXEC_abort();
+}
+
+
+static BOOLEAN yes_no( USHORT number, TEXT * arg1)
+{
+/**************************************
+ *
+ *	y e s _ n o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put out a prompt that expects a yes/no
+ *	answer, and keep trying until we get an
+ *	acceptable answer (e.g. y, Yes, N, etc.)
+ *
+ **************************************/
+	TEXT buffer[256], prompt[256], *p, *q, c;
+	ANS response;
+
+	ERRQ_msg_format(number, sizeof(prompt), prompt, arg1, NULL, NULL, NULL,
+					NULL);
+	if (!yes_no_loaded) {
+		yes_no_loaded = 1;
+		if (!ERRQ_msg_get(498, answer_table[0].answer))	/* Msg498 NO    */
+			strcpy(answer_table[0].answer, "NO");	/* default if msg_get fails */
+		if (!ERRQ_msg_get(497, answer_table[1].answer))	/* Msg497 YES   */
+			strcpy(answer_table[1].answer, "YES");
+	}
+
+	while (TRUE) {
+		buffer[0] = 0;
+		if (!LEX_get_line(prompt, buffer, sizeof(buffer)))
+			return TRUE;
+		for (response = answer_table; (TEXT *) response->answer; response++) {
+			p = buffer;
+			while (*p == ' ')
+				p++;
+			if (*p == EOF)
+				return TRUE;
+			for (q = response->answer; *p && UPPER(*p) == *q++; p++);
+			if (!*p || *p == '\n')
+				return response->value;
+		}
+	}
+}
diff --git a/src/qli/dtr.h b/src/qli/dtr.h
new file mode 100644
index 0000000000..ff6e3f5f55
--- /dev/null
+++ b/src/qli/dtr.h
@@ -0,0 +1,501 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		dtr.h
+ *	DESCRIPTION:	General definitions, etc.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_DTR_H_
+#define _QLI_DTR_H_
+
+#include "../jrd/common.h"
+#include "../jrd/dsc.h"
+
+#define QLI_MSG_FAC		1
+#define BUGCHECK(number)	ERRQ_bugcheck (number)
+#define SYNTAX_ERROR(number)	ERRQ_syntax (number)
+#define IBERROR(number)		ERRQ_error (number, NULL, NULL, NULL, NULL, NULL)
+#define BLKCHK(blk,type)	if (blk->blk_type != (SCHAR) type) BUGCHECK (0)
+				/* MSG 0 - expected type */
+
+#define ALL_release(blk)	ALLQ_release (blk)
+#define ALLOCD(type)		ALLQ_alloc (QLI_default_pool, type, 0)
+#define ALLOCDV(type,repeat)	ALLQ_alloc (QLI_default_pool, type, repeat)
+#define ALLOCP(type)		ALLQ_alloc (QLI_permanent_pool, type, 0)
+#define ALLOCPV(type,repeat)	ALLQ_alloc (QLI_permanent_pool, type, repeat)
+
+#define BLKDEF(type, root, tail) type,
+ENUM blk_t
+    {
+    type_MIN = 0,
+#include "../qli/blk.h"
+    type_MAX
+    };
+#undef BLKDEF
+
+/* Block types */
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+typedef struct vec {
+    struct blk	vec_header;
+    ULONG	vec_count;
+    struct blk	*vec_object[1];
+} *VEC;
+
+typedef struct vcl {
+    struct blk	vcl_header;
+    ULONG	vcl_count;
+    SLONG	vcl_long[1];
+} *VCL;
+
+/* Database block */
+
+typedef struct dbb {
+    struct blk	dbb_header;
+    struct dbb	*dbb_next;		/* Next database in system */
+    struct rel	*dbb_relations;		/* Linked list of relations */
+    struct frm	*dbb_forms;		/* Known forms in database */
+    struct fun	*dbb_functions;		/* Known functions in database */
+    void	*dbb_handle;		/* database handle */
+    void	*dbb_transaction;	/* transaction handle */
+    void	*dbb_proc_trans;	/* procedure transaction */
+    void	*dbb_meta_trans;	/* metadata update transaction */
+    void	*dbb_field_request;	/* "get fields" request handle */
+    struct sym	*dbb_symbol;		/* Database variable */
+    struct con	*dbb_user;		/* user name */
+    struct con	*dbb_password;		/* password */
+    USHORT	dbb_filename_length;	/* Length of filename */
+    void	*dbb_lookup_blob;	/* Request to look up blob */
+    void	*dbb_store_blob;	/* Request to store blob */
+    void	*dbb_edit_blob;
+    void	*dbb_edit_store;
+    void	*dbb_scan_blobs;
+    void	*dbb_delete_blob;
+    USHORT	dbb_flags;
+    USHORT	dbb_type;		/* Friend or foe? */
+    USHORT	dbb_pagesize;		/* For SQL metadata */
+    ULONG	dbb_capabilities;	/* Special characteristics to look out for */
+    int		*dbb_statistics;	/* Statistics memory */
+    void	*dbb_requests [96];	/* Misc meta-data requests */
+    TEXT	dbb_filename [2];	/* Filename of database */
+} *DBB;
+
+/* Bits in dbb_flags */
+
+#define DBB_procedures	1		/* Procedures relation found */
+#define DBB_active	2		/* Database is active in request */
+#define DBB_updates	8		/* Updates in current transaction */
+#define DBB_form_init	16		/* Forms are initialize for database */
+#define DBB_prepared	32		/* User transaction has been prepared */
+
+/* Bits in dbb_capabilities */
+
+#define DBB_cap_extern_file	1	/* supports the concept of external files */
+#define DBB_cap_files		2	/* uses the Interbase concept of multi-file */
+#define DBB_cap_security	4	/* InterBase style security classes */
+/* #define DBB_cap_triggers	8	-- OBSOLETE: triggers (old style) */
+#define DBB_cap_idx_inactive	16	/* Interbase index inactive flag */
+#define DBB_cap_multi_trans	32	/* Database supports multiple transactions */
+#define DBB_cap_single_trans	64	/* Database supports only a single transaction */
+#define DBB_cap_dudley		128	/* We're authorized for meta-data updates */
+#define DBB_cap_functions	256	/* The DBMS knows about function */
+#define DBB_cap_new_triggers	512	/* triggers (new V3 style) */
+#define DBB_cap_shadowing	1024	/* Database supports shadowing */
+#define DBB_cap_types		2048	/* Database has RDB$TYPES relation */
+#define DBB_cap_dimensions	4096	/* Database supports arrays -- What a database! */ 
+#define DBB_cap_external_type	8192	/* Database supports external datatypes */
+#define DBB_cap_rfr_sys_flag	16384  	/* Database hasn't forgotten about the system flag */
+#define DBB_cap_filters		32768	/* Database supports filters */
+#define DBB_cap_index_type	65536	/* Database has too damn much stuff */
+/* Relation block */
+
+typedef struct rel {
+    struct blk	rel_header;
+    struct rel	*rel_next;		/* Next relation in database */
+    struct dbb	*rel_database;		/* Parent database */
+    struct sym	*rel_symbol;		/* Hash symbol for relation */
+    struct fld	*rel_fields;		/* Field block */
+    struct frm	*rel_form;		/* Default for for relation */
+    USHORT	rel_id;			/* Relation id */
+    USHORT	rel_flags;		/* Misc flags */
+    USHORT	rel_system_flag;	/* System flag */
+    USHORT	rel_max_field_pos;	/* highest used field position */
+} *REL;
+
+#define REL_fields	1		/* Fields have been fetched */
+#define REL_system	2		/* Relation is system relation */
+#define REL_view	4		/* Relation is a view */
+
+/* Field block */
+
+typedef struct fld {
+    struct blk	fld_header;
+    struct fld	*fld_next;		/* Next field in relation */
+    struct rel	*fld_relation;		/* Parent relation */
+    struct sym	*fld_name;		/* Field name */
+    struct sym	*fld_query_name;	/* Field query name */
+    struct ffl	*fld_form;		/* Field form, if known */
+    struct sym	*fld_based;		/* Name of global field, if we care */
+    TEXT	*fld_edit_string;	/* Edit string, if any */
+    TEXT	*fld_query_header;	/* Query header, if any */
+    USHORT	fld_flags;
+    USHORT	fld_id;			/* Field in in database */
+    USHORT	fld_dtype;		/* Data type of field */
+    FLD_LENGTH	fld_length;		/* Length of field */
+    USHORT	fld_segment_length;	/* Segment length for blobs */
+    SSHORT	fld_scale;		/* Scale factor of field */
+    struct syn	*fld_validation;	/* Validation expression */
+    struct syn	*fld_computed;		/* Computed by expression */
+    struct con  *fld_missing;		/* Missing value defined in system relation */
+    SSHORT	fld_sub_type;		/* Subtype for blobs and text */
+    SSHORT	fld_sub_type_missing;	/* Subtype missing flag */
+    USHORT	fld_system_flag;	/* System flag */
+    double	fld_dummy;		/* Force fld_data to a nice boundary word boundary */
+    UCHAR	fld_data [1];
+} *FLD;
+
+#define FLD_computed	1
+#define FLD_drop	2
+#define FLD_modify	4
+#define FLD_missing	8
+#define FLD_not_null	16
+#define FLD_add		32
+#define FLD_unique	64
+#define FLD_array	128
+
+/* Privileges for SQL metadata */
+
+#define PRV_select	1
+#define PRV_insert	2
+#define PRV_delete	4
+#define PRV_update	8
+#define PRV_all		PRV_select + PRV_insert + PRV_delete + PRV_update
+#define PRV_grant_option	16
+
+#define LLS_PUSH(object,stack)		ALLQ_push ((BLK) object, stack)
+#define LLS_POP(stack)			ALLQ_pop (stack)
+
+typedef struct lls {
+    struct blk	lls_header;
+    struct blk	*lls_object;
+    struct lls	*lls_next;
+} *LLS;
+
+/* Random string block -- jack of all kludges */
+
+typedef struct str {
+    struct blk	str_header;
+    USHORT	str_length;
+    USHORT	str_fluff;
+    TEXT	str_data[2];
+} *STR;
+
+/* Symbol types */
+
+typedef ENUM sym_t {
+    SYM_keyword,
+    SYM_context,
+    SYM_database,
+    SYM_relation,
+    SYM_field,
+    SYM_stream,
+    SYM_cursor,
+    SYM_form,
+    SYM_function
+} SYM_T;
+
+typedef struct sym {
+    struct blk	sym_header;
+    TEXT	*sym_string;	/* address of asciz string */
+    USHORT	sym_length;	/* length of string (exc. term.) */
+    SYM_T	sym_type;	/* symbol type */
+    USHORT	sym_keyword;	/* keyword number, if keyword */
+    struct blk	*sym_object;	/* general pointer to object */
+    struct sym	*sym_collision;	/* collision pointer */
+    struct sym	*sym_homonym;	/* homonym pointer */
+    TEXT	sym_name[2];	/* space for name, if necessary */
+} *SYM ;
+
+/* Free block */
+
+typedef struct frb {
+    struct blk	frb_header;
+    struct frb	*frb_next;	/* Next free block in pool */
+} *FRB;
+
+/* Hunk blocks */
+
+typedef struct hnk {
+    struct blk	hnk_header;
+    SCHAR	*hnk_address;	/* start of memory hunk */
+    int		hnk_length;	/* length of memory hunk */
+    struct hnk	*hnk_next;	/* next memory hunk in structure */
+} *HNK;
+
+/* Pool block */
+
+typedef struct plb {
+    struct blk	plb_header;
+    USHORT	plb_pool_id;	/* pool id */
+    FRB		plb_free;	/* first free block */
+    HNK		plb_hunks;	/* first hunk block */
+    LLS		plb_lls;	/* avaiable linked list stack nodes */
+} *PLB;
+
+typedef ENUM nod_t {
+
+/* Commands, not executed. */
+
+    nod_ready = 1,
+    nod_finish,
+    nod_commit,
+    nod_rollback,
+    nod_prepare,
+    nod_start_trans,
+    nod_show,
+    nod_exit,
+    nod_quit,
+    nod_create,
+    nod_define,
+    nod_delete_proc,
+    nod_rename_proc,
+    nod_edit_proc,
+    nod_copy_proc,
+    nod_edit_form,
+    nod_del_form,
+    nod_extract,
+    nod_edit,
+    nod_set,
+    nod_help,
+    nod_shell,
+    nod_def_database,
+    nod_del_database,
+    nod_def_relation,
+    nod_mod_relation,
+    nod_del_relation,
+    nod_def_field,
+    nod_mod_field,
+    nod_del_field,
+    nod_def_index,
+    nod_del_index,
+    nod_mod_index,
+
+/* SQL statements, mapped into GDML statements */
+
+    nod_select,
+    nod_insert,
+    nod_delete,
+    nod_fetch,
+    nod_close,
+    nod_open,
+
+    nod_for,
+    nod_restructure,
+    nod_print,
+    nod_list_fields,
+    nod_list,
+    nod_store,
+    nod_modify,
+    nod_erase,
+    nod_assign,
+    nod_report,
+    nod_report_loop,
+    nod_repeat,
+    nod_if,
+    nod_form_for,
+    nod_form_update,
+    nod_output,
+    nod_declare,
+    nod_variable,
+    nod_abort,
+    nod_label,
+    nod_leave,
+    nod_menu,
+    nod_sync,
+    nod_commit_retaining,
+
+    nod_relation,
+    nod_name,
+    nod_rse,
+    nod_union,
+    nod_aggregate,
+    nod_form,
+
+    nod_print_item,
+    nod_star,			/* Bunch of items */
+    nod_column,
+    nod_tab,
+    nod_skip,
+    nod_space,
+    nod_new_page,
+    nod_report_header,
+    nod_column_header,
+
+    nod_eql,
+    nod_neq,
+    nod_gtr,
+    nod_geq,
+    nod_leq,
+    nod_lss,
+    nod_between,
+    nod_containing,
+    nod_matches,
+    nod_like,
+    nod_starts,
+    nod_missing,
+    nod_and,
+    nod_or,
+    nod_any,
+    nod_not,
+    nod_unique,
+
+    nod_reference,
+    nod_field,
+    nod_form_field,
+    nod_prompt,
+    nod_prompt2,
+    nod_edit_blob,
+    nod_parameter,
+    nod_constant,
+    nod_position,
+    nod_map,
+
+    nod_add,
+    nod_subtract,
+    nod_multiply,
+    nod_divide,
+    nod_negate,
+    nod_concatenate,
+    nod_substr,
+    nod_null,
+    nod_user_name,
+    nod_format,
+    nod_choice,
+    nod_function,
+
+    nod_average,
+    nod_max,
+    nod_min,
+    nod_total,
+    nod_count,
+
+    nod_agg_average,
+    nod_agg_max,
+    nod_agg_min,
+    nod_agg_total,
+    nod_agg_count,
+
+    nod_rpt_average,
+    nod_rpt_max,
+    nod_rpt_min,
+    nod_rpt_total,
+    nod_rpt_count,
+
+    nod_running_count,
+    nod_running_total,
+    nod_from,
+    nod_via,
+
+    nod_upcase,				/* New blr for v3 */
+    nod_sleuth,
+    nod_index,
+
+    nod_join_inner,
+    nod_join_left,
+    nod_join_right,
+    nod_join_full,
+
+    nod_sql_create,			/* SQL metadata */
+    nod_sql_database,
+    nod_sql_dr_index,
+    nod_sql_al_table,
+    nod_sql_cr_table,
+    nod_sql_dr_table,
+    nod_sql_cr_view,
+    nod_sql_dr_view,
+    nod_sql_grant,
+    nod_sql_revoke
+
+} NOD_T;
+
+/* Equivalence label dsc_missing to field dsc_flags in the dsc structure */
+
+#define dsc_missing	dsc_flags
+                        
+/* State flags for dsc_missing */
+
+#define DSC_missing	1
+#define DSC_initial	2
+
+/* Constant block */
+
+typedef struct con {
+    struct blk	con_header;
+    DSC		con_desc;
+    UCHAR	con_data[1];
+} *CON;
+
+/* Function description */
+
+typedef struct fun {
+    struct blk	fun_header;
+    struct fun	*fun_next;		/* Next function in database */
+    DBB		fun_database;
+    SYM		fun_symbol;		/* Associated symbol block */
+    SYM		fun_query_name;
+    DSC		fun_return;		/* Return descriptor */
+    USHORT	fun_args;		/* Number of arguments */
+    DSC		fun_arg [1];		/* Data type of arguments */
+} *FUN;
+
+/* Program wide globals */
+
+#ifdef QLI_MAIN
+#define EXTERN
+#else
+#define EXTERN	extern
+#endif
+
+EXTERN DBB	QLI_databases;
+EXTERN PLB	QLI_permanent_pool, QLI_default_pool;
+EXTERN FLD	QLI_variables;
+EXTERN TEXT	QLI_prompt_string [32], QLI_cont_string [32];
+EXTERN TEXT	QLI_default_user [32], QLI_default_password [32];
+EXTERN TEXT	QLI_charset [32];
+EXTERN CON	QLI_matching_language;
+
+EXTERN USHORT	QLI_eof, QLI_blr, QLI_skip_line, QLI_statistics, QLI_semi;
+EXTERN USHORT	QLI_abort, QLI_echo, QLI_form, QLI_form_mode, QLI_trace;
+EXTERN USHORT	QLI_count;
+#ifdef DEV_BUILD
+EXTERN USHORT	QLI_explain;
+EXTERN USHORT	QLI_hex_output;
+#endif
+
+EXTERN USHORT   QLI_euc_justify;
+EXTERN USHORT   QLI_interp;
+
+#undef EXTERN
+
+#include "../qli/all_proto.h"
+
+#endif /* _QLI_DTR_H_ */
diff --git a/src/qli/err.cpp b/src/qli/err.cpp
new file mode 100644
index 0000000000..be132bc3a6
--- /dev/null
+++ b/src/qli/err.cpp
@@ -0,0 +1,325 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		err.c
+ *	DESCRIPTION:	Error handlers
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <setjmp.h>
+#include <stdlib.h>
+#include <string.h>
+#include "../qli/dtr.h"
+#include "../qli/parse.h"
+#include "../qli/err_proto.h"
+#include "../qli/help_proto.h"
+#include "../qli/lex_proto.h"
+#include "../jrd/gds_proto.h"
+
+extern UCHAR *QLI_error;
+extern jmp_buf *QLI_env;
+
+static TEXT ERRQ_message[256];
+
+#ifndef gds__io_error
+#define gds__io_error            	335544344
+#endif
+
+
+void ERRQ_bugcheck( USHORT number)
+{
+/**************************************
+ *
+ *	E R R Q _ b u g c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody has screwed up.  Bugcheck.
+ *
+ **************************************/
+	TEXT s[256];
+
+	ERRQ_msg_format(number, sizeof(s), s, NULL, NULL, NULL, NULL, NULL);
+	ERRQ_error(9, s, NULL, NULL, NULL, NULL);	/* Msg9 INTERNAL: %s */
+}
+
+
+void ERRQ_database_error( DBB dbb, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	E R R Q _ d a t a b a s e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print message from database error and unwind.
+ *
+ **************************************/
+	DBB *ptr;
+
+	if (dbb) {
+		ERRQ_msg_put(10, dbb->dbb_filename, NULL, NULL, NULL, NULL);	/* Msg10 ** QLI error from database %s ** */
+		gds__print_status(status_vector);
+	}
+	else {
+		ERRQ_msg_put(11, NULL, NULL, NULL, NULL, NULL);	/* Msg11 ** QLI error from database ** */
+		gds__print_status(status_vector);
+	}
+
+	QLI_skip_line = TRUE;
+
+/* if we've really got the database open and get an I/O error,
+   close up neatly.  If we get an I/O error trying to open the
+   database, somebody else will clean up */
+
+	if (dbb && dbb->dbb_handle && status_vector[1] == gds__io_error)
+		ERRQ_msg_put(458, dbb->dbb_filename, NULL, NULL, NULL, NULL);	/* Msg458 ** connection to database %s lost ** */
+
+	if (QLI_env)
+		longjmp(QLI_env, -1);
+}
+
+
+void ERRQ_error(
+				USHORT number,
+				TEXT * arg1,
+				TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	E R R Q _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An error has occurred.  Put out an error message and
+ *	unwind.  If this was called before the unwind path
+ *	was established, don't unwind just print error and exit.
+ *
+ **************************************/
+
+	ERRQ_pending();
+	ERRQ_error_format(number, arg1, arg2, arg3, arg4, arg5);
+
+	if (QLI_env)
+		longjmp(QLI_env, -1);
+	else {
+		ERRQ_pending();
+		ERRQ_exit(FINI_ERROR);
+	}
+}
+
+
+void ERRQ_error_format(
+					   USHORT number,
+					   TEXT * arg1,
+					   TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	E R R Q _ e r r o r _ f o  r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file and format it
+ *      in the standard qli error format, put it where
+ *      ERRQ_pending expects to find it.
+ **************************************/
+	TEXT s[256];
+
+	gds__msg_format(0, QLI_MSG_FAC, number, sizeof(s), s,
+					arg1, arg2, arg3, arg4, arg5);
+	gds__msg_format(0, QLI_MSG_FAC, 12, sizeof(ERRQ_message),
+					ERRQ_message, s, NULL, NULL, NULL, NULL);	/* Msg12 ** QLI error: %s ** */
+	QLI_error = ERRQ_message;
+	QLI_skip_line = TRUE;
+}
+
+
+void ERRQ_exit( int status)
+{
+/**************************************
+ *
+ *	E R R Q _ e x i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Exit after shutting down a bit.
+ *
+ **************************************/
+
+	HELP_fini();
+	LEX_fini();
+	exit(status);
+}
+
+
+void ERRQ_msg_format(
+					 USHORT number,
+					 USHORT length,
+					 TEXT * string,
+					 TEXT * arg1,
+					 TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	E R R Q _ m s g _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file and format it
+ *
+ **************************************/
+
+	gds__msg_format(0, QLI_MSG_FAC, number, length, string, arg1, arg2, arg3,
+					arg4, arg5);
+}
+
+
+void ERRQ_msg_partial(
+					  USHORT number,
+					  TEXT * arg1,
+					  TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	E R R Q _ m s g _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, format it, and print it
+ *
+ **************************************/
+
+	gds__msg_format(0, QLI_MSG_FAC, number, sizeof(ERRQ_message),
+					ERRQ_message, arg1, arg2, arg3, arg4, arg5);
+	ib_printf("%s", ERRQ_message);
+}
+
+
+void ERRQ_msg_put(
+				  USHORT number,
+				  TEXT * arg1,
+				  TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	E R R Q _ m s g _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, format it, and print it
+ *
+ **************************************/
+
+	gds__msg_format(0, QLI_MSG_FAC, number, sizeof(ERRQ_message),
+					ERRQ_message, arg1, arg2, arg3, arg4, arg5);
+	ib_printf("%s\n", ERRQ_message);
+}
+
+
+int ERRQ_msg_get( USHORT number, TEXT * msg)
+{
+/**************************************
+ *
+ *	E R R Q _ m s g _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file
+ *
+ **************************************/
+	SSHORT l;
+	TEXT buffer[128];
+
+	l = gds__msg_format(0, QLI_MSG_FAC, number, sizeof(buffer), buffer,
+						NULL, NULL, NULL, NULL, NULL);
+	strcpy(msg, buffer);
+
+	return (l >= 0);
+}
+
+
+void ERRQ_pending(void)
+{
+/**************************************
+ *
+ *	E R R Q _ p e n d i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print out an error message if one is pending.
+ *
+ **************************************/
+
+	if (QLI_error) {
+		ib_printf("%s\n", QLI_error);
+		QLI_error = NULL;
+	}
+}
+
+
+void ERRQ_print_error(
+					  USHORT number,
+					  TEXT * arg1,
+					  TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	E R R Q _ p r i n t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An error has occurred.  Put out an error message and
+ *	unwind.
+ *
+ **************************************/
+
+	ERRQ_error(number, arg1, arg2, arg3, arg4, arg5);
+}
+
+
+void ERRQ_syntax( USHORT number)
+{
+/**************************************
+ *
+ *	E R R Q _ s y n t a x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Syntax error has occurred.  Give some hint of what went
+ *	wrong.
+ *
+ **************************************/
+	TEXT s[256];
+
+	ERRQ_msg_format(number, sizeof(s), s, NULL, NULL, NULL, NULL, NULL);
+	ERRQ_error(13, s, QLI_token->tok_string, NULL, NULL, NULL);	/* Msg13 expected %s, encountered %s */
+}
diff --git a/src/qli/err_proto.h b/src/qli/err_proto.h
new file mode 100644
index 0000000000..f1c31ea13e
--- /dev/null
+++ b/src/qli/err_proto.h
@@ -0,0 +1,40 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		err_proto.h
+ *	DESCRIPTION:	Prototype header file for err.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_ERR_PROTO_H_
+#define _QLI_ERR_PROTO_H_
+
+extern void	ERRQ_bugcheck (USHORT);
+extern void	ERRQ_database_error (struct dbb *, STATUS *);
+extern void	ERRQ_error (USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+extern void	ERRQ_error_format (USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+extern void	ERRQ_exit (int);
+extern void	ERRQ_msg_format (USHORT, USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+extern int	ERRQ_msg_get (USHORT, TEXT *);
+extern void	ERRQ_msg_partial (USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+extern void	ERRQ_msg_put (USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+extern void	ERRQ_pending (void);
+extern void	ERRQ_print_error (USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+extern void	ERRQ_syntax (USHORT);
+
+#endif /* _QLI_ERR_PROTO_H_ */
diff --git a/src/qli/eval.cpp b/src/qli/eval.cpp
new file mode 100644
index 0000000000..831f0925ee
--- /dev/null
+++ b/src/qli/eval.cpp
@@ -0,0 +1,1662 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		eval.c
+ *	DESCRIPTION:	Value and boolean expression evaluator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../jrd/common.h"
+#include "../qli/dtr.h"
+#include "../qli/exe.h"
+#if (defined JPN_EUC || defined JPN_SJIS)
+#include "../jrd/kanji.h"
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+#include "../qli/err_proto.h"
+#include "../qli/eval_proto.h"
+#include "../qli/exe_proto.h"
+#include "../qli/form_proto.h"
+#include "../qli/lex_proto.h"
+#include "../qli/mov_proto.h"
+#include "../qli/picst_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/utl_proto.h"
+
+typedef struct vary {
+	USHORT vary_length;
+	TEXT vary_string[1];
+} VARY;
+
+extern USHORT QLI_prompt_count, QLI_reprompt;
+extern USHORT sw_forms;
+
+static SLONG execute_any(NOD);
+static DSC *execute_concatenate(NOD, DSC *, DSC *);
+static DSC *execute_edit(NOD);
+static DSC *execute_function(NOD);
+static DSC *execute_prompt(NOD);
+static DSC *execute_statistical(NOD);
+#if (defined JPN_EUC || defined JPN_SJIS)
+static int like(USHORT *, SSHORT, USHORT *, SSHORT, USHORT);
+static int like2(UCHAR *, SSHORT, UCHAR *, SSHORT, UCHAR);
+#else
+static int like(UCHAR *, SSHORT, UCHAR *, SSHORT, UCHAR);
+#endif
+static TEXT *make_blob_buffer(SLONG *, USHORT *);
+#if (defined JPN_EUC || defined JPN_SJIS)
+static int matches(USHORT *, SSHORT, USHORT *, SSHORT);
+static int matches2(UCHAR *, SSHORT, UCHAR *, SSHORT);
+#else
+static int matches(TEXT *, SSHORT, TEXT *, SSHORT);
+#endif
+static int sleuth(NOD, DSC *, DSC *, DSC *);
+#if (defined JPN_EUC || defined JPN_SJIS)
+static int sleuth_check(USHORT, USHORT *, USHORT *, USHORT *, USHORT *);
+static int sleuth_check2(USHORT, TEXT *, TEXT *, TEXT *, TEXT *);
+static int sleuth_class(USHORT, USHORT *, USHORT *, USHORT);
+#else
+static int sleuth_check(USHORT, UCHAR *, UCHAR *, UCHAR *, UCHAR *);
+static int sleuth_class(USHORT, UCHAR *, UCHAR *, UCHAR);
+#endif
+static int sleuth_merge(UCHAR *, UCHAR *, UCHAR *, UCHAR *, UCHAR *);
+static int string_boolean(NOD);
+static int string_function(NOD, SSHORT, TEXT *, SSHORT, TEXT *);
+
+#define	TEMP_LENGTH		128
+#define SLEUTH_insensitive	1
+#define COND_UPPER(c)		((flags & SLEUTH_insensitive) ? UPPER(c) : c)
+
+static UCHAR special[127] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0,
+		0, 1, 1, 0, 1,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0,
+		0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+		0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
+};
+
+static TEXT prompt[2][128] = { "", "" };
+
+
+int EVAL_boolean( NOD node)
+{
+/**************************************
+ *
+ *	E V A L _ b o o l e a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Evaluate a boolean expression.
+ *
+ **************************************/
+	DSC *value1, *value2, *value3;
+	TEXT *p;
+	int result;
+
+	switch (node->nod_type) {
+	case nod_eql:
+	case nod_neq:
+	case nod_gtr:
+	case nod_geq:
+	case nod_leq:
+	case nod_lss:
+	case nod_between:
+		if (!(value1 = EVAL_value(node->nod_arg[0])) ||
+			(value1->dsc_missing & DSC_missing) ||
+			!(value2 = EVAL_value(node->nod_arg[1])) ||
+			(value2->dsc_missing & DSC_missing)) return FALSE;
+		if (node->nod_flags & nod_comparison)
+			result = MOVQ_compare(value1, value2);
+		break;
+
+	case nod_and:
+	case nod_or:
+	case nod_not:
+		result = EVAL_boolean(node->nod_arg[0]);
+		break;
+
+	case nod_containing:
+	case nod_matches:
+	case nod_like:
+	case nod_starts:
+	case nod_sleuth:
+		result = string_boolean(node);
+	}
+
+	switch (node->nod_type) {
+	case nod_eql:
+		return (result == 0);
+	case nod_neq:
+		return (result != 0);
+	case nod_gtr:
+		return (result > 0);
+	case nod_geq:
+		return (result >= 0);
+	case nod_leq:
+		return (result <= 0);
+	case nod_lss:
+		return (result < 0);
+
+	case nod_between:
+		if (result < 0)
+			return FALSE;
+		if (!(value2 = EVAL_value(node->nod_arg[2])) ||
+			(value2->dsc_missing & DSC_missing)) return FALSE;
+		result = MOVQ_compare(value1, value2);
+		if (result > 0)
+			return FALSE;
+		return TRUE;
+
+	case nod_missing:
+		value1 = EVAL_value(node->nod_arg[0]);
+		if (value1)
+			return (value1->dsc_missing & DSC_missing);
+		return TRUE;
+
+	case nod_and:
+		if (!result)
+			return FALSE;
+		return EVAL_boolean(node->nod_arg[1]);
+
+	case nod_or:
+		if (result)
+			return TRUE;
+		return EVAL_boolean(node->nod_arg[1]);
+
+	case nod_not:
+		return !result;
+
+	case nod_any:
+	case nod_unique:
+		return execute_any(node);
+
+	case nod_sleuth:
+	case nod_containing:
+	case nod_matches:
+	case nod_like:
+	case nod_starts:
+		return result;
+
+	default:
+		BUGCHECK(28);			/* Msg28 EVAL_boolean: not finished */
+	}
+}
+
+
+void EVAL_break_compute( NOD node)
+{
+/**************************************
+ *
+ *	E V A L _ b r e a k _ c o m p u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the value of a statistical expression at control
+ *	break.  The only function that needs any work is average.
+ *
+ **************************************/
+	DSC *desc1;
+
+	if (node->nod_type == nod_rpt_average && node->nod_arg[e_stt_default])
+		if (node->nod_desc.dsc_dtype == dtype_long)
+			*(SLONG *) node->nod_desc.dsc_address /= (SLONG) node->
+				nod_arg[e_stt_default];
+		else
+			*(double *) node->nod_desc.dsc_address /= (SLONG) node->
+				nod_arg[e_stt_default];
+}
+
+
+void EVAL_break_increment( NOD node)
+{
+/**************************************
+ *
+ *	E V A L _ b r e a k _ i n c r e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a report-local statistical function.
+ *
+ **************************************/
+	DSC *desc1, *desc2;
+	SLONG count;
+	SSHORT comparison;
+
+	desc1 = &node->nod_desc;
+
+/* Knock off count as trivial */
+
+	if (node->nod_type == nod_rpt_count) {
+		*(SLONG *) node->nod_desc.dsc_address += 1;
+		return;
+	}
+
+/* Evaluate the sub-expression.  If null, don't bother to do anything
+   more.  If not, bump the number of records involved */
+
+	if (!(desc2 = EVAL_value(node->nod_arg[e_stt_value])))
+		return;
+
+/* If this is the first value, just move it in. */
+
+	count = (SLONG) node->nod_arg[e_stt_default] + 1;
+	if (count == 1) {
+		if (desc2->dsc_missing)
+			desc1->dsc_missing = DSC_missing;
+		else {
+			desc1->dsc_missing = FALSE;
+			MOVQ_move(desc2, desc1);
+			node->nod_arg[e_stt_default] = (NOD) (SLONG) count;
+		}
+		return;
+	}
+	else if (desc2->dsc_missing)
+		return;
+
+	node->nod_arg[e_stt_default] = (NOD) (SLONG) count;
+	desc1->dsc_missing = FALSE;
+
+/* Finish off as per operator */
+
+	switch (node->nod_type) {
+	case nod_rpt_min:
+	case nod_rpt_max:
+		if (!(comparison = MOVQ_compare(desc2, desc1)))
+			break;
+		if ((comparison > 0 && node->nod_type == nod_rpt_max) ||
+			(comparison < 0 && node->nod_type == nod_rpt_min))
+			MOVQ_move(desc2, desc1);
+		break;
+
+	case nod_rpt_total:
+	case nod_rpt_average:
+		if (desc1->dsc_dtype == dtype_long)
+			*(SLONG *) desc1->dsc_address +=
+				MOVQ_get_long(desc2, desc1->dsc_scale);
+		else
+			*(double *) desc1->dsc_address += MOVQ_get_double(desc2);
+		break;
+	}
+}
+
+
+void EVAL_break_init( NOD node)
+{
+/**************************************
+ *
+ *	E V A L _ b r e a k _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize a report-local statistical function.
+ *
+ **************************************/
+
+	node->nod_arg[e_stt_default] = 0;
+	node->nod_desc.dsc_missing = FALSE;
+
+	if (node->nod_type == nod_rpt_count)
+		*(SLONG *) (node->nod_desc.dsc_address) = 0;
+}
+
+
+DSC *EVAL_parameter(PAR parameter)
+{
+/**************************************
+ *
+ *	E V A L _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compute the descriptor for a parameter.
+ *
+ **************************************/
+	DSC *desc;
+	MSG message;
+	PAR missing_parameter;
+	USHORT *missing_flag;
+
+	desc = &parameter->par_desc;
+	desc->dsc_missing = FALSE;
+	message = parameter->par_message;
+
+	if (missing_parameter = parameter->par_missing) {
+		missing_flag =
+			(USHORT *) (message->msg_buffer + missing_parameter->par_offset);
+		desc->dsc_missing = (*missing_flag) ? DSC_missing : 0;
+	}
+
+	desc->dsc_address = message->msg_buffer + parameter->par_offset;
+
+	return desc;
+}
+
+
+DSC *EVAL_value(NOD node)
+{
+/**************************************
+ *
+ *	E V A L _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Evaluate a value node.
+ *
+ **************************************/
+	NOD *ptr, *end_ptr;
+	FLD field;
+	DSC *values[4], **value, *desc, *desc2;
+	UCHAR *p;
+	double d1;
+
+/* Start by evaluating sub-expressions (where appropriate) */
+
+	desc = &node->nod_desc;
+	ptr = node->nod_arg;
+	end_ptr = ptr + node->nod_count;
+
+	for (value = values; ptr < end_ptr; ptr++, value++) {
+		*value = EVAL_value(*ptr);
+		if (node->nod_flags & nod_partial)
+			break;
+	}
+
+	switch (node->nod_type) {
+	case nod_edit_blob:
+		return execute_edit(node);
+
+	case nod_rpt_max:
+	case nod_rpt_min:
+	case nod_rpt_total:
+	case nod_rpt_average:
+		if (!(SLONG) node->nod_arg[e_stt_default])
+			desc->dsc_missing = DSC_missing;
+
+	case nod_rpt_count:
+	case nod_constant:
+		return desc;
+
+	case nod_variable:
+		field = (FLD) node->nod_arg[e_fld_field];
+		desc->dsc_missing =
+			(field->fld_flags & FLD_missing) ? DSC_missing : 0;
+		return desc;
+
+	case nod_field:
+		return EVAL_value(node->nod_arg[e_fld_reference]);
+
+	case nod_reference:
+		return EVAL_parameter(node->nod_import);
+
+	case nod_null:
+		return desc;
+
+	case nod_add:
+		if ((values[0]->dsc_missing & DSC_missing) ||
+			(values[1]->dsc_missing & DSC_missing)) {
+			desc->dsc_missing = DSC_missing;
+			return desc;
+		}
+		desc->dsc_missing = FALSE;
+		if (node->nod_flags & nod_date) {
+			d1 = MOVQ_date_to_double(values[0]) + MOVQ_get_double(values[1]);
+			MOVQ_double_to_date(d1, desc->dsc_address);
+		}
+		else if (desc->dsc_dtype == dtype_long)
+			*((SLONG *) desc->dsc_address) =
+				MOVQ_get_long(values[0], desc->dsc_scale) +
+				MOVQ_get_long(values[1], desc->dsc_scale);
+		else
+			*((double *) desc->dsc_address) =
+				MOVQ_get_double(values[0]) + MOVQ_get_double(values[1]);
+		return desc;
+
+	case nod_subtract:
+		if ((values[0]->dsc_missing & DSC_missing) ||
+			(values[1]->dsc_missing & DSC_missing)) {
+			desc->dsc_missing = DSC_missing;
+			return desc;
+		}
+		desc->dsc_missing = FALSE;
+		if (node->nod_flags & nod_date) {
+			*((double *) desc->dsc_address) =
+				MOVQ_date_to_double(values[0]) -
+				MOVQ_date_to_double(values[1]);
+		}
+		else if (desc->dsc_dtype == dtype_long)
+			*((SLONG *) desc->dsc_address) =
+				MOVQ_get_long(values[0], desc->dsc_scale) -
+				MOVQ_get_long(values[1], desc->dsc_scale);
+		else
+			*((double *) desc->dsc_address) =
+				MOVQ_get_double(values[0]) - MOVQ_get_double(values[1]);
+		return desc;
+
+	case nod_divide:
+		if ((values[0]->dsc_missing & DSC_missing) ||
+			(values[1]->dsc_missing & DSC_missing)) {
+			desc->dsc_missing = DSC_missing;
+			return desc;
+		}
+		desc->dsc_missing = FALSE;
+		*((double *) desc->dsc_address) =
+			MOVQ_get_double(values[0]) / MOVQ_get_double(values[1]);
+		return desc;
+
+	case nod_multiply:
+		if ((values[0]->dsc_missing & DSC_missing) ||
+			(values[1]->dsc_missing & DSC_missing)) {
+			desc->dsc_missing = DSC_missing;
+			return desc;
+		}
+		desc->dsc_missing = FALSE;
+		if (desc->dsc_dtype == dtype_long)
+			*((SLONG *) desc->dsc_address) =
+				MOVQ_get_long(values[0], values[0]->dsc_scale) *
+				MOVQ_get_long(values[1], values[1]->dsc_scale);
+		else
+			*((double *) desc->dsc_address) =
+				MOVQ_get_double(values[0]) * MOVQ_get_double(values[1]);
+		return desc;
+
+	case nod_negate:
+		if (values[0]->dsc_missing & DSC_missing) {
+			desc->dsc_missing = DSC_missing;
+			return desc;
+		}
+		desc->dsc_missing = FALSE;
+		switch (desc->dsc_dtype) {
+		case dtype_short:
+			*((SSHORT *) desc->dsc_address) =
+				-MOVQ_get_long(values[0], desc->dsc_scale);
+			break;
+
+		case dtype_long:
+			*((SLONG *) desc->dsc_address) =
+				-MOVQ_get_long(values[0], desc->dsc_scale);
+			break;
+
+		case dtype_real:
+			*((float *) desc->dsc_address) = -MOVQ_get_double(values[0]);
+			break;
+
+		case dtype_double:
+			*((double *) desc->dsc_address) = -MOVQ_get_double(values[0]);
+			break;
+
+		default:
+			IBERROR(30);		/* Msg30 data type not supported for arithmetic */
+		}
+		return desc;
+
+	case nod_prompt:
+		if (!prompt[0][0]) {
+			ERRQ_msg_get(499, prompt[0]);	/* Msg499 Re-enter */
+			ERRQ_msg_get(500, prompt[1]);	/* Msg500 Enter    */
+		}
+		return execute_prompt(node);
+
+	case nod_concatenate:
+		return execute_concatenate(node, values[0], values[1]);
+
+	case nod_function:
+		return execute_function(node);
+
+	case nod_max:
+	case nod_min:
+	case nod_count:
+	case nod_average:
+	case nod_total:
+	case nod_from:
+		return execute_statistical(node);
+
+	case nod_running_count:
+		*(SLONG *) (desc->dsc_address) += 1;
+		return desc;
+
+	case nod_running_total:
+		if (desc2 = EVAL_value(node->nod_arg[e_stt_value])) {
+			if (desc2->dsc_missing & DSC_missing)
+				return desc;
+			if (desc->dsc_dtype == dtype_long)
+				*(SLONG *) desc->dsc_address +=
+					MOVQ_get_long(desc2, desc->dsc_scale);
+			else
+				*(double *) desc->dsc_address += MOVQ_get_double(desc2);
+		}
+		return desc;
+
+	case nod_format:
+		p = desc->dsc_address;
+		PIC_edit(values[0], node->nod_arg[e_fmt_picture], &p,
+				 desc->dsc_length);
+		desc->dsc_length = p - desc->dsc_address;
+		return desc;
+
+	case nod_form_field:
+		return FORM_get_field(node);
+
+	case nod_user_name:
+		IBERROR(31);			/* Msg31 user name is supported only in RSEs temporarily */
+
+	case nod_parameter:
+	case nod_position:
+
+	case nod_substr:
+
+	case nod_via:
+
+	default:
+		BUGCHECK(29);			/* Msg29 EVAL_value: not finished */
+	}
+}
+
+
+static SLONG execute_any( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ a n y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute an ANY expression.  This may require that a request get
+ *	started, a message sent, and a message received for each
+ *	record.  At the other end of the spectrum, there may be
+ *	absolutely nothing to do.
+ *
+ **************************************/
+	REQ request;
+	MSG message;
+	USHORT *flag;
+
+/* If there is a request associated  with the node, start it and possibly
+   send a message along with it. */
+
+	if (request = (REQ) node->nod_arg[e_any_request])
+		EXEC_start_request(request, node->nod_arg[e_any_send]);
+	else if (message = (MSG) node->nod_arg[e_any_send])
+		EXEC_send(message);
+
+	message = (MSG) node->nod_arg[e_any_receive];
+	EXEC_receive(message, 0);
+
+	return MOVQ_get_long(EVAL_parameter(node->nod_import), 0);
+}
+
+
+static DSC *execute_concatenate( NOD node, DSC * value1, DSC * value2)
+{
+/**************************************
+ *
+ *	e x e c u t e _ c o n c a t e n a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Concatenate two strings.
+ *
+ **************************************/
+	DSC *desc;
+	VARY *vary;
+	TEXT *p, temp1[32], temp2[32], *address1, *address2;
+	USHORT length1, length2;
+
+	length1 = MOVQ_get_string(value1, &address1, temp1, sizeof(temp1));
+	length2 = MOVQ_get_string(value2, &address2, temp2, sizeof(temp2));
+	desc = &node->nod_desc;
+	vary = (VARY *) desc->dsc_address;
+	p = vary->vary_string;
+	length1 = MIN(length1, desc->dsc_length - 2);
+	length2 = MAX(MIN(length2, desc->dsc_length - 2 - length1), 0);
+
+	if (length1)
+		do
+			*p++ = *address1++;
+		while (--length1);
+
+	if (length2)
+		do
+			*p++ = *address2++;
+		while (--length2);
+
+	vary->vary_length = p - vary->vary_string;
+
+	return desc;
+}
+
+
+static DSC *execute_edit( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit a blob.  If there's an existing
+ *	blob for input, force the descriptor
+ *	to quad to get move the id.
+ *
+ **************************************/
+	SLONG *id;
+	DSC *desc;
+	DBB dbb;
+	TEXT *field_name;
+
+	dbb = (DBB) node->nod_arg[e_edt_dbb];
+	id = (SLONG *) & node->nod_arg[e_edt_id1];
+
+	desc = NULL;
+
+	if (node->nod_arg[e_edt_input]) {
+		desc = EVAL_value(node->nod_arg[e_edt_input]);
+		if (desc && (desc->dsc_dtype == dtype_blob)) {
+			desc->dsc_dtype = dtype_quad;
+			MOVQ_move(desc, &node->nod_desc);
+			desc->dsc_dtype = dtype_blob;
+		}
+	}
+	if (!desc)
+		id[0] = id[1] = NULL;
+
+	field_name = (TEXT *) node->nod_arg[e_edt_name];
+#if (defined JPN_EUC || defined JPN_SJIS)
+	BLOB_edit2(id, dbb->dbb_handle, dbb->dbb_transaction, field_name,
+			   node->nod_desc.dsc_sub_type);
+#else
+	BLOB_edit(id, dbb->dbb_handle, dbb->dbb_transaction, field_name);
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+	node->nod_desc.dsc_missing = (id[0] || id[1]) ? 0 : DSC_missing;
+
+	return &node->nod_desc;
+}
+
+
+static DSC *execute_function( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a statistical expression.
+ *
+ **************************************/
+	REQ request;
+	MSG message;
+	PAR parameter;
+
+/* If there is a request associated  with the node, start it and possibly
+   send a message along with it. */
+
+	if (request = (REQ) node->nod_arg[e_fun_request])
+		EXEC_start_request(request, node->nod_arg[e_fun_send]);
+	else if (message = (MSG) node->nod_arg[e_fun_send])
+		EXEC_send(message);
+
+	return EXEC_receive(node->nod_arg[e_fun_receive], node->nod_import);
+}
+
+
+static DSC *execute_prompt( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ p r o m p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a prompt and return a descriptor.  If end of file,
+ *	abort request; if a singleton tab, return the previous value,
+ *	and if a null string, return MISSING.
+ *
+ **************************************/
+	TEXT *p, string[128], *value, buffer[256];
+	DSC *desc;
+	USHORT reprompt;
+	VARY *data;
+	int length, l;
+
+	if (sw_forms)
+		FORM_reset();
+
+	ERRQ_pending();
+	reprompt = QLI_reprompt;
+	desc = &node->nod_desc;
+	data = (VARY *) desc->dsc_address;
+
+	value =
+		(desc->dsc_length - 2 <= sizeof(buffer)) ? buffer : data->vary_string;
+	length =
+		(desc->dsc_length - 2 <=
+		 sizeof(buffer)) ? sizeof(buffer) : desc->dsc_length - 2;
+
+	for (;;) {
+		++QLI_prompt_count;
+		if (node->nod_arg[e_prm_prompt]) {
+			if (reprompt)
+				sprintf(string, "\07%s %s: ", prompt[0],
+						node->nod_arg[e_prm_prompt]);
+			else
+				sprintf(string, "%s %s: ", prompt[1],
+						node->nod_arg[e_prm_prompt]);
+		}
+		else {
+			if (reprompt)
+				sprintf(string, "\07%s: ", prompt[0]);	/* Msg497 Re-enter */
+			else
+				sprintf(string, "%s: ", prompt[1]);	/* Msg498 Enter    */
+		}
+
+		if (!LEX_get_line(string, value, length)) {
+			QLI_abort = TRUE;
+			EXEC_poll_abort();
+		}
+
+		if (value[0] == '\t' && value[1] == '\n')
+			return desc;
+
+		p = value + strlen(value);
+		if (p > value && p[-1] == '\n')
+			*--p = 0;
+
+		/* Get rid of trailing blanks on non-text data types */
+
+		if (desc->dsc_dtype > dtype_varying) {
+			while (p > value && p[-1] == ' ')
+				--p;
+			*p = 0;
+		}
+
+		if ((l = p - value) <= desc->dsc_length - 2) {
+			if (value != data->vary_string)
+				memcpy(data->vary_string, value, l);
+			desc->dsc_missing = (data->vary_length = l) ? 0 : DSC_missing;
+			return desc;
+		}
+
+		ERRQ_msg_put(32, NULL, NULL, NULL, NULL, NULL);	/* Msg32 Input value is too long */
+		reprompt = TRUE;
+	}
+}
+
+
+static DSC *execute_statistical( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ s t a t i s t i c a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a statistical expression.
+ *
+ **************************************/
+	REQ request;
+	MSG message;
+	PAR parameter;
+
+/* If there is a request associated  with the node, start it and possibly
+   send a message along with it. */
+
+	if (request = (REQ) node->nod_arg[e_stt_request])
+		EXEC_start_request(request, node->nod_arg[e_stt_send]);
+	else if (message = (MSG) node->nod_arg[e_stt_send])
+		EXEC_send(message);
+
+	return EXEC_receive(node->nod_arg[e_stt_receive], node->nod_import);
+}
+
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+static int like2(
+				 UCHAR * p1,
+				 SSHORT l1, UCHAR * p2, SSHORT l2, UCHAR escape_char)
+{
+/**************************************
+ *
+ *      l i k e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Front-end of like() in Japanese version.
+ *      Prepare buffer of short, then "copy" char-based data
+ *      into the new short-based buffer. Use the new buffer for
+ *      later processing with like().
+ *
+ **************************************/
+	USHORT *buf1, *buf2;
+	int ret_val;
+
+	buf1 = (USHORT *) gds__alloc((l1 + 1) * sizeof(SSHORT));
+	buf2 = (USHORT *) gds__alloc((l2 + 1) * sizeof(SSHORT));
+
+	l1 = KANJI_byte2short(p1, buf1, l1);
+	l2 = KANJI_byte2short(p2, buf2, l2);
+
+	*(buf1 + l1) = 0;
+	*(buf2 + l2) = 0;
+
+	ret_val = like(buf1, l1, buf2, l2, (USHORT) escape_char);
+
+	gds__free(buf1);
+	gds__free(buf2);
+
+	return ret_val;
+}
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+
+static int like(
+#if (defined JPN_EUC || defined JPN_SJIS)
+				   USHORT * p1,
+				   SSHORT l1, USHORT * p2, SSHORT l2, USHORT escape_char)
+#else
+				   UCHAR * p1,
+				   SSHORT l1, UCHAR * p2, SSHORT l2, UCHAR escape_char)
+#endif							/* (defined JPN_EUC || defined JPN_SJIS) */
+{
+/**************************************
+ *
+ *	l i k e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return true if a string (p1, l1) matches a given pattern (p2, l2).
+ *	The character '_' in the pattern may match any single character
+ *	in the the string, and the character '%' may match any sequence
+ *	of characters.
+ *      Japanese version operates on short-based buffer,
+ *      instead of char-based.
+ *
+ **************************************/
+#if (defined JPN_EUC || defined JPN_SJIS)
+	USHORT c;
+#else
+	UCHAR c;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+	int escape;
+
+	escape = FALSE;
+
+	while (--l2 >= 0) {
+		c = *p2++;
+		if (escape_char && !escape && c == escape_char) {
+			escape = TRUE;
+			continue;
+		}
+		if (!escape && c == '%') {
+			if (l2 == 0)
+				return TRUE;
+			while (l1)
+				if (like(p1++, l1--, p2, l2, escape_char))
+					return TRUE;
+			return FALSE;
+		}
+		if (--l1 < 0)
+			return FALSE;
+		if ((escape || c != '_') && c != *p1)
+			return FALSE;
+		escape = FALSE;
+		p1++;
+	}
+
+	return (l1) ? FALSE : TRUE;
+}
+
+
+static TEXT *make_blob_buffer( SLONG * blob, USHORT * length)
+{
+/**************************************
+ *
+ *	m a k e _ b l o b _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	For a blob, get the max segment length,
+ *	check that the buffer allocated is at least
+ *	that length, and, if not, allocate a bigger one.
+ *
+ **************************************/
+	SLONG size, segment_count, max_segment;
+
+	gds__blob_size(&blob, &size, &segment_count, &max_segment);
+
+#ifdef JPN_EUC
+	max_segment = MIN(max_segment * 2, 32768);	/* prepare for SJIS->EUC expansion */
+#endif /* JPN_EUC */
+
+	if (max_segment >= *length) {
+		TEXT *buffer;
+		*length = max_segment;
+		buffer = (TEXT *) gds__alloc((SLONG) * length);
+#ifdef DEBUG_GDS_ALLOC
+		/* We don't care about QLI specific memory leaks for V4.0 */
+		gds_alloc_flag_unfreed((void *) buffer);	/* QLI: don't care */
+#endif
+		return buffer;
+	}
+
+	return 0;
+}
+
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+static int matches2( UCHAR * p1, SSHORT l1, UCHAR * p2, SSHORT l2)
+{
+/**************************************
+ *
+ *      m a t c h e s 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Front-end of matches() in Japanese version.
+ *      Prepare buffer of short, then "copy" char-based data
+ *      into the new short-based buffer. Use the new buffer for
+ *      later processing with matches().
+ *
+ **************************************/
+	USHORT *buf1, *buf2;
+	int ret_val;
+
+	buf1 = (USHORT *) gds__alloc((l1 + 1) * sizeof(SSHORT));
+	buf2 = (USHORT *) gds__alloc((l2 + 1) * sizeof(SSHORT));
+
+	l1 = KANJI_byte2short(p1, buf1, l1);
+	l2 = KANJI_byte2short(p2, buf2, l2);
+
+	*(buf1 + l1) = 0;
+	*(buf2 + l2) = 0;
+
+	ret_val = matches(buf1, l1, buf2, l2);
+
+	gds__free(buf1);
+	gds__free(buf2);
+
+	return ret_val;
+}
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+
+static int matches(
+#if (defined JPN_EUC || defined JPN_SJIS)
+					  USHORT * p1, SSHORT l1, USHORT * p2, SSHORT l2)
+#else
+					  TEXT * p1, SSHORT l1, TEXT * p2, SSHORT l2)
+#endif							/* (defined JPN_EUC || defined JPN_SJIS) */
+{
+/**************************************
+ *
+ *	m a t c h e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return true if a string (p1, l1) matches a given pattern (p2, l2).
+ *	The character '?' in the pattern may match any single character
+ *	in the the string, and the character '*' may match any sequence
+ *	of characters.
+ *
+ **************************************/
+#if (defined JPN_EUC || defined JPN_SJIS)
+	USHORT c;
+#else
+	TEXT c;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+	while (--l2 >= 0) {
+		c = *p2++;
+		if (c == '*') {
+			if (l2 == 0)
+				return TRUE;
+			while (l1)
+				if (matches(p1++, l1--, p2, l2))
+					return TRUE;
+			return FALSE;
+		}
+		if (--l1 < 0 || (c != '?' && UPPER(c) != UPPER(*p1)))
+			return FALSE;
+		p1++;
+	}
+
+	return (l1) ? FALSE : TRUE;
+}
+
+
+static int sleuth( NOD node, DSC * desc1, DSC * desc2, DSC * desc3)
+{
+/**************************************
+ *
+ *	s l e u t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return true if a string (p1, l1) matches a given pattern (p2, l2),
+ *	using a pattern language defined in p3, l3.
+ *
+ **************************************/
+	TEXT *p1, *p2, *buffer, temp1[TEMP_LENGTH], temp2[TEMP_LENGTH],
+		fixed_buffer[512], control[256];
+	int *blob;
+	USHORT buffer_length;
+	STATUS status_vector[20];
+	SSHORT l1, l2, result;
+	CTX context;
+	REQ request;
+	DBB dbb;
+
+/* Get operator definition string (control string) */
+
+	l1 = MOVQ_get_string(desc3, &p1, temp1, TEMP_LENGTH);
+
+/* Get address and length of search string */
+
+	l2 = MOVQ_get_string(desc2, &p2, temp2, TEMP_LENGTH);
+
+/* Merge search and control strings */
+
+	l2 = sleuth_merge(p2, p2 + l2, p1, p1 + l1, control);
+
+/* If source is not a blob, do a simple search */
+
+	if (desc1->dsc_dtype != dtype_blob) {
+		l1 = MOVQ_get_string(desc1, &p1, temp1, TEMP_LENGTH);
+#if (defined JPN_EUC || defined JPN_SJIS)
+		return sleuth_check2(0, p1, p1 + l1, control, control + l2);
+#else
+		return sleuth_check(0, p1, p1 + l1, control, control + l2);
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+	}
+
+/* Source string is a blob, things get interesting */
+
+	result = FALSE;
+
+	blob = EXEC_open_blob(node->nod_arg[0]);
+
+	buffer_length = sizeof(fixed_buffer);
+
+	if (!(buffer = make_blob_buffer(blob, &buffer_length)))
+		buffer = fixed_buffer;
+
+	while (!gds__get_segment(status_vector,
+							 GDS_REF(blob),
+							 GDS_REF(l1), buffer_length, GDS_VAL(buffer)))
+#if (defined JPN_EUC || defined JPN_SJIS)
+		if (sleuth_check2(0, buffer, buffer + l1, control, control + l2))
+#else
+		if (sleuth_check(0, buffer, buffer + l1, control, control + l2))
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+		{
+			result = TRUE;
+			break;
+		}
+
+	if (buffer != fixed_buffer)
+		gds__free(buffer);
+
+	if (gds__close_blob(status_vector, GDS_REF(blob))) {
+		context = (CTX) node->nod_arg[e_fld_context];
+		request = context->ctx_request;
+		dbb = request->req_database;
+		ERRQ_database_error(dbb, status_vector);
+	}
+
+	return result;
+}
+
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+static int sleuth_check2(
+						 USHORT flags,
+						 TEXT * search,
+						 TEXT * end_search, TEXT * match, TEXT * end_match)
+{
+/**************************************
+ *
+ *      s l e u t h _ c h e c k 2
+ *
+ **************************************
+ *
+ * Functional description
+ *      Front-end of sleuth_check() in Japanese version.
+ *      Prepare buffer of short, then "copy" char-based data
+ *      into the new short-based buffer. Use the new buffer for
+ *      later processing with sleuth_check().
+ *
+ **************************************/
+	USHORT l1, l2, *buf1, *buf2;
+	int ret_val;
+
+	l1 = end_search - search;
+	l2 = end_match - match;
+
+	buf1 = (USHORT *) gds__alloc((l1 + 1) * sizeof(SSHORT));
+	buf2 = (USHORT *) gds__alloc((l2 + 1) * sizeof(SSHORT));
+
+	l1 = KANJI_byte2short(search, buf1, l1);
+	l2 = KANJI_byte2short(match, buf2, l2);
+
+	*(buf1 + l1) = 0;
+	*(buf2 + l2) = 0;
+
+	ret_val = sleuth_check(flags, buf1, buf1 + l1, buf2, buf2 + l2);
+
+	gds__free(buf1);
+	gds__free(buf2);
+
+	return ret_val;
+}
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+
+static int sleuth_check(
+#if (defined JPN_EUC || defined JPN_SJIS)
+						   USHORT flags,
+						   USHORT * search,
+						   USHORT * end_search,
+						   USHORT * match, USHORT * end_match)
+#else
+						   USHORT flags,
+						   UCHAR * search,
+						   UCHAR * end_search,
+						   UCHAR * match, UCHAR * end_match)
+#endif							/* (defined JPN_EUC || defined JPN_SJIS) */
+{
+/**************************************
+ *
+ *	s l e u t h _ c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Evaluate the "sleuth" search operator.
+ *
+ **************************************/
+#if (defined JPN_EUC || defined JPN_SJIS)
+	USHORT c, d, *class_, *p, *end_class;
+#else
+	UCHAR c, d, *class_, *p, *end_class;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+	while (match < end_match) {
+		c = *match++;
+#if (defined JPN_EUC || defined JPN_SJIS)
+		if ((c == '@' && (c = *match++)) || KANJISHORT(c) || !special[c])
+#else
+		if ((c == '@' && (c = *match++)) || !special[c])
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+		{
+			c = COND_UPPER(c);
+			if (match >= end_match || *match != '*') {
+				if (search >= end_search)
+					return FALSE;
+				d = *search++;
+				if (c != COND_UPPER(d))
+					return FALSE;
+			}
+			else {
+				++match;
+				for (;;)
+					if (sleuth_check
+						(flags, search, end_search, match,
+						 end_match)) return TRUE;
+					else if (search < end_search) {
+						d = *search++;
+						if (c != COND_UPPER(d))
+							return FALSE;
+					}
+					else
+						return FALSE;
+			}
+		}
+		else if (c == '?')
+			if (match >= end_match || *match != '*') {
+				if (search >= end_search)
+					return FALSE;
+				search++;
+			}
+			else {
+				if (++match >= end_match)
+					return TRUE;
+				for (;;)
+					if (sleuth_check
+						(flags, search, end_search, match,
+						 end_match)) return TRUE;
+					else if (++search >= end_search)
+						return FALSE;
+			}
+		else if (c == '[') {
+			class_ = match;
+			while (*match++ != ']')
+				if (match >= end_match)
+					return FALSE;
+			end_class = match - 1;
+			if (match >= end_match || *match != '*') {
+				if (!sleuth_class(flags, class_, end_class, *search++))
+					return FALSE;
+			}
+			else {
+				++match;
+				for (;;)
+					if (sleuth_check
+						(flags, search, end_search, match,
+						 end_match)) return TRUE;
+					else if (search < end_search) {
+						if (!sleuth_class
+							(flags, class_, end_class,
+							 *search++)) return FALSE;
+					}
+					else
+						return FALSE;
+			}
+		}
+		else if (c == '+') {
+			c = *match++;
+			if (c == 'S' || c == 's')
+				flags &= ~SLEUTH_insensitive;
+		}
+		else if (c == '-') {
+			c = *match++;
+			if (c == 'S' || c == 's')
+				flags |= SLEUTH_insensitive;
+		}
+	}
+
+	if (search < end_search)
+		return FALSE;
+
+	return TRUE;
+}
+
+
+static int sleuth_class( USHORT flags,
+#if (defined JPN_EUC || defined JPN_SJIS)
+						USHORT * class_, USHORT * end_class, USHORT character)
+#else
+						UCHAR * class_, UCHAR * end_class, UCHAR character)
+#endif							/* (defined JPN_EUC || defined JPN_SJIS) */
+{
+/**************************************
+ *
+ *	s l e u t h _ c l a s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	See if a character is a member of a class.
+ *
+ **************************************/
+#if (defined JPN_EUC || defined JPN_SJIS)
+	USHORT c, d;
+#else
+	UCHAR c, d;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+	USHORT result;
+
+	result = TRUE;
+	character = COND_UPPER(character);
+
+	if (*class_ == '~') {
+		++class_;
+		result = FALSE;
+	}
+
+	while (class_ < end_class) {
+		c = *class_++;
+		if (c == '@') {
+			if (*class_++ == character)
+				return TRUE;
+		}
+		else if (*class_ == '-') {
+			class_ += 2;
+			if (character >= c && character <= class_[-1])
+				return result;
+		}
+		else if (character == c)
+			return result;
+	}
+
+	return (result) ? FALSE : TRUE;
+}
+
+
+static int sleuth_merge(
+						UCHAR * match,
+						UCHAR * end_match,
+						UCHAR * control,
+						UCHAR * end_control, UCHAR * combined)
+{
+/**************************************
+ *
+ *	s l e u t h _ m e r g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Merge the matching pattern and control strings to give a cannonical
+ *	matching pattern.  Return the length of the combined string. 
+ *
+ * 	What this routine does is to take the language template, strip off 
+ *	the prefix and put it in the output string, then parse the definitions
+ *	into an array of character pointers.  The index array is the defined
+ *	character.   The routine then takes the actual match pattern and uses
+ *	the characters in it to index into the definitions to produce an equivalent
+ *	pattern in the cannonical language.
+ *
+ *	The silly loop setting *v++ to zero initializes the array up to the
+ *	highest character defined (also max_op).  Believe it or not, that part
+ *	is not a bug.
+ *
+ **************************************/
+	UCHAR c, *comb, **v, *vector[128], **end_vector, *p, max_op, temp[256],
+		*t;
+	SSHORT n;
+
+	comb = combined;
+	v = vector;
+	t = temp;
+
+/* Parse control string into substitution strings and initializing string */
+
+	while (control < end_control) {
+		c = *control++;
+		if (*control == '=') {
+			end_vector = vector + c;
+			while (v <= end_vector)
+				*v++ = 0;
+			*end_vector = t;
+			++control;
+			while (control < end_control) {
+				c = *control++;
+				if ((t[-1] == '@') || ((c != ',') && (c != ')')))
+					*t++ = c;
+				else
+					break;
+			}
+			*t++ = 0;
+		}
+		else if (c == '@' && control < end_control)
+			*comb++ = *control++;
+		else if (c == ')')
+			break;
+		else if (c != '(')
+			*comb++ = c;
+	}
+
+	max_op = v - vector;
+
+/* Interpret matching string, substituting where appropriate */
+
+	while (c = *match++) {
+#if (defined JPN_EUC || defined JPN_SJIS)
+		if (KANJI1(c)) {
+
+			/* it is a kanji, copy the 2 bytes */
+
+			*comb++ = c;
+			*comb++ = *match++;;
+			continue;
+		}
+#ifdef JPN_SJIS
+		else if (SJIS_SINGLE(c)) {
+
+			/* it is an SJIS half-width kana, copy the 1 byte */
+
+			*comb++ = c;
+			continue;
+		}
+#endif /* JPN_SJIS */
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+		/* if we've got a defined character, slurp the definition */
+		if (c <= max_op && (p = vector[c])) {
+			while (*p)
+				*comb++ = *p++;
+			/* if we've got the definition of a quote character, slurp the next character too */
+			if (comb[-1] == '@' && *match)
+				*comb++ = *match++;
+		}
+		/* at this point we've got a non-match, but as it might be one of ours, quote it. */
+		else {
+			if (special[c] && comb[-1] != '@')
+				*comb++ = '@';
+			*comb++ = c;
+		}
+	}
+
+/* Put in trailing stuff */
+
+	while (control < end_control)
+		*comb++ = *control++;
+
+	return comb - combined;
+}
+
+
+static int string_boolean( NOD node)
+{
+/**************************************
+ *
+ *	s t r i n g _ b o o l e a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform one of the complex string functions CONTAINING, MATCHES,
+ *	or STARTS WITH.
+ *
+ **************************************/
+	DSC *desc1, *desc2, *desc3;
+	TEXT *p1, *p2, *p3, *buffer, fixed_buffer[512];
+	TEXT temp1[TEMP_LENGTH], temp2[TEMP_LENGTH];
+	int *blob;
+	SSHORT l1, l2, l3, l, result;
+	USHORT buffer_length;
+	STATUS status_vector[20];
+	CTX context;
+	REQ request;
+	DBB dbb;
+
+	if (!(desc1 = EVAL_value(node->nod_arg[0])) ||
+		(desc1->dsc_missing & DSC_missing) ||
+		!(desc2 = EVAL_value(node->nod_arg[1])) ||
+		(desc2->dsc_missing & DSC_missing) ||
+		(node->nod_arg[2] && (!(desc3 = EVAL_value(node->nod_arg[2])) ||
+							  (desc3->dsc_missing & DSC_missing))))
+		return FALSE;
+
+	if (node->nod_type == nod_sleuth)
+		return sleuth(node, desc1, desc2, desc3);
+
+/* Get address and length of strings */
+
+	l2 = MOVQ_get_string(desc2, &p2, temp2, TEMP_LENGTH);
+
+/* If source is not a blob, do a simple search */
+
+	if (desc1->dsc_dtype != dtype_blob) {
+		l1 = MOVQ_get_string(desc1, &p1, temp1, TEMP_LENGTH);
+		return string_function(node, l1, p1, l2, p2);
+	}
+
+/* Source string is a blob, things get interesting */
+
+	result = FALSE;
+	blob = EXEC_open_blob(node->nod_arg[0]);
+
+	buffer_length = sizeof(fixed_buffer);
+
+	if (!(buffer = make_blob_buffer(blob, &buffer_length)))
+		buffer = fixed_buffer;
+
+	while (!gds__get_segment(status_vector,
+							 GDS_REF(blob),
+							 GDS_REF(l1),
+							 buffer_length,
+							 GDS_VAL(buffer)))
+			if (string_function(node, l1, buffer, l2, p2)) {
+			result = TRUE;
+			break;
+		}
+
+	if (buffer != fixed_buffer)
+		gds__free(buffer);
+
+	if (gds__close_blob(status_vector, GDS_REF(blob))) {
+		context = (CTX) node->nod_arg[e_fld_context];
+		request = context->ctx_request;
+		dbb = request->req_database;
+		ERRQ_database_error(dbb, status_vector);
+	}
+
+	return result;
+}
+
+
+static int string_function(
+						   NOD node,
+						   SSHORT l1, TEXT * p1, SSHORT l2, TEXT * p2)
+{
+/**************************************
+ *
+ *	s t r i n g _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform one of the complex string functions CONTAINING, MATCHES,
+ *	or STARTS WITH.
+ *
+ **************************************/
+	DSC *desc;
+	TEXT *q1, *q2, *q3, c1, c2, c3, temp[16];
+	SSHORT l;
+#if (defined JPN_EUC || defined JPN_SJIS)
+	TEXT *p1_orig = p1;
+	TEXT *p2_orig = p2;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+
+/* Handle "STARTS WITH" */
+
+	if (node->nod_type == nod_starts) {
+		if (l1 < l2)
+			return FALSE;
+		while (--l2 >= 0)
+			if (*p1++ != *p2++)
+				return FALSE;
+		return TRUE;
+	}
+
+/* Handle CONTAINS */
+
+	if (node->nod_type == nod_containing) {
+#if (defined JPN_EUC || defined JPN_SJIS)
+		USHORT c1, c2, *p1, *p2, *q1, *q2, *buf1, *buf2;
+
+		buf1 = (USHORT *) gds__alloc((l1 + 1) * sizeof(SSHORT));
+		buf2 = (USHORT *) gds__alloc((l2 + 1) * sizeof(SSHORT));
+
+		l1 = KANJI_byte2short(p1_orig, buf1, l1);
+		l2 = KANJI_byte2short(p2_orig, buf2, l2);
+
+		*(buf1 + l1) = 0;
+		*(buf2 + l2) = 0;
+
+		p1 = buf1;
+		p2 = buf2;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+		while (l1 >= l2) {
+			--l1;
+			q1 = p1++;
+			q2 = p2;
+			l = l2;
+			do {
+				if (--l < 0)
+#if (defined JPN_EUC || defined JPN_SJIS)
+				{
+					gds__free(buf1);
+					gds__free(buf2);
+					return TRUE;
+				}
+#else
+					return TRUE;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+				c1 = *q1++;
+				c2 = *q2++;
+			} while (UPPER(c1) == UPPER(c2));
+		}
+#if (defined JPN_EUC || defined JPN_SJIS)
+		gds__free(buf1);
+		gds__free(buf2);
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+		return FALSE;
+	}
+
+/* Handle LIKE */
+
+	if (node->nod_type == nod_like) {
+		c1 = 0;
+		if (node->nod_count > 2 &&
+			MOVQ_get_string(EVAL_value(node->nod_arg[2]), &q1, temp,
+							sizeof(temp))) c1 = *q1;
+#if (defined JPN_EUC || defined JPN_SJIS)
+		if (like2(p1, l1, p2, l2, c1))
+#else
+		if (like(p1, l1, p2, l2, c1))
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+			return TRUE;
+		return FALSE;
+	}
+
+/* Handle MATCHES */
+
+	if (node->nod_type == nod_matches)
+#if (defined JPN_EUC || defined JPN_SJIS)
+		if (matches2(p1, l1, p2, l2))
+#else
+		if (matches(p1, l1, p2, l2))
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+			return TRUE;
+
+	return FALSE;
+}
diff --git a/src/qli/eval_proto.h b/src/qli/eval_proto.h
new file mode 100644
index 0000000000..d116ab7b91
--- /dev/null
+++ b/src/qli/eval_proto.h
@@ -0,0 +1,34 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		eval_proto.h
+ *	DESCRIPTION:	Prototype header file for eval.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_EVAL_PROTO_H_
+#define _QLI_EVAL_PROTO_H_
+
+extern int		EVAL_boolean (struct nod *);
+extern void		EVAL_break_compute (struct nod *);
+extern void		EVAL_break_increment (struct nod *);
+extern void		EVAL_break_init (struct nod *);
+extern struct dsc	*EVAL_parameter (struct par *);
+extern struct dsc	*EVAL_value (struct nod *);
+
+#endif /* _QLI_EVAL_PROTO_H_ */
diff --git a/src/qli/everything.h b/src/qli/everything.h
new file mode 100644
index 0000000000..191fe4c8c8
--- /dev/null
+++ b/src/qli/everything.h
@@ -0,0 +1,25 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "../qli/dtr.h"
+#include "../qli/parse.h"
+#include "../qli/compile.h"
+#include "../qli/exe.h"
+#include "../qli/report.h"
+#include "../qli/format.h"
+#include "../qli/form.h"
diff --git a/src/qli/exe.cpp b/src/qli/exe.cpp
new file mode 100644
index 0000000000..1775d8763b
--- /dev/null
+++ b/src/qli/exe.cpp
@@ -0,0 +1,1270 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		exe.c
+ *	DESCRIPTION:	Execution phase
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <setjmp.h>
+
+#define REQUESTS_MAIN
+#include "../include/jrd/gds.h"
+#include "../qli/dtr.h"
+#include "../qli/exe.h"
+#include "../qli/all_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/eval_proto.h"
+#include "../qli/exe_proto.h"
+#include "../qli/form_proto.h"
+#include "../qli/forma_proto.h"
+#include "../qli/mov_proto.h"
+#include "../qli/repor_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/utl_proto.h"
+
+#ifdef sparc
+#ifndef SOLARIS
+#include <vfork.h>
+#endif
+#endif
+
+#ifndef FOPEN_WRITE_TYPE
+#define FOPEN_WRITE_TYPE	"w"
+#endif
+
+extern int *QLI_env;
+extern USHORT QLI_prompt_count, QLI_reprompt;
+
+typedef struct vary {
+	USHORT vary_length;
+	UCHAR vary_string[1];
+} VARY;
+
+static DSC *assignment(NOD, DSC *, NOD, NOD, PAR);
+static void commit_retaining(NOD);
+static int copy_blob(NOD, PAR);
+static void db_error(REQ, STATUS *);
+static void execute_abort(NOD);
+static void execute_assignment(NOD);
+static void execute_for(NOD);
+static void execute_modify(NOD);
+static void execute_output(NOD);
+static void execute_print(NOD);
+static void execute_repeat(NOD);
+static void execute_store(NOD);
+static void map_data(MSG);
+static void print_counts(REQ);
+static void set_null(MSG);
+static void transaction_state(NOD, DBB);
+
+/* definitions for SET COUNT */
+
+#define COUNT_ITEMS	4
+
+static SCHAR count_info[] = {
+	gds__info_req_select_count,
+	gds__info_req_insert_count,
+	gds__info_req_update_count,
+	gds__info_req_delete_count
+};
+
+
+void EXEC_abort(void)
+{
+/**************************************
+ *
+ *	E X E C _ a b o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	An asynchrous abort has been requested.  Request that all
+ *	requests be unwound and set flag.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	REQ request;
+
+	for (request = QLI_requests; request; request = request->req_next)
+		if (request->req_handle)
+			gds__unwind_request(status_vector,
+								GDS_REF(request->req_handle), 0);
+
+	QLI_abort = TRUE;
+}
+
+
+void EXEC_execute( NOD node)
+{
+/**************************************
+ *
+ *	E X E C _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a node.
+ *
+ **************************************/
+	MSG message;
+	NOD *ptr;
+	USHORT i;
+
+	if (QLI_abort)
+		EXEC_poll_abort();
+
+	if (node)
+		switch (node->nod_type) {
+		case nod_abort:
+			execute_abort(node);
+
+		case nod_assign:
+			execute_assignment(node);
+			return;
+
+		case nod_commit_retaining:
+			commit_retaining(node);
+			return;
+
+		case nod_erase:
+			if (message = (MSG) node->nod_arg[e_era_message])
+				EXEC_send(message);
+			return;
+
+		case nod_for:
+			execute_for(node);
+			return;
+
+		case nod_form_for:
+			FORM_display(node);
+			return;
+
+		case nod_form_update:
+			FORM_update(node);
+			return;
+
+		case nod_list:
+			ptr = node->nod_arg;
+			for (i = 0; i < node->nod_count; i++)
+				EXEC_execute(*ptr++);
+			return;
+
+		case nod_modify:
+			execute_modify(node);
+			return;
+
+		case nod_output:
+			execute_output(node);
+			return;
+
+		case nod_print:
+			execute_print(node);
+			return;
+
+		case nod_repeat:
+			execute_repeat(node);
+			return;
+
+		case nod_store:
+			execute_store(node);
+			return;
+
+		case nod_if:
+			if (EVAL_boolean(node->nod_arg[e_if_boolean])) {
+				EXEC_execute(node->nod_arg[e_if_true]);
+				return;
+			}
+			if (node->nod_arg[e_if_false]) {
+				EXEC_execute(node->nod_arg[e_if_false]);
+				return;
+			}
+			return;
+
+		case nod_report_loop:
+			RPT_report(node);
+			return;
+
+		default:
+			BUGCHECK(33);		/* Msg33 EXEC_execute: not implemented */
+		}
+}
+
+
+void *EXEC_open_blob( NOD node)
+{
+/**************************************
+ *
+ *	E X E C _ o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a blob field node, open and return the blob.
+ *
+ **************************************/
+	FLD field;
+	CTX context;
+	REQ request;
+	DBB dbb;
+	DSC *desc, static_desc;
+	UCHAR segment[20], bpb[20], *p;
+	USHORT bpb_length;
+	void *blob;
+	STATUS status_vector[20];
+
+	desc = EVAL_value(node);
+	if (!desc)
+		return FALSE;
+
+/* Starting from the print item, work our way back to the database block */
+
+	if (node->nod_type == nod_reference)
+		node = node->nod_arg[0];
+
+	if (node->nod_type != nod_field)
+		BUGCHECK(34);			/* Msg34 print_blob: expected field node */
+
+	context = (CTX) node->nod_arg[e_fld_context];
+	request = context->ctx_request;
+	dbb = request->req_database;
+	blob = NULL;
+
+/* Format blob parameter block */
+
+	p = bpb;
+	*p++ = gds__bpb_version1;
+	*p++ = gds__bpb_source_type;
+	*p++ = 2;
+	*p++ = desc->dsc_sub_type;
+	*p++ = desc->dsc_sub_type >> 8;
+	*p++ = gds__bpb_target_type;
+	*p++ = 1;
+	*p++ = 1;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+	if (desc->dsc_sub_type == 1) {
+		*p++ = gds__bpb_target_interp;
+		*p++ = 2;
+		*p++ = QLI_interp;
+		*p++ = QLI_interp >> 8;
+	}
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+	bpb_length = p - bpb;
+
+	if (gds__open_blob2(status_vector,
+						GDS_REF(dbb->dbb_handle),
+						GDS_REF(dbb->dbb_transaction),
+						GDS_REF(blob),
+						GDS_VAL(desc->dsc_address),
+						bpb_length,
+						bpb)) ERRQ_database_error(dbb, status_vector);
+
+	return blob;
+}
+
+
+struct file *EXEC_open_output(NOD node)
+{
+/**************************************
+ *
+ *	E X E C _ o p e n _ o u t p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open output stream to re-direct output.
+ *
+ **************************************/
+	IB_FILE *file;
+	DSC *desc;
+	TEXT filename[256], temp[64], *p, *q, *argv[20], **arg;
+	int pair[2];
+	SSHORT l;
+
+/* Evaluate filename and copy to a null terminated string */
+
+	desc = EVAL_value(node->nod_arg[e_out_file]);
+	l = MOVQ_get_string(desc, &p, temp, sizeof(temp));
+	q = filename;
+	if (l)
+		do
+			*q++ = *p++;
+		while (--l);
+	*q = 0;
+
+/* If output is to a file, just do it */
+
+	if (!node->nod_arg[e_out_pipe]) {
+		if (file = ib_fopen(filename, FOPEN_WRITE_TYPE))
+			return (struct file *) file;
+
+		ERRQ_print_error(42, filename, NULL, NULL, NULL, NULL);	/* Msg42 Can't open output file %s */
+	}
+
+/* Output is to a file.  Setup file and fork process */
+
+#ifdef VMS
+	IBERROR(35);				/* Msg35 output pipe is not supported on VMS */
+#else
+
+#if (defined WIN_NT)
+	if (file = _popen(filename, "w"))
+		return (struct file *) file;
+#else
+	arg = argv;
+	p = filename;
+	while (*p) {
+		*arg++ = p;
+		while (*p && *p != ' ')
+			p++;
+		if (!*p)
+			break;
+		*p++ = 0;
+		while (*p == ' ')
+			p++;
+	}
+	*arg = NULL;
+
+	if (pipe(pair) < 0)
+		IBERROR(36);			/* Msg36 couldn't create pipe */
+
+	if (!vfork()) {
+		close(pair[1]);
+		close(0);
+		dup(pair[0]);
+		close(pair[0]);
+		execvp(argv[0], argv);
+		ERRQ_msg_put(43, filename, NULL, NULL, NULL, NULL);	/* Msg43 Couldn't run %s */
+		_exit(-1);
+	}
+
+	close(pair[0]);
+
+	if (file = ib_fdopen(pair[1], "w"))
+		return (struct file *) file;
+#endif
+
+	IBERROR(37);				/* Msg37 ib_fdopen failed */
+#endif
+}
+
+
+void EXEC_poll_abort(void)
+{
+/**************************************
+ *
+ *	E X E C _ p o l l _ a b o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Poll for abort flag (actually, most routines will check the
+ *	flag before calling to save time).
+ *
+ **************************************/
+
+	if (!QLI_abort)
+		return;
+
+	IBERROR(38);				/* Msg38 execution terminated by signal */
+}
+
+
+DSC *EXEC_receive(MSG message, PAR parameter)
+{
+/**************************************
+ *
+ *	E X E C _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message from a running request.
+ *
+ **************************************/
+	REQ request;
+	STATUS status_vector[20];
+
+	request = message->msg_request;
+
+	if (gds__receive(status_vector,
+					 GDS_REF(request->req_handle),
+					 message->msg_number,
+					 message->msg_length,
+					 GDS_VAL(message->msg_buffer),
+					 0)) db_error(request, status_vector);
+
+	if (!parameter)
+		return NULL;
+
+	return EVAL_parameter(parameter);
+}
+
+
+void EXEC_send( MSG message)
+{
+/**************************************
+ *
+ *	E X E C _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a message to a running request.  First, however, map
+ *	any data to the message.
+ *
+ **************************************/
+	REQ request;
+	STATUS status_vector[20];
+
+	request = message->msg_request;
+
+	map_data(message);
+	if (gds__send(status_vector,
+				  GDS_REF(request->req_handle),
+				  message->msg_number,
+				  message->msg_length,
+				  GDS_VAL(message->msg_buffer),
+				  0)) db_error(request, status_vector);
+}
+
+
+void EXEC_start_request( REQ request, MSG message)
+{
+/**************************************
+ *
+ *	E X E C _ s t a r t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a request running.  If there is a message to be sent, do
+ *	a start and send.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	if (message) {
+		map_data(message);
+		if (!gds__start_and_send(status_vector,
+								 GDS_REF(request->req_handle),
+								 GDS_REF(request->req_database->
+										 dbb_transaction),
+								 message->msg_number, message->msg_length,
+								 GDS_VAL(message->msg_buffer), 0)) return;
+	}
+	else
+		if (!gds__start_request(status_vector,
+								GDS_REF(request->req_handle),
+								GDS_REF(request->req_database->
+										dbb_transaction), 0)) return;
+
+	db_error(request, status_vector);
+}
+
+
+void EXEC_top( NOD node)
+{
+/**************************************
+ *
+ *	E X E C _ t o p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a node type.
+ *
+ **************************************/
+
+	EXEC_execute(node);
+}
+
+
+static DSC *assignment(
+					   NOD from_node,
+					   DSC * to_desc,
+					   NOD validation, NOD initial, PAR parameter)
+{
+/**************************************
+ *
+ *	a s s i g n m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Evaluate an expression and perform an assignment.  If something
+ *	goes wrong and there was a prompt, try again.
+ *
+ **************************************/
+	DSC *from_desc;
+	UCHAR *p;
+	MSG message;
+	USHORT l, *missing_flag, trash;
+	int *old_env, status;
+	jmp_buf env;
+
+	old_env = QLI_env;
+	QLI_reprompt = FALSE;
+	QLI_prompt_count = 0;
+	missing_flag = &trash;
+
+	if (parameter) {
+		message = parameter->par_message;
+		missing_flag =
+			(USHORT *) (message->msg_buffer + parameter->par_offset);
+	}
+
+	status = setjmp(env);
+
+	if (status)
+		if (QLI_abort || !QLI_prompt_count) {
+			QLI_env = old_env;
+			longjmp(QLI_env, status);
+		}
+		else {
+			QLI_reprompt = TRUE;
+			QLI_prompt_count = 0;
+		}
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+	if (from_node->nod_type == nod_edit_blob) {
+		from_node->nod_desc.dsc_scale = to_desc->dsc_scale;
+		from_node->nod_desc.dsc_sub_type = to_desc->dsc_sub_type;
+	}
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+
+	QLI_env = env;
+	from_desc = EVAL_value(from_node);
+
+	if (from_desc->dsc_missing & DSC_initial)
+		from_desc = EVAL_value(initial);
+
+/* If there is a value present, do any assignment; otherwise null fill */
+
+	if (*missing_flag = to_desc->dsc_missing = from_desc->dsc_missing) {
+		p = from_desc->dsc_address;
+		if (l = from_desc->dsc_length)
+			do
+				*p++ = 0;
+			while (--l);
+	}
+	else
+		MOVQ_move(from_desc, to_desc);
+
+	if (validation && EVAL_boolean(validation) <= 0)
+		IBERROR(39);			/* Msg39 field validation error */
+
+	QLI_reprompt = FALSE;
+	QLI_env = old_env;
+
+	return from_desc;
+}
+
+
+static void commit_retaining( NOD node)
+{
+/**************************************
+ *
+ *	c o m m i t _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute commit retaining statement for
+ *	one or more named databases or all databases. 
+ *	If there's more than one, prepare it.
+ *
+ **************************************/
+	DBB database;
+	STATUS status[20];
+	NOD *ptr, *end;
+
+/* If there aren't any open databases then obviously
+   there isn't anything to commit. */
+
+	if (node->nod_count == 0 && !QLI_databases)
+		return;
+
+	if (node->nod_type == nod_commit_retaining &&
+		((node->nod_count > 1) ||
+		 (node->nod_count == 0 && QLI_databases->dbb_next))) {
+		node->nod_type = nod_prepare;
+		commit_retaining(node);
+		node->nod_type = nod_commit_retaining;
+	}
+	else if (node->nod_count == 1) {
+		database = (DBB) node->nod_arg[0];
+		database->dbb_flags |= DBB_prepared;
+	}
+	else
+		QLI_databases->dbb_flags |= DBB_prepared;
+
+
+	if (node->nod_count == 0) {
+		for (database = QLI_databases; database;
+			 database = database->dbb_next) {
+			if ((node->nod_type == nod_commit_retaining)
+				&& !(database->dbb_flags & DBB_prepared))
+				ERRQ_msg_put(465, database->dbb_symbol->sym_string, NULL,
+							 NULL, NULL, NULL);
+			else if (node->nod_type == nod_prepare)
+				database->dbb_flags |= DBB_prepared;
+			if (database->dbb_transaction)
+				transaction_state(node, database);
+		}
+		return;
+	}
+
+	for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end; ptr++) {
+		database = (DBB) * ptr;
+		if ((node->nod_type == nod_commit_retaining) &&
+			!(database->dbb_flags & DBB_prepared))
+			ERRQ_msg_put(465, database->dbb_symbol->sym_string, NULL, NULL,
+						 NULL, NULL);
+		else if (node->nod_type == nod_prepare)
+			database->dbb_flags |= DBB_prepared;
+		if (database->dbb_transaction)
+			transaction_state(node, database);
+	}
+}
+
+
+
+static int copy_blob( NOD value, PAR parameter)
+{
+/**************************************
+ *
+ *	 c o p y _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a blob from one database to another.  If the blob can be
+ *	successfully assigned, return FALSE and let somebody else just
+ *	copy the blob ids.
+ *
+ **************************************/
+	CTX context;
+	MSG message;
+	REQ from_request, to_request;
+	DBB to_dbb, from_dbb;
+	DSC *from_desc, *to_desc;
+	NOD field;
+	SLONG *from_blob, *to_blob, size, segment_count, max_segment;
+	STATUS status_vector[20];
+	USHORT bpb_length, length, buffer_length;
+	UCHAR bpb[20], *p, fixed_buffer[4096], *buffer;
+#if (defined JPN_EUC || defined JPN_SJIS)
+	USHORT bpb2_length;
+	UCHAR bpb2x[20], *p2, *bpb2;
+#endif
+
+	if (value->nod_type == nod_form_field)
+		return FORM_get_blob(value, parameter);
+
+/* If assignment isn't from a field, there isn't a blob copy, so
+   do a dumb assignment. */
+
+	if (value->nod_type != nod_field)
+		return FALSE;
+
+/* Find the sending and receiving requests.  If they are the same
+   and no filtering is necessary, a simple assignment will suffice. */
+
+	context = (CTX) value->nod_arg[e_fld_context];
+	from_request = context->ctx_request;
+	from_dbb = from_request->req_database;
+	message = parameter->par_message;
+	to_request = message->msg_request;
+	to_dbb = to_request->req_database;
+
+	from_desc = EVAL_value(value);
+	to_desc = EVAL_parameter(parameter);
+
+	if (to_dbb == from_dbb &&
+		(!to_desc->dsc_sub_type ||
+		 from_desc->dsc_sub_type == to_desc->dsc_sub_type)) return FALSE;
+
+/* We've got a blob copy on our hands. */
+
+	if (!from_desc) {
+		*to_desc->dsc_address = 0;
+		return TRUE;
+	}
+
+	to_blob = from_blob = NULL;
+
+/* Format blob parameter block for the existing blob */
+
+	p = bpb;
+	*p++ = gds__bpb_version1;
+	*p++ = gds__bpb_source_type;
+	*p++ = 2;
+	*p++ = from_desc->dsc_sub_type;
+	*p++ = from_desc->dsc_sub_type >> 8;
+	*p++ = gds__bpb_target_type;
+	*p++ = 2;
+	*p++ = to_desc->dsc_sub_type;
+	*p++ = to_desc->dsc_sub_type >> 8;
+	bpb_length = p - bpb;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+	if ((to_desc->dsc_sub_type == 1) &&
+		(to_desc->dsc_scale != from_desc->dsc_scale)) {
+		p2 = bpb2x;
+		*p2++ = gds__bpb_version1;
+		*p2++ = gds__bpb_source_interp;
+		*p2++ = 2;
+		*p2++ = from_desc->dsc_scale;
+		*p2++ = from_desc->dsc_scale >> 8;
+		bpb2_length = p2 - bpb2x;
+		bpb2 = bpb2x;
+	}
+	else {
+		bpb2_length = 0;
+		bpb2 = NULL;
+	}
+
+	if (gds__create_blob2(status_vector,
+						  GDS_REF(to_dbb->dbb_handle),
+						  GDS_REF(to_dbb->dbb_transaction),
+						  GDS_REF(to_blob),
+						  GDS_VAL(to_desc->dsc_address), bpb2_length, bpb2))
+#else
+	if (gds__create_blob(status_vector,
+						 GDS_REF(to_dbb->dbb_handle),
+						 GDS_REF(to_dbb->dbb_transaction),
+						 GDS_REF(to_blob), GDS_VAL(to_desc->dsc_address)))
+#endif
+		ERRQ_database_error(to_dbb, status_vector);
+
+	if (gds__open_blob2(status_vector,
+						GDS_REF(from_dbb->dbb_handle),
+						GDS_REF(from_dbb->dbb_transaction),
+						GDS_REF(from_blob),
+						GDS_VAL(from_desc->dsc_address),
+						bpb_length,
+						bpb)) ERRQ_database_error(from_dbb, status_vector);
+
+	gds__blob_size(&from_blob, &size, &segment_count, &max_segment);
+
+	if (max_segment < sizeof(fixed_buffer)) {
+		buffer_length = sizeof(fixed_buffer);
+		buffer = fixed_buffer;
+	}
+	else {
+		buffer_length = max_segment;
+		buffer = gds__alloc(buffer_length);
+#ifdef DEBUG_GDS_ALLOC
+		/* We don't care about QLI specific memory leaks for V4.0 */
+		gds_alloc_flag_unfreed((void *) buffer);	/* QLI: don't care */
+#endif
+
+	}
+
+	while (!gds__get_segment(status_vector,
+							 GDS_REF(from_blob),
+							 GDS_REF(length),
+							 buffer_length,
+							 GDS_VAL(buffer)))
+			if (gds__put_segment(status_vector,
+								 GDS_REF(to_blob),
+								 length,
+								 GDS_VAL(buffer)))
+				ERRQ_database_error(to_dbb, status_vector);
+
+	if (buffer != fixed_buffer)
+		gds__free(buffer);
+
+	if (gds__close_blob(status_vector, GDS_REF(from_blob)))
+		ERRQ_database_error(from_dbb, status_vector);
+
+	if (gds__close_blob(status_vector, GDS_REF(to_blob)))
+		ERRQ_database_error(to_dbb, status_vector);
+
+	return TRUE;
+}
+
+
+static void db_error( REQ request, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	d b _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	A database error has occurred.  Unless it was the result of
+ *	an unwind, generate an error.
+ *
+ **************************************/
+
+	EXEC_poll_abort();
+	ERRQ_database_error(request->req_database, status_vector);
+}
+
+
+static void execute_abort( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ a b o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a statement.
+ *
+ **************************************/
+	USHORT l;
+	UCHAR *ptr, temp[80], msg[128];
+
+	if (node->nod_count) {
+		l =
+			MOVQ_get_string(EVAL_value(node->nod_arg[0]), &ptr, temp,
+							sizeof(temp));
+		MOVQ_terminate(ptr, msg, l, sizeof(msg));
+		ERRQ_error(40, msg, NULL, NULL, NULL, NULL);	/* Msg40 Request terminated by statement: %s */
+	}
+
+	IBERROR(41);				/* Msg41 Request terminated by statement */
+}
+
+
+static void execute_assignment( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ a s s i g n m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	NOD to, from, reference, initial;
+	FLD field;
+	PAR parameter;
+
+	if (node->nod_flags & NOD_remote)
+		return;
+
+	to = node->nod_arg[e_asn_to];
+	from = node->nod_arg[e_asn_from];
+	initial = node->nod_arg[e_asn_initial];
+
+	if (to->nod_type == nod_field) {
+		reference = to->nod_arg[e_fld_reference];
+		parameter = reference->nod_import;
+		if (to->nod_desc.dsc_dtype == dtype_blob &&
+			from->nod_desc.dsc_dtype == dtype_blob &&
+			copy_blob(from, parameter)) return;
+	}
+	else if (to->nod_type == nod_form_field) {
+		FORM_put_field(from, to);
+		return;
+	}
+	else
+		parameter = node->nod_import;
+
+	if (parameter)
+		parameter = parameter->par_missing;
+
+	assignment(from, EVAL_value(to),
+			   node->nod_arg[e_asn_valid], initial, parameter);
+
+/* propagate the missing flag in variable assignments */
+
+	if (to->nod_type == nod_variable) {
+		field = (FLD) to->nod_arg[e_fld_field];
+		if (to->nod_desc.dsc_missing & DSC_missing)
+			field->fld_flags |= FLD_missing;
+		else
+			field->fld_flags &= ~FLD_missing;
+	}
+}
+
+
+static void execute_for( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ f o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a FOR loop.  This may require that a request get
+ *	started, a message sent, and a message received for each
+ *	record.  At the other end of the spectrum, there may be
+ *	absolutely nothing to do.
+ *
+ **************************************/
+	REQ request;
+	MSG message;
+	DSC *desc;
+
+/* If there is a request associated  with the node, start it and possibly
+   send a message along with it. */
+
+	if (request = (REQ) node->nod_arg[e_for_request])
+		EXEC_start_request(request, node->nod_arg[e_for_send]);
+	else if (message = (MSG) node->nod_arg[e_for_send])
+		EXEC_send(message);
+
+/* If there isn't a receive message, the body of the loop has been
+   optimized out of existance.  So skip it. */
+
+	if (!(message = (MSG) node->nod_arg[e_for_receive]))
+		goto count;
+
+/* Receive messages in a loop until the end of file field comes up
+   true. */
+
+	while (TRUE) {
+		desc = EXEC_receive(message, node->nod_arg[e_for_eof]);
+		if (*(USHORT *) desc->dsc_address)
+			break;
+		EXEC_execute(node->nod_arg[e_for_statement]);
+		if (request && request->req_continue)
+			EXEC_send(request->req_continue);
+	}
+
+  count:
+	if (QLI_count)
+		print_counts(request);
+}
+
+
+static void execute_modify( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ m o d i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a modify statement.  This probably involves sending a
+ *	message to the running request and executing a sub-statement.
+ *
+ **************************************/
+	MSG message;
+
+
+	if (node->nod_flags & NOD_remote)
+		return;
+
+	if (message = (MSG) node->nod_arg[e_mod_send])
+		set_null(message);
+
+	EXEC_execute(node->nod_arg[e_mod_statement]);
+
+	if (message)
+		EXEC_send(message);
+}
+
+
+static void execute_output( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ o u t p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open output stream to re-direct output.
+ *
+ **************************************/
+	PRT print;
+	int *old_env, status;
+	jmp_buf env;
+
+	print = (PRT) node->nod_arg[e_out_print];
+	print->prt_file = EXEC_open_output(node);
+
+/* Set up error handling */
+
+	old_env = QLI_env;
+	QLI_env = env;
+
+	status = setjmp(QLI_env);
+
+	if (status) {
+		if (print->prt_file)
+			ib_fclose((IB_FILE *) print->prt_file);
+		QLI_env = old_env;
+		longjmp(QLI_env, status);
+	}
+
+/* Finally, execute the query */
+
+	EXEC_execute(node->nod_arg[e_out_statement]);
+	QLI_env = old_env;
+	ib_fclose((IB_FILE *) print->prt_file);
+}
+
+
+static void execute_print( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a print statement.  Since the loop has been factored
+ *	out, this should be easy.
+ *
+ **************************************/
+
+	if (node->nod_arg[e_prt_header]) {
+		FMT_put(node->nod_arg[e_prt_header], node->nod_arg[e_prt_output]);
+		node->nod_arg[e_prt_header] = NULL;
+	}
+
+	FMT_print(node->nod_arg[e_prt_list], node->nod_arg[e_prt_output]);
+}
+
+
+static void execute_repeat( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ r e p e a t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a REPEAT statement.  In short, loop.
+ *
+ **************************************/
+	SLONG count;
+
+	count = MOVQ_get_long(EVAL_value(node->nod_arg[e_rpt_value]), 0);
+
+	while (--count >= 0)
+		EXEC_execute(node->nod_arg[e_rpt_statement]);
+}
+
+
+static void execute_store( NOD node)
+{
+/**************************************
+ *
+ *	e x e c u t e _ s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a STORE statement.  This may involve starting
+ *	a request, sending a message, and executing a sub-statement.
+ *	On the other hand, it may be a mody no-op if the statement
+ *	is part of another request and doesn't need any data from
+ *	here.
+ *
+ **************************************/
+	REQ request;
+	MSG message;
+
+	if (message = (MSG) node->nod_arg[e_sto_send])
+		set_null(message);
+
+	if (!(node->nod_flags & NOD_remote))
+		EXEC_execute(node->nod_arg[e_sto_statement]);
+
+/* If there is a request associated  with the node, start it and possibly
+   send a message along with it. */
+
+	if (request = (REQ) node->nod_arg[e_sto_request])
+		EXEC_start_request(request, node->nod_arg[e_sto_send]);
+	else if (message)
+		EXEC_send(message);
+
+	if (QLI_count)
+		print_counts(request);
+}
+
+
+static void map_data( MSG message)
+{
+/**************************************
+ *
+ *	m a p _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map data to a message in preparation for sending.
+ *
+ **************************************/
+	PAR parameter, missing_parameter;
+	NOD from;
+	DSC *desc;
+	USHORT *missing_flag;
+
+	for (parameter = message->msg_parameters; parameter;
+		 parameter = parameter->par_next) {
+		desc = &parameter->par_desc;
+		desc->dsc_address = message->msg_buffer + parameter->par_offset;
+		if (missing_parameter = parameter->par_missing) {
+			missing_flag =
+				(USHORT *) (message->msg_buffer +
+							missing_parameter->par_offset);
+			*missing_flag =
+				(desc->dsc_missing & DSC_missing) ? DSC_missing : 0;
+		}
+
+		from = parameter->par_value;
+		if (desc->dsc_dtype == dtype_blob && copy_blob(from, parameter))
+			continue;
+		assignment(from, desc, 0, 0, parameter->par_missing);
+	}
+}
+
+
+static void print_counts( REQ request)
+{
+/**************************************
+ *
+ *	p r i n t _ c o u n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print out the count of records affected 
+ *	by the last statement.
+ *
+ **************************************/
+	UCHAR item;
+	int length;
+	ULONG number;
+	STATUS status_vector[20];
+	SCHAR count_buffer[COUNT_ITEMS * 7 + 1], *c;
+
+	if (gds__request_info(status_vector,
+						  GDS_REF(request->req_handle),
+						  0,
+						  sizeof(count_info),
+						  count_info,
+						  sizeof(count_buffer), count_buffer)) return;
+
+/* print out the counts of any records affected */
+
+	for (c = count_buffer; *c != gds__info_end; c += length) {
+		item = *c++;
+		length = gds__vax_integer(c, 2);
+		c += 2;
+		number = gds__vax_integer(c, length);
+
+		if (number)
+			switch (item) {
+			case gds__info_req_select_count:
+				ib_printf("\nrecords selected: %ld\n", number);
+				break;
+
+			case gds__info_req_insert_count:
+				ib_printf("records inserted: %ld\n", number);
+				break;
+
+			case gds__info_req_update_count:
+				ib_printf("records updated: %ld\n", number);
+				break;
+
+			case gds__info_req_delete_count:
+				ib_printf("records deleted: %ld\n", number);
+				break;
+
+			default:
+				return;
+			}
+	}
+}
+
+
+static void set_null( MSG message)
+{
+/**************************************
+ *
+ *	s e t _ n u l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set all parameters of an outgoing
+ *	message to null - this allows conditional
+ *	assignments to work in store and modify
+ *	statements.
+ *
+ **************************************/
+	PAR parameter;
+	NOD from;
+	DSC *desc;
+	UCHAR *p;
+
+	for (parameter = message->msg_parameters; parameter;
+		 parameter = parameter->par_next) {
+		from = parameter->par_value;
+		if (from->nod_type == nod_field) {
+			desc = EVAL_value(from);
+			desc->dsc_missing |= DSC_missing;
+		}
+		else
+			from->nod_desc.dsc_missing |= DSC_missing;
+	}
+}
+
+
+
+static void transaction_state( NOD node, DBB database)
+{
+/**************************************
+ *
+ *	t r a n s a c t i o n _ s t a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	
+ *	set the state of the working transaction
+ *	in a particular database to prepared or
+ *	committed.
+ *
+ **************************************/
+	STATUS status[20];
+
+	if (database->dbb_transaction) {
+		if (node->nod_type == nod_commit_retaining) {
+			if (gds__commit_retaining(status,
+									  GDS_REF(database->dbb_transaction)))
+					ERRQ_database_error(database, status);
+		}
+		else if (node->nod_type == nod_prepare) {
+			if (gds__prepare_transaction(status,
+										 GDS_REF(database->dbb_transaction)))
+					ERRQ_database_error(database, status);
+		}
+	}
+}
diff --git a/src/qli/exe.h b/src/qli/exe.h
new file mode 100644
index 0000000000..b51f319e52
--- /dev/null
+++ b/src/qli/exe.h
@@ -0,0 +1,363 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		exe.h
+ *	DESCRIPTION:	Execution struct definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_EXE_H_
+#define _QLI_EXE_H_
+
+/* Request Language Block  -- used for BLR, DYN, SDL, etc. */
+
+typedef struct rlb {
+    struct blk	rlb_header;
+    UCHAR	*rlb_data;		/* Pointer to end of BLR/DYN/SDL */
+    UCHAR	*rlb_base;		/* Pointer to start of buffer */
+    UCHAR	*rlb_limit;		/* Upper limit of string */
+    USHORT	rlb_length;		/* Length of string */
+} *RLB;
+
+/* RLB manipulation macros */
+
+#define RLB_BUFFER_SIZE	2048
+#define RLB_SAFETY_MARGIN	48
+
+#define CHECK_RLB(in)	(!in || (in->rlb_data > in->rlb_limit)) ? (in = GEN_rlb_extend (in)) : in;
+#define RELEASE_RLB	GEN_rlb_release (rlb);
+#define STUFF(blr)	*rlb->rlb_data++ = blr
+#define STUFF_WORD(blr)	{STUFF (blr); STUFF (blr >> 8);}
+
+/* Request block */
+
+typedef struct req {
+    struct blk	req_header;
+    struct req	*req_next;		/* Next request in statement */
+    struct dbb	*req_database;		/* Database for request */
+    int		*req_handle;		/* Database request handle */
+    struct rlb	*req_blr;
+    struct msg	*req_messages;		/* Messages associated with request */
+    struct msg	*req_receive;		/* Current receive message, if any  */
+    struct msg	*req_send;		/* Current send message, if any  */
+    struct msg	*req_continue;		/* Message to continue FOR loop after optional actions */
+    USHORT	req_flags;		/* Flags for state of request compilation, etc. */
+    USHORT	req_context;		/* Next available context */
+    USHORT	req_msg_number;		/* Next available message number */
+    USHORT	req_label;		/* Next available label */
+} *REQ;
+
+#define REQ_rse_compiled	1
+#define REQ_project		2	/* Set during generation of project clause */
+#define REQ_group_by		4	/* Set during generation of group by clause */
+
+/* Context node */
+
+typedef enum {
+    CTX_RELATION,
+    CTX_VARIABLE,
+    CTX_AGGREGATE,
+    CTX_FORM,
+    CTX_UNION,
+    CTX_STREAM
+} CTX_T;
+
+typedef struct ctx {
+    struct blk	ctx_header;
+    CTX_T	ctx_type;		/* Type of context */
+    struct ctx	*ctx_source;		/* Source context for MODIFY */
+    struct ctx	*ctx_primary;		/* Primary context */
+    struct sym	*ctx_symbol;		/* Context symbol, if any */
+    struct rel	*ctx_relation;		/* Relation of context */
+    struct nod	*ctx_stream;		/* Stream of context */
+    struct frm	*ctx_form;		/* Form block, if any */
+    struct fld	*ctx_variable;		/* Variable reference */
+    struct req	*ctx_request;		/* Request block */
+    struct msg	*ctx_message;		/* Message for data */
+    struct nod	*ctx_rse;		/* RSE node for root context */
+    struct nod	*ctx_sub_rse;		/* RSE node aggregate */
+    struct ctx	*ctx_parent;		/* Parent context for map */
+    struct map	*ctx_map;		/* Map items, if any */
+    USHORT	ctx_context;		/* Context in request */
+} *CTX;
+
+/* Aggregate/union map block */
+
+typedef struct map {
+    struct blk	map_header;
+    struct map	*map_next;		/* Next map in item */
+    struct nod	*map_node;		/* Value for map item */
+    USHORT	map_position;		/* Position in map */
+} *MAP;
+
+/* Message block */                                       
+
+typedef struct msg {
+    struct blk	msg_header;
+    struct req	*msg_request;		/* Parent request */
+    struct ctx	*msg_context;		/* Contexts in message */
+    struct msg	*msg_next;		/* Next message in request */
+    struct par	*msg_parameters;	/* Field instances */
+    USHORT	msg_number;		/* Message number */
+    USHORT	msg_length;		/* Message length */
+    USHORT	msg_parameter;		/* Next parameter number */
+    UCHAR	*msg_buffer;		/* Message buffer */
+} *MSG;
+
+/* Field Instance */
+
+typedef struct par {
+    struct blk	par_header;
+    DSC		par_desc;		/* Value descriptor */
+    struct par	*par_next;		/* Next par block in context */
+    struct msg	*par_message;		/* Parent message */
+    struct nod	*par_value;		/* Value */
+    USHORT	par_parameter;		/* Parameter number */
+    USHORT	par_offset;		/* Offset of parameter in message */
+    struct par	*par_missing;		/* Parameter block for missing value */
+} *PAR;
+
+/* Print item block */
+
+typedef ENUM itm_t
+    {
+    item_value,
+    item_skip,
+    item_column,
+    item_tab,
+    item_space,
+    item_new_page,
+    item_column_header,
+    item_report_header
+} ITM_T;
+
+typedef struct itm {
+    struct blk	itm_header;
+    struct nod	*itm_value;
+    TEXT	*itm_edit_string;
+    struct pic	*itm_picture;			/* picture string block */
+    TEXT	*itm_query_header;
+    ITM_T	itm_type;
+    USHORT	itm_flags;			/* Misc flags and crud */
+    UCHAR	itm_dtype;
+    UCHAR	itm_sub_type;
+    USHORT	itm_print_offset;
+    USHORT	itm_print_length;
+    USHORT	itm_header_offset;
+    USHORT	itm_header_length;
+    USHORT	itm_header_segments;
+    USHORT	itm_count;			/* Number of lines to skip */
+    USHORT	itm_column;			/* Logical column number */
+    int		*itm_stream;
+    USHORT	itm_kanji_fragment;		/* JPN: last kanji on line border */
+    STATUS	itm_blob_status;		/* JPN: status of the last blob fetch */
+} *ITM;
+
+#define ITM_overlapped	1			/* Overlapped by another item */
+
+/* Print Control Block */
+
+typedef struct prt {
+    struct blk	prt_header;
+    struct file	*prt_file;		/* IB_FILE pointer */
+    struct rpt	*prt_report;		/* Report block (if report) */
+    int		(*prt_new_page)();	/* New page routine, if any */
+    USHORT	prt_lines_per_page;
+    SSHORT	prt_lines_remaining;
+    USHORT	prt_page_number;
+} *PRT;
+
+/* General node blocks */
+
+typedef struct nod {
+    struct blk	nod_header;
+    NOD_T	nod_type;		/* Type of node */
+    DSC		nod_desc;		/* Descriptor */
+    PAR		nod_import;		/* To pass random value */
+    PAR		nod_export;		/* To pass random value */
+    SSHORT	nod_count;		/* Number of arguments */
+    UCHAR	nod_flags;
+    struct nod	*nod_arg[1];
+} *NOD;
+
+#define NOD_local	1		/* locally computed expression */
+#define NOD_remote	2
+#define NOD_parameter2	4		/* generate a parameter2 if field */
+#define nod_partial	8
+#define nod_comparison 	16
+#define nod_date	32		/* node is a date operation, regardless */
+
+/* Execution node positions */
+
+#define e_fld_field	0		/* field block */
+#define e_fld_context	1		/* context for field */
+#define e_fld_reference	2		/* points to parameter */
+#define e_fld_subs	3		/* subscripts */
+#define e_fld_count	4
+
+#define e_for_request	0		/* Request to be started */
+#define e_for_send	1		/* Message to be sent */
+#define e_for_receive	2		/* Message to be received */
+#define e_for_eof	3		/* End of file parameter */
+#define e_for_rse	4
+#define e_for_statement	5
+#define e_for_count	6
+
+#define e_itm_value	0		/* Value of print item */
+#define e_itm_edit_string 1		/* Edit string, if any */
+#define e_itm_header	2		/* Query header, if any */
+#define e_itm_count	3
+
+#define e_rse_first	0		/* FIRST clause, if any */
+#define e_rse_boolean	1		/* Boolean clause, if any */
+#define e_rse_sort	2		/* Sort clause, if any */
+#define e_rse_reduced	3		/* Reduced clause, if any */
+#define e_rse_context	4		/* Context block */
+#define e_rse_group_by	5
+#define e_rse_having	6
+#define e_rse_join_type	7
+#ifdef PC_ENGINE
+#define e_rse_index	8
+#endif
+#define e_rse_count	9
+
+#define e_prt_list	0		/* List of print items */
+#define e_prt_file_name	1		/* Output file name */
+#define e_prt_output	2		/* Output file */
+#define e_prt_header	3		/* Header to be printed, if any */
+#define e_prt_count	4
+
+#define e_prm_prompt	0		/* Prompt string, if any */
+#define e_prm_string	1		/* String node for data */
+#define e_prm_next	2		/* Next prompt in statement */
+#define e_prm_field	3		/* Prototype field, if known */
+#define e_prm_count	4
+
+#define e_sto_context	0
+#define e_sto_statement	1
+#define e_sto_request	2
+#define e_sto_send	3
+#define e_sto_count	4
+
+#define e_asn_to	0
+#define e_asn_from	1
+#define e_asn_initial	2
+#define e_asn_valid	3		/* Always second-to-last */
+#define e_asn_count	4
+
+#define e_mod_send	0
+#define e_mod_statement	1		/* Sub-statement */
+#define e_mod_request	2		/* Parent request for statement */
+#define e_mod_count	3
+
+#define e_era_context	0
+#define e_era_request	1		/* Parent request for erase */
+#define e_era_message	2		/* Message to be sent, if any */
+#define e_era_count	3
+
+#define e_any_request	0		/* Request to be started */
+#define e_any_send	1		/* Message to be sent */
+#define e_any_receive	2		/* Message to be received */
+#define e_any_rse	3
+#define e_any_count	4
+
+#define e_rpt_value	0
+#define e_rpt_statement	1
+#define e_rpt_count	2
+
+#define e_if_boolean	0
+#define e_if_true	1
+#define e_if_false	2
+#define e_if_count	3
+
+#define e_edt_input	0
+#define e_edt_dbb	1
+#define e_edt_id1	2
+#define e_edt_id2	3
+#define e_edt_name	4
+#define e_edt_count	5
+
+#define e_out_statement	0
+#define e_out_file	1
+#define e_out_pipe	2
+#define e_out_print	3
+#define e_out_count	4
+
+#define e_fmt_value	0
+#define e_fmt_edit	1
+#define e_fmt_picture	2
+#define e_fmt_count	3
+
+/* Statistical expression */
+
+#define e_stt_rse	0
+#define e_stt_value	1
+#define e_stt_default	2
+#define e_stt_request	3			/* Request to be started */
+#define e_stt_send	4			/* Message to be sent */
+#define e_stt_receive	5			/* Message to be received */
+#define e_stt_count	6
+
+#define e_map_context	0
+#define e_map_map	1
+#define e_map_count	2
+
+#define e_ffr_form	0
+#define e_ffr_statement	1
+#define e_ffr_count	2
+
+#define e_fup_form	0
+#define e_fup_fields	1
+#define e_fup_tag	2
+#define e_fup_count	3
+
+#define e_ffl_form	0
+#define e_ffl_field	1
+#define e_ffl_string	2
+#define e_ffl_count	3
+
+#define e_men_statements	0
+#define e_men_labels		1
+#define e_men_string		2
+#define e_men_menu		4
+#define e_men_count		5
+
+#define e_fun_args		0
+#define e_fun_function		1
+#define e_fun_request		2			/* Request to be started */
+#define e_fun_send		3			/* Message to be sent */
+#define e_fun_receive		4			/* Message to be received */
+#define e_fun_count		5
+
+#define e_syn_statement		0
+#define e_syn_send		1
+#define e_syn_count		2
+
+/* A Program global or two */
+
+#ifdef REQUESTS_MAIN
+#define EXTERN
+#else
+#define EXTERN	extern
+#endif
+
+EXTERN REQ	QLI_requests;			/* Requests in statement */
+
+#undef EXTERN
+
+#endif /* _QLI_EXE_H_ */
diff --git a/src/qli/exe_proto.h b/src/qli/exe_proto.h
new file mode 100644
index 0000000000..c9abbbfce2
--- /dev/null
+++ b/src/qli/exe_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		exe_proto.h
+ *	DESCRIPTION:	Prototype header file for exe.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_EXE_PROTO_H_
+#define _QLI_EXE_PROTO_H_
+
+extern void		EXEC_abort (void);
+extern void		EXEC_execute (struct nod *);
+extern void		*EXEC_open_blob (struct nod *);
+extern struct file	*EXEC_open_output (struct nod *);
+extern void		EXEC_poll_abort (void);
+extern struct dsc	*EXEC_receive (struct msg *, struct par *);
+extern void		EXEC_send (struct msg *);
+extern void		EXEC_start_request (struct req *, struct msg *);
+extern void		EXEC_top (struct nod *);
+
+#endif /* _QLI_EXE_PROTO_H_ */
diff --git a/src/qli/expan_proto.h b/src/qli/expan_proto.h
new file mode 100644
index 0000000000..3ee86d0111
--- /dev/null
+++ b/src/qli/expan_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		expan_proto.h
+ *	DESCRIPTION:	Prototype header file for expand.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_EXPAN_PROTO_H_
+#define _QLI_EXPAN_PROTO_H_
+
+extern struct nod	*EXP_expand (struct syn *);
+
+#endif /* _QLI_EXPAN_PROTO_H_ */
diff --git a/src/qli/expand.cpp b/src/qli/expand.cpp
new file mode 100644
index 0000000000..dbf7a631b6
--- /dev/null
+++ b/src/qli/expand.cpp
@@ -0,0 +1,3574 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		expand.c
+ *	DESCRIPTION:	Expand syntax tree -- first phase of compiler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../qli/dtr.h"
+#include "../qli/parse.h"
+#include "../qli/compile.h"
+#include "../qli/exe.h"
+#include "../qli/report.h"
+#include "../qli/form.h"
+#ifdef JPN_SJIS
+#include "../jrd/kanji.h"
+#endif
+#include "../qli/all_proto.h"
+#include "../qli/comma_proto.h"
+#include "../qli/compi_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/expan_proto.h"
+#include "../qli/form_proto.h"
+#include "../qli/help_proto.h"
+#include "../qli/meta_proto.h"
+#include "../qli/show_proto.h"
+
+extern USHORT QLI_columns, QLI_lines;
+
+#define MAKE_NODE(type,count)	make_node (type, count)
+
+static int compare_names(NAM, SYM);
+static int compare_symbols(SYM, SYM);
+static SYM copy_symbol(SYM);
+static void declare_global(FLD, SYN);
+static SYN decompile_field(FLD, CTX);
+static NAM decompile_symbol(SYM);
+static NOD expand_assignment(SYN, LLS, LLS);
+static NOD expand_any(SYN, LLS);
+static NOD expand_boolean(SYN, LLS);
+static void expand_control_break(BRK *, LLS);
+static void expand_distinct(NOD, NOD);
+static void expand_edit_string(NOD, ITM);
+static NOD expand_erase(SYN, LLS, LLS);
+static NOD expand_expression(SYN, LLS);
+static NOD expand_field(SYN, LLS, SYN);
+static NOD expand_for(SYN, LLS, LLS);
+static FRM expand_form(SYN, REL);
+static NOD expand_form_for(SYN, LLS, LLS);
+static NOD expand_form_update(SYN, LLS, LLS);
+static NOD expand_function(SYN, LLS);
+static NOD expand_group_by(SYN, LLS, CTX);
+static NOD expand_menu(SYN, LLS, LLS);
+static NOD expand_modify(SYN, LLS, LLS);
+static NOD expand_output(SYN, LLS, PRT *);
+static NOD expand_print(SYN, LLS, LLS);
+static NOD expand_print_form(SYN, LLS, LLS);
+static ITM expand_print_item(SYN, LLS);
+static NOD expand_print_list(SYN, LLS);
+static NOD expand_report(SYN, LLS, LLS);
+static NOD expand_restructure(SYN, LLS, LLS);
+static NOD expand_rse(SYN, LLS *);
+static NOD expand_sort(SYN, LLS, NOD);
+static NOD expand_statement(SYN, LLS, LLS);
+static NOD expand_store(SYN, LLS, LLS);
+static void expand_values(SYN, LLS);
+static CTX find_context(NAM, LLS);
+static int generate_fields(CTX, LLS, SYN);
+static int generate_items(SYN, LLS, LLS, NOD);
+static SLONG global_agg(SYN, SYN);
+static int invalid_nod_field(NOD, NOD);
+static int invalid_syn_field(SYN, SYN);
+static NOD make_and(NOD, NOD);
+static NOD make_assignment(NOD, NOD, LLS);
+static NOD make_form_body(LLS, LLS, SYN);
+static NOD make_form_field(FRM, FFL);
+static NOD make_field(FLD, CTX);
+static NOD make_list(LLS);
+static NOD make_node(NOD_T, USHORT);
+static NOD negate(NOD);
+static NOD possible_literal(SYN, LLS, USHORT);
+static NOD post_map(NOD, CTX);
+static FLD resolve(SYN, LLS, CTX *);
+static FLD resolve_name(SYM, LLS, CTX *);
+static void resolve_really(FLD, SYN);
+
+static LLS output_stack;
+
+
+NOD EXP_expand( SYN node)
+{
+/**************************************
+ *
+ *	E X P _ e x p a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a syntax tree into something richer and more complete.
+ *
+ **************************************/
+	NOD expanded, output;
+	NAM name;
+	CTX context;
+	LLS right, left;
+
+	switch (node->syn_type) {
+	case nod_commit:
+	case nod_prepare:
+	case nod_rollback:
+		CMD_transaction(node);
+		return NULL;
+
+	case nod_copy_proc:
+		CMD_copy_procedure(node);
+		return NULL;
+
+	case nod_declare:
+		declare_global(node->syn_arg[0], node->syn_arg[1]);
+		return NULL;
+
+	case nod_define:
+		CMD_define_procedure(node);
+		return NULL;
+
+	case nod_delete_proc:
+		CMD_delete_proc(node);
+		return NULL;
+
+	case nod_def_database:
+	case nod_sql_database:
+		MET_ready(node, TRUE);
+		return NULL;
+
+	case nod_def_field:
+		MET_define_field(node->syn_arg[0], node->syn_arg[1]);
+		return NULL;
+
+	case nod_def_index:
+		MET_define_index(node);
+		return NULL;
+
+	case nod_def_relation:
+		MET_define_relation(node->syn_arg[0], node->syn_arg[1]);
+		return NULL;
+
+	case nod_del_relation:
+		MET_delete_relation(node->syn_arg[0]);
+		return NULL;
+
+	case nod_del_field:
+		MET_delete_field(node->syn_arg[0], node->syn_arg[1]);
+		return NULL;
+
+	case nod_del_index:
+		MET_delete_index(node->syn_arg[0], node->syn_arg[1]);
+		return NULL;
+
+	case nod_del_database:
+		MET_delete_database(node->syn_arg[0]);
+		return NULL;
+
+	case nod_edit_proc:
+		CMD_edit_proc(node);
+		return NULL;
+
+	case nod_edit_form:
+		name = (NAM) node->syn_arg[1];
+		FORM_edit(node->syn_arg[0], name->nam_string);
+		return NULL;
+
+	case nod_extract:
+		node->syn_arg[1] = (SYN) expand_output(node->syn_arg[1], 0, 0);
+		CMD_extract(node);
+		return NULL;
+
+	case nod_finish:
+		CMD_finish(node);
+		return NULL;
+
+	case nod_help:
+		HELP_help(node);
+		return NULL;
+
+	case nod_mod_field:
+		MET_modify_field(node->syn_arg[0], node->syn_arg[1]);
+		return NULL;
+
+	case nod_mod_relation:
+		MET_modify_relation(node->syn_arg[0], node->syn_arg[1]);
+		return NULL;
+
+	case nod_mod_index:
+		MET_modify_index(node);
+		return NULL;
+
+	case nod_ready:
+		MET_ready(node, FALSE);
+		return NULL;
+
+	case nod_rename_proc:
+		CMD_rename_proc(node);
+		return NULL;
+
+	case nod_set:
+		CMD_set(node);
+		return NULL;
+
+	case nod_show:
+		SHOW_stuff(node);
+		return NULL;
+
+	case nod_shell:
+		CMD_shell(node);
+		return NULL;
+
+	case nod_sql_grant:
+		MET_sql_grant(node);
+		return NULL;
+
+	case nod_sql_revoke:
+		MET_sql_revoke(node);
+		return NULL;
+
+	case nod_sql_cr_table:
+		MET_define_sql_relation(node->syn_arg[0]);
+		return NULL;
+
+/****
+    case nod_sql_cr_view:
+	MET_sql_cr_view (node);
+	GEN_release();
+	return NULL;
+****/
+
+	case nod_sql_al_table:
+		MET_sql_alter_table(node->syn_arg[0], node->syn_arg[1]);
+		return NULL;
+	}
+
+/* If there are any variables, make up a context now */
+
+	output_stack = right = left = NULL;
+
+	if (QLI_variables) {
+		context = (CTX) ALLOCD(type_ctx);
+		context->ctx_type = CTX_VARIABLE;
+		context->ctx_variable = QLI_variables;
+		LLS_PUSH(context, &right);
+		LLS_PUSH(context, &left);
+	}
+
+	if (!(expanded = expand_statement(node, right, left)))
+		return NULL;
+
+	while (output_stack) {
+		output = (NOD) LLS_POP(&output_stack);
+		output->nod_arg[e_out_statement] = expanded;
+		expanded = output;
+	}
+
+	return expanded;
+}
+
+
+static int compare_names( NAM name, SYM symbol)
+{
+/**************************************
+ *
+ *	c o m p a r e _ n a m e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare a name node to a symbol.  If they are equal, return TRUE.
+ *
+ **************************************/
+	USHORT l;
+	TEXT *p, *q;
+
+	if (!symbol || (l = name->nam_length) != symbol->sym_length)
+		return FALSE;
+
+	p = symbol->sym_string;
+	q = name->nam_string;
+
+	if (l)
+		do
+			if (*p++ != *q++)
+				return FALSE;
+		while (--l);
+
+	return TRUE;
+}
+
+
+static int compare_symbols( SYM symbol1, SYM symbol2)
+{
+/**************************************
+ *
+ *	c o m p a r e _ s y m b o l s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two symbols (either may be 0).
+ *
+ **************************************/
+	USHORT l;
+	TEXT *p, *q;
+
+	if (!symbol1 || !symbol2)
+		return FALSE;
+
+	if ((l = symbol1->sym_length) != symbol2->sym_length)
+		return FALSE;
+
+	p = symbol1->sym_string;
+	q = symbol2->sym_string;
+
+	if (l)
+		do
+			if (*p++ != *q++)
+				return FALSE;
+		while (--l);
+
+	return TRUE;
+}
+
+
+static SYM copy_symbol( SYM old)
+{
+/**************************************
+ *
+ *	c o p y _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a symbol into the permanent pool.
+ *
+ **************************************/
+	SYM new;
+
+	new = (SYM) ALLOCPV(type_sym, old->sym_length);
+	new->sym_length = old->sym_length;
+	new->sym_type = old->sym_type;
+	new->sym_string = new->sym_name;
+	strcpy(new->sym_name, old->sym_name);
+
+	return new;
+}
+
+
+static void declare_global( FLD variable, SYN field_node)
+{
+/**************************************
+ *
+ *	d e c l a r e _ g l o b a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a variable block into the permanent pool as a field.  
+ *	Resolve BASED_ON references.  
+ *	Allocate all strings off the field block.
+ *
+ **************************************/
+	TEXT *p, *q;
+	USHORT l;
+	FLD new, field, *ptr;
+
+/* If it's based_on, flesh it out & check datatype.  */
+
+	if (field_node) {
+		if (field_node->syn_type == nod_index)
+			field_node = field_node->syn_arg[s_idx_field];
+		resolve_really(variable, field_node);
+		if (variable->fld_dtype == dtype_blob)
+			IBERROR(137);		/* Msg137 variables may not be based on blob fields. */
+	}
+
+/* Get rid of any other variables of the same name */
+
+	for (ptr = &QLI_variables; field = *ptr; ptr = &field->fld_next)
+		if (!strcmp
+			(field->fld_name->sym_string, variable->fld_name->sym_string)) {
+			*ptr = field->fld_next;
+			ALLQ_release(field->fld_name);
+			if (field->fld_query_name)
+				ALLQ_release(field->fld_query_name);
+			ALLQ_release(field);
+			break;
+		}
+
+/* Next, copy temporary field block into permanent pool.  Fold edit_string
+   query_header into main block to save space and complexity. */
+
+	l = variable->fld_length;
+	if (q = variable->fld_edit_string)
+		l += strlen(q);
+	if (q = variable->fld_query_header)
+		l += strlen(q);
+
+	new = (FLD) ALLOCPV(type_fld, l);
+	new->fld_name = copy_symbol(variable->fld_name);
+	new->fld_dtype = variable->fld_dtype;
+	new->fld_length = variable->fld_length;
+	new->fld_scale = variable->fld_scale;
+	new->fld_sub_type = variable->fld_sub_type;
+	new->fld_sub_type_missing = variable->fld_sub_type_missing;
+	new->fld_flags = variable->fld_flags | FLD_missing;
+
+/* Copy query_name, edit string, query header */
+
+	p = (TEXT *) new->fld_data + new->fld_length;
+	if (q = variable->fld_edit_string) {
+		new->fld_edit_string = p;
+		while (*p++ = *q++);
+	}
+	if (variable->fld_query_name)
+		new->fld_query_name = copy_symbol(variable->fld_query_name);
+	if (q = variable->fld_query_header) {
+		new->fld_query_header = p;
+		while (*p++ = *q++);
+	}
+
+/* Link new variable into variable chain */
+
+	new->fld_next = QLI_variables;
+	QLI_variables = new;
+}
+
+
+static SYN decompile_field( FLD field, CTX context)
+{
+/**************************************
+ *
+ *	d e c o m p i l e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Take a perfectly good, completely compiled
+ *	field block and regress to a SYN node and
+ *	and a NAM block.  
+ *	(Needed to support SQL idiocies)
+ *
+ **************************************/
+	SYN node;
+	NAM name;
+	int args;
+
+	args = (context) ? 2 : 1;
+
+	node = (SYN) ALLOCDV(type_syn, args);
+	node->syn_type = nod_field;
+	node->syn_count = args;
+
+	name = decompile_symbol(field->fld_name);
+	node->syn_arg[0] = (SYN) name;
+
+	if (context) {
+		node->syn_arg[1] = node->syn_arg[0];
+		if (context->ctx_symbol)
+			name = decompile_symbol(context->ctx_symbol);
+		else
+			name = decompile_symbol(context->ctx_relation->rel_symbol);
+		node->syn_arg[0] = (SYN) name;
+	}
+
+	return node;
+}
+
+
+static NAM decompile_symbol( SYM symbol)
+{
+/**************************************
+ *
+ *	d e c o m p i l e _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Turn a symbol back into a name
+ *	(Needed to support SQL idiocies)
+ *
+ **************************************/
+	NAM name;
+	int l;
+	TEXT *p, *q, c;
+
+	l = symbol->sym_length;
+
+	name = (NAM) ALLOCDV(type_nam, l);
+	name->nam_length = l;
+	name->nam_symbol = symbol;
+
+	p = name->nam_string;
+	q = symbol->sym_string;
+
+	if (l)
+		do {
+			c = *q++;
+			*p++ = UPPER(c);
+
+#ifdef JPN_SJIS
+
+			/* Do not upcase second byte of a sjis kanji character */
+
+			if ((KANJI1(c)) && (l > 1)) {
+				*p++ = *q++;
+				--l;
+			}
+
+#endif
+
+		} while (--l);
+
+	return name;
+}
+
+
+static NOD expand_assignment( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ a s s i g n m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand an assigment statement.  All in all, not too tough.
+ *
+ **************************************/
+	NOD node, from, to;
+	FLD field;
+	TEXT s[80];
+
+	node = MAKE_NODE(input->syn_type, e_asn_count);
+	node->nod_arg[e_asn_to] = to =
+		expand_expression(input->syn_arg[s_asn_to], left);
+	node->nod_arg[e_asn_from] = from =
+		expand_expression(input->syn_arg[s_asn_from], right);
+
+	if (to->nod_type == nod_field || to->nod_type == nod_variable) {
+		field = (FLD) to->nod_arg[e_fld_field];
+		if (field->fld_flags & FLD_computed) {
+			ERRQ_print_error(138, field->fld_name->sym_string, NULL, NULL,
+							 NULL, NULL);	/* Msg138 can't do assignment to computed field */
+		}
+		if (from->nod_type == nod_prompt)
+			from->nod_arg[e_prm_field] = to->nod_arg[e_fld_field];
+		if (field->fld_validation)
+			node->nod_arg[e_asn_valid] =
+				expand_expression(field->fld_validation, left);
+	}
+
+	if (!node->nod_arg[e_asn_valid])
+		--node->nod_count;
+
+	return node;
+}
+
+
+static NOD expand_any( SYN input, LLS stack)
+{
+/**************************************
+ *
+ *	e x p a n d _ a n y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand an any expression.  This would be trivial were it not
+ *	for a funny SQL case when an expression needs to be checked
+ *	for existence.
+ *
+ **************************************/
+	SYN sub;
+	NOD rse, node, negation, boolean;
+
+	node = MAKE_NODE(input->syn_type, e_any_count);
+	node->nod_count = 0;
+	node->nod_arg[e_any_rse] = rse = expand_rse(input->syn_arg[0], &stack);
+
+	if (input->syn_count >= 2 && input->syn_arg[1]) {
+		boolean = MAKE_NODE(nod_missing, 1);
+		boolean->nod_arg[0] = expand_expression(input->syn_arg[1], stack);
+		negation = MAKE_NODE(nod_not, 1);
+		negation->nod_arg[0] = boolean;
+		rse->nod_arg[e_rse_boolean] =
+			make_and(rse->nod_arg[e_rse_boolean], negation);
+	}
+
+	return node;
+}
+
+
+static NOD expand_boolean( SYN input, LLS stack)
+{
+/**************************************
+ *
+ *	e x p a n d _ b o o l e a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a statement.
+ *
+ **************************************/
+	NOD node, *ptr, value;
+	FLD field;
+	SSHORT i;
+
+/* Make node and process arguments */
+
+	node = MAKE_NODE(input->syn_type, input->syn_count);
+	ptr = node->nod_arg;
+	*ptr++ = value = expand_expression(input->syn_arg[0], stack);
+
+	for (i = 1; i < input->syn_count; i++, ptr++)
+		if (!(*ptr = possible_literal(input->syn_arg[i], stack, TRUE)))
+			*ptr = expand_expression(input->syn_arg[i], stack);
+
+/* Try to match any prompts against fields to determine prompt length */
+
+	if (value->nod_type != nod_field)
+		return node;
+
+	field = (FLD) value->nod_arg[e_fld_field];
+	ptr = &node->nod_arg[1];
+
+	for (i = 1; i < node->nod_count; i++, ptr++)
+		if ((*ptr)->nod_type == nod_prompt)
+			(*ptr)->nod_arg[e_prm_field] = (NOD) field;
+
+	return node;
+}
+
+
+static void expand_control_break( BRK * ptr, LLS right)
+{
+/**************************************
+ *
+ *	e x p a n d _ c o n t r o l _ b r e a k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Work on a report writer control break.  This is called recursively
+ *	to handle multiple breaks.
+ *
+ **************************************/
+	BRK control, list;
+
+	list = NULL;
+
+	while (control = *ptr) {
+		*ptr = control->brk_next;
+		control->brk_next = list;
+		list = control;
+		if (control->brk_field)
+			control->brk_field =
+				(SYN) expand_expression(control->brk_field, right);
+		if (control->brk_line)
+			control->brk_line =
+				(SYN) expand_print_list(control->brk_line, right);
+	}
+
+	*ptr = list;
+}
+
+
+static void expand_distinct( NOD rse, NOD node)
+{
+/**************************************
+ *
+ *	e x p a n d _ d i s t i n c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	We have run into a distinct count.  Add a reduced
+ *	clause to it's parent.
+ *
+ **************************************/
+	NOD list;
+	LLS stack;
+
+	if (rse->nod_arg[e_rse_reduced])
+		return;
+
+	stack = NULL;
+	LLS_PUSH(node, &stack);
+	LLS_PUSH(0, &stack);
+	rse->nod_arg[e_rse_reduced] = list = make_list(stack);
+	list->nod_count = 1;
+}
+
+
+static void expand_edit_string( NOD node, ITM item)
+{
+/**************************************
+ *
+ *	e x p a n d _ e d i t _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Default edit_string and query_header.
+ *
+ **************************************/
+	FLD field;
+	FUN function;
+	MAP map;
+
+	switch (node->nod_type) {
+	case nod_min:
+	case nod_rpt_min:
+	case nod_agg_min:
+		if (!item->itm_query_header)
+			item->itm_query_header = "MIN";
+
+	case nod_total:
+	case nod_running_total:
+	case nod_rpt_total:
+	case nod_agg_total:
+		if (!item->itm_query_header)
+			item->itm_query_header = "TOTAL";
+
+	case nod_average:
+	case nod_rpt_average:
+	case nod_agg_average:
+		if (!item->itm_query_header)
+			item->itm_query_header = "AVG";
+
+	case nod_max:
+	case nod_rpt_max:
+	case nod_agg_max:
+		if (!item->itm_query_header)
+			item->itm_query_header = "MAX";
+		expand_edit_string(node->nod_arg[e_stt_value], item);
+		return;
+
+	case nod_count:
+	case nod_running_count:
+	case nod_rpt_count:
+	case nod_agg_count:
+		if (!item->itm_edit_string)
+			item->itm_edit_string = "ZZZ,ZZZ,ZZ9";
+		if (!item->itm_query_header)
+			item->itm_query_header = "COUNT";
+		break;
+
+	case nod_map:
+		map = (MAP) node->nod_arg[e_map_map];
+		expand_edit_string(map->map_node, item);
+		return;
+
+	case nod_field:
+	case nod_variable:
+		break;
+
+	case nod_function:
+		function = (FUN) node->nod_arg[e_fun_function];
+		if (!item->itm_query_header)
+			item->itm_query_header = function->fun_symbol->sym_string;
+		return;
+
+	default:
+		return;
+	}
+
+/* Handle fields */
+
+	field = (FLD) node->nod_arg[e_fld_field];
+
+	if (!item->itm_edit_string)
+		item->itm_edit_string = field->fld_edit_string;
+
+	if (!item->itm_query_header)
+		if (!(item->itm_query_header = field->fld_query_header))
+			item->itm_query_header = field->fld_name->sym_string;
+}
+
+
+static NOD expand_erase( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ e r a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a statement.
+ *
+ **************************************/
+	NOD node, loop;
+	LLS contexts;
+	CTX context;
+	USHORT count, i;
+
+	loop = NULL;
+	count = 0;
+
+/* If there is an rse, make up a FOR loop */
+
+	if (input->syn_arg[s_era_rse]) {
+		loop = MAKE_NODE(nod_for, e_for_count);
+		loop->nod_arg[e_for_rse] = expand_rse(input->syn_arg[s_era_rse],
+											  &right);
+	}
+
+/* Loop thru contexts counting them. */
+
+	for (contexts = right; contexts; contexts = contexts->lls_next) {
+		context = (CTX) contexts->lls_object;
+		if (context->ctx_variable)
+			continue;
+		count++;
+		if (context->ctx_rse)
+			break;
+	}
+
+	if (count == 0)
+		IBERROR(139);			/* Msg139 no context for ERASE */
+	else if (count > 1)
+		IBERROR(140);			/* Msg140 can't erase from a join */
+
+/* Make up node big enough to hold fixed fields plus all contexts */
+
+	node = MAKE_NODE(nod_erase, e_era_count);
+	node->nod_arg[e_era_context] = (NOD) context;
+
+	if (!loop)
+		return node;
+
+	loop->nod_arg[e_for_statement] = node;
+
+	return loop;
+}
+
+
+static NOD expand_expression( SYN input, LLS stack)
+{
+/**************************************
+ *
+ *	e x p a n d _ e x p r e s s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand an expression.
+ *
+ **************************************/
+	NOD *ptr, node;
+	STR string;
+	CON constant;
+	CTX context;
+	NAM name;
+	SYN value;
+	SCHAR s[80];
+	SSHORT i;
+
+	switch (input->syn_type) {
+	case nod_field:
+		return expand_field(input, stack, 0);
+
+	case nod_null:
+	case nod_user_name:
+		return MAKE_NODE(input->syn_type, 0);
+
+	case nod_any:
+	case nod_unique:
+		return expand_any(input, stack);
+
+	case nod_max:
+	case nod_min:
+	case nod_count:
+	case nod_average:
+	case nod_total:
+	case nod_from:
+
+	case nod_rpt_max:
+	case nod_rpt_min:
+	case nod_rpt_count:
+	case nod_rpt_average:
+	case nod_rpt_total:
+
+	case nod_running_total:
+	case nod_running_count:
+		node = MAKE_NODE(input->syn_type, e_stt_count);
+		if (value = input->syn_arg[s_stt_rse])
+			node->nod_arg[e_stt_rse] = expand_rse(value, &stack);
+		if (value = input->syn_arg[s_stt_value])
+			node->nod_arg[e_stt_value] = expand_expression(value, stack);
+		if (value = input->syn_arg[s_stt_default])
+			node->nod_arg[e_stt_default] = expand_expression(value, stack);
+		if (input->syn_arg[s_prt_distinct] && node->nod_arg[e_stt_rse]
+			&& node->nod_arg[e_stt_value])
+			expand_distinct(node->nod_arg[e_stt_rse],
+							node->nod_arg[e_stt_value]);
+/* count2 next 2 lines go */
+		if (input->syn_type == nod_count)
+			node->nod_arg[e_stt_value] = 0;
+		return node;
+
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_count:
+	case nod_agg_average:
+	case nod_agg_total:
+		node = MAKE_NODE(input->syn_type, e_stt_count);
+		for (; stack; stack = stack->lls_next) {
+			context = (CTX) stack->lls_object;
+			if (context->ctx_type == CTX_AGGREGATE)
+				break;
+		}
+		if (!stack)
+			ERRQ_print_error(454, NULL, NULL, NULL, NULL, NULL);	/* could not resolve context for aggregate */
+/* count2
+	if (value = input->syn_arg [s_stt_value])
+	    {
+	    node->nod_arg [e_stt_value] = expand_expression (value, stack->lls_next);
+	    if (input->syn_arg [s_prt_distinct])
+		expand_distinct (context->ctx_sub_rse, node->nod_arg [e_stt_value]);
+	    }
+*/
+		if ((value = input->syn_arg[s_stt_value]) &&
+			(input->syn_arg[s_prt_distinct]
+			 || (input->syn_type != nod_agg_count))) {
+			node->nod_arg[e_stt_value] =
+				expand_expression(value, stack->lls_next);
+			if (input->syn_arg[s_prt_distinct]
+				|| (input->syn_type == nod_agg_count && context->ctx_sub_rse))
+				expand_distinct(context->ctx_sub_rse,
+								node->nod_arg[e_stt_value]);
+		}
+		return post_map(node, context);
+
+	case nod_index:
+		value = input->syn_arg[s_idx_field];
+		if (value->syn_type != nod_field)
+			IBERROR(466);		/* Msg466 Only fields may be subscripted */
+		return expand_field(value, stack, input->syn_arg[s_idx_subs]);
+
+	case nod_list:
+	case nod_upcase:
+
+	case nod_and:
+	case nod_or:
+	case nod_not:
+	case nod_missing:
+	case nod_add:
+	case nod_subtract:
+	case nod_multiply:
+	case nod_divide:
+	case nod_negate:
+	case nod_concatenate:
+	case nod_substr:
+		break;
+
+	case nod_eql:
+	case nod_neq:
+	case nod_gtr:
+	case nod_geq:
+	case nod_leq:
+	case nod_lss:
+	case nod_between:
+	case nod_matches:
+	case nod_sleuth:
+	case nod_like:
+	case nod_starts:
+	case nod_containing:
+		return expand_boolean(input, stack);
+
+	case nod_edit_blob:
+		node = MAKE_NODE(input->syn_type, e_edt_count);
+		node->nod_count = 0;
+		if (input->syn_arg[0]) {
+			node->nod_count = 1;
+			node->nod_arg[0] = expand_expression(input->syn_arg[0], stack);
+		}
+		return node;
+
+	case nod_format:
+		node = MAKE_NODE(input->syn_type, e_fmt_count);
+		node->nod_count = 1;
+		node->nod_arg[e_fmt_value] =
+			expand_expression(input->syn_arg[s_fmt_value], stack);
+		node->nod_arg[e_fmt_edit] = (NOD) input->syn_arg[s_fmt_edit];
+		return node;
+
+	case nod_function:
+		return expand_function(input, stack);
+
+	case nod_constant:
+		node = MAKE_NODE(input->syn_type, 0);
+		constant = (CON) input->syn_arg[0];
+		node->nod_desc = constant->con_desc;
+		return node;
+
+	case nod_prompt:
+		node = MAKE_NODE(input->syn_type, e_prm_count);
+		node->nod_arg[e_prm_prompt] = (NOD) input->syn_arg[0];
+		return node;
+
+	case nod_star:
+		name = (NAM) input->syn_arg[0];
+		ERRQ_print_error(141, name->nam_string, NULL, NULL, NULL, NULL);	/* Msg141 can't be used when a single element is required */
+
+	default:
+		BUGCHECK(135);			/* Msg135 expand_expression: not yet implemented */
+	}
+
+	node = MAKE_NODE(input->syn_type, input->syn_count);
+	ptr = node->nod_arg;
+
+	for (i = 0; i < input->syn_count; i++)
+		*ptr++ = expand_expression(input->syn_arg[i], stack);
+
+	return node;
+}
+
+
+static NOD expand_field( SYN input, LLS stack, SYN subs)
+{
+/**************************************
+ *
+ *	e x p a n d _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a field reference.  Error if it can't be resolved.
+ *	If the field belongs to a group by SQL expression, make
+ *	sure it goes there.
+ *
+ **************************************/
+	NOD node;
+	FLD field;
+	CTX context, parent, stream_context, *ptr, *end;
+	NAM name;
+	USHORT i, l;
+	TEXT *p, *q, s[160];
+	LLS save_stack;
+
+	if (!(field = resolve(input, stack, &context)) ||
+		(subs && (context->ctx_type == CTX_FORM || context->ctx_variable))) {
+		p = s;
+		for (i = 0; i < input->syn_count; i++) {
+			name = (NAM) input->syn_arg[i];
+			q = name->nam_string;
+			if (l = name->nam_length)
+				do
+					*p++ = *q++;
+				while (--l);
+			*p++ = '.';
+		}
+		*--p = 0;
+		if (field)
+			ERRQ_print_error(467, s, NULL, NULL, NULL, NULL);	/* Msg467 "%s" is not a field and so may not be subscripted */
+		else
+			ERRQ_print_error(142, s, NULL, NULL, NULL, NULL);	/* Msg142 "%s" is undefined or used out of context */
+	}
+
+	if (context->ctx_type == CTX_FORM)
+		return make_form_field(context->ctx_form, field);
+
+	node = make_field(field, context);
+	if (subs)
+		node->nod_arg[e_fld_subs] = expand_expression(subs, stack);
+
+	for (save_stack = stack; stack; stack = stack->lls_next) {
+		parent = (CTX) stack->lls_object;
+		if (parent->ctx_type == CTX_AGGREGATE)
+			break;
+	}
+
+	if (!parent)
+		return node;
+	else if (context->ctx_parent != parent) {
+		/* The parent context may be hidden because we are part of
+		   a stream context.  Check out this possibility. */
+
+		for (; save_stack; save_stack = save_stack->lls_next) {
+			stream_context = (CTX) save_stack->lls_object;
+			if (stream_context->ctx_type != CTX_STREAM ||
+				stream_context->ctx_stream->nod_type != nod_rse)
+				continue;
+
+			ptr = stream_context->ctx_stream->nod_arg + e_rse_count;
+			end = ptr + stream_context->ctx_stream->nod_count;
+			for (; ptr < end; ptr++)
+				if (*ptr == context)
+					break;
+			if (ptr < end && stream_context->ctx_parent == parent)
+				break;
+		}
+
+		if (!save_stack)
+			return node;
+	}
+
+	return post_map(node, parent);
+}
+
+
+static NOD expand_for( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ f o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a statement.
+ *
+ **************************************/
+	NOD node;
+
+	node = MAKE_NODE(input->syn_type, e_for_count);
+	node->nod_arg[e_for_rse] = expand_rse(input->syn_arg[s_for_rse], &right);
+	node->nod_arg[e_for_statement] =
+		expand_statement(input->syn_arg[s_for_statement], right, left);
+
+	return node;
+}
+
+
+static FRM expand_form( SYN input, REL relation)
+{
+/**************************************
+ *
+ *	e x p a n d _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup form name.  If there isn't a form name and a relation
+ *	has been given, use the relation name.
+ *
+ **************************************/
+	DBB database;
+	NAM name;
+	FRM form;
+	TEXT *string;
+
+/* Figure out form name */
+
+	if (input && (name = (NAM) input->syn_arg[s_frm_form]))
+		string = name->nam_string;
+	else if (relation)
+		string = relation->rel_symbol->sym_string;
+	else
+		IBERROR(143);			/* Msg143 no default form name */
+
+/* Now figure out which database to look in */
+
+	database = NULL;
+
+	if (input)
+		database = (DBB) input->syn_arg[s_frm_database];
+
+	if (!database && relation)
+		database = relation->rel_database;
+
+/* Look for form either in explicit or any database */
+
+	if (database) {
+		if (form = FORM_lookup_form(database, string))
+			return form;
+	}
+	else {
+		for (database = QLI_databases; database;
+			 database = database->dbb_next) if (form =
+												FORM_lookup_form(database,
+																 string))
+					return form;
+		ERRQ_print_error(144, string, NULL, NULL, NULL, NULL);	/* Msg144 No database for form */
+	}
+
+/* Form doesn't exist, try to make up a default */
+
+	if (relation &&
+		!(input && input->syn_arg[s_frm_form]) &&
+		(form = FORM_default_form(database, string)))
+		return form;
+
+	ERRQ_print_error(145, string, database->dbb_filename, NULL, NULL, NULL);	/* Msg145 form is not defined in database */
+
+}
+
+
+static NOD expand_form_for( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ f o r m _ f o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a form invocation.  This involve augmenting both the
+ *	right and left context stacks.
+ *
+ **************************************/
+	SYN form_name;
+	SYM symbol;
+	CTX context, secondary;
+	FRM form;
+	NOD node;
+	NAM ctx_name;
+
+	form_name = input->syn_arg[s_ffr_form];
+	context = (CTX) ALLOCD(type_ctx);
+	context->ctx_type = CTX_FORM;
+	context->ctx_form = form = expand_form(form_name, 0);
+	LLS_PUSH(context, &left);
+
+	if (ctx_name = (NAM) form_name->syn_arg[s_frm_context]) {
+		context->ctx_symbol = symbol = (SYM) ALLOCDV(type_sym, 0);
+		symbol->sym_string = ctx_name->nam_string;
+		symbol->sym_length = ctx_name->nam_length;
+		symbol->sym_type = SYM_form;
+	}
+
+	secondary = (CTX) ALLOCD(type_ctx);
+	secondary->ctx_type = CTX_FORM;
+	secondary->ctx_primary = context;
+	LLS_PUSH(secondary, &right);
+
+	node = MAKE_NODE(input->syn_type, e_ffr_count);
+	node->nod_arg[e_ffr_form] = (NOD) form;
+	node->nod_arg[e_ffr_statement] =
+		expand_statement(input->syn_arg[s_ffr_statement], right, left);
+
+	return node;
+}
+
+
+static NOD expand_form_update( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ f o r m _ u p d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a "form update" statement.
+ *
+ **************************************/
+	FRM form;
+	FFL field;
+	LLS stack;
+	CTX context;
+	NAM name;
+	SYN list, *ptr, *end;
+	NOD node;
+
+/* Find form context.  If there isn't one, punt */
+
+	for (stack = left; stack; stack = stack->lls_next) {
+		context = (CTX) stack->lls_object;
+		if (context->ctx_type == CTX_FORM)
+			break;
+	}
+
+	if (!stack)
+		IBERROR(146);			/* Msg146 no context for form ACCEPT statement */
+
+	form = context->ctx_form;
+	stack = NULL;
+
+	if (list = input->syn_arg[0])
+		for (ptr = list->syn_arg, end = ptr + list->syn_count; ptr < end;
+			 ptr++) {
+			name = (NAM) * ptr;
+			if (!(field = FORM_lookup_field(form, name->nam_string)))
+				ERRQ_print_error(147, name->nam_string, form->frm_name, NULL,
+								 NULL, NULL);	/* Msg147 field is not defined in form */
+			LLS_PUSH(field, &stack);
+		}
+
+	node = MAKE_NODE(input->syn_type, e_fup_count);
+	node->nod_arg[e_fup_form] = (NOD) form;
+
+	if (stack)
+		node->nod_arg[e_fup_fields] = make_list(stack);
+
+	if (input->syn_arg[1])
+		node->nod_arg[e_fup_tag] =
+			expand_expression(input->syn_arg[1], right);
+
+	return node;
+}
+
+
+static NOD expand_function( SYN input, LLS stack)
+{
+/**************************************
+ *
+ *	e x p a n d _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a functionn reference.
+ *	For a field or expression reference
+ *	tied to a relation in a database
+ *	use only that database.  For a variable
+ *      reference, use any database that matches.
+ *
+ **************************************/
+	NOD node;
+	SYM symbol;
+	FUN function;
+	CTX context;
+	DBB database;
+
+	node = MAKE_NODE(input->syn_type, e_fun_count);
+	node->nod_count = 1;
+	if (stack && (context = (CTX) stack->lls_object)
+		&& (context->ctx_type == CTX_RELATION)) {
+		if (context->ctx_primary)
+			context = context->ctx_primary;
+		database = context->ctx_relation->rel_database;
+		for (symbol = (SYM) input->syn_arg[s_fun_function]; symbol;
+			 symbol =
+			 symbol->sym_homonym) if (symbol->sym_type == SYM_function) {
+				function = (FUN) symbol->sym_object;
+				if (function->fun_database == database)
+					break;
+			}
+	}
+	else
+		for (database = QLI_databases; database;
+			 database = database->dbb_next) {
+			for (symbol = (SYM) input->syn_arg[s_fun_function]; symbol;
+				 symbol = symbol->sym_homonym)
+				if (symbol->sym_type == SYM_function) {
+					function = (FUN) symbol->sym_object;
+					if (function->fun_database == database)
+						break;
+				}
+			if (symbol)
+				break;
+		}
+
+
+	if (!symbol) {
+		symbol = (SYM) input->syn_arg[s_fun_function];
+		ERRQ_error(412, symbol->sym_string, database->dbb_filename, NULL,
+				   NULL, NULL);
+	}
+
+	node->nod_arg[e_fun_function] = (NOD) function;
+
+	node->nod_arg[e_fun_args] =
+		expand_expression(input->syn_arg[s_fun_args], stack);
+
+	return node;
+}
+
+
+static NOD expand_group_by( SYN input, LLS stack, CTX context)
+{
+/**************************************
+ *
+ *	e x p a n d _ g r o u p _ b y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a GROUP BY clause.
+ *
+ **************************************/
+	SYN *ptr, *end;
+	NOD node, *ptr2;
+	USHORT i;
+
+	node = MAKE_NODE(input->syn_type, input->syn_count);
+	ptr2 = node->nod_arg;
+
+	for (ptr = input->syn_arg, end = ptr + input->syn_count; ptr < end;
+		 ptr++, ptr2++) {
+		*ptr2 = expand_expression(*ptr, stack);
+		post_map(*ptr2, context);
+	}
+
+	return node;
+}
+
+
+static NOD expand_menu( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand menu statement.
+ *
+ **************************************/
+	NOD node;
+	SYN sub, *ptr;
+
+	node = MAKE_NODE(input->syn_type, e_men_count);
+	node->nod_arg[e_men_string] =
+		expand_expression(input->syn_arg[s_men_string], 0);
+	node->nod_arg[e_men_labels] =
+		expand_expression(input->syn_arg[s_men_labels], 0);
+	node->nod_arg[e_men_statements] =
+		expand_statement(input->syn_arg[s_men_statements], left, right);
+
+	return node;
+}
+
+
+static NOD expand_modify( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ m o d i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a statement.
+ *
+ **************************************/
+	NOD node, loop, assignment, prompt, list, *ptr;
+	SYN value, syn_list, *syn_ptr;
+	FLD field;
+	LLS contexts;
+	CTX new_context, context;
+	USHORT count, i;
+
+	loop = NULL;
+	count = 0;
+
+/* If there is an rse, make up a FOR loop */
+
+	if (input->syn_arg[s_mod_rse]) {
+		loop = MAKE_NODE(nod_for, e_for_count);
+		loop->nod_arg[e_for_rse] = expand_rse(input->syn_arg[s_mod_rse],
+											  &right);
+	}
+
+/* Loop thru contexts counting them. */
+
+	for (contexts = right; contexts; contexts = contexts->lls_next) {
+		context = (CTX) contexts->lls_object;
+		if (context->ctx_variable)
+			continue;
+		count++;
+		if (context->ctx_rse)
+			break;
+	}
+
+	if (!count)
+		IBERROR(148);			/* Msg148 no context for modify */
+
+/* Make up node big enough to hold fixed fields plus all contexts */
+
+	node = MAKE_NODE(nod_modify, (int) e_mod_count + count);
+	node->nod_count = count;
+	ptr = &node->nod_arg[e_mod_count];
+
+/* Loop thru contexts augmenting left context */
+
+	for (contexts = right; contexts; contexts = contexts->lls_next) {
+		context = (CTX) contexts->lls_object;
+		if (context->ctx_variable)
+			continue;
+		new_context = (CTX) ALLOCD(type_ctx);
+		*ptr++ = (NOD) new_context;
+		new_context->ctx_type = CTX_RELATION;
+		new_context->ctx_source = context;
+		new_context->ctx_symbol = context->ctx_symbol;
+		new_context->ctx_relation = context->ctx_relation;
+		LLS_PUSH(new_context, &left);
+		if (context->ctx_rse)
+			break;
+	}
+
+/* Process sub-statement, list of fields, or, sigh, none of the above */
+
+	if (input->syn_arg[s_mod_statement])
+		node->nod_arg[e_mod_statement] =
+			expand_statement(input->syn_arg[s_mod_statement], right, left);
+	else if ((value = input->syn_arg[s_mod_form]) ||
+			 (QLI_form_mode && !input->syn_arg[s_mod_list]))
+		node->nod_arg[e_mod_statement] = make_form_body(right, left, value);
+	else if (syn_list = input->syn_arg[s_mod_list]) {
+		node->nod_arg[e_mod_statement] = list =
+			MAKE_NODE(nod_list, syn_list->syn_count);
+		ptr = list->nod_arg;
+		syn_ptr = syn_list->syn_arg;
+		for (i = 0; i < syn_list->syn_count; i++, syn_ptr++)
+			*ptr++ =
+				make_assignment(expand_expression(*syn_ptr, left), *syn_ptr,
+								right);
+	}
+	else
+		IBERROR(149);			/* Msg149 field list required for modify */
+
+	if (!loop)
+		return node;
+
+	loop->nod_arg[e_for_statement] = node;
+
+	return loop;
+}
+
+
+static NOD expand_output( SYN input, LLS right, PRT * print)
+{
+/**************************************
+ *
+ *	e x p a n d _ o u t p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle the presence (or absence) of an output specification clause.
+ *
+ **************************************/
+	NOD output, node;
+
+	if (print)
+		*print = (PRT) ALLOCD(type_prt);
+
+	if (!input)
+		return NULL;
+
+	output = MAKE_NODE(nod_output, e_out_count);
+	LLS_PUSH(output, &output_stack);
+
+	if (!(node = possible_literal(input->syn_arg[s_out_file], right, FALSE)))
+		node = expand_expression(input->syn_arg[s_out_file], right);
+
+	output->nod_arg[e_out_file] = node;
+	output->nod_arg[e_out_pipe] = (NOD) input->syn_arg[s_out_pipe];
+
+	if (print)
+		output->nod_arg[e_out_print] = (NOD) * print;
+
+	return output;
+}
+
+
+static NOD expand_print( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a statement.
+ *
+ **************************************/
+	SYN syn_list, syn_item, syn_rse, *sub, *end;
+	ITM item;
+	NOD node, loop, list, *ptr, rse;
+	NOD group_list, reduced;
+	LLS items, new_right;
+	CTX context;
+	REL relation;
+	FLD field;
+	PRT print;
+	USHORT i, count;
+	UCHAR valid;
+
+	syn_rse = input->syn_arg[s_prt_rse];
+
+/* Check to see if form mode is appropriate */
+
+	if (input->syn_arg[s_prt_form] ||
+		(QLI_form_mode &&
+		 !input->syn_arg[s_prt_list] &&
+		 !input->syn_arg[s_prt_output] &&
+		 !(syn_rse && syn_rse->syn_count != 1)))
+			return expand_print_form(input, right, left);
+
+	loop = NULL;
+	items = NULL;
+	rse = NULL;
+	count = 0;
+	new_right = right;
+
+/* If an output file or pipe is present, make up an output node */
+
+	expand_output(input->syn_arg[s_prt_output], right, &print);
+
+/* If a record select expression is present, expand it and build a FOR
+   statement. */
+
+	if (syn_rse) {
+		loop = MAKE_NODE(nod_for, e_for_count);
+		loop->nod_arg[e_for_rse] = rse = expand_rse(syn_rse, &new_right);
+	}
+
+/* If there were any print items, process them now.  Look first for things that
+   look like items, but are actually lists.  If there aren't items of any kind,
+   pick up all fields in the relations from the record selection expression. */
+
+	if (syn_list = input->syn_arg[s_prt_list])
+		for (sub = syn_list->syn_arg, end = sub + syn_list->syn_count;
+			 sub < end; sub++) {
+			if (((*sub)->syn_type == nod_print_item)
+				&& (syn_item = (*sub)->syn_arg[s_itm_value])
+				&& (syn_item->syn_type == nod_star))
+				count += generate_items(syn_item, new_right, &items, rse);
+			else {
+				LLS_PUSH(expand_print_item(*sub, new_right), &items);
+				count++;
+			}
+		}
+	else if (syn_rse && (syn_list = syn_rse->syn_arg[s_rse_reduced]))
+		for (sub = syn_list->syn_arg, end = sub + syn_list->syn_count;
+			 sub < end; sub += 2) {
+			item = (ITM) ALLOCD(type_itm);
+			item->itm_type = item_value;
+			item->itm_value = expand_expression(*sub, new_right);
+			expand_edit_string(item->itm_value, item);
+			LLS_PUSH(item, &items);
+			count++;
+		}
+	else
+		for (; new_right; new_right = new_right->lls_next) {
+			context = (CTX) new_right->lls_object;
+			relation = context->ctx_relation;
+			if (!relation || context->ctx_sub_rse)
+				continue;
+			for (field = relation->rel_fields; field; field = field->fld_next) {
+				if (
+					(field->fld_system_flag
+					 && field->fld_system_flag != relation->rel_system_flag)
+					|| field->fld_flags & FLD_array)
+					continue;
+				node = make_field(field, context);
+				if (rse && rse->nod_arg[e_rse_group_by] &&
+					invalid_nod_field(node, rse->nod_arg[e_rse_group_by]))
+					continue;
+				item = (ITM) ALLOCD(type_itm);
+				item->itm_type = item_value;
+				item->itm_value = make_field(field, context);
+				expand_edit_string(item->itm_value, item);
+				LLS_PUSH(item, &items);
+				count++;
+			}
+			if (rse = context->ctx_rse)
+				break;
+		}
+
+/* If no print object showed up, complain! */
+
+	if (!count)
+		IBERROR(150);			/* Msg150 No items in print list */
+
+/* Build new print statement.  Unlike the syntax node, the print statement
+   has only print items in it. */
+
+	node = MAKE_NODE(input->syn_type, e_prt_count);
+	node->nod_arg[e_prt_list] = list = make_list(items);
+	node->nod_arg[e_prt_output] = (NOD) print;
+
+/* If DISTINCT was requested, make up a reduced list. */
+
+	if (rse && input->syn_arg[s_prt_distinct]) {
+		reduced = MAKE_NODE(nod_list, list->nod_count * 2);
+		reduced->nod_count = 0;
+		for (i = 0, ptr = reduced->nod_arg; i < list->nod_count; i++) {
+			item = (ITM) list->nod_arg[i];
+			if (item->itm_value) {
+				*ptr++ = item->itm_value;
+				ptr++;
+				reduced->nod_count++;
+			}
+		}
+		if (reduced->nod_count)
+			rse->nod_arg[e_rse_reduced] = reduced;
+	}
+
+/* If a FOR loop was generated, splice it in here. */
+
+	if (loop) {
+		loop->nod_arg[e_for_statement] = node;
+		node = loop;
+		if (input->syn_arg[s_prt_order])
+			rse->nod_arg[e_rse_sort] =
+				expand_sort(input->syn_arg[s_prt_order], new_right, list);
+	}
+
+	return node;
+}
+
+
+static NOD expand_print_form( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ p r i n t _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a PRINT ... USING FORM <form> statement.
+ *
+ **************************************/
+	SYN syn_rse;
+	NOD node, loop, rse;
+	LLS new_right;
+	REL relation;
+
+	loop = rse = NULL;
+	new_right = right;
+
+/* If a record select expression is present, expand it and build a FOR
+   statement. */
+
+	if (syn_rse = input->syn_arg[s_prt_rse]) {
+		loop = MAKE_NODE(nod_for, e_for_count);
+		loop->nod_arg[e_for_rse] = rse = expand_rse(syn_rse, &new_right);
+	}
+
+
+/* If no print object showed up, complain! */
+
+	if (!new_right)
+		IBERROR(151);			/* Msg151 No items in print list */
+
+	node = make_form_body(new_right, 0, input->syn_arg[s_prt_form]);
+
+/* If a FOR loop was generated, splice it in here. */
+
+	if (loop) {
+		loop->nod_arg[e_for_statement] = node;
+		node = loop;
+		if (input->syn_arg[s_prt_order])
+			rse->nod_arg[e_rse_sort] =
+				expand_sort(input->syn_arg[s_prt_order], new_right, 0);
+	}
+
+	return node;
+}
+
+
+static ITM expand_print_item( SYN syn_item, LLS right)
+{
+/**************************************
+ *
+ *	e x p a n d _ p r i n t _ i t e m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a print item.  A print item can either be a value or a format
+ *	specifier.
+ *
+ **************************************/
+	ITM item;
+	SYN syn_expr;
+	NOD node;
+	FLD field;
+
+	item = (ITM) ALLOCD(type_itm);
+
+	switch (syn_item->syn_type) {
+	case nod_print_item:
+		item->itm_type = item_value;
+		syn_expr = syn_item->syn_arg[s_itm_value];
+		node = item->itm_value = expand_expression(syn_expr, right);
+		item->itm_edit_string = (TEXT *) syn_item->syn_arg[s_itm_edit_string];
+		item->itm_query_header = (TEXT *) syn_item->syn_arg[s_itm_header];
+		expand_edit_string(node, item);
+		return item;
+
+	case nod_column:
+		item->itm_type = item_column;
+		break;
+
+	case nod_tab:
+		item->itm_type = item_tab;
+		break;
+
+	case nod_space:
+		item->itm_type = item_space;
+		break;
+
+	case nod_skip:
+		item->itm_type = item_skip;
+		break;
+
+	case nod_new_page:
+		item->itm_type = item_new_page;
+		break;
+
+	case nod_column_header:
+		item->itm_type = item_column_header;
+		break;
+
+	case nod_report_header:
+		item->itm_type = item_report_header;
+		break;
+
+	}
+
+	item->itm_count = (int) syn_item->syn_arg[0];
+	return item;
+}
+
+
+static NOD expand_print_list( SYN input, LLS stack)
+{
+/**************************************
+ *
+ *	e x p a n d _ p r i n t _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a print list.
+ *
+ **************************************/
+	LLS items;
+	SYN *ptr, *end;
+
+	items = NULL;
+
+	for (ptr = input->syn_arg, end = ptr + input->syn_count; ptr < end; ptr++)
+		LLS_PUSH(expand_print_item(*ptr, stack), &items);
+
+	return make_list(items);
+}
+
+
+static NOD expand_report( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ r e p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a report specification.
+ *
+ **************************************/
+	RPT report;
+	BRK control;
+	SYN sub;
+	NOD node, loop;
+	PRT print;
+
+/* Start by processing record selection expression */
+
+	expand_output(input->syn_arg[s_prt_output], right, &print);
+	report = print->prt_report = (RPT) input->syn_arg[s_prt_list];
+
+	if (!(print->prt_lines_per_page = report->rpt_lines))
+		print->prt_lines_per_page = QLI_lines;
+
+	if (!report->rpt_columns)
+		report->rpt_columns = QLI_columns;
+
+	loop = MAKE_NODE(nod_report_loop, e_for_count);
+	loop->nod_arg[e_for_rse] = expand_rse(input->syn_arg[s_prt_rse], &right);
+	loop->nod_arg[e_for_statement] = node =
+		MAKE_NODE(nod_report, e_prt_count);
+	node->nod_arg[e_prt_list] = (NOD) report;
+	node->nod_arg[e_prt_output] = (NOD) print;
+
+/* Process clauses where they exist */
+
+	expand_control_break(&report->rpt_top_rpt, right);
+	expand_control_break(&report->rpt_top_page, right);
+	expand_control_break(&report->rpt_top_breaks, right);
+
+	if (sub = (SYN) report->rpt_detail_line)
+		report->rpt_detail_line = expand_print_list(sub, right);
+
+	expand_control_break(&report->rpt_bottom_breaks, right);
+	expand_control_break(&report->rpt_bottom_page, right);
+	expand_control_break(&report->rpt_bottom_rpt, right);
+
+	return loop;
+}
+
+
+static NOD expand_restructure( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ r e s t r u c t u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Transform a restructure statement into a FOR <rse> STORE.
+ *
+ **************************************/
+	NOD node, assignment, loop;
+	SYN rel_node;
+	REL relation;
+	FLD field, fld;
+	CTX context, ctx;
+	LLS stack, search;
+
+/* Make a FOR loop to drive the restructure */
+
+	loop = MAKE_NODE(nod_for, e_for_count);
+	loop->nod_arg[e_for_rse] = expand_rse(input->syn_arg[s_asn_from], &right);
+
+/* Make a STORE node. */
+
+	loop->nod_arg[e_for_statement] = node = MAKE_NODE(nod_store, e_sto_count);
+	rel_node = input->syn_arg[s_asn_to];
+	context = (CTX) ALLOCD(type_ctx);
+	node->nod_arg[e_sto_context] = (NOD) context;
+	context->ctx_type = CTX_RELATION;
+	context->ctx_rse = (NOD) - 1;
+	relation = context->ctx_relation =
+		(REL) rel_node->syn_arg[s_rel_relation];
+
+/* If we don't already know about the relation, find out now. */
+
+	if (!(relation->rel_flags & REL_fields))
+		MET_fields(relation);
+
+/* Match fields in target relation against fields in the input rse.  Fields
+   may match on either name or query name. */
+
+	stack = NULL;
+
+	for (field = relation->rel_fields; field; field = field->fld_next)
+		if (!(field->fld_flags & FLD_computed)) {
+			for (search = right; search; search = search->lls_next) {
+				ctx = (CTX) search->lls_object;
+
+				/* First look for an exact field name match */
+
+				for (fld = ctx->ctx_relation->rel_fields; fld;
+					 fld =
+					 fld->fld_next) if (compare_symbols(field->fld_name,
+														fld->fld_name)) break;
+
+				/* Next try, target field name matching source query name */
+
+				if (!fld)
+					for (fld = ctx->ctx_relation->rel_fields; fld;
+						 fld =
+						 fld->fld_next) if (compare_symbols(field->fld_name,
+															fld->
+															fld_query_name))
+								break;
+
+				/* If nothing yet, look for any old match */
+
+				if (!fld)
+					for (fld = ctx->ctx_relation->rel_fields; fld;
+						 fld =
+						 fld->fld_next) if (compare_symbols(field->
+															fld_query_name,
+															fld->fld_name)
+											|| compare_symbols(field->
+															   fld_query_name,
+															   fld->
+															   fld_query_name))
+								break;
+
+				if (fld) {
+					assignment = MAKE_NODE(nod_assign, e_asn_count);
+					assignment->nod_count = e_asn_count - 1;
+					assignment->nod_arg[e_asn_to] =
+						make_field(field, context);
+					assignment->nod_arg[e_asn_from] = make_field(fld, ctx);
+					LLS_PUSH(assignment, &stack);
+					goto found_field;
+				}
+
+				if (ctx->ctx_rse)
+					break;
+			}
+		  found_field:;
+		}
+
+	node->nod_arg[e_sto_statement] = make_list(stack);
+
+	return loop;
+}
+
+
+static NOD expand_rse( SYN input, LLS * stack)
+{
+/**************************************
+ *
+ *	e x p a n d _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a record selection expression, returning an updated context
+ *	stack.
+ *
+ **************************************/
+	NOD node, boolean, eql_node, *ptr2, *end, parent_rse, temp;
+	CTX context, parent_context;
+	SYN *ptr, over, field, rel_node, list, value, stream;
+	SYM symbol;
+	REL relation;
+	LLS old_stack, new_stack, short_stack;
+	USHORT i, j;
+
+	old_stack = new_stack = *stack;
+	boolean = NULL;
+	node = MAKE_NODE(input->syn_type, (int) e_rse_count + input->syn_count);
+	node->nod_count = input->syn_count;
+	ptr2 = &node->nod_arg[e_rse_count];
+
+/* Decide whether or not this is a GROUP BY, real or imagined
+   If it is, disallow normal field type references */
+
+	parent_context = NULL;
+	parent_rse = NULL;
+
+	if (input->syn_arg[s_rse_group_by] || input->syn_arg[s_rse_having])
+		parent_context = (CTX) ALLOCD(type_ctx);
+	if (list = input->syn_arg[s_rse_list]) {
+		for (i = 0; i < list->syn_count; i++) {
+			value = list->syn_arg[i];
+			if (!(field = value->syn_arg[e_itm_value]))
+				continue;
+			if (global_agg(field, input->syn_arg[s_rse_group_by])) {
+				if (!parent_context)
+					parent_context = (CTX) ALLOCD(type_ctx);
+			}
+			else if (parent_context)
+				if (invalid_syn_field(field, input->syn_arg[s_rse_group_by]))
+					IBERROR(451);
+		}
+	}
+
+	if (parent_context) {
+		parent_context->ctx_type = CTX_AGGREGATE;
+		parent_rse = MAKE_NODE(nod_rse, e_rse_count + 1);
+		parent_rse->nod_count = 1;
+		parent_rse->nod_arg[e_rse_count] = (NOD) parent_context;
+		parent_context->ctx_sub_rse = node;
+	}
+
+/* Process the FIRST clause before the context gets augmented */
+
+	if (input->syn_arg[s_rse_first])
+		node->nod_arg[e_rse_first] =
+			expand_expression(input->syn_arg[e_rse_first], old_stack);
+
+/* Process relations */
+
+	ptr = input->syn_arg + s_rse_count;
+
+	for (i = 0; i < input->syn_count; i++) {
+		rel_node = *ptr++;
+		over = *ptr++;
+		context = (CTX) ALLOCD(type_ctx);
+		*ptr2++ = (NOD) context;
+		if (i == 0)
+			context->ctx_rse = node;
+		if (rel_node->syn_type == nod_rse) {
+			context->ctx_type = CTX_STREAM;
+			context->ctx_stream = expand_rse(rel_node, &new_stack);
+		}
+		else {
+			context->ctx_type = CTX_RELATION;
+			relation = context->ctx_relation =
+				(REL) rel_node->syn_arg[s_rel_relation];
+			if (!(relation->rel_flags & REL_fields))
+				MET_fields(relation);
+			symbol = context->ctx_symbol =
+				(SYM) rel_node->syn_arg[s_rel_context];
+			if (symbol)
+				symbol->sym_object = (BLK) context;
+			if (over) {
+				short_stack = NULL;
+				LLS_PUSH(context, &short_stack);
+				for (j = 0; j < over->syn_count; j++) {
+					field = over->syn_arg[j];
+					eql_node = MAKE_NODE(nod_eql, 2);
+					eql_node->nod_arg[0] =
+						expand_expression(field, short_stack);
+					eql_node->nod_arg[1] =
+						expand_expression(field, new_stack);
+					boolean = make_and(eql_node, boolean);
+				}
+				LLS_POP(&short_stack);
+			}
+		}
+		LLS_PUSH(context, &new_stack);
+	}
+
+/* Handle explicit boolean */
+
+	if (input->syn_arg[e_rse_boolean])
+		boolean = make_and(boolean,
+						   expand_expression(input->syn_arg[e_rse_boolean],
+											 new_stack));
+
+/* Handle implicit boolean from SQL xxx IN (yyy FROM relation) */
+
+	if (input->syn_arg[s_rse_outer]) {
+		eql_node = MAKE_NODE((NOD_T) input->syn_arg[s_rse_op], 2);
+		eql_node->nod_arg[0] =
+			expand_expression(input->syn_arg[s_rse_outer], old_stack);
+		eql_node->nod_arg[1] =
+			expand_expression(input->syn_arg[s_rse_inner], new_stack);
+		if (input->syn_arg[s_rse_all_flag])
+			eql_node = negate(eql_node);
+		boolean = make_and(eql_node, boolean);
+	}
+
+	node->nod_arg[e_rse_boolean] = boolean;
+
+	if (input->syn_arg[s_rse_sort]) {
+		temp = expand_sort(input->syn_arg[e_rse_sort], new_stack, 0);
+		if (parent_rse)
+			parent_rse->nod_arg[e_rse_sort] = temp;
+		else
+			node->nod_arg[e_rse_sort] = temp;
+	}
+#ifdef PC_ENGINE
+	else if (input->syn_arg[s_rse_index])
+		node->nod_arg[e_rse_index] = (NOD) input->syn_arg[s_rse_index];
+#endif
+
+	if (input->syn_arg[s_rse_reduced])
+		node->nod_arg[e_rse_reduced] =
+			expand_sort(input->syn_arg[e_rse_reduced], new_stack, 0);
+
+	if (input->syn_arg[s_rse_group_by])
+		parent_rse->nod_arg[e_rse_group_by] =
+			expand_group_by(input->syn_arg[s_rse_group_by], new_stack,
+							parent_context);
+
+	node->nod_arg[e_rse_join_type] = (NOD) input->syn_arg[s_rse_join_type];
+
+/* If there is a parent context, set it up here */
+
+	*stack = new_stack;
+
+	if (!parent_context)
+		return node;
+
+	for (ptr2 = node->nod_arg + e_rse_count, end = ptr2 + node->nod_count;
+		 ptr2 < end; ptr2++) {
+		context = (CTX) * ptr2;
+		context->ctx_parent = parent_context;
+	}
+
+	if (!(parent_context->ctx_relation = context->ctx_relation))
+		parent_context->ctx_stream = context->ctx_stream;
+	LLS_PUSH(parent_context, stack);
+
+	if (input->syn_arg[s_rse_having])
+		parent_rse->nod_arg[e_rse_having] =
+			expand_expression(input->syn_arg[s_rse_having], *stack);
+
+	return parent_rse;
+}
+
+
+static NOD expand_sort( SYN input, LLS stack, NOD list)
+{
+/**************************************
+ *
+ *	e x p a n d _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a sort or reduced clause.  This is more than a little
+ *	kludgy.  For pure undiscipled, pragmatic reasons, the count for
+ *	a sort/ reduced clause for a syntax node is twice the number of
+ *	actual keys.  For node nodes, however, the count is the accurate
+ *	number of keys.  So be careful.
+ *
+ **************************************/
+	ITM item;
+	SYN *syn_ptr, expr;
+	NOD node, *ptr;
+	USHORT i, position;
+
+	node = MAKE_NODE(nod_list, input->syn_count);
+	node->nod_count = input->syn_count / 2;
+	ptr = node->nod_arg;
+	syn_ptr = input->syn_arg;
+
+	for (i = 0; i < node->nod_count; i++) {
+		expr = *syn_ptr++;
+		if (expr->syn_type == nod_position) {
+			position = (USHORT) expr->syn_arg[0];
+			if (!list || !position || position > list->nod_count)
+				IBERROR(152);	/* Msg152 invalid ORDER BY ordinal */
+			item = (ITM) list->nod_arg[position - 1];
+			*ptr++ = item->itm_value;
+		}
+		else
+			*ptr++ = expand_expression(expr, stack);
+		*ptr++ = (NOD) * syn_ptr++;
+	}
+
+	return node;
+}
+
+
+static NOD expand_statement( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand a statement.
+ *
+ **************************************/
+	SYN *syn_ptr, syn_node, field_node;
+	CTX context;
+	NOD node, (*routine) ();
+	LLS stack;
+	USHORT i;
+
+	switch (input->syn_type) {
+	case nod_abort:
+		node = MAKE_NODE(input->syn_type, input->syn_count);
+		if (input->syn_arg[0])
+			node->nod_arg[0] = expand_expression(input->syn_arg[0], right);
+		return node;
+
+	case nod_assign:
+		routine = expand_assignment;
+		break;
+
+	case nod_commit_retaining:
+		node = MAKE_NODE(input->syn_type, input->syn_count);
+		for (i = 0; i < input->syn_count; i++)
+			node->nod_arg[i] = (NOD) input->syn_arg[i];
+		return node;
+
+	case nod_erase:
+		routine = expand_erase;
+		break;
+
+	case nod_form_for:
+		routine = expand_form_for;
+		break;
+
+	case nod_form_update:
+		routine = expand_form_update;
+		break;
+
+	case nod_for:
+		routine = expand_for;
+		break;
+
+	case nod_if:
+		node = MAKE_NODE(input->syn_type, input->syn_count);
+		node->nod_arg[e_if_boolean] =
+			expand_expression(input->syn_arg[s_if_boolean], right);
+		node->nod_arg[e_if_true] =
+			expand_statement(input->syn_arg[s_if_true], right, left);
+		if (input->syn_arg[s_if_false])
+			node->nod_arg[e_if_false] =
+				expand_statement(input->syn_arg[s_if_false], right, left);
+		else
+			node->nod_count = 2;
+		return node;
+
+	case nod_menu:
+		routine = expand_menu;
+		break;
+
+	case nod_modify:
+		routine = expand_modify;
+		break;
+
+	case nod_print:
+	case nod_list_fields:
+		routine = expand_print;
+		break;
+
+	case nod_report:
+		routine = expand_report;
+		break;
+
+	case nod_restructure:
+		routine = expand_restructure;
+		break;
+
+	case nod_store:
+		routine = expand_store;
+		break;
+
+	case nod_repeat:
+		node = MAKE_NODE(input->syn_type, input->syn_count);
+		node->nod_arg[e_rpt_value] =
+			expand_expression(input->syn_arg[s_rpt_value], left);
+		node->nod_arg[e_rpt_statement] =
+			expand_statement(input->syn_arg[s_rpt_statement], right, left);
+		return node;
+
+	case nod_list:
+		syn_ptr = input->syn_arg;
+		stack = NULL;
+		for (i = 0; i < input->syn_count; i++) {
+			syn_node = *syn_ptr++;
+			if (syn_node->syn_type == nod_declare) {
+				context = (CTX) ALLOCD(type_ctx);
+				context->ctx_type = CTX_VARIABLE;
+				if (field_node = syn_node->syn_arg[1]) {
+					if (field_node->syn_type == nod_index)
+						field_node = field_node->syn_arg[s_idx_field];
+					resolve_really(syn_node->syn_arg[0], field_node);
+				}
+				context->ctx_variable = (FLD) syn_node->syn_arg[0];
+				LLS_PUSH(context, &right);
+				LLS_PUSH(context, &left);
+			}
+			else if (node = expand_statement(syn_node, right, left))
+				LLS_PUSH(node, &stack);
+		}
+		return make_list(stack);
+
+	case nod_declare:
+		return NULL;
+
+	default:
+		BUGCHECK(136);			/* Msg136 expand_statement: not yet implemented */
+	}
+
+	return (*routine) (input, right, left);
+}
+
+
+static NOD expand_store( SYN input, LLS right, LLS left)
+{
+/**************************************
+ *
+ *	e x p a n d _ s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process, yea expand, on a mere STORE statement.  Make us
+ *	something neat if nothing looks obvious.
+ *
+ **************************************/
+	NOD node, assignment, prompt, loop;
+	SYN sub, rel_node;
+	REL relation;
+	FLD field;
+	SYM symbol;
+	CTX context, secondary;
+	LLS stack;
+	SSHORT field_count, value_count;
+
+	loop = NULL;
+
+/* If there is an rse, make up a FOR loop */
+
+	if (input->syn_arg[s_sto_rse]) {
+		loop = MAKE_NODE(nod_for, e_for_count);
+		loop->nod_arg[e_for_rse] = expand_rse(input->syn_arg[s_sto_rse],
+											  &right);
+	}
+
+	node = MAKE_NODE(input->syn_type, e_sto_count);
+
+	rel_node = input->syn_arg[s_sto_relation];
+	context = (CTX) ALLOCD(type_ctx);
+	node->nod_arg[e_sto_context] = (NOD) context;
+	context->ctx_type = CTX_RELATION;
+	context->ctx_rse = (NOD) - 1;
+	relation = context->ctx_relation =
+		(REL) rel_node->syn_arg[s_rel_relation];
+
+	if (!(relation->rel_flags & REL_fields))
+		MET_fields(relation);
+
+	if (symbol = context->ctx_symbol = (SYM) rel_node->syn_arg[s_rel_context])
+		symbol->sym_object = (BLK) context;
+
+	LLS_PUSH(context, &left);
+
+/*  If there are field and value lists, process them  */
+
+	if (input->syn_arg[s_sto_values]) {
+		if (!input->syn_arg[s_sto_fields]) {
+			stack = NULL;
+			for (field = relation->rel_fields; field; field = field->fld_next)
+				LLS_PUSH(decompile_field(field, 0), &stack);
+			input->syn_arg[s_sto_fields] = (SYN) stack;
+		}
+		expand_values(input, right);
+	}
+
+/* Process sub-statement.  If there isn't one, make up a series of
+   assignments. */
+
+	if (input->syn_arg[s_sto_statement]) {
+		secondary = (CTX) ALLOCD(type_ctx);
+		secondary->ctx_type = CTX_RELATION;
+		secondary->ctx_primary = context;
+		LLS_PUSH(secondary, &right);
+		node->nod_arg[e_sto_statement] =
+			expand_statement(input->syn_arg[s_sto_statement], right, left);
+	}
+	else if ((sub = input->syn_arg[s_sto_form]) || QLI_form_mode)
+		node->nod_arg[e_sto_statement] = make_form_body(0, left, sub);
+	else {
+		stack = NULL;
+		for (field = relation->rel_fields; field; field = field->fld_next) {
+			if (field->fld_flags & FLD_computed)
+				continue;
+			if (
+				(field->fld_system_flag
+				 && field->fld_system_flag != relation->rel_system_flag)
+				|| field->fld_flags & FLD_array)
+				continue;
+			assignment = make_assignment(make_field(field, context), 0, 0);
+			LLS_PUSH(assignment, &stack);
+		}
+		node->nod_arg[e_sto_statement] = make_list(stack);
+	}
+
+	if (!loop)
+		return node;
+
+	loop->nod_arg[e_for_statement] = node;
+
+	return loop;
+}
+
+
+static void expand_values( SYN input, LLS right)
+{
+/**************************************
+ *
+ *	e x p a n d _ v a l u e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've got a grungy SQL insert, and we have
+ *	to make the value list match the field list.
+ *	On the way in, we got the right number of 
+ *	fields.  Now all that's needed is the values
+ *	and matching the two lists, and generating 
+ *	assignments.  If the input is from a select,
+ *	things may be harder, and if there are wild cards
+ *	things will be harder still.  Wild cards come in
+ *	two flavors * and <context>.*.  The first is
+ *	a nod_prompt, the second a nod_star.
+ *
+ **************************************/
+	SSHORT field_count, value_count, group;
+	SYN value, *ptr, list, assignment;
+	CTX context;
+	LLS stack, fields, values, temp;
+
+	field_count = value_count = 0;
+
+/* fields have already been checked and expanded.  Just count them  */
+
+	fields = (LLS) input->syn_arg[s_sto_fields];
+	for (stack = fields; stack; stack = stack->lls_next)
+		field_count++;
+
+/* We're going to want the values in the order listed in the command */
+
+	values = (LLS) input->syn_arg[s_sto_values];
+	for (; values; LLS_PUSH(LLS_POP(&values), &stack));
+
+/* now go through, count, and expand where needed */
+
+	while (stack) {
+		value = (SYN) LLS_POP(&stack);
+		if (input->syn_arg[s_sto_rse] && value->syn_type == nod_prompt) {
+			if (value->syn_arg[0] == 0) {
+				temp = NULL;
+				for (; right; right = right->lls_next)
+					LLS_PUSH(right->lls_object, &temp);
+				while (temp) {
+					context = (CTX) LLS_POP(&temp);
+					value_count +=
+						generate_fields(context, &values,
+										input->syn_arg[s_sto_rse]);
+				}
+			}
+			else
+				IBERROR(542);	/* this was a prompting expression.  won't do at all */
+		}
+		else if (input->syn_arg[s_sto_rse] && (value->syn_type == nod_star)) {
+			if (!(context = find_context(value->syn_arg[0], right)))
+				IBERROR(154);	/* Msg154 unrecognized context */
+			value_count +=
+				generate_fields(context, &values, input->syn_arg[s_sto_rse]);
+		}
+		else {
+			LLS_PUSH(value, &values);
+			value_count++;
+		}
+	}
+
+/* Make assignments from values to fields */
+
+	if (field_count != value_count)
+		IBERROR(189);			/* Msg189 the number of values do not match the number of fields */
+
+	list = (SYN) ALLOCDV(type_syn, value_count);
+	list->syn_type = nod_list;
+	list->syn_count = value_count;
+	input->syn_arg[s_sto_statement] = list;
+	ptr = list->syn_arg + value_count;
+
+	while (values) {
+		*--ptr = assignment = (SYN) ALLOCDV(type_syn, s_asn_count);
+		assignment->syn_type = nod_assign;
+		assignment->syn_count = s_asn_count;
+		assignment->syn_arg[s_asn_to] = (SYN) LLS_POP(&fields);
+		assignment->syn_arg[s_asn_from] = (SYN) LLS_POP(&values);
+	}
+}
+
+
+static CTX find_context( NAM name, LLS contexts)
+{
+/**************************************
+ *
+ *	f i n d _ c o n t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've got a context name and we need to return
+ *	the context block implicated.
+ *
+ **************************************/
+	REL relation;
+	CTX context;
+
+	for (; contexts; contexts = contexts->lls_next) {
+		context = (CTX) contexts->lls_object;
+		relation = context->ctx_relation;
+		if (compare_names(name, relation->rel_symbol))
+			break;
+		if (compare_names(name, context->ctx_symbol))
+			break;
+	}
+	return (contexts) ? context : NULL;
+}
+
+
+static int generate_fields( CTX context, LLS values, SYN rse)
+{
+/**************************************
+ *
+ *	g e n e r a t e _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand an asterisk expression, which
+ *	could be <relation>.* or <alias>.* or <context>.*
+ *	into a list of non-expanded field blocks for
+ *	input to a store or update.
+ *
+ **************************************/
+	int count;
+	REL relation;
+	FLD field;
+	NOD temp;
+	SYN value, group_list;
+
+	if (context->ctx_type == CTX_AGGREGATE)
+		return NULL;
+	group_list = rse->syn_arg[s_rse_group_by];
+	relation = context->ctx_relation;
+	count = 0;
+
+	for (field = relation->rel_fields; field; field = field->fld_next) {
+		if (
+			(field->fld_system_flag
+			 && field->fld_system_flag != relation->rel_system_flag)
+			|| field->fld_flags & FLD_array)
+			continue;
+		value = decompile_field(field, context);
+		if (group_list && invalid_syn_field(value, group_list))
+			continue;
+		LLS_PUSH(value, values);
+		count++;
+	}
+
+	return count;
+}
+
+
+static int generate_items( SYN symbol, LLS right, LLS items, NOD rse)
+{
+/**************************************
+ *
+ *	g e n e r a t e _ i t e m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Expand an asterisk expression, which
+ *	could be <relation>.* or <alias>.* or <context>.*
+ *	into a list of reasonable print items. 
+ *
+ *      If the original request included a group by,
+ *	include only the grouping fields.
+ *
+ **************************************/
+	int count;
+	REL relation;
+	CTX context;
+	NAM name;
+	ITM item;
+	FLD field;
+	NOD node, group_list;
+
+	count = 0;
+	group_list = (rse) ? rse->nod_arg[e_rse_group_by] : NULL;
+
+/* first identify the relation or context */
+
+	if (symbol->syn_count == 1)
+		name = (NAM) symbol->syn_arg[0];
+	else
+		IBERROR(153);			/* Msg153 asterisk expressions require exactly one qualifying context */
+
+	if (!(context = find_context(name, right)))
+		IBERROR(154);			/* Msg154 unrecognized context */
+
+	relation = context->ctx_relation;
+
+	for (field = relation->rel_fields; field; field = field->fld_next) {
+		if (
+			(field->fld_system_flag
+			 && field->fld_system_flag != relation->rel_system_flag)
+			|| field->fld_flags & FLD_array)
+			continue;
+		node = make_field(field, context);
+		if (group_list && invalid_nod_field(node, group_list))
+			continue;
+		item = (ITM) ALLOCD(type_itm);
+		item->itm_type = item_value;
+		item->itm_value = make_field(field, context);
+		expand_edit_string(item->itm_value, item);
+		LLS_PUSH(item, items);
+		count++;
+	}
+
+	return count;
+}
+
+
+static SLONG global_agg( SYN item, SYN group_list)
+{
+/**************************************
+ *
+ *	g l o b a l _ a g g
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've got a print list item that may contain
+ *	a sql global aggregate.  If it does, we're
+ *	going to make the whole thing a degenerate
+ *	group by.  Anyway.  Look for aggregates buried
+ *	deep within printable things. 
+ *
+ *	This recurses.  If it finds a mixture of normal
+ *	and aggregates it complains.
+ *
+ **************************************/
+	SYN *ptr, *end;
+	int normal_field, aggregate;
+
+	normal_field = FALSE;
+	aggregate = FALSE;
+
+	switch (item->syn_type) {
+	case nod_agg_average:
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_total:
+	case nod_agg_count:
+	case nod_running_total:
+	case nod_running_count:
+		return TRUE;
+
+	case nod_upcase:
+	case nod_add:
+	case nod_subtract:
+	case nod_multiply:
+	case nod_divide:
+	case nod_negate:
+	case nod_concatenate:
+	case nod_substr:
+		{
+			for (ptr = item->syn_arg, end = ptr + item->syn_count; ptr < end;
+				 ptr++) {
+				if ((*ptr)->syn_type == nod_constant)
+					continue;
+				if (global_agg(*ptr, group_list))
+					aggregate = TRUE;
+				else if (!group_list || invalid_syn_field(*ptr, group_list))
+					normal_field = TRUE;
+			}
+		}
+
+	default:
+		break;
+	}
+
+	if (normal_field && aggregate)
+		IBERROR(451);
+
+	return aggregate;
+}
+
+
+static int invalid_nod_field( NOD node, NOD list)
+{
+/**************************************
+ *
+ *	i n v a l i d _ n o d _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Validate that an expanded field / context
+ *	pair is in a specified list.  Thus is used
+ *	in one instance to check that a simple field selected 
+ *	through a grouping rse is a grouping field - 
+ *	thus a valid field reference.
+ *
+ **************************************/
+	FLD field;
+	CTX context;
+	SCHAR invalid;
+	NOD *ptr, *end;
+
+	if (!list)
+		return TRUE;
+
+	invalid = FALSE;
+
+	if (node->nod_type == nod_field) {
+		field = (FLD) node->nod_arg[e_fld_field];
+		context = (CTX) node->nod_arg[e_fld_context];
+		for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+			 ptr++)
+			if (field == (FLD) (*ptr)->nod_arg[e_fld_field]
+				&& context == (CTX) (*ptr)->nod_arg[e_fld_context])
+				return FALSE;
+		return TRUE;
+	}
+	else
+		for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end;
+			 ptr++)
+			switch ((*ptr)->nod_type) {
+			case nod_field:
+			case nod_add:
+			case nod_subtract:
+			case nod_multiply:
+			case nod_divide:
+			case nod_negate:
+			case nod_concatenate:
+			case nod_substr:
+			case nod_format:
+			case nod_choice:
+			case nod_function:
+			case nod_upcase:
+				invalid |= invalid_nod_field(*ptr, list);
+			}
+
+	return invalid;
+}
+
+
+static int invalid_syn_field( SYN syn_node, SYN list)
+{
+/**************************************
+ *
+ *	i n v a l i d _ s y n _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make sure an unexpanded simple field selected 
+ *	through a grouping rse is a grouping field - 
+ *	thus a valid field reference.  For the sake of
+ *      argument, we'll match qualified to unqualified
+ *	reference, but qualified reference must match
+ *	completely. 
+ *
+ *	One more thought.  If this miserable thing is
+ *	a wild card, let it through and expand it 
+ *	correctly later.
+ *
+ **************************************/
+	SYN element, *ptr, *end;
+	NAM gname, fname, gctx, fctx;
+	SSHORT count;
+	SCHAR invalid;
+
+
+	if (syn_node->syn_type == nod_star)
+		return FALSE;
+
+	if (!list)
+		return TRUE;
+
+	invalid = FALSE;
+
+	if (syn_node->syn_type == nod_field) {
+		fctx = NULL;
+		fname = (NAM) syn_node->syn_arg[0];
+		if (syn_node->syn_count == 2) {
+			fctx = fname;
+			fname = (NAM) syn_node->syn_arg[1];
+		}
+
+		for (count = list->syn_count; count;) {
+			gctx = NULL;
+			element = list->syn_arg[--count];
+			gname = (NAM) element->syn_arg[0];
+			if (element->syn_count == 2) {
+				gctx = gname;
+				gname = (NAM) element->syn_arg[1];
+			}
+			if (!strcmp(fname->nam_string, gname->nam_string))
+				if (!gctx || !fctx
+					|| (!strcmp(fctx->nam_string, gctx->nam_string))) return
+						FALSE;
+		}
+		return TRUE;
+	}
+	else
+		for (ptr = syn_node->syn_arg, end = ptr + syn_node->syn_count;
+			 ptr < end; ptr++)
+			switch ((*ptr)->syn_type) {
+			case nod_field:
+			case nod_add:
+			case nod_subtract:
+			case nod_multiply:
+			case nod_divide:
+			case nod_negate:
+			case nod_concatenate:
+			case nod_substr:
+			case nod_format:
+			case nod_choice:
+			case nod_function:
+			case nod_upcase:
+				invalid |= invalid_syn_field(*ptr, list);
+			}
+
+	return invalid;
+}
+
+
+static NOD make_and( NOD expr1, NOD expr2)
+{
+/**************************************
+ *
+ *	m a k e _ a n d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Combine two expressions, each possible null, into at most
+ *	a single boolean.
+ *
+ **************************************/
+	NOD node;
+
+	if (!expr1)
+		return expr2;
+
+	if (!expr2)
+		return expr1;
+
+	node = MAKE_NODE(nod_and, 2);
+	node->nod_arg[0] = expr1;
+	node->nod_arg[1] = expr2;
+
+	return node;
+}
+
+
+static NOD make_assignment( NOD target, NOD initial, LLS right)
+{
+/**************************************
+ *
+ *	m a k e _ a s s i g n m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a prompt and assignment to a field.
+ *
+ **************************************/
+	NOD assignment, prompt;
+	FLD field;
+	LLS stack;
+
+	field = (FLD) target->nod_arg[e_fld_field];
+	stack = NULL;
+	LLS_PUSH(target->nod_arg[e_fld_context], &stack);
+
+	if (field->fld_dtype == dtype_blob) {
+		prompt = MAKE_NODE(nod_edit_blob, e_edt_count);
+		prompt->nod_count = 0;
+		prompt->nod_arg[e_edt_name] = (NOD) field->fld_name->sym_string;
+		if (initial) {
+			prompt->nod_count = 1;
+			prompt->nod_arg[e_edt_input] = expand_expression(initial, right);
+		}
+	}
+	else {
+		prompt = MAKE_NODE(nod_prompt, e_prm_count);
+		prompt->nod_arg[e_prm_prompt] = (NOD) field->fld_name->sym_string;
+		prompt->nod_arg[e_prm_field] = (NOD) field;
+	}
+
+	assignment = MAKE_NODE(nod_assign, e_asn_count);
+	assignment->nod_arg[e_asn_to] = target;
+	assignment->nod_arg[e_asn_from] = prompt;
+
+	if (field->fld_validation)
+		assignment->nod_arg[e_asn_valid] =
+			expand_expression(field->fld_validation, stack);
+	else
+		--assignment->nod_count;
+
+	LLS_POP(&stack);
+
+	return assignment;
+}
+
+
+static NOD make_form_body( LLS right, LLS left, SYN form_node)
+{
+/**************************************
+ *
+ *	m a k e _ f o r m _ b o d y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build the form body for a form STORE, MODIFY, or PRINT.
+ *
+ **************************************/
+	CTX tmp_context;
+	FFL ffl;
+	FLD field, initial;
+	FRM form;
+	LLS stack, fields;
+	NOD node, assignment;
+	REL relation;
+
+	tmp_context = right ? (CTX) right->lls_object : (CTX) left->lls_object;
+	if (right)
+		tmp_context = (CTX) right->lls_object;
+	else
+		tmp_context = (CTX) left->lls_object;
+
+	relation = tmp_context->ctx_relation;
+	form = expand_form(form_node, relation);
+
+/* Get stack of database fields and form fields */
+
+	stack = fields = NULL;
+
+	if (right)
+		for (ffl = form->frm_fields; ffl; ffl = ffl->ffl_next)
+			if (field = resolve_name(ffl->ffl_symbol, right, &tmp_context)) {
+				assignment = MAKE_NODE(nod_assign, e_asn_count);
+				assignment->nod_arg[e_asn_from] =
+					make_field(field, tmp_context);
+				assignment->nod_arg[e_asn_to] = make_form_field(form, ffl);
+				LLS_PUSH(assignment, &stack);
+			}
+
+/* Build form update */
+
+	node = MAKE_NODE(nod_form_update, e_fup_count);
+	node->nod_count = 0;
+	node->nod_arg[e_fup_form] = (NOD) form;
+	LLS_PUSH(node, &stack);
+
+/* Unless this is a print, be prepared to update fields */
+
+	if (left) {
+		for (ffl = form->frm_fields; ffl; ffl = ffl->ffl_next)
+			if ((field = resolve_name(ffl->ffl_symbol, left, &tmp_context)) &&
+				!(field->fld_flags & FLD_computed)) {
+				assignment = MAKE_NODE(nod_assign, e_asn_count);
+				assignment->nod_arg[e_asn_to] =
+					make_field(field, tmp_context);
+				assignment->nod_arg[e_asn_from] = make_form_field(form, ffl);
+				if (right) {
+					initial =
+						resolve_name(ffl->ffl_symbol, right, &tmp_context);
+					assignment->nod_arg[e_asn_initial] =
+						make_field(initial, tmp_context);
+				}
+				if (field->fld_validation)
+					assignment->nod_arg[e_asn_valid] =
+						expand_expression(field->fld_validation, left);
+				LLS_PUSH(ffl, &fields);
+				LLS_PUSH(assignment, &stack);
+			}
+		node->nod_arg[e_fup_fields] = make_list(fields);
+	}
+
+	node = MAKE_NODE(nod_form_for, e_ffr_count);
+	node->nod_arg[e_ffr_form] = (NOD) form;
+	node->nod_arg[e_ffr_statement] = make_list(stack);
+
+	return node;
+}
+
+
+static NOD make_form_field( FRM form, FFL field)
+{
+/**************************************
+ *
+ *	m a k e _ f o r m _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a form field node.
+ *
+ **************************************/
+	NOD node;
+
+	node = MAKE_NODE(nod_form_field, e_ffl_count);
+	node->nod_count = 0;
+	node->nod_arg[e_ffl_form] = (NOD) form;
+	node->nod_arg[e_ffl_field] = (NOD) field;
+
+	return node;
+}
+
+
+static NOD make_field( FLD field, CTX context)
+{
+/**************************************
+ *
+ *	m a k e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make a field block.  Not too tough.
+ *
+ **************************************/
+	NOD node;
+
+	node = MAKE_NODE(nod_field, e_fld_count);
+	node->nod_count = 0;
+	node->nod_arg[e_fld_field] = (NOD) field;
+	node->nod_arg[e_fld_context] = (NOD) context;
+
+	if (context->ctx_variable)
+		node->nod_type = nod_variable;
+
+	return node;
+}
+
+
+static NOD make_list( LLS stack)
+{
+/**************************************
+ *
+ *	m a k e _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a stack of junk into a list node.  Best count
+ *	them first.
+ *
+ **************************************/
+	NOD node, *ptr;
+	LLS temp;
+	USHORT count;
+
+	temp = stack;
+	count = 0;
+
+	while (temp) {
+		count++;
+		temp = temp->lls_next;
+	}
+
+	node = MAKE_NODE(nod_list, count);
+	ptr = &node->nod_arg[count];
+
+	while (stack)
+		*--ptr = (NOD) LLS_POP(&stack);
+
+	return node;
+}
+
+
+static NOD make_node( NOD_T type, USHORT count)
+{
+/**************************************
+ *
+ *	m a k e _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a node and fill in some basic stuff.
+ *
+ **************************************/
+	NOD node;
+
+	node = (NOD) ALLOCDV(type_nod, count);
+	node->nod_type = type;
+	node->nod_count = count;
+
+	return node;
+}
+
+
+static NOD negate( NOD expr)
+{
+/**************************************
+ *
+ *	n e g a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build negation of expression.
+ *
+ **************************************/
+	NOD node;
+
+	node = MAKE_NODE(nod_not, 1);
+	node->nod_arg[0] = expr;
+
+	return node;
+}
+
+
+static NOD possible_literal( SYN input, LLS stack, USHORT upper_flag)
+{
+/**************************************
+ *
+ *	p o s s i b l e _ l i t e r a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if a value node is an unresolved name.  If so,
+ *	transform it into a constant expression.  This is used to
+ *	correct "informalities" in relational expressions.
+ *
+ **************************************/
+	NAM name;
+	CON constant;
+	NOD node;
+	CTX context;
+	USHORT l;
+	TEXT *p, *q, c;
+
+/* If the value isn't a field, is qualified, or can be resolved,
+   it doesn't qualify for conversion.  Return NULL. */
+
+	if (input->syn_type != nod_field ||
+		input->syn_count != 1 || resolve(input, stack, &context))
+		return NULL;
+
+	name = (NAM) input->syn_arg[0];
+	l = name->nam_length;
+	constant = (CON) ALLOCDV(type_con, l);
+	constant->con_desc.dsc_dtype = dtype_text;
+	constant->con_desc.dsc_length = l;
+	p = (TEXT *) constant->con_data;
+	constant->con_desc.dsc_address = (UCHAR *) p;
+	q = name->nam_string;
+
+	if (upper_flag) {
+		if (l)
+#ifdef JPN_SJIS
+			do {
+				c = *q++;
+				*p++ = UPPER(c);
+
+				/* Do not upcase second byte of a sjis kanji character */
+
+				if ((KANJI1(c)) && (l > 1)) {
+					*p++ = *q++;
+					--l;
+				}
+			} while (--l);
+
+#else
+			do {
+				c = *q++;
+				*p++ = UPPER(c);
+			} while (--l);
+#endif
+
+	}
+	else if (l)
+		do {
+			c = *q++;
+			*p++ = (c >= 'A' && c <= 'Z') ? c - 'A' + 'a' : c;
+
+#ifdef JPN_SJIS
+
+			/* Do not upcase second byte of a sjis kanji character */
+
+			if ((KANJI1(c)) && (l > 1)) {
+				*p++ = *q++;
+				--l;
+			}
+#endif
+		} while (--l);
+
+	node = MAKE_NODE(nod_constant, 0);
+	node->nod_desc = constant->con_desc;
+
+	return node;
+}
+
+
+static NOD post_map( NOD node, CTX context)
+{
+/**************************************
+ *
+ *	p o s t _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an item to a map for a context.
+ *
+ **************************************/
+	NOD new_node;
+	MAP map;
+
+/* Check to see if the item has already been posted */
+
+	for (map = context->ctx_map; map; map = map->map_next)
+		if (CMP_node_match(node, map->map_node))
+			break;
+
+	if (!map) {
+		map = (MAP) ALLOCD(type_map);
+		map->map_next = context->ctx_map;
+		context->ctx_map = map;
+		map->map_node = node;
+	}
+
+	new_node = MAKE_NODE(nod_map, e_map_count);
+	new_node->nod_count = 0;
+	new_node->nod_arg[e_map_context] = (NOD) context;
+	new_node->nod_arg[e_map_map] = (NOD) map;
+	new_node->nod_desc = node->nod_desc;
+
+	return new_node;
+}
+
+
+static FLD resolve( SYN node, LLS stack, CTX * out_context)
+{
+/**************************************
+ *
+ *	r e s o l v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Resolve a field node against a context stack.  Return both the
+ *	field block (by value)  and the corresponding context block (by
+ *	reference).  Return NULL if field can't be resolved.
+ *
+ **************************************/
+	NAM name, *base, *ptr;
+	CTX context;
+	REL relation;
+	FLD field;
+	FRM form;
+	FFL ffield;
+
+/* Look thru context stack looking for a context that will resolve
+   all name segments.  If the context is a secondary context, require
+   that the context name be given explicitly (used for special STORE
+   context). */
+
+	base = (NAM *) node->syn_arg;
+
+	for (; stack; stack = stack->lls_next) {
+		*out_context = context = (CTX) stack->lls_object;
+		ptr = base + node->syn_count;
+		name = *--ptr;
+
+		switch (context->ctx_type) {
+		case CTX_FORM:
+			if (context->ctx_primary)
+				*out_context = context = context->ctx_primary;
+			form = context->ctx_form;
+			for (ffield = form->frm_fields; ffield; ffield = ffield->ffl_next)
+				if (compare_names(name, ffield->ffl_symbol)) {
+					if (ptr == base)
+						return (FLD) ffield;
+					name = *--ptr;
+
+					if (compare_names(name, form->frm_symbol))
+						if (ptr == base)
+							return (FLD) ffield;
+
+					if (compare_names(name, context->ctx_symbol))
+						if (ptr == base)
+							return (FLD) ffield;
+					break;
+				}
+			break;
+
+		case CTX_VARIABLE:
+			if (ptr == base)
+				for (field = context->ctx_variable; field;
+					 field =
+					 field->fld_next) if (compare_names(name, field->fld_name)
+										  || compare_names(name,
+														   field->
+														   fld_query_name))
+							return field;
+			break;
+
+		case CTX_RELATION:
+			if (context->ctx_primary) {
+				*out_context = context = context->ctx_primary;
+				if (!compare_names(node->syn_arg[0], context->ctx_symbol))
+					break;
+			}
+			relation = context->ctx_relation;
+
+			for (field = relation->rel_fields; field; field = field->fld_next)
+				if (compare_names(name, field->fld_name) ||
+					compare_names(name, field->fld_query_name)) {
+					if (ptr == base)
+						return field;
+					name = *--ptr;
+
+					if (compare_names(name, relation->rel_symbol))
+						if (ptr == base)
+							return field;
+						else
+							name = *--ptr;
+
+					if (compare_names(name, context->ctx_symbol))
+						if (ptr == base)
+							return field;
+					break;
+				}
+			break;
+		}
+	}
+
+/* We didn't resolve all name segments.  Let somebody else worry about it. */
+
+	return NULL;
+}
+
+
+static FLD resolve_name( SYM name, LLS stack, CTX * out_context)
+{
+/**************************************
+ *
+ *	r e s o l v e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Resolve a field node against a context stack.  Return both the
+ *	field block (by value)  and the corresponding context block (by
+ *	reference).  Return NULL if field can't be resolved.
+ *
+ **************************************/
+	CTX context;
+	REL relation;
+	FLD field;
+	FRM form;
+	FFL ffield;
+
+/* Look thru context stack looking for a context that will resolve
+   all name segments.  If the context is a secondary context, require
+   that the context name be given explicitly (used for special STORE
+   context). */
+
+
+	for (; stack; stack = stack->lls_next) {
+		*out_context = context = (CTX) stack->lls_object;
+		switch (context->ctx_type) {
+		case CTX_FORM:
+			if (context->ctx_primary)
+				*out_context = context = context->ctx_primary;
+			form = context->ctx_form;
+			for (ffield = form->frm_fields; ffield; ffield = ffield->ffl_next)
+				if (compare_symbols(name, ffield->ffl_symbol))
+					return (FLD) ffield;
+			break;
+
+		case CTX_VARIABLE:
+			for (field = context->ctx_variable; field;
+				 field =
+				 field->fld_next) if (compare_symbols(name, field->fld_name)
+									  || compare_symbols(name,
+														 field->
+														 fld_query_name))
+						return field;
+			break;
+
+		case CTX_RELATION:
+			relation = context->ctx_relation;
+
+			for (field = relation->rel_fields; field; field = field->fld_next)
+				if (compare_symbols(name, field->fld_name) ||
+					compare_symbols(name, field->fld_query_name))
+					return field;
+
+			break;
+		}
+	}
+
+/* We didn't resolve all name segments.  Let somebody else worry about it. */
+
+	return NULL;
+}
+
+
+static void resolve_really( FLD variable, SYN field_node)
+{
+/**************************************
+ *
+ *	r e s o l v e _ r e a l l y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Resolve a field reference entirely.  
+ *
+ **************************************/
+	USHORT offset;
+	BOOLEAN resolved, local;
+	NAM fld_name, rel_name, db_name;
+	SYM symbol;
+	FLD field;
+	REL relation;
+	DBB dbb;
+
+	db_name = rel_name = fld_name = NULL;
+	field = NULL;
+	resolved = local = FALSE;
+
+/* For ease, break down the syntax block.
+   It should contain at least one name; two names are a  potential ambiguity:
+   check for a dbb (<db>.<glo_fld>), then for a rel (<rel>.<fld>). */
+
+	offset = field_node->syn_count;
+	fld_name = (NAM) field_node->syn_arg[--offset];
+
+	if (offset) {
+		rel_name = (NAM) field_node->syn_arg[--offset];
+		if (offset)
+			db_name = (NAM) field_node->syn_arg[--offset];
+	}
+
+	if (field_node->syn_count == 1)
+		resolved = MET_declare(0, variable, fld_name);
+	else if (field_node->syn_count == 2) {
+		for (symbol = rel_name->nam_symbol; symbol;
+			 symbol =
+			 symbol->sym_homonym) if (symbol->sym_type == SYM_database) {
+				dbb = (DBB) symbol->sym_object;
+				resolved = MET_declare(dbb, variable, fld_name);
+				break;			/* should be only one db in homonym list */
+			}
+
+		if (!resolved) {
+			for (dbb = QLI_databases; dbb && !resolved; dbb = dbb->dbb_next)
+				for (symbol = rel_name->nam_symbol; symbol;
+					 symbol =
+					 symbol->sym_homonym) if (symbol->sym_type == SYM_relation
+											  && (relation =
+												  (REL) symbol->sym_object)
+											  && relation->rel_database ==
+											  dbb) {
+						if (!relation->rel_fields)
+							MET_fields(relation);
+						for (field = relation->rel_fields; field;
+							 field = field->fld_next) if (resolved = local =
+														  compare_names
+														  (fld_name,
+														   field->
+														   fld_name)) break;
+						break;	/* should be only one rel in homonym list for each db */
+					}
+		}
+	}
+	else {
+		relation = variable->fld_relation;
+		if (!relation->rel_fields)
+			MET_fields(relation);
+		for (field = relation->rel_fields; field; field = field->fld_next)
+			if (resolved = local = compare_names(fld_name, field->fld_name))
+				break;
+	}
+
+	if (!resolved)
+		IBERROR(155);			/* Msg155 field referenced in BASED ON can not be resolved against readied databases */
+
+	if (local) {
+		variable->fld_dtype = field->fld_dtype;
+		variable->fld_length = field->fld_length;
+		variable->fld_scale = field->fld_scale;
+		variable->fld_sub_type = field->fld_sub_type;
+		variable->fld_sub_type_missing = field->fld_sub_type_missing;
+		if (!variable->fld_edit_string)
+			variable->fld_edit_string = field->fld_edit_string;
+		if (!variable->fld_query_header)
+			variable->fld_query_header = field->fld_query_header;
+		if (!variable->fld_query_name)
+			variable->fld_query_name = field->fld_query_name;
+	}
+}
diff --git a/src/qli/form.cpp b/src/qli/form.cpp
new file mode 100644
index 0000000000..47b4c82a62
--- /dev/null
+++ b/src/qli/form.cpp
@@ -0,0 +1,764 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		form.c
+ *	DESCRIPTION:	Form interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../qli/dtr.h"
+#include "../qli/exe.h"
+#include "../qli/form.h"
+#include "../include/jrd/gds.h"
+#include "../pyxis/phase1.h"
+#include "../pyxis/phase2.h"
+#include "../qli/all_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/eval_proto.h"
+#include "../qli/exe_proto.h"
+#include "../qli/form_proto.h"
+#include "../qli/hsh_proto.h"
+#include "../qli/proc_proto.h"
+
+extern int *PYXIS_relation_fields(), *PYXIS_relation_form(),
+	*PYXIS_create_object(), *PYXIS_find_index(), *PYXIS_find_object(),
+	*PYXIS_get_value();
+extern TEXT *PYXIS_get_attribute_value(), *PYXIS_get_string();
+extern SCHAR *PYXIS_get_keyname();
+
+extern TEXT *QLI_error;
+extern USHORT QLI_prompt_count, QLI_reprompt;
+extern USHORT sw_forms;
+
+static void clear_fields(FRM);
+static FRM register_form(DBB, int *, TEXT *);
+static void set_form(int *);
+static void update_form(FRM, TEXT *);
+
+static int *pyxis_window;
+static int *current_form;
+
+
+FRM FORM_default_form( DBB database, TEXT * string)
+{
+/**************************************
+ *
+ *	F O R M _ d e f a u l t _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a default for for a relation.
+ *
+ **************************************/
+	int *handle, *fields, *transaction;
+	FRM form;
+
+	transaction = PRO_transaction(database, FALSE);
+
+	if (!
+		(fields =
+		 PYXIS_relation_fields(&database->dbb_handle, &transaction,
+							   string))) return NULL;
+
+	handle = PYXIS_relation_form(pyxis_window, fields);
+	pyxis__delete(&fields);
+
+	if (!handle)
+		return NULL;
+
+	return register_form(database, handle, string);
+}
+
+
+void FORM_display( NOD node)
+{
+/**************************************
+ *
+ *	F O R M _ d i s p l a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a FORM_FOR node, display an empty form.
+ *
+ **************************************/
+	FRM form;
+	FFL field;
+
+/* Initialize all fields to known state */
+
+	sw_forms = TRUE;
+	form = (FRM) node->nod_arg[e_ffr_form];
+
+	for (field = form->frm_fields; field; field = field->ffl_next)
+		PYXIS_set_field_options(field->ffl_handle, 0, PYXIS_reset,
+								PYXIS_clear);
+
+	EXEC_execute(node->nod_arg[e_ffr_statement]);
+}
+
+
+void FORM_edit( DBB database, TEXT * name)
+{
+/**************************************
+ *
+ *	F O R M _ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit a form.
+ *
+ **************************************/
+	FRM form;
+	int *transaction, *handle, *fields, *label;
+
+	sw_forms = TRUE;
+	transaction = PRO_transaction(database, FALSE);
+
+/* Get an existing form, make a form out of a relation name, or
+   build one from scratch */
+
+	if (form = FORM_lookup_form(database, name))
+		handle = form->frm_handle;
+	else if (fields =
+			 PYXIS_relation_fields(&database->dbb_handle, &transaction, name)) {
+		handle = PYXIS_relation_form(pyxis_window, fields);
+		pyxis__delete(&fields);
+	}
+	else {
+		handle = PYXIS_create_object(0, 0);
+		label = PYXIS_create_object(name, att_literal_string);
+		PYXIS_put_attribute(handle, att_label, attype_object, label);
+	}
+
+	PYXIS_set_field_options(handle, "all", PYXIS_reset, PYXIS_clear);
+	set_form(handle);
+
+	if (PYXIS_edit(pyxis_window, handle, &database->dbb_handle, &transaction)) {
+		PYXIS_store_form(&database->dbb_handle, &transaction, name, handle);
+		PRO_commit(database);
+	}
+}
+
+
+void FORM_fini(void)
+{
+/**************************************
+ *
+ *	F O R M _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shut down forms interface.
+ *
+ **************************************/
+
+	if (pyxis_window)
+		pyxis__delete_window(&pyxis_window);
+}
+
+
+void FORM_finish( DBB database)
+{
+/**************************************
+ *
+ *	F O R M _ f i n i s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release forms in preparation for finishing a relation.
+ *
+ **************************************/
+	FRM form;
+	FFL field;
+	SYM symbol;
+
+	while (form = database->dbb_forms) {
+		database->dbb_forms = form->frm_next;
+		pyxis__delete(&form->frm_handle);
+		if (symbol = form->frm_symbol) {
+			HSH_remove(symbol);
+			ALLQ_release(symbol);
+		}
+		while (field = form->frm_fields) {
+			form->frm_fields = field->ffl_next;
+			if (symbol = field->ffl_symbol)
+				ALLQ_release(symbol);
+			ALLQ_release(field);
+		}
+		ALLQ_release(form);
+	}
+}
+
+
+int FORM_get_blob( NOD value, PAR parameter)
+{
+/**************************************
+ *
+ *	 F O R M _ g e t _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy blob from form to database.
+ *
+ **************************************/
+	MSG message;
+	REQ request;
+	DBB dbb;
+	DSC *desc;
+	FFL field;
+	int *blob, *item;
+	TEXT bpb[20], buffer[4096], *p, *data;
+	STATUS status_vector[20];
+	USHORT length, n, bpb_length;
+
+	field = (FFL) value->nod_arg[e_ffl_field];
+
+/* Find the sending and receiving requests.  If they are the same,
+   a simple assignment will suffice. */
+
+	message = parameter->par_message;
+	request = message->msg_request;
+	dbb = request->req_database;
+
+/* We've got a blob copy on our hands. */
+
+	blob = NULL;
+	desc = EVAL_parameter(parameter);
+
+/* Format blob parameter block */
+
+	p = bpb;
+	*p++ = gds__bpb_version1;
+	*p++ = gds__bpb_source_type;
+	*p++ = 1;
+	*p++ = 1;
+	*p++ = gds__bpb_target_type;
+	*p++ = 2;
+	*p++ = desc->dsc_sub_type;
+	*p++ = desc->dsc_sub_type >> 8;
+	bpb_length = p - bpb;
+
+	if (gds__create_blob2(status_vector,
+						  GDS_REF(dbb->dbb_handle),
+						  GDS_REF(dbb->dbb_transaction),
+						  GDS_REF(blob),
+						  GDS_VAL(desc->dsc_address),
+						  bpb_length,
+						  bpb)) ERRQ_database_error(dbb, status_vector);
+
+	for (n = 1;; n++) {
+		if (!(item = PYXIS_find_index(field->ffl_handle, n)))
+			break;
+		if (!(data = PYXIS_get_attribute_value(item, att_update_data)) &&
+			!(data = PYXIS_get_attribute_value(item, att_data)))
+			data = "";
+		do {
+			for (p = buffer; *data && p < &buffer[sizeof(buffer) - 2];)
+				*p++ = *data++;
+			if (p == buffer || (!*data && p[-1] != '\n'))
+				*p++ = '\n';
+			*p = 0;
+			length = p - buffer;
+			if (gds__put_segment(status_vector,
+								 GDS_REF(blob), length, buffer)) break;
+		} while (*data);
+		if (status_vector[1])
+			break;
+	}
+
+	if (gds__close_blob(status_vector, GDS_REF(blob)))
+		ERRQ_database_error(dbb, status_vector);
+
+	return TRUE;
+}
+
+
+DSC *FORM_get_field(NOD node)
+{
+/**************************************
+ *
+ *	F O R M _ g e t _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a value off a form.
+ *
+ **************************************/
+	FFL field;
+	FRM form;
+	STR string;
+	USHORT l;
+	TEXT *p, *q;
+
+	field = (FFL) node->nod_arg[e_ffl_field];
+	form = field->ffl_form;
+
+/* Do some fancy stuff for a re-prompt */
+
+	if (QLI_reprompt) {
+		clear_fields(form);
+		field = (FFL) node->nod_arg[e_ffl_field];
+		PYXIS_set_field_options(field->ffl_handle, 0, PYXIS_updatable,
+								PYXIS_updatable);
+		p = QLI_error;
+		QLI_error = NULL;
+		update_form(form, p);
+	}
+
+	++QLI_prompt_count;
+
+/* Determine if there is data and where it came from */
+
+	switch (PYXIS_get_updated(field->ffl_handle, NULL, &p)) {
+	case PYXIS_user_data:
+		break;
+	case PYXIS_prog_data:
+		node->nod_desc.dsc_missing = DSC_initial;
+		return &node->nod_desc;
+	case PYXIS_missing_data:
+		node->nod_desc.dsc_missing = DSC_missing;
+		node->nod_desc.dsc_length = 0;
+		return &node->nod_desc;
+	case PYXIS_no_field:
+		return NULL;
+	}
+
+/* We got some data, so set up a descriptor */
+
+	node->nod_desc.dsc_address = (UCHAR *) p;
+	node->nod_desc.dsc_dtype = dtype_text;
+	node->nod_desc.dsc_length = l = strlen(p);
+	node->nod_desc.dsc_scale = 0;
+	node->nod_desc.dsc_missing = FALSE;
+
+/* Unless some de-editting is required, we're done */
+
+	if (field->ffl_dtype < dtype_short || field->ffl_dtype > dtype_double)
+		return &node->nod_desc;
+
+/* Sigh.  We need to de-edit the field.  Start by finding somewhere to put string */
+
+	if ((string = (STR) node->nod_arg[e_ffl_string]) &&
+		l >= string->str_length) {
+		ALLQ_release(string);
+		string = NULL;
+	}
+
+	if (!string) {
+		string = (STR) ALLOCDV(type_str, l);
+		node->nod_arg[e_ffl_string] = (NOD) string;
+		string->str_length = l;
+	}
+
+/* Get rid of non-essential characters */
+
+	for (q = string->str_data; *p; p++)
+		if (*p != '$' && *p != ',')
+			*q++ = *p;
+
+	node->nod_desc.dsc_address = (UCHAR *) string->str_data;
+	node->nod_desc.dsc_length = q - string->str_data;
+
+	return &node->nod_desc;
+}
+
+
+FRM FORM_lookup_form(DBB database, TEXT * string)
+{
+/**************************************
+ *
+ *	F O R M _ l o o k u p _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup a form by name.
+ *
+ **************************************/
+	int *handle, *transaction;
+	STATUS status[20];
+	FRM form;
+	SYM symbol;
+	USHORT l, width, height;
+
+/* Check to see if form is already defined */
+
+	l = strlen(string);
+
+	for (symbol = HSH_lookup(string, l); symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_form &&
+			(form = (FRM) symbol->sym_object) &&
+			form->frm_database == database) return form;
+
+/* Get set up for form lookup */
+
+	if (!pyxis_window) {
+		width = 0;
+		height = 40;
+		pyxis__create_window(&pyxis_window, 0, 0, &width, &height);
+		if (!pyxis_window) {
+			ERRQ_print_error(459, NULL, NULL, NULL, NULL, NULL);	/* Msg459 Unable to create form window */
+			return NULL;
+		}
+		sw_forms = TRUE;
+	}
+
+/* Make sure PYXIS$FORMS exists in the database */
+
+	if (!(database->dbb_flags & DBB_form_init)) {
+		PYXIS_define_forms_relation(&database->dbb_handle);
+		database->dbb_flags |= DBB_form_init;
+	}
+
+	transaction = PRO_transaction(database, FALSE);
+	pyxis__load_form(status, &database->dbb_handle, &transaction,
+					 &handle, 0, string);
+
+	if (!handle)
+		return NULL;
+
+	return register_form(database, handle, string);
+}
+
+
+FFL FORM_lookup_field(FRM form, TEXT * string)
+{
+/**************************************
+ *
+ *	F O R M _ l o o k u p _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup field name in form.  If we can't find it, return NULL.
+ *
+ **************************************/
+	FFL field;
+
+	for (field = form->frm_fields; field; field = field->ffl_next)
+		if (!strcmp(string, field->ffl_name))
+			return field;
+
+	return NULL;
+}
+
+
+int FORM_put_field( NOD from, NOD node)
+{
+/**************************************
+ *
+ *	F O R M _ p u t _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write data to a form.
+ *
+ **************************************/
+	DSC *desc, desc2;
+	FFL field;
+	TEXT buffer[1024], *p;
+	USHORT length, index;
+	int *blob;
+	STATUS status_vector[20], status;
+
+	desc = EVAL_value(from);
+	field = (FFL) node->nod_arg[e_ffl_field];
+
+	if (desc->dsc_missing & DSC_missing)
+		PYXIS_set_field_options(field->ffl_handle, 0,
+								PYXIS_data_present | PYXIS_update_present,
+								PYXIS_clear);
+	else if (desc->dsc_dtype != dtype_blob)
+		PYXIS_put_desc(field->ffl_handle, desc);
+	else {
+		blob = EXEC_open_blob(from);
+		for (index = 1;; index++) {
+			if ((status = gds__get_segment(status_vector,
+										   GDS_REF(blob),
+										   GDS_REF(length),
+										   sizeof(buffer),
+										   buffer)) && status != gds__segment)
+				break;
+			p = buffer + length;
+			*p = 0;
+			if (length && *--p == '\n')
+				*p = 0;
+			PYXIS_put_segment(field->ffl_handle, buffer, index);
+		}
+		gds__close_blob(status_vector, GDS_REF(blob));
+	}
+
+	return TRUE;
+}
+
+
+void FORM_reset(void)
+{
+/**************************************
+ *
+ *	F O R M _ r e s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset after execution of a request involving forms.
+ *
+ **************************************/
+
+	sw_forms = FALSE;
+	pyxis__suspend_window(&pyxis_window);
+}
+
+
+void FORM_update( NOD node)
+{
+/**************************************
+ *
+ *	F O R M _ u p d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute "form update".
+ *
+ **************************************/
+	NOD list;
+	FRM form;
+	FFL *ptr, *end, field;
+	DSC *desc;
+	USHORT l;
+	TEXT *prompt, temp[256], *p, *q;
+	int *tag;
+
+	form = (FRM) node->nod_arg[e_fup_form];
+
+/* Start by marking all fields as non-updatable */
+
+	clear_fields(form);
+
+
+/* Mark given fields as updatable */
+
+	if (list = node->nod_arg[e_fup_fields])
+		for (ptr = (FFL *) list->nod_arg, end = ptr + list->nod_count;
+			 ptr < end; ptr++) {
+			PYXIS_set_field_options((*ptr)->ffl_handle, 0, PYXIS_updatable,
+									PYXIS_updatable);
+
+			/* Make sure that the current form field is reset (bug 3148) */
+
+			PYXIS_delete_named_attribute((*ptr)->ffl_handle,
+										 att_current_index);
+		}
+
+	sprintf(temp, "%s to continue, %s to stop",
+			PYXIS_get_keyname(pyxis_window, PYXIS__KEY_ENTER),
+			PYXIS_get_keyname(pyxis_window, PYXIS__KEY_PF1));
+	prompt = temp;
+
+	if (node->nod_arg[2]) {
+		desc = EVAL_value(node->nod_arg[e_fup_tag]);
+		if (!(desc->dsc_missing & DSC_missing)) {
+			p = temp;
+			if (l = MOVQ_get_string(desc, &q, temp, sizeof(temp)))
+				do
+					*p++ = *q++;
+				while (--l);
+			*p = 0;
+			prompt = temp;
+		}
+	}
+
+	update_form(form, prompt);
+}
+
+
+static void clear_fields( FRM form)
+{
+/**************************************
+ *
+ *	c l e a r _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset various fields in form.
+ *
+ **************************************/
+	FFL field;
+
+	for (field = form->frm_fields; field; field = field->ffl_next)
+		PYXIS_set_field_options(field->ffl_handle, 0,
+								PYXIS_updatable, PYXIS_clear);
+}
+
+
+static FRM register_form( DBB database, int *handle, TEXT * string)
+{
+/**************************************
+ *
+ *	r e g i s t e r _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Register newly fetched or created form with QLI
+ *	data structures.
+ *
+ **************************************/
+	int *attribute, *object;
+	FRM form;
+	FFL field;
+	SYM symbol;
+	TEXT *p;
+	USHORT l;
+
+	l = strlen(string);
+	PRO_transaction(database, FALSE);
+
+/* Allocate form block with enough space to hold name.  Upcase and copy name */
+
+	form = (FRM) ALLOCPV(type_frm, l);
+	form->frm_database = database;
+	form->frm_handle = handle;
+	strcpy(form->frm_name, string);
+	form->frm_next = database->dbb_forms;
+	database->dbb_forms = form;
+
+	form->frm_symbol = symbol = (SYM) ALLOCPV(type_sym, 0);
+	symbol->sym_type = SYM_form;
+	symbol->sym_string = form->frm_name;
+	symbol->sym_length = l;
+	symbol->sym_object = (BLK) form;
+	HSH_insert(symbol);
+
+/* Pick up field names */
+
+	for (attribute = NULL;
+		 attribute =
+		 PYXIS_find_object(form->frm_handle, attribute, att_field, TRUE);) {
+		object = PYXIS_get_value(attribute);
+		if (p = PYXIS_get_attribute_value(object, att_field_name)) {
+			l = strlen(p);
+			field = (FFL) ALLOCPV(type_ffl, l);
+			field->ffl_handle = object;
+			field->ffl_form = form;
+			strcpy(field->ffl_name, p);
+			field->ffl_next = form->frm_fields;
+			form->frm_fields = field;
+			field->ffl_symbol = symbol = (SYM) ALLOCPV(type_sym, 0);
+			symbol->sym_string = field->ffl_name;
+			symbol->sym_length = l;
+			symbol->sym_object = (BLK) field;
+			field->ffl_dtype =
+				(int) PYXIS_get_attribute_value(field->ffl_handle, att_dtype);
+			field->ffl_scale =
+				(int) PYXIS_get_attribute_value(field->ffl_handle, att_scale);
+			field->ffl_length =
+				(int) PYXIS_get_attribute_value(field->ffl_handle,
+												att_length);
+		}
+	}
+
+	return form;
+}
+
+
+static void set_form( int *form)
+{
+/**************************************
+ *
+ *	s e t _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Push form, is form has not been pushed.
+ *
+ **************************************/
+
+	if (form == current_form)
+		return;
+
+	pyxis__pop_window(&pyxis_window);
+	current_form = form;
+
+	if (form)
+		PYXIS_push_form(pyxis_window, form, TRUE);
+}
+
+
+static void update_form( FRM form, TEXT * string)
+{
+/**************************************
+ *
+ *	u p d a t e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Assuming fields have been set up, drive form.
+ *
+ **************************************/
+	USHORT c;
+	int *tag;
+
+	set_form(form->frm_handle);
+
+/* Set up tag, if given */
+
+	if (string) {
+		tag = PYXIS_create_object(string, att_literal_string);
+		PYXIS_push_tag(pyxis_window, tag);
+	}
+
+/* Make sure that the current form field is reset (bug 3148) */
+
+	PYXIS_delete_named_attribute(form->frm_handle, att_current_index);
+
+/* Drive form until abort */
+
+	for (;;) {
+		PYXIS_update(pyxis_window, form->frm_handle, 0, &c);
+		if (!c || c == PYXIS__KEY_ENTER || c == PYXIS__KEY_PF1)
+			break;
+	}
+
+/* Cleanup tag, if appropriate */
+
+	if (string) {
+		pyxis__pop_window(&pyxis_window);
+		pyxis__delete(&tag);
+	}
+
+/* Clean exit on ENTER, otherwise abort */
+
+	if (c == PYXIS__KEY_ENTER)
+		return;
+
+	FORM_reset();
+	EXEC_abort();
+}
diff --git a/src/qli/form.h b/src/qli/form.h
new file mode 100644
index 0000000000..2e4c2c25d2
--- /dev/null
+++ b/src/qli/form.h
@@ -0,0 +1,62 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		form.h
+ *	DESCRIPTION:	Form interface definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_FORM_H_
+#define _QLI_FORM_H_
+
+/* Form block */
+
+typedef struct frm {
+    struct blk	frm_header;
+    struct frm	*frm_next;		/* Next form in database */
+    struct dbb	*frm_database;		/* Parent database */
+    struct sym	*frm_symbol;		/* Associated symbol */
+    struct ffl	*frm_fields;		/* Form fields */
+    int		*frm_handle;
+    TEXT	frm_name[2];
+} *FRM;
+
+/* Form field block */
+
+typedef struct ffl {
+    struct blk	ffl_header;
+    FRM		ffl_form;		/* Parent form */
+    struct sym	*ffl_symbol;		/* Associated symbol */
+    struct ffl	*ffl_next;		/* Next field in form */
+    int		*ffl_handle;
+    USHORT	ffl_dtype;
+    SSHORT	ffl_scale;
+    USHORT	ffl_length;
+    TEXT	ffl_name[2];
+} *FFL;
+
+/* Menu block */
+
+typedef struct men {
+    struct blk	men_header;
+    struct men	*men_next;		/* Next menu in system */
+    int		*men_handle;		/* Internal menu handle */
+    TEXT	men_menu[2];
+} *MEN;
+
+#endif /* _QLI_FORM_H_ */
diff --git a/src/qli/form_proto.h b/src/qli/form_proto.h
new file mode 100644
index 0000000000..1330dc4de3
--- /dev/null
+++ b/src/qli/form_proto.h
@@ -0,0 +1,40 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		form_proto.h
+ *	DESCRIPTION:	Prototype header file for form.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_FORM_PROTO_H_
+#define _QLI_FORM_PROTO_H_
+
+extern struct frm	*FORM_default_form (struct dbb *, TEXT *);
+extern void		FORM_display (struct nod *);
+extern void		FORM_edit (struct dbb *, TEXT *);
+extern void		FORM_fini (void);
+extern void		FORM_finish (struct dbb *);
+extern int		FORM_get_blob (struct nod *, struct par *);
+extern struct dsc	*FORM_get_field (struct nod *);
+extern struct frm	*FORM_lookup_form (struct dbb *, TEXT *);
+extern struct ffl	*FORM_lookup_field (struct frm *, TEXT *);
+extern int		FORM_put_field (struct nod *, struct nod *);
+extern void		FORM_reset (void);
+extern void		FORM_update (struct nod *);
+
+#endif /* _QLI_FORM_PROTO_H_ */
diff --git a/src/qli/forma_proto.h b/src/qli/forma_proto.h
new file mode 100644
index 0000000000..d2cd7fa2d6
--- /dev/null
+++ b/src/qli/forma_proto.h
@@ -0,0 +1,34 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		forma_proto.h
+ *	DESCRIPTION:	Prototype header file for format.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_FORMA_PROTO_H_
+#define _QLI_FORMA_PROTO_H_
+
+extern int		FMT_expression (struct nod *);
+extern TEXT		*FMT_format (struct lls *);
+extern struct nod	*FMT_list (struct nod *);
+extern void		FMT_print (struct nod *, struct prt *);
+extern void		FMT_put (TEXT *, struct prt *);
+extern void		FMT_report (struct rpt *);
+
+#endif /* _QLI_FORMA_PROTO_H_ */
diff --git a/src/qli/format.cpp b/src/qli/format.cpp
new file mode 100644
index 0000000000..4aa56c438c
--- /dev/null
+++ b/src/qli/format.cpp
@@ -0,0 +1,1710 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		format.c
+ *	DESCRIPTION:	Print planner and formatter
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/time.h"
+#include "../qli/dtr.h"
+#include "../qli/exe.h"
+#include "../include/jrd/gds.h"
+#include "../qli/compile.h"
+#include "../qli/report.h"
+#include "../qli/format.h"
+#include "../qli/all_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/eval_proto.h"
+#include "../qli/exe_proto.h"
+#include "../qli/form_proto.h"
+#include "../qli/forma_proto.h"
+#include "../qli/mov_proto.h"
+#include "../qli/picst_proto.h"
+
+extern USHORT QLI_columns, QLI_lines, sw_forms;
+
+#ifdef DEV_BUILD
+extern USHORT QLI_hex_output;
+
+#define PRINTABLE(x) ((((x) >= ' ') && ((x) <= 127)) ||\
+		     ((x) == '\n')||\
+		     ((x) == '\t')||\
+		     ((x) == '\r')||\
+		     ((x) == '\f'))
+#endif
+
+static int decompose_header(SCHAR *, SCHAR **, SSHORT *);
+static void format_index(ITM, NOD, USHORT);
+static TEXT *format_report(VEC, USHORT, USHORT *);
+static void format_value(ITM, int);
+static TEXT *get_buffer(STR *, TEXT *, USHORT);
+static int match_expr(NOD, NOD);
+static void print_blobs(PRT, ITM *, ITM *);
+#ifdef JPN_EUC
+static int print_line(ITM, TEXT **, USHORT *);
+#else
+static int print_line(ITM, TEXT **);
+#endif
+static void put_line(PRT, TEXT **, TEXT *, TEXT);
+static void report_break(BRK, VEC *, int);
+static void report_item(ITM, VEC *, USHORT *);
+static void report_line(NOD, VEC *);
+
+static STR fmt_buffer, blob_buffer;
+
+#define BOTTOM_INIT			get_buffer (&fmt_buffer, NULL, 1024)
+#define BOTTOM_CHECK(ptr, length)	ptr = get_buffer (&fmt_buffer, ptr, length)
+#define BOTTOM_LINE			fmt_buffer->str_data
+
+#define BUFFER_INIT			get_buffer (&fmt_buffer, NULL, 1024)
+#define BUFFER_CHECK(ptr, length)	ptr = get_buffer (&fmt_buffer, ptr, length)
+#define BUFFER_BEGINNING		fmt_buffer->str_data
+#define BUFFER_REMAINING(ptr)		(fmt_buffer->str_length - (ptr - fmt_buffer->str_data))
+
+#ifdef JPN_EUC
+#define EUC_FORMATTING_ERROR \
+    { \
+    ERRQ_msg_put (501);			/* Msg501 bad kanji found while formatting output */
+ERRQ_exit(FINI_ERROR);
+\}
+#endif
+
+
+int FMT_expression( NOD node)
+{
+/**************************************
+ *
+ *	F M T _ e x p r e s s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle formatting for FORMAT expression.  Return editted
+ *	length.
+ *
+ **************************************/
+	PIC picture;
+	NOD sub;
+	FLD field;
+
+	sub = node->nod_arg[e_fmt_value];
+	picture = PIC_analyze(node->nod_arg[e_fmt_edit], &sub->nod_desc);
+	node->nod_arg[e_fmt_picture] = (NOD) picture;
+
+	if (node->nod_type == nod_reference)
+		node = node->nod_arg[0];
+
+	if (!(picture->pic_missing) && (node->nod_type == nod_field) &&
+		(field = (FLD) node->nod_arg[e_fld_field]) && field->fld_missing)
+		PIC_missing(field->fld_missing, picture);
+
+	return picture->pic_length;
+}
+
+
+TEXT *FMT_format(LLS stack)
+{
+/**************************************
+ *
+ *	F M T _ f o r m a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format a print line.  Figure out spacing, print formats, and
+ *	headers.  Return a pointer to the header string.
+ *
+ **************************************/
+	ITM item, item2;
+	STR header;
+	NOD value;
+	FLD field;
+	PIC picture;
+	SSHORT segment;
+	USHORT i, j, l, offset, max_offset, number_segments, n, lengths[10], *ptr,
+		flag;
+	DSC *desc;
+	LLS temp, temp2;
+	TEXT *line, *p, *q, *segments[10], *bottom;
+	ULONG size;
+#ifdef JPN_EUC
+	TEXT **p2;
+#endif /* JPN_EUC */
+
+/* Start by inverting the item stack into an item que */
+
+	temp = stack;
+	stack = NULL;
+
+	if (fmt_buffer) {
+		ALL_release(fmt_buffer);
+		fmt_buffer = NULL;
+	}
+
+	while (temp) {
+		item = (ITM) LLS_POP(&temp);
+		LLS_PUSH(item, &stack);
+	}
+
+/* Make a pass thru print items computing print lengths and header
+   lengths, and the number of header segments. */
+
+	number_segments = offset = max_offset = 0;
+	bottom = BOTTOM_INIT;
+
+	for (temp = stack; temp; temp = temp->lls_next) {
+		item = (ITM) temp->lls_object;
+		switch (item->itm_type) {
+		case item_column:
+			offset = (item->itm_count) ? item->itm_count - 1 : 0;
+			continue;
+
+		case item_skip:
+		case item_new_page:
+			offset = 0;
+			continue;
+
+		case item_space:
+			offset += item->itm_count;
+			continue;
+
+		case item_tab:
+			offset = (offset & ~7) + item->itm_count * 8;
+			continue;
+		}
+
+		if (item->itm_type == item_value && (value = item->itm_value)) {
+			if (value->nod_type == nod_reference)
+				value = value->nod_arg[0];
+			format_index(item, value, TRUE);
+		}
+
+		if (item->itm_query_header)
+			if (*item->itm_query_header == '-')
+				item->itm_query_header = NULL;
+			else {
+				n =
+					decompose_header(item->itm_query_header, segments,
+									 lengths);
+				number_segments = MAX(n, number_segments);
+#ifdef JPN_EUC
+				for (j = 0, ptr = lengths, p2 = segments; j < n;
+					 j++, ptr++, p2++) {
+					USHORT x;
+
+					/* The "display width" of a EUC string is not the length 
+					   in bytes but the length of corresponding SJIS string */
+
+					if (KANJI_sjis_len(*p2, *ptr, &x))
+						EUC_FORMATTING_ERROR;	/* See macro above */
+					item->itm_header_length = MAX(item->itm_header_length,
+												  (QLI_euc_justify ? x :
+												   *ptr));
+				}
+#else
+				for (j = 0, ptr = lengths; j < n; j++, ptr++)
+					item->itm_header_length =
+						MAX(item->itm_header_length, *ptr);
+#endif /* JPN_EUC */
+			}
+
+		format_value(item, 0);
+
+		/* If the item would overflow the line, reset to beginning of line */
+
+		if (offset + MAX(item->itm_print_length, item->itm_header_length) >
+			QLI_columns) offset = 0;
+
+		/* Before we blindly format the header, make sure there already isn't
+		   header information in the same location */
+
+		if (item->itm_query_header) {
+			n = MAX(item->itm_print_length, item->itm_header_length);
+			BOTTOM_CHECK(bottom, offset);
+			q = BOTTOM_LINE + offset;
+			while (bottom < q)
+				*bottom++ = ' ';
+			flag = TRUE;
+			if (offset && q[-1] != ' ')
+				flag = FALSE;
+			else if (l = MIN(n, bottom - q)) {
+				p = bottom;
+				while (--l)
+					if (*p++ != ' ') {
+						flag = FALSE;
+						break;
+					}
+				if (flag && p < bottom && *p != ' ')
+					flag = FALSE;
+			}
+			if (flag && (l = n)) {
+				BOTTOM_CHECK(bottom, bottom - BOTTOM_LINE + n);
+				do
+					*bottom++ = '=';
+				while (--l);
+			}
+			else {
+				item->itm_query_header = NULL;
+				item->itm_header_length = 0;
+			}
+		}
+
+		/* Now that have settled the issue of header, decide where to put
+		   the field and header */
+
+		n = MAX(item->itm_print_length, item->itm_header_length);
+		item->itm_print_offset = offset + (n - item->itm_print_length) / 2;
+		item->itm_header_offset = offset + n / 2;
+		offset += n + 1;
+		max_offset = MAX(max_offset, offset);
+	}
+
+/* Make another pass checking for overlapping fields */
+
+	for (temp = stack; temp; temp = temp->lls_next) {
+		item = (ITM) temp->lls_object;
+		if (item->itm_type != item_value)
+			continue;
+		for (temp2 = temp->lls_next; temp2; temp2 = temp2->lls_next) {
+			item2 = (ITM) temp2->lls_object;
+			if (item2->itm_type != item_value)
+				continue;
+			if (item2->itm_print_offset <
+				item->itm_print_offset + item->itm_print_length) {
+				item->itm_flags |= ITM_overlapped;
+				break;
+			}
+		}
+	}
+
+	if (number_segments == 0)
+		return NULL;
+
+/* Allocate a string block big enough to hold all lines of the print header */
+
+	size = (max_offset + 1) * (number_segments + 1) + 2;
+
+#ifdef JPN_EUC
+	size = size * 2;			/* prepare for SJIS->EUC expansion! */
+#endif /*JPN_EUC */
+
+
+	if (size >= 60000)
+		ERRQ_print_error(482, (TEXT *) max_offset,
+						 (TEXT *) (number_segments + 1), NULL, NULL, NULL);
+
+	header = (STR) ALLOCDV(type_str, size);
+	p = header->str_data;
+
+/* Generate the various lines of the header line at a time. */
+
+	for (j = 0; j < number_segments; j++) {
+#ifdef JPN_EUC
+		USHORT n_half_kanas = 0;	/* number of half kanas in the header line */
+#endif /* JPN_EUC */
+		*p++ = '\n';
+		line = p;
+		for (temp = stack; temp; temp = temp->lls_next) {
+			item = (ITM) temp->lls_object;
+			if (item->itm_type != item_value)
+				continue;
+			n = decompose_header(item->itm_query_header, segments, lengths);
+			segment = j - (number_segments - n);
+			if (segment < 0)
+				continue;
+			l = lengths[segment];
+			q = line + item->itm_header_offset - l / 2;
+#ifdef JPN_EUC
+			if (QLI_euc_justify) {
+				USHORT x;
+
+				/* use SJIS length to compute the center of an EUC header */
+
+				if (KANJI_sjis_len(segments[segment], l, &x))
+					EUC_FORMATTING_ERROR;	/* See macro above */
+				q = line + item->itm_header_offset - x / 2 + n_half_kanas;
+				n_half_kanas += l - x;
+			}
+#endif /* JPN_EUC */
+
+			while (p < q)
+				*p++ = ' ';
+			q = segments[segment];
+			if (l)
+				do
+					*p++ = *q++;
+				while (--l);
+		}
+	}
+
+/* Make one last pass to put in underlining of headers */
+
+	if (l = bottom - BOTTOM_LINE) {
+		*p++ = '\n';
+		bottom = BOTTOM_LINE;
+		do
+			*p++ = *bottom++;
+		while (--l);
+	}
+
+	*p++ = '\n';
+	*p++ = '\n';
+	*p = 0;
+
+	return header->str_data;
+}
+
+
+NOD FMT_list(NOD list)
+{
+/**************************************
+ *
+ *	F M T _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Rebuild and format a list of stuff for vertical formatting.
+ *
+ **************************************/
+	ITM new_item, *item, *end, *new_ptr;
+	SYM name;
+	FLD field;
+	CON constant;
+	NOD value, new;
+	USHORT column, expression;
+	DSC *desc;
+	STR header;
+	TEXT *p, *q, c;
+
+	new = (NOD) ALLOCDV(type_nod, list->nod_count * 2 + 1);
+	new->nod_type = nod_list;
+	new_ptr = (ITM *) new->nod_arg;
+	column = 0;
+
+	for (item = (ITM *) list->nod_arg, end = item + list->nod_count;
+		 item < end; item++) {
+		if ((*item)->itm_type != item_value || !(value = (*item)->itm_value))
+			continue;
+		(*item)->itm_flags |= ITM_overlapped;
+		format_value(*item, PIC_suppress_blanks);
+		if (value->nod_type == nod_reference)
+			value = value->nod_arg[0];
+		if (value->nod_type == nod_field ||
+			value->nod_type == nod_variable ||
+			value->nod_type == nod_function) {
+			expression = FALSE;
+			if (value->nod_type != nod_function) {
+				field = (FLD) value->nod_arg[e_fld_field];
+				name = field->fld_name;
+				format_index(*item, value, FALSE);
+			}
+			else
+				name = ((FUN) value->nod_arg[e_fun_function])->fun_symbol;
+		}
+		else
+			expression = TRUE;
+		*new_ptr++ = new_item = (ITM) ALLOCD(type_itm);
+		new_item->itm_type = item_value;
+		new_item->itm_value = value = (NOD) ALLOCDV(type_nod, 0);
+		value->nod_type = nod_constant;
+		value->nod_flags |= NOD_local;
+		value->nod_desc.dsc_dtype = dtype_text;
+		if (!expression && (!(q = (*item)->itm_query_header) || *q != '-')) {
+			if (q) {
+				if (*q != '"' && *q != '\'')
+					value->nod_desc.dsc_address = (UCHAR *) q;
+				else {
+					header = (STR) ALLOCDV(type_str, strlen(q));
+					p = header->str_data;
+					value->nod_desc.dsc_address = (UCHAR *) p;
+					while (c = *q++) {
+						while (*q != c)
+							*p++ = *q++;
+						*p++ = ' ';
+						q++;
+					}
+					p[-1] = 0;
+				}
+				value->nod_desc.dsc_length =
+					strlen(value->nod_desc.dsc_address);
+			}
+			else {
+				value->nod_desc.dsc_length = name->sym_length;
+				value->nod_desc.dsc_address = (UCHAR *) name->sym_string;
+			}
+			column = MAX(column, value->nod_desc.dsc_length);
+			new_item->itm_picture = PIC_analyze(0, &value->nod_desc);
+		}
+		else {
+			desc = EVAL_value(value);
+			new_item->itm_picture = PIC_analyze(0, desc);
+		}
+
+		if (!new_item->itm_picture->pic_missing &&
+			value->nod_type == nod_field && field->fld_missing)
+			PIC_missing(field->fld_missing, new_item->itm_picture);
+
+		*new_ptr++ = *item;
+	}
+
+	*new_ptr++ = new_item = (ITM) ALLOCD(type_itm);
+	new_item->itm_type = item_skip;
+	new_item->itm_count = 1;
+	column += 2;
+
+	for (item = (ITM *) list->nod_arg, end = item + list->nod_count;
+		 item < end; item++) {
+		if ((*item)->itm_type != item_value || !(value = (*item)->itm_value))
+			continue;
+		if (value->nod_type == nod_reference)
+			value = value->nod_arg[0];
+		(*item)->itm_print_offset = column;
+	}
+
+	new->nod_count = new_ptr - (ITM *) new->nod_arg;
+
+	return new;
+}
+
+
+void FMT_print( NOD list, PRT print)
+{
+/**************************************
+ *
+ *	F M T _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format a print line.  Return the number of lines printed.
+ *
+ **************************************/
+	ITM item;
+	USHORT l, do_line;
+	DSC *desc;
+	TEXT *p, *q, *buffer, *pp;
+	NOD *ptr, *end;
+	RPT report;
+	BRK control;
+	STATUS status_vector[20];
+#ifdef JPN_EUC
+	USHORT n_half_kanas = 0;	/* number of half kanas in the current line */
+#endif /* JPN_EUC */
+
+/* Now go thru and make up the first line */
+
+	if (!list)
+		return;
+	p = BUFFER_INIT;
+	end = list->nod_arg + list->nod_count;
+
+	for (ptr = list->nod_arg; ptr < end; ptr++) {
+		item = (ITM) * ptr;
+
+		/* Handle formating directives.  Most have been translated into
+		   column assignments and are no-ops. */
+
+		buffer = BUFFER_BEGINNING;
+
+		switch (item->itm_type) {
+		case item_value:
+			break;
+
+		case item_new_page:
+			if (print->prt_new_page) {
+				put_line(print, &p, buffer, '\n');
+				(*print->prt_new_page) (print, FALSE);
+			}
+			else {
+				put_line(print, &p, buffer, '\f');
+				QLI_skip_line = FALSE;
+			}
+			continue;
+
+		case item_skip:
+			put_line(print, &p, buffer, '\n');
+			print_blobs(print, list->nod_arg, ptr);
+			for (l = item->itm_count - 1; l > 0; --l)
+				put_line(print, &p, buffer, '\n');
+			QLI_skip_line = FALSE;
+			continue;
+
+		case item_column_header:
+			if ((report = print->prt_report) && report->rpt_column_header)
+				FMT_put(report->rpt_column_header, print);
+			continue;
+
+		case item_report_header:
+			if ((report = print->prt_report) && report->rpt_header)
+				FMT_put(report->rpt_header, print);
+			continue;
+
+		case item_column:
+		case item_tab:
+		case item_space:
+		default:
+			continue;
+		}
+
+		/* Handle print items.  Start by by spacing out to the correct column,
+		   forcing a new line if required. */
+
+		BUFFER_CHECK(p, item->itm_print_offset + item->itm_print_length + 2);
+		buffer = BUFFER_BEGINNING;
+		q = buffer + item->itm_print_offset;
+#ifdef JPN_EUC
+		if (QLI_euc_justify)
+			q += n_half_kanas;	/* advance the pointer for next item */
+#endif /* JPN_EUC */
+		if (p > q) {
+			put_line(print, &p, buffer, '\n');
+			print_blobs(print, list->nod_arg, ptr);
+#ifdef JPN_EUC
+			if (QLI_euc_justify) {
+				q -= n_half_kanas;	/* undo the previous addition of blanks */
+				n_half_kanas = 0;	/* start the new line, with no padded blanks */
+			}
+#endif /* JPN_EUC */
+		}
+		while (p < q)
+			*p++ = ' ';
+
+		/* Next, handle simple formated values */
+
+		if (item->itm_dtype != dtype_blob) {
+#ifdef JPN_EUC
+			TEXT *oldp;
+			oldp = p;
+#endif /* JPN_EUC */
+			desc = EVAL_value(item->itm_value);
+			if (!(desc->dsc_missing & DSC_missing))
+				PIC_edit(desc, item->itm_picture, &p, BUFFER_REMAINING(p));
+			else if (item->itm_picture->pic_missing)
+				PIC_edit(desc, item->itm_picture->pic_missing, &p,
+						 BUFFER_REMAINING(p));
+#ifdef JPN_EUC
+			if (QLI_euc_justify) {
+				USHORT x, len;
+
+				/* compute the padding for each item being printed */
+
+				len = p - oldp;
+				if (KANJI_sjis_len(q, len, &x))
+					EUC_FORMATTING_ERROR;	/* See macro above */
+				n_half_kanas += len - x;
+			}
+#endif /* JPN_EUC */
+			continue;
+		}
+
+		/* Finally, handle blobs */
+
+		if (!(item->itm_stream = EXEC_open_blob(item->itm_value)))
+			continue;
+
+#ifdef JPN_EUC
+		if (print_line(item, &p, &n_half_kanas) != EOF)
+#else
+		if (print_line(item, &p) != EOF)
+#endif /* JPN_EUC */
+			if (item->itm_flags & ITM_overlapped)
+				for (;;) {
+					put_line(print, &p, buffer, '\n');
+					while (p < q)
+						*p++ = ' ';
+#ifdef JPN_EUC
+					n_half_kanas = 0;
+					if (print_line(item, &p, &n_half_kanas) == EOF)
+#else
+					if (print_line(item, &p) == EOF)
+#endif /* JPN_EUC */
+						break;
+				}
+	}
+
+	put_line(print, &p, buffer, '\n');
+
+/* Now go back until all blobs have been fetched */
+
+	print_blobs(print, list->nod_arg, end);
+
+/* Finish by closing all blobs */
+
+	for (ptr = list->nod_arg; ptr < end; ptr++) {
+		item = (ITM) * ptr;
+		if (item->itm_dtype == dtype_blob && item->itm_stream)
+			gds__close_blob(status_vector, GDS_REF(item->itm_stream));
+	}
+}
+
+
+void FMT_put( TEXT * line, PRT print)
+{
+/**************************************
+ *
+ *	F M T _ p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out an output file.   Write
+ *	fewer than 256 characters at at time
+ *	to avoid annoying VMS.
+ *
+ **************************************/
+	TEXT *p, *q, *end, buffer[256];
+
+	for (p = line; *p; p++)
+		if (*p == '\n' || *p == '\f')
+			--print->prt_lines_remaining;
+
+	end = buffer + sizeof(buffer) - 1;
+	q = line;
+
+	if (print && print->prt_file)
+		while (*q) {
+			for (p = buffer; p < end && *q;)
+				*p++ = *q++;
+			*p = 0;
+			ib_fprintf((IB_FILE *) print->prt_file, "%s", buffer);
+		}
+	else {
+		if (sw_forms)
+			FORM_reset();
+		while (*q) {
+			for (p = buffer; p < end && *q;)
+				*p++ = *q++;
+			*p = 0;
+#ifdef DEV_BUILD
+			if (QLI_hex_output) {
+				/* Hex mode output to assist debugging of multicharset work */
+
+				for (p = buffer; p < end && *p; p++)
+					if (PRINTABLE(*p))
+						ib_fprintf(ib_stdout, "%c", *p);
+					else
+						ib_fprintf(ib_stdout, "[%02.2X]", *(UCHAR *) p);
+			}
+			else
+#endif
+				ib_fprintf(ib_stdout, "%s", buffer);
+		}
+		QLI_skip_line = TRUE;
+	}
+}
+
+
+void FMT_report( RPT report)
+{
+/**************************************
+ *
+ *	F M T _ r e p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format a report.
+ *
+ **************************************/
+	BRK control;
+	NOD list;
+	USHORT lengths[16], n, i, max_segment, column, width, max_offset;
+	TEXT *segments[16], *p, *q, *end;
+	STR string;
+	VEC columns_vec;
+
+	if (fmt_buffer) {
+		ALL_release(fmt_buffer);
+		fmt_buffer = NULL;
+	}
+
+	width = report->rpt_columns;
+	columns_vec = (VEC) ALLOCDV(type_vec, 256);
+	columns_vec->vec_count = 256;
+	columns_vec->vec_object[0] = NULL;
+
+	report_break(report->rpt_top_rpt, &columns_vec, FALSE);
+	report_break(report->rpt_top_page, &columns_vec, FALSE);
+	report_break(report->rpt_top_breaks, &columns_vec, FALSE);
+
+	if (list = report->rpt_detail_line)
+		report_line(list, &columns_vec);
+
+	report_break(report->rpt_bottom_breaks, &columns_vec, TRUE);
+	report_break(report->rpt_bottom_page, &columns_vec, TRUE);
+	report_break(report->rpt_bottom_rpt, &columns_vec, TRUE);
+
+	report->rpt_column_header = format_report(columns_vec, width, &width);
+
+/* Handle report name, if any */
+
+	if (report->rpt_name) {
+		n = decompose_header(report->rpt_name, segments, lengths);
+		for (i = 0; i < n; i++)
+			width = MAX(width, lengths[i] + 15);
+		string = (STR) ALLOCDV(type_str, width * n);
+		report->rpt_header = p = string->str_data;
+		for (i = 0; i < n; i++) {
+			column = (width - lengths[i]) / 2;
+			if (column > 0)
+				do
+					*p++ = ' ';
+				while (--column);
+			q = segments[i];
+			end = q + lengths[i];
+			while (q < end)
+				*p++ = *q++;
+			*p++ = '\n';
+		}
+	}
+}
+
+
+static int decompose_header(
+							SCHAR * string,
+							SCHAR ** segments, SSHORT * lengths)
+{
+/**************************************
+ *
+ *	d e c o m p o s e _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Decompose a header string (aka field name) into segments.
+ *	Return the address of and length of each segment (in arrays)
+ *	and the number of segments.
+ *
+ **************************************/
+	TEXT c;
+	SSHORT n;
+
+	if (!string)
+		return 0;
+
+	n = 0;
+
+/* Handle simple name first */
+
+	if (*string != '"' && *string != '\'')
+		while (*string) {
+			*segments = string;
+			while (*string && *string != '_')
+				string++;
+			*lengths++ = string - *segments++;
+			n++;
+			if (*string == '_')
+				string++;
+		}
+	else
+		while (c = *string++) {
+			*segments = string;
+			while (*string++ != c);
+			*lengths++ = string - *segments++ - 1;
+			n++;
+		}
+
+	return n;
+}
+
+
+static void format_index( ITM item, NOD field, USHORT print_flag)
+{
+/**************************************
+ *
+ *	f o r m a t _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format the label of a subscripted item.
+ *
+ **************************************/
+	NOD args, *ptr, *end, subscript;
+	USHORT l, length;
+	TEXT s[32], *p, *q, *r;
+	STR str;
+
+/* Don't bother with anything except non-indexed fields.  Also
+   ignore subscripted fields with user specified query headers. */
+
+	if (field->nod_type != nod_field ||
+		!(args = field->nod_arg[e_fld_subs]) ||
+		((p = item->itm_query_header) && (*p == '"' || *p == '\'')))
+		return;
+
+/* Start the label with the current query header, if any */
+
+	if (item->itm_query_header) {
+		q = item->itm_query_header;
+		l = strlen(item->itm_query_header);
+	}
+	else {
+		q = ((FLD) field->nod_arg[e_fld_field])->fld_name->sym_string;
+		l = ((FLD) field->nod_arg[e_fld_field])->fld_name->sym_length;
+	}
+
+	length = l + 2;
+	str = NULL;
+	p = get_buffer(&str, NULL, length + 32);
+	while (l--)
+		*p++ = *q++;
+
+/* Loop through the subscripts, adding to the label */
+
+	if (print_flag) {
+		r = "_[";
+		length++;
+	}
+	else
+		r = "[";
+	for (ptr = args->nod_arg, end = ptr + args->nod_count; ptr < end; ptr++) {
+		subscript = *ptr;
+		switch (subscript->nod_type) {
+		case nod_constant:
+			sprintf(s, "%ld", MOVQ_get_long(&subscript->nod_desc, 0));
+			q = s;
+			l = strlen(s);
+			break;
+
+		case nod_variable:
+		case nod_field:
+			q = ((FLD) subscript->nod_arg[e_fld_field])->fld_name->sym_string;
+			l = ((FLD) subscript->nod_arg[e_fld_field])->fld_name->sym_length;
+			break;
+
+		default:
+			/* Punt on anything but constants, fields, and variables */
+
+			ALL_release(str);
+			return;
+		}
+
+		length += l + 1;
+		p = get_buffer(&str, p, length);
+		while (*r)
+			*p++ = *r++;
+		while (l--)
+			*p++ = *q++;
+		r = ",";
+	}
+
+	if (*r == ',')
+		*p++ = ']';
+	*p = 0;
+	item->itm_query_header = str->str_data;
+}
+
+
+static TEXT *format_report( VEC columns_vec, USHORT width, USHORT * max_width)
+{
+/**************************************
+ *
+ *	f o r m a t _ r e p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format a report.  Figure out spacing, print formats, and
+ *	headers.  Return a pointer to the header string.
+ *
+ **************************************/
+	ITM item, item2;
+	STR header;
+	NOD node;
+	FLD field;
+	PIC picture;
+	SSHORT segment;
+	USHORT i, j, l, offset, max_offset, number_segments, n, lengths[10],
+		*ptr, flag, column_width, max_print_width, right_adjust, right_offset;
+	DSC *desc;
+	LLS *col, *col_end, temp;
+	TEXT *line, *p, *q, *segments[10], *bottom;
+#ifdef JPN_EUC
+	TEXT **p2;
+#endif /* JPN_EUC */
+
+/* Make a pass thru print items computing print lengths and header
+   lengths, and the number of header segments. */
+
+	number_segments = offset = max_offset = 0;
+	bottom = BOTTOM_INIT;
+
+	col = (LLS *) columns_vec->vec_object;
+	for (col_end = col + columns_vec->vec_count; col < col_end && *col; col++) {
+		column_width = max_print_width = 0;
+		right_adjust = FALSE;
+		for (temp = *col; temp; temp = temp->lls_next) {
+			item = (ITM) temp->lls_object;
+			switch (item->itm_type) {
+			case item_column:
+				offset = (item->itm_count) ? item->itm_count - 1 : 0;
+				continue;
+
+			case item_skip:
+			case item_new_page:
+			case item_report_header:
+			case item_column_header:
+				offset = 0;
+				continue;
+
+			case item_space:
+				offset += item->itm_count;
+				continue;
+
+			case item_tab:
+				offset = (offset & ~7) + item->itm_count * 8;
+				continue;
+
+			case item_value:
+				max_print_width =
+					MAX(max_print_width, item->itm_print_length);
+				node = item->itm_value;
+				if (node->nod_desc.dsc_dtype >= dtype_short &&
+					node->nod_desc.dsc_dtype <= dtype_double)
+					right_adjust = TRUE;
+			}
+
+			if (item->itm_query_header) {
+				n =
+					decompose_header(item->itm_query_header, segments,
+									 lengths);
+				number_segments = MAX(n, number_segments);
+#ifdef JPN_EUC
+				for (j = 0, ptr = lengths, p2 = segments; j < n;
+					 j++, ptr++, p2++) {
+					USHORT x;
+					if (KANJI_sjis_len(*p2, *ptr, &x))
+						EUC_FORMATTING_ERROR;	/* See macro above */
+					item->itm_header_length = MAX(item->itm_header_length,
+												  (QLI_euc_justify ? x :
+												   *ptr));
+				}
+#else
+				for (j = 0, ptr = lengths; j < n; j++, ptr++)
+					item->itm_header_length =
+						MAX(item->itm_header_length, *ptr);
+#endif /* JPN_EUC */
+			}
+
+			format_value(item, 0);
+			n = MAX(item->itm_print_length, item->itm_header_length);
+			column_width = MAX(column_width, n);
+		}
+
+		if (offset + column_width > width)
+			offset = 0;
+
+		right_offset = column_width - max_print_width / 2;
+
+		for (temp = *col; temp; temp = temp->lls_next) {
+			item = (ITM) temp->lls_object;
+			if (item->itm_type != item_value)
+				continue;
+
+			if (right_adjust)
+				item->itm_print_offset =
+					offset + right_offset - item->itm_print_length;
+			else
+				item->itm_print_offset =
+					offset + (column_width - item->itm_print_length) / 2;
+
+			item->itm_header_offset = offset + column_width / 2;
+
+			/* Before we blindly format the header, make sure there already isn't
+			   header information in the same location */
+
+			if (item->itm_query_header) {
+				BOTTOM_CHECK(bottom, offset);
+				q = BOTTOM_LINE + offset;
+				while (bottom < q)
+					*bottom++ = ' ';
+				flag = TRUE;
+				if (offset && q[-1] != ' ')
+					flag = FALSE;
+				else if (l = MIN(column_width, bottom - q)) {
+					p = bottom;
+					while (--l)
+						if (*p++ != ' ') {
+							flag = FALSE;
+							break;
+						}
+					if (flag && p < bottom && *p != ' ')
+						flag = FALSE;
+				}
+				if (flag) {
+					BOTTOM_CHECK(bottom, offset + column_width);
+					for (q = BOTTOM_LINE + offset + column_width; bottom < q;)
+						*bottom++ = '=';
+				}
+				else
+					item->itm_query_header = NULL;
+			}
+		}
+		offset += column_width + 1;
+		max_offset = MAX(max_offset, offset);
+	}
+
+	*max_width = max_offset;
+
+	if (number_segments == 0)
+		return NULL;
+
+/* Allocate a string block big enough to hold all lines of the print header */
+
+	l = bottom - BOTTOM_LINE;
+	header =
+		(STR) ALLOCDV(type_str,
+					  (max_offset + 1) * (number_segments + 1) + 2 + l);
+	p = header->str_data;
+
+/* Generate the various lines of the header line at a time. */
+
+	for (j = 0; j < number_segments; j++) {
+		*p++ = '\n';
+		line = p;
+		col = (LLS *) columns_vec->vec_object;
+		for (col_end = col + columns_vec->vec_count; col < col_end && *col;
+			 col++)
+			for (temp = *col; temp; temp = temp->lls_next) {
+				item = (ITM) temp->lls_object;
+				if (item->itm_type != item_value)
+					continue;
+				n =
+					decompose_header(item->itm_query_header, segments,
+									 lengths);
+				segment = j - (number_segments - n);
+				if (segment < 0)
+					continue;
+				l = lengths[segment];
+				q = line + item->itm_header_offset - l / 2;
+				while (p < q)
+					*p++ = ' ';
+				q = segments[segment];
+				if (l)
+					do
+						*p++ = *q++;
+					while (--l);
+			}
+	}
+
+/* Make one last pass to put in underlining of headers */
+
+	if (l = bottom - BOTTOM_LINE) {
+		*p++ = '\n';
+		bottom = BOTTOM_LINE;
+		do
+			*p++ = *bottom++;
+		while (--l);
+	}
+
+	*p++ = '\n';
+	*p++ = '\n';
+	*p = 0;
+
+	return header->str_data;
+}
+
+
+static void format_value( ITM item, int flags)
+{
+/**************************************
+ *
+ *	f o r m a t _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	NOD node;
+	DSC *desc;
+	PIC picture;
+	FLD field;
+
+	node = item->itm_value;
+	desc = &node->nod_desc;
+	item->itm_dtype = desc->dsc_dtype;
+	item->itm_sub_type = desc->dsc_sub_type;
+
+	if (desc->dsc_dtype == dtype_blob) {
+		item->itm_print_length = 40;
+		if (node->nod_type == nod_reference)
+			node = node->nod_arg[0];
+		if (node->nod_type == nod_field) {
+			field = (FLD) node->nod_arg[e_fld_field];
+			if (field->fld_segment_length)
+				item->itm_print_length = field->fld_segment_length;
+		}
+	}
+	else {
+		item->itm_picture = picture =
+			PIC_analyze(item->itm_edit_string, desc);
+
+		if (node->nod_type == nod_reference)
+			node = node->nod_arg[0];
+
+		if (node->nod_type == nod_field) {
+			field = (FLD) node->nod_arg[e_fld_field];
+			if ((field->fld_flags & FLD_array) && !node->nod_arg[e_fld_subs])
+				ERRQ_print_error(480, field->fld_name->sym_string, NULL, NULL,
+								 NULL, NULL);	/* msg 480 can not format unsubscripted array %s */
+		}
+
+		if (!(item->itm_picture->pic_missing) &&
+			(node->nod_type == nod_field) &&
+			(field = (FLD) node->nod_arg[e_fld_field]) && field->fld_missing)
+			PIC_missing(field->fld_missing, picture);
+		item->itm_print_length = picture->pic_length;
+		picture->pic_flags |= flags;
+	}
+}
+
+
+static TEXT *get_buffer( STR * str, TEXT * ptr, USHORT length)
+{
+/**************************************
+ *
+ *	g e t _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make sure we have a large enough buffer.
+ *	If the current one is too short, copy the
+ *	current buffer to the new one.
+ *
+ **************************************/
+	STR temp_str;
+	TEXT *p, *q;
+	USHORT l;
+
+	if (!*str) {
+		*str = (STR) ALLOCPV(type_str, length);
+		(*str)->str_length = length;
+		return (*str)->str_data;
+	}
+
+	if (length <= (*str)->str_length)
+		return (ptr) ? ptr : (*str)->str_data;
+
+	temp_str = (STR) ALLOCPV(type_str, length);
+	temp_str->str_length = length;
+	p = temp_str->str_data;
+	q = (*str)->str_data;
+
+	if (ptr && (l = ptr - q))
+		do
+			*p++ = *q++;
+		while (--l);
+
+	ALL_release(*str);
+	*str = temp_str;
+
+	return p;
+}
+
+
+static int match_expr( NOD node1, NOD node2)
+{
+/**************************************
+ *
+ *	m a t c h _ e x p r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two nodes for equality of value.
+ *
+ **************************************/
+	NOD *ptr1, *ptr2, *end;
+	USHORT l;
+	TEXT *p1, *p2;
+
+/* If either is missing, they can't match. */
+
+	if (!node1 || !node2)
+		return FALSE;
+
+	if (node1->nod_type == nod_reference)
+		node1 = node1->nod_arg[0];
+
+	if (node2->nod_type == nod_reference)
+		node2 = node2->nod_arg[0];
+
+/* A constant more or less matches anything */
+
+	if (node1->nod_type == nod_constant)
+		return TRUE;
+
+/* Hasn't matched yet.  Check for statistical expression */
+
+	switch (node1->nod_type) {
+	case nod_average:
+	case nod_max:
+	case nod_min:
+	case nod_total:
+
+	case nod_rpt_average:
+	case nod_rpt_max:
+	case nod_rpt_min:
+	case nod_rpt_total:
+	case nod_running_total:
+
+	case nod_agg_average:
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_total:
+		return match_expr(node1->nod_arg[e_stt_value], node2);
+	}
+
+	switch (node2->nod_type) {
+	case nod_average:
+	case nod_max:
+	case nod_min:
+	case nod_total:
+
+	case nod_rpt_average:
+	case nod_rpt_max:
+	case nod_rpt_min:
+	case nod_rpt_total:
+	case nod_running_total:
+
+	case nod_agg_average:
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_total:
+		return match_expr(node1, node2->nod_arg[e_stt_value]);
+	}
+
+	if (node1->nod_type == node2->nod_type) {
+		if (node1->nod_type == nod_field) {
+			if (node1->nod_arg[e_fld_field] != node2->nod_arg[e_fld_field] ||
+				node1->nod_arg[e_fld_context] !=
+				node2->nod_arg[e_fld_context]) return FALSE;
+			return TRUE;
+		}
+		ptr1 = node1->nod_arg;
+		ptr2 = node2->nod_arg;
+		for (end = ptr1 + node1->nod_count; ptr1 < end; ptr1++, ptr2++)
+			if (!match_expr(*ptr1, *ptr2))
+				return FALSE;
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+static void print_blobs( PRT print, ITM * first, ITM * last)
+{
+/**************************************
+ *
+ *	p r i n t _ b l o b s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print any blobs still active in item list.
+ *
+ **************************************/
+	ITM *ptr, item;
+	USHORT blob_active, do_line, length;
+	TEXT *p, *q, *buffer, *pp;
+	int c;
+#ifdef JPN_EUC
+	USHORT n_half_kanas = 0;
+#endif /* JPN_EUC */
+
+	if (QLI_abort)
+		return;
+
+	length = 0;
+	for (ptr = first; ptr < last; ptr++) {
+		item = *ptr;
+		if (item->itm_dtype == dtype_blob && item->itm_stream)
+			length =
+				MAX(length,
+					item->itm_print_offset + item->itm_print_length + 2);
+	}
+
+#ifdef JPN_EUC
+
+/* When euc_justify is on, blob's buffer has to be doubled for EUC */
+
+	buffer =
+		get_buffer(&blob_buffer, NULL,
+				   (QLI_euc_justify ? (2 * length) : length));
+
+#else
+
+	buffer = get_buffer(&blob_buffer, NULL, length);
+
+#endif /* JPN_EUC */
+
+	while (!QLI_abort) {
+		blob_active = FALSE;
+		p = buffer;
+		do_line = FALSE;
+		for (ptr = first; ptr < last; ptr++) {
+			item = *ptr;
+			if (item->itm_dtype != dtype_blob || !item->itm_stream)
+				continue;
+			q = buffer + item->itm_print_offset;
+#ifdef JPN_EUC
+			if (QLI_euc_justify)
+				q += n_half_kanas;
+#endif /* JPN_EUC */
+			while (p < q)
+				*p++ = ' ';
+			pp = p;
+#ifdef JPN_EUC
+			c = print_line(item, &p, &n_half_kanas);
+#else
+			c = print_line(item, &p);
+#endif /* JPN_EUC */
+			if (c != EOF)
+				blob_active = TRUE;
+			if (pp != p || c == '\n')
+				do_line = TRUE;
+		}
+		if (do_line)
+#ifdef JPN_EUC
+		{
+			put_line(print, &p, buffer, '\n');
+			n_half_kanas = 0;
+		}
+#else
+			put_line(print, &p, buffer, '\n');
+#endif /* JPN_EUC */
+		if (!blob_active)
+			break;
+	}
+}
+
+
+#ifdef JPN_EUC
+static int print_line( ITM item, TEXT ** ptr, USHORT * n_half_kanas)
+#else
+static int print_line( ITM item, TEXT ** ptr)
+#endif							/* JPN_EUC */
+{
+/**************************************
+ *
+ *	p r i n t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a line of a blob or scratch file.  The
+ *	last thing printed.
+ *
+ **************************************/
+	USHORT l, length;
+	TEXT *p, *q;
+	STATUS status_vector[20], status;
+#ifdef JPN_EUC
+	TEXT *p2;
+	USHORT x, len;
+	USHORT last_shot;
+#endif /* JPN_EUC */
+
+	EXEC_poll_abort();
+
+/* If we're already at end of stream, there's nothing to do */
+
+	if (!item->itm_stream)
+		return EOF;
+
+	p = *ptr;
+	l = item->itm_print_length;
+
+#ifdef JPN_EUC
+
+	if (!QLI_euc_justify || item->itm_sub_type != 1) {
+
+		/* no justification needed, printout is just as easy as SJIS */
+
+		if ((status = gds__get_segment(status_vector,
+									   GDS_REF(item->itm_stream),
+									   GDS_REF(length),
+									   l,
+									   GDS_VAL(p))) &&
+			status != gds__segment) {
+			gds__close_blob(status_vector, GDS_REF(item->itm_stream));
+			return EOF;
+		}
+	}
+	else {
+
+		/* justification needed, here comes the mambo-jambo to print blobs */
+
+		p2 = p;
+		last_shot = 0;
+		length = 0;
+
+		if (item->itm_kanji_fragment) {
+			*p2++ = item->itm_kanji_fragment >> 8;
+			*p2++ = item->itm_kanji_fragment;
+			item->itm_kanji_fragment = 0;
+			l -= 2;
+			length += 2;
+
+			/* if the last fetch status says "no more data in the segment",
+			   this kanji is the last char of the segment. force it to not 
+			   get more data. */
+
+			if (item->itm_blob_status != gds__segment)
+				l = 0;
+		}
+
+		while (l > 0) {
+			if ((status = gds__get_segment(status_vector,
+										   GDS_REF(item->itm_stream),
+										   GDS_REF(len),
+										   l,
+										   GDS_VAL(p2))) &&
+				status != gds__segment) {
+				gds__close_blob(status_vector, GDS_REF(item->itm_stream));
+				return EOF;
+			}
+
+			length += len;
+
+			if ((len == 0) && (l == 1)) {
+
+				if (status != gds__segment)
+					break;		/* no more data in the segment, get out of here! */
+
+				/* the buffer is too small to fetch anything. But the last
+				   character maybe a single-width kana that fits to print..
+				   well, give it a last shot: expand the buffer */
+
+				l = 2;
+				last_shot = 1;
+				continue;
+			}
+
+			if (KANJI_sjis_len(p2, len, &x))
+				EUC_FORMATTING_ERROR;	/* See macro above */
+			*n_half_kanas += len - x;
+
+			if (last_shot) {
+				if (x != 1) {
+
+					/* aaahh, the last character is a double-width kanji,
+					   cannot print it. keep the bytes for later */
+
+					item->itm_kanji_fragment = ((UCHAR) * (p2)) << 8;
+					item->itm_kanji_fragment |= ((UCHAR) * (p2 + 1));
+					item->itm_blob_status = status;
+					length -= 2;
+				}
+				break;
+			}
+
+			/* get out if there's no more data in the segment or
+			   no half-kanas within the fresh-picked data */
+
+			if ((status != gds__segment) || (len == x))
+				break;
+
+			/* we found half-kanas in the buffer, try get some more data
+			   to fit into the given screen width */
+
+			l -= x;
+			p2 += len;
+		}
+	}
+
+#else
+
+	if ((status = gds__get_segment(status_vector,
+								   GDS_REF(item->itm_stream),
+								   GDS_REF(length),
+								   l, GDS_VAL(p))) && status != gds__segment) {
+		long *null_status = 0;
+		gds__close_blob(null_status, GDS_REF(item->itm_stream));
+		if (status != gds__segstr_eof)
+			ERRQ_database_error(0, status_vector);
+		return EOF;
+	}
+
+#endif /* JPN_EUC */
+
+/* If this is not a partial segment and the last character
+   is a newline, throw away the newline */
+
+	if (!status && length && p[length - 1] == '\n')
+		if (length > 1)
+			--length;
+		else
+			p[0] = ' ';
+
+	*ptr = p + length;
+
+/* Return the last character in the segment.
+   If the segment is null, return a newline. */
+
+	return (length) ? p[length - 1] : '\n';
+}
+
+
+static void put_line( PRT print, TEXT ** ptr, TEXT * buffer, TEXT terminator)
+{
+/**************************************
+ *
+ *	p u t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a file descriptor, a running output pointer, and the address
+ *	of the original buffer, write out the current line and reset the
+ *	pointer.
+ *
+ **************************************/
+
+	*(*ptr)++ = terminator;
+	**ptr = 0;
+	FMT_put(buffer, print);
+	*ptr = buffer;
+}
+
+
+static void report_break( BRK control, VEC * columns_vec, int bottom_flag)
+{
+/**************************************
+ *
+ *	r e p o r t _ b r e a k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle formatting for a chain of control breaks.
+ *
+ **************************************/
+
+	if (!control)
+		return;
+
+	if (bottom_flag) {
+		if (control->brk_next)
+			report_break(control->brk_next, columns_vec, bottom_flag);
+		if (control->brk_line)
+			report_line(control->brk_line, columns_vec);
+		return;
+	}
+
+	for (; control; control = control->brk_next)
+		if (control->brk_line)
+			report_line(control->brk_line, columns_vec);
+}
+
+
+static void report_item( ITM item, VEC * columns_vec, USHORT * col_ndx)
+{
+/**************************************
+ *
+ *	r e p o r t _ i t e m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a report item into a logical column.  It it fits
+ *	someplace reasonable, stick it there.
+ *
+ **************************************/
+	ITM item2;
+	VEC columns;
+	LLS *col, *col_end, temp;
+	NOD node;
+	USHORT new_index;
+
+	if (item->itm_query_header && *item->itm_query_header == '-')
+		item->itm_query_header = NULL;
+
+/* If it's a constant, dump it in the next logical column */
+
+	columns = *columns_vec;
+	if (columns->vec_object[*col_ndx] &&
+		(node = item->itm_value) && node->nod_type == nod_constant) {
+		LLS_PUSH(item, columns->vec_object + *col_ndx);
+		return;
+	}
+
+/* Loop thru remaining logical columns looking for an equivalent
+   expression.  If we find one, the item beSLONGs in that column;
+   otherwise, someplace else. */
+
+	col = (LLS *) (columns->vec_object + *col_ndx);
+	col_end = (LLS *) (columns->vec_object + columns->vec_count);
+	for (; col < col_end && *col; col++)
+		for (temp = *col; temp; temp = temp->lls_next) {
+			item2 = (ITM) temp->lls_object;
+			if (match_expr(item->itm_value, item2->itm_value)) {
+				LLS_PUSH(item, col);
+				*col_ndx = col - (LLS *) columns->vec_object;
+				return;
+			}
+		}
+
+/* Didn't fit -- make a new logical column */
+
+	*col_ndx = new_index = col - (LLS *) columns->vec_object;
+	if (new_index >= columns->vec_count) {
+		ALLQ_extend(columns_vec, new_index + 16);
+		(*columns_vec)->vec_count = new_index + 16;
+	}
+
+	LLS_PUSH(item, (*columns_vec)->vec_object + new_index);
+}
+
+
+static void report_line( NOD list, VEC * columns_vec)
+{
+/**************************************
+ *
+ *	r e p o r t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a report line.
+ *
+ **************************************/
+	ITM item, *ptr, *end;
+	USHORT col_ndx;
+
+	col_ndx = 0;
+	for (ptr = (ITM *) list->nod_arg, end = ptr + list->nod_count; ptr < end;
+		 ptr++) {
+		item = *ptr;
+		report_item(item, columns_vec, &col_ndx);
+		switch (item->itm_type) {
+		case item_skip:
+		case item_new_page:
+			col_ndx = 0;
+			break;
+		}
+	}
+}
diff --git a/src/qli/format.h b/src/qli/format.h
new file mode 100644
index 0000000000..f86c64f397
--- /dev/null
+++ b/src/qli/format.h
@@ -0,0 +1,119 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		format.h
+ *	DESCRIPTION:	Print formatter definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_FORMAT_H_
+#define _QLI_FORMAT_H_
+
+/* Logical column block */
+
+typedef struct col {
+    struct blk	col_header;
+    struct col	*col_next;		/* Next logical column */
+    struct nod	*col_expression;	/* Definitive expression */
+    TEXT	*col_head;		/* Column header */
+    USHORT	col_column;		/* Starting column number */
+    USHORT	col_print_length;	/* Max print length */
+} *COL;
+
+/* Picture string elements:
+
+    A		any alpha character (interpreted as X)
+    B		blank character
+    CR		credit (sign)
+    D		day of month (digit)
+    DB		debit (sign)
+    E		exponent
+    G		exponent or decimal format, whichever is shorter
+    H		hex digit
+    J		day of year (digit)
+    M		alpha month 
+    N		month (numeric)
+    P		AM/PM indicator for time
+    T		time 
+    W		weekday (character)
+    X		any character
+    Y		year (digit)
+    Z		digit or leading suppressed digit (blank)
+    9		digit
+    $		fixed or floating insertion
+    *		floating insertion
+    ,		literal character or inserted
+    .		decimal point
+    +		sign (fixed or floating), always present
+    -		sign (fixed or floating), suppressed on positive, or literal
+    ?		separate between real and missing components of edit string
+    "string"	any string
+    (( ))	insert parenthesis if negative
+    /		literal insertion
+    %		literal insertion
+    :		literal insertion
+*/
+
+typedef ENUM pic_t {
+    pic_alpha = 1,
+    pic_numeric,
+    pic_date,
+    pic_float,
+    pic_text
+} PIC_T;
+
+/* Picture string handling block */
+
+typedef struct pic {
+    struct blk	pic_header;
+    USHORT	pic_print_length;	/* Print length of picture string */
+    TEXT	*pic_string;		/* Address of string */
+    TEXT	*pic_pointer;		/* Address of string */
+    USHORT	pic_flags;		/* Misc. trash */
+    USHORT	pic_count;		/* Count of repeat characters */
+    TEXT	pic_character;		/* Last significant character */
+    PIC_T	pic_type;		/* Type of edit */
+    USHORT	pic_length;		/* Printing columns (MAX of edit_string & missing) */
+    USHORT	pic_floats;		/* Character of floating things */
+    USHORT	pic_digits;		/* Digits of number */
+    USHORT	pic_hex_digits;		/* Hexidecimal digits */
+    USHORT	pic_fractions;		/* Digits after decimal point */
+    USHORT	pic_chars;		/* Insertion characters (alpha) */
+    USHORT	pic_literals;		/* Literal insertion characters */
+    USHORT	pic_days;		/* Digits of day of month */
+    USHORT	pic_weekdays;		/* Characters of weekday */
+    USHORT	pic_months;		/* Characters of alpha month */
+    USHORT	pic_nmonths;		/* Digits of numeric month */
+    USHORT	pic_years;		/* Digits of year */
+    USHORT	pic_julians;		/* Digits of julian days */
+    USHORT	pic_decimals;		/* Number of decimal points (?!) */
+    USHORT	pic_brackets;		/* Pairs of deficit brackets */
+    USHORT	pic_exponents;		/* Exponential indicators */
+    USHORT	pic_float_digits;	/* Floating digits */
+    USHORT	pic_hours;		/* hours */
+    USHORT	pic_minutes;		/* minutes */
+    USHORT	pic_seconds;		/* seconds */
+    USHORT	pic_meridian;		/* AM/PM indicator */
+    struct pic	*pic_missing;		/* missing value edit string */
+} *PIC;
+
+#define PIC_suppress_blanks	1	/* Suppress leading blanks */
+#define PIC_literal		2	/* We're in a quoted string */
+#define PIC_signed		4	/* This numeric edit string has a sign indicator */
+
+#endif /* _QLI_FORMAT_H_ */
diff --git a/src/qli/gener.cpp b/src/qli/gener.cpp
new file mode 100644
index 0000000000..9926af1f90
--- /dev/null
+++ b/src/qli/gener.cpp
@@ -0,0 +1,1971 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		gener.c
+ *	DESCRIPTION:	BLR Generation Module
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: gener.cpp,v 1.1.1.1 2001-05-23 13:26:35 tamlin Exp $
+*/
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../qli/dtr.h"
+#include "../jrd/align.h"
+#include "../qli/exe.h"
+#include "../qli/compile.h"
+#include "../qli/report.h"
+#include "../qli/all_proto.h"
+#include "../qli/compi_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/gener_proto.h"
+#include "../qli/meta_proto.h"
+#include "../qli/mov_proto.h"
+#include "../jrd/gds_proto.h"
+
+static void explain(UCHAR *);
+static void explain_index_tree(SSHORT, TEXT *, SCHAR **, SSHORT *);
+static void explain_printf(SSHORT, TEXT *, TEXT *);
+static void gen_any(NOD, REQ);
+static void gen_assignment(NOD, REQ);
+static void gen_control_break(BRK, REQ);
+static void gen_compile(REQ);
+static void gen_descriptor(DSC *, REQ);
+static void gen_erase(NOD, REQ);
+static void gen_expression(NOD, REQ);
+static void gen_field(NOD, REQ);
+static void gen_for(NOD, REQ);
+static void gen_function(NOD, REQ);
+static void gen_if(NOD, REQ);
+static void gen_literal(DSC *, REQ);
+static void gen_map(MAP, REQ);
+static void gen_modify(NOD, REQ);
+static void gen_parameter(PAR, REQ);
+static void gen_print_list(NOD, REQ);
+static void gen_report(NOD, REQ);
+static void gen_request(REQ);
+static void gen_rse(NOD, REQ);
+static void gen_send_receive(MSG, USHORT);
+static void gen_sort(NOD, REQ, UCHAR);
+static void gen_statement(NOD, REQ);
+static void gen_statistical(NOD, REQ);
+static void gen_store(NOD, REQ);
+
+#ifdef DEV_BUILD
+static SCHAR explain_info[] = { gds__info_access_path };
+#endif
+
+
+NOD GEN_generate( NOD node)
+{
+/**************************************
+ *
+ *	G E N _ g e n e r a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate and compile BLR.
+ *
+ **************************************/
+
+	gen_statement(node, 0);
+
+	return node;
+}
+
+
+void GEN_release(void)
+{
+/**************************************
+ *
+ *	G E N _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release any compiled requests following execution or abandonment
+ *	of a request.  Just recurse around and release requests.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	RLB rlb;
+
+	for (; QLI_requests; QLI_requests = QLI_requests->req_next) {
+		if (QLI_requests->req_handle)
+			gds__release_request(status_vector,
+								 GDS_REF(QLI_requests->req_handle));
+
+		rlb = QLI_requests->req_blr;
+		RELEASE_RLB;
+	}
+}
+
+
+RLB GEN_rlb_extend(RLB rlb)
+{
+/**************************************
+ *
+ *	G E N _ r l b _ e x t e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	
+ *	Allocate a new larger request language buffer
+ *	and copy generated request language into it
+ *
+ **************************************/
+	UCHAR *new_string, *old_string;
+	ULONG l, size;
+
+	if (!rlb)
+		rlb = (RLB) ALLOCD(type_rlb);
+
+	old_string = rlb->rlb_base;
+	l = (UCHAR *) rlb->rlb_data - (UCHAR *) rlb->rlb_base;
+	rlb->rlb_length += RLB_BUFFER_SIZE;
+	new_string = ALLQ_malloc((SLONG) rlb->rlb_length);
+	if (old_string) {
+		MOVQ_fast(old_string, new_string, l);
+		ALLQ_free(old_string);
+	}
+	rlb->rlb_base = new_string;
+	rlb->rlb_data = new_string + l;
+	rlb->rlb_limit = rlb->rlb_data + RLB_BUFFER_SIZE - RLB_SAFETY_MARGIN;
+
+	return (rlb);
+}
+
+
+void GEN_rlb_release( RLB rlb)
+{
+/**************************************
+ *
+ *	G E N _ r l b _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	
+ *	Release the request language buffer
+ *	contents.  The buffer itself will go away
+ *	with the default pool.
+ *
+ **************************************/
+
+	if (!rlb)
+		return;
+
+	if (rlb->rlb_base) {
+		ALLQ_free(rlb->rlb_base);
+		rlb->rlb_base = NULL;
+		rlb->rlb_length = 0;
+		rlb->rlb_data = NULL;
+		rlb->rlb_limit = NULL;
+	}
+}
+
+
+#ifdef DEV_BUILD
+static void explain( UCHAR * explain_buffer)
+{
+/**************************************
+ *
+ *	e x p l a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print out the access path for a blr 
+ *	request in pretty-printed form.
+ *
+ **************************************/
+	SSHORT buffer_length, length, level = 0;
+	SCHAR relation_name[32], *r;
+
+	if (*explain_buffer++ != gds__info_access_path)
+		return;
+
+	buffer_length = *explain_buffer++;
+	buffer_length += (*explain_buffer++) << 8;
+
+	while (buffer_length > 0) {
+		buffer_length--;
+		switch (*explain_buffer++) {
+		case gds__info_rsb_begin:
+			explain_printf(level, "gds__info_rsb_begin,\n", 0);
+			level++;
+			break;
+
+		case gds__info_rsb_end:
+			explain_printf(level, "gds__info_rsb_end,\n", 0);
+			level--;
+			break;
+
+		case gds__info_rsb_relation:
+			explain_printf(level, "gds__info_rsb_relation, ", 0);
+
+			buffer_length--;
+			buffer_length -= (length = *explain_buffer++);
+
+			r = relation_name;
+			while (length--) {
+				*r++ = *explain_buffer;
+				ib_putchar(*explain_buffer++);
+			}
+			ib_printf(",\n");
+			*r++ = 0;
+			break;
+
+		case gds__info_rsb_type:
+			buffer_length--;
+			explain_printf(level, "gds__info_rsb_type, ", 0);
+			switch (*explain_buffer++) {
+			case gds__info_rsb_unknown:
+				ib_printf("unknown type\n");
+				break;
+
+			case gds__info_rsb_indexed:
+				ib_printf("gds__info_rsb_indexed,\n");
+				level++;
+				explain_index_tree(level, relation_name, &explain_buffer,
+								   &buffer_length);
+				level--;
+				break;
+
+				/* for join types, advance past the count byte
+				   of substreams; we don't need it */
+
+			case gds__info_rsb_merge:
+				buffer_length--;
+				ib_printf("gds__info_rsb_merge, %d,\n", *explain_buffer++);
+				break;
+
+			case gds__info_rsb_cross:
+				buffer_length--;
+				ib_printf("gds__info_rsb_cross, %d,\n", *explain_buffer++);
+				break;
+
+			case gds__info_rsb_navigate:
+				ib_printf("gds__info_rsb_navigate,\n");
+				level++;
+				explain_index_tree(level, relation_name, &explain_buffer,
+								   &buffer_length);
+				level--;
+				break;
+
+			case gds__info_rsb_sequential:
+				ib_printf("gds__info_rsb_sequential,\n");
+				break;
+
+			case gds__info_rsb_sort:
+				ib_printf("gds__info_rsb_sort,\n");
+				break;
+
+			case gds__info_rsb_first:
+				ib_printf("gds__info_rsb_first,\n");
+				break;
+
+			case gds__info_rsb_boolean:
+				ib_printf("gds__info_rsb_boolean,\n");
+				break;
+
+			case gds__info_rsb_union:
+				ib_printf("gds__info_rsb_union,\n");
+				break;
+
+			case gds__info_rsb_aggregate:
+				ib_printf("gds__info_rsb_aggregate,\n");
+				break;
+
+			case gds__info_rsb_ext_sequential:
+				ib_printf("gds__info_rsb_ext_sequential,\n");
+				break;
+
+			case gds__info_rsb_ext_indexed:
+				ib_printf("gds__info_rsb_ext_indexed,\n");
+				break;
+
+			case gds__info_rsb_ext_dbkey:
+				ib_printf("gds__info_rsb_ext_dbkey,\n");
+				break;
+
+			case gds__info_rsb_left_cross:
+				ib_printf("gds__info_rsb_left_cross,\n");
+				break;
+
+			case gds__info_rsb_select:
+				ib_printf("gds__info_rsb_select,\n");
+				break;
+
+			case gds__info_rsb_sql_join:
+				ib_printf("gds__info_rsb_sql_join,\n");
+				break;
+
+			case gds__info_rsb_simulate:
+				ib_printf("gds__info_rsb_simulate,\n");
+				break;
+
+			case gds__info_rsb_sim_cross:
+				ib_printf("gds__info_rsb_sim_cross,\n");
+				break;
+
+			case gds__info_rsb_once:
+				ib_printf("gds__info_rsb_once,\n");
+				break;
+
+			case gds__info_rsb_procedure:
+				ib_printf("gds__info_rsb_procedure,\n");
+				break;
+
+			}
+			break;
+
+		default:
+			explain_printf(level, "unknown info item\n", 0);
+			break;
+		}
+	}
+
+}
+#endif
+
+
+#ifdef DEV_BUILD
+static void explain_index_tree(
+							   SSHORT level,
+							   TEXT * relation_name,
+							   SCHAR ** explain_buffer_ptr,
+							   SSHORT * buffer_length)
+{
+/**************************************
+ *
+ *	e x p l a i n _ i n d e x _ t r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print out an index tree access path.
+ *
+ **************************************/
+	SCHAR *explain_buffer;
+	TEXT index_name[32];
+	SCHAR index_info[256];
+	SSHORT length;
+
+	explain_buffer = *explain_buffer_ptr;
+
+	(*buffer_length)--;
+
+	switch (*explain_buffer++) {
+	case gds__info_rsb_and:
+		explain_printf(level, "gds__info_rsb_and,\n", 0);
+		level++;
+		explain_index_tree(level, relation_name, &explain_buffer,
+						   buffer_length);
+		explain_index_tree(level, relation_name, &explain_buffer,
+						   buffer_length);
+		level--;
+		break;
+
+	case gds__info_rsb_or:
+		explain_printf(level, "gds__info_rsb_or,\n", 0);
+		level++;
+		explain_index_tree(level, relation_name, &explain_buffer,
+						   buffer_length);
+		explain_index_tree(level, relation_name, &explain_buffer,
+						   buffer_length);
+		level--;
+		break;
+
+	case gds__info_rsb_dbkey:
+		explain_printf(level, "gds__info_rsb_dbkey,\n", 0);
+		break;
+
+	case gds__info_rsb_index:
+		explain_printf(level, "gds__info_rsb_index, ", 0);
+		(*buffer_length)--;
+
+		length = (SSHORT) * explain_buffer++;
+		strncpy(index_name, explain_buffer, length);
+		index_name[length] = 0;
+
+		*buffer_length -= length;
+		explain_buffer += length;
+
+		MET_index_info(relation_name, index_name, index_info);
+		ib_printf("%s\n", index_info);
+		break;
+	}
+
+	if (*explain_buffer == gds__info_rsb_end) {
+		explain_buffer++;
+		(*buffer_length)--;
+	}
+
+	*explain_buffer_ptr = explain_buffer;
+}
+#endif
+
+
+
+#ifdef DEV_BUILD
+static void explain_printf( SSHORT level, TEXT * control, TEXT * string)
+{
+/**************************************
+ *
+ *	e x p l a i n _ p r i n t f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do a ib_printf with formatting.
+ *
+ **************************************/
+
+	while (level--)
+		ib_printf("   ");
+
+	if (string)
+		ib_printf(control, string);
+	else
+		ib_printf(control);
+}
+#endif
+
+
+static void gen_any( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ a n y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate the BLR for a statistical expresionn.
+ *
+ **************************************/
+	REQ new_request;
+	RLB rlb;
+	FLD field;
+	CTX context;
+	MSG send, receive;
+	DSC desc;
+	USHORT i, value;
+
+/* If there is a request associated with the statement, prepare to
+   generate BLR.  Otherwise assume that a request is alrealdy initialized. */
+
+	if (new_request = (REQ) node->nod_arg[e_any_request]) {
+		request = new_request;
+		gen_request(request);
+		if (receive = (MSG) node->nod_arg[e_any_send])
+			gen_send_receive(receive, blr_receive);
+		send = (MSG) node->nod_arg[e_any_receive];
+		gen_send_receive(send, blr_send);
+		rlb = CHECK_RLB(request->req_blr);
+		STUFF(blr_if);
+	}
+	else
+		rlb = CHECK_RLB(request->req_blr);
+
+	STUFF(blr_any);
+	gen_rse(node->nod_arg[e_any_rse], request);
+
+	if (new_request) {
+		desc.dsc_dtype = dtype_short;
+		desc.dsc_length = sizeof(SSHORT);
+		desc.dsc_scale = 0;
+		desc.dsc_sub_type = 0;
+		desc.dsc_address = (UCHAR *) & value;
+
+		STUFF(blr_assignment);
+		value = TRUE;
+		gen_literal(&desc, request);
+		gen_parameter(node->nod_import, request);
+
+		STUFF(blr_assignment);
+		value = FALSE;
+		gen_literal(&desc, request);
+		gen_parameter(node->nod_import, request);
+		gen_compile(request);
+	}
+}
+
+
+static void gen_assignment( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ a s s i g n m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate an assignment statement.
+ *
+ **************************************/
+	NOD target, from, reference, validation;
+	RLB rlb;
+
+	from = node->nod_arg[e_asn_from];
+
+/* Handle a local expression locally */
+
+	if (node->nod_flags & NOD_local) {
+		gen_expression(from, 0);
+		return;
+	}
+
+/* Generate a remote assignment */
+
+	rlb = CHECK_RLB(request->req_blr);
+
+	STUFF(blr_assignment);
+	target = node->nod_arg[e_asn_to];
+
+/* If we are referencing a parameter of another request, compile
+   the request first, the make a reference.  Otherwise, just compile
+   the expression in the context of this request */
+
+	if (reference = target->nod_arg[e_fld_reference]) {
+		gen_expression(from, 0);
+		gen_parameter(reference->nod_import, request);
+	}
+	else
+		gen_expression(from, request);
+
+	if (validation = node->nod_arg[e_asn_valid])
+		gen_expression(validation, 0);
+
+	gen_expression(target, request);
+}
+
+
+static void gen_control_break( BRK control, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ c o n t r o l _ b r e a k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process report writer control breaks.
+ *
+ **************************************/
+
+	for (; control; control = control->brk_next) {
+		if (control->brk_field)
+			gen_expression(control->brk_field, request);
+		if (control->brk_line)
+			gen_print_list(control->brk_line, request);
+	}
+}
+
+
+static void gen_compile( REQ request)
+{
+/**************************************
+ *
+ *	g e n _ c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Finish off BLR generation for a request, and get it compiled.
+ *
+ **************************************/
+	DBB dbb;
+	STATUS status_vector[20];
+	USHORT length;
+	RLB rlb;
+#ifdef DEV_BUILD
+	SCHAR explain_buffer[256];
+#endif
+
+	rlb = CHECK_RLB(request->req_blr);
+	STUFF(blr_end);
+	STUFF(blr_eoc);
+
+	if (QLI_blr)
+		gds__print_blr(rlb->rlb_base, 0, 0, 0);
+
+	length = (UCHAR *) rlb->rlb_data - (UCHAR *) rlb->rlb_base;
+
+	dbb = request->req_database;
+
+	if (gds__compile_request(status_vector,
+							 GDS_REF(dbb->dbb_handle),
+							 GDS_REF(request->req_handle),
+							 length, GDS_VAL(rlb->rlb_base))) {
+		RELEASE_RLB;
+		ERRQ_database_error(dbb, status_vector);
+	}
+
+#ifdef DEV_BUILD
+	if (QLI_explain &&
+		!gds__request_info(status_vector,
+						   GDS_REF(request->req_handle),
+						   0,
+						   sizeof(explain_info),
+						   explain_info,
+						   sizeof(explain_buffer),
+						   explain_buffer)) explain(explain_buffer);
+#endif
+
+	RELEASE_RLB;
+}
+
+
+static void gen_descriptor( DSC * desc, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ d e s c r i p t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generator a field descriptor.  This is used for generating both
+ *	message declarations and literals.
+ *
+ **************************************/
+	RLB rlb;
+
+	rlb = CHECK_RLB(request->req_blr);
+
+	switch (desc->dsc_dtype) {
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+	case dtype_text:
+		STUFF(blr_text2);
+		STUFF_WORD(QLI_interp);
+		STUFF_WORD(desc->dsc_length);
+		break;
+
+	case dtype_varying:
+		STUFF(blr_varying2);
+		STUFF_WORD(QLI_interp);
+		STUFF_WORD(desc->dsc_length - sizeof(SSHORT));
+		break;
+
+	case dtype_cstring:
+		STUFF(blr_cstring2);
+		STUFF_WORD(QLI_interp);
+		STUFF_WORD(desc->dsc_length);
+		break;
+
+#else
+
+	case dtype_text:
+		STUFF(blr_text);
+		STUFF_WORD(desc->dsc_length);
+		break;
+
+	case dtype_varying:
+		STUFF(blr_varying);
+		STUFF_WORD(desc->dsc_length - sizeof(SSHORT));
+		break;
+
+	case dtype_cstring:
+		STUFF(blr_cstring);
+		STUFF_WORD(desc->dsc_length);
+		break;
+
+#endif
+
+	case dtype_short:
+		STUFF(blr_short);
+		STUFF(desc->dsc_scale);
+		break;
+
+	case dtype_long:
+		STUFF(blr_long);
+		STUFF(desc->dsc_scale);
+		break;
+
+	case dtype_blob:
+	case dtype_quad:
+		STUFF(blr_quad);
+		STUFF(desc->dsc_scale);
+		break;
+
+	case dtype_real:
+		STUFF(blr_float);
+		break;
+
+	case dtype_double:
+		STUFF(blr_double);
+		break;
+
+	case dtype_timestamp:
+		STUFF(blr_timestamp);
+		break;
+
+	case dtype_sql_date:
+		STUFF(blr_sql_date);
+		break;
+
+	case dtype_sql_time:
+		STUFF(blr_sql_time);
+		break;
+
+	default:
+		BUGCHECK(352);			/* Msg352 gen_descriptor: dtype not recognized */
+	}
+}
+
+
+static void gen_erase( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ e r a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate the BLR for an erase statement.  Pretty simple.
+ *
+ **************************************/
+	CTX context;
+	MSG message;
+	RLB rlb;
+
+	if (message = (MSG) node->nod_arg[e_era_message]) {
+		request = (REQ) node->nod_arg[e_era_request];
+		gen_send_receive(message, blr_receive);
+	}
+
+	rlb = CHECK_RLB(request->req_blr);
+	context = (CTX) node->nod_arg[e_era_context];
+	STUFF(blr_erase);
+	STUFF(context->ctx_context);
+}
+
+
+static void gen_expression( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ e x p r e s s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate the BLR for a boolean or value expression.
+ *
+ **************************************/
+	NOD *ptr, *end;
+	FLD field;
+	CTX context;
+	MAP map;
+	USHORT operator;
+	RLB rlb;
+
+	if (node->nod_flags & NOD_local)
+		request = NULL;
+/*    return;*/
+	else if (request)
+		rlb = CHECK_RLB(request->req_blr);
+
+	switch (node->nod_type) {
+	case nod_any:
+		gen_any(node, request);
+		return;
+
+	case nod_unique:
+		if (request) {
+			STUFF(blr_unique);
+			gen_rse(node->nod_arg[e_any_rse], request);
+		}
+		return;
+
+	case nod_constant:
+		if (request)
+			gen_literal(&node->nod_desc, request);
+		return;
+
+	case nod_field:
+		gen_field(node, request);
+		return;
+
+	case nod_format:
+		gen_expression(node->nod_arg[e_fmt_value], request);
+		return;
+
+	case nod_map:
+		map = (MAP) node->nod_arg[e_map_map];
+		context = (CTX) node->nod_arg[e_map_context];
+		if (context->ctx_request != request &&
+			map->map_node->nod_type == nod_field) {
+			gen_field(map->map_node, request);
+			return;
+		}
+		STUFF(blr_fid);
+		STUFF(context->ctx_context);
+		STUFF_WORD(map->map_position);
+		return;
+
+	case nod_eql:
+		operator = blr_eql;
+		break;
+
+	case nod_neq:
+		operator = blr_neq;
+		break;
+
+	case nod_gtr:
+		operator = blr_gtr;
+		break;
+
+	case nod_geq:
+		operator = blr_geq;
+		break;
+
+	case nod_leq:
+		operator = blr_leq;
+		break;
+
+	case nod_lss:
+		operator = blr_lss;
+		break;
+
+	case nod_containing:
+		operator = blr_containing;
+		break;
+
+	case nod_matches:
+		operator = blr_matching;
+		break;
+
+	case nod_sleuth:
+		operator = blr_matching2;
+		break;
+
+	case nod_like:
+		operator = (node->nod_count == 2) ? blr_like : blr_ansi_like;
+		break;
+
+	case nod_starts:
+		operator = blr_starting;
+		break;
+
+	case nod_missing:
+		operator = blr_missing;
+		break;
+
+	case nod_between:
+		operator = blr_between;
+		break;
+
+	case nod_and:
+		operator = blr_and;
+		break;
+
+	case nod_or:
+		operator = blr_or;
+		break;
+
+	case nod_not:
+		operator = blr_not;
+		break;
+
+	case nod_add:
+		operator = blr_add;
+		break;
+
+	case nod_subtract:
+		operator = blr_subtract;
+		break;
+
+	case nod_multiply:
+		operator = blr_multiply;
+		break;
+
+	case nod_divide:
+		operator = blr_divide;
+		break;
+
+	case nod_negate:
+		operator = blr_negate;
+		break;
+
+	case nod_concatenate:
+		operator = blr_concatenate;
+		break;
+
+	case nod_substr:
+		operator = blr_substring;
+		break;
+
+	case nod_function:
+		gen_function(node, request);
+		return;
+
+	case nod_agg_average:
+	case nod_agg_count:
+	case nod_agg_max:
+	case nod_agg_min:
+	case nod_agg_total:
+
+	case nod_average:
+	case nod_count:
+	case nod_max:
+	case nod_min:
+	case nod_total:
+	case nod_from:
+		gen_statistical(node, request);
+		return;
+
+	case nod_rpt_average:
+	case nod_rpt_count:
+	case nod_rpt_max:
+	case nod_rpt_min:
+	case nod_rpt_total:
+
+	case nod_running_total:
+	case nod_running_count:
+		if (node->nod_arg[e_stt_value])
+			gen_expression(node->nod_arg[e_stt_value], request);
+		if (node->nod_export)
+			gen_parameter(node->nod_export, request);
+		request = NULL;
+		break;
+
+	case nod_prompt:
+	case nod_variable:
+	case nod_form_field:
+		if (node->nod_export)
+			gen_parameter(node->nod_export, request);
+		return;
+
+	case nod_edit_blob:
+	case nod_reference:
+		return;
+
+	case nod_null:
+		operator = blr_null;
+		break;
+
+	case nod_user_name:
+		operator = blr_user_name;
+		break;
+
+	case nod_upcase:
+		operator = blr_upcase;
+		break;
+
+	default:
+		if (request && node->nod_export) {
+			gen_parameter(node->nod_export, request);
+			return;
+		}
+		BUGCHECK(353);			/* Msg353 gen_expression: not understood */
+	}
+
+	if (request) {
+		rlb = CHECK_RLB(request->req_blr);
+		STUFF(operator);
+	}
+
+	for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end; ptr++)
+		gen_expression(*ptr, request);
+
+	if (!node->nod_desc.dsc_address && node->nod_desc.dsc_length)
+		CMP_alloc_temp(node);
+}
+
+
+static void gen_field( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile BLR to handle a field reference.  Things varying
+ *	substantially depend on whether the field reference spans
+ *	requests or not.
+ *
+ **************************************/
+	FLD field;
+	CTX context;
+	RLB rlb;
+	NOD args, *ptr, *end;
+
+/* If there isn't a request specified, this is a reference. */
+
+	if (!request)
+		return;
+
+	rlb = CHECK_RLB(request->req_blr);
+
+	field = (FLD) node->nod_arg[e_fld_field];
+	context = (CTX) node->nod_arg[e_fld_context];
+
+/* If the field referenced is in this request, just generate a field
+   reference. */
+
+	if (context->ctx_request == request) {
+		if (args = node->nod_arg[e_fld_subs])
+			STUFF(blr_index);
+		STUFF(blr_fid);
+		STUFF(context->ctx_context);
+		STUFF_WORD(field->fld_id);
+		if (args) {
+			STUFF(args->nod_count);
+			for (ptr = args->nod_arg, end = ptr + args->nod_count; ptr < end;
+				 ptr++)
+				gen_expression(*ptr, request);
+		}
+		return;
+	}
+
+/* The field is in a different request.  Make a parameter reference
+   instead. */
+
+	gen_parameter(node->nod_export, request);
+}
+
+
+static void gen_for( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ f o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate BLR for a FOR loop, included synchronization messages.
+ *
+ **************************************/
+	MSG message, continuation;
+	PAR parameter, eof;
+	DSC desc;
+	STR string;
+	NOD sub, *ptr, *end;
+	RPT report;
+	USHORT value, label;
+	RLB rlb;
+
+/* If there is a request associated with the statement, prepare to
+   generate BLR.  Otherwise assume that a request is alrealdy initialized. */
+
+	if (node->nod_arg[e_for_request]) {
+		request = (REQ) node->nod_arg[e_for_request];
+		gen_request(request);
+	}
+
+	rlb = CHECK_RLB(request->req_blr);
+
+/* If the statement requires an end of file marker, build a BEGIN/END around
+   the whole statement. */
+
+	if (message = (MSG) node->nod_arg[e_for_receive])
+		STUFF(blr_begin);
+
+/* If there is a message to be sent, build a receive for it */
+
+	if (node->nod_arg[e_for_send])
+		gen_send_receive(node->nod_arg[e_for_send], blr_receive);
+
+/* Generate the FOR loop proper. */
+
+	STUFF(blr_for);
+	gen_rse(node->nod_arg[e_for_rse], request);
+	STUFF(blr_begin);
+
+/* If data is to be received (included EOF), build a send */
+
+	if (message) {
+		gen_send_receive(message, blr_send);
+		STUFF(blr_begin);
+
+		/* Build assigments for all values referenced. */
+
+		for (parameter = message->msg_parameters; parameter;
+			 parameter = parameter->par_next) if (parameter->par_value) {
+				STUFF(blr_assignment);
+				gen_expression(parameter->par_value, request);
+				gen_parameter(parameter, request);
+			}
+
+		/* Next, make a FALSE for the end of file parameter */
+
+		eof = (PAR) node->nod_arg[e_for_eof];
+		desc.dsc_dtype = dtype_short;
+		desc.dsc_length = sizeof(SSHORT);
+		desc.dsc_scale = 0;
+		desc.dsc_sub_type = 0;
+		desc.dsc_address = (UCHAR *) & value;
+
+		STUFF(blr_assignment);
+		value = FALSE;
+		gen_literal(&desc, request);
+		gen_parameter(eof, request);
+
+		STUFF(blr_end);
+	}
+
+/* Build  the body of the loop. */
+
+	if (continuation = request->req_continue) {
+		STUFF(blr_label);
+		label = request->req_label++;
+		STUFF(label);
+		STUFF(blr_loop);
+		STUFF(blr_select);
+		gen_send_receive(continuation, blr_receive);
+		STUFF(blr_leave);
+		STUFF(label);
+	}
+
+	sub = node->nod_arg[e_for_statement];
+	gen_statement(sub, request);
+
+	STUFF(blr_end);
+
+	if (continuation)
+		STUFF(blr_end);
+
+/* Finish off by building a SEND to indicate end of file */
+
+	if (message) {
+		gen_send_receive(message, blr_send);
+		STUFF(blr_assignment);
+		value = TRUE;
+		gen_literal(&desc, request);
+		gen_parameter(eof, request);
+		STUFF(blr_end);
+	}
+
+/* If this is our request, compile it. */
+
+	if (node->nod_arg[e_for_request])
+		gen_compile(request);
+}
+
+
+static void gen_function( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate blr for a function reference.
+ *
+ **************************************/
+	REQ new_request;
+	NOD args, *ptr, *end;
+	FUN function;
+	SYM symbol;
+	CTX context;
+	MSG send, receive;
+	USHORT i;
+	UCHAR *p;
+	RLB rlb;
+
+/* If there is a request associated with the statement, prepare to
+   generate BLR.  Otherwise assume that a request is already initialized. */
+
+	if (request && (request->req_flags & (REQ_project | REQ_group_by))) {
+		new_request = NULL;
+		rlb = CHECK_RLB(request->req_blr);
+	}
+	else if (new_request = (REQ) node->nod_arg[e_fun_request]) {
+		request = new_request;
+		gen_request(request);
+		if (receive = (MSG) node->nod_arg[e_fun_send])
+			gen_send_receive(receive, blr_receive);
+		send = (MSG) node->nod_arg[e_fun_receive];
+		gen_send_receive(send, blr_send);
+		rlb = CHECK_RLB(request->req_blr);
+		STUFF(blr_assignment);
+	}
+	else
+		rlb = CHECK_RLB(request->req_blr);
+
+/* Generate function body */
+
+	STUFF(blr_function);
+	function = (FUN) node->nod_arg[e_fun_function];
+	symbol = function->fun_symbol;
+	STUFF(symbol->sym_length);
+	for (p = (UCHAR *) symbol->sym_string; *p;)
+		STUFF(*p++);
+
+/* Generate function arguments */
+
+	args = node->nod_arg[e_fun_args];
+	STUFF(args->nod_count);
+
+	for (ptr = args->nod_arg, end = ptr + args->nod_count; ptr < end; ptr++)
+		gen_expression(*ptr, request);
+
+	if (new_request) {
+		gen_parameter(node->nod_import, request);
+		gen_compile(request);
+	}
+}
+
+
+static void gen_if( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ i f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate code for an IF statement.  Depending
+ *	on the environment, this may be either a QLI
+ *	context IF or a database context IF.
+ *
+ **************************************/
+	RLB rlb;
+
+/* If the statement is local to QLI, force the sub-
+   statements/expressions to be local also.  If not
+   local, generate BLR. */
+
+	if (node->nod_flags & NOD_local) {
+		gen_expression(node->nod_arg[e_if_boolean], 0);
+		gen_statement(node->nod_arg[e_if_true], request);
+		if (node->nod_arg[e_if_false])
+			gen_statement(node->nod_arg[e_if_false], request);
+	}
+	else {
+		rlb = CHECK_RLB(request->req_blr);
+		STUFF(blr_if);
+		gen_expression(node->nod_arg[e_if_boolean], request);
+		STUFF(blr_begin);
+		gen_statement(node->nod_arg[e_if_true], request);
+		STUFF(blr_end);
+		if (node->nod_arg[e_if_false]) {
+			STUFF(blr_begin);
+			gen_statement(node->nod_arg[e_if_false], request);
+			STUFF(blr_end);
+		}
+		else
+			STUFF(blr_end);
+	}
+}
+
+
+static void gen_literal( DSC * desc, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ l i t e r a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a literal value expression.
+ *
+ **************************************/
+	SLONG value;
+	USHORT l;
+	UCHAR *p;
+	RLB rlb;
+
+	rlb = CHECK_RLB(request->req_blr);
+
+	STUFF(blr_literal);
+	gen_descriptor(desc, request);
+	p = desc->dsc_address;
+	l = desc->dsc_length;
+
+	switch (desc->dsc_dtype) {
+	case dtype_short:
+		value = *(SSHORT *) p;
+		STUFF_WORD(value);
+		break;
+
+	case dtype_long:
+	case dtype_sql_time:
+	case dtype_sql_date:
+		value = *(SLONG *) p;
+		STUFF_WORD(value);
+		STUFF_WORD(value >> 16);
+		break;
+
+	case dtype_quad:
+	case dtype_timestamp:
+		value = *(SLONG *) p;
+		STUFF_WORD(value);
+		STUFF_WORD(value >> 16);
+		value = *(SLONG *) (p + 4);
+		STUFF_WORD(value);
+		STUFF_WORD(value >> 16);
+		break;
+
+	default:
+		if (l)
+			do
+				STUFF(*p++);
+			while (--l);
+	}
+}
+
+
+static void gen_map( MAP map, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a value map for a record selection expression.
+ *
+ **************************************/
+	USHORT count;
+	MAP temp;
+	RLB rlb;
+
+	rlb = CHECK_RLB(request->req_blr);
+
+	count = 0;
+	for (temp = map; temp; temp = temp->map_next)
+		if (temp->map_node->nod_type != nod_function)
+			temp->map_position = count++;
+
+	STUFF(blr_map);
+	STUFF_WORD(count);
+
+	for (temp = map; temp; temp = temp->map_next)
+		if (temp->map_node->nod_type != nod_function) {
+			STUFF_WORD(temp->map_position);
+			gen_expression(temp->map_node, request);
+		}
+}
+
+
+static void gen_modify( NOD node, REQ org_request)
+{
+/**************************************
+ *
+ *	g e n _ m o d i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a MODIFY statement.  
+ *
+ **************************************/
+	REQ request;
+	NOD *ptr, *end;
+	CTX context;
+	RLB rlb;
+
+	request = (REQ) node->nod_arg[e_mod_request];
+
+	rlb = CHECK_RLB(request->req_blr);
+
+	if (node->nod_arg[e_mod_send])
+		gen_send_receive(node->nod_arg[e_mod_send], blr_receive);
+
+	for (ptr = &node->nod_arg[e_mod_count], end = ptr + node->nod_count;
+		 ptr < end; ptr++) {
+		context = (CTX) * ptr;
+		STUFF(blr_modify);
+		STUFF(context->ctx_source->ctx_context);
+		STUFF(context->ctx_context);
+	}
+	STUFF(blr_begin);
+	gen_statement(node->nod_arg[e_mod_statement], request);
+	STUFF(blr_end);
+}
+
+
+
+static void gen_parameter( PAR parameter, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a simple parameter reference.
+ *
+ **************************************/
+	MSG message;
+	RLB rlb;
+
+	rlb = CHECK_RLB(request->req_blr);
+
+	message = parameter->par_message;
+	if (!parameter->par_missing) {
+		STUFF(blr_parameter);
+		STUFF(message->msg_number);
+		STUFF_WORD(parameter->par_parameter);
+	}
+	else {
+		STUFF(blr_parameter2);
+		STUFF(message->msg_number);
+		STUFF_WORD(parameter->par_parameter);
+		STUFF_WORD(parameter->par_missing->par_parameter);
+	}
+}
+
+
+static void gen_print_list( NOD list, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ p r i n t _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate BLR for a print list.
+ *
+ **************************************/
+	ITM item;
+	NOD *ptr, *end;
+
+	for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end; ptr++) {
+		item = (ITM) * ptr;
+		if (item->itm_type == item_value)
+			gen_expression(item->itm_value, request);
+	}
+}
+
+
+static void gen_report( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ r e p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile the body of a report specification.
+ *
+ **************************************/
+	RPT report;
+	BRK control;
+	NOD list;
+
+	report = (RPT) node->nod_arg[e_prt_list];
+
+	gen_control_break(report->rpt_top_rpt, request);
+	gen_control_break(report->rpt_top_page, request);
+	gen_control_break(report->rpt_top_breaks, request);
+
+	if (list = report->rpt_detail_line)
+		gen_print_list(list, request);
+
+	gen_control_break(report->rpt_bottom_breaks, request);
+	gen_control_break(report->rpt_bottom_page, request);
+	gen_control_break(report->rpt_bottom_rpt, request);
+}
+
+
+static void gen_request( REQ request)
+{
+/**************************************
+ *
+ *	g e n _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare to generation and compile a request.
+ *
+ **************************************/
+	MSG message;
+	PAR param, missing_param;
+	STR string;
+	DSC *desc;
+	USHORT alignment;
+	RLB rlb;
+
+	rlb = CHECK_RLB(request->req_blr);
+
+	STUFF(blr_version4);
+	STUFF(blr_begin);
+
+/* Build declarations for all messages. */
+
+	for (message = request->req_messages; message;
+		 message = message->msg_next) {
+		message->msg_length = 0;
+		for (param = message->msg_parameters; param; param = param->par_next) {
+			desc = &param->par_desc;
+			param->par_parameter = message->msg_parameter++;
+			alignment = type_alignments[desc->dsc_dtype];
+			if (alignment)
+				message->msg_length =
+					FB_ALIGN(message->msg_length, alignment);
+			param->par_offset = message->msg_length;
+			message->msg_length += desc->dsc_length;
+			if (missing_param = param->par_missing) {
+				missing_param->par_parameter = message->msg_parameter++;
+				message->msg_length =
+					FB_ALIGN(message->msg_length, sizeof(USHORT));
+				desc = &missing_param->par_desc;
+				missing_param->par_offset = message->msg_length;
+				message->msg_length += desc->dsc_length;
+			}
+		}
+
+		STUFF(blr_message);
+		STUFF(message->msg_number);
+		STUFF_WORD(message->msg_parameter);
+
+		string = (STR) ALLOCDV(type_str, message->msg_length);
+		message->msg_buffer = (UCHAR *) string->str_data;
+
+		for (param = message->msg_parameters; param; param = param->par_next) {
+			gen_descriptor(&param->par_desc, request);
+			if (missing_param = param->par_missing)
+				gen_descriptor(&missing_param->par_desc, request);
+		}
+	}
+}
+
+
+static void gen_rse( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a record selection expression.
+ *
+ **************************************/
+	NOD list, *ptr, *end;
+	CTX context;
+	REL relation;
+	USHORT i;
+	RLB rlb;
+	NOD_T join_type;
+
+	rlb = CHECK_RLB(request->req_blr);
+
+	if ((NOD_T) node->nod_arg[e_rse_join_type] == (NOD_T) 0)
+		STUFF(blr_rse);
+	else
+		STUFF(blr_rs_stream);
+	STUFF(node->nod_count);
+
+/* Check for aggregate case */
+
+	context = (CTX) node->nod_arg[e_rse_count];
+
+	if (context->ctx_sub_rse) {
+		STUFF(blr_aggregate);
+		STUFF(context->ctx_context);
+		gen_rse(context->ctx_sub_rse, request);
+		STUFF(blr_group_by);
+		if (list = node->nod_arg[e_rse_group_by]) {
+			request->req_flags |= REQ_group_by;
+			STUFF(list->nod_count);
+			for (ptr = list->nod_arg, end = ptr + list->nod_count; ptr < end;
+				 ptr++)
+				gen_expression(*ptr, request);
+			request->req_flags &= ~REQ_group_by;
+		}
+		else
+			STUFF(0);
+		gen_map(context->ctx_map, request);
+		if (list = node->nod_arg[e_rse_having]) {
+			STUFF(blr_boolean);
+			gen_expression(list, request);
+		}
+		if (list = node->nod_arg[e_rse_sort])
+			gen_sort(list, request, blr_sort);
+		STUFF(blr_end);
+		return;
+	}
+
+/* Make relation clauses for all relations */
+
+	for (ptr = &node->nod_arg[e_rse_count], end = ptr + node->nod_count;
+		 ptr < end; ptr++) {
+		context = (CTX) * ptr;
+		if (context->ctx_stream)
+			gen_rse(context->ctx_stream, request);
+		else {
+			relation = context->ctx_relation;
+			STUFF(blr_rid);
+			STUFF_WORD(relation->rel_id);
+			STUFF(context->ctx_context);
+		}
+	}
+
+/* Handle various clauses */
+
+	if (list = node->nod_arg[e_rse_first]) {
+		STUFF(blr_first);
+		gen_expression(list, request);
+	}
+
+	if (list = node->nod_arg[e_rse_boolean]) {
+		STUFF(blr_boolean);
+		gen_expression(list, request);
+	}
+
+	if (list = node->nod_arg[e_rse_sort])
+		gen_sort(list, request, blr_sort);
+
+	if (list = node->nod_arg[e_rse_reduced])
+		gen_sort(list, request, blr_project);
+
+	join_type = (NOD_T) node->nod_arg[e_rse_join_type];
+	if (join_type != (NOD_T) 0 && join_type != nod_join_inner) {
+		STUFF(blr_join_type);
+		if (join_type == nod_join_left)
+			STUFF(blr_left);
+		else if (join_type == nod_join_right)
+			STUFF(blr_right);
+		else
+			STUFF(blr_full);
+	}
+
+	STUFF(blr_end);
+}
+
+
+static void gen_send_receive( MSG message, USHORT operator)
+{
+/**************************************
+ *
+ *	g e n _ s e n d _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a send or receive statement, excluding body.
+ *
+ **************************************/
+	REQ request;
+	RLB rlb;
+
+	request = message->msg_request;
+	rlb = CHECK_RLB(request->req_blr);
+	STUFF(operator);
+	STUFF(message->msg_number);
+}
+
+
+static void gen_sort( NOD node, REQ request, UCHAR operator)
+{
+/**************************************
+ *
+ *	g e n _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate sort or reduced clause.
+ *
+ **************************************/
+	NOD *ptr, *end;
+	RLB rlb;
+
+	rlb = CHECK_RLB(request->req_blr);
+
+	STUFF(operator);
+	STUFF(node->nod_count);
+
+	request->req_flags |= REQ_project;
+	for (ptr = node->nod_arg, end = ptr + node->nod_count * 2; ptr < end;
+		 ptr += 2) {
+		if (operator == blr_sort)
+			STUFF((ptr[1]) ? blr_descending : blr_ascending);
+		gen_expression(ptr[0], request);
+	}
+	request->req_flags &= ~REQ_project;
+}
+
+
+static void gen_statement( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate BLR for statement.
+ *
+ **************************************/
+	NOD *ptr, *end;
+	RLB rlb;
+
+	if (request)
+		CHECK_RLB(request->req_blr);
+
+	switch (node->nod_type) {
+	case nod_abort:
+		if (node->nod_count)
+			gen_expression(node->nod_arg[0], 0);
+		return;
+
+	case nod_assign:
+		gen_assignment(node, request);
+		return;
+
+	case nod_commit_retaining:
+		return;
+
+	case nod_erase:
+		gen_erase(node, request);
+		return;
+
+	case nod_for:
+	case nod_report_loop:
+		gen_for(node, request);
+		return;
+
+	case nod_list:
+		for (ptr = node->nod_arg, end = ptr + node->nod_count; ptr < end;
+			 ptr++)
+			gen_statement(*ptr, request);
+		return;
+
+	case nod_modify:
+		gen_modify(node, request);
+		return;
+
+	case nod_output:
+		gen_statement(node->nod_arg[e_out_statement], request);
+		return;
+
+	case nod_print:
+		gen_print_list(node->nod_arg[e_prt_list], request);
+		return;
+
+	case nod_repeat:
+		gen_statement(node->nod_arg[e_rpt_statement], request);
+		return;
+
+	case nod_report:
+		gen_report(node, request);
+		return;
+
+	case nod_store:
+		gen_store(node, request);
+		return;
+
+	case nod_if:
+		gen_if(node, request);
+		return;
+
+	case nod_form_for:
+		gen_statement(node->nod_arg[e_ffr_statement], request);
+		return;
+
+	case nod_form_update:
+		if (node->nod_arg[e_fup_tag])
+			gen_expression(node->nod_arg[e_fup_tag], 0);
+		return;
+
+	default:
+		BUGCHECK(354);			/* Msg354 gen_statement: not yet implemented */
+	}
+}
+
+
+static void gen_statistical( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ s t a t i s t i c a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate the BLR for a statistical expresionn.
+ *
+ **************************************/
+	REQ new_request;
+	FLD field;
+	CTX context;
+	MSG send, receive;
+	USHORT operator, i;
+	RLB rlb;
+
+	switch (node->nod_type) {
+	case nod_average:
+		operator = blr_average;
+		break;
+
+	case nod_count:
+/* count2
+	operator = node->nod_arg [e_stt_value] ? blr_count2 : blr_count;
+*/
+		operator = blr_count;
+		break;
+
+	case nod_max:
+		operator = blr_maximum;
+		break;
+
+	case nod_min:
+		operator = blr_minimum;
+		break;
+
+	case nod_total:
+		operator = blr_total;
+		break;
+
+	case nod_agg_average:
+		operator = blr_agg_average;
+		break;
+
+	case nod_agg_count:
+/* count2
+	operator = node->nod_arg [e_stt_value] ? blr_agg_count2 : blr_agg_count;
+*/
+		operator = blr_agg_count;
+		break;
+
+	case nod_agg_max:
+		operator = blr_agg_max;
+		break;
+
+	case nod_agg_min:
+		operator = blr_agg_min;
+		break;
+
+	case nod_agg_total:
+		operator = blr_agg_total;
+		break;
+
+	case nod_from:
+		operator = (node->nod_arg[e_stt_default]) ? blr_via : blr_from;
+		break;
+
+	default:
+		BUGCHECK(355);			/* Msg355 gen_statistical: not understood */
+	}
+
+/* If there is a request associated with the statement, prepare to
+   generate BLR.  Otherwise assume that a request is alrealdy initialized. */
+
+	if (new_request = (REQ) node->nod_arg[e_stt_request]) {
+		request = new_request;
+		gen_request(request);
+		if (receive = (MSG) node->nod_arg[e_stt_send])
+			gen_send_receive(receive, blr_receive);
+		send = (MSG) node->nod_arg[e_stt_receive];
+		gen_send_receive(send, blr_send);
+		rlb = CHECK_RLB(request->req_blr);
+		STUFF(blr_assignment);
+	}
+	else
+		rlb = CHECK_RLB(request->req_blr);
+
+	STUFF(operator);
+
+	if (node->nod_arg[e_stt_rse])
+		gen_rse(node->nod_arg[e_stt_rse], request);
+
+/*count 2
+if (node->nod_arg [e_stt_value])
+*/
+	if (node->nod_arg[e_stt_value] && node->nod_type != nod_agg_count)
+		gen_expression(node->nod_arg[e_stt_value], request);
+
+	if (node->nod_arg[e_stt_default])
+		gen_expression(node->nod_arg[e_stt_default], request);
+
+	if (new_request) {
+		gen_parameter(node->nod_import, request);
+		gen_compile(request);
+	}
+}
+
+
+static void gen_store( NOD node, REQ request)
+{
+/**************************************
+ *
+ *	g e n _ s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate code for STORE statement.
+ *
+ **************************************/
+	MSG message;
+	REL relation;
+	CTX context;
+	RLB rlb;
+
+/* If there is a request associated with the statement, prepare to
+   generate BLR.  Otherwise assume that a request is alrealdy initialized. */
+
+	if (node->nod_arg[e_sto_request]) {
+		request = (REQ) node->nod_arg[e_sto_request];
+		gen_request(request);
+	}
+
+	rlb = CHECK_RLB(request->req_blr);
+
+/* If there is a message to be sent, build a receive for it */
+
+	if (node->nod_arg[e_sto_send])
+		gen_send_receive(node->nod_arg[e_sto_send], blr_receive);
+
+/* Generate the STORE statement proper. */
+
+	STUFF(blr_store);
+	context = (CTX) node->nod_arg[e_sto_context];
+	relation = context->ctx_relation;
+	STUFF(blr_rid);
+	STUFF_WORD(relation->rel_id);
+	STUFF(context->ctx_context);
+
+/* Build  the body of the loop. */
+
+	STUFF(blr_begin);
+	gen_statement(node->nod_arg[e_sto_statement], request);
+	STUFF(blr_end);
+
+/* If this is our request, compile it. */
+
+	if (node->nod_arg[e_sto_request])
+		gen_compile(request);
+}
diff --git a/src/qli/gener_proto.h b/src/qli/gener_proto.h
new file mode 100644
index 0000000000..10748ee1d0
--- /dev/null
+++ b/src/qli/gener_proto.h
@@ -0,0 +1,32 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		gener_proto.h
+ *	DESCRIPTION:	Prototype header file for gener.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_GENER_PROTO_H_
+#define _QLI_GENER_PROTO_H_
+
+extern struct nod	*GEN_generate (struct nod *);
+extern void		GEN_release (void);
+extern struct rlb	*GEN_rlb_extend (struct rlb *);
+extern void		GEN_rlb_release (struct rlb *);
+
+#endif /* _QLI_GENER_PROTO_H_ */
diff --git a/src/qli/help.e b/src/qli/help.e
new file mode 100644
index 0000000000..571c5d116e
--- /dev/null
+++ b/src/qli/help.e
@@ -0,0 +1,345 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		help.e
+ *	DESCRIPTION:	Help module.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/gds.h"
+#include "../qli/dtr.h"
+#include "../qli/compile.h"
+#include "../qli/err_proto.h"
+#include "../qli/help_proto.h"
+#include "../qli/lex_proto.h"
+#include "../jrd/gds_proto.h"
+
+#define INDENT		"  "
+#define COLUMN_WIDTH	20
+#define RIGHT_MARGIN	70
+
+#ifdef VMS
+#define TARGET	"[syshlp]help.gdb"
+#endif
+
+#ifdef UNIX
+#define TARGET "help/help.gdb"
+#endif
+
+#ifdef PC_PLATFORM
+#define TARGET "help\\help.gdb"
+#endif
+
+#if (defined WIN_NT)
+#define TARGET "help/help.gdb"
+#endif
+
+DATABASE HELP_DB = STATIC "help.gdb" RUNTIME target;
+
+static int additional_topics(TEXT *, TEXT *, TEXT *);
+static void print_more(USHORT, USHORT, TEXT **, USHORT *, TEXT *, USHORT);
+static void print_topic(USHORT, USHORT, TEXT **, USHORT *, TEXT *, USHORT);
+static TEXT *strip(TEXT *);
+
+
+void HELP_fini(void)
+{
+/**************************************
+ *
+ *	H E L P _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	if (HELP_DB) {
+		COMMIT;
+		FINISH;
+	}
+}
+
+
+void HELP_help( SYN node)
+{
+/**************************************
+ *
+ *	H E L P _ h e l p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Give the poor sucker help.
+ *
+ **************************************/
+	NAM *ptr, *end, name;
+	USHORT max_level;
+	TEXT target[128], **topic, *topics[16];
+
+	if (!HELP_DB) {
+		gds__prefix(target, TARGET);
+		READY
+		ON_ERROR
+			ERRQ_database_error(NULL_PTR, gds__status);
+		END_ERROR;
+		START_TRANSACTION;
+	}
+
+	max_level = 0;
+	topic = topics;
+	*topic++ = "QLI";
+
+	for (ptr = (NAM *) node->syn_arg, end = ptr + node->syn_count; ptr < end;
+		 ptr++)
+		*topic++ = (*ptr)->nam_string;
+
+	print_topic(0, node->syn_count, topics, &max_level, "", FALSE);
+
+	if (max_level < node->syn_count)
+		print_topic(0, node->syn_count, topics, &max_level, "", TRUE);
+}
+
+
+static int additional_topics( TEXT * parent, TEXT * banner, TEXT * string)
+{
+/**************************************
+ *
+ *	a d d i t i o n a l _ t o p i c s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a list of other known topics.
+ *
+ **************************************/
+	TEXT *p, line[256], *ptr;
+	USHORT topics, l;
+
+/* Print list of know topics.  When we find the first, 
+   print the banner, if any */
+
+	ptr = line;
+	topics = 0;
+	l = strlen(parent);
+
+	FOR X IN TOPICS WITH X.PARENT EQ parent SORTED BY X.TOPIC
+		if (QLI_abort)
+			return;
+		p = X.TOPIC;
+		while (*p && *p != ' ')
+			p++;
+		if (!(l = p - X.TOPIC))
+			continue;
+		if (++topics == 1 && banner)
+			ib_printf("%s\n", banner, string, parent);
+		p =
+			line +
+			((ptr - line + COLUMN_WIDTH - 1) / COLUMN_WIDTH) * COLUMN_WIDTH;
+		if (p + l > line + RIGHT_MARGIN) {
+			*ptr = 0;
+			ib_printf("%s%s\n", INDENT, line);
+			p = ptr = line;
+		}
+		while (ptr < p)
+			*ptr++ = ' ';
+		p = X.TOPIC;
+		do
+			*ptr++ = *p++;
+		while (--l);
+		*ptr++ = ' ';
+	END_FOR;
+
+	if (ptr != line) {
+		*ptr = 0;
+		ib_printf("%s%s\n", INDENT, line);
+	}
+
+	return topics;
+}
+
+
+static void print_more(
+					   USHORT level,
+					   USHORT depth,
+					   TEXT ** topics,
+					   USHORT * max_level, TEXT * parent, USHORT error_flag)
+{
+/**************************************
+ *
+ *	p r i n t _ m o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	We have printed a topic with additional sub-topics.  Ask the user if he
+ *	wants more.
+ *
+ **************************************/
+	TEXT buffer[256], topic[80], prompt[80], *p, *q;
+
+	ERRQ_msg_get(502, prompt);	/* Msg502 "Subtopic? "  */
+
+/* Prompt the user for a line */
+
+	if (!LEX_get_line(prompt, buffer, sizeof(buffer)))
+		return;
+
+/* Upcase the response and zap the blanks */
+
+	topics[1] = p = topic;
+
+	for (q = buffer; *q && *q != '\n'; q++)
+		if (*q != ' ')
+			*p++ = UPPER(*q);
+	*p = 0;
+
+/* If we got anything, print the new topic */
+
+	if (p != topic)
+		print_topic(level + 1, depth + 1, topics + 1, max_level, parent,
+					FALSE);
+}
+
+
+static void print_topic(
+						USHORT level,
+						USHORT depth,
+						TEXT ** topics,
+						USHORT * max_level, TEXT * parent, USHORT error_flag)
+{
+/**************************************
+ *
+ *	p r i n t _ t o p i c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup topic in path.  If we find a topic, and are not level
+ *	zero, recurse.  Otherwise print out the topic.  In any case,
+ *	remember the lowest level on which a topic was found.  If the
+ *	error flag is set, print out a list of sub-topics.
+ *
+ **************************************/
+	USHORT count;
+	TEXT string[128], banner[128], *next, *p, *q, *path, buffer[128],
+		prompt[80];
+
+/* Copy the parent string inserting a blank at the end */
+
+	p = string;
+
+	if (*parent) {
+		q = parent;
+		while (*q)
+			*p++ = *q++;
+		*p++ = ' ';
+	}
+
+	next = p;
+	count = 0;
+
+	FOR X IN TOPICS WITH X.FACILITY EQ "QLI" AND
+		(X.TOPIC STARTING WITH * topics AND X.PARENT EQ parent) OR
+         (X.TOPIC = X.FACILITY AND X.TOPIC = *topics AND X.TOPIC = X.PARENT)
+        count++;
+	END_FOR;
+
+	if (count > 1)
+		ERRQ_msg_put(80, (TEXT *) (ULONG) count, *topics, NULL, NULL, NULL);	/* Msg80 [%d topics matched %s] */
+
+	count = 0;
+
+	FOR(LEVEL level) X IN TOPICS WITH X.FACILITY EQ "QLI" AND
+		(X.TOPIC STARTING WITH * topics AND X.PARENT EQ parent) OR
+        (X.TOPIC = X.FACILITY AND X.TOPIC = *topics AND X.TOPIC = X.PARENT)
+		SORTED BY X.TOPIC 
+
+        if (QLI_abort)
+			  return;
+
+		if (count) {
+			ERRQ_msg_get(503, prompt);	/* Msg503 "\ntype <cr> for next topic or <EOF> to stop: " */
+			if (!LEX_get_line(prompt, buffer, sizeof(buffer)))
+				return;
+		}
+		++count;
+		if (level > *max_level)
+			*max_level = level;
+		p = next;
+		q = X.TOPIC;
+		while (*q && *q != ' ')
+			*p++ = *q++;
+		*p = 0;
+		if (level < depth)
+			print_topic(level + 1, depth, topics + 1, max_level, string,
+						error_flag);
+		else {
+			ib_printf("\n%s\n\n", strip(string));
+			QLI_skip_line = TRUE;
+			FOR B IN X.TEXT
+				if (QLI_abort)
+					return;
+				B.SEGMENT[B.LENGTH] = 0;
+				ib_printf("%s%s", INDENT, B.SEGMENT);
+			END_FOR;
+			ERRQ_msg_format(81, sizeof(banner), banner, INDENT, NULL, NULL,
+							NULL, NULL);	/* Msg81 %sSub-topics available: */
+			if (additional_topics(string, banner, INDENT))
+				print_more(level, depth, topics, max_level, string,
+						   error_flag);
+		}
+	END_FOR;
+
+	if (!count && error_flag && level > *max_level) {
+		path = strip(parent);
+		ERRQ_msg_put(82, path, *topics, NULL, NULL, NULL);	/* Msg82 No help is available for %s %s */
+		ERRQ_msg_format(83, sizeof(banner), banner, path, NULL, NULL, NULL, NULL);	/* Msg83 Sub-topics available for %s are: */
+		additional_topics(parent, banner, path);
+	}
+}
+
+
+static TEXT *strip( TEXT * string)
+{
+/**************************************
+ *
+ *	s t r i p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Strip off the first topic in the path.
+ *
+ **************************************/
+	TEXT *p;
+
+	p = string;
+
+	while (*p != ' ')
+		if (!*p++)
+			return string;
+
+	while (*p == ' ')
+		if (!*p++)
+			return string;
+
+	return p;
+}
diff --git a/src/qli/help_proto.h b/src/qli/help_proto.h
new file mode 100644
index 0000000000..30111df867
--- /dev/null
+++ b/src/qli/help_proto.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		help_proto.h
+ *	DESCRIPTION:	Prototype header file for help.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_HELP_PROTO_H_
+#define _QLI_HELP_PROTO_H_
+
+extern void	HELP_fini (void);
+extern void	HELP_help (struct syn *);
+
+#endif /* _QLI_HELP_PROTO_H_ */
diff --git a/src/qli/hsh.cpp b/src/qli/hsh.cpp
new file mode 100644
index 0000000000..22b03a754d
--- /dev/null
+++ b/src/qli/hsh.cpp
@@ -0,0 +1,275 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		hsh.c
+ *	DESCRIPTION:	Hash table and symbol manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../qli/dtr.h"
+#include "../qli/parse.h"
+#ifdef JPN_SJIS
+#include "../jrd/kanji.h"
+#endif
+#include "../qli/all_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/hsh_proto.h"
+
+#define HASH_SIZE	224
+
+static int hash(register SCHAR *, register int);
+static BOOLEAN scompare(register SCHAR *, register int, register SCHAR *,
+						int);
+
+static SYM hash_table[HASH_SIZE];
+static SYM key_symbols;
+
+struct word {
+	KWWORDS id;
+	SCHAR *keyword;
+} keywords[] = {
+#include "../qli/words.h"
+KW_continuation, "-\n"};
+
+#define NUMWORDS	(sizeof (keywords) / sizeof (struct word))
+
+
+void HSH_fini(void)
+{
+/**************************************
+ *
+ *	H S H _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release space used by keywords.
+ *
+ **************************************/
+	register SYM symbol;
+
+	while (key_symbols) {
+		symbol = key_symbols;
+		key_symbols = (SYM) key_symbols->sym_object;
+		HSH_remove(symbol);
+		ALL_release(symbol);
+	}
+}
+
+
+void HSH_init(void)
+{
+/**************************************
+ *
+ *	H S H _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the hash table.  This mostly involves
+ *	inserting all known keywords.
+ *
+ **************************************/
+	register SCHAR *string;
+	register SYM symbol;
+	register SSHORT i;
+	struct word *word;
+
+	for (i = 0, word = keywords; i < NUMWORDS; i++, word++) {
+		for (string = word->keyword; *string; string++);
+		symbol = (SYM) ALLOCPV(type_sym, 0);
+		symbol->sym_type = SYM_keyword;
+		symbol->sym_length = string - word->keyword;
+		symbol->sym_string = word->keyword;
+		symbol->sym_keyword = (int) word->id;
+		HSH_insert(symbol);
+		symbol->sym_object = (BLK) key_symbols;
+		key_symbols = symbol;
+	}
+}
+
+
+void HSH_insert( register SYM symbol)
+{
+/**************************************
+ *
+ *	H S H _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert a symbol into the hash table.
+ *
+ **************************************/
+	register int h;
+	register SYM old;
+
+	h = hash(symbol->sym_string, symbol->sym_length);
+
+	for (old = hash_table[h]; old; old = old->sym_collision)
+		if (scompare(symbol->sym_string, symbol->sym_length,
+					 old->sym_string, old->sym_length)) {
+			symbol->sym_homonym = old->sym_homonym;
+			old->sym_homonym = symbol;
+			return;
+		}
+
+	symbol->sym_collision = hash_table[h];
+	hash_table[h] = symbol;
+}
+
+
+SYM HSH_lookup(register SCHAR * string, register int length)
+{
+/**************************************
+ *
+ *	H S H _ l o o k u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform a string lookup against hash table.
+ *
+ **************************************/
+	register SYM symbol;
+
+	for (symbol = hash_table[hash(string, length)]; symbol;
+		 symbol = symbol->sym_collision)
+			if (scompare
+				(string, length, symbol->sym_string,
+				 symbol->sym_length)) return symbol;
+
+	return NULL;
+}
+
+
+void HSH_remove( register SYM symbol)
+{
+/**************************************
+ *
+ *	H S H _ r e m o v e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove a symbol from the hash table.
+ *
+ **************************************/
+	int h;
+	register SYM *next, *ptr, homonym;
+
+	h = hash(symbol->sym_string, symbol->sym_length);
+
+	for (next = &hash_table[h]; *next; next = &(*next)->sym_collision)
+		if (symbol == *next)
+			if (homonym = symbol->sym_homonym) {
+				homonym->sym_collision = symbol->sym_collision;
+				*next = homonym;
+				return;
+			}
+			else {
+				*next = symbol->sym_collision;
+				return;
+			}
+		else
+			for (ptr = &(*next)->sym_homonym; *ptr;
+				 ptr = &(*ptr)->sym_homonym) if (symbol == *ptr) {
+					*ptr = symbol->sym_homonym;
+					return;
+				}
+
+	ERRQ_error(27, NULL, NULL, NULL, NULL, NULL);	/* Msg 27 HSH_remove failed */
+}
+
+
+static int hash( register SCHAR * string, register int length)
+{
+/**************************************
+ *
+ *	h a s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns the hash function of a string.
+ *
+ **************************************/
+	register int value;
+	SCHAR c;
+
+	value = 0;
+
+	while (length--) {
+		c = *string++;
+		value = (value << 1) + UPPER(c);
+
+#ifdef JPN_SJIS
+
+/* It should be ok to not japanize this function. */
+
+#endif
+	}
+
+	return ((value >= 0) ? value : -value) % HASH_SIZE;
+}
+
+
+static BOOLEAN scompare(
+						register SCHAR * string1,
+						register int length1,
+						register SCHAR * string2, int length2)
+{
+/**************************************
+ *
+ *	s c o m p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two strings
+ *
+ **************************************/
+	SCHAR c1, c2;
+
+	if (length1 != length2)
+		return FALSE;
+
+	while (length1--)
+#ifndef JPN_SJIS
+
+		if ((c1 = *string1++) != (c2 = *string2++) && UPPER(c1) != UPPER(c2))
+			return FALSE;
+
+#else /*JPN_SJIS */
+
+		/* Do not upcase second byte of a sjis kanji character */
+
+		if ((c1 = *string1++) != (c2 = *string2++)) {
+			if (UPPER(c1) != UPPER(c2))
+				return FALSE;
+		}
+		else if (SJIS1(c1)) {
+			if (!(length1--))
+				break;
+			if ((c1 = *string1++) != (c2 = *string2++))
+				return FALSE;
+		}
+#endif /*JPN_SJIS */
+
+	return TRUE;
+}
diff --git a/src/qli/hsh_proto.h b/src/qli/hsh_proto.h
new file mode 100644
index 0000000000..b0719ef526
--- /dev/null
+++ b/src/qli/hsh_proto.h
@@ -0,0 +1,41 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		hsh_proto.h
+ *	DESCRIPTION:	Prototype header file for hsh.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_HSH_PROTO_H_
+#define _QLI_HSH_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void		HSH_fini (void);
+extern void		HSH_init (void);
+extern void		HSH_insert (register struct sym *);
+extern struct sym	*HSH_lookup (register SCHAR *, register int);
+extern void		HSH_remove (register struct sym *);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _QLI_HSH_PROTO_H_ */
diff --git a/src/qli/lex.cpp b/src/qli/lex.cpp
new file mode 100644
index 0000000000..9af50e08e0
--- /dev/null
+++ b/src/qli/lex.cpp
@@ -0,0 +1,1340 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		lex.c
+ *	DESCRIPTION:	Lexical analyser
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include <string.h>
+#include <stdlib.h>
+#include "../qli/dtr.h"
+#include "../qli/parse.h"
+#include "../include/jrd/gds.h"
+#if (defined JPN_SJIS || defined JPN_EUC)
+#include "../jrd/kanji.h"
+#endif
+#include "../qli/all_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/hsh_proto.h"
+#include "../qli/lex_proto.h"
+#include "../qli/proc_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/utl_proto.h"
+
+#ifdef VMS
+#include <descrip.h>
+#define SCRATCH		"gds_query"
+#define LIB$_INPSTRTRU	0x15821c
+#endif
+
+#ifdef UNIX
+#ifdef SMALL_FILE_NAMES
+#define SCRATCH		"gds_q"
+#else
+#define SCRATCH		"gds_query"
+#endif
+#define UNIX_LINE	1
+#endif
+
+#ifdef PC_PLATFORM
+#define SCRATCH		"I"
+#define UNIX_LINE	1
+#define PC_FILE_SEEK
+#endif
+
+#if (defined WIN_NT)
+#include <io.h>
+#define SCRATCH		"ib"
+#define UNIX_LINE	1
+#define PC_FILE_SEEK
+#endif
+
+#ifndef FOPEN_INPUT_TYPE
+#define FOPEN_INPUT_TYPE	"r"
+#endif
+
+extern USHORT sw_verify, sw_trace;
+
+static BOOLEAN get_line(IB_FILE *, TEXT *, USHORT);
+static int nextchar(BOOLEAN);
+static void next_line(BOOLEAN);
+static void retchar(SSHORT);
+static BOOLEAN scan_number(SSHORT, TEXT **);
+static int skip_white(void);
+
+static LLS QLI_statements;
+static int QLI_position;
+static IB_FILE *input_file = NULL, *trace_file = NULL;
+static UCHAR trace_file_name[128];
+static SLONG trans_limit;
+
+#define TRANS_LIMIT	10
+
+#define CHR_ident	1
+#define CHR_letter	2
+#define CHR_digit	4
+#define CHR_quote	8
+#define CHR_white	16
+#define CHR_eol		32
+
+#define CHR_IDENT	CHR_ident
+#define CHR_LETTER	CHR_letter + CHR_ident
+#define CHR_DIGIT	CHR_digit + CHR_ident
+#define CHR_QUOTE	CHR_quote
+#define CHR_WHITE	CHR_white
+#define CHR_EOL		CHR_eol
+
+static SCHAR *eol_string = "*end_of_line*", *eof_string = "*end_of_file*";
+
+static SCHAR classes[256] = {
+	0, 0, 0, 0, 0, 0, 0, 0,
+	0, CHR_WHITE, CHR_EOL, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0,
+	CHR_WHITE, 0, CHR_QUOTE, CHR_IDENT, CHR_LETTER, 0, 0, CHR_QUOTE,
+	0, 0, 0, 0, 0, 0, 0, 0,
+	CHR_DIGIT, CHR_DIGIT, CHR_DIGIT, CHR_DIGIT, CHR_DIGIT, CHR_DIGIT,
+		CHR_DIGIT, CHR_DIGIT,
+	CHR_DIGIT, CHR_DIGIT, 0, 0, 0, 0, 0, 0,
+	0, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER,
+		CHR_LETTER,
+	CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER,
+		CHR_LETTER, CHR_LETTER,
+	CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER,
+		CHR_LETTER, CHR_LETTER,
+	CHR_LETTER, CHR_LETTER, CHR_LETTER, 0, 0, 0, 0, CHR_IDENT,
+	0, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER,
+		CHR_LETTER,
+	CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER,
+		CHR_LETTER, CHR_LETTER,
+	CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER, CHR_LETTER,
+		CHR_LETTER, CHR_LETTER,
+	CHR_LETTER, CHR_LETTER, CHR_LETTER, 0
+};
+
+
+
+int LEX_active_procedure(void)
+{
+/**************************************
+ *
+ *	L E X _ a c t i v e _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return TRUE if we're running out of a
+ *	procedure and FALSE otherwise.  Somebody
+ *	somewhere may care.
+ *
+ **************************************/
+
+	return (QLI_line->line_type == line_blob) ? TRUE : FALSE;
+}
+
+
+void LEX_edit( SLONG start, SLONG stop)
+{
+/**************************************
+ *
+ *	L E X _ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump the last full statement into a scratch file, then
+ *	push the scratch file on the input stack.
+ *
+ **************************************/
+	IB_FILE *scratch;
+	TEXT filename[128], *p;
+	SSHORT c;
+
+#ifndef __BORLANDC__
+	scratch = (IB_FILE *) gds__temp_file(TRUE, SCRATCH, filename);
+	if (scratch == (IB_FILE *) - 1)
+		IBERROR(61);			/* Msg 61 couldn't open scratch file */
+#ifdef WIN_NT
+	stop--;
+#endif
+#else
+/* When using Borland C, routine gds__temp_file is in a DLL which maps
+   a set of I/O handles that are different from the ones in the QLI
+   process!  So we will get a temp name on our own.  [Note that
+   gds__temp_file returns -1 on error, not 0] */
+
+	p = tempnam(NULL, SCRATCH);
+	strcpy(filename, p);
+	free(p);
+	scratch = ib_fopen(filename, "w+");
+	stop--;
+	if (!scratch)
+		IBERROR(61);			/* Msg 61 couldn't open scratch file */
+#endif
+
+	if (ib_fseek(trace_file, start, 0)) {
+		ib_fseek(trace_file, (SLONG) 0, 2);
+		IBERROR(59);			/* Msg 59 ib_fseek failed */
+	}
+
+	while (++start <= stop) {
+		c = ib_getc(trace_file);
+		if (c == EOF)
+			break;
+		ib_putc(c, scratch);
+	}
+
+	ib_fclose(scratch);
+
+	if (gds__edit(filename, TRUE))
+		LEX_push_file(filename, TRUE);
+
+	unlink(filename);
+
+	ib_fseek(trace_file, (SLONG) 0, 2);
+}
+
+
+TOK LEX_edit_string(void)
+{
+/**************************************
+ *
+ *	L E X _ e d i t _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the next token as an edit_string.
+ *
+ **************************************/
+	TOK token;
+	SSHORT c, d;
+	TEXT *p;
+
+	token = QLI_token;
+
+	do
+		c = skip_white();
+	while (c == '\n');
+	p = token->tok_string;
+	*p = c;
+
+	if (!QLI_line) {
+		token->tok_symbol = NULL;
+		token->tok_keyword = KW_none;
+		return NULL;
+	}
+
+	while (!(classes[c] & (CHR_white | CHR_eol))) {
+		*p++ = c;
+		if (classes[c] & CHR_quote)
+			for (;;) {
+				if ((d = nextchar(FALSE)) == '\n') {
+					retchar(d);
+					break;
+				}
+				*p++ = d;
+				if (d == c)
+					break;
+			}
+		c = nextchar(TRUE);
+	}
+
+	retchar(c);
+
+	if (p[-1] == ',')
+		retchar(*--p);
+
+	token->tok_length = p - token->tok_string;
+	*p = 0;
+	token->tok_symbol = NULL;
+	token->tok_keyword = KW_none;
+
+	if (sw_trace)
+		ib_puts(token->tok_string);
+
+	return token;
+}
+
+
+TOK LEX_filename(void)
+{
+/**************************************
+ *
+ *	L E X _ f i l e n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the next token as a filename.
+ *
+ **************************************/
+	TOK token;
+	SSHORT c, save;
+	USHORT class_;
+	TEXT *p;
+
+	token = QLI_token;
+
+	do
+		c = skip_white();
+	while (c == '\n');
+	p = token->tok_string;
+	*p++ = c;
+
+/* If there isn't a line, we're all done */
+
+	if (!QLI_line) {
+		token->tok_symbol = NULL;
+		token->tok_keyword = KW_none;
+		return NULL;
+	}
+
+/* notice if this looks like a quoted file name */
+
+	if (classes[c] & CHR_quote) {
+		token->tok_type = tok_quoted;
+		save = c;
+	}
+	else
+		save = 0;
+
+/* Look for white space or end of line, allowing embedded quoted strings. */
+
+	for (;;) {
+		c = nextchar(TRUE);
+		class_ = classes[c];
+		if (c == '"' && c != save) {
+			*p++ = c;
+			for (;;) {
+				c = nextchar(TRUE);
+				class_ = classes[c];
+				if ((class_ & CHR_eol) || c == '"')
+					break;
+				*p++ = c;
+			}
+		}
+
+		if (class_ & (CHR_white | CHR_eol))
+			break;
+		*p++ = c;
+	}
+
+	retchar(c);
+
+/* Drop trailing semi-colon to avoid confusion */
+
+	if (p[-1] == ';') {
+		retchar(c);
+		--p;
+	}
+
+/* complain on unterminated quoted string */
+
+	if ((token->tok_type == tok_quoted) && (p[-1] != save))
+		IBERROR(60);			/* Msg 60 unterminated quoted string */
+
+	token->tok_length = p - token->tok_string;
+	*p = 0;
+	token->tok_symbol = NULL;
+	token->tok_keyword = KW_none;
+
+	if (sw_trace)
+		ib_puts(token->tok_string);
+
+	return token;
+}
+
+
+void LEX_fini(void)
+{
+/**************************************
+ *
+ *	L E X _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shut down LEX in a more or less clean way.
+ *
+ **************************************/
+
+	if (trace_file && (trace_file != (IB_FILE *) - 1)) {
+		ib_fclose(trace_file);
+		unlink(trace_file_name);
+	}
+}
+
+
+void LEX_flush(void)
+{
+/**************************************
+ *
+ *	L E X _ f l u s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush the input stream after an error.  
+ *
+ **************************************/
+
+	trans_limit = 0;
+
+	if (!QLI_line)
+		return;
+
+/* Pop off line sources until we're down to the last one. */
+
+	while (QLI_line->line_next)
+		LEX_pop_line();
+
+/* Look for a semi-colon */
+
+	if (QLI_semi)
+		while (QLI_line && QLI_token->tok_keyword != KW_SEMI)
+			LEX_token();
+	else
+		while (QLI_line && QLI_token->tok_type != tok_eol)
+			LEX_token();
+}
+
+
+#ifdef UNIX_LINE
+int LEX_get_line( TEXT * prompt, TEXT * buffer, int size)
+{
+/**************************************
+ *
+ *	L E X _ g e t _ l i n e  ( U N I X )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Give a prompt and read a line.  If the line is terminated by
+ *	an EOL, return TRUE.  If the buffer is exhausted and non-blanks
+ *	would be discarded, return an error.  If EOF is detected,
+ *	return FALSE.  Regardless, a null terminated string is returned.
+ *
+ **************************************/
+	TEXT *p;
+	USHORT overflow_flag;
+	SSHORT c;
+
+/* UNIX flavor */
+
+	if (prompt)
+		ib_printf(prompt);
+
+	errno = 0;
+	p = buffer;
+	overflow_flag = FALSE;
+
+	while (TRUE) {
+		c = ib_getc(input_file);
+		if (c == EOF) {
+			if (SYSCALL_INTERRUPTED(errno) && !QLI_abort) {
+				errno = 0;
+				continue;
+			}
+
+			/* The check for this actually being a terminal that is at
+			   end of file is to prevent looping through a redirected
+			   ib_stdin (e.g., a script file).  */
+
+			if (prompt && isatty(ib_fileno(ib_stdin))) {
+				ib_rewind(ib_stdin);
+				ib_putchar('\n');
+			}
+			if (QLI_abort)
+				continue;
+			else
+				break;
+		}
+		if (--size > 0)
+			*p++ = c;
+		else if (c != ' ' && c != '\n')
+			overflow_flag = TRUE;
+		if (c == '\n')
+			break;
+	}
+
+	*p = 0;
+	if (c == EOF)
+		return FALSE;
+
+	if (overflow_flag) {
+		buffer[0] = 0;
+		IBERROR(476);			/* Msg 476 input line too long */
+	}
+
+	if (sw_verify)
+		ib_fputs(buffer, ib_stdout);
+
+	return TRUE;
+}
+#endif
+
+
+#ifdef VMS
+int LEX_get_line( TEXT * prompt, TEXT * buffer, int size)
+{
+/**************************************
+ *
+ *	L E X _ g e t _ l i n e  ( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Give a prompt and read a line.  If the line is terminated by
+ *	an EOL, return TRUE.  If the buffer is exhausted and non-blanks
+ *	would be discarded, return an error.  If EOF is detected,
+ *	return FALSE.  Regardless, a null terminated string is returned.
+ *
+ **************************************/
+	struct dsc$descriptor_s line_desc, prompt_desc;
+	SLONG status;
+	SSHORT length;
+	SCHAR *p;
+
+/* We're going to add a null to the end, so don't read too much */
+
+	--size;
+
+	line_desc.dsc$b_class = DSC$K_CLASS_S;
+	line_desc.dsc$b_dtype = DSC$K_DTYPE_T;
+	line_desc.dsc$w_length = size;
+	line_desc.dsc$a_pointer = buffer;
+
+	if (prompt) {
+		prompt_desc.dsc$b_class = DSC$K_CLASS_S;
+		prompt_desc.dsc$b_dtype = DSC$K_DTYPE_T;
+		prompt_desc.dsc$w_length = strlen(prompt);
+		prompt_desc.dsc$a_pointer = prompt;
+		status = lib$get_input(&line_desc, &prompt_desc, &length);
+	}
+	else
+		status = lib$get_input(&line_desc, NULL, &length);
+
+	p = buffer + length;
+
+	if (!(status & 1)) {
+		if (status != LIB$_INPSTRTRU)
+			return FALSE;
+		buffer[0] = 0;
+		IBERROR(476);			/* Msg 476 input line too long */
+	}
+	else if (length < size)
+		*p++ = '\n';
+
+	*p = 0;
+
+	if (sw_verify) {
+		line_desc.dsc$w_length = length;
+		lib$put_output(&line_desc);
+	}
+
+	return TRUE;
+}
+#endif
+
+
+void LEX_init(void)
+{
+/**************************************
+ *
+ *	L E X _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for lexical scanning.  While we're at it, open a
+ *	scratch trace file to keep all input.
+ *
+ **************************************/
+	TEXT *p;
+
+#ifndef __BORLANDC__
+	trace_file = gds__temp_file(TRUE, SCRATCH, trace_file_name);
+	if (trace_file == (IB_FILE *) - 1)
+		IBERROR(61);			/* Msg 61 couldn't open scratch file */
+#else
+/* When using Borland C, routine gds__temp_file is in a DLL which maps
+   a set of I/O handles that are different from the ones in the QLI
+   process!  So we will get a temp name on our own.  [Note that
+   gds__temp_file returns -1 on error, not 0] */
+
+	p = tempnam(NULL, SCRATCH);
+	strcpy(trace_file_name, p);
+	free(p);
+	trace_file = ib_fopen(trace_file_name, "w+");
+	if (!trace_file)
+		IBERROR(61);			/* Msg 61 couldn't open scratch file */
+#endif
+
+	QLI_token = (TOK) ALLOCPV(type_tok, MAXSYMLEN);
+
+	QLI_line = (LINE) ALLOCPV(type_line, 0);
+	QLI_line->line_size = sizeof(QLI_line->line_data);
+	QLI_line->line_ptr = QLI_line->line_data;
+	QLI_line->line_type = line_stdin;
+	QLI_line->line_source = (int *) ib_stdin;
+
+	QLI_semi = FALSE;
+	input_file = ib_stdin;
+	HSH_init();
+}
+
+
+void LEX_mark_statement(void)
+{
+/**************************************
+ *
+ *	L E X _ m a r k _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Push a position in the trace file onto
+ *	the statement stack.
+ *
+ **************************************/
+	LLS statement;
+	LINE temp;
+
+	for (temp = QLI_line;
+		 temp->line_next && QLI_statements;
+		 temp = temp->line_next)
+if (temp->line_next->line_position == (SLONG) QLI_statements->lls_object) return;
+
+	statement = (LLS) ALLOCP(type_lls);
+	statement->lls_object = (BLK) temp->line_position;
+	statement->lls_next = QLI_statements;
+	QLI_statements = statement;
+}
+
+
+void LEX_pop_line(void)
+{
+/**************************************
+ *
+ *	L E X _ p o p _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	We're done with the current line source.  Close it out
+ *	and release the line block.
+ *
+ **************************************/
+	LINE temp;
+
+	temp = QLI_line;
+	QLI_line = temp->line_next;
+
+	if (temp->line_type == line_blob)
+		PRO_close(temp->line_database, temp->line_source);
+	else if (temp->line_type == line_file)
+		ib_fclose((IB_FILE *) temp->line_source);
+
+	ALL_release(temp);
+}
+
+
+void LEX_procedure( DBB database, int *blob)
+{
+/**************************************
+ *
+ *	L E X _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Push a blob-resident procedure onto the input line source
+ *	stack;
+ *
+ **************************************/
+	LINE temp;
+
+	temp = (LINE) ALLOCPV(type_line, QLI_token->tok_length);
+	temp->line_source = blob;
+	strncpy(temp->line_source_name, QLI_token->tok_string,
+			QLI_token->tok_length);
+	temp->line_type = line_blob;
+	temp->line_database = database;
+	temp->line_size = sizeof(temp->line_data);
+	temp->line_ptr = temp->line_data;
+	temp->line_position = QLI_position;
+	temp->line_next = QLI_line;
+	QLI_line = temp;
+}
+
+
+int LEX_push_file( TEXT * filename, int error_flag)
+{
+/**************************************
+ *
+ *	L E X _ p u s h _ f i l e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a command file.  If the open succeedes, push the input
+ *	source onto the source stack.  If the open fails, give an error
+ *	if the error flag is set, otherwise return quietly.
+ *
+ **************************************/
+	TEXT buffer[64];
+	IB_FILE *file;
+	LINE line;
+
+	if (!(file = ib_fopen(filename, FOPEN_INPUT_TYPE))) {
+		sprintf(buffer, "%s.com", filename);
+		if (!(file = ib_fopen(buffer, FOPEN_INPUT_TYPE))) {
+			if (error_flag)
+				ERRQ_msg_put(67, filename, NULL, NULL, NULL, NULL);	/* Msg 67 can't open command file \"%s\"\n */
+			return FALSE;
+		}
+	}
+
+	line = (LINE) ALLOCPV(type_line, strlen(filename));
+	line->line_type = line_file;
+	line->line_source = (int *) file;
+	line->line_size = sizeof(line->line_data);
+	line->line_ptr = line->line_data;
+	*line->line_ptr = 0;
+	strcpy(line->line_source_name, filename);
+	line->line_next = QLI_line;
+	QLI_line = line;
+
+	return TRUE;
+}
+
+
+int LEX_push_string( TEXT * string)
+{
+/**************************************
+ *
+ *	L E X _ p u s h _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Push a simple string on as an input source.
+ *
+ **************************************/
+	LINE line;
+
+	line = (LINE) ALLOCPV(type_line, 0);
+	line->line_type = line_string;
+	line->line_size = strlen(string);
+	line->line_ptr = line->line_data;
+	strcpy(line->line_data, string);
+	line->line_data[line->line_size] = '\n';
+	line->line_next = QLI_line;
+	QLI_line = line;
+
+	return TRUE;
+}
+
+
+void LEX_put_procedure( void *blob, SLONG start, SLONG stop)
+{
+/**************************************
+ *
+ *	L E X _ p u t _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write text from the scratch trace file into a blob.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	int length;
+	SSHORT l, c;
+	TEXT buffer[1024], *p;
+
+	if (ib_fseek(trace_file, start, 0)) {
+		ib_fseek(trace_file, (SLONG) 0, 2);
+		IBERROR(62);			/* Msg 62 ib_fseek failed */
+	}
+
+	length = stop - start;
+
+	while (length) {
+		p = buffer;
+		while (length) {
+			--length;
+			*p++ = c = ib_getc(trace_file);
+			if (c == '\n') {
+#ifdef PC_FILE_SEEK
+				/* account for the extra line-feed on OS/2 and Windows NT */
+
+				if (length)
+					--length;
+#endif
+				break;
+			}
+		}
+		if (l = p - buffer)
+			if (gds__put_segment(status_vector, GDS_REF(blob), l, buffer))
+				BUGCHECK(58);	/* Msg 58 gds__put_segment failed */
+	}
+
+	ib_fseek(trace_file, (SLONG) 0, 2);
+}
+
+
+void LEX_real(void)
+{
+/**************************************
+ *
+ *	L E X _ r e a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	If the token is an end of line, get the next token.
+ *
+ **************************************/
+
+	while (QLI_token->tok_type == tok_eol)
+		LEX_token();
+}
+
+
+LLS LEX_statement_list(void)
+{
+/**************************************
+ *
+ *	L E X _ s t a t e m e n t _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Somebody outside needs to know
+ *	where the top of the statement list
+ *	is.
+ *
+ **************************************/
+
+	return QLI_statements;
+}
+
+
+TOK LEX_token(void)
+{
+/**************************************
+ *
+ *	L E X _ t o k e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse and return the next token.
+ *
+ **************************************/
+	TOK token;
+	SSHORT c, next, peek;
+	TEXT class_, *p, *q;
+	SYM symbol;
+	LINE prior;
+
+	token = QLI_token;
+	p = token->tok_string;
+
+/* Get next significant byte.  If it's the last EOL of a blob, throw it
+   away */
+
+	for (;;) {
+		c = skip_white();
+		if (c != '\n' || QLI_line->line_type != line_blob)
+			break;
+		prior = QLI_line;
+		next_line(TRUE);
+		if (prior == QLI_line)
+			break;
+	}
+
+/* If we hit end of file, make up a phoney token */
+
+	if (!QLI_line) {
+		q = eof_string;
+		while (*p++ = *q++);
+		token->tok_type = tok_eof;
+		token->tok_keyword = KW_none;
+		return NULL;
+	}
+
+	*p++ = c;
+	QLI_token->tok_position = QLI_line->line_position +
+		QLI_line->line_ptr - QLI_line->line_data - 1;
+
+/* On end of file, generate furious but phone end of line tokens */
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+	class_ = (JPN1_CHAR(c) ? CHR_LETTER : classes[c]);
+#else
+	class_ = classes[c];
+#endif
+
+	if (class_ & CHR_letter) {
+#if (defined JPN_EUC || defined JPN_SJIS)
+
+		p--;
+		while (1) {
+			if (KANJI1(c)) {
+
+				/* If it is a double byte kanji either EUC or SJIS
+				   then handle both the bytes together */
+
+				*p++ = c;
+				c = nextchar(TRUE);
+				if (!KANJI2(c)) {
+					c = *(--p);
+					break;
+				}
+				else
+					*p++ = c;
+			}
+
+			else {
+#ifdef JPN_SJIS
+				if ((SJIS_SINGLE(c)) || (classes[c] & CHR_ident))
+#else
+				if (classes[c] & CHR_ident)
+#endif
+					*p++ = c;
+				else
+					break;
+			}
+			c = nextchar(TRUE);
+		}
+
+#else
+
+		while (classes[c = nextchar(TRUE)] & CHR_ident)
+			*p++ = c;
+
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+		retchar(c);
+		token->tok_type = tok_ident;
+	}
+	else if (((class_ & CHR_digit) || c == '.') && scan_number(c, &p))
+		token->tok_type = tok_number;
+	else if (class_ & CHR_quote) {
+		token->tok_type = tok_quoted;
+		while (TRUE) {
+			if (!(next = nextchar(FALSE)) || next == '\n') {
+				retchar(next);
+				IBERROR(63);	/* Msg 63 unterminated quoted string */
+				break;
+			}
+			*p++ = next;
+			if ((p - token->tok_string) >= MAXSYMLEN)
+				ERRQ_msg_put(470, (TEXT *) MAXSYMLEN, NULL, NULL, NULL, NULL);	/* Msg 470 literal too long */
+
+			/* If there are 2 quotes in a row, interpret 2nd as a literal */
+
+			if (next == c) {
+				peek = nextchar(FALSE);
+				retchar(peek);
+				if (peek != c)
+					break;
+				nextchar(FALSE);
+			}
+		}
+	}
+	else if (c == '\n') {
+		token->tok_type = tok_eol;
+		--p;
+		q = "end of line";
+		while (*q)
+			*p++ = *q++;
+	}
+	else {
+		token->tok_type = tok_punct;
+		*p++ = nextchar(TRUE);
+		if (!HSH_lookup(token->tok_string, 2))
+			retchar(*--p);
+	}
+
+	token->tok_length = p - token->tok_string;
+	*p = '\0';
+
+	if (token->tok_string[0] == '$' &&
+		trans_limit < TRANS_LIMIT && (p = getenv(token->tok_string + 1))) {
+		LEX_push_string(p);
+		++trans_limit;
+		token = LEX_token();
+		--trans_limit;
+		return token;
+	}
+
+	token->tok_symbol = symbol =
+		HSH_lookup(token->tok_string, token->tok_length);
+	if (symbol && symbol->sym_type == SYM_keyword)
+		token->tok_keyword = (KWWORDS) symbol->sym_keyword;
+	else
+		token->tok_keyword = KW_none;
+
+	if (sw_trace)
+		ib_puts(token->tok_string);
+
+	return token;
+}
+
+
+static BOOLEAN get_line( IB_FILE * file, TEXT * buffer, USHORT size)
+{
+/**************************************
+ *
+ *	g e t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a line.  If the line is terminated by
+ *	an EOL, return TRUE.  If the buffer is exhausted and non-blanks
+ *	would be discarded, return an error.  If EOF is detected,
+ *	return FALSE.  Regardless, a null terminated string is returned.
+ *
+ **************************************/
+	TEXT *p;
+	SLONG length;
+	USHORT overflow_flag;
+	SSHORT c;
+
+	errno = 0;
+	p = buffer;
+	overflow_flag = FALSE;
+	length = size;
+
+	while (TRUE) {
+		c = ib_getc(file);
+		if (c == EOF) {
+			if (SYSCALL_INTERRUPTED(errno) && !QLI_abort) {
+				errno = 0;
+				continue;
+			}
+			if (QLI_abort)
+				continue;
+			else
+				break;
+		}
+		if (--length > 0)
+			*p++ = c;
+		else if (c != ' ' && c != '\n')
+			overflow_flag = TRUE;
+		if (c == '\n')
+			break;
+	}
+
+	*p = 0;
+	if (c == EOF)
+		return FALSE;
+
+	if (overflow_flag)
+		IBERROR(477);			/* Msg 477 input line too long */
+
+	if (sw_verify)
+		ib_fputs(buffer, ib_stdout);
+
+	return TRUE;
+}
+
+
+static int nextchar( BOOLEAN eof_ok)
+{
+/**************************************
+ *
+ *	n e x t c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next character from the input stream.
+ *
+ **************************************/
+	SSHORT c;
+
+/* Get the next character in the current line.  If we run out,
+   get the next line.  If the line source runs out, pop the
+   line source.  If we run out of line sources, we are distinctly
+   at end of file. */
+
+	while (QLI_line) {
+		if (c = *QLI_line->line_ptr++)
+#if (defined JPN_SJIS || defined JPN_EUC)
+		{
+			c = c & 0xff;		/* negative values are bugs */
+			return c;
+		}
+#else
+			return c;
+#endif
+		next_line(eof_ok);
+	}
+
+	return 0;
+}
+
+
+static void next_line( BOOLEAN eof_ok)
+{
+/**************************************
+ *
+ *	n e x t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next line from the input stream.
+ *
+ **************************************/
+	TEXT *p, *q, filename[256];
+	SSHORT flag;
+
+	while (QLI_line) {
+		flag = FALSE;
+
+		/* Get next line from where ever.  If it comes from either the terminal
+		   or command file, check for another command file. */
+
+		if (QLI_line->line_type == line_blob) {
+			/* If the current blob segment contains another line, use it */
+
+			if ((p = QLI_line->line_ptr) != QLI_line->line_data
+				&& p[-1] == '\n' && *p)
+				flag = TRUE;
+			else {
+				/* Initialize line block for retrieval */
+
+				p = QLI_line->line_data;
+				QLI_line->line_ptr = QLI_line->line_data;
+
+				flag =
+					PRO_get_line(QLI_line->line_source, p,
+								 QLI_line->line_size);
+				if (flag && QLI_echo)
+					ib_printf("%s", QLI_line->line_data);
+			}
+		}
+		else {
+			/* Initialize line block for retrieval */
+
+			QLI_line->line_ptr = QLI_line->line_data;
+			p = QLI_line->line_data;
+
+			if (QLI_line->line_type == line_stdin)
+				flag = LEX_get_line(QLI_prompt, p, (int) QLI_line->line_size);
+			else if (QLI_line->line_type == line_file) {
+				flag =
+					get_line(QLI_line->line_source, p, QLI_line->line_size);
+				if (QLI_echo)
+					ib_printf("%s", QLI_line->line_data);
+			}
+			if (flag) {
+				for (q = p; classes[*q] & CHR_white; q++);
+				if (*q == '@') {
+					for (p = q + 1, q = filename; *p && *p != '\n';)
+						*q++ = *p++;
+					*q = 0;
+					QLI_line->line_ptr = (TEXT *) p;
+					LEX_push_file(filename, TRUE);
+					continue;
+				}
+			}
+		}
+
+		/* If get got a line, we're almost done */
+
+		if (flag)
+			break;
+
+		/* We hit end of file.  Either complain about the circumstances
+		   or just close out the current input source.  Don't close the
+		   input source if it's the terminal and we're at a continuation
+		   prompt. */
+
+		if (eof_ok && (QLI_line->line_next || QLI_prompt != QLI_cont_string)) {
+			LEX_pop_line();
+			return;
+		}
+
+		/* this is an unexpected end of file */
+
+		if (QLI_line->line_type == line_blob)
+			ERRQ_print_error(64, QLI_line->line_source_name, NULL, NULL, NULL,
+							 NULL);
+		/* Msg 64 unexpected end of procedure in procedure %s */
+		else if (QLI_line->line_type == line_file)
+			ERRQ_print_error(65, QLI_line->line_source_name, NULL, NULL, NULL,
+							 NULL);
+		/* Msg 65 unexpected end of file in file %s */
+		else {
+			if (QLI_line->line_type == line_string)
+				LEX_pop_line();
+			IBERROR(66);		/* Msg 66 unexpected eof */
+		}
+	}
+
+	if (!QLI_line)
+		return;
+
+	QLI_line->line_position = QLI_position;
+
+/* Dump output to the trace file */
+
+	if (QLI_line->line_type == line_blob)
+		while (*p)
+			p++;
+	else {
+		while (*p)
+			ib_putc(*p++, trace_file);
+		QLI_position += (TEXT *) p - QLI_line->line_data;
+#ifdef PC_FILE_SEEK
+		/* account for the extra line-feed on OS/2 and Windows NT
+		   to determine file position */
+
+		QLI_position++;
+#endif
+	}
+
+	QLI_line->line_length = (TEXT *) p - QLI_line->line_data;
+}
+
+
+static void retchar( SSHORT c)
+{
+/**************************************
+ *
+ *	r e t c h a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a character to the input stream.
+ *
+ **************************************/
+
+	--QLI_line->line_ptr;
+}
+
+
+static BOOLEAN scan_number( SSHORT c, TEXT ** ptr)
+{
+/**************************************
+ *
+ *	s c a n _ n u m b e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pass on a possible numeric literal.
+ *
+ **************************************/
+	TEXT *p;
+	SSHORT dot;
+
+	p = *ptr;
+	dot = FALSE;
+
+/* If this is a leading decimal point, check that the next
+   character is really a digit, otherwise backout */
+
+	if (c == '.') {
+		retchar(c = nextchar(TRUE));
+		if (!(classes[c] & CHR_digit))
+			return FALSE;
+		dot = TRUE;
+	}
+
+/* Gobble up digits up to a single decimal point */
+
+	for (;;) {
+		c = nextchar(TRUE);
+		if (classes[c] & CHR_digit)
+			*p++ = c;
+		else if (!dot && c == '.') {
+			*p++ = c;
+			dot = TRUE;
+		}
+		else
+			break;
+	}
+
+/* If this is an exponential, eat the exponent sign and digits */
+
+	if (UPPER(c) == 'E') {
+		*p++ = c;
+		c = nextchar(TRUE);
+		if (c == '+' || c == '-') {
+			*p++ = c;
+			c = nextchar(TRUE);
+		}
+		while (classes[c] & CHR_digit) {
+			*p++ = c;
+			c = nextchar(TRUE);
+		}
+	}
+
+	retchar(c);
+	*ptr = p;
+
+	return TRUE;
+}
+
+
+static int skip_white(void)
+{
+/**************************************
+ *
+ *	s k i p _ w h i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Skip over while space and comments in input stream
+ *
+ **************************************/
+	SSHORT c, next, class_;
+
+	while (TRUE) {
+		c = nextchar(TRUE);
+		class_ = classes[c];
+		if (class_ & CHR_white)
+			continue;
+		if (c == '/') {
+			if ((next = nextchar(TRUE)) != '*') {
+				retchar(next);
+				return c;
+			}
+			c = nextchar(FALSE);
+			while ((next = nextchar(FALSE)) && !(c == '*' && next == '/'))
+				c = next;
+			continue;
+		}
+		break;
+	}
+
+	return c;
+}
diff --git a/src/qli/lex_proto.h b/src/qli/lex_proto.h
new file mode 100644
index 0000000000..43ba94b700
--- /dev/null
+++ b/src/qli/lex_proto.h
@@ -0,0 +1,45 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		lex_proto.h
+ *	DESCRIPTION:	Prototype header file for lex.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_LEX_PROTO_H_
+#define _QLI_LEX_PROTO_H_
+
+extern int		LEX_active_procedure (void);
+extern void		LEX_edit (SLONG, SLONG);
+extern struct tok	*LEX_edit_string (void);
+extern struct tok	*LEX_filename (void);
+extern void		LEX_fini (void);
+extern void		LEX_flush (void);
+extern int		LEX_get_line (TEXT *, TEXT *, int);
+extern void		LEX_init (void);
+extern void		LEX_mark_statement (void);
+extern void		LEX_pop_line (void);
+extern void		LEX_procedure (struct dbb *, int *);
+extern int		LEX_push_file (TEXT *, int);
+extern int		LEX_push_string (TEXT *);
+extern void		LEX_put_procedure (void *, SLONG, SLONG);
+extern void		LEX_real (void);
+extern struct lls	*LEX_statement_list (void);
+extern struct tok	*LEX_token (void);
+
+#endif /* _QLI_LEX_PROTO_H_ */
diff --git a/src/qli/meta.e b/src/qli/meta.e
new file mode 100644
index 0000000000..6007e45c5b
--- /dev/null
+++ b/src/qli/meta.e
@@ -0,0 +1,4183 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		meta.e
+ *	DESCRIPTION:	Meta-data interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../qli/dtr.h"
+#include "../qli/compile.h"
+#include "../qli/exe.h"
+#include "../jrd/license.h"
+#include "../jrd/flags.h"
+#include "../jrd/gds.h"
+#include "../qli/reqs.h"
+#if (defined JPN_SJIS || defined JPN_EUC)
+#include "../jrd/kanji.h"
+#endif
+#include "../qli/all_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/form_proto.h"
+#include "../qli/gener_proto.h"
+#include "../qli/hsh_proto.h"
+#include "../qli/meta_proto.h"
+#include "../gpre/prett_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/utl_proto.h"
+#include "../wal/walf_proto.h"
+
+DATABASE DB = FILENAME "yachts.lnk";
+DATABASE DB1 = FILENAME "yachts.lnk";
+
+extern USHORT sw_buffers;
+
+static void add_field(REL, FLD, USHORT);
+static void add_sql_field(REL, FLD, USHORT, RLB);
+static int blob_copy(RLB, REL, SLONG *);
+static void change_field(REL, FLD);
+static int check_global_field(DBB, FLD, TEXT *);
+static int check_relation(REL);
+static int clone_fields(REL, REL);
+static int clone_global_fields(REL, REL);
+static void define_global_field(DBB, FLD, SYM);
+static void delete_fields(REL);
+static STATUS detach(STATUS *, DBB);
+static int execute_dynamic_ddl(DBB, RLB);
+static int field_length(USHORT, USHORT);
+static void get_database_type(DBB);
+static void get_log_names(DBB, SCHAR *, LLS *, SCHAR *, SLONG, SSHORT,
+						  SSHORT);
+static void get_log_names_serial(LLS *);
+static TEXT *get_query_header(DBB, SLONG[2]);
+static void install(DBB);
+static SYN make_node(NOD_T, USHORT);
+static TEXT *make_string(TEXT *, SSHORT);
+static SYM make_symbol(TEXT *, SSHORT);
+static CON missing_value(SLONG *, SYM);
+static SYN parse_blr(UCHAR **, SYM);
+static SYN parse_blr_blob(SLONG *, SYM);
+static void purge_relation(REL);
+static void put_dyn_string(RLB, TEXT *);
+static void rollback_update(DBB);
+static void set_capabilities(DBB);
+static DBB setup_update(DBB);
+static void sql_grant_revoke(SYN, USHORT);
+static void stuff_priv(RLB, USHORT, TEXT *, USHORT, TEXT *, TEXT *);
+static int truncate_string(TEXT *);
+static void wal_info(UCHAR *, SLONG *, SCHAR *, SLONG *);
+
+static CONST UCHAR tpb[] = { gds__tpb_version1, gds__tpb_write };
+static CONST UCHAR db_info[] = { gds__info_implementation, gds__info_end };
+static UCHAR parm_buffer[256];
+
+static CONST UCHAR db_log_info[] =
+	{ gds__info_logfile, gds__info_cur_logfile_name,
+		gds__info_cur_log_part_offset };
+
+/*
+static CONST UCHAR	dpb_trace [] =	{ gds__dpb_version1, gds__dpb_trace, 1, 1 };
+static CONST UCHAR	dpb_num_buffers [ ] = { gds__dpb_version1, gds__dpb_num_buffers, 1, 1 };
+*/
+
+#define STUFF_STRING(str)	put_dyn_string (rlb, str)
+#define BLR_BYTE	*blr++
+
+static CONST USHORT blr_dtypes[] = {
+	0,
+	blr_text,
+	blr_text,
+	blr_varying,
+	0,
+	0,
+	0,
+	0,
+	blr_short,
+	blr_long,
+	blr_quad,
+	blr_float,
+	blr_double,
+	blr_double,
+	blr_sql_date,
+	blr_sql_time,
+	blr_timestamp,
+	blr_blob
+};
+
+
+/* 
+   table used to determine capabilities, checking for specific 
+   fields in system relations 
+*/
+
+typedef struct rfr_tab_t {
+	CONST TEXT *relation;
+	CONST TEXT *field;
+	int bit_mask;
+} *RFR_TAB;
+
+static CONST struct rfr_tab_t rfr_table[] = {
+	"RDB$INDICES", "RDB$INDEX_INACTIVE", DBB_cap_idx_inactive,
+/* OBSOLETE - 1996-Aug-06 David Schnepper 
+	"RDB$RELATIONS",	"RDB$STORE_TRIGGER",	DBB_cap_triggers,
+*/
+	"RDB$RELATIONS", "RDB$EXTERNAL_FILE", DBB_cap_extern_file,
+	"RDB$SECURITY_CLASSES", "RDB$SECURITY_CLASS", DBB_cap_security,
+	"RDB$FILES", "RDB$FILE_NAME", DBB_cap_files,
+	"RDB$FUNCTIONS", "RDB$FUNCTION_NAME", DBB_cap_functions,
+	"RDB$TRIGGERS", "RDB$TRIGGER_BLR", DBB_cap_new_triggers,
+	"RDB$CONSTRAINTS", "RDB$CONSTRAINT_NAME", DBB_cap_single_trans,
+	"RDB$FILES", "RDB$SHADOW_NUMBER", DBB_cap_shadowing,
+	"RDB$TYPES", "RDB$TYPE_NAME", DBB_cap_types,
+	"RDB$FIELDS", "RDB$DIMENSIONS", DBB_cap_dimensions,
+	"RDB$FIELDS", "RDB$EXTERNAL_TYPE", DBB_cap_external_type,
+	"RDB$RELATION_FIELDS", "RDB$SYSTEM_FLAG", DBB_cap_rfr_sys_flag,
+	"RDB$FILTERS", "RDB$FUNCTION_NAME", DBB_cap_filters,
+	"RDB$INDICES", "RDB$INDEX_TYPE", DBB_cap_index_type,
+	0, 0, 0
+};
+
+
+int MET_declare( DBB database, FLD variable, NAM field_name)
+{
+/**************************************
+ *
+ *	M E T _ d e c l a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a global field referenced in a DECLARE.
+ *
+ **************************************/
+
+	if (!database)
+		database = QLI_databases;
+
+	for (; database; database = database->dbb_next) {
+		MET_meta_transaction(database, FALSE);
+		if (check_global_field(database, variable, field_name->nam_string))
+			return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+void MET_define_field( DBB database, FLD field)
+{
+/**************************************
+ *
+ *	M E T _ d e f i n e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a new global field.
+ *
+ **************************************/
+	SYM symbol;
+
+	database = setup_update(database);
+
+	if (check_global_field(database, NULL_PTR, field->fld_name->sym_string)) {
+		rollback_update(database);
+		ERRQ_print_error(233, field->fld_name->sym_string, NULL, NULL, NULL, NULL);	/* Msg233 global field %s already exists */
+	}
+
+	define_global_field(database, field, field->fld_name);
+
+	MET_meta_commit(database);
+}
+
+
+void MET_define_index( SYN node)
+{
+/**************************************
+ *
+ *	M E T _ d e f i n e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a new index.
+ *
+ **************************************/
+	DBB database;
+	REL relation;
+	SYN fields;
+	FLD field;
+	NAM *ptr;
+	SYM symbol;
+	int position, present;
+	STATUS status_vector[20];
+
+	symbol = (SYM) node->syn_arg[s_dfi_name];
+	relation = (REL) node->syn_arg[s_dfi_relation];
+	fields = node->syn_arg[s_dfi_fields];
+	database = setup_update(relation->rel_database);
+
+	if (relation->rel_flags & REL_view)
+		IBERROR(234);			/* Msg234 Can't define an index in a view */
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_def_index1])
+		X IN DB.RDB$INDICES WITH X.RDB$INDEX_NAME EQ symbol->sym_string
+			ERRQ_print_error(235, symbol->sym_string, NULL, NULL, NULL, NULL);	/* Msg235 Index %s already exists */
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	STORE(REQUEST_HANDLE database->dbb_requests[REQ_def_index2])
+		X IN DB.RDB$INDICES
+
+		strcpy(X.RDB$RELATION_NAME, relation->rel_symbol->sym_string);
+		strcpy(X.RDB$INDEX_NAME, symbol->sym_string);
+		X.RDB$UNIQUE_FLAG = (node->syn_flags & s_dfi_flag_unique);
+		X.RDB$INDEX_INACTIVE = (node->syn_flags & s_dfi_flag_inactive);
+		X.RDB$SEGMENT_COUNT = fields->syn_count;
+		X.RDB$INDEX_TYPE =
+			(node->syn_flags & s_dfi_flag_descending) ? TRUE : FALSE;
+	END_STORE
+	ON_ERROR
+		rollback_update(database);
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+
+/* at this point force garbage collection of any index segments left over
+   from previous failures.  The system transaction (which might notice them
+   later does NOT recognize rolled back stuff!  Should someone have actually
+   left an orphanned segment around, kill that too.
+*/
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_scan_index])
+		X IN DB.RDB$INDEX_SEGMENTS WITH X.RDB$INDEX_NAME = symbol->sym_string
+			ERASE X
+		ON_ERROR
+			rollback_update(database);
+			ERRQ_database_error(database, gds__status);
+		END_ERROR;
+	END_FOR
+	ON_ERROR
+		rollback_update(database);
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+
+	for (ptr = (NAM *) fields->syn_arg, position = 0;
+		 position < fields->syn_count; ptr++, position++) {
+		MET_fields(relation);
+
+		for (present = FALSE, field = relation->rel_fields; field;
+			 field =
+			 field->
+			 fld_next)
+		if (!(strcmp((*ptr)->nam_string, field->fld_name->sym_string))) {
+				present = TRUE;
+				break;
+			}
+
+		if (!present) {
+			rollback_update(database);
+			ERRQ_print_error(236, (*ptr)->nam_string,
+							 relation->rel_symbol->sym_string, NULL, NULL, NULL);	/* Msg236 Field %s does not occur in relation %s */
+		}
+
+		setup_update(database);
+
+		STORE(REQUEST_HANDLE database->dbb_requests[REQ_def_index3])
+			X IN DB.RDB$INDEX_SEGMENTS
+
+			strcpy(X.RDB$INDEX_NAME, symbol->sym_string);
+			strcpy(X.RDB$FIELD_NAME, (*ptr)->nam_string);
+			X.RDB$FIELD_POSITION = position;
+		END_STORE
+		ON_ERROR
+			rollback_update(database);
+			ERRQ_database_error(database, gds__status);
+		END_ERROR;
+	}
+
+	MET_meta_commit(database);
+}
+
+
+void MET_define_relation( REL relation, REL source)
+{
+/**************************************
+ *
+ *	M E T _ d e f i n e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a new relation.   There may
+ *	be field definitions here or we may
+ *	copy the field definitions from somebody
+ *	else.
+ *
+ **************************************/
+	DBB database;
+	SYM symbol;
+	FLD field;
+	USHORT position;
+	STATUS status_vector[20];
+
+	symbol = relation->rel_symbol;
+
+	if (source) {
+		source->rel_database = setup_update(source->rel_database);
+		if (!(check_relation(source)))
+			ERRQ_print_error(483, source->rel_symbol->sym_string, NULL, NULL,
+							 NULL, NULL);	/* Msg 483 Relation %s does not exist */
+	}
+
+
+	relation->rel_database = database = setup_update(relation->rel_database);
+
+	if (check_relation(relation))
+		ERRQ_print_error(237, symbol->sym_string, NULL, NULL, NULL, NULL);	/* Msg237 Relation %s already exists */
+
+
+	STORE(REQUEST_HANDLE database->dbb_requests[REQ_store_relation])
+		X IN DB.RDB$RELATIONS 
+		strcpy(X.RDB$RELATION_NAME, symbol->sym_string);
+	END_STORE
+	ON_ERROR
+		rollback_update(database);
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	if (source)
+		clone_fields(relation, source);
+	else
+		for (field = relation->rel_fields, position = 1; field;
+			 field = field->fld_next, position++)
+			add_field(relation, field, position);
+
+	MET_meta_commit(database);
+
+	relation = (REL) ALLOCP(type_rel);
+	relation->rel_next = database->dbb_relations;
+	database->dbb_relations = relation;
+	relation->rel_database = database;
+
+/* Go back and pick up relation id */
+
+	setup_update(database);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_relation_id])
+		X IN DB.RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ symbol->sym_string
+			relation->rel_id = X.RDB$RELATION_ID;
+		symbol = make_symbol(X.RDB$RELATION_NAME, sizeof(X.RDB$RELATION_NAME));
+		symbol->sym_type = SYM_relation;
+		symbol->sym_object = (BLK) relation;
+		relation->rel_symbol = symbol;
+		HSH_insert(symbol);
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	delete_fields(relation);
+	MET_fields(relation);
+}
+
+
+void MET_define_sql_relation( REL relation)
+{
+/**************************************
+ *
+ *	M E T _ d e f i n e _ s q l _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a new SQL relation, using dynamic ddl.
+ *
+ **************************************/
+	DBB database;
+	SYM symbol;
+	FLD field;
+	USHORT position;
+	STATUS status_vector[20];
+	RLB rlb;
+
+	symbol = relation->rel_symbol;
+	relation->rel_database = database = setup_update(relation->rel_database);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_relation_def])
+		X IN DB.RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ symbol->sym_string
+			ERRQ_print_error(237, symbol->sym_string, NULL, NULL, NULL, NULL);	/* Msg237 Relation %s already exists */
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	rlb = NULL;
+	rlb = CHECK_RLB(rlb);
+
+	STUFF(gds__dyn_version_1);
+	STUFF(gds__dyn_begin);
+	STUFF(gds__dyn_def_rel);
+	STUFF_STRING(symbol->sym_string);
+	STUFF(gds__dyn_rel_sql_protection);
+	STUFF_WORD(2);
+	STUFF_WORD(1);
+
+	for (field = relation->rel_fields, position = 1; field;
+		 field = field->fld_next, position++)
+		add_sql_field(relation, field, position, rlb);
+
+	STUFF(gds__dyn_end);
+	STUFF(gds__dyn_end);
+	STUFF(gds__dyn_eoc);
+
+	execute_dynamic_ddl(database, rlb);
+	MET_meta_commit(database);
+
+	relation = (REL) ALLOCP(type_rel);
+	relation->rel_next = database->dbb_relations;
+	database->dbb_relations = relation;
+	relation->rel_database = database;
+
+/* Go back and pick up relation id */
+
+	setup_update(database);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_relation_id])
+		X IN DB.RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ symbol->sym_string
+			relation->rel_id = X.RDB$RELATION_ID;
+		symbol =
+			make_symbol(X.RDB$RELATION_NAME, sizeof(X.RDB$RELATION_NAME));
+		symbol->sym_type = SYM_relation;
+		symbol->sym_object = (BLK) relation;
+		relation->rel_symbol = symbol;
+		HSH_insert(symbol);
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	delete_fields(relation);
+	MET_fields(relation);
+}
+
+
+void MET_delete_database( DBB dbb)
+{
+/**************************************
+ *
+ *	M E T _ d e l e t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop an existing database, and all its files,
+ *	and finish any copies we have active.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	LLS log_stack, stack;
+	STR string;
+	TEXT s[126];
+	DBB database, next;
+	UCHAR *dpb = NULL, *p;
+	TEXT *user, *password;
+	USHORT dpb_length = 0, user_length, password_length;
+	SCHAR db_info_buffer[512], cur_log[512], db_name[512];
+	SLONG part_offset, log;
+
+/* generate a database parameter block to 
+   include the user/password, if necessary */
+
+	if (dbb->dbb_user) {
+		user = (TEXT *) dbb->dbb_user->con_data;
+		user_length = dbb->dbb_user->con_desc.dsc_length;
+	}
+	else {
+		user = QLI_default_user;
+		user_length = strlen(QLI_default_user);
+	}
+
+	if (dbb->dbb_password) {
+		password = (TEXT *) dbb->dbb_password->con_data;
+		password_length = dbb->dbb_user->con_desc.dsc_length;
+	}
+	else {
+		password = QLI_default_password;
+		password_length = strlen(QLI_default_password);
+	}
+
+	dpb = p = parm_buffer;
+	*p++ = gds__dpb_version1;
+
+	if (user_length) {
+		*p++ = gds__dpb_user_name;
+		*p++ = user_length;
+		while (user_length--)
+			*p++ = *user++;
+	}
+
+	if (password_length) {
+		*p++ = gds__dpb_password;
+		*p++ = password_length;
+		while (password_length--)
+			*p++ = *password++;
+	}
+
+	dpb_length = p - parm_buffer;
+
+	if (dpb_length == 1)
+		dpb_length = 0;
+
+	if (gds__attach_database(status_vector,
+							 0,
+							 GDS_VAL(dbb->dbb_filename),
+							 GDS_REF(dbb->dbb_handle),
+							 dpb_length,
+							 GDS_VAL(dpb)))
+			ERRQ_database_error(dbb, status_vector);
+
+	log_stack = stack = NULL;
+
+	gds__trans = MET_transaction(nod_start_trans, dbb);
+	DB = dbb->dbb_handle;
+
+	FOR F IN DB.RDB$FILES SORTED BY F.RDB$FILE_START
+		string = (STR) ALLOCDV(type_str, strlen(F.RDB$FILE_NAME));
+		LLS_PUSH(string, &stack);
+		strcpy(string->str_data, F.RDB$FILE_NAME);
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(dbb, gds__status);
+	END_ERROR;
+
+/* Get write ahead log information */
+
+	if (gds__database_info(status_vector,
+						   GDS_REF(DB),
+						   sizeof(db_log_info),
+						   db_log_info,
+						   sizeof(db_info_buffer),
+						   db_info_buffer)) ERRQ_database_error(dbb,
+																status_vector);
+
+/* extract info from buffer */
+
+	wal_info(db_info_buffer, &log, cur_log, &part_offset);
+
+	if (log)
+		get_log_names_serial(&log_stack);
+
+	MET_transaction(nod_commit, dbb);
+
+	if (gds__detach_database(gds__status, GDS_REF(dbb->dbb_handle)))
+		gds__print_status(gds__status);
+
+	for (database = QLI_databases; database; database = next) {
+		next = database->dbb_next;
+		if (!strcmp(database->dbb_filename, dbb->dbb_filename))
+			MET_finish(database);
+	}
+
+	if (log) {
+		ISC_expand_filename(dbb->dbb_filename, 0, db_name);
+		get_log_names(dbb, db_name, &log_stack, cur_log, part_offset, 0, 1);
+	}
+
+	while (stack) {
+		string = (STR) LLS_POP(&stack);
+		if (unlink(string->str_data))
+			ERRQ_print_error(431, string->str_data, NULL, NULL, NULL, NULL);	/* Msg431 Could not drop database file "%s" */
+	}
+
+	while (log_stack) {
+		string = (STR) LLS_POP(&log_stack);
+		unlink(string->str_data);	/* do not check for error */
+	}
+
+	if (unlink(dbb->dbb_filename))
+		ERRQ_print_error(431, dbb->dbb_filename, NULL, NULL, NULL, NULL);	/* Msg431 Could not drop database file "%s" */
+}
+
+
+void MET_delete_field( DBB database, NAM name)
+{
+/**************************************
+ *
+ *	M E T _ d e l e t e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a global field.
+ *
+ **************************************/
+	USHORT count;
+	RLB rlb;
+
+	database = setup_update(database);
+	count = 0;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_check_fld])
+		RFR IN DB.RDB$RELATION_FIELDS WITH RFR.RDB$FIELD_SOURCE EQ name->
+			nam_string REDUCED TO RFR.RDB$RELATION_NAME 
+		if (!count)
+			  ERRQ_msg_put(238, name->nam_string, NULL, NULL, NULL, NULL);	/* Msg238 Field %s is in use in the following relations: */
+		ib_printf("\t%s\n", RFR.RDB$RELATION_NAME);
+		count++;
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	if (count)
+		ERRQ_print_error(239, name->nam_string, database->dbb_filename, NULL,
+						 NULL, NULL);	/* Msg239 Field %s is in use in database %s */
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_erase_fld])
+		FLD IN DB.RDB$FIELDS WITH FLD.RDB$FIELD_NAME EQ name->nam_string
+
+		rlb = NULL;
+		rlb = CHECK_RLB(rlb);
+		STUFF(gds__dyn_version_1);
+		STUFF(gds__dyn_delete_dimensions);
+		STUFF_STRING(FLD.RDB$FIELD_NAME);
+		STUFF(gds__dyn_end);
+		STUFF(gds__dyn_eoc);
+		execute_dynamic_ddl(database, rlb);
+		ERASE FLD
+		ON_ERROR
+			rollback_update(database);
+			ERRQ_database_error(database, gds__status);
+		END_ERROR;
+		count++;
+	END_FOR
+	ON_ERROR
+		rollback_update(database);
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	if (!count)
+		ERRQ_print_error(240, name->nam_string, database->dbb_filename, NULL,
+						 NULL, NULL);	/* Msg240 Field %s is not defined in database %s */
+
+	MET_meta_commit(database);
+}
+
+
+void MET_delete_index( DBB database, NAM name)
+{
+/**************************************
+ *
+ *	M E T _ d e l e t e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete an index.
+ *
+ **************************************/
+	USHORT count;
+
+	database = setup_update(database);
+	count = 0;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_erase_index])
+		IDX IN DB.RDB$INDICES WITH IDX.RDB$INDEX_NAME EQ name->nam_string
+			count++;
+		ERASE IDX
+		ON_ERROR
+			rollback_update(database);
+			ERRQ_database_error(database, gds__status);
+		END_ERROR;
+	END_FOR
+	ON_ERROR
+		rollback_update(database);
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	if (!count)
+		ERRQ_print_error(241, name->nam_string, database->dbb_filename, NULL,
+						 NULL, NULL);	/* Msg241 Index %s is not defined in database %s */
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_erase_segments])
+		SEG IN DB.RDB$INDEX_SEGMENTS WITH SEG.RDB$INDEX_NAME EQ name->nam_string
+		ERASE SEG
+		ON_ERROR
+			rollback_update(database);
+			ERRQ_database_error(database, gds__status);
+		END_ERROR;
+	END_FOR
+	ON_ERROR
+		rollback_update(database);
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	MET_meta_commit(database);
+}
+
+
+void MET_delete_relation( REL relation)
+{
+/**************************************
+ *
+ *	M E T _ d e l e t e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a relation.
+ *
+ **************************************/
+	SYM symbol;
+	RLB rlb;
+
+/* Pass the mess off to dynamic DDL and let it worry */
+
+	symbol = relation->rel_symbol;
+	rlb = NULL;
+	rlb = CHECK_RLB(rlb);
+	STUFF(gds__dyn_version_1);
+	STUFF(gds__dyn_delete_rel);
+	STUFF_STRING(symbol->sym_string);
+	STUFF(gds__dyn_end);
+	STUFF(gds__dyn_eoc);
+	setup_update(relation->rel_database);
+
+	execute_dynamic_ddl(relation->rel_database, rlb);
+	MET_meta_commit(relation->rel_database);
+
+/* Unlink and release various blocks */
+
+	purge_relation(relation);
+}
+
+
+int MET_dimensions( DBB database, TEXT * field_name)
+{
+/**************************************
+ *
+ *	M E T _ d i m e n s i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine if the field has any dimensions.
+ *
+ **************************************/
+	USHORT dimensions;
+
+	if (!(database->dbb_capabilities & DBB_cap_dimensions))
+		return 0;
+
+	dimensions = 0;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_fld_dimensions])
+		F IN DB.RDB$FIELDS WITH F.RDB$FIELD_NAME = field_name
+			dimensions = F.RDB$DIMENSIONS;
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	return dimensions;
+}
+
+
+void MET_fields( REL relation)
+{
+/**************************************
+ *
+ *	M E T _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get all fields for a relation.
+ *
+ **************************************/
+	DBB database;
+	FLD field, *ptr;
+	SYM symbol;
+	SLONG *blob;
+
+/* If we already have fetched the fields for the relation, 
+   don't do it again. */
+
+	if (relation->rel_flags & REL_fields)
+		return;
+
+	database = relation->rel_database;
+	MET_meta_transaction(database, FALSE);
+	relation->rel_flags |= REL_fields;
+	ptr = &relation->rel_fields;
+
+	FOR(REQUEST_HANDLE database->dbb_field_request)
+		RFR IN DB.RDB$RELATION_FIELDS CROSS
+			RFL IN DB.RDB$FIELDS WITH
+			RFR.RDB$FIELD_SOURCE EQ RFL.RDB$FIELD_NAME AND
+			RFR.RDB$RELATION_NAME EQ relation->rel_symbol->sym_string
+			SORTED BY RFR.RDB$FIELD_POSITION, RFR.RDB$FIELD_NAME;
+
+		if (RFR.RDB$FIELD_POSITION > relation->rel_max_field_pos)
+			relation->rel_max_field_pos = RFR.RDB$FIELD_POSITION;
+		*ptr = field = (FLD) ALLOCPV(type_fld, 0);
+		ptr = &field->fld_next;
+		field->fld_relation = relation;
+		if (symbol = make_symbol(RFR.RDB$FIELD_NAME, sizeof(RFR.RDB$FIELD_NAME))) {
+			symbol->sym_object = (BLK) field;
+			symbol->sym_type = SYM_field;
+			field->fld_name = symbol;
+		}
+		if ((symbol = make_symbol(RFR.RDB$QUERY_NAME, sizeof(RFR.RDB$QUERY_NAME))) ||
+			(symbol = make_symbol(RFL.RDB$QUERY_NAME, sizeof(RFL.RDB$QUERY_NAME)))) {
+			symbol->sym_object = (BLK) field;
+			symbol->sym_type = SYM_field;
+			field->fld_query_name = symbol;
+		}
+		field->fld_scale = RFL.RDB$FIELD_SCALE;
+		field->fld_id = RFR.RDB$FIELD_ID;
+
+		if (RFL.RDB$SEGMENT_LENGTH.NULL)
+			field->fld_segment_length = 80;
+		else
+			field->fld_segment_length =
+				((RFL.RDB$SEGMENT_LENGTH) < 256
+				 && (RFL.RDB$SEGMENT_LENGTH >
+					 0)) ? RFL.RDB$SEGMENT_LENGTH : 255;
+
+		blob = (SLONG *) & RFR.RDB$QUERY_HEADER;
+		if (!blob[0] && !blob[1])
+			blob = (SLONG *) & RFL.RDB$QUERY_HEADER;
+		if (blob[0] || blob[1])
+			field->fld_query_header = get_query_header(database, blob);
+
+		blob = (SLONG *) & RFL.RDB$COMPUTED_BLR;
+		if (blob[0] || blob[1])
+			field->fld_flags |= FLD_computed;
+
+		field->fld_dtype = MET_get_datatype(RFL.RDB$FIELD_TYPE);
+		field->fld_length =
+			field_length(field->fld_dtype, RFL.RDB$FIELD_LENGTH);
+		if (field->fld_dtype == dtype_varying)
+			field->fld_length += sizeof(SSHORT);
+		field->fld_sub_type = RFL.RDB$FIELD_SUB_TYPE;
+		field->fld_sub_type_missing = RFL.RDB$FIELD_SUB_TYPE.NULL;
+
+		if (!RFL.RDB$MISSING_VALUE.NULL)
+			field->fld_missing =
+				missing_value(&RFL.RDB$MISSING_VALUE, field->fld_name);
+
+		if (!(field->fld_edit_string =
+			  make_string(RFR.RDB$EDIT_STRING, sizeof(RFR.RDB$EDIT_STRING))))
+				field->fld_edit_string =
+				make_string(RFL.RDB$EDIT_STRING, sizeof(RFL.RDB$EDIT_STRING));
+		field->fld_validation =
+			parse_blr_blob(&RFL.RDB$VALIDATION_BLR, field->fld_name);
+		if (MET_dimensions(database, RFL.RDB$FIELD_NAME) > 0)
+			field->fld_flags |= FLD_array;
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+}
+
+
+void MET_finish( DBB dbb)
+{
+/**************************************
+ *
+ *	M E T _ f i n i s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Finish a database and release all associated blocks.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	DBB *ptr;
+	REL relation;
+	FUN function;
+	SCHAR count;
+
+/* Get rid of relation and field blocks. */
+
+	while (relation = dbb->dbb_relations) {
+		purge_relation(relation);
+	}
+
+/* Get rid of any functions */
+
+	while (function = dbb->dbb_functions) {
+		dbb->dbb_functions = function->fun_next;
+		HSH_remove(function->fun_symbol);
+		ALL_release(function->fun_symbol);
+		ALL_release(function);
+	}
+
+/* Get rid of any forms */
+
+	if (dbb->dbb_forms) {
+		FORM_finish(dbb);
+	}
+
+/* Finally, actually close down database connection. */
+
+	detach(status_vector, dbb);
+
+	if (dbb->dbb_symbol) {
+		HSH_remove(dbb->dbb_symbol);
+		ALL_release(dbb->dbb_symbol);
+	}
+
+	for (count = 0, ptr = &QLI_databases; *ptr; ptr = &(*ptr)->dbb_next)
+	{
+		if (*ptr == dbb)
+		{
+			*ptr = dbb->dbb_next;
+			ALL_release(dbb);
+			count++;
+			if (!*ptr) {
+				break;
+			}
+		}
+	}
+
+	if (!count)
+		BUGCHECK(231);			/* Msg231 database block not found for removal */
+
+	if (status_vector[1])
+		ERRQ_database_error(NULL_PTR, status_vector);
+}
+
+
+int MET_get_datatype( USHORT blr_datatype)
+{
+/**************************************
+ *
+ *	M E T _ g e t _ d a t a t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a blr datatype to a QLI dtype.
+ *
+ **************************************/
+	USHORT retvalue;
+
+	if (blr_datatype == blr_text)
+		retvalue = dtype_text;
+	else if (blr_datatype == blr_varying)
+		retvalue = dtype_varying;
+	else if (blr_datatype == blr_cstring)
+		retvalue = dtype_cstring;
+	else if (blr_datatype == blr_short)
+		retvalue = dtype_short;
+	else if (blr_datatype == blr_long)
+		retvalue = dtype_long;
+	else if (blr_datatype == blr_quad)
+		retvalue = dtype_quad;
+	else if (blr_datatype == blr_float)
+		retvalue = dtype_real;
+	else if (blr_datatype == blr_double)
+		retvalue = dtype_double;
+	else if (blr_datatype == blr_timestamp)
+		retvalue = dtype_timestamp;
+	else if (blr_datatype == blr_sql_date)
+		retvalue = dtype_sql_date;
+	else if (blr_datatype == blr_sql_time)
+		retvalue = dtype_sql_time;
+	else if (blr_datatype == blr_blob)
+		retvalue = dtype_blob;
+	else
+		retvalue = dtype_null;
+
+	return retvalue;
+}
+
+
+
+#ifdef DEV_BUILD
+void MET_index_info(
+					SCHAR * relation_name, SCHAR * index_name, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	M E T _ i n d e x _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get info about a particular index.
+ *
+ **************************************/
+	SLONG *request_handle = NULL;
+	SCHAR *b, *p;
+
+	b = buffer;
+	FOR(REQUEST_HANDLE request_handle)
+		IDX IN DB.RDB$INDICES CROSS
+			SEG IN DB.RDB$INDEX_SEGMENTS OVER
+			RDB$INDEX_NAME WITH
+			IDX.RDB$INDEX_NAME EQ index_name AND
+			IDX.RDB$RELATION_NAME EQ relation_name
+			SORTED BY SEG.RDB$FIELD_POSITION 
+
+		if (b == buffer) {
+			for (p = IDX.RDB$INDEX_NAME; *p && *p != ' ';) {
+				*b++ = *p++;
+			}
+			*b++ = ' ';
+			*b++ = '(';
+		} 
+		for (p = SEG.RDB$FIELD_NAME; *p && *p != ' ';) {
+			*b++ = *p++;
+		}
+
+		*b++ = ' ';
+
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(NULL, gds__status);
+	END_ERROR;
+
+	if (request_handle)
+		if (gds__release_request(gds__status, GDS_REF(request_handle)))
+			ERRQ_database_error(NULL, gds__status);
+
+/* back up over the last space and finish off */
+
+	b--;
+	*b++ = ')';
+	*b++ = 0;
+}
+#endif
+
+
+void MET_meta_commit( DBB database)
+{
+/**************************************
+ *
+ *	M E T _ m e t a _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit the meta data lookup & update
+ *	transaction.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	if (database->dbb_capabilities & DBB_cap_multi_trans)
+		if (gds__commit_transaction(status_vector,
+									GDS_REF(database->dbb_meta_trans))) {
+			rollback_update(database);
+			ERRQ_database_error(database, status_vector);
+		}
+}
+
+
+void MET_meta_rollback( DBB database)
+{
+/**************************************
+ *
+ *	M E T _ m e t a _ r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Rollback the metadata transaction,
+ *	if there is one.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	if (database->dbb_capabilities & DBB_cap_multi_trans)
+		rollback_update(database);
+}
+
+
+SLONG *MET_meta_transaction(DBB database, int update_flag)
+{
+/**************************************
+ *
+ *	M E T _ m e t a _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Setup transaction for meta-data operation.  Set up
+ *	DB and gds__trans, and return meta-data transaction
+ *	handle for yucks.  If we're doing metadata updates,
+ *	and lookups we'll use the metadat date transaction, 
+ *	unless this is an rdb database or gateway in which  
+ *	case, we'll use the only transacti.
+ *	
+ *	In any event, we will set up the met_transaction because
+ *	it's widely used and somebody is going to forget to test
+ *	that the database is multi_transaction before using it.
+ *	This means that we have to be very careful about committing
+ *	or rolling back, because this could affect user data.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	SLONG *transaction;
+
+	if (!database)
+		IBERROR(243);			/* Msg243 no active database for operation */
+
+	transaction = (database->dbb_capabilities & DBB_cap_multi_trans) ?
+		database->dbb_meta_trans : NULL;
+
+	DB = database->dbb_handle;
+
+/* If we don't know whether or not the database can handle
+   multiple transactions, find out now */
+
+	if (!transaction &&
+		((database->dbb_capabilities & DBB_cap_multi_trans) ||
+		 !(database->dbb_capabilities & DBB_cap_single_trans)))
+	{
+		if (gds__start_transaction(status_vector,
+								   GDS_REF(transaction),
+								   1,
+								   GDS_REF(database->dbb_handle),
+								   sizeof(tpb),
+								   tpb))
+		{
+			database->dbb_capabilities |= DBB_cap_single_trans;
+		}
+		else
+		{
+			database->dbb_capabilities |= DBB_cap_multi_trans;
+		}
+	}
+
+/* If we already have a meta-data transaction, there's more nothing to do */
+
+	gds__trans = transaction;
+
+/* If we only support a single transaction, use the data transaction */
+
+	if (!gds__trans && (database->dbb_capabilities & DBB_cap_single_trans))
+	{
+		if (update_flag)
+			IBERROR(244);		/* Msg244 Interactive metadata updates are not available on Rdb */
+		if (!(gds__trans = database->dbb_transaction))
+			gds__trans = MET_transaction(nod_start_trans, database);
+	}
+
+/* otherwise make one more effort to start the transaction */
+
+	else if (!gds__trans)
+	{
+		START_TRANSACTION
+		ON_ERROR
+			ERRQ_database_error(database, status_vector);
+		END_ERROR;
+	}
+
+	database->dbb_meta_trans = gds__trans;
+	return gds__trans;
+}
+
+
+void MET_modify_field( DBB database, FLD field)
+{
+/**************************************
+ *
+ *	M E T _ m o d i f y _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify an existing global field.
+ *
+ **************************************/
+	SYM symbol, field_name;
+	REL relation;
+	TEXT *p;
+	SSHORT flag;
+
+	database = setup_update(database);
+	field_name = field->fld_name;
+	flag = 0;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_modify_fld])
+		X IN DB.RDB$FIELDS WITH X.RDB$FIELD_NAME EQ field_name->sym_string
+		if (field->fld_dtype &&
+			(X.RDB$FIELD_TYPE == blr_blob || blr_dtypes[field->fld_dtype] == blr_blob) &&
+			 X.RDB$FIELD_TYPE != blr_dtypes[field->fld_dtype])
+		{
+			flag = -1;
+		}
+		else
+		{
+			flag = 1;
+			MODIFY X USING
+				if (field->fld_dtype) {
+					X.RDB$FIELD_TYPE = blr_dtypes[field->fld_dtype];
+					X.RDB$FIELD_SCALE = field->fld_scale;
+					X.RDB$FIELD_LENGTH = (field->fld_dtype == dtype_varying) ?
+						field->fld_length -
+						sizeof(SSHORT) : field->fld_length;
+				}
+				if (!field->fld_sub_type_missing) {
+					X.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+					X.RDB$FIELD_SUB_TYPE = field->fld_sub_type;
+				}
+				if (symbol = field->fld_query_name) {
+					X.RDB$QUERY_NAME.NULL = FALSE;
+					strcpy(X.RDB$QUERY_NAME, symbol->sym_string);
+				}
+				if (field->fld_edit_string) {
+					X.RDB$EDIT_STRING.NULL = FALSE;
+					strcpy(X.RDB$EDIT_STRING, field->fld_edit_string);
+				}
+			END_MODIFY
+			ON_ERROR
+				rollback_update(database);
+				ERRQ_database_error(database, gds__status);
+			END_ERROR;
+		}
+	END_FOR
+	ON_ERROR
+		rollback_update(database);
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	if (flag <= 0)
+	{
+		rollback_update(database);
+		/* Msg245 global field %s is not defined */
+		/* Msg468 Datatype of field %s may not be changed to or from blob */
+		const USHORT nErr = flag ? 468 : 245;
+		ERRQ_print_error(flag, field_name->sym_string, NULL, NULL, NULL, NULL);
+	}
+
+	MET_meta_commit(database);
+
+/* Now go back and re-fetch fields for affected databases */
+
+	setup_update(database);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_update_fld])
+		X IN DB.RDB$RELATION_FIELDS WITH X.RDB$FIELD_SOURCE EQ
+			field_name->sym_string REDUCED TO X.RDB$RELATION_NAME
+
+		p = X.RDB$RELATION_NAME; 
+		while (*p && *p != ' ') {
+			p++;
+		}
+
+		symbol = HSH_lookup(X.RDB$RELATION_NAME, p - X.RDB$RELATION_NAME);
+		for (; symbol; symbol = symbol->sym_homonym)
+		{
+			if (symbol->sym_type == SYM_relation &&
+				(relation = (REL) symbol->sym_object) &&
+				relation->rel_database == database)
+			{
+				delete_fields(relation);
+				MET_fields(relation);
+			}
+		}
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+}
+
+
+void MET_modify_index( SYN node)
+{
+/**************************************
+ *
+ *	M E T _ m o d i f y _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change the changeable options
+ *	of an index.
+ *
+ **************************************/
+	DBB database;
+	REL relation;
+	SYN fields;
+	NAM *ptr, name;
+	USHORT count;
+	STATUS status_vector[20];
+
+	name = (NAM) node->syn_arg[s_mfi_name];
+	database = (DBB) node->syn_arg[s_mfi_database];
+	database = setup_update(database);
+
+	count = 0;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_mdf_index])
+		X IN DB.RDB$INDICES WITH X.RDB$INDEX_NAME = name->nam_string
+		MODIFY X USING
+			if (node->syn_flags & s_dfi_flag_selectivity)
+				X.RDB$UNIQUE_FLAG = (node->syn_flags & s_dfi_flag_unique);
+			if (node->syn_flags & s_dfi_flag_activity)
+				X.RDB$INDEX_INACTIVE =
+					(node->syn_flags & s_dfi_flag_inactive);
+			if (node->syn_flags & s_dfi_flag_order)
+				X.RDB$INDEX_TYPE =
+					(node->syn_flags & s_dfi_flag_descending) ? TRUE : FALSE;
+			if (node->syn_flags & s_dfi_flag_statistics)
+				X.RDB$STATISTICS = -1.0;
+		END_MODIFY
+		ON_ERROR
+			rollback_update(database);
+			ERRQ_database_error(database, gds__status);
+		END_ERROR;
+		count++;
+	END_FOR
+	ON_ERROR
+		rollback_update(database);
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	if (!count)
+		ERRQ_print_error(246, name->nam_string, database->dbb_filename, NULL,
+						 NULL, NULL);	/* Msg246 Index %s does not exist */
+
+	MET_meta_commit(database);
+}
+
+
+void MET_modify_relation( REL relation, FLD fields)
+{
+/**************************************
+ *
+ *	M E T _ m o d i f y _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Modify an existing relation.
+ *
+ **************************************/
+	DBB database;
+	SYM relation_name, field_name;
+	FLD field;
+	USHORT count;
+
+	relation->rel_database = database = setup_update(relation->rel_database);
+	relation_name = relation->rel_symbol;
+
+	for (field = fields; field; field = field->fld_next)
+		if (field->fld_flags & FLD_drop) {
+			count = 0;
+			field_name = field->fld_name;
+			FOR(REQUEST_HANDLE database->dbb_requests[REQ_modify_rel])
+				X IN DB.RDB$RELATION_FIELDS WITH
+					X.RDB$FIELD_NAME EQ field_name->sym_string AND
+					X.RDB$RELATION_NAME EQ relation_name->sym_string 
+				count++;
+				ERASE X
+				ON_ERROR
+					rollback_update(database);
+					ERRQ_database_error(database, gds__status);
+				END_ERROR;
+			END_FOR
+			ON_ERROR
+				rollback_update(database);
+				ERRQ_database_error(database, gds__status);
+			END_ERROR;
+			if (!count) {
+				rollback_update(database);
+				ERRQ_print_error(247, field_name->sym_string, NULL, NULL,
+								 NULL, NULL);	/* Msg247 field %s doesn't exist */
+			}
+		}
+		else if (field->fld_flags & FLD_modify)
+			change_field(relation, field);
+		else
+			add_field(relation, field, 0);
+
+	MET_meta_commit(database);
+	setup_update(database);
+	delete_fields(relation);
+	MET_fields(relation);
+}
+
+
+void MET_ready( SYN node, USHORT create_flag)
+{
+/**************************************
+ *
+ *	M E T _ r e a d y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create or Ready one or more databases.  If any
+ *	fail, all fail.  Fair enough?
+ *
+ **************************************/
+	DBB temp, dbb;
+	SYN *ptr, *ptr2, *end;
+	STATUS status_vector[20];
+	SSHORT i, dpb_length, length;
+	UCHAR *dpb, *p;
+	TEXT *q;
+	TEXT *lc_ctype;
+
+	p = parm_buffer;
+	temp = (DBB) node->syn_arg[0];
+
+/* Only a SQL CREATE DATABASE will have a pagesize parameter,
+   so only looking at the first pointer is justified.	*/
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+	/* Always generate a dpb  and populate it with the language info. */
+
+	*p++ = gds__dpb_version1;
+	*p++ = gds__dpb_interp;
+	*p++ = 2;
+	*p++ = QLI_interp % 256;
+	*p++ = QLI_interp / 256;
+
+
+#else
+	*p++ = gds__dpb_version1;
+#endif
+
+	if ((lc_ctype = QLI_charset) && (length = strlen(lc_ctype))) {
+		*p++ = gds__dpb_lc_ctype;
+		*p++ = length;
+		while (*lc_ctype)
+			*p++ = *lc_ctype++;
+	}
+
+	if (QLI_trace) {
+		*p++ = gds__dpb_trace;
+		*p++ = 1;
+		*p++ = 1;
+	}
+
+	if (sw_buffers) {
+		*p++ = gds__dpb_num_buffers;
+		*p++ = 2;
+		*p++ = sw_buffers % 256;
+		*p++ = sw_buffers / 256;
+	}
+
+	if (temp->dbb_pagesize) {
+		*p++ = gds__dpb_page_size;
+		*p++ = 2;
+		*p++ = temp->dbb_pagesize % 256;
+		*p++ = temp->dbb_pagesize / 256;
+	}
+
+/* get a username, if specified globally or on
+   the command line */
+
+	if (temp->dbb_user) {
+		q = (TEXT *) temp->dbb_user->con_data;
+		length = temp->dbb_user->con_desc.dsc_length;
+	}
+	else {
+		q = QLI_default_user;
+		length = strlen(QLI_default_user);
+	}
+	if (length) {
+		*p++ = gds__dpb_user_name;
+		*p++ = length;
+		while (length--)
+			*p++ = *q++;
+	}
+
+/* get a password, if specified */
+
+	if (temp->dbb_password) {
+		q = (TEXT *) temp->dbb_password->con_data;
+		length = temp->dbb_password->con_desc.dsc_length;
+	}
+	else {
+		q = QLI_default_password;
+		length = strlen(QLI_default_password);
+	}
+	if (length) {
+		*p++ = gds__dpb_password;
+		*p++ = length;
+		while (length--)
+			*p++ = *q++;
+	}
+
+	dpb_length = p - parm_buffer;
+	if (dpb_length == 1) {
+		dpb = NULL;
+		dpb_length = 0;
+	}
+	else
+		dpb = parm_buffer;
+
+	end = node->syn_arg + node->syn_count;
+
+/* Start by attaching all databases */
+
+	for (ptr = node->syn_arg; ptr < end; ptr++) {
+		dbb = (DBB) * ptr;
+		if (create_flag)
+			gds__create_database(status_vector,
+								 0,
+								 GDS_VAL(dbb->dbb_filename),
+								 GDS_REF(dbb->dbb_handle),
+								 dpb_length, GDS_VAL(dpb), 0);
+		else
+			gds__attach_database(status_vector,
+								 0,
+								 GDS_VAL(dbb->dbb_filename),
+								 GDS_REF(dbb->dbb_handle),
+								 dpb_length, GDS_VAL(dpb));
+		if (status_vector[1])
+			break;
+	}
+
+/* If any attach failed, cleanup and give up */
+
+	if (ptr < end) {
+		for (ptr2 = node->syn_arg; ptr2 < ptr; ptr2++)
+			detach(gds__status, *ptr2);
+		ERRQ_database_error(dbb, status_vector);
+	}
+
+
+/* Databases are up and running.  Install each. */
+
+	for (ptr = node->syn_arg; ptr < end; ptr++)
+		install(*ptr);
+}
+
+
+void MET_shutdown(void)
+{
+/**************************************
+ *
+ *	M E T _ s h u t d o w n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shut down all attached databases.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	DBB dbb;
+
+	for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+		if (detach(status_vector, dbb))
+			gds__print_status(status_vector);
+}
+
+
+void MET_sql_alter_table( REL relation, FLD fields)
+{
+/**************************************
+ *
+ *	M E T _ s q l _ a l t e r _ t a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Alter table data based on a SQL metadata request
+ *
+ **************************************/
+	DBB database;
+	SYM symbol;
+	FLD field;
+	STATUS status_vector[20];
+	RLB rlb;
+	USHORT count;
+
+	symbol = relation->rel_symbol;
+	relation->rel_database = database = setup_update(relation->rel_database);
+	count = 0;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_relation_def])
+		X IN DB.RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ symbol->sym_string
+			count++;
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+	if (!count)
+		ERRQ_print_error(414, symbol->sym_string, NULL, NULL, NULL, NULL);	/* Msg237 Relation %s is lost */
+
+
+	rlb = NULL;
+	rlb = CHECK_RLB(rlb);
+
+	STUFF(gds__dyn_version_1);
+	STUFF(gds__dyn_begin);
+	STUFF(gds__dyn_mod_rel);
+	STUFF_STRING(symbol->sym_string);
+
+	for (field = fields; field; field = field->fld_next) {
+		if (field->fld_flags & FLD_add)
+			add_sql_field(relation, field, 0, rlb);
+		else if (field->fld_flags & FLD_drop) {
+			STUFF(gds__dyn_delete_local_fld);
+			STUFF_STRING(field->fld_name->sym_string);
+			STUFF(gds__dyn_end);
+		}
+	}
+
+	STUFF(gds__dyn_end);
+	STUFF(gds__dyn_end);
+	STUFF(gds__dyn_eoc);
+
+	execute_dynamic_ddl(database, rlb);
+	MET_meta_commit(database);
+
+	setup_update(database);
+	delete_fields(relation);
+	MET_fields(relation);
+}
+
+
+void MET_sql_cr_view( SYN node)
+{
+/**************************************
+ *
+ *	M E T _ s q l _ c r _ v i e w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a view from a SQL metadata request
+ *
+ **************************************/
+	STATUS status_vector[20];
+	REL relation;
+	DBB database;
+	SYM symbol;
+	RLB rlb;
+
+	relation = (REL) node->syn_arg[s_crv_name];
+	relation->rel_database = database = setup_update(relation->rel_database);
+	symbol = relation->rel_symbol;
+
+	rlb = NULL;
+	rlb = CHECK_RLB(rlb);
+	STUFF(gds__dyn_version_1);
+	STUFF(gds__dyn_begin);
+
+	STUFF(gds__dyn_def_view);
+	STUFF_STRING(symbol->sym_string);
+
+/* The meat of the blr generation will go here */
+
+	STUFF(gds__dyn_end);
+	STUFF(gds__dyn_eoc);
+
+	execute_dynamic_ddl(database, rlb);
+	MET_meta_commit(database);
+}
+
+
+void MET_sql_grant( SYN node)
+{
+/**************************************
+ *
+ *	M E T _ s q l _ g r a n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Grant access privilege(s) on a SQL table
+ *
+ **************************************/
+
+	sql_grant_revoke(node, gds__dyn_grant);
+}
+
+
+void MET_sql_revoke( SYN node)
+{
+/**************************************
+ *
+ *	M E T _ s q l _ r e v o k e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Revoke access privilege(s) on a SQL table
+ *
+ **************************************/
+
+	sql_grant_revoke(node, gds__dyn_revoke);
+}
+
+
+SLONG *MET_transaction( NOD_T node_type, DBB database)
+{
+/**************************************
+ *
+ *	M E T _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Finish off a transaction with a commit, prepare, or rollback.
+ *	For commit and rollback, start a new transaction.
+ *
+ *	Multiple transaction coordination is handled
+ *	by the caller.  This is a singleminded routine.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+
+	switch (node_type) {
+	case nod_commit:
+		gds__commit_transaction(status_vector,
+								GDS_REF(database->dbb_transaction));
+		break;
+
+	case nod_rollback:
+		gds__rollback_transaction(status_vector,
+								  GDS_REF(database->dbb_transaction));
+		break;
+
+	case nod_prepare:
+		gds__prepare_transaction(status_vector,
+								 GDS_REF(database->dbb_transaction));
+		break;
+
+	case nod_start_trans:
+		gds__start_transaction(status_vector,
+							   GDS_REF(database->dbb_transaction),
+							   1,
+							   GDS_REF(database->dbb_handle),
+							   sizeof(tpb), tpb);
+		database->dbb_flags &= ~DBB_updates & ~DBB_prepared;
+		break;
+	}
+
+	if (status_vector[1])
+		ERRQ_database_error(database, status_vector);
+
+	return (database->dbb_transaction);
+}
+
+
+static void add_field( REL relation, FLD field, USHORT position)
+{
+/**************************************
+ *
+ *	a d d _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a field to a relation.  Do all sorts of sanity checks.
+ *
+ **************************************/
+	DBB database;
+	SYM relation_name, field_name, symbol, global_field;
+	USHORT global_flag;
+
+	database = relation->rel_database;
+	relation_name = relation->rel_symbol;
+	field_name = field->fld_name;
+	if (!(global_field = field->fld_based))
+		global_field = field_name;
+
+/* Check to see if it already exits in relation */
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_rfr_def])
+		X IN DB.RDB$RELATION_FIELDS WITH
+			X.RDB$RELATION_NAME EQ relation_name->sym_string AND
+			X.RDB$FIELD_NAME EQ field_name->sym_string
+		rollback_update(relation->rel_database);
+		ERRQ_print_error(251, field_name->sym_string,
+						 relation_name->sym_string, NULL, NULL, NULL);	/* Msg251 Field %s already exists in relation %s */
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+/* Check global field.  Define it if it doesn't exist. */
+
+	global_flag = FALSE;
+	if (!check_global_field(database, field, global_field->sym_string)) {
+		global_flag = TRUE;
+		define_global_field(database, field, global_field);
+	}
+
+/* Finally, store into RFR.  If we defined a global field, assume that
+   the query name and edit string will be inherited from there, otherwise
+   include them here */
+
+	STORE(REQUEST_HANDLE database->dbb_requests[REQ_store_rfr])
+		X IN DB.RDB$RELATION_FIELDS
+
+		strcpy(X.RDB$RELATION_NAME, relation_name->sym_string);
+		strcpy(X.RDB$FIELD_NAME, field_name->sym_string);
+		strcpy(X.RDB$FIELD_SOURCE, global_field->sym_string);
+		if (position) {
+			X.RDB$FIELD_POSITION.NULL = FALSE;
+			X.RDB$FIELD_POSITION = position;
+		}
+		else
+			X.RDB$FIELD_POSITION.NULL = TRUE;
+		if (!global_flag && (symbol = field->fld_query_name)) {
+			X.RDB$QUERY_NAME.NULL = FALSE;
+			strcpy(X.RDB$QUERY_NAME, symbol->sym_string);
+		}
+		else
+			X.RDB$QUERY_NAME.NULL = TRUE;
+		if (!global_flag && (field->fld_edit_string)) {
+			X.RDB$EDIT_STRING.NULL = FALSE;
+			strcpy(X.RDB$EDIT_STRING, field->fld_edit_string);
+		}
+		else
+			X.RDB$EDIT_STRING.NULL = TRUE;
+
+	END_STORE
+	ON_ERROR
+		rollback_update(relation->rel_database);
+		ERRQ_database_error(relation->rel_database, gds__status);
+	END_ERROR;
+}
+
+
+static void add_sql_field( REL relation, FLD field, USHORT position, RLB rlb)
+{
+/**************************************
+ *
+ *	a d d _ s q l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add a SQL field to a relation via dyn.
+ *
+ **************************************/
+	DBB database;
+	SYM relation_name, field_name, symbol, global_field;
+	USHORT l;
+	STATUS status_vector[20];
+
+	rlb = CHECK_RLB(rlb);
+	database = relation->rel_database;
+	relation_name = relation->rel_symbol;
+	field_name = field->fld_name;
+
+/* Check to see if it already exits in relation */
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_rfr_def])
+		X IN DB.RDB$RELATION_FIELDS WITH
+			X.RDB$RELATION_NAME EQ relation_name->sym_string AND
+			X.RDB$FIELD_NAME EQ field_name->sym_string
+		rollback_update(relation->rel_database);
+		ERRQ_print_error(251, field_name->sym_string,
+						 relation_name->sym_string, NULL, NULL, NULL);	/* Msg251 Field %s already exists in relation %s */
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+
+	STUFF(gds__dyn_def_sql_fld);
+	STUFF_STRING(field->fld_name->sym_string);
+
+	STUFF(gds__dyn_fld_type);
+	STUFF_WORD(2);
+	STUFF_WORD(blr_dtypes[field->fld_dtype]);
+
+	STUFF(gds__dyn_fld_length);
+	STUFF_WORD(2);
+	l =
+		(field->fld_dtype ==
+		 dtype_varying) ? field->fld_length -
+		sizeof(SSHORT) : field->fld_length;
+	STUFF_WORD(l);
+
+	STUFF(gds__dyn_fld_scale);
+	STUFF_WORD(2);
+	STUFF_WORD(field->fld_scale);
+
+	if (position) {
+		STUFF(gds__dyn_fld_position);
+		STUFF_WORD(2);
+		STUFF_WORD(position);
+	}
+
+	rlb = CHECK_RLB(rlb);
+
+	if (field->fld_flags & FLD_not_null) {
+		STUFF(gds__dyn_fld_validation_blr);
+		STUFF_WORD(8);
+		STUFF(blr_version4);
+		STUFF(blr_not);
+		STUFF(blr_missing);
+		STUFF(blr_fid);
+		STUFF(0);
+		STUFF(0);
+		STUFF(0);
+		STUFF(blr_eoc);
+	}
+
+	STUFF(gds__dyn_end);
+}
+
+
+static int blob_copy( RLB rlb, REL source, SLONG * source_blob_id)
+{
+/**************************************
+ *
+ *	b l o b _ c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy information from one blob to a request
+ *	language block to stick it into a new definition.
+ *
+ **************************************/
+	DBB source_dbb;
+	SLONG *source_trans;
+	SLONG *source_blob, size, segment_count, max_segment;
+	STATUS status_vector[20];
+	USHORT length, buffer_length;
+	TEXT *buffer, fixed_buffer[4096], *p;
+
+	source_dbb =
+		(source->rel_database) ? source->rel_database : QLI_databases;
+	DB = source_dbb->dbb_handle;
+	source_blob = NULL;
+
+	if (gds__open_blob(status_vector,
+					   GDS_REF(DB),
+					   GDS_REF(source_dbb->dbb_meta_trans),
+					   GDS_REF(source_blob), GDS_VAL(source_blob_id))) {
+		rollback_update(DB);
+		ERRQ_database_error(source_dbb, status_vector);
+	}
+
+	gds__blob_size(&source_blob, &size, &segment_count, &max_segment);
+
+#if JPN_EUC
+	max_segment *= 2;			/* prepare for SJIS->EUC expansion */
+#endif /* JPN_EUC */
+
+	if (max_segment < sizeof(fixed_buffer)) {
+		buffer_length = sizeof(fixed_buffer);
+		buffer = fixed_buffer;
+	}
+	else {
+		buffer_length = max_segment;
+		buffer = (TEXT *) gds__alloc((SLONG) buffer_length);
+	}
+
+	STUFF_WORD((USHORT) size);
+
+	while (!gds__get_segment(status_vector,
+							 GDS_REF(source_blob),
+							 GDS_REF(length),
+							 buffer_length, GDS_VAL(buffer))) {
+		while (rlb->rlb_limit - rlb->rlb_data < length)
+			rlb = GEN_rlb_extend(rlb);
+		p = buffer;
+		while (length--)
+			STUFF(*p++);
+	}
+
+	if (status_vector[1] != gds__segstr_eof) {
+		rollback_update(DB);
+		if (buffer != fixed_buffer)
+			gds__free(buffer);
+		ERRQ_database_error(source_dbb, status_vector);
+	}
+
+	if (buffer != fixed_buffer)
+		gds__free(buffer);
+
+	if (gds__close_blob(status_vector, GDS_REF(source_blob))) {
+		rollback_update(DB);
+		ERRQ_database_error(source_dbb, status_vector);
+	}
+
+	return TRUE;
+}
+
+
+static void change_field( REL relation, FLD field)
+{
+/**************************************
+ *
+ *	c h a n g e  _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change optional attributes of a field.
+ *
+ **************************************/
+	DBB database;
+	SYM relation_name, field_name, symbol, global_field;
+	USHORT count;
+
+	database = relation->rel_database;
+	relation_name = relation->rel_symbol;
+	field_name = field->fld_name;
+	global_field = field->fld_based;
+
+	if (field->fld_dtype) {
+		rollback_update(database);
+		ERRQ_print_error(252, NULL, NULL, NULL, NULL, NULL);	/* Msg252 datatype can not be changed locally */
+	}
+
+	if (global_field
+		&&
+		!(check_global_field(database, NULL_PTR, global_field->sym_string))) {
+		rollback_update(database);
+		ERRQ_print_error(253, global_field->sym_string, NULL, NULL, NULL, NULL);	/* Msg253 global field %s does not exist */
+	}
+
+/* Modify  RFR */
+	count = 0;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_mdf_rfr])
+		X IN DB.RDB$RELATION_FIELDS WITH
+			X.RDB$RELATION_NAME = relation_name->sym_string AND
+			X.RDB$FIELD_NAME = field_name->sym_string 
+		count++;
+		MODIFY X USING
+			if (global_field)
+				strcpy(X.RDB$FIELD_SOURCE, global_field->sym_string);
+			if (symbol = field->fld_query_name)
+				strcpy(X.RDB$QUERY_NAME, symbol->sym_string);
+			if (field->fld_edit_string)
+				strcpy(X.RDB$EDIT_STRING, field->fld_edit_string);
+		END_MODIFY
+		ON_ERROR
+			rollback_update(relation->rel_database);
+			ERRQ_database_error(relation->rel_database, gds__status);
+		END_ERROR;
+	END_FOR
+	ON_ERROR
+		rollback_update(database);
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	if (!count) {
+		rollback_update(database);
+		ERRQ_print_error(254, field_name->sym_string,
+						 relation_name->sym_string, NULL, NULL, NULL);	/* Msg254 field %s not found in relation %s */
+	}
+}
+
+
+static int check_global_field( DBB database, FLD field, TEXT * name)
+{
+/**************************************
+ *
+ *	c h e c k _ g l o b a l _ f i e l d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a name, check for the existence of a global field
+ *	by that name.  If a FLD block is supplied,
+ *		check its characteristics against the global.
+ *	If it is not fully defined, flesh it out from the global.
+ *
+ **************************************/
+	BOOLEAN previously_defined;
+	SLONG *blob;
+
+	previously_defined = FALSE;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_field_def])
+		X IN DB.RDB$FIELDS WITH X.RDB$FIELD_NAME EQ name 
+
+		if (field)
+		{
+			if (field->fld_dtype &&
+				(X.RDB$FIELD_TYPE != blr_dtypes[field->fld_dtype] ||
+				 X.RDB$FIELD_LENGTH !=
+				 ((field->fld_dtype == dtype_varying) ? field->fld_length -
+				  sizeof(SSHORT) : field->fld_length) ||
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+				 X.RDB$FIELD_SCALE != field->fld_scale))
+#else
+				 /* The scale of char type data columns is set by triggers,
+					so it is possible that the scale specifed by the user may not
+					match the actual scale in the database, so dont complain */
+				 (field->fld_dtype > dtype_varying && X.RDB$FIELD_SCALE != field->fld_scale)))
+#endif
+			{
+				rollback_update(database);
+				ERRQ_print_error(255, name, NULL, NULL, NULL, NULL);	/* Msg255 Datatype conflict with existing global field %s */
+			}
+			field->fld_dtype = MET_get_datatype(X.RDB$FIELD_TYPE);
+			field->fld_length =
+				field_length(field->fld_dtype, X.RDB$FIELD_LENGTH);
+			if (field->fld_dtype == dtype_varying) {
+				field->fld_length += sizeof(SSHORT);
+			}
+			field->fld_scale = X.RDB$FIELD_SCALE;
+			field->fld_sub_type = X.RDB$FIELD_SUB_TYPE;
+			field->fld_sub_type_missing = X.RDB$FIELD_SUB_TYPE.NULL;
+			if (!field->fld_edit_string)
+			{
+				field->fld_edit_string =
+					make_string(X.RDB$EDIT_STRING, sizeof(X.RDB$EDIT_STRING));
+			}
+			if (!field->fld_query_name)
+			{
+				field->fld_query_name =
+					make_symbol(X.RDB$QUERY_NAME, sizeof(X.RDB$QUERY_NAME));
+			}
+			if (!field->fld_query_header)
+			{
+				blob = (SLONG *) & X.RDB$QUERY_HEADER;
+				if (blob[0] || blob[1])
+				{
+					field->fld_query_header =
+						get_query_header(database, blob);
+				}
+			}
+		}
+		previously_defined = TRUE;
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+
+	return previously_defined;
+}
+
+
+static int check_relation( REL relation)
+{
+/**************************************
+ *
+ *	c h e c k _ r e l a t i o n  
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check the existence of the named relation.
+ *
+ **************************************/
+	BOOLEAN previously_defined;
+	SLONG *spare;
+
+	previously_defined = FALSE;
+
+	spare = DB;
+	DB = relation->rel_database->dbb_handle;
+
+	FOR(REQUEST_HANDLE relation->rel_database->dbb_requests[REQ_relation_def]
+		TRANSACTION_HANDLE relation->rel_database->dbb_meta_trans)
+			X IN DB.RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ relation->rel_symbol->sym_string 
+		previously_defined = TRUE;
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(relation->rel_database, gds__status);
+	END_ERROR;
+
+	DB = spare;
+	return previously_defined;
+}
+
+
+static int clone_fields( REL target, REL source)
+{
+/**************************************
+ *
+ *	c l o n e _ f i e l d s 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy the RFR records for one relation
+ *	into another.  The target database is already
+ *	setup for updates.  If there is a different source
+ *	database, get it ready too.  Then make sure that
+ *	the source relation actually exists.
+ *
+ *	If it's two different databases, create the global
+ *	fields that are missing in the target (except those
+ *	that support computed fields), then create the local 
+ *	fields and during that pass create the computed
+ *	fields and the SQL fields.
+ *
+ **************************************/
+	SLONG *req1, *req2;
+	SLONG *t_trans, *s_trans;
+	RLB rlb;
+	SSHORT count;
+
+	req1 = req2 = NULL;
+	s_trans = t_trans = gds__trans;
+	DB = DB1 = target->rel_database->dbb_handle;
+
+	if (target->rel_database != source->rel_database) {
+		MET_meta_transaction(source->rel_database, FALSE);
+		s_trans = gds__trans;
+	}
+
+	if (target->rel_database != source->rel_database)
+		clone_global_fields(target, source);
+
+	rlb = NULL;
+	rlb = CHECK_RLB(rlb);
+
+	STUFF(gds__dyn_version_1);
+	STUFF(gds__dyn_begin);
+
+	FOR(REQUEST_HANDLE req1
+		TRANSACTION_HANDLE s_trans)
+			Y IN DB.RDB$RELATION_FIELDS
+				CROSS F IN DB.RDB$FIELDS
+				WITH Y.RDB$RELATION_NAME = source->rel_symbol->sym_string
+				AND Y.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME
+				/* If SQL made this field, create a new global field for it */
+		if (F.RDB$COMPUTED_BLR.NULL &&
+			(strncmp("RDB$", Y.RDB$FIELD_NAME, 4)) &&
+			(!(strncmp("RDB$", F.RDB$FIELD_NAME, 4))))
+		{
+				STUFF(gds__dyn_def_sql_fld);
+				STUFF_STRING(Y.RDB$FIELD_NAME);
+				STUFF(gds__dyn_fld_type);
+				STUFF_WORD(2);
+				STUFF_WORD(F.RDB$FIELD_TYPE);
+
+				STUFF(gds__dyn_fld_length);
+				STUFF_WORD(2);
+				STUFF_WORD(F.RDB$FIELD_LENGTH);
+
+				STUFF(gds__dyn_fld_scale);
+				STUFF_WORD(2);
+				STUFF_WORD(F.RDB$FIELD_SCALE);
+
+				if (!F.RDB$VALIDATION_BLR.NULL) {
+					STUFF(gds__dyn_fld_validation_blr);
+					blob_copy(rlb, source, &F.RDB$VALIDATION_BLR);
+				}
+		}
+		else
+		{
+			STUFF(gds__dyn_def_local_fld);
+			STUFF_STRING(Y.RDB$FIELD_NAME);
+			STUFF(gds__dyn_fld_source);
+			STUFF_STRING(Y.RDB$FIELD_SOURCE);
+		}
+
+		STUFF(gds__dyn_rel_name);
+		STUFF_STRING(target->rel_symbol->sym_string);
+
+		if (!Y.RDB$FIELD_POSITION.NULL) {
+			STUFF(gds__dyn_fld_position);
+			STUFF_WORD(2);
+			STUFF_WORD(Y.RDB$FIELD_POSITION);
+		}
+
+		if (!Y.RDB$QUERY_NAME.NULL) {
+			STUFF(gds__dyn_fld_query_name);
+			STUFF_STRING(Y.RDB$QUERY_NAME);
+		}
+
+		if (!Y.RDB$EDIT_STRING.NULL) {
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+
+			STUFF(gds__dyn_fld_edit_string);
+
+#else
+
+			STUFF(gds__dyn_fld_edit_string2);
+			STUFF_WORD(QLI_interp);
+
+#endif
+			STUFF_STRING(Y.RDB$EDIT_STRING);
+		}
+		if (!Y.RDB$UPDATE_FLAG.NULL) {
+			STUFF(gds__dyn_update_flag);
+			STUFF_WORD(2);
+			STUFF_WORD(Y.RDB$UPDATE_FLAG);
+		}
+
+		if (!Y.RDB$QUERY_HEADER.NULL) {
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+
+			STUFF(gds__dyn_fld_query_header);
+
+#else
+
+			STUFF(gds__dyn_fld_query_header2);
+			STUFF_WORD(QLI_interp);
+
+#endif
+			blob_copy(rlb, source, &Y.RDB$QUERY_HEADER);
+		}
+
+		if (!Y.RDB$DESCRIPTION.NULL) {
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+
+			STUFF(gds__dyn_description);
+
+#else
+
+			STUFF(gds__dyn_description2);
+			STUFF_WORD(QLI_interp);
+
+#endif
+
+			blob_copy(rlb, source, &Y.RDB$DESCRIPTION);
+		}
+
+		if (!Y.RDB$DEFAULT_VALUE.NULL) {
+			STUFF(gds__dyn_fld_default_value);
+			blob_copy(rlb, source, &Y.RDB$DEFAULT_VALUE);
+		}
+
+		if ((source->rel_database->dbb_capabilities & DBB_cap_rfr_sys_flag) &&
+			(target->rel_database->dbb_capabilities & DBB_cap_rfr_sys_flag))
+		FOR(REQUEST_HANDLE req2
+			TRANSACTION_HANDLE s_trans)
+				S_RFR IN DB.RDB$RELATION_FIELDS WITH
+					S_RFR.RDB$FIELD_NAME = Y.RDB$FIELD_NAME AND
+					S_RFR.RDB$RELATION_NAME = Y.RDB$RELATION_NAME
+            if (!S_RFR.RDB$SYSTEM_FLAG.NULL) {
+                STUFF(gds__dyn_system_flag);
+                STUFF_WORD(2);
+                STUFF_WORD(S_RFR.RDB$SYSTEM_FLAG);
+            }
+		END_FOR
+		ON_ERROR
+			rollback_update(target->rel_database);
+			ERRQ_database_error(source->rel_database, gds__status);
+		END_ERROR;
+
+		if (!F.RDB$COMPUTED_BLR.NULL)
+		{
+			STUFF(gds__dyn_fld_computed_blr);
+			blob_copy(rlb, source, &F.RDB$COMPUTED_BLR);
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+
+			STUFF(gds__dyn_fld_computed_source);
+
+#else
+			STUFF(gds__dyn_fld_computed_source2);
+			STUFF_WORD(QLI_interp);
+
+#endif
+
+			blob_copy(rlb, source, &F.RDB$COMPUTED_SOURCE);
+
+			STUFF(gds__dyn_fld_type);
+			STUFF_WORD(2);
+			STUFF_WORD(F.RDB$FIELD_TYPE);
+
+			STUFF(gds__dyn_fld_length);
+			STUFF_WORD(2);
+			STUFF_WORD(F.RDB$FIELD_LENGTH);
+
+			if (!F.RDB$FIELD_SCALE.NULL) {
+				STUFF(gds__dyn_fld_scale);
+				STUFF_WORD(2);
+				STUFF_WORD(F.RDB$FIELD_SCALE);
+			}
+
+			if (!F.RDB$FIELD_SUB_TYPE.NULL) {
+				STUFF(gds__dyn_fld_sub_type);
+				STUFF_WORD(2);
+				STUFF_WORD(F.RDB$FIELD_SUB_TYPE);
+			}
+		}
+		STUFF(gds__dyn_end);
+	END_FOR
+	ON_ERROR
+		rollback_update(source->rel_database);
+		ERRQ_database_error(source->rel_database, gds__status);
+	END_ERROR;
+
+	STUFF(gds__dyn_end);
+	STUFF(gds__dyn_eoc);
+
+	execute_dynamic_ddl(target->rel_database, rlb);
+
+	if (req1)
+		if (gds__release_request(gds__status, GDS_REF(req1)))
+			ERRQ_database_error(source->rel_database, gds__status);
+	if (req2)
+		if (gds__release_request(gds__status, GDS_REF(req2)))
+			ERRQ_database_error(source->rel_database, gds__status);
+	return TRUE;
+}
+
+
+static clone_global_fields( REL target, REL source)
+{
+/**************************************
+ *
+ *	c l o n e _ g l o b a l _ f i e l d s 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy the global field definitions required by a relation
+ *      from one database into another.  Both databases are
+ *	setup correctly.  (Set up the handles again just because
+ *	we're compulsive.) 
+ *
+ *	In this routine, as in clone fields, be careful to probe
+ *	for our extensions rather than just using them so we
+ *	can copy relations from V2 and from Rdb.
+ *
+ *	Don't clone fields that already exist and have the
+ *	correct datatype and length.
+ *
+ *	Don't clone computed fields since they will be cloned
+ *	later with the local field definitions.   Don't clone
+ *	SQL defined fields for the same reason.
+ *
+ **************************************/
+	SLONG *req1, *req2, *req3;
+	SLONG *t_trans, *s_trans;
+	TEXT *name;
+	SSHORT first_field, first_dimension, predefined;
+	RLB rlb;
+
+	req1 = req2 = req3 = NULL;
+	s_trans = source->rel_database->dbb_meta_trans;
+	t_trans = target->rel_database->dbb_meta_trans;
+	DB = source->rel_database->dbb_handle;
+	DB1 = target->rel_database->dbb_handle;
+
+	rlb = NULL;
+	first_field = TRUE;
+
+	FOR(REQUEST_HANDLE req1
+		TRANSACTION_HANDLE s_trans)
+        RFR IN DB.RDB$RELATION_FIELDS CROSS
+        Y IN DB.RDB$FIELDS
+        WITH RFR.RDB$RELATION_NAME = source->rel_symbol->sym_string AND 
+        Y.RDB$FIELD_NAME = RFR.RDB$FIELD_SOURCE REDUCED TO Y.RDB$FIELD_NAME 
+        if (!Y.RDB$COMPUTED_BLR.NULL ||
+            ((strncmp("RDB$",RFR.RDB$FIELD_NAME,4)) &&
+             (!(strncmp("RDB$", Y.RDB$FIELD_NAME,4)))))
+            continue;
+
+        predefined = FALSE;
+
+		FOR(REQUEST_HANDLE req2 TRANSACTION_HANDLE t_trans)
+			A IN DB1.RDB$FIELDS WITH A.RDB$FIELD_NAME = Y.RDB$FIELD_NAME
+            if ((A.RDB$FIELD_TYPE != Y.RDB$FIELD_TYPE) ||
+                (A.RDB$FIELD_LENGTH != Y.RDB$FIELD_LENGTH) ||
+                (A.RDB$FIELD_SCALE.NULL != Y.RDB$FIELD_SCALE.NULL) ||
+                ((!Y.RDB$FIELD_SCALE.NULL) &&
+                 (A.RDB$FIELD_SCALE != Y.RDB$FIELD_SCALE)) ||
+                (A.RDB$FIELD_SUB_TYPE.NULL != Y.RDB$FIELD_SUB_TYPE.NULL)
+                || ((!Y.RDB$FIELD_SUB_TYPE.NULL)
+                    && (A.RDB$FIELD_SUB_TYPE != Y.RDB$FIELD_SUB_TYPE))) {
+
+                name = (TEXT *) ALLQ_malloc((SLONG) sizeof(Y.RDB$FIELD_NAME));
+				strcpy(name, Y.RDB$FIELD_NAME);
+				rollback_update(target->rel_database);
+				ERRQ_error(413, name, NULL, NULL, NULL, NULL);	/* conflicting previous definition */
+			}
+			else
+				  predefined = TRUE;
+		END_FOR
+		ON_ERROR
+			ERRQ_database_error(target->rel_database, gds__status);
+		END_ERROR;
+
+		if (predefined)
+			continue;
+
+		if (first_field) {
+			rlb = CHECK_RLB(rlb);
+			STUFF(gds__dyn_version_1);
+			STUFF(gds__dyn_begin);
+			first_field = FALSE;
+		}
+		STUFF(gds__dyn_def_global_fld);
+		STUFF_STRING(Y.RDB$FIELD_NAME);
+
+		STUFF(gds__dyn_fld_type);
+		STUFF_WORD(2);
+		STUFF_WORD(Y.RDB$FIELD_TYPE);
+
+		STUFF(gds__dyn_fld_length);
+		STUFF_WORD(2);
+		STUFF_WORD(Y.RDB$FIELD_LENGTH);
+
+		if (!Y.RDB$FIELD_SCALE.NULL) {
+			STUFF(gds__dyn_fld_scale);
+			STUFF_WORD(2);
+			STUFF_WORD(Y.RDB$FIELD_SCALE);
+		}
+
+		if (!Y.RDB$FIELD_SUB_TYPE.NULL) {
+			STUFF(gds__dyn_fld_sub_type);
+			STUFF_WORD(2);
+			STUFF_WORD(Y.RDB$FIELD_SUB_TYPE);
+		}
+
+		if (!Y.RDB$SEGMENT_LENGTH.NULL) {
+			STUFF(gds__dyn_fld_segment_length);
+			STUFF_WORD(2);
+			STUFF_WORD(Y.RDB$SEGMENT_LENGTH);
+		}
+
+		if (!Y.RDB$SYSTEM_FLAG.NULL) {
+			STUFF(gds__dyn_system_flag);
+			STUFF_WORD(2);
+			STUFF_WORD(Y.RDB$SYSTEM_FLAG);
+		}
+
+		if (!Y.RDB$QUERY_NAME.NULL) {
+			STUFF(gds__dyn_fld_query_name);
+			STUFF_STRING(Y.RDB$QUERY_NAME);
+		}
+
+		if (!Y.RDB$EDIT_STRING.NULL) {
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+
+			STUFF(gds__dyn_fld_edit_string);
+
+#else
+
+			STUFF(gds__dyn_fld_edit_string2);
+			STUFF_WORD(QLI_interp);
+
+#endif
+
+			STUFF_STRING(Y.RDB$EDIT_STRING);
+		}
+
+		if (!Y.RDB$MISSING_VALUE.NULL) {
+			STUFF(gds__dyn_fld_missing_value);
+			blob_copy(rlb, source, &Y.RDB$MISSING_VALUE);
+		}
+
+		if (!Y.RDB$DEFAULT_VALUE.NULL) {
+			STUFF(gds__dyn_fld_default_value);
+			blob_copy(rlb, source, &Y.RDB$DEFAULT_VALUE);
+		}
+
+		if (!Y.RDB$QUERY_HEADER.NULL) {
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+
+			STUFF(gds__dyn_fld_query_header);
+
+#else
+
+			STUFF(gds__dyn_fld_query_header2);
+			STUFF_WORD(QLI_interp);
+
+#endif
+			blob_copy(rlb, source, &Y.RDB$QUERY_HEADER);
+		}
+
+		if (!Y.RDB$DESCRIPTION.NULL) {
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+
+			STUFF(gds__dyn_description);
+
+#else
+
+			STUFF(gds__dyn_description2);
+			STUFF_WORD(QLI_interp);
+
+#endif
+
+			blob_copy(rlb, source, &Y.RDB$DESCRIPTION);
+		}
+
+		if (!Y.RDB$VALIDATION_BLR.NULL) {
+			STUFF(gds__dyn_fld_validation_blr);
+			blob_copy(rlb, source, &Y.RDB$VALIDATION_BLR);
+		}
+
+		if (!Y.RDB$VALIDATION_SOURCE.NULL) {
+#if (! (defined JPN_SJIS || defined JPN_EUC) )
+
+			STUFF(gds__dyn_fld_validation_source);
+
+#else
+
+			STUFF(gds__dyn_fld_validation_source2);
+			STUFF_WORD(QLI_interp);
+
+#endif
+
+			blob_copy(rlb, source, &Y.RDB$VALIDATION_SOURCE);
+		}
+
+		if ((target->rel_database->dbb_capabilities & DBB_cap_dimensions) &&
+			(source->rel_database->dbb_capabilities & DBB_cap_dimensions)) {
+			first_dimension = TRUE;
+			FOR(REQUEST_HANDLE req3 TRANSACTION_HANDLE s_trans)
+				F IN DB.RDB$FIELDS CROSS
+					D IN DB.RDB$FIELD_DIMENSIONS
+					WITH F.RDB$FIELD_NAME = D.RDB$FIELD_NAME AND
+					F.RDB$FIELD_NAME = Y.RDB$FIELD_NAME 
+
+                if (first_dimension) {
+					first_dimension = FALSE;
+					STUFF(gds__dyn_fld_dimensions);
+					STUFF_WORD(2);
+					STUFF_WORD(F.RDB$DIMENSIONS);
+				} 
+
+                STUFF(gds__dyn_def_dimension);
+				STUFF_WORD(2);
+				STUFF_WORD(D.RDB$DIMENSION);
+
+				if (!D.RDB$LOWER_BOUND.NULL) {
+					STUFF(gds__dyn_dim_lower);
+					STUFF_WORD(2);
+					STUFF_WORD(D.RDB$LOWER_BOUND);
+				}
+
+				if (!D.RDB$UPPER_BOUND.NULL) {
+					STUFF(gds__dyn_dim_upper);
+					STUFF_WORD(2);
+					STUFF_WORD(D.RDB$UPPER_BOUND);
+				}
+				STUFF(gds__dyn_end);
+			END_FOR
+			ON_ERROR
+				if (target->rel_database->dbb_meta_trans)
+					rollback_update(target->rel_database);
+				rollback_update(source->rel_database->dbb_meta_trans);
+				ERRQ_database_error(source->rel_database, gds__status);
+			END_ERROR;
+		}
+		STUFF(gds__dyn_end);
+	END_FOR
+	ON_ERROR
+		rollback_update(source->rel_database);
+		if (target->rel_database->dbb_meta_trans)
+			rollback_update(target->rel_database);
+		ERRQ_database_error(source->rel_database, gds__status);
+	END_ERROR;
+
+	if (rlb) {
+		STUFF(gds__dyn_end);
+		STUFF(gds__dyn_eoc);
+		execute_dynamic_ddl(target->rel_database, rlb);
+	}
+
+	if (req1)
+		if (gds__release_request(gds__status, GDS_REF(req1)))
+			ERRQ_database_error(source->rel_database, gds__status);
+	if (req2)
+		if (gds__release_request(gds__status, GDS_REF(req2)))
+			ERRQ_database_error(target->rel_database, gds__status);
+	if (req3)
+		if (gds__release_request(gds__status, GDS_REF(req3)))
+			ERRQ_database_error(source->rel_database, gds__status);
+	return TRUE;
+}
+
+
+static void define_global_field( DBB database, FLD field, SYM name)
+{
+/**************************************
+ *
+ *	d e f i n e _ g l o b a l _ f i e l d 
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	Define a global field if we've got enough
+ *	information.
+ *
+ **************************************/
+	SYM symbol;
+
+
+	if (!field->fld_dtype) {
+		rollback_update(database);
+		ERRQ_print_error(256, name->sym_string, NULL, NULL, NULL, NULL);	/* Msg256 No datatype specified for field %s */
+	}
+	STORE(REQUEST_HANDLE database->dbb_requests[REQ_store_field])
+		X IN DB.RDB$FIELDS 
+        strcpy(X.RDB$FIELD_NAME, name->sym_string);
+		X.RDB$FIELD_TYPE = blr_dtypes[field->fld_dtype];
+		X.RDB$FIELD_SCALE = field->fld_scale;
+		X.RDB$FIELD_LENGTH = (field->fld_dtype == dtype_varying) ?
+			field->fld_length - sizeof(SSHORT) : field->fld_length;
+		if (!field->fld_sub_type_missing) {
+			X.RDB$FIELD_SUB_TYPE.NULL = FALSE;
+			X.RDB$FIELD_SUB_TYPE = field->fld_sub_type;
+		}
+		else
+			X.RDB$FIELD_SUB_TYPE.NULL = TRUE;
+		if (symbol = field->fld_query_name) {
+			X.RDB$QUERY_NAME.NULL = FALSE;
+			strcpy(X.RDB$QUERY_NAME, symbol->sym_string);
+		}
+		else
+			X.RDB$QUERY_NAME.NULL = TRUE;
+		if (field->fld_edit_string) {
+			X.RDB$EDIT_STRING.NULL = FALSE;
+			strcpy(X.RDB$EDIT_STRING, field->fld_edit_string);
+		}
+		else
+			X.RDB$EDIT_STRING.NULL = TRUE;
+	END_STORE
+	ON_ERROR
+		rollback_update(database);
+		ERRQ_database_error(database, gds__status);
+	END_ERROR;
+}
+
+
+static void delete_fields( REL relation)
+{
+/**************************************
+ *
+ *	d e l e t e _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete field definitions.
+ *
+ **************************************/
+	FLD field;
+
+	while (field = relation->rel_fields) {
+		relation->rel_fields = field->fld_next;
+		ALL_release(field->fld_name);
+		if (field->fld_query_name)
+			ALL_release(field->fld_query_name);
+		ALL_release(field);
+	}
+
+	relation->rel_flags &= ~REL_fields;
+}
+
+
+static STATUS detach( STATUS * status_vector, DBB dbb)
+{
+/**************************************
+ *
+ *	d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shut down a database.  Return the status of the
+ *	first failing call, if any.
+ *
+ **************************************/
+	STATUS *status, alt_vector[20];
+
+	if (!dbb->dbb_handle)
+		return SUCCESS;
+
+	status = status_vector;
+
+	if (dbb->dbb_transaction)
+		if (gds__commit_transaction(GDS_VAL(status),
+									GDS_REF(dbb->dbb_transaction)))
+				status = alt_vector;
+
+	if (dbb->dbb_proc_trans && (dbb->dbb_capabilities & DBB_cap_multi_trans))
+		if (gds__commit_transaction(GDS_VAL(status),
+									GDS_REF(dbb->dbb_proc_trans)))
+				status = alt_vector;
+
+	if (dbb->dbb_meta_trans && (dbb->dbb_capabilities & DBB_cap_multi_trans))
+		if (gds__commit_transaction(GDS_VAL(status),
+									GDS_REF(dbb->dbb_meta_trans)))
+				status = alt_vector;
+
+	gds__detach_database(GDS_VAL(status), GDS_REF(dbb->dbb_handle));
+
+	return status_vector[1];
+}
+
+
+static int execute_dynamic_ddl( DBB database, RLB rlb)
+{
+/**************************************
+ *
+ *	e x e c u t e _ d y n a m i c _ d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a ddl command, for better or for worse.
+ *
+ **************************************/
+	USHORT length;
+
+	length = (UCHAR *) rlb->rlb_data - (UCHAR *) rlb->rlb_base;
+
+	if (QLI_blr)
+		PRETTY_print_dyn(rlb->rlb_base, (FPTR_INT) ib_printf, "%4d %s\n", 0);
+
+	if (gds__ddl(gds__status,
+				 GDS_REF(database->dbb_handle),
+				 GDS_REF(database->dbb_meta_trans),
+				 length, GDS_VAL(rlb->rlb_base))) {
+		rollback_update(database);
+		ERRQ_database_error(database, gds__status);
+	}
+
+	RELEASE_RLB;
+
+	return SUCCESS;
+}
+
+
+static int field_length( USHORT dtype, USHORT length)
+{
+/**************************************
+ *
+ *	f i e l d _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return implementation specific length for field.
+ *
+ **************************************/
+
+	switch (dtype) {
+	case dtype_short:
+		return sizeof(SSHORT);
+	case dtype_long:
+		return sizeof(SLONG);
+	case dtype_real:
+		return sizeof(float);
+	case dtype_double:
+		return sizeof(double);
+
+	case dtype_sql_time:
+	case dtype_sql_date:
+		return sizeof(SLONG);
+
+	case dtype_timestamp:
+	case dtype_blob:
+	case dtype_quad:
+		return sizeof(GDS__QUAD);
+	}
+
+	return length;
+}
+
+
+static void get_database_type( DBB new_dbb)
+{
+/**************************************
+ *
+ *	g e t _ d a t a b a s e _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Ask what type of database this is. 
+ *
+ **************************************/
+	STATUS status_vector[20];
+	int count;
+	USHORT l;
+	UCHAR item, buffer[1024], *p, *q;
+
+	gds__database_info(status_vector,
+					   GDS_REF(new_dbb->dbb_handle),
+					   sizeof(db_info), db_info, sizeof(buffer), buffer);
+
+	if (status_vector[1])
+		ERRQ_database_error(new_dbb, gds__status);
+
+	p = buffer;
+
+	while (*p != gds__info_end && p < buffer + sizeof(buffer)) {
+		item = *p++;
+		l = gds__vax_integer(p, 2);
+		p += 2;
+		switch (item) {
+		case gds__info_implementation:
+			q = p;
+			count = *q++;
+			while (count--) {
+				new_dbb->dbb_type = *q++;
+				if (*q++ == gds__info_db_class_access)
+					break;
+			}
+			break;
+
+		default:
+			ERRQ_error(257, NULL, NULL, NULL, NULL, NULL);	/* Msg257 database info call failed */
+		}
+		p += l;
+	}
+}
+
+
+static void get_log_names(
+						  DBB dbb,
+						  SCHAR * db_name,
+						  LLS * log_stack,
+						  SCHAR * cur_log,
+						  SLONG part_offset, SSHORT force, SSHORT skip_delete)
+{
+/**************************************
+ *
+ *	g e t _ l o g _ n a m e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk through list of log files and add to link list.
+ *
+ **************************************/
+	SCHAR next_log[512];
+	SCHAR *cl, *nl;
+	int log_count, ret_val;
+	SSHORT not_archived;
+	SLONG last_log_flag, next_offset;
+	SLONG log_seqno, log_length;
+	SSHORT loop;
+	STR string;
+
+	loop = 0;
+
+/* loop up to 10 times to allow the file to be archived */
+
+	while (TRUE) {
+		loop++;
+		if (WALF_get_linked_logs_info
+			(gds__status, db_name, cur_log, part_offset, &log_count, next_log,
+			 &next_offset, &last_log_flag, &not_archived) != SUCCESS)
+			ERRQ_database_error(dbb, gds__status);
+
+		if ((!not_archived) || force)
+			break;
+
+		if (not_archived && skip_delete) {
+			*log_stack = (LLS) 0;
+			return;
+		}
+
+		if (loop >= 10)
+			ERRQ_print_error(431, dbb->dbb_filename, NULL, NULL, NULL, NULL);
+	}
+
+	if (log_count) {
+		string = (STR) ALLOCDV(type_str, strlen(next_log));
+		LLS_PUSH(string, log_stack);
+		strcpy(string->str_data, next_log);
+	}
+	else {
+		string = (STR) ALLOCDV(type_str, strlen(cur_log));
+		LLS_PUSH(string, log_stack);
+		strcpy(string->str_data, cur_log);
+	}
+
+	cl = next_log;
+	nl = cur_log;
+	part_offset = next_offset;
+
+	while (log_count) {
+		ret_val = WALF_get_next_log_info(gds__status,
+										 db_name,
+										 cl, part_offset,
+										 nl, &next_offset,
+										 &log_seqno, &log_length,
+										 &last_log_flag, 1);
+
+		if (ret_val == FAILURE)
+			ERRQ_database_error(dbb, gds__status);
+
+		if (ret_val < 0)
+			break;
+
+		string = (STR) ALLOCDV(type_str, strlen(nl));
+		LLS_PUSH(string, log_stack);
+		strcpy(string->str_data, nl);
+
+		/* switch files */
+
+		if (cl == next_log) {
+			cl = cur_log;
+			nl = next_log;
+		}
+		else {
+			cl = next_log;
+			nl = cur_log;
+		}
+		part_offset = next_offset;
+	}
+}
+
+
+static void get_log_names_serial( LLS * log_stack)
+{
+/**************************************
+ *
+ *	g e t _ l o g _ n a m e s _ s e r i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk through list of serial log files and add to link list.
+ *
+ **************************************/
+	SCHAR next_log[512];
+	STR string;
+
+/* 
+ * for round robin log files, some of the log files may not have been used
+ * when the database is dropped or log is dropped. Add them to the list
+ */
+
+	FOR L IN DB.RDB$LOG_FILES
+		if (L.RDB$FILE_FLAGS & LOG_serial)
+			continue;
+		ISC_expand_filename(L.RDB$FILE_NAME, 0, next_log);
+		string = (STR) ALLOCDV(type_str, strlen(next_log));
+		LLS_PUSH(string, log_stack);
+		strcpy(string->str_data, next_log);
+	END_FOR
+	ON_ERROR
+	END_ERROR;
+}
+
+
+static TEXT *get_query_header( DBB database, SLONG blob_id[2])
+{
+/**************************************
+ *
+ *	g e t _ q u e r y _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a query header for a field.
+ *
+ **************************************/
+	int *blob;
+	STATUS status, status_vector[20];
+	USHORT length;
+	TEXT header[1024], buffer[1024], *p, *q;
+#if (defined JPN_EUC || defined JPN_SJIS)
+	USHORT bpb_length;
+	UCHAR bpb2[20], *bpb, *p2;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+	blob = NULL;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+	p2 = bpb2;
+	*p2++ = gds__bpb_version1;
+	*p2++ = gds__bpb_target_interp;
+	*p2++ = 2;
+	*p2++ = QLI_interp;
+	*p2++ = QLI_interp >> 8;
+	bpb_length = p2 - bpb2;
+	bpb = bpb2;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+	if (gds__open_blob2(status_vector,
+						GDS_REF(database->dbb_handle),
+						GDS_REF(gds__trans),
+						GDS_REF(blob), GDS_VAL(blob_id), bpb_length, bpb))
+#else
+	if (gds__open_blob(status_vector,
+					   GDS_REF(database->dbb_handle),
+					   GDS_REF(gds__trans), GDS_REF(blob), GDS_VAL(blob_id)))
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+		ERRQ_database_error(database, status_vector);
+
+	p = header;
+
+	for (;;) {
+		status = gds__get_segment(status_vector,
+								  GDS_REF(blob),
+								  GDS_REF(length), sizeof(buffer), buffer);
+		if (status && status != gds__segment)
+			break;
+		if (length && buffer[length - 1] == '\n')
+			--length;
+		buffer[length] = 0;
+		q = buffer;
+		if (*q == '"')
+			do
+				*p++ = *q++;
+			while (*q);
+		else {
+			*p++ = '"';
+			while (*q)
+				*p++ = *q++;
+			*p++ = '"';
+		}
+	}
+
+	if (gds__close_blob(status_vector, GDS_REF(blob)))
+		ERRQ_database_error(database, gds__status);
+
+	*p = 0;
+	if (!strcmp(header, "\" \"")) {
+		header[0] = '-';
+		header[1] = 0;
+		p = header + 1;
+	}
+
+	if (length = p - header)
+		return make_string(header, length);
+
+	return NULL;
+}
+
+
+static void install( DBB old_dbb)
+{
+/**************************************
+ *
+ *	i n s t a l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Install a database.  Scan relations, etc., make up relation
+ *	blocks, etc, and copy the database block to someplace more
+ *	permanent.
+ *
+ **************************************/
+	DBB new_dbb;
+	REL relation;
+	NAM name;
+	SYM symbol, symbol2;
+	SLONG *request, *request2;
+	SSHORT l;
+	FUN function;
+	TEXT *p, *q;
+
+/* Copy the database block to one out of the permanent pool */
+
+	l = old_dbb->dbb_filename_length;
+	new_dbb = (DBB) ALLOCPV(type_dbb, l);
+	new_dbb->dbb_filename_length = l;
+	p = new_dbb->dbb_filename;
+	q = old_dbb->dbb_filename;
+	do
+		*p++ = *q++;
+	while (--l);
+	DB = new_dbb->dbb_handle = old_dbb->dbb_handle;
+	new_dbb->dbb_capabilities = old_dbb->dbb_capabilities;
+
+	new_dbb->dbb_next = QLI_databases;
+	QLI_databases = new_dbb;
+
+/* If a name was given, make up a symbol for the database. */
+
+	if (name = (NAM) old_dbb->dbb_symbol) {
+		new_dbb->dbb_symbol = symbol =
+			make_symbol(name->nam_string, name->nam_length);
+		symbol->sym_type = SYM_database;
+		symbol->sym_object = (BLK) new_dbb;
+		HSH_insert(symbol);
+	}
+
+	gds__trans = MET_transaction(nod_start_trans, new_dbb);
+
+/* Find out whose database this is so later we don't ask Rdb/VMS
+   or its pals to do any unnatural acts.  While we're at it get
+   general capabilities */
+
+	get_database_type(new_dbb);
+	set_capabilities(new_dbb);
+
+/* Get all relations in database.  For each relation make up a
+   relation block, make up a symbol block, and insert the symbol 
+   into the hash table. */
+
+	request = NULL;
+
+	FOR(REQUEST_HANDLE request) X IN DB.RDB$RELATIONS SORTED BY DESCENDING
+		X.RDB$RELATION_NAME relation = (REL) ALLOCP(type_rel);
+
+		relation->rel_next = new_dbb->dbb_relations;
+		new_dbb->dbb_relations = relation;
+		relation->rel_database = new_dbb;
+		relation->rel_id = X.RDB$RELATION_ID;
+		symbol = make_symbol(X.RDB$RELATION_NAME, sizeof(X.RDB$RELATION_NAME));
+		symbol->sym_type = SYM_relation;
+		symbol->sym_object = (BLK) relation;
+		relation->rel_symbol = symbol;
+		HSH_insert(symbol);
+		if (strcmp(symbol->sym_string, "QLI$PROCEDURES") == 0)
+			new_dbb->dbb_flags |= DBB_procedures;
+		if (relation->rel_system_flag = X.RDB$SYSTEM_FLAG)
+			relation->rel_flags |= REL_system;
+		if (!X.RDB$VIEW_BLR.NULL)
+			relation->rel_flags |= REL_view;
+	END_FOR
+	ON_ERROR
+		ERRQ_database_error(new_dbb, gds__status);
+	END_ERROR;
+
+	if (request)
+		if (gds__release_request(gds__status, GDS_REF(request)))
+			ERRQ_database_error(new_dbb, gds__status);
+
+/* Pick up functions, if appropriate */
+
+	if (new_dbb->dbb_capabilities & DBB_cap_functions) {
+		request2 = NULL;
+		FOR(REQUEST_HANDLE request) X IN DB.RDB$FUNCTIONS
+			if (!(symbol = make_symbol(X.RDB$FUNCTION_NAME, sizeof(X.RDB$FUNCTION_NAME)))) 
+                continue;
+			function = (FUN) ALLOCPV(type_fun, 0);
+			function->fun_next = new_dbb->dbb_functions;
+			new_dbb->dbb_functions = function;
+			function->fun_symbol = symbol;
+			function->fun_database = new_dbb;
+			FOR(REQUEST_HANDLE request2) Y IN DB.RDB$FUNCTION_ARGUMENTS WITH
+				Y.RDB$FUNCTION_NAME EQ X.RDB$FUNCTION_NAME AND
+					Y.RDB$ARGUMENT_POSITION EQ X.RDB$RETURN_ARGUMENT
+					function->fun_return.dsc_dtype = MET_get_datatype(Y.RDB$FIELD_TYPE);
+				function->fun_return.dsc_length =
+					field_length(function->fun_return.dsc_dtype,
+								 Y.RDB$FIELD_LENGTH);
+				function->fun_return.dsc_scale = Y.RDB$FIELD_SCALE;
+			END_FOR
+			ON_ERROR
+				ERRQ_database_error(new_dbb, gds__status);
+			END_ERROR;
+			if (!function->fun_return.dsc_dtype) {
+				function->fun_return.dsc_dtype = dtype_text;
+				function->fun_return.dsc_length = 20;
+			}
+			symbol->sym_type = SYM_function;
+			symbol->sym_object = (BLK) function;
+			HSH_insert(symbol);
+
+			/* Insert another symbol if there is a function query name */
+
+			if (symbol2 =
+				make_symbol(X.RDB$QUERY_NAME, sizeof(X.RDB$QUERY_NAME))) {
+				function->fun_query_name = symbol2;
+				symbol2->sym_type = SYM_function;
+				symbol2->sym_object = (BLK) function;
+				HSH_insert(symbol2);
+			}
+		END_FOR
+		ON_ERROR
+			ERRQ_database_error(new_dbb, gds__status);
+		END_ERROR;
+		if (request)
+			if (gds__release_request(gds__status, GDS_REF(request)))
+				ERRQ_database_error(new_dbb, gds__status);
+		if (request2)
+			if (gds__release_request(gds__status, GDS_REF(request2)))
+				ERRQ_database_error(new_dbb, gds__status);
+	}
+}
+
+
+static SYN make_node( NOD_T type, USHORT count)
+{
+/**************************************
+ *
+ *	m a k e _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a syntax node.
+ *
+ **************************************/
+	SYN node;
+
+	node = (SYN) ALLOCPV(type_syn, count);
+	node->syn_count = count;
+	node->syn_type = type;
+
+	return node;
+}
+
+
+static TEXT *make_string( TEXT * string, SSHORT length)
+{
+/**************************************
+ *
+ *	m a k e _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make up a permanent string from a large string.  Chop off
+ *	trailing blanks.  If there's nothing left, return NULL.
+ *
+ **************************************/
+	STR str;
+	TEXT *p;
+
+	string[length] = 0;
+
+	if (!(length = truncate_string(string)))
+		return NULL;
+
+	str = (STR) ALLOCPV(type_str, length + 1);
+	p = str->str_data;
+	do
+		*p++ = *string++;
+	while (--length);
+	*p = 0;
+
+	return str->str_data;
+}
+
+
+static SYM make_symbol( TEXT * string, SSHORT length)
+{
+/**************************************
+ *
+ *	m a k e _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make up a symbol from a string.  If the string is all blanks, 
+ *	don't make up a symbol.  Phooey.
+ *
+ **************************************/
+	SYM symbol;
+	TEXT *p, *end;;
+
+	if (!(length = truncate_string(string)))
+		return NULL;
+
+
+	symbol = (SYM) ALLOCPV(type_sym, length);
+	symbol->sym_type = SYM_relation;
+	symbol->sym_length = length;
+	symbol->sym_string = p = symbol->sym_name;
+	do
+		*p++ = *string++;
+	while (--length);
+
+	return symbol;
+}
+
+
+static CON missing_value( SLONG * blob_id, SYM symbol)
+{
+/**************************************
+ *
+ *	m i s s i n g _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a missing value into a constant
+ *	block for later reference.  
+ *
+ **************************************/
+	SYN element;
+
+	element = parse_blr_blob(blob_id, symbol);
+	if (element)
+		return ((CON) element->syn_arg[0]);
+	else
+		return NULL;
+}
+
+
+static SYN parse_blr( UCHAR ** ptr, SYM symbol)
+{
+/**************************************
+ *
+ *	p a r s e _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a BLR expression.
+ *
+ **************************************/
+	SYN node, *arg;
+	CON constant;
+	NOD_T operator;
+	NAM name;
+	UCHAR *p, *blr;
+	SSHORT args, dtype, scale, length, l, op;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+	USHORT length_specified_in_blr;
+	USHORT scale_specified_in_blr;
+#endif
+
+
+	blr = *ptr;
+	args = 2;
+	node = NULL;
+
+	switch (op = BLR_BYTE) {
+	case blr_any:
+	case blr_unique:
+	case blr_eoc:
+		return NULL;
+
+	case blr_eql:
+		operator = nod_eql;
+		break;
+	case blr_neq:
+		operator = nod_neq;
+		break;
+	case blr_gtr:
+		operator = nod_gtr;
+		break;
+	case blr_geq:
+		operator = nod_geq;
+		break;
+	case blr_lss:
+		operator = nod_lss;
+		break;
+	case blr_leq:
+		operator = nod_leq;
+		break;
+	case blr_containing:
+		operator = nod_containing;
+		break;
+	case blr_starting:
+		operator = nod_starts;
+		break;
+	case blr_matching:
+		operator = nod_matches;
+		break;
+	case blr_matching2:
+		operator = nod_sleuth;
+		break;
+	case blr_like:
+		operator = nod_like;
+		break;
+	case blr_and:
+		operator = nod_and;
+		break;
+	case blr_or:
+		operator = nod_or;
+		break;
+	case blr_add:
+		operator = nod_add;
+		break;
+	case blr_subtract:
+		operator = nod_subtract;
+		break;
+	case blr_multiply:
+		operator = nod_multiply;
+		break;
+	case blr_divide:
+		operator = nod_divide;
+		break;
+	case blr_upcase:
+		operator = nod_upcase;
+		break;
+	case blr_null:
+		operator = nod_null;
+		break;
+
+	case blr_between:
+		operator = nod_between;
+		args = 3;
+		break;
+
+	case blr_not:
+		operator = nod_not;
+		args = 1;
+		break;
+
+	case blr_negate:
+		operator = nod_negate;
+		args = 1;
+		break;
+
+	case blr_missing:
+		operator = nod_missing;
+		args = 1;
+		break;
+
+	case blr_fid:
+		BLR_BYTE;
+		blr += 2;
+		node = make_node(nod_field, 1);
+		name = (NAM) ALLOCPV(type_nam, symbol->sym_length);
+		node->syn_arg[0] = (SYN) name;
+		name->nam_length = symbol->sym_length;
+		strcpy(name->nam_string, symbol->sym_string);
+		break;
+
+	case blr_field:
+		BLR_BYTE;
+		length = BLR_BYTE;
+		node = make_node(nod_field, 1);
+		name = (NAM) ALLOCPV(type_nam, length);
+		node->syn_arg[0] = (SYN) name;
+		name->nam_length = length;
+		p = (UCHAR *) name->nam_string;
+		do
+			*p++ = BLR_BYTE;
+		while (--length);
+		break;
+
+	case blr_function:
+		length = BLR_BYTE;
+		node = make_node(nod_function, s_fun_count);
+		node->syn_arg[s_fun_function] = (SYN) HSH_lookup(blr, length);
+		blr += length;
+		args = BLR_BYTE;
+		node->syn_arg[s_fun_args] = make_node(nod_list, args);
+		arg = node->syn_arg[s_fun_args]->syn_arg;
+		while (--args >= 0) {
+			if (!(*arg++ = parse_blr(&blr, symbol)))
+				return NULL;
+		}
+		break;
+
+	case blr_literal:
+		scale = 0;
+		switch (BLR_BYTE) {
+		case blr_text:
+			dtype = dtype_text;
+			length = l = gds__vax_integer(blr, 2);
+#if (defined JPN_SJIS || defined JPN_EUC)
+			scale_specified_in_blr = gds__interp_eng_ascii;
+			scale = (UCHAR) (QLI_interp);
+#endif
+			blr += 2;
+			break;
+
+		case blr_text2:
+			dtype = dtype_text;
+#if !(defined JPN_SJIS || defined JPN_EUC)
+			scale = gds__vax_integer(blr, 2);
+			blr += 2;
+			length = l = gds__vax_integer(blr, 2);
+			blr += 2;
+#else
+			scale = (UCHAR) QLI_interp;
+			scale_specified_in_blr = gds__vax_integer(blr, 2);
+			blr += 2;
+			length_specified_in_blr = gds__vax_integer(blr, 2);
+			blr += 2;
+
+			if (QLI_interp == scale_specified_in_blr)
+				length = l = length_specified_in_blr;
+			else if (QLI_interp == gds__interp_jpn_euc &&
+					 scale_specified_in_blr == gds__interp_jpn_sjis) {
+				if (KANJI_euc_len(blr, length_specified_in_blr, &length)) {
+					ERRQ_print_error(258, (TEXT *) op, NULL, NULL, NULL,
+									 NULL);
+					/* Msg258 don't understand BLR operator %d */
+				}
+			}
+			else if (QLI_interp == gds__interp_jpn_sjis &&
+					 scale_specified_in_blr == gds__interp_jpn_euc) {
+				if (KANJI_sjis_len(blr, length_specified_in_blr, &length)) {
+					ERRQ_print_error(258, (TEXT *) op, NULL, NULL, NULL,
+									 NULL);
+					/* Msg258 don't understand BLR operator %d */
+				}
+			}
+			else {
+				ERRQ_print_error(258, (TEXT *) op, NULL, NULL, NULL, NULL);
+				/* Msg258 don't understand BLR operator %d */
+			}
+#endif
+			break;
+
+		case blr_varying:
+			dtype = dtype_varying;
+			length = l = gds__vax_integer(blr, 2) + sizeof(USHORT);
+			blr += 2;
+			break;
+
+		case blr_varying2:
+			dtype = dtype_varying;
+			scale = gds__vax_integer(blr, 2);
+			blr += 2;
+			length = l = gds__vax_integer(blr, 2) + sizeof(USHORT);
+			blr += 2;
+			break;
+
+		case blr_short:
+			dtype = dtype_short;
+			l = 2;
+			length = sizeof(SSHORT);
+			scale = (int) BLR_BYTE;
+			break;
+
+		case blr_long:
+			dtype = dtype_long;
+			length = sizeof(SLONG);
+			l = 4;
+			scale = (int) BLR_BYTE;
+			break;
+
+		case blr_quad:
+			dtype = dtype_quad;
+			l = 8;
+			length = sizeof(GDS__QUAD);
+			scale = (int) BLR_BYTE;
+			break;
+
+		case blr_timestamp:
+			dtype = dtype_timestamp;
+			l = 8;
+			length = sizeof(GDS__QUAD);
+			break;
+
+		case blr_sql_date:
+			dtype = dtype_sql_date;
+			l = 4;
+			length = sizeof(SLONG);
+			break;
+
+		case blr_sql_time:
+			dtype = dtype_sql_time;
+			l = 4;
+			length = sizeof(ULONG);
+			break;
+		}
+		constant = (CON) ALLOCPV(type_con, length);
+		constant->con_desc.dsc_dtype = dtype;
+		constant->con_desc.dsc_scale = scale;
+		constant->con_desc.dsc_length = length;
+		constant->con_desc.dsc_address = p = constant->con_data;
+		if (dtype == dtype_text)
+#if (!( defined JPN_SJIS || defined JPN_EUC) )
+			while (l--)
+				*p++ = BLR_BYTE;
+#else
+		{
+			if ((scale_specified_in_blr == gds__interp_eng_ascii) ||
+				(QLI_interp == scale_specified_in_blr)) {
+				while (l--)
+					*p++ = BLR_BYTE;
+			}
+
+			else if (QLI_interp == gds__interp_jpn_euc &&
+					 scale_specified_in_blr == gds__interp_jpn_sjis) {
+				if (KANJI_sjis2euc
+					(blr, length_specified_in_blr, p, length, &length)) {
+					ERRQ_print_error(258, (TEXT *) op, NULL, NULL, NULL,
+									 NULL);
+					/* Msg258 don't understand BLR operator %d */
+				}
+				constant->con_desc.dsc_length = length;
+				blr += length_specified_in_blr;
+			}
+
+			else if (QLI_interp == gds__interp_jpn_sjis &&
+					 scale_specified_in_blr == gds__interp_jpn_euc) {
+				if (KANJI_euc2sjis
+					(blr, length_specified_in_blr, p, length, &length)) {
+					ERRQ_print_error(258, (TEXT *) op, NULL, NULL, NULL,
+									 NULL);
+					/* Msg258 don't understand BLR operator %d */
+				}
+				constant->con_desc.dsc_length = length;
+				blr += length_specified_in_blr;
+			}
+			else {
+				ERRQ_print_error(258, (TEXT *) op, NULL, NULL, NULL, NULL);
+				/* Msg258 don't understand BLR operator %d */
+			}
+		}
+#endif
+		else if (dtype == dtype_short) {
+			*(SSHORT *) p = gds__vax_integer(blr, l);
+			blr += l;
+		}
+		else if (dtype == dtype_long) {
+			*(SLONG *) p = gds__vax_integer(blr, l);
+			blr += l;
+		}
+		node = make_node(nod_constant, 1);
+		node->syn_count = 0;
+		node->syn_arg[0] = (SYN) constant;
+		break;
+
+	default:
+		ERRQ_print_error(258, (TEXT *) op, NULL, NULL, NULL, NULL);	/* Msg258 don't understand BLR operator %d */
+	}
+
+	if (!node) {
+		node = make_node(operator, args);
+		arg = node->syn_arg;
+		while (--args >= 0)
+			if (!(*arg++ = parse_blr(&blr, symbol)))
+				return NULL;
+	}
+
+	*ptr = blr;
+
+	return node;
+}
+
+
+static SYN parse_blr_blob( SLONG * blob_id, SYM symbol)
+{
+/**************************************
+ *
+ *	p a r s e _ b l r _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Gobble up a BLR blob, if possible.  
+ *
+ **************************************/
+	int *handle;
+	STATUS status_vector[20];
+	SYN node;
+	USHORT length;
+	UCHAR buffer[1024], *ptr;
+
+	if (!blob_id[0] && !blob_id[1])
+		return NULL;
+
+	handle = NULL;
+
+	if (gds__open_blob(status_vector,
+					   GDS_REF(DB),
+					   GDS_REF(gds__trans),
+					   GDS_REF(handle), GDS_VAL(blob_id))) return NULL;
+
+	ptr = buffer;
+
+	for (;;) {
+		if (!(length = buffer + sizeof(buffer) - ptr))
+			break;
+		if (gds__get_segment(status_vector,
+							 GDS_REF(handle),
+							 GDS_REF(length), length, GDS_VAL(ptr))) break;
+		ptr += length;
+	}
+
+	if (gds__close_blob(status_vector, GDS_REF(handle)))
+		return NULL;
+
+	if (ptr == buffer)
+		return NULL;
+
+	ptr = buffer;
+
+	if (*ptr++ != blr_version4)
+		return NULL;
+
+	node = parse_blr(&ptr, symbol);
+
+	if (*ptr != blr_eoc)
+		return NULL;
+
+	return node;
+}
+
+
+static void purge_relation(REL relation)
+{
+/**************************************
+ *
+ *	p u r g e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Purge a relation out of internal data structures.
+ *
+ **************************************/
+	SYM symbol;
+	REL *ptr;
+	FLD field;
+	DBB database;
+
+	symbol = relation->rel_symbol;
+	database = relation->rel_database;
+	HSH_remove(symbol);
+
+	for (ptr = &database->dbb_relations; *ptr; ptr = &(*ptr)->rel_next) {
+		if (*ptr == relation) {
+			*ptr = relation->rel_next;
+			break;
+		}
+	}
+
+	while (field = relation->rel_fields) {
+		relation->rel_fields = field->fld_next;
+		ALLQ_release(field->fld_name);
+		if (symbol = field->fld_query_name) {
+			ALLQ_release(symbol);
+		}
+		ALLQ_release(field);
+	}
+
+	ALL_release(relation);
+}
+
+
+static void put_dyn_string( RLB rlb, TEXT * string)
+{
+/**************************************
+ *
+ *	p u t _ d y n _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a string to a dynamic DDL command block.
+ *
+ **************************************/
+
+	SSHORT l = strlen(string);
+
+	while ((SSHORT) (rlb->rlb_limit - rlb->rlb_data) < l) {
+		rlb = GEN_rlb_extend(rlb);
+	}
+
+	STUFF_WORD(l);
+
+	while (*string) {
+		STUFF(*string++);
+	}
+	CHECK_RLB(rlb);
+}
+
+
+static void rollback_update( DBB database)
+{
+/**************************************
+ *
+ *	 r o l l b a c k _ u p d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Roll back  a meta-data update.
+ *
+ **************************************/
+	STATUS alt_vector[20];
+
+	if (gds__trans == database->dbb_meta_trans &&
+		(database->dbb_capabilities & DBB_cap_multi_trans))
+		gds__rollback_transaction(alt_vector,
+								  GDS_REF(database->dbb_meta_trans));
+	/* Note: No message given if rollback fails */
+
+	gds__trans = NULL;
+}
+
+
+static void set_capabilities( DBB database)
+{
+/**************************************
+ *
+ *	s e t _ c a p a b i l i t i e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Probe the database to determine
+ *	what metadata capabilities it has.
+ *	The table, rfr_table, in the static
+ *	data declarations has the relation
+ *	and field names, together with the
+ *	capabilities bits.
+ *
+ **************************************/
+	ULONG *req;
+	STATUS status_vector[20];
+	RFR_TAB rel_field_table;
+
+	req = NULL;
+
+/* Look for desireable fields in system relations */
+
+	for (rel_field_table = rfr_table; rel_field_table->relation;
+		 rel_field_table++) {
+		FOR(REQUEST_HANDLE req) x IN DB.RDB$RELATION_FIELDS
+			WITH x.RDB$RELATION_NAME = rel_field_table->relation
+				AND x.RDB$FIELD_NAME = rel_field_table->field
+
+            database->dbb_capabilities |= rel_field_table->bit_mask;
+		END_FOR
+		ON_ERROR
+			ERRQ_database_error(database, gds__status);
+		END_ERROR;
+	}
+
+	if (req)
+		if (gds__release_request(gds__status, GDS_REF(req)))
+			ERRQ_database_error(database, gds__status);
+
+}
+
+
+static DBB setup_update( DBB database)
+{
+/**************************************
+ *
+ *	s e t u p _ u p d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ready to do a meta data update.
+ *	If no database was specified, use the
+ *	most recently readied one.  
+ *
+ **************************************/
+
+	if (!database)
+		database = QLI_databases;
+
+	MET_meta_transaction(database, TRUE);
+
+	return database;
+}
+
+
+static void sql_grant_revoke( SYN node, USHORT type)
+{
+/*****************************************************
+ *
+ *	s q l _ g r a n t _ r e v o k e
+ *
+ *****************************************************
+ *
+ *	Build a DYN string for a SQL GRANT or REVOKE statement
+ *
+ *****************************************************/
+	STATUS status_vector[20];
+	DBB database;
+	SYM symbol;
+	REL relation;
+	NAM *name, *end, *field, *end_field;
+	SYN names, fields;
+	USHORT privileges;
+	TEXT *relation_name;
+	USHORT fld_count;
+	RLB rlb;
+
+
+	privileges = (USHORT) node->syn_arg[s_grant_privileges];
+	relation = (REL) node->syn_arg[s_grant_relation];
+	relation->rel_database = database = setup_update(relation->rel_database);
+	relation_name = relation->rel_symbol->sym_string;
+
+	rlb = NULL;
+	rlb = CHECK_RLB(rlb);
+
+	STUFF(gds__dyn_version_1);
+	STUFF(gds__dyn_begin);
+
+/* For each user create a separate grant string */
+/*      For each specified field create a separate grant string */
+
+	names = node->syn_arg[s_grant_users];
+	fields = node->syn_arg[s_grant_fields];
+
+	for (name = (NAM *) names->syn_arg, end = name + names->syn_count;
+		 name < end; name++)
+		if (fields->syn_count) {
+			for (field = (NAM *) fields->syn_arg, end_field =
+				 field + fields->syn_count; field < end_field; field++)
+				stuff_priv(rlb, type, relation_name, privileges,
+						   (*name)->nam_string, (*field)->nam_string);
+		}
+		else
+			stuff_priv(rlb, type, relation_name, privileges,
+					   (*name)->nam_string, NULL_PTR);
+
+	STUFF(gds__dyn_end);
+	STUFF(gds__dyn_eoc);
+
+	execute_dynamic_ddl(database, rlb);
+	MET_meta_commit(database);
+}
+
+
+static int truncate_string( TEXT * string)
+{
+/**************************************
+ *
+ *	t r u n c a t e _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a blank filled string to
+ *	a null terminated string without
+ *	trailing blanks.  Because some
+ *	strings contain embedded blanks
+ *	(e.g. query headers & edit strings)
+ *	truncate from the back forward.
+ *	Return the number of characters found,
+ *	not including the terminating null.
+ *
+ **************************************/
+	TEXT *p;
+
+	for (p = string; *p; p++);
+
+	for (p--; (p >= string) && (*p == ' '); p--);
+
+	*++p = 0;
+
+	return (p - string);
+}
+
+
+static void stuff_priv(
+					   RLB rlb,
+					   USHORT type,
+					   TEXT * relation,
+					   USHORT privileges, TEXT * user, TEXT * field)
+{
+/**************************************
+ *
+ *	s t u f f _ p r i v
+ *
+ **************************************
+ *
+ * Functional description
+ *	Stuff a privilege for grant/revoke.
+ *
+ **************************************/
+	USHORT priv_count;
+
+	rlb = CHECK_RLB(rlb);
+	STUFF(type);
+
+/* Stuff privileges first */
+
+	priv_count = 0;
+	if (privileges & PRV_select)
+		priv_count++;
+	if (privileges & PRV_insert)
+		priv_count++;
+	if (privileges & PRV_delete)
+		priv_count++;
+	if (privileges & PRV_update)
+		priv_count++;
+
+	STUFF_WORD(priv_count);
+
+	if (privileges & PRV_select)
+		STUFF('S');
+
+	if (privileges & PRV_insert)
+		STUFF('I');
+
+	if (privileges & PRV_delete)
+		STUFF('D');
+
+	if (privileges & PRV_update)
+		STUFF('U');
+
+	STUFF(gds__dyn_rel_name);
+	STUFF_STRING(relation);
+
+	STUFF(gds__dyn_grant_user);
+	STUFF_STRING(user);
+
+	if (field) {
+		STUFF(gds__dyn_fld_name);
+		STUFF_STRING(field);
+	}
+
+	if (privileges & PRV_grant_option) {
+		STUFF(gds__dyn_grant_options);
+		STUFF_WORD(2);
+		STUFF_WORD(TRUE);
+	}
+
+	STUFF(gds__dyn_end);
+}
+
+
+static void wal_info(
+					 UCHAR * db_info_buffer,
+					 SLONG * log, SCHAR * cur_log, SLONG * part_offset)
+{
+/**************************************
+ *
+ *	w a l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Extract wal name and log offset
+ *
+ **************************************/
+	UCHAR item;
+	UCHAR *d, *p;
+	SLONG length;
+
+	p = db_info_buffer;
+	*log = 0;
+	*part_offset = 0;
+	cur_log[0] = 0;
+
+	while ((item = *p++) != gds__info_end) {
+		length = gds__vax_integer(p, 2);
+		p += 2;
+		switch (item) {
+		case gds__info_logfile:
+			*log = gds__vax_integer(p, length);
+			p += length;
+			break;
+
+		case gds__info_cur_logfile_name:
+			d = p;
+			p += length;
+			length = *d++;
+			memcpy(cur_log, d, length);
+			cur_log[length] = 0;
+			break;
+
+		case gds__info_cur_log_part_offset:
+			*part_offset = gds__vax_integer(p, length);
+			p += length;
+			break;
+
+		default:
+			;
+		}
+	}
+}
diff --git a/src/qli/meta_proto.h b/src/qli/meta_proto.h
new file mode 100644
index 0000000000..67b6e63d27
--- /dev/null
+++ b/src/qli/meta_proto.h
@@ -0,0 +1,55 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		meta_proto.h
+ *	DESCRIPTION:	Prototype header file for meta.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_META_PROTO_H_
+#define _QLI_META_PROTO_H_
+
+extern int	MET_declare (struct dbb *, struct fld *, struct nam *);
+extern void	MET_define_field (struct dbb *, struct fld *);
+extern void	MET_define_index (struct syn *);
+extern void	MET_define_relation (struct rel *, struct rel *);
+extern void	MET_define_sql_relation (struct rel *);
+extern void	MET_delete_database (struct dbb *);
+extern void	MET_delete_field (struct dbb *, struct nam *);
+extern void	MET_delete_index (struct dbb *, struct nam *);
+extern void	MET_delete_relation (struct rel *);
+extern int	MET_dimensions (struct dbb *, TEXT *);
+extern void	MET_fields (struct rel *);
+extern void	MET_finish (struct dbb *);
+extern int	MET_get_datatype (USHORT);
+extern void	MET_index_info (TEXT *, TEXT *, SCHAR *);
+extern void	MET_meta_commit (struct dbb *);
+extern void	MET_meta_rollback (struct dbb *);
+extern SLONG	*MET_meta_transaction (struct dbb *, int);
+extern void	MET_modify_field (struct dbb *, struct fld *);
+extern void	MET_modify_index (struct syn *);
+extern void	MET_modify_relation (struct rel *, struct fld *);
+extern void	MET_ready (struct syn *, USHORT);
+extern void	MET_shutdown (void);
+extern void	MET_sql_alter_table (struct rel *, struct fld *);
+extern void	MET_sql_cr_view (struct syn *);
+extern void	MET_sql_grant (struct syn *);
+extern void	MET_sql_revoke (struct syn *);
+extern SLONG	*MET_transaction (NOD_T, struct dbb *);
+
+#endif /* _QLI_META_PROTO_H_ */
diff --git a/src/qli/mov.cpp b/src/qli/mov.cpp
new file mode 100644
index 0000000000..9283094f9c
--- /dev/null
+++ b/src/qli/mov.cpp
@@ -0,0 +1,1812 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		mov.c
+ *	DESCRIPTION:	Data mover and converter and comparator, etc.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#ifndef PYXIS
+#include "../qli/dtr.h"
+#else
+#include "../pyxis/pyxis.h"
+#endif
+#include "../jrd/time.h"
+#include "../jrd/intl.h"
+#if (defined JPN_SJIS || defined JPN_EUC)
+#include "../jrd/kanji.h"
+#endif
+#ifndef PYXIS
+#include "../qli/err_proto.h"
+#endif
+#include "../jrd/gds_proto.h"
+
+#ifdef PYXIS
+#define MOVQ_compare		MOVP_compare
+#define MOVQ_date_to_double	MOVP_date_to_double
+#define MOVQ_decompose		MOVP_decompose
+#define MOVQ_double_to_date	MOVP_double_to_date
+#define MOVQ_fast		MOVP_fast
+#define MOVQ_get_double		MOVP_get_double
+#define MOVQ_get_long		MOVP_get_long
+#define MOVQ_get_string		MOVP_get_string
+#define MOVQ_move		MOVP_move
+#define MOVQ_terminate		MOVP_terminate
+#endif
+
+typedef struct vary {
+	USHORT vary_length;
+	TEXT vary_string[1];
+} VARY;
+
+#include "../qli/mov_proto.h"
+
+static void date_error(TEXT *, USHORT);
+static void timestamp_to_text(SLONG[2], DSC *);
+static void sql_time_to_text(ULONG[1], DSC *);
+static void sql_date_to_text(SLONG[1], DSC *);
+#ifndef PYXIS
+static void mover_error(int, USHORT, USHORT);
+#endif
+static void now_to_date(struct tm *, SLONG[2]);
+static void numeric_to_text(DSC *, DSC *);
+static void string_to_date(TEXT *, USHORT, SLONG[2]);
+static void string_to_time(TEXT *, USHORT, SLONG[2]);
+#ifndef PYXIS
+static TEXT *type_name(USHORT);
+#endif
+
+
+#define LETTER(c)	(c >= 'A' && c <= 'Z')
+#define DIGIT(c)	(c >= '0' && c <= '9')
+#define TODAY		"TODAY"
+#define NOW		"NOW"
+#define TOMORROW	"TOMORROW"
+#define YESTERDAY	"YESTERDAY"
+
+#define PRECISION	10000
+
+static TEXT *months[] = {
+	"JANUARY",
+	"FEBRUARY",
+	"MARCH",
+	"APRIL",
+	"MAY",
+	"JUNE",
+	"JULY",
+	"AUGUST",
+	"SEPTEMBER",
+	"OCTOBER",
+	"NOVEMBER",
+	"DECEMBER",
+	0
+};
+
+typedef struct dtypes_t {
+	USHORT type;
+	TEXT *description;
+} *DTYPES;
+
+static struct dtypes_t dtypes_table[] = {
+	dtype_null, "NULL",
+	dtype_text, "character string",
+	dtype_cstring, "character string",
+	dtype_varying, "varying string",
+	dtype_packed, "packed decimal",
+	dtype_byte, "byte integer",
+	dtype_short, "short integer",
+	dtype_long, "long integer",
+	dtype_quad, "quadword integer",
+	dtype_real, "single precision floating",
+	dtype_double, "double precision floating",
+	dtype_d_float, "double precision floating",
+	dtype_timestamp, "date",
+	dtype_sql_date, "SQL date",
+	dtype_sql_time, "SQL time",
+	dtype_blob, "blob",
+	0, 0
+};
+
+
+#ifndef PYXIS
+int MOVQ_compare( DSC * arg1, DSC * arg2)
+{
+/**************************************
+ *
+ *	M O V Q _ c o m p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compare two descriptors.  Return (-1, 0, 1) if a<b, a=b, or a>b.
+ *
+ **************************************/
+	DSC desc;
+	UCHAR *p1, *p2;
+	SSHORT length, length2, fill;
+	SLONG date[2];
+
+/* Handle the simple (matched) ones first */
+
+	if (arg1->dsc_dtype == arg2->dsc_dtype &&
+		arg1->dsc_scale == arg2->dsc_scale) {
+		p1 = arg1->dsc_address;
+		p2 = arg2->dsc_address;
+
+		switch (arg1->dsc_dtype) {
+		case dtype_short:
+			if (*(SSHORT *) p1 == *(SSHORT *) p2)
+				return 0;
+			if (*(SSHORT *) p1 > *(SSHORT *) p2)
+				return 1;
+			return -1;
+
+		case dtype_long:
+		case dtype_sql_date:
+		case dtype_sql_time:
+			if (*(SLONG *) p1 == *(SLONG *) p2)
+				return 0;
+			if (*(SLONG *) p1 > *(SLONG *) p2)
+				return 1;
+			return -1;
+
+		case dtype_timestamp:
+		case dtype_quad:
+			if (((SLONG *) p1)[0] < ((SLONG *) p2)[0])
+				return -1;
+			if (((SLONG *) p1)[0] > ((SLONG *) p2)[0])
+				return 1;
+			if (((ULONG *) p1)[1] < ((ULONG *) p2)[1])
+				return -1;
+			if (((ULONG *) p1)[1] > ((ULONG *) p2)[1])
+				return 1;
+			return 0;
+
+		case dtype_real:
+			if (*(float *) p1 == *(float *) p2)
+				return 0;
+			if (*(float *) p1 > *(float *) p2)
+				return 1;
+			return -1;
+
+		case dtype_double:
+			if (*(double *) p1 == *(double *) p2)
+				return 0;
+			if (*(double *) p1 > *(double *) p2)
+				return 1;
+			return -1;
+
+		case dtype_text:
+			if (arg1->dsc_length >= arg2->dsc_length) {
+				if (length = arg2->dsc_length)
+					do
+						if (*p1++ != *p2++)
+							if (p1[-1] > p2[-1])
+								return 1;
+							else
+								return -1;
+					while (--length);
+				if (length = arg1->dsc_length - arg2->dsc_length)
+					do
+						if (*p1++ != ' ')
+							if (p1[-1] > ' ')
+								return 1;
+							else
+								return -1;
+					while (--length);
+				return 0;
+			}
+			if (length = arg1->dsc_length)
+				do
+					if (*p1++ != *p2++)
+						if (p1[-1] > p2[-1])
+							return 1;
+						else
+							return -1;
+				while (--length);
+			length = arg2->dsc_length - arg1->dsc_length;
+			do
+				if (*p2++ != ' ')
+					if (' ' > p2[-1])
+						return 1;
+					else
+						return -1;
+			while (--length);
+			return 0;
+		}
+	}
+
+/* Handle mixed string comparisons */
+
+	if (arg1->dsc_dtype <= dtype_varying && arg2->dsc_dtype <= dtype_varying) {
+		length = MOVQ_get_string(arg1, &p1, 0, 0);
+		length2 = MOVQ_get_string(arg2, &p2, 0, 0);
+		fill = length - length2;
+		if (length >= length2) {
+			if (length2)
+				do
+					if (*p1++ != *p2++)
+						if (p1[-1] > p2[-1])
+							return 1;
+						else
+							return -1;
+				while (--length2);
+			if (fill > 0)
+				do
+					if (*p1++ != ' ')
+						if (p1[-1] > ' ')
+							return 1;
+						else
+							return -1;
+				while (--fill);
+			return 0;
+		}
+		if (length)
+			do
+				if (*p1++ != *p2++)
+					if (p1[-1] > p2[-1])
+						return 1;
+					else
+						return -1;
+			while (--length);
+		do
+			if (*p2++ != ' ')
+				if (' ' > p2[-1])
+					return 1;
+				else
+					return -1;
+		while (++fill);
+		return 0;
+	}
+
+/* Handle hetergeneous compares */
+
+	if (arg1->dsc_dtype < arg2->dsc_dtype)
+		return (-MOVQ_compare(arg2, arg1));
+
+	switch (arg1->dsc_dtype) {
+	case dtype_timestamp:
+		desc.dsc_dtype = dtype_timestamp;
+		desc.dsc_length = sizeof(date);
+		desc.dsc_scale = 0;
+		desc.dsc_address = (UCHAR *) date;
+		desc.dsc_sub_type = 0;
+		MOVQ_move(arg2, &desc);
+		return MOVQ_compare(arg1, &desc);
+
+	case dtype_sql_time:
+		desc.dsc_dtype = dtype_sql_time;
+		desc.dsc_length = sizeof(date[0]);
+		desc.dsc_scale = 0;
+		desc.dsc_address = (UCHAR *) date;
+		desc.dsc_sub_type = 0;
+		MOVQ_move(arg2, &desc);
+		return MOVQ_compare(arg1, &desc);
+
+	case dtype_sql_date:
+		desc.dsc_dtype = dtype_sql_date;
+		desc.dsc_length = sizeof(date[0]);
+		desc.dsc_scale = 0;
+		desc.dsc_address = (UCHAR *) date;
+		desc.dsc_sub_type = 0;
+		MOVQ_move(arg2, &desc);
+		return MOVQ_compare(arg1, &desc);
+
+	case dtype_short:
+	case dtype_long:
+		{
+			SSHORT scale;
+			SLONG temp1, temp2;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+			/* For character data, scale contains interpretation of the string */
+
+			SSHORT scale1, scale2;
+
+			scale1 = arg1->dsc_scale;
+			scale2 = arg2->dsc_scale;
+			if (arg1->dsc_dtype <= dtype_varying)
+				scale1 = 0;
+			if (arg2->dsc_dtype <= dtype_varying)
+				scale2 = 0;
+			scale = MIN(scale1, scale2);
+
+#else
+
+			scale = MIN(arg1->dsc_scale, arg2->dsc_scale);
+
+
+#endif
+			temp1 = MOVQ_get_long(arg1, scale);
+			temp2 = MOVQ_get_long(arg2, scale);
+			if (temp1 == temp2)
+				return 0;
+			if (temp1 > temp2)
+				return 1;
+			return -1;
+		}
+
+	case dtype_real:
+		{
+			float temp1, temp2;
+
+			temp1 = MOVQ_get_double(arg1);
+			temp2 = MOVQ_get_double(arg2);
+			if (temp1 == temp2)
+				return 0;
+			if (temp1 > temp2)
+				return 1;
+			return -1;
+		}
+
+	case dtype_double:
+		{
+			double temp1, temp2;
+
+			temp1 = MOVQ_get_double(arg1);
+			temp2 = MOVQ_get_double(arg2);
+			if (temp1 == temp2)
+				return 0;
+			if (temp1 > temp2)
+				return 1;
+			return -1;
+		}
+
+	case dtype_blob:
+		IBERROR(48);			/* Msg 48 Blob conversion is not supported */
+
+	default:
+		mover_error(410, arg1->dsc_dtype, arg2->dsc_dtype);
+
+	}
+}
+#endif
+
+
+double PASCAL_ROUTINE MOVQ_date_to_double( DSC * desc)
+{
+/**************************************
+ *
+ *	M O V Q _ d a t e _ t o _ d o u b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *    Convert a date to double precision for
+ *    date arithmetic routines.
+ *
+ **************************************/
+	DSC temp_desc;
+	SLONG temp[2], *date;
+
+/* If the input descriptor is not in date form, convert it. */
+
+	if (desc->dsc_dtype == dtype_timestamp)
+		date = (SLONG *) desc->dsc_address;
+	else {
+		temp_desc.dsc_dtype = dtype_timestamp;
+		temp_desc.dsc_length = sizeof(temp);
+		temp_desc.dsc_scale = 0;
+		temp_desc.dsc_sub_type = 0;
+		date = temp;
+		temp_desc.dsc_address = (UCHAR *) date;
+		MOVQ_move(desc, &temp_desc);
+	}
+
+	return date[0] + (double) date[1] / (24. * 60. * 60. * PRECISION);
+}
+
+
+int MOVQ_decompose( TEXT * string, USHORT length, SLONG * return_value)
+{
+/**************************************
+ *
+ *	M O V Q _ d e c o m p o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Decompose a numeric string in mantissa and exponent.
+ *
+ **************************************/
+	TEXT *p, *end;
+	SSHORT scale, exp, fraction, sign;
+	SLONG value;
+	SCHAR temp[128];
+
+	scale = fraction = sign = value = 0;
+
+	for (p = string, end = p + length; p < end; p++) {
+		if (*p == ',')
+			continue;
+		else if (DIGIT(*p)) {
+			value = value * 10 + *p - '0';
+			if (fraction)
+				--scale;
+		}
+		else if (*p == '.')
+			if (fraction) {
+#ifndef PYXIS
+				MOVQ_terminate(string, temp, length, sizeof(temp));
+				ERRQ_error(411, temp, NULL, NULL, NULL, NULL);
+#else
+				IBERROR("conversion error");
+#endif
+			}
+			else
+				fraction = TRUE;
+		else if (*p == '-' && !value && !sign)
+			sign = TRUE;
+		else if (*p == '+' && !value && !sign)
+			sign = FALSE;
+		else if (*p == 'e' || *p == 'E')
+			break;
+		else if (*p != ' ') {
+#ifndef PYXIS
+			MOVQ_terminate(string, temp, length, sizeof(temp));
+			ERRQ_error(411, temp, NULL, NULL, NULL, NULL);
+#else
+			IBERROR("conversion error");
+#endif
+		}
+	}
+
+	if (sign)
+		value = -value;
+
+/* If there's still something left, there must be an explicit
+   exponent */
+
+	if (p < end) {
+		sign = exp = 0;
+		for (p++; p < end; p++) {
+			if (DIGIT(*p))
+				exp = exp * 10 + *p - '0';
+			else if (*p == '-' && !exp)
+				sign = TRUE;
+			else if (*p == '+' && !exp && !sign)
+				continue;
+			else if (*p != ' ') {
+#ifndef PYXIS
+				MOVQ_terminate(string, temp, length, sizeof(temp));
+				ERRQ_error(411, temp, NULL, NULL, NULL, NULL);
+#else
+				IBERROR("conversion error");
+#endif
+			}
+		}
+		if (sign)
+			scale -= exp;
+		else
+			scale += exp;
+	}
+
+	*return_value = value;
+
+	return scale;
+}
+
+
+void MOVQ_double_to_date( double real, SLONG fixed[2])
+{
+/**************************************
+ *
+ *	M O V Q _ d o u b l e _ t o _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a double precision representation of a date
+ *	to a fixed point representation.   Double is used for
+ *      date arithmetic.
+ *
+ **************************************/
+
+	fixed[0] = real;
+	fixed[1] = (real - fixed[0]) * 24. * 60. * 60. * PRECISION;
+}
+
+
+void MOVQ_fast(
+			   register SCHAR * from,
+			   register SCHAR * to, register ULONG length)
+{
+/**************************************
+ *
+ *	M O V Q _ f a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a byte string as fast as possible.
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+}
+
+
+double PASCAL_ROUTINE MOVQ_get_double( DSC * desc)
+{
+/**************************************
+ *
+ *	M O V Q _ g e t _ d o u b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert something arbitrary to a
+ *	double_precision representation. 
+ *
+ **************************************/
+	double value;
+	SSHORT scale, fraction, sign, exp, length;
+	TEXT *p, *end;
+
+	switch (desc->dsc_dtype) {
+	case dtype_short:
+		value = *((SSHORT *) desc->dsc_address);
+		break;
+
+	case dtype_long:
+		value = *((SLONG *) desc->dsc_address);
+		break;
+
+	case dtype_real:
+		return *((float *) desc->dsc_address);
+
+	case dtype_double:
+		return *((double *) desc->dsc_address);
+
+	case dtype_varying:
+	case dtype_cstring:
+	case dtype_text:
+		length = MOVQ_get_string(desc, &p, 0, 0);
+		scale = fraction = sign = value = 0;
+		for (end = p + length; p < end; p++) {
+			if (*p == ',')
+				continue;
+			else if (DIGIT(*p)) {
+				value = value * 10. + (*p - '0');
+				if (fraction)
+					scale++;
+			}
+			else if (*p == '.')
+				if (fraction)
+#ifndef PYXIS
+					IBERROR(52);	/* Msg 52 conversion error */
+#else
+					IBERROR("conversion error");
+#endif
+				else
+					fraction = 1;
+			else if (!value && *p == '-')
+				sign = 1;
+			else if (!value && *p == '+')
+				continue;
+			else if (*p == 'e' || *p == 'E')
+				break;
+			else if (*p != ' ')
+#ifndef PYXIS
+				IBERROR(53);	/* Msg 53 conversion error */
+#else
+				IBERROR("conversion error");
+#endif
+		}
+
+		if (sign)
+			value = -value;
+
+		/* If there's still something left, there must be an explicit
+		   exponent */
+
+		if (p < end) {
+			sign = exp = 0;
+			for (p++; p < end; p++) {
+				if (DIGIT(*p))
+					exp = exp * 10 + *p - '0';
+				else if (*p == '-' && !exp)
+					sign = TRUE;
+				else if (*p == '+' && !exp);
+				else if (*p != ' ')
+#ifndef PYXIS
+					IBERROR(54);	/* Msg 54 conversion error */
+#else
+					IBERROR("conversion error");
+#endif
+			}
+			if (sign)
+				scale += exp;
+			else
+				scale -= exp;
+		}
+
+		if (scale > 0)
+			do
+				value /= 10.;
+			while (--scale);
+		else if (scale)
+			do
+				value *= 10.;
+			while (++scale);
+
+		return value;
+
+	default:
+#ifndef PYXIS
+		mover_error(410, desc->dsc_dtype, dtype_double);
+#else
+		BUGCHECK("conversion not implemented");
+#endif
+	}
+
+/* Last, but not least, adjust for scale */
+
+	if ((scale = desc->dsc_scale) == 0)
+		return value;
+
+	if (scale > 0)
+		do
+			value *= 10.;
+		while (--scale);
+	else
+		do
+			value /= 10.;
+		while (++scale);
+
+	return value;
+}
+
+
+SLONG MOVQ_get_long(DSC * desc, SSHORT scale)
+{
+/**************************************
+ *
+ *	M O V Q _ g e t _ l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert something arbitrary to a long (32 bit) integer of given
+ *	scale.
+ *
+ **************************************/
+	SLONG value;
+	double d;
+	SSHORT fraction, sign, l, length;
+	TEXT *p;
+
+#if (!(defined JPN_SJIS || defined JPN_EUC))
+
+	scale -= (SSHORT) desc->dsc_scale;
+
+#else
+
+/* For character data, scale field is used for interpretation of the string */
+
+	if (desc->dsc_dtype > dtype_varying)
+		scale -= desc->dsc_scale;
+
+#endif
+	p = (TEXT *) desc->dsc_address;
+	switch (desc->dsc_dtype) {
+	case dtype_short:
+		value = *((SSHORT *) p);
+		break;
+
+	case dtype_long:
+		value = *((SLONG *) p);
+		break;
+
+	case dtype_real:
+		d = *((float *) p);
+		if (scale > 0)
+			do
+				d /= 10.;
+			while (--scale);
+		else if (scale < 0)
+			do
+				d *= 10.;
+			while (++scale);
+		if (d > 0)
+			d += 0.5;
+		else
+			d -= 0.5;
+		return (SLONG) d;
+
+	case dtype_double:
+		d = *((double *) p);
+		if (scale > 0)
+			do
+				d /= 10.;
+			while (--scale);
+		else if (scale < 0)
+			do
+				d *= 10.;
+			while (++scale);
+		if (d > 0)
+			d += 0.5;
+		else
+			d -= 0.5;
+		return (SLONG) d;
+
+	case dtype_varying:
+	case dtype_cstring:
+	case dtype_text:
+		length = MOVQ_get_string(desc, &p, 0, 0);
+		scale -= MOVQ_decompose(p, length, &value);
+		break;
+
+	default:
+#ifndef PYXIS
+		mover_error(410, desc->dsc_dtype, dtype_long);
+#else
+		BUGCHECK("conversion not implemented");
+#endif
+	}
+
+/* Last, but not least, adjust for scale */
+
+	if (scale == 0)
+		return value;
+
+	if (scale > 0) {
+		if ((desc->dsc_dtype == dtype_short)
+			|| (desc->dsc_dtype == dtype_long)) {
+			fraction = 0;
+			do {
+				if (scale == 1)
+					fraction = value % 10;
+				value /= 10;
+			} while (--scale);
+			if (fraction > 4)
+				value++;
+		}
+		else
+			do
+				value /= 10;
+			while (--scale);
+	}
+	else
+		do
+			value *= 10;
+		while (++scale);
+
+	return value;
+}
+
+
+int MOVQ_get_string( DSC * desc, TEXT ** address, VARY * temp, USHORT length)
+{
+/**************************************
+ *
+ *	M O V Q _  g e t _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get address and length of string, converting the value to
+ *	string, if necessary.  The caller must provide a sufficiently
+ *	large temporary.  The address of the resultant string is returned
+ *	by reference.  Get_string returns the length of the string.
+ *
+ *	Note: If the descriptor is known to be a string type, the third
+ *	argument (temp buffer) may be omitted.
+ *
+ **************************************/
+	VARY *varying;
+	DSC temp_desc;
+
+/* If the value is already a string (fixed or varying), just return
+   the address and length. */
+
+	if (desc->dsc_dtype == dtype_text) {
+		*address = (TEXT *) desc->dsc_address;
+		return desc->dsc_length;
+	}
+
+/* Perhaps it a "C" type string? */
+
+	if (desc->dsc_dtype == dtype_cstring) {
+		*address = (TEXT *) desc->dsc_address;
+		return MIN(strlen(desc->dsc_address), desc->dsc_length - 1);
+	}
+
+/* No luck -- convert value to varying string. */
+
+	if (desc->dsc_dtype == dtype_varying) {
+		varying = (VARY *) desc->dsc_address;
+		*address = varying->vary_string;
+		return varying->vary_length;
+	}
+
+	temp_desc.dsc_length = length;
+	temp_desc.dsc_address = (UCHAR *) temp;
+	temp_desc.dsc_scale = 0;
+	temp_desc.dsc_dtype = dtype_varying;
+	temp_desc.dsc_sub_type = ttype_ascii;
+	MOVQ_move(desc, &temp_desc);
+	*address = temp->vary_string;
+
+	return temp->vary_length;
+}
+
+
+void MOVQ_move( DSC * from, DSC * to)
+{
+/**************************************
+ *
+ *	M O V Q _ m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move (and possible convert) something to something else.
+ *
+ **************************************/
+	register UCHAR *p, *q;
+	register SSHORT length, fill;
+	SLONG l;
+	UCHAR *ptr;
+
+	length = from->dsc_length;
+	p = to->dsc_address;
+	q = from->dsc_address;
+
+/* If the datatypes and lengths are identical, just move the
+   stuff byte by byte.  Although this may seem slower than 
+   optimal, it would cost more to find the fast move than the
+   fast move would gain. */
+
+	if (DSC_EQUIV(from, to))
+/*
+if (((ALT_DSC*) from)->dsc_combined_type == ((ALT_DSC*) to)->dsc_combined_type)
+*/
+	{
+		if (length)
+			do
+				*p++ = *q++;
+			while (--length);
+		return;
+	}
+
+/* Do data type by data type conversions.  Not all are supported,
+   and some will drop out for additional handling. */
+
+	switch (to->dsc_dtype) {
+	case dtype_timestamp:
+		switch (from->dsc_dtype) {
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_text:
+			length = MOVQ_get_string(from, &ptr, 0, 0);
+			string_to_date(ptr, length, to->dsc_address);
+			return;
+		case dtype_sql_date:
+			((SLONG *) to->dsc_address)[0] = *(SLONG *) from->dsc_address;
+			((SLONG *) to->dsc_address)[1] = 0;
+			return;
+		case dtype_sql_time:
+			((SLONG *) to->dsc_address)[0] = 0;
+			((SLONG *) to->dsc_address)[1] = *(SLONG *) from->dsc_address;
+			return;
+		}
+		break;
+
+	case dtype_sql_date:
+		switch (from->dsc_dtype) {
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_text:
+			{
+				SLONG date[2];
+				length = MOVQ_get_string(from, &ptr, 0, 0);
+				string_to_date(ptr, length, date);
+				((SLONG *) to->dsc_address)[0] = date[0];
+			}
+			return;
+		case dtype_timestamp:
+			((SLONG *) to->dsc_address)[0] = ((SLONG *) from->dsc_address)[0];
+			return;
+		case dtype_sql_time:
+			/* Error situation */
+			break;
+		}
+		break;
+
+	case dtype_sql_time:
+		switch (from->dsc_dtype) {
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_text:
+			{
+				SLONG date[2];
+				length = MOVQ_get_string(from, &ptr, 0, 0);
+				string_to_time(ptr, length, date);
+				((SLONG *) to->dsc_address)[0] = date[1];
+			}
+			return;
+		case dtype_timestamp:
+			((SLONG *) to->dsc_address)[0] = ((SLONG *) from->dsc_address)[1];
+			return;
+		case dtype_sql_date:
+			/* Error situation */
+			break;
+		}
+		break;
+
+	case dtype_text:
+	case dtype_cstring:
+	case dtype_varying:
+		switch (from->dsc_dtype) {
+		case dtype_varying:
+		case dtype_cstring:
+		case dtype_text:
+			length = MOVQ_get_string(from, &ptr, 0, 0);
+			q = ptr;
+			switch (to->dsc_dtype) {
+			case dtype_text:
+				length = MIN(length, to->dsc_length);
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+				/* Check truncation of a double byte character */
+
+				if (KANJI_check(q, length))
+					length -= 1;
+#endif
+				fill = to->dsc_length - length;
+				if (length)
+					do
+						*p++ = *q++;
+					while (--length);
+				if (fill > 0)
+					do
+						*p++ = ' ';
+					while (--fill);
+				return;
+
+			case dtype_cstring:
+				length = MIN(length, to->dsc_length - 1);
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+				/* Check truncation of a double byte character */
+
+				if (KANJI_check(q, length))
+					length -= 1;
+#endif
+				if (length)
+					do
+						*p++ = *q++;
+					while (--length);
+				*p = 0;
+				return;
+
+			case dtype_varying:
+				length = MIN(length, to->dsc_length - sizeof(SSHORT));
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+				/* Check truncation of a double byte character */
+
+				if (KANJI_check(q, length))
+					length -= 1;
+#endif
+				((VARY *) p)->vary_length = length;
+				p = (UCHAR *) ((VARY *) p)->vary_string;
+				if (length)
+					do
+						*p++ = *q++;
+					while (--length);
+				return;
+			}
+
+		case dtype_short:
+		case dtype_long:
+		case dtype_real:
+		case dtype_double:
+			numeric_to_text(from, to);
+			return;
+
+		case dtype_sql_date:
+			sql_date_to_text(from->dsc_address, to);
+			return;
+		case dtype_sql_time:
+			sql_time_to_text(from->dsc_address, to);
+			return;
+		case dtype_timestamp:
+			timestamp_to_text(from->dsc_address, to);
+			return;
+		}
+		break;
+
+	case dtype_blob:
+		if (from->dsc_dtype == dtype_quad) {
+			((SLONG *) p)[0] = ((SLONG *) q)[0];
+			((SLONG *) p)[1] = ((SLONG *) q)[1];
+			return;
+		}
+		break;
+
+	case dtype_quad:
+		if (from->dsc_dtype == dtype_blob) {
+			((SLONG *) p)[0] = ((SLONG *) q)[0];
+			((SLONG *) p)[1] = ((SLONG *) q)[1];
+			return;
+		}
+		break;
+
+	case dtype_short:
+		*(SSHORT *) p = l = MOVQ_get_long(from, to->dsc_scale);
+		if (*(SSHORT *) p != l)
+#ifndef PYXIS
+			IBERROR(14);		/* Msg14 integer overflow */
+#else
+			IBERROR("integer overflow");
+#endif
+		return;
+
+	case dtype_long:
+		*(SLONG *) p = MOVQ_get_long(from, to->dsc_scale);
+		return;
+
+	case dtype_real:
+		*(float *) p = MOVQ_get_double(from);
+		return;
+
+	case dtype_double:
+		*(double *) p = MOVQ_get_double(from);
+		return;
+	}
+
+	if (to->dsc_dtype == dtype_blob || from->dsc_dtype == dtype_blob)
+#ifndef PYXIS
+		IBERROR(55);			/* Msg 55 Blob conversion is not supported */
+
+	mover_error(410, from->dsc_dtype, to->dsc_dtype);
+#else
+		IBERROR("Blob conversion is not supported");
+
+	BUGCHECK("MOVP_move: conversion not done");
+#endif
+}
+
+
+void MOVQ_terminate(
+					register SCHAR * from,
+					register SCHAR * to,
+					register SSHORT length, SSHORT max_length)
+{
+/**************************************
+ *
+ *	M O V Q _ t e r m i n a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Null-terminate a possibly non-
+ *	null-terminated string with max
+ *	buffer room.
+ *
+ **************************************/
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+/* No need to fix this routine.
+   It is used safely everywhere.  */
+
+#endif
+
+	if (length) {
+		length = MIN(length, max_length - 1);
+		do
+			*to++ = *from++;
+		while (--length);
+		*to++ = '\0';
+	}
+	else {
+		while (max_length-- && (*to++ = *from++));
+		*--to = '\0';
+	}
+}
+
+
+static void date_error( TEXT * string, USHORT length)
+{
+/**************************************
+ *
+ *	d a t e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	A date conversion error occurred.  Complain.
+ *
+ **************************************/
+#ifndef PYXIS
+	SCHAR temp[128];
+
+	MOVQ_terminate(string, temp, length, sizeof(temp));
+	ERRQ_error(56, temp, NULL, NULL, NULL, NULL);	/* Msg 56 Error converting string \"%s\" to date */
+#else
+	SCHAR s[256];
+
+	sprintf(s, "Error converting string \"%.*s\" to date", length, string);
+	IBERROR(s);
+#endif
+}
+
+
+static void sql_date_to_text( SLONG date[1], DSC * to)
+{
+/**************************************
+ *
+ *	s q l _ d a t e _ t o _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert date to text.
+ *
+ **************************************/
+	DSC desc;
+	TEXT *p, temp[35];
+	struct tm times;
+	SLONG date2[2];
+
+	date2[0] = date;
+	date2[1] = 0;
+	isc_decode_date(date2, &times);
+	sprintf(temp, "%2d-%.3s-%04d", times.tm_mday,
+			months[times.tm_mon], times.tm_year + 1900);
+
+	for (p = temp; *p; p++);
+
+	desc.dsc_length = p - temp;
+	desc.dsc_address = (UCHAR *) temp;
+	desc.dsc_dtype = dtype_text;
+	desc.dsc_scale = 0;
+	desc.dsc_sub_type = ttype_ascii;
+
+	MOVQ_move(&desc, to);
+}
+
+
+static void sql_time_to_text( ULONG date[1], DSC * to)
+{
+/**************************************
+ *
+ *	s q l _ t i m e _ t o _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert sql time to text.
+ *
+ **************************************/
+	DSC desc;
+	TEXT *p, temp[35];
+	struct tm times;
+	SLONG date2[2];
+
+	date2[0] = 0;
+	date2[1] = date;
+
+	isc_decode_date(date2, &times);
+
+	sprintf(temp, " %2d:%.2d:%.2d.%.4d", times.tm_hour, times.tm_min,
+			times.tm_sec, date2[1] % PRECISION);
+
+	for (p = temp; *p; p++);
+
+	desc.dsc_length = p - temp;
+	desc.dsc_address = (UCHAR *) temp;
+	desc.dsc_dtype = dtype_text;
+	desc.dsc_scale = 0;
+	desc.dsc_sub_type = ttype_ascii;
+
+	MOVQ_move(&desc, to);
+}
+
+
+static void timestamp_to_text( SLONG date[2], DSC * to)
+{
+/**************************************
+ *
+ *	t i m e s t a m p _ t o _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert date to text.
+ *
+ **************************************/
+	DSC desc;
+	TEXT *p, temp[35], time[15];
+	struct tm times;
+
+	isc_decode_date(date, &times);
+#if ((defined JPN_SJIS || defined JPN_EUC) && defined JPN_DATE)
+
+/* By default the Japanese date format is yyyy.mm.dd */
+
+	sprintf(temp, "%04d.%02d.%02d", times.tm_year + 1900, times.tm_mon + 1,
+			times.tm_mday);
+
+#else
+
+	sprintf(temp, "%2d-%.3s-%04d", times.tm_mday,
+			months[times.tm_mon], times.tm_year + 1900);
+#endif
+
+	if (times.tm_hour || times.tm_min || times.tm_sec || date[1]) {
+		sprintf(time, " %2d:%.2d:%.2d.%.4d", times.tm_hour, times.tm_min,
+				times.tm_sec, date[1] % PRECISION);
+		strcat(temp, time);
+	}
+
+	for (p = temp; *p; p++);
+
+	desc.dsc_length = p - temp;
+	desc.dsc_address = (UCHAR *) temp;
+	desc.dsc_dtype = dtype_text;
+	desc.dsc_scale = 0;
+	desc.dsc_sub_type = ttype_ascii;
+
+	MOVQ_move(&desc, to);
+}
+
+
+#ifndef PYXIS
+static void mover_error( int pattern, USHORT in_type, USHORT out_type)
+{
+/**************************************
+ *
+ *	m o v e r _ e r r o r 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a reasonable error for
+ *	unreasonable conversions and
+ *	comparisons.
+ *
+ **************************************/
+	TEXT *in, *out, in_name[25], out_name[25], msg_unknown[40];
+
+	ERRQ_msg_get(504, msg_unknown);	/* Msg504 unknown datatype %d   */
+
+	if (!(in = type_name(in_type))) {
+		in = in_name;
+		sprintf(in_name, msg_unknown, in_type);
+	}
+
+	if (!(out = type_name(out_type))) {
+		out = out_name;
+		sprintf(out, msg_unknown, out_type);
+	}
+
+	ERRQ_error(pattern, (TEXT *) in, (TEXT *) out, NULL, NULL, NULL);
+}
+#endif
+
+
+static void now_to_date( struct tm *time, SLONG date[2])
+{
+/**************************************
+ *
+ *	n o w _ t o _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert "now" (or best guess) to
+ *	a date attempting to get millisecond
+ *	precision.  This unfortunately means
+ *	that we use one routine for VAX, one
+ *	for Apollo, and a third for Unix.
+ *
+ **************************************/
+
+	isc_encode_date(time, date);
+
+	time_$clock_t clock, clock1, clock2;
+	cal_$timedate_rec_t d_clock;
+
+	cal_$get_local_time(&clock1);
+	cal_$decode_time(clock1, &d_clock);
+	cal_$encode_time(d_clock, &clock2);
+	cal_$sub_clock(&clock1, clock2);
+
+	time->tm_year = d_clock.year - 1900;
+	time->tm_mon = d_clock.month - 1;
+	time->tm_mday = d_clock.day;
+	time->tm_hour = d_clock.hour;
+	time->tm_min = d_clock.minute;
+	time->tm_sec = d_clock.second;
+	time->tm_wday = 0;
+	time->tm_yday = 0;
+
+	isc_encode_date(time, date);
+	date[1] += (clock1.c2.low32 * 4) / 100;
+
+#endif
+}
+
+
+static void numeric_to_text( DSC * from, DSC * to)
+{
+/**************************************
+ *
+ *	n u m e r i c _ t o _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert your basic number to nice, formatted text.
+ *
+ **************************************/
+	DSC intermediate;
+	SLONG n;
+	TEXT temp[32], *p, *q;
+	SSHORT l, scale, neg, pad, decimal, length;
+
+	pad = decimal = neg = 0;
+
+/* Save (or compute) scale of source.  Then convert source to ordinary
+   longword. */
+
+	scale = from->dsc_scale;
+
+	if (scale > 0)
+		pad = scale;
+	else if (scale < 0)
+		decimal = 1;
+
+	intermediate.dsc_dtype = dtype_long;
+	intermediate.dsc_length = sizeof(SLONG);
+	intermediate.dsc_scale = scale;
+	intermediate.dsc_sub_type = 0;
+	intermediate.dsc_address = (UCHAR *) & n;
+
+	MOVQ_move(from, &intermediate);
+
+/* Check for negation, then convert the number to a string of digits */
+
+	if (n < 0) {
+		neg = 1;
+		n = -n;
+	}
+
+	p = temp;
+
+	do {
+		*p++ = n % 10 + '0';
+		n /= 10;
+	} while (n);
+
+/* Compute the total length off the field formatted.  Make sure it
+   fits.  Keep in mind that routine handles both string and varying
+   string fields. */
+
+	l = p - temp;
+	length = l + neg + decimal + pad;
+
+	if ((to->dsc_dtype == dtype_text && length > to->dsc_length) ||
+		(to->dsc_dtype == dtype_cstring && length >= to->dsc_length) ||
+		(to->dsc_dtype == dtype_varying
+		 && length > to->dsc_length - sizeof(SSHORT)))
+#ifndef PYXIS
+		IBERROR(57);			/* Msg 57 overflow during conversion */
+#else
+		IBERROR("overflow during conversion");
+#endif
+
+	q =
+		(TEXT *) ((to->dsc_dtype == dtype_text) ? to->dsc_address : to->
+				  dsc_address + sizeof(SSHORT));
+
+/* If negative, put in minus sign */
+
+	if (neg)
+		*q++ = '-';
+
+/* If a decimal point is required, do the formatting.  Otherwise just
+   copy number */
+
+	if (scale < 0) {
+		if ((l += scale) > 0)
+			do
+				*q++ = *--p;
+			while (--l);
+		*q++ = '.';
+		do
+			*q++ = *--p;
+		while (++scale);
+	}
+	else
+		do
+			*q++ = *--p;
+		while (--l);
+
+/* If padding is required, do it now. */
+
+	if (pad)
+		do
+			*q++ = '0';
+		while (--pad);
+
+/* Finish up by padding (if fixed) or computing the actual length
+   (varying string) */
+
+	if (to->dsc_dtype == dtype_text) {
+		if (l = to->dsc_length - length)
+			do
+				*q++ = ' ';
+			while (--l);
+		return;
+	}
+
+	if (to->dsc_dtype == dtype_cstring) {
+		*q = 0;
+		return;
+	}
+
+	*(SSHORT *) (to->dsc_address) =
+		(UCHAR *) q - to->dsc_address - sizeof(SSHORT);
+}
+
+
+static void string_to_date( TEXT * string, USHORT length, SLONG date[2])
+{
+/**************************************
+ *
+ *	s t r i n g _ t o _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert an arbitrary string to a date.
+ *
+ **************************************/
+	TEXT c, *p, temp[15], *t, *end, **month_ptr, *m;
+	USHORT n, month_position, i, components[7], precision, year;
+	SLONG clock;
+	struct tm times, times2, *today;
+
+	if (!length) {
+		date[0] = date[1] = 0;
+		return;
+	}
+
+	p = string;
+
+#if ((defined JPN_SJIS || defined JPN_EUC) && defined JPN_DATE)
+
+/* Make sure there are no Japanese characters */
+
+	n = length;
+	end = p;
+
+	while (n--)
+		if (*end++ & KANJI_MASK) {
+			date_error(string, length);
+			return;
+		}
+
+#endif
+
+	end = p + length;
+	year = month_position = 0;
+
+	clock = time(0);
+	today = localtime(&clock);
+
+	for (i = 0; i < 7; i++)
+		components[i] = 0;
+
+/* Parse components */
+
+	for (i = 0; i < 7; i++) {
+
+		/* Skip leading blanks.  If we run out of characters, we're done
+		   with parse.  */
+
+		while (p < end && *p == ' ')
+			p++;
+		if (p == end)
+			break;
+
+		/* Handle digit or character strings */
+
+		c = UPPER(*p);
+		if (DIGIT(c)) {
+			precision = n = 0;
+			while (p < end && DIGIT(*p)) {
+				n = n * 10 + *p++ - '0';
+				precision++;
+			}
+#if ((defined JPN_SJIS || defined JPN_EUC) && defined JPN_DATE)
+			if (i == 0)
+#else
+			if (i == 2)
+#endif
+				year = TRUE;
+		}
+		else if (LETTER(c)) {
+			t = temp;
+			while (p < end && LETTER(c)) {
+				c = UPPER(*p);
+				if (!LETTER(c))
+					break;
+				*t++ = c;
+				p++;
+			}
+			*t = 0;
+			month_ptr = months;
+			while (TRUE) {
+				if (!*month_ptr) {
+					while (++p < end)
+						if (*p != ' ' && *p != '\t' && *p != 0)
+							date_error(string, length);
+
+					if (strcmp(temp, NOW) == 0) {
+						now_to_date(today, date);
+						return;
+					}
+					today->tm_hour = today->tm_min = today->tm_sec = 0;
+					isc_encode_date(today, date);
+					if (strcmp(temp, TODAY) == 0)
+						return;
+					if (strcmp(temp, TOMORROW) == 0) {
+						++date[0];
+						return;
+					}
+					if (strcmp(temp, YESTERDAY) == 0) {
+						--date[0];
+						return;
+					}
+					date_error(string, length);
+				}
+				for (t = temp, m = *month_ptr++; *t && *t == *m; t++, m++);
+				if (!*t)
+					break;
+			}
+			n = month_ptr - months;
+			month_position = i;
+		}
+		else {
+			date_error(string, length);
+			return;
+		}
+		components[i] = n;
+		while (p < end && *p == ' ')
+			p++;
+#if ((defined JPN_SJIS || defined JPN_EUC) && defined JPN_DATE)
+
+		if (*p == '/' || *p == '-' || *p == ',' || *p == ':' || *p == '.') {
+			p++;
+			continue;
+		}
+
+#else
+
+		if (*p == '/' || *p == '-' || *p == ',' || *p == ':') {
+			p++;
+			continue;
+		}
+		if (*p == '.') {
+			if (!month_position && i < 2)
+				month_position = 1;
+			p++;
+			continue;
+		}
+
+#endif
+	}
+
+/* Slide things into day, month, year form */
+
+#if ((defined JPN_SJIS || defined JPN_EUC) && defined JPN_DATE)
+
+	times.tm_mon = components[1];
+	times.tm_mday = components[2];
+
+#else
+
+	if (month_position) {
+		times.tm_mon = components[1];
+		times.tm_mday = components[0];
+	}
+	else {
+		times.tm_mon = components[0];
+		times.tm_mday = components[1];
+	}
+
+#endif
+
+/* Handle defaulting of year */
+
+#if ((defined JPN_SJIS || defined JPN_EUC) && defined JPN_DATE)
+
+	if (((times.tm_year = components[0]) == 0) && !year)
+#else
+
+	if (((times.tm_year = components[2]) == 0) && !year)
+#endif
+		times.tm_year = today->tm_year + 1900;
+	else if (times.tm_year < 100) {
+		if (times.tm_year < (today->tm_year - 50) % 100)
+			times.tm_year += 2000;
+		else
+			times.tm_year += 1900;
+	}
+
+	times.tm_year -= 1900;
+	times.tm_mon -= 1;
+	times.tm_hour = components[3];
+	times.tm_min = components[4];
+	times.tm_sec = components[5];
+
+/* convert day/month/year to Julian and validate result */
+
+	isc_encode_date(&times, date);
+	isc_decode_date(date, &times2);
+
+	if (times.tm_year != times2.tm_year ||
+		times.tm_mon != times2.tm_mon || times.tm_mday != times2.tm_mday)
+		date_error(string, length);
+
+	while (precision++ < 4)
+		components[6] *= 10;
+
+	date[1] += components[6];
+
+}
+
+
+static void string_to_time( TEXT * string, USHORT length, SLONG date[2])
+{
+/**************************************
+ *
+ *	s t r i n g _ t o _ t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert an arbitrary string to a t i m e.
+ *
+ **************************************/
+	TEXT c, *p, temp[15], *t, *end;
+	USHORT n, i, components[7], precision;
+	SLONG clock;
+	struct tm times, times2, *today;
+
+	if (!length) {
+		date[0] = date[1] = 0;
+		return;
+	}
+
+	p = string;
+
+	end = p + length;
+
+	clock = time(0);
+	today = localtime(&clock);
+
+	for (i = 0; i < 7; i++)
+		components[i] = 0;
+
+/* Parse components */
+
+	for (i = 3; i < 7; i++) {
+
+		/* Skip leading blanks.  If we run out of characters, we're done
+		   with parse.  */
+
+		while (p < end && *p == ' ')
+			p++;
+		if (p == end)
+			break;
+
+		/* Handle digit or character strings */
+
+		c = UPPER(*p);
+		if (DIGIT(c)) {
+			precision = n = 0;
+			while (p < end && DIGIT(*p)) {
+				n = n * 10 + *p++ - '0';
+				precision++;
+			}
+		}
+		else if (LETTER(c)) {
+			t = temp;
+			while (p < end && LETTER(c)) {
+				c = UPPER(*p);
+				if (!LETTER(c))
+					break;
+				*t++ = c;
+				p++;
+			}
+			*t = 0;
+			while (++p < end)
+				if (*p != ' ' && *p != '\t' && *p != 0)
+					date_error(string, length);
+
+			if (strcmp(temp, NOW) == 0) {
+				now_to_date(today, date);
+				return;
+			}
+			date_error(string, length);
+		}
+		else {
+			date_error(string, length);
+			return;
+		}
+		components[i] = n;
+		while (p < end && *p == ' ')
+			p++;
+
+		if (*p == '/' || *p == '-' || *p == ',' || *p == ':' || *p == '.') {
+			p++;
+			continue;
+		}
+
+	}
+
+	times.tm_hour = components[3];
+	times.tm_min = components[4];
+	times.tm_sec = components[5];
+
+/* convert day/month/year to Julian and validate result */
+
+	isc_encode_date(&times, date);
+
+	while (precision++ < 4)
+		components[6] *= 10;
+
+	date[1] += components[6];
+
+}
+
+
+#ifndef PYXIS
+static TEXT *type_name( USHORT dtype)
+{
+/**************************************
+ *
+ *	t y p e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return the name of a data type.
+ *
+ **************************************/
+	DTYPES names;
+
+	for (names = dtypes_table; names->description; names++)
+		if (names->type == dtype)
+			return names->description;
+	return NULL;
+}
+#endif
diff --git a/src/qli/mov_proto.h b/src/qli/mov_proto.h
new file mode 100644
index 0000000000..b4c44fd02f
--- /dev/null
+++ b/src/qli/mov_proto.h
@@ -0,0 +1,38 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		mov_proto.h
+ *	DESCRIPTION:	Prototype header file for mov.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_MOV_PROTO_H_
+#define _QLI_MOV_PROTO_H_
+
+extern int			MOVQ_compare (struct dsc *, struct dsc *);
+extern double PASCAL_ROUTINE	MOVQ_date_to_double (struct dsc *);
+extern int			MOVQ_decompose (TEXT *, USHORT, SLONG *);
+extern void			MOVQ_double_to_date (double, SLONG [2]);
+extern void			MOVQ_fast (register SCHAR *, register SCHAR *, register ULONG);
+extern double PASCAL_ROUTINE	MOVQ_get_double (struct dsc *);
+extern SLONG			MOVQ_get_long (struct dsc *, SSHORT);
+extern int			MOVQ_get_string (struct dsc *, TEXT **, struct vary *, USHORT);
+extern void			MOVQ_move (struct dsc *, struct dsc *);
+extern void			MOVQ_terminate (register SCHAR *, register SCHAR *, register SSHORT, SSHORT);
+
+#endif /* _QLI_MOV_PROTO_H_ */
diff --git a/src/qli/noform.cpp b/src/qli/noform.cpp
new file mode 100644
index 0000000000..eeed6808ff
--- /dev/null
+++ b/src/qli/noform.cpp
@@ -0,0 +1,269 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		form.c
+ *	DESCRIPTION:	Form interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+
+#include "../qli/dtr.h"
+#include "../qli/exe.h"
+#include "../qli/form.h"
+#include "../qli/form_proto.h"
+
+
+FRM FORM_default_form(DBB database, TEXT * string)
+{
+/**************************************
+ *
+ *	F O R M _ d e f a u l t _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a default for for a relation.
+ *
+ **************************************/
+	int *handle, *fields, *transaction;
+	FRM form;
+
+	return NULL;
+}
+
+
+void FORM_display( NOD node)
+{
+/**************************************
+ *
+ *	F O R M _ d i s p l a y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a FORM_FOR node, display an empty form.
+ *
+ **************************************/
+	FRM form;
+	FFL field;
+
+}
+
+
+void FORM_edit( DBB database, TEXT * name)
+{
+/**************************************
+ *
+ *	F O R M _ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit a form.
+ *
+ **************************************/
+	FRM form;
+	int *transaction, *handle, *fields, *label;
+
+}
+
+
+void FORM_fini(void)
+{
+/**************************************
+ *
+ *	F O R M _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shut down forms interface.
+ *
+ **************************************/
+
+}
+
+
+void FORM_finish( DBB database)
+{
+/**************************************
+ *
+ *	F O R M _ f i n i s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release forms in preparation for finishing a relation.
+ *
+ **************************************/
+	FRM form;
+	FFL field;
+	SYM symbol;
+
+}
+
+
+int FORM_get_blob( NOD value, PAR parameter)
+{
+/**************************************
+ *
+ *	 F O R M _ g e t _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy blob from form to database.
+ *
+ **************************************/
+	MSG message;
+	REQ request;
+	DBB dbb;
+	DSC *desc;
+	FFL field;
+	FRM form;
+	int *blob, *item;
+	TEXT buffer[4096], *p, *data;
+	STATUS status_vector[20];
+	USHORT length, n;
+
+	return TRUE;
+}
+
+
+DSC *FORM_get_field(NOD node)
+{
+/**************************************
+ *
+ *	F O R M _ g e t _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a value off a form.
+ *
+ **************************************/
+	FFL field;
+	FRM form;
+	STR string;
+	USHORT l;
+	TEXT *p, *q;
+
+	return NULL;
+}
+
+
+FRM FORM_lookup_form(DBB database, TEXT * string)
+{
+/**************************************
+ *
+ *	F O R M _ l o o k u p _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup a form by name.
+ *
+ **************************************/
+	int *handle, *transaction;
+	STATUS status[20];
+	FRM form;
+	SYM symbol;
+	USHORT l, width, height;
+
+	return NULL;
+}
+
+
+FFL FORM_lookup_field(FRM form, TEXT * string)
+{
+/**************************************
+ *
+ *	F O R M _ l o o k u p _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup field name in form.  If we can't find it, return NULL.
+ *
+ **************************************/
+	FFL field;
+
+	return NULL;
+}
+
+
+int FORM_put_field( NOD from, NOD node)
+{
+/**************************************
+ *
+ *	F O R M _ p u t _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write data to a form.
+ *
+ **************************************/
+	DSC *desc, desc2;
+	FFL field;
+	TEXT buffer[1024], *p;
+	USHORT length, index;
+	int *blob;
+	STATUS status_vector[20];
+
+	return TRUE;
+}
+
+
+void FORM_reset(void)
+{
+/**************************************
+ *
+ *	F O R M _ r e s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset after execution of a request involving forms.
+ *
+ **************************************/
+
+}
+
+
+void FORM_update( NOD node)
+{
+/**************************************
+ *
+ *	F O R M _ u p d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute "form update".
+ *
+ **************************************/
+	NOD list;
+	FRM form;
+	FFL *ptr, *end, field;
+	DSC *desc;
+	USHORT l;
+	TEXT *prompt, temp[256], *p, *q;
+	int *tag;
+
+}
diff --git a/src/qli/nounix.cpp b/src/qli/nounix.cpp
new file mode 100644
index 0000000000..a5f4db5d79
--- /dev/null
+++ b/src/qli/nounix.cpp
@@ -0,0 +1,40 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		nounix.c
+ *	DESCRIPTION:	Dummy routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef __STDC__
+int pipe(void)
+#else
+int pipe()
+#endif
+{
+	return -1;
+}
+
+#ifdef __STDC__
+int vfork(void)
+#else
+int vfork()
+#endif
+{
+	return -1;
+}
diff --git a/src/qli/parse.cpp b/src/qli/parse.cpp
new file mode 100644
index 0000000000..04ac83345b
--- /dev/null
+++ b/src/qli/parse.cpp
@@ -0,0 +1,5796 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		parse.c
+ *	DESCRIPTION:	Statement parser
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#define PARSER_MAIN
+#include "../qli/dtr.h"
+#include "../qli/exe.h"			/* This is only included to suppress a compiler warning */
+#include "../qli/parse.h"
+#include "../qli/compile.h"
+#include "../qli/report.h"
+#if (defined JPN_SJIS || defined JPN_EUC)
+#include "../jrd/kanji.h"
+#endif
+#include "../qli/all_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/hsh_proto.h"
+#include "../qli/lex_proto.h"
+#include "../qli/mov_proto.h"
+#include "../qli/parse_proto.h"
+#include "../qli/proc_proto.h"
+
+#define SYNTAX_NODE(type,count)	syntax_node (type, count)
+#define KEYWORD(kw)		(QLI_token->tok_keyword == kw)
+#define INT_CAST		(SYN) (IPTR)
+
+static void check_end(void);
+static void command_end(void);
+static DBB get_dbb(SYM);
+static SYN make_list(LLS);
+static NAM make_name(void);
+static CON make_numeric_constant(TEXT *, USHORT);
+static TEXT *make_string(TEXT *, USHORT);
+static SYN negate(SYN);
+static KWWORDS next_keyword(void);
+static SYN parse_abort(void);
+static SYN parse_accept(void);
+static SYN parse_add(USHORT *, USHORT *);
+static SYN parse_and(USHORT *);
+static SYN parse_assignment(void);
+static SYN parse_boolean(USHORT *);
+static SYN parse_copy(void);
+static DBB parse_database(void);
+static SYN parse_declare(void);
+static SYN parse_define(void);
+static SYN parse_def_index(void);
+static SYN parse_def_relation(void);
+static SYN parse_delete(void);
+static SYN parse_drop(void);
+static int parse_dtype(USHORT *, USHORT *);
+static int parse_dtype_subtype(void);
+static SYN parse_edit(void);
+static TEXT *parse_edit_string(void);
+static SYN parse_erase(void);
+static SYN parse_extract(void);
+static FLD parse_field(int);
+static SYN parse_field_name(SYN *);
+static SYN parse_for(void);
+static SYN parse_form(void);
+static SYN parse_from(USHORT *, USHORT *);
+static SYN parse_function(void);
+static TEXT *parse_header(void);
+static SYN parse_help(void);
+static SYN parse_if(void);
+static SYN parse_in(SYN, NOD_T, USHORT);
+static SYN parse_insert(void);
+static NOD_T parse_join_type(void);
+static SYN parse_list_fields(void);
+static CON parse_literal(void);
+static SYN parse_matches(void);
+static void parse_matching_paren(void);
+static SYN parse_menu(void);
+static SYN parse_modify(void);
+static SYN parse_modify_index(void);
+static SYN parse_modify_relation(void);
+static SYN parse_multiply(USHORT *, USHORT *);
+static NAM parse_name(void);
+static SYN parse_not(USHORT *);
+static int parse_ordinal(void);
+static SYN parse_output(void);
+static SYN parse_primitive_value(USHORT *, USHORT *);
+static SYN parse_print_list(void);
+static SYN parse_print(void);
+static SYN parse_prompt(void);
+static QFL parse_qualified_filter(void);
+static QFN parse_qualified_function(void);
+static QPR parse_qualified_procedure(void);
+static REL parse_qualified_relation(void);
+static SYN parse_ready(NOD_T);
+static SYN parse_relational(USHORT *);
+static SYN parse_relation(void);
+static SYN parse_rename(void);
+static SYN parse_repeat(void);
+static SYN parse_report(void);
+static SYN parse_rse(void);
+static SYN parse_select(void);
+static SYN parse_set(void);
+static SYN parse_shell(void);
+static SYN parse_show(void);
+static SYN parse_sort(void);
+static SYN parse_sql_alter(void);
+static SYN parse_sql_create(void);
+static int parse_sql_dtype(USHORT *, USHORT *);
+static FLD parse_sql_field(void);
+static SYN parse_sql_grant_revoke(USHORT);
+static SYN parse_sql_index_create(USHORT, USHORT);
+static SYN parse_sql_joined_relation(SYN);
+static SYN parse_sql_join_clause(SYN);
+static SYN parse_sql_table_create(void);
+static SYN parse_sql_view_create(void);
+static SYN parse_sql_relation(void);
+static SYN parse_sql_rse(void);
+static SYN parse_sql_singleton_select(void);
+static SYN parse_sql_subquery(void);
+static SYN parse_statement(void);
+static SYN parse_statistical(void);
+static SYN parse_store(void);
+static TEXT *parse_string(void);
+static SYM parse_symbol(void);
+static int parse_terminating_parens(USHORT *, USHORT *);
+static SYN parse_transaction(NOD_T);
+static SYN parse_udf_or_field(void);
+static SYN parse_update(void);
+static SYN parse_value(USHORT *, USHORT *);
+static int potential_rse(void);
+static REL resolve_relation(SYM, SYM);
+static SYN syntax_node(NOD_T, USHORT);
+static int test_end(void);
+
+typedef struct {
+	SLONG gds_quad_high;
+	ULONG gds_quad_low;
+} gds_quad;
+
+/* 
+The following flags are: 
+
+	sql_flag	indicates whether we are parsing in a SQL environment.  
+			The flag is used to turn off automatic end-of-command
+			recognition.
+
+	else_count	indicates the depth of if/then/else's
+
+	sw_report 	indicates whether we're in a report statement
+
+	sw_statement	indicates that we're actively parsing a statement/command
+
+	sw_sql_view	indicates parsing a SQL VIEW, so restrict the select.
+*/
+
+static USHORT sql_flag, else_count, sw_report, sw_statement, sw_sql_view;
+static SSHORT function_count;	/* indicates the depth of UDF calls */
+
+static struct nod_types {
+	KWWORDS nod_t_keyword;
+	NOD_T nod_t_node;
+	NOD_T nod_t_rpt_node;
+	NOD_T nod_t_sql_node;
+} statisticals[] = {
+	KW_MAX, nod_max, nod_rpt_max, nod_agg_max,
+		KW_MIN, nod_min, nod_rpt_min, nod_agg_min,
+		KW_COUNT, nod_count, nod_rpt_count, nod_agg_count,
+		KW_AVERAGE, nod_average, nod_rpt_average, nod_agg_average,
+		KW_TOTAL, nod_total, nod_rpt_total, nod_agg_total,
+		KW_none, nod_any, nod_any};
+
+static NOD_T relationals[] = {
+	nod_eql, nod_neq, nod_leq, nod_lss, nod_gtr, nod_geq, nod_containing,
+	nod_like, nod_starts, nod_missing, nod_between, nod_sleuth,
+	nod_matches, nod_and, nod_or, nod_not, nod_any, nod_unique, (NOD_T) 0
+};
+
+
+SYN PARQ_parse(void)
+{
+/**************************************
+ *
+ *	P A R Q _ p a r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a single statement or command.
+ *
+ **************************************/
+	LLS stack;
+	SYN node;
+
+	sql_flag = else_count = sw_report = 0;
+	sw_statement = TRUE;
+
+	switch (next_keyword()) {
+	case KW_COMMIT:
+		return parse_transaction(nod_commit);
+
+	case KW_COPY:
+		return parse_copy();
+
+	case KW_EXIT:
+		return SYNTAX_NODE(nod_exit, 0);
+
+	case KW_EXTRACT:
+		return parse_extract();
+
+	case KW_QUIT:
+		return SYNTAX_NODE(nod_quit, 0);
+
+	case KW_DELETE:
+	case KW_DROP:
+		if (node = parse_drop())
+			return node;
+		node = parse_delete();
+		check_end();
+		if (!MATCH(KW_THEN))
+			return node;
+		stack = NULL;
+		LLS_PUSH(node, &stack);
+		LLS_PUSH(parse_statement(), &stack);
+		return make_list(stack);
+
+	case KW_DEFINE:
+		return parse_define();
+
+	case KW_CREATE:
+		return parse_sql_create();
+
+	case KW_ALTER:
+		return parse_sql_alter();
+
+	case KW_EDIT:
+		return parse_edit();
+
+	case KW_FINISH:
+		return parse_transaction(nod_finish);
+
+	case KW_GRANT:
+		return parse_sql_grant_revoke(nod_sql_grant);
+
+	case KW_HELP:
+		return parse_help();
+
+	case KW_PREPARE:
+		return parse_transaction(nod_prepare);
+
+	case KW_READY:
+		return parse_ready(nod_ready);
+
+	case KW_RENAME:
+		return parse_rename();
+
+	case KW_REVOKE:
+		return parse_sql_grant_revoke(nod_sql_revoke);
+
+	case KW_ROLLBACK:
+		return parse_transaction(nod_rollback);
+
+	case KW_SET:
+		return parse_set();
+
+	case KW_SHELL:
+		return parse_shell();
+
+	case KW_SHOW:
+		return parse_show();
+	}
+
+	return parse_statement();
+}
+
+
+int PAR_match( KWWORDS keyword)
+{
+/**************************************
+ *
+ *	P A R _ m a t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Test the current token for a particular keyword.
+ *	If so, advance the token stream.
+ *
+ **************************************/
+	SYM symbol;
+
+	if (KEYWORD(keyword)) {
+		PAR_token();
+		return TRUE;
+	}
+
+	for (symbol = QLI_token->tok_symbol; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_keyword &&
+			symbol->sym_keyword == (int) keyword) {
+			PAR_token();
+			return TRUE;
+		}
+
+	return FALSE;
+}
+
+
+void PAR_real(void)
+{
+/**************************************
+ *
+ *	P A R _ r e a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a real (not EOL) token.
+ *
+ *	If the token is an end of line, get the next token.
+ *      If the next token is a colon, start reading the
+ *      procedure.
+ *
+ **************************************/
+	DBB database;
+
+	while ((QLI_token->tok_type == tok_eol) || KEYWORD(KW_continuation))
+		LEX_token();
+
+	if (MATCH(KW_COLON)) {
+		database = parse_database();
+		PRO_invoke(database, QLI_token->tok_string);
+	}
+}
+
+
+void PAR_real_token(void)
+{
+/**************************************
+ *
+ *	P A R _ r e a l _ t o k e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Composition of PAR_token followed by PAR_real.
+ *
+ **************************************/
+
+	PAR_token();
+	PAR_real();
+}
+
+
+void PAR_token(void)
+{
+/**************************************
+ *
+ *	P A R _ t o k e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next token.  
+ *	If it's a procedure invocation, handle it
+ *      or complain and get rid of the evidence.
+ *
+ **************************************/
+	DBB database;
+
+	for (;;) {
+		LEX_token();
+		if (!(KEYWORD(KW_continuation)) &&
+			!(sw_statement && QLI_semi && QLI_token->tok_type == tok_eol))
+			break;
+	}
+
+	if (MATCH(KW_COLON)) {
+		if (!QLI_databases) {
+			ERRQ_error_format(159, NULL, NULL, NULL, NULL, NULL);	/* Msg159 no databases are ready */
+			ERRQ_pending();
+			LEX_token();
+		}
+		else {
+			database = parse_database();
+			PRO_invoke(database, QLI_token->tok_string);
+		}
+	}
+}
+
+
+static void check_end(void)
+{
+/**************************************
+ *
+ *	c h e c k _ e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for end of statement.  If it isn't complain bitterly.
+ *
+ **************************************/
+
+	if (QLI_token->tok_type == tok_eol ||
+		KEYWORD(KW_SEMI) ||
+		KEYWORD(KW_THEN) || (else_count && KEYWORD(KW_ELSE))) {
+		sw_statement = FALSE;
+		return;
+	}
+
+	SYNTAX_ERROR(161);			/* Msg161 end of statement */
+}
+
+
+static void command_end(void)
+{
+/**************************************
+ *
+ *	c o m m a n d _ e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for end of command.  If it isn't complain bitterly.
+ *
+ **************************************/
+
+	if (QLI_token->tok_type == tok_eol || KEYWORD(KW_SEMI)) {
+		sw_statement = FALSE;
+		return;
+	}
+
+	SYNTAX_ERROR(162);			/* Msg162 end of command */
+}
+
+
+static DBB get_dbb( SYM symbol)
+{
+/**************************************
+ *
+ *	g e t _ d b b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find a database block from a symbol
+ *	or its homonyms.
+ *
+ **************************************/
+
+	for (; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_database)
+			return (DBB) symbol->sym_object;
+
+	return NULL;
+}
+
+
+static SYN make_list( LLS stack)
+{
+/**************************************
+ *
+ *	m a k e _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a stack of junk into a list node.  Best count
+ *	them first.
+ *
+ **************************************/
+	SYN node, *ptr;
+	LLS temp;
+	USHORT count;
+
+	temp = stack;
+	count = 0;
+
+	while (temp) {
+		count++;
+		temp = temp->lls_next;
+	}
+
+	node = SYNTAX_NODE(nod_list, count);
+	ptr = &node->syn_arg[count];
+
+	while (stack)
+		*--ptr = (SYN) LLS_POP(&stack);
+
+	return node;
+}
+
+
+static NAM make_name(void)
+{
+/**************************************
+ *
+ *	m a k e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a unique name for something
+ *	(like a database) that needs one.
+ *
+ **************************************/
+	NAM name;
+	SSHORT l, i;
+	TEXT c, *p, *q, string[32];
+
+	for (i = 0; i < 1000; i++) {
+		sprintf(string, "QLI_%d", i);
+		if (i < 10)
+			l = 5;
+		else
+			l = (i < 100) ? 6 : 7;
+		if (!(HSH_lookup(string, l)))
+			break;
+	}
+
+	name = (NAM) ALLOCDV(type_nam, l);
+	name->nam_length = l;
+	p = name->nam_string;
+	q = string;
+
+	if (l)
+		do {
+			c = *q++;
+			*p++ = UPPER(c);
+#ifdef JPN_SJIS
+
+			/* Do not upcase second byte of a sjis kanji character */
+
+			if (KANJI1(c) && l > 1) {
+				*p++ = *q++;
+				l--;
+			}
+#endif
+		} while (--l);
+
+	return name;
+}
+
+
+static CON make_numeric_constant( TEXT * string, USHORT length)
+{
+/**************************************
+ *
+ *	m a k e _ n u m e r i c _ c o n s t a n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build a constant block for a numeric
+ *	constant.  Numeric constants are normally
+ *	stored as long words, but especially large
+ *	ones become text.  They ought to become
+ *      double precision, one would think, but they'd
+ *      have to be VAX style double precision which is
+ *      more pain than gain.
+ *
+ **************************************/
+	CON constant;
+	TEXT *p;
+	USHORT l;
+
+	p = string;
+	l = length;
+
+/* If there are a reasonable number of digits, convert to binary */
+
+	if (length < 9) {
+		constant = (CON) ALLOCDV(type_con, sizeof(SLONG));
+		constant->con_desc.dsc_dtype = dtype_long;
+		constant->con_desc.dsc_length = sizeof(SLONG);
+		constant->con_desc.dsc_address = constant->con_data;
+		constant->con_desc.dsc_scale =
+			MOVQ_decompose(string, length, constant->con_data);
+	}
+	else {
+		++length;
+		constant = (CON) ALLOCDV(type_con, length);
+		constant->con_desc.dsc_dtype = dtype_text;
+		constant->con_desc.dsc_length = length;
+		constant->con_desc.dsc_address = constant->con_data;
+		p = (TEXT *) constant->con_desc.dsc_address;
+		*p++ = '0';
+		while (--length)
+			*p++ = *string++;
+	}
+
+	return constant;
+}
+
+
+static TEXT *make_string( TEXT * address, USHORT length)
+{
+/**************************************
+ *
+ *	m a k e _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a string into a temporary string block.
+ *
+ **************************************/
+	STR string;
+	TEXT *p;
+
+	string = (STR) ALLOCDV(type_str, length);
+	p = string->str_data;
+	if (length)
+		do
+			*p++ = *address++;
+		while (--length);
+
+	return string->str_data;
+}
+
+
+static SYN negate( SYN expr)
+{
+/**************************************
+ *
+ *	n e g a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Build negation of expression.
+ *
+ **************************************/
+	SYN node;
+
+	node = SYNTAX_NODE(nod_not, 1);
+	node->syn_arg[0] = expr;
+
+	return node;
+}
+
+
+static KWWORDS next_keyword(void)
+{
+/**************************************
+ *
+ *	n e x t _ k e y w o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a real token and return the keyword number.
+ *
+ **************************************/
+	SYM symbol;
+
+	PAR_real();
+
+	for (symbol = QLI_token->tok_symbol; symbol; symbol = symbol->sym_homonym)
+		if (symbol->sym_type == SYM_keyword)
+			return (KWWORDS) symbol->sym_keyword;
+
+	return KW_none;
+}
+
+
+static SYN parse_abort(void)
+{
+/**************************************
+ *
+ *	p a r s e _ a b o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an ABORT statement.
+ *
+ **************************************/
+	SYN node;
+
+	PAR_token();
+	node = SYNTAX_NODE(nod_abort, 1);
+
+	if (KEYWORD(KW_SEMI))
+		node->syn_count = 0;
+	else
+		node->syn_arg[0] = parse_value(0, 0);
+
+	return node;
+}
+
+
+static SYN parse_accept(void)
+{
+/**************************************
+ *
+ *	p a r s e _ a c c e p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse form update statement.
+ *
+ **************************************/
+#ifdef NO_PYXIS
+	IBERROR(484);				/* FORMs not supported */
+#else
+	SYN node;
+	LLS stack;
+
+	PAR_token();
+	node = SYNTAX_NODE(nod_form_update, 2);
+
+	if (MATCH(KW_LEFT_PAREN)) {
+		node->syn_arg[1] = parse_value(0, 0);
+		parse_matching_paren();
+	}
+
+	if (!MATCH(KW_ASTERISK) && !test_end()) {
+		stack = NULL;
+		for (;;) {
+			LLS_PUSH(parse_name(), &stack);
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+		node->syn_arg[0] = make_list(stack);
+	}
+
+	return node;
+#endif
+}
+
+
+static SYN parse_add( USHORT * paren_count, USHORT * bool_flag)
+{
+/**************************************
+ *
+ *	p a r s e _ a d d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the lowest precedence operators, ADD and SUBTRACT.
+ *
+ **************************************/
+	SYN node, arg;
+	NOD_T operator;
+
+	node = parse_multiply(paren_count, bool_flag);
+
+	while (TRUE) {
+		if (MATCH(KW_PLUS))
+			operator = nod_add;
+		else if (MATCH(KW_MINUS))
+			operator = nod_subtract;
+		else
+			return node;
+		arg = node;
+		node = SYNTAX_NODE(operator, 2);
+		node->syn_arg[0] = arg;
+		node->syn_arg[1] = parse_multiply(paren_count, bool_flag);
+	}
+}
+
+
+static SYN parse_and( USHORT * paren_count)
+{
+/**************************************
+ *
+ *	p a r s e _ a n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an AND expression.
+ *
+ **************************************/
+	SYN expr, node;
+
+	expr = parse_not(paren_count);
+
+/*
+while (*paren_count && KEYWORD (KW_RIGHT_PAREN))
+    {
+    parse_matching_paren();
+    (*paren_count)--;
+    }
+*/
+
+	if (!MATCH(KW_AND))
+		return expr;
+
+	node = SYNTAX_NODE(nod_and, 2);
+	node->syn_arg[0] = expr;
+	node->syn_arg[1] = parse_and(paren_count);
+
+	return node;
+}
+
+
+static SYN parse_assignment(void)
+{
+/**************************************
+ *
+ *	p a r s e _ a s s i g n m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an assignment statement (or give an error).  The
+ *	assignment statement can be either a simple assignment
+ *	(field = value) or a restructure (relation = rse).  
+ *	If the assignment operator is missing, 
+ *	generate an "expected statement" error.
+ *
+ **************************************/
+	SYN node, field;
+	REL relation;
+	NAM name, name2;
+
+	node = SYNTAX_NODE(nod_assign, s_asn_count);
+	node->syn_arg[s_asn_to] = parse_field_name(&field);
+	name = (NAM) field->syn_arg[0];
+
+/* If the next token is an equals sign, the statement really is an
+   assignment, and we're off the hook. */
+
+	if (!MATCH(KW_EQUALS))
+		ERRQ_print_error(156, name->nam_string, NULL, NULL, NULL, NULL);	/* Msg156 expected statement, encountered %s */
+
+/* See if the "field name" is really a relation reference.  If so,
+   turn the assignment into a restructure. */
+
+	if (field->syn_count == 1)
+		relation = resolve_relation(0, name->nam_symbol);
+	else if (field->syn_count == 2 && name->nam_symbol) {
+		name2 = (NAM) field->syn_arg[1];
+		relation = resolve_relation(name->nam_symbol, name2->nam_symbol);
+	}
+	else
+		relation = NULL;
+
+	if (relation) {
+		ALL_release(field);
+		node->syn_type = nod_restructure;
+		node->syn_arg[s_asn_to] = field =
+			SYNTAX_NODE(nod_relation, s_rel_count);
+		field->syn_arg[s_rel_relation] = (SYN) relation;
+		node->syn_arg[s_asn_from] = parse_rse();
+	}
+	else
+		node->syn_arg[s_asn_from] = parse_value(0, 0);
+
+	return node;
+}
+
+
+static SYN parse_boolean( USHORT * paren_count)
+{
+/**************************************
+ *
+ *	p a r s e _ b o o l e a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a general boolean expression.  By precedence, handle an OR
+ *	here.
+ *
+ **************************************/
+	SYN expr, node;
+	USHORT local_count;
+
+	if (!paren_count) {
+		local_count = 0;
+		paren_count = &local_count;
+	}
+
+	expr = parse_and(paren_count);
+
+/*
+while (*paren_count && KEYWORD (KW_RIGHT_PAREN))
+    {
+    parse_matching_paren();
+    (*paren_count)--;
+    }
+*/
+
+	if (!MATCH(KW_OR)) {
+		parse_terminating_parens(paren_count, &local_count);
+		return expr;
+	}
+
+	node = SYNTAX_NODE(nod_or, 2);
+	node->syn_arg[0] = expr;
+	node->syn_arg[1] = parse_boolean(paren_count);
+	parse_terminating_parens(paren_count, &local_count);
+
+	return node;
+}
+
+
+static SYN parse_copy(void)
+{
+/**************************************
+ *
+ *	p a r s e _ c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a copy command, which copies
+ *	one procedure to another.
+ *
+ **************************************/
+	SYN node;
+
+	PAR_real_token();
+
+	if (MATCH(KW_PROCEDURE)) {
+		node = SYNTAX_NODE(nod_copy_proc, 2);
+		node->syn_arg[0] = (SYN) parse_qualified_procedure();
+		MATCH(KW_TO);
+		node->syn_arg[1] = (SYN) parse_qualified_procedure();
+		return node;
+	}
+
+	ERRQ_print_error(157, QLI_token->tok_string, NULL, NULL, NULL, NULL);	/* Msg157 Expected PROCEDURE encountered %s */
+}
+
+
+static DBB parse_database(void)
+{
+/**************************************
+ *
+ *	p a r s e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a database for a meta-data or
+ *	procedure update.  Return NULL if the
+ *	token is not a database name.
+ *
+ **************************************/
+	DBB database;
+	SYM db_symbol;
+
+
+	if ((db_symbol = QLI_token->tok_symbol)
+		&& db_symbol->sym_type == SYM_database) {
+		database = (DBB) db_symbol->sym_object;
+		PAR_real_token();
+		if (!MATCH(KW_DOT))
+			SYNTAX_ERROR(158);	/* Msg158 period in qualified name */
+		PAR_real();
+		return database;
+	}
+
+	if (!QLI_databases)
+		IBERROR(159);			/* Msg159 no databases are ready */
+
+	return NULL;
+}
+
+
+static SYN parse_declare(void)
+{
+/**************************************
+ *
+ *	p a r s e _ d e c l a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a variable  declaration.
+ *
+ **************************************/
+	SYN node, field_node;
+	SYM name, query_name;
+	FLD global_variable;
+	USHORT dtype, length, scale;
+	SSHORT sub_type, sub_type_missing;
+	TEXT *edit_string, *query_header;
+	REL relation;
+	NAM db_name, rel_name;
+
+	PAR_token();
+	PAR_real();
+
+	dtype = length = scale = 0;
+	sub_type = 0;
+	sub_type_missing = 1;
+	field_node = NULL;
+	relation = NULL;
+	query_name = NULL;
+	edit_string = query_header = NULL;
+	name = parse_symbol();
+
+/*if (global_flag) PAR_real();*/
+
+	while (!KEYWORD(KW_SEMI) && !KEYWORD(KW_COMMA)) {
+		PAR_real();
+		switch (QLI_token->tok_keyword) {
+		case KW_SHORT:
+		case KW_LONG:
+		case KW_FLOAT:
+		case KW_DOUBLE:
+		case KW_DATE:
+		case KW_CHAR:
+		case KW_VARYING:
+			if (dtype)
+				SYNTAX_ERROR(164);	/* Msg164 variable definition clause */
+			dtype = parse_dtype(&length, &scale);
+			break;
+
+		case KW_BLOB:
+			IBERROR(160);		/* Msg160 blob variables are not supported */
+			break;
+
+		case KW_SUB_TYPE:
+			sub_type = parse_dtype_subtype();
+			sub_type_missing = 0;
+			break;
+
+		case KW_EDIT_STRING:
+			PAR_token();
+			if (QLI_token->tok_type != tok_quoted)
+				SYNTAX_ERROR(163);	/* Msg163 quoted edit string */
+			edit_string =
+				make_string(QLI_token->tok_string + 1,
+							QLI_token->tok_length - 2);
+			PAR_token();
+			break;
+
+		case KW_QUERY_NAME:
+			PAR_token();
+			MATCH(KW_IS);
+			if (QLI_token->tok_type != tok_ident)
+				SYNTAX_ERROR(199);	/* Msg199 identifier */
+			query_name = parse_symbol();
+			break;
+
+		case KW_QUERY_HEADER:
+			PAR_token();
+			query_header = parse_header();
+			break;
+
+		case KW_BASED:
+			PAR_token();
+			MATCH(KW_ON);
+			field_node = parse_field_name(0);
+			break;
+
+		default:
+			SYNTAX_ERROR(164);	/* Msg164 variable definition clause */
+			break;
+		}
+	}
+
+	if (field_node && field_node->syn_count == 3) {
+		db_name = (NAM) field_node->syn_arg[0];
+		rel_name = (NAM) field_node->syn_arg[1];
+		if (!db_name->nam_symbol)
+			ERRQ_print_error(165, db_name->nam_string, NULL, NULL, NULL, NULL);	/* Msg165 %s is not a database */
+		if (!
+			(relation =
+			 resolve_relation(db_name->nam_symbol,
+							  rel_name->nam_symbol))) ERRQ_print_error(166,
+																	   rel_name->
+																	   nam_string,
+																	   db_name->
+																	   nam_string, NULL, NULL, NULL);	/* Msg166 %s is not a relation in database %s */
+	}
+
+	if (!dtype && !field_node)
+		SYNTAX_ERROR(167);		/* Msg167 variable data type */
+	if (field_node && (dtype || length || scale))
+		IBERROR(168);			/* Msg168 no datatype may be specified for a variable based on a field */
+
+	node = SYNTAX_NODE(nod_declare, 2);
+	global_variable = (FLD) ALLOCDV(type_fld, length);
+	node->syn_arg[0] = (SYN) global_variable;
+	global_variable->fld_name = name;
+	global_variable->fld_dtype = dtype;
+	global_variable->fld_scale = scale;
+	global_variable->fld_sub_type = sub_type;
+	global_variable->fld_sub_type_missing = sub_type_missing;
+	global_variable->fld_length = length;
+	global_variable->fld_edit_string = edit_string;
+	global_variable->fld_query_name = query_name;
+	global_variable->fld_query_header = query_header;
+	global_variable->fld_relation = relation;
+
+	node->syn_arg[1] = field_node;
+
+	check_end();
+
+	return node;
+}
+
+
+static SYN parse_define(void)
+{
+/**************************************
+ *
+ *	p a r s e _ d e f i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a DEFINE command.  
+ *	There are, of course, a whole class of define commands.  
+ *
+ **************************************/
+	SYN node;
+
+	PAR_real_token();
+
+	if (MATCH(KW_PROCEDURE)) {
+		PAR_real();
+		node = SYNTAX_NODE(nod_define, 1);
+		node->syn_arg[0] = (SYN) parse_qualified_procedure();
+		return node;
+	}
+
+	if (MATCH(KW_FIELD)) {
+		PAR_real();
+		node = SYNTAX_NODE(nod_def_field, 2);
+		node->syn_arg[0] = (SYN) parse_database();
+		node->syn_arg[1] = (SYN) parse_field(TRUE);
+		return node;
+	}
+
+	if (MATCH(KW_RELATION))
+		return parse_def_relation();
+
+	if (KEYWORD(KW_DATABASE))
+		return parse_ready(nod_def_database);
+
+	if (MATCH(KW_INDEX))
+		return parse_def_index();
+
+	SYNTAX_ERROR(169);			/* Msg169 object type for DEFINE */
+}
+
+
+static SYN parse_def_index(void)
+{
+/**************************************
+ *
+ *	p a r s e _ d e f _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a DEFINE INDEX command.  
+ *
+ **************************************/
+	LLS stack;
+	SYN node;
+
+	PAR_real();
+	node = SYNTAX_NODE(nod_def_index, s_dfi_count);
+	node->syn_arg[s_dfi_name] = (SYN) parse_symbol();
+	PAR_real();
+	MATCH(KW_FOR);
+
+	if (!(node->syn_arg[s_dfi_relation] = (SYN) parse_qualified_relation()))
+		SYNTAX_ERROR(170);		/* Msg170 relation name */
+
+	PAR_real();
+
+	while (TRUE) {
+		PAR_real();
+		if (MATCH(KW_UNIQUE))
+			node->syn_flags |= s_dfi_flag_unique;
+		else if (MATCH(KW_DUPLICATE))
+			node->syn_flags &= ~s_dfi_flag_unique;
+		else if (MATCH(KW_ACTIVE))
+			node->syn_flags &= ~s_dfi_flag_inactive;
+		else if (MATCH(KW_INACTIVE))
+			node->syn_flags |= s_dfi_flag_inactive;
+		else if (MATCH(KW_DESCENDING))
+			node->syn_flags |= s_dfi_flag_descending;
+		else if (MATCH(KW_ASCENDING))
+			node->syn_flags &= ~s_dfi_flag_descending;
+		else
+			break;
+	}
+
+	stack = NULL;
+	for (;;) {
+		LLS_PUSH(parse_name(), &stack);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+	node->syn_arg[s_dfi_fields] = make_list(stack);
+
+	command_end();
+	return node;
+}
+
+
+static SYN parse_def_relation(void)
+{
+/**************************************
+ *
+ *	p a r s e _ d e f _ r e l a t i o n 
+ *
+ **************************************
+ *
+ * Functional description 
+ *	Parse a DEFINE RELATION command,
+ *	which include the field definitions
+ *	for a primitive relation definition
+ *	or it may just reference another relatio
+ *	whose field definitions we will copy.  
+ *
+ **************************************/
+	REL relation;
+	FLD field, *ptr;
+	SYN node;
+
+	PAR_real();
+	node = SYNTAX_NODE(nod_def_relation, 2);
+	relation = (REL) ALLOCD(type_rel);
+	node->syn_arg[0] = (SYN) relation;
+	relation->rel_database = parse_database();
+	relation->rel_symbol = parse_symbol();
+	PAR_real();
+
+	if (MATCH(KW_BASED)) {
+		PAR_real();
+		MATCH(KW_ON);
+		PAR_real();
+		MATCH(KW_RELATION);
+		PAR_real();
+		relation = (REL) ALLOCD(type_rel);
+		node->syn_arg[1] = (SYN) relation;
+		relation->rel_database = parse_database();
+		relation->rel_symbol = parse_symbol();
+	}
+	else {
+		node->syn_arg[1] = NULL;
+		ptr = &relation->rel_fields;
+		for (;;) {
+			MATCH(KW_ADD);
+			PAR_real();
+			MATCH(KW_FIELD);
+			*ptr = field = parse_field(FALSE);
+			ptr = &field->fld_next;
+			if (KEYWORD(KW_SEMI))
+				break;
+			if (!MATCH(KW_COMMA))
+				SYNTAX_ERROR(171);	/* Msg171 comma between field definitions */
+		}
+	}
+
+	command_end();
+	return node;
+}
+
+
+static SYN parse_delete(void)
+{
+/**************************************
+ *
+ *	p a r s e _ d e l e t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a SQL DELETE statement. 
+ *	(DELETE PROCEDURE is parsed in parse_drop)
+ *
+ **************************************/
+	SYN node, rse;
+
+	++sql_flag;
+
+	if (!MATCH(KW_FROM))
+		SYNTAX_ERROR(172);		/* Msg172 FROM */
+
+	node = SYNTAX_NODE(nod_erase, s_era_count);
+	node->syn_arg[s_era_rse] = rse =
+		SYNTAX_NODE(nod_rse, (int) s_rse_count + 2);
+	rse->syn_count = 1;
+	rse->syn_arg[s_rse_count] = parse_sql_relation();
+
+/* Pick up boolean, if present */
+
+	if (MATCH(KW_WITH))
+		rse->syn_arg[s_rse_boolean] = parse_boolean(0);
+
+	--sql_flag;
+
+	return node;
+}
+
+
+static SYN parse_drop(void)
+{
+/**************************************
+ *
+ *	p a r s e _ d r o p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a DDL DROP/DELETE command.  It it isn't one,
+ *	just return NULL.
+ *
+ **************************************/
+	SYN node;
+	NOD_T type;
+	DBB database;
+	SSHORT l;
+	TEXT *p, *q;
+
+	PAR_real_token();
+
+	if (MATCH(KW_RELATION) || MATCH(KW_VIEW) || MATCH(KW_TABLE)) {
+		node = SYNTAX_NODE(nod_del_relation, 1);
+		if (!(node->syn_arg[0] = (SYN) parse_qualified_relation()))
+			SYNTAX_ERROR(173);	/* Msg173 relation or view name */
+		return node;
+	}
+
+	switch (QLI_token->tok_keyword) {
+	case KW_PROCEDURE:
+		type = nod_delete_proc;
+		break;
+
+	case KW_INDEX:
+		type = nod_del_index;
+		break;
+
+	case KW_FIELD:
+		type = nod_del_field;
+		break;
+
+	case KW_DATABASE:
+		LEX_filename();
+		if (!(l = QLI_token->tok_length))
+			ERRQ_error(429, NULL, NULL, NULL, NULL, NULL);	/* Msg429 database file name required on DROP DATABASE */
+		q = QLI_token->tok_string;
+		if (QLI_token->tok_type == tok_quoted) {
+			l -= 2;
+			q++;
+		}
+		database = (DBB) ALLOCDV(type_dbb, l);
+		database->dbb_filename_length = l;
+		p = database->dbb_filename;
+		do
+			*p++ = *q++;
+		while (--l);
+		PAR_token();
+
+		/* parse an optional user name and password if given */
+
+		for (;;) {
+			if (MATCH(KW_USER))
+				database->dbb_user = parse_literal();
+			else if (MATCH(KW_PASSWORD))
+				database->dbb_password = parse_literal();
+			else
+				break;
+		}
+
+		command_end();
+		node = SYNTAX_NODE(nod_del_database, 1);
+		node->syn_arg[0] = (SYN) database;
+		return node;
+
+	default:
+		return NULL;
+	}
+
+	PAR_real_token();
+	node = SYNTAX_NODE(type, 2);
+
+	if (type == nod_delete_proc)
+		node->syn_arg[0] = (SYN) parse_qualified_procedure();
+	else {
+		node->syn_arg[0] = (SYN) parse_database();
+		node->syn_arg[1] = (SYN) parse_name();
+	}
+
+	return node;
+}
+
+
+static int parse_dtype( USHORT * length, USHORT * scale)
+{
+/**************************************
+ *
+ *	p a r s e _ d t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a datatype clause.
+ *
+ **************************************/
+	KWWORDS keyword;
+	USHORT dtype, l;
+
+	keyword = QLI_token->tok_keyword;
+	PAR_token();
+	*scale = 0;
+
+	switch (keyword) {
+	case KW_SHORT:
+		*length = sizeof(SSHORT);
+		dtype = dtype_short;
+		break;
+
+	case KW_LONG:
+		*length = sizeof(SLONG);
+		dtype = dtype_long;
+		break;
+
+	case KW_FLOAT:
+		*length = sizeof(float);
+		return dtype_real;
+
+	case KW_DOUBLE:
+		*length = sizeof(double);
+		return dtype_double;
+
+	case KW_DATE:
+		*length = sizeof(gds_quad);
+		return dtype_timestamp;
+
+	case KW_CHAR:
+		dtype = dtype_text;
+		break;
+
+	case KW_VARYING:
+		dtype = dtype_varying;
+		break;
+
+	case KW_BLOB:
+		*length = sizeof(gds_quad);
+		return dtype_blob;
+	}
+
+	if (dtype == dtype_short || dtype == dtype_long) {
+		if (MATCH(KW_SCALE)) {
+			l = (MATCH(KW_MINUS)) ? TRUE : FALSE;
+			*scale = parse_ordinal();
+			if (l)
+				*scale = -(*scale);
+		}
+	}
+	else if (dtype == dtype_text || dtype == dtype_varying) {
+		if (!MATCH(KW_L_BRCKET) && !MATCH(KW_LT))
+			SYNTAX_ERROR(174);	/* Msg174 "[" */
+
+		l = parse_ordinal();
+		if (dtype == dtype_varying)
+			l += sizeof(SSHORT);
+		*length = l;
+
+		if (!MATCH(KW_R_BRCKET) && !MATCH(KW_GT))
+			SYNTAX_ERROR(175);	/* Msg175 "]" */
+
+	}
+
+	return dtype;
+}
+
+
+static int parse_dtype_subtype(void)
+{
+/**************************************
+ *
+ *	p a r s e _ d t y p e _ s u b t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a sub-type definition, which can be any of
+ *	SUB_TYPE {IS} [TEXT | FIXED | <n>]
+ *
+ *	Returns the numeric subtype value,
+ *
+ **************************************/
+	int sign;
+
+/* grab KW_SUB_TYPE */
+
+	PAR_token();
+	MATCH(KW_IS);
+	if (MATCH(KW_TEXT) || MATCH(KW_FIXED))
+		return 1;
+
+	sign = (MATCH(KW_MINUS)) ? -1 : 1;
+
+	return (sign * parse_ordinal());
+}
+
+
+static SYN parse_edit(void)
+{
+/**************************************
+ *
+ *	p a r s e _ e d i t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an edit statement which can
+ *	be any of  EDIT <procedure_name>
+ *	           EDIT <n> 
+ *		   EDIT <*>
+ *		   EDIT 
+ *
+ *
+ **************************************/
+	SYN node;
+	NOD_T type;
+	int l;
+	LLS start, stop, statement_list;
+
+	LEX_token();
+
+/*
+ * edit previous statements.  The top of the statment list
+ * is this edit command, which we conveniently ignore.
+ */
+
+	if (KEYWORD(KW_SEMI) ||
+		(QLI_token->tok_type == tok_number) || (KEYWORD(KW_ASTERISK))) {
+		if (!(statement_list = LEX_statement_list()))
+			IBERROR(176);		/* Msg176 No statements issued yet */
+
+		if (MATCH(KW_ASTERISK))
+			LEX_edit((SLONG) 0, (SLONG) statement_list->lls_object);
+		else {
+			if (KEYWORD(KW_SEMI))
+				l = 1;
+			else if (QLI_token->tok_type == tok_number)
+				l = parse_ordinal();
+
+			for (start = stop = statement_list;
+				 l && start->lls_next; l--, start = start->lls_next);
+			command_end();
+			LEX_edit((SLONG) start->lls_object, (SLONG) stop->lls_object);
+		}
+	}
+	else if (MATCH(KW_FORM))
+#ifdef NO_PYXIS
+		IBERROR(484);			/* FORMs not supported */
+#else
+	{
+		node = SYNTAX_NODE(nod_edit_form, 2);
+		if (!(node->syn_arg[0] = (SYN) parse_database()))
+			node->syn_arg[0] = (SYN) QLI_databases;
+		PAR_real();
+		node->syn_arg[1] = (SYN) parse_name();
+		command_end();
+		return node;
+	}
+#endif
+	else {
+		type = nod_edit_proc;
+		node = SYNTAX_NODE(type, 2);
+		node->syn_arg[0] = (SYN) parse_qualified_procedure();
+		command_end();
+		return node;
+	}
+
+	return NULL;
+}
+
+
+static TEXT *parse_edit_string(void)
+{
+/**************************************
+ *
+ *	p a r s e _ e d i t _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look for and parse a clause of the form:
+ *	    USING <edit_string>
+ *
+ **************************************/
+
+	if (!KEYWORD(KW_USING))
+		return NULL;
+
+	LEX_edit_string();
+
+	return parse_string();
+}
+
+
+static SYN parse_erase(void)
+{
+/**************************************
+ *
+ *	p a r s e _ e r a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an ERASE statement.  Erase can be any of the
+ *	following:
+ *
+ *	ERASE [ALL] [OF <rse>]
+ *
+ **************************************/
+	SYN node;
+
+	PAR_token();
+	MATCH(KW_ALL);
+	MATCH(KW_OF);
+	node = SYNTAX_NODE(nod_erase, s_era_count);
+
+	if (MATCH(KW_ALL) || potential_rse()) {
+		MATCH(KW_OF);
+		node->syn_arg[s_era_rse] = parse_rse();
+	}
+
+	return node;
+}
+
+
+static SYN parse_extract(void)
+{
+/**************************************
+ *
+ *	p a r s e _ e x t r a c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a procedure extract statement.  Syntax is:
+ *
+ *	EXTRACT [ON <file>] proc [, ...] [ON <file> ]
+ *
+ **************************************/
+	LLS stack;
+	SYN node;
+
+	PAR_real_token();
+	node = SYNTAX_NODE(nod_extract, 2);
+	node->syn_arg[1] = parse_output();
+
+	if (!MATCH(KW_ALL)) {
+		stack = NULL;
+		for (;;) {
+			LLS_PUSH(parse_qualified_procedure(), &stack);
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+		node->syn_arg[0] = make_list(stack);
+	}
+
+	if (!node->syn_arg[1] && !(node->syn_arg[1] = parse_output()))
+		SYNTAX_ERROR(177);		/* Msg177 "ON or TO" */
+
+	return node;
+}
+
+
+static FLD parse_field( int global_flag)
+{
+/**************************************
+ *
+ *	p a r s e _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a field description.
+ *
+ **************************************/
+	FLD field;
+	SYM name, query_name, based_on;
+	USHORT dtype, length, scale;
+	SSHORT sub_type, sub_type_missing;
+	TEXT *edit_string, *query_header;
+
+	PAR_real();
+
+	dtype = length = scale = 0;
+	sub_type = 0;
+	sub_type_missing = 1;
+	query_name = based_on = NULL;
+	edit_string = query_header = NULL;
+	name = parse_symbol();
+
+	if (global_flag)
+		PAR_real();
+
+	while (!KEYWORD(KW_SEMI) && !KEYWORD(KW_COMMA)) {
+		PAR_real();
+		switch (QLI_token->tok_keyword) {
+		case KW_SHORT:
+		case KW_LONG:
+		case KW_FLOAT:
+		case KW_DOUBLE:
+		case KW_DATE:
+		case KW_CHAR:
+		case KW_VARYING:
+		case KW_BLOB:
+			if (dtype)
+				SYNTAX_ERROR(179);	/* Msg179 field definition clause */
+			dtype = parse_dtype(&length, &scale);
+			break;
+
+		case KW_SUB_TYPE:
+			sub_type = parse_dtype_subtype();
+			sub_type_missing = 0;
+			break;
+
+		case KW_EDIT_STRING:
+			PAR_token();
+			if (QLI_token->tok_type != tok_quoted)
+				SYNTAX_ERROR(178);	/* Msg178 quoted edit string */
+			edit_string =
+				make_string(QLI_token->tok_string + 1,
+							QLI_token->tok_length - 2);
+			PAR_token();
+			break;
+
+		case KW_QUERY_NAME:
+			PAR_token();
+			MATCH(KW_IS);
+			if (QLI_token->tok_type != tok_ident)
+				SYNTAX_ERROR(199);	/* Msg199 identifier */
+			query_name = parse_symbol();
+			break;
+
+		case KW_BASED:
+			PAR_token();
+			MATCH(KW_ON);
+			based_on = parse_symbol();
+			break;
+
+		default:
+			SYNTAX_ERROR(179);	/* Msg179 field definition clause */
+			break;
+		}
+	}
+
+	field = (FLD) ALLOCDV(type_fld, length);
+	field->fld_name = name;
+	field->fld_dtype = dtype;
+	field->fld_scale = scale;
+	field->fld_sub_type = sub_type;
+	field->fld_sub_type_missing = sub_type_missing;
+	field->fld_length = length;
+	field->fld_edit_string = edit_string;
+	field->fld_query_name = query_name;
+	field->fld_query_header = query_header;
+	if (!global_flag)
+		field->fld_based = based_on;
+	else if (based_on)
+		IBERROR(180);			/* Msg180 global fields may not be based on other fields */
+
+	return field;
+}
+
+
+static SYN parse_field_name( SYN * fld_ptr)
+{
+/**************************************
+ *
+ *	p a r s e _ f i e l d _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a qualified field name, or
+ *	qualified * expression.
+ *
+ **************************************/
+	SYN field, node;
+	LLS stack;
+
+	stack = NULL;
+
+	while (TRUE) {
+		if (MATCH(KW_ASTERISK)) {
+			if (!stack)
+				SYNTAX_ERROR(181);	/* Msg181 field name or asterisk expression */
+			field = make_list(stack);
+			field->syn_type = nod_star;
+			return field;
+		}
+		LLS_PUSH(parse_name(), &stack);
+		if (!MATCH(KW_DOT))
+			break;
+	}
+
+	field = make_list(stack);
+	field->syn_type = nod_field;
+	if (fld_ptr)
+		*fld_ptr = field;
+	if (!(MATCH(KW_L_BRCKET)))
+		return field;
+
+/* Parse an array reference */
+
+	stack = NULL;
+	for (;;) {
+		LLS_PUSH(parse_value(0, 0), &stack);
+		if (MATCH(KW_R_BRCKET))
+			break;
+		if (!MATCH(KW_COMMA))
+			SYNTAX_ERROR(183);	/* Msg183 comma */
+	}
+
+	node = SYNTAX_NODE(nod_index, s_idx_count);
+	node->syn_arg[s_idx_field] = field;
+	node->syn_arg[s_idx_subs] = make_list(stack);
+
+	return node;
+}
+
+
+static SYN parse_for(void)
+{
+/**************************************
+ *
+ *	p a r s e _ f o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a FOR statement.
+ *
+ **************************************/
+	SYN node;
+
+	PAR_token();
+
+	if (MATCH(KW_FORM))
+#ifdef NO_PYXIS
+		IBERROR(484);			/* FORMs not supported */
+#else
+	{
+		node = SYNTAX_NODE(nod_form_for, s_ffr_count);
+		node->syn_arg[s_ffr_form] = parse_form();
+		node->syn_arg[s_ffr_statement] = parse_statement();
+		return node;
+	}
+#endif
+
+	node = SYNTAX_NODE(nod_for, s_for_count);
+	node->syn_arg[s_for_rse] = parse_rse();
+	node->syn_arg[s_for_statement] = parse_statement();
+
+	return node;
+}
+
+
+static SYN parse_form(void)
+{
+/**************************************
+ *
+ *	p a r s e _ f o r m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse qualified form name, returning a form block.
+ *
+ **************************************/
+#ifdef NO_PYXIS
+	IBERROR(484);				/* FORMs not supported */
+#else
+	SYN node;
+
+	node = SYNTAX_NODE(nod_form, s_frm_count);
+	node->syn_count = 0;
+	node->syn_arg[s_frm_database] = (SYN) parse_database();
+
+/* If there we're at end of line, left the form name default. */
+
+	if (test_end())
+		return node;
+
+	node->syn_arg[s_frm_form] = (SYN) parse_name();
+
+	if (MATCH(KW_IN)) {
+		node->syn_arg[s_frm_context] = node->syn_arg[s_frm_form];
+		node->syn_arg[s_frm_form] = (SYN) parse_name();
+	}
+
+	return node;
+#endif
+}
+
+
+static SYN parse_from( USHORT * paren_count, USHORT * bool_flag)
+{
+/**************************************
+ *
+ *	p a r s e _ f r o m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse either an explicit or implicit FIRST ... FROM statement.
+ *
+ **************************************/
+	SYN node, value;
+
+	PAR_real();
+
+	if (MATCH(KW_FIRST)) {
+		value = parse_primitive_value(0, 0);
+		PAR_real();
+		if (!MATCH(KW_FROM))
+			SYNTAX_ERROR(182);	/* Msg182 FROM rse clause */
+	}
+	else {
+		value = parse_primitive_value(paren_count, bool_flag);
+		if (sql_flag || !MATCH(KW_FROM))
+			return value;
+	}
+
+	node = SYNTAX_NODE(nod_from, s_stt_count);
+	node->syn_arg[s_stt_value] = value;
+	node->syn_arg[s_stt_rse] = parse_rse();
+
+	if (MATCH(KW_ELSE))
+		node->syn_arg[s_stt_default] = parse_value(0, 0);
+
+	return node;
+}
+
+
+static SYN parse_function(void)
+{
+/**************************************
+ *
+ *	p a r s e _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a function reference.
+ *
+ **************************************/
+	SYN node;
+	LLS stack;
+
+	function_count++;
+	node = SYNTAX_NODE(nod_function, s_fun_count);
+	node->syn_arg[s_fun_function] = (SYN) QLI_token->tok_symbol;
+	node->syn_count = 1;
+	PAR_token();
+	stack = NULL;
+
+	if (MATCH(KW_LEFT_PAREN))
+		for (;;) {
+			LLS_PUSH(parse_value(0, 0), &stack);
+			if (MATCH(KW_RIGHT_PAREN))
+				break;
+			if (!MATCH(KW_COMMA))
+				SYNTAX_ERROR(183);	/* Msg183 comma */
+		}
+
+	node->syn_arg[s_fun_args] = make_list(stack);
+	function_count--;
+
+	return node;
+}
+
+
+static TEXT *parse_header(void)
+{
+/**************************************
+ *
+ *	p a r s e _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse and store headers of the form:
+ *		"quoted_string" [/ "more_string"]...
+ *		or even the non-header -
+ *
+ **************************************/
+	TEXT *p, *q, header[1024];
+
+	p = header;
+
+	while (TRUE) {
+		PAR_real();
+		if ((QLI_token->tok_keyword != KW_MINUS) &&
+			(QLI_token->tok_type != tok_quoted)) SYNTAX_ERROR(184);	/* Msg184 quoted header segment */
+		q = QLI_token->tok_string;
+		while (*q)
+			*p++ = *q++;
+		PAR_real_token();
+		if (!MATCH(KW_SLASH))
+			break;
+	}
+
+	return make_string(header, p - header);
+}
+
+
+static SYN parse_help(void)
+{
+/**************************************
+ *
+ *	p a r s e _ h e l p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse HELP statement.  Unreasonable, but the masses
+ *	must be appeased.  Bread, circuses, help.
+ *
+ **************************************/
+	SYN node;
+	LLS stack;
+
+	stack = NULL;
+	PAR_token();
+
+	while (!KEYWORD(KW_SEMI)) {
+		LLS_PUSH(parse_name(), &stack);
+		MATCH(KW_COMMA);
+	}
+
+	node = make_list(stack);
+	node->syn_type = nod_help;
+	command_end();
+
+	return node;
+}
+
+
+static SYN parse_if(void)
+{
+/**************************************
+ *
+ *	p a r s e _ i f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an IF THEN ELSE statement.
+ *
+ **************************************/
+	SYN node;
+
+	PAR_token();
+	node = SYNTAX_NODE(nod_if, s_if_count);
+	node->syn_arg[s_if_boolean] = parse_boolean(0);
+	PAR_real();
+	MATCH(KW_THEN);
+	++else_count;
+	node->syn_arg[s_if_true] = parse_statement();
+	--else_count;
+
+	if (MATCH(KW_ELSE))
+		node->syn_arg[s_if_false] = parse_statement();
+
+	return node;
+}
+
+
+static SYN parse_in( SYN value, NOD_T operator, USHORT all_flag)
+{
+/**************************************
+ *
+ *	p a r s e _ i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a SQL "IN" clause.  This can have two forms:
+ *
+ *		value IN (exp1, exp2...)
+ *
+ *		value IN (column <select expression>)
+ *
+ **************************************/
+	SYN node, node2, value2, rse;
+
+	PAR_real();
+
+	if (!MATCH(KW_LEFT_PAREN))
+		SYNTAX_ERROR(185);		/* Msg185 left parenthesis */
+
+/* Time to chose between two forms of the expression */
+
+	if (!MATCH(KW_SELECT)) {
+		node = SYNTAX_NODE(operator, 2);
+		node->syn_arg[0] = value;
+		node->syn_arg[1] = parse_primitive_value(0, 0);
+		while (MATCH(KW_COMMA)) {
+			node2 = node;
+			node = SYNTAX_NODE(nod_or, 2);
+			node->syn_arg[0] = node2;
+			node->syn_arg[1] = node2 = SYNTAX_NODE(nod_eql, 2);
+			node2->syn_arg[0] = value;
+			node2->syn_arg[1] = parse_value(0, 0);
+		}
+		parse_matching_paren();
+		return node;
+	}
+
+	value2 = parse_value(0, 0);
+
+/* We have the "hard" -- an implicit ANY */
+
+	rse = parse_sql_rse();
+	parse_matching_paren();
+
+	rse->syn_arg[s_rse_outer] = value;
+	rse->syn_arg[s_rse_inner] = value2;
+	rse->syn_arg[s_rse_op] = INT_CAST operator;
+	rse->syn_arg[s_rse_all_flag] = INT_CAST all_flag;
+
+/* Finally, construct an ANY node */
+
+	node = SYNTAX_NODE(nod_any, 1);
+	node->syn_arg[0] = rse;
+
+	return (all_flag) ? negate(node) : node;
+}
+
+
+static SYN parse_insert(void)
+{
+/**************************************
+ *
+ *	p a r s e _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a STORE statement.
+ *
+ **************************************/
+	SYN node;
+	USHORT select_flag;
+	LLS fields, values, distinct;
+
+	++sql_flag;
+	PAR_real_token();
+	MATCH(KW_INTO);
+	node = SYNTAX_NODE(nod_store, s_sto_count);
+
+/* Pick up relation name for insert */
+
+	node->syn_arg[s_sto_relation] = parse_sql_relation();
+
+/* Pick up field list, provided one is present */
+
+	distinct = fields = values = NULL;
+	PAR_real();
+
+	if (MATCH(KW_LEFT_PAREN))
+		while (TRUE) {
+			LLS_PUSH(parse_field_name(0), &fields);
+			if (MATCH(KW_RIGHT_PAREN))
+				break;
+			if (!MATCH(KW_COMMA))
+				SYNTAX_ERROR(186);	/* Msg186 comma or terminating right parenthesis */
+		}
+
+/* Pick up value list or SELECT statement */
+
+	PAR_real();
+
+	if (MATCH(KW_VALUES)) {
+		select_flag = FALSE;
+		if (!MATCH(KW_LEFT_PAREN))
+			SYNTAX_ERROR(187);	/* Msg187 left parenthesis */
+	}
+	else if (MATCH(KW_SELECT))
+		select_flag = TRUE;
+	else
+		SYNTAX_ERROR(188);		/* Msg188 VALUES list or SELECT clause */
+
+
+	while (TRUE) {
+		if (distinct || MATCH(KW_DISTINCT)) {
+			LLS_PUSH(parse_value(0, 0), &distinct);
+			LLS_PUSH(distinct->lls_object, &values);
+			LLS_PUSH(0, &distinct);
+		}
+		else
+			LLS_PUSH(parse_value(0, 0), &values);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	if (select_flag)
+		node->syn_arg[s_sto_rse] = parse_sql_rse();
+	else
+		parse_matching_paren();
+
+	if (distinct)
+		node->syn_arg[s_sto_rse]->syn_arg[s_rse_reduced] =
+			make_list(distinct);
+
+	node->syn_arg[s_sto_fields] = (SYN) fields;
+	node->syn_arg[s_sto_values] = (SYN) values;
+
+	--sql_flag;
+
+	return node;
+}
+
+
+static NOD_T parse_join_type(void)
+{
+/**************************************
+ *
+ *	p a r s e _ j o i n _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a join type.
+ *
+ **************************************/
+	NOD_T operator;
+
+	if (MATCH(KW_INNER))
+		operator = nod_join_inner;
+	else if (MATCH(KW_LEFT))
+		operator = nod_join_left;
+	else if (MATCH(KW_RIGHT))
+		operator = nod_join_right;
+	else if (MATCH(KW_FULL))
+		operator = nod_join_full;
+	else if (MATCH(KW_JOIN))
+		return nod_join_inner;
+	else
+		return (NOD_T) 0;
+
+	if (operator != nod_join_inner)
+		MATCH(KW_OUTER);
+
+	if (!MATCH(KW_JOIN))
+		SYNTAX_ERROR(489);		/* Msg489 JOIN */
+
+	return operator;
+}
+
+
+static SYN parse_list_fields(void)
+{
+/**************************************
+ *
+ *	p a r s e _ l i s t _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a LIST statement.  LIST is like PRINT, but does vertical
+ *	formatting.
+ *
+ **************************************/
+	SYN node, item;
+	LLS stack;
+
+	node = SYNTAX_NODE(nod_list_fields, s_prt_count);
+	PAR_token();
+
+	if (!MATCH(KW_ALL) && MATCH(KW_DISTINCT))
+		node->syn_arg[s_prt_distinct] = INT_CAST TRUE;
+
+	if (node->syn_arg[s_prt_output] = parse_output())
+		return node;
+
+	if (test_end())
+		return node;
+
+/* If there is a potential record selection expression, there obviously
+   can't be a print list.  Get the rse.  Otherwise, pick up the print
+   list. */
+
+	if (potential_rse())
+		node->syn_arg[s_prt_rse] = parse_rse();
+	else {
+		if (!test_end()) {
+			stack = NULL;
+			for (;;) {
+				item = SYNTAX_NODE(nod_print_item, s_itm_count);
+				item->syn_arg[s_itm_value] = parse_value(0, 0);
+				item->syn_arg[s_itm_edit_string] = (SYN) parse_edit_string();
+				LLS_PUSH(item, &stack);
+				if (!MATCH(KW_COMMA) && !MATCH(KW_AND))
+					break;
+				PAR_real();
+				if (MATCH(KW_AND))
+					PAR_real();
+			}
+			node->syn_arg[s_prt_list] = make_list(stack);
+		}
+		if (MATCH(KW_OF))
+			node->syn_arg[s_prt_rse] = parse_rse();
+	}
+
+	node->syn_arg[s_prt_output] = parse_output();
+
+	return node;
+}
+
+
+static CON parse_literal(void)
+{
+/**************************************
+ *
+ *	p a r s e _ l i t e r a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a literal expression.
+ *
+ **************************************/
+	CON constant;
+	USHORT l;
+	UCHAR *p, *q;
+
+	PAR_real();
+	q = (UCHAR *) QLI_token->tok_string;
+	l = QLI_token->tok_length;
+
+	if (QLI_token->tok_type == tok_quoted) {
+		q++;
+		l -= 2;
+		constant = (CON) ALLOCDV(type_con, l);
+		constant->con_desc.dsc_dtype = dtype_text;
+		p = constant->con_desc.dsc_address = constant->con_data;
+		if (constant->con_desc.dsc_length = l)
+			do
+				*p++ = *q++;
+			while (--l);
+	}
+	else if (QLI_token->tok_type == tok_number)
+		constant = make_numeric_constant(QLI_token->tok_string,
+										 QLI_token->tok_length);
+	else
+		SYNTAX_ERROR(190);		/* Msg190 value expression */
+
+	PAR_token();
+
+	return constant;
+}
+
+
+static SYN parse_matches(void)
+{
+/**************************************
+ *
+ *	p a r s e _ m a t c h e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a matching expressing, including
+ *	the preset matching language template.
+ *
+ **************************************/
+	SYN node, language;
+
+	PAR_token();
+	node = SYNTAX_NODE(nod_sleuth, 3);
+	node->syn_arg[1] = parse_value(0, 0);
+	if (MATCH(KW_USING))
+		node->syn_arg[2] = parse_value(0, 0);
+	else if (QLI_matching_language) {
+		node->syn_arg[2] = language = SYNTAX_NODE(nod_constant, 1);
+		language->syn_arg[0] = (SYN) QLI_matching_language;
+	}
+	else {
+		node->syn_type = nod_matches;
+		node->syn_count = 2;
+	}
+
+	return node;
+}
+
+
+static void parse_matching_paren(void)
+{
+/**************************************
+ *
+ *	p a r s e _ m a t c h i n g _ p a r e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for a trailing (right) parenthesis.  Complain if
+ *	its not there.
+ *
+ **************************************/
+
+	PAR_real();
+
+	if (MATCH(KW_RIGHT_PAREN))
+		return;
+
+	SYNTAX_ERROR(191);			/* Msg191 right parenthesis */
+}
+
+
+static SYN parse_menu(void)
+{
+/**************************************
+ *
+ *	p a r s e _ m e n u
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a MENU statement.
+ *
+ **************************************/
+	LLS labels, statements;
+	SYN node;
+
+	PAR_real_token();
+
+	if (QLI_token->tok_type != tok_quoted)
+		SYNTAX_ERROR(192);		/* Msg192 quoted string */
+
+	node = SYNTAX_NODE(nod_menu, s_men_count);
+	node->syn_arg[s_men_string] = parse_primitive_value(0, 0);
+	labels = statements = NULL;
+	PAR_real();
+
+	while (!MATCH(KW_END)) {
+		if (!MATCH(KW_ENTREE))
+			SYNTAX_ERROR(193);	/* Msg193 ENTREE or END */
+		if (QLI_token->tok_type != tok_quoted)
+			SYNTAX_ERROR(194);	/* Msg194 quoted string */
+		LLS_PUSH(parse_primitive_value(0, 0), &labels);
+		MATCH(KW_COLON);
+		LLS_PUSH(parse_statement(), &statements);
+		PAR_real();
+	}
+
+	node->syn_arg[s_men_statements] = make_list(statements);
+	node->syn_arg[s_men_labels] = make_list(labels);
+
+	return node;
+}
+
+
+static SYN parse_modify(void)
+{
+/**************************************
+ *
+ *	p a r s e _ m o d i f y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a MODIFY statement.  Modify can be any of the
+ *	following:
+ *
+ *	MODIFY [ALL] [<field> [, <field>]...] [OF <rse> ]
+ *	MODIFY [ALL] USING <statement> [OF <rse>]
+ *
+ **************************************/
+	SYN node;
+	LLS stack;
+
+	PAR_token();
+
+/* If this is a meta-data change, handle it elsewhere */
+
+	if (MATCH(KW_INDEX))
+		return parse_modify_index();
+
+	if (MATCH(KW_FIELD)) {
+		node = SYNTAX_NODE(nod_mod_field, 1);
+		node->syn_arg[0] = (SYN) parse_database();
+		node->syn_arg[1] = (SYN) parse_field(TRUE);
+		return node;
+	}
+
+	if (MATCH(KW_RELATION))
+		return parse_modify_relation();
+
+/* Not a meta-data modification, just a simple data modify */
+
+	MATCH(KW_ALL);
+	node = SYNTAX_NODE(nod_modify, s_mod_count);
+
+	if (MATCH(KW_USING))
+		if (MATCH(KW_FORM))
+#ifdef NO_PYXIS
+			IBERROR(484);		/* FORMs not supported */
+#else
+			node->syn_arg[s_mod_form] = parse_form();
+#endif
+		else
+			node->syn_arg[s_mod_statement] = parse_statement();
+	else if (!KEYWORD(KW_SEMI)) {
+		stack = NULL;
+		while (TRUE) {
+			LLS_PUSH(parse_field_name(0), &stack);
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+		node->syn_arg[s_mod_list] = make_list(stack);
+	}
+
+	if (MATCH(KW_OF))
+		node->syn_arg[s_mod_rse] = parse_rse();
+
+	return node;
+}
+
+
+static SYN parse_modify_index(void)
+{
+/**************************************
+ *
+ *	p a r s e _ m o d i f y _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a MODIFY INDEX statement. 
+ *
+ **************************************/
+	SYN node;
+
+	node = SYNTAX_NODE(nod_mod_index, s_mfi_count);
+	node->syn_arg[s_mfi_database] = (SYN) parse_database();
+	node->syn_arg[s_mfi_name] = (SYN) parse_name();
+	PAR_real();
+
+	while (TRUE) {
+		if (MATCH(KW_UNIQUE))
+			node->syn_flags |= (s_dfi_flag_selectivity | s_dfi_flag_unique);
+		else if (MATCH(KW_DUPLICATE)) {
+			node->syn_flags |= s_dfi_flag_selectivity;
+			node->syn_flags &= ~s_dfi_flag_unique;
+		}
+		else if (MATCH(KW_INACTIVE))
+			node->syn_flags |= (s_dfi_flag_activity | s_dfi_flag_inactive);
+		else if (MATCH(KW_ACTIVE)) {
+			node->syn_flags |= s_dfi_flag_activity;
+			node->syn_flags &= ~s_dfi_flag_inactive;
+		}
+		else if (MATCH(KW_DESCENDING))
+			node->syn_flags |= (s_dfi_flag_order | s_dfi_flag_descending);
+		else if (MATCH(KW_ASCENDING)) {
+			node->syn_flags |= s_dfi_flag_order;
+			node->syn_flags &= ~s_dfi_flag_inactive;
+		}
+		else if (MATCH(KW_STATISTICS))
+			node->syn_flags |= s_dfi_flag_statistics;
+		else
+			break;
+	}
+
+	if (!node->syn_flags)
+		SYNTAX_ERROR(195);		/* Msg195 index state option */
+
+	command_end();
+
+	return node;
+}
+
+
+static SYN parse_modify_relation(void)
+{
+/**************************************
+ *
+ *	p a r s e _ m o d i f y _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a MODIFY RELATION statement. 
+ *
+ **************************************/
+	SYN node;
+	REL relation;
+	FLD field;
+
+	node = SYNTAX_NODE(nod_mod_relation, 2);
+	relation = parse_qualified_relation();
+	node->syn_arg[0] = (SYN) relation;
+
+	if (!relation)
+		SYNTAX_ERROR(196);		/* Msg196 relation name */
+
+	for (;;) {
+		PAR_real();
+		if (MATCH(KW_ADD)) {
+			PAR_real();
+			MATCH(KW_FIELD);
+			field = parse_field(FALSE);
+		}
+		else if (MATCH(KW_MODIFY)) {
+			PAR_real();
+			MATCH(KW_FIELD);
+			field = parse_field(FALSE);
+			field->fld_flags |= FLD_modify;
+		}
+		else if (MATCH(KW_DROP)) {
+			PAR_real();
+			MATCH(KW_FIELD);
+			field = parse_field(FALSE);
+			field->fld_flags |= FLD_drop;
+		}
+		else
+			SYNTAX_ERROR(197);	/* Msg197 ADD, MODIFY, or DROP */
+		field->fld_next = (FLD) node->syn_arg[1];
+		node->syn_arg[1] = (SYN) field;
+		if (KEYWORD(KW_SEMI))
+			break;
+		if (!MATCH(KW_COMMA))
+			SYNTAX_ERROR(198);	/* Msg198 comma between field definitions */
+	}
+
+	command_end();
+
+	return node;
+}
+
+
+static SYN parse_multiply( USHORT * paren_count, USHORT * bool_flag)
+{
+/**************************************
+ *
+ *	p a r s e _ m u l t i p l y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the operators * and /.
+ *
+ **************************************/
+	SYN node, arg;
+	NOD_T operator;
+
+	node = parse_from(paren_count, bool_flag);
+
+	while (TRUE) {
+		if (MATCH(KW_ASTERISK))
+			operator = nod_multiply;
+		else if (MATCH(KW_SLASH))
+			operator = nod_divide;
+		else
+			return node;
+		arg = node;
+		node = SYNTAX_NODE(operator, 2);
+		node->syn_arg[0] = arg;
+		node->syn_arg[1] = parse_from(paren_count, bool_flag);
+	}
+}
+
+
+static NAM parse_name(void)
+{
+/**************************************
+ *
+ *	p a r s e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Turn current token into a name and get the next token.
+ *
+ **************************************/
+	NAM name;
+	SSHORT l;
+	TEXT c, *p, *q;
+
+	PAR_real();
+
+	if (QLI_token->tok_type != tok_ident)
+		SYNTAX_ERROR(199);		/* Msg199 identifier */
+
+	l = QLI_token->tok_length;
+	name = (NAM) ALLOCDV(type_nam, l);
+	name->nam_length = l;
+	name->nam_symbol = QLI_token->tok_symbol;
+	q = QLI_token->tok_string;
+	p = name->nam_string;
+
+	if (l)
+		do {
+			c = *q++;
+			*p++ = UPPER(c);
+#ifdef JPN_SJIS
+
+			/* Do not upcase second byte of a sjis kanji character */
+
+			if ((KANJI1(c)) && (l > 1)) {
+				*p++ = *q++;
+				--l;
+			}
+
+#endif /* JPN_SJIS */
+
+		} while (--l);
+
+	PAR_token();
+
+	return name;
+}
+
+
+static SYN parse_not( USHORT * paren_count)
+{
+/**************************************
+ *
+ *	p a r s e _ n o t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a prefix NOT expression.
+ *
+ **************************************/
+
+	PAR_real();
+
+	if (!MATCH(KW_NOT))
+		return parse_relational(paren_count);
+
+	return negate(parse_not(paren_count));
+}
+
+
+static int parse_ordinal(void)
+{
+/**************************************
+ *
+ *	p a r s e _ o r d i n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a simple number as a number.  This is 
+ *	used for SKIP [n], SPACE [n], COL n, and SQL 
+ *	positions.
+ *
+ **************************************/
+	int n;
+
+	PAR_real();
+
+	if (QLI_token->tok_type != tok_number)
+		SYNTAX_ERROR(200);		/* Msg200 positive number */
+
+	n = atoi(QLI_token->tok_string);
+	if (n < 0)
+		SYNTAX_ERROR(200);		/* Msg200 positive number */
+	PAR_token();
+
+	return n;
+}
+
+
+static SYN parse_output(void)
+{
+/**************************************
+ *
+ *	p a r s e _ o u t p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an output clause the the absence thereof.
+ *
+ **************************************/
+	SYN node;
+	USHORT flag;
+
+	if (MATCH(KW_ON))
+		flag = FALSE;
+	else if (MATCH(KW_TO))
+		flag = TRUE;
+	else
+		return NULL;
+
+	node = SYNTAX_NODE(nod_output, s_out_count);
+	node->syn_arg[s_out_file] = parse_value(0, 0);
+	node->syn_arg[s_out_pipe] = INT_CAST flag;
+
+	return node;
+}
+
+
+static SYN parse_primitive_value( USHORT * paren_count, USHORT * bool_flag)
+{
+/**************************************
+ *
+ *	p a r s e _ p r i m i t i v e _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a value expression.  This may be either a field reference
+ *	or a constant value.
+ *
+ **************************************/
+	SYM symbol;
+	SYN node, sub;
+	CON constant;
+	UCHAR *p;
+	USHORT local_count;
+
+	if (!paren_count) {
+		local_count = 0;
+		paren_count = &local_count;
+	}
+
+	PAR_real();
+
+	switch (next_keyword()) {
+	case KW_LEFT_PAREN:
+		PAR_token();
+		(*paren_count)++;
+		if (bool_flag && *bool_flag)
+			node = parse_boolean(paren_count);
+		else
+			node = parse_value(paren_count, bool_flag);
+/*
+	if (*paren_count && KEYWORD (KW_RIGHT_PAREN))
+*/
+		{
+			parse_matching_paren();
+			(*paren_count)--;
+		}
+		break;
+
+	case KW_PLUS:
+		PAR_token();
+		return parse_primitive_value(paren_count, 0);
+
+	case KW_MINUS:
+		PAR_token();
+		sub = parse_primitive_value(paren_count, 0);
+		if (sub->syn_type == nod_constant) {
+			constant = (CON) sub->syn_arg[0];
+			p = constant->con_desc.dsc_address;
+			switch (constant->con_desc.dsc_dtype) {
+			case dtype_long:
+				*(SLONG *) p = -*(SLONG *) p;
+				return sub;
+			case dtype_text:
+				*p = '-';
+				return sub;
+			}
+		}
+		node = SYNTAX_NODE(nod_negate, 1);
+		node->syn_arg[0] = sub;
+		break;
+
+	case KW_ASTERISK:
+		node = parse_prompt();
+		break;
+
+	case KW_EDIT:
+		PAR_token();
+		node = SYNTAX_NODE(nod_edit_blob, 1);
+		if (!KEYWORD(KW_SEMI))
+			node->syn_arg[0] = parse_value(0, 0);
+		break;
+
+	case KW_FORMAT:
+		PAR_token();
+		node = SYNTAX_NODE(nod_format, s_fmt_count);
+		node->syn_arg[s_fmt_value] = parse_value(0, 0);
+		node->syn_arg[s_fmt_edit] = (SYN) parse_edit_string();
+		break;
+
+	case KW_NULL:
+		PAR_token();
+		node = SYNTAX_NODE(nod_null, 0);
+		break;
+
+	case KW_USER_NAME:
+		PAR_token();
+		node = SYNTAX_NODE(nod_user_name, 0);
+		break;
+
+	case KW_COUNT:
+	case KW_MAX:
+	case KW_MIN:
+	case KW_AVERAGE:
+	case KW_TOTAL:
+		node = parse_statistical();
+		break;
+
+	case KW_RUNNING:
+		if (function_count > 0)
+			IBERROR(487);		/* Msg487 Invalid argument for UDF */
+		PAR_real_token();
+		node = SYNTAX_NODE(nod_running_total, s_stt_count);
+		if (MATCH(KW_COUNT))
+			node->syn_type = nod_running_count;
+		else {
+			MATCH(KW_TOTAL);
+			node->syn_arg[s_stt_value] = parse_value(0, 0);
+		}
+		break;
+
+	case KW_SELECT:
+		node = parse_sql_subquery();
+		break;
+
+	default:
+		if ((symbol = QLI_token->tok_symbol)
+			&& symbol->sym_type == SYM_function) {
+			node = parse_function();
+			break;
+		}
+		if (QLI_token->tok_type == tok_ident) {
+			node = parse_field_name(0);
+			break;
+		}
+		node = SYNTAX_NODE(nod_constant, 1);
+		node->syn_arg[0] = (SYN) parse_literal();
+	}
+
+	return node;
+}
+
+
+static SYN parse_print_list(void)
+{
+/**************************************
+ *
+ *	p a r s e _ p r i n t _ l i s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a print item.  The syntax of a print item is:
+ *
+ *	<value> [ '[ <query_header> '] ] [USING <edit_string> ]
+ *
+ **************************************/
+	NOD_T op;
+	SYN node;
+	LLS stack;
+
+	stack = NULL;
+
+	while (TRUE) {
+		if (MATCH(KW_SKIP))
+			op = nod_skip;
+		else if (MATCH(KW_SPACE))
+			op = nod_space;
+		else if (MATCH(KW_TAB))
+			op = nod_tab;
+		else if (MATCH(KW_COLUMN))
+			op = nod_column;
+		else if (MATCH(KW_NEW_PAGE))
+			op = nod_new_page;
+		else if (MATCH(KW_REPORT_HEADER))
+			op = nod_report_header;
+		else if (MATCH(KW_COLUMN_HEADER))
+			op = nod_column_header;
+		else {
+			op = nod_print_item;
+			node = SYNTAX_NODE(nod_print_item, s_itm_count);
+			node->syn_arg[s_itm_value] = parse_value(0, 0);
+			if (MATCH(KW_LEFT_PAREN)) {
+				if (MATCH(KW_MINUS))
+					node->syn_arg[s_itm_header] = (SYN) "-";
+				else
+					node->syn_arg[s_itm_header] = (SYN) parse_header();
+				parse_matching_paren();
+			}
+			node->syn_arg[s_itm_edit_string] = (SYN) parse_edit_string();
+		}
+		if (op != nod_print_item) {
+			node = SYNTAX_NODE(op, 1);
+			node->syn_count = 0;
+			node->syn_arg[0] = INT_CAST 1;
+			if (op == nod_column || QLI_token->tok_type == tok_number)
+				node->syn_arg[0] = INT_CAST parse_ordinal();
+			if ((op == nod_skip) && ((int) node->syn_arg[0] < 1))
+				SYNTAX_ERROR(478);	/* Msg478 number > 0 */
+		}
+		LLS_PUSH(node, &stack);
+		if (!MATCH(KW_COMMA) && !MATCH(KW_AND))
+			break;
+		PAR_real();
+		if (MATCH(KW_AND))
+			PAR_real();
+	}
+
+	node = make_list(stack);
+
+	return node;
+}
+
+
+static SYN parse_print(void)
+{
+/**************************************
+ *
+ *	p a r s e _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the PRINT statement.  This is the richest and most general
+ *	Datatrieve statement.  Hence this may get a bit long.  The syntax is:
+ *
+ *		[<item> [, <item>]] OF <rse>
+ *	PRINT [ 			     ] [ON <file>]
+ *		<rse>
+ *
+ **************************************/
+	SYN node;
+
+	node = SYNTAX_NODE(nod_print, s_prt_count);
+	PAR_token();
+
+	if (!MATCH(KW_ALL) && MATCH(KW_DISTINCT))
+		node->syn_arg[s_prt_distinct] = INT_CAST TRUE;
+
+	if (node->syn_arg[s_prt_output] = parse_output())
+		return node;
+
+	if (test_end())
+		return node;
+
+/* If there is a potential record selection expression, there obviously
+   can't be a print list.  Get the rse.  Otherwise, pick up the print
+   list. */
+
+	if (potential_rse())
+		node->syn_arg[s_prt_rse] = parse_rse();
+	else if (!KEYWORD(KW_USING)) {
+		if (!KEYWORD(KW_THEN) && !KEYWORD(KW_OF) && !KEYWORD(KW_ON))
+			node->syn_arg[s_prt_list] = parse_print_list();
+		if (MATCH(KW_OF))
+			node->syn_arg[s_prt_rse] = parse_rse();
+	}
+
+	if (!node->syn_arg[s_prt_list] && MATCH(KW_USING)) {
+#ifdef NO_PYXIS
+		IBERROR(484);			/* FORMs not supported */
+#else
+		if (!MATCH(KW_FORM))
+			SYNTAX_ERROR(201);	/* Msg201 FORM */
+		node->syn_arg[s_prt_form] = parse_form();
+#endif
+	}
+	else
+		node->syn_arg[s_prt_output] = parse_output();
+
+	return node;
+}
+
+
+static SYN parse_prompt(void)
+{
+/**************************************
+ *
+ *	p a r s e _ p r o m p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a prompt expression.
+ *
+ **************************************/
+	SYN node;
+	USHORT l;
+	TEXT *q;
+
+	PAR_token();
+	node = SYNTAX_NODE(nod_prompt, 1);
+
+/* If there is a period, get the prompt string and make a string node */
+
+	if (MATCH(KW_DOT)) {
+		PAR_real();
+		l = QLI_token->tok_length;
+		q = QLI_token->tok_string;
+		if (QLI_token->tok_type == tok_quoted) {
+			q++;
+			l -= 2;
+		}
+		node->syn_arg[0] = (SYN) make_string(q, l);
+		PAR_token();
+	}
+
+	return node;
+}
+
+
+static QFL parse_qualified_filter(void)
+{
+/**************************************
+ *
+ *	p a r s e _ q u a l i f i e d _ f i l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	This token ought to be a filter, possibly qualified.
+ *	Return a qualified filter block, containing the 
+ *	filter name in a NAM block and the database in a
+ *	DBB block if a database was specified.  Somebody
+ *	else will decide what to do if the database was not
+ *	specified.
+ *
+ **************************************/
+	QFL filter;
+
+	filter = (QFL) ALLOCD(type_qfl);
+	filter->qfl_database = parse_database();
+	filter->qfl_name = parse_name();
+	return filter;
+}
+
+
+
+static QFN parse_qualified_function(void)
+{
+/**************************************
+ *
+ *	p a r s e _ q u a l i f i e d _ f u n c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	This token ought to be a function, possibly qualified.
+ *	Return a qualified function block, containing the 
+ *	function name in a NAM block and the database in a
+ *	DBB block if a database was specified.  Somebody
+ *	else will decide what to do if the database was not
+ *	specified.
+ *
+ **************************************/
+	QFN func;
+
+	func = (QFN) ALLOCD(type_qfn);
+	func->qfn_database = parse_database();
+	func->qfn_name = parse_name();
+	return func;
+}
+
+
+static QPR parse_qualified_procedure(void)
+{
+/**************************************
+ *
+ *	p a r s e _ q u a l i f i e d _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	This token ought to be a procedure, possibly qualified.
+ *	Return a qualified procedure block, containing the 
+ *	procedure name in a NAM block and the database in a
+ *	DBB block if a database was specified.  Somebody
+ *	else will decide what to do if the database was not
+ *	specified.
+ *
+ **************************************/
+	QPR proc;
+
+	proc = (QPR) ALLOCD(type_qpr);
+	proc->qpr_database = parse_database();
+	proc->qpr_name = parse_name();
+	return proc;
+}
+
+
+static REL parse_qualified_relation(void)
+{
+/**************************************
+ *
+ *	p a r s e _ q u a l i f i e d _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for a relation name, possible qualified.  If there
+ *	is a relation name, parse it and return the relation.  If
+ *	not, return NULL.  Produce a syntax error only if there is
+ *	a partially qualified name.
+ *
+ **************************************/
+	SYM db_symbol;
+	REL relation;
+
+	PAR_real();
+
+/* If the next token is a database symbol, take it as a qualifier */
+
+	if ((db_symbol = QLI_token->tok_symbol)
+		&& db_symbol->sym_type == SYM_database) {
+		PAR_real_token();
+		if (!MATCH(KW_DOT))
+			SYNTAX_ERROR(202);	/* Msg202 period in qualified relation name */
+		PAR_real();
+		if (relation = resolve_relation(db_symbol, QLI_token->tok_symbol)) {
+			PAR_token();
+			return relation;
+		}
+		ERRQ_print_error(203, QLI_token->tok_string, db_symbol->sym_string,
+						 NULL, NULL, NULL);	/* Msg203 %s is not a relation in database %s */
+	}
+
+	if (relation = resolve_relation(0, QLI_token->tok_symbol))
+		PAR_token();
+
+	return relation;
+}
+
+
+static SYN parse_ready( NOD_T node_type)
+{
+/**************************************
+ *
+ *	p a r s e _ r e a d y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a READY statement: 
+ *
+ *	READY <filename> [AS <symbol>] [,...];
+ *
+ **************************************/
+	SYN node;
+	DBB database;
+	NAM name;
+	LLS stack;
+	SSHORT l;
+	TEXT *p, *q;
+
+	stack = NULL;
+
+	while (TRUE) {
+		LEX_filename();
+		if (!(l = QLI_token->tok_length))
+			ERRQ_error(204, NULL, NULL, NULL, NULL, NULL);	/* Msg204 database file name required on READY */
+		q = QLI_token->tok_string;
+		if (QLI_token->tok_type == tok_quoted) {
+			l -= 2;
+			q++;
+		}
+		database = (DBB) ALLOCDV(type_dbb, l);
+		database->dbb_filename_length = l;
+		p = database->dbb_filename;
+		do
+			*p++ = *q++;
+		while (--l);
+		PAR_token();
+
+		if (node_type == nod_def_database || node_type == nod_ready) {
+			if (MATCH(KW_AS)) {
+				name = parse_name();
+				database->dbb_symbol = (SYM) name;
+				if (HSH_lookup(name->nam_string, name->nam_length))
+					ERRQ_error(408, name->nam_string, NULL, NULL, NULL, NULL);	/* Database handle is not unique */
+			}
+			else
+				database->dbb_symbol = (SYM) make_name();
+		}
+		else if (node_type == nod_sql_database) {
+			if (MATCH(KW_PAGESIZE)) {
+				if (database->dbb_pagesize)
+					SYNTAX_ERROR(390);	/* Msg390 Multiple page size specifications */
+				if (!MATCH(KW_EQUALS))
+					SYNTAX_ERROR(396);	/* Msg396 = (equals) */
+				database->dbb_pagesize = parse_ordinal();
+			}
+			database->dbb_symbol = (SYM) make_name();
+		}
+
+		for (;;) {
+			if (MATCH(KW_USER))
+				database->dbb_user = parse_literal();
+			else if (MATCH(KW_PASSWORD))
+				database->dbb_password = parse_literal();
+			else
+				break;
+		}
+
+		LLS_PUSH(database, &stack);
+		if (!KEYWORD(KW_COMMA) || (node_type == nod_sql_database))
+			break;
+	}
+
+	command_end();
+	node = make_list(stack);
+	node->syn_type = node_type;
+
+	return node;
+}
+
+
+static SYN parse_relational( USHORT * paren_count)
+{
+/**************************************
+ *
+ *	p a r s e _ r e l a t i o n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a relational expression.
+ *
+ **************************************/
+	SYN node, expr1, or_node;
+	USHORT negation;
+	NOD_T operator, *rel_ops;
+	USHORT local_flag;
+
+	local_flag = TRUE;
+
+	if (MATCH(KW_ANY)) {
+		node = SYNTAX_NODE(nod_any, 1);
+		node->syn_arg[0] = parse_rse();
+		return node;
+	}
+
+	operator = (NOD_T) 0;
+	if (MATCH(KW_EXISTS))
+		operator = nod_any;
+	else if (MATCH(KW_SINGULAR))
+		operator = nod_unique;
+
+	if (operator != (NOD_T) 0) {
+		PAR_real();
+		if (MATCH(KW_LEFT_PAREN)) {
+			PAR_real();
+			if (MATCH(KW_SELECT)) {
+				PAR_real();
+				node = SYNTAX_NODE(operator, 2);
+				if (!MATCH(KW_ASTERISK))
+					node->syn_arg[1] = parse_value(0, 0);
+				node->syn_arg[0] = parse_sql_rse();
+				parse_matching_paren();
+				return node;
+			}
+		}
+		if (operator == nod_any)
+			SYNTAX_ERROR(205);	/* Msg205 EXISTS (SELECT * <sql rse>) */
+		else
+			SYNTAX_ERROR(488);	/* Msg488 SINGULAR (SELECT * <sql rse>) */
+	}
+
+	if (MATCH(KW_UNIQUE)) {
+		node = SYNTAX_NODE(nod_unique, 1);
+		node->syn_arg[0] = parse_rse();
+		return node;
+	}
+
+	expr1 = parse_value(paren_count, &local_flag);
+	if (KEYWORD(KW_RIGHT_PAREN))
+		return expr1;
+	if (KEYWORD(KW_SEMI))
+		for (rel_ops = relationals; *rel_ops != (NOD_T) 0; rel_ops++)
+			if (expr1->syn_type == *rel_ops)
+				return expr1;
+
+	negation = FALSE;
+	node = NULL;
+	MATCH(KW_IS);
+	PAR_real();
+
+	if (MATCH(KW_NOT)) {
+		negation = TRUE;
+		PAR_real();
+	}
+
+	switch (next_keyword()) {
+	case KW_IN:
+		PAR_token();
+		node = parse_in(expr1, nod_eql, FALSE);
+		break;
+
+	case KW_EQUALS:
+	case KW_EQ:
+		operator = (negation) ? nod_neq : nod_eql;
+		negation = FALSE;
+		break;
+
+	case KW_NE:
+		operator = (negation) ? nod_eql : nod_neq;
+		negation = FALSE;
+		break;
+
+	case KW_GT:
+		operator = (negation) ? nod_leq : nod_gtr;
+		negation = FALSE;
+		break;
+
+	case KW_GE:
+		operator = (negation) ? nod_lss : nod_geq;
+		negation = FALSE;
+		break;
+
+	case KW_LE:
+		operator = (negation) ? nod_gtr : nod_leq;
+		negation = FALSE;
+		break;
+
+	case KW_LT:
+		operator = (negation) ? nod_geq : nod_lss;
+		negation = FALSE;
+		break;
+
+	case KW_CONTAINING:
+		operator = nod_containing;
+		break;
+
+	case KW_MATCHES:
+		node = parse_matches();
+		node->syn_arg[0] = expr1;
+		operator = node->syn_type;
+		break;
+
+	case KW_LIKE:
+		PAR_token();
+		node = SYNTAX_NODE(nod_like, 3);
+		node->syn_arg[0] = expr1;
+		node->syn_arg[1] = parse_value(0, 0);
+		if (MATCH(KW_ESCAPE))
+			node->syn_arg[2] = parse_value(0, 0);
+		else
+			node->syn_count = 2;
+		break;
+
+
+	case KW_STARTS:
+		PAR_token();
+		MATCH(KW_WITH);
+		node = SYNTAX_NODE(nod_starts, 2);
+		node->syn_arg[0] = expr1;
+		node->syn_arg[1] = parse_value(0, 0);
+		break;
+
+	case KW_NULL:
+	case KW_MISSING:
+		PAR_token();
+		node = SYNTAX_NODE(nod_missing, 1);
+		node->syn_arg[0] = expr1;
+		break;
+
+	case KW_BETWEEN:
+		PAR_token();
+		node = SYNTAX_NODE(nod_between, 3);
+		node->syn_arg[0] = expr1;
+		node->syn_arg[1] = parse_value(0, 0);
+		MATCH(KW_AND);
+		node->syn_arg[2] = parse_value(0, 0);
+		break;
+
+	default:
+		for (rel_ops = relationals; *rel_ops != (NOD_T) 0; rel_ops++)
+			if (expr1->syn_type == *rel_ops)
+				return expr1;
+		SYNTAX_ERROR(206);		/* Msg206 relational operator */
+	}
+
+/* If we haven't already built a node, it must be an ordinary binary operator.
+   Build it. */
+
+	if (!node) {
+		PAR_token();
+		if (MATCH(KW_ANY))
+			return parse_in(expr1, operator, FALSE);
+		if (MATCH(KW_ALL))
+			return parse_in(expr1, operator, TRUE);
+		node = SYNTAX_NODE(operator, 2);
+		node->syn_arg[0] = expr1;
+		node->syn_arg[1] = parse_value(paren_count, &local_flag);
+	}
+
+/* If a negation remains to be handled, zap the node under a NOT. */
+
+	if (negation)
+		node = negate(node);
+
+/*  If the node isn't an equality, we've done.  Since equalities can be
+    structured as implicit ORs, build them here. */
+
+	if (operator != nod_eql)
+		return node;
+
+/* We have an equality operation, which can take a number of values.  Generate
+   implicit ORs */
+
+	while (MATCH(KW_COMMA)) {
+		PAR_real();
+		MATCH(KW_OR);
+		or_node = SYNTAX_NODE(nod_or, 2);
+		or_node->syn_arg[0] = node;
+		or_node->syn_arg[1] = node = SYNTAX_NODE(nod_eql, 2);
+		node->syn_arg[0] = expr1;
+		node->syn_arg[1] = parse_value(paren_count, &local_flag);
+		node = or_node;
+	}
+
+	return node;
+}
+
+
+static SYN parse_relation(void)
+{
+/**************************************
+ *
+ *	p a r s e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a relation expression.  Syntax is:
+ *
+ *	[ <context_variable> IN ] <relation>
+ *
+ **************************************/
+	SYN node;
+	SYM context;
+
+	node = SYNTAX_NODE(nod_relation, s_rel_count);
+
+/* Token wasn't a relation name, maybe it's a context variable. */
+
+	if (!(node->syn_arg[s_rel_relation] = (SYN) parse_qualified_relation())) {
+		context = parse_symbol();
+		node->syn_arg[s_rel_context] = (SYN) context;
+		if (sql_flag || !MATCH(KW_IN)) {
+			if (!QLI_databases)
+				IBERROR(207);	/* Msg207 a database has not been readied */
+			ERRQ_print_error(208, context->sym_string, NULL, NULL, NULL, NULL);	/* Msg208 expected \"relation_name\", encountered \"%s\ */
+		}
+		if (!
+			(node->syn_arg[s_rel_relation] =
+			 (SYN) parse_qualified_relation()))SYNTAX_ERROR(209);	/* Msg209 relation name */
+	}
+
+	return node;
+}
+
+
+static SYN parse_rename(void)
+{
+/**************************************
+ *
+ *	p a r s e _ r e n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a PROCEDURE rename statement.
+ *
+ **************************************/
+	SYN node;
+
+	PAR_real_token();
+
+	if (!MATCH(KW_PROCEDURE))
+		SYNTAX_ERROR(210);		/* Msg210 PROCEDURE */
+
+	node = SYNTAX_NODE(nod_rename_proc, 2);
+	node->syn_arg[0] = (SYN) parse_qualified_procedure();
+	MATCH(KW_TO);
+	node->syn_arg[1] = (SYN) parse_qualified_procedure();
+
+	return node;
+}
+
+
+static SYN parse_repeat(void)
+{
+/**************************************
+ *
+ *	p a r s e _ r e p e a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse REPEAT statement.
+ *
+ **************************************/
+	SYN node;
+
+	PAR_token();
+	node = SYNTAX_NODE(nod_repeat, s_rpt_count);
+	node->syn_arg[s_rpt_value] = parse_value(0, 0);
+	node->syn_arg[s_rpt_statement] = parse_statement();
+
+	return node;
+}
+
+
+static SYN parse_report(void)
+{
+/**************************************
+ *
+ *	p a r s e _ r e p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a report specification.
+ *
+ **************************************/
+	SYN node, rse, flds, fld, rse_fld;
+	RPT report;
+	BRK control, *ptr, tmpptr, tmpptr1;
+	USHORT top, i, srt_syn, ctl_syn, syn_count;
+	NAM name1, name2;
+
+	++sw_report;
+	PAR_token();
+	report = (RPT) ALLOCD(type_rpt);
+	node = SYNTAX_NODE(nod_report, s_prt_count);
+	node->syn_arg[s_prt_list] = (SYN) report;
+
+/* Pick up record select expression */
+
+	rse = node->syn_arg[s_prt_rse] = parse_rse();
+	node->syn_arg[s_prt_output] = parse_output();
+
+/* Pick up report clauses */
+
+	for (;;) {
+		PAR_real();
+		if (MATCH(KW_END_REPORT))
+			break;
+		switch (next_keyword()) {
+		case KW_PRINT:
+			PAR_token();
+			report->rpt_detail_line = (NOD) parse_print_list();
+			break;
+
+		case KW_AT:
+			PAR_token();
+			if (MATCH(KW_TOP))
+				top = TRUE;
+			else if (MATCH(KW_BOTTOM))
+				top = FALSE;
+			else
+				SYNTAX_ERROR(382);	/* Msg382 TOP or BOTTOM */
+			MATCH(KW_OF);
+			if (MATCH(KW_REPORT)) {
+				control = (BRK) ALLOCD(type_brk);
+				ptr = (top) ? &report->rpt_top_rpt : &report->rpt_bottom_rpt;
+				control->brk_next = *ptr;
+				*ptr = control;
+				MATCH(KW_PRINT);
+				control->brk_line = parse_print_list();
+			}
+			else if (MATCH(KW_PAGE)) {
+				control = (BRK) ALLOCD(type_brk);
+				ptr =
+					(top) ? &report->rpt_top_page : &report->rpt_bottom_page;
+				control->brk_next = *ptr;
+				*ptr = control;
+				MATCH(KW_PRINT);
+				control->brk_line = parse_print_list();
+			}
+			else {
+				ptr = (top) ? &report->rpt_top_breaks :
+					&report->rpt_bottom_breaks;
+				if (!*ptr) {
+					/* control breaks should only be on sorted fields, set up list
+					   of control breaks based on sorted fields and then add action (print)
+					   items to that list. */
+					if (!(flds = rse->syn_arg[s_rse_sort]))
+						SYNTAX_ERROR(383);	/* Msg383 sort field */
+					tmpptr = *ptr;
+					for (i = 0; i < flds->syn_count; i += 2) {
+						control = (BRK) ALLOCD(type_brk);
+						control->brk_field = flds->syn_arg[i];
+						control->brk_line = NULL;
+						control->brk_statisticals = NULL;
+						control->brk_next = tmpptr;
+						tmpptr = control;
+					}
+					if (!top) {
+						/* reverse the 'at bottom' control break list as the
+						   lower control breaks should be performed prior to the higher ones. */
+						for (tmpptr1 = tmpptr->brk_next, control = 0; tmpptr;) {
+							tmpptr->brk_next = control;
+							control = tmpptr;
+							if (tmpptr = tmpptr1)
+								tmpptr1 = tmpptr->brk_next;
+						}
+						tmpptr = control;
+					}
+					*ptr = tmpptr;
+				}
+				fld = parse_field_name(0);
+				for (control = *ptr; control; control = control->brk_next) {
+					rse_fld = (SYN) control->brk_field;
+					if (rse_fld->syn_type != fld->syn_type)
+						continue;
+					/* if number of field qualifiers on sort field and control field
+					   are not equal test match of rightmost set */
+					syn_count = MIN(rse_fld->syn_count, fld->syn_count);
+					srt_syn = ctl_syn = 0;
+					if (syn_count != rse_fld->syn_count)
+						srt_syn = rse_fld->syn_count - syn_count;
+					if (syn_count != fld->syn_count)
+						ctl_syn = fld->syn_count - syn_count;
+					for (i = 0; i < syn_count; i++) {
+						name1 = (NAM) rse_fld->syn_arg[i + srt_syn];
+						name2 = (NAM) fld->syn_arg[i + ctl_syn];
+						if (strcmp(name1->nam_string, name2->nam_string))
+							break;
+					}
+					if (i == fld->syn_count)
+						break;
+				}
+				if (!control)
+					SYNTAX_ERROR(383);	/* Msg383 sort field */
+				MATCH(KW_PRINT);
+				control->brk_field = fld;
+				control->brk_line = parse_print_list();
+			}
+			break;
+
+		case KW_SET:
+			PAR_token();
+			if (MATCH(KW_COLUMNS)) {
+				MATCH(KW_EQUALS);
+				report->rpt_columns = parse_ordinal();
+			}
+			else if (MATCH(KW_LINES)) {
+				MATCH(KW_EQUALS);
+				report->rpt_lines = parse_ordinal();
+			}
+			else if (MATCH(KW_REPORT_NAME)) {
+				MATCH(KW_EQUALS);
+				report->rpt_name = (TEXT *) parse_header();
+			}
+			else
+				SYNTAX_ERROR(212);	/* Msg212 report writer SET option */
+			break;
+
+		default:
+			SYNTAX_ERROR(213);	/* Msg213 report item */
+		}
+		MATCH(KW_SEMI);
+	}
+
+	if (!node->syn_arg[s_prt_output])
+		node->syn_arg[s_prt_output] = parse_output();
+
+	check_end();
+	--sw_report;
+
+	return node;
+}
+
+
+static SYN parse_rse(void)
+{
+/**************************************
+ *
+ *	p a r s e _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a record selection expression.
+ *
+ **************************************/
+	SYN node, first, over, *ptr;
+	LLS stack, field_stack;
+	USHORT count, sw_with;
+
+	count = sw_with = 0;
+	first = NULL;
+	stack = NULL;
+	PAR_real();
+
+	if (MATCH(KW_ALL))
+		PAR_real();
+
+	if (MATCH(KW_FIRST))
+		first = parse_value(0, 0);
+
+	while (TRUE) {
+		count++;
+		LLS_PUSH(parse_relation(), &stack);
+		over = NULL;
+		if (MATCH(KW_OVER)) {
+			field_stack = NULL;
+			while (TRUE) {
+				LLS_PUSH(parse_field_name(0), &field_stack);
+				if (!MATCH(KW_COMMA))
+					break;
+			}
+			over = make_list(field_stack);
+		}
+		LLS_PUSH(over, &stack);
+		if (!MATCH(KW_CROSS))
+			break;
+	}
+
+	node = SYNTAX_NODE(nod_rse, (int) s_rse_count + 2 * count);
+	node->syn_count = count;
+	node->syn_arg[s_rse_first] = first;
+	ptr = &node->syn_arg[(int) s_rse_count + 2 * count];
+
+	while (stack)
+		*--ptr = (SYN) LLS_POP(&stack);
+
+/* Pick up various other clauses */
+
+	while (TRUE) {
+		if (MATCH(KW_WITH)) {
+			if (!sw_with) {
+				sw_with++;
+				node->syn_arg[s_rse_boolean] = parse_boolean(0);
+			}
+			else
+				IBERROR(384);	/* Msg384 Too many WITHs */
+		}
+
+		else if (MATCH(KW_SORTED)) {
+			PAR_real();
+			MATCH(KW_BY);
+			node->syn_arg[s_rse_sort] = parse_sort();
+		}
+
+#ifdef PC_ENGINE
+		else if (MATCH(KW_USING)) {
+			PAR_real();
+			MATCH(KW_INDEX);
+			node->syn_arg[s_rse_index] = (SYN) parse_name();
+		}
+#endif
+
+		else if (MATCH(KW_REDUCED)) {
+			PAR_real();
+			MATCH(KW_TO);
+			node->syn_arg[s_rse_reduced] = parse_sort();
+		}
+
+		else if (MATCH(KW_GROUP)) {
+			PAR_real();
+			MATCH(KW_BY);
+			stack = NULL;
+			while (TRUE) {
+				LLS_PUSH(parse_udf_or_field(), &stack);
+				if (!MATCH(KW_COMMA))
+					break;
+			}
+			node->syn_arg[s_rse_group_by] = make_list(stack);
+		}
+		else
+			break;
+	}
+
+	return node;
+}
+
+
+static SYN parse_select(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s e l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a SQL select statement.
+ *
+ **************************************/
+	SYN node, item, rse;
+	LLS stack;
+
+	++sql_flag;
+	PAR_token();
+	node = SYNTAX_NODE(nod_print, s_prt_count);
+
+	if (!MATCH(KW_ALL) && MATCH(KW_DISTINCT))
+		node->syn_arg[s_prt_distinct] = INT_CAST TRUE;
+
+/* Get list of items */
+
+	if (!MATCH(KW_ASTERISK)) {
+		stack = NULL;
+		while (TRUE) {
+			item = SYNTAX_NODE(nod_print_item, s_itm_count);
+			item->syn_arg[s_itm_value] = parse_value(0, 0);
+			LLS_PUSH(item, &stack);
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+		node->syn_arg[s_prt_list] = make_list(stack);
+	}
+
+	node->syn_arg[s_prt_rse] = rse = parse_sql_rse();
+	rse->syn_arg[s_rse_list] = node->syn_arg[s_prt_list];
+
+	if (MATCH(KW_ORDER)) {
+		PAR_real();
+		MATCH(KW_BY);
+		node->syn_arg[s_prt_order] = parse_sort();
+	}
+
+	--sql_flag;
+
+	return node;
+}
+
+
+static SYN parse_set(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a SET statement.
+ *
+ **************************************/
+	SYN node;
+	LLS stack;
+	ENUM set_t sw;
+	USHORT count;
+	U_IPTR value;
+	PAR_token();
+	stack = NULL;
+	count = 0;
+
+	while (TRUE) {
+		PAR_real();
+		value = TRUE;
+		if (MATCH(KW_NO)) {
+			value = FALSE;
+			PAR_real();
+		}
+		switch (QLI_token->tok_keyword) {
+		case KW_BLR:
+			sw = set_blr;
+			PAR_token();
+			break;
+
+		case KW_STATISTICS:
+			sw = set_statistics;
+			PAR_token();
+			break;
+
+		case KW_COLUMNS:
+			sw = set_columns;
+			PAR_token();
+			MATCH(KW_EQUALS);
+			value = parse_ordinal();
+			break;
+
+		case KW_LINES:
+			sw = set_lines;
+			PAR_token();
+			MATCH(KW_EQUALS);
+			value = parse_ordinal();
+			break;
+
+		case KW_SEMICOLON:
+			sw = set_semi;
+			PAR_token();
+			break;
+
+		case KW_ECHO:
+			sw = set_echo;
+			PAR_token();
+			break;
+
+		case KW_FORM:
+		case KW_FORMS:
+#ifdef NO_PYXIS
+			IBERROR(484);		/* FORMs not supported */
+#else
+			sw = set_form;
+			PAR_token();
+#endif
+			break;
+
+		case KW_MATCHING_LANGUAGE:
+			sw = set_matching_language;
+			PAR_token();
+			MATCH(KW_EQUALS);
+			if (value)
+				value = (U_IPTR) parse_literal();
+			break;
+
+		case KW_PASSWORD:
+			sw = set_password;
+			PAR_token();
+			value = (U_IPTR) parse_literal();
+			break;
+
+		case KW_PROMPT:
+			sw = set_prompt;
+			PAR_token();
+			value = (U_IPTR) parse_literal();
+			break;
+
+		case KW_CONT_PROMPT:
+			sw = set_continuation;
+			PAR_token();
+			value = (U_IPTR) parse_literal();
+			break;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+		case KW_EUC_JUSTIFY:
+			sw = set_euc_justify;
+			PAR_token();
+			break;
+#endif
+
+		case KW_USER:
+			sw = set_user;
+			PAR_token();
+			value = (U_IPTR) parse_literal();
+			break;
+
+		case KW_COUNT:
+			sw = set_count;
+			PAR_token();
+			break;
+
+		case KW_CHAR:
+			sw = set_charset;
+			PAR_token();
+			MATCH(KW_SET);
+			if (value) {		/* allow for NO */
+				MATCH(KW_EQUALS);
+				value = (U_IPTR) parse_name();
+			}
+			break;
+
+		case KW_NAMES:
+			sw = set_charset;
+			PAR_token();
+			if (value) {
+				value = (U_IPTR) parse_name();
+			}
+			break;
+
+#ifdef DEV_BUILD
+		case KW_EXPLAIN:
+			sw = set_explain;
+			PAR_token();
+			break;
+
+		case KW_HEXOUT:
+			sw = set_hex_output;
+			PAR_token();
+			break;
+#endif
+
+		default:
+			SYNTAX_ERROR(214);	/* Msg214 set option */
+		}
+		LLS_PUSH(sw, &stack);
+		LLS_PUSH(value, &stack);
+		count++;
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	command_end();
+	node = make_list(stack);
+	node->syn_count = count;
+	node->syn_type = nod_set;
+
+	return node;
+}
+
+
+static SYN parse_shell(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s h e l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse SHELL command.
+ *
+ **************************************/
+	SYN node;
+
+	PAR_token();
+	node = SYNTAX_NODE(nod_shell, 1);
+
+	if (!KEYWORD(KW_SEMI))
+		node->syn_arg[0] = (SYN) parse_literal();
+
+	command_end();
+
+	return node;
+}
+
+
+static SYN parse_show(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s h o w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a SHOW statement.  The first
+ *	group are individual things (one 
+ *	named relation, field, form, ...)
+ *	
+ *	the second group are sets of things
+ *	and can be qualified with a FOR 
+ *	[DATABASE] <handle>
+ *
+ **************************************/
+	SYN node;
+	REL relation;
+	LLS stack;
+	SYM symbol;
+	ENUM show_t sw;
+	BLK value;
+	USHORT count;
+	QPR proc;
+
+	PAR_token();
+	stack = NULL;
+	count = 0;
+
+	while (TRUE) {
+		PAR_real();
+		value = NULL;
+		symbol = QLI_token->tok_symbol;
+		if (MATCH(KW_ALL))
+			sw = show_all;
+		else if (MATCH(KW_MATCHING_LANGUAGE))
+			sw = show_matching_language;
+		else if (MATCH(KW_VERSION))
+			sw = show_version;
+		else if (MATCH(KW_RELATION)) {
+			if (!(value = (BLK) parse_qualified_relation()))
+				SYNTAX_ERROR(216);	/* Msg216 relation name */
+			else
+				sw = show_relation;
+		}
+		else if (MATCH(KW_FILTER)) {
+			sw = show_filter;
+			value = (BLK) parse_qualified_filter();
+		}
+		else if (MATCH(KW_FUNCTION)) {
+			sw = show_function;
+			value = (BLK) parse_qualified_function();
+		}
+		else if ((MATCH(KW_DATABASES)) || (MATCH(KW_READY)))
+			sw = show_databases;
+		else if (MATCH(KW_DATABASE)) {
+			sw = show_database;
+			if (value = (BLK) get_dbb(QLI_token->tok_symbol))
+				PAR_token();
+		}
+		else if (MATCH(KW_FIELD)) {
+			sw = show_field;
+			value = (BLK) parse_field_name(0);
+		}
+		else if (MATCH(KW_PROCEDURE)) {
+			sw = show_procedure;
+			value = (BLK) parse_qualified_procedure();
+		}
+		else if (MATCH(KW_VARIABLE)) {
+			sw = show_variable;
+			value = (BLK) parse_name();
+		}
+		else if (MATCH(KW_VARIABLES))
+			sw = show_variables;
+		else if (MATCH(KW_FIELDS)) {
+			if (MATCH(KW_FOR)) {
+				if (MATCH(KW_DATABASE)) {
+					if (value = (BLK) get_dbb(QLI_token->tok_symbol))
+						PAR_token();
+					else
+						SYNTAX_ERROR(221);	/* Msg221 database name */
+					sw = show_db_fields;
+				}
+				else {
+					MATCH(KW_RELATION);
+					if (!(value = (BLK) parse_qualified_relation()))
+						SYNTAX_ERROR(218);	/* Msg218 relation name */
+					else
+						sw = show_relation;
+				}
+			}
+			else
+				sw = show_all;
+		}
+		else if (MATCH(KW_INDICES)) {
+			sw = show_indices;
+			if (MATCH(KW_FOR))
+				if (MATCH(KW_DATABASE)) {
+					if (value = (BLK) get_dbb(QLI_token->tok_symbol))
+						PAR_token();
+					else
+						SYNTAX_ERROR(221);	/* Msg221 database name */
+					sw = show_db_indices;
+				}
+				else if (!(value = (BLK) parse_qualified_relation()))
+					SYNTAX_ERROR(220);	/* Msg220 relation name */
+		}
+		else if (MATCH(KW_SECURITY_CLASS)) {
+			sw = show_security_class;
+			value = (BLK) parse_name();
+		}
+		else if (MATCH(KW_TRIGGERS)) {
+			sw = show_triggers;
+			if (MATCH(KW_FOR)) {
+				if (MATCH(KW_DATABASE)) {
+					if (value = (BLK) get_dbb(QLI_token->tok_symbol))
+						PAR_token();
+					else
+						SYNTAX_ERROR(221);	/* Msg221 database name */
+				}
+				else {
+					MATCH(KW_RELATION);
+					if (!(value = (BLK) parse_qualified_relation()))
+						SYNTAX_ERROR(222);	/* Msg222 relation_name */
+					sw = show_trigger;
+				}
+			}
+		}
+		else if (MATCH(KW_RELATIONS))
+			sw = show_relations;
+		else if (MATCH(KW_VIEWS))
+			sw = show_views;
+		else if (MATCH(KW_SECURITY_CLASSES))
+			sw = show_security_classes;
+		else if (MATCH(KW_SYSTEM)) {
+			if (MATCH(KW_TRIGGERS))
+				sw = show_system_triggers;
+			else if (MATCH(KW_RELATIONS) ||
+					 QLI_token->tok_type == tok_eol ||
+					 KEYWORD(KW_SEMI) || KEYWORD(KW_FOR))
+				sw = show_system_relations;
+			else
+				SYNTAX_ERROR(215);	/* Msg215 RELATIONS or TRIGGERS */
+		}
+		else if (MATCH(KW_PROCEDURES))
+			sw = show_procedures;
+		else if (MATCH(KW_FILTERS))
+			sw = show_filters;
+		else if (MATCH(KW_FUNCTIONS))
+			sw = show_functions;
+		else if (MATCH(KW_FORMS)) {
+			sw = show_forms;
+		}
+		else if (MATCH(KW_GLOBAL)) {
+			PAR_real();
+			if (MATCH(KW_FIELD)) {
+				sw = show_global_field;
+				value = (BLK) parse_field_name(0);
+			}
+			else if (MATCH(KW_FIELDS))
+				sw = show_global_fields;
+		}
+		else if (symbol && symbol->sym_type == SYM_relation) {
+			sw = show_relation;
+			value = symbol->sym_object;
+			PAR_token();
+		}
+		else if (value = (BLK) get_dbb(symbol)) {
+			sw = show_database;
+			PAR_token();
+			if (MATCH(KW_DOT))
+				if (MATCH(KW_RELATIONS))
+					sw = show_relations;
+				else if (MATCH(KW_FIELDS))
+					sw = show_db_fields;
+				else if (MATCH(KW_INDICES))
+					sw = show_db_indices;
+				else if (MATCH(KW_SECURITY_CLASS))
+					sw = show_security_class;
+				else if (MATCH(KW_TRIGGERS))
+					sw = show_triggers;
+				else if (MATCH(KW_VIEWS))
+					sw = show_views;
+				else if (MATCH(KW_SECURITY_CLASSES))
+					sw = show_security_classes;
+				else if (MATCH(KW_SYSTEM)) {
+					if (MATCH(KW_TRIGGERS))
+						sw = show_system_triggers;
+					else if (MATCH(KW_RELATIONS) ||
+							 QLI_token->tok_type == tok_eol ||
+							 KEYWORD(KW_SEMI) || KEYWORD(KW_FOR))
+						sw = show_system_relations;
+					else
+						SYNTAX_ERROR(215);	/* Msg215 RELATIONS or TRIGGERS */
+				}
+				else if (MATCH(KW_PROCEDURES))
+					sw = show_procedures;
+				else if (MATCH(KW_FILTERS))
+					sw = show_filters;
+				else if (MATCH(KW_FUNCTIONS))
+					sw = show_functions;
+				else if (MATCH(KW_FORMS))
+					sw = show_forms;
+				else if (MATCH(KW_GLOBAL)) {
+					PAR_real();
+					if (MATCH(KW_FIELD)) {
+						sw = show_global_field;
+						value = (BLK) parse_field_name(0);
+					}
+					else if (MATCH(KW_FIELDS))
+						sw = show_global_fields;
+				}
+				else if (relation =
+						 resolve_relation(symbol, QLI_token->tok_symbol)) {
+					sw = show_relation;
+					value = relation->rel_symbol->sym_object;
+					PAR_token();
+				}
+				else {
+					sw = show_procedure;
+					proc = (QPR) ALLOCD(type_qpr);
+					proc->qpr_database = (DBB) value;
+					proc->qpr_name = parse_name();
+					value = (BLK) proc;
+				}
+		}
+		else {
+			sw = show_procedure;
+			value = (BLK) parse_qualified_procedure();
+		}
+
+		LLS_PUSH(sw, &stack);
+		if (!value && (sw == show_relations || sw == show_views ||
+					   sw == show_security_classes
+					   || sw == show_system_triggers
+					   || sw == show_system_relations || sw == show_procedures
+					   || sw == show_forms || sw == show_filters
+					   || sw == show_functions || sw == show_global_fields))
+			if (MATCH(KW_FOR)) {
+				MATCH(KW_DATABASE);
+				if (value = (BLK) get_dbb(QLI_token->tok_symbol))
+					PAR_token();
+				else
+					SYNTAX_ERROR(221);	/* Msg221 database name */
+			}
+		LLS_PUSH(value, &stack);
+		count++;
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	command_end();
+	node = make_list(stack);
+	node->syn_count = count;
+	node->syn_type = nod_show;
+
+	return node;
+}
+
+
+
+static SYN parse_sort(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a sort list.
+ *
+ **************************************/
+	SYN node, upcase;
+	LLS stack;
+	USHORT direction, sensitive;
+
+	direction = sensitive = 0;
+	stack = NULL;
+
+	while (TRUE) {
+		PAR_real();
+		if (!sql_flag) {
+			if (MATCH(KW_ASCENDING)) {
+				direction = 0;
+				continue;
+			}
+			else if (MATCH(KW_DESCENDING)) {
+				direction = 1;
+				continue;
+			}
+			else if (MATCH(KW_EXACTCASE)) {
+				sensitive = 0;
+				continue;
+			}
+			else if (MATCH(KW_ANYCASE)) {
+				sensitive = 1;
+				continue;
+			}
+		}
+		if (sql_flag && QLI_token->tok_type == tok_number) {
+			node = SYNTAX_NODE(nod_position, 1);
+			node->syn_arg[0] = INT_CAST parse_ordinal();
+		}
+		else
+			node = parse_value(0, 0);
+		if (sensitive) {
+			upcase = SYNTAX_NODE(nod_upcase, 1);
+			upcase->syn_arg[0] = node;
+			LLS_PUSH(upcase, &stack);
+		}
+		else
+			LLS_PUSH(node, &stack);
+		if (sql_flag)
+			if (MATCH(KW_ASCENDING))
+				direction = 0;
+			else if (MATCH(KW_DESCENDING))
+				direction = 1;
+		LLS_PUSH(direction, &stack);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	return make_list(stack);
+}
+
+
+static SYN parse_sql_alter(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ a l t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the leading clauses of a SQL ALTER statement.
+ *
+ **************************************/
+	SYN node;
+	REL relation;
+	FLD field;
+
+	PAR_real_token();
+
+	if (!MATCH(KW_TABLE))
+		SYNTAX_ERROR(407);		/* Msg407 TABLE */
+
+	node = SYNTAX_NODE(nod_sql_al_table, 2);
+	relation = parse_qualified_relation();
+	node->syn_arg[0] = (SYN) relation;
+
+	for (;;) {
+		if (MATCH(KW_ADD)) {
+			field = parse_sql_field();
+			field->fld_flags |= FLD_add;
+		}
+		else if (MATCH(KW_DROP)) {
+			field = parse_field(FALSE);
+			field->fld_flags |= FLD_drop;
+		}
+		else
+			SYNTAX_ERROR(405);	/* Msg405 ADD or DROP */
+
+		field->fld_next = (FLD) node->syn_arg[1];
+		node->syn_arg[1] = (SYN) field;
+
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	command_end();
+	return node;
+
+}
+
+
+
+static SYN parse_sql_create(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the leading clauses of a SQL CREATE statement.
+ *
+ **************************************/
+	USHORT unique, descending;
+
+	PAR_real_token();
+
+	if (KEYWORD(KW_DATABASE))
+		return parse_ready(nod_sql_database);
+
+	if (KEYWORD(KW_UNIQUE) || KEYWORD(KW_ASCENDING)
+		|| KEYWORD(KW_DESCENDING) || KEYWORD(KW_INDEX)) {
+		unique = descending = FALSE;
+		while (TRUE) {
+			if (MATCH(KW_UNIQUE))
+				unique = TRUE;
+			else if (MATCH(KW_ASCENDING))
+				descending = FALSE;
+			else if (MATCH(KW_DESCENDING))
+				descending = TRUE;
+			else if (MATCH(KW_INDEX))
+				return parse_sql_index_create(unique, descending);
+			else
+				SYNTAX_ERROR(389);	/* Msg389 INDEX */
+		}
+	}
+
+	if (MATCH(KW_TABLE))
+		return parse_sql_table_create();
+
+/***
+if (MATCH (KW_VIEW))
+    return parse_sql_view_create();
+***/
+
+	SYNTAX_ERROR(386);			/* Msg386 object type for CREATE */
+}
+
+
+static int parse_sql_dtype( USHORT * length, USHORT * scale)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ d t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a SQL datatype clause.
+ *
+ **************************************/
+	KWWORDS keyword;
+	USHORT dtype, l;
+
+	keyword = QLI_token->tok_keyword;
+	PAR_token();
+	*scale = 0;
+	*length = 1;
+
+	switch (keyword) {
+	case KW_DATE:
+		*length = 8;
+		return dtype_timestamp;
+
+	case KW_CHAR:
+		dtype = dtype_text;
+		break;
+
+	case KW_VARCHAR:
+		dtype = dtype_varying;
+		break;
+
+	case KW_SMALLINT:
+		*length = sizeof(SSHORT);
+		return dtype_short;
+
+	case KW_INTEGER:
+		*length = sizeof(SLONG);
+		return dtype_long;
+
+	case KW_REAL:
+	case KW_FLOAT:
+		*length = sizeof(float);
+		dtype = dtype_real;
+		break;
+
+	case KW_LONG:
+		if (!MATCH(KW_FLOAT))
+			SYNTAX_ERROR(388);	/* Msg388 "FLOAT" */
+	case KW_DOUBLE:
+	case KW_PRECISION:
+		*length = sizeof(double);
+		dtype = dtype_double;
+		break;
+
+	case KW_DECIMAL:
+		*length = sizeof(SLONG);
+		dtype = dtype_long;
+		break;
+	}
+
+	if (dtype == dtype_long || dtype == dtype_real || dtype == dtype_double) {
+		if (MATCH(KW_LEFT_PAREN)) {
+			l = (MATCH(KW_MINUS)) ? TRUE : FALSE;
+			*scale = parse_ordinal();
+			if (l)
+				*scale = -(*scale);
+			parse_matching_paren();
+		}
+	}
+	else if (dtype == dtype_text || dtype == dtype_varying) {
+		if (MATCH(KW_LEFT_PAREN)) {
+			l = parse_ordinal();
+			if (dtype == dtype_varying)
+				l += sizeof(SSHORT);
+			*length = l;
+			parse_matching_paren();
+		}
+	}
+
+	return dtype;
+}
+
+
+static FLD parse_sql_field(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a field description.
+ *
+ **************************************/
+	FLD field;
+	SYM name;
+	USHORT dtype, length, scale;
+
+	PAR_real();
+
+	dtype = length = scale = 0;
+	name = parse_symbol();
+
+	PAR_real();
+	switch (QLI_token->tok_keyword) {
+	case KW_DOUBLE:
+		MATCH(KW_PRECISION);
+	case KW_NUMERIC:
+	case KW_REAL:
+	case KW_DATE:
+	case KW_CHAR:
+	case KW_VARCHAR:
+	case KW_SMALLINT:
+	case KW_INTEGER:
+	case KW_FLOAT:
+	case KW_LONG:
+	case KW_DECIMAL:
+		dtype = parse_sql_dtype(&length, &scale);
+		break;
+
+	default:
+		SYNTAX_ERROR(179);		/* Msg179 field definition clause */
+		break;
+	}
+
+	field = (FLD) ALLOCDV(type_fld, length);
+	field->fld_name = name;
+	field->fld_dtype = dtype;
+	field->fld_scale = scale;
+	field->fld_length = length;
+
+	if (MATCH(KW_NOT))
+		if (MATCH(KW_NULL)) {
+			field->fld_flags |= FLD_not_null;
+		}
+		else {
+			SYNTAX_ERROR(393);	/* Msg393 NULL */
+		}
+
+	return field;
+}
+
+
+static SYN parse_sql_grant_revoke( USHORT type)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ g r a n t _ r e v o k e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a SQL GRANT/REVOKE statement.
+ *
+ **************************************/
+	SYN node;
+	LLS stack;
+	USHORT privileges;
+
+	PAR_real_token();
+	node = SYNTAX_NODE(type, s_grant_count);
+	stack = NULL;
+	privileges = 0;
+
+	if (MATCH(KW_ALL)) {
+		MATCH(KW_PRIVILEGES);
+		privileges |= PRV_all;
+	}
+	else
+		while (TRUE) {
+			PAR_real();
+			if (MATCH(KW_SELECT)) {
+				privileges |= PRV_select;
+				continue;
+			}
+			else if (MATCH(KW_INSERT)) {
+				privileges |= PRV_insert;
+				continue;
+			}
+			else if (MATCH(KW_DELETE)) {
+				privileges |= PRV_delete;
+				continue;
+			}
+			else if (MATCH(KW_UPDATE)) {
+				privileges |= PRV_update;
+
+				if (MATCH(KW_COMMA))
+					continue;
+
+				if (KEYWORD(KW_ON))
+					break;
+
+				if (!MATCH(KW_LEFT_PAREN))
+					SYNTAX_ERROR(187);	/* Msg187 left parenthesis */
+
+				do {
+					if (KEYWORD(KW_SELECT) || KEYWORD(KW_INSERT)
+						|| KEYWORD(KW_DELETE) || KEYWORD(KW_UPDATE))
+						break;
+					PAR_real();
+					LLS_PUSH(parse_name(), &stack);
+
+				} while (MATCH(KW_COMMA));
+
+				if (!MATCH(KW_RIGHT_PAREN))
+					SYNTAX_ERROR(191);	/* Msg191 right parenthesis */
+
+				continue;
+			}
+
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+
+	node->syn_arg[s_grant_fields] = make_list(stack);
+
+	PAR_real();
+	if (!MATCH(KW_ON))
+		SYNTAX_ERROR(397);		/* Msg397 ON */
+
+	PAR_real();
+	if (!(node->syn_arg[s_grant_relation] = (SYN) parse_qualified_relation()))
+		SYNTAX_ERROR(170);		/* Msg170 relation name */
+
+	if (type == (USHORT) nod_sql_grant) {
+		if (!MATCH(KW_TO))
+			SYNTAX_ERROR(404);	/* Msg404 TO */
+	}
+	else {
+		if (!MATCH(KW_FROM))
+			SYNTAX_ERROR(403);	/* Msg403 FROM */
+	}
+
+	stack = NULL;
+
+	while (TRUE) {
+		PAR_real();
+		LLS_PUSH(parse_name(), &stack);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+	node->syn_arg[s_grant_users] = make_list(stack);
+
+	if (type == (USHORT) nod_sql_grant)
+		if (MATCH(KW_WITH)) {
+			PAR_real();
+			if (!MATCH(KW_GRANT))
+				SYNTAX_ERROR(401);	/* Msg401 GRANT */
+			MATCH(KW_OPTION);
+			privileges |= PRV_grant_option;
+		}
+
+	node->syn_arg[s_grant_privileges] = INT_CAST privileges;
+
+	return node;
+}
+
+
+static SYN parse_sql_index_create( USHORT unique, USHORT descending)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ i n d e x _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the SQL CREATE INDEX statement.
+ *
+ **************************************/
+	LLS stack;
+	SYN node;
+
+	PAR_real();
+	node = SYNTAX_NODE(nod_def_index, s_dfi_count);
+
+	if (unique)
+		node->syn_flags |= s_dfi_flag_unique;
+	if (descending)
+		node->syn_flags |= s_dfi_flag_descending;
+
+	node->syn_arg[s_dfi_name] = (SYN) parse_symbol();
+
+	PAR_real();
+	if (!MATCH(KW_ON))
+		SYNTAX_ERROR(397);		/* Msg397 ON */
+
+	if (!(node->syn_arg[s_dfi_relation] = (SYN) parse_qualified_relation()))
+		SYNTAX_ERROR(170);		/* Msg170 relation name */
+
+	PAR_real();
+
+	if (!MATCH(KW_LEFT_PAREN))
+		SYNTAX_ERROR(185);		/* Msg185 left parenthesis */
+
+	stack = NULL;
+
+	for (;;) {
+		LLS_PUSH(parse_name(), &stack);
+		if (MATCH(KW_RIGHT_PAREN))
+			break;
+		if (!MATCH(KW_COMMA))
+			SYNTAX_ERROR(171);	/* Msg171 comma between field definitions */
+	}
+
+	node->syn_arg[s_dfi_fields] = make_list(stack);
+
+	command_end();
+
+	return node;
+}
+
+
+static SYN parse_sql_joined_relation( SYN prior_context)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ j o i n e d _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a join relation clause.
+ *
+ **************************************/
+	SYN left;
+
+	if (MATCH(KW_LEFT_PAREN)) {
+		left = parse_sql_joined_relation(0);
+		parse_matching_paren();
+	}
+	else if (!(left = parse_sql_relation()))
+		return NULL;
+
+	return parse_sql_join_clause(left);
+}
+
+
+static SYN parse_sql_join_clause( SYN left)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ j o i n _ c l a u s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a join relation clause.
+ *
+ **************************************/
+	SYN right, node;
+	NOD_T join_type;
+
+	join_type = parse_join_type();
+	if (join_type == (NOD_T) 0)
+		return left;
+
+	if (!(right = parse_sql_joined_relation(left)))
+		SYNTAX_ERROR(490);		/* Msg490 joined relation clause */
+
+	if (!MATCH(KW_ON))
+		SYNTAX_ERROR(492);		/* Msg492 ON */
+
+	node = SYNTAX_NODE(nod_rse, (int) s_rse_count + 2 * 2);
+	node->syn_count = 2;
+	node->syn_arg[s_rse_count] = left;
+	node->syn_arg[s_rse_count + 2] = right;
+	node->syn_arg[s_rse_join_type] = (SYN) join_type;
+	node->syn_arg[s_rse_boolean] = parse_boolean(0);
+
+	return parse_sql_join_clause(node);
+}
+
+
+static SYN parse_sql_table_create(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ t a b l e _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the SQL CREATE TABLE statement.
+ *
+ **************************************/
+	REL relation;
+	FLD field, *ptr;
+	SYN node;
+
+	PAR_real();
+	node = SYNTAX_NODE(nod_sql_cr_table, 1);
+	relation = (REL) ALLOCD(type_rel);
+	node->syn_arg[0] = (SYN) relation;
+	relation->rel_database = parse_database();
+	relation->rel_symbol = parse_symbol();
+
+	ptr = &relation->rel_fields;
+
+	if (!MATCH(KW_LEFT_PAREN))
+		SYNTAX_ERROR(185);		/* Msg185 left parenthesis */
+
+	PAR_real();
+
+	for (;;) {
+		*ptr = field = parse_sql_field();
+		ptr = &field->fld_next;
+		if (MATCH(KW_RIGHT_PAREN))
+			break;
+		if (!MATCH(KW_COMMA))
+			SYNTAX_ERROR(171);	/* Msg171 comma between field definitions */
+	}
+
+	command_end();
+
+	return node;
+}
+
+
+static SYN parse_sql_view_create(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ v i e w _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the SQL CREATE VIEW statement.
+ *
+ **************************************/
+	SYN node;
+	LLS stack;
+	REL relation;
+
+	PAR_real();
+
+	sw_sql_view = TRUE;
+	node = SYNTAX_NODE(nod_sql_cr_view, s_crv_count);
+	stack = NULL;
+
+	relation = (REL) ALLOCD(type_rel);
+	node->syn_arg[s_crv_name] = (SYN) relation;
+	relation->rel_database = parse_database();
+	relation->rel_symbol = parse_symbol();
+
+/* if field list is present parse it and create corresponding field blocks */
+
+	if (MATCH(KW_LEFT_PAREN)) {
+		for (;;) {
+			LLS_PUSH(parse_name(), &stack);
+			if (MATCH(KW_RIGHT_PAREN))
+				break;
+			if (!MATCH(KW_COMMA))
+				SYNTAX_ERROR(171);	/* Msg171 comma between field definitions */
+		}
+	}
+
+/* node->syn_arg [s_crv_fields] = make_list (stack); */
+
+	if (!MATCH(KW_AS))
+		SYNTAX_ERROR(394);		/* Msg394 As */
+
+	if (!KEYWORD(KW_SELECT))
+		SYNTAX_ERROR(395);		/* Msg395 Select */
+
+	node->syn_arg[s_crv_rse] = parse_select();
+
+	sw_sql_view = FALSE;
+
+	return node;
+}
+
+
+static SYN parse_sql_relation(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a SQL relation clause.
+ *
+ **************************************/
+	SYN node;
+
+	node = SYNTAX_NODE(nod_relation, s_rel_count);
+
+	if (!(node->syn_arg[s_rel_relation] = (SYN) parse_qualified_relation()))
+		SYNTAX_ERROR(223);		/* Msg223 relation name */
+
+	if (!QLI_token->tok_symbol)
+		node->syn_arg[s_rel_context] = (SYN) parse_symbol();
+
+	return node;
+}
+
+
+static SYN parse_sql_rse(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the trailing clauses of a SQL SELECT statement.
+ *
+ **************************************/
+	SYN node, *ptr;
+	LLS stack;
+	USHORT count;
+
+	stack = NULL;
+	count = 0;
+	PAR_real();
+
+	if (!MATCH(KW_FROM))
+		SYNTAX_ERROR(224);		/* Msg224 FROM clause */
+
+/* Parse FROM list of relations */
+
+	while (TRUE) {
+		count++;
+		LLS_PUSH(parse_sql_joined_relation(0), &stack);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+/* Build a syntax node.  Since SQL doesn't support OVER, only every
+   other slot will be used in the RSE. */
+
+	node = SYNTAX_NODE(nod_rse, (int) s_rse_count + 2 * count);
+	node->syn_count = count;
+	ptr = &node->syn_arg[(int) s_rse_count + 2 * count];
+
+	while (stack) {
+		--ptr;
+		*--ptr = (SYN) LLS_POP(&stack);
+	}
+
+	if (MATCH(KW_WITH))
+		node->syn_arg[s_rse_boolean] = parse_boolean(0);
+
+	if (MATCH(KW_GROUP)) {
+		if (sw_sql_view)
+			SYNTAX_ERROR(391);	/* Msg391 No group by in view def */
+		PAR_real();
+		MATCH(KW_BY);
+		stack = NULL;
+		while (TRUE) {
+			LLS_PUSH(parse_udf_or_field(), &stack);
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+		node->syn_arg[s_rse_group_by] = make_list(stack);
+		if (MATCH(KW_HAVING))
+			node->syn_arg[s_rse_having] = parse_boolean(0);
+	}
+
+	return node;
+}
+
+
+static SYN parse_sql_singleton_select(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ s i n g l e t o n _ s e l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Finish parsing an SQL singleton select and
+ *	turn it into a FIRST ... FROM --- not exactly
+ *	kosher, but a start.
+ *
+ **************************************/
+	SYN node, value;
+
+	value = parse_primitive_value(0, 0);
+	PAR_real();
+
+	node = SYNTAX_NODE(nod_from, s_stt_count);
+	node->syn_arg[s_stt_value] = value;
+
+	node->syn_arg[s_stt_rse] = parse_sql_rse();
+	--sql_flag;
+
+	return node;
+}
+
+
+static SYN parse_sql_subquery(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s q l _ s u b q u e r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse an sql subquery that should
+ *	return a single value.
+ *
+ **************************************/
+	struct nod_types *types;
+	SYN node;
+	KWWORDS keyword;
+
+	if (sw_sql_view)
+		SYNTAX_ERROR(392);		/* Msg392 No aggregates in view def */
+
+	PAR_token();
+
+	keyword = next_keyword();
+	++sql_flag;
+
+	for (types = statisticals;; types++)
+		if (types->nod_t_keyword == KW_none)
+			return parse_sql_singleton_select();
+		else if (types->nod_t_keyword == keyword)
+			break;
+
+	PAR_token();
+	node = SYNTAX_NODE(types->nod_t_node, s_stt_count);
+
+	MATCH(KW_LEFT_PAREN);
+
+	if (node->syn_type != nod_count || !MATCH(KW_ASTERISK)) {
+		if (MATCH(KW_DISTINCT))
+			node->syn_arg[s_prt_distinct] = INT_CAST TRUE;
+		node->syn_arg[s_stt_value] = parse_value(0, 0);
+	}
+
+	parse_matching_paren();
+
+	node->syn_arg[s_stt_rse] = parse_sql_rse();
+	--sql_flag;
+
+	return node;
+}
+
+
+static SYN parse_statement(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a statement.  (Set statement switch
+ *	to true here as well as in PARQ_parse to
+ *	avoid confusion with linked statements 
+ *	e.g. THEN conjuncts )
+ *
+ **************************************/
+	SYN node;
+	LLS stack;
+
+	PAR_real();
+	sw_statement = TRUE;
+	function_count = 0;
+
+	switch (next_keyword()) {
+	case KW_ABORT:
+		node = parse_abort();
+		break;
+
+	case KW_ACCEPT:
+		node = parse_accept();
+		break;
+
+	case KW_COMMIT:
+		node = parse_transaction(nod_commit_retaining);
+		break;
+
+	case KW_DECLARE:
+		node = parse_declare();
+		break;
+
+	case KW_DELETE:
+		MATCH(KW_DELETE);
+		node = parse_delete();
+		break;
+
+	case KW_ERASE:
+		node = parse_erase();
+		break;
+
+	case KW_FOR:
+		node = parse_for();
+		break;
+
+	case KW_IF:
+		node = parse_if();
+		break;
+
+	case KW_INSERT:
+		node = parse_insert();
+		break;
+
+	case KW_LIST:
+		node = parse_list_fields();
+		break;
+
+	case KW_MENU:
+		node = parse_menu();
+		break;
+
+	case KW_MODIFY:
+		node = parse_modify();
+		break;
+
+	case KW_PRINT:
+		node = parse_print();
+		break;
+
+	case KW_REPEAT:
+		node = parse_repeat();
+		break;
+
+	case KW_REPORT:
+		node = parse_report();
+		break;
+
+	case KW_SELECT:
+		node = parse_select();
+		break;
+
+	case KW_STORE:
+		node = parse_store();
+		break;
+
+	case KW_UPDATE:
+		node = parse_update();
+		break;
+
+	case KW_BEGIN:
+		stack = NULL;
+		PAR_token();
+		while (TRUE) {
+			PAR_real();
+			if (MATCH(KW_END))
+				break;
+			LLS_PUSH(parse_statement(), &stack);
+			MATCH(KW_SEMI);
+		}
+		node = make_list(stack);
+		break;
+
+	default:
+		node = parse_assignment();
+	}
+
+	check_end();
+
+/* Check for the "THEN" connective.  If found, make a list of statements. */
+
+	if (QLI_token->tok_type != tok_eol || (QLI_semi && !KEYWORD(KW_SEMI)))
+		MATCH(KW_SEMI);
+
+	if (!MATCH(KW_THEN))
+		return node;
+
+	stack = NULL;
+	LLS_PUSH(node, &stack);
+	LLS_PUSH(parse_statement(), &stack);
+
+	return make_list(stack);
+}
+
+
+static SYN parse_statistical(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s t a t i s t i c a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse statistical expression.
+ *
+ **************************************/
+	struct nod_types *types;
+	SYN node;
+	KWWORDS keyword;
+
+	keyword = next_keyword();
+	PAR_token();
+
+	for (types = statisticals;; types++)
+		if (types->nod_t_keyword == keyword)
+			break;
+
+/* Handle SQL statisticals a little differently */
+
+	if (sql_flag) {
+		node = SYNTAX_NODE(types->nod_t_sql_node, s_stt_count);
+		if (!MATCH(KW_LEFT_PAREN))
+			SYNTAX_ERROR(227);	/* Msg227 left parenthesis */
+		if (node->syn_type != nod_agg_count || !MATCH(KW_ASTERISK)) {
+			if (MATCH(KW_DISTINCT))
+				node->syn_arg[s_prt_distinct] = INT_CAST TRUE;
+			node->syn_arg[s_stt_value] = parse_value(0, 0);
+		}
+		parse_matching_paren();
+		return node;
+	}
+
+/* Handle GDML statisticals */
+
+	node = SYNTAX_NODE(types->nod_t_node, s_stt_count);
+
+	if (node->syn_type != nod_count)
+		node->syn_arg[s_stt_value] = parse_value(0, 0);
+
+	if (!MATCH(KW_OF)) {
+		if (sw_report) {
+			if (function_count > 0)
+				IBERROR(487);	/* Msg487 Invalid argument for UDF */
+			node->syn_type = types->nod_t_rpt_node;
+			return node;
+		}
+		PAR_real();
+		if (!MATCH(KW_OF))
+			SYNTAX_ERROR(228);	/* Msg 228 OF */
+	}
+
+	node->syn_arg[s_stt_rse] = parse_rse();
+
+	return node;
+}
+
+
+static SYN parse_store(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s t o r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a STORE statement.
+ *
+ **************************************/
+	SYN node;
+
+	PAR_token();
+	node = SYNTAX_NODE(nod_store, s_sto_count);
+	node->syn_arg[s_sto_relation] = parse_relation();
+
+	if (test_end())
+		return node;
+
+	MATCH(KW_USING);
+
+	if (MATCH(KW_FORM))
+#ifdef NO_PYXIS
+		IBERROR(484);			/* FORMs not supported */
+#else
+		node->syn_arg[s_sto_form] = parse_form();
+#endif
+	else
+		node->syn_arg[s_sto_statement] = parse_statement();
+
+	return node;
+}
+
+
+static TEXT *parse_string(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Save the current token as a string, advance to the next
+ *	token, and return a pointer to the string.
+ *
+ **************************************/
+	TEXT *string;
+
+	string = make_string(QLI_token->tok_string, QLI_token->tok_length);
+	PAR_token();
+
+	return string;
+}
+
+
+static SYM parse_symbol(void)
+{
+/**************************************
+ *
+ *	p a r s e _ s y m b o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the next token as a context symbol.
+ *
+ **************************************/
+	SYM context;
+	USHORT l;
+	TEXT c, *p, *q;
+
+	l = QLI_token->tok_length;
+	context = (SYM) ALLOCDV(type_sym, l);
+	context->sym_type = SYM_context;
+	context->sym_length = l;
+	q = QLI_token->tok_string;
+	p = context->sym_string = context->sym_name;
+
+	if (l)
+		do {
+			c = *q++;
+			*p++ = UPPER(c);
+#ifdef JPN_SJIS
+
+			/* Do not upcase second byte of a sjis kanji character */
+
+			if (KANJI1(c) && l > 1) {
+				*p++ = *q++;
+				l--;
+			}
+
+#endif
+		} while (--l);
+
+	PAR_token();
+
+	return context;
+}
+
+
+static parse_terminating_parens( USHORT * paren_count, USHORT * local_count)
+{
+/**************************************
+ *
+ *	p a r s e _ t e r m i n a t i n g _ p a r e n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check for balancing parenthesis.  If missing, barf.
+ *
+ **************************************/
+
+	if (*paren_count && paren_count == local_count)
+		do
+			parse_matching_paren();
+		while (--(*paren_count));
+}
+
+
+static SYN parse_transaction( NOD_T node_type)
+{
+/**************************************
+ *
+ *	p a r s e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the FINISH, COMMIT, ROLLBACK,
+ *	and PREPARE commands and the COMMIT statement.
+ *
+ **************************************/
+	SYN node;
+	LLS stack;
+	SYM symbol;
+
+	stack = NULL;
+	PAR_token();
+
+	if (!KEYWORD(KW_SEMI))
+		while (TRUE) {
+			for (symbol = QLI_token->tok_symbol; symbol;
+				 symbol = symbol->sym_homonym)
+					if (symbol->sym_type == SYM_database) break;
+			if (!symbol)
+				SYNTAX_ERROR(229);	/* Msg229 database name */
+			LLS_PUSH(symbol->sym_object, &stack);
+			PAR_token();
+			if (!MATCH(KW_COMMA))
+				break;
+		}
+
+	command_end();
+	node = make_list(stack);
+	node->syn_type = node_type;
+
+	return node;
+}
+
+
+static SYN parse_udf_or_field(void)
+{
+/**************************************
+ *
+ *	p a r s e _ u d f _ o r _ f i e l d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a function or field reference.
+ *
+ **************************************/
+	SYM symbol;
+
+	if ((symbol = QLI_token->tok_symbol) && symbol->sym_type == SYM_function)
+		return parse_function();
+
+	return parse_field_name(0);
+}
+
+
+static SYN parse_update(void)
+{
+/**************************************
+ *
+ *	p a r s e _ u p d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a SQL UPDATE statement.
+ *
+ **************************************/
+	SYN node, rse;
+	LLS stack;
+
+	++sql_flag;
+	PAR_token();
+	node = SYNTAX_NODE(nod_modify, s_mod_count);
+	node->syn_arg[s_mod_rse] = rse =
+		SYNTAX_NODE(nod_rse, (int) s_rse_count + 2);
+	rse->syn_count = 1;
+	rse->syn_arg[s_rse_count] = parse_sql_relation();
+
+	if (!MATCH(KW_SET))
+		SYNTAX_ERROR(230);		/* Msg230 SET */
+
+/* Pick up assignments */
+
+	stack = NULL;
+
+	while (TRUE) {
+		LLS_PUSH(parse_assignment(), &stack);
+		if (!MATCH(KW_COMMA))
+			break;
+	}
+
+/* Pick up boolean, if present */
+
+	if (MATCH(KW_WITH))
+		rse->syn_arg[s_rse_boolean] = parse_boolean(0);
+
+	node->syn_arg[s_mod_statement] = make_list(stack);
+	--sql_flag;
+
+	return node;
+}
+
+
+static SYN parse_value( USHORT * paren_count, USHORT * bool_flag)
+{
+/**************************************
+ *
+ *	p a r s e _ v a l u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse a general value expression.  In practice, this means parse the
+ *	lowest precedence operator CONCATENATE.
+ *
+ **************************************/
+	SYN node, arg;
+	USHORT local_count, local_flag;
+
+	if (!paren_count) {
+		local_count = 0;
+		paren_count = &local_count;
+	}
+	if (!bool_flag) {
+		local_flag = FALSE;
+		bool_flag = &local_flag;
+	}
+
+	node = parse_add(paren_count, bool_flag);
+
+	while (TRUE) {
+		if (!MATCH(KW_BAR)) {
+			parse_terminating_parens(paren_count, &local_count);
+			return node;
+		}
+		arg = node;
+		node = SYNTAX_NODE(nod_concatenate, 2);
+		node->syn_arg[0] = arg;
+		node->syn_arg[1] = parse_add(paren_count, bool_flag);
+	}
+}
+
+
+static int potential_rse(void)
+{
+/**************************************
+ *
+ *	p o t e n t i a l _ r s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Test to see if the current token is likely (sic!) to be part of
+ *	a record selection expression.
+ *
+ **************************************/
+	SYM symbol;
+
+	for (symbol = QLI_token->tok_symbol; symbol; symbol = symbol->sym_homonym)
+		if ((symbol->sym_type == SYM_keyword &&
+			 symbol->sym_keyword == (int) KW_FIRST) ||
+			symbol->sym_type == SYM_relation ||
+			symbol->sym_type == SYM_database) return TRUE;
+
+	return FALSE;
+}
+
+
+static REL resolve_relation( SYM db_symbol, SYM relation_symbol)
+{
+/**************************************
+ *
+ *	r e s o l v e _ r e l a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given symbols for a database and a relation (either may be null),
+ *	resolve the relation.  If the relation can't be resolved, return
+ *	NULL (don't error!).
+ *
+ **************************************/
+	REL relation;
+	SYM temp;
+	DBB dbb;
+
+/* If we don't recognize the relation, punt. */
+
+	if (!relation_symbol)
+		return NULL;
+
+/* If a database symbol is present, resolve the relation against the
+   the given database. */
+
+	if (db_symbol) {			/* && db_symbol->sym_type == SYM_database ?  */
+		for (; db_symbol; db_symbol = db_symbol->sym_homonym)
+			for (temp = relation_symbol; temp; temp = temp->sym_homonym)
+				if (temp->sym_type == SYM_relation) {
+					relation = (REL) temp->sym_object;
+					if (relation->rel_database == (DBB) db_symbol->sym_object)
+						return relation;
+				}
+		return NULL;
+	}
+
+/* No database qualifier, so search all databases. */
+
+	for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+		for (temp = relation_symbol; temp; temp = temp->sym_homonym)
+			if (temp->sym_type == SYM_relation) {
+				relation = (REL) temp->sym_object;
+				if (relation->rel_database == dbb)
+					return relation;
+			}
+
+	return NULL;
+}
+
+
+static SYN syntax_node( NOD_T type, USHORT count)
+{
+/**************************************
+ *
+ *	s y n t a x _ n o d e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate and initialize a syntax node of given type.
+ *
+ **************************************/
+	SYN node;
+
+	node = (SYN) ALLOCDV(type_syn, count);
+	node->syn_type = type;
+	node->syn_count = count;
+
+	return node;
+}
+
+
+static int test_end(void)
+{
+/**************************************
+ *
+ *	t e s t _ e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Test for end of a statement.  In specific, test for one of
+ *	THEN, ELSE, ON, or a semi-colon.
+ *
+ **************************************/
+
+	if (KEYWORD(KW_THEN) ||
+		KEYWORD(KW_ON) || KEYWORD(KW_ELSE) || KEYWORD(KW_SEMI)) return TRUE;
+
+	return FALSE;
+}
diff --git a/src/qli/parse.h b/src/qli/parse.h
new file mode 100644
index 0000000000..0cd37cd3af
--- /dev/null
+++ b/src/qli/parse.h
@@ -0,0 +1,98 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		par.h
+ *	DESCRIPTION:	Parser definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_PARSE_H_
+#define _QLI_PARSE_H_
+
+#define MAXSYMLEN	256
+
+#define MATCH(kw) 	PAR_match (kw)
+
+/* Keywords */
+
+typedef ENUM kwwords {
+    KW_none = 0,
+#include "../qli/symbols.h"
+    KW_continuation
+} KWWORDS;
+
+/* Token block, used to hold a lexical token. */
+
+typedef ENUM tok_t {
+    tok_ident, 
+    tok_number, 
+    tok_quoted, 
+    tok_punct,
+    tok_eol,
+    tok_eof
+} TOK_T;
+
+typedef struct tok {
+    struct blk	tok_header;
+    TOK_T 	tok_type;	/* type of token */
+    struct sym	*tok_symbol;	/* hash block if recognized */
+    KWWORDS	tok_keyword;	/* keyword number, if recognized */
+    SLONG	tok_position;	/* byte number in input stream */
+    USHORT	tok_length;
+    struct tok	*tok_next;
+    struct tok	*tok_prior;
+    TEXT	tok_string [2];
+} *TOK ; 
+
+/* Input line control */
+
+ENUM line_t {
+    line_stdin,
+    line_blob,
+    line_file,
+    line_string,
+    line_edit
+};
+
+typedef struct line {
+    struct blk	line_header;
+    struct line	*line_next;
+    struct dbb	*line_database;
+    USHORT	line_size;
+    USHORT	line_length;
+    TEXT	*line_ptr;
+    SLONG	line_position;
+    int		*line_source;			/* File or blob handle */
+    ENUM line_t	line_type;
+    TEXT	line_data [256];
+    TEXT	line_source_name [2];
+} *LINE;
+
+#ifdef PARSER_MAIN
+#define EXTERN
+#else
+#define EXTERN	extern
+#endif
+
+EXTERN TOK	QLI_token;
+EXTERN LINE	QLI_line;                  
+EXTERN TEXT	*QLI_prompt;
+
+#undef EXTERN
+
+#endif /* _QLI_PARSE_H_ */
diff --git a/src/qli/parse_proto.h b/src/qli/parse_proto.h
new file mode 100644
index 0000000000..d507d038ac
--- /dev/null
+++ b/src/qli/parse_proto.h
@@ -0,0 +1,33 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		parse_proto.h
+ *	DESCRIPTION:	Prototype header file for parse.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_PARSE_PROTO_H_
+#define _QLI_PARSE_PROTO_H_
+
+extern struct syn	*PARQ_parse (void);
+extern int		PAR_match (KWWORDS);
+extern void		PAR_real (void);
+extern void		PAR_real_token (void);
+extern void		PAR_token (void);
+
+#endif /* _QLI_PARSE_PROTO_H_ */
diff --git a/src/qli/picst_proto.h b/src/qli/picst_proto.h
new file mode 100644
index 0000000000..16d86285aa
--- /dev/null
+++ b/src/qli/picst_proto.h
@@ -0,0 +1,31 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		picst_proto.h
+ *	DESCRIPTION:	Prototype header file for picstr.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_PICST_PROTO_H_
+#define _QLI_PICST_PROTO_H_
+
+extern struct pic	*PIC_analyze (TEXT *, struct dsc *);
+extern int		PIC_edit (struct dsc *, struct pic *, TEXT **, USHORT);
+extern void		PIC_missing (struct con *, struct pic *);
+
+#endif /* _QLI_PICST_PROTO_H_ */
diff --git a/src/qli/picstr.cpp b/src/qli/picstr.cpp
new file mode 100644
index 0000000000..dfa7251eab
--- /dev/null
+++ b/src/qli/picstr.cpp
@@ -0,0 +1,1376 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		picstr.c
+ *	DESCRIPTION:	Picture String Handler
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#ifndef PYXIS
+#include "../qli/dtr.h"
+#include "../qli/format.h"
+#include "../qli/all_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/picst_proto.h"
+#include "../qli/mov_proto.h"
+#else
+#include "../pyxis/pyxis.h"
+#endif
+#include "../jrd/time.h"
+#if (defined JPN_SJIS || defined JPN_EUC)
+#include "../jrd/kanji.h"
+#endif
+#include "../jrd/gds_proto.h"
+
+#define PRECISION	10000
+
+static TEXT *cvt_to_ascii(SLONG, TEXT *, int);
+static TEXT *default_edit_string(DSC *, TEXT *);
+static void edit_alpha(DSC *, PIC, TEXT **, USHORT);
+static void edit_date(DSC *, PIC, TEXT **);
+static void edit_float(DSC *, PIC, TEXT **);
+static void edit_numeric(DSC *, PIC, TEXT **);
+static int generate(PIC);
+static void literal(PIC, TEXT, TEXT **);
+
+#ifdef PYXIS
+#define PIC_analyze		PICSTR_analyze
+#define PIC_edit		PICSTR_edit
+#define default_edit_string	PICSTR_default_edit_string
+
+#define MOVQ_get_double		MOVP_get_double
+#define MOVQ_get_string		MOVP_get_string
+#define MOVQ_move		MOVP_move
+
+extern double PASCAL_ROUTINE MOVQ_get_double();
+#endif
+
+#ifdef PYXIS
+TEXT *PICSTR_default_edit_string();
+#endif
+
+static TEXT *alpha_weekdays[] = {
+	"Sunday",
+	"Monday",
+	"Tuesday",
+	"Wednesday",
+	"Thursday",
+	"Friday",
+	"Saturday"
+}, *alpha_months[] = {
+	"January",
+		"February",
+		"March",
+		"April",
+		"May",
+
+		"June",
+		"July", "August", "September", "October", "November", "December"};
+
+
+PIC PIC_analyze( TEXT * string, DSC * desc)
+{
+/**************************************
+ *
+ *	P I C _ a n a l y z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a picture in preparation for formatting.
+ *
+ **************************************/
+	PIC picture;
+	TEXT c, d, *p, debit;
+	USHORT length;
+
+	if (!string)
+		if (!desc)
+			return NULL;
+		else
+			string = default_edit_string(desc, NULL);
+
+	debit = 0;
+
+	picture = (PIC) ALLOCD(type_pic);
+	picture->pic_string = picture->pic_pointer = string;
+
+/* Make a first pass just counting characters */
+
+	while ((c = generate(picture)) && c != '?') {
+#ifdef JPN_SJIS
+
+		/* Be sure to lex double byte sjis characters correctly */
+
+		if SJIS1
+			(c) {
+			++picture->pic_literals;
+			picture->pic_flags |= PIC_literal;
+			if (generate(picture)) {
+				++picture->pic_literals;
+				picture->pic_flags &= ~PIC_literal;
+				continue;
+			}
+			else {
+				picture->pic_flags &= ~PIC_literal;
+				break;
+			}
+			}
+#endif
+
+		c = UPPER(c);
+		switch (c) {
+		case 'X':
+		case 'A':
+			++picture->pic_chars;
+			break;
+
+		case '9':
+		case 'Z':
+		case '*':
+			/* Count all digits; 
+			   count them as fractions only after a decimal pt and 
+			   before an E */
+			++picture->pic_digits;
+			if (picture->pic_decimals && !picture->pic_exponents)
+				++picture->pic_fractions;
+			break;
+
+		case 'H':
+			++picture->pic_hex_digits;
+			break;
+
+		case '.':
+			++picture->pic_decimals;
+			break;
+
+		case '-':
+		case '+':
+			picture->pic_flags |= PIC_signed;
+		case '$':
+			if (picture->pic_chars || picture->pic_exponents)
+				++picture->pic_literals;
+			else if (picture->pic_floats)
+				++picture->pic_digits;
+			else
+				++picture->pic_floats;
+			break;
+
+		case 'M':
+			++picture->pic_months;
+			break;
+
+		case 'D':
+			/* DB is ambiguous, could be Day Blank or DeBit... */
+			d = UPPER(*picture->pic_pointer);
+			if (d == 'B') {
+				++picture->pic_pointer;
+				++picture->pic_literals;
+				++debit;
+			}
+			++picture->pic_days;
+			break;
+
+		case 'Y':
+			++picture->pic_years;
+			break;
+
+		case 'J':
+			++picture->pic_julians;
+			break;
+
+		case 'W':
+			++picture->pic_weekdays;
+			break;
+
+		case 'N':
+			++picture->pic_nmonths;
+			break;
+
+		case 'E':
+			++picture->pic_exponents;
+			break;
+
+		case 'G':
+			++picture->pic_float_digits;
+			break;
+
+		case '(':
+		case ')':
+			picture->pic_flags |= PIC_signed;
+			++picture->pic_brackets;
+			break;
+
+		case '\'':
+		case '"':
+			picture->pic_flags |= PIC_literal;
+			while ((d = generate(picture)) && d != c)
+				++picture->pic_literals;
+			picture->pic_flags &= ~PIC_literal;
+			break;
+
+		case '\\':
+			++picture->pic_literals;
+			picture->pic_flags |= PIC_literal;
+			generate(picture);
+			picture->pic_flags &= ~PIC_literal;
+			break;
+
+		case 'C':
+		case 'R':
+			picture->pic_flags |= PIC_signed;
+			++picture->pic_brackets;
+			if (d = generate(picture))
+				++picture->pic_brackets;
+			else
+				++picture->pic_count;
+			break;
+
+		case 'P':
+			++picture->pic_meridian;
+			break;
+
+		case 'T':
+			if (picture->pic_hours < 2)
+				++picture->pic_hours;
+			else if (picture->pic_minutes < 2)
+				++picture->pic_minutes;
+			else
+				++picture->pic_seconds;
+			break;
+
+		case 'B':
+		case '%':
+		case ',':
+		case '/':
+		default:
+			++picture->pic_literals;
+			break;
+		}
+	}
+
+	if (c == '?')
+		picture->pic_missing = PIC_analyze(picture->pic_pointer, 0);
+
+/* if a DB showed up, and the string is numeric, treat the DB as DeBit */
+
+	if (debit && (picture->pic_digits || picture->pic_hex_digits)) {
+		--picture->pic_days;
+		--picture->pic_literals;
+		picture->pic_flags |= PIC_signed;
+		++picture->pic_brackets;
+		++picture->pic_brackets;
+	}
+
+	picture->pic_print_length =
+		picture->pic_digits +
+		picture->pic_hex_digits +
+		picture->pic_chars +
+		picture->pic_floats +
+		picture->pic_literals +
+		picture->pic_decimals +
+		picture->pic_months +
+		picture->pic_days +
+		picture->pic_weekdays +
+		picture->pic_years +
+		picture->pic_nmonths +
+		picture->pic_julians +
+		picture->pic_brackets +
+		picture->pic_exponents +
+		picture->pic_float_digits +
+		picture->pic_hours +
+		picture->pic_minutes + picture->pic_seconds + picture->pic_meridian;
+
+
+	if (picture->pic_missing) {
+		picture->pic_length =
+			MAX(picture->pic_print_length,
+				picture->pic_missing->pic_print_length);
+		picture->pic_missing->pic_length = picture->pic_length;
+	}
+	else
+		picture->pic_length = picture->pic_print_length;
+
+	if (picture->pic_days ||
+		picture->pic_weekdays ||
+		picture->pic_months ||
+		picture->pic_nmonths ||
+		picture->pic_years ||
+		picture->pic_hours ||
+		picture->pic_julians) picture->pic_type = pic_date;
+	else if (picture->pic_exponents || picture->pic_float_digits)
+		picture->pic_type = pic_float;
+	else if (picture->pic_digits || picture->pic_hex_digits)
+		picture->pic_type = pic_numeric;
+	else
+		picture->pic_type = pic_alpha;
+
+	return picture;
+}
+
+
+int PIC_edit( DSC * desc, PIC picture, TEXT ** output, USHORT max_length)
+{
+/**************************************
+ *
+ *	P I C _ e d i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit data from a descriptor through an edit string to a running
+ *	output pointer.  For text strings, check that we don't overflow
+ *	the output buffer.
+ *
+ **************************************/
+
+	switch (picture->pic_type) {
+	case pic_alpha:
+		edit_alpha(desc, picture, output, max_length);
+		return;
+	case pic_numeric:
+		edit_numeric(desc, picture, output);
+		return;
+	case pic_date:
+		edit_date(desc, picture, output);
+		return;
+	case pic_float:
+		edit_float(desc, picture, output);
+		return;
+	default:
+#ifndef PYXIS
+		BUGCHECK(68);			/* Msg 68 PIC_edit: class not yet implemented */
+#else
+		BUGCHECK("PIC_edit: class not yet implemented");
+#endif
+	}
+}
+
+
+#ifndef PYXIS
+void PIC_missing( CON constant, PIC picture)
+{
+/**************************************
+ *
+ *	P I C _ m i s s i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a literal picture string from
+ *	a descriptor for a missing value so
+ *	we can print the missing value  
+ *
+ **************************************/
+	STR scratch;
+	int l;
+	TEXT *p;
+	PIC missing_picture;
+	DSC *desc;
+
+	desc = &constant->con_desc;
+
+	l = MAX(desc->dsc_length, picture->pic_length);
+
+	scratch = (STR) ALLOCDV(type_str, l + 3);
+	p = scratch->str_data;
+	*p++ = '\"';
+
+	PIC_edit(desc, picture, &p, l);
+	*p++ = '\"';
+	*p = 0;
+
+	picture->pic_missing = missing_picture =
+		PIC_analyze(scratch->str_data, desc);
+	picture->pic_length =
+		MAX(picture->pic_print_length, missing_picture->pic_print_length);
+	missing_picture->pic_length = picture->pic_length;
+}
+#endif
+
+
+static TEXT *cvt_to_ascii( SLONG number, TEXT * pointer, int length)
+{
+/**************************************
+ *
+ *	c v t _ t o _ a s c i i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a number to a number of ascii digits (plus terminating
+ *	null), updating pointer.
+ *
+ **************************************/
+	TEXT *p;
+
+	pointer += length + 1;
+	p = pointer;
+	*--p = 0;
+
+	while (--length >= 0) {
+		*--p = (number % 10) + '0';
+		number /= 10;
+	}
+
+	return pointer;
+}
+
+
+#ifndef PYXIS
+static TEXT *default_edit_string(
+#else
+TEXT *PICSTR_default_edit_string(
+#endif
+									DSC * desc, TEXT * buff)
+{
+/**************************************
+ *
+ *	d e f a u l t _ e d i t _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a skeletal descriptor, generate a default edit string.
+ *
+ **************************************/
+	TEXT buffer[32];
+	STR string;
+	SSHORT scale;
+
+	if (!buff)
+		buff = buffer;
+
+	scale = desc->dsc_scale;
+
+	switch (desc->dsc_dtype) {
+	case dtype_text:
+		sprintf(buff, "X(%d)", desc->dsc_length);
+		break;
+
+	case dtype_cstring:
+		sprintf(buff, "X(%d)", desc->dsc_length - 1);
+		break;
+
+	case dtype_varying:
+		sprintf(buff, "X(%d)", desc->dsc_length - 2);
+		break;
+
+	case dtype_short:
+		if (!scale)
+			return "-(5)9";
+		if (scale < 0 && scale > -5)
+			sprintf(buff, "-(%d).9(%d)", 6 + scale, -scale);
+		else if (scale < 0)
+			sprintf(buff, "-.9(%d)", -scale);
+		else
+			sprintf(buff, "-(%d)9", 5 + scale);
+		break;
+
+	case dtype_long:
+		if (!scale)
+			return "-(10)9";
+		if (scale < 0 && scale > -10)
+			sprintf(buff, "-(%d).9(%d)", 10 + scale, -scale);
+		else if (scale < 0)
+			sprintf(buff, "-.9(%d)", -scale);
+		else
+			sprintf(buff, "-(%d)9", 11 + scale);
+		break;
+
+#if ( (defined JPN_SJIS || defined JPN_EUC) && defined JPN_DATE)
+
+		/* For Japanese the default date format is "YYYY.NN.DD" */
+
+	case dtype_sql_date:
+	case dtype_timestamp:
+		return "YYYY.NN.DD";
+
+#else
+
+	case dtype_sql_date:
+	case dtype_timestamp:
+		return "DD-MMM-YYYY";
+
+#endif
+	case dtype_sql_time:
+		return "TT:TT:TT.TTTT";
+
+	case dtype_real:
+		return "G(8)";
+
+	case dtype_double:
+		return "G(16)";
+
+	default:
+		return "X(11)";
+	}
+
+	if (buff == buffer) {
+		string = (STR) ALLOCDV(type_str, strlen(buff));
+		strcpy(string->str_data, buff);
+		buff = string->str_data;
+	}
+
+	return buff;
+}
+
+
+static void edit_alpha(
+					   DSC * desc,
+					   PIC picture, TEXT ** output, USHORT max_length)
+{
+/**************************************
+ *
+ *	e d i t _ a l p h a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit data from a descriptor through an edit string to a running
+ *	output pointer.
+ *
+ **************************************/
+	TEXT c, d, *p, *out, *end, temp[512], *q, date[32];
+	USHORT l, i;
+
+	l = MOVQ_get_string(desc, &p, temp, sizeof(temp));
+	end = p + l;
+	picture->pic_pointer = picture->pic_string;
+	picture->pic_count = 0;
+	out = *output;
+
+	while (p < end) {
+		if ((out - *output) >= max_length)
+			break;
+		c = generate(picture);
+		if (!c || c == '?')
+			break;
+
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+		/* Be sure to group double byte characters correctly */
+
+		if KANJI1
+			(c) {
+			*out++ = c;
+			picture->pic_flags |= PIC_literal;
+			c = generate(picture);
+
+			/* Make sure it is not a truncated kanji else punt */
+
+			if (!c)
+				IBERROR(69);
+
+			/* Try to put the second byte in the output buffer 
+			   If both bytes dont fit in, put a single space and break */
+
+			if ((out - *output) >= max_length) {
+				*(out - 1) = ' ';
+				break;
+			}
+			else {
+				*out++ = c;
+				picture->pic_flags &= ~PIC_literal;
+				continue;
+			}
+			}
+#endif
+
+		c = UPPER(c);
+		switch (c) {
+		case 'X':
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+			*out++ = *p++;
+
+			/* Make sure double bytes are handled correctly */
+
+			if (KANJI1(*(out - 1))) {
+				c = generate(picture);
+				if (!c || (out - *output) >= max_length) {
+					*(out - 1) = ' ';
+					*output = out;
+					return;
+				}
+				if (c != 'X' || p == end) {
+					IBERROR(69);
+				}
+				*out++ = *p++;
+			}
+			break;
+#endif
+
+#ifdef PYXIS
+		case 'A':
+#endif
+			*out++ = *p++;
+			break;
+
+#ifndef PYXIS
+		case 'A':
+			if ((*p >= 'a' && *p <= 'z') || (*p >= 'A' && *p <= 'Z'))
+				*out++ = *p++;
+			else
+				IBERROR(69);	/* Msg 69 conversion error */
+			break;
+#endif
+
+		case 'B':
+			*out++ = ' ';
+			break;
+
+		case '"':
+		case '\'':
+		case '\\':
+			literal(picture, c, &out);
+			break;
+
+		default:
+			*out++ = c;
+			break;
+		}
+	}
+
+	*output = out;
+}
+
+
+static void edit_date( DSC * desc, PIC picture, TEXT ** output)
+{
+/**************************************
+ *
+ *	e d i t _ d a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit data from a descriptor through an edit string to a running
+ *	output pointer.
+ *
+ **************************************/
+	SLONG date[2], rel_day, seconds;
+	DSC temp_desc;
+	TEXT c, d, *p, *out, *month, *weekday, *year, *nmonth, *day,
+		*hours, temp[256], *meridian, *julians;
+	USHORT l, sig_day, blank;
+	struct tm times;
+
+	temp_desc.dsc_dtype = dtype_timestamp;
+	temp_desc.dsc_scale = 0;
+	temp_desc.dsc_sub_type = 0;
+	temp_desc.dsc_length = sizeof(date);
+	temp_desc.dsc_address = (UCHAR *) date;
+	MOVQ_move(desc, &temp_desc);
+
+#ifdef PYXIS
+	if (!date[0] && !date[1])
+		return;
+#endif
+
+	isc_decode_date(date, &times);
+	p = temp;
+
+	nmonth = p;
+	p = cvt_to_ascii((SLONG) times.tm_mon + 1, p, picture->pic_nmonths);
+
+	day = p;
+	p = cvt_to_ascii((SLONG) times.tm_mday, p, picture->pic_days);
+
+	year = p;
+	p = cvt_to_ascii((SLONG) times.tm_year + 1900, p, picture->pic_years);
+
+	julians = p;
+	p = cvt_to_ascii((SLONG) times.tm_yday + 1, p, picture->pic_julians);
+
+	if (picture->pic_meridian) {
+		if (times.tm_hour >= 12) {
+			meridian = "PM";
+			if (times.tm_hour > 12)
+				times.tm_hour -= 12;
+		}
+		else
+			meridian = "AM";
+	}
+	else
+		meridian = "";
+
+	seconds = date[1] % (60 * PRECISION);
+
+	hours = p;
+	p = cvt_to_ascii((SLONG) times.tm_hour, p, picture->pic_hours);
+	p = cvt_to_ascii((SLONG) times.tm_min, --p, picture->pic_minutes);
+	p = cvt_to_ascii((SLONG) seconds, --p, 6);
+
+	if (*hours == '0')
+		*hours = ' ';
+
+	if ((rel_day = (date[0] + 3) % 7) < 0)
+		rel_day += 7;
+	weekday = alpha_weekdays[rel_day];
+	month = alpha_months[times.tm_mon];
+
+	picture->pic_pointer = picture->pic_string;
+	picture->pic_count = 0;
+	out = *output;
+	sig_day = FALSE;
+	blank = TRUE;
+
+	for (;;) {
+		c = generate(picture);
+		if (!c || c == '?')
+			break;
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+		if KANJI1
+			(c) {
+
+			/* group double byte characters correctly */
+
+			*out++ = c;
+			picture->pic_flags |= PIC_literal;
+			c = generate(picture);
+
+			/* Make sure it is not a truncated kanji else punt */
+
+			if (!c)
+				IBERROR(69);
+
+			*out++ = c;
+			picture->pic_flags &= ~PIC_literal;
+			continue;
+			}
+#endif
+
+		c = UPPER(c);
+
+		switch (c) {
+		case 'Y':
+			*out++ = *year++;
+			break;
+
+		case 'M':
+			if (*month)
+				*out++ = *month++;
+			break;
+
+		case 'N':
+			*out++ = *nmonth++;
+			break;
+
+		case 'D':
+			d = *day++;
+			if (!sig_day && d == '0' && blank)
+				*out++ = ' ';
+			else {
+				sig_day = TRUE;
+				*out++ = d;
+			}
+			break;
+
+		case 'J':
+			if (*julians)
+				*out++ = *julians++;
+			break;
+
+		case 'W':
+			if (*weekday)
+				*out++ = *weekday++;
+			break;
+
+		case 'B':
+			*out++ = ' ';
+			break;
+
+		case 'P':
+			if (*meridian)
+				*out++ = *meridian++;
+			break;
+
+		case 'T':
+			if (*hours)
+				*out++ = *hours++;
+			break;
+
+		case '"':
+		case '\'':
+		case '\\':
+			literal(picture, c, &out);
+			break;
+
+		default:
+			*out++ = c;
+			break;
+		}
+		if (c != 'B')
+			blank = FALSE;
+	}
+
+	*output = out;
+}
+
+
+static void edit_float( DSC * desc, PIC picture, TEXT ** output)
+{
+/**************************************
+ *
+ *	e d i t _ f l o a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit data from a descriptor through an edit string to a running
+ *	output pointer.
+ *
+ **************************************/
+	TEXT c, d, e, *p, *out, temp[512];
+	BOOLEAN negative, is_signed;
+	USHORT l, width, decimal_digits, w_digits, f_digits;
+	double number;
+
+#ifdef VMS
+	BOOLEAN hack_for_vms_flag;
+#endif
+#ifdef WIN_NT
+	BOOLEAN hack_for_nt_flag;
+#endif
+
+	negative = is_signed = FALSE;
+#ifdef VMS
+	hack_for_vms_flag = FALSE;
+#endif
+#ifdef WIN_NT
+	hack_for_nt_flag = FALSE;
+#endif
+	number = MOVQ_get_double(desc);
+	if (number < 0) {
+		negative = TRUE;
+		number = -number;
+	}
+
+/* If exponents are explicitly requested (E-format edit_string), generate them.
+   Otherwise, the rules are: if the number in f-format will fit into the allotted
+   space, print it in f-format; otherwise print it in e-format.  
+   (G-format is untrustworthy.) */
+
+	if (picture->pic_exponents) {
+		width =
+			picture->pic_print_length - picture->pic_floats -
+			picture->pic_literals;
+		decimal_digits = picture->pic_fractions;
+		sprintf(temp, "%*.*e", width, decimal_digits, number);
+#ifdef VMS
+		if (!decimal_digits)
+			hack_for_vms_flag = TRUE;
+#endif
+#ifdef WIN_NT
+		hack_for_nt_flag = TRUE;
+#endif
+	}
+	else if (number == 0)
+		sprintf(temp, "%.0f", number);
+	else {
+		width = picture->pic_float_digits - 1 + picture->pic_floats;
+		f_digits = (width > 2) ? width - 2 : 0;
+		sprintf(temp, "%.*f", f_digits, number);
+		w_digits = strlen(temp);
+		if (f_digits) {
+			p = temp + w_digits;	/* find the end */
+			w_digits = w_digits - (f_digits + 1);
+			while (*--p == '0')
+				--f_digits;
+			if (*p != '.')
+				++p;
+			*p = 0;				/* move the end */
+		}
+		if ((w_digits > width)
+			|| (!f_digits && w_digits == 1 && temp[0] == '0')) {
+			/* if the number doesn't fit in the default window, revert
+			   to exponential notation; displaying the maximum number of
+			   mantissa digits. */
+
+			if (number < 1e100)
+				decimal_digits = (width > 6) ? width - 6 : 0;
+			else
+				decimal_digits = (width > 7) ? width - 7 : 0;
+			sprintf(temp, "%.*e", decimal_digits, number);
+#ifdef VMS
+			if (!decimal_digits)
+				hack_for_vms_flag = TRUE;
+#endif
+#ifdef WIN_NT
+			hack_for_nt_flag = TRUE;
+#endif
+		}
+	}
+
+#ifdef VMS
+/* If precision of 0 is specified to e- or f-format in VMS, the dec point
+   is printed regardless.  On no other platform is this the case; so take
+   it out here.  When/if this is ever fixed, ALL LINES IN THIS ROUTINE
+   THAT RELATED TO 'hack_for_vms_flag' MAY BE DELETED. */
+
+	if (hack_for_vms_flag) {
+		p = temp;
+		while (*p != '.')
+			++p;
+		while (*p = *(p + 1))
+			++p;
+	}
+#endif
+#ifdef WIN_NT
+/* On Windows NT exponents have three digits regardless of the magnitude
+   of the number being formatted.  To maintain compatiblity with other
+   platforms, if the first digit of the exponent is '0', shift the other
+   digits one to the left. */
+
+	if (hack_for_nt_flag) {
+		p = temp;
+		while (*p != 'e' && *p != 'E')
+			++p;
+		p += 2;
+		if (*p == '0')
+			while (*p = *(p + 1))
+				++p;
+	}
+#endif
+
+	p = temp;
+	picture->pic_pointer = picture->pic_string;
+	picture->pic_count = 0;
+	out = *output;
+
+	for (l = picture->pic_length - picture->pic_print_length; l > 0; --l)
+		*out++ = ' ';
+
+	for (;;) {
+		c = e = generate(picture);
+		if (!c || c == '?')
+			break;
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+		if KANJI1
+			(c) {
+			/* group double byte characters correctly */
+
+			*out++ = c;
+			picture->pic_flags |= PIC_literal;
+			c = generate(picture);
+
+			/* Make sure it is not a truncated kanji else punt */
+
+			if (!c)
+				IBERROR(69);
+
+			*out++ = c;
+			picture->pic_flags &= ~PIC_literal;
+			continue;
+			}
+#endif
+
+		c = UPPER(c);
+		switch (c) {
+		case 'G':
+			if (!is_signed) {
+				if (negative)
+					*out++ = '-';
+				else
+					*out++ = ' ';
+				is_signed = TRUE;
+			}
+			else if (*p)
+				*out++ = *p++;
+			break;
+
+		case 'B':
+			*out++ = ' ';
+			break;
+
+		case '"':
+		case '\'':
+		case '\\':
+			literal(picture, c, &out);
+			break;
+
+		case '9':
+		case 'Z':
+			if (!(*p) || *p > '9' || *p < '0')
+				break;
+			d = *p++;
+			if (c == '9' && d == ' ')
+				d = '0';
+			else if (c == 'Z' && d == '0')
+				d = ' ';
+			*out++ = d;
+			break;
+
+		case '.':
+			*out++ = (*p == c) ? *p++ : c;
+			break;
+
+		case 'E':
+			if (!(*p))
+				break;
+			*out++ = e;
+			if (UPPER(*p) == c)
+				++p;
+			break;
+
+		case '+':
+		case '-':
+			if (!(*p))
+				break;
+			if (*p != '+' && *p != '-') {
+				if (is_signed)
+					*out++ = c;
+				else if (c == '-' && !negative)
+					*out++ = ' ';
+				else if (c == '+' && negative)
+					*out++ = '-';
+				else
+					*out++ = c;
+				is_signed = TRUE;
+			}
+			else if (*p == '-' || c == '+')
+				*out++ = *p++;
+			else {
+				*out++ = ' ';
+				p++;
+			}
+			break;
+
+		default:
+			*out++ = c;
+			break;
+		}
+	}
+
+	*output = out;
+}
+
+
+static void edit_numeric( DSC * desc, PIC picture, TEXT ** output)
+{
+/**************************************
+ *
+ *	e d i t _ n u m e r i c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit data from a descriptor through an edit string to a running
+ *	output pointer.
+ *
+ **************************************/
+	TEXT c, d, float_char, temp[512], *p, *float_ptr, *out, *hex, *digits;
+	USHORT power, negative, signif, hex_overflow, overflow, l;
+	SSHORT scale;
+	SLONG n;
+	double check, number;
+
+	out = *output;
+	float_ptr = NULL;
+	negative = signif = FALSE;
+	hex_overflow = overflow = FALSE;
+
+	number = MOVQ_get_double(desc);
+	if (number < 0) {
+		number = -number;
+		negative = TRUE;
+		if (!(picture->pic_flags & PIC_signed))
+			overflow = TRUE;
+	}
+
+	if (scale = picture->pic_fractions)
+		if (scale < 0)
+			do
+				number /= 10.;
+			while (++scale);
+		else if (scale > 0)
+			do
+				number *= 10.;
+			while (--scale);
+
+	digits = p = temp;
+
+	if (picture->pic_digits && !overflow) {
+		for (check = number, power = picture->pic_digits; power; --power)
+			check /= 10.;
+		if (check >= 1)
+			overflow = TRUE;
+		else {
+			sprintf(digits, "%0*.0f", picture->pic_digits, number);
+			p = digits + strlen(digits);
+		}
+	}
+
+	picture->pic_pointer = picture->pic_string;
+	if (picture->pic_hex_digits) {
+		hex = p;
+		p += picture->pic_hex_digits;
+		for (check = number, power = picture->pic_hex_digits; power; --power)
+			check /= 16.;
+		if (check >= 1)
+			hex_overflow = TRUE;
+		else {
+			n = number;
+			while (p-- > hex) {
+				*p = "0123456789abcdef"[n & 15];
+				n >>= 4;
+			}
+		}
+	}
+
+	for (l = picture->pic_length - picture->pic_print_length; l-- > 0;)
+		*out++ = ' ';
+
+	n = (number + 0.5 < 1) ? 0 : 1;
+
+	for (;;) {
+		c = generate(picture);
+		if (!c || c == '?')
+			break;
+#if (defined JPN_SJIS || defined JPN_EUC)
+
+		if KANJI1
+			(c) {
+			/* group double byte characters correctly */
+
+			*out++ = c;
+			picture->pic_flags |= PIC_literal;
+			c = generate(picture);
+
+			/* Make sure it is not a truncated kanji else punt */
+
+			if (!c)
+				IBERROR(69);
+
+			*out++ = c;
+			picture->pic_flags &= ~PIC_literal;
+			continue;
+			}
+#endif
+
+		c = UPPER(c);
+		if (overflow && c != 'H') {
+			*out++ = '*';
+			continue;
+		}
+		switch (c) {
+		case '9':
+			signif = TRUE;
+			*out++ = *digits++;
+			break;
+
+		case 'H':
+			if (hex_overflow) {
+				*out++ = '*';
+				continue;
+			}
+		case '*':
+		case 'Z':
+			d = (c == 'H') ? *hex++ : *digits++;
+			if (signif || d != '0') {
+				*out++ = d;
+				signif = TRUE;
+			}
+			else
+				*out++ = (c == '*') ? '*' : ' ';
+			break;
+
+		case '+':
+		case '-':
+		case '$':
+			if (c == '+' && negative)
+				c = '-';
+			else if (c == '-' && !negative)
+				c = ' ';
+			float_char = c;
+			if (!float_ptr) {
+				float_ptr = out;
+				*out++ = (n) ? c : ' ';
+				break;
+			}
+			d = *digits++;
+			if (signif || d != '0') {
+				*out++ = d;
+				signif = TRUE;
+				break;
+			}
+			*float_ptr = ' ';
+			float_ptr = out;
+			*out++ = (n) ? c : ' ';
+			break;
+
+		case '(':
+		case ')':
+			*out++ = (negative) ? c : ' ';
+			break;
+
+		case 'C':
+		case 'D':
+			d = generate(picture);
+			if (negative) {
+				*out++ = c;
+				*out++ = UPPER(d);
+			}
+			else if (d) {
+				*out++ = ' ';
+				*out++ = ' ';
+			}
+			break;
+
+		case '.':
+			signif = TRUE;
+			*out++ = c;
+			break;
+
+		case 'B':
+			*out++ = ' ';
+			break;
+
+		case '"':
+		case '\'':
+		case '\\':
+			literal(picture, c, &out);
+			break;
+
+		case ',':
+			if (signif)
+				*out++ = c;
+			else if (float_ptr) {
+				*float_ptr = ' ';
+				float_ptr = out;
+				*out++ = float_char;
+			}
+			else
+				*out++ = ' ';
+			break;
+
+		default:
+			*out++ = c;
+			break;
+		}
+		if (picture->pic_flags & PIC_suppress_blanks && out[-1] == ' ')
+			--out;
+	}
+
+	*output = out;
+}
+
+
+static int generate( PIC picture)
+{
+/**************************************
+ *
+ *	g e n e r a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate the next character from a picture string.
+ *
+ **************************************/
+	TEXT c, *p;
+
+	for (;;) {
+		/* If we're in a repeat, pass it back */
+
+		if (picture->pic_count > 0) {
+			--picture->pic_count;
+			return picture->pic_character;
+		}
+
+		/* Get the next character.  If null, we're done */
+
+		c = *picture->pic_pointer++;
+
+		/* If we're in literal mode, just return the character */
+
+		if (picture->pic_flags & PIC_literal)
+			break;
+
+		/* If the next character is also a paren, it is a debit indicating
+		   bracket.  If so, swallow the second. */
+
+		if ((c == ')' || c == '(') && *picture->pic_pointer == c) {
+			picture->pic_pointer++;
+			return (picture->pic_character = c);
+		}
+
+		/* If the character is null and not a repeat count, we're done */
+
+		if (!c || c != '(')
+			break;
+
+		/* We're got a potential repeat count.  If real, extract it. */
+
+		p = picture->pic_pointer;
+		while (*p >= '0' && *p <= '9')
+			picture->pic_count = picture->pic_count * 10 + *p++ - '0';
+
+		if (p == picture->pic_pointer) {
+			c = '(';
+			break;
+		}
+
+		if (*p == ')')
+			++p;
+
+		picture->pic_pointer = p;
+
+		/* Someone may have done something very stupid, like specify a repeat
+		   count of zero.  It's too late, as we've already gen'd one instance
+		   of the edit character -- but let's not access violate, shall we? */
+
+		if (picture->pic_count)
+			--picture->pic_count;
+	}
+
+	return (picture->pic_character = c);
+}
+
+
+static void literal( PIC picture, TEXT c, TEXT ** ptr)
+{
+/**************************************
+ *
+ *	l i t e r a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle a literal string in a picture string.
+ *
+ **************************************/
+	TEXT *p, d;
+
+	p = *ptr;
+	picture->pic_flags |= PIC_literal;
+
+	if (c == '\\')
+		*p++ = generate(picture);
+	else
+		while ((d = generate(picture)) && d != c)
+			*p++ = d;
+
+	*ptr = p;
+	picture->pic_flags &= ~PIC_literal;
+}
diff --git a/src/qli/proc.e b/src/qli/proc.e
new file mode 100644
index 0000000000..fd0084f722
--- /dev/null
+++ b/src/qli/proc.e
@@ -0,0 +1,979 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		proc.e
+ *	DESCRIPTION:	Procedure maintenance routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/gds.h"
+#include "../qli/dtr.h"
+#include "../qli/parse.h"
+#include "../qli/compile.h"
+#if (defined JPN_EUC || defined JPN_SJIS)
+#include "../jrd/kanji.h"
+#endif
+#include "../qli/err_proto.h"
+#include "../qli/lex_proto.h"
+#include "../qli/meta_proto.h"
+#include "../qli/parse_proto.h"
+#include "../qli/proc_proto.h"
+
+DATABASE DB1 = EXTERN FILENAME "yachts.lnk";
+DATABASE DB = EXTERN FILENAME "yachts.lnk";
+
+static int clear_out_qli_procedures(DBB);
+static void create_qli_procedures(DBB);
+static void probe(DBB, TEXT *);
+static int upcase_name(TEXT *, TEXT *);
+
+static UCHAR tpb[] = { gds__tpb_version1, gds__tpb_write,
+	gds__tpb_concurrency
+};
+
+static UCHAR dyn_gdl1[] = {
+#include "../qli/procddl1.h"
+};
+static UCHAR dyn_gdl2[] = {
+#include "../qli/procddl2.h"
+};
+static UCHAR dyn_gdl3[] = {
+#include "../qli/procddl3.h"
+};
+static UCHAR dyn_gdl4[] = {
+#include "../qli/procddl4.h"
+};
+
+
+void PRO_close( DBB database, void *blob)
+{
+/**************************************
+ *
+ *	P R O _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close out an open procedure blob.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	if (database && gds__close_blob(status_vector, GDS_REF(blob)))
+		ERRQ_database_error(database, status_vector);
+}
+
+
+void PRO_commit( DBB database)
+{
+/**************************************
+ *
+ *	P R O _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit the procedure transaction.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	if ((database->dbb_capabilities & DBB_cap_multi_trans) &&
+		!(LEX_active_procedure()))
+		if (gds__commit_transaction(status_vector,
+									GDS_REF(database->dbb_proc_trans))) {
+			PRO_rollback(database);
+			ERRQ_database_error(database, status_vector);
+		}
+}
+
+
+void PRO_copy_procedure(
+						DBB old_database,
+						TEXT * old_name, DBB new_database, TEXT * new_name)
+{
+/**************************************
+ *
+ *	P R O _ c o p y _  p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new copy of an existing
+ *	procedure.  Search databases for the
+ *	existing procedure.
+ *
+ **************************************/
+	void *old_blob, *new_blob;
+	void *store_request;
+	STATUS status_vector[20];
+	TEXT s[120], buffer[255];
+	SSHORT length;
+	USHORT bpb_length;
+	UCHAR bpb[20], *p;
+
+	if (!new_database)
+		new_database = QLI_databases;
+
+	if (!old_database) {
+		for (old_database = QLI_databases; old_database;
+			 old_database = old_database->dbb_next) if (old_blob =
+														PRO_fetch_procedure
+														(old_database,
+														 old_name)) break;
+	}
+	else
+		old_blob = PRO_fetch_procedure(old_database, old_name);
+
+	if (!old_blob)
+		ERRQ_print_error(70, old_name, NULL, NULL, NULL, NULL);
+/* Msg 70 procedure \"%s\" is undefined */
+
+	if (new_database != old_database)
+		PRO_setup(new_database);
+
+	new_blob = NULL;
+	store_request = NULL;
+	probe(new_database, new_name);
+
+	DB1 = new_database->dbb_handle;
+
+/* create blob parameter block since procedure is a text blob */
+
+	p = bpb;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+	*p++ = gds__bpb_version1;
+	*p++ = gds__bpb_source_interp;
+	*p++ = 2;
+	*p++ = QLI_interp;
+	*p++ = QLI_interp >> 8;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+	bpb_length = p - bpb;
+
+	STORE(REQUEST_HANDLE store_request TRANSACTION_HANDLE new_database->dbb_proc_trans)
+		NEW IN DB1.QLI$PROCEDURES USING
+
+        strcpy(NEW.QLI$PROCEDURE_NAME, new_name);
+		if (gds__create_blob2(status_vector,
+							  GDS_REF(new_database->dbb_handle),
+							  GDS_REF(new_database->dbb_proc_trans),
+							  GDS_REF(new_blob),
+							  GDS_REF(NEW.QLI$PROCEDURE),
+							  bpb_length,
+							  bpb))
+				ERRQ_database_error(new_database, status_vector);
+		while (!(gds__get_segment(status_vector,
+								  GDS_REF(old_blob),
+								  GDS_REF(length),
+								  sizeof(buffer), GDS_VAL(buffer)))) {
+			buffer[length] = 0;
+			if (gds__put_segment(status_vector, GDS_REF(new_blob),
+								 length, buffer))
+					ERRQ_database_error(new_database, status_vector);
+		}
+		PRO_close(old_database, old_blob);
+		PRO_close(new_database, new_blob);
+	END_STORE;
+
+/* Release the FOR and STORE requests */
+	gds__release_request(gds__status, GDS_REF(store_request));
+	PRO_commit(new_database);
+}
+
+
+void PRO_create( DBB database, TEXT * name)
+{
+/**************************************
+ *
+ *	P R O _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a new procedure, assuming, of course, it doesn't already
+ *	exist.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	SLONG start, stop;
+	void *blob;
+	TEXT s[64];
+	USHORT bpb_length;
+	UCHAR bpb[20], *p;
+#ifdef PC_PLATFORM
+	SLONG lines = 0, last_lines = 0;
+#endif
+
+/* See if procedure is already in use */
+
+	probe(database, name);
+
+	blob = NULL;
+	start = QLI_token->tok_position;
+#ifdef PC_PLATFORM
+/* skip over the CR-LF pair for OS/2 */
+
+	start += 2;
+#endif
+	stop = start;
+
+	p = bpb;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+/* create blob parameter block since procedure is a text blob */
+
+	*p++ = gds__bpb_version1;
+	*p++ = gds__bpb_source_interp;
+	*p++ = 2;
+	*p++ = QLI_interp;
+	*p++ = QLI_interp >> 8;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+	bpb_length = p - bpb;
+
+	PRO_setup(database);
+
+/* Store record in QLI$PROCEDURES.  Eat tokens until we run into
+   END_PROCEDURE, then have LEX store the procedure in blobs. */
+
+	STORE(REQUEST_HANDLE database->dbb_store_blob) X IN DB.QLI$PROCEDURES
+		gds__vtof(name, X.QLI$PROCEDURE_NAME, sizeof(X.QLI$PROCEDURE_NAME));
+
+		if (gds__create_blob2(status_vector,
+							  GDS_REF(database->dbb_handle),
+							  GDS_REF(gds__trans),
+							  GDS_REF(blob),
+							  GDS_REF(X.QLI$PROCEDURE),
+							  bpb_length,
+							  bpb))
+				ERRQ_database_error(database, status_vector);
+		while (!MATCH(KW_END_PROCEDURE)) {
+			if (QLI_token->tok_type == tok_eof)
+				SYNTAX_ERROR(350);
+			if (QLI_token->tok_type != tok_eol)
+#ifdef PC_PLATFORM
+			{
+				stop = QLI_token->tok_position + QLI_token->tok_length;
+				last_lines = lines;
+			}
+			else
+				lines++;
+#else
+				stop = QLI_token->tok_position + QLI_token->tok_length;
+#endif
+			LEX_token();
+		}
+
+#ifdef PC_PLATFORM
+		/* adjust the length downward to ignore line feeds when determining length
+		   of the procedure to be read in from the trace file, then add a couple
+		   more bytes for the last CR-LF pair */
+		stop = stop - last_lines + 2;
+#endif
+		LEX_put_procedure(blob, start, stop);
+		gds__close_blob(status_vector, GDS_REF(blob));
+	END_STORE;
+
+/* Commit the procedure transaction, if there is one */
+
+	PRO_commit(database);
+}
+
+
+int PRO_delete_procedure( DBB database, TEXT * name)
+{
+/**************************************
+ *
+ *	P R O _ d e l e t e _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Delete a procedure.
+ *
+ **************************************/
+	USHORT count;
+	void *request;
+
+	request = NULL;
+	count = 0;
+
+	PRO_setup(database);
+
+	FOR(REQUEST_HANDLE request) X IN DB.QLI$PROCEDURES WITH
+		X.QLI$PROCEDURE_NAME EQ name 
+        ERASE X;
+		count++;
+	END_FOR;
+
+	gds__release_request(gds__status, GDS_REF(request));
+
+/* Commit the procedure transaction, if there is one */
+
+	PRO_commit(database);
+
+	return count;
+}
+
+
+void PRO_edit_procedure( DBB database, TEXT * name)
+{
+/**************************************
+ *
+ *	P R O _ e d i t _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Edit a procedure, using the token stream to get the name of
+ *	the procedure.
+ *
+ **************************************/
+	TEXT s[64];
+
+	PRO_setup(database);
+
+	FOR(REQUEST_HANDLE database->dbb_edit_blob) X IN DB.QLI$PROCEDURES WITH
+		X.QLI$PROCEDURE_NAME EQ name
+		MODIFY X USING
+#if (defined JPN_EUC  || defined JPN_SJIS)
+			if (!BLOB_edit2(&X.QLI$PROCEDURE, database->dbb_handle,
+							gds__trans, name, 1))
+#else
+			if (!BLOB_edit(&X.QLI$PROCEDURE, database->dbb_handle,
+						   gds__trans, name))
+#endif /* (defined JPN_EUC  || defined JPN_SJIS) */
+				return;
+		END_MODIFY
+		PRO_commit(database);
+		return;
+	END_FOR
+
+	STORE(REQUEST_HANDLE database->dbb_edit_store) X IN DB.QLI$PROCEDURES
+		X.QLI$PROCEDURE = gds__blob_null;
+#if (defined JPN_EUC  || defined JPN_SJIS)
+		if (!BLOB_edit2(&X.QLI$PROCEDURE, database->dbb_handle,
+						gds__trans, name, 1))
+#else
+		if (!BLOB_edit(&X.QLI$PROCEDURE, database->dbb_handle,
+					   gds__trans, name))
+#endif /* (defined JPN_EUC  || defined JPN_SJIS) */
+			return;
+		gds__vtof(name, X.QLI$PROCEDURE_NAME, sizeof(X.QLI$PROCEDURE_NAME));
+	END_STORE
+
+/* Commit the procedure transaction, if there is one */
+
+	PRO_commit(database);
+}
+
+
+void *PRO_fetch_procedure( DBB database, TEXT * proc)
+{
+/**************************************
+ *
+ *	P R O _ f e t c h _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a procedure.  Look up a name and return an open blob.
+ *	If the name doesn't exit, return NULL.
+ *
+ **************************************/
+	int *blob;
+	TEXT name[32];
+	USHORT l;
+
+	upcase_name(proc, name);
+	PRO_setup(database);
+	blob = NULL;
+
+	FOR(REQUEST_HANDLE database->dbb_lookup_blob) X IN DB.QLI$PROCEDURES WITH
+		X.QLI$PROCEDURE_NAME EQ name
+        blob = PRO_open_blob(database, &X.QLI$PROCEDURE);
+	END_FOR
+
+	return blob;
+}
+
+
+int PRO_get_line( void *blob, TEXT * buffer, USHORT size)
+{
+/**************************************
+ *
+ *	P R O _ g e t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next segment of procedure blob.  If there are
+ *	no more segments, return false.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	TEXT *p;
+	USHORT length;
+
+	gds__get_segment(status_vector,
+					 GDS_REF(blob), GDS_REF(length), size, GDS_VAL(buffer));
+
+	if (status_vector[1] && status_vector[1] != gds__segment)
+		return FALSE;
+
+	p = buffer + length;
+
+	if (p[-1] != '\n' && !status_vector[1])
+		*p++ = '\n';
+
+	*p = 0;
+
+	return TRUE;
+}
+
+
+void PRO_invoke( DBB database, TEXT * name)
+{
+/**************************************
+ *
+ *	P R O _ i n v o k e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Invoke a procedure.  The qualified procedure
+ *	block may include the database we want, or
+ *	we may have to loop through databases.  Whatever...
+ *
+ **************************************/
+	void *blob;
+	TEXT s[64];
+
+	blob = NULL;
+	if (database) {
+		if (!(blob = PRO_fetch_procedure(database, name)))
+			ERRQ_print_error(71, name, database->dbb_symbol->sym_string, NULL,
+							 NULL, NULL);
+/* Msg 71 procedure \"%s\" is undefined in database %s */
+	}
+	else
+		for (database = QLI_databases; database;
+			 database = database->dbb_next) if (blob =
+												PRO_fetch_procedure(database,
+																	name))
+					break;
+
+	if (!blob)
+		ERRQ_print_error(72, name, NULL, NULL, NULL, NULL);
+/* Msg 72 procedure \"%s\" is undefined */
+
+	LEX_procedure(database, blob);
+	LEX_token();
+}
+
+
+void *PRO_open_blob( DBB database, SLONG * blob_id)
+{
+/**************************************
+ *
+ *	P R O _ o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a procedure blob.
+ *
+ **************************************/
+	void *blob;
+	STATUS status_vector[20];
+	USHORT bpb_length;
+	UCHAR bpb[20], *p;
+
+	blob = NULL;
+	p = bpb;
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+/* create blob parameter block since procedure is a text blob */
+
+	*p++ = gds__bpb_version1;
+	*p++ = gds__bpb_target_interp;
+	*p++ = 2;
+	*p++ = QLI_interp;
+	*p++ = QLI_interp >> 8;
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+
+	bpb_length = p - bpb;
+
+	if (gds__open_blob2(status_vector,
+						GDS_REF(database->dbb_handle),
+						GDS_REF(database->dbb_proc_trans),
+						GDS_REF(blob),
+						GDS_VAL(blob_id),
+						bpb_length,
+						bpb)) ERRQ_database_error(database, status_vector);
+
+	return blob;
+}
+
+
+int PRO_rename_procedure( DBB database, TEXT * old_name, TEXT * new_name)
+{
+/**************************************
+ *
+ *	P R O _ r e n a m e _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change the name of a procedure.
+ *
+ **************************************/
+	USHORT count;
+	STATUS status_vector[20];
+	TEXT s[132];
+	void *request;
+
+	request = NULL;
+	PRO_setup(database);
+
+	probe(database, new_name);
+
+	count = 0;
+	FOR(REQUEST_HANDLE request) X IN DB.QLI$PROCEDURES WITH
+		X.QLI$PROCEDURE_NAME EQ old_name count++;
+		MODIFY X USING
+			gds__vtof(new_name, X.QLI$PROCEDURE_NAME, sizeof(X.QLI$PROCEDURE_NAME));
+		END_MODIFY
+		ON_ERROR
+			gds__release_request(gds__status, GDS_REF(request));
+			ERRQ_database_error(database, status_vector);
+		END_ERROR;
+	END_FOR;
+
+	gds__release_request(gds__status, GDS_REF(request));
+
+/* Commit the procedure transaction, if there is one */
+
+	PRO_commit(database);
+
+	return count;
+}
+
+
+void PRO_rollback( DBB database)
+{
+/**************************************
+ *
+ *	P R O _ r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Rollback the procedure transaction,
+ *	if there is one.
+ *
+ **************************************/
+	STATUS status_vector[20];
+
+	if (database->dbb_capabilities & DBB_cap_multi_trans) {
+		gds__rollback_transaction(status_vector,
+								  GDS_REF(database->dbb_proc_trans));
+
+		gds__trans = NULL;
+	}
+}
+
+
+void PRO_scan( DBB database, void (*routine) (), void *arg)
+{
+/**************************************
+ *
+ *	P R O _ s c a n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Loop thru procedures calling given routine.
+ *
+ **************************************/
+	TEXT *p;
+
+	PRO_setup(database);
+
+	FOR(REQUEST_HANDLE database->dbb_scan_blobs) X IN DB.QLI$PROCEDURES
+		SORTED BY X.QLI$PROCEDURE_NAME
+
+        p = X.QLI$PROCEDURE_NAME; 
+		while (*p && *p != ' ') {
+			p++;
+		}
+        (*routine) (arg, X.QLI$PROCEDURE_NAME,
+					strlen(X.QLI$PROCEDURE_NAME), database, &X.QLI$PROCEDURE);
+	END_FOR
+}
+
+
+void PRO_setup( DBB dbb)
+{
+/**************************************
+ *
+ *	 P R O _ s e t u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare for a DML operation on a database.  Start a procedure
+ *	transaction is one hasn't been started and the database
+ *	system will start multiple transactions.  Otherwise use
+ *	the default transaction.
+ *
+ **************************************/
+
+	if (!dbb)
+		IBERROR(77);
+/* Msg 77 database handle required */
+
+/* If we don't have a QLI$PROCEDURES relation, and can't get one, punt */
+
+	if (dbb->dbb_type == gds__info_db_impl_rdb_vms &&
+		!(dbb->dbb_flags & DBB_procedures)) IBERROR(78);
+/* Msg 78 QLI$PROCEDURES relation must be created with RDO in Rdb/VMS databases */
+
+	DB = dbb->dbb_handle;
+
+	if (dbb->dbb_flags & DBB_procedures) {
+		gds__trans = PRO_transaction(dbb, FALSE);
+		return;
+	}
+
+/* Sigh.  Relation doesn't exist.  So make it exist. */
+
+	create_qli_procedures(dbb);
+
+	gds__trans = PRO_transaction(dbb, FALSE);
+}
+
+
+void *PRO_transaction( DBB database, int update_flag)
+{
+/**************************************
+ *
+ *	P R O _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Setup transaction for procedure or form operation.
+ *
+ *	In any event, we will set up the met_transaction because
+ *	it's widely used and somebody is going to forget to test
+ *	that the database is multi_transaction before using it.
+ *	We have to be careful about committing or rolling back
+ *	because we ould affect user data.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	void *transaction;
+
+	if (!database)
+		IBERROR(248);			/* Msg248 no active database for operation */
+
+	transaction = (database->dbb_capabilities & DBB_cap_multi_trans) ?
+		database->dbb_proc_trans : NULL;
+
+	DB = database->dbb_handle;
+
+/* If we don't know whether or not the database can handle
+   multiple transactions, find out now */
+
+	if (!transaction &&
+		((database->dbb_capabilities & DBB_cap_multi_trans) ||
+		 !(database->dbb_capabilities & DBB_cap_single_trans)))
+		if (gds__start_transaction(status_vector,
+								   GDS_REF(transaction),
+								   1,
+								   GDS_REF(database->dbb_handle),
+								   sizeof(tpb),
+								   tpb))
+				database->dbb_capabilities |= DBB_cap_single_trans;
+		else
+			database->dbb_capabilities |= DBB_cap_multi_trans;
+
+/* If we already have a procedure transaction, there's more nothing to do */
+
+	gds__trans = transaction;
+
+/* If we only support a single transaction, use the data transaction */
+
+	if (!gds__trans && (database->dbb_capabilities & DBB_cap_single_trans)) {
+		if (update_flag)
+			IBERROR(249);		/* Msg249 Interactive metadata updates are not available on Rdb */
+		if (!(gds__trans = database->dbb_transaction))
+			gds__trans = MET_transaction(nod_start_trans, database);
+	}
+
+/* otherwise make one more effort to start the transaction */
+
+	else if (!gds__trans) {
+		START_TRANSACTION
+		ON_ERROR
+			ERRQ_database_error(database, status_vector);
+		END_ERROR;
+	}
+
+	database->dbb_proc_trans = gds__trans;
+
+	return gds__trans;
+}
+
+
+static int clear_out_qli_procedures( DBB dbb)
+{
+/**************************************
+ *
+ *	c l e a r _ o u t  _ q l i _ p r o c e d u r e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	The procedures relation can't be found.  Poke
+ *	around and delete any trash lying around.
+ *	Before cleaning out the trash, see if somebody
+ *	else has set up for us.
+ *
+ **************************************/
+	int count;
+	void *req;
+	STATUS status_vector[20];
+
+	req = NULL;
+	count = 0;
+
+	FOR(REQUEST_HANDLE req) R IN DB.RDB$RELATIONS CROSS
+		F IN DB.RDB$FIELDS CROSS RFR IN DB.RDB$RELATION_FIELDS WITH
+			RFR.RDB$RELATION_NAME = R.RDB$RELATION_NAME AND
+			RFR.RDB$FIELD_NAME = F.RDB$FIELD_NAME AND
+			R.RDB$RELATION_NAME = "QLI$PROCEDURES" 
+        count++;
+	END_FOR
+	ON_ERROR
+		gds__release_request(status_vector, GDS_REF(req));
+		ERRQ_database_error(dbb, gds__status);
+	END_ERROR;
+	gds__release_request(status_vector, GDS_REF(req));
+
+	if (count >= 2) {
+		dbb->dbb_flags |= DBB_procedures;
+		return 0;
+	}
+
+	count = 0;
+
+	FOR(REQUEST_HANDLE req) X IN DB.RDB$INDICES WITH X.RDB$INDEX_NAME = "QLI$PROCEDURES_IDX1"
+		ERASE X;
+		count++;
+	END_FOR
+	ON_ERROR
+		gds__release_request(status_vector, GDS_REF(req));
+		ERRQ_database_error(dbb, gds__status);
+	END_ERROR;
+	gds__release_request(status_vector, GDS_REF(req));
+
+	FOR(REQUEST_HANDLE req) X IN DB.RDB$INDEX_SEGMENTS WITH X.RDB$INDEX_NAME = "QLI$PROCEDURES_IDX1"
+		ERASE X;
+		count++;
+	END_FOR
+	ON_ERROR
+		gds__release_request(status_vector, GDS_REF(req));
+		ERRQ_database_error(dbb, gds__status);
+	END_ERROR;
+	gds__release_request(status_vector, GDS_REF(req));
+
+	FOR(REQUEST_HANDLE req) X IN DB.RDB$RELATION_FIELDS
+		WITH X.RDB$FIELD_NAME = "QLI$PROCEDURE_NAME" OR
+			X.RDB$FIELD_NAME = "QLI$PROCEDURE" 
+        ERASE X;
+		count++;
+	END_FOR
+	ON_ERROR
+		gds__release_request(status_vector, GDS_REF(req));
+		ERRQ_database_error(dbb, gds__status);
+	END_ERROR;
+	gds__release_request(gds__status, GDS_REF(req));
+
+	FOR(REQUEST_HANDLE req) X IN DB.RDB$FIELDS
+		WITH X.RDB$FIELD_NAME = "QLI$PROCEDURE_NAME" OR
+			X.RDB$FIELD_NAME = "QLI$PROCEDURE" 
+        ERASE X;
+		count++;
+	END_FOR
+	ON_ERROR
+		gds__release_request(status_vector, GDS_REF(req));
+		ERRQ_database_error(dbb, gds__status);
+	END_ERROR;
+	gds__release_request(gds__status, GDS_REF(req));
+
+	FOR(REQUEST_HANDLE req) X IN DB.RDB$RELATIONS
+		WITH X.RDB$RELATION_NAME = "QLI$PROCEDURES" 
+        ERASE X;
+		count++;
+	END_FOR
+	ON_ERROR
+		gds__release_request(status_vector, GDS_REF(req));
+		ERRQ_database_error(dbb, gds__status);
+	END_ERROR;
+	gds__release_request(gds__status, GDS_REF(req));
+
+	return count;
+}
+
+
+static void create_qli_procedures( DBB dbb)
+{
+/**************************************
+ *
+ *	c r e a t e _ q l i _ p r o c e d u r e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	The procedures relation can't be found.  Clean
+ *      out residual trash and (re)create the relation. 
+ *	Before cleaning out the trash, see if somebody
+ *	else has set up for us.
+ *
+ **************************************/
+
+	gds__trans = PRO_transaction(dbb, TRUE);
+
+	if (clear_out_qli_procedures(dbb)) {
+		PRO_commit(dbb);
+		gds__trans = PRO_transaction(dbb, TRUE);
+	}
+
+	if (dbb->dbb_flags & DBB_procedures)
+		return;
+
+	if (gds__ddl(gds__status,
+				 GDS_REF(DB),
+				 GDS_REF(gds__trans), sizeof(dyn_gdl1), dyn_gdl1)) {
+		PRO_rollback(dbb);
+		IBERROR(73);
+		/* Msg 73 Could not create QLI$PROCEDURE_NAME field */
+	}
+
+	if (gds__ddl(gds__status,
+				 GDS_REF(DB),
+				 GDS_REF(gds__trans), sizeof(dyn_gdl2), dyn_gdl2)) {
+		PRO_rollback(dbb);
+		IBERROR(74);
+		/* Msg 74 Could not create QLI$PROCEDURE field */
+	}
+
+	if (gds__ddl(gds__status,
+				 GDS_REF(DB),
+				 GDS_REF(gds__trans), sizeof(dyn_gdl3), dyn_gdl3)) {
+		PRO_rollback(dbb);
+		IBERROR(75);
+		/* Msg 75 Could not create QLI$PROCEDURES relation */
+	}
+
+	if (gds__ddl(gds__status,
+				 GDS_REF(DB),
+				 GDS_REF(gds__trans), sizeof(dyn_gdl4), dyn_gdl4)) {
+		PRO_rollback(dbb);
+		IBERROR(409);
+		/* msg 409  Could not create QLI$PROCEDURES index */
+	}
+
+	dbb->dbb_flags |= DBB_procedures;
+	PRO_commit(dbb);
+}
+
+
+static void probe( DBB database, TEXT * name)
+{
+/**************************************
+ *
+ *	p r o b e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check whether a procedure name is already in
+ *	use in a particular database.  IBERROR and don't
+ *	return if it is.
+ *
+ **************************************/
+	void *blob;
+	STATUS status_vector[20];
+
+/* Probe to see if procedure is already in use */
+
+	if (blob = PRO_fetch_procedure(database, name)) {
+		gds__close_blob(status_vector, GDS_REF(blob));
+		ERRQ_print_error(76, name, database->dbb_symbol->sym_string, NULL,
+						 NULL, NULL);
+/* Msg 76 procedure name \"%s\" in use in database %s */
+	}
+}
+
+
+static int upcase_name( TEXT * name, TEXT * buffer)
+{
+/**************************************
+ *
+ *	u p c a s e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Upcase a null terminated string and return its length.  If the
+ *	length is greater than 31 bytes, barf.
+ *
+ **************************************/
+	USHORT l;
+	TEXT c;
+
+	l = 0;
+
+	while (TRUE) {
+		c = *name++;
+		*buffer++ = UPPER(c);
+		if (!c)
+			return l;
+		if (++l > 31)
+			IBERROR(79);		/* Msg 79 procedure name over 31 characters */
+
+#ifdef JPN_SJIS
+		/* Do not upcase second byte of a sjis kanji character */
+
+		if (KANJI1(c)) {
+			c = *name++;
+			*buffer++ = c;
+			if (!c)
+				return l;
+			if (++l > 31)
+				IBERROR(79);
+		}
+#endif
+	}
+}
diff --git a/src/qli/proc_ddl.h b/src/qli/proc_ddl.h
new file mode 100644
index 0000000000..72502dbb46
--- /dev/null
+++ b/src/qli/proc_ddl.h
@@ -0,0 +1,32 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+1, 2, 9, 14, 0, 'Q', 'L', 'I', '$', 'P', 'R', 'O', 'C', 'E', 
+'D', 'U', 'R', 'E', 'S', 55, 2, 0, 2, 0, 3, 6, 18, 0, 'Q', 'L', 
+'I', '$', 'P', 'R', 'O', 'C', 'E', 'D', 'U', 'R', 'E', '_', 'N', 
+'A', 'M', 'E', 55, 2, 0, 2, 0, 'F', 2, 0, 14, 0, 'G', 2, 0, 31, 
+0, 3, 7, 18, 0, 'Q', 'L', 'I', '$', 'P', 'R', 'O', 'C', 'E', 
+'D', 'U', 'R', 'E', '_', 'N', 'A', 'M', 'E', 50, 14, 0, 'Q', 
+'L', 'I', '$', 'P', 'R', 'O', 'C', 'E', 'D', 'U', 'R', 'E', 'S', 
+55, 2, 0, 2, 0, 92, 2, 0, 0, 0, 3, 6, 13, 0, 'Q', 'L', 'I', '$', 
+'P', 'R', 'O', 'C', 'E', 'D', 'U', 'R', 'E', 55, 2, 0, 2, 0, 
+'F', 2, 0, 5, 1, 'I', 2, 0, 1, 0, 'J', 2, 0, 'P', 0, 3, 7, 13, 
+0, 'Q', 'L', 'I', '$', 'P', 'R', 'O', 'C', 'E', 'D', 'U', 'R', 
+'E', 50, 14, 0, 'Q', 'L', 'I', '$', 'P', 'R', 'O', 'C', 'E', 
+'D', 'U', 'R', 'E', 'S', 55, 2, 0, 2, 0, 92, 2, 0, 1, 0, 3, 3, 
+255, 
diff --git a/src/qli/proc_proto.h b/src/qli/proc_proto.h
new file mode 100644
index 0000000000..4b49adcef3
--- /dev/null
+++ b/src/qli/proc_proto.h
@@ -0,0 +1,43 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		proc_proto.h
+ *	DESCRIPTION:	Prototype header file for proc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_PROC_PROTO_H_
+#define _QLI_PROC_PROTO_H_
+
+extern void	PRO_close (struct dbb *, void *);
+extern void	PRO_commit (struct dbb *);
+extern void	PRO_copy_procedure (struct dbb *, TEXT *, struct dbb *, TEXT *);
+extern void	PRO_create (struct dbb *, TEXT *);
+extern int	PRO_delete_procedure (struct dbb *, TEXT *);
+extern void	PRO_edit_procedure (struct dbb *, TEXT *);
+extern void	*PRO_fetch_procedure (struct dbb *, TEXT *);
+extern int	PRO_get_line (void *, TEXT *, USHORT);
+extern void	PRO_invoke (struct dbb *, TEXT *);
+extern void	*PRO_open_blob (struct dbb *, SLONG *);
+extern int	PRO_rename_procedure (struct dbb *, TEXT *, TEXT *);
+extern void	PRO_rollback (struct dbb *);
+extern void	PRO_scan (struct dbb *, void (*)(), void *);
+extern void	PRO_setup (struct dbb *);
+extern void	*PRO_transaction (struct dbb *, int);
+
+#endif /* _QLI_PROC_PROTO_H_ */
diff --git a/src/qli/procddl1.h b/src/qli/procddl1.h
new file mode 100644
index 0000000000..8e43e6c2bd
--- /dev/null
+++ b/src/qli/procddl1.h
@@ -0,0 +1,21 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+1, 2, 6, 18, 0, 'Q', 'L', 'I', '$', 'P', 'R', 'O', 'C', 'E', 
+'D', 'U', 'R', 'E', '_', 'N', 'A', 'M', 'E', 55, 2, 0, 2, 0, 
+'F', 2, 0, 14, 0, 'G', 2, 0, 31, 0, 3, 3, 255, 
diff --git a/src/qli/procddl2.h b/src/qli/procddl2.h
new file mode 100644
index 0000000000..b0f7b163af
--- /dev/null
+++ b/src/qli/procddl2.h
@@ -0,0 +1,21 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+1, 2, 6, 13, 0, 'Q', 'L', 'I', '$', 'P', 'R', 'O', 'C', 'E', 
+'D', 'U', 'R', 'E', 55, 2, 0, 2, 0, 'F', 2, 0, 5, 1, 'I', 2, 
+0, 1, 0, 'J', 2, 0, 'P', 0, 3, 3, 255, 
diff --git a/src/qli/procddl3.h b/src/qli/procddl3.h
new file mode 100644
index 0000000000..6fe370f15e
--- /dev/null
+++ b/src/qli/procddl3.h
@@ -0,0 +1,27 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+1, 2, 9, 14, 0, 'Q', 'L', 'I', '$', 'P', 'R', 'O', 'C', 'E', 
+'D', 'U', 'R', 'E', 'S', 55, 2, 0, 2, 0, 3, 7, 18, 0, 'Q', 'L', 
+'I', '$', 'P', 'R', 'O', 'C', 'E', 'D', 'U', 'R', 'E', '_', 'N', 
+'A', 'M', 'E', 50, 14, 0, 'Q', 'L', 'I', '$', 'P', 'R', 'O', 
+'C', 'E', 'D', 'U', 'R', 'E', 'S', 55, 2, 0, 2, 0, 92, 2, 0, 
+0, 0, 3, 7, 13, 0, 'Q', 'L', 'I', '$', 'P', 'R', 'O', 'C', 'E', 
+'D', 'U', 'R', 'E', 50, 14, 0, 'Q', 'L', 'I', '$', 'P', 'R', 
+'O', 'C', 'E', 'D', 'U', 'R', 'E', 'S', 55, 2, 0, 2, 0, 92, 2, 
+0, 1, 0, 3, 3, 255,
diff --git a/src/qli/procddl4.h b/src/qli/procddl4.h
new file mode 100644
index 0000000000..aeb02548e2
--- /dev/null
+++ b/src/qli/procddl4.h
@@ -0,0 +1,28 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+    gds__dyn_version_1, 
+       gds__dyn_begin, 
+          gds__dyn_def_idx, 19,0, 'Q','L','I','$','P','R','O','C','E','D','U','R','E','S','_','I','D','X','1',
+             gds__dyn_rel_name, 14,0, 'Q','L','I','$','P','R','O','C','E','D','U','R','E','S',
+             gds__dyn_idx_unique, 2,0, 1,0,
+             gds__dyn_idx_inactive, 2,0, 0,0,
+             gds__dyn_fld_name, 18,0, 'Q','L','I','$','P','R','O','C','E','D','U','R','E','_','N','A','M','E',
+             gds__dyn_end, 
+          gds__dyn_end, 
+    gds__dyn_eoc
diff --git a/src/qli/repor_proto.h b/src/qli/repor_proto.h
new file mode 100644
index 0000000000..330875097c
--- /dev/null
+++ b/src/qli/repor_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		repor_proto.h
+ *	DESCRIPTION:	Prototype header file for report.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_REPOR_PROTO_H_
+#define _QLI_REPOR_PROTO_H_
+
+extern void	RPT_report (struct nod *);
+
+#endif /* _QLI_REPOR_PROTO_H_ */
diff --git a/src/qli/report.cpp b/src/qli/report.cpp
new file mode 100644
index 0000000000..bb5f9ca59d
--- /dev/null
+++ b/src/qli/report.cpp
@@ -0,0 +1,356 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		report.c
+ *	DESCRIPTION:	Report writer runtime control
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../qli/dtr.h"
+#include "../qli/exe.h"
+#include "../qli/compile.h"
+#include "../qli/report.h"
+#include "../qli/all_proto.h"
+#include "../qli/eval_proto.h"
+#include "../qli/exe_proto.h"
+#include "../qli/forma_proto.h"
+#include "../qli/mov_proto.h"
+#include "../qli/repor_proto.h"
+
+static void bottom_break(BRK, PRT);
+static void increment_break(BRK);
+static void initialize_break(BRK);
+static int test_break(BRK, RPT, MSG);
+static void top_break(BRK, PRT);
+static void top_of_page(PRT, BOOLEAN);
+
+#define SWAP(a,b)	{temp = a; a = b; b = temp;}
+
+
+void RPT_report( NOD loop)
+{
+/**************************************
+ *
+ *	R P T _ r e p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a FOR loop.  This may require that a request get
+ *	started, a message sent, and a message received for each
+ *	record.  At the other end of the spectrum, there may be
+ *	absolutely nothing to do.
+ *
+ **************************************/
+	RPT report;
+	NOD node, output;
+	REQ request;
+	MSG message;
+	DSC *desc;
+	BRK control;
+	STR string;
+	PRT print;
+	UCHAR *temp;
+
+/* Get to actual report node */
+
+	node = loop->nod_arg[e_for_statement];
+	report = (RPT) node->nod_arg[e_prt_list];
+	print = (PRT) node->nod_arg[e_prt_output];
+	print->prt_new_page = top_of_page;
+	print->prt_page_number = 0;
+
+/* Get to actual report node */
+
+/* If there is a request associated  with the loop, start it and possibly
+   send a message slong with it. */
+
+	if (request = (REQ) loop->nod_arg[e_for_request])
+		EXEC_start_request(request, loop->nod_arg[e_for_send]);
+	else if (message = (MSG) loop->nod_arg[e_for_send])
+		EXEC_send(message);
+
+/* Receive messages in a loop until the end of file field comes up
+   true. */
+
+	message = (MSG) loop->nod_arg[e_for_receive];
+
+/* Get the first record of the record.  If there isn't anything,
+   don't worry about anything. */
+
+	desc = EXEC_receive(message, loop->nod_arg[e_for_eof]);
+	if (*(USHORT *) desc->dsc_address)
+		return;
+
+	if (!report->rpt_buffer) {
+		string = (STR) ALLOCDV(type_str, message->msg_length);
+		report->rpt_buffer = (UCHAR *) string->str_data;
+	}
+
+	MOVQ_fast(message->msg_buffer, report->rpt_buffer,
+			  (SLONG) message->msg_length);
+
+	if (control = report->rpt_top_rpt)
+		FMT_print(control->brk_line, print);
+
+	top_of_page(print, TRUE);
+
+	initialize_break(report->rpt_bottom_breaks);
+	initialize_break(report->rpt_bottom_page);
+	initialize_break(report->rpt_bottom_rpt);
+
+/* Force TOP breaks for all fields */
+
+	for (control = report->rpt_top_breaks; control;
+		 control = control->brk_next) FMT_print(control->brk_line, print);
+
+	for (;;) {
+		/* Check for bottom breaks.  If we find one, force all lower breaks. */
+
+		for (control = report->rpt_bottom_breaks; control;
+			 control = control->brk_next)
+				if (test_break(control, report, message)) {
+				SWAP(message->msg_buffer, report->rpt_buffer);
+				bottom_break(control, print);
+				SWAP(message->msg_buffer, report->rpt_buffer);
+				initialize_break(control);
+				break;
+			}
+
+		if (print->prt_lines_remaining <= 0)
+			top_of_page(print, FALSE);
+
+		/* Now check for top breaks. */
+
+		for (control = report->rpt_top_breaks; control;
+			 control = control->brk_next)
+				if (test_break(control, report, message)) {
+				top_break(control, print);
+				break;
+			}
+
+		/* Increment statisticals and print detail line, if any */
+
+		increment_break(report->rpt_bottom_breaks);
+		increment_break(report->rpt_bottom_page);
+		increment_break(report->rpt_bottom_rpt);
+
+		if (node = report->rpt_detail_line)
+			FMT_print(node, print);
+
+		/* Get the next record.  If we're at end, we're almost done. */
+
+		SWAP(message->msg_buffer, report->rpt_buffer);
+		desc = EXEC_receive(message, loop->nod_arg[e_for_eof]);
+		if (*(USHORT *) desc->dsc_address)
+			break;
+	}
+
+/* Force BOTTOM breaks for all fields */
+
+	SWAP(message->msg_buffer, report->rpt_buffer);
+	bottom_break(report->rpt_bottom_breaks, print);
+	bottom_break(report->rpt_bottom_rpt, print);
+
+	if (control = report->rpt_bottom_page)
+		FMT_print(control->brk_line, print);
+}
+
+
+static void bottom_break( BRK control, PRT print)
+{
+/**************************************
+ *
+ *	b o t t o m  _ b r e a k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Force all lower breaks then take break.
+ *
+ **************************************/
+	LLS stack;
+
+	if (!control)
+		return;
+
+	if (control->brk_next)
+		bottom_break(control->brk_next, print);
+
+	for (stack = control->brk_statisticals; stack; stack = stack->lls_next)
+		EVAL_break_compute(stack->lls_object);
+
+	FMT_print(control->brk_line, print);
+}
+
+
+static void increment_break( BRK control)
+{
+/**************************************
+ *
+ *	i n c r e m e n t _ b r e a k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Toss another record into running computations.
+ *
+ **************************************/
+	LLS stack;
+
+	for (; control; control = control->brk_next)
+		for (stack = control->brk_statisticals; stack;
+			 stack = stack->lls_next) EVAL_break_increment(stack->lls_object);
+}
+
+
+static void initialize_break( BRK control)
+{
+/**************************************
+ *
+ *	i n i t i a l i z e _ b r e a k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a control break.
+ *
+ **************************************/
+	LLS stack;
+
+	for (; control; control = control->brk_next)
+		for (stack = control->brk_statisticals; stack;
+			 stack = stack->lls_next) EVAL_break_init(stack->lls_object);
+}
+
+
+static int test_break( BRK control, RPT report, MSG message)
+{
+/**************************************
+ *
+ *	t e s t _ b r e a k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if there has been a control break for an expression.
+ *
+ **************************************/
+	DSC desc1, desc2, *ptr1, *ptr2;
+	UCHAR *p1, *p2;
+	USHORT l;
+
+/* Evaluate the two versions of the expression */
+
+	if (ptr1 = EVAL_value(control->brk_field))
+		desc1 = *ptr1;
+
+	p1 = message->msg_buffer;
+	message->msg_buffer = report->rpt_buffer;
+
+	if (ptr2 = EVAL_value(control->brk_field))
+		desc2 = *ptr2;
+
+	message->msg_buffer = p1;
+
+/* Check for consistently missing */
+
+	if (!ptr1 || !ptr2)
+		return (ptr1 != ptr2);
+
+/* Both fields are present.  Check values.  Luckily, there's no need
+   to worry about datatypes. */
+
+	p1 = desc1.dsc_address;
+	p2 = desc2.dsc_address;
+	l = desc1.dsc_length;
+
+	if (desc1.dsc_dtype == dtype_varying)
+		l = 2 + *(USHORT *) p1;
+
+	if (l)
+		do
+			if (*p1++ != *p2++)
+				return TRUE;
+		while (--l);
+
+	return FALSE;
+}
+
+
+static void top_break( BRK control, PRT print)
+{
+/**************************************
+ *
+ *	 t o p _ b r e a k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a control break.
+ *
+ **************************************/
+	LLS stack;
+
+	for (; control; control = control->brk_next) {
+		for (stack = control->brk_statisticals; stack;
+			 stack = stack->lls_next) EVAL_break_compute(stack->lls_object);
+		FMT_print(control->brk_line, print);
+	}
+}
+
+
+static void top_of_page( PRT print, BOOLEAN first_flag)
+{
+/**************************************
+ *
+ *	t o p _ o f _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle top of page condition.
+ *
+ **************************************/
+	RPT report;
+	BRK control;
+
+	++print->prt_page_number;
+	report = print->prt_report;
+
+	if (!first_flag) {
+		if (control = report->rpt_bottom_page)
+			FMT_print(control->brk_line, print);
+		FMT_put("\f", print);
+	}
+
+	print->prt_lines_remaining = print->prt_lines_per_page;
+
+	if (control = report->rpt_top_page)
+		FMT_print(control->brk_line, print);
+	else if (report->rpt_column_header) {
+		if (report->rpt_header)
+			FMT_put(report->rpt_header, print);
+		if (report->rpt_column_header)
+			FMT_put(report->rpt_column_header, print);
+	}
+
+	if (report->rpt_bottom_page)
+		initialize_break(report->rpt_bottom_page);
+}
diff --git a/src/qli/report.h b/src/qli/report.h
new file mode 100644
index 0000000000..a8950eb44f
--- /dev/null
+++ b/src/qli/report.h
@@ -0,0 +1,56 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		report.h
+ *	DESCRIPTION:	Report writer definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_REPORT_H_
+#define _QLI_REPORT_H_
+
+/* Control break block */
+
+typedef struct brk {
+    struct blk	brk_header;
+    struct brk	*brk_next;		/* Next break */
+    SYN		brk_field;		/* Field expression for break */
+    SYN		brk_line;		/* Print line */
+    LLS		brk_statisticals;	/* Statistical expressions */
+} *BRK;
+
+/* Report block */
+
+typedef struct rpt {
+    struct blk	rpt_hdr;
+    struct nod	*rpt_detail_line;	/* Detail line print list */
+    BRK		rpt_top_page;		/* Top of page print list */
+    BRK		rpt_bottom_page;	/* Bottom of page print list */
+    BRK		rpt_top_rpt;		/* Top of report print list */
+    BRK		rpt_bottom_rpt;		/* Bottom of report print list */
+    BRK		rpt_top_breaks;		/* Top of <field> break list */
+    BRK		rpt_bottom_breaks;	/* Bottom of <field> break list */
+    TEXT	*rpt_column_header;
+    TEXT	*rpt_name;		/* Parsed report name */
+    TEXT	*rpt_header;		/* Expanded report header */
+    UCHAR	*rpt_buffer;		/* Data buffer */
+    USHORT	rpt_columns;		/* Columns per page */
+    USHORT	rpt_lines;		/* Lines per page */
+} *RPT;
+
+#endif /* _QLI_REPORT_H_ */
diff --git a/src/qli/reqs.h b/src/qli/reqs.h
new file mode 100644
index 0000000000..8423e16403
--- /dev/null
+++ b/src/qli/reqs.h
@@ -0,0 +1,93 @@
+/*
+ *	PROGRAM:	Interactive Query Language Interpreter
+ *	MODULE:		reqs.h
+ *	DESCRIPTION:	Internal request number definitions.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_REQS_H_
+#define _QLI_REQS_H_
+
+#define REQ_relation_def	0
+#define REQ_store_relation	1
+#define REQ_relation_id		2
+#define REQ_rfr_def		3
+#define REQ_field_def		4
+#define REQ_store_field		5
+#define REQ_store_rfr		6
+#define REQ_modify_fld		7
+#define REQ_update_fld		8
+#define REQ_modify_rel		9
+#define REQ_show_indices	10
+#define REQ_show_index		11
+#define REQ_check_fld		12
+#define REQ_erase_fld		13
+#define REQ_erase_index		14
+#define REQ_erase_segments	15
+#define REQ_erase_relation	16
+#define REQ_erase_rfr		17
+#define REQ_erase_view		18 
+#define REQ_show_files		19
+#define REQ_show_view		20
+#define REQ_show_field		21
+#define REQ_show_view_field	22
+#define REQ_show_dbb		23
+#define REQ_show_rel_detail	24
+#define REQ_show_global_field	25
+#define REQ_show_field_instance 26
+#define REQ_show_global_fields	27
+#define REQ_show_trigger	28
+#define REQ_show_triggers	29
+#define REQ_show_rel_secur	30
+#define REQ_show_rel_extern	31
+#define REQ_def_index1		32
+#define REQ_def_index2		33
+#define REQ_def_index3		34
+#define REQ_mdf_index		35
+#define REQ_mdf_rfr		36
+#define REQ_show_forms1		37
+#define REQ_show_forms2		38
+/* #define REQ_trig_exists		39	OBSOLETE */
+#define REQ_show_views		40
+#define REQ_show_view_rel	41
+#define REQ_show_secur_class	42
+#define REQ_show_secur		43
+#define REQ_scan_index		44
+#define REQ_show_new_trigger	45
+#define REQ_show_new_triggers	46
+#define REQ_show_sys_triggers	47
+#define REQ_new_trig_exists	48
+#define REQ_sql_grant		49
+#define REQ_sql_revoke		51
+#define REQ_sql_cr_view		52
+#define REQ_sql_alt_table	53
+#define REQ_fld_positions       54
+#define REQ_fld_subtype		55
+#define REQ_show_functions	56
+#define REQ_show_func_detail	57
+#define REQ_show_func_args	58
+#define REQ_fld_dimensions	59
+#define REQ_show_filters	60
+#define REQ_show_filter_detail	61 
+#define REQ_show_index_type	62
+#define REQ_show_trig_message   63
+#define REQ_show_dimensions	64
+#define REQ_max			65
+
+#endif /* _QLI_REQS_H_ */
diff --git a/src/qli/show.e b/src/qli/show.e
new file mode 100644
index 0000000000..33a7a094e1
--- /dev/null
+++ b/src/qli/show.e
@@ -0,0 +1,2919 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		show.e
+ *	DESCRIPTION:	Show environment commands
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/gds.h"
+#include "../qli/dtr.h"
+#include "../qli/parse.h"
+#include "../qli/compile.h"
+#include "../jrd/license.h"
+#include "../qli/reqs.h"
+#include "../jrd/flags.h"
+#include "../qli/all_proto.h"
+#include "../qli/comma_proto.h"
+#include "../qli/err_proto.h"
+#include "../qli/meta_proto.h"
+#include "../qli/proc_proto.h"
+#include "../qli/show_proto.h"
+#include "../jrd/gds_proto.h"
+
+extern USHORT QLI_columns, QLI_name_columns;
+
+static void array_dimensions(DBB, TEXT *);
+static void display_acl(DBB, SLONG[2]);
+static void display_blob(DBB, SLONG[2], TEXT *, USHORT, UCHAR *, int);
+static void display_blr(DBB, SLONG[2]);
+static void display_text(DBB, SLONG[2], TEXT *, int);
+static void display_procedure(DBB, UCHAR *, int *);
+static USHORT get_window_size(int);
+static void show_blob_info(SLONG *, SLONG *, USHORT, USHORT, DBB, TEXT *);
+static void show_blr(DBB, USHORT, SLONG *, USHORT, SLONG *);
+static void show_datatype(DBB, USHORT, USHORT, SSHORT, SSHORT, USHORT,
+						  USHORT);
+static void show_dbb(DBB);
+static void show_dbb_parameters(DBB);
+static int show_field_detail(DBB, TEXT *, TEXT *, SYN);
+static int show_field_instances(DBB, TEXT *);
+static void show_fields(REL, FLD);
+static void show_filt(QFL);
+static int show_filter_detail(DBB, TEXT *);
+static void show_filts(DBB);
+static int show_filters_detail(DBB);
+static void show_fld(SYN);
+static void show_func(QFN);
+static int show_func_detail(DBB, TEXT *);
+static void show_funcs(DBB);
+static int show_funcs_detail(DBB);
+static int show_insecure_fields(DBB, TEXT *, TEXT *);
+static void show_forms_db(DBB);
+static int show_forms_detail(DBB);
+static void show_gbl_field(SYN);
+static int show_gbl_field_detail(DBB, TEXT *);
+static void show_gbl_fields(DBB);
+static int show_gbl_fields_detail(DBB);
+static int show_indices_detail(REL);
+static void show_matching(void);
+static void show_names(TEXT *, USHORT, TEXT *);
+static void show_proc(QPR);
+static void show_procs(DBB);
+static void show_rel(REL);
+static void show_rel_detail(REL);
+static void show_rels(DBB, ENUM show_t, SSHORT);
+static int show_security_class_detail(DBB, TEXT *);
+static int show_security_classes_detail(DBB);
+static void show_string(USHORT, TEXT *, USHORT, TEXT *);
+static void show_sys_trigs(DBB);
+static void show_text_blob(DBB, TEXT *, USHORT, SLONG *, USHORT, SLONG *,
+						   int);
+static void show_trig(REL);
+static int show_trigger_detail(DBB, TEXT *);
+static void show_trigger_header(TEXT *, USHORT, USHORT, USHORT, SLONG *, DBB,
+								TEXT *);
+static void show_trigger_messages(DBB, TEXT *);
+static void show_trigger_status(TEXT *, USHORT, USHORT, USHORT);
+static void show_trigs(DBB);
+static int show_triggers_detail(DBB);
+static void show_var(NAM);
+static void show_vars(void);
+static void show_versions(void);
+static void show_view(REL);
+static int show_views_detail(DBB);
+static int truncate_string(TEXT *);
+static void view_info(DBB, TEXT *, TEXT *, SSHORT, SSHORT);
+
+static CONST SCHAR db_items[] =
+	{ gds__info_page_size, isc_info_db_size_in_pages, gds__info_end };
+static CONST UCHAR
+#if (defined JPN_EUC || defined JPN_SJIS)
+  text_bpb[] = { gds__bpb_version1, gds__bpb_target_interp, 2,
+	(HOST_INTERP & 0xff), (HOST_INTERP >> 8)
+},
+#endif							/* (defined JPN_EUC || defined JPN_SJIS) */
+  acl_bpb[] = {
+gds__bpb_version1, gds__bpb_source_type, 1, 3,
+
+		gds__bpb_target_type, 1, 1}, blr_bpb[] = {
+gds__bpb_version1, gds__bpb_source_type, 1, 2, gds__bpb_target_type, 1, 1};
+
+#define NULL_BLOB(id)	(!id [0] && !id [1])
+
+DATABASE DB = EXTERN FILENAME "yachts.lnk";
+
+/*
+    values for rdb$trigger_type, based from types.h
+    ** Some better way should be found to pick this up dynamically (?) **
+    until then, this must be kept in sync with jrd/types.h manually.
+*/
+
+#define PRE_STORE   1
+#define POST_STORE  2
+#define PRE_MODIFY  3
+#define POST_MODIFY 4
+#define PRE_ERASE   5
+#define POST_ERASE  6
+
+
+void SHOW_stuff( SYN node)
+{
+/**************************************
+ *
+ *	S H O W _ s t u f f
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show various stuffs.
+ *
+ **************************************/
+	SYN *ptr, value;
+	REL relation;
+	DBB dbb;
+	ENUM show_t sw;
+	USHORT i, count;
+	NAM name;
+	TEXT buffer[256];
+	SSHORT width;
+
+	QLI_skip_line = TRUE;
+	ptr = node->syn_arg;
+
+	for (i = 0; i < node->syn_count; i++) {
+		sw = (ENUM show_t) * ptr++;
+		value = *ptr++;
+		if (sw != show_matching_language &&
+			sw != show_version &&
+			sw != show_variable && sw != show_variables && CMD_check_ready())
+			return;
+		switch (sw) {
+		case show_all:
+			for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next) {
+				show_dbb(dbb);
+				for (relation = dbb->dbb_relations; relation;
+					 relation = relation->rel_next) {
+					if (!(relation->rel_flags & REL_system)) {
+						show_rel(relation);
+						show_fields(relation, NULL_PTR);
+					}
+					if (QLI_abort)
+						return;
+				}
+				ib_printf("\n");
+			}
+			if (QLI_variables)
+				show_vars();
+			break;
+
+		case show_databases:
+			for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next) {
+				show_dbb(dbb);
+				show_dbb_parameters(dbb);
+			}
+			break;
+
+		case show_database:
+			if (!(dbb = (DBB) value))
+				dbb = QLI_databases;
+			show_dbb(dbb);
+			show_dbb_parameters(dbb);
+			for (relation = dbb->dbb_relations; relation;
+				 relation = relation->rel_next)
+					if (!(relation->rel_flags & REL_system)) {
+					show_rel(relation);
+					show_fields(relation, NULL_PTR);
+				}
+			ib_printf("\n");
+			break;
+
+		case show_relations:
+		case show_system_relations:
+			width = get_window_size(sizeof(buffer) - 1);
+			if (dbb = (DBB) value)
+				show_rels(dbb, sw, width);
+			else
+				for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+					show_rels(dbb, sw, width);
+			break;
+
+		case show_db_fields:
+			dbb = (DBB) value;
+			for (relation = dbb->dbb_relations; relation;
+				 relation = relation->rel_next) {
+				if (!(relation->rel_flags & REL_system)) {
+					show_rel(relation);
+					show_fields(relation, NULL_PTR);
+				}
+				if (QLI_abort)
+					return;
+			}
+			break;
+
+		case show_security_classes:
+			count = 0;
+			if (value)
+				count += show_security_classes_detail(value);
+			else
+				for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+					count += show_security_classes_detail(dbb);
+			if (!count)
+				ERRQ_msg_put(90, NULL, NULL, NULL, NULL, NULL);	/* Msg90 No security classes defined */
+			break;
+
+		case show_security_class:
+			count = 0;
+			name = (NAM) value;
+			for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+				count += show_security_class_detail(dbb, name->nam_string);
+			if (!count)
+				ERRQ_msg_put(91, name->nam_string, NULL, NULL, NULL, NULL);	/* Msg91 Security class %s is not defined */
+			break;
+
+		case show_views:
+			count = 0;
+			if (value)
+				count += show_views_detail(value);
+			else
+				for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+					count += show_views_detail(dbb);
+			if (!count)
+				ERRQ_msg_put(92, NULL, NULL, NULL, NULL, NULL);	/* Msg92 No views defined */
+			break;
+
+		case show_relation:
+			show_rel(value);
+			show_fields(value, NULL_PTR);
+			show_view(value);
+			show_rel_detail(value);
+			break;
+
+		case show_indices:
+			if (value) {
+				show_rel(value);
+				if (!show_indices_detail(value))
+					ERRQ_msg_put(93, NULL, NULL, NULL, NULL, NULL);	/* Msg93 No indices defined */
+				break;
+			}
+			for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next) {
+				show_dbb(dbb);
+				for (relation = dbb->dbb_relations; relation;
+					 relation = relation->rel_next)
+						if (!(relation->rel_flags & (REL_system | REL_view))) {
+						show_rel(relation);
+						if (!show_indices_detail(relation))
+							ERRQ_msg_put(94, NULL, NULL, NULL, NULL, NULL);	/* Msg94 No indices defined */
+					}
+			}
+			break;
+
+		case show_db_indices:
+			dbb = (DBB) value;
+			show_dbb(dbb);
+			for (relation = dbb->dbb_relations; relation;
+				 relation = relation->rel_next)
+					if (!(relation->rel_flags & (REL_system | REL_view))) {
+					show_rel(relation);
+					if (!show_indices_detail(relation))
+						ERRQ_msg_put(94, NULL, NULL, NULL, NULL, NULL);	/* Msg94 No indices defined */
+				}
+			break;
+
+		case show_field:
+			show_fld(value);
+			break;
+
+		case show_filter:
+			show_filt(value);
+			break;
+
+		case show_filters:
+			if (value)
+				show_filts(value);
+			else
+				for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+					show_filts(dbb);
+			break;
+
+		case show_forms:
+			if (value)
+				show_forms_db(value);
+			else
+				for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+					show_forms_db(dbb);
+			break;
+
+		case show_function:
+			show_func(value);
+			break;
+
+		case show_functions:
+			if (value)
+				show_funcs(value);
+			else
+				for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+					show_funcs(dbb);
+			break;
+
+		case show_matching_language:
+			show_matching();
+			break;
+
+		case show_procedures:
+			if (value)
+				show_procs(value);
+			else
+				for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+					show_procs(dbb);
+			break;
+
+		case show_procedure:
+			show_proc(value);
+			break;
+
+		case show_version:
+			show_versions();
+			break;
+
+		case show_variable:
+			show_var(value);
+			break;
+
+		case show_variables:
+			show_vars();
+			break;
+
+		case show_global_field:
+			show_gbl_field(value);
+			break;
+
+		case show_global_fields:
+			show_gbl_fields(value);
+			break;
+
+		case show_trigger:
+			show_trig(value);
+			break;
+
+		case show_triggers:
+			show_trigs(value);
+			break;
+
+		case show_system_triggers:
+			if (value)
+				show_sys_trigs(value);
+			else
+				for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next)
+					show_sys_trigs(dbb);
+			break;
+
+		default:
+			BUGCHECK(7);		/* Msg7 show option not implemented */
+		}
+	}
+}
+
+
+static void array_dimensions( DBB database, TEXT * field_name)
+{
+/**************************************
+ *
+ *	a r r a y _ d i m e n s i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display the dimensions of an array
+ *
+ **************************************/
+	TEXT s[128], *p;
+
+	MET_meta_transaction(database, FALSE);
+
+	s[0] = 0;
+
+	p = s;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_dimensions])
+		D IN RDB$FIELD_DIMENSIONS WITH D.RDB$FIELD_NAME = field_name
+			SORTED BY D.RDB$DIMENSION 
+
+        if (D.RDB$LOWER_BOUND != 1) {
+			sprintf(p, "%d:", D.RDB$LOWER_BOUND);
+			while (*++p);
+		} 
+
+        sprintf(p, "%d, ", D.RDB$UPPER_BOUND);
+		while (*++p);
+	END_FOR;
+
+	--p;
+	*--p = 0;
+
+	ERRQ_msg_partial(479, s, NULL, NULL, NULL, NULL);	/* Msg479 (%s) */
+}
+
+
+static void display_acl( DBB dbb, SLONG blob_id[2])
+{
+/**************************************
+ *
+ *	d i s p l a y _ a c l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display the contents of a security class
+ *
+ **************************************/
+
+	display_blob(dbb, blob_id, "\t    ", sizeof(acl_bpb), acl_bpb, TRUE);
+}
+
+
+static void display_blob(
+						 DBB dbb,
+						 SLONG blob_id[2],
+						 TEXT * prefix,
+						 USHORT bpb_length, UCHAR * bpb, int strip_line)
+{
+/**************************************
+ *
+ *	d i s p l a y _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display the contents of a security class
+ *
+ **************************************/
+	USHORT length, buffer_length;
+	TEXT buffer[256], *b;
+	int *blob;
+	STATUS status_vector[20], status;
+
+	blob = NULL;
+
+	if (gds__open_blob2(status_vector,
+						GDS_REF(dbb->dbb_handle),
+						GDS_REF(dbb->dbb_meta_trans),
+						GDS_REF(blob),
+						GDS_VAL(blob_id),
+						bpb_length,
+						GDS_VAL(bpb)))
+			ERRQ_database_error(dbb, status_vector);
+
+	for (;;) {
+		buffer_length = sizeof(buffer) - 1;
+		status = gds__get_segment(status_vector,
+								  GDS_REF(blob),
+								  GDS_REF(length), buffer_length, buffer);
+		if (status && status != gds__segment)
+			break;
+		buffer[length--] = 0;
+		if (strip_line) {
+			for (b = buffer + length; b >= buffer;) {
+				if (*b == '\n' || *b == '\t' || *b == ' ')
+					*b-- = 0;
+				else
+					break;
+			}
+		}
+		else {
+			if (buffer[length] == '\n')
+				buffer[length] = 0;
+		}
+		if (buffer[0])
+			ib_printf("%s%s\n", prefix, buffer);
+	}
+
+	gds__close_blob(status_vector, GDS_REF(blob));
+}
+
+
+static void display_blr( DBB dbb, SLONG blob_id[2])
+{
+/**************************************
+ *
+ *	d i s p l a y _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display the contents of a security class
+ *
+ **************************************/
+
+	display_blob(dbb, blob_id, "\t    ", sizeof(blr_bpb), blr_bpb, TRUE);
+}
+
+
+static void display_text( DBB dbb, SLONG blob_id[2], TEXT * prefix, int strip)
+{
+/**************************************
+ *
+ *	d i s p l a y _ t e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display a text blob.
+ *
+ **************************************/
+
+#if (defined JPN_EUC || defined JPN_SJIS)
+	display_blob(dbb, blob_id, prefix, sizeof(text_bpb), text_bpb, strip);
+#else
+	display_blob(dbb, blob_id, prefix, 0, NULL_PTR, strip);
+#endif /* (defined JPN_EUC || defined JPN_SJIS) */
+}
+
+
+static void display_procedure( DBB database, UCHAR * name, int *blob)
+{
+/**************************************
+ *
+ *	d i s p l a y _ p r o c e d u r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show definition of procedure.  Somebody
+ *	else has already figured out what database
+ *	it's in, and so forth.  
+ *
+ **************************************/
+	STATUS status_vector[20];
+	SSHORT length;
+	UCHAR buffer[256];
+
+	ERRQ_msg_put(96, name,		/* Msg96 Procedure %s in database %s (%s) */
+				 database->dbb_filename, database->dbb_symbol->sym_string,
+				 NULL, NULL);
+
+	while (PRO_get_line(blob, buffer, sizeof(buffer)))
+		ib_printf("    %s", buffer);
+
+	PRO_close(database, blob);
+	ib_printf("\n");
+}
+
+
+static USHORT get_window_size( int max_width)
+{
+/**************************************
+ *
+ *	g e t _ w i n d o w _ s i z e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the display window size.
+ *
+ **************************************/
+	SSHORT result;
+
+	result = QLI_columns;
+
+	if (max_width < result)
+		result = max_width;
+	return result;
+}
+
+
+static void show_blob_info(
+						   SLONG * blob_blr,
+						   SLONG * blob_src,
+						   USHORT msg_blr,
+						   USHORT msg_src, DBB database, TEXT * relation_name)
+{
+/*****************************************************
+ *
+ *	s h o w _ b l o b _ i n f o
+ *
+ *****************************************************
+ *
+ * Functional description
+ *	 Display source if possible or blr.
+ *
+ *****************************************************/
+
+	if (NULL_BLOB(blob_src)) {
+		ERRQ_msg_put(msg_blr, NULL, NULL, NULL, NULL, NULL);
+		display_blr(database, blob_blr);
+	}
+	else {
+		ERRQ_msg_put(msg_src, relation_name, NULL, NULL, NULL, NULL);
+		show_text_blob(database, "\t", 0, blob_src, 0, NULL_PTR, TRUE);
+	}
+}
+
+
+
+static void show_blr(
+					 DBB database,
+					 USHORT source_msg,
+					 SLONG * source, USHORT blr_msg, SLONG * blr)
+{
+/**************************************
+ *
+ *	s h o w _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show either source or blr for a blr item along with
+ *	appopriate messages.
+ *
+ **************************************/
+
+	if (source[0] || source[1])
+		show_text_blob(database, "\t", source_msg, source, 0, NULL_PTR,
+					   FALSE);
+	else if (blr[0] || blr[1]) {
+		if (blr_msg)
+			ERRQ_msg_put(blr_msg, NULL, NULL, NULL, NULL, NULL);
+		display_blr(database, blr);
+	}
+}
+
+
+static void show_datatype(
+						  DBB database,
+						  USHORT dtype,
+						  USHORT length,
+						  SSHORT scale,
+						  SSHORT sub_type,
+USHORT segment_length, USHORT dimensions)
+{
+/**************************************
+ *
+ *	s h o w _ d a t a t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display datatype information.
+ *
+ **************************************/
+	SSHORT msg;
+	TEXT *p, *q, subtype[32];
+
+	msg = 0;
+	switch (dtype) {
+	case dtype_text:
+		msg = 97;
+		break;
+
+	case dtype_varying:
+		msg = 98;
+		break;
+
+	case dtype_cstring:
+		length -= 1;
+		msg = 99;
+		break;
+
+	case dtype_short:
+		msg = 100;
+		break;
+
+	case dtype_long:
+		msg = 101;
+		break;
+
+	case dtype_quad:
+		msg = 102;
+		break;
+
+	case dtype_real:
+		msg = 103;
+		break;
+
+	case dtype_double:
+		msg = 104;
+		break;
+
+	case dtype_blob:
+		ERRQ_msg_partial(105, NULL, NULL, NULL, NULL, NULL);	/* Msg105 blob */
+		if (segment_length)
+			ERRQ_msg_partial(106, (TEXT *) (ULONG) segment_length, NULL, NULL,
+							 NULL, NULL);	/* Msg106 , segment length %d */
+		if (sub_type) {
+			sprintf(subtype, "%d", sub_type);
+			if (database && (database->dbb_capabilities & DBB_cap_types))
+			FOR(REQUEST_HANDLE database->dbb_requests[REQ_fld_subtype])
+				TYPE IN RDB$TYPES WITH TYPE.
+					RDB$FIELD_NAME EQ "RDB$FIELD_SUB_TYPE" AND TYPE.
+					RDB$TYPE EQ sub_type 
+
+                for (p = subtype, q =  TYPE.RDB$TYPE_NAME; *q && *q != ' ';)
+					*p++ = *q++;
+                *p = 0;
+			END_FOR;
+			ERRQ_msg_partial(107, subtype, NULL, NULL, NULL, NULL);
+		}
+		return;
+
+	case dtype_sql_date:
+		ERRQ_msg_partial(110, (TEXT *) (ULONG) length, NULL, NULL, NULL,
+						 NULL);
+		ERRQ_msg_partial(107, "SQL DATE", NULL, NULL, NULL, NULL);
+		return;
+
+	case dtype_sql_time:
+		ERRQ_msg_partial(110, (TEXT *) (ULONG) length, NULL, NULL, NULL,
+						 NULL);
+		ERRQ_msg_partial(107, "SQL TIME", NULL, NULL, NULL, NULL);
+		return;
+
+	case dtype_timestamp:
+		msg = 110;
+		break;
+
+	default:
+		BUGCHECK(8);			/* Msg8 show_fields: dtype not done */
+	}
+
+	ERRQ_msg_partial(msg, (TEXT *) (ULONG) length, NULL, NULL, NULL, NULL);
+
+	if (dimensions)
+		ERRQ_msg_partial(433, NULL, NULL, NULL, NULL, NULL);	/* Msg433  array */
+
+	if (dtype == dtype_short || dtype == dtype_long || dtype == dtype_quad)
+		if (scale)
+			ERRQ_msg_partial(111, (TEXT *) (SLONG) scale, NULL, NULL, NULL, NULL);	/* Msg111 , scale %d */
+
+	if (dtype == dtype_text ||
+		dtype == dtype_varying || dtype == dtype_cstring) if (sub_type == 1)
+			ERRQ_msg_partial(112, NULL, NULL, NULL, NULL, NULL);	/* Msg112 , subtype fixed */
+		else if (sub_type != 0) {
+			sprintf(subtype, "%d", sub_type);
+			ERRQ_msg_partial(107, subtype, NULL, NULL, NULL, NULL);
+		};
+}
+
+
+static void show_dbb( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ d b b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a database name and some
+ *	functional stuff about it.
+ *
+ **************************************/
+	SYM symbol;
+
+	if (database) {
+		if (symbol = database->dbb_symbol)
+			ERRQ_msg_put(113,	/* Msg113 Database %s readied as %s */
+						 database->dbb_filename, symbol->sym_string, NULL,
+						 NULL, NULL);
+		else
+			ERRQ_msg_put(114, database->dbb_filename, NULL, NULL, NULL, NULL);	/* Msg114 Database %s */
+	}
+	else
+		ERRQ_msg_put(115, NULL, NULL, NULL, NULL, NULL);	/* Msg115 No databases are currently ready */
+}
+
+
+static void show_dbb_parameters( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ d b b _ p a r a m e t e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print stuff about a database.
+ *
+ **************************************/
+	UCHAR *d, buffer[127], item;
+	int length;
+	SLONG allocation, page_size;
+	STATUS status_vector[20];
+
+	if (!database)
+		return;
+
+	if (gds__database_info(status_vector,
+						   GDS_REF(database->dbb_handle),
+						   sizeof(db_items),
+						   db_items,
+						   sizeof(buffer),
+						   buffer))
+			ERRQ_database_error(database, status_vector);
+
+	page_size = allocation = 0;
+
+	for (d = buffer; *d != gds__info_end;) {
+		item = *d++;
+		length = gds__vax_integer(d, 2);
+		d += 2;
+		switch (item) {
+		case (isc_info_db_size_in_pages):
+			allocation = gds__vax_integer(d, length);
+			break;
+
+		case (gds__info_page_size):
+			page_size = gds__vax_integer(d, length);
+			break;
+
+		case (gds__info_error):
+			break;
+		}
+		d += length;
+	}
+
+	ERRQ_msg_put(116, (TEXT *) (SLONG) page_size, (TEXT *) allocation, NULL,
+				 NULL, NULL);	/* Msg116 Page size is %d bytes.  Current allocation is %d pages. */
+
+	MET_meta_transaction(database, FALSE);
+
+	if (database->dbb_capabilities & DBB_cap_security) {
+		FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_dbb])
+			D IN RDB$DATABASE
+				show_string(260, D.RDB$SECURITY_CLASS, 0, NULL_PTR);
+			show_text_blob(database, "\t", 261, &D.RDB$DESCRIPTION, 0,
+						   NULL_PTR, FALSE);
+		END_FOR;
+	}
+	else {
+		FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_dbb])
+			D IN RDB$DATABASE
+            show_text_blob(database, "\t", 262, &D.RDB$DESCRIPTION, 0,
+							   NULL_PTR, FALSE);
+		END_FOR;
+	}
+
+	if (database->dbb_capabilities & DBB_cap_files) {
+		if (database->dbb_capabilities & DBB_cap_shadowing) {
+			FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_files])
+				F IN DB.RDB$FILES SORTED BY F.RDB$SHADOW_NUMBER, F.RDB$FILE_START 
+
+                if (F.RDB$SHADOW_NUMBER) {
+                    if (!(F.RDB$FILE_FLAGS & FILE_conditional))
+						ERRQ_msg_put(385,
+									 (TEXT *) (SLONG) F.RDB$SHADOW_NUMBER,
+									 F.RDB$FILE_NAME,
+									 (TEXT *) F.RDB$FILE_START, NULL, NULL);	/* Msg385 Shadow %d, File:%s starting at page %d */
+				}
+				else
+					
+						
+						ERRQ_msg_put(263, F.RDB$FILE_NAME,
+									 (TEXT *) F.RDB$FILE_START, NULL, NULL, NULL);	/* Msg263 File:%s starting at page %d */
+			END_FOR;
+		}
+		else {
+			FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_files])
+				F IN DB.RDB$FILES SORTED BY F.RDB$FILE_START
+					ERRQ_msg_put(263, F.RDB$FILE_NAME,
+								 (TEXT *) F.RDB$FILE_START, NULL, NULL, NULL);	/* Msg263 File:%s starting at page %d */
+			END_FOR;
+		}
+	}
+}
+
+
+static int show_field_detail(
+							 DBB database,
+							 TEXT * relation_name,
+							 TEXT * field_name, SYN idx_node)
+{
+/**************************************
+ *
+ *	s h o w _ f i e l d _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show everything we know about local
+ *	fields with the specified name in a particular
+ *	database. 
+ *
+ **************************************/
+	USHORT count, dimensions;
+	TEXT *source_field, *p;
+
+	MET_meta_transaction(database, FALSE);
+	count = 0;
+
+	if (!(database->dbb_capabilities & DBB_cap_security))
+		count += show_insecure_fields(database, relation_name, field_name);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_field])
+		RFR IN RDB$RELATION_FIELDS CROSS
+			F IN RDB$FIELDS CROSS
+			R IN RDB$RELATIONS WITH
+			RFR.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME AND
+			R.RDB$RELATION_NAME = RFR.RDB$RELATION_NAME AND
+			(RFR.RDB$FIELD_NAME = field_name OR
+			 RFR.RDB$QUERY_NAME = field_name OR
+			 (RFR.RDB$QUERY_NAME MISSING AND F.RDB$QUERY_NAME = field_name))
+
+        truncate_string(RFR.RDB$RELATION_NAME);
+
+		if (relation_name && (strcmp(RFR.RDB$RELATION_NAME, relation_name)))
+			continue;
+
+		if ((dimensions = MET_dimensions(database, F.RDB$FIELD_NAME)) &&
+			(idx_node
+			 && (dimensions !=
+				 (USHORT) idx_node->syn_arg[s_idx_count]->
+				 syn_count))) continue;
+
+		if (count++)
+			ib_printf("\n");
+
+		truncate_string(RFR.RDB$FIELD_NAME);
+		truncate_string(F.RDB$FIELD_NAME);
+
+		if (!R.RDB$VIEW_BLR.NULL)
+			ERRQ_msg_put(495, RFR.RDB$FIELD_NAME, RFR.RDB$RELATION_NAME,
+						 database->dbb_symbol->sym_string, NULL, NULL);	/* Msg495 Field %s in view %s of database %s */
+		else
+			ERRQ_msg_put(496, RFR.RDB$FIELD_NAME, RFR.RDB$RELATION_NAME,
+						 database->dbb_symbol->sym_string, NULL, NULL);	/* Msg495 Field %s in relation %s of database %s */
+		ERRQ_msg_put(265, F.RDB$FIELD_NAME, NULL, NULL, NULL, NULL);	/* Msg265 Global field %s */
+
+		if (!RFR.RDB$BASE_FIELD.NULL) {
+			truncate_string(RFR.RDB$BASE_FIELD);
+			view_info(database, RFR.RDB$RELATION_NAME, RFR.RDB$BASE_FIELD,
+					  RFR.RDB$VIEW_CONTEXT, 0);
+		}
+
+		show_text_blob(database, "\t", 266, &RFR.RDB$DESCRIPTION, 339,
+					   &F.RDB$DESCRIPTION, FALSE);
+		ERRQ_msg_put(267, NULL, NULL, NULL, NULL, NULL);	/* Msg267 Datatype information: */
+		ib_printf("\t");
+
+		show_datatype(database, MET_get_datatype(F.RDB$FIELD_TYPE),
+					  F.RDB$FIELD_LENGTH, F.RDB$FIELD_SCALE,
+					  F.RDB$FIELD_SUB_TYPE, F.RDB$SEGMENT_LENGTH, dimensions);
+		if (dimensions && !idx_node)
+			array_dimensions(database, F.RDB$FIELD_NAME);
+		ib_printf("\n");
+		show_blr(database, 341, &F.RDB$COMPUTED_SOURCE, 341,
+				 &F.RDB$COMPUTED_BLR);
+		show_blr(database, 342, &F.RDB$VALIDATION_SOURCE, 342,
+				 &F.RDB$VALIDATION_BLR);
+		show_string(270, RFR.RDB$SECURITY_CLASS, 0, NULL_PTR);
+		show_string(271, RFR.RDB$QUERY_NAME, 271, F.RDB$QUERY_NAME);
+		show_string(273, RFR.RDB$EDIT_STRING, 273, F.RDB$EDIT_STRING);
+		show_text_blob(database, "\t", 275, &RFR.RDB$QUERY_HEADER, 275,
+					   &F.RDB$QUERY_HEADER, FALSE);
+	END_FOR;
+
+	return count;
+}
+
+
+static int show_field_instances( DBB database, TEXT * field_name)
+{
+/**************************************
+ *
+ *	s h o w _ f i e l d _ i n s t a n c e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a list of places where a global field
+ *	is used.
+ *
+ **************************************/
+	int count;
+	TEXT *source_field, *p;
+
+	count = NULL;
+	MET_meta_transaction(database, FALSE);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_field_instance])
+		RFR IN RDB$RELATION_FIELDS WITH RFR.RDB$FIELD_SOURCE = field_name
+			SORTED BY RFR.RDB$RELATION_NAME 
+
+        if (!count++)
+			ERRQ_msg_put(335, field_name, database->dbb_symbol->sym_string,
+						 NULL, NULL, NULL);	/* Msg335 Global field %s is used database %s as: */
+		truncate_string(RFR.RDB$FIELD_NAME);
+		truncate_string(RFR.RDB$RELATION_NAME);
+		ERRQ_msg_put(336, RFR.RDB$FIELD_NAME, RFR.RDB$RELATION_NAME, NULL,
+					 NULL, NULL);	/* Msg336 %s in relation %s */
+	END_FOR;
+
+	return count;
+}
+
+
+static void show_fields( REL relation, FLD fields)
+{
+/**************************************
+ *
+ *	s h o w _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show the fields for a relation.
+ *
+ **************************************/
+	DBB database;
+	FLD field;
+	SYM symbol;
+	USHORT max_name, l;
+
+/* Find the long field name (including query name) */
+
+	if (relation) {
+		if (!(relation->rel_flags & REL_fields))
+			MET_fields(relation);
+		fields = relation->rel_fields;
+		database = relation->rel_database;
+		MET_meta_transaction(database, FALSE);
+	}
+	else
+		database = NULL;
+
+	max_name = 0;
+
+	for (field = fields; field; field = field->fld_next) {
+		l = field->fld_name->sym_length;
+		if (symbol = field->fld_query_name)
+			l += symbol->sym_length + 3;
+		max_name = MAX(max_name, l);
+	}
+
+/* Now print the fields */
+
+	for (field = fields; field; field = field->fld_next) {
+		if (QLI_abort)
+			return;
+
+		symbol = field->fld_name;
+		l = symbol->sym_length;
+		ib_printf("        %s", symbol->sym_string);
+
+		if (symbol = field->fld_query_name) {
+			l += symbol->sym_length + 3;
+			ib_printf(" (%s)", symbol->sym_string);
+		}
+
+		for (l = max_name + 12 - l; l; --l)
+			ib_putchar(' ');
+		show_datatype(database, field->fld_dtype,
+					  (field->fld_dtype ==
+					   dtype_varying) ? field->fld_length -
+					  2 : field->fld_length, field->fld_scale,
+					  field->fld_sub_type, field->fld_segment_length,
+					  (field->fld_flags & FLD_array) ? TRUE : FALSE);
+		if (database && field->fld_flags & FLD_array)
+			array_dimensions(database, field->fld_name->sym_string);
+		if (field->fld_flags & FLD_computed)
+			ERRQ_msg_put(119, NULL, NULL, NULL, NULL, NULL);	/* Msg119 (computed expression) */
+		else
+			ib_printf("\n");
+	}
+}
+
+
+static void show_filt( QFL filter)
+{
+/**************************************
+ *
+ *	s h o w _ f i l t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show definition of filter.  If a particular database
+ *	was specified, look there, otherwise, print all filters
+ *	with that name.
+ *
+ **************************************/
+	int count, any_supported;
+	DBB database;
+	NAM name;
+
+	count = 0;
+	name = filter->qfl_name;
+
+	if (database = filter->qfl_database) {
+		if (!(database->dbb_capabilities & DBB_cap_filters)) {
+			/* Msg439 Filters are not supported in database %s. */
+			ERRQ_msg_put(439, database->dbb_symbol->sym_string, NULL, NULL,
+						 NULL, NULL);
+			return;
+		}
+		count = show_filter_detail(database, name->nam_string);
+		if (!count)
+			/* Msg440 Filter %s is not defined in database %s. */
+			ERRQ_msg_put(440, name->nam_string,
+						 database->dbb_symbol->sym_string, NULL, NULL, NULL);
+	}
+	else {
+		any_supported = 0;
+		for (database = QLI_databases; database;
+			 database =
+			 database->dbb_next) if (database->
+									 dbb_capabilities & DBB_cap_filters) {
+				any_supported++;
+				count += show_filter_detail(database, name->nam_string);
+			}
+		if (!count) {
+			if (any_supported)
+				/* Msg441 Filter %s is not defined in any open database */
+				ERRQ_msg_put(441, name->nam_string, NULL, NULL, NULL, NULL);
+			else
+				/* Msg442 Filters are not supported in any open database. */
+				ERRQ_msg_put(442, NULL, NULL, NULL, NULL, NULL);
+		}
+	}
+}
+
+
+static show_filter_detail( DBB database, TEXT * filter_name)
+{
+/**************************************
+ *
+ *	s h o w _ f i l t e r _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display the following information about a
+ *	filter with the specified name in a particular
+ *	database:  Filter name, filter library, input and
+ *	output sub-types, and description.
+ *
+ **************************************/
+	int count;
+
+	MET_meta_transaction(database, FALSE);
+	count = 0;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_filter_detail])
+		F IN RDB$FILTERS WITH F.RDB$FUNCTION_NAME = filter_name 
+
+        count++;
+		truncate_string(filter_name);
+
+		ERRQ_msg_put(444,		/* Msg444 Filter %s in database \"%s\" (%s): */
+					 filter_name, database->dbb_filename,
+					 database->dbb_symbol->sym_string, NULL, NULL);
+		ERRQ_msg_put(445, F.RDB$MODULE_NAME, NULL, NULL, NULL, NULL);	/* Msg445 Filter library is %s */
+		ERRQ_msg_put(446, (TEXT *) F.RDB$INPUT_SUB_TYPE, NULL, NULL, NULL, NULL);	/* Msg446 Input sub-type is %d */
+		ERRQ_msg_put(447, (TEXT *) F.RDB$OUTPUT_SUB_TYPE, NULL, NULL, NULL, NULL);	/* Msg447 Output sub-type is %d */
+		show_text_blob(database, "\t", 448, &F.RDB$DESCRIPTION, 0, NULL_PTR,
+					   FALSE);
+	END_FOR;
+	return count;
+}
+
+
+static void show_filts( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ f i l t s
+ *
+ * Functional description
+ *	Show filter names in a database.
+ *
+ **************************************/
+
+	if (!(database->dbb_capabilities & DBB_cap_filters))
+		/* Msg463 Filters are not supported for database %s. */
+		ERRQ_msg_put(463, database->dbb_symbol->sym_string, NULL, NULL, NULL,
+					 NULL);
+	else if (!(show_filters_detail(database)))
+		/* Msg464 no filters defined for database %s. */
+		ERRQ_msg_put(464, database->dbb_symbol->sym_string, NULL, NULL, NULL,
+					 NULL);
+}
+
+
+static int show_filters_detail( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ f i l t e r s _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show filter names in a database.
+ *
+ **************************************/
+	SSHORT width;
+	TEXT buffer[256];
+	int count;
+
+	count = 0;
+	width = get_window_size(sizeof(buffer) - 1);
+	buffer[0] = 0;
+	MET_meta_transaction(database, FALSE);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_filters]) F IN RDB$FILTERS
+		SORTED BY F.RDB$FUNCTION_NAME 
+
+        if (!count++)
+			  ERRQ_msg_put(449, database->dbb_filename,	/* Msg449 Filters in database %s (%s): */
+						   database->dbb_symbol->sym_string, NULL, NULL,
+						   NULL);
+		show_names(F.RDB$FUNCTION_NAME, width, buffer);
+	END_FOR;
+
+	if (buffer[0])
+		ib_printf("%s\n", buffer);
+
+	return count;
+}
+
+
+static void show_fld( SYN field_node)
+{
+/**************************************
+ *
+ *	s h o w _ f l d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show all details about a particular
+ *	field.  What we've got coming in
+ *	is a list of 1, 2, or 3 name blocks, 
+ *	contain the [[database.]relation.]field
+ *	specification.  Figure out what we've
+ *	got and let somebody else  do all the work.
+ *
+ **************************************/
+	DBB database;
+	NAM field_name, relation_name;
+	SYN *ptr;
+	SYM symbol;
+	TEXT *string, s[65];
+	int count;
+	SYN idx_node;
+
+	count = 0;
+	database = NULL;
+	field_name = NULL;
+	relation_name = NULL;
+	idx_node = NULL;
+
+	if (field_node->syn_type == nod_index) {
+		idx_node = field_node;
+		field_node = idx_node->syn_arg[s_idx_field];
+	}
+
+	for (ptr = field_node->syn_arg + field_node->syn_count;
+		 --ptr >= field_node->syn_arg;) {
+		if (!field_name)
+			field_name = (NAM) * ptr;
+		else if (!relation_name)
+			relation_name = (NAM) * ptr;
+		else
+			for (symbol = ((NAM) * ptr)->nam_symbol; symbol;
+				 symbol = symbol->sym_homonym)
+					if (symbol->sym_type = SYM_database) {
+					database = (DBB) symbol->sym_object;
+					break;
+				}
+	}
+
+	string = (relation_name) ? relation_name->nam_string : NULL;
+
+	if (string)
+		sprintf(s, "%s.%s", string, field_name->nam_string);
+	else
+		sprintf(s, "%s", field_name->nam_string);
+
+	if (database) {
+		count += show_field_detail(database, string,
+								   field_name->nam_string, NULL_PTR);
+		if (!count)
+			ERRQ_msg_put(117, s, database->dbb_symbol->sym_string, NULL, NULL, NULL);	/* Msg117 Field %s does not exist in database %s */
+	}
+	else {
+		for (database = QLI_databases; database;
+			 database = database->dbb_next) count +=
+				show_field_detail(database, string, field_name->nam_string,
+								  idx_node);
+		if (!count)
+			ERRQ_msg_put(118, s, NULL, NULL, NULL, NULL);	/* Msg118 Field %s does not exist in any open database */
+	}
+}
+
+
+static void show_func( QFN func)
+{
+/**************************************
+ *
+ *	s h o w _ f u n c 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show definition of function.  If a particular database
+ *	was specified, look there, otherwise, print all functions
+ *	with that name.
+ *
+ **************************************/
+	int count, any_supported;
+	DBB database;
+	NAM name;
+
+	count = 0;
+	name = func->qfn_name;
+
+	if (database = func->qfn_database) {
+		if (!(database->dbb_capabilities & DBB_cap_functions)) {
+			/* Msg417 Functions are not supported in database %s. */
+			ERRQ_msg_put(417, database->dbb_symbol->sym_string, NULL, NULL,
+						 NULL, NULL);
+			return;
+		}
+		count = show_func_detail(database, name->nam_string);
+		if (!count)
+			/* Msg422 Function %s is not defined in database %s. */
+			ERRQ_msg_put(422, name->nam_string,
+						 database->dbb_symbol->sym_string, NULL, NULL, NULL);
+	}
+	else {
+		any_supported = 0;
+		for (database = QLI_databases; database;
+			 database =
+			 database->dbb_next) if (database->
+									 dbb_capabilities & DBB_cap_functions) {
+				any_supported++;
+				count += show_func_detail(database, name->nam_string);
+			}
+		if (!count) {
+			if (any_supported)
+				/* Msg423 Function is %s not defined in any open database */
+				ERRQ_msg_put(423, name->nam_string, NULL, NULL, NULL, NULL);
+			else
+				/* Msg420 Functions are not supported in any open database. */
+				ERRQ_msg_put(420, NULL, NULL, NULL, NULL, NULL);
+		}
+	}
+}
+
+
+static show_func_detail( DBB database, TEXT * func_name)
+{
+/**************************************
+ *
+ *	s h o w _ f u n c _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display the following information about a
+ *	function with the specified name in a particular
+ *	database:  Function name, query name, function 
+ *	library, input and output argument datatypes, and 
+ *	description.
+ *
+ **************************************/
+	int count;
+	USHORT array;
+
+	MET_meta_transaction(database, FALSE);
+	count = 0;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_func_detail])
+		F IN RDB$FUNCTIONS WITH
+			(F.RDB$FUNCTION_NAME = func_name OR F.RDB$QUERY_NAME = func_name)
+        count++;
+		truncate_string(F.RDB$QUERY_NAME);
+		truncate_string(F.RDB$FUNCTION_NAME);
+		strcpy(func_name, F.RDB$FUNCTION_NAME);
+
+		if (F.RDB$QUERY_NAME[0])
+			ERRQ_msg_put(424,	/* Msg424 Function %s (%s) in database \"%s\" (%s): */
+						 F.RDB$FUNCTION_NAME, F.RDB$QUERY_NAME,
+						 database->dbb_filename,
+						 database->dbb_symbol->sym_string, NULL);
+		else
+			ERRQ_msg_put(425,	/* Msg425 Function %s in database \"%s\" (%s): */
+						 F.RDB$FUNCTION_NAME, database->dbb_filename,
+						 database->dbb_symbol->sym_string, NULL, NULL);
+
+		ERRQ_msg_put(426, F.RDB$MODULE_NAME, NULL, NULL, NULL, NULL);	/* Msg426 Function library is %s */
+
+		FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_func_args])
+			FA IN RDB$FUNCTION_ARGUMENTS WITH
+				FA.RDB$FUNCTION_NAME = func_name SORTED BY FA.RDB$ARGUMENT_POSITION 
+            if (FA.RDB$ARGUMENT_POSITION == 0)
+				ERRQ_msg_partial(427, NULL, NULL, NULL, NULL, NULL);	/* Msg427 Return argument is */
+			else
+				ERRQ_msg_partial(428,
+								 (TEXT *) (SLONG) FA.RDB$ARGUMENT_POSITION,
+								 NULL, NULL, NULL, NULL);	/* Msg428 Argument %d is */
+
+			array = (FA.RDB$MECHANISM == 2);
+			show_datatype(database, MET_get_datatype(FA.RDB$FIELD_TYPE),
+						  FA.RDB$FIELD_LENGTH, FA.RDB$FIELD_SCALE,
+						  FA.RDB$FIELD_SUB_TYPE, 0, array);
+			ib_printf("\n");
+		END_FOR;
+
+		show_text_blob(database, "\t", 421, &F.RDB$DESCRIPTION, 0, NULL_PTR,
+					   FALSE);
+
+	END_FOR;
+	return count;
+}
+
+
+static void show_funcs( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ f u n c s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show function names in all ready databases,
+ *	or a specific database.
+ *
+ **************************************/
+
+	if (!(database->dbb_capabilities & DBB_cap_functions))
+		ERRQ_msg_put(461, database->dbb_symbol->sym_string, NULL, NULL, NULL,
+					 NULL);
+	/* 461 - functions aren't supported in this database */
+	if (!(show_funcs_detail(database)))
+		ERRQ_msg_put(462, database->dbb_symbol->sym_string, NULL, NULL, NULL,
+					 NULL);
+	/* 462 - no functions are defined in this database */
+}
+
+
+static int show_funcs_detail( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ f u n c s _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show function names in a database.
+ *
+ **************************************/
+	SSHORT width;
+	TEXT buffer[256];
+	int count;
+
+	count = NULL;
+	width = get_window_size(sizeof(buffer) - 1);
+	buffer[0] = 0;
+	MET_meta_transaction(database, FALSE);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_functions]) F IN RDB$FUNCTIONS
+		SORTED BY F.RDB$FUNCTION_NAME 
+        if (!count++)
+			  ERRQ_msg_put(416, database->dbb_filename,	/* Msg416 Functions in database %s (%s): */
+						   database->dbb_symbol->sym_string, NULL, NULL,
+						   NULL);
+		show_names(F.RDB$FUNCTION_NAME, width, buffer);
+	END_FOR;
+
+	if (buffer[0])
+		ib_printf("%s\n", buffer);
+
+	return count;
+}
+
+
+static int show_insecure_fields(
+								DBB database,
+								TEXT * relation_name, TEXT * field_name)
+{
+/**************************************
+ *
+ *	s h o w _ i n s e c u r e _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show everything we know about local
+ *	fields with the specified name in a particular
+ *	database, that doesn't have security classes
+ *	defined.
+ *
+ **************************************/
+	int count;
+	TEXT *source_field, *p;
+
+	count = NULL;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_field])
+		RFR IN RDB$RELATION_FIELDS CROSS
+			F IN RDB$FIELDS CROSS
+			R IN RDB$RELATIONS WITH
+			RFR.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME AND
+			R.RDB$RELATION_NAME = RFR.RDB$RELATION_NAME AND
+			(RFR.RDB$FIELD_NAME = field_name OR
+			 RFR.RDB$QUERY_NAME = field_name OR
+			 (RFR.RDB$QUERY_NAME MISSING AND F.RDB$QUERY_NAME = field_name))
+
+        truncate_string(RFR.RDB$RELATION_NAME);
+		if (relation_name && (strcmp(RFR.RDB$RELATION_NAME, relation_name)))
+			continue;
+		if (count++)
+			ib_printf("\n");
+		truncate_string(RFR.RDB$FIELD_NAME);
+		truncate_string(F.RDB$FIELD_NAME);
+
+		if (R.RDB$VIEW_BLR.NULL)
+			ERRQ_msg_put(496, RFR.RDB$FIELD_NAME, RFR.RDB$RELATION_NAME,
+						 database->dbb_symbol->sym_string, NULL, NULL);	/* Msg495 Field %s in relation %s of database %s */
+		else
+			ERRQ_msg_put(495, RFR.RDB$FIELD_NAME, RFR.RDB$RELATION_NAME,
+						 database->dbb_symbol->sym_string, NULL, NULL);	/* Msg495 Field %s in view %s of database %s */
+		ERRQ_msg_put(338, F.RDB$FIELD_NAME, NULL, NULL, NULL, NULL);	/* Msg338 Global field %s */
+
+		if (!RFR.RDB$BASE_FIELD.NULL) {
+			truncate_string(RFR.RDB$BASE_FIELD);
+			view_info(database, RFR.RDB$RELATION_NAME, RFR.RDB$BASE_FIELD,
+					  RFR.RDB$VIEW_CONTEXT, 0);
+		}
+
+		show_text_blob(database, "\t", 339, &RFR.RDB$DESCRIPTION, 339,
+					   &F.RDB$DESCRIPTION, FALSE);
+		ERRQ_msg_partial(340, NULL, NULL, NULL, NULL, NULL);	/* Msg340 Datatype information: */
+		ib_printf("\t");
+		show_datatype(database, MET_get_datatype(F.RDB$FIELD_TYPE),
+					  F.RDB$FIELD_LENGTH, F.RDB$FIELD_SCALE,
+					  F.RDB$FIELD_SUB_TYPE, F.RDB$SEGMENT_LENGTH,
+					  MET_dimensions(database, F.RDB$FIELD_NAME));
+		ib_printf("\n");
+		show_blr(database, 341, &F.RDB$COMPUTED_SOURCE, 341,
+				 &F.RDB$COMPUTED_BLR);
+		show_blr(database, 342, &F.RDB$VALIDATION_SOURCE, 342,
+				 &F.RDB$VALIDATION_BLR);
+		show_string(343, RFR.RDB$QUERY_NAME, 343, F.RDB$QUERY_NAME);
+		show_string(346, RFR.RDB$EDIT_STRING, 346, F.RDB$EDIT_STRING);
+		show_text_blob(database, "\t", 345, &RFR.RDB$QUERY_HEADER, 345,
+					   &F.RDB$QUERY_HEADER, FALSE);
+	END_FOR;
+
+	return count;
+}
+
+
+static void show_forms_db( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ f o r m s _ d b 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show what we know about forms
+ *	for one database.
+ *
+ **************************************/
+	int count;
+
+	if (!(show_forms_detail(database)))
+		ERRQ_msg_put(120, database->dbb_symbol->sym_string, NULL, NULL, NULL,
+					 NULL);
+	/* Msg120 There are no forms defined for database %s */
+}
+
+
+static int show_forms_detail( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ f o r m s _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show everything we know about forms,
+ *	meaning basically show form names
+ *
+ **************************************/
+	int count;
+
+	count = NULL;
+	MET_meta_transaction(database, FALSE);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_forms1])
+		Y IN RDB$RELATIONS WITH Y.RDB$RELATION_NAME = "PYXIS$FORMS"
+		FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_forms2])
+			X IN PYXIS$FORMS 
+            if (!count)									
+                ERRQ_msg_put(285, database->dbb_symbol->sym_string, NULL, NULL, NULL, NULL);	/* Msg285 Forms in database %s */
+            ib_printf("    %s\t%s\n", X.PYXIS$FORM_NAME, X.PYXIS$FORM_TYPE);
+			count++;
+		END_FOR;
+	END_FOR;
+	return count;
+}
+
+
+static void show_gbl_field( SYN field_node)
+{
+/**************************************
+ *
+ *	s h o w _ g b l _ f i e l d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show what we know about a global
+ *	field.  It may be qualified with a
+ *	database handle, in which case, show only
+ *	the one global field in that database,
+ *	otherwise show them all.
+ *
+ **************************************/
+	DBB database;
+	SYN *ptr;
+	NAM field_name, name;
+	SYM symbol;
+	int count;
+
+	count = 0;
+	field_name = NULL;
+	database = NULL;
+
+	for (ptr = field_node->syn_arg + field_node->syn_count - 1;
+		 ptr >= field_node->syn_arg; ptr--) {
+		if (!field_name)
+			field_name = (NAM) * ptr;
+		else
+			for (name = (NAM) * ptr, symbol = name->nam_symbol;
+				 symbol; symbol = symbol->sym_homonym)
+				if (symbol->sym_type = SYM_database) {
+					database = (DBB) symbol->sym_object;
+					break;
+				}
+	}
+
+	if (database) {
+		count += show_gbl_field_detail(database, field_name->nam_string);
+		if (!count)
+			ERRQ_msg_put(122,	/* Msg122 Global field %s does not exist in database %s */
+						 field_name->nam_string,
+						 database->dbb_symbol->sym_string, NULL, NULL, NULL);
+	}
+	else {
+		for (database = QLI_databases; database;
+			 database = database->dbb_next) count +=
+				show_gbl_field_detail(database, field_name->nam_string);
+		if (!count)
+			ERRQ_msg_put(123, field_name->nam_string, NULL, NULL, NULL, NULL);	/* Msg123 Global field %s does not exist in any open database */
+	}
+
+}
+
+
+static int show_gbl_field_detail( DBB database, TEXT * field_name)
+{
+/**************************************
+ *
+ *	s h o w _ g b l _ f i e l d _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show everything we know about a global
+ *	field with the specified name in a particular
+ *	database. 
+ *
+ **************************************/
+	int count;
+	TEXT *source_field, *p;
+
+	count = NULL;
+	MET_meta_transaction(database, FALSE);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_global_field])
+		F IN RDB$FIELDS WITH F.RDB$FIELD_NAME = field_name 
+
+        if (count++)
+			ib_printf("\n");
+		truncate_string(F.RDB$FIELD_NAME);
+
+		ERRQ_msg_put(276, F.RDB$FIELD_NAME, database->dbb_symbol->sym_string,
+					 NULL, NULL, NULL);	/* Msg276 Global field %s in database %s */
+
+		show_text_blob(database, "\t", 277, &F.RDB$DESCRIPTION, 0, NULL_PTR,
+					   FALSE);
+		ERRQ_msg_put(278, NULL, NULL, NULL, NULL, NULL);	/* Msg278 Datatype information: */
+		ib_printf("\t");
+		show_datatype(database, MET_get_datatype(F.RDB$FIELD_TYPE),
+					  F.RDB$FIELD_LENGTH, F.RDB$FIELD_SCALE,
+					  F.RDB$FIELD_SUB_TYPE, F.RDB$SEGMENT_LENGTH,
+					  MET_dimensions(database, F.RDB$FIELD_NAME));
+		ib_printf("\n");
+		show_blr(database, 279, &F.RDB$COMPUTED_SOURCE, 341,
+				 &F.RDB$COMPUTED_BLR);
+		show_blr(database, 280, &F.RDB$VALIDATION_SOURCE, 342,
+				 &F.RDB$VALIDATION_BLR);
+		show_string(281, F.RDB$QUERY_NAME, 0, NULL_PTR);
+		show_string(282, F.RDB$EDIT_STRING, 0, NULL_PTR);
+		show_text_blob(database, "\t", 283, &F.RDB$QUERY_HEADER, 0, NULL_PTR,
+					   FALSE);
+	END_FOR;
+
+	if (count && !(show_field_instances(database, field_name)))
+		ERRQ_msg_put(284, field_name, database->dbb_symbol->sym_string, NULL,
+					 NULL, NULL);	/* Msg284 %s is not used in any relations in database %s */
+
+	return count;
+}
+
+
+static void show_gbl_fields( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ g b l _ f i e l d s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show what we know about a global
+ *	field.  It may be qualified with a
+ *	database handle, in which case, show only
+ *	the global fields in that database,
+ *	otherwise show them all.
+ *
+ **************************************/
+	int count;
+
+	count = 0;
+	if (database) {
+		count += show_gbl_fields_detail(database);
+		if (!count)
+			ERRQ_msg_put(124, database->dbb_symbol->sym_string, NULL, NULL,
+						 NULL, NULL);	/* Msg124 There are no fields defined for database %s */
+	}
+	else {
+		for (database = QLI_databases; database;
+			 database = database->dbb_next) count +=
+				show_gbl_fields_detail(database);
+		if (!count)
+			ERRQ_msg_put(125, NULL, NULL, NULL, NULL, NULL);	/* Msg125 There are no fields defined in any open database */
+	}
+}
+
+
+static int show_gbl_fields_detail( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ g b l _ f i e l d s _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show everything we know about 
+ *	global fields in a particular
+ *	database. 
+ *
+ **************************************/
+	int count;
+	TEXT *source_field, *p;
+
+	count = NULL;
+	MET_meta_transaction(database, FALSE);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_global_fields])
+		F IN RDB$FIELDS WITH F.RDB$SYSTEM_FLAG MISSING OR
+			F.RDB$SYSTEM_FLAG = 0 SORTED BY F.RDB$FIELD_NAME 
+
+        if (!count++)
+			ERRQ_msg_put(286, database->dbb_symbol->sym_string, NULL, NULL,
+						 NULL, NULL);	/* Msg286 Global fields for database %s: */
+
+		if (!F.RDB$COMPUTED_BLR.NULL)
+			continue;
+		ib_printf("    %s", F.RDB$FIELD_NAME);
+		show_datatype(database, MET_get_datatype(F.RDB$FIELD_TYPE),
+					  F.RDB$FIELD_LENGTH, F.RDB$FIELD_SCALE,
+					  F.RDB$FIELD_SUB_TYPE, F.RDB$SEGMENT_LENGTH,
+					  MET_dimensions(database, F.RDB$FIELD_NAME));
+		show_text_blob(database, "\t", 262, &F.RDB$DESCRIPTION, 0, NULL_PTR,
+					   FALSE);
+		ib_printf("\n");
+	END_FOR;
+
+	return count;
+}
+
+
+static int show_indices_detail( REL relation)
+{
+/**************************************
+ *
+ *	s h o w _ i n d i c e s _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show indices for a relation.  If none, return 0.
+ *
+ **************************************/
+	USHORT count, type;
+	TEXT *p;
+	DBB database;
+
+	type = count = 0;
+	database = relation->rel_database;
+	MET_meta_transaction(database, FALSE);
+
+	if (database->dbb_capabilities & DBB_cap_idx_inactive) {
+		FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_indices])
+			X IN RDB$INDICES CROSS Z IN RDB$RELATIONS
+				WITH X.RDB$RELATION_NAME EQ relation->rel_symbol->sym_string
+				AND Z.RDB$RELATION_NAME EQ X.RDB$RELATION_NAME
+				AND Z.RDB$VIEW_BLR MISSING SORTED BY X.RDB$INDEX_NAME++ count;
+        if (database->dbb_capabilities & DBB_cap_index_type)
+			FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_index_type])
+				Y IN RDB$INDICES WITH Y.RDB$INDEX_NAME = X.RDB$INDEX_NAME
+
+                type = Y.RDB$INDEX_TYPE;
+			END_FOR;
+
+			for (p = X.RDB$INDEX_NAME; *p && *p != ' '; p++);
+			*p = 0;
+
+			ERRQ_msg_put(450, X.RDB$INDEX_NAME,
+						 (X.RDB$UNIQUE_FLAG) ? " (unique)" : "",
+						 (type == 1) ? " (descending)" : "",
+						 (X.RDB$INDEX_INACTIVE) ? " (inactive)" : "", NULL);	/* Msg450 Index %s%s%s%s */
+
+			FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_index])
+				Y IN RDB$INDEX_SEGMENTS WITH
+					Y.RDB$INDEX_NAME EQ X.RDB$INDEX_NAME
+					SORTED BY Y.RDB$FIELD_POSITION
+
+                for (p = Y.RDB$FIELD_NAME; *p && *p != ' '; p++);
+				ib_printf("            %s\n", Y.RDB$FIELD_NAME);
+			END_FOR;
+
+#ifdef PC_ENGINE
+/***	if (!X.RDB$EXPRESSION_SOURCE.NULL)
+	    show_text_blob (database, "\t    ", 0, &X.RDB$EXPRESSION_SOURCE, 0, NULL_PTR, TRUE);
+	else if (!X.RDB$EXPRESSION_BLR.NULL)
+	    {
+	    ERRQ_msg_put (485, NULL, NULL, NULL, NULL, NULL);
+	    display_blr (database, &X.RDB$EXPRESSION_BLR);
+            } ***/
+#endif
+		END_FOR;
+	}
+	else {
+		FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_indices])
+			X IN RDB$INDICES CROSS Z IN RDB$RELATIONS
+				WITH X.RDB$RELATION_NAME EQ relation->rel_symbol->sym_string
+				AND Z.RDB$RELATION_NAME EQ X.RDB$RELATION_NAME
+				AND Z.RDB$VIEW_BLR MISSING SORTED BY X.RDB$INDEX_NAME
+
+            ++count;
+            for (p = X.RDB$INDEX_NAME; *p && *p != ' '; p++);
+			*p = 0;
+			ERRQ_msg_put(290, X.RDB$INDEX_NAME,
+						 (X.RDB$UNIQUE_FLAG) ? " (unique)" : "", NULL, NULL, NULL);	/* Msg290 Index %s%s */
+			FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_index])
+				Y IN RDB$INDEX_SEGMENTS WITH
+					Y.RDB$INDEX_NAME EQ X.RDB$INDEX_NAME
+					SORTED BY Y.RDB$FIELD_POSITION
+                for (p = Y.RDB$FIELD_NAME; *p && *p != ' '; p++);
+				ib_printf("            %s\n", Y.RDB$FIELD_NAME);
+			END_FOR;
+		END_FOR;
+	}
+
+	return count;
+}
+
+
+static void show_matching(void)
+{
+/**************************************
+ *
+ *	s h o w _ m a t c h i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Just print the QLI matching language string.
+ *
+ **************************************/
+	TEXT buffer[256];
+
+	if (QLI_abort)
+		return;
+	if (QLI_matching_language) {
+		strncpy(buffer, QLI_matching_language->con_data,
+				QLI_matching_language->con_desc.dsc_length);
+		buffer[QLI_matching_language->con_desc.dsc_length] = 0;
+		ib_printf("\n\t%s\n", buffer);
+	}
+}
+
+
+static void show_names( TEXT * name, USHORT width, TEXT * buffer)
+{
+/**************************************
+ *
+ *	s h o w _ n a m e s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	BASED ON QLI$PROCEDURES.QLI$PROCEDURE_NAME padded_name;
+	TEXT *s;
+	SSHORT len, l1, l2;
+
+	s = buffer + strlen(buffer);
+	len = sizeof(padded_name) - 1;
+	l1 = s - buffer;
+	if ((s != buffer) && ((l1 + len + 4) > width)) {
+		ib_printf("%s\n", buffer);
+		buffer[0] = 0;
+		s = buffer;
+	}
+	*s++ = ' ';
+	*s++ = ' ';
+	*s++ = ' ';
+	*s++ = ' ';
+	strcpy(s, name);
+	while (*s) {
+		s++;
+		len--;
+	}
+	while (len--)
+		*s++ = ' ';
+	*s = 0;
+}
+
+
+static void show_proc( QPR proc)
+{
+/**************************************
+ *
+ *	s h o w _ p r o c 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show definition of procedure.  If a particular database
+ *	was specified, look there, otherwise, print all procedures
+ *	with that name.
+ *
+ **************************************/
+	int *blob, count;
+	DBB database;
+	NAM name;
+
+	count = 0;
+	name = proc->qpr_name;
+
+	if (database = proc->qpr_database) {
+		if (blob = PRO_fetch_procedure(database, name->nam_string))
+			display_procedure(database, name->nam_string, blob);
+		else
+			ERRQ_msg_put(126,	/* Msg126 Procedure %s not found in database %s */
+						 name->nam_string, database->dbb_symbol->sym_string,
+						 NULL, NULL, NULL);
+		return;
+	}
+
+	for (database = QLI_databases; database; database = database->dbb_next)
+		if (blob = PRO_fetch_procedure(database, name->nam_string)) {
+			display_procedure(database, name->nam_string, blob);
+			count++;
+		}
+
+	if (!count) {
+		ERRQ_msg_put(127, name->nam_string, NULL, NULL, NULL, NULL);	/* Msg127 Procedure %s not found */
+		return;
+	}
+}
+
+
+static void show_procs( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ p r o c s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show procedures in a database
+ *
+ **************************************/
+	SSHORT width;
+	TEXT buffer[256];
+
+	width = get_window_size(sizeof(buffer) - 1);
+
+	PRO_setup(database);
+	ERRQ_msg_put(128, database->dbb_filename,	/* Msg128 Procedures in database %s (%s): */
+				 database->dbb_symbol->sym_string, NULL, NULL, NULL);
+	buffer[0] = 0;
+	FOR(REQUEST_HANDLE database->dbb_scan_blobs) X IN DB.QLI$PROCEDURES
+		SORTED BY X.QLI$PROCEDURE_NAME
+        show_names(X.QLI$PROCEDURE_NAME, width, buffer);
+	END_FOR;
+	if (buffer[0])
+		ib_printf("%s\n", buffer);
+}
+
+
+static void show_rel( REL relation)
+{
+/**************************************
+ *
+ *	s h o w _ r e l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Just print a relation name.  Almost mindless.
+ *
+ **************************************/
+
+	if (QLI_abort)
+		return;
+
+	ib_printf("    %s\n", relation->rel_symbol->sym_string);
+}
+
+
+static void show_rel_detail( REL relation)
+{
+/**************************************
+ *
+ *	s h o w _ r e l _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Ask META to print description, 
+ *	security class, etc.
+ *
+ **************************************/
+	DBB database;
+	TEXT *relation_name;
+	USHORT msg;
+
+	relation_name = relation->rel_symbol->sym_string;
+	database = relation->rel_database;
+	MET_meta_transaction(database, FALSE);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_rel_detail])
+		R IN RDB$RELATIONS WITH
+			R.RDB$RELATION_NAME = relation_name
+        show_text_blob(database, "\t", 291, &R.RDB$DESCRIPTION, 0,
+						   NULL_PTR, FALSE);
+
+		if (database->dbb_capabilities & DBB_cap_security)
+		FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_rel_secur])
+			S IN RDB$RELATIONS WITH S.RDB$RELATION_NAME = R.RDB$RELATION_NAME
+				AND S.RDB$SECURITY_CLASS NOT MISSING
+            show_string(292, S.RDB$SECURITY_CLASS, 0, NULL_PTR);
+		END_FOR;
+
+		if (database->dbb_capabilities & DBB_cap_extern_file)
+		FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_rel_extern])
+			E IN RDB$RELATIONS WITH E.RDB$RELATION_NAME = R.RDB$RELATION_NAME
+				AND E.RDB$EXTERNAL_FILE NOT MISSING
+				ERRQ_msg_put(293, E.RDB$EXTERNAL_FILE, NULL, NULL, NULL, NULL);	/* Msg293 Stored in external file %s */
+		END_FOR;
+
+/* OBSOLETE - Handling of DBB_cap_triggers (old V2 style triggers) */
+/* OBSOLETE - Msg294 An erase trigger is defined for %s */
+/* OBSOLETE - Msg295 A modify trigger is defined for %s */
+/* OBSOLETE - Msg296 A store trigger is defined for %s */
+
+		if (database->dbb_capabilities & DBB_cap_new_triggers) {
+			msg = 380;
+			FOR(REQUEST_HANDLE database->dbb_requests[REQ_new_trig_exists])
+				X IN RDB$TRIGGERS WITH X.RDB$RELATION_NAME EQ relation->
+					rel_symbol->sym_string 
+                if (!X.RDB$TRIGGER_BLR.NULL) {
+					if (msg) {
+						ERRQ_msg_put(msg, NULL, NULL, NULL, NULL, NULL);	/* Msg380 Trigger defined for this relation */
+						msg = 0;
+					} 
+                    ib_printf("\t");
+					show_trigger_status(X.RDB$TRIGGER_NAME,
+										X.RDB$TRIGGER_TYPE,
+										X.RDB$TRIGGER_INACTIVE,
+										X.RDB$TRIGGER_SEQUENCE);
+				}
+			END_FOR;
+		}
+	END_FOR;
+}
+
+
+static void show_rels( DBB dbb, ENUM show_t sw, SSHORT width)
+{
+/**************************************
+ *
+ *	s h o w _ r e l s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display information about a relations
+ *      or system_relations for a specific database.
+ *
+ **************************************/
+	SYN *ptr, value;
+	REL relation;
+	TEXT buffer[256];
+
+	switch (sw) {
+	case show_relations:
+		{
+			show_dbb(dbb);
+			buffer[0] = 0;
+			for (relation = dbb->dbb_relations; relation;
+				 relation = relation->rel_next)
+					if (!(relation->rel_flags & REL_system))
+						show_names(relation->rel_symbol->sym_string, width,
+								   buffer);
+			if (buffer[0])
+				ib_printf("%s\n", buffer);
+			ib_printf("\n");
+			break;
+		}
+	case show_system_relations:
+		{
+			show_dbb(dbb);
+			buffer[0] = 0;
+			for (relation = dbb->dbb_relations; relation;
+				 relation = relation->rel_next)
+					if (relation->rel_flags & REL_system)
+						show_names(relation->rel_symbol->sym_string, width,
+								   buffer);
+			if (buffer[0])
+				ib_printf("%s\n", buffer);
+			ib_printf("\n");
+		}
+	}
+}
+
+
+static int show_security_class_detail( DBB database, TEXT * name)
+{
+/**************************************
+ *
+ *	s h o w _ s e c u r i t y _ c l a s s _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show security classes for a databases.
+ *
+ **************************************/
+	SSHORT count;
+
+	count = 0;
+	MET_meta_transaction(database, FALSE);
+
+	if (!database->dbb_capabilities & DBB_cap_security)
+		return FALSE;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_secur_class])
+		S IN RDB$SECURITY_CLASSES WITH S.RDB$SECURITY_CLASS = name
+        if (truncate_string(S.RDB$SECURITY_CLASS)) {
+			ib_printf("\t%s:\n", S.RDB$SECURITY_CLASS);
+			display_acl(database, &S.RDB$ACL);
+		} 
+        count++;
+	END_FOR;
+
+	return count;
+}
+
+
+static int show_security_classes_detail( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ s e c u r i t y _ c l a s s e s _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show security classes for a databases.
+ *
+ **************************************/
+	SSHORT count;
+
+	count = 0;
+	MET_meta_transaction(database, FALSE);
+
+	if (!database->dbb_capabilities & DBB_cap_security)
+		return FALSE;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_secur])
+		S IN RDB$SECURITY_CLASSES 
+        if (!count)	
+				 ERRQ_msg_put(297, database->dbb_symbol->sym_string, NULL, NULL, NULL, NULL);	/* Msg297 Security classes for database %s */
+
+		if (truncate_string(S.RDB$SECURITY_CLASS)) {
+			ib_printf("\t%s:\n", S.RDB$SECURITY_CLASS);
+			display_acl(database, &S.RDB$ACL);
+		}
+		count++;
+	END_FOR;
+
+	return count;
+}
+
+
+static void show_string(
+						USHORT msg1,
+						TEXT * string1, USHORT msg2, TEXT * string2)
+{
+/**************************************
+ *
+ *	s h o w _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show one of two strings and maybe a message, too.
+ *
+ **************************************/
+
+	if (string2 && (!*string1 || *string1 == ' ')) {
+		msg1 = msg2;
+		string1 = string2;
+	}
+
+	if (!*string1 || *string1 == ' ')
+		return;
+
+	truncate_string(string1);
+	ERRQ_msg_put(msg1, string1, NULL, NULL, NULL, NULL);
+}
+
+
+static void show_sys_trigs( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ s y s _ t r i g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Ask META to print trigger information
+ *	for the system.  Since parse
+ *	has already swallowed a possible database
+ *	qualifier, just assume that the database
+ *	is the right one.
+ *
+ **************************************/
+	USHORT count;
+
+	MET_meta_transaction(database, FALSE);
+	count = 0;
+
+	if (database->dbb_capabilities & DBB_cap_new_triggers)
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_sys_triggers])
+		X IN RDB$TRIGGERS WITH X.RDB$SYSTEM_FLAG EQ 1
+			SORTED BY X.RDB$RELATION_NAME, X.RDB$TRIGGER_TYPE,
+			X.RDB$TRIGGER_SEQUENCE,
+			X.RDB$TRIGGER_NAME 
+
+        if (!X.RDB$TRIGGER_BLR.NULL) {
+			ERRQ_msg_put(379, X.RDB$RELATION_NAME, NULL, NULL, NULL, NULL);	/* Msg379 System Triggers */
+			show_trigger_header(X.RDB$TRIGGER_NAME, X.RDB$TRIGGER_TYPE,
+								X.RDB$TRIGGER_SEQUENCE,
+								X.RDB$TRIGGER_INACTIVE, &X.RDB$DESCRIPTION,
+								database, X.RDB$RELATION_NAME);
+			show_blob_info(&X.RDB$TRIGGER_BLR, &X.RDB$TRIGGER_SOURCE, 377,	/* Msg377 Source for the trigger is not available.  Trigger BLR: */
+						   376,	/* Msg376 Source for the trigger */
+						   database, X.RDB$RELATION_NAME);
+			show_trigger_messages(database, X.RDB$TRIGGER_NAME);
+			count++;
+	}
+	END_FOR;
+
+	if (!count)
+		ERRQ_msg_put(378, NULL, NULL, NULL, NULL, NULL);	/* Msg378 No system triggers  */
+}
+
+
+static void show_text_blob(
+						   DBB database,
+						   TEXT * column,
+						   USHORT msg1,
+						   SLONG * blob1,
+						   USHORT msg2, SLONG * blob2, int strip)
+{
+/**************************************
+ *
+ *	s h o w _ t e x t _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display a text blob.
+ *
+ **************************************/
+
+	if (blob2 && !blob1[0] && !blob1[1]) {
+		blob1 = blob2;
+		msg1 = msg2;
+	}
+
+	if (!blob1[0] && !blob1[1])
+		return;
+
+	if (msg1)
+		ERRQ_msg_put(msg1, NULL, NULL, NULL, NULL, NULL);
+
+	display_text(database, blob1, column, strip);
+}
+
+
+static void show_trig( REL relation)
+{
+/**************************************
+ *
+ *	s h o w _ t r i g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Ask META to print trigger information
+ *	for a particular relation.  Since parse
+ *	has already swallowed a possible database
+ *	qualifier, just assume that the database
+ *	is the right one.
+ *
+ **************************************/
+
+	if (!(show_trigger_detail(relation->rel_database,
+							  relation->rel_symbol->sym_string)))
+			ERRQ_msg_put(129, relation->rel_symbol->sym_string, NULL, NULL,
+						 NULL, NULL);	/* Msg129 No triggers are defined for relation %s */
+}
+
+
+static int show_trigger_detail( DBB database, TEXT * relation_name)
+{
+/**************************************
+ *
+ *	s h o w _ t r i g g e r _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show trigger definitions for a particular
+ *	relation.
+ *
+ **************************************/
+	USHORT count;
+
+	if (!(database->dbb_capabilities & DBB_cap_new_triggers))
+		return 0;
+
+	MET_meta_transaction(database, FALSE);
+	count = 0;
+
+/* New style triggers */
+
+	if (database->dbb_capabilities & DBB_cap_new_triggers) {
+		ERRQ_msg_put(365, relation_name, NULL, NULL, NULL, NULL);	/* Msg365 Triggers for relation %s */
+		FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_new_trigger])
+			X IN RDB$TRIGGERS WITH X.RDB$RELATION_NAME EQ relation_name
+				AND(X.RDB$SYSTEM_FLAG MISSING OR X.RDB$SYSTEM_FLAG EQ 0)
+			SORTED BY X.RDB$TRIGGER_TYPE, X.RDB$TRIGGER_SEQUENCE,
+				X.RDB$TRIGGER_NAME 
+
+            if (!X.RDB$TRIGGER_BLR.NULL) {
+				show_trigger_header(X.RDB$TRIGGER_NAME, X.RDB$TRIGGER_TYPE,
+									X.RDB$TRIGGER_SEQUENCE,
+									X.RDB$TRIGGER_INACTIVE,
+									&X.RDB$DESCRIPTION, database,
+									relation_name);
+				show_blob_info(&X.RDB$TRIGGER_BLR, &X.RDB$TRIGGER_SOURCE, 377,	/* Msg377 Source for the trigger is not available.  Trigger BLR: */
+							   376,	/* Msg376 Source for the trigger */
+							   database, relation_name);
+				show_trigger_messages(database, X.RDB$TRIGGER_NAME);
+				count++;
+		}
+		END_FOR;
+		return count;
+	}
+
+/* Old style triggers */
+/* OBSOLETE - 1996-Aug-06 David Schnepper  */
+
+/* OBSOLETE - Msg298 Triggers for relation %s: */
+/* OBSOLETE - Msg299 Source for the erase trigger is not available.  Trigger BLR: */
+/* OBSOLETE - Msg300 Erase trigger for relation %s: */
+/* OBSOLETE - Msg301 Source for the modify trigger is not available.  Trigger BLR: */
+/* OBSOLETE - Msg302 Modify trigger for relation %s: */
+/* OBSOLETE - Msg303 Source for the store trigger is not available.  Trigger BLR: */
+/* OBSOLETE - Msg304 Store trigger for relation %s: */
+
+	return count;
+}
+
+
+static void show_trigger_header(
+								TEXT * name,
+								USHORT type,
+								USHORT sequence,
+								USHORT inactive,
+SLONG * description, DBB database, TEXT * relation_name)
+{
+/*****************************************************
+ *
+ *	s h o w _ t r i g g e r _ h e a d e r
+ *
+ *****************************************************
+ *
+ * Functional description
+ * 	Display header information for a new style 
+ *	trigger only.
+ *
+ *****************************************************/
+
+	show_trigger_status(name, type, inactive, sequence);
+	show_text_blob(database, "\t    ", 375, description, 0, NULL_PTR, TRUE);
+}
+
+
+static void show_trigger_messages( DBB database, TEXT * name)
+{
+/*****************************************************
+ *
+ *	s h o w _ t r i g g e r _ m e s s a g e s
+ *
+ *****************************************************
+ *
+ *	 Display error messages associated with 
+ *       a new style (V3) trigger
+ *
+ *****************************************************/
+	int first;
+
+	first = TRUE;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_trig_message])
+		M IN RDB$TRIGGER_MESSAGES WITH M.RDB$TRIGGER_NAME = name
+			SORTED BY M.RDB$MESSAGE_NUMBER 
+
+        if (first) {
+			ERRQ_msg_put(456, name, NULL, NULL, NULL, NULL);
+			/* msg 456: Messages associated with %s:\n */
+			first = FALSE;
+		}
+			ERRQ_msg_put(457, (TEXT *) M.RDB$MESSAGE_NUMBER, M.RDB$MESSAGE,
+						 NULL, NULL, NULL);
+		/* msg 457:     message %ld:  %s\n */
+	END_FOR;
+
+	if (!first)
+		ib_printf("\n");
+}
+
+
+static void show_trigger_status(
+								TEXT * name,
+								USHORT type, USHORT status, USHORT sequence)
+{
+/*****************************************************
+ *
+ *	s h o w _ t r i g g e r _ s t a t u s
+ *
+ *****************************************************
+ *
+ *	 Display type and active status of a new style (V3) trigger
+ *
+ *****************************************************/
+	SCHAR trigger_type[16], trigger_active[9];
+	int msg_num;
+
+	switch (type) {
+	case PRE_STORE:
+		msg_num = 367;
+		break;					/* Msg367 pre-store */
+	case POST_STORE:
+		msg_num = 368;
+		break;					/* Msg368 post-store */
+	case PRE_MODIFY:
+		msg_num = 369;
+		break;					/* Msg369 pre-modify */
+	case POST_MODIFY:
+		msg_num = 370;
+		break;					/* Msg370 post-modify */
+	case PRE_ERASE:
+		msg_num = 371;
+		break;					/* Msg371 pre-erase */
+	case POST_ERASE:
+		msg_num = 372;
+		break;					/* Msg372 post-erase */
+	default:
+		msg_num = 372;
+		break;					/* Should never happen, not worth an error */
+	}
+
+	ERRQ_msg_format(msg_num, sizeof(trigger_type), trigger_type, NULL, NULL,
+					NULL, NULL, NULL);
+	msg_num = (status) ? 374 : 373;
+	ERRQ_msg_format(msg_num, sizeof(trigger_active), trigger_active, NULL,
+					NULL, NULL, NULL, NULL);
+
+	truncate_string(name);
+	ERRQ_msg_put(366, name, trigger_type, (TEXT *) (ULONG) sequence,
+				 trigger_active, NULL);	/* Msg366 Name: %s, Type: %s, Sequence: %d, Active: %s */
+}
+
+
+static void show_trigs( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ t r i g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Ask META to print all trigger information
+ *	for a particular database or all databases.  
+ *
+ **************************************/
+
+	if (database) {
+		if (!(show_triggers_detail(database)))
+			ERRQ_msg_put(130, database->dbb_symbol->sym_string, NULL, NULL,
+						 NULL, NULL);	/* Msg130 No triggers are defined in database %s */
+	}
+	else
+		for (database = QLI_databases; database;
+			 database =
+			 database->
+			 dbb_next) if (!(show_triggers_detail(database)))
+		  ERRQ_msg_put(131, database->dbb_symbol->sym_string, NULL, NULL,
+					   NULL, NULL);	/* Msg131 No triggers are defined in database %s */
+}
+
+
+static int show_triggers_detail( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ t r i g g e r s _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show trigger definitions for a particular
+ *	database
+ *
+ **************************************/
+	USHORT count;
+
+	MET_meta_transaction(database, FALSE);
+	count = 0;
+
+	if (!(database->dbb_capabilities & DBB_cap_new_triggers))
+		return count;
+
+	if (database->dbb_capabilities & DBB_cap_new_triggers) {
+
+/* New style triggers */
+
+		FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_new_triggers])
+			X IN RDB$TRIGGERS WITH X.RDB$SYSTEM_FLAG MISSING
+				OR X.RDB$SYSTEM_FLAG EQ 0 SORTED BY X.RDB$RELATION_NAME,
+				X.RDB$TRIGGER_TYPE, X.RDB$TRIGGER_SEQUENCE, X.RDB$TRIGGER_NAME
+            if (!X.RDB$TRIGGER_BLR.NULL) {
+				truncate_string(X.RDB$RELATION_NAME);
+				ERRQ_msg_put(381, X.RDB$RELATION_NAME, NULL, NULL, NULL, NULL);	/* Msg365 Triggers for relation %s */
+				show_trigger_header(X.RDB$TRIGGER_NAME, X.RDB$TRIGGER_TYPE,
+									X.RDB$TRIGGER_SEQUENCE,
+									X.RDB$TRIGGER_INACTIVE,
+									&X.RDB$DESCRIPTION, database,
+									X.RDB$RELATION_NAME);
+				show_blob_info(&X.RDB$TRIGGER_BLR, &X.RDB$TRIGGER_SOURCE, 377,	/* Msg377 Source for the trigger is not available.  Trigger BLR: */
+							   376,	/* Msg376 Source for the trigger */
+							   database, X.RDB$RELATION_NAME);
+				show_trigger_messages(database, X.RDB$TRIGGER_NAME);
+				count++;
+		}
+		END_FOR;
+	}
+	else {
+
+/* Old style triggers */
+/* OBSOLETE - 1996-Aug-06 David Schnepper  */
+/* OBSOLETE - Msg305 Triggers for relation %s: */
+
+/* OBSOLETE - Msg306 Source for the erase trigger is not available.  Trigger BLR: */
+/* OBSOLETE - Msg307 Erase trigger for relation %s: */
+
+/* OBSOLETE - Msg308 Source for the modify trigger is not available.  Trigger BLR: */
+/* OBSOLETE - Msg309 Modify trigger for relation %s: */
+
+/* OBSOLETE - Msg310 Source for the store trigger is not available.  Trigger BLR: */
+/* OBSOLETE - Msg311 Store trigger for relation %s: */
+	}
+
+	return count;
+}
+
+
+static void show_var( NAM var_name)
+{
+/**************************************
+ *
+ *	s h o w _ v a r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display a global variables.
+ *
+ **************************************/
+	FLD variable;
+
+	for (variable = QLI_variables; variable; variable = variable->fld_next)
+		if (!strcmp(var_name->nam_string, variable->fld_name->sym_string))
+			break;
+
+	if (!variable) {
+		ERRQ_msg_put(474, var_name->nam_string, NULL, NULL, NULL, NULL);	/* Msg474 Variable %s has not been declared */
+		return;
+	}
+
+	ERRQ_msg_put(471, variable->fld_name->sym_string, NULL, NULL, NULL, NULL);	/* Msg471 Variable %s */
+	ERRQ_msg_put(475, NULL, NULL, NULL, NULL, NULL);
+	ib_printf("\t");
+	show_datatype(NULL, variable->fld_dtype,
+				  (variable->fld_dtype ==
+				   dtype_varying) ? variable->fld_length -
+				  2 : variable->fld_length, variable->fld_scale,
+				  variable->fld_sub_type, variable->fld_segment_length,
+				  (variable->fld_flags & FLD_array) ? 1 : 0);
+	ib_printf("\n");
+	if (variable->fld_query_name)
+		ERRQ_msg_put(472, variable->fld_query_name->sym_string, NULL, NULL,
+					 NULL, NULL);
+	if (variable->fld_edit_string)
+		ERRQ_msg_put(473, variable->fld_edit_string, NULL, NULL, NULL, NULL);
+}
+
+
+static void show_vars(void)
+{
+/**************************************
+ *
+ *	s h o w _ v a r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Display global variables.  If there aren't any, don't
+ *	display any.
+ *
+ **************************************/
+
+	ERRQ_msg_put(132, NULL, NULL, NULL, NULL, NULL);	/* Msg132 Variables: */
+	show_fields(NULL_PTR, QLI_variables);
+}
+
+
+static void show_versions(void)
+{
+/**************************************
+ *
+ *	s h o w _ v e r s i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show the version for QLI and all databases.
+ *
+ **************************************/
+	DBB dbb;
+
+	ERRQ_msg_put(133, GDS_VERSION, NULL, NULL, NULL, NULL);	/* Msg133 QLI, version %s */
+
+	for (dbb = QLI_databases; dbb; dbb = dbb->dbb_next) {
+		ERRQ_msg_put(134, dbb->dbb_filename, NULL, NULL, NULL, NULL);	/* Msg134 Version(s) for database %s */
+		gds__version(&dbb->dbb_handle, NULL_PTR, NULL_PTR);
+	}
+}
+
+
+static void show_view( REL relation)
+{
+/**************************************
+ *
+ *	s h o w _ v i e w
+ *
+ **************************************
+ *
+ * Functional description
+ *	Call MET to show the view definition
+ *	if there is one.
+ *
+ **************************************/
+	DBB database;
+
+	database = relation->rel_database;
+	MET_meta_transaction(database, FALSE);
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_view])
+		X IN RDB$RELATIONS WITH X.RDB$RELATION_NAME EQ relation->rel_symbol->
+			sym_string AND X.RDB$VIEW_BLR NOT MISSING 
+
+        if (X.RDB$VIEW_SOURCE.NULL) {
+			ERRQ_msg_put(312, relation->rel_symbol->sym_string, NULL, NULL,
+						 NULL, NULL);	/* Msg312 View source for relation %s is not available.  View BLR: */
+			display_blr(database, &X.RDB$VIEW_BLR);
+		}
+		else {
+			ERRQ_msg_put(313, relation->rel_symbol->sym_string, NULL, NULL,
+						 NULL, NULL);	/* Msg313 Relation %s is a view defined as: */
+			show_text_blob(database, "\t", 0, &X.RDB$VIEW_SOURCE, 0, NULL_PTR,
+						   FALSE);
+		}
+	END_FOR;
+}
+
+
+static int show_views_detail( DBB database)
+{
+/**************************************
+ *
+ *	s h o w _ v i e w s _ d e t a i l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Show the view definitions.  If none, return 0.
+ *
+ **************************************/
+	int count;
+
+	MET_meta_transaction(database, FALSE);
+	count = 0;
+
+	FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_views])
+		X IN RDB$RELATIONS WITH X.RDB$VIEW_BLR NOT MISSING
+			SORTED BY X.RDB$RELATION_NAME 
+
+        if (!count++)	
+            ERRQ_msg_put(316, database->dbb_symbol->sym_string, NULL, NULL, NULL, NULL);	/* Msg316 Views in database %s: */
+
+		truncate_string(X.RDB$RELATION_NAME);
+		ERRQ_msg_put(317, X.RDB$RELATION_NAME, NULL, NULL, NULL, NULL);	/* Msg317 %s comprised of: */
+		FOR(REQUEST_HANDLE database->dbb_requests[REQ_show_view_rel])
+			V IN RDB$VIEW_RELATIONS
+				WITH V.RDB$VIEW_NAME = X.RDB$RELATION_NAME
+				SORTED BY V.RDB$RELATION_NAME
+            ib_printf("	%s\n", V.RDB$RELATION_NAME);
+		END_FOR;
+
+	END_FOR;
+
+	return count;
+}
+
+
+static int truncate_string( TEXT * string)
+{
+/**************************************
+ *
+ *	t r u n c a t e _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a blank filled string to
+ *	a null terminated string without
+ *	trailing blanks.  Because some
+ *	strings contain embedded blanks
+ *	(e.g. query headers & edit strings)
+ *	truncate from the back forward.
+ *	Return the number of characters found,
+ *	not including the terminating null.
+ *
+ **************************************/
+	TEXT *p;
+
+	for (p = string; *p; p++);
+
+	while (p > string && p[-1] == ' ')
+		--p;
+
+	*p = 0;
+
+	return (p - string);
+}
+
+
+static void view_info(
+					  DBB dbb,
+					  TEXT * view,
+					  TEXT * base_field, SSHORT context, SSHORT level)
+{
+/**************************************
+ *
+ *	v i e w _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ *	field came from another relation.
+ *	expand on this phenomenon.
+ *
+ **************************************/
+	TEXT *rt, spaces[64], *p, *end;
+
+	FOR(REQUEST_HANDLE dbb->dbb_requests[REQ_show_view_field] LEVEL level)
+		RFR IN RDB$RELATION_FIELDS CROSS VR IN RDB$VIEW_RELATIONS
+			WITH RFR.RDB$FIELD_NAME = base_field AND
+			RFR.RDB$RELATION_NAME = VR.RDB$RELATION_NAME AND
+			VR.RDB$VIEW_NAME = view AND
+			VR.RDB$VIEW_CONTEXT = context
+        truncate_string(RFR.RDB$RELATION_NAME);
+
+		/* create some space according to how many levels deep we are;
+		   this is to avoid using %*s in the ib_printf, which doesn't work for OS/2 */
+
+		for (p = spaces, end =
+			 spaces + MIN((level + 2) * 4, sizeof(spaces) - 1); p < end;)
+			*p++ = ' ';
+		*p = '\0';
+
+		if (RFR.RDB$BASE_FIELD.NULL)
+			ERRQ_msg_put(507, spaces, base_field, RFR.RDB$RELATION_NAME, NULL,
+						 NULL);
+		/* Msg507 %s Based on field %s of relation %s */
+		else
+			ERRQ_msg_put(508, spaces, base_field, RFR.RDB$RELATION_NAME, NULL,
+						 NULL);
+		/* Msg508 %s Based on field %s of view %s */
+		show_text_blob(dbb, "\t", 349, &RFR.RDB$DESCRIPTION, 0, NULL_PTR,
+					   FALSE);
+
+		if (!RFR.RDB$DESCRIPTION.NULL) {
+			ERRQ_msg_put(349, spaces, base_field, NULL, NULL, NULL);	/* Msg349 %sBase field description for %s: */
+			show_text_blob(dbb, "\t\t", 0, &RFR.RDB$DESCRIPTION, 0, NULL_PTR,
+						   FALSE);
+		}
+
+		if (!RFR.RDB$BASE_FIELD.NULL
+			&& (dbb->dbb_capabilities & DBB_cap_multi_trans)) {
+			truncate_string(RFR.RDB$BASE_FIELD);
+			view_info(dbb, RFR.RDB$RELATION_NAME, RFR.RDB$BASE_FIELD,
+					  RFR.RDB$VIEW_CONTEXT, level + 1);
+		}
+	END_FOR;
+}
diff --git a/src/qli/show_proto.h b/src/qli/show_proto.h
new file mode 100644
index 0000000000..aed5e3593e
--- /dev/null
+++ b/src/qli/show_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	JRD Command Oriented Query Language
+ *	MODULE:		show_proto.h
+ *	DESCRIPTION:	Prototype header file for show.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _QLI_SHOW_PROTO_H_
+#define _QLI_SHOW_PROTO_H_
+
+extern void	SHOW_stuff (struct syn *);
+
+#endif /* _QLI_SHOW_PROTO_H_ */
diff --git a/src/qli/symbols.h b/src/qli/symbols.h
new file mode 100644
index 0000000000..2b1a7e36d6
--- /dev/null
+++ b/src/qli/symbols.h
@@ -0,0 +1,250 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+KW_ABORT,
+KW_ACCEPT,
+KW_ACTIVE,
+KW_ADD,
+KW_ALL,
+KW_ALTER,
+KW_AND,
+KW_ANY,
+KW_ANYCASE,
+KW_AS,
+KW_ASCENDING,
+KW_ASTERISK,
+KW_AT,
+KW_AVERAGE,
+KW_BAR,
+KW_BASED,
+KW_BEGIN,
+KW_BETWEEN,
+KW_BLOB,
+KW_BLR,
+KW_BOTTOM,
+KW_BY,
+KW_CHAR,
+KW_CHOICE,
+KW_CLOSE,
+KW_COLLECTION,
+KW_COLLECTIONS,
+KW_COLON,
+KW_COLUMN,
+KW_COLUMNS,
+KW_COLUMN_HEADER,
+KW_COMMA,
+KW_COMMIT,
+KW_COMPUTED,
+KW_CONTAINING,
+KW_CONT_PROMPT,
+KW_COPY,
+KW_COUNT,
+KW_CREATE,
+KW_CROSS,
+KW_CURSOR,
+KW_DATABASE,
+KW_DATABASES,
+KW_DATE,
+KW_DECIMAL,
+KW_DECLARE,
+KW_DEFINE,
+KW_DELETE,
+KW_DESCENDING,
+KW_DISTINCT,
+KW_DOT,
+KW_DOUBLE,
+KW_DROP,
+KW_DUPLICATE,
+KW_ECHO,
+KW_EDIT,
+KW_EDIT_STRING,
+KW_ELSE,
+KW_END,
+KW_END_CHOICE,
+KW_END_FOR,
+KW_END_MODIFY,
+KW_END_PROCEDURE,
+KW_END_REPORT,
+KW_END_STORE,
+KW_END_STREAM,
+KW_ENTREE,
+KW_EQ,
+KW_EQUALS,
+KW_ERASE,
+KW_ESCAPE,
+KW_EUC_JUSTIFY,
+KW_EXACTCASE,
+KW_EXEC,
+KW_EXISTS,
+KW_EXIT,
+#ifdef DEV_BUILD
+KW_EXPLAIN,
+#endif
+KW_EXTRACT,
+KW_FIELD,
+KW_FIELDS,
+KW_FILTER,
+KW_FILTERS,
+KW_FINISH,
+KW_FIRST,
+KW_FIXED,
+KW_FLOAT,
+KW_FOR,
+KW_FORM,
+KW_FORMAT,
+KW_FORMS,
+KW_FROM,
+KW_FULL,
+KW_FUNCTION,
+KW_FUNCTIONS,
+KW_GE,
+KW_GLOBAL,
+KW_GRANT,
+KW_GROUP,
+KW_GROUPED,
+KW_GT,
+KW_HAVING,
+KW_HELP,
+#ifdef DEV_BUILD
+KW_HEXOUT,
+#endif
+KW_IF,
+KW_IN,
+KW_INACTIVE,
+KW_INDEX,
+KW_INDICES,
+KW_INNER,
+KW_INSERT,
+KW_INTEGER,
+KW_INTO,
+KW_IS,
+KW_JOIN,
+KW_LABEL,
+KW_LE,
+KW_LEAVE,
+KW_LEFT,
+KW_LEFT_PAREN,
+KW_LIKE,
+KW_LINES,
+KW_LIST,
+KW_LONG,
+KW_LT,
+KW_L_BRACE,
+KW_L_BRCKET,
+KW_MATCHES,
+KW_MATCHING_LANGUAGE,
+KW_MAX,
+KW_MEN,
+KW_MENU,
+KW_MIN,
+KW_MINUS,
+KW_MISSING,
+KW_MODIFY,
+KW_NAMES,
+KW_NE,
+KW_NEW_PAGE,
+KW_NO,
+KW_NOT,
+KW_NULL,
+KW_NUMERIC,
+KW_OF,
+KW_ON,
+KW_OPEN,
+KW_OPTION,
+KW_OR,
+KW_ORDER,
+KW_OUTER,
+KW_OVER,
+KW_PAGE,
+KW_PAGESIZE,
+KW_PASSWORD,
+KW_PLUS,
+KW_PRECISION,
+KW_PREPARE,
+KW_PRINT,
+KW_PRIVILEGES,
+KW_PROCEDURE,
+KW_PROCEDURES,
+KW_PROMPT,
+KW_QUERY_HEADER,
+KW_QUERY_NAME,
+KW_QUIT,
+KW_READY,
+KW_REAL,
+KW_REDUCED,
+KW_RELATION,
+KW_RELATIONS,
+KW_RENAME,
+KW_REPEAT,
+KW_REPORT,
+KW_REPORT_HEADER,
+KW_REPORT_NAME,
+KW_REVOKE,
+KW_RIGHT,
+KW_RIGHT_PAREN,
+KW_ROLLBACK,
+KW_RUNNING,
+KW_R_BRACE,
+KW_R_BRCKET,
+KW_SCALE,
+KW_SECURITY_CLASS,
+KW_SECURITY_CLASSES,
+KW_SELECT,
+KW_SEMI,
+KW_SEMICOLON,
+KW_SET,
+KW_SHELL,
+KW_SHORT,
+KW_SHOW,
+KW_SINGULAR,
+KW_SKIP,
+KW_SLASH,
+KW_SMALLINT,
+KW_SORTED,
+KW_SPACE,
+KW_STARTS,
+KW_STATISTICS,
+KW_STORE,
+KW_SUB_TYPE,
+KW_SYSTEM,
+KW_TAB,
+KW_TABLE,
+KW_TEXT,
+KW_THEN,
+KW_TO,
+KW_TOP,
+KW_TOTAL,
+KW_TRIGGER,
+KW_TRIGGERS,
+KW_UNION,
+KW_UNIQUE,
+KW_UPDATE,
+KW_UPPERCASE,
+KW_USER,
+KW_USER_NAME,
+KW_USING,
+KW_VALID,
+KW_VALUES,
+KW_VARCHAR,
+KW_VARIABLE,
+KW_VARIABLES,
+KW_VARYING,
+KW_VERSION,
+KW_VIEW,
+KW_VIEWS,
+KW_WITH,
diff --git a/src/qli/words.h b/src/qli/words.h
new file mode 100644
index 0000000000..9da5f2826c
--- /dev/null
+++ b/src/qli/words.h
@@ -0,0 +1,286 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+KW_ABORT,               "ABORT",
+KW_ACCEPT,              "ACCEPT",
+KW_ACTIVE,              "ACTIVE",
+KW_ADD,                 "ADD",
+KW_ALL,                 "ALL",
+KW_ALTER,		"ALTER",
+KW_AND,                 "&&",
+KW_AND,                 "AND",
+KW_ANY,                 "ANY",
+KW_ANY,                 "SOME",
+KW_ANYCASE,		"ANYCASE",
+KW_AS,                  "AS",
+KW_ASCENDING,           "ASC",
+KW_ASCENDING,           "ASCENDING",
+KW_ASTERISK,            "*",
+KW_AT,                  "AT",
+KW_AVERAGE,             "AVERAGE",
+KW_AVERAGE,             "AVG",
+KW_BAR,                 "|",
+KW_BASED,               "BASED",
+KW_BASED,               "BASED_ON",
+KW_BEGIN,               "BEGIN",
+KW_BETWEEN,             "BETWEEN",
+KW_BETWEEN,             "BT",
+KW_BLOB,                "BLOB",
+KW_BLR,                 "BLR",
+KW_BOTTOM,              "BOTTOM",
+KW_BY,                  "BY",
+KW_CHAR,                "CHAR",
+KW_CHAR,		"CHARACTER",
+KW_CHOICE,              "CHOICE",
+KW_CLOSE,               "CLOSE",
+KW_COLLECTION,          "COLLECTION",
+KW_COLLECTIONS,         "COLLECTIONS",
+KW_COLON,               ":",
+KW_COLUMN,              "COL",
+KW_COLUMNS,             "COLUMNS",
+KW_COLUMN_HEADER,       "COLUMN_HEADER",
+KW_COMMA,               ",",
+KW_COMMIT,              "COMMIT",
+KW_COMPUTED,            "COMPUTED",
+KW_CONTAINING,          "CONT",
+KW_CONTAINING,          "CONTAINING",
+KW_CONTAINING,          "CT",
+KW_CONT_PROMPT,         "CONTINUATION",
+KW_COPY,                "COPY",
+KW_COUNT,               "COUNT",
+KW_CREATE,		"CREATE",
+KW_CROSS,               "CROSS",
+KW_CURSOR,              "CURSOR",
+KW_DATABASE,            "DATABASE",
+KW_DATABASES,           "DATABASES",
+KW_DATE,                "DATE",
+KW_DECIMAL,		"DECIMAL",
+KW_DECIMAL,		"DEC",
+KW_DECLARE,             "DECLARE",
+KW_DEFINE,              "DEFINE",
+KW_DELETE,              "DELETE",
+KW_DESCENDING,          "DESC",
+KW_DESCENDING,          "DESCENDING",
+KW_DISTINCT,            "DISTINCT",
+KW_DOT,                 ".",
+KW_DOUBLE,              "DOUBLE",
+KW_DROP,                "DROP",
+KW_DUPLICATE,           "DUPLICATE",
+KW_DUPLICATE,           "DUPLICATES",
+KW_ECHO,                "ECHO",
+KW_EDIT,                "EDIT",
+KW_EDIT_STRING,         "EDIT_STRING",
+KW_ELSE,                "ELSE",
+KW_END,                 "END",
+KW_END_CHOICE,          "END_CHOICE",
+KW_END_FOR,             "END_FOR",
+KW_END_MODIFY,          "END_MODIFY",
+KW_END_PROCEDURE,       "END_PROCEDURE",
+KW_END_REPORT,          "END_REPORT",
+KW_END_STORE,           "END_STORE",
+KW_END_STREAM,          "END_STREAM",
+KW_ENTREE,              "ENTREE",
+KW_EQ,                  "==",
+KW_EQ,                  "EQ",
+KW_EQUALS,              "=",
+KW_ERASE,               "ERASE",
+KW_ESCAPE,		"ESCAPE",
+KW_EUC_JUSTIFY,         "EUC_JUSTIFY",
+KW_EXACTCASE,		"EXACTCASE",
+KW_EXEC,                "EXEC",
+KW_EXISTS,              "EXISTS",
+KW_EXIT,                "EXIT",
+#ifdef DEV_BUILD
+KW_EXPLAIN,             "EXPLAIN",
+#endif
+KW_EXTRACT,             "EXTRACT",
+KW_FIELD,               "FIELD",
+KW_FIELDS,              "FIELDS",
+KW_FILTER,		"FILTER",
+KW_FILTERS,		"FILTERS",
+KW_FINISH,              "FINISH",
+KW_FIRST,               "FIRST",
+KW_FIXED,		"FIXED",
+KW_FLOAT,               "FLOAT",
+KW_FOR,                 "FOR",
+KW_FORM,                "FORM",
+KW_FORMAT,              "FORMAT",
+KW_FORMS,               "FORMS",
+KW_FROM,                "FROM",
+KW_FULL,                "FULL",
+KW_FUNCTION,		"FUNCTION",
+KW_FUNCTIONS,		"FUNCTIONS",
+KW_GE,                  ">=",
+KW_GE,                  "GE",
+KW_GE,                  "^<",
+KW_GLOBAL,              "GLOBAL",
+KW_GRANT,		"GRANT",
+KW_GROUP,               "GROUP",
+KW_GROUPED,             "GROUPED",
+KW_GT,                  ">",
+KW_GT,                  "GT",
+KW_HAVING,              "HAVING",
+KW_HELP,                "HELP",
+#ifdef DEV_BUILD
+KW_HEXOUT,              "HEX_OUTPUT",
+#endif
+KW_IF,                  "IF",
+KW_IN,                  "IN",
+KW_INACTIVE,            "INACTIVE",
+KW_INDEX,               "INDEX",
+KW_INDICES,             "INDEXES",
+KW_INDICES,             "INDICES",
+KW_INNER,               "INNER",
+KW_INSERT,              "INSERT",
+KW_INTEGER,		"INTEGER",
+KW_INTEGER, 		"INT",
+KW_INTO,                "INTO",
+KW_IS,                  "IS",
+KW_JOIN,                "JOIN",
+KW_LABEL,               "LABEL",
+KW_LE,                  "<=",
+KW_LE,                  "LE",
+KW_LE,                  "^>",
+KW_LEAVE,               "LEAVE",
+KW_LEFT,                "LEFT",
+KW_LEFT_PAREN,          "(",
+KW_LIKE,                "LIKE",
+KW_LINES,               "LINES",
+KW_LIST,                "LIST",
+KW_LONG,                "LONG",
+KW_LT,                  "<",
+KW_LT,                  "LT",
+KW_L_BRACE,             "{",
+KW_L_BRCKET,            "[",
+KW_MATCHES,             "MATCHES",
+KW_MATCHES,             "MATCHING",
+KW_MATCHING_LANGUAGE,	"MATCHING_LANGUAGE",
+KW_MAX,                 "MAX",
+KW_MEN,                 "MANU",
+KW_MENU,                "MENU",
+KW_MIN,                 "MIN",
+KW_MINUS,               "-",
+KW_MISSING,             "MISSING",
+KW_MODIFY,              "MODIFY",
+KW_NAMES,               "NAMES",
+KW_NE,                  "!=",
+KW_NE,                  "NE",
+KW_NE,                  "<>",
+KW_NE,                  "^=",
+KW_NE,                  "~=",
+KW_NEW_PAGE,            "NEW_PAGE",
+KW_NO,                  "NO",
+KW_NOT,                 "NOT",
+KW_NULL,                "NULL",
+KW_NUMERIC,		"NUMERIC",
+KW_OF,                  "OF",
+KW_ON,                  "ON",
+KW_OPEN,                "OPEN",
+KW_OPTION,		"OPTION",
+KW_OR,                  "OR",
+KW_OR,                  "||",
+KW_ORDER,               "ORDER",
+KW_OUTER,               "OUTER",
+KW_OVER,                "OVER",
+KW_PAGE,                "PAGE",
+KW_PAGESIZE,		"PAGESIZE",
+KW_PASSWORD,            "PASSWORD",
+KW_PLUS,                "+",
+KW_PRECISION,		"PRECISION",
+KW_PREPARE,             "PREPARE",
+KW_PRINT,               "PRINT",
+KW_PRIVILEGES,		"PRIVILEGES",
+KW_PROCEDURE,           "PROCEDURE",
+KW_PROCEDURES,          "PROCEDURES",
+KW_PROMPT,              "PROMPT",
+KW_QUERY_HEADER,        "QUERY_HEADER",
+KW_QUERY_NAME,          "QUERY_NAME",
+KW_QUIT,                "QUIT",
+KW_READY,               "READY",
+KW_REAL, 		"REAL",
+KW_REDUCED,             "REDUCED",
+KW_RELATION,            "RELATION",
+KW_RELATIONS,           "RELATIONS",
+KW_RELATIONS,		"TABLES",
+KW_RENAME,              "RENAME",
+KW_REPEAT,              "REPEAT",
+KW_REPORT,              "REPORT",
+KW_REPORT_HEADER,       "REPORT_HEADER",
+KW_REPORT_NAME,         "REPORT_NAME",
+KW_REVOKE,		"REVOKE",
+KW_RIGHT,               "RIGHT",
+KW_RIGHT_PAREN,         ")",
+KW_ROLLBACK,            "ROLLBACK",
+KW_RUNNING,             "RUNNING",
+KW_R_BRACE,             "}",
+KW_R_BRCKET,            "]",
+KW_SCALE,               "SCALE",
+KW_SECURITY_CLASS,      "SECURITY_CLASS",
+KW_SECURITY_CLASSES,    "SECURITY_CLASSES",
+KW_SELECT,              "SELECT",
+KW_SEMI,                ";",
+KW_SEMI,                "\n",
+KW_SEMI,                "end of line",
+KW_SEMICOLON,           "SEMI",
+KW_SEMICOLON,           "SEMICOLON",
+KW_SET,                 "SET",
+KW_SHELL,               "SHELL",
+KW_SHELL,               "SPAWN",
+KW_SHORT,               "SHORT",
+KW_SHOW,                "SHOW",
+KW_SINGULAR,		"SINGULAR",
+KW_SKIP,                "SKIP",
+KW_SLASH,               "/",
+KW_SMALLINT,		"SMALLINT",
+KW_SORTED,              "SORTED",
+KW_SPACE,               "SPACE",
+KW_STARTS,              "ST",
+KW_STARTS,              "STARTING",
+KW_STARTS,              "STARTS",
+KW_STATISTICS,          "STATISTICS",
+KW_STORE,               "STORE",
+KW_SUB_TYPE,		"SUB_TYPE",
+KW_SYSTEM,              "SYSTEM",
+KW_TAB,                 "TAB",
+KW_TABLE,		"TABLE",
+KW_TEXT,		"TEXT",
+KW_THEN,                "THEN",
+KW_TO,                  "TO",
+KW_TOP,                 "TOP",
+KW_TOTAL,               "SUM",
+KW_TOTAL,               "TOTAL",
+KW_TRIGGER,             "TRIGGER",
+KW_TRIGGERS,            "TRIGGERS",
+KW_UNION,               "UNION",
+KW_UNIQUE,              "UNIQUE",
+KW_UPDATE,              "UPDATE",
+KW_UPPERCASE,		"UPPERCASE",
+KW_USER, 	        "USER",
+KW_USER_NAME,           "RDB$USER_NAME",
+KW_USING,               "USING",
+KW_VALID,               "VALID",
+KW_VALUES,              "VALUES",
+KW_VARCHAR,		"VARCHAR",
+KW_VARIABLE,            "VARIABLE",
+KW_VARIABLES,           "VARIABLES",
+KW_VARYING,             "VARYING",
+KW_VERSION,             "VERSION",
+KW_VIEW,                "VIEW",
+KW_VIEWS,               "VIEWS",
+KW_WITH,                "WHERE",
+KW_WITH,                "WITH",
diff --git a/src/remote/allr.cpp b/src/remote/allr.cpp
new file mode 100644
index 0000000000..61118e1599
--- /dev/null
+++ b/src/remote/allr.cpp
@@ -0,0 +1,256 @@
+/*
+ *      PROGRAM:        JRD Remote Interface/Server
+ *      MODULE:         allr.c
+ *      DESCRIPTION:    Internal block allocator
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/ibsetjmp.h"
+#include "../remote/remote.h"
+#include "../jrd/codes.h"
+#include "../remote/allr_proto.h"
+#include "../remote/remot_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/thd_proto.h"
+
+
+static const struct
+{
+	blk_t	type;
+	USHORT	typ_root_length;
+	USHORT	typ_tail_length;
+} REM_block_sizes[] =
+{
+	type_MIN	, 0, 0,
+	type_vec	, sizeof(vec)		, sizeof(((VEC) 0)->vec_object[0]),
+	type_rdb	, sizeof(rdb)		, 0,
+	type_fmt	, sizeof(fmt)		, sizeof(((FMT) 0)->fmt_desc[0]),
+	type_rrq	, sizeof(rrq)		, sizeof(((RRQ) 0)->rrq_rpt [0]),
+	type_rtr	, sizeof(rtr)		, 0,
+	type_str	, sizeof(str)		, 1,	// random string block
+	type_rbl	, sizeof(rbl)		, 1,
+	type_port	, sizeof(port)		, 1,
+	type_msg	, sizeof(message)	, 1,
+	type_rsr	, sizeof(rsr)		, 0,
+	type_rvnt	, sizeof(rvnt)		, 0,
+	type_rpr	, sizeof(rpr)		, 0,
+	type_rmtque	, sizeof(rmtque)	, 0,
+
+	type_MIN,	0, 0,
+};
+
+
+extern "C" {
+
+
+#ifdef SUPERSERVER
+SLONG allr_delta_alloc = 0;
+#endif
+
+
+//____________________________________________________________
+//
+//	Allocate a block.
+//
+UCHAR* DLL_EXPORT ALLR_alloc(ULONG size)
+{
+	UCHAR* block = gds__alloc((SLONG) size);
+
+	if (block)
+	{
+#ifdef SUPERSERVER
+		allr_delta_alloc += size;
+#endif
+		return block;
+	}
+
+	// FREE: caller must free - usually using ALLR_release.
+	// NOMEM: post a user level error, if we have a status vector,
+	//        otherwise just an error return
+
+	TRDB trdb = GET_THREAD_DATA;
+	STATUS* status_vector = trdb->trdb_status_vector;
+	if (status_vector) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__virmemexh;
+		*status_vector = gds_arg_end;
+	}
+
+	LONGJMP(*trdb->trdb_setjmp, gds__virmemexh);
+	return NULL;	/* compiler silencer */
+}
+
+
+//____________________________________________________________
+//
+//	Allocate a block from a given pool and initialize the block.
+//	This is the primary block allocation routine.
+//
+BLK DLL_EXPORT ALLR_block(UCHAR type, ULONG count)
+{
+	if (type <= (UCHAR) type_MIN || type >= (UCHAR) type_MAX)
+	{
+		TRDB	trdb			= GET_THREAD_DATA;
+		STATUS*	status_vector	= trdb->trdb_status_vector;
+
+		if (status_vector)
+		{
+			TEXT errmsg[128];
+			status_vector[0] = gds_arg_gds;
+			status_vector[1] = gds__bug_check;
+			status_vector[2] = gds_arg_string;
+			status_vector[4] = gds_arg_end;
+			const SSHORT lookup_result =
+				gds__msg_lookup(0,
+								JRD_BUGCHK,
+								150,
+								sizeof(errmsg),
+								errmsg,
+								NULL);
+			if (lookup_result < 1)
+			{
+				status_vector[3] =
+					(STATUS) "request to allocate invalid block type";
+			}
+			else
+			{
+				status_vector[3] = (STATUS) errmsg;
+				REMOTE_save_status_strings(trdb->trdb_status_vector);
+			}
+		}
+
+		LONGJMP(*trdb->trdb_setjmp, gds__bug_check);
+	}
+
+	// Compute block length, recasting count to make sure the calculation
+	// comes out right on 16-bit platforms (like MS-DOS or Win16).
+
+	USHORT ucount	= (USHORT)count;
+	USHORT size		= REM_block_sizes[type].typ_root_length;
+	USHORT tail		= REM_block_sizes[type].typ_tail_length;
+
+	if (tail && ucount >= 1) {
+		size += (ucount - 1) * tail;
+	}
+
+	BLK block = (BLK) ALLR_alloc((ULONG) size);
+
+	// NOMEM: callee handled
+	// FREE:  caller must handle - use ALLR_release
+
+	block->blk_type = type;
+	block->blk_length = size;
+
+	size -= sizeof(struct blk);
+
+	if (size) {
+		memset((char*)block + sizeof(struct blk), 0, size);
+	}
+
+	return block;
+}
+
+
+//____________________________________________________________
+//
+//	Clone a block.
+//
+//	Caller is responsible for free'ing the clone
+//
+BLK ALLR_clone(BLK block)
+{
+	USHORT l = block->blk_length;
+	BLK clone = (BLK) ALLR_alloc((ULONG) l);
+
+	// NOMEM: ALLR_alloc() handled
+	// FREE:  caller must handle  - use ALLR_release
+
+	UCHAR* p = (UCHAR*)clone;
+	UCHAR* q = (UCHAR*)block;
+	do {
+		*p++ = *q++;
+	} while (--l);
+
+	return clone;
+}
+
+
+//____________________________________________________________
+//
+//	Free a block.
+//
+void ALLR_free( void *block)
+{
+#ifdef SUPERSERVER
+	allr_delta_alloc -= gds__free(block);
+#else
+	gds__free(block);
+#endif
+}
+
+
+//____________________________________________________________
+//
+//	Release a structured block.
+//
+void DLL_EXPORT ALLR_release( void *block)
+{
+	ALLR_free(block);
+}
+
+
+//____________________________________________________________
+//
+//	Allocate a vector.
+//
+VEC ALLR_vector(VEC* ptr, ULONG count)
+{
+	++count;
+
+	VEC vector = *ptr;
+
+	if (!vector) {
+		vector = *ptr = (VEC) ALLR_block(type_vec, count);
+		vector->vec_count = count;
+		return vector;
+	}
+
+/* If it fits, do it */
+
+	if (count <= vector->vec_count)
+		return vector;
+
+	VEC new_vector = *ptr = (VEC) ALLR_block(type_vec, count);
+	new_vector->vec_count = count;
+
+	BLK* p = new_vector->vec_object;
+	BLK* q = vector->vec_object;
+	BLK* end = q + (int) vector->vec_count;
+	while (q < end) {
+		*p++ = *q++;
+	}
+	ALLR_release(vector);
+
+	return new_vector;
+}
+
+
+} // extern "C"
diff --git a/src/remote/allr_proto.h b/src/remote/allr_proto.h
new file mode 100644
index 0000000000..492b4a3973
--- /dev/null
+++ b/src/remote/allr_proto.h
@@ -0,0 +1,42 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		allr_proto.h
+ *	DESCRIPTION:	Prototype header file for allr.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_ALLR_PROTO_H_
+#define _REMOTE_ALLR_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern UCHAR		* DLL_EXPORT ALLR_alloc (ULONG);
+extern struct blk	* DLL_EXPORT ALLR_block (UCHAR, ULONG);
+extern struct blk	*ALLR_clone (struct blk *);
+extern void		ALLR_free (void *);
+extern void		DLL_EXPORT ALLR_release (void *);
+extern struct vec	*ALLR_vector (struct vec **, ULONG);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _REMOTE_ALLR_PROTO_H_ */
diff --git a/src/remote/caution.ico b/src/remote/caution.ico
new file mode 100644
index 0000000000..1e14fc5335
Binary files /dev/null and b/src/remote/caution.ico differ
diff --git a/src/remote/chop.cpp b/src/remote/chop.cpp
new file mode 100644
index 0000000000..8c1f0bc284
--- /dev/null
+++ b/src/remote/chop.cpp
@@ -0,0 +1,115 @@
+/*
+ *	PROGRAM:	Misc. Function for Server and Tools
+ *	MODULE:		chop.c
+ *	DESCRIPTION:	Function to nicely truncate a long path/file name
+ *			to a specified length.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ibase.h"
+#include "../jrd/common.h"
+
+
+extern "C" {
+
+
+#define PATHSEP(c) ((c) == '\\' || (c) == '/')
+char *ChopFileName( char *szName, char *szShortName, ULONG dwLen)
+{
+/**************************************
+ *
+ *	C h o p F i l e N a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to shorten a given file name to a specified length.  Put
+ *	in '...' where anything was taken out.
+ *
+ *	Both szName and szShort name can be the same pointer.
+ *
+ *  Inputs: 
+ *           szName - Null terminated input path/filename.
+ *           szShortName - Output buffer for truncated path/filename.
+ *           dwLen - Length to truncate to.
+ *
+ *  Outputs:
+ *				 pointer to a buffer (szShortname).
+ *
+ **************************************/
+	char *pchLeft, *pchRight, *pchLastRight, *pchLastLeft, *pchEnd, *pchTmp;
+	BOOLEAN bLeft = TRUE, bLeftFull = FALSE, bRightFull = FALSE;
+
+/* Set pointers to the beginning and the end */
+	pchLeft = pchEnd = szName;
+	while (*pchEnd)
+		pchEnd++;
+
+/* Check that the path is already short enough */
+	if (((ULONG) (pchEnd - pchLeft)) <= dwLen) {
+		pchTmp = szShortName;
+		while (*pchTmp++ = *szName++);
+		return szShortName;
+	}
+
+/* Subtract the room needed for the three dots */
+	dwLen -= 3;
+
+	pchRight = pchEnd;
+
+	pchLastLeft = pchLeft;
+	pchLastRight = pchRight;
+
+	while (!bLeftFull || !bRightFull) {
+		if (bLeft) {
+			while (!bLeftFull && pchLeft++ && !PATHSEP(*pchLeft)
+				   && pchLeft < pchRight);
+			if ((pchLeft - szName) + ((ULONG) (pchEnd - pchRight)) > dwLen) {
+				bLeftFull = TRUE;
+				pchLeft = pchLastLeft;
+			}
+			else
+				pchLastLeft = pchLeft;
+		}
+		else {
+			while (!bRightFull && pchRight-- && !PATHSEP(*pchRight)
+				   && pchLeft < pchRight);
+			if ((pchLeft - szName) + ((ULONG) (pchEnd - pchRight)) > dwLen) {
+				bRightFull = TRUE;
+				pchRight = pchLastRight;
+			}
+			else
+				pchLastRight = pchRight;
+		}
+		bLeft = bLeft ? FALSE : TRUE;
+	}
+
+	for (pchTmp = szShortName, pchLeft = szName;
+		 pchLeft <= pchLastLeft; *pchTmp++ = *pchLeft++);
+	*pchTmp++ = '.';
+	*pchTmp++ = '.';
+	*pchTmp++ = '.';
+	for (; pchLastRight < pchEnd; *pchTmp++ = *pchLastRight++);
+	*pchTmp++ = '\0';
+
+	return szShortName;
+}
+
+
+} // extern "C"
diff --git a/src/remote/chop_proto.h b/src/remote/chop_proto.h
new file mode 100644
index 0000000000..85a6970c19
--- /dev/null
+++ b/src/remote/chop_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	Misc. Function for Server and Tools
+ *	MODULE:		chop_proto.h
+ *	DESCRIPTION:	Prototype header file for chop.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _CHOP_PATH_PROTO_H_
+#define _CHOP_PATH_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+char * ChopFileName	(char*, char*, ULONG);
+
+#ifdef __cplusplus
+};
+#endif
+
+#endif
diff --git a/src/remote/chuser.cpp b/src/remote/chuser.cpp
new file mode 100644
index 0000000000..b70f57fc87
--- /dev/null
+++ b/src/remote/chuser.cpp
@@ -0,0 +1,446 @@
+/*
+ *	PROGRAM:	JRD Remote Server
+ *	MODULE:		chuser.c
+ *	DESCRIPTION:	Change user identity.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include rms
+#include iodef
+#include descrip
+#include uaidef
+#include "../jrd/common.h"
+
+#define SYSUAF	"SYS$SYSTEM:SYSUAF.DAT"
+
+#ifdef __ALPHA
+extern zap_process_alpha_15();
+#else
+extern zap_process_v4(), zap_process_v5();
+#endif
+
+static void define_logical(UCHAR *, UCHAR *, UCHAR *);
+static int get_major_vms_version(void);
+
+/*	Taken from $SYIDEF	*/
+
+#define SYI$_VERSION	4096
+
+static int major_vms_version = 0;
+
+typedef struct itm {
+	SSHORT itm_buflen;
+	SSHORT itm_code;
+	SCHAR *itm_bufadr;
+	SCHAR *itm_retlenadr;
+} ITM;
+
+#define	LNM$M_NO_ALIAS	1
+#define	LNM$M_CONFINE	2
+#define	LNM$M_CRELOG	4
+#define	LNM$M_TABLE	8
+#define	LNM$M_CONCEALED	256
+#define	LNM$M_TERMINAL	512
+#define	LNM$M_EXISTS	1024
+#define	LNM$M_SHAREABLE	65536
+#define	LNM$M_CREATE_IF	16777216
+#define	LNM$M_CASE_BLIND	33554432
+#define	LNM$S_LNMDEF	4
+#define	LNM$V_NO_ALIAS	0
+#define	LNM$V_CONFINE	1
+#define	LNM$V_CRELOG	2
+#define	LNM$V_TABLE	3
+#define	LNM$V_CONCEALED	8
+#define	LNM$V_TERMINAL	9
+#define	LNM$V_EXISTS	10
+#define	LNM$V_SHAREABLE	16
+#define	LNM$V_CREATE_IF	24
+#define	LNM$V_CASE_BLIND	25
+#define	LNM$C_TABNAMLEN	31
+#define	LNM$C_NAMLENGTH	255
+#define	LNM$C_MAXDEPTH	10
+#define	LNM$_INDEX	1
+#define	LNM$_STRING	2
+#define	LNM$_ATTRIBUTES	3
+#define	LNM$_TABLE	4
+#define	LNM$_LENGTH	5
+#define	LNM$_ACMODE	6
+#define	LNM$_MAX_INDEX	7
+#define	LNM$_PARENT	8
+#define	LNM$_LNMB_ADDR	9
+#define	LNM$_CHAIN	-1
+
+#define	PSL$C_KERNEL	0
+#define	PSL$C_EXEC	1
+#define	PSL$C_SUPER	2
+#define	PSL$C_USER	3
+
+
+#define	UAF$C_USER_ID	1
+#define	UAF$C_VERSION1	1
+#define	UAF$C_KEYED_PART	52
+#define	UAF$C_AD_II	0
+#define	UAF$C_PURDY	1
+#define	UAF$C_PURDY_V	2
+#define	UAF$K_FIXED	644
+#define	UAF$C_FIXED	644
+#define	UAF$K_LENGTH	1412
+#define	UAF$C_LENGTH	1412
+#define	UAF$S_UAFDEF	1412
+#define	UAF$B_RTYPE	0
+#define	UAF$B_VERSION	1
+#define	UAF$W_USRDATOFF	2
+#define	UAF$S_USERNAME	32
+#define	UAF$T_USERNAME	4
+#define	UAF$T_USERNAME_TAG	35
+#define	UAF$L_UIC	36
+#define	UAF$W_MEM	36
+#define	UAF$W_GRP	38
+#define	UAF$L_SUB_ID	40
+#define	UAF$S_PARENT_ID	8
+#define	UAF$Q_PARENT_ID	44
+#define	UAF$S_ACCOUNT	32
+#define	UAF$T_ACCOUNT	52
+#define	UAF$S_OWNER	32
+#define	UAF$T_OWNER	84
+#define	UAF$S_DEFDEV	32
+#define	UAF$T_DEFDEV	116
+#define	UAF$S_DEFDIR	64
+#define	UAF$T_DEFDIR	148
+#define	UAF$S_LGICMD	64
+#define	UAF$T_LGICMD	212
+#define	UAF$S_DEFCLI	32
+#define	UAF$T_DEFCLI	276
+#define	UAF$S_CLITABLES	32
+#define	UAF$T_CLITABLES	308
+#define	UAF$S_PWD	8
+#define	UAF$Q_PWD	340
+#define	UAF$L_PWD	340
+#define	UAF$S_PWD2	8
+#define	UAF$Q_PWD2	348
+#define	UAF$W_LOGFAILS	356
+#define	UAF$W_SALT	358
+#define	UAF$B_ENCRYPT	360
+#define	UAF$B_ENCRYPT2	361
+#define	UAF$B_PWD_LENGTH	362
+#define	UAF$S_EXPIRATION	8
+#define	UAF$Q_EXPIRATION	364
+#define	UAF$S_PWD_LIFETIME	8
+#define	UAF$Q_PWD_LIFETIME	372
+#define	UAF$S_PWD_DATE	8
+#define	UAF$Q_PWD_DATE	380
+#define	UAF$S_PWD2_DATE	8
+#define	UAF$Q_PWD2_DATE	388
+#define	UAF$S_LASTLOGIN_I	8
+#define	UAF$Q_LASTLOGIN_I	396
+#define	UAF$S_LASTLOGIN_N	8
+#define	UAF$Q_LASTLOGIN_N	404
+#define	UAF$S_PRIV	8
+#define	UAF$Q_PRIV	412
+#define	UAF$S_DEF_PRIV	8
+#define	UAF$Q_DEF_PRIV	420
+#define	UAF$S_MIN_CLASS	20
+#define	UAF$R_MIN_CLASS	428
+#define	UAF$S_MAX_CLASS	20
+#define	UAF$R_MAX_CLASS	448
+#define	UAF$L_FLAGS	468
+#define	UAF$V_DISCTLY	0
+#define	UAF$V_DEFCLI	1
+#define	UAF$V_LOCKPWD	2
+#define	UAF$V_CAPTIVE	3
+#define	UAF$V_DISACNT	4
+#define	UAF$V_DISWELCOM	5
+#define	UAF$V_DISMAIL	6
+#define	UAF$V_NOMAIL	7
+#define	UAF$V_GENPWD	8
+#define	UAF$V_PWD_EXPIRED	9
+#define	UAF$V_PWD2_EXPIRED	10
+#define	UAF$V_AUDIT	11
+#define	UAF$V_DISREPORT	12
+#define	UAF$V_DISRECONNECT	13
+#define	UAF$V_AUTOLOGIN	14
+#define	UAF$S_NETWORK_ACCESS_P	3
+#define	UAF$B_NETWORK_ACCESS_P	472
+#define	UAF$S_NETWORK_ACCESS_S	3
+#define	UAF$B_NETWORK_ACCESS_S	475
+#define	UAF$S_BATCH_ACCESS_P	3
+#define	UAF$B_BATCH_ACCESS_P	478
+#define	UAF$S_BATCH_ACCESS_S	3
+#define	UAF$B_BATCH_ACCESS_S	481
+#define	UAF$S_LOCAL_ACCESS_P	3
+#define	UAF$B_LOCAL_ACCESS_P	484
+#define	UAF$S_LOCAL_ACCESS_S	3
+#define	UAF$B_LOCAL_ACCESS_S	487
+#define	UAF$S_DIALUP_ACCESS_P	3
+#define	UAF$B_DIALUP_ACCESS_P	490
+#define	UAF$S_DIALUP_ACCESS_S	3
+#define	UAF$B_DIALUP_ACCESS_S	493
+#define	UAF$S_REMOTE_ACCESS_P	3
+#define	UAF$B_REMOTE_ACCESS_P	496
+#define	UAF$S_REMOTE_ACCESS_S	3
+#define	UAF$B_REMOTE_ACCESS_S	499
+#define	UAF$B_PRIMEDAYS	514
+#define	UAF$V_MONDAY	0
+#define	UAF$V_TUESDAY	1
+#define	UAF$V_WEDNESDAY	2
+#define	UAF$V_THURSDAY	3
+#define	UAF$V_FRIDAY	4
+#define	UAF$V_SATURDAY	5
+#define	UAF$V_SUNDAY	6
+#define	UAF$B_PRI	516
+#define	UAF$B_QUEPRI	517
+#define	UAF$W_MAXJOBS	518
+#define	UAF$W_MAXACCTJOBS	520
+#define	UAF$W_MAXDETACH	522
+#define	UAF$W_PRCCNT	524
+#define	UAF$W_BIOLM	526
+#define	UAF$W_DIOLM	528
+#define	UAF$W_TQCNT	530
+#define	UAF$W_ASTLM	532
+#define	UAF$W_ENQLM	534
+#define	UAF$W_FILLM	536
+#define	UAF$W_SHRFILLM	538
+#define	UAF$L_WSQUOTA	540
+#define	UAF$L_DFWSCNT	544
+#define	UAF$L_WSEXTENT	548
+#define	UAF$L_PGFLQUOTA	552
+#define	UAF$L_CPUTIM	556
+#define	UAF$L_BYTLM	560
+#define	UAF$L_PBYTLM	564
+#define	UAF$L_JTQUOTA	568
+#define	UAF$W_PROXY_LIM	572
+#define	UAF$W_PROXIES	574
+#define	UAF$W_ACCOUNT_LIM	576
+#define	UAF$W_ACCOUNTS	578
+
+
+int chuser( UCHAR * name)
+{
+/**************************************
+ *
+ *	c h u s e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Change the process into the context of a given user.  If the
+ *	user doesn't seem to exist, do nothing (except return FALSE).
+ *
+ **************************************/
+	UCHAR username[32], *p;
+	int status, vector[8];
+	ITM items[6];
+	SLONG uic, priv[2];
+	SSHORT enqlm;
+	SCHAR dev[32], dir[64];
+	SLONG uiclen, privlen, enqlmlen, devlen, dirlen;
+	struct dsc$descriptor_s desc;
+	SCHAR s[1024];
+	TEXT flags[4];
+	STATUS errstatus;
+	SSHORT l;
+
+	for (p = username; *name; name++)
+		*p++ = UPPER(*name);
+	while (p < username + sizeof(username))
+		*p++ = ' ';
+
+	desc.dsc$b_class = DSC$K_CLASS_S;
+	desc.dsc$b_dtype = DSC$K_DTYPE_T;
+	desc.dsc$w_length = sizeof(username);
+	desc.dsc$a_pointer = username;
+
+	items[0].itm_code = UAI$_UIC;
+	items[0].itm_buflen = sizeof(uic);
+	items[0].itm_bufadr = &uic;
+	items[0].itm_retlenadr = &uiclen;
+	items[1].itm_code = UAI$_ENQLM;
+	items[1].itm_buflen = sizeof(enqlm);
+	items[1].itm_bufadr = &enqlm;
+	items[1].itm_retlenadr = &enqlmlen;
+	items[2].itm_code = UAI$_DEF_PRIV;
+	items[2].itm_buflen = sizeof(priv);
+	items[2].itm_bufadr = priv;
+	items[2].itm_retlenadr = &privlen;
+	items[3].itm_code = UAI$_DEFDEV;
+	items[3].itm_buflen = sizeof(dev);
+	items[3].itm_bufadr = dev;
+	items[3].itm_retlenadr = &devlen;
+	items[4].itm_code = UAI$_DEFDIR;
+	items[4].itm_buflen = sizeof(dir);
+	items[4].itm_bufadr = dir;
+	items[4].itm_retlenadr = &dirlen;
+	items[5].itm_code = 0;
+	items[5].itm_buflen = 0;
+
+
+/* Lookup UAF record for user.  If it doesn't exist, give up */
+
+	status = sys$getuai(NULL, NULL, &desc, items, NULL, NULL, NULL);
+
+	if (!(status & 1)) {
+		if (status != RMS$_RNF) {
+			gds__log("SYS$GETUAI failed");
+			l = 0;
+			desc.dsc$b_class = DSC$K_CLASS_S;
+			desc.dsc$b_dtype = DSC$K_DTYPE_T;
+			desc.dsc$w_length = 128;
+			desc.dsc$a_pointer = s;
+			errstatus = sys$getmsg(status, &l, &desc, 15, flags);
+			if (errstatus & 1)
+				s[l] = 0;
+			else
+				sprintf(s, "uninterpreted VMS code %x", status);
+			gds__log(s);
+		}
+		lib$signal(status);
+		return FALSE;
+	}
+
+/* Change to process UIC and USERNAME */
+
+	vector[0] = 4;
+	vector[1] = &uic;
+	vector[2] = username;
+	vector[3] = &enqlm;
+	vector[4] = priv;
+
+#ifdef	__ALPHA
+	sys$cmkrnl(zap_process_alpha_15, vector);
+#else
+
+/* Get the major VMS version so we call a compatible zap routine */
+
+	if (major_vms_version == 0)
+		major_vms_version = get_major_vms_version();
+
+/* VMS V5.x requires a different routine from VMS V4.x */
+
+	if (major_vms_version <= 4)
+		sys$cmkrnl(zap_process_v4, vector);
+	else
+		sys$cmkrnl(zap_process_v5, vector);
+#endif
+
+	sys$setprv(1, priv, 0, 0);
+
+/* Define process local logical names */
+
+	define_logical("SYS$LOGIN", dev, dir);
+	define_logical("SYS$SCRATCH", dev, dir);
+	define_logical("SYS$DISK", dev, NULL);
+	define_logical("SYS$LOGIN_DEVICE", dev, NULL);
+
+/* Set default directory */
+
+	desc.dsc$b_dtype = DSC$K_DTYPE_T;
+	desc.dsc$b_class = DSC$K_CLASS_S;
+	desc.dsc$w_length = *dir;
+	desc.dsc$a_pointer = dir + 1;
+	status = sys$setddir(&desc, NULL, NULL);
+
+	return TRUE;
+}
+
+
+static void define_logical( UCHAR * name, UCHAR * string1, UCHAR * string2)
+{
+/**************************************
+ *
+ *	d e f i n e _ l o g i c a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Define a logical name based on the concatenation of a couple of strings.
+ *
+ **************************************/
+	struct dsc$descriptor_s desc, table;
+	ITM item_list[2];
+	int status, retvalue;
+	USHORT l;
+	UCHAR buffer[128], *p, acmode;
+
+	desc.dsc$b_dtype = DSC$K_DTYPE_T;
+	desc.dsc$b_class = DSC$K_CLASS_S;
+	desc.dsc$w_length = strlen(name);
+	desc.dsc$a_pointer = name;
+
+	table.dsc$b_dtype = DSC$K_DTYPE_T;
+	table.dsc$b_class = DSC$K_CLASS_S;
+	table.dsc$w_length = sizeof("LNM$PROCESS_TABLE") - 1;
+	table.dsc$a_pointer = "LNM$PROCESS_TABLE";
+
+	p = buffer;
+	if (l = *string1++)
+		do
+			*p++ = *string1++;
+		while (--l);
+
+	if (string2 && (l = *string2++))
+		do
+			*p++ = *string2++;
+		while (--l);
+
+	item_list[0].itm_code = LNM$_STRING;
+	item_list[0].itm_buflen = p - buffer;
+	item_list[0].itm_bufadr = buffer;
+	item_list[0].itm_retlenadr = &retvalue;
+	item_list[1].itm_code = 0;
+	item_list[1].itm_buflen = 0;
+
+	acmode = PSL$C_SUPER;
+	status = sys$crelnm(NULL, &table, &desc, &acmode, item_list);
+	if (!(status & 1))
+		lib$signal(status);
+}
+
+
+static int get_major_vms_version(void)
+{
+/**************************************
+ *
+ *	g e t _ m a j o r _ v m s _ v e r s i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return the major VMS version that is running
+ *
+ **************************************/
+	ITM item_list[2];
+	int status;
+	USHORT retvalue;
+	UCHAR buffer[8];
+
+	item_list[0].itm_code = SYI$_VERSION;
+	item_list[0].itm_buflen = sizeof buffer;
+	item_list[0].itm_bufadr = buffer;
+	item_list[0].itm_retlenadr = &retvalue;
+	item_list[1].itm_code = 0;
+	item_list[1].itm_buflen = 0;
+
+	status = sys$getsyiw(NULL, NULL, NULL, item_list, NULL, NULL, NULL);
+	if (!(status & 1))
+		lib$signal(status);
+
+/* Buffer contents are of the form Vm.n */
+
+	return (int) (buffer[1] - '0');
+}
diff --git a/src/remote/cntl.cpp b/src/remote/cntl.cpp
new file mode 100644
index 0000000000..1d01003789
--- /dev/null
+++ b/src/remote/cntl.cpp
@@ -0,0 +1,456 @@
+/*
+ *	PROGRAM:	JRD Remote Server
+ *	MODULE:		cntl.c
+ *	DESCRIPTION:	Windows NT service control panel interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include "../remote/remote.h"
+#include "../jrd/thd.h"
+#include "../utilities/install_nt.h"
+#include "../remote/cntl_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/jrd_proto.h"
+
+#ifdef WIN_NT
+#include <windows.h>
+#endif
+
+#define  ERROR_BUFFER_LENGTH 1024
+
+typedef struct thread {
+	struct thread *thread_next;
+	HANDLE thread_handle;
+} *THREAD;
+
+static void control_thread(DWORD);
+static void cleanup_thread();
+static void parse_switch(TEXT *, int *);
+static USHORT report_status(DWORD, DWORD, DWORD, DWORD);
+
+static DWORD current_state;
+static void (*main_handler) ();
+static SERVICE_STATUS_HANDLE service_handle;
+static TEXT *service_name;
+static HANDLE stop_event_handle;
+static MUTX_T thread_mutex[1];
+static THREAD threads;
+static HANDLE hMutex = NULL;
+static BOOLEAN bGuarded = FALSE;
+
+
+void CNTL_init( void (*handler) (), TEXT * name)
+{
+/**************************************
+ *
+ *	C N T L _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	main_handler = handler;
+	service_name = name;
+}
+
+
+void *CNTL_insert_thread(void)
+{
+/**************************************
+ *
+ *	C N T L _ i n s e r t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	THREAD new_thread;
+
+	THREAD_ENTER;
+	new_thread = (THREAD) ALLR_alloc((SLONG) sizeof(struct thread));
+/* NOMEM: ALLR_alloc() handled */
+/* FREE:  in CTRL_remove_thread() */
+
+	THREAD_EXIT;
+	DuplicateHandle(GetCurrentProcess(), GetCurrentThread(),
+					GetCurrentProcess(), &new_thread->thread_handle, 0, FALSE,
+					DUPLICATE_SAME_ACCESS);
+
+	THD_mutex_lock(thread_mutex);
+	new_thread->thread_next = threads;
+	threads = new_thread;
+	THD_mutex_unlock(thread_mutex);
+
+	return new_thread;
+}
+
+
+void CNTL_main_thread( SLONG argc, SCHAR * argv[])
+{
+/**************************************
+ *
+ *	C N T L _ m a i n _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int flag, status;
+	TEXT *p, default_mode[100];
+	DWORD last_error = 0;
+	DWORD temp;
+
+	HANDLE cleanup_thread_handle;
+	DWORD count, return_from_wait, cleanup_thread_id;
+
+	service_handle = RegisterServiceCtrlHandler(service_name,
+												(LPHANDLER_FUNCTION)
+												control_thread);
+	if (!service_handle)
+		return;
+
+	THD_mutex_init(thread_mutex);
+
+#if (defined SUPERCLIENT || defined SUPERSERVER)
+	flag = SRVR_multi_client;
+#else
+	flag = 0;
+#endif
+
+/* Get the default client mode from the registry. */
+
+	if (ISC_get_registry_var("DefaultClientMode",
+							 default_mode, sizeof(default_mode), 0) != -1)
+		if (default_mode[0] == '-')
+			parse_switch(&default_mode[1], &flag);
+
+/* Parse the command line looking for any additional arguments. */
+
+	argv++;
+
+	while (--argc) {
+		p = *argv++;
+		if (*p++ = '-')
+			parse_switch(p, &flag);
+	}
+
+	status = 1;
+
+	if (report_status(SERVICE_START_PENDING, NO_ERROR, 1, 3000) &&
+		(stop_event_handle = CreateEvent(NULL, TRUE, FALSE, NULL)) != NULL &&
+		report_status(SERVICE_START_PENDING, NO_ERROR, 2, 3000) &&
+		!gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+						   (main_handler), (void *) flag, 0, 0, 0)
+		&& report_status(SERVICE_RUNNING, NO_ERROR, 0, 0)) {
+		status = 0;
+		temp = WaitForSingleObject(stop_event_handle, INFINITE);
+	}
+
+
+	if (temp == WAIT_FAILED || status)
+		last_error = GetLastError();
+
+	if (stop_event_handle)
+		CloseHandle(stop_event_handle);
+/* set the status with the timer, start the cleanup thread and wait for the
+ * cleanup thread to exit or the timer to expire, once we reach the max number
+ * of loops or the thread exits set the state to shutdown and exit */
+	cleanup_thread_handle =
+		CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE) cleanup_thread, NULL,
+					 0, &cleanup_thread_id);
+	count = 1;
+
+	do {
+		count++;
+		report_status(SERVICE_STOP_PENDING, NO_ERROR, count, 60000);
+		return_from_wait = WaitForSingleObject(cleanup_thread_handle, 50000);
+	} while (count < 10 && return_from_wait == WAIT_TIMEOUT);
+/* loop for 10 times about 7 minutes should be enough time for the server to
+ * cleanup */
+
+/* TMN 29 Jul 2000 - close the thread handle */
+	CloseHandle(cleanup_thread_handle);
+
+	report_status(SERVICE_STOPPED, last_error, 0, 0);
+}
+
+
+void CNTL_remove_thread( void *thread)
+{
+/**************************************
+ *
+ *	C N T L _ r e m o v e _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	THREAD *thread_ptr;
+	THREAD this_thread;
+
+	THD_mutex_lock(thread_mutex);
+	for (thread_ptr = &threads;
+		 *thread_ptr; thread_ptr = &(*thread_ptr)->thread_next) {
+		if (*thread_ptr == (THREAD) thread) {
+			*thread_ptr = ((THREAD) thread)->thread_next;
+			break;
+		}
+	}
+	THD_mutex_unlock(thread_mutex);
+
+	this_thread = (THREAD) thread;
+	CloseHandle(this_thread->thread_handle);
+
+	THREAD_ENTER;
+	ALLR_free(thread);
+	THREAD_EXIT;
+}
+
+
+void CNTL_shutdown_service( TEXT * message)
+{
+/**************************************
+ *
+ *	C N T L _ s h u t d o w n _ s e r v i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	char buffer[256];
+	char *strings[2];
+	HANDLE event_source;
+
+	sprintf(buffer, "%s error: %d", service_name, GetLastError());
+
+	event_source = RegisterEventSource(NULL, service_name);
+	if (event_source) {
+		strings[0] = buffer;
+		strings[1] = message;
+		ReportEvent(event_source,
+					EVENTLOG_ERROR_TYPE,
+					0,
+					0,
+					NULL,
+					2,
+					0,
+					const_cast < const char **>(reinterpret_cast <
+												char **>(strings)), NULL);
+		DeregisterEventSource(event_source);
+	}
+
+	if (stop_event_handle)
+		SetEvent(stop_event_handle);
+}
+
+
+static void control_thread( DWORD action)
+{
+/**************************************
+ *
+ *	c o n t r o l _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a service control request.
+ *
+ **************************************/
+	DWORD state;
+
+	state = SERVICE_RUNNING;
+
+	switch (action) {
+	case SERVICE_CONTROL_STOP:
+		report_status(SERVICE_STOP_PENDING, NO_ERROR, 1, 3000);
+		if (bGuarded == TRUE)
+			ReleaseMutex(hMutex);
+		SetEvent(stop_event_handle);
+		return;
+
+	case SERVICE_CONTROL_INTERROGATE:
+		break;
+
+	case SERVICE_CREATE_GUARDIAN_MUTEX:
+		hMutex = OpenMutex(SYNCHRONIZE, FALSE, GUARDIAN_MUTEX);
+		if (hMutex) {
+			UINT error_mode = SEM_FAILCRITICALERRORS | SEM_NOGPFAULTERRORBOX |
+				SEM_NOOPENFILEERRORBOX | SEM_NOALIGNMENTFAULTEXCEPT;
+			SetErrorMode(error_mode);
+			bGuarded = TRUE;
+			WaitForSingleObject(hMutex, INFINITE);
+		}
+		break;
+	default:
+		break;
+	}
+
+	report_status(state, NO_ERROR, 0, 0);
+}
+
+
+static void cleanup_thread()
+{
+/**************************************
+ *
+ *	c l e a n u p _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	This thread is responsible for the cleanup.
+ *
+ **************************************/
+	USHORT attach_count, database_count;
+	TEXT return_buffer[ERROR_BUFFER_LENGTH], *buff_ptr = return_buffer;
+
+/* find out if we have any attachments if we do then log a message to the log
+ * file */
+	JRD_num_attachments(return_buffer, ERROR_BUFFER_LENGTH, JRD_info_dbnames,
+						&attach_count, &database_count);
+
+/* if we have active attachments then log messages */
+	if (attach_count > 0) {
+		USHORT i, j;
+		TEXT out_message[ERROR_BUFFER_LENGTH + 100];
+		TEXT print_buffer[ERROR_BUFFER_LENGTH], *print_ptr;
+		USHORT num_databases, database_name_length;
+
+		sprintf(print_buffer,
+				"Shutting down the InterBase service with %d active connection(s) to %d database(s)",
+				attach_count, database_count);
+		gds__log(print_buffer);
+
+		/* just get the ushort value and increment it by a ushort length */
+		num_databases = (USHORT) * ((USHORT *) buff_ptr);
+		buff_ptr += sizeof(USHORT);
+		for (i = 0; i < num_databases; i++) {
+			database_name_length = (USHORT) * ((USHORT *) buff_ptr);
+			buff_ptr += sizeof(USHORT);
+			print_ptr = print_buffer;
+			for (j = 0; j < database_name_length; j++)
+				*print_ptr++ = *buff_ptr++;
+			*print_ptr = '\0';
+			sprintf(out_message,
+					"The database %s was being accessed when the server was shutdown",
+					print_buffer);
+			gds__log(out_message);
+		}
+	}
+
+
+	THREAD_ENTER;
+	JRD_shutdown_all();
+
+/* There is no THREAD_EXIT to help ensure that no
+ * threads will get in and try to access the data-
+ * structures we released in JRD_shutdown_all()
+ */
+
+	THD_mutex_destroy(thread_mutex);
+}
+
+
+static void parse_switch( TEXT * switches, int *flag)
+{
+/**************************************
+ *
+ *	p a r s e _ s w i t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TEXT c;
+
+	while (c = *switches++)
+		switch (UPPER(c)) {
+		case 'B':
+			*flag |= SRVR_high_priority;
+			break;
+
+		case 'I':
+			*flag |= SRVR_inet;
+			break;
+
+		case 'N':
+			*flag |= SRVR_pipe;
+			break;
+
+		case 'R':
+			*flag &= ~SRVR_high_priority;
+			break;
+		}
+
+#if (defined SUPERCLIENT || defined SUPERSERVER)
+	*flag |= SRVR_multi_client;
+#else
+	*flag &= ~SRVR_multi_client;
+#endif
+}
+
+
+static USHORT report_status(
+							DWORD state,
+							DWORD exit_code, DWORD checkpoint, DWORD hint)
+{
+/**************************************
+ *
+ *	r e p o r t _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report our status to the control manager.
+ *
+ **************************************/
+	SERVICE_STATUS status;
+	USHORT ret;
+
+	status.dwServiceType =
+		(SERVICE_WIN32_OWN_PROCESS | SERVICE_INTERACTIVE_PROCESS);
+	status.dwServiceSpecificExitCode = 0;
+
+	if (state == SERVICE_START_PENDING)
+		status.dwControlsAccepted = 0;
+	else
+		status.dwControlsAccepted = SERVICE_ACCEPT_STOP;
+
+	status.dwCurrentState = current_state = state;
+	status.dwWin32ExitCode = exit_code;
+	status.dwCheckPoint = checkpoint;
+	status.dwWaitHint = hint;
+
+	if (!(ret = SetServiceStatus(service_handle, &status)))
+		CNTL_shutdown_service("SetServiceStatus");
+
+	return ret;
+}
diff --git a/src/remote/cntl_proto.h b/src/remote/cntl_proto.h
new file mode 100644
index 0000000000..b1a73e8310
--- /dev/null
+++ b/src/remote/cntl_proto.h
@@ -0,0 +1,33 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		cntl_proto.h
+ *	DESCRIPTION:	Prototpe header file for cntl.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_CNTL_PROTO_H_
+#define _REMOTE_CNTL_PROTO_H_
+
+extern void	CNTL_init (FPTR_VOID, TEXT *);
+extern void	*CNTL_insert_thread (void);
+extern void	CNTL_main_thread (SLONG, SCHAR *[]);
+extern void	CNTL_remove_thread (void *);
+extern void	CNTL_shutdown_service (TEXT *);
+
+#endif /* _REMOTE_CNTL_PROTO_H */ 
diff --git a/src/remote/decne_proto.h b/src/remote/decne_proto.h
new file mode 100644
index 0000000000..fdadb8b7d7
--- /dev/null
+++ b/src/remote/decne_proto.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		decne_proto.h
+ *	DESCRIPTION:	Prototpe header file for decnet.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_DECNE_PROTO_H_
+#define _REMOTE_DECNE_PROTO_H_
+
+extern PORT	DECNET_analyze (UCHAR *, SSHORT *, STATUS *, SSHORT);
+extern PORT	DECNET_connect (UCHAR *, struct packet *, STATUS *, int);
+
+#endif /* _REMOTE_DECNE_PROTO_H */ 
diff --git a/src/remote/decnet.cpp b/src/remote/decnet.cpp
new file mode 100644
index 0000000000..f2a40716fa
--- /dev/null
+++ b/src/remote/decnet.cpp
@@ -0,0 +1,1241 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		decnet.c
+ *	DESCRIPTION:	DECnet Communications module for VMS
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include descrip
+#include iodef
+#include nfbdef
+#include msgdef
+
+#include "../jrd/ib_stdio.h"
+#include "../remote/remote.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/thd.h"
+#include "../remote/decne_proto.h"
+#include "../remote/remot_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/sch_proto.h"
+
+#define OBJECT_NUMBER	128
+#define OBJECT_NAME	""
+#define SERVER_NAME	"ISC_SERVER"
+
+#define EVENT_FLAG	15
+#define MAX_DATA	1450
+#define BUFFER_SIZE	MAX_DATA
+#define MAX_SEQUENCE	256
+
+typedef struct mbxmsg {
+	SSHORT msgtype;
+	SSHORT unit;
+	SCHAR name_count;
+	SCHAR name[1];
+} *MBXMSG;
+
+static int accept_connection(PORT, P_CNCT *);
+static int accept_link(PORT, MBXMSG);
+static PORT active_port(PORT);
+static PORT alloc_port(PORT);
+static PORT aux_connect(PORT, PACKET *, XDR_INT(*)());
+static PORT aux_request(PORT, PACKET *);
+static void cleanup_port(PORT);
+static int dnet_create(XDR *, PORT, UCHAR *, USHORT, enum xdr_op);
+static XDR_INT dnet_destroy(XDR *);
+static int dnet_endofrecord(XDR *, bool_t);
+static int dnet_error(PORT, UCHAR *, int);
+static bool_t dnet_getbytes(XDR *, SCHAR *, int);
+static bool_t dnet_getlong(XDR *, SLONG *);
+static u_int dnet_getpostn(XDR *);
+static caddr_t dnet_inline(XDR *, u_int);
+static bool_t dnet_putbytes(XDR *, SCHAR *, int);
+static bool_t dnet_putlong(XDR *, SLONG *);
+static bool_t dnet_read(XDR *);
+static bool_t dnet_setpostn(XDR *, u_int);
+static bool_t dnet_write(XDR *, bool_t);
+static void disconnect(PORT);
+static int packet_receive(PORT, UCHAR *, SSHORT, SSHORT *);
+static int packet_send(PORT, UCHAR *, SSHORT);
+static int process_connect(PORT);
+static PORT receive(PORT, PACKET *);
+static int send_full(PORT, PACKET *);
+static int send_partial(PORT, PACKET *);
+static int start_read(PORT, UCHAR *, SSHORT);
+static void wait(USHORT *);
+static int wait_and_test(PORT, TEXT *, int);
+
+static xdr_t::xdr_ops dnet_ops = {
+	dnet_getlong,
+	dnet_putlong,
+	dnet_getbytes,
+	dnet_putbytes,
+	dnet_getpostn,
+	dnet_setpostn,
+	dnet_inline,
+	dnet_destroy
+};
+
+static struct {
+	SCHAR nfb_type;
+	SLONG nfb_value;
+} null_nfb = {
+NFB$C_DECLNAME, 0}, nfb = {
+NFB$C_DECLOBJ, OBJECT_NUMBER};
+
+static SLONG maxmsg = 128, bufquo = 128;
+static request_count;
+
+
+PORT DECNET_analyze(
+					UCHAR * file_name;
+					SSHORT * file_length,
+					STATUS * status_vector; SSHORT uv_flag; {
+/**************************************
+ *
+ *	D E C N E T _ a n a l y z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine whether the file name has a "external!name".  If so,
+ *	establish an external connection to the node.
+ *
+ *	If a connection is established, return a port block, otherwise
+ *	return NULL.
+ *
+ **************************************/
+RDB rdb;
+PORT port;
+PACKET * packet;
+P_CNCT * connect;
+P_ATCH * attach;
+SSHORT length, user_length;
+UCHAR node_name[128], *p, *q, user_id[200], c;
+TEXT buffer[64]; int local_status[20]; p_cnct::p_cnct_repeat * protocol;
+/* Analyze the file name to see if a remote connection is required.  If not,
+   quietly (sic) return. */
+/* Pick up node if, if present */
+p = node_name;
+q = file_name; length = *file_length; while (q[0] != ':' || q[1] != ':') {
+if (--length < 0 || p >= node_name + sizeof(node_name) - 1)
+return NULL; c = *q++; *p++ = UPPER(c);}
+
+q += 2; *p = 0; length -= 2; *file_length = length; if (length)
+do
+*file_name++ = *q++; while (--length); *file_name = 0;
+/* We need to establish a connection to a remote server.  Allocate the necessary
+   blocks and get ready to go. */
+rdb = ALLOC(type_rdb); packet = &rdb->rdb_packet;
+/* Pick up some user identification information */
+user_id[0] = CNCT_user;
+p = user_id + 2;
+ISC_get_user(p, 0, 0, 0, 0, 0, 0);
+user_id[1] = (UCHAR) strlen(p); for (; *p; p++)
+if (*p >= 'A' && *p <= 'Z')
+* p = *p - 'A' + 'a';
+*p++ = CNCT_host;
+p++; ISC_get_host(p, 64); p[-1] = (UCHAR) strlen((SCHAR *) p); for (; *p; p++)
+if (*p >= 'A' && *p <= 'Z')
+* p = *p - 'A' + 'a'; if (uv_flag) {
+*p++ = CNCT_user_verification; *p++ = 0;}
+
+user_length = p - user_id;
+/* Establish connection to server */
+connect = &packet->p_cnct;
+packet->p_operation = op_connect;
+connect->p_cnct_operation = op_attach;
+connect->p_cnct_cversion = CONNECT_VERSION2;
+connect->p_cnct_client = ARCHITECTURE;
+connect->p_cnct_file.cstr_length = *file_length;
+connect->p_cnct_file.cstr_address = file_name;
+/* Note: prior to V3.1E a recievers could not in truth handle more
+   then 5 protocol descriptions, so we try them in chunks of 5 or less */
+/* If we want user verification, we can't speak anything less that version 7 */
+#ifdef SCROLLABLE_CURSORS
+connect->p_cnct_count = 4;
+#else
+connect->p_cnct_count = 2;
+#endif
+connect->p_cnct_user_id.cstr_length = user_length;
+connect->p_cnct_user_id.cstr_address = user_id;
+protocol = connect->p_cnct_versions;
+protocol->p_cnct_version = PROTOCOL_VERSION8;
+protocol->p_cnct_architecture = arch_generic;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_batch_send;
+protocol->p_cnct_weight = 2;
+++protocol;
+protocol->p_cnct_version = PROTOCOL_VERSION8;
+protocol->p_cnct_architecture = ARCHITECTURE;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_batch_send; protocol->p_cnct_weight = 3;
+#ifdef SCROLLABLE_CURSORS
+++protocol;
+protocol->p_cnct_version = PROTOCOL_SCROLLABLE_CURSORS;
+protocol->p_cnct_architecture = arch_generic;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_batch_send;
+protocol->p_cnct_weight = 4;
+++protocol;
+protocol->p_cnct_version = PROTOCOL_SCROLLABLE_CURSORS;
+protocol->p_cnct_architecture = ARCHITECTURE;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_batch_send; protocol->p_cnct_weight = 5;
+#endif
+/* If we can't talk to a server, punt.  Let somebody else generate
+   an error. */
+if (!(port = DECNET_connect(node_name, packet, status_vector, 0))) {
+ALLR_release(rdb); return NULL;}
+
+/* Get response packet from server. */
+
+rdb->rdb_port = port;
+port->port_context = rdb;
+port->receive(packet);
+if (packet->p_operation == op_reject && !uv_flag) {
+disconnect(port);
+packet->p_operation = op_connect;
+connect->p_cnct_operation = op_attach;
+connect->p_cnct_cversion = CONNECT_VERSION2;
+connect->p_cnct_client = ARCHITECTURE;
+connect->p_cnct_file.cstr_length = *file_length;
+connect->p_cnct_file.cstr_address = file_name;
+/* try again with next set of known protocols */
+connect->p_cnct_count = 5;
+connect->p_cnct_user_id.cstr_length = user_length;
+connect->p_cnct_user_id.cstr_address = user_id;
+protocol = connect->p_cnct_versions;
+protocol->p_cnct_version = PROTOCOL_VERSION5;
+protocol->p_cnct_architecture = ARCHITECTURE;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_out_of_band;
+protocol->p_cnct_weight = 2;
+++protocol;
+protocol->p_cnct_version = PROTOCOL_VERSION6;
+protocol->p_cnct_architecture = arch_generic;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_batch_send;
+protocol->p_cnct_weight = 3;
+++protocol;
+protocol->p_cnct_version = PROTOCOL_VERSION6;
+protocol->p_cnct_architecture = ARCHITECTURE;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_batch_send;
+protocol->p_cnct_weight = 4;
+++protocol;
+protocol->p_cnct_version = PROTOCOL_VERSION7;
+protocol->p_cnct_architecture = arch_generic;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_batch_send;
+protocol->p_cnct_weight = 5;
+++protocol;
+protocol->p_cnct_version = PROTOCOL_VERSION7;
+protocol->p_cnct_architecture = ARCHITECTURE;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_batch_send;
+protocol->p_cnct_weight = 6;
+if (!(port = DECNET_connect(node_name, packet, status_vector, 0))) {
+ALLR_release(rdb); return NULL;}
+
+/* Get response packet from server. */
+
+rdb->rdb_port = port;
+port->port_context = rdb;
+port->receive(packet);
+}
+
+if (packet->p_operation == op_reject && !uv_flag) {
+disconnect(port);
+packet->p_operation = op_connect;
+connect->p_cnct_operation = op_attach;
+connect->p_cnct_cversion = CONNECT_VERSION2;
+connect->p_cnct_client = ARCHITECTURE;
+connect->p_cnct_file.cstr_length = *file_length;
+connect->p_cnct_file.cstr_address = file_name;
+/* try again with next set of known protocols */
+connect->p_cnct_count = 4;
+connect->p_cnct_user_id.cstr_length = user_length;
+connect->p_cnct_user_id.cstr_address = user_id;
+protocol = connect->p_cnct_versions;
+protocol->p_cnct_version = PROTOCOL_VERSION3;
+protocol->p_cnct_architecture = arch_generic;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_batch_send;
+protocol->p_cnct_weight = 2;
+++protocol;
+protocol->p_cnct_version = PROTOCOL_VERSION3;
+protocol->p_cnct_architecture = ARCHITECTURE;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_batch_send;
+protocol->p_cnct_weight = 3;
+++protocol;
+protocol->p_cnct_version = PROTOCOL_VERSION4;
+protocol->p_cnct_architecture = arch_generic;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_batch_send;
+protocol->p_cnct_weight = 4;
+++protocol;
+protocol->p_cnct_version = PROTOCOL_VERSION4;
+protocol->p_cnct_architecture = ARCHITECTURE;
+protocol->p_cnct_min_type = ptype_rpc;
+protocol->p_cnct_max_type = ptype_batch_send;
+protocol->p_cnct_weight = 5;
+if (!(port = DECNET_connect(node_name, packet, status_vector, 0))) {
+ALLR_release(rdb); return NULL;}
+
+/* Get response packet from server. */
+
+rdb->rdb_port = port;
+port->port_context = rdb;
+port->receive(packet);
+}
+
+if (packet->p_operation != op_accept) {
+*status_vector++ = gds_arg_gds;
+*status_vector++ = gds__connect_reject;
+*status_vector++ = 0; disconnect(port); return NULL;}
+
+port->port_protocol = packet->p_acpt.p_acpt_version;
+/* once we've decided on a protocol, concatenate the version
+   string to reflect it...  */
+sprintf(buffer, "%s/P%d", port->port_version->str_data, port->port_protocol);
+ALLR_free(port->port_version);
+port->port_version = REMOTE_make_string(buffer);
+if (packet->p_acpt.p_acpt_architecture == ARCHITECTURE)
+port->port_flags |= PORT_symmetric;
+if (packet->p_acpt.p_acpt_type == ptype_rpc)
+port->port_flags |= PORT_rpc;
+if (packet->p_acpt.p_acpt_type != ptype_out_of_band)
+port->port_flags |= PORT_no_oob; return port;}
+
+
+PORT DECNET_connect(UCHAR * name,
+					PACKET * packet, STATUS * status_vector, int flags) {
+/**************************************
+ *
+ *	D E C N E T _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish half of a communication link.  If a connect packet is given,
+ *	the connection is on behalf of a remote interface.  Other the connect
+ *	is for a server process.
+ *
+ **************************************/
+TEXT * p, *object_name, host[128], string[128];
+int *s, status, n, l, object_number;
+USHORT channel, mbx_channel, iosb[4];
+PORT port;
+struct dsc$descriptor_s desc, nfb_desc;
+port = alloc_port(NULL);
+port->port_status_vector = status_vector;
+s = status_vector; *s++ = gds_arg_gds; *s = 0;
+/* Handle debug protocol - if one is specified, we go by name else by OBJECT_NUMBER */
+if (name) {
+strcpy(host, name); for (p = host; *p;)
+if (*p++ == '/') {
+p[-1] = 0; name = host; break;}
+object_name = p; object_number = (*object_name) ? 0 : OBJECT_NUMBER;}
+
+/* Handle outgoing connections */
+
+if (packet) {
+sprintf(string, "%s::\"%d=%s\"", name, object_number, object_name);
+ISC_make_desc(string, &desc, 0);
+status = sys$assign(&desc, &channel, NULL, NULL); if (!(status & 1)) {
+dnet_error(port, "sys$assign", status); return NULL;}
+port->port_handle = channel; send_full(port, packet); return port;}
+
+/* Now handle incoming connections.  Handle single client case first */
+
+if (!(flags & SRVR_multi_client)) {
+ISC_make_desc("SYS$NET", &desc, 0);
+status = sys$assign(&desc, &channel, NULL, NULL); if (!(status & 1)) {
+dnet_error(port, "sys$assign", status); return NULL;}
+port->port_server_flags |= SRVR_server;
+port->port_handle = channel; return port;}
+
+/* We're supposed to be a multi-client server -- take our best shot */
+
+ISC_make_desc("_NET:", &desc, 0);
+status = lib$asn_wth_mbx(&desc, &maxmsg, &bufquo, &channel, &mbx_channel);
+if (!(status & 1)) {
+dnet_error(port, "lib$asn_wth_mbx", status); return NULL;}
+
+ISC_make_desc(&nfb, &nfb_desc, sizeof(nfb)); status = sys$qio(EVENT_FLAG,	/* Event flag */
+															  channel,	/* Channel */
+															  IO$_ACPCONTROL,	/* Function */
+															  port->port_iosb,	/* IO status block */
+															  gds__completion_ast,	/* AST address */
+															  iosb,	/* AST parameter */
+															  &nfb_desc,	/* P1 (buffer) */
+															  NULL,	/* P2 (length) */
+															  NULL,	/* P3 (virtual block) */
+															  NULL, NULL,
+															  NULL);
+if (!wait_and_test(port, "qio/acpcontrol", status))
+return NULL; port->port_server_flags |= SRVR_server | SRVR_multi_client;
+port->port_handle = mbx_channel; port->port_channel = channel;
+if (!start_read(port, port->port_buffer, maxmsg))
+return NULL; return port;}
+
+
+static int accept_connection(PORT port, P_CNCT * connect) {
+/**************************************
+ *
+ *	a c c e p t _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept an incoming request for connection.  This is purely a lower
+ *	level handshaking function, and does not constitute the server
+ *	response for protocol selection.
+ *
+ **************************************/
+
+return TRUE;}
+
+
+static int accept_link(PORT port, MBXMSG msg) {
+/**************************************
+ *
+ *	a c c e p t _ l i n k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept a new logical link.  Return new channel number
+ *	or NULL.
+ *
+ **************************************/
+TEXT * p, stuff[32];
+PORT new_port;
+int status;
+USHORT channel, iosb[4];
+struct dsc$descriptor_s desc;
+ISC_make_desc("_NET:", &desc, 0);
+status = sys$assign(&desc, &channel, NULL, NULL); if (!(status & 1))
+return dnet_error(port, "sys$assign", status);
+p = msg->name + msg->name_count;
+desc.dsc$w_length = *p; desc.dsc$a_pointer = p + 1;
+status = sys$qio(EVENT_FLAG,	/* Event flag */
+				 channel,	/* Channel */
+				 IO$_ACCESS,	/* Function */
+				 iosb,	/* IO status block */
+				 gds__completion_ast,	/* AST address */
+				 NULL,	/* AST parameter */
+				 NULL,	/* P1 (buffer) */
+				 &desc,	/* P2 (length) */
+				 NULL,	/* P3 (virtual block) */
+				 NULL,
+				 NULL,
+				 NULL);
+if (status & 1) {
+wait(iosb); status = iosb[0];}
+
+if (!(status & 1))
+return dnet_error(port, "sys$assign", status); return channel;}
+
+
+static PORT active_port(PORT port) {
+/**************************************
+ *
+ *	a c t i v e _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return the address of an active port (i.e. read complete)
+ *	or NULL (nothing complete).
+ *
+ **************************************/
+
+if (port->port_iosb[0])
+return port; for (port = port->port_clients; port; port = port->port_next)
+if (port->port_iosb[0])
+return port; return NULL;}
+
+
+static PORT alloc_port(PORT parent) {
+/**************************************
+ *
+ *	a l l o c _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a port block, link it in to parent (if there is a parent),
+ *	and initialize input and output XDR streams.
+ *
+ **************************************/
+UCHAR * message;
+PORT port;
+USHORT l;
+UCHAR buffer[256];
+l = (parent && (parent->port_server_flags & SRVR_multi_client)) ?
+BUFFER_SIZE * 3 : BUFFER_SIZE * 2;
+port = ALLOCV(type_port, l);
+port->port_type = port_decnet;
+port->port_state = state_pending;
+ISC_get_host(buffer, sizeof(buffer));
+port->port_host = REMOTE_make_string(buffer);
+sprintf(buffer, "DECnet (%s)", port->port_host->str_data);
+port->port_version = REMOTE_make_string(buffer); if (parent) {
+port->port_parent = parent;
+port->port_next = parent->port_clients;
+parent->port_clients = port;
+port->port_handle = parent->port_handle;
+port->port_server = parent->port_server;
+port->port_server_flags = parent->port_server_flags;}
+
+message = port->port_buffer;
+port->port_accept = &accept_connection;
+port->port_disconnect = &disconnect;
+port->port_receive_packet = &receive;
+port->port_send_packet = &send_full;
+port->port_send_partial = &send_partial;
+port->port_connect = aux_connect;
+port->port_request = aux_request;
+port->port_buff_size = BUFFER_SIZE;
+dnet_create(&port->port_send, port,
+			&port->port_buffer[BUFFER_SIZE], BUFFER_SIZE,
+			XDR_ENCODE);
+dnet_create(&port->port_receive, port, port->port_buffer, 0,
+			XDR_DECODE); return port;}
+
+
+static PORT aux_connect(PORT port, PACKET * packet, XDR_INT(*ast) ()) {
+/**************************************
+ *
+ *	a u x _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to establish an alternative connection.  Somebody has already
+ *	done a successfull connect request ("packet" contains the response).
+ *
+ **************************************/
+P_RESP * response;
+P_REQ * request;
+MBXMSG msg;
+int n, l, arg, status;
+USHORT channel;
+PORT new_port; UCHAR buffer[128], *p; struct dsc$descriptor_s desc;
+/* If this is a server, we're got an auxiliary connection.  Accept it */
+if (port->port_server_flags) {
+if (!start_read(port, buffer, sizeof(buffer)))
+return NULL; if (!wait_and_test(port, "qio/readvblk", 1))
+return NULL;
+channel = accept_link(port, buffer);
+sys$dassgn(port->port_channel);
+if (!channel)
+return NULL;
+port->port_handle = channel;
+port->port_flags |= PORT_async; port->port_iosb[0] = 0; return port;}
+
+port->port_async = new_port = alloc_port(port->port_parent);
+new_port->port_flags |= PORT_async;
+response = &packet->p_resp;
+request = &packet->p_req;
+ISC_make_desc(response->p_resp_data.cstr_address, &desc,
+			  response->p_resp_data.cstr_length);
+status = sys$assign(&desc, &channel, NULL, NULL); if (!(status & 1)) {
+dnet_error(port, "sys$assign", status); return NULL;}
+
+new_port->port_handle = channel;
+new_port->port_flags = port->port_flags & PORT_no_oob; return new_port;}
+
+
+static PORT aux_request(PORT port, PACKET * packet) {
+/**************************************
+ *
+ *	a u x _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	A remote interface has requested the server prepare an auxiliary 
+ *	connection; the server calls aux_request to set up the connection.
+ *
+ **************************************/
+PORT parent, new_port;
+P_RESP * response;
+int n, length, status, pid;
+USHORT channel, mbx_channel;
+TEXT task_name[32], *ncb;
+struct dsc$descriptor_s desc, nfb_desc;
+ISC_make_desc("_NET:", &desc, 0);
+status = lib$asn_wth_mbx(&desc, &maxmsg, &bufquo, &channel, &mbx_channel);
+if (!(status & 1)) {
+dnet_error(port, "sys$assign", status); return NULL;}
+
+port->port_async = new_port = alloc_port(port->port_parent);
+new_port->port_server_flags = port->port_server_flags;
+new_port->port_handle = mbx_channel;
+new_port->port_channel = channel;
+new_port->port_flags = port->port_flags & PORT_no_oob;
+pid = getpid();
+ncb = new_port->port_buffer;
+sprintf(task_name, "ISC_%X_%d", pid, ++request_count);
+sprintf(ncb, "%s::\"TASK=%s\"", port->port_host->str_data, task_name);
+ISC_make_desc(task_name, &desc, 0);
+ISC_make_desc(&null_nfb, &nfb_desc, sizeof(null_nfb)); status = sys$qio(EVENT_FLAG,	/* Event flag */
+																		channel,	/* Channel */
+																		IO$_ACPCONTROL,	/* Function */
+																		new_port->port_iosb,	/* IO status block */
+																		gds__completion_ast,	/* AST address */
+																		NULL,	/* AST parameter */
+																		&nfb_desc,	/* P1 (buffer) */
+																		&desc,	/* P2 (length) */
+																		NULL,	/* P3 (virtual block) */
+																		NULL,
+																		NULL,
+																		NULL);
+if (!wait_and_test(new_port, "qio/acpcontrol", status))
+return NULL; response = &packet->p_resp;
+response->p_resp_data.cstr_address = ncb;
+response->p_resp_data.cstr_length = strlen(ncb); return new_port;}
+
+
+static dnet_create(XDR * xdrs,
+				   PORT port,
+				   UCHAR * buffer, USHORT length, enum xdr_op x_op) {
+/**************************************
+ *
+ *	d n e t _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize an XDR stream for Apollo mailboxes.
+ *
+ **************************************/
+
+xdrs->x_public = port;
+xdrs->x_base = xdrs->x_private = buffer;
+xdrs->x_handy = length;
+xdrs->x_ops = &dnet_ops; xdrs->x_op = x_op; return TRUE;}
+
+
+static XDR_INT dnet_destroy(XDR * xdrs) {
+/**************************************
+ *
+ *	d n e t _ d e s t r o y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Destroy a stream.  A no-op.
+ *
+ **************************************/
+}
+
+
+static int dnet_endofrecord(XDR * xdrs, bool_t flushnow) {
+/**************************************
+ *
+ *	d n e t _ e n d o f r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out the rest of a record.
+ *
+ **************************************/
+
+return dnet_write(xdrs, flushnow);}
+
+
+static int dnet_error(PORT port, UCHAR * operation, int status) {
+/**************************************
+ *
+ *	d n e t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An I/O error has occurred.  If a status vector is present,
+ *	generate an error return.  In any case, return NULL, which
+ *	is used to indicate and error.
+ *
+ **************************************/
+RDB rdb;
+int *status_vector;
+port->port_flags |= PORT_broken;
+port->port_state = state_broken;
+if (rdb = port->port_context) status_vector = rdb->rdb_status_vector;
+else
+status_vector = port->port_status_vector; if (status_vector) {
+*status_vector++ = gds_arg_gds;
+*status_vector++ = gds__io_error;
+*status_vector++ = gds_arg_string;
+*status_vector++ = operation;
+*status_vector++ = gds_arg_string;
+*status_vector++ = "DECnet connection"; if (status) {
+*status_vector++ = gds_arg_vms; *status_vector++ = status;}
+*status_vector++ = 0;}
+
+return NULL;}
+
+
+static bool_t dnet_getbytes(XDR * xdrs, SCHAR * buff, int count) {
+/**************************************
+ *
+ *	d n e t _ g e t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a bunch of bytes from a memory stream if it fits.
+ *
+ **************************************/
+SLONG bytecount = count;
+/* Use memcpy to optimize bulk transfers. */
+while (bytecount > sizeof(GDS_QUAD)) {
+if (xdrs->x_handy >= bytecount) {
+memcpy(buff, xdrs->x_private, bytecount);
+xdrs->x_private += bytecount; xdrs->x_handy -= bytecount; return TRUE;}
+else
+{
+if (xdrs->x_handy > 0) {
+memcpy(buff, xdrs->x_private, xdrs->x_handy);
+xdrs->x_private += xdrs->x_handy;
+buff += xdrs->x_handy; bytecount -= xdrs->x_handy; xdrs->x_handy = 0;}
+if (!dnet_read(xdrs))
+return FALSE;}
+}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+if (!bytecount)
+return TRUE; if (bytecount && xdrs->x_handy >= bytecount) {
+xdrs->x_handy -= bytecount;
+do
+*buff++ = *xdrs->x_private++; while (--bytecount); return TRUE;}
+
+while (--bytecount >= 0) {
+if (!xdrs->x_handy && !dnet_read(xdrs))
+return FALSE; *buff++ = *xdrs->x_private++; --xdrs->x_handy;}
+
+return TRUE;}
+
+
+static bool_t dnet_getlong(XDR * xdrs, SLONG * lp) {
+/**************************************
+ *
+ *	d n e t _ g e t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+SLONG l; if (!(*xdrs->x_ops->x_getbytes) (xdrs, &l, 4))
+return FALSE; *lp = ntohl(l); return TRUE;}
+
+
+static u_int dnet_getpostn(XDR * xdrs) {
+/**************************************
+ *
+ *	d n e t _ g e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+return xdrs->x_private - xdrs->x_base;}
+
+
+static caddr_t dnet_inline(XDR * xdrs, u_int bytecount) {
+/**************************************
+ *
+ *	d n e t _  i n l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a pointer to somewhere in the buffer.
+ *
+ **************************************/
+
+if (bytecount > xdrs->x_handy)
+return FALSE; return xdrs->x_base + bytecount;}
+
+
+static bool_t dnet_putbytes(XDR * xdrs, SCHAR * buff, int count) {
+/**************************************
+ *
+ *	d n e t _ p u t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a bunch of bytes to a memory stream if it fits.
+ *
+ **************************************/
+SLONG bytecount = count;
+/* Use memcpy to optimize bulk transfers. */
+while (bytecount > sizeof(GDS_QUAD)) {
+if (xdrs->x_handy >= bytecount) {
+memcpy(xdrs->x_private, buff, bytecount);
+xdrs->x_private += bytecount; xdrs->x_handy -= bytecount; return TRUE;}
+else
+{
+if (xdrs->x_handy > 0) {
+memcpy(xdrs->x_private, buff, xdrs->x_handy);
+xdrs->x_private += xdrs->x_handy;
+buff += xdrs->x_handy; bytecount -= xdrs->x_handy; xdrs->x_handy = 0;}
+if (!dnet_write(xdrs))
+return FALSE;}
+}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+if (!bytecount)
+return TRUE; if (bytecount && xdrs->x_handy >= bytecount) {
+xdrs->x_handy -= bytecount;
+do
+*xdrs->x_private++ = *buff++; while (--bytecount); return TRUE;}
+
+while (--bytecount >= 0) {
+if (xdrs->x_handy <= 0 && !dnet_write(xdrs))
+return FALSE; --xdrs->x_handy; *xdrs->x_private++ = *buff++;}
+
+return TRUE;}
+
+
+static bool_t dnet_putlong(XDR * xdrs, SLONG * lp) {
+/**************************************
+ *
+ *	d n e t _ p u t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+SLONG l; l = htonl(*lp); return (*xdrs->x_ops->x_putbytes) (xdrs, &l, 4);}
+
+
+static bool_t dnet_read(XDR * xdrs) {
+/**************************************
+ *
+ *	d n e t _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a buffer full of data.  If we receive a bad packet,
+ *	send the moral equivalent of a NAK and retry.  ACK all
+ *	partial packets.  Don't ACK the last packet -- the next
+ *	message sent will handle this.
+ *
+ **************************************/
+PORT port;
+SSHORT length;
+UCHAR * p, *end;
+port = xdrs->x_public; p = xdrs->x_base; end = p + BUFFER_SIZE;
+/* If buffer is not completely empty, slide down what what's left */
+if (xdrs->x_handy > 0) {
+memmove(p, xdrs->x_private, xdrs->x_handy); p += xdrs->x_handy;}
+
+/* If an ACK is pending, do an ACK.  The alternative is deadlock. */
+
+/*
+if (port->port_flags & PORT_pend_ack)
+    if (!packet_send (port, NULL, 0))
+	return FALSE;
+*/
+
+while (TRUE) {
+length = end - p; if (!packet_receive(port, p, length, &length)) {
+return FALSE; if (!packet_send(port, NULL, 0))
+return FALSE; continue;}
+if (length >= 0) {
+p += length; break;}
+p -= length; if (!packet_send(port, NULL, 0))
+return FALSE;}
+
+port->port_flags |= PORT_pend_ack;
+xdrs->x_handy = p - xdrs->x_base; xdrs->x_private = xdrs->x_base; return TRUE;}
+
+
+static bool_t dnet_setpostn(XDR * xdrs, u_int bytecount) {
+/**************************************
+ *
+ *	d n e t _ s e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+if (bytecount > xdrs->x_handy)
+return FALSE; xdrs->x_private = xdrs->x_base + bytecount; return TRUE;}
+
+
+static bool_t dnet_write(XDR * xdrs, bool_t end_flag) {
+/**************************************
+ *
+ *	d n e t _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a buffer fulll of data.  If the end_flag isn't set, indicate
+ *	that the buffer is a fragment, and reset the XDR for another buffer
+ *	load.
+ *
+ **************************************/
+UCHAR aux_buffer[BUFFER_SIZE], *p;
+UCHAR buffer[BUFFER_SIZE]; PORT port; SSHORT l, length, l2;
+/* Encode the data portion of the packet */
+port = xdrs->x_public; p = xdrs->x_base; length = xdrs->x_private - p;
+/* Send data in manageable hunks.  If a packet is partial, indicate
+   that with a negative length.  A positive length marks the end. */
+p = xdrs->x_base; while (length) {
+port->port_misc1 = (port->port_misc1 + 1) % MAX_SEQUENCE;
+l = MIN(length, MAX_DATA); length -= l; while (TRUE) {
+if (!packet_send(port, p, (length) ? -l : l))
+return FALSE;
+/*
+   if (packet_receive (port, aux_buffer, sizeof (aux_buffer), &l2))
+ */
+break;}
+p += l;}
+
+xdrs->x_private = xdrs->x_base; xdrs->x_handy = BUFFER_SIZE; return TRUE;
+/* If the other end has not piggy-backed the next packet, we're done. */
+if (!l2)
+return TRUE;
+/* We've got a piggy-backed response.  If the packet is partial,
+   send an ACK for part we did receive. */
+p = aux_buffer; while (l2 < 0) {
+if (!packet_send(port, NULL, 0))
+return FALSE;
+p -= l2;
+length = aux_buffer + sizeof(aux_buffer) - p;
+if (!packet_receive(port, p, length, &l2)) {
+p += l2; continue;}
+}
+
+length = p - aux_buffer + l2;
+/* Now we're got a encode glump ready to stuff into the read buffer.
+   Unfortunately, if we just add it to the read buffer, we will shortly
+   overflow the buffer.  To avoid this, "scrumpf down" the active bits
+   in the read buffer, then add out stuff at the end. */
+xdrs = &port->port_receive;
+p = xdrs->x_base;
+if (xdrs->x_handy && p != xdrs->x_private)
+memmove(p, xdrs->x_private, xdrs->x_handy);
+p += xdrs->x_handy; xdrs->x_private = xdrs->x_base;
+/*
+xdrs->x_handy += JAP_decode (aux_buffer, length, p);
+*/
+port->port_flags |= PORT_pend_ack; return TRUE;}
+
+
+static void disconnect(PORT port) {
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break a remote connection.
+ *
+ **************************************/
+PORT parent, *ptr;
+/* If this is a sub-port, unlink it from it's parent */
+if (parent = port->port_parent) {
+if (port->port_async) {
+disconnect(port->port_async); port->port_async = NULL;}
+for (ptr = &parent->port_clients; *ptr; ptr = &(*ptr)->port_next)
+if (*ptr == port) {
+*ptr = port->port_next; if (ptr == &parent->port_clients)
+parent->port_next = *ptr; break;}
+}
+else
+if (port->port_async) {
+#ifdef MULTI_THREAD
+port->port_async->port_flags |= PORT_disconnect;
+#else
+disconnect(port->port_async); port->port_async = NULL;
+#endif
+}
+
+sys$dassgn(port->port_handle); cleanup_port(port);}
+^L static void cleanup_port(PORT port) {
+/**************************************
+ *
+ *      c l e a n u p _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Walk through the port structure freeing
+ *      allocated memory and then free the port.
+ *
+ **************************************/
+
+if (port->port_version)
+ALLR_free((UCHAR *) port->port_version); if (port->port_host)
+ALLR_free((UCHAR *) port->port_host);
+#ifdef DEBUG_XDR_MEMORY
+if (port->port_packet_vector)
+ALLR_free((UCHAR *) port->port_packet_vector);
+#endif
+ALLR_release((UCHAR *) port); return;}
+
+
+static int packet_receive(PORT port,
+						  UCHAR * buffer,
+						  SSHORT buffer_length, SSHORT * length) {
+/**************************************
+ *
+ *	p a c k e t _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a packet and pass on it's goodness.  If it's good,
+ *	return TRUE and the reported length of the packet, and update
+ *	the receive sequence number.  If it's bad, return FALSE.  If it's
+ *	a duplicate message, just ignore it.
+ *
+ **************************************/
+UCHAR c, aux_buffer[1024], *p; USHORT l, n; int status, flags;
+/* If this is a multi-client case, as the message has already been
+   received, there is nothing to do */
+flags = port->port_flags; if (port->port_server_flags & SRVR_multi_client) {
+while (!(status = port->port_iosb[0]))
+wait(port->port_iosb); if (status & 1) {
+l = port->port_iosb[1];
+p = port->port_buffer + 2 * BUFFER_SIZE;
+memcpy(buffer, p, l);
+*length = l; start_read(port, p, BUFFER_SIZE); return TRUE;}
+}
+else
+{
+if (!start_read(port, buffer, buffer_length))
+return NULL; wait(port->port_iosb); status = port->port_iosb[0];}
+
+if (!(status & 1)) {
+if (flags & PORT_async)
+return FALSE; return dnet_error(port, "sys$qio/io$_readvblk", status);}
+
+*length = port->port_iosb[1]; return TRUE;}
+
+
+static int packet_send(PORT port, UCHAR * data, SSHORT length) {
+/**************************************
+ *
+ *	p a c k e t _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send some data on it's way.  
+ *
+ **************************************/
+int status; SSHORT iosb[4]; status = sys$qio(EVENT_FLAG,	/* Event flag */
+											 port->port_handle,	/* Channel */
+											 IO$_WRITEVBLK,	/* Function */
+											 iosb,	/* IO status block */
+											 gds__completion_ast,	/* AST address */
+											 NULL,	/* AST parameter */
+											 data,	/* P1 (buffer) */
+											 length,	/* P2 (length) */
+											 NULL,	/* P3 (virtual block) */
+											 NULL, NULL, NULL);
+if (status & 1) {
+wait(iosb); status = iosb[0];}
+
+if (!(status & 1))
+return dnet_error(port, "sys$qio/io$_writevblk", status);
+port->port_flags &= ~PORT_pend_ack; return TRUE;}
+
+
+static int process_connect(PORT port) {
+/**************************************
+ *
+ *	p r o c e s s _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've got a message on the mailbox.  Find out
+ *	what's up and doing something appropriate.
+ *
+ **************************************/
+MBXMSG msg;
+PORT new_port;
+int status;
+USHORT channel, iosb[4];
+msg = (MSG) port->port_buffer; switch (msg->msgtype) {
+case MSG$_CONNECT:
+if (!(channel = accept_link(port, msg)))
+return NULL;
+new_port = alloc_port(port);
+new_port->port_handle = channel;
+start_read(new_port, new_port->port_buffer + 2 * BUFFER_SIZE, BUFFER_SIZE);
+break;}
+
+start_read(port, port->port_buffer, maxmsg);}
+
+
+static PORT receive(PORT port, PACKET * packet) {
+/**************************************
+ *
+ *	r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message from a port or clients of a port.  If the process
+ *	is a server and a connection request comes in, generate a new port
+ *	block for the client.
+ *
+ **************************************/
+PORT active; int status; USHORT iosb[4];
+/* Single client case is MUCH easier */
+if (!(port->port_server_flags & SRVR_multi_client)) {
+if (!xdr_protocol(&port->port_receive, packet))
+return NULL; return port;}
+
+/* Worry about multi-client case */
+
+for (;;) {
+if (!(active = active_port(port))) {
+THREAD_EXIT; gds__thread_wait(active_port, port); THREAD_ENTER; continue;}
+if (active != port) {
+if (!xdr_protocol(&active->port_receive, packet))
+packet->p_operation = op_exit; return active;}
+process_connect(port);}
+
+return NULL;}
+
+
+static int send_full(PORT port, PACKET * packet) {
+/**************************************
+ *
+ *	s e n d _ f u l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+if (!xdr_protocol(&port->port_send, packet))
+return FALSE; return dnet_endofrecord(&port->port_send, TRUE);}
+
+
+static int send_partial(PORT port, PACKET * packet) {
+/**************************************
+ *
+ *	s e n d _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+return xdr_protocol(&port->port_send, packet);}
+
+
+static int start_read(PORT port, UCHAR * buffer, SSHORT buffer_length) {
+/**************************************
+ *
+ *	s t a r t _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start an asynchronous read on a port.
+ *
+ **************************************/
+int status; status = sys$qio(EVENT_FLAG,	/* Event flag */
+							 port->port_handle,	/* Channel */
+							 IO$_READVBLK,	/* Function */
+							 port->port_iosb,	/* IO status block */
+							 gds__completion_ast,	/* AST address */
+							 NULL,	/* AST parameter */
+							 buffer,	/* P1 (buffer) */
+							 buffer_length,	/* P2 (length) */
+							 NULL,	/* P3 (virtual block) */
+							 NULL, NULL, NULL); if (!(status & 1)) {
+if (port->port_flags & PORT_async)
+return FALSE; return dnet_error(port, "sys$qio/io$_readvblk", status);}
+
+return TRUE;}
+
+
+static void wait(USHORT * iosb) {
+/**************************************
+ *
+ *	w a i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait for something to happen.
+ *
+ **************************************/
+
+if (iosb[0])
+return; THREAD_EXIT; ISC_wait(iosb, EVENT_FLAG); THREAD_ENTER;}
+
+
+static int wait_and_test(PORT port, TEXT * string, int status) {
+/**************************************
+ *
+ *	w a i t _ a n d _ t e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do status checking and waiting associated with a QIO.  If
+ *	anything fails, issue error and return FALSE/NULL.
+ *
+ **************************************/
+
+if (status & 1) {
+wait(port->port_iosb); status = port->port_iosb[0];}
+
+if (!(status & 1))
+return dnet_error(port, string, status); return TRUE;}
diff --git a/src/remote/decnet_server.cpp b/src/remote/decnet_server.cpp
new file mode 100644
index 0000000000..b3ad0dc395
--- /dev/null
+++ b/src/remote/decnet_server.cpp
@@ -0,0 +1,116 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		DECNET_server.c
+ *	DESCRIPTION:	DECNET server for VMS
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include "../jrd/license.h"
+#include "../jrd/thd.h"
+#include "../remote/remote.h"
+#include "../remote/decne_proto.h"
+#include "../remote/serve_proto.h"
+#include "../jrd/gds_proto.h"
+
+
+int main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Run an asyncronous server.
+ *
+ **************************************/
+	int *port;
+	int debug, flag, channel, standalone, multi_threaded;
+	STATUS status_vector[20];
+	TEXT c, *p, **end, protocol[128];
+	SLONG debug_value;
+
+	argc = VMS_parse(&argv, argc);
+	end = argc + argv;
+	argv++;
+	debug = standalone = flag = FALSE;
+	channel = 0;
+	protocol[0] = 0;
+	multi_threaded = FALSE;
+
+	while (argv < end) {
+		p = *argv++;
+		if (*p++ = '-')
+			while (c = *p++)
+				switch (UPPER(c)) {
+				case 'D':
+					flag |= SRVR_debug;
+					debug = standalone = TRUE;
+					break;
+
+				case 'M':
+					flag |= SRVR_multi_client;
+					standalone = TRUE;
+					break;
+
+				case 'S':
+					standalone = TRUE;
+					break;
+
+				case 'I':
+					standalone = FALSE;
+					break;
+
+				case 'T':
+					multi_threaded = TRUE;
+					break;
+
+				case 'U':
+					multi_threaded = FALSE;
+					break;
+
+				case 'P':
+					sprintf(protocol, "/%s", *argv++);
+					break;
+
+				case 'Z':
+					ib_printf("Interbase DECnet server version %s\n",
+							  GDS_VERSION);
+					exit(FINI_OK);
+				}
+	}
+
+	THREAD_ENTER;
+	port = DECNET_connect(protocol, NULL, status_vector, flag);
+	THREAD_EXIT;
+
+	if (!port) {
+		gds__print_status(status_vector);
+		exit(FINI_ERROR);
+	}
+
+	if (multi_threaded)
+		SRVR_multi_thread(port, flag);
+	else
+		SRVR_main(port, flag);
+
+	exit(FINI_OK);
+}
diff --git a/src/remote/depends.mak b/src/remote/depends.mak
new file mode 100644
index 0000000000..cd84421b2b
--- /dev/null
+++ b/src/remote/depends.mak
@@ -0,0 +1,1397 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# depends.mak - remote
+# Created by 'make depends.mak'
+# Created on 1998-11-17
+allr.o: allr.c
+allr.o: allr_proto.h
+allr.o: blk.h
+allr.o: protocol.h
+allr.o: remot_proto.h
+allr.o: remote.h
+allr.o: remote_def.h
+allr.o: source/jrd/codes.h
+allr.o: source/jrd/common.h
+allr.o: source/jrd/dsc.h
+allr.o: source/jrd/fil.h
+allr.o: source/jrd/gds_proto.h
+allr.o: source/jrd/ibsetjmp.h
+allr.o: source/jrd/isc.h
+allr.o: source/jrd/thd.h
+allr.o: source/jrd/thd_proto.h
+allr.o: xdr.h
+ambx.o: allr_proto.h
+ambx.o: ambx.c
+ambx.o: ambx_proto.h
+ambx.o: blk.h
+ambx.o: protocol.h
+ambx.o: remot_proto.h
+ambx.o: remote.h
+ambx.o: remote_def.h
+ambx.o: source/interbase/include/iberror.h
+ambx.o: source/jrd/common.h
+ambx.o: source/jrd/dsc.h
+ambx.o: source/jrd/fil.h
+ambx.o: source/jrd/gds.h
+ambx.o: source/jrd/gds_proto.h
+ambx.o: source/jrd/ibsetjmp.h
+ambx.o: source/jrd/isc.h
+ambx.o: source/jrd/isc_proto.h
+ambx.o: source/jrd/thd.h
+ambx.o: xdr.h
+ambx_server.o: allr_proto.h
+ambx_server.o: ambx_proto.h
+ambx_server.o: ambx_server.c
+ambx_server.o: blk.h
+ambx_server.o: protocol.h
+ambx_server.o: remote.h
+ambx_server.o: remote_def.h
+ambx_server.o: serve_proto.h
+ambx_server.o: source/jrd/build_no.h
+ambx_server.o: source/jrd/common.h
+ambx_server.o: source/jrd/dsc.h
+ambx_server.o: source/jrd/ibsetjmp.h
+ambx_server.o: source/jrd/license.h
+ambx_server.o: source/jrd/thd.h
+ambx_server.o: xdr.h
+chop.o: chop.c
+chop.o: source/interbase/include/iberror.h
+chop.o: source/jrd/common.h
+chop.o: source/jrd/ibase.h
+chuser.o: chuser.c
+chuser.o: source/jrd/common.h
+cntl.o: allr_proto.h
+cntl.o: blk.h
+cntl.o: cntl.c
+cntl.o: cntl_proto.h
+cntl.o: protocol.h
+cntl.o: remote.h
+cntl.o: remote_def.h
+cntl.o: source/jrd/common.h
+cntl.o: source/jrd/dsc.h
+cntl.o: source/jrd/ibsetjmp.h
+cntl.o: source/jrd/isc.h
+cntl.o: source/jrd/isc_proto.h
+cntl.o: source/jrd/sch_proto.h
+cntl.o: source/jrd/thd.h
+cntl.o: source/jrd/thd_proto.h
+cntl.o: xdr.h
+decnet.o: allr_proto.h
+decnet.o: blk.h
+decnet.o: decne_proto.h
+decnet.o: decnet.c
+decnet.o: protocol.h
+decnet.o: remot_proto.h
+decnet.o: remote.h
+decnet.o: remote_def.h
+decnet.o: source/interbase/include/iberror.h
+decnet.o: source/jrd/common.h
+decnet.o: source/jrd/dsc.h
+decnet.o: source/jrd/gds.h
+decnet.o: source/jrd/ibsetjmp.h
+decnet.o: source/jrd/isc.h
+decnet.o: source/jrd/isc_proto.h
+decnet.o: source/jrd/sch_proto.h
+decnet.o: source/jrd/thd.h
+decnet.o: xdr.h
+decnet_server.o: allr_proto.h
+decnet_server.o: blk.h
+decnet_server.o: decne_proto.h
+decnet_server.o: decnet_server.c
+decnet_server.o: protocol.h
+decnet_server.o: remote.h
+decnet_server.o: remote_def.h
+decnet_server.o: serve_proto.h
+decnet_server.o: source/jrd/build_no.h
+decnet_server.o: source/jrd/common.h
+decnet_server.o: source/jrd/dsc.h
+decnet_server.o: source/jrd/fil.h
+decnet_server.o: source/jrd/gds_proto.h
+decnet_server.o: source/jrd/ibsetjmp.h
+decnet_server.o: source/jrd/license.h
+decnet_server.o: source/jrd/thd.h
+decnet_server.o: xdr.h
+divorce.o: divorce.c
+divorce.o: source/jrd/common.h
+dllshell.o: dllshell.c
+dllshell.o: source/jrd/common.h
+dllshell.o: source/jrd/fil.h
+dllshell.o: source/jrd/gds_proto.h
+dllshell.o: source/jrd/thd.h
+dnet.o: allr_proto.h
+dnet.o: blk.h
+dnet.o: dnet.c
+dnet.o: dnet_proto.h
+dnet.o: protocol.h
+dnet.o: remot_proto.h
+dnet.o: remote.h
+dnet.o: remote_def.h
+dnet.o: source/interbase/include/iberror.h
+dnet.o: source/jrd/common.h
+dnet.o: source/jrd/dsc.h
+dnet.o: source/jrd/gds.h
+dnet.o: source/jrd/ibsetjmp.h
+dnet.o: source/jrd/isc.h
+dnet.o: source/jrd/isc_proto.h
+dnet.o: source/jrd/thd.h
+dnet.o: xdr.h
+dnet_server.o: allr_proto.h
+dnet_server.o: blk.h
+dnet_server.o: dnet_proto.h
+dnet_server.o: dnet_server.c
+dnet_server.o: protocol.h
+dnet_server.o: remote.h
+dnet_server.o: remote_def.h
+dnet_server.o: serve_proto.h
+dnet_server.o: source/jrd/build_no.h
+dnet_server.o: source/jrd/common.h
+dnet_server.o: source/jrd/dsc.h
+dnet_server.o: source/jrd/fil.h
+dnet_server.o: source/jrd/gds_proto.h
+dnet_server.o: source/jrd/ibsetjmp.h
+dnet_server.o: source/jrd/license.h
+dnet_server.o: source/jrd/thd.h
+dnet_server.o: xdr.h
+faux.o: faux.c
+ibconfig.o: ibconfig.c
+ibconfig.o: ibconfig.h
+ibconfig.o: ibsvrhlp.h
+ibconfig.o: property.rh
+ibconfig.o: source/interbase/include/iberror.h
+ibconfig.o: source/jrd/common.h
+ibconfig.o: source/jrd/file_params.h
+ibconfig.o: source/jrd/ibase.h
+ibconfig.o: source/jrd/isc.h
+ibconfig.o: source/jrd/svc_proto.h
+ibconfig.o: source/jrd/svc_undoc.h
+ibconfig.o: source/jrd/thd.h
+ibconfig.o: window_proto.h
+inet.o: allr_proto.h
+inet.o: blk.h
+inet.o: inet.c
+inet.o: inet_proto.h
+inet.o: proto_proto.h
+inet.o: protocol.h
+inet.o: remot_proto.h
+inet.o: remote.h
+inet.o: remote_def.h
+inet.o: source/interbase/include/iberror.h
+inet.o: source/jrd/common.h
+inet.o: source/jrd/dsc.h
+inet.o: source/jrd/fil.h
+inet.o: source/jrd/file_params.h
+inet.o: source/jrd/gds.h
+inet.o: source/jrd/gds_proto.h
+inet.o: source/jrd/iberr.h
+inet.o: source/jrd/ibsetjmp.h
+inet.o: source/jrd/isc.h
+inet.o: source/jrd/isc_i_proto.h
+inet.o: source/jrd/isc_proto.h
+inet.o: source/jrd/sch_proto.h
+inet.o: source/jrd/thd.h
+inet.o: source/jrd/time.h
+inet.o: xdr.h
+inet_server.o: allr_proto.h
+inet_server.o: blk.h
+inet_server.o: inet_proto.h
+inet_server.o: inet_server.c
+inet_server.o: protocol.h
+inet_server.o: remote.h
+inet_server.o: remote_def.h
+inet_server.o: serve_proto.h
+inet_server.o: source/jrd/build_no.h
+inet_server.o: source/jrd/common.h
+inet_server.o: source/jrd/dsc.h
+inet_server.o: source/jrd/fil.h
+inet_server.o: source/jrd/file_params.h
+inet_server.o: source/jrd/gds_proto.h
+inet_server.o: source/jrd/ibsetjmp.h
+inet_server.o: source/jrd/isc.h
+inet_server.o: source/jrd/license.h
+inet_server.o: source/jrd/sch_proto.h
+inet_server.o: source/jrd/thd.h
+inet_server.o: xdr.h
+interface.o: allr_proto.h
+interface.o: blk.h
+interface.o: inet_proto.h
+interface.o: inter_proto.h
+interface.o: interface.c
+interface.o: merge_proto.h
+interface.o: parse_proto.h
+interface.o: proto_proto.h
+interface.o: protocol.h
+interface.o: remot_proto.h
+interface.o: remote.h
+interface.o: remote_def.h
+interface.o: source/interbase/include/iberror.h
+interface.o: source/jrd/build_no.h
+interface.o: source/jrd/common.h
+interface.o: source/jrd/cvt_proto.h
+interface.o: source/jrd/dsc.h
+interface.o: source/jrd/enc_proto.h
+interface.o: source/jrd/fil.h
+interface.o: source/jrd/gds.h
+interface.o: source/jrd/gds_proto.h
+interface.o: source/jrd/gdsassert.h
+interface.o: source/jrd/ibsetjmp.h
+interface.o: source/jrd/isc.h
+interface.o: source/jrd/isc_f_proto.h
+interface.o: source/jrd/license.h
+interface.o: source/jrd/pwd.h
+interface.o: source/jrd/sch_proto.h
+interface.o: source/jrd/sdl.h
+interface.o: source/jrd/sdl_proto.h
+interface.o: source/jrd/thd.h
+interface.o: source/jrd/thd_proto.h
+interface.o: xdr.h
+ipc.o: allr_proto.h
+ipc.o: blk.h
+ipc.o: ipc.c
+ipc.o: ipc.h
+ipc.o: ipc_proto.h
+ipc.o: protocol.h
+ipc.o: remot_proto.h
+ipc.o: remote.h
+ipc.o: remote_def.h
+ipc.o: source/interbase/include/iberror.h
+ipc.o: source/jrd/common.h
+ipc.o: source/jrd/dsc.h
+ipc.o: source/jrd/fil.h
+ipc.o: source/jrd/gds.h
+ipc.o: source/jrd/gds_proto.h
+ipc.o: source/jrd/ibsetjmp.h
+ipc.o: source/jrd/isc.h
+ipc.o: source/jrd/isc_proto.h
+ipc.o: source/jrd/mpexl.h
+ipc.o: source/jrd/thd.h
+ipc.o: xdr.h
+ipc_server.o: allr_proto.h
+ipc_server.o: blk.h
+ipc_server.o: ipc.h
+ipc_server.o: ipc_proto.h
+ipc_server.o: ipc_server.c
+ipc_server.o: protocol.h
+ipc_server.o: remote.h
+ipc_server.o: remote_def.h
+ipc_server.o: serve_proto.h
+ipc_server.o: source/jrd/build_no.h
+ipc_server.o: source/jrd/common.h
+ipc_server.o: source/jrd/dsc.h
+ipc_server.o: source/jrd/fil.h
+ipc_server.o: source/jrd/gds_proto.h
+ipc_server.o: source/jrd/ibsetjmp.h
+ipc_server.o: source/jrd/license.h
+ipc_server.o: source/jrd/mpexl.h
+ipc_server.o: source/jrd/thd.h
+ipc_server.o: xdr.h
+mapper.o: mapper.c
+merge.o: allr_proto.h
+merge.o: blk.h
+merge.o: merge.c
+merge.o: merge_proto.h
+merge.o: protocol.h
+merge.o: remote.h
+merge.o: remote_def.h
+merge.o: source/interbase/include/iberror.h
+merge.o: source/jrd/common.h
+merge.o: source/jrd/dsc.h
+merge.o: source/jrd/fil.h
+merge.o: source/jrd/gds.h
+merge.o: source/jrd/gds_proto.h
+merge.o: source/jrd/ibsetjmp.h
+merge.o: source/jrd/thd.h
+merge.o: xdr.h
+mgr.o: allr_proto.h
+mgr.o: ambx_proto.h
+mgr.o: blk.h
+mgr.o: mgr.c
+mgr.o: protocol.h
+mgr.o: remote.h
+mgr.o: remote_def.h
+mgr.o: source/interbase/include/iberror.h
+mgr.o: source/jrd/build_no.h
+mgr.o: source/jrd/common.h
+mgr.o: source/jrd/dsc.h
+mgr.o: source/jrd/gds.h
+mgr.o: source/jrd/ibsetjmp.h
+mgr.o: source/jrd/license.h
+mgr.o: source/jrd/thd.h
+mgr.o: xdr.h
+mslan.o: allr_proto.h
+mslan.o: blk.h
+mslan.o: lanentry.h
+mslan.o: mslan.c
+mslan.o: mslan_proto.h
+mslan.o: protocol.h
+mslan.o: remot_proto.h
+mslan.o: remote.h
+mslan.o: remote_def.h
+mslan.o: source/interbase/include/iberror.h
+mslan.o: source/jrd/common.h
+mslan.o: source/jrd/dsc.h
+mslan.o: source/jrd/flu_proto.h
+mslan.o: source/jrd/gds.h
+mslan.o: source/jrd/ibsetjmp.h
+mslan.o: source/jrd/isc.h
+mslan.o: source/jrd/isc_f_proto.h
+mslan.o: source/jrd/isc_proto.h
+mslan.o: source/jrd/thd.h
+mslan.o: xdr.h
+mslansrv.o: allr_proto.h
+mslansrv.o: blk.h
+mslansrv.o: lanman.h
+mslansrv.o: mslan_proto.h
+mslansrv.o: mslansrv.c
+mslansrv.o: protocol.h
+mslansrv.o: remote.h
+mslansrv.o: remote_def.h
+mslansrv.o: serve_proto.h
+mslansrv.o: source/jrd/build_no.h
+mslansrv.o: source/jrd/common.h
+mslansrv.o: source/jrd/dsc.h
+mslansrv.o: source/jrd/fil.h
+mslansrv.o: source/jrd/gds_proto.h
+mslansrv.o: source/jrd/ibsetjmp.h
+mslansrv.o: source/jrd/license.h
+mslansrv.o: source/jrd/thd.h
+mslansrv.o: xdr.h
+multivx.o: multivx.c
+multivx.o: source/jrd/common.h
+multivx.o: tcptypes.h
+netwcon.o: netwcon.c
+nt_server.o: allr_proto.h
+nt_server.o: blk.h
+nt_server.o: cntl_proto.h
+nt_server.o: inet_proto.h
+nt_server.o: nt_server.c
+nt_server.o: protocol.h
+nt_server.o: remote.h
+nt_server.o: remote_def.h
+nt_server.o: serve_proto.h
+nt_server.o: source/jrd/build_no.h
+nt_server.o: source/jrd/codes.h
+nt_server.o: source/jrd/common.h
+nt_server.o: source/jrd/dsc.h
+nt_server.o: source/jrd/fil.h
+nt_server.o: source/jrd/gds_proto.h
+nt_server.o: source/jrd/ibsetjmp.h
+nt_server.o: source/jrd/isc.h
+nt_server.o: source/jrd/license.h
+nt_server.o: source/jrd/sch_proto.h
+nt_server.o: source/jrd/thd.h
+nt_server.o: source/jrd/thd_proto.h
+nt_server.o: source/utilities/install_nt.h
+nt_server.o: wnet_proto.h
+nt_server.o: xdr.h
+ntoh.o: ntoh.c
+ntoh.o: source/jrd/common.h
+nwserv.o: allr_proto.h
+nwserv.o: blk.h
+nwserv.o: inet_proto.h
+nwserv.o: nwserv.c
+nwserv.o: protocol.h
+nwserv.o: remote.h
+nwserv.o: remote_def.h
+nwserv.o: serve_proto.h
+nwserv.o: source/jrd/build_no.h
+nwserv.o: source/jrd/common.h
+nwserv.o: source/jrd/dsc.h
+nwserv.o: source/jrd/fil.h
+nwserv.o: source/jrd/gds_proto.h
+nwserv.o: source/jrd/ibsetjmp.h
+nwserv.o: source/jrd/isc.h
+nwserv.o: source/jrd/isc_s_proto.h
+nwserv.o: source/jrd/license.h
+nwserv.o: source/jrd/sch_proto.h
+nwserv.o: source/jrd/thd.h
+nwserv.o: spxne_proto.h
+nwserv.o: xdr.h
+parser.o: allr_proto.h
+parser.o: blk.h
+parser.o: parse_proto.h
+parser.o: parser.c
+parser.o: protocol.h
+parser.o: remote.h
+parser.o: remote_def.h
+parser.o: source/interbase/include/iberror.h
+parser.o: source/jrd/align.h
+parser.o: source/jrd/common.h
+parser.o: source/jrd/dsc.h
+parser.o: source/jrd/gds.h
+parser.o: source/jrd/gdsassert.h
+parser.o: source/jrd/ibsetjmp.h
+parser.o: source/jrd/thd.h
+parser.o: xdr.h
+property.o: chop_proto.h
+property.o: ibconfig.h
+property.o: ibsvrhlp.h
+property.o: property.c
+property.o: property.rh
+property.o: propty_proto.h
+property.o: remote_def.h
+property.o: source/interbase/include/iberror.h
+property.o: source/jrd/build_no.h
+property.o: source/jrd/common.h
+property.o: source/jrd/file_params.h
+property.o: source/jrd/ibase.h
+property.o: source/jrd/isc.h
+property.o: source/jrd/license.h
+property.o: source/jrd/svc_proto.h
+property.o: source/jrd/thd.h
+property.o: window.rh
+property.o: window_proto.h
+protocol.o: allr_proto.h
+protocol.o: blk.h
+protocol.o: parse_proto.h
+protocol.o: proto_proto.h
+protocol.o: protocol.c
+protocol.o: protocol.h
+protocol.o: remot_proto.h
+protocol.o: remote.h
+protocol.o: remote_def.h
+protocol.o: source/jrd/codes.h
+protocol.o: source/jrd/common.h
+protocol.o: source/jrd/dsc.h
+protocol.o: source/jrd/fil.h
+protocol.o: source/jrd/gds_proto.h
+protocol.o: source/jrd/gdsassert.h
+protocol.o: source/jrd/ibsetjmp.h
+protocol.o: source/jrd/sdl.h
+protocol.o: source/jrd/sdl_proto.h
+protocol.o: source/jrd/thd.h
+protocol.o: xdr.h
+remote.o: allr_proto.h
+remote.o: blk.h
+remote.o: proto_proto.h
+remote.o: protocol.h
+remote.o: remot_proto.h
+remote.o: remote.c
+remote.o: remote.h
+remote.o: remote_def.h
+remote.o: source/interbase/include/iberror.h
+remote.o: source/jrd/common.h
+remote.o: source/jrd/dsc.h
+remote.o: source/jrd/fil.h
+remote.o: source/jrd/file_params.h
+remote.o: source/jrd/gds.h
+remote.o: source/jrd/gds_proto.h
+remote.o: source/jrd/gdsassert.h
+remote.o: source/jrd/ibsetjmp.h
+remote.o: source/jrd/isc.h
+remote.o: source/jrd/thd.h
+remote.o: xdr.h
+server.o: allr_proto.h
+server.o: blk.h
+server.o: merge_proto.h
+server.o: parse_proto.h
+server.o: protocol.h
+server.o: remot_proto.h
+server.o: remote.h
+server.o: remote_def.h
+server.o: serve_proto.h
+server.o: server.c
+server.o: source/interbase/include/iberror.h
+server.o: source/jrd/build_no.h
+server.o: source/jrd/common.h
+server.o: source/jrd/dsc.h
+server.o: source/jrd/fil.h
+server.o: source/jrd/gds.h
+server.o: source/jrd/gds_proto.h
+server.o: source/jrd/gdsassert.h
+server.o: source/jrd/ibsetjmp.h
+server.o: source/jrd/isc.h
+server.o: source/jrd/isc_proto.h
+server.o: source/jrd/isc_s_proto.h
+server.o: source/jrd/license.h
+server.o: source/jrd/sch_proto.h
+server.o: source/jrd/thd.h
+server.o: source/jrd/thd_proto.h
+server.o: source/jrd/why_proto.h
+server.o: xdr.h
+spxesr.o: source/jrd/common.h
+spxesr.o: spxesr.c
+spxesr.o: spxwin.h
+spxnet.o: spxnet.c
+spxnet32.o: allr_proto.h
+spxnet32.o: blk.h
+spxnet32.o: proto_proto.h
+spxnet32.o: protocol.h
+spxnet32.o: remot_proto.h
+spxnet32.o: remote.h
+spxnet32.o: remote_def.h
+spxnet32.o: source/interbase/include/iberror.h
+spxnet32.o: source/jrd/common.h
+spxnet32.o: source/jrd/dsc.h
+spxnet32.o: source/jrd/fil.h
+spxnet32.o: source/jrd/gds.h
+spxnet32.o: source/jrd/gds_proto.h
+spxnet32.o: source/jrd/iberr.h
+spxnet32.o: source/jrd/ibsetjmp.h
+spxnet32.o: source/jrd/isc.h
+spxnet32.o: source/jrd/isc_i_proto.h
+spxnet32.o: source/jrd/isc_proto.h
+spxnet32.o: source/jrd/sch_proto.h
+spxnet32.o: source/jrd/thd.h
+spxnet32.o: source/jrd/time.h
+spxnet32.o: spxnet32.c
+spxnet32.o: spxnet32_proto.h
+spxnet32.o: xdr.h
+spxwin.o: allr_proto.h
+spxwin.o: blk.h
+spxwin.o: ntoh_proto.h
+spxwin.o: proto_proto.h
+spxwin.o: protocol.h
+spxwin.o: remot_proto.h
+spxwin.o: remote.h
+spxwin.o: remote_def.h
+spxwin.o: source/interbase/include/iberror.h
+spxwin.o: source/jrd/common.h
+spxwin.o: source/jrd/doserr.h
+spxwin.o: source/jrd/dsc.h
+spxwin.o: source/jrd/fil.h
+spxwin.o: source/jrd/gds.h
+spxwin.o: source/jrd/gds_proto.h
+spxwin.o: source/jrd/iberr.h
+spxwin.o: source/jrd/ibsetjmp.h
+spxwin.o: source/jrd/isc.h
+spxwin.o: source/jrd/isc_i_proto.h
+spxwin.o: source/jrd/isc_proto.h
+spxwin.o: source/jrd/sch_proto.h
+spxwin.o: source/jrd/thd.h
+spxwin.o: source/jrd/time.h
+spxwin.o: spxwin.c
+spxwin.o: spxwin.h
+spxwin.o: xdr.h
+spxwin.o: xdr_proto.h
+srvr_w32.o: allr_proto.h
+srvr_w32.o: blk.h
+srvr_w32.o: cntl_proto.h
+srvr_w32.o: inet_proto.h
+srvr_w32.o: protocol.h
+srvr_w32.o: remote.h
+srvr_w32.o: remote_def.h
+srvr_w32.o: serve_proto.h
+srvr_w32.o: source/jrd/blb.h
+srvr_w32.o: source/jrd/build_no.h
+srvr_w32.o: source/jrd/codes.h
+srvr_w32.o: source/jrd/common.h
+srvr_w32.o: source/jrd/dsc.h
+srvr_w32.o: source/jrd/fil.h
+srvr_w32.o: source/jrd/gds_proto.h
+srvr_w32.o: source/jrd/ibsetjmp.h
+srvr_w32.o: source/jrd/isc.h
+srvr_w32.o: source/jrd/isc_i_proto.h
+srvr_w32.o: source/jrd/isc_proto.h
+srvr_w32.o: source/jrd/isc_s_proto.h
+srvr_w32.o: source/jrd/jrd_proto.h
+srvr_w32.o: source/jrd/license.h
+srvr_w32.o: source/jrd/pwd.h
+srvr_w32.o: source/jrd/sch_proto.h
+srvr_w32.o: source/jrd/svc.h
+srvr_w32.o: source/jrd/svc_proto.h
+srvr_w32.o: source/jrd/svc_undoc.h
+srvr_w32.o: source/jrd/thd.h
+srvr_w32.o: source/jrd/thd_proto.h
+srvr_w32.o: source/utilities/install_nt.h
+srvr_w32.o: srvr_w32.c
+srvr_w32.o: window.rh
+srvr_w32.o: window_proto.h
+srvr_w32.o: wnet_proto.h
+srvr_w32.o: xdr.h
+ucx.o: source/jrd/common.h
+ucx.o: ucx.c
+wfwnp.o: allr_proto.h
+wfwnp.o: blk.h
+wfwnp.o: protocol.h
+wfwnp.o: remote.h
+wfwnp.o: remote_def.h
+wfwnp.o: source/interbase/include/iberror.h
+wfwnp.o: source/jrd/common.h
+wfwnp.o: source/jrd/dsc.h
+wfwnp.o: source/jrd/fil.h
+wfwnp.o: source/jrd/gds_proto.h
+wfwnp.o: source/jrd/ibase.h
+wfwnp.o: source/jrd/ibsetjmp.h
+wfwnp.o: source/jrd/thd.h
+wfwnp.o: wfwnp.c
+wfwnp.o: wfwnp.h
+wfwnp.o: xdr.h
+window.o: property.rh
+window.o: propty_proto.h
+window.o: remote_def.h
+window.o: source/jrd/blb.h
+window.o: source/jrd/build_no.h
+window.o: source/jrd/common.h
+window.o: source/jrd/file_params.h
+window.o: source/jrd/isc.h
+window.o: source/jrd/isc_s_proto.h
+window.o: source/jrd/jrd_proto.h
+window.o: source/jrd/license.h
+window.o: source/jrd/pwd.h
+window.o: source/jrd/svc.h
+window.o: source/jrd/svc_proto.h
+window.o: source/jrd/svc_undoc.h
+window.o: source/jrd/thd.h
+window.o: window.c
+window.o: window.h
+window.o: window.rh
+window.o: window_proto.h
+winmain.o: allr_proto.h
+winmain.o: blk.h
+winmain.o: protocol.h
+winmain.o: remote.h
+winmain.o: remote_def.h
+winmain.o: serve_proto.h
+winmain.o: source/jrd/common.h
+winmain.o: source/jrd/dsc.h
+winmain.o: source/jrd/ibsetjmp.h
+winmain.o: source/jrd/thd.h
+winmain.o: winmain.c
+winmain.o: xdr.h
+winvx.o: in.h
+winvx.o: source/jrd/common.h
+winvx.o: tcptypes.h
+winvx.o: winvx.c
+wnet.o: allr_proto.h
+wnet.o: blk.h
+wnet.o: proto_proto.h
+wnet.o: protocol.h
+wnet.o: remot_proto.h
+wnet.o: remote.h
+wnet.o: remote_def.h
+wnet.o: source/interbase/include/iberror.h
+wnet.o: source/jrd/common.h
+wnet.o: source/jrd/dsc.h
+wnet.o: source/jrd/fil.h
+wnet.o: source/jrd/gds.h
+wnet.o: source/jrd/gds_proto.h
+wnet.o: source/jrd/iberr.h
+wnet.o: source/jrd/ibsetjmp.h
+wnet.o: source/jrd/isc.h
+wnet.o: source/jrd/isc_f_proto.h
+wnet.o: source/jrd/isc_proto.h
+wnet.o: source/jrd/sch_proto.h
+wnet.o: source/jrd/thd.h
+wnet.o: source/utilities/install_nt.h
+wnet.o: wnet.c
+wnet.o: wnet_proto.h
+wnet.o: xdr.h
+xdr.o: allr_proto.h
+xdr.o: blk.h
+xdr.o: proto_proto.h
+xdr.o: protocol.h
+xdr.o: remote.h
+xdr.o: remote_def.h
+xdr.o: source/jrd/common.h
+xdr.o: source/jrd/dsc.h
+xdr.o: source/jrd/fil.h
+xdr.o: source/jrd/gds_proto.h
+xdr.o: source/jrd/ibsetjmp.h
+xdr.o: source/jrd/thd.h
+xdr.o: xdr.c
+xdr.o: xdr.h
+xdr.o: xdr_proto.h
+xnet.o: xnet.c
+allr.bin: allr.c
+allr.bin: allr_proto.h
+allr.bin: blk.h
+allr.bin: protocol.h
+allr.bin: remot_proto.h
+allr.bin: remote.h
+allr.bin: remote_def.h
+allr.bin: source/jrd/codes.h
+allr.bin: source/jrd/common.h
+allr.bin: source/jrd/dsc.h
+allr.bin: source/jrd/fil.h
+allr.bin: source/jrd/gds_proto.h
+allr.bin: source/jrd/ibsetjmp.h
+allr.bin: source/jrd/isc.h
+allr.bin: source/jrd/thd.h
+allr.bin: source/jrd/thd_proto.h
+allr.bin: xdr.h
+ambx.bin: allr_proto.h
+ambx.bin: ambx.c
+ambx.bin: ambx_proto.h
+ambx.bin: blk.h
+ambx.bin: protocol.h
+ambx.bin: remot_proto.h
+ambx.bin: remote.h
+ambx.bin: remote_def.h
+ambx.bin: source/interbase/include/iberror.h
+ambx.bin: source/jrd/common.h
+ambx.bin: source/jrd/dsc.h
+ambx.bin: source/jrd/fil.h
+ambx.bin: source/jrd/gds.h
+ambx.bin: source/jrd/gds_proto.h
+ambx.bin: source/jrd/ibsetjmp.h
+ambx.bin: source/jrd/isc.h
+ambx.bin: source/jrd/isc_proto.h
+ambx.bin: source/jrd/thd.h
+ambx.bin: xdr.h
+ambx_server.bin: allr_proto.h
+ambx_server.bin: ambx_proto.h
+ambx_server.bin: ambx_server.c
+ambx_server.bin: blk.h
+ambx_server.bin: protocol.h
+ambx_server.bin: remote.h
+ambx_server.bin: remote_def.h
+ambx_server.bin: serve_proto.h
+ambx_server.bin: source/jrd/build_no.h
+ambx_server.bin: source/jrd/common.h
+ambx_server.bin: source/jrd/dsc.h
+ambx_server.bin: source/jrd/ibsetjmp.h
+ambx_server.bin: source/jrd/license.h
+ambx_server.bin: source/jrd/thd.h
+ambx_server.bin: xdr.h
+chop.bin: chop.c
+chop.bin: source/interbase/include/iberror.h
+chop.bin: source/jrd/common.h
+chop.bin: source/jrd/ibase.h
+chuser.bin: chuser.c
+chuser.bin: source/jrd/common.h
+cntl.bin: allr_proto.h
+cntl.bin: blk.h
+cntl.bin: cntl.c
+cntl.bin: cntl_proto.h
+cntl.bin: protocol.h
+cntl.bin: remote.h
+cntl.bin: remote_def.h
+cntl.bin: source/jrd/common.h
+cntl.bin: source/jrd/dsc.h
+cntl.bin: source/jrd/ibsetjmp.h
+cntl.bin: source/jrd/isc.h
+cntl.bin: source/jrd/isc_proto.h
+cntl.bin: source/jrd/sch_proto.h
+cntl.bin: source/jrd/thd.h
+cntl.bin: source/jrd/thd_proto.h
+cntl.bin: xdr.h
+decnet.bin: allr_proto.h
+decnet.bin: blk.h
+decnet.bin: decne_proto.h
+decnet.bin: decnet.c
+decnet.bin: protocol.h
+decnet.bin: remot_proto.h
+decnet.bin: remote.h
+decnet.bin: remote_def.h
+decnet.bin: source/interbase/include/iberror.h
+decnet.bin: source/jrd/common.h
+decnet.bin: source/jrd/dsc.h
+decnet.bin: source/jrd/gds.h
+decnet.bin: source/jrd/ibsetjmp.h
+decnet.bin: source/jrd/isc.h
+decnet.bin: source/jrd/isc_proto.h
+decnet.bin: source/jrd/sch_proto.h
+decnet.bin: source/jrd/thd.h
+decnet.bin: xdr.h
+decnet_server.bin: allr_proto.h
+decnet_server.bin: blk.h
+decnet_server.bin: decne_proto.h
+decnet_server.bin: decnet_server.c
+decnet_server.bin: protocol.h
+decnet_server.bin: remote.h
+decnet_server.bin: remote_def.h
+decnet_server.bin: serve_proto.h
+decnet_server.bin: source/jrd/build_no.h
+decnet_server.bin: source/jrd/common.h
+decnet_server.bin: source/jrd/dsc.h
+decnet_server.bin: source/jrd/fil.h
+decnet_server.bin: source/jrd/gds_proto.h
+decnet_server.bin: source/jrd/ibsetjmp.h
+decnet_server.bin: source/jrd/license.h
+decnet_server.bin: source/jrd/thd.h
+decnet_server.bin: xdr.h
+divorce.bin: divorce.c
+divorce.bin: source/jrd/common.h
+dllshell.bin: dllshell.c
+dllshell.bin: source/jrd/common.h
+dllshell.bin: source/jrd/fil.h
+dllshell.bin: source/jrd/gds_proto.h
+dllshell.bin: source/jrd/thd.h
+dnet.bin: allr_proto.h
+dnet.bin: blk.h
+dnet.bin: dnet.c
+dnet.bin: dnet_proto.h
+dnet.bin: protocol.h
+dnet.bin: remot_proto.h
+dnet.bin: remote.h
+dnet.bin: remote_def.h
+dnet.bin: source/interbase/include/iberror.h
+dnet.bin: source/jrd/common.h
+dnet.bin: source/jrd/dsc.h
+dnet.bin: source/jrd/gds.h
+dnet.bin: source/jrd/ibsetjmp.h
+dnet.bin: source/jrd/isc.h
+dnet.bin: source/jrd/isc_proto.h
+dnet.bin: source/jrd/thd.h
+dnet.bin: xdr.h
+dnet_server.bin: allr_proto.h
+dnet_server.bin: blk.h
+dnet_server.bin: dnet_proto.h
+dnet_server.bin: dnet_server.c
+dnet_server.bin: protocol.h
+dnet_server.bin: remote.h
+dnet_server.bin: remote_def.h
+dnet_server.bin: serve_proto.h
+dnet_server.bin: source/jrd/build_no.h
+dnet_server.bin: source/jrd/common.h
+dnet_server.bin: source/jrd/dsc.h
+dnet_server.bin: source/jrd/fil.h
+dnet_server.bin: source/jrd/gds_proto.h
+dnet_server.bin: source/jrd/ibsetjmp.h
+dnet_server.bin: source/jrd/license.h
+dnet_server.bin: source/jrd/thd.h
+dnet_server.bin: xdr.h
+faux.bin: faux.c
+ibconfig.bin: ibconfig.c
+ibconfig.bin: ibconfig.h
+ibconfig.bin: ibsvrhlp.h
+ibconfig.bin: property.rh
+ibconfig.bin: source/interbase/include/iberror.h
+ibconfig.bin: source/jrd/common.h
+ibconfig.bin: source/jrd/file_params.h
+ibconfig.bin: source/jrd/ibase.h
+ibconfig.bin: source/jrd/isc.h
+ibconfig.bin: source/jrd/svc_proto.h
+ibconfig.bin: source/jrd/svc_undoc.h
+ibconfig.bin: source/jrd/thd.h
+ibconfig.bin: window_proto.h
+inet.bin: allr_proto.h
+inet.bin: blk.h
+inet.bin: inet.c
+inet.bin: inet_proto.h
+inet.bin: proto_proto.h
+inet.bin: protocol.h
+inet.bin: remot_proto.h
+inet.bin: remote.h
+inet.bin: remote_def.h
+inet.bin: source/interbase/include/iberror.h
+inet.bin: source/jrd/common.h
+inet.bin: source/jrd/dsc.h
+inet.bin: source/jrd/fil.h
+inet.bin: source/jrd/file_params.h
+inet.bin: source/jrd/gds.h
+inet.bin: source/jrd/gds_proto.h
+inet.bin: source/jrd/iberr.h
+inet.bin: source/jrd/ibsetjmp.h
+inet.bin: source/jrd/isc.h
+inet.bin: source/jrd/isc_i_proto.h
+inet.bin: source/jrd/isc_proto.h
+inet.bin: source/jrd/sch_proto.h
+inet.bin: source/jrd/thd.h
+inet.bin: source/jrd/time.h
+inet.bin: xdr.h
+inet_server.bin: allr_proto.h
+inet_server.bin: blk.h
+inet_server.bin: inet_proto.h
+inet_server.bin: inet_server.c
+inet_server.bin: protocol.h
+inet_server.bin: remote.h
+inet_server.bin: remote_def.h
+inet_server.bin: serve_proto.h
+inet_server.bin: source/jrd/build_no.h
+inet_server.bin: source/jrd/common.h
+inet_server.bin: source/jrd/dsc.h
+inet_server.bin: source/jrd/fil.h
+inet_server.bin: source/jrd/file_params.h
+inet_server.bin: source/jrd/gds_proto.h
+inet_server.bin: source/jrd/ibsetjmp.h
+inet_server.bin: source/jrd/isc.h
+inet_server.bin: source/jrd/license.h
+inet_server.bin: source/jrd/sch_proto.h
+inet_server.bin: source/jrd/thd.h
+inet_server.bin: xdr.h
+interface.bin: allr_proto.h
+interface.bin: blk.h
+interface.bin: inet_proto.h
+interface.bin: inter_proto.h
+interface.bin: interface.c
+interface.bin: merge_proto.h
+interface.bin: parse_proto.h
+interface.bin: proto_proto.h
+interface.bin: protocol.h
+interface.bin: remot_proto.h
+interface.bin: remote.h
+interface.bin: remote_def.h
+interface.bin: source/interbase/include/iberror.h
+interface.bin: source/jrd/build_no.h
+interface.bin: source/jrd/common.h
+interface.bin: source/jrd/cvt_proto.h
+interface.bin: source/jrd/dsc.h
+interface.bin: source/jrd/enc_proto.h
+interface.bin: source/jrd/fil.h
+interface.bin: source/jrd/gds.h
+interface.bin: source/jrd/gds_proto.h
+interface.bin: source/jrd/gdsassert.h
+interface.bin: source/jrd/ibsetjmp.h
+interface.bin: source/jrd/isc.h
+interface.bin: source/jrd/isc_f_proto.h
+interface.bin: source/jrd/license.h
+interface.bin: source/jrd/pwd.h
+interface.bin: source/jrd/sch_proto.h
+interface.bin: source/jrd/sdl.h
+interface.bin: source/jrd/sdl_proto.h
+interface.bin: source/jrd/thd.h
+interface.bin: source/jrd/thd_proto.h
+interface.bin: xdr.h
+ipc.bin: allr_proto.h
+ipc.bin: blk.h
+ipc.bin: ipc.c
+ipc.bin: ipc.h
+ipc.bin: ipc_proto.h
+ipc.bin: protocol.h
+ipc.bin: remot_proto.h
+ipc.bin: remote.h
+ipc.bin: remote_def.h
+ipc.bin: source/interbase/include/iberror.h
+ipc.bin: source/jrd/common.h
+ipc.bin: source/jrd/dsc.h
+ipc.bin: source/jrd/fil.h
+ipc.bin: source/jrd/gds.h
+ipc.bin: source/jrd/gds_proto.h
+ipc.bin: source/jrd/ibsetjmp.h
+ipc.bin: source/jrd/isc.h
+ipc.bin: source/jrd/isc_proto.h
+ipc.bin: source/jrd/mpexl.h
+ipc.bin: source/jrd/thd.h
+ipc.bin: xdr.h
+ipc_server.bin: allr_proto.h
+ipc_server.bin: blk.h
+ipc_server.bin: ipc.h
+ipc_server.bin: ipc_proto.h
+ipc_server.bin: ipc_server.c
+ipc_server.bin: protocol.h
+ipc_server.bin: remote.h
+ipc_server.bin: remote_def.h
+ipc_server.bin: serve_proto.h
+ipc_server.bin: source/jrd/build_no.h
+ipc_server.bin: source/jrd/common.h
+ipc_server.bin: source/jrd/dsc.h
+ipc_server.bin: source/jrd/fil.h
+ipc_server.bin: source/jrd/gds_proto.h
+ipc_server.bin: source/jrd/ibsetjmp.h
+ipc_server.bin: source/jrd/license.h
+ipc_server.bin: source/jrd/mpexl.h
+ipc_server.bin: source/jrd/thd.h
+ipc_server.bin: xdr.h
+mapper.bin: mapper.c
+merge.bin: allr_proto.h
+merge.bin: blk.h
+merge.bin: merge.c
+merge.bin: merge_proto.h
+merge.bin: protocol.h
+merge.bin: remote.h
+merge.bin: remote_def.h
+merge.bin: source/interbase/include/iberror.h
+merge.bin: source/jrd/common.h
+merge.bin: source/jrd/dsc.h
+merge.bin: source/jrd/fil.h
+merge.bin: source/jrd/gds.h
+merge.bin: source/jrd/gds_proto.h
+merge.bin: source/jrd/ibsetjmp.h
+merge.bin: source/jrd/thd.h
+merge.bin: xdr.h
+mgr.bin: allr_proto.h
+mgr.bin: ambx_proto.h
+mgr.bin: blk.h
+mgr.bin: mgr.c
+mgr.bin: protocol.h
+mgr.bin: remote.h
+mgr.bin: remote_def.h
+mgr.bin: source/interbase/include/iberror.h
+mgr.bin: source/jrd/build_no.h
+mgr.bin: source/jrd/common.h
+mgr.bin: source/jrd/dsc.h
+mgr.bin: source/jrd/gds.h
+mgr.bin: source/jrd/ibsetjmp.h
+mgr.bin: source/jrd/license.h
+mgr.bin: source/jrd/thd.h
+mgr.bin: xdr.h
+mslan.bin: allr_proto.h
+mslan.bin: blk.h
+mslan.bin: lanentry.h
+mslan.bin: mslan.c
+mslan.bin: mslan_proto.h
+mslan.bin: protocol.h
+mslan.bin: remot_proto.h
+mslan.bin: remote.h
+mslan.bin: remote_def.h
+mslan.bin: source/interbase/include/iberror.h
+mslan.bin: source/jrd/common.h
+mslan.bin: source/jrd/dsc.h
+mslan.bin: source/jrd/flu_proto.h
+mslan.bin: source/jrd/gds.h
+mslan.bin: source/jrd/ibsetjmp.h
+mslan.bin: source/jrd/isc.h
+mslan.bin: source/jrd/isc_f_proto.h
+mslan.bin: source/jrd/isc_proto.h
+mslan.bin: source/jrd/thd.h
+mslan.bin: xdr.h
+mslansrv.bin: allr_proto.h
+mslansrv.bin: blk.h
+mslansrv.bin: lanman.h
+mslansrv.bin: mslan_proto.h
+mslansrv.bin: mslansrv.c
+mslansrv.bin: protocol.h
+mslansrv.bin: remote.h
+mslansrv.bin: remote_def.h
+mslansrv.bin: serve_proto.h
+mslansrv.bin: source/jrd/build_no.h
+mslansrv.bin: source/jrd/common.h
+mslansrv.bin: source/jrd/dsc.h
+mslansrv.bin: source/jrd/fil.h
+mslansrv.bin: source/jrd/gds_proto.h
+mslansrv.bin: source/jrd/ibsetjmp.h
+mslansrv.bin: source/jrd/license.h
+mslansrv.bin: source/jrd/thd.h
+mslansrv.bin: xdr.h
+multivx.bin: multivx.c
+multivx.bin: source/jrd/common.h
+multivx.bin: tcptypes.h
+netwcon.bin: netwcon.c
+nt_server.bin: allr_proto.h
+nt_server.bin: blk.h
+nt_server.bin: cntl_proto.h
+nt_server.bin: inet_proto.h
+nt_server.bin: nt_server.c
+nt_server.bin: protocol.h
+nt_server.bin: remote.h
+nt_server.bin: remote_def.h
+nt_server.bin: serve_proto.h
+nt_server.bin: source/jrd/build_no.h
+nt_server.bin: source/jrd/codes.h
+nt_server.bin: source/jrd/common.h
+nt_server.bin: source/jrd/dsc.h
+nt_server.bin: source/jrd/fil.h
+nt_server.bin: source/jrd/gds_proto.h
+nt_server.bin: source/jrd/ibsetjmp.h
+nt_server.bin: source/jrd/isc.h
+nt_server.bin: source/jrd/license.h
+nt_server.bin: source/jrd/sch_proto.h
+nt_server.bin: source/jrd/thd.h
+nt_server.bin: source/jrd/thd_proto.h
+nt_server.bin: source/utilities/install_nt.h
+nt_server.bin: wnet_proto.h
+nt_server.bin: xdr.h
+ntoh.bin: ntoh.c
+ntoh.bin: source/jrd/common.h
+nwserv.bin: allr_proto.h
+nwserv.bin: blk.h
+nwserv.bin: inet_proto.h
+nwserv.bin: nwserv.c
+nwserv.bin: protocol.h
+nwserv.bin: remote.h
+nwserv.bin: remote_def.h
+nwserv.bin: serve_proto.h
+nwserv.bin: source/jrd/build_no.h
+nwserv.bin: source/jrd/common.h
+nwserv.bin: source/jrd/dsc.h
+nwserv.bin: source/jrd/fil.h
+nwserv.bin: source/jrd/gds_proto.h
+nwserv.bin: source/jrd/ibsetjmp.h
+nwserv.bin: source/jrd/isc.h
+nwserv.bin: source/jrd/isc_s_proto.h
+nwserv.bin: source/jrd/license.h
+nwserv.bin: source/jrd/sch_proto.h
+nwserv.bin: source/jrd/thd.h
+nwserv.bin: spxne_proto.h
+nwserv.bin: xdr.h
+parser.bin: allr_proto.h
+parser.bin: blk.h
+parser.bin: parse_proto.h
+parser.bin: parser.c
+parser.bin: protocol.h
+parser.bin: remote.h
+parser.bin: remote_def.h
+parser.bin: source/interbase/include/iberror.h
+parser.bin: source/jrd/align.h
+parser.bin: source/jrd/common.h
+parser.bin: source/jrd/dsc.h
+parser.bin: source/jrd/gds.h
+parser.bin: source/jrd/gdsassert.h
+parser.bin: source/jrd/ibsetjmp.h
+parser.bin: source/jrd/thd.h
+parser.bin: xdr.h
+property.bin: chop_proto.h
+property.bin: ibconfig.h
+property.bin: ibsvrhlp.h
+property.bin: property.c
+property.bin: property.rh
+property.bin: propty_proto.h
+property.bin: remote_def.h
+property.bin: source/interbase/include/iberror.h
+property.bin: source/jrd/build_no.h
+property.bin: source/jrd/common.h
+property.bin: source/jrd/file_params.h
+property.bin: source/jrd/ibase.h
+property.bin: source/jrd/isc.h
+property.bin: source/jrd/license.h
+property.bin: source/jrd/svc_proto.h
+property.bin: source/jrd/thd.h
+property.bin: window.rh
+property.bin: window_proto.h
+protocol.bin: allr_proto.h
+protocol.bin: blk.h
+protocol.bin: parse_proto.h
+protocol.bin: proto_proto.h
+protocol.bin: protocol.c
+protocol.bin: protocol.h
+protocol.bin: remot_proto.h
+protocol.bin: remote.h
+protocol.bin: remote_def.h
+protocol.bin: source/jrd/codes.h
+protocol.bin: source/jrd/common.h
+protocol.bin: source/jrd/dsc.h
+protocol.bin: source/jrd/fil.h
+protocol.bin: source/jrd/gds_proto.h
+protocol.bin: source/jrd/gdsassert.h
+protocol.bin: source/jrd/ibsetjmp.h
+protocol.bin: source/jrd/sdl.h
+protocol.bin: source/jrd/sdl_proto.h
+protocol.bin: source/jrd/thd.h
+protocol.bin: xdr.h
+remote.bin: allr_proto.h
+remote.bin: blk.h
+remote.bin: proto_proto.h
+remote.bin: protocol.h
+remote.bin: remot_proto.h
+remote.bin: remote.c
+remote.bin: remote.h
+remote.bin: remote_def.h
+remote.bin: source/interbase/include/iberror.h
+remote.bin: source/jrd/common.h
+remote.bin: source/jrd/dsc.h
+remote.bin: source/jrd/fil.h
+remote.bin: source/jrd/file_params.h
+remote.bin: source/jrd/gds.h
+remote.bin: source/jrd/gds_proto.h
+remote.bin: source/jrd/gdsassert.h
+remote.bin: source/jrd/ibsetjmp.h
+remote.bin: source/jrd/isc.h
+remote.bin: source/jrd/thd.h
+remote.bin: xdr.h
+server.bin: allr_proto.h
+server.bin: blk.h
+server.bin: merge_proto.h
+server.bin: parse_proto.h
+server.bin: protocol.h
+server.bin: remot_proto.h
+server.bin: remote.h
+server.bin: remote_def.h
+server.bin: serve_proto.h
+server.bin: server.c
+server.bin: source/interbase/include/iberror.h
+server.bin: source/jrd/build_no.h
+server.bin: source/jrd/common.h
+server.bin: source/jrd/dsc.h
+server.bin: source/jrd/fil.h
+server.bin: source/jrd/gds.h
+server.bin: source/jrd/gds_proto.h
+server.bin: source/jrd/gdsassert.h
+server.bin: source/jrd/ibsetjmp.h
+server.bin: source/jrd/isc.h
+server.bin: source/jrd/isc_proto.h
+server.bin: source/jrd/isc_s_proto.h
+server.bin: source/jrd/license.h
+server.bin: source/jrd/sch_proto.h
+server.bin: source/jrd/thd.h
+server.bin: source/jrd/thd_proto.h
+server.bin: source/jrd/why_proto.h
+server.bin: xdr.h
+spxesr.bin: source/jrd/common.h
+spxesr.bin: spxesr.c
+spxesr.bin: spxwin.h
+spxnet.bin: spxnet.c
+spxnet32.bin: allr_proto.h
+spxnet32.bin: blk.h
+spxnet32.bin: proto_proto.h
+spxnet32.bin: protocol.h
+spxnet32.bin: remot_proto.h
+spxnet32.bin: remote.h
+spxnet32.bin: remote_def.h
+spxnet32.bin: source/interbase/include/iberror.h
+spxnet32.bin: source/jrd/common.h
+spxnet32.bin: source/jrd/dsc.h
+spxnet32.bin: source/jrd/fil.h
+spxnet32.bin: source/jrd/gds.h
+spxnet32.bin: source/jrd/gds_proto.h
+spxnet32.bin: source/jrd/iberr.h
+spxnet32.bin: source/jrd/ibsetjmp.h
+spxnet32.bin: source/jrd/isc.h
+spxnet32.bin: source/jrd/isc_i_proto.h
+spxnet32.bin: source/jrd/isc_proto.h
+spxnet32.bin: source/jrd/sch_proto.h
+spxnet32.bin: source/jrd/thd.h
+spxnet32.bin: source/jrd/time.h
+spxnet32.bin: spxnet32.c
+spxnet32.bin: spxnet32_proto.h
+spxnet32.bin: xdr.h
+spxwin.bin: allr_proto.h
+spxwin.bin: blk.h
+spxwin.bin: ntoh_proto.h
+spxwin.bin: proto_proto.h
+spxwin.bin: protocol.h
+spxwin.bin: remot_proto.h
+spxwin.bin: remote.h
+spxwin.bin: remote_def.h
+spxwin.bin: source/interbase/include/iberror.h
+spxwin.bin: source/jrd/common.h
+spxwin.bin: source/jrd/doserr.h
+spxwin.bin: source/jrd/dsc.h
+spxwin.bin: source/jrd/fil.h
+spxwin.bin: source/jrd/gds.h
+spxwin.bin: source/jrd/gds_proto.h
+spxwin.bin: source/jrd/iberr.h
+spxwin.bin: source/jrd/ibsetjmp.h
+spxwin.bin: source/jrd/isc.h
+spxwin.bin: source/jrd/isc_i_proto.h
+spxwin.bin: source/jrd/isc_proto.h
+spxwin.bin: source/jrd/sch_proto.h
+spxwin.bin: source/jrd/thd.h
+spxwin.bin: source/jrd/time.h
+spxwin.bin: spxwin.c
+spxwin.bin: spxwin.h
+spxwin.bin: xdr.h
+spxwin.bin: xdr_proto.h
+srvr_w32.bin: allr_proto.h
+srvr_w32.bin: blk.h
+srvr_w32.bin: cntl_proto.h
+srvr_w32.bin: inet_proto.h
+srvr_w32.bin: protocol.h
+srvr_w32.bin: remote.h
+srvr_w32.bin: remote_def.h
+srvr_w32.bin: serve_proto.h
+srvr_w32.bin: source/jrd/blb.h
+srvr_w32.bin: source/jrd/build_no.h
+srvr_w32.bin: source/jrd/codes.h
+srvr_w32.bin: source/jrd/common.h
+srvr_w32.bin: source/jrd/dsc.h
+srvr_w32.bin: source/jrd/fil.h
+srvr_w32.bin: source/jrd/gds_proto.h
+srvr_w32.bin: source/jrd/ibsetjmp.h
+srvr_w32.bin: source/jrd/isc.h
+srvr_w32.bin: source/jrd/isc_i_proto.h
+srvr_w32.bin: source/jrd/isc_proto.h
+srvr_w32.bin: source/jrd/isc_s_proto.h
+srvr_w32.bin: source/jrd/jrd_proto.h
+srvr_w32.bin: source/jrd/license.h
+srvr_w32.bin: source/jrd/pwd.h
+srvr_w32.bin: source/jrd/sch_proto.h
+srvr_w32.bin: source/jrd/svc.h
+srvr_w32.bin: source/jrd/svc_proto.h
+srvr_w32.bin: source/jrd/svc_undoc.h
+srvr_w32.bin: source/jrd/thd.h
+srvr_w32.bin: source/jrd/thd_proto.h
+srvr_w32.bin: source/utilities/install_nt.h
+srvr_w32.bin: srvr_w32.c
+srvr_w32.bin: window.rh
+srvr_w32.bin: window_proto.h
+srvr_w32.bin: wnet_proto.h
+srvr_w32.bin: xdr.h
+ucx.bin: source/jrd/common.h
+ucx.bin: ucx.c
+wfwnp.bin: allr_proto.h
+wfwnp.bin: blk.h
+wfwnp.bin: protocol.h
+wfwnp.bin: remote.h
+wfwnp.bin: remote_def.h
+wfwnp.bin: source/interbase/include/iberror.h
+wfwnp.bin: source/jrd/common.h
+wfwnp.bin: source/jrd/dsc.h
+wfwnp.bin: source/jrd/fil.h
+wfwnp.bin: source/jrd/gds_proto.h
+wfwnp.bin: source/jrd/ibase.h
+wfwnp.bin: source/jrd/ibsetjmp.h
+wfwnp.bin: source/jrd/thd.h
+wfwnp.bin: wfwnp.c
+wfwnp.bin: wfwnp.h
+wfwnp.bin: xdr.h
+window.bin: property.rh
+window.bin: propty_proto.h
+window.bin: remote_def.h
+window.bin: source/jrd/blb.h
+window.bin: source/jrd/build_no.h
+window.bin: source/jrd/common.h
+window.bin: source/jrd/file_params.h
+window.bin: source/jrd/isc.h
+window.bin: source/jrd/isc_s_proto.h
+window.bin: source/jrd/jrd_proto.h
+window.bin: source/jrd/license.h
+window.bin: source/jrd/pwd.h
+window.bin: source/jrd/svc.h
+window.bin: source/jrd/svc_proto.h
+window.bin: source/jrd/svc_undoc.h
+window.bin: source/jrd/thd.h
+window.bin: window.c
+window.bin: window.h
+window.bin: window.rh
+window.bin: window_proto.h
+winmain.bin: allr_proto.h
+winmain.bin: blk.h
+winmain.bin: protocol.h
+winmain.bin: remote.h
+winmain.bin: remote_def.h
+winmain.bin: serve_proto.h
+winmain.bin: source/jrd/common.h
+winmain.bin: source/jrd/dsc.h
+winmain.bin: source/jrd/ibsetjmp.h
+winmain.bin: source/jrd/thd.h
+winmain.bin: winmain.c
+winmain.bin: xdr.h
+winvx.bin: in.h
+winvx.bin: source/jrd/common.h
+winvx.bin: tcptypes.h
+winvx.bin: winvx.c
+wnet.bin: allr_proto.h
+wnet.bin: blk.h
+wnet.bin: proto_proto.h
+wnet.bin: protocol.h
+wnet.bin: remot_proto.h
+wnet.bin: remote.h
+wnet.bin: remote_def.h
+wnet.bin: source/interbase/include/iberror.h
+wnet.bin: source/jrd/common.h
+wnet.bin: source/jrd/dsc.h
+wnet.bin: source/jrd/fil.h
+wnet.bin: source/jrd/gds.h
+wnet.bin: source/jrd/gds_proto.h
+wnet.bin: source/jrd/iberr.h
+wnet.bin: source/jrd/ibsetjmp.h
+wnet.bin: source/jrd/isc.h
+wnet.bin: source/jrd/isc_f_proto.h
+wnet.bin: source/jrd/isc_proto.h
+wnet.bin: source/jrd/sch_proto.h
+wnet.bin: source/jrd/thd.h
+wnet.bin: source/utilities/install_nt.h
+wnet.bin: wnet.c
+wnet.bin: wnet_proto.h
+wnet.bin: xdr.h
+xdr.bin: allr_proto.h
+xdr.bin: blk.h
+xdr.bin: proto_proto.h
+xdr.bin: protocol.h
+xdr.bin: remote.h
+xdr.bin: remote_def.h
+xdr.bin: source/jrd/common.h
+xdr.bin: source/jrd/dsc.h
+xdr.bin: source/jrd/fil.h
+xdr.bin: source/jrd/gds_proto.h
+xdr.bin: source/jrd/ibsetjmp.h
+xdr.bin: source/jrd/thd.h
+xdr.bin: xdr.c
+xdr.bin: xdr.h
+xdr.bin: xdr_proto.h
+xnet.bin: xnet.c
diff --git a/src/remote/divorce.cpp b/src/remote/divorce.cpp
new file mode 100644
index 0000000000..bee252588b
--- /dev/null
+++ b/src/remote/divorce.cpp
@@ -0,0 +1,100 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		divorce.c
+ *	DESCRIPTION:	Divorce process from controlling terminal
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef SUPERSERVER
+#define FD_SETSIZE 256
+#endif /* SUPERSERVER */
+
+#include <sys/ioctl.h>
+#include <sys/param.h>
+#include <sys/types.h>
+#ifdef _AIX
+#include <sys/select.h>
+#endif
+#include "../jrd/common.h"
+
+#ifndef NOFILE
+#define NOFILE		20
+#endif
+
+#ifndef NBBY
+#define	NBBY	8
+#endif
+
+#ifndef NFDBITS
+#define NFDBITS		(sizeof(SLONG) * NBBY)
+#ifndef NETWARE_386
+#define	FD_SET(n, p)	((p)->fds_bits[(n)/NFDBITS] |= (1 << ((n) % NFDBITS)))
+#define	FD_CLR(n, p)	((p)->fds_bits[(n)/NFDBITS] &= ~(1 << ((n) % NFDBITS)))
+#define	FD_ISSET(n, p)	((p)->fds_bits[(n)/NFDBITS] & (1 << ((n) % NFDBITS)))
+#define FD_ZERO(p)	bzero((SCHAR *)(p), sizeof(*(p)))
+#endif
+#endif
+
+
+void divorce_terminal( fd_set * mask)
+{
+/**************************************
+ *
+ *	d i v o r c e _ t e r m i n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clean up everything in preparation to become an independent
+ *	process.  Close all files except for marked by the input mask.
+ *
+ **************************************/
+	int s, fid;
+
+/* Close all files other than those explicitly requested to stay open */
+
+	for (fid = 0; fid < NOFILE; fid++)
+		if (!(FD_ISSET(fid, mask)))
+			close(fid);
+
+#ifdef SIGTTOU
+	/* ignore all the teminal related signal if define */
+	signal(SIGTTOU, SIG_IGN);
+	signal(SIGTTIN, SIG_IGN);
+	signal(SIGTSTP, SIG_IGN);
+#endif
+
+
+/* Perform terminal divorce */
+
+	fid = open("/dev/tty", 2);
+
+	if (fid >= 0) {
+#ifdef TIOCNOTTY
+		ioctl(fid, TIOCNOTTY, 0);
+#endif
+		close(fid);
+	}
+
+/* Finally, get out of the process group */
+
+#ifndef NETWARE_386
+	setpgrp(0, 0);
+#endif
+}
diff --git a/src/remote/dllshell.cpp b/src/remote/dllshell.cpp
new file mode 100644
index 0000000000..3ca124a1b4
--- /dev/null
+++ b/src/remote/dllshell.cpp
@@ -0,0 +1,150 @@
+/*
+ *      PROGRAM:        JRD Remote Interface/Server
+ *      MODULE:         dllshell.c
+ *      DESCRIPTION:    Win16 DLL entry and exit functions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include <windows.h>
+#include <winsock.h>
+#include <signal.h>
+#include "../jrd/gds_proto.h"
+
+
+/* The DLL's instance handle.  This is used to create windows later. */
+HINSTANCE hInstance;
+
+/* floating point exception counter */
+
+static int fpe_count;
+
+/* static function prototypes */
+
+static void fpe_handler(int);
+LRESULT FAR PASCAL inet_wndproc(HWND hwnd, UINT message, WPARAM wParam,
+								LPARAM lParam);
+LRESULT FAR PASCAL spxnet_wndproc(HWND hwnd, UINT message, WPARAM wParam,
+								  LPARAM lParam);
+void spx_cleanup(void *arg);
+void wfwnp_cleanup(void *arg);
+void inet_cleanup(void *arg);
+
+// Every DLL has an entry point LibMain and an exit point WEP.
+int FAR PASCAL LibMain(HINSTANCE hInst, WORD wDataSegment,
+					   WORD wHeapSize, LPSTR lpszCmdLine)
+{
+	WNDCLASS wndclass_tcp;
+#ifdef SPX
+	WNDCLASS wndclass_spx;
+#endif
+
+	hInstance = hInst;
+
+	// The startup code for the DLL initializes the local heap (if there is one)
+	// with a call to LocalInit which locks the data segment.
+	if (wHeapSize != 0)
+		UnlockData(0);
+
+	/* Define an invisible window class used for receiving winsock messages */
+	wndclass_tcp.style = CS_HREDRAW;
+	wndclass_tcp.lpfnWndProc = inet_wndproc;
+	wndclass_tcp.cbClsExtra = 0;
+	wndclass_tcp.cbWndExtra = sizeof(void FAR *);
+	wndclass_tcp.hInstance = hInstance;
+	wndclass_tcp.hIcon = NULL;
+	wndclass_tcp.hCursor = NULL;
+	wndclass_tcp.hbrBackground = NULL;
+	wndclass_tcp.lpszMenuName = NULL;
+	wndclass_tcp.lpszClassName = "RemoteMsgClass";
+
+	/* ***CM - Add error handling here! */
+	RegisterClass(&wndclass_tcp);
+
+#ifdef SPX
+	/* Define an invisible window class used for receiving winsock messages */
+	wndclass_spx.style = CS_HREDRAW;
+	wndclass_spx.lpfnWndProc = spxnet_wndproc;
+	wndclass_spx.cbClsExtra = 0;
+	wndclass_spx.cbWndExtra = sizeof(void FAR *);
+	wndclass_spx.hInstance = hInstance;
+	wndclass_spx.hIcon = NULL;
+	wndclass_spx.hCursor = NULL;
+	wndclass_spx.hbrBackground = NULL;
+	wndclass_spx.lpszMenuName = NULL;
+	wndclass_spx.lpszClassName = "RemoteMsgClassSpx";
+
+	/* ***CM - Add error handling here! */
+	RegisterClass(&wndclass_spx);
+#endif /* SPX */
+
+	/* init the floating point exception count and set the handler */
+
+	fpe_count = 0;
+	signal(SIGFPE, fpe_handler);
+
+	return 1;
+}
+
+int FAR PASCAL WEP(int bSystemExit)
+{
+/* 
+** Until the gds__cleanup processing is fixed, at least clean up SPX
+** or Windows will crash when we exit.
+** Same for named pipes under Windows.
+** For TCP/IP we must unload Winsock.dll.
+*/
+	TRACE("Called remote\\dllshell.c WEP()...\n");
+	TRACE("remote\\dllshell.c WEP:  calling spx_cleanup()\n");
+	spx_cleanup(NULL);
+	TRACE("remote\\dllshell.c WEP:  calling wfwnp_cleanup()\n");
+	wfwnp_cleanup(NULL);
+	TRACE("remote\\dllshell.c WEP:  calling inet_cleanup()\n");
+	inet_cleanup(NULL);
+
+	TRACE("Returning from remote\\dllshell.c WEP()...\n");
+	return 1;
+}
+
+HINSTANCE LoadDll(UCHAR * name)
+{
+	HINSTANCE hlib;
+	UINT fuErrorMode;
+
+	fuErrorMode = SetErrorMode(SEM_NOOPENFILEERRORBOX);
+
+	hlib = LoadLibrary(name);
+
+	(void) SetErrorMode(fuErrorMode);
+
+	if (!hlib) {
+		gds__log("Windows error %d while attempting to load %s",
+				 GetLastError(), name);
+		return 0;
+	}
+	else
+		return hlib;
+
+}
+
+static void fpe_handler(int signal_number)
+{
+	signal(SIGFPE, fpe_handler);	/* reset handler */
+	fpe_count++;				/* count the event */
+}
diff --git a/src/remote/dnet.cpp b/src/remote/dnet.cpp
new file mode 100644
index 0000000000..6b584084ca
--- /dev/null
+++ b/src/remote/dnet.cpp
@@ -0,0 +1,1511 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		dnet.c
+ *	DESCRIPTION:	DECnet Communications module for ULTRIX
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <sys/socket.h>
+#include <sys/ioctl.h>
+#include <netdnet/dn.h>
+#include <netdnet/dnetdb.h>
+#include "../jrd/ib_stdio.h"
+#include <signal.h>
+#include "../include/jrd/gds.h"
+#include <errno.h>
+#include <pwd.h>
+#include "../remote/remote.h"
+#include "../remote/dnet_proto.h"
+#include "../remote/remot_proto.h"
+#include "../jrd/isc_proto.h"
+
+#define OBJECT_NUMBER	128
+#define OBJECT_NAME	"#128"
+
+#define MAX_DATA	1450
+#define BUFFER_SIZE	MAX_DATA
+#define MAX_SEQUENCE	256
+
+extern int errno;
+
+static int accept_connection(PORT, P_CNCT *);
+static PORT alloc_port(PORT);
+static PORT aux_connect(PORT, PACKET *, XDR_INT(*)());
+static PORT aux_request(PORT, PACKET *);
+static void cleanup_port(PORT);
+static int check_host(PORT);
+static void disconnect(PORT);
+static XDR_INT dnet_destroy(XDR *);
+static int dnet_error(PORT, TEXT *, int);
+static bool_t dnet_getbytes(XDR *, SCHAR *, int);
+static bool_t dnet_getlong(XDR *, SLONG *);
+static u_int dnet_getpostn(XDR *);
+static void dnet_handler(PORT);
+static caddr_t dnet_inline(XDR *, u_int);
+static bool_t dnet_putbytes(XDR *, SCHAR *, int);
+static bool_t dnet_putlong(XDR *, SLONG *);
+static bool_t dnet_read(XDR *);
+static bool_t dnet_setpostn(XDR *, u_int);
+static bool_t dnet_write(XDR *, bool_t);
+static int packet_receive(PORT, UCHAR *, SSHORT, SSHORT *);
+static int packet_send(PORT, UCHAR *, SSHORT);
+static PORT receive(PORT, PACKET *);
+static int send_full(PORT, PACKET *);
+static int send_partial(PORT, PACKET *);
+static int xdrdnet_create(XDR *, PORT, UCHAR *, USHORT, enum xdr_op);
+static int xdrdnet_endofrecord(XDR *, bool_t);
+
+static xdr_t::xdr_ops dnet_ops = {
+	dnet_getlong,
+	dnet_putlong,
+	dnet_getbytes,
+	dnet_putbytes,
+	dnet_getpostn,
+	dnet_setpostn,
+	dnet_inline,
+	dnet_destroy
+};
+
+static int request_count;
+
+
+PORT DNET_analyze(
+				  UCHAR * file_name,
+				  SSHORT * file_length,
+				  STATUS * status_vector, SSHORT uv_flag)
+{
+/**************************************
+ *
+ *	D N E T _ a n a l y z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine whether the file name has a "external!name".  If so,
+ *	establish an external connection to the node.
+ *
+ *	If a connection is established, return a port block, otherwise
+ *	return NULL.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	PACKET *packet;
+	P_CNCT *connect;
+	P_ATCH *attach;
+	struct passwd *pw;
+	SSHORT uid, length, user_length;
+	UCHAR node_name[ND_MAXNODE + 1 + OB_MAXNAME], *p, *q, user_id[128];
+	STATUS local_status[20];
+	p_cnct::p_cnct_repeat * protocol;
+
+/* Analyze the file name to see if a remote connection is required.  If not,
+   quietly (sic) return. */
+
+/* Pick up node if, if present */
+
+	p = node_name;
+	q = file_name;
+	length = *file_length;
+
+	while (q[0] != ':' || q[1] != ':') {
+		if (--length < 0 || p >= node_name + sizeof(node_name) - 1)
+			return NULL;
+		*p++ = *q++;
+	}
+
+	q += 2;
+	*p = 0;
+	length -= 2;
+	*file_length = length;
+
+	if (length)
+		do
+			*file_name++ = *q++;
+		while (--length);
+
+	*file_name = 0;
+
+/* We need to establish a connection to a remote server.  Allocate the necessary
+   blocks and get ready to go. */
+
+	rdb = (RDB) ALLOC(type_rdb);
+	packet = &rdb->rdb_packet;
+
+/* Pick up some user identification information */
+
+	user_id[0] = CNCT_user;
+	p = user_id + 2;
+	ISC_get_user(p, 0, 0, 0, 0, 0, 0);
+	user_id[1] = user_length = strlen(p);
+	user_length += 2;
+
+	for (; *p; p++)
+		if (*p >= 'A' && *p <= 'Z')
+			*p = *p - 'A' + 'a';
+
+/* Establish connection to server */
+
+	connect = &packet->p_cnct;
+	packet->p_operation = op_connect;
+	connect->p_cnct_operation = op_attach;
+	connect->p_cnct_cversion = CONNECT_VERSION2;
+	connect->p_cnct_client = ARCHITECTURE;
+	connect->p_cnct_file.cstr_length = *file_length;
+	connect->p_cnct_file.cstr_address = file_name;
+
+/* Note: prior to V3.1E a recievers could not in truth handle more
+   then 5 protocol descriptions, so we try them in chunks of 5 or less */
+
+#ifdef SCROLLABLE_CURSORS
+	connect->p_cnct_count = 4;
+#else
+	connect->p_cnct_count = 2;
+#endif
+	connect->p_cnct_user_id.cstr_length = user_length;
+	connect->p_cnct_user_id.cstr_address = user_id;
+
+	protocol = connect->p_cnct_versions;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION8;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = ptype_out_of_band;
+	protocol->p_cnct_weight = 2;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION8;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = ptype_out_of_band;
+	protocol->p_cnct_weight = 3;
+
+#ifdef SCROLLABLE_CURSORS
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_SCROLLABLE_CURSORS;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = ptype_out_of_band;
+	protocol->p_cnct_weight = 4;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_SCROLLABLE_CURSORS;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = ptype_out_of_band;
+	protocol->p_cnct_weight = 5;
+#endif
+
+/* If we can't talk to a server, punt.  Let somebody else generate
+   an error. */
+
+	if (!(port = DNET_connect(node_name, packet, status_vector, FALSE))) {
+		ALLR_release(rdb);
+		return NULL;
+	}
+
+/* Get response packet from server. */
+
+	rdb->rdb_port = port;
+	port->port_context = rdb;
+	port->receive(packet);
+
+	if (packet->p_operation == op_reject) {
+		disconnect(port);
+		packet->p_operation = op_connect;
+		connect->p_cnct_operation = op_attach;
+		connect->p_cnct_cversion = CONNECT_VERSION2;
+		connect->p_cnct_client = ARCHITECTURE;
+		connect->p_cnct_file.cstr_length = *file_length;
+		connect->p_cnct_file.cstr_address = file_name;
+
+		/* try again with next set of known protocols */
+
+		connect->p_cnct_count = 4;
+		connect->p_cnct_user_id.cstr_length = user_length;
+		connect->p_cnct_user_id.cstr_address = user_id;
+
+		protocol = connect->p_cnct_versions;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION6;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_out_of_band;
+		protocol->p_cnct_weight = 2;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION6;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_out_of_band;
+		protocol->p_cnct_weight = 3;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION7;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_out_of_band;
+		protocol->p_cnct_weight = 4;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION7;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_out_of_band;
+		protocol->p_cnct_weight = 5;
+
+		if (!(port = DNET_connect(node_name, packet, status_vector, FALSE))) {
+			ALLR_release(rdb);
+			return NULL;
+		}
+
+		/* Get response packet from server. */
+
+		rdb->rdb_port = port;
+		port->port_context = rdb;
+		port->receive(packet);
+	}
+
+	if (packet->p_operation == op_reject) {
+		disconnect(port);
+		packet->p_operation = op_connect;
+		connect->p_cnct_operation = op_attach;
+		connect->p_cnct_cversion = CONNECT_VERSION2;
+		connect->p_cnct_client = ARCHITECTURE;
+		connect->p_cnct_file.cstr_length = *file_length;
+		connect->p_cnct_file.cstr_address = file_name;
+
+		/* try again with next set of known protocols */
+
+		connect->p_cnct_count = 4;
+		connect->p_cnct_user_id.cstr_length = user_length;
+		connect->p_cnct_user_id.cstr_address = user_id;
+
+		protocol = connect->p_cnct_versions;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION3;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 2;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION3;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 3;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION4;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 4;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION4;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 5;
+
+		if (!(port = DNET_connect(node_name, packet, status_vector, FALSE))) {
+			ALLR_release(rdb);
+			return NULL;
+		}
+
+		/* Get response packet from server. */
+
+		rdb->rdb_port = port;
+		port->port_context = rdb;
+		port->receive(packet);
+	}
+
+	if (packet->p_operation != op_accept) {
+		ib_fprintf(ib_stderr, "remote server refused connection\n");
+		return NULL;
+	}
+
+	port->port_protocol = packet->p_acpt.p_acpt_version;
+
+	if (packet->p_acpt.p_acpt_architecture == ARCHITECTURE)
+		port->port_flags |= PORT_symmetric;
+
+	if (packet->p_acpt.p_acpt_type == ptype_rpc)
+		port->port_flags |= PORT_rpc;
+
+	if (packet->p_acpt.p_acpt_type != ptype_out_of_band)
+		port->port_flags |= PORT_no_oob;
+
+	return port;
+}
+
+
+PORT DNET_connect(UCHAR * name,
+				  PACKET * packet, STATUS * status_vector, int flag)
+{
+/**************************************
+ *
+ *	D N E T _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish half of a communication link.  If a connect packet is given,
+ *	the connection is on behalf of a remote interface.  Other the connect
+ *	is is for a server process.
+ *
+ **************************************/
+	XDR xdr;
+	int n, l, object_number;
+	PORT port;
+	struct sockaddr_dn address;
+	struct nodeent *node;
+	TEXT *p, *object_name, node_name[ND_MAXNODE + 1 + OB_MAXNAME];
+
+/* If given a debug protocol, use it */
+
+	if (name) {
+		strcpy(node_name, name);
+		for (p = node_name; *p;)
+			if (*p++ == '/') {
+				p[-1] = 0;
+				name = (UCHAR *) node_name;
+				break;
+			}
+		object_name = (*p) ? p : OBJECT_NAME;
+	}
+
+/* Allocate a port block */
+
+	port = alloc_port(NULL);
+	port->port_status_vector = status_vector;
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+
+	if (name && *name) {
+		if (port->port_connection)
+			ALLR_free(port->port_connection);
+		port->port_connection = REMOTE_make_string(name);
+	}
+	else
+		name = (UCHAR *) port->port_host->str_data;
+
+/* Client and server connections diverge here */
+
+	if (packet) {
+		port->port_handle = dnet_conn(name, object_name, SOCK_SEQPACKET,
+									  NULL, NULL, NULL, NULL);
+		if (port->port_handle == -1) {
+			dnet_error(port, "dnet_conn", errno);
+			return NULL;
+		}
+		send_full(port, packet);
+		return port;
+	}
+
+/* Server stuff */
+
+	port->port_handle = socket(AF_DECnet, SOCK_STREAM, 0);
+	if (port->port_handle == -1) {
+		dnet_error(port, "socket", errno);
+		return NULL;
+	}
+
+	node = getnodebyname(name);
+	if (!node) {
+		dnet_error(port, "getnodebyname", errno);
+		return NULL;
+	}
+
+	bzero((SCHAR *) & address, sizeof(address));
+	bcopy(node->n_addr, address.sdn_add.a_addr, node->n_length);
+	address.sdn_add.a_len = node->n_length;
+	address.sdn_family = node->n_addrtype;
+	address.sdn_objnum = object_number;
+	strcpy(address.sdn_objname, object_name);
+	address.sdn_objnamel = strlen(address.sdn_objname);
+
+	if (bind(port->port_handle, &address, sizeof(address)) < 0) {
+		dnet_error(port, "bind", errno);
+		return NULL;
+	}
+
+	if (listen(port->port_handle, 2) < 0) {
+		dnet_error(port, "listen", errno);
+		return NULL;
+	}
+
+/* We're a server, so wait for a host to show up */
+
+	while (TRUE) {
+		l = sizeof(address);
+		n = accept(port->port_handle, &address, &l);
+		if (n == -1) {
+			dnet_error(port, "accept", errno);
+			return NULL;
+		}
+
+		if (flag || !fork()) {
+			if (port->port_handle != (HANDLE) - 1)
+				close(port->port_handle);
+			port->port_handle = n;
+			port->port_server_flags = TRUE;
+			return port;
+		}
+		close(n);
+	}
+}
+
+
+PORT DNET_server(int socket)
+{
+/**************************************
+ *
+ *	D N E T _ s e r v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We have been spawned by a master server with a connection
+ *	established.  Set up port block with the appropriate socket.
+ *
+ **************************************/
+	PORT port;
+
+	port = alloc_port(NULL);
+	port->port_server_flags |= SRVR_server;
+	port->port_handle = socket;
+
+	return port;
+}
+
+
+static int accept_connection( PORT port, P_CNCT * connect)
+{
+/**************************************
+ *
+ *	a c c e p t _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept an incoming request for connection.  This is purely a lower
+ *	level handshaking function, and does not constitute the server
+ *	response for protocol selection.
+ *
+ **************************************/
+	UCHAR name[32], password[32], *id, *end, *p, *q;
+	SLONG length;
+	struct passwd *passwd;
+
+/* Default account to "guest" */
+
+	strcpy(name, "guest");
+	password[0] = 0;
+
+/* Pick up account and password, if given */
+
+	id = connect->p_cnct_user_id.cstr_address;
+	end = id + connect->p_cnct_user_id.cstr_length;
+
+	while (id < end)
+		switch (*id++) {
+		case CNCT_user:
+			p = name;
+			if (length = *id++)
+				do
+					*p++ = *id++;
+				while (--length);
+			*p = 0;
+			break;
+
+		case CNCT_passwd:
+			p = password;
+			if (length = *id++)
+				do
+					*p++ = *id++;
+				while (--length);
+			*p = 0;
+			break;
+
+		default:
+			p += *p + 1;
+		}
+
+/* See if user exists.  If not, reject connection */
+
+	passwd = getpwnam(name);
+	if (!check_host(port))
+		return FALSE;
+
+/* Change effective user id and default directory */
+
+	setreuid(-1, passwd->pw_uid);
+	chdir(passwd->pw_dir);
+
+	return TRUE;
+}
+
+
+static PORT alloc_port( PORT parent)
+{
+/**************************************
+ *
+ *	a l l o c _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a port block, link it in to parent (if there is a parent),
+ *	and initialize input and output XDR streams.
+ *
+ **************************************/
+	SCHAR buffer[256], *p;
+	UCHAR *message;
+	PORT port;
+
+	port = (PORT) ALLOCV(type_port, BUFFER_SIZE * 2);
+	port->port_type = port_decnet;
+	port->port_state = state_pending;
+	port->port_version = REMOTE_make_string("DECnet");
+
+/* Init file descriptors so we can tell when they are used */
+
+	port->port_handle = (HANDLE) - 1;
+	port->port_channel = (int) -1;
+
+	if (!(p = getnodename()))
+		p = "?";
+	port->port_host = REMOTE_make_string(p);
+	port->port_connection = REMOTE_make_string(p);
+	sprintf(buffer, "DECnet (%s)", port->port_host->str_data);
+	if (port->port_version)
+		ALLR_free(port->port_version);
+	port->port_version = REMOTE_make_string(buffer);
+
+	if (parent) {
+		port->port_parent = parent;
+		port->port_next = parent->port_clients;
+		parent->port_clients = port;
+		port->port_handle = parent->port_handle;
+		port->port_server = parent->port_server;
+		port->port_server_flags = parent->port_server_flags;
+	}
+
+	message = port->port_buffer;
+	port->port_accept = accept_connection;
+	port->port_disconnect = disconnect;
+	port->port_receive_packet = receive;
+	port->port_send_packet = send_full;
+	port->port_send_partial = send_partial;
+	port->port_connect = aux_connect;
+	port->port_request = aux_request;
+	port->port_buff_size = BUFFER_SIZE;
+
+	xdrdnet_create(&port->port_send, port,
+				   &port->port_buffer[BUFFER_SIZE], BUFFER_SIZE, XDR_ENCODE);
+
+	xdrdnet_create(&port->port_receive, port, port->port_buffer, 0,
+				   XDR_DECODE);
+
+	return port;
+}
+
+
+static PORT aux_connect(PORT port, PACKET* packet, XDR_INT (*ast)())
+{
+/**************************************
+ *
+ *	a u x _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to establish an alternative connection.  Somebody has already
+ *	done a successfull connect request ("packet" contains the response).
+ *
+ **************************************/
+	P_RESP *response;
+	int n, l, pid;
+	TEXT *p, *end, object_name[OB_MAXNAME];
+	PORT new_port;
+	struct sockaddr_dn address;
+
+/* If this is a server, we're got an auxiliary connection.  Accept it */
+
+	if (port->port_server_flags) {
+		l = sizeof(address);
+		n = accept(port->port_channel, &address, &l);
+		if (n == -1) {
+			dnet_error(port, "accept", errno);
+			if (port->port_channel != (int) -1) {
+				close(port->port_channel);
+				port->port_channel = (int) -1;
+			}
+			return NULL;
+		}
+		if (port->port_channel != (int) -1) {
+			close(port->port_channel);
+			port->port_channel = (int) -1;
+		}
+		port->port_handle = (HANDLE) n;
+		port->port_flags |= PORT_async;
+		return port;
+	}
+
+/* client side */
+
+	response = &packet->p_resp;
+	if (response->p_resp_data.cstr_length > OB_MAXNAME) {
+		dnet_error(port, "dnet_conn", EINVAL);
+		return NULL;
+	}
+	else
+		bcopy(response->p_resp_data.cstr_address, object_name,
+			  response->p_resp_data.cstr_length);
+
+	n =
+		dnet_conn(port->port_connection->str_data, object_name,
+				  SOCK_SEQPACKET, NULL, NULL, NULL, NULL);
+
+	if (n < 0) {
+		dnet_error(port, "dnet_conn", errno);
+		return NULL;
+	}
+
+	new_port = alloc_port(port->port_parent);
+	new_port->port_handle = (HANDLE) n;
+	new_port->port_flags |= PORT_async;
+	new_port->port_flags = port->port_flags & PORT_no_oob;
+
+	if (ast) {
+		pid = getpid();
+		if (ioctl(new_port->port_handle, SIOCSPGRP, &pid) < 0) {
+			disconnect(new_port);
+			dnet_error(port, "ioctl/SIOCSPGRP", errno);
+			return NULL;
+		}
+		ISC_signal(SIGURG, dnet_handler, new_port);
+		new_port->port_ast = ast;
+	}
+
+	port->port_async = new_port;
+	return new_port;
+}
+
+
+static PORT aux_request( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	a u x _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	A remote interface has requested the server prepare an auxiliary 
+ *	connection; the server calls aux_request to set up the connection.
+ *
+ **************************************/
+	PORT new_port;
+	P_RESP *response;
+	int n, pid;
+	struct sockaddr_dn address;
+
+/* Set up new socket */
+
+	if ((n = socket(AF_DECnet, SOCK_STREAM, 0)) < 0) {
+		dnet_error(port, "socket", errno);
+		return NULL;
+	}
+
+	bzero((SCHAR *) & address, sizeof(address));
+	address.sdn_family = AF_DECnet;
+	address.sdn_objnum = 0;
+	pid = getpid();
+	sprintf(address.sdn_objname, "ISC_%X_%d", pid, request_count++);
+	address.sdn_objnamel = strlen(address.sdn_objname);
+
+	if ((bind(n, &address, sizeof(address)) < 0) || (listen(n, 1) < 0)) {
+		close(n);
+		dnet_error(port, "bind", errno);
+		return NULL;
+	}
+
+	new_port = alloc_port(port->port_parent);
+	new_port->port_server_flags = port->port_server_flags;
+	new_port->port_channel = n;
+	new_port->port_flags = port->port_flags & PORT_no_oob;
+	strcpy(new_port->port_buffer, address.sdn_objname);
+
+	response = &packet->p_resp;
+	response->p_resp_data.cstr_address = new_port->port_buffer;
+	response->p_resp_data.cstr_length = strlen(new_port->port_buffer);
+
+	port->port_async = new_port;
+	return new_port;
+}
+
+
+static int check_host( PORT port)
+{
+/**************************************
+ *
+ *	c h e c k _ h o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check the host on the other end of the socket to see it
+ *	it's an equivalent host.
+ *
+ **************************************/
+	IB_FILE *equiv;
+	UCHAR host_name[32];
+	USHORT result;
+	int length;
+	struct sockaddr_dn address;
+	struct nodeent *node;
+
+	return TRUE;
+
+/* comment out remaining code since it is not executed
+length = sizeof (address);
+if (getpeername (port->port_handle, &address, &length) == -1)
+    return FALSE;
+
+node = getnodebyaddr (&address.sdn_add, sizeof (address.sdn_add),
+	address.sdn_family);
+if (!node)
+    return FALSE;
+
+equiv = ib_fopen ("/etc/hosts.equiv", "r");
+if (!equiv)
+    return FALSE;
+
+result = FALSE;
+
+while (ib_fscanf (equiv, "%s", host_name) != -1)
+    if (strcmp (host_name, node->n_name) == 0)
+	{
+	result = TRUE;
+	break;
+	}
+
+ib_fclose (equiv);
+
+return result;
+end unxecuted code*/
+}
+
+
+static void disconnect( PORT port)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break a remote connection.
+ *
+ **************************************/
+	PORT parent, *ptr;
+
+	if (port->port_ast)
+		ISC_signal_cancel(SIGURG, dnet_handler, port);
+
+/* If this is a sub-port, unlink it from it's parent */
+
+	if (parent = port->port_parent) {
+		if (port->port_async) {
+			disconnect(port->port_async);
+			port->port_async = NULL;
+		}
+		for (ptr = &parent->port_clients; *ptr; ptr = &(*ptr)->port_next)
+			if (*ptr == port) {
+				*ptr = port->port_next;
+				if (ptr == &parent->port_clients)
+					parent->port_next = *ptr;
+				break;
+			}
+	}
+	else if (port->port_async) {
+#ifdef MULTI_THREAD
+		port->port_async->port_flags |= PORT_disconnect;
+#else
+		disconnect(port->port_async);
+		port->port_async = NULL;
+#endif
+	}
+
+	if (port->port_channel != (int) -1) {
+		close(port->port_channel);
+		port->port_channel = (int) -1;
+	}
+
+	if (port->port_handle != (HANDLE) - 1) {
+		close(port->port_handle);
+		port->port_handle = (HANDLE) - 1;
+	}
+
+	cleanup_port(port);
+}
+
+
+static void cleanup_port( PORT port)
+{
+/**************************************
+ *
+ *      c l e a n u p _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Walk through the port structure freeing
+ *      allocated memory and then free the port.
+ *
+ **************************************/
+
+	if (port->port_version)
+		ALLR_free((UCHAR *) port->port_version);
+
+	if (port->port_connection)
+		ALLR_free((UCHAR *) port->port_connection);
+
+	if (port->port_host)
+		ALLR_free((UCHAR *) port->port_host);
+
+	if (port->port_object_vector)
+		ALLR_free((UCHAR *) port->port_object_vector);
+
+#ifdef DEBUG_XDR_MEMORY
+	if (port->port_packet_vector)
+		ALLR_free((UCHAR *) port->port_packet_vector);
+#endif
+
+	ALLR_release((UCHAR *) port);
+	return;
+}
+
+
+static XDR_INT dnet_destroy( XDR * xdrs)
+{
+/**************************************
+ *
+ *	d n e t _ d e s t r o y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Destroy a stream.  A no-op.
+ *
+ **************************************/
+}
+
+
+static int dnet_error( PORT port, TEXT * operation, int status)
+{
+/**************************************
+ *
+ *	d n e t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An I/O error has occurred.  If a status vector is present,
+ *	generate an error return.  In any case, return NULL, which
+ *	is used to indicate and error.
+ *
+ **************************************/
+	RDB rdb;
+	STATUS *status_vector;
+
+	port->port_flags |= PORT_broken;
+	port->port_state = state_broken;
+
+	if (rdb = port->port_context)
+		status_vector = rdb->rdb_status_vector;
+	else
+		status_vector = port->port_status_vector;
+
+	if (status_vector) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__io_error;
+		*status_vector++ = gds_arg_string;
+		*status_vector++ = (STATUS) operation;
+		*status_vector++ = gds_arg_string;
+		*status_vector++ = (STATUS) "DECnet connection";
+		if (status) {
+			*status_vector++ = gds_arg_unix;
+			*status_vector++ = status;
+		}
+		*status_vector++ = 0;
+	}
+
+	return 0;
+}
+
+
+static bool_t dnet_getbytes( XDR * xdrs, SCHAR * buff, int count)
+{
+/**************************************
+ *
+ *	d n e t _ g e t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a bunch of bytes from a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(buff, xdrs->x_private, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(buff, xdrs->x_private, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!dnet_read(xdrs))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (bytecount && xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*buff++ = *xdrs->x_private++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (!xdrs->x_handy && !dnet_read(xdrs))
+			return FALSE;
+		*buff++ = *xdrs->x_private++;
+		--xdrs->x_handy;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t dnet_getlong( XDR * xdrs, SLONG * lp)
+{
+/**************************************
+ *
+ *	d n e t _ g e t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG l;
+
+	if (!(*xdrs->x_ops->x_getbytes) (xdrs, &l, 4))
+		return FALSE;
+
+	*lp = ntohl(l);
+
+	return TRUE;
+}
+
+
+static u_int dnet_getpostn( XDR * xdrs)
+{
+/**************************************
+ *
+ *	d n e t _ g e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	return xdrs->x_private - xdrs->x_base;
+}
+
+
+static void dnet_handler( PORT port)
+{
+/**************************************
+ *
+ *	d n e t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dnet_handler is the signal handler on receipt of
+ *	a SIGURG indicating out-of-band data.  Since SIGURG
+ *	may be noisy, check to see if any IO is pending on the channel.
+ *	If not, ignore the signal.  If so, call the port specific 
+ *	handler to do something appropriate.
+ *
+ **************************************/
+	int n;
+	UCHAR junk;
+
+/* If there isn't any out of band data, this signal isn't for us */
+
+	if ((n = recv(port->port_handle, &junk, 1, MSG_OOB)) < 0)
+		return;
+
+	(*port->port_ast) (port);
+}
+
+
+static caddr_t dnet_inline( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	d n e t _  i n l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a pointer to somewhere in the buffer.
+ *
+ **************************************/
+
+	if (bytecount > xdrs->x_handy)
+		return FALSE;
+
+	return xdrs->x_base + bytecount;
+}
+
+
+static bool_t dnet_putbytes( XDR * xdrs, SCHAR * buff, int count)
+{
+/**************************************
+ *
+ *	d n e t _ p u t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a bunch of bytes to a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(xdrs->x_private, buff, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(xdrs->x_private, buff, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!dnet_write(xdrs, FALSE))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (bytecount && xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*xdrs->x_private++ = *buff++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (xdrs->x_handy <= 0 && !dnet_write(xdrs, FALSE))
+			return FALSE;
+		--xdrs->x_handy;
+		*xdrs->x_private++ = *buff++;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t dnet_putlong( XDR * xdrs, SLONG * lp)
+{
+/**************************************
+ *
+ *	d n e t _ p u t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG l;
+
+	l = htonl(*lp);
+	return (*xdrs->x_ops->x_putbytes) (xdrs, &l, 4);
+}
+
+
+static bool_t dnet_read( XDR * xdrs)
+{
+/**************************************
+ *
+ *	d n e t _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a buffer full of data.  If we receive a bad packet,
+ *	send the moral equivalent of a NAK and retry.  ACK all
+ *	partial packets.  Don't ACK the last packet -- the next
+ *	message sent will handle this.
+ *
+ **************************************/
+	PORT port;
+	SSHORT length;
+	UCHAR *p, *end;
+
+	port = (PORT) xdrs->x_public;
+	p = (UCHAR *) xdrs->x_base;
+	end = p + BUFFER_SIZE;
+
+/* If buffer is not completely empty, slide down what what's left */
+
+	if (xdrs->x_handy > 0) {
+		memmove(p, xdrs->x_private, xdrs->x_handy);
+		p += xdrs->x_handy;
+	}
+
+/* If an ACK is pending, do an ACK.  The alternative is deadlock. */
+
+/*
+if (port->port_flags & PORT_pend_ack)
+    if (!packet_send (port, NULL, 0))
+	return FALSE;
+*/
+
+	while (TRUE) {
+		length = end - p;
+		if (!packet_receive(port, p, length, &length))
+			return FALSE;
+		if (length >= 0) {
+			p += length;
+			break;
+		}
+		p -= length;
+		if (!packet_send(port, NULL, 0))
+			return FALSE;
+	}
+
+	port->port_flags |= PORT_pend_ack;
+	xdrs->x_handy = p - (UCHAR *) xdrs->x_base;
+	xdrs->x_private = xdrs->x_base;
+
+	return TRUE;
+}
+
+
+static bool_t dnet_setpostn( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	d n e t _ s e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	if (bytecount > xdrs->x_handy)
+		return FALSE;
+
+	xdrs->x_private = xdrs->x_base + bytecount;
+
+	return TRUE;
+}
+
+
+static bool_t dnet_write( XDR * xdrs, bool_t end_flag)
+{
+/**************************************
+ *
+ *	d n e t _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a buffer fulll of data.  If the end_flag isn't set, indicate
+ *	that the buffer is a fragment, and reset the XDR for another buffer
+ *	load.
+ *
+ **************************************/
+	UCHAR aux_buffer[BUFFER_SIZE], *p, *q;
+	UCHAR buffer[BUFFER_SIZE];
+	PORT port;
+	SSHORT l, length, l2;
+
+/* Encode the data portion of the packet */
+
+	port = (PORT) xdrs->x_public;
+	p = (UCHAR *) xdrs->x_base;
+	length = (UCHAR *) xdrs->x_private - p;
+
+/* Send data in manageable hunks.  If a packet is partial, indicate
+   that with a negative length.  A positive length marks the end. */
+
+	p = (UCHAR *) xdrs->x_base;
+
+	while (length) {
+		port->port_misc1 = (port->port_misc1 + 1) % MAX_SEQUENCE;
+		l = MIN(length, MAX_DATA);
+		length -= l;
+		while (TRUE) {
+			if (!packet_send(port, p, (length) ? -l : l))
+				return FALSE;
+			/*
+			   if (packet_receive (port, aux_buffer, sizeof (aux_buffer), &l2))
+			 */
+			break;
+		}
+		p += l;
+	}
+
+	xdrs->x_private = xdrs->x_base;
+	xdrs->x_handy = BUFFER_SIZE;
+
+	return TRUE;
+}
+
+
+static int packet_receive(
+						  PORT port,
+						  UCHAR * buffer,
+						  SSHORT buffer_length, SSHORT * length)
+{
+/**************************************
+ *
+ *	p a c k e t _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a packet and pass on it's goodness.  If it's good,
+ *	return TRUE and the reported length of the packet, and update
+ *	the receive sequence number.  If it's bad, return FALSE.  If it's
+ *	a duplicate message, just ignore it.
+ *
+ **************************************/
+	UCHAR c, aux_buffer[1024], *p;
+	USHORT l, n, checksum;
+
+	do
+		n = read(port->port_handle, buffer, buffer_length);
+	while (n == -1 && SYSCALL_INTERRUPTED(errno));
+
+	if (n == -1)
+		return dnet_error(port, "read", errno);
+
+	if (!n)
+		return dnet_error(port, "read end-of_file", 0);
+
+	*length = n;
+
+	return TRUE;
+}
+
+
+static int packet_send( PORT port, UCHAR * data, SSHORT length)
+{
+/**************************************
+ *
+ *	p a c k e t _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send some data on it's way.  
+ *
+ **************************************/
+	SSHORT checksum, n;
+
+	do
+		n = write(port->port_handle, data, length);
+	while (n == -1 && SYSCALL_INTERRUPTED(errno));
+
+	if (n == -1)
+		return dnet_error(port, "write", errno);
+
+	if ((port->port_flags & PORT_async) && !(port->port_flags & PORT_no_oob))
+		n = send(port->port_handle, data, 1, MSG_OOB);
+
+	if (n == -1)
+		return dnet_error(port, "send/oob", errno);
+
+	port->port_flags &= ~PORT_pend_ack;
+
+	return TRUE;
+}
+
+
+static PORT receive( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message from a port or clients of a port.  If the process
+ *	is a server and a connection request comes in, generate a new port
+ *	block for the client.
+ *
+ **************************************/
+
+	if (!xdr_protocol(&port->port_receive, packet))
+		return NULL;
+
+	return port;
+}
+
+
+static int send_full( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	s e n d _ f u l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+	if (!xdr_protocol(&port->port_send, packet))
+		return FALSE;
+
+	return xdrdnet_endofrecord(&port->port_send, TRUE);
+}
+
+
+static int send_partial( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	s e n d _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+	return xdr_protocol(&port->port_send, packet);
+}
+
+
+
+
+static xdrdnet_create(
+					  XDR * xdrs,
+					  PORT port,
+					  UCHAR * buffer, USHORT length, enum xdr_op x_op)
+{
+/**************************************
+ *
+ *	x d r d n e t _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize an XDR stream for Apollo mailboxes.
+ *
+ **************************************/
+
+	xdrs->x_public = (caddr_t) port;
+	xdrs->x_base = xdrs->x_private = (caddr_t) buffer;
+	xdrs->x_handy = length;
+	xdrs->x_ops = &dnet_ops;
+	xdrs->x_op = x_op;
+
+	return TRUE;
+}
+
+
+static int xdrdnet_endofrecord( XDR * xdrs, bool_t flushnow)
+{
+/**************************************
+ *
+ *	x d r d n e t _ e n d o f r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out the rest of a record.
+ *
+ **************************************/
+
+	return dnet_write(xdrs, flushnow);
+}
diff --git a/src/remote/dnet_proto.h b/src/remote/dnet_proto.h
new file mode 100644
index 0000000000..cd52fb64fa
--- /dev/null
+++ b/src/remote/dnet_proto.h
@@ -0,0 +1,31 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		dnet_proto.h
+ *	DESCRIPTION:	Prototpe header file for dnet.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_DNET_PROTO_H_
+#define _REMOTE_DNET_PROTO_H_
+
+extern PORT	DNET_analyze (UCHAR *, SSHORT *, STATUS *, SSHORT);
+extern PORT	DNET_connect (UCHAR *, struct packet *, STATUS *, int);
+extern PORT	DNET_server (int);
+
+#endif /* _REMOTE_DNET_PROTO_H */ 
diff --git a/src/remote/dnet_server.cpp b/src/remote/dnet_server.cpp
new file mode 100644
index 0000000000..4f167b0fe3
--- /dev/null
+++ b/src/remote/dnet_server.cpp
@@ -0,0 +1,96 @@
+/*
+ *	PROGRAM:	JRD Remote Server
+ *	MODULE:		dnet_server.c
+ *	DESCRIPTION:	DECnet remote server.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/common.h"
+#include "../jrd/license.h"
+#include "../remote/remote.h"
+#include "../remote/dnet_proto.h"
+#include "../remote/serve_proto.h"
+#include "../jrd/gds_proto.h"
+
+
+void main( int argc, char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Run the server with DECnet.
+ *
+ **************************************/
+	PORT port;
+	int debug, flag, standalone;
+	STATUS status_vector[20];
+	TEXT *p, **end, c, protocol[128];
+
+	end = argc + argv;
+	argv++;
+	debug = standalone = flag = FALSE;
+	protocol[0] = 0;
+
+	while (argv < end) {
+		p = *argv++;
+		if (*p++ == '-')
+			while (c = *p++)
+				switch (UPPER(c)) {
+				case 'D':
+					flag |= SRVR_debug;
+					debug = standalone = TRUE;
+					break;
+
+				case 'S':
+					standalone = TRUE;
+					break;
+
+				case 'I':
+					standalone = FALSE;
+					break;
+
+				case 'P':
+					sprintf(protocol, "/%s", *argv++);
+					break;
+
+				case 'Z':
+					ib_printf("Interbase DECnet server version %s\n",
+							  GDS_VERSION);
+					exit(FINI_OK);
+				}
+	}
+
+	if (standalone) {
+		port = DNET_connect(protocol, 0, status_vector, flag);
+		if (!port) {
+			gds__print_status(status_vector);
+			exit(FINI_ERROR);
+		}
+	}
+	else
+		port = DNET_server(1);
+
+	SRVR_main(port, flag);
+
+	exit(FINI_OK);
+}
diff --git a/src/remote/faux.cpp b/src/remote/faux.cpp
new file mode 100644
index 0000000000..dcee9f9ebb
--- /dev/null
+++ b/src/remote/faux.cpp
@@ -0,0 +1,115 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		inet.c
+ *	DESCRIPTION:	TCP/IP stub function substitution
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifdef NETWARE_386
+#include <stddef.h>
+#include <advanced.h>
+#include <string.h>
+
+static int dont_gethostname(char *unused1, int unused2);
+static struct hostent *dont_gethostbyname(char *unused1);
+static struct servent *dont_getservbyname(char *unused1, int unused2);
+
+int (*FAUX_gethostname_var) ();
+struct servent *(*FAUX_getservbyname_var) ();
+struct hostent *(*FAUX_gethostbyname_var) ();
+
+int dont_gethostname( char *unused1, int unused2)
+{
+/**************************************
+ *
+ *	N O T g e t h o s t n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fail a gethostname function.
+ *
+ **************************************/
+	return -1;
+}
+
+struct hostent *dont_gethostbyname(char *unused1)
+{
+/**************************************
+ *
+ *	N O T g e t h o s t b y n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fail the gethostbyname function.
+ *
+ **************************************/
+	return NULL;
+}
+
+struct servent *dont_getservbyname(char *unused1, int unused2)
+{
+/**************************************
+ *
+ *	N O T g e t s e r v b y n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fail a getservbyname function.
+ *
+ **************************************/
+	return NULL;
+}
+
+int FAUX_check(void)
+{
+/**************************************
+ *
+ *	F A U X _ c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine if TCP/IP is loaded.  If TCP/IP is loaded, set up
+ *	the FAUX calls to call directly to the appropriate functions.
+ *      If TCP/IP is *NOT* loaded, point all calls to dummy functions
+ *      and return -1 to indicate the lack of TCP/IP.
+ *
+ **************************************/
+	int MyNLMHandle;
+	unsigned long tcpip_thereP;
+
+	MyNLMHandle = GetNLMHandle();
+	tcpip_thereP = (unsigned long) ImportSymbol(MyNLMHandle, "gethostname");
+
+	if (tcpip_thereP) {
+		FAUX_gethostname_var = ImportSymbol(MyNLMHandle, "gethostname");
+		FAUX_gethostbyname_var = ImportSymbol(MyNLMHandle, "NWgethostbyname");
+		FAUX_getservbyname_var = ImportSymbol(MyNLMHandle, "NWgetservbyname");
+		return (0);
+	}
+	else {
+		FAUX_gethostname_var = &dont_gethostname;
+		FAUX_gethostbyname_var = &dont_gethostbyname;
+		FAUX_getservbyname_var = &dont_getservbyname;
+		return (-1);
+	}
+}
+#endif
diff --git a/src/remote/faux.h b/src/remote/faux.h
new file mode 100644
index 0000000000..f20b0aff98
--- /dev/null
+++ b/src/remote/faux.h
@@ -0,0 +1,33 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		faux.h
+ *	DESCRIPTION:	Replacement TCP/IP function definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+extern int (*FAUX_gethostname_var)();
+#define FAUX_gethostname (int) (*FAUX_gethostname_var)
+
+extern struct servent * (*FAUX_getservbyname_var)();
+#define FAUX_getservbyname(name,protocol) \
+  (struct servent *) (*FAUX_getservbyname_var)( &nwSocketCtx, (name), (protocol))
+
+extern struct hostent * (*FAUX_gethostbyname_var)();
+#define FAUX_gethostbyname(name) \
+  (struct hostent *) (*FAUX_gethostbyname_var)( &nwSocketCtx, (name) )
diff --git a/src/remote/ibconfig.cpp b/src/remote/ibconfig.cpp
new file mode 100644
index 0000000000..6d18e942ae
--- /dev/null
+++ b/src/remote/ibconfig.cpp
@@ -0,0 +1,800 @@
+/*
+ *      PROGRAM:        IB Server and Server Manager
+ *      MODULE:         ibconfig.c
+ *      DESCRIPTION:    IB Configuration implementation for both
+ *                  Server Manager and Server Property sheet
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include <windows.h>
+#include <shellapi.h>
+#include <prsht.h>
+#include <dbt.h>
+
+#define BOOLEAN_DEFINED
+#define MSG_DEFINED
+
+#include "../jrd/common.h"
+#include "../jrd/isc.h"
+#include "../jrd/file_params.h"
+#include "../ipserver/ips.h"
+
+#include "../jrd/svc_undoc.h"
+#include "../jrd/svc_proto.h"
+#include "../jrd/ods.h"			// to get MAX_PAGE_SIZE
+#include "../remote/window_proto.h"
+#include "../ipserver/ipsrv_proto.h"
+
+#include "../remote/ibconfig.h"
+#include "../remote/property.rh"
+
+#include "../jrd/ibase.h"
+
+#include "../remote/ibsvrhlp.h"
+
+#ifdef GUI_TOOLS				// For server manager only
+void ShowErrDlg(int, char *, HWND);
+#endif
+
+// Symbolic constant definitions
+#define PASSWORD_LEN            33	// MAXIMUM PASSWORD LENGTH DEFINITION
+#define TEMP_BUFLEN             33
+#define STATUS_BUFLEN           20
+#define SEND_BUFLEN             32
+#define RESP_BUFLEN             128
+
+#define SPB_BUFLEN              128
+#define ERR_BUFLEN              1024
+#define HDR_BUFLEN              512
+
+static HINSTANCE hAppInstance = NULL;	// Handle to the app. instance
+char szSysDbaPasswd[PASSWORD_LEN];	// Pointer to hold the password
+HBRUSH hIBGrayBrush = NULL;		// Handle to a gray brush
+static BOOL bServerApp = FALSE;	// Flag indicating if Server application
+static char szService[SERVICE_LEN];	// To store the service path
+
+// Window procedure
+LRESULT APIENTRY InterbasePage(HWND, UINT, WPARAM, LPARAM);
+LRESULT APIENTRY OSPage(HWND, UINT, WPARAM, LPARAM);
+
+// Static functions for reading and writing settings
+static BOOL ReadIBSettings(HWND);
+static BOOL WriteIBSettings(HWND);
+static BOOL ReadOSSettings(HWND);
+static BOOL WriteOSSettings(HWND);
+
+static void RefreshIBControls(HWND, BOOL);
+static void RefreshOSControls(HWND, BOOL);
+static BOOL ValidateUser(HWND);
+static void PrintCfgStatus(STATUS *, int, HWND);
+static void FillSysdbaSPB(char *, char *);
+
+// Define an array of dword pairs,
+// where the first of each pair is the control ID,
+// and the second is the context ID for a help topic,
+// which is used in the help file.
+static DWORD aMenuHelpIDs1[] = {
+	IDC_MODRES, ibs_modify,		// This has to be the first entry because
+	// we modify the value of ibs_modify to 
+	// ibs_reset when the button text changes.
+
+	IDC_MINSIZETEXT, ibs_min_process_work_set,
+	IDC_MAXSIZETEXT, ibs_min_process_work_set,
+	IDC_CACHETEXT, ibs_db_cache,
+	IDC_DBPAGES, ibs_db_cache,
+	IDC_MAPSIZE, ibs_client_map_size,
+	IDC_MAPTEXT, ibs_client_map_size,
+	IDC_MINSIZE, ibs_min_process_work_set,
+	IDC_MAXSIZE, ibs_min_process_work_set,
+	IDC_PRIORITYHIGH, ibs_process_priority,
+	IDC_PRIORITYNORM, ibs_process_priority,
+	0, 0
+};
+
+// IB Parameters to get/set
+SLONG lCachePages = 0;
+SLONG lMapSize = 0;
+
+void AddConfigPages(HWND hPropSheet, HINSTANCE hInst)
+{
+/******************************************************************************
+ *
+ *  A d d C o n f i g P a g e s
+ *
+ ******************************************************************************
+ *
+ *  Input:  hPropSheet - Handle to the parent property sheet dialog
+ *          hInst - Handle to the application instance
+ *
+ *  Return: void
+ *
+ *  Description: This function acts as an entry point into the config
+ *               dialogs implementation from the Prop. sheet side. That is,
+ *               the dialogs are added as pages in the property sheet.
+ *****************************************************************************/
+	PROPSHEETPAGE IBPage;
+
+	hIBGrayBrush = CreateSolidBrush(GetSysColor(COLOR_BTNFACE));
+	hAppInstance = hInst;
+	bServerApp = TRUE;
+	szService[0] = '\0';
+	szSysDbaPasswd[0] = '\0';
+
+	IBPage.dwSize = sizeof(PROPSHEETPAGE);
+	IBPage.dwFlags = PSP_USETITLE | PSP_HASHELP;
+	IBPage.hInstance = hInst;
+#ifdef  __BORLANDC__			// Anonymous unions not working in BC
+	IBPage.DUMMYUNIONNAME.pszTemplate = MAKEINTRESOURCE(CONFIG_DLG);
+#else
+	IBPage.pszTemplate = MAKEINTRESOURCE(CONFIG_DLG);
+#endif
+	IBPage.pszTitle = "IB Settings";
+	IBPage.pfnDlgProc = (DLGPROC) InterbasePage;
+	IBPage.pfnCallback = NULL;
+
+	PropSheet_AddPage(hPropSheet, CreatePropertySheetPage(&IBPage));
+}
+
+LRESULT CALLBACK InterbasePage(HWND hDlg, UINT unMsg, WPARAM wParam,
+							   LPARAM lParam)
+{
+/******************************************************************************
+ *
+ *  I n t e r B a s e P a g e
+ *
+ ******************************************************************************
+ *
+ *  Input:  hDlg - Handle to the page dialog
+ *          unMsg - Message ID
+ *          wParam - WPARAM message parameter
+ *          lParam - LPARAM message parameter
+ *
+ *  Return: FALSE if message is not processed
+ *          TRUE if message is processed here
+ *
+ *  Description: This is the window procedure for - the IB Settings page in the
+ *               Server property sheet , or for the IB Settings dialog in the
+ *               Server manager. Contains logic to view and modify the
+ *               the settings. When the user clicks on the modify button for
+ *               the first time, it SYSDBA password is validated.
+ *****************************************************************************/
+	static BOOL bModifyMode = FALSE;
+	static BOOL bDirty = FALSE;
+
+	switch (unMsg) {
+	case WM_INITDIALOG:
+		{
+			if (!ReadIBSettings(hDlg))
+				return FALSE;
+			RefreshIBControls(hDlg, FALSE);
+			bModifyMode = FALSE;
+			bDirty = FALSE;
+		}
+		break;
+	case WM_CTLCOLORDLG:
+	case WM_CTLCOLORSTATIC:
+	case WM_CTLCOLORLISTBOX:
+	case WM_CTLCOLORMSGBOX:
+	case WM_CTLCOLORSCROLLBAR:
+	case WM_CTLCOLORBTN:
+		{
+			OSVERSIONINFO OsVersionInfo;
+
+			OsVersionInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
+			if (GetVersionEx((LPOSVERSIONINFO) & OsVersionInfo) &&
+				OsVersionInfo.dwMajorVersion < 4) {
+				SetBkMode((HDC) wParam, TRANSPARENT);
+				return (LRESULT) hIBGrayBrush;
+			}
+		}
+		break;
+	case WM_HELP:
+		{
+			LPHELPINFO lphi;
+
+			lphi = (LPHELPINFO) lParam;
+			if (lphi->iContextType == HELPINFO_WINDOW)	// must be for a control
+			{
+				WinHelp(static_cast < HWND > (lphi->hItemHandle),
+						"IBSERVER.HLP",
+						HELP_WM_HELP, (DWORD) (LPVOID) aMenuHelpIDs1);
+			}
+			return TRUE;
+		}
+	case WM_CONTEXTMENU:
+		{
+			WinHelp((HWND) wParam,
+					"IBSERVER.HLP",
+					HELP_CONTEXTMENU, (DWORD) (LPVOID) aMenuHelpIDs1);
+			return TRUE;
+		}
+	case WM_COMMAND:
+		switch (LOWORD(wParam)) {
+		case IDC_MODRES:
+			if (bModifyMode)	// User clicked on RESET
+			{
+				bModifyMode = FALSE;
+				bDirty = FALSE;
+				ReadIBSettings(hDlg);
+				RefreshIBControls(hDlg, FALSE);
+				PropSheet_UnChanged(GetParent(hDlg), hDlg);
+				SetFocus(GetDlgItem(hDlg, IDC_MODRES));
+			}
+			else				// User clicked on MODIFY
+			{
+				if (szSysDbaPasswd[0] || ValidateUser(hDlg)) {
+					RefreshIBControls(hDlg, TRUE);
+					bModifyMode = TRUE;
+					bDirty = FALSE;
+					SendDlgItemMessage(hDlg, IDC_DBPAGES, EM_SETSEL,
+									   0, (LPARAM) - 1);
+					SetFocus(GetDlgItem(hDlg, IDC_DBPAGES));
+				}
+			}
+			break;
+		case IDC_MAPSIZE:
+			if (bModifyMode && HIWORD(wParam) == CBN_SELCHANGE) {
+				PropSheet_Changed(GetParent(hDlg), hDlg);
+				bDirty = TRUE;
+			}
+			break;
+		case IDC_DBPAGES:
+			if (bModifyMode && HIWORD(wParam) == EN_UPDATE) {
+				PropSheet_Changed(GetParent(hDlg), hDlg);
+				bDirty = TRUE;
+			}
+			break;
+		}
+		break;
+	case WM_NOTIFY:
+		switch (((LPNMHDR) lParam)->code) {
+		case PSN_KILLACTIVE:	// When the page is about to lose focus
+			{
+				SetWindowLong(hDlg, DWL_MSGRESULT, FALSE);
+				break;
+			}
+		case PSN_SETACTIVE:	// When the page is about to recieve 
+			{					// focus
+				// This modifies the bubble help table to bring up 
+				// the appropriate help topic based on whether the text 
+				// is "Modify..." or "Reset".  It assumes that the first 
+				// entry is the first one.
+				aMenuHelpIDs1[0, 1] = bModifyMode ? ibs_reset : ibs_modify;
+				break;
+			}
+		case PSN_APPLY:		// When 'OK' or 'Apply Now' are clicked
+			if (bDirty)
+				if (WriteIBSettings(hDlg))	// Values written successfully
+				{
+					bModifyMode = FALSE;
+					bDirty = FALSE;
+					ReadIBSettings(hDlg);
+					RefreshIBControls(hDlg, FALSE);
+					SetFocus(GetDlgItem(hDlg, IDC_MODRES));
+				}
+				else			// Error writing the values
+				{
+					SetWindowLong(hDlg, DWL_MSGRESULT, TRUE);
+					return TRUE;
+				}
+			break;
+		case PSN_HELP:
+			HelpCmd(hDlg, hAppInstance, ibsp_IB_Settings_Properties);
+			break;
+		}
+		break;
+	}
+	return FALSE;
+}
+
+BOOL ReadIBSettings(HWND hDlg)
+{
+/******************************************************************************
+ *
+ *  R e a d I B S e t t i n g s
+ *
+ ******************************************************************************
+ *
+ *  Input:  hDlg - Handle to the IB settings page dialog
+ *
+ *  Return: void
+ *
+ *  Description: This method calls the ISC_get_config() function to read the
+ *               current IB settings in the config file and then sets these
+ *               values to the corresponding controls.
+ *****************************************************************************/
+	BOOL bSuccess;
+	char pchTmp[TEMP_BUFLEN];
+	long pdwStatus[STATUS_BUFLEN];
+	isc_svc_handle hService = NULL;
+	char pchRcvBuf[SEND_BUFLEN], pchResBuf[RESP_BUFLEN];
+	char *pchPtr;
+
+	HCURSOR hOldCursor = NULL;
+
+	lCachePages = 0;
+	lMapSize = 0;
+	bSuccess = FALSE;
+
+// Attach to "anonymous" service
+	hOldCursor = SetCursor(LoadCursor(NULL, IDC_WAIT));
+	pchPtr = szService + strlen(szService);
+	strcat(szService, "anonymous");
+	isc_service_attach(pdwStatus, 0, szService, &hService, 0, "");
+
+	*pchPtr = '\0';
+
+	if (pdwStatus[1]) {
+		SetCursor(hOldCursor);
+		PrintCfgStatus(pdwStatus, IDS_CFGATTACH_FAILED, hDlg);
+		SetDlgItemInt(hDlg, IDC_DBPAGES, lCachePages, TRUE);
+		SendDlgItemMessage(hDlg, IDC_MAPSIZE, CB_RESETCONTENT, 0, 0);
+
+		/* To eliminate the flicker while closing the Property Sheet */
+		SetWindowPos(GetParent(hDlg), HWND_DESKTOP,
+					 0, 0, 0, 0, SWP_HIDEWINDOW);
+		/* Close the Property Sheet */
+		SendMessage(GetParent(hDlg), WM_CLOSE, 0, 0);
+
+		return bSuccess;
+	}
+
+	pchRcvBuf[0] = isc_info_svc_get_config;
+
+// Query the service with get_config
+	isc_service_query(pdwStatus, &hService, NULL, 0, NULL, 1, pchRcvBuf,
+					  sizeof(pchResBuf), pchResBuf);
+	if (pdwStatus[1])
+		PrintCfgStatus(pdwStatus, IDS_CFGREAD_FAILED, hDlg);
+	else {
+		char *pchTmp = pchResBuf;
+		short len = 0, chTmp = 0, key;
+		ULONG ulConfigInfo;
+
+		if (*pchTmp++ == isc_info_svc_get_config) {
+			while (key = *pchTmp++) {
+				ulConfigInfo = (ULONG) isc_vax_integer(pchTmp, sizeof(ULONG));
+				pchTmp += sizeof(ULONG);
+				switch (key) {
+				case ISCCFG_IPCMAP_KEY:
+					lMapSize = ulConfigInfo;
+					break;
+				case ISCCFG_DBCACHE_KEY:
+					lCachePages = ulConfigInfo;
+					break;
+				}
+			}
+			bSuccess = TRUE;
+		}
+	}
+
+// Empty the Map Size Combo Box
+	SendDlgItemMessage(hDlg, IDC_MAPSIZE, CB_RESETCONTENT, 0, 0);
+
+// Fill the Map Size Combo Box
+	{
+		char szTmp[8];
+		int temp = 1024;
+		while (temp <= MAX_PAGE_SIZE) {
+			wsprintf(szTmp, "%d", temp);
+			SendDlgItemMessage(hDlg, IDC_MAPSIZE, CB_ADDSTRING, 0,
+							   (LPARAM) szTmp);
+			temp <<= 1;
+		}
+	}
+
+// Select the right Map Size, inserting it if necessary
+	wsprintf(pchTmp, "%d", lMapSize);
+	if (SendDlgItemMessage(hDlg, IDC_MAPSIZE, CB_SELECTSTRING, -1,
+						   (LPARAM) pchTmp) == CB_ERR) {
+		SendDlgItemMessage(hDlg, IDC_MAPSIZE, CB_ADDSTRING, 0,
+						   (LPARAM) pchTmp);
+		SendDlgItemMessage(hDlg, IDC_MAPSIZE, CB_SELECTSTRING, 0,
+						   (LPARAM) pchTmp);
+	}
+
+// Display the proper cache size
+	SetDlgItemInt(hDlg, IDC_DBPAGES, lCachePages, TRUE);
+
+	SetCursor(hOldCursor);
+	isc_service_detach(pdwStatus, &hService);
+
+	if (!bSuccess) {
+		/* To eliminate the flicker while closing the Property Sheet */
+		SetWindowPos(GetParent(hDlg), HWND_DESKTOP,
+					 0, 0, 0, 0, SWP_HIDEWINDOW);
+		/* Close the Property Sheet */
+		SendMessage(GetParent(hDlg), WM_CLOSE, 0, 0);
+	}
+
+	return bSuccess;
+}
+
+void RefreshIBControls(HWND hDlg, BOOL bEnable)
+{
+/******************************************************************************
+ *
+ *  R e f r e s h I B C o n t r o l s
+ *
+ ******************************************************************************
+ *
+ *  Input:  hDlg - Handle to the IB settings page dialog
+ *          bEnable - Flag to indicate an enable/disable
+ *
+ *  Return: void
+ *
+ *  Description: This method enables or disables the page controls.
+ *****************************************************************************/
+	char szButtonName[32];
+
+	EnableWindow(GetDlgItem(hDlg, IDC_MAPSIZE), bEnable);
+	EnableWindow(GetDlgItem(hDlg, IDC_DBPAGES), bEnable);
+
+	LoadString(hAppInstance, bEnable ? IDS_RESETBTN : IDS_MODIFYBTN,
+			   szButtonName, sizeof(szButtonName));
+
+	SendDlgItemMessage(hDlg, IDC_MODRES, WM_SETTEXT, 0,
+					   (LPARAM) szButtonName);
+
+// This modifies the bubble help table to bring up the appropriate help 
+// topic based on whether the text is "Modify..." or "Reset".  It assumes
+// that the first entry is the first one.
+	aMenuHelpIDs1[0, 1] = bEnable ? ibs_reset : ibs_modify;
+
+}
+
+BOOL WriteIBSettings(HWND hDlg)
+{
+/******************************************************************************
+ *
+ *  W r i t e I B S e t t i n g s
+ *
+ ******************************************************************************
+ *
+ *  Input:  hDlg - Handle to the OS settings page dialog
+ *
+ *  Return: void
+ *
+ *  Description: This method calls the ISC_set_config() function to write the
+ *               current OS settings in the config file.
+ *****************************************************************************/
+	long pdwStatus[STATUS_BUFLEN];
+	isc_svc_handle hService = NULL;
+	char pchSendBuf[SEND_BUFLEN];
+	char *pchPtr;
+	short *psLen;
+	char szSpb[SPB_BUFLEN];		// Server parameter block
+	char szResBuf[2];			// Response buffer
+	BOOL bRetFlag = TRUE;
+
+	HCURSOR hOldCursor = NULL;
+
+	lCachePages = GetDlgItemInt(hDlg, IDC_DBPAGES, &bRetFlag, FALSE);
+	if (!bRetFlag || lCachePages < 50) {
+		PrintCfgStatus(NULL, IDS_CFGSETIBERR, hDlg);
+		return FALSE;
+	}
+	lMapSize = GetDlgItemInt(hDlg, IDC_MAPSIZE, &bRetFlag, TRUE);
+	if (!bRetFlag || lMapSize < 1024) {
+		SetFocus(GetDlgItem(hDlg, IDC_MAPSIZE));
+		PrintCfgStatus(NULL, IDS_CFGSETIBERR, hDlg);
+		return FALSE;
+	}
+
+// Encode the SPB for SysDba
+	FillSysdbaSPB(szSpb, szSysDbaPasswd);
+
+// Build the complete name to the service
+	hOldCursor = SetCursor(LoadCursor(NULL, IDC_WAIT));
+	pchPtr = szService + strlen(szService);
+	strcat(szService, "query_server");
+
+// Attach to "query_server" service
+	isc_service_attach(pdwStatus, 0, szService, &hService,
+					   (USHORT) strlen(szSpb), szSpb);
+
+	*pchPtr = '\0';
+
+	if (pdwStatus[1]) {
+		SetCursor(hOldCursor);
+		PrintCfgStatus(pdwStatus, IDS_CFGATTACH_FAILED, hDlg);
+
+		/* To eliminate the flicker while closing the Property Sheet */
+		SetWindowPos(GetParent(hDlg), HWND_DESKTOP,
+					 0, 0, 0, 0, SWP_HIDEWINDOW);
+		/* Close the Property Sheet */
+		SendMessage(GetParent(hDlg), WM_CLOSE, 0, 0);
+
+		return FALSE;
+	}
+
+// Fill in the Send buffer's header
+	pchPtr = pchSendBuf;
+	*pchPtr++ = isc_info_svc_set_config;
+	psLen = (short *) pchPtr;
+	pchPtr += sizeof(USHORT);
+
+// Fill in all the records
+	*pchPtr++ = ISCCFG_IPCMAP_KEY;
+	*pchPtr++ = sizeof(long);
+	*(ULONG *) pchPtr = isc_vax_integer((SCHAR *) & lMapSize, sizeof(long));
+	pchPtr += sizeof(long);
+
+	*pchPtr++ = ISCCFG_DBCACHE_KEY;
+	*pchPtr++ = sizeof(long);
+	*(ULONG *) pchPtr =
+		isc_vax_integer((SCHAR *) & lCachePages, sizeof(long));
+	pchPtr += sizeof(long);
+
+	*psLen = pchPtr - pchSendBuf - sizeof(short) - sizeof(char);
+	*psLen = (short) isc_vax_integer((SCHAR *) psLen, sizeof(short));
+// Query service with set_config
+
+	isc_service_query(pdwStatus, &hService, NULL, 0, NULL,
+					  (USHORT) (pchPtr - pchSendBuf), pchSendBuf,
+					  (USHORT) sizeof(szResBuf), szResBuf);
+	if (pdwStatus[1] || szResBuf[1]) {
+		PrintCfgStatus(pdwStatus[1] ? pdwStatus : NULL, IDS_CFGWRITE_FAILED,
+					   hDlg);
+
+		/* To eliminate the flicker while closing the Property Sheet */
+		SetWindowPos(GetParent(hDlg), HWND_DESKTOP,
+					 0, 0, 0, 0, SWP_HIDEWINDOW);
+		/* Close the Property Sheet */
+		SendMessage(GetParent(hDlg), WM_CLOSE, 0, 0);
+
+		bRetFlag = FALSE;
+	}
+
+	isc_service_detach(pdwStatus, &hService);
+
+	SetCursor(hOldCursor);
+	return bRetFlag;
+}
+
+BOOL ValidateUser(HWND hParentWnd)
+{
+/******************************************************************************
+ *
+ *  V a l i d a t e U s e r
+ *
+ ******************************************************************************
+ *
+ *  Input:  hDlg - Handle to the Parent window
+ *
+ *  Return: TRUE if the user is the system administrator
+ *          FALSE if the user failed the sys. admin validation
+ *
+ *  Description: This method calls the Password dialog to check if the user
+ *               is the system administrator. However, if under server manager
+ *               it just returns a FALSE if not already connected. 
+ *****************************************************************************/
+	BOOL CALLBACK PasswordDlgProc(HWND, UINT, WPARAM, LPARAM);
+
+	if (!bServerApp) {
+		PrintCfgStatus(NULL, IDS_CFGNOT_SYSDBA, hParentWnd);
+		return FALSE;
+	}
+	else {
+		szSysDbaPasswd[0] = '\0';
+		return (DialogBox
+				((HINSTANCE) GetWindowLong(hParentWnd, GWL_HINSTANCE),
+				 MAKEINTRESOURCE(PASSWORD_DLG), hParentWnd,
+				 PasswordDlgProc) > 0);
+	}
+}
+
+BOOL CALLBACK PasswordDlgProc(HWND hDlg, UINT unMsg, WPARAM wParam,
+							  LPARAM lParam)
+{
+/******************************************************************************
+ *
+ *  P a s s w o r d D l g P r o c
+ *
+ ******************************************************************************
+ *
+ *  Input:  hDlg - Handle to the page dialog
+ *          unMsg - Message ID
+ *          wParam - WPARAM message parameter
+ *          lParam - LPARAM message parameter
+ *
+ *  Return: FALSE if message is not processed
+ *          TRUE if message is processed here
+ *
+ *  Description: This is the window procedure for the "Password" dialog box.
+ *****************************************************************************/
+	switch (unMsg) {
+	case WM_CTLCOLORDLG:
+	case WM_CTLCOLORSTATIC:
+	case WM_CTLCOLORLISTBOX:
+	case WM_CTLCOLORMSGBOX:
+	case WM_CTLCOLORSCROLLBAR:
+	case WM_CTLCOLORBTN:
+		{
+			OSVERSIONINFO OsVersionInfo;
+
+			OsVersionInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
+			if (GetVersionEx((LPOSVERSIONINFO) & OsVersionInfo) &&
+				OsVersionInfo.dwMajorVersion < 4) {
+				SetBkMode((HDC) wParam, TRANSPARENT);
+				return (LRESULT) hIBGrayBrush;
+			}
+		}
+		break;
+	case WM_COMMAND:
+		if (wParam == IDOK) {
+			char szPassword[PASSWORD_LEN];
+			long pdwStatus[STATUS_BUFLEN];
+			isc_svc_handle hService = NULL;
+			char szSpb[SPB_BUFLEN];
+			HCURSOR hOldCursor = NULL;
+
+			szPassword[0] = '\0';
+
+			SendDlgItemMessage(hDlg, IDC_DBAPASSWORD, WM_GETTEXT,
+							   PASSWORD_LEN, (LPARAM) szPassword);
+			// Fill the Spb
+			FillSysdbaSPB(szSpb, szPassword);
+
+			// Attach service to check for password validity
+			hOldCursor = SetCursor(LoadCursor(NULL, IDC_WAIT));
+			isc_service_attach(pdwStatus, 0, "query_server",
+							   &hService, (USHORT) strlen(szSpb), szSpb);
+			SetCursor(hOldCursor);
+
+			if (pdwStatus[1]) {
+				szSysDbaPasswd[0] = '\0';
+				PrintCfgStatus(NULL, IDS_CFGBAD_PASSWD, hDlg);
+			}
+			else {
+				isc_service_detach(pdwStatus, &hService);
+				strcpy(szSysDbaPasswd, szPassword);
+				EndDialog(hDlg, 1);
+			}
+
+			SendDlgItemMessage(hDlg, IDC_DBAPASSWORD, EM_SETSEL, 0,
+							   (LPARAM) - 1);
+			SetFocus(GetDlgItem(hDlg, IDC_DBAPASSWORD));
+			return TRUE;
+		}
+		else {
+			if (wParam == IDCANCEL) {
+				EndDialog(hDlg, 0);
+				return TRUE;
+			}
+		}
+		break;
+	case WM_CLOSE:
+		{
+			EndDialog(hDlg, 0);
+			return TRUE;
+		}
+	default:
+		return FALSE;
+	}
+
+	return FALSE;
+}
+
+void PrintCfgStatus(STATUS * status_vector, int nErrCode, HWND hDlg)
+{
+/**************************************
+ *
+ *      P r i n t C f g S t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Print error message. Use isc_interprete
+ *      to allow redirecting output.
+ *
+ **************************************/
+	STATUS *vector;
+	SCHAR szErrStr[ERR_BUFLEN];
+	SCHAR szHdrStr[HDR_BUFLEN];
+
+	szErrStr[0] = '\0';
+
+	if (status_vector) {
+		vector = status_vector;
+		if (isc_interprete(szErrStr, &vector)) {
+			SCHAR *ptr = szErrStr + strlen(szErrStr);;
+
+			*ptr++ = '\r';
+			*ptr++ = '\n';
+			*ptr++ = '-';
+			while (isc_interprete(ptr, &vector)) {
+				ptr += strlen(ptr);
+				*ptr++ = '\r';
+				*ptr++ = '\n';
+				*ptr++ = '-';
+			}
+			*(ptr - 3) = '\0';
+		}
+	}
+
+#ifdef GUI_TOOLS
+	ShowErrDlg(nErrCode, szErrStr[0] ? szErrStr : NULL, hDlg);
+#else
+	if (szErrStr[0]) {
+		strcpy(szHdrStr, "IB Configuration - ");
+		LoadString(hAppInstance, nErrCode, szHdrStr + strlen(szHdrStr),
+				   sizeof(szHdrStr) - strlen(szHdrStr));
+		MessageBox(hDlg, szErrStr, szHdrStr, MB_ICONSTOP | MB_OK);
+	}
+	else {
+		LoadString(hAppInstance, nErrCode, szErrStr, sizeof(szErrStr));
+		MessageBox(hDlg, szErrStr, "IB Configuration", MB_ICONSTOP | MB_OK);
+	}
+#endif
+}
+
+void FillSysdbaSPB(char *szSpb, char *szPasswd)
+{
+/**************************************
+ *
+ *      F i l l S y s d b a S P B
+ *
+ **************************************
+ *
+ * Functional description
+ *      Fill in the SPB buffer for SYSDBA
+ *
+ **************************************/
+	*szSpb++ = isc_spb_version1;
+	*szSpb++ = isc_spb_user_name;
+	*szSpb++ = strlen("SYSDBA");
+	strcpy(szSpb, "SYSDBA");
+	szSpb += strlen(szSpb);
+	*szSpb++ = isc_spb_password;
+	*szSpb++ = strlen(szPasswd);
+	strcpy(szSpb, szPasswd);
+}
+
+void HelpCmd( HWND hWnd, HINSTANCE hInst, WPARAM wId)
+{
+/****************************************************************
+ *                                              
+ *  H e l p C m d
+ *
+/****************************************************************
+ *
+ *  Input:     hWnd     - Handle of dialog box from which help was
+ *                        invoked.
+ *              hInst   - Instance of application.
+ *              nId       - The help message Id.
+ *
+ *  Description:  Invoke the Windows Help facility with context of nId.
+ *      
+ *****************************************************************/
+	HCURSOR hOldCursor;
+	SCHAR szPathFileName[1024 + 256 + 1];
+
+	GetModuleFileName(hInst, szPathFileName, sizeof(szPathFileName));
+
+/* Show hour glass cursor */
+	hOldCursor = SetCursor(LoadCursor(NULL, IDC_WAIT));
+
+	strcpy(strrchr(szPathFileName, '\\') + 1, SERVER_HELP_FILE);
+	WinHelp(hWnd, szPathFileName, HELP_CONTEXT, wId);
+
+/* Restore old cursor */
+	SetCursor(hOldCursor);
+
+	return;
+}
diff --git a/src/remote/ibconfig.h b/src/remote/ibconfig.h
new file mode 100644
index 0000000000..1b2ed51c0c
--- /dev/null
+++ b/src/remote/ibconfig.h
@@ -0,0 +1,36 @@
+/*
+ *	PROGRAM:	REMOTE interface
+ *	MODULE:		ibconfig.h
+ *	DESCRIPTION:	Header for server configuration
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef IBPAGE_H
+#define IBPAGE_H
+
+#define SERVICE_LEN			128	// MAXIMUM SERVICE PATH LENGTH
+#define SERVER_HELP_FILE	"ibserver.hlp"
+
+void AddConfigPages(HWND, HINSTANCE);
+#ifdef __cplusplus
+extern "C"
+#endif
+void IBConfigDlg(HWND, HINSTANCE, char *, char *);
+void HelpCmd(HWND, HINSTANCE, WPARAM);
+#endif
diff --git a/src/remote/ibconfig.rc b/src/remote/ibconfig.rc
new file mode 100644
index 0000000000..3f7d233d1d
--- /dev/null
+++ b/src/remote/ibconfig.rc
@@ -0,0 +1,77 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "property.rh"
+
+CONFIG_DLG DIALOG 6, 15, 204, 183
+STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX
+CAPTION "IB Server Config"
+FONT 8, "MS Sans Serif"
+{
+ LTEXT "&Database Cache (pages):", IDC_CACHETEXT, 22, 84, 90, 12
+ EDITTEXT IDC_DBPAGES, 137, 84, 47, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP
+ LTEXT "&Client map size (bytes):", IDC_MAPTEXT, 22, 107, 77, 12
+ COMBOBOX IDC_MAPSIZE, 126, 106, 58, 40, CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL | WS_VSCROLL | WS_TABSTOP
+ PUSHBUTTON "&Modify...", IDC_MODRES, 133, 132, 51, 13
+ ICON IDI_CAUTION, IDC_CAUTION_ICON, 9, 17, 18, 20
+ LTEXT "The following represent the InterBase Server settings. Changes to these settings can adversely affect server performance and can be adjusted by System Database Administrators only.", IDC_DEFAULT_TEXT, 35, 14, 164, 32
+ GROUPBOX "InterBase Settings", IDC_GROUPBOX1, 9, 63, 195, 100, BS_GROUPBOX
+}
+
+ADVANCED_DLG DIALOG 6, 15, 204, 196
+STYLE DS_MODALFRAME | 0x4L | WS_CHILD | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
+CAPTION "Testing"
+FONT 8, "MS Sans Serif"
+{
+ LTEXT "Mi&n. Process Working Set (kb):", IDC_MINSIZETEXT, 20, 83, 104, 12
+ EDITTEXT IDC_MINSIZE, 136, 83, 47, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP
+ LTEXT "Ma&x. Process Working Set (kb):", IDC_MAXSIZETEXT, 20, 104, 100, 12
+ EDITTEXT IDC_MAXSIZE, 136, 104, 47, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP
+ GROUPBOX "Process Priority Class", IDC_GROUPBOX2, 21, 118, 96, 32, BS_GROUPBOX
+ CONTROL "N&ormal", IDC_PRIORITYNORM, "BUTTON", BS_AUTORADIOBUTTON | WS_TABSTOP, 28, 132, 37, 11
+ CONTROL "&High", IDC_PRIORITYHIGH, "BUTTON", BS_AUTORADIOBUTTON | WS_TABSTOP, 75, 133, 37, 11
+ PUSHBUTTON "&Modify...", IDC_MODRES, 136, 137, 51, 13
+ ICON IDI_CAUTION, IDC_CAUTION_ICON, 9, 17, 18, 20
+ GROUPBOX "Advanced InterBase Settings", IDC_GROUPBOX1, 9, 63, 195, 100, BS_GROUPBOX
+ LTEXT "The following represent the Advanced Server settings. Changes to these settings can adversely affect system performance and can be adjusted by System Database Administrators only.", IDC_DEFAULT_TEXT, 35, 14, 164, 32
+}
+
+IDI_CAUTION ICON "caution.ico"
+
+PASSWORD_DLG DIALOG 113, 73, 133, 59
+STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | DS_3DLOOK
+CAPTION "Enter DBA Password"
+FONT 8, "MS Sans Serif"
+{
+ EDITTEXT IDC_DBAPASSWORD, 15, 12, 104, 12, ES_PASSWORD | WS_BORDER | WS_TABSTOP
+ DEFPUSHBUTTON "OK", IDOK, 12, 38, 50, 14
+ PUSHBUTTON "Cancel", IDCANCEL, 72, 38, 50, 14
+}
+
+STRINGTABLE LOADONCALL MOVEABLE DISCARDABLE
+{
+ IDS_CFGATTACH_FAILED, "An attempt to attach to the InterBase Configuration Service failed.\r\nPlease verify that InterBase is installed correctly."
+ IDS_CFGREAD_FAILED, "Internal InterBase Service error: Get Config Service failed"
+ IDS_CFGWRITE_FAILED, "Internal InterBase Service error: Set Config Service failed"
+ IDS_CFGNOT_SYSDBA, "You must be the System Database Administrator to modify the\r\nserver configuration parameters"
+ IDS_CFGBAD_PASSWD, "Invalid administrator password"
+ IDS_CFGSETOSERR, "The working set must be a positive number with\r\nthe maximum not less than the minimum, or zero\r\nto use the operating system defaults."
+ IDS_CFGSETIBERR, "The database cache must be at least 50 pages,\r\nand the client map must be at least 1024 bytes."
+ IDS_MODIFYBTN, "&Modify..."
+ IDS_RESETBTN, "&Reset"
+}
diff --git a/src/remote/ibsvrhlp.h b/src/remote/ibsvrhlp.h
new file mode 100644
index 0000000000..8c2d0ce8c0
--- /dev/null
+++ b/src/remote/ibsvrhlp.h
@@ -0,0 +1,40 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#define ibsp_Server_Information_Properties 1000
+#define ibsp_IB_Settings_Properties 2000
+#define ibsp_OS_Settings_Properties  3000
+#define ibs_image_path 4000
+#define ibs_version 4005
+#define ibs_num_dbs_attached 4010
+#define ibs_num_dbs 4020
+#define ibs_refresh 4030
+#define ibs_db_cache 4050
+#define ibs_client_map_size 4060
+#define ibs_modify 4070
+#define ibs_reset 4080
+#define ibs_min_process_work_set 4090
+#define ibs_process_priority 5000
+#define ibs_server_icon 5010
+#define ibs_capabilities 5020
+#define ibs_prodname 5030
+
+
+
+
+
diff --git a/src/remote/in.h b/src/remote/in.h
new file mode 100644
index 0000000000..c0d5adf0be
--- /dev/null
+++ b/src/remote/in.h
@@ -0,0 +1,191 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef _REMOTE_IN_H_
+#define _REMOTE_IN_H_
+
+#undef vax
+/* static	char	*sccsid = "@(#)in.h	1.4	(ULTRIX)	1/28/85"; */
+
+/************************************************************************
+ *									*
+ *			Copyright (c) 1984 by				*
+ *		Digital Equipment Corporation, Maynard, MA		*
+ *			All rights reserved.				*
+ *									*
+ *   This software is furnished under a license and may be used and	*
+ *   copied  only  in accordance with the terms of such license and	*
+ *   with the  inclusion  of  the  above  copyright  notice.   This	*
+ *   software  or  any  other copies thereof may not be provided or	*
+ *   otherwise made available to any other person.  No title to and	*
+ *   ownership of the software is hereby transferred.			*
+ *									*
+ *   This software is  derived  from  software  received  from  the	*
+ *   University    of   California,   Berkeley,   and   from   Bell	*
+ *   Laboratories.  Use, duplication, or disclosure is  subject  to	*
+ *   restrictions  under  license  agreements  with  University  of	*
+ *   California and with AT&T.						*
+ *									*
+ *   The information in this software is subject to change  without	*
+ *   notice  and should not be construed as a commitment by Digital	*
+ *   Equipment Corporation.						*
+ *									*
+ *   Digital assumes no responsibility for the use  or  reliability	*
+ *   of its software on equipment which is not supplied by Digital.	*
+ *									*
+ ************************************************************************/
+
+/* ------------------------------------------------------------------------
+ * Modification History: /sys/netinet/in.h
+ *
+ * 23 Oct 84 -- jrs
+ *	Add definitions for subnet routing
+ *	Derived from 4.2BSD, labeled:
+ *		in.h 6.1	83/07/29
+ *
+ * -----------------------------------------------------------------------
+ */
+
+/*
+ * Constants and structures defined by the internet system,
+ * Per RFC 790, September 1981.
+ */
+
+/*
+ * Protocols
+ */
+#define	IPPROTO_IP		0		/* internet protocol */
+#define	IPPROTO_ICMP		1		/* control message protocol */
+#define	IPPROTO_GGP		2		/* gateway^2 (deprecated) */
+#define	IPPROTO_TCP		6		/* tcp */
+#define	IPPROTO_PUP		12		/* pup */
+#define	IPPROTO_UDP		17		/* user datagram protocol */
+#define	IPPROTO_ND		77		/* UNOFFICIAL net disk proto */
+
+#define	IPPROTO_RAW		255		/* raw IP packet */
+#define	IPPROTO_MAX		256
+
+/*
+ * Port/socket numbers: network standard functions
+ */
+#define	IPPORT_ECHO		7
+#define	IPPORT_DISCARD		9
+#define	IPPORT_SYSTAT		11
+#define	IPPORT_DAYTIME		13
+#define	IPPORT_NETSTAT		15
+#define	IPPORT_FTP		21
+#define	IPPORT_TELNET		23
+#define	IPPORT_SMTP		25
+#define	IPPORT_TIMESERVER	37
+#define	IPPORT_NAMESERVER	42
+#define	IPPORT_WHOIS		43
+#define	IPPORT_MTP		57
+
+/*
+ * Port/socket numbers: host specific functions
+ */
+#define	IPPORT_TFTP		69
+#define	IPPORT_RJE		77
+#define	IPPORT_FINGER		79
+#define	IPPORT_TTYLINK		87
+#define	IPPORT_SUPDUP		95
+
+/*
+ * UNIX TCP sockets
+ */
+#define	IPPORT_EXECSERVER	512
+#define	IPPORT_LOGINSERVER	513
+#define	IPPORT_CMDSERVER	514
+#define	IPPORT_EFSSERVER	520
+
+/*
+ * UNIX UDP sockets
+ */
+#define	IPPORT_BIFFUDP		512
+#define	IPPORT_WHOSERVER	513
+#define	IPPORT_ROUTESERVER	520	/* 520+1 also used */
+
+/*
+ * Ports < IPPORT_RESERVED are reserved for
+ * privileged processes (e.g. root).
+ */
+#define	IPPORT_RESERVED		1024
+
+/*
+ * Link numbers
+ */
+#define	IMPLINK_IP		155
+#define	IMPLINK_LOWEXPER	156
+#define	IMPLINK_HIGHEXPER	158
+
+/*
+ * Internet address (old style... should be updated)
+ */
+struct in_addr {
+	union {
+		struct { u_char s_b1,s_b2,s_b3,s_b4; } S_un_b;
+		struct { u_short s_w1,s_w2; } S_un_w;
+		u_long S_addr;
+	} S_un;
+#define	s_addr	S_un.S_addr	/* can be used for most tcp & ip code */
+#define	s_host	S_un.S_un_b.s_b2	/* host on imp */
+#define	s_net	S_un.S_un_b.s_b1	/* network */
+#define	s_imp	S_un.S_un_w.s_w2	/* imp */
+#define	s_impno	S_un.S_un_b.s_b4	/* imp # */
+#define	s_lh	S_un.S_un_b.s_b3	/* logical host */
+};
+
+/*
+ * Definitions of bits in internet address integers.
+ */
+#define	IN_CLASSA(i)		((((long)(i))&0x80000000)==0)
+#define	IN_CLASSA_NET		0xff000000
+#define	IN_CLASSA_NSHIFT	24
+#define	IN_CLASSA_HOST		0x00ffffff
+#define	IN_CLASSA_MAX		128
+
+#define	IN_CLASSB(i)		((((long)(i))&0xc0000000)==0x80000000)
+#define	IN_CLASSB_NET		0xffff0000
+#define	IN_CLASSB_NSHIFT	16
+#define	IN_CLASSB_HOST		0x0000ffff
+#define	IN_CLASSB_MAX		65536
+
+#define	IN_CLASSC(i)		((((long)(i))&0xc0000000)==0xc0000000)
+#define	IN_CLASSC_NET		0xffffff00
+#define	IN_CLASSC_NSHIFT	8
+#define	IN_CLASSC_HOST		0x000000ff
+
+#define	INADDR_ANY	0x00000000
+
+/*
+ * Socket address, internet style.
+ */
+struct sockaddr_in {
+	short	sin_family;
+	u_short	sin_port;
+	struct	in_addr sin_addr;
+	char	sin_zero[8];
+};
+
+#ifdef KERNEL
+extern	struct domain inetdomain;
+extern	struct protosw inetsw[];
+extern 	int nINET;
+#endif
+
+#endif /* _REMOTE_IN_H_ */
diff --git a/src/remote/inet.cpp b/src/remote/inet.cpp
new file mode 100644
index 0000000000..11a3b69e97
--- /dev/null
+++ b/src/remote/inet.cpp
@@ -0,0 +1,4169 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		inet.c
+ *	DESCRIPTION:	TCP/UCP/IP Communications module.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Added TCP_NO_DELAY option for superserver on Linux
+ * FSG 16.03.2001 
+ */
+/*
+$Id: inet.cpp,v 1.1.1.1 2001-05-23 13:26:38 tamlin Exp $
+*/
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include <string.h>
+#include <stdlib.h>
+#include "../jrd/common.h"
+#include "../jrd/file_params.h"
+#include <stdarg.h>
+
+#include "../jrd/time.h"
+
+#ifdef SUPERSERVER
+#ifdef	WIN_NT
+#define FD_SETSIZE 1024
+#endif
+
+#ifdef SET_TCP_NO_DELAY
+#include <netinet/tcp.h>
+#endif
+
+#endif /* SUPERSERVER */
+
+#if !(defined VMS || defined WIN_NT)
+#include <netdb.h>
+#if !(defined PC_PLATFORM || defined NETWARE_386)
+#include <sys/param.h>
+#endif
+#endif
+
+#ifdef NETWARE_386
+NETDB_DEFINE_CONTEXT
+#include "../remote/faux.h"
+#define GETHOSTBYNAME FAUX_gethostbyname
+#define GETSERVBYNAME FAUX_getservbyname
+#define GETHOSTNAME FAUX_gethostname
+/* These need to be defined for NetWare.  They
+ * See the comment in INET_CONNECT for details
+ */
+#define INET_RETRY_ERRNO	0
+#define INET_RETRY_CALL		0
+#else
+
+#define GETHOSTBYNAME gethostbyname
+#define GETSERVBYNAME getservbyname
+#define GETHOSTNAME gethostname
+#define INET_RETRY_CALL		5
+#endif
+
+#include "../remote/remote.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/iberr.h"
+#include "../jrd/thd.h"
+#include "../remote/inet_proto.h"
+#include "../remote/proto_proto.h"
+#include "../remote/remot_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#ifndef REQUESTER
+#include "../jrd/isc_i_proto.h"
+#include "../jrd/sch_proto.h"
+#endif /* REQUESTER */
+
+#ifdef IMP
+int h_errno;					/* In Other platforms one of the system header files declares this */
+#endif
+
+#if (defined hpux || defined SCO_UNIX || defined mips)
+extern int h_errno;
+#endif
+
+#if (defined EPSON || defined UNIXWARE || defined NCR3000 || defined M88K)
+#include <sys/sockio.h>
+#endif
+
+#ifdef NCR3000
+#include <sys/filio.h>
+#endif
+
+#ifdef NETWARE_386
+#define NO_ITIMER
+#define NO_FORK
+#include <direct.h>
+#endif
+
+#ifdef VMS
+#include "../remote/tcptypes.h"
+#include <ib_perror.h>
+#include <socket.h>
+#define NO_ITIMER
+#define NO_FORK
+#define MAX_PTYPE	ptype_batch_send
+#define PROXY_FILE	"[sysmgr]gds_proxy.dat"
+#define ERRNO		ISC_tcp_geterrno()
+#endif
+
+#ifdef WIN_NT
+#include <fcntl.h>
+#include <io.h>
+#include <process.h>
+#include <signal.h>
+#include "../utilities/install_nt.h"
+#define NO_ITIMER
+#define ERRNO		WSAGetLastError()
+#define H_ERRNO		WSAGetLastError()
+#define SOCLOSE		closesocket
+#define SYS_ERR		gds_arg_win32
+#define INET_RETRY_ERRNO	WSAEINPROGRESS
+#define INET_ADDR_IN_USE	WSAEADDRINUSE
+#define sleep(seconds)  Sleep ((seconds) * 1000)
+
+/* 
+** Winsock has a typedef for socket, so #define SOCKET to the typedef here
+** so that it won't be redefined below.
+*/
+/* TMN: 28 Jul 2000 - Fixed compiler warning */
+# ifndef SOCKET
+#  define SOCKET		SOCKET
+# endif	/* SOCKET */
+#define ERRNO		WSAGetLastError()
+#define H_ERRNO		WSAGetLastError()
+
+#endif /* WIN_NT */
+
+
+#ifdef PC_PLATFORM
+#define NO_FORK
+#endif
+
+#ifdef SYSV_SIGNALS
+#ifndef IMP
+#define NO_ITIMER
+#endif
+#endif
+
+#ifndef SYS_ERR
+#define SYS_ERR		gds_arg_unix
+#endif
+
+#ifndef SV_INTERRUPT
+#define SV_INTERRUPT	0
+#endif
+
+#ifndef EINTR
+#define EINTR		0
+#endif
+
+#ifdef XENIX
+/* 5.5 SCO Port: SIGURG is now available in SCO Openserver */
+#ifndef SCO_EV
+#define SIGURG		SIGUSR1
+#endif
+#endif
+
+#ifndef hpux
+#define sigvector	sigvec
+#endif
+
+#ifndef INVALID_SOCKET
+#define INVALID_SOCKET  -1
+#endif
+
+#ifndef SOCKET
+#define SOCKET  int
+#endif
+
+#ifndef SOCLOSE
+#define SOCLOSE	close
+#endif
+
+#ifndef ERRNO
+#define ERRNO	errno
+#endif
+
+#ifndef INET_ADDR_IN_USE
+#define INET_ADDR_IN_USE EADDRINUSE
+#endif
+
+#ifndef INET_RETRY_ERRNO
+#define INET_RETRY_ERRNO TRY_AGAIN
+#endif
+
+#ifndef INET_RETRY_CALL
+#define INET_RETRY_CALL 5
+#endif
+
+#ifndef H_ERRNO
+#define H_ERRNO	h_errno
+#endif
+
+#ifndef SIGURG
+#define SIGURG	SIGINT
+#endif
+
+#ifndef ENOBUFS
+#define ENOBUFS	0
+#endif
+
+SLONG INET_remote_buffer;
+SLONG INET_max_data;
+static BOOLEAN first_time = TRUE;
+
+static struct ipccfg INET_tcp_buffer[] =
+{
+	ISCCFG_REMOTE_BUFFER, 0, &INET_remote_buffer, 0, 0,
+	NULL, 0, NULL, 0, 0
+};
+
+
+
+#ifdef SET_TCP_NO_DELAY
+USHORT INET_no_nagle;
+
+static struct ipccfg INET_tcp_delay[] =
+{
+	ISCCFG_NO_NAGLE, 0, &INET_no_nagle, 0, 0,
+	NULL, 0, NULL, 0, 0
+};
+#endif
+
+/*
+#define DEBUG	1
+*/
+
+#ifndef REQUESTER
+#ifdef DEBUG
+#include <sys/timeb.h>
+#define TRACE_packets		(1 << 0)	/* bit 0 */
+#define TRACE_operations	(1 << 1)	/* bit 1 */
+#define TRACE_summary		(1 << 2)	/* bit 2 */
+
+static int INET_trace = TRACE_summary | TRACE_packets | TRACE_operations;
+static time_t INET_start_time = 0;
+SLONG INET_force_error = -1;	/* simulate a network error */
+static ULONG INET_count_send = 0;
+static ULONG INET_count_recv = 0;
+static ULONG INET_bytes_send = 0;
+static ULONG INET_bytes_recv = 0;
+
+static ULONG inet_debug_timer(void)
+{
+/**************************************
+ *
+ *	i n e t _ d e b u g _ t i m e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Utility function used in DEBUG mode only to put a timestamp
+ *	since start of connection on each debug output message.
+ *
+ *	This has been implemented and tested on SOLARIS, and may
+ *	need tweeking on any other platform where DEBUG is needed.
+ *
+ **************************************/
+	struct timeb now;
+	(void) ftime(&now);
+	return (now.time * 1000 + now.millitm - INET_start_time);
+}
+#endif
+#endif
+
+
+
+#ifndef PROXY_FILE
+#define PROXY_FILE	"/etc/gds_proxy"
+#endif
+
+#ifndef HOSTS_FILE
+#define HOSTS_FILE	"/etc/hosts.equiv"
+#endif
+
+#ifndef GDS_HOSTS_FILE
+#ifdef SMALL_FILE_NAMES
+#define GDS_HOSTS_FILE	"/etc/gdshosts.eqv"
+#else
+#define GDS_HOSTS_FILE	"/etc/gds_hosts.equiv"
+#endif
+#endif
+
+#define PROTOCOL_NAME   "gds_db"
+
+
+#define MAX_DATA_LW	1448		/* Low  Water mark */
+#define MAX_DATA_HW	32768		/* High Water mark */
+#define DEF_MAX_DATA	8192
+
+#define MAX_SEQUENCE	256
+
+// TMN: How the could this ever have been compiled when there was
+// two _definitions_ of the following data??? A clear violation
+// against the ODR (One Definition Rule).
+//SLONG INET_max_data;
+//SLONG     INET_remote_buffer;
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	1024
+#endif
+
+#ifndef MAXHOSTLEN
+#define MAXHOSTLEN	64
+#endif
+
+#ifdef VMS
+#define ERRNOCODE(symbol, code, text)	text,
+
+static CONST TEXT *CONST win_errlist[] = {
+	NULL,
+#include "../remote/winerr.h"
+};
+#undef ERRNOCODE
+#endif
+
+extern "C" {
+
+#define	SELECT_TIMEOUT	60		/* Dispatch thread select timeout (sec) */
+
+typedef struct slct
+{
+	int		slct_width;
+	int		slct_count;
+	SLONG	slct_time;
+	fd_set	slct_fdset;
+} SLCT;
+
+static int		accept_connection(PORT, P_CNCT *);
+static void		alarm_handler(int);
+static PORT		alloc_port(PORT);
+static PORT		aux_connect(PORT, PACKET *, XDR_INT(*)(void));
+static PORT		aux_request(PORT, PACKET *);
+#ifndef VMS
+static int		check_host(PORT, TEXT *, TEXT *, struct passwd *);
+#else
+static int		check_host(PORT, TEXT *, TEXT *);
+#endif
+static BOOLEAN	check_proxy(PORT, TEXT *, TEXT *);
+static void		cleanup_port(PORT);
+static void		disconnect(PORT);
+static void		exit_handler(void *);
+
+#ifdef NO_FORK
+static int fork(void);
+#endif
+
+#ifdef WIN_NT
+static int fork(SOCKET, USHORT);
+#endif
+
+
+static void copy_p_cnct_repeat_array(	p_cnct::p_cnct_repeat*			pDest,
+										const p_cnct::p_cnct_repeat*	pSource,
+										size_t							nEntries);
+
+static void		inet_copy(SCHAR *, SCHAR *, int);
+static int		inet_destroy(XDR *);
+static void		inet_gen_error(PORT, STATUS, ...);
+static bool_t	inet_getbytes(XDR *, SCHAR *, u_int);
+static bool_t	inet_getlong(XDR *, SLONG *);
+static u_int	inet_getpostn(XDR *);
+static void		inet_handler(PORT);
+static caddr_t	inet_inline(XDR *, u_int);
+static int		inet_error(PORT, CONST TEXT *, STATUS, int);
+static bool_t	inet_putlong(XDR *, SLONG *);
+static bool_t	inet_putbytes(XDR *, SCHAR *, u_int);
+static bool_t	inet_read(XDR *);
+static bool_t	inet_setpostn(XDR *, u_int);
+static PORT		inet_try_connect(	PACKET*,
+									RDB,
+									USHORT,
+									TEXT*,
+									TEXT*,
+									STATUS*,
+									SCHAR*,
+									SSHORT);
+static bool_t	inet_write(XDR *, int);
+static void		inet_zero(SCHAR *, int);
+static int		initWSA(PORT);
+static int		parse_hosts(TEXT *, TEXT *, TEXT *);
+static int		parse_line(TEXT *, TEXT *, TEXT *, TEXT *);
+
+#ifdef DEBUG
+static void packet_print(TEXT *, UCHAR *, int, int);
+#endif
+
+static bool_t	packet_receive(PORT, UCHAR *, SSHORT, SSHORT *);
+static bool_t	packet_send(PORT, SCHAR *, SSHORT);
+static PORT		receive(PORT, PACKET *);
+static PORT		select_accept(PORT);
+
+#ifdef NETWARE_386
+static PORT		select_port(PORT);
+static int		select_wait(PORT);
+#else
+static PORT		select_port(PORT, SLCT *);
+static int		select_wait(PORT, SLCT *);
+#endif
+
+static int		send_full(PORT, PACKET *);
+static int		send_partial(PORT, PACKET *);
+
+#ifdef  SUPERSERVER
+static void		unhook_disconnected_ports(PORT);
+#endif
+
+static void		unhook_port(PORT, PORT);
+static int		xdrinet_create(XDR *, PORT, UCHAR *, USHORT, enum xdr_op);
+static bool_t	xdrinet_endofrecord(XDR *, int);
+
+
+static XDR::xdr_ops inet_ops =
+{
+	inet_getlong,
+	inet_putlong,
+	inet_getbytes,
+	inet_putbytes,
+	inet_getpostn,
+	inet_setpostn,
+	inet_inline,
+	inet_destroy
+};
+
+#ifndef NOFILE
+#ifdef VMS
+#define NOFILE		32
+#else
+#define NOFILE		20
+#endif
+#endif
+
+#ifndef MAX_PTYPE
+#define MAX_PTYPE	ptype_out_of_band
+#endif
+
+#define MAXCLIENTS	NOFILE - 10
+
+/* Select uses bit masks of file descriptors in longs. */
+
+#ifndef NBBY
+#define	NBBY	8
+#endif
+
+#ifndef NFDBITS
+#if !defined(WIN_NT)
+#define NFDBITS		(sizeof(SLONG) * NBBY)
+
+#ifndef NETWARE_386
+#define	FD_SET(n, p)	((p)->fds_bits[(n)/NFDBITS] |= (1 << ((n) % NFDBITS)))
+#define	FD_CLR(n, p)	((p)->fds_bits[(n)/NFDBITS] &= ~(1 << ((n) % NFDBITS)))
+#define	FD_ISSET(n, p)	((p)->fds_bits[(n)/NFDBITS] & (1 << ((n) % NFDBITS)))
+#define FD_ZERO(p)	inet_zero((SCHAR *)(p), sizeof(*(p)))
+#endif
+#endif
+#endif
+
+
+#ifdef NETWARE_386
+#define MAX_FD_SETS 10
+static fd_set fd_sets[MAX_FD_SETS];
+static int select_count = 0;
+#endif
+
+static SLCT INET_select = { 0, 0, 0 };
+static int INET_max_clients;
+#ifdef WIN_NT
+static int INET_initialized = FALSE;
+static WSADATA INET_wsadata;
+static TEXT INET_command_line[MAXPATHLEN + 32], *INET_p;
+#endif
+
+
+#ifdef SHLIB_DEFS
+#define select		(*_libgds_select)
+#define gethostname	(*_libgds_gethostname)
+#define connect		(*_libgds_connect)
+#define execl		(*_libgds_execl)
+#define getservbyname	(*_libgds_getservbyname)
+#define gethostbyname	(*_libgds_gethostbyname)
+#define setsockopt	(*_libgds_setsockopt)
+#define bind		(*_libgds_bind)
+#define listen		(*_libgds_listen)
+#define accept		(*_libgds_accept)
+#define setreuid	(*_libgds_setreuid)
+#define setregid	(*_libgds_setregid)
+#define chdir		(*_libgds_chdir)
+#define getsockname	(*_libgds_getsockname)
+#define getpeername	(*_libgds_getpeername)
+#define gethostbyaddr	(*_libgds_gethostbyaddr)
+#define xdrmem_create	(*_libgds_xdrmem_create)
+#define innetgr		(*_libgds_innetgr)
+#define getppid		(*_libgds_getppid)
+#define getgroups	(*_libgds_getgroups)
+#define bzero		(*_libgds_bzero)
+#define shutdown	(*_libgds_shutdown)
+#define setitimer	(*_libgds_setitimer)
+#define pause		(*_libgds_pause)
+#define getenv		(*_libgds_getenv)
+#ifndef SCO
+#define initgroups      (*_libgds_initgroups)
+#define sigvector       (*_libgds_sigvec)
+#else
+#define htonl		(*_libgds_htonl)
+#define ntohl		(*_libgds_ntohl)
+#endif /* SCO */
+#define h_errno		(*_libgds_h_errno)
+#define errno		(*_libgds_errno)
+
+extern int select();
+extern void gethostname();
+extern int connect();
+extern int execl();
+extern struct servent *getservbyname();
+extern struct hostent *gethostbyname();
+extern int setsockopt();
+extern int bind();
+extern int listen();
+extern int accept();
+extern int setreuid();
+extern int setregid();
+extern int chdir();
+extern int getsockname();
+extern int getpeername();
+extern struct hostent *gethostbyaddr();
+extern int xdrmem_create();
+extern int innetgr();
+extern int getgroups();
+extern int bzero();
+extern int shutdown();
+extern int setitimer();
+extern int pause();
+extern char *getenv();
+#ifndef SCO
+extern int initgroups();
+extern int sigvector();
+extern int getppid();
+#else
+extern ulong htonl();
+extern ulong ntohl();
+extern pid_t getppid();
+#endif /* SCO */
+extern int h_errno;
+extern int errno;
+#endif /* SHLIB_DEFS */
+
+
+#ifdef VMS
+#define accept		ISC_tcp_accept
+#define bind		ISC_tcp_bind
+#define connect		ISC_tcp_connect
+#define getaddr 	ISC_tcp_getaddr
+#define gethostbyname	ISC_tcp_gethostbyname
+#define gethostname	ISC_tcp_gethostname
+#define gethosts	ISC_tcp_gethosts
+#define getnamebyaddr	ISC_tcp_getnamebyaddr
+#define getpeername	ISC_tcp_getpeername
+#define getservbyname	ISC_tcp_getservbyname
+#define getservport	ISC_tcp_getservport
+#define getsockname	ISC_tcp_getsockname
+#define listen		ISC_tcp_listen
+#define recv		ISC_tcp_recv
+#define select		ISC_tcp_select
+#define send		ISC_tcp_send
+#define setsockopt	ISC_tcp_setsockopt
+
+#define socket		ISC_tcp_socket
+extern ISC_wait();
+extern gds__completion_ast();
+
+extern ISC_tcp_accept();
+extern ISC_tcp_bind();
+extern ISC_tcp_connect();
+extern ISC_tcp_getnamebyaddr();
+extern ISC_tcp_getpeername();
+extern ISC_tcp_getservbyname();
+extern ISC_tcp_getservport();
+extern ISC_tcp_getsockname();
+extern ISC_tcp_listen();
+extern ISC_tcp_recv();
+extern ISC_tcp_select();
+extern ISC_tcp_send();
+extern ISC_tcp_setsockopt();
+extern ISC_tcp_socket();
+#endif /* VMS */
+
+#ifdef	WIN_NT
+#define	INTERRUPT_ERROR(x)	(SYSCALL_INTERRUPTED(x) || (x) == WSAEINTR)
+#else
+#define	INTERRUPT_ERROR(x)	(SYSCALL_INTERRUPTED(x))
+#endif
+
+#ifdef  START_PORT_CRITICAL
+#undef  START_PORT_CRITICAL
+#undef  STOP_PORT_CRITICAL
+#undef  DEFER_PORT_CLEANUP
+#endif
+
+#ifdef  SUPERSERVER
+/* TMN: 28 Jul 2000 - Added include to remove warnings */
+
+} // extern "C"
+#include "../jrd/thd_proto.h"
+extern "C" {
+
+static MUTX_T	port_mutex;
+static BOOLEAN	port_mutex_inited = 0;
+
+#define DEFER_PORT_CLEANUP
+
+#define START_PORT_CRITICAL     if (!port_mutex_inited)                \
+                                    {                                  \
+                                    port_mutex_inited = 1;             \
+                                    THD_mutex_init (&port_mutex);      \
+                                    }                                  \
+                                THREAD_EXIT;                           \
+                                THD_mutex_lock (&port_mutex);          \
+                                THREAD_ENTER
+
+#define STOP_PORT_CRITICAL      THREAD_EXIT;                           \
+                                THD_mutex_unlock (&port_mutex);        \
+                                THREAD_ENTER
+
+#endif
+
+
+#ifndef START_PORT_CRITICAL
+#define START_PORT_CRITICAL
+#define STOP_PORT_CRITICAL
+#endif
+
+
+#define INET_PRIVATE_COUNTOF(ARRAY)	(sizeof(ARRAY) / sizeof(ARRAY[0]))
+
+
+PORT INET_analyze(	TEXT*	file_name,
+					USHORT*	file_length,
+					STATUS*	status_vector,
+					TEXT*	node_name,
+					TEXT*	user_string,
+					USHORT	uv_flag,
+					SCHAR*	dpb,
+					SSHORT	dpb_length)
+{
+/**************************************
+ *
+ *	I N E T _ a n a l y z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	File_name is on node_name.
+ *	Establish an external connection to node_name.
+ *
+ *	If a connection is established, return a port block, otherwise
+ *	return NULL.
+ *
+ *	If the "uv_flag" is non-zero, user verification also takes place.
+ *
+ **************************************/
+
+	P_CNCT*	cnct;
+	int		eff_gid;
+	int		eff_uid;
+	SSHORT	user_length;
+	UCHAR*	p;
+	UCHAR	user_id[200];
+	TEXT	buffer[64];
+
+	*file_length = strlen(file_name);
+
+/* We need to establish a connection to a remote server.  Allocate the necessary
+   blocks and get ready to go. */
+
+	RDB		rdb		= (RDB) ALLOC(type_rdb);
+	PACKET*	packet	= &rdb->rdb_packet;
+
+/* Pick up some user identification information */
+
+	user_id[0] = CNCT_user;
+	p = user_id + 2;
+	ISC_get_user(reinterpret_cast < char *>(p), &eff_uid, &eff_gid, 0, 0, 0,
+				 user_string);
+	user_id[1] = (UCHAR) strlen((SCHAR *) p);
+	p = p + user_id[1];
+
+	*p++ = CNCT_host;
+	p++;
+	ISC_get_host(reinterpret_cast <char*>(p), 64);
+	p[-1] = (UCHAR) strlen((SCHAR *) p);
+
+	for (; *p; p++) {
+		if (*p >= 'A' && *p <= 'Z') {
+			*p = *p - 'A' + 'a';
+		}
+	}
+
+	if ((eff_uid == -1) || uv_flag) {
+		*p++ = CNCT_user_verification;
+		*p++ = 0;
+	}
+#if !(defined VMS || defined NETWARE_386 || defined PC_PLATFORM)
+	else
+	{
+		/* Communicate group id info to server, as user maybe running under group
+		   id other than default specified in /etc/passwd. */
+
+		*p++ = CNCT_group;
+		*p++ = sizeof(SLONG);
+		eff_gid = htonl(eff_gid);
+		memcpy(p, AOF32L(eff_gid), sizeof(SLONG));
+		p += sizeof(SLONG);
+	}
+#endif
+
+	user_length = (SSHORT) (p - user_id);
+
+/* Establish connection to server */
+
+/* Note: prior to V3.1E a recievers could not in truth handle more
+   then 5 protocol descriptions, so we try them in chunks of 5 or less */
+
+/* If we want user verification, we can't speak anything less than version 7 */
+
+	cnct = &packet->p_cnct;
+	cnct->p_cnct_user_id.cstr_length = user_length;
+	cnct->p_cnct_user_id.cstr_address = user_id;
+
+	static const p_cnct::p_cnct_repeat protocols_to_try1[] =
+	{
+		PROTOCOL_VERSION8,				arch_generic, ptype_rpc, MAX_PTYPE, 2,
+		PROTOCOL_VERSION8,				ARCHITECTURE, ptype_rpc, MAX_PTYPE, 3,
+		PROTOCOL_VERSION10,				arch_generic, ptype_rpc, MAX_PTYPE, 4,
+		PROTOCOL_VERSION10,				ARCHITECTURE, ptype_rpc, MAX_PTYPE, 5
+#ifdef SCROLLABLE_CURSORS
+		,
+		PROTOCOL_SCROLLABLE_CURSORS,	arch_generic, ptype_rpc, MAX_PTYPE, 6,
+		PROTOCOL_SCROLLABLE_CURSORS,	ARCHITECTURE, ptype_rpc, MAX_PTYPE, 7
+#endif
+	};
+
+	cnct->p_cnct_count = INET_PRIVATE_COUNTOF(protocols_to_try1);
+
+	copy_p_cnct_repeat_array(	cnct->p_cnct_versions,
+								protocols_to_try1,
+								cnct->p_cnct_count);
+
+/* Try connection using first set of protocols.  punt if error */
+
+	PORT port = inet_try_connect(	packet,
+									rdb,
+									*file_length,
+									file_name,
+									node_name,
+									status_vector,
+									dpb,
+									dpb_length);
+	if (!port) {
+		return NULL;
+	}
+
+	if (packet->p_operation == op_reject && !uv_flag)
+	{
+		disconnect(port);
+
+		/* try again with next set of known protocols */
+
+		cnct->p_cnct_user_id.cstr_length = user_length;
+		cnct->p_cnct_user_id.cstr_address = user_id;
+
+		static const p_cnct::p_cnct_repeat protocols_to_try2[] =
+		{
+			PROTOCOL_VERSION6, arch_generic, ptype_rpc, ptype_batch_send,	2,
+			PROTOCOL_VERSION6, ARCHITECTURE, ptype_rpc, ptype_batch_send,	3,
+			PROTOCOL_VERSION7, arch_generic, ptype_rpc, MAX_PTYPE,			4,
+			PROTOCOL_VERSION7, ARCHITECTURE, ptype_rpc, MAX_PTYPE,			5
+		};
+
+		cnct->p_cnct_count = INET_PRIVATE_COUNTOF(protocols_to_try2);
+
+		copy_p_cnct_repeat_array(	cnct->p_cnct_versions,
+									protocols_to_try2,
+									cnct->p_cnct_count);
+
+		port = inet_try_connect(packet, rdb, *file_length, file_name,
+								node_name, status_vector, dpb, dpb_length);
+		if (!port)
+			return NULL;
+	}
+
+	if (packet->p_operation == op_reject && !uv_flag)
+	{
+		disconnect(port);
+
+		/* try again with next set of known protocols */
+
+		cnct->p_cnct_user_id.cstr_length = user_length;
+		cnct->p_cnct_user_id.cstr_address = user_id;
+
+		static const p_cnct::p_cnct_repeat protocols_to_try3[] =
+		{
+			PROTOCOL_VERSION3, arch_generic, ptype_rpc, ptype_batch_send, 2,
+			PROTOCOL_VERSION3, ARCHITECTURE, ptype_rpc, ptype_batch_send, 3,
+			PROTOCOL_VERSION4, arch_generic, ptype_rpc, ptype_batch_send, 4,
+			PROTOCOL_VERSION4, ARCHITECTURE, ptype_rpc, ptype_batch_send, 5
+		};
+
+		cnct->p_cnct_count = INET_PRIVATE_COUNTOF(protocols_to_try3);
+
+		copy_p_cnct_repeat_array(	cnct->p_cnct_versions,
+									protocols_to_try3,
+									cnct->p_cnct_count);
+
+		port = inet_try_connect(packet, rdb, *file_length, file_name,
+								node_name, status_vector, dpb, dpb_length);
+		if (!port) {
+			return NULL;
+		}
+	}
+
+	if (packet->p_operation != op_accept)
+	{
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds_connect_reject;
+		*status_vector++ = 0;
+		disconnect(port);
+		return NULL;
+	}
+
+	port->port_protocol = packet->p_acpt.p_acpt_version;
+
+/* once we've decided on a protocol, concatenate the version 
+   string to reflect it...  */
+
+	sprintf(buffer, "%s/P%d", port->port_version->str_data, port->port_protocol);
+	ALLR_free(port->port_version);
+	port->port_version = REMOTE_make_string(buffer);
+
+	if (packet->p_acpt.p_acpt_architecture == ARCHITECTURE) {
+		port->port_flags |= PORT_symmetric;
+	}
+
+	if (packet->p_acpt.p_acpt_type == ptype_rpc) {
+		port->port_flags |= PORT_rpc;
+	}
+
+	if (packet->p_acpt.p_acpt_type != ptype_out_of_band) {
+		port->port_flags |= PORT_no_oob;
+	}
+
+	return port;
+}
+
+PORT DLL_EXPORT INET_connect(TEXT * name,
+							 PACKET * packet,
+							 STATUS * status_vector,
+							 USHORT flag, SCHAR * dpb, SSHORT dpb_length)
+{
+/**************************************
+ *
+ *	I N E T _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish half of a communication link.  If a connect packet is given,
+ *	the connection is on behalf of a remote interface.  Otherwise the connect
+ *	is for a server process.
+ *
+ **************************************/
+	int l, n;
+	SOCKET s;
+	PORT port;
+	TEXT *protocol;
+	TEXT temp[128];
+	TEXT *p;
+	struct sockaddr_in address;
+#ifndef VMS
+	struct hostent *host;
+	struct servent *service;
+	TEXT msg[64];
+#endif
+#ifdef DGUX
+	SCHAR optval;
+#else
+	int optval;
+#endif
+
+
+
+#ifdef DEBUG
+	{
+		UCHAR *p;
+		if (INET_trace & TRACE_operations) {
+			ib_fprintf(ib_stdout, "INET_connect\n");
+			ib_fflush(ib_stdout);
+		};
+		INET_start_time = inet_debug_timer();
+		if ((p = getenv("INET_force_error")) != NULL) {
+			INET_force_error = atoi(p);
+		}
+	}
+#endif
+
+	port = alloc_port(0);
+	port->port_status_vector = status_vector;
+	REMOTE_get_timeout_params(port, reinterpret_cast < UCHAR * >(dpb),
+							  dpb_length);
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+	protocol = PROTOCOL_NAME;
+#ifdef VMS
+	ISC_tcp_setup(ISC_wait, gds__completion_ast);
+#endif
+
+	if (name) {
+		strcpy(temp, name);
+		for (p = temp; *p;) {
+			if (*p++ == '/') {
+				p[-1] = 0;
+				name = temp;
+				protocol = p;
+				break;
+			}
+		}
+	}
+
+	if (name && *name) {
+		if (port->port_connection) {
+			ALLR_free(port->port_connection);
+		}
+		port->port_connection = REMOTE_make_string(name);
+	}
+	else {
+		name = port->port_host->str_data;
+	}
+
+/* Set up Inter-Net socket address */
+
+	inet_zero((SCHAR *) & address, sizeof(address));
+
+#ifdef VMS
+	/* V M S */
+	if (getservport(protocol, "tcp", &address.sin_port) == -1) {
+		inet_error(port, "getservbyname", isc_net_connect_err, 0);
+		disconnect(port);
+		return NULL;
+	}
+	if (packet) {
+		if (getaddr(name, &address) == -1) {
+			inet_error(port, "gethostbyname", isc_net_connect_err, 0);
+			disconnect(port);
+			return NULL;
+		}
+	}
+	else {
+		address.sin_addr.s_addr = INADDR_ANY;
+	}
+#else
+
+/* U N I X style sockets */
+	THREAD_EXIT;
+	host = GETHOSTBYNAME(name);
+
+/* On Windows NT/9x, gethostbyname can only accomodate
+ * 1 call at a time.  In this case it returns the error
+ * WSAEINPROGRESS. On UNIX systems, this call may not succeed
+ * because of a temporary error.  In this case, it returns
+ * h_error set to TRY_AGAIN.  When these errors occur,
+ * retry the operation a few times.
+ * NOTE: This still does not guarantee success, but helps.
+ */
+	if (!host) {
+		int retry;
+		if (H_ERRNO == INET_RETRY_ERRNO) {
+			for (retry = 0; retry < INET_RETRY_CALL; retry++) {
+				host = GETHOSTBYNAME(name);
+				if (host)
+					break;
+			}
+		}
+	}
+	THREAD_ENTER;
+	if (!host) {
+		sprintf(msg,
+				"INET/INET_connect: gethostbyname failed, error code = %d",
+				H_ERRNO);
+		gds__log(msg, 0);
+		inet_gen_error(port,
+					   isc_network_error,
+					   isc_arg_string,
+					   port->port_connection->str_data,
+					   isc_arg_gds,
+					   isc_net_lookup_err, isc_arg_gds, isc_host_unknown, 0);
+
+		disconnect(port);
+		return NULL;
+	}
+
+/* Copy info from host struct before making another socket call for
+   Winsock compatibility */
+
+	address.sin_family = host->h_addrtype;
+	if (packet) {
+		inet_copy(host->h_addr, (SCHAR *) & address.sin_addr,
+				  sizeof(address.sin_addr));
+	}
+	else {
+		address.sin_addr.s_addr = INADDR_ANY;
+	}
+
+	THREAD_EXIT;
+
+	service = GETSERVBYNAME(protocol, "tcp");
+#ifdef WIN_NT
+/* On Windows NT/9x, getservbyname can only accomodate
+ * 1 call at a time.  In this case it returns the error
+ * WSAEINPROGRESS.
+ * If this happens, retry the operation a few times.
+ * NOTE: This still does not guarantee success, but helps.
+ */
+	if (!service) {
+		int retry;
+		if (H_ERRNO == INET_RETRY_ERRNO) {
+			for (retry = 0; retry < INET_RETRY_CALL; retry++) {
+				service = GETSERVBYNAME(protocol, "tcp");
+				if (service)
+					break;
+			}
+		}
+	}
+#endif /* WIN_NT */
+	THREAD_ENTER;
+
+/* Modification by luz (slightly modified by FSG)
+    instead of failing here, try applying hard-wired
+    translation of "gds_db" into "3050"
+    This way, a connection to a remote IB server
+    works even from clients with missing "gds_db"
+    entry in "services" file, which is important
+    for zero-installation clients.
+    */
+	if (!service) {
+		if (strcmp(protocol, PROTOCOL_NAME) == 0) {
+			/* apply hardwired translation */
+			address.sin_port = htons(3050);
+		}
+
+		/* modification by FSG 23.MAR.2001 */
+		else {
+			/* modification by FSG 23.MAR.2001 */
+			/* The user has supplied something as protocol
+			 * let's see whether this is a port number
+			 * instead of a service name
+			 */
+			address.sin_port = htons(atoi(protocol));
+		}
+
+		if (address.sin_port == 0) {
+			/* end of modification by FSG */
+			/* this is the original code */
+			sprintf(msg,
+					"INET/INET_connect: getservbyname failed, error code = %d",
+					H_ERRNO);
+			gds__log(msg, 0);
+			inet_gen_error(port,
+						   isc_network_error,
+						   isc_arg_string,
+						   port->port_connection->str_data,
+						   isc_arg_gds,
+						   isc_net_lookup_err,
+						   isc_arg_gds,
+						   isc_service_unknown,
+						   isc_arg_string,
+						   protocol, isc_arg_string, "tcp", 0);
+			return NULL;
+		}						/* else / not hardwired gds_db translation */
+	}
+	else {
+		/* if we have got a service-struct, get port number from there
+		   * (in case of hardwired gds_db to 3050 translation, address.sin_port was
+		   * already set above */
+#ifdef NETWARE_386
+		/* LATER, bug in NOVELL getservbyname() */
+
+		service->s_port = 3050;
+		address.sin_port = htons(service->s_port);
+#else
+		address.sin_port = service->s_port;
+#endif
+	}							/* else (service found) */
+
+/* end of modifications by luz */
+#endif /* VMS */
+
+/* Allocate a port block and initialize a socket for communications */
+
+	port->port_handle = (HANDLE) socket(AF_INET, SOCK_STREAM, 0);
+
+	if ((SOCKET) port->port_handle == INVALID_SOCKET)
+	{
+		inet_error(port, "socket", isc_net_connect_err, ERRNO);
+		disconnect(port);
+		return NULL;
+	}
+
+/* If we're a host, just make the connection */
+
+	if (packet) {
+		THREAD_EXIT;
+		n = connect((SOCKET) port->port_handle,
+					(struct sockaddr *) &address, sizeof(address));
+		THREAD_ENTER;
+		if (n != -1 && send_full(port, packet))
+			return port;
+		else {
+			inet_error(port, "connect", isc_net_connect_err, ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+	}
+
+/* We're a server, so wait for a host to show up */
+
+	if (flag & SRVR_multi_client) {
+		int optlen;
+		struct linger lingerInfo;
+
+		lingerInfo.l_onoff = 0;
+		lingerInfo.l_linger = 0;
+
+		optval = TRUE;
+		n = setsockopt((SOCKET) port->port_handle, SOL_SOCKET, SO_REUSEADDR,
+					   (SCHAR *) & optval, sizeof(optval));
+		if (n == -1) {
+			inet_error(port, "setsockopt REUSE", isc_net_connect_listen_err,
+					   ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+
+		/* Get any values for SO_LINGER so that they can be reset during
+		 * disconnect.  SO_LINGER should be set by default on the socket
+		 */
+		optlen = sizeof(port->port_linger);
+		n = getsockopt((SOCKET) port->port_handle, SOL_SOCKET, SO_LINGER,
+					   (SCHAR *) & port->port_linger, &optlen);
+
+		if (n != 0)				/* getsockopt failed */
+			port->port_linger.l_onoff = 0;
+
+		n = setsockopt((SOCKET) port->port_handle, SOL_SOCKET, SO_LINGER,
+					   (SCHAR *) & lingerInfo, sizeof(lingerInfo));
+		if (n == -1) {
+			inet_error(port, "setsockopt LINGER", isc_net_connect_listen_err,
+					   ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+
+#ifdef SET_TCP_NO_DELAY
+
+		ISC_get_config(LOCK_HEADER, INET_tcp_delay);
+		if (INET_no_nagle) {
+
+			optval = TRUE;
+			n =
+				setsockopt((SOCKET) port->port_handle, SOL_SOCKET,
+						   TCP_NODELAY, (SCHAR *) & optval, sizeof(optval));
+
+			gds__log("inet log: disabled Nagle algorithm \n");
+
+
+
+			if (n == -1) {
+				inet_error(port, "setsockopt TCP_NODELAY",
+						   isc_net_connect_listen_err, ERRNO);
+				disconnect(port);
+				return NULL;
+			}
+		}
+#endif
+
+
+
+
+	}
+
+	n = bind((SOCKET) port->port_handle,
+			 (struct sockaddr *) &address, sizeof(address));
+
+	if (n == -1) {
+		/* On Linux platform, when the server dies the system holds a port
+		   for some time. */
+
+		if (ERRNO == INET_ADDR_IN_USE) {
+			int retry;
+
+			for (retry = 0; retry < INET_RETRY_CALL; retry++) {
+				sleep(10);
+				n = bind((SOCKET) port->port_handle,
+						 (struct sockaddr *) &address, sizeof(address));
+				if (n == 0)
+					break;
+			}
+		}
+		else {
+			inet_error(port, "bind", isc_net_connect_listen_err, ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+	}
+
+	n = listen((SOCKET) port->port_handle, 5);
+
+	if (n == -1) {
+		inet_error(port, "listen", isc_net_connect_listen_err, ERRNO);
+		return NULL;
+	}
+
+	if (flag & SRVR_multi_client) {
+		/* Prevent the generation of dummy keepalive packets on the
+		   connect port. */
+
+		port->port_dummy_packet_interval = 0;
+		port->port_dummy_timeout = 0;
+		port->port_server_flags |= (SRVR_server | SRVR_multi_client);
+		gds__register_cleanup(exit_handler, (void *) port);
+		return port;
+	}
+
+
+	while (TRUE) {
+		THREAD_EXIT;
+		l = sizeof(address);
+		s = accept((SOCKET) port->port_handle,
+				   (struct sockaddr *) &address, &l);
+		if (s == INVALID_SOCKET) {
+			THREAD_ENTER;
+			inet_error(port, "accept", isc_net_connect_err, ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+#ifdef WIN_NT
+		if ((flag & SRVR_debug) || !fork(s, flag))
+#else
+		if ((flag & SRVR_debug) || !fork())
+#endif
+		{
+			THREAD_ENTER;
+			SOCLOSE((SOCKET) port->port_handle);
+			port->port_handle = (HANDLE) s;
+			port->port_server_flags |= SRVR_server;
+			return port;
+		}
+		THREAD_ENTER;
+		SOCLOSE(s);
+	}
+}
+
+PORT INET_reconnect(HANDLE handle, TEXT* name, STATUS* status_vector)
+{
+/**************************************
+ *
+ *	I N E T _ r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	A communications link has been established by another
+ *	process.  We have inheritted the handle.  Set up
+ *	a port block.
+ *
+ **************************************/
+
+	PORT port = alloc_port(0);
+	port->port_status_vector = status_vector;
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+
+	port->port_handle = handle;
+	port->port_server_flags |= SRVR_server;
+
+	return port;
+}
+
+PORT DLL_EXPORT INET_server(int sock)
+{
+/**************************************
+ *
+ *	I N E T _ s e r v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We have been spawned by a master server with a connection
+ *	established.  Set up port block with the appropriate socket.
+ *
+ **************************************/
+	PORT port;
+
+#ifdef VMS
+	ISC_tcp_setup(ISC_wait, gds__completion_ast);
+#endif
+	port = alloc_port(0);
+	port->port_server_flags |= SRVR_server;
+	port->port_handle = (HANDLE) sock;
+
+	return port;
+}
+
+void INET_set_clients( int count)
+{
+/**************************************
+ *
+ *	I N E T _ s e t _ c l i e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set maxinum number of clients served before
+ *	starting new server
+ *
+ **************************************/
+
+	INET_max_clients = (count && count < MAXCLIENTS) ? count : MAXCLIENTS;
+}
+
+static int accept_connection(PORT port, P_CNCT* cnct)
+{
+/**************************************
+ *
+ *	a c c e p t _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept an incoming request for connection.  This is purely a lower
+ *	level handshaking function, and does not constitute the server
+ *	response for protocol selection.
+ *
+ **************************************/
+	TEXT name[64], password[64], *id, *end, *p;
+	STR string;
+	SLONG eff_gid, eff_uid;
+	int length, l;
+	BOOLEAN user_verification;
+
+/* Default account to "guest" (in theory all packets contain a name) */
+
+	strcpy(name, "guest");
+	password[0] = 0;
+
+/* Pick up account and password, if given */
+
+	id = (TEXT *) cnct->p_cnct_user_id.cstr_address;
+	end = id + cnct->p_cnct_user_id.cstr_length;
+
+	eff_uid = eff_gid = -1;
+	user_verification = FALSE;
+	while (id < end)
+	{
+		switch (*id++)
+		{
+		case CNCT_user:
+			length = l = *id++;
+			port->port_user_name = string =
+				(STR) ALLOCV(type_str, (int) length);
+			string->str_length = length;
+			if (length) {
+				p = (TEXT *) string->str_data;
+				do
+					*p++ = *id++;
+				while (--l);
+			}
+			strncpy(name, string->str_data, length);
+			name[length] = (TEXT) 0;
+			break;
+
+		case CNCT_passwd:
+			p = password;
+			if ((length = *id++) != NULL)
+				do
+					*p++ = *id++;
+				while (--length);
+			*p = 0;
+			break;
+
+		case CNCT_group:
+			p = (TEXT *) & eff_gid;
+			if ((length = *id++) != NULL)
+				do
+					*p++ = *id++;
+				while (--length);
+			eff_gid = ntohl(eff_gid);
+			break;
+
+			/* this case indicates that the client has requested that
+			   we force the user name/password to be verified against
+			   the security database */
+
+		case CNCT_user_verification:
+			user_verification = TRUE;
+			id++;
+			break;
+
+		default:
+			id += *id + 1;
+		}
+	}
+
+/* See if user exists.  If not, reject connection */
+
+#ifdef NETWARE_386
+/* force all clients of Novell to use the security database */
+
+	user_verification = TRUE;
+#endif
+
+	if (user_verification) {
+		eff_gid = eff_uid = -1;
+		port->port_flags |= PORT_not_trusted;
+	}
+
+#if !defined(NETWARE_386) && !defined(WIN_NT)
+
+#ifdef VMS
+	else
+	{
+		TEXT host[MAXHOSTLEN];
+		int trusted = check_host(port, host, name);
+		if (!trusted) {
+			return FALSE;
+		}
+
+		if (trusted == -1) {
+			eff_gid = eff_uid = -1;
+			port->port_flags |= PORT_not_trusted;
+		}
+		else
+		{
+			check_proxy(port, host, name);
+
+			if (!port->port_parent) {
+				if (!chuser(name))
+					return FALSE;
+				ISC_get_user(name, &eff_uid, &eff_gid, 0, 0, 0, 0);
+			}
+			/* ??? How to get uic for multi-client server case ??? */
+		}
+	}
+#else
+	else
+	{
+		/* Security check should be against remote name passed - so do
+		   check_host first */
+
+		TEXT host[MAXHOSTLEN];
+		struct passwd* passwd = getpwnam(name);
+		int trusted = check_host(port, host, name, passwd);
+		if (!trusted) {
+			return FALSE;
+		}
+
+		if (trusted == -1) {
+			eff_gid = eff_uid = -1;
+			port->port_flags |= PORT_not_trusted;
+		}
+		else
+		{
+			if (check_proxy(port, host, name))
+				passwd = getpwnam(name);
+			if (!passwd)
+				return FALSE;
+#ifdef NOINITGROUPS
+			eff_gid = passwd->pw_gid;
+#else
+
+			SLONG gids[128];
+
+			initgroups(passwd->pw_name, passwd->pw_gid);
+			if (eff_gid != -1) {
+				const int gid_count = getgroups(sizeof(gids) / sizeof(SLONG), gids);
+				for (int i = 0; i < gid_count; ++i) {
+					if (gids[i] == eff_gid) {
+						break;
+					}
+				}
+				if ((i == gid_count) && passwd) {
+					eff_gid = passwd->pw_gid;
+				}
+			}
+			else
+			{
+				eff_gid = passwd->pw_gid;
+			}
+#endif /* NOINITGROUPS */
+			eff_uid = passwd->pw_uid;
+
+			/* if not multi-client: set uid, gid and home directory */
+
+			if (!port->port_parent) {
+				if (!eff_gid || setregid(passwd->pw_gid, eff_gid) == -1) {
+					setregid(passwd->pw_gid, passwd->pw_gid);
+				}
+				if (!setreuid(passwd->pw_uid, passwd->pw_uid)) {
+					(void) chdir(passwd->pw_dir);
+				}
+			}
+		}
+	}
+
+	{
+/* If the environment varible ISC_INET_SERVER_HOME is set, 
+ * change the home directory to the specified directory.
+ * Note that this will overrule the normal setting of
+ * the current directory to the effective user's home directory.
+ * This feature was added primarily for testing via remote
+ * loopback - but does seem to be of good general use, so
+ * is activiated for the production product.
+ * 1995-February-27 David Schnepper 
+ */
+		char* home = getenv("ISC_INET_SERVER_HOME");
+		if (home) {
+			if (chdir(home)) {
+				gds__log("inet_server: unable to cd to %s errno %d\n", home,
+						 ERRNO);
+				/* We continue after the error */
+			}
+		}
+	}
+#endif /* VMS */
+
+#endif /* !NETWARE_386 && !WIN_NT */
+
+/* store FULL user identity in port_user_name for security purposes */
+
+	{
+		strncpy(name, port->port_user_name->str_data,
+				port->port_user_name->str_length);
+		p = &name[port->port_user_name->str_length];
+		sprintf(p, ".%ld.%ld", eff_gid, eff_uid);
+		ALLR_free((UCHAR *) port->port_user_name);
+		port->port_user_name = REMOTE_make_string(name);
+		port->port_user_name->str_length = strlen(name);
+	}
+
+	return TRUE;
+}
+
+static PORT alloc_port( PORT parent)
+{
+/**************************************
+ *
+ *	a l l o c _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a port block, link it in to parent (if there is a parent),
+ *	and initialize input and output XDR streams.
+ *
+ **************************************/
+	PORT port;
+	TEXT buffer[64];
+#ifdef NETWARE_386
+	SSHORT rval;
+#endif
+
+#ifdef WIN_NT
+	if (!INET_initialized) {
+		WORD version;
+
+		version = MAKEWORD(1, 1);
+		if (WSAStartup(version, &INET_wsadata)) {
+			if (parent)
+				inet_error(parent, "WSAStartup", isc_net_init_error, ERRNO);
+			else {
+				sprintf(buffer,
+						"INET/alloc_port: WSAStartup failed, error code = %d",
+						ERRNO);
+				gds__log(buffer, 0);
+			}
+			return NULL;
+		}
+		gds__register_cleanup(exit_handler, 0);
+		INET_initialized = TRUE;
+	}
+#endif
+
+	if (first_time == TRUE) {
+		ISC_get_config(LOCK_HEADER, INET_tcp_buffer);
+		if (INET_remote_buffer < MAX_DATA_LW
+			|| INET_remote_buffer > MAX_DATA_HW) INET_remote_buffer =
+				DEF_MAX_DATA;
+		INET_max_data = INET_remote_buffer;
+#ifdef DEBUG
+		{
+			char messg[128];
+			sprintf(messg, " Info: Remote Buffer Size set to %d",
+					INET_remote_buffer);
+			gds__log(messg, 0);
+		}
+#endif
+		first_time = FALSE;
+	}
+	port = (PORT) ALLOCV(type_port, INET_remote_buffer * 2);
+	port->port_type = port_inet;
+	port->port_state = state_pending;
+	REMOTE_get_timeout_params(port, 0, 0);
+
+#if (defined PC_PLATFORM) && !(defined NETWARE_386)
+	strcpy(buffer, "localhost");
+#else
+#ifdef NETWARE_386
+	rval = GETHOSTNAME(buffer, sizeof(buffer));
+	if (rval == -1) {
+		GetFileServerName(0, buffer);
+		strlwr(buffer);
+	}
+#else /* !NETWARE_386 */
+	GETHOSTNAME(buffer, sizeof(buffer));
+#endif /* !NETWARE_386 */
+#endif
+
+	port->port_host = REMOTE_make_string(buffer);
+	port->port_connection = REMOTE_make_string(buffer);
+	sprintf(buffer, "tcp (%s)", port->port_host->str_data);
+	port->port_version = REMOTE_make_string(buffer);
+
+	START_PORT_CRITICAL;
+	if (parent && !(parent->port_server_flags & SRVR_thread_per_port)) {
+		port->port_parent = parent;
+		port->port_next = parent->port_clients;
+		parent->port_clients = parent->port_next = port;
+		port->port_handle = parent->port_handle;
+		port->port_server = parent->port_server;
+		port->port_server_flags = parent->port_server_flags;
+	}
+	STOP_PORT_CRITICAL;
+
+	port->port_accept = accept_connection;
+	port->port_disconnect = disconnect;
+	port->port_receive_packet = receive;
+	port->port_send_packet = send_full;
+	port->port_send_partial = send_partial;
+	port->port_connect =
+		reinterpret_cast<PORT(*)(PORT, PACKET*, void (*)())>(aux_connect);
+	port->port_request = aux_request;
+	port->port_buff_size = (USHORT) INET_remote_buffer;
+
+	xdrinet_create(	&port->port_send, port,
+					&port->port_buffer[INET_remote_buffer],
+					(USHORT) INET_remote_buffer,
+					XDR_ENCODE);
+
+	xdrinet_create(	&port->port_receive,
+					port, port->port_buffer,
+					0,
+					XDR_DECODE);
+
+	return port;
+}
+
+static PORT aux_connect(PORT port, PACKET* packet, XDR_INT (*ast)(void))
+{
+/**************************************
+ *
+ *	a u x _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to establish an alternative connection.  Somebody has already
+ *	done a successfull connect request ("packet" contains the response).
+ *
+ **************************************/
+	P_RESP *response;
+	SOCKET n;
+	int l, status;
+	PORT new_port;
+	struct sockaddr_in address;
+#if !(defined VMS || defined NETWARE_386 || defined PC_PLATFORM || \
+	defined WIN_NT)
+	int arg;
+#endif
+
+/* If this is a server, we're got an auxiliary connection.  Accept it */
+
+	if (port->port_server_flags) {
+		l = sizeof(address);
+		n = accept(port->port_channel, (struct sockaddr *) &address, &l);
+		if (n == INVALID_SOCKET) {
+			inet_error(port, "accept", isc_net_event_connect_err, ERRNO);
+			SOCLOSE(port->port_channel);
+			return NULL;
+		}
+		SOCLOSE(port->port_channel);
+		port->port_handle = (HANDLE) n;
+		port->port_flags |= PORT_async;
+		return port;
+	}
+
+	port->port_async = new_port = alloc_port(port->port_parent);
+	new_port->port_dummy_packet_interval = port->port_dummy_packet_interval;
+	new_port->port_dummy_timeout = new_port->port_dummy_packet_interval;
+
+	new_port->port_flags |= PORT_async;
+	response = &packet->p_resp;
+
+/* Set up new socket */
+
+	if ((n = socket(AF_INET, SOCK_STREAM, 0)) == INVALID_SOCKET) {
+		inet_error(port, "socket", isc_net_event_connect_err, ERRNO);
+		return NULL;
+	}
+
+	inet_zero((SCHAR *) & address, sizeof(address));
+	inet_copy(reinterpret_cast < char *>(response->p_resp_data.cstr_address),
+			  (SCHAR *) & address, response->p_resp_data.cstr_length);
+	address.sin_family = AF_INET;
+
+	THREAD_EXIT;
+	status = connect(n, (struct sockaddr *) &address, sizeof(address));
+	THREAD_ENTER;
+
+	if (status < 0) {
+		inet_error(port, "connect", isc_net_event_connect_err, ERRNO);
+		SOCLOSE(n);
+		return NULL;
+	}
+
+#if !(defined VMS || defined NETWARE_386 || defined PC_PLATFORM || defined WIN_NT)
+	if (ast)
+	{
+
+#ifdef SUN3_3
+		arg = -getpid();
+#else
+#ifdef SOLARIS
+		arg = getpgrp();
+#else
+		arg = getpid();
+#endif
+#endif
+		if (ioctl(n, SIOCSPGRP, &arg) < 0) {
+			inet_error(port, "ioctl/SIOCSPGRP", isc_net_event_connect_err,
+					   ERRNO);
+			SOCLOSE(port->port_channel);
+			return NULL;
+		}
+
+		new_port->port_ast = ast;
+		ISC_signal(SIGURG, inet_handler, new_port);
+	}
+#endif
+
+	new_port->port_handle = (HANDLE) n;
+	new_port->port_flags |= port->port_flags & PORT_no_oob;
+
+	return new_port;
+}
+
+static PORT aux_request( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	a u x _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	A remote interface has requested the server prepare an auxiliary 
+ *	connection; the server calls aux_request to set up the connection.
+ *
+ **************************************/
+	PORT new_port;
+	P_RESP *response;
+	SOCKET n;
+	int length;
+	struct sockaddr_in address;
+#ifndef VMS
+	struct hostent *host;
+	TEXT msg[64];
+#endif
+
+/* Set up new socket */
+
+	if ((n = socket(AF_INET, SOCK_STREAM, 0)) == INVALID_SOCKET) {
+		inet_error(port, "socket", isc_net_event_listen_err, ERRNO);
+		return NULL;
+	}
+
+	address.sin_family = AF_INET;
+	address.sin_addr.s_addr = INADDR_ANY;
+	address.sin_port = 0;
+
+	if (bind(n, (struct sockaddr *) &address, sizeof(address)) < 0) {
+		inet_error(port, "bind", isc_net_event_listen_err, ERRNO);
+		return NULL;
+	}
+
+	length = sizeof(address);
+
+	if (getsockname(n, (struct sockaddr *) &address, &length) < 0) {
+		inet_error(port, "getsockname", isc_net_event_listen_err, ERRNO);
+		return NULL;
+	}
+
+	if (listen(n, 1) < 0) {
+		inet_error(port, "listen", isc_net_event_listen_err, ERRNO);
+		return NULL;
+	}
+
+	port->port_async = new_port = alloc_port(port->port_parent);
+	new_port->port_dummy_packet_interval = port->port_dummy_packet_interval;
+	new_port->port_dummy_timeout = new_port->port_dummy_packet_interval;
+
+	new_port->port_server_flags = port->port_server_flags;
+	new_port->port_channel = (int) n;
+	new_port->port_flags = port->port_flags & PORT_no_oob;
+
+	response = &packet->p_resp;
+
+#ifdef VMS
+	if (getaddr(port->port_host->str_data, &address) == -1) {
+		inet_error(port, "gethostbyname", isc_net_event_listen_err, 0);
+		return NULL;
+	}
+#else
+	THREAD_EXIT;
+	host = GETHOSTBYNAME(port->port_host->str_data);
+	THREAD_ENTER;
+	if (!host) {
+		sprintf(msg,
+				"INET/aux_request: gethostbyname failed, error code = %d",
+				H_ERRNO);
+		gds__log(msg, 0);
+		inet_gen_error(port,
+					   isc_network_error,
+					   isc_arg_string,
+					   port->port_host->str_data,
+					   isc_arg_gds,
+					   isc_net_lookup_err, isc_arg_gds, isc_host_unknown, 0);
+		return NULL;
+	}
+	inet_copy(host->h_addr, (SCHAR *) & address.sin_addr,
+			  sizeof(address.sin_addr));
+#endif
+
+	response->p_resp_data.cstr_address = (UCHAR *) & response->p_resp_blob_id;
+	response->p_resp_data.cstr_length = sizeof(response->p_resp_blob_id);
+	inet_copy((SCHAR *) & address,
+			  reinterpret_cast < char *>(response->p_resp_data.cstr_address),
+			  response->p_resp_data.cstr_length);
+
+	return new_port;
+}
+
+#ifdef VMS
+static check_host( PORT port, TEXT * host_name, TEXT * user_name)
+{
+/**************************************
+ *
+ *	c h e c k _ h o s t	( V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check the host on the other end of the socket to see it
+ *	it's an equivalent host.
+ *
+ **************************************/
+	int length, result;
+	struct sockaddr_in address;
+	TEXT hosts_file[MAXPATHLEN];
+
+	length = sizeof(address);
+
+	if (getpeername((int) port->port_handle, &address, &length) == -1)
+		return FALSE;
+
+	if (getnamebyaddr(&address, sizeof(address), host_name) == -1)
+		return FALSE;
+
+	gethosts(hosts_file);
+	if ((result = parse_hosts(hosts_file, host_name, user_name)) == -1)
+		result = FALSE;
+
+	return result;
+}
+#endif
+
+#if !(defined VMS || defined NETWARE_386 || defined PC_PLATFORM || \
+	defined WIN_NT)
+static int check_host(
+					  PORT port,
+					  TEXT * host_name,
+					  TEXT * user_name, struct passwd *passwd)
+{
+/**************************************
+ *
+ *	c h e c k _ h o s t 	 ( n o n - V M S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check the host on the other end of the socket to see it
+ *	it's an equivalent host.
+ * NB.: First check the ~/.rhosts then the HOSTS_FILE - both have
+ *	the same line formats (see parse_line)
+ *
+ **************************************/
+	TEXT user[64], rhosts[MAXPATHLEN], *hosts_file;
+	IB_FILE *fp;
+	int length, result;
+	struct sockaddr_in address;
+	struct hostent *host;
+
+	length = sizeof(address);
+
+	if (getpeername((int) port->port_handle, &address, &length) == -1)
+		return 0;
+
+
+	if (!
+		(host =
+		 gethostbyaddr((SCHAR *) & address.sin_addr, sizeof(address.sin_addr),
+					   address.sin_family))) return 0;
+
+	result = -1;
+
+	strcpy(host_name, host->h_name);
+
+	if (passwd) {
+		strcpy(user, passwd->pw_name);
+		strcpy(rhosts, passwd->pw_dir);
+		strcat(rhosts, "/.rhosts");
+		result = parse_hosts(rhosts, host_name, user);
+	}
+	else
+		strcpy(user, user_name);
+
+	if (result == -1) {
+		fp = ib_fopen(GDS_HOSTS_FILE, "r");
+		hosts_file = fp ? GDS_HOSTS_FILE : HOSTS_FILE;
+		if (fp)
+			ib_fclose(fp);
+
+		if ((result = parse_hosts(hosts_file, host_name, user)) == -1)
+			result = FALSE;
+	}
+	return result;
+}
+#endif
+
+#if !(defined NETWARE_386 || defined PC_PLATFORM || \
+	defined WIN_NT)
+static BOOLEAN check_proxy( PORT port, TEXT * host_name, TEXT * user_name)
+{
+/**************************************
+ *
+ *	c h e c k _ p r o x y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup <host_name, user_name> in proxy file.  If found,
+ *	change user_name.
+ *
+ **************************************/
+	IB_FILE *proxy;
+	TEXT *p, proxy_file[64], source_user[64], source_host[MAXHOSTLEN],
+		target_user[64], line[128];
+	int c;
+	BOOLEAN result;
+	SLONG length;
+	STR string;
+
+#ifndef VMS
+	strcpy(proxy_file, PROXY_FILE);
+#else
+	gds__prefix(proxy_file, PROXY_FILE);
+#endif
+	if (!(proxy = ib_fopen(proxy_file, "r")))
+		return FALSE;
+
+/* Read lines, scan, and compare */
+
+	result = FALSE;
+
+	for (;;) {
+		for (p = line;
+			 ((c = ib_getc(proxy)) != NULL) && c != EOF && c != '\n';)
+			*p++ = c;
+		*p = 0;
+		if (sscanf(line, " %[^:]:%s%s", source_host, source_user, target_user)
+			>= 3)
+			if ((!strcmp(source_host, host_name) || !strcmp(source_host, "*"))
+				&& (!strcmp(source_user, user_name)
+					|| !strcmp(source_user, "*"))) {
+				ALLR_free(port->port_user_name);
+				length = strlen(target_user);
+				port->port_user_name = string =
+					(STR) ALLOCV(type_str, (int) length);
+				string->str_length = length;
+				strncpy(string->str_data, target_user, length);
+				strcpy(user_name, target_user);
+				result = TRUE;
+				break;
+			}
+		if (c == EOF)
+			break;
+	}
+
+	ib_fclose(proxy);
+
+	return result;
+}
+#endif
+
+static void disconnect( PORT port)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break a remote connection.
+ *
+ **************************************/
+	PORT parent;
+	int n;
+#ifdef	DEFER_PORT_CLEANUP
+	SSHORT defer_cleanup = 0;
+#endif
+
+#ifndef VMS
+/* SO_LINGER was turned off on the initial bind when the server was started.
+ * This will force a reset to be sent to the client when the socket is closed.
+ * We only want this behavior in the case of the server terminiating
+ * abnormally and not on an orderly shut down.  Because of this, turn the
+ * SO_LINGER option back on for the socket.  The result of setsockopt isn't
+ * too important at this stage since we are closing the socket anyway.  This
+ * is an attempt to return the socket to a state where a graceful shutdown can
+ * occur.
+ */
+
+	if (port->port_linger.l_onoff) {
+		n = setsockopt((SOCKET) port->port_handle, SOL_SOCKET, SO_LINGER,
+					   (SCHAR *) & port->port_linger,
+					   sizeof(port->port_linger));
+	}
+
+#if defined WIN_NT
+
+	if (port->port_handle && (SOCKET) port->port_handle != INVALID_SOCKET) {
+		shutdown((int) port->port_handle, 2);
+	}
+
+#else /* WIN_NT */
+
+	if (port->port_handle) {
+		shutdown((int) port->port_handle, 2);
+	}
+
+#endif /* WIN_NT */
+
+#endif /* !VMS */
+
+#if !(defined VMS || defined NETWARE_386 || defined PC_PLATFORM || \
+	defined WIN_NT)
+	if (port->port_ast) {
+		ISC_signal_cancel(SIGURG, inet_handler, port);
+	}
+#endif
+
+/* If this is a sub-port, unlink it from it's parent */
+
+#ifdef  DEFER_PORT_CLEANUP
+	port->port_state = state_disconnected;
+#endif
+	if ((parent = port->port_parent) != NULL) {
+		if (port->port_async) {
+			disconnect(port->port_async);
+			port->port_async = NULL;
+		}
+#ifdef	DEFER_PORT_CLEANUP
+		defer_cleanup = 1;
+#else
+		unhook_port(port, parent);
+#endif
+	}
+	else if (port->port_async) {
+#ifdef MULTI_THREAD
+		port->port_async->port_flags |= PORT_disconnect;
+#else
+		disconnect(port->port_async);
+		port->port_async = NULL;
+#endif
+	}
+
+	if (port->port_handle) {
+		SOCLOSE((SOCKET) port->port_handle);
+	}
+
+	gds__unregister_cleanup(exit_handler, (void *) port);
+
+#ifdef DEFER_PORT_CLEANUP
+	if (!defer_cleanup)
+#endif
+		cleanup_port(port);
+
+#ifdef DEBUG
+	if (INET_trace & TRACE_summary) {
+		ib_fprintf(ib_stdout, "INET_count_send = %d packets\n",
+				   INET_count_send);
+		ib_fprintf(ib_stdout, "INET_bytes_send = %d bytes\n",
+				   INET_bytes_send);
+		ib_fprintf(ib_stdout, "INET_count_recv = %d packets\n",
+				   INET_count_recv);
+		ib_fprintf(ib_stdout, "INET_bytes_recv = %d bytes\n",
+				   INET_bytes_recv);
+		ib_fflush(ib_stdout);
+	}
+#endif
+
+	return;
+}
+
+
+static void cleanup_port( PORT port)
+{
+/**************************************
+ *
+ *	c l e a n u p _ p o r t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk through the port structure freeing
+ * 	allocated memory and then free the port.
+ *
+ **************************************/
+
+	if (port->port_version)
+		ALLR_free((UCHAR *) port->port_version);
+
+	if (port->port_connection)
+		ALLR_free((UCHAR *) port->port_connection);
+
+	if (port->port_user_name)
+		ALLR_free((UCHAR *) port->port_user_name);
+
+	if (port->port_host)
+		ALLR_free((UCHAR *) port->port_host);
+
+	if (port->port_object_vector)
+		ALLR_free((UCHAR *) port->port_object_vector);
+
+#ifdef DEBUG_XDR_MEMORY
+	if (port->port_packet_vector)
+		ALLR_free((UCHAR *) port->port_packet_vector);
+#endif
+
+	ALLR_release((UCHAR *) port);
+	return;
+}
+
+static void exit_handler( void *arg)
+{
+/**************************************
+ *
+ *	e x i t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown all active connections
+ *	to allow restart.
+ *
+ **************************************/
+	PORT port, main_port;
+
+	main_port = (PORT) arg;
+
+#ifdef WIN_NT
+	if (!main_port) {
+		WSACleanup();
+		return;
+	}
+#endif
+
+#ifndef VMS
+	for (port = main_port; port; port = port->port_next) {
+		shutdown((int) port->port_handle, 2);
+		SOCLOSE((SOCKET) port->port_handle);
+	}
+#endif
+}
+
+#ifdef NO_FORK
+static int fork(void)
+{
+/**************************************
+ *
+ *	f o r k		( N O _ F O R K )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Hmmm.
+ *
+ **************************************/
+
+	return 1;
+}
+#endif
+
+#ifdef WIN_NT
+static int fork( SOCKET old_handle, USHORT flag)
+{
+/**************************************
+ *
+ *	f o r k		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a child process.
+ *
+ **************************************/
+	HANDLE new_handle;
+	USHORT ret;
+	STARTUPINFO start_crud;
+	PROCESS_INFORMATION pi;
+
+	if (!INET_command_line[0]) {
+		SC_HANDLE manager, service;
+
+		if ((manager = OpenSCManager(NULL, NULL, SC_MANAGER_CONNECT)) &&
+			(service =
+			 OpenService(manager, REMOTE_SERVICE, SERVICE_QUERY_CONFIG))) {
+			LPQUERY_SERVICE_CONFIG config;
+			SCHAR buffer[1024];
+			DWORD config_len;
+
+			config = (LPQUERY_SERVICE_CONFIG) buffer;
+			if (!QueryServiceConfig
+				(service, config, sizeof(buffer), &config_len)) {
+				THREAD_ENTER;
+				config = (LPQUERY_SERVICE_CONFIG) ALLR_alloc(config_len);
+				/* NOMEM: ALLR_alloc handled */
+				/* FREE:  later in this block */
+				QueryServiceConfig(service, config, config_len, &config_len);
+			}
+			strcpy(INET_command_line, config->lpBinaryPathName);
+			if ((SCHAR *) config != buffer) {
+				ALLR_free(config);
+				THREAD_EXIT;
+			}
+			CloseServiceHandle(service);
+		}
+		else
+			strcpy(INET_command_line, GetCommandLine());
+		CloseServiceHandle(manager);
+		INET_p = INET_command_line + strlen(INET_command_line);
+	}
+
+	DuplicateHandle(GetCurrentProcess(), (HANDLE) old_handle,
+					GetCurrentProcess(), &new_handle, 0, TRUE,
+					DUPLICATE_SAME_ACCESS);
+
+	sprintf(INET_p, " -s -i -h %d", (SLONG) new_handle);
+	start_crud.cb = sizeof(STARTUPINFO);
+	start_crud.lpReserved = NULL;
+	start_crud.lpReserved2 = NULL;
+	start_crud.cbReserved2 = 0;
+	start_crud.lpDesktop = NULL;
+	start_crud.lpTitle = NULL;
+	start_crud.dwFlags = 0;
+	if (ret = CreateProcess(NULL,
+							INET_command_line,
+							NULL,
+							NULL,
+							TRUE,
+							(flag & SRVR_high_priority ?
+							 HIGH_PRIORITY_CLASS | DETACHED_PROCESS :
+							 NORMAL_PRIORITY_CLASS | DETACHED_PROCESS),
+							NULL, NULL, &start_crud, &pi)) {
+		CloseHandle(pi.hThread);
+		CloseHandle(pi.hProcess);
+	}
+	CloseHandle(new_handle);
+
+	return 1;
+}
+#endif
+
+
+//____________________________________________________________
+//  
+//	Copy an array of p_cnct::p_cnct_repeat.
+//  
+static void copy_p_cnct_repeat_array(	p_cnct::p_cnct_repeat*			pDest,
+										const p_cnct::p_cnct_repeat*	pSource,
+										size_t							nEntries)
+{
+	for (size_t i=0; i < nEntries; ++i) {
+		pDest[i] = pSource[i];
+	}
+}
+
+
+static void inet_copy( SCHAR * from, SCHAR * to, int length)
+{
+/**************************************
+ *
+ *	i n e t _ c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a number of bytes;
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while ((--length) != 0);
+}
+
+static void inet_zero( SCHAR * address, int length)
+{
+/**************************************
+ *
+ *	i n e t _  z e r o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zero a block of memory.
+ *
+ **************************************/
+
+	if (length)
+		do
+			*address++ = 0;
+		while ((--length) != 0);
+}
+
+#if !(defined NETWARE_386 || defined PC_PLATFORM || \
+	defined WIN_NT)
+static int parse_hosts( TEXT * file_name, TEXT * host_name, TEXT * user_name)
+{
+/*****************************************************************
+ *
+ *	p a r s e _ h o s t s
+ *
+ *****************************************************************
+ *
+ * Functional description:
+ *	Parse hosts file (.rhosts or hosts.equiv) to determine
+ *	if user_name on host_name should be allowed access.
+ *
+ *****************************************************************/
+	IB_FILE *fp;
+	int c, result;
+	TEXT *p, line[256], entry1[256], entry2[256];
+
+	result = -1;
+	fp = ib_fopen(file_name, "r");
+
+	if (fp) {
+		for (;;) {
+			entry1[0] = entry2[0] = 0;
+			entry1[1] = entry2[1] = 0;
+			for (p = line; (c = ib_getc(fp)) != EOF && c != '\n';)
+				*p++ = c;
+			*p = 0;
+			sscanf(line, "%s", entry1);
+			sscanf(&line[strlen(entry1)], "%s", entry2);
+			result = parse_line(entry1, entry2, host_name, user_name);
+			if (c == EOF || result > -1)
+				break;
+		}
+		ib_fclose(fp);
+	}
+
+	return result;
+}
+#endif
+
+#if !(defined NETWARE_386 || defined PC_PLATFORM || \
+	defined WIN_NT)
+static int parse_line(
+					  TEXT * entry1,
+					  TEXT * entry2, TEXT * host_name, TEXT * user_name)
+{
+/*****************************************************************
+ *
+ *	p a r s e _ l i n e 
+ *
+ *****************************************************************
+ *
+ * Functional description:
+ *	Parse hosts file (.rhosts or hosts.equiv) to determine
+ *	if user_name on host_name should be allowed access.
+ *
+ * only supporting:
+ *    + - anybody on any machine
+ *    -@machinegroup [2nd entry optional] - nobody on that machine
+ *    +@machinegroup - anybody on that machine
+ *    +@machinegroup username - this person on these machines
+ *    +@machinegroup +@usergroup - these people  on these machines
+ *    +@machinegroup -@usergroup - anybody on these machines EXCEPT these people
+ *    machinename - anyone on this machine
+ *    machinename username - this person on this machine
+ *    machinename +@usergroup - these people on this machine
+ *    machinename -@usergroup - anybody but these people on this machine
+ *    machinename + - anybody on this machine
+ *
+ ******************************************************************/
+
+/* if entry1 is simply a "+" - everyone's in */
+
+	if (!strcmp(entry1, "+"))
+		return TRUE;
+
+/* if we don't have a host_name match, don't bother */
+
+	if (strcmp(entry1, host_name))
+#ifdef UNIX
+#if !(defined XENIX || defined EPSON || defined UNIXWARE || defined NCR3000)
+		if (entry1[1] == '@') {
+			if (!innetgr(&entry1[2], host_name, 0, 0))
+				return -1;
+		}
+		else
+#endif
+#endif
+			return -1;
+
+/* if we have a host_name match and an exclude symbol - they're out */
+
+	if (entry1[0] == '-')
+		return FALSE;
+
+/* if we matched the machine and seen a + after the machine
+   name they are in (eg: <machinename> + ) */
+
+	if ((entry2[0] == '+') && (strlen(entry2) == 1))
+		return TRUE;
+
+/* if we don't have a second entry OR it matches the user_name - they're in */
+
+	if (!entry2[0] || !strcmp(entry2, user_name))
+		return TRUE;
+
+/* if they're in the user group: + they're in, - they're out */
+
+#ifdef UNIX
+#if !(defined XENIX || defined EPSON || defined UNIXWARE || defined NCR3000)
+	if (entry2[1] == '@') {
+		if (innetgr(&entry2[2], 0, user_name, 0)) {
+			if (entry2[0] == '+')
+				return TRUE;
+			else
+				return FALSE;
+		}
+		else {
+			/* if they're NOT in the user group AND we're excluding it 
+			   - they're in */
+
+			if (entry2[0] == '-')
+				return TRUE;
+		}
+	}
+#endif
+#endif
+
+/* if we get here - we matched machine but not user - maybe next line ... */
+
+	return -1;
+}
+#endif
+
+static PORT receive( PORT main_port, PACKET * packet)
+{
+/**************************************
+ *
+ *	r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message from a port or clients of a port.  If the process
+ *	is a server and a connection request comes in, generate a new port
+ *	block for the client.
+ *
+ **************************************/
+	PORT port;
+
+/* If this isn't a multi-client server, just do the operation and get it
+   over with */
+
+	if (!(main_port->port_server_flags & SRVR_multi_client)) {
+		/* loop as long as we are receiving dummy packets, just
+		   throwing them away--note that if we are a server we won't 
+		   be receiving them, but it is better to check for them at 
+		   this level rather than try to catch them in all places where 
+		   this routine is called */
+
+		do {
+			if (!xdr_protocol(&main_port->port_receive, packet))
+				return NULL;
+#ifdef DEBUG
+			{
+				static ULONG op_rec_count = 0;
+				op_rec_count++;
+				if (INET_trace & TRACE_operations) {
+					ib_fprintf(ib_stdout, "%04d: OP Recd %5d opcode %d\n",
+							   inet_debug_timer(),
+							   op_rec_count, packet->p_operation);
+					ib_fflush(ib_stdout);
+				}
+			}
+#endif
+		}
+		while (packet->p_operation == op_dummy);
+
+		return main_port;
+	}
+
+/* Multi-client server multiplexes all known ports for incoming packets. */
+
+	for (;;) {
+#ifdef NETWARE_386
+		port = select_port(main_port);
+#else
+		port = select_port(main_port, &INET_select);
+#endif
+		if (port == main_port) {
+			if (port = select_accept(main_port))
+				return port;
+			continue;
+		}
+		if (port) {
+			if (port->port_dummy_timeout < 0) {
+				port->port_dummy_timeout = port->port_dummy_packet_interval;
+				if (port->port_flags & PORT_async ||
+					port->port_protocol < PROTOCOL_VERSION8) continue;
+				packet->p_operation = op_dummy;
+				return port;
+			}
+			/* We've got data -- lap it up and use it */
+
+			if (!xdr_protocol(&port->port_receive, packet))
+				packet->p_operation = op_exit;
+#ifdef DEBUG
+			{
+				static ULONG op_rec_count = 0;
+				op_rec_count++;
+				if (INET_trace & TRACE_operations) {
+					ib_fprintf(ib_stdout, "%05d: OP Recd %5d opcode %d\n",
+							   inet_debug_timer(),
+							   op_rec_count, packet->p_operation);
+					ib_fflush(ib_stdout);
+				}
+			};
+#endif
+
+/*  Make sure that there are no more messages in this port before blocking
+    ourselves in select_wait. If there are more messages then set the flag
+    corresponding to this port which was cleared in select_port routine.
+*/
+#ifndef NETWARE_386
+			if (port->port_receive.x_handy) {
+				FD_SET((SLONG) port->port_handle, &INET_select.slct_fdset);
+				++INET_select.slct_count;
+			}
+#else
+			/* DGUX compiler does not treat correctly abbreviation in such a constructions so
+			   "we've" was changed to "we have" */
+			/* 5.5 SCO Port: Used #error to generate compiler error */
+#error	Generated a compiler error since we have not put in the NetWare specific code here.
+#endif
+			if (packet->p_operation == op_dummy)
+				continue;
+
+			return port;
+		}
+#ifdef NETWARE_386
+		if (!select_wait(main_port))
+#else
+		if (!select_wait(main_port, &INET_select))
+#endif
+			return NULL;
+	}
+}
+
+static PORT select_accept( PORT main_port)
+{
+/**************************************
+ *
+ *	s e l e c t _ a c c e p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept a new connection request.
+ *	If client load is exceeded then
+ *	handoff connection responsibility
+ *	to a fresh server.
+ *
+ **************************************/
+	PORT port;
+	int l;
+	struct sockaddr_in address;
+	int optval = 1;
+#if !(defined NETWARE_386 || defined PC_PLATFORM || \
+	defined WIN_NT)
+	TEXT msg[64];
+	int n;
+#endif
+
+	port = alloc_port(main_port);
+	l = sizeof(address);
+
+	port->port_handle = (HANDLE) accept((SOCKET) main_port->port_handle,
+										(struct sockaddr *) &address, &l);
+	if ((SOCKET) port->port_handle == INVALID_SOCKET) {
+		inet_error(port, "accept", isc_net_connect_err, ERRNO);
+		disconnect(port);
+		return 0;
+	}
+
+	setsockopt((SOCKET) port->port_handle, SOL_SOCKET, SO_KEEPALIVE,
+			   (SCHAR *) & optval, sizeof(optval));
+
+#if !(defined SUPERSERVER || defined VMS || defined NETWARE_386 || \
+      defined PC_PLATFORM || defined WIN_NT)
+	for (n = 0, port = main_port->port_clients; port;
+		 n++, port = port->port_next);
+	if (n >= INET_max_clients) {
+		main_port->port_state = state_closed;
+		SOCLOSE((int) main_port->port_handle);
+
+		sprintf(msg,
+				"INET/select_accept: exec new server at client limit: %d", n);
+		gds__log(msg, 0);
+
+		setreuid(0, 0);
+		kill(getppid(), SIGUSR1);
+	}
+#endif
+
+	if (main_port->port_server_flags & SRVR_thread_per_port) {
+		port->port_server_flags =
+			(SRVR_server | SRVR_inet | SRVR_thread_per_port);
+		return port;
+	}
+
+	return 0;
+}
+
+#ifdef NETWARE_386
+static PORT select_port(PORT main_port)
+{
+/**************************************
+ *
+ *	s e l e c t _ p o r t  ( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Select a descriptor that is ready to read
+ *	and return the port block. Return NULL if
+ *	none are active.
+ *
+ **************************************/
+	PORT port;
+	int n;
+	int i;
+
+	if (!select_count)
+		return NULL;
+
+	for (port = main_port; port; port = port->port_next)
+		if ((port->port_fdset)
+			&& FD_ISSET(port->port_handle, port->port_fdset)) {
+			FD_CLR(port->port_handle, (fd_set *) port->port_fdset);
+			--select_count;
+			return port;
+		}
+
+/* if we cannot find any ports data in fd_set is bad reset it */
+	for (i = 0; i < MAX_FD_SETS; i++)
+		FD_ZERO(&(fd_sets[i]));
+	select_count = 0;
+	return NULL;
+}
+
+static int select_wait(PORT main_port)
+{
+/**************************************
+ *
+ *	s e l e c t _ w a i t    ( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Select interesting descriptors from
+ *	port blocks and wait for something
+ *	to read from them.
+ *
+ **************************************/
+	PORT port;
+	USHORT i;
+	USHORT found;
+	USHORT set_number;
+	int count = 0;
+
+	struct timeval timeout;
+
+	timeout.tv_sec = 0;
+	timeout.tv_usec = 0;
+
+	THREAD_EXIT;
+
+	while (!select_count) {
+		for (i = 0; i < MAX_FD_SETS; i++)
+			FD_ZERO(&(fd_sets[i]));
+
+		found = 0;
+		set_number = 0;
+		for (port = main_port; port; port = port->port_next)
+			if ((port->port_state == state_active) ||
+				(port->port_state == state_pending)) {
+				if (((found % FD_SETSIZE) == 0) && (found != 0))
+					set_number++;
+
+				FD_SET((SLONG) port->port_handle, &(fd_sets[set_number]));
+				port->port_fdset = &(fd_sets[set_number]);
+				found++;
+			}
+
+		if (set_number == 0) {
+			count = select(FD_SETSIZE, &(fd_sets[0]), 0, 0, NULL);
+			if (count != -1)
+				select_count += count;
+		}
+		else {
+			for (i = 0; i <= set_number; i++) {
+				count = select(FD_SETSIZE, &(fd_sets[i]), 0, 0, &timeout);
+				if (count != -1)
+					select_count += count;
+			}
+		}
+
+		ThreadSwitch();
+	}
+
+	THREAD_ENTER;
+
+	return (TRUE);
+}
+#endif
+
+#ifndef NETWARE_386
+static PORT select_port( PORT main_port, SLCT * selct)
+{
+/**************************************
+ *
+ *	s e l e c t _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Select a descriptor that is ready to read
+ *	and return the port block. Additionally,
+ *	check if a port's keepalive timer has
+ *	expired and return the port block so that
+ *	a keepalive packet can be queued. Return
+ *	NULL if	none are active.
+ *
+ **************************************/
+	PORT port;
+
+#if !defined(WIN_NT)
+	int n;
+#endif
+
+#ifdef WIN_NT
+
+/* NT's socket handles are addresses */
+/* TMN: No, they are "black-box" handles. */
+
+	START_PORT_CRITICAL;
+#ifdef  DEFER_PORT_CLEANUP
+	unhook_disconnected_ports(main_port);
+#endif
+	for (port = main_port; port; port = port->port_next)
+		if (FD_ISSET(port->port_handle, &selct->slct_fdset)) {
+			port->port_dummy_timeout = port->port_dummy_packet_interval;
+
+#pragma FB_COMPILER_MESSAGE("TODO: Make porthandle a SOCKET on Win32")
+
+			FD_CLR((SOCKET) port->port_handle, &selct->slct_fdset);
+			--selct->slct_count;
+			STOP_PORT_CRITICAL;
+			return port;
+		}
+		else if (port->port_dummy_timeout < 0) {
+			STOP_PORT_CRITICAL;
+			return port;
+		}
+
+	STOP_PORT_CRITICAL;
+#else
+#ifdef PC_PLATFORM
+/* Check for handle in the FD array */
+
+	for (port = main_port; port; port = port->port_next)
+		for (n = 0; n < selct->slct_fdset.fd_count; n++)
+			if (selct->slct_fdset.fd_array[n] == (int) (port->port_handle)) {
+				port->port_dummy_timeout = port->port_dummy_packet_interval;
+				FD_CLR((int) (port->port_handle), &selct->slct_fdset);
+				--selct->slct_count;
+				return port;
+			}
+			else if (port->port_dummy_timeout < 0)
+				return port;
+#else
+	START_PORT_CRITICAL;
+#ifdef  DEFER_PORT_CLEANUP
+	unhook_disconnected_ports(main_port);
+#endif
+	for (port = main_port; port; port = port->port_next) {
+		n = (int) port->port_handle;
+		if (n < selct->slct_width && FD_ISSET(n, &selct->slct_fdset)) {
+			port->port_dummy_timeout = port->port_dummy_packet_interval;
+			FD_CLR(n, &selct->slct_fdset);
+			--selct->slct_count;
+			STOP_PORT_CRITICAL;
+			return port;
+		}
+		else if (port->port_dummy_timeout < 0) {
+			STOP_PORT_CRITICAL;
+			return port;
+		}
+	}
+	STOP_PORT_CRITICAL;
+#endif
+#endif
+
+	return NULL;
+}
+
+static int select_wait( PORT main_port, SLCT * selct)
+{
+/**************************************
+ *
+ *	s e l e c t _ w a i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Select interesting descriptors from
+ *	port blocks and wait for something
+ *	to read from them.
+ *
+ **************************************/
+	PORT port;
+	USHORT found;
+	TEXT msg[64];
+	SLONG delta_time;
+	struct timeval timeout;
+
+	timeout.tv_sec = SELECT_TIMEOUT;
+	timeout.tv_usec = 0;
+
+	for (;;)
+	{
+		selct->slct_count = selct->slct_width = 0;
+		FD_ZERO(&selct->slct_fdset);
+		found = FALSE;
+
+		/* Use the time interval between select() calls to expire
+		   keepalive timers on all ports. */
+
+		if (selct->slct_time)
+		{
+			delta_time = (SLONG) time(NULL) - selct->slct_time;
+			selct->slct_time += delta_time;
+		}
+		else
+		{
+			delta_time = 0;
+			selct->slct_time = (SLONG) time(NULL);
+		}
+
+		START_PORT_CRITICAL;
+#ifdef  DEFER_PORT_CLEANUP
+		unhook_disconnected_ports(main_port);
+#endif
+		for (port = main_port; port; port = port->port_next)
+		{
+			if ((port->port_state == state_active) ||
+				(port->port_state == state_pending))
+			{
+				/* Adjust down the port's keepalive timer. */
+
+				if (port->port_dummy_packet_interval)
+				{
+					port->port_dummy_timeout -= delta_time;
+				}
+
+				FD_SET((SLONG) port->port_handle, &selct->slct_fdset);
+#ifdef WIN_NT
+				++selct->slct_width;
+#else
+				selct->slct_width =
+					MAX(selct->slct_width, (int) port->port_handle);
+#endif
+				found = TRUE;
+			}
+		}
+		STOP_PORT_CRITICAL;
+
+		if (!found)
+		{
+			gds__log
+				("INET/select_wait: client rundown complete, server exiting",
+				 0);
+			return FALSE;
+		}
+
+		THREAD_EXIT;
+		++selct->slct_width;
+
+		for (;;)
+		{
+			// Some platforms change the timeout in the select call.
+			// Reset timeout for each iteration to avoid problems.
+			timeout.tv_sec = SELECT_TIMEOUT;
+			timeout.tv_usec = 0;
+
+#ifdef WIN_NT
+			selct->slct_count = select(FD_SETSIZE, &selct->slct_fdset,
+									   (fd_set *) NULL, (fd_set *) NULL,
+									   &timeout);
+#else
+			selct->slct_count = select(selct->slct_width, &selct->slct_fdset,
+									   (fd_set *) NULL, (fd_set *) NULL,
+									   &timeout);
+#endif
+			if (selct->slct_count != -1)
+			{
+				/* if selct->slct_count is zero it means that we timed out of
+				   select with nothing to read or accept, so clear the fd_set 
+				   bit as this value is undefined on some platforms (eg. HP-UX), 
+				   when the select call times out. Once these bits are cleared
+				   they can be used in select_port() */
+				if (selct->slct_count == 0)
+				{
+					for (port = main_port; port; port = port->port_next)
+					{
+#ifdef WIN_NT
+						FD_CLR((SOCKET)port->port_handle, &selct->slct_fdset);
+#else
+						FD_CLR(port->port_handle, &selct->slct_fdset);
+#endif
+					}
+				}
+				THREAD_ENTER;
+				return TRUE;
+			}
+			else if (INTERRUPT_ERROR(ERRNO))
+				continue;
+#ifndef WIN_NT
+			else if (ERRNO == EBADF)
+				break;
+#else
+			else if (ERRNO == WSAENOTSOCK)
+				break;
+#endif
+			else {
+				THREAD_ENTER;
+				sprintf(msg, "INET/select_wait: select failed, errno = %d",
+						ERRNO);
+				gds__log(msg, 0);
+				return FALSE;
+			}
+		}	// for (;;)
+
+		THREAD_ENTER;
+	}
+}
+#endif
+
+static int send_full( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	s e n d _ f u l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+	if (!xdr_protocol(&port->port_send, packet))
+		return FALSE;
+
+#ifdef DEBUG
+	{
+		static ULONG op_sent_count = 0;
+		op_sent_count++;
+		if (INET_trace & TRACE_operations) {
+			ib_fprintf(ib_stdout, "%05d: OP Sent %5d opcode %d\n",
+					   inet_debug_timer(),
+					   op_sent_count, packet->p_operation);
+			ib_fflush(ib_stdout);
+		};
+	};
+#endif
+
+	return xdrinet_endofrecord(&port->port_send, TRUE);
+}
+
+static int send_partial( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	s e n d _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+#ifdef DEBUG
+	{
+		static ULONG op_sentp_count = 0;
+		op_sentp_count++;
+		if (INET_trace & TRACE_operations) {
+			ib_fprintf(ib_stdout, "%05d: OP Sent %5d opcode %d (partial)\n",
+					   inet_debug_timer(),
+					   op_sentp_count, packet->p_operation);
+			ib_fflush(ib_stdout);
+		};
+	};
+#endif
+
+	return xdr_protocol(&port->port_send, packet);
+}
+
+
+static int xdrinet_create(
+						  XDR * xdrs,
+						  PORT port,
+						  UCHAR * buffer, USHORT length, enum xdr_op x_op)
+{
+/**************************************
+ *
+ *	x d r i n e t _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize an XDR stream for Apollo mailboxes.
+ *
+ **************************************/
+
+	xdrs->x_public = (caddr_t) port;
+	xdrs->x_base = xdrs->x_private = (SCHAR *) buffer;
+	xdrs->x_handy = length;
+	xdrs->x_ops = (xdr_t::xdr_ops *) & inet_ops;
+	xdrs->x_op = x_op;
+
+	return TRUE;
+}
+
+static bool_t xdrinet_endofrecord( XDR * xdrs, bool_t flushnow)
+{
+/**************************************
+ *
+ *	x d r i n e t _ e n d o f r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out the rest of a record.
+ *
+ **************************************/
+
+	return inet_write(xdrs, flushnow);
+}
+
+static void alarm_handler( int x)
+{
+/**************************************
+ *
+ *	a l a r m _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle an alarm clock interrupt.  If we were waiting on
+ *	a semaphone, zap it.
+ *
+ **************************************/
+}
+
+static XDR_INT inet_destroy( XDR * xdrs)
+{
+/**************************************
+ *
+ *	i n e t _ d e s t r o y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Destroy a stream.  A no-op.
+ *
+ **************************************/
+
+	return NULL;
+}
+
+static void inet_gen_error( PORT port, STATUS status, ...)
+{
+/**************************************
+ *
+ *	i n e t _ g e n _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An error has occurred.  Mark the port as broken.
+ *	Format the status vector if there is one and
+ *	save the status vector strings in a permanent place.
+ *
+ **************************************/
+	STATUS *status_vector;
+
+	port->port_flags |= PORT_broken;
+	port->port_state = state_broken;
+
+	status_vector = NULL;
+	if (port->port_context != NULL) {
+		status_vector = port->port_context->rdb_status_vector;
+	}
+	if (status_vector == NULL) {
+		status_vector = port->port_status_vector;
+	}
+	if (status_vector != NULL) {
+		STUFF_STATUS(status_vector, status);
+		REMOTE_save_status_strings(status_vector);
+	}
+}
+
+static bool_t inet_getbytes( XDR * xdrs, SCHAR * buff, u_int count)
+{
+/**************************************
+ *
+ *	i n e t _ g e t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a bunch of bytes from a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(buff, xdrs->x_private, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(buff, xdrs->x_private, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!inet_read(xdrs))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*buff++ = *xdrs->x_private++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (!xdrs->x_handy && !inet_read(xdrs))
+			return FALSE;
+		*buff++ = *xdrs->x_private++;
+		--xdrs->x_handy;
+	}
+
+	return TRUE;
+}
+
+static bool_t inet_getlong( XDR * xdrs, SLONG * lp)
+{
+/**************************************
+ *
+ *	i n e t _ g e t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+
+	SLONG l;
+
+	if (!(*xdrs->x_ops->x_getbytes) (xdrs, reinterpret_cast < char *>(&l), 4))
+		return FALSE;
+
+	*lp = ntohl(l);
+
+	return TRUE;
+}
+
+static u_int inet_getpostn( XDR * xdrs)
+{
+/**************************************
+ *
+ *	i n e t _ g e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	return (u_int) (xdrs->x_private - xdrs->x_base);
+}
+
+#if !(defined NETWARE_386 || defined PC_PLATFORM || \
+	defined WIN_NT)
+static void inet_handler( PORT port)
+{
+/**************************************
+ *
+ *	i n e t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Inet_handler is called the the signal handler on receipt of
+ *	a SIGURG signal indicating out-of-band data.  Since SIGURG
+ *	may be noisy, check to see if any IO is pending on the channel.
+ *	If not, ignore the signal.  If so, call the port specific 
+ *	handler to do something appropriate.
+ *
+ **************************************/
+	int n;
+	UCHAR junk;
+
+/* If there isn't any out of band data, this signal isn't for us */
+
+	if ((n = recv((SOCKET) port->port_handle, &junk, 1, MSG_OOB)) < 0) {
+
+#ifdef NCR3000
+		/* this is all being added for ncr's pecular behaviour with
+		   SIGURG.  As if we get a sigurg and a receive with OOB fails
+		   we need to do a regular recv call to enable SIGURG
+		   signals on further OOB data. */
+		if (errno == EWOULDBLOCK) {
+			/* set the flag to non blocking and attempt a normal recv */
+			char arg = 1;
+			int n_recv;
+
+			if (ioctl(port->port_handle, FIONBIO, &arg) < 0) {
+				/* donot want to peek if we cannot set the socket to
+				   non blocking as then recv() with PEEK waits till
+				   data arrives, and we donot want ot block in a
+				   signal handler that long. In fact we always expect
+				   recv to fail. */
+
+				return;
+			}
+			/* attempt normal receive this is done inorder to make sigurg
+			   work correctly on the ncr system. */
+			n_recv = recv(port->port_handle, &junk, 1, MSG_PEEK);
+			/* set socket to blocking again */
+			arg = 0;
+			ioctl(port->port_handle, FIONBIO, &arg);
+		}
+#endif
+
+		return;
+	}
+	(*port->port_ast) (port);
+}
+#endif
+
+static caddr_t inet_inline( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	i n e t _  i n l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a pointer to somewhere in the buffer.
+ *
+ **************************************/
+
+	if (bytecount > (u_int) xdrs->x_handy)
+		return FALSE;
+
+	return xdrs->x_base + bytecount;
+}
+
+static int inet_error(
+					  PORT port,
+					  CONST TEXT * function, STATUS operation, int status)
+{
+/**************************************
+ *
+ *	i n e t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An I/O error has occurred.  Call
+ * 	inet_gen_error with the appropriate args
+ *	to format the status vector if any.
+ *	In any case, return NULL, which
+ *	is used to indicate an error.
+ *
+ **************************************/
+	TEXT msg[64];
+
+	if (status) {
+#ifdef VMS
+		if ((status >= sys_nerr || !sys_errlist[status]) &&
+			status < WIN_NERR && win_errlist[status])
+			inet_gen_error(port, isc_network_error,
+						   gds_arg_string,
+						   (STATUS) port->port_connection->str_data,
+						   isc_arg_gds, operation, gds_arg_string,
+						   (STATUS) win_errlist[status], 0);
+		else
+#endif
+			inet_gen_error(port, isc_network_error,
+						   gds_arg_string,
+						   (STATUS) port->port_connection->str_data,
+						   isc_arg_gds, operation, SYS_ERR, status, 0);
+
+		sprintf(msg, "INET/inet_error: %s errno = %d", function, status);
+		gds__log(msg, 0);
+	}
+	else {
+		/* No status value, just format the basic arguments. */
+
+		inet_gen_error(port, isc_network_error,
+					   gds_arg_string,
+					   (STATUS) port->port_connection->str_data, isc_arg_gds,
+					   operation, 0);
+	}
+
+	return (int) NULL;
+}
+
+static bool_t inet_putbytes( XDR * xdrs, SCHAR * buff, u_int count)
+{
+/**************************************
+ *
+ *	i n e t _ p u t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a bunch of bytes to a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(xdrs->x_private, buff, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(xdrs->x_private, buff, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!inet_write(xdrs, 0))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*xdrs->x_private++ = *buff++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (xdrs->x_handy <= 0 && !inet_write(xdrs, 0))
+			return FALSE;
+		--xdrs->x_handy;
+		*xdrs->x_private++ = *buff++;
+	}
+
+	return TRUE;
+}
+
+static bool_t inet_putlong( XDR * xdrs, SLONG * lp)
+{
+/**************************************
+ *
+ *	i n e t _ p u t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG l;
+
+	l = htonl(*lp);
+	return (*xdrs->x_ops->x_putbytes) (xdrs,
+									   reinterpret_cast < char *>(AOF32L(l)),
+									   4);
+}
+
+static bool_t inet_read( XDR * xdrs)
+{
+/**************************************
+ *
+ *	i n e t _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a buffer full of data.  If we receive a bad packet,
+ *	send the moral equivalent of a NAK and retry.  ACK all
+ *	partial packets.  Don't ACK the last packet -- the next
+ *	message sent will handle this.
+ *
+ **************************************/
+	PORT port;
+	SSHORT length;
+	SCHAR *p, *end;
+
+	port = (PORT) xdrs->x_public;
+	p = xdrs->x_base;
+	end = p + INET_remote_buffer;
+
+/* If buffer is not completely empty, slide down what's left */
+
+	if (xdrs->x_handy > 0) {
+		memmove(p, xdrs->x_private, xdrs->x_handy);
+		p += xdrs->x_handy;
+	}
+
+/* If an ACK is pending, do an ACK.  The alternative is deadlock. */
+
+/*
+if (port->port_flags & PORT_pend_ack)
+    if (!packet_send (port, 0, 0))
+	return FALSE;
+*/
+
+	while (TRUE) {
+		length = end - p;
+		if (!packet_receive
+			(port, reinterpret_cast < UCHAR * >(p), length, &length)) {
+			return FALSE;
+	/***
+	if (!packet_send (port, 0, 0))
+	    return FALSE;
+	continue;
+	***/
+		}
+		if (length >= 0) {
+			p += length;
+			break;
+		}
+		p -= length;
+		if (!packet_send(port, 0, 0))
+			return FALSE;
+	}
+
+	port->port_flags |= PORT_pend_ack;
+	xdrs->x_handy = (int) ((SCHAR *) p - xdrs->x_base);
+	xdrs->x_private = xdrs->x_base;
+
+	return TRUE;
+}
+
+static bool_t inet_setpostn( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	i n e t _ s e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	if (bytecount > (u_int) xdrs->x_handy)
+		return FALSE;
+
+	xdrs->x_private = xdrs->x_base + bytecount;
+
+	return TRUE;
+}
+
+static PORT inet_try_connect(
+							 PACKET * packet,
+							 RDB rdb,
+							 USHORT file_length,
+							 TEXT * file_name,
+TEXT * node_name, STATUS * status_vector, SCHAR * dpb, SSHORT dpb_length)
+{
+/**************************************
+ *
+ *	i n e t _ t r y _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a packet with formatted protocol infomation,
+ *	set header information and try the connection.
+ *
+ *	If a connection is established, return a port block, otherwise
+ *	return NULL.
+ *
+ **************************************/
+	PORT port;
+	P_CNCT *cnct;
+
+	cnct = &packet->p_cnct;
+	packet->p_operation = op_connect;
+	cnct->p_cnct_operation = op_attach;
+	cnct->p_cnct_cversion = CONNECT_VERSION2;
+	cnct->p_cnct_client = ARCHITECTURE;
+	cnct->p_cnct_file.cstr_length = file_length;
+	cnct->p_cnct_file.cstr_address = (UCHAR *) file_name;
+
+/* If we can't talk to a server, punt.  Let somebody else generate
+   an error.  status_vector will have the network error info. */
+
+	port =
+		INET_connect(node_name, packet, status_vector, FALSE, dpb,
+					 dpb_length);
+	if (!port) {
+		ALLR_release((BLK) rdb);
+		return NULL;
+	}
+
+/* Get response packet from server. */
+
+	rdb->rdb_port = port;
+	port->port_context = rdb;
+	if (!port->receive(packet)) {
+		inet_error(port, "receive in try_connect", isc_net_connect_err,
+				   ERRNO);
+		disconnect(port);
+		ALLR_release((BLK) rdb);
+		return NULL;
+	}
+
+	return port;
+}
+
+static bool_t inet_write( XDR * xdrs, bool_t end_flag)
+{
+/**************************************
+ *
+ *	i n e t _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a buffer full of data.  If the end_flag isn't set, indicate
+ *	that the buffer is a fragment, and reset the XDR for another buffer
+ *	load.
+ *
+ **************************************/
+	SCHAR *p;
+	PORT port;
+	SSHORT l, length;
+#ifdef PIGGYBACK
+	SCHAR aux_buffer[BUFFER_SIZE];
+	SSHORT l2;
+#endif
+
+/* Encode the data portion of the packet */
+
+	port = (PORT) xdrs->x_public;
+	p = xdrs->x_base;
+	length = xdrs->x_private - p;
+
+/* Send data in manageable hunks.  If a packet is partial, indicate
+   that with a negative length.  A positive length marks the end. */
+
+	p = xdrs->x_base;
+
+	while (length) {
+		port->port_misc1 = (port->port_misc1 + 1) % MAX_SEQUENCE;
+		l = (SSHORT) MIN(length, INET_max_data);
+		length -= l;
+		if (!packet_send(port, p, (SSHORT) ((length) ? -l : l)))
+			return FALSE;
+		p += l;
+	}
+
+	xdrs->x_private = xdrs->x_base;
+	xdrs->x_handy = INET_remote_buffer;
+
+	return TRUE;
+
+#ifdef PIGGYBACK
+/* If the other end has not piggy-backed the next packet, we're done. */
+
+	if (!l2)
+		return TRUE;
+
+/* We've got a piggy-backed response.  If the packet is partial,
+   send an ACK for part we did receive. */
+
+	p = aux_buffer;
+
+	while (l2 < 0) {
+		if (!packet_send(port, 0, 0))
+			return FALSE;
+		p -= l2;
+		length = aux_buffer + sizeof(aux_buffer) - p;
+		if (!packet_receive(port, p, length, &l2)) {
+			p += l2;
+			continue;
+		}
+	}
+
+	length = p - aux_buffer + l2;
+
+/* Now we're got a encode glump ready to stuff into the read buffer.
+   Unfortunately, if we just add it to the read buffer, we will shortly
+   overflow the buffer.  To avoid this, "scrumpf down" the active bits
+   in the read buffer, then add out stuff at the end. */
+
+	xdrs = &port->port_receive;
+	p = xdrs->x_base;
+
+	if (xdrs->x_handy && p != xdrs->x_private)
+		memmove(p, xdrs->x_private, xdrs->x_handy);
+
+	p += xdrs->x_handy;
+
+	xdrs->x_private = xdrs->x_base;
+/*
+xdrs->x_handy += JAP_decode (aux_buffer, length, p);
+*/
+	port->port_flags |= PORT_pend_ack;
+
+	return TRUE;
+#endif
+}
+
+#ifdef DEBUG
+static void packet_print(
+						 TEXT * string,
+						 UCHAR * packet, int length, int counter)
+{
+/**************************************
+ *
+ *	p a c k e t _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a summary of packet.
+ *
+ **************************************/
+	int sum, l;
+
+	sum = 0;
+	if (l = length)
+		do
+			sum += *packet++;
+		while (--l);
+
+	ib_fprintf(ib_stdout,
+			   "%05d:    PKT %s\t(%4d): length = %4d, checksum = %d\n",
+			   inet_debug_timer(), string, counter, length, sum);
+	ib_fflush(ib_stdout);
+}
+#endif
+
+static int packet_receive(
+						  PORT port,
+						  UCHAR * buffer,
+						  SSHORT buffer_length, SSHORT * length)
+{
+/**************************************
+ *
+ *	p a c k e t _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a packet and pass on it's goodness.  If it's good,
+ *	return TRUE and the reported length of the packet, and update
+ *	the receive sequence number.  If it's bad, return FALSE.  If it's
+ *	a duplicate message, just ignore it.
+ *
+ **************************************/
+	int n;
+#ifndef REQUESTER
+	struct timeval savetime, timeout, *time_ptr;
+	int ph;
+	fd_set slct_fdset;
+	int slct_count;
+	PACKET packet;
+
+/* set the time interval for sending dummy packets to the client */
+
+	timeout.tv_sec = port->port_dummy_packet_interval;
+	timeout.tv_usec = 0;
+
+	if (port->port_protocol >= PROTOCOL_VERSION8 &&
+		port->port_dummy_packet_interval > 0)
+	{
+		time_ptr = &timeout;
+	}
+	else
+	{
+		time_ptr = NULL;
+	}
+
+/* If the protocol is 0 we are still in the process of establishing
+   a connection. Add a time out to the wait */
+	if (port->port_protocol == 0)
+	{
+		timeout.tv_sec = port->port_connect_timeout;
+		time_ptr = &timeout;
+	}
+
+	// on Linux systems (and possibly others too) select will eventually
+	// change timout values so save it here for later reuse.
+	// Thanks to Brad Pepers who reported this bug  FSG 3 MAY 2001
+	savetime = timeout;
+
+	ph = (int) port->port_handle;
+#endif
+
+#ifdef VMS
+	if (ISC_tcp_gettype() == TCP_TYPE_MULTINET)
+	{
+		ph = ph / 16;
+	}
+#endif
+
+	for (;;)
+	{
+
+#ifndef REQUESTER
+
+		/* Implement an error-detection protocol to ensure that the client
+		   is still there.  Use the select() call with a timeout to wait on 
+		   the connection for an incoming packet.  If none comes within a
+		   suitable time interval, write a dummy packet on the connection.
+		   If the client is not there, an error will be returned on the write.
+		   If the client is there, the dummy packet will be ignored by all 
+		   InterBase clients V4 or greater.  This protocol will detect when 
+		   clients are lost abnormally through reboot or network disconnect. */
+
+		/* Don't send op_dummy packets on aux port; the server won't
+		   read them because it only writes to aux ports. */
+
+		if (port->port_flags & PORT_async)
+		{
+			;
+		}
+		else
+#ifdef VMS
+		if (ISC_tcp_gettype() == TCP_TYPE_MULTINET)
+#endif
+		{
+			FD_ZERO(&slct_fdset);
+			FD_SET(ph, &slct_fdset);
+
+			THREAD_EXIT;
+			for (;;) {
+#if (defined NETWARE_386 || defined WIN_NT)
+				slct_count = select(FD_SETSIZE, &slct_fdset,
+									(fd_set *) NULL, (fd_set *) NULL,
+									time_ptr);
+#else
+				slct_count =
+					select((SOCKET) port->port_handle + 1, &slct_fdset,
+						   (fd_set *) NULL, (fd_set *) NULL, time_ptr);
+#endif
+
+				// restore original timeout value FSG 3 MAY 2001
+				savetime = timeout;
+
+				if (slct_count != -1 || !INTERRUPT_ERROR(ERRNO))
+				{
+					break;
+				}
+			}
+			THREAD_ENTER;
+
+			if (slct_count == -1)
+			{
+				return inet_error(port, "select in packet_receive",
+								  isc_net_read_err, ERRNO);
+			}
+
+			if (!slct_count && port->port_protocol >= PROTOCOL_VERSION8)
+			{
+#ifdef DEBUG
+				if (INET_trace & TRACE_operations)
+				{
+					ib_fprintf(ib_stdout, "%05d: OP Sent: op_dummy\n",
+							   inet_debug_timer());
+					ib_fflush(ib_stdout);
+				}
+#endif
+				packet.p_operation = op_dummy;
+				if (!send_full(port, &packet))
+				{
+					return FALSE;
+				}
+				continue;
+			}
+
+			if (!slct_count && port->port_protocol == 0)
+			{
+				return FALSE;
+			}
+		}
+#endif /* REQUESTER */
+
+		THREAD_EXIT;
+		n =
+			recv((SOCKET) port->port_handle,
+				 reinterpret_cast < char *>(buffer), buffer_length, 0);
+		THREAD_ENTER;
+		if (n != -1 || !INTERRUPT_ERROR(ERRNO))
+			break;
+	}
+
+	if (n <= 0 && (port->port_flags & PORT_async))
+		return FALSE;
+
+	if (n == -1)
+		return inet_error(port, "read", isc_net_read_err, ERRNO);
+
+	if (!n)
+		return inet_error(port, "read end_of_file", isc_net_read_err, 0);
+
+#ifndef REQUESTER
+#ifdef DEBUG
+	{
+		INET_count_recv++;
+		INET_bytes_recv += n;
+		if (INET_trace & TRACE_packets)
+			packet_print("receive", buffer, n, INET_count_recv);
+		INET_force_error--;
+		if (INET_force_error == 0) {
+			INET_force_error = 1;
+			return inet_error(port, "simulated error - read",
+							  isc_net_read_err, 0);
+		}
+	}
+#endif
+#endif
+
+	*length = n;
+
+	return TRUE;
+}
+
+static bool_t packet_send( PORT port, SCHAR * buffer, SSHORT buffer_length)
+{
+/**************************************
+ *
+ *	p a c k e t _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send some data on it's way.  
+ *
+ **************************************/
+	SSHORT n, length, count;
+	SCHAR *data;
+
+#ifndef NO_ITIMER
+	struct itimerval internal_timer, client_timer;
+#ifdef SIGACTION_SUPPORTED
+	struct sigaction internal_handler, client_handler;
+#else
+	struct sigvec internal_handler, client_handler;
+#endif
+#endif
+
+	data = buffer;
+	length = buffer_length;
+
+	while (length) {
+		THREAD_EXIT;
+#ifdef DEBUG
+		if (INET_trace & TRACE_operations) {
+			ib_fprintf(ib_stdout, "Before Send\n");
+			ib_fflush(ib_stdout);
+		}
+#endif
+		n = -1;
+		n = send((SOCKET) port->port_handle, data, length, 0);
+#ifdef DEBUG
+		if (INET_trace & TRACE_operations) {
+			ib_fprintf(ib_stdout, "After Send n is %d\n", n);
+			ib_fflush(ib_stdout);
+		}
+#endif
+		THREAD_ENTER;
+		if (n == length) {
+			break;
+		}
+		
+		if (n == -1)
+		{
+			if (INTERRUPT_ERROR(ERRNO)) {
+				continue;
+			}
+
+			return inet_error(port, "send", isc_net_write_err, ERRNO);
+		}
+
+		data += n;
+		length -= n;
+	}
+
+	if ((port->port_flags & PORT_async) && !(port->port_flags & PORT_no_oob))
+	{
+		THREAD_EXIT;
+		count = 0;
+		while ((n = send((SOCKET) port->port_handle, buffer, 1, MSG_OOB)) == -1 &&
+				(ERRNO == ENOBUFS || INTERRUPT_ERROR(ERRNO)))
+		{
+			if (count++ > 20) {
+				break;
+			}
+
+#ifdef NO_ITIMER
+#ifdef WIN_NT
+			SleepEx(50, TRUE);
+#else
+			sleep(1);
+#endif
+		}
+#else
+			if (count == 1)
+			{
+				/* Wait in a loop until the lock becomes available */
+
+				internal_timer.it_interval.tv_sec = 0;
+				internal_timer.it_interval.tv_usec = 0;
+				internal_timer.it_value.tv_sec = 0;
+				internal_timer.it_value.tv_usec = 0;
+				setitimer(ITIMER_REAL, &internal_timer, &client_timer);
+#ifndef SIGACTION_SUPPORTED
+				internal_handler.sv_handler = alarm_handler;
+				internal_handler.sv_mask = 0;
+				internal_handler.sv_flags = SV_INTERRUPT;
+				sigvector(SIGALRM, &internal_handler, &client_handler);
+#else
+				internal_handler.sa_handler = alarm_handler;
+				memset(&internal_handler.sa_mask, 0,
+					   sizeof(internal_handler.sa_mask));
+				internal_handler.sa_flags = SA_RESTART;
+				sigaction(SIGALRM, &internal_handler, &client_handler);
+#endif
+			}
+
+			internal_timer.it_value.tv_sec = 0;
+			internal_timer.it_value.tv_usec = 50000;
+			setitimer(ITIMER_REAL, &internal_timer, NULL);
+			pause();
+		}
+
+		if (count)
+		{
+			/* Restore user's outstanding alarm request and handler */
+
+			internal_timer.it_value.tv_sec = 0;
+			internal_timer.it_value.tv_usec = 0;
+			setitimer(ITIMER_REAL, &internal_timer, NULL);
+#ifdef SIGACTION_SUPPORTED
+			sigaction(SIGALRM, &client_handler, NULL);
+#else
+			sigvector(SIGALRM, &client_handler, NULL);
+#endif
+			setitimer(ITIMER_REAL, &client_timer, NULL);
+		}
+#endif
+
+		THREAD_ENTER;
+		if (n == -1) {
+			return inet_error(port, "send/oob", isc_net_write_err, ERRNO);
+		}
+	}
+
+#ifndef REQUESTER
+#ifdef DEBUG
+	{
+		INET_count_send++;
+		INET_bytes_send += buffer_length;
+		if (INET_trace & TRACE_packets)
+			packet_print("send", buffer, buffer_length, INET_count_send);
+		INET_force_error--;
+		if (INET_force_error == 0) {
+			INET_force_error = 1;
+			return inet_error(port, "simulated error - send",
+							  isc_net_write_err, 0);
+		}
+	}
+#endif
+#endif
+
+	port->port_flags &= ~PORT_pend_ack;
+
+	return TRUE;
+}
+
+static void unhook_port( PORT port, PORT parent)
+{
+/**************************************
+ *
+ *      u n h o o k _ p a r e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Disconnect a port from its parent
+ *      This must be done under
+ *      START_PORT_CRITICAL/STOP_PORT_CRITICAL control.
+ *
+ **************************************/
+
+	for (PORT* ptr = &parent->port_clients; *ptr; ptr = &(*ptr)->port_next) {
+		if (*ptr == port) {
+			*ptr = port->port_next;
+			if (ptr == &parent->port_clients) {
+				parent->port_next = *ptr;
+			}
+			break;
+		}
+	}
+}
+
+#ifdef  SUPERSERVER
+static void unhook_disconnected_ports(PORT main_port)
+{
+/**************************************
+ *
+ *      u n h o o k _ d i s c o n n e c t e d _ p o r t s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Go through a list of ports and get rid of any
+ *      that are disconnected.   Note that this must be
+ *      done under START_PORT_CRITICAL/STOP_PORT_CRITICAL
+ *      control.
+ *
+ **************************************/
+
+	int n = 1;
+
+	while (n) {
+		n = 0;
+		for (PORT port = main_port; port; port = port->port_next) {
+			if (port->port_state == state_disconnected) {
+				n = 1;
+				unhook_port(port, port->port_parent);
+				cleanup_port(port);
+				break;
+			}
+		}
+	}
+}
+#endif
+
+} // extern "C"
diff --git a/src/remote/inet_proto.h b/src/remote/inet_proto.h
new file mode 100644
index 0000000000..8a3beffa03
--- /dev/null
+++ b/src/remote/inet_proto.h
@@ -0,0 +1,41 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		inet_proto.h
+ *	DESCRIPTION:	Prototpe header file for inet.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_INET_PROTO_H_
+#define _REMOTE_INET_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern PORT	INET_analyze (TEXT *, USHORT *, STATUS *, TEXT *, TEXT *, USHORT, SCHAR*, SSHORT);
+extern PORT	DLL_EXPORT INET_connect (TEXT *, struct packet *, STATUS *, USHORT, SCHAR*, SSHORT);
+extern PORT	INET_reconnect (HANDLE, TEXT *, STATUS *);
+extern PORT	DLL_EXPORT INET_server (int);
+extern void	INET_set_clients (int);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _REMOTE_INET_PROTO_H */ 
diff --git a/src/remote/inet_server.cpp b/src/remote/inet_server.cpp
new file mode 100644
index 0000000000..ad5fb307ad
--- /dev/null
+++ b/src/remote/inet_server.cpp
@@ -0,0 +1,602 @@
+/*
+ *	PROGRAM:	JRD Remote Server
+ *	MODULE:		inet_server.c
+ *	DESCRIPTION:	Internet remote server.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Added TCP_NO_DELAY option for superserver on Linux
+ * FSG 16.03.2001 
+ */
+/*
+$Id: inet_server.cpp,v 1.1.1.1 2001-05-23 13:26:39 tamlin Exp $
+*/
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include "../jrd/common.h"
+#if !(defined VMS || defined sgi || defined PC_PLATFORM)
+#include <sys/param.h>
+#endif
+
+#ifdef WINDOWS_ROUTER
+#define MAX_ARGS	6
+#endif /* WINDOWS_ROUTER */
+
+#ifdef VMS
+#include <descrip.h>
+#endif
+
+#ifdef SUPERSERVER
+#include <unistd.h>
+#include <errno.h>
+#include "../include/jrd/gds.h"
+#include "../jrd/pwd.h"
+#endif
+
+#include "../remote/remote.h"
+#include "../jrd/license.h"
+#include "../jrd/thd.h"
+#include "../jrd/file_params.h"
+#include "../remote/inet_proto.h"
+#include "../remote/serve_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/sch_proto.h"
+
+#ifdef NETWARE_386
+#include <signal.h>
+#endif
+
+#ifdef UNIX
+#ifdef NETBSD
+#include <signal.h>
+#else
+#include <sys/signal.h>
+#endif
+#endif
+
+#ifndef hpux
+#define sigvector	sigvec
+#endif
+
+#ifndef NOFILE
+#ifdef VMS
+#define NOFILE		32
+#else
+#define NOFILE		20
+#endif
+#endif
+
+#ifndef NBBY
+#define	NBBY		8
+#endif
+
+#ifndef SV_INTERRUPT
+#define SV_INTERRUPT	0
+#endif
+
+#ifndef NFDBITS
+#define NFDBITS		(sizeof(SLONG) * NBBY)
+
+#if !(defined NETWARE_386 || defined DECOSF)
+#define	FD_SET(n, p)	((p)->fds_bits[(n)/NFDBITS] |= (1 << ((n) % NFDBITS)))
+#define	FD_CLR(n, p)	((p)->fds_bits[(n)/NFDBITS] &= ~(1 << ((n) % NFDBITS)))
+#define	FD_ISSET(n, p)	((p)->fds_bits[(n)/NFDBITS] & (1 << ((n) % NFDBITS)))
+#define FD_ZERO(p)	bzero((SCHAR *)(p), sizeof(*(p)))
+#endif
+#endif
+
+#ifdef SUPERSERVER
+#ifndef WIN_NT
+#define TEMP_DIR "/tmp"
+#define CHANGE_DIR chdir
+#endif
+#define INTERBASE_USER_NAME     "interbase"
+#define INTERBASE_USER_SHORT    "interbas"
+#define FIREBIRD_USER_NAME	"firebird"
+#endif
+
+
+extern "C" {
+
+
+static int assign(SCHAR *);
+#ifndef DECOSF
+static int bzero(SCHAR *, int);
+#endif
+static void name_process(UCHAR *);
+static void signal_handler(void);
+#ifdef SUPERSERVER
+static void signal_sigpipe_handler(void);
+#endif
+static int set_signal(int, FPTR_VOID);
+
+#ifdef WINDOWS_ROUTER
+static int atov(UCHAR *, UCHAR **, SSHORT);
+#endif /* WINDOWS_ROUTER */
+
+#ifdef SUPERSERVER
+extern SLONG free_map_debug;
+extern SLONG trace_pools;
+static struct ipccfg trace_pooltbl[] = {
+	ISCCFG_TRACE_POOLS, 0, &trace_pools, 0, 0,
+	NULL, 0, NULL, 0, 0
+};
+#endif
+
+static TEXT protocol[128];
+static int INET_SERVER_start = 0;
+static USHORT INET_SERVER_flag = 0;
+
+#ifdef WINDOWS_ROUTER
+int PASCAL WinMain(
+				   HINSTANCE hInstance,
+				   HINSTANCE hPrevInstance, LPSTR lpszCmdLine, int nCmdShow)
+#else /* WINDOWS_ROUTER */
+int CLIB_ROUTINE main( int argc, char **argv)
+#endif							/* WINDOWS_ROUTER */
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Run the server with apollo mailboxes.
+ *
+ **************************************/
+	int n, clients;
+	PORT port;
+	int child, debug, channel, standalone, multi_threaded, multi_client;
+	TEXT *p, **end, c;
+	int done = FALSE;
+#if !(defined VMS || defined PC_PLATFORM)
+	fd_set mask;
+#endif
+
+#ifdef WINDOWS_ROUTER
+/*
+ *	Construct an argc, argv so we can use the old parse code.
+ */
+	int argc;
+	char **argv, *argv2[MAX_ARGS];
+
+	argv = argv2;
+	argv[0] = "IB_server";
+	argc = 1 + atov(lpszCmdLine, argv + 1, MAX_ARGS - 1);
+
+#endif /* WINDOWS_ROUTER */
+
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+	end = argc + argv;
+	argv++;
+	debug = standalone = INET_SERVER_flag = FALSE;
+	channel = 0;
+	protocol[0] = 0;
+	multi_client = multi_threaded = FALSE;
+
+
+
+#ifdef PC_PLATFORM
+	INET_SERVER_flag |= SRVR_multi_client;
+	standalone = TRUE;
+#endif
+
+#ifdef SUPERSERVER
+	INET_SERVER_flag |= SRVR_multi_client;
+	multi_client = multi_threaded = standalone = TRUE;
+#endif
+
+	clients = 0;
+
+	while (argv < end) {
+		p = *argv++;
+		if (*p++ == '-')
+			while (c = *p++) {
+				switch (UPPER(c)) {
+				case 'D':
+					INET_SERVER_flag |= SRVR_debug;
+					debug = standalone = TRUE;
+#ifdef SUPERSERVER
+					free_map_debug = 1;
+#endif
+					break;
+#ifndef SUPERSERVER
+
+				case 'M':
+					INET_SERVER_flag |= SRVR_multi_client;
+					if (argv < end)
+						if (clients = atoi(*argv))
+							argv++;
+					multi_client = standalone = TRUE;
+					break;
+
+				case 'S':
+					standalone = TRUE;
+					break;
+
+
+				case 'I':
+					standalone = FALSE;
+					break;
+
+#ifndef	PC_PLATFORM
+				case 'T':
+					multi_threaded = TRUE;
+					break;
+#endif
+
+				case 'U':
+					multi_threaded = FALSE;
+					break;
+#endif /* SUPERSERVER */
+
+				case 'H':
+					if (ISC_get_prefix(p) == -1)
+						ib_printf("Invalid argument Ignored\n");
+					else
+						argv++;	/* donot skip next argument if this one 
+								   is invalid */
+					done = TRUE;
+					break;
+
+				case 'P':
+					sprintf(protocol, "/%s", *argv++);
+					break;
+
+				case 'Z':
+					ib_printf("InterBase TCP/IP server version %s\n",
+							  GDS_VERSION);
+					exit(FINI_OK);
+				}
+				if (done)
+					break;
+			}
+	}
+#if (defined SUPERSERVER && defined UNIX )
+	set_signal(SIGPIPE, signal_sigpipe_handler);
+	set_signal(SIGUSR1, signal_handler);
+	set_signal(SIGUSR2, signal_handler);
+#endif
+
+/* Fork off a server, wait for it to die, then fork off another,
+   but give up after 100 tries */
+
+#if !(defined SUPERSERVER || defined VMS || defined PC_PLATFORM)
+	if (multi_client && !debug) {
+		set_signal(SIGUSR1, signal_handler);
+		for (n = 0; n < 100; n++) {
+			INET_SERVER_start = 0;
+			if (!(child = fork()))
+				break;
+			while (wait(0) != child)
+				if (INET_SERVER_start) {
+					n = 0;		/* reset error counter on "real" signal */
+					break;
+				}
+			gds__log("INET_SERVER/main: gds_inet_server restarted");
+		}
+		set_signal(SIGUSR1, SIG_DFL);
+	}
+#endif
+
+	if (standalone) {
+		if (multi_client) {
+#ifdef SUPERSERVER
+			TEXT user_name[256];	/* holds the user name */
+			/* check user id */
+			ISC_get_user(user_name, NULL, NULL, NULL, NULL, NULL, NULL);
+
+			if (strcmp(user_name, "root") &&
+				strcmp(user_name, FIREBIRD_USER_NAME) &&
+				strcmp(user_name, INTERBASE_USER_NAME) &&
+				strcmp(user_name, INTERBASE_USER_SHORT)) {
+				/* invalid user -- bail out */
+				ib_fprintf(ib_stderr,
+						   "%s: Invalid user (must be %s, %s, %s or root).\n",
+						   "ibserver", FIREBIRD_USER_NAME,
+						   INTERBASE_USER_NAME, INTERBASE_USER_SHORT);
+				exit(STARTUP_ERROR);
+			}
+#else
+			if (setreuid(0, 0) < 0)
+				ib_printf("Inet_server: couldn't set uid to superuser.\n");
+#endif
+			INET_set_clients(clients);
+		}
+
+		if (!debug) {
+			FD_ZERO(&mask);
+			FD_SET(2, &mask);
+			divorce_terminal(&mask);
+		}
+		{
+			STATUS status_vector[ISC_STATUS_LENGTH];
+			THREAD_ENTER;
+			port = INET_connect(protocol, 0, status_vector, INET_SERVER_flag,
+								0, 0);
+			THREAD_EXIT;
+			if (!port) {
+				gds__print_status(status_vector);
+				exit(STARTUP_ERROR);
+			}
+		}
+	}
+	else {
+#ifdef VMS
+		channel = assign("SYS$INPUT");
+#endif
+		THREAD_ENTER;
+		port = INET_server(channel);
+		THREAD_EXIT;
+		if (!port) {
+			ib_fprintf(ib_stderr, "ibserver: Unable to start INET_server\n");
+			exit(STARTUP_ERROR);
+		}
+	}
+
+#ifdef SUPERSERVER
+
+/* before starting the superserver stuff change directory to tmp */
+	if (CHANGE_DIR(TEMP_DIR)) {
+		char err_buf[1024];
+
+		/* error on changing the directory */
+		sprintf(err_buf, "Could not change directory to %s due to errno %d",
+				TEMP_DIR, errno);
+		gds__log(err_buf);
+	}
+
+/* Server tries to attash to isc4.gdb to make sure everything is OK
+   This code fixes bug# 8429 + all other bug of that kind - from 
+   now on the server exits if it cannot attach to the database
+   (wrong or no license, not enough memory, etc.
+*/
+	{
+		TEXT path[MAXPATHLEN];
+		STATUS status[20];
+		isc_db_handle db_handle = 0L;
+
+		gds__prefix(path, USER_INFO_NAME);
+		isc_attach_database(status, strlen(path), path, &db_handle, 0, NULL);
+		if (status[0] == 1 && status[1] > 0) {
+			gds__log_status(USER_INFO_NAME, status);
+			isc_print_status(status);
+			exit(STARTUP_ERROR);
+		}
+		isc_detach_database(status, &db_handle);
+		if (status[0] == 1 && status[1] > 0) {
+			gds__log_status(USER_INFO_NAME, status);
+			isc_print_status(status);
+			exit(STARTUP_ERROR);
+		}
+	}
+
+	ISC_get_config(LOCK_HEADER, trace_pooltbl);
+
+#endif
+
+
+	if (multi_threaded)
+		SRVR_multi_thread(port, INET_SERVER_flag);
+	else
+#ifdef WINDOWS_ROUTER
+		SRVR_WinMain(port, INET_SERVER_flag, hInstance, hPrevInstance,
+					 nCmdShow);
+#else
+		SRVR_main(port, INET_SERVER_flag);
+#endif
+
+#ifdef DEBUG_GDS_ALLOC
+/* In Debug mode - this will report all server-side memory leaks
+ * due to remote access
+ */
+	gds_alloc_report(0, __FILE__, __LINE__);
+#endif
+
+	exit(FINI_OK);
+}
+
+
+#ifdef WINDOWS_ROUTER
+static int atov( UCHAR * str, UCHAR ** vec, SSHORT len)
+{
+/**************************************
+ *
+ *	a t o v
+ *
+ **************************************
+ *
+ * Functional description
+ *	Take a string and convert it to a vector.
+ *	White space delineates, but things in quotes are
+ *	kept together.
+ *
+ **************************************/
+	int i = 0, qt = 0, qq;
+	char *p1, *p2;
+
+	vec[0] = str;
+	for (p1 = p2 = str; i < len; i++) {
+		while (*p1 == ' ' || *p1 == '\t')
+			p1++;
+		while (qt || (*p1 != ' ' && *p1 != '\t')) {
+			qq = qt;
+			if (*p1 == '\'')
+				if (!qt)
+					qt = -1;
+				else if (qt == -1)
+					qt = 0;
+			if (*p1 == '"')
+				if (!qt)
+					qt = 1;
+				else if (qt == 1)
+					qt = 0;
+			if (*p1 == '\0' || *p1 == '\n') {
+				*p2++ = '\0';
+				vec[++i] = 0;
+				return i;
+			}
+			if (qq == qt)
+				*p2++ = *p1;
+			p1++;
+		}
+		p1++;
+		*p2++ = '\0';
+		vec[i + 1] = p2;
+	}
+	*p2 = '\0';
+	vec[i] = 0;
+	return i - 1;
+}
+#endif /* WINDOWS_ROUTER */
+
+
+#ifdef VMS
+static int assign( SCHAR * string)
+{
+/**************************************
+ *
+ *	a s s i g n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Assign a channel for communications.
+ *
+ **************************************/
+	SSHORT channel;
+	int status;
+	struct dsc$descriptor_s desc;
+
+	desc.dsc$b_dtype = DSC$K_DTYPE_T;
+	desc.dsc$b_class = DSC$K_CLASS_S;
+	desc.dsc$w_length = strlen(string);
+	desc.dsc$a_pointer = string;
+
+	status = sys$assign(&desc, &channel, NULL, NULL);
+
+	return (status & 1) ? channel : 0;
+}
+#endif
+
+
+#if !(defined DECOSF)
+static int bzero( SCHAR * address, int length)
+{
+/**************************************
+ *
+ *	b z e r o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zero a block of memory.
+ *
+ **************************************/
+
+	if (length)
+		do
+			*address++ = 0;
+		while (--length);
+}
+#endif
+
+
+
+
+#if !(defined VMS || defined NETWARE_386 || defined PC_PLATFORM)
+static int set_signal( int signal_number, void (*handler) (void))
+{
+/**************************************
+ *
+ *	s e t _ s i g n a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish signal handler.
+ *
+ **************************************/
+#ifdef SYSV_SIGNALS
+	sigset(signal_number, handler);
+#else
+
+#ifndef SIGACTION_SUPPORTED
+	struct sigvec vec;
+	struct sigvec old_vec;
+
+	vec.sv_handler = handler;
+	vec.sv_mask = 0;
+	vec.sv_flags = SV_INTERRUPT;
+	sigvector(signal_number, &vec, &old_vec);
+#else
+	struct sigaction vec, old_vec;
+
+	vec.sa_handler = handler;
+	memset(&vec.sa_mask, 0, sizeof(vec.sa_mask));
+	vec.sa_flags = 0;
+	sigaction(signal_number, &vec, &old_vec);
+#endif
+
+#endif
+}
+#endif
+
+
+static void signal_handler(void)
+{
+/**************************************
+ *
+ *	s i g n a l _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dummy signal handler.
+ *
+ **************************************/
+
+	++INET_SERVER_start;
+}
+
+#if (defined SUPERSERVER && defined UNIX )
+static void signal_sigpipe_handler(void)
+{
+/****************************************************
+ *
+ *	s i g n a l _ s i g p i p e _ h a n d l e r
+ *
+ ****************************************************
+ *
+ * Functional description
+ *	Dummy signal handler.
+ *
+ **************************************/
+
+	++INET_SERVER_start;
+	gds__log
+		("Super Server/main: Bad client socket, send() resulted in SIGPIPE, caught by server\n                   client exited improperly or crashed ????");
+}
+#endif
+
+
+} // extern "C"
diff --git a/src/remote/inetiodef.h b/src/remote/inetiodef.h
new file mode 100644
index 0000000000..d34e56a49c
--- /dev/null
+++ b/src/remote/inetiodef.h
@@ -0,0 +1,43 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		remote.h
+ *	DESCRIPTION:	Internet I/O Definitions!
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef IO$S_FCODE
+#define IO$S_FCODE	6
+#endif	IO$S_FCODE
+
+#ifndef IO$_IOCTL
+#define IO$_SEND	(IO$_WRITEVBLK)
+#define IO$_RECEIVE	(IO$_READVBLK)
+#define IO$_SOCKET	(IO$_ACCESS | (0 << IO$S_FCODE))
+#define IO$_BIND	(IO$_ACCESS | (1 << IO$S_FCODE))
+#define IO$_LISTEN	(IO$_ACCESS | (2 << IO$S_FCODE))
+#define IO$_ACCEPT	(IO$_ACCESS | (3 << IO$S_FCODE))
+#define IO$_CONNECT	(IO$_ACCESS | (4 << IO$S_FCODE))
+#define IO$_SETSOCKOPT	(IO$_ACCESS | (5 << IO$S_FCODE))
+#define IO$_GETSOCKOPT	(IO$_ACCESS | (6 << IO$S_FCODE))
+#define IO$_IOCTL	(IO$_ACCESS | (8 << IO$S_FCODE))
+#define IO$_ACCEPT_WAIT (IO$_ACCESS | (10 << IO$S_FCODE))
+#define IO$_SHUTDOWN	(IO$_ACCESS | (12 << IO$S_FCODE))
+#define IO$_GETSOCKNAME (IO$_ACCESS | (13 << IO$S_FCODE))
+#define IO$_GETPEERNAME (IO$_ACCESS | (15 << IO$S_FCODE))
+#endif	IO$_IOCTL
diff --git a/src/remote/inter_proto.h b/src/remote/inter_proto.h
new file mode 100644
index 0000000000..6c6a88bdb4
--- /dev/null
+++ b/src/remote/inter_proto.h
@@ -0,0 +1,84 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		inter_proto.h
+ *	DESCRIPTION:	Prototype Header file for interface.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef REMOTE_INTER_PROTO_H
+#define REMOTE_INTER_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern STATUS	REM_attach_database (STATUS *, SSHORT, SCHAR *, struct rdb **, SSHORT, SCHAR *, UCHAR *);
+extern STATUS	REM_attach_service (STATUS *, USHORT, TEXT *, struct rdb **, USHORT, SCHAR *);
+extern STATUS	REM_blob_info (STATUS *, struct rbl **, SSHORT, SCHAR *, SSHORT, SCHAR *);
+extern STATUS	REM_cancel_blob (STATUS *, struct rbl **);
+extern STATUS	REM_cancel_events (STATUS *, struct rdb **, SLONG *);
+extern STATUS	REM_close_blob (STATUS *, struct rbl **);
+extern STATUS	REM_commit_transaction (STATUS *, struct rtr **);
+extern STATUS	REM_commit_retaining (STATUS *, struct rtr **);
+extern STATUS	REM_compile_request (STATUS *, struct rdb **, struct rrq **, USHORT, UCHAR *);
+extern STATUS	REM_create_blob2 (STATUS *, struct rdb **, struct rtr **, struct rbl **, BID, USHORT, UCHAR *);
+extern STATUS	REM_create_database (STATUS *, SSHORT, SCHAR *, struct rdb **, SSHORT, SCHAR *, SSHORT, UCHAR *);
+extern STATUS	REM_database_info (STATUS *, struct rdb **, SSHORT, SCHAR *, SSHORT, SCHAR *);
+extern STATUS	REM_ddl (STATUS *, struct rdb **, struct rtr **, USHORT, UCHAR *);
+extern STATUS	REM_detach_database (STATUS *, struct rdb **);
+extern STATUS	REM_detach_service (STATUS *, struct rdb **);
+extern STATUS	REM_drop_database (STATUS *, struct rdb **);
+extern STATUS	REM_allocate_statement (STATUS *, struct rdb **, struct rsr **);
+extern STATUS	REM_execute (STATUS *, struct rtr **, struct rsr **, USHORT, UCHAR *, USHORT, USHORT, UCHAR *);
+extern STATUS	REM_execute2 (STATUS *, struct rtr **, struct rsr **, USHORT, UCHAR *, USHORT, USHORT, UCHAR *, USHORT, UCHAR *, USHORT, USHORT, UCHAR *);
+extern STATUS	REM_execute_immediate (STATUS *, struct rdb **, struct rtr **, USHORT, TEXT *, USHORT, USHORT, UCHAR *, USHORT, USHORT, UCHAR *);
+extern STATUS	REM_execute_immediate2 (STATUS *, struct rdb **, struct rtr **, USHORT, TEXT *, USHORT, USHORT, UCHAR *, USHORT, USHORT, UCHAR *, USHORT, UCHAR *, USHORT, USHORT, UCHAR *);
+extern STATUS	REM_fetch (STATUS *, struct rsr **, USHORT, UCHAR *, USHORT, USHORT, UCHAR *);
+extern STATUS	REM_free_statement (STATUS *, struct rsr **, USHORT);
+extern STATUS	REM_insert (STATUS *, struct rsr **, USHORT, UCHAR *, USHORT, USHORT, UCHAR *);
+extern STATUS	REM_prepare (STATUS *, struct rtr **, struct rsr **, USHORT, TEXT *, USHORT, USHORT, SCHAR *, USHORT, SCHAR *);
+extern STATUS	REM_set_cursor_name (STATUS *, struct rsr **, TEXT *, USHORT);
+extern STATUS	REM_sql_info (STATUS *, struct rsr **, SSHORT, SCHAR *, SSHORT, SCHAR *);
+extern STATUS	REM_get_segment (STATUS *, struct rbl **, USHORT *, USHORT, UCHAR *);
+extern STATUS	REM_get_slice (STATUS *, struct rdb **, struct rtr **, BID, USHORT, UCHAR *, USHORT, UCHAR *, SLONG, UCHAR *, SLONG *);
+extern STATUS	REM_open_blob2 (STATUS *, struct rdb **, struct rtr **, struct rbl **, BID, USHORT, UCHAR *);
+extern STATUS	REM_prepare_transaction (STATUS *, struct rtr **, USHORT, UCHAR *);
+extern STATUS	REM_put_segment (STATUS *, struct rbl **, USHORT, UCHAR *);
+extern STATUS	REM_put_slice (STATUS *, struct rdb **, struct rtr **, BID, USHORT, UCHAR *, USHORT, UCHAR *, SLONG, UCHAR *);
+extern STATUS	REM_que_events (STATUS *, struct rdb **, SLONG *, SSHORT, UCHAR *, void (*)(void*, USHORT, UCHAR*), void *);
+extern STATUS	REM_query_service (STATUS *, struct rdb **, USHORT, SCHAR *, USHORT, SCHAR *, USHORT, SCHAR *);
+extern STATUS	REM_receive (STATUS *, struct rrq **, USHORT, USHORT, UCHAR *, SSHORT);
+extern STATUS	REM_reconnect_transaction (STATUS *, struct rdb **, struct rtr **, USHORT, UCHAR *);
+extern STATUS	REM_release_request (STATUS *, struct rrq **);
+extern STATUS	REM_request_info (STATUS *, struct rrq **, SSHORT, SSHORT, UCHAR *, SSHORT, UCHAR *);
+extern STATUS	REM_rollback_transaction (STATUS *, struct rtr **);
+extern STATUS	REM_seek_blob (STATUS *, struct rbl **, SSHORT, SLONG, SLONG *);
+extern STATUS	REM_send (STATUS *, struct rrq **, USHORT, USHORT, UCHAR *, SSHORT);
+extern STATUS	REM_start_and_send (STATUS *, struct rrq **, struct rtr **, USHORT, USHORT, UCHAR *, SSHORT);
+extern STATUS	REM_start_request (STATUS *, register struct rrq **, register struct rtr **, USHORT);
+extern STATUS	REM_start_transaction (STATUS *, struct rtr **, SSHORT, struct rdb **, SSHORT, UCHAR *);
+extern STATUS	REM_transact_request (STATUS *, struct rdb **, struct rtr **, USHORT, UCHAR *, USHORT, UCHAR *, USHORT, UCHAR *);
+extern STATUS	REM_transaction_info (STATUS *, struct rtr **, SSHORT, UCHAR *, SSHORT, UCHAR *);
+extern STATUS	REM_unwind_request (STATUS *, struct rrq **, USHORT);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif	/* REMOTE_INTER_PROTO_H */
diff --git a/src/remote/interface.cpp b/src/remote/interface.cpp
new file mode 100644
index 0000000000..48fd0f0978
--- /dev/null
+++ b/src/remote/interface.cpp
@@ -0,0 +1,6903 @@
+/*
+ *	PROGRAM:	JRD Remote Interface
+ *	MODULE:		interface.c
+ *	DESCRIPTION:	User visible entrypoints remote interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/ibsetjmp.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../remote/remote.h"
+#include "../jrd/gdsassert.h"
+#include <stdarg.h>
+
+#ifndef NO_NFS
+#ifndef VMS
+#include <sys/param.h>
+#endif
+#define NFS	1
+#endif
+
+#include "../include/jrd/gds.h"
+#include "../jrd/thd.h"
+#include "../jrd/license.h"
+#include "../jrd/fil.h"
+#include "../jrd/sdl.h"
+#include "../jrd/pwd.h"
+#include "../remote/inet_proto.h"
+#include "../remote/inter_proto.h"
+#include "../remote/merge_proto.h"
+#include "../remote/parse_proto.h"
+#include "../remote/remot_proto.h"
+#include "../remote/proto_proto.h"
+#include "../jrd/cvt_proto.h"
+#include "../jrd/enc_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/sdl_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/sch_proto.h"
+
+#ifdef	WIN_NT
+#include "../jrd/isc_proto.h"
+#endif
+
+#if defined(WIN_NT)
+#include "../remote/wnet_proto.h"
+#ifdef  XNET
+#include "../remote/xnet_proto.h"
+#endif
+#include "../remote/spxnet32_proto.h"
+#endif
+
+#if (defined ultrix || defined DECOSF)
+#include "../remote/dnet_proto.h"
+#endif
+
+#ifdef VMS
+#include "../remote/decne_proto.h"
+#endif
+
+#ifdef SPX
+/* SPX is defined only for 16bit windows */
+#include "../remote/spxwi_proto.h"
+#endif
+
+#ifdef WIN_NT
+#define sleep(seconds)		Sleep ((seconds) * 1000)
+
+#include <direct.h>				// getcwd
+
+#define	OSTYPE_NT	1
+#define	OSTYPE_WIN_95	2
+
+static USHORT ostype = 0;
+#endif
+
+#define ISC_USER		"ISC_USER"
+#define ISC_PASSWORD		"ISC_PASSWORD"
+#define MAX_USER_LENGTH		33
+#define MAX_OTHER_PARAMS	(1+1+sizeof(port->port_dummy_packet_interval))
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	1024
+#endif
+
+extern "C" {
+
+static RVNT add_event(PORT);
+static void add_other_params(PORT, UCHAR *, USHORT *);
+static void add_working_directory(UCHAR *, USHORT *, TEXT *);
+static PORT analyze(TEXT *, USHORT *, STATUS *, TEXT *, USHORT, SCHAR *,
+					SSHORT, TEXT *);
+static PORT analyze_service(TEXT *, USHORT *, STATUS *, TEXT *, USHORT,
+							SCHAR *, SSHORT);
+static BOOLEAN batch_gds_receive(struct trdb *, PORT, struct rmtque *,
+								 STATUS *, USHORT);
+static BOOLEAN batch_dsql_fetch(struct trdb *, PORT, struct rmtque *,
+								STATUS *, USHORT);
+static BOOLEAN check_response(RDB, PACKET *);
+static BOOLEAN clear_queue(PORT, STATUS *);
+static void disconnect(PORT);
+#ifdef SCROLLABLE_CURSORS
+static MSG dump_cache(PORT, STATUS *, rrq::rrq_repeat *);
+#endif
+static void enqueue_receive(PORT,
+							BOOLEAN(*fn) (struct trdb *, PORT,
+										  struct rmtque *, STATUS *, USHORT),
+							RDB, void *, void *);
+static void dequeue_receive(PORT);
+static STATUS error(STATUS *);
+#ifndef MULTI_THREAD
+static void event_handler(PORT);
+#else
+static void THREAD_ROUTINE event_thread(PORT);
+#endif
+static STATUS fetch_blob(STATUS *, RSR, USHORT, UCHAR *, USHORT, USHORT,
+						 UCHAR *);
+static RVNT find_event(PORT, SLONG);
+static USHORT get_new_dpb(UCHAR *, SSHORT, SSHORT, UCHAR *, USHORT *, TEXT *);
+static BOOLEAN get_single_user(USHORT, SCHAR *);
+static STATUS handle_error(STATUS *, STATUS);
+static STATUS info(STATUS *, RDB, P_OP, USHORT, USHORT, USHORT, SCHAR *,
+				   USHORT, SCHAR *, USHORT, SCHAR *);
+static BOOLEAN init(STATUS *, PORT, P_OP, UCHAR *, USHORT, UCHAR *, USHORT);
+static RTR make_transaction(RDB, USHORT);
+static STATUS mov_dsql_message(UCHAR *, FMT, UCHAR *, FMT);
+static void move_error(STATUS, ...);
+static void receive_after_start(RRQ, USHORT);
+static BOOLEAN receive_packet(PORT, PACKET *, STATUS *);
+static BOOLEAN receive_packet_noqueue(PORT, PACKET *, STATUS *);
+static BOOLEAN receive_queued_packet(struct trdb *, PORT, STATUS *, USHORT);
+static BOOLEAN receive_response(RDB, PACKET *);
+static void release_blob(RBL);
+static void release_event(RVNT);
+static BOOLEAN release_object(RDB, P_OP, USHORT);
+static void release_request(RRQ);
+static void release_statement(RSR *);
+static void release_sql_request(RSR);
+static void release_transaction(RTR);
+static STATUS return_success(RDB);
+#ifdef SCROLLABLE_CURSORS
+static MSG scroll_cache(STATUS *, struct trdb *, RRQ, PORT, rrq::rrq_repeat *,
+						USHORT *, ULONG *);
+#endif
+static STATUS send_and_receive(RDB, PACKET *, STATUS *);
+static STATUS send_blob(STATUS *, RBL, USHORT, UCHAR *);
+static void send_cancel_event(RVNT);
+static BOOLEAN send_packet(PORT, PACKET *, STATUS *);
+static BOOLEAN send_partial_packet(PORT, PACKET *, STATUS *);
+static void server_death(PORT);
+static void stuff_vax_integer(UCHAR *, SLONG, USHORT);
+static STATUS svcstart(STATUS *, RDB, P_OP, USHORT, USHORT, USHORT, SCHAR *);
+static STATUS unsupported(STATUS *);
+static void zap_packet(PACKET *);
+
+static void mov_faster(SLONG *, SLONG *, USHORT);
+
+static ULONG remote_event_id = 0;
+
+#define ALLR_RELEASE(x)		ALLR_release ((struct blk *) (x))
+#define ERROR_INIT(env)		rdb->rdb_status_vector = user_status;\
+				trdb->trdb_setjmp = &env;\
+				trdb->trdb_status_vector = user_status;\
+				trdb->trdb_database = rdb;\
+				if (SETJMP (env)) return error (user_status);
+
+#define RETURN_SUCCESS		return return_success (rdb)
+
+#define CHECK_HANDLE(blk,type,error) if (!blk || ((BLK) blk)->blk_type != (UCHAR) type) \
+				return handle_error (user_status, (STATUS) error)
+
+#define NULL_CHECK(ptr,code)	if (*ptr) return handle_error (user_status, (STATUS) code)
+
+#define SET_OBJECT(rdb,object,id) REMOTE_set_object (rdb->rdb_port, (struct blk *) object, id)
+
+#define SET_THREAD_DATA		trdb = &thd_context;\
+				trdb->trdb_status_vector = NULL;\
+				THD_put_specific ((THDD) trdb);\
+				trdb->trdb_thd_data.thdd_type = THDD_TYPE_TRDB
+#define RESTORE_THREAD_DATA	THD_restore_specific()
+
+#define GDS_ATTACH_DATABASE	REM_attach_database
+#define GDS_BLOB_INFO		REM_blob_info
+#define GDS_CANCEL_BLOB		REM_cancel_blob
+#define GDS_CLOSE_BLOB		REM_close_blob
+#define GDS_COMMIT		REM_commit_transaction
+#define GDS_COMMIT_RETAINING	REM_commit_retaining
+#define GDS_COMPILE		REM_compile_request
+#define GDS_CREATE_BLOB2	REM_create_blob2
+#define GDS_CREATE_DATABASE	REM_create_database
+#define GDS_CANCEL_EVENTS	REM_cancel_events
+#define GDS_DATABASE_INFO	REM_database_info
+#define GDS_DDL			REM_ddl
+#define GDS_DETACH		REM_detach_database
+#define GDS_DROP_DATABASE	REM_drop_database
+#define GDS_GET_SEGMENT		REM_get_segment
+#define GDS_GET_SLICE		REM_get_slice
+#define GDS_OPEN_BLOB2		REM_open_blob2
+#define GDS_PREPARE		REM_prepare_transaction
+#define GDS_PUT_SEGMENT		REM_put_segment
+#define GDS_PUT_SLICE		REM_put_slice
+#define GDS_QUE_EVENTS		REM_que_events
+#define GDS_RECEIVE		REM_receive
+#define GDS_RECONNECT		REM_reconnect_transaction
+#define GDS_RELEASE_REQUEST	REM_release_request
+#define GDS_REQUEST_INFO	REM_request_info
+#define GDS_ROLLBACK_RETAINING	REM_rollback_retaining
+#define GDS_ROLLBACK		REM_rollback_transaction
+#define GDS_SEEK_BLOB		REM_seek_blob
+#define GDS_SEND		REM_send
+#define GDS_SERVICE_ATTACH	REM_service_attach
+#define GDS_SERVICE_DETACH	REM_service_detach
+#define GDS_SERVICE_QUERY	REM_service_query
+#define GDS_SERVICE_START	REM_service_start
+#define GDS_START_AND_SEND	REM_start_and_send
+#define GDS_START		REM_start_request
+#define GDS_START_TRANSACTION	REM_start_transaction
+#define GDS_TRANSACT_REQUEST	REM_transact_request
+#define GDS_TRANSACTION_INFO	REM_transaction_info
+#define GDS_UNWIND		REM_unwind_request
+
+/* DSQL definitions */
+
+#define GDS_DSQL_ALLOCATE	REM_allocate_statement
+#define GDS_DSQL_EXECUTE	REM_execute
+#define GDS_DSQL_EXECUTE2	REM_execute2
+#define GDS_DSQL_EXECUTE_IMMED	REM_execute_immediate
+#define GDS_DSQL_EXECUTE_IMMED2	REM_execute_immediate2
+#define GDS_DSQL_FETCH		REM_fetch
+#define GDS_DSQL_FREE		REM_free_statement
+#define GDS_DSQL_INSERT		REM_insert
+#define GDS_DSQL_PREPARE	REM_prepare
+#define GDS_DSQL_SET_CURSOR	REM_set_cursor_name
+#define GDS_DSQL_SQL_INFO	REM_sql_info
+
+
+STATUS GDS_ATTACH_DATABASE(STATUS*	user_status,
+						   SSHORT	file_length,
+						   SCHAR*	file_name,
+						   RDB*		handle,
+						   SSHORT	dpb_length,
+						   SCHAR*	dpb,
+						   UCHAR*	expanded_filename)
+{
+/**************************************
+ *
+ *	g d s _ a t t a c h _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to an old, grungy database, corrupted by user data.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	USHORT length, user_verification, new_dpb_length, result;
+	STATUS *v;
+	UCHAR expanded_name[MAXPATHLEN], new_dpb[MAXPATHLEN], *new_dpb_ptr;
+	TEXT user_string[256], *us;
+	TEXT node_name[MAXPATHLEN];
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	(void) memset((void *) node_name, 0, (size_t) MAXPATHLEN);
+
+	v = user_status;
+	*v++ = gds_arg_gds;
+	*v++ = gds_unavailable;
+	*v = gds_arg_end;
+
+#ifdef UNIX
+/* If single user, return */
+
+	if (get_single_user(dpb_length, dpb))
+		return gds_unavailable;
+#endif
+
+	SET_THREAD_DATA;
+
+	NULL_CHECK(handle, gds_bad_db_handle);
+
+	strcpy((char *) expanded_name, (char *) expanded_filename);
+	length = strlen((char *) expanded_name);
+
+	new_dpb_ptr = new_dpb;
+	if ((dpb_length + MAX_USER_LENGTH + MAX_PASSWORD_ENC_LENGTH +
+		 MAX_OTHER_PARAMS) > sizeof(new_dpb))
+	{
+		new_dpb_ptr =
+			gds__alloc(dpb_length + MAX_USER_LENGTH +
+					   MAX_PASSWORD_ENC_LENGTH + MAX_OTHER_PARAMS);
+
+		/* FREE: by return(s) from this procedure */
+
+		if (!new_dpb_ptr)
+		{		/* NOMEM: return error to client */
+			user_status[1] = gds_virmemexh;
+			return error(user_status);
+		}
+	}
+	user_verification =
+		get_new_dpb((UCHAR *) dpb, dpb_length,
+					TRUE,
+					new_dpb_ptr,
+					&new_dpb_length,
+					user_string);
+
+	us = (user_string[0]) ? user_string : 0;
+
+	port = analyze((TEXT*)expanded_name,
+					&length,
+					user_status,
+					us,
+					user_verification,
+					dpb,
+					dpb_length,
+					node_name);
+	if (!port)
+	{
+		if (new_dpb_ptr != new_dpb) {
+			gds__free(new_dpb_ptr);
+		}
+		return error(user_status);
+	}
+
+	rdb = port->port_context;
+	ERROR_INIT(env);
+
+
+/* The client may have set a parameter for dummy_packet_interval.  Add that to the
+   the DPB so the server can pay attention to it.  Note: allocation code must
+   ensure sufficient space has been added. */
+
+	add_other_params(port, new_dpb_ptr, &new_dpb_length);
+	add_working_directory(new_dpb_ptr, &new_dpb_length, node_name);
+
+	result = init(	user_status,
+					port,
+					op_attach,
+					expanded_name,
+					length,
+					new_dpb_ptr,
+					new_dpb_length);
+
+	if (new_dpb_ptr != new_dpb) {
+		gds__free(new_dpb_ptr);
+	}
+	if (!result) {
+		return error(user_status);
+	}
+
+	*handle = rdb;
+
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_BLOB_INFO(STATUS*	user_status,
+					 RBL*		blob_handle,
+					 SSHORT		item_length,
+					 SCHAR*		items,
+					 SSHORT		buffer_length,
+					 SCHAR*		buffer)
+{
+/**************************************
+ *
+ *	g d s _ b l o b _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on blob object.
+ *
+ **************************************/
+	RBL blob;
+	RDB rdb;
+	STATUS status;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, type_rbl, gds_bad_segstr_handle);
+	rdb = blob->rbl_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	status = info(user_status, rdb, op_info_blob, blob->rbl_id, 0,
+				  item_length, items, 0, 0, buffer_length, buffer);
+
+	RESTORE_THREAD_DATA;
+
+	return status;
+}
+
+
+STATUS GDS_CANCEL_BLOB(STATUS * user_status, RBL * blob_handle)
+{
+/**************************************
+ *
+ *	g d s _ c a n c e l _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a partially completed blob.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	if (!(blob = *blob_handle)) {
+		if (user_status) {
+			*user_status++ = gds_arg_gds;
+			*user_status++ = SUCCESS;
+			*user_status = gds_arg_end;
+		}
+		return SUCCESS;
+	}
+
+	SET_THREAD_DATA;
+
+	CHECK_HANDLE(blob, type_rbl, gds_bad_segstr_handle);
+	rdb = blob->rbl_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	if (!release_object(rdb, op_cancel_blob, blob->rbl_id))
+		return error(user_status);
+
+	release_blob(blob);
+	*blob_handle = NULL;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_CANCEL_EVENTS(STATUS * user_status, RDB * handle, SLONG * id)
+{
+/**************************************
+ *
+ *	g d s _ $ c a n c e l _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel an outstanding event.
+ *
+ **************************************/
+	RVNT event;
+	RDB rdb;
+	PORT port;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	rdb = *handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	port = rdb->rdb_port;
+
+/* Make sure protocol supports action */
+
+	if (port->port_protocol < PROTOCOL_VERSION6)
+		return unsupported(user_status);
+
+/* If the event exists, tell the remote server to cancel it,
+   and delete it from the list */
+
+	if (event = find_event(port, *id))
+		send_cancel_event(event);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_CLOSE_BLOB(STATUS * user_status, RBL * blob_handle)
+{
+/**************************************
+ *
+ *	g d s _ c l o s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close a completed blob.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	PORT port;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, type_rbl, gds_bad_segstr_handle);
+	rdb = blob->rbl_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+	port = rdb->rdb_port;
+
+	if (!(port->port_flags & PORT_rpc) &&
+		(blob->rbl_flags & RBL_create) && blob->rbl_ptr != blob->rbl_buffer) {
+		if (send_blob(user_status, blob, 0, NULL))
+			return error(user_status);
+	}
+
+	if (!release_object(rdb, op_close_blob, blob->rbl_id))
+		return error(user_status);
+
+	release_blob(blob);
+	*blob_handle = NULL;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_COMMIT(STATUS * user_status, RTR * rtr_handle)
+{
+/**************************************
+ *
+ *	g d s _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Commit a transaction.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds_bad_trans_handle);
+	rdb = (*rtr_handle)->rtr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	if (!release_object(rdb, op_commit, transaction->rtr_id))
+		return error(user_status);
+
+	REMOTE_cleanup_transaction(transaction);
+	release_transaction(transaction);
+	*rtr_handle = NULL;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_COMMIT_RETAINING(STATUS * user_status, RTR * rtr_handle)
+{
+/**************************************
+ *
+ *	g d s _ c o m m i t _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds_bad_trans_handle);
+	rdb = (*rtr_handle)->rtr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+/* Make sure protocol support action */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION4)
+		return unsupported(user_status);
+
+	if (!release_object(rdb, op_commit_retaining, transaction->rtr_id))
+		return error(user_status);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_COMPILE(STATUS * user_status,
+				   RDB * db_handle,
+				   RRQ * req_handle, USHORT blr_length, UCHAR * blr)
+{
+/**************************************
+ *
+ *	g d s _ c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	RDB rdb;
+	UCHAR *new_blr;
+	PACKET *packet;
+	P_CMPL *compile;
+	RRQ request;
+	MSG message, next;
+	USHORT max_msg;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	NULL_CHECK(req_handle, gds_bad_req_handle);
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+/* Parse the request in case blr_d_float must be converted to blr_double */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION5)
+		new_blr = PARSE_prepare_messages(blr, blr_length);
+	else
+		new_blr = blr;
+
+/* Make up a packet for the remote guy */
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_compile;
+	compile = &packet->p_cmpl;
+	compile->p_cmpl_database = rdb->rdb_id;
+	compile->p_cmpl_blr.cstr_length = blr_length;
+	compile->p_cmpl_blr.cstr_address = new_blr;
+
+	(void) send_and_receive(rdb, packet, user_status);
+	if (new_blr != blr)
+		ALLR_free(new_blr);
+	if (user_status[1])
+		return error(user_status);
+
+/* Parse the request to find the messages */
+
+	message = PARSE_messages(blr, blr_length);
+	max_msg = 0;
+
+	for (next = message; next; next = next->msg_next)
+		max_msg = MAX(max_msg, next->msg_number);
+
+/* Allocate request block */
+
+	*req_handle = request = (RRQ) ALLOCV(type_rrq, max_msg + 1);
+	request->rrq_rdb = rdb;
+	request->rrq_id = packet->p_resp.p_resp_object;
+	request->rrq_max_msg = max_msg;
+	SET_OBJECT(rdb, request, request->rrq_id);
+	request->rrq_next = rdb->rdb_requests;
+	rdb->rdb_requests = request;
+
+/* when the messages are parsed, they are linked together; we need 
+   to place the messages in the tail of the request block and create 
+   a queue of length 1 for each message number */
+
+	for (; message; message = next) {
+		next = message->msg_next;
+
+		message->msg_next = message;
+#ifdef SCROLLABLE_CURSORS
+		message->msg_prior = message;
+#endif
+
+		rrq::rrq_repeat * tail = request->rrq_rpt + message->msg_number;
+		tail->rrq_message = message;
+		tail->rrq_xdr = message;
+#ifdef SCROLLABLE_CURSORS
+		tail->rrq_last = NULL;
+#endif
+		tail->rrq_format = (FMT) message->msg_address;
+
+		message->msg_address = NULL;
+	}
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_CREATE_BLOB2(STATUS * user_status,
+						RDB * db_handle,
+						RTR * rtr_handle,
+						RBL * blob_handle,
+						BID blob_id, USHORT bpb_length, UCHAR * bpb)
+{
+/**************************************
+ *
+ *	g d s _ c r e a t e _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	RBL blob;
+	PACKET *packet;
+	P_BLOB *p_blob;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	NULL_CHECK(blob_handle, gds_bad_segstr_handle);
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	CHECK_HANDLE((*rtr_handle), type_rtr, gds_bad_trans_handle);
+	transaction = *rtr_handle;
+	ERROR_INIT(env);
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_create_blob;
+	p_blob = &packet->p_blob;
+	p_blob->p_blob_transaction = transaction->rtr_id;
+
+	if (rdb->rdb_port->port_protocol >= PROTOCOL_VERSION4) {
+		packet->p_operation = op_create_blob2;
+		p_blob->p_blob_bpb.cstr_length = bpb_length;
+		p_blob->p_blob_bpb.cstr_address = bpb;
+	}
+
+	(void) send_and_receive(rdb, packet, user_status);
+	p_blob->p_blob_bpb.cstr_length = 0;
+	p_blob->p_blob_bpb.cstr_address = NULL;
+
+	if (user_status[1])
+		return error(user_status);
+
+	*blob_handle = blob = (RBL) ALLOCV(type_rbl, BLOB_LENGTH);
+	*blob_id = packet->p_resp.p_resp_blob_id;
+	blob->rbl_buffer_length = BLOB_LENGTH;
+	blob->rbl_rdb = rdb;
+	blob->rbl_rtr = transaction;
+	blob->rbl_id = packet->p_resp.p_resp_object;
+	blob->rbl_ptr = blob->rbl_buffer = blob->rbl_data;
+	blob->rbl_flags |= RBL_create;
+	SET_OBJECT(rdb, blob, blob->rbl_id);
+	blob->rbl_next = transaction->rtr_blobs;
+	transaction->rtr_blobs = blob;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_CREATE_DATABASE(STATUS * user_status,
+						   SSHORT file_length,
+						   SCHAR * file_name,
+						   RDB * handle,
+						   SSHORT dpb_length,
+						   SCHAR * dpb,
+						   SSHORT db_type, UCHAR * expanded_filename)
+{
+/**************************************
+ *
+ *	g d s _ c r e a t e _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a nice, squeeky clean database, uncorrupted by user data.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	USHORT length, user_verification, new_dpb_length, result;
+	STATUS *v;
+	UCHAR expanded_name[MAXPATHLEN], new_dpb[MAXPATHLEN], *new_dpb_ptr;
+	TEXT user_string[256], *us;
+	TEXT node_name[MAXPATHLEN];
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	(void) memset((void *) node_name, 0, (size_t) MAXPATHLEN);
+
+	v = user_status;
+	*v++ = gds_arg_gds;
+	*v++ = gds_unavailable;
+	*v = gds_arg_end;
+
+#ifdef UNIX
+/* If single user, return */
+
+	if (get_single_user(dpb_length, dpb))
+		return gds_unavailable;
+#endif
+
+	SET_THREAD_DATA;
+
+	NULL_CHECK(handle, gds_bad_db_handle);
+
+	strcpy((char *) expanded_name, (char *) expanded_filename);
+	length = strlen((char *) expanded_name);
+
+	new_dpb_ptr = new_dpb;
+	if (
+		(dpb_length + MAX_USER_LENGTH + MAX_PASSWORD_ENC_LENGTH +
+		 MAX_OTHER_PARAMS) > sizeof(new_dpb)) {
+		new_dpb_ptr =
+			gds__alloc(dpb_length + MAX_USER_LENGTH +
+					   MAX_PASSWORD_ENC_LENGTH + MAX_OTHER_PARAMS);
+
+		/* FREE: by return(s) in this routine */
+
+		if (!new_dpb_ptr) {		/* NOMEM: return error to client */
+			user_status[1] = gds_virmemexh;
+			return error(user_status);
+		}
+	}
+	user_verification =
+		get_new_dpb((UCHAR *) dpb, dpb_length, TRUE, new_dpb_ptr,
+					&new_dpb_length, user_string);
+
+	if (user_string[0])
+		us = user_string;
+	else
+		us = 0;
+
+	if (!
+		(port =
+		 analyze((TEXT *) expanded_name, &length, user_status, us,
+				 user_verification, dpb, dpb_length, node_name))) {
+		if (new_dpb_ptr != new_dpb)
+			gds__free(new_dpb_ptr);
+		return error(user_status);
+	}
+
+	rdb = port->port_context;
+	ERROR_INIT(env);
+
+
+/* The client may have set a parameter for dummy_packet_interval.  Add that to the
+   the DPB so the server can pay attention to it.  Note: allocation code must
+   ensure sufficient space has been added. */
+
+	add_other_params(port, new_dpb_ptr, &new_dpb_length);
+	add_working_directory(new_dpb_ptr, &new_dpb_length, node_name);
+
+	result =
+		init(user_status, port, op_create, expanded_name, length, new_dpb_ptr,
+			 new_dpb_length);
+	if (new_dpb_ptr != new_dpb)
+		gds__free(new_dpb_ptr);
+	if (!result)
+		return error(user_status);
+
+	*handle = rdb;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DATABASE_INFO(STATUS*	user_status,
+						 RDB*		handle,
+						 SSHORT		item_length,
+						 SCHAR*		items,
+						 SSHORT		buffer_length,
+						 SCHAR*		buffer)
+{
+/**************************************
+ *
+ *	g d s _ d a t a b a s e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on database object.
+ *
+ **************************************/
+	RDB		rdb;
+	PORT	port;
+	STATUS	status;
+	UCHAR	temp[1024];
+	UCHAR*	temp_buffer;
+	JMP_BUF	env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	rdb = *handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	if (buffer_length > sizeof(temp)) {
+		temp_buffer = ALLR_alloc((SLONG) buffer_length);
+	} else {
+		temp_buffer = temp;
+	}
+/* NOMEM: ALLR_alloc handled */
+/* FREE:  Normal case later in this procedure, what about error to ERROR_INIT? */
+
+	status = info(user_status, rdb, op_info_database, rdb->rdb_id, 0,
+				  item_length, items, 0, 0, buffer_length,
+				  (SCHAR *) temp_buffer);
+
+	if (!status)
+	{
+		/* two bytes too much allocated, better safe than sorry */
+		const size_t nLen = strlen(GDS_VERSION) +
+							strlen(port->port_version->str_data) + 4;
+		char* version = (char*)ALLR_alloc(nLen);
+
+		port = rdb->rdb_port;
+		
+		sprintf(version, "%s/%s", GDS_VERSION, port->port_version->str_data);
+
+		MERGE_database_info(temp_buffer, (UCHAR *) buffer, buffer_length,
+							IMPLEMENTATION, 3, 1, (UCHAR*)version,
+							(UCHAR *) port->port_host->str_data, 0);
+		ALLR_free(version);
+	}
+
+	if (temp_buffer != temp) {
+		ALLR_free(temp_buffer);
+	}
+
+	RESTORE_THREAD_DATA;
+
+	return status;
+}
+
+
+STATUS GDS_DDL(STATUS*	user_status,
+			   RDB*		db_handle,
+			   RTR*		rtr_handle,
+			   USHORT	blr_length,
+			   UCHAR*	blr)
+{
+/**************************************
+ *
+ *	g d s _ d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	PACKET *packet;
+	P_DDL *ddl;
+	STATUS status;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	CHECK_HANDLE((*rtr_handle), type_rtr, gds_bad_trans_handle);
+	transaction = *rtr_handle;
+	ERROR_INIT(env);
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION4)
+		return unsupported(user_status);
+
+/* Make up a packet for the remote guy */
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_ddl;
+	ddl = &packet->p_ddl;
+	ddl->p_ddl_database = rdb->rdb_id;
+	ddl->p_ddl_transaction = transaction->rtr_id;
+	ddl->p_ddl_blr.cstr_length = blr_length;
+	ddl->p_ddl_blr.cstr_address = blr;
+
+	status = send_and_receive(rdb, packet, user_status);
+
+	RESTORE_THREAD_DATA;
+
+	return status;
+}
+
+
+STATUS GDS_DETACH(STATUS* user_status, RDB* handle)
+{
+/**************************************
+ *
+ *	g d s _ d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a database.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	rdb = *handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+	port = rdb->rdb_port;
+
+	(void) release_object(rdb, op_detach, rdb->rdb_id);
+
+/* If something other than a network error occurred, just return.  Otherwise
+   we need to free up the associated structures, close the socket and
+   scram.  By the way, we should probably create an entry in the log
+   telling the user that an unrecoverable network error occurred and that
+   if there was any uncommitted work, its gone......  Oh well.... */
+
+	if (user_status[1] && user_status[1] != isc_network_error)
+	{
+		return (error(user_status));
+	}
+
+	while (rdb->rdb_events)
+		release_event(rdb->rdb_events);
+
+	while (rdb->rdb_requests)
+		release_request(rdb->rdb_requests);
+
+	while (rdb->rdb_sql_requests)
+		release_sql_request(rdb->rdb_sql_requests);
+
+	while (rdb->rdb_transactions)
+		release_transaction(rdb->rdb_transactions);
+
+	if (port->port_statement)
+		release_statement(&port->port_statement);
+
+/* If there is a network error, don't try to send another packet, just
+   free the packet and disconnect the port. Put something into interbase.log
+   informing the user of the following. */
+
+	if (user_status[1])
+	{
+		gds__log("REMOTE INTERFACE/gds__detach: Unsuccesful detach from "
+				"database. \n\tUncommitted work may have been lost", 0);
+	}
+
+	disconnect(port);
+	*handle = NULL;
+
+	/* Can't RETURN_SUCCESS here as we've already torn down memory */
+
+	RESTORE_THREAD_DATA;
+
+	*user_status++ = gds_arg_gds;
+	*user_status++ = SUCCESS;
+	*user_status = gds_arg_end;
+
+	return SUCCESS;
+}
+
+
+STATUS GDS_DROP_DATABASE(STATUS* user_status, RDB* handle)
+{
+/**************************************
+ *
+ *	i s c _ d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down and purge a database.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	STATUS local_status[20];
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	rdb = *handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+	port = rdb->rdb_port;
+
+/* Make sure protocol supports the action */
+
+	if (port->port_protocol < PROTOCOL_VERSION8)
+		return unsupported(user_status);
+
+	if (!release_object(rdb, op_drop_database, rdb->rdb_id))
+		if (user_status[1] != gds_drdb_completed_with_errs)
+			return error(user_status);
+
+	while (rdb->rdb_events)
+		release_event(rdb->rdb_events);
+
+	while (rdb->rdb_requests)
+		release_request(rdb->rdb_requests);
+
+	while (rdb->rdb_sql_requests)
+		release_sql_request(rdb->rdb_sql_requests);
+
+	while (rdb->rdb_transactions)
+		release_transaction(rdb->rdb_transactions);
+
+	if (port->port_statement)
+		release_statement(&port->port_statement);
+
+	rdb->rdb_status_vector = local_status;
+
+	disconnect(port);
+	*handle = NULL;
+
+	RESTORE_THREAD_DATA;
+
+	return user_status[1];
+}
+
+
+STATUS GDS_DSQL_ALLOCATE(STATUS*	user_status,
+						 RDB*		db_handle,
+						 RSR*		stmt_handle)
+{
+/**************************************
+ *
+ *	d s q l _ a l l o c a t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a statement handle.
+ *
+ **************************************/
+	RDB rdb;
+	RSR statement;
+	PACKET *packet;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	NULL_CHECK(stmt_handle, gds_bad_req_handle);
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+/* Make sure protocol support action */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION7)
+		return unsupported(user_status);
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_allocate_statement;
+	packet->p_rlse.p_rlse_object = rdb->rdb_id;
+
+	if (send_and_receive(rdb, packet, user_status))
+		return error(user_status);
+
+/* Allocate SQL request block */
+
+	*stmt_handle = statement = (RSR) ALLOC(type_rsr);
+	statement->rsr_rdb = rdb;
+	statement->rsr_id = packet->p_resp.p_resp_object;
+	statement->rsr_next = rdb->rdb_sql_requests;
+
+	rdb->rdb_sql_requests = statement;
+
+/* register the object */
+
+	SET_OBJECT(rdb, statement, statement->rsr_id);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_EXECUTE(STATUS*	user_status,
+						RTR*	rtr_handle,
+						RSR*	stmt_handle,
+						USHORT	blr_length,
+						UCHAR*	blr,
+						USHORT	msg_type,
+						USHORT	msg_length,
+						UCHAR*	msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+
+	return GDS_DSQL_EXECUTE2(user_status, rtr_handle, stmt_handle,
+							 blr_length, blr, msg_type, msg_length, msg, 0,
+							 NULL, 0, 0, NULL);
+}
+
+
+STATUS GDS_DSQL_EXECUTE2(STATUS*	user_status,
+						 RTR*		rtr_handle,
+						 RSR*		stmt_handle,
+						 USHORT		in_blr_length,
+						 UCHAR*		in_blr,
+						 USHORT		in_msg_type,
+						 USHORT		in_msg_length,
+						 UCHAR*		in_msg,
+						 USHORT		out_blr_length,
+						 UCHAR*		out_blr,
+						 USHORT		out_msg_type,
+						 USHORT		out_msg_length,
+						 UCHAR*		out_msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	RTR transaction;
+	RSR statement;
+	MSG message;
+	PACKET *packet;
+	P_SQLDATA *sqldata;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds_bad_req_handle);
+	rdb = statement->rsr_rdb;
+	if (transaction = *rtr_handle)
+		CHECK_HANDLE(transaction, type_rtr, gds_bad_trans_handle);
+	ERROR_INIT(env);
+	port = rdb->rdb_port;
+
+/* bag it if the protocol doesn't support it... */
+
+	if (port->port_protocol < PROTOCOL_VERSION7 ||
+		(out_msg_length && port->port_protocol < PROTOCOL_VERSION8))
+		return unsupported(user_status);
+
+/* Parse the blr describing the message, if there is any. */
+
+	if (in_blr_length) {
+		if (statement->rsr_bind_format) {
+			ALLR_RELEASE(statement->rsr_bind_format);
+			statement->rsr_bind_format = NULL;
+		}
+		if ((message = PARSE_messages(in_blr, in_blr_length)) != (MSG) - 1) {
+			statement->rsr_bind_format = (FMT) message->msg_address;
+			ALLR_RELEASE(message);
+		}
+	}
+
+/* Parse the blr describing the output message.  This is not the fetch
+   message!  That comes later. */
+
+	if (out_blr_length) {
+		if (!port->port_statement)
+			port->port_statement = (RSR) ALLOC(type_rsr);
+
+		if (port->port_statement->rsr_select_format) {
+			ALLR_RELEASE(port->port_statement->rsr_select_format);
+			port->port_statement->rsr_select_format = NULL;
+		}
+		if ((message = PARSE_messages(out_blr, out_blr_length)) != (MSG) - 1) {
+			port->port_statement->rsr_select_format =
+				(FMT) message->msg_address;
+			ALLR_RELEASE(message);
+		}
+
+		if (!port->port_statement->rsr_buffer) {
+			port->port_statement->rsr_buffer = message =
+				(MSG) ALLOCV(type_msg, 0);
+			port->port_statement->rsr_message = message;
+			message->msg_next = message;
+#ifdef SCROLLABLE_CURSORS
+			message->msg_prior = message;
+#endif
+			port->port_statement->rsr_fmt_length = 0;
+		}
+	}
+
+	if (!statement->rsr_buffer) {
+		statement->rsr_buffer = message = (MSG) ALLOCV(type_msg, 0);
+		statement->rsr_message = message;
+
+		message->msg_next = message;
+#ifdef SCROLLABLE_CURSORS
+		message->msg_prior = message;
+#endif
+
+		statement->rsr_fmt_length = 0;
+	}
+	else
+		message = statement->rsr_message = statement->rsr_buffer;
+
+	message->msg_address = in_msg;
+	statement->rsr_flags &= ~RSR_fetched;
+	statement->rsr_format = statement->rsr_bind_format;
+
+/* set up the packet for the other guy... */
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = (out_msg_length) ? op_execute2 : op_execute;
+	sqldata = &packet->p_sqldata;
+	sqldata->p_sqldata_statement = statement->rsr_id;
+	sqldata->p_sqldata_transaction = (transaction) ? transaction->rtr_id : 0;
+	sqldata->p_sqldata_blr.cstr_length = in_blr_length;
+	sqldata->p_sqldata_blr.cstr_address = in_blr;
+	sqldata->p_sqldata_message_number = in_msg_type;
+	sqldata->p_sqldata_messages = (statement->rsr_bind_format) ? 1 : 0;
+	sqldata->p_sqldata_out_blr.cstr_length = out_blr_length;
+	sqldata->p_sqldata_out_blr.cstr_address = out_blr;
+	sqldata->p_sqldata_out_message_number = out_msg_type;
+
+	if (!send_packet(port, packet, user_status))
+		return error(user_status);
+
+/* Set up the response packet.  We may receive an SQL response followed
+   by a normal response packet or simply a response packet. */
+
+	message->msg_address = NULL;
+	if (out_msg_length)
+		port->port_statement->rsr_message->msg_address = out_msg;
+
+	packet->p_resp.p_resp_status_vector = rdb->rdb_status_vector;
+
+	if (!receive_packet(port, packet, user_status))
+		return error(user_status);
+
+	if (packet->p_operation != op_sql_response)
+		check_response(rdb, packet);
+	else {
+		port->port_statement->rsr_message->msg_address = NULL;
+		(void) receive_response(rdb, packet);
+	}
+
+	if (user_status[1])
+		return error(user_status);
+
+	if (transaction && !packet->p_resp.p_resp_object) {
+		REMOTE_cleanup_transaction(transaction);
+		release_transaction(transaction);
+		*rtr_handle = NULL;
+	}
+	else if (!transaction && packet->p_resp.p_resp_object)
+		*rtr_handle = make_transaction(rdb, packet->p_resp.p_resp_object);
+
+	statement->rsr_rtr = *rtr_handle;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_EXECUTE_IMMED(STATUS * user_status,
+							  RDB * db_handle,
+							  RTR * rtr_handle,
+							  USHORT length,
+							  TEXT * string,
+							  USHORT dialect,
+							  USHORT blr_length,
+							  UCHAR * blr,
+							  USHORT msg_type, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e _ i m m e d i a t e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare and execute a statement.
+ *
+ **************************************/
+
+	return GDS_DSQL_EXECUTE_IMMED2(user_status, db_handle, rtr_handle,
+								   length, string, dialect,
+								   blr_length, blr, msg_type, msg_length, msg,
+								   0, NULL, 0, 0, NULL);
+}
+
+
+STATUS GDS_DSQL_EXECUTE_IMMED2(STATUS * user_status,
+							   RDB * db_handle,
+							   RTR * rtr_handle,
+							   USHORT length,
+							   TEXT * string,
+							   USHORT dialect,
+							   USHORT in_blr_length,
+							   UCHAR * in_blr,
+							   USHORT in_msg_type,
+							   USHORT in_msg_length,
+							   UCHAR * in_msg,
+							   USHORT out_blr_length,
+							   UCHAR * out_blr,
+							   USHORT out_msg_type,
+							   USHORT out_msg_length, UCHAR * out_msg)
+{
+/**************************************
+ *
+ *	d s q l _ e x e c u t e _ i m m e d i a t e 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare and execute a statement.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	RTR transaction;
+	PACKET *packet;
+	P_SQLST *ex_now;
+	RSR statement;
+	MSG message;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	if (transaction = *rtr_handle)
+		CHECK_HANDLE(transaction, type_rtr, gds_bad_trans_handle);
+	ERROR_INIT(env);
+	port = rdb->rdb_port;
+
+/* bag it if the protocol doesn't support it... */
+
+	if (port->port_protocol < PROTOCOL_VERSION7 ||
+		((in_msg_length || out_msg_length)
+		 && port->port_protocol <
+		 PROTOCOL_VERSION8)) return unsupported(user_status);
+
+/* If the server is pre-6.0, do not send anything if the client dialect is 3 and
+   there is a SQLDA.  This will cause the older server to crash */
+	if (port->port_protocol < PROTOCOL_VERSION10 &&
+		(in_msg_length || out_msg_length) && dialect > SQL_DIALECT_V5)
+		return unsupported(user_status);
+
+	if (!(statement = port->port_statement))
+		statement = port->port_statement = (RSR) ALLOC(type_rsr);
+
+/* reset statement buffers */
+
+	if (!clear_queue(rdb->rdb_port, user_status))
+		return error(user_status);
+
+	REMOTE_reset_statement(statement);
+
+	if (statement->rsr_bind_format) {
+		ALLR_RELEASE(statement->rsr_bind_format);
+		statement->rsr_bind_format = NULL;
+	}
+
+	if (statement->rsr_select_format) {
+		ALLR_RELEASE(statement->rsr_select_format);
+		statement->rsr_select_format = NULL;
+	}
+
+	if (in_msg_length || out_msg_length) {
+		if (in_blr_length)
+			if ((message = PARSE_messages(in_blr, in_blr_length)) !=
+				(MSG) - 1) {
+				statement->rsr_bind_format = (FMT) message->msg_address;
+				ALLR_RELEASE(message);
+			}
+
+		if (out_blr_length)
+			if ((message = PARSE_messages(out_blr, out_blr_length)) !=
+				(MSG) - 1) {
+				statement->rsr_select_format = (FMT) message->msg_address;
+				ALLR_RELEASE(message);
+			}
+
+	}
+
+	if (!statement->rsr_buffer) {
+		statement->rsr_buffer = message = (MSG) ALLOCV(type_msg, 0);
+		statement->rsr_message = message;
+		message->msg_next = message;
+#ifdef SCROLLABLE_CURSORS
+		message->msg_prior = message;
+#endif
+		statement->rsr_fmt_length = 0;
+	}
+	else
+		message = statement->rsr_message = statement->rsr_buffer;
+
+	message->msg_address = in_msg;
+
+/* set up the packet for the other guy... */
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = (in_msg_length || out_msg_length) ?
+		op_exec_immediate2 : op_exec_immediate;
+	ex_now = &packet->p_sqlst;
+	ex_now->p_sqlst_transaction = (transaction) ? transaction->rtr_id : 0;
+	ex_now->p_sqlst_SQL_dialect = dialect;
+	ex_now->p_sqlst_SQL_str.cstr_length =
+		length ? length : strlen((char *) string);
+	ex_now->p_sqlst_SQL_str.cstr_address = (UCHAR *) string;
+	ex_now->p_sqlst_items.cstr_length = 0;
+	ex_now->p_sqlst_buffer_length = 0;
+	ex_now->p_sqlst_blr.cstr_length = in_blr_length;
+	ex_now->p_sqlst_blr.cstr_address = in_blr;
+	ex_now->p_sqlst_message_number = in_msg_type;
+	ex_now->p_sqlst_messages = (in_msg_length
+								&& statement->rsr_bind_format) ? 1 : 0;
+	ex_now->p_sqlst_out_blr.cstr_length = out_blr_length;
+	ex_now->p_sqlst_out_blr.cstr_address = out_blr;
+	ex_now->p_sqlst_out_message_number = out_msg_type;
+
+	if (!send_packet(port, packet, user_status))
+		return error(user_status);
+
+/* SEND could have changed the message */
+
+	message = statement->rsr_message;
+
+/* Set up the response packet.  We may receive an SQL response followed
+   by a normal response packet or simply a response packet. */
+
+	if (in_msg_length || out_msg_length)
+		port->port_statement->rsr_message->msg_address = out_msg;
+
+	packet->p_resp.p_resp_status_vector = rdb->rdb_status_vector;
+	if (!receive_packet(rdb->rdb_port, packet, user_status))
+		return error(user_status);
+
+	if (packet->p_operation != op_sql_response)
+		check_response(rdb, packet);
+	else {
+		message->msg_address = NULL;
+		(void) receive_response(rdb, packet);
+	}
+
+	if (user_status[1])
+		return error(user_status);
+
+	if (transaction && !packet->p_resp.p_resp_object) {
+		REMOTE_cleanup_transaction(transaction);
+		release_transaction(transaction);
+		*rtr_handle = NULL;
+	}
+	else if (!transaction && packet->p_resp.p_resp_object)
+		*rtr_handle = make_transaction(rdb, packet->p_resp.p_resp_object);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_FETCH(STATUS * user_status,
+					  RSR * stmt_handle,
+					  USHORT blr_length,
+					  UCHAR * blr,
+					  USHORT msg_type, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *
+ *	d s q l _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor.
+ *
+ **************************************/
+	RDB rdb;
+	RSR statement;
+	MSG message;
+	PORT port;
+	PACKET *packet;
+	P_SQLDATA *sqldata;
+	STATUS status;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds_bad_req_handle);
+	rdb = statement->rsr_rdb;
+	port = rdb->rdb_port;
+	ERROR_INIT(env);
+
+/* make sure the protocol supports it */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION7)
+		return unsupported(user_status);
+
+/* On first fetch, clear the end-of-stream flag & reset the message buffers */
+
+	if (!(statement->rsr_flags & RSR_fetched)) {
+		statement->rsr_flags &= ~(RSR_eof | RSR_stream_err);
+		statement->rsr_rows_pending = 0;
+		memset(statement->rsr_status_vector, 0,
+			   sizeof(statement->rsr_status_vector));
+		if (message = statement->rsr_message) {
+			statement->rsr_buffer = message;
+			while (TRUE) {
+				message->msg_address = NULL;
+				message = message->msg_next;
+				if (message == statement->rsr_message)
+					break;
+			}
+		}
+	}
+
+/* Parse the blr describing the message, if there is any. */
+
+	if (blr_length) {
+		if (statement->rsr_user_select_format &&
+			statement->rsr_user_select_format != statement->rsr_select_format)
+			ALLR_RELEASE(statement->rsr_user_select_format);
+		if ((message = PARSE_messages(blr, blr_length)) != (MSG) - 1) {
+			statement->rsr_user_select_format = (FMT) message->msg_address;
+			ALLR_RELEASE(message);
+		}
+		else
+			statement->rsr_user_select_format = NULL;
+		if (statement->rsr_flags & RSR_fetched)
+			blr_length = 0;
+		else {
+			if (statement->rsr_select_format)
+				ALLR_RELEASE(statement->rsr_select_format);
+			statement->rsr_select_format = statement->rsr_user_select_format;
+		}
+	}
+
+	if (statement->rsr_flags & RSR_blob) {
+		status = fetch_blob(user_status, statement, blr_length, blr,
+							msg_type, msg_length, msg);
+		RESTORE_THREAD_DATA;
+		return status;
+	}
+
+
+	if (!statement->rsr_buffer) {
+		statement->rsr_buffer = (MSG) ALLOCV(type_msg, 0);
+		statement->rsr_message = statement->rsr_buffer;
+		statement->rsr_message->msg_next = statement->rsr_message;
+#ifdef SCROLLABLE_CURSORS
+		statement->rsr_message->msg_prior = statement->rsr_message;
+#endif
+		statement->rsr_fmt_length = 0;
+	}
+
+	message = statement->rsr_message;
+
+#ifdef DEBUG
+	ib_fprintf(ib_stdout, "Rows Pending in REM_fetch=%d\n",
+			   statement->rsr_rows_pending);
+#endif
+
+/* Check to see if data is waiting.  If not, solicite data. */
+
+	if ((!(statement->rsr_flags & (RSR_eof | RSR_stream_err)) &&
+		 (!statement->rsr_message->msg_address) &&
+		 (statement->rsr_rows_pending == 0))
+		|| (					/* Low in inventory */
+			   (statement->rsr_rows_pending <= statement->rsr_reorder_level) &&
+			   (statement->rsr_msgs_waiting <= statement->rsr_reorder_level)
+			   &&
+			   /* doing Batch, not RPC */
+			   !(port->port_flags & PORT_rpc) &&
+			   /* not using named pipe on NT */
+			   /* Pipelining causes both server & client to 
+			      write at the same time. In named pipes, writes
+			      block for the other end to read -  and so when both
+			      attempt to write simultaenously, they end up
+			      waiting indefinetly for the other end to read */
+			   (port->port_type != port_pipe) &&
+#ifdef XNET
+			   (port->port_type != port_xnet) &&
+#endif
+			   /* We've reached eof or there was an error */
+			   !(statement->rsr_flags & (RSR_eof | RSR_stream_err)) &&
+			   /* No error pending */
+			   (!statement->rsr_status_vector[1]))) {
+		/* set up the packet for the other guy... */
+
+		packet = &rdb->rdb_packet;
+		packet->p_operation = op_fetch;
+		sqldata = &packet->p_sqldata;
+		sqldata->p_sqldata_statement = statement->rsr_id;
+		sqldata->p_sqldata_blr.cstr_length = blr_length;
+		sqldata->p_sqldata_blr.cstr_address = blr;
+		sqldata->p_sqldata_message_number = msg_type;
+		if (sqldata->p_sqldata_messages =
+			(statement->rsr_select_format) ? 1 : 0) if (!(port->
+														  port_flags &
+														  PORT_rpc)) {
+				sqldata->p_sqldata_messages =
+					static_cast < USHORT >
+					(REMOTE_compute_batch_size
+					 (port, 0, op_fetch_response,
+					  statement->rsr_select_format));
+				sqldata->p_sqldata_messages *= 4;
+
+		/** Reorder data when the local buffer is half empty **/
+
+				statement->rsr_reorder_level =
+					sqldata->p_sqldata_messages / 2;
+#ifdef DEBUG
+				ib_fprintf(ib_stdout,
+						   "Recalculating Rows Pending in REM_fetch=%d\n",
+						   statement->rsr_rows_pending);
+#endif
+			}
+		statement->rsr_rows_pending += sqldata->p_sqldata_messages;
+
+		/* Make the batch request - and force the packet over the wire */
+
+		if (!send_packet(rdb->rdb_port, packet, user_status))
+			return error(user_status);
+
+		statement->rsr_batch_count++;
+
+		/* Queue up receipt of the pending data */
+
+		enqueue_receive(port, batch_dsql_fetch, rdb, (void *) statement,
+						NULL);
+
+		assert(statement->rsr_rows_pending > 0
+			   || (!statement->rsr_select_format));
+	}
+
+/* Receive queued responses until we have some data for this cursor
+   or an error status has been received. */
+
+/* We've either got data, or some is on the way, or we have an error, or we have EOF */
+
+	assert(statement->rsr_msgs_waiting || (statement->rsr_rows_pending > 0)
+		   || statement->rsr_status_vector[1]
+		   || statement->rsr_flags & (RSR_eof));
+
+	while (!(statement->rsr_status_vector[1])	/* received a database error */
+		   &&!(statement->rsr_flags & (RSR_eof))	/* reached end of cursor */
+		   &&!(statement->rsr_msgs_waiting >= 2)	/* Have looked ahead for end of batch */
+		   &&!(statement->rsr_rows_pending == 0)) {	/* Hit end of batch */
+		if (!receive_queued_packet
+			(trdb, port, user_status,
+			 statement->rsr_id)) return error(user_status);
+	}
+
+	if (!statement->rsr_msgs_waiting) {
+		if (statement->rsr_flags & RSR_eof) {
+			statement->rsr_flags &= ~RSR_eof;
+
+			/* Set up status vector and RESTORE_THREAD_DATA in common return_success */
+
+			(void) return_success(rdb);
+			return 100;
+		}
+
+		if (statement->rsr_flags & RSR_stream_err) {
+
+			/* The previous batch of receives ended with an error status.
+			   We're all done returning data in the local queue.
+			   Return that error status vector to the user. */
+
+			/* Stuff in the error result to the user's vector */
+
+			statement->rsr_flags &= ~RSR_stream_err;
+
+			memcpy(user_status, statement->rsr_status_vector,
+				   sizeof(statement->rsr_status_vector));
+			memset(statement->rsr_status_vector, 0,
+				   sizeof(statement->rsr_status_vector));
+
+			return error(user_status);
+		}
+	}
+	statement->rsr_msgs_waiting--;
+
+	message = statement->rsr_message;
+	statement->rsr_message = message->msg_next;
+
+	if (statement->rsr_user_select_format == statement->rsr_select_format) {
+		if ((U_IPTR) msg & (ALIGNMENT - 1))
+			memcpy(msg, message->msg_address, msg_length);
+		else
+			mov_faster((SLONG *) message->msg_address, (SLONG *) msg,
+					   msg_length);
+	}
+	else {
+		if (mov_dsql_message
+			(message->msg_address, statement->rsr_select_format, msg,
+			 statement->rsr_user_select_format)) return error(user_status);
+	}
+
+	message->msg_address = NULL;
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_FREE(STATUS * user_status, RSR * stmt_handle, USHORT option)
+{
+/**************************************
+ *
+ *	d s q l _ f r e e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release request for a Dynamic SQL statement
+ *
+ **************************************/
+	RDB rdb;
+	RSR statement;
+	PACKET *packet;
+	P_SQLFREE *free_stmt;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds_bad_req_handle);
+	rdb = statement->rsr_rdb;
+	ERROR_INIT(env);
+
+/* make sure the protocol supports it */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION7)
+		return unsupported(user_status);
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_free_statement;
+	free_stmt = &packet->p_sqlfree;
+	free_stmt->p_sqlfree_statement = statement->rsr_id;
+	free_stmt->p_sqlfree_option = option;
+
+	if (send_and_receive(rdb, packet, user_status))
+		return error(user_status);
+
+	statement->rsr_handle = (int *) packet->p_resp.p_resp_object;
+	if (packet->p_resp.p_resp_object == 0xFFFF) {
+		release_sql_request(statement);
+		*stmt_handle = NULL;
+	}
+	else {
+		statement->rsr_flags &= ~RSR_fetched;
+		statement->rsr_rtr = NULL;
+
+		if (!clear_queue(rdb->rdb_port, user_status))
+			return error(user_status);
+
+		REMOTE_reset_statement(statement);
+	}
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_INSERT(STATUS * user_status,
+					   RSR * stmt_handle,
+					   USHORT blr_length,
+					   UCHAR * blr,
+					   USHORT msg_type, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *
+ *	d s q l _ i n s e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Insert next record into a dynamic SQL cursor.
+ *
+ **************************************/
+	RDB rdb;
+	RSR statement;
+	MSG message;
+	PACKET *packet;
+	P_SQLDATA *sqldata;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds_bad_req_handle);
+	rdb = statement->rsr_rdb;
+	ERROR_INIT(env);
+
+/* make sure the protocol supports it */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION8)
+		return unsupported(user_status);
+
+/* Parse the blr describing the message, if there is any. */
+
+	if (blr_length) {
+		if (statement->rsr_bind_format) {
+			ALLR_RELEASE(statement->rsr_bind_format);
+			statement->rsr_bind_format = NULL;
+		}
+		if ((message = PARSE_messages(blr, blr_length)) != (MSG) - 1) {
+			statement->rsr_bind_format = (FMT) message->msg_address;
+			ALLR_RELEASE(message);
+		}
+	}
+
+	if (!statement->rsr_buffer) {
+		statement->rsr_buffer = message = (MSG) ALLOCV(type_msg, 0);
+		statement->rsr_message = message;
+		message->msg_next = message;
+#ifdef SCROLLABLE_CURSORS
+		message->msg_prior = message;
+#endif
+		statement->rsr_fmt_length = 0;
+	}
+	else
+		message = statement->rsr_message;
+
+	message->msg_address = msg;
+	statement->rsr_format = statement->rsr_bind_format;
+
+/* set up the packet for the other guy... */
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_insert;
+	sqldata = &packet->p_sqldata;
+	sqldata->p_sqldata_statement = statement->rsr_id;
+	sqldata->p_sqldata_blr.cstr_length = blr_length;
+	sqldata->p_sqldata_blr.cstr_address = blr;
+	sqldata->p_sqldata_message_number = msg_type;
+	sqldata->p_sqldata_messages = (statement->rsr_bind_format) ? 1 : 0;
+
+	if (!send_packet(rdb->rdb_port, packet, user_status))
+		return error(user_status);
+
+	message->msg_address = NULL;
+
+	if (!receive_response(rdb, packet))
+		return error(user_status);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_PREPARE(STATUS * user_status, RTR * rtr_handle, RSR * stmt_handle,	/* a remote statement block */
+						USHORT length,
+						TEXT * string,
+						USHORT dialect,
+						USHORT item_length,
+						SCHAR * items, USHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	d s q l _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a dynamic SQL statement for execution.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	RSR statement;
+	PACKET *packet;
+	P_SQLST *prepare;
+	P_RESP *response;
+	CSTRING temp;
+	BOOLEAN status;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds_bad_req_handle);
+	rdb = statement->rsr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	if (transaction = *rtr_handle)
+		CHECK_HANDLE(transaction, type_rtr, gds_bad_trans_handle);
+	ERROR_INIT(env);
+
+/* reset current statement */
+
+	if (!clear_queue(rdb->rdb_port, user_status))
+		return error(user_status);
+
+	REMOTE_reset_statement(statement);
+
+/* if we're less than protocol 7, the remote server doesn't support 
+ * DSQL, so we're done... */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION7)
+		return unsupported(user_status);
+
+/* set up the packet for the other guy... */
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_prepare_statement;
+	prepare = &packet->p_sqlst;
+	prepare->p_sqlst_transaction = (transaction) ? transaction->rtr_id : 0;
+	prepare->p_sqlst_statement = statement->rsr_id;
+	prepare->p_sqlst_SQL_dialect = dialect;
+	prepare->p_sqlst_SQL_str.cstr_length =
+		length ? length : strlen((char *) string);
+	prepare->p_sqlst_SQL_str.cstr_address = (UCHAR *) string;
+	prepare->p_sqlst_items.cstr_length = item_length;
+	prepare->p_sqlst_items.cstr_address = (UCHAR *) items;
+	prepare->p_sqlst_buffer_length = buffer_length;
+
+	if (!send_packet(rdb->rdb_port, packet, user_status))
+		return error(user_status);
+
+	statement->rsr_flags &= ~RSR_blob;
+
+/* Set up for the response packet. */
+
+	response = &packet->p_resp;
+	temp = response->p_resp_data;
+	response->p_resp_data.cstr_allocated = buffer_length;
+	response->p_resp_data.cstr_address = (UCHAR *) buffer;
+
+	status = receive_response(rdb, packet);
+
+	if (response->p_resp_object)
+		statement->rsr_flags |= RSR_blob;
+	response->p_resp_data = temp;
+	if (!status)
+		return error(user_status);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_SET_CURSOR(STATUS * user_status,
+						   RSR * stmt_handle, TEXT * cursor, USHORT type)
+{
+/*****************************************
+ *
+ *	d s q l _ s e t _ c u r s o r
+ *
+ *****************************************
+ *
+ * Functional Description
+ *	Declare a cursor for a dynamic request.
+ *
+ *	Note:  prior to version 6.0, this function terminated the
+ *	cursor name at the first blank.  With delimited cursor
+ *	name support that is no longer sufficient.  We now pass
+ *	the entire NULL-Terminated cursor name to the server, and let
+ *	the server deal with blank termination or not.
+ *	NOTE:  THIS NOW MEANS THAT IF CURSOR is NOT null terminated
+ *	we will have inconsistant results with version 5.x.  The only
+ *	"normal" way this happens is if this API is called from a
+ *	non-C host language.   If that results in a later problem we
+ *	must provide a new API that takes a "cursor_name_length"
+ *	parameter.
+ *
+ *****************************************/
+	RDB rdb;
+	RSR statement;
+	PACKET *packet;
+	P_SQLCUR *sqlcur;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+	int name_l = 0;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds_bad_req_handle);
+	rdb = statement->rsr_rdb;
+	ERROR_INIT(env);
+
+/* make sure the protocol supports it */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION7)
+		return unsupported(user_status);
+
+/* set up the packet for the other guy... */
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_set_cursor;
+	sqlcur = &packet->p_sqlcur;
+	sqlcur->p_sqlcur_statement = statement->rsr_id;
+	if (!cursor) {
+	/** Return CURSOR unknown error **/
+		user_status[1] = isc_dsql_cursor_err;
+		return error(user_status);
+	}
+	name_l = strlen(cursor);
+	sqlcur->p_sqlcur_cursor_name.cstr_length = name_l + 1;
+	sqlcur->p_sqlcur_cursor_name.cstr_address = (UCHAR *) cursor;
+	sqlcur->p_sqlcur_type = type;
+
+	if (send_and_receive(rdb, packet, user_status))
+		return error(user_status);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_DSQL_SQL_INFO(STATUS * user_status,
+						 RSR * stmt_handle,
+						 SSHORT item_length,
+						 SCHAR * items, SSHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	d s q l _ s q l _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on sql object.
+ *
+ **************************************/
+	RDB rdb;
+	RSR statement;
+	STATUS status;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	statement = *stmt_handle;
+	CHECK_HANDLE(statement, type_rsr, gds_bad_req_handle);
+	rdb = statement->rsr_rdb;
+	ERROR_INIT(env);
+
+/* make sure the protocol supports it */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION7)
+		return unsupported(user_status);
+
+	status = info(user_status, rdb, op_info_sql, statement->rsr_id, 0,
+				  item_length, items, 0, 0, buffer_length, buffer);
+
+	RESTORE_THREAD_DATA;
+
+	return status;
+}
+
+
+STATUS GDS_GET_SEGMENT(STATUS * user_status,
+					   RBL * blob_handle,
+					   USHORT * length, USHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Buffer segments of a blob and pass
+ *	them one by one to the caller.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	PACKET *packet;
+	P_SGMT *segment;
+	P_RESP *response;
+	CSTRING temp;
+	PORT port;
+	UCHAR *p;
+	USHORT l;
+	STATUS *v;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Sniff out handles, etc, and find the various blocks. */
+
+	CHECK_HANDLE((*blob_handle), type_rbl, gds_bad_segstr_handle);
+	blob = *blob_handle;
+	rdb = blob->rbl_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+	port = rdb->rdb_port;
+
+/* Build the primary packet to get the operation started. */
+
+	packet = &rdb->rdb_packet;
+	segment = &packet->p_sgmt;
+	response = &packet->p_resp;
+	temp = response->p_resp_data;
+
+/* Handle old protocol.  Also handle new protocol on a blob that has
+   been created rather than opened.   (This should yield an error.) */
+
+	if ((port->port_flags & PORT_rpc) || (blob->rbl_flags & RBL_create)) {
+		packet->p_operation = op_get_segment;
+		segment->p_sgmt_length = buffer_length;
+		segment->p_sgmt_blob = blob->rbl_id;
+		segment->p_sgmt_segment.cstr_length = 0;
+		if (!send_packet(rdb->rdb_port, packet, user_status))
+			return error(user_status);
+		response->p_resp_data.cstr_allocated = buffer_length;
+		response->p_resp_data.cstr_address = buffer;
+
+		if (!receive_response(rdb, packet)) {
+			response->p_resp_data = temp;
+			return error(user_status);
+		}
+
+		*length = response->p_resp_data.cstr_length;
+		response->p_resp_data = temp;
+		RESTORE_THREAD_DATA;
+		return user_status[1];
+	}
+
+/* New protocol -- ask for a 1K chunk of blob and 
+   fill segment requests from it until its time to
+   get the next section.  In other words, get a bunch,
+   pass it out piece by piece, then when there isn't 
+   enough left, ask for more. */
+
+/* set up the status vector for the calls we're going to fake */
+
+	v = user_status;
+	*v++ = gds_arg_gds;
+	v[0] = SUCCESS;
+	v[1] = gds_arg_end;
+	*length = 0;
+
+/* if we're already done, stop now */
+
+	if (blob->rbl_flags & RBL_eof) {
+		*v++ = gds_segstr_eof;
+		RESTORE_THREAD_DATA;
+		return user_status[1];
+	}
+
+/* Here's the loop, passing out data from our basket & refilling it.
+   Our buffer (described by the structure blob) is counted strings 
+   <count word> <string> <count word> <string>... */
+
+	while (TRUE) {
+		/* If there's data to be given away, give some away (p points to the
+		   local data) */
+
+		if (blob->rbl_length) {
+			p = blob->rbl_ptr;
+
+			/* If there was a fragment left over last time use it */
+
+			if (l = blob->rbl_fragment_length)
+				blob->rbl_fragment_length = 0;
+
+			/* otherwise pick up the count word as the length, & decrement the
+			   local length */
+
+			else {
+				l = *p++;
+				l += *p++ << 8;
+				blob->rbl_length -= 2;
+			}
+
+			/* Now check that what we've got fits. 
+			   If not, set up the fragment pointer and set the status vector */
+
+			if (l > buffer_length) {
+				blob->rbl_fragment_length = l - buffer_length;
+				l = buffer_length;
+				*v = gds_segment;
+			}
+
+			/* and, just for yucks, see if we're exactly using up the fragment
+			   part of a previous incomplete read - if so mark this as an
+			   incomplete read */
+
+			if (l == buffer_length &&
+				l == blob->rbl_length && (blob->rbl_flags & RBL_segment))
+				*v = gds_segment;
+
+			/* finally set up the return length, decrement the current length,
+			   copy the data, and indicate where to start next time. */
+
+			*length += l;
+			blob->rbl_length -= l;
+			blob->rbl_offset += l;
+			buffer_length -= l;
+
+			if (l) {
+				if (((U_IPTR) buffer & (ALIGNMENT - 1))
+					|| ((U_IPTR) p & (ALIGNMENT - 1)))
+					memcpy(buffer, p, l);
+				else
+					mov_faster((SLONG *) p, (SLONG *) buffer, l);
+			}
+
+			buffer += l;
+			p += l;
+			blob->rbl_ptr = p;
+
+			/* return if we've filled up the caller's buffer, or completed a
+			   segment */
+
+			if (!buffer_length ||
+				blob->rbl_length || !(blob->rbl_flags & RBL_segment)) break;
+		}
+
+		/* We're done with buffer.  If this was the last, we're done */
+
+		if (blob->rbl_flags & RBL_eof_pending) {
+			blob->rbl_flags |= RBL_eof;
+			*v = gds_segstr_eof;
+			break;
+		}
+
+		/* Preparatory to asking for more data, use input buffer length
+		   to cue more efficient blob buffering. */
+
+		/* Allocate 2 extra bytes to handle the special case where the
+		   segment size of blob in the database is equal to the buffer
+		   size that the user has passed.
+
+		   Do not go into this loop if we already have a buffer 
+		   of size 65535 or 65534. */
+
+		if (buffer_length > blob->rbl_buffer_length - sizeof(USHORT) &&
+			blob->rbl_buffer_length <= MAX_USHORT - sizeof(USHORT)) {
+			ULONG new_size = buffer_length + sizeof(USHORT);
+
+			if (new_size > MAX_USHORT)	/* Check if we've overflown */
+				new_size = buffer_length;
+			if (blob->rbl_buffer != blob->rbl_data)
+				ALLR_RELEASE(blob->rbl_buffer);
+			blob->rbl_ptr = blob->rbl_buffer = ALLR_alloc((SLONG) new_size);
+			/* NOMEM: ALLR_alloc handled */
+			/* FREE:  in release_blob()  */
+			blob->rbl_buffer_length = (USHORT) new_size;
+		}
+
+		/* We need more data.  Ask for it politely */
+
+		packet->p_operation = op_get_segment;
+		segment->p_sgmt_length = blob->rbl_buffer_length;
+		segment->p_sgmt_blob = blob->rbl_id;
+		segment->p_sgmt_segment.cstr_length = 0;
+		if (!send_packet(rdb->rdb_port, packet, user_status))
+			return error(user_status);
+
+		response->p_resp_data.cstr_allocated = blob->rbl_buffer_length;
+		response->p_resp_data.cstr_address = blob->rbl_buffer;
+
+		if (!receive_response(rdb, packet)) {
+			response->p_resp_data = temp;
+			return error(user_status);
+		}
+
+		blob->rbl_length = response->p_resp_data.cstr_length;
+		blob->rbl_ptr = blob->rbl_buffer;
+		blob->rbl_flags &= ~RBL_segment;
+		if (response->p_resp_object == 1)
+			blob->rbl_flags |= RBL_segment;
+		else if (response->p_resp_object == 2)
+			blob->rbl_flags |= RBL_eof_pending;
+	}
+
+	response->p_resp_data = temp;
+
+	RESTORE_THREAD_DATA;
+
+	return user_status[1];
+}
+
+
+STATUS GDS_GET_SLICE(STATUS * user_status,
+					 RDB * db_handle,
+					 RTR * tra_handle,
+					 BID array_id,
+					 USHORT sdl_length,
+					 UCHAR * sdl,
+					 USHORT param_length,
+					 UCHAR * param,
+					 SLONG slice_length, UCHAR * slice, SLONG * return_length)
+{
+/**************************************
+ *
+ *	g d s _ g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Snatch a slice of an array.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	UCHAR *new_sdl;
+	PACKET *packet;
+	P_SLC *data;
+	P_SLR *response;
+	USHORT err_flag;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	CHECK_HANDLE((*tra_handle), type_rtr, gds_bad_trans_handle);
+	transaction = *tra_handle;
+	ERROR_INIT(env);
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION4)
+		return unsupported(user_status);
+
+/* Parse the sdl in case blr_d_float must be converted to blr_double */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION6)
+		new_sdl = SDL_prepare_slice(sdl, sdl_length);
+	else
+		new_sdl = sdl;
+
+/* The modified (perhaps) sdl is send to the remote connection.  The
+   original sdl is used to process the slice data when it is received.
+   (This is why both 'new_sdl' and 'sdl' are saved in the packet.) */
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_get_slice;
+	data = &packet->p_slc;
+	data->p_slc_transaction = transaction->rtr_id;
+	data->p_slc_id = *array_id;
+	data->p_slc_length = slice_length;
+	data->p_slc_sdl.cstr_length = sdl_length;
+	data->p_slc_sdl.cstr_address = new_sdl;
+	data->p_slc_parameters.cstr_length = param_length;
+	data->p_slc_parameters.cstr_address = param;
+
+	data->p_slc_slice.lstr_length = 0;
+	data->p_slc_slice.lstr_address = slice;
+
+	response = &packet->p_slr;
+	response->p_slr_sdl = sdl;
+	response->p_slr_sdl_length = sdl_length;
+	response->p_slr_slice.lstr_address = slice;
+	response->p_slr_slice.lstr_length = slice_length;
+
+	err_flag = FALSE;
+	if (!send_packet(rdb->rdb_port, packet, user_status))
+		err_flag = TRUE;
+	else {
+		packet->p_resp.p_resp_status_vector = rdb->rdb_status_vector;
+		if (!receive_packet(rdb->rdb_port, packet, user_status))
+			err_flag = TRUE;
+	}
+	if (new_sdl != sdl)
+		gds__free(new_sdl);
+	if (err_flag)
+		return error(user_status);
+
+	if (packet->p_operation != op_slice) {
+		check_response(rdb, packet);
+		return error(user_status);
+	}
+
+	if (return_length)
+		*return_length = response->p_slr_length;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_OPEN_BLOB2(STATUS * user_status,
+					  RDB * db_handle,
+					  RTR * rtr_handle,
+					  RBL * blob_handle,
+					  BID blob_id, USHORT bpb_length, UCHAR * bpb)
+{
+/**************************************
+ *
+ *	g d s _ o p e n _ b l o b 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open an existing blob.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	RBL blob;
+	PACKET *packet;
+	P_BLOB *p_blob;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	NULL_CHECK(blob_handle, gds_bad_segstr_handle);
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	CHECK_HANDLE((*rtr_handle), type_rtr, gds_bad_trans_handle);
+	transaction = *rtr_handle;
+	ERROR_INIT(env);
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_open_blob;
+	p_blob = &packet->p_blob;
+	p_blob->p_blob_transaction = transaction->rtr_id;
+	p_blob->p_blob_id = *blob_id;
+
+	if (rdb->rdb_port->port_protocol >= PROTOCOL_VERSION4) {
+		packet->p_operation = op_open_blob2;
+		p_blob->p_blob_bpb.cstr_length = bpb_length;
+		p_blob->p_blob_bpb.cstr_address = bpb;
+	}
+
+	if (send_and_receive(rdb, packet, user_status))
+		return error(user_status);
+
+	*blob_handle = blob = (RBL) ALLOCV(type_rbl, BLOB_LENGTH);
+	blob->rbl_rdb = rdb;
+	blob->rbl_rtr = transaction;
+	blob->rbl_id = packet->p_resp.p_resp_object;
+	blob->rbl_buffer_length = BLOB_LENGTH;
+	SET_OBJECT(rdb, blob, blob->rbl_id);
+	blob->rbl_next = transaction->rtr_blobs;
+	blob->rbl_ptr = blob->rbl_buffer = blob->rbl_data;
+	transaction->rtr_blobs = blob;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_PREPARE(STATUS * user_status,
+				   RTR * rtr_handle, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *
+ *	g d s _ p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare a transaction for commit.  First phase of a two
+ *	phase commit.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	PACKET *packet;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds_bad_trans_handle);
+	rdb = (*rtr_handle)->rtr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+/* Handle historical version */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION4) {
+		if (msg_length)
+			return unsupported(user_status);
+		if (!release_object(rdb, op_prepare, transaction->rtr_id))
+			return error(user_status);
+		RETURN_SUCCESS;
+	}
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_prepare2;
+	packet->p_prep.p_prep_transaction = transaction->rtr_id;
+	packet->p_prep.p_prep_data.cstr_length = msg_length;
+	packet->p_prep.p_prep_data.cstr_address = msg;
+
+	if (!send_packet(rdb->rdb_port, packet, user_status) ||
+		!receive_response(rdb, packet))
+		return error(user_status);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_PUT_SEGMENT(STATUS * user_status,
+					   RBL * blob_handle,
+					   USHORT segment_length, UCHAR * segment)
+{
+/**************************************
+ *
+ *	g d s _ p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Emit a blob segment.  If the protocol allows,
+ *	the segment is buffered locally for a later
+ *	batch put.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	PORT port;
+	UCHAR *p;
+	USHORT l;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Sniff out handles, etc, and find the various blocks. */
+
+	CHECK_HANDLE((*blob_handle), type_rbl, gds_bad_segstr_handle);
+	blob = *blob_handle;
+	rdb = blob->rbl_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+	port = rdb->rdb_port;
+
+/* If this is an ancient protocol, just send the segment.
+   Also handle the new protocol on a blob that has been
+   opened rather than created.   (This should yield an error.) */
+
+	if ((port->port_flags & PORT_rpc) || !(blob->rbl_flags & RBL_create)) {
+		(void) send_blob(user_status, blob, segment_length, segment);
+		RESTORE_THREAD_DATA;
+		return user_status[1];
+	}
+
+/* If the buffer can't hold the complete incoming segment, flush out the
+   buffer.  If the incoming segment is too large to fit into the blob
+   buffer, just send it as a single segment. */
+
+	p = blob->rbl_ptr;
+	l = blob->rbl_buffer_length - (p - blob->rbl_buffer);
+
+	if ((ULONG) segment_length + 2 > l) {
+		if (blob->rbl_ptr > blob->rbl_buffer) {
+			if (send_blob(user_status, blob, 0, NULL)) {
+				RESTORE_THREAD_DATA;
+				return user_status[1];
+			}
+		}
+		if ((ULONG) segment_length + 2 > blob->rbl_buffer_length) {
+			(void) send_blob(user_status, blob, segment_length, segment);
+			RESTORE_THREAD_DATA;
+			return user_status[1];
+		}
+		p = blob->rbl_buffer;
+	}
+
+/* Move segment length and data into blob buffer */
+
+	*p++ = (UCHAR) segment_length;
+	*p++ = segment_length >> 8;
+
+	if (segment_length) {
+		if (((U_IPTR) segment & (ALIGNMENT - 1))
+			|| ((U_IPTR) p & (ALIGNMENT - 1))) memcpy(p, segment,
+													  segment_length);
+		else
+			mov_faster((SLONG *) segment, (SLONG *) p, segment_length);
+	}
+
+	blob->rbl_ptr = p + segment_length;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_PUT_SLICE(STATUS * user_status,
+					 RDB * db_handle,
+					 RTR * tra_handle,
+					 BID array_id,
+					 USHORT sdl_length,
+					 UCHAR * sdl,
+					 USHORT param_length,
+					 UCHAR * param, SLONG slice_length, UCHAR * slice)
+{
+/**************************************
+ *
+ *	g d s _ p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store a slice of an array.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	UCHAR *new_sdl;
+	PACKET *packet;
+	P_SLC *data;
+	P_SLR *response;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	CHECK_HANDLE((*tra_handle), type_rtr, gds_bad_trans_handle);
+	transaction = *tra_handle;
+	ERROR_INIT(env);
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION4)
+		return unsupported(user_status);
+
+/* Parse the sdl in case blr_d_float must be converted to blr_double */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION6)
+		new_sdl = SDL_prepare_slice(sdl, sdl_length);
+	else
+		new_sdl = sdl;
+
+/* The modified (perhaps) sdl is send to the remote connection.  The
+   original sdl is used to process the slice data before it is sent.
+   (This is why both 'new_sdl' and 'sdl' are saved in the packet.) */
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_put_slice;
+	data = &packet->p_slc;
+	data->p_slc_transaction = transaction->rtr_id;
+	data->p_slc_id = *array_id;
+	data->p_slc_length = slice_length;
+	data->p_slc_sdl.cstr_length = sdl_length;
+	data->p_slc_sdl.cstr_address = new_sdl;
+	data->p_slc_parameters.cstr_length = param_length;
+	data->p_slc_parameters.cstr_address = param;
+	data->p_slc_slice.lstr_length = slice_length;
+	data->p_slc_slice.lstr_address = slice;
+
+	response = &packet->p_slr;
+	response->p_slr_sdl = sdl;
+	response->p_slr_sdl_length = sdl_length;
+	response->p_slr_slice.lstr_address = slice;
+	response->p_slr_slice.lstr_length = slice_length;
+
+	(void) send_and_receive(rdb, packet, user_status);
+	if (new_sdl != sdl)
+		gds__free(new_sdl);
+	if (user_status[1])
+		return error(user_status);
+
+	*array_id = packet->p_resp.p_resp_blob_id;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_QUE_EVENTS(STATUS * user_status,
+					  RDB * handle,
+					  SLONG * id,
+					  SSHORT length,
+					  UCHAR * items,
+					  void (*ast) (void *, USHORT, UCHAR *), void *arg)
+{
+/**************************************
+ *
+ *	g d s _ $ q u e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Queue a request for event notification.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	PACKET *packet;
+	P_EVENT *event;
+	P_REQ *request;
+	RVNT rem_event;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	rdb = *handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+	port = rdb->rdb_port;
+	packet = &rdb->rdb_packet;
+
+/* Make sure protocol support action */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION4)
+		return unsupported(user_status);
+
+/* If there isn't a auxiliary asynchronous port, make one now */
+
+	if (!port->port_async) {
+		packet->p_operation = op_connect_request;
+		request = &packet->p_req;
+		request->p_req_object = rdb->rdb_id;
+		request->p_req_type = P_REQ_async;
+		if (!send_packet(port, packet, user_status)
+			|| !receive_response(rdb, packet)) return error(user_status);
+#ifdef MULTI_THREAD
+		if (!port->connect(packet, 0))
+			return error(user_status);
+
+		gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+						  (event_thread), port->port_async, THREAD_high,
+						  THREAD_ast, 0);
+#else
+		if (!port->connect(packet, event_handler))
+			return error(user_status);
+#endif
+		port->port_async->port_context = rdb;
+	}
+
+/* Add event block to port's list of active remote events */
+
+	rem_event = add_event(port);
+
+	rem_event->rvnt_ast = ast;
+	rem_event->rvnt_arg = arg;
+	rem_event->rvnt_port = port->port_async;
+	rem_event->rvnt_items = items;
+	rem_event->rvnt_length = length;
+	rem_event->rvnt_rdb = rdb;
+
+/* Update id value */
+
+	*id = rem_event->rvnt_id;
+
+/* Build the primary packet to get the operation started. */
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_que_events;
+
+	event = &packet->p_event;
+	event->p_event_database = rdb->rdb_id;
+	event->p_event_items.cstr_length = length;
+	event->p_event_items.cstr_address = items;
+	event->p_event_ast = (SLONG) ast;
+	event->p_event_arg = (SLONG) arg;
+	event->p_event_rid = rem_event->rvnt_id;
+
+	if (!send_packet(port, packet, user_status) ||
+		!receive_response(rdb, packet)) return error(user_status);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_RECEIVE(STATUS * user_status,
+				   RRQ * req_handle,
+				   USHORT msg_type,
+				   USHORT msg_length, UCHAR * msg, SSHORT level
+#ifdef SCROLLABLE_CURSORS
+				   , USHORT direction, ULONG offset
+#endif
+	)
+{
+/**************************************
+ *
+ *	g d s _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Give a client program a record.  Ask the
+ *	Remote server to send it to us if necessary.
+ *
+ **************************************/
+	RRQ request;
+	RDB rdb;
+	MSG message;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check handles and environment, then set up error handling */
+
+	CHECK_HANDLE((*req_handle), type_rrq, gds_bad_req_handle);
+	request = REMOTE_find_request(*req_handle, level);
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	PORT port = rdb->rdb_port;
+	rrq::rrq_repeat * tail = &request->rrq_rpt[msg_type];
+
+#ifdef SCROLLABLE_CURSORS
+	if (port->port_protocol >= PROTOCOL_SCROLLABLE_CURSORS) {
+		if (!
+			(message =
+			 scroll_cache(user_status, trdb, request, port, tail, &direction,
+						  &offset))) return error(user_status);
+	}
+	else
+#endif
+		message = tail->rrq_message;
+
+#ifdef DEBUG
+	ib_fprintf(ib_stdout, "Rows Pending in REM_receive=%d\n",
+			   tail->rrq_rows_pending);
+#endif
+
+/* Check to see if data is waiting.  If not, solicit data. 
+   Solicit data either when we've run out, or there's a low
+   inventory of messages in local buffers & no shipments on the
+   ether being sent to us. */
+
+	if (!request->rrq_status_vector[1] &&	/* No error pending */
+		((!message->msg_address && tail->rrq_rows_pending == 0) ||	/* No message waiting */
+		 (tail->rrq_rows_pending <= tail->rrq_reorder_level &&	/* Low in inventory */
+		  tail->rrq_msgs_waiting <= tail->rrq_reorder_level &&
+		  !(port->port_flags & PORT_rpc) &&	/* doing Batch, not RPC */
+		  /* Pipelining causes both server & client to 
+		     write at the same time. In named pipes, writes
+		     block for the other end to read -  and so when both
+		     attempt to write simultaenously, they end up
+		     waiting indefinetly for the other end to read */
+		  (port->port_type != port_pipe) &&	/* not named pipe on NT */
+#ifdef XNET
+		  (port->port_type != port_xnet) &&	/* not named pipe on NT */
+#endif
+		  request->rrq_max_msg <= 1))) {	/* there's only one message type */
+		P_DATA *data;
+
+#ifdef DEBUG
+		ib_fprintf(ib_stderr, "Rows Pending %d\n", tail->rrq_rows_pending);
+		if (!message->msg_address)
+			ib_fprintf(ib_stderr, "Out of data - reordering\n");
+		else
+			ib_fprintf(ib_stderr, "Low on inventory - reordering\n");
+#endif
+
+		/* Format a request for data */
+
+		PACKET *packet = &rdb->rdb_packet;
+		packet->p_operation = op_receive;
+		data = &packet->p_data;
+		data->p_data_request = request->rrq_id;
+		data->p_data_message_number = msg_type;
+		data->p_data_incarnation = level;
+#ifdef SCROLLABLE_CURSORS
+		/* if the protocol can handle it, tell the server to scroll before returning records */
+
+		if (port->port_protocol >= PROTOCOL_SCROLLABLE_CURSORS) {
+			data->p_data_direction = direction;
+			data->p_data_offset = offset;
+
+			/* set the appropriate flags according to the way we're about to scroll 
+			   the next layer down, and calculate the offset from the beginning 
+			   of the result set */
+
+			switch (direction) {
+			case blr_forward:
+				tail->rrq_flags &= ~RRQ_backward;
+				tail->rrq_absolute +=
+					(tail->
+					 rrq_flags & RRQ_absolute_backward) ? -offset : offset;
+				break;
+
+			case blr_backward:
+				tail->rrq_flags |= RRQ_backward;
+				tail->rrq_absolute +=
+					(tail->
+					 rrq_flags & RRQ_absolute_backward) ? offset : -offset;
+				break;
+
+			case blr_bof_forward:
+				tail->rrq_flags &= ~RRQ_backward;
+				tail->rrq_flags &= ~RRQ_absolute_backward;
+				tail->rrq_absolute = offset;
+				direction = blr_forward;
+				break;
+
+			case blr_eof_backward:
+				tail->rrq_flags |= RRQ_backward;
+				tail->rrq_flags |= RRQ_absolute_backward;
+				tail->rrq_absolute = offset;
+				direction = blr_backward;
+				break;
+			}
+		}
+#endif
+
+		/* Compute how many to send in a batch.  While this calculation
+		   is the same for each batch (June 1996), perhaps in the future it
+		   could dynamically adjust batching sizes based on fetch patterns */
+
+		if (port->port_flags & PORT_rpc)
+
+			/* This is an RPC (remote procedure call) port - we just do
+			   one at a time processing as that's how RPC works. */
+
+			data->p_data_messages = 1;
+		else {
+			data->p_data_messages =
+				static_cast < USHORT >
+				(REMOTE_compute_batch_size
+				 (port, 0, op_send, tail->rrq_format));
+			tail->rrq_reorder_level = 2 * data->p_data_messages;
+			data->p_data_messages *= 4;
+			tail->rrq_rows_pending += data->p_data_messages;
+
+#ifdef DEBUG
+			ib_fprintf(ib_stdout,
+					   "Recalculating Rows Pending in REM_receive=%d\n",
+					   tail->rrq_rows_pending);
+#endif
+		}
+
+#ifdef DEBUG
+		ib_fprintf(ib_stderr, "port_flags %d max_msg %d\n", port->port_flags,
+				   request->rrq_max_msg);
+		ib_fprintf(ib_stderr, "Fetch: Req One batch of %d messages\n",
+				   data->p_data_messages);
+#endif
+
+		if (!send_packet(rdb->rdb_port, packet, user_status))
+			return error(user_status);
+		tail->rrq_batch_count++;
+
+#ifdef DEBUG
+		ib_fprintf(ib_stderr, "Rows Pending %d\n", tail->rrq_rows_pending);
+#endif
+
+		/* Queue up receipt of the pending data */
+
+		enqueue_receive(port, batch_gds_receive, rdb, request, tail);
+	}
+
+/* Receive queued responses until we have some data for this cursor
+   or an error status has been received. */
+
+/* We've either got data, or some is on the way, or we have an error */
+
+	assert(message->msg_address || (tail->rrq_rows_pending > 0)
+		   || request->rrq_status_vector[1]);
+
+	while (!message->msg_address && !request->rrq_status_vector[1])
+		if (!receive_queued_packet(trdb, port, user_status, request->rrq_id))
+			return error(user_status);
+
+	if (!message->msg_address && request->rrq_status_vector[1]) {
+		/* The previous batch of receives ended with an error status.
+		   We're all done returning data in the local queue.
+		   Return that error status vector to the user. */
+
+		/* Stuff in the error result to the user's vector */
+
+		memcpy(user_status, request->rrq_status_vector,
+			   sizeof(request->rrq_status_vector));
+		memset(request->rrq_status_vector, 0,
+			   sizeof(request->rrq_status_vector));
+
+		RESTORE_THREAD_DATA;
+		return user_status[1];
+	};
+
+/* Copy data from the message buffer to the client buffer */
+
+	message = tail->rrq_message;
+	if ((U_IPTR) msg & (ALIGNMENT - 1))
+		memcpy(msg, message->msg_address, msg_length);
+	else
+		mov_faster((SLONG *) message->msg_address, (SLONG *) msg, msg_length);
+
+#ifdef SCROLLABLE_CURSORS
+	tail->rrq_last = message;
+#else
+/* Move the head-of-full-buffer-queue pointer forward */
+
+	tail->rrq_message = message->msg_next;
+
+/* Mark the buffer the message came from as available for reuse */
+
+	message->msg_address = NULL;
+#endif
+	tail->rrq_msgs_waiting--;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_RECONNECT(STATUS * user_status,
+					 RDB * db_handle,
+					 RTR * rtr_handle, USHORT length, UCHAR * id)
+{
+/**************************************
+ *
+ *	g d s _ r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	PACKET *packet;
+	P_STTR *trans;
+	RDB rdb;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	NULL_CHECK(rtr_handle, gds_bad_trans_handle);
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_reconnect;
+	trans = &packet->p_sttr;
+	trans->p_sttr_database = rdb->rdb_id;
+	trans->p_sttr_tpb.cstr_length = length;
+	trans->p_sttr_tpb.cstr_address = id;
+
+	if (send_and_receive(rdb, packet, user_status))
+		return error(user_status);
+
+	*rtr_handle = make_transaction(rdb, packet->p_resp.p_resp_object);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_RELEASE_REQUEST(STATUS * user_status, RRQ * req_handle)
+{
+/**************************************
+ *
+ *	g d s _ r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request.
+ *
+ **************************************/
+	RDB rdb;
+	RRQ request;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	request = *req_handle;
+	CHECK_HANDLE(request, type_rrq, gds_bad_req_handle);
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	if (!release_object(rdb, op_release, request->rrq_id))
+		return error(user_status);
+
+	release_request(request);
+	*req_handle = NULL;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_REQUEST_INFO(STATUS * user_status,
+						RRQ * req_handle,
+						SSHORT level,
+						SSHORT item_length,
+						UCHAR * items, SSHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ r e q u e s t _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on request object.
+ *
+ **************************************/
+	RRQ request;
+	RDB rdb;
+	MSG msg;
+	UCHAR *out, item, *info_items, *end_items;
+	USHORT data;
+	FMT format;
+	STATUS status;
+	rrq::rrq_repeat * tail, *end;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	request = REMOTE_find_request(*req_handle, level);
+	CHECK_HANDLE(request, type_rrq, gds_bad_req_handle);
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+/* Check for buffered message.  If there is, report on it locally. */
+
+	for (tail = request->rrq_rpt, end = tail + request->rrq_max_msg;
+		 tail <= end; tail++) {
+		if (!(msg = tail->rrq_message) || !msg->msg_address)
+			continue;
+
+		/* We've got a pending message, respond locally */
+
+		format = tail->rrq_format;
+		out = buffer;
+		info_items = items;
+		end_items = info_items + item_length;
+		while (info_items < end_items) {
+			item = *info_items++;
+			switch (item) {
+			case gds_info_end:
+				break;
+
+			case gds_info_state:
+				data = gds_info_req_send;
+				break;
+
+			case gds_info_message_number:
+				data = msg->msg_number;
+				break;
+
+			case gds_info_message_size:
+				data = format->fmt_length;
+				break;
+
+			default:
+				goto punt;
+			}
+
+			*out++ = item;
+			if (item == gds_info_end)
+				break;
+
+			*out++ = 2;
+			*out++ = 2 >> 8;
+			*out++ = (UCHAR) data;
+			*out++ = data >> 8;
+		}
+
+		RETURN_SUCCESS;
+	}
+
+/* No message pending, request status from other end */
+
+  punt:
+
+	status = info(user_status, rdb, op_info_request, request->rrq_id, level,
+				  item_length, (SCHAR *) items, 0, 0, buffer_length,
+				  (SCHAR *) buffer);
+
+	RESTORE_THREAD_DATA;
+
+	return status;
+}
+
+
+STATUS GDS_ROLLBACK_RETAINING(STATUS * user_status, RTR * rtr_handle)
+{
+/**************************************
+ *
+ *	i s c _ r o l l b a c k _ r e t a i n i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction but keep its environment valid
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds_bad_trans_handle);
+	rdb = (*rtr_handle)->rtr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+/* Make sure protocol support action */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION10)
+		return unsupported(user_status);
+
+	if (!release_object(rdb, op_rollback_retaining, transaction->rtr_id))
+		return error(user_status);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_ROLLBACK(STATUS * user_status, RTR * rtr_handle)
+{
+/**************************************
+ *
+ *	g d s _ r o l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Abort a transaction.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds_bad_trans_handle);
+	rdb = (*rtr_handle)->rtr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	if (!release_object(rdb, op_rollback, transaction->rtr_id))
+		return error(user_status);
+
+	REMOTE_cleanup_transaction(transaction);
+	release_transaction(transaction);
+	*rtr_handle = NULL;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_SEEK_BLOB(STATUS * user_status,
+					 RBL * blob_handle,
+					 SSHORT mode, SLONG offset, SLONG * result)
+{
+/**************************************
+ *
+ *	g d s _ s e e k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Seek into a blob.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	PACKET *packet;
+	P_SEEK *seek;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	blob = *blob_handle;
+	CHECK_HANDLE(blob, type_rbl, gds_bad_segstr_handle);
+	rdb = blob->rbl_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION6)
+		return unsupported(user_status);
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_seek_blob;
+	seek = &packet->p_seek;
+	seek->p_seek_blob = blob->rbl_id;
+	seek->p_seek_mode = mode;
+	seek->p_seek_offset = offset;
+
+	if (mode == 1) {
+		seek->p_seek_mode = 0;
+		seek->p_seek_offset = blob->rbl_offset + offset;
+	}
+
+	if (send_and_receive(rdb, packet, user_status))
+		return error(user_status);
+
+	blob->rbl_offset = *result = packet->p_resp.p_resp_blob_id.bid_number;
+	blob->rbl_length = 0;
+	blob->rbl_fragment_length = 0;
+	blob->rbl_flags &= ~(RBL_eof | RBL_eof_pending | RBL_segment);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_SEND(STATUS * user_status,
+				RRQ * req_handle,
+				USHORT msg_type, USHORT msg_length, UCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	g d s _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a message to the server.
+ *
+ **************************************/
+	RRQ request;
+	RDB rdb;
+	MSG message;
+	PACKET *packet;
+	P_DATA *data;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	CHECK_HANDLE((*req_handle), type_rrq, gds_bad_req_handle);
+	request = REMOTE_find_request(*req_handle, level);
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	if (msg_type > request->rrq_max_msg)
+		return handle_error(user_status, gds_badmsgnum);
+
+	ERROR_INIT(env);
+
+	message = request->rrq_rpt[msg_type].rrq_message;
+	message->msg_address = msg;
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_send;
+	data = &packet->p_data;
+	data->p_data_request = request->rrq_id;
+	data->p_data_message_number = msg_type;
+	data->p_data_incarnation = level;
+
+	if (!send_packet(rdb->rdb_port, packet, user_status))
+		return error(user_status);
+
+/* Bump up the message pointer to resync with rrq_xdr (rrq_xdr 
+   was incremented by xdr_request in the SEND call).  */
+
+	message->msg_address = NULL;
+	request->rrq_rpt[msg_type].rrq_message = message->msg_next;
+
+	if (!receive_response(rdb, packet))
+		return error(user_status);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_SERVICE_ATTACH(STATUS * user_status,
+						  USHORT service_length,
+						  TEXT * service_name,
+						  RDB * handle, USHORT spb_length, SCHAR * spb)
+{
+/**************************************
+ *
+ *	g d s _ s e r v i c e _ a t t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to an Interbase service.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	USHORT length, user_verification, new_spb_length, result;
+	STATUS *v;
+	UCHAR expanded_name[MAXPATHLEN], new_spb[MAXPATHLEN], *new_spb_ptr;
+	TEXT user_string[256], *us;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	NULL_CHECK(handle, isc_bad_svc_handle);
+
+	if (service_length) {
+		strncpy((char *) expanded_name, (char *) service_name,
+				service_length);
+		expanded_name[service_length] = 0;
+	}
+	else
+		strcpy((char *) expanded_name, (char *) service_name);
+	length = strlen((char *) expanded_name);
+
+	v = user_status;
+	*v++ = gds_arg_gds;
+	*v++ = gds_unavailable;
+	*v = gds_arg_end;
+
+	new_spb_ptr = new_spb;
+	if (
+		(spb_length + MAX_USER_LENGTH + MAX_PASSWORD_ENC_LENGTH +
+		 MAX_OTHER_PARAMS) > sizeof(new_spb)) {
+		new_spb_ptr =
+			gds__alloc(spb_length + MAX_USER_LENGTH +
+					   MAX_PASSWORD_ENC_LENGTH + MAX_OTHER_PARAMS);
+
+		/* FREE: by return(s) in this routine */
+
+		if (!new_spb_ptr) {		/* NOMEM: return error to client */
+			user_status[1] = gds_virmemexh;
+			return error(user_status);
+		}
+	}
+	user_verification =
+		get_new_dpb((UCHAR *) spb, spb_length, FALSE, new_spb_ptr,
+					&new_spb_length, user_string);
+
+	if (user_string[0])
+		us = user_string;
+	else
+		us = 0;
+
+	if (!
+		(port =
+		 analyze_service((TEXT *) expanded_name, &length, user_status, us,
+						 user_verification, spb, spb_length))) {
+		if (new_spb_ptr != new_spb)
+			gds__free(new_spb_ptr);
+		return error(user_status);
+	}
+
+	rdb = port->port_context;
+	ERROR_INIT(env);
+
+
+/* make sure the protocol supports it */
+
+	if (port->port_protocol < PROTOCOL_VERSION8) {
+		if (new_spb_ptr != new_spb)
+			gds__free(new_spb_ptr);
+		disconnect(port);
+		return unsupported(user_status);
+	}
+
+/* The client may have set a parameter for dummy_packet_interval.  Add that to the
+   the SPB so the server can pay attention to it.  Note: allocation code must
+   ensure sufficient space has been added. */
+
+	add_other_params(port, new_spb_ptr, &new_spb_length);
+
+	result =
+		init(user_status, port, op_service_attach, expanded_name, length,
+			 new_spb_ptr, new_spb_length);
+	if (new_spb_ptr != new_spb)
+		gds__free(new_spb_ptr);
+	if (!result)
+		return error(user_status);
+
+	*handle = rdb;
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_SERVICE_DETACH(STATUS * user_status, RDB * handle)
+{
+/**************************************
+ *
+ *	g d s _ s e r v i c e _ d e t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a connection to an Interbase service.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	rdb = *handle;
+	CHECK_HANDLE(rdb, type_rdb, isc_bad_svc_handle);
+	ERROR_INIT(env);
+	port = rdb->rdb_port;
+
+/* make sure the protocol supports it */
+
+	if (port->port_protocol < PROTOCOL_VERSION8)
+		return unsupported(user_status);
+
+	if (!release_object(rdb, op_service_detach, rdb->rdb_id))
+		return error(user_status);
+
+	disconnect(port);
+	*handle = NULL;
+
+/* Note: Can't RETURN_SUCCESS here as we've torn down memory already */
+
+	RESTORE_THREAD_DATA;
+
+	*user_status++ = gds_arg_gds;
+	*user_status++ = SUCCESS;
+	*user_status = gds_arg_end;
+
+	return SUCCESS;
+}
+
+
+STATUS GDS_SERVICE_QUERY(STATUS * user_status,
+						 RDB * svc_handle,
+						 ULONG * reserved,
+						 USHORT item_length,
+						 SCHAR * items,
+						 USHORT recv_item_length,
+						 SCHAR * recv_items,
+						 USHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ s e r v i c e _ q u e r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Provide information on service object.
+ * 
+ *	NOTE: The parameter RESERVED must not be used
+ *	for any purpose as there are networking issues
+ *	involved (as with any handle that goes over the
+ *	network).  This parameter will be implemented at 
+ *	a later date.
+ **************************************/
+	RDB rdb;
+	STATUS status;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	rdb = *svc_handle;
+	CHECK_HANDLE(rdb, type_rdb, isc_bad_svc_handle);
+	ERROR_INIT(env);
+
+/* make sure the protocol supports it */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION8)
+		return unsupported(user_status);
+
+	status = info(user_status, rdb, op_service_info, rdb->rdb_id, 0,
+				  item_length, items, recv_item_length, recv_items,
+				  buffer_length, buffer);
+
+	RESTORE_THREAD_DATA;
+
+	return status;
+}
+
+
+STATUS GDS_SERVICE_START(STATUS * user_status,
+						 RDB * svc_handle,
+						 ULONG * reserved, USHORT item_length, SCHAR * items)
+{
+/**************************************
+ *
+ *	g d s _ s e r v i c e _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start an InterBase service
+ *
+ * 	NOTE: The parameter RESERVED must not be used
+ *	for any purpose as there are networking issues
+ *	involved (as with any handle that goes over the
+ *	network).  This parameter will be implemented at 
+ *	a later date.
+ **************************************/
+	RDB rdb;
+	STATUS status;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+/* Check and validate handles, etc. */
+
+	rdb = *svc_handle;
+	CHECK_HANDLE(rdb, type_rdb, isc_bad_svc_handle);
+	ERROR_INIT(env);
+
+/* make sure the protocol supports it */
+
+	if (rdb->rdb_port->port_protocol < PROTOCOL_VERSION8)
+		return unsupported(user_status);
+
+	status =
+		svcstart(user_status, rdb, op_service_start, rdb->rdb_id, 0,
+				 item_length, items);
+
+	RESTORE_THREAD_DATA;
+
+	return status;
+}
+
+
+STATUS GDS_START_AND_SEND(STATUS * user_status,
+						  RRQ * req_handle,
+						  RTR * rtr_handle,
+						  USHORT msg_type,
+						  USHORT msg_length, UCHAR * msg, SSHORT level)
+{
+/**************************************
+ *
+ *	g d s _ s t a r t _ a n d _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	RRQ request;
+	RTR transaction;
+	RDB rdb;
+	MSG message;
+	PACKET *packet;
+	P_DATA *data;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	CHECK_HANDLE((*req_handle), type_rrq, gds_bad_req_handle);
+	CHECK_HANDLE((*rtr_handle), type_rtr, gds_bad_trans_handle);
+	request = REMOTE_find_request(*req_handle, level);
+	transaction = *rtr_handle;
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	if (msg_type > request->rrq_max_msg)
+		return handle_error(user_status, gds_badmsgnum);
+	ERROR_INIT(env);
+
+	if ((*rtr_handle)->rtr_rdb != rdb) {
+		user_status[0] = gds_arg_gds;
+		user_status[1] = gds_trareqmis;
+		user_status[2] = gds_arg_end;
+		return error(user_status);
+	}
+
+	if (!clear_queue(rdb->rdb_port, user_status))
+		return error(user_status);
+
+	REMOTE_reset_request(request, 0);
+	message = request->rrq_rpt[msg_type].rrq_message;
+	message->msg_address = msg;
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = (rdb->rdb_port->port_protocol < PROTOCOL_VERSION8) ?
+		op_start_and_send : op_start_send_and_receive;
+	data = &packet->p_data;
+	data->p_data_request = request->rrq_id;
+	data->p_data_transaction = transaction->rtr_id;
+	data->p_data_message_number = msg_type;
+	data->p_data_incarnation = level;
+
+	if (!send_packet(rdb->rdb_port, packet, user_status))
+		return error(user_status);
+
+/* Bump up the message pointer to resync with rrq_xdr (rrq_xdr 
+   was incremented by xdr_request in the SEND call).  */
+
+	message->msg_address = NULL;
+	request->rrq_rpt[msg_type].rrq_message = message->msg_next;
+
+	if (!receive_response(rdb, packet))
+		return error(user_status);
+
+/* Save the request's transaction. */
+
+	request->rrq_rtr = transaction;
+
+	if (rdb->rdb_port->port_protocol >= PROTOCOL_VERSION8 &&
+		packet->p_operation == op_response_piggyback)
+		receive_after_start(request, packet->p_resp.p_resp_object);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_START(STATUS * user_status,
+				 register RRQ * req_handle,
+				 register RTR * rtr_handle, USHORT level)
+{
+/**************************************
+ *
+ *	g d s _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a record from the host program.
+ *
+ **************************************/
+	RRQ request;
+	RTR transaction;
+	RDB rdb;
+	PACKET *packet;
+	P_DATA *data;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	CHECK_HANDLE((*req_handle), type_rrq, gds_bad_req_handle);
+	CHECK_HANDLE((*rtr_handle), type_rtr, gds_bad_trans_handle);
+	request = REMOTE_find_request(*req_handle, level);
+	transaction = *rtr_handle;
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	if ((*rtr_handle)->rtr_rdb != rdb) {
+		user_status[0] = gds_arg_gds;
+		user_status[1] = gds_trareqmis;
+		user_status[2] = gds_arg_end;
+		return error(user_status);
+	}
+
+	if (!clear_queue(rdb->rdb_port, user_status))
+		return error(user_status);
+
+	REMOTE_reset_request(request, 0);
+	packet = &rdb->rdb_packet;
+	packet->p_operation = (rdb->rdb_port->port_protocol < PROTOCOL_VERSION8) ?
+		op_start : op_start_and_receive;
+	data = &packet->p_data;
+	data->p_data_request = request->rrq_id;
+	data->p_data_transaction = transaction->rtr_id;
+	data->p_data_message_number = 0;
+	data->p_data_incarnation = level;
+
+	if (send_and_receive(rdb, packet, user_status))
+		return error(user_status);
+
+/* Save the request's transaction. */
+
+	request->rrq_rtr = transaction;
+
+	if (rdb->rdb_port->port_protocol >= PROTOCOL_VERSION8 &&
+		packet->p_operation == op_response_piggyback)
+		receive_after_start(request, packet->p_resp.p_resp_object);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_START_TRANSACTION(STATUS * user_status,
+							 RTR * rtr_handle,
+							 SSHORT count,
+							 RDB * db_handle, SSHORT tpb_length, UCHAR * tpb)
+{
+/**************************************
+ *
+ *	g d s _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+	PACKET *packet;
+	P_STTR *trans;
+	RDB rdb;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	NULL_CHECK(rtr_handle, gds_bad_trans_handle);
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_transaction;
+	trans = &packet->p_sttr;
+	trans->p_sttr_database = rdb->rdb_id;
+	trans->p_sttr_tpb.cstr_length = tpb_length;
+	trans->p_sttr_tpb.cstr_address = tpb;
+
+	if (send_and_receive(rdb, packet, user_status))
+		return error(user_status);
+
+	*rtr_handle = make_transaction(rdb, packet->p_resp.p_resp_object);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_TRANSACT_REQUEST(STATUS * user_status,
+							RDB * db_handle,
+							RTR * rtr_handle,
+							USHORT blr_length,
+							UCHAR * blr,
+							USHORT in_msg_length,
+							UCHAR * in_msg,
+							USHORT out_msg_length, UCHAR * out_msg)
+{
+/**************************************
+ *
+ *	i s c _ t r a n s a c t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a procedure on remote host.
+ *
+ **************************************/
+	RTR transaction;
+	RDB rdb;
+	PORT port;
+	MSG message, temp;
+	PACKET *packet;
+	RPR procedure;
+	P_TRRQ *trrq;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	rdb = *db_handle;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	transaction = *rtr_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds_bad_trans_handle);
+	ERROR_INIT(env);
+	port = rdb->rdb_port;
+
+/* bag it if the protocol doesn't support it... */
+
+	if (port->port_protocol < PROTOCOL_VERSION8)
+		return unsupported(user_status);
+
+	if (!(procedure = port->port_rpr))
+		procedure = port->port_rpr = (RPR) ALLOC(type_rpr);
+
+	if ((*rtr_handle)->rtr_rdb != rdb) {
+		user_status[0] = gds_arg_gds;
+		user_status[1] = gds_trareqmis;
+		user_status[2] = gds_arg_end;
+		return error(user_status);
+	}
+
+/* Parse the blr describing the messages */
+
+	if (procedure->rpr_in_msg) {
+		ALLR_RELEASE(procedure->rpr_in_msg);
+		procedure->rpr_in_msg = NULL;
+	}
+	if (procedure->rpr_in_format) {
+		ALLR_RELEASE(procedure->rpr_in_format);
+		procedure->rpr_in_format = NULL;
+	}
+	if (procedure->rpr_out_msg) {
+		ALLR_RELEASE(procedure->rpr_out_msg);
+		procedure->rpr_out_msg = NULL;
+	}
+	if (procedure->rpr_out_format) {
+		ALLR_RELEASE(procedure->rpr_out_format);
+		procedure->rpr_out_format = NULL;
+	}
+
+	if ((message = PARSE_messages(blr, blr_length)) != (MSG) - 1) {
+		while (message) {
+			if (message->msg_number == 0) {
+				procedure->rpr_in_msg = message;
+				procedure->rpr_in_format = (FMT) message->msg_address;
+				message->msg_address = in_msg;
+				message = message->msg_next;
+				procedure->rpr_in_msg->msg_next = NULL;
+			}
+			else if (message->msg_number == 1) {
+				procedure->rpr_out_msg = message;
+				procedure->rpr_out_format = (FMT) message->msg_address;
+				message->msg_address = out_msg;
+				message = message->msg_next;
+				procedure->rpr_out_msg->msg_next = NULL;
+			}
+			else {
+				temp = message;
+				message = message->msg_next;
+				ALLR_RELEASE(temp);
+			}
+		}
+	}
+/*
+else
+    error
+*/
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_transact;
+	trrq = &packet->p_trrq;
+	trrq->p_trrq_database = rdb->rdb_id;
+	trrq->p_trrq_transaction = transaction->rtr_id;
+	trrq->p_trrq_blr.cstr_length = blr_length;
+	trrq->p_trrq_blr.cstr_address = blr;
+	trrq->p_trrq_messages = (in_msg_length) ? 1 : 0;
+
+	if (!send_packet(rdb->rdb_port, packet, user_status))
+		return error(user_status);
+
+/* Two types of responses are possible, op_transact_response or 
+   op_response.  When there is an error op_response packet is returned
+   and it modifies the status vector to indicate the error which occured.
+   But when success occurs a packet with op_transact_response comes back
+   which does not change the status vector.
+ */
+
+	packet->p_resp.p_resp_status_vector = rdb->rdb_status_vector;
+	if (!receive_packet(port, packet, user_status))
+		return error(user_status);
+
+	if (packet->p_operation != op_transact_response)
+		if (!check_response(rdb, packet))
+			return error(user_status);
+
+	RETURN_SUCCESS;
+}
+
+
+STATUS GDS_TRANSACTION_INFO(STATUS * user_status,
+							RTR * tra_handle,
+							SSHORT item_length,
+							UCHAR * items,
+							SSHORT buffer_length, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	g d s _ t r a n s a c t i o n _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	RTR transaction;
+	RDB rdb;
+	STATUS status;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	transaction = *tra_handle;
+	CHECK_HANDLE(transaction, type_rtr, gds_bad_trans_handle);
+	rdb = transaction->rtr_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+	status =
+		info(user_status, rdb, op_info_transaction, transaction->rtr_id, 0,
+			 item_length, (SCHAR *) items, 0, 0, buffer_length,
+			 (SCHAR *) buffer);
+
+	RESTORE_THREAD_DATA;
+
+	return status;
+}
+
+
+STATUS GDS_UNWIND(STATUS * user_status, RRQ * req_handle, USHORT level)
+{
+/**************************************
+ *
+ *	g d s _ u n w i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unwind a running request.
+ *
+ **************************************/
+	RDB rdb;
+	RRQ request;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	SET_THREAD_DATA;
+
+	request = REMOTE_find_request(*req_handle, level);
+	CHECK_HANDLE(request, type_rrq, gds_bad_req_handle);
+	rdb = request->rrq_rdb;
+	CHECK_HANDLE(rdb, type_rdb, gds_bad_db_handle);
+	ERROR_INIT(env);
+
+/* EXE_unwind (*req_handle); */
+
+	RETURN_SUCCESS;
+}
+
+
+static RVNT add_event( PORT port)
+{
+/*************************************
+ * 
+ * 	a d d _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add remote event block to active chain.
+ *
+ **************************************/
+	RDB rdb;
+	RVNT event;
+
+	rdb = port->port_context;
+
+/* Find unused event block or, if necessary, a new one */
+
+	for (event = rdb->rdb_events; event; event = event->rvnt_next)
+		if (!event->rvnt_id)
+			break;
+
+	if (!event) {
+		event = (RVNT) ALLOC(type_rvnt);
+		event->rvnt_next = rdb->rdb_events;
+		rdb->rdb_events = event;
+	}
+
+	event->rvnt_id = ++remote_event_id;
+
+	return event;
+}
+
+
+static void add_other_params( PORT port, UCHAR * dpb_or_spb, USHORT * length)
+{
+/**************************************
+ *
+ *	a d d _ o t h e r _ p a r a m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Add parameters to a dpb or spb to describe client-side
+ *	settings that the server should know about.  
+ *	Currently only dummy_packet_interval.
+ *	Note: caller must ensure enough spare space is available at the end of 
+ *	the passed in dpb or spb.
+ *
+ **************************************/
+	assert(isc_dpb_dummy_packet_interval == isc_spb_dummy_packet_interval);
+	assert(isc_dpb_version1 == isc_spb_version1);
+
+	if (port->port_flags & PORT_dummy_pckt_set) {
+		if (*length == 0)
+			dpb_or_spb[(*length)++] = isc_dpb_version1;
+		dpb_or_spb[(*length)++] = isc_dpb_dummy_packet_interval;
+		dpb_or_spb[(*length)++] = sizeof(port->port_dummy_packet_interval);
+		stuff_vax_integer(&dpb_or_spb[*length],
+						  port->port_dummy_packet_interval,
+						  sizeof(port->port_dummy_packet_interval));
+		*length += sizeof(port->port_dummy_packet_interval);
+	}
+}
+
+
+static void add_working_directory(UCHAR*	dpb_or_spb,
+								  USHORT*	length,
+								  TEXT*		node_name)
+{
+/************************************************
+ *
+ *      a d d _ w o r k i n g _ d i r e c t o r y
+ *
+ ************************************************
+ *
+ * Functional description
+ *      Add parameters to a dpb or spb to describe client-side
+ *      settings that the server should know about.
+ *
+ ************************************************/
+	int len;
+	char cwd[MAXPATHLEN];
+
+	if (node_name && !strcmp(node_name, "localhost"))
+	{
+		getcwd(cwd, sizeof(cwd));
+	}
+	else
+	{
+		/** Remote database. Pass Null **/
+		cwd[0] = 0;
+	}
+	len = strlen(cwd);
+	if (*length == 0) {
+		dpb_or_spb[(*length)++] = isc_dpb_version1;
+	}
+	dpb_or_spb[(*length)++] = isc_dpb_working_directory;
+	dpb_or_spb[(*length)++] = len;
+	memcpy(&(dpb_or_spb[(*length)]), cwd, len);
+	*length += len;
+}
+
+
+static PORT analyze(TEXT*	file_name,
+					USHORT*	file_length,
+					STATUS*	status_vector,
+					TEXT*	user_string,
+					USHORT	uv_flag,
+					SCHAR*	dpb,
+					SSHORT	dpb_length,
+					TEXT*	node_name)
+{
+/**************************************
+ *
+ *	a n a l y z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a file specification and determine whether
+ *	a remote server is required, and if so, what protocol
+ *	to use.  If the database can be accessed locally,
+ *	return a NULL connection block.  If a "full context"
+ *	server is to be used, return the address of a port block
+ *	with which to communicate with the server.
+ *
+ *	NOTE: The file name must have been expanded prior to this call.
+ *
+ **************************************/
+	PORT port;
+#if (defined SUPERCLIENT || defined WIN_NT)
+	TEXT expanded_name[MAXPATHLEN];
+#endif
+
+#if defined(WIN_NT)
+
+	*file_length = ISC_expand_share(file_name, expanded_name);
+	strcpy((char *) file_name, (char *) expanded_name);
+#endif
+
+	file_name[*file_length] = 0;
+	port = NULL;
+
+/* Analyze the file name to see if a remote connection is required.  If not,
+   quietly (sic) return. */
+
+#if (defined ultrix || defined DECOSF)
+	port = DNET_analyze(file_name, file_length, status_vector, uv_flag);
+#endif
+
+#ifdef VMS
+	port = DECNET_analyze(file_name, file_length, status_vector, uv_flag);
+#endif
+
+#if defined(WIN_NT)
+	if (ISC_analyze_pclan(file_name, node_name))
+		return WNET_analyze(file_name, file_length, status_vector,
+							node_name, user_string, uv_flag);
+#endif
+
+#ifdef WIN_NT
+/* 32 bit SPX protocol analyze */
+	if (ISC_analyze_spx(file_name, node_name))
+		return SPXNET32_analyze(file_name, file_length, status_vector,
+								node_name, user_string, uv_flag, dpb,
+								dpb_length);
+#else
+#ifdef SPX
+/* SPX is defined only for 16bit windows */
+	if (ISC_analyze_spx(file_name, node_name))
+	{
+		return SPXNET_analyze(file_name, file_length, status_vector,
+							  node_name, user_string, uv_flag);
+	}
+#endif
+#endif /* WIN_NT */
+
+	if (!port)
+	{
+		if (ISC_analyze_tcp(file_name, node_name))
+		{
+			port = INET_analyze(file_name, file_length, status_vector,
+								node_name, user_string, uv_flag, dpb,
+								dpb_length);
+
+			if (!port)
+			{
+				/* retry in case multiclient inet server not forked yet */
+
+#ifndef NETWARE_386
+				sleep(2);
+#endif
+				port = INET_analyze(file_name, file_length, status_vector,
+									node_name, user_string, uv_flag, dpb,
+									dpb_length);
+			}
+		}
+		else
+		{
+#ifdef NFS
+			if (!port)
+			{
+				if (ISC_analyze_nfs(file_name, node_name))
+				{
+					port = INET_analyze(file_name, file_length, status_vector,
+										node_name, user_string, uv_flag, dpb,
+										dpb_length);
+					if (!port)
+					{
+						/* retry in case multiclient inet server not forked yet */
+
+						sleep(2);
+						port =
+							INET_analyze(file_name, file_length,
+										 status_vector, node_name,
+										 user_string, uv_flag, dpb,
+										 dpb_length);
+					}
+				}
+			}
+#endif
+		}
+	}	// if (!port)
+
+#ifdef SUPERCLIENT
+/* Coerce host connections to loopback to SUPERSERVER. */
+
+#ifdef WIN_NT
+#ifndef IPSERV
+	if (!ostype)
+	{
+		if (ISC_is_WinNT())
+		{
+			ostype = OSTYPE_NT;
+		}
+		else
+		{
+			ostype = OSTYPE_WIN_95;
+		}
+	}
+
+	if (ostype == OSTYPE_NT && !port)
+	{
+		strcpy((char *) expanded_name, (char *) file_name);
+		strcpy((char *) file_name, "\\\\.\\");
+		strcat((char *) file_name, (char *) expanded_name);
+		if (ISC_analyze_pclan(file_name, node_name))
+			return WNET_analyze(file_name, file_length, status_vector,
+								node_name, user_string, uv_flag);
+	}
+#endif /* IPSERV */
+#endif /* WIN_NT */
+
+#ifdef  XNET
+
+/* all remote attempts have failed, so access locally through the
+   interprocess server */
+
+	if (!port)
+	{
+		return XNET_analyze(file_name,
+							file_length,
+							status_vector,
+							node_name,
+							user_string,
+							uv_flag);
+	}
+
+#endif /* XNET */
+
+#ifdef UNIX
+
+	if (!port && !node_name[0])
+	{
+		strcpy((char*)expanded_name, (char*)file_name);
+		strcpy((char*)file_name, "localhost:");
+		strcat((char*)file_name, (char*)expanded_name);
+		if (ISC_analyze_tcp(file_name, node_name))
+		{
+			return INET_analyze(file_name,
+								file_length,
+								status_vector,
+								node_name,
+								user_string,
+								uv_flag,
+								dpb,
+								dpb_length);
+		}
+	}
+
+#endif /* UNIX */
+
+#endif /* SUPERCLIENT */
+
+	if (port || status_vector[1])
+	{
+		return port;
+	}
+
+	return NULL;
+}
+
+
+static PORT analyze_service(
+							TEXT * service_name,
+							USHORT * service_length,
+							STATUS * status_vector,
+TEXT * user_string, USHORT uv_flag, SCHAR * dpb, SSHORT dpb_length)
+{
+/**************************************
+ *
+ *	a n a l y z e _ s e r v i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze a service specification and determine whether a remote
+ *	server is required, and if so, what protocol to use.  If the
+ *	database can be accessed locally, return the value FALSE with a
+ *	NULL connection block.  If a server is to be used, return TRUE
+ *	and the address of a port block with which to communicate
+ *	with the server.
+ *
+ **************************************/
+	PORT port;
+	TEXT node_name[MAXPATHLEN];
+
+	service_name[*service_length] = 0;
+	port = NULL;
+
+/* Analyze the service name to see if a remote connection is required.  If not,
+   quietly (sic) return. */
+
+#if (defined ultrix || defined DECOSF)
+	port = DNET_analyze(service_name, service_length, status_vector, uv_flag);
+#endif
+
+#ifdef VMS
+	port =
+		DECNET_analyze(service_name, service_length, status_vector, uv_flag);
+#endif
+
+#if defined(WIN_NT)
+	if (ISC_analyze_pclan(service_name, node_name))
+		return WNET_analyze(service_name, service_length, status_vector,
+							node_name, user_string, uv_flag);
+#endif
+#ifdef WIN_NT
+/* Analyze for a 32bit SPX protocol request */
+	if (ISC_analyze_spx(service_name, node_name))
+		return SPXNET32_analyze(service_name, service_length, status_vector,
+								node_name, user_string, uv_flag, dpb,
+								dpb_length);
+#else
+#ifdef SPX
+/* SPX is defined only for 16bit windows */
+	if (ISC_analyze_spx(service_name, node_name))
+		return SPXNET_analyze(service_name, service_length, status_vector,
+							  node_name, user_string, uv_flag);
+#endif /* SPX */
+#endif /* WIN_NT */
+
+	if (!port)
+		if (ISC_analyze_tcp(service_name, node_name))
+			port = INET_analyze(service_name, service_length, status_vector,
+								node_name, user_string, uv_flag, dpb,
+								dpb_length);
+
+#ifdef  XNET
+
+/* all remote attempts have failed, so access locally through the
+   interprocess server */
+
+	if (!port)
+		port = XNET_analyze(service_name, service_length, status_vector,
+							node_name, user_string, uv_flag);
+#endif
+
+#ifdef SUPERCLIENT
+#ifdef UNIX
+
+	if (!port && !node_name[0]) {
+		TEXT expanded_name[MAXPATHLEN];
+		strcpy((char *) expanded_name, (char *) service_name);
+		strcpy((char *) service_name, "localhost:");
+		strcat((char *) service_name, (char *) expanded_name);
+		if (ISC_analyze_tcp(service_name, node_name))
+			return INET_analyze(service_name, service_length, status_vector,
+								node_name, user_string, uv_flag, dpb,
+								dpb_length);
+	}
+#endif /* UNIX */
+#endif /* SUPERCLIENT */
+
+
+	return port;
+}
+
+
+static BOOLEAN batch_dsql_fetch(
+								struct trdb *trdb,
+								PORT port,
+								struct rmtque *que,
+								STATUS * user_status, USHORT id)
+{
+/**************************************
+ *
+ *	b a t c h _ d s q l _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a batch of messages that were queued
+ *	on the wire.
+ *
+ *	This function will be invoked whenever we need to wait
+ *	for something to come over on the wire, and there are
+ *	items in the queue for receipt.
+ *
+ *	Note on error handing:  Actual networking errors
+ *	need to be reported to user_status - which is bubbled
+ *	upwards to the API call which initiated this receive.
+ *	A status vector being returned as part of the cursor
+ *	fetch needs to be stored away for later return to the
+ *	client in the proper place in the stream.
+ *
+ **************************************/
+	RDB rdb;
+	RSR statement;
+	MSG message, new_;
+	PACKET *packet;
+	STATUS tmp_status[20];
+	STATUS *save_status;
+	BOOLEAN clear_queue = FALSE;
+
+	assert(port);
+	assert(que);
+	assert(user_status);
+
+	assert(que->rmtque_function == batch_dsql_fetch);
+
+	rdb = que->rmtque_rdb;
+	statement = (RSR) que->rmtque_parm;
+	packet = &rdb->rdb_packet;
+
+	assert(port == rdb->rdb_port);
+
+/* Queue errors within the batched request */
+
+	save_status = packet->p_resp.p_resp_status_vector;
+	packet->p_resp.p_resp_status_vector = tmp_status;
+
+/* Setup the packet structures so it knows what statement we
+   are trying to receive at this point in time */
+
+	packet->p_sqldata.p_sqldata_statement = statement->rsr_id;
+
+/* We'll either receive the whole batch, until end-of-batch is seen,
+   or we'll just fetch one.  We'll fetch one when we've run out of
+   local data to return to the client, so we grab one "hot off the wire"
+   to handoff to them.  We'll grab the whole batch when we need to
+   receive a response for a DIFFERENT network request on the wire,
+   so we have to clear the wire before the response can be received */
+/* In addtion to the above we grab all the records in case of XNET as 
+ * we need to clear the queue */
+	if (id != statement->rsr_id || port->port_type == port_xnet)
+		clear_queue = TRUE;
+
+	statement->rsr_flags |= RSR_fetched;
+	while (TRUE) {
+		/* Swallow up data. If a buffer isn't available, allocate another. */
+
+		message = statement->rsr_buffer;
+		if (message->msg_address) {
+			statement->rsr_buffer = new_ =
+				(MSG) ALLOCV(type_msg, statement->rsr_fmt_length);
+			new_->msg_next = message;
+
+#ifdef SCROLLABLE_CURSORS
+			/* link the new message in a doubly linked list to make it 
+			   easier to scroll back and forth through the records */
+
+			MSG prior = message->msg_prior;
+			message->msg_prior = new_;
+			prior->msg_next = new_;
+			new_->msg_prior = prior;
+#else
+			while (message->msg_next != new_->msg_next)
+				message = message->msg_next;
+			message->msg_next = new_;
+#endif
+		}
+
+		if (!receive_packet_noqueue(port, packet, tmp_status)) {
+			/* Must be a network error */
+
+			memcpy(user_status, tmp_status, sizeof(tmp_status));
+			packet->p_resp.p_resp_status_vector = save_status;
+			statement->rsr_rows_pending = 0;
+			--statement->rsr_batch_count;
+			dequeue_receive(port);
+			LONGJMP(*trdb->trdb_setjmp, user_status[1]);
+
+			/* we don't return from the LONGJMP - but put a
+			   return here to make the compiler happy. */
+
+			return FALSE;
+		}
+
+		if (packet->p_operation != op_fetch_response) {
+			statement->rsr_flags |= RSR_stream_err;
+			check_response(rdb, packet);
+
+			/* save the status vector in a safe place */
+
+			if (!statement->rsr_status_vector[1])
+				memcpy(statement->rsr_status_vector, tmp_status,
+					   sizeof(statement->rsr_status_vector));
+			statement->rsr_rows_pending = 0;
+			--statement->rsr_batch_count;
+			dequeue_receive(port);
+			break;
+		}
+
+		/* See if we're at end of the batch */
+
+		if (packet->p_sqldata.p_sqldata_status ||
+			!packet->p_sqldata.p_sqldata_messages ||
+			(port->port_flags & PORT_rpc)) {
+			if (packet->p_sqldata.p_sqldata_status == 100) {
+				statement->rsr_flags |= RSR_eof;
+				statement->rsr_rows_pending = 0;
+#ifdef DEBUG
+				ib_fprintf(ib_stdout,
+						   "Resetting Rows Pending in batch_dsql_fetch=%d\n",
+						   statement->rsr_rows_pending);
+#endif
+			}
+			--statement->rsr_batch_count;
+			if (statement->rsr_batch_count == 0)
+				statement->rsr_rows_pending = 0;
+			dequeue_receive(port);
+			break;
+		}
+		statement->rsr_msgs_waiting++;
+		statement->rsr_rows_pending--;
+#ifdef DEBUG
+		ib_fprintf(ib_stdout,
+				   "Decrementing Rows Pending in batch_dsql_fetch=%d\n",
+				   statement->rsr_rows_pending);
+#endif
+		if (clear_queue == FALSE)
+			break;
+	}
+	packet->p_resp.p_resp_status_vector = save_status;
+	return TRUE;
+}
+
+
+static BOOLEAN batch_gds_receive(
+								 struct trdb *trdb,
+								 PORT port,
+								 struct rmtque *que,
+								 STATUS * user_status, USHORT id)
+{
+/**************************************
+ *
+ *	b a t c h _ g d s _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a batch of messages that were queued
+ *	on the wire.
+ *
+ *	This function will be invoked whenever we need to wait
+ *	for something to come over on the wire, and there are
+ *	items in the queue for receipt.
+ *
+ *	Note on error handing:  Actual networking errors
+ *	need to be reported to user_status - which is bubbled
+ *	upwards to the API call which initiated this receive.
+ *	A status vector being returned as part of the cursor
+ *	fetch needs to be stored away for later return to the
+ *	client in the proper place in the stream.
+ *
+ **************************************/
+
+	MSG message, new_;
+	FMT format;
+	STATUS tmp_status[20];
+	STATUS *save_status;
+	BOOLEAN clear_queue = FALSE;	/* indicates whether queue is just being emptied, not retrieved */
+
+	assert(port);
+	assert(que);
+	assert(user_status);
+
+	assert(que->rmtque_function == batch_gds_receive);
+
+	RDB rdb = que->rmtque_rdb;
+	RRQ request = reinterpret_cast < RRQ > (que->rmtque_parm);
+	rrq::rrq_repeat * tail =
+		reinterpret_cast < rrq::rrq_repeat * >(que->rmtque_message);
+	PACKET *packet = &rdb->rdb_packet;
+
+	assert(port == rdb->rdb_port);
+
+/* Queue errors within the batched request */
+
+	save_status = packet->p_resp.p_resp_status_vector;
+	packet->p_resp.p_resp_status_vector = tmp_status;
+
+/* always clear the complete queue for XNET, as we might have incomplete
+ * packets */
+	if (id != request->rrq_id || port->port_type == port_xnet)
+		clear_queue = TRUE;
+
+/* Receive the whole batch of records, until end-of-batch is seen */
+
+	while (TRUE) {
+		message = tail->rrq_xdr;	/* First free buffer */
+
+		/* If the buffer queue is full, allocate a new message and 
+		   place it in the queue--if we are clearing the queue, don't 
+		   read records into messages linked list so that we don't 
+		   mess up the record cache for scrolling purposes. */
+
+		if (message->msg_address) {
+			format = tail->rrq_format;
+			tail->rrq_xdr = new_ = (MSG) ALLOCV(type_msg, format->fmt_length);
+			new_->msg_next = message;
+			new_->msg_number = message->msg_number;
+
+#ifdef SCROLLABLE_CURSORS
+			/* link the new message in a doubly linked list to make it 
+			   easier to scroll back and forth through the records */
+
+			MSG prior = message->msg_prior;
+			message->msg_prior = new_;
+			prior->msg_next = new_;
+			new_->msg_prior = prior;
+#else
+			/* Walk the que until we find the predecessor of message */
+
+			while (message->msg_next != new_->msg_next)
+				message = message->msg_next;
+			message->msg_next = new_;
+#endif
+		}
+
+		/* Note: not receive_packet */
+
+		if (!receive_packet_noqueue(rdb->rdb_port, packet, tmp_status)) {
+			/* Must be a network error */
+
+			memcpy(user_status, tmp_status, sizeof(tmp_status));
+			packet->p_resp.p_resp_status_vector = save_status;
+			tail->rrq_rows_pending = 0;
+			--tail->rrq_batch_count;
+			dequeue_receive(port);
+			LONGJMP(*trdb->trdb_setjmp, user_status[1]);
+
+			/* we don't return from the LONGJMP - but put a
+			   return here to make the compiler happy. */
+
+			return FALSE;
+		}
+
+		if (packet->p_operation != op_send) {
+			tail->rrq_rows_pending = 0;
+			--tail->rrq_batch_count;
+			check_response(rdb, packet);
+#ifdef DEBUG
+			ib_fprintf(ib_stderr, "End of batch. rows pending = %d\n",
+					   tail->rrq_rows_pending);
+			ib_fprintf(ib_stderr, "Got batch error %ld Max message = %d\n",
+					   tmp_status[1], request->rrq_max_msg);
+#endif
+			if (!request->rrq_status_vector[1])
+				memcpy(request->rrq_status_vector, tmp_status,
+					   sizeof(tmp_status));
+			dequeue_receive(port);
+			break;
+		}
+
+#ifdef SCROLLABLE_CURSORS
+		/* at this point we've received a row into the message, so mark the message 
+		   with the absolute offset */
+
+		if (
+			((tail->rrq_flags & RRQ_backward)
+			 && (tail->rrq_flags & RRQ_absolute_backward))
+			|| (!(tail->rrq_flags & RRQ_backward)
+				&& !(tail->rrq_flags & RRQ_absolute_backward))) tail->
+				rrq_absolute++;
+		else
+			tail->rrq_absolute--;
+		message->msg_absolute = tail->rrq_absolute;
+#endif
+
+		tail->rrq_msgs_waiting++;
+		tail->rrq_rows_pending--;
+#ifdef DEBUG
+		ib_fprintf(ib_stdout,
+				   "Decrementing Rows Pending in batch_gds_receive=%d\n",
+				   tail->rrq_rows_pending);
+#endif
+
+		/* See if we're at end of the batch */
+
+		if (!packet->p_data.p_data_messages || (port->port_flags & PORT_rpc)) {
+			if (!(--tail->rrq_batch_count))
+				tail->rrq_rows_pending = 0;
+#ifdef DEBUG
+			ib_fprintf(ib_stderr, "End of batch waiting %d\n",
+					   tail->rrq_rows_pending);
+#endif
+			dequeue_receive(port);
+			break;
+		}
+
+		/* one packet is enough unless we are trying to clear the queue */
+
+		if (!clear_queue)
+			break;
+#ifdef SCROLLABLE_CURSORS
+		else {
+			/* if we are just trying to clear the queue, then NULL out the message 
+			   address so we don't get a record out of order--it would mess up 
+			   scrolling through the cache */
+
+			message->msg_address = NULL;
+		}
+#endif
+	}
+
+	packet->p_resp.p_resp_status_vector = save_status;
+	return TRUE;
+}
+
+
+static BOOLEAN check_response( RDB rdb, PACKET * packet)
+{
+/**************************************
+ *
+ *	c h e c k _ r e s p o n s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check response to a remote call.
+ *
+ **************************************/
+	STATUS *vector;
+	STATUS vec;
+	PORT port;
+
+	port = rdb->rdb_port;
+	vector = packet->p_resp.p_resp_status_vector;
+
+/* Translate any gds codes into local operating specific codes */
+
+	while (*vector != gds_arg_end) {
+		vec = *vector++;
+		switch ((USHORT) vec) {
+		case isc_arg_warning:
+		case gds_arg_gds:
+			if (port->port_protocol < PROTOCOL_VERSION10) {
+				assert(vec == gds_arg_gds);
+				*vector = gds__encode(*vector, 0);
+			}
+			else
+				*vector = *vector;
+			vector++;
+			break;
+
+		case gds_arg_cstring:
+			vector += 2;
+			break;
+
+		default:
+			vector++;
+			break;
+		}
+	}
+
+	if ((packet->p_operation == op_response ||
+		 packet->p_operation == op_response_piggyback) &&
+		!rdb->rdb_status_vector[1])
+		return TRUE;
+
+	return FALSE;
+}
+
+
+static BOOLEAN clear_queue( PORT port, STATUS * user_status)
+{
+/**************************************
+ *
+ *	c l e a r _ q u e u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear the queue of batched packets - in preparation
+ *	for waiting for a specific response, or when we are
+ *	about to reuse an internal request.
+ * Return codes:
+ *	TRUE  - no errors.
+ *	FALSE - Network error occured, error code in user_status 
+ **************************************/
+
+	if (port->port_receive_rmtque) {
+		struct trdb *trdb;
+		trdb = GET_THREAD_DATA;
+		while (port->port_receive_rmtque)
+			if (!receive_queued_packet(trdb, port, user_status, (USHORT) - 1))
+				return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+static void disconnect( PORT port)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disconnect a port and free its memory.
+ *
+ **************************************/
+	RDB rdb;
+	PACKET *packet;
+
+/* Send a disconnect to the server so that it
+   gracefully terminates. */
+
+	if (rdb = port->port_context) {
+		/* BAND-AID:
+		   It seems as if we are disconnecting the port
+		   on both the server and client side.  For now
+		   let the server handle this for named pipes
+
+		   8-Aug-1997  M.  Duquette
+		   R.  Kumar
+		   M.  Romanini
+
+		 */
+		/* Win95 SPX does not like the server closing the connection, just as the client
+		   is attempting to send data. Such a scenario is caused by both sides trying to 
+		   perform a disconnect. So, disable client side disconnect for spx. Though, 
+		   this is really  not a NT issue, let me leave the same behaviour for NT & 95 
+		   RaviKumar Jan 3, 98
+		 */
+
+		packet = &rdb->rdb_packet;
+		if ((port->port_type != port_pipe) && (port->port_type != port_spx)) {
+			packet->p_operation = op_disconnect;
+			(void) port->send(packet);
+		}
+		REMOTE_free_packet(port, packet);
+	}
+
+/* Perform physical network disconnect and release
+   memory for remote database context. */
+
+	port->disconnect();
+	if (rdb) {
+		ALLR_RELEASE(rdb);
+	}
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+static MSG dump_cache(
+					  PORT port, STATUS * user_status, rrq::rrq_repeat * tail)
+{
+/**************************************
+ *
+ *	d u m p _ c a c h e
+ *
+ **************************************
+ *
+ * Functional description
+ *	We have encountered a situation where what's in 
+ *	cache is not useful, so clear any pending requests 
+ *	and empty the cache in preparation for refilling it. 
+ *
+ **************************************/
+	MSG message;
+
+	if (!clear_queue(port, user_status))
+		return NULL;
+
+	message = tail->rrq_message;
+	while (TRUE) {
+		message->msg_address = NULL;
+		message = message->msg_next;
+		if (message == tail->rrq_message)
+			break;
+	}
+
+	tail->rrq_xdr = message;
+	tail->rrq_last = NULL;
+	tail->rrq_rows_pending = 0;
+
+	return message;
+}
+#endif
+
+
+static STATUS error( STATUS * user_status)
+{
+/**************************************
+ *
+ *	e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An error returned has been trapped.  Return a status code.
+ *
+ **************************************/
+
+	RESTORE_THREAD_DATA;
+
+	return user_status[1];
+}
+
+
+#ifndef MULTI_THREAD
+static void event_handler( PORT port)
+{
+/**************************************
+ *
+ *	e v e n t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait on auxiliary mailbox for event notification.
+ *	If we are single threaded, run this routine, blocking until
+ *	an event message arrives, and handling accordingly.
+ *
+ **************************************/
+	PACKET packet;
+	P_EVENT *pevent;
+	RVNT event;
+
+/* zero packet */
+
+	zap_packet(&packet);
+
+/* Read what should be an event message. If it's not, return. */
+
+	if (port->receive(&packet)) {
+		/* If we received an event packet */
+
+		if (packet.p_operation == op_event) {
+			/* Find the event, if any, that matches the packet's event */
+
+			pevent = &packet.p_event;
+
+			if (event = find_event(port, pevent->p_event_rid)) {
+				/* Call the asynchronous trap function associated with the event. */
+
+				(*event->rvnt_ast) (event->rvnt_arg,
+									pevent->p_event_items.cstr_length,
+									pevent->p_event_items.cstr_address);
+
+				event->rvnt_id = 0;
+			}
+		}
+	}
+
+/* free up anything allocated */
+
+	REMOTE_free_packet(port, &packet);
+
+}
+
+
+#else /* MULTI_THREAD  */
+static void THREAD_ROUTINE event_thread( PORT port)
+{
+/**************************************
+ *
+ *	e v e n t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait on auxilary mailbox for event notification.
+ *
+ **************************************/
+	PACKET packet;
+	P_EVENT *pevent;
+	PORT stuff;
+	RVNT event;
+
+	for (;;) {
+		/* zero packet */
+
+		zap_packet(&packet);
+
+		/* read what should be an event message */
+
+		THREAD_ENTER;
+		stuff = port->receive(&packet);
+		THREAD_EXIT;
+
+		if (!stuff || packet.p_operation == op_exit) {
+			/* Actually, the remote server doing the watching died.
+			   Clean up and leave. */
+
+			REMOTE_free_packet(port, &packet);
+			server_death(port);
+			break;
+		}
+
+		/* If the packet was an event, we handle it */
+
+		if (packet.p_operation == op_event) {
+			pevent = &packet.p_event;
+
+			THREAD_ENTER;
+			event = find_event(port, pevent->p_event_rid);
+			THREAD_EXIT;
+
+			if (event) {
+				/* Call the asynchronous event routine associated
+				   with this event */
+
+				(*event->rvnt_ast) (event->rvnt_arg,
+									pevent->p_event_items.cstr_length,
+									pevent->p_event_items.cstr_address);
+
+				event->rvnt_id = 0;
+			}
+
+		}						/* end of event handling for op_event */
+
+		REMOTE_free_packet(port, &packet);
+	}							/* end of infinite for loop */
+}
+#endif /* MULTI_THREAD  */
+
+
+static STATUS fetch_blob(
+						 STATUS * user_status,
+						 RSR statement,
+						 USHORT blr_length,
+						 UCHAR * blr,
+USHORT msg_type, USHORT msg_length, UCHAR * msg)
+{
+/**************************************
+ *
+ *	f e t c h _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor.
+ *
+ **************************************/
+	RDB rdb;
+	MSG message;
+	PORT port;
+	PACKET *packet;
+	P_SQLDATA *sqldata;
+
+	rdb = statement->rsr_rdb;
+
+	port = rdb->rdb_port;
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_fetch;
+	sqldata = &packet->p_sqldata;
+	sqldata->p_sqldata_statement = statement->rsr_id;
+	sqldata->p_sqldata_blr.cstr_length = blr_length;
+	sqldata->p_sqldata_blr.cstr_address = blr;
+	sqldata->p_sqldata_message_number = msg_type;
+	sqldata->p_sqldata_messages = (statement->rsr_select_format) ? 1 : 0;
+
+	if (!send_packet(port, packet, user_status))
+		return user_status[1];
+
+/* set up the response packet. */
+
+	packet->p_resp.p_resp_status_vector = rdb->rdb_status_vector;
+
+/* Swallow up data. */
+
+	message = statement->rsr_buffer;
+	message->msg_address = msg;
+	if (!receive_packet(port, packet, user_status)) {
+		message->msg_address = NULL;
+		return user_status[1];
+	}
+	message->msg_address = NULL;
+
+	if (packet->p_operation == op_fetch_response)
+		(void) receive_response(rdb, packet);
+	else {
+		check_response(rdb, packet);
+		return user_status[1];
+	}
+
+	return packet->p_sqldata.p_sqldata_status;
+}
+
+
+static RVNT find_event( PORT port, SLONG id)
+{
+/*************************************
+ * 
+ * 	f i n d _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find event with specified event_id.
+ *
+ **************************************/
+	RDB rdb;
+	RVNT event;
+
+	rdb = port->port_context;
+
+	for (event = rdb->rdb_events; event; event = event->rvnt_next)
+		if (event->rvnt_id == id)
+			return event;
+
+	return NULL;
+}
+
+
+static USHORT get_new_dpb(UCHAR*	dpb,
+						  SSHORT	dpb_length,
+						  SSHORT	dpb_vs_spb,
+						  UCHAR*	new_dpb,
+						  USHORT*	new_dpb_length,
+						  TEXT*		user_string)
+{
+/**************************************
+ *
+ *	g e t _ n e w _ d p b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch user_string out of dpb.
+ *	(Based on JRD get_options())
+ *
+ **************************************/
+	UCHAR*	p;
+	UCHAR	c;
+	UCHAR*	q;
+	UCHAR*	s;
+	UCHAR*	password;
+	UCHAR*	end_dpb;
+	UCHAR	pw_buffer[MAX_PASSWORD_ENC_LENGTH + 6];
+	UCHAR	pb_version;
+	UCHAR	pb_sys_user_name;
+	UCHAR	pb_password;
+	UCHAR	pb_user_name;
+	UCHAR	pb_password_enc;
+	SSHORT	l;
+	SSHORT	result;
+	SSHORT	moved_some;
+	SSHORT	password_length;
+
+	*user_string = 0;
+	*new_dpb_length = 0;
+
+	if (dpb_vs_spb)
+	{
+		pb_version = gds_dpb_version1;
+		pb_sys_user_name = gds_dpb_sys_user_name;
+		pb_password = gds_dpb_password;
+		pb_user_name = gds_dpb_user_name;
+		pb_password_enc = gds_dpb_password_enc;
+	}
+	else
+	{
+		if (dpb_length)
+		{
+			if (*dpb == isc_spb_version) {
+				pb_version = dpb[1];
+			} else {
+				pb_version = *dpb;
+			}
+		}
+		else
+		{
+			pb_version = isc_spb_current_version;
+		}
+
+		pb_sys_user_name = isc_spb_sys_user_name;
+		pb_password = isc_spb_password;
+		pb_user_name = isc_spb_user_name;
+		pb_password_enc = isc_spb_password_enc;
+	}
+	p = dpb;
+	s = new_dpb;
+	end_dpb = p + dpb_length;
+
+	if ((dpb_length > 0) && (*p != pb_version))
+	{
+		if (dpb_vs_spb) {
+			gds__log("REMOTE INTERFACE: wrong dpb version", 0);
+		} else {
+			gds__log("REMOTE INTERFACE: wrong spb version", 0);
+		}
+	}
+
+	if (dpb_length == 0)
+	{
+		*s++ = pb_version;
+	}
+	else
+	{
+		/* for all spb_versions > 1 (meaning usc_spb_version was specified)
+		 * the actual version of the spb is stored in the second byte so
+		 * move the first byte (isc_spb_version) into the new spb so that
+		 * it can be saved off
+		 */
+		if (*p == isc_spb_version)
+			*s++ = *p++;
+		*s++ = *p++;
+	}
+
+	result = 0;
+	password = 0;
+	moved_some = 0;
+	while (p < end_dpb)
+	{
+		*s++ = c = *p++;
+		if (c == pb_sys_user_name)
+		{
+			s--;
+			q = (UCHAR *) user_string;
+			if (l = *p++)
+			{
+				do {
+					*q++ = *p++;
+				} while (--l);
+			}
+			*q = 0;
+		}
+		else if (c == pb_password)
+		{
+			moved_some = 1;
+			s--;
+			password_length = *p++;
+			password = p;
+			p += password_length;
+		}
+		else
+		{
+			if (c == pb_user_name) {
+				result = 1;
+			}
+			moved_some = 1;
+			if (*s++ = static_cast < UCHAR > (l = *p++))
+			{
+				do {
+					*s++ = *p++;
+				} while (--l);
+			}
+
+		}
+	}
+
+#ifdef NO_CRYPT
+	if (password)
+	{
+		moved_some = 1;
+		*s++ = pb_password;
+		*s++ = password_length;
+		do
+			*s++ = *password++;
+		while (--password_length);
+	}
+#else
+	if (password)
+	{
+		moved_some = 1;
+		*s++ = pb_password_enc;
+		l = MIN(password_length, MAX_PASSWORD_ENC_LENGTH);
+		strncpy((char *) pw_buffer, (char *) password, l);
+		pw_buffer[l] = 0;
+		p = (UCHAR *) ENC_crypt(reinterpret_cast<char*>(pw_buffer),
+								PASSWORD_SALT) + 2;
+		*s++ = strlen((char*) p);
+		while (*p) {
+			*s++ = *p++;
+		}
+	}
+#endif
+
+	if (moved_some || ((s - new_dpb) > 1)) {
+		*new_dpb_length = s - new_dpb;
+	} else {
+		*new_dpb_length = 0;
+	}
+
+	return result;
+}
+
+
+static BOOLEAN get_single_user(USHORT dpb_length, SCHAR * dpb)
+{
+/******************************************
+ *
+ *	g e t _ s i n g l e _ u s e r
+ *
+ ******************************************
+ *
+ * Functional description
+ *	Get the dpb and return TRUE if the
+ *	dpb_single_user flag is set, FALSE
+ *	otherwise.
+ *
+ ******************************************/
+	SCHAR *end_dpb;
+	USHORT l;
+
+	if (!dpb)
+		return FALSE;
+
+	end_dpb = dpb + dpb_length;
+
+	if (dpb < end_dpb && *dpb++ != gds_dpb_version1)
+		return FALSE;
+
+	while (dpb < end_dpb)
+		switch (*dpb++) {
+		case isc_dpb_reserved:
+			l = *dpb++;
+			if (l == 3 && !strncmp(dpb, "YES", 3))
+				return TRUE;
+			return FALSE;
+
+		default:
+			l = *dpb++;
+			dpb += l;
+		}
+
+	return FALSE;
+}
+
+
+static STATUS handle_error( STATUS * user_status, STATUS code)
+{
+/**************************************
+ *
+ *	h a n d l e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An invalid handle has been passed in.  If there is a user status
+ *	vector, make it reflect the error.  If not, emulate the routine
+ *	"error" and abort.
+ *
+ **************************************/
+
+	RESTORE_THREAD_DATA;
+
+	*user_status++ = gds_arg_gds;
+	*user_status++ = code;
+	*user_status = gds_arg_end;
+
+	return code;
+}
+
+
+static STATUS info(
+				   STATUS * user_status,
+				   RDB rdb,
+				   P_OP operation,
+				   USHORT object,
+				   USHORT incarnation,
+USHORT item_length,
+SCHAR * items,
+USHORT recv_item_length,
+SCHAR * recv_items, USHORT buffer_length, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Solicit and receive information.
+ *
+ **************************************/
+	PACKET *packet;
+	P_INFO *information;
+	P_RESP *response;
+	CSTRING temp;
+
+/* Build the primary packet to get the operation started. */
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = operation;
+	information = &packet->p_info;
+	information->p_info_object = object;
+	information->p_info_incarnation = incarnation;
+	information->p_info_items.cstr_length = item_length;
+	information->p_info_items.cstr_address = (UCHAR *) items;
+	if (operation == op_service_info) {
+		information->p_info_recv_items.cstr_length = recv_item_length;
+		information->p_info_recv_items.cstr_address = (UCHAR *) recv_items;
+	}
+	information->p_info_buffer_length = buffer_length;
+
+/* Assume the result will be successful */
+
+	assert(user_status == rdb->rdb_status_vector);
+	user_status[0] = gds_arg_gds;
+	user_status[1] = SUCCESS;
+	user_status[2] = gds_arg_end;
+
+	if (!send_packet(rdb->rdb_port, packet, user_status))
+		return user_status[1];
+
+/* Set up for the response packet. */
+
+	response = &packet->p_resp;
+	temp = response->p_resp_data;
+	response->p_resp_data.cstr_allocated = buffer_length;
+	response->p_resp_data.cstr_address = (UCHAR *) buffer;
+
+	if (!receive_response(rdb, packet)) {
+		response->p_resp_data = temp;
+		return user_status[1];
+	}
+
+	response->p_resp_data = temp;
+
+	return rdb->rdb_status_vector[1];
+}
+
+
+static BOOLEAN init(
+					STATUS * user_status,
+					PORT port,
+					P_OP op,
+					UCHAR * file_name,
+					USHORT file_length, UCHAR * dpb, USHORT dpb_length)
+{
+/**************************************
+ *
+ *	i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize for database access.  First call from both CREATE and
+ *	OPEN.
+ *
+ **************************************/
+	RDB rdb;
+	PACKET *packet;
+	P_ATCH *attach;
+
+	rdb = port->port_context;
+	packet = &rdb->rdb_packet;
+
+/* Make attach packet */
+
+	attach = &packet->p_atch;
+	packet->p_operation = op;
+	attach->p_atch_file.cstr_length = file_length;
+	attach->p_atch_file.cstr_address = file_name;
+	attach->p_atch_dpb.cstr_length = dpb_length;
+	attach->p_atch_dpb.cstr_address = dpb;
+
+	if (!send_packet(rdb->rdb_port, packet, user_status)) {
+		disconnect(port);
+		return FALSE;
+	}
+
+/* Get response */
+
+	if (!receive_response(rdb, packet)) {
+		REMOTE_save_status_strings(user_status);
+		disconnect(port);
+		return FALSE;
+	}
+
+	rdb->rdb_id = packet->p_resp.p_resp_object;
+
+	return TRUE;
+}
+
+
+static RTR make_transaction( RDB rdb, USHORT id)
+{
+/**************************************
+ *
+ *	m a k e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a local transaction handle.
+ *
+ **************************************/
+	RTR transaction;
+
+	transaction = (RTR) ALLOC(type_rtr);
+	transaction->rtr_rdb = rdb;
+	transaction->rtr_id = id;
+	transaction->rtr_next = rdb->rdb_transactions;
+	rdb->rdb_transactions = transaction;
+	SET_OBJECT(rdb, transaction, id);
+
+	return transaction;
+}
+
+
+static STATUS mov_dsql_message(
+							   UCHAR * from_msg,
+							   FMT from_fmt, UCHAR * to_msg, FMT to_fmt)
+{
+/**************************************
+ *
+ *	m o v _ d s q l _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move data using formats.
+ *
+ **************************************/
+	DSC *from_desc, *to_desc, *end_desc, from, to;
+	TRDB trdb;
+	JMP_BUF env, *old_env;
+
+/* Set up in case we get a conversion error.
+   NOTE: The code below is not amenable to multi-threading. */
+
+	trdb = GET_THREAD_DATA;
+	old_env = trdb->trdb_setjmp;
+	trdb->trdb_setjmp = &env;
+
+	if (SETJMP(env)) {
+		trdb->trdb_setjmp = old_env;
+		return FAILURE;
+	}
+
+	if (!from_fmt || !to_fmt || from_fmt->fmt_count != to_fmt->fmt_count) {
+		move_error(gds_dsql_sqlda_err, gds_arg_end);
+		/* Msg 263 SQLDA missing or wrong number of variables */
+	}
+
+	from_desc = from_fmt->fmt_desc;
+	to_desc = to_fmt->fmt_desc;
+	end_desc = to_desc + to_fmt->fmt_count;
+	for (; to_desc < end_desc; from_desc++, to_desc++) {
+		from = *from_desc;
+		to = *to_desc;
+		from.dsc_address = from_msg + (SLONG) from.dsc_address;
+		to.dsc_address = to_msg + (SLONG) to.dsc_address;
+		CVT_move(&from, &to, (FPTR_VOID) move_error);
+	}
+
+	return SUCCESS;
+}
+
+
+static void mov_faster( SLONG * from, SLONG * to, USHORT length)
+{
+/**************************************
+ *
+ *	m o v _ f a s t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do a long move already aligned as quickly as possible.
+ *
+ **************************************/
+	USHORT l;
+	UCHAR *p, *q;
+
+	if (l = length >> 5) {
+		do {
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+			*to++ = *from++;
+		} while (--l);
+		length &= 31;
+	}
+
+	if (l = length >> 2)
+		do
+			*to++ = *from++;
+		while (--l);
+
+	if (l = length & 3) {
+		p = (UCHAR *) to;
+		q = (UCHAR *) from;
+		do
+			*p++ = *q++;
+		while (--l);
+	}
+}
+
+
+static void move_error( STATUS status, ...)
+{
+/**************************************
+ *
+ *	m o v e _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	A conversion error occurred.  Complain.
+ *
+ **************************************/
+	va_list ap;
+	TRDB trdb;
+	STATUS *p_args, *end_args;
+
+/* copy into an array any other arguments which may 
+   have been handed to us, then post the error.
+   N.B., one of the supplied errors should be a 'gds_arg_end' */
+
+	VA_START(ap, status);
+
+	trdb = GET_THREAD_DATA;
+	p_args = trdb->trdb_status_vector;
+	end_args = p_args + 20;
+
+	*p_args++ = gds_arg_gds;
+	*p_args++ = gds_random;
+	*p_args++ = gds_arg_string;
+	*p_args++ = (STATUS) "Dynamic SQL Error";
+	*p_args++ = gds_arg_gds;
+	*p_args++ = gds_sqlerr;
+	*p_args++ = gds_arg_number;
+	*p_args++ = -303;
+	*p_args++ = gds_arg_gds;
+	*p_args++ = status;
+
+/* NOTE: This loop could potentially set up a bad status vector */
+
+	while ((*p_args++ = (STATUS) va_arg(ap, STATUS)) && p_args < end_args);
+	if (p_args >= end_args)
+		end_args[-1] = gds_arg_end;
+
+	LONGJMP(*trdb->trdb_setjmp, trdb->trdb_status_vector[1]);
+}
+
+
+static void receive_after_start( RRQ request, USHORT msg_type)
+{
+/*****************************************
+ *
+ *	r e c e i v e _ a f t e r _ s t a r t
+ *
+ *****************************************
+ *
+ * Functional Description
+ *	Some opcodes, such as "start_and_send" automatically start the
+ *	cursor being started, under protcol 8 we then receive the first
+ *	batch of records without having to ask for them.
+ *
+ *	Note: if a network error occurs during this receive, we do not
+ *	recognize it in the "gds_start" API call that initiated this
+ *	action.  It will be stored with the queue of records for the
+ *	cursor that is being fetched.  This is not ideal - but compabile
+ *	with how the code worked prior to pipelining work done
+ *	1996-Jul-15 David Schnepper 
+ *
+ *****************************************/
+	RDB rdb;
+	MSG message, new_;
+	FMT format;
+	PORT port;
+	PACKET *packet;
+	rrq::rrq_repeat * tail;
+	STATUS tmp_status[20];
+
+/* Check to see if any data is waiting to happen */
+
+	rdb = request->rrq_rdb;
+	port = rdb->rdb_port;
+	packet = &rdb->rdb_packet;
+	tail = &request->rrq_rpt[msg_type];
+	message = tail->rrq_message;
+	format = tail->rrq_format;
+
+/* save the status vector in the request block, as the API call
+   which started this function already has a status (the result of
+   the isc_start or isc_start_and_receive) */
+
+	packet->p_resp.p_resp_status_vector = tmp_status;
+
+/* Swallow up data.  If a buffer isn't available, allocate another */
+
+	while (TRUE) {
+		message = tail->rrq_xdr;
+		if (message->msg_address) {
+			tail->rrq_xdr = new_ = (MSG) ALLOCV(type_msg, format->fmt_length);
+			new_->msg_next = message;
+			new_->msg_number = message->msg_number;
+
+#ifdef SCROLLABLE_CURSORS
+			/* link the new message in a doubly linked list to make it 
+			   easier to scroll back and forth through the records */
+
+			MSG prior = message->msg_prior;
+			message->msg_prior = new_;
+			prior->msg_next = new_;
+			new_->msg_prior = prior;
+#else
+			while (message->msg_next != new_->msg_next)
+				message = message->msg_next;
+			message->msg_next = new_;
+#endif
+		}
+
+		/* Note: not receive_packet */
+		if (!receive_packet_noqueue(rdb->rdb_port, packet, tmp_status)) {
+			memcpy(request->rrq_status_vector, tmp_status,
+				   sizeof(request->rrq_status_vector));
+			return;
+		}
+
+		/* Did an error response come back ? */
+		if (packet->p_operation != op_send) {
+			check_response(rdb, packet);
+			memcpy(request->rrq_status_vector, tmp_status,
+				   sizeof(request->rrq_status_vector));
+			return;
+		}
+
+		tail->rrq_msgs_waiting++;
+
+		/* Reached end of batch */
+
+		if (!packet->p_data.p_data_messages || (port->port_flags & PORT_rpc)) {
+			break;
+		}
+	}
+}
+
+
+static BOOLEAN receive_packet(
+							  PORT port,
+							  PACKET * packet, STATUS * user_status)
+{
+/**************************************
+ *
+ *	r e c e i v e _ p a c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clear the queue of any pending receives, then receive the
+ *	response to a sent request, blocking if necessary until
+ *	the response is present.
+ *
+ * Return codes:
+ *	TRUE  - no errors.
+ *	FALSE - Network error occured, error code in user_status 
+ *
+ **************************************/
+
+/* Must clear the wire of any queued receives before fetching
+   the desired packet */
+
+	if (!clear_queue(port, user_status))
+		return FALSE;
+
+	return receive_packet_noqueue(port, packet, user_status);
+}
+
+
+static BOOLEAN receive_packet_noqueue(
+									  PORT port,
+									  PACKET * packet, STATUS * user_status)
+{
+/**************************************
+ *
+ *	r e c e i v e _ p a c k e t _ n o q u e u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a packet and check for a network
+ *	error on the receive.  
+ *	Note: SOME of the network lower level protocols
+ *	will set up a status vector when errors
+ *	occur, but other ones won't.
+ *	So this routine sets up an error result
+ *	for the vector prior to going into the
+ *	network layer.  Note that we can't
+ *	RESET the status vector as one thing
+ *	that can be received is a new status vector
+ *
+ *	See also cousin routine: send_packet, send_partial_packet
+ *
+ *	NOTE:  Error handling, specifically the difference between
+ *	user_status, rdb_status_vector, and p_resp_status_vector
+ *	is very hazy, muddled, confused, and much too repeatitive in
+ *	most cases.  A prime candidate for fixing up.
+ *	Basically, the reason receive_packet must have a status
+ *	vector passed in is that there ARE some cases where we will
+ *	receive multiple packets for a response (for instance in
+ *	batch mode of gds_receive).  So we throw away
+ *	intermediate status vectors.
+ *
+ * Return codes:
+ *	TRUE  - no errors.
+ *	FALSE - Network error occured, error code in user_status 
+ *
+ **************************************/
+
+	user_status[0] = gds_arg_gds;
+	user_status[1] = isc_net_read_err;
+	user_status[2] = gds_arg_end;
+
+	return port->receive(packet) ? TRUE : FALSE;
+}
+
+
+static BOOLEAN receive_queued_packet(struct trdb*	trdb,
+									 PORT		port,
+									 STATUS*	user_status, USHORT id)
+{
+/**************************************
+ *
+ *	r e c e i v e _ q u e u e d_ p a c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	We're marked as having pending receives on the
+ *	wire.  Grab the first pending receive and return.
+ * Return codes:
+ *	TRUE  - no errors.
+ *	FALSE - Network error occured, error code in user_status 
+ *
+ **************************************/
+	RMTQUE que;
+	BOOLEAN result;
+
+/* Trivial case, nothing pending on the wire */
+
+	if (!port->port_receive_rmtque)
+		return TRUE;
+
+/* Grab first queue entry */
+
+	que = port->port_receive_rmtque;
+
+/* Receive the data */
+
+	result = (que->rmtque_function) (trdb, port, que, user_status, id);
+
+/* Note: it is the rmtque_function's responsibility to dequeue the request */
+
+	return result;
+}
+
+
+static void enqueue_receive(
+							PORT port,
+							BOOLEAN(*fn) (struct trdb *, PORT,
+										  struct rmtque *, STATUS *, USHORT),
+RDB rdb, void *parm, void *parm1)
+{
+/**************************************
+ *
+ *	e n q u e u e _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	RMTQUE que, *queptr;
+
+	que = (RMTQUE) ALLOC(type_rmtque);
+
+/* Prepare a queue entry */
+
+	que->rmtque_next = NULL;
+	que->rmtque_function = fn;
+	que->rmtque_parm = parm;
+	que->rmtque_message = reinterpret_cast < rrq::rrq_repeat * >(parm1);
+	que->rmtque_rdb = rdb;
+
+/* Walk to the end of the current queue */
+
+	for (queptr = &port->port_receive_rmtque;
+		 *queptr; queptr = &(*queptr)->rmtque_next)
+		/* do nothing */ ;
+
+/* Add the new entry to the end of the queue */
+
+	*queptr = que;
+}
+
+
+static void dequeue_receive( PORT port)
+{
+/**************************************
+ *
+ *	d e q u e u e _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	RMTQUE que;
+
+/* Grab first queue entry & de-queue it*/
+
+	que = port->port_receive_rmtque;
+	port->port_receive_rmtque = que->rmtque_next;
+	que->rmtque_next = NULL;
+
+/* Add queue entry onto free queue */
+
+	ALLR_free(que);
+}
+
+
+static BOOLEAN receive_response( RDB rdb, PACKET * packet)
+{
+/**************************************
+ *
+ *	r e c e i v e _ r e s p o n s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check response to a remote call.
+ *
+ **************************************/
+
+	STATUS *status;
+
+	status = packet->p_resp.p_resp_status_vector = rdb->rdb_status_vector;
+
+	if (!receive_packet(rdb->rdb_port, packet, status))
+		return FALSE;
+
+	return check_response(rdb, packet);
+}
+
+
+static void release_blob( RBL blob)
+{
+/**************************************
+ *
+ *	r e l e a s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a blob block and friends.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	RBL *p;
+
+	transaction = blob->rbl_rtr;
+	rdb = blob->rbl_rdb;
+	SET_OBJECT(rdb, NULL, blob->rbl_id);
+
+	for (p = &transaction->rtr_blobs; *p; p = &(*p)->rbl_next)
+		if (*p == blob) {
+			*p = blob->rbl_next;
+			break;
+		}
+
+	if (blob->rbl_buffer != blob->rbl_data)
+		ALLR_RELEASE(blob->rbl_buffer);
+
+	ALLR_RELEASE(blob);
+}
+
+
+static void release_event( RVNT event)
+{
+/**************************************
+ *
+ *	r e l e a s e _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an event block.
+ *
+ **************************************/
+	RDB rdb;
+	RVNT *p;
+
+	rdb = event->rvnt_rdb;
+
+	for (p = &rdb->rdb_events; *p; p = &(*p)->rvnt_next)
+		if (*p == event) {
+			*p = event->rvnt_next;
+			break;
+		}
+
+	ALLR_RELEASE(event);
+}
+
+
+static BOOLEAN release_object( RDB rdb, P_OP op, USHORT id)
+{
+/**************************************
+ *
+ *	r e l e a s e _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Tell the server to zap an object.  This doesn't not necessary
+ *	release the object, but usually does.
+ *
+ **************************************/
+	PACKET *packet;
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op;
+	packet->p_rlse.p_rlse_object = id;
+
+	if (!send_packet(rdb->rdb_port, packet, rdb->rdb_status_vector))
+		return FALSE;
+
+	return receive_response(rdb, packet);
+}
+
+
+static void release_request( RRQ request)
+{
+/**************************************
+ *
+ *	r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request block and friends.
+ *
+ **************************************/
+	RDB rdb;
+
+	rdb = request->rrq_rdb;
+	SET_OBJECT(rdb, NULL, request->rrq_id);
+	REMOTE_release_request(request);
+}
+
+
+static void release_statement( RSR * statement)
+{
+/**************************************
+ *
+ *	r e l e a s e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a GDML or SQL statement block ?
+ *
+ **************************************/
+
+	if ((*statement)->rsr_bind_format)
+		ALLR_RELEASE((*statement)->rsr_bind_format);
+	if ((*statement)->rsr_user_select_format &&
+		(*statement)->rsr_user_select_format !=
+		(*statement)->rsr_select_format) ALLR_RELEASE((*statement)->
+													  rsr_user_select_format);
+	if ((*statement)->rsr_select_format)
+		ALLR_RELEASE((*statement)->rsr_select_format);
+
+	REMOTE_release_messages((*statement)->rsr_message);
+	ALLR_RELEASE((*statement));
+	(*statement) = NULL;
+}
+
+
+static void release_sql_request( RSR statement)
+{
+/**************************************
+ *
+ *	r e l e a s e _ s q l _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an SQL request block.
+ *
+ **************************************/
+	RDB rdb;
+	RSR *p;
+
+	rdb = statement->rsr_rdb;
+	SET_OBJECT(rdb, NULL, statement->rsr_id);
+
+	for (p = &rdb->rdb_sql_requests; *p; p = &(*p)->rsr_next)
+		if (*p == statement) {
+			*p = statement->rsr_next;
+			break;
+		}
+
+	release_statement(&statement);
+}
+
+
+static void release_transaction( RTR transaction)
+{
+/**************************************
+ *
+ *	r e l e a s e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a transaction block and friends.
+ *
+ **************************************/
+	RDB rdb;
+	RTR *p;
+
+	rdb = transaction->rtr_rdb;
+	SET_OBJECT(rdb, NULL, transaction->rtr_id);
+
+	for (p = &rdb->rdb_transactions; *p; p = &(*p)->rtr_next)
+		if (*p == transaction) {
+			*p = transaction->rtr_next;
+			break;
+		}
+
+	ALLR_RELEASE(transaction);
+}
+
+
+static STATUS return_success( RDB rdb)
+{
+/**************************************
+ *
+ *	r e t u r n _ s u c c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up status vector to reflect successful execution.
+ *
+ **************************************/
+	STATUS *p;
+
+	RESTORE_THREAD_DATA;
+
+	p = rdb->rdb_status_vector;
+
+/* If the status vector has not been initialized, then 
+   initilalize the status vector to indicate success.  
+   Else pass the status vector along at it stands.  */
+
+	if (p[0] != gds_arg_gds || p[1] != SUCCESS
+		|| (p[2] != gds_arg_end && p[2] != gds_arg_gds
+			&& p[2] != isc_arg_warning)) {
+		*p++ = gds_arg_gds;
+		*p++ = SUCCESS;
+		*p = gds_arg_end;
+	}
+
+	return SUCCESS;
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+static MSG scroll_cache(
+						STATUS * user_status,
+						struct trdb *trdb,
+						RRQ request,
+						PORT port,
+rrq::rrq_repeat * tail, USHORT * direction, ULONG * offset)
+{
+/**************************************
+ *
+ *	s c r o l l _ c a c h e
+ *
+ **************************************
+ *
+ * Functional description
+ *	
+ * Try to fetch the requested record from cache, if possible.  This algorithm depends 
+ * on all scrollable cursors being INSENSITIVE to database changes, so that absolute 
+ * record numbers within the result set will remain constant. 
+ *
+ *  1.  BOF Forward or EOF Backward:  Retain the record number of the offset from the 
+ *      beginning or end of the result set.  If we can figure out the relative offset 
+ *      from the absolute, then scroll to it.  If it's in cache, great, otherwise dump 
+ *      the cache and have the server scroll the correct number of records. 
+ *
+ *  2.  Forward or Backward:  Try to scroll the desired offset in cache.  If we  
+ *      scroll off the end of the cache, dump the cache and ask the server for a 
+ *      packetful of records.  
+ *
+ *  In the forward direction, assume X is the number of records cached. 
+ *  If offset <= X, scroll forward offset records.  If offset > X, 
+ *  dump the cache and send a message to the server to scroll forward (offset - X) 
+ *  records.  However, if the server last scrolled in the backward direction, 
+ *  ask the server to scroll forward (offset - X + C) records, where C is the 
+ *  total number of records in cache. 
+ *
+ *  In the backward direction, do the same thing but in reverse.
+ *
+ **************************************/
+	MSG message;
+
+/* if we are to continue in the current direction, set direction to 
+   the last direction scrolled; then depending on the direction asked 
+   for, save the last direction asked for by the next layer above */
+
+	if (*direction == blr_continue) {
+		if (tail->rrq_flags & RRQ_last_backward)
+			*direction = blr_backward;
+		else
+			*direction = blr_forward;
+	}
+
+	if (*direction == blr_forward || *direction == blr_bof_forward)
+		tail->rrq_flags &= ~RRQ_last_backward;
+	else
+		tail->rrq_flags |= RRQ_last_backward;
+
+/* set to the last message returned to the higher level; 
+   if none, set to the first message in cache */
+
+	if (!(message = tail->rrq_last)) {
+		message = tail->rrq_message;
+
+		/* if the first record hasn't been returned yet and we are doing a relative seek 
+		   forward (or backward when caching backwards), we effectively have just seeked 
+		   forward one by positioning to the first record, so decrement the offset by one */
+
+		if (*offset &&
+			((*direction == blr_forward) && !(tail->rrq_flags & RRQ_backward))
+			|| ((*direction == blr_backward)
+				&& (tail->rrq_flags & RRQ_backward))) (*offset)--;
+	}
+
+/* if we are scrolling from BOF and the cache was started from EOF 
+   (or vice versa), the cache is unusable. */
+
+	if (
+		(*direction == blr_bof_forward
+		 && (tail->rrq_flags & RRQ_absolute_backward))
+		|| (*direction == blr_eof_backward
+			&& !(tail->
+				 rrq_flags & RRQ_absolute_backward))) return dump_cache(port,
+																		user_status,
+																		tail);
+
+/* if we are going to an absolute position, see if we can find that position 
+   in cache, otherwise change to a relative seek from our former position */
+
+	if (*direction == blr_bof_forward || *direction == blr_eof_backward) {
+		/* if offset is before our current position, scroll backwards  
+		   through the cache to see if we can find it */
+
+		if (*offset < message->msg_absolute)
+			for (;;) {
+				if (message == tail->rrq_xdr || !message->msg_address) {
+					/* if the cache was formed in the backward direction, see if 
+					   there are any packets pending which might contain the record */
+
+					if ((tail->rrq_flags & RRQ_backward)
+						&& (tail->rrq_rows_pending > 0)) {
+						tail->rrq_message = message;
+						while (!message->msg_address
+							   && !request->rrq_status_vector[1])
+							if (!receive_queued_packet
+								(trdb, port, user_status, request->rrq_id))
+								return NULL;
+					}
+
+					if ((message == tail->rrq_xdr) || !message->msg_address)
+						return dump_cache(port, user_status, tail);
+				}
+				else
+					message = message->msg_prior;
+
+				if (*offset == message->msg_absolute)
+					return message;
+			}
+
+		/* convert the absolute to relative, and prepare to scroll forward or 
+		   back to look for the record */
+
+		*offset -= message->msg_absolute;
+		if (*direction == blr_bof_forward)
+			*direction = blr_forward;
+		else
+			*direction = blr_backward;
+	}
+
+	for (; *offset; (*offset)--) {
+		/* if the record was not found, see if there are any packets pending 
+		   which might contain the record; otherwise dump the cache */
+
+		if (!message->msg_address || message == tail->rrq_xdr)
+		{
+			if (tail->rrq_rows_pending > 0)
+			{
+				if (((*direction == blr_forward) &&
+					!(tail->rrq_flags & RRQ_backward)) ||
+					((*direction == blr_backward) &&
+					(tail->rrq_flags & RRQ_backward)))
+				{
+					tail->rrq_message = message;
+					while (!message->msg_address &&
+							!request->rrq_status_vector[1])
+					{
+						if (!receive_queued_packet(trdb,
+													port,
+													user_status,
+													request->rrq_id))
+						{
+							return NULL;
+						}
+					}
+				}
+			}
+
+			if ((message == tail->rrq_xdr) || !message->msg_address)
+			{
+				return dump_cache(port, user_status, tail);
+			}
+		}
+
+		/* step one record forward or back, depending on whether the cache was 
+		   initially formed in the forward or backward direction */
+
+		if (((*direction == blr_forward) &&
+			!(tail->rrq_flags & RRQ_backward)) ||
+			((*direction == blr_backward) &&
+			(tail->rrq_flags & RRQ_backward)))
+		{
+			message = message->msg_next;
+		}
+		else
+		{
+			message = message->msg_prior;
+		}
+	}
+
+	return message;
+}
+#endif
+
+
+static STATUS send_and_receive(RDB rdb, PACKET* packet, STATUS* user_status)
+{
+/**************************************
+ *
+ *	s e n d _ a n d _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet, check status, receive a packet, and check status.
+ *
+ **************************************/
+
+	if (!send_packet(rdb->rdb_port, packet, user_status))
+	{
+		return user_status[1];
+	}
+
+	if (!receive_response(rdb, packet))
+	{
+		return user_status[1];
+	}
+
+	return SUCCESS;
+}
+
+
+static STATUS send_blob(STATUS*	user_status,
+						RBL		blob,
+						USHORT	buffer_length,
+						UCHAR*	buffer)
+{
+/**************************************
+ *
+ *	s e n d _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Actually send blob data (which might be buffered)
+ *
+ **************************************/
+	RDB		rdb;
+	PACKET*	packet;
+	P_SGMT*	segment;
+	CSTRING	temp;
+
+	rdb = blob->rbl_rdb;
+	packet = &rdb->rdb_packet;
+	packet->p_operation = op_put_segment;
+
+/* If we aren't passed a buffer address, this is a batch send.  Pick up the
+   address and length from the blob buffer and blast away */
+
+	if (!buffer)
+	{
+		buffer = blob->rbl_buffer;
+		buffer_length = blob->rbl_ptr - buffer;
+		blob->rbl_ptr = buffer;
+		packet->p_operation = op_batch_segments;
+	}
+
+	segment = &packet->p_sgmt;
+	temp = segment->p_sgmt_segment;
+	segment->p_sgmt_blob = blob->rbl_id;
+	segment->p_sgmt_segment.cstr_length = buffer_length;
+	segment->p_sgmt_segment.cstr_address = buffer;
+	segment->p_sgmt_length = buffer_length;
+
+	if (!send_packet(rdb->rdb_port, packet, user_status))
+	{
+		return user_status[1];
+	}
+
+	segment->p_sgmt_segment = temp;
+
+/* Set up for the response packet. */
+
+	if (!receive_response(rdb, packet))
+	{
+		return user_status[1];
+	}
+
+	return SUCCESS;
+}
+
+
+static void send_cancel_event(RVNT event)
+{
+/**************************************
+ *
+ *	s e n d _ c a n c e l _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a cancel event opcode to a remote
+ *	server.
+ *
+ **************************************/
+
+/* Look up the event's database, port and packet */
+
+	RDB		rdb = event->rvnt_rdb;
+	PACKET*	packet = &rdb->rdb_packet;
+
+/* 
+ Set the various parameters for the packet:
+ remote operation to perform, which database,
+ and which event.
+*/
+
+	packet->p_operation = op_cancel_events;
+	packet->p_event.p_event_database = rdb->rdb_id;
+	packet->p_event.p_event_rid = event->rvnt_id;
+
+/* Send the packet, and if that worked, get a response */
+
+	if (send_packet(rdb->rdb_port, packet, rdb->rdb_status_vector))
+	{
+		(void) receive_response(rdb, packet);
+	}
+
+/*
+ If the event has never been fired, fire it off with a length of 0.
+ Note: it is job of person being notified to check that counts
+ actually changed and that they were not woken up because of
+ server death.
+*/
+
+	if (event->rvnt_id)
+	{
+		THREAD_EXIT;
+		(*event->rvnt_ast)(event->rvnt_arg, (SSHORT) 0, (UCHAR*) NULL);
+		THREAD_ENTER;
+		event->rvnt_id = 0;
+	}
+}
+
+
+static BOOLEAN send_packet(PORT port, PACKET* packet, STATUS* user_status)
+{
+/**************************************
+ *
+ *	s e n d _ p a c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet and check for a network error
+ *	on the send.
+ *	Make up a status vector for any error.
+ *	Note: SOME of the network lower level protocols
+ *	will set up a status vector when errors
+ *	occur, but other ones won't.
+ *	So this routine sets up an error result
+ *	for the vector and resets it to SUCCESS
+ *	if the packet send occured.
+ *
+ *	See also cousin routine: receive_packet
+ *
+ **************************************/
+
+	user_status[0] = gds_arg_gds;
+	user_status[1] = isc_net_write_err;
+	user_status[2] = gds_arg_end;
+
+	return port->send(packet) ? TRUE : FALSE;
+}
+
+
+static BOOLEAN send_partial_packet(PORT		port,
+								   PACKET*	packet,
+								   STATUS*	user_status)
+{
+/**************************************
+ *
+ *	s e n d _ p a r t i a l _ p a c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet and check for a network error
+ *	on the send.
+ *	Make up a status vector for any error.
+ *	Note: SOME of the network lower level protocols
+ *	will set up a status vector when errors
+ *	occur, but other ones won't.
+ *	So this routine sets up an error result
+ *	for the vector and resets it to SUCCESS
+ *	if the packet send occured.
+ *
+ *	See also cousin routine: receive_packet, send_packet
+ *
+ **************************************/
+
+	user_status[0] = gds_arg_gds;
+	user_status[1] = isc_net_write_err;
+	user_status[2] = gds_arg_end;
+
+	if (!port->send_partial(packet)) {
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+#ifdef MULTI_THREAD
+static void server_death(PORT port)
+{
+/**************************************
+ *
+ *	s e r v e r _ d e a t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Received "EOF" from remote server
+ *	Cleanup events.
+ *
+ **************************************/
+	RDB rdb;
+	RVNT event;
+
+	THREAD_ENTER;
+	rdb = port->port_context;
+
+	if (!(port->port_flags & PORT_disconnect))
+	{
+		for (event = rdb->rdb_events; event; event = event->rvnt_next)
+		{
+			if (event->rvnt_id)
+			{
+				THREAD_EXIT;
+				(*event->rvnt_ast) (event->rvnt_arg, (SSHORT) 0, (UCHAR *) NULL);
+				THREAD_ENTER;
+				event->rvnt_id = 0;
+			}
+		}
+	}
+
+	port->disconnect();
+	THREAD_EXIT;
+}
+#endif
+
+
+static void stuff_vax_integer(UCHAR* ptr, SLONG value, USHORT length)
+{
+/**************************************
+ *
+ *	s t u f f _ v a x _ i n t e g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move an integer value into network format.
+ *
+ **************************************/
+
+	while (length--) {
+		*ptr++ = value % 256;
+		value = value >> 8;
+	}
+}
+
+
+static STATUS svcstart(STATUS*	user_status,
+					   RDB		rdb,
+					   P_OP		operation,
+					   USHORT	object,
+					   USHORT	incarnation,
+					   USHORT	item_length,
+					   SCHAR*	items)
+ {
+/**************************************
+ *
+ *	s v c s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Instruct the server to start a service
+ *
+ **************************************/
+	PACKET *packet;
+	P_INFO *information;
+	P_RESP *response;
+	CSTRING temp;
+
+/* Build the primary packet to get the operation started. */
+
+	packet = &rdb->rdb_packet;
+	packet->p_operation = operation;
+	information = &packet->p_info;
+	information->p_info_object = object;
+	information->p_info_incarnation = incarnation;
+	information->p_info_items.cstr_length = item_length;
+	information->p_info_items.cstr_address = (UCHAR *) items;
+	information->p_info_buffer_length = item_length;
+
+/* Assume the result will be successful */
+
+	assert(user_status == rdb->rdb_status_vector);
+	user_status[0] = gds_arg_gds;
+	user_status[1] = SUCCESS;
+	user_status[2] = gds_arg_end;
+
+	if (!send_packet(rdb->rdb_port, packet, user_status))
+		return user_status[1];
+
+/* Set up for the response packet. */
+
+	response = &packet->p_resp;
+	temp = response->p_resp_data;
+
+	if (!receive_response(rdb, packet)) {
+		response->p_resp_data = temp;
+		return user_status[1];
+	}
+
+	response->p_resp_data = temp;
+
+	return rdb->rdb_status_vector[1];
+}
+
+
+static STATUS unsupported(STATUS* user_status)
+{
+/**************************************
+ *
+ *	u n s u p p o r t e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	No_entrypoint is called if there is not entrypoint for a given routine.
+ *
+ **************************************/
+
+	RESTORE_THREAD_DATA;
+
+	*user_status++ = gds_arg_gds;
+	*user_status++ = isc_wish_list;
+	*user_status = gds_arg_end;
+
+	return gds_unavailable;
+}
+
+
+static void zap_packet(PACKET* packet)
+{
+/**************************************
+ *
+ *	z a p _ p a c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zero out a packet block.
+ *
+ **************************************/
+
+	memset(packet, 0, sizeof(struct packet));
+}
+
+} // extern "C"
diff --git a/src/remote/ipc.cpp b/src/remote/ipc.cpp
new file mode 100644
index 0000000000..e12567ba7a
--- /dev/null
+++ b/src/remote/ipc.cpp
@@ -0,0 +1,2047 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		ipc.c
+ *	DESCRIPTION:	TCP/NETipc Communications module
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <mpe.h>
+#include "../remote/remote.h"
+#include "../remote/ipc.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/thd.h"
+#include "../remote/ipc_proto.h"
+#include "../remote/remot_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+
+#define RECVTIME	3000
+#define INFINITETIME	0
+
+#define RPM_IGNORE	31			/* Ignore prior DSLINE command, bit 0 */
+#define RPM_1SESSION	1		/* Accommodate multiple sessions, bit 30 */
+#define RPM_NOPRIV	19			/* Load program in non-priv mode, bit 12 */
+
+#define PROTOCOL_NAME	"gds_db"
+#define PROXY_FILE	"proxy.pub"
+#define SERVER_NAME	" gdsrserv.pub.starbase"
+
+#define MAX_PTYPE	ptype_batch_send
+#define MAX_DATA	1400
+#define BUFFER_SIZE	MAX_DATA
+#define MAX_SEQUENCE	256
+#define MAX_PACKETLEN	2048
+#define MAXPATHLEN	64
+#define MAXHOSTLEN	64
+#define MAXLOGINLEN	27
+#define RPM_STRLEN	6
+
+#define OPT_SIZE(entries,datalength)	(4+8*entries+datalength+1)/2
+
+#ifdef PRIVMODE_CODE
+#define GET_PRIVMODE	if (privmode_flag < 0) privmode_flag = ISC_check_privmode();\
+			if (privmode_flag > 0) GETPRIVMODE();
+#define GET_USERMODE	if (privmode_flag > 1) GETUSERMODE();
+#else
+#define GET_PRIVMODE
+#define GET_USERMODE
+#endif
+
+
+static int accept_connection(PORT, P_CNCT *);
+static PORT alloc_port(PORT);
+static void atoh(SCHAR *, SSHORT, SCHAR *);
+static PORT aux_connect(PORT, PACKET *, XDR_INT(*)());
+static PORT aux_request(PORT, PACKET *);
+static void bcopy(SCHAR *, SCHAR *, int);
+static void bzero(SCHAR *, int);
+static int check_proxy(PORT, TEXT *, TEXT *, TEXT *);
+static void cleanup_port(PORT);
+static PORT client_connect(TEXT *, USHORT, SSHORT, PORT, PACKET *);
+static PORT connect(PORT, PORT);
+static void disconnect(PORT);
+static void htoa(SCHAR *, SCHAR *, SSHORT);
+static XDR_INT ipc_destroy(XDR *);
+static int ipc_error(PORT, TEXT *, int);
+static bool_t ipc_getbytes(XDR *, SCHAR *, int);
+static bool_t ipc_getlong(XDR *, SLONG *);
+static u_int ipc_getpostn(XDR *);
+static int ipc_handler(SSHORT, void *);
+static caddr_t ipc_inline(XDR *, u_int);
+static bool_t ipc_putbytes(XDR *, SCHAR *, int);
+static bool_t ipc_putlong(XDR *, SLONG *);
+static bool_t ipc_read(XDR *);
+static bool_t ipc_setpostn(XDR *, u_int);
+static bool_t ipc_write(XDR *, bool_t);
+static void packet_print(TEXT *, UCHAR *, int);
+static int packet_receive(PORT, UCHAR *, SSHORT, SSHORT *);
+static int packet_send(PORT, UCHAR *, SSHORT);
+static PORT receive(PORT, PACKET *);
+static int send(PORT, PACKET *);
+static PORT server_connect(USHORT, PORT, int);
+static int xdripc_create(XDR *, PORT, UCHAR *, USHORT, enum xdr_op);
+static int xdripc_endofrecord(XDR *, bool_t);
+static void zap_packet(PACKET *);
+
+static xdr_t::xdr_ops ipc_ops = {
+	ipc_getlong,
+	ipc_putlong,
+	ipc_getbytes,
+	ipc_putbytes,
+	ipc_getpostn,
+	ipc_setpostn,
+	ipc_inline,
+	ipc_destroy
+};
+
+static PORT async_list;
+static SSHORT privmode_flag = -1;
+static SCHAR hex[] = "0123456789ABCDEF";
+
+
+PORT IPC_analyze(
+				 TEXT * file_name,
+				 SSHORT * file_length,
+				 STATUS * status_vector, TEXT * node_name, SSHORT uv_flag)
+{
+/**************************************
+ *
+ *	I P C _ a n a l y z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	File_name is on node_name.
+ *	Establish an external connection to node_name.
+ *
+ *	If a connection is established, return a port block, otherwise
+ *	return NULL.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	PACKET *packet;
+	P_CNCT *connect;
+	P_ATCH *attach;
+	SSHORT user_length;
+	TEXT *p, user_id[128], buffer[64];
+	p_cnct::p_cnct_repeat * protocol;
+
+	*file_length = strlen(file_name);
+
+/* We need to establish a connection to a remote server.  Allocate the necessary
+   blocks and get ready to go. */
+
+	rdb = (RDB) ALLOC(type_rdb);
+	packet = &rdb->rdb_packet;
+
+/* Pick up some user identification information */
+
+	user_id[0] = CNCT_user;
+	p = user_id + 2;
+	ISC_get_user(p, 0, 0, 0, 0, 0, 0);
+	user_id[1] = strlen(p);
+
+	for (; *p; p++)
+		if (*p >= 'A' && *p <= 'Z')
+			*p = *p - 'A' + 'a';
+
+	*p++ = CNCT_host;
+	p++;
+	ISC_get_host(p, user_id + sizeof(user_id) - p);
+	p[-1] = strlen(p);
+
+	for (; *p; p++)
+		if (*p >= 'A' && *p <= 'Z')
+			*p = *p - 'A' + 'a';
+
+	if (uv_flag) {
+		*p++ = CNCT_user_verification;
+		*p++ = 0;
+	}
+
+	user_length = p - user_id;
+
+/* Establish connection to server */
+
+	connect = &packet->p_cnct;
+	packet->p_operation = op_connect;
+	connect->p_cnct_operation = op_attach;
+	connect->p_cnct_cversion = CONNECT_VERSION2;
+	connect->p_cnct_client = ARCHITECTURE;
+	connect->p_cnct_file.cstr_length = *file_length;
+	connect->p_cnct_file.cstr_address = (UCHAR *) file_name;
+
+/* Note: prior to V3.1E a recievers could not in truth handle more
+   then 5 protocol descriptions, so we try them in chunks of 5 or less */
+
+/* If we want user verification, we can't speak anything less than version 7 */
+
+#ifdef SCROLLABLE_CURSORS
+	connect->p_cnct_count = 6;
+#else
+	connect->p_cnct_count = 4;
+#endif
+	connect->p_cnct_user_id.cstr_length = user_length;
+	connect->p_cnct_user_id.cstr_address = (UCHAR *) user_id;
+
+	protocol = connect->p_cnct_versions;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION8;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 2;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION8;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 3;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION10;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 4;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION10;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 5;
+
+#ifdef SCROLLABLE_CURSORS
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_SCROLLABLE_CURSORS;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 6;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_SCROLLABLE_CURSORS;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 7;
+#endif
+
+/* If we can't talk to a server, punt.  Let somebody else generate
+   an error. */
+
+	if (!(port = IPC_connect(node_name, packet, status_vector, FALSE, 0))) {
+		ALLR_release(rdb);
+		return NULL;
+	}
+
+/* Get response packet from server. */
+
+	rdb->rdb_port = port;
+	port->port_context = rdb;
+	port->receive(packet);
+
+	if (packet->p_operation == op_reject && !uv_flag) {
+		disconnect(port);
+		packet->p_operation = op_connect;
+		connect->p_cnct_operation = op_attach;
+		connect->p_cnct_cversion = CONNECT_VERSION2;
+		connect->p_cnct_client = ARCHITECTURE;
+		connect->p_cnct_file.cstr_length = *file_length;
+		connect->p_cnct_file.cstr_address = (UCHAR *) file_name;
+
+		/* try again with next set of known protocols */
+
+		connect->p_cnct_count = 4;
+		connect->p_cnct_user_id.cstr_length = user_length;
+		connect->p_cnct_user_id.cstr_address = (UCHAR *) user_id;
+
+		protocol = connect->p_cnct_versions;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION6;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = MAX_PTYPE;
+		protocol->p_cnct_weight = 2;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION6;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = MAX_PTYPE;
+		protocol->p_cnct_weight = 3;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION7;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = MAX_PTYPE;
+		protocol->p_cnct_weight = 4;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION7;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = MAX_PTYPE;
+		protocol->p_cnct_weight = 5;
+
+		if (!(port = IPC_connect(node_name, packet, status_vector, FALSE, 0))) {
+			ALLR_release(rdb);
+			return NULL;
+		}
+
+		/* Get response packet from server. */
+
+		rdb->rdb_port = port;
+		port->port_context = rdb;
+		port->receive(packet);
+	}
+
+	if (packet->p_operation == op_reject && !uv_flag) {
+		disconnect(port);
+		packet->p_operation = op_connect;
+		connect->p_cnct_operation = op_attach;
+		connect->p_cnct_cversion = CONNECT_VERSION2;
+		connect->p_cnct_client = ARCHITECTURE;
+		connect->p_cnct_file.cstr_length = *file_length;
+		connect->p_cnct_file.cstr_address = (UCHAR *) file_name;
+
+		/* try again with next set of known protocols */
+
+		connect->p_cnct_count = 4;
+		connect->p_cnct_user_id.cstr_length = user_length;
+		connect->p_cnct_user_id.cstr_address = (UCHAR *) user_id;
+
+		protocol = connect->p_cnct_versions;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION3;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 2;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION3;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 3;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION4;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 4;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION4;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 5;
+
+		if (!(port = IPC_connect(node_name, packet, status_vector, FALSE, 0))) {
+			ALLR_release(rdb);
+			return NULL;
+		}
+
+		/* Get response packet from server. */
+
+		rdb->rdb_port = port;
+		port->port_context = rdb;
+		port->receive(packet);
+	}
+
+	if (packet->p_operation != op_accept) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__connect_reject;
+		*status_vector++ = 0;
+		disconnect(port);
+		return NULL;
+	}
+
+	port->port_protocol = packet->p_acpt.p_acpt_version;
+
+/* once we've decided on a protocol, concatenate the version
+   string to reflect it... */
+
+	sprintf(buffer, "%sP%d", port->port_version->str_data,
+			port->port_protocol);
+	ALLR_free(port->port_version);
+	port->port_version = REMOTE_make_string(buffer);
+
+	if (packet->p_acpt.p_acpt_architecture == ARCHITECTURE)
+		port->port_flags |= PORT_symmetric;
+
+	if (packet->p_acpt.p_acpt_type == ptype_rpc)
+		port->port_flags |= PORT_rpc;
+
+	if (packet->p_acpt.p_acpt_type != ptype_out_of_band)
+		port->port_flags |= PORT_no_oob;
+
+	return port;
+}
+
+
+PORT IPC_connect(TEXT * name,
+				 PACKET * packet, STATUS * status_vector, int flag)
+{
+/**************************************
+ *
+ *	I P C _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish half of a communication link.  If a connect packet is given,
+ *	the connection is on behalf of a remote interface.  Otherwise it
+ *	is for a server process.
+ *
+ **************************************/
+	PORT port;
+	TEXT *p;
+	SLONG flags, ipcresult;
+	SLONG itemnums[6], items[6];
+	USHORT gds_socket;
+
+/* Check for enviroment variables first */
+
+	HPCIGETVAR("GDS_DB", &ipcresult, 1, items, 13, &flags);
+	if (!ipcresult && flags == 1)
+		gds_socket = items[0];
+	else
+		gds_socket = GDS_SOCKET;
+
+	port = alloc_port(0);
+	port->port_status_vector = status_vector;
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+
+/* Store host name */
+
+	if (name && *name) {
+		if (port->port_connection)
+			ALLR_free(port->port_connection);
+		port->port_connection = REMOTE_make_string(name);
+	}
+	else
+		name = port->port_host->str_data;
+
+/* If we're a host, just make the connection.  Otherwise
+   when we're a server, set up our half and return */
+
+	if (packet)
+		return client_connect(name, gds_socket, RECVTIME, port, packet);
+	else
+		return server_connect(gds_socket, port, flag);
+}
+
+
+PORT IPC_server(SCHAR * infostr)
+{
+/**************************************
+ *
+ *	I P C _ s e r v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We have been spawned by a master server with a connection
+ *	established.  Set up port block with the appropriate socket.
+ *
+ **************************************/
+	PORT port;
+	TEXT rpmstring[RPM_STRLEN], vcname[IPC_GIVELEN];
+	SLONG vcdesc, ipcresult, ipcflags, length;
+
+	ipcflags = 0;
+	htoa(infostr, vcname, sizeof(vcname));
+	IPCGET(vcname, IPC_GIVELEN, &ipcflags, &vcdesc, &ipcresult);
+	if (ipcresult) {
+		gds__log("Remote server call to IPCGET failed with result %ld",
+				 ipcresult);
+		return 0;
+	}
+
+	port = alloc_port(0);
+	port->port_server_flags |= SRVR_server;
+	port->port_handle = (HANDLE) vcdesc;
+	port->port_state = state_active;
+
+	length = RPM_STRLEN;
+	RPMGETSTRING(rpmstring, &length, &ipcresult);
+	port->port_protocol = atoi(rpmstring);
+
+	length = RPM_STRLEN;
+	RPMGETSTRING(rpmstring, &length, &ipcresult);
+	port->port_flags = atoi(rpmstring);
+
+	return port;
+}
+
+
+static int accept_connection( PORT port, P_CNCT * connect)
+{
+/**************************************
+ *
+ *	a c c e p t _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept an incoming request for connection.  This is purely a lower
+ *	level handshaking function, and does not constitute the server
+ *	response for protocol selection.
+ *
+ **************************************/
+	PACKET ack, *packet;
+	P_ACPT *accept;
+	P_ARCH architecture;
+	USHORT weight, version, type, create_flags;
+	TEXT name[MAXLOGINLEN], password[MAXLOGINLEN], node[MAXHOSTLEN],
+		formal_prog[MAXPATHLEN], vcname[IPC_GIVELEN], pd[16], *id, *end, *p,
+		infostr[2 * IPC_GIVELEN], portinfo[RPM_STRLEN];
+	STR string;
+	SLONG ipcresult, length, l;
+	SSHORT infolen, status, user_verification,
+		rpmopt[OPT_SIZE
+			   (5, 2 * IPC_GIVELEN + 2 * sizeof(SSHORT) + 2 * RPM_STRLEN)];
+	ULONG flags;
+	p_cnct::p_cnct_repeat * protocol, *endp;
+
+/* Default account to "guest" */
+
+	strcpy(name, "guest");
+	password[0] = 0;
+
+/* Pick up account, password, and node if given */
+
+	id = (TEXT *) connect->p_cnct_user_id.cstr_address;
+	end = id + connect->p_cnct_user_id.cstr_length;
+
+	user_verification = 0;
+	while (id < end)
+		switch (*id++) {
+		case CNCT_user:
+			if (port->port_user_name)
+				ALLR_free(port->port_user_name);
+			length = l = *id++;
+			port->port_user_name = string =
+				(STR) ALLOCV(type_str, (int) length);
+			string->str_length = length;
+			if (length) {
+				p = (TEXT *) string->str_data;
+				do
+					*p++ = *id++;
+				while (--l);
+			}
+			strncpy(name, string->str_data, length);
+			name[length] = 0;
+			break;
+
+		case CNCT_passwd:
+			p = password;
+			if (length = *id++)
+				do
+					*p++ = *id++;
+				while (--length);
+			*p = 0;
+			break;
+
+		case CNCT_host:
+			p = node;
+			if (length = *id++)
+				do
+					*p++ = *id++;
+				while (--length);
+			*p = 0;
+			break;
+
+		case CNCT_user_verification:
+			user_verification = 1;
+			id++;
+			break;
+
+		default:
+			id += *id + 1;
+		}
+
+	if (port->port_server_flags & SRVR_debug)
+		return TRUE;
+
+/* Taken from server.c - main XL server must accept connection for child 
+   and then pass connection info during RPMCREATE. */
+
+	zap_packet(&ack);
+	packet = &ack;
+	packet->p_operation = op_reject;
+	accept = &packet->p_acpt;
+	weight = 0;
+
+/* Select the most appropriate protocol (this will get smarter) */
+
+	protocol = connect->p_cnct_versions;
+
+	for (endp = protocol + connect->p_cnct_count; protocol < endp; protocol++)
+		if ((protocol->p_cnct_version == PROTOCOL_VERSION3 ||
+			 protocol->p_cnct_version == PROTOCOL_VERSION4 ||
+			 protocol->p_cnct_version == PROTOCOL_VERSION5 ||
+			 protocol->p_cnct_version == PROTOCOL_VERSION6 ||
+			 protocol->p_cnct_version == PROTOCOL_VERSION7 ||
+			 protocol->p_cnct_version == PROTOCOL_VERSION8) &&
+			(protocol->p_cnct_architecture == arch_generic ||
+			 protocol->p_cnct_architecture == ARCHITECTURE) &&
+			protocol->p_cnct_weight >= weight) {
+			weight = protocol->p_cnct_weight;
+			version = protocol->p_cnct_version;
+			architecture = protocol->p_cnct_architecture;
+			type = MIN(protocol->p_cnct_max_type, ptype_out_of_band);
+			packet->p_operation = op_accept;
+		}
+
+/*  send the news and, if accepting, hand off to a child. */
+
+	accept->p_acpt_version = port->port_protocol = version;
+	accept->p_acpt_architecture = architecture;
+	accept->p_acpt_type = type;
+
+	if (architecture == ARCHITECTURE)
+		port->port_flags |= PORT_symmetric;
+
+	if (type == ptype_rpc)
+		port->port_flags |= PORT_rpc;
+
+	if (type != ptype_out_of_band)
+		port->port_flags |= PORT_no_oob;
+
+	if (!check_proxy(port, node, name, password))
+		packet->p_operation = op_reject;
+
+	port->send(packet);
+
+	if (packet->p_operation != op_accept) {
+		IPCSHUTDOWN(port->port_handle);
+		port->port_handle = 0;
+		port->port_state = state_pending;
+		return FALSE;
+	}
+
+/* Put the connection to client on hold - child will pick up with IPCGET. */
+
+	flags = 0;
+	IPCGIVE(port->port_handle, vcname, 0, &flags, &ipcresult);
+	port->port_handle = 0;
+	port->port_state = state_pending;
+	if (ipcresult) {
+		gds__log("IPCGIVE failed with error %ld", ipcresult);
+		IPCSHUTDOWN(port->port_handle);
+		return FALSE;
+	}
+
+	atoh(vcname, sizeof(vcname), infostr);
+
+	HPMYPROGRAM(formal_prog, &ipcresult, &length);
+	if (ipcresult || !length)
+		strcpy(formal_prog, SERVER_NAME);
+	else
+		formal_prog[--length] = 0;
+
+/* Create an option array for RPMCREATE.  Passing connection name,
+   port protocol and flags to child. */
+
+	INITOPT(rpmopt, 5, &status);
+	ADDOPT(rpmopt, 0, RPM_INFOSTR, sizeof(infostr), infostr, &status);
+	infolen = sizeof(infostr);
+	ADDOPT(rpmopt, 1, RPM_INFOLEN, sizeof(SSHORT), &infolen, &status);
+	sprintf(portinfo, "%d", port->port_protocol);
+	ADDOPT(rpmopt, 2, RPM_STROPT, RPM_STRLEN, portinfo, &status);
+	sprintf(portinfo, "%d", port->port_flags);
+	ADDOPT(rpmopt, 3, RPM_STROPT, RPM_STRLEN, portinfo, &status);
+	create_flags = 1 << RPM_NOPRIV;
+	ADDOPT(rpmopt, 4, RPM_CREATE, sizeof(SSHORT), &create_flags, &status);
+
+	flags = (1 << RPM_IGNORE) | (1 << RPM_1SESSION);
+
+	RPMCREATE(&formal_prog[1], strlen(&formal_prog[1]),
+			  port->port_host->str_data, strlen(port->port_host->str_data),
+			  name, strlen(name), password, strlen(password),
+			  &flags, rpmopt, pd, &ipcresult);
+
+	if (ipcresult) {
+		gds__log("RPMCREATE failed with error %ld", ipcresult);
+		flags = 0;
+		IPCGET(vcname, IPC_GIVELEN, &flags, &port->port_handle, &ipcresult);
+		IPCSHUTDOWN(port->port_handle);
+		port->port_handle = 0;
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+static PORT alloc_port( PORT parent)
+{
+/**************************************
+ *
+ *	a l l o c _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a port block, link it in to parent (if there is a parent),
+ *	and initialize input and output XDR streams.
+ *	On XL, neither multi-threaded nor multi-client. Parent is merely
+ *	the main port of a connection when alloc'ing an async port.
+ *
+ **************************************/
+	PORT port;
+	UCHAR buffer[MAXHOSTLEN];
+
+	port = (PORT) ALLOCV(type_port, BUFFER_SIZE * 2);
+	port->port_type = port_ipc;
+	port->port_state = state_pending;
+
+	if (parent) {
+		port->port_parent = parent;
+		port->port_host = REMOTE_make_string(parent->port_host->str_data);
+		port->port_connection =
+			REMOTE_make_string(parent->port_host->str_data);
+		port->port_version =
+			REMOTE_make_string(parent->port_version->str_data);
+		port->port_server = parent->port_server;
+	}
+	else {
+		ISC_get_host(buffer, sizeof(buffer));
+		port->port_host = REMOTE_make_string(buffer);
+		port->port_connection = REMOTE_make_string(buffer);
+		sprintf(buffer, "tcp (%s)", port->port_host->str_data);
+		port->port_version = REMOTE_make_string(buffer);
+	}
+
+	port->port_accept = accept_connection;
+	port->port_disconnect = disconnect;
+	port->port_receive_packet = receive;
+	port->port_send_packet = send;
+	port->port_send_partial = send;
+	port->port_connect = aux_connect;
+	port->port_request = aux_request;
+	port->port_buff_size = BUFFER_SIZE;
+
+	xdripc_create(&port->port_send, port,
+				  &port->port_buffer[BUFFER_SIZE], BUFFER_SIZE, XDR_ENCODE);
+
+	xdripc_create(&port->port_receive, port, port->port_buffer, 0,
+				  XDR_DECODE);
+
+	return port;
+}
+
+
+static void atoh( SCHAR * vcname, SSHORT length, SCHAR * convert)
+{
+/**************************************
+ *
+ *	a t o h 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert ascii string to hexadecimal string
+ *
+ **************************************/
+	SCHAR *p, *q, *end;
+	UCHAR x;
+
+	for (p = vcname, end = p + length, q = convert; p < end;) {
+		x = *p++;
+		*q++ = hex[x >> 4];
+		*q++ = hex[x & 15];
+	}
+}
+
+
+static PORT aux_connect( PORT port, PACKET * packet, XDR_INT(*ast) ())
+{
+/**************************************
+ *
+ *	a u x _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to establish an alternative connection.  Somebody has already
+ *	done a successfull connect request ("packet" contains the response).
+ *
+ **************************************/
+	PORT async_port;
+	P_RESP *response;
+	USHORT event_socket;
+	struct sockaddr_in address;
+
+/* If this is a server, we've got an auxiliary connection.  Accept it */
+
+	if (port->port_server_flags)
+		return connect(port->port_async ? port->port_async : port, port);
+
+/* client side */
+
+	async_port = alloc_port(port);
+	async_port->port_flags |= PORT_async;
+	response = &packet->p_resp;
+
+/* Set up a new socket */
+
+	bzero((SCHAR *) & address, sizeof(address));
+	bcopy(response->p_resp_data.cstr_address, &address,
+		  response->p_resp_data.cstr_length);
+
+/* get socket name as protocol */
+
+	event_socket = address.sin_port;
+
+	if (!client_connect
+		(port->port_connection->str_data, event_socket, INFINITETIME,
+		 async_port, 0))
+		return NULL;
+
+	if (!async_list) {
+		if (!ISC_comm_init(port->port_status_vector, FALSE)) {
+			disconnect(async_port);
+			return NULL;
+		}
+		ISC_signal(0, ipc_handler, (void *) TRUE);
+	}
+
+	async_port->port_ast = ast;
+	async_port->port_next = async_list;
+	port->port_async = async_list = async_port;
+
+	return async_port;
+}
+
+
+static PORT aux_request( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	a u x _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	A remote interface has requested the server prepare an auxiliary 
+ *	connection; the server calls aux_request to set up the connection.
+ *
+ **************************************/
+	PORT parent, async_port;
+	P_RESP *response;
+	SLONG l, calldesc, ipcresult;
+	SSHORT timeout;
+	TEXT *p;
+	SCHAR socket_name[16];
+	struct sockaddr_in address;
+
+/* Set up a new socket */
+
+	async_port = alloc_port(port);
+	async_port->port_flags |= PORT_async;
+	async_port->port_server_flags = port->port_server_flags;
+	response = &packet->p_resp;
+
+	IPCCREATE(IPC_CALL_SOCKET, IPC_TCP,,, &calldesc, &ipcresult);
+	p = "IPCCREATE";
+	if (!ipcresult) {
+		timeout = RECVTIME;
+		IPCCONTROL(calldesc, IPCCTL_TIMEOUT, &timeout, sizeof(timeout),,,,
+				   &ipcresult);
+		p = "IPCCONTROL";
+	}
+
+	if (!ipcresult) {
+		async_port->port_channel = calldesc;
+		bzero((SCHAR *) & address, sizeof(address));
+		l = sizeof(address.sin_port);
+
+		/* get our port number so they can call us back */
+
+		GET_PRIVMODE
+			IPCCONTROL(calldesc, IPCCTL_ADDRESS,,, &address.sin_port, &l,,
+					   &ipcresult);
+	GET_USERMODE}
+
+	if (ipcresult) {
+		disconnect(async_port);
+		ipc_error(port, p, ipcresult);
+		return NULL;
+	}
+
+	response->p_resp_data.cstr_address = (UCHAR *) & response->p_resp_blob_id;
+	response->p_resp_data.cstr_length = sizeof(response->p_resp_blob_id);
+	bcopy(&address, response->p_resp_data.cstr_address,
+		  response->p_resp_data.cstr_length);
+
+	port->port_async = async_port;
+	return async_port;
+}
+
+
+static void bcopy( SCHAR * from, SCHAR * to, int length)
+{
+/**************************************
+ *
+ *	b c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a number of bytes;
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+}
+
+
+static void bzero( SCHAR * address, int length)
+{
+/**************************************
+ *
+ *	b z e r o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zero a block of memory.
+ *
+ **************************************/
+
+	if (length)
+		do
+			*address++ = 0;
+		while (--length);
+}
+
+
+static int check_proxy(
+					   PORT port,
+					   TEXT * host_name, TEXT * user_name, TEXT * user_passwd)
+{
+/**************************************
+ *
+ *	c h e c k _ p r o x y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Lookup <host_name, user_name> in proxy file.  If found,
+ *	change user_name and record passwd.
+ *
+ * NB. Format of proxy file is source_node:source_user target_user target_passwd
+ *     (source=remote, target=local)
+ *     
+ **************************************/
+	IB_FILE *proxy;
+	TEXT *p, source_host[MAXHOSTLEN], proxy_file[MAXPATHLEN], line[128];
+	TEXT source_user[MAXLOGINLEN], target_user[MAXLOGINLEN],
+		target_passwd[MAXLOGINLEN];
+	int result, c;
+	SLONG length;
+	STR string;
+
+	if (!(proxy = ib_fopen(PROXY_FILE, "r Tm")))
+		return FALSE;
+
+/* Read lines, scan, and compare */
+
+	result = FALSE;
+
+	for (;;) {
+		for (p = line; (c = ib_getc(proxy)) && c != EOF && c != '\n';)
+			*p++ = c;
+		*p = 0;
+		if (sscanf(line, " %[^:]:%s%s%s", source_host, source_user,
+				   target_user, target_passwd) >= 4)
+			if ((!strcmp(source_host, host_name) ||
+				 !strcmp(source_host, "*")) &&
+				(!strcmp(source_user, user_name) ||
+				 !strcmp(source_user, "*"))) {
+				ALLR_free(port->port_user_name);
+				length = strlen(target_user);
+				port->port_user_name = string =
+					(STR) ALLOCV(type_str, (int) length);
+				string->str_length = length;
+				strncpy(string->str_data, target_user, length);
+				strcpy(user_name, target_user);
+				strcpy(user_passwd, target_passwd);
+				result = TRUE;
+				break;
+			}
+		if (c == EOF)
+			break;
+	}
+
+	ib_fclose(proxy);
+
+	return result;
+}
+
+
+static PORT client_connect(
+						   TEXT * name,
+						   USHORT gds_socket,
+						   SSHORT timeout, PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	c l i e n t _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	We're a client in search of a server. If we're successful, return port.
+ *
+ **************************************/
+	SLONG servprot, servtype, vcdesc, destdesc, ipcresult;
+	SSHORT packetlen, status;
+	SSHORT maxopt[OPT_SIZE(2, 2 * sizeof(SSHORT))];
+	TEXT *p;
+
+	packetlen = MAX_PACKETLEN;
+	INITOPT(maxopt, 2, &status);
+	ADDOPT(maxopt, 0, IPCOPT_MAX_SEND_SIZE, sizeof(packetlen), &packetlen,
+		   &status);
+	ADDOPT(maxopt, 1, IPCOPT_MAX_RECV_SIZE, sizeof(packetlen), &packetlen,
+		   &status);
+
+	GET_PRIVMODE
+		IPCDEST(IPC_CALL_SOCKET, name, strlen(name), IPC_TCP, &gds_socket,
+				sizeof(gds_socket),,, &destdesc, &ipcresult);
+	GET_USERMODE p = "IPCDEST";
+
+	if (!ipcresult) {
+		GET_PRIVMODE IPCCONNECT(, destdesc,, maxopt, &vcdesc, &ipcresult);
+		GET_USERMODE p = "IPCCONNECT";
+	}
+
+	if (!ipcresult) {
+		port->port_handle = (HANDLE) vcdesc;
+		IPCCONTROL(vcdesc, IPCCTL_TIMEOUT, &timeout, sizeof(timeout),,,,
+				   &ipcresult);
+		p = "IPCCONTROL";
+	}
+
+/* Complete connection sequence */
+
+	if (!ipcresult) {
+		IPCRECV(vcdesc,,,,, &ipcresult);
+		p = "IPCRECV";
+	}
+
+/* Activate no wait input so we don't block asynchronous signals */
+
+	if (!ipcresult) {
+		port->port_state = state_active;
+		IPCCONTROL(vcdesc, IPCCTL_NOWAIT_RECV,,,,,, &ipcresult);
+		p = "IPCCONTROL";
+	}
+
+	if (ipcresult) {
+		ipc_error(port, p, ipcresult);
+		disconnect(port);
+		return NULL;
+	}
+
+	if (packet)
+		send(port, packet);
+
+	return port;
+}
+
+
+static PORT connect( PORT port, PORT parent)
+{
+/**************************************
+ *                                                            
+ *	c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish a remote connection.
+ *
+ **************************************/
+	SLONG vcdesc, ipcresult;
+	SSHORT status, timeout, packetlen,
+		maxopt[OPT_SIZE(2, 2 * sizeof(SSHORT))];
+	TEXT *p;
+
+	packetlen = MAX_PACKETLEN;
+	INITOPT(maxopt, 2, &status);
+	ADDOPT(maxopt, 0, IPCOPT_MAX_SEND_SIZE, sizeof(packetlen), &packetlen,
+		   &status);
+	ADDOPT(maxopt, 1, IPCOPT_MAX_RECV_SIZE, sizeof(packetlen), &packetlen,
+		   &status);
+
+	IPCRECVCN(port->port_channel, &vcdesc,, maxopt, &ipcresult);
+	p = "IPCRECVCN";
+	if (!ipcresult) {
+		timeout = INFINITETIME;
+		IPCCONTROL(vcdesc, IPCCTL_TIMEOUT, &timeout, sizeof(timeout),,,,
+				   &ipcresult);
+		if (!ipcresult)
+			IPCCONTROL(vcdesc, IPCCTL_NOWAIT_RECV,,,,,, &ipcresult);
+		p = "IPCCONTROL";
+	}
+
+	if (ipcresult) {
+		if (parent) {
+			disconnect(port);
+			parent->port_async = NULL;
+			ipc_error(parent, p, ipcresult);
+		}
+		else
+			ipc_error(port, p, ipcresult);
+		return NULL;
+	}
+
+	port->port_handle = (HANDLE) vcdesc;
+	port->port_state = state_active;
+	port->port_flags = 0;
+	port->port_protocol = 0;
+
+	if (parent) {
+		port->port_flags |= PORT_async;
+		IPCSHUTDOWN(port->port_channel);
+		port->port_channel = 0;
+		strcpy(port->port_version->str_data, parent->port_version->str_data);
+	}
+	else
+		sprintf(port->port_version->str_data, "tcp (%s)",
+				port->port_host->str_data);
+
+	return parent ? parent : port;
+}
+
+
+static void disconnect( PORT port)
+{
+/**************************************
+ *                                                            
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break a remote connection. If there's an
+ *	auxiliary port (for async i/o), break that one
+ *	first. If this is an auxiliary	port, and it's
+ *	the last one out - cancel the async i/o handler.
+ *
+ **************************************/
+	SLONG ipcresult;
+	PORT *ports;
+
+	if (port->port_async)
+		disconnect(port->port_async);
+
+	if (port->port_flags & PORT_async) {
+		for (ports = &async_list; *ports; ports = &(*ports)->port_next)
+			if (*ports == port) {
+				*ports = port->port_next;
+				break;
+			}
+		if (!async_list)
+			ISC_signal_cancel(0, ipc_handler, (void *) TRUE);
+	}
+
+	if (port->port_handle)
+		IPCSHUTDOWN(port->port_handle,,, &ipcresult);
+
+	if (port->port_channel)
+		IPCSHUTDOWN(port->port_channel,,, &ipcresult);
+
+	cleanup_port(port);
+	return;
+}
+^L static void cleanup_port( PORT port)
+{
+/**************************************
+ *
+ *      c l e a n u p _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Walk through the port structure freeing
+ *      allocated memory and then free the port.
+ *
+ **************************************/
+
+	if (port->port_version)
+		ALLR_free((UCHAR *) port->port_version);
+
+	if (port->port_connection)
+		ALLR_free((UCHAR *) port->port_connection);
+
+	if (port->port_user_name)
+		ALLR_free((UCHAR *) port->port_user_name);
+
+	if (port->port_object_vector)
+		ALLR_free((UCHAR *) port->port_object_vector);
+
+#ifdef DEBUG_XDR_MEMORY
+	if (port->port_packet_vector)
+		ALLR_free((UCHAR *) port->port_packet_vector);
+#endif
+
+	if (port->port_host)
+		ALLR_free((UCHAR *) port->port_host);
+
+	ALLR_release((UCHAR *) port);
+	return;
+}
+
+
+static void htoa( SCHAR * convert, SCHAR * vcname, SSHORT length)
+{
+/**************************************
+ *
+ *	h t o a 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert hexadecimal string to ascii string
+ *
+ **************************************/
+	SCHAR *p, *q, *end;
+
+	for (p = vcname, end = p + length, q = convert; p < end;) {
+		*p = ((*q >= '0' && *q <= '9') ? *q++ - '0' : *q++ - 'A' + 10) << 4;
+		*p++ |= (*q >= '0' && *q <= '9') ? *q++ - '0' : *q++ - 'A' + 10;
+	}
+}
+
+
+static PORT receive( PORT main_port, PACKET * packet)
+{
+/**************************************
+ *
+ *	r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message from a port or clients of a port.  If the process
+ *	is a server and a connection request comes in, generate a new port
+ *	block for the client.
+ *
+ **************************************/
+
+	if (!xdr_protocol(&main_port->port_receive, packet))
+		return NULL;
+
+	return main_port;
+}
+
+
+static int send( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	s e n d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+/* if it's the odd case of responding to a connection request,
+   just return TRUE. */
+
+	if (!port->port_handle && (packet->p_operation == op_accept ||
+							   packet->p_operation == op_reject))
+		return TRUE;
+
+	if (!xdr_protocol(&port->port_send, packet))
+		return FALSE;
+
+	return ipc_write(&port->port_send);
+}
+
+
+static PORT server_connect( USHORT gds_socket, PORT port, int flag)
+{
+/**************************************
+ *
+ *	s e r v e r _ c o n n e c t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set up a known port to receive service requests. In the
+ *	XL-land of NetIPC, this means a call descriptor at an
+ *	INET address (for both XL-XL and INET-XL requests).
+ *
+ **************************************/
+	SLONG calldesc, ipcresult;
+	SSHORT status, timeout, addressopt[OPT_SIZE(1, sizeof(SSHORT))];
+	TEXT *p;
+
+/* Set flags for server port. Clear handle so we know in receive that we haven't
+   finished establishing the NetIPC connection. */
+
+	port->port_server_flags |= SRVR_server | flag;
+	port->port_handle = 0;
+
+	INITOPT(addressopt, 1, &status);
+	ADDOPT(addressopt, 0, IPCOPT_ADDRESS, sizeof(gds_socket), &gds_socket,
+		   &status);
+
+	GET_PRIVMODE
+		IPCCREATE(IPC_CALL_SOCKET, IPC_TCP,, addressopt, &calldesc,
+				  &ipcresult);
+	GET_USERMODE p = "IPCCREATE";
+
+	if (!ipcresult) {
+		port->port_channel = (HANDLE) calldesc;
+		timeout = INFINITETIME;
+		IPCCONTROL(calldesc, IPCCTL_TIMEOUT, &timeout, sizeof(timeout),,,,
+				   &ipcresult);
+		p = "IPCCONTROL";
+	}
+
+	if (ipcresult) {
+		ipc_error(port, p, ipcresult);
+		disconnect(port);
+		return NULL;
+	}
+
+	return port;
+}
+
+
+static int xdripc_create(
+						 XDR * xdrs,
+						 PORT port,
+						 UCHAR * buffer, USHORT length, enum xdr_op x_op)
+{
+/**************************************
+ *
+ *	x d r i p c _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize an XDR stream.
+ *
+ **************************************/
+
+	xdrs->x_public = (caddr_t) port;
+	xdrs->x_base = xdrs->x_private = (SCHAR *) buffer;
+	xdrs->x_handy = length;
+	xdrs->x_ops = &ipc_ops;
+	xdrs->x_op = x_op;
+
+	return TRUE;
+}
+
+
+static XDR_INT ipc_destroy( XDR * xdrs)
+{
+/**************************************
+ *
+ *	i p c _ d e s t r o y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Destroy a stream.  A no-op.
+ *
+ **************************************/
+}
+
+
+static int ipc_error( PORT port, TEXT * operation, int status)
+{
+/**************************************
+ *
+ *	i p c _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An I/O error has occurred.  If a status vector is present,
+ *	generate an error return.  In any case, return NULL, which
+ *	is used to indicate an error.
+ *
+ **************************************/
+	RDB rdb;
+	TEXT **tp;
+	STATUS *status_vector;
+
+	port->port_flags |= PORT_broken;
+	port->port_state = state_broken;
+
+	if (rdb = port->port_context)
+		status_vector = rdb->rdb_status_vector;
+	else
+		status_vector = port->port_status_vector;
+
+	if (status_vector) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__io_error;
+		*status_vector++ = gds_arg_string;
+		*status_vector++ = (STATUS) operation;
+		*status_vector++ = gds_arg_string;
+		tp = (TEXT **) status_vector;
+		*tp++ = port->port_connection->str_data;
+		status_vector = (STATUS *) tp;
+		if (status) {
+			*status_vector++ = gds_arg_mpexl_ipc;
+			*status_vector++ = (STATUS) status;
+		}
+		*status_vector++ = 0;
+	}
+
+	return 0;
+}
+
+
+static bool_t ipc_getbytes( XDR * xdrs, SCHAR * buff, int count)
+{
+/**************************************
+ *
+ *	i p c _ g e t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a bunch of bytes from a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(buff, xdrs->x_private, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(buff, xdrs->x_private, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!ipc_read(xdrs))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*buff++ = *xdrs->x_private++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (!xdrs->x_handy && !ipc_read(xdrs))
+			return FALSE;
+		*buff++ = *xdrs->x_private++;
+		--xdrs->x_handy;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t ipc_getlong( XDR * xdrs, SLONG * lp)
+{
+/**************************************
+ *
+ *	i p c _ g e t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG l;
+
+	if (!(*xdrs->x_ops->x_getbytes) (xdrs, &l, 4))
+		return FALSE;
+
+	*lp = ntohl(l);
+
+	return TRUE;
+}
+
+
+static u_int ipc_getpostn( XDR * xdrs)
+{
+/**************************************
+ *
+ *	i p c _ g e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	return xdrs->x_private - xdrs->x_base;
+}
+
+
+static int ipc_handler( SSHORT fnum, void *async_flag)
+{
+/**************************************
+ *
+ *	i p c _  h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Async i/o signal went off - if it's what
+ *	we've been waiting for, go for it!
+ *
+ **************************************/
+	PORT port;
+
+	for (port = async_list; port; port = port->port_next)
+		if (fnum == port->port_handle) {
+			(*port->port_ast) (port);
+			return TRUE;
+		}
+
+	return FALSE;
+}
+
+
+static caddr_t ipc_inline( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	i p c _  i n l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a pointer to somewhere in the buffer.
+ *
+ **************************************/
+
+	if (bytecount > xdrs->x_handy)
+		return FALSE;
+
+	return xdrs->x_base + bytecount;
+}
+
+
+static bool_t ipc_putbytes( XDR * xdrs, SCHAR * buff, int count)
+{
+/**************************************
+ *
+ *	i p c _ p u t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a bunch of bytes to a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(xdrs->x_private, buff, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(xdrs->x_private, buff, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!ipc_write(xdrs))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*xdrs->x_private++ = *buff++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (xdrs->x_handy <= 0 && !ipc_write(xdrs))
+			return FALSE;
+		--xdrs->x_handy;
+		*xdrs->x_private++ = *buff++;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t ipc_putlong( XDR * xdrs, SLONG * lp)
+{
+/**************************************
+ *
+ *	i p c _ p u t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG l;
+
+	l = htonl(*lp);
+	return (*xdrs->x_ops->x_putbytes) (xdrs, &l, 4);
+}
+
+
+static bool_t ipc_read( XDR * xdrs)
+{
+/**************************************
+ *
+ *	i p c _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a buffer full of data.  If we receive a bad packet,
+ *	send the moral equivalent of a NAK and retry.  ACK all
+ *	partial packets.  Don't ACK the last packet -- the next
+ *	message sent will handle this.
+ *
+ **************************************/
+	PORT port;
+	SSHORT length;
+	SCHAR *p, *end;
+
+	port = (PORT) xdrs->x_public;
+	p = xdrs->x_base;
+	end = p + BUFFER_SIZE;
+
+/* If buffer is not completely empty, slide down what's left */
+
+	if (xdrs->x_handy > 0) {
+		memmove(p, xdrs->x_private, xdrs->x_handy);
+		p += xdrs->x_handy;
+	}
+
+/* If an ACK is pending, do an ACK.  The alternative is deadlock. */
+
+/*
+if (port->port_flags & PORT_pend_ack)
+    if (!packet_send (port, 0, 0))
+	return FALSE;
+*/
+
+	while (TRUE) {
+		length = end - p;
+		if (!packet_receive(port, p, length, &length)) {
+			return FALSE;
+	/***
+	if (!packet_send (port, 0, 0))
+	    return FALSE;
+	continue;
+	***/
+		}
+		if (length >= 0) {
+			p += length;
+			break;
+		}
+		p -= length;
+		if (!packet_send(port, 0, 0))
+			return FALSE;
+	}
+
+	port->port_flags |= PORT_pend_ack;
+	xdrs->x_handy = (SCHAR *) p - xdrs->x_base;
+	xdrs->x_private = xdrs->x_base;
+
+	return TRUE;
+}
+
+
+static bool_t ipc_setpostn( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	i p c _ s e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	if (bytecount > xdrs->x_handy)
+		return FALSE;
+
+	xdrs->x_private = xdrs->x_base + bytecount;
+
+	return TRUE;
+}
+
+
+static bool_t ipc_write( XDR * xdrs, bool_t end_flag)
+{
+/**************************************
+ *
+ *	i p c _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a buffer fulll of data.  If the end_flag isn't set, indicate
+ *	that the buffer is a fragment, and reset the XDR for another buffer
+ *	load.
+ *
+ **************************************/
+	SCHAR aux_buffer[BUFFER_SIZE], *p;
+	SCHAR buffer[BUFFER_SIZE];
+	PORT port;
+	SSHORT l, length, l2;
+
+/* Encode the data portion of the packet */
+
+	port = (PORT) xdrs->x_public;
+	p = xdrs->x_base;
+	length = xdrs->x_private - p;
+
+/* Send data in manageable hunks.  If a packet is partial, indicate
+   that with a negative length.  A positive length marks the end. */
+
+	p = xdrs->x_base;
+
+	while (length) {
+		port->port_misc1 = (port->port_misc1 + 1) % MAX_SEQUENCE;
+		l = MIN(length, MAX_DATA);
+		length -= l;
+		if (!packet_send(port, p, (length) ? -l : l))
+			return FALSE;
+		p += l;
+	}
+
+	xdrs->x_private = xdrs->x_base;
+	xdrs->x_handy = BUFFER_SIZE;
+
+	return TRUE;
+
+#ifdef PIGGYBACK
+/* If the other end has not piggy-backed the next packet, we're done. */
+
+	if (!l2)
+		return TRUE;
+
+/* We've got a piggy-backed response.  If the packet is partial,
+   send an ACK for part we did receive. */
+
+	p = aux_buffer;
+
+	while (l2 < 0) {
+		if (!packet_send(port, 0, 0))
+			return FALSE;
+		p -= l2;
+		length = aux_buffer + sizeof(aux_buffer) - p;
+		if (!packet_receive(port, p, length, &l2)) {
+			p += l2;
+			continue;
+		}
+	}
+
+	length = p - aux_buffer + l2;
+
+/* Now we're got a encode glump ready to stuff into the read buffer.
+   Unfortunately, if we just add it to the read buffer, we will shortly
+   overflow the buffer.  To avoid this, "scrumpf down" the active bits
+   in the read buffer, then add out stuff at the end. */
+
+	xdrs = &port->port_receive;
+	p = xdrs->x_base;
+
+	if (xdrs->x_handy && p != xdrs->x_private)
+		memmove(p, xdrs->x_private, xdrs->x_handy);
+
+	p += xdrs->x_handy;
+
+	xdrs->x_private = xdrs->x_base;
+/*
+xdrs->x_handy += JAP_decode (aux_buffer, length, p);
+*/
+	port->port_flags |= PORT_pend_ack;
+
+	return TRUE;
+#endif
+}
+
+
+static void packet_print( TEXT * string, UCHAR * packet, int length)
+{
+/**************************************
+ *
+ *	p a c k e t _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a summary of packet.
+ *
+ **************************************/
+	int sum, l;
+
+	sum = 0;
+	if (l = length)
+		do {
+			ib_printf("%d", *packet);
+			sum += *packet++;
+		}
+		while (--l);
+
+	ib_printf("\n%s\t: length = %d, checksum = %d\n", string, length, sum);
+}
+
+
+static int packet_receive(
+						  PORT port,
+						  UCHAR * buffer,
+						  SSHORT buffer_length, SSHORT * length)
+{
+/**************************************
+ *
+ *	p a c k e t _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a packet and pass on it's goodness.  If it's good,
+ *	return TRUE and the reported length of the packet, and update
+ *	the receive sequence number.  If it's bad, return FALSE.  If it's
+ *	a duplicate message, just ignore it.
+ *
+ **************************************/
+	SLONG iodesc, buff_len, ipcresult, flags;
+	SSHORT packetlen;
+	PORT async_port;
+
+/* if this is the main mpexl server, we have to finish the NetIPC connection.
+   (In the debug case, handle already loaded - just continue with receive) */
+
+	if (!port->port_handle)
+		if (!connect(port, NULL))
+			return NULL;
+
+/* If there's an event port, and we haven't posted a preview yet, do so now. */
+
+	async_port = port->port_async;
+	if (async_port && !(async_port->port_flags & PORT_pend_rec)) {
+		flags = IPC_PREVIEWFLAG | IPC_LOCALFLAGS;
+		buff_len = BUFFER_SIZE;
+		IPCRECV(async_port->port_handle, (SCHAR ^) async_port->port_buffer,
+				&buff_len, &flags,, &ipcresult);
+		if (ipcresult)
+			return ipc_error(port, "IPCRECV", ipcresult);
+		async_port->port_flags |= PORT_pend_rec;
+	}
+
+/* onto the real business at hand - post a nowait receive and wait it out */
+/* At this point, port may be either a main or async one. If it's a main
+   port but there are async ports, wait on everything. Otherwise, we only
+   need to complete i/o on the port we were called with. */
+
+	buff_len = buffer_length;
+	flags = IPC_LOCALFLAGS;
+	IPCRECV(port->port_handle, (SCHAR ^) buffer, &buff_len, &flags,,
+			&ipcresult);
+	if (ipcresult)
+		return ipc_error(port, "IPCRECV", ipcresult);
+	port->port_flags |= PORT_pend_rec;
+
+	iodesc = 0;
+	while (iodesc != port->port_handle) {
+		if (!(port->port_flags & PORT_async) && async_list)
+			iodesc = IOWAIT(0,, &packetlen,);
+		else
+			iodesc = IOWAIT(port->port_handle,, &packetlen,);
+		if (!iodesc)
+			return ipc_error(port, "IOWAIT", 0);
+		IPCCHECK(iodesc, &ipcresult);
+		if (ipcresult ||
+			(iodesc != port->port_handle
+			 && !ipc_handler(iodesc, (void *) FALSE))) return ipc_error(port,
+																		"IOWAIT",
+																		ipcresult);
+	}
+
+	port->port_flags &= ~PORT_pend_rec;
+
+	if (packetlen <= 0)
+		return ipc_error(port, "read end_of_file", 0);
+
+	*length = packetlen;
+
+#ifdef DEBUG
+	if (INET_trace)
+		packet_print("recv", buffer, buff_len);
+#endif
+
+	if (port->port_flags & PORT_async) {
+		flags = IPC_PREVIEWFLAG | IPC_LOCALFLAGS;
+		buff_len = BUFFER_SIZE;
+		IPCRECV(port->port_handle, (SCHAR ^) port->port_buffer, &buff_len,
+				&flags,, &ipcresult);
+		if (ipcresult)
+			return ipc_error(port, "IPCRECV", ipcresult);
+
+		port->port_flags |= PORT_pend_rec;
+	}
+
+	return TRUE;
+}
+
+
+static int packet_send( PORT port, UCHAR * data, SSHORT length)
+{
+/**************************************
+ *
+ *	p a c k e t _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send some data on it's way.  
+ *
+ **************************************/
+	SLONG urgentflag, ipcresult;
+	SSHORT status, sendopt[OPT_SIZE(1, sizeof(SLONG))];
+
+	if (port->port_flags & PORT_async) {
+		urgentflag = IPCSND_URGENTFLAG;
+		INITOPT(sendopt, 1, &status);
+		ADDOPT(sendopt, 0, IPCOPT_PROTOCOL, sizeof(urgentflag), &urgentflag,
+			   &status);
+		IPCSEND(port->port_handle, (SCHAR ^) data, length,, sendopt,
+				&ipcresult);
+	}
+	else
+		IPCSEND(port->port_handle, (SCHAR ^) data, length,,, &ipcresult);
+
+	if (ipcresult)
+		return ipc_error(port, "IPCSEND", ipcresult);
+
+#ifdef DEBUG
+	if (INET_trace)
+		packet_print("send", data, length);
+#endif
+
+	port->port_flags &= ~PORT_pend_ack;
+
+	return TRUE;
+}
+
+
+static void zap_packet( PACKET * packet)
+{
+/**************************************
+ *
+ *	z a p _ p a c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zero out a packet block.
+ *
+ **************************************/
+	SLONG *p;
+	UCHAR *pc;
+	USHORT l;
+
+	p = (SLONG *) packet;
+	l = sizeof(PACKET) >> 2;
+	do
+		*p++ = 0;
+	while (--l);
+
+	if (l = sizeof(PACKET) & 3) {
+		pc = (UCHAR *) p;
+		do
+			*pc++ = 0;
+		while (--l);
+	}
+}
diff --git a/src/remote/ipc.h b/src/remote/ipc.h
new file mode 100644
index 0000000000..c4736991ff
--- /dev/null
+++ b/src/remote/ipc.h
@@ -0,0 +1,55 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		ipc.h
+ *	DESCRIPTION:	MPE/XL specific NetIPC
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_IPC_H_
+#define _REMOTE_IPC_H_
+
+#pragma intrinsic	IPCCREATE, IPCCONTROL, IPCNAME, IPCRECVCN
+#pragma intrinsic	IPCGIVE, IPCGET
+#pragma intrinsic	IPCSEND, IPCRECV, IPCERRMSG, IPCCHECK
+#pragma intrinsic	IPCLOOKUP, IPCCONNECT, IPCDEST, IPCSHUTDOWN
+#pragma intrinsic	INITOPT, ADDOPT, OPTOVERHEAD
+
+#define GDS_SOCKET	3050
+
+#define IPC_CALL_SOCKET	3
+#define IPC_TCP		4
+#define IPC_GIVELEN	8
+
+#define IPC_PREVIEWFLAG	2
+#define IPC_LOCALFLAGS	32768
+
+#define IPCCTL_TIMEOUT		3
+#define IPCCTL_NOWAIT_RECV	256
+#define IPCCTL_ADDRESS		514
+
+#define IPCOPT_PROTOCOL		144
+#define IPCOPT_ADDRESS		128
+#define IPCOPT_MAX_RECV_SIZE	4
+#define IPCOPT_MAX_SEND_SIZE	3
+
+#define IPCSND_URGENTFLAG	16
+
+#define IPCERR_TIMEOUT	59
+
+#endif /* _REMOTE_IPC_H_ */
diff --git a/src/remote/ipc_proto.h b/src/remote/ipc_proto.h
new file mode 100644
index 0000000000..4b66ce92a9
--- /dev/null
+++ b/src/remote/ipc_proto.h
@@ -0,0 +1,41 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		ipc_proto.h
+ *	DESCRIPTION:	Prototpe header file for ipc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_IPC_PROTO_H_
+#define _REMOTE_IPC_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+extern PORT	IPC_analyze (TEXT *, SSHORT *, STATUS *, TEXT *, SSHORT);
+extern PORT	IPC_connect (TEXT *, struct packet *, STATUS *, int);
+extern PORT	IPC_server (SCHAR *);
+
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _REMOTE_IPC_PROTO_H */ 
diff --git a/src/remote/ipc_server.cpp b/src/remote/ipc_server.cpp
new file mode 100644
index 0000000000..09779c9f1b
--- /dev/null
+++ b/src/remote/ipc_server.cpp
@@ -0,0 +1,155 @@
+/*
+ *	PROGRAM:	JRD Remote Server
+ *	MODULE:		ipc_server.c
+ *	DESCRIPTION:	MPE/XL remote server
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+
+#include "../jrd/common.h"
+#include "../jrd/license.h"
+#include "../remote/remote.h"
+#include "../remote/ipc.h"
+#include "../remote/ipc_proto.h"
+#include "../remote/serve_proto.h"
+#include "../jrd/gds_proto.h"
+
+static void enable_signals(void);
+static void excp_handler(void);
+
+
+void main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int flag, standalone;
+	STATUS status_vector[20];
+	TEXT *p, **end, c, protocol[128], *server_arg;
+
+	end = argc + argv;
+	debug = standalone = FALSE;
+	protocol[0] = 0;
+	server_arg = NULL;
+	flag = SRVR_mpexl;
+
+	while (++argv < end) {
+		p = *argv;
+		if (*p != '-')
+			server_arg = p;
+		else
+			while (c = *++p)
+				switch (UPPER(c)) {
+				case 'D':
+					flag |= SRVR_debug;
+					debug = standalone = TRUE;
+					break;
+
+				case 'S':
+					standalone = TRUE;
+					break;
+
+				case 'I':
+					standalone = FALSE;
+					break;
+
+				case 'P':
+					sprintf(protocol, "/%s", *++argv);
+					break;
+
+				case 'Z':
+					ib_printf("Interbase TCP/NETipc server version %s\n",
+							  GDS_VERSION);
+					exit(FINI_OK);
+				}
+	}
+
+	if (standalone || debug) {
+		port = IPC_connect(protocol, 0, status_vector, flag);
+		if (!port) {
+			gds__print_status(status_vector);
+			exit(FINI_ERROR);
+		}
+	}
+	else if (!(port = IPC_server(server_arg)))
+		exit(FINI_ERROR);
+
+/* Establish signal handlers so the access method won't have to */
+
+	enable_signals();
+
+	SRVR_main(port, flag);
+
+	exit(FINI_OK);
+}
+
+
+static void enable_signals(void)
+{
+/**************************************
+ *
+ *	e n a b l e _ s i g n a l s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Enable signals.
+ *
+ **************************************/
+	SLONG mask;
+	void (*prev_handler) ();
+
+/* Set up to catch floating overflow, underflow, and divide traps */
+
+	HPENBLTRAP(0, &mask);
+	mask |=
+		(1 << 16) | (1 << 5) | (1 << 3) | (1 << 15) | (1 << 6) | (1 << 2) | (1
+																			 <<
+																			 17)
+		| (1 << 7) | (1 << 0);
+	HPENBLTRAP(mask, &mask);
+	mask |=
+		(1 << 16) | (1 << 5) | (1 << 3) | (1 << 15) | (1 << 6) | (1 << 2) | (1
+																			 <<
+																			 17)
+		| (1 << 7) | (1 << 0);
+	XARITRAP(mask, (int) excp_handler, &mask, (int *) &prev_handler);
+}
+
+
+static void excp_handler(void)
+{
+/**************************************
+ *
+ *	e x c p _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Catch arithmetic exception.
+ *
+ **************************************/
+}
diff --git a/src/remote/isc_tcpent.mar b/src/remote/isc_tcpent.mar
new file mode 100644
index 0000000000..e211385a89
--- /dev/null
+++ b/src/remote/isc_tcpent.mar
@@ -0,0 +1,49 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+;
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+;
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+;
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+
+	.title isc_tcpent	"GDS Shareable Library Tcpent Vector"
+
+	.macro	tcpent	tcpent
+	.transfer	tcpent
+	.mask		tcpent
+	jmp		l^tcpent+2
+	.endm
+
+tcpent	ISC_tcp_accept
+tcpent	ISC_tcp_bind
+tcpent	ISC_tcp_connect
+tcpent	ISC_tcp_getaddr
+tcpent	ISC_tcp_geterrno
+tcpent	ISC_tcp_gethostbyaddr
+tcpent	ISC_tcp_gethostbyname
+tcpent	ISC_tcp_gethostname
+tcpent	ISC_tcp_gethosts
+tcpent	ISC_tcp_getnamebyaddr
+tcpent	ISC_tcp_getpeername
+tcpent	ISC_tcp_getservbyname
+tcpent	ISC_tcp_getservport
+tcpent	ISC_tcp_getsockname
+tcpent	ISC_tcp_gettype
+tcpent	ISC_tcp_listen
+tcpent	ISC_tcp_recv
+tcpent	ISC_tcp_select
+tcpent	ISC_tcp_send
+tcpent	ISC_tcp_setsockopt
+tcpent	ISC_tcp_setup
+tcpent	ISC_tcp_socket
+
+	.end
diff --git a/src/remote/jibdef.mar b/src/remote/jibdef.mar
new file mode 100644
index 0000000000..08cb36131b
--- /dev/null
+++ b/src/remote/jibdef.mar
@@ -0,0 +1,85 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+;
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+;
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+;
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;
+;	PROGRAM:	JRD Remote Server
+;	MODULE:		jibdef.mar
+;	DESCRIPTION:	jib definitions for VMS
+;
+
+	.MACRO	$JIBDEF,$GBL
+	$DEFINI	JIB,$GBL
+; 			      bit TQCNT_WAITERS must be set
+$EQU	JIB$C_DETACHED	0
+$EQU	JIB$C_NETWORK	1
+$EQU	JIB$C_BATCH	2
+$EQU	JIB$C_LOCAL	3
+$EQU	JIB$C_DIALUP	4
+$EQU	JIB$C_REMOTE	5
+$EQU	JIB$M_BYTCNT_WAITERS	1
+$EQU	JIB$M_TQCNT_WAITERS	2
+$EQU	JIB$K_LENGTH	148
+$EQU	JIB$C_LENGTH	148
+$EQU	JIB$S_JIBDEF	148
+$EQU	JIB$L_MTLFL	0
+$EQU	JIB$L_MTLBL	4
+$EQU	JIB$W_SIZE	8
+$EQU	JIB$B_TYPE	10
+$EQU	JIB$B_DAYTYPES	11
+$EQU	JIB$S_USERNAME	12
+$EQU	JIB$T_USERNAME	12
+$EQU	JIB$S_ACCOUNT	8
+$EQU	JIB$T_ACCOUNT	24
+$EQU	JIB$L_BYTCNT	32
+$EQU	JIB$L_BYTLM	36
+$EQU	JIB$L_PBYTCNT	40
+$EQU	JIB$L_PBYTLIM	44
+$EQU	JIB$W_FILCNT	48
+$EQU	JIB$W_FILLM	50
+$EQU	JIB$W_TQCNT	52
+$EQU	JIB$W_TQLM	54
+$EQU	JIB$L_PGFLQUOTA	56
+$EQU	JIB$L_PGFLCNT	60
+$EQU	JIB$L_CPULIM	64
+$EQU	JIB$W_PRCCNT	68
+$EQU	JIB$W_PRCLIM	70
+$EQU	JIB$W_SHRFCNT	72
+$EQU	JIB$W_SHRFLIM	74
+$EQU	JIB$W_ENQCNT	76
+$EQU	JIB$W_ENQLM	78
+$EQU	JIB$W_MAXJOBS	80
+$EQU	JIB$W_MAXDETACH	82
+$EQU	JIB$L_MPID	84
+$EQU	JIB$L_JLNAMFL	88
+$EQU	JIB$L_JLNAMBL	92
+$EQU	JIB$L_PDAYHOURS	96
+$EQU	JIB$L_ODAYHOURS	100
+$EQU	JIB$B_JOBTYPE	104
+$EQU	JIB$B_FLAGS	105
+$EQU	JIB$V_BYTCNT_WAITERS	0
+$EQU	JIB$V_TQCNT_WAITERS	1
+$EQU	JIB$L_ORG_BYTLM	108
+$EQU	JIB$L_ORG_PBYTLM	112
+$EQU	JIB$L_SPARE	116
+$EQU	JIB$L_CWPS_TIME	120
+$EQU	JIB$L_CWPS_COUNT	124
+$EQU	JIB$S_CWPS_Q1	8
+$EQU	JIB$Q_CWPS_Q1	128
+$EQU	JIB$L_CWPS_L1	136
+$EQU	JIB$L_CWPS_L2	140
+$EQU	JIB$L_JTQUOTA	144
+	$DEFEND	JIB,$GBL,DEF
+	.ENDM
diff --git a/src/remote/lanentry.h b/src/remote/lanentry.h
new file mode 100644
index 0000000000..1fb3d49b3f
--- /dev/null
+++ b/src/remote/lanentry.h
@@ -0,0 +1,59 @@
+/*++
+   File:    lanentry.h
+   Author:  Charles McElwain
+	Created: December 13, 1988   Last Changed: December 16, 1988  18:27.47
+	Description: Table of the MSLAN dll entrypoints used by Interbase
+   History:
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+*/
+
+#ifndef _REMOTE_LANENTRY_H_
+#define _REMOTE_LANENTRY_H_
+
+#define LAN_SERVERGETINFO	0
+#define LAN_SHAREGETINFO	1
+#define LAN_WAITNMPIPE		2
+#define LAN_SETNMPHANDSTATE	3
+#define LAN_MAKENMPIPE		4
+#define LAN_CONNECTNMPIPE	5
+#define LAN_DISCONNECTNMPIPE	6
+#define LAN_SETNMPIPESEM	7
+#define PROC_count		8
+
+#define ENTRYNAME(module, name, address)	module, name, NULL,
+
+typedef struct {
+   TEXT *module;
+   TEXT	*name;
+   PFN	address;
+} ENTRY;
+
+static ENTRY	entrypoints [PROC_count] = {
+    ENTRYNAME ("NETAPI", "NETSERVERGETINFO",	NETSERVERGETINFO)
+    ENTRYNAME ("NETAPI", "NETSHAREGETINFO", NETSHAREGETINFO)
+    ENTRYNAME ("NAMPIPES", "DOSWAITNMPIPE", DOSWAITNMPIPE)
+    ENTRYNAME ("NAMPIPES", "DOSSETNMPHANDSTATE", DOSSETNMPHANDSTATE)
+    ENTRYNAME ("NAMPIPES", "DOSMAKENMPIPE", DOSMAKENMPIPE)
+    ENTRYNAME ("NAMPIPES", "DOSCONNECTNMPIPE", DOSCONNECTNMPIPE)
+    ENTRYNAME ("NAMPIPES", "DOSDISCONNECTNMPIPE", DOSDISCONNECTNMPIPE)
+    ENTRYNAME ("NAMPIPES", "DOSSETNMPIPESEM", DOSSETNMPIPESEM)
+};
+
+#define CALL(proc)  (entrypoints[proc].address)
+
+#endif /* _REMOTE_LANENTRY_H_ */
diff --git a/src/remote/makefile.mak b/src/remote/makefile.mak
new file mode 100644
index 0000000000..6372eec96a
--- /dev/null
+++ b/src/remote/makefile.mak
@@ -0,0 +1,168 @@
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+# The contents of this file are subject to the Interbase Public
+# License Version 1.0 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy
+# of the License at http://www.Inprise.com/IPL.html
+#
+# Software distributed under the License is distributed on an
+# "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+# or implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code was created by Inprise Corporation
+# and its predecessors. Portions created by Inprise Corporation are
+# Copyright (C) Inprise Corporation.
+#
+# All Rights Reserved.
+# Contributor(s): ______________________________________.
+#--------------------------- PC REMOTE MAKEFILE ---------------------------
+ROOT=..
+.path.c=$(ROOT)\remote
+
+# Path to devkit and clisdk
+!if !$d(TPATH)
+TPATH=..
+!endif
+
+# add local paths for winsock files before including std.mk
+# These will be added to the front of INCLUDEPATH and LIBPATH respectively.
+LINCLUDEPATH=$(TPATH)\clisdk\include;$(TPATH)\wfwdev\include
+
+# CRM - temporarily disabled until warnings are cleaned up!!!
+#LCFLAGS=-wpro
+LCFLAGS=$(LCFLAGS) -DWINDOWS -DNWWIN -DREQUESTER -DSPX 
+
+# These are C flags if you want to enable useful warnings.
+#LCFLAGS=$(LCFLAGS) -w -w-ucp -w-sus -w-par -w-stu -w-aus -w-pia
+
+!include $(ROOT)\std.mk
+
+# Add compiler flags for router
+APP_CFLAGS=$(APP_CFLAGS) -DWINDOWS_ROUTER
+
+#--------------------------- SOURCE COMPONENTS -----------------------------
+
+S1 = allr.c inet.c interfac.c merge.c parser.c protocol.c
+S2 = remote.c xdr.c ntoh.c 
+SRCS = $(S1) $(S2)
+JRDSRCS = cvt.c 
+TSTSRCS = server.c inet_ser.c winmain.c
+
+WINSRCS = dllshell.c spxwin.c spxesr.c wnet.c wfwnp.c
+
+# Extra files which are used to build the product
+XFILES   = remote.def makefile.mak nlmtst.def
+
+# NOTE:  c0dx must be the first obj in the list!
+OBJS=$(TOOLPATH)\lib\c0d$(MODEL).obj $(SRCS:.c=.obj) \
+     $(JRDSRCS:.c=.obj) $(WINSRCS:.c=.obj)
+TSTOBJS=$(TSTSRCS:.c=.obj)
+
+LIBS=mathw$(MODEL) import cw$(MODEL)
+RMTLIBS=$(ROOT)\jrd\$(.path.obj)\gds.lib $(ROOT)\jrd\$(.path.obj)\iutls.lib
+TSTLIBS=$(RMTLIBS) $(ROOT)\remote\$(.path.obj)\remote.lib $(TPATH)\devkit\netbcc3.0\winsock.lib
+
+#---------------------------- TARGET LIST --------------------------------
+ALLBIN = remote.dll nlmtst.exe
+ALLLIBS = remote.lib
+
+all: makefile.tmp extern_libs $(ALLLIBS) $(ALLBIN)
+allbin: makefile.tmp extern_libs $(ALLBIN)
+alllibs: makefile.tmp $(ALLLIBS)
+
+
+#------------------------------ RULES -------------------------------------
+
+#----- Windows REMOTE DLL and import library -----
+remote.dll: $(OBJS) remote.def $(RMTLIBS) remote.rsp $(ROOT)\jrd\version.rc
+	tlink $(LFLAGS) @$(.path.obj)\remote.rsp @&&|
+	$<
+	$*.map
+	$(LIBS) $(RMTLIBS)
+	$&.def
+|
+	$(RC)  -i $(TOOLPATH)\include $(ROOT)\jrd\version.rc $<
+
+	# Build a symbol file for post mortem dump analysis
+	tmapsym $(.path.obj)\remote.map
+	copy remote.sym $(.path.obj)
+
+remote.rsp: $(OBJS)
+	copy &&|
+	$**
+| $<
+
+remote.lib: remote.def
+	$(IMPLIB) -o $< $**
+
+nlmtst.exe: $(ROOT)\jrd\version.rc nlmtst.rsp nlmtst.def $(TSTOBJS) $(TSTLIBS)
+	$(TLINK) $(APP_LFLAGS) $(TOOLPATH)\lib\c0w$(MODEL).obj @$(.path.obj)\nlmtst.rsp @&&|
+	$<
+	$*.map
+	$(LIBS) $(TSTLIBS)
+	$&.def
+|
+	$(RC)  -i $(TOOLPATH)\include $(ROOT)\jrd\version.rc $<
+
+# The .c files for an .exe must be compiled differently than DLLs
+$(TSTOBJS): $(TSTSRCS)
+	$(CC) -c -w- @&&<
+		$(APP_CFLAGS)
+< $&.c
+	
+
+# Because of the circular "architecture" here, we need to build 
+# required libraries within each of the makefiles.
+extern_libs:
+	cd $(ROOT)\jrd
+	make $(MAKEFLAGS) alllibs
+	cd $(ROOT)\remote
+
+nlmtst.rsp: $(TSTOBJS)
+	copy &&|
+	$**
+| $<
+
+cvt.obj: $(ROOT)\jrd\cvt.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+# To allow windows to multitask on a blocking TCP call,
+# add -DHSNOBLOCKING when compiling inet.c.
+inet.obj: inet.c
+	$(CC) -c @&&<
+	$(CFLAGS)
+< $**
+
+#---------------------------- UTILITIES ---------------------------------
+						    
+# Copy targets to a known installation directory
+install:  extern_libs $(ALLBIN) $(ALLLIBS)
+	for %i in ($(ALLBIN)) do copy $(.path.dll)\%i $(INSTALLBIN)
+	for %i in ($(ALLLIBS)) do copy $(.path.dll)\%i $(INSTALLLIB)
+
+# Refresh all the source & header files from the DEVSRC directory
+srcs::
+   copy $(DEVSRC)\remote\*.h
+   for %i in ($(S1)) do copy $(DEVSRC)\remote\%i
+   for %i in ($(S2)) do copy $(DEVSRC)\remote\%i
+   for %i in ($(TSTSRCS)) do copy $(DEVSRC)\remote\%i
+   for %i in ($(WINSRCS)) do copy $(DEVSRC)\remote\%i
+   for %i in ($(DOSSRCS)) do copy $(DEVSRC)\remote\%i
+   for %i in ($(XFILES)) do copy $(DEVSRC)\remote\%i
diff --git a/src/remote/merge.cpp b/src/remote/merge.cpp
new file mode 100644
index 0000000000..9296b5c6c7
--- /dev/null
+++ b/src/remote/merge.cpp
@@ -0,0 +1,195 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		merge.c
+ *	DESCRIPTION:	Merge database/server inforation
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../remote/remote.h"
+#include "../remote/merge_proto.h"
+#include "../jrd/gds_proto.h"
+
+#define PUT_WORD(ptr, value)	{*(ptr)++ = value; *(ptr)++ = value >> 8;}
+#define PUT(ptr, value)		*(ptr)++ = value;
+
+static SSHORT convert(ULONG, UCHAR *);
+static STATUS merge_setup(UCHAR **, UCHAR **, UCHAR *, USHORT);
+
+
+USHORT DLL_EXPORT MERGE_database_info(
+									  UCHAR * in,
+									  UCHAR * out,
+									  USHORT out_length,
+									  USHORT impl,
+USHORT class_, USHORT base_level, UCHAR * version, UCHAR * id, ULONG mask)
+{
+/**************************************
+ *
+ *	M E R G E _ d a t a b a s e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Merge server / remote interface / Y-valve information into
+ *	database block.  Return the actual length of the packet.
+ *
+ **************************************/
+	SSHORT length, l;
+	UCHAR *start, *end, *p;
+
+	start = out;
+	end = out + out_length;
+
+	for (;;)
+		switch (*out++ = *in++) {
+		case gds_info_end:
+		case gds_info_truncated:
+			return out - start;
+
+		case gds_info_version:
+			l = strlen((char *) (p = version));
+			if (merge_setup(&in, &out, end, l + 1))
+				return 0;
+			if ((*out++ = (UCHAR) l) != NULL)
+				do
+					*out++ = *p++;
+				while (--l);
+			break;
+
+		case gds_info_db_id:
+			l = strlen((SCHAR *) (p = id));
+			if (merge_setup(&in, &out, end, l + 1))
+				return 0;
+			if ((*out++ = (UCHAR) l) != NULL)
+				do
+					*out++ = *p++;
+				while (--l);
+			break;
+
+		case gds_info_implementation:
+			if (merge_setup(&in, &out, end, 2))
+				return 0;
+			PUT(out, (UCHAR) impl);
+			PUT(out, (UCHAR) class_);
+			break;
+
+		case gds_info_base_level:
+			if (merge_setup(&in, &out, end, 1))
+				return 0;
+			PUT(out, (UCHAR) base_level);
+			break;
+
+		default:
+			length = (SSHORT) gds__vax_integer(in, 2);
+			in += 2;
+			if (out + length + 2 >= end) {
+				out[-1] = gds_info_truncated;
+				return 0;
+			}
+			PUT_WORD(out, (UCHAR) length);
+			if (length)
+				do
+					*out++ = *in++;
+				while (--length);
+			break;
+		}
+}
+
+
+static SSHORT convert( ULONG number, UCHAR * buffer)
+{
+/**************************************
+ *
+ *	c o n v e r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Convert a number to VAX form -- least significant bytes first.
+ *	Return the length.
+ *
+ **************************************/
+	ULONG n;
+	UCHAR *p;
+
+#ifdef VAX
+	n = number;
+	p = (UCHAR *) & n;
+	*buffer++ = *p++;
+	*buffer++ = *p++;
+	*buffer++ = *p++;
+	*buffer++ = *p++;
+
+#else
+
+	p = (UCHAR *) & number;
+	p += 3;
+	*buffer++ = *p--;
+	*buffer++ = *p--;
+	*buffer++ = *p--;
+	*buffer++ = *p;
+
+#endif
+
+	return 4;
+}
+
+
+static STATUS merge_setup(
+						  UCHAR ** in,
+						  UCHAR ** out, UCHAR * end, USHORT delta_length)
+{
+/**************************************
+ *
+ *	m e r g e _ s e t u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get ready to toss new stuff onto an info packet.  This involves
+ *	picking up and bumping the "count" field and copying what is
+ *	already there.
+ *
+ **************************************/
+	USHORT length, new_length, count;
+
+	length = (USHORT) gds__vax_integer(*in, 2);
+	new_length = length + delta_length;
+
+	if (*out + new_length + 2 >= end) {
+		(*out)[-1] = gds_info_truncated;
+		return FAILURE;
+	}
+
+	*in += 2;
+	count = 1 + *(*in)++;
+	PUT_WORD(*out, (UCHAR) new_length);
+	PUT(*out, (UCHAR) count);
+
+/* Copy data portion of information sans original count */
+
+	if (--length)
+		do
+			*(*out)++ = *(*in)++;
+		while (--length);
+
+	return SUCCESS;
+}
diff --git a/src/remote/merge_proto.h b/src/remote/merge_proto.h
new file mode 100644
index 0000000000..1a26fb42a4
--- /dev/null
+++ b/src/remote/merge_proto.h
@@ -0,0 +1,31 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		merge_proto.h
+ *	DESCRIPTION:	Prototpe header file for merge.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_MERGE_PROTO_H_
+#define _REMOTE_MERGE_PROTO_H_
+
+extern USHORT DLL_EXPORT MERGE_database_info (UCHAR *, UCHAR *, USHORT, USHORT,
+					      USHORT, USHORT, UCHAR *, UCHAR *,
+					      ULONG);
+
+#endif /* _REMOTE_MERGE_PROTO_H */ 
diff --git a/src/remote/mgr.cpp b/src/remote/mgr.cpp
new file mode 100644
index 0000000000..98d1b3535c
--- /dev/null
+++ b/src/remote/mgr.cpp
@@ -0,0 +1,116 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		mgr.c
+ *	DESCRIPTION:	Remote Manager
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+
+#include "../include/jrd/gds.h"
+#include "../remote/remote.h"
+#include "../jrd/license.h"
+#include "../remote/ambx_proto.h"
+
+
+void main( int argc, char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	PORT port;
+	UCHAR mailbox[256];
+
+	AMBX_mailbox("//frank", mailbox);
+	port = init_connection(mailbox);
+}
+
+
+static PORT init_connection( UCHAR * node)
+{
+/**************************************
+ *
+ *	i n i t _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish connection to remote server.
+ *
+ **************************************/
+	PORT port;
+	PACKET packet;
+	P_CNCT *connect;
+	STATUS status_vector[20];
+	p_cnct::p_cnct_repeat * protocol;
+
+/* Establish connection to server.  Start by telling the server about
+   the protocols that we know.  The server will then pick at most one. */
+
+	connect = &packet.p_cnct;
+	packet.p_operation = op_connect;
+	connect->p_cnct_operation = op_attach;
+	connect->p_cnct_cversion = CONNECT_VERSION2;
+	connect->p_cnct_client = ARCHITECTURE;
+	connect->p_cnct_file.cstr_length = 0;
+	connect->p_cnct_file.cstr_address = 0;
+	connect->p_cnct_user_id.cstr_length = 0;
+	connect->p_cnct_user_id.cstr_address = NULL;
+	protocol = connect->p_cnct_versions;
+	connect->p_cnct_count = 1;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION4;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = ptype_batch_send;
+	protocol->p_cnct_weight = 2;
+
+/* If we can't talk to a server, punt.  Let somebody else generate
+   an error. */
+
+	if (!(port = AMBX_connect(node, strlen(node), &packet, status_vector)))
+		return NULL;
+
+/* Get response packet from server. */
+
+	port->receive(&packet);
+
+	if (packet.p_operation != op_accept) {
+		ib_fprintf(ib_stderr, "remote server refused connection\n");
+		return NULL;
+	}
+
+/* The server has picked a protocol.  Find out which. */
+
+	port->port_protocol = packet.p_acpt.p_acpt_version;
+
+	if (packet.p_acpt.p_acpt_architecture == ARCHITECTURE)
+		port->port_flags |= PORT_symmetric;
+
+	if (packet.p_acpt.p_acpt_type == ptype_rpc)
+		port->port_flags |= PORT_rpc;
+
+	return port;
+}
diff --git a/src/remote/multivx.cpp b/src/remote/multivx.cpp
new file mode 100644
index 0000000000..08e2b43922
--- /dev/null
+++ b/src/remote/multivx.cpp
@@ -0,0 +1,781 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		winvx.c
+ *	DESCRIPTION:	Interface to Wollongong TCP
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include stdio
+#include iodef
+#include descrip
+#include libdtdef.h
+#include "../jrd/common.h"
+#include "../remote/tcptypes.h"
+
+#ifndef	__ALPHA
+#include "zenda::multinet_root:[multinet.include.sys]types.h"
+#include "zenda::multinet_root:[multinet.include.sys]time.h"
+#include "zenda::multinet_root:[multinet.include.sys]socket.h"
+#include "zenda::multinet_root:[multinet.include.netinet]in.h"
+#include "zenda::multinet_root:[multinet.include]errno.h"
+#include "zenda::multinet_root:[multinet.include]netdb.h"
+#include "zenda::multinet_root:[multinet.include.vms]inetiodef.h"
+#else
+#include "multinet_root:[multinet.include.sys]types.h"
+#include "multinet_root:[multinet.include.sys]time.h"
+#include "multinet_root:[multinet.include.sys]socket.h"
+#include "multinet_root:[multinet.include.netinet]in.h"
+#include "multinet_root:[multinet.include]errno.h"
+#include "multinet_root:[multinet.include]netdb.h"
+#include "multinet_root:[multinet.include.vms]inetiodef.h"
+#endif
+
+#define	SELECT_READABLE		2
+#define	SELECT_WRITEABLE	4
+#define	SELECT_EXCEPTION	8
+
+#define ERRNO(status)	(0x7fff & status) >> 3
+#define INET0		"_INET0:"
+#define EVENT_FLAG	15
+#define MAXH_ERRNO	4
+/* extern			gds__completion_ast(); */
+
+extern int h_errno;
+
+static int assign(SCHAR *);
+static int error_check(int, SSHORT *);
+static void select_completion_ast(int *);
+
+static (*isc_wait_ptr) ();
+static (*completion_ptr) ();
+
+static int h_errlist[] = {
+	0,
+	60,							/* host not found = connection timed out */
+	64,							/* server fail = host is down */
+	53,							/* no recovery = connection aborted */
+	65							/* no data = no route to host */
+};
+
+static int numsel = 0;			/* number of outstanding selects */
+
+
+int ISC_tcp_accept( int s, struct sockaddr *addr, int addrlen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ a c c e p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept a connection on a socket.
+ *
+ **************************************/
+	int status, new;
+	SSHORT iosb[4];
+	struct {
+		SSHORT hack_length;
+		struct sockaddr_in hack_address;
+	} hack;
+
+/* Wait for incoming connection. */
+
+	status = sys$qio(EVENT_FLAG,
+					 s,
+					 IO$_ACCEPT_WAIT,
+					 iosb, completion_ptr, iosb, 0, 0, 0, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+/* Establish new connection */
+
+	if (!(new = assign(INET0)))
+		return -1;
+
+/* Attach new connection to new channel */
+
+	status = sys$qio(EVENT_FLAG, new, IO$_ACCEPT, iosb, completion_ptr, iosb,
+					 &hack.hack_length,
+					 sizeof(hack.hack_length) + sizeof(hack.hack_address),
+					 s, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return new;
+}
+
+
+int ISC_tcp_bind( int s, struct sockaddr *name, int namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ b i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Bind a name to a socket.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qio(EVENT_FLAG, s, IO$_BIND, iosb, completion_ptr, iosb,
+					 name, namelen, 0, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return 0;
+}
+
+
+int ISC_tcp_connect( int s, struct sockaddr *name, int namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initiate a connection on a socket.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qio(EVENT_FLAG, s, IO$_CONNECT, iosb, completion_ptr, iosb,
+					 name, namelen, 0, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return 0;
+}
+
+
+int ISC_tcp_getaddr( SCHAR * name, struct sockaddr_in *addr)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t a d d r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Load sockaddr based on hostname name.
+ *
+ **************************************/
+	struct hostent *host;
+
+	if (!(host = gethostbyname(name)))
+		return -1;
+
+	addr->sin_family = host->h_addrtype;
+	bcopy(host->h_addr, &(addr->sin_addr), sizeof(addr->sin_addr));
+	return 0;
+}
+
+
+int ISC_tcp_geterrno(void)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t e r r n o
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return errno;
+}
+
+
+struct hostent *ISC_tcp_gethostbyaddr(SCHAR * address, int length, int family)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t h o s t b y a d d r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	struct hostent *h;
+
+/* return gethostbyaddr (address, length, family); */
+
+	if (!(h = gethostbyaddr(address, length, family)) &&
+		(0 < h_errno) && (h_errno <= MAXH_ERRNO))
+		errno = h_errlist[h_errno];
+
+	return h;
+}
+
+
+struct hostent *ISC_tcp_gethostbyname(SCHAR * name)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t h o s t b y n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	struct hostent *h;
+
+/* return gethostbyname (name); */
+
+	if (!(h = gethostbyname(name)) &&
+		(0 < h_errno) && (h_errno <= MAXH_ERRNO)) errno = h_errlist[h_errno];
+
+	return h;
+}
+
+
+int ISC_tcp_gethostname( SCHAR * name, int namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t h o s t n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get host name.
+ *
+ **************************************/
+
+	return gethostname(name, namelen);
+}
+
+
+void ISC_tcp_gethosts( SCHAR * filename)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t h o s t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get hosts.equiv filename.
+ *
+ **************************************/
+
+	strcpy(filename, "MULTINET:HOSTS.EQUIV");
+}
+
+
+int ISC_tcp_getnamebyaddr(
+						  struct sockaddr_in *addr, int addrlen, SCHAR * name)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t n a m e b y a d d r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get hostname that matches address.
+ *
+ **************************************/
+	struct hostent *host;
+
+	if (!(host = gethostbyaddr(&(addr->sin_addr), sizeof(addr->sin_addr),
+							   addr->sin_family))) return -1;
+
+	strcpy(name, host->h_name);
+	return 0;
+}
+
+
+int ISC_tcp_getpeername( int s, struct sockaddr *name, int *namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t p e e r n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get name (i.e. port) of peer.
+ *
+ **************************************/
+
+	return getpeername(s, name, namelen);
+}
+
+
+struct servent *ISC_tcp_getservbyname(SCHAR * name, SCHAR * proto)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t s e r v b y n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up a protocol by name.
+ *
+ **************************************/
+
+	return getservbyname(name, proto);
+}
+
+
+int ISC_tcp_getservport( SCHAR * name, SCHAR * proto, SSHORT * portnum)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t s e r v p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up a protocol by name.
+ *
+ **************************************/
+	struct servent *service;
+
+	if (!(service = getservbyname(name, proto)))
+		return -1;
+
+	*portnum = service->s_port;
+	return 0;
+}
+
+
+int ISC_tcp_getsockname( int s, struct sockaddr *name, int *namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t s o c k n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get name (i.e. port) of socket.
+ *
+ **************************************/
+
+	return getsockname(s, name, namelen);
+}
+
+
+int ISC_tcp_gettype(void)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t t y p e
+ *
+ **************************************
+ *
+ *	Return a value to the caller
+ *	saying this is multinet
+ *
+ **************************************/
+
+	return TCP_TYPE_MULTINET;
+}
+
+
+int ISC_tcp_listen( int s, int backlog)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ l i s t e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Listen for connections on a socket.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qio(EVENT_FLAG, s, IO$_LISTEN, iosb, completion_ptr, iosb,
+					 backlog, 0, 0, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return 0;
+}
+
+
+int ISC_tcp_recv( int s, SCHAR * buf, int len, int flags)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ r e c v
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message  from a socket.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qio(EVENT_FLAG, s, IO$_READVBLK, iosb, completion_ptr, iosb,
+					 buf, len, 0, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return iosb[1];
+}
+
+
+int ISC_tcp_select(
+				   int width,
+				   fd_set * read,
+				   fd_set * write, fd_set * except, struct timeval *timeout)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s e l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Synchronous I/O multiplexing.
+ *	This function starts up as many
+ *	select qio's as there are channels
+ *	specified.   The ast gathers the
+ *	resulting information.   This also
+ *	sets a timer, and when the timer
+ *	expires, it cancels any outstanding
+ *	requests.
+ *
+ **************************************/
+	int channel;
+	int numchan;
+	int numresult;
+	SLONG results[FD_SETSIZE];
+	int mode;
+	int status;
+	int timer[2];
+	int seconds;
+	int action;
+	SSHORT iosb[4];
+
+/* initialize all the static stuff used by the ast */
+
+	numsel = 0;
+
+/* for each channel, see if it requires any I/O, and if so, clear the
+   applicable fd_set bit, set up a qio, and issue it */
+
+	numchan = 0;
+	for (channel = 0; channel < width && channel < FD_SETSIZE; channel++) {
+		results[channel] = 0;
+		if (read && FD_ISSET(channel, read)) {
+			results[channel] |= SELECT_READABLE;
+		}
+		if (write && FD_ISSET(channel, write)) {
+			results[channel] |= SELECT_WRITEABLE;
+		}
+		if (except && FD_ISSET(channel, except)) {
+			results[channel] |= SELECT_EXCEPTION;
+		}
+		if (results[channel]) {
+			numchan++;
+			numsel++;
+			status = sys$qio(EVENT_FLAG, channel, IO$_SELECT, iosb, select_completion_ast, channel,	/* ast argument */
+							 &results[channel],	/* p1 */
+							 0, 0, 0, 0, 0);
+			if (!(status & 1))
+				return -1;
+		}
+	}
+
+/* if there's a timeout specified, start a timer */
+
+	if (timeout) {
+		/* convert any timeout to vms timer */
+
+		mode = LIB$K_DELTA_SECONDS;
+		seconds = timeout->tv_sec;
+		lib$cvt_to_internal_time(&mode, &seconds, &timer);
+		mode = timer[0] & 0x80000000;
+		timer[0] = timer[0] - (timeout->tv_usec * 10);
+		if (!mode && (timer[0] & 0x80000000))
+			timer[1]--;
+		sys$schdwk(NULL, NULL, &timer, NULL);
+	}
+
+/* wait for completion or timeout */
+
+	sys$hiber();
+
+/* for each channel, see if there was anything to do, and if so,
+   find the result and transfer it to the outgoing fd sets */
+
+	numresult = 0;
+	for (channel = 0; channel < width && channel < FD_SETSIZE; channel++) {
+		mode = 0;
+		action = 0;
+		if (read && FD_ISSET(channel, read)) {
+			mode++;
+			if (results[channel] & SELECT_READABLE)
+				action++;
+			else
+				FD_CLR(channel, read);
+		}
+		if (write && FD_ISSET(channel, write)) {
+			mode++;
+			if (results[channel] & SELECT_WRITEABLE)
+				action++;
+			else
+				FD_CLR(channel, write);
+		}
+		if (except && FD_ISSET(channel, except)) {
+			mode++;
+			if (results[channel] & SELECT_EXCEPTION)
+				action++;
+			else
+				FD_CLR(channel, except);
+		}
+		if (mode) {
+			sys$cancel(channel);
+			if (action)
+				numresult++;
+		}
+	}
+
+	return numresult;
+}
+
+
+int ISC_tcp_send( int s, SCHAR * buf, int len, int flags)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s e n d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a message from a socket.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qio(EVENT_FLAG, s, IO$_WRITEVBLK, iosb, completion_ptr, iosb,	/* ast argument */
+					 buf,		/* p1 */
+					 len,		/* p2 */
+					 flags,		/* p3 */
+					 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return iosb[1];
+}
+
+
+int ISC_tcp_setsockopt(
+					   int s,
+					   int level, int optname, SCHAR * optval, int optlen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s e t s o c k o p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set options on sockets.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qiow(EVENT_FLAG, s, IO$_SETSOCKOPT, iosb, completion_ptr, iosb,	/* ast argument */
+					  level,	/* p1 */
+					  optname,	/* p2 */
+					  optval,	/* p3 */
+					  optlen,	/* p4 */
+					  0, 0);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return 0;
+}
+
+
+void ISC_tcp_setup( int (*waitaddr) (), int (*astaddr) ())
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s e t u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fill in routine pointers (so we're not gdsshr-dependents!)
+ *
+ **************************************/
+
+	isc_wait_ptr = waitaddr;
+	completion_ptr = astaddr;
+}
+
+
+int ISC_tcp_socket( int af, int type, int protocol)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s o c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an endpoint for communication.
+ *
+ **************************************/
+	int s, status;
+	SSHORT iosb[4];
+
+	if (!(s = assign(INET0)))
+		return -1;
+
+	status = sys$qio(EVENT_FLAG, s, IO$_SOCKET, iosb, completion_ptr, iosb,
+					 af, type, 0, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return s;
+}
+
+
+static int assign( SCHAR * string)
+{
+/**************************************
+ *
+ *	a s s i g n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Assign a channel for communications.
+ *
+ **************************************/
+	SSHORT channel;
+	int status;
+	struct dsc$descriptor_s desc;
+
+	desc.dsc$b_dtype = DSC$K_DTYPE_T;
+	desc.dsc$b_class = DSC$K_CLASS_S;
+	desc.dsc$w_length = strlen(string);
+	desc.dsc$a_pointer = string;
+
+	status = sys$assign(&desc, &channel, NULL, NULL);
+
+	return (status & 1) ? channel : 0;
+}
+
+
+static int error_check( int status, SSHORT * iosb)
+{
+/**************************************
+ *
+ *	e r r o r _ c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check both a return status and IOSB (if present) for errors.  If
+ *	an error occured, set up "errno" and return FAILURE.
+ *
+ **************************************/
+
+	if (!(status & 1)) {
+		errno = 5;
+		return FAILURE;
+	}
+
+	if (!iosb || (iosb[0] & 1))
+		return SUCCESS;
+
+	errno = ERRNO(iosb[0]);
+
+	return FAILURE;
+}
+
+
+static void select_completion_ast( int *arg)
+{
+/**************************************
+ *
+ *      s e l e c t _ c o m p l e t i o n _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      An asynchronous operation has completed.
+ *	If this was the last outstanding I/O,
+ *	wake up.
+ *
+ **************************************/
+
+	numsel--;
+	if (!numsel)
+		sys$wake();
+}
diff --git a/src/remote/neterr.h b/src/remote/neterr.h
new file mode 100644
index 0000000000..60c8f6f7f4
--- /dev/null
+++ b/src/remote/neterr.h
@@ -0,0 +1,249 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		neterr.h
+ *	DESCRIPTION:	Common network error message handling
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_NETERR_H_
+#define _REMOTE_NETERR_H_
+
+#define TCP_ERROR_BEG   WSABASEERR
+#define TCP_ERROR_END   (TCP_ERROR_BEG + 10000L)
+#define SPX_ERROR_BEG   20000L
+#define SPX_ERROR_END   (SPX_ERROR_BEG + 10000L)
+#define WNP_ERROR_BEG   30000L
+#define WNP_ERROR_END   (WNP_ERROR_BEG + 10000L)
+
+#ifndef REMOTE_REMOTE_H
+
+#include <winsock.h>
+#include <nxtw.h>
+#include <nwerror.h>
+#define INCL_ERRORS
+#include <bseerr.h>
+
+#define dos_tcp_wsaeconnrefused                   0
+#define dos_tcp_wsaeintr                          1
+#define dos_tcp_wsaebadf                         -1
+#define dos_tcp_wsaeacces                        -1
+#define dos_tcp_wsaefault                        -1
+#define dos_tcp_wsaeinval                        -1
+#define dos_tcp_wsaemfile                         2
+#define dos_tcp_wsaenametoolong                  -1
+#define dos_tcp_wsaenotsock                      -1
+#define dos_tcp_wsaedestaddrreq                  -1
+#define dos_tcp_wsaemsgsize                       3
+#define dos_tcp_wsaeprototype                    -1
+#define dos_tcp_wsaenoprotoopt                   -1
+#define dos_tcp_wsaeprotonosupport                4
+#define dos_tcp_wsaesocktnosupport                5
+#define dos_tcp_wsaeopnotsupp                     6
+#define dos_tcp_wsaepfnosupport                   7
+#define dos_tcp_wsaeafnosupport                   8
+#define dos_tcp_wsaeaddrinuse                     9
+#define dos_tcp_wsaeaddrnotavail                 10
+#define dos_tcp_wsaenetdown                      11
+#define dos_tcp_wsaenetunreach                   12
+#define dos_tcp_wsaenetreset                     13
+#define dos_tcp_wsaeconnaborted                  14
+#define dos_tcp_wsaeconnreset                    15
+#define dos_tcp_wsaenobufs                       16 
+#define dos_tcp_wsaeisconn                       17
+#define dos_tcp_wsaenotconn                      18
+#define dos_tcp_wsaeshutdown                     19
+#define dos_tcp_wsaetoomanyrefs                  -1
+#define dos_tcp_wsaetimedout                     20
+#define dos_tcp_wsaehostdown                     21
+#define dos_tcp_wsaehostunreach                  22
+#define dos_tcp_wsaealready                      23
+#define dos_tcp_wsaeinprogress                   24
+#define dos_tcp_wsaewouldblock                   25
+#define dos_tcp_wsaeloop                         -1
+#define dos_tcp_wsasysnotready                   26
+#define dos_tcp_wsavernotsupported               27
+#define dos_tcp_wsanotinitialised                28
+
+#define dos_spx_name_not_found                   29
+#define dos_spx_not_initialized                  30
+#define dos_spx_connection_terminated            31
+#define dos_spx_no_answer_from_target            32
+#define dos_spx_invalid_connection               33
+#define dos_spx_connection_table_full            34
+#define dos_spx_socket_closed                    35
+#define dos_spx_malformed_packet                 36
+#define dos_spx_socket_not_opened                37
+#define dos_spx_no_dos_memory                    49
+#define dos_spx_no_free_ecb                      50
+#define dos_spx_lock_failed                      51
+#define dos_spx_over_max_limit                   52
+#define dos_spx_prev_init                        53
+
+#define dos_wnp_bad_pipe                         38
+#define dos_wnp_invalid_handle                   -1
+#define dos_wnp_not_enough_memory                39
+#define dos_wnp_bad_length                       40
+#define dos_wnp_broken_pipe                      41
+#define dos_wnp_insufficient_buffer              42
+#define dos_wnp_network_busy                     43
+#define dos_wnp_no_proc_slots                    44
+#define dos_wnp_file_not_found                   45
+#define dos_wnp_path_not_found                   46
+#define dos_wnp_pipe_busy                        47
+#define dos_wnp_invalid_parameter                -1
+#define dos_wnp_dev_not_exist                    48
+#define dos_wnp_rem_not_list		                54
+#define dos_wnp_dup_name			                55
+#define dos_wnp_bad_netpath		                56
+#define dos_wnp_too_many_cmds		                57
+#define dos_wnp_adap_hdw_err		                58
+#define dos_wnp_bad_net_resp		                59
+#define dos_wnp_unexp_net_err		                60
+#define dos_wnp_bad_rem_adap		                61
+#define dos_wnp_netname_deleted		             62  
+#define dos_wnp_network_access_denied            63  
+#define dos_wnp_bad_dev_type		                64
+#define dos_wnp_bad_net_name		                65
+#define dos_wnp_too_many_names		             66  
+#define dos_wnp_too_many_sess		                67
+#define dos_wnp_req_not_accep		                68
+#define dos_wnp_net_write_fault		             69  
+#define dos_wnp_pipe_not_connected	             70  
+
+
+#define MAP_NETWORK_ERROR(code)                                              \
+   (((code) >= TCP_ERROR_BEG && (code) <= TCP_ERROR_END) ?                   \
+                                 MAP_TCP_ERROR((code))                     : \
+    ((code) >= SPX_ERROR_BEG && (code) <= SPX_ERROR_END) ?                   \
+                                 MAP_SPX_ERROR((code) - SPX_ERROR_BEG)     : \
+    ((code) >= WNP_ERROR_BEG && (code) <= WNP_ERROR_END) ?                   \
+                                 MAP_WNP_ERROR((code) - WNP_ERROR_BEG)     : \
+                                 -2)
+
+#define SUB_NETWORK_BASE(code)                                               \
+   (((code) >= TCP_ERROR_BEG && (code) <= TCP_ERROR_END) ?                   \
+                                 ((code))                                  : \
+    ((code) >= SPX_ERROR_BEG && (code) <= SPX_ERROR_END) ?                   \
+                                 ((code) - SPX_ERROR_BEG)                  : \
+    ((code) >= WNP_ERROR_BEG && (code) <= WNP_ERROR_END) ?                   \
+                                 ((code) - WNP_ERROR_BEG)                  : \
+                                 0)
+
+#define MAP_TCP_ERROR(code)                                                  \
+   (code == WSAECONNREFUSED                ? dos_tcp_wsaeconnrefused       : \
+    code == WSAEINTR                       ? dos_tcp_wsaeintr              : \
+    code == WSAEBADF                       ? dos_tcp_wsaebadf              : \
+    code == WSAEACCES                      ? dos_tcp_wsaeacces             : \
+    code == WSAEFAULT                      ? dos_tcp_wsaefault             : \
+    code == WSAEINVAL                      ? dos_tcp_wsaeinval             : \
+    code == WSAEMFILE                      ? dos_tcp_wsaemfile             : \
+    code == WSAENAMETOOLONG                ? dos_tcp_wsaenametoolong       : \
+    code == WSAENOTSOCK                    ? dos_tcp_wsaenotsock           : \
+    code == WSAEDESTADDRREQ                ? dos_tcp_wsaedestaddrreq       : \
+    code == WSAEMSGSIZE                    ? dos_tcp_wsaemsgsize           : \
+    code == WSAEPROTOTYPE                  ? dos_tcp_wsaeprototype         : \
+    code == WSAENOPROTOOPT                 ? dos_tcp_wsaenoprotoopt        : \
+    code == WSAEPROTONOSUPPORT             ? dos_tcp_wsaeprotonosupport    : \
+    code == WSAESOCKTNOSUPPORT             ? dos_tcp_wsaesocktnosupport    : \
+    code == WSAEOPNOTSUPP                  ? dos_tcp_wsaeopnotsupp         : \
+    code == WSAEPFNOSUPPORT                ? dos_tcp_wsaepfnosupport       : \
+    code == WSAEAFNOSUPPORT                ? dos_tcp_wsaeafnosupport       : \
+    code == WSAEADDRINUSE                  ? dos_tcp_wsaeaddrinuse         : \
+    code == WSAEADDRNOTAVAIL               ? dos_tcp_wsaeaddrnotavail      : \
+    code == WSAENETDOWN                    ? dos_tcp_wsaenetdown           : \
+    code == WSAENETUNREACH                 ? dos_tcp_wsaenetunreach        : \
+    code == WSAENETRESET                   ? dos_tcp_wsaenetreset          : \
+    code == WSAECONNABORTED                ? dos_tcp_wsaeconnaborted       : \
+    code == WSAECONNRESET                  ? dos_tcp_wsaeconnreset         : \
+    code == WSAENOBUFS                     ? dos_tcp_wsaenobufs            : \
+    code == WSAEISCONN                     ? dos_tcp_wsaeisconn            : \
+    code == WSAENOTCONN                    ? dos_tcp_wsaenotconn           : \
+    code == WSAESHUTDOWN                   ? dos_tcp_wsaeshutdown          : \
+    code == WSAETOOMANYREFS                ? dos_tcp_wsaetoomanyrefs       : \
+    code == WSAETIMEDOUT                   ? dos_tcp_wsaetimedout          : \
+    code == WSAEHOSTDOWN                   ? dos_tcp_wsaehostdown          : \
+    code == WSAEHOSTUNREACH                ? dos_tcp_wsaehostunreach       : \
+    code == WSAEALREADY                    ? dos_tcp_wsaealready           : \
+    code == WSAEINPROGRESS                 ? dos_tcp_wsaeinprogress        : \
+    code == WSAEWOULDBLOCK                 ? dos_tcp_wsaewouldblock        : \
+    code == WSAELOOP                       ? dos_tcp_wsaeloop              : \
+    code == WSASYSNOTREADY                 ? dos_tcp_wsasysnotready        : \
+    code == WSAVERNOTSUPPORTED             ? dos_tcp_wsavernotsupported    : \
+    code == WSANOTINITIALISED              ? dos_tcp_wsanotinitialised     : \
+                                             -1)
+
+#define MAP_SPX_ERROR(code)                                                  \
+   (code == (INVALID_CONNECTION - 30000)   ? dos_spx_name_not_found        : \
+    code == (NO_SUCH_SEGMENT    - 30000)   ? dos_spx_name_not_found        : \
+    code == (NO_SUCH_PROPERTY   - 30000)   ? dos_spx_name_not_found        : \
+    code == (NO_SUCH_OBJECT     - 30000)   ? dos_spx_name_not_found        : \
+    code == IPXSPX_NOT_INIT                ? dos_spx_not_initialized       : \
+    code == SPX_CONNECTION_TERMINATED      ? dos_spx_connection_terminated : \
+    code == SPX_NO_ANSWER_FROM_TARGET      ? dos_spx_no_answer_from_target : \
+    code == SPX_INVALID_CONNECTION         ? dos_spx_invalid_connection    : \
+    code == SPX_CONNECTION_TABLE_FULL      ? dos_spx_connection_table_full : \
+    code == 0xFC /* SPX_SOCKET_CLOSED */   ? dos_spx_socket_closed         : \
+    code == SPX_MALFORMED_PACKET           ? dos_spx_malformed_packet      : \
+    code == SPX_SOCKET_NOT_OPENED          ? dos_spx_socket_not_opened     : \
+    code == NO_DOS_MEMORY                  ? dos_spx_no_dos_memory         : \
+    code == NO_FREE_ECB                    ? dos_spx_no_free_ecb           : \
+    code == WINLOCK_FAILED                 ? dos_spx_lock_failed           : \
+    code == OVER_MAX_LIMIT                 ? dos_spx_over_max_limit        : \
+    code == IPXSPX_PREV_INIT               ? dos_spx_prev_init             : \
+                                             -1)
+
+/* Note:  The constant for SPX_SOCKET_CLOSED was not found in the headers,
+   but the value 0xFC is described in the documentation */
+
+#define MAP_WNP_ERROR(code)                                                  \
+   (code == ERROR_BAD_PIPE                 ? dos_wnp_bad_pipe              : \
+    code == ERROR_INVALID_HANDLE           ? dos_wnp_invalid_handle        : \
+    code == ERROR_NOT_ENOUGH_MEMORY        ? dos_wnp_not_enough_memory     : \
+    code == ERROR_BAD_LENGTH               ? dos_wnp_bad_length            : \
+    code == ERROR_BROKEN_PIPE              ? dos_wnp_broken_pipe           : \
+    code == ERROR_INSUFFICIENT_BUFFER      ? dos_wnp_insufficient_buffer   : \
+    code == ERROR_NETWORK_BUSY             ? dos_wnp_network_busy          : \
+    code == ERROR_NO_PROC_SLOTS            ? dos_wnp_no_proc_slots         : \
+    code == ERROR_FILE_NOT_FOUND           ? dos_wnp_file_not_found        : \
+    code == ERROR_PATH_NOT_FOUND           ? dos_wnp_path_not_found        : \
+    code == ERROR_PIPE_BUSY                ? dos_wnp_pipe_busy             : \
+    code == ERROR_UNEXP_NET_ERR            ? dos_wnp_unexp_net_err         : \
+    code == ERROR_INVALID_PARAMETER        ? dos_wnp_invalid_parameter     : \
+    code == ERROR_DEV_NOT_EXIST            ? dos_wnp_dev_not_exist         : \
+    code == ERROR_REM_NOT_LIST		       ? dos_wnp_rem_not_list		      : \
+    code == ERROR_DUP_NAME			          ? dos_wnp_dup_name			      : \
+    code == ERROR_BAD_NETPATH		          ? dos_wnp_bad_netpath		      : \
+    code == ERROR_TOO_MANY_CMDS		       ? dos_wnp_too_many_cmds		   : \
+    code == ERROR_ADAP_HDW_ERR		       ? dos_wnp_adap_hdw_err		      : \
+    code == ERROR_BAD_NET_RESP		       ? dos_wnp_bad_net_resp		      : \
+    code == ERROR_UNEXP_NET_ERR		       ? dos_wnp_unexp_net_err		   : \
+    code == ERROR_BAD_REM_ADAP		       ? dos_wnp_bad_rem_adap		      : \
+    code == ERROR_NETNAME_DELETED		    ? dos_wnp_netname_deleted		   : \
+    code == ERROR_NETWORK_ACCESS_DENIED    ? dos_wnp_network_access_denied : \
+    code == ERROR_BAD_DEV_TYPE		       ? dos_wnp_bad_dev_type		      : \
+    code == ERROR_BAD_NET_NAME		       ? dos_wnp_bad_net_name		      : \
+    code == ERROR_TOO_MANY_NAMES		       ? dos_wnp_too_many_names		   : \
+    code == ERROR_TOO_MANY_SESS		       ? dos_wnp_too_many_sess		   : \
+    code == ERROR_REQ_NOT_ACCEP		       ? dos_wnp_req_not_accep		   : \
+    code == ERROR_NET_WRITE_FAULT		    ? dos_wnp_net_write_fault		   : \
+    code == ERROR_PIPE_NOT_CONNECTED	    ? dos_wnp_pipe_not_connected	   : \
+                                             -1)
+#endif /* REMOTE_REMOTE_H */
+
+#endif /* _REMOTE_NETERR_H_ */
diff --git a/src/remote/netwcon.cpp b/src/remote/netwcon.cpp
new file mode 100644
index 0000000000..4712336d2e
--- /dev/null
+++ b/src/remote/netwcon.cpp
@@ -0,0 +1,289 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include <nwsnut.h>
+#include <time.h>
+#include <signal.h>
+#include <process.h>
+#include <conio.h>
+
+#define ALLOC_SIGNATURE 0x54524C41
+#define DB_LINE       3
+#define DB_COLUMN     0
+#define DB_HEIGHT     11
+#define DB_WIDTH      80
+#define DB_VHEIGHT    11
+#define DB_VWIDTH     80
+
+#define HELP_BOX				    0x0000
+#define UTILITY_MSG				 0x0000
+#define VERSION_40				 0x0001
+#define CONFIRM_HEADER  		 0x0002
+
+#define SCREEN_SAVER_TIMEOUT 60000
+
+SCHAR *hdr[] =
+	{ "Interbase Development v4.0 (c) 1993 - Borland International, Inc.",
+	"Information for InterBase"
+};
+
+SCHAR *message_table[] = {
+	"InterBase Server Dev (c) 1993",
+	"v4.0",
+	"Available Options"
+};
+
+SCHAR help[500];
+
+ULONG nlm_handle;
+NUTInfo *handle;
+ULONG alloc_tag;
+
+ULONG header_portal_number;
+PCB *header_portal_ptr;
+
+int screen_id;
+WORD screen_height;
+WORD screen_width;
+
+ULONG saver_column = 0;
+ULONG saver_portal_number;
+PCB *saver_portal_ptr;
+ULONG saver_line = 0;
+SCHAR screen_saver_on = 0;
+
+PCB *main_portal_ptr;
+ULONG main_portal_number;
+
+SCHAR console_active = 0;;
+SCHAR console_exit = 0;
+SCHAR menu_active = 0;
+
+void main(void);
+void main_menu(void);
+int main_action(int option, void *junk);
+void console_processor(void);
+void menu_processor(void);
+void remove_screen_saver(void);
+void screen_saver(void);
+void update_screen_saver(void);
+void terminate_console(int sig);
+
+void main()
+{
+	ULONG pal;
+
+	nlm_handle = GetNLMHandle();
+	screen_id = GetCurrentScreen();
+	alloc_tag = AllocateResourceTag(nlm_handle, "InterBase Monitor",
+									ALLOC_SIGNATURE);
+
+	NWSInitializeNut(UTILITY_MSG, VERSION_40, NO_HEADER,
+					 NUT_REVISION_LEVEL, &message_table,
+					 help, screen_id, alloc_tag, &handle);
+
+	pal = NWSGetScreenPalette(handle);
+
+	NWSSetScreenPalette(2, handle);
+
+	header_portal_number = NWSCreatePortal(0, 0,
+										   3, 80, 3,
+										   80, SAVE, 0, 0,
+										   SINGLE, VREVERSE, CURSOR_OFF,
+										   VIRTUAL, handle);
+
+	NWSGetPCB(&header_portal_ptr, header_portal_number, handle);
+	NWSClearPortal(header_portal_ptr);
+	NWSFillPortalZoneAttribute(0, 0, 2, 80, VREVERSE, header_portal_ptr);
+	NWSDisplayTextJustifiedInPortal(JCENTER, 0, 40, 0, hdr[0],
+									VREVERSE, header_portal_ptr);
+	NWSUpdatePortal(header_portal_ptr);
+	NWSFillPortalZoneAttribute(0, 0, 2, 80, VREVERSE, header_portal_ptr);
+
+
+	NWSUpdatePortal(header_portal_ptr);
+	NWSSetScreenPalette(pal, handle);
+	GetSizeOfScreen(&screen_height, &screen_width);
+
+	main_portal_number =
+		NWSCreatePortal(DB_LINE, DB_COLUMN, DB_HEIGHT, DB_WIDTH, DB_VHEIGHT,
+						DB_VWIDTH, SAVE, hdr[1], 0, SINGLE, 0, CURSOR_OFF,
+						VIRTUAL, handle);
+
+	NWSGetPCB(&(main_portal_ptr), main_portal_number, handle);
+	NWSUpdatePortal(main_portal_ptr);
+
+	signal(SIGTERM, terminate_console);
+	BeginThread((void *) console_processor, 0, 0, 0);
+	BeginThread((void *) menu_processor, 0, 0, 0);
+	ExitThread(TSR_THREAD, 0);
+	ExitThread(EXIT_NLM, 1);
+}
+
+void main_menu()
+{
+	NWSInitMenu(handle);
+	NWSSetDynamicMessage(DYNAMIC_MESSAGE_ONE, "Users", &handle->messages);
+	NWSAppendToMenu(DYNAMIC_MESSAGE_ONE, 1, handle);
+
+	NWSSetDynamicMessage(DYNAMIC_MESSAGE_TWO, "Databases", &handle->messages);
+	NWSAppendToMenu(DYNAMIC_MESSAGE_TWO, 1, handle);
+
+	NWSSetDynamicMessage(DYNAMIC_MESSAGE_THREE, "Resources",
+						 &handle->messages);
+	NWSAppendToMenu(DYNAMIC_MESSAGE_THREE, 1, handle);
+
+	NWSMenu(2, 18, 40, 0, main_action, handle, (void *) handle);
+}
+
+int main_action(int option, void *junk)
+{
+	switch (option) {
+	case 1:
+		RingTheBell();
+		RingTheBell();
+		break;
+	case 2:
+		RingTheBell();
+		RingTheBell();
+		RingTheBell();
+		break;
+	case 3:
+		RingTheBell();
+		RingTheBell();
+		RingTheBell();
+		RingTheBell();
+		break;
+	default:
+		return (0);
+	}
+	return (-1);
+}
+
+void terminate_console(int sig)
+{
+	console_exit = 1;
+
+	ConsolePrintf("1 ");
+	SetCurrentScreen(screen_id);
+	ConsolePrintf("2 ");
+	ungetch(27);
+	ConsolePrintf("3 ");
+	while (menu_active)
+		ThreadSwitch();
+	NWSDestroyMenu(handle);
+
+	if (screen_saver_on)
+		remove_screen_saver();
+
+	clrscr();
+
+	NWSDestroyPortal(header_portal_number, handle);
+
+	NWSDestroyPortal(main_portal_number, handle);
+
+	NWSRestoreNut(handle);
+
+	ConsolePrintf("4 ");
+	while (console_active)
+		ThreadSwitch();
+	ConsolePrintf("5 ");
+}
+
+void menu_processor()
+{
+	menu_active = 1;
+	ConsolePrintf("b4 main menu\n");
+	main_menu();
+	ConsolePrintf("after main menu\n");
+	while (!console_exit) {
+		ThreadSwitch();
+	}
+	menu_active = 0;
+	ConsolePrintf("exit main menu\n");
+}
+
+void console_processor()
+{
+	clock_t seconds;
+	clock_t prev_clock;
+	clock_t cur_clock;
+
+	prev_clock = clock();
+	seconds = 0;
+
+	console_active = 1;
+	while (!console_exit) {
+		ThreadSwitch();
+		cur_clock = clock();
+		seconds = cur_clock - prev_clock;
+
+		if ((seconds > SCREEN_SAVER_TIMEOUT) && (!screen_saver_on)) {
+			screen_saver_on = 1;
+			screen_saver();
+		}
+
+		if (screen_saver_on)
+			update_screen_saver();
+	}
+
+	console_active = 0;
+}
+
+void remove_screen_saver()
+{
+	NWSDestroyPortal(saver_portal_number, handle);
+}
+
+void screen_saver()
+{
+	int pal;
+
+	saver_portal_number = NWSCreatePortal(0, 0,
+										  25, 80, 25,
+										  80, SAVE, 0, 0,
+										  NOBORDER, VNORMAL, CURSOR_OFF,
+										  VIRTUAL, handle);
+	NWSGetPCB(&saver_portal_ptr, saver_portal_number, handle);
+	saver_line = 0;
+	saver_column = 0;
+}
+
+void update_screen_saver()
+{
+	int pal;
+
+	delay(200);
+
+	if (saver_line == 21)
+		saver_line = 0;
+
+	if (saver_column == 80)
+		saver_column = 0;
+
+	NWSClearPortal(saver_portal_ptr);
+
+	pal = NWSGetScreenPalette(handle);
+	NWSSetScreenPalette(0, handle);
+	NWSFillPortalZoneAttribute(0, 0, 25, 80, VNORMAL, saver_portal_ptr);
+	NWSSetScreenPalette(8, handle);
+	NWSDisplayTextInPortal(saver_line++, saver_column++, "InterBase",
+						   VREVERSE, saver_portal_ptr);
+	NWSUpdatePortal(saver_portal_ptr);
+	NWSSetScreenPalette(pal, handle);
+}
diff --git a/src/remote/nlmtst.def b/src/remote/nlmtst.def
new file mode 100644
index 0000000000..dfe15a6a10
--- /dev/null
+++ b/src/remote/nlmtst.def
@@ -0,0 +1,31 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+; 
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+; 
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+; 
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;------------------------------------------------------------
+;  NLMTST EXE Module Definition File
+;------------------------------------------------------------
+
+NAME     NLMTST                        
+
+DESCRIPTION 'NLMTST.EXE Novell test tool'
+EXETYPE WINDOWS
+CODE PRELOAD MOVEABLE DISCARDABLE 
+DATA PRELOAD MOVEABLE MULTIPLE
+STACKSIZE  32768
+;EXPORTS
+;            _SRVR_main                     @2   
+;            _SRVR_mutli_thread             @3   
+;            WEP                            @1   
diff --git a/src/remote/nt_server.cpp b/src/remote/nt_server.cpp
new file mode 100644
index 0000000000..c0b91fac77
--- /dev/null
+++ b/src/remote/nt_server.cpp
@@ -0,0 +1,313 @@
+/*
+ *	PROGRAM:	JRD Remote Server
+ *	MODULE:		nt_server.c
+ *	DESCRIPTION:	Windows NT remote server.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include "../remote/remote.h"
+#include "../jrd/codes.h"
+#include "../jrd/license.h"
+#include "../jrd/thd.h"
+#include "../utilities/install_nt.h"
+#include "../remote/cntl_proto.h"
+#include "../remote/inet_proto.h"
+#include "../remote/serve_proto.h"
+#include "../remote/wnet_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+
+#include <windows.h>
+#define TEXT		SCHAR
+
+static void THREAD_ROUTINE process_connection_thread(PORT);
+static void THREAD_ROUTINE inet_connect_wait_thread(void *);
+static void service_connection(PORT);
+static void THREAD_ROUTINE start_connections_thread(int);
+static void THREAD_ROUTINE wnet_connect_wait_thread(void *);
+
+static TEXT protocol_inet[128];
+static TEXT protocol_wnet[128];
+static USHORT server_flag;
+static SERVICE_TABLE_ENTRY service_table[] = {
+	REMOTE_SERVICE, (LPSERVICE_MAIN_FUNCTION) CNTL_main_thread,
+	NULL, NULL
+};
+
+
+int CLIB_ROUTINE main( int argc, char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Run the server with NT named
+ *	pipes and/or TCP/IP sockets.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	PORT port;
+	BOOLEAN debug;
+	TEXT *p, c;
+	HANDLE connection_handle;
+
+	argv++;
+	debug = FALSE;
+#ifdef SUPERSERVER
+	server_flag = SRVR_multi_client;
+#else
+	server_flag = 0;
+#endif
+	protocol_inet[0] = 0;
+	protocol_wnet[0] = 0;
+	connection_handle = INVALID_HANDLE_VALUE;
+
+	while (--argc) {
+		p = *argv++;
+		if (*p++ = '-')
+			while (c = *p++)
+				switch (UPPER(c)) {
+				case 'B':
+					server_flag |= SRVR_high_priority;
+					break;
+
+				case 'D':
+					debug = TRUE;
+					server_flag |= SRVR_debug | SRVR_non_service;
+					break;
+
+				case 'H':
+					if (--argc)
+						connection_handle = (HANDLE) atol(*argv++);
+					break;
+
+				case 'I':
+					server_flag |= SRVR_inet;
+					break;
+
+				case 'N':
+					server_flag |= SRVR_pipe;
+					break;
+
+				case 'P':
+					if (--argc) {
+						sprintf(protocol_inet, "/%s", *argv);
+						sprintf(protocol_wnet, "\\\\.@%s", *argv);
+						argv++;
+					}
+					break;
+
+				case 'R':
+					server_flag &= ~SRVR_high_priority;
+					break;
+
+				case 'Z':
+					ib_printf("Interbase remote server version %s\n",
+							  GDS_VERSION);
+					exit(FINI_OK);
+				}
+	}
+
+	if (connection_handle != INVALID_HANDLE_VALUE) {
+		THREAD_ENTER;
+		if (server_flag & SRVR_inet)
+			port = INET_reconnect(connection_handle, 0, status_vector);
+		else
+			port = WNET_reconnect(connection_handle, 0, status_vector);
+		THREAD_EXIT;
+		service_connection(port);
+	}
+	else if (!debug) {
+		CNTL_init((FPTR_VOID) start_connections_thread, REMOTE_SERVICE);
+		if (!StartServiceCtrlDispatcher(service_table))
+			if (GetLastError() != ERROR_CALL_NOT_IMPLEMENTED)
+				CNTL_shutdown_service("StartServiceCtrlDispatcher failed");
+			else {
+				start_connections_thread(server_flag);
+				Sleep(INFINITE);
+			}
+	}
+	else {
+		if ((server_flag & SRVR_multi_client) ||
+			!(server_flag & (SRVR_pipe | SRVR_inet)) ||
+			(server_flag & (SRVR_pipe | SRVR_inet)) ==
+			(SRVR_pipe | SRVR_inet)) {
+			start_connections_thread(server_flag);
+			Sleep(INFINITE);
+		}
+		else {
+			THREAD_ENTER;
+			if (server_flag & SRVR_inet)
+				port = INET_connect(protocol_inet, 0, status_vector,
+									server_flag, 0, 0);
+			else
+				port =
+					WNET_connect(protocol_wnet, 0, status_vector,
+								 server_flag);
+			THREAD_EXIT;
+			if (!port) {
+				gds__print_status(status_vector);
+				exit(FINI_ERROR);
+			}
+			service_connection(port);
+		}
+	}
+
+	exit(FINI_OK);
+}
+
+
+static void THREAD_ROUTINE process_connection_thread( PORT port)
+{
+/**************************************
+ *
+ *	p r o c e s s _ c o n n e c t i o n _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	void *thread;
+
+	if (!(server_flag & SRVR_non_service))
+		thread = CNTL_insert_thread();
+	service_connection(port);
+	if (!(server_flag & SRVR_non_service))
+		CNTL_remove_thread(thread);
+}
+
+
+static void THREAD_ROUTINE inet_connect_wait_thread( void *dummy)
+{
+/**************************************
+ *
+ *	i n e t _ c o n n e c t _ w a i t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	void *thread;
+	STATUS status_vector[20];
+	PORT port;
+
+	if (!(server_flag & SRVR_non_service))
+		thread = CNTL_insert_thread();
+
+	THREAD_ENTER;
+	port = INET_connect(protocol_inet, 0, status_vector, server_flag, 0, 0);
+	THREAD_EXIT;
+	if (port)
+		SRVR_multi_thread(port, server_flag);
+	else
+		gds__log_status(0, status_vector);
+
+	if (!(server_flag & SRVR_non_service))
+		CNTL_remove_thread(thread);
+}
+
+
+static void service_connection( PORT port)
+{
+/**************************************
+ *
+ *	s e r v i c e _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	SRVR_main(port, server_flag & ~SRVR_multi_client);
+}
+
+
+static void THREAD_ROUTINE start_connections_thread( int flag)
+{
+/**************************************
+ *
+ *	s t a r t _ c o n n e c t i o n s _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	server_flag = flag;
+	if (!(server_flag & (SRVR_pipe | SRVR_inet)))
+		server_flag |= SRVR_pipe | SRVR_inet;
+	if ((server_flag & SRVR_multi_client) ||
+		(server_flag & (SRVR_pipe | SRVR_inet)) == (SRVR_pipe | SRVR_inet))
+		gds__thread_enable(-1);
+
+	if (server_flag & SRVR_inet)
+		gds__thread_start((FPTR_INT) inet_connect_wait_thread, 0, THREAD_high,
+						  0, 0);
+	if (server_flag & SRVR_pipe)
+		gds__thread_start((FPTR_INT) wnet_connect_wait_thread, 0, THREAD_high,
+						  0, 0);
+}
+
+
+static void THREAD_ROUTINE wnet_connect_wait_thread( void *dummy)
+{
+/**************************************
+ *
+ *	w n e t _ c o n n e c t _ w a i t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	void *thread;
+	STATUS status_vector[20];
+	PORT port;
+
+	if (!(server_flag & SRVR_non_service))
+		thread = CNTL_insert_thread();
+
+	while (TRUE) {
+		THREAD_ENTER;
+		port = WNET_connect(protocol_wnet, 0, status_vector, server_flag);
+		THREAD_EXIT;
+		if (!port) {
+			if (status_vector[1] != gds__io_error ||
+				status_vector[6] != gds_arg_win32 ||
+				status_vector[7] != ERROR_CALL_NOT_IMPLEMENTED)
+					gds__log_status(0, status_vector);
+			break;
+		}
+		gds__thread_start((FPTR_INT) process_connection_thread, port, 0, 0,
+						  0);
+	}
+
+	if (!(server_flag & SRVR_non_service))
+		CNTL_remove_thread(thread);
+}
diff --git a/src/remote/ntoh.cpp b/src/remote/ntoh.cpp
new file mode 100644
index 0000000000..4d0d267b4a
--- /dev/null
+++ b/src/remote/ntoh.cpp
@@ -0,0 +1,89 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		ntoh.c
+ *	DESCRIPTION:	Network to host and reverse conversions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/* only include this code if we are not compiling for windows 32 bit
+   in which case winsock.dll provides the functionality */
+
+#ifndef __WIN32__
+#include "../jrd/common.h"
+
+typedef union
+{
+	SCHAR	string[4];
+	SLONG	integer;
+} either;
+
+
+SLONG htonl(either value)
+{
+/**************************************
+ *
+ *	h t o n l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Host to network conversion.
+ *
+ **************************************/
+	SCHAR c;
+
+	c = value.string[0];
+	value.string[0] = value.string[3];
+	value.string[3] = c;
+
+	c = value.string[1];
+	value.string[1] = value.string[2];
+	value.string[2] = c;
+
+	return value.integer;
+}
+
+
+SLONG ntohl(either value)
+{
+/**************************************
+ *
+ *	n t o h l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Network to host conversion.
+ *
+ **************************************/
+	SCHAR c;
+
+	c = value.string[0];
+	value.string[0] = value.string[3];
+	value.string[3] = c;
+
+	c = value.string[1];
+	value.string[1] = value.string[2];
+	value.string[2] = c;
+
+	return value.integer;
+}
+
+
+#endif /* !__WIN32__ */
diff --git a/src/remote/ntoh_proto.h b/src/remote/ntoh_proto.h
new file mode 100644
index 0000000000..977b6268df
--- /dev/null
+++ b/src/remote/ntoh_proto.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		ntoh_proto.h
+ *	DESCRIPTION:	Prototype file for ntoh.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_NTOH_PROTO_H_
+#define _REMOTE_NTOH_PROTO_H_
+
+extern SLONG	htonl (SLONG);
+extern SLONG	ntohl (SLONG);
+
+#endif /* _REMOTE_NTOH_PROTO_H_ */
diff --git a/src/remote/nwserv.cpp b/src/remote/nwserv.cpp
new file mode 100644
index 0000000000..6addbf4453
--- /dev/null
+++ b/src/remote/nwserv.cpp
@@ -0,0 +1,212 @@
+/*
+ *	PROGRAM:	JRD Remote Server
+ *	MODULE:		nwserv.c
+ *	DESCRIPTION:	Netware remote server.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <signal.h>
+#include <process.h>
+#include "../remote/remote.h"
+#include "../jrd/license.h"
+#include "../jrd/thd.h"
+#include "../remote/inet_proto.h"
+#include "../remote/serve_proto.h"
+#include "../remote/spxne_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/sch_proto.h"
+
+static void inet_connect_wait_thread(void);
+static void nlm_terminate(int);
+static void spx_connect_wait_thread(void);
+static void spx_process_connect_thread(PORT);
+
+int regular_malloc = 0;
+
+extern int FAUX_check();
+int NWSERV_terminating = FALSE;
+int NWSERV_spx_done = FALSE;
+
+static TEXT protocol[128];
+static USHORT SERVER_flag;
+
+
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Run the server
+ *
+ **************************************/
+	PORT port;
+	STATUS status_vector[20];
+	TEXT *p, c;
+
+	SERVER_flag |= SRVR_spx;
+	SERVER_flag |= SRVR_inet;
+	SERVER_flag |= SRVR_multi_client;
+	protocol[0] = 0;
+
+	argv++;
+	while (--argc) {
+		p = *argv++;
+		if (*p++ == '-')
+			while (c = *p++)
+				switch (UPPER(c)) {
+				case 'T':
+					SERVER_flag |= SRVR_inet;
+					break;
+
+				case 'M':
+					regular_malloc = 1;
+					break;
+
+				case 'Z':
+					ib_printf("Interbase remote server version %s\n",
+							  GDS_VERSION);
+					exit(FINI_OK);
+				}
+	}
+
+	if (SPXNET_init()) {
+		SPXNET_shutdown();
+		exit(FINI_OK);
+	}
+
+#ifdef NETWARE_386
+	if (FAUX_check() == -1)
+		SERVER_flag ^= SRVR_inet;
+#endif
+
+	gds__thread_enable(-1);
+	ISC_sync_init();
+
+	if (SERVER_flag & SRVR_inet)
+		gds__thread_start(inet_connect_wait_thread, 0, 0, 0, 0);
+
+	if (SERVER_flag & SRVR_spx)
+		gds__thread_start(spx_connect_wait_thread, 0, 0, 0, 0);
+
+	DestroyScreen(GetCurrentScreen());
+	signal(SIGTERM, nlm_terminate);
+	ExitThread(TSR_THREAD, 0);
+	ExitThread(EXIT_NLM, 1);
+
+	exit(FINI_OK);
+}
+
+
+static void inet_connect_wait_thread(void)
+{
+/**************************************
+ *
+ *	i n e t _ c o n n e c t _ w a i t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	PORT port;
+
+	THREAD_ENTER;
+	port = INET_connect(protocol, 0, status_vector, SERVER_flag, 0, 0);
+	THREAD_EXIT;
+	if (port)
+		SRVR_multi_thread(port, SERVER_flag);
+	else
+		gds__log_status(0, status_vector);
+}
+
+
+static void nlm_terminate( int sig)
+{
+/**************************************
+ *
+ *	n l m _ t e r m i n a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ * Inform the world that we are going
+ * away, shut down SPX, then wait to
+ * make sure that SPX is really shut
+ * down, then let everything die.
+ **************************************/
+	int i;
+
+	NWSERV_terminating = TRUE;
+	SPXNET_shutdown();
+	for (i = 10; !NWSERV_spx_done && i; i--)
+		delay(500);
+}
+
+
+static void spx_connect_wait_thread(void)
+{
+/**************************************
+ *
+ *	s p x _ c o n n e c t _ w a i t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	PORT port;
+
+	while (!NWSERV_terminating) {
+		THREAD_ENTER;
+		port = SPXNET_listen(protocol, 0, status_vector, SERVER_flag);
+		THREAD_EXIT;
+		if (port)
+			gds__thread_start(spx_process_connect_thread, port, 0, 0, 0);
+		else {
+			EnterCritSec();
+			gds__log_status(0, status_vector);
+			ExitCritSec();
+		}
+	}
+	NWSERV_spx_done = TRUE;
+}
+
+
+static void spx_process_connect_thread( PORT port)
+{
+/**************************************
+ *
+ *	s p x _ p r o c e s s _ c o n n e c t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	SRVR_main(port, SERVER_flag & ~SRVR_multi_client);
+}
diff --git a/src/remote/parse_proto.h b/src/remote/parse_proto.h
new file mode 100644
index 0000000000..f6650b17bf
--- /dev/null
+++ b/src/remote/parse_proto.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		parse_proto.h
+ *	DESCRIPTION:	Prototpe header file for parse.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_PARSE_PROTO_H_
+#define _REMOTE_PARSE_PROTO_H_
+
+extern struct message	* DLL_EXPORT PARSE_messages (UCHAR *, USHORT);
+extern UCHAR		*PARSE_prepare_messages (UCHAR *, USHORT);
+
+#endif /* _REMOTE_PARSE_PROTO_H */ 
diff --git a/src/remote/parser.cpp b/src/remote/parser.cpp
new file mode 100644
index 0000000000..a778dcc8c7
--- /dev/null
+++ b/src/remote/parser.cpp
@@ -0,0 +1,328 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		parse.c
+ *	DESCRIPTION:	BLR parser
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: parser.cpp,v 1.1.1.1 2001-05-23 13:26:39 tamlin Exp $
+*/
+
+#include <string.h>
+#include <stdlib.h>
+#include "../jrd/ib_stdio.h"
+#include "../include/jrd/gds.h"
+#include "../remote/remote.h"
+#include "../jrd/align.h"
+#include "../jrd/gdsassert.h"
+#include "../remote/parse_proto.h"
+
+#if !defined(DEV_BUILD) || (defined(DEV_BUILD) && defined(WIN_NT))
+#include "../jrd/gds_proto.h"	/* gds__log() */
+#endif
+
+
+
+MSG DLL_EXPORT PARSE_messages(UCHAR * blr, USHORT blr_length)
+{
+/**************************************
+ *
+ *	P A R S E _ m e s s a g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the messages of a blr request.  For each message, allocate
+ *	a message (msg) and a format (fmt) block.  Return the number of
+ *	messages found.  If an error occurs, return -1;
+ *
+ **************************************/
+	MSG message, next;
+	FMT format;
+	DSC *desc;
+	USHORT count, msg_number, offset, align, net_length;
+	SSHORT version;
+
+	version = *blr++;
+	if ((version != blr_version4) && (version != blr_version5))
+		return (MSG) - 1;
+
+	if (*blr++ != blr_begin)
+		return 0;
+
+	message = NULL;
+	net_length = 0;
+
+	while (*blr++ == blr_message) {
+		msg_number = *blr++;
+		count = *blr++;
+		count += (*blr++) << 8;
+		format = (FMT) ALLOCV(type_fmt, count);
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("PARSE_messages            allocate format  %x\n", format);
+#endif
+		format->fmt_count = count;
+		offset = 0;
+		for (desc = format->fmt_desc; count; --count, ++desc) {
+			align = 4;
+			switch (*blr++) {
+			case blr_text:
+				desc->dsc_dtype = dtype_text;
+				desc->dsc_length = *blr++;
+				desc->dsc_length += (*blr++) << 8;
+				align = type_alignments[dtype_text];
+				break;
+
+			case blr_varying:
+				desc->dsc_dtype = dtype_varying;
+				desc->dsc_length = *blr++ + sizeof(SSHORT);
+				desc->dsc_length += (*blr++) << 8;
+				align = type_alignments[dtype_varying];
+				break;
+
+			case blr_cstring:
+				desc->dsc_dtype = dtype_cstring;
+				desc->dsc_length = *blr++;
+				desc->dsc_length += (*blr++) << 8;
+				align = type_alignments[dtype_cstring];
+				break;
+
+				/* Parse the tagged blr types correctly */
+
+			case blr_text2:
+				desc->dsc_dtype = dtype_text;
+				desc->dsc_scale = *blr++;
+				desc->dsc_scale += (*blr++) << 8;
+				desc->dsc_length = *blr++;
+				desc->dsc_length += (*blr++) << 8;
+				align = type_alignments[dtype_text];
+				break;
+
+			case blr_varying2:
+				desc->dsc_dtype = dtype_varying;
+				desc->dsc_scale = *blr++;
+				desc->dsc_scale += (*blr++) << 8;
+				desc->dsc_length = *blr++ + sizeof(SSHORT);
+				desc->dsc_length += (*blr++) << 8;
+				align = type_alignments[dtype_varying];
+				break;
+
+			case blr_cstring2:
+				desc->dsc_dtype = dtype_cstring;
+				desc->dsc_scale = *blr++;
+				desc->dsc_scale += (*blr++) << 8;
+				desc->dsc_length = *blr++;
+				desc->dsc_length += (*blr++) << 8;
+				align = type_alignments[dtype_cstring];
+				break;
+
+			case blr_short:
+				desc->dsc_dtype = dtype_short;
+				desc->dsc_length = sizeof(SSHORT);
+				desc->dsc_scale = *blr++;
+				align = type_alignments[dtype_short];
+				break;
+
+			case blr_long:
+				desc->dsc_dtype = dtype_long;
+				desc->dsc_length = sizeof(SLONG);
+				desc->dsc_scale = *blr++;
+				align = type_alignments[dtype_long];
+				break;
+
+			case blr_int64:
+				desc->dsc_dtype = dtype_int64;
+				desc->dsc_length = sizeof(SINT64);
+				desc->dsc_scale = *blr++;
+				align = type_alignments[dtype_int64];
+				break;
+
+			case blr_quad:
+				desc->dsc_dtype = dtype_quad;
+				desc->dsc_length = sizeof(SLONG) * 2;
+				desc->dsc_scale = *blr++;
+				align = type_alignments[dtype_quad];
+				break;
+
+			case blr_float:
+				desc->dsc_dtype = dtype_real;
+				desc->dsc_length = sizeof(float);
+				align = type_alignments[dtype_real];
+				break;
+
+			case blr_double:
+#ifndef VMS
+			case blr_d_float:
+#endif
+				desc->dsc_dtype = dtype_double;
+				desc->dsc_length = sizeof(double);
+				align = type_alignments[dtype_double];
+				break;
+
+#ifdef VMS
+			case blr_d_float:
+				desc->dsc_dtype = dtype_d_float;
+				desc->dsc_length = sizeof(double);
+				align = type_alignments[dtype_d_float];
+				break;
+#endif
+
+/*          this case cannot occur as switch paramater is char and blr_blob
+            is 261. blob_ids are actually passed around as blr_quad.
+
+	    case blr_blob:
+		desc->dsc_dtype = dtype_blob;
+		desc->dsc_length = sizeof (SLONG) * 2;
+		align = type_alignments [dtype_blob];
+		break;
+*/
+
+			case blr_timestamp:
+				desc->dsc_dtype = dtype_timestamp;
+				desc->dsc_length = sizeof(SLONG) * 2;
+				align = type_alignments[dtype_timestamp];
+				break;
+
+			case blr_sql_date:
+				desc->dsc_dtype = dtype_sql_date;
+				desc->dsc_length = sizeof(SLONG);
+				align = type_alignments[dtype_sql_date];
+				break;
+
+			case blr_sql_time:
+				desc->dsc_dtype = dtype_sql_time;
+				desc->dsc_length = sizeof(ULONG);
+				align = type_alignments[dtype_sql_time];
+				break;
+
+			default:
+				assert(FALSE);
+				ALLR_release(format);
+				while (next = message) {
+					message = message->msg_next;
+					ALLR_release(next->msg_address);
+					ALLR_release(next);
+				}
+				return (MSG) - 1;
+			}
+			if (desc->dsc_dtype == dtype_varying)
+				net_length += 4 + ((desc->dsc_length - 2 + 3) & ~3);
+			else
+				net_length += (desc->dsc_length + 3) & ~3;
+			if (align > 1)
+				offset = FB_ALIGN(offset, align);
+			desc->dsc_address = (UCHAR *) offset;
+			offset += desc->dsc_length;
+		}
+		format->fmt_length = offset;
+		format->fmt_net_length = net_length;
+		next = (MSG) ALLOCV(type_msg, format->fmt_length);
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("PARSE_messages            allocate message %x\n", next);
+#endif
+		next->msg_next = message;
+		message = next;
+		message->msg_address = (UCHAR *) format;
+		message->msg_number = msg_number;
+	}
+
+	return message;
+}
+
+
+UCHAR *PARSE_prepare_messages(UCHAR * blr, USHORT blr_length)
+{
+/**************************************
+ *
+ *	P A R S E _ p r e p a r e _ m e s s a g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the messages of a blr request and convert
+ *	each occurrence of blr_d_float to blr_double.
+ *
+ *	This function is only called for protocol version 5 and below
+ *
+ **************************************/
+	UCHAR *new_blr, *old_blr;
+	USHORT count;
+	SSHORT version;
+
+	new_blr = old_blr = blr;
+
+	version = *blr++;
+	if (((version != blr_version4) && (version != blr_version5)) ||
+		*blr++ != blr_begin) return old_blr;
+
+	while (*blr++ == blr_message) {
+		blr++;
+		count = *blr++;
+		count += (*blr++) << 8;
+		for (; count; --count)
+			switch (*blr++) {
+			case blr_text2:
+			case blr_varying2:
+			case blr_cstring2:
+				blr += 4;		/* SUBTYPE word & LENGTH word */
+				break;
+			case blr_text:
+			case blr_varying:
+			case blr_cstring:
+				blr += 2;		/* LENGTH word */
+				break;
+			case blr_short:
+			case blr_long:
+			case blr_int64:
+			case blr_quad:
+				blr++;			/* SCALE byte */
+				break;
+			case blr_float:
+			case blr_double:
+			case blr_timestamp:
+			case blr_sql_date:
+			case blr_sql_time:
+				break;
+
+			case blr_d_float:
+				if (new_blr == old_blr) {
+					new_blr = (UCHAR *) ALLR_alloc((SLONG) blr_length);
+					/* NOMEM: ALLR_alloc() handled */
+					/* FREE:  Never freed, blr_d_float is VMS specific */
+#ifdef REMOTE_DEBUG_MEMORY
+					ib_printf
+						("PARSE_prepare_messages    allocate blr     %x\n",
+						 new_blr);
+#endif
+					memcpy(new_blr, old_blr, blr_length);
+					blr = new_blr + (int) (blr - old_blr);
+				}
+
+				blr[-1] = blr_double;
+				break;
+
+			default:
+				DEV_REPORT("Unexpected BLR in PARSE_prepare_messages()");
+				/* This old code would return, so we will also */
+				return new_blr;
+			}
+	}
+
+	return new_blr;
+}
diff --git a/src/remote/pcbdefv4.mar b/src/remote/pcbdefv4.mar
new file mode 100644
index 0000000000..40a8295b20
--- /dev/null
+++ b/src/remote/pcbdefv4.mar
@@ -0,0 +1,158 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+;
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+;
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+;
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;
+;	PROGRAM:	JRD Remote Server
+;	MODULE:		pcbdefv4.mar
+;	DESCRIPTION:	pcb definitions for VMS 4.x
+;
+
+	.MACRO	$PCBDEFV4,$GBL
+	$DEFINI	PCB,$GBL
+$EQU	PCB$M_RES	1
+$EQU	PCB$M_DELPEN	2
+$EQU	PCB$M_FORCPEN	4
+$EQU	PCB$M_INQUAN	8
+$EQU	PCB$M_PSWAPM	16
+$EQU	PCB$M_RESPEN	32
+$EQU	PCB$M_SSFEXC	64
+$EQU	PCB$M_SSFEXCE	128
+$EQU	PCB$M_SSFEXCS	256
+$EQU	PCB$M_SSFEXCU	512
+$EQU	PCB$M_SSRWAIT	1024
+$EQU	PCB$M_SUSPEN	2048
+$EQU	PCB$M_WAKEPEN	4096
+$EQU	PCB$M_WALL	8192
+$EQU	PCB$M_BATCH	16384
+$EQU	PCB$M_NOACNT	32768
+$EQU	PCB$M_SWPVBN	65536
+$EQU	PCB$M_ASTPEN	131072
+$EQU	PCB$M_PHDRES	262144
+$EQU	PCB$M_HIBER	524288
+$EQU	PCB$M_LOGIN	1048576
+$EQU	PCB$M_NETWRK	2097152
+$EQU	PCB$M_PWRAST	4194304
+$EQU	PCB$M_NODELET	8388608
+$EQU	PCB$M_DISAWS	16777216
+$EQU	PCB$M_INTER	33554432
+$EQU	PCB$M_RECOVER	67108864
+$EQU	PCB$M_SECAUDIT	134217728
+$EQU	PCB$M_EPID_WILD	-2147483648
+$EQU	PCB$K_LENGTH	288
+$EQU	PCB$C_LENGTH	288
+$EQU	PCB$S_PCBDEF	288
+$EQU	PCB$L_SQFL	0
+$EQU	PCB$L_SQBL	4
+$EQU	PCB$W_SIZE	8
+$EQU	PCB$B_TYPE	10
+$EQU	PCB$B_PRI	11
+$EQU	PCB$B_ASTACT	12
+$EQU	PCB$B_ASTEN	13
+$EQU	PCB$W_MTXCNT	14
+$EQU	PCB$L_ASTQFL	16
+$EQU	PCB$L_ASTQBL	20
+$EQU	PCB$L_PHYPCB	24
+$EQU	PCB$L_OWNER	28
+$EQU	PCB$L_WSSWP	32
+$EQU	PCB$L_STS	36
+$EQU	PCB$V_RES	0
+$EQU	PCB$V_DELPEN	1
+$EQU	PCB$V_FORCPEN	2
+$EQU	PCB$V_INQUAN	3
+$EQU	PCB$V_PSWAPM	4
+$EQU	PCB$V_RESPEN	5
+$EQU	PCB$V_SSFEXC	6
+$EQU	PCB$V_SSFEXCE	7
+$EQU	PCB$V_SSFEXCS	8
+$EQU	PCB$V_SSFEXCU	9
+$EQU	PCB$V_SSRWAIT	10
+$EQU	PCB$V_SUSPEN	11
+$EQU	PCB$V_WAKEPEN	12
+$EQU	PCB$V_WALL	13
+$EQU	PCB$V_BATCH	14
+$EQU	PCB$V_NOACNT	15
+$EQU	PCB$V_SWPVBN	16
+$EQU	PCB$V_ASTPEN	17
+$EQU	PCB$V_PHDRES	18
+$EQU	PCB$V_HIBER	19
+$EQU	PCB$V_LOGIN	20
+$EQU	PCB$V_NETWRK	21
+$EQU	PCB$V_PWRAST	22
+$EQU	PCB$V_NODELET	23
+$EQU	PCB$V_DISAWS	24
+$EQU	PCB$V_INTER	25
+$EQU	PCB$V_RECOVER	26
+$EQU	PCB$V_SECAUDIT	27
+$EQU	PCB$L_WTIME	40
+$EQU	PCB$B_PRISAV	40
+$EQU	PCB$B_PRIBSAV	41
+$EQU	PCB$B_DPC	42
+$EQU	PCB$B_AUTHPRI	43
+$EQU	PCB$W_STATE	44
+$EQU	PCB$B_WEFC	46
+$EQU	PCB$B_PRIB	47
+$EQU	PCB$W_APTCNT	48
+$EQU	PCB$W_TMBU	50
+$EQU	PCB$W_GPGCNT	52
+$EQU	PCB$W_PPGCNT	54
+$EQU	PCB$W_ASTCNT	56
+$EQU	PCB$W_BIOCNT	58
+$EQU	PCB$W_BIOLM	60
+$EQU	PCB$W_DIOCNT	62
+$EQU	PCB$W_DIOLM	64
+$EQU	PCB$W_PRCCNT	66
+$EQU	PCB$S_TERMINAL	8
+$EQU	PCB$T_TERMINAL	68
+$EQU	PCB$L_PQB	76
+$EQU	PCB$L_EFWM	76
+$EQU	PCB$L_EFCS	80
+$EQU	PCB$L_EFCU	84
+$EQU	PCB$W_PGFLCHAR	88
+$EQU	PCB$B_PGFLINDEX	90
+$EQU	PCB$L_SWAPSIZE	92
+$EQU	PCB$L_EFC2P	88
+$EQU	PCB$L_EFC3P	92
+$EQU	PCB$L_PID	96
+$EQU	PCB$L_EPID	100
+$EQU	PCB$S_EPID_PROC	21
+$EQU	PCB$V_EPID_PROC	0
+$EQU	PCB$S_EPID_NODE_IDX	8
+$EQU	PCB$V_EPID_NODE_IDX	21
+$EQU	PCB$S_EPID_NODE_SEQ	2
+$EQU	PCB$V_EPID_NODE_SEQ	29
+$EQU	PCB$V_EPID_WILD	31
+$EQU	PCB$L_EOWNER	104
+$EQU	PCB$L_PHD	108
+$EQU	PCB$S_LNAME	16
+$EQU	PCB$T_LNAME	112
+$EQU	PCB$L_JIB	128
+$EQU	PCB$S_PRIV	8
+$EQU	PCB$Q_PRIV	132
+$EQU	PCB$L_ARB	140
+$EQU	PCB$L_UIC	188
+$EQU	PCB$W_MEM	188
+$EQU	PCB$W_GRP	190
+$EQU	PCB$L_ACLFL	252
+$EQU	PCB$L_ACLBL	256
+$EQU	PCB$L_LOCKQFL	260
+$EQU	PCB$L_LOCKQBL	264
+$EQU	PCB$L_DLCKPRI	268
+$EQU	PCB$L_IPAST	272
+$EQU	PCB$L_DEFPROT	276
+$EQU	PCB$L_WAITIME	280
+$EQU	PCB$L_PMB	284
+	$DEFEND	PCB,$GBL,DEF
+	.ENDM
diff --git a/src/remote/pcbdefv5.mar b/src/remote/pcbdefv5.mar
new file mode 100644
index 0000000000..9a236bcad3
--- /dev/null
+++ b/src/remote/pcbdefv5.mar
@@ -0,0 +1,195 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+;
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+;
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+;
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;
+;	PROGRAM:	JRD Remote Server
+;	MODULE:		pcbdefv5.mar
+;	DESCRIPTION:	pcb definitions for VMS 5.x
+;
+
+	.MACRO	$PCBDEFV5,$GBL
+	$DEFINI	PCB,$GBL
+$EQU	PCB$M_RES	1
+$EQU	PCB$M_DELPEN	2
+$EQU	PCB$M_FORCPEN	4
+$EQU	PCB$M_INQUAN	8
+$EQU	PCB$M_PSWAPM	16
+$EQU	PCB$M_RESPEN	32
+$EQU	PCB$M_SSFEXC	64
+$EQU	PCB$M_SSFEXCE	128
+$EQU	PCB$M_SSFEXCS	256
+$EQU	PCB$M_SSFEXCU	512
+$EQU	PCB$M_SSRWAIT	1024
+$EQU	PCB$M_SUSPEN	2048
+$EQU	PCB$M_WAKEPEN	4096
+$EQU	PCB$M_WALL	8192
+$EQU	PCB$M_BATCH	16384
+$EQU	PCB$M_NOACNT	32768
+$EQU	PCB$M_SPARE_STS1	65536
+$EQU	PCB$M_ASTPEN	131072
+$EQU	PCB$M_PHDRES	262144
+$EQU	PCB$M_HIBER	524288
+$EQU	PCB$M_LOGIN	1048576
+$EQU	PCB$M_NETWRK	2097152
+$EQU	PCB$M_PWRAST	4194304
+$EQU	PCB$M_NODELET	8388608
+$EQU	PCB$M_DISAWS	16777216
+$EQU	PCB$M_INTER	33554432
+$EQU	PCB$M_RECOVER	67108864
+$EQU	PCB$M_SECAUDIT	134217728
+$EQU	PCB$M_HARDAFF	268435456
+$EQU	PCB$M_ERDACT	536870912
+$EQU	PCB$M_SOFTSUSP	1073741824
+$EQU	PCB$M_PREEMPTED	-2147483648
+$EQU	PCB$M_QUANTUM_RESCHED	1
+$EQU	PCB$M_EPID_WILD	-2147483648
+$EQU	PCB$K_LENGTH	372
+$EQU	PCB$C_LENGTH	372
+$EQU	PCB$S_PCBDEF	372
+$EQU	PCB$L_SQFL	0
+$EQU	PCB$L_SQBL	4
+$EQU	PCB$W_SIZE	8
+$EQU	PCB$B_TYPE	10
+$EQU	PCB$B_WEFC	11
+$EQU	PCB$L_PHYPCB	12
+$EQU	PCB$L_ASTQFL	16
+$EQU	PCB$L_ASTQBL	20
+$EQU	PCB$B_ASTACT	24
+$EQU	PCB$B_ASTEN	25
+$EQU	PCB$W_STATE	26
+$EQU	PCB$B_PRI	28
+$EQU	PCB$B_PRIB	29
+$EQU	PCB$B_RESERVED_B1	30
+$EQU	PCB$L_OWNER	32
+$EQU	PCB$L_STS	36
+$EQU	PCB$V_RES	0
+$EQU	PCB$V_DELPEN	1
+$EQU	PCB$V_FORCPEN	2
+$EQU	PCB$V_INQUAN	3
+$EQU	PCB$V_PSWAPM	4
+$EQU	PCB$V_RESPEN	5
+$EQU	PCB$V_SSFEXC	6
+$EQU	PCB$V_SSFEXCE	7
+$EQU	PCB$V_SSFEXCS	8
+$EQU	PCB$V_SSFEXCU	9
+$EQU	PCB$V_SSRWAIT	10
+$EQU	PCB$V_SUSPEN	11
+$EQU	PCB$V_WAKEPEN	12
+$EQU	PCB$V_WALL	13
+$EQU	PCB$V_BATCH	14
+$EQU	PCB$V_NOACNT	15
+$EQU	PCB$V_SPARE_STS1	16
+$EQU	PCB$V_ASTPEN	17
+$EQU	PCB$V_PHDRES	18
+$EQU	PCB$V_HIBER	19
+$EQU	PCB$V_LOGIN	20
+$EQU	PCB$V_NETWRK	21
+$EQU	PCB$V_PWRAST	22
+$EQU	PCB$V_NODELET	23
+$EQU	PCB$V_DISAWS	24
+$EQU	PCB$V_INTER	25
+$EQU	PCB$V_RECOVER	26
+$EQU	PCB$V_SECAUDIT	27
+$EQU	PCB$V_HARDAFF	28
+$EQU	PCB$V_ERDACT	29
+$EQU	PCB$V_SOFTSUSP	30
+$EQU	PCB$V_PREEMPTED	31
+$EQU	PCB$L_STS2	40
+$EQU	PCB$V_QUANTUM_RESCHED	0
+$EQU	PCB$L_WTIME	44
+$EQU	PCB$B_PRISAV	44
+$EQU	PCB$B_PRIBSAV	45
+$EQU	PCB$B_DPC	46
+$EQU	PCB$B_AUTHPRI	47
+$EQU	PCB$L_ONQTIME	48
+$EQU	PCB$L_WAITIME	52
+$EQU	PCB$W_ASTCNT	56
+$EQU	PCB$W_BIOCNT	58
+$EQU	PCB$W_BIOLM	60
+$EQU	PCB$W_DIOCNT	62
+$EQU	PCB$W_DIOLM	64
+$EQU	PCB$W_PRCCNT	66
+$EQU	PCB$S_TERMINAL	8
+$EQU	PCB$T_TERMINAL	68
+$EQU	PCB$L_PQB	76
+$EQU	PCB$L_EFWM	76
+$EQU	PCB$L_EFCS	80
+$EQU	PCB$L_EFCU	84
+$EQU	PCB$W_PGFLCHAR	88
+$EQU	PCB$B_PGFLINDEX	90
+$EQU	PCB$L_EFC2P	88
+$EQU	PCB$L_EFC3P	92
+$EQU	PCB$L_PID	96
+$EQU	PCB$L_EPID	100
+$EQU	PCB$S_EPID_PROC	21
+$EQU	PCB$V_EPID_PROC	0
+$EQU	PCB$S_EPID_NODE_IDX	8
+$EQU	PCB$V_EPID_NODE_IDX	21
+$EQU	PCB$S_EPID_NODE_SEQ	2
+$EQU	PCB$V_EPID_NODE_SEQ	29
+$EQU	PCB$V_EPID_WILD	31
+$EQU	PCB$L_EOWNER	104
+$EQU	PCB$L_PHD	108
+$EQU	PCB$W_APTCNT	112
+$EQU	PCB$W_MTXCNT	114
+$EQU	PCB$L_GPGCNT	116
+$EQU	PCB$L_PPGCNT	120
+$EQU	PCB$L_JIB	124
+$EQU	PCB$L_WSSWP	128
+$EQU	PCB$L_SWAPSIZE	132
+$EQU	PCB$S_PCBARB	124
+$EQU	PCB$R_PCBARB	136
+$EQU	PCB$S_PRIV	8
+$EQU	PCB$Q_PRIV	136
+$EQU	PCB$L_ARB	144
+$EQU	PCB$L_UIC	196
+$EQU	PCB$W_MEM	196
+$EQU	PCB$W_GRP	198
+$EQU	PCB$L_ORB	260
+$EQU	PCB$W_TMBU	266
+$EQU	PCB$L_LOCKQFL	268
+$EQU	PCB$L_LOCKQBL	272
+$EQU	PCB$L_DLCKPRI	276
+$EQU	PCB$L_IPAST	280
+$EQU	PCB$L_DEFPROT	284
+$EQU	PCB$L_PMB	288
+$EQU	PCB$S_AFFINITY	8
+$EQU	PCB$Q_AFFINITY	292
+$EQU	PCB$L_AFFINITY	292
+$EQU	PCB$L_AFFINITY2	296
+$EQU	PCB$L_CAPABILITY	300
+$EQU	PCB$L_CPU_ID	304
+$EQU	PCB$L_CPUTIM	308
+$EQU	PCB$S_LNAME	16
+$EQU	PCB$T_LNAME	312
+$EQU	PCB$L_PRCPDB	328
+$EQU	PCB$L_PIXHIST	332
+$EQU	PCB$S_NS_RESERVED_Q1	8
+$EQU	PCB$Q_NS_RESERVED_Q1	336
+$EQU	PCB$L_NS_RESERVED_Q1_L1	336
+$EQU	PCB$L_NS_RESERVED_Q1_L2	340
+$EQU	PCB$S_SMP_RESERVED_Q2	8
+$EQU	PCB$Q_SMP_RESERVED_Q2	344
+$EQU	PCB$L_SMP_RESERVED_Q2_L1	344
+$EQU	PCB$L_SMP_RESERVED_Q2_L2	348
+$EQU	PCB$S_CWPS_Q1	8
+$EQU	PCB$Q_CWPS_Q1	352
+$EQU	PCB$L_CWPS_L1	360
+$EQU	PCB$L_CWPS_L2	364
+$EQU	PCB$W_CWPS_W1	368
+$EQU	PCB$W_CWPS_W2	370
+	$DEFEND	PCB,$GBL,DEF
+	.ENDM
diff --git a/src/remote/property.cpp b/src/remote/property.cpp
new file mode 100644
index 0000000000..b5e60834e6
--- /dev/null
+++ b/src/remote/property.cpp
@@ -0,0 +1,359 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+*/
+
+
+/*
+ *      PROGRAM:        IB Server
+ *      MODULE:         property.c
+ *      DESCRIPTION:    Property sheet implementation for WIN32 server
+ *
+ */
+
+/* Since it's a Win32-only file, we might as well assert it*/
+#if !defined(_WIN32) && !defined(WIN32) && !defined(__WIN32__)
+#error This is a Win32 only file.
+#endif
+
+#include <windows.h>
+#include <shellapi.h>
+#include <prsht.h>
+#include <dbt.h>
+
+#define BOOLEAN_DEFINED
+#define MSG_DEFINED
+
+#include "../jrd/common.h"
+#include "../jrd/license.h"
+#include "../jrd/isc.h"
+#include "../jrd/file_params.h"
+#include "../remote/remote_def.h"
+#include "../remote/window.rh"
+#include "../remote/property.rh"
+#include "../ipserver/ips.h"
+
+#include "../jrd/svc_proto.h"
+#include "../remote/window_proto.h"
+#include "../remote/propty_proto.h"
+#include "../ipserver/ipsrv_proto.h"
+#include "../remote/ibconfig.h"
+
+#include "../jrd/ibase.h"
+
+#include "../remote/ibsvrhlp.h"
+#include "../remote/chop_proto.h"
+
+#include "../jrd/thd.h"			/* get jrd_proto.h to declare the function */
+#include "../jrd/jrd_proto.h"	/* JRD_num_attachments() */
+#include <stdio.h>				/* sprintf() */
+
+#define WIN_TEXTLEN                     128
+#define MSG_STRINGLEN           64
+#define APP_NAME "InterBase Server"
+
+static HINSTANCE hInstance = NULL;	// Handle to the current app. instance
+static HWND hPSDlg = NULL;		// Handle to the parent prop. sheet window
+HBRUSH hGrayBrush = NULL;		// Handle to a Gray Brush
+static USHORT usServerFlags;	// Server Flag Mask
+
+// Define an array of dword pairs,
+// where the first of each pair is the control ID,
+// and the second is the context ID for a help topic,
+// which is used in the help file.
+static const DWORD aMenuHelpIDs[] = {
+	IDC_IBSVR_ICON, ibs_server_icon,
+	IDC_PROTOCOLS, ibs_capabilities,
+	IDC_CAPABILITIES_TEXT, ibs_capabilities,
+	IDC_PRODNAME, ibs_prodname,
+	IDC_PATH, ibs_image_path,
+	IDC_LOCATION_TEXT, ibs_image_path,
+	IDC_STAT1, ibs_version,
+	IDC_VERSION_TEXT, ibs_version,
+	IDC_STAT2, ibs_num_dbs_attached,
+	IDC_NUM_ATTACH_TEXT, ibs_num_dbs_attached,
+	IDC_STAT3, ibs_num_dbs,
+	IDC_NUM_DB_TEXT, ibs_num_dbs,
+	IDC_REFRESH, ibs_refresh,
+	0, 0
+};
+
+// Window procedures
+LRESULT APIENTRY GeneralPage(HWND, UINT, WPARAM, LPARAM);
+
+// Static functions to be called from this file only.
+static char *MakeVersionString(char *, int, USHORT);
+static void RefreshUserCount(HWND);
+
+HWND DisplayProperties(HWND hParentWnd,
+					   HINSTANCE hInst, USHORT usServerFlagMask)
+{
+/******************************************************************************
+ *
+ *  D i s p l a y P r o p e r t i e s
+ *
+ ******************************************************************************
+ *
+ *  Input:  hParentWnd - Handle to the main window of this application
+ *
+ *  Return: Handle to the Property sheet dialog if successful
+ *          NULL if error in displaying property sheet
+ *
+ *  Description: This function initializes the page(s) of the property sheet,
+ *               and then calls the PropertySheet() function to display it.
+ *****************************************************************************/
+	PROPSHEETHEADER PSHdr;
+	PROPSHEETPAGE PSPages[1];
+
+	hInstance = hInst;
+	usServerFlags = usServerFlagMask;
+
+	PSPages[0].dwSize = sizeof(PROPSHEETPAGE);
+	PSPages[0].dwFlags = PSP_USETITLE | PSP_HASHELP;
+	PSPages[0].hInstance = hInstance;
+#ifdef  __BORLANDC__			/* Anonymous unions not working in BC */
+	PSPages[0].DUMMYUNIONNAME.pszTemplate = MAKEINTRESOURCE(GENERAL_DLG);
+#else
+	PSPages[0].pszTemplate = MAKEINTRESOURCE(GENERAL_DLG);
+#endif
+	PSPages[0].pszTitle = "General";
+	PSPages[0].pfnDlgProc = (DLGPROC) GeneralPage;
+	PSPages[0].pfnCallback = NULL;
+
+	PSHdr.dwSize = sizeof(PROPSHEETHEADER);
+	PSHdr.dwFlags = PSH_PROPTITLE | PSH_PROPSHEETPAGE |
+		PSH_USEICONID | PSH_MODELESS;
+	PSHdr.hwndParent = hParentWnd;
+	PSHdr.hInstance = hInstance;
+#ifdef  __BORLANDC__			/* Anonymous unions not working in BC */
+	PSHdr.DUMMYUNIONNAME.pszIcon = MAKEINTRESOURCE(IDI_IBSVR);
+#else
+	PSHdr.pszIcon = MAKEINTRESOURCE(IDI_IBSVR);
+#endif
+	PSHdr.pszCaption = (LPSTR) APP_NAME;
+	PSHdr.nPages = sizeof(PSPages) / sizeof(PROPSHEETPAGE);
+#ifdef  __BORLANDC__			/* Anonymous unions not working in BC */
+	PSHdr.DUMMYUNIONNAME2.nStartPage = 0;
+	PSHdr.DUMMYUNIONNAME3.ppsp = (LPCPROPSHEETPAGE) & PSPages;
+#else
+	PSHdr.nStartPage = 0;
+	PSHdr.ppsp = (LPCPROPSHEETPAGE) & PSPages;
+#endif
+	PSHdr.pfnCallback = NULL;
+
+// Initialize the gray brush to paint the background
+// for all prop. sheet pages and their controls
+	hGrayBrush = CreateSolidBrush(GetSysColor(COLOR_BTNFACE));
+
+	hPSDlg = (HWND) PropertySheet(&PSHdr);
+
+	if (hPSDlg <= 0)
+		hPSDlg = NULL;
+	else
+		// Add the Configuration pages
+		AddConfigPages(hPSDlg, hInstance);
+
+	return hPSDlg;
+}
+
+LRESULT CALLBACK GeneralPage(HWND hDlg, UINT unMsg, WPARAM wParam,
+							 LPARAM lParam)
+{
+/******************************************************************************
+ *
+ *  G e n e r a l P a g e
+ *
+ ******************************************************************************
+ *
+ *  Input:  hDlg - Handle to the page dialog
+ *          unMsg - Message ID
+ *          wParam - WPARAM message parameter
+ *          lParam - LPARAM message parameter
+ *
+ *  Return: FALSE if message is not processed
+ *          TRUE if message is processed here
+ *
+ *  Description: This is the window procedure for the "General" page dialog
+ *               of the property sheet dialog box. All the Property Sheet
+ *               related events are passed as WM_NOTIFY messages and they
+ *               are identified within the LPARAM which will be pointer to 
+ *               the NMDR structure
+ *****************************************************************************/
+
+	switch (unMsg) {
+	case WM_INITDIALOG:
+		{
+			char *pszPtr;
+			char szText[MSG_STRINGLEN];
+			char szWindowText[WIN_TEXTLEN];
+
+			lstrcpy(szText, GDS_VERSION);
+			SetDlgItemText(hDlg, IDC_STAT1, szText);
+
+			LoadString(hInstance, IDS_UNLIMITED_USERS, szText, MSG_STRINGLEN);
+
+			SetDlgItemText(hDlg, IDC_LICENSE, szText);
+
+			if (usServerFlags & (SRVR_inet | SRVR_pipe | SRVR_spx))
+				LoadString(hInstance,
+						   IDS_SERVERPROD_NAME, szText, MSG_STRINGLEN);
+			else
+				LoadString(hInstance,
+						   IDS_LOCALPROD_NAME, szText, MSG_STRINGLEN);
+
+			SetDlgItemText(hDlg, IDC_PRODNAME, szText);
+
+			MakeVersionString(szWindowText, WIN_TEXTLEN, usServerFlags);
+			SetDlgItemText(hDlg, IDC_PROTOCOLS, szWindowText);
+
+			GetModuleFileName(hInstance, szWindowText, WIN_TEXTLEN);
+			pszPtr = strrchr(szWindowText, '\\');
+			*(pszPtr + 1) = 0x00;
+
+			ChopFileName(szWindowText, szWindowText, 38);
+			SetDlgItemText(hDlg, IDC_PATH, szWindowText);
+
+			RefreshUserCount(hDlg);
+		}
+		break;
+	case WM_CTLCOLORDLG:
+	case WM_CTLCOLORSTATIC:
+	case WM_CTLCOLORLISTBOX:
+	case WM_CTLCOLORMSGBOX:
+	case WM_CTLCOLORSCROLLBAR:
+	case WM_CTLCOLORBTN:
+		{
+			OSVERSIONINFO OsVersionInfo;
+
+			OsVersionInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
+			if (GetVersionEx((LPOSVERSIONINFO) & OsVersionInfo) &&
+				OsVersionInfo.dwMajorVersion < 4) {
+				SetBkMode((HDC) wParam, TRANSPARENT);
+				return (LRESULT) hGrayBrush;
+			}
+		}
+		break;
+	case WM_HELP:
+		{
+			LPHELPINFO lphi;
+
+			lphi = (LPHELPINFO) lParam;
+			if (lphi->iContextType == HELPINFO_WINDOW)	// must be for a control
+			{
+				WinHelp(static_cast < HWND > (lphi->hItemHandle),
+						"IBSERVER.HLP",
+						HELP_WM_HELP, (DWORD) (LPVOID) aMenuHelpIDs);
+			}
+		}
+		return TRUE;
+	case WM_CONTEXTMENU:
+		{
+			WinHelp((HWND) wParam,
+					"IBSERVER.HLP",
+					HELP_CONTEXTMENU, (DWORD) (LPVOID) aMenuHelpIDs);
+		}
+		return TRUE;
+	case WM_COMMAND:
+		switch (wParam) {
+		case IDC_REFRESH:
+			RefreshUserCount(hDlg);
+			break;
+		}
+		break;
+	case WM_NOTIFY:
+		switch (((LPNMHDR) lParam)->code) {
+		case PSN_KILLACTIVE:
+			SetWindowLong(hDlg, DWL_MSGRESULT, FALSE);
+			break;
+		case PSN_HELP:
+			HelpCmd(hDlg, hInstance, ibsp_Server_Information_Properties);
+			break;
+		}
+		break;
+	}
+	return FALSE;
+}
+
+static char *MakeVersionString(char *pchBuf, int nLen,
+							   USHORT usServerFlagMask)
+{
+/******************************************************************************
+ *
+ *  M a k e V e r s i o n S t r i n g
+ *
+ ******************************************************************************
+ *
+ *  Input:  pchBuf - Buffer to be filled into
+ *          nLen - Length of the buffer
+ *          usServerFlagMask - Bit flag mask encoding the server flags
+ *
+ *  Return: Buffer containing the version string
+ *
+ *  Description: This method is called to get the Version String. This string
+ *               is based on the flag set in usServerFlagMask.
+ *****************************************************************************/
+	char *p = pchBuf;
+	char *end = p + nLen;
+
+	if (usServerFlagMask & SRVR_inet) {
+		p += LoadString(hInstance, IDS_TCP, p, end - p);
+		if (p < end)
+			*p++ = '\r';
+		if (p < end)
+			*p++ = '\n';
+	}
+	if (usServerFlagMask & SRVR_pipe) {
+		p += LoadString(hInstance, IDS_NP, p, end - p);
+		if (p < end)
+			*p++ = '\r';
+		if (p < end)
+			*p++ = '\n';
+	}
+	if (usServerFlagMask & SRVR_ipc) {
+		p += LoadString(hInstance, IDS_IPC, p, end - p);
+	}
+	return pchBuf;
+}
+
+static void RefreshUserCount(HWND hDlg)
+{
+/******************************************************************************
+ *
+ *  R e f r e s h U s e r C o u n t
+ *
+ ******************************************************************************
+ *
+ *  Input:  hDlg - Handle to the General page dialog
+ *
+ *  Return: void
+ *
+ *  Description: This method calls the JRD_num_attachments() function to get
+ *               the number of active attachments to the server.
+ *****************************************************************************/
+	char szText[MSG_STRINGLEN];
+	USHORT num_att = 0;
+	USHORT num_dbs = 0;
+	HCURSOR hOldCursor = SetCursor(LoadCursor(NULL, IDC_WAIT));
+
+	JRD_num_attachments(NULL, 0, 0, &num_att, &num_dbs);
+	sprintf(szText, "%d", num_att);
+	SetDlgItemText(hDlg, IDC_STAT2, szText);
+	sprintf(szText, "%d", num_dbs);
+	SetDlgItemText(hDlg, IDC_STAT3, szText);
+
+	SetCursor(hOldCursor);
+}
diff --git a/src/remote/property.rc b/src/remote/property.rc
new file mode 100644
index 0000000000..54d9854707
--- /dev/null
+++ b/src/remote/property.rc
@@ -0,0 +1,59 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "property.rh"
+
+GENERAL_DLG DIALOG 6, 15, 202, 191
+STYLE DS_MODALFRAME | 0x4L | WS_CHILD | WS_VISIBLE | WS_DLGFRAME
+FONT 8, "MS Sans Serif"
+{
+ ICON IDI_IBSVR, IDC_IBSVR_ICON, 12, 12, 18, 20
+ LTEXT "", IDC_PRODNAME, 46, 16, 140, 12
+ LTEXT "Location:", IDC_LOCATION_TEXT, 14, 49, 40, 12
+ LTEXT "Version:", IDC_VERSION_TEXT, 14, 69, 40, 12
+ LTEXT "Capabilities:", IDC_CAPABILITIES_TEXT, 14, 106, 40, 12
+ LTEXT "", IDC_PATH, 60, 49, 130, 24
+ LTEXT "", IDC_STAT1, 60, 69, 120, 12
+ LTEXT "", IDC_PROTOCOLS, 60, 106, 120, 32
+ LTEXT "Number of attachments:", IDC_NUM_ATTACH_TEXT, 14, 149, 75, 12
+ LTEXT "Number of databases:", IDC_NUM_DB_TEXT, 14, 166, 75, 12
+ LTEXT "", IDC_STAT2, 102, 149, 28, 12
+ LTEXT "", IDC_STAT3, 102, 166, 28, 12
+ CONTROL "", -1, "STATIC", SS_GRAYRECT | 0x1000L | NOT WS_GROUP, 12, 41, 180, 1
+ CONTROL "", -1, "STATIC", SS_GRAYRECT | 0x1000L | NOT WS_GROUP, 12, 138, 180, 1
+ PUSHBUTTON "&Refresh", IDC_REFRESH, 132, 157, 53, 13
+ LTEXT "License:", IDC_LICENSED_TEXT, 14, 87, 33, 11
+ LTEXT "", IDC_LICENSE, 60, 87, 122, 12
+}
+
+STRINGTABLE 
+BEGIN
+ IDS_TCP, "TCP/IP Client Support"
+ IDS_IPC, "Local Client Support"
+ IDS_NP, "NetBEUI Client Support"
+ IDS_SERVERPROD_NAME, "InterBase SQL Server for Windows"
+ IDS_LOCALPROD_NAME, "Local InterBase Server"
+ IDS_STARTUP_NODLL, "REGCFG.DLL not found"
+ IDS_STARTUP_LAUNCHER, "LaunchInstReg entrypoint not\r\nfound in REGCFG.DLL"
+ IDS_USERS, " User"
+ IDS_UNLIMITED_USERS, "Unlimited Access"
+END
+
+IDI_IBSVR ICON "server.ico"
+
+#include "ibconfig.rc"
diff --git a/src/remote/property.rh b/src/remote/property.rh
new file mode 100644
index 0000000000..b095df7156
--- /dev/null
+++ b/src/remote/property.rh
@@ -0,0 +1,95 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/****************************************************************************
+
+
+property.rh
+
+produced by Borland Resource Workshop
+
+
+*****************************************************************************/
+
+#define DIALOG_5        5
+#define IDS_    47
+#define IDS_CFGATTACH_FAILED    47
+#define IDS_CFGREAD_FAILED      48
+#define IDS_CFGWRITE_FAILED     62
+#define IDS_CFGNOT_SYSDBA       63
+#define IDS_CFGBAD_PASSWD       64
+#define IDS_STARTUP_NODLL       70
+#define IDS_STARTUP_LAUNCHER    71
+#define IDS_CFGSETIBERR         72
+#define IDS_CFGSETOSERR         73
+#define IDS_MODIFYBTN           74
+#define IDS_RESETBTN            75
+#define IDS_USERS		78
+#define IDS_UNLIMITED_USERS	79
+
+#define ADVANCED_DLG    5
+#define IDC_DBAPASSWORD 101
+#define DS_3DLOOK       0x0004L
+
+#define GENERAL_DLG     1
+#define CONFIG_DLG      2
+#define PASSWORD_DLG    3
+#define IDC_GROUPBOX1   110
+#define IDC_MINSIZE     111
+#define IDC_MAXSIZE     112
+#define IDC_MODRES      113
+#define IDC_PRIORITYNORM        114
+#define IDC_PRIORITYHIGH        115
+#define IDC_GROUPBOX2   116
+#define IDC_MAPSIZE     117
+#define IDC_DBPAGES     118
+#define IDC_MAPTEXT             119
+#define IDC_CACHETEXT           120
+#define IDC_MINSIZETEXT         121
+#define IDC_MAXSIZETEXT 122
+#define IDC_COMBOBOX1   123
+#define IDC_PRODNAME    124  
+#define IDC_CAUTION_ICON 125
+#define IDC_IBSVR_ICON  126
+#define IDC_DEFAULT_TEXT 127
+#define IDC_LOCATION_TEXT 128
+#define IDC_CAPABILITIES_TEXT 129
+#define IDC_VERSION_TEXT 130
+#define IDC_NUM_ATTACH_TEXT 131
+#define IDC_NUM_DB_TEXT 132
+#define IDC_LICENSED_TEXT	133
+
+#define IDC_PATH        101
+#define IDC_STAT1       102
+#define IDC_STAT2       103
+#define IDC_STAT3       104
+#define IDC_REFRESH     105
+#define IDC_PROTOCOLS   106
+#define IDC_LICENSE	107
+
+#define IDI_IBSVR       1007
+#define IDI_CAUTION     1008
+
+#define IDS_TCP         11
+#define IDS_NP          12
+#define IDS_IPC         13
+
+
+#define IDS_SERVERPROD_NAME     76
+#define IDS_LOCALPROD_NAME      77
diff --git a/src/remote/propty_proto.h b/src/remote/propty_proto.h
new file mode 100644
index 0000000000..d594a3196c
--- /dev/null
+++ b/src/remote/propty_proto.h
@@ -0,0 +1,26 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef PROPERTY_PROTO_H
+#define PROPERTY_PROTO_H
+
+// Property Sheet specific function prototypes
+extern HWND DisplayProperties (HWND, HINSTANCE, USHORT);
+
+#endif // PROPERTY_PROTO_H
diff --git a/src/remote/proto_proto.h b/src/remote/proto_proto.h
new file mode 100644
index 0000000000..246f84dbb8
--- /dev/null
+++ b/src/remote/proto_proto.h
@@ -0,0 +1,33 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		proto_proto.h
+ *	DESCRIPTION:	Prototype Header file for protocol.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_PROTO_PROTO_H_
+#define _REMOTE_PROTO_PROTO_H_
+
+#ifdef DEBUG_XDR_MEMORY
+extern void	xdr_debug_memory (XDR *, enum xdr_op, void *, void *, ULONG);
+#endif
+extern bool_t	xdr_protocol (XDR *, struct packet *);
+extern ULONG	xdr_protocol_overhead (P_OP);
+
+#endif	/*  _REMOTE_PROTO_PROTO_H_  */
diff --git a/src/remote/protocol.cpp b/src/remote/protocol.cpp
new file mode 100644
index 0000000000..1e8ffc931d
--- /dev/null
+++ b/src/remote/protocol.cpp
@@ -0,0 +1,2139 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		protocol.c
+ *	DESCRIPTION:	Protocol data structure mapper
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../remote/remote.h"
+#include "../jrd/codes.h"
+#include "../jrd/sdl.h"
+#include "../jrd/gdsassert.h"
+#include "../remote/parse_proto.h"
+#include "../remote/proto_proto.h"
+#include "../remote/remot_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/sdl_proto.h"
+
+#ifdef DEBUG_XDR_MEMORY
+#define P_TRUE			xdr_debug_packet (xdrs, XDR_FREE, p)
+#define P_FALSE			!xdr_debug_packet (xdrs, XDR_FREE, p)
+#define DEBUG_XDR_PACKET	(void) xdr_debug_packet (xdrs, XDR_DECODE, p)
+#define DEBUG_XDR_ALLOC(xdrvar, addr, len) \
+			xdr_debug_memory (xdrs, XDR_DECODE, xdrvar, addr, (ULONG) len)
+#define DEBUG_XDR_FREE(xdrvar, addr, len) \
+			xdr_debug_memory (xdrs, XDR_FREE, xdrvar, addr, (ULONG) len)
+#else
+#define P_TRUE		TRUE
+#define P_FALSE		FALSE
+#define DEBUG_XDR_PACKET
+#define DEBUG_XDR_ALLOC(xdrvar, addr, len)
+#define DEBUG_XDR_FREE(xdrvar, addr, len)
+#endif /* DEBUG_XDR_MEMORY */
+
+#define MAP(routine, ptr)	if (!routine (xdrs, &ptr)) return P_FALSE;
+#define MAX_OPAQUE		32768
+
+typedef enum {
+	TYPE_IMMEDIATE,
+	TYPE_PREPARED
+} SQL_STMT_TYPE;
+
+static BOOLEAN alloc_cstring(XDR *, CSTRING *);
+static void free_cstring(XDR *, CSTRING *);
+static RSR get_statement(XDR *, SSHORT);
+static bool_t xdr_cstring(XDR *, CSTRING *);
+static bool_t xdr_datum(XDR *, DSC *, BLOB_PTR *);
+static bool_t xdr_debug_packet(XDR *, enum xdr_op, PACKET *);
+
+#ifndef SOLARIS					/* On SOLARIS, xdr_hyper() is provided by system XDR library */
+static bool_t xdr_hyper(register XDR *, SINT64 *);
+#endif
+
+static bool_t xdr_longs(XDR *, CSTRING *);
+static bool_t xdr_message(XDR *, MSG, FMT);
+static bool_t xdr_quad(register XDR *, register struct bid *);
+static bool_t xdr_request(XDR *, USHORT, USHORT, USHORT);
+static bool_t xdr_semi_opaque(XDR *, MSG, FMT);
+static bool_t xdr_semi_opaque_slice(XDR *, LSTRING *);
+static bool_t xdr_slice(XDR *, LSTRING *, USHORT, BLOB_PTR *);
+static bool_t xdr_status_vector(XDR *, STATUS *, TEXT * strings[]);
+static bool_t xdr_sql_blr(XDR *, SLONG, CSTRING *, int, SQL_STMT_TYPE);
+static bool_t xdr_sql_message(XDR *, SLONG);
+static bool_t xdr_trrq_blr(XDR *, CSTRING *);
+static bool_t xdr_trrq_message(XDR *, USHORT);
+
+#if 0
+// TMN: Patched away this for now, it should probably be removed.
+// Now why the ... would anyone want to define functions differently
+// in an implementation file than they  are defined in their header?!
+
+extern bool_t xdr_enum();
+extern bool_t xdr_short();
+extern bool_t xdr_u_short();
+extern bool_t xdr_long();
+#  ifdef SOLARIS
+extern bool_t xdr_hyper();
+#  endif
+extern bool_t xdr_opaque();
+extern bool_t xdr_string();
+extern bool_t xdr_float();
+extern bool_t xdr_double();
+extern bool_t xdr_wrapstring();
+
+#  ifndef IMP
+extern bool_t xdr_free();
+#  endif
+
+#else // 0
+
+#  include "../remote/xdr_proto.h"
+
+#endif // 0
+
+
+#ifdef VMS
+extern double MTH$CVT_D_G(), MTH$CVT_G_D();
+
+static STR gfloat_buffer;
+#endif
+
+#ifdef	mips
+#define	LOC_DOUBLE
+#endif
+
+
+#ifdef SHLIB_DEFS
+
+#  undef connect
+#  define xdr_enum	(*_libgds_xdr_enum)
+#  define xdr_short	(*_libgds_xdr_short)
+#  define xdr_u_short	(*_libgds_xdr_u_short)
+#  define xdr_long	(*_libgds_xdr_long)
+#  define xdr_opaque	(*_libgds_xdr_opaque)
+#  define xdr_string	(*_libgds_xdr_string)
+#  ifndef sgi
+#    define xdr_float       (*_libgds_xdr_float)
+#    define xdr_double      (*_libgds_xdr_double)
+#  endif
+#  define	xdr_wrapstring	(*_libgds_xdr_wrapstring)
+#  ifndef IMP
+#    define	xdr_free	(*_libgds_xdr_free)
+#  endif
+
+#if 0
+// TMN: Patched away this for now, it should probably be removed.
+// Now why the ... would anyone want to define functions differently
+// in an implementation file than they  are defined in their header?!
+
+extern bool_t xdr_enum();
+extern bool_t xdr_short();
+extern bool_t xdr_u_short();
+extern bool_t xdr_long();
+extern bool_t xdr_opaque();
+extern bool_t xdr_string();
+# ifndef sgi
+extern bool_t xdr_float();
+extern bool_t xdr_double();
+# endif	// sgi
+extern bool_t xdr_wrapstring();
+# ifndef IMP
+extern bool_t xdr_free();
+# endif	// IMP
+
+#else // 0
+
+#  include "../remote/xdr_proto.h"
+
+#endif // 0
+
+#endif // SHLIB_DEFS
+
+
+
+#ifdef DEBUG
+static ULONG xdr_save_size = 0;
+#define DEBUG_PRINTSIZE(p)  ib_fprintf (ib_stderr, "xdr_protocol: %s op %d size %d\n", \
+		((xdrs->x_op == XDR_FREE)   ? "free" : \
+		 (xdrs->x_op == XDR_ENCODE) ? "enc " : \
+		 (xdrs->x_op == XDR_DECODE) ? "dec " : \
+	                                      "othr"), \
+		(p),                                   \
+		((xdrs->x_op == XDR_ENCODE)            \
+		     ? (xdrs->x_handy - xdr_save_size) \
+		     : (xdr_save_size - xdrs->x_handy)))
+#endif
+#ifndef DEBUG_PRINTSIZE
+#define DEBUG_PRINTSIZE(p)		/* nothing */
+#endif
+
+
+#ifdef DEBUG_XDR_MEMORY
+void xdr_debug_memory(
+					  XDR * xdrs,
+					  enum xdr_op xop,
+					  void *xdrvar, void *address, ULONG length)
+{
+/**************************************
+ *
+ *	x d r _ d e b u g _ m e m o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Track memory allocation patterns of XDR aggregate
+ *	types (i.e. xdr_cstring, xdr_string, etc.) to
+ *	validate that memory is not leaked by overwriting
+ *	XDR aggregate pointers and that freeing a packet
+ *	with REMOTE_free_packet() does not miss anything.
+ *
+ *	All memory allocations due to marshalling XDR
+ *	variables are recorded in a debug memory alloca-
+ *	tion table stored at the front of a packet.
+ *
+ *	Once a packet is being tracked it is an assertion
+ *	error if a memory allocation can not be recorded
+ *	due to space limitations or if a previous memory
+ *	allocation being freed cannot be found. At most
+ *	P_MALLOC_SIZE entries can be stored in the memory
+ *	allocation table. A rough estimate of the number
+ *	of XDR aggregates that can hang off a packet can
+ *	be obtained by examining the subpackets defined
+ *	in <remote/protocol.h>: A guestimate of 36 at this
+ *	time includes 10 strings used to decode an xdr
+ *	status vector.
+ *
+ **************************************/
+	PACKET *packet;
+	VEC vector;
+	PORT port;
+	ULONG i, j;
+
+	port = (PORT) xdrs->x_public;
+	assert(port != 0);
+	assert(port->port_header.blk_type == type_port);
+
+/* Compare the XDR variable address with the lower and upper bounds
+   of each packet to determine which packet contains it. Record or
+   delete an entry in that packet's memory allocation table. */
+
+	if (!(vector = port->port_packet_vector))	/* Not tracking port's protocol */
+		return;
+
+	for (i = 0; i < vector->vec_count; i++) {
+		if (packet = (PACKET *) vector->vec_object[i]) {
+			assert(packet->p_operation > op_void
+				   && packet->p_operation < op_max);
+
+			if ((SCHAR *) xdrvar >= (SCHAR *) packet &&
+				(SCHAR *) xdrvar < (SCHAR *) packet + sizeof(PACKET)) {
+				for (j = 0; j < P_MALLOC_SIZE; j++) {
+					if (xop == XDR_FREE) {
+						if ((SCHAR *) packet->p_malloc[j].p_address ==
+							(SCHAR *) address) {
+							packet->p_malloc[j].p_operation = op_void;
+							packet->p_malloc[j].p_allocated = NULL;
+							packet->p_malloc[j].p_address = 0;
+							/*  packet->p_malloc [j].p_xdrvar = 0; */
+							return;
+						}
+					}
+					else {		/* XDR_ENCODE or XDR_DECODE */
+
+						assert(xop == XDR_ENCODE || xop == XDR_DECODE);
+						if (packet->p_malloc[j].p_operation == op_void) {
+							packet->p_malloc[j].p_operation =
+								packet->p_operation;
+							packet->p_malloc[j].p_allocated = length;
+							packet->p_malloc[j].p_address = address;
+							/*  packet->p_malloc [j].p_xdrvar = xdrvar; */
+							return;
+						}
+					}
+				}
+				/* Assertion failure if not enough entries to record every xdr
+				   memory allocation or an entry to be freed can't be found. */
+
+				assert(j < P_MALLOC_SIZE);	/* Increase P_MALLOC_SIZE if necessary */
+			}
+		}
+	}
+	assert(i < vector->vec_count);	/* Couldn't find packet for this xdr arg */
+}
+#endif
+
+
+bool_t xdr_protocol(XDR * xdrs, PACKET * p)
+{
+/**************************************
+ *
+ *	x d r _ p r o t o c o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Encode, decode, or free a protocol packet.
+ *
+ **************************************/
+	USHORT i;
+	p_cnct::p_cnct_repeat * tail;
+	PORT port;
+	P_CNCT *connect;
+	P_ACPT *accept;
+	P_ATCH *attach;
+	P_RESP *response;
+	P_CMPL *compile;
+	P_STTR *transaction;
+	P_DATA *data;
+	P_RLSE *release;
+	P_BLOB *blob;
+	P_SGMT *segment;
+	P_INFO *info;
+	P_PREP *prepare;
+	P_EVENT *event;
+	P_REQ *request;
+	P_DDL *ddl;
+	P_SLC *slice;
+	P_SLR *slice_response;
+	P_SEEK *seek;
+	P_SQLFREE *free_stmt;
+	P_SQLCUR *sqlcur;
+	P_SQLST *prep_stmt;
+	P_SQLDATA *sqldata;
+	P_TRRQ *trrq;
+#ifdef DEBUG
+	xdr_save_size = xdrs->x_handy;
+#endif
+
+	DEBUG_XDR_PACKET;
+
+	if (!xdr_enum(xdrs, reinterpret_cast < xdr_op * >(&p->p_operation)))
+		return P_FALSE;
+
+	switch (p->p_operation) {
+	case op_reject:
+	case op_disconnect:
+	case op_dummy:
+		return P_TRUE;
+
+	case op_connect:
+		connect = &p->p_cnct;
+		MAP(xdr_enum,
+			reinterpret_cast < xdr_op & >(connect->p_cnct_operation));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(connect->p_cnct_cversion));
+		MAP(xdr_enum, reinterpret_cast < xdr_op & >(connect->p_cnct_client));
+		MAP(xdr_cstring, connect->p_cnct_file);
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(connect->p_cnct_count));
+		MAP(xdr_cstring, connect->p_cnct_user_id);
+		for (i = 0, tail = connect->p_cnct_versions;
+			 i < connect->p_cnct_count; i++, tail++) {
+			MAP(xdr_short,
+				reinterpret_cast < SSHORT & >(tail->p_cnct_version));
+			MAP(xdr_enum,
+				reinterpret_cast < xdr_op & >(tail->p_cnct_architecture));
+			MAP(xdr_u_short, tail->p_cnct_min_type);
+			MAP(xdr_u_short, tail->p_cnct_max_type);
+			MAP(xdr_short,
+				reinterpret_cast < SSHORT & >(tail->p_cnct_weight));
+		}
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_accept:
+		accept = &p->p_acpt;
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(accept->p_acpt_version));
+		MAP(xdr_enum,
+			reinterpret_cast < xdr_op & >(accept->p_acpt_architecture));
+		MAP(xdr_u_short, accept->p_acpt_type);
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_connect_request:
+	case op_aux_connect:
+		request = &p->p_req;
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(request->p_req_type));
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(request->p_req_object));
+		MAP(xdr_long, reinterpret_cast < SLONG & >(request->p_req_partner));
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_attach:
+	case op_create:
+	case op_service_attach:
+		attach = &p->p_atch;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(attach->p_atch_database));
+		MAP(xdr_cstring, attach->p_atch_file);
+		MAP(xdr_cstring, attach->p_atch_dpb);
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_compile:
+		compile = &p->p_cmpl;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(compile->p_cmpl_database));
+		MAP(xdr_cstring, compile->p_cmpl_blr);
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_receive:
+	case op_start:
+	case op_start_and_receive:
+		data = &p->p_data;
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(data->p_data_request));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(data->p_data_incarnation));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(data->p_data_transaction));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(data->p_data_message_number));
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(data->p_data_messages));
+#ifdef SCROLLABLE_CURSORS
+		port = (PORT) xdrs->x_public;
+		if ((p->p_operation == op_receive) &&
+			(port->port_protocol > PROTOCOL_VERSION8)) {
+			MAP(xdr_short,
+				reinterpret_cast < SSHORT & >(data->p_data_direction));
+			MAP(xdr_long, data->p_data_offset);
+		}
+
+#endif
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_send:
+	case op_start_and_send:
+	case op_start_send_and_receive:
+		data = &p->p_data;
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(data->p_data_request));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(data->p_data_incarnation));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(data->p_data_transaction));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(data->p_data_message_number));
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(data->p_data_messages));
+
+		/* Changes to this op's protocol must mirror in xdr_protocol_overhead */
+
+		return xdr_request(xdrs, data->p_data_request,
+						   data->p_data_message_number,
+						   data->p_data_incarnation) ? P_TRUE : P_FALSE;
+
+	case op_response:
+	case op_response_piggyback:
+
+		/* Changes to this op's protocol must be mirrored 
+		   in xdr_protocol_overhead */
+
+		response = &p->p_resp;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(response->p_resp_object));
+		MAP(xdr_quad, response->p_resp_blob_id);
+		MAP(xdr_cstring, response->p_resp_data);
+		return xdr_status_vector(xdrs, response->p_resp_status_vector,
+								 reinterpret_cast <
+								 char **>(response->
+										  p_resp_strings)) ? P_TRUE : P_FALSE;
+
+	case op_transact:
+		trrq = &p->p_trrq;
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(trrq->p_trrq_database));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(trrq->p_trrq_transaction));
+		xdr_trrq_blr(xdrs, &trrq->p_trrq_blr);
+		MAP(xdr_cstring, trrq->p_trrq_blr);
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(trrq->p_trrq_messages));
+		if (trrq->p_trrq_messages)
+			return xdr_trrq_message(xdrs, 0) ? P_TRUE : P_FALSE;
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_transact_response:
+		data = &p->p_data;
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(data->p_data_messages));
+		if (data->p_data_messages)
+			return xdr_trrq_message(xdrs, 1) ? P_TRUE : P_FALSE;
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_open_blob2:
+	case op_create_blob2:
+		blob = &p->p_blob;
+		MAP(xdr_cstring, blob->p_blob_bpb);
+
+	case op_open_blob:
+	case op_create_blob:
+		blob = &p->p_blob;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(blob->p_blob_transaction));
+		MAP(xdr_quad, blob->p_blob_id);
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_get_segment:
+	case op_put_segment:
+	case op_batch_segments:
+		segment = &p->p_sgmt;
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(segment->p_sgmt_blob));
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(segment->p_sgmt_length));
+		MAP(xdr_cstring, segment->p_sgmt_segment);
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_seek_blob:
+		seek = &p->p_seek;
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(seek->p_seek_blob));
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(seek->p_seek_mode));
+		MAP(xdr_long, seek->p_seek_offset);
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_reconnect:
+	case op_transaction:
+		transaction = &p->p_sttr;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(transaction->p_sttr_database));
+		MAP(xdr_cstring, transaction->p_sttr_tpb);
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_info_blob:
+	case op_info_database:
+	case op_info_request:
+	case op_info_transaction:
+	case op_service_info:
+	case op_info_sql:
+		info = &p->p_info;
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(info->p_info_object));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(info->p_info_incarnation));
+		MAP(xdr_cstring, info->p_info_items);
+		if (p->p_operation == op_service_info)
+			MAP(xdr_cstring, info->p_info_recv_items);
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(info->p_info_buffer_length));
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_service_start:
+		info = &p->p_info;
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(info->p_info_object));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(info->p_info_incarnation));
+		MAP(xdr_cstring, info->p_info_items);
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_commit:
+	case op_prepare:
+	case op_rollback:
+	case op_unwind:
+	case op_release:
+	case op_close_blob:
+	case op_cancel_blob:
+	case op_detach:
+	case op_drop_database:
+	case op_service_detach:
+	case op_commit_retaining:
+	case op_rollback_retaining:
+	case op_allocate_statement:
+		release = &p->p_rlse;
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(release->p_rlse_object));
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_prepare2:
+		prepare = &p->p_prep;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(prepare->p_prep_transaction));
+		MAP(xdr_cstring, prepare->p_prep_data);
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_que_events:
+	case op_event:
+		event = &p->p_event;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(event->p_event_database));
+		MAP(xdr_cstring, event->p_event_items);
+		MAP(xdr_long, event->p_event_ast);
+		MAP(xdr_long, event->p_event_arg);
+		MAP(xdr_long, event->p_event_rid);
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_cancel_events:
+		event = &p->p_event;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(event->p_event_database));
+		MAP(xdr_long, event->p_event_rid);
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_ddl:
+		ddl = &p->p_ddl;
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(ddl->p_ddl_database));
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(ddl->p_ddl_transaction));
+		MAP(xdr_cstring, ddl->p_ddl_blr);
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_get_slice:
+	case op_put_slice:
+		slice = &p->p_slc;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(slice->p_slc_transaction));
+		MAP(xdr_quad, slice->p_slc_id);
+		MAP(xdr_long, reinterpret_cast < SLONG & >(slice->p_slc_length));
+		MAP(xdr_cstring, slice->p_slc_sdl);
+		MAP(xdr_longs, slice->p_slc_parameters);
+		slice_response = &p->p_slr;
+		if (slice_response->p_slr_sdl) {
+			if (!xdr_slice(xdrs, &slice->p_slc_slice,
+						   slice_response->p_slr_sdl_length,
+						   slice_response->p_slr_sdl)) return P_FALSE;
+		}
+		else
+			if (!xdr_slice(xdrs, &slice->p_slc_slice,
+						   slice->p_slc_sdl.cstr_length,
+						   slice->p_slc_sdl.cstr_address)) return P_FALSE;
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_slice:
+		slice_response = &p->p_slr;
+		MAP(xdr_long,
+			reinterpret_cast < SLONG & >(slice_response->p_slr_length));
+		if (!xdr_slice
+			(xdrs, &slice_response->p_slr_slice,
+			 slice_response->p_slr_sdl_length,
+			 slice_response->p_slr_sdl)) return P_FALSE;
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_execute:
+	case op_execute2:
+		sqldata = &p->p_sqldata;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqldata->p_sqldata_statement));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqldata->p_sqldata_transaction));
+		if (xdrs->x_op == XDR_DECODE) {
+			/* the statement should be reset for each execution so that 
+			   all prefetched information from a prior execute is properly 
+			   cleared out.  This should be done before fetching any message 
+			   information (for example: blr info)
+			 */
+
+			RSR statement = NULL;
+			statement = get_statement(xdrs, sqldata->p_sqldata_statement);
+			if (statement)
+				REMOTE_reset_statement(statement);
+		}
+
+		xdr_sql_blr(xdrs, (SLONG) sqldata->p_sqldata_statement,
+					&sqldata->p_sqldata_blr, FALSE, TYPE_PREPARED);
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqldata->p_sqldata_message_number));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqldata->p_sqldata_messages));
+		if (sqldata->p_sqldata_messages) {
+			if (!xdr_sql_message(xdrs, (SLONG) sqldata->p_sqldata_statement))
+				return P_FALSE;
+		}
+		if (p->p_operation == op_execute2) {
+			xdr_sql_blr(xdrs, (SLONG) - 1, &sqldata->p_sqldata_out_blr, TRUE,
+						TYPE_PREPARED);
+			MAP(xdr_short,
+				reinterpret_cast <
+				SSHORT & >(sqldata->p_sqldata_out_message_number));
+		}
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_exec_immediate2:
+		prep_stmt = &p->p_sqlst;
+		xdr_sql_blr(xdrs, (SLONG) - 1, &prep_stmt->p_sqlst_blr, FALSE,
+					TYPE_IMMEDIATE);
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(prep_stmt->p_sqlst_message_number));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(prep_stmt->p_sqlst_messages));
+		if (prep_stmt->p_sqlst_messages) {
+			if (!xdr_sql_message(xdrs, (SLONG) - 1))
+				return P_FALSE;
+		}
+		xdr_sql_blr(xdrs, (SLONG) - 1, &prep_stmt->p_sqlst_out_blr, TRUE,
+					TYPE_IMMEDIATE);
+		MAP(xdr_short,
+			reinterpret_cast <
+			SSHORT & >(prep_stmt->p_sqlst_out_message_number));
+		/* Fall into ... */
+
+	case op_exec_immediate:
+	case op_prepare_statement:
+		prep_stmt = &p->p_sqlst;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(prep_stmt->p_sqlst_transaction));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(prep_stmt->p_sqlst_statement));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(prep_stmt->p_sqlst_SQL_dialect));
+		MAP(xdr_cstring, prep_stmt->p_sqlst_SQL_str);
+		MAP(xdr_cstring, prep_stmt->p_sqlst_items);
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(prep_stmt->p_sqlst_buffer_length));
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_fetch:
+		sqldata = &p->p_sqldata;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqldata->p_sqldata_statement));
+		xdr_sql_blr(xdrs, (SLONG) sqldata->p_sqldata_statement,
+					&sqldata->p_sqldata_blr, TRUE, TYPE_PREPARED);
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqldata->p_sqldata_message_number));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqldata->p_sqldata_messages));
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_fetch_response:
+		sqldata = &p->p_sqldata;
+		MAP(xdr_long,
+			reinterpret_cast < SLONG & >(sqldata->p_sqldata_status));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqldata->p_sqldata_messages));
+
+		/* Changes to this op's protocol must mirror in xdr_protocol_overhead */
+
+		port = (PORT) xdrs->x_public;
+		if (
+			(port->port_protocol > PROTOCOL_VERSION7
+			 && sqldata->p_sqldata_messages)
+			|| (port->port_protocol <= PROTOCOL_VERSION7
+				&& !sqldata->p_sqldata_status)) return xdr_sql_message(xdrs,
+																	   (SLONG)
+																	   sqldata->
+																	   p_sqldata_statement)
+				? P_TRUE : P_FALSE;
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_free_statement:
+		free_stmt = &p->p_sqlfree;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(free_stmt->p_sqlfree_statement));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(free_stmt->p_sqlfree_option));
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_insert:
+		sqldata = &p->p_sqldata;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqldata->p_sqldata_statement));
+		xdr_sql_blr(xdrs, (SLONG) sqldata->p_sqldata_statement,
+					&sqldata->p_sqldata_blr, FALSE, TYPE_PREPARED);
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqldata->p_sqldata_message_number));
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqldata->p_sqldata_messages));
+		if (sqldata->p_sqldata_messages)
+			return xdr_sql_message(xdrs,
+								   (SLONG) sqldata->
+								   p_sqldata_statement) ? P_TRUE : P_FALSE;
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_set_cursor:
+		sqlcur = &p->p_sqlcur;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqlcur->p_sqlcur_statement));
+		MAP(xdr_cstring, sqlcur->p_sqlcur_cursor_name);
+		MAP(xdr_short, reinterpret_cast < SSHORT & >(sqlcur->p_sqlcur_type));
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	case op_sql_response:
+		sqldata = &p->p_sqldata;
+		MAP(xdr_short,
+			reinterpret_cast < SSHORT & >(sqldata->p_sqldata_messages));
+		if (sqldata->p_sqldata_messages)
+			return xdr_sql_message(xdrs, (SLONG) - 1) ? P_TRUE : P_FALSE;
+		DEBUG_PRINTSIZE(p->p_operation);
+		return P_TRUE;
+
+	default:
+#ifdef DEBUG
+		if (xdrs->x_op != XDR_FREE)
+			ib_fprintf(ib_stderr, "xdr_packet: operation %d not recognized\n",
+					   p->p_operation);
+#endif
+		assert(xdrs->x_op == XDR_FREE);
+		return P_FALSE;
+	}
+}
+
+
+ULONG xdr_protocol_overhead(P_OP op)
+{
+/**************************************
+ *
+ *	x d r _ p r o t o c o l _ o v e r h e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report the overhead size of a particular packet.
+ *	NOTE: This is not the same as the actual size to
+ *	send the packet - as this figure discounts any data
+ *	to be sent with the packet.  It's purpose is to figure
+ *	overhead for deciding on a batching window count.
+ *
+ *	A better version of this routine would use xdr_sizeof - but
+ *	it is unknown how portable that Solaris call is to other
+ *	OS.
+ *
+ **************************************/
+	ULONG size;
+
+	size = 4 /* xdr_sizeof (xdr_enum, p->p_operation) */ ;
+
+	switch (op) {
+	case op_fetch_response:
+		size += 4				/* xdr_sizeof (xdr_long, sqldata->p_sqldata_status) */
+			+ 4 /* xdr_sizeof (xdr_short, sqldata->p_sqldata_messages) */ ;
+		break;
+
+	case op_send:
+	case op_start_and_send:
+	case op_start_send_and_receive:
+		size += 4				/* xdr_sizeof (xdr_short, data->p_data_request) */
+			+ 4					/* xdr_sizeof (xdr_short, data->p_data_incarnation) */
+			+ 4					/* xdr_sizeof (xdr_short, data->p_data_transaction) */
+			+ 4					/* xdr_sizeof (xdr_short, data->p_data_message_number) */
+			+ 4 /* xdr_sizeof (xdr_short, data->p_data_messages) */ ;
+		break;
+
+	case op_response:
+	case op_response_piggyback:
+		/* Note: minimal amounts are used for cstring & status_vector */
+		size += 4				/* xdr_sizeof (xdr_short, response->p_resp_object) */
+			+ 8					/* xdr_sizeof (xdr_quad, response->p_resp_blob_id) */
+			+ 4					/* xdr_sizeof (xdr_cstring, response->p_resp_data) */
+			+
+			3 *
+			4
+			/* xdr_sizeof (xdr_status_vector (xdrs, response->p_resp_status_vector */
+			;
+		break;
+
+	default:
+		assert(FALSE);			/* Not supported operation */
+		return 0;
+	}
+	return size;
+}
+
+
+static BOOLEAN alloc_cstring( XDR * xdrs, CSTRING * cstring)
+{
+/**************************************
+ *
+ *	a l l o c _ c s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle allocation for cstring.
+ *
+ **************************************/
+
+	if (!cstring->cstr_length)
+		return TRUE;
+
+	if (cstring->cstr_length > cstring->cstr_allocated &&
+		cstring->cstr_allocated) free_cstring(xdrs, cstring);
+
+	if (!cstring->cstr_address) {
+		if (!
+			(cstring->cstr_address =
+			 ALLR_alloc((SLONG) cstring->cstr_length)))
+			/* NOMEM: handled by ALLR_alloc() */
+			/* FREE:  in realloc case above & free_cstring() */
+			return FALSE;
+
+		cstring->cstr_allocated = cstring->cstr_length;
+		DEBUG_XDR_ALLOC(cstring, cstring->cstr_address,
+						cstring->cstr_allocated);
+	}
+
+	return TRUE;
+}
+
+
+static void free_cstring( XDR * xdrs, CSTRING * cstring)
+{
+/**************************************
+ *
+ *	f r e e _ c s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Free any memory allocated for a cstring.
+ *
+ **************************************/
+
+	if (cstring->cstr_allocated) {
+		ALLR_free(cstring->cstr_address);
+		DEBUG_XDR_FREE(cstring, cstring->cstr_address,
+					   cstring->cstr_allocated);
+	}
+
+	cstring->cstr_address = NULL;
+	cstring->cstr_allocated = 0;
+}
+
+
+static bool_t xdr_cstring( XDR * xdrs, CSTRING * cstring)
+{
+/**************************************
+ *
+ *	x d r _ c s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a counted string structure.
+ *
+ **************************************/
+	SLONG l;
+	SCHAR trash[4];
+	static CONST SCHAR filler[4] = { 0, 0, 0, 0 };
+
+	if (!xdr_short
+		(xdrs,
+		 reinterpret_cast < SSHORT * >(&cstring->cstr_length))) return FALSE;
+
+	switch (xdrs->x_op) {
+	case XDR_ENCODE:
+		if (cstring->cstr_length &&
+			!(*xdrs->x_ops->x_putbytes) (xdrs,
+										 reinterpret_cast <
+										 SCHAR * >(cstring->cstr_address),
+										 cstring->cstr_length)) return FALSE;
+		l = (4 - cstring->cstr_length) & 3;
+		if (l)
+			return (*xdrs->x_ops->x_putbytes) (xdrs,
+											   const_cast < SCHAR * >(filler),
+											   l);
+		return TRUE;
+
+	case XDR_DECODE:
+		if (!alloc_cstring(xdrs, cstring))
+			return FALSE;
+		if (!(*xdrs->x_ops->x_getbytes)
+			(xdrs, reinterpret_cast < SCHAR * >(cstring->cstr_address),
+			 cstring->cstr_length)) return FALSE;
+		l = (4 - cstring->cstr_length) & 3;
+		if (l)
+			return (*xdrs->x_ops->x_getbytes) (xdrs, trash, l);
+		return TRUE;
+
+	case XDR_FREE:
+		free_cstring(xdrs, cstring);
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+static bool_t xdr_datum( XDR * xdrs, DSC * desc, BLOB_PTR * buffer)
+{
+/**************************************
+ *
+ *	x d r _ d a t u m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle a data item by relative descriptor and buffer.
+ *
+ **************************************/
+	BLOB_PTR *p;
+	SSHORT n;
+
+	p = buffer + (ULONG) desc->dsc_address;
+
+	switch (desc->dsc_dtype) {
+	case dtype_text:
+		if (!xdr_opaque
+			(xdrs, reinterpret_cast < SCHAR * >(p),
+			 desc->dsc_length)) return FALSE;
+		break;
+
+	case dtype_varying:
+		assert(desc->dsc_length >= sizeof(USHORT));
+		if (!xdr_short
+			(xdrs,
+			 reinterpret_cast <
+			 SSHORT * >(&((VARY) p)->vary_length))) return FALSE;
+		if (!xdr_opaque
+			(xdrs, reinterpret_cast < SCHAR * >(((VARY) p)->vary_string),
+			 MIN((USHORT) (desc->dsc_length - 2), ((VARY) p)->vary_length)))
+			return FALSE;
+		break;
+
+	case dtype_cstring:
+		if (xdrs->x_op == XDR_ENCODE)
+			n =
+				MIN(strlen(reinterpret_cast < char *>(p)),
+					(ULONG) (desc->dsc_length - 1));
+		if (!xdr_short(xdrs, &n))
+			return FALSE;
+		if (!xdr_opaque(xdrs, reinterpret_cast < SCHAR * >(p), n))
+			return FALSE;
+		if (xdrs->x_op == XDR_DECODE)
+			p[n] = 0;
+		break;
+
+	case dtype_short:
+		assert(desc->dsc_length >= sizeof(SSHORT));
+		if (!xdr_short(xdrs, reinterpret_cast < SSHORT * >(p)))
+			return FALSE;
+		break;
+
+	case dtype_sql_time:
+	case dtype_sql_date:
+	case dtype_long:
+		assert(desc->dsc_length >= sizeof(SLONG));
+		if (!xdr_long(xdrs, reinterpret_cast < SLONG * >(p)))
+			return FALSE;
+		break;
+
+	case dtype_real:
+		assert(desc->dsc_length >= sizeof(float));
+		if (!xdr_float(xdrs, reinterpret_cast < float *>(p)))
+			  return FALSE;
+		break;
+
+	case dtype_double:
+		assert(desc->dsc_length >= sizeof(double));
+		if (!xdr_double(xdrs, reinterpret_cast < double *>(p)))
+			  return FALSE;
+		break;
+
+#ifdef VMS
+	case dtype_d_float:
+		assert(desc->dsc_length >= sizeof(d_float));
+		if (!xdr_d_float(xdrs, p))
+			return FALSE;
+		break;
+#endif
+
+	case dtype_timestamp:
+		assert(desc->dsc_length >= 2 * sizeof(SLONG));
+		if (!xdr_long(xdrs, &((SLONG *) p)[0]))
+			return FALSE;
+		if (!xdr_long(xdrs, &((SLONG *) p)[1]))
+			return FALSE;
+		break;
+
+	case dtype_int64:
+		assert(desc->dsc_length >= sizeof(SINT64));
+		if (!xdr_hyper(xdrs, (SINT64 *) p))
+			return FALSE;
+		break;
+
+	case dtype_array:
+	case dtype_quad:
+	case dtype_blob:
+		assert(desc->dsc_length >= sizeof(struct bid));
+		if (!xdr_quad(xdrs, (struct bid *) p))
+			return FALSE;
+		break;
+
+	default:
+		assert(FALSE);
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+#ifdef DEBUG_XDR_MEMORY
+static bool_t xdr_debug_packet( XDR * xdrs, enum xdr_op xop, PACKET * packet)
+{
+/**************************************
+ *
+ *	x d r _ d e b u g _ p a c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start/stop monitoring a packet's memory allocations by
+ *	entering/removing from a port's packet tracking vector.
+ *
+ **************************************/
+	VEC vector;
+	PORT port;
+	ULONG i;
+
+	port = (PORT) xdrs->x_public;
+	assert(port != 0);
+	assert(port->port_header.blk_type == type_port);
+
+	if (xop == XDR_FREE) {
+		/* Free a slot in the packet tracking vector */
+
+		if (vector = port->port_packet_vector)
+			for (i = 0; i < vector->vec_count; i++)
+				if (vector->vec_object[i] == (BLK) packet) {
+					vector->vec_object[i] = 0;
+					return TRUE;
+				}
+	}
+	else {						/* XDR_ENCODE or XDR_DECODE */
+
+		/* Allocate an unused slot in the packet tracking vector
+		   to start recording memory allocations for this packet. */
+
+		assert(xop == XDR_ENCODE || xop == XDR_DECODE);
+		vector = ALLR_vector(&port->port_packet_vector, 0);
+
+		for (i = 0; i < vector->vec_count; i++)
+			if (vector->vec_object[i] == (BLK) packet)
+				return TRUE;
+
+		for (i = 0; i < vector->vec_count; i++)
+			if (vector->vec_object[i] == 0)
+				break;
+
+		if (i >= vector->vec_count)
+			vector = ALLR_vector(&port->port_packet_vector, i);
+
+		vector->vec_object[i] = (BLK) packet;
+	}
+
+	return TRUE;
+}
+#endif
+
+
+#ifndef SOLARIS
+static bool_t xdr_hyper( register XDR * xdrs, SINT64 * pi64)
+{
+/**************************************
+ *
+ *	x d r _ h y p e r       ( n o n - S O L A R I S )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a 64-bit Integer from external to internal representation 
+ *      (or vice versa).
+ *      
+ *      Enable this for all platforms except Solaris (since it is
+ *      available in the XDR library on Solaris). This function (normally) 
+ *      would have been implemented in REMOTE/xdr.c. Since some system 
+ *      XDR libraries (HP-UX) do not implement this function, we have it 
+ *      in this module. At a later date, when the function is available 
+ *      on all platforms, we can start using the system-provided version.
+ *      
+ *      Handles "swapping" of the 2 long's to be "Endian" sensitive. 
+ *
+ **************************************/
+	union {
+		SINT64 temp_int64;
+		SLONG temp_long[2];
+	} temp;
+
+	switch (xdrs->x_op) {
+	case XDR_ENCODE:
+		temp.temp_int64 = *pi64;
+#ifdef VAX
+		if ((*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[1]) &&
+			(*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[0]))
+			return TRUE;
+#else
+		if ((*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[0]) &&
+			(*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[1]))
+			return TRUE;
+#endif
+		return FALSE;
+
+	case XDR_DECODE:
+#ifdef VAX
+		if (!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[1]) ||
+			!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[0]))
+			return FALSE;
+#else
+		if (!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[0]) ||
+			!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[1]))
+			return FALSE;
+#endif
+		*pi64 = temp.temp_int64;
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+// TMN: added compiler silencier return FALSE.
+	return FALSE;
+}
+#endif /* SOLARIS */
+
+
+static bool_t xdr_longs( XDR * xdrs, CSTRING * cstring)
+{
+/**************************************
+ *
+ *	x d r _ l o n g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pass a vector of longs.
+ *
+ **************************************/
+	ULONG n;
+	SLONG *next, *end;
+
+	if (!xdr_short
+		(xdrs,
+		 reinterpret_cast < SSHORT * >(&cstring->cstr_length))) return FALSE;
+
+/* Handle operation specific stuff, particularly memory allocation/deallocation */
+
+	switch (xdrs->x_op) {
+	case XDR_ENCODE:
+		break;
+
+	case XDR_DECODE:
+		if (!alloc_cstring(xdrs, cstring))
+			return FALSE;
+		break;
+
+	case XDR_FREE:
+		free_cstring(xdrs, cstring);
+		return TRUE;
+	}
+
+	n = cstring->cstr_length / sizeof(SLONG);
+
+	for (next = (SLONG *) cstring->cstr_address, end = next + (int) n;
+		 next < end; next++)
+		if (!xdr_long(xdrs, next))
+			return FALSE;
+
+	return TRUE;
+}
+
+
+static bool_t xdr_message( XDR * xdrs, MSG message, FMT format)
+{
+/**************************************
+ *
+ *	x d r _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a formatted message.
+ *
+ **************************************/
+	PORT port;
+	DSC *desc, *end;
+
+	if (xdrs->x_op == XDR_FREE)
+		return TRUE;
+
+	port = (PORT) xdrs->x_public;
+
+/* If we are running a symmetric version of the protocol, just slop
+   the bits and don't sweat the translations */
+
+	if (port->port_flags & PORT_symmetric)
+#ifndef VMS
+		return xdr_opaque(xdrs,
+						  reinterpret_cast < SCHAR * >(message->msg_address),
+						  format->fmt_length);
+#else
+		if (port->port_protocol >= PROTOCOL_VERSION5)
+			return xdr_opaque(xdrs, message->msg_address, format->fmt_length);
+		else
+			return xdr_semi_opaque(xdrs, message, format);
+#endif
+
+	for (desc = format->fmt_desc, end = desc + format->fmt_count; desc < end;
+		 desc++)
+		if (!xdr_datum(xdrs, desc, message->msg_address))
+			return FALSE;
+
+	DEBUG_PRINTSIZE(0);
+	return TRUE;
+}
+
+
+static bool_t xdr_quad( register XDR * xdrs, register struct bid *ip)
+{
+/**************************************
+ *
+ *	x d r _ q u a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *	A "quad" is represented by two longs.
+ *	Currently used only for blobs
+ *
+ **************************************/
+
+	switch (xdrs->x_op) {
+	case XDR_ENCODE:
+		if ((*xdrs->x_ops->x_putlong)
+			(xdrs, reinterpret_cast < SLONG * >(&ip->bid_relation_id))
+			&& (*xdrs->x_ops->x_putlong) (xdrs,
+										  reinterpret_cast <
+										  SLONG *
+										  >(&ip->bid_number))) return TRUE;
+		return FALSE;
+
+	case XDR_DECODE:
+		if (!(*xdrs->x_ops->x_getlong)
+			(xdrs,
+			 reinterpret_cast <
+			 SLONG * >(&ip->bid_relation_id))) return FALSE;
+		return (*xdrs->x_ops->x_getlong) (xdrs,
+										  reinterpret_cast <
+										  SLONG * >(&ip->bid_number));
+
+	case XDR_FREE:
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+static bool_t xdr_request(
+						  XDR * xdrs,
+						  USHORT request_id,
+						  USHORT message_number, USHORT incarnation)
+{
+/**************************************
+ *
+ *	x d r _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a formatted message.
+ *
+ **************************************/
+	PORT port;
+	MSG message;
+	FMT format;
+	RRQ request;
+	rrq::rrq_repeat * tail;
+
+	if (xdrs->x_op == XDR_FREE)
+		return TRUE;
+
+	port = (PORT) xdrs->x_public;
+	request = (RRQ) port->port_objects[request_id];
+
+	if (!request)
+		return FALSE;
+
+	if (incarnation && !(request = REMOTE_find_request(request, incarnation)))
+		return FALSE;
+
+	tail = &request->rrq_rpt[message_number];
+
+	if (!(message = tail->rrq_xdr))
+		return FALSE;
+
+	tail->rrq_xdr = message->msg_next;
+	format = tail->rrq_format;
+
+/* Find the address of the record */
+
+	if (!message->msg_address)
+		message->msg_address = message->msg_buffer;
+
+	return xdr_message(xdrs, message, format);
+}
+
+
+#ifdef VMS
+static bool_t xdr_semi_opaque( XDR * xdrs, MSG message, FMT format)
+{
+/**************************************
+ *
+ *	x d r _ s e m i _ o p a q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move data while checking for doubles in d_float format.
+ *
+ **************************************/
+	DSC *desc, *end;
+	BLOB_PTR *msg_address;
+	double *convert;
+
+	switch (xdrs->x_op) {
+	case XDR_ENCODE:
+		for (desc = format->fmt_desc, end = desc + format->fmt_count;
+			 desc < end; desc++)
+			if (desc->dsc_dtype == dtype_d_float)
+				break;
+
+		if (desc >= end)
+			return xdr_opaque(xdrs, message->msg_address, format->fmt_length);
+
+		if (!gfloat_buffer || gfloat_buffer->str_length < format->fmt_length) {
+			if (gfloat_buffer)
+				ALLR_free(gfloat_buffer);
+			gfloat_buffer = (STR) ALLOCV(type_str, format->fmt_length);
+			gfloat_buffer->str_length = format->fmt_length;
+		}
+
+		msg_address = gfloat_buffer->str_data;
+		memcpy(msg_address, message->msg_address, format->fmt_length);
+
+		for (desc = format->fmt_desc, end = desc + format->fmt_count;
+			 desc < end; desc++)
+			if (desc->dsc_dtype == dtype_d_float) {
+				convert = (double *) (msg_address + (int) desc->dsc_address);
+				*convert = MTH$CVT_D_G(convert);
+			}
+
+		return xdr_opaque(xdrs, msg_address, format->fmt_length);
+
+	case XDR_DECODE:
+		if (!xdr_opaque(xdrs, message->msg_address, format->fmt_length))
+			return FALSE;
+
+		for (desc = format->fmt_desc, end = desc + format->fmt_count;
+			 desc < end; desc++)
+			if (desc->dsc_dtype == dtype_d_float) {
+				convert =
+					(double *) (message->msg_address +
+								(int) desc->dsc_address);
+				*convert = MTH$CVT_G_D(convert);
+			}
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+}
+#endif
+
+
+#ifdef VMS
+static bool_t xdr_semi_opaque_slice( XDR * xdrs, LSTRING * slice)
+{
+/**************************************
+ *
+ *	x d r _ s e m i _ o p a q u e _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move data while converting for doubles in d_float format.
+ *
+ **************************************/
+	ULONG n, msg_len;
+	BLOB_PTR *p, *msg_addr;
+	double *convert, *end;
+
+	p = slice->lstr_address;
+	for (n = slice->lstr_length; n; n -= msg_len, p += msg_len) {
+		msg_len = MIN(n, MAX_OPAQUE);
+
+		if (xdrs->x_op == XDR_ENCODE) {
+			/* Using an str structure is fine as long as MAX_OPAQUE < 64K */
+
+			if (!gfloat_buffer || gfloat_buffer->str_length < msg_len) {
+				if (gfloat_buffer)
+					ALLR_free(gfloat_buffer);
+				gfloat_buffer = (STR) ALLOCV(type_str, msg_len);
+				gfloat_buffer->str_length = msg_len;
+			}
+
+			msg_addr = gfloat_buffer->str_data;
+			memcpy(msg_addr, p, msg_len);
+
+			for (convert = (double *) msg_addr,
+				 end = (double *) (msg_addr + msg_len); convert < end;
+				 convert++)
+				*convert = MTH$CVT_D_G(convert);
+		}
+		else
+			msg_addr = p;
+
+		if (!xdr_opaque(xdrs, msg_addr, msg_len))
+			return FALSE;
+
+		if (xdrs->x_op == XDR_DECODE) {
+			for (convert = (double *) msg_addr,
+				 end = (double *) (msg_addr + msg_len); convert < end;
+				 convert++)
+				*convert = MTH$CVT_G_D(convert);
+		}
+	}
+
+	return TRUE;
+}
+#endif
+
+
+static bool_t xdr_slice(
+						XDR * xdrs,
+						LSTRING * slice, USHORT sdl_length, BLOB_PTR * sdl)
+{
+/**************************************
+ *
+ *	x d r _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move a slice of an array under
+ *
+ **************************************/
+	STATUS status_vector[ISC_STATUS_LENGTH];
+	PORT port;
+	ULONG n;
+	BLOB_PTR *p;
+	DSC *desc;
+	struct sdl_info info;
+
+	if (!xdr_long(xdrs, reinterpret_cast < SLONG * >(&slice->lstr_length)))
+		return FALSE;
+
+/* Handle operation specific stuff, particularly memory allocation/deallocation */
+
+	switch (xdrs->x_op) {
+	case XDR_ENCODE:
+		break;
+
+	case XDR_DECODE:
+		if (!slice->lstr_length)
+			return TRUE;
+		if (slice->lstr_length > slice->lstr_allocated &&
+			slice->lstr_allocated) {
+			ALLR_free(slice->lstr_address);
+			DEBUG_XDR_FREE(slice, slice->lstr_address, slice->lstr_allocated);
+			slice->lstr_address = NULL;
+		}
+		if (!slice->lstr_address) {
+			if (!
+				(slice->lstr_address =
+				 ALLR_alloc((SLONG) slice->lstr_length)))
+				/* NOMEM: handled by ALLR_alloc() */
+				/* FREE:  in realloc case above & XDR_FREE case of this routine */
+				return FALSE;
+
+			slice->lstr_allocated = slice->lstr_length;
+			DEBUG_XDR_ALLOC(slice, slice->lstr_address,
+							slice->lstr_allocated);
+		}
+		break;
+
+	case XDR_FREE:
+		if (slice->lstr_allocated) {
+			ALLR_free(slice->lstr_address);
+			DEBUG_XDR_FREE(slice, slice->lstr_address, slice->lstr_allocated);
+		}
+		slice->lstr_address = NULL;
+		slice->lstr_allocated = 0;
+		return TRUE;
+	}
+
+/* Get descriptor of array element */
+
+	if (SDL_info(status_vector, sdl, &info, 0))
+		return FALSE;
+
+	desc = &info.sdl_info_element;
+	port = (PORT) xdrs->x_public;
+	p = (BLOB_PTR *) slice->lstr_address;
+
+	if (port->port_flags & PORT_symmetric) {
+#ifdef VMS
+		if (port->port_protocol < PROTOCOL_VERSION5 &&
+			desc->dsc_dtype == dtype_d_float)
+				return xdr_semi_opaque_slice(xdrs, slice);
+#endif
+
+		for (n = slice->lstr_length; n > MAX_OPAQUE;
+			 n -= MAX_OPAQUE, p += (int) MAX_OPAQUE)
+			if (!xdr_opaque
+				(xdrs, reinterpret_cast < SCHAR * >(p),
+				 MAX_OPAQUE)) return FALSE;
+		if (n)
+			if (!xdr_opaque(xdrs, reinterpret_cast < SCHAR * >(p), n))
+				return FALSE;
+	}
+	else {
+		for (n = 0; n < slice->lstr_length / desc->dsc_length; n++) {
+			if (!xdr_datum(xdrs, desc, p))
+				return FALSE;
+			p = p + (ULONG) desc->dsc_length;
+		}
+	}
+
+	return TRUE;
+}
+
+
+static bool_t xdr_sql_blr(
+						  XDR * xdrs,
+						  SLONG statement_id,
+						  CSTRING * blr,
+						  int direction, SQL_STMT_TYPE stmt_type)
+{
+/**************************************
+ *
+ *	x d r _ s q l _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map an sql blr string.  This work is necessary because
+ *	we will use the blr to read data in the current packet.
+ *
+ **************************************/
+	PORT port;
+	RSR statement;
+	FMT *fmt_ptr;
+	MSG message;
+
+	if (!xdr_cstring(xdrs, blr))
+		return FALSE;
+
+/* We care about all receives and sends from fetch */
+
+	if (xdrs->x_op == XDR_FREE)
+		return TRUE;
+
+	port = (PORT) xdrs->x_public;
+	if (statement_id >= 0) {
+		if (!(statement = (RSR) port->port_objects[statement_id]))
+			return FALSE;
+	}
+	else {
+		if (!(statement = port->port_statement))
+			statement = port->port_statement = (RSR) ALLOC(type_rsr);
+	}
+
+	if ((xdrs->x_op == XDR_ENCODE) && !direction) {
+		if (statement->rsr_bind_format)
+			statement->rsr_format = statement->rsr_bind_format;
+		return TRUE;
+	}
+
+/* Parse the blr describing the message. */
+
+	fmt_ptr = (direction) ?
+		&statement->rsr_select_format : &statement->rsr_bind_format;
+
+	if (xdrs->x_op == XDR_DECODE) {
+		/* For an immediate statement, flush out any previous format information
+		 * that might be hanging around from an earlier execution.
+		 * For all statements, if we have new blr, flush out the format information
+		 * for the old blr.
+		 */
+		if (*fmt_ptr
+			&& ((stmt_type == TYPE_IMMEDIATE) || blr->cstr_length != 0)) {
+			ALLR_release(*fmt_ptr);
+			*fmt_ptr = NULL;
+		}
+
+		/* If we have BLR describing a new input/output message, get ready by
+		 * setting up a format 
+		 */
+		if (blr->cstr_length) {
+			if (
+				(message =
+				 (MSG) PARSE_messages(blr->cstr_address,
+									  blr->cstr_length)) != (MSG) - 1) {
+				*fmt_ptr = (FMT) message->msg_address;
+				ALLR_release(message);
+			}
+		}
+	}
+
+/* If we know the length of the message, make sure there is a buffer
+   large enough to hold it. */
+
+	if (!(statement->rsr_format = *fmt_ptr))
+		return TRUE;
+
+	if (!(message = statement->rsr_buffer) ||
+		statement->rsr_format->fmt_length > statement->rsr_fmt_length) {
+		REMOTE_release_messages(message);
+		statement->rsr_fmt_length = statement->rsr_format->fmt_length;
+		statement->rsr_buffer = message =
+			(MSG) ALLOCV(type_msg, statement->rsr_fmt_length);
+		statement->rsr_message = message;
+		message->msg_next = message;
+#ifdef SCROLLABLE_CURSORS
+		message->msg_prior = message;
+#endif
+	}
+
+	return TRUE;
+}
+
+
+static bool_t xdr_sql_message( XDR * xdrs, SLONG statement_id)
+{
+/**************************************
+ *
+ *	x d r _ s q l _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a formatted sql message.
+ *
+ **************************************/
+	PORT port;
+	MSG message;
+	RSR statement;
+
+	if (xdrs->x_op == XDR_FREE)
+		return TRUE;
+
+	port = (PORT) xdrs->x_public;
+	if (statement_id >= 0) {
+		if (!(statement = (RSR) port->port_objects[statement_id]))
+			return FALSE;
+	}
+	else
+		statement = port->port_statement;
+
+	if (message = statement->rsr_buffer) {
+		statement->rsr_buffer = message->msg_next;
+		if (!message->msg_address)
+			message->msg_address = message->msg_buffer;
+	}
+
+	return xdr_message(xdrs, message, statement->rsr_format);
+}
+
+
+static bool_t xdr_status_vector(
+								XDR * xdrs, STATUS * vector, TEXT * strings[])
+{
+/**************************************
+ *
+ *	x d r _ s t a t u s _ v e c t o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a status vector.  This is tricky since the status vector
+ *	may contain argument types, numbers, and strings.
+ *
+ **************************************/
+	TEXT **sp, **end;
+	SLONG vec;
+	XDR temp_xdrs;
+
+/* If this is a free operation, release any allocated strings */
+
+	if (xdrs->x_op == XDR_FREE) {
+		for (sp = strings, end = strings + 10; sp < end; sp++)
+			if (*sp && !xdr_wrapstring(xdrs, sp))
+				return FALSE;
+		return TRUE;
+	}
+
+	while (TRUE) {
+		if (xdrs->x_op == XDR_ENCODE)
+			vec = (SLONG) * vector++;
+		if (!xdr_long(xdrs, &vec))
+			return FALSE;
+		if (xdrs->x_op == XDR_DECODE)
+			*vector++ = (STATUS) vec;
+		switch ((USHORT) vec) {
+		case gds_arg_end:
+			return TRUE;
+
+		case gds_arg_interpreted:
+		case gds_arg_string:
+			if (xdrs->x_op == XDR_ENCODE) {
+				if (!xdr_wrapstring
+					(xdrs, reinterpret_cast < SCHAR ** >(vector++)))
+					return FALSE;
+			}
+			else {
+				/* Use the first slot in the strings table */
+				sp = strings;
+				if (*sp) {
+					/* Slot is used, by a string passed in a previous
+					 * status vector.  Free that string, and allocate
+					 * a new one to prevent any size mismatches trashing
+					 * memory.
+					 */
+					temp_xdrs.x_public = xdrs->x_public;
+					temp_xdrs.x_op = XDR_FREE;
+					if (!xdr_wrapstring(&temp_xdrs, sp))
+						return FALSE;
+					*sp = NULL;
+				}
+				if (!xdr_wrapstring(xdrs, sp))
+					return FALSE;
+				*vector++ = (STATUS) * sp;
+				strings++;
+			}
+			break;
+
+		case gds_arg_number:
+		default:
+			if (xdrs->x_op == XDR_ENCODE)
+				vec = (SLONG) * vector++;
+			if (!xdr_long(xdrs, &vec))
+				return FALSE;
+			if (xdrs->x_op == XDR_DECODE)
+				*vector++ = (STATUS) vec;
+			break;
+		}
+	}
+}
+
+
+static bool_t xdr_trrq_blr( XDR * xdrs, CSTRING * blr)
+{
+/**************************************
+ *
+ *	x d r _ t r r q  _ b l r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a message blr string.  This work is necessary because
+ *	we will use the blr to read data in the current packet.
+ *
+ **************************************/
+	PORT port;
+	RPR procedure;
+	MSG message, temp;
+
+	if (!xdr_cstring(xdrs, blr))
+		return FALSE;
+
+/* We care about all receives and sends from fetch */
+
+	if (xdrs->x_op == XDR_FREE || xdrs->x_op == XDR_ENCODE)
+		return TRUE;
+
+	port = (PORT) xdrs->x_public;
+	if (!(procedure = port->port_rpr))
+		procedure = port->port_rpr = (RPR) ALLOC(type_rpr);
+
+/* Parse the blr describing the message. */
+
+	if (procedure->rpr_in_msg) {
+		ALLR_release(procedure->rpr_in_msg);
+		procedure->rpr_in_msg = NULL;
+	}
+	if (procedure->rpr_in_format) {
+		ALLR_release(procedure->rpr_in_format);
+		procedure->rpr_in_format = NULL;
+	}
+	if (procedure->rpr_out_msg) {
+		ALLR_release(procedure->rpr_out_msg);
+		procedure->rpr_out_msg = NULL;
+	}
+	if (procedure->rpr_out_format) {
+		ALLR_release(procedure->rpr_out_format);
+		procedure->rpr_out_format = NULL;
+	}
+	if ((message = PARSE_messages(blr->cstr_address, blr->cstr_length)) !=
+		(MSG) - 1) {
+		while (message) {
+			if (message->msg_number == 0) {
+				procedure->rpr_in_msg = message;
+				procedure->rpr_in_format = (FMT) message->msg_address;
+				message->msg_address = message->msg_buffer;
+				message = message->msg_next;
+				procedure->rpr_in_msg->msg_next = NULL;
+			}
+			else if (message->msg_number == 1) {
+				procedure->rpr_out_msg = message;
+				procedure->rpr_out_format = (FMT) message->msg_address;
+				message->msg_address = message->msg_buffer;
+				message = message->msg_next;
+				procedure->rpr_out_msg->msg_next = NULL;
+			}
+			else {
+				temp = message;
+				message = message->msg_next;
+				ALLR_release(temp);
+			}
+		}
+	}
+	else
+		assert(FALSE);
+
+	return TRUE;
+}
+
+
+static bool_t xdr_trrq_message( XDR * xdrs, USHORT msg_type)
+{
+/**************************************
+ *
+ *	x d r _ t r r q _ m e s s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map a formatted transact request message.
+ *
+ **************************************/
+	PORT port;
+	RPR procedure;
+
+	if (xdrs->x_op == XDR_FREE)
+		return TRUE;
+
+	port = (PORT) xdrs->x_public;
+	procedure = port->port_rpr;
+
+	if (msg_type == 1)
+		return xdr_message(xdrs, procedure->rpr_out_msg,
+						   procedure->rpr_out_format);
+	else
+		return xdr_message(xdrs, procedure->rpr_in_msg,
+						   procedure->rpr_in_format);
+}
+
+
+#ifdef LOC_DOUBLE
+static bool_t xdr_double( register XDR * xdrs, register double *ip)
+{
+/**************************************
+ *
+ *	x d r _ d o u b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+	SSHORT t1;
+	union {
+		double temp_double;
+		SLONG temp_long[2];
+		SSHORT temp_short[4];
+	} temp;
+
+	switch (xdrs->x_op) {
+	case XDR_ENCODE:
+		temp.temp_double = *ip;
+#ifndef IEEE
+		if (temp.temp_double != 0)
+			temp.temp_short[0] -= 0x20;
+		t1 = temp.temp_short[0];
+		temp.temp_short[0] = temp.temp_short[1];
+		temp.temp_short[1] = t1;
+		t1 = temp.temp_short[2];
+		temp.temp_short[2] = temp.temp_short[3];
+		temp.temp_short[3] = t1;
+#endif
+#ifdef VAX
+		if ((*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[1]) &&
+			(*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[0]))
+			return TRUE;
+#else
+		if ((*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[0]) &&
+			(*xdrs->x_ops->x_putlong) (xdrs, &temp.temp_long[1]))
+			return TRUE;
+#endif
+		return FALSE;
+
+	case XDR_DECODE:
+#ifdef VAX
+		if (!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[1]) ||
+			!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[0]))
+			return FALSE;
+#else
+		if (!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[0]) ||
+			!(*xdrs->x_ops->x_getlong) (xdrs, &temp.temp_long[1]))
+			return FALSE;
+#endif
+#ifndef IEEE
+		t1 = temp.temp_short[0];
+		temp.temp_short[0] = temp.temp_short[1];
+		temp.temp_short[1] = t1;
+		t1 = temp.temp_short[2];
+		temp.temp_short[2] = temp.temp_short[3];
+		temp.temp_short[3] = t1;
+		if (temp.temp_double != 0)
+			temp.temp_short[0] += 0x20;
+#endif
+		*ip = temp.temp_double;
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+}
+
+
+static bool_t xdr_float( register XDR * xdrs, register float *ip)
+{
+/**************************************
+ *
+ *	x d r _ f l o a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+	SSHORT t1;
+	union {
+		float temp_float;
+		unsigned short temp_short[2];
+	} temp;
+
+	switch (xdrs->x_op) {
+	case XDR_ENCODE:
+#ifndef IEEE
+		temp.temp_float = *ip;
+		if (temp.temp_float) {
+			t1 = temp.temp_short[0];
+			temp.temp_short[0] = temp.temp_short[1];
+			temp.temp_short[1] = t1 - 0x100;
+		}
+		if (!(*xdrs->x_ops->x_putlong) (xdrs, &temp))
+			return FALSE;
+		return TRUE;
+#else
+		return (*xdrs->x_ops->x_putlong) (xdrs, ip);
+#endif
+
+	case XDR_DECODE:
+#ifndef IEEE
+		if (!(*xdrs->x_ops->x_getlong) (xdrs, &temp))
+			return FALSE;
+		if (temp.temp_short[0] | temp.temp_short[1]) {
+			t1 = temp.temp_short[1];
+			temp.temp_short[1] = temp.temp_short[0];
+			temp.temp_short[0] = t1 + 0x100;
+		}
+		*ip = temp.temp_float;
+		return TRUE;
+#else
+		return (*xdrs->x_ops->x_getlong) (xdrs, ip);
+#endif
+
+	case XDR_FREE:
+		return TRUE;
+	}
+}
+#endif
+
+#ifdef IMP
+/**
+	xdr_free is not available on Motorola IMP 5.3 1.0 mc68060 as system
+	call. This routine is copied from the file remote/xdr.c.     
+**/
+
+bool_t xdr_free(xdrproc_t proc, SCHAR * objp)
+{
+/**************************************
+ *
+ *	x d r _ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform XDR_FREE operation on an XDR structure
+ *
+ **************************************/
+	XDR xdrs;
+
+	xdrs.x_op = XDR_FREE;
+
+	return (*proc) (&xdrs, objp);
+}
+#endif
+
+
+static RSR get_statement( XDR * xdrs, SSHORT statement_id)
+{
+/**************************************
+ *
+ *	g e t _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns the statement based upon the statement id
+ *      if statement_id = -1 then statement = port_statement
+ *      otherwise, the statement comes from port_objects[statement_id]
+ *      if there are no port_objects, then statement = NULL
+ *
+ **************************************/
+
+	RSR statement = NULL;
+	PORT port = (PORT) xdrs->x_public;
+
+/* if the statement ID is -1, this seems to indicate that we are 
+   re-executing the previous statement.  This is not a
+   well-understood area of the implementation.
+
+if (statement_id == -1)
+    statement = port->port_statement;
+else
+*/
+
+	assert(statement_id >= -1);
+
+	if ((port->port_objects) &&
+		((SLONG) statement_id < (SLONG) port->port_object_vector->vec_count)
+		&& (statement_id >= 0))
+		statement = (RSR) port->port_objects[(SLONG) statement_id];
+
+/* Check that what we found really is a statement structure */
+	assert(!statement || (statement->rsr_header.blk_type == type_rsr));
+	return statement;
+}
diff --git a/src/remote/protocol.h b/src/remote/protocol.h
new file mode 100644
index 0000000000..d984201750
--- /dev/null
+++ b/src/remote/protocol.h
@@ -0,0 +1,581 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		protocol.h
+ *	DESCRIPTION:	Protocol Definition
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * Added TCP_NO_DELAY option for superserver on Linux
+ * FSG 16.03.2001 
+ */
+/*
+$Id: protocol.h,v 1.1.1.1 2001-05-23 13:26:37 tamlin Exp $
+*/
+#ifndef _REMOTE_PROTOCOL_H_
+#define _REMOTE_PROTOCOL_H_
+
+/* The protocol is defined blocks, rather than messages, to
+   separate the protocol from the transport layer.  */
+
+#define CONNECT_VERSION2	2
+
+/* Protocol 4 is protocol 3 plus server management functions */
+
+#define PROTOCOL_VERSION3	3
+#define PROTOCOL_VERSION4	4
+
+/* Protocol 5 includes support for a d_float data type */
+
+#define PROTOCOL_VERSION5	5
+
+/* Protocol 6 includes support for cancel remote events, blob seek,
+   and unknown message type */
+
+#define PROTOCOL_VERSION6	6
+
+/* Protocol 7 includes DSQL support */
+
+#define PROTOCOL_VERSION7	7
+
+/* Protocol 8 includes collapsing first receive into a send, drop database,
+   DSQL execute 2, DSQL execute immediate 2, DSQL insert, services, and
+   transact request */
+
+#define PROTOCOL_VERSION8	8
+
+/* Protocol 9 includes support for SPX32 
+   SPX32 uses WINSOCK instead of Novell SDK
+   In order to differentiate between the old implementation 
+   of SPX and this one, different PROTOCOL VERSIONS are used */
+
+#define PROTOCOL_VERSION9	9
+
+/* Protocol 10 includes support for warnings and removes the requirement for
+ * encoding and decoding status codes.*/
+
+#define PROTOCOL_VERSION10	10
+
+#ifdef SCROLLABLE_CURSORS 
+This Protocol includes support for scrollable cursors 
+and is purposely being undefined so that changes can be made
+to the remote protocol version to support new features without the 'fear' that
+they will be turned off once SCROLLABLE_CURSORS is turned on.
+
+#define PROTOCOL_SCROLLABLE_CURSORS	this needs to be defined
+
+#endif
+
+/* Architecture types */
+
+typedef enum
+{
+	arch_generic	= 1,	/* Generic -- always use cannonical forms */
+	arch_apollo		= 2,
+	arch_sun		= 3,
+	arch_vms		= 4,
+	arch_ultrix		= 5,
+	arch_alliant	= 6,
+	arch_msdos		= 7,
+	arch_sun4		= 8,
+	arch_sun386		= 9,
+	arch_hpux		= 10,
+	arch_hpmpexl	= 11,
+	arch_mac		= 12,
+	arch_macaux		= 13,
+	arch_rt		= 14,
+	arch_mips_ultrix	= 15,
+	arch_hpux_68k	= 16,
+	arch_xenix		= 17,
+	arch_aviion		= 18,
+	arch_sgi		= 19,
+	arch_apollo_dn10k	= 20,
+	arch_cray		= 21,
+	arch_imp		= 22,
+	arch_delta		= 23,
+	arch_sco		= 24,
+	arch_next		= 25,
+	arch_next_386	= 26,
+	arch_m88k		= 27,
+	arch_unixware	= 28,
+	arch_intel_32	= 29,	/* generic Intel chip w/32-bit compilation */
+	arch_epson		= 30,
+	arch_decosf		= 31,
+	arch_ncr3000	= 32,
+	arch_nt_ppc		= 33,
+	arch_dg_x86		= 34,
+	arch_sco_ev		= 35,
+	arch_linux		= 36,
+	arch_freebsd	= 37,
+	arch_netbsd		= 38,
+
+	arch_max		= 39	/* Keep this at the end */
+} P_ARCH;
+
+#ifdef DECOSF
+#define xdr_long		xdr_int
+#endif
+
+/* Protocol Types */
+
+#define ptype_page			1	/* Page server protocol */
+#define ptype_rpc			2	/* Simple remote procedure call */
+#define ptype_batch_send	3	/* Batch sends, no asynchrony */
+#define ptype_out_of_band	4	/* Batch sends w/ out of band notification */
+
+/* Generic object id */
+
+typedef USHORT OBJCT;
+#define MAX_OBJCT_HANDLES	65000
+
+/* Operation (packet) types */
+
+typedef enum
+{
+	op_void				= 0,	/* Packet has been voided */
+	op_connect			= 1,	/* Connect to remote server */
+	op_exit				= 2,	/* Remote end has exitted */
+	op_accept			= 3,	/* Server accepts connection */
+	op_reject			= 4,	/* Server rejects connection */
+	op_protocol			= 5,	/* Protocol selection */
+	op_disconnect		= 6,	/* Connect is going away */
+	op_credit			= 7,	/* Grant (buffer) credits */
+	op_continuation		= 8,	/* Continuation packet */
+	op_response			= 9,	/* Generic response block */
+
+	/* Page server operations */
+
+	op_open_file		= 10,	/* Open file for page service */
+	op_create_file		= 11,	/* Create file for page service */
+	op_close_file		= 12,	/* Close file for page service */
+	op_read_page		= 13,	/* optionally lock and read page */
+	op_write_page		= 14,	/* write page and optionally release lock */
+	op_lock				= 15,	/* sieze lock */
+	op_convert_lock		= 16,	/* convert existing lock */
+	op_release_lock		= 17,	/* release existing lock */
+	op_blocking			= 18,	/* blocking lock message */
+
+	/* Full context server operations */
+
+	op_attach			= 19,	/* Attach database */
+	op_create			= 20,	/* Create database */
+	op_detach			= 21,	/* Detach database */
+	op_compile			= 22,	/* Request based operations */
+	op_start			= 23,
+	op_start_and_send	= 24,	
+	op_send				= 25,
+	op_receive			= 26,
+	op_unwind			= 27,
+	op_release			= 28,
+
+	op_transaction		= 29,	/* Transaction operations */
+	op_commit			= 30,
+	op_rollback			= 31,
+	op_prepare			= 32,
+	op_reconnect		= 33,
+
+	op_create_blob		= 34,	/* Blob operations */
+	op_open_blob		= 35,
+	op_get_segment		= 36,
+	op_put_segment		= 37,
+	op_cancel_blob		= 38,
+	op_close_blob		= 39,
+
+	op_info_database	= 40,	/* Information services */
+	op_info_request		= 41,
+	op_info_transaction	= 42,
+	op_info_blob		= 43,
+
+	op_batch_segments	= 44,	/* Put a bunch of blob segments */
+
+	op_mgr_set_affinity		= 45,	/* Establish server affinity */
+	op_mgr_clear_affinity	= 46,	/* Break server affinity */
+	op_mgr_report			= 47,	/* Report on server */
+
+	op_que_events		= 48,	/* Que event notification request */
+	op_cancel_events	= 49,	/* Cancel event notification request */
+	op_commit_retaining	= 50,	/* Commit retaining (what else) */
+	op_prepare2			= 51,	/* Message form of prepare */
+	op_event			= 52,	/* Completed event request (asynchronous) */
+	op_connect_request	= 53,	/* Request to establish connection */
+	op_aux_connect		= 54,	/* Establish auxiliary connection */
+	op_ddl				= 55,	/* DDL call */
+	op_open_blob2		= 56,
+	op_create_blob2		= 57,
+	op_get_slice		= 58,
+	op_put_slice		= 59,
+	op_slice			= 60,	/* Successful response to op_get_slice */
+	op_seek_blob		= 61,	/* Blob seek operation */
+
+	/* DSQL operations */
+
+	op_allocate_statement 	= 62,	/* allocate a statment handle */
+	op_execute				= 63,	/* execute a prepared statement */
+	op_exec_immediate		= 64,	/* execute a statement */
+	op_fetch				= 65,	/* fetch a record */
+	op_fetch_response		= 66,	/* response for record fetch */
+	op_free_statement		= 67,	/* free a statement */
+	op_prepare_statement 	= 68,	/* prepare a statement */
+	op_set_cursor			= 69,	/* set a cursor name */
+	op_info_sql				= 70,
+
+	op_dummy				= 71,	/* dummy packet to detect loss of client */
+
+	op_response_piggyback 	= 72,	/* response block for piggybacked messages */
+	op_start_and_receive 	= 73,
+	op_start_send_and_receive 	= 74,
+
+	op_exec_immediate2		= 75,	/* execute an immediate statement with msgs */
+	op_execute2				= 76,	/* execute a statement with msgs */
+	op_insert				= 77,
+	op_sql_response			= 78,	/* response from execute, exec immed, insert */
+
+	op_transact				= 79,
+	op_transact_response 	= 80,
+	op_drop_database		= 81,
+
+	op_service_attach		= 82,
+	op_service_detach		= 83,
+	op_service_info			= 84,
+	op_service_start		= 85,
+
+	op_rollback_retaining	= 86,
+
+	op_max
+} P_OP;
+
+
+/* Count String Structure */
+
+typedef struct cstring
+{
+	USHORT	cstr_length;
+	USHORT	cstr_allocated;
+	UCHAR*	cstr_address;
+} CSTRING;
+
+typedef struct lstring
+{
+	ULONG	lstr_length;
+	ULONG	lstr_allocated;
+	UCHAR*	lstr_address;
+} LSTRING;
+
+
+#ifdef DEBUG_XDR_MEMORY
+
+/* Debug xdr memory allocations */
+
+#define P_MALLOC_SIZE	64	/* Xdr memory allocations per packet */
+
+typedef struct p_malloc
+{
+	P_OP	p_operation;	/* Operation/packet type */
+	ULONG	p_allocated;	/* Memory length */
+	UCHAR*	p_address;	/* Memory address */
+/*	UCHAR*	p_xdrvar; */	/* XDR variable */
+} P_MALLOC;
+
+#endif	/* DEBUG_XDR_MEMORY */
+
+
+/* Connect Block (Client to server) */
+
+typedef struct p_cnct
+{
+	P_OP	p_cnct_operation;	/* OP_CREATE or OP_OPEN */
+	USHORT	p_cnct_cversion;	/* Version of connect protocol */
+	P_ARCH	p_cnct_client;		/* Architecture of client */
+	CSTRING	p_cnct_file;		/* File name */
+	USHORT	p_cnct_count;		/* Protocol versions understood */
+	CSTRING	p_cnct_user_id;		/* User identification stuff */
+	struct	p_cnct_repeat
+	{
+		USHORT	p_cnct_version;		/* Protocol version number */
+		P_ARCH	p_cnct_architecture;	/* Architecture of client */
+		USHORT	p_cnct_min_type;	/* Minimum type */
+		USHORT	p_cnct_max_type;	/* Maximum type */
+		USHORT	p_cnct_weight;		/* Preference weight */
+	}		p_cnct_versions[10];
+} P_CNCT;
+
+/* User identification data, if any, is of form:
+
+    <type> <length> <data>
+
+where
+
+     type	is a byte code
+     length	is an unsigned byte containing length of data
+     data	is 'type' specific
+
+*/
+
+#define CNCT_user		1	/* User name */
+#define CNCT_passwd		2
+#define CNCT_ppo		3	/* Apollo person, project, organization */
+#define CNCT_host		4
+#define CNCT_group		5	/* Effective Unix group id */
+#define CNCT_user_verification	6	/* Attach/create using this connection
+					   will use user verification */
+
+
+typedef struct bid	/* BLOB ID */
+{
+	ULONG	bid_relation_id;	/* Relation id (or null) */
+	ULONG	bid_number;			/* Record number */
+} *BID;
+
+
+/* Accept Block (Server response to connect block) */
+
+typedef struct p_acpt
+{
+	USHORT	p_acpt_version;		/* Protocol version number */
+	P_ARCH	p_acpt_architecture;	/* Architecture for protocol */
+	USHORT	p_acpt_type;		/* Minimum type */
+} P_ACPT;
+
+/* Generic Response block */
+
+typedef struct p_resp
+{
+	OBJCT		p_resp_object;		/* Object id */
+	struct bid	p_resp_blob_id;		/* Blob id */
+	CSTRING		p_resp_data;		/* Data */
+	STATUS*		p_resp_status_vector;
+	UCHAR*		p_resp_strings[10];
+} P_RESP;
+
+#define p_resp_partner	p_resp_blob_id.bid_number
+
+/* Attach and create database */
+
+typedef struct p_atch
+{
+	OBJCT	p_atch_database;	/* Database object id */
+	CSTRING	p_atch_file;		/* File name */
+	CSTRING	p_atch_dpb;		/* Database parameter block */
+} P_ATCH;
+
+/* Compile request */
+
+typedef struct p_cmpl
+{
+	OBJCT	p_cmpl_database;	/* Database object id */
+	CSTRING	p_cmpl_blr;		/* Request blr */
+} P_CMPL;
+
+/* Start Transaction */
+
+typedef struct p_sttr
+{
+	OBJCT	p_sttr_database;	/* Database object id */
+	CSTRING	p_sttr_tpb;		/* Transaction parameter block */
+} P_STTR;
+
+/* Generic release block */
+
+typedef struct p_rlse
+{
+	OBJCT	p_rlse_object;		/* Object to be released */
+} P_RLSE;
+
+/* Data block (start, start and send, send, receive) */
+
+typedef struct p_data {
+    OBJCT	p_data_request;		/* Request object id */
+    USHORT	p_data_incarnation;	/* Incarnation of request */
+    OBJCT	p_data_transaction;	/* Transaction object id */
+    USHORT	p_data_message_number;	/* Message number in request */
+    USHORT	p_data_messages;	/* Number of messages */
+#ifdef SCROLLABLE_CURSORS
+    USHORT	p_data_direction;	/* direction to scroll before returning records */
+    ULONG	p_data_offset;		/* offset to scroll before returning records */
+#endif
+} P_DATA;
+
+/* Execute stored procedure block */
+
+typedef struct p_trrq {
+    OBJCT	p_trrq_database;	/* Database object id */
+    OBJCT	p_trrq_transaction;	/* Transaction object id */
+    CSTRING	p_trrq_blr;		/* Message blr */
+    USHORT	p_trrq_in_msg_length;
+    USHORT	p_trrq_out_msg_length;
+    USHORT	p_trrq_messages;	/* Number of messages */
+} P_TRRQ;
+
+/* Blob (create/open) and segment blocks */
+
+typedef struct p_blob {
+    OBJCT	p_blob_transaction;	/* Transaction */
+    struct bid	p_blob_id;		/* Blob id for open */
+    CSTRING	p_blob_bpb;		/* Blob parameter block */
+} P_BLOB;
+
+typedef struct p_sgmt {
+    OBJCT	p_sgmt_blob;		/* Blob handle id */
+    USHORT	p_sgmt_length;		/* Length of segment */
+    CSTRING	p_sgmt_segment;		/* Data segment */
+} P_SGMT;
+
+typedef struct p_seek {
+    OBJCT	p_seek_blob;		/* Blob handle id */
+    SSHORT	p_seek_mode;		/* mode of seek */
+    SLONG	p_seek_offset;		/* Offset of seek */
+} P_SEEK;
+
+/* Information request blocks */
+
+typedef struct p_info {
+    OBJCT	p_info_object;		/* Object of information */
+    USHORT	p_info_incarnation;	/* Incarnation of object */
+    CSTRING	p_info_items;		/* Information */
+    CSTRING	p_info_recv_items;	/* Receive information */
+    USHORT	p_info_buffer_length;	/* Target buffer length */
+} P_INFO;
+
+/* Event request block */
+
+typedef struct p_event {
+    OBJCT	p_event_database;	/* Database object id */
+    CSTRING	p_event_items;		/* Event description block */
+    SLONG	p_event_ast;		/* Address of ast routine */
+    SLONG	p_event_arg;		/* Argument to ast routine */
+    SLONG	p_event_rid;		/* Client side id of remote event */
+} P_EVENT;
+
+/* Prepare block */
+
+typedef struct p_prep {
+    OBJCT	p_prep_transaction;
+    CSTRING	p_prep_data;
+} P_PREP;
+
+/* Connect request block */
+
+typedef struct p_req {
+    USHORT	p_req_type;		/* Connection type */
+    OBJCT	p_req_object;		/* Related object */
+    ULONG	p_req_partner;		/* Partner identification */
+} P_REQ;
+
+#define P_REQ_async	1		/* Auxiliary asynchronous port */
+
+/* DDL request */
+
+typedef struct p_ddl {
+     OBJCT	p_ddl_database;		/* Database object id */
+     OBJCT	p_ddl_transaction;	/* Transaction */
+     CSTRING	p_ddl_blr;		/* Request blr */
+} P_DDL;
+
+/* Slice Operation */
+
+typedef struct p_slc {
+    OBJCT	p_slc_transaction;	/* Transaction */
+    struct bid	p_slc_id;		/* Slice id */
+    CSTRING	p_slc_sdl;		/* Slice description language */
+    CSTRING	p_slc_parameters;	/* Slice parameters */
+    LSTRING	p_slc_slice;		/* Slice proper */
+    ULONG	p_slc_length;		/* Number of elements */
+} P_SLC;
+
+/* Response to get_slice */
+
+typedef struct p_slr {
+    LSTRING	p_slr_slice;		/* Slice proper */
+    ULONG	p_slr_length;		/* Total length of slice */
+    UCHAR	*p_slr_sdl;		/* *** not transfered *** */
+    USHORT	p_slr_sdl_length;	/* *** not transfered *** */
+} P_SLR;
+ 
+/* DSQL structure definitions */
+
+typedef struct p_sqlst {
+    OBJCT	p_sqlst_transaction;	/* transaction object */
+    OBJCT	p_sqlst_statement;	/* statement object */
+    USHORT	p_sqlst_SQL_dialect;	/* the SQL dialect */
+    CSTRING	p_sqlst_SQL_str;	/* statement to be prepared */
+    USHORT	p_sqlst_buffer_length;	/* Target buffer length */
+    CSTRING	p_sqlst_items;		/* Information */
+    CSTRING	p_sqlst_blr;		/* blr describing message */
+    USHORT	p_sqlst_message_number;
+    USHORT	p_sqlst_messages;	/* Number of messages */
+    CSTRING	p_sqlst_out_blr;	/* blr describing output message */
+    USHORT	p_sqlst_out_message_number;
+} P_SQLST;
+
+typedef struct p_sqldata {
+    OBJCT	p_sqldata_statement;	/* statement object */
+    OBJCT	p_sqldata_transaction;	/* transaction object */
+    CSTRING	p_sqldata_blr;		/* blr describing message */
+    USHORT	p_sqldata_message_number;
+    USHORT	p_sqldata_messages;	/* Number of messages */
+    CSTRING	p_sqldata_out_blr;	/* blr describing output message */
+    USHORT	p_sqldata_out_message_number;
+    ULONG	p_sqldata_status;	/* final eof status */
+} P_SQLDATA;
+
+typedef struct p_sqlfree {
+    OBJCT	p_sqlfree_statement;	/* statement object */
+    USHORT	p_sqlfree_option;	/* option */
+} P_SQLFREE;
+
+typedef struct p_sqlcur {
+    OBJCT	p_sqlcur_statement;	/* statement object */
+    CSTRING	p_sqlcur_cursor_name;	/* cursor name */
+    USHORT	p_sqlcur_type;		/* type of cursor */
+} P_SQLCUR;
+
+/* Generalize packet (sic!) */
+
+typedef struct packet {
+#ifdef DEBUG_XDR_MEMORY
+    /* When XDR memory debugging is enabled, p_malloc must be
+       the first subpacket and be followed by p_operation (see
+       server.c/zap_packet()) */
+
+    P_MALLOC	p_malloc [P_MALLOC_SIZE]; /* Debug xdr memory allocations */
+#endif
+    P_OP	p_operation;	/* Operation/packet type */
+    P_CNCT	p_cnct;		/* Connect block */
+    P_ACPT	p_acpt;		/* Accept connection */
+    P_RESP	p_resp;		/* Generic response to a call */
+    P_ATCH	p_atch;		/* Attach or create database */
+    P_RLSE	p_rlse;		/* Release object */
+    P_DATA	p_data;		/* Data packet */
+    P_CMPL	p_cmpl;		/* Compile request */
+    P_STTR	p_sttr;		/* Start transactions */
+    P_BLOB	p_blob;		/* Create/Open blob */
+    P_SGMT	p_sgmt;		/* Put_segment */
+    P_INFO	p_info;		/* Information */
+    P_EVENT	p_event;	/* Que event */
+    P_PREP	p_prep;		/* New improved prepare */
+    P_REQ	p_req;		/* Connection request */
+    P_DDL	p_ddl;		/* Data definition call */
+    P_SLC	p_slc;		/* Slice operator */
+    P_SLR	p_slr;		/* Slice response */
+    P_SEEK	p_seek;		/* Blob seek */
+    P_SQLST	p_sqlst;	/* DSQL Prepare & Execute immediate */
+    P_SQLDATA	p_sqldata;	/* DSQL Open Cursor, Execute, Fetch */
+    P_SQLCUR	p_sqlcur;	/* DSQL Set cursor name */
+    P_SQLFREE	p_sqlfree;	/* DSQL Free statement */
+    P_TRRQ	p_trrq;		/* Transact request packet */
+} PACKET;
+
+#endif /* _REMOTE_PROTOCOL_H_ */
diff --git a/src/remote/remot_proto.h b/src/remote/remot_proto.h
new file mode 100644
index 0000000000..6ebb371498
--- /dev/null
+++ b/src/remote/remot_proto.h
@@ -0,0 +1,50 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		remot_proto.h
+ *	DESCRIPTION:	Prototpe header file for remot.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_REMOT_PROTO_H_
+#define _REMOTE_REMOT_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+extern void DLL_EXPORT 	REMOTE_cleanup_transaction (struct rtr *);
+extern ULONG		REMOTE_compute_batch_size (struct port *, USHORT, P_OP, FMT);
+extern void DLL_EXPORT  REMOTE_get_timeout_params (struct port *, UCHAR *, USHORT);
+extern struct rrq	* DLL_EXPORT REMOTE_find_request (struct rrq *, USHORT);
+extern void DLL_EXPORT 	REMOTE_free_packet (struct port *, struct packet *);
+extern struct str	* DLL_EXPORT REMOTE_make_string (SCHAR *);
+extern void DLL_EXPORT	REMOTE_release_messages (struct message *);
+extern void DLL_EXPORT 	REMOTE_release_request (struct rrq *);
+extern void DLL_EXPORT	REMOTE_reset_request (struct rrq *, struct message *);
+extern void DLL_EXPORT	REMOTE_reset_statement (struct rsr *);
+extern void		REMOTE_save_status_strings (STATUS *);
+extern OBJCT DLL_EXPORT REMOTE_set_object (struct port *, struct blk *, OBJCT);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+
+#endif /* _REMOTE_REMOT_PROTO_H */ 
diff --git a/src/remote/remote.cpp b/src/remote/remote.cpp
new file mode 100644
index 0000000000..036ebe4237
--- /dev/null
+++ b/src/remote/remote.cpp
@@ -0,0 +1,863 @@
+/*
+ *	PROGRAM:	JRD Remote Interface
+ *	MODULE:		remote.c
+ *	DESCRIPTION:	Common routines for remote interface/server
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include <stdlib.h>
+#include "../include/jrd/gds.h"
+#include "../remote/remote.h"
+#include "../jrd/file_params.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/isc.h"
+#include "../remote/allr_proto.h"
+#include "../remote/proto_proto.h"
+#include "../remote/remot_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/isc_proto.h"
+
+
+extern "C" {
+
+
+#define DUMMY_INTERVAL		60	/* seconds */
+#define CONNECTION_TIMEOUT	180	/* seconds */
+#define ATTACH_FAILURE_SPACE	2048	/* bytes */
+
+static TEXT *attach_failures = NULL, *attach_failures_ptr;
+
+static SLONG conn_timeout = CONNECTION_TIMEOUT;
+static SLONG dummy_interval = DUMMY_INTERVAL;
+
+#define CONNECTION_TIMEOUT_IDX    0
+#define DUMMY_PACKET_INTRVL_IDX   1
+
+static struct ipccfg INET_cfgtbl[] = {
+	ISCCFG_CONN_TIMEOUT, 0, &conn_timeout, 0, 0,
+	ISCCFG_DUMMY_INTRVL, 0, &dummy_interval, 0, 0,
+	NULL, 0, NULL, 0, 0
+};
+
+static void cleanup_memory(void *);
+static SLONG get_parameter(UCHAR **);
+
+#ifdef SHLIB_DEFS
+#define xdrmem_create	(*_libgds_xdrmem_create)
+#endif
+
+extern int xdrmem_create(XDR *, SCHAR *, u_int, enum xdr_op);
+extern void DLL_EXPORT THD_init_data();
+
+
+void DLL_EXPORT REMOTE_cleanup_transaction( RTR transaction)
+{
+/**************************************
+ *
+ *	R E M O T E _ c l e a n u p _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	A transaction is being committed or rolled back.  
+ *	Purge any active messages in case the user calls
+ *	receive while we still have something cached.
+ *
+ **************************************/
+	RRQ request, level;
+	RSR statement;
+
+	for (request = transaction->rtr_rdb->rdb_requests; request;
+		 request = request->rrq_next) {
+		if (request->rrq_rtr == transaction) {
+			REMOTE_reset_request(request, 0);
+			request->rrq_rtr = NULL;
+		}
+		for (level = request->rrq_levels; level; level = level->rrq_next)
+			if (level->rrq_rtr == transaction) {
+				REMOTE_reset_request(level, 0);
+				level->rrq_rtr = NULL;
+			}
+	}
+
+	for (statement = transaction->rtr_rdb->rdb_sql_requests; statement;
+		 statement = statement->rsr_next)
+		if (statement->rsr_rtr == transaction) {
+			REMOTE_reset_statement(statement);
+			statement->rsr_flags &= ~RSR_fetched;
+			statement->rsr_rtr = NULL;
+		}
+}
+
+
+ULONG REMOTE_compute_batch_size(PORT port,
+								USHORT buffer_used, P_OP op_code, FMT format)
+{
+/**************************************
+ *
+ *	R E M O T E _ c o m p u t e _ b a t c h _ s i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ * When batches of records are returned, they are returned as
+ *    follows:
+ *     <op_fetch_response> <data_record 1>
+ *     <op_fetch_response> <data_record 2>
+ * 	...
+ *     <op_fetch_response> <data_record n-1>
+ *     <op_fetch_response> <data_record n>
+ * 
+ * end-of-batch is indicated by setting p_sqldata_messages to
+ * 0 in the op_fetch_response.  End of cursor is indicated
+ * by setting p_sqldata_status to a non-zero value.  Note
+ * that a fetch CAN be attempted after end of cursor, this
+ * is sent to the server for the server to return the appropriate
+ * error code. 
+ * 
+ * Each data block has one overhead packet
+ * to indicate the data is present.
+ * 
+ * (See also op_send in receive_msg() - which is a kissing cousin
+ *  to this routine)
+ * 
+ * Here we make a guess for the optimal number of records to
+ * send in each batch.  This is important as we wait for the
+ * whole batch to be received before we return the first item
+ * to the client program.  How many are cached on the client also
+ * impacts client-side memory utilization.
+ * 
+ * We optimize the number by how many can fit into a packet.
+ * The client calculates this number (n from the list above)
+ * and sends it to the server.
+ * 
+ * I asked why it is that the client doesn't just ask for a packet 
+ * full of records and let the server return however many fits in 
+ * a packet.  According to Sudesh, this is because of a bug in 
+ * Superserver which showed up in the WIN_NT 4.2.x kits.  So I 
+ * imagine once we up the protocol so that we can be sure we're not 
+ * talking to a 4.2 kit, then we can make this optimization. 
+ *           - Deej 2/28/97
+ * 
+ * Note: A future optimization can look at setting the packet 
+ * size to optimize the transfer.
+ *
+ * Note: This calculation must use worst-case to determine the
+ * packing.  Should the data record have VARCHAR data, it is
+ * often possible to fit more than the packing specification
+ * into each packet.  This is also a candidate for future 
+ * optimization.
+ * 
+ * The data size is either the XDR data representation, or the
+ * actual message size (rounded up) if this is a symmetric
+ * architecture connection. 
+ * 
+ **************************************/
+
+#define	MAX_PACKETS_PER_BATCH	 4	/* packets    - picked by SWAG */
+#define MIN_PACKETS_PER_BATCH	 2	/* packets    - picked by SWAG */
+#define DESIRED_ROWS_PER_BATCH	20	/* data rows  - picked by SWAG */
+#define MIN_ROWS_PER_BATCH	10	/* data rows  - picked by SWAG */
+
+	USHORT op_overhead = (USHORT) xdr_protocol_overhead(op_code);
+	USHORT num_packets;
+	ULONG row_size;
+	ULONG result;
+
+#ifdef DEBUG
+	ib_fprintf(ib_stderr,
+			   "port_buff_size = %d fmt_net_length = %d fmt_length = %d overhead = %d\n",
+			   port->port_buff_size, format->fmt_net_length,
+			   format->fmt_length, op_overhead);
+#endif
+
+	if (port->port_flags & PORT_symmetric) {
+		/* Same architecture connection */
+		row_size = (ROUNDUP(format->fmt_length, 4)
+					+ op_overhead);
+	}
+	else {
+		/* Using XDR for data transfer */
+		row_size = (ROUNDUP(format->fmt_net_length, 4)
+					+ op_overhead);
+	}
+
+	num_packets = (USHORT) (((DESIRED_ROWS_PER_BATCH * row_size)	/* data set */
+							 +buffer_used	/* used in 1st pkt */
+							 + (port->port_buff_size - 1))	/* to round up */
+							/port->port_buff_size);
+	if (num_packets > MAX_PACKETS_PER_BATCH) {
+		num_packets = (USHORT) (((MIN_ROWS_PER_BATCH * row_size)	/* data set */
+								 +buffer_used	/* used in 1st pkt */
+								 + (port->port_buff_size - 1))	/* to round up */
+								/port->port_buff_size);
+	}
+	num_packets = MAX(num_packets, MIN_PACKETS_PER_BATCH);
+
+/* Now that we've picked the number of packets in a batch,
+   pack as many rows as we can into the set of packets */
+
+	result = (num_packets * port->port_buff_size - buffer_used) / row_size;
+
+/* Must always send some messages, even if message size is more 
+   than packet size. */
+
+	result = MAX(result, MIN_ROWS_PER_BATCH);
+
+#ifdef DEBUG
+	{
+		char *p;
+		if (p = getenv("DEBUG_BATCH_SIZE"))
+			result = atoi(p);
+		ib_fprintf(ib_stderr, "row_size = %d num_packets = %d\n",
+				   row_size, num_packets);
+		ib_fprintf(ib_stderr, "result = %d\n", result);
+	}
+#endif
+
+	return result;
+}
+
+
+RRQ DLL_EXPORT REMOTE_find_request(RRQ request, USHORT level)
+{
+/**************************************
+ *
+ *	R E M O T E _ f i n d _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find sub-request if level is non-zero.
+ *
+ **************************************/
+	MSG msg;
+	FMT format;
+	rrq::rrq_repeat * tail, *end;
+
+/* See if we already know about the request level */
+
+	for (;;) {
+		if (request->rrq_level == level)
+			return request;
+		if (!request->rrq_levels)
+			break;
+		request = request->rrq_levels;
+	}
+
+/* This is a new level -- make up a new request block. */
+
+	request->rrq_levels = (RRQ) ALLR_clone(&request->rrq_header);
+/* NOMEM: handled by ALLR_clone, FREE: REMOTE_remove_request() */
+#ifdef REMOTE_DEBUG_MEMORY
+	ib_printf("REMOTE_find_request       allocate request %x\n",
+			  request->rrq_levels);
+#endif
+	request = request->rrq_levels;
+	request->rrq_level = level;
+	request->rrq_levels = NULL;
+
+/* Allocate message block for known messages */
+
+	tail = request->rrq_rpt;
+	end = tail + request->rrq_max_msg;
+	for (; tail <= end; tail++) {
+		if (!(format = tail->rrq_format))
+			continue;
+		tail->rrq_xdr = msg = (MSG) ALLOCV(type_msg, format->fmt_length);
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("REMOTE_find_request       allocate message %x\n", msg);
+#endif
+		msg->msg_next = msg;
+#ifdef SCROLLABLE_CURSORS
+		msg->msg_prior = msg;
+#endif
+		msg->msg_number = tail->rrq_message->msg_number;
+		tail->rrq_message = msg;
+	}
+
+	return request;
+}
+
+
+void DLL_EXPORT REMOTE_free_packet( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	R E M O T E _ f r e e _ p a c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zero out a packet block.
+ *
+ **************************************/
+	XDR xdr;
+	USHORT n;
+
+	if (packet) {
+		xdrmem_create(&xdr, reinterpret_cast < char *>(packet),
+					  sizeof(PACKET), XDR_FREE);
+		xdr.x_public = (caddr_t) port;
+
+		for (n = (USHORT) op_connect; n < (USHORT) op_max; n++) {
+			packet->p_operation = (P_OP) n;
+			xdr_protocol(&xdr, packet);
+		}
+#ifdef DEBUG_XDR_MEMORY
+		/* All packet memory allocations should now be voided. */
+
+		for (n = 0; n < P_MALLOC_SIZE; n++)
+			assert(packet->p_malloc[n].p_operation == op_void);
+#endif
+		packet->p_operation = op_void;
+	}
+}
+
+
+void DLL_EXPORT REMOTE_get_timeout_params(
+										  PORT port,
+										  UCHAR * dpb, USHORT dpb_length)
+{
+/**************************************
+ *
+ *	R E M O T E _ g e t _ t i m e o u t _ p a r a m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine the connection timeout parameter values for this newly created
+ *	port.  If the client did a specification in the DPB, use those values.
+ *	Otherwise, see if there is anything in the configuration file.  The
+ *	configuration file management code will set the default values if there
+ *	is no other specification.
+ *
+ **************************************/
+	UCHAR *p, *end;
+	USHORT len;
+	BOOLEAN got_dpb_connect_timeout, got_dpb_dummy_packet_interval;
+
+	assert(isc_dpb_connect_timeout == isc_spb_connect_timeout);
+	assert(isc_dpb_dummy_packet_interval == isc_spb_dummy_packet_interval);
+
+	got_dpb_connect_timeout = FALSE;
+	got_dpb_dummy_packet_interval = FALSE;
+	port->port_flags &= ~PORT_dummy_pckt_set;
+
+	if (dpb && dpb_length) {
+		p = dpb;
+		end = p + dpb_length;
+
+		if (*p++ == gds_dpb_version1) {
+			while (p < end)
+				switch (*p++) {
+				case gds_dpb_connect_timeout:
+					port->port_connect_timeout = get_parameter(&p);
+					got_dpb_connect_timeout = TRUE;
+					break;
+
+				case gds_dpb_dummy_packet_interval:
+					port->port_dummy_packet_interval = get_parameter(&p);
+					got_dpb_dummy_packet_interval = TRUE;
+					port->port_flags |= PORT_dummy_pckt_set;
+					break;
+
+				case isc_dpb_sys_user_name:
+			/** Store the user name in thread specific storage.
+			We need this later while expanding filename to
+			get the users home directory.
+			Normally the working directory is stored in
+			the attachment but in this case the attachment is 
+			not yet created.
+			Also note that the thread performing this task
+			has already called THREAD_ENTER
+		    **/
+					{
+						char *t_data;
+						int l, i = 0;
+
+						THD_init_data();
+
+						l = *(p++);
+						if (l) {
+							t_data = (char *) malloc(l + 1);
+							do {
+								t_data[i] = *p;
+								if (t_data[i] == '.')
+									t_data[i] = 0;
+								i++;
+								p++;
+							} while (--l);
+						}
+						else
+							t_data = (char *) malloc(1);
+						t_data[i] = 0;
+
+
+						THD_putspecific_data((void *) t_data);
+
+					}
+					break;
+
+				default:
+					/* Skip over this parameter - not important to us */
+					len = *p++;
+					p += len;
+					break;
+				}
+		}
+	}
+
+	if (!got_dpb_connect_timeout || !got_dpb_dummy_packet_interval) {
+		/* Didn't find all parameters in the dpb, fetch configuration
+		   information from the configuration file and set the missing
+		   values */
+
+		ISC_get_config(LOCK_HEADER, INET_cfgtbl);
+
+		if (!got_dpb_connect_timeout)
+			port->port_connect_timeout = conn_timeout;
+
+		if (!got_dpb_dummy_packet_interval) {
+			if (INET_cfgtbl[DUMMY_PACKET_INTRVL_IDX].ipccfg_found)
+				port->port_flags |= PORT_dummy_pckt_set;
+			port->port_dummy_packet_interval = dummy_interval;
+		}
+	}
+/* Insure a meaningful keepalive interval has been set. Otherwise, too
+   many keepalive packets will drain network performance. */
+
+	if (port->port_dummy_packet_interval < 0)
+		port->port_dummy_packet_interval = DUMMY_INTERVAL;
+
+	port->port_dummy_timeout = port->port_dummy_packet_interval;
+#ifdef DEBUG
+	ib_printf("REMOTE_get_timeout dummy = %d conn = %d\n",
+			  port->port_dummy_packet_interval, port->port_connect_timeout);
+	ib_fflush(ib_stdout);
+#endif
+}
+
+
+STR DLL_EXPORT REMOTE_make_string(SCHAR * input)
+{
+/**************************************
+ *
+ *	R E M O T E _ m a k e _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a given string to a permanent location, returning
+ *	address of new string.
+ *
+ **************************************/
+	STR string;
+
+	string = (STR) ALLOCV(type_str, strlen(input));
+#ifdef REMOTE_DEBUG_MEMORY
+	ib_printf("REMOTE_make_string        allocate string  %x\n", string);
+#endif
+	strcpy(string->str_data, input);
+
+	return string;
+}
+
+
+void DLL_EXPORT REMOTE_release_messages( MSG messages)
+{
+/**************************************
+ *
+ *	R E M O T E _ r e l e a s e _ m e s s a g e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a circular list of messages.
+ *
+ **************************************/
+	MSG message, temp;
+
+	if (message = messages)
+		while (TRUE) {
+			temp = message;
+			message = message->msg_next;
+#ifdef REMOTE_DEBUG_MEMORY
+			ib_printf("REMOTE_release_messages   free message     %x\n",
+					  temp);
+#endif
+			ALLR_release(temp);
+			if (message == messages)
+				break;
+		}
+}
+
+
+void DLL_EXPORT REMOTE_release_request( RRQ request)
+{
+/**************************************
+ *
+ *	R E M O T E _ r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request block and friends.
+ *
+ **************************************/
+	MSG message;
+	RDB rdb;
+	RRQ *p, next;
+	rrq::rrq_repeat * tail, *end;
+
+	rdb = request->rrq_rdb;
+
+	for (p = &rdb->rdb_requests; *p; p = &(*p)->rrq_next)
+		if (*p == request) {
+			*p = request->rrq_next;
+			break;
+		}
+
+/* Get rid of request and all levels */
+
+	for (;;) {
+		tail = request->rrq_rpt;
+		end = tail + request->rrq_max_msg;
+		for (; tail <= end; tail++)
+			if (message = tail->rrq_message) {
+				if (!request->rrq_level) {
+#ifdef REMOTE_DEBUG_MEMORY
+					ib_printf
+						("REMOTE_release_request    free format      %x\n",
+						 tail->rrq_format);
+#endif
+					ALLR_release(tail->rrq_format);
+				}
+				REMOTE_release_messages(message);
+			}
+		next = request->rrq_levels;
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("REMOTE_release_request    free request     %x\n", request);
+#endif
+		ALLR_release(request);
+		if (!(request = next))
+			break;
+	}
+}
+
+
+void DLL_EXPORT REMOTE_reset_request( RRQ request, MSG active_message)
+{
+/**************************************
+ *
+ *	R E M O T E _ r e s e t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clean up a request in preparation to use it again.  Since
+ *	there may be an active message (start_and_send), exercise
+ *	some care to avoid zapping that message.
+ *
+ **************************************/
+	MSG message;
+	rrq::rrq_repeat * tail, *end;
+
+	tail = request->rrq_rpt;
+
+	for (end = tail + request->rrq_max_msg; tail <= end; tail++)
+		if ((message = tail->rrq_message) != NULL
+			&& message != active_message) {
+			tail->rrq_xdr = message;
+			tail->rrq_rows_pending = 0;
+			tail->rrq_reorder_level = 0;
+			tail->rrq_batch_count = 0;
+			while (TRUE) {
+				message->msg_address = NULL;
+				message = message->msg_next;
+				if (message == tail->rrq_message)
+					break;
+			}
+		}
+
+/* Initialize the request status to SUCCESS */
+
+	request->rrq_status_vector[1] = 0;
+}
+
+
+void DLL_EXPORT REMOTE_reset_statement( RSR statement)
+{
+/**************************************
+ *
+ *	R E M O T E _ r e s e t _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Reset a statement by releasing all buffers except 1
+ *
+ **************************************/
+	MSG message, temp;
+
+	if ((!statement) || (!(message = statement->rsr_message)))
+		return;
+
+/* Reset all the pipeline counters */
+
+	statement->rsr_rows_pending = 0;
+	statement->rsr_msgs_waiting = 0;
+	statement->rsr_reorder_level = 0;
+	statement->rsr_batch_count = 0;
+
+/* only one entry */
+
+	if (message->msg_next == message)
+		return;
+
+/* find the entry before statement->rsr_message */
+
+	for (temp = message->msg_next; temp->msg_next != message;
+		 temp = temp->msg_next);
+
+	temp->msg_next = message->msg_next;
+	message->msg_next = message;
+#ifdef SCROLLABLE_CURSORS
+	message->msg_prior = message;
+#endif
+
+	statement->rsr_buffer = statement->rsr_message;
+
+	REMOTE_release_messages(temp);
+}
+
+
+void REMOTE_save_status_strings( STATUS * vector)
+{
+/**************************************
+ *
+ *	R E M O T E _ s a v e _ s t a t u s _ s t r i n g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	There has been a failure during attach/create database.
+ *	The included string have been allocated off of the database block,
+ *	which is going to be released before the message gets passed 
+ *	back to the user.  So, to preserve information, copy any included
+ *	strings to a special buffer.
+ *
+ **************************************/
+	TEXT *p;
+	STATUS status;
+	USHORT l;
+
+	if (!attach_failures)
+	{
+		attach_failures =
+			(TEXT *) ALLOC_LIB_MEMORY((SLONG) ATTACH_FAILURE_SPACE);
+		/* FREE: freed by exit handler cleanup_memory() */
+		if (!attach_failures)	/* NOMEM: don't bother trying to copy */
+			return;
+#ifdef DEBUG_GDS_ALLOC
+		/* This buffer is freed by the exit handler - but some of the
+		 * reporting mechanisms will report it anyway, so flag it as
+		 * "known unfreed" to get the reports quiet.
+		 */
+		gds_alloc_flag_unfreed((void *) attach_failures);
+#endif	/* DEBUG_GDS_ALLOC */
+		attach_failures_ptr = attach_failures;
+		gds__register_cleanup(cleanup_memory, 0);
+	}
+
+	while (*vector)
+	{
+		status = *vector++;
+		switch (status)
+		{
+		case gds_arg_cstring:
+			l = (USHORT) * vector++;
+
+		case gds_arg_interpreted:
+		case gds_arg_string:
+			p = (TEXT *) * vector;
+			if (status != gds_arg_cstring)
+				l = strlen(p) + 1;
+
+			/* If there isn't any more room in the buffer,
+			   start at the beginning again */
+
+			if (attach_failures_ptr + l >
+				attach_failures + ATTACH_FAILURE_SPACE) attach_failures_ptr =
+					attach_failures;
+			*vector++ = (STATUS) attach_failures_ptr;
+			while (l--)
+				*attach_failures_ptr++ = *p++;
+			break;
+
+		default:
+			++vector;
+			break;
+		}
+	}
+}
+
+
+OBJCT DLL_EXPORT REMOTE_set_object(PORT port, BLK object, OBJCT slot)
+{
+/**************************************
+ *
+ *	R E M O T E _ s e t _ o b j e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set an object into the object vector.
+ *
+ **************************************/
+	VEC vector, new_vector;
+	BLK *p, *q, *end;
+
+/* If it fits, do it */
+
+	if (((vector = port->port_object_vector) != NULL) &&
+		slot < vector->vec_count) {
+		vector->vec_object[slot] = object;
+		return slot;
+	}
+
+/* Prevent the creation of object handles that can't be
+   transferred by the remote protocol. */
+
+	if (slot + 10 > MAX_OBJCT_HANDLES)
+		return (OBJCT) NULL;
+
+	port->port_object_vector = new_vector = (VEC) ALLOCV(type_vec, slot + 10);
+#ifdef REMOTE_DEBUG_MEMORY
+	ib_printf("REMOTE_set_object         allocate vector  %x\n", new_vector);
+#endif
+	port->port_objects = new_vector->vec_object;
+	new_vector->vec_count = slot + 10;
+
+	if (vector) {
+		p = new_vector->vec_object;
+		q = vector->vec_object;
+		end = q + (int) vector->vec_count;
+		while (q < end)
+			*p++ = *q++;
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("REMOTE_release_request    free vector      %x\n", vector);
+#endif
+		ALLR_release(vector);
+	}
+
+	new_vector->vec_object[slot] = object;
+
+	return slot;
+}
+
+
+static void cleanup_memory( void *block)
+{
+/**************************************
+ *
+ *	c l e a n u p _ m e m o r y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cleanup any allocated memory.
+ *
+ **************************************/
+
+	if (attach_failures)
+		FREE_LIB_MEMORY(attach_failures);
+
+	gds__unregister_cleanup(cleanup_memory, 0);
+	attach_failures = NULL;
+}
+
+
+static SLONG get_parameter( UCHAR ** ptr)
+{
+/**************************************
+ *
+ *	g e t _ p a r a m e t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Pick up a VAX format parameter from a parameter block, including the
+ *	length byte.
+ *	This is a clone of jrd/jrd.c:get_parameter()
+ *
+ **************************************/
+	SLONG parameter;
+	SSHORT l;
+
+	l = *(*ptr)++;
+	parameter = gds__vax_integer(*ptr, l);
+	*ptr += l;
+
+	return parameter;
+}
+
+
+// TMN: Beginning of C++ port - ugly but a start
+
+int port::accept(p_cnct* cnct)
+{
+	return (*this->port_accept)(this, cnct);
+}
+
+void port::disconnect()
+{
+	(*this->port_disconnect)(this);
+}
+
+port* port::receive(PACKET* pckt)
+{
+	return (*this->port_receive_packet)(this, pckt);
+}
+
+XDR_INT port::send(PACKET* pckt)
+{
+	return (*this->port_send_packet)(this, pckt);
+}
+
+XDR_INT port::send_partial(PACKET* pckt)
+{
+	return (*this->port_send_partial)(this, pckt);
+}
+
+port* port::connect(PACKET* pckt, void(*ast)())
+{
+	return (*this->port_connect)(this, pckt, ast);
+}
+
+port* port::request(PACKET* pckt)
+{
+	return (*this->port_request)(this, pckt);
+}
+
+
+} // extern "C"
diff --git a/src/remote/remote.def b/src/remote/remote.def
new file mode 100644
index 0000000000..612da38fbb
--- /dev/null
+++ b/src/remote/remote.def
@@ -0,0 +1,111 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+; 
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+; 
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+; 
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;------------------------------------------------------------
+;  REMOTE DLL MODULE DEFINITION FILE
+;------------------------------------------------------------
+
+LIBRARY     REMOTE                        
+
+DESCRIPTION 'REMOTE.DLL                  '
+CODE MOVEABLE
+DATA MOVEABLE
+SEGMENTS
+        _TEXT           DISCARDABLE
+        ALLR_TEXT       DISCARDABLE
+        INET_TEXT       PRELOAD
+        INTERFAC_TEXT   DISCARDABLE 
+        MERGE_TEXT      DISCARDABLE
+        PARSER_TEXT     DISCARDABLE
+        PROTOCOL_TEXT   DISCARDABLE
+        REMOTE_TEXT     DISCARDABLE
+        XDR_TEXT        DISCARDABLE
+        NTOH_TEXT       DISCARDABLE
+        CVT_TEXT        DISCARDABLE
+        DLLSHELL_TEXT   PRELOAD
+        SPXWIN_TEXT     PRELOAD 
+        SPXESR_TEXT     FIXED
+        WNET_TEXT       DISCARDABLE
+        WFWNP_TEXT      PRELOAD
+EXPORTS
+            _REM_unwind_request            @2   
+            _REM_transaction_info          @3   
+            _REM_start_transaction         @4   
+            _REM_start_request             @5   
+            _REM_start_and_send            @6   
+            _REM_send                      @7   
+	    _REM_seek_blob                 @8
+            _REM_rollback_transaction      @9   
+            _REM_request_info              @10  
+            _REM_release_request           @11  
+	    _REM_reconnect_transaction     @12
+            _REM_receive                   @13  
+            _REM_que_events                @14  
+            _REM_put_slice                 @15  
+            _REM_put_segment               @16  
+            _REM_prepare_transaction       @17  
+            _REM_open_blob2                @18  
+	    _REM_get_slice                 @19
+            _REM_get_segment               @20  
+            _REM_sql_info                  @21  
+            _REM_set_cursor_name           @22  
+            _REM_prepare                   @23  
+            _REM_free_statement            @24  
+            _REM_fetch                     @25  
+            _REM_execute_immediate         @26  
+            _REM_execute                   @27  
+            _REM_allocate_statement        @28  
+            _REM_detach_database           @29  
+            _REM_ddl                       @30  
+            _REM_database_info             @31  
+            _REM_create_database           @32  
+            _REM_create_blob2              @33  
+            _REM_compile_request           @34  
+            _REM_commit_retaining          @35  
+            _REM_commit_transaction        @36  
+	    _REM_close_blob                @37
+            _REM_cancel_events             @38  
+	    _REM_cancel_blob               @39
+            _REM_blob_info                 @40  
+	    _REM_attach_database           @41
+            _REM_query_service             @42
+            _REM_detach_service            @43
+            _REM_attach_service            @44
+            _REM_insert                    @45
+            _REM_execute2                  @47
+            _REM_execute_immediate2        @48
+	    _REM_drop_database             @49
+            _REM_transact_request          @50
+            _REMOTE_release_messages       @51
+            _REMOTE_free_packet            @52
+            _REMOTE_make_string            @53
+            _REMOTE_cleanup_transaction    @54
+            _REMOTE_reset_statement        @55
+            _REMOTE_set_object             @56
+            _REMOTE_find_request           @57
+            _REMOTE_release_request        @58
+	    _REMOTE_reset_request          @59
+
+	    _ALLR_free                     @60
+	    _ALLR_alloc                    @61
+	    _ALLR_block                    @62
+	    _ALLR_release                  @63
+	    _PARSE_messages                @64
+   	    _MERGE_database_info           @65
+	    _INET_server                   @66
+	    _INET_connect                  @67
+
+	    WEP                            @1	RESIDENTNAME
diff --git a/src/remote/remote.h b/src/remote/remote.h
new file mode 100644
index 0000000000..283737efde
--- /dev/null
+++ b/src/remote/remote.h
@@ -0,0 +1,536 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		remote.h
+ *	DESCRIPTION:	Common descriptions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef REMOTE_REMOTE_H
+#define REMOTE_REMOTE_H
+
+#include "../jrd/common.h"
+#include "../remote/remote_def.h"
+#include "../jrd/ibsetjmp.h"
+
+/* Include some apollo include files for tasking */
+
+#if !(defined VMS || defined WIN_NT)
+#if !(defined PC_PLATFORM || defined NETWARE_386)
+#include <pwd.h>
+#include <signal.h>
+#endif
+#include <fcntl.h>
+#include <sys/socket.h>
+#include <sys/ioctl.h>
+#endif /* !VMS || !WIN_NT */
+
+
+#ifdef DEV_BUILD
+/* Debug packet/XDR memory allocation */
+
+/* Temporarily disabling DEBUG_XDR_MEMORY */
+/* #define DEBUG_XDR_MEMORY	*/
+
+#endif
+
+#define BLOB_LENGTH		16384   
+
+#define ALLOC(type)			ALLR_block (type, 0)
+#define ALLOCV(type, count)	ALLR_block (type, count)
+
+
+#include "../remote/protocol.h"
+
+/* Block types */
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+
+/* Block types */
+
+typedef struct rdb
+{
+	struct blk		rdb_header;
+	USHORT			rdb_id;
+	USHORT			rdb_flags;
+	int*			rdb_handle;			/* database handle */
+	struct port*	rdb_port;			/* communication port */
+	struct rtr*		rdb_transactions;	/* linked list of transactions */
+	struct rrq*		rdb_requests;		/* compiled requests */
+	struct rvnt*	rdb_events;			/* known events */
+	struct rsr*		rdb_sql_requests;	/* SQL requests */
+	STATUS*			rdb_status_vector;
+	UCHAR*			rdb_setjmp;
+	PACKET			rdb_packet;			/* Communication structure */
+} *RDB;
+
+#define RDB_service	1		/* structure relates to a service */
+
+typedef struct rtr
+{
+	struct blk	rtr_header;
+	struct rdb*	rtr_rdb;
+	struct rtr*	rtr_next;
+	struct rbl*	rtr_blobs;
+	int*		rtr_handle;
+	USHORT		rtr_flags;
+	USHORT		rtr_id;
+} *RTR;
+
+#define RTR_limbo	1
+
+typedef struct rbl
+{
+	struct blk	rbl_header;
+	struct rdb*	rbl_rdb;
+	struct rtr*	rbl_rtr;
+	struct rbl*	rbl_next;
+	int*		rbl_handle;
+	SLONG		rbl_offset;			/* Apparent (to user) offset in blob */
+	USHORT		rbl_id;
+	USHORT		rbl_flags;
+	UCHAR*		rbl_ptr;
+	UCHAR*		rbl_buffer;
+	USHORT		rbl_buffer_length;
+	USHORT		rbl_length;
+	USHORT		rbl_fragment_length;
+	USHORT		rbl_source_interp;	/* source interp (for writing) */
+	USHORT		rbl_target_interp;	/* destination interp (for reading) */
+	UCHAR		rbl_data[1];
+} *RBL;
+
+#define RBL_eof		1
+#define RBL_segment	2
+#define RBL_eof_pending	4
+#define RBL_create	8
+
+typedef struct rvnt
+{
+	struct blk	rvnt_header;
+	struct rvnt*rvnt_next;
+	RDB			rvnt_rdb;
+	void		(*rvnt_ast)(void*, USHORT, UCHAR*);
+	void*		rvnt_arg;
+	SLONG		rvnt_id;
+	SLONG		rvnt_rid;	/* used by server to store client-side id */
+	struct port*rvnt_port;	/* used to id server from whence async came */
+	UCHAR*		rvnt_items;
+	SSHORT		rvnt_length;
+} *RVNT;
+
+typedef struct vec
+{
+	struct blk	vec_header;
+	ULONG		vec_count;
+	struct blk*	vec_object[1];
+} *VEC;
+
+typedef struct vcl
+{
+	struct blk	vcl_header;
+	ULONG		vcl_count;
+	SLONG		vcl_long[1];
+} *VCL;
+
+/* Random string block -- jack of all kludges */
+
+typedef struct str
+{
+	struct blk	str_header;
+	USHORT		str_length;
+	SCHAR		str_data[2];
+} *STR;
+
+/* Include definition of descriptor */
+
+#include "../jrd/dsc.h"
+
+typedef struct vary
+{
+	USHORT	vary_length;
+	UCHAR	vary_string[1];
+} *VARY;
+
+typedef struct fmt
+{
+	struct blk	fmt_header;
+	USHORT		fmt_length;
+	USHORT		fmt_net_length;
+	USHORT		fmt_count;
+	USHORT		fmt_version;
+	USHORT		fmt_flags;
+	struct dsc	fmt_desc[1];
+} *FMT;
+
+#define FMT_has_P10_specific_datatypes	0x1	/* datatypes don't exist in P9 */
+
+/* Windows declares a msg structure, so rename the structure 
+   to avoid overlap problems. */
+
+typedef struct message
+{
+	struct blk	msg_header;
+	struct message *msg_next;	/* Next available message */
+#ifdef SCROLLABLE_CURSORS
+	struct message *msg_prior;	/* Next available message */
+	ULONG	msg_absolute; 		/* Absolute record number in cursor result set */
+#endif
+	/* Please DO NOT re-arrange the order of following two fields.
+	   This could result in alignment problems while trying to access
+	   'msg_buffer' as a 'long', leading to "core" drops 
+		Sriram - 04-Jun-97 */
+	USHORT	msg_number;			/* Message number */
+	UCHAR	*msg_address;		/* Address of message */
+	UCHAR	msg_buffer[1];		/* Allocated message */
+} *MSG;
+
+/* remote stored procedure request */
+
+typedef struct rpr
+{
+	struct blk		rpr_header;
+	struct rdb*		rpr_rdb;
+	struct rtr*		rpr_rtr;
+	int*			rpr_handle;
+	struct message*	rpr_in_msg;		/* input message */
+	struct message*	rpr_out_msg;	/* output message */
+	struct fmt*		rpr_in_format;	/* Format of input message */
+	struct fmt*		rpr_out_format;	/* Format of output message */
+	USHORT			rpr_flags;
+} *RPR;
+
+#define RPR_eof		1		/* End-of-stream encountered */
+
+typedef struct rrq
+{
+	struct blk	rrq_header;
+	struct rdb*	rrq_rdb;
+	struct rtr*	rrq_rtr;
+	struct rrq*	rrq_next;
+	struct rrq*	rrq_levels;		/* RRQ block for next level */
+	int*		rrq_handle;
+	USHORT		rrq_id;
+	USHORT		rrq_max_msg;
+	USHORT		rrq_level;
+	STATUS		rrq_status_vector[20];
+	struct		rrq_repeat
+	{
+		struct fmt*		rrq_format;		/* format for this message */
+		struct message*	rrq_message; 	/* beginning or end of cache, depending on whether it is client or server */
+		struct message*	rrq_xdr;		/* point at which cache is read or written by xdr */ 
+#ifdef SCROLLABLE_CURSORS
+		struct message*	rrq_last;		/* last message returned */
+		ULONG			rrq_absolute;	/* current offset in result set for record being read into cache */
+		USHORT			rrq_flags;
+#endif
+		USHORT			rrq_msgs_waiting;	/* count of full rrq_messages */
+		USHORT			rrq_rows_pending;	/* How many rows in waiting */
+		USHORT			rrq_reorder_level;	/* Reorder when rows_pending < this level */
+		USHORT			rrq_batch_count;	/* Count of batches in pipeline */
+
+	} rrq_rpt[1];
+} *RRQ;
+
+/* rrq flags */
+
+#define RRQ_backward			1	/* the cache was created in the backward direction */ 
+#define RRQ_absolute_backward	2	/* rrq_absolute is measured from the end of the stream */
+#define RRQ_last_backward		4	/* last time, the next level up asked for us to scroll in the backward direction */
+
+/* remote SQL request */
+
+typedef struct rsr
+{
+	struct blk		rsr_header;
+	struct rsr*		rsr_next;
+	struct rdb*		rsr_rdb;
+	struct rtr*		rsr_rtr;
+	int*			rsr_handle;
+	struct fmt*		rsr_bind_format;		/* Format of bind message */
+	struct fmt*		rsr_select_format;		/* Format of select message */
+	struct fmt*		rsr_user_select_format; /* Format of user's select message */
+	struct fmt*		rsr_format;				/* Format of current message */
+	struct message*	rsr_message;			/* Next message to process */
+	struct message*	rsr_buffer;				/* Next buffer to use */
+	STATUS			rsr_status_vector[20];	/* saved status for buffered errors */
+	USHORT			rsr_id;
+	USHORT			rsr_flags;
+	USHORT			rsr_fmt_length;
+
+	ULONG			rsr_rows_pending;	/* How many rows are pending */
+	USHORT			rsr_msgs_waiting; 	/* count of full rsr_messages */
+	USHORT			rsr_reorder_level; 	/* Trigger pipelining at this level */
+	USHORT			rsr_batch_count; 	/* Count of batches in pipeline */
+} *RSR;
+
+#define RSR_fetched		1		/* Cleared by execute, set by fetch */
+#define RSR_eof			2		/* End-of-stream encountered */
+#define RSR_blob		4		/* Statement relates to blob op */
+#define RSR_no_batch	8		/* Do not batch fetch rows */
+#define RSR_stream_err	16		/* There is an error pending in the batched rows */
+
+
+enum blk_t
+{
+	type_MIN = 0,
+	type_vec,
+	type_rdb,
+	type_fmt,
+	type_rrq,
+	type_rtr,
+	type_str,
+	type_rbl,
+	type_port,
+	type_msg,
+	type_rsr,
+	type_rvnt,
+	type_rpr,
+	type_rmtque,
+	type_MAX
+};
+
+
+#include "../remote/xdr.h"
+
+
+/* Generalized port definition. */
+
+enum port_t
+{
+	port_mailbox,		/* Apollo mailbox */
+	port_pcic,			/* IBM PC interconnect */
+	port_inet,			/* Internet (TCP/IP) */
+	port_asyn_homebrew,		/* homebrew asynchronous connection */
+	port_decnet,		/* DECnet connection */
+	port_ipc,			/* NetIPC connection */
+	port_pipe,			/* Windows NT named pipe connection */
+	port_mslan,			/* Microsoft LanManager connection */
+	port_spx,                   /* Novell SPX connection */
+	port_ipserver,               /* InterBase interprocess server */
+	port_xnet			/* Windows NT named xnet connection */
+};
+
+enum state_t
+{
+	state_closed,		/* no connection */
+	state_pending,		/* connection is pending */
+	state_eof,			/* other side has shut down */
+	state_broken,		/* connection is broken */
+	state_active,		/* connection is complete */
+	state_disconnected          /* port is disconnected */
+};
+
+
+#ifndef WIN_NT
+#define HANDLE	int
+#endif  /* WIN_NT */
+
+
+//////////////////////////////////////////////////////////////////
+// fwd. decl.
+struct port;
+struct p_cnct;
+
+class port_interface
+{
+public:
+	virtual int		accept_(port* pPort, p_cnct* pConnection) = 0;
+};
+
+typedef struct port
+{
+	struct blk		port_header;
+	enum port_t		port_type;			/* type of port */
+	enum state_t	port_state;			/* state of port */
+	P_ARCH			port_client_arch;	/* so we can tell arch of client */
+	struct port*	port_clients;		/* client ports */
+	struct port*	port_next;			/* next client port */
+	struct port*	port_parent;		/* parent port (for client ports) */
+	struct port*	port_async;			/* asynchronous sibling port */
+	struct srvr*	port_server;		/* server of port */
+	USHORT			port_server_flags;	/* TRUE if server */
+	USHORT			port_protocol;		/* protocol version number */
+	USHORT			port_buff_size;		/* port buffer size (approx) */
+	USHORT			port_flags;			/* Misc flags */
+	SLONG			port_connect_timeout;   /* Connection timeout value */
+	SLONG			port_dummy_packet_interval; /* keep alive dummy packet interval */
+	SLONG			port_dummy_timeout;	/* time remaining until keepalive packet */
+	STATUS*			port_status_vector;
+	HANDLE			port_handle;		/* handle for connection (from by OS) */
+	int				port_channel;		/* handle for connection (from by OS) */
+	int				port_misc1;
+	SLONG			port_semaphore;
+	struct linger	port_linger;		/* linger value as defined by SO_LINGER */
+
+	/* port function pointers (C "emulation" of virtual functions) */
+	int				(*port_accept)(struct port*, struct p_cnct*);
+	void			(*port_disconnect)(struct port*);
+	struct port*	(*port_receive_packet)(struct port*, PACKET*);
+	XDR_INT			(*port_send_packet)(struct port*, PACKET*);
+	XDR_INT			(*port_send_partial)(struct port*, PACKET*);
+	struct port*	(*port_connect)(struct port*, PACKET*, void(*)());	/* Establish secondary connection */
+	struct port*	(*port_request)(struct port*, PACKET*);	/* Request to establish secondary connection */
+
+	struct rdb*		port_context;
+	XDR_INT			(*port_ast)();		/* AST for events */
+	XDR				port_receive;
+	XDR				port_send;
+#ifdef DEBUG_XDR_MEMORY
+	VEC				port_packet_vector;	/* Vector of send/receive packets */
+#endif
+	VEC				port_object_vector;
+	BLK*			port_objects;
+	STR				port_version;
+	STR				port_host;			/* Our name */
+	STR				port_connection;	/* Name of connection */
+	STR				port_user_name;
+	STR				port_passwd;
+	struct rpr*		port_rpr;			/* port stored procedure reference */
+	struct rsr*		port_statement;		/* Statement for execute immediate */
+	struct rmtque*	port_receive_rmtque;	/* for client, responses waiting */
+	USHORT			port_requests_queued;	/* requests currently queued */
+#ifdef VMS
+	USHORT			port_iosb[4];
+#endif
+#ifdef NETWARE_386
+	void*			port_fdset;
+#endif
+#ifdef XNET
+	void*			port_xcc;              /* interprocess structure */
+#endif
+	UCHAR			port_buffer[1];
+
+	/* TMN: Beginning of C++ port */
+#ifdef __cplusplus
+	/* TMN: ugly, but at least a start */
+	int		accept(p_cnct* cnct);
+	void	disconnect();
+	port*	receive(PACKET* pckt);
+	XDR_INT	send(PACKET* pckt);
+	XDR_INT	send_partial(PACKET* pckt);
+	port*	connect(PACKET* pckt, void(*ast)());
+	port*	request(PACKET* pckt);
+
+	/* TMN: The following member functions are conceptually private
+	 *      to server.cpp and should be _made_ private in due time!
+	 *      That is, if we don't factor these method out.
+	 */
+	STATUS	compile(P_CMPL*, PACKET*);
+	STATUS	ddl(P_DDL*, PACKET*);
+	void	disconnect(PACKET*, PACKET*);
+	void	drop_database(P_RLSE*, PACKET*);
+
+	STATUS	end_blob(P_OP, P_RLSE*, PACKET*);
+	STATUS	end_database(P_RLSE*, PACKET*);
+	STATUS	end_request(P_RLSE*, PACKET*);
+	STATUS	end_statement(P_SQLFREE*, PACKET*);
+	STATUS	end_transaction(P_OP, P_RLSE*, PACKET*);
+	STATUS	execute_immediate(P_OP, P_SQLST*, PACKET*);
+	STATUS	execute_statement(P_OP, P_SQLDATA*, PACKET*);
+	STATUS	fetch(P_SQLDATA*, PACKET*);
+	STATUS	fetch_blob(P_SQLDATA*, PACKET*);
+	OBJCT	get_id(BLK);
+	STATUS	get_segment(P_SGMT*, PACKET*);
+	STATUS	get_slice(P_SLC*, PACKET*);
+	STATUS	info(P_OP, P_INFO*, PACKET*);
+	STATUS	insert(P_SQLDATA*, PACKET*);
+	STATUS	open_blob(P_OP, P_BLOB*, PACKET*);
+	STATUS	prepare(P_PREP*, PACKET*);
+	STATUS	prepare_statement(P_SQLST*, PACKET*);
+	STATUS	put_segment(P_OP, P_SGMT*, PACKET*);
+	STATUS	put_slice(P_SLC*, PACKET*);
+	STATUS	que_events(P_EVENT*, PACKET*);
+	STATUS	receive_after_start(P_DATA*, PACKET*, STATUS*);
+	STATUS	receive_msg(P_DATA*, PACKET*);
+	STATUS	seek_blob(P_SEEK*, PACKET*);
+	STATUS	send_msg(P_DATA*, PACKET*);
+	STATUS	send_response(PACKET*, OBJCT, USHORT, STATUS*);
+	STATUS	service_attach(P_ATCH*, PACKET*);
+	STATUS	service_end(P_RLSE*, PACKET*);
+	STATUS	service_start(P_INFO*, PACKET*);
+	STATUS	set_cursor(P_SQLCUR*, PACKET*);
+	STATUS	start(P_OP, P_DATA*, PACKET*);
+	STATUS	start_and_send(P_OP, P_DATA*, PACKET*);
+	STATUS	start_transaction(P_OP, P_STTR*, PACKET*);
+	STATUS	transact_request(P_TRRQ *, PACKET*);
+
+#endif	/* __cplusplus */
+
+} *PORT;
+
+#define PORT_symmetric		1	/* Server/client archiectures are symmetic */
+#define PORT_rpc			2	/* Protocol is remote procedure call */
+#define PORT_pend_ack		4	/* An ACK is pending on the port */
+#define PORT_broken			8	/* Connect is broken */
+#define PORT_async			16	/* Port is asynchronous channel for events */
+#define PORT_no_oob			32	/* Don't send out of band data */
+#define PORT_disconnect		64	/* Disconnect is in progress */
+#define PORT_pend_rec		128	/* A record is pending on the port */
+#define PORT_not_trusted	256	/* Connection is from an untrusted node */
+#define PORT_impersonate	512	/* A remote user is being impersonated */
+#define PORT_dummy_pckt_set	1024	/* A dummy packet interval is set  */
+
+
+/* Misc declarations */
+
+#include "../remote/allr_proto.h"
+#include "../jrd/thd.h"
+
+/* Thread specific remote database block */
+
+typedef struct trdb
+{
+	struct thdd	trdb_thd_data;
+	struct rdb*	trdb_database;
+	STATUS*		trdb_status_vector;
+	JMP_BUF*	trdb_setjmp;
+
+} *TRDB;
+
+
+#ifdef GET_THREAD_DATA
+#undef GET_THREAD_DATA
+#endif
+
+#define GET_THREAD_DATA		((TRDB) THD_get_specific())
+
+
+
+/* Queuing structure for Client batch fetches */
+
+typedef struct rmtque
+{
+	struct blk			rmtque_header;	/* Memory allocator header */
+	struct rmtque*		rmtque_next;	/* Next entry in queue */
+	void*				rmtque_parm;/* What request has response in queue */
+	rrq::rrq_repeat*	rmtque_message;/* What message is pending */
+	struct rdb*			rmtque_rdb;	/* What database has pending msg */
+
+	/* Fn that receives queued entry */
+	BOOLEAN	(*rmtque_function) (struct trdb*,
+								struct port*,
+								struct rmtque*,
+								STATUS*,
+								USHORT);
+} *RMTQUE;
+
+#endif /* REMOTE_REMOTE_H */
+
diff --git a/src/remote/remote_def.h b/src/remote/remote_def.h
new file mode 100644
index 0000000000..e2a6a93c02
--- /dev/null
+++ b/src/remote/remote_def.h
@@ -0,0 +1,153 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		remote_def.h
+ *	DESCRIPTION:	Common descriptions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_REMOTE_DEF_H_
+#define _REMOTE_REMOTE_DEF_H_
+
+#ifdef VMS
+#define ARCHITECTURE		arch_vms
+#endif
+
+#ifdef ultrix
+#ifdef mips
+#define ARCHITECTURE		arch_mips_ultrix
+#else
+#define ARCHITECTURE		arch_ultrix
+#endif
+#endif
+
+#ifdef sun
+#ifdef sparc
+#define ARCHITECTURE		arch_sun4
+#endif
+#ifdef i386
+#define ARCHITECTURE		arch_sun386
+#endif
+#ifndef ARCHITECTURE
+#define ARCHITECTURE		arch_sun
+#endif
+#endif
+
+#ifdef hpux
+#ifdef hp9000s300
+#define ARCHITECTURE		arch_hpux_68k
+#else
+#define ARCHITECTURE		arch_hpux
+#endif
+#endif
+
+#ifdef IMP
+#define ARCHITECTURE		arch_imp
+#endif
+
+#ifdef DELTA
+#define ARCHITECTURE		arch_delta
+#endif
+
+#ifdef M88K
+#define ARCHITECTURE		arch_m88k
+#endif
+
+#ifdef UNIXWARE
+#define ARCHITECTURE		arch_unixware
+#endif
+
+#ifdef NCR3000
+#define ARCHITECTURE		arch_ncr3000
+#endif
+
+#ifdef NETWARE_386
+#define ARCHITECTURE            arch_msdos
+#endif
+
+#if (defined AIX || defined AIX_PPC)
+#define ARCHITECTURE		arch_rt
+#endif
+
+#ifdef DECOSF
+#define ARCHITECTURE		arch_decosf
+#endif
+
+#ifdef sgi
+#define ARCHITECTURE		arch_sgi
+#endif
+
+#ifdef DGUX
+#ifdef DG_X86
+#define ARCHITECTURE		arch_dg_x86
+#else
+#define ARCHITECTURE		arch_aviion
+#endif /* DG_X86 */
+#endif /* DGUX */
+
+#ifdef XENIX
+#define ARCHITECTURE		arch_sco
+#endif
+
+#ifdef SCO_EV
+#define ARCHITECTURE		arch_sco_ev
+#endif
+
+#ifdef EPSON
+#define ARCHITECTURE		arch_epson
+#endif
+
+#ifdef I386
+#ifndef ARCHITECTURE
+#define ARCHITECTURE		arch_intel_32
+#endif
+#endif
+
+#ifdef _PPC_
+#define ARCHITECTURE		arch_nt_ppc
+#endif
+
+#ifdef LINUX
+#define ARCHITECTURE		arch_linux
+#endif
+
+#ifdef FREEBSD
+#define ARCHITECTURE		arch_freebsd
+#endif
+
+#ifdef NETBSD
+#define ARCHITECTURE		arch_netbsd
+#endif
+
+
+#define SRVR_server		1	/* 0x0001 server */
+#define SRVR_multi_client	2	/* 0x0002 multi-client server */
+#define SRVR_debug		4	/* 0x0004 */
+#define SRVR_mpexl		8	/* 0x0008 NetIPC protocol (MPE/XL) */
+#define SRVR_inet		8	/* 0x0008 Inet protocol */
+#define SRVR_pipe		16	/* 0x0010 Named pipe protocol (NT) */
+#define SRVR_spx		32	/* 0x0020 SPX protocol (NetWare) */
+#define SRVR_ipc		64	/* 0x0040 IPC protocol for Win95 */
+#define SRVR_non_service	128	/* 0x0080 Not running as an NT service */
+#define SRVR_high_priority	256	/* 0x0100 fork off server at high priority */
+#define SRVR_auto_unload	512	/* 0x0200 Unload server after last disconnect */
+#define SRVR_xnet               1024    /* 0x0400 ipc protocol via server */
+#define SRVR_thread_per_port	2048	/* 0x0800 Bind thread to a port */
+#define SRVR_no_icon		4096	/* 0x1000 Tell the server not to show the icon */
+#endif /* _REMOTE_REMOTE_DEF_H_ */
+
diff --git a/src/remote/serve_proto.h b/src/remote/serve_proto.h
new file mode 100644
index 0000000000..f206d6e2cc
--- /dev/null
+++ b/src/remote/serve_proto.h
@@ -0,0 +1,38 @@
+/*
+ *	PROGRAM:	JRD Remote server  
+ *	MODULE:		serve_proto.h
+ *	DESCRIPTION:	Prototype Header file for server.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_SERVE_PROTO_H_
+#define _REMOTE_SERVE_PROTO_H_
+
+#ifdef WINDOWS_ROUTER
+extern void	SRVR_WinMain (struct port *, USHORT, HINSTANCE, HINSTANCE, int);
+#else	/* WINDOWS_ROUTER */
+extern void	SRVR_main (struct port *, USHORT);
+#endif	/* WINDOWS_ROUTER */
+
+extern void	SRVR_multi_thread (struct port *, USHORT);
+extern SLONG	check_license (void);
+extern BOOLEAN	process_packet (PORT, PACKET *, PACKET *, PORT *);
+extern void	set_server (PORT, USHORT);
+
+#endif	/* _REMOTE_SERVE_PROTO_H_ */
diff --git a/src/remote/server.cpp b/src/remote/server.cpp
new file mode 100644
index 0000000000..21303d23a7
--- /dev/null
+++ b/src/remote/server.cpp
@@ -0,0 +1,4976 @@
+/*
+ *	PROGRAM:	JRD Remote Server
+ *	MODULE:		server.c
+ *	DESCRIPTION:	Remote server
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/ibsetjmp.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/gdsassert.h"
+#include "../remote/remote.h"
+#include "../jrd/thd.h"
+#include "../jrd/isc.h"
+#include "../jrd/license.h"
+#include "../jrd/time.h"
+#include "../remote/merge_proto.h"
+#include "../remote/parse_proto.h"
+#include "../remote/remot_proto.h"
+#include "../remote/serve_proto.h"
+#ifdef WIN_NT
+#include "../remote/cntl_proto.h"
+#include <stdlib.h>
+#endif
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/why_proto.h"
+
+#ifdef SUPERSERVER
+#include "../jrd/isc_i_proto.h"
+#endif
+#include "../remote/proto_proto.h"	// xdr_protocol_overhead()
+
+
+#define SET_THREAD_DATA		trdb = &thd_context;\
+				trdb->trdb_status_vector = NULL;\
+				THD_put_specific ((THDD) trdb);\
+				trdb->trdb_thd_data.thdd_type = THDD_TYPE_TRDB
+#define RESTORE_THREAD_DATA	THD_restore_specific()
+
+/** CHECK_HANDLE checks -
+    if the id passwd is within the vector bounds,
+    that the port_object corresponding to the id is not null,
+    if the port_object's type matches with the expected type
+**/
+
+#pragma FB_COMPILER_MESSAGE("What kind of crap is this?! FIX!")
+
+#define CHECK_HANDLE(blk,cast,type,id,err)							\
+	{																\
+		if (id >= port->port_object_vector->vec_count ||			\
+			!(blk = (cast) port->port_objects [id]) ||				\
+			((BLK) blk)->blk_type != (UCHAR) type)					\
+		{															\
+			status_vector [0] = isc_arg_gds;						\
+			status_vector [1] = err;								\
+			status_vector [2] = isc_arg_end;						\
+			return port->send_response(send, 0, 0, status_vector);	\
+		}															\
+	}
+
+#define CHECK_HANDLE_MEMBER(blk,cast,type,id,err)					\
+	{																\
+		if (id >= this->port_object_vector->vec_count ||			\
+			!(blk = (cast) this->port_objects [id]) ||				\
+			((BLK) blk)->blk_type != (UCHAR) type)					\
+		{															\
+			status_vector [0] = isc_arg_gds;						\
+			status_vector [1] = err;								\
+			status_vector [2] = isc_arg_end;						\
+			return this->send_response(send, 0, 0, status_vector);	\
+		}															\
+	}
+
+
+#define STMT_BLOB		1
+#define STMT_NO_BATCH	2
+#define STMT_OTHER		0
+
+typedef struct server_req_t
+{
+	server_req_t*	req_next;
+	server_req_t*	req_chain;
+	PORT			req_port;
+	PACKET			req_send;
+	PACKET			req_receive;
+} *SERVER_REQ;
+
+typedef struct srvr
+{
+	struct srvr*	srvr_next;
+	struct port*	srvr_parent_port;
+	enum port_t		srvr_port_type;
+	USHORT			srvr_flags;
+} *SRVR;
+
+static BOOLEAN	accept_connection(PORT, P_CNCT*, PACKET*);
+static STATUS	allocate_statement(PORT, P_RLSE*, PACKET*);
+static SLONG	append_request_chain(SERVER_REQ, SERVER_REQ*);
+static SLONG	append_request_next(SERVER_REQ, SERVER_REQ*);
+static STATUS	attach_database(PORT, P_OP, P_ATCH*, PACKET*);
+static void		aux_connect(PORT, P_REQ*, PACKET*);
+static void		aux_request(PORT, P_REQ*, PACKET*);
+static STATUS	cancel_events(PORT, P_EVENT*, PACKET*);
+
+#ifdef CANCEL_OPERATION
+static void	cancel_operation(PORT);
+#endif
+
+static BOOLEAN	check_request(RRQ, USHORT, USHORT);
+static USHORT	check_statement_type(RSR);
+
+#ifdef SCROLLABLE_CURSORS
+static MSG		dump_cache(rrq::rrq_repeat*);
+#endif
+
+static USHORT	get_next_msg_no(RRQ, USHORT, USHORT*);
+static RTR		make_transaction(RDB, int*);
+
+static void	release_blob(RBL);
+static void	release_event(RVNT);
+static void	release_request(RRQ);
+static void	release_statement(RSR*);
+static void	release_sql_request(RSR);
+static void	release_transaction(RTR);
+
+#ifdef SCROLLABLE_CURSORS
+static MSG	scroll_cache(rrq::rrq_repeat*, USHORT *, ULONG *);
+#endif
+
+static void	server_ast(RVNT, USHORT, UCHAR *);
+static void		success(STATUS *);
+static int THREAD_ROUTINE thread(void *);
+static void		zap_packet(PACKET*, BOOLEAN);
+
+
+// static data - NOT THREAD SAFE!
+
+static SLONG		threads_waiting		= 0;
+static SLONG		extra_threads		= 0;
+static SERVER_REQ	request_que			= NULL;
+static SERVER_REQ	free_requests		= NULL;
+static SERVER_REQ	active_requests		= NULL;
+static EVENT_T		thread_event[1];
+static SRVR			servers;
+
+
+static CONST UCHAR request_info[] =
+{
+	gds_info_state,
+	gds_info_message_number,
+	gds_info_end
+};
+
+static CONST UCHAR sql_info[] =
+{
+	gds_info_sql_stmt_type,
+	isc_info_sql_batch_fetch
+};
+
+
+#define GDS_DSQL_ALLOCATE	isc_dsql_allocate_statement
+#define GDS_DSQL_EXECUTE	isc_dsql_execute2_m
+#define GDS_DSQL_EXECUTE_IMMED	isc_dsql_exec_immed3_m
+#define GDS_DSQL_FETCH		isc_dsql_fetch_m
+#define GDS_DSQL_FREE		isc_dsql_free_statement
+#define GDS_DSQL_INSERT		isc_dsql_insert_m
+#define GDS_DSQL_PREPARE	isc_dsql_prepare_m
+#define GDS_DSQL_SET_CURSOR	isc_dsql_set_cursor_name
+#define GDS_DSQL_SQL_INFO	isc_dsql_sql_info
+
+
+void SRVR_main( PORT main_port, USHORT flags)
+{
+/**************************************
+ *
+ *	S R V R _ m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Main entrypoint of server.
+ *
+ **************************************/
+	PACKET send, receive;
+	PORT port;
+
+#ifdef SUPERSERVER
+	ISC_enter();				/* Setup floating point exception handler once and for all. */
+#endif
+
+	zap_packet(&receive, TRUE);
+	zap_packet(&send, TRUE);
+	THREAD_ENTER;
+	set_server(main_port, flags);
+
+	while (TRUE)
+	{
+		//
+		// Note: The following is cloned in server other SRVR_main instances.
+		//
+		port = main_port->receive(&receive);
+		if (!port) {
+			break;
+		}
+		if (!process_packet(port, &send, &receive, 0))
+			break;
+	}
+
+	THREAD_EXIT;
+}
+
+
+void SRVR_multi_thread( PORT main_port, USHORT flags)
+{
+/**************************************
+ *
+ *	S R V R _ m u l t i _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Multi-threaded flavor of server.
+ *
+ **************************************/
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+
+/* for PC router, no multithreading is available */
+
+	return;
+
+#else
+
+	SERVER_REQ request = NULL, active;
+	VOLATILE PORT port = NULL;
+	SLONG pending_requests;
+	P_OP operation;
+#ifdef DEV_BUILD
+#ifdef DEBUG
+	SSHORT request_count = 0;
+#endif /* DEBUG */
+#endif /* DEV_BUILD */
+	struct trdb thd_context, *trdb;
+	JMP_BUF env, inner_env;
+	STATUS status_vector[20];
+
+	gds__thread_enable(-1);
+
+	ISC_event_init(thread_event, 0, 0);
+	THREAD_ENTER;
+
+	SET_THREAD_DATA;
+	trdb->trdb_setjmp = &env;
+	trdb->trdb_status_vector = status_vector;
+
+	if (SETJMP(env)) {
+		/* Some kind of unhandled error occured during server setup.  In lieu
+		 * of anything we CAN do, log something (and we might be so hosed
+		 * we can't log anything) and give up.
+		 * The likely error here is out-of-memory.
+		 */
+		gds__log("SRVR_multi_thread: error during startup, shutting down");
+
+		RESTORE_THREAD_DATA;
+		THREAD_EXIT;
+		return;
+	}
+
+	set_server(main_port, flags);
+
+/* We need to have this error handler as there is so much underlaying code
+ * that is depending on it being there.  The expected failure
+ * that can occur in the call paths from here is out-of-memory
+ * and it is unknown if other failures can get us here
+ * Failures can occur from set_server as well as RECEIVE
+ *
+ * Note that if a failure DOES occur, we reenter the loop and try to continue
+ * operations.  This is important as this is the main receive loop for
+ * new incoming requests, if we exit here no new requests can come to the
+ * server.
+ */
+
+	if (SETJMP(env))
+	{
+		/* If we got as far as having a port allocated before the error, disconnect it
+		 * gracefully.
+		 */
+		if (port != NULL)
+		{
+#ifdef DEV_BUILD
+#ifdef DEBUG
+			ConsolePrintf("%%ISERVER-F-NOPORT, no port in a storm\r\n");
+#endif /* DEBUG */
+#endif /* DEV_BUILD */
+			gds__log("SRVR_multi_thread: forcefully disconnecting a port");
+
+			/* To handle recursion within the error handler */
+			trdb->trdb_setjmp = &inner_env;
+			if (SETJMP(inner_env))
+			{
+				port->disconnect(NULL, NULL);
+				port = NULL;
+			}
+			else
+			{
+				/* If we have a port, request really should be non-null, but just in case ... */
+				if (request != NULL) {
+					/* Send client a real status indication of why we disconnected them */
+					/* Note that send_response() can post errors that wind up in this same handler */
+#ifdef DEV_BUILD
+#ifdef DEBUG
+					ConsolePrintf
+						("%%ISERVER-F-NOMEM, virtual memory exhausted\r\n");
+#endif /* DEBUG */
+#endif /* DEV_BUILD */
+					port->send_response(&request->req_send, 0, 0,
+								  status_vector);
+					port->disconnect(&request->req_send, &request->req_receive);
+				}
+				else {
+					/* Can't tell the client much, just make 'em go away.  Their side should detect
+					 * a network error
+					 */
+					port->disconnect(NULL, NULL);
+				}
+				port = NULL;
+			}
+			trdb->trdb_setjmp = &env;
+		}
+
+		/* There was an error in the processing of the request, if we have allocated
+		 * a request, free it up and continue.
+		 */
+		if (request != NULL) {
+			request->req_next = free_requests;
+			free_requests = request;
+			request = NULL;
+		}
+	}
+
+/* When this loop exits, the server will no longer receive requests */
+	while (TRUE) {
+		port = NULL;
+
+		/* Allocate a memory block to store the request in */
+
+		if (request = free_requests)
+		{
+			free_requests = request->req_next;
+		}
+		else
+		{
+			/* No block on the free list - allocate some new memory */
+
+			request = (SERVER_REQ) gds__alloc((SLONG) sizeof(struct server_req_t));
+			if (request)
+			{
+				zap_packet(&request->req_send, TRUE);
+				zap_packet(&request->req_receive, TRUE);
+#ifdef REMOTE_DEBUG_MEMORY
+				ib_printf("SRVR_multi_thread         allocate request %x\n",
+						  request);
+#endif
+			}
+			else
+			{
+				/* System is out of memory, let's delay processing this
+				   request and hope another thread will free memory or
+				   request blocks that we can then use. */
+
+				THREAD_EXIT;
+				THREAD_SLEEP(1 * 1000);
+				THREAD_ENTER;
+				continue;
+			}
+		}
+
+#ifdef DEV_BUILD
+#ifdef DEBUG
+		if ((request_count++ % 4) == 0) {
+			LONGJMP(*trdb->trdb_setjmp, gds__virmemexh);
+		}
+#endif /* DEBUG */
+#endif /* DEV_BUILD */
+
+		if (request) {
+			request->req_next = NULL;
+			request->req_chain = NULL;
+
+			/* We have a request block - now get some information to stick into it */
+			if (!(port = main_port->receive(&request->req_receive)))
+			{
+				gds__log("SRVR_multi_thread/RECEIVE: error on main_port, shutting down");
+				THREAD_EXIT;
+				RESTORE_THREAD_DATA;
+				return;
+			}
+
+			request->req_port = port;
+			operation = request->req_receive.p_operation;
+
+#ifdef DEV_BUILD
+#ifdef DEBUG
+			if ((request_count % 5) == 0) {
+				LONGJMP(*trdb->trdb_setjmp, gds__virmemexh);
+			}
+#endif /* DEBUG */
+#endif /* DEV_BUILD */
+
+			/* If port has an active request, link this one in */
+
+			for (active = active_requests; active; active = active->req_next)
+				if (active->req_port == port) {
+					/* Don't queue a dummy keepalive packet if there is
+					   an active request running on this port. */
+
+					if (operation == op_dummy) {
+						request->req_next = free_requests;
+						free_requests = request;
+						goto finished;
+					}
+					port->port_requests_queued++;
+					append_request_chain(request, &active->req_chain);
+#ifdef REMOTE_DEBUG_MEMORY
+					ib_printf
+						("SRVR_multi_thread    ACTIVE     request_queued %d\n",
+						 port->port_requests_queued);
+					ib_fflush(ib_stdout);
+#endif
+#ifdef CANCEL_OPERATION
+					if (operation == op_exit || operation == op_disconnect)
+						cancel_operation(port);
+#endif
+					goto finished;
+				}
+
+			/* If port has an pending request, link this one in */
+
+			for (active = request_que; active; active = active->req_next)
+				if (active->req_port == port) {
+					/* Don't queue a dummy keepalive packet if there is
+					   a pending request against this port. */
+
+					if (operation == op_dummy) {
+						request->req_next = free_requests;
+						free_requests = request;
+						goto finished;
+					}
+					port->port_requests_queued++;
+					append_request_chain(request, &active->req_chain);
+#ifdef REMOTE_DEBUG_MEMORY
+					ib_printf
+						("SRVR_multi_thread    PENDING     request_queued %d\n",
+						 port->port_requests_queued);
+					ib_fflush(ib_stdout);
+#endif
+#ifdef CANCEL_OPERATION
+					if (operation == op_exit || operation == op_disconnect)
+						cancel_operation(port);
+#endif
+					goto finished;
+				}
+
+			/* No port to assign request to, add it to the waiting queue and wake up a
+			 * thread to handle it 
+			 */
+			pending_requests = append_request_next(request, &request_que);
+			port->port_requests_queued++;
+#ifdef REMOTE_DEBUG_MEMORY
+			ib_printf
+				("SRVR_multi_thread    APPEND_PENDING     request_queued %d\n",
+				 port->port_requests_queued);
+			ib_fflush(ib_stdout);
+#endif
+
+			/* NOTE: we really *should* have something that limits how many
+			 * total threads we allow in the system.  As each thread will
+			 * eat up memory that other threads could use to complete their work
+			 */
+			/* NOTE: The setting up of extra_threads variable is done below to let waiting
+			   threads know if their services may be needed for the current set
+			   of requests.  Otherwise, some idle threads may leave the system 
+			   freeing up valuable memory.
+			 */
+			extra_threads = threads_waiting - pending_requests;
+			if (extra_threads < 0) {
+				gds__thread_start(	reinterpret_cast<FPTR_INT_VOID_PTR>(thread),
+									(void*)flags,
+									THREAD_medium,
+									THREAD_ast,
+									0);
+			}
+
+			ISC_event_post(thread_event);
+		}
+	  finished:
+		;
+	}
+/* We should never get to this point */
+
+	THREAD_EXIT;
+
+#endif
+
+/* Why isn't this inside the #endif above? */
+	RESTORE_THREAD_DATA;
+}
+
+
+static BOOLEAN accept_connection( PORT port, P_CNCT * connect, PACKET* send)
+{
+/**************************************
+ *
+ *	a c c e p t _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a connect packet.
+ *
+ **************************************/
+	P_ACPT *accept;
+	P_ARCH architecture;
+	USHORT weight, version, type;
+	p_cnct::p_cnct_repeat * protocol, *end;
+	TEXT buffer[64];
+
+/* Accept the physical connection */
+
+	send->p_operation = op_reject;
+	accept = &send->p_acpt;
+	weight = 0;
+
+	if (!port->accept(connect)) {
+		port->send(send);
+		return FALSE;
+	}
+
+/* Select the most appropriate protocol (this will get smarter) */
+
+	protocol = connect->p_cnct_versions;
+
+	for (end = protocol + connect->p_cnct_count; protocol < end; protocol++)
+		if ((protocol->p_cnct_version == PROTOCOL_VERSION3 ||
+			 protocol->p_cnct_version == PROTOCOL_VERSION4 ||
+			 protocol->p_cnct_version == PROTOCOL_VERSION5 ||
+			 protocol->p_cnct_version == PROTOCOL_VERSION6 ||
+			 protocol->p_cnct_version == PROTOCOL_VERSION7 ||
+			 protocol->p_cnct_version == PROTOCOL_VERSION8 ||
+			 protocol->p_cnct_version == PROTOCOL_VERSION9 ||
+			 protocol->p_cnct_version == PROTOCOL_VERSION10
+#ifdef SCROLLABLE_CURSORS
+			 || protocol->p_cnct_version == PROTOCOL_SCROLLABLE_CURSORS
+#endif
+			) &&
+			(protocol->p_cnct_architecture == arch_generic ||
+			 protocol->p_cnct_architecture == ARCHITECTURE) &&
+			protocol->p_cnct_weight >= weight) {
+			weight = protocol->p_cnct_weight;
+			version = protocol->p_cnct_version;
+			architecture = protocol->p_cnct_architecture;
+			type = MIN(protocol->p_cnct_max_type, ptype_out_of_band);
+			send->p_operation = op_accept;
+		}
+
+/* Send off out gracious acceptance or flag rejection */
+
+	accept->p_acpt_version = port->port_protocol = version;
+	accept->p_acpt_architecture = architecture;
+	accept->p_acpt_type = type;
+
+/* and modify the version string to reflect the chosen protocol */
+
+	sprintf(buffer, "%s/P%d", port->port_version->str_data,
+			port->port_protocol);
+	ALLR_free(port->port_version);
+	port->port_version = REMOTE_make_string(buffer);
+
+
+	if (architecture == ARCHITECTURE)
+		port->port_flags |= PORT_symmetric;
+
+	if (type == ptype_rpc)
+		port->port_flags |= PORT_rpc;
+
+	if (type != ptype_out_of_band)
+		port->port_flags |= PORT_no_oob;
+
+	port->send(send);
+
+	return TRUE;
+}
+
+
+static STATUS allocate_statement( PORT port, P_RLSE * allocate, PACKET* send)
+{
+/**************************************
+ *
+ *	a l l o c a t e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a statement handle.
+ *
+ **************************************/
+	RDB rdb;
+	RSR statement;
+	int *handle;
+	OBJCT object;
+	STATUS status_vector[20];
+
+	rdb = port->port_context;
+	handle = NULL;
+
+	THREAD_EXIT;
+	GDS_DSQL_ALLOCATE(status_vector,
+					  reinterpret_cast<void**>(&rdb->rdb_handle),
+					  reinterpret_cast<void**>(&handle));
+	THREAD_ENTER;
+
+	if (status_vector[1])
+		object = 0;
+	else {
+		/* Allocate SQL request block */
+
+		statement = (RSR) ALLOC(type_rsr);
+		statement->rsr_rdb = rdb;
+		statement->rsr_handle = handle;
+		if (statement->rsr_id = port->get_id(&statement->rsr_header))
+		{
+			object = statement->rsr_id;
+			statement->rsr_next = rdb->rdb_sql_requests;
+			rdb->rdb_sql_requests = statement;
+		}
+		else {
+			object = 0;
+			THREAD_EXIT;
+			GDS_DSQL_FREE(status_vector,
+						  reinterpret_cast<void**>(GDS_REF(statement->rsr_handle)),
+						  DSQL_drop);
+			THREAD_ENTER;
+			ALLR_release(statement);
+			status_vector[0] = isc_arg_gds;
+			status_vector[1] = isc_too_many_handles;
+			status_vector[2] = isc_arg_end;
+		}
+	}
+
+	return port->send_response(send, object, 0, status_vector);
+}
+
+
+static SLONG append_request_chain( SERVER_REQ request, SERVER_REQ * que)
+{
+/**************************************
+ *
+ *	a p p e n d _ r e q u e s t _ c h a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Traverse using req_chain ptr and append 
+ *	a request at the end of a que.
+ *	Return count of pending requests.
+ *
+ **************************************/
+	SLONG requests;
+
+	for (requests = 1; *que; que = &(*que)->req_chain)
+		++requests;
+
+	*que = request;
+
+	return requests;
+}
+
+static SLONG append_request_next( SERVER_REQ request, SERVER_REQ * que)
+{
+/**************************************
+ *
+ *	a p p e n d _ r e q u e s t _ n e x t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Traverse using req_next ptr and append 
+ *	a request at the end of a que.
+ *	Return count of pending requests.
+ *
+ **************************************/
+	SLONG requests;
+
+	for (requests = 1; *que; que = &(*que)->req_next)
+		++requests;
+
+	*que = request;
+
+	return requests;
+}
+
+
+static STATUS attach_database(
+							  PORT port,
+							  P_OP operation, P_ATCH * attach, PACKET* send)
+{
+/**************************************
+ *
+ *	a t t a c h _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process an attach or create packet.
+ *
+ **************************************/
+	USHORT l, dl;
+	UCHAR *file, *dpb, new_dpb_buffer[512], *new_dpb, *p, *end;
+	int *handle;
+	STATUS status_vector[20];
+	RDB rdb;
+	STR string;
+
+	send->p_operation = op_accept;
+	handle = NULL;
+	file = attach->p_atch_file.cstr_address;
+	l = attach->p_atch_file.cstr_length;
+	dpb = attach->p_atch_dpb.cstr_address;
+	dl = attach->p_atch_dpb.cstr_length;
+
+/* If we have user identification, append it to database parameter block */
+
+	new_dpb = new_dpb_buffer;
+	if (string = port->port_user_name) {
+		if ((dl + 3 + string->str_length) > sizeof(new_dpb_buffer))
+			new_dpb = ALLR_alloc((SLONG) (dl + 3 + string->str_length));
+		p = new_dpb;
+		if (dl)
+			for (end = dpb + dl; dpb < end;)
+				*p++ = *dpb++;
+		else
+			*p++ = gds_dpb_version1;
+		*p++ = gds_dpb_sys_user_name;
+		*p++ = (UCHAR) string->str_length;
+		for (dpb = (UCHAR *) string->str_data, end = dpb + string->str_length;
+			 dpb < end;)
+			*p++ = *dpb++;
+		dpb = new_dpb;
+		dl = p - new_dpb;
+	}
+
+/* See if user has specified parameters relevent to the connection,
+   they will be stuffed in the DPB if so. */
+	REMOTE_get_timeout_params(port, dpb, dl);
+
+	THREAD_EXIT;
+	if (operation == op_attach)
+	{
+		isc_attach_database(status_vector,
+							l,
+							reinterpret_cast<char*>(GDS_VAL(file)),
+							reinterpret_cast<void**>(GDS_REF(handle)),
+							dl,
+							reinterpret_cast<char*>(GDS_VAL(dpb)));
+	}
+	else
+	{
+		isc_create_database(status_vector,
+							l,
+							reinterpret_cast<char*>(GDS_VAL(file)),
+							reinterpret_cast<void**>(GDS_REF(handle)),
+							dl,
+							reinterpret_cast<char*>(GDS_VAL(dpb)),
+							0);
+	}
+	THREAD_ENTER;
+
+	if (new_dpb != new_dpb_buffer) {
+		ALLR_free(new_dpb);
+	}
+
+	if (!status_vector[1])
+	{
+		port->port_context = rdb = (RDB) ALLOC(type_rdb);
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("attach_databases(server)  allocate rdb     %x\n", rdb);
+#endif
+		rdb->rdb_port = port;
+		rdb->rdb_handle = handle;
+	}
+
+	return port->send_response(send, 0, 0, status_vector);
+}
+
+
+static void aux_connect( PORT port, P_REQ * request, PACKET* send)
+{
+/**************************************
+ *
+ *	a u x _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	We're receive a auxiliary connection on the main communications
+ *	channel.  Accept connection and reply politely.
+ *
+ **************************************/
+	PORT partner;
+
+	port->connect(0, 0);
+	partner = (PORT) request->p_req_partner;
+	partner->port_async = port;
+}
+
+
+static void aux_request( PORT port, P_REQ * request, PACKET* send)
+{
+/**************************************
+ *
+ *	a u x _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Other guy wants to establish a secondary connection.
+ *	Humor him.
+ *
+ **************************************/
+	STATUS *save_status, status_vector[20];
+	PORT aux_port;
+	RDB rdb;
+	UCHAR buffer[12];
+	CSTRING save_cstring;
+
+/* save the port status vector */
+
+	save_status = port->port_status_vector;
+
+	port->port_status_vector = status_vector;
+	success(status_vector);
+
+/* We do this silliness with buffer because the SPX protocol
+   requires a 12 byte buffer to be sent back.  Other protocols
+   can do what they want to with cstr_address. */
+
+	save_cstring = send->p_resp.p_resp_data;
+	send->p_resp.p_resp_data.cstr_address = buffer;
+	aux_port = port->request(send);
+	rdb = port->port_context;
+	port->send_response(send, rdb->rdb_id,
+				  send->p_resp.p_resp_data.cstr_length, status_vector);
+
+	if (status_vector[1]) {
+		/* restore the port status vector */
+
+		port->port_status_vector = save_status;
+		send->p_resp.p_resp_data = save_cstring;
+		return;
+	}
+
+	if (aux_port) {
+		aux_port->connect(send, 0);
+		aux_port->port_context = rdb;
+	}
+
+/* restore the port status vector */
+
+	port->port_status_vector = save_status;
+	send->p_resp.p_resp_data = save_cstring;
+}
+
+
+static STATUS cancel_events( PORT port, P_EVENT * stuff, PACKET* send)
+{
+/**************************************
+ *
+ *	c a n c e l _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Cancel events.
+ *
+ **************************************/
+	RDB rdb;
+	RVNT event;
+	STATUS status_vector[20];
+
+/* Which database ? */
+
+	rdb = port->port_context;
+
+/* Find the event */
+
+	for (event = rdb->rdb_events; event; event = event->rvnt_next)
+		if (event->rvnt_rid == stuff->p_event_rid)
+			break;
+
+/* If no event found, pretend it was cancelled */
+
+	if (!event)
+		return port->send_response(send, 0, 0, status_vector);
+
+/* cancel the event */
+
+	if (event->rvnt_id) {
+		THREAD_EXIT;
+		isc_cancel_events(status_vector,
+						  reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)),
+						  GDS_REF(event->rvnt_id));
+		THREAD_ENTER;
+	}
+
+/* zero event info */
+
+	event->rvnt_id = 0L;
+	event->rvnt_rid = 0L;
+	event->rvnt_ast = 0L;
+
+/* return response */
+
+	return port->send_response(send, 0, 0, status_vector);
+}
+
+
+#ifdef CANCEL_OPERATION
+static void cancel_operation( PORT port)
+{
+/**************************************
+ *
+ *	c a n c e l _ o p e r a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flag a running operation for cancel.
+ *	Service operations are not currently
+ *	able to be canceled.
+ *
+ **************************************/
+	RDB rdb;
+	STATUS status_vector[20];
+
+	if ((port->port_flags & (PORT_async | PORT_disconnect)) ||
+		!(rdb = port->port_context)) return;
+
+	if (rdb->rdb_handle)
+		if (!(rdb->rdb_flags & RDB_service)) {
+			THREAD_EXIT;
+			gds__cancel_operation(status_vector,
+								  (struct hndl **) GDS_REF(rdb->rdb_handle),
+								  CANCEL_raise);
+			THREAD_ENTER;
+		}
+}
+#endif
+
+
+static BOOLEAN check_request(
+							 RRQ request,
+							 USHORT incarnation, USHORT msg_number)
+{
+/**************************************
+ *
+ *	c h e c k _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if a request is ready to send us a particular
+ *	message.  If so, return TRUE, otherwise FALSE.
+ *
+ **************************************/
+	USHORT n;
+
+	if (!get_next_msg_no(request, incarnation, &n))
+		return FALSE;
+
+	return (msg_number == n) ? TRUE : FALSE;
+}
+
+
+static USHORT check_statement_type( RSR statement)
+{
+/**************************************
+ *
+ *	c h e c k _ s t a t e m e n t _ t y p e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return the type of SQL statement.
+ *
+ **************************************/
+	UCHAR buffer[16], *info;
+	USHORT l, type;
+	STATUS local_status[20];
+	USHORT ret;
+	BOOLEAN done = FALSE;
+
+	ret = STMT_OTHER;
+
+	THREAD_EXIT;
+	if (!GDS_DSQL_SQL_INFO(local_status,
+						   reinterpret_cast<void**>(&statement->rsr_handle),
+						   sizeof(sql_info),
+						   (SCHAR *) sql_info,	/* const_cast */
+						   sizeof(buffer),
+						   reinterpret_cast<char*>(buffer)))
+	{
+		for (info = buffer; (*info != gds_info_end) && !done;)
+		{
+			l = (USHORT) gds__vax_integer(info + 1, 2);
+			type = (USHORT) gds__vax_integer(info + 3, l);
+			switch (*info)
+			{
+			case gds_info_sql_stmt_type:
+				if (type == gds_info_sql_stmt_get_segment ||
+					type == gds_info_sql_stmt_put_segment)
+				{
+					ret = STMT_BLOB;
+					done = TRUE;
+				}
+				break;
+			case isc_info_sql_batch_fetch:
+				if (type == FALSE)
+					ret = STMT_NO_BATCH;
+				break;
+			case isc_info_error:
+			case isc_info_truncated:
+				done = TRUE;
+				break;
+
+			}
+			info += 3 + l;
+		}
+	}
+	THREAD_ENTER;
+
+	return ret;
+}
+
+
+STATUS port::compile(P_CMPL* compile, PACKET* send)
+{
+/**************************************
+ *
+ *	c o m p i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Compile and request.
+ *
+ **************************************/
+	RDB rdb;
+	RRQ request;
+	MSG message, next;
+	UCHAR *blr;
+	USHORT max_msg, blr_length;
+	int *handle;
+	STATUS status_vector[20];
+	rrq::rrq_repeat* tail;
+	OBJCT object;
+
+	rdb = this->port_context;
+	handle = NULL;
+	blr = compile->p_cmpl_blr.cstr_address;
+	blr_length = compile->p_cmpl_blr.cstr_length;
+
+	THREAD_EXIT;
+	isc_compile_request(status_vector,
+						reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)),
+						reinterpret_cast<void**>(GDS_REF(handle)),
+						blr_length,
+						reinterpret_cast<char*>(GDS_VAL(blr)));
+	THREAD_ENTER;
+
+	if (status_vector[1])
+		return this->send_response(send, 0, 0, status_vector);
+
+/* Parse the request to find the messages */
+
+	message = PARSE_messages(blr, blr_length);
+	max_msg = 0;
+
+	for (next = message; next; next = next->msg_next)
+		max_msg = MAX(max_msg, next->msg_number);
+
+/* Allocate block and merge into data structures */
+
+	request = (RRQ) ALLOCV(type_rrq, max_msg + 1);
+#ifdef REMOTE_DEBUG_MEMORY
+	ib_printf("compile(server)           allocate request %x\n", request);
+#endif
+	request->rrq_handle = handle;
+	request->rrq_rdb = rdb;
+	request->rrq_max_msg = max_msg;
+	if (request->rrq_id = this->get_id(&request->rrq_header))
+	{
+		object = request->rrq_id;
+		request->rrq_next = rdb->rdb_requests;
+		rdb->rdb_requests = request;
+	}
+	else {
+		THREAD_EXIT;
+		isc_release_request(status_vector,
+							reinterpret_cast<void**>(GDS_REF(request->rrq_handle)));
+		THREAD_ENTER;
+		ALLR_release(request);
+		status_vector[0] = isc_arg_gds;
+		status_vector[1] = isc_too_many_handles;
+		status_vector[2] = isc_arg_end;
+		return this->send_response(send, 0, 0, status_vector);
+	}
+
+	while (message) {
+		next = message->msg_next;
+		message->msg_next = message;
+#ifdef SCROLLABLE_CURSORS
+		message->msg_prior = message;
+#endif
+
+		tail = request->rrq_rpt + message->msg_number;
+		tail->rrq_message = message;
+		tail->rrq_xdr = message;
+		tail->rrq_format = (FMT) message->msg_address;
+
+		message->msg_address = NULL;
+		message = next;
+	}
+
+	return this->send_response(send, object, 0, status_vector);
+}
+
+
+STATUS port::ddl(P_DDL* ddl, PACKET* send)
+{
+/**************************************
+ *
+ *	d d l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute isc_ddl call.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	UCHAR *blr;
+	USHORT blr_length;
+	RTR transaction;
+	RDB rdb;
+
+	CHECK_HANDLE_MEMBER(transaction,
+						RTR,
+						type_rtr,
+						ddl->p_ddl_transaction,
+						isc_bad_trans_handle);
+
+	rdb = this->port_context;
+	blr = ddl->p_ddl_blr.cstr_address;
+	blr_length = ddl->p_ddl_blr.cstr_length;
+
+	THREAD_EXIT;
+	isc_ddl(status_vector,
+			reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)),
+			reinterpret_cast<void**>(GDS_REF(transaction->rtr_handle)),
+			blr_length, reinterpret_cast<char*>(GDS_VAL(blr)));
+	THREAD_ENTER;
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+void port::disconnect(PACKET* send, PACKET* receive)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	We've lost the connection to the parent.  Stop everything.
+ *
+ **************************************/
+
+	RTR transaction;
+	STATUS status_vector[20];
+
+	if (this->port_flags & PORT_async)
+		return;
+
+	this->port_flags |= PORT_disconnect;
+
+	RDB rdb = this->port_context;
+
+	if (!rdb) {
+		REMOTE_free_packet(this, send);
+		REMOTE_free_packet(this, receive);
+		this->disconnect();
+		return;
+	}
+
+	if (rdb->rdb_handle)
+		if (!(rdb->rdb_flags & RDB_service)) {
+#ifdef CANCEL_OPERATION
+			/* Prevent a pending or spurious cancel from aborting
+			   a good, clean detach from the database. */
+
+			THREAD_EXIT;
+			gds__cancel_operation(status_vector,
+								  (struct hndl **) GDS_REF(rdb->rdb_handle),
+								  CANCEL_disable);
+			THREAD_ENTER;
+#endif
+			while (rdb->rdb_requests)
+				release_request(rdb->rdb_requests);
+			while (rdb->rdb_sql_requests)
+				release_sql_request(rdb->rdb_sql_requests);
+			while (transaction = rdb->rdb_transactions) {
+				THREAD_EXIT;
+				if (!(transaction->rtr_flags & RTR_limbo))
+					isc_rollback_transaction(status_vector,
+											 reinterpret_cast<void**>(GDS_REF(transaction->rtr_handle)));
+#ifdef SUPERSERVER
+				/* The underlying JRD subsystem will release all
+				   memory resources related to a limbo transaction
+				   as a side-effect of the database detach call
+				   below. However, the y-valve handle must be released
+				   as well since an isc_disconnect_transaction()
+				   call doesn't exist. */
+
+				else
+					gds__handle_cleanup(status_vector,
+										(struct hndl **) GDS_REF(transaction->
+																 rtr_handle));
+#endif
+				THREAD_ENTER;
+				release_transaction(rdb->rdb_transactions);
+			}
+			THREAD_EXIT;
+			isc_detach_database(status_vector,
+								reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)));
+			THREAD_ENTER;
+			while (rdb->rdb_events) {
+				release_event(rdb->rdb_events);
+			}
+			if (this->port_statement) {
+				release_statement(&this->port_statement);
+			}
+		}
+		else
+		{
+			THREAD_EXIT;
+			isc_service_detach(status_vector,
+							   reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)));
+			THREAD_ENTER;
+		}
+
+	REMOTE_free_packet(this, send);
+	REMOTE_free_packet(this, receive);
+
+#ifdef REMOTE_DEBUG_MEMORY
+	ib_printf("disconnect(server)        free rdb         %x\n", rdb);
+#endif
+	this->port_context = NULL;
+	ALLR_release(rdb);
+	if (this->port_object_vector)
+	{
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("disconnect(server)        free vector      %x\n",
+				  this->port_object_vector);
+#endif
+		ALLR_release(this->port_object_vector);
+		this->port_object_vector = NULL;
+	}
+	if (this->port_connection)
+	{
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("disconnect(server)        free string      %x\n",
+				  this->port_connection);
+#endif
+		ALLR_release(this->port_connection);
+		this->port_connection = NULL;
+	}
+	if (this->port_version)
+	{
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("disconnect(server)        free string      %x\n",
+				  this->port_version);
+#endif
+		ALLR_release(this->port_version);
+		this->port_version = NULL;
+	}
+	if (this->port_passwd)
+	{
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("disconnect(server)        free string      %x\n",
+				  this->port_passwd);
+#endif
+		ALLR_release(this->port_passwd);
+		this->port_passwd = NULL;
+	}
+	if (this->port_user_name)
+	{
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("disconnect(server)        free string      %x\n",
+				  this->port_user_name);
+#endif
+		ALLR_release(this->port_user_name);
+		this->port_user_name = NULL;
+	}
+	if (this->port_host)
+	{
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("disconnect(server)        free string      %x\n",
+				  this->port_host);
+#endif
+		ALLR_release(this->port_host);
+		this->port_host = NULL;
+	}
+	this->disconnect();
+}
+
+
+void port::drop_database(P_RLSE* release, PACKET* send)
+{
+/**************************************
+ *
+ *	d r o p _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a request.
+ *
+ **************************************/
+	RDB rdb;
+	STATUS status_vector[20];
+
+	rdb = this->port_context;
+
+	THREAD_EXIT;
+	isc_drop_database(status_vector,
+					  reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)));
+	THREAD_ENTER;
+
+	if (status_vector[1]
+		&& (status_vector[1] != gds_drdb_completed_with_errs)) {
+		(void) this->send_response(send, 0, 0, status_vector);
+		return;
+	};
+
+	while (rdb->rdb_events)
+		release_event(rdb->rdb_events);
+
+	while (rdb->rdb_requests)
+		release_request(rdb->rdb_requests);
+
+	while (rdb->rdb_sql_requests)
+		release_sql_request(rdb->rdb_sql_requests);
+
+	while (rdb->rdb_transactions)
+		release_transaction(rdb->rdb_transactions);
+
+	if (this->port_statement)
+		release_statement(&this->port_statement);
+
+	this->send_response(send, 0, 0, status_vector);
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+static MSG dump_cache( rrq::rrq_repeat* tail)
+{
+/**************************************
+ *
+ *	d u m p _ c a c h e
+ *
+ **************************************
+ *
+ * Functional description
+ *	We have encountered a situation where what's in 
+ *	cache is not useful, so empty the cache in 
+ *	preparation for refilling it. 
+ *
+ **************************************/
+	MSG message;
+
+	message = tail->rrq_xdr;
+	while (TRUE) {
+		message->msg_address = NULL;
+		message = message->msg_next;
+		if (message == tail->rrq_xdr)
+			break;
+	}
+
+	tail->rrq_message = message;
+
+	return message;
+}
+#endif
+
+
+STATUS port::end_blob(P_OP operation, P_RLSE * release, PACKET* send)
+{
+/**************************************
+ *
+ *	e n d _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a blob.
+ *
+ **************************************/
+	RBL blob;
+	STATUS status_vector[20];
+
+	CHECK_HANDLE_MEMBER(blob,
+						RBL,
+						type_rbl,
+						release->p_rlse_object,
+						isc_bad_segstr_handle);
+
+	THREAD_EXIT;
+	if (operation == op_close_blob)
+		isc_close_blob(status_vector,
+					   reinterpret_cast<void**>(GDS_REF(blob->rbl_handle)));
+	else
+		isc_cancel_blob(status_vector,
+						reinterpret_cast<void**>(GDS_REF(blob->rbl_handle)));
+	THREAD_ENTER;
+
+	if (!status_vector[1]) {
+		release_blob(blob);
+	}
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::end_database(P_RLSE * release, PACKET* send)
+{
+/**************************************
+ *
+ *	e n d _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a request.
+ *
+ **************************************/
+	RDB rdb;
+	STATUS status_vector[20];
+
+	rdb = this->port_context;
+
+	THREAD_EXIT;
+	isc_detach_database(status_vector,
+						reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)));
+	THREAD_ENTER;
+
+	if (status_vector[1])
+		return this->send_response(send, 0, 0, status_vector);
+
+	while (rdb->rdb_events)
+		release_event(rdb->rdb_events);
+
+	while (rdb->rdb_requests)
+		release_request(rdb->rdb_requests);
+
+	while (rdb->rdb_sql_requests)
+		release_sql_request(rdb->rdb_sql_requests);
+
+	while (rdb->rdb_transactions)
+		release_transaction(rdb->rdb_transactions);
+
+	if (this->port_statement)
+		release_statement(&this->port_statement);
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::end_request(P_RLSE * release, PACKET* send)
+{
+/**************************************
+ *
+ *	e n d _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a request.
+ *
+ **************************************/
+	RRQ request;
+	STATUS status_vector[20];
+
+	CHECK_HANDLE_MEMBER(request,
+						RRQ,
+						type_rrq,
+						release->p_rlse_object,
+						isc_bad_req_handle);
+
+	THREAD_EXIT;
+	isc_release_request(status_vector,
+						reinterpret_cast<void**>(GDS_REF(request->rrq_handle)));
+	THREAD_ENTER;
+
+	if (!status_vector[1])
+		release_request(request);
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::end_statement(P_SQLFREE* free_stmt, PACKET* send)
+{
+/*****************************************
+ *
+ *	e n d _ s t a t e m e n t
+ *
+ *****************************************
+ *
+ * Functional description
+ *	Free a statement.
+ *
+ *****************************************/
+	RSR statement;
+	USHORT object;
+	STATUS status_vector[20];
+
+	CHECK_HANDLE_MEMBER(statement,
+						RSR,
+						type_rsr,
+						free_stmt->p_sqlfree_statement,
+						isc_bad_req_handle);
+
+	THREAD_EXIT;
+	GDS_DSQL_FREE(status_vector,
+				  reinterpret_cast<void**>(&statement->rsr_handle),
+				  free_stmt->p_sqlfree_option);
+	THREAD_ENTER;
+
+	if (status_vector[1])
+		return this->send_response(send, 0, 0, status_vector);
+
+	if (!statement->rsr_handle) {
+		release_sql_request(statement);
+		statement = NULL;
+	}
+	else {
+		statement->rsr_flags &= ~RSR_fetched;
+		statement->rsr_rtr = NULL;
+		REMOTE_reset_statement(statement);
+		statement->rsr_message = statement->rsr_buffer;
+	}
+
+	object = (statement) ? statement->rsr_id : (USHORT) - 1;
+
+	return this->send_response(send, object, 0, status_vector);
+}
+
+
+STATUS port::end_transaction(P_OP operation, P_RLSE * release, PACKET* send)
+{
+/**************************************
+ *
+ *	e n d _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a transaction.
+ *
+ **************************************/
+	RTR transaction;
+	STATUS status_vector[20];
+
+	CHECK_HANDLE_MEMBER(transaction,
+						RTR,
+						type_rtr,
+						release->p_rlse_object,
+						isc_bad_trans_handle);
+
+	THREAD_EXIT;
+	switch (operation)
+	{
+	case op_commit:
+		isc_commit_transaction(status_vector,
+							   reinterpret_cast<void**>(GDS_REF(transaction->rtr_handle)));
+		break;
+
+	case op_rollback:
+		isc_rollback_transaction(status_vector,
+								 reinterpret_cast<void**>(GDS_REF(transaction->rtr_handle)));
+		break;
+
+	case op_rollback_retaining:
+		isc_rollback_retaining(status_vector,
+							   reinterpret_cast<void**>(GDS_REF(transaction->rtr_handle)));
+		break;
+
+	case op_commit_retaining:
+		isc_commit_retaining(status_vector,
+							 reinterpret_cast<void**>(GDS_REF(transaction->rtr_handle)));
+		break;
+
+	case op_prepare:
+		if (!isc_prepare_transaction(status_vector,
+									 reinterpret_cast<void**>(GDS_REF(transaction->rtr_handle))))
+				transaction->rtr_flags |= RTR_limbo;
+		break;
+	}
+	THREAD_ENTER;
+
+	if (!status_vector[1])
+		if (operation == op_commit || operation == op_rollback) {
+			REMOTE_cleanup_transaction(transaction);
+			release_transaction(transaction);
+		}
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::execute_immediate(P_OP op, P_SQLST * exnow, PACKET* send)
+{
+/*****************************************
+ *
+ *	e x e c u t e _ i m m e d i a t e
+ *
+ *****************************************
+ *
+ * Functional description
+ *	process an execute immediate DSQL packet
+ *
+ *****************************************/
+	RDB rdb;
+	RTR transaction = (RTR) NULL;
+	USHORT in_blr_length, in_msg_type, in_msg_length, parser_version,
+		out_blr_length, out_msg_type, out_msg_length;
+	UCHAR *in_blr, *in_msg, *out_blr, *out_msg;
+	int *handle;
+	STATUS status_vector[20];
+
+	rdb = this->port_context;
+
+/** Do not call CHECK_HANDLE if this is the start of a transaction **/
+	if (this->port_objects && exnow->p_sqlst_transaction) {
+		CHECK_HANDLE_MEMBER(transaction,
+							RTR,
+							type_rtr,
+							exnow->p_sqlst_transaction,
+							isc_bad_trans_handle);
+	}
+
+	in_msg_length = out_msg_length = 0;
+	in_msg = out_msg = NULL;
+	if (op == op_exec_immediate2)
+	{
+		in_blr_length = exnow->p_sqlst_blr.cstr_length;
+		in_blr = exnow->p_sqlst_blr.cstr_address;
+		in_msg_type = exnow->p_sqlst_message_number;
+		if (this->port_statement->rsr_bind_format)
+		{
+			in_msg_length = this->port_statement->rsr_bind_format->fmt_length;
+			in_msg = this->port_statement->rsr_message->msg_address;
+		}
+		out_blr_length = exnow->p_sqlst_out_blr.cstr_length;
+		out_blr = exnow->p_sqlst_out_blr.cstr_address;
+		out_msg_type = exnow->p_sqlst_out_message_number;
+		if (this->port_statement->rsr_select_format)
+		{
+			out_msg_length =
+				this->port_statement->rsr_select_format->fmt_length;
+			if (!this->port_statement->rsr_message->msg_address)
+			{
+				/* TMN: Obvious bugfix. Please look at your compilers warnings. */
+				/* They are not enemies, they're friends! */
+				/* port->port_statement->rsr_message->msg_address = &port->port_statement->rsr_message->msg_buffer; */
+				this->port_statement->rsr_message->msg_address =
+					this->port_statement->rsr_message->msg_buffer;
+			}
+			out_msg = this->port_statement->rsr_message->msg_address;
+		}
+	}
+	else
+	{
+		in_blr_length = out_blr_length = 0;
+		in_blr = out_blr = NULL;
+		in_msg_type = out_msg_type = 0;
+	}
+
+	handle = (transaction) ? transaction->rtr_handle : NULL;
+
+/* Since the API to GDS_DSQL_EXECUTE_IMMED is public and can not be changed, there needs to
+ * be a way to send the parser version to DSQL so that the parser can compare the keyword
+ * version to the parser version.  To accomplish this, the parser version is combined with
+ * the client dialect and sent across that way.  In dsql8_execute_immediate, the parser version
+ * and client dialect are separated and passed on to their final desintations.  The information
+ * is combined as follows:
+ *     Dialect * 10 + parser_version
+ *
+ * and is extracted in dsql8_execute_immediate as follows:
+ *      parser_version = ((dialect *10)+parser_version)%10
+ *      client_dialect = ((dialect *10)+parser_version)/10
+ *
+ * For example, parser_version = 1 and client dialect = 1
+ *
+ *  combined = (1 * 10) + 1 == 11
+ *
+ *  parser = (combined) %10 == 1
+ *  dialect = (combined) / 19 == 1
+ */
+
+	parser_version = (this->port_protocol < PROTOCOL_VERSION10) ? 1 : 2;
+
+	THREAD_EXIT;
+	GDS_DSQL_EXECUTE_IMMED(status_vector,
+						   reinterpret_cast<void**>(&rdb->rdb_handle),
+						   reinterpret_cast<void**>(&handle),
+						   exnow->p_sqlst_SQL_str.cstr_length,
+						   reinterpret_cast<char*>(exnow->p_sqlst_SQL_str.cstr_address),
+						   (USHORT) ((exnow->p_sqlst_SQL_dialect * 10) +
+									 parser_version),
+						   in_blr_length,
+						   reinterpret_cast<char*>(in_blr),
+						   in_msg_type,
+						   in_msg_length,
+						   reinterpret_cast<char*>(in_msg),
+						   out_blr_length,
+						   reinterpret_cast<char*>(out_blr),
+						   out_msg_type,
+						   out_msg_length,
+						   reinterpret_cast<char*>(out_msg));
+	THREAD_ENTER;
+
+	if (op == op_exec_immediate2)
+	{
+		this->port_statement->rsr_format =
+			this->port_statement->rsr_select_format;
+
+		send->p_operation = op_sql_response;
+		send->p_sqldata.p_sqldata_messages = (status_vector[1]
+											  || !out_msg) ? 0 : 1;
+		this->send_partial(send);
+	}
+
+	if (!status_vector[1]) {
+		if (transaction && !handle) {
+			REMOTE_cleanup_transaction(transaction);
+			release_transaction(transaction);
+			transaction = NULL;
+		}
+		else if (!transaction && handle) {
+			if (!(transaction = make_transaction(rdb, handle))) {
+				status_vector[0] = isc_arg_gds;
+				status_vector[1] = isc_too_many_handles;
+				status_vector[2] = isc_arg_end;
+			}
+		}
+	}
+
+	return this->send_response(	send,
+								(OBJCT) (transaction ? transaction->rtr_id : 0),
+								0,
+								status_vector);
+}
+
+
+STATUS port::execute_statement(P_OP op, P_SQLDATA* sqldata, PACKET* send)
+{
+/*****************************************
+ *
+ *	e x e c u t e _ s t a t e m e n t
+ *
+ *****************************************
+ *
+ * Functional description
+ *	Execute a non-SELECT dynamic SQL statement.
+ *
+ *****************************************/
+	RTR transaction = (RTR) NULL;
+	RSR statement;
+	USHORT in_msg_length, out_msg_type, out_blr_length, out_msg_length;
+	UCHAR *in_msg, *out_blr, *out_msg;
+	int *handle;
+	STATUS status_vector[20];
+
+/** Do not call CHECK_HANDLE if this is the start of a transaction **/
+	if (sqldata->p_sqldata_transaction)
+	{
+		CHECK_HANDLE_MEMBER(transaction,
+							RTR,
+							type_rtr,
+							sqldata->p_sqldata_transaction,
+							isc_bad_trans_handle);
+	}
+	CHECK_HANDLE_MEMBER(statement,
+						RSR,
+						type_rsr,
+						sqldata->p_sqldata_statement,
+						isc_bad_req_handle);
+
+	in_msg_length = out_msg_length = 0;
+	in_msg = out_msg = NULL;
+	if (statement->rsr_format)
+	{
+		in_msg_length = statement->rsr_format->fmt_length;
+		in_msg = statement->rsr_message->msg_address;
+	}
+	if (op == op_execute2)
+	{
+		out_blr_length = sqldata->p_sqldata_out_blr.cstr_length;
+		out_blr = sqldata->p_sqldata_out_blr.cstr_address;
+		out_msg_type = sqldata->p_sqldata_out_message_number;
+		if (this->port_statement->rsr_select_format)
+		{
+			out_msg_length =
+				this->port_statement->rsr_select_format->fmt_length;
+			out_msg = this->port_statement->rsr_message->msg_buffer;
+		}
+	}
+	else
+	{
+		out_blr_length = 0;
+		out_msg_type = 0;
+		out_blr = NULL;
+	}
+	statement->rsr_flags &= ~RSR_fetched;
+
+	handle = (transaction) ? transaction->rtr_handle : NULL;
+
+	THREAD_EXIT;
+	GDS_DSQL_EXECUTE(status_vector,
+					 reinterpret_cast<void**>(&handle),
+					 reinterpret_cast<void**>(&statement->rsr_handle),
+					 sqldata->p_sqldata_blr.cstr_length,
+					 reinterpret_cast<char*>(sqldata->p_sqldata_blr.cstr_address),
+					 sqldata->p_sqldata_message_number,
+					 in_msg_length,
+					 reinterpret_cast<char*>(in_msg),
+					 out_blr_length,
+					 reinterpret_cast<char*>(out_blr),
+					 out_msg_type,
+					 out_msg_length,
+					 reinterpret_cast<char*>(out_msg));
+	THREAD_ENTER;
+
+	if (op == op_execute2)
+	{
+		this->port_statement->rsr_format =
+			this->port_statement->rsr_select_format;
+
+		send->p_operation = op_sql_response;
+		send->p_sqldata.p_sqldata_messages = (status_vector[1]
+											  || !out_msg) ? 0 : 1;
+		this->send_partial(send);
+	}
+
+	if (!status_vector[1]) {
+		if (transaction && !handle) {
+			REMOTE_cleanup_transaction(transaction);
+			release_transaction(transaction);
+			transaction = NULL;
+		}
+		else if (!transaction && handle) {
+			if (!(transaction = make_transaction(statement->rsr_rdb, handle))) {
+				status_vector[0] = isc_arg_gds;
+				status_vector[1] = isc_too_many_handles;
+				status_vector[2] = isc_arg_end;
+			}
+		}
+
+		statement->rsr_rtr = transaction;
+	}
+
+	return this->send_response(	send,
+								(OBJCT) (transaction ? transaction->rtr_id : 0),
+								0,
+								status_vector);
+}
+
+
+STATUS port::fetch(P_SQLDATA * sqldata, PACKET* send)
+{
+/*****************************************
+ *
+ *	f e t c h
+ *
+ *****************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor.
+ *
+ *****************************************/
+	RSR statement;
+	MSG message, next;
+	USHORT msg_length, count, count2;
+	P_SQLDATA *response;
+	STATUS s, status_vector[20];
+
+	CHECK_HANDLE_MEMBER(statement,
+						RSR,
+						type_rsr,
+						sqldata->p_sqldata_statement,
+						isc_bad_req_handle);
+
+	if (statement->rsr_flags & RSR_blob) {
+		return this->fetch_blob(sqldata, send);
+	}
+
+	if (statement->rsr_format) {
+		msg_length = statement->rsr_format->fmt_length;
+	} else {
+		msg_length = 0;
+	}
+	count = ((this->port_flags & PORT_rpc) ||
+			(statement->rsr_flags & RSR_no_batch)) ? 1 :
+			sqldata->p_sqldata_messages;
+	count2 = (statement->rsr_flags & RSR_no_batch) ? 0 : count;
+
+/* On first fetch, clear the end-of-stream flag & reset the message buffers */
+
+	if (!(statement->rsr_flags & RSR_fetched)) {
+		statement->rsr_flags &= ~(RSR_eof | RSR_stream_err);
+		memset(statement->rsr_status_vector, 0,
+			   sizeof(statement->rsr_status_vector));
+		if ((message = statement->rsr_message) != NULL) {
+			statement->rsr_buffer = message;
+			while (TRUE) {
+				message->msg_address = NULL;
+				message = message->msg_next;
+				if (message == statement->rsr_message)
+					break;
+			}
+		}
+	}
+
+/* Get ready to ship the data out */
+
+	response = &send->p_sqldata;
+	send->p_operation = op_fetch_response;
+	response->p_sqldata_statement = sqldata->p_sqldata_statement;
+	response->p_sqldata_status = 0;
+	response->p_sqldata_messages = 1;
+	s = 0;
+	message = NULL;
+
+/* Check to see if any messages are already sitting around */
+
+	while (TRUE) {
+
+		/* Have we exhausted the cache & reached cursor EOF? */
+		if ((statement->rsr_flags & RSR_eof) && !statement->rsr_msgs_waiting) {
+			statement->rsr_flags &= ~RSR_eof;
+			s = 100;
+			count2 = 0;
+			break;
+		}
+
+		/* Have we exhausted the cache & have a pending error? */
+		if ((statement->rsr_flags & RSR_stream_err)
+			&& !statement->rsr_msgs_waiting) {
+			statement->rsr_flags &= ~RSR_stream_err;
+			return this->send_response(send, 0, 0,
+								 statement->rsr_status_vector);
+		}
+
+		message = statement->rsr_buffer;
+
+		/* Make sure message can be de referenced, if not then return false */
+		if (message == NULL)
+			return FALSE;
+
+		/* If we don't have a message cached, get one from the
+		   access method. */
+
+		if (!message->msg_address) {
+			assert(statement->rsr_msgs_waiting == 0);
+			THREAD_EXIT;
+			s = GDS_DSQL_FETCH(status_vector,
+							   reinterpret_cast<void**>(&statement->rsr_handle),
+							   sqldata->p_sqldata_blr.cstr_length,
+							   reinterpret_cast<char*>(sqldata->p_sqldata_blr.cstr_address),
+							   sqldata->p_sqldata_message_number,
+							   msg_length,
+							   reinterpret_cast<char*>(message->msg_buffer));
+
+			THREAD_ENTER;
+			statement->rsr_flags |= RSR_fetched;
+			if (s) {
+				if (s == 100 || s == 101) {
+					count2 = 0;
+					break;
+				} else {
+					return this->send_response(send, 0, 0, status_vector);
+				}
+			}
+			message->msg_address = message->msg_buffer;
+		}
+		else {
+			/* Take a message from the outqoing queue */
+			assert(statement->rsr_msgs_waiting >= 1);
+			statement->rsr_msgs_waiting--;
+		}
+
+		/* For compatibility with Protocol 7, we must break out of the
+		   loop before sending the last record. */
+
+		count--;
+		if (this->port_protocol <= PROTOCOL_VERSION7 && count <= 0) {
+			break;
+		}
+
+		/* There's a buffer waiting -- send it */
+
+		if (!this->send_partial(send)) {
+			return FALSE;
+		}
+		message->msg_address = NULL;
+
+		/* If we've sent the requested amount, break out of loop */
+
+		if (count <= 0)
+			break;
+	}
+
+	response->p_sqldata_status = s;
+	response->p_sqldata_messages = 0;
+	this->send(send);
+	if (message) {
+		message->msg_address = NULL;
+	}
+
+/* Since we have a little time on our hands while this packet is sent
+   and processed, get the next batch of records.  Start by finding the
+   next free buffer. */
+
+	message = statement->rsr_buffer;
+	next = NULL;
+
+	while (message->msg_address && message->msg_next != statement->rsr_buffer)
+		message = message->msg_next;
+
+	for (; count2; --count2) {
+		if (message->msg_address) {
+			if (!next)
+				for (next = statement->rsr_buffer; next->msg_next != message;
+					 next = next->msg_next);
+			message = (MSG) ALLOCV(type_msg, statement->rsr_fmt_length);
+			message->msg_number = next->msg_number;
+			message->msg_next = next->msg_next;
+			next->msg_next = message;
+			next = message;
+		}
+		THREAD_EXIT;
+		s = GDS_DSQL_FETCH(status_vector,
+						   reinterpret_cast<void**>(&statement->rsr_handle),
+						   sqldata->p_sqldata_blr.cstr_length,
+						   reinterpret_cast<char*>(sqldata->p_sqldata_blr.cstr_address),
+						   sqldata->p_sqldata_message_number,
+						   msg_length,
+						   reinterpret_cast<char*>(message->msg_buffer));
+		THREAD_ENTER;
+		if (s) {
+			if (status_vector[1]) {
+				/* If already have an error queued, don't overwrite it */
+				if (!(statement->rsr_flags & RSR_stream_err)) {
+					statement->rsr_flags |= RSR_stream_err;
+					memcpy(statement->rsr_status_vector, status_vector,
+						   sizeof(statement->rsr_status_vector));
+				}
+			}
+			if (s == 100)
+				statement->rsr_flags |= RSR_eof;
+			break;
+		}
+		message->msg_address = message->msg_buffer;
+		message = message->msg_next;
+		statement->rsr_msgs_waiting++;
+	}
+
+	return TRUE;
+}
+
+
+STATUS port::fetch_blob(P_SQLDATA * sqldata, PACKET* send)
+{
+/*****************************************
+ *
+ *	f e t c h _ b l o b
+ *
+ *****************************************
+ *
+ * Functional description
+ *	Fetch next record from a dynamic SQL cursor.
+ *
+ *****************************************/
+	RSR statement;
+	USHORT msg_length;
+	MSG message;
+	P_SQLDATA *response;
+	STATUS s, status_vector[20];
+
+	CHECK_HANDLE_MEMBER(statement,
+						RSR,
+						type_rsr,
+						sqldata->p_sqldata_statement,
+						isc_bad_req_handle);
+
+	if (statement->rsr_format)
+		msg_length = statement->rsr_format->fmt_length;
+	else
+		msg_length = 0;
+
+	if ((message = statement->rsr_message) != NULL)
+		statement->rsr_buffer = message;
+
+/* Get ready to ship the data out */
+
+	response = &send->p_sqldata;
+	send->p_operation = op_fetch_response;
+	response->p_sqldata_statement = sqldata->p_sqldata_statement;
+	response->p_sqldata_status = 0;
+	response->p_sqldata_messages = 1;
+	s = 0;
+	message = statement->rsr_buffer;
+
+	THREAD_EXIT;
+	s = GDS_DSQL_FETCH(status_vector,
+					   reinterpret_cast<void**>(&statement->rsr_handle),
+					   sqldata->p_sqldata_blr.cstr_length,
+					   reinterpret_cast<char*>(sqldata->p_sqldata_blr.cstr_address),
+					   sqldata->p_sqldata_message_number,
+					   msg_length,
+					   reinterpret_cast<char*>(message->msg_buffer));
+	THREAD_ENTER;
+
+	if (!status_vector[1] ||
+		status_vector[1] != gds_segment || status_vector[1] != gds_segstr_eof) {
+		message->msg_address = message->msg_buffer;
+		response->p_sqldata_status = s;
+		response->p_sqldata_messages =
+			(status_vector[1] == gds_segstr_eof) ? 0 : 1;
+		this->send_partial(send);
+		message->msg_address = NULL;
+	}
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+OBJCT port::get_id(BLK block)
+{
+/**************************************
+ *
+ *	g e t _ i d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate an object slot for an object.
+ *	If the object vector cannot be expanded
+ *	to accomodate the object slot then
+ *	REMOTE_set_object() will return a NULL
+ *	object slot.
+ *
+ **************************************/
+
+/* If there isn't a vector, obvious the object goes in slot 1.
+   Reserve slot 0 so we can distinguish something from nothing.
+   NOTE: prior to server version 4.5.0 id==0 COULD be used - so
+   only the server side can now depend on id==0 meaning "invalid id" */
+
+	VEC vector = this->port_object_vector;
+	if (!vector) {
+		return REMOTE_set_object(this, block, (OBJCT) 1);
+	}
+
+	// Search vector for an empty slot.  If we find one, use it
+
+	BLK *p, *end;
+
+	for (p = vector->vec_object + 1, end =
+		 vector->vec_object + vector->vec_count; p < end; p++)
+	{
+		if (!*p) {
+			*p = block;
+			return (OBJCT) (p - vector->vec_object);
+		}
+	}
+
+/* Vector is full -- somebody will need to expand it */
+
+	return REMOTE_set_object(this, block, (OBJCT) vector->vec_count);
+}
+
+
+static USHORT get_next_msg_no(RRQ request,
+							  USHORT incarnation,
+							  USHORT * msg_number)
+{
+/**************************************
+ *
+ *	g e t _ n e x t _ m s g _ n o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return the number of the next message
+ *	in the request.
+ *
+ **************************************/
+	USHORT l, n, result;
+	STATUS status_vector[20];
+	UCHAR info_buffer[128], *info;
+
+	THREAD_EXIT;
+	isc_request_info(status_vector,
+					 reinterpret_cast<void**>(GDS_REF(request->rrq_handle)),
+					 incarnation,
+					 sizeof(request_info),
+					 (SCHAR *) request_info,	/* const_cast */
+					 sizeof(info_buffer),
+					 reinterpret_cast<char*>(info_buffer));
+	THREAD_ENTER;
+
+	if (status_vector[1])
+		return FALSE;
+
+	result = FALSE;
+	for (info = info_buffer; *info != gds_info_end;) {
+		l = (USHORT) gds__vax_integer(info + 1, 2);
+		n = (USHORT) gds__vax_integer(info + 3, l);
+		switch (*info) {
+		case gds_info_state:
+			if (n != gds_info_req_send)
+				return FALSE;
+			break;
+
+		case gds_info_message_number:
+			*msg_number = n;
+			result = TRUE;
+			break;
+
+		default:
+			return FALSE;
+		}
+		info += 3 + l;
+	}
+
+	return result;
+}
+
+
+STATUS port::get_segment(P_SGMT* segment, PACKET* send)
+{
+/**************************************
+ *
+ *	g e t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a single blob segment.
+ *
+ **************************************/
+	RBL blob;
+	UCHAR *buffer;
+	USHORT length, buffer_length;
+	UCHAR *p;
+	STATUS state, status, status_vector[20];
+#ifndef STACK_EFFICIENT
+	UCHAR temp_buffer[BLOB_LENGTH];
+#endif
+
+	CHECK_HANDLE_MEMBER(blob,
+						RBL,
+						type_rbl,
+						segment->p_sgmt_blob,
+						isc_bad_segstr_handle);
+
+	buffer_length = segment->p_sgmt_length;
+#ifndef STACK_EFFICIENT
+	if (buffer_length <= sizeof(temp_buffer))
+		buffer = temp_buffer;
+	else
+#endif
+	{
+		if (buffer_length > blob->rbl_buffer_length) {
+			if (blob->rbl_buffer != blob->rbl_data) {
+				ALLR_free(blob->rbl_buffer);
+				blob->rbl_buffer = blob->rbl_data;
+				blob->rbl_buffer_length = 1;
+			}
+			blob->rbl_buffer = ALLR_alloc((SLONG) buffer_length);
+			blob->rbl_buffer_length = buffer_length;
+		}
+		buffer = blob->rbl_buffer;
+	}
+#ifdef REMOTE_DEBUG_MEMORY
+	ib_printf("get_segment(server)       allocate buffer  %x\n", buffer);
+#endif
+	send->p_resp.p_resp_data.cstr_address = buffer;
+
+/* Be backwards compatible */
+
+	if (this->port_flags & PORT_rpc)
+	{
+		length = 0;
+		THREAD_EXIT;
+		isc_get_segment(status_vector,
+						reinterpret_cast<void**>(GDS_REF(blob->rbl_handle)),
+						GDS_REF(length),
+						segment->p_sgmt_length,
+						reinterpret_cast<char*>(GDS_VAL(buffer)));
+		THREAD_ENTER;
+		status =
+			this->send_response(send, blob->rbl_id, length, status_vector);
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("get_segment(server)       free buffer      %x\n", buffer);
+#endif
+		if (status_vector[1] == gds_segstr_eof)
+			if (blob->rbl_buffer != blob->rbl_data) {
+				ALLR_free(blob->rbl_buffer);
+				blob->rbl_buffer = blob->rbl_data;
+				blob->rbl_buffer_length = 1;
+			}
+
+		return status;
+	}
+
+/* Gobble up a buffer's worth of segments */
+
+	p = buffer;
+	state = 0;
+
+	while (buffer_length > 2) {
+		buffer_length -= 2;
+		p += 2;
+		THREAD_EXIT;
+		isc_get_segment(status_vector,
+						reinterpret_cast<void**>(GDS_REF(blob->rbl_handle)),
+						GDS_REF(length),
+						buffer_length,
+						reinterpret_cast<char*>(GDS_VAL(p)));
+		THREAD_ENTER;
+		if (status_vector[1] == gds_segstr_eof)
+		{
+			state = 2;
+			success(status_vector);
+			p -= 2;
+			break;
+		}
+		if (status_vector[1] && (status_vector[1] != gds_segment))
+		{
+			p -= 2;
+			break;
+		}
+		p[-2] = (UCHAR) length;
+		p[-1] = (UCHAR) (length >> 8);
+		p += length;
+		buffer_length -= length;
+		if (status_vector[1] == gds_segment) {
+			state = 1;
+			success(status_vector);
+			break;
+		}
+	}
+
+	status = this->send_response(send,
+								(OBJCT)state,
+								(USHORT) (p - buffer),
+								status_vector);
+
+#ifdef REMOTE_DEBUG_MEMORY
+	ib_printf("get_segment(server)       free buffer      %x\n", buffer);
+#endif
+
+	if (status_vector[1] == gds_segstr_eof)
+		if (blob->rbl_buffer != blob->rbl_data) {
+			ALLR_free(blob->rbl_buffer);
+			blob->rbl_buffer = blob->rbl_data;
+			blob->rbl_buffer_length = 1;
+		}
+
+	return status;
+}
+
+
+STATUS port::get_slice(P_SLC * stuff, PACKET* send)
+{
+/**************************************
+ *
+ *	g e t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get an array slice.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	UCHAR *slice;
+	P_SLR *response;
+	STATUS status, status_vector[20];
+#ifndef STACK_EFFICIENT
+	UCHAR temp_buffer[4096];
+#endif
+
+	rdb = this->port_context;
+	CHECK_HANDLE_MEMBER(transaction,
+						RTR,
+						type_rtr,
+						stuff->p_slc_transaction,
+						isc_bad_trans_handle);
+
+	if (!stuff->p_slc_length)
+		slice = 0;
+	else {
+#ifndef STACK_EFFICIENT
+		if (stuff->p_slc_length <= sizeof(temp_buffer))
+			slice = temp_buffer;
+		else
+#endif
+			slice = ALLR_alloc((SLONG) stuff->p_slc_length);
+	}
+
+	if (slice) {
+		memset(slice, 0, stuff->p_slc_length);
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("get_slice(server)         allocate buffer  %x\n", slice);
+#endif
+	}
+	response = &send->p_slr;
+
+	THREAD_EXIT;
+	isc_get_slice(status_vector,
+				  reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)),
+				  reinterpret_cast<void**>(GDS_REF(transaction->rtr_handle)),
+				  (GDS_QUAD *) GDS_REF(stuff->p_slc_id),
+				  stuff->p_slc_sdl.cstr_length,
+				  reinterpret_cast<char*>(GDS_VAL(stuff->p_slc_sdl.cstr_address)),
+				  stuff->p_slc_parameters.cstr_length,
+				  (ISC_LONG *) GDS_VAL(stuff->p_slc_parameters.cstr_address),
+				  stuff->p_slc_length,
+				  GDS_VAL(slice),
+				  reinterpret_cast<long*>(GDS_REF(response->p_slr_length)));
+	THREAD_ENTER;
+
+	if (status_vector[1])
+		status = this->send_response(send, 0, 0, status_vector);
+	else {
+		send->p_operation = op_slice;
+		response->p_slr_slice.lstr_address = slice;
+		response->p_slr_slice.lstr_length = response->p_slr_length;
+		response->p_slr_sdl = stuff->p_slc_sdl.cstr_address;
+		response->p_slr_sdl_length = stuff->p_slc_sdl.cstr_length;
+		this->send(send);
+		response->p_slr_sdl = 0;
+		status = SUCCESS;
+	}
+
+	if (slice) {
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("get_slice(server)         free buffer      %x\n", slice);
+#endif
+#ifndef STACK_EFFICIENT
+		if (slice != temp_buffer)
+#endif
+			ALLR_free(slice);
+	}
+
+	return status;
+}
+
+
+STATUS port::info(P_OP op, P_INFO * stuff, PACKET* send)
+{
+/**************************************
+ *
+ *	i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get info for a blob, database, request, service,
+ *	statement, or transaction.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	RTR transaction;
+	RRQ request;
+	RSR statement;
+	UCHAR *buffer, temp[1024];
+	TEXT version[64];
+	STATUS status, status_vector[20];
+
+	rdb = this->port_context;
+
+/* Make sure there is a suitable temporary blob buffer */
+
+	buffer = ALLR_alloc((SLONG) stuff->p_info_buffer_length);
+	memset(buffer, 0, stuff->p_info_buffer_length);
+#ifdef REMOTE_DEBUG_MEMORY
+	ib_printf("info(server)              allocate buffer  %x\n", buffer);
+#endif
+
+	switch (op) {
+	case op_info_blob:
+		CHECK_HANDLE_MEMBER(blob,
+							RBL,
+							type_rbl,
+							stuff->p_info_object,
+							isc_bad_segstr_handle);
+		THREAD_EXIT;
+		isc_blob_info(status_vector,
+					  reinterpret_cast<void**>(GDS_REF(blob->rbl_handle)),
+					  stuff->p_info_items.cstr_length,
+					  reinterpret_cast<char*>(GDS_VAL(stuff->p_info_items.cstr_address)),
+					  stuff->p_info_buffer_length,
+					  reinterpret_cast<char*>(GDS_VAL(buffer)));
+		THREAD_ENTER;
+		break;
+
+	case op_info_database:
+		THREAD_EXIT;
+		isc_database_info(status_vector,
+						  reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)),
+						  stuff->p_info_items.cstr_length,
+						  reinterpret_cast<char*>(GDS_VAL(stuff->p_info_items.cstr_address)),
+						  sizeof(temp),
+						  reinterpret_cast<char*>(temp));
+		if (!status_vector[1]) {
+			sprintf(version, "%s/%s", GDS_VERSION,
+					this->port_version->str_data);
+			MERGE_database_info(temp, buffer, stuff->p_info_buffer_length,
+								IMPLEMENTATION, 4, 1,
+								reinterpret_cast<UCHAR*>(version),
+								reinterpret_cast<UCHAR*>(this->port_host->str_data),
+								0);
+		}
+		THREAD_ENTER;
+		break;
+
+	case op_info_request:
+		CHECK_HANDLE_MEMBER(request,
+							RRQ,
+							type_rrq,
+							stuff->p_info_object,
+							isc_bad_req_handle);
+		THREAD_EXIT;
+		isc_request_info(status_vector,
+						 reinterpret_cast <
+						 void **>(GDS_REF(request->rrq_handle)),
+						 stuff->p_info_incarnation,
+						 stuff->p_info_items.cstr_length,
+						 reinterpret_cast <
+						 char *>(GDS_VAL(stuff->p_info_items.cstr_address)),
+						 stuff->p_info_buffer_length,
+						 reinterpret_cast < char *>(GDS_VAL(buffer)));
+		THREAD_ENTER;
+		break;
+
+	case op_info_transaction:
+		CHECK_HANDLE_MEMBER(transaction,
+							RTR,
+							type_rtr,
+							stuff->p_info_object,
+							isc_bad_trans_handle);
+		THREAD_EXIT;
+		isc_transaction_info(status_vector,
+							 reinterpret_cast <
+							 void **>(GDS_REF(transaction->rtr_handle)),
+							 stuff->p_info_items.cstr_length,
+							 reinterpret_cast <
+							 char
+							 *>(GDS_VAL(stuff->p_info_items.cstr_address)),
+							 stuff->p_info_buffer_length,
+							 reinterpret_cast < char *>(GDS_VAL(buffer)));
+		THREAD_ENTER;
+		break;
+
+	case op_service_info:
+		THREAD_EXIT;
+		isc_service_query(status_vector,
+						  reinterpret_cast<void**>(&rdb->rdb_handle),
+						  NULL,
+						  stuff->p_info_items.cstr_length,
+						  reinterpret_cast <
+						  char *>(stuff->p_info_items.cstr_address),
+						  stuff->p_info_recv_items.cstr_length,
+						  reinterpret_cast <
+						  char *>(stuff->p_info_recv_items.cstr_address),
+						  stuff->p_info_buffer_length,
+						  reinterpret_cast < char *>(buffer));
+		THREAD_ENTER;
+		break;
+
+	case op_info_sql:
+		CHECK_HANDLE_MEMBER(statement,
+							RSR,
+							type_rsr,
+							stuff->p_info_object,
+							isc_bad_req_handle);
+		THREAD_EXIT;
+		GDS_DSQL_SQL_INFO(status_vector,
+						  reinterpret_cast<void**>(&statement->rsr_handle),
+						  stuff->p_info_items.cstr_length,
+						  reinterpret_cast <
+						  char *>(stuff->p_info_items.cstr_address),
+						  stuff->p_info_buffer_length,
+						  reinterpret_cast < char *>(buffer));
+		THREAD_ENTER;
+		break;
+	}
+
+/* Send a response that includes the segment. */
+
+	send->p_resp.p_resp_data.cstr_address = buffer;
+
+	status = this->send_response(send, stuff->p_info_object,
+						   stuff->p_info_buffer_length, status_vector);
+#ifdef REMOTE_DEBUG_MEMORY
+	ib_printf("info(server)              free buffer      %x\n", buffer);
+#endif
+	ALLR_free(buffer);
+
+	return status;
+}
+
+
+STATUS port::insert(P_SQLDATA * sqldata, PACKET* send)
+{
+/*****************************************
+ *
+ *	i n s e r t
+ *
+ *****************************************
+ *
+ * Functional description
+ *	Insert next record into a dynamic SQL cursor.
+ *
+ *****************************************/
+	RSR statement;
+	USHORT msg_length;
+	UCHAR *msg;
+	STATUS status_vector[20];
+
+	CHECK_HANDLE_MEMBER(statement,
+						RSR,
+						type_rsr,
+						sqldata->p_sqldata_statement,
+						isc_bad_req_handle);
+
+	if (statement->rsr_format)
+	{
+		msg_length = statement->rsr_format->fmt_length;
+		msg = statement->rsr_message->msg_address;
+	}
+	else
+	{
+		msg_length = 0;
+		msg = NULL;
+	}
+
+	THREAD_EXIT;
+	GDS_DSQL_INSERT(status_vector,
+					reinterpret_cast<void**>(&statement->rsr_handle),
+					sqldata->p_sqldata_blr.cstr_length,
+					reinterpret_cast <
+					char *>(sqldata->p_sqldata_blr.cstr_address),
+					sqldata->p_sqldata_message_number, msg_length,
+					reinterpret_cast < char *>(msg));
+	THREAD_ENTER;
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+static RTR make_transaction( RDB rdb, int *handle)
+{
+/**************************************
+ *
+ *	m a k e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create a local transaction handle.
+ *
+ **************************************/
+	RTR transaction;
+
+	transaction = (RTR) ALLOC(type_rtr);
+	transaction->rtr_rdb = rdb;
+	transaction->rtr_handle = handle;
+	if (transaction->rtr_id = rdb->rdb_port->get_id(&transaction->rtr_header))
+	{
+		transaction->rtr_next = rdb->rdb_transactions;
+		rdb->rdb_transactions = transaction;
+	}
+	else {
+		ALLR_release(transaction);
+		transaction = (RTR) 0;
+	}
+
+	return transaction;
+}
+
+
+STATUS port::open_blob(P_OP op, P_BLOB * stuff, PACKET* send)
+{
+/**************************************
+ *
+ *	o p e n _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open or create a new blob.
+ *
+ **************************************/
+	RDB rdb;
+	RBL blob;
+	RTR transaction;
+	USHORT bpb_length;
+	UCHAR *bpb;
+	int *handle;
+	USHORT object;
+	STATUS status_vector[20];
+
+	CHECK_HANDLE_MEMBER(transaction,
+						RTR,
+						type_rtr,
+						stuff->p_blob_transaction,
+						isc_bad_trans_handle);
+
+	rdb = this->port_context;
+	handle = NULL;
+	bpb_length = 0;
+	bpb = NULL;
+
+	if (op == op_open_blob2 || op == op_create_blob2) {
+		bpb_length = stuff->p_blob_bpb.cstr_length;
+		bpb = stuff->p_blob_bpb.cstr_address;
+	}
+
+	THREAD_EXIT;
+	if (op == op_open_blob || op == op_open_blob2)
+		isc_open_blob2(status_vector,
+					   reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)),
+					   reinterpret_cast <
+					   void **>(GDS_REF(transaction->rtr_handle)),
+					   reinterpret_cast<void**>(GDS_REF(handle)),
+					   (GDS_QUAD *) GDS_REF(stuff->p_blob_id), bpb_length,
+					   GDS_VAL(bpb));
+	else
+		isc_create_blob2(status_vector,
+						 reinterpret_cast <
+						 void **>(GDS_REF(rdb->rdb_handle)),
+						 reinterpret_cast <
+						 void **>(GDS_REF(transaction->rtr_handle)),
+						 reinterpret_cast<void**>(GDS_REF(handle)),
+						 (GDS_QUAD *) GDS_REF(send->p_resp.p_resp_blob_id),
+						 bpb_length,
+						 reinterpret_cast < char *>(GDS_VAL(bpb)));
+	THREAD_ENTER;
+
+	if (status_vector[1])
+		object = 0;
+	else {
+		blob = (RBL) ALLOCV(type_rbl, 1);
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("open_blob(server)         allocate blob    %x\n", blob);
+#endif
+		blob->rbl_buffer_length = 1;
+		blob->rbl_buffer = blob->rbl_data;
+		blob->rbl_handle = handle;
+		blob->rbl_rdb = rdb;
+		if (blob->rbl_id = this->get_id(&blob->rbl_header))
+		{
+			object = blob->rbl_id;
+			blob->rbl_rtr = transaction;
+			blob->rbl_next = transaction->rtr_blobs;
+			transaction->rtr_blobs = blob;
+		}
+		else
+		{
+			object = 0;
+			THREAD_EXIT;
+			isc_cancel_blob(status_vector,
+							reinterpret_cast <
+							void **>(GDS_REF(blob->rbl_handle)));
+			THREAD_ENTER;
+			ALLR_release(blob);
+			status_vector[0] = isc_arg_gds;
+			status_vector[1] = isc_too_many_handles;
+			status_vector[2] = isc_arg_end;
+		}
+	}
+
+	return this->send_response(send, object, 0, status_vector);
+}
+
+
+STATUS port::prepare(P_PREP * stuff, PACKET* send)
+{
+/**************************************
+ *
+ *	p r e p a r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	End a transaction.
+ *
+ **************************************/
+	RTR transaction;
+	STATUS status_vector[20];
+
+	CHECK_HANDLE_MEMBER(transaction,
+						RTR,
+						type_rtr,
+						stuff->p_prep_transaction,
+						isc_bad_trans_handle);
+
+	THREAD_EXIT;
+	if (!isc_prepare_transaction2(status_vector,
+								  reinterpret_cast<void**>(GDS_REF(transaction->rtr_handle)),
+								  stuff->p_prep_data.cstr_length,
+								  GDS_VAL(stuff->p_prep_data.cstr_address)))
+	{
+		transaction->rtr_flags |= RTR_limbo;
+	}
+	THREAD_ENTER;
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::prepare_statement(P_SQLST * prepare, PACKET* send)
+{
+/*****************************************
+ *
+ *	p r e p a r e _ s t a t m e n t
+ *
+ *****************************************
+ *
+ * Functional description
+ *	Prepare a dynamic SQL statement for execution.
+ *
+ *****************************************/
+	RTR transaction = (RTR) NULL;
+	RSR statement;
+	UCHAR *buffer, local_buffer[1024];
+	STATUS status, status_vector[20];
+	USHORT state, parser_version;
+	int *handle;
+
+/** Do not call CHECK_HANDLE if this is the start of a transaction **/
+	if (prepare->p_sqlst_transaction)
+	{
+		CHECK_HANDLE_MEMBER(transaction,
+							RTR,
+							type_rtr,
+							prepare->p_sqlst_transaction,
+							isc_bad_trans_handle);
+	}
+	CHECK_HANDLE_MEMBER(statement,
+						RSR,
+						type_rsr,
+						prepare->p_sqlst_statement,
+						isc_bad_req_handle);
+
+	if (prepare->p_sqlst_buffer_length > sizeof(local_buffer))
+		buffer = ALLR_alloc((SLONG) prepare->p_sqlst_buffer_length);
+	else
+		buffer = local_buffer;
+
+	handle = (transaction) ? transaction->rtr_handle : NULL;
+
+
+/* Since the API to GDS_DSQL_PREPARE is public and can not be changed, there needs to
+ * be a way to send the parser version to DSQL so that the parser can compare the keyword
+ * version to the parser version.  To accomplish this, the parser version is combined with
+ * the client dialect and sent across that way.  In dsql8_prepare_statement, the parser version
+ * and client dialect are separated and passed on to their final desintations.  The information
+ * is combined as follows:
+ *     Dialect * 10 + parser_version
+ *
+ * and is extracted in dsql8_prepare_statement as follows:
+ *      parser_version = ((dialect *10)+parser_version)%10
+ *      client_dialect = ((dialect *10)+parser_version)/10
+ *
+ * For example, parser_version = 1 and client dialect = 1
+ *
+ *  combined = (1 * 10) + 1 == 11
+ *
+ *  parser = (combined) %10 == 1
+ *  dialect = (combined) / 19 == 1
+ */
+	parser_version = (this->port_protocol < PROTOCOL_VERSION10) ? 1 : 2;
+
+	THREAD_EXIT;
+	GDS_DSQL_PREPARE(status_vector,
+					 reinterpret_cast<void**>(&handle),
+					 reinterpret_cast<void**>(&statement->rsr_handle),
+					 prepare->p_sqlst_SQL_str.cstr_length,
+					 reinterpret_cast <
+					 char *>(prepare->p_sqlst_SQL_str.cstr_address),
+					 (USHORT) ((prepare->p_sqlst_SQL_dialect * 10) +
+							   parser_version),
+					 prepare->p_sqlst_items.cstr_length,
+					 reinterpret_cast <
+					 char *>(prepare->p_sqlst_items.cstr_address),
+					 prepare->p_sqlst_buffer_length,
+					 reinterpret_cast < char *>(buffer));
+	THREAD_ENTER;
+
+	if (status_vector[1]) {
+		if (buffer != local_buffer)
+			ALLR_free(buffer);
+		return this->send_response(send, 0, 0, status_vector);
+	}
+
+	REMOTE_reset_statement(statement);
+
+	statement->rsr_flags &= ~(RSR_blob | RSR_no_batch);
+	state = check_statement_type(statement);
+	if (state == STMT_BLOB)
+		statement->rsr_flags |= RSR_blob;
+	else if (state == STMT_NO_BATCH)
+		statement->rsr_flags |= RSR_no_batch;
+	state = (state == STMT_BLOB) ? 1 : 0;
+
+/* Send a response that includes the info requested. */
+
+	send->p_resp.p_resp_data.cstr_address = buffer;
+
+	status =
+		this->send_response(send,
+							state,
+							prepare->p_sqlst_buffer_length,
+							status_vector);
+
+	if (buffer != local_buffer) {
+		ALLR_free(buffer);
+	}
+
+	return status;
+}
+
+
+BOOLEAN process_packet(PORT port,
+					   PACKET* send, PACKET* receive, PORT * result)
+{
+/**************************************
+ *
+ *	p r o c e s s _ p a c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given an packet received from client, process it a packet ready to be
+ *	sent.
+ *
+ **************************************/
+	P_OP op;
+	STR string;
+	TEXT msg[128];
+	SRVR server;
+	JMP_BUF env;
+	struct trdb thd_context, *trdb;
+
+	trdb = &thd_context;
+	trdb->trdb_status_vector = port->port_status_vector;
+	trdb->trdb_setjmp = &env;
+	THD_put_specific((THDD) trdb);
+	trdb->trdb_thd_data.thdd_type = THDD_TYPE_TRDB;
+
+	if (SETJMP(env)) {
+		/* There must be something better to do here.  BUT WHAT? */
+
+		gds__log("SERVER/process_packet: out of memory", 0);
+
+		/*  It would be nice to log an error to the user, instead of just terminating them!  */
+		port->send_response(send, 0, 0, trdb->trdb_status_vector);
+		port->disconnect(send, receive);	/*  Well, how about this...  */
+
+		THD_restore_specific();
+		return FALSE;
+	}
+
+	switch (op = receive->p_operation) {
+	case op_connect:
+		if (!accept_connection(port, &receive->p_cnct, send)) {
+			if (string = port->port_user_name) {
+				sprintf(msg,
+						"SERVER/process_packet: connection rejected for %*.*s",
+						string->str_length, string->str_length,
+						string->str_data);
+				gds__log(msg, 0);
+			}
+			if (port->port_server->srvr_flags & SRVR_multi_client)
+				port->port_state = state_broken;
+			else if (port->port_server->srvr_flags & SRVR_mpexl)
+				port->port_state = state_pending;
+			else {
+				gds__log
+					("SERVER/process_packet: connect reject, server exiting",
+					 0);
+				THD_restore_specific();
+				return FALSE;
+			}
+		}
+		break;
+
+	case op_compile:
+		port->compile(&receive->p_cmpl, send);
+		break;
+
+	case op_attach:
+	case op_create:
+		attach_database(port, op, &receive->p_atch, send);
+		break;
+
+	case op_service_attach:
+		port->service_attach(&receive->p_atch, send);
+		break;
+
+	case op_service_start:
+		port->service_start(&receive->p_info, send);
+		break;
+
+	case op_disconnect:
+	case op_exit:
+		if (!(server = port->port_server))
+			break;
+		if ((server->srvr_flags & SRVR_multi_client) &&
+			port != server->srvr_parent_port) {
+#ifdef XNET
+			if (port->port_type == port_xnet) {
+				port->disconnect(send, receive);
+				THD_restore_specific();
+				return FALSE;
+			}
+#endif /* XNET */
+			port->disconnect(send, receive);
+			port = NULL;
+			break;
+		}
+		else {
+			if ((server->srvr_flags & SRVR_multi_client) &&
+				port == server->srvr_parent_port)
+					gds__log
+					("SERVER/process_packet: Multi-client server shutdown",
+					 0);
+			port->disconnect(send, receive);
+			THD_restore_specific();
+			return FALSE;
+		}
+
+	case op_receive:
+		port->receive_msg(&receive->p_data, send);
+		break;
+
+	case op_send:
+		port->send_msg(&receive->p_data, send);
+		break;
+
+	case op_start:
+	case op_start_and_receive:
+		port->start(op, &receive->p_data, send);
+		break;
+
+	case op_start_and_send:
+	case op_start_send_and_receive:
+		port->start_and_send(op, &receive->p_data, send);
+		break;
+
+	case op_transact:
+		port->transact_request(&receive->p_trrq, send);
+		break;
+
+	case op_reconnect:
+	case op_transaction:
+		port->start_transaction(op, &receive->p_sttr, send);
+		break;
+
+	case op_prepare:
+	case op_rollback:
+	case op_rollback_retaining:
+	case op_commit:
+	case op_commit_retaining:
+		port->end_transaction(op, &receive->p_rlse, send);
+		break;
+
+	case op_detach:
+		port->end_database(&receive->p_rlse, send);
+		break;
+
+	case op_service_detach:
+		port->service_end(&receive->p_rlse, send);
+		break;
+
+	case op_drop_database:
+		port->drop_database(&receive->p_rlse, send);
+		break;
+
+	case op_create_blob:
+	case op_open_blob:
+	case op_create_blob2:
+	case op_open_blob2:
+		port->open_blob(op, &receive->p_blob, send);
+		break;
+
+	case op_batch_segments:
+	case op_put_segment:
+		port->put_segment(op, &receive->p_sgmt, send);
+		break;
+
+	case op_get_segment:
+		port->get_segment(&receive->p_sgmt, send);
+		break;
+
+	case op_seek_blob:
+		port->seek_blob(&receive->p_seek, send);
+		break;
+
+	case op_cancel_blob:
+	case op_close_blob:
+		port->end_blob(op, &receive->p_rlse, send);
+		break;
+
+	case op_prepare2:
+		port->prepare(&receive->p_prep, send);
+		break;
+
+	case op_release:
+		port->end_request(&receive->p_rlse, send);
+		break;
+
+	case op_info_blob:
+	case op_info_database:
+	case op_info_request:
+	case op_info_transaction:
+	case op_service_info:
+	case op_info_sql:
+		port->info(op, &receive->p_info, send);
+		break;
+
+	case op_que_events:
+		port->que_events(&receive->p_event, send);
+		break;
+
+	case op_cancel_events:
+		cancel_events(port, &receive->p_event, send);
+		break;
+
+	case op_connect_request:
+		aux_request(port, &receive->p_req, send);
+		break;
+
+	case op_aux_connect:
+		aux_connect(port, &receive->p_req, send);
+		break;
+
+	case op_ddl:
+		port->ddl(&receive->p_ddl, send);
+		break;
+
+	case op_get_slice:
+		port->get_slice(&receive->p_slc, send);
+		break;
+
+	case op_put_slice:
+		port->put_slice(&receive->p_slc, send);
+		break;
+
+	case op_allocate_statement:
+		allocate_statement(port, &receive->p_rlse, send);
+		break;
+
+	case op_execute:
+	case op_execute2:
+		port->execute_statement(op, &receive->p_sqldata, send);
+		break;
+
+	case op_exec_immediate:
+	case op_exec_immediate2:
+		port->execute_immediate(op, &receive->p_sqlst, send);
+		break;
+
+	case op_fetch:
+		port->fetch(&receive->p_sqldata, send);
+		break;
+
+	case op_free_statement:
+		port->end_statement(&receive->p_sqlfree, send);
+		break;
+
+	case op_insert:
+		port->insert(&receive->p_sqldata, send);
+		break;
+
+	case op_prepare_statement:
+		port->prepare_statement(&receive->p_sqlst, send);
+		break;
+
+	case op_set_cursor:
+		port->set_cursor(&receive->p_sqlcur, send);
+		break;
+
+	case op_dummy:
+		send->p_operation = op_dummy;
+		port->send(send);
+		break;
+
+	default:
+		sprintf(msg, "SERVER/process_packet: don't understand packet type %d",
+				receive->p_operation);
+		gds__log(msg, 0);
+		port->port_state = state_broken;
+		break;
+	}
+
+	if (port && port->port_state == state_broken) {
+		if (!port->port_parent) {
+			gds__log("SERVER/process_packet: broken port, server exiting", 0);
+			port->disconnect();
+			THD_restore_specific();
+			return FALSE;
+		}
+		port->disconnect(send, receive);
+		port = NULL;
+	}
+
+	if (result)
+		*result = port;
+
+	THD_restore_specific();
+
+	return TRUE;
+}
+
+
+STATUS port::put_segment(P_OP op, P_SGMT * segment, PACKET* send)
+{
+/**************************************
+ *
+ *	p u t _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a single blob segment.
+ *
+ **************************************/
+	RBL blob;
+	USHORT length;
+	UCHAR *p, *end;
+	STATUS status_vector[20];
+
+	CHECK_HANDLE_MEMBER(blob,
+						RBL,
+						type_rbl,
+						segment->p_sgmt_blob,
+						isc_bad_segstr_handle);
+
+	p = segment->p_sgmt_segment.cstr_address;
+	length = segment->p_sgmt_segment.cstr_length;
+
+/* Do the signal segment version.  If it failed, just pass on the
+   bad news. */
+
+	if (op == op_put_segment) {
+		THREAD_EXIT;
+		isc_put_segment(status_vector,
+						reinterpret_cast <
+						void **>(GDS_REF(blob->rbl_handle)), length,
+						reinterpret_cast < char *>(GDS_VAL(p)));
+		THREAD_ENTER;
+		return this->send_response(send, 0, 0, status_vector);
+	}
+
+/* We've got a batch of segments.  This is only slightly more complicated */
+
+	end = p + length;
+
+	while (p < end) {
+		length = *p++;
+		length += *p++ << 8;
+		THREAD_EXIT;
+		isc_put_segment(status_vector,
+						reinterpret_cast <
+						void **>(GDS_REF(blob->rbl_handle)), length,
+						reinterpret_cast < char *>(GDS_VAL(p)));
+		THREAD_ENTER;
+		if (status_vector[1])
+			return this->send_response(send, 0, 0, status_vector);
+		p += length;
+	}
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::put_slice(P_SLC * stuff, PACKET* send)
+{
+/**************************************
+ *
+ *	p u t _ s l i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put an array slice.
+ *
+ **************************************/
+	RDB rdb;
+	RTR transaction;
+	STATUS status_vector[20];
+
+	CHECK_HANDLE_MEMBER(transaction,
+						RTR,
+						type_rtr,
+						stuff->p_slc_transaction,
+						isc_bad_trans_handle);
+
+	rdb = this->port_context;
+
+	THREAD_EXIT;
+	send->p_resp.p_resp_blob_id = stuff->p_slc_id;
+	isc_put_slice(status_vector,
+				  reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)),
+				  reinterpret_cast<void**>(GDS_REF(transaction->rtr_handle)),
+				  (GDS_QUAD *) GDS_REF(send->p_resp.p_resp_blob_id),
+				  stuff->p_slc_sdl.cstr_length,
+				  reinterpret_cast<char*>(GDS_VAL(stuff->p_slc_sdl.cstr_address)),
+				  stuff->p_slc_parameters.cstr_length,
+				  (ISC_LONG *) GDS_VAL(stuff->p_slc_parameters.cstr_address),
+				  stuff->p_slc_slice.lstr_length,
+				  GDS_VAL(stuff->p_slc_slice.lstr_address));
+	THREAD_ENTER;
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::que_events(P_EVENT * stuff, PACKET* send)
+{
+/**************************************
+ *
+ *	q u e _ e v e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	RDB rdb;
+	RVNT event;
+	SLONG id;
+
+	rdb = this->port_context;
+
+/* Find unused event block or, if necessary, a new one */
+
+	for (event = rdb->rdb_events; event; event = event->rvnt_next) {
+		if (!event->rvnt_id) {
+			break;
+		}
+	}
+
+	if (!event)
+	{
+		event = (RVNT) ALLOC(type_rvnt);
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("que_events(server)        allocate event   %x\n", event);
+#endif
+		event->rvnt_next = rdb->rdb_events;
+		rdb->rdb_events = event;
+	}
+
+	event->rvnt_ast =
+		reinterpret_cast<void(*)(void*, USHORT, UCHAR*)>(stuff->p_event_ast);
+	event->rvnt_arg = (void *) stuff->p_event_arg;
+	event->rvnt_rid = stuff->p_event_rid;
+	event->rvnt_rdb = rdb;
+
+	THREAD_EXIT;
+	isc_que_events(status_vector,
+				   reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)),
+				   GDS_REF(event->rvnt_id),
+				   stuff->p_event_items.cstr_length,
+				   GDS_VAL(stuff->p_event_items.cstr_address),
+				   reinterpret_cast<void (*)()>(server_ast),
+				   GDS_VAL(event));
+	THREAD_ENTER;
+
+	id = event->rvnt_id;
+	if (status_vector[1]) {
+		event->rvnt_id = 0;
+	}
+
+	return this->send_response(send, (OBJCT) id, 0, status_vector);
+}
+
+
+STATUS port::receive_after_start(	P_DATA*	data,
+									PACKET*	send,
+									STATUS*	status_vector)
+{
+/**************************************
+ *
+ *	r e c e i v e _ a f t e r _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message.
+ *
+ **************************************/
+	RRQ request;
+	USHORT level, msg_number;
+	FMT format;
+	P_RESP *response;
+	rrq::rrq_repeat* tail;
+
+	CHECK_HANDLE_MEMBER(request,
+						RRQ,
+						type_rrq,
+						data->p_data_request,
+						isc_bad_req_handle);
+
+	level = data->p_data_incarnation;
+	request = REMOTE_find_request(request, level);
+
+/* Figure out the number of the message that we're stalled on. */
+
+	if (!get_next_msg_no(request, level, &msg_number)) {
+		return this->send_response(send, 0, 0, status_vector);
+	}
+
+	send->p_operation = op_response_piggyback;
+	response = &send->p_resp;
+	response->p_resp_object = msg_number;
+	response->p_resp_status_vector = status_vector;
+	response->p_resp_data.cstr_length = 0;
+
+	this->send_partial(send);
+
+/* Fill in packet to fool receive into thinking that it has been
+   called directly by the client. */
+
+	tail = request->rrq_rpt + msg_number;
+	format = tail->rrq_format;
+
+	data->p_data_message_number = msg_number;
+	if (this->port_flags & PORT_rpc)
+	{
+		data->p_data_messages = 1;
+	}
+	else
+	{
+		data->p_data_messages =
+			(USHORT) REMOTE_compute_batch_size(this,
+											   (USHORT)
+											   xdr_protocol_overhead
+											   (op_response_piggyback),
+											   op_send,
+											   format);
+	}
+
+	return this->receive_msg(data, send);
+}
+
+
+STATUS port::receive_msg(P_DATA * data, PACKET* send)
+{
+/**************************************
+ *
+ *	r e c e i v e _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message.
+ *
+ **************************************/
+
+	STATUS status_vector[20];
+	MSG message, next, prior;
+	RRQ request;
+	FMT format;
+	USHORT msg_number, count, count2, level;
+
+#ifdef SCROLLABLE_CURSORS
+	USHORT direction;
+	ULONG offset;
+#endif
+
+	rrq::rrq_repeat* tail;
+
+/* Find the database, request, message number, and the number of 
+   messages the client is willing to cope with.  Then locate the
+   message control block for the request and message type. */
+
+	CHECK_HANDLE_MEMBER(request,
+						RRQ,
+						type_rrq,
+						data->p_data_request,
+						isc_bad_req_handle);
+
+	level = data->p_data_incarnation;
+	request = REMOTE_find_request(request, level);
+	msg_number = data->p_data_message_number;
+	count2 = count =
+		(this->port_flags & PORT_rpc) ? 1 : data->p_data_messages;
+	tail = request->rrq_rpt + msg_number;
+	format = tail->rrq_format;
+
+/* Get ready to ship the data out */
+
+	send->p_operation = op_send;
+	send->p_data.p_data_request = data->p_data_request;
+	send->p_data.p_data_message_number = msg_number;
+	send->p_data.p_data_incarnation = level;
+	send->p_data.p_data_messages = 1;
+
+#ifdef SCROLLABLE_CURSORS
+/* check the direction and offset for possible redirection; if the user 
+   scrolls in a direction other than we were going or an offset other 
+   than 1, then we need to resynchronize: 
+   if the direction is the same as the lookahead cache, scroll forward 
+   through the cache to see if we find the record; otherwise scroll the 
+   next layer down backward by an amount equal to the number of records 
+   in the cache, plus the amount asked for by the next level up */
+
+	if (this->port_protocol < PROTOCOL_SCROLLABLE_CURSORS)
+	{
+		direction = blr_forward;
+		offset = 1;
+	}
+	else
+	{
+		direction = data->p_data_direction;
+		offset = data->p_data_offset;
+		tail->rrq_xdr = scroll_cache(tail, &direction, &offset);
+	}
+#endif
+
+/* Check to see if any messages are already sitting around */
+
+	while (TRUE) {
+		message = tail->rrq_xdr;
+
+		/* If we don't have a message cached, get one from the next layer down. */
+
+		if (!message->msg_address) {
+			/* If we have an error queued for delivery, send it now */
+
+			if (request->rrq_status_vector[1]) {
+				STATUS res;
+				res =
+					this->send_response(send, 0, 0,
+								  request->rrq_status_vector);
+				memset(request->rrq_status_vector, 0,
+					   sizeof(request->rrq_status_vector));
+				return res;
+			}
+
+			THREAD_EXIT;
+#ifdef SCROLLABLE_CURSORS
+			isc_receive2(status_vector,
+						 GDS_REF(request->rrq_handle),
+						 msg_number,
+						 format->fmt_length,
+						 message->msg_buffer, level, direction, offset);
+#else
+			isc_receive(status_vector,
+						reinterpret_cast<void**>(GDS_REF(request->rrq_handle)),
+						msg_number,
+						format->fmt_length,
+						message->msg_buffer,
+						level);
+#endif
+			THREAD_ENTER;
+			if (status_vector[1])
+				return this->send_response(send, 0, 0, status_vector);
+
+#ifdef SCROLLABLE_CURSORS
+			/* set the appropriate flags according to the way we just scrolled 
+			   the next layer down, and calculate the offset from the beginning 
+			   of the result set */
+
+			switch (direction) {
+			case blr_forward:
+				tail->rrq_flags &= ~RRQ_backward;
+				tail->rrq_absolute +=
+					(tail->
+					 rrq_flags & RRQ_absolute_backward) ? -offset : offset;
+				break;
+
+			case blr_backward:
+				tail->rrq_flags |= RRQ_backward;
+				tail->rrq_absolute +=
+					(tail->
+					 rrq_flags & RRQ_absolute_backward) ? offset : -offset;
+				break;
+
+			case blr_bof_forward:
+				tail->rrq_flags &= ~RRQ_backward;
+				tail->rrq_flags &= ~RRQ_absolute_backward;
+				tail->rrq_absolute = offset;
+				direction = blr_forward;
+				break;
+
+			case blr_eof_backward:
+				tail->rrq_flags |= RRQ_backward;
+				tail->rrq_flags |= RRQ_absolute_backward;
+				tail->rrq_absolute = offset;
+				direction = blr_backward;
+				break;
+			}
+
+			message->msg_absolute = tail->rrq_absolute;
+
+			/* if we have already scrolled to the location indicated, 
+			   then we just want to continue one by one in that direction */
+
+			offset = 1;
+#endif
+
+			message->msg_address = message->msg_buffer;
+		}
+
+		/* If there aren't any buffers remaining, break out of loop */
+
+		if (--count <= 0)
+			break;
+
+		/* There's a buffer waiting -- see if the request is ready to send */
+
+		next = message->msg_next;
+
+		if ((next == message || !next->msg_address) &&
+			!check_request(request, data->p_data_incarnation, msg_number)) {
+			/* We've reached the end of the RSE - don't prefetch and flush
+			   everything we've buffered so far */
+
+			count2 = 0;
+			break;
+		}
+
+		if (!this->send_partial(send))
+			return FALSE;
+		message->msg_address = NULL;
+	}
+
+	send->p_data.p_data_messages = 0;
+	this->send(send);
+	message->msg_address = NULL;
+
+/* Bump up the message pointer to resync with rrq_xdr (rrq_xdr 
+   was incremented by xdr_request in the SEND call).  */
+
+	tail->rrq_message = message->msg_next;
+
+/* Since we have a little time on our hands while this packet is sent
+   and processed, get the next batch of records.  Start by finding the
+   next free buffer. */
+
+	message = tail->rrq_xdr;
+	prior = NULL;
+
+	while (message->msg_address && message->msg_next != tail->rrq_xdr)
+		message = message->msg_next;
+
+	for (;
+		 count2
+		 && check_request(request, data->p_data_incarnation, msg_number);
+		 --count2) {
+		if (message->msg_address) {
+			if (!prior)
+#ifdef SCROLLABLE_CURSORS
+				prior = message->msg_prior;
+#else
+				for (prior = tail->rrq_xdr; prior->msg_next != message;
+					 prior = prior->msg_next);
+#endif
+
+			/* allocate a new message block and put it in the cache */
+
+			message = (MSG) ALLOCV(type_msg, format->fmt_length);
+#ifdef REMOTE_DEBUG_MEMORY
+			ib_printf("receive_msg(server)       allocate message %x\n",
+					  message);
+#endif
+			message->msg_number = prior->msg_number;
+			message->msg_next = prior->msg_next;
+#ifdef SCROLLABLE_CURSORS
+			message->msg_prior = prior;
+#endif
+
+			prior->msg_next = message;
+			prior = message;
+		}
+
+		/* fetch the next record into cache; even for scrollable cursors, we are 
+		   just doing a simple lookahead continuing on in the last direction specified, 
+		   so there is no reason to do an isc_receive2() */
+
+		THREAD_EXIT;
+		isc_receive(status_vector,
+					reinterpret_cast<void**>(GDS_REF(request->rrq_handle)),
+					msg_number,
+					format->fmt_length,
+					message->msg_buffer, data->p_data_incarnation);
+		THREAD_ENTER;
+
+		/* Did we have an error?  If so, save it for later delivery */
+
+		if (status_vector[1]) {
+			/* If already have an error queued, don't overwrite it */
+
+			if (!request->rrq_status_vector[1]) {
+				memcpy(request->rrq_status_vector, status_vector,
+					   sizeof(request->rrq_status_vector));
+			}
+			break;
+		}
+
+#ifdef SCROLLABLE_CURSORS
+		/* if we have already scrolled to the location indicated, 
+		   then we just want to continue on in that direction */
+
+		switch (direction)
+		{
+		case blr_forward:
+			tail->rrq_absolute +=
+				(tail->rrq_flags & RRQ_absolute_backward) ? -offset : offset;
+			break;
+
+		case blr_backward:
+			tail->rrq_absolute +=
+				(tail->rrq_flags & RRQ_absolute_backward) ? offset : -offset;
+			break;
+		}
+
+		message->msg_absolute = tail->rrq_absolute;
+#endif
+
+		message->msg_address = message->msg_buffer;
+		message = message->msg_next;
+	}
+
+	return TRUE;
+}
+
+
+static void release_blob(RBL blob)
+{
+/**************************************
+ *
+ *	r e l e a s e _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a blob block and friends.
+ *
+ **************************************/
+
+	RDB rdb = blob->rbl_rdb;
+	RTR transaction = blob->rbl_rtr;
+
+	rdb->rdb_port->port_objects[blob->rbl_id] = NULL;
+
+	for (RBL* p = &transaction->rtr_blobs; *p; p = &(*p)->rbl_next) {
+		if (*p == blob) {
+			*p = blob->rbl_next;
+			break;
+		}
+	}
+
+#ifdef REMOTE_DEBUG_MEMORY
+	ib_printf("release_blob(server)      free blob        %x\n", blob);
+#endif
+	if (blob->rbl_buffer != blob->rbl_data) {
+		ALLR_free(blob->rbl_buffer);
+	}
+	ALLR_release(blob);
+}
+
+
+static void release_event( RVNT event)
+{
+/**************************************
+ *
+ *	r e l e a s e _ e v e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an event block.
+ *
+ **************************************/
+	RDB rdb;
+	RVNT *p;
+
+	rdb = event->rvnt_rdb;
+
+	for (p = &rdb->rdb_events; *p; p = &(*p)->rvnt_next)
+		if (*p == event) {
+			*p = event->rvnt_next;
+			break;
+		}
+
+	ALLR_release(event);
+}
+
+
+static void release_request( RRQ request)
+{
+/**************************************
+ *
+ *	r e l e a s e _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a request block.
+ *
+ **************************************/
+	RDB rdb;
+
+	rdb = request->rrq_rdb;
+	rdb->rdb_port->port_objects[request->rrq_id] = NULL;
+	REMOTE_release_request(request);
+}
+
+
+static void release_statement( RSR * statement)
+{
+/**************************************
+ *
+ *	r e l e a s e _ s t a t e m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a GDML or SQL statement?
+ *
+ **************************************/
+	if ((*statement)->rsr_select_format)
+		ALLR_release((*statement)->rsr_select_format);
+	if ((*statement)->rsr_bind_format)
+		ALLR_release((*statement)->rsr_bind_format);
+	REMOTE_release_messages((*statement)->rsr_message);
+	ALLR_release((*statement));
+	*statement = NULL;
+}
+
+
+static void release_sql_request( RSR statement)
+{
+/**************************************
+ *
+ *	r e l e a s e _ s q l _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release an SQL request block.
+ *
+ **************************************/
+	RDB rdb;
+	RSR *p;
+
+	rdb = statement->rsr_rdb;
+	rdb->rdb_port->port_objects[statement->rsr_id] = NULL;
+
+	for (p = &rdb->rdb_sql_requests; *p; p = &(*p)->rsr_next)
+		if (*p == statement) {
+			*p = statement->rsr_next;
+			break;
+		}
+
+	release_statement(&statement);
+}
+
+
+static void release_transaction( RTR transaction)
+{
+/**************************************
+ *
+ *	r e l e a s e _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release a transaction block and friends.
+ *
+ **************************************/
+	RDB rdb;
+	RTR *p;
+
+	rdb = transaction->rtr_rdb;
+	rdb->rdb_port->port_objects[transaction->rtr_id] = NULL;
+
+	while (transaction->rtr_blobs)
+		release_blob(transaction->rtr_blobs);
+
+	for (p = &rdb->rdb_transactions; *p; p = &(*p)->rtr_next)
+		if (*p == transaction) {
+			*p = transaction->rtr_next;
+			break;
+		}
+
+#ifdef REMOTE_DEBUG_MEMORY
+	ib_printf("release_transact(server)  free transaction %x\n", transaction);
+#endif
+	ALLR_release(transaction);
+}
+
+
+#ifdef SCROLLABLE_CURSORS
+static MSG scroll_cache(
+						rrq::rrq_repeat* tail,
+						USHORT * direction, ULONG * offset)
+{
+/**************************************
+ *
+ *	s c r o l l _ c a c h e
+ *
+ **************************************
+ *
+ * Functional description
+ *	
+ * Try to fetch the requested record from cache, if possible.  This algorithm depends 
+ * on all scrollable cursors being INSENSITIVE to database changes, so that absolute 
+ * record numbers within the result set will remain constant. 
+ *
+ *  1.  BOF Forward or EOF Backward:  Retain the record number of the offset from the 
+ *      beginning or end of the result set.  If we can figure out the relative offset 
+ *      from the absolute, then scroll to it.  If it's in cache, great, otherwise dump 
+ *      the cache and have the server scroll the correct number of records. 
+ *
+ *  2.  Forward or Backward:  Try to scroll the desired offset in cache.  If we  
+ *      scroll off the end of the cache, dump the cache and ask the server for a 
+ *      packetful of records.  
+ *
+ *  This routine differs from the corresponding routine on the client in that 
+ *  we are using only a lookahead cache.  There is no point in caching records backward, 
+ *  in that the client already has them and would not request them from us. 
+ *
+ **************************************/
+	MSG message;
+
+/* if we are to continue in the current direction, set direction to 
+   the last direction scrolled; then depending on the direction asked 
+   for, save the last direction asked for by the next layer above */
+
+	if (*direction == blr_continue) {
+		if (tail->rrq_flags & RRQ_last_backward)
+			*direction = blr_backward;
+		else
+			*direction = blr_forward;
+	}
+
+	if (*direction == blr_forward || *direction == blr_bof_forward)
+		tail->rrq_flags &= ~RRQ_last_backward;
+	else
+		tail->rrq_flags |= RRQ_last_backward;
+
+/* set to the first message; if it has no record, this means the cache is 
+   empty and there is no point in trying to find the record here */
+
+	message = tail->rrq_xdr;
+	if (!message->msg_address)
+		return message;
+
+/* if we are scrolling from BOF and the cache was started from EOF (or vice 
+   versa), the cache is unusable. */
+
+	if (
+		(*direction == blr_bof_forward
+		 && (tail->rrq_flags & RRQ_absolute_backward))
+		|| (*direction == blr_eof_backward
+			&& !(tail->
+				 rrq_flags & RRQ_absolute_backward))) return dump_cache(tail);
+
+/* if we are going to an absolute position, see if we can find that position 
+   in cache, otherwise change to a relative seek from our former position */
+
+	if (*direction == blr_bof_forward || *direction == blr_eof_backward) {
+		/* If offset is before our current position, just dump the cache because 
+		   the server cache is purely a lookahead cache--we don't bother to cache 
+		   back records because the client will cache those records, making it 
+		   unlikely the client would be asking us for a record which is in our cache. */
+
+		if (*offset < message->msg_absolute)
+			return dump_cache(tail);
+
+		/* convert the absolute to relative, and prepare to scroll forward to look for the record */
+
+		*offset -= message->msg_absolute;
+		if (*direction == blr_bof_forward)
+			*direction = blr_forward;
+		else
+			*direction = blr_backward;
+	}
+
+	if ((*direction == blr_forward && (tail->rrq_flags & RRQ_backward)) ||
+		(*direction == blr_backward && !(tail->rrq_flags & RRQ_backward))) {
+		/* lookahead cache was in opposite direction from the scroll direction, 
+		   so increase the scroll amount by the amount we looked ahead, then 
+		   dump the cache */
+
+		for (message = tail->rrq_xdr; message->msg_address;) {
+			(*offset)++;
+			message = message->msg_next;
+			if (message == tail->rrq_message)
+				break;
+		}
+
+		return dump_cache(tail);
+	}
+	else {
+		/* lookahead cache is in same direction we want to scroll, so scroll 
+		   forward through the cache, decrementing the offset */
+
+		for (message = tail->rrq_xdr; message->msg_address;) {
+			if (*offset == 1)
+				break;
+			(*offset)--;
+			message = message->msg_next;
+			if (message == tail->rrq_message)
+				break;
+		}
+	}
+
+	return message;
+}
+#endif
+
+
+STATUS port::seek_blob(P_SEEK * seek, PACKET* send)
+{
+/**************************************
+ *
+ *	s e e k _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute a blob seek operation.
+ *
+ **************************************/
+	RBL blob;
+	SSHORT mode;
+	SLONG offset, result;
+	STATUS status_vector[20];
+
+	CHECK_HANDLE_MEMBER(blob,
+						RBL,
+						type_rbl,
+						seek->p_seek_blob,
+						isc_bad_segstr_handle);
+
+	mode = seek->p_seek_mode;
+	offset = seek->p_seek_offset;
+
+	THREAD_EXIT;
+	isc_seek_blob(status_vector,
+				  reinterpret_cast<void**>(GDS_REF(blob->rbl_handle)),
+				  mode, offset, GDS_REF(result));
+	THREAD_ENTER;
+
+	send->p_resp.p_resp_blob_id.bid_number = result;
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::send_msg(P_DATA * data, PACKET* send)
+{
+/**************************************
+ *
+ *	s e n d _ m s g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle a isc_send operation.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	RRQ request;
+	MSG message;
+	FMT format;
+	USHORT number;
+
+	CHECK_HANDLE_MEMBER(request,
+						RRQ,
+						type_rrq,
+						data->p_data_request,
+						isc_bad_req_handle);
+
+	number = data->p_data_message_number;
+	request = REMOTE_find_request(request, data->p_data_incarnation);
+	message = request->rrq_rpt[number].rrq_message;
+	format = request->rrq_rpt[number].rrq_format;
+
+	THREAD_EXIT;
+	isc_send(status_vector,
+			 reinterpret_cast<void**>(GDS_REF(request->rrq_handle)),
+			 number,
+			 format->fmt_length,
+			 GDS_VAL(message->msg_address), data->p_data_incarnation);
+	THREAD_ENTER;
+
+	message->msg_address = NULL;
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::send_response(	PACKET*	send,
+							OBJCT	object,
+							USHORT	length,
+							STATUS*	status_vector)
+{
+/**************************************
+ *
+ *	s e n d _ r e s p o n s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a response packet.
+ *
+ **************************************/
+	STATUS *v, new_vector[20], code, exit_code;
+	USHORT l, sw;
+	TEXT *p, *q, **sp, buffer[1024];
+	P_RESP *response;
+
+/* Start by translating the status vector into "generic" form */
+
+	v = new_vector;
+	p = buffer;
+	exit_code = status_vector[1];
+
+	for (sw = TRUE; *status_vector && sw;)
+	{
+		switch ((USHORT) * status_vector)
+		{
+		case isc_arg_warning:
+		case gds_arg_gds:
+			{
+				USHORT fac = 0, class_ = 0;
+
+				/* When talking with older (pre 6.0) clients, do not send
+				 * warnings.
+				 */
+
+				if (*status_vector == isc_arg_warning &&
+					this->port_protocol < PROTOCOL_VERSION10)
+				{
+					sw = FALSE;
+					continue;
+				}
+
+				*v++ = *status_vector++;
+
+				/* The status codes are converted to their offsets so that they
+				 * were compatible with the RDB implementation.  This was fine
+				 * when status codes were restricted to a single facility.  Now
+				 * that the facility is part of the status code we need to know
+				 * this on the client side, thus when talking with 6.0 and newer
+				 * clients, do not decode the status code, just send it to the
+				 * client.  The same check is made in interface.c::check_response
+				 */
+
+				if (this->port_protocol < PROTOCOL_VERSION10)
+					*v++ = code =
+						gds__decode(*status_vector++, &fac, &class_);
+				else
+					*v++ = code = *status_vector++;
+				for (;;) {
+					switch (*status_vector) {
+					case gds_arg_string:
+					case gds_arg_number:
+						*v++ = *status_vector++;
+						*v++ = *status_vector++;
+						continue;
+
+					case gds_arg_cstring:
+						*v++ = gds_arg_string;
+						sp = (TEXT **) v;
+						*sp++ = p;
+						v = (STATUS *) sp;
+						status_vector++;
+						l = (USHORT) (*status_vector++);
+						q = (TEXT *) * status_vector++;
+						if (l)
+							do
+								*p++ = *q++;
+							while (--l);
+						*p++ = 0;
+						continue;
+					}
+					break;
+				}
+			}
+			continue;
+
+		case gds_arg_interpreted:
+			*v++ = *status_vector++;
+			*v++ = *status_vector++;
+			continue;
+		}
+		l = (USHORT) gds__interprete(p, &status_vector);
+		if (l == 0)
+			break;
+		*v++ = gds_arg_interpreted;
+		sp = (TEXT **) v;
+		*sp++ = p;
+		v = (STATUS *) sp;
+		p += l;
+		sw = FALSE;
+	}
+
+	*v = gds_arg_end;
+
+/* Format and send response.  Note: the blob_id and data address fields
+   of the response packet may contain valid data.  Don't trash them. */
+
+	send->p_operation = op_response;
+	response = &send->p_resp;
+	response->p_resp_object = object;
+	response->p_resp_status_vector = new_vector;
+	response->p_resp_data.cstr_length = length;
+
+	this->send(send);
+
+	return exit_code;
+}
+
+
+static void server_ast( RVNT event, USHORT length, UCHAR * items)
+{
+/**************************************
+ *
+ *	s e r v e r _ a s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send an asynchrous event packet to back to client.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	PACKET packet;
+	P_EVENT *p_event;
+
+	THREAD_ENTER;
+	event->rvnt_id = 0;
+	rdb = event->rvnt_rdb;
+
+	if (!(port = rdb->rdb_port->port_async)) {
+		THREAD_EXIT;
+		return;
+	}
+
+	packet.p_operation = op_event;
+	p_event = &packet.p_event;
+	p_event->p_event_database = rdb->rdb_id;
+	p_event->p_event_items.cstr_length = length;
+	p_event->p_event_items.cstr_address = items;
+	p_event->p_event_ast = (SLONG) event->rvnt_ast;
+	p_event->p_event_arg = (SLONG) event->rvnt_arg;
+	p_event->p_event_rid = event->rvnt_rid;
+
+	port->send(&packet);
+	THREAD_EXIT;
+}
+
+
+STATUS port::service_attach(P_ATCH* attach, PACKET* send)
+{
+/**************************************
+ *
+ *	s e r v i c e _ a t t a c h 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connect to an Interbase service.
+ *
+ **************************************/
+	USHORT service_length, spb_length;
+	UCHAR *service_name, *spb, new_spb_buffer[512], *new_spb, *p, *end;
+	int *handle;
+	STATUS status_vector[20];
+	RDB rdb;
+	STR string;
+
+	send->p_operation = op_accept;
+	handle = NULL;
+	service_name = attach->p_atch_file.cstr_address;
+	service_length = attach->p_atch_file.cstr_length;
+	spb = attach->p_atch_dpb.cstr_address;
+	spb_length = attach->p_atch_dpb.cstr_length;
+
+/* If we have user identification, append it to database parameter block */
+
+	new_spb = new_spb_buffer;
+	if (string = this->port_user_name)
+	{
+		if ((spb_length + 3 + string->str_length) > sizeof(new_spb_buffer))
+			new_spb =
+				ALLR_alloc((SLONG) (spb_length + 3 + string->str_length));
+		p = new_spb;
+		if (spb_length)
+			for (end = spb + spb_length; spb < end;)
+				*p++ = *spb++;
+		else
+			*p++ = isc_spb_current_version;
+
+		*p++ = isc_spb_sys_user_name;
+		*p++ = (UCHAR) string->str_length;
+		for (spb = (UCHAR *) string->str_data, end = spb + string->str_length;
+			 spb < end;)
+			*p++ = *spb++;
+		spb = new_spb;
+		spb_length = p - new_spb;
+	}
+
+/* See if user has specified parameters relevent to the connection,
+   they will be stuffed in the SPB if so. */
+	REMOTE_get_timeout_params(this, spb, spb_length);
+
+	THREAD_EXIT;
+	isc_service_attach(status_vector,
+					   service_length,
+					   reinterpret_cast<char*>(service_name),
+					   reinterpret_cast<void**>(&handle),
+					   spb_length,
+					   reinterpret_cast<char*>(spb));
+	THREAD_ENTER;
+
+	if (new_spb != new_spb_buffer)
+		ALLR_free(new_spb);
+
+	if (!status_vector[1]) {
+		this->port_context = rdb = (RDB) ALLOC(type_rdb);
+#ifdef REMOTE_DEBUG_MEMORY
+		ib_printf("attach_service(server)  allocate rdb     %x\n", rdb);
+#endif
+		rdb->rdb_port = this;
+		rdb->rdb_handle = handle;
+		rdb->rdb_flags |= RDB_service;
+	}
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::service_end(P_RLSE * release, PACKET* send)
+{
+/**************************************
+ *
+ *	s e r v i c e _ e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Close down a service.
+ *
+ **************************************/
+
+	STATUS status_vector[20];
+
+	RDB rdb = this->port_context;
+
+	THREAD_EXIT;
+	isc_service_detach(status_vector,
+					   reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)));
+	THREAD_ENTER;
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::service_start(P_INFO * stuff, PACKET* send)
+{
+/**************************************
+ *
+ *	s e r v i c e _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a service on the server
+ *
+ **************************************/
+	RDB rdb;
+	STATUS status_vector[20];
+	ULONG *reserved = 0;		/* reserved for future use */
+
+	rdb = this->port_context;
+
+	THREAD_EXIT;
+	isc_service_start(status_vector,
+					  reinterpret_cast<void**>(&rdb->rdb_handle),
+					  reinterpret_cast<long*>(reserved),
+					  stuff->p_info_items.cstr_length,
+					  reinterpret_cast<char*>(stuff->p_info_items.cstr_address));
+	THREAD_ENTER;
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::set_cursor(P_SQLCUR * sqlcur, PACKET* send)
+{
+/*****************************************
+ *
+ *	s e t _ c u r s o r
+ *
+ *****************************************
+ *
+ * Functional description
+ *	Set a cursor name for a dynamic request.
+ *
+ *****************************************/
+	RSR statement;
+	STATUS status_vector[20];
+
+	CHECK_HANDLE_MEMBER(statement,
+						RSR,
+						type_rsr,
+						sqlcur->p_sqlcur_statement,
+						isc_bad_req_handle);
+
+	THREAD_EXIT;
+	GDS_DSQL_SET_CURSOR(status_vector,
+						reinterpret_cast<void**>(&statement->rsr_handle),
+						reinterpret_cast<char*>(sqlcur->p_sqlcur_cursor_name.cstr_address),
+						sqlcur->p_sqlcur_type);
+	THREAD_ENTER;
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+void set_server( PORT port, USHORT flags)
+{
+/**************************************
+ *
+ *	s e t _ s e r v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up the server for this type
+ *	of port.  If one doesn't exist,
+ *	create it.
+ *
+ **************************************/
+	SRVR server;
+
+	for (server = servers; server; server = server->srvr_next) {
+		if (port->port_type == server->srvr_port_type) {
+			break;
+		}
+	}
+
+	if (!server) {
+		server = (SRVR) ALLR_alloc((SLONG) sizeof(struct srvr));
+		server->srvr_next = servers;
+		servers = server;
+		server->srvr_port_type = port->port_type;
+		server->srvr_parent_port = port;
+		server->srvr_flags = flags;
+	}
+
+	port->port_server = server;
+}
+
+
+STATUS port::start(P_OP operation, P_DATA * data, PACKET* send)
+{
+/**************************************
+ *
+ *	s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	RRQ request;
+	RTR transaction;
+
+	CHECK_HANDLE_MEMBER(transaction,
+						RTR,
+						type_rtr,
+						data->p_data_transaction,
+						isc_bad_trans_handle);
+
+	CHECK_HANDLE_MEMBER(request,
+						RRQ,
+						type_rrq,
+						data->p_data_request,
+						isc_bad_req_handle);
+
+	request = REMOTE_find_request(request, data->p_data_incarnation);
+	REMOTE_reset_request(request, 0);
+
+	THREAD_EXIT;
+	isc_start_request(status_vector,
+					  reinterpret_cast<void**>(GDS_REF(request->rrq_handle)),
+					  reinterpret_cast<void**>(GDS_REF(transaction->rtr_handle)),
+					  data->p_data_incarnation);
+	THREAD_ENTER;
+
+	if (!status_vector[1]) {
+		request->rrq_rtr = transaction;
+		if (operation == op_start_and_receive)
+			return this->receive_after_start(data, send, status_vector);
+	}
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::start_and_send(P_OP	operation,
+							P_DATA*	data,
+							PACKET*	send)
+{
+/**************************************
+ *
+ *	s t a r t _ a n d _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	RRQ request;
+	MSG message;
+	FMT format;
+	RTR transaction;
+	USHORT number;
+
+	CHECK_HANDLE_MEMBER(transaction,
+						RTR,
+						type_rtr,
+						data->p_data_transaction,
+						isc_bad_trans_handle);
+
+	CHECK_HANDLE_MEMBER(request,
+						RRQ,
+						type_rrq,
+						data->p_data_request,
+						isc_bad_req_handle);
+
+	request = REMOTE_find_request(request, data->p_data_incarnation);
+	number = data->p_data_message_number;
+	message = request->rrq_rpt[number].rrq_message;
+	format = request->rrq_rpt[number].rrq_format;
+	REMOTE_reset_request(request, message);
+
+	THREAD_EXIT;
+	isc_start_and_send(status_vector,
+					   reinterpret_cast<void**>(GDS_REF(request->rrq_handle)),
+					   reinterpret_cast<void**>(GDS_REF(transaction->rtr_handle)),
+					   number,
+					   format->fmt_length,
+					   GDS_VAL(message->msg_address),
+					   data->p_data_incarnation);
+	THREAD_ENTER;
+
+	if (!status_vector[1]) {
+		request->rrq_rtr = transaction;
+		if (operation == op_start_send_and_receive) {
+			return this->receive_after_start(data, send, status_vector);
+		}
+	}
+
+	return this->send_response(send, 0, 0, status_vector);
+}
+
+
+STATUS port::start_transaction(P_OP operation, P_STTR * stuff, PACKET* send)
+{
+/**************************************
+ *
+ *	s t a r t _ t r a n s a c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a transaction.
+ *
+ **************************************/
+
+	RTR transaction;
+	OBJCT object;
+	STATUS status_vector[20];
+
+	RDB rdb = this->port_context;
+	int* handle = NULL;
+
+	THREAD_EXIT;
+	if (operation == op_reconnect)
+		isc_reconnect_transaction(status_vector,
+								  reinterpret_cast<void**>(GDS_REF(rdb->rdb_handle)),
+								  reinterpret_cast<void**>(GDS_REF(handle)),
+								  stuff->p_sttr_tpb.cstr_length,
+								  reinterpret_cast<char*>(GDS_VAL(stuff->p_sttr_tpb.cstr_address)));
+	else
+		isc_start_transaction(status_vector,
+							  reinterpret_cast<void**>(GDS_REF(handle)),
+							  (SSHORT) 1, GDS_REF(rdb->rdb_handle),
+							  stuff->p_sttr_tpb.cstr_length,
+							  GDS_VAL(stuff->p_sttr_tpb.cstr_address));
+	THREAD_ENTER;
+
+	if (status_vector[1])
+	{
+		object = 0;
+	}
+	else
+	{
+		if (transaction = make_transaction(rdb, handle))
+		{
+			object = transaction->rtr_id;
+			if (operation == op_reconnect)
+				transaction->rtr_flags |= RTR_limbo;
+#ifdef REMOTE_DEBUG_MEMORY
+			ib_printf("start_transaction(server) allocate trans   %x\n",
+					  transaction);
+#endif
+		}
+		else {
+			object = 0;
+			THREAD_EXIT;
+			if (operation != op_reconnect)
+				isc_rollback_transaction(status_vector,
+										 reinterpret_cast<void**>(GDS_REF(handle)));
+#ifdef SUPERSERVER
+			/* Note that there is an underlying transaction pool
+			   that won't be released until this connection is
+			   detached. There is no isc_disconnect_transaction()
+			   call that gets rid of a transaction reference --
+			   there is only commit and rollback. It's not worth
+			   introducing such a call to all subsystems. At least
+			   release the y-valve handle. */
+
+			else {
+				gds__handle_cleanup(status_vector,
+									(struct hndl **) GDS_REF(handle));
+			}
+#endif
+			THREAD_ENTER;
+			status_vector[0] = isc_arg_gds;
+			status_vector[1] = isc_too_many_handles;
+			status_vector[2] = isc_arg_end;
+		}
+	}
+
+	return this->send_response(send, object, 0, status_vector);
+}
+
+
+static void success( STATUS * status_vector)
+{
+/**************************************
+ *
+ *	s u c c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set status vector to indicate success.
+ *
+ **************************************/
+
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = SUCCESS;
+	status_vector[2] = gds_arg_end;
+}
+
+
+static int THREAD_ROUTINE thread( void *flags)
+{
+/**************************************
+ *
+ *	t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Execute requests in a happy loop.
+ *
+ **************************************/
+	SERVER_REQ request, next, *req_ptr;
+	PORT port, parent_port;
+	SLONG value;
+	EVENT ptr;
+	SCHAR *thread;
+	USHORT inactive_count;
+	USHORT timedout_count;
+
+#ifdef SUPERSERVER
+	ISC_enter();				/* Setup floating point exception handler once and for all. */
+#endif
+
+#ifdef WIN_NT
+	if (!((SLONG) flags & SRVR_non_service))
+		thread = reinterpret_cast<SCHAR*>(CNTL_insert_thread());
+#endif
+
+	inactive_count = 0;
+	timedout_count = 0;
+	THREAD_ENTER;
+
+	for (;;) {
+		value = ISC_event_clear(thread_event);
+		if (request = request_que) {
+			inactive_count = 0;
+			timedout_count = 0;
+			request_que = request->req_next;
+			while (request) {
+				/* Bind a thread to a port. */
+
+				if (request->req_port->
+					port_server_flags & SRVR_thread_per_port) {
+					port = request->req_port;
+					request->req_next = free_requests;
+					free_requests = request;
+					THREAD_EXIT;
+					SRVR_main(port, port->port_server_flags);
+					THREAD_ENTER;
+					request = 0;
+					continue;
+				}
+				/* Splice request into list of active requests, execute request,
+				   and unsplice */
+
+				request->req_next = active_requests;
+				active_requests = request;
+
+				/* Validate port.  If it looks ok, process request */
+
+				parent_port =
+					request->req_port->port_server->srvr_parent_port;
+				if (parent_port == request->req_port) {
+					process_packet(parent_port, &request->req_send,
+								   &request->req_receive, &port);
+				}
+				else
+					for (port = parent_port->port_clients; port;
+						 port = port->port_next)
+
+						if (port == request->req_port
+							&& port->port_state != state_disconnected) {
+							process_packet(port, &request->req_send,
+										   &request->req_receive, &port);
+							break;
+						}
+
+				/* Take request out of list of active requests */
+
+				for (req_ptr = &active_requests; *req_ptr;
+					 req_ptr = &(*req_ptr)->req_next)
+					if (*req_ptr == request) {
+						*req_ptr = request->req_next;
+						break;
+					}
+
+				/* If this is a explicit or implicit disconnect, get rid of
+				   any chained requests */
+
+				if (!port) {
+					while (next = request->req_chain) {
+						request->req_chain = next->req_chain;
+						next->req_next = free_requests;
+						free_requests = next;
+					}
+					if (request->req_send.p_operation == op_void &&
+						request->req_receive.p_operation == op_void) {
+						gds__free(request);
+						request = 0;
+					}
+				}
+				else {
+					port->port_requests_queued--;
+#ifdef REMOTE_DEBUG_MEMORY
+					ib_printf("thread    ACTIVE     request_queued %d\n",
+							  port->port_requests_queued);
+					ib_fflush(ib_stdout);
+#endif
+				}
+
+				/* Pick up any remaining chained request, and free current request */
+
+				if (request) {
+					next = request->req_chain;
+					request->req_next = free_requests;
+					free_requests = request;
+					request = next;
+				}
+			}
+		}
+		else {
+			inactive_count++;
+			/* If the main server thread is not relying on me to take on a new request
+			   and I have been idling for a while, it is time to quit and thereby
+			   release some valuable system resources like memory */
+			if ((extra_threads > 1)
+				&& ((inactive_count > 20) || (timedout_count > 2))) {
+				extra_threads--;	/* Count me out */
+				break;
+			}
+
+			threads_waiting++;
+			ptr = thread_event;
+			THREAD_EXIT;
+			/* Wait for 1 minute (60 seconds) on a new request */
+			if (ISC_event_wait(1, &ptr, &value, 60 * 1000000, 0, 0))
+				timedout_count++;
+			THREAD_ENTER;
+			--threads_waiting;
+		}
+	}
+
+	THREAD_EXIT;
+
+#ifdef WIN_NT
+	if (!((SLONG) flags & SRVR_non_service))
+		CNTL_remove_thread(thread);
+#endif
+
+	return 0;
+}
+
+
+STATUS port::transact_request(P_TRRQ * trrq, PACKET* send)
+{
+/**************************************
+ *
+ *	t r a n s a c t _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	RDB rdb;
+	RPR procedure;
+	RTR transaction;
+	P_DATA *data;
+	UCHAR *blr, *in_msg, *out_msg;
+	USHORT blr_length, in_msg_length, out_msg_length;
+
+	CHECK_HANDLE_MEMBER(transaction,
+						RTR,
+						type_rtr,
+						trrq->p_trrq_transaction,
+						isc_bad_trans_handle);
+
+	rdb = this->port_context;
+	blr = trrq->p_trrq_blr.cstr_address;
+	blr_length = trrq->p_trrq_blr.cstr_length;
+	procedure = this->port_rpr;
+	in_msg =
+		(procedure->rpr_in_msg) ? procedure->rpr_in_msg->msg_address : NULL;
+	in_msg_length =
+		(procedure->rpr_in_format) ? procedure->rpr_in_format->fmt_length : 0;
+	out_msg =
+		(procedure->rpr_out_msg) ? procedure->rpr_out_msg->msg_address : NULL;
+	out_msg_length =
+		(procedure->rpr_out_format) ? procedure->rpr_out_format->
+		fmt_length : 0;
+
+	THREAD_EXIT;
+	isc_transact_request(status_vector,
+						 reinterpret_cast<void**>(&rdb->rdb_handle),
+						 reinterpret_cast<void**>(&transaction->rtr_handle),
+						 blr_length,
+						 reinterpret_cast<char*>(blr),
+						 in_msg_length,
+						 reinterpret_cast<char*>(in_msg),
+						 out_msg_length,
+						 reinterpret_cast<char*>(out_msg));
+	THREAD_ENTER;
+
+	if (status_vector[1])
+		return this->send_response(send, 0, 0, status_vector);
+
+	data = &send->p_data;
+	send->p_operation = op_transact_response;
+	data->p_data_messages = 1;
+	this->send(send);
+
+	return SUCCESS;
+}
+
+
+static void zap_packet( PACKET* packet, BOOLEAN new_)
+{
+/**************************************
+ *
+ *	z a p _ p a c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zero out a packet block.
+ *
+ **************************************/
+
+	if (new_)
+		memset(packet, 0, sizeof(PACKET));
+	else
+#ifdef DEBUG_XDR_MEMORY
+		/* Don't trash debug xdr memory allocation table of recycled packets. */
+
+		memset(&packet->p_operation, 0,
+			   sizeof(PACKET) - OFFSET(PACKET*, p_operation));
+#else
+		memset(packet, 0, sizeof(PACKET));
+#endif
+}
diff --git a/src/remote/server.ico b/src/remote/server.ico
new file mode 100644
index 0000000000..8a0d9fbce9
Binary files /dev/null and b/src/remote/server.ico differ
diff --git a/src/remote/spxesr.cpp b/src/remote/spxesr.cpp
new file mode 100644
index 0000000000..c9656a31eb
--- /dev/null
+++ b/src/remote/spxesr.cpp
@@ -0,0 +1,94 @@
+/*
+ *	PROGRAM:	JRD Remote Interface
+ *	MODULE:		spxesr.c
+ *	DESCRIPTION:	Windows SPX communications callback function
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <windows.h>
+#include <dos.h>
+#include "../jrd/common.h"
+
+/* 
+ * Need to undef FAILURE from common.h (#define FAILURE 1) and MIN from 
+ * common.h. (#define MIN(a,b)  (((a) < (b)) ? (a) : (b)).  They get 
+ * redefined by the netware include files, included with spxwin.h, as 
+ * #define FAILURE  -1 and #define MIN(a,b)  ((a) < (b) ? (a) : (b)).
+*/
+#ifdef FAILURE
+#undef FAILURE
+#endif
+
+#ifdef MIN(a,b)
+#undef MIN(a,b)
+#endif
+
+#include "../remote/spxwin.h"
+
+extern spx_port_handle *head_of_spx_port_list;
+
+/* turn off stack checking for this routine */
+#pragma option -w
+#pragma option -N-
+
+void process_async_data()
+{
+/**************************************
+*
+* p r o c e s s _ a s y n c _ d a t a
+*
+* Event service routine called by spx driver.
+* This routine must be in a fixed code segment,
+* and so it should be in it's own source file so
+* that you reduce the size of the segment which 
+* will use up precious fixed memory.
+*
+**************************************/
+	spx_port_handle FAR *handle;
+	ECB FAR *ecb;
+	ECB FAR *rx_ecb;
+	UCHAR FAR *rx_mem;
+	int i;
+
+	ecb = MK_FP(_ES, _SI);
+
+/* match up the ecb with a port handle */
+	handle = head_of_spx_port_list;
+	while (handle != 0) {
+		rx_mem = handle->rx_pool;
+		i = 0;
+		while (i < RX_POOL_SIZE) {
+			rx_mem += MAX_DATA;
+			rx_ecb = (ECB *) rx_mem;
+			if (rx_ecb == ecb)
+				break;
+			rx_mem += sizeof(ECB);
+			rx_mem += sizeof(SPXHeader);
+
+			i++;
+		}
+		if (rx_ecb == ecb)
+			break;
+		handle = handle->next;
+	}
+
+/* post the message */
+	if (handle)
+		PostMessage(handle->window_handle, WM_USER + 1, 0, 0);
+}
diff --git a/src/remote/spxne_proto.h b/src/remote/spxne_proto.h
new file mode 100644
index 0000000000..43658cf5d0
--- /dev/null
+++ b/src/remote/spxne_proto.h
@@ -0,0 +1,31 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		spxne_proto.h
+ *	DESCRIPTION:	Prototpe header file for spxnet.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_SPXNE_PROTO_H_
+#define _REMOTE_SPXNE_PROTO_H_
+
+extern int	SPXNET_init (void);
+extern PORT	SPXNET_listen (TEXT *, struct packet *, STATUS *, USHORT);
+extern int	SPXNET_shutdown (void);
+
+#endif /* _REMOTE_SPXNE_PROTO_H */ 
diff --git a/src/remote/spxnet.cpp b/src/remote/spxnet.cpp
new file mode 100644
index 0000000000..0156fcaff5
--- /dev/null
+++ b/src/remote/spxnet.cpp
@@ -0,0 +1,1967 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		spxnet.c
+ *	DESCRIPTION:	SPX Communications module.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include <string.h>
+#include <direct.h>
+#include <io.h>
+#include <fcntl.h>
+#include <conio.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include <process.h>
+#include <signal.h>
+#include <advanced.h>
+#include <malloc.h>
+#include <library.h>
+#include <sap.h>
+#include <nwbindry.h>
+#include <nwtypes.h>
+#include <nwipxspx.h>
+#include <nwsemaph.h>
+#include <nwmisc.h>
+#include <nwdsapi.h>
+
+#include "../jrd/time.h"
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/thd.h"
+#include "../jrd/gdsasser.h"
+#include "../remote/remote.h"
+
+#define PROTOCOL_NAME   "gds_db"
+#define NO_ITIMER
+#define NO_FORK
+#define MAX_SEQUENCE    256
+#define MAX_SPX_DATA_SIZE       (576 - sizeof(SPX_HEADER) - sizeof(ULONG))
+#define BUFFER_SIZE     4000
+#define RX_BUFFER_SIZE  (BUFFER_SIZE * 2)	/* Space for two messages */
+#define ALLOC_SIGNATURE 0x54524C41
+#define SPX_RETRY_COUNT         20
+#define SYS_ERR         gds_arg_dos
+#define ERRNO   errno
+#define EINTR           0
+#define INTERBASE_SOCKET 0x8794
+#define RX_POOL_SIZE    100
+
+typedef struct rx_data {
+	WORD cur_length;
+	UCHAR *buffer;
+	WORD max_len;
+	ULONG semaphore;
+	UCHAR rx_done;
+	UCHAR client_address[12];
+	UCHAR terminated;
+	UCHAR buffer_full;
+	ULONG fragment_number;
+} rx_data;
+
+typedef struct ecb_blk {
+	SPX_ECB spx_ecb;
+	SPX_HEADER header;
+	UCHAR data[MAX_SPX_DATA_SIZE + sizeof(ULONG)];
+}
+ecb_blk;
+
+typedef struct async_port_handle {
+	ecb_blk *spx_lecb;
+	WORD connid;
+	ULONG event_listen_semaphore;
+	USHORT event_socket;
+	ecb_blk *ecb_pool;
+} async_port_handle;
+
+UCHAR my_network_address[20];
+rx_data *spx_rx_data[0x10000];
+ecb_blk *main_ecb_pool;
+ULONG spx_rx_semaphore;
+ULONG spx_sent_semaphore;
+ULONG spx_event_semaphore;
+ULONG spx_listen_semaphore;
+UCHAR spx_receive_active;
+UCHAR spx_sent_active;
+USHORT spx_socket = INTERBASE_SOCKET;
+UCHAR spx_exit = FALSE;
+UCHAR admin[255];
+UCHAR admin_password[255];
+ecb_blk spx_lecb;
+
+SPX_ECB *spx_receive_queue = 0;
+SPX_ECB *spx_sent_queue = 0;
+SPX_ECB *spx_listen_queue = 0;
+SPX_ECB *spx_event_queue = 0;
+
+#ifdef OBSOLETE
+void spx_terminate_connection(PORT port);
+#endif /* OBSOLETE  */
+int spx_check_ecb_error(ecb_blk * ecb);
+static BOOLEAN process_rx(ecb_blk * rx_ecb);
+void spx_sent_process(void);
+ecb_blk *spx_post_receive_ecbs(USHORT socket, SPX_ECB ** queue_head,
+							   ULONG semaphore, USHORT pool_size);
+extern UpdateUserName(UCHAR *);
+extern STR REMOTE_make_string(UCHAR * input);
+PORT SPXNET_listen(TEXT * name, PACKET * packet, STATUS * status_vector,
+				   USHORT flag);
+static accept_connection(PORT port, P_CNCT * cnct);
+static PORT alloc_port(PORT parent);
+static void cleanup_port(PORT port);
+static void disconnect(PORT port);
+#ifdef OBSOLETE
+static void exit_handler();
+#endif /* OBSOLETE */
+static void spxnet_destroy(void);
+static void spxnet_copy(UCHAR * from, UCHAR * to, int length);
+static void spxnet_zero(UCHAR * address, int length);
+static PORT receive(PORT main_port, PACKET * packet);
+static send_full(PORT port, PACKET * packet);
+static send_partial(PORT port, PACKET * packet);
+static xdrspxnet_create(XDR * xdrs, PORT port, UCHAR * buffer, USHORT length,
+						enum xdr_op x_op);
+static bool_t xdrspxnet_endofrecord(XDR * xdrs, bool_t flushnow);
+static spxnet_error(PORT port, TEXT * operation, int status);
+static bool_t spxnet_getbytes(XDR * xdrs, UCHAR * buff, u_int count);
+static bool_t spxnet_getULONG(XDR * xdrs, ULONG * lp);
+static u_int spxnet_getpostn(XDR * xdrs);
+static caddr_t spxnet_inline(XDR * xdrs, u_int bytecount);
+static bool_t spxnet_putbytes(XDR * xdrs, UCHAR * buff, u_int count);
+static bool_t spxnet_putULONG(XDR * xdrs, ULONG * lp);
+static bool_t spxnet_read(XDR * xdrs);
+static bool_t spxnet_setpostn(XDR * xdrs, u_int bytecount);
+static bool_t spxnet_write(XDR * xdrs, bool_t end_flag);
+packet_receive(PORT port, UCHAR * buffer, SSHORT buffer_length,
+			   SSHORT * length);
+bool_t packet_send(PORT port, UCHAR * buffer, SSHORT buffer_length);
+static void dequeue_ecb(SPX_ECB ** queue, ecb_blk * remove);
+static void spx_send(UCHAR * buffer, int buffer_length);
+static void spxnet_done(void);
+static PORT aux_request(PORT port, PACKET * packet);
+static PORT aux_connect(PORT port, PACKET * packet, void (*ast) ());
+void spx_receive_process(void);
+static BOOLEAN wait_on_local_semaphore_timeout(ULONG semaphore,
+											   USHORT timeout);
+
+static xdr_t::xdr_ops spxnet_ops = {
+	spxnet_getULONG,
+	spxnet_putULONG,
+	spxnet_getbytes,
+	spxnet_putbytes,
+	spxnet_getpostn,
+	spxnet_setpostn,
+	spxnet_inline,
+	spxnet_destroy
+};
+
+
+int SPXNET_init()
+{
+/**************************************
+ *
+ *      S P X N E T _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ * initialize spx
+ *
+ **************************************/
+	int i, j;
+	int ccode;
+	rx_data *rx;
+
+	for (i = 0; i < 0x10000; i++)
+		spx_rx_data[i] = 0;
+
+	ccode = IpxGetInternetworkAddress(my_network_address);
+	if (ccode != ESUCCESS)
+		return (-1);
+
+	ccode = SpxOpenSocket(&spx_socket);
+	if (ccode != ESUCCESS)
+		return (-1);
+
+	spx_rx_semaphore = OpenLocalSemaphore(0);
+	if (spx_rx_semaphore == 0)
+		return (-1);
+
+	spx_event_semaphore = OpenLocalSemaphore(0);
+	if (spx_event_semaphore == 0)
+		return (-1);
+
+	spx_sent_semaphore = OpenLocalSemaphore(0);
+	if (spx_sent_semaphore == 0)
+		return (-1);
+
+	main_ecb_pool =
+		spx_post_receive_ecbs(spx_socket, &spx_receive_queue,
+							  spx_rx_semaphore, RX_POOL_SIZE);
+
+	if (main_ecb_pool != NULL)
+		ccode = ESUCCESS;
+	else
+		ccode = EFAILURE;
+
+	if (ccode != ESUCCESS)
+		return (-1);
+
+	ccode = BeginThread((void *) spx_receive_process, 0, 0, 0);
+	if (ccode == EFAILURE)
+		return (-1);
+
+	ccode = BeginThread((void *) spx_sent_process, 0, 0, 0);
+	if (ccode == EFAILURE)
+		return (-1);
+
+	return (0);
+}
+
+
+void SPXNET_shutdown()
+{
+/**************************************
+ *
+ *      S P X N E T _ s h u t d o w n
+ *
+ **************************************
+ *
+ * Functional description
+ * de - initialize spx
+ *
+ **************************************/
+	int i;
+	rx_data *rx;
+
+	spx_exit = TRUE;
+
+	if (spx_rx_semaphore != NULL)
+		SignalLocalSemaphore(spx_rx_semaphore);
+
+	if (spx_event_semaphore != NULL)
+		SignalLocalSemaphore(spx_event_semaphore);
+
+	if (spx_sent_semaphore != NULL)
+		SignalLocalSemaphore(spx_sent_semaphore);
+
+	SpxCloseSocket(spx_socket);
+
+	if (main_ecb_pool != NULL)
+		for (i = 0; i < RX_POOL_SIZE; i++)
+			SpxCancelEvent(&main_ecb_pool[i].spx_ecb);
+
+	SpxCancelEvent(&(spx_lecb.spx_ecb));
+
+	while (spx_receive_active)
+		ThreadSwitch();
+
+	if (spx_rx_semaphore != NULL)
+		CloseLocalSemaphore(spx_rx_semaphore);
+
+	if (spx_event_semaphore != NULL)
+		CloseLocalSemaphore(spx_event_semaphore);
+
+	while (spx_sent_active)
+		ThreadSwitch();
+
+	if (spx_event_semaphore != NULL)
+		CloseLocalSemaphore(spx_sent_semaphore);
+
+	if (spx_listen_semaphore != NULL)
+		SignalLocalSemaphore(spx_listen_semaphore);
+
+	if (main_ecb_pool != NULL)
+		gds__free(main_ecb_pool);
+
+	for (i = 0; i < 0x10000; i++) {
+		rx = spx_rx_data[i];
+		spx_rx_data[i] = NULL;
+		if (rx != 0) {
+			if (rx->semaphore) {
+				CloseLocalSemaphore(rx->semaphore);
+				rx->semaphore = 0;
+			}
+			gds__free(rx->buffer);
+			gds__free(rx);
+		}
+	}
+}
+
+
+PORT SPXNET_listen(name, packet, status_vector, flag)
+	 TEXT *name;
+	 PACKET *packet;
+	 STATUS *status_vector;
+	 USHORT flag;
+{
+/**************************************
+ *
+ *      S P X N E T _ l i s t e n
+ *
+ **************************************
+ *
+ * Functional description
+ * listen for a connection
+ *
+ **************************************/
+	PORT port;
+	TEXT *protocol, temp[128], *p, *q;
+	WORD connid;
+	rx_data *spx_data;
+	int ccode;
+
+	THREAD_EXIT;
+	port = alloc_port(0);
+	port->port_status_vector = status_vector;
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+	protocol = PROTOCOL_NAME;
+
+	if (name) {
+		strcpy(temp, name);
+		for (p = temp; *p;)
+			if (*p++ == '/') {
+				p[-1] = 0;
+				name = temp;
+				protocol = p;
+				break;
+			}
+	}
+	if (name && *name) {
+		if (port->port_connection)
+			ALLR_free(port->port_connection);
+		port->port_connection = REMOTE_make_string((UCHAR *) name);
+	}
+	else
+		name = port->port_host->str_data;
+
+	spx_listen_semaphore = OpenLocalSemaphore(0);
+	if (spx_listen_semaphore == 0) {
+		THREAD_ENTER;
+		return (0);
+	}
+
+	spx_lecb.spx_ecb.fragCount = 1;
+	spx_lecb.spx_ecb.fragList[0].fragAddress = (void *) &spx_lecb.header;
+	spx_lecb.spx_ecb.fragList[0].fragSize =
+		sizeof(SPX_HEADER) + MAX_SPX_DATA_SIZE;
+	spx_lecb.spx_ecb.queueHead = (void *) &spx_listen_queue;
+	spx_lecb.spx_ecb.semHandle = spx_listen_semaphore;
+
+/*  Post that we are available to listen on the spx_socket port,
+ *  and that if we are to be poked, that 'connid' is to be updated
+ *  with the connection ID of the SPX connection that is sending
+ *  a packet.
+ */
+
+	ccode = SpxListenForConnection((USHORT) spx_socket,
+								   (SPX_ECB *) & spx_lecb.spx_ecb,
+								   SPX_RETRY_COUNT, ENABLE_WATCHDOG, &connid);
+
+/*  If we weren't able to listen, then a serious problem has occurred.  */
+	if (ccode != ESUCCESS) {
+		CloseLocalSemaphore(spx_listen_semaphore);
+		THREAD_ENTER;
+		return (0);
+	}
+
+/*  All this code is moved from below the WaitOnLocalSemaphore to above it
+ *  so it doesn't cause a possible block. 
+ */
+
+/*  Allocate memory for our own connection context block  */
+	spx_data = (rx_data *) gds__alloc(sizeof(rx_data));
+/* FREE: disconnect or unload */
+	if (spx_data == NULL) {		/* NOMEM: */
+		CloseLocalSemaphore(spx_listen_semaphore);
+		THREAD_ENTER;
+		return (0);
+	}
+
+/*  Allocate some memory for our communication buffer.  */
+	spx_data->buffer = (UCHAR *) gds__alloc(RX_BUFFER_SIZE);
+/* FREE: disconnect or unload */
+	if (spx_data->buffer == NULL) {	/* NOMEM: */
+		CloseLocalSemaphore(spx_listen_semaphore);
+		gds__free(spx_data);
+		THREAD_ENTER;
+		return (0);
+	}
+
+	spx_data->cur_length = 0;
+	spx_data->max_len = RX_BUFFER_SIZE;
+	spx_data->semaphore = 0;
+	spx_data->rx_done = FALSE;
+	spx_data->terminated = FALSE;
+	spx_data->buffer_full = FALSE;
+	spx_data->fragment_number = 0;
+
+	WaitOnLocalSemaphore(spx_listen_semaphore);
+
+	ccode = spx_check_ecb_error(&spx_lecb);
+	if (ccode != ESUCCESS) {
+		CloseLocalSemaphore(spx_listen_semaphore);
+		spx_listen_semaphore = 0;
+
+		gds__free(spx_data->buffer);
+		gds__free(spx_data);
+		THREAD_ENTER;
+		return (0);
+	}
+
+	spx_rx_data[connid] = spx_data;
+	port->port_handle = connid;
+
+	CloseLocalSemaphore(spx_listen_semaphore);
+	spx_listen_semaphore = 0;
+
+	THREAD_ENTER;
+	port->port_server_flags |= (SRVR_server | SRVR_multi_client);
+	return (port);
+}
+
+/**************************************
+ *
+ *      d e q u e u e _ e c b
+ *
+ **************************************
+ *
+ * de-queue ecb from a queue
+ *
+ **************************************/
+static void dequeue_ecb(SPX_ECB ** queue, ecb_blk * remove)
+{
+	if (*queue != NULL && remove != NULL) {
+		if (*queue == (*queue)->prev && *queue == remove)
+			*queue = NULL;
+		else {
+			ecb_blk *prev = (ecb_blk *) remove->spx_ecb.prev;
+
+			if (prev->spx_ecb.next == NULL)
+				*queue = (SPX_ECB *) remove->spx_ecb.next;
+			else
+				prev->spx_ecb.next = remove->spx_ecb.next;
+			if (remove->spx_ecb.next == NULL)
+				(*queue)->prev = (SPX_ECB *) prev;
+			else
+				remove->spx_ecb.next->prev = (SPX_ECB *) prev;
+		}
+	}
+
+	return;
+}
+
+static accept_connection(port, cnct)
+	 PORT port;
+	 P_CNCT *cnct;
+{
+/**************************************
+ *
+ *      a c c e p t _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Accept an incoming request for connection.  This is purely a lower
+ *      level handshaking function, and does not constitute the server
+ *      response for protocol selection.
+ *
+ **************************************/
+	TEXT name[64], password[64], *id, *end, *p;
+	STR string;
+	ULONG eff_gid, gids[128], eff_uid;
+	int length, l, user_verification;
+
+/* Default account to "guest" (in theory all packets contain a name) */
+
+	strcpy(name, "guest");
+	password[0] = 0;
+
+/* Pick up account and password, if given */
+
+	id = (TEXT *) cnct->p_cnct_user_id.cstr_address;
+	end = id + cnct->p_cnct_user_id.cstr_length;
+
+	eff_uid = eff_gid = -1;
+	user_verification = 0;
+	while (id < end)
+		switch (*id++) {
+		case CNCT_user:
+			length = l = *id++;
+			port->port_user_name = string =
+				(STR) ALLOCV(type_str, (int) length);
+			string->str_length = length;
+			if (length) {
+				p = (TEXT *) string->str_data;
+				do
+					*p++ = *id++;
+				while (--l);
+			}
+			strncpy(name, string->str_data, length);
+			name[length] = (TEXT) 0;
+			break;
+
+		case CNCT_passwd:
+			p = password;
+			if ((length = *id++) != NULL)
+				do
+					*p++ = *id++;
+				while (--length);
+			*p = 0;
+			break;
+
+		case CNCT_group:
+			p = (TEXT *) & eff_gid;
+			if ((length = *id++) != NULL)
+				do
+					*p++ = *id++;
+				while (--length);
+			eff_gid = ntohl(eff_gid);
+			break;
+
+		case CNCT_user_verification:
+			user_verification = 1;
+			id++;
+			break;
+
+		default:
+			id += *id + 1;
+		}
+
+	strncpy(name, port->port_user_name->str_data,
+			port->port_user_name->str_length);
+	p = &name[port->port_user_name->str_length];
+	sprintf(p, ".%ld.%ld", eff_gid, eff_uid);
+	ALLR_free(port->port_user_name);
+	port->port_user_name = REMOTE_make_string(name);
+	port->port_user_name->str_length = strlen(name);
+
+	return TRUE;
+}
+
+
+static PORT alloc_port(parent)
+	 PORT parent;
+{
+/**************************************
+ *
+ *      a l l o c _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Allocate a port block, link it in to parent (if there is a parent),
+ *      and initialize input and output XDR streams.
+ *
+ **************************************/
+	PORT port;
+	TEXT buffer[64];
+
+	port = (PORT) ALLOCV(type_port, BUFFER_SIZE * 2);
+	port->port_type = port_spx;
+	port->port_state = state_pending;
+
+	ISC_get_host(buffer, sizeof(buffer));
+	port->port_host = REMOTE_make_string(buffer);
+	port->port_connection = REMOTE_make_string(buffer);
+	sprintf(buffer, "SPX (%s)", port->port_host->str_data);
+	port->port_version = REMOTE_make_string(buffer);
+
+	if (parent) {
+		port->port_parent = parent;
+		port->port_next = parent->port_clients;
+		parent->port_clients = parent->port_next = port;
+		port->port_handle = parent->port_handle;
+		port->port_server = parent->port_server;
+		port->port_server_flags = parent->port_server_flags;
+	}
+
+	port->port_accept = accept_connection;
+	port->port_disconnect = disconnect;
+	port->port_receive_packet = receive;
+	port->port_send_packet = send_full;
+	port->port_send_partial = send_partial;
+	port->port_connect = aux_connect;
+	port->port_request = aux_request;
+	port->port_buff_size = BUFFER_SIZE;
+
+	xdrspxnet_create(&port->port_send, port,
+					 &port->port_buffer[BUFFER_SIZE], BUFFER_SIZE,
+					 XDR_ENCODE);
+
+	xdrspxnet_create(&port->port_receive, port, port->port_buffer, 0,
+					 XDR_DECODE);
+
+	return port;
+}
+static void disconnect(port)
+	 PORT port;
+{
+/**************************************
+ *
+ *      d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Break a remote connection.
+ *
+ **************************************/
+	PORT parent, *ptr;
+	async_port_handle *async_handle;
+
+	if (port->port_async) {
+		async_handle = (async_port_handle *) port->port_async->port_misc1;
+		wait_on_local_semaphore_timeout(spx_event_semaphore, 10);
+		if (async_handle != NULL) {
+			SpxCloseSocket(async_handle->event_socket);
+			if (async_handle->spx_lecb != NULL)
+				gds__free(async_handle->spx_lecb);
+			if (async_handle->ecb_pool != NULL)
+				gds__free(async_handle->ecb_pool);
+			gds__free(async_handle);
+		}
+		disconnect(port->port_async);
+		port->port_async = NULL;
+	}
+
+/* If this is a sub-port, unlink it from it's parent */
+
+	if ((parent = port->port_parent) != NULL) {
+		for (ptr = &parent->port_clients; *ptr; ptr = &(*ptr)->port_next)
+			if (*ptr == port) {
+				*ptr = port->port_next;
+				if (ptr == &parent->port_clients)
+					parent->port_next = *ptr;
+				break;
+			}
+	}
+
+//gds__unregister_cleanup (exit_handler, port);
+	cleanup_port(port);
+}
+
+
+static void cleanup_port(port)
+	 PORT port;
+{
+/**************************************
+ *
+ *      c l e a n u p _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Walk through the port structure freeing
+ *      allocated memory and then free the port.
+ *
+ **************************************/
+
+	if (spx_rx_data[port->port_handle]) {
+		if (spx_rx_data[port->port_handle]->buffer)
+			gds__free(spx_rx_data[port->port_handle]->buffer);
+		gds__free(spx_rx_data[port->port_handle]);
+		spx_rx_data[port->port_handle] = NULL;
+	}
+
+	if (port->port_version)
+		ALLR_free((UCHAR *) port->port_version);
+
+	if (port->port_connection)
+		ALLR_free((UCHAR *) port->port_connection);
+
+	if (port->port_user_name)
+		ALLR_free((UCHAR *) port->port_user_name);
+
+	if (port->port_host)
+		ALLR_free((UCHAR *) port->port_host);
+
+	if (port->port_object_vector)
+		ALLR_free((UCHAR *) port->port_object_vector);
+
+#ifdef DEBUG_XDR_MEMORY
+	if (port->port_packet_vector)
+		ALLR_free((UCHAR *) port->port_packet_vector);
+#endif
+
+	ALLR_release((UCHAR *) port);
+	return;
+}
+
+
+static void spxnet_copy(from, to, length)
+	 UCHAR *from, *to;
+	 int length;
+{
+/**************************************
+ *
+ *      s p x n e t _ c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Copy a number of bytes;
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while ((--length) != 0);
+}
+
+
+static void spxnet_zero(address, length)
+	 UCHAR *address;
+	 int length;
+{
+/**************************************
+ *
+ *      s p x n e t _  z e r o
+ *
+ **************************************
+ *
+ * Functional description
+ *      Zero a block of memory.
+ *
+ **************************************/
+
+	if (length)
+		do
+			*address++ = 0;
+		while ((--length) != 0);
+}
+static PORT receive(main_port, packet)
+	 PORT main_port;
+	 PACKET *packet;
+{
+/**************************************
+ *
+ *      r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Receive a message from a port or clients of a port.  If the process
+ *      is a server and a connection request comes in, generate a new port
+ *      block for the client.
+ *
+ **************************************/
+
+	if (!xdr_protocol(&main_port->port_receive, packet))
+		/* Client connection lost.  Generate an opcode for cleanup */
+		packet->p_operation = op_exit;
+
+	return main_port;
+}
+
+
+
+
+static send_full(port, packet)
+	 PORT port;
+	 PACKET *packet;
+{
+/**************************************
+ *
+ *      s e n d _ f u l l
+ *
+ **************************************
+ *
+ * Functional description
+ *      Send a packet across a port to another process.
+ *
+ **************************************/
+
+	if (!xdr_protocol(&port->port_send, packet))
+		return FALSE;
+
+	return xdrspxnet_endofrecord(&port->port_send, TRUE);
+}
+
+
+static send_partial(port, packet)
+	 PORT port;
+	 PACKET *packet;
+{
+/**************************************
+ *
+ *      s e n d _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *      Send a packet across a port to another process.
+ *
+ **************************************/
+
+	return xdr_protocol(&port->port_send, packet);
+}
+
+
+
+static xdrspxnet_create(xdrs, port, buffer, length, x_op)
+	 XDR *xdrs;
+	 PORT port;
+	 UCHAR *buffer;
+	 USHORT length;
+	 enum xdr_op x_op;
+{
+/**************************************
+ *
+ *      x d r s p x n e t _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Initialize an XDR stream for Apollo mailboxes.
+ *
+ **************************************/
+
+	xdrs->x_public = (caddr_t) port;
+	xdrs->x_base = xdrs->x_private = (UCHAR *) buffer;
+	xdrs->x_handy = length;
+	xdrs->x_ops = &spxnet_ops;
+	xdrs->x_op = x_op;
+
+	return TRUE;
+}
+
+
+static bool_t xdrspxnet_endofrecord(xdrs, flushnow)
+	 XDR *xdrs;
+	 bool_t flushnow;
+{
+/**************************************
+ *
+ *      x d r s p x n e t _ e n d o f r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Write out the rest of a record.
+ *
+ **************************************/
+
+	return spxnet_write(xdrs, flushnow);
+}
+
+
+static void spxnet_destroy()
+{
+/**************************************
+ *
+ *      s p x n e t _ d e s t r o y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Destroy a stream.  A no-op.
+ *
+ **************************************/
+}
+
+
+static spxnet_error(port, operation, status)
+	 PORT port;
+	 TEXT *operation;
+	 int status;
+{
+/**************************************
+ *
+ *      s p x n e t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *      An I/O error has occurred.  If a status vector is present,
+ *      generate an error return.  In any case, return NULL, which
+ *      is used to indicate and error.
+ *
+ **************************************/
+	RDB rdb;
+	TEXT **tp, msg[64];
+	STATUS *status_vector;
+
+	port->port_flags |= PORT_broken;
+	port->port_state = state_broken;
+
+	if ((rdb = port->port_context) != NULL)
+		status_vector = rdb->rdb_status_vector;
+	else
+		status_vector = port->port_status_vector;
+
+	if (status_vector) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__io_error;
+		*status_vector++ = gds_arg_string;
+		*status_vector++ = (STATUS) operation;
+		*status_vector++ = gds_arg_string;
+		tp = (TEXT **) status_vector;
+		*tp++ = port->port_connection->str_data;
+		status_vector = (STATUS *) tp;
+		if (status) {
+			*status_vector++ = SYS_ERR;
+			*status_vector++ = (STATUS) status;
+		}
+		*status_vector++ = 0;
+	}
+
+	if (status) {
+		sprintf(msg, "spxnet/spxnet_error: %s errno = %d", operation, status);
+		gds__log(msg);
+	}
+
+	return (int) NULL;
+}
+
+
+static bool_t spxnet_getbytes(xdrs, buff, count)
+	 XDR *xdrs;
+	 UCHAR *buff;
+	 u_int count;
+{
+/**************************************
+ *
+ *      s p x n e t _ g e t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get a bunch of bytes from a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(buff, xdrs->x_private, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(buff, xdrs->x_private, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!spxnet_read(xdrs))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*buff++ = *xdrs->x_private++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (!xdrs->x_handy && !spxnet_read(xdrs))
+			return FALSE;
+		*buff++ = *xdrs->x_private++;
+		--xdrs->x_handy;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t spxnet_getULONG(xdrs, lp)
+	 XDR *xdrs;
+	 ULONG *lp;
+{
+/**************************************
+ *
+ *      s p x n e t _ g e t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Fetch a ULONGword into a memory stream if it fits.
+ *
+ **************************************/
+	ULONG l;
+
+	if (!(*xdrs->x_ops->x_getbytes) (xdrs, &l, 4))
+		return FALSE;
+
+	*lp = ntohl(l);
+
+	return TRUE;
+}
+
+
+static u_int spxnet_getpostn(xdrs)
+	 XDR *xdrs;
+{
+/**************************************
+ *
+ *      s p x n e t _ g e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Get the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	return (u_int) (xdrs->x_private - xdrs->x_base);
+}
+
+
+static caddr_t spxnet_inline(xdrs, bytecount)
+	 XDR *xdrs;
+	 u_int bytecount;
+{
+/**************************************
+ *
+ *      s p x n e t _  i n l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Return a pointer to somewhere in the buffer.
+ *
+ **************************************/
+
+	if (bytecount > xdrs->x_handy)
+		return FALSE;
+
+	return xdrs->x_base + bytecount;
+}
+
+
+static bool_t spxnet_putbytes(xdrs, buff, count)
+	 XDR *xdrs;
+	 UCHAR *buff;
+	 u_int count;
+{
+/**************************************
+ *
+ *      s p x n e t _ p u t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *      Put a bunch of bytes to a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(xdrs->x_private, buff, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(xdrs->x_private, buff, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!spxnet_write(xdrs, 0))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*xdrs->x_private++ = *buff++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (xdrs->x_handy <= 0 && !spxnet_write(xdrs, 0))
+			return FALSE;
+		--xdrs->x_handy;
+		*xdrs->x_private++ = *buff++;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t spxnet_putULONG(xdrs, lp)
+	 XDR *xdrs;
+	 ULONG *lp;
+{
+/**************************************
+ *
+ *      s p x n e t _ p u t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *      Fetch a ULONGword into a memory stream if it fits.
+ *
+ **************************************/
+	ULONG l;
+
+	l = htonl(*lp);
+	return (*xdrs->x_ops->x_putbytes) (xdrs, AOF32L(l), 4);
+}
+
+
+static bool_t spxnet_read(xdrs)
+	 XDR *xdrs;
+{
+/**************************************
+ *
+ *      s p x n e t _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Read a buffer full of data.  If we receive a bad packet,
+ *      send the moral equivalent of a NAK and retry.  ACK all
+ *      partial packets.  Don't ACK the last packet -- the next
+ *      message sent will handle this.
+ *
+ **************************************/
+	PORT port;
+	SSHORT length;
+	UCHAR *p, *end;
+
+	port = (PORT) xdrs->x_public;
+	p = xdrs->x_base;
+	end = p + BUFFER_SIZE;
+
+/* If buffer is not completely empty, slide down what what's left */
+
+	length = xdrs->x_handy;
+
+	if (xdrs->x_handy > 0) {
+		memmove(p, xdrs->x_private, xdrs->x_handy);
+		p += xdrs->x_handy;
+	}
+
+/* If an ACK is pending, do an ACK.  The alternative is deadlock. */
+
+	while (TRUE) {
+		length = end - p;
+		if (!packet_receive(port, p, length, &length))
+			return FALSE;
+		if (length >= 0) {
+			p += length;
+			break;
+		}
+		p -= length;
+		if (!packet_send(port, 0, 0))
+			return FALSE;
+	}
+
+	port->port_flags |= PORT_pend_ack;
+	xdrs->x_handy = (int) ((UCHAR *) p - xdrs->x_base);
+	xdrs->x_private = xdrs->x_base;
+	return TRUE;
+}
+
+
+static bool_t spxnet_setpostn(xdrs, bytecount)
+	 XDR *xdrs;
+	 u_int bytecount;
+{
+/**************************************
+ *
+ *      s p x n e t _ s e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Set the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	if (bytecount > xdrs->x_handy)
+		return FALSE;
+
+	xdrs->x_private = xdrs->x_base + bytecount;
+
+	return TRUE;
+}
+
+
+static bool_t spxnet_write(xdrs, end_flag)
+	 XDR *xdrs;
+	 bool_t end_flag;
+{
+/**************************************
+ *
+ *      s p x n e t _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Write a buffer fulll of data.  If the end_flag isn't set, indicate
+ *      that the buffer is a fragment, and reset the XDR for another buffer
+ *      load.
+ *
+ **************************************/
+	UCHAR *p;
+	PORT port;
+	SSHORT l, length;
+
+/* Encode the data portion of the packet */
+
+	port = (PORT) xdrs->x_public;
+	p = xdrs->x_base;
+	length = xdrs->x_private - p;
+
+/* Send data in manageable hunks.  If a packet is partial, indicate
+   that with a negative length.  A positive length marks the end. */
+
+	p = xdrs->x_base;
+
+	if (!packet_send(port, p, length))
+		return FALSE;
+
+	xdrs->x_private = xdrs->x_base;
+	xdrs->x_handy = BUFFER_SIZE;
+
+	return TRUE;
+}
+
+
+#ifdef OBSOLETE
+static void exit_handler(main_port)
+	 PORT main_port;
+{
+/**************************************
+ *
+ *      e x i t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Shutdown all active connections
+ *      to allow restart.
+ *
+ **************************************/
+	PORT port;
+
+	for (port = main_port; port; port = port->port_next)
+		spx_terminate_connection(port);
+}
+#endif /* OBSOLETE */
+
+
+bool_t packet_send(port, buffer, buffer_length)
+	 PORT port;
+	 UCHAR *buffer;
+	 SSHORT buffer_length;
+{
+/**************************************
+ *
+ *      p a c k e t _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Send some data on it's way.  
+ *
+ **************************************/
+	UCHAR *data;
+	LONG n, length;
+	USHORT status;
+	USHORT conn_id, len;
+	ecb_blk *send_ecb;
+	int ccode = 0;
+	int i, j;
+	rx_data *rxdata;
+	int done = FALSE;
+	int index;
+
+	index = 0;
+	while (!done) {
+		if (buffer_length <= MAX_SPX_DATA_SIZE) {
+			done = TRUE;
+			length = buffer_length;
+		}
+		else {
+			buffer_length -= MAX_SPX_DATA_SIZE;
+			length = MAX_SPX_DATA_SIZE;
+		}
+
+		send_ecb = (ecb_blk *) gds__alloc(sizeof(SPX_ECB) + length +
+										  sizeof(SPX_HEADER) + sizeof(ULONG));
+		/* FREE: in spx_sent_process */
+		if (send_ecb == NULL) {	/* NOMEM: */
+			return (FALSE);
+		}
+
+		rxdata = spx_rx_data[port->port_handle];
+		memcpy(&(send_ecb->header.destNet), rxdata->client_address, 12);
+		memcpy(&(send_ecb->header.sourceNet), my_network_address, 12);
+		len = length + sizeof(SPX_HEADER) + sizeof(ULONG);
+		send_ecb->spx_ecb.fragCount = 1;
+		send_ecb->spx_ecb.fragList[0].fragAddress = &send_ecb->header;
+		send_ecb->spx_ecb.fragList[0].fragSize = length +
+			sizeof(SPX_HEADER) + sizeof(ULONG);
+		send_ecb->spx_ecb.queueHead = &spx_sent_queue;
+		send_ecb->spx_ecb.semHandle = spx_sent_semaphore;
+		send_ecb->header.packetLen = IntSwap(len);
+		send_ecb->header.dataStreamType = 0;
+		if (done)
+			send_ecb->header.connectionCtl |= 0x10;
+		else
+			send_ecb->header.connectionCtl = 0;
+		*((ULONG *) send_ecb->data) = rxdata->fragment_number;
+		rxdata->fragment_number++;
+		memcpy(send_ecb->data + sizeof(ULONG), &(buffer[index]), length);
+
+		ccode = SpxSendSequencedPacket((USHORT) port->port_handle,
+									   &send_ecb->spx_ecb);
+
+		if (ccode != 0) {
+			return (0);
+		}
+		index += length;
+	}
+
+	port->port_flags &= ~PORT_pend_ack;
+	return TRUE;
+}
+
+
+void spx_sent_process()
+/**************************************
+ *
+ * s p x _ s e n t _ p r o c e s s 
+ *
+ **************************************
+ *
+ * Functional description
+ * Send process
+ *
+ **************************************/
+{
+	ecb_blk *sent;
+	rx_data *rx;
+	int ccode;
+
+	spx_sent_active = TRUE;
+
+	while (!spx_exit) {
+		WaitOnLocalSemaphore(spx_sent_semaphore);
+		if (!spx_exit) {
+			if (spx_sent_queue != NULL) {
+				sent = (ecb_blk *) spx_sent_queue->prev;
+				dequeue_ecb(&spx_sent_queue, sent);
+				ccode = spx_check_ecb_error(sent);
+				if (ccode != ESUCCESS) {
+					if (sent->spx_ecb.status == STS_SPX_TERMINATED_POORLY)
+						rx = spx_rx_data[sent->spx_ecb.protocolWorkspace];
+					else
+						rx = spx_rx_data[sent->header.destConnectID];
+					if (rx != 0) {
+						rx->terminated = TRUE;
+						if (rx->semaphore != 0)
+							SignalLocalSemaphore(rx->semaphore);
+					}
+				}
+				else
+					gds__free(sent);
+			}
+		}
+	}
+	spx_sent_active = FALSE;
+}
+
+
+ecb_blk *spx_post_receive_ecbs(USHORT socket, SPX_ECB ** queue_head,
+							   ULONG semaphore, USHORT pool_size)
+/**************************************
+ *
+ * s p x _ p o s t _ r e c e i v e _ e c b s
+ *
+ **************************************
+ *
+ * Functional description
+ * post Rx ecb pool
+ *
+ **************************************/
+{
+	int i;
+	int ccode;
+	ecb_blk *local_ecb_pool;
+
+/*  Build a pool of pool_size spx_ecb's  */
+	local_ecb_pool = (ecb_blk *) gds__alloc(sizeof(ecb_blk) * pool_size);
+/* FREE: disconnect or unload */
+
+	if (local_ecb_pool == NULL)	/* NOMEM: */
+		return ((ecb_blk *) NULL);
+
+	for (i = 0; i < pool_size; i++) {
+		/*  *sigh*  queue_head is actually a pointer to a global variable which
+		 *  will receive a pointer to the head (such as there is) of a circular
+		 *  queue of ECB's which have been 'woken' in response to a packet coming
+		 *  across a particular socket.
+		 */
+		local_ecb_pool[i].spx_ecb.queueHead = queue_head;
+		/*  Supposedly a semaphore will also be signalled when this occurs, and
+		 *  in the case where this is called from SPX_init, this is true, but in
+		 *  the case where this is called from aux_request, the spx_event_semaphore
+		 *  is *NEVER* listened for.  This causes me some consternation, but the
+		 *  port is supposedly used for transmission to a client only.
+		 */
+		local_ecb_pool[i].spx_ecb.semHandle = semaphore;
+		/*  So, how many fragments can we handle?  */
+		local_ecb_pool[i].spx_ecb.fragCount = 1;
+		/*  And the size of each of those fragments?  */
+		local_ecb_pool[i].spx_ecb.fragList[0].fragSize = 576;
+		/*  Oh, by the way, where should we store those fragments?  */
+		local_ecb_pool[i].spx_ecb.fragList[0].fragAddress =
+			&local_ecb_pool[i].header;
+		/*  Okay, now start listening...  */
+		ccode =
+			SpxListenForSequencedPacket(socket, &local_ecb_pool[i].spx_ecb);
+		if (ccode != ESUCCESS) {
+			/*  Well, for right now, if we're just doing the first one, we can     */
+			/*  free the local_ecb_pool safely.  If it's anything beyond the first */
+			/*  then we have successfully established a listen for a few ECB's, and */
+			/*  we don't want to disturb that.  Hopefully the rest of the system   */
+			/*  will be able to run with only, say, four ECB's for listening to    */
+			/*  recieves.                                                          */
+			if (i == 0) {
+				/*  It's the first one, so we haven't done any listens.  */
+				gds__free(local_ecb_pool);
+				return ((ecb_blk *) NULL);
+			}
+			else {
+				/*  It's NOT the first one, and we'll try to continue operating. */
+				return ((ecb_blk *) local_ecb_pool);
+			}					/*  Error condition on SPXListenForSequencedPacket  */
+		}
+	}
+	return ((ecb_blk *) local_ecb_pool);
+}
+
+/**************************************
+ *
+ * s p x _ r e c e i v e _ p r o c e s s 
+ *
+ **************************************
+ *
+ * Functional description
+ * process rx ecbs
+ *
+ **************************************/
+void spx_receive_process()
+{
+	ecb_blk *curr_ecb;
+	ecb_blk *rx_ecb;
+	BOOLEAN done;
+
+/* Set flag for use during shutdown. */
+	spx_receive_active = TRUE;
+
+/* Continue as long as NLM has not been shutdown. */
+	while (!spx_exit) {
+		/* Wait until ECB is received into the queue. */
+		WaitOnLocalSemaphore(spx_rx_semaphore);
+
+		if (!spx_exit && spx_receive_queue != NULL) {
+			/* Start at first received ECB which is at end of list. */
+			curr_ecb = (ecb_blk *) spx_receive_queue->prev;
+
+			/* Continue while queue is not empty and not at most recent ECB. */
+			done = FALSE;
+			while (!done && spx_receive_queue != NULL) {
+				/* Save current ECB for processing. */
+				rx_ecb = curr_ecb;
+
+				/* Almost done when at most recent received ECB in list. */
+				if (curr_ecb == (ecb_blk *) spx_receive_queue)
+					done = TRUE;
+
+				/* Move pointer to next ECB. 
+				 * If only one in list, prev points to itself.
+				 */
+				curr_ecb = (ecb_blk *) curr_ecb->spx_ecb.prev;
+
+				/* If ECB can be processed, then remove and post listen again. */
+				if (process_rx(rx_ecb)) {
+					dequeue_ecb(&spx_receive_queue, rx_ecb);
+					assert(rx_ecb->spx_ecb.queueHead == &spx_receive_queue);
+					assert(rx_ecb->spx_ecb.fragList[0].fragSize == 576);
+					assert(rx_ecb->spx_ecb.semHandle == spx_rx_semaphore);
+					SpxListenForSequencedPacket(spx_socket, &rx_ecb->spx_ecb);
+				}
+			}
+		}
+	}
+
+/* Reset flag for use during shutdown. */
+	spx_receive_active = FALSE;
+}
+
+/**************************************
+ *
+ * p r o c e s s _ r x 
+ *
+ **************************************
+ *
+ * process receive ecb, return whether or not to remove ECB from list
+ *
+ **************************************/
+static BOOLEAN process_rx(ecb_blk * rx_ecb)
+{
+	WORD length;
+	rx_data *data;
+	int ccode;
+	int i;
+
+/* Check success code in ECB. */
+	ccode = spx_check_ecb_error(rx_ecb);
+	if (ccode != ESUCCESS) {
+		if (rx_ecb->spx_ecb.status == STS_SPX_TERMINATED_POORLY)
+			data = spx_rx_data[rx_ecb->spx_ecb.protocolWorkspace];
+		else
+			data = spx_rx_data[rx_ecb->header.destConnectID];
+
+		/* Connection has terminated if entry is NULL. */
+		if (data != 0) {
+			data->terminated = TRUE;
+			if (data->semaphore != 0)
+				SignalLocalSemaphore(data->semaphore);
+		}
+		return TRUE;
+	}
+
+/* Get connection data. */
+	data = spx_rx_data[rx_ecb->header.destConnectID];
+
+/* Calculate length of data in ECB. */
+	length = IntSwap(rx_ecb->header.packetLen) - sizeof(SPX_HEADER);
+
+/* Set flag and return FALSE if not enough space in connection buffer. */
+	if ((data->cur_length + length) > data->max_len) {
+		data->buffer_full = TRUE;
+
+		return FALSE;
+	}
+
+/* Move ECB data into connection buffer. */
+	memcpy(data->buffer + data->cur_length, rx_ecb->data, length);
+	memcpy(data->client_address, &(rx_ecb->header.sourceNet), 12);
+	data->cur_length += length;
+
+/* Check for end of message bit to signal done. */
+	if (rx_ecb->header.connectionCtl & 0x10) {
+		data->rx_done = TRUE;
+		if (data->semaphore != 0)
+			SignalLocalSemaphore(data->semaphore);
+	}
+
+	return TRUE;
+}
+
+
+packet_receive(port, buffer, buffer_length, length)
+	 PORT port;
+	 UCHAR *buffer;
+	 SSHORT buffer_length, *length;
+{
+/**************************************
+ *
+ *      p a c k e t _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Receive a packet and pass on it's goodness. 
+ *
+ **************************************/
+	rx_data *data;
+	int i;
+
+	data = spx_rx_data[port->port_handle];
+
+	if (data->terminated) {
+		spx_rx_data[port->port_handle] = 0;
+		if (data->buffer)
+			gds__free(data->buffer);
+		gds__free(data);
+		return (0);
+	}
+
+	if (!data->rx_done) {
+		data->semaphore = OpenLocalSemaphore(0);
+		THREAD_EXIT;
+		WaitOnLocalSemaphore(data->semaphore);
+		THREAD_ENTER;
+		data = spx_rx_data[port->port_handle];
+		if (data == NULL)
+			return (0);
+		CloseLocalSemaphore(data->semaphore);
+		if (data->terminated) {
+			spx_rx_data[port->port_handle] = 0;
+			if (data->buffer)
+				gds__free(data->buffer);
+			gds__free(data);
+			return (0);
+		}
+	}
+
+	memcpy(buffer, data->buffer, data->cur_length);
+	(*length) = data->cur_length;
+	data->cur_length = 0;
+	data->semaphore = 0;
+	data->rx_done = FALSE;
+	if (data->buffer_full) {
+		data->buffer_full = FALSE;
+		SignalLocalSemaphore(spx_rx_semaphore);
+	}
+
+	return TRUE;
+}
+
+int spx_check_ecb_error(ecb_blk * ecb)
+/**************************************
+ *
+ * s p x _ c h e c k _ e c b _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *      Check packets termination codes
+ *
+ **************************************/
+{
+	if (ecb->header.dataStreamType == 0xFE ||
+		ecb->spx_ecb.status == STS_SPX_TERMINATED_POORLY ||
+		ecb->spx_ecb.status == STS_SPX_CONNECTION_TERMINATED ||
+		ecb->spx_ecb.status != 0) {
+		return (EFAILURE);
+	}
+
+	return (ESUCCESS);
+}
+
+
+#ifdef OBSOLETE
+void spx_terminate_connection(PORT port)
+/**************************************
+ *
+ * s p x _ t e r m i n a t e _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Terminate connections
+ *
+ **************************************/
+{
+	ecb_blk *tecb;
+
+	tecb = (ecb_blk *) gds__alloc(sizeof(ecb_blk));
+	/* FREE: apparently never freed? */
+	/* NOTE: Why is this allocated instead of stack based? */
+	/*    This function is never called.  (Specifically, because
+	 *    exit_handler locally is never added to the cleanup handlers
+	 *    list.  That's why this function is #IFDEF'ed out.)
+	 *    --  Morgan Schweers, November 02, 1994
+	 */
+	if (!tecb)					/* NOMEM: */
+		return;					/* Not the best handler */
+
+	tecb->spx_ecb.fragCount = 1;
+	tecb->spx_ecb.fragList[0].fragAddress = &tecb->header;
+	tecb->spx_ecb.fragList[0].fragSize
+		= sizeof(SPX_HEADER) + MAX_SPX_DATA_SIZE;
+	tecb->spx_ecb.queueHead = &spx_sent_queue;
+	tecb->spx_ecb.semHandle = spx_sent_semaphore;
+	SpxTerminateConnection(port->port_handle, &tecb->spx_ecb);
+}
+#endif /* OBSOLETE */
+
+
+static PORT aux_request( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *      a u x _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      A remote interface has requested the server prepare an auxiliary 
+ *      connection; the server calls aux_request to set up the connection.
+ *      Specifically, we are *ONLY* called from *ONE* place, and that is
+ *      in SERVER.C at *THEIR* aux_request, which is only called from
+ *      process_packet, by the remote command: op_connect_request.
+ *
+ **************************************/
+	PORT new_port;
+	P_RESP *response;
+	USHORT event_socket = 0;
+	UCHAR event_address[12];
+	ULONG event_listen_semaphore;
+	ecb_blk *spx_event_lecb;
+	async_port_handle *async_handle;
+
+	spx_event_lecb =
+		(ecb_blk *) gds__alloc(sizeof(SPX_ECB) + sizeof(SPX_HEADER));
+/* FREE: disconnect or unload */
+	if (!spx_event_lecb)		/* NOMEM: */
+		return NULL;
+	async_handle =
+		(async_port_handle *) gds__alloc(sizeof(async_port_handle));
+/* FREE: disconnect or unload */
+	if (!async_handle) {		/* NOMEM: */
+		gds__free(spx_event_lecb);
+		return NULL;
+	}
+
+/*  Open a new socket to recieve events on.  */
+	SpxOpenSocket(&event_socket);
+/*  Set our address  */
+	memcpy(event_address, my_network_address, 12);
+/*  Set the socket portion of our address  */
+	memcpy(&(event_address[10]), &event_socket, 2);
+
+/*  Get a port for our async/event work  */
+	new_port = alloc_port(port->port_parent);
+
+/*  Place the new port in our current port's async structure  */
+	port->port_async = new_port;
+
+/*  Set the flags to the same as the port on which we received the request,
+ *  except for setting no out-of-band data
+ */
+	new_port->port_flags |= port->port_flags & PORT_no_oob;
+
+/*  Now we use the 'misc1' field of the port structure to hold the odd handle */
+	new_port->port_misc1 = (int) async_handle;
+
+/*  Okay, now we need a semaphore to listen for these messages.  */
+	event_listen_semaphore = OpenLocalSemaphore(0);
+
+/*  Anyhow, let's make the system recognize that we have a socket (opened
+ *  above), a queue, and a semaphore that we can get information on.
+ */
+	async_handle->ecb_pool =
+		spx_post_receive_ecbs(event_socket, &spx_event_queue,
+							  spx_event_semaphore, 1);
+
+/*  Errors:  No memory, or unable to post ECB's */
+	if (async_handle->ecb_pool == NULL) {
+		async_handle->spx_lecb = spx_event_lecb;
+		disconnect(new_port);
+		CloseLocalSemaphore(event_listen_semaphore);
+	}
+
+/*  How many fragments can we handle?  */
+	spx_event_lecb->spx_ecb.fragCount = 1;
+/*  How big is each one?  */
+	spx_event_lecb->spx_ecb.fragList[0].fragSize =
+		sizeof(SPX_HEADER) + MAX_SPX_DATA_SIZE;
+/*  Where do we store them?  */
+	spx_event_lecb->spx_ecb.fragList[0].fragAddress =
+		(void *) &spx_event_lecb->header;
+/*  What queue should be 'notified' if a situation occurs on this socket?  */
+	spx_event_lecb->spx_ecb.queueHead = &spx_event_queue;
+
+/*  What semaphore should be signalled to tell us to look at this queue?  */
+	spx_event_lecb->spx_ecb.semHandle = event_listen_semaphore;
+
+/*  So, if the port needs to know what its listen_semaphore for events is... */
+	async_handle->event_listen_semaphore = event_listen_semaphore;
+/*  The ECB for listening on the event_socket is...  */
+	async_handle->spx_lecb = spx_event_lecb;
+/*  Last But Not Least, what's the socket we're supposed to listen on? */
+	async_handle->event_socket = event_socket;
+
+/*  Now, listen for an event, on the event_socket, with status and data
+ *  going to the spx_event_lecb 'spx_ecb' substructure, retrying a few
+ *  times, and making sure that if the connection goes quiet that we
+ *  know to disconnect, and if we *GET* a connection, put an identifying
+ *  number (hopefully less than 0x10000) into the port structure, under
+ *  the async_handle's connection id.  *WHEW*.
+ */
+	SpxListenForConnection(event_socket,
+						   (SPX_ECB *) (&spx_event_lecb->spx_ecb),
+						   SPX_RETRY_COUNT, ENABLE_WATCHDOG,
+						   &(async_handle->connid));
+
+/* return with new port and address */
+	response = &packet->p_resp;
+/*  NOTE:  If the function calling this w/ packet doesn't set up enough
+ *  space, we're hosed.  Thank goodness that doesn't happen.  Yet.
+ */
+	response->p_resp_data.cstr_length = 12;
+/*  Oy.  And why couldn't we have used memcpy?  Sheesh.  */
+/*  Basically, set the p_resp->p_resp_data.cstr_address field of the
+ *  packet to be sent to the local address and port to communicate with.
+ */
+	spxnet_copy(event_address, response->p_resp_data.cstr_address,
+				response->p_resp_data.cstr_length);
+
+/*  Okay, now we've set up the port, done a listen, added it to the packet,
+ *  etc, etc, etc.
+ */
+	return new_port;
+}
+
+
+static PORT aux_connect( PORT port, PACKET * packet, void (*ast) ())
+{
+/**************************************
+ *
+ *      a u x _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	WORD connid;
+	rx_data *spx_data;
+	SPX_SESSION spx_session;
+	async_port_handle *async_handle;
+	int i;
+
+/*  Okay, we're being called 'cause we want an auxiliary connection,
+ *  the request has been processed, the local-side socket and address
+ *  has been passed back, and now we should wait for a connection on
+ *  that socket.  The semaphore associated with an ECB which is waiting
+ *  on a listen-status-change on that socket will be signalled when the
+ *  client decides to try to connect with us.  *whew*.
+ */
+	async_handle = (async_port_handle *) port->port_misc1;
+
+	WaitOnLocalSemaphore(async_handle->event_listen_semaphore);
+	CloseLocalSemaphore(async_handle->event_listen_semaphore);
+/*  We don't want to see this semaphore ever again.  It's the listen-only
+ *  semaphore.
+ */
+	async_handle->event_listen_semaphore = 0;
+
+/*  NOW what we've recieved a connection ID, that's the *REAL* port_handle.
+ *  (The connection ID was placed in async_handle->connid by passing the
+ *  address of async_handle->connid in SPXListenForConnection in aux_request.
+ */
+
+	port->port_handle = async_handle->connid;
+/*  Now that we've established this port, set a note that this is an async
+ *  port.
+ */
+	port->port_flags |= PORT_async;
+
+/*  Allocate space for the connection's data structure, aka rx_data.  */
+	spx_data = (rx_data *) gds__alloc(sizeof(rx_data));
+/* FREE: disconnect or unload */
+	if (!spx_data)				/* NOMEM: */
+		return NULL;
+
+/*  Now allocate space for the buffer portion of rx_data, ie., packet data */
+	spx_data->buffer = (UCHAR *) gds__alloc(RX_BUFFER_SIZE);
+/* FREE: disconnect or unload */
+	if (!spx_data->buffer) {	/* NOMEM: */
+		gds__free(spx_data);
+		return NULL;
+	}
+
+/*  Here's where that fun friendly f**ked up global comes in again...  */
+/*  We shouldn't use async_handle anymore, it should be port->port_handle */
+/*  OLD STATEMENT: spx_rx_data[async_handle->connid] = spx_data;  */
+	spx_rx_data[port->port_handle] = spx_data;
+	spx_data->cur_length = 0;
+	spx_data->max_len = RX_BUFFER_SIZE;
+	spx_data->semaphore = 0;
+	spx_data->rx_done = FALSE;
+	spx_data->terminated = FALSE;
+	spx_data->fragment_number = 0;
+
+/*  Interesting...  We presume, in a large way.  */
+/*OLD STATEMENT: SpxGetConnectionStatus(async_handle->connid, &spx_session); */
+	SpxGetConnectionStatus(port->port_handle, &spx_session);
+	memcpy(&(spx_data->client_address), &(spx_session.sRemoteNet), 12);
+
+	return (port);
+}
+
+
+static BOOLEAN wait_on_local_semaphore_timeout(
+											   ULONG semaphore,
+											   USHORT timeout)
+{
+/**************************************
+ *
+ *      w a i t _ o n _ l o c a l _ s e m a p h o r e _ t i m e o u t
+ *
+ **************************************
+ *
+ * Functional description
+ *    Wait either for one semaphore to be signal or a timeout to occur.
+ *    Return TRUE if semaphore was signal before timeout else FALSE.
+ *    The parameter timeout is in seconds.
+ *    Note that this only clears one value off the semaphore queue.
+ *
+ **************************************/
+	USHORT count = timeout * 10;
+
+	if (!spx_exit) {
+		while (!spx_exit && ExamineLocalSemaphore(semaphore) == 0
+			   && count > 0) {
+			delay(100);
+			count--;
+		}
+		if (count != 0) {
+			if (!spx_exit)
+				WaitOnLocalSemaphore(semaphore);
+			else
+				return (FALSE);
+		}
+	}
+	return (count != 0);
+}
diff --git a/src/remote/spxnet32.cpp b/src/remote/spxnet32.cpp
new file mode 100644
index 0000000000..9b93006d75
--- /dev/null
+++ b/src/remote/spxnet32.cpp
@@ -0,0 +1,1818 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/ Windows Client
+ *	MODULE:		spxnet32.c
+ *	DESCRIPTION:	SPX 32 bit Windows Client Communications module.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include <string.h>
+#include <stdlib.h>
+#include "../jrd/common.h"
+#include <stdarg.h>
+
+#include "../jrd/time.h"
+
+#ifdef SUPERSERVER
+#define FD_SETSIZE 256
+#endif /* SUPERSERVER */
+
+#define GETHOSTBYNAME gethostbyname
+#define GETHOSTNAME gethostname
+
+#include "../remote/remote.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/iberr.h"
+#include "../jrd/thd.h"
+#include "../remote/spxnet32_proto.h"
+#include "../remote/proto_proto.h"
+#include "../remote/remot_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+
+#include "../jrd/isc_i_proto.h"
+#include "../jrd/sch_proto.h"
+
+#include <wsipx.h>
+#include <wsnwlink.h>
+
+
+
+#define FILESERVER_SAP_NUMBER		0x0004
+#define SERVICE_QUERY_PACKET_TYPE	4
+
+typedef struct nodeaddr
+{
+	char name[20];
+	SOCKADDR_IPX addr;
+	SOCKET SAPSocket;
+} NODEADDR;
+
+/* Packet structure for broadcast SAP packets. Refer to Novell docs. */
+typedef struct saphdr
+{
+	WORD operation;
+	WORD servicetype;
+	char name[48];
+	char network[4];
+	char node[6];
+	char socket[2];
+} SAPHDR;
+
+/* Packet structure for broadcast Service SERVICE_QUERY packets. Refer to Novell docs. */
+typedef struct servicequery {
+	WORD operation;
+	WORD servicetype;
+} SERVICE_QUERY;
+
+
+#define ERRNO		WSAGetLastError()
+#define H_ERRNO		WSAGetLastError()
+#define SOCLOSE		closesocket
+#define SYS_ERR		gds_arg_win32
+
+#ifndef ENOBUFS
+#define ENOBUFS	0
+#endif
+
+/* 576 - (spx header + 4) match server. 
+   This is really required only for Win 95 as it appears to be 
+   either a limitation or a bug in the SPX stack.
+   Though NT works fine for a larger size, let's use this accross the board */
+#define MAX_DATA	530
+#define BUFFER_SIZE	MAX_DATA
+#define MAX_SEQUENCE	256
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	1024
+#endif
+
+#ifndef MAXHOSTLEN
+#define MAXHOSTLEN	64
+#endif
+
+static PORT alloc_port(PORT);
+static PORT aux_connect(PORT, PACKET *, XDR_INT(*)(void));
+static unsigned char btoh(char);
+static void cleanup_port(PORT);
+static void disconnect(PORT);
+static void exit_handler(void *);
+static void spxnet32_copy(SCHAR *, SCHAR *, int);
+static int spxnet32_destroy(XDR *);
+static void spxnet32_gen_error(PORT, STATUS, ...);
+static bool_t spxnet32_getbytes(XDR *, SCHAR *, u_int);
+static bool_t spxnet32_getlong(XDR *, SLONG *);
+static u_int spxnet32_getpostn(XDR *);
+static caddr_t spxnet32_inline(XDR *, u_int);
+static int spxnet32_error(PORT, CONST TEXT *, STATUS, int);
+static bool_t spxnet32_putlong(XDR *, SLONG *);
+static bool_t spxnet32_putbytes(XDR *, SCHAR *, u_int);
+static bool_t spxnet32_read(XDR *);
+static bool_t spxnet32_setpostn(XDR *, u_int);
+static PORT spxnet32_try_connect(PACKET *,
+								 RDB,
+								 USHORT,
+								 TEXT *, TEXT *, STATUS *, SCHAR *, SSHORT);
+static bool_t spxnet32_write(XDR *, int);
+static void spxnet32_zero(SCHAR *, int);
+static bool_t packet_receive(PORT, UCHAR *, SSHORT, SSHORT *);
+static bool_t packet_send(PORT, SCHAR *, SSHORT);
+static PORT receive(PORT, PACKET *);
+static int send_full(PORT, PACKET *);
+static int send_partial(PORT, PACKET *);
+void WINAPI SAP_handler_thread(LPVOID);
+static void unhook_port(PORT, PORT);
+static int xdrspxnet32_create(XDR *, PORT, UCHAR *, USHORT, enum xdr_op);
+static bool_t xdrspxnet32_endofrecord(XDR *, int);
+static BOOL get_ipx_network_address(NODEADDR * nodeAddr);
+
+
+static const xdr_t::xdr_ops spxnet32_ops = {
+	spxnet32_getlong,
+	spxnet32_putlong,
+	spxnet32_getbytes,
+	spxnet32_putbytes,
+	spxnet32_getpostn,
+	spxnet32_setpostn,
+	spxnet32_inline,
+	spxnet32_destroy
+};
+
+#ifndef MAX_PTYPE
+#define MAX_PTYPE	ptype_batch_send
+#endif
+
+static int SPXNET32_initialized = FALSE;
+static WSADATA SPXNET32_wsadata;
+
+#define	INTERRUPT_ERROR(x)	(SYSCALL_INTERRUPTED(x) || (x) == WSAEINTR)
+
+#ifdef  START_PORT_CRITICAL
+#undef  START_PORT_CRITICAL
+#undef  STOP_PORT_CRITICAL
+#undef  DEFER_PORT_CLEANUP
+#endif
+
+#ifdef  SUPERSERVER
+#include "../jrd/thd_proto.h"
+
+static MUTX_T port_mutex;
+static BOOL port_mutex_inited = 0;
+
+#define DEFER_PORT_CLEANUP
+
+#define START_PORT_CRITICAL     if (!port_mutex_inited)                \
+                                    {                                  \
+                                    port_mutex_inited = 1;             \
+                                    THD_mutex_init (&port_mutex);      \
+                                    }                                  \
+                                THREAD_EXIT;                           \
+                                THD_mutex_lock (&port_mutex);          \
+                                THREAD_ENTER
+
+#define STOP_PORT_CRITICAL      THREAD_EXIT;                           \
+                                THD_mutex_unlock (&port_mutex);        \
+                                THREAD_ENTER
+
+#endif /* SUPERSERVER */
+
+#ifndef START_PORT_CRITICAL
+#define START_PORT_CRITICAL
+#define STOP_PORT_CRITICAL
+#endif
+
+
+
+
+
+PORT SPXNET32_analyze(
+					  TEXT * file_name,
+					  USHORT * file_length,
+					  STATUS * status_vector,
+					  TEXT * node_name,
+TEXT * user_string, USHORT uv_flag, SCHAR * dpb, SSHORT dpb_length)
+{
+/**************************************
+ *
+ *	S P X N E T 3 2 _ a n a l y z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	File_name is on node_name.
+ *	Establish an external connection to node_name.
+ *
+ *	If a connection is established, return a port block, otherwise
+ *	return NULL.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	PACKET *packet;
+	P_CNCT *cnct;
+	int eff_gid, eff_uid;
+	SSHORT user_length;
+	UCHAR *p, user_id[200];
+	TEXT buffer[64];
+	p_cnct::p_cnct_repeat * protocol;
+
+	*file_length = strlen(file_name);
+
+/* We need to establish a connection to a remote server.  Allocate the necessary
+   blocks and get ready to go. */
+
+	rdb = (RDB) ALLOC(type_rdb);
+	packet = &rdb->rdb_packet;
+
+/* Pick up some user identification information */
+	user_id[0] = CNCT_user;
+	p = user_id + 2;
+	ISC_get_user(reinterpret_cast < char *>(p), &eff_uid, &eff_gid, 0, 0, 0,
+				 user_string);
+	user_id[1] = (UCHAR) strlen((SCHAR *) p);
+	p = p + user_id[1];
+
+	*p++ = CNCT_host;
+	p++;
+	ISC_get_host(reinterpret_cast < char *>(p), 64);
+	p[-1] = (UCHAR) strlen((SCHAR *) p);
+
+	for (; *p; p++)
+		if (*p >= 'A' && *p <= 'Z')
+			*p = *p - 'A' + 'a';
+
+	if ((eff_uid == -1) || uv_flag) {
+		*p++ = CNCT_user_verification;
+		*p++ = 0;
+	}
+	else {
+		/* Communicate group id info to server, as user maybe running under group
+		   id other than default specified in /etc/passwd. */
+
+		*p++ = CNCT_group;
+		*p++ = sizeof(SLONG);
+		eff_gid = htonl(eff_gid);
+		memcpy(p, AOF32L(eff_gid), sizeof(SLONG));
+		p += sizeof(SLONG);
+	}
+
+	user_length = (SSHORT) (p - user_id);
+
+/* Establish connection to server */
+
+	cnct = &packet->p_cnct;
+	cnct->p_cnct_count = 4;
+	cnct->p_cnct_user_id.cstr_length = user_length;
+	cnct->p_cnct_user_id.cstr_address = user_id;
+
+	protocol = cnct->p_cnct_versions;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION9;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 2;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION9;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 3;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION10;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 4;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION10;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 5;
+
+	port = spxnet32_try_connect(packet, rdb, *file_length, file_name,
+								node_name, status_vector, dpb, dpb_length);
+	if (!port)
+		return NULL;
+
+	if (packet->p_operation != op_accept) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds_connect_reject;
+		*status_vector++ = 0;
+		disconnect(port);
+		return NULL;
+	}
+
+	port->port_protocol = packet->p_acpt.p_acpt_version;
+
+#ifdef DEBUG
+	ib_printf("port proto version = %d\n", port->port_protocol);
+#endif
+
+/* once we've decided on a protocol, concatenate the version 
+   string to reflect it...  */
+
+	sprintf(buffer, "%s/P%d", port->port_version->str_data,
+			port->port_protocol);
+	ALLR_free(port->port_version);
+	port->port_version = REMOTE_make_string(buffer);
+
+	if (packet->p_acpt.p_acpt_architecture == ARCHITECTURE)
+		port->port_flags |= PORT_symmetric;
+
+	if (packet->p_acpt.p_acpt_type == ptype_rpc)
+		port->port_flags |= PORT_rpc;
+
+	if (packet->p_acpt.p_acpt_type != ptype_out_of_band)
+		port->port_flags |= PORT_no_oob;
+
+	return port;
+}
+
+
+PORT DLL_EXPORT SPXNET32_connect(TEXT * name,
+								 PACKET * packet,
+								 STATUS * status_vector,
+								 USHORT flag, SCHAR * dpb, SSHORT dpb_length)
+{
+/**************************************
+ *
+ *	S P X N E T 3 2 _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish half of a communication link.  If a connect packet is given,
+ *	the connection is on behalf of a remote interface.  Otherwise the connect
+ *	is for a server process.
+ *
+ **************************************/
+	int n;
+	PORT port;
+	TEXT temp[128], *p;
+	NODEADDR nodeAddr;
+
+	port = alloc_port(0);
+	port->port_status_vector = status_vector;
+	REMOTE_get_timeout_params(port, reinterpret_cast < UCHAR * >(dpb),
+							  dpb_length);
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+
+	if (name) {
+		strcpy(temp, name);
+		for (p = temp; *p;)
+			if (*p++ == '/') {
+				p[-1] = 0;
+				name = temp;
+				break;
+			}
+	}
+
+	if (name && *name) {
+		if (port->port_connection)
+			ALLR_free(port->port_connection);
+		port->port_connection = REMOTE_make_string(name);
+	}
+	else
+		name = port->port_host->str_data;
+
+
+/* Allocate a port block and initialize a socket for communications */
+
+	port->port_handle = (HANDLE) socket(AF_IPX, SOCK_STREAM, NSPROTO_SPX);
+	if ((SOCKET) port->port_handle == INVALID_SOCKET) {
+		spxnet32_error(port, "socket", isc_net_connect_err, ERRNO);
+		return NULL;
+	}
+	strcpy(nodeAddr.name, name);
+
+
+	if (packet) {
+#ifdef  DEBUG
+		ib_printf("Get IPX net address & node number\n");
+#endif
+		if (get_ipx_network_address(&nodeAddr) == NULL) {
+#ifdef  DEBUG
+			ib_printf("Get IPX address failed\n");
+#endif
+			spxnet32_error(port, "connect addr", isc_net_connect_err, ERRNO);
+			return NULL;
+		}
+	}
+
+/* If we're a host, just make the connection */
+
+	if (packet) {
+		THREAD_EXIT;
+		nodeAddr.addr.sa_family = AF_IPX;
+		memcpy(&(nodeAddr.addr.sa_socket), "\x94\x87", 2);
+#ifdef DEBUG
+		ib_printf("connect to node (sock %d) \n", port->port_handle);
+		ib_printf("net = %x,%x,%x,%x node = %x,%x,%x,%x,%x,%x, sock %d\n",
+				  (unsigned char) nodeAddr.addr.sa_netnum[0],
+				  (unsigned char) nodeAddr.addr.sa_netnum[1],
+				  (unsigned char) nodeAddr.addr.sa_netnum[2],
+				  (unsigned char) nodeAddr.addr.sa_netnum[3],
+				  (unsigned char) nodeAddr.addr.sa_nodenum[0],
+				  (unsigned char) nodeAddr.addr.sa_nodenum[1],
+				  (unsigned char) nodeAddr.addr.sa_nodenum[2],
+				  (unsigned char) nodeAddr.addr.sa_nodenum[3],
+				  (unsigned char) nodeAddr.addr.sa_nodenum[4],
+				  (unsigned char) nodeAddr.addr.sa_nodenum[5],
+				  nodeAddr.addr.sa_socket);
+#endif
+
+		n =
+			connect((SOCKET) port->port_handle,
+					(SOCKADDR *) & (nodeAddr.addr), 14);
+		THREAD_ENTER;
+		if (n != SOCKET_ERROR && send_full(port, packet)) {
+#ifdef DEBUG
+			ib_printf("connected to node\n");
+#endif
+			return port;
+		}
+		else {
+			spxnet32_error(port, "connect", isc_net_connect_err, ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+	}
+
+	return NULL;
+}
+
+
+PORT SPXNET32_reconnect(HANDLE handle, TEXT * name, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	S P X N E T 3 2 _ r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	A communications link has been established by another
+ *	process.  We have inheritted the handle.  Set up
+ *	a port block.
+ *
+ **************************************/
+	PORT port;
+
+	port = alloc_port(0);
+	port->port_status_vector = status_vector;
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+
+	port->port_handle = handle;
+	port->port_server_flags |= SRVR_server;
+
+	return port;
+}
+
+
+static PORT alloc_port( PORT parent)
+{
+/**************************************
+ *
+ *	a l l o c _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a port block, link it in to parent (if there is a parent),
+ *	and initialize input and output XDR streams.
+ *
+ **************************************/
+	PORT port;
+	TEXT buffer[64];
+
+	if (!SPXNET32_initialized) {
+		WORD version;
+
+		version = MAKEWORD(1, 1);
+		if (WSAStartup(version, &SPXNET32_wsadata)) {
+			if (parent)
+				spxnet32_error(parent, "WSAStartup", isc_net_init_error,
+							   ERRNO);
+			else {
+				sprintf(buffer,
+						"SPXNET32/alloc_port: WSAStartup failed, error code = %d",
+						ERRNO);
+				gds__log(buffer, 0);
+			}
+			return NULL;
+		}
+		gds__register_cleanup(exit_handler, 0);
+		SPXNET32_initialized = TRUE;
+	}
+	port = (PORT) ALLOCV(type_port, BUFFER_SIZE * 2);
+	port->port_type = port_spx;
+	port->port_state = state_pending;
+	REMOTE_get_timeout_params(port, 0, 0);
+
+	GETHOSTNAME(buffer, sizeof(buffer));
+
+	port->port_host = REMOTE_make_string(buffer);
+	port->port_connection = REMOTE_make_string(buffer);
+	sprintf(buffer, "spx (%s)", port->port_host->str_data);
+	port->port_version = REMOTE_make_string(buffer);
+
+	START_PORT_CRITICAL;
+	if (parent && !(parent->port_server_flags & SRVR_thread_per_port)) {
+		port->port_parent = parent;
+		port->port_next = parent->port_clients;
+		parent->port_clients = parent->port_next = port;
+		port->port_handle = parent->port_handle;
+		port->port_server = parent->port_server;
+		port->port_server_flags = parent->port_server_flags;
+	}
+	STOP_PORT_CRITICAL;
+
+	port->port_receive_packet = receive;
+	port->port_disconnect = disconnect;
+	port->port_send_packet = send_full;
+	port->port_send_partial = send_partial;
+	port->port_connect =
+		reinterpret_cast < PORT(*)(PORT, PACKET *, void (*)()) >(aux_connect);
+	port->port_buff_size = BUFFER_SIZE;
+
+	xdrspxnet32_create(&port->port_send, port,
+					   &port->port_buffer[BUFFER_SIZE], BUFFER_SIZE,
+					   XDR_ENCODE);
+
+	xdrspxnet32_create(&port->port_receive, port, port->port_buffer, 0,
+					   XDR_DECODE);
+
+	return port;
+}
+
+
+static PORT aux_connect( PORT port, PACKET * packet, XDR_INT(*ast) (void))
+{
+/**************************************
+ *
+ *	a u x _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to establish an alternative connection.  Somebody has already
+ *	done a successfull connect request ("packet" contains the response).
+ *
+ **************************************/
+	P_RESP *response;
+	SOCKET n;
+	int status;
+	PORT new_port;
+	SOCKADDR_IPX address;
+
+#ifdef DEBUG
+	ib_printf("aux_connect from client\n");
+#endif
+	port->port_async = new_port = alloc_port(port->port_parent);
+
+	new_port->port_dummy_packet_interval = port->port_dummy_packet_interval;
+
+	new_port->port_flags |= PORT_async;
+	response = &packet->p_resp;
+
+/* Set up new socket */
+
+	n = (SOCKET) socket(AF_IPX, SOCK_STREAM, NSPROTO_SPX);
+	if (n == INVALID_SOCKET) {
+		spxnet32_error(port, "socket", isc_net_event_connect_err, ERRNO);
+		return NULL;
+	}
+
+#ifdef DEBUG
+	ib_printf("aux_connect from client: sock created\n");
+#endif
+	spxnet32_zero((SCHAR *) & address, sizeof(address));
+	address.sa_family = AF_IPX;
+	spxnet32_copy(reinterpret_cast <
+				  char *>(response->p_resp_data.cstr_address),
+				  &(address.sa_netnum[0]), response->p_resp_data.cstr_length);
+	THREAD_EXIT;
+	status = connect(n, (SOCKADDR *) & address, 14);
+	THREAD_ENTER;
+
+	if (status < 0) {
+		spxnet32_error(port, "connect", isc_net_event_connect_err, ERRNO);
+		SOCLOSE(n);
+		return NULL;
+	}
+
+	new_port->port_handle = (HANDLE) n;
+	new_port->port_flags |= port->port_flags & PORT_no_oob;
+
+#ifdef DEBUG
+	ib_printf("aux_con: port = %x, port_flags = %x\n",
+			  new_port, new_port->port_flags);
+#endif
+
+	return new_port;
+}
+
+
+static void cleanup_port( PORT port)
+{
+/**************************************
+ *
+ *	c l e a n u p _ p o r t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Walk through the port structure freeing
+ * 	allocated memory and then free the port.
+ *
+ **************************************/
+
+	if (port->port_version)
+		ALLR_free((UCHAR *) port->port_version);
+
+	if (port->port_connection)
+		ALLR_free((UCHAR *) port->port_connection);
+
+	if (port->port_user_name)
+		ALLR_free((UCHAR *) port->port_user_name);
+
+	if (port->port_host)
+		ALLR_free((UCHAR *) port->port_host);
+
+	if (port->port_object_vector)
+		ALLR_free((UCHAR *) port->port_object_vector);
+
+#ifdef DEBUG_XDR_MEMORY
+	if (port->port_packet_vector)
+		ALLR_free((UCHAR *) port->port_packet_vector);
+#endif
+
+	ALLR_release((UCHAR *) port);
+	return;
+}
+
+
+static BOOL decode_sap( NODEADDR * nodeAddr, SAPHDR * lpSap, int cbBufSize)
+{
+	int count = cbBufSize / sizeof(SAPHDR);
+	int i;
+
+	for (i = 0; i < count; i++, lpSap++) {
+#ifdef DEBUG
+		ib_printf("lpsap oper = %x\n", lpSap->operation);
+#endif
+		if (lpSap->servicetype != htons(FILESERVER_SAP_NUMBER))
+			continue;
+#ifdef DEBUG
+		ib_printf("sap parsing(iter %d): %s\n", i, lpSap->name);
+#endif
+		CharLowerBuff(lpSap->name, strlen(lpSap->name));
+		CharLowerBuff(nodeAddr->name, strlen(nodeAddr->name));
+		if (strcmp(nodeAddr->name, lpSap->name) != 0)
+			continue;
+		memcpy(&nodeAddr->addr.sa_netnum, &lpSap->network, 12);
+		return TRUE;
+	}
+	return FALSE;
+}
+
+
+static void disconnect( PORT port)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break a remote connection.
+ *
+ **************************************/
+	PORT parent;
+#ifdef	DEFER_PORT_CLEANUP
+	SSHORT defer_cleanup = 0;
+#endif
+
+
+	shutdown((int) port->port_handle, 2);
+
+/* If this is a sub-port, unlink it from it's parent */
+
+#ifdef  DEFER_PORT_CLEANUP
+	port->port_state = state_disconnected;
+#endif
+	if ((parent = port->port_parent) != NULL) {
+		if (port->port_async) {
+			disconnect(port->port_async);
+			port->port_async = NULL;
+		}
+#ifdef	DEFER_PORT_CLEANUP
+		defer_cleanup = 1;
+#else
+		unhook_port(port, parent);
+#endif
+	}
+	else if (port->port_async) {
+#ifdef MULTI_THREAD
+		port->port_async->port_flags |= PORT_disconnect;
+#else
+		disconnect(port->port_async);
+		port->port_async = NULL;
+#endif
+	}
+
+	SOCLOSE((SOCKET) port->port_handle);
+
+	gds__unregister_cleanup(exit_handler, (void *) port);
+
+#ifdef DEFER_PORT_CLEANUP
+	if (!defer_cleanup)
+#endif
+		cleanup_port(port);
+	return;
+}
+
+
+static void exit_handler( void *arg)
+{
+/**************************************
+ *
+ *	e x i t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown all active connections
+ *	to allow restart.
+ *
+ **************************************/
+	PORT port, main_port;
+
+	main_port = (PORT) arg;
+
+	if (!main_port) {
+		WSACleanup();
+		return;
+	}
+
+	for (port = main_port; port; port = port->port_next) {
+		shutdown((int) port->port_handle, 2);
+		SOCLOSE((SOCKET) port->port_handle);
+	}
+}
+
+
+static BOOL get_ipx_network_address( NODEADDR * nodeAddr)
+{
+	HANDLE hSAPhdlrThread;
+	DWORD SAPhdlrThreadID;
+	SOCKADDR_IPX SAPSockAddr;
+	DWORD dwRet;
+	int bcaststat;
+	int reuseaddr;
+	SERVICE_QUERY query;
+	SOCKADDR_IPX queryAddr;
+	DWORD serviceQueryPacketType = SERVICE_QUERY_PACKET_TYPE;
+	SOCKET s;
+
+	if ((nodeAddr->SAPSocket = socket(AF_IPX,
+									  SOCK_DGRAM,
+									  NSPROTO_IPX + 4)) != INVALID_SOCKET) {
+		bcaststat = TRUE;
+		reuseaddr = TRUE;
+		setsockopt(nodeAddr->SAPSocket, SOL_SOCKET, SO_BROADCAST,
+				   (char *) &bcaststat, sizeof(bcaststat));
+		setsockopt(nodeAddr->SAPSocket, SOL_SOCKET, SO_REUSEADDR,
+				   (char *) &reuseaddr, sizeof(reuseaddr));
+		spxnet32_zero((SCHAR *) & SAPSockAddr, sizeof(SAPSockAddr));
+		SAPSockAddr.sa_family = AF_IPX;
+		memcpy(&(SAPSockAddr.sa_socket), "\x04\x52", 2);
+
+		if (bind
+			(nodeAddr->SAPSocket, (PSOCKADDR) & SAPSockAddr,
+			 sizeof(SOCKADDR_IPX)) == SOCKET_ERROR) {
+#ifdef DEBUG
+			ib_printf("SAP socket bind failed %d.\n", WSAGetLastError());
+#endif
+			return (NULL);
+		}
+
+#ifdef DEBUG
+		ib_printf("SAPhdlr Thread create call %d\n", nodeAddr->SAPSocket);
+#endif
+		hSAPhdlrThread = CreateThread(NULL, 0L, (LPTHREAD_START_ROUTINE) SAP_handler_thread, nodeAddr,	/* node name, addr place holder */
+									  0, &SAPhdlrThreadID);
+
+		if (hSAPhdlrThread == NULL) {
+			return (NULL);
+		}
+
+#ifdef DEBUG
+		ib_printf("SAPhdlr Thread created\n");
+#endif
+		if ((s = socket(AF_IPX, SOCK_DGRAM, NSPROTO_IPX + 4)) ==
+			INVALID_SOCKET) {
+#ifdef DEBUG
+			ib_printf(" socket creation failed %d.\n", WSAGetLastError());
+#endif
+			TerminateThread(hSAPhdlrThread, 0);
+			closesocket(nodeAddr->SAPSocket);
+			return NULL;
+		}
+		dwRet =
+			setsockopt(s, NSPROTO_IPX, IPX_PTYPE,
+					   (const char *) &serviceQueryPacketType, 4);
+		if (dwRet == SOCKET_ERROR) {
+#ifdef DEBUG
+			ib_printf("SERVICE query set packet type error : %d\n",
+					  WSAGetLastError());
+#endif
+			TerminateThread(hSAPhdlrThread, 0);
+			closesocket(s);
+			closesocket(nodeAddr->SAPSocket);
+			return NULL;
+		}
+		spxnet32_zero((SCHAR *) & queryAddr, sizeof(queryAddr));
+		queryAddr.sa_family = AF_IPX;
+		memcpy(&(queryAddr.sa_netnum), "\x00\x00\x00\x00", 4);
+		memcpy(&(queryAddr.sa_nodenum), "\xFF\xFF\xFF\xFF\xFF\xFF", 6);
+		memcpy(&(queryAddr.sa_socket), "\x04\x52", 2);
+
+		query.operation = htons(0x0001);
+		query.servicetype = htons(FILESERVER_SAP_NUMBER);
+
+		dwRet = sendto(nodeAddr->SAPSocket,
+					   (LPSTR) & query,
+					   sizeof(query),
+					   0, (const struct sockaddr *) &queryAddr, 16);
+		if (dwRet != SOCKET_ERROR) {
+#ifdef DEBUG
+			ib_printf("SERVICE query packet sent\n");
+#endif
+		}
+		else {
+#ifdef DEBUG
+			ib_printf("SERVICE query send Err: %d\n", WSAGetLastError());
+#endif
+			TerminateThread(hSAPhdlrThread, 0);
+			closesocket(s);
+			closesocket(nodeAddr->SAPSocket);
+			return NULL;
+		}
+
+		if (WaitForSingleObject(hSAPhdlrThread, 90 * 1000) == WAIT_OBJECT_0) {
+#ifdef DEBUG
+			ib_printf("SAPhdlr thread completes address resolution\n");
+#endif
+			closesocket(s);
+			closesocket(nodeAddr->SAPSocket);
+			return TRUE;
+		}
+		else {
+#ifdef DEBUG
+			ib_printf("SAPhdlr thread timed out\n");
+#endif
+			TerminateThread(hSAPhdlrThread, 0);
+			closesocket(s);
+			closesocket(nodeAddr->SAPSocket);
+			return NULL;
+		}
+	}
+#ifdef DEBUG
+	ib_printf("SAP socket creation failed %d.\n", WSAGetLastError());
+#endif
+	return NULL;
+}
+
+
+static void spxnet32_copy( SCHAR * from, SCHAR * to, int length)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _ c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a number of bytes;
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while ((--length) != 0);
+}
+
+
+static void spxnet32_zero( SCHAR * address, int length)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _  z e r o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zero a block of memory.
+ *
+ **************************************/
+
+	if (length)
+		do
+			*address++ = 0;
+		while ((--length) != 0);
+}
+
+
+static PORT receive( PORT main_port, PACKET * packet)
+{
+/**************************************
+ *
+ *	r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message from a port or clients of a port.  If the process
+ *	is a server and a connection request comes in, generate a new port
+ *	block for the client.
+ *
+ **************************************/
+
+/* If this isn't a multi-client server, just do the operation and get it
+   over with */
+
+	if (!(main_port->port_server_flags & SRVR_multi_client)) {
+		/* loop as long as we are receiving dummy packets, just
+		   throwing them away--note that if we are a server we won't 
+		   be receiving them, but it is better to check for them at 
+		   this level rather than try to catch them in all places where 
+		   this routine is called */
+
+		do {
+#ifdef DEBUG
+			ib_printf("receive calls xdr_protocol\n");
+#endif
+			if (!xdr_protocol(&main_port->port_receive, packet))
+				return (PORT) 0;
+		}
+		while (packet->p_operation == op_dummy);
+
+		return main_port;
+	}
+	return (PORT) 0;
+}
+
+
+static int send_full( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	s e n d _ f u l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+#ifdef DEBUG
+	ib_printf("send_full calls xdr_protocol\n");
+#endif
+	if (!xdr_protocol(&port->port_send, packet))
+		return FALSE;
+
+	return xdrspxnet32_endofrecord(&port->port_send, TRUE);
+}
+
+
+static int send_partial( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	s e n d _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+#ifdef DEBUG
+	ib_printf("send_partial calls xdr_protocol\n");
+#endif
+	return xdr_protocol(&port->port_send, packet);
+}
+
+
+
+static int xdrspxnet32_create(
+							  XDR * xdrs,
+							  PORT port,
+							  UCHAR * buffer, USHORT length, enum xdr_op x_op)
+{
+/**************************************
+ *
+ *	x d r s p x n e t 3 2 _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize an XDR stream for Apollo mailboxes.
+ *
+ **************************************/
+
+	xdrs->x_public = (caddr_t) port;
+	xdrs->x_base = xdrs->x_private = (SCHAR *) buffer;
+	xdrs->x_handy = length;
+	xdrs->x_ops = &spxnet32_ops;
+	xdrs->x_op = x_op;
+
+	return TRUE;
+}
+
+
+static bool_t xdrspxnet32_endofrecord( XDR * xdrs, bool_t flushnow)
+{
+/**************************************
+ *
+ *	x d r s p x n e t 3 2 _ e n d o f r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out the rest of a record.
+ *
+ **************************************/
+
+	return spxnet32_write(xdrs, flushnow);
+}
+
+
+static XDR_INT spxnet32_destroy( XDR * xdrs)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _ d e s t r o y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Destroy a stream.  A no-op.
+ *
+ **************************************/
+
+	return NULL;
+}
+
+
+static void spxnet32_gen_error( PORT port, STATUS status, ...)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _ g e n _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An error has occurred.  Mark the port as broken.
+ *	Format the status vector if there is one and
+ *	save the status vector strings in a permanent place.
+ *
+ **************************************/
+	STATUS *status_vector;
+
+	port->port_flags |= PORT_broken;
+	port->port_state = state_broken;
+
+	status_vector = NULL;
+	if (port->port_context != NULL)
+		status_vector = port->port_context->rdb_status_vector;
+	if (status_vector == NULL)
+		status_vector = port->port_status_vector;
+	if (status_vector != NULL) {
+		STUFF_STATUS(status_vector, status);
+		REMOTE_save_status_strings(status_vector);
+	}
+}
+
+
+static bool_t spxnet32_getbytes( XDR * xdrs, SCHAR * buff, u_int count)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _ g e t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a bunch of bytes from a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(buff, xdrs->x_private, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(buff, xdrs->x_private, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!spxnet32_read(xdrs))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*buff++ = *xdrs->x_private++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (!xdrs->x_handy && !spxnet32_read(xdrs))
+			return FALSE;
+		*buff++ = *xdrs->x_private++;
+		--xdrs->x_handy;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t spxnet32_getlong( XDR * xdrs, SLONG * lp)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _ g e t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+
+	SLONG l;
+
+	if (!(*xdrs->x_ops->x_getbytes) (xdrs, reinterpret_cast < char *>(&l), 4))
+		return FALSE;
+
+	*lp = ntohl(l);
+
+	return TRUE;
+}
+
+
+static u_int spxnet32_getpostn( XDR * xdrs)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _ g e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	return (u_int) (xdrs->x_private - xdrs->x_base);
+}
+
+
+static caddr_t spxnet32_inline( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _  i n l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a pointer to somewhere in the buffer.
+ *
+ **************************************/
+
+	if (bytecount > (u_int) xdrs->x_handy)
+		return FALSE;
+
+	return xdrs->x_base + bytecount;
+}
+
+
+static int spxnet32_error(
+						  PORT port,
+						  CONST TEXT * function, STATUS operation, int status)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An I/O error has occurred.  Call
+ * 	spxnet32_gen_error with the appropriate args
+ *	to format the status vector if any.
+ *	In any case, return NULL, which
+ *	is used to indicate an error.
+ *
+ **************************************/
+	TEXT msg[64];
+
+	if (status) {
+		spxnet32_gen_error(port, isc_network_error,
+						   gds_arg_string,
+						   (STATUS) port->port_connection->str_data,
+						   isc_arg_gds, operation, SYS_ERR, status, 0);
+
+		sprintf(msg, "SPXNET32/spxnet32_error: %s errno = %d", function,
+				status);
+		gds__log(msg, 0);
+	}
+	else {
+		/* No status value, just format the basic arguments. */
+
+		spxnet32_gen_error(port, isc_network_error,
+						   gds_arg_string,
+						   (STATUS) port->port_connection->str_data,
+						   isc_arg_gds, operation, 0);
+	}
+
+	return (int) NULL;
+}
+
+
+static bool_t spxnet32_putbytes( XDR * xdrs, SCHAR * buff, u_int count)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _ p u t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a bunch of bytes to a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(xdrs->x_private, buff, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(xdrs->x_private, buff, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!spxnet32_write(xdrs, 0))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*xdrs->x_private++ = *buff++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (xdrs->x_handy <= 0 && !spxnet32_write(xdrs, 0))
+			return FALSE;
+		--xdrs->x_handy;
+		*xdrs->x_private++ = *buff++;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t spxnet32_putlong( XDR * xdrs, SLONG * lp)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _ p u t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG l;
+
+	l = htonl(*lp);
+	return (*xdrs->x_ops->x_putbytes) (xdrs,
+									   reinterpret_cast < char *>(AOF32L(l)),
+									   4);
+}
+
+
+static bool_t spxnet32_read( XDR * xdrs)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a buffer full of data.  If we receive a bad packet,
+ *	send the moral equivalent of a NAK and retry.  ACK all
+ *	partial packets.  Don't ACK the last packet -- the next
+ *	message sent will handle this.
+ *
+ **************************************/
+	PORT port;
+	SSHORT length;
+	SCHAR *p, *end;
+
+	port = (PORT) xdrs->x_public;
+	p = xdrs->x_base;
+	end = p + BUFFER_SIZE;
+
+/* If buffer is not completely empty, slide down what's left */
+
+	if (xdrs->x_handy > 0) {
+		memmove(p, xdrs->x_private, xdrs->x_handy);
+		p += xdrs->x_handy;
+	}
+
+/* If an ACK is pending, do an ACK.  The alternative is deadlock. */
+
+/* 
+if (port->port_flags & PORT_pend_ack)
+    if (!packet_send (port, 0, 0))
+	return FALSE;
+*/
+
+	while (TRUE) {
+		length = end - p;
+		if (!packet_receive
+			(port, reinterpret_cast < UCHAR * >(p), length, &length)) {
+			return FALSE;
+	/***
+	if (!packet_send (port, 0, 0))
+	    return FALSE;
+	continue;
+	***/
+		}
+		if (length >= 0) {
+			p += length;
+			break;
+		}
+		p -= length;
+#ifdef DEBUG
+		ib_printf("********************************************SEND ACK \n");
+#endif
+		if (!packet_send(port, 0, 0))
+			return FALSE;
+	}
+
+	port->port_flags |= PORT_pend_ack;
+	xdrs->x_handy = (int) ((SCHAR *) p - xdrs->x_base);
+	xdrs->x_private = xdrs->x_base;
+
+
+	return TRUE;
+}
+
+
+static bool_t spxnet32_setpostn( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _ s e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	if (bytecount > (u_int) xdrs->x_handy)
+		return FALSE;
+
+	xdrs->x_private = xdrs->x_base + bytecount;
+
+	return TRUE;
+}
+
+
+static PORT spxnet32_try_connect(
+								 PACKET * packet,
+								 RDB rdb,
+								 USHORT file_length,
+								 TEXT * file_name,
+TEXT * node_name, STATUS * status_vector, SCHAR * dpb, SSHORT dpb_length)
+{
+/**************************************
+ *
+ *	S P X N E T 3 2 _ t r y _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Given a packet with formatted protocol infomation,
+ *	set header information and try the connection.
+ *
+ *	If a connection is established, return a port block, otherwise
+ *	return NULL.
+ *
+ **************************************/
+	PORT port;
+	P_CNCT *cnct;
+
+	cnct = &packet->p_cnct;
+	packet->p_operation = op_connect;
+	cnct->p_cnct_operation = op_attach;
+	cnct->p_cnct_cversion = CONNECT_VERSION2;
+	cnct->p_cnct_client = ARCHITECTURE;
+	cnct->p_cnct_file.cstr_length = file_length;
+	cnct->p_cnct_file.cstr_address = (UCHAR *) file_name;
+
+/* If we can't talk to a server, punt.  Let somebody else generate
+   an error.  status_vector will have the network error info. */
+
+	port =
+		SPXNET32_connect(node_name, packet, status_vector, FALSE, dpb,
+						 dpb_length);
+	if (!port) {
+		ALLR_release((BLK) rdb);
+		return NULL;
+	}
+
+/* Get response packet from server. */
+
+	rdb->rdb_port = port;
+	port->port_context = rdb;
+	if (!port->receive(packet)) {
+		spxnet32_error(port, "receive in try_connect", isc_net_connect_err,
+					   ERRNO);
+		disconnect(port);
+		ALLR_release((BLK) rdb);
+		return NULL;
+	}
+
+	return port;
+
+}
+
+
+static bool_t spxnet32_write( XDR * xdrs, bool_t end_flag)
+{
+/**************************************
+ *
+ *	s p x n e t 3 2 _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a buffer full of data.  If the end_flag isn't set, indicate
+ *	that the buffer is a fragment, and reset the XDR for another buffer
+ *	load.
+ *
+ **************************************/
+	SCHAR *p;
+	PORT port;
+	SSHORT l, length;
+
+/* Encode the data portion of the packet */
+
+	port = (PORT) xdrs->x_public;
+	p = xdrs->x_base;
+	length = xdrs->x_private - p;
+
+#ifdef DEBUG
+	ib_printf("spxnet32_write: length = %d\n", length);
+#endif
+/* Send data in manageable hunks.  If a packet is partial, indicate
+   that with a negative length.  A positive length marks the end. */
+
+	p = xdrs->x_base;
+
+	while (length) {
+		port->port_misc1 = (port->port_misc1 + 1) % MAX_SEQUENCE;
+		l = MIN(length, MAX_DATA);
+		length -= l;
+		if (!packet_send(port, p, (SSHORT) (length ? -l : l)))
+			return FALSE;
+		p += l;
+	}
+
+	xdrs->x_private = xdrs->x_base;
+	xdrs->x_handy = BUFFER_SIZE;
+
+	return TRUE;
+
+}
+
+
+static int packet_receive(
+						  PORT port,
+						  UCHAR * buffer,
+						  SSHORT buffer_length, SSHORT * length)
+{
+/**************************************
+ *
+ *	p a c k e t _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a packet and pass on it's goodness.  If it's good,
+ *	return TRUE and the reported length of the packet, and update
+ *	the receive sequence number.  If it's bad, return FALSE.  If it's
+ *	a duplicate message, just ignore it.
+ *
+ **************************************/
+	int n;
+	struct timeval timeout, *time_ptr;
+	int ph;
+	fd_set slct_fdset;
+	int slct_count;
+	PACKET packet;
+
+/* set the time interval for sending dummy packets to the client */
+
+	timeout.tv_sec = port->port_dummy_packet_interval;
+
+	if (port->port_protocol >= PROTOCOL_VERSION8 &&
+		port->port_dummy_packet_interval > 0) {
+#ifdef DEBUG
+		ib_printf("ver 8\n");
+#endif
+		time_ptr = &timeout;
+	}
+	else
+		time_ptr = NULL;
+
+
+/* If the protocol is 0 we are still in the process of establishing
+   a connection. Add a time out to the wait */
+	if (port->port_protocol == 0) {
+		timeout.tv_sec = port->port_connect_timeout;
+		time_ptr = &timeout;
+	}
+
+	ph = (int) port->port_handle;
+
+	for (;;) {
+#ifdef DEBUG
+		ib_printf("packet rece for loop \n");
+#endif
+
+		/* Implement an error-detection protocol to ensure that the client
+		   is still there.  Use the select() call with a timeout to wait on 
+		   the connection for an incoming packet.  If none comes within a
+		   suitable time interval, write a dummy packet on the connection.
+		   If the client is not there, an error will be returned on the write.
+		   If the client is there, the dummy packet will be ignored by all 
+		   InterBase clients V4 or greater.  This protocol will detect when 
+		   clients are lost abnormally through reboot or network disconnect. */
+
+		/* Don't send op_dummy packets on aux port; the server won't
+		   read them because it only writes to aux ports. */
+
+		if (port->port_flags & PORT_async);
+		else {
+			FD_ZERO(&slct_fdset);
+			FD_SET(ph, &slct_fdset);
+
+			THREAD_EXIT;
+			for (;;) {
+				slct_count = select(FD_SETSIZE, &slct_fdset,
+									(fd_set *) NULL, (fd_set *) NULL,
+									time_ptr);
+				if (slct_count != -1 || !INTERRUPT_ERROR(ERRNO))
+					break;
+			}
+			THREAD_ENTER;
+
+			if (slct_count == -1)
+				return spxnet32_error(port, "select in packet_receive",
+									  isc_net_read_err, ERRNO);
+
+			if (!slct_count && port->port_protocol >= PROTOCOL_VERSION8) {
+				packet.p_operation = op_dummy;
+				if (!send_full(port, &packet))
+					return FALSE;
+				continue;
+			}
+
+			if (!slct_count && port->port_protocol == 0)
+				return FALSE;
+		}
+
+		THREAD_EXIT;
+		n =
+			recv((SOCKET) port->port_handle,
+				 reinterpret_cast < char *>(buffer), buffer_length, 0);
+		THREAD_ENTER;
+		if (n != -1 || !INTERRUPT_ERROR(ERRNO))
+			break;
+	}
+#ifdef DEBUG
+	ib_printf("recv length %d\n", n);
+#endif
+
+	if (n <= 0 && (port->port_flags & PORT_async))
+		return FALSE;
+
+	if (n == -1)
+		return spxnet32_error(port, "read", isc_net_read_err, ERRNO);
+
+	if (!n)
+		return spxnet32_error(port, "read end_of_file", isc_net_read_err, 0);
+
+	*length = n;
+
+	return TRUE;
+}
+
+
+static bool_t packet_send( PORT port, SCHAR * buffer, SSHORT buffer_length)
+{
+/**************************************
+ *
+ *	p a c k e t _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send some data on it's way.  
+ *
+ **************************************/
+	SSHORT n, length, count;
+	SCHAR *data;
+
+	data = buffer;
+	length = buffer_length;
+
+	while (length) {
+#ifdef DEBUG
+		ib_printf("calling send: %d\n", length);
+#endif
+		THREAD_EXIT;
+		n = send((SOCKET) port->port_handle, data, length, 0);
+		THREAD_ENTER;
+		if (n == length)
+			break;
+		else if (n == -1) {
+			if (INTERRUPT_ERROR(ERRNO))
+				continue;
+			else
+				return spxnet32_error(port, "send", isc_net_write_err, ERRNO);
+		}
+		data += n;
+		length -= n;
+	}
+
+
+	if ((port->port_flags & PORT_async) && !(port->port_flags & PORT_no_oob)) {
+		THREAD_EXIT;
+		count = 0;
+		while ((n = send((SOCKET) port->port_handle, buffer, 1, MSG_OOB)) ==
+			   -1 && (ERRNO == ENOBUFS || INTERRUPT_ERROR(ERRNO))) {
+			if (count++ > 20)
+				break;
+			SleepEx(50, TRUE);
+		}
+		THREAD_ENTER;
+		if (n == -1)
+			return spxnet32_error(port, "send/oob", isc_net_write_err, ERRNO);
+	}
+
+	port->port_flags &= ~PORT_pend_ack;
+
+	return TRUE;
+}
+
+
+void WINAPI SAP_handler_thread( LPVOID param)
+{
+	SAPHDR sapData[20];
+	SOCKADDR_IPX RequestAddr;
+	int iRet, iAddr;
+	NODEADDR *nodeAddr = (NODEADDR *) param;
+
+#ifdef DEBUG
+	ib_printf("Start Thread to parse SAP broadcasts (sock %d)\n",
+			  nodeAddr->SAPSocket);
+#endif
+	for (;;) {
+		iAddr = sizeof(SOCKADDR);
+		iRet = recvfrom(nodeAddr->SAPSocket,
+						(LPSTR) & sapData,
+						sizeof(sapData),
+						0, (LPSOCKADDR) & RequestAddr, (LPINT) & iAddr);
+
+		if (iRet != SOCKET_ERROR) {
+#ifdef DEBUG
+			ib_printf("decode_sap packets\n");
+#endif
+			if (decode_sap((NODEADDR *) nodeAddr, sapData, iRet) == TRUE)
+				ExitThread(0);
+		}
+#ifdef DEBUG
+		else
+			ib_printf("RecvFrom Err: %d\n", WSAGetLastError());
+#endif
+	}
+}
+
+
+static void unhook_port( PORT port, PORT parent)
+{
+/**************************************
+ *
+ *      u n h o o k _ p a r e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Disconnect a port from its parent
+ *      This must be done under
+ *      START_PORT_CRITICAL/STOP_PORT_CRITICAL control.
+ *
+ **************************************/
+	PORT *ptr;
+
+	for (ptr = &parent->port_clients; *ptr; ptr = &(*ptr)->port_next)
+		if (*ptr == port) {
+			*ptr = port->port_next;
+			if (ptr == &parent->port_clients)
+				parent->port_next = *ptr;
+			break;
+		}
+}
diff --git a/src/remote/spxnet32_proto.h b/src/remote/spxnet32_proto.h
new file mode 100644
index 0000000000..36cba50b2b
--- /dev/null
+++ b/src/remote/spxnet32_proto.h
@@ -0,0 +1,39 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		spxnet32_proto.h
+ *	DESCRIPTION:	Prototpe header file for spxnet32.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_IPXNET_PROTO_H_
+#define _REMOTE_IPXNET_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern PORT	SPXNET32_analyze (TEXT *, USHORT *, STATUS *, TEXT *, TEXT *, USHORT, SCHAR*, SSHORT);
+extern PORT	DLL_EXPORT SPXNET32_connect (TEXT *, struct packet *, STATUS *, USHORT, SCHAR*, SSHORT);
+extern PORT	SPXNET32_reconnect (HANDLE, TEXT *, STATUS *);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _REMOTE_IPXNET_PROTO_H */ 
diff --git a/src/remote/spxwi_proto.h b/src/remote/spxwi_proto.h
new file mode 100644
index 0000000000..2adf2430af
--- /dev/null
+++ b/src/remote/spxwi_proto.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		spxwi_proto.h
+ *	DESCRIPTION:	Prototpe header file for spxwin.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_SPXWI_PROTO_H_
+#define _REMOTE_SPXWI_PROTO_H_
+
+extern PORT	SPXNET_analyze (TEXT *, USHORT *, STATUS *, TEXT *, TEXT *, USHORT);
+extern PORT	SPXNET_connect (TEXT *, struct packet *, STATUS *, int);
+
+#endif /* _REMOTE_SPXWI_PROTO_H */ 
diff --git a/src/remote/spxwin.cpp b/src/remote/spxwin.cpp
new file mode 100644
index 0000000000..488cea22a2
--- /dev/null
+++ b/src/remote/spxwin.cpp
@@ -0,0 +1,2115 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		spxwin.c
+ *	DESCRIPTION:	SPX for PC Client Communications module.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/time.h"
+#include "../jrd/common.h"
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include <string.h>
+#include <direct.h>
+#include <memory.h>
+#include <stdarg.h>
+#include <dos.h>
+
+#include "../remote/remote.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/iberr.h"
+#include "../jrd/thd.h"
+#include "../remote/ntoh_proto.h"
+#include "../remote/proto_proto.h"
+#include "../remote/remot_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_i_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../remote/xdr_proto.h"
+#include "../jrd/doserr.h"		/* include after remote.h */
+
+/*
+ * Need to undef FAILURE from common.h (#define FAILURE 1) and MIN from
+ * common.h. (#define MIN(a,b)  (((a) < (b)) ? (a) : (b)).  They get
+ * redefined by the netware include files, included with spxwin.h, as
+ * #define FAILURE  -1 and #define MIN(a,b)  ((a) < (b) ? (a) : (b)).
+*/
+#ifdef FAILURE
+#undef FAILURE
+#endif
+
+#ifdef MIN(a,b)
+#undef MIN(a,b)
+#endif
+
+#include "../remote/spxwin.h"
+
+#define NO_ITIMER
+#define SYS_ERR		gds_arg_dos
+#define ERRNO		errno
+#define MAX_PTYPE	ptype_out_of_band
+
+
+/* 
+** The windows network libraries have to be dynamically loaded because the
+** libraries may not be installed if the user does not have SPX (e.g. if
+** they are using TCP).  This section defines the SPX functions to
+** reference function pointers which will be set using the windows
+** GetProcAddress function in initSPX.
+**
+** IMPORTANT:  If you add a call to a new SPX function, you must add
+** a #define for it, define a function pointer for it, and add a
+** call to GetProcAddress for it in initSPX so the function pointer
+** gets initialized correctly. 
+*/
+
+#define IPXCancelEvent			IPXCancelEventPtr
+#define IPXCloseSocket			IPXCloseSocketPtr
+#define IPXGetInternetworkAddress	IPXGetInternetworkAddressPtr
+#define IPXOpenSocket			IPXOpenSocketPtr
+#define IPXRelinquishControl		IPXRelinquishControlPtr
+#define IPXSPXDeinit			IPXSPXDeinitPtr
+#define SPXEstablishConnection		SPXEstablishConnectionPtr
+#define SPXInitialize			SPXInitializePtr
+#define SPXListenForSequencedPacket	SPXListenForSequencedPacketPtr
+#define SPXSendSequencedPacket		SPXSendSequencedPacketPtr
+#define SPXTerminateConnection		SPXTerminateConnectionPtr
+#define NWCallsInit			NWCallsInitPtr
+#define NWGetDefaultConnectionID	NWGetDefaultConnectionIDPtr
+#define NWReadPropertyValue		NWReadPropertyValuePtr
+#define	NWWordSwap			NWWordSwapPtr
+
+/*
+** Declare function pointers, using function prototypes for type checking 
+*/
+int (FAR PASCAL * IPXCancelEventPtr) (DWORD IPXTaskID,
+									  ECB FAR * eventControlBlock);
+void (FAR PASCAL * IPXCloseSocketPtr) (DWORD IPXTaskID, WORD socket);
+void (FAR PASCAL * IPXGetInternetworkAddressPtr) (DWORD IPXTaskID,
+												  BYTE FAR * internetAddress);
+int (FAR PASCAL * IPXOpenSocketPtr) (DWORD IPXTaskID, WORD FAR * socket,
+									 BYTE socketType);
+void (FAR PASCAL * IPXRelinquishControlPtr) (void);
+void (FAR PASCAL * IPXSPXDeinitPtr) (DWORD IPXTaskId);
+
+int (FAR PASCAL * SPXEstablishConnectionPtr) (DWORD IPXTaskID,
+											  BYTE retryCount,
+											  BYTE watchDog,
+											  WORD FAR * SPXConnID,
+											  ECB FAR * eventControlBlock);
+int (FAR PASCAL * SPXInitializePtr) (DWORD FAR * IPXTaskID,
+									 WORD maxECBs, WORD maxPacketSize,
+									 BYTE FAR * majorRevisionNumber,
+									 BYTE FAR * minorRevisionNumber,
+									 WORD FAR * maxConnections,
+									 WORD FAR * availableConnections);
+void (FAR PASCAL * SPXListenForSequencedPacketPtr) (DWORD IPXTaskID,
+													ECB FAR *
+													eventControlBlock);
+void (FAR PASCAL * SPXSendSequencedPacketPtr) (DWORD IPXTaskID,
+											   WORD SPXConnID,
+											   ECB FAR * eventControlBlock);
+void (FAR PASCAL * SPXTerminateConnectionPtr)
+  (DWORD IPXTaskID, WORD SPXConnID, ECB FAR * eventControlBlock);
+
+NWCCODE(NWAPI * NWCallsInitPtr) (void NWPTR in, void NWPTR out);
+NWCCODE(NWAPI * NWGetDefaultConnectionIDPtr) (NWCONN_HANDLE NWPTR conn);
+NWCCODE(NWAPI * NWReadPropertyValuePtr) (NWCONN_HANDLE conn,
+										 char NWPTR objectName,
+										 WORD objectType,
+										 char NWPTR propertyName,
+										 BYTE segmentNumber,
+										 BYTE NWPTR segmentData,
+										 BYTE NWPTR moreSegments,
+										 BYTE NWPTR flags);
+WORD(NWAPI * NWWordSwapPtr) (WORD swapWord);
+
+
+
+
+extern STR REMOTE_make_string();
+
+void process_async_data(void);
+static PORT aux_connect(PORT port, PACKET * packet, XDR_INT(*ast) ());
+static void terminate_port(spx_port_handle * handle);
+static accept_connection(PORT port, P_CNCT * cnct);
+static PORT alloc_port(PORT parent);
+static void cleanup_port(PORT port);
+static void disconnect(PORT port);
+static void spxnet_copy(SCHAR * from, SCHAR * to, int length);
+static void spxnet_zero(SCHAR * address, int length);
+static PORT receive(PORT main_port, PACKET * packet);
+static send_full(PORT port, PACKET * packet);
+static send_partial(PORT port, PACKET * packet);
+static xdrspxnet_create(XDR * xdrs,
+						PORT port,
+						UCHAR * buffer, USHORT length, enum xdr_op x_op);
+static bool_t xdrspxnet_endofrecord(XDR * xdrs, bool_t flushnow);
+static void spxnet_destroy(void);
+static int spxnet_error(PORT port,
+						TEXT * operation, STATUS, int status, ECB * ecb);
+static void spxnet_gen_error(PORT port, STATUS status, ...);
+static bool_t spxnet_getbytes(XDR * xdrs, SCHAR * buff, u_int count);
+static bool_t spxnet_getlong(XDR * xdrs, SLONG * lp);
+static u_int spxnet_getpostn(XDR * xdrs);
+static caddr_t spxnet_inline(XDR * xdrs, u_int bytecount);
+static bool_t spxnet_putbytes(XDR * xdrs, SCHAR * buff, u_int count);
+static bool_t spxnet_putlong(XDR * xdrs, SLONG * lp);
+static bool_t spxnet_read(XDR * xdrs);
+static bool_t spxnet_setpostn(XDR * xdrs, u_int bytecount);
+static bool_t spxnet_write(XDR * xdrs, bool_t end_flag);
+static void exit_handler(PORT main_port);
+static packet_receive(PORT port,
+					  UCHAR * buffer, SSHORT buffer_length, SSHORT * length);
+static packet_receive_async(PORT port,
+							UCHAR * buffer,
+							SSHORT buffer_length, SSHORT * length);
+static bool_t packet_send(PORT port, SCHAR * buffer, SSHORT buffer_length);
+static void build_ecb_pool(spx_port_handle * handle, void *esr);
+static void free_ecb_pool(spx_port_handle * handle);
+static ECB *get_next_fragment(spx_port_handle * handle);
+static void setup_tx_ecb(ECB FAR * ecb,
+						 SPXHeader FAR * txhdr,
+						 spx_port_handle * handle, SCHAR FAR * data);
+static bool_t wait_for_free_tx_ecbs(PORT port);
+static int initSPX(PORT);
+
+static xdr_t::xdr_ops spxnet_ops = {
+	spxnet_getlong,
+	spxnet_putlong,
+	spxnet_getbytes,
+	spxnet_putbytes,
+	spxnet_getpostn,
+	spxnet_setpostn,
+	spxnet_inline,
+	spxnet_destroy
+};
+
+IPXAddress my_address;
+static int SPX_initialized = FALSE;
+
+/* This can't be a static since it's used by spxesr.c */
+spx_port_handle *head_of_spx_port_list = 0;
+
+/* 
+** The net libs are only inited once, so save the handles and task id in
+** a global for everyone to share.
+*/
+static HINSTANCE hSpxIpxLib, hNwCallsLib;
+static DWORD tskid;
+
+
+
+
+
+PORT SPXNET_analyze(
+					TEXT * file_name,
+					USHORT * file_length,
+					STATUS * status_vector,
+					TEXT * node_name, TEXT * user_string, USHORT uv_flag)
+{
+/**************************************
+ *
+ *	S P X N E T _ a n a l y z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	File_name is on node_name.
+ *	Establish an external connection to node_name.
+ *
+ *	If a connection is established, return a port block, otherwise
+ *	return NULL.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	PACKET *packet;
+	P_CNCT *cnct;
+	int eff_gid, eff_uid;
+	SSHORT user_length;
+	SCHAR outsegs;
+	SCHAR outflag;
+	UCHAR *p, user_id[200];
+	TEXT buffer[64];
+	struct p_cnct_repeat *protocol;
+	WORD local_socket;
+	WORD dest_socket = INTERBASE_SOCKET;
+	SCHAR dest_address[128];
+	int ret;
+	HGLOBAL handle_handle;
+	struct spx_port_handle FAR *handle;
+	ECB connecb;
+	SPXHeader connhdr;
+	NWCONN_HANDLE connid;
+
+	*file_length = strlen(file_name);
+
+/* We need to establish a connection to a remote server.  Allocate the necessary
+   blocks and get ready to go. */
+
+	rdb = (RDB) ALLOC(type_rdb);
+	packet = &rdb->rdb_packet;
+
+/* Pick up some user identification information */
+
+	user_id[0] = CNCT_user;
+	p = user_id + 2;
+	ISC_get_user(p, &eff_uid, &eff_gid, 0, 0, 0, user_string);
+	user_id[1] = (UCHAR) strlen((SCHAR *) p);
+
+	for (; *p; p++)
+		if (*p >= 'A' && *p <= 'Z')
+			*p = *p - 'A' + 'a';
+
+	*p++ = CNCT_host;
+	p++;
+	ISC_get_host(p, 64);
+	p[-1] = (UCHAR) strlen((SCHAR *) p);
+
+	for (; *p; p++)
+		if (*p >= 'A' && *p <= 'Z')
+			*p = *p - 'A' + 'a';
+
+	if ((eff_uid == -1) || uv_flag) {
+		*p++ = CNCT_user_verification;
+		*p++ = 0;
+	}
+
+	user_length = (SSHORT) (p - user_id);
+
+/* Establish connection to server */
+/* If we want user verification, we can't speak anything less than version 7 */
+/* unlike other protocols, SPX can't talk to server versions which had the 
+   bug in which only 5 protocols were supported, so go ahead and try more */
+
+	cnct = &packet->p_cnct;
+#ifdef SCROLLABLE_CURSORS
+	cnct->p_cnct_count = 6;
+#else
+	cnct->p_cnct_count = 4;
+#endif
+	cnct->p_cnct_user_id.cstr_length = user_length;
+	cnct->p_cnct_user_id.cstr_address = user_id;
+
+	protocol = cnct->p_cnct_versions;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION7;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 2;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION7;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 3;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION8;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 4;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION8;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 5;
+
+#ifdef SCROLLABLE_CURSORS
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_SCROLLABLE_CURSORS;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 6;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_SCROLLABLE_CURSORS;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 7;
+#endif
+
+/* Try connection using first set of protocols.  punt if error */
+
+	cnct = &packet->p_cnct;
+	packet->p_operation = op_connect;
+	cnct->p_cnct_operation = op_attach;
+	cnct->p_cnct_cversion = CONNECT_VERSION2;
+	cnct->p_cnct_client = ARCHITECTURE;
+	cnct->p_cnct_file.cstr_length = *file_length;
+	cnct->p_cnct_file.cstr_address = (UCHAR *) file_name;
+
+/* If we can't talk to a server, punt.  Let somebody else generate
+   an error.  status_vector will have the network error info. */
+	port = alloc_port(0);
+	port->port_status_vector = status_vector;
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+
+	if (port->port_connection)
+		ALLR_free(port->port_connection);
+	port->port_connection = REMOTE_make_string(node_name);
+
+/* Load the network libraries, and initialize the global task id */
+	if (initSPX(port))
+		return NULL;
+
+	ret = NWGetDefaultConnectionID(&connid);
+	if (ret) {
+		spxnet_error(port, "NWGetDefaultConnectionID", isc_net_lookup_err,
+					 ret, NULL);
+		return NULL;
+	}
+
+	ret =
+		NWReadPropertyValue(connid, node_name, OT_FILE_SERVER, "NET_ADDRESS",
+							1, dest_address, (LPBYTE) & outsegs,
+							(LPBYTE) & outflag);
+
+	if (ret != 0) {
+		TEXT msg[64];
+
+		spxnet_gen_error(port, isc_network_error,
+						 gds_arg_string,
+						 (STATUS) port->port_connection->str_data,
+						 isc_arg_gds, isc_net_lookup_err, SYS_ERR,
+						 ret - 30000 + SPX_ERROR_BEG, 0);
+
+		sprintf(msg, "SPXNET/spxnet_error: ReadPropertyValue errno = %#x",
+				ret);
+		gds__log(msg, 0);
+		return NULL;
+	}
+
+	local_socket = 0;
+	ret = IPXOpenSocket(tskid, (void far *) &local_socket, 0xff);
+
+	handle_handle =
+		GlobalAlloc(GHND | GMEM_DDESHARE, sizeof(spx_port_handle));
+	handle = (spx_port_handle FAR *) GlobalLock(handle_handle);
+	handle->global_handle = handle_handle;
+	handle->task_id = tskid;
+	handle->local_socket = local_socket;
+	memcpy(&(handle->server_address), dest_address, sizeof(IPXAddress));
+	memcpy(&(handle->server_address.socket), &dest_socket, 2);
+	build_ecb_pool(handle, 0);
+	handle->next_fragment = 0;
+	handle->window_handle = 0;
+	handle->next = 0;
+	handle->connection_id = 0;
+	port->port_handle = (HANDLE) handle;
+
+/* queue it up */
+	if (head_of_spx_port_list == 0)
+		head_of_spx_port_list = handle;
+	else {
+		handle->next = head_of_spx_port_list;
+		head_of_spx_port_list = handle;
+	}
+
+
+	IPXGetInternetworkAddress(tskid, (BYTE FAR *) & my_address);
+	memcpy(my_address.socket, &local_socket, 2);
+
+	connhdr.length = NWWordSwap(sizeof(SPXHeader));
+	connhdr.packetType = (SCHAR) 5;
+	memcpy(&(connhdr.destination), &(handle->server_address),
+		   sizeof(IPXAddress));
+
+	connecb.socketNumber = local_socket;
+	connecb.fragmentCount = 1;
+	connecb.fragmentDescriptor[0].size = sizeof(SPXHeader);
+	connecb.fragmentDescriptor[0].address = (SCHAR far *) & connhdr;
+	connecb.ESRAddress = 0;
+
+	ret =
+		SPXEstablishConnection(tskid, (BYTE) 15, (BYTE) 0xFF,
+							   (LPWORD) & connid, &connecb);
+
+	if (!ret) {
+		while (connecb.inUseFlag != 0)
+			IPXRelinquishControl();
+	}
+
+	if (ret || connecb.completionCode) {
+		spxnet_error(port, "SpxEstablishConnection", isc_net_connect_err,
+					 ret ? ret : connecb.completionCode, NULL);
+		disconnect(port);
+		ALLR_release((BLK) rdb);
+		return NULL;
+	}
+
+	handle->connection_id = connid;
+
+	send_full(port, packet);
+
+/* Get response packet from server. */
+	rdb->rdb_port = port;
+	port->port_context = rdb;
+	if (!port->receive(packet)) {
+		disconnect(port);
+		ALLR_release((BLK) rdb);
+		return NULL;
+	}
+
+	if (packet->p_operation != op_accept) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__connect_reject;
+		*status_vector++ = 0;
+		disconnect(port);
+		return NULL;
+	}
+
+	port->port_protocol = packet->p_acpt.p_acpt_version;
+
+/* once we've decided on a protocol, concatenate the version 
+   string to reflect it...  */
+
+	sprintf(buffer, "%s/P%d", port->port_version->str_data,
+			port->port_protocol);
+	ALLR_free(port->port_version);
+	port->port_version = REMOTE_make_string(buffer);
+
+	if (packet->p_acpt.p_acpt_architecture == ARCHITECTURE)
+		port->port_flags |= PORT_symmetric;
+
+	if (packet->p_acpt.p_acpt_type == ptype_rpc)
+		port->port_flags |= PORT_rpc;
+
+	if (packet->p_acpt.p_acpt_type != ptype_out_of_band)
+		port->port_flags |= PORT_no_oob;
+
+	return port;
+}
+
+
+static accept_connection(port, cnct)
+	 PORT port;
+	 P_CNCT *cnct;
+{
+/**************************************
+ *
+ *	a c c e p t _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept an incoming request for connection.  This is purely a lower
+ *	level handshaking function, and does not constitute the server
+ *	response for protocol selection.
+ *
+ **************************************/
+	TEXT name[64], password[64], *id, *end, *p;
+	STR string;
+	int length, l;
+#if FALSE
+	int user_verification;
+#endif
+
+/* Default account to "guest" (in theory all packets contain a name) */
+
+	strcpy(name, "guest");
+	password[0] = 0;
+
+/* Pick up account and password, if given */
+
+	id = (TEXT *) cnct->p_cnct_user_id.cstr_address;
+	end = id + cnct->p_cnct_user_id.cstr_length;
+
+#if FALSE
+	user_verification = 0;
+#endif
+	while (id < end)
+		switch (*id++) {
+		case CNCT_user:
+			length = l = *id++;
+			port->port_user_name = string =
+				(STR) ALLOCV(type_str, (int) length);
+			string->str_length = length;
+			if (length) {
+				p = (TEXT *) string->str_data;
+				do
+					*p++ = *id++;
+				while (--l);
+			}
+			strncpy(name, string->str_data, length);
+			name[length] = (TEXT) 0;
+			break;
+
+		case CNCT_passwd:
+			p = password;
+			if ((length = *id++) != NULL)
+				do
+					*p++ = *id++;
+				while (--length);
+			*p = 0;
+			break;
+
+		case CNCT_user_verification:
+#if FALSE
+			user_verification = 1;
+#endif
+			id++;
+			break;
+
+		default:
+			id += *id + 1;
+		}
+
+	return TRUE;
+}
+
+
+static PORT alloc_port(parent)
+	 PORT parent;
+{
+/**************************************
+ *
+ *	a l l o c _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a port block, link it in to parent (if there is a parent),
+ *	and initialize input and output XDR streams.
+ *
+ **************************************/
+	PORT port;
+	TEXT buffer[64];
+	int size;
+
+	size = BUFFER_SIZE;
+	size *= 2;
+	port = (PORT) ALLOCV(type_port, size);
+
+	port->port_type = port_spx;
+	port->port_state = state_pending;
+
+	ISC_get_host(buffer, sizeof(buffer));
+	port->port_host = REMOTE_make_string(buffer);
+	port->port_connection = REMOTE_make_string(buffer);
+	sprintf(buffer, "SPX (%s)", port->port_host->str_data);
+	port->port_version = REMOTE_make_string(buffer);
+
+	if (parent) {
+		port->port_parent = parent;
+		port->port_next = parent->port_clients;
+		parent->port_clients = parent->port_next = port;
+		port->port_handle = parent->port_handle;
+		port->port_server = parent->port_server;
+		port->port_flags = parent->port_flags;
+	}
+
+	port->port_accept = accept_connection;
+	port->port_disconnect = disconnect;
+	port->port_receive_packet = receive;
+	port->port_send_packet = send_full;
+	port->port_send_partial = send_partial;
+	port->port_connect = aux_connect;
+	port->port_request = 0;
+	port->port_buff_size = BUFFER_SIZE;
+
+	xdrspxnet_create(&port->port_send, port,
+					 &port->port_buffer[BUFFER_SIZE], BUFFER_SIZE,
+					 XDR_ENCODE);
+
+	xdrspxnet_create(&port->port_receive, port, port->port_buffer, 0,
+					 XDR_DECODE);
+
+	return port;
+}
+
+
+static void disconnect(port)
+	 PORT port;
+{
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break a remote connection.
+ *
+ **************************************/
+	PORT parent, *ptr;
+	spx_port_handle FAR *handle;
+
+/* If this is a sub-port, unlink it from it's parent */
+
+	if ((parent = port->port_parent) != NULL) {
+		if (port->port_async) {
+			disconnect(port->port_async);
+			port->port_async = NULL;
+		}
+
+		for (ptr = &parent->port_clients; *ptr; ptr = &(*ptr)->port_next)
+			if (*ptr == port) {
+				*ptr = port->port_next;
+				if (ptr == &parent->port_clients)
+					parent->port_next = *ptr;
+				break;
+			}
+	}
+	else {
+		if (port->port_async) {
+			disconnect(port->port_async);
+			port->port_async = NULL;
+		}
+	}
+
+	handle = (spx_port_handle *) port->port_handle;
+
+	if (handle != NULL) {
+		if (handle->window_handle)
+			DestroyWindow(handle->window_handle);
+
+		terminate_port(handle);
+	}
+	cleanup_port(port);
+	return;
+}
+
+
+static void cleanup_port(port)
+	 PORT port;
+{
+/**************************************
+ *
+ *      c l e a n u p _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Walk through the port structure freeing
+ *      allocated memory and then free the port.
+ *
+ **************************************/
+
+	if (port->port_version)
+		ALLR_free((UCHAR *) port->port_version);
+
+	if (port->port_connection)
+		ALLR_free((UCHAR *) port->port_connection);
+
+	if (port->port_user_name)
+		ALLR_free((UCHAR *) port->port_user_name);
+
+	if (port->port_host)
+		ALLR_free((UCHAR *) port->port_host);
+
+	if (port->port_object_vector)
+		ALLR_free((UCHAR *) port->port_object_vector);
+
+#ifdef DEBUG_XDR_MEMORY
+	if (port->port_packet_vector)
+		ALLR_free((UCHAR *) port->port_packet_vector);
+#endif
+
+	ALLR_release((UCHAR *) port);
+	return;
+}
+
+
+static void terminate_port(spx_port_handle * handle)
+{
+/**************************************
+ *
+ *	t e r m i n a t e _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	ECB FAR *tecb;
+	SPXHeader FAR *spx;
+	spx_port_handle FAR *prev_handle;
+	spx_port_handle *tmp_handle;
+	HGLOBAL ecb_mem;
+	UCHAR *t_ecb;
+
+	if (handle == NULL)
+		return;
+
+	if (handle->connection_id) {
+		ecb_mem = GlobalAlloc(GPTR | GMEM_DDESHARE,
+							  (sizeof(ECB) + MAX_DATA + sizeof(SPXHeader)));
+		t_ecb = (UCHAR *) GlobalLock(ecb_mem);
+
+		/* Format and send the disconnect request to the other side */
+		t_ecb += MAX_DATA;
+		tecb = (ECB *) t_ecb;
+		t_ecb += sizeof(ECB);
+		spx = (void *) t_ecb;
+
+		tecb->ESRAddress = 0;
+		tecb->inUseFlag = 0;
+		tecb->completionCode = 0;
+		tecb->socketNumber = handle->local_socket;
+		tecb->fragmentCount = 1;
+		tecb->fragmentDescriptor[0].address = spx;
+		tecb->fragmentDescriptor[0].size = sizeof(SPXHeader);
+		spx->packetType = (SCHAR) 5;
+		spx->length = sizeof(SPXHeader);
+
+		SPXTerminateConnection(handle->task_id, handle->connection_id, tecb);
+		while (tecb->inUseFlag != 0)
+			IPXRelinquishControl();
+
+		GlobalFree(ecb_mem);
+	}
+
+	IPXCloseSocket(handle->task_id, handle->local_socket);
+
+/* Free the pool of ecb's for this connection */
+	free_ecb_pool(handle);
+
+/* unlink this structure from the list */
+	if (head_of_spx_port_list == handle)
+		head_of_spx_port_list = head_of_spx_port_list->next;
+	else {
+		prev_handle = head_of_spx_port_list;
+		tmp_handle = head_of_spx_port_list;
+		while (tmp_handle != NULL) {
+			if (tmp_handle == handle)
+				break;
+			prev_handle = tmp_handle;
+			tmp_handle = tmp_handle->next;
+		}
+		prev_handle->next = tmp_handle->next;
+	}
+
+	GlobalFree(handle->global_handle);
+}
+
+
+static void spxnet_copy(from, to, length)
+	 SCHAR *from, *to;
+	 int length;
+{
+/**************************************
+ *
+ *	s p x n e t _ c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a number of bytes;
+ *
+ **************************************/
+	if (length)
+		do
+			*to++ = *from++;
+		while ((--length) != 0);
+}
+
+
+static void spxnet_zero(address, length)
+	 SCHAR *address;
+	 int length;
+{
+/**************************************
+ *
+ *	s p x n e t _  z e r o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zero a block of memory.
+ *
+ **************************************/
+	if (length)
+		do
+			*address++ = 0;
+		while ((--length) != 0);
+}
+static PORT receive(main_port, packet)
+	 PORT main_port;
+	 PACKET *packet;
+{
+/**************************************
+ *
+ *	r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message from a port or clients of a port.  If the process
+ *	is a server and a connection request comes in, generate a new port
+ *	block for the client.
+ *
+ **************************************/
+	if (!xdr_protocol(&main_port->port_receive, packet))
+		return (NULL);
+
+	return main_port;
+}
+
+
+static send_full(port, packet)
+	 PORT port;
+	 PACKET *packet;
+{
+/**************************************
+ *
+ *	s e n d _ f u l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+	if (!xdr_protocol(&port->port_send, packet))
+		return FALSE;
+
+	return xdrspxnet_endofrecord(&port->port_send, TRUE);
+}
+
+
+static send_partial(port, packet)
+	 PORT port;
+	 PACKET *packet;
+{
+/**************************************
+ *
+ *	s e n d _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+	return xdr_protocol(&port->port_send, packet);
+}
+
+
+static xdrspxnet_create(xdrs, port, buffer, length, x_op)
+	 XDR *xdrs;
+	 PORT port;
+	 UCHAR *buffer;
+	 USHORT length;
+	 enum xdr_op x_op;
+{
+/**************************************
+ *
+ *	x d r s p x n e t _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize an XDR stream for Apollo mailboxes.
+ *
+ **************************************/
+	xdrs->x_public = (caddr_t) port;
+	xdrs->x_base = xdrs->x_private = (SCHAR *) buffer;
+	xdrs->x_handy = length;
+	xdrs->x_ops = &spxnet_ops;
+	xdrs->x_op = x_op;
+
+	return TRUE;
+}
+
+
+static bool_t xdrspxnet_endofrecord(xdrs, flushnow)
+	 XDR *xdrs;
+	 bool_t flushnow;
+{
+/**************************************
+ *
+ *	x d r s p x n e t _ e n d o f r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out the rest of a record.
+ *
+ **************************************/
+
+	return spxnet_write(xdrs, flushnow);
+}
+
+
+static void spxnet_destroy()
+{
+/**************************************
+ *
+ *	s p x n e t _ d e s t r o y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Destroy a stream.  A no-op.
+ *
+ **************************************/
+}
+
+
+static bool_t spxnet_getbytes(xdrs, buff, count)
+	 XDR *xdrs;
+	 SCHAR *buff;
+	 u_int count;
+{
+/**************************************
+ *
+ *	s p x n e t _ g e t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a bunch of bytes from a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(buff, xdrs->x_private, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(buff, xdrs->x_private, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!spxnet_read(xdrs))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*buff++ = *xdrs->x_private++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (!xdrs->x_handy && !spxnet_read(xdrs))
+			return FALSE;
+		*buff++ = *xdrs->x_private++;
+		--xdrs->x_handy;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t spxnet_getlong(xdrs, lp)
+	 XDR *xdrs;
+	 SLONG *lp;
+{
+/**************************************
+ *
+ *	s p x n e t _ g e t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG l;
+
+	if (!(*xdrs->x_ops->x_getbytes) (xdrs, &l, 4))
+		return FALSE;
+
+	*lp = ntohl(l);
+
+	return TRUE;
+}
+
+
+static u_int spxnet_getpostn(xdrs)
+	 XDR *xdrs;
+{
+/**************************************
+ *
+ *	s p x n e t _ g e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current position (which is also current length) from stream.
+ *
+ **************************************/
+	return (u_int) (xdrs->x_private - xdrs->x_base);
+}
+
+
+static caddr_t spxnet_inline(xdrs, bytecount)
+	 XDR *xdrs;
+	 u_int bytecount;
+{
+/**************************************
+ *
+ *	s p x n e t _  i n l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a pointer to somewhere in the buffer.
+ *
+ **************************************/
+	if (bytecount > xdrs->x_handy)
+		return FALSE;
+
+	return xdrs->x_base + bytecount;
+}
+
+
+static bool_t spxnet_putbytes(xdrs, buff, count)
+	 XDR *xdrs;
+	 SCHAR *buff;
+	 u_int count;
+{
+/**************************************
+ *
+ *	s p x n e t _ p u t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a bunch of bytes to a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(xdrs->x_private, buff, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(xdrs->x_private, buff, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!spxnet_write(xdrs, 0))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*xdrs->x_private++ = *buff++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (xdrs->x_handy <= 0 && !spxnet_write(xdrs, 0))
+			return FALSE;
+		--xdrs->x_handy;
+		*xdrs->x_private++ = *buff++;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t spxnet_putlong(xdrs, lp)
+	 XDR *xdrs;
+	 SLONG *lp;
+{
+/**************************************
+ *
+ *	s p x n e t _ p u t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG l;
+
+	l = htonl(*lp);
+	return (*xdrs->x_ops->x_putbytes) (xdrs, AOF32L(l), 4);
+}
+
+
+static bool_t spxnet_read(xdrs)
+	 XDR *xdrs;
+{
+/**************************************
+ *
+ *	s p x n e t _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a buffer full of data.  If we receive a bad packet,
+ *	send the moral equivalent of a NAK and retry.  ACK all
+ *	partial packets.  Don't ACK the last packet -- the next
+ *	message sent will handle this.
+ *
+ **************************************/
+	PORT port;
+	SSHORT length;
+	SCHAR *p, *end;
+
+	port = (PORT) xdrs->x_public;
+	p = xdrs->x_base;
+	end = p + BUFFER_SIZE;
+
+/* If buffer is not completely empty, slide down what what's left */
+
+	if (xdrs->x_handy > 0) {
+		memmove(p, xdrs->x_private, xdrs->x_handy);
+		p += xdrs->x_handy;
+	}
+
+/* If an ACK is pending, do an ACK.  The alternative is deadlock. */
+
+	while (TRUE) {
+		length = end - p;
+		if (!packet_receive(port, p, length, &length))
+			return FALSE;
+		if (length >= 0) {
+			p += length;
+			break;
+		}
+		p -= length;
+		if (!packet_send(port, 0, 0))
+			return FALSE;
+	}
+
+	port->port_flags |= PORT_pend_ack;
+	xdrs->x_handy = (int) ((SCHAR *) p - xdrs->x_base);
+	xdrs->x_private = xdrs->x_base;
+
+	return TRUE;
+}
+
+
+static bool_t spxnet_setpostn(xdrs, bytecount)
+	 XDR *xdrs;
+	 u_int bytecount;
+{
+/**************************************
+ *
+ *	s p x n e t _ s e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the current position (which is also current length) from stream.
+ *
+ **************************************/
+	if (bytecount > xdrs->x_handy)
+		return FALSE;
+
+	xdrs->x_private = xdrs->x_base + bytecount;
+
+	return TRUE;
+}
+
+
+static bool_t spxnet_write(xdrs, end_flag)
+	 XDR *xdrs;
+	 bool_t end_flag;
+{
+/**************************************
+ *
+ *	s p x n e t _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a buffer fulll of data.  If the end_flag isn't set, indicate
+ *	that the buffer is a fragment, and reset the XDR for another buffer
+ *	load.
+ *
+ **************************************/
+	SCHAR *p;
+	PORT port;
+	SSHORT length;
+
+/* Encode the data portion of the packet */
+
+	port = (PORT) xdrs->x_public;
+	p = xdrs->x_base;
+	length = xdrs->x_private - p;
+
+/* Send data in manageable hunks.  If a packet is partial, indicate
+   that with a negative length.  A positive length marks the end. */
+
+	p = xdrs->x_base;
+
+	if (!packet_send(port, p, length))
+		return FALSE;
+
+	xdrs->x_private = xdrs->x_base;
+	xdrs->x_handy = BUFFER_SIZE;
+
+	return TRUE;
+}
+
+
+static void exit_handler(main_port)
+	 PORT main_port;
+{
+/**************************************
+ *
+ *	e x i t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown all active connections
+ *	to allow restart.
+ *
+ **************************************/
+	PORT port;
+
+	for (port = main_port; port; port = port->port_next)
+		terminate_port((spx_port_handle *) port->port_handle);
+}
+
+
+static bool_t packet_send(port, buffer, buffer_length)
+	 PORT port;
+	 SCHAR *buffer;
+	 SSHORT buffer_length;
+{
+/**************************************
+ *
+ *	p a c k e t _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send some data on it's way.  
+ *
+ **************************************/
+	ECB *ecb;
+	SPXHeader FAR *txhdr;
+	spx_port_handle *handle;
+	SCHAR FAR *tx_mem;
+	SCHAR FAR *data;
+	int i, ccode;
+	WORD length;
+	WORD index;
+
+	handle = (spx_port_handle *) port->port_handle;
+
+	if (handle == NULL)
+		/* The connection already died and was closed */
+		return spxnet_error(port, "SPXSendSequencedPacket", isc_net_write_err,
+							SPX_CONNECTION_TERMINATED, NULL);
+
+	index = 0;
+	ccode = 0;
+
+/* Keep looping through the ecbs until all data is sent */
+	while (buffer_length && !ccode) {
+		i = 0;
+		tx_mem = handle->tx_pool;
+
+		while (buffer_length && i < TX_POOL_SIZE) {
+			data = tx_mem;
+			tx_mem += MAX_DATA;
+
+			ecb = (ECB *) tx_mem;
+			tx_mem += sizeof(ECB);
+
+			txhdr = (SPXHeader FAR *) tx_mem;
+			tx_mem += sizeof(SPXHeader);
+			setup_tx_ecb(ecb, txhdr, handle, data);
+
+			length = buffer_length <= MAX_DATA ? buffer_length : MAX_DATA;
+			buffer_length -= length;
+
+			if (!buffer_length)
+				/* This is the last packet */
+				txhdr->connectionControl |= 0x10;
+			else
+				txhdr->connectionControl = 0;
+
+			txhdr->length = NWWordSwap(sizeof(SPXHeader) + length);
+			ecb->fragmentDescriptor[1].size = length;
+			memcpy(data, &(buffer[index]), length);
+			index += length;
+
+			SPXSendSequencedPacket(handle->task_id, handle->connection_id,
+								   ecb);
+
+			i++;
+		}
+
+		/* We used up all the ecbs, wait for them to clear and start again */
+		if (!wait_for_free_tx_ecbs(port))
+			return FALSE;
+	}
+
+	return (TRUE);
+}
+
+
+static bool_t wait_for_free_tx_ecbs(PORT port)
+{
+/**************************************
+ *
+ * w a i t _ f o r _ f r e e _ t x _ e c b s
+ *
+ **************************************
+ *
+ * Functional description
+ * wait for free tx ecb pool
+ *
+ **************************************/
+	SCHAR FAR *tx_mem;
+	ECB FAR *ecb;
+	int i;
+	spx_port_handle *handle;
+
+	handle = (spx_port_handle *) port->port_handle;
+	tx_mem = handle->tx_pool;
+	i = 0;
+
+	while (i < TX_POOL_SIZE) {
+		tx_mem += MAX_DATA;
+		ecb = (ECB *) tx_mem;
+		tx_mem += sizeof(ECB) + sizeof(SPXHeader);
+
+		while (ecb->inUseFlag != 0)
+			IPXRelinquishControl();
+		if (ecb->completionCode != 0)
+			return ((bool_t) (spxnet_error(port, "SPXSendSequencedPacket",
+										   isc_net_write_err,
+										   ecb->completionCode, ecb)));
+		i++;
+	}
+
+	return TRUE;
+}
+
+static void setup_tx_ecb(ECB FAR * ecb, SPXHeader FAR * txhdr,
+						 spx_port_handle * handle, SCHAR FAR * data)
+{
+/**************************************
+ *
+ * s e t u p _ t x _ e c b
+ *
+ **************************************
+ *
+ * Functional description
+ * set up tx ecbs
+ *
+ **************************************/
+	ecb->ESRAddress = 0;
+	ecb->inUseFlag = 0;
+	ecb->completionCode = 0;
+	ecb->fragmentCount = 2;
+	ecb->fragmentDescriptor[0].address = txhdr;
+	ecb->fragmentDescriptor[0].size = sizeof(SPXHeader);
+	ecb->fragmentDescriptor[1].address = data;
+	txhdr->packetType = (SCHAR) 5;
+	txhdr->dataStreamType = 0;
+	memcpy(&(txhdr->destination.network), &(handle->server_address), 12);
+	memcpy(&(txhdr->source.network), &my_address, 12);
+}
+
+static packet_receive(port, buffer, buffer_length, length)
+	 PORT port;
+	 UCHAR *buffer;
+	 SSHORT buffer_length, *length;
+{
+/**************************************
+ *
+ *	p a c k e t _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a packet and pass on it's goodness.  If it's good,
+ *	return TRUE and the reported length of the packet, and update
+ *	the receive sequence number.  If it's bad, return FALSE.  If it's
+ *	a duplicate message, just ignore it.
+ *
+ **************************************/
+	SCHAR FAR *data;
+	ECB FAR *ecb;
+	SPXHeader FAR *spx;
+	spx_port_handle *handle;
+	WORD len;
+	WORD buffer_offset;
+	SCHAR last_fragment = FALSE;
+
+	handle = (spx_port_handle *) port->port_handle;
+	if (handle == NULL)
+		/* The connection already died and was closed */
+		return spxnet_error(port, "SPXListenForSequencedPacket",
+							isc_net_read_err, SPX_CONNECTION_TERMINATED,
+							NULL);
+
+	buffer_offset = 0;
+
+	last_fragment = FALSE;
+	len = 0;
+
+	while (!last_fragment) {
+		ecb = get_next_fragment(handle);
+		if (!ecb)
+			return 0;
+
+		spx = (SPXHeader *) ecb->fragmentDescriptor[0].address;
+		data = ecb->fragmentDescriptor[1].address;
+		data += sizeof(SLONG);
+		len = spx->length;
+		len = NWWordSwap(len);
+		len -= (sizeof(SPXHeader) + sizeof(SLONG));
+
+		if ((spx->dataStreamType == 0xFE) || (ecb->completionCode != 0)) {
+			spxnet_error(port, "SPXListenForSequencedPacket",
+						 isc_net_read_err, ecb->completionCode, ecb);
+
+			/* If the connection is still valid, repost the listen on this ecb */
+			if (port->port_handle != NULL)
+				SPXListenForSequencedPacket(handle->task_id, ecb);
+			return 0;
+		}
+		memcpy(buffer + buffer_offset, data, len);
+		buffer_offset += len;
+		if (spx->connectionControl & 0x10)
+			last_fragment = TRUE;
+
+		/* Repost the listen for this ecb */
+		SPXListenForSequencedPacket(handle->task_id, ecb);
+	}
+	*length = buffer_offset;
+	return (TRUE);
+}
+
+
+static ECB *get_next_fragment(spx_port_handle * handle)
+{
+/**************************************
+ *
+ * g e t _ n e x t _ f r a g m e n t
+ *
+ **************************************/
+	ECB FAR *ecb;
+	int i;
+	SCHAR FAR *mem;
+	SPXHeader FAR *spx;
+	SCHAR FAR *data;
+	SLONG fragment_number;
+	SCHAR found = FALSE;
+
+	while (!found) {
+		i = 0;
+		mem = handle->rx_pool;
+		while (i < RX_POOL_SIZE) {
+			mem += MAX_DATA;
+			ecb = (ECB *) mem;
+			mem += sizeof(ECB);
+			mem += sizeof(SPXHeader);
+
+			if (ecb->inUseFlag == 0) {
+				spx = (SPXHeader *) ecb->fragmentDescriptor[0].address;
+				if (ecb->completionCode || spx->dataStreamType == 0xFE)
+					return ecb;
+
+				data = ecb->fragmentDescriptor[1].address;
+				fragment_number = *((SLONG *) data);
+				if (fragment_number == handle->next_fragment) {
+					found = TRUE;
+					break;
+				}
+			}
+			i++;
+		}
+		if (!found) {
+			Yield();
+		}
+	}
+	handle->next_fragment++;
+	return (ecb);
+}
+
+
+static void build_ecb_pool(spx_port_handle * handle, void *esr)
+{
+/**************************************
+ *
+ * b u i l d _ e c b _ p o o l
+ *
+ **************************************/
+	int i;
+	UCHAR *data;
+	ECB *ecb;
+	SPXHeader *spx;
+	UCHAR *rx_mem;
+
+
+	handle->rx_global = GlobalAlloc(GPTR | GMEM_DDESHARE,
+									RX_POOL_SIZE * (sizeof(ECB) + MAX_DATA +
+													sizeof(SPXHeader)));
+	rx_mem = GlobalLock(handle->rx_global);
+	handle->rx_pool = rx_mem;
+
+	handle->tx_global = GlobalAlloc(GPTR | GMEM_DDESHARE,
+									TX_POOL_SIZE * (sizeof(ECB) + MAX_DATA +
+													sizeof(SPXHeader)));
+	handle->tx_pool = GlobalLock(handle->tx_global);
+
+
+	i = 0;
+	while (i < RX_POOL_SIZE) {
+		data = rx_mem;
+		rx_mem += MAX_DATA;
+		ecb = (ECB *) rx_mem;
+		rx_mem += sizeof(ECB);
+		spx = (SPXHeader *) rx_mem;
+		rx_mem += sizeof(SPXHeader);
+
+		ecb->ESRAddress = esr;
+		ecb->inUseFlag = 0;
+		ecb->completionCode = 0;
+		ecb->socketNumber = handle->local_socket;
+		ecb->fragmentCount = 2;
+		ecb->fragmentDescriptor[0].address = spx;
+		ecb->fragmentDescriptor[0].size = sizeof(SPXHeader);
+		ecb->fragmentDescriptor[1].address = data;
+		ecb->fragmentDescriptor[1].size = MAX_DATA;
+		spx->packetType = (SCHAR) 5;
+		spx->length = sizeof(SPXHeader);
+		SPXListenForSequencedPacket(handle->task_id, ecb);
+
+		i++;
+	}
+}
+
+
+static void free_ecb_pool(spx_port_handle * handle)
+{
+/**************************************
+ *
+ * f r e e _ e c b _ p o o l
+ *
+ **************************************/
+	int i = 0;
+	int ccode;
+	ECB FAR *ecb;
+	UCHAR FAR *rx_mem;
+	UCHAR msg[128];
+
+	rx_mem = handle->rx_pool;
+
+/* Cancel any outstanding listens on the ECBs */
+	while (i < RX_POOL_SIZE) {
+		/* Get the ecb by skipping past the data */
+		rx_mem += MAX_DATA;
+		ecb = (ECB *) rx_mem;
+		/* Increment rx_mem past ecb and spx header to the next block */
+		rx_mem += sizeof(ECB) + sizeof(SPXHeader);
+
+		if (ecb->inUseFlag != 0) {
+			ccode = IPXCancelEvent(handle->task_id, ecb);
+			if (ccode) {
+				sprintf(msg,
+						"SPXWIN/spxwin_error:  IPXCancelEvent errno = %#x",
+						ccode);
+				gds__log(msg, 0);
+			}
+			else {
+				/* Loop, waiting for the event to be canceled */
+				while (ecb->completionCode != 0xfc)
+					IPXRelinquishControl();
+			}
+		}
+		i++;
+	}
+
+/* Free the ecb memory */
+	GlobalFree(handle->rx_global);
+	GlobalFree(handle->tx_global);
+}
+
+
+void spx_cleanup(void *arg)
+{
+/**************************************
+ *
+ *	spx_cleanup
+ *
+ **************************************
+ *
+ * Functional description:
+ *	Cleanup on exit
+ *
+ **************************************/
+	spx_port_handle *port_handle = head_of_spx_port_list;
+
+	if (SPX_initialized) {
+		/* Free any open connections before terminating */
+		while (port_handle != NULL) {
+			/* 
+			   ** Can't call disconnect at this point since the port memory block was
+			   ** already freed.
+			 */
+			terminate_port(port_handle);
+			/* 
+			   ** disconnect will delete the handle from the list, so rather
+			   ** than walking the list, just keep deleting the front until it's
+			   ** empty.
+			 */
+			port_handle = head_of_spx_port_list;
+		}
+
+		IPXSPXDeinit(tskid);
+		FreeLibrary(hSpxIpxLib);
+		FreeLibrary(hNwCallsLib);
+
+		SPX_initialized = FALSE;
+	}
+}
+
+
+static int spxnet_error(
+						PORT port,
+						TEXT * function,
+						STATUS operation, int status, ECB * ecb)
+{
+/**************************************
+ *
+ *	s p x n e t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An I/O error has occurred.  Call
+ * 	spxnet_gen_error with the appropriate args
+ *	to format the status vector if any.
+ *	In any case, return NULL, which
+ *	is used to indicate an error.
+ *
+ **************************************/
+	TEXT msg[64];
+	SPXHeader *spx;
+
+	if (ecb != NULL) {
+		/* 
+		   ** If we have an ecb, check if the connection died on the
+		   ** other side and if so, free the resources on our side.
+		 */
+		spx = (SPXHeader *) (ecb->fragmentDescriptor[0].address);
+		if ((spx->dataStreamType == 0xFE) ||
+			(ecb->completionCode == SPX_CONNECTION_TERMINATED) ||
+			(ecb->completionCode == SPX_CONNECTION_FAILED)) {
+			terminate_port((spx_port_handle *) port->port_handle);
+			port->port_handle = NULL;
+		}
+	}
+
+	if (status) {
+		spxnet_gen_error(port, isc_network_error,
+						 gds_arg_string,
+						 (STATUS) port->port_connection->str_data,
+						 isc_arg_gds, operation, SYS_ERR,
+						 status + SPX_ERROR_BEG, 0);
+
+		sprintf(msg, "SPXNET/spxnet_error: %s errno = %#x", function, status);
+		gds__log(msg, 0);
+	}
+	else {
+		/* No status value, just format the basic arguments. */
+
+		spxnet_gen_error(port, isc_network_error,
+						 gds_arg_string,
+						 (STATUS) port->port_connection->str_data,
+						 isc_arg_gds, operation, 0);
+	}
+
+	return (int) NULL;
+}
+
+
+static void spxnet_gen_error( PORT port, STATUS status, ...)
+{
+/**************************************
+ *
+ *	s p x n e t _ g e n _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An error has occurred.  
+ *	Format the status vector if there is one and
+ *	save the status vector strings in a permanent place.
+ *
+ **************************************/
+	STATUS *status_vector;
+
+	port->port_flags |= PORT_broken;
+	port->port_state = state_broken;
+
+	status_vector = NULL;
+	if (port->port_context != NULL)
+		status_vector = port->port_context->rdb_status_vector;
+	if (status_vector == NULL)
+		status_vector = port->port_status_vector;
+	if (status_vector != NULL) {
+		STUFF_STATUS(status_vector, status)
+			REMOTE_save_status_strings(status_vector);
+	}
+}
+
+
+#define MAX_TASKS 128
+
+#define GET_WIN_ENTRYPOINT(hlib, funcp, funcname) \
+    funcp = GetProcAddress (hlib, funcname);\
+    if (funcp == NULL) \
+	{ return FAILURE; }
+
+static int initSPX(PORT port)
+{
+/**************************************
+ *
+ *	i n i t S P X
+ *
+ **************************************
+ *
+ * Functional description:
+ *	Initializes the SPX library.
+ *
+ **************************************/
+	int ret = SUCCESS;
+	BYTE majrev, minrev;		/* major and minor rev# of SPX      */
+	WORD maxcon, avacon;		/* max and avail # of connections   */
+	extern void spx_cleanup(void *);
+	extern HINSTANCE LoadDll(UCHAR *);
+
+	if (!SPX_initialized) {
+		hSpxIpxLib = hNwCallsLib = 0;
+
+		hSpxIpxLib = LoadDll("nwipxspx.dll");
+		if (hSpxIpxLib) {
+			GET_WIN_ENTRYPOINT(hSpxIpxLib, IPXCancelEventPtr,
+							   "IPXCancelEvent")
+				GET_WIN_ENTRYPOINT(hSpxIpxLib, IPXCloseSocketPtr,
+								   "IPXCloseSocket")
+				GET_WIN_ENTRYPOINT(hSpxIpxLib, IPXGetInternetworkAddressPtr,
+								   "IPXGetInternetworkAddress")
+				GET_WIN_ENTRYPOINT(hSpxIpxLib, IPXOpenSocketPtr,
+								   "IPXOpenSocket")
+				GET_WIN_ENTRYPOINT(hSpxIpxLib, IPXRelinquishControlPtr,
+								   "IPXRelinquishControl")
+				GET_WIN_ENTRYPOINT(hSpxIpxLib, IPXSPXDeinitPtr,
+								   "IPXSPXDeinit")
+				GET_WIN_ENTRYPOINT(hSpxIpxLib, SPXEstablishConnectionPtr,
+								   "SPXEstablishConnection")
+				GET_WIN_ENTRYPOINT(hSpxIpxLib, SPXInitializePtr,
+								   "SPXInitialize")
+				GET_WIN_ENTRYPOINT(hSpxIpxLib, SPXListenForSequencedPacketPtr,
+								   "SPXListenForSequencedPacket")
+				GET_WIN_ENTRYPOINT(hSpxIpxLib, SPXSendSequencedPacketPtr,
+								   "SPXSendSequencedPacket")
+				GET_WIN_ENTRYPOINT(hSpxIpxLib, SPXTerminateConnectionPtr,
+								   "SPXTerminateConnection")
+
+				/* 
+				   ** Call SPX Initialize to see if the network is installed.
+				   ** On input, tskid is set to indicate resources should be
+				   ** allocated in a pool for access by multiple apps.  On output,
+				   ** it will be the task id used by later SPX calls.
+				 */
+				tskid = 0xffffffffL;
+			ret = SPXInitialize(&tskid, RX_POOL_SIZE, 576,
+								&majrev,
+								&minrev,
+								(LPWORD) & maxcon, (LPWORD) & avacon);
+
+			/* 
+			   ** This needs better error handling so the user gets a 
+			   ** status vector explaining what went wrong 
+			 */
+			if (ret == SPX_INSTALLED || ret == IPXSPX_PREV_INIT) {
+				/* 
+				   ** If SPX is around, go ahead and load nwcalls dll.  Otherwise,
+				   ** if SPX is not installed then loading nwcalls will cause
+				   ** windows to get an error looking for netware.dll
+				 */
+				ret = SUCCESS;
+				hNwCallsLib = LoadDll("nwcalls.dll");
+				if (hNwCallsLib) {
+					GET_WIN_ENTRYPOINT(hNwCallsLib, NWCallsInitPtr,
+									   "NWCallsInit")
+						GET_WIN_ENTRYPOINT(hNwCallsLib,
+										   NWGetDefaultConnectionIDPtr,
+										   "NWGetDefaultConnectionID")
+						GET_WIN_ENTRYPOINT(hNwCallsLib,
+										   NWReadPropertyValuePtr,
+										   "NWReadPropertyValue")
+						GET_WIN_ENTRYPOINT(hNwCallsLib, NWWordSwapPtr,
+										   "NWWordSwap")
+				}
+				else {
+					spxnet_gen_error(port,
+									 isc_network_error,
+									 gds_arg_string,
+									 port->port_connection->str_data,
+									 isc_arg_gds,
+									 isc_net_init_error,
+									 isc_arg_gds,
+									 isc_loadlib_failure,
+									 isc_arg_string, "nwcalls.dll", 0);
+					IPXSPXDeinit(tskid);
+					ret = FAILURE;
+				}
+			}
+			else {
+				/* There was an error initing SPX */
+				spxnet_error(port, "SPXInitialize", isc_net_init_error, ret,
+							 NULL);
+				ret = FAILURE;
+			}
+		}
+		else {
+			/* Unable to load nwipxspx.dll */
+			spxnet_gen_error(port,
+							 isc_network_error,
+							 gds_arg_string,
+							 port->port_connection->str_data,
+							 isc_arg_gds,
+							 isc_net_init_error,
+							 isc_arg_gds,
+							 isc_loadlib_failure,
+							 isc_arg_string, "nwipxspx.dll", 0);
+			ret = FAILURE;
+		}
+
+		if (ret != SUCCESS) {
+			if (hSpxIpxLib)
+				FreeLibrary(hSpxIpxLib);
+			if (hNwCallsLib)
+				FreeLibrary(hNwCallsLib);
+			SPX_initialized = FALSE;
+			ret = FAILURE;
+		}
+		else {
+			SPX_initialized = TRUE;
+		}
+	}
+
+	return ret;
+}
+
+
+static PORT aux_connect(PORT port, PACKET * packet, XDR_INT(*ast) ())
+{
+/**************************************
+ *
+ *	a u x _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	P_RESP *response;
+	PORT new_port;
+	spx_port_handle FAR *handle;
+	spx_port_handle FAR *new_handle;
+	HGLOBAL new_handle_handle;
+	WORD local_socket;
+	ECB connecb;
+	SPXHeader connhdr;
+	NWCONN_HANDLE connid;
+	IPXAddress dest_address;
+	int ret;
+	DWORD tskid;
+	extern HINSTANCE hInstance;
+	HWND hwnd;
+
+/* format response packet with my address in it */
+	response = &packet->p_resp;
+	spxnet_copy(response->p_resp_data.cstr_address, &dest_address,
+				response->p_resp_data.cstr_length);
+
+/* get the spx port handle */
+	handle = (spx_port_handle *) port->port_handle;
+
+/* get the task id */
+	tskid = handle->task_id;
+
+/* alloc a new port */
+	port->port_async = new_port = alloc_port(port->port_parent);
+	new_port->port_flags |= PORT_async;
+	new_port->port_flags |= port->port_flags & PORT_no_oob;
+	new_port->port_ast = ast;
+
+	local_socket = 0;
+	ret = IPXOpenSocket(tskid, (void far *) &local_socket, 0xff);
+
+/* set up new spx port handle */
+	new_handle_handle =
+		GlobalAlloc(GHND | GMEM_DDESHARE, sizeof(spx_port_handle));
+	new_handle = (spx_port_handle FAR *) GlobalLock(new_handle_handle);
+	new_handle->global_handle = new_handle_handle;
+	new_handle->task_id = handle->task_id;
+	new_handle->local_socket = local_socket;
+	memcpy(&(new_handle->server_address), &(dest_address),
+		   sizeof(IPXAddress));
+	new_handle->next_fragment = 0;
+	new_handle->next = 0;
+	build_ecb_pool(new_handle, process_async_data);
+
+/* Create the window which will get posted to in the network esr */
+	hwnd = CreateWindow("RemoteMsgClassSpx", "RemoteMsgWndSpx",
+						WS_POPUP,
+						CW_USEDEFAULT, CW_USEDEFAULT,
+						CW_USEDEFAULT, CW_USEDEFAULT,
+						NULL, NULL, hInstance, NULL);
+	SetWindowLong(hwnd, 0, (long) new_port);
+	new_handle->window_handle = hwnd;
+
+/* set up ecb to use to establish connection */
+	connhdr.length = NWWordSwap(sizeof(SPXHeader));
+	connhdr.packetType = (SCHAR) 5;
+	memcpy(&(connhdr.destination), &(dest_address), sizeof(IPXAddress));
+
+	connecb.socketNumber = local_socket;
+	connecb.fragmentCount = 1;
+	connecb.fragmentDescriptor[0].size = sizeof(SPXHeader);
+	connecb.fragmentDescriptor[0].address = (SCHAR far *) & connhdr;
+	connecb.ESRAddress = 0;
+
+
+/* queue it up */
+	if (head_of_spx_port_list == 0)
+		head_of_spx_port_list = new_handle;
+	else {
+		new_handle->next = head_of_spx_port_list;
+		head_of_spx_port_list = new_handle;
+	}
+
+/* establish a connection */
+	ret =
+		SPXEstablishConnection(tskid, (BYTE) 0x30, (BYTE) 0xFF,
+							   (LPWORD) & connid, &connecb);
+
+/* wait for connection to be established */
+	if (!ret) {
+		while (connecb.inUseFlag != 0)
+			IPXRelinquishControl();
+	}
+
+	if (ret || connecb.completionCode) {
+		spxnet_error(port, "SpxEstablishConnection",
+					 isc_net_event_connect_err,
+					 ret ? ret : connecb.completionCode, NULL);
+		terminate_port(new_handle);
+		return NULL;
+	}
+
+/* set new connection info */
+	new_handle->connection_id = connid;
+	new_port->port_handle = (HANDLE) new_handle;
+
+	return new_port;
+}
+
+
+LRESULT FAR PASCAL spxnet_wndproc(HWND hwnd, UINT message, WPARAM wParam,
+								  LPARAM lParam)
+{
+/**************************************
+ *
+ *	s p x n e t _ w n d p r o c
+ *
+ * called when app notices a message has been posted
+ * to this window.
+ *
+ **************************************
+ *
+ * Functional description:
+ *	This is the windows equivalent of inet_handler.
+ *	When an async request completes, a message will be posted
+ *	to this window.  The function then calls the ast function
+ *	in the port structure (saved in the window extra bytes)
+ *	and re-initiates the async listen on the port.
+ *
+ **************************************/
+	PORT port;
+
+	if (message == WM_USER + 1) {
+		/* get port */
+		port = (PORT) GetWindowLong(hwnd, 0);
+
+		/* call the ast */
+
+		(port->port_ast) (port);
+
+		/* Tell Windows it does not need to process the message */
+		return FALSE;
+	}
+
+	return DefWindowProc(hwnd, message, wParam, lParam);
+}
diff --git a/src/remote/spxwin.h b/src/remote/spxwin.h
new file mode 100644
index 0000000000..8046b843e1
--- /dev/null
+++ b/src/remote/spxwin.h
@@ -0,0 +1,54 @@
+/*
+ *	PROGRAM:	JRD Remote Interface
+ *	MODULE:		spxwin.h
+ *	DESCRIPTION:	Windows SPX communications interface definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <nwipxspx.h>
+#include <nwbindry.h>
+#include <nwcalls.h>
+
+#define MAX_DATA	576 - sizeof(SPXHeader)
+#define MAX_SEQUENCE	256
+#define BUFFER_SIZE	4000
+#define MAXPATHLEN	1024
+#define MAXHOSTLEN	64
+#define NOFILE		20
+#define INTERBASE_SOCKET 0x8794
+#define RX_POOL_SIZE 5
+#define TX_POOL_SIZE 5
+
+
+typedef struct spx_port_handle
+    {
+    WORD  connection_id;
+    DWORD task_id;
+    void FAR *rx_pool;
+    void FAR   *tx_pool;
+    WORD       local_socket;
+    IPXAddress server_address;
+    SLONG      next_fragment;
+    HGLOBAL    rx_global;
+    HGLOBAL    tx_global;
+    HGLOBAL    global_handle;
+    HWND       window_handle;
+    struct     spx_port_handle *next;
+} spx_port_handle;
+
diff --git a/src/remote/srvr_w32.cpp b/src/remote/srvr_w32.cpp
new file mode 100644
index 0000000000..b7eb301886
--- /dev/null
+++ b/src/remote/srvr_w32.cpp
@@ -0,0 +1,544 @@
+/*************  history ************
+*
+*       COMPONENT: REMOTE       MODULE: SRVR_W32.C
+*       generated by Marion V2.5     2/6/90
+*       from dev              db        on 26-JAN-1996
+*****************************************************************
+*
+*       20927   klaus   26-JAN-1996
+*       Call ICS_enter at start
+*
+*       20858   klaus   17-JAN-1996
+*       Get rid of extraneous header file
+*
+*       20841   klaus   12-JAN-1996
+*       Add interprocess comm under remote component
+*
+*       20804   RCURRY  9-JAN-1996 
+*       Change priority for NP threads to normal
+*
+*       20768   klaus   20-DEC-1995
+*       More xnet driver work
+*
+*       20729   klaus   8-DEC-1995 
+*       Begin adding xnet protocol
+*
+*       20716   jmayer  6-DEC-1995 
+*       Update to not show NamedPipes as supported on Win95.
+*
+*       20690   jmayer  4-DEC-1995 
+*       Change to start the IPC protocol when running as a service.
+*
+*       20682   jmayer  3-DEC-1995 
+*       Update to write to logfile and display msg box as a non-service.
+*
+*       20373   RCURRY  24-OCT-1995
+*       Fix bug with license checking
+*
+*       20359   RMIDEKE 23-OCT-1995
+*       add a semicollin
+*
+*       20356   rcurry  23-OCT-1995
+*       Add more license file checking
+*
+*       20350   RCURRY  20-OCT-1995
+*       add license file checking for remote protocols
+*
+*       20281   RCURRY  13-OCT-1995
+*       fix multi thread scheduler problem
+*
+*       20198   RCURRY  27-SEP-1995
+*       Make Windows95 and Windows NT have the same defaults
+*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+*/
+
+
+/*
+ *      PROGRAM:        JRD Remote Server
+ *      MODULE:         nt_server.c
+ *      DESCRIPTION:    Windows NT remote server.
+ *
+ * copyright (c) 1993, 1996 by Borland International
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <windows.h>
+#include "../remote/remote.h"
+#include "../jrd/codes.h"
+#include "../jrd/license.h"
+#include "../jrd/thd.h"
+#include "../jrd/license.h"
+#include "../utilities/install_nt.h"
+#include "../remote/cntl_proto.h"
+#include "../remote/inet_proto.h"
+#include "../remote/serve_proto.h"
+#include "../remote/window_proto.h"
+#include "../remote/wnet_proto.h"
+#include "../remote/window.rh"
+#ifdef  XNET
+#include "../remote/xnet_proto.h"
+#endif /* XNET */
+#include "../jrd/gds_proto.h"
+#include "../jrd/license.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/svc_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../jrd/jrd_proto.h"
+#include "../jrd/isc_i_proto.h"
+
+static void THREAD_ROUTINE process_connection_thread(PORT);
+static void THREAD_ROUTINE inet_connect_wait_thread(void *);
+static void THREAD_ROUTINE ipc_connect_wait_thread(void *);
+static void service_connection(PORT);
+static void THREAD_ROUTINE start_connections_thread(int);
+static void THREAD_ROUTINE wnet_connect_wait_thread(void *);
+static HANDLE parse_args(LPSTR, USHORT *);
+
+static HINSTANCE hInst;
+
+static TEXT protocol_inet[128];
+static TEXT protocol_wnet[128];
+static USHORT server_flag;
+
+static SERVICE_TABLE_ENTRY service_table[] = {
+	REMOTE_SERVICE, (LPSERVICE_MAIN_FUNCTION) CNTL_main_thread,
+	NULL, NULL
+};
+
+#ifdef XNET
+/* put into ensure that we have a parent port for the XNET connections */
+static int xnet_server_set = FALSE;
+#endif /* XNET */
+
+
+
+int WINAPI WinMain(HINSTANCE	hThisInst,
+				   HINSTANCE	hPrevInst,
+				   LPSTR		lpszArgs,
+				   int			nWndMode)
+{
+/**************************************
+ *
+ *      W i n M a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Run the server with NT named
+ *      pipes and/or TCP/IP sockets.
+ *
+ **************************************/
+	HANDLE connection_handle;
+	int nReturnValue = 0;
+
+	hInst = hThisInst;
+
+	if (ISC_is_WinNT())		/* True - NT, False - Win95 */
+		server_flag = (SRVR_multi_client);
+	else
+		server_flag = (SRVR_multi_client | SRVR_non_service);
+
+	gds__thread_enable(-1);
+
+	protocol_inet[0] = 0;
+	protocol_wnet[0] = 0;
+
+	connection_handle = parse_args(lpszArgs, &server_flag);
+
+	if (ISC_is_WinNT())		/* True - NT, False - Win95 */
+		server_flag |= (SRVR_inet | SRVR_pipe);
+	else
+		server_flag |= SRVR_inet;
+
+	server_flag |= SRVR_ipc;
+
+/* Initialize the service and
+   Setup sig_mutex for the process
+*/
+	ISC_signal_init();
+	ISC_enter();
+	if (!(server_flag & SRVR_non_service)) {
+		CNTL_init((FPTR_VOID) start_connections_thread, REMOTE_SERVICE);
+		if (!StartServiceCtrlDispatcher(service_table)) {
+			if (GetLastError() != ERROR_CALL_NOT_IMPLEMENTED) {
+				CNTL_shutdown_service("StartServiceCtrlDispatcher failed");
+			}
+			server_flag |= SRVR_non_service;
+		}
+	}
+	else {
+		if ((server_flag & SRVR_inet) &&
+			((server_flag & SRVR_pipe) || (server_flag & SRVR_non_service))) {
+			gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+							  (inet_connect_wait_thread), 0, THREAD_medium, 0,
+							  0);
+		}
+
+		if ((server_flag & SRVR_pipe) && (server_flag & SRVR_non_service)) {
+			gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+							  (wnet_connect_wait_thread), 0, THREAD_medium, 0,
+							  0);
+		}
+
+		/* No need to waste a thread if we are running as a window.  Just start
+		 * the ipc communication
+		 */
+		if (server_flag & SRVR_non_service) {
+			nReturnValue = WINDOW_main(hThisInst, nWndMode, server_flag);
+		}
+	}
+
+	return nReturnValue;
+}
+
+
+#ifdef  XNET
+ULONG SRVR_xnet_start_thread(ULONG client_pid)
+{
+/**************************************
+ *
+ *      S R V R _ x n e t _ s t a r t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *      Start an interprocess thread.   This allocates
+ *      the next available chunk of the mapped file and
+ *      tells the client where it is.
+ *
+ **************************************/
+	PORT port;
+	ULONG response;
+
+
+/* get a port */
+	port = XNET_start_thread(client_pid, &response);
+
+/* Ensure that the main port is set with this new port if we are the first
+ * XNET connection 
+ */
+	if (!xnet_server_set) {
+		USHORT flags = ((USHORT) SRVR_xnet | (USHORT) SRVR_multi_client |
+						(USHORT) SRVR_thread_per_port);
+		PORT xnet_header_port = (PORT) ALLR_alloc(sizeof(struct port));
+		if (xnet_header_port)
+			*xnet_header_port = *port;
+		else
+			return FALSE;
+		xnet_server_set = TRUE;
+		(void) set_server(xnet_header_port, flags);
+	}
+
+/* start the thread for this client */
+	gds__thread_start((FPTR_INT) process_connection_thread, port,
+					  THREAD_medium, 0, 0);
+
+/* return combined mapped area and number */
+	return response;
+}
+#endif /* XNET */
+
+
+static void THREAD_ROUTINE process_connection_thread( PORT port)
+{
+/**************************************
+ *
+ *      p r o c e s s _ c o n n e c t i o n _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	void *thread;
+
+	if (!(server_flag & SRVR_non_service)) {
+		thread = CNTL_insert_thread();
+	}
+	service_connection(port);
+	if (!(server_flag & SRVR_non_service)) {
+		CNTL_remove_thread(thread);
+	}
+}
+
+
+static void THREAD_ROUTINE inet_connect_wait_thread( void *dummy)
+{
+/**************************************
+ *
+ *      i n e t _ c o n n e c t _ w a i t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	void *thread;
+	STATUS status_vector[20];
+	PORT port;
+
+	if (!(server_flag & SRVR_non_service))
+		thread = CNTL_insert_thread();
+
+	THREAD_ENTER;
+	port = INET_connect(protocol_inet, 0, status_vector, server_flag, 0, 0);
+	THREAD_EXIT;
+	if (port)
+		SRVR_multi_thread(port, server_flag);
+	else
+		gds__log_status(0, status_vector);
+
+	if (!(server_flag & SRVR_non_service))
+		CNTL_remove_thread(thread);
+}
+
+
+static void THREAD_ROUTINE wnet_connect_wait_thread( void *dummy)
+{
+/**************************************
+ *
+ *      w n e t _ c o n n e c t _ w a i t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	void *thread;
+	STATUS status_vector[20];
+	PORT port;
+
+	if (!(server_flag & SRVR_non_service))
+		thread = CNTL_insert_thread();
+
+	while (TRUE) {
+		THREAD_ENTER;
+		port = WNET_connect(protocol_wnet, 0, status_vector, server_flag);
+		THREAD_EXIT;
+		if (!port) {
+			if (status_vector[1] != gds__io_error ||
+				status_vector[6] != gds_arg_win32 ||
+				status_vector[7] != ERROR_CALL_NOT_IMPLEMENTED) {
+				gds__log_status(0, status_vector);
+			}
+			break;
+		}
+		gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+						  (process_connection_thread), port, THREAD_medium, 0,
+						  0);
+	}
+
+	if (!(server_flag & SRVR_non_service)) {
+		CNTL_remove_thread(thread);
+	}
+}
+
+
+static void THREAD_ROUTINE ipc_connect_wait_thread( void *dummy)
+{
+/**************************************
+ *
+ *      i p c _ c o n n e c t _ w a i t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	void *thread;
+
+	if (!(server_flag & SRVR_non_service))
+		thread = CNTL_insert_thread();
+
+	WINDOW_main(hInst, SW_NORMAL, server_flag);
+
+	if (!(server_flag & SRVR_non_service))
+		CNTL_remove_thread(thread);
+}
+
+
+static void service_connection( PORT port)
+{
+/**************************************
+ *
+ *      s e r v i c e _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	SRVR_main(port, (USHORT) (server_flag & ~SRVR_multi_client));
+}
+
+
+static void THREAD_ROUTINE start_connections_thread( int flag)
+{
+/**************************************
+ *
+ *      s t a r t _ c o n n e c t i o n s _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	HANDLE ipc_thread_handle = 0;
+
+#ifndef XNET
+	if (server_flag & SRVR_ipc) {
+		const int bFailed =
+			gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+							  (ipc_connect_wait_thread),
+							  0,
+							  THREAD_medium,
+							  0,
+							  &ipc_thread_handle);
+
+		if (bFailed ||
+			WaitForSingleObject(ipc_thread_handle, 2000) != WAIT_TIMEOUT) {
+			/* If the IPC thread did not time out, then it must have finished. *
+			 * the only way for it to have finished in 2 seconds is for it to  *
+			 * not have succeeded.  IE. It already exists.                     */
+
+			if (!bFailed && ipc_thread_handle) {
+				CloseHandle(ipc_thread_handle);
+			}
+			CNTL_shutdown_service("Could not start service");
+			return;
+		}
+	}
+#endif /* XNET */
+
+	if (server_flag & SRVR_inet) {
+		gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+						  (inet_connect_wait_thread), 0, THREAD_medium, 0, 0);
+	}
+	if (server_flag & SRVR_pipe) {
+		gds__thread_start(reinterpret_cast < FPTR_INT_VOID_PTR >
+						  (wnet_connect_wait_thread), 0, THREAD_medium, 0, 0);
+	}
+}
+
+
+static HANDLE parse_args( LPSTR lpszArgs, USHORT * pserver_flag)
+{
+/**************************************
+ *
+ *      p a r s e _ a r g s
+ *
+ **************************************
+ *
+ * Functional description
+ *      WinMain gives us a stupid command string, not
+ *      a cool argv.  Parse through the string and
+ *      set the options.
+ * Returns
+ *      a connection handle if one was passed in,
+ *      INVALID_HANDLE_VALUE otherwise.
+ *
+ **************************************/
+	TEXT *p, c;
+	HANDLE connection_handle;
+
+	connection_handle = INVALID_HANDLE_VALUE;
+
+	p = lpszArgs;
+	while (*p) {
+		if (*p++ == '-')
+			while ((*p) && (c = *p++) && (c != ' '))
+				switch (UPPER(c)) {
+				case 'A':
+					*pserver_flag |= SRVR_non_service;
+					break;
+
+				case 'B':
+					*pserver_flag |= SRVR_high_priority;
+					break;
+
+				case 'D':
+					*pserver_flag |= SRVR_debug | SRVR_non_service;
+					break;
+
+				case 'N':
+					*pserver_flag |= SRVR_no_icon;
+					break;
+
+#ifndef SUPERSERVER
+/* Remove this because we are now conrtolling this by the LICENSE file */
+				case 'I':
+					*pserver_flag |= SRVR_inet;
+					break;
+
+				case 'N':
+					*pserver_flag |= SRVR_pipe;
+					break;
+
+				case 'L':
+					*pserver_flag |= SRVR_ipc;
+					break;
+#endif /* SUPERSERVER */
+
+#ifdef  XNET
+				case 'X':
+					*pserver_flag |= SRVR_xnet;
+					break;
+#endif /* XNET */
+
+				case 'P':		/* Specify a port or named pipe other than the default */
+					while (*p && *p == ' ')
+						p++;
+					if (*p) {
+						char *pi = protocol_inet, *pw = protocol_wnet;
+
+						*pi++ = '/';
+						*pw++ = '\\';
+						*pw++ = '\\';
+						*pw++ = '.';
+						*pw++ = '@';
+						while (*p && *p != ' ') {
+							*pi++ = *p;
+							*pw++ = *p++;
+						}
+						*pi++ = '\0';
+						*pw++ = '\0';
+					}
+					break;
+
+				case 'R':
+					*pserver_flag &= ~SRVR_high_priority;
+					break;
+
+				case 'Z':
+					ib_printf("Interbase remote server version %s\n",
+							  GDS_VERSION);
+					exit(FINI_OK);
+
+				default:
+					/* In case of something unrecognized, just
+					 * continue, since we have already taken it off
+					 * of p. */
+					break;
+				}
+	}
+	return connection_handle;
+}
diff --git a/src/remote/tcptypes.h b/src/remote/tcptypes.h
new file mode 100644
index 0000000000..8ed5278554
--- /dev/null
+++ b/src/remote/tcptypes.h
@@ -0,0 +1,32 @@
+/*
+ *	PROGRAM:	TCP/IP type definitions
+ *	MODULE:		tcptypes.h
+ *	DESCRIPTION:	Common descriptions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_TCPTYPES_H_
+#define _REMOTE_TCPTYPES_H_
+
+/* supported tcp/ip types */
+
+#define	TCP_TYPE_WOLLONGONG	1
+#define	TCP_TYPE_MULTINET	2
+
+#endif /* _REMOTE_TCPTYPES_H_ */
diff --git a/src/remote/types.h b/src/remote/types.h
new file mode 100644
index 0000000000..2e0a1b0466
--- /dev/null
+++ b/src/remote/types.h
@@ -0,0 +1,110 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/* static	char	*sccsid = "@(#)types.h	1.4	(ULTRIX)	4/19/85"; */
+
+/************************************************************************
+ *									*
+ *			Copyright (c) 1984 by				*
+ *		Digital Equipment Corporation, Maynard, MA		*
+ *			All rights reserved.				*
+ *									*
+ *   This software is furnished under a license and may be used and	*
+ *   copied  only  in accordance with the terms of such license and	*
+ *   with the  inclusion  of  the  above  copyright  notice.   This	*
+ *   software  or  any  other copies thereof may not be provided or	*
+ *   otherwise made available to any other person.  No title to and	*
+ *   ownership of the software is hereby transferred.			*
+ *									*
+ *   This software is  derived  from  software  received  from  the	*
+ *   University    of   California,   Berkeley,   and   from   Bell	*
+ *   Laboratories.  Use, duplication, or disclosure is  subject  to	*
+ *   restrictions  under  license  agreements  with  University  of	*
+ *   California and with AT&T.						*
+ *									*
+ *   The information in this software is subject to change  without	*
+ *   notice  and should not be construed as a commitment by Digital	*
+ *   Equipment Corporation.						*
+ *									*
+ *   Digital assumes no responsibility for the use  or  reliability	*
+ *   of its software on equipment which is not supplied by Digital.	*
+ *									*
+ ************************************************************************/
+
+/* ------------------------------------------------------------------------
+ * Modification History: /sys/h/types.h
+ *
+ * 	David L Ballenger, 8-Mar-1985
+ * 0002	Add types for System V compatibility.
+ *
+ * 23 Oct 84 -- jrs
+ *	Add ifdef so we can be nested without problem
+ *	Derived from 4.2BSD, labeled:
+ *		types.h 6.2	84/06/09
+ *
+ * -----------------------------------------------------------------------
+ */
+
+#ifndef _TYPES_
+#define	_TYPES_
+/*
+ * Basic system types and major/minor device constructing/busting macros.
+ */
+
+/* major part of a device */
+#define	major(x)	((int)(((unsigned)(x)>>8)&0377))
+
+/* minor part of a device */
+#define	minor(x)	((int)((x)&0377))
+
+/* make a device number */
+#define	makedev(x,y)	((dev_t)(((x)<<8) | (y)))
+
+typedef	unsigned char	u_char;
+typedef	unsigned short	u_short;
+typedef	unsigned int	u_int;
+typedef	unsigned int	uint;		/* sys V compatibility */
+typedef	unsigned long	u_long;
+typedef	unsigned short	ushort;		/* sys III compat */
+
+#ifdef vax
+typedef	struct	_physadr { int r[1]; } *physadr;
+typedef	struct	label_t	{
+	int	val[14];
+} label_t;
+#endif
+typedef	struct	_quad { long val[2]; } quad;
+typedef	long	daddr_t;
+typedef	char *	caddr_t;
+typedef	u_long	ino_t;
+typedef short	cnt_t;			/* sys V compatibility */
+typedef	long	swblk_t;
+
+#ifdef VMS
+#define __SOCKET_TYPEDEFS	1
+#else
+typedef	int	size_t;
+#endif
+
+typedef	short	dev_t;
+typedef	int	off_t;
+typedef long	paddr_t;		/* sys V compatibility */
+typedef long	key_t;			/* sys V compatibility */
+
+typedef	struct	fd_set { int fds_bits[1]; } fd_set;
+#endif
diff --git a/src/remote/ucx.cpp b/src/remote/ucx.cpp
new file mode 100644
index 0000000000..7f06dd27b4
--- /dev/null
+++ b/src/remote/ucx.cpp
@@ -0,0 +1,370 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		ucx.c
+ *	DESCRIPTION:	TCP/UCP/IP Communications module.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <netdb.h>
+#include <types.h>
+#include <in.h>
+#include "../jrd/common.h"
+
+#define ETC_SERVICES	"sys$library:services"
+
+static struct servent service;
+static TEXT text[256];
+
+/*
+ * Structure returned by gettimeofday(2) system call,
+ * and used in other calls.
+ */
+struct timeval {
+	SLONG tv_sec;				/* seconds */
+	SLONG tv_usec;				/* and microseconds */
+};
+
+
+int ISC_tcp_accept( int s, struct sockaddr *addr, int *addrlen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ a c c e p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept a connection on a socket.
+ *
+ **************************************/
+
+	return vaxc$accept(s, addr, addrlen);
+}
+
+
+int ISC_tcp_bind( int s, struct sockaddr *name, int namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ b i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Bind a name to a socket.
+ *
+ **************************************/
+
+	return vaxc$bind(s, name, namelen);
+}
+
+
+int ISC_tcp_connect( int s, struct sockaddr *name, int namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initiate a connection on a socket.
+ *
+ **************************************/
+
+	return vaxc$connect(s, name, namelen);
+}
+
+
+int ISC_tcp_geterrno(void)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t e r r n o
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return errno;
+}
+
+
+struct hostent *ISC_tcp_gethostbyaddr(SCHAR * address, int length, int family)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t h o s t b y a d d r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return vaxc$gethostbyaddr(address, length, family);
+}
+
+
+struct hostent *ISC_tcp_gethostbyname(SCHAR * name)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t h o s t b y n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return vaxc$gethostbyname(name);
+}
+
+
+int ISC_tcp_gethostname( SCHAR * name, int namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t h o s t n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get host name.
+ *
+ **************************************/
+
+	return vaxc$gethostname(name, namelen);
+}
+
+
+void ISC_tcp_gethosts( SCHAR * filename)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t h o s t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get hosts.equiv filename.
+ *
+ **************************************/
+
+	strcpy(filename, "???");
+}
+
+
+int ISC_tcp_getpeername( int s, struct sockaddr *name, int namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t p e e r n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get name (i.e. port) of peer.
+ *
+ **************************************/
+
+	return vaxc$getpeername(s, name, namelen);
+}
+
+
+struct servent *ISC_tcp_getservbyname(SCHAR * name, SCHAR * proto)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t s e r v b y n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up a protocol by name.
+ *
+ **************************************/
+	TEXT line[256], service_name[32], protocol_name[32], *p, *q;
+	IB_FILE *file;
+	int port;
+
+	if (!(file = ib_fopen(ETC_SERVICES, "r")))
+		return NULL;
+
+	while (ib_fgets(line, sizeof(line), file))
+		if (sscanf(line, "%s%d/%s", service_name, &port, protocol_name) == 3
+			&& !strcmp(service_name, name) && !strcmp(protocol_name, proto)) {
+			service.s_port = (port >> 8) + ((port & 0xff) << 8);
+			service.s_name = p = text;
+			for (q = protocol_name; *p++ = *q++;);
+			service.s_proto = p;
+			for (q = protocol_name; *p++ = *q++;);
+			service.s_aliases = NULL;
+			ib_fclose(file);
+			return &service;
+		}
+
+	ib_fclose(file);
+
+	return NULL;
+}
+
+
+int ISC_tcp_getsockname( int s, struct sockaddr *name, int namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t s o c k n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get name (i.e. port) of socket.
+ *
+ **************************************/
+
+	return vaxc$getsockname(s, name, namelen);
+}
+
+
+int ISC_tcp_listen( int s, int backlog)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ l i s t e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Listen for connections on a socket.
+ *
+ **************************************/
+
+	return vaxc$listen(s, backlog);
+}
+
+
+int ISC_tcp_recv( int s, SCHAR * buf, int len, int flags)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ r e c v
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message  from a socket.
+ *
+ **************************************/
+
+	return vaxc$recv(s, buf, len, flags);
+}
+
+
+int ISC_tcp_select(
+				   int width,
+				   int *read,
+				   int *write, int *except, struct timeval *timeout)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s e l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Synchronous I/O multiplexing.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int ISC_tcp_send( int s, SCHAR * buf, int len, int flags)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s e n d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a message from a socket.
+ *
+ **************************************/
+
+	return vaxc$send(s, buf, len, flags);
+}
+
+
+int ISC_tcp_setsockopt(
+					   int s,
+					   int level, int optname, SCHAR * optval, int optlen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s e t s o c k o p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set options on sockets.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+void ISC_tcp_setup( int (*waitaddr) (), int (*astaddr) ())
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s e t u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set options on sockets.
+ *
+ **************************************/
+
+}
+
+
+int ISC_tcp_socket( int af, int type, int protocol)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s o c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an endpoint for communication.
+ *
+ **************************************/
+
+	return vaxc$socket(af, type, protocol);
+}
diff --git a/src/remote/wfwnp.cpp b/src/remote/wfwnp.cpp
new file mode 100644
index 0000000000..6b4028e389
--- /dev/null
+++ b/src/remote/wfwnp.cpp
@@ -0,0 +1,738 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		wfwnp.c
+ *	DESCRIPTION:	Windows for Workgroups Named Pipe Support module.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/*
+ *  Please note that the following implementation of Windows NT named pipe
+ *  support functions is only a partial implementation of these functions.
+ *  This is only a wrapping of these functions to enable existing NT code
+ *  to function properly.  This code should be studied and modified if
+ *  necessary when any new calls to these functions are made.  In other 
+ *  words, use these functions within Windows 3.11 at your own risk.
+ *  In addition, unlike Windows NT, the error code is reset after each
+ *  function call to avoid instancing problems.  This means GetLastError()
+ *  returns NO_ERROR after a successful function call even if the preceding
+ *  function resulted in an error.
+ *  
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <nmpipe.h>
+#define INCL_ERRORS
+#include <bseerr.h>
+#include "../jrd/ibase.h"
+#include "../remote/remote.h"
+#include "../remote/wfwnp.h"
+#include "../remote/wfwnp_pr.h"
+#include "../jrd/gds_proto.h"
+
+#define IO_READ     0
+#define IO_WRITE    1
+
+/* 
+** The windows netapi library has to be dynamically loaded because the
+** library may not be installed if the user does not have name pipe support.
+** they are using SPX).  The following defines the netapi functions to
+** reference function pointers which will be set using the windows
+** GetProcAddress function at startup.
+*/
+#define DosReadAsyncNmPipe      DosReadAsyncNmPipeProcPtr
+#define DosWriteAsyncNmPipe     DosWriteAsyncNmPipeProcPtr
+
+#define GET_WIN_ENTRYPOINT(funcp,funcname) \
+			    funcp = GetProcAddress (hlib, funcname); \
+			    if (funcp == NULL) {FreeLibrary (hlib); \
+						hlib = 0; return FAILURE; }
+
+typedef struct tag_wnpport {
+	HANDLE hFile;
+	LPVOID lpBuffer;
+	BOOL bFinished;
+	USHORT usAsyncErr;
+	USHORT usNumberOfBytes;
+	char acBuffer[ASYNC_READ_BYTES];
+	PORT port;
+	BOOL bWaiting;
+	FARPROC pfnBlockingHook;
+	struct tag_wnpport *next;
+} *WNPPORT;
+
+static HINSTANCE hlib = 0;
+
+/* necessary static variables */
+static FARPROC tpfnBlockingHook;
+static DWORD tdwErrCode;
+static WNPPORT head_of_port_list = NULL;
+
+static BOOL wfwnp_pipe_io(WORD, HANDLE, LPVOID, USHORT, LPDWORD);
+static WNPPORT wfwnp_add(void);
+static BOOL wfwnp_remove(WNPPORT wnpremove);
+static WNPPORT wfwnp_find_handle(HANDLE hFile);
+static WNPPORT wfwnp_find_buffer(LPVOID lpBuffer);
+
+void wfwnp_cleanup(void *);
+void _far _pascal wfwnp_async_callback(LPVOID);
+static int _far _pascal blocking_stub(void);
+
+static PIPE_FUNCTION(*DosReadAsyncNmPipeProcPtr) (unsigned short,
+												  API_CALLBACK,
+												  unsigned short far *,
+												  unsigned char far *,
+												  unsigned short,
+												  unsigned short far *);
+static PIPE_FUNCTION(*DosWriteAsyncNmPipeProcPtr) (unsigned short,
+												   API_CALLBACK,
+												   unsigned short far *,
+												   unsigned char far *,
+												   unsigned short,
+												   unsigned short far *);
+
+
+int initWNP(void)
+{
+/**************************************
+ *
+ *	i n i t W N P
+ *
+ **************************************
+ *
+ * Functional description:
+ *	Initializes the netapi library.
+ *
+ **************************************/
+	extern HINSTANCE LoadDll(UCHAR *);
+
+	if (hlib == 0) {
+		hlib = LoadDll("netapi.dll");
+
+		if (hlib) {
+			GET_WIN_ENTRYPOINT(DosReadAsyncNmPipeProcPtr,
+							   "DosReadAsyncNmPipe");
+			GET_WIN_ENTRYPOINT(DosWriteAsyncNmPipeProcPtr,
+							   "DosWriteAsyncNmPipe");
+
+			gds__register_cleanup(wfwnp_cleanup, (void *) hlib);
+		}
+		else {
+			return FAILURE;
+		}
+	}
+
+	WNPSetBlockingHook(blocking_stub);
+	SetLastError(NO_ERROR);
+
+	return SUCCESS;
+}
+
+
+HANDLE CreateFile(LPCSTR lpFileName,
+				  DWORD dwDesiredAccess,
+				  DWORD dwShareMode,
+				  LPSECURITY_ATTRIBUTES lpSecurityAttributes,
+				  DWORD dwCreationDisposition,
+				  DWORD dwFlagsAndAttributes, HANDLE hTemplateFile)
+{
+/**************************************
+ *
+ *	C r e a t e F i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Very limited support of Windows NT CreateFile function for named pipes.
+ *	Sets GetLastError() to ERROR_BAD_PIPE if unsuccessful for any reason.
+ *  NO_ERROR if successful.
+ *
+ **************************************/
+	HANDLE hFile;
+	DWORD dwTimeBeg;
+	WNPPORT wnpport;
+
+
+/* Add a new internal buffer for this connection */
+	wnpport = wfwnp_add();
+
+	if (wnpport == NULL) {
+		SetLastError(ERROR_NOT_ENOUGH_MEMORY);
+
+		return INVALID_HANDLE_VALUE;
+	}
+
+	dwTimeBeg = GetTickCount();
+
+/* Wait for successful open on pipe */
+	do {
+		hFile = _lopen(lpFileName, READ_WRITE);
+		if (hFile != HFILE_ERROR) {
+			/* Save handle in internal buffer */
+			wnpport->hFile = hFile;
+
+			/* Successfully opened pipe */
+			SetLastError(NO_ERROR);
+
+			return hFile;
+		}
+
+		/* Call blocking hook to yield if necessary */
+		while (wnpport->pfnBlockingHook());
+	}
+	while ((GetTickCount() - dwTimeBeg) < CF_TIMEOUT);
+
+/* Remove internal buffer for this connection */
+	wfwnp_remove(wnpport);
+
+/* Unable to open pipe */
+	SetLastError(ERROR_FILE_NOT_FOUND);
+
+	return INVALID_HANDLE_VALUE;
+}
+
+
+BOOL ReadFile(HANDLE hFile,
+			  LPVOID lpBuffer,
+			  DWORD dwNumberOfBytesToRead,
+			  LPDWORD lpNumberOfBytesRead, LPOVERLAPPED lpOverlapped)
+{
+/**************************************
+ *
+ *	R e a d F i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Very limited support of Windows NT ReadFile function for named pipes.
+ *	Note that even though dwNumberOfBytes is DWORD, this call is limited
+ *  to MAX_PIPE_IO_BYTES (65535) for length of data to read.
+ *
+ **************************************/
+
+/* Check if parameter exceeds limits */
+	if (dwNumberOfBytesToRead > MAX_PIPE_IO_BYTES) {
+		SetLastError(ERROR_BAD_LENGTH);
+
+		return FALSE;
+	}
+
+	return wfwnp_pipe_io(IO_READ, hFile, lpBuffer,
+						 (USHORT) dwNumberOfBytesToRead, lpNumberOfBytesRead);
+}
+
+
+BOOL WriteFile(HANDLE hFile,
+			   LPCVOID lpBuffer,
+			   DWORD dwNumberOfBytesToWrite,
+			   LPDWORD lpNumberOfBytesWritten, LPOVERLAPPED lpOverlapped)
+{
+/**************************************
+ *
+ *	W r i t e F i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Very limited support of Windows NT WriteFile function for named pipes.
+ *	Note that even though dwNumberOfBytes is DWORD, this call is limited
+ *  to MAX_PIPE_IO_BYTES (65535) for length of data to write.
+ *
+ **************************************/
+
+/* Check if parameter exceeds limits */
+	if (dwNumberOfBytesToWrite > MAX_PIPE_IO_BYTES) {
+		SetLastError(ERROR_BAD_LENGTH);
+
+		return FALSE;
+	}
+
+	return wfwnp_pipe_io(IO_WRITE, hFile, lpBuffer,
+						 (USHORT) dwNumberOfBytesToWrite,
+						 lpNumberOfBytesWritten);
+}
+
+
+BOOL CloseHandle(HANDLE hFile)
+{
+/**************************************
+ *
+ *	C l o s e H a n d l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Support of Windows NT CloseHandle function for named pipes.
+ *
+ **************************************/
+	WNPPORT wnpport;
+
+	wnpport = wfwnp_find_handle(hFile);
+
+	if (_lclose((HFILE) hFile) == HFILE_ERROR || wnpport == NULL) {
+		SetLastError(ERROR_INVALID_HANDLE);
+
+		return FALSE;
+	}
+
+/* Wait for close to finish on async read */
+	if (wnpport->bWaiting) {
+		DWORD dwTimeBeg;
+
+		dwTimeBeg = GetTickCount();
+
+		while (wnpport->bWaiting && (GetTickCount() - dwTimeBeg) < CH_TIMEOUT) {
+			/* Call blocking hook to yield if necessary */
+			while (wnpport->pfnBlockingHook());
+		}
+
+		/* Error if close never finished */
+		if (wnpport->bWaiting) {
+			wnpport->hFile = INVALID_HANDLE_VALUE;
+
+			SetLastError(ERROR_UNEXP_NET_ERR);
+
+			return FALSE;
+		}
+	}
+
+/* Remove internal buffer for this connection */
+	wfwnp_remove(wnpport);
+
+	SetLastError(NO_ERROR);
+
+	return TRUE;
+}
+
+
+DWORD GetLastError()
+{
+/**************************************
+ *
+ *	G e t L a s t E r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Very limited support of Windows NT GetLastError function for named pipes.
+ *	Note that the value returned by GetLastError() is shared between multiple
+ *  application instances using this DLL.  It is important to get this
+ *  value only immediately after making API calls.
+ *
+ **************************************/
+	extern DWORD tdwErrCode;
+
+	return tdwErrCode;
+}
+
+
+void SetLastError( DWORD dwErrCode)
+{
+/**************************************
+ *
+ *	S e t L a s t E r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Very limited support of Windows NT SetLastError function for named pipes.
+ *	Note that the value set by SetLastError() is shared between multiple
+ *  application instances using this DLL.
+ *
+ **************************************/
+	extern DWORD tdwErrCode;
+
+	tdwErrCode = dwErrCode;
+
+	return;
+}
+
+
+BOOL WNPListenForResponse(PORT port)
+{
+/**************************************
+ *
+ *	W N P L i s t e n F o r R e s p o n s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sets up for an async read on port.
+ *
+ **************************************/
+	API_CALLBACK pfn;
+	USHORT usQuickErr;
+	WNPPORT wnpport;
+
+/* Setup flag and buffer address in internal buffer for callback */
+	wnpport = wfwnp_find_handle(port->port_handle);
+	wnpport->bFinished = FALSE;
+	wnpport->lpBuffer = wnpport->acBuffer;
+
+	if (wnpport == NULL)
+		return FALSE;
+
+	wnpport->port = port;
+	wnpport->bWaiting = TRUE;
+
+/* The following line of code only works within a DLL.  If this code is
+/* moved, MakeProcInstance() may need to be called instead. */
+	pfn = (API_CALLBACK) wfwnp_async_callback;
+
+/* Do async read */
+	usQuickErr = DosReadAsyncNmPipe((USHORT) port->port_handle, pfn,
+									&wnpport->usAsyncErr, wnpport->acBuffer,
+									(USHORT) ASYNC_READ_BYTES,
+									&wnpport->usNumberOfBytes);
+
+	return (usQuickErr == 0);
+}
+
+
+FARPROC WNPSetBlockingHook(FARPROC pfnBlockingHook)
+{
+/**************************************
+ *
+ *	W N P S e t B l o c k i n g H o o k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sets the blocking hook function to overide the default implementation.
+ *
+ **************************************/
+
+	FARPROC pfnOldBlockingHook = tpfnBlockingHook;
+
+	tpfnBlockingHook = pfnBlockingHook;
+
+	return pfnOldBlockingHook;
+}
+
+
+static BOOL wfwnp_pipe_io(
+						  WORD wType,
+						  HANDLE hFile,
+						  LPVOID lpBuffer,
+						  USHORT usNumberOfBytes, LPDWORD lpNumberOfBytes)
+{
+/**************************************
+ *
+ *	w f w n p _ p i p e _ i o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Implements the ReadFile and WriteFile functions.
+ *	Buffer size, usNumberOfBytes, is limited to MAX_PIPE_IO_BYTES (65535).
+ *
+ **************************************/
+	extern HINSTANCE hInstance;
+
+	API_CALLBACK pfn;
+	USHORT usQuickErr;
+	WNPPORT wnpport;
+
+/* Setup flag and buffer address in internal buffer for callback */
+	wnpport = wfwnp_find_handle(hFile);
+	wnpport->bFinished = FALSE;
+	wnpport->lpBuffer = lpBuffer;
+
+	if (wnpport == NULL) {
+		SetLastError(ERROR_INVALID_HANDLE);
+
+		return FALSE;
+	}
+
+/* The following line of code only works within a DLL.  If this code is
+/* moved, MakeProcInstance() may need to be called instead. */
+	pfn = (API_CALLBACK) wfwnp_async_callback;
+
+	if (wType == IO_READ) {
+		/* Do async read */
+		usQuickErr = DosReadAsyncNmPipe((USHORT) hFile, pfn,
+										&wnpport->usAsyncErr, lpBuffer,
+										usNumberOfBytes,
+										&wnpport->usNumberOfBytes);
+	}
+	else if (wType == IO_WRITE) {
+		/* Do async write */
+		usQuickErr = DosWriteAsyncNmPipe((USHORT) hFile, pfn,
+										 &wnpport->usAsyncErr, lpBuffer,
+										 usNumberOfBytes,
+										 &wnpport->usNumberOfBytes);
+	}
+	else
+		usQuickErr = ERROR_INVALID_PARAMETER;
+
+	if (usQuickErr != 0) {
+		SetLastError(usQuickErr);
+
+		return FALSE;
+	}
+
+/* Wait for read/write to complete */
+	while (TRUE) {
+		while (wnpport->pfnBlockingHook());
+
+		if (wnpport->bFinished)
+			break;
+	}
+
+	*lpNumberOfBytes = wnpport->usNumberOfBytes;
+
+	if (wnpport->usAsyncErr != 0) {
+		SetLastError(wnpport->usAsyncErr);
+
+		return FALSE;
+	}
+
+	SetLastError(NO_ERROR);
+
+	return TRUE;
+}
+
+
+static WNPPORT wfwnp_add(void)
+{
+/**************************************
+ *
+ *	w f w n p _ a d d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Adds a new internal buffer for tracking this connection.
+ *
+ **************************************/
+	WNPPORT wnpport;
+
+	wnpport = (WNPPORT) ALLOC_LIB_MEMORY((SLONG) sizeof(*wnpport));
+/* FREE: static memory freed when DLL unloaded? */
+
+	if (wnpport == NULL)		/* NOMEM: */
+		return NULL;
+
+	wnpport->hFile = INVALID_HANDLE_VALUE;
+	wnpport->lpBuffer = NULL;
+	wnpport->bFinished = FALSE;
+	wnpport->usAsyncErr = NO_ERROR;
+	wnpport->usNumberOfBytes = 0;
+	wnpport->port = NULL;
+	wnpport->bWaiting = FALSE;
+	wnpport->pfnBlockingHook = tpfnBlockingHook;
+	wnpport->next = NULL;
+
+	if (head_of_port_list == 0)
+		head_of_port_list = wnpport;
+	else {
+		wnpport->next = head_of_port_list;
+		head_of_port_list = wnpport;
+	}
+
+	return wnpport;
+}
+
+
+static BOOL wfwnp_remove( WNPPORT wnpremove)
+{
+/**************************************
+ *
+ *	w f w n p _ r e m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Removes the internal buffer for tracking this connection.
+ *
+ **************************************/
+	WNPPORT wnpport;
+
+	if (head_of_port_list == NULL || wnpremove == NULL)
+		return FALSE;
+
+	if (head_of_port_list == wnpremove) {
+		head_of_port_list = head_of_port_list->next;
+		FREE_LIB_MEMORY(wnpremove);
+
+		return TRUE;
+	}
+
+	for (wnpport = head_of_port_list; wnpport != NULL;
+		 wnpport = wnpport->next) {
+		if (wnpport->next == wnpremove) {
+			wnpport->next = wnpport->next->next;
+			FREE_LIB_MEMORY(wnpremove);
+
+			return TRUE;
+		}
+	}
+
+	return FALSE;
+}
+
+
+static WNPPORT wfwnp_find_handle( HANDLE hFile)
+{
+/**************************************
+ *
+ *	w f w n p _ f i n d _ h a n d le
+ *
+ **************************************
+ *
+ * Functional description
+ *	Searched and returns an internal buffer by file handle.
+ *
+ **************************************/
+	WNPPORT wnpport;
+
+	for (wnpport = head_of_port_list; wnpport != NULL &&
+		 wnpport->hFile != hFile; wnpport = wnpport->next);
+
+	return wnpport;
+}
+
+
+static WNPPORT wfwnp_find_buffer( LPVOID lpBuffer)
+{
+/**************************************
+ *
+ *	w f w n p _ f i n d _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Searched and returns an internal buffer by file buffer.
+ *
+ **************************************/
+	WNPPORT wnpport;
+
+	for (wnpport = head_of_port_list; wnpport != NULL;
+		 wnpport = wnpport->next) {
+		if (wnpport->hFile != INVALID_HANDLE_VALUE
+			&& wnpport->lpBuffer == lpBuffer) break;
+	}
+
+	return wnpport;
+}
+
+
+void wfwnp_cleanup( void *arg)
+{
+/**************************************
+ *
+ *	w f w n p _ c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description:
+ *	If an arg is passed in, it is the handle to a dynamically loaded
+ *	library, so free it.
+ *
+ **************************************/
+
+	if (arg != NULL) {
+		/* Free netapi.dll which was loaded and saved in the global hlib var */
+		FreeLibrary((HINSTANCE) arg);
+	}
+
+	return;
+}
+
+
+void _far _pascal wfwnp_async_callback( LPVOID lpBuffer)
+{
+/**************************************
+ *
+ *	w f w n p _ a s y n c _ c a l l b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Callback function for both read and write operations when finished.
+ *
+ **************************************/
+	WNPPORT wnpport;
+
+/* Get the internal buffer for this I/O call */
+	wnpport = wfwnp_find_buffer(lpBuffer);
+
+	if (wnpport != NULL && !wnpport->bFinished) {
+		PORT port;
+
+		/* Mark flag as finished */
+		wnpport->bFinished = TRUE;
+		wnpport->lpBuffer = NULL;
+
+		port = wnpport->port;
+
+		/* Check if async read */
+		if (port != NULL && wnpport->bWaiting) {
+			wnpport->bWaiting = FALSE;
+			memcpy(port->port_receive.x_private, lpBuffer,
+				   wnpport->usNumberOfBytes);
+			port->port_receive.x_handy += wnpport->usNumberOfBytes;
+
+			/* Post message to trigger remaining read on pipe */
+			if (port->port_msg_handle != NULL) {
+				PostMessage(port->port_msg_handle, WM_USER + 1,
+							wnpport->usAsyncErr, 0);
+			}
+		}
+	}
+
+	return;
+}
+
+
+static int _far _pascal blocking_stub(void)
+{
+/**************************************
+ *
+ *	b l o c k i n g _ s t u b
+ *
+ **************************************
+ *
+ * Functional description:
+ *	Defines an empty blocking stub so that by default we do not
+ *	yield the CPU when waiting on name pipe I/O.
+ *	The user must register a blocking function with our DLL
+ *	before we will allow any yields (protects ODAPI from re-entrancy).
+ *
+ **************************************/
+/*
+ *   This implementation could be changed to the following code for
+ *   background message processing by default.
+ *
+ *   MSG     msg;
+ *   BOOL    bMessage;
+ *
+ *   bMessage = (BOOL) PeekMessage (&msg, NULL, 0, 0, PM_REMOVE | PM_NOYIELD);
+ *
+ *   if (bMessage)
+ *       {
+ *       TranslateMessage (&msg);
+ *       DispatchMessage (&msg);
+ *       }
+ *
+ *   return bMessage;
+ *
+ **************************************/
+
+	return FALSE;
+}
diff --git a/src/remote/wfwnp.h b/src/remote/wfwnp.h
new file mode 100644
index 0000000000..e4cf4af1b4
--- /dev/null
+++ b/src/remote/wfwnp.h
@@ -0,0 +1,54 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		wfwnp.h
+ *	DESCRIPTION:	Windows for Workgroups named pipe support definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef _WFWNP_H
+#define _WFWNP_H
+
+
+#define CF_TIMEOUT   10000L   /* Timeout used for waiting for successful */
+                              /* CreateFile to a named pipe. */
+
+#define CH_TIMEOUT   10000L   /* Timeout used for waiting for successful */
+                              /* CloseHandle on a named pipe. */
+
+#define ASYNC_READ_BYTES    1          /* Bytes to wait for on async read */
+#define MAX_PIPE_IO_BYTES   0xFFFF     /* Maximum bytes read/write in call */
+
+#define GENERIC_READ                     (0x80000000L)
+#define GENERIC_WRITE                    (0x40000000L)
+
+#define FILE_SHARE_READ                 0x00000001
+#define FILE_SHARE_WRITE                0x00000002
+
+#define CREATE_NEW          1
+#define CREATE_ALWAYS       2
+#define OPEN_EXISTING       3
+#define OPEN_ALWAYS         4
+#define TRUNCATE_EXISTING   5
+
+#define INVALID_HANDLE_VALUE (HANDLE)-1
+
+typedef const void far      *LPCVOID;
+typedef void *LPSECURITY_ATTRIBUTES;
+typedef void *LPOVERLAPPED;
+
+#endif /* _WFWNP_H */
diff --git a/src/remote/wfwnp_proto.h b/src/remote/wfwnp_proto.h
new file mode 100644
index 0000000000..ebd29f4b8a
--- /dev/null
+++ b/src/remote/wfwnp_proto.h
@@ -0,0 +1,38 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		wfwnp_pr.h
+ *	DESCRIPTION:	Prototpe header file for wfwnp.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef _WFWNP_PR_H
+#define _WFWNP_PR_H
+
+int         initWNP (void);
+HANDLE      CreateFile (LPCSTR, DWORD, DWORD, LPSECURITY_ATTRIBUTES, DWORD,
+               DWORD, HANDLE);
+BOOL        ReadFile (HANDLE, LPVOID, DWORD, LPDWORD, LPOVERLAPPED);
+BOOL        WriteFile (HANDLE, LPCVOID, DWORD, LPDWORD, LPOVERLAPPED);
+BOOL        FlushFileBuffers (HANDLE);
+BOOL        CloseHandle (HANDLE);
+DWORD       GetLastError ();
+void        SetLastError (DWORD);
+BOOL			WNPListenForResponse(PORT);
+FARPROC     WNPSetBlockingHook (FARPROC);
+
+#endif /* _WFWNP_PR_H */
diff --git a/src/remote/window.aps b/src/remote/window.aps
new file mode 100644
index 0000000000..13bb7cfd0f
Binary files /dev/null and b/src/remote/window.aps differ
diff --git a/src/remote/window.cpp b/src/remote/window.cpp
new file mode 100644
index 0000000000..7c669d84e8
--- /dev/null
+++ b/src/remote/window.cpp
@@ -0,0 +1,731 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include <windows.h>
+#include <stdio.h>
+#include <shellapi.h>
+#include <prsht.h>
+#include <dbt.h>
+
+#define BOOLEAN_DEFINED
+#define MSG_DEFINED
+
+#include "../jrd/common.h"
+#include "../jrd/license.h"
+#include "../jrd/isc.h"
+#include "../jrd/file_params.h"
+#include "../remote/remote_def.h"
+#include "../remote/window.rh"
+#include "../remote/property.rh"
+#include "../ipserver/ips.h"
+
+#include "../jrd/svc_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd.h"
+#include "../jrd/jrd_proto.h"
+#include "../remote/window_proto.h"
+#include "../remote/propty_proto.h"
+#include "../ipserver/ipsrv_proto.h"
+
+#include "../jrd/gds_proto.h"
+
+#include "../remote/window.h"
+#include "../jrd/isc_proto.h"
+
+
+extern "C" {
+
+
+#define JRD_info_drivemask 1	// TEMPORARY ONLY
+
+char szWindowText[WIN_TEXTLEN];
+HWND hPSDlg = NULL;
+static HINSTANCE hInstance = NULL;
+static USHORT usServerFlags;
+
+static ULONG WND_ipc_map;
+static ULONG WND_priority;
+static ULONG WND_working_min;
+static ULONG WND_working_max;
+#ifdef SUPERSERVER
+extern SLONG free_map_debug;
+extern SLONG trace_pools;
+#endif
+
+static struct ipccfg WND_hdrtbl[] = {
+	ISCCFG_IPCMAP, -1, reinterpret_cast < SLONG * >(&WND_ipc_map), 0, 0,
+	ISCCFG_PRIORITY, -1, reinterpret_cast < SLONG * >(&WND_priority), 0, 0,
+	ISCCFG_MEMMIN, -1, reinterpret_cast < SLONG * >(&WND_working_min), 0, 0,
+	ISCCFG_MEMMAX, -1, reinterpret_cast < SLONG * >(&WND_working_max), 0, 0,
+	ISCCFG_TRACE_POOLS, 0, &trace_pools, 0, 0,
+	NULL, -1, NULL, 0, 0
+};
+
+// Static functions to be called from this file only.
+static void GetDriveLetter(ULONG, char pchBuf[DRV_STRINGLEN]);
+static char *MakeVersionString(char *, int, USHORT);
+static BOOL CanEndServer(HWND, BOOL);
+
+#define SVC_CONFIG 4			// Startup Configuration Entry point for ibcfg.exe.
+
+// Window Procedure
+void __stdcall WINDOW_shutdown(HANDLE);
+LRESULT CALLBACK WindowFunc(HWND, UINT, WPARAM, LPARAM);
+
+
+
+int WINDOW_main( HINSTANCE hThisInst, int nWndMode, USHORT usServerFlagMask)
+{
+/******************************************************************************
+ *
+ *  W I N D O W _ m a i n
+ *
+ ******************************************************************************
+ *
+ *  Input:  hThisInst - Handle to the current instance
+ *          nWndMode - The mode to be used in the call ShowWindow()
+ *          usServerFlagMask - The Server Mask specifying various server flags
+ *
+ *  Return: (int) 0 if returning before entering message loop
+ *          wParam if returning after WM_QUIT
+ *
+ *  Description: This function registers the main window class, creates the
+ *               window and it also contains the message loop. This func. is a
+ *               substitute for the regular WinMain() function.
+ *****************************************************************************/
+	HWND hWnd = NULL;
+	MSG msg;
+	WNDCLASS wcl;
+
+	hInstance = hThisInst;
+	usServerFlags = usServerFlagMask;
+
+/* initialize interprocess server */
+
+	ISC_get_config(LOCK_HEADER, WND_hdrtbl);
+
+	if (!(usServerFlagMask & SRVR_ipc)) {
+		szClassName = "IB_Disabled";
+	}
+	else {
+
+#ifndef XNET
+
+		if (!IPS_init(hWnd, 0, (USHORT) WND_ipc_map, 0)) {
+			// The initialization failed.  Check to see if there is another
+			// server running.  If so, bring up it's property sheet and quit
+			// otherwise assume that a stale client is still around and tell
+			// the user to terminate it.
+			char szMsgString[TMP_STRINGLEN];
+			hWnd = FindWindow(szClassName, APP_NAME);
+			if (hWnd) {
+				LoadString(hInstance, IDS_ALREADYSTARTED, szMsgString,
+						   TMP_STRINGLEN);
+				if (usServerFlagMask & SRVR_non_service) {
+					MessageBox(NULL, szMsgString, APP_NAME,
+							   MB_OK | MB_ICONHAND);
+				}
+				gds__log(szMsgString);
+			}
+			else {
+				LoadString(hInstance, IDS_MAPERROR, szMsgString,
+						   TMP_STRINGLEN);
+				if (usServerFlagMask & SRVR_non_service) {
+					MessageBox(NULL, szMsgString, APP_NAME,
+							   MB_OK | MB_ICONHAND);
+				}
+				gds__log(szMsgString);
+			}
+			return 0;
+		}
+
+#else
+
+		if (!XNET_init(hWnd, 0, 0, 0)) {
+			char szMsgString[TMP_STRINGLEN];
+			hWnd = FindWindow(szClassName, APP_NAME);
+			if (hWnd) {
+				LoadString(hInstance, IDS_ALREADYSTARTED, szMsgString,
+						   TMP_STRINGLEN);
+				if (usServerFlagMask & SRVR_non_service) {
+					MessageBox(NULL, szMsgString, APP_NAME,
+							   MB_OK | MB_ICONHAND);
+				}
+				gds__log(szMsgString);
+			}
+			else {
+				LoadString(hInstance, IDS_MAPERROR, szMsgString,
+						   TMP_STRINGLEN);
+				if (usServerFlagMask & SRVR_non_service) {
+					MessageBox(NULL, szMsgString, APP_NAME,
+							   MB_OK | MB_ICONHAND);
+				}
+				gds__log(szMsgString);
+			}
+			return 0;
+		}
+#endif
+	}
+
+/* 
+ * Call ISC_set_config with the values we just read to
+ * make them take effect. 
+*/
+	ISC_set_config(NULL, WND_hdrtbl);
+	WND_ipc_map /= 1024;
+
+	MakeVersionString(szWindowText, WIN_TEXTLEN, usServerFlagMask);
+
+/* initialize main window */
+	wcl.hInstance = hInstance;
+	wcl.lpszClassName = szClassName;
+	wcl.lpfnWndProc = WindowFunc;
+	wcl.style = 0;
+	wcl.hIcon = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_IBSVR));
+	wcl.hCursor = LoadCursor(NULL, IDC_ARROW);
+	wcl.lpszMenuName = NULL;
+	wcl.cbClsExtra = 0;
+	wcl.cbWndExtra = 0;
+
+	wcl.hbrBackground = (HBRUSH) GetStockObject(WHITE_BRUSH);
+
+	if (!RegisterClass(&wcl)) {
+		char szMsgString[MSG_STRINGLEN];
+		LoadString(hInstance, IDS_REGERROR, szMsgString, MSG_STRINGLEN);
+		if (usServerFlagMask & SRVR_non_service) {
+			MessageBox(NULL, szMsgString, APP_NAME, MB_OK);
+		}
+		gds__log(szMsgString);
+		return 0;
+	}
+
+	hWnd = CreateWindowEx(0,
+						  szClassName,
+						  APP_NAME,
+						  WS_DLGFRAME | WS_SYSMENU | WS_MINIMIZEBOX,
+						  CW_USEDEFAULT,
+						  CW_USEDEFAULT,
+						  APP_HSIZE,
+						  APP_VSIZE, HWND_DESKTOP, NULL, hInstance, NULL);
+
+#ifdef  __BORLANDC__
+	SVC_shutdown_init((STDCALL_FPTR_VOID) WINDOW_shutdown, (UINT) hWnd);
+#else
+	SVC_shutdown_init(reinterpret_cast < void (__stdcall *) (UINT) >
+					  (WINDOW_shutdown), (UINT) hWnd);
+#endif
+
+// Do the proper ShowWindow depending on if the app is an icon on
+// the desktop, or in the task bar.
+
+	SendMessage(hWnd, WM_COMMAND, IDM_CANCEL, 0);
+	UpdateWindow(hWnd);
+
+	while (GetMessage(&msg, NULL, 0, 0)) {
+		if (hPSDlg)				// If property sheet dialog is open
+		{
+			// Check if the message is property sheet dialog specific
+			BOOL bPSMsg = PropSheet_IsDialogMessage(hPSDlg, &msg);
+
+			// Check if the property sheet dialog is still valid, if not destroy it
+			if (!PropSheet_GetCurrentPageHwnd(hPSDlg)) {
+				DestroyWindow(hPSDlg);
+				hPSDlg = NULL;
+			}
+			if (bPSMsg) {
+				continue;
+			}
+		}
+		TranslateMessage(&msg);
+		DispatchMessage(&msg);
+	}
+
+	return msg.wParam;
+}
+
+
+
+LRESULT CALLBACK WindowFunc(HWND hWnd,
+							UINT message, WPARAM wParam, LPARAM lParam)
+{
+/******************************************************************************
+ *
+ *  W i n d o w F u n c
+ *
+ ******************************************************************************
+ *
+ *  Input:  hWnd - Handle to the window
+ *          message - Message ID
+ *          wParam - WPARAM parameter for the message
+ *          lParam - LPARAM parameter for the message
+ *
+ *  Return: FALSE indicates that the message has not been handled
+ *          TRUE indicates the message has been handled 
+ *
+ *  Description: This is main window procedure for the Interbase server. This
+ *               traps all the interbase significant messages and processes
+ *               them.
+ *****************************************************************************/
+	static ULONG ulLastMask = 0L;
+	static BOOLEAN bInTaskBar = FALSE;
+	static BOOLEAN bStartup = FALSE;
+
+	ULONG ulInUseMask = 0L;
+	PDEV_BROADCAST_VOLUME pdbcv;
+	char szDrives[DRV_STRINGLEN];
+	USHORT num_att = 0;
+	USHORT num_dbs = 0;
+
+	switch (message) {
+	case WM_QUERYENDSESSION:
+		/* If we are running as a non-service server, then query the user
+		 * to determine if we should end the session.  Otherwise, assume that
+		 * the server is a service  and could be servicing remote clients and
+		 * therefore should not be shut down.  
+		 */
+		if (usServerFlags & SRVR_non_service) {
+			return CanEndServer(hWnd, TRUE);
+		}
+
+		return TRUE;
+
+	case WM_CLOSE:
+		/* If we are running as a non-service server, then query the user
+		 * to determine if we should end the session.  Otherwise, assume that
+		 * the server is a service  and could be servicing remote clients and
+		 * therefore should not be shut down.  The DestroyWindow() will destroy
+		 * the hidden window created by the server for IPC.  This should get
+		 * destroyed when the user session ends. 
+		 */
+		if (usServerFlags & SRVR_non_service) {
+			if (CanEndServer(hWnd, FALSE)) {
+				if (GetPriorityClass(GetCurrentProcess()) !=
+					NORMAL_PRIORITY_CLASS)
+						SetPriorityClass(GetCurrentProcess(),
+										 NORMAL_PRIORITY_CLASS);
+#ifdef DEV_BUILD
+				gds_alloc_report(ALLOC_verbose, "from server", 0);
+#endif
+				THREAD_ENTER;
+				JRD_shutdown_all();
+				DestroyWindow(hWnd);
+
+				/* There is no THREAD_EXIT to help ensure that no
+				 * threads will get in and try to access the data-
+				 * structures we released in JRD_shutdown_all()
+				 */
+			}
+		}
+		break;
+
+	case WM_COMMAND:
+		switch (wParam) {
+		case IDM_CANCEL:
+			if ((usServerFlags & SRVR_non_service)
+				&& (!(usServerFlags & SRVR_no_icon))) ShowWindow(hWnd,
+																 bInTaskBar ?
+																 SW_HIDE :
+																 SW_MINIMIZE);
+			else
+				ShowWindow(hWnd, SW_HIDE);
+			return TRUE;
+
+		case IDM_OPENPOPUP:
+			{
+				HMENU hPopup = NULL;
+				POINT curPos;
+				char szMsgString[MSG_STRINGLEN];
+
+				// The SetForegroundWindow() has to be called because our window
+				// does not become the Foreground one (inspite of clicking on
+				//the icon).  This is so because the icon is painted on the task
+				//bar and is not the same as a minimized window.
+				SetForegroundWindow(hWnd);
+
+				hPopup = CreatePopupMenu();
+				LoadString(hInstance, IDS_SHUTDOWN, szMsgString,
+						   MSG_STRINGLEN);
+				AppendMenu(hPopup, MF_STRING, IDM_SHUTDOWN, szMsgString);
+				LoadString(hInstance, IDS_PROPERTIES, szMsgString,
+						   MSG_STRINGLEN);
+				AppendMenu(hPopup, MF_STRING, IDM_PROPERTIES, szMsgString);
+				SetMenuDefaultItem(hPopup, IDM_PROPERTIES, FALSE);
+
+				GetCursorPos(&curPos);
+				TrackPopupMenu(hPopup, TPM_LEFTALIGN | TPM_RIGHTBUTTON,
+							   curPos.x, curPos.y, 0, hWnd, NULL);
+				DestroyMenu(hPopup);
+				return TRUE;
+			}
+
+		case IDM_SHUTDOWN:
+			SendMessage(hWnd, WM_CLOSE, 0, 0);
+			return TRUE;
+
+		case IDM_PROPERTIES:
+			if (!hPSDlg)
+				hPSDlg = DisplayProperties(hWnd, hInstance, usServerFlags);
+			else
+				SetForegroundWindow(hPSDlg);
+			return TRUE;
+
+		case IDM_GUARDED:
+			{
+				/* Since we are going to be guarded, we do not need to
+				 * show the server icon.  The guardian will show its own. */
+				NOTIFYICONDATA nid;
+				nid.cbSize = sizeof(NOTIFYICONDATA);
+				nid.hWnd = hWnd;
+				nid.uID = IDI_IBSVR;
+				nid.uFlags = 0;
+				Shell_NotifyIcon(NIM_DELETE, &nid);
+			}
+			SendMessage((HWND) lParam, WM_COMMAND,
+						(WPARAM) IDM_SET_SERVER_PID,
+						(LPARAM) GetCurrentProcessId());
+			return TRUE;
+		}
+		break;
+
+	case ON_NOTIFYICON:
+		if (bStartup) {
+			SendMessage(hWnd, WM_COMMAND, 0, 0);
+			return TRUE;
+		}
+		switch (lParam) {
+		case WM_LBUTTONDOWN:
+			break;
+
+		case WM_LBUTTONDBLCLK:
+			PostMessage(hWnd, WM_COMMAND, (WPARAM) IDM_PROPERTIES, 0);
+			break;
+
+		case WM_RBUTTONUP:
+			// The TrackPopupMenu() is inconsistant if called from here? 
+			// This is the only way I could make it work.
+			PostMessage(hWnd, WM_COMMAND, (WPARAM) IDM_OPENPOPUP, 0);
+			break;
+		}
+		break;
+
+	case WM_CREATE:
+		if ((usServerFlags & SRVR_non_service)
+			&& (!(usServerFlags & SRVR_no_icon))) {
+			HICON hIcon;
+			NOTIFYICONDATA nid;
+
+			hIcon = (HICON) LoadImage(hInstance,
+									  MAKEINTRESOURCE(IDI_IBSVR_SMALL),
+									  IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);
+
+			nid.cbSize = sizeof(NOTIFYICONDATA);
+			nid.hWnd = hWnd;
+			nid.uID = IDI_IBSVR;
+			nid.uFlags = NIF_TIP | NIF_ICON | NIF_MESSAGE;
+			nid.uCallbackMessage = ON_NOTIFYICON;
+			nid.hIcon = hIcon;
+
+			lstrcpy(nid.szTip, APP_NAME);
+			lstrcat(nid.szTip, "-");
+			lstrcat(nid.szTip, GDS_VERSION);
+
+			// This will be true in the explorer interface 
+			bInTaskBar = Shell_NotifyIcon(NIM_ADD, &nid);
+
+			if (hIcon)
+				DestroyIcon(hIcon);
+
+			// This will be true in the Program Manager interface.
+			if (!bInTaskBar) {
+				char szMsgString[MSG_STRINGLEN];
+
+				HMENU hSysMenu = GetSystemMenu(hWnd, FALSE);
+				DeleteMenu(hSysMenu, SC_RESTORE, MF_BYCOMMAND);
+				AppendMenu(hSysMenu, MF_SEPARATOR, 0, NULL);
+				LoadString(hInstance, IDS_SHUTDOWN, szMsgString,
+						   MSG_STRINGLEN);
+				AppendMenu(hSysMenu, MF_STRING, IDM_SHUTDOWN, szMsgString);
+				LoadString(hInstance, IDS_PROPERTIES, szMsgString,
+						   MSG_STRINGLEN);
+				AppendMenu(hSysMenu, MF_STRING, IDM_PROPERTIES, szMsgString);
+				DestroyMenu(hSysMenu);
+			}
+		}
+		break;
+
+	case WM_QUERYOPEN:
+		if (!bInTaskBar)
+			return FALSE;
+		return DefWindowProc(hWnd, message, wParam, lParam);
+	case WM_SYSCOMMAND:
+		if (!bInTaskBar)
+			switch (wParam) {
+			case SC_RESTORE:
+				return TRUE;
+
+			case IDM_SHUTDOWN:
+				PostMessage(hWnd, WM_CLOSE, 0, 0);
+				return TRUE;
+
+			case IDM_PROPERTIES:
+				if (!hPSDlg)
+					hPSDlg =
+						DisplayProperties(hWnd, hInstance, usServerFlags);
+				else
+					SetFocus(hPSDlg);
+				return TRUE;
+			}
+		return DefWindowProc(hWnd, message, wParam, lParam);
+
+	case WM_DESTROY:
+		if (bInTaskBar) {
+			NOTIFYICONDATA nid;
+
+			nid.cbSize = sizeof(NOTIFYICONDATA);
+			nid.hWnd = hWnd;
+			nid.uID = IDI_IBSVR;
+			nid.uFlags = 0;
+
+			Shell_NotifyIcon(NIM_DELETE, &nid);
+		}
+
+		PostQuitMessage(0);
+		break;
+
+	case IP_CONNECT_MESSAGE:
+#ifndef XNET
+		return IPS_start_thread(lParam);
+#else
+		return SRVR_xnet_start_thread(lParam);
+#endif
+
+	case WM_DEVICECHANGE:
+		pdbcv = (PDEV_BROADCAST_VOLUME) lParam;
+		JRD_num_attachments(reinterpret_cast < char *>(&ulInUseMask),
+							sizeof(ULONG), JRD_info_drivemask, &num_att,
+							&num_dbs);
+
+		switch (wParam) {
+
+		case DBT_DEVICEARRIVAL:
+			return TRUE;
+
+		case DBT_DEVICEQUERYREMOVE:
+			if (CHECK_VOLUME(pdbcv) && (ulLastMask != pdbcv->dbcv_unitmask))
+				if (CHECK_USAGE(pdbcv)) {
+					char tmp[TMP_STRINGLEN];
+					char *p = tmp;
+					int len;
+
+					len = LoadString(hInstance, IDS_PNP1, p, TMP_STRINGLEN);
+					p += len;
+					*p++ = '\r';
+					*p++ = '\n';
+
+					len =
+						LoadString(hInstance, IDS_PNP2, p,
+								   p - tmp + TMP_STRINGLEN);
+					p += len;
+					*p++ = '\r';
+					*p++ = '\n';
+					len =
+						LoadString(hInstance, IDS_PNP3, p,
+								   p - tmp + TMP_STRINGLEN);
+					ulLastMask = pdbcv->dbcv_unitmask;
+					GetDriveLetter(pdbcv->dbcv_unitmask, szDrives);
+					if (MessageBox(hWnd, tmp,
+								   szDrives,
+								   MB_OKCANCEL | MB_ICONHAND) == IDCANCEL)
+							return FALSE;
+
+					JRD_shutdown_all();
+					PostMessage(hWnd, WM_DESTROY, 0, 0);
+					return TRUE;
+				}
+			/* Fall through to MOVEPENDING if we receive a QUERYDEVICE for the
+			   * same device twice.  This will occur if we say yes to the removal
+			   * of a controller.  The OS will prompt for the removal of all 
+			   * devices connected to that controller.  If you respond no, the
+			   * OS will prompt you again, and then remove the device anyway...
+			 */
+		case DBT_DEVICEREMOVEPENDING:
+			if (CHECK_VOLUME(pdbcv) && CHECK_USAGE(pdbcv)) {
+				char tmp[TMP_STRINGLEN];
+				char *p = tmp;
+				int len;
+
+				len = LoadString(hInstance, IDS_PNP1, p, TMP_STRINGLEN);
+				p += len;
+				*p++ = '\r';
+				*p++ = '\n';
+				len = LoadString(hInstance,
+								 IDS_PNP2, p, TMP_STRINGLEN - (p - tmp));
+				GetDriveLetter(pdbcv->dbcv_unitmask, szDrives);
+				MessageBox(hWnd, tmp, szDrives, MB_OK | MB_ICONHAND);
+				JRD_shutdown_all();
+				PostMessage(hWnd, WM_DESTROY, 0, 0);
+			}
+			return TRUE;
+
+		case DBT_DEVICEQUERYREMOVEFAILED:
+			return TRUE;
+
+		case DBT_DEVICEREMOVECOMPLETE:
+			return TRUE;
+
+		case DBT_DEVICETYPESPECIFIC:
+			return TRUE;
+
+		case DBT_CONFIGCHANGED:
+			return TRUE;
+		}
+		return TRUE;
+
+	default:
+		return DefWindowProc(hWnd, message, wParam, lParam);
+	}
+	return FALSE;
+}
+
+
+void __stdcall WINDOW_shutdown(HANDLE hWnd)
+{
+/******************************************************************************
+ *
+ *  W I N D O W _ s h u t d o w n
+ *
+ ******************************************************************************
+ *
+ *  Input:  hWnd - Handle to the window
+ *
+ *  Return: none
+ *
+ *  Description: This is a callback function which is called at shutdown time.
+ *               This function post the WM_DESTROY message in appl. queue.
+ *****************************************************************************/
+	PostMessage(reinterpret_cast < HWND > (hWnd), WM_DESTROY, 0, 0);
+}
+
+
+static void GetDriveLetter(ULONG ulDriveMask, char pchBuf[DRV_STRINGLEN])
+{
+/******************************************************************************
+ *
+ *  G e t D r i v e L e t t e r
+ *
+ ******************************************************************************
+ *
+ *  Input:  ulDriveMask - Bit flag mask encoding the drive letters
+ *          pchBuf - Buffer to be filled
+ *
+ *  Return: Buffer containing the drive letters
+ *
+ *  Description: This function checks for the drives in Drive mask and returns
+ *               the buffer filled with the drive letters which are on.
+ *****************************************************************************/
+	char chDrive = 'A';
+	char *p = pchBuf;
+
+	while (ulDriveMask) {
+		if (ulDriveMask & 1)
+			*p++ = chDrive;
+		chDrive++;
+		ulDriveMask >>= 1;
+	}
+	*p = '\0';
+}
+
+
+static char *MakeVersionString(char *pchBuf, int nLen,
+							   USHORT usServerFlagMask)
+{
+/******************************************************************************
+ *
+ *  M a k e V e r s i o n S t r i n g
+ *
+ ******************************************************************************
+ *
+ *  Input:  pchBuf - Buffer to be filled into
+ *          nLen - Length of the buffer
+ *          usServerFlagMask - Bit flag mask encoding the server flags
+ *
+ *  Return: Buffer containing the version string
+ *
+ *  Description: This method is called to get the Version String. This string
+ *               is based on the flag set in usServerFlagMask.
+ *****************************************************************************/
+	char *p = pchBuf;
+	char *end = p + nLen;
+
+	if (usServerFlagMask & SRVR_inet) {
+		p += LoadString(hInstance, IDS_TCP, p, end - p);
+		if (p < end)
+			*p++ = '\r';
+		if (p < end)
+			*p++ = '\n';
+	}
+	if (usServerFlagMask & SRVR_pipe) {
+		p += LoadString(hInstance, IDS_NP, p, end - p);
+		if (p < end)
+			*p++ = '\r';
+		if (p < end)
+			*p++ = '\n';
+	}
+	if (usServerFlagMask & SRVR_ipc) {
+		p += LoadString(hInstance, IDS_IPC, p, end - p);
+	}
+	return pchBuf;
+}
+
+
+BOOL CanEndServer(HWND hWnd, BOOL bSysExit)
+{
+/******************************************************************************
+ *
+ *  C a n E n d S e r v e r
+ *
+ ******************************************************************************
+ *
+ *  Input:  hWnd     - Handle to main application window.
+ *	    bSysExit - Flag indicating if the system is going down.
+ *
+ *  Return: FALSE if user does not want to end the server session
+ *          TRUE if user confirmed on server session termination
+ *
+ *  Description: This function displays a message mox and queries the user if
+ *               the server can be shutdown.
+ *****************************************************************************/
+	char szMsgString[MSG_STRINGLEN];
+	USHORT usNumAtt;
+	USHORT usNumDbs;
+
+	JRD_num_attachments(NULL, 0, 0, &usNumAtt, &usNumDbs);
+
+	sprintf(szMsgString, "%lu ", usNumAtt);
+
+	if (!usNumAtt)				/* IF 0 CONNECTIONS, JUST SHUTDOWN */
+		return TRUE;
+
+	LoadString(hInstance, IDS_QUIT, szMsgString + strlen(szMsgString),
+			   MSG_STRINGLEN - strlen(szMsgString));
+	return (MessageBox(hWnd, szMsgString, APP_NAME,
+					   MB_ICONQUESTION | MB_OKCANCEL) == IDOK);
+}
+
+
+} // extern "C"
diff --git a/src/remote/window.h b/src/remote/window.h
new file mode 100644
index 0000000000..0846ba41c8
--- /dev/null
+++ b/src/remote/window.h
@@ -0,0 +1,46 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		window.h
+ *	DESCRIPTION:	Common descriptions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef WINDOW_H
+#define WINDOW_H
+
+#define APP_HSIZE			220
+#define APP_VSIZE			150
+#define APP_NAME			"InterBase Server"
+
+#define ON_NOTIFYICON		WM_USER + 2
+
+#define WIN_TEXTLEN			128
+#define MSG_STRINGLEN		64
+#define DRV_STRINGLEN		32
+#define TMP_STRINGLEN		512
+
+
+#define CHECK_VOLUME(a)		((a)->dbcv_devicetype == DBT_DEVTYP_VOLUME)
+#define CHECK_USAGE(a)		((a)->dbcv_unitmask & ulInUseMask)
+
+static  char *szClassName       = "IB_Server";
+
+#define	IP_CONNECT_MESSAGE	WM_USER + 1
+
+#endif // WINDOW_H
diff --git a/src/remote/window.rc b/src/remote/window.rc
new file mode 100644
index 0000000000..3d8c71d748
--- /dev/null
+++ b/src/remote/window.rc
@@ -0,0 +1,51 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/****************************************************************************
+
+
+window.rc
+
+produced by Borland Resource Workshop
+
+
+*****************************************************************************/
+
+#include <windows.h>
+#include "window.rh"
+#include "../jrd/version_95.rc"
+#include "property.rc"
+
+STRINGTABLE 
+{
+ IDS_PNP1, "A device which is in use by InterBase is going to be removed.  The InterBase server will have to be shotdown before the device can be removed."
+ IDS_PNP2, "Any uncommitted data will be lost.  Choose OK when you are ready to shutdown the server, or Cancel to abort the removal of the device."
+ IDS_PNP3, "Note: The removal of this device may not be cancelable in which case another warning will follow."
+ IDS_QUIT, "connections active; Are you sure you want to exit?"
+ IDS_REGERROR, "Error registering main window class"
+ IDS_ALREADYSTARTED "The InterBase Server failed to startup\r\nbecause another instance of the server\r\nis already running." 
+ IDS_MAPERROR, "The InterBase server failed to startup\r\nbecause a needed resource is in use.\r\nInsure that all previously connected\r\nInterBase client applications have\r\nterminated and try again."
+ IDS_LIC_BADFILE, "The InterBase license file is missing or corrupt.\r\nCheck that InterBase is installed correctly."
+ IDS_LIC_NOREMOTE, "InterBase remote server support is not licensed."
+ IDS_LIC_NOLOCAL, "InterBase local server support is not licensed."
+ IDS_LIC_NOTHING, "InterBase database support is not licensed."
+ IDS_PROPERTIES, "P&roperties"
+ IDS_SHUTDOWN, "&Shutdown"
+}
+
+IDI_IBSVR_SMALL ICON DISCARDABLE "server.ico"
diff --git a/src/remote/window.rh b/src/remote/window.rh
new file mode 100644
index 0000000000..73b3096efe
--- /dev/null
+++ b/src/remote/window.rh
@@ -0,0 +1,55 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/****************************************************************************
+
+
+window.rh
+
+produced by Borland Resource Workshop
+
+
+*****************************************************************************/
+
+#define IDI_IBSVR_SMALL	1009
+
+/* Thi should be in sync with iscguard.rh */
+#define IDM_SHUTDOWN	5
+#define IDM_CANCEL	6
+#define IDM_OPEN	8
+#define IDM_OPENPOPUP	9
+#define IDM_PROPERTIES	10
+#define IDM_STARTUPCFG	11
+#define IDM_GUARDED	14
+#define IDM_SET_SERVER_PID	15
+
+/* Defines for String Table */
+#define IDS_PNP1		200
+#define IDS_PNP2		201
+#define IDS_PNP3		202
+#define IDS_QUIT		203
+#define IDS_MAPERROR		204
+#define IDS_REGERROR		205
+#define IDS_LIC_BADFILE		206
+#define IDS_LIC_NOREMOTE	207
+#define IDS_LIC_NOLOCAL		208
+#define IDS_LIC_NOTHING		209
+#define IDS_PROPERTIES		210
+#define IDS_SHUTDOWN		212
+#define IDS_ALREADYSTARTED	213
diff --git a/src/remote/window_proto.h b/src/remote/window_proto.h
new file mode 100644
index 0000000000..beb04c2427
--- /dev/null
+++ b/src/remote/window_proto.h
@@ -0,0 +1,14 @@
+#ifndef REMOTE_WINDOW_PROTO_H
+#define REMOTE_WINDOW_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern int WINDOW_main (HINSTANCE, int, USHORT);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif	/* REMOTE_WINDOW_PROTO_H */
diff --git a/src/remote/winerr.h b/src/remote/winerr.h
new file mode 100644
index 0000000000..29d94922af
--- /dev/null
+++ b/src/remote/winerr.h
@@ -0,0 +1,117 @@
+/*
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ *
+ *	@(#)errno.h	7.1 (Berkeley) 6/4/86
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+/*
+ * Error codes
+ */
+
+ERRNOCODE(EPERM,	1,	"Not owner")
+ERRNOCODE(ENOENT,	2,	"No such file or directory")
+ERRNOCODE(ESRCH,	3,	"No such process")
+ERRNOCODE(EINTR,	4,	"Interrupted system call")
+ERRNOCODE(EIO,	5,	"I/O error")
+ERRNOCODE(ENXIO,	6,	"No such device or address")
+ERRNOCODE(E2BIG,	7,	"Arg list too long")
+ERRNOCODE(ENOEXEC,	8,	"Exec format error")
+ERRNOCODE(EBADF,	9,	"Bad file number")
+ERRNOCODE(ECHILD,	10,	"No children")
+ERRNOCODE(EAGAIN,	11,	"No more processes")
+ERRNOCODE(ENOMEM,	12,	"Not enough core")
+ERRNOCODE(EACCES,	13,	"Permission denied")
+ERRNOCODE(EFAULT,	14,	"Bad address")
+ERRNOCODE(ENOTBLK,	15,	"Block device required")
+ERRNOCODE(EBUSY,	16,	"Mount device busy")
+ERRNOCODE(EEXIST,	17,	"File exists")
+ERRNOCODE(EXDEV,	18,	"Cross-device link")
+ERRNOCODE(ENODEV,	19,	"No such device")
+ERRNOCODE(ENOTDIR,	20,	"Not a directory")
+ERRNOCODE(EISDIR,	21,	"Is a directory")
+ERRNOCODE(EINVAL,	22,	"Invalid argument")
+ERRNOCODE(ENFILE,	23,	"File table overflow")
+ERRNOCODE(EMFILE,	24,	"Too many open files")
+ERRNOCODE(ENOTTY,	25,	"Not a typewriter")
+ERRNOCODE(ETXTBSY,	26,	"Text file busy")
+ERRNOCODE(EFBIG,	27,	"File too large")
+ERRNOCODE(ENOSPC,	28,	"No space left on device")
+ERRNOCODE(ESPIPE,	29,	"Illegal seek")
+ERRNOCODE(EROFS,	30,	"Read-only file system")
+ERRNOCODE(EMLINK,	31,	"Too many links")
+ERRNOCODE(EPIPE,	32,	"Broken pipe")
+
+/* math software */
+ERRNOCODE(EDOM,	33,	"Argument too large")
+ERRNOCODE(ERANGE,	34,	"Result too large")
+
+/* non-blocking and interrupt i/o */
+ERRNOCODE(EWOULDBLOCK,	35,	"Operation would block")
+ERRNOCODE(EINPROGRESS,	36,	"Operation now in progress")
+ERRNOCODE(EALREADY,	37,	"Operation already in progress")
+
+/* ipc/network software */
+
+	/* argument errors */
+ERRNOCODE(ENOTSOCK,	38,	"Socket operation on non-socket")
+ERRNOCODE(EDESTADDRREQ,	39,	"Destination address required")
+ERRNOCODE(EMSGSIZE,	40,	"Message too long")
+ERRNOCODE(EPROTOTYPE,	41,	"Protocol wrong type for socket")
+ERRNOCODE(ENOPROTOOPT,	42,	"Protocol not available")
+ERRNOCODE(EPROTONOSUPPORT,	43,	"Protocol not supported")
+ERRNOCODE(ESOCKTNOSUPPORT,	44,	"Socket type not supported")
+ERRNOCODE(EOPNOTSUPP,	45,	"Operation not supported on socket")
+ERRNOCODE(EPFNOSUPPORT,	46,	"Protocol family not supported")
+ERRNOCODE(EAFNOSUPPORT,	47,	"Address family not supported by protocol family")
+ERRNOCODE(EADDRINUSE,	48,	"Address already in use")
+ERRNOCODE(EADDRNOTAVAIL,	49,	"Can't assign requested address")
+
+	/* operational errors */
+ERRNOCODE(ENETDOWN,	50,	"Network is down")
+ERRNOCODE(ENETUNREACH,	51,	"Network is unreachable")
+ERRNOCODE(ENETRESET,	52,	"Network dropped connection on reset")
+ERRNOCODE(ECONNABORTED,	53,	"Software caused connection abort")
+ERRNOCODE(ECONNRESET,	54,	"Connection reset by peer")
+ERRNOCODE(ENOBUFS,	55,	"No buffer space available")
+ERRNOCODE(EISCONN,	56,	"Socket is already connected")
+ERRNOCODE(ENOTCONN,	57,	"Socket is not connected")
+ERRNOCODE(ESHUTDOWN,	58,	"Can't send after socket shutdown")
+ERRNOCODE(ETOOMANYREFS,	59,	"Too many references: can't splice")
+ERRNOCODE(ETIMEDOUT,	60,	"Connection timed out")
+ERRNOCODE(ECONNREFUSED,	61,	"Connection refused")
+
+	/* */
+ERRNOCODE(ELOOP,	62,	"Too many levels of symbolic links")
+ERRNOCODE(ENAMETOOULONG,	63,	"File name too long")
+
+/* should be rearranged */
+ERRNOCODE(EHOSTDOWN,	64,	"Host is down")
+ERRNOCODE(EHOSTUNREACH,	65,	"No route to host")
+ERRNOCODE(ENOTEMPTY,	66,	"Directory not empty")
+
+/* quotas & mush */
+ERRNOCODE(EPROCLIM,	67,	"Too many processes")
+ERRNOCODE(EUSERS,	68,	"Too many users")
+ERRNOCODE(EDQUOT,	69,	"Disc quota exceeded")
+/* Network File System */
+ERRNOCODE(ESTALE,	70,	"Stale NFS file handle")
+ERRNOCODE(EREMOTE,	71,	"Too many levels of remote in path")
+
+#define WIN_NERR	72
diff --git a/src/remote/winmain.cpp b/src/remote/winmain.cpp
new file mode 100644
index 0000000000..01fdc49d2a
--- /dev/null
+++ b/src/remote/winmain.cpp
@@ -0,0 +1,289 @@
+/*
+ *	PROGRAM:	JRD Remote Server
+ *	MODULE:		winmain.c
+ *	DESCRIPTION:	Windows Main server routine for router testing
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <windows.h>
+#include <string.h>
+#define MSG_DEFINED
+#include "../remote/remote.h"
+#include "../remote/serve_proto.h"
+/*
+ *      We need to seperate modules that use windows.h from those that
+ *      use remote.h since both header files define conflicting MSG types.
+ *	The MSG_DEFINED flag is used to not define the MSG type in remote.h
+ */
+#include "../jrd/common.h"
+#include <winsock.h>
+
+/* Windows control ids */
+#define IDM_START       1
+#define IDM_STOP        2
+#define IDM_TEXT        3
+#define IDM_EXIT        4
+
+/* Default Window Size */
+#define APP_HSIZE       200
+#define APP_VSIZE       120
+
+#define zap_packet(a) memset ((a), 0, sizeof (struct packet));
+
+/* Function Prototypes */
+long FAR PASCAL _export WndProc(HWND, UINT, UINT, LONG);
+static int InitApplication(int, HINSTANCE, HINSTANCE);
+static BOOL BlockingHook(void);
+
+/* Global Variables */
+static char szAppName[] = "IB_Server";
+static int isStarted = 0;
+static HWND hStcText;
+
+void SRVR_WinMain(
+				  PORT main_port,
+				  USHORT flags,
+				  HINSTANCE hInstance, HINSTANCE hPrevInstance, int nCmdShow)
+{
+/**************************************
+ *
+ *      S R V R _ W i n M a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Main entrypoint of server.
+ *
+ **************************************/
+	PACKET send, receive;
+	PORT port;
+
+	MSG msg;
+	HWND hWnd;
+	int txt_pos = 0;
+	int step = 5;
+
+	hWnd = InitApplication(nCmdShow, hInstance, hPrevInstance);
+
+	if (!hWnd) {
+		MessageBox(NULL,
+				   "Unable to initialize main window",
+				   szAppName, MB_OK | MB_ICONHAND | MB_APPLMODAL);
+		return;
+	}
+
+	zap_packet(&receive);
+	zap_packet(&send);
+	THREAD_ENTER;
+	set_server(main_port, flags);
+
+	if (WSASetBlockingHook((FARPROC) BlockingHook)) {
+		isStarted = 1;
+		SetWindowText(hStcText, "Running");
+	}
+	else {
+		MessageBox(hWnd,
+				   "Could NOT setup networking.\r\nTry rebooting to cleanup.",
+				   szAppName, MB_OK | MB_ICONHAND | MB_APPLMODAL);
+		return;
+	}
+	while (TRUE) {
+		if (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)) {
+			TranslateMessage(&msg);
+			DispatchMessage(&msg);
+			if (msg.message == WM_QUIT)
+				break;
+		}
+		else if (isStarted) {
+			MoveWindow(hStcText, 5, txt_pos, 65, 25, TRUE);
+			txt_pos += step;
+			if (txt_pos < 0 || txt_pos > 50)
+				step = -step;
+
+			/* Note: The following is a clone of the same function
+			 * done in server.c:SRVR_main()
+			 */
+
+			if (!(port = main_port->receive(&receive)))
+				break;
+			if (!process_packet(port, &send, &receive, 0))
+				break;
+		}
+	}
+
+	THREAD_EXIT;
+}
+
+
+static int InitApplication(
+						   int nCmdShow,
+						   HINSTANCE hInstance, HINSTANCE hPrevInstance)
+{
+/**************************************
+ *
+ *	I n i t A p p l i c a t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Do all the setup stuff for a Windows app
+ *	and return the handle to the main window.
+ *
+ **************************************/
+	WNDCLASS wndclass;
+	HWND hWnd;
+
+	if (!hPrevInstance) {
+		wndclass.style = CS_HREDRAW | CS_VREDRAW;
+		wndclass.lpfnWndProc = WndProc;
+		wndclass.cbClsExtra = 0;
+		wndclass.cbWndExtra = 0;
+		wndclass.hInstance = hInstance;
+		wndclass.hIcon = LoadIcon(NULL, IDI_APPLICATION);
+		wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
+		wndclass.hbrBackground = GetStockObject(WHITE_BRUSH);
+		wndclass.lpszMenuName = szAppName;
+		wndclass.lpszClassName = szAppName;
+
+		if (!RegisterClass(&wndclass))
+			return FALSE;
+	}
+
+	if (!(hWnd = CreateWindow(szAppName, "InterBase Server",
+							  WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU |
+							  WS_MINIMIZEBOX, CW_USEDEFAULT, CW_USEDEFAULT,
+							  APP_HSIZE, APP_VSIZE, NULL, NULL, hInstance,
+							  NULL))) return FALSE;
+
+
+	ShowWindow(hWnd, nCmdShow);
+	UpdateWindow(hWnd);
+
+	return hWnd;
+}
+
+
+static BOOL BlockingHook(void)
+{
+/**************************************
+ *
+ *	B l o c k i n g H o o k
+ *
+ **************************************
+ *
+ * Functional description
+ *	The function to call while cought in a
+ *	blocking network call.  This allows us
+ *	to yield while waiting for a network call.
+ *
+ **************************************/
+	MSG msg;
+	BOOL ret;
+
+	ret = (BOOL) PeekMessage(&msg, NULL, 0, 0, PM_REMOVE);
+	if (ret) {
+		TranslateMessage(&msg);
+		DispatchMessage(&msg);
+	}
+	return ret;
+}
+
+
+long FAR PASCAL _export WndProc(
+								HWND hWnd,
+								UINT message, UINT wParam, LONG lParam)
+{
+/**************************************
+ *
+ *	W n d P r o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	The main event handler.
+ *
+ **************************************/
+	static HWND hBtnStop;
+	static HWND hBtnStart;
+
+	switch (message) {
+	case WM_CREATE:
+		hBtnStart = CreateWindow("button",
+								 "&Start",
+								 WS_CHILD | WS_VISIBLE | WS_BORDER,
+								 APP_HSIZE - 75,
+								 10,
+								 65,
+								 25,
+								 hWnd,
+								 (HMENU) IDM_START,
+								 ((LPCREATESTRUCT) lParam)->hInstance, NULL);
+		hBtnStop = CreateWindow("button",
+								"S&top",
+								WS_CHILD | WS_VISIBLE | WS_BORDER,
+								APP_HSIZE - 75,
+								45,
+								65,
+								25,
+								hWnd,
+								(HMENU) IDM_STOP,
+								((LPCREATESTRUCT) lParam)->hInstance, NULL);
+		hStcText = CreateWindow("static",
+								"Starting",
+								WS_CHILD | WS_VISIBLE,
+								5,
+								5,
+								75,
+								25,
+								hWnd,
+								(HMENU) IDM_TEXT,
+								((LPCREATESTRUCT) lParam)->hInstance, NULL);
+		break;
+	case WM_COMMAND:
+		switch (wParam) {
+		case IDM_EXIT:
+			SendMessage(hWnd, WM_CLOSE, 0, 0L);
+			return 0;
+		case IDM_START:
+			SetWindowText(hStcText, "Running");
+			isStarted = 1;
+			break;
+		case IDM_STOP:
+			isStarted = 0;
+			SetWindowText(hStcText, "Stopped");
+			break;
+		}
+		break;
+
+	case WM_DESTROY:
+		PostQuitMessage(0);
+		return 0;
+	case WM_CLOSE:
+		if (isStarted) {
+			MessageBox(hWnd,
+					   "Please STOP the service\r\nbefore quitting.",
+					   szAppName, MB_OK | MB_ICONHAND | MB_APPLMODAL);
+			return 0;
+		}
+		if (WSAIsBlocking())
+			WSACancelBlockingCall();
+		return DefWindowProc(hWnd, message, wParam, lParam);
+	}
+	return DefWindowProc(hWnd, message, wParam, lParam);
+}
diff --git a/src/remote/winvx.cpp b/src/remote/winvx.cpp
new file mode 100644
index 0000000000..33c2ffc867
--- /dev/null
+++ b/src/remote/winvx.cpp
@@ -0,0 +1,847 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		winvx.c
+ *	DESCRIPTION:	Interface to Wollongong TCP
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include stdio
+#include iodef
+#include descrip
+
+#ifdef __STDDEF_LOADED			/* Wollongong expects VAX C 3.0 style */
+#define __STDDEF				/* include symbols to be defined */
+#endif
+
+#include "../jrd/common.h"
+#include "../remote/tcptypes.h"
+#include "twg$tcp:[netdist.include]errno.h"
+#include "twg$tcp:[netdist.include.sys]types.h"
+#include "twg$tcp:[netdist.include.vms]inetiodef.h"
+#include "twg$tcp:[netdist.include.sys]socket.h"
+#include "twg$tcp:[netdist.include]netdb.h"
+#include "../remote/in.h"
+
+#define ERRNO(status)	(0x7fff & status) >> 3
+#define INET0		"_INET0:"
+#define HOST_FILE	"twg$tcp:[netdist.etc]hosts."
+#define HOSTS_EQUIV	"twg$tcp:[netdist.etc]hosts.equiv"
+#define SERVICE_FILE	"twg$tcp:[netdist.etc]services."
+#define HOST_NAME	"ARPANET_HOST_NAME"
+#define EVENT_FLAG	15
+
+#ifndef MAXHOSTLEN
+#define MAXHOSTLEN	64
+#endif
+
+#ifndef	__ALPHA
+extern volatile int noshare errno;
+#endif
+
+extern struct hostent *ISC_tcp_gethostbyname(struct in_addr *, int, int);
+extern struct servent *ISC_tcp_getservbyname(SCHAR *, SCHAR *);
+
+static int assign(SCHAR *);
+static void bcopy(SCHAR *, SCHAR *, int);
+static int error_check(int, SSHORT *);
+static struct hostent *get_host(IB_FILE *);
+static int get_line(IB_FILE *, SCHAR *);
+
+static struct servent local_service;
+static SCHAR local_login[64], service_name[16], proto_name[16],
+	host_name[MAXHOSTLEN];
+static struct hostent local_host;
+static struct in_addr local_address;
+static struct in_addr *local_address_list[] = { &local_address };
+static (*isc_wait_ptr) ();
+static (*completion_ptr) ();
+
+
+int ISC_tcp_accept( int s, struct sockaddr *addr, int addrlen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ a c c e p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept a connection on a socket.
+ *
+ **************************************/
+	int status, new;
+	SSHORT iosb[4];
+	struct {
+		SSHORT hack_length;
+		struct sockaddr_in hack_address;
+	} hack;
+
+/* Wait for incoming connection. */
+
+	status = sys$qio(EVENT_FLAG,
+					 s,
+					 IO$_ACCEPT_WAIT,
+					 iosb, completion_ptr, iosb, 0, 0, 0, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+/* Establish new connection */
+
+	if (!(new = assign(INET0)))
+		return -1;
+
+/* Attach new connection to new channel */
+
+	status = sys$qio(EVENT_FLAG, new, IO$_ACCEPT, iosb, completion_ptr, iosb,
+					 &hack.hack_length,
+					 sizeof(hack.hack_length) + sizeof(hack.hack_address),
+					 s, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return new;
+}
+
+
+int ISC_tcp_bind( int s, struct sockaddr *name, int namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ b i n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Bind a name to a socket.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qio(EVENT_FLAG, s, IO$_BIND, iosb, completion_ptr, iosb,
+					 name, namelen, 0, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return 0;
+}
+
+
+int ISC_tcp_connect( int s, struct sockaddr *name, int namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initiate a connection on a socket.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qio(EVENT_FLAG, s, IO$_CONNECT, iosb, completion_ptr, iosb,
+					 name, namelen, 0, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return 0;
+}
+
+
+int ISC_tcp_getaddr( SCHAR * name, struct sockaddr_in *addr)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t a d d r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Load sockaddr based on hostname name.
+ *
+ **************************************/
+	struct hostent *host;
+
+	if (!(host = ISC_tcp_gethostbyname(name)))
+		return -1;
+
+	addr->sin_family = host->h_addrtype;
+	bcopy(host->h_addr, &(addr->sin_addr), sizeof(addr->sin_addr));
+	return 0;
+}
+
+
+int ISC_tcp_geterrno(void)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t e r r n o
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	return errno;
+}
+
+
+struct hostent *ISC_tcp_gethostbyaddr(struct in_addr *address,
+									  int length, int family)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t h o s t b y a d d r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	IB_FILE *file;
+	struct hostent *host;
+	struct in_addr *test;
+
+	if (!(file = ib_fopen(HOST_FILE, "r")))
+		return NULL;
+
+	while (host = get_host(file)) {
+		test = host->h_addr;
+		if (host->h_addrtype == family &&
+			test->S_un.S_un_b.s_b1 == address->S_un.S_un_b.s_b1 &&
+			test->S_un.S_un_b.s_b2 == address->S_un.S_un_b.s_b2 &&
+			test->S_un.S_un_b.s_b3 == address->S_un.S_un_b.s_b3 &&
+			test->S_un.S_un_b.s_b4 == address->S_un.S_un_b.s_b4)
+			break;
+	}
+
+	ib_fclose(file);
+
+	return host;
+}
+
+
+struct hostent *ISC_tcp_gethostbyname(SCHAR * name)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t h o s t b y n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	IB_FILE *file;
+	struct hostent *host;
+
+	if (!(file = ib_fopen(HOST_FILE, "r")))
+		return NULL;
+
+	while (host = get_host(file))
+		if (!strcmp(name, host->h_name))
+			break;
+
+	ib_fclose(file);
+
+	return host;
+}
+
+
+int ISC_tcp_gethostname( SCHAR * name, int namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t h o s t n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get host name.
+ *
+ **************************************/
+	struct dsc$descriptor_s in, out;
+	int status;
+	SSHORT length;
+
+	in.dsc$b_class = DSC$K_CLASS_S;
+	in.dsc$b_dtype = DSC$K_DTYPE_T;
+	in.dsc$w_length = sizeof(HOST_NAME) - 1;
+	in.dsc$a_pointer = HOST_NAME;
+
+	out.dsc$b_class = DSC$K_CLASS_S;
+	out.dsc$b_dtype = DSC$K_DTYPE_T;
+	out.dsc$w_length = namelen;
+	out.dsc$a_pointer = name;
+
+	status = lib$sys_trnlog(&in, &length, &out, NULL, NULL, NULL);
+	if (status & 1) {
+		if (length < namelen)
+			name[length] = 0;
+		return 0;
+	}
+
+	return -1;
+}
+
+
+void ISC_tcp_gethosts( SCHAR * filename)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t h o s t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get hosts.equiv filename.
+ *
+ **************************************/
+
+	strcpy(filename, HOSTS_EQUIV);
+}
+
+
+int ISC_tcp_getnamebyaddr(
+						  struct sockaddr_in *addr, int addrlen, SCHAR * name)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t n a m e b y a d d r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get hostname that matches address.
+ *
+ **************************************/
+	struct hostent *host;
+
+	if (!
+		(host =
+		 ISC_tcp_gethostbyaddr(&(addr->sin_addr), sizeof(addr->sin_addr),
+							   addr->sin_family))) return -1;
+
+	strcpy(name, host->h_name);
+	return 0;
+}
+
+
+int ISC_tcp_getservport( SCHAR * name, SCHAR * proto, SSHORT * portnum)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t s e r v p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up a protocol by name.
+ *
+ **************************************/
+	struct servent *service;
+
+	if (!(service = ISC_tcp_getservbyname(name, proto)))
+		return -1;
+
+	*portnum = service->s_port;
+	return 0;
+}
+
+
+int ISC_tcp_getpeername( int s, struct sockaddr *name, int *namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t p e e r n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get name (i.e. port) of peer.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qio(EVENT_FLAG,	/* Event flag */
+					 s,			/* Channel */
+					 IO$_GETPEERNAME,	/* Function */
+					 iosb,		/* I/O status block */
+					 completion_ptr,	/* AST address */
+					 iosb,		/* AST parameter */
+					 name,		/* p1 */
+					 namelen,	/* p2 */
+					 0, 0, 0, 0);	/* p3, p4, p5, p6 */
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return 0;
+}
+
+
+struct servent *ISC_tcp_getservbyname(SCHAR * name, SCHAR * proto)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t s e r v b y n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Look up a protocol by name.
+ *
+ **************************************/
+	IB_FILE *file;
+	int port;
+	SCHAR *p, comment, buffer[80], local_serv_name[sizeof(buffer)], *end, c;
+
+	if (!(file = ib_fopen(SERVICE_FILE, "r")))
+		return NULL;
+
+/* Make sure that the service name to match is in lower case */
+
+	for (p = local_serv_name, end = p + sizeof(local_serv_name) - 1;
+		 (c = *name++) && p < end;)
+		*p++ = (c >= 'A' && c <= 'Z') ? c - 'A' + 'a' : c;
+	*p = 0;
+
+	while (get_line(file, buffer)) {
+		if (sscanf(buffer, "%s%d/%s", service_name, &port, proto_name) < 3 ||
+			strcmp(service_name, local_serv_name) ||
+			(proto && strcmp(proto_name, proto)))
+			continue;
+
+		local_service.s_name = service_name;
+		local_service.s_port = (port >> 8) + ((port & 0xff) << 8);
+		local_service.s_proto = proto_name;
+		ib_fclose(file);
+		return &local_service;
+	}
+
+	ib_fclose(file);
+	return NULL;
+}
+
+
+int ISC_tcp_getsockname( int s, struct sockaddr *name, int *namelen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t s o c k n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get name (i.e. port) of socket.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qio(EVENT_FLAG,	/* Event flag */
+					 s,			/* Channel */
+					 IO$_GETSOCKNAME,	/* Function */
+					 iosb,		/* I/O status block */
+					 completion_ptr,	/* AST address */
+					 iosb,		/* AST parameter */
+					 name,		/* p1 */
+					 namelen,	/* p2 */
+					 0, 0, 0, 0);	/* p3, p4, p5, p6 */
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return 0;
+}
+
+
+int ISC_tcp_gettype(void)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ g e t t y p e
+ *
+ **************************************
+ *
+ *	Return a type value so the caller
+ *	knows what this product is
+ *
+ **************************************/
+
+	return TCP_TYPE_WOLLONGONG;
+}
+
+
+int ISC_tcp_listen( int s, int backlog)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ l i s t e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Listen for connections on a socket.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qio(EVENT_FLAG, s, IO$_LISTEN, iosb, completion_ptr, iosb,
+					 backlog, 0, 0, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return 0;
+}
+
+
+int ISC_tcp_recv( int s, SCHAR * buf, int len, int flags)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ r e c v
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message  from a socket.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qio(EVENT_FLAG, s, IO$_READVBLK, iosb, completion_ptr, iosb,
+					 buf, len, 0, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return iosb[1];
+}
+
+
+int ISC_tcp_select(
+				   int width,
+				   int *read,
+				   int *write, int *except, struct timeval *timeout)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s e l e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Synchronous I/O multiplexing.
+ *
+ **************************************/
+
+	return 0;
+}
+
+
+int ISC_tcp_send( int s, SCHAR * buf, int len, int flags)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s e n d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a message from a socket.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qio(EVENT_FLAG, s, IO$_WRITEVBLK, iosb, completion_ptr, iosb,	/* ast argument */
+					 buf,		/* p1 */
+					 len,		/* p2 */
+					 flags,		/* p3 */
+					 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return iosb[1];
+}
+
+
+int ISC_tcp_setsockopt(
+					   int s,
+					   int level, int optname, SCHAR * optval, int optlen)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s e t s o c k o p t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set options on sockets.
+ *
+ **************************************/
+	int status;
+	SSHORT iosb[4];
+
+	status = sys$qiow(EVENT_FLAG, s, IO$_SETSOCKOPT, iosb, completion_ptr, iosb,	/* ast argument */
+					  level,	/* p1 */
+					  optname,	/* p2 */
+					  optval,	/* p3 */
+					  optlen,	/* p4 */
+					  0, 0);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return 0;
+}
+
+
+void ISC_tcp_setup( int (*waitaddr) (), int (*astaddr) ())
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s e t u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set options on sockets.
+ *
+ **************************************/
+
+	isc_wait_ptr = waitaddr;
+	completion_ptr = astaddr;
+}
+
+
+int ISC_tcp_socket( int af, int type, int protocol)
+{
+/**************************************
+ *
+ *	I S C _ t c p _ s o c k e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Create an endpoint for communication.
+ *
+ **************************************/
+	int s, status;
+	SSHORT iosb[4];
+
+	if (!(s = assign(INET0)))
+		return -1;
+
+	status = sys$qio(EVENT_FLAG, s, IO$_SOCKET, iosb, completion_ptr, iosb,
+					 af, type, 0, 0, 0, 0);
+
+	if (status & 1)
+		(*isc_wait_ptr) (iosb, EVENT_FLAG);
+
+	if (error_check(status, iosb))
+		return -1;
+
+	return s;
+}
+
+
+static int assign( SCHAR * string)
+{
+/**************************************
+ *
+ *	a s s i g n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Assign a channel for communications.
+ *
+ **************************************/
+	SSHORT channel;
+	int status;
+	struct dsc$descriptor_s desc;
+
+	desc.dsc$b_dtype = DSC$K_DTYPE_T;
+	desc.dsc$b_class = DSC$K_CLASS_S;
+	desc.dsc$w_length = strlen(string);
+	desc.dsc$a_pointer = string;
+
+	status = sys$assign(&desc, &channel, NULL, NULL);
+
+	return (status & 1) ? channel : 0;
+}
+
+
+static void bcopy( SCHAR * from, SCHAR * to, int length)
+{
+/**************************************
+ *
+ *	b c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copy a number of bytes;
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while (--length);
+}
+
+
+static int error_check( int status, SSHORT * iosb)
+{
+/**************************************
+ *
+ *	e r r o r _ c h e c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check both a return status and IOSB (if present) for errors.  If
+ *	an error occured, set up "errno" and return FAILURE.
+ *
+ **************************************/
+
+	if (!(status & 1)) {
+		errno = 5;
+		return FAILURE;
+	}
+
+	if (!iosb || (iosb[0] & 1))
+		return SUCCESS;
+
+	errno = ERRNO(iosb[0]);
+
+	return FAILURE;
+}
+
+
+static struct hostent *get_host(IB_FILE * file)
+{
+/**************************************
+ *
+ *	g e t _ h o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the next host entry.
+ *
+ **************************************/
+	SCHAR buffer[80];
+	int n, h1, h2, h3, h4;
+
+	while (get_line(file, buffer)) {
+		n = sscanf(buffer, "%d.%d.%d.%d%s", &h1, &h2, &h3, &h4, host_name);
+		if (n < 5)
+			continue;
+		local_host.h_name = host_name;
+		local_host.h_addrtype = AF_INET;
+		local_host.h_length = sizeof(local_address);
+		local_host.h_addr_list = local_address_list;
+		local_address.S_un.S_un_b.s_b1 = h1;
+		local_address.S_un.S_un_b.s_b2 = h2;
+		local_address.S_un.S_un_b.s_b3 = h3;
+		local_address.S_un.S_un_b.s_b4 = h4;
+		return &local_host;
+	}
+
+	return NULL;
+}
+
+
+static int get_line( IB_FILE * file, SCHAR * buffer)
+{
+/**************************************
+ *
+ *	g e t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a line from a TCP control file, stopping at comment.  Return
+ *	at end of file.
+ *
+ **************************************/
+	SSHORT c, comment;
+
+	comment = FALSE;
+
+	for (;;) {
+		c = ib_getc(file);
+		if (c == '\n')
+			break;
+		if (c == EOF)
+			return FALSE;
+		if (c == '#')
+			comment = TRUE;
+		else if (!comment)
+			*buffer++ = c;
+	}
+
+	*buffer = 0;
+
+	return TRUE;
+}
diff --git a/src/remote/wnet.cpp b/src/remote/wnet.cpp
new file mode 100644
index 0000000000..d6a161f511
--- /dev/null
+++ b/src/remote/wnet.cpp
@@ -0,0 +1,1845 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		wnet.c
+ *	DESCRIPTION:	Windows Net Communications module.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef DEBUG
+/* define WNET_trace to 0 (zero) for no packet debugging */
+#define WNET_trace	1
+#endif
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../remote/remote.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/thd.h"
+#include "../jrd/iberr.h"
+
+#include "../utilities/install_nt.h"
+
+#include "../remote/proto_proto.h"
+#include "../remote/remot_proto.h"
+#include "../remote/wnet_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/sch_proto.h"
+
+#include <stdarg.h>
+
+#include <windows.h>
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT		SCHAR
+
+#define ERRNO		GetLastError()
+
+#define PROTOCOL_NAME	"gds_db"
+
+#ifndef SYS_ERR
+#define SYS_ERR		gds_arg_win32
+#endif
+
+#ifndef MAX_DATA
+#define MAX_DATA	2048
+#endif
+
+#define BUFFER_SIZE	MAX_DATA
+#define MAX_SEQUENCE	256
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	1024
+#endif
+
+#ifndef MAXHOSTLEN
+#define MAXHOSTLEN	64
+#endif
+
+#define SERVER_PIPE_NAME  "\\pipe\\interbas\\server"
+#define SERVER_EVENT_NAME "\\pipe\\interbas\\event"
+
+extern int xdrmem_create();
+
+static int		accept_connection(PORT, P_CNCT *);
+static PORT		alloc_port(PORT);
+static PORT		aux_connect(PORT, PACKET *, XDR_INT(*)(void));
+static PORT		aux_request(PORT, PACKET *);
+static void		cleanup_port(PORT);
+static void		disconnect(PORT);
+static void		exit_handler(PORT);
+static STR		make_pipe_name(TEXT *, TEXT *, TEXT *);
+static PORT		receive(PORT, PACKET *);
+static int		send_full(PORT, PACKET *);
+static int		send_partial(PORT, PACKET *);
+static int		xdrwnet_create(XDR *, PORT, UCHAR *, USHORT, enum xdr_op);
+static bool_t	xdrwnet_endofrecord(XDR *, int);
+static int		wnet_destroy(XDR *);
+static int		wnet_error(PORT, TEXT *, STATUS, int);
+static void		wnet_gen_error(PORT, STATUS, ...);
+static bool_t	wnet_getbytes(XDR *, SCHAR *, u_int);
+static bool_t	wnet_getlong(XDR *, SLONG *);
+static u_int	wnet_getpostn(XDR *);
+static caddr_t	wnet_inline(XDR *, u_int);
+static bool_t	wnet_putlong(XDR *, SLONG *);
+static bool_t	wnet_putbytes(XDR *, SCHAR *, u_int);
+static bool_t	wnet_read(XDR *);
+static bool_t	wnet_setpostn(XDR *, u_int);
+static bool_t	wnet_write(XDR *, int);
+static void		packet_print(TEXT *, UCHAR *, int);
+static int		packet_receive(PORT, UCHAR *, SSHORT, SSHORT *);
+static int		packet_send(PORT, SCHAR *, SSHORT);
+static void		wnet_copy(SCHAR *, SCHAR *, int);
+static void		wnet_make_file_name(TEXT *, DWORD);
+
+static xdr_t::xdr_ops wnet_ops =
+{
+	wnet_getlong,
+	wnet_putlong,
+	wnet_getbytes,
+	wnet_putbytes,
+	wnet_getpostn,
+	wnet_setpostn,
+	wnet_inline,
+	wnet_destroy
+};
+
+#ifndef MAX_PTYPE
+#define MAX_PTYPE	ptype_out_of_band
+#endif
+
+
+PORT WNET_analyze(	TEXT*	file_name,
+					USHORT*	file_length,
+					STATUS*	status_vector,
+					TEXT*	node_name,
+					TEXT*	user_string,
+					USHORT	uv_flag)
+{
+/**************************************
+ *
+ *	W N E T _ a n a l y z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine whether the file name has a "\\nodename".
+ *	If so, establish an external connection to the node.
+ *
+ *	If a connection is established, return a port block, otherwise
+ *	return NULL.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	PACKET *packet;
+	P_CNCT *cnct;
+	SSHORT user_length;
+	UCHAR *p, user_id[200];
+	TEXT buffer[64];
+	p_cnct::p_cnct_repeat * protocol;
+
+
+	*file_length = strlen(file_name);
+
+/* We need to establish a connection to a remote server.  Allocate the necessary
+   blocks and get ready to go. */
+
+	rdb = (RDB) ALLOC(type_rdb);
+	packet = &rdb->rdb_packet;
+
+/* Pick up some user identification information */
+
+	user_id[0] = CNCT_user;
+	p = user_id + 2;
+	ISC_get_user(reinterpret_cast < SCHAR * >(p), 0, 0, 0, 0, 0, user_string);
+	user_id[1] = (UCHAR) strlen((SCHAR *) p);
+
+	for (; *p; p++)
+		if (*p >= 'A' && *p <= 'Z')
+			*p = *p - 'A' + 'a';
+
+	*p++ = CNCT_host;
+	p++;
+	ISC_get_host(reinterpret_cast < SCHAR * >(p), 64);
+	p[-1] = (UCHAR) strlen((SCHAR *) p);
+
+	for (; *p; p++)
+		if (*p >= 'A' && *p <= 'Z')
+			*p = *p - 'A' + 'a';
+
+	if (uv_flag) {
+		*p++ = CNCT_user_verification;
+		*p++ = 0;
+	}
+
+	user_length = p - user_id;
+
+/* Establish connection to server */
+
+	cnct = &packet->p_cnct;
+	packet->p_operation = op_connect;
+	cnct->p_cnct_operation = op_attach;
+	cnct->p_cnct_cversion = CONNECT_VERSION2;
+	cnct->p_cnct_client = ARCHITECTURE;
+	cnct->p_cnct_file.cstr_length = *file_length;
+	cnct->p_cnct_file.cstr_address = (UCHAR *) file_name;
+
+/* Note: prior to V3.1E a recievers could not in truth handle more
+   then 5 protocol descriptions; however, this restriction does not 
+   apply to Windows since it was created in 4.0 */
+
+/* If we want user verification, we can't speak anything less than version 7 */
+
+#ifdef SCROLLABLE_CURSORS
+	cnct->p_cnct_count = 8;
+#else
+	cnct->p_cnct_count = 6;
+#endif
+	cnct->p_cnct_user_id.cstr_length = user_length;
+	cnct->p_cnct_user_id.cstr_address = user_id;
+
+	protocol = cnct->p_cnct_versions;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION7;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 2;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION7;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 3;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION8;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 4;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION8;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 5;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION10;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 6;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION10;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 7;
+
+#ifdef SCROLLABLE_CURSORS
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_SCROLLABLE_CURSORS;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 6;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_SCROLLABLE_CURSORS;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 7;
+#endif
+
+/* If we can't talk to a server, punt.  Let somebody else generate
+   an error. */
+
+	if (!(port = WNET_connect(node_name, packet, status_vector, FALSE))) {
+		ALLR_release(rdb);
+		return NULL;
+	}
+
+/* Get response packet from server. */
+
+	rdb->rdb_port = port;
+	port->port_context = rdb;
+	port->receive(packet);
+
+	if (packet->p_operation == op_reject && !uv_flag) {
+		disconnect(port);
+		packet->p_operation = op_connect;
+		cnct->p_cnct_operation = op_attach;
+		cnct->p_cnct_cversion = CONNECT_VERSION2;
+		cnct->p_cnct_client = ARCHITECTURE;
+		cnct->p_cnct_file.cstr_length = *file_length;
+		cnct->p_cnct_file.cstr_address = (UCHAR *) file_name;
+
+		/* try again with next set of known protocols */
+
+		cnct->p_cnct_count = 4;
+		cnct->p_cnct_user_id.cstr_length = user_length;
+		cnct->p_cnct_user_id.cstr_address = user_id;
+
+		protocol = cnct->p_cnct_versions;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION4;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 2;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION4;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 3;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION6;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 4;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION6;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 5;
+
+		if (!(port = WNET_connect(node_name, packet, status_vector, FALSE))) {
+			ALLR_release(rdb);
+			return NULL;
+		}
+
+		/* Get response packet from server. */
+
+		rdb->rdb_port = port;
+		port->port_context = rdb;
+		port->receive(packet);
+	}
+
+	if (packet->p_operation == op_reject && !uv_flag) {
+		disconnect(port);
+		packet->p_operation = op_connect;
+		cnct->p_cnct_operation = op_attach;
+		cnct->p_cnct_cversion = CONNECT_VERSION2;
+		cnct->p_cnct_client = ARCHITECTURE;
+		cnct->p_cnct_file.cstr_length = *file_length;
+		cnct->p_cnct_file.cstr_address = (UCHAR *) file_name;
+
+		/* try again with next set of known protocols */
+
+		cnct->p_cnct_count = 2;
+		cnct->p_cnct_user_id.cstr_length = user_length;
+		cnct->p_cnct_user_id.cstr_address = user_id;
+
+		protocol = cnct->p_cnct_versions;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION3;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 2;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION3;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 3;
+
+		if (!(port = WNET_connect(node_name, packet, status_vector, FALSE))) {
+			ALLR_release(rdb);
+			return NULL;
+		}
+
+		/* Get response packet from server. */
+
+		rdb->rdb_port = port;
+		port->port_context = rdb;
+		port->receive(packet);
+	}
+
+	if (packet->p_operation != op_accept) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds_connect_reject;
+		*status_vector++ = 0;
+		disconnect(port);
+		return NULL;
+	}
+
+	port->port_protocol = packet->p_acpt.p_acpt_version;
+
+/* once we've decided on a protocol, concatenate the version 
+   string to reflect it...  */
+
+	sprintf(buffer, "%s/P%d", port->port_version->str_data,
+			port->port_protocol);
+	ALLR_free(port->port_version);
+	port->port_version = REMOTE_make_string(buffer);
+
+	if (packet->p_acpt.p_acpt_architecture == ARCHITECTURE)
+		port->port_flags |= PORT_symmetric;
+
+	if (packet->p_acpt.p_acpt_type == ptype_rpc)
+		port->port_flags |= PORT_rpc;
+
+	if (packet->p_acpt.p_acpt_type != ptype_out_of_band)
+		port->port_flags |= PORT_no_oob;
+
+	return port;
+}
+
+
+PORT WNET_connect(TEXT*		name,
+				  PACKET*	packet,
+				  STATUS*	status_vector,
+				  USHORT	flag)
+{
+/**************************************
+ *
+ *	W N E T _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish half of a communication link.  If a connect packet is given,
+ *	the connection is on behalf of a remote interface.  Otherwise the
+ *	connect is for a server process.
+ *
+ **************************************/
+	PORT port;
+	STATUS status;
+	TEXT command_line[MAXPATHLEN + 32], *p;
+	USHORT ret;
+#ifndef REQUESTER
+	STARTUPINFO start_crud;
+	PROCESS_INFORMATION pi;
+	LPSECURITY_ATTRIBUTES security_attr;
+#endif /* REQUESTER */
+
+	port = alloc_port(0);
+	port->port_status_vector = status_vector;
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+
+	if (port->port_connection)
+		ALLR_free(port->port_connection);
+	port->port_connection = make_pipe_name(name, SERVER_PIPE_NAME, 0);
+
+/* If we're a host, just make the connection */
+
+	if (packet)
+	{
+		THREAD_EXIT;
+		while (TRUE) {
+			port->port_handle = CreateFile(port->port_connection->str_data,
+										   GENERIC_WRITE | GENERIC_READ,
+										   0, NULL, OPEN_EXISTING, 0, NULL);
+			if (port->port_handle != INVALID_HANDLE_VALUE)
+				break;
+			if ((status = GetLastError()) != ERROR_PIPE_BUSY) {
+				THREAD_ENTER;
+				wnet_error(port, "CreateFile", isc_net_connect_err, status);
+				disconnect(port);
+				return NULL;
+			}
+			WaitNamedPipe(port->port_connection->str_data, 3000L);
+		}
+		THREAD_ENTER;
+		send_full(port, packet);
+		return port;
+	}
+
+#ifndef REQUESTER
+/* We're a server, so wait for a host to show up */
+
+	security_attr = ISC_get_security_desc();
+	THREAD_EXIT;
+	command_line[0] = 0;
+
+	while (TRUE)
+	{
+		port->port_handle =
+			CreateNamedPipe(port->port_connection->str_data,
+							PIPE_ACCESS_DUPLEX,
+							PIPE_WAIT | PIPE_TYPE_BYTE | PIPE_READMODE_BYTE,
+							PIPE_UNLIMITED_INSTANCES,
+							MAX_DATA,
+							MAX_DATA,
+							0,
+							security_attr);
+		if (port->port_handle == INVALID_HANDLE_VALUE ||
+			GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
+		{
+			// TMN: The check for GetLastError() is redundant.
+			// This code should NEVER be called if not running on NT,
+			// since Win9x does not support the server side of named pipes!
+			THREAD_ENTER;
+			wnet_error(port, "CreateNamedPipe", isc_net_connect_listen_err,
+					   ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+
+		if (!ConnectNamedPipe(port->port_handle, 0) &&
+			GetLastError() != ERROR_PIPE_CONNECTED)
+		{
+			THREAD_ENTER;
+			wnet_error(port, "ConnectNamedPipe", isc_net_connect_err, ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+
+		if (flag & (SRVR_debug | SRVR_multi_client))
+		{
+			THREAD_ENTER;
+			port->port_server_flags |= SRVR_server;
+			if (flag & SRVR_multi_client)
+			{
+				port->port_server_flags |= SRVR_multi_client;
+			}
+			gds__register_cleanup(reinterpret_cast <
+								  void (*)(void *) >(exit_handler), port);
+			return port;
+		}
+
+		if (!command_line[0])
+		{
+			SC_HANDLE manager = OpenSCManager(NULL, NULL, SC_MANAGER_CONNECT);
+			SC_HANDLE service = 0;
+			if (manager) {
+				service = OpenService(	manager,
+										REMOTE_SERVICE,
+										SERVICE_QUERY_CONFIG);
+			}
+
+			if (manager && service)
+			{
+				LPQUERY_SERVICE_CONFIG config;
+				SCHAR buffer[1024];
+				DWORD config_len;
+
+				config = (LPQUERY_SERVICE_CONFIG) buffer;
+				if (!QueryServiceConfig
+					(service, config, sizeof(buffer), &config_len)) {
+					THREAD_ENTER;
+					config = (LPQUERY_SERVICE_CONFIG) ALLR_alloc(config_len);
+					/* NOMEM: handled by ALLR_alloc, FREE: in this block */
+					QueryServiceConfig(service, config, config_len,
+									   &config_len);
+				}
+				sprintf(command_line, "%s -s", config->lpBinaryPathName);
+				if ((SCHAR *) config != buffer) {
+					ALLR_free(config);
+					THREAD_EXIT;
+				}
+				CloseServiceHandle(service);
+			}
+			else
+			{
+				strcpy(command_line, GetCommandLine());
+			}
+			CloseServiceHandle(manager);
+			p = command_line + strlen(command_line);
+		}
+
+		sprintf(p, " -s -n -h %d", (SLONG) port->port_handle);
+		start_crud.cb = sizeof(STARTUPINFO);
+		start_crud.lpReserved = NULL;
+		start_crud.lpReserved2 = NULL;
+		start_crud.cbReserved2 = 0;
+		start_crud.lpDesktop = NULL;
+		start_crud.lpTitle = NULL;
+		start_crud.dwFlags = 0;
+		if (ret = CreateProcess(NULL,
+								command_line,
+								NULL,
+								NULL,
+								TRUE,
+								(flag & SRVR_high_priority ?
+								 HIGH_PRIORITY_CLASS | DETACHED_PROCESS :
+								 NORMAL_PRIORITY_CLASS | DETACHED_PROCESS),
+								NULL, NULL, &start_crud, &pi)) {
+			CloseHandle(pi.hThread);
+			CloseHandle(pi.hProcess);
+		}
+		CloseHandle(port->port_handle);
+	}
+#endif /* REQUESTER */
+}
+
+
+PORT WNET_reconnect(HANDLE handle, TEXT * name, STATUS * status_vector)
+{
+/**************************************
+ *
+ *	W N E T _ r e c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	A communications link has been established by another
+ *	process.  We have inheritted the handle.  Set up
+ *	a port block.
+ *
+ **************************************/
+	PORT port;
+
+	port = alloc_port(0);
+	port->port_status_vector = status_vector;
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+
+	if (port->port_connection)
+		ALLR_free(port->port_connection);
+	port->port_connection = make_pipe_name(name, SERVER_PIPE_NAME, 0);
+
+	port->port_handle = handle;
+	port->port_server_flags |= SRVR_server;
+
+	return port;
+}
+
+
+PORT WNET_server(void *handle)
+{
+/**************************************
+ *
+ *	W N E T _ s e r v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We have been spawned by a master server with a connection
+ *	established.  Set up port block with the appropriate socket.
+ *
+ **************************************/
+	PORT port;
+
+	port = alloc_port(0);
+	port->port_server_flags |= SRVR_server;
+	port->port_handle = (HANDLE) handle;
+
+	return port;
+}
+
+
+static int accept_connection( PORT port, P_CNCT * cnct)
+{
+/**************************************
+ *
+ *	a c c e p t _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept an incoming request for connection.  This is purely a lower
+ *	level handshaking function, and does not constitute the server
+ *	response for protocol selection.
+ *
+ **************************************/
+	TEXT name[64], password[64], *id, *end, *p;
+	STR string;
+	int i, length, l;
+	BOOLEAN revert_flag;
+	TEXT uname[128];
+	SLONG name_len;
+#ifndef REQUESTER
+	int user_verification;
+#endif
+
+/* Default account to "guest" (in theory all packets contain a name) */
+
+	strcpy(name, "guest");
+	password[0] = 0;
+
+/* Pick up account and password, if given */
+
+	id = (TEXT *) cnct->p_cnct_user_id.cstr_address;
+	end = id + cnct->p_cnct_user_id.cstr_length;
+
+#ifndef REQUESTER
+	user_verification = 0;
+#endif
+	while (id < end)
+		switch (*id++) {
+		case CNCT_user:
+			length = l = *id++;
+			port->port_user_name = string =
+				(STR) ALLOCV(type_str, (int) length);
+			string->str_length = length;
+			if (length) {
+				p = (TEXT *) string->str_data;
+				do
+					*p++ = *id++;
+				while (--l);
+			}
+			strncpy(name, string->str_data, length);
+			name[length] = (TEXT) 0;
+			break;
+
+		case CNCT_passwd:
+			p = password;
+			if ((length = *id++) != NULL)
+				do
+					*p++ = *id++;
+				while (--length);
+			*p = 0;
+			break;
+
+		case CNCT_user_verification:
+#ifndef REQUESTER
+			user_verification = 1;
+#endif
+			id++;
+			break;
+
+		default:
+			id += *id + 1;
+		}
+
+#ifndef REQUESTER
+/* See if user exists.  If not, reject connection */
+
+	if (revert_flag = ImpersonateNamedPipeClient(port->port_handle)) {
+		port->port_flags |= PORT_impersonate;
+		name_len = 128;
+
+		if (GetUserName(uname, reinterpret_cast < DWORD * >(&name_len))) {
+			for (i = 0; i < name_len; i++)
+				uname[i] = LOWWER7(uname[i]);
+
+			uname[name_len] = 0;
+
+			if ((!user_verification) && strcmp(name, uname)) {
+				port->port_flags &= ~PORT_impersonate;
+				RevertToSelf();
+				return FALSE;
+			}
+		}
+	}
+
+#endif /* REQUESTER */
+	return TRUE;
+}
+
+
+static PORT alloc_port( PORT parent)
+{
+/**************************************
+ *
+ *	a l l o c _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a port block, link it in to parent (if there is a parent),
+ *	and initialize input and output XDR streams.
+ *
+ **************************************/
+	PORT port;
+	TEXT buffer[64];
+
+	port = (PORT) ALLOCV(type_port, BUFFER_SIZE * 2);
+	port->port_type = port_pipe;
+	port->port_state = state_pending;
+
+	ISC_get_host(buffer, sizeof(buffer));
+	port->port_host = REMOTE_make_string(buffer);
+	port->port_connection = REMOTE_make_string(buffer);
+	sprintf(buffer, "WNet (%s)", port->port_host->str_data);
+	port->port_version = REMOTE_make_string(buffer);
+
+	if (parent) {
+		port->port_parent = parent;
+		port->port_next = parent->port_clients;
+		parent->port_clients = parent->port_next = port;
+		port->port_handle = parent->port_handle;
+		port->port_server = parent->port_server;
+		port->port_server_flags = parent->port_server_flags;
+		if (port->port_connection)
+			ALLR_free(port->port_connection);
+		port->port_connection =
+			REMOTE_make_string(parent->port_connection->str_data);
+	}
+
+	port->port_accept = accept_connection;
+	port->port_disconnect = disconnect;
+	port->port_receive_packet = receive;
+	port->port_send_packet = send_full;
+	port->port_send_partial = send_partial;
+	port->port_connect =
+		reinterpret_cast < PORT(*)(PORT, PACKET *, void (*)()) >(aux_connect);
+	port->port_request = aux_request;
+	port->port_buff_size = BUFFER_SIZE;
+
+	xdrwnet_create(&port->port_send, port,
+				   &port->port_buffer[BUFFER_SIZE], BUFFER_SIZE, XDR_ENCODE);
+
+	xdrwnet_create(&port->port_receive, port, port->port_buffer, 0,
+				   XDR_DECODE);
+
+	return port;
+}
+
+
+static PORT aux_connect( PORT port, PACKET * packet, XDR_INT(*ast) (void))
+{
+/**************************************
+ *
+ *	a u x _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to establish an alternative connection.  Somebody has already
+ *	done a successfull connect request ("packet" contains the response).
+ *
+ **************************************/
+	PORT new_port;
+	STATUS status;
+	TEXT *p, str_pid[32];
+	P_RESP *response;
+
+#ifndef REQUESTER
+/* If this is a server, we're got an auxiliary connection.  Accept it */
+
+	if (port->port_server_flags) {
+		if (!ConnectNamedPipe(port->port_handle, 0) &&
+			GetLastError() != ERROR_PIPE_CONNECTED) {
+			wnet_error(port, "ConnectNamedPipe", isc_net_event_connect_err,
+					   ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+
+		port->port_flags |= PORT_async;
+		return port;
+	}
+#endif /* REQUESTER */
+
+/* The server will be sending its process id in the packet to
+ * create a unique pipe name.
+ */
+
+	response = &packet->p_resp;
+
+	if (response->p_resp_data.cstr_length) {
+		wnet_copy(reinterpret_cast <
+				  char *>(response->p_resp_data.cstr_address), str_pid,
+				  response->p_resp_data.cstr_length);
+		str_pid[response->p_resp_data.cstr_length] = 0;
+		p = str_pid;
+	}
+	else {
+		p = 0;
+	}
+
+	port->port_async = new_port = alloc_port(port->port_parent);
+	new_port->port_flags |= PORT_async;
+	new_port->port_connection =
+		make_pipe_name(port->port_connection->str_data, SERVER_EVENT_NAME, p);
+
+	THREAD_EXIT;
+	while (TRUE) {
+		new_port->port_handle =
+			CreateFile(new_port->port_connection->str_data, GENERIC_READ, 0,
+					   NULL, OPEN_EXISTING, 0, NULL);
+		if (new_port->port_handle != INVALID_HANDLE_VALUE)
+			break;
+		if ((status = GetLastError()) != ERROR_PIPE_BUSY) {
+			THREAD_ENTER;
+			return (PORT) wnet_error(new_port, "CreateFile",
+									 isc_net_event_connect_err, status);
+		}
+		WaitNamedPipe(new_port->port_connection->str_data, 3000L);
+	}
+
+	THREAD_ENTER;
+
+	new_port->port_flags = port->port_flags & PORT_no_oob;
+
+	return new_port;
+}
+
+
+static PORT aux_request( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	a u x _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	A remote interface has requested the server prepare an auxiliary 
+ *	connection; the server calls aux_request to set up the connection.
+ *	Send the servers process id on the packet.  If at a later time
+ *	a multi client server is used, there may be a need to
+ *	generate a unique id based on connection.
+ *
+ **************************************/
+	PORT new_port;
+	P_RESP *response;
+	DWORD server_pid;
+	TEXT str_pid[32];
+#ifndef REQUESTER
+	LPSECURITY_ATTRIBUTES security_attr;
+#endif /* REQUESTER */
+
+#ifndef REQUESTER
+	server_pid = GetCurrentProcessId();
+	port->port_async = new_port = alloc_port(port->port_parent);
+	new_port->port_server_flags = port->port_server_flags;
+	new_port->port_flags = port->port_flags & PORT_no_oob;
+
+	wnet_make_file_name(str_pid, server_pid);
+	new_port->port_connection =
+		make_pipe_name(port->port_connection->str_data, SERVER_EVENT_NAME,
+					   str_pid);
+
+	security_attr = ISC_get_security_desc();
+	THREAD_EXIT;
+	new_port->port_handle =
+		CreateNamedPipe(new_port->port_connection->str_data,
+						PIPE_ACCESS_DUPLEX,
+						PIPE_WAIT | PIPE_TYPE_BYTE | PIPE_READMODE_BYTE,
+						PIPE_UNLIMITED_INSTANCES,
+						MAX_DATA,
+						MAX_DATA,
+						0,
+						security_attr);
+	THREAD_ENTER;
+	if (new_port->port_handle == INVALID_HANDLE_VALUE) {
+		wnet_error(new_port, "CreateNamedPipe", isc_net_event_listen_err,
+				   ERRNO);
+		disconnect(new_port);
+		return NULL;
+	}
+
+	response = &packet->p_resp;
+	response->p_resp_data.cstr_length = strlen(str_pid);
+	wnet_copy(str_pid,
+			  reinterpret_cast < char *>(response->p_resp_data.cstr_address),
+			  response->p_resp_data.cstr_length);
+
+#endif /* REQUESTER */
+
+	return new_port;
+}
+
+
+static void disconnect( PORT port)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break a remote connection.
+ *
+ **************************************/
+	PORT parent, *ptr;
+
+/* If this is a sub-port, unlink it from it's parent */
+
+	if ((parent = port->port_parent) != NULL) {
+		if (port->port_async) {
+			disconnect(port->port_async);
+			port->port_async = NULL;
+		}
+		for (ptr = &parent->port_clients; *ptr; ptr = &(*ptr)->port_next)
+			if (*ptr == port) {
+				*ptr = port->port_next;
+				if (ptr == &parent->port_clients)
+					parent->port_next = *ptr;
+				break;
+			}
+	}
+	else if (port->port_async) {
+/* If we're MULTI_THREAD then we cannot free the port because another
+ * thread might be using it.  If we're SUPERSERVER we must free the
+ * port to avoid a memory leak.  What we really need to know is if we
+ * have multi-threaded events, but this is transport specific.
+ */
+#if     (defined (MULTI_THREAD) && !defined (SUPERSERVER))
+		port->port_async->port_flags |= PORT_disconnect;
+#else
+		disconnect(port->port_async);
+		port->port_async = NULL;
+#endif
+	}
+
+#ifndef REQUESTER
+	if (port->port_server_flags & SRVR_server) {
+		FlushFileBuffers(port->port_handle);
+		DisconnectNamedPipe(port->port_handle);
+		if (port->port_flags & PORT_impersonate) {
+			RevertToSelf();
+			port->port_flags &= ~PORT_impersonate;
+		}
+	}
+#endif /* REQUESTER */
+	CloseHandle(port->port_handle);
+	gds__unregister_cleanup(reinterpret_cast <
+							void (*)(void *) >(exit_handler), port);
+	cleanup_port(port);
+}
+
+
+static void cleanup_port( PORT port)
+{
+/**************************************
+ *
+ *      c l e a n u p _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Walk through the port structure freeing
+ *      allocated memory and then free the port.
+ *
+ **************************************/
+
+	if (port->port_version)
+		ALLR_free((UCHAR *) port->port_version);
+
+	if (port->port_connection)
+		ALLR_free((UCHAR *) port->port_connection);
+
+	if (port->port_user_name)
+		ALLR_free((UCHAR *) port->port_user_name);
+
+	if (port->port_host)
+		ALLR_free((UCHAR *) port->port_host);
+
+	if (port->port_object_vector)
+		ALLR_free((UCHAR *) port->port_object_vector);
+
+#ifdef DEBUG_XDR_MEMORY
+	if (port->port_packet_vector)
+		ALLR_free((UCHAR *) port->port_packet_vector);
+#endif
+
+	ALLR_release((UCHAR *) port);
+	return;
+}
+
+
+static void exit_handler( PORT main_port)
+{
+/**************************************
+ *
+ *	e x i t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown all active connections
+ *	to allow restart.
+ *
+ **************************************/
+	PORT port;
+
+	for (port = main_port; port; port = port->port_next)
+		CloseHandle(port->port_handle);
+}
+
+
+static STR make_pipe_name(
+						  TEXT * connect_name,
+						  TEXT * service_name, TEXT * str_pid)
+{
+/**************************************
+ *
+ *	m a k e _ p i p e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Construct a name for the pipe connection.
+ *	Figure out whether we need a remote node name,
+ *	and construct the pipe name accordingly.
+ *	If a server pid != 0, append it to pipe name  as <>/<pid>
+ *
+ **************************************/
+	TEXT pipe_name[128], *p, *q, *protocol;
+	TEXT pid[32];
+
+	p = connect_name;
+	q = pipe_name;
+
+	if (!p || *p++ != '\\' || *p++ != '\\')
+		p = ".";
+
+	*q++ = '\\';
+	*q++ = '\\';
+	while (*p && *p != '\\' && *p != '@')
+		*q++ = *p++;
+
+	if (!*p)
+		protocol = PROTOCOL_NAME;
+	else if (*p == '@')
+		protocol = p + 1;
+	else {
+		while (*p)
+			if (*p++ == '\\')
+				protocol = p;
+	}
+
+	strcpy(q, service_name);
+	while (*q)
+		q++;
+	*q++ = '\\';
+	strcpy(q, protocol);
+
+	if (str_pid) {
+		sprintf(pid, "\\%s", str_pid);
+		strcat(pipe_name, pid);
+	}
+
+	return REMOTE_make_string(pipe_name);
+}
+
+
+static PORT receive( PORT main_port, PACKET * packet)
+{
+/**************************************
+ *
+ *	r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message from a port or clients of a port.  If the process
+ *	is a server and a connection request comes in, generate a new port
+ *	block for the client.
+ *
+ **************************************/
+
+	if (!xdr_protocol(&main_port->port_receive, packet))
+		packet->p_operation = op_exit;
+
+	return main_port;
+}
+
+
+static int send_full( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	s e n d _ f u l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+	if (!xdr_protocol(&port->port_send, packet))
+		return FALSE;
+
+	return xdrwnet_endofrecord(&port->port_send, TRUE);
+}
+
+
+static int send_partial( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	s e n d _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+	return xdr_protocol(&port->port_send, packet);
+}
+
+
+static int xdrwnet_create(
+						  XDR * xdrs,
+						  PORT port,
+						  UCHAR * buffer, USHORT length, enum xdr_op x_op)
+{
+/**************************************
+ *
+ *	x d r w n e t _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize an XDR stream for Apollo mailboxes.
+ *
+ **************************************/
+
+	xdrs->x_public = (caddr_t) port;
+	xdrs->x_base = xdrs->x_private = (SCHAR *) buffer;
+	xdrs->x_handy = length;
+	xdrs->x_ops = &wnet_ops;
+	xdrs->x_op = x_op;
+
+	return TRUE;
+}
+
+
+static bool_t xdrwnet_endofrecord( XDR * xdrs, bool_t flushnow)
+{
+/**************************************
+ *
+ *	x d r w n e t _ e n d o f r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out the rest of a record.
+ *
+ **************************************/
+
+	return wnet_write(xdrs, flushnow);
+}
+
+
+static int wnet_destroy( XDR * xdrs)
+{
+/**************************************
+ *
+ *	w n e t _ d e s t r o y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Destroy a stream.  A no-op.
+ *
+ **************************************/
+
+	return (int) NULL;
+}
+
+
+static int wnet_error(
+					  PORT port,
+					  TEXT * function, STATUS operation, int status)
+{
+/**************************************
+ *
+ *	w n e t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An I/O error has occurred.  If a status vector is present,
+ *	generate an error return.  In any case, return NULL, which
+ *	is used to indicate and error.
+ *
+ **************************************/
+	TEXT msg[64];
+	TEXT node_name[MAXPATHLEN];
+	TEXT *p;
+
+	strcpy(node_name, ((SCHAR *) port->port_connection->str_data) + 2);
+	p = strchr(node_name, '\\');
+	if (p != NULL)
+		*p = '\0';
+
+	if (status) {
+		wnet_gen_error(port, isc_network_error,
+					   gds_arg_string, (STATUS) node_name,
+					   isc_arg_gds, operation,
+					   SYS_ERR, status,
+					   0);
+		if (status != ERROR_CALL_NOT_IMPLEMENTED) {
+			sprintf(msg, "WNET/wnet_error: %s errno = %d", function, status);
+			gds__log(msg, 0, 0, 0, 0);
+		}
+	}
+	else {
+		wnet_gen_error(port, isc_network_error,
+					   gds_arg_string, (STATUS) node_name,
+					   isc_arg_gds, operation, 0);
+	}
+
+	return (int) NULL;
+}
+
+
+static void wnet_gen_error( PORT port, STATUS status, ...)
+{
+/**************************************
+ *
+ *	w n e t _ g e n _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An error has occurred.  Mark the port as broken.
+ *	Format the status vector if there is one and
+ *	save the status vector strings in a permanent place.
+ *
+ **************************************/
+	STATUS *status_vector;
+
+	port->port_flags |= PORT_broken;
+	port->port_state = state_broken;
+
+	status_vector = NULL;
+	if (port->port_context != NULL)
+		status_vector = port->port_context->rdb_status_vector;
+	if (status_vector == NULL)
+		status_vector = port->port_status_vector;
+	if (status_vector != NULL) {
+		STUFF_STATUS(status_vector, status);
+		REMOTE_save_status_strings(status_vector);
+	}
+}
+
+
+static bool_t wnet_getbytes( XDR * xdrs, SCHAR * buff, u_int count)
+{
+/**************************************
+ *
+ *	w n e t _ g e t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a bunch of bytes from a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(buff, xdrs->x_private, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(buff, xdrs->x_private, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!wnet_read(xdrs))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*buff++ = *xdrs->x_private++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (!xdrs->x_handy && !wnet_read(xdrs))
+			return FALSE;
+		*buff++ = *xdrs->x_private++;
+		--xdrs->x_handy;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t wnet_getlong( XDR * xdrs, SLONG * lp)
+{
+/**************************************
+ *
+ *	w n e t _ g e t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG l;
+
+	if (!(*xdrs->x_ops->x_getbytes) (xdrs, reinterpret_cast < char *>(&l), 4))
+		return FALSE;
+
+	*lp = ntohl(l);
+
+	return TRUE;
+}
+
+
+static u_int wnet_getpostn( XDR * xdrs)
+{
+/**************************************
+ *
+ *	w n e t _ g e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	return (u_int) (xdrs->x_private - xdrs->x_base);
+}
+
+
+static caddr_t wnet_inline( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	w n e t _  i n l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a pointer to somewhere in the buffer.
+ *
+ **************************************/
+
+	if (bytecount > (u_int) xdrs->x_handy)
+		return FALSE;
+
+	return xdrs->x_base + bytecount;
+}
+
+
+static bool_t wnet_putbytes( XDR * xdrs, SCHAR * buff, u_int count)
+{
+/**************************************
+ *
+ *	w n e t _ p u t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a bunch of bytes to a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+/* Use memcpy to optimize bulk transfers. */
+
+	while (bytecount > sizeof(GDS_QUAD)) {
+		if (xdrs->x_handy >= bytecount) {
+			memcpy(xdrs->x_private, buff, bytecount);
+			xdrs->x_private += bytecount;
+			xdrs->x_handy -= bytecount;
+			return TRUE;
+		}
+		else {
+			if (xdrs->x_handy > 0) {
+				memcpy(xdrs->x_private, buff, xdrs->x_handy);
+				xdrs->x_private += xdrs->x_handy;
+				buff += xdrs->x_handy;
+				bytecount -= xdrs->x_handy;
+				xdrs->x_handy = 0;
+			}
+			if (!wnet_write(xdrs, 0))
+				return FALSE;
+		}
+	}
+
+/* Scalar values and bulk transfer remainder fall thru
+   to be moved byte-by-byte to avoid memcpy setup costs. */
+
+	if (!bytecount)
+		return TRUE;
+
+	if (xdrs->x_handy >= bytecount) {
+		xdrs->x_handy -= bytecount;
+		do
+			*xdrs->x_private++ = *buff++;
+		while (--bytecount);
+		return TRUE;
+	}
+
+	while (--bytecount >= 0) {
+		if (xdrs->x_handy <= 0 && !wnet_write(xdrs, 0))
+			return FALSE;
+		--xdrs->x_handy;
+		*xdrs->x_private++ = *buff++;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t wnet_putlong( XDR * xdrs, SLONG * lp)
+{
+/**************************************
+ *
+ *	w n e t _ p u t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG l;
+
+	l = htonl(*lp);
+	return (*xdrs->x_ops->x_putbytes) (xdrs,
+									   reinterpret_cast < char *>(AOF32L(l)),
+									   4);
+}
+
+
+static bool_t wnet_read( XDR * xdrs)
+{
+/**************************************
+ *
+ *	w n e t _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a buffer full of data.  If we receive a bad packet,
+ *	send the moral equivalent of a NAK and retry.  ACK all
+ *	partial packets.  Don't ACK the last packet -- the next
+ *	message sent will handle this.
+ *
+ **************************************/
+	PORT port;
+	SSHORT length;
+	SCHAR *p, *end;
+
+	port = (PORT) xdrs->x_public;
+	p = xdrs->x_base;
+	end = p + BUFFER_SIZE;
+
+/* If buffer is not completely empty, slide down what what's left */
+
+	if (xdrs->x_handy > 0) {
+		memmove(p, xdrs->x_private, xdrs->x_handy);
+		p += xdrs->x_handy;
+	}
+
+/* If an ACK is pending, do an ACK.  The alternative is deadlock. */
+
+/*
+if (port->port_flags & PORT_pend_ack)
+    if (!packet_send (port, 0, 0))
+	return FALSE;
+*/
+
+	while (TRUE) {
+		length = end - p;
+		if (!packet_receive
+			(port, reinterpret_cast < UCHAR * >(p), length, &length)) {
+			return FALSE;
+	/***
+	if (!packet_send (port, 0, 0))
+	    return FALSE;
+	continue;
+	***/
+		}
+		if (length >= 0) {
+			p += length;
+			break;
+		}
+		p -= length;
+		if (!packet_send(port, 0, 0))
+			return FALSE;
+	}
+
+	port->port_flags |= PORT_pend_ack;
+	xdrs->x_handy = (int) ((SCHAR *) p - xdrs->x_base);
+	xdrs->x_private = xdrs->x_base;
+
+	return TRUE;
+}
+
+
+static bool_t wnet_setpostn( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	w n e t _ s e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	if (bytecount > (u_int) xdrs->x_handy)
+		return FALSE;
+
+	xdrs->x_private = xdrs->x_base + bytecount;
+
+	return TRUE;
+}
+
+
+static bool_t wnet_write( XDR * xdrs, bool_t end_flag)
+{
+/**************************************
+ *
+ *	w n e t _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a buffer fulll of data.  If the end_flag isn't set, indicate
+ *	that the buffer is a fragment, and reset the XDR for another buffer
+ *	load.
+ *
+ **************************************/
+	SCHAR *p;
+	PORT port;
+	SSHORT l, length;
+
+/* Encode the data portion of the packet */
+
+	port = (PORT) xdrs->x_public;
+	p = xdrs->x_base;
+	length = xdrs->x_private - p;
+
+/* Send data in manageable hunks.  If a packet is partial, indicate
+   that with a negative length.  A positive length marks the end. */
+
+	p = xdrs->x_base;
+
+	while (length) {
+		port->port_misc1 = (port->port_misc1 + 1) % MAX_SEQUENCE;
+		l = MIN(length, MAX_DATA);
+		length -= l;
+		if (!packet_send(port, p, (SSHORT) (length ? -l : l)))
+			return FALSE;
+		p += l;
+	}
+
+	xdrs->x_private = xdrs->x_base;
+	xdrs->x_handy = BUFFER_SIZE;
+
+	return TRUE;
+}
+
+
+#ifdef DEBUG
+static void packet_print( TEXT * string, UCHAR * packet, int length)
+{
+/**************************************
+ *
+ *	p a c k e t _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a summary of packet.
+ *
+ **************************************/
+	int sum = 0;
+	int l = length;
+
+	if (l) {
+		do {
+			sum += *packet++;
+		} while (--l);
+	}
+
+	ib_printf("%s\t: length = %d, checksum = %d\n", string, length, sum);
+}
+#endif
+
+
+static int packet_receive(
+						  PORT port,
+						  UCHAR * buffer,
+						  SSHORT buffer_length, SSHORT * length)
+{
+/**************************************
+ *
+ *	p a c k e t _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a packet and pass on it's goodness.  If it's good,
+ *	return TRUE and the reported length of the packet, and update
+ *	the receive sequence number.  If it's bad, return FALSE.  If it's
+ *	a duplicate message, just ignore it.
+ *
+ **************************************/
+	DWORD n = 0;
+	USHORT status;
+
+	THREAD_EXIT;
+	status = ReadFile(port->port_handle, buffer, buffer_length, &n, NULL);
+	THREAD_ENTER;
+	if (!status && GetLastError() != ERROR_BROKEN_PIPE)
+		return wnet_error(port, "ReadFile", isc_net_read_err, ERRNO);
+	if (!n)
+		return wnet_error(port, "ReadFile end-of-file", isc_net_read_err,
+						  ERRNO);
+
+#ifdef DEBUG
+	if (WNET_trace)
+		packet_print("receive", buffer, n);
+#endif
+
+	*length = (SSHORT) n;
+
+	return TRUE;
+}
+
+
+static int packet_send( PORT port, SCHAR * buffer, SSHORT buffer_length)
+{
+/**************************************
+ *
+ *	p a c k e t _ s e n d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send some data on it's way.  
+ *
+ **************************************/
+	SCHAR *data;
+	DWORD n, length;
+	USHORT status;
+
+	data = buffer;
+	length = buffer_length;
+
+	THREAD_EXIT;
+	status = WriteFile(port->port_handle, data, length, &n, NULL);
+	THREAD_ENTER;
+	if (!status)
+		return wnet_error(port, "WriteFile", isc_net_write_err, ERRNO);
+	if (n != length)
+		return wnet_error(port, "WriteFile truncated", isc_net_write_err,
+						  ERRNO);
+
+#ifdef DEBUG
+	if (WNET_trace)
+		packet_print("send", buffer, buffer_length);
+#endif
+
+	port->port_flags &= ~PORT_pend_ack;
+
+	return TRUE;
+}
+
+
+static void wnet_copy( SCHAR * from, SCHAR * to, int length)
+{
+/**************************************
+ *
+ *      w n e t _ c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Copy a number of bytes;
+ *
+ **************************************/
+
+	if (length)
+		do
+			*to++ = *from++;
+		while ((--length) != 0);
+}
+
+
+static void wnet_make_file_name( TEXT * name, DWORD number)
+{
+/**************************************
+ *
+ *      w n e t _ m a k e _ f i l e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create a file name out of a number making sure
+ *	the Windows <8>.<3> limitations are handled.
+ *
+ **************************************/
+	TEXT *p, *q, temp[32];
+	USHORT len, length;
+
+	sprintf(temp, "%d", number);
+
+	if ((length = strlen(temp)) < 8) {
+		strcpy(name, temp);
+		return;
+	}
+
+	p = name;
+	q = temp;
+
+	while (length) {
+		len = (length > 8) ? 8 : length;
+		length -= len;
+		do
+			*p++ = *q++;
+		while ((--len) != 0);
+
+		if (length)
+			*p++ = '\\';
+	}
+	*p++ = 0;
+}
diff --git a/src/remote/wnet_proto.h b/src/remote/wnet_proto.h
new file mode 100644
index 0000000000..72d47c2277
--- /dev/null
+++ b/src/remote/wnet_proto.h
@@ -0,0 +1,43 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *	MODULE:		wnet_proto.h
+ *	DESCRIPTION:	Prototpe header file for wnet.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_WNET_PROTO_H_
+#define _REMOTE_WNET_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+extern PORT	WNET_analyze (TEXT *, USHORT *, STATUS *, TEXT *, TEXT *, USHORT);
+extern PORT	WNET_connect (TEXT *, struct packet *, STATUS *, USHORT);
+extern PORT	WNET_reconnect (HANDLE, TEXT *, STATUS *);
+extern PORT	WNET_server (void *);
+
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+
+#endif /* _REMOTE_WNET_PROTO_H */ 
diff --git a/src/remote/xdr.cpp b/src/remote/xdr.cpp
new file mode 100644
index 0000000000..24e099db45
--- /dev/null
+++ b/src/remote/xdr.cpp
@@ -0,0 +1,1034 @@
+/*
+ *	PROGRAM:	External Data Representation
+ *	MODULE:		xdr.c
+ *	DESCRIPTION:	GDS version of Sun's register XDR Package.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../remote/remote.h"
+#include "../remote/xdr.h"
+#include "../jrd/common.h"
+#include "../remote/allr_proto.h"
+#include "../remote/proto_proto.h"
+#include "../remote/xdr_proto.h"
+#include "../jrd/gds_proto.h"
+
+#ifdef M_I386
+#define		SWAP_DOUBLE
+#endif
+
+#ifdef WIN_NT
+#define		SWAP_DOUBLE
+#endif
+
+#ifdef NETWARE_386
+#define         SWAP_DOUBLE
+#endif
+
+#ifdef VMS
+extern double MTH$CVT_D_G(), MTH$CVT_G_D();
+#endif
+
+#ifdef BURP
+#include "../burp/misc_proto.h"	/* Was "../burp/misc_pro.h" -Jeevan */
+#define XDR_ALLOC(size)	    MISC_alloc_burp (size)
+#define XDR_FREE(block)	    MISC_free_burp (block)
+#endif
+
+#ifndef XDR_ALLOC
+#define XDR_ALLOC(size)	    gds__alloc (size)
+#define XDR_FREE(block)	    gds__free (block)
+#endif
+
+#ifdef DEBUG_XDR_MEMORY
+#define DEBUG_XDR_ALLOC(xdrvar, addr, len) \
+			xdr_debug_memory (xdrs, XDR_DECODE, xdrvar, addr, (ULONG) len)
+#define DEBUG_XDR_FREE(xdrvar, addr, len) \
+			xdr_debug_memory (xdrs, XDR_FREE, xdrvar, addr, (ULONG) len)
+#else
+#define DEBUG_XDR_ALLOC(xdrvar, addr, len)
+#define DEBUG_XDR_FREE(xdrvar, addr, len)
+#endif /* DEBUG_XDR_MEMORY */
+
+/* Sun's XDR documentation says this should be "MAXUNSIGNED", but
+   for InterBase purposes, limiting strings to 65K is more than
+   sufficient. */
+
+#define MAXSTRING_FOR_WRAPSTRING	65535
+
+
+extern "C" {
+
+
+static XDR_INT mem_destroy(register XDR *);
+static bool_t mem_getbytes(register XDR *, register SCHAR *, register u_int);
+static bool_t mem_getlong(register XDR *, register SLONG *);
+static u_int mem_getpostn(register XDR *);
+static caddr_t mem_inline(register XDR *, u_int);
+static bool_t mem_putbytes(register XDR *, register SCHAR *, register u_int);
+static bool_t mem_putlong(register XDR *, register SLONG *);
+static bool_t mem_setpostn(register XDR *, u_int);
+
+
+#pragma FB_COMPILER_MESSAGE("Fix! Bad, bad functioun pointer type casts!")
+
+static const XDR::xdr_ops mem_ops =
+{
+	mem_getlong,
+	mem_putlong,
+	mem_getbytes,
+	mem_putbytes,
+	mem_getpostn,
+	mem_setpostn,
+	mem_inline,
+	mem_destroy
+};
+
+#define GETBYTES	 (*xdrs->x_ops->x_getbytes)
+#define GETLONG		 (*xdrs->x_ops->x_getlong)
+#define PUTBYTES	 (*xdrs->x_ops->x_putbytes)
+#define PUTLONG		 (*xdrs->x_ops->x_putlong)
+
+static SCHAR zeros[4] = { 0, 0, 0, 0 };
+
+
+bool_t xdr_bool( register XDR * xdrs, register bool_t * bp)
+{
+/**************************************
+ *
+ *	x d r _ b o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+	SLONG temp;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		temp = *bp;
+		return PUTLONG(xdrs, &temp);
+
+	case XDR_DECODE:
+		if (!GETLONG(xdrs, &temp))
+			return FALSE;
+		*bp = (bool_t) temp;
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+bool_t xdr_bytes(register XDR * xdrs,
+				 register SCHAR ** bpp, u_int * lp, register u_int maxlength)
+{
+/**************************************
+ *
+ *	x d r _ b y t e s 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Encode, decode, or free a string.
+ *
+ **************************************/
+	SLONG length;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		length = *lp;
+		if (length > (SLONG) maxlength ||
+			!PUTLONG(xdrs, &length) || !PUTBYTES(xdrs, *bpp, length))
+			return FALSE;
+		if ((length = (4 - length) & 3) != 0)
+			return PUTBYTES(xdrs, zeros, length);
+		return TRUE;
+
+	case XDR_DECODE:
+		if (!*bpp)
+		{
+			*bpp = (TEXT *) XDR_ALLOC((SLONG) (maxlength + 1));
+			/* FREE: via XDR_FREE call to this procedure */
+			if (!*bpp)			/* NOMEM: */
+				return FALSE;
+			DEBUG_XDR_ALLOC(bpp, *bpp, (maxlength + 1));
+		}
+		if (!GETLONG(xdrs, &length) ||
+			length > (SLONG) maxlength || !GETBYTES(xdrs, *bpp, length))
+			return FALSE;
+		if ((length = (4 - length) & 3) != 0)
+			return GETBYTES(xdrs, zeros, length);
+		*lp = (u_int) length;
+		return TRUE;
+
+	case XDR_FREE:
+		if (*bpp)
+		{
+			XDR_FREE(*bpp);
+			DEBUG_XDR_FREE(bpp, *bpp, (maxlength + 1));
+			*bpp = NULL;
+		}
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+bool_t xdr_double(register XDR * xdrs, register double *ip)
+{
+/**************************************
+ *
+ *	x d r _ d o u b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+#ifdef VAX_FLOAT
+	SSHORT t1;
+#endif
+	union {
+		double temp_double;
+		SLONG temp_long[2];
+		SSHORT temp_short[4];
+	} temp;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		temp.temp_double = *ip;
+#ifdef VAX_FLOAT
+#ifdef NETWARE_386
+/* bug in WATCOM C */
+		if (temp.temp_long[0] || temp.temp_long[1])
+#else
+		if (temp.temp_double != 0)
+#endif
+			temp.temp_short[0] -= 0x20;
+		t1 = temp.temp_short[0];
+		temp.temp_short[0] = temp.temp_short[1];
+		temp.temp_short[1] = t1;
+		t1 = temp.temp_short[2];
+		temp.temp_short[2] = temp.temp_short[3];
+		temp.temp_short[3] = t1;
+#endif
+#ifdef SWAP_DOUBLE
+		if (PUTLONG(xdrs, &temp.temp_long[1]) &&
+			PUTLONG(xdrs, &temp.temp_long[0]))
+		{
+			return TRUE;
+		}
+		return FALSE;
+#else
+		if (PUTLONG(xdrs, &temp.temp_long[0]) &&
+			PUTLONG(xdrs, &temp.temp_long[1]))
+		{
+			return TRUE;
+		}
+		return FALSE;
+#endif
+
+	case XDR_DECODE:
+#ifdef SWAP_DOUBLE
+		if (!GETLONG(xdrs, &temp.temp_long[1]) ||
+			!GETLONG(xdrs, &temp.temp_long[0]))
+			return FALSE;
+#else
+		if (!GETLONG(xdrs, &temp.temp_long[0]) ||
+			!GETLONG(xdrs, &temp.temp_long[1]))
+			return FALSE;
+#endif
+#ifdef VAX_FLOAT
+		t1 = temp.temp_short[0];
+		temp.temp_short[0] = temp.temp_short[1];
+		temp.temp_short[1] = t1;
+		t1 = temp.temp_short[2];
+		temp.temp_short[2] = temp.temp_short[3];
+		temp.temp_short[3] = t1;
+		if (!temp.temp_long[1] && !(temp.temp_long[0] ^ 0x8000))
+			temp.temp_long[0] = 0;
+		else if (temp.temp_long[1] || temp.temp_long[0])
+			temp.temp_short[0] += 0x20;
+#endif
+		*ip = temp.temp_double;
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+#ifdef VMS
+bool_t xdr_d_float(xdrs, ip)
+	 register XDR *xdrs;
+	 register double *ip;
+{
+/**************************************
+ *
+ *	x d r _ d _ f l o a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+	double temp;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		temp = MTH$CVT_D_G(ip);
+		return xdr_double(xdrs, &temp);
+
+	case XDR_DECODE:
+		if (!xdr_double(xdrs, ip))
+			return FALSE;
+		*ip = MTH$CVT_G_D(ip);
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+}
+#endif
+
+
+bool_t xdr_enum(register XDR * xdrs, enum_t * ip)
+{
+/**************************************
+ *
+ *	x d r _ e n u m
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+	SLONG temp;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		temp = (SLONG) * ip;
+		return PUTLONG(xdrs, &temp);
+
+	case XDR_DECODE:
+		if (!GETLONG(xdrs, &temp))
+			return FALSE;
+		*ip = (enum_t) temp;
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+bool_t xdr_float(register XDR * xdrs, register float *ip)
+{
+/**************************************
+ *
+ *	x d r _ f l o a t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+#ifdef VAX_FLOAT
+	SSHORT t1;
+	union {
+		float temp_float;
+		SLONG temp_long;
+		USHORT temp_short[2];
+	} temp;
+#endif
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+#ifdef VAX_FLOAT
+		temp.temp_float = *ip;
+		if (temp.temp_float)
+		{
+			t1 = temp.temp_short[0];
+			temp.temp_short[0] = temp.temp_short[1];
+			temp.temp_short[1] = t1 - 0x100;
+		}
+		if (!PUTLONG(xdrs, &temp))
+			return FALSE;
+		return TRUE;
+#else
+		return PUTLONG(xdrs, reinterpret_cast<SLONG*>(ip));
+#endif
+
+	case XDR_DECODE:
+#ifdef VAX_FLOAT
+		if (!GETLONG(xdrs, &temp))
+			return FALSE;
+		if (!(temp.temp_long ^ 0x80000000))
+			temp.temp_long = 0;
+		else if (temp.temp_long)
+		{
+			t1 = temp.temp_short[1];
+			temp.temp_short[1] = temp.temp_short[0];
+			temp.temp_short[0] = t1 + 0x100;
+		}
+		*ip = temp.temp_float;
+		return TRUE;
+#else
+#pragma FB_COMPILER_MESSAGE("BUGBUG! No way float* and SLONG* are compatible!")
+		return GETLONG(xdrs, reinterpret_cast<SLONG*>(ip));
+#endif
+
+	case XDR_FREE:
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+/**
+	This routine is duplicated in remote/protocol.c for IMP.
+**/
+bool_t xdr_free(xdrproc_t proc, SCHAR * objp)
+{
+/**************************************
+ *
+ *	x d r _ f r e e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Perform XDR_FREE operation on an XDR structure
+ *
+ **************************************/
+	XDR xdrs;
+
+	xdrs.x_op = XDR_FREE;
+
+	return reinterpret_cast < bool_t(*)(...) > (*proc) (&xdrs, objp);
+}
+
+
+bool_t xdr_int(register XDR * xdrs, register int *ip)
+{
+/**************************************
+ *
+ *	x d r _ i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+	SLONG temp;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		temp = *ip;
+		return PUTLONG(xdrs, &temp);
+
+	case XDR_DECODE:
+		if (!GETLONG(xdrs, &temp))
+			return FALSE;
+		*ip = (int) temp;
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+bool_t xdr_long(register XDR * xdrs, register SLONG * ip)
+{
+/**************************************
+ *
+ *	x d r _ l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		return PUTLONG(xdrs, ip);
+
+	case XDR_DECODE:
+		return GETLONG(xdrs, ip);
+
+	case XDR_FREE:
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+bool_t xdr_opaque(register XDR * xdrs, register SCHAR * p, register u_int len)
+{
+/**************************************
+ *
+ *	x d r _ o p a q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Encode, decode, or free an opaque object.
+ *
+ **************************************/
+	SCHAR trash[4];
+	SSHORT l;
+
+	l = (4 - len) & 3;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		if (!PUTBYTES(xdrs, p, len))
+			return FALSE;
+		if (l)
+			return PUTBYTES(xdrs, trash, l);
+		return TRUE;
+
+	case XDR_DECODE:
+		if (!GETBYTES(xdrs, p, len))
+			return FALSE;
+		if (l)
+			return GETBYTES(xdrs, trash, l);
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+bool_t xdr_short(register XDR * xdrs, register SSHORT * ip)
+{
+/**************************************
+ *
+ *	x d r _ s h o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+	SLONG temp;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		temp = *ip;
+		return PUTLONG(xdrs, &temp);
+
+	case XDR_DECODE:
+		if (!GETLONG(xdrs, &temp))
+			return FALSE;
+		*ip = (SSHORT) temp;
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+bool_t xdr_string(register XDR * xdrs,
+				  register SCHAR ** sp, register u_int maxlength)
+{
+/**************************************
+ *
+ *	x d r _ s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Encode, decode, or free a string.
+ *
+ **************************************/
+	SCHAR trash[4];
+	u_long length;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		length = strlen(*sp);
+		if (length > maxlength ||
+			!PUTLONG(xdrs, reinterpret_cast<SLONG*>(&length)) ||
+			!PUTBYTES(xdrs, *sp, length))
+			return FALSE;
+		if ((length = (4 - length) & 3) != 0)
+			return PUTBYTES(xdrs, trash, length);
+		return TRUE;
+
+	case XDR_DECODE:
+		if (!*sp)
+		{
+			*sp = (TEXT *) XDR_ALLOC((SLONG) (maxlength + 1));
+			/* FREE: via XDR_FREE call to this procedure */
+			if (!*sp)			/* NOMEM: return error */
+				return FALSE;
+			DEBUG_XDR_ALLOC(sp, *sp, (maxlength + 1));
+		}
+		if (!GETLONG(xdrs, reinterpret_cast<SLONG*>(&length)) ||
+			length > maxlength || !GETBYTES(xdrs, *sp, length))
+			return FALSE;
+		(*sp)[length] = 0;
+		if ((length = (4 - length) & 3) != 0)
+			return GETBYTES(xdrs, trash, length);
+		return TRUE;
+
+	case XDR_FREE:
+		if (*sp)
+		{
+			XDR_FREE(*sp);
+			DEBUG_XDR_FREE(sp, *sp, (maxlength + 1));
+			*sp = NULL;
+		}
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+bool_t xdr_u_int(register XDR * xdrs, register u_int * ip)
+{
+/**************************************
+ *
+ *	x d r _ u _ i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+	SLONG temp;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		temp = *ip;
+		return PUTLONG(xdrs, &temp);
+
+	case XDR_DECODE:
+		if (!GETLONG(xdrs, &temp))
+			return FALSE;
+		*ip = temp;
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+
+	default:
+		return FALSE;
+	}
+}
+
+
+bool_t xdr_u_long(register XDR * xdrs, register u_long * ip)
+{
+/**************************************
+ *
+ *	x d r _ u _ l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		return PUTLONG(xdrs, reinterpret_cast < long *>(ip));
+
+	case XDR_DECODE:
+		if (!GETLONG(xdrs, reinterpret_cast < long *>(ip)))
+			  return FALSE;
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+bool_t xdr_u_short(register XDR * xdrs, register u_short * ip)
+{
+/**************************************
+ *
+ *	x d r _ u _ s h o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+	SLONG temp;
+
+	switch (xdrs->x_op)
+	{
+	case XDR_ENCODE:
+		temp = *ip;
+		return PUTLONG(xdrs, &temp);
+
+	case XDR_DECODE:
+		if (!GETLONG(xdrs, &temp))
+			return FALSE;
+		*ip = (u_int) temp;
+		return TRUE;
+
+	case XDR_FREE:
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+
+int xdr_union(	XDR*			xdrs,
+				enum_t*			dscmp,
+				SCHAR*			unp,
+				xdr_discrim*	choices,
+				xdrproc_t		dfault)
+{
+/**************************************
+ *
+ *	x d r _ u n i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Descriminated union.  Yuckola.
+ *
+ **************************************/
+
+	// TMN: Added temporary int to hold the enum_t, since an enum
+	// can have any size.
+	int enum_value = *dscmp;
+	const bool_t bOK = xdr_int(xdrs, &enum_value);
+	*dscmp = enum_t(enum_value);
+
+	if (!bOK)
+	{
+		return FALSE;
+	}
+
+	for (; choices->proc; ++choices)
+	{
+		if (*dscmp == choices->value)
+		{
+			return reinterpret_cast<int(*)(...)>(*choices->proc)(xdrs, unp);
+		}
+	}
+
+	if (dfault)
+	{
+		return reinterpret_cast<int(*)(...)>(*dfault)(xdrs, unp);
+	}
+
+	return FALSE;
+}
+
+
+bool_t xdr_wrapstring(register XDR * xdrs, register SCHAR ** strp)
+{
+/**************************************
+ *
+ *	x d r _ w r a p s t r i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Map from external to internal representation (or vice versa).
+ *
+ **************************************/
+
+	return xdr_string(xdrs, strp, MAXSTRING_FOR_WRAPSTRING);
+}
+
+
+int xdrmem_create(	register XDR*	xdrs,
+					SCHAR*			addr,
+					u_int			len,
+					enum xdr_op		x_op)
+{
+/**************************************
+ *
+ *	x d r m e m _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize an "in memory" register XDR stream.
+ *
+ **************************************/
+
+	xdrs->x_base = xdrs->x_private = addr;
+	xdrs->x_handy = len;
+	xdrs->x_ops = &mem_ops;
+	xdrs->x_op = x_op;
+
+	return TRUE;
+}
+
+
+static XDR_INT mem_destroy(register XDR * xdrs)
+{
+/**************************************
+ *
+ *	m e m _ d e s t r o y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Destroy a stream.  A no-op.
+ *
+ **************************************/
+	return TRUE;
+}
+
+
+static bool_t mem_getbytes(	register XDR*	xdrs,
+							register SCHAR*	buff,
+							register u_int	count)
+{
+/**************************************
+ *
+ *	m e m _ g e t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get a bunch of bytes from a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+	if ((xdrs->x_handy -= bytecount) < 0)
+	{
+		xdrs->x_handy += bytecount;
+		return FALSE;
+	}
+
+	if (bytecount)
+	{
+		memcpy(buff, xdrs->x_private, bytecount);
+		xdrs->x_private += bytecount;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t mem_getlong( register XDR * xdrs, register SLONG * lp)
+{
+/**************************************
+ *
+ *	m e m _ g e t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	register SLONG *p;
+
+	if ((xdrs->x_handy -= sizeof(SLONG)) < 0)
+	{
+		xdrs->x_handy += sizeof(SLONG);
+		return FALSE;
+	}
+
+	p = (SLONG *) xdrs->x_private;
+	*lp = ntohl(*p++);
+	xdrs->x_private = (SCHAR *) p;
+
+	return TRUE;
+}
+
+
+static u_int mem_getpostn( register XDR * xdrs)
+{
+/**************************************
+ *
+ *	m e m _ g e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	return (u_int) (xdrs->x_private - xdrs->x_base);
+}
+
+
+static caddr_t mem_inline( register XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	m e m _  i n l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a pointer to somewhere in the buffer.
+ *
+ **************************************/
+
+	if (bytecount >
+		(u_int) ((xdrs->x_private + xdrs->x_handy) -
+				 xdrs->x_base)) return FALSE;
+
+	return xdrs->x_base + bytecount;
+}
+
+
+static bool_t mem_putbytes(
+						   register XDR * xdrs,
+						   register SCHAR * buff, register u_int count)
+{
+/**************************************
+ *
+ *	m e m _ p u t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put a bunch of bytes to a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+
+	if ((xdrs->x_handy -= bytecount) < 0)
+	{
+		xdrs->x_handy += bytecount;
+		return FALSE;
+	}
+
+	if (bytecount)
+	{
+		memcpy(xdrs->x_private, buff, bytecount);
+		xdrs->x_private += bytecount;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t mem_putlong( register XDR * xdrs, register SLONG * lp)
+{
+/**************************************
+ *
+ *	m e m _ p u t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+	register SLONG *p;
+
+	if ((xdrs->x_handy -= sizeof(SLONG)) < 0)
+	{
+		xdrs->x_handy += sizeof(SLONG);
+		return FALSE;
+	}
+
+	p = (SLONG *) xdrs->x_private;
+	*p++ = htonl(*lp);
+	xdrs->x_private = (SCHAR *) p;
+
+	return TRUE;
+}
+
+
+static bool_t mem_setpostn( register XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *	m e m _ s e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the current position (which is also current length) from stream.
+ *
+ **************************************/
+	u_int length;
+
+	length = (u_int) ((xdrs->x_private - xdrs->x_base) + xdrs->x_handy);
+
+	if (bytecount > length)
+		return FALSE;
+
+	xdrs->x_handy = length - bytecount;
+	xdrs->x_private = xdrs->x_base + bytecount;
+
+	return TRUE;
+}
+
+} // extern "C"
diff --git a/src/remote/xdr.h b/src/remote/xdr.h
new file mode 100644
index 0000000000..3931309e49
--- /dev/null
+++ b/src/remote/xdr.h
@@ -0,0 +1,117 @@
+/*
+ *	PROGRAM:	External Data Representation
+ *	MODULE:		xdr.h
+ *	DESCRIPTION:	GDS version of Sun's XDR Package.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef REMOTE_XDR_H
+#define REMOTE_XDR_H
+
+#include "../jrd/common.h"
+
+#ifdef VMS
+#include "../remote/types.h"
+#include "../remote/in.h"
+#define TYPES_DEFINED
+#endif
+
+#ifdef WIN_NT
+#include <sys/types.h>
+#include <winsock.h>
+typedef	char *	caddr_t;
+#define TYPES_DEFINED
+#endif
+
+#ifndef TYPES_DEFINED
+#include <sys/types.h>
+#include <netinet/in.h>
+#ifdef NETWARE_386
+#undef caddr_t
+typedef char *  caddr_t;
+#endif
+#ifdef _AIX
+#include <sys/select.h>
+#endif
+#else
+#undef TYPES_DEFINED
+#endif
+
+#define XDR_INT	int
+#define bool_t	int
+#define TRUE	1
+#define FALSE	0
+#ifndef enum_t
+#define enum_t	enum xdr_op
+#endif
+
+#ifdef DELTA
+#define u_int	uint
+#endif
+
+#define xdr_getpostn(xdr)	((*(*xdr).x_ops->x_getpostn)(xdr))
+#define xdr_destroy(xdr)	(*(*xdr).x_ops->x_destroy)()
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+enum xdr_op { XDR_ENCODE = 0, XDR_DECODE = 1, XDR_FREE = 2 };
+
+typedef struct xdr_t
+{
+	enum xdr_op	x_op;			/* operation; fast additional param */
+	struct xdr_ops
+	{
+		bool_t  (*x_getlong)(struct xdr_t*, SLONG*);		/* get a long from underlying stream */
+		bool_t  (*x_putlong)(struct xdr_t*, SLONG*);		/* put a long to " */
+		bool_t  (*x_getbytes)(struct xdr_t*, SCHAR *, u_int);	/* get some bytes from " */
+		bool_t  (*x_putbytes)(struct xdr_t*, SCHAR *, u_int);	/* put some bytes to " */
+		u_int   (*x_getpostn)(struct xdr_t*);	/* returns bytes offset from beginning*/
+		bool_t  (*x_setpostn)(struct xdr_t*, u_int);	/* repositions position in stream */
+		caddr_t (*x_inline)(struct xdr_t*, u_int);		/* buf quick ptr to buffered data */
+		XDR_INT (*x_destroy)(struct xdr_t*);		/* free privates of this xdr_stream */
+	} const *x_ops;
+	caddr_t	x_public;	/* Users' data */
+	caddr_t	x_private;	/* pointer to private data */
+	caddr_t	x_base;		/* private used for position info */
+	int		x_handy;	/* extra private word */
+} XDR;
+
+/* Descriminated union crud */
+
+typedef bool_t			(*xdrproc_t)();
+#define NULL_xdrproc_t	((xdrproc_t) 0)
+
+struct xdr_discrim
+{
+	enum_t		value;
+	xdrproc_t	proc;
+};
+
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+
+#endif /* REMOTE_XDR_H */
+
diff --git a/src/remote/xdr_proto.h b/src/remote/xdr_proto.h
new file mode 100644
index 0000000000..73ffaf5704
--- /dev/null
+++ b/src/remote/xdr_proto.h
@@ -0,0 +1,56 @@
+/*
+ *	PROGRAM:	JRD Remote Server 
+ *	MODULE:		xdr_proto.h
+ *	DESCRIPTION:	Prototype Header file for xdr.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef REMOTE_XDR_PROTO_H
+#define REMOTE_XDR_PROTO_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+extern bool_t	xdr_bool (register XDR *, register int *);
+extern bool_t	xdr_bytes (register XDR *, register SCHAR * *, u_int *, register u_int);
+extern bool_t	xdr_double (register XDR *, register double *);
+extern bool_t	xdr_enum (register XDR *, enum xdr_op *);
+extern bool_t	xdr_float (register XDR *, register float *);
+extern bool_t	xdr_free (xdrproc_t proc, SCHAR *objp);
+extern bool_t	xdr_int (register XDR *, register int *);
+extern bool_t	xdr_long (register XDR *, register SLONG *);
+extern bool_t	xdrmem_create (register XDR *, SCHAR *, u_int, enum xdr_op);
+extern bool_t	xdr_opaque (register XDR *, register SCHAR *, register u_int);
+extern bool_t	xdr_short (register XDR *, register SSHORT *);
+extern bool_t	xdr_string (register XDR *, register SCHAR * *, register u_int);
+extern bool_t	xdr_u_int (register XDR *, register u_int *);
+extern bool_t	xdr_u_long (register XDR *, register u_long *);
+extern bool_t	xdr_u_short (register XDR *, register u_short *);
+extern int		xdr_union (XDR *, enum xdr_op *, SCHAR *, struct xdr_discrim *, xdrproc_t);
+extern bool_t	xdr_wrapstring (register XDR *, register SCHAR **);
+
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+
+#endif	/* REMOTE_XDR_PROTO_H */
diff --git a/src/remote/xnet.cpp b/src/remote/xnet.cpp
new file mode 100644
index 0000000000..c03add398e
--- /dev/null
+++ b/src/remote/xnet.cpp
@@ -0,0 +1,2535 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *      MODULE:         xnet.c
+ *      DESCRIPTION:    Interprocess Server Communications module.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef  XNET
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../remote/remote.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/thd.h"
+#include "../jrd/iberr.h"
+#include "../remote/xnet.h"
+#include "../utilities/install_nt.h"
+#include "../remote/cntl_proto.h"
+#include "../remote/proto_proto.h"
+#include "../remote/remot_proto.h"
+#include "../remote/xnet_proto.h"
+#include "../remote/window.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/sch_proto.h"
+#include "../jrd/thd_proto.h"
+#include "../remote/inet_proto.h"	/* for INET_alloc_port */
+
+#include <stdarg.h>
+
+#ifdef WIN_NT
+#include <windows.h>
+#endif /* WIN_NT */
+
+#if !(defined VMS || defined WIN_NT)
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <errno.h>
+#include <unistd.h>
+#include <sys/param.h>
+#include <netinet/in.h>
+#include <arpa/inet.h>
+#include <netdb.h>
+#endif
+
+extern "C" {
+
+
+#ifdef WIN_NT
+#define ERRNO		GetLastError()
+#endif
+
+#ifdef UNIX
+#define ERRNO		errno
+#endif
+
+#define PROTOCOL_NAME	"gds_db"
+
+#ifndef SYS_ERR
+#define SYS_ERR		gds_arg_win32
+#endif
+
+#ifndef MAX_DATA
+#define MAX_DATA	2048
+#endif
+
+#define MAX_SEQUENCE	256
+
+/* see inet.c for platforms other that UNIX */
+#ifdef UNIX
+#define XNET_RETRY_CALL 5
+#define SOCKET int
+#define INVALID_SOCKET -1
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN	1024
+#endif
+
+extern int xdrmem_create();
+
+static int accept_connection(PORT, P_CNCT *);
+static PORT alloc_port(PORT, UCHAR *, USHORT, UCHAR *, ULONG);
+static PORT aux_connect(PORT, PACKET *, XDR_INT(*)(void));
+static PORT aux_request(PORT, PACKET *);
+static ULONG connection_setup(TEXT *, PACKET *, STATUS *);
+static void cleanup_comm(XCC);
+static void cleanup_port(PORT);
+static void disconnect(PORT);
+static void exit_handler(PORT);
+static XPM make_map(USHORT);
+static int packet_receive(PORT, USHORT *);
+static int packet_send(PORT, SSHORT);
+static PORT receive(PORT, PACKET *);
+static int send_full(PORT, PACKET *);
+static int send_partial(PORT, PACKET *);
+static void server_shutdown(void);
+static void server_watcher(void);
+static int xdrxnet_create(XDR *, PORT, UCHAR *, USHORT, enum xdr_op);
+static bool_t xdrxnet_endofrecord(XDR *, int);
+static void xnet_copy(SCHAR *, SCHAR *, int);
+static int xnet_destroy(XDR *);
+static int xnet_error(PORT, TEXT *, STATUS, int);
+static void xnet_gen_error(PORT, STATUS, ...);
+static bool_t xnet_getbytes(XDR *, SCHAR *, u_int);
+#ifndef NEW
+static bool_t xnet_getlong(XDR *, SLONG *);
+#else
+static bool_t xnet_getlong(XDR *, SCHAR *);
+#endif
+static u_int xnet_getpostn(XDR *);
+static caddr_t xnet_inline(XDR *, u_int);
+#ifndef NEW
+static bool_t xnet_putlong(XDR *, SLONG *);
+#else
+static bool_t xnet_putlong(XDR *, SCHAR *);
+#endif
+static bool_t xnet_putbytes(XDR *, SCHAR *, u_int);
+static bool_t xnet_read(XDR *);
+static bool_t xnet_setpostn(XDR *, u_int);
+static bool_t xnet_write(XDR *, int);
+
+static xdr_t::xdr_ops xnet_ops = {
+	xnet_getlong,
+	xnet_putlong,
+	xnet_getbytes,
+	xnet_putbytes,
+	xnet_getpostn,
+	xnet_setpostn,
+	xnet_inline,
+	xnet_destroy
+};
+
+#ifndef MAX_PTYPE
+#define MAX_PTYPE	ptype_out_of_band
+#endif
+
+static USHORT pages_per_user = XPS_DEF_PAGES_PER_CLI;
+static USHORT users_per_map = XPS_DEF_NUM_CLI;
+static USHORT num_maps = XPS_DEF_NUM_MAPS;
+static XPM xpms = NULL;
+static XPM first_xpm = NULL;
+static XCC client_threads = NULL;
+static XPM client_maps = NULL;
+#ifdef WIN_NT
+static HANDLE server_watcher_handle = 0;
+static HANDLE server_process_handle = 0;
+#endif
+static USHORT exit_flag = 0;
+static USHORT initialized = 0;
+static MUTX_T xnet_mutex;
+
+
+
+
+
+PORT XNET_analyze(
+				  TEXT * file_name,
+				  USHORT * file_length,
+				  STATUS * status_vector,
+				  TEXT * node_name, TEXT * user_string, USHORT uv_flag)
+{
+/**************************************
+ *
+ *      X N E T _ a n a l y z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Determine whether the file name has a "\\nodename".
+ *	If so, establish an external connection to the node.
+ *
+ *	If a connection is established, return a port block, otherwise
+ *	return NULL.
+ *
+ **************************************/
+	RDB rdb;
+	PORT port;
+	PACKET *packet;
+	P_CNCT *cnct;
+	SSHORT user_length;
+	TEXT *p, user_id[128], buffer[64];
+
+	p_cnct::p_cnct_repeat * protocol;
+
+
+	*file_length = strlen(file_name);
+
+/* We need to establish a connection to a remote server.  Allocate the necessary
+   blocks and get ready to go. */
+
+	rdb = (RDB) ALLOC(type_rdb);
+	packet = &rdb->rdb_packet;
+
+/* Pick up some user identification information */
+
+	user_id[0] = CNCT_user;
+	p = user_id + 2;
+	ISC_get_user(p, 0, 0, 0, 0, 0, 0);
+	user_id[1] = strlen(p);
+
+	for (; *p; p++)
+		if (*p >= 'A' && *p <= 'Z')
+			*p = *p - 'A' + 'a';
+
+	*p++ = CNCT_host;
+	p++;
+	ISC_get_host(p, (USHORT) (user_id + sizeof(user_id) - p));
+	p[-1] = strlen(p);
+
+	for (; *p; p++)
+		if (*p >= 'A' && *p <= 'Z')
+			*p = *p - 'A' + 'a';
+
+	if (uv_flag) {
+		*p++ = CNCT_user_verification;
+		*p++ = 0;
+	}
+
+	user_length = p - user_id;
+
+
+/* Establish connection to server */
+
+	cnct = &packet->p_cnct;
+	packet->p_operation = op_connect;
+	cnct->p_cnct_operation = op_attach;
+	cnct->p_cnct_cversion = CONNECT_VERSION2;
+	cnct->p_cnct_client = ARCHITECTURE;
+	cnct->p_cnct_file.cstr_length = *file_length;
+	cnct->p_cnct_file.cstr_address = (UCHAR *) file_name;
+
+/* Note: prior to V3.1E a recievers could not in truth handle more
+   then 5 protocol descriptions; however, the interprocess server 
+   was created in 4.0 so this does not apply */
+
+#ifdef SCROLLABLE_CURSORS
+	cnct->p_cnct_count = 8;
+#else
+	cnct->p_cnct_count = 6;
+#endif
+
+	cnct->p_cnct_user_id.cstr_length = user_length;
+	cnct->p_cnct_user_id.cstr_address = (UCHAR *) user_id;
+
+
+
+	protocol = cnct->p_cnct_versions;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION7;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 2;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION7;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 3;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION8;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 4;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION8;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 5;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION10;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 6;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_VERSION10;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 7;
+
+#ifdef SCROLLABLE_CURSORS
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_SCROLLABLE_CURSORS;
+	protocol->p_cnct_architecture = arch_generic;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 8;
+
+	++protocol;
+
+	protocol->p_cnct_version = PROTOCOL_SCROLLABLE_CURSORS;
+	protocol->p_cnct_architecture = ARCHITECTURE;
+	protocol->p_cnct_min_type = ptype_rpc;
+	protocol->p_cnct_max_type = MAX_PTYPE;
+	protocol->p_cnct_weight = 9;
+#endif
+
+/* If we can't talk to a server, punt.  Let somebody else generate
+   an error. */
+
+	if (!(port = XNET_connect(node_name, packet, status_vector, FALSE))) {
+		ALLR_release((BLK) rdb);
+		return NULL;
+	}
+
+/* Get response packet from server. */
+
+	rdb->rdb_port = port;
+	port->port_context = rdb;
+	port->receive(packet);
+
+	if (packet->p_operation == op_reject && !uv_flag) {
+		disconnect(port);
+		packet->p_operation = op_connect;
+		cnct->p_cnct_operation = op_attach;
+		cnct->p_cnct_cversion = CONNECT_VERSION2;
+		cnct->p_cnct_client = ARCHITECTURE;
+		cnct->p_cnct_file.cstr_length = *file_length;
+		cnct->p_cnct_file.cstr_address = (UCHAR *) file_name;
+
+		/* try again with next set of known protocols */
+
+		cnct->p_cnct_count = 4;
+
+		cnct->p_cnct_user_id.cstr_length = user_length;
+		cnct->p_cnct_user_id.cstr_address = (UCHAR *) user_id;
+
+		protocol = cnct->p_cnct_versions;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION4;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 2;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION4;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 3;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION6;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 4;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION6;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 5;
+
+		if (!(port = XNET_connect(node_name, packet, status_vector, FALSE))) {
+			ALLR_release((BLK) rdb);
+			return NULL;
+		}
+
+		/* Get response packet from server. */
+
+		rdb->rdb_port = port;
+		port->port_context = rdb;
+		port->receive(packet);
+	}
+
+	if (packet->p_operation == op_reject && !uv_flag) {
+		disconnect(port);
+		packet->p_operation = op_connect;
+		cnct->p_cnct_operation = op_attach;
+		cnct->p_cnct_cversion = CONNECT_VERSION2;
+		cnct->p_cnct_client = ARCHITECTURE;
+		cnct->p_cnct_file.cstr_length = *file_length;
+		cnct->p_cnct_file.cstr_address = (UCHAR *) file_name;
+
+		/* try again with next set of known protocols */
+
+		cnct->p_cnct_count = 2;
+
+		cnct->p_cnct_user_id.cstr_length = user_length;
+		cnct->p_cnct_user_id.cstr_address = (UCHAR *) user_id;
+
+		protocol = cnct->p_cnct_versions;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION3;
+		protocol->p_cnct_architecture = arch_generic;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 2;
+
+		++protocol;
+
+		protocol->p_cnct_version = PROTOCOL_VERSION3;
+		protocol->p_cnct_architecture = ARCHITECTURE;
+		protocol->p_cnct_min_type = ptype_rpc;
+		protocol->p_cnct_max_type = ptype_batch_send;
+		protocol->p_cnct_weight = 3;
+
+		if (!(port = XNET_connect(node_name, packet, status_vector, FALSE))) {
+			ALLR_release((BLK) rdb);
+			return NULL;
+		}
+
+		/* Get response packet from server. */
+
+		rdb->rdb_port = port;
+		port->port_context = rdb;
+		port->receive(packet);
+	}
+
+	if (packet->p_operation != op_accept) {
+		*status_vector++ = gds_arg_gds;
+		*status_vector++ = gds__connect_reject;
+		*status_vector++ = 0;
+		disconnect(port);
+		return NULL;
+	}
+
+	port->port_protocol = packet->p_acpt.p_acpt_version;
+
+/* once we've decided on a protocol, concatenate the version 
+   string to reflect it...  */
+
+	sprintf(buffer, "%s/P%d", port->port_version->str_data,
+			port->port_protocol);
+	ALLR_free((UCHAR *) port->port_version);
+	port->port_version = REMOTE_make_string(buffer);
+
+	if (packet->p_acpt.p_acpt_architecture == ARCHITECTURE)
+		port->port_flags |= PORT_symmetric;
+
+	if (packet->p_acpt.p_acpt_type == ptype_rpc)
+		port->port_flags |= PORT_rpc;
+
+	if (packet->p_acpt.p_acpt_type != ptype_out_of_band)
+		port->port_flags |= PORT_no_oob;
+
+	return port;
+}
+
+
+PORT XNET_connect(TEXT * name,
+				  PACKET * packet, STATUS * status_vector, USHORT flag)
+{
+/**************************************
+ *
+ *      X N E T _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Establish half of a communication link.  If a connect packet is given,
+ *	the connection is on behalf of a remote interface.  Otherwise the
+ *	connect is for a server process.
+ *
+ **************************************/
+	XCC xcc = (XCC) 0;
+#ifdef SUPERCLIENT
+	XPM xpm;
+	ULONG number;
+	USHORT mapped_area, mapped_position;
+	TEXT name_buffer[128];
+	DWORD last_error;
+	FILE_ID file_handle;
+	CADDR_T mapped_address;
+	PID_T client_pid;
+#ifdef WIN_NT
+	DWORD current_thread_id;
+#endif
+	UCHAR *start_ptr;
+	USHORT espace;
+	XPS xps;
+	USHORT avail;
+	PORT port;
+#endif
+
+
+
+	if (!initialized) {
+		initialized = 1;
+		gds__register_cleanup(exit_handler, NULL);
+		THD_mutex_init(&xnet_mutex);
+	}
+
+/* set up for unavailable server */
+
+	status_vector[0] = isc_arg_gds;
+	status_vector[1] = isc_unavailable;
+	status_vector[2] = isc_arg_end;
+
+/* server can't do jumps */
+
+#ifndef SUPERCLIENT
+
+	return NULL;
+
+#else /* SUPERCLIENT */
+/* see if this thread has been connected yet, and if not, do so */
+
+	THREAD_EXIT;
+	THD_mutex_lock(&xnet_mutex);
+	THREAD_ENTER;
+#ifdef WIN_NT
+	current_thread_id = GetCurrentThreadId();
+#else
+/* STUB : need to have a equivalent function, should be stored 
+   and passed around , I donot think we need thread id */
+#endif
+/*
+for (xcc = client_threads; xcc; xcc = xcc->xcc_next)
+    if (xcc->xcc_thread_handle == current_thread_id &&
+	!(xcc->xcc_flags & XCCF_SERVER_SHUTDOWN))
+	break;
+*/
+	if (!xcc)
+	{
+		/* send a message to the server to get the next available
+		   attachment, a 32 bit value with a mapped memory file
+		   ID in the high order and an allocated area in that
+		   mapped file in the low order */
+
+#ifdef WIN_NT
+		client_pid = GetCurrentProcessId();
+		HWND hWndServer = FindWindow(szClassName, APP_NAME);
+		number = (ULONG) SendMessage(hWndServer,
+									 IP_CONNECT_MESSAGE, 0,
+									 (LPARAM) client_pid);
+#else /* WIN_NT */
+		client_pid = getpid();
+		number = connection_setup(name, packet, *status_vector);
+		/* STUB need to inform the server for connection and receive the
+		   return value */
+#endif
+		if (!number || number == (ULONG) - 1) {
+			THD_mutex_unlock(&xnet_mutex);
+			return 0;
+		}
+		pages_per_user = (USHORT) XPS_UNPACK_PAGES(number);
+		users_per_map = (USHORT) XPS_UNPACK_MAX_USERS(number);
+		mapped_area = (SSHORT) XPS_UNPACK_MAPNUM(number);
+		mapped_position = (SSHORT) XPS_UNPACK_USERNUM(number);
+
+		/* see if area is already mapped for this client */
+
+		for (xpm = client_maps; xpm; xpm = xpm->xpm_next)
+			if (xpm->xpm_number == mapped_area &&
+				!(xpm->xpm_flags & XPMF_SERVER_SHUTDOWN)) break;
+
+		if (!xpm) {
+			/* add new mapping */
+
+			sprintf(name_buffer, XPI_MAPPED_FILE_NAME, mapped_area);
+#ifdef WIN_NT
+			file_handle = OpenFileMapping(FILE_MAP_WRITE, FALSE, name_buffer);
+			if (!file_handle) {
+				THD_mutex_unlock(&xnet_mutex);
+				return 0;
+			}
+			mapped_address =
+				MapViewOfFile(file_handle, FILE_MAP_WRITE, 0L, 0L,
+							  XPS_MAPPED_SIZE(users_per_map, pages_per_user));
+			if (!mapped_address) {
+				last_error = ERRNO;
+				CloseHandle(file_handle);
+				THD_mutex_unlock(&xnet_mutex);
+				return 0;
+			}
+			xpm = (XPM) ALLR_alloc(sizeof(struct xpm));
+			if (!xpm) {
+				UnmapViewOfFile(mapped_address);
+				CloseHandle(file_handle);
+				THD_mutex_unlock(&xnet_mutex);
+				return 0;
+			}
+#else /* WIN_NT */
+			/* STUB : need to have mapping for the SOlaris client/server here */
+#endif
+			xpm->xpm_next = client_maps;
+			client_maps = xpm;
+			xpm->xpm_count = 0;
+			xpm->xpm_number = mapped_area;
+			xpm->xpm_handle = file_handle;
+			xpm->xpm_address = mapped_address;
+			xpm->xpm_flags = 0;
+		}
+
+		/* there's no thread structure, so make one  */
+
+		xcc = (XCC) ALLR_alloc(sizeof(struct xcc));
+		if (!xcc) {
+#ifdef WIN_NT
+			UnmapViewOfFile(mapped_address);
+			CloseHandle(file_handle);
+#else
+			/* STUB : unmap shared memory here */
+#endif
+			THD_mutex_unlock(&xnet_mutex);
+			return 0;
+		}
+		xcc->xcc_file_handle = xpm->xpm_handle;
+		xcc->xcc_mapped_addr = (UCHAR *) xpm->xpm_address +
+			XPS_MAPPED_FOR_CLI(pages_per_user, mapped_position);
+		xcc->xcc_file = mapped_area;
+		xcc->xcc_slot = mapped_position;
+		xcc->xcc_xpm = xpm;
+		xcc->xcc_flags = 0;
+		xcc->xcc_send_channel_locked = FALSE;
+		xps = (XPS) xcc->xcc_mapped_addr;
+
+
+		/* only speak if server has correct protocol */
+
+		if (xps->xps_server_protocol != 2L) {
+#ifdef WIN_NT
+			UnmapViewOfFile(mapped_address);
+			CloseHandle(file_handle);
+#else
+			/* STUB : unmap shared memory file here */
+#endif
+			THD_mutex_unlock(&xnet_mutex);
+			return 0;
+		}
+		xps->xps_client_protocol = 2L;
+#ifdef WIN_NT
+		xps->xps_server_proc =
+			OpenProcess(SYNCHRONIZE, 0, xps->xps_server_id);
+		xcc->xcc_server_proc = xps->xps_server_proc;
+#else
+		/* STUB : we need to use use some other means to figure out hte server has
+		   died */
+#endif
+		xcc->xcc_server_id = xps->xps_server_id;
+		xpm->xpm_count++;
+
+		/* get handles of semaphores */
+
+		sprintf(name_buffer, XPI_S_TO_C_SEM_NAME,
+				mapped_area, mapped_position);
+#ifdef WIN_NT
+		xcc->xcc_recv_sem =
+			OpenSemaphore(SEMAPHORE_ALL_ACCESS, FALSE, name_buffer);
+#else
+		/* STUB : need to call event init for Unix */
+#endif
+		sprintf(name_buffer, XPI_C_TO_S_SEM_NAME, mapped_area,
+				mapped_position);
+#ifdef WIN_NT
+		xcc->xcc_send_sem =
+			OpenSemaphore(SEMAPHORE_ALL_ACCESS, FALSE, name_buffer);
+#else
+		/* STUB : need to call event init for Unix */
+#endif
+
+		/* added this here from the server side as this part is called by the client 
+		   and the server address need not be valid for the client -smistry 10/29/98 */
+
+		/* we also need to add client side flags or channel pointer as they 
+		   differ from the server side */
+
+		if (pages_per_user < 4)
+			espace = 50;
+		else
+			espace = 100;
+
+		avail =
+			(USHORT) (XPS_USEFUL_SPACE(pages_per_user) - (espace * 2)) / 2;
+
+		start_ptr = (UCHAR *) xps + (sizeof(struct xps) + (2 * espace));
+
+		/* send channel */
+		xps->xps_channels[0].xch_client_ptr = start_ptr;
+		/* receive channel */
+		xps->xps_channels[1].xch_client_ptr = (start_ptr + avail);
+
+		xcc->xcc_receive_channel = &xps->xps_channels[1];
+		xcc->xcc_send_channel = &xps->xps_channels[0];
+
+
+		/* if we're not watching the server yet, do so now */
+
+#ifdef WIN_NT
+		if (!server_watcher_handle) {
+			server_process_handle = xcc->xcc_server_proc;
+			gds__thread_start((FPTR_INT) server_watcher, NULL,
+							  THREAD_high, 0, &server_watcher_handle);
+		}
+#else
+		/* STUB : we need just the server id, we donot have this thread */
+#endif
+
+		/* link to xcc chain */
+
+		xcc->xcc_next = client_threads;
+		client_threads = xcc;
+	}
+
+	THD_mutex_unlock(&xnet_mutex);
+	port = alloc_port(0, xcc->xcc_send_channel->xch_client_ptr,
+					  xcc->xcc_send_channel->xch_size,
+					  xcc->xcc_receive_channel->xch_client_ptr,
+					  xcc->xcc_receive_channel->xch_size);
+	port->port_xcc = (void *) xcc;
+	port->port_status_vector = status_vector;
+	send_full(port, packet);
+	return port;
+#endif /* SUPERCLIENT */
+}
+
+
+USHORT XNET_init(HWND hwnd,
+				 USHORT usrs_pr_mp, USHORT pgs_pr_usr, USHORT mx_mps)
+{
+/**************************************
+ *
+ *      X N E T _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Init mapped file stuff.   Returns 1 if successful,
+ *      -1 if the map already exists, and 0 otherwise.
+ *
+ **************************************/
+	XPM xpm;
+
+
+	if (!initialized) {
+		initialized = 1;
+		gds__register_cleanup(exit_handler, NULL);
+		THD_mutex_init(&xnet_mutex);
+	}
+
+/* init the limits */
+
+	if (usrs_pr_mp &&
+		usrs_pr_mp >= XPS_MIN_NUM_CLI &&
+		usrs_pr_mp <= XPS_MIN_NUM_CLI) users_per_map = usrs_pr_mp;
+
+	if (pgs_pr_usr &&
+		pgs_pr_usr >= XPS_MIN_PAGES_PER_CLI &&
+		pgs_pr_usr <= XPS_MAX_PAGES_PER_CLI) pages_per_user = pgs_pr_usr;
+
+	if (mx_mps && mx_mps >= XPS_MIN_NUM_MAPS && mx_mps <= XPS_MAX_NUM_MAPS)
+		num_maps = mx_mps;
+
+/* init mapped chain and critical regions */
+
+	xpms = NULL;
+
+/* create the first map (failure means it's already there )*/
+
+	xpm = make_map(0);
+	if (xpm && (xpm != (XPM) - 1)) {
+		first_xpm = xpm;
+		return (USHORT) 1;
+	}
+	else
+		return (USHORT) xpm;
+}
+
+
+PORT XNET_start_thread(ULONG client_pid, ULONG * response)
+{
+/**************************************
+ *
+ *      X N E T _ s t a r t _ t h r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start an interprocess thread.   This allocates
+ *	the next available chunk of the mapped file and
+ *	tells the client where it is.
+ *
+ **************************************/
+	XCC xcc;
+	PORT port;
+	USHORT mapped_area, mapped_position;
+	TEXT name_buffer[128];
+	XPM xpm;
+	USHORT i, j;
+	UCHAR *p;
+	XPS xps;
+	USHORT avail;
+	USHORT espace;
+
+/* go through list of maps */
+
+	THD_mutex_lock(&xnet_mutex);
+	j = 0;
+	for (xpm = xpms; xpm; xpm = xpm->xpm_next) {
+		/* find an available unused comm area */
+
+		for (i = 0; i < users_per_map; i++)
+			if (!xpm->xpm_ids[i])
+				break;
+
+		if (i < users_per_map) {
+			xpm->xpm_count++;
+			xpm->xpm_ids[i]++;
+			j = xpm->xpm_number;
+			break;
+		}
+		j++;
+	}
+
+/* if the mapped file structure has not yet been initialized,
+   make one now */
+
+	if (!xpm) {
+		/* allocate new map file and first slot */
+
+		xpm = make_map(j);
+
+		/* check for errors in creation of mapped file */
+
+		if (!xpm || xpm == (XPM) - 1) {
+			THD_mutex_unlock(&xnet_mutex);
+			return (PORT) - 1;
+		}
+		i = 0;
+		xpm->xpm_ids[0]++;
+		xpm->xpm_count++;
+	}
+
+	mapped_area = j;
+	mapped_position = i;
+
+/* allocate a communications control structure and fill it in */
+
+	xcc = (XCC) ALLR_alloc(sizeof(struct xcc));
+	if (!xcc) {
+		THD_mutex_unlock(&xnet_mutex);
+		return (PORT) - 1;
+	}
+	p = (UCHAR *) xpm->xpm_address;
+	p += XPS_MAPPED_FOR_CLI(pages_per_user, mapped_position);
+	memset(p, (char) 0, XPS_MAPPED_PER_CLI(pages_per_user));
+	xcc->xcc_next = NULL;
+	xcc->xcc_mapped_addr = (CADDR_T) p;
+	xcc->xcc_xpm = xpm;
+	xcc->xcc_slot = mapped_position;
+	xcc->xcc_flags = 0;
+	xcc->xcc_client_id = (PID_T) client_pid;
+#ifdef WIN_NT
+	xcc->xcc_client_proc = OpenProcess(SYNCHRONIZE, 0, xcc->xcc_client_id);
+#else
+/* STUB : need something for Solaris ?? I donot think so */
+#endif
+	xcc->xcc_file = mapped_area;
+	xcc->xcc_slot = mapped_position;
+	xcc->xcc_send_channel_locked = FALSE;
+	xps = (XPS) xcc->xcc_mapped_addr;
+	xps->xps_client_id = xcc->xcc_client_id;
+#ifdef WIN_NT
+	xps->xps_client_proc = xcc->xcc_client_proc;
+	xps->xps_server_id = GetCurrentProcessId();
+#else
+/* STUB : need something for Solaris ?? I donot think so */
+	xps->xps_server_id = getpid();
+#endif
+
+/* make sure client knows what this server speaks */
+
+	xps->xps_server_protocol = 2L;
+	xps->xps_client_protocol = 0L;
+
+#ifdef WIN_NT
+/* create the semaphores and put the handles into the xcc */
+
+	sprintf(name_buffer, XPI_S_TO_C_SEM_NAME, mapped_area, mapped_position);
+	xcc->xcc_send_sem = CreateSemaphore(ISC_get_security_desc(),
+										0L, 2L, name_buffer);
+	sprintf(name_buffer, XPI_C_TO_S_SEM_NAME, mapped_area, mapped_position);
+	xcc->xcc_recv_sem = CreateSemaphore(ISC_get_security_desc(),
+										0L, 2L, name_buffer);
+
+#else
+/* STUB : add create events here */
+#endif
+	xcc->xcc_receive_channel = &xps->xps_channels[0];
+	xcc->xcc_send_channel = &xps->xps_channels[1];
+
+#ifdef WIN_NT
+/* make sure semaphores are "empty" */
+
+	while (WaitForSingleObject(xcc->xcc_send_sem, 1) == WAIT_OBJECT_0);
+	while (WaitForSingleObject(xcc->xcc_recv_sem, 1) == WAIT_OBJECT_0);
+#else
+/* STUB this should be event clear */
+#endif
+
+/* set up the channel structures */
+
+	if (pages_per_user < 4)
+		espace = 50;
+	else
+		espace = 100;
+
+	p += sizeof(struct xps);
+	avail = (USHORT) XPS_USEFUL_SPACE(pages_per_user);
+	xps->xps_channels[2].xch_buffer = p;	/* client to server events */
+	xps->xps_channels[2].xch_size = espace;
+	p += espace;
+	xps->xps_channels[3].xch_buffer = p;	/* server to client events */
+	xps->xps_channels[3].xch_size = espace;
+	p += espace;
+	avail = (avail - (espace * 2)) / 2;	/* split remainer in half */
+	xps->xps_channels[0].xch_buffer = p;	/* client to server data */
+	xps->xps_channels[0].xch_size = avail;
+	p += avail;
+	xps->xps_channels[1].xch_buffer = p;	/* server to client data */
+	xps->xps_channels[1].xch_size = avail;
+
+/* finally, allocate and set the port structure for this client */
+
+	port = alloc_port(0, xcc->xcc_send_channel->xch_buffer,
+					  xcc->xcc_send_channel->xch_size,
+					  xcc->xcc_receive_channel->xch_buffer,
+					  xcc->xcc_receive_channel->xch_size);
+	if (port)
+		port->port_xcc = (void *) xcc;
+
+
+/* return combined mapped area and number */
+
+	THD_mutex_unlock(&xnet_mutex);
+	*response =
+		XPS_PACK_PARAMS(users_per_map, pages_per_user, mapped_area,
+						mapped_position);
+	return port;
+}
+
+
+static int accept_connection( PORT port, P_CNCT * cnct)
+{
+/**************************************
+ *
+ *	a c c e p t _ c o n n e c t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Accept an incoming request for connection.  This is purely a lower
+ *	level handshaking function, and does not constitute the server
+ *	response for protocol selection.
+ *
+ **************************************/
+	return TRUE;
+}
+
+
+static PORT alloc_port(
+					   PORT parent,
+					   UCHAR * send_buffer,
+					   USHORT send_length,
+					   UCHAR * receive_buffer, ULONG receive_length)
+{
+/**************************************
+ *
+ *	a l l o c _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate a port block, link it in to parent (if there is a parent),
+ *	and initialize input and output XDR streams.
+ *
+ **************************************/
+	PORT port;
+	TEXT buffer[64];
+
+
+	port = (PORT) ALLOCV(type_port, 0);
+/*
+port->port_type = port_ipserver;
+*/
+	port->port_type = port_xnet;
+	port->port_state = state_pending;
+	ISC_get_host(buffer, sizeof(buffer));
+	port->port_host = REMOTE_make_string(buffer);
+	port->port_connection = REMOTE_make_string(buffer);
+	sprintf(buffer, "IP Server (%s)", port->port_host->str_data);
+	port->port_version = REMOTE_make_string(buffer);
+	if (parent) {
+		port->port_parent = parent;
+		port->port_next = parent->port_clients;
+		parent->port_clients = parent->port_next = port;
+		port->port_handle = parent->port_handle;
+		port->port_server = parent->port_server;
+		port->port_server_flags = parent->port_server_flags;
+		if (port->port_connection)
+			ALLR_free((UCHAR *) port->port_connection);
+		port->port_connection =
+			REMOTE_make_string(parent->port_connection->str_data);
+	}
+
+	port->port_accept = accept_connection;
+	port->port_disconnect = disconnect;
+	port->port_receive_packet = receive;
+	port->port_send_packet = send_full;
+	port->port_send_partial = send_partial;
+	port->port_connect = aux_connect;
+	port->port_request = aux_request;
+	port->port_buff_size = send_length;
+	xdrxnet_create(&port->port_send, port, send_buffer, send_length,
+				   XDR_ENCODE);
+	xdrxnet_create(&port->port_receive, port, receive_buffer, 0, XDR_DECODE);
+	return port;
+}
+
+
+static PORT aux_connect( PORT port, PACKET * packet, XDR_INT(*ast) (void))
+{
+/**************************************
+ *
+ *	a u x _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to establish an alternative connection.
+ *      Somebody has already done a successfull connect request.
+ *      This uses the existing xcc for the parent port to more
+ *      or less duplicate a new xcc for the new aux port pointing
+ *      to the event stuff in the map.
+ *
+ **************************************/
+	PORT new_port;
+	XCC oxcc;
+	XCC xcc;
+	TEXT name_buffer[128];
+	XPS xps;
+	XPM xpm;
+
+	USHORT espace;
+
+
+	if (port->port_server_flags) {
+		port->port_flags |= PORT_async;
+		return port;
+	}
+
+/* make a new xcc */
+
+	oxcc = (XCC) port->port_xcc;
+	xps = (XPS) oxcc->xcc_mapped_addr;
+	xcc = (XCC) ALLR_alloc(sizeof(struct xcc));
+	if (!xcc)
+		return NULL;
+	xpm = (XPM) xcc->xcc_xpm = oxcc->xcc_xpm;
+	xcc->xcc_file = oxcc->xcc_file;
+	xcc->xcc_slot = oxcc->xcc_slot;
+#ifdef WIN_NT
+	xcc->xcc_server_proc = oxcc->xcc_server_proc;
+	xcc->xcc_client_proc = oxcc->xcc_client_proc;
+#endif
+	xcc->xcc_server_id = oxcc->xcc_server_id;
+	xcc->xcc_client_id = oxcc->xcc_client_id;
+	xcc->xcc_flags = 0;
+	xcc->xcc_file_handle = oxcc->xcc_file_handle;
+	xcc->xcc_mapped_addr = oxcc->xcc_mapped_addr;
+	xcc->xcc_xpm->xpm_count++;
+
+#ifdef WIN_NT
+/* get handles of semaphores */
+
+	sprintf(name_buffer, XPI_S_TO_C_EVT_SEM_NAME,
+			xcc->xcc_file, xcc->xcc_slot);
+	xcc->xcc_recv_sem = OpenSemaphore(SEMAPHORE_ALL_ACCESS, FALSE,
+									  name_buffer);
+	sprintf(name_buffer, XPI_C_TO_S_EVT_SEM_NAME,
+			xcc->xcc_file, xcc->xcc_slot);
+	xcc->xcc_send_sem = OpenSemaphore(SEMAPHORE_ALL_ACCESS, FALSE,
+									  name_buffer);
+#else
+/* STUB : This should be event_init() calls ? */
+#endif
+/* the address mapping is not the same in the client and the server hence set 
+   the client event channels correctly  correctly  - smistry 10/29/98*/
+	if (pages_per_user < 4)
+		espace = 50;
+	else
+		espace = 100;
+
+/* receive events channel */
+	xps->xps_channels[3].xch_client_ptr = ((UCHAR *) xpm->xpm_address +
+										   sizeof(struct xps) + (espace));
+/* send events channel */
+	xps->xps_channels[2].xch_client_ptr = ((UCHAR *) xpm->xpm_address +
+										   sizeof(struct xps));
+	xcc->xcc_receive_channel = &xps->xps_channels[3];
+	xcc->xcc_send_channel = &xps->xps_channels[2];
+
+/* link to xcc chain */
+
+	THREAD_EXIT;
+	THD_mutex_lock(&xnet_mutex);
+	THREAD_ENTER;
+	xcc->xcc_next = client_threads;
+	client_threads = xcc;
+	THD_mutex_unlock(&xnet_mutex);
+
+/* alloc new port and link xcc to it */
+
+	new_port = alloc_port(0, xcc->xcc_send_channel->xch_client_ptr,
+						  xcc->xcc_send_channel->xch_size,
+						  xcc->xcc_receive_channel->xch_client_ptr,
+						  xcc->xcc_receive_channel->xch_size);
+	port->port_async = new_port;
+	new_port->port_flags = port->port_flags & PORT_no_oob;
+	new_port->port_xcc = (void *) xcc;
+	return new_port;
+}
+
+
+static PORT aux_request( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	a u x _ r e q u e s t
+ *
+ **************************************
+ *
+ * Functional description
+ *      A remote interface has requested the server to
+ *      prepare an auxiliary connection.   This is done
+ *      by allocating a new port and comm (xcc) structure,
+ *      using the event stuff in the map rather than the
+ *      normal database channels.
+ *
+ **************************************/
+	PORT new_port;
+	XCC oxcc;
+	XCC xcc;
+	XPS xps;
+	TEXT name_buffer[128];
+
+
+/* allocate a communications control structure and fill it in */
+
+	oxcc = (XCC) port->port_xcc;
+	xps = (XPS) oxcc->xcc_mapped_addr;
+	xcc = (XCC) ALLR_alloc(sizeof(struct xcc));
+	if (!xcc)
+		return NULL;
+	xcc->xcc_next = NULL;
+	xcc->xcc_xpm = oxcc->xcc_xpm;
+	xcc->xcc_file = oxcc->xcc_file;
+	xcc->xcc_slot = oxcc->xcc_slot;
+#ifdef WIN_NT
+	xcc->xcc_server_proc = oxcc->xcc_server_proc;
+	xcc->xcc_client_proc = oxcc->xcc_client_proc;
+#endif
+	xcc->xcc_server_id = oxcc->xcc_server_id;
+	xcc->xcc_client_id = oxcc->xcc_client_id;
+	xcc->xcc_flags = 0;
+	xcc->xcc_mapped_addr = oxcc->xcc_mapped_addr;
+	xcc->xcc_file_handle = oxcc->xcc_file_handle;
+	xcc->xcc_xpm->xpm_count++;
+	xps = (XPS) xcc->xcc_mapped_addr;
+
+/* create the event semaphores and put the handles into the xcc */
+
+#ifdef WIN_NT
+	sprintf(name_buffer, XPI_S_TO_C_EVT_SEM_NAME,
+			xcc->xcc_file, xcc->xcc_slot);
+	xcc->xcc_send_sem = CreateSemaphore(ISC_get_security_desc(),
+										0L, 2L, name_buffer);
+	sprintf(name_buffer, XPI_C_TO_S_EVT_SEM_NAME,
+			xcc->xcc_file, xcc->xcc_slot);
+	xcc->xcc_recv_sem = CreateSemaphore(ISC_get_security_desc(),
+										0L, 2L, name_buffer);
+#else
+/* STUB : Should be Event_init() calls. */
+#endif
+	xcc->xcc_receive_channel = &xps->xps_channels[2];
+	xcc->xcc_send_channel = &xps->xps_channels[3];
+
+#ifdef WIN_NT
+/* make sure semaphores are "empty" */
+
+	while (WaitForSingleObject(xcc->xcc_send_sem, 1) == WAIT_OBJECT_0);
+	while (WaitForSingleObject(xcc->xcc_recv_sem, 1) == WAIT_OBJECT_0);
+#else
+/* STUB : should be event clear */
+#endif
+
+/* get a new port structure and link it to the one passed in */
+
+	new_port = alloc_port(0, xcc->xcc_send_channel->xch_buffer,
+						  xcc->xcc_send_channel->xch_size,
+						  xcc->xcc_receive_channel->xch_buffer,
+						  xcc->xcc_receive_channel->xch_size);
+	port->port_async = new_port;
+	new_port->port_server_flags = port->port_server_flags;
+	new_port->port_flags = port->port_flags & PORT_no_oob;
+	new_port->port_xcc = (void *) xcc;
+	return new_port;
+}
+
+
+#ifdef UNIX
+ULONG connection_setup(TEXT * name, PACKET * packet, STATUS * status_vector)
+ {
+/**************************************
+ *
+ *      c o n n e c t i o n _ s e t u p
+ *
+ **************************************
+ *
+ * Functional description
+ *      Setup the socket and send request to the other server for client.
+ *
+ **************************************/
+	struct sockaddr_in address;
+	PORT port;
+	TEXT *protocol, temp[128], *p;
+	struct hostent *host;
+	struct servent *service;
+	TEXT msg[128];
+	int sock_id;
+	SOCKET sock;
+
+
+	port = INET_alloc_port(0);
+	port->port_status_vector = status_vector;
+/* this just for connection set all the timeouts to 0 */
+	port->port_dummy_packet_interval = port->port_connect_timeout = 0;
+	status_vector[0] = gds_arg_gds;
+	status_vector[1] = 0;
+	status_vector[2] = gds_arg_end;
+	protocol = PROTOCOL_NAME;
+
+/* Set up Inter-Net socket address */
+
+	memset((SCHAR *) & address, 0, sizeof(address));
+
+/* U N I X style sockets */
+	THREAD_EXIT;
+	host = gethostbyname(name);
+
+/* On Windows NT/9x, gethostbyname can only accomodate
+ * 1 call at a time.  In this case it returns the error
+ * WSAEINPROGRESS. On UNIX systems, this call may not succeed
+ * because of a temporary error.  In this case, it returns
+ * h_error set to TRY_AGAIN.  When these errors occur,
+ * retry the operation a few times.
+ * NOTE: This still does not guarantee success, but helps.
+ */
+	if (!host) {
+		int retry;
+		if (h_errno == TRY_AGAIN) {
+			for (retry = 0; retry < XNET_RETRY_CALL; retry++) {
+				host = gethostbyname(name);
+				if (host)
+					break;
+			}
+		}
+	}
+	THREAD_ENTER;
+	if (!host) {
+		sprintf(msg,
+				"XNET/XNET_connection_setup: gethostbyname failed, error code = %d",
+				h_errno);
+		gds__log(msg, 0);
+		xnet_gen_error(port,
+					   isc_network_error,
+					   isc_arg_string,
+					   port->port_connection->str_data,
+					   isc_arg_gds,
+					   isc_net_lookup_err, isc_arg_gds, isc_host_unknown, 0);
+		return NULL;
+	}
+
+	address.sin_family = host->h_addrtype;
+	if (packet)
+		memcpy(&address.sin_addr, host->h_addr, sizeof(address.sin_addr));
+	else
+		address.sin_addr.s_addr = INADDR_ANY;
+
+	THREAD_EXIT;
+	service = getservbyname(protocol, "tcp");
+	THREAD_ENTER;
+	if (!service) {
+		sprintf(msg,
+				"INET/INET_connect: getservbyname failed, error code = %d",
+				h_errno);
+		gds__log(msg, 0);
+		xnet_gen_error(port,
+					   isc_network_error,
+					   isc_arg_string,
+					   port->port_connection->str_data,
+					   isc_arg_gds,
+					   isc_net_lookup_err,
+					   isc_arg_gds,
+					   isc_service_unknown,
+					   isc_arg_string, protocol, isc_arg_string, "tcp", 0);
+		return NULL;
+	}
+
+#ifdef NETWARE_386
+/* LATER, bug in NOVELL getservbyname() */
+
+	service->s_port = 3050;
+	address.sin_port = htons(service->s_port);
+#else
+	address.sin_port = service->s_port;
+#endif
+
+/* Allocate a port block and initialize a socket for communications */
+
+	port->port_handle = (HANDLE) socket(AF_INET, SOCK_STREAM, 0);
+
+	if ((SOCKET) port->port_handle == INVALID_SOCKET) {
+		xnet_error(port, "socket", isc_net_connect_err, ERRNO);
+		return NULL;
+	}
+
+/* If we're a host, just make the connection */
+
+	if (packet) {
+		THREAD_EXIT;
+		sock_id = connect((SOCKET) port->port_handle,
+						  (struct sockaddr *) &address, sizeof(address));
+		THREAD_ENTER;
+		if (sock_id != -1 && send_full(port, packet))
+			return port;
+		else {
+			xnet_error(port, "connect", isc_net_connect_err, ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+	}
+
+#ifdef CHECK_THIS
+/* We're a server, so wait for a host to show up */
+
+	if (flag & SRVR_multi_client) {
+		int optlen;
+		int optval = TRUE;
+		struct linger lingerInfo;
+
+		lingerInfo.l_onoff = 0;
+		lingerInfo.l_linger = 0;
+
+		n = setsockopt((SOCKET) port->port_handle, SOL_SOCKET, SO_REUSEADDR,
+					   (SCHAR *) & optval, sizeof(optval));
+		if (n == -1) {
+			xnet_error(port, "setsockopt REUSE", isc_net_connect_listen_err,
+					   ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+
+		/* Get any values for SO_LINGER so that they can be reset during
+		 * disconnect.  SO_LINGER should be set by default on the socket
+		 */
+		optlen = sizeof(port->port_linger);
+		n = getsockopt((SOCKET) port->port_handle, SOL_SOCKET, SO_LINGER,
+					   (SCHAR *) & port->port_linger, &optlen);
+
+		if (n != 0)				/* getsockopt failed */
+			port->port_linger.l_onoff = 0;
+
+		n = setsockopt((SOCKET) port->port_handle, SOL_SOCKET, SO_LINGER,
+					   (SCHAR *) & lingerInfo, sizeof(lingerInfo));
+		if (n == -1) {
+			xnet_error(port, "setsockopt LINGER", isc_net_connect_listen_err,
+					   ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+	}
+#endif /* CHECK_THIS */
+
+	sock_id = bind((SOCKET) port->port_handle,
+				   (struct sockaddr *) &address, sizeof(address));
+
+	if (sock_id == -1) {
+		xnet_error(port, "bind", isc_net_connect_listen_err, ERRNO);
+		disconnect(port);
+		return NULL;
+	}
+
+	sock_id = listen((SOCKET) port->port_handle, 5);
+
+	if (sock_id == -1) {
+		xnet_error(port, "listen", isc_net_connect_listen_err, ERRNO);
+		return NULL;
+	}
+
+#ifdef							/* CHECK_THIS */
+	if (flag & SRVR_multi_client) {
+		/* Prevent the generation of dummy keepalive packets on the
+		   connect port. */
+
+		port->port_dummy_packet_interval = 0;
+		port->port_dummy_timeout = 0;
+		port->port_server_flags |= (SRVR_server | SRVR_multi_client);
+		gds__register_cleanup(exit_handler, (void *) port);
+		return port;
+	}
+#endif /* CHECK_THIS */
+
+	while (TRUE) {
+		int l;
+		THREAD_EXIT;
+		l = sizeof(address);
+		sock = accept((SOCKET) port->port_handle,
+					  (struct sockaddr *) &address, &l);
+		if (sock == INVALID_SOCKET) {
+			THREAD_ENTER;
+			xnet_error(port, "accept", isc_net_connect_err, ERRNO);
+			disconnect(port);
+			return NULL;
+		}
+		if (!fork()) {
+			THREAD_ENTER;
+			close((SOCKET) port->port_handle);
+			port->port_handle = (HANDLE) sock;
+			port->port_server_flags |= SRVR_server;
+			return port;
+		}
+		THREAD_ENTER;
+		close(sock);
+	}
+}
+#endif /* UNIX */
+
+
+
+static void cleanup_comm( XCC xcc)
+{
+/**************************************
+ *
+ *      c l e a n u p _ c o m m
+ *
+ **************************************
+ *
+ * Functional description
+ *      Clean up an xcc structure, close its handles,
+ *      unmap its file, and free it.
+ *
+ **************************************/
+	XCC pxcc;
+	XPM xpm;
+#ifdef SUPERCLIENT
+	XPM pxpm;
+#endif /* SUPERCLIENT */
+
+#ifdef SUPERSERVER
+	SSHORT slot_number = (SSHORT) xcc->xcc_slot;
+#endif /* SUPERSERVER */
+
+/* free up semaphores */
+
+	xpm = xcc->xcc_xpm;
+#ifdef WIN_NT
+	if (xcc->xcc_send_sem)
+		CloseHandle(xcc->xcc_send_sem);
+	if (xcc->xcc_recv_sem)
+		CloseHandle(xcc->xcc_recv_sem);
+#ifdef SUPERCLIENT
+	if (xcc->xcc_server_proc)
+		CloseHandle(xcc->xcc_server_proc);
+#endif /* SUPERCLIENT */
+#else /* WIN_NT */
+/* STUB : this should be event_fini */
+#endif /* WIN_NT */
+
+/* find xcc in chain and release */
+
+	THD_mutex_lock(&xnet_mutex);
+	if (client_threads == xcc)
+		client_threads = xcc->xcc_next;
+	else {
+		for (pxcc = client_threads; pxcc && pxcc->xcc_next;
+			 pxcc = pxcc->xcc_next) if (pxcc->xcc_next == xcc) {
+				pxcc->xcc_next = xcc->xcc_next;
+				break;
+			}
+	}
+
+	THD_mutex_unlock(&xnet_mutex);
+	ALLR_free((UCHAR *) xcc);
+
+/* if this was the last area for this map, unmap it */
+
+
+	xpm->xpm_count--;
+#ifdef SUPERCLIENT
+	if (!xpm->xpm_count && client_maps) {
+#ifdef WIN_NT
+		UnmapViewOfFile(xpm->xpm_address);
+		CloseHandle(xpm->xpm_handle);
+#else
+		/* STUB : unmap the shared memory segment. */
+#endif
+
+		/* find in chain and release */
+
+		THD_mutex_lock(&xnet_mutex);
+		if (client_maps == xpm)
+			client_maps = xpm->xpm_next;
+		else {
+			for (pxpm = client_maps; pxpm->xpm_next; pxpm = pxpm->xpm_next)
+				if (pxpm->xpm_next == xpm) {
+					pxpm->xpm_next = xpm->xpm_next;
+					break;
+				}
+		}
+		THD_mutex_unlock(&xnet_mutex);
+		ALLR_free((UCHAR *) xpm);
+	}
+#endif /* SUPERCLIENT */
+
+#ifdef SUPERSERVER
+/* free the slot for use by other clients */
+	xpm->xpm_ids[slot_number] = 0;
+#endif
+	return;
+}
+
+
+static void cleanup_port( PORT port)
+{
+/**************************************
+ *
+ *      c l e a n u p _ p o r t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Walk through the port structure freeing
+ *      allocated memory and then free the port.
+ *
+ **************************************/
+
+
+	if (port->port_xcc)
+		cleanup_comm((XCC) port->port_xcc);
+
+	if (port->port_version)
+		ALLR_free((UCHAR *) port->port_version);
+
+	if (port->port_connection)
+		ALLR_free((UCHAR *) port->port_connection);
+
+	if (port->port_user_name)
+		ALLR_free((UCHAR *) port->port_user_name);
+
+	if (port->port_host)
+		ALLR_free((UCHAR *) port->port_host);
+
+	if (port->port_object_vector)
+		ALLR_free((UCHAR *) port->port_object_vector);
+
+#ifdef DEBUG_XDR_MEMORY
+	if (port->port_packet_vector)
+		ALLR_free((UCHAR *) port->port_packet_vector);
+#endif
+
+	ALLR_release((BLK) port);
+	return;
+}
+
+
+static void disconnect( PORT port)
+{
+/**************************************
+ *
+ *	d i s c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Break a remote connection.
+ *
+ **************************************/
+	PORT parent, *ptr;
+
+/* If this is a sub-port, unlink it from it's parent */
+
+	if ((parent = port->port_parent) != NULL) {
+		if (port->port_async) {
+			disconnect(port->port_async);
+			port->port_async = NULL;
+		}
+		for (ptr = &parent->port_clients; *ptr; ptr = &(*ptr)->port_next)
+			if (*ptr == port) {
+				*ptr = port->port_next;
+				if (ptr == &parent->port_clients)
+					parent->port_next = *ptr;
+				break;
+			}
+	}
+	else if (port->port_async) {
+		/* If we're MULTI_THREAD then we cannot free the port because another
+		 * thread might be using it.  If we're SUPERSERVER we must free the
+		 * port to avoid a memory leak.  What we really need to know is if we
+		 * have multi-threaded events, but this is transport specific.
+		 * -smistry 10/29/98 */
+#if     (defined (MULTI_THREAD) && !defined (SUPERSERVER))
+		port->port_async->port_flags |= PORT_disconnect;
+#else
+		disconnect(port->port_async);
+		port->port_async = NULL;
+#endif
+	}
+
+	cleanup_port(port);
+}
+
+
+static void exit_handler( PORT main_port)
+{
+/**************************************
+ *
+ *	e x i t _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shutdown all active connections
+ *	to allow restart.
+ *
+ **************************************/
+	PORT port;
+
+
+	for (port = main_port; port; port = port->port_next);
+}
+
+
+static XPM make_map( USHORT map_number)
+{
+/**************************************
+ *
+ *      m a k e _ m a p
+ *
+ **************************************
+ *
+ * Functional description
+ *      Create a mapped file.   This
+ *	returns -
+ *	    0 - mapped file already exists
+ *	   -1 - mapping  or creation error
+ *	other - pointer to new structure
+ *
+ **************************************/
+	XPM xpm;
+	FILE_ID map_handle;
+	CADDR_T map_address;
+	USHORT i;
+	TEXT name_buffer[128];
+
+
+/* create the mapped file name and try to open it */
+
+	sprintf(name_buffer, XPI_MAPPED_FILE_NAME, map_number);
+#ifdef WIN_NT
+	map_handle = CreateFileMapping((HANDLE) 0xFFFFFFFF, NULL,
+								   PAGE_READWRITE, 0L,
+								   XPS_MAPPED_SIZE(users_per_map,
+												   pages_per_user),
+								   name_buffer);
+	if (map_handle && ERRNO == ERROR_ALREADY_EXISTS)
+		return NULL;
+	else if (!map_handle)
+		return (XPM) - 1;
+
+	map_address = MapViewOfFile(map_handle, FILE_MAP_WRITE, 0L, 0L,
+								XPS_MAPPED_SIZE(users_per_map,
+												pages_per_user));
+#else
+/* STUB : need to do same thing for solaris */
+#endif
+
+	if (!map_address)
+		return (XPM) - 1;
+
+/* allocate a structure and initialize it */
+
+	xpm = (XPM) ALLR_alloc(sizeof(struct xpm));
+	if (!xpm)
+		return (XPM) - 1;
+	xpm->xpm_handle = map_handle;
+	xpm->xpm_address = map_address;
+	xpm->xpm_number = map_number;
+	xpm->xpm_count = 0;
+	for (i = 0; i < users_per_map; i++)
+		xpm->xpm_ids[i] = (FILE_ID) 0;
+	xpm->xpm_next = xpms;
+	xpm->xpm_flags = 0;
+	xpms = xpm;
+	return xpm;
+}
+
+
+static int packet_receive( PORT port, USHORT * length)
+{
+/**************************************
+ *
+ *	p a c k e t _ r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Receive a packet, unpacking it from the map as
+ *      often as necessary until it's all in.
+ *
+ **************************************/
+	USHORT errres;
+	XCC xcc;
+	XPS xps;
+	XCH xch;
+	USHORT n;
+
+	xcc = port->port_xcc;
+	xps = (XPS) (xcc->xcc_mapped_addr);
+	xch = xcc->xcc_receive_channel;
+	THREAD_EXIT;
+
+/* first, wait for the other side to signal that
+   the map is full */
+
+	xch->xch_flags &= ~(XCHFLAG_data_overrun | XCHFLAG_more_data);
+	errres = FALSE;
+	n = 0;
+/* signal the other side that the communications area in mapped memory is emptied */
+#ifdef WIN_NT
+	if (!ReleaseSemaphore(xcc->xcc_send_sem, 1L, NULL))
+#else
+/* STUB will be event_post */
+	if (0)
+#endif
+		errres = TRUE;
+	else {
+#ifdef WIN_NT
+		if (WaitForSingleObject(xcc->xcc_recv_sem, INFINITE) == WAIT_FAILED)
+			errres = TRUE;
+#else
+/* STUB will be event_wait */
+		if (0) {
+		}
+#endif
+		else {
+			n = xch->xch_length;
+		}
+	}
+	THREAD_ENTER;
+	if (errres)
+		return xnet_error(port, "read from map failed",
+						  isc_net_read_err, ERRNO);
+	if (!n)
+		return xnet_error(port, "read from map end-of-file",
+						  isc_net_read_err, ERRNO);
+	*length = n;
+	return TRUE;
+}
+
+
+static int packet_send( PORT port, SSHORT length)
+{
+/**************************************
+ *
+ *	p a c k e t _ s e n d
+ *
+ **************************************
+ *
+ * Functional description:
+ *      Pack data into map and send it, repeating
+ *      as often as necessary until it's all sent.
+ *
+ **************************************/
+	XCC xcc;
+	XPS xps;
+	XCH xch;
+	USHORT errres;
+
+
+	xcc = port->port_xcc;
+	xps = (XPS) (xcc->xcc_mapped_addr);
+	xch = xcc->xcc_send_channel;
+
+/* first, signal the other side that the communications
+   area in mapped memory is filed and ready */
+
+	xch->xch_flags &= ~(XCHFLAG_data_overrun | XCHFLAG_more_data);
+	xch->xch_length = length;
+	errres = FALSE;
+/* release the send channel lock, if we need to send more data we should wait
+ * for the receiver to complete emptying the comm. channel area. */
+	xcc->xcc_send_channel_locked = FALSE;
+#ifdef WIN_NT
+	if (!ReleaseSemaphore(xcc->xcc_send_sem, 1L, NULL))
+#else
+/* STUB add ISC_event_post here */
+	if (1)
+#endif
+		errres = TRUE;
+	if (errres)
+		return xnet_error(port, "write to map error",
+						  isc_net_write_err, ERRNO);
+
+	port->port_flags &= ~PORT_pend_ack;
+	return TRUE;
+}
+
+
+static PORT receive( PORT main_port, PACKET * packet)
+{
+/**************************************
+ *
+ *	r e c e i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Receive a message from a port or clients of a port.  If the process
+ *	is a server and a connection request comes in, generate a new port
+ *	block for the client.
+ *
+ **************************************/
+
+
+	if (!xdr_protocol(&main_port->port_receive, packet))
+		packet->p_operation = op_exit;
+	return main_port;
+}
+
+
+static int send_full( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	s e n d _ f u l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+
+	if (!xdr_protocol(&port->port_send, packet))
+		return FALSE;
+	return xdrxnet_endofrecord(&port->port_send, TRUE);
+
+}
+
+
+static int send_partial( PORT port, PACKET * packet)
+{
+/**************************************
+ *
+ *	s e n d _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Send a packet across a port to another process.
+ *
+ **************************************/
+
+
+	return xdr_protocol(&port->port_send, packet);
+}
+
+
+static void server_shutdown(void)
+{
+/**************************************
+ *
+ *      s e r v e r _ s h u t d o w n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Server shutdown detected, so mark
+ *      everything and release handles.
+ *
+ **************************************/
+	XCC xcc;
+	XPM xpm;
+
+
+/* for each xcc structure, shut it and its database */
+
+	for (xcc = client_threads; xcc; xcc = xcc->xcc_next) {
+		xcc->xcc_flags |= XCCF_SERVER_SHUTDOWN;
+
+		/* free up semaphores */
+
+#ifdef WIN_NT
+		if (xcc->xcc_send_sem)
+			CloseHandle(xcc->xcc_send_sem);
+		if (xcc->xcc_recv_sem)
+			CloseHandle(xcc->xcc_recv_sem);
+		if (xcc->xcc_server_proc)
+			CloseHandle(xcc->xcc_server_proc);
+		xcc->xcc_send_sem = 0;
+		xcc->xcc_recv_sem = 0;
+		xcc->xcc_server_proc = 0;
+#else
+/* STUB : Similar event_fini() etc for Solaris */
+#endif /* WIN_NT */
+	}
+
+/* unmap all mapped files */
+
+	for (xpm = client_maps; xpm; xpm = xpm->xpm_next) {
+		xpm->xpm_flags |= XPMF_SERVER_SHUTDOWN;
+#ifdef WIN_NT
+		UnmapViewOfFile(xpm->xpm_address);
+		CloseHandle(xpm->xpm_handle);
+#else
+		/* STUB : un map shared mmap file */
+#endif
+		xpm->xpm_handle = 0;
+	}
+}
+
+
+static void server_watcher(void)
+{
+/**************************************
+ *
+ *      s e r v e r _ w a t c h e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      This thread just waits for the server
+ *      process.   If that process goes away,
+ *      this gets triggered and unmaps any
+ *      currently mapped maps.
+ *
+ **************************************/
+#ifdef WIN_NT
+	DWORD result;
+
+
+	for (;;) {
+		if (exit_flag)
+			break;
+		result = WaitForSingleObject(server_process_handle, INFINITE);
+		if (result == WAIT_OBJECT_0) {
+			/* unmap and close all maps */
+
+			server_shutdown();
+			server_process_handle = 0;
+			server_watcher_handle = 0;
+			break;
+		}
+	}
+#else /* WIN_NT */
+/* STUB : we donot use this for Solaris */
+#endif /* WIN_NT */
+}
+
+
+static int xdrxnet_create(
+						  XDR * xdrs,
+						  PORT port,
+						  UCHAR * buffer, USHORT length, enum xdr_op x_op)
+{
+/**************************************
+ *
+ *      x d r x n e t _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Initialize an XDR stream.
+ *
+ **************************************/
+
+
+	xdrs->x_public = (caddr_t) port;
+	xdrs->x_private = (SCHAR *) buffer;
+	xdrs->x_base = xdrs->x_private;
+	xdrs->x_handy = length;
+	xdrs->x_ops = &xnet_ops;
+	xdrs->x_op = x_op;
+	return TRUE;
+}
+
+
+static bool_t xdrxnet_endofrecord( XDR * xdrs, bool_t flushnow)
+{
+/**************************************
+ *
+ *      x d r x n e t _ e n d o f r e c o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out the rest of a record.
+ *
+ **************************************/
+
+
+	return xnet_write(xdrs, flushnow);
+}
+
+
+static void xnet_copy( SCHAR * from, SCHAR * to, int length)
+{
+/**************************************
+ *
+ *      x n e t _ c o p y
+ *
+ **************************************
+ *
+ * Functional description
+ *      Copy a number of bytes;
+ *
+ **************************************/
+
+	if (length)
+		memcpy(to, from, length);
+}
+
+
+static int xnet_destroy( XDR * xdrs)
+{
+/**************************************
+ *
+ *      x n e t _ d e s t r o y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Destroy a stream.  A no-op.
+ *
+ **************************************/
+
+	return (int) NULL;
+}
+
+
+static int xnet_error(
+					  PORT port,
+					  TEXT * function, STATUS operation, int status)
+{
+/**************************************
+ *
+ *      x n e t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An I/O error has occurred.  If a status vector is present,
+ *	generate an error return.  In any case, return NULL, which
+ *	is used to indicate and error.
+ *
+ **************************************/
+	TEXT msg[64];
+	TEXT node_name[MAXPATHLEN];
+	TEXT *p;
+
+
+	strcpy(node_name, ((SCHAR *) port->port_connection->str_data) + 2);
+	p = strchr(node_name, '\\');
+	if (p != NULL)
+		*p = '\0';
+	if (status) {
+		xnet_gen_error(port, isc_network_error,
+					   gds_arg_string, (STATUS) node_name,
+					   isc_arg_gds, operation, SYS_ERR, status, 0);
+#ifdef WIN_NT
+		if (status != ERROR_CALL_NOT_IMPLEMENTED)
+#endif
+		{
+			sprintf(msg, "XNET/xnet_error: %s errno = %d", function, status);
+			gds__log(msg, 0, 0, 0, 0);
+		}
+	}
+	else {
+		xnet_gen_error(port, isc_network_error,
+					   gds_arg_string, (STATUS) node_name,
+					   isc_arg_gds, operation, 0);
+	}
+	return (int) NULL;
+}
+
+
+static void xnet_gen_error( PORT port, STATUS status, ...)
+{
+/**************************************
+ *
+ *      x n e t _ g e n _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	An error has occurred.  Mark the port as broken.
+ *	Format the status vector if there is one and
+ *	save the status vector strings in a permanent place.
+ *
+ **************************************/
+	STATUS *status_vector;
+
+
+	port->port_flags |= PORT_broken;
+	port->port_state = state_broken;
+	status_vector = NULL;
+	if (port->port_context != NULL)
+		status_vector = port->port_context->rdb_status_vector;
+	if (status_vector == NULL)
+		status_vector = port->port_status_vector;
+	if (status_vector != NULL) {
+		STUFF_STATUS(status_vector, status)
+			REMOTE_save_status_strings(status_vector);
+	}
+}
+
+
+static bool_t xnet_getbytes( XDR * xdrs, SCHAR * buff, u_int count)
+{
+/**************************************
+ *
+ *      x n e t _ g e t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a bunch of bytes into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+	SLONG to_copy;
+
+	while (bytecount) {
+		if (xdrs->x_handy >= bytecount)
+			to_copy = bytecount;
+		else
+			to_copy = xdrs->x_handy;
+		memcpy(buff, xdrs->x_private, to_copy);
+		xdrs->x_handy -= to_copy;
+		bytecount -= to_copy;
+		xdrs->x_private += to_copy;
+		buff += to_copy;
+		if (bytecount && !xnet_read(xdrs))
+			return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+static bool_t xnet_getlong( XDR * xdrs,
+#ifndef NEW
+						   SLONG * lp)
+#else
+						   SCHAR * lp)
+#endif
+{
+/**************************************
+ *
+ *      x n e t _ g e t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+#ifndef NEW
+	SLONG l;
+
+	if (!(*xdrs->x_ops->x_getbytes) (xdrs, &l, 4))
+		return FALSE;
+	*lp = ntohl(l);
+	return TRUE;
+#else /* NEW */
+/* check how many spare bytes we already have, if we less than four then we
+ * need to get more else just move the required bytes.*/
+	if (xdrs->x_handy < 4)
+		return (*xdrs->x_ops->x_getbytes) (xdrs, lp, 4);
+	else {
+		*lp++ = *xdrs->x_private++;
+		*lp++ = *xdrs->x_private++;
+		*lp++ = *xdrs->x_private++;
+		*lp++ = *xdrs->x_private++;
+		xdrs->x_handy -= 4;
+		return TRUE;
+	}
+#endif /* NEW */
+}
+
+
+static u_int xnet_getpostn( XDR * xdrs)
+{
+/**************************************
+ *
+ *      x n e t _ g e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+
+	return (u_int) (xdrs->x_private - xdrs->x_base);
+}
+
+
+static caddr_t xnet_inline( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *      x n e t _  i n l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return a pointer to somewhere in the buffer.
+ *
+ **************************************/
+
+	if (bytecount > (u_int) xdrs->x_handy)
+		return FALSE;
+	return xdrs->x_base + bytecount;
+}
+
+
+static bool_t xnet_putbytes( XDR * xdrs, SCHAR * buff, u_int count)
+{
+/**************************************
+ *
+ *      x n e t _ p u t b y t e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a bunch of bytes into a memory stream if it fits.
+ *
+ **************************************/
+	SLONG bytecount = count;
+	SLONG to_copy;
+
+
+	THREAD_EXIT;
+	while (bytecount) {
+		if (xdrs->x_handy >= bytecount)
+			to_copy = bytecount;
+		else
+			to_copy = xdrs->x_handy;
+		/* need to have some kind of locking with the read process 
+		 * ie. we cannot write once again to this are till last data has been
+		 * received */
+		if (to_copy) {
+			PORT port = (PORT) xdrs->x_public;
+			XCC xcc = (XCC) port->port_xcc;
+
+			/* check to see that we have the send channel area, if not then wait for the
+			 * receiver to finish reading from the common area */
+			if (!xcc->xcc_send_channel_locked) {
+				/* wait for receiver to read the last sent packet */
+#ifdef WIN_NT
+				if (WaitForSingleObject(xcc->xcc_recv_sem, INFINITE) ==
+					WAIT_FAILED)
+#else
+				/* SEAN add ISC_event_wait here */
+				if (0)
+#endif
+				{
+					THREAD_ENTER;
+					xnet_error(port, "write to map error", isc_net_write_err,
+							   ERRNO);
+					return FALSE;
+				}
+				xcc->xcc_send_channel_locked = TRUE;
+			}
+			memcpy(xdrs->x_private, buff, to_copy);
+			xdrs->x_handy -= to_copy;
+			bytecount -= to_copy;
+			xdrs->x_private += to_copy;
+			buff += to_copy;
+		}
+		if (bytecount && !xnet_write(xdrs, 0)) {
+			THREAD_ENTER;
+			return FALSE;
+		}
+	}
+
+	THREAD_ENTER;
+	return TRUE;
+}
+
+
+static bool_t xnet_putlong( XDR * xdrs,
+#ifndef NEW
+						   SLONG * lp)
+#else
+						   SCHAR * lp)
+#endif
+{
+/**************************************
+ *
+ *      x n e t _ p u t l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fetch a longword into a memory stream if it fits.
+ *
+ **************************************/
+#ifndef NEW
+	SLONG l;
+
+	l = htonl(*lp);
+	return (*xdrs->x_ops->x_putbytes) (xdrs, AOF32L(l), 4);
+#else /* NEW */
+	if (xdrs->x_handy < 4)
+		return (*xdrs->x_ops->x_putbytes) (xdrs, lp, 4);
+	else {
+		*xdrs->x_private++ = *lp++;
+		*xdrs->x_private++ = *lp++;
+		*xdrs->x_private++ = *lp++;
+		*xdrs->x_private++ = *lp++;
+		xdrs->x_handy -= 4;
+		return TRUE;
+	}
+#endif /* NEW */
+}
+
+
+static bool_t xnet_read( XDR * xdrs)
+{
+/**************************************
+ *
+ *      x n e t _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a buffer full of data.  If we receive a bad packet,
+ *	send the moral equivalent of a NAK and retry.  ACK all
+ *	partial packets.  Don't ACK the last packet -- the next
+ *	message sent will handle this.
+ *
+ **************************************/
+	PORT port;
+	USHORT length;
+
+
+	port = (PORT) xdrs->x_public;
+	if (!packet_receive(port, &length))
+		return FALSE;
+	port->port_flags |= PORT_pend_ack;
+	xdrs->x_handy = length;
+	xdrs->x_private = xdrs->x_base;
+	return TRUE;
+}
+
+
+static bool_t xnet_setpostn( XDR * xdrs, u_int bytecount)
+{
+/**************************************
+ *
+ *      x n e t _ s e t p o s t n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Set the current position (which is also current length) from stream.
+ *
+ **************************************/
+
+	if (bytecount > (u_int) xdrs->x_handy)
+		return FALSE;
+	xdrs->x_private = xdrs->x_base + bytecount;
+	return TRUE;
+}
+
+
+static bool_t xnet_write( XDR * xdrs, bool_t end_flag)
+{
+/**************************************
+ *
+ *      x n e t _ w r i t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a buffer fulll of data.  If the end_flag isn't set, indicate
+ *	that the buffer is a fragment, and reset the XDR for another buffer
+ *	load.
+ *
+ **************************************/
+	PORT port;
+	SSHORT length;
+	XCC xcc;
+
+/* Encode the data portion of the packet */
+
+	port = (PORT) xdrs->x_public;
+	xcc = (XCC) port->port_xcc;
+	length = xdrs->x_private - xdrs->x_base;
+	if (!packet_send(port, length))
+		return FALSE;
+	port->port_misc1 = (port->port_misc1 + 1) % MAX_SEQUENCE;
+	xdrs->x_private = xdrs->x_base;
+	xdrs->x_handy = xcc->xcc_receive_channel->xch_size;
+	return TRUE;
+}
+
+
+void IPC_release_all(void)
+{
+/**************************************
+ *
+ *      I P C _ r e l e a s e _ a l l
+ *
+ **************************************
+ *
+ * Functional description
+ *      Release all connections and dependant stuff.
+ *
+ **************************************/
+	XCC xcc, nxcc;
+	XPM xpm, nxpm;
+	XPS xps;
+
+/* get stuff to release and clear list heads */
+
+	exit_flag++;
+	if (exit_flag > 1)
+		return;
+	xcc = client_threads;
+	nxcc = xcc;
+	client_threads = NULL;
+	xpm = client_maps;
+	client_maps = NULL;
+
+#ifdef WIN_NT
+	if (server_watcher_handle) {
+		TerminateThread(server_watcher_handle, 0);
+		server_watcher_handle = 0;
+	}
+#endif
+
+/* disconnect each thread */
+
+	for (; xcc; xcc = xcc->xcc_next)
+		if (!(xcc->xcc_flags & XCCF_SERVER_SHUTDOWN))
+			xps = (XPS) xcc->xcc_mapped_addr;
+
+	xcc = nxcc;
+
+/* for each xcc structure, release its database and close it down */
+
+	for (; xcc; xcc = nxcc) {
+		nxcc = xcc->xcc_next;
+
+#ifdef WIN_NT
+		/* free up semaphores */
+
+		if (xcc->xcc_send_sem)
+			CloseHandle(xcc->xcc_send_sem);
+		if (xcc->xcc_send_sem)
+			CloseHandle(xcc->xcc_send_sem);
+		if (xcc->xcc_server_proc)
+			CloseHandle(xcc->xcc_server_proc);
+#else
+		/* SEAN : Similar event_fini() for Solaris */
+#endif
+		ALLR_free((UCHAR *) xcc);
+	}
+
+/* unmap all mapped files */
+
+	for (; xpm; xpm = nxpm) {
+		nxpm = xpm->xpm_next;
+		if (!(xpm->xpm_flags & XPMF_SERVER_SHUTDOWN)) {
+#ifdef WIN_NT
+			UnmapViewOfFile(xpm->xpm_address);
+			CloseHandle(xpm->xpm_handle);
+#else
+			/* SEAN : unmap shared memory file */
+#endif /* WIN_NT */
+		}
+		ALLR_free((UCHAR *) xpm);
+	}
+}
+
+
+} // extern "C"
+
+#endif /* XNET */
diff --git a/src/remote/xnet.h b/src/remote/xnet.h
new file mode 100644
index 0000000000..ea796cc70d
--- /dev/null
+++ b/src/remote/xnet.h
@@ -0,0 +1,160 @@
+/*
+ *	PROGRAM:	Interprocess Interface definitions
+ *      MODULE:         xnet.h
+ *	DESCRIPTION:	Common descriptions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_XNET_H_
+#define _REMOTE_XNET_H_
+
+#ifndef WIN_NT
+#include <sys/types.h>
+typedef short DWORD;
+#define PID_T	pid_t
+#define CADDR_T	caddr_t
+#define FILE_ID	int
+#else
+#define PID_T  	DWORD
+#define CADDR_T	LPVOID
+#define FILE_ID	HANDLE
+#endif
+
+/* mapped file parameters */
+
+#define XPS_MAPPED_PER_CLI(p)   ((ULONG)(p) * 1024L)
+#define XPS_MAPPED_FOR_CLI(p,x) ((ULONG)(x) * XPS_MAPPED_PER_CLI(p))
+#define XPS_MAPPED_SIZE(p,c)    ((ULONG)(c) * XPS_MAPPED_PER_CLI(p))
+#define XPS_USEFUL_SPACE(p)     (XPS_MAPPED_PER_CLI(p) - sizeof( struct xps))
+
+#define XPS_DEF_NUM_CLI         10      /* default clients per mapped file */
+#define XPS_DEF_NUM_MAPS        10      /* default maps available */
+#define XPS_DEF_PAGES_PER_CLI   8       /* default 1k pages space per client */
+
+#define XPS_MIN_NUM_CLI         1       /* min clients per mapped file */
+#define XPS_MIN_NUM_MAPS        1       /* min maps available */
+#define XPS_MIN_PAGES_PER_CLI   1       /* min 1k pages space per client */
+
+#define XPS_MAX_NUM_CLI         64      /* max clients per mapped file */
+#define XPS_MAX_NUM_MAPS        64      /* max maps available */
+#define XPS_MAX_PAGES_PER_CLI   16      /* max 1k pages space per client */
+
+#define XPS_PACK_PARAMS(x,p,m,u) (((ULONG)(x) << 24) + ((ULONG)(p) << 16) + ((m) << 8) + (u))
+#define XPS_UNPACK_MAX_USERS(n) (((ULONG)(n) >> 24) & 0xFF)
+#define XPS_UNPACK_PAGES(n)     (((ULONG)(n) >> 16) & 0xFF)
+#define XPS_UNPACK_MAPNUM(n)    (((ULONG)(n) >> 8) & 0xFF)
+#define XPS_UNPACK_USERNUM(n)   ((n) & 0xFF)
+
+/* mapped file structure */
+
+typedef struct xpm {
+    struct xpm  *xpm_next;              /* pointer to next one */
+    USHORT      xpm_count;              /* slots in use */
+    USHORT      xpm_number;             /* mapped area number */
+    FILE_ID     xpm_handle;             /* handle of mapped memory */
+    USHORT      xpm_flags;              /* flag word */
+    CADDR_T     xpm_address;            /* address of mapped memory */
+    UCHAR       *xpm_ids[XPS_MAX_NUM_CLI]; /* ids */
+} *XPM;
+
+/* mapped structure flags */
+
+#define XPMF_SERVER_SHUTDOWN    1       /* server has shut down */
+
+/* thread connection control block */
+
+typedef struct xcc {
+    struct xcc  *xcc_next;              /* pointer to next thread */
+    struct xpm  *xcc_xpm;               /* pointer back to xpm */
+    BOOLEAN	xcc_send_channel_locked;	/* status of send channel */
+    SSHORT      xcc_file;               /* this thread's mapped file number */
+    USHORT      xcc_slot;               /* this thread's slot number */
+    FILE_ID     xcc_file_handle;        /* mapped file's handle */
+#ifdef WIN_NT
+    HANDLE      xcc_server_proc;        /* server's process handle */
+    HANDLE      xcc_client_proc;        /* client's process handle */
+#endif
+    PID_T       xcc_server_id;          /* server's process id */
+    PID_T       xcc_client_id;          /* client's process id */
+#ifdef WIN_NT
+    HANDLE      xcc_recv_sem;           /* start receive semaphore handle */
+    HANDLE      xcc_send_sem;           /* start send semaphore handle */
+#endif
+    struct xch  *xcc_receive_channel;   /* receive channel structure */
+    struct xch  *xcc_send_channel;      /* send channel structure */
+    USHORT      xcc_flags;              /* status bits */
+    UCHAR       *xcc_mapped_addr;       /* where the thread's mapped to */
+} *XCC;
+
+/* xcc structure flags */
+
+#define XCCF_SHUTDOWN           1       /* shutdown in progress */
+#define XCCF_SERVER_SHUTDOWN    2       /* server has shut down */
+
+/* comm channel structure - four per connection (client to server data,
+   server to client data, client to server events, server to client events) */
+
+typedef struct xch
+{
+    USHORT      xch_sent;       /* messages sent */
+    USHORT      xch_received;   /* messages received */
+    USHORT      xch_length;     /* message length */
+    USHORT      xch_size;       /* channel data size */
+    USHORT      xch_flags;      /* flags */
+    UCHAR       *xch_buffer;    /* message */
+    UCHAR 	*xch_client_ptr; /* client pointer to xch buffers */
+} *XCH;
+
+#define XCHFLAG_more_data       1       /* more data coming */
+#define XCHFLAG_data_overrun    2       /* receive buffer full */
+
+/*
+    This structure is mapped to the start of the allocated
+    communications area between the client and server.
+*/
+
+typedef struct xps
+{
+    ULONG       xps_server_protocol;    /* server's protocol level */
+    ULONG       xps_client_protocol;    /* client's protocol level */
+#ifdef WIN_NT
+    HANDLE      xps_server_proc;        /* server's process handle */
+    HANDLE      xps_client_proc;        /* client's process handle */
+#endif
+    PID_T       xps_server_id;          /* server's process id */
+    PID_T       xps_client_id;          /* client's process id */
+    USHORT      xps_flags;              /* flags word */
+    struct xch  xps_channels[4];        /* comm channels */
+    ULONG       xps_data[1];            /* start of data area */
+} *XPS;
+
+/* Windows names used to identify various named objects */
+
+#define XPI_SERVER_NAME         "InterBaseXPIServer"
+#define XPI_SERVER_CLASS        "InterBaseXPIServerClass"
+#define XPI_MAPPED_FILE_NAME    "InterBaseXPIMappedArea%d"
+#define XPI_C_TO_S_SEM_NAME     "InterBaseXPICtoS%d_%d"
+#define XPI_S_TO_C_SEM_NAME     "InterBaseXPIStoC%d_%d"
+#define XPI_C_TO_S_EVT_SEM_NAME "InterBaseXPICtoSEvent%d_%d"
+#define XPI_S_TO_C_EVT_SEM_NAME "InterBaseXPIStoCEvent%d_%d"
+#define XPI_EVENT_NAME          "InterBaseXPIEvent%d"
+#define XPI_EVENT_CLASS         "InterBaseXPIEventClass"
+#define XPI_EVENT_THREAD        "InterBaseXPIEventThread%d_%d"
+
+#endif /* _REMOTE_XNET_H_ */
diff --git a/src/remote/xnet_proto.h b/src/remote/xnet_proto.h
new file mode 100644
index 0000000000..201fce1f8f
--- /dev/null
+++ b/src/remote/xnet_proto.h
@@ -0,0 +1,45 @@
+/*
+ *	PROGRAM:	JRD Remote Interface/Server
+ *      MODULE:         xnet_proto.h
+ *      DESCRIPTION:    Prototpe header file for xnet.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _REMOTE_XNET_PROTO_H_
+#define _REMOTE_XNET_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+#ifdef  XNET
+
+extern PORT     XNET_analyze( TEXT *, USHORT *, STATUS *, TEXT *, TEXT *, USHORT);
+extern PORT     XNET_connect( TEXT *, struct packet *, STATUS *, USHORT);
+extern USHORT   XNET_init( HWND, USHORT, USHORT, USHORT);
+extern PORT     XNET_start_thread( ULONG, ULONG *);
+
+#endif
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _REMOTE_XNET_PROTO_H */ 
diff --git a/src/remote/zap.mar b/src/remote/zap.mar
new file mode 100644
index 0000000000..bf4c8b3cad
--- /dev/null
+++ b/src/remote/zap.mar
@@ -0,0 +1,53 @@
+;  The contents of this file are subject to the Interbase Public
+;  License Version 1.0 (the "License"); you may not use this file
+;  except in compliance with the License. You may obtain a copy
+;  of the License at http://www.Inprise.com/IPL.html
+;
+;  Software distributed under the License is distributed on an
+;  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+;  or implied. See the License for the specific language governing
+;  rights and limitations under the License.
+;
+;  The Original Code was created by Inprise Corporation
+;  and its predecessors. Portions created by Inprise Corporation are
+;  Copyright (C) Inprise Corporation.
+;
+;  All Rights Reserved.
+;  Contributor(s): ______________________________________.
+;
+;	PROGRAM:	JRD Remote Server
+;	MODULE:		zap.mar
+;	DESCRIPTION:	Zap process header.
+;
+
+	.title	zap	Zap process header
+	$JIBDEF
+
+;
+; The PCB changed incompatibly between VMS V4.7 and V5.0, so
+; different definitions are used.
+;
+
+	$PCBDEFV4
+
+	.entry	zap_process_v4, ^m<R2,R3,R4,R5>
+	movl	PCB$L_JIB(R4), r0
+	movl	@4(ap), PCB$L_UIC (R4)
+	movw	@12(ap), JIB$W_ENQLM (r0)
+	movw	@12(ap), JIB$W_ENQCNT (r0)
+	movq	@16(ap), PCB$Q_PRIV (R4)
+	movc3	#JIB$S_USERNAME, @8(ap), JIB$T_USERNAME (r0);
+	ret
+
+	$PCBDEFV5
+
+	.entry	zap_process_v5, ^m<R2,R3,R4,R5>
+	movl	PCB$L_JIB(R4), r0
+	movl	@4(ap), PCB$L_UIC (R4)
+	movw	@12(ap), JIB$W_ENQLM (r0)
+	movw	@12(ap), JIB$W_ENQCNT (r0)
+	movq	@16(ap), PCB$Q_PRIV (R4)
+	movc3	#JIB$S_USERNAME, @8(ap), JIB$T_USERNAME (r0);
+	ret
+
+	.end
diff --git a/src/utilities/analyse.cpp b/src/utilities/analyse.cpp
new file mode 100644
index 0000000000..0b2cfe13bd
--- /dev/null
+++ b/src/utilities/analyse.cpp
@@ -0,0 +1,329 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		Analyse.c
+ *	DESCRIPTION:	I/O trace analysis
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifdef VMS
+#include <types.h>
+#include "times.h"
+#else
+#include <sys/types.h>
+#include <sys/times.h>
+#include <sys/time.h>
+#endif
+
+#include "../jrd/common.h"
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include "jrd.h"
+#include "ods.h"
+
+extern SCHAR *sys_errlist[];
+
+static void analyse(int, SCHAR *, PAG, int);
+static SLONG get_long(void);
+static void db_error(int);
+static void db_open(UCHAR *, USHORT);
+static PAG db_read(SLONG);
+
+static IB_FILE *trace;
+static int file;
+
+/* Physical IO trace events */
+
+#define trace_create	1
+#define trace_open	2
+#define trace_page_size	3
+#define trace_read	4
+#define trace_write	5
+#define trace_close	6
+
+static USHORT page_size;
+static int map_length, map_base, map_count;
+static PAG global_buffer;
+static UCHAR *map_region;
+
+#define MAX_PAGES	50000
+
+static USHORT read_counts[MAX_PAGES], write_counts[MAX_PAGES];
+
+
+void main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Replay all I/O to compute overhead of I/O system.
+ *
+ **************************************/
+	SSHORT event, detail;
+	USHORT *r, *w;
+	PAG *page;
+	SLONG reads, writes, n, cpu, elapsed, system, length, sequence;
+	SCHAR string[128], *p, *end;
+	struct tms after, before;
+
+	detail = TRUE;
+	sequence = 0;
+
+	for (end = argv + argc, ++argv; argv < end; argv++) {
+		p = *argv;
+		if (*p++ == '-')
+			switch (UPPER(*p)) {
+			case 'S':
+				detail = FALSE;
+				break;
+			}
+	}
+
+
+	reads = writes = 0;
+	trace = ib_fopen("trace.log", "r");
+	page_size = 1024;
+
+	elapsed = times(&before);
+
+	while ((event = ib_getc(trace)) != trace_close && event != EOF)
+		switch (event) {
+		case trace_open:
+			n = length = ib_getc(trace);
+			p = string;
+			while (--n >= 0)
+				*p++ = ib_getc(trace);
+			*p = 0;
+			db_open(string, length);
+			break;
+
+		case trace_page_size:
+			page_size = get_long();
+			if (global_buffer)
+				free(global_buffer);
+			break;
+
+		case trace_read:
+			n = get_long();
+			++read_counts[n];
+			if (detail && (page = db_read(n)))
+				analyse(n, "Read", page, ++sequence);
+			reads++;
+			break;
+
+		case trace_write:
+			n = get_long();
+			++write_counts[n];
+			if (detail && (page = db_read(n)))
+				analyse(n, "Write", page, ++sequence);
+			writes++;
+			break;
+
+		default:
+			ib_printf("don't understand event %d\n", event);
+			abort();
+		}
+
+	elapsed = times(&after) - elapsed;
+	cpu = after.tms_utime - before.tms_utime;
+	system = after.tms_stime - before.tms_stime;
+
+	ib_printf
+		("File: %s:\n elapsed = %d.%.2d, cpu = %d.%.2d, system = %d.%.2d, reads = %d, writes = %d\n",
+		 string, elapsed / 60, (elapsed % 60) * 100 / 60, cpu / 60,
+		 (cpu % 60) * 100 / 60, system / 60, (system % 60) * 100 / 60, reads,
+		 writes);
+
+	ib_printf("High activity pages:\n");
+
+	for (r = read_counts, w = write_counts, n = 0; n < MAX_PAGES;
+		 n++, r++, w++)
+		if (*r > 1 || *w > 1) {
+			sprintf(string, "  Read: %d, write: %d", *r, *w);
+			if (page = db_read(n))
+				analyse(n, string, page, 0);
+		}
+}
+
+
+static void analyse( int number, SCHAR * string, PAG page, int sequence)
+{
+/**************************************
+ *
+ *	a n a l y s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyse a page event.
+ *
+ **************************************/
+
+	if (sequence)
+		ib_printf("%d.  %s\t%d\t\t", sequence, string, number);
+	else
+		ib_printf("%s\t%d\t\t", string, number);
+
+	switch (page->pag_type) {
+	case pag_header:
+		ib_printf("Header page\n");
+		break;
+
+	case pag_pages:
+		ib_printf("Page inventory page\n");
+		break;
+
+	case pag_transactions:
+		ib_printf("Transaction inventory page\n");
+		break;
+
+	case pag_pointer:
+		ib_printf("Pointer page, relation %d, sequence %d\n",
+				  ((PPG) page)->ppg_relation, ((PPG) page)->ppg_sequence);
+		break;
+
+	case pag_data:
+		ib_printf("Data page, relation %d, sequence %d\n",
+				  ((DPG) page)->dpg_relation, ((DPG) page)->dpg_sequence);
+		break;
+
+	case pag_root:
+		ib_printf("Index root page, relation %d\n",
+				  ((IRT) page)->irt_relation);
+		break;
+
+	case pag_index:
+		ib_printf("B-Tree page, relation %d, index %d, level %d\n",
+				  ((BTR) page)->btr_relation, ((BTR) page)->btr_id,
+				  ((BTR) page)->btr_level);
+		break;
+
+	case pag_blob:
+		ib_printf
+			("Blob page\n\tFlags: %x, lead page: %d, sequence: %d, length: %d\n\t",
+			 page->pag_flags, ((BLP) page)->blp_lead_page,
+			 ((BLP) page)->blp_sequence, ((BLP) page)->blp_length);
+
+		break;
+
+	default:
+		ib_printf("Unknown type %d\n", page->pag_type);
+		break;
+	}
+}
+
+
+static SLONG get_long(void)
+{
+/**************************************
+ *
+ *	g e t _ l o n g
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	union {
+		SLONG l;
+		SSHORT i;
+		SCHAR c;
+	} value;
+	SLONG n, i, x;
+	SCHAR *p;
+
+	p = (SCHAR *) & value.l;
+	x = i = ib_getc(trace);
+
+	while (--i >= 0)
+		*p++ = ib_getc(trace);
+
+	if (x == 1)
+		return value.c;
+	else if (x == 2)
+		return value.i;
+	else
+		return value.l;
+}
+
+
+#ifdef VMS
+static void db_error( int status)
+{
+/**************************************
+ *
+ *	d b _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	ib_printf(sys_errlist[status]);
+	abort();
+}
+
+
+static void db_open( UCHAR * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	d b _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.
+ *
+ **************************************/
+
+	if ((file = open(file_name, 2)) == -1)
+		db_error(errno);
+}
+
+
+static PAG db_read( SLONG page_number)
+{
+/**************************************
+ *
+ *	d b _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a database page.
+ *
+ **************************************/
+
+	if (!global_buffer)
+		global_buffer = malloc(page_size);
+
+	if (lseek(file, page_number * page_size, 0) == -1)
+		db_error(errno);
+
+	if (read(file, global_buffer, page_size) == -1)
+		db_error(errno);
+
+	return global_buffer;
+}
+#endif
diff --git a/src/utilities/cache.cpp b/src/utilities/cache.cpp
new file mode 100644
index 0000000000..b0fe8caf3f
--- /dev/null
+++ b/src/utilities/cache.cpp
@@ -0,0 +1,147 @@
+/*
+ *	PROGRAM:	JRD Shared Cache Manager
+ *	MODULE:		cache_manager.c
+ *	DESCRIPTION:	Manage shared database cache
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include <signal.h>
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/license.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/why_proto.h"
+
+#if (defined WIN_NT)
+#include <io.h>
+#endif
+
+static UCHAR cache_dpb[] = { gds_dpb_version1, gds__dpb_cache_manager };
+
+
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Run the shared cache manager.
+ *
+ **************************************/
+	TEXT *sw_database, c, *p, **end;
+	SLONG db_handle;
+	STATUS status, status_vector[20];
+	SLONG redir_in, redir_out, redir_err;
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+/* Perform some special handling when run as an Interbase service.  The
+   first switch can be "-svc" (lower case!) or it can be "-svc_re" followed
+   by 3 file descriptors to use in re-directing ib_stdin, ib_stdout, and ib_stderr. */
+
+	if (argc > 1 && !strcmp(argv[1], "-svc")) {
+		argv++;
+		argc--;
+	}
+	else if (argc > 4 && !strcmp(argv[1], "-svc_re")) {
+		redir_in = atol(argv[2]);
+		redir_out = atol(argv[3]);
+		redir_err = atol(argv[4]);
+#ifdef WIN_NT
+		redir_in = _open_osfhandle(redir_in, 0);
+		redir_out = _open_osfhandle(redir_out, 0);
+		redir_err = _open_osfhandle(redir_err, 0);
+#endif
+		if (redir_in != 0)
+			if (dup2((int) redir_in, 0))
+				close((int) redir_in);
+		if (redir_out != 1)
+			if (dup2((int) redir_out, 1))
+				close((int) redir_out);
+		if (redir_err != 2)
+			if (dup2((int) redir_err, 2))
+				close((int) redir_err);
+		argv += 4;
+		argc -= 4;
+	}
+
+#ifdef UNIX
+	if (setreuid(0, 0) < 0)
+		ib_printf("Shared cache manager: couldn't set uid to superuser\n");
+
+	SETPGRP;
+
+	signal(SIGINT, SIG_IGN);
+	signal(SIGQUIT, SIG_IGN);
+#endif
+
+	sw_database = "";
+
+	for (end = argv++ + argc; argv < end;) {
+		p = *argv++;
+		if (*p != '-')
+			sw_database = p;
+		else {
+			while (c = *++p)
+				switch (UPPER(c)) {
+				case 'D':
+					sw_database = *argv++;
+					break;
+
+				case 'Z':
+					ib_printf("Shared cache manager version %s\n",
+							  GDS_VERSION);
+					exit(FINI_OK);
+				}
+		}
+	}
+
+	gds__disable_subsystem("REMINT");
+	gds__disable_subsystem("CSI");
+	gds__disable_subsystem("GDSSHR5");
+	gds__disable_subsystem("PIPE5");
+
+	do {
+		db_handle = NULL;
+		status = gds__attach_database(status_vector,
+									  0,
+									  GDS_VAL(sw_database),
+									  GDS_REF(db_handle),
+									  sizeof(cache_dpb), GDS_VAL(cache_dpb));
+
+		if (status && status != gds__cache_restart) {
+			gds__print_status(status_vector);
+			gds__log_status(sw_database, status_vector);
+		}
+
+		if (db_handle)
+			gds__detach_database(status_vector, GDS_REF(db_handle));
+
+	} while (status == gds__cache_restart);
+
+	exit(status ? FINI_ERROR : FINI_OK);
+}
diff --git a/src/utilities/cmd_util.cpp b/src/utilities/cmd_util.cpp
new file mode 100644
index 0000000000..66400c5c21
--- /dev/null
+++ b/src/utilities/cmd_util.cpp
@@ -0,0 +1,167 @@
+/*
+ *	PROGRAM:	Command line utilities
+ *	MODULE:		cmd_util.c
+ *	DESCRIPTION:	Common functions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/msg_encode.h"
+#include "../jrd/iberr.h"
+
+#ifdef WIN_NT
+#include <io.h>
+#include <windows.h>
+#include "../jrd/pwd.h"
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT		SCHAR
+#endif
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+#include "../jrd/svc.h"
+#include "../jrd/svc_proto.h"
+
+extern "C" {
+
+
+void CMD_UTIL_put_svc_status(
+							 STATUS * svc_status,
+							 USHORT facility,
+							 USHORT errcode,
+							 USHORT arg1_t,
+void *arg1,
+USHORT arg2_t,
+void *arg2,
+USHORT arg3_t,
+void *arg3, USHORT arg4_t, void *arg4, USHORT arg5_t, void *arg5)
+{
+/**************************************
+ *
+ *      C M D _ U T I L _ p u t _ s v c _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Append error codes to the status vector
+ *
+ **************************************/
+
+	STATUS tmp_status[ISC_STATUS_LENGTH], warning_status[ISC_STATUS_LENGTH];
+	int i, tmp_status_len = 0, status_len = 0, err_status_len = 0;
+	int warning_count = 0, warning_indx = 0;
+	BOOLEAN duplicate = FALSE;
+
+	/* stuff the status into temp buffer */
+
+	MOVE_CLEAR(tmp_status, sizeof(tmp_status));
+	STATUS *status = tmp_status;
+	*status++ = isc_arg_gds;
+	*status++ = ENCODE_ISC_MSG(errcode, facility);
+	tmp_status_len = 3;
+
+	if (arg1) {
+		SVC_STATUS_ARG(status, arg1_t, reinterpret_cast < char *>(arg1));
+		tmp_status_len += 2;
+	}
+	if (arg2) {
+		SVC_STATUS_ARG(status, arg2_t, arg2);
+		tmp_status_len += 2;
+	}
+	if (arg3) {
+		SVC_STATUS_ARG(status, arg3_t, arg3);
+		tmp_status_len += 2;
+	}
+	if (arg4) {
+		SVC_STATUS_ARG(status, arg4_t, arg4);
+		tmp_status_len += 2;
+	}
+	if (arg5) {
+		SVC_STATUS_ARG(status, arg5_t, arg5);
+		tmp_status_len += 2;
+	}
+
+	*status++ = isc_arg_end;
+
+	if (svc_status[0] != gds_arg_gds ||
+		(svc_status[0] == gds_arg_gds && svc_status[1] == 0 &&
+		 svc_status[2] != isc_arg_warning)) {
+		MOVE_FASTER(tmp_status, svc_status, sizeof(STATUS) * tmp_status_len);
+	}
+	else {
+		PARSE_STATUS(svc_status, status_len, warning_indx);
+		if (status_len)
+			--status_len;
+
+		/* check for duplicated error code */
+		for (i = 0; i < ISC_STATUS_LENGTH; i++) {
+			if (svc_status[i] == gds_arg_end && i == status_len)
+				break;			/* end of argument list */
+
+			if (i && i == warning_indx)
+				break;			/* vector has no more errors */
+
+			if (svc_status[i] == tmp_status[1] && i &&
+				svc_status[i - 1] != isc_arg_warning &&
+				i + tmp_status_len - 2 < ISC_STATUS_LENGTH &&
+				(memcmp(&svc_status[i], &tmp_status[1],
+						sizeof(STATUS) * (tmp_status_len - 2)) == 0)) {
+				/* duplicate found */
+				duplicate = TRUE;
+				break;
+			}
+		}
+		if (!duplicate) {
+			/* if the status_vector has only warnings then adjust err_status_len */
+			if ((err_status_len = i) == 2 && warning_indx)
+				err_status_len = 0;
+
+			if (warning_indx) {
+				/* copy current warning(s) to a temp buffer */
+				MOVE_CLEAR(warning_status, sizeof(warning_status));
+				MOVE_FASTER(&svc_status[warning_indx], warning_status,
+							sizeof(STATUS) * (ISC_STATUS_LENGTH -
+											  warning_indx));
+				PARSE_STATUS(warning_status, warning_count, warning_indx);
+			}
+
+			/* add the status into a real buffer right in between last error
+			   and first warning */
+			if ((i = err_status_len + tmp_status_len) < ISC_STATUS_LENGTH) {
+				MOVE_FASTER(tmp_status, &svc_status[err_status_len],
+							sizeof(STATUS) * tmp_status_len);
+				/* copy current warning(s) to the status_vector */
+				if (warning_count
+					&& i + warning_count - 1 < ISC_STATUS_LENGTH) {
+					MOVE_FASTER(warning_status, &svc_status[i - 1],
+								sizeof(STATUS) * warning_count);
+				}
+			}
+		}
+	}
+}
+
+} // extern "C"
diff --git a/src/utilities/cmd_util_proto.h b/src/utilities/cmd_util_proto.h
new file mode 100644
index 0000000000..28e6b0b2cd
--- /dev/null
+++ b/src/utilities/cmd_util_proto.h
@@ -0,0 +1,39 @@
+/*
+ *	PROGRAM:	Command line utilities
+ *	MODULE:		cmd_util_proto.h
+ *	DESCRIPTION:	Prototype header file for cmd_util.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _UTILITIES_CMD_UTIL_PROTO_H_
+#define _UTILITIES_CMD_UTIL_PROTO_H_
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void	CMD_UTIL_put_svc_status (STATUS *, USHORT, USHORT, USHORT, void *, USHORT, void *, USHORT, void *, USHORT, void *, USHORT, void *);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _UTILITIES_CMD_UTIL_PROTO_H_ */
+
diff --git a/src/utilities/dba.e b/src/utilities/dba.e
new file mode 100644
index 0000000000..d352206d9c
--- /dev/null
+++ b/src/utilities/dba.e
@@ -0,0 +1,1937 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dba.e
+ *	DESCRIPTION:	Database analysis tool
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include <string.h>
+#include <fcntl.h>
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/common.h"
+#include "../jrd/time.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/ods.h"
+#include "../jrd/license.h"
+#include "../jrd/msg_encode.h"
+#include "../jrd/gdsassert.h"
+#ifndef SUPERSERVER
+#include "../utilities/ppg_proto.h"
+#endif
+#include "../utilities/dbaswi.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/thd.h"
+#include "../jrd/enc_proto.h"
+#ifdef SUPERSERVER
+#include "../utilities/cmd_util_proto.h"
+#endif
+
+#ifdef WIN_NT
+#include <io.h>
+#include <windows.h>
+#include "../jrd/pwd.h"
+#endif
+
+
+/* For Netware the follow DB handle and isc_status is #defined to be a  */
+/* local variable on the stack in main.  This is to avoid multiple      */
+/* threading problems with module level statics.                        */
+DATABASE DB = STATIC "yachts.lnk";
+#define DB          db_handle
+#define isc_status  status_vector
+
+#define ALLOC(size)	alloc ((SLONG) size);
+#define BUCKETS		5
+#define WINDOW_SIZE	(1 << 17)
+
+#if (defined WIN_NT)
+#include <stdlib.h>
+#else
+#if !(defined linux || defined FREEBSD || defined NETBSD)
+extern SCHAR *sys_errlist[];
+#endif
+#endif
+
+typedef struct dba_idx {
+	struct dba_idx *idx_next;
+	SSHORT idx_id;
+	SSHORT idx_depth;
+	SLONG idx_leaf_buckets;
+	SLONG idx_total_duplicates;
+	SLONG idx_max_duplicates;
+	SLONG idx_nodes;
+	SLONG idx_data_length;
+	SLONG idx_fill_distribution[BUCKETS];
+	SCHAR idx_name[32];
+} *DBA_IDX;
+
+typedef struct rel {
+	struct rel *rel_next;
+	struct dba_idx *rel_indexes;
+	SLONG rel_index_root;
+	SLONG rel_pointer_page;
+	SLONG rel_slots;
+	SLONG rel_data_pages;
+	ULONG rel_records;
+	ULONG rel_record_space;
+	ULONG rel_versions;
+	ULONG rel_version_space;
+	ULONG rel_max_versions;
+	SLONG rel_fill_distribution[BUCKETS];
+	ULONG rel_total_space;
+	SSHORT rel_id;
+	SCHAR rel_name[32];
+} *REL;
+
+/* kidnapped from jrd/pio.h and abused */
+
+typedef struct dba_fil {
+	struct dba_fil *fil_next;	/* Next file in database */
+	ULONG fil_min_page;			/* Minimum page number in file */
+	ULONG fil_max_page;			/* Maximum page number in file */
+	USHORT fil_fudge;			/* Fudge factor for page relocation */
+#ifdef WIN_NT
+	void *fil_desc;
+#else
+	int fil_desc;
+#endif
+	USHORT fil_length;			/* Length of expanded file name */
+	SCHAR fil_string[1];		/* Expanded file name */
+} *DBA_FIL;
+
+static SCHAR *alloc(SLONG);
+static void analyze_data(REL, BOOLEAN);
+static BOOLEAN analyze_data_page(REL, DPG, BOOLEAN);
+static ULONG analyze_fragments(REL, RHDF);
+static ULONG analyze_versions(REL, RHDF);
+static void analyze_index(REL, DBA_IDX);
+
+#if (defined WIN_NT)
+static void db_error(SLONG);
+#else
+static void db_error(int);
+#endif
+
+static DBA_FIL db_open(UCHAR *, USHORT);
+static PAG db_read(SLONG);
+static void db_close(int);
+static BOOLEAN key_equality(SSHORT, SCHAR *, BTN);
+static void move(SCHAR *, SCHAR *, SSHORT);
+static void print_distribution(SCHAR *, SLONG *);
+static void truncate_name(SCHAR *);
+static void dba_error(USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+static void dba_print(USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+#include "../jrd/svc.h"
+#include "../jrd/svc_proto.h"
+
+#ifdef SUPERSERVER
+#include <fcntl.h>
+#if (defined WIN_NT || defined NETWARE_386)
+#include <share.h>
+#endif
+#ifdef NETWARE_386
+#include <fileengd.h>
+#endif
+
+#include "../jrd/pwd.h"
+#include "../utilities/ppg_proto.h"
+
+#define FPRINTF		SVC_fprintf
+
+typedef struct open_files {
+	int desc;
+	struct open_files *open_files_next;
+} open_files;
+
+typedef struct mem {
+	void *memory;
+	struct mem *mem_next;
+} mem;
+#endif
+
+#ifndef FPRINTF
+#define FPRINTF 	ib_fprintf
+#endif
+
+/* threading declarations for thread data */
+
+typedef struct tdba {
+	struct thdd tdba_thd_data;
+	UCHAR *dba_env;
+	DBA_FIL files;
+	REL relations;
+	SSHORT page_size;
+	SLONG page_number;
+	PAG buffer1;
+	PAG buffer2;
+	PAG global_buffer;
+	int exit_code;
+#ifdef SUPERSERVER
+	SVC sw_outfile;
+	mem *head_of_mem_list;
+	open_files *head_of_files_list;
+	SVC dba_service_blk;
+#else
+	IB_FILE *sw_outfile;
+#endif
+	STATUS *dba_status;
+	STATUS dba_status_vector[ISC_STATUS_LENGTH];
+} *TDBA;
+
+#ifdef GET_THREAD_DATA
+#undef GET_THREAD_DATA
+#endif
+
+#ifdef SUPERSERVER
+#define GET_THREAD_DATA	        ((TDBA) THD_get_specific())
+#define SET_THREAD_DATA         {  tddba = &thd_context;           \
+                		   THD_put_specific ((THDD) tddba);\
+				   tddba->tdba_thd_data.thdd_type = THDD_TYPE_TDBA; }
+#define RESTORE_THREAD_DATA     THD_restore_specific()
+#else
+static struct tdba *gddba;
+
+#define GET_THREAD_DATA	        (gddba)
+#define SET_THREAD_DATA         gddba = tddba = &thd_context; \
+				tddba->tdba_thd_data.thdd_type = THDD_TYPE_TDBA
+#define RESTORE_THREAD_DATA
+#endif
+
+#define EXIT(code)	            {  tddba->exit_code = code;        \
+                                   LONGJMP(tddba->dba_env, 1);  }
+
+#define GSTAT_MSG_FAC	21
+
+#if defined (WIN95) && !defined (GUI_TOOLS)
+static BOOLEAN fAnsiCP = FALSE;
+#define TRANSLATE_CP(a) if (!fAnsiCP) CharToOem(a, a)
+#else
+#define TRANSLATE_CP(a)
+#endif
+
+
+
+
+#ifdef SUPERSERVER
+int main_gstat( SVC service)
+#else
+
+int CLIB_ROUTINE main( int argc, char **argv)
+#endif
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Gather information from system relations to do analysis
+ *	of a database.
+ *
+ **************************************/
+	IN_SW_TAB in_sw_tab;
+	REL relation;
+	DBA_IDX index;
+	HDR header;
+	LIP logp;
+	DBA_FIL current;
+	SCHAR **end, *name, *p, temp[1024], file_name[1024];
+	double average;
+	BOOLEAN sw_system, sw_data, sw_index, sw_version, sw_header, sw_log,
+		sw_record, sw_relation;
+	SLONG page;
+	SLONG redir_in, redir_out, redir_err;
+	UCHAR *vp, *vend;
+	isc_db_handle db_handle = NULL;
+#ifdef SUPERSERVER
+	SVC sw_outfile;
+	int argc;
+	char **argv;
+	open_files *open_file, *tmp1;
+	mem *alloced, *tmp2;
+#else
+	IB_FILE *sw_outfile;
+#endif
+	TEXT *q, *str, c;
+	UCHAR *dpb;
+	SSHORT dpb_length;
+	UCHAR dpb_string[256];
+	UCHAR buf[256];
+	UCHAR pass_buff[128], user_buff[128], *password = pass_buff, *username =
+		user_buff;
+	struct tdba thd_context, *tddba;
+	JMP_BUF env;
+	isc_tr_handle transact1;
+	isc_req_handle request1, request2, request3;
+	STATUS *status_vector;
+#if defined (WIN95) && !defined (GUI_TOOLS) && !defined (SUPERSERVER)
+	BOOL fAnsiCP;
+#endif
+
+	SET_THREAD_DATA;
+	SVC_PUTSPECIFIC_DATA;
+	memset(tddba, 0, sizeof(*tddba));
+	tddba->dba_env = (UCHAR *) env;
+
+#ifdef SUPERSERVER
+/* Reinitialize static variables for multi-threading */
+	argc = service->svc_argc;
+	argv = service->svc_argv;
+#endif
+
+	if (SETJMP(env)) {
+		int exit_code;
+
+		/* free mem */
+
+		if (status_vector[1]) {
+			STATUS *vector;
+			SCHAR s[1024];
+#ifdef SUPERSERVER
+			STATUS *status;
+			int i = 0, j;
+
+			status = tddba->dba_service_blk->svc_status;
+			if (status != status_vector) {
+				while (*status && (++i < ISC_STATUS_LENGTH))
+					status++;
+				for (j = 0; status_vector[j] && (i < ISC_STATUS_LENGTH);
+					 j++, i++)
+					*status++ = status_vector[j];
+			}
+#endif
+			vector = status_vector;
+			if (isc_interprete(s, &vector)) {
+				FPRINTF(tddba->sw_outfile, "%s\n", s);
+				s[0] = '-';
+				while (isc_interprete(s + 1, &vector))
+					FPRINTF(tddba->sw_outfile, "%s\n", s);
+			}
+		}
+
+		/* if there still exists a database handle, disconnect from the
+		 * server
+		 */
+		FINISH;
+
+#ifdef SUPERSERVER
+		SVC_STARTED(service);
+		alloced = tddba->head_of_mem_list;
+		while (alloced != 0) {
+			free(alloced->memory);
+			alloced = alloced->mem_next;
+		}
+
+		/* close files */
+		open_file = tddba->head_of_files_list;
+		while (open_file) {
+			db_close(open_file->desc);
+			open_file = open_file->open_files_next;
+		}
+
+		/* free linked lists */
+		while (tddba->head_of_files_list != 0) {
+			tmp1 = tddba->head_of_files_list;
+			tddba->head_of_files_list =
+				tddba->head_of_files_list->open_files_next;
+			free(tmp1);
+		}
+
+		while (tddba->head_of_mem_list != 0) {
+			tmp2 = tddba->head_of_mem_list;
+			tddba->head_of_mem_list = tddba->head_of_mem_list->mem_next;
+			free(tmp2);
+		}
+
+		service->svc_handle = 0;
+		if (service->svc_service->in_use != NULL)
+			*(service->svc_service->in_use) = FALSE;
+
+		/* Mark service thread as finished and cleanup memory being
+		 * used by service in case if client detached from the service
+		 */
+
+		SVC_finish(service, SVC_finished);
+#endif
+
+		exit_code = tddba->exit_code;
+		RESTORE_THREAD_DATA;
+
+#ifdef SUPERSERVER
+		return exit_code;
+#else
+		exit(exit_code);
+#endif
+	}
+
+#ifdef SUPERSERVER
+	sw_outfile = tddba->sw_outfile = service;
+#else
+	sw_outfile = tddba->sw_outfile = ib_stdout;
+#endif
+
+#if defined (WIN95) && !defined (GUI_TOOLS) && !defined (SUPERSERVER)
+	fAnsiCP = FALSE;
+#endif
+
+/* Perform some special handling when run as an Interbase service.  The
+   first switch can be "-svc" (lower case!) or it can be "-svc_re" followed
+   by 3 file descriptors to use in re-directing ib_stdin, ib_stdout, and ib_stderr. */
+	tddba->dba_status = tddba->dba_status_vector;
+	status_vector = tddba->dba_status;
+
+	if (argc > 1 && !strcmp(argv[1], "-svc")) {
+		argv++;
+		argc--;
+	}
+#ifdef SUPERSERVER
+	else if (!strcmp(argv[1], "-svc_thd")) {
+		tddba->dba_service_blk = service;
+		tddba->dba_status = service->svc_status;
+		argv++;
+		argc--;
+	}
+#endif
+#ifndef NETWARE_386
+	else if (argc > 4 && !strcmp(argv[1], "-svc_re")) {
+		redir_in = atol(argv[2]);
+		redir_out = atol(argv[3]);
+		redir_err = atol(argv[4]);
+#ifdef WIN_NT
+#if defined (WIN95) && !defined (GUI_TOOLS) && !defined (SUPERSERVER)
+		fAnsiCP = TRUE;
+#endif
+		redir_in = _open_osfhandle(redir_in, 0);
+		redir_out = _open_osfhandle(redir_out, 0);
+		redir_err = _open_osfhandle(redir_err, 0);
+#endif
+		if (redir_in != 0)
+			if (dup2((int) redir_in, 0))
+				close((int) redir_in);
+		if (redir_out != 1)
+			if (dup2((int) redir_out, 1))
+				close((int) redir_out);
+		if (redir_err != 2)
+			if (dup2((int) redir_err, 2))
+				close((int) redir_err);
+		argv += 4;
+		argc -= 4;
+	}
+#endif
+
+	name = NULL;
+	sw_log = sw_system = sw_data = sw_index = sw_version = sw_header =
+		sw_record = sw_relation = FALSE;
+
+	MOVE_CLEAR(user_buff, sizeof(user_buff));
+	MOVE_CLEAR(pass_buff, sizeof(pass_buff));
+
+	for (end = argv + argc, ++argv; argv < end;) {
+		str = *argv++;
+		if (*str == '-') {
+			if (!str[1])
+				str = "-*NONE*";
+			for (in_sw_tab = dba_in_sw_table; q = in_sw_tab->in_sw_name;
+				 in_sw_tab++) {
+				for (p = str + 1; c = *p++;)
+					if (UPPER(c) != *q++)
+						break;
+				if (!c)
+					break;
+			}
+			in_sw_tab->in_sw_state = TRUE;
+			if (!in_sw_tab->in_sw) {
+				dba_print(20, str + 1, 0, 0, 0, 0);	/* msg 20: unknown switch "%s" */
+				dba_print(21, 0, 0, 0, 0, 0);	/* msg 21: Available switches: */
+				for (in_sw_tab = dba_in_sw_table; in_sw_tab->in_sw;
+					 in_sw_tab++)
+					if (in_sw_tab->in_sw_msg)
+						dba_print(in_sw_tab->in_sw_msg, 0, 0, 0, 0, 0);
+#ifdef SUPERSERVER
+				CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+										GSTAT_MSG_FAC, 1,
+										0, NULL,
+										0, NULL, 0, NULL, 0, NULL, 0, NULL);
+#endif
+				dba_error(1, 0, 0, 0, 0, 0);	/* msg 1: found unknown switch */
+			}
+			else if (in_sw_tab->in_sw == IN_SW_DBA_USERNAME) {
+				strcpy(username, *argv++);
+			}
+			else if (in_sw_tab->in_sw == IN_SW_DBA_PASSWORD) {
+				strcpy(password, *argv++);
+			}
+			else if (in_sw_tab->in_sw == IN_SW_DBA_SYSTEM) {
+				sw_system = TRUE;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_DBA_DATA) {
+				sw_data = TRUE;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_DBA_INDEX) {
+				sw_index = TRUE;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_DBA_VERSION) {
+				sw_version = TRUE;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_DBA_HEADER) {
+				sw_header = TRUE;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_DBA_LOG) {
+				sw_log = TRUE;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_DBA_DATAIDX) {
+				sw_index = sw_data = TRUE;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_DBA_RECORD) {
+				sw_record = TRUE;
+			}
+			else if (in_sw_tab->in_sw == IN_SW_DBA_RELATION) {
+				sw_relation = TRUE;
+				while (argv < end && **argv != '-') {
+					REL *next;
+
+					if (strlen(*argv) > 31) {
+						argv++;
+						continue;
+					}
+					relation = (REL) ALLOC(sizeof(struct rel));
+					strcpy(relation->rel_name, *argv++);
+					truncate_name(relation->rel_name);
+					relation->rel_id = -1;
+					for (next = &tddba->relations; *next;
+						 next = &(*next)->rel_next);
+					*next = relation;
+				}
+			}
+		}
+		else
+			name = str;
+	}
+
+	if (!name) {
+#ifdef SUPERSERVER
+		CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+								GSTAT_MSG_FAC, 2,
+								0, NULL, 0, NULL, 0, NULL, 0, NULL, 0, NULL);
+#endif
+		dba_error(2, 0, 0, 0, 0, 0);	/* msg 2: please retry, giving a database name */
+	}
+
+	if (!sw_data && !sw_index)
+		sw_data = sw_index = TRUE;
+
+	if (sw_record && !sw_data)
+		sw_data = TRUE;
+
+#if defined (WIN95) && !defined (GUI_TOOLS) && !defined (SUPERSERVER)
+	if (!fAnsiCP) {
+		ULONG ulConsoleCP;
+
+		ulConsoleCP = GetConsoleCP();
+		if (ulConsoleCP == GetACP())
+			fAnsiCP = TRUE;
+		else if (ulConsoleCP != GetOEMCP()) {
+			FPRINTF(sw_outfile,
+					"WARNING: The current codepage is not supported.  Any use of any\n"
+					"         extended characters may result in incorrect file names.\n");
+		}
+	}
+#endif
+	if (sw_version)
+		dba_print(5, GDS_VERSION, 0, 0, 0, 0);	/* msg 5: gstat version %s */
+
+/* Open database and go to work */
+
+
+
+
+	current = db_open(name, strlen(name));
+	tddba->page_size = sizeof(temp);
+	tddba->global_buffer = (PAG) temp;
+	tddba->page_number = -1;
+	header = (HDR) db_read((SLONG) 0);
+
+#ifdef SUPERSERVER
+	SVC_STARTED(service);
+#endif
+
+/* ODS7 was not released as a shipping ODS and was replaced
+ * by ODS 8 in version 4.0 of InterBase.  There will not be any
+ * customer databases which have an ODS of 7 */
+
+	if (header->hdr_ods_version > ODS_VERSION ||
+		(header->hdr_ods_version < ODS_VERSION8 &&
+		 header->hdr_ods_version != ODS_VERSION6)) {
+#ifdef SUPERSERVER
+		CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+								GSTAT_MSG_FAC, 3,
+								isc_arg_number, ODS_VERSION,
+								isc_arg_number, header->hdr_ods_version,
+								0, NULL, 0, NULL, 0, NULL);
+#endif
+		dba_error(3, (TEXT *) ODS_VERSION, (TEXT *) header->hdr_ods_version,
+				  0, 0, 0);		/* msg 3: Wrong ODS version, expected %d, encountered %d? */
+	}
+
+#if defined (WIN95) && !defined (GUI_TOOLS) && !defined (SUPERSERVER)
+	if (!fAnsiCP)
+		AnsiToOem(name, file_name);
+	else
+#endif
+		strcpy(file_name, name);
+
+	dba_print(6, file_name, 0, 0, 0, 0);	/* msg 6: \nDatabase \"%s\"\n */
+
+	tddba->page_size = header->hdr_page_size;
+	tddba->buffer1 = (PAG) ALLOC(tddba->page_size);
+	tddba->buffer2 = (PAG) ALLOC(tddba->page_size);
+	tddba->global_buffer = (PAG) ALLOC(tddba->page_size);
+	tddba->page_number = -1;
+
+/* gather continuation files */
+
+	page = HEADER_PAGE;
+	do {
+		if (page != HEADER_PAGE)
+			current = db_open(file_name, strlen(file_name));
+		do {
+			header = (HDR) db_read((SLONG) page);
+			if (current != tddba->files)
+				current->fil_fudge = 1;	/* ignore header page once read it */
+			*file_name = '\0';
+			for (vp = header->hdr_data, vend = vp + header->hdr_page_size;
+				 vp < vend && *vp != HDR_end; vp += 2 + vp[1]) {
+				if (*vp == HDR_file) {
+					memcpy(file_name, vp + 2, vp[1]);
+					*(file_name + vp[1]) = '\0';
+#if defined (WIN95) && !defined (GUI_TOOLS) && !defined (SUPERSERVER)
+					if (!fAnsiCP)
+						AnsiToOem(file_name, file_name);
+#endif
+				}
+				if (*vp == HDR_last_page)
+					memcpy(&current->fil_max_page, vp + 2,
+						   sizeof(current->fil_max_page));
+			}
+		}
+		while (page = header->hdr_next_page);
+		page = current->fil_max_page + 1;	/* first page of next file */
+	}
+	while (*file_name);
+
+/* Print header page */
+
+	page = HEADER_PAGE;
+	do {
+		header = (HDR) db_read((SLONG) page);
+		PPG_print_header(header, page, sw_outfile);
+	}
+	while (page = header->hdr_next_page);
+
+	if (sw_header)
+		EXIT(FINI_OK);
+
+/* print continuation file sequence */
+
+	dba_print(7, 0, 0, 0, 0, 0);	/* msg 7: \n\nDatabase file sequence: */
+	for (current = tddba->files; current->fil_next;
+		 current =
+		 current->fil_next) dba_print(8, current->fil_string,
+									  current->fil_next->fil_string, 0, 0, 0);	/* msg 8: File %s continues as file %s */
+	dba_print(9, current->fil_string,
+			  (current == tddba->files) ? "only" : "last", 0, 0, 0);	/* msg 9: File %s is the %s file\n */
+
+/* print log page */
+
+	page = LOG_PAGE;
+	do {
+		logp = (LIP) db_read((SLONG) page);
+		PPG_print_log(logp, page, sw_outfile);
+	}
+	while (page = logp->log_next_page);
+
+	if (sw_log)
+		EXIT(FINI_OK);
+
+/* Check to make sure that the user accessing the database is either
+ * SYSDBA or owner of the database */
+	dpb = dpb_string;
+	*dpb++ = gds__dpb_version1;
+	*dpb++ = isc_dpb_gstat_attach;
+	*dpb++ = 0;
+
+	if (*username) {
+		*dpb++ = gds__dpb_user_name;
+		*dpb++ = strlen(username);
+		strcpy(dpb, username);
+		dpb += strlen(username);
+	}
+
+	if (*password) {
+#ifdef SUPERSERVER
+		*dpb++ = gds__dpb_password_enc;
+#else
+		*dpb++ = gds__dpb_password;
+#endif
+		*dpb++ = strlen(password);
+		strcpy(dpb, password);
+		dpb += strlen(password);
+	}
+
+	dpb_length = dpb - dpb_string;
+
+	isc_attach_database(status_vector, 0, GDS_VAL(name), &DB, dpb_length,
+						dpb_string);
+	if (status_vector[1])
+		EXIT(FINI_ERROR);
+
+	if (sw_version)
+		gds__version(&DB, NULL, NULL);
+
+	transact1 = 0;
+	START_TRANSACTION transact1 READ_ONLY;
+	ON_ERROR
+		EXIT(FINI_ERROR);
+	END_ERROR
+
+	request1 = NULL;
+	request2 = NULL;
+	request3 = NULL;
+
+	FOR(TRANSACTION_HANDLE transact1 REQUEST_HANDLE request1)
+		X IN RDB$RELATIONS SORTED BY DESC X.RDB$RELATION_NAME
+			if (!sw_system && X.RDB$SYSTEM_FLAG)
+			  continue;
+		if (!X.RDB$VIEW_BLR.NULL || !X.RDB$EXTERNAL_FILE.NULL)
+			continue;
+		if (sw_relation) {
+			truncate_name(X.RDB$RELATION_NAME);
+			for (relation = tddba->relations; relation; relation = relation->rel_next)
+                if (!(strcmp(relation->rel_name, X.RDB$RELATION_NAME))) {
+					relation->rel_id = X.RDB$RELATION_ID;
+					break;
+                }
+			if (!relation)
+				continue;
+		}
+		else {
+			relation = (REL) ALLOC(sizeof(struct rel));
+			relation->rel_next = tddba->relations;
+			tddba->relations = relation;
+			relation->rel_id = X.RDB$RELATION_ID;
+			strcpy(relation->rel_name, X.RDB$RELATION_NAME);
+			truncate_name(relation->rel_name);
+		}
+
+		FOR(TRANSACTION_HANDLE transact1 REQUEST_HANDLE request2)
+			Y IN RDB$PAGES WITH Y.RDB$RELATION_ID EQ relation->rel_id AND
+				Y.RDB$PAGE_SEQUENCE EQ 0 
+
+            if (Y.RDB$PAGE_TYPE == pag_pointer)
+				relation->rel_pointer_page = Y.RDB$PAGE_NUMBER;
+            if (Y.RDB$PAGE_TYPE == pag_root)
+				relation->rel_index_root = Y.RDB$PAGE_NUMBER;
+		END_FOR;
+		ON_ERROR
+			EXIT(FINI_ERROR);
+		END_ERROR
+		if (sw_index)
+		FOR(TRANSACTION_HANDLE transact1 REQUEST_HANDLE request3)
+			Y IN RDB$INDICES WITH Y.RDB$RELATION_NAME EQ relation->rel_name
+				SORTED BY DESC Y.RDB$INDEX_NAME 
+            if (Y.RDB$INDEX_INACTIVE)
+				  continue;
+			index = (DBA_IDX) ALLOC(sizeof(struct dba_idx));
+			index->idx_next = relation->rel_indexes;
+			relation->rel_indexes = index;
+			strcpy(index->idx_name, Y.RDB$INDEX_NAME);
+			truncate_name(index->idx_name);
+			index->idx_id = Y.RDB$INDEX_ID - 1;
+        END_FOR;
+		ON_ERROR
+			EXIT(FINI_ERROR);
+		END_ERROR
+	END_FOR;
+	ON_ERROR
+		EXIT(FINI_ERROR);
+	END_ERROR
+
+	if (request1)
+		isc_release_request(status_vector, &request1);
+	if (request2)
+		isc_release_request(status_vector, &request2);
+	if (request3)
+		isc_release_request(status_vector, &request3);
+
+	COMMIT transact1;
+	ON_ERROR
+		EXIT(FINI_ERROR);
+	END_ERROR
+	FINISH;
+	ON_ERROR
+		EXIT(FINI_ERROR);
+	END_ERROR
+
+	dba_print(10, 0, 0, 0, 0, 0);	/* msg 10: \nAnalyzing database pages ...\n */
+
+	for (relation = tddba->relations; relation; relation = relation->rel_next) {
+		if (relation->rel_id == -1)
+			continue;
+		if (sw_data)
+			analyze_data(relation, sw_record);
+		for (index = relation->rel_indexes; index; index = index->idx_next)
+			analyze_index(relation, index);
+	}
+
+/* Print results */
+
+	for (relation = tddba->relations; relation; relation = relation->rel_next) {
+		if (relation->rel_id == -1)
+			continue;
+		FPRINTF(sw_outfile, "%s (%d)\n", relation->rel_name,
+				relation->rel_id);
+		if (sw_data) {
+			dba_print(11, (TEXT *) relation->rel_pointer_page,
+					  (TEXT *) relation->rel_index_root, 0, 0, 0);	/* msg 11: "    Primary pointer page: %ld, Index root page: %ld" */
+			if (sw_record) {
+				average = (relation->rel_records) ?
+					(double) relation->rel_record_space /
+					relation->rel_records : 0.0;
+				sprintf(buf, "%.2f", average);
+				FPRINTF(sw_outfile,
+						"    Average record length: %s, total records: %ld\n",
+						buf, relation->rel_records);
+/*	    dba_print(18, buf, relation->rel_records,
+		  0, 0, 0); *//* msg 18: "    Average record length: %s, total records: %ld */
+				average = (relation->rel_versions) ?
+					(double) relation->rel_version_space /
+					relation->rel_versions : 0.0;
+				sprintf(buf, "%.2f", average);
+				FPRINTF(sw_outfile,
+						"    Average version length: %s, total versions: %ld, max versions: %ld\n",
+						buf, relation->rel_versions,
+						relation->rel_max_versions);
+/*	    dba_print(19, buf, relation->rel_versions, relation->rel_max_versions,
+		  0, 0); *//* msg 19: "    Average version length: %s, total versions: %ld, max versions: %ld */
+			}
+
+			average = (relation->rel_data_pages) ?
+				(double) relation->rel_total_space * 100 /
+				((double) relation->rel_data_pages *
+				 (tddba->page_size - DPG_SIZE)) : 0;
+			sprintf(buf, "%.0f%%", average);
+			dba_print(12, relation->rel_data_pages, relation->rel_slots,
+					  buf, 0, 0);	/* msg 12: "    Data pages: %ld, data page slots: %ld, average fill: %s */
+			dba_print(13, 0, 0, 0, 0, 0);	/* msg 13: "    Fill distribution:" */
+			print_distribution("\t", relation->rel_fill_distribution);
+		}
+		FPRINTF(sw_outfile, "\n");
+		for (index = relation->rel_indexes; index; index = index->idx_next) {
+			dba_print(14, index->idx_name, (TEXT *) index->idx_id, 0, 0, 0);	/* msg 14: "    Index %s (%d)" */
+			dba_print(15, (TEXT *) index->idx_depth,
+					  (TEXT *) index->idx_leaf_buckets,
+					  (TEXT *) index->idx_nodes, 0, 0);
+			/* msg 15: \tDepth: %d, leaf buckets: %ld, nodes: %ld */
+			average = (index->idx_nodes) ?
+				index->idx_data_length / index->idx_nodes : 0;
+			sprintf(buf, "%.2f", average);
+			dba_print(16, buf, index->idx_total_duplicates,
+					  index->idx_max_duplicates, 0, 0);	/* msg 16: \tAverage data length: %s, total dup: %ld, max dup: %ld" */
+			dba_print(17, 0, 0, 0, 0, 0);	/* msg 17: \tFill distribution: */
+			print_distribution("\t    ", index->idx_fill_distribution);
+			FPRINTF(sw_outfile, "\n");
+		}
+	}
+
+	EXIT(FINI_OK);
+
+	return 0;
+}
+
+
+static SCHAR *alloc( SLONG size)
+{
+/**************************************
+ *
+ *	a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate and zero a piece of memory.
+ *
+ **************************************/
+	SCHAR *block, *p;
+#ifdef SUPERSERVER
+	mem *mem_list;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	block = p = malloc(size);
+	if (!p) {
+		/* NOMEM: return error */
+		dba_error(31, 0, 0, 0, 0, 0);
+	}
+/* note: shouldn't we check for the NULL?? */
+	do
+		*p++ = 0;
+	while (--size);
+
+	if (!(mem_list = malloc(sizeof(mem)))) {
+		/* NOMEM: return error */
+		dba_error(31, 0, 0, 0, 0, 0);
+	}
+	mem_list->memory = block;
+	mem_list->mem_next = 0;
+
+	if (tddba->head_of_mem_list == 0)
+		tddba->head_of_mem_list = mem_list;
+	else {
+		mem_list->mem_next = tddba->head_of_mem_list;
+		tddba->head_of_mem_list = mem_list;
+	}
+#else
+	block = p = gds__alloc(size);
+	if (!p) {
+		/* NOMEM: return error */
+		dba_error(31, 0, 0, 0, 0, 0);
+	}
+	do
+		*p++ = 0;
+	while (--size);
+#endif
+
+	return block;
+}
+
+
+static void analyze_data( REL relation, BOOLEAN sw_record)
+{
+/**************************************
+ *
+ *	a n a l y z e _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze data pages associated with relation.
+ *
+ **************************************/
+	PPG pointer_page;
+	SLONG next_pp, *ptr, *end;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	pointer_page = (PPG) tddba->buffer1;
+
+	for (next_pp = relation->rel_pointer_page; next_pp;
+		 next_pp = pointer_page->ppg_next) {
+		move(db_read(next_pp), pointer_page, tddba->page_size);
+		for (ptr = pointer_page->ppg_page, end =
+			 ptr + pointer_page->ppg_count; ptr < end; ptr++) {
+			++relation->rel_slots;
+			if (*ptr) {
+				++relation->rel_data_pages;
+				if (!analyze_data_page(relation, db_read(*ptr), sw_record))
+					dba_print(18, (TEXT *) * ptr, 0, 0, 0, 0);	/* msg 18: "    Expected data on page %ld" */
+			}
+		}
+	}
+}
+
+
+static BOOLEAN analyze_data_page( REL relation, DPG page, BOOLEAN sw_record)
+{
+/**************************************
+ *
+ *	a n a l y z e _ d a t a _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze space utilization for data page.
+ *
+ **************************************/
+	SSHORT bucket, space;
+	RHDF header;
+	TDBA tddba;
+	struct dpg_repeat *tail, *end;
+
+	tddba = GET_THREAD_DATA;
+
+	if (page->dpg_header.pag_type != pag_data)
+		return FALSE;
+
+	if (sw_record) {
+		move(page, tddba->buffer2, tddba->page_size);
+		page = (DPG) tddba->buffer2;
+	}
+
+	space = page->dpg_count * sizeof(struct dpg_repeat);
+
+	for (tail = page->dpg_rpt, end = tail + page->dpg_count; tail < end;
+		 tail++)
+		if (tail->dpg_offset && tail->dpg_length) {
+			space += tail->dpg_length;
+			if (sw_record) {
+				header = (RHDF) ((SCHAR *) page + tail->dpg_offset);
+				if (!
+					(header->
+					 rhdf_flags & (rhd_blob | rhd_chain | rhd_fragment))) {
+					++relation->rel_records;
+					relation->rel_record_space += tail->dpg_length;
+					if (header->rhdf_flags & rhd_incomplete) {
+						relation->rel_record_space -= RHDF_SIZE;
+						relation->rel_record_space +=
+							analyze_fragments(relation, header);
+					}
+					else
+						relation->rel_record_space -= RHD_SIZE;
+
+					if (header->rhdf_b_page)
+						relation->rel_version_space +=
+							analyze_versions(relation, header);
+				}
+			}
+		}
+
+	relation->rel_total_space += space;
+	bucket = (space * BUCKETS) / (tddba->page_size - DPG_SIZE);
+
+	if (bucket == BUCKETS)
+		--bucket;
+
+	++relation->rel_fill_distribution[bucket];
+
+	return TRUE;
+}
+
+
+static ULONG analyze_fragments( REL relation, RHDF header)
+{
+/**************************************
+ *
+ *	a n a l y z e _ f r a g m e n t s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze space used by a record's fragments.
+ *
+ **************************************/
+	ULONG space;
+	SLONG f_page;
+	USHORT f_line;
+	TDBA tddba;
+	DPG page;
+	struct dpg_repeat *index;
+
+	tddba = GET_THREAD_DATA;
+	space = 0;
+
+	while (header->rhdf_flags & rhd_incomplete) {
+		f_page = header->rhdf_f_page;
+		f_line = header->rhdf_f_line;
+		page = (DPG) db_read(f_page);
+		if (page->dpg_header.pag_type != pag_data ||
+			page->dpg_relation != relation->rel_id ||
+			page->dpg_count <= f_line) break;
+		index = &page->dpg_rpt[f_line];
+		if (!index->dpg_offset)
+			break;
+		space += index->dpg_length;
+		space -= RHDF_SIZE;
+		header = (RHDF) ((SCHAR *) page + index->dpg_offset);
+	}
+
+	return space;
+}
+
+
+static void analyze_index( REL relation, DBA_IDX index)
+{
+/**************************************
+ *
+ *	a n a l y z e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	BTR bucket;
+	IRT index_root;
+	BTN node;
+	SSHORT space, duplicates, key_length, l, dup, n;
+	UCHAR key[256], *p, *q;
+	SLONG number, page;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	index_root = (IRT) db_read(relation->rel_index_root);
+
+	if (index_root->irt_count <= index->idx_id ||
+		!(page = index_root->irt_rpt[index->idx_id].irt_root))
+		return;
+
+	bucket = (BTR) db_read(page);
+	index->idx_depth = bucket->btr_level + 1;
+
+	while (bucket->btr_level) {
+		move(bucket->btr_nodes[0].btn_number, &page, sizeof(page));
+		bucket = (BTR) db_read(page);
+	}
+
+	duplicates = 0;
+	key_length = 0;
+
+	for (;;) {
+		++index->idx_leaf_buckets;
+		for (node = bucket->btr_nodes;;
+			 node = (BTN) (node->btn_data + node->btn_length)) {
+			move(node->btn_number, &number, sizeof(number));
+#ifdef IGNORE_NULL_IDX_KEY
+			/* ignore this node and go to the next one */
+			if (number == END_NON_NULL)
+				continue;
+#endif /* IGNORE_NULL_IDX_KEY */
+
+			if (number == END_LEVEL || number == END_BUCKET)
+				break;
+			++index->idx_nodes;
+			index->idx_data_length += node->btn_length;
+			l = node->btn_length + node->btn_prefix;
+			if (node == bucket->btr_nodes)
+				dup = key_equality(key_length, key, node);
+			else
+				dup = !node->btn_length && l == key_length;
+			if (dup) {
+				++index->idx_total_duplicates;
+				++duplicates;
+			}
+			else {
+				if (duplicates > index->idx_max_duplicates)
+					index->idx_max_duplicates = duplicates;
+				duplicates = 0;
+			}
+			key_length = l;
+			if (l = node->btn_length) {
+				p = key + node->btn_prefix;
+				q = node->btn_data;
+				do
+					*p++ = *q++;
+				while (--l);
+			}
+		}
+		if (duplicates > index->idx_max_duplicates)
+			index->idx_max_duplicates = duplicates;
+		space = bucket->btr_length - OFFSETA(BTR, btr_nodes);
+		n = (space * BUCKETS) / (tddba->page_size - OFFSETA(BTR, btr_nodes));
+		if (n == BUCKETS)
+			--n;
+		++index->idx_fill_distribution[n];
+		if (number == END_LEVEL)
+			break;
+		number = page;
+		page = bucket->btr_sibling;
+		bucket = (BTR) db_read(page);
+		if (bucket->btr_header.pag_type != pag_index) {
+			dba_print(19, (TEXT *) page, (TEXT *) number, 0, 0, 0);
+			/* mag 19: "    Expected b-tree bucket on page %ld from %ld" */
+			break;
+		}
+	}
+}
+
+
+static ULONG analyze_versions( REL relation, RHDF header)
+{
+/**************************************
+ *
+ *	a n a l y z e _ v e r s i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze space used by a record's back versions.
+ *
+ **************************************/
+	ULONG space, versions;
+	SLONG b_page;
+	USHORT b_line;
+	TDBA tddba;
+	DPG page;
+	struct dpg_repeat *index;
+
+	tddba = GET_THREAD_DATA;
+	space = versions = 0;
+	b_page = header->rhdf_b_page;
+	b_line = header->rhdf_b_line;
+
+	while (b_page) {
+		page = (DPG) db_read(b_page);
+		if (page->dpg_header.pag_type != pag_data ||
+			page->dpg_relation != relation->rel_id ||
+			page->dpg_count <= b_line) break;
+		index = &page->dpg_rpt[b_line];
+		if (!index->dpg_offset)
+			break;
+		space += index->dpg_length;
+		++relation->rel_versions;
+		++versions;
+		header = (RHDF) ((SCHAR *) page + index->dpg_offset);
+		b_page = header->rhdf_b_page;
+		b_line = header->rhdf_b_line;
+		if (header->rhdf_flags & rhd_incomplete) {
+			space -= RHDF_SIZE;
+			space += analyze_fragments(relation, header);
+		}
+		else
+			space -= RHD_SIZE;
+	}
+
+	if (versions > relation->rel_max_versions)
+		relation->rel_max_versions = versions;
+
+	return space;
+}
+
+
+#ifdef NETWARE_386
+static void db_close( int file_desc)
+{
+/**************************************
+ *
+ *	d b _ c l o s e		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *    Close an open file
+ *
+ **************************************/
+	close(file_desc);
+}
+
+static void db_error( int status)
+{
+/**************************************
+ *
+ *	d b _ e r r o r		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *p;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+	tddba->page_number = -1;
+
+	FPRINTF(tddba->sw_outfile, "%s\n", sys_errlist[status]);
+	EXIT(FINI_ERROR);
+}
+
+
+static DBA_FIL db_open( UCHAR * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	d b _ o p e n		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.
+ *
+ **************************************/
+	DBA_FIL fil;
+	open_files *file_list;
+	TEXT expanded_filename[256];
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	ISC_expand_filename(file_name, file_length, expanded_filename);
+
+	if (tddba->files) {
+		for (fil = tddba->files; fil->fil_next; fil = fil->fil_next);
+		fil->fil_next =
+			(DBA_FIL) ALLOC(sizeof(struct dba_fil) +
+							strlen(expanded_filename) + 1);
+		fil->fil_next->fil_min_page = fil->fil_max_page + 1;
+		fil = fil->fil_next;
+	}
+	else {						/* empty list */
+
+		fil = tddba->files =
+			(DBA_FIL) ALLOC(sizeof(struct dba_fil) +
+							strlen(expanded_filename) + 1);
+		MOVE_CLEAR(tddba_files, sizeof(struct dba_fil));
+		fil->fil_min_page = 0L;
+	}
+
+	fil->fil_next = NULL;
+	strcpy(fil->fil_string, expanded_filename);
+	fil->fil_length = strlen(expanded_filename);
+	fil->fil_fudge = 0;
+	fil->fil_max_page = 0L;
+
+#ifdef READONLY_DATABASE
+	if (
+		(fil->fil_desc =
+		 FEsopen(expanded_filename, O_RDONLY | O_BINARY, SH_DENYNO, 0, 0,
+				 PrimaryDataStream)) == -1)
+#else
+	if (
+		(fil->fil_desc =
+		 FEsopen(expanded_filename, O_RDWR | O_BINARY, SH_DENYNO, 0, 0,
+				 PrimaryDataStream)) == -1)
+#endif /* READONLY_DATABASE */
+	{
+#ifdef SUPERSERVER
+		CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+								GSTAT_MSG_FAC, 29,
+								isc_arg_string, expanded_filename,
+								0, NULL, 0, NULL, 0, NULL, 0, NULL);	/* msg 29: Can't open database file %s */
+#endif
+		db_error(errno);
+	}
+
+	if (!(file_list = malloc(sizeof(*file_list)))) {
+		/* NOMEM: return error */
+		dba_error(31, 0, 0, 0, 0, 0);
+	}
+	file_list->desc = fil->fil_desc;
+	file_list->open_files_next = 0;
+
+	if (tddba->head_of_files_list == 0)
+		tddba->head_of_files_list = file_list;
+	else {
+		file_list->open_files_next = tddba->head_of_files_list;
+		tddba->head_of_files_list = file_list;
+	}
+
+	return fil;
+}
+
+
+static PAG db_read( SLONG page_number)
+{
+/**************************************
+ *
+ *	d b _ r e a d		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a database page.
+ *
+ **************************************/
+	SCHAR *p;
+	SSHORT length, l;
+	DBA_FIL fil;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	if (tddba->page_number == page_number)
+		return tddba->global_buffer;
+
+	tddba->page_number = page_number;
+
+	for (fil = tddba->files;
+		 page_number > fil->fil_max_page
+		 && fil->fil_next;) fil = fil->fil_next;
+
+	page_number -= fil->fil_min_page - fil->fil_fudge;
+	if (lseek(fil->fil_desc, page_number * tddba->page_size, 0) == -1) {
+#ifdef SUPERSERVER
+		CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+								GSTAT_MSG_FAC, 30,
+								0, NULL, 0, NULL, 0, NULL, 0, NULL, 0, NULL);	/* msg 30: Can't read a database page */
+#endif
+		db_error(errno);
+	}
+
+	for (p = (SCHAR *) tddba->global_buffer, length = tddba->page_size;
+		 length > 0;) {
+		l = read(fil->fil_desc, p, length);
+		if (l <= 0) {
+#ifdef SUPERSERVER
+			CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+									GSTAT_MSG_FAC, 30,
+									0, NULL, 0, NULL, 0, NULL, 0, NULL, 0, NULL);	/* msg 30: Can't read a database page */
+#endif
+			db_error(errno);
+		}
+		p += l;
+		length -= l;
+	}
+
+	return tddba->global_buffer;
+}
+#endif
+
+
+#ifdef WIN_NT
+static void db_close( int file_desc)
+{
+/**************************************
+ *
+ *	d b _ c l o s e ( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *    Close an open file
+ *
+ **************************************/
+	CloseHandle((HANDLE) file_desc);
+}
+
+static void db_error( SLONG status)
+{
+/**************************************
+ *
+ *	d b _ e r r o r		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TEXT s[128];
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+	tddba->page_number = -1;
+
+	if (!FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,
+					   NULL,
+					   status,
+					   GetUserDefaultLangID(),
+					   s,
+					   sizeof(s),
+					   NULL))
+			sprintf(s, "unknown Windows NT error %ld", status);
+
+	FPRINTF(tddba->sw_outfile, "%s\n", s);
+	EXIT(FINI_ERROR);
+}
+
+
+static DBA_FIL db_open( UCHAR * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	d b _ o p e n		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.
+ *
+ **************************************/
+	DBA_FIL fil;
+	TDBA tddba;
+#ifdef SUPERSERVER
+	open_files *file_list;
+#endif
+
+	tddba = GET_THREAD_DATA;
+
+	if (tddba->files) {
+		for (fil = tddba->files; fil->fil_next; fil = fil->fil_next);
+		fil->fil_next =
+			(DBA_FIL) ALLOC(sizeof(struct dba_fil) + strlen(file_name) + 1);
+		fil->fil_next->fil_min_page = fil->fil_max_page + 1;
+		fil = fil->fil_next;
+	}
+	else {						/* empty list */
+
+		fil = tddba->files =
+			(DBA_FIL) ALLOC(sizeof(struct dba_fil) + strlen(file_name) + 1);
+		fil->fil_min_page = 0L;
+	}
+
+	fil->fil_next = NULL;
+	strcpy(fil->fil_string, file_name);
+	fil->fil_length = strlen(file_name);
+	fil->fil_fudge = 0;
+	fil->fil_max_page = 0L;
+
+	if ((fil->fil_desc = CreateFile(file_name,
+#ifdef READONLY_DATABASE
+									GENERIC_READ,
+#else
+									GENERIC_READ | GENERIC_WRITE,
+#endif /* READONLY_DATABASE */
+									FILE_SHARE_READ | FILE_SHARE_WRITE,
+									NULL,
+									OPEN_EXISTING,
+									FILE_ATTRIBUTE_NORMAL |
+									FILE_FLAG_RANDOM_ACCESS,
+									0)) == INVALID_HANDLE_VALUE) {
+#ifdef SUPERSERVER
+		CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+								GSTAT_MSG_FAC, 29,
+								isc_arg_string, file_name,
+								0, NULL, 0, NULL, 0, NULL, 0, NULL);	/* msg 29: Can't open database file %s */
+#endif
+		db_error(GetLastError());
+	}
+
+#ifdef SUPERSERVER
+	if (!(file_list = malloc(sizeof(*file_list)))) {
+		/* NOMEM: return error */
+		dba_error(31, 0, 0, 0, 0, 0);
+	}
+	file_list->desc = fil->fil_desc;
+	file_list->open_files_next = 0;
+
+	if (tddba->head_of_files_list == 0)
+		tddba->head_of_files_list = file_list;
+	else {
+		file_list->open_files_next = tddba->head_of_files_list;
+		tddba->head_of_files_list = file_list;
+	}
+#endif
+
+	return fil;
+}
+
+
+static PAG db_read( SLONG page_number)
+{
+/**************************************
+ *
+ *	d b _ r e a d		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a database page.
+ *
+ **************************************/
+	SLONG actual_length;
+	DBA_FIL fil;
+	TDBA tddba;
+	LARGE_INTEGER liOffset;
+
+	tddba = GET_THREAD_DATA;
+
+	if (tddba->page_number == page_number)
+		return tddba->global_buffer;
+
+	tddba->page_number = page_number;
+
+	for (fil = tddba->files;
+		 page_number > fil->fil_max_page
+		 && fil->fil_next;) fil = fil->fil_next;
+
+	page_number -= fil->fil_min_page - fil->fil_fudge;
+	liOffset.QuadPart =
+		UInt32x32To64((DWORD) page_number, (DWORD) tddba->page_size);
+	if (SetFilePointer
+		(fil->fil_desc, (LONG) liOffset.LowPart, &liOffset.HighPart,
+		 FILE_BEGIN) == -1) {
+#ifdef SUPERSERVER
+		CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+								GSTAT_MSG_FAC, 30,
+								0, NULL, 0, NULL, 0, NULL, 0, NULL, 0, NULL);	/* msg 30: Can't read a database page */
+#endif
+		db_error(GetLastError());
+	}
+
+	if (!ReadFile
+		(fil->fil_desc, tddba->global_buffer, tddba->page_size,
+		 &actual_length, NULL)) {
+#ifdef SUPERSERVER
+		CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+								GSTAT_MSG_FAC, 30,
+								0, NULL, 0, NULL, 0, NULL, 0, NULL, 0, NULL);	/* msg 30: Can't read a database page */
+#endif
+		db_error(GetLastError());
+	}
+	if (actual_length != tddba->page_size) {
+#ifdef SUPERSERVER
+		CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+								GSTAT_MSG_FAC, 4,
+								0, NULL, 0, NULL, 0, NULL, 0, NULL, 0, NULL);
+#endif
+		dba_error(4, 0, 0, 0, 0, 0);	/* msg 4: Unexpected end of database file. */
+	}
+
+	return tddba->global_buffer;
+}
+#endif
+
+
+#ifndef NETWARE_386
+#ifndef WIN_NT
+
+static void db_close( int file_desc)
+{
+/**************************************
+ *
+ *	d b _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *    Close an open file
+ *
+ **************************************/
+	close(file_desc);
+}
+
+static void db_error( int status)
+{
+/**************************************
+ *
+ *	d b _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *p;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+	tddba->page_number = -1;
+
+#ifndef VMS
+	FPRINTF(tddba->sw_outfile, "%s\n", sys_errlist[status]);
+#else
+	if ((p = strerror(status)) || (p = strerror(EVMSERR, status)))
+		FPRINTF(tddba->sw_outfile, "%s\n", p);
+	else
+		FPRINTF(tddba->sw_outfile, "uninterpreted code %x\n", status);
+#endif
+	EXIT(FINI_ERROR);
+}
+
+
+static DBA_FIL db_open( UCHAR * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	d b _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.
+ *      Put the file on an ordered list.
+ *
+ **************************************/
+	DBA_FIL fil;
+	TDBA tddba;
+#ifdef SUPERSERVER
+	open_files *file_list;
+#endif
+
+	tddba = GET_THREAD_DATA;
+
+	if (tddba->files) {
+		for (fil = tddba->files; fil->fil_next; fil = fil->fil_next);
+		fil->fil_next =
+			(DBA_FIL) ALLOC(sizeof(struct dba_fil) + strlen(file_name) + 1);
+		fil->fil_next->fil_min_page = fil->fil_max_page + 1;
+		fil = fil->fil_next;
+	}
+	else {						/* empty list */
+
+		fil = tddba->files =
+			(DBA_FIL) ALLOC(sizeof(struct dba_fil) + strlen(file_name) + 1);
+		fil->fil_min_page = 0L;
+	}
+
+	fil->fil_next = NULL;
+	strcpy(fil->fil_string, file_name);
+	fil->fil_length = strlen(file_name);
+	fil->fil_fudge = 0;
+	fil->fil_max_page = 0L;
+
+#ifdef READONLY_DATABASE
+	if ((fil->fil_desc = open(file_name, O_RDONLY)) == -1)
+#else
+	if ((fil->fil_desc = open(file_name, 2)) == -1)
+#endif /* READONLY_DATABASE */
+	{
+#ifdef SUPERSERVER
+		CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+								GSTAT_MSG_FAC, 29,
+								isc_arg_string, file_name,
+								0, NULL, 0, NULL, 0, NULL, 0, NULL);	/* msg 29: Can't open database file %s */
+#endif
+		db_error(errno);
+	}
+
+#ifdef SUPERSERVER
+	if (!(file_list = malloc(sizeof(*file_list)))) {
+		/* NOMEM: return error */
+		dba_error(31, 0, 0, 0, 0, 0);
+	}
+	file_list->desc = fil->fil_desc;
+	file_list->open_files_next = 0;
+
+	if (tddba->head_of_files_list == 0)
+		tddba->head_of_files_list = file_list;
+	else {
+		file_list->open_files_next = tddba->head_of_files_list;
+		tddba->head_of_files_list = file_list;
+	}
+#endif
+
+	return fil;
+}
+
+
+static PAG db_read( SLONG page_number)
+{
+/**************************************
+ *
+ *	d b _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a database page.
+ *
+ **************************************/
+	SCHAR *p;
+	SSHORT length, l;
+	DBA_FIL fil;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	if (tddba->page_number == page_number)
+		return tddba->global_buffer;
+
+	tddba->page_number = page_number;
+
+	for (fil = tddba->files;
+		 page_number > fil->fil_max_page
+		 && fil->fil_next;) fil = fil->fil_next;
+
+	page_number -= fil->fil_min_page - fil->fil_fudge;
+	if (lseek(fil->fil_desc, page_number * tddba->page_size, 0) == -1) {
+#ifdef SUPERSERVER
+		CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+								GSTAT_MSG_FAC, 30,
+								0, NULL, 0, NULL, 0, NULL, 0, NULL, 0, NULL);	/* msg 30: Can't read a database page */
+#endif
+		db_error(errno);
+	}
+
+	for (p = (SCHAR *) tddba->global_buffer, length = tddba->page_size;
+		 length > 0;) {
+		l = read(fil->fil_desc, p, length);
+		if (l < 0) {
+#ifdef SUPERSERVER
+			CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+									GSTAT_MSG_FAC, 30,
+									0, NULL, 0, NULL, 0, NULL, 0, NULL, 0, NULL);	/* msg 30: Can't read a database page */
+#endif
+			db_error(errno);
+		}
+		if (!l) {
+#ifdef SUPERSERVER
+			CMD_UTIL_put_svc_status(tddba->dba_service_blk->svc_status,
+									GSTAT_MSG_FAC, 4,
+									0, NULL,
+									0, NULL, 0, NULL, 0, NULL, 0, NULL);
+#endif
+			dba_error(4, 0, 0, 0, 0, 0);	/* msg 4: Unexpected end of database file. */
+		}
+		p += l;
+		length -= l;
+	}
+
+	return tddba->global_buffer;
+}
+#endif
+#endif
+
+
+static void dba_error(
+					  USHORT errcode,
+					  TEXT * arg1,
+					  TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	d b a _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format and print an error message, then punt.
+ *
+ **************************************/
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+	tddba->page_number = -1;
+
+	dba_print(errcode, arg1, arg2, arg3, arg4, arg5);
+	EXIT(FINI_ERROR);
+}
+
+
+static void dba_print(
+					  USHORT number,
+					  TEXT * arg1,
+					  TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	d b a _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Retrieve a message from the error file, format it, and print it.
+ *
+ **************************************/
+	TEXT buffer[256];
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	gds__msg_format(NULL_PTR, GSTAT_MSG_FAC, number, sizeof(buffer), buffer,
+					arg1, arg2, arg3, arg4, arg5);
+	TRANSLATE_CP(buffer);
+	FPRINTF(tddba->sw_outfile, "%s\n", buffer);
+}
+
+
+static BOOLEAN key_equality( SSHORT length, SCHAR * key, BTN node)
+{
+/**************************************
+ *
+ *	k e y _ e q u a l i t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check a B-tree node against a key for equality.
+ *
+ **************************************/
+	SSHORT l;
+	SCHAR *p;
+
+	if (length != node->btn_length + node->btn_prefix)
+		return FALSE;
+
+	if (!(l = node->btn_length))
+		return TRUE;
+
+	p = (SCHAR *) node->btn_data;
+	key += node->btn_prefix;
+
+	do
+		if (*p++ != *key++)
+			return FALSE;
+	while (--l);
+
+	return TRUE;
+}
+
+
+static void move( SCHAR * from, SCHAR * to, SSHORT length)
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move some stuff.
+ *
+ **************************************/
+
+	memcpy(to, from, (int) length);
+}
+
+
+static void print_distribution( SCHAR * prefix, SLONG * vector)
+{
+/**************************************
+ *
+ *	p r i n t _ d i s t r i b u t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print distribution as percentages.
+ *
+ **************************************/
+	SSHORT n;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	for (n = 0; n < BUCKETS; n++) {
+		FPRINTF(tddba->sw_outfile, "%s%2d - %2d%% = %ld\n",
+				prefix,
+				n * 100 / BUCKETS, (n + 1) * 100 / BUCKETS - 1, vector[n]);
+	}
+}
+
+
+static void truncate_name( SCHAR * string)
+{
+/**************************************
+ *
+ *	t r u n c a t e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zap trailing blanks.
+ *
+ **************************************/
+
+	for (; *string; ++string)
+		if (*string == ' ') {
+			*string = 0;
+			return;
+		}
+}
diff --git a/src/utilities/dba_full.e b/src/utilities/dba_full.e
new file mode 100644
index 0000000000..ccc0d137fe
--- /dev/null
+++ b/src/utilities/dba_full.e
@@ -0,0 +1,1698 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dba.e
+ *	DESCRIPTION:	Database analysis tool
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include <string.h>
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/common.h"
+#include "../jrd/time.h"
+#include "../jrd/gds.h"
+#include "../jrd/ods.h"
+#include "../jrd/license.h"
+#include "../utilities/ppg_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/thd.h"
+#include "../jrd/enc_proto.h"
+
+#ifdef WIN_NT
+#include <io.h>
+#include <windows.h>
+#include "../jrd/pwd.h"
+#define TEXT		SCHAR
+#endif
+
+
+/* For Netware the follow DB handle and isc_status is #defined to be a  */
+/* local variable on the stack in main.  This is to avoid multiple      */
+/* threading problems with module level statics.                        */
+DATABASE DB = STATIC "/gds/dev_nt/utilities/yachts.lnk";
+#define DB          db_handle
+#define isc_status  status_vector
+
+#define ALLOC(size)	alloc ((SLONG) size);
+#define BUCKETS		5
+#define WINDOW_SIZE	(1 << 17)
+
+#if (defined WIN_NT)
+#include <stdlib.h>
+#else
+extern SCHAR *sys_errlist[];
+#endif
+
+typedef struct rel {
+	struct rel *rel_next;
+	struct idx *rel_indexes;
+	SLONG rel_index_root;
+	SLONG rel_pointer_page;
+	SLONG rel_slots;
+	SLONG rel_data_pages;
+	SLONG rel_fill_distribution[BUCKETS];
+	ULONG rel_total_space;
+	SSHORT rel_id;
+	SCHAR rel_name[32];
+} *REL;
+
+typedef struct idx {
+	struct idx *idx_next;
+	SSHORT idx_id;
+	SSHORT idx_depth;
+	SLONG idx_leaf_buckets;
+	SLONG idx_total_duplicates;
+	SLONG idx_max_duplicates;
+	SLONG idx_nodes;
+	SLONG idx_data_length;
+	SLONG idx_fill_distribution[BUCKETS];
+	SCHAR idx_name[32];
+} *IDX;
+
+/* kidnapped from jrd/pio.h and abused */
+
+typedef struct fil {
+	struct fil *fil_next;		/* Next file in database */
+	ULONG fil_min_page;			/* Minimum page number in file */
+	ULONG fil_max_page;			/* Maximum page number in file */
+	USHORT fil_fudge;			/* Fudge factor for page relocation */
+#ifdef WIN_NT
+	void *fil_desc;
+#else
+	int fil_desc;
+#endif
+	USHORT fil_length;			/* Length of expanded file name */
+	SCHAR fil_string[1];		/* Expanded file name */
+
+} *FIL;
+
+
+static SCHAR *alloc(SLONG);
+static void analyze_data(REL);
+static BOOLEAN analyze_data_page(REL, DPG);
+static void analyze_index(REL, IDX);
+
+#if (defined WIN_NT)
+static void db_error(SLONG);
+#else
+static void db_error(int);
+#endif
+
+static FIL db_open(UCHAR *, USHORT);
+static PAG db_read(SLONG);
+static BOOLEAN key_equality(SSHORT, SCHAR *, BTN);
+static void move(SCHAR *, SCHAR *, SSHORT);
+static void print_distribution(SCHAR *, SLONG *);
+static void print_header(HDR);
+static void truncate_name(SCHAR *);
+
+
+static SCHAR *months[] = {
+	"Jan", "Feb", "Mar",
+	"Apr", "May", "Jun",
+	"Jul", "Aug", "Sep",
+	"Oct", "Nov", "Dec"
+};
+
+static TEXT help_text[] = "Available switches:\n\
+    -a      analyze data and index pages\n\
+    -d      analyze data pages\n\
+    -i      analyze index leaf pages\n\
+    -s      analyze system relations\n\
+    -z      display version number\n";
+
+#ifdef NETWARE_386
+#include <fcntl.h>
+#include <share.h>
+#include <fileengd.h>
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+#include "../jrd/svc.h"
+#include "../jrd/svc_proto.h"
+#include "../jrd/pwd.h"
+
+#define FPRINTF		SVC_netware_fprintf
+
+typedef struct open_files {
+	int desc;
+	struct open_files *open_files_next;
+} open_files;
+
+typedef struct mem {
+	void *memory;
+	struct mem *mem_next;
+} mem;
+#endif
+
+#ifndef FPRINTF
+#define FPRINTF 	ib_fprintf
+#endif
+
+/* threading declarations for thread data */
+
+typedef struct tdba {
+	struct thdd tdba_thd_data;
+	UCHAR *dba_env;
+	FIL files;
+	REL relations;
+	SSHORT page_size;
+	PAG buffer1;
+	PAG global_buffer;
+	int exit_code;
+#ifdef NETWARE_386
+	SVC sw_outfile;
+	mem *head_of_mem_list;
+	open_files *head_of_files_list;
+#else
+	IB_FILE *sw_outfile;
+#endif
+} *TDBA;
+
+#ifdef GET_THREAD_DATA
+#undef GET_THREAD_DATA
+#endif
+
+#ifdef NETWARE_386
+#define GET_THREAD_DATA	        ((TDBA) THD_get_specific())
+#define SET_THREAD_DATA         {  tddba = &thd_context;           \
+                		   THD_put_specific ((THDD) tddba);\
+				   tddba->tdba_thd_data.thdd_type = THDD_TYPE_TDBA; }
+#define RESTORE_THREAD_DATA     THD_restore_specific()
+#else
+static struct tdba *gddba;
+
+#define GET_THREAD_DATA	        (gddba)
+#define SET_THREAD_DATA         gddba = tddba = &thd_context; \
+				tddba->tdba_thd_data.thdd_type = THDD_TYPE_TDBA
+#define RESTORE_THREAD_DATA
+#endif
+
+#define EXIT(code)	            {  tddba->exit_code = code;        \
+                                   LONGJMP(tddba->dba_env, 1);  }
+
+
+#ifdef NETWARE_386
+int main_gstat( SVC service)
+#else
+
+int CLIB_ROUTINE main( int argc, char **argv)
+#endif
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Gather information from system relations to do analysis
+ *	of a database.
+ *
+ **************************************/
+	REL relation;
+	IDX index;
+	HDR header;
+	LIP logp;
+	FIL current;
+	SCHAR **end, *name, *p, temp[1024], file_name[1024];
+	double average;
+	SSHORT n;
+	USHORT sw_system, sw_data, sw_index, sw_version, sw_header, sw_log;
+	SLONG page;
+	SLONG redir_in, redir_out, redir_err;
+	UCHAR *vp, *vend;
+	isc_db_handle db_handle = NULL;
+#ifdef NETWARE_386
+	SVC sw_outfile;
+	int argc;
+	char **argv;
+	open_files *open_file, *tmp1;
+	mem *alloced, *tmp2;
+#else
+	IB_FILE *sw_outfile;
+#endif
+	TEXT *q;
+	UCHAR *dpb;
+	SSHORT dpb_length;
+	UCHAR dpb_string[100];
+	SCHAR password_enc[33];
+	struct tdba thd_context, *tddba;
+	JMP_BUF env;
+	isc_tr_handle transact1;
+	isc_req_handle request1, request2, request3;
+	long status_vector[20];
+#if defined (WIN95) && !defined (GUI_TOOLS)
+	BOOL fAnsiCP;
+#endif
+
+	SET_THREAD_DATA;
+	memset(tddba, 0, sizeof(*tddba));
+	memset(&status_vector, 0, sizeof(status_vector));
+	tddba->dba_env = env;
+
+#ifdef NETWARE_386
+/* Reinitialize static variables for multi-threading */
+	argc = service->svc_argc;
+	argv = service->svc_argv;
+#endif
+
+	if (SETJMP(env)) {
+		int exit_code;
+		/* free mem */
+
+		if (status_vector[1]) {
+			STATUS *vector;
+			SCHAR s[1024];
+
+			vector = status_vector;
+			if (isc_interprete(s, &vector)) {
+				FPRINTF(tddba->sw_outfile, "%s\n", s);
+				s[0] = '-';
+				while (isc_interprete(s + 1, &vector))
+					FPRINTF(tddba->sw_outfile, "%s\n", s);
+			}
+		}
+
+#ifdef NETWARE_386
+		alloced = tddba->head_of_mem_list;
+		while (alloced != 0) {
+			free(alloced->memory);
+			alloced = alloced->mem_next;
+		}
+
+		/* close files */
+		open_file = tddba->head_of_files_list;
+		while (open_file != 0) {
+			close(open_file->desc);
+			open_file = open_file->open_files_next;
+		}
+
+		/* free linked lists */
+		while (tddba->head_of_files_list != 0) {
+			tmp1 = tddba->head_of_files_list;
+			tddba->head_of_files_list =
+				tddba->head_of_files_list->open_files_next;
+			free(tmp1);
+		}
+
+		while (tddba->head_of_mem_list != 0) {
+			tmp2 = tddba->head_of_mem_list;
+			tddba->head_of_mem_list = tddba->head_of_mem_list->mem_next;
+			free(tmp2);
+		}
+
+		service->svc_handle = 0;
+		if (service->svc_service->in_use != NULL)
+			*(service->svc_service->in_use) = FALSE;
+
+		/* Mark service thread as finished. */
+		service->svc_flags |= SVC_finished;
+
+		/* If service is detached, cleanup memory being used by service. */
+		if (service->svc_flags & SVC_detached)
+			SVC_cleanup(service);
+#endif
+
+		exit_code = tddba->exit_code;
+		RESTORE_THREAD_DATA;
+
+#ifdef NETWARE_386
+		return exit_code;
+#else
+		exit(exit_code);
+#endif
+	}
+
+#ifdef NETWARE_386
+	sw_outfile = tddba->sw_outfile = service;
+#else
+	sw_outfile = tddba->sw_outfile = ib_stderr;
+#endif
+
+#if defined (WIN95) && !defined (GUI_TOOLS)
+	fAnsiCP = FALSE;
+#endif
+
+/* Perform some special handling when run as an Interbase service.  The
+   first switch can be "-svc" (lower case!) or it can be "-svc_re" followed
+   by 3 file descriptors to use in re-directing ib_stdin, ib_stdout, and ib_stderr. */
+
+	if (argc > 1 && !strcmp(argv[1], "-svc")) {
+		argv++;
+		argc--;
+	}
+#ifndef NETWARE_386
+	else if (argc > 4 && !strcmp(argv[1], "-svc_re")) {
+		redir_in = atol(argv[2]);
+		redir_out = atol(argv[3]);
+		redir_err = atol(argv[4]);
+#ifdef WIN_NT
+#if defined (WIN95) && !defined (GUI_TOOLS)
+		fAnsiCP = TRUE;
+#endif
+		redir_in = _open_osfhandle(redir_in, 0);
+		redir_out = _open_osfhandle(redir_out, 0);
+		redir_err = _open_osfhandle(redir_err, 0);
+#endif
+		if (redir_in != 0)
+			if (dup2((int) redir_in, 0))
+				close((int) redir_in);
+		if (redir_out != 1)
+			if (dup2((int) redir_out, 1))
+				close((int) redir_out);
+		if (redir_err != 2)
+			if (dup2((int) redir_err, 2))
+				close((int) redir_err);
+		argv += 4;
+		argc -= 4;
+	}
+#endif
+
+	name = NULL;
+	sw_log = sw_system = sw_data = sw_index = sw_version = sw_header = FALSE;
+
+	for (end = argv + argc, ++argv; argv < end;) {
+		p = *argv++;
+		if (*p == '-')
+			switch (UPPER(p[1])) {
+			case 'S':
+				sw_system = TRUE;
+				break;
+
+			case 'D':
+				sw_data = TRUE;
+				break;
+
+			case 'I':
+				sw_index = TRUE;
+				break;
+
+			case 'A':
+				sw_index = sw_data = TRUE;
+				break;
+
+			case 'Z':
+				sw_version = TRUE;
+				break;
+
+			case 'H':
+				sw_header = TRUE;
+				break;
+
+			case 'L':
+				sw_log = TRUE;
+				break;
+
+			default:
+				FPRINTF(sw_outfile, "%s\n", help_text);
+				EXIT(FINI_ERROR);
+			}
+		else
+			name = p;
+	}
+
+	if (!name) {
+		FPRINTF(sw_outfile, "please retry, giving a database name\n");
+		EXIT(FINI_ERROR);
+	}
+
+	if (!sw_data && !sw_index)
+		sw_data = sw_index = TRUE;
+
+#if defined (WIN95) && !defined (GUI_TOOLS)
+	if (!fAnsiCP) {
+		ULONG ulConsoleCP;
+
+		ulConsoleCP = GetConsoleCP();
+		if (ulConsoleCP == GetACP())
+			fAnsiCP = TRUE;
+		else if (ulConsoleCP != GetOEMCP()) {
+			FPRINTF(sw_outfile,
+					"WARNING: The current codepage is not supported.  Any use of any\n"
+					"         extended characters may result in incorrect file names.\n");
+		}
+	}
+#endif
+	if (sw_version)
+		FPRINTF(sw_outfile, "gstat version %s\n", GDS_VERSION);
+
+/* Open database and go to work */
+
+	current = db_open(name, strlen(name));
+	tddba->page_size = sizeof(temp);
+	tddba->global_buffer = (PAG) temp;
+	header = (HDR) db_read((SLONG) 0);
+
+	if (header->hdr_ods_version != ODS_VERSION
+		&& header->hdr_ods_version != ODS_VERSION6) {
+		FPRINTF(sw_outfile,
+				"Wrong ODS version, expected %d, encountered %d?\n",
+				ODS_VERSION, header->hdr_ods_version);
+		EXIT(FINI_ERROR);
+	}
+
+#if defined (WIN95) && !defined (GUI_TOOLS)
+	if (!fAnsiCP)
+		AnsiToOem(name, file_name);
+	else
+#endif
+		strcpy(file_name, name);
+
+	FPRINTF(sw_outfile, "\nDatabase \"%s\"\n\n", file_name);
+
+	tddba->page_size = header->hdr_page_size;
+	tddba->buffer1 = (PAG) ALLOC(tddba->page_size);
+	tddba->global_buffer = (PAG) ALLOC(tddba->page_size);
+
+/* gather continuation files */
+
+	page = HEADER_PAGE;
+	do {
+		if (page != HEADER_PAGE)
+			current = db_open(file_name, strlen(file_name));
+		do {
+			header = (HDR) db_read((SLONG) page);
+			if (current != tddba->files)
+				current->fil_fudge = 1;	/* ignore header page once read it */
+			*file_name = '\0';
+			for (vp = header->hdr_data, vend = vp + header->hdr_page_size;
+				 vp < vend && *vp != HDR_end; vp += 2 + vp[1]) {
+				if (*vp == HDR_file) {
+					memcpy(file_name, vp + 2, vp[1]);
+					*(file_name + vp[1]) = '\0';
+#if defined (WIN95) && !defined (GUI_TOOLS)
+					if (!fAnsiCP)
+						AnsiToOem(file_name, file_name);
+#endif
+				}
+				if (*vp == HDR_last_page)
+					memcpy(&current->fil_max_page, vp + 2,
+						   sizeof(current->fil_max_page));
+			}
+		}
+		while (page = header->hdr_next_page);
+		page = current->fil_max_page + 1;	/* first page of next file */
+	}
+	while (*file_name);
+
+/* Print header page */
+
+	page = HEADER_PAGE;
+	do {
+		header = (HDR) db_read((SLONG) page);
+		PPG_print_header(header, page, sw_outfile);
+	}
+	while (page = header->hdr_next_page);
+
+	if (sw_header)
+		EXIT(FINI_OK);
+
+/* print continuation file sequence */
+
+	FPRINTF(sw_outfile, "\n\nDatabase file sequence:\n");
+	for (current = tddba->files; current->fil_next;
+		 current =
+		 current->fil_next) FPRINTF(sw_outfile,
+									"File %s continues as file %s\n",
+									current->fil_string,
+									current->fil_next->fil_string);
+	FPRINTF(sw_outfile, "File %s is the %s file\n\n", current->fil_string,
+			(current == tddba->files) ? "only" : "last");
+
+/* print log page */
+
+	page = LOG_PAGE;
+	do {
+		logp = (LIP) db_read((SLONG) page);
+		PPG_print_log(logp, page, sw_outfile);
+	}
+	while (page = logp->log_next_page);
+
+	if (sw_log)
+		EXIT(FINI_OK);
+
+#if (defined NETWARE_386 || defined WIN_NT)
+	dpb = dpb_string;
+	*dpb++ = gds__dpb_version1;
+	*dpb++ = gds__dpb_user_name;
+	*dpb++ = strlen(LOCKSMITH_USER);
+	q = LOCKSMITH_USER;
+	while (*q)
+		*dpb++ = *q++;
+
+	*dpb++ = gds__dpb_password_enc;
+	strcpy(password_enc,
+		   (char *) ENC_crypt(LOCKSMITH_PASSWORD, PASSWORD_SALT));
+	q = password_enc + 2;
+	*dpb++ = strlen(q);
+	while (*q)
+		*dpb++ = *q++;
+
+	dpb_length = dpb - dpb_string;
+
+	isc_attach_database(status_vector, 0, GDS_VAL(name), &DB, dpb_length,
+						dpb_string);
+	if (status_vector[1])
+		EXIT(FINI_ERROR);
+#else
+	READY GDS_VAL(name) AS DB;
+	ON_ERROR
+		EXIT(FINI_ERROR);
+	END_ERROR
+#endif
+
+	if (sw_version)
+		gds__version(&DB, NULL, NULL);
+	transact1 = 0;
+	START_TRANSACTION transact1 READ_ONLY;
+	ON_ERROR
+		EXIT(FINI_ERROR);
+	END_ERROR
+
+	request1 = NULL;
+	request2 = NULL;
+	request3 = NULL;
+
+	FOR(TRANSACTION_HANDLE transact1 REQUEST_HANDLE request1)
+		X IN RDB$RELATIONS SORTED BY DESC X.RDB$RELATION_NAME
+		if (!sw_system && X.RDB$SYSTEM_FLAG)
+			  continue;
+		if (!X.RDB$VIEW_BLR.NULL || !X.RDB$EXTERNAL_FILE.NULL)
+			continue;
+		relation = (REL) ALLOC(sizeof(struct rel));
+		relation->rel_next = tddba->relations;
+		tddba->relations = relation;
+		relation->rel_id = X.RDB$RELATION_ID;
+		strcpy(relation->rel_name, X.RDB$RELATION_NAME);
+		truncate_name(relation->rel_name);
+		FOR(TRANSACTION_HANDLE transact1 REQUEST_HANDLE request2)
+			Y IN RDB$PAGES WITH Y.RDB$RELATION_ID EQ relation->rel_id AND
+				Y.RDB$PAGE_SEQUENCE EQ 0 
+            if (Y.RDB$PAGE_TYPE == pag_pointer)
+				relation->rel_pointer_page = Y.RDB$PAGE_NUMBER;
+			if (Y.RDB$PAGE_TYPE == pag_root)
+				relation->rel_index_root = Y.RDB$PAGE_NUMBER;
+		END_FOR;
+		ON_ERROR
+			EXIT(FINI_ERROR);
+		END_ERROR
+		if (sw_index)
+		FOR(TRANSACTION_HANDLE transact1 REQUEST_HANDLE request3)
+			Y IN RDB$INDICES WITH Y.RDB$RELATION_NAME EQ relation->rel_name
+				SORTED BY DESC Y.RDB$INDEX_NAME 
+            if (Y.RDB$INDEX_INACTIVE)
+				  continue;
+			index = (IDX) ALLOC(sizeof(struct idx));
+			index->idx_next = relation->rel_indexes;
+			relation->rel_indexes = index;
+			strcpy(index->idx_name, Y.RDB$INDEX_NAME);
+			truncate_name(index->idx_name);
+			index->idx_id = Y.RDB$INDEX_ID - 1;
+        END_FOR;
+		ON_ERROR
+			EXIT(FINI_ERROR);
+		END_ERROR
+	END_FOR;
+	ON_ERROR
+		EXIT(FINI_ERROR);
+	END_ERROR
+
+	if (request1)
+		isc_release_request(status_vector, &request1);
+	if (request2)
+		isc_release_request(status_vector, &request2);
+	if (request3)
+		isc_release_request(status_vector, &request3);
+
+	COMMIT transact1;
+	ON_ERROR
+		EXIT(FINI_ERROR);
+	END_ERROR
+	FINISH;
+	ON_ERROR
+		EXIT(FINI_ERROR);
+	END_ERROR
+
+	FPRINTF(sw_outfile, "\nAnalyzing database pages ...\n\n");
+
+	for (relation = tddba->relations; relation; relation = relation->rel_next) {
+		if (sw_data)
+			analyze_data(relation);
+		for (index = relation->rel_indexes; index; index = index->idx_next)
+			analyze_index(relation, index);
+	}
+
+/* Print results */
+
+	for (relation = tddba->relations; relation; relation = relation->rel_next) {
+		FPRINTF(sw_outfile, "%s (%d)\n", relation->rel_name,
+				relation->rel_id);
+		if (sw_data) {
+			FPRINTF(sw_outfile,
+					"    Primary pointer page: %ld, Index root page: %ld\n",
+					relation->rel_pointer_page, relation->rel_index_root);
+			average =
+				(relation->rel_data_pages) ? (double) relation->
+				rel_total_space * 100 / ((double) relation->rel_data_pages *
+										 (tddba->page_size - DPG_SIZE)) : 0;
+			FPRINTF(sw_outfile,
+					"    Data pages: %ld, data page slots: %ld, average fill: %.0f%%\n",
+					relation->rel_data_pages, relation->rel_slots, average);
+			FPRINTF(sw_outfile, "    Fill distribution:\n");
+			print_distribution("\t", relation->rel_fill_distribution);
+		}
+		FPRINTF(sw_outfile, "\n");
+		for (index = relation->rel_indexes; index; index = index->idx_next) {
+			FPRINTF(sw_outfile, "    Index %s (%d)\n", index->idx_name,
+					index->idx_id);
+			FPRINTF(sw_outfile,
+					"\tDepth: %d, leaf buckets: %ld, nodes: %ld\n",
+					index->idx_depth, index->idx_leaf_buckets,
+					index->idx_nodes);
+			average =
+				(index->idx_nodes) ? index->idx_data_length /
+				index->idx_nodes : 0;
+			FPRINTF(sw_outfile,
+					"\tAverage data length: %.2f, total dup: %ld, max dup: %ld\n",
+					average, index->idx_total_duplicates,
+					index->idx_max_duplicates);
+			FPRINTF(sw_outfile, "\tFill distribution:\n");
+			print_distribution("\t    ", index->idx_fill_distribution);
+			FPRINTF(sw_outfile, "\n");
+		}
+	}
+
+	EXIT(FINI_OK);
+
+	return 0;
+}
+
+
+static SCHAR *alloc( SLONG size)
+{
+/**************************************
+ *
+ *	a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate and zero a piece of memory.
+ *
+ **************************************/
+	SCHAR *block, *p;
+#ifdef NETWARE_386
+	mem *mem_list;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	block = p = malloc(size);
+	do
+		*p++ = 0;
+	while (--size);
+
+	mem_list = malloc(sizeof(mem));
+	mem_list->memory = block;
+	mem_list->mem_next = 0;
+
+	if (tddba->head_of_mem_list == 0)
+		tddba->head_of_mem_list = mem_list;
+	else {
+		mem_list->mem_next = tddba->head_of_mem_list;
+		tddba->head_of_mem_list = mem_list;
+	}
+#else
+	block = p = gds__alloc(size);
+	do
+		*p++ = 0;
+	while (--size);
+#endif
+
+	return block;
+}
+
+
+static void analyze_data( REL relation)
+{
+/**************************************
+ *
+ *	a n a l y z e _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze data pages associated with relation.
+ *
+ **************************************/
+	PPG pointer_page;
+	DPG data_page;
+	SSHORT n;
+	SLONG next_pp, *ptr, *end;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	pointer_page = (PPG) tddba->buffer1;
+
+	for (next_pp = relation->rel_pointer_page; next_pp;
+		 next_pp = pointer_page->ppg_next) {
+		move(db_read(next_pp), pointer_page, tddba->page_size);
+		for (ptr = pointer_page->ppg_page, end =
+			 ptr + pointer_page->ppg_count; ptr < end; ptr++) {
+			++relation->rel_slots;
+			if (*ptr) {
+				++relation->rel_data_pages;
+				if (!analyze_data_page(relation, db_read(*ptr)))
+					FPRINTF(tddba->sw_outfile,
+							"    Expected data on page %ld\n", *ptr);
+			}
+		}
+	}
+}
+
+
+static BOOLEAN analyze_data_page( REL relation, DPG page)
+{
+/**************************************
+ *
+ *	a n a l y z e _ d a t a _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Analyze space utilization for data page.
+ *
+ **************************************/
+	SSHORT bucket, space, base;
+	struct dpg_repeat *tail, *end;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	if (page->dpg_header.pag_type != pag_data)
+		return FALSE;
+
+	space = page->dpg_count * sizeof(struct dpg_repeat);
+
+	for (tail = page->dpg_rpt, end = tail + page->dpg_count; tail < end;
+		 tail++)
+		if (tail->dpg_offset && tail->dpg_length)
+			space += tail->dpg_length;
+
+	relation->rel_total_space += space;
+	bucket = (space * BUCKETS) / (tddba->page_size - DPG_SIZE);
+
+	if (bucket == BUCKETS)
+		--bucket;
+
+	++relation->rel_fill_distribution[bucket];
+
+	return TRUE;
+}
+
+
+static void analyze_index( REL relation, IDX index)
+{
+/**************************************
+ *
+ *	a n a l y z e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	BTR bucket;
+	IRT index_root;
+	IRTD *desc;
+	BTN node;
+	SSHORT n, space, duplicates, key_length, l, dup, page_count;
+	UCHAR key[256], *p, *q;
+	SLONG number, page, prior_page, right_sibling, node_count,
+		node_page_count;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	index_root = (IRT) db_read(relation->rel_index_root);
+
+	if (index_root->irt_count <= index->idx_id ||
+		!(page = index_root->irt_rpt[index->idx_id].irt_root))
+		return;
+
+	bucket = (BTR) db_read(page);
+
+	if (bucket->btr_length > tddba->page_size) {
+		FPRINTF(tddba->sw_outfile,
+				"\n***ERROR: page size is too large: %ld\n",
+				bucket->btr_length);
+		return;
+	}
+
+	index->idx_depth = bucket->btr_level + 1;
+
+/*** go down through the levels, printing all pages ***/
+
+	while (bucket->btr_level) {
+		FPRINTF(tddba->sw_outfile, "\nlevel %ld:\n", bucket->btr_level);
+
+		right_sibling = page;
+		move(bucket->btr_nodes[0].btn_number, &page, sizeof(page));
+
+		node_count = 0;
+		prior_page = 0;
+		for (page_count = 0; right_sibling;
+			 right_sibling = bucket->btr_sibling, page_count++) {
+			FPRINTF(tddba->sw_outfile, "page: %ld\n", right_sibling);
+			bucket = (BTR) db_read(right_sibling);
+
+			if (bucket->btr_left_sibling != prior_page) {
+				FPRINTF(tddba->sw_outfile,
+						"\n***ERROR: left sibling is %ld\n",
+						bucket->btr_left_sibling);
+				return;
+			}
+
+			if (bucket->btr_length > tddba->page_size) {
+				FPRINTF(tddba->sw_outfile,
+						"\n***ERROR: page size is too large: %ld\n",
+						bucket->btr_length);
+				return;
+			}
+
+			prior_page = right_sibling;
+
+			if (bucket->btr_header.pag_flags & btr_not_propogated) {
+				FPRINTF(tddba->sw_outfile,
+						"\n***ERROR: non-leaf bucket marked not propogated\n");
+				return;
+			}
+
+			/* count the nodes on page as well */
+
+			node_page_count = 0;
+			FPRINTF(tddba->sw_outfile, "\nnodes:");
+			for (node = bucket->btr_nodes;;
+				 node = (BTN) (node->btn_data + node->btn_length)) {
+				move(node->btn_number, &number, sizeof(number));
+
+				if (!(node_page_count % 4))
+					FPRINTF(tddba->sw_outfile, "\n");
+				FPRINTF(tddba->sw_outfile, "[%ld:%d,%d,", number,
+						node->btn_prefix, node->btn_length);
+
+				/* print out the prefix */
+
+				if (l = node->btn_prefix) {
+					p = key;
+					FPRINTF(tddba->sw_outfile, "(");
+					do {
+						FPRINTF(tddba->sw_outfile, "\'%d\'", *p);
+						p++;
+					} while (--l);
+					FPRINTF(tddba->sw_outfile, ")");
+				}
+
+				if (l = node->btn_length) {
+					p = key + node->btn_prefix;
+					q = node->btn_data;
+					do {
+						FPRINTF(tddba->sw_outfile, "\'%d\'", *q);
+						*p++ = *q++;
+					} while (--l);
+				}
+
+				FPRINTF(tddba->sw_outfile, "] ");
+
+				if (number < 0)
+					break;
+
+				if (!node->btn_length && !node->btn_prefix &&
+					(bucket->btr_left_sibling || node > bucket->btr_nodes)) {
+					FPRINTF(tddba->sw_outfile,
+							"\n***ERROR: node prefix and length 0\n");
+					return;
+				}
+
+				node_page_count++;
+			}
+
+			if (!node_page_count) {
+				FPRINTF(tddba->sw_outfile, "\n***ERROR: page empty\n");
+				return;
+			}
+
+			FPRINTF(tddba->sw_outfile, "\nnodes on page: %d\n",
+					node_page_count);
+
+			node_count += node_page_count;
+		}
+
+		FPRINTF(tddba->sw_outfile, "\npage count: %d\n", page_count);
+		FPRINTF(tddba->sw_outfile, "node count: %d\n", node_count);
+
+		bucket = (BTR) db_read(page);
+		if (bucket->btr_length > tddba->page_size) {
+			FPRINTF(tddba->sw_outfile,
+					"\n***ERROR: page size is too large: %ld\n",
+					bucket->btr_length);
+			return;
+		}
+	}
+
+	duplicates = 0;
+	key_length = 0;
+
+	FPRINTF(tddba->sw_outfile, "\nlevel 0:");
+
+	for (;;) {
+
+/*** print the pages involved at the leaf ***/
+
+		if (bucket->btr_header.pag_flags & btr_not_propogated)
+			FPRINTF(tddba->sw_outfile, "\n\n(page %ld):", page);
+		else
+			FPRINTF(tddba->sw_outfile, "\n\npage %ld:", page);
+
+		++index->idx_leaf_buckets;
+		node_page_count = 0;
+		for (node = bucket->btr_nodes;;
+			 node = (BTN) (node->btn_data + node->btn_length)) {
+			move(node->btn_number, &number, sizeof(number));
+
+			if (!(node_page_count % 4))
+				FPRINTF(tddba->sw_outfile, "\n");
+			FPRINTF(tddba->sw_outfile, "[%ld:%d,%d,", number,
+					node->btn_prefix, node->btn_length);
+
+			/* print out the prefix */
+
+			if (l = node->btn_prefix) {
+				p = key;
+				FPRINTF(tddba->sw_outfile, "(");
+				do {
+					FPRINTF(tddba->sw_outfile, "\'%d\'", *p++);
+				} while (--l);
+				FPRINTF(tddba->sw_outfile, ")");
+			}
+
+			/* print out the node data */
+
+			if (l = node->btn_length) {
+				q = node->btn_data;
+				do {
+					FPRINTF(tddba->sw_outfile, "\'%d\'", *q++);
+				} while (--l);
+			}
+
+			FPRINTF(tddba->sw_outfile, "] ");
+
+			if (number < 0)
+				break;
+
+			++index->idx_nodes;
+			index->idx_data_length += node->btn_length;
+			l = node->btn_length + node->btn_prefix;
+			if (node == bucket->btr_nodes)
+				dup = key_equality(key_length, key, node);
+			else
+				dup = !node->btn_length && l == key_length;
+			if (dup) {
+				++index->idx_total_duplicates;
+				++duplicates;
+			}
+			else {
+				if (duplicates > index->idx_max_duplicates)
+					index->idx_max_duplicates = duplicates;
+				duplicates = 0;
+			}
+
+			/* save the key */
+
+			key_length = l;
+			if (l = node->btn_length) {
+				p = key + node->btn_prefix;
+				q = node->btn_data;
+				do {
+					*p++ = *q++;
+				} while (--l);
+			}
+
+			node_page_count++;
+		}
+
+		FPRINTF(tddba->sw_outfile, "\nnode count: %ld", node_page_count);
+
+		if (duplicates > index->idx_max_duplicates)
+			index->idx_max_duplicates = duplicates;
+		space = bucket->btr_length - OFFSETA(BTR, btr_nodes);
+		n = (space * BUCKETS) / (tddba->page_size - OFFSETA(BTR, btr_nodes));
+		if (n == BUCKETS)
+			--n;
+		++index->idx_fill_distribution[n];
+
+		if (number == END_LEVEL)
+			break;
+		number = page;
+		page = bucket->btr_sibling;
+		bucket = (BTR) db_read(page);
+
+		if (bucket->btr_header.pag_type != pag_index) {
+			FPRINTF(tddba->sw_outfile,
+					"\n***ERROR: Expected b-tree bucket on page %ld from %ld\n",
+					page, number);
+			break;
+		}
+
+		if (bucket->btr_length > tddba->page_size) {
+			FPRINTF(tddba->sw_outfile,
+					"\n***ERROR: page size is too large: %ld\n",
+					bucket->btr_length);
+			return;
+		}
+
+		if (bucket->btr_left_sibling != number) {
+			FPRINTF(tddba->sw_outfile, "\n***ERROR: left sibling is %ld\n",
+					bucket->btr_left_sibling);
+			return;
+		}
+
+	}
+
+	FPRINTF(tddba->sw_outfile, "\n");
+}
+
+
+#ifdef NETWARE_386
+static void db_error( int status)
+{
+/**************************************
+ *
+ *	d b _ e r r o r		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *p;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	FPRINTF(tddba->sw_outfile, "%s\n", sys_errlist[status]);
+	EXIT(FINI_ERROR);
+}
+
+
+static FIL db_open( UCHAR * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	d b _ o p e n		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.
+ *
+ **************************************/
+	FIL fil;
+	open_files *file_list;
+	TEXT expanded_filename[256];
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	ISC_expand_filename(file_name, file_length, expanded_filename);
+
+	if (tddba->files) {
+		for (fil = tddba->files; fil->fil_next; fil = fil->fil_next);
+		fil->fil_next =
+			(FIL) ALLOC(sizeof(struct fil) + strlen(expanded_filename) + 1);
+		fil->fil_next->fil_min_page = fil->fil_max_page + 1;
+		fil = fil->fil_next;
+	}
+	else {						/* empty list */
+
+		fil = tddba->files =
+			(FIL) ALLOC(sizeof(struct fil) + strlen(expanded_filename) + 1);
+		fil->fil_min_page = 0L;
+	}
+
+	fil->fil_next = NULL;
+	strcpy(fil->fil_string, expanded_filename);
+	fil->fil_length = strlen(expanded_filename);
+	fil->fil_fudge = 0;
+	fil->fil_max_page = 0L;
+
+	if (
+		(fil->fil_desc =
+		 FEsopen(expanded_filename, O_RDWR | O_BINARY, SH_DENYNO, 0, 0,
+				 PrimaryDataStream)) == -1)
+		db_error(errno);
+
+	file_list = malloc(sizeof(tddba->files));
+	file_list->desc = fil->fil_desc;
+	file_list->open_files_next = 0;
+
+	if (tddba->head_of_files_list == 0)
+		tddba->head_of_files_list = file_list;
+	else {
+		file_list->open_files_next = tddba->head_of_files_list;
+		tddba->head_of_files_list = file_list;
+	}
+
+	return fil;
+}
+
+
+static PAG db_read( SLONG page_number)
+{
+/**************************************
+ *
+ *	d b _ r e a d		( N E T W A R E _ 3 8 6 )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a database page.
+ *
+ **************************************/
+	SCHAR *p;
+	SSHORT length, l;
+	FIL fil;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	for (fil = tddba->files;
+		 page_number > fil->fil_max_page
+		 && fil->fil_next;) fil = fil->fil_next;
+
+	page_number -= fil->fil_min_page - fil->fil_fudge;
+	if (lseek(fil->fil_desc, page_number * tddba->page_size, 0) == -1)
+		db_error(errno);
+
+	for (p = (SCHAR *) tddba->global_buffer, length = tddba->page_size;
+		 length > 0;) {
+		l = read(fil->fil_desc, p, length);
+		if (l <= 0)
+			db_error(errno);
+		p += l;
+		length -= l;
+	}
+
+	return tddba->global_buffer;
+}
+#endif
+
+
+#ifdef WIN_NT
+static void db_error( SLONG status)
+{
+/**************************************
+ *
+ *	d b _ e r r o r		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TEXT s[128];
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	if (!FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,
+					   NULL,
+					   status,
+					   GetUserDefaultLangID(),
+					   s,
+					   sizeof(s),
+					   NULL))
+			sprintf(s, "unknown Windows NT error %ld", status);
+
+	FPRINTF(tddba->sw_outfile, "%s\n", s);
+	EXIT(FINI_ERROR);
+}
+
+
+static FIL db_open( UCHAR * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	d b _ o p e n		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.
+ *
+ **************************************/
+	FIL fil;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	if (tddba->files) {
+		for (fil = tddba->files; fil->fil_next; fil = fil->fil_next);
+		fil->fil_next =
+			(FIL) ALLOC(sizeof(struct fil) + strlen(file_name) + 1);
+		fil->fil_next->fil_min_page = fil->fil_max_page + 1;
+		fil = fil->fil_next;
+	}
+	else {						/* empty list */
+
+		fil = tddba->files =
+			(FIL) ALLOC(sizeof(struct fil) + strlen(file_name) + 1);
+		fil->fil_min_page = 0L;
+	}
+
+	fil->fil_next = NULL;
+	strcpy(fil->fil_string, file_name);
+	fil->fil_length = strlen(file_name);
+	fil->fil_fudge = 0;
+	fil->fil_max_page = 0L;
+
+	if ((fil->fil_desc = CreateFile(file_name,
+									GENERIC_READ | GENERIC_WRITE,
+									FILE_SHARE_READ | FILE_SHARE_WRITE,
+									NULL,
+									OPEN_EXISTING,
+									FILE_ATTRIBUTE_NORMAL |
+									FILE_FLAG_RANDOM_ACCESS,
+									0)) ==
+		INVALID_HANDLE_VALUE) db_error(GetLastError());
+
+	return fil;
+}
+
+
+static PAG db_read( SLONG page_number)
+{
+/**************************************
+ *
+ *	d b _ r e a d		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a database page.
+ *
+ **************************************/
+	SLONG actual_length;
+	FIL fil;
+	TDBA tddba;
+	LARGE_INTEGER liOffset;
+
+	tddba = GET_THREAD_DATA;
+
+	for (fil = tddba->files;
+		 page_number > fil->fil_max_page
+		 && fil->fil_next;) fil = fil->fil_next;
+
+	page_number -= fil->fil_min_page - fil->fil_fudge;
+	liOffset.QuadPart =
+		UInt32x32To64((DWORD) page_number, (DWORD) tddba->page_size);
+	if (SetFilePointer
+		(fil->fil_desc, (LONG) liOffset.LowPart, &liOffset.HighPart,
+		 FILE_BEGIN) == -1)
+		db_error(GetLastError());
+
+	if (!ReadFile
+		(fil->fil_desc, tddba->global_buffer, tddba->page_size,
+		 &actual_length, NULL)) db_error(GetLastError());
+	if (actual_length != tddba->page_size) {
+		FPRINTF(tddba->sw_outfile, "Unexpected end of database file.\n");
+		EXIT(FINI_ERROR);
+	}
+
+	return tddba->global_buffer;
+}
+#endif
+
+
+
+#ifndef NETWARE_386
+#ifndef WIN_NT
+static void db_error( int status)
+{
+/**************************************
+ *
+ *	d b _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *p;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+#ifndef VMS
+	FPRINTF(tddba->sw_outfile, "%s\n", sys_errlist[status]);
+#else
+	if ((p = strerror(status)) || (p = strerror(EVMSERR, status)))
+		FPRINTF(tddba->sw_outfile, "%s\n", p);
+	else
+		FPRINTF(tddba->sw_outfile, "uninterpreted code %x\n", status);
+#endif
+	EXIT(FINI_ERROR);
+}
+
+
+static FIL db_open( UCHAR * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	d b _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.
+ *      Put the file on an ordered list.
+ *
+ **************************************/
+	FIL fil;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	if (tddba->files) {
+		for (fil = tddba->files; fil->fil_next; fil = fil->fil_next);
+		fil->fil_next =
+			(FIL) ALLOC(sizeof(struct fil) + strlen(file_name) + 1);
+		fil->fil_next->fil_min_page = fil->fil_max_page + 1;
+		fil = fil->fil_next;
+	}
+	else {						/* empty list */
+
+		fil = tddba->files =
+			(FIL) ALLOC(sizeof(struct fil) + strlen(file_name) + 1);
+		fil->fil_min_page = 0L;
+	}
+
+	fil->fil_next = NULL;
+	strcpy(fil->fil_string, file_name);
+	fil->fil_length = strlen(file_name);
+	fil->fil_fudge = 0;
+	fil->fil_max_page = 0L;
+
+	if ((fil->fil_desc = open(file_name, 2)) == -1)
+		db_error(errno);
+
+	return fil;
+}
+
+
+static PAG db_read( SLONG page_number)
+{
+/**************************************
+ *
+ *	d b _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a database page.
+ *
+ **************************************/
+	SCHAR *p;
+	SSHORT length, l;
+	FIL fil;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	for (fil = tddba->files;
+		 page_number > fil->fil_max_page
+		 && fil->fil_next;) fil = fil->fil_next;
+
+	page_number -= fil->fil_min_page - fil->fil_fudge;
+	if (lseek(fil->fil_desc, page_number * tddba->page_size, 0) == -1)
+		db_error(errno);
+
+	for (p = (SCHAR *) tddba->global_buffer, length = tddba->page_size;
+		 length > 0;) {
+		l = read(fil->fil_desc, p, length);
+		if (l < 0)
+			db_error(errno);
+		if (!l) {
+			FPRINTF(tddba->sw_outfile, "Unexpected end of database file.\n");
+			EXIT(FINI_ERROR);
+		}
+		p += l;
+		length -= l;
+	}
+
+	return tddba->global_buffer;
+}
+#endif
+#endif
+
+
+static BOOLEAN key_equality( SSHORT length, SCHAR * key, BTN node)
+{
+/**************************************
+ *
+ *	k e y _ e q u a l i t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check a B-tree node against a key for equality.
+ *
+ **************************************/
+	SSHORT l;
+	SCHAR *p;
+
+	if (length != node->btn_length + node->btn_prefix)
+		return FALSE;
+
+	if (!(l = node->btn_length))
+		return TRUE;
+
+	p = (SCHAR *) node->btn_data;
+	key += node->btn_prefix;
+
+	do
+		if (*p++ != *key++)
+			return FALSE;
+	while (--l);
+
+	return TRUE;
+}
+
+
+static void move( SCHAR * from, SCHAR * to, SSHORT length)
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move some stuff.
+ *
+ **************************************/
+
+	do
+		*to++ = *from++;
+	while (--length);
+}
+
+
+static void print_distribution( SCHAR * prefix, SLONG * vector)
+{
+/**************************************
+ *
+ *	p r i n t _ d i s t r i b u t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print distribution as percentages.
+ *
+ **************************************/
+	SSHORT n;
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+
+	for (n = 0; n < BUCKETS; n++) {
+		FPRINTF(tddba->sw_outfile, "%s%2d - %2d%% = %ld\n",
+				prefix,
+				n * 100 / BUCKETS, (n + 1) * 100 / BUCKETS - 1, vector[n]);
+	}
+}
+
+
+static void print_header( HDR header)
+{
+/**************************************
+ *
+ *	p r i n t _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print database header page.
+ *
+ **************************************/
+	UCHAR *p, *end;
+	SLONG number;
+	struct tm time;
+	SSHORT flags;
+#ifdef NETWARE_386
+	SVC sw_outfile;
+#else
+	IB_FILE *sw_outfile;
+#endif
+	TDBA tddba;
+
+	tddba = GET_THREAD_DATA;
+	sw_outfile = tddba->sw_outfile;
+
+	FPRINTF(sw_outfile, "Database header page information:\n");
+	FPRINTF(sw_outfile, "    Page size\t\t%d\n", header->hdr_page_size);
+#ifdef gds_version3
+	FPRINTF(sw_outfile, "    ODS version\t\t%d.%d\n", header->hdr_ods_version,
+			header->hdr_ods_minor);
+#else
+	FPRINTF(sw_outfile, "    ODS version\t\t%d\n", header->hdr_ods_version);
+#endif
+	FPRINTF(sw_outfile, "    Oldest transaction\t%ld\n",
+			header->hdr_oldest_transaction);
+	FPRINTF(sw_outfile, "    Oldest active\t\t%ld\n",
+			header->hdr_oldest_active);
+	FPRINTF(sw_outfile, "    Oldest snapshot\t\t%ld\n",
+			header->hdr_oldest_snapshot);
+	FPRINTF(sw_outfile, "    Next transaction\t%ld\n",
+			header->hdr_next_transaction);
+
+#ifdef gds_version3
+
+/*
+FPRINTF (sw_outfile, "    Sequence number    %d\n", header->hdr_sequence);
+FPRINTF (sw_outfile, "    Creation date    \n", header->hdr_creation_date);
+*/
+
+	FPRINTF(sw_outfile, "    Next attachment ID\t%ld\n",
+			header->hdr_attachment_id);
+	FPRINTF(sw_outfile, "    Implementation ID\t%ld\n",
+			header->hdr_implementation);
+	FPRINTF(sw_outfile, "    Shadow count\t%ld\n", header->hdr_shadow_count);
+#endif
+
+	gds__decode_date(header->hdr_creation_date, &time);
+	FPRINTF(sw_outfile, "    Creation date\t%s %d, %d %d:%02d:%02d\n",
+			months[time.tm_mon], time.tm_mday, time.tm_year + 1900,
+			time.tm_hour, time.tm_min, time.tm_sec);
+
+	if (flags = header->hdr_flags) {
+		FPRINTF(sw_outfile, "    Attributes\t\t");
+		if (flags & hdr_force_write) {
+			FPRINTF(sw_outfile, "force write");
+			if (flags & hdr_no_reserve)
+				FPRINTF(sw_outfile, ", ");
+		}
+		if (flags & hdr_no_reserve)
+			FPRINTF(sw_outfile, "no reserve");
+		FPRINTF(sw_outfile, "\n");
+	}
+
+	FPRINTF(sw_outfile, "\n    Variable header data:\n");
+
+	for (p = header->hdr_data, end = p + header->hdr_page_size;
+		 p < end && *p != HDR_end; p += 2 + p[1])
+		switch (*p) {
+		case HDR_root_file_name:
+			FPRINTF(sw_outfile, "\tRoot file name: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_journal_server:
+			FPRINTF(sw_outfile, "\tJournal server: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_file:
+			FPRINTF(sw_outfile, "\tContinuation file: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_last_page:
+			move(p + 2, &number, sizeof(number));
+			FPRINTF(sw_outfile, "\tLast logical page: %ld\n", number);
+			break;
+
+		case HDR_unlicensed:
+			move(p + 2, &number, sizeof(number));
+			FPRINTF(sw_outfile, "\tUnlicensed accesses: %ld\n", number);
+			break;
+
+#ifdef gds_version3
+		case HDR_sweep_interval:
+			move(p + 2, &number, sizeof(number));
+			FPRINTF(sw_outfile, "\tSweep interval: %ld\n", number);
+			break;
+
+		case HDR_log_name:
+			FPRINTF(sw_outfile, "\tReplay logging file: %*s\n", p[1], p + 2);
+			break;
+
+#endif
+
+		default:
+			FPRINTF(sw_outfile, "\tUnrecognized option %d, length %d\n", p[0],
+					p[1]);
+		}
+
+	FPRINTF(sw_outfile, "\t*END*\n");
+}
+
+
+static void truncate_name( SCHAR * string)
+{
+/**************************************
+ *
+ *	t r u n c a t e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Zap trailing blanks.
+ *
+ **************************************/
+
+	for (; *string; ++string)
+		if (*string == ' ') {
+			*string = 0;
+			return;
+		}
+}
diff --git a/src/utilities/dbaswi.h b/src/utilities/dbaswi.h
new file mode 100644
index 0000000000..cb2ed2f112
--- /dev/null
+++ b/src/utilities/dbaswi.h
@@ -0,0 +1,60 @@
+/*
+ *	PROGRAM:	Database analysis tool
+ *	MODULE:		dbaswi.h
+ *	DESCRIPTION:	dba switches
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _DBA_DBASWI_H_
+#define _DBA_DBASWI_H_
+
+#include "../jrd/common.h"
+
+/* Switch handling constants.  Note that the first IN_SW_DATA_ITEMS
+   switch constants refer to data items.  The remaining switch constants
+   refer to actual switches. */
+
+#define IN_SW_DBA_0			0	/* not a known switch */
+#define IN_SW_DBA_SYSTEM		1	/* analyze system relations */
+#define IN_SW_DBA_DATA			2	/* analyze data pages */
+#define IN_SW_DBA_INDEX			3	/* analyze index leaf pages */
+#define IN_SW_DBA_VERSION		4	/* display version number */
+#define IN_SW_DBA_HEADER		5	/* analyze header page */
+#define IN_SW_DBA_LOG			6	/* analze log pages */
+#define IN_SW_DBA_DATAIDX		7	/* analyze data and index pages */
+#define IN_SW_DBA_USERNAME		8	/* username */
+#define IN_SW_DBA_PASSWORD		9	/* password */
+#define IN_SW_DBA_RECORD		10	/* analyze record versions */
+#define IN_SW_DBA_RELATION		11	/* analyze specific relations */
+
+static struct in_sw_tab_t dba_in_sw_table [] = {
+    IN_SW_DBA_DATAIDX,		0,				"ALL",		0,0,0,	FALSE,	22,	0, NULL,	/* msg 22: -a      analyze data and index pages */
+    IN_SW_DBA_DATA,		isc_spb_sts_data_pages,		"DATA",		0,0,0,	FALSE,	23,	0, NULL,	/* msg 23: -d      analyze data pages*/
+    IN_SW_DBA_HEADER,		isc_spb_sts_hdr_pages,		"HEADER",	0,0,0,	FALSE,	24,	0, NULL,	/* msg 24: -h      analyze header page */
+    IN_SW_DBA_INDEX,		isc_spb_sts_idx_pages,		"INDEX",	0,0,0,	FALSE,	25,	0, NULL,	/* msg 25: -i      analyze index leaf pages */
+    IN_SW_DBA_LOG,		isc_spb_sts_db_log,		"LOG",		0,0,0,	FALSE,	26,	0, NULL,	/* msg 26: -l      analyze log page */
+    IN_SW_DBA_SYSTEM,		isc_spb_sts_sys_relations,	"SYSTEM",	0,0,0,	FALSE,	27,	0, NULL,	/* msg 27: -s      analyze system relations */
+    IN_SW_DBA_USERNAME,		0,				"USERNAME",	0,0,0,	FALSE,	32,	0, NULL,	/* msg 32: -u      username */
+    IN_SW_DBA_PASSWORD,		0,				"PASSWORD",	0,0,0,	FALSE,	33,	0, NULL,	/* msg 33: -p      password */
+    IN_SW_DBA_RECORD,		0,				"RECORD",	0,0,0,	FALSE,	0,	0, NULL,	/* undocumented */
+    IN_SW_DBA_RELATION,		0,				"TABLE",	0,0,0,	FALSE,	0,	0, NULL,	/* undocumented */
+    IN_SW_DBA_VERSION,		0,				"Z",		0,0,0,	FALSE,	28,	0, NULL,	/* msg 28: -z      display version number */
+    IN_SW_DBA_0,		0,				NULL,		0,0,0,	FALSE,	0,	0, NULL		/* End of List */
+};
+#endif /* _DBA_DBASWI_H_ */
diff --git a/src/utilities/drop.cpp b/src/utilities/drop.cpp
new file mode 100644
index 0000000000..48306c6db2
--- /dev/null
+++ b/src/utilities/drop.cpp
@@ -0,0 +1,429 @@
+/*
+ *	PROGRAM:	UNIX resource removal program
+ *	MODULE:		drop.c
+ *	DESCRIPTION:	Drop shared memory and semaphores
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: drop.cpp,v 1.1.1.1 2001-05-23 13:26:41 tamlin Exp $
+*/
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include <sys/param.h>
+#if ( defined DELTA || defined IMP)
+#include <sys/types.h>
+#endif
+#include <sys/stat.h>
+
+#include "../jrd/common.h"
+#include "../jrd/isc.h"
+#include "../lock/lock.h"
+#include "../jrd/license.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../utilities/drpv3_proto.h"
+
+#define FTOK_KEY		15
+
+static void dummy_init(void);
+static SLONG get_key(TEXT *);
+static void remove_resource(TEXT *, SLONG, SLONG, TEXT *);
+static int sem_exclusive(SLONG, SLONG);
+static int shm_exclusive(SLONG, SLONG);
+#ifdef MANAGER_PROCESS
+static void shut_manager(TEXT *);
+#endif
+
+static SLONG LOCK_shm_size, LOCK_sem_count;
+static SLONG EVENT_default_size;
+static int orig_argc;
+static SCHAR **orig_argv;
+
+static struct ipccfg config_table[] = {
+#ifndef MMAP_SUPPORTED
+	"V4_LOCK_MEM_SIZE", -1, &LOCK_shm_size, 0, 0,
+	"ANY_LOCK_MEM_SIZE", -1, &LOCK_shm_size, -1, 0,
+	"V4_EVENT_MEM_SIZE", -1, &EVENT_default_size, 0, 0,
+	"ANY_EVENT_MEM_SIZE", -1, &EVENT_default_size, -1, 0,
+#endif
+#ifndef NO_SEMAPHORES
+	"V4_LOCK_SEM_COUNT", -1, &LOCK_sem_count, 0, 0,
+	"ANY_LOCK_SEM_COUNT", -1, &LOCK_sem_count, -1, 0,
+#endif
+	NULL, -1, NULL, 0, 0
+};
+
+
+int CLIB_ROUTINE main( int argc, char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop Lock Table and associated semaphores.	
+ *
+ **************************************/
+	SCHAR **end, *p;
+	BOOLEAN sw_csv, sw_lockmngr, sw_events, sw_version, sw_nobridge,
+		sw_shutmngr;
+
+	orig_argc = argc;
+	orig_argv = argv;
+
+	sw_csv = sw_lockmngr = sw_events = sw_version = sw_nobridge =
+		sw_shutmngr = FALSE;
+	end = argv + argc;
+	while (++argv < end)
+		if (**argv == '-')
+			for (p = *argv + 1; *p; p++)
+				switch (UPPER(*p)) {
+#ifdef CSV
+				case 'C':
+					sw_csv = TRUE;
+					break;
+#endif
+
+				case 'E':
+					sw_events = TRUE;
+					break;
+
+				case 'L':
+					sw_lockmngr = TRUE;
+					break;
+
+				case 'A':
+					sw_csv = sw_events = sw_lockmngr = TRUE;
+					break;
+
+				case 'S':
+					sw_shutmngr = sw_nobridge = TRUE;
+					break;
+
+				case 'N':
+					sw_nobridge = TRUE;
+					break;
+
+				case 'Z':
+					sw_version = TRUE;
+					break;
+
+				default:
+					ib_printf("***Ignoring unknown switch %c.\n", *p);
+					break;
+				}
+
+	if (sw_version)
+		ib_printf("gds_drop version %s\n", GDS_VERSION);
+
+	LOCK_shm_size = DEFAULT_SIZE;
+	LOCK_sem_count = SEMAPHORES;
+	EVENT_default_size = EVENT_DEFAULT_SIZE;
+	ISC_get_config(LOCK_HEADER, config_table);
+
+	if (sw_events)
+		remove_resource(EVENT_FILE, EVENT_default_size, EVENT_SEMAPHORES,
+						"events");
+
+	if (sw_lockmngr)
+		remove_resource(LOCK_FILE, LOCK_shm_size, LOCK_sem_count,
+						"lock manager");
+
+#ifdef CSV
+	if (sw_csv)
+		remove_resource(CSI_FILE, CSI_DEFAULT_SIZE, MAX_PROCESSES,
+						"central server");
+#endif
+
+#ifdef MANAGER_PROCESS
+	if (sw_shutmngr)
+		shut_manager("lock manager");
+#endif
+
+#if !(defined WIN_NT || defined NETWARE_386 || defined linux || defined FREEBSD || defined NETBSD || defined AIX_PPC )
+	if (!sw_nobridge) {
+		ib_printf("\nBRIDGE RESOURCES\n\n");
+		V3_drop(orig_argc, orig_argv);
+	}
+#endif
+
+	exit(FINI_OK);
+}
+
+
+static void dummy_init(void)
+{
+/**************************************
+ *
+ *	d u m m y _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	A dummy callback routine for ISC_map_file.
+ *
+ **************************************/
+}
+
+
+static SLONG get_key( TEXT * filename)
+{
+/*************************************
+ *
+ *	g e t _ k e y
+ *
+ *************************************
+ *
+ * Functional description
+ *	Find the semaphore/shared memory key for a file.
+ *
+ ************************************/
+	TEXT expanded_filename[128], hostname[64];
+
+#ifdef NOHOSTNAME
+	strcpy(expanded_filename, filename);
+#else
+	sprintf(expanded_filename, filename,
+			ISC_get_host(hostname, sizeof(hostname)));
+#endif
+
+/* Produce shared memory key for file */
+
+	return ftok(expanded_filename, FTOK_KEY);
+}
+
+
+#ifndef MMAP_SUPPORTED
+static void remove_resource(
+							TEXT * filename,
+							SLONG shm_length, SLONG sem_count, TEXT * label)
+{
+/**************************************
+ *
+ *	r e m o v e _ r e s o u r c e		( n o n - m m a p )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	SH_MEM_T shmem_data;
+	SLONG key, shmid, semid;
+	TEXT expanded_filename[MAXPATHLEN];
+	int pid;
+
+#ifdef MANAGER_PROCESS
+/* Shutdown lock manager process so that shared memory
+   and semaphores can be attached exclusively. */
+
+	if (!(strcmp(label, "lock manager"))) {
+		if (!(pid = vfork())) {
+			execl(orig_argv[0], orig_argv[0], "-s", 0);
+			_exit(FINI_ERROR);
+		}
+		wait(pid);
+	}
+#endif
+
+	gds__prefix_lock(expanded_filename, filename);
+
+	shmem_data.sh_mem_semaphores = sem_count;
+	if (!ISC_map_file
+		(status_vector, expanded_filename, dummy_init, 0, shm_length,
+		 &shmem_data)) {
+		ib_printf("\n***Unable to access %s resources:\n", label);
+		gds__print_status(status_vector);
+		return;
+	}
+
+	if ((key = get_key(expanded_filename)) == -1) {
+		ib_printf("\n***Unable to get the key value of the %s file.\n",
+				  label);
+		return;
+	}
+
+	if ((shmid = shm_exclusive(key, shmem_data.sh_mem_length_mapped)) == -1 ||
+		(semid = sem_exclusive(key, sem_count)) == -1) {
+		ib_printf("\n***File or semaphores for %s are currently in use.\n",
+				  label);
+		return;
+	}
+
+	if (shmctl(shmid, IPC_RMID, 0) == -1)
+		ib_printf("\n***Error trying to drop %s file.  ERRNO = %d.\n", label,
+				  errno);
+	else
+		ib_printf("Successfully removed %s file.\n", label);
+
+	if (semctl(semid, sem_count, IPC_RMID, 0) == -1)
+		ib_printf("\n***Error trying to drop %s semaphores.  ERRNO = %d.\n",
+				  label, errno);
+	else
+		ib_printf("Successfully removed %s semaphores.\n", label);
+}
+#endif
+
+
+#ifdef MMAP_SUPPORTED
+static void remove_resource(
+							TEXT * filename,
+							SLONG shm_length, SLONG sem_count, TEXT * label)
+{
+/**************************************
+ *
+ *	r e m o v e _ r e s o u r c e		( m m a p )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	SLONG length, key, semid;
+	TEXT expanded_filename[MAXPATHLEN];
+	int pid;
+
+#ifdef MANAGER_PROCESS
+/* Shutdown lock manager process so that shared memory
+   and semaphores can be attached exclusively. */
+
+	if (!(strcmp(label, "lock manager"))) {
+		if (!(pid = vfork())) {
+			execl(orig_argv[0], orig_argv[0], "-s", 0);
+			_exit(FINI_ERROR);
+		}
+#ifdef SCO_EV					/* 5.5 SCO Port: SCO needs waitpid() to function properly */
+		waitpid(pid, 0, 0);
+#else
+		wait(pid);
+#endif
+	}
+#endif
+
+	gds__prefix_lock(expanded_filename, filename);
+
+	if ((key = get_key(expanded_filename)) == -1) {
+		ib_printf("\n***Unable to get the key value of the %s file.\n",
+				  label);
+		return;
+	}
+
+	if ((semid = sem_exclusive(key, sem_count)) == -1) {
+		ib_printf("\n***Semaphores for %s are currently in use.\n", label);
+		return;
+	}
+
+	if (semctl(semid, sem_count, IPC_RMID, 0) == -1)
+		ib_printf("\n***Error trying to drop %s semaphores.  ERRNO = %d.\n",
+				  label, errno);
+	else
+		ib_printf("Successfully removed %s semaphores.\n", label);
+}
+#endif
+
+
+static int sem_exclusive( SLONG key, SLONG count)
+{
+/**************************************
+ *
+ *	s e m  _ e x c l u s i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if we are the only ones accessing
+ *	semaphores.  Return a semaphore id if so,
+ *	-1 otherwise.
+ *
+ **************************************/
+	int semid;
+
+#if !(defined SUNOS4 || defined linux || defined FREEBSD || defined NETBSD)
+	return semget(key, (int) count, IPC_EXCL);
+#else
+	if ((semid = semget(key, (int) count, IPC_EXCL)) != -1)
+		return semid;
+	else
+		return semget(key, (int) count, IPC_EXCL | IPC_CREAT);
+#endif
+}
+
+
+#ifndef MMAP_SUPPORTED
+static int shm_exclusive( SLONG key, SLONG length)
+{
+/**************************************
+ *
+ *	s h m _ e x c l u s i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if we are the only ones accessing
+ *	shared memory.  Return a shared memory id
+ *	if so, -1 otherwise.
+ *
+ **************************************/
+	int id;
+	struct shmid_ds buf;
+
+	if ((id = shmget(key, (int) length, IPC_ALLOC)) == -1 ||
+		shmctl(id, IPC_STAT, &buf) == -1 || buf.shm_nattch != 1)
+		return -1;
+
+	return id;
+}
+#endif
+
+
+#ifdef MANAGER_PROCESS
+static void shut_manager( TEXT * label)
+{
+/**************************************
+ *
+ *	s h u t _ m a n a g e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Shut down the lock manager process preparatory
+ *	to releasing shared resources.
+ *
+ **************************************/
+	SLONG status_vector[20], owner_handle;
+
+	if (!(strcmp(label, "lock manager"))) {
+		owner_handle = 0;
+		LOCK_init(status_vector, FALSE, getpid(), 0, &owner_handle);
+
+		/* In case if lock manager is not running, LOCK_init starts it.
+		   It takes time for the manager to be started, hence immediately
+		   following LOCK_shut_manager can not shut it down, because there is
+		   no manager running yet. To avoid this situation sleep for
+		   a second before calling LOCK_shut_manager */
+		sleep(1);
+
+		LOCK_shut_manager();
+	}
+}
+#endif
diff --git a/src/utilities/dropv3.cpp b/src/utilities/dropv3.cpp
new file mode 100644
index 0000000000..70bb89a3b3
--- /dev/null
+++ b/src/utilities/dropv3.cpp
@@ -0,0 +1,407 @@
+/*
+ *	PROGRAM:	UNIX resource removal program
+ *	MODULE:		dropv3.c
+ *	DESCRIPTION:	Version 3 drop shared memory and semaphores
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+#include <sys/param.h>
+#ifdef IMP
+#include <sys/types.h>
+#endif
+#include <sys/stat.h>
+
+#include "../jrd/common.h"
+#include "../jrd/isc.h"
+#if ( defined( sun) && defined( sparc) && !defined( SOLARIS))
+#include "../lock/lockv3s4.h"
+#define SUN_V3_LOCK_MANAGER
+#else
+#include "../lock/lockv3.h"
+#endif
+#include "../jrd/license.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../utilities/drpv3_proto.h"
+
+#define FTOK_KEY		15
+
+static long get_key();
+static dummy_init();
+
+static int LOCK_shm_size, LOCK_sem_key, LOCK_blk_signal, LOCK_sem_count;
+
+static struct {
+	char *tptr;
+	int *vptr;
+} LOCK_hdrtbl[] = {
+#ifndef MMAP_SUPPORTED
+	"SHMSIZE", &LOCK_shm_size,
+#else
+	"SEMKEY", &LOCK_sem_key, "BLKSIG", &LOCK_blk_signal,
+#endif
+"SEMCOUNT", &LOCK_sem_count, NULL, NULL};
+
+
+V3_drop(argc, argv)
+	 int argc;
+	 UCHAR *argv[];
+{
+/**************************************
+ *
+ *	V 3 _ d r o p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Drop Lock Table and associated semaphores.	
+ *
+ **************************************/
+	UCHAR **end, *p;
+	int sw_csv, sw_lockmngr, sw_events, sw_version;
+
+	sw_csv = sw_lockmngr = sw_events = sw_version = FALSE;
+	end = argv + argc;
+	while (++argv < end)
+		if (**argv == '-')
+			for (p = *argv + 1; *p; p++)
+				switch (UPPER(*p)) {
+#ifdef CSV
+				case 'C':
+					sw_csv = TRUE;
+					break;
+#endif
+
+				case 'E':
+					sw_events = TRUE;
+					break;
+
+				case 'L':
+					sw_lockmngr = TRUE;
+					break;
+
+				case 'A':
+					sw_csv = sw_events = sw_lockmngr = TRUE;
+					break;
+
+				case 'Z':
+					sw_version = TRUE;
+					break;
+
+				default:
+					ib_printf("***Ignoring unknown switch %c.\n", *p);
+					break;
+				}
+
+	if (sw_version)
+		ib_printf("gds_drop version %s\n", GDS_VERSION);
+
+	if (sw_events)
+		remove_resource(FALSE, EVENT_FILE, EVENT_DEFAULT_SIZE,
+						EVENT_SEMAPHORES, "events");
+
+	if (sw_lockmngr) {
+		get_lock_header();
+		remove_resource(TRUE, LOCK_FILE, LOCK_shm_size, LOCK_sem_count,
+						"lock manager");
+	}
+
+#ifdef CSV
+	if (sw_csv)
+		remove_resource(FALSE, CSI_FILE, CSI_DEFAULT_SIZE, MAX_PROCESSES,
+						"central server");
+#endif
+
+	exit(FINI_OK);
+}
+
+
+static dummy_init()
+{
+/**************************************
+ *
+ *	d u m m y _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	A dummy callback routine for ISC_map_file.
+ *
+ **************************************/
+}
+
+
+static long get_key(filename)
+	 TEXT *filename;
+{
+/*************************************
+ *
+ *	g e t _ k e y
+ *
+ *************************************
+ *
+ * Functional description
+ *	Find the semaphore/shared memory key for a file.
+ *
+ ************************************/
+	TEXT expanded_filename[128], hostname[64];
+
+#ifdef NOHOSTNAME
+	strcpy(expanded_filename, filename);
+#else
+	sprintf(expanded_filename, filename,
+			ISC_get_host(hostname, sizeof(hostname)));
+#endif
+
+/* Produce shared memory key for file */
+
+	return ftok(expanded_filename, FTOK_KEY);
+}
+
+
+static get_lock_header()
+{
+/*************************************
+ *
+ *	g e t _ l o c k _ h e a d e r
+ *
+ *************************************
+ *
+ * Functional description
+ *	Read user-defined values for shared memory
+ *	and semaphores from LOCK_HEADER.
+ *
+ ************************************/
+	IB_FILE *fd;
+	TEXT lock_header[MAXPATHLEN];
+	char *p, *q, buf[40];
+	int i;
+
+#ifndef MMAP_SUPPORTED
+	LOCK_shm_size = DEFAULT_SIZE;
+#else
+#ifdef SUN_V3_LOCK_MANAGER
+	LOCK_sem_key = SEM_KEY;
+#endif
+	LOCK_blk_signal = BLOCKING_SIGNAL;
+#endif
+	LOCK_sem_count = SEMAPHORES;
+
+	if (fd = ib_fopen(LOCK_HEADER, "r")) {
+		while (p = ib_fgets(buf, sizeof(buf) - 1, fd))
+			for (i = 0; q = LOCK_hdrtbl[i].tptr; i++) {
+				p = buf;
+				while (*p++ == *q++);
+				if (!*--q) {
+					*LOCK_hdrtbl[i].vptr = atoi(p);
+					break;
+				}
+			}
+		ib_fclose(fd);
+	}
+}
+
+
+#ifndef MMAP_SUPPORTED
+static remove_resource(lock_flag, filename, shm_length, sem_count, label)
+	 int lock_flag;
+	 TEXT *filename;
+	 int shm_length, sem_count;
+	 TEXT *label;
+{
+/**************************************
+ *
+ *	r e m o v e _ r e s o u r c e		( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	long length, key, shmid, semid;
+	SH_MEM_T shmem;
+	TEXT expanded_filename[512], hostname[64];
+	struct stat stat_buf;
+
+#ifdef NOHOSTNAME
+	strcpy(expanded_filename, filename);
+#else
+	sprintf(expanded_filename, filename,
+			ISC_get_host(hostname, sizeof(hostname)));
+#endif
+	if (stat(expanded_filename, &stat_buf) == -1) {
+		ib_printf("\n***No bridge %s file found.\n", label);
+		return;
+	}
+
+	shmem.sh_mem_semaphores = sem_count;
+	if (!ISC_map_file
+		(status_vector, filename, dummy_init, 0, shm_length, &shmem)) {
+		ib_printf("\n***Unable to access bridge %s resources:\n", label);
+		return;
+	}
+
+	if ((key = get_key(filename)) == -1) {
+		ib_printf("\n***Unable to get the key value of the bridge %s file.\n",
+				  label);
+		return;
+	}
+
+	if ((shmid = shm_exclusive(key, shmem.sh_mem_length_mapped)) == -1 ||
+		(semid = sem_exclusive(key, sem_count)) == -1) {
+		ib_printf
+			("\n***File or semaphores for bridge %s are currently in use.\n",
+			 label);
+		return;
+	}
+
+	if (shmctl(shmid, IPC_RMID, 0) == -1)
+		ib_printf("\n***Error trying to drop bridge %s file.  ERRNO = %d.\n",
+				  label, errno);
+	else
+		ib_printf("Successfully removed %s file.\n", label);
+
+	if (semctl(semid, sem_count, IPC_RMID, 0) == -1)
+		ib_printf
+			("\n***Error trying to drop bridge %s semaphores.  ERRNO = %d.\n",
+			 label, errno);
+	else
+		ib_printf("Successfully removed bridge %s semaphores.\n", label);
+}
+#endif
+
+
+#ifdef MMAP_SUPPORTED
+static remove_resource(lock_flag, filename, shm_length, sem_count, label)
+	 int lock_flag;
+	 TEXT *filename;
+	 int shm_length, sem_count;
+	 TEXT *label;
+{
+/**************************************
+ *
+ *	r e m o v e _ r e s o u r c e		( S U N O S 4 )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	long length, key, shmid, semid;
+	TEXT expanded_filename[512], hostname[64];
+	struct stat stat_buf;
+
+#ifdef NOHOSTNAME
+	strcpy(expanded_filename, filename);
+#else
+	sprintf(expanded_filename, filename,
+			ISC_get_host(hostname, sizeof(hostname)));
+#endif
+	if (stat(expanded_filename, &stat_buf) == -1) {
+		ib_printf("\n***No bridge %s file found.\n", label);
+		return;
+	}
+
+#ifdef SUN_V3_LOCK_MANAGER
+	if (lock_flag)
+		key = LOCK_sem_key;
+	else
+#endif
+	if ((key = get_key(filename)) == -1) {
+		ib_printf("\n***Unable to get the key value of the bridge %s file.\n",
+				  label);
+		return;
+	}
+
+	if ((semid = sem_exclusive(key, sem_count)) == -1) {
+		ib_printf("\n***Semaphores for bridge %s are currently in use.\n",
+				  label);
+		return;
+	}
+
+	if (semctl(semid, sem_count, IPC_RMID, 0) == -1)
+		ib_printf
+			("\n***Error trying to drop bridge %s semaphores.  ERRNO = %d.\n",
+			 label, errno);
+	else
+		ib_printf("Successfully removed bridge %s semaphores.\n", label);
+}
+#endif
+
+
+static sem_exclusive(key, count)
+	 long key;
+	 int count;
+{
+/**************************************
+ *
+ *	s e m  _ e x c l u s i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if we are the only ones accessing
+ *	semaphores.  Return a semaphore id if so,
+ *	-1 otherwise.
+ *
+ **************************************/
+	int semid;
+
+#ifndef MMAP_SUPPORTED
+	return semget(key, count, IPC_EXCL);
+#else
+	if ((semid = semget(key, count, IPC_EXCL)) != -1)
+		return semid;
+	else
+		return semget(key, count, IPC_EXCL | IPC_CREAT);
+#endif
+}
+
+
+#ifndef MMAP_SUPPORTED
+static shm_exclusive(key, length)
+	 long key;
+	 int length;
+{
+/**************************************
+ *
+ *	s h m _ e x c l u s i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Check to see if we are the only ones accessing
+ *	shared memory.  Return a shared memory id
+ *	if so, -1 otherwise.
+ *
+ **************************************/
+	int id;
+	struct shmid_ds buf;
+
+	if ((id = shmget(key, length, IPC_ALLOC)) == -1 ||
+		shmctl(id, IPC_STAT, &buf) == -1 || buf.shm_nattch != 1)
+		return -1;
+
+	return id;
+}
+#endif
diff --git a/src/utilities/drpv3_proto.h b/src/utilities/drpv3_proto.h
new file mode 100644
index 0000000000..b815ec272b
--- /dev/null
+++ b/src/utilities/drpv3_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	UNIX resource removal program
+ *	MODULE:		drpv3_proto.h
+ *	DESCRIPTION:	Version 3 drop shared memory prototype
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _UTILITIES_DRPV3_PROTO_H_
+#define _UTILITIES_DRPV3_PROTO_H_
+
+extern int	V3_drop ( int, UCHAR**);
+
+#endif /* _UTILITIES_DRPV3_PROTO_H_ */
diff --git a/src/utilities/gsec.cpp b/src/utilities/gsec.cpp
new file mode 100644
index 0000000000..5622503164
--- /dev/null
+++ b/src/utilities/gsec.cpp
@@ -0,0 +1,1321 @@
+/*
+ *
+ *	PROGRAM:	Security data base manager
+ *	MODULE:		gsec.c
+ *	DESCRIPTION:	Main line routine
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include <stdarg.h>
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/msg_encode.h"
+#include "../jrd/jrd.h"
+#include "../utilities/gsec.h"
+#include "../jrd/pwd.h"
+#include "../jrd/license.h"
+#include "../jrd/pwd_proto.h"
+#include "../jrd/svc_proto.h"
+#include "../utilities/secur_proto.h"
+#include "../utilities/gsecswi.h"
+#include "../utilities/cmd_util_proto.h"
+#ifdef WIN_NT
+#include <windows.h>
+#endif
+
+
+extern "C" {
+
+
+#if defined (WIN95) && !defined (GUI_TOOLS)
+static BOOLEAN fAnsiCP = FALSE;
+#define TRANSLATE_CP(a) if (!fAnsiCP) CharToOem(a, a)
+#else
+#define TRANSLATE_CP(a)
+#endif
+
+#define MAXARGS		20			/* max number of args allowed on command line */
+#define MAXSTUFF	1000		/* longest interactive command line */
+
+#ifndef SUPERSERVER
+struct tsec *gdsec;
+#endif
+
+int UTIL_gsec(int, char **, OUTPUTPROC, SLONG);
+/* Output reporting utilities */
+void UTIL_print_status(STATUS *);
+void UTIL_error_redirect(STATUS *, USHORT, TEXT *, TEXT *);
+void UTIL_error(USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+void UTIL_print(USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+void UTIL_print_partial(USHORT, TEXT *, TEXT *, TEXT *, TEXT *, TEXT *);
+void util_output(CONST SCHAR *, ...);
+
+static void data_print(void *, USER_DATA, BOOLEAN);
+static int get_line(int *, SCHAR **, TEXT *, TSEC);
+static BOOLEAN get_switches(int, TEXT **, IN_SW_TAB, TSEC, BOOLEAN *);
+static SSHORT parse_cmd_line(int, TEXT **, TSEC);
+static void printhelp(void);
+int output_svc(SLONG, UCHAR *);
+static int output_main(SLONG, UCHAR *);
+
+
+
+#ifdef SUPERSERVER
+int main_gsec( SVC service)
+{
+/**********************************************
+ *
+ *    m a i n _ g s e c
+ *
+ **********************************************
+ * Functional Description:
+ *   Entrypoint for GSEC via the services manager
+ **********************************************/
+	int exit_code;
+
+	exit_code = UTIL_gsec(service->svc_argc, service->svc_argv,
+						  output_svc, (SLONG) service);
+
+	service->svc_handle = 0;
+	if (service->svc_service->in_use != NULL)
+		*(service->svc_service->in_use) = FALSE;
+
+/* Mark service thread as finished. */
+/* If service is detached, cleanup memory being used by service. */
+	SVC_finish(service, SVC_finished);
+
+	return exit_code;
+}
+
+int output_svc( SLONG output_data, UCHAR * output_buf)
+{
+/**************************************
+ *
+ *	o u t p u t _ s v c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Routine which is passed to GBAK for calling back when there is output.
+ *
+ **************************************/
+
+	SVC_fprintf((SVC) output_data, "%s", output_buf);
+	return 0;
+}
+
+#else
+
+int CLIB_ROUTINE main( int argc, char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	If there is no command line, prompt for one, read it
+ *	and make an artificial argc/argv.   Otherwise, pass
+ *	the specified argc/argv to SECURITY_exec_line (see below).
+ *
+ **************************************/
+	UTIL_gsec(argc, argv, output_main, (SLONG) NULL);
+	return 0;
+}
+
+static int output_main( SLONG output_data, UCHAR * output_buf)
+{
+/**************************************
+ *
+ *	o u t p u t _ m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Routine which is passed to GBAK for calling back when there is output.
+ *
+ **************************************/
+	ib_fprintf(ib_stderr, "%s", output_buf);
+	return 0;
+}
+
+#endif /* SUPERSERVER */
+
+int UTIL_gsec(
+			  int argc,
+			  char *argv[], OUTPUTPROC output_proc, SLONG output_data)
+{
+/**************************************
+ *
+ *	U T I L _ g s e c
+ *
+ **************************************
+ *
+ * Functional description
+ *	If there is no command line, prompt for one, read it
+ *	and make an artificial argc/argv.   Otherwise, pass
+ *	the specified argc/argv to SECURITY_exec_line (see below).
+ *
+ **************************************/
+	STATUS *status;
+	void *db_handle = NULL;		/* user info database handle */
+	TEXT user_info_name[512], *u;	/* user info database name */
+	SLONG redir_in, redir_out, redir_err;
+	int local_argc;
+	SCHAR *local_argv[MAXARGS];
+	TEXT stuff[MAXSTUFF];		/* a place to put stuff */
+	SSHORT ret;
+	char dpb_buffer[256], *dpb, *p;
+	short dpb_length;
+	TSEC tdsec;
+	USER_DATA user_data;
+	JMP_BUF env;
+
+#ifdef VMS
+	int argc;
+	argc = VMS_parse(&argv, argc);
+#endif
+
+	tdsec = (struct tsec *) gds__alloc(sizeof(*tdsec));
+/* NOMEM: return error, FREE: during function exit in the SETJMP */
+	if (tdsec == NULL)
+		EXIT(FINI_ERROR);
+
+	SET_THREAD_DATA;
+	SVC_PUTSPECIFIC_DATA;
+	memset((void *) tdsec, 0, sizeof(*tdsec));
+
+	tdsec->tsec_user_data =
+		(struct user_data *) gds__alloc(sizeof(*user_data));
+/* NOMEM: return error, FREE: during function exit in the SETJMP */
+	if (tdsec->tsec_user_data == NULL)
+		EXIT(FINI_ERROR);
+
+	memset((void *) tdsec->tsec_user_data, 0, sizeof(*user_data));
+
+	if (SETJMP(env)) {
+		int exit_code;
+
+		/* All calls to EXIT(), normal and error exits, wind up here */
+		SVC_STARTED(tdsec->tsec_service_blk);
+		tdsec->tsec_env = NULL;
+		exit_code = tdsec->tsec_exit_code;
+
+		if (tdsec->tsec_user_data != NULL)
+			gds__free((SLONG *) tdsec->tsec_user_data);
+
+		if (tdsec != NULL)
+			gds__free((SLONG *) tdsec);
+
+		/* All returns occur from this point - even normal returns */
+		return exit_code;
+	}
+
+
+/* Perform some special handling when run as an Interbase service.  The
+   first switch can be "-svc" (lower case!) or it can be "-svc_re" followed
+   by 3 file descriptors to use in re-directing ib_stdin, ib_stdout, and ib_stderr. */
+
+	tdsec->tsec_env = &env;
+	tdsec->tsec_output_proc = output_proc;
+	tdsec->tsec_output_data = output_data;
+	tdsec->tsec_interactive = TRUE;
+	tdsec->tsec_service_gsec = FALSE;
+	tdsec->tsec_service_thd = FALSE;
+	tdsec->tsec_service_blk = NULL;
+	tdsec->tsec_status = tdsec->tsec_status_vector;
+	user_data = tdsec->tsec_user_data;
+
+	if (argc > 1 && !strcmp(argv[1], "-svc")) {
+		tdsec->tsec_service_gsec = TRUE;
+		argv++;
+		argc--;
+	}
+#ifdef SUPERSERVER
+	else if (argc > 1 && !strcmp(argv[1], "-svc_thd")) {
+		tdsec->tsec_service_gsec = TRUE;
+		tdsec->tsec_service_thd = TRUE;
+		tdsec->tsec_service_blk = (SVC) output_data;
+		tdsec->tsec_status = tdsec->tsec_service_blk->svc_status;
+		argv++;
+		argc--;
+	}
+#endif
+	else if (argc > 4 && !strcmp(argv[1], "-svc_re")) {
+		tdsec->tsec_service_gsec = TRUE;
+		redir_in = atol(argv[2]);
+		redir_out = atol(argv[3]);
+		redir_err = atol(argv[4]);
+#ifdef WIN_NT
+		redir_in = _open_osfhandle(redir_in, 0);
+		redir_out = _open_osfhandle(redir_out, 0);
+		redir_err = _open_osfhandle(redir_err, 0);
+#endif
+		if (redir_in != 0)
+			if (dup2((int) redir_in, 0))
+				close((int) redir_in);
+		if (redir_out != 1)
+			if (dup2((int) redir_out, 1))
+				close((int) redir_out);
+		if (redir_err != 2)
+			if (dup2((int) redir_err, 2))
+				close((int) redir_err);
+		argv += 4;
+		argc -= 4;
+	}
+
+	status = tdsec->tsec_status;
+	ret = parse_cmd_line(argc, argv, tdsec);
+
+	if (user_data->database_entered)
+		u = user_data->database_name;
+	else {
+#ifdef SUPERSERVER
+/* there is no need to call the services manager to get this information */
+		PWD_get_user_dbpath(user_info_name);
+#else
+		SECURITY_get_db_path(NULL, user_info_name);
+#endif
+		u = user_info_name;
+	}
+
+	dpb = dpb_buffer;
+	*dpb++ = isc_dpb_version1;
+
+	if (user_data->dba_user_name_entered) {
+		*dpb++ = isc_dpb_user_name;
+		*dpb++ = strlen(user_data->dba_user_name);
+		for (p = user_data->dba_user_name; *p;)
+			*dpb++ = *p++;
+	}
+
+	if (user_data->dba_password_entered) {
+		if (tdsec->tsec_service_thd)
+			*dpb++ = isc_dpb_password_enc;
+		else
+			*dpb++ = isc_dpb_password;
+		*dpb++ = strlen(user_data->dba_password);
+		for (p = user_data->dba_password; *p;)
+			*dpb++ = *p++;
+	}
+
+	if (user_data->sql_role_name_entered) {
+		*dpb++ = isc_dpb_sql_role_name;
+		*dpb++ = strlen(user_data->sql_role_name);
+		for (p = user_data->sql_role_name; *p;)
+			*dpb++ = *p++;
+	}
+
+	dpb_length = dpb - dpb_buffer;
+
+	if (isc_attach_database(status, 0, u, &db_handle, dpb_length, dpb_buffer))
+		UTIL_error_redirect(status, GsecMsg15, NULL, NULL);
+
+
+	if (!tdsec->tsec_interactive) {
+		if (ret == 0) {
+#ifdef SUPERSERVER
+			/* Signal the start of the service here ONLY if we are displaying users.
+			 * since the number of users in ISC4 may exceed the service buffer.  This
+			 * will cause the service to wait for the client to request data.  However,
+			 * if the server is not signaled, then the client can never request anything */
+			if (user_data->operation == DIS_OPER)
+				SVC_STARTED(tdsec->tsec_service_blk);
+#endif
+			ret = SECURITY_exec_line(status, db_handle, user_data,
+									 data_print, NULL);
+			if (ret) {
+				UTIL_print(ret, user_data->user_name, NULL, NULL, NULL, NULL);
+				if (status[1])
+					UTIL_print_status(status);
+			}
+		}
+	}
+	else {
+		for (;;) {
+			/* Clear out user data each time through this loop. */
+			MOVE_CLEAR(tdsec->tsec_user_data, sizeof(struct user_data));
+			if (get_line(&local_argc, local_argv, stuff, tdsec))
+				break;
+			if (local_argc > 1) {
+				ret = parse_cmd_line(local_argc, local_argv, tdsec);
+				if (ret == 1)
+					break;
+				if (ret == 0) {
+					ret = SECURITY_exec_line(status, db_handle, user_data,
+											 data_print, NULL);
+					if (ret) {
+						UTIL_print(ret, user_data->user_name, NULL, NULL,
+								   NULL, NULL);
+						if (status[1])
+							UTIL_print_status(status);
+						break;
+					}
+				}
+			}
+		}
+	}
+
+	if (db_handle) {
+		STATUS loc_status[ISC_STATUS_LENGTH];
+		if (isc_detach_database(loc_status, &db_handle))
+			UTIL_error_redirect(loc_status, 0, NULL, NULL);
+	}
+	EXIT(FINI_OK);
+	return 0;					// silence compiler warning
+}
+
+
+static void data_print( void *arg, USER_DATA data, BOOLEAN first)
+{
+/**************************************
+ *
+ *	d a t a _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	print out user data row by row
+ *	if first is TRUE print the header then the data
+ *
+ **************************************/
+#ifdef SUPERSERVER
+	TSEC tdsec;
+	int i, len;
+	tdsec = GET_THREAD_DATA;
+
+/* Send the username */
+	len = strlen(data->user_name);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) isc_spb_sec_username);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) len);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) (len >> 8));
+	for (i = 0; i < len; i++)
+		SVC_putc(tdsec->tsec_service_blk, (UCHAR) data->user_name[i]);
+
+/* Send the first name */
+	len = strlen(data->first_name);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) isc_spb_sec_firstname);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) len);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) (len >> 8));
+	for (i = 0; i < len; i++)
+		SVC_putc(tdsec->tsec_service_blk, (UCHAR) data->first_name[i]);
+
+/* Send the middle name */
+	len = strlen(data->middle_name);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) isc_spb_sec_middlename);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) len);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) (len >> 8));
+	for (i = 0; i < len; i++)
+		SVC_putc(tdsec->tsec_service_blk, (UCHAR) data->middle_name[i]);
+
+/* Send the last name */
+	len = strlen(data->last_name);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) isc_spb_sec_lastname);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) len);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) (len >> 8));
+	for (i = 0; i < len; i++)
+		SVC_putc(tdsec->tsec_service_blk, (UCHAR) data->last_name[i]);
+
+/* Send the uid */
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) isc_spb_sec_userid);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) data->uid);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) (data->uid >> 8));
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) (data->uid >> 16));
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) (data->uid >> 24));
+
+/* Send the gid */
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) isc_spb_sec_groupid);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) data->gid);
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) (data->gid >> 8));
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) (data->gid >> 16));
+	SVC_putc(tdsec->tsec_service_blk, (UCHAR) (data->gid >> 24));
+
+#else
+	if (first) {
+		UTIL_print(GsecMsg26, NULL, NULL, NULL, NULL, NULL);
+		UTIL_print(GsecMsg27, NULL, NULL, NULL, NULL, NULL);
+/* msg26: "    user name                    uid   gid     full name" */
+/* msg27: "-------------------------------------------------------------------------------------------" */
+	}
+
+	util_output("%-31.31s %5d %5d      %s %s %s\n", data->user_name,
+				data->uid, data->gid, data->first_name, data->middle_name,
+				data->last_name);
+#endif
+}
+
+
+static get_line( int *argc, SCHAR ** argv, TEXT * stuff, TSEC tdsec)
+{
+/**************************************
+ *
+ *	g e t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the current line and put its pieces into an argc/argv
+ *	structure.   Reads a max of MAXARGS - 1 pieces (argv [0] is
+ *	unused), and a max of MAXSTUFF characters, at which point
+ *
+ **************************************/
+	USHORT count;
+	TEXT *cursor, c;
+	BOOLEAN first;
+
+	UTIL_print_partial(GsecMsg1, NULL, NULL, NULL, NULL, NULL);
+	*argc = 1;
+	cursor = stuff;
+	count = MAXSTUFF - 1;
+	first = TRUE;
+
+/* for each input character, if it's white space (or any non-printable,
+   non-newline for that matter), ignore it; if it's a newline, we're
+   done; otherwise, put it in the current argument */
+
+	while (*argc < MAXARGS && count > 0) {
+		c = ib_getc(ib_stdin);
+		if (c > ' ' && c <= '~') {
+			/* note that the first argument gets a '-' appended to the front to fool
+			   the switch checker into thinking it came from the command line */
+
+			for (argv[(*argc)++] = cursor; count > 0; count--) {
+				if (first) {
+					first = FALSE;
+					if (c != '?') {
+						*cursor++ = '-';
+						count--;
+					}
+				}
+				*cursor++ = c;
+				c = ib_getc(ib_stdin);
+				if (c <= ' ' || c > '~')
+					break;
+			}
+			*cursor++ = '\0';
+			count--;
+		}
+		if (c == '\n')
+			break;
+		if (c == EOF) {
+			if (SYSCALL_INTERRUPTED(errno)) {
+				errno = 0;
+				continue;
+			}
+			else
+				return TRUE;
+		}
+	}
+
+	*cursor = '\0';
+	return FALSE;
+}
+
+
+static BOOLEAN get_switches(
+							int argc,
+							TEXT ** argv,
+							IN_SW_TAB in_sw_table,
+							TSEC tdsec, BOOLEAN * quitflag)
+{
+/**************************************
+ *
+ *	g e t _ s w i t c h e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the input line arguments, saving
+ *	interesting switches in a switch table.
+ *
+ **************************************/
+	TEXT *p, *q, *string, msg[MSG_LENGTH];
+	IN_SW_TAB in_sw_tab;
+	USHORT in_sw;
+	USHORT last_sw;
+	int l;
+	SSHORT err_msg_no;
+	USER_DATA user_data;
+
+/* look at each argument.   it's either a switch or a parameter.
+   parameters must always follow a switch, but not all switches
+   need parameters.   this is how, for example, parameters are
+   cleared (like a -fname switch followed by no first name
+   parameter). */
+
+	user_data = tdsec->tsec_user_data;
+	*quitflag = FALSE;
+	last_sw = IN_SW_GSEC_0;
+	tdsec->tsec_sw_version = FALSE;
+	for (--argc; argc > 0; argc--) {
+		string = *++argv;
+		if (*string == '?')
+			user_data->operation = HELP_OPER;
+		else if (*string != '-') {
+			/* this is not a switch, so it must be a parameter for
+			   the previous switch, if any */
+
+			switch (last_sw) {
+			case IN_SW_GSEC_ADD:
+			case IN_SW_GSEC_DEL:
+			case IN_SW_GSEC_DIS:
+			case IN_SW_GSEC_MOD:
+				for (l = 0; l < 32 && string[l] && string[l] != ' '; l++)
+					user_data->user_name[l] = UPPER(string[l]);
+				if (l == 32) {
+#ifdef SUPERSERVER
+					UTIL_error(GsecMsg76, NULL, NULL, NULL, NULL, NULL);
+#else
+					UTIL_print(GsecMsg76, NULL, NULL, NULL, NULL, NULL);
+#endif
+					/* invalid user name (maximum 31 bytes allowed) */
+					return FALSE;
+				}
+				user_data->user_name[l] = '\0';
+				user_data->user_name_entered = TRUE;
+				break;
+			case IN_SW_GSEC_PASSWORD:
+				for (l = 0; l < 9 && string[l] && string[l] != ' '; l++)
+					user_data->password[l] = string[l];
+				if (l == 9) {
+					UTIL_print(GsecMsg77, NULL, NULL, NULL, NULL, NULL);
+					/* warning password maximum 8 significant bytes used */
+				}
+				user_data->password[l] = '\0';
+				user_data->password_entered = TRUE;
+				break;
+			case IN_SW_GSEC_UID:
+				user_data->uid = atoi(string);
+				user_data->uid_entered = TRUE;
+				break;
+			case IN_SW_GSEC_GID:
+				user_data->gid = atoi(string);
+				user_data->gid_entered = TRUE;
+				break;
+			case IN_SW_GSEC_SYSU:
+				strncpy(user_data->sys_user_name, string, 128);
+				user_data->sys_user_entered = TRUE;
+				break;
+			case IN_SW_GSEC_GROUP:
+				strncpy(user_data->group_name, string, 128);
+				user_data->group_name_entered = TRUE;
+				break;
+			case IN_SW_GSEC_FNAME:
+				strncpy(user_data->first_name, string, 17);
+				user_data->first_name_entered = TRUE;
+				break;
+			case IN_SW_GSEC_MNAME:
+				strncpy(user_data->middle_name, string, 17);
+				user_data->middle_name_entered = TRUE;
+				break;
+			case IN_SW_GSEC_LNAME:
+				strncpy(user_data->last_name, string, 17);
+				user_data->last_name_entered = TRUE;
+				break;
+			case IN_SW_GSEC_DATABASE:
+				strncpy(user_data->database_name, string, 512);
+				user_data->database_entered = TRUE;
+				break;
+			case IN_SW_GSEC_DBA_USER_NAME:
+				strncpy(user_data->dba_user_name, string, 133);
+				user_data->dba_user_name_entered = TRUE;
+				break;
+			case IN_SW_GSEC_DBA_PASSWORD:
+				strncpy(user_data->dba_password, string, 33);
+				user_data->dba_password_entered = TRUE;
+				break;
+			case IN_SW_GSEC_SQL_ROLE_NAME:
+				strncpy(user_data->sql_role_name, string, 33);
+				user_data->sql_role_name_entered = TRUE;
+				break;
+			case IN_SW_GSEC_Z:
+			case IN_SW_GSEC_0:
+#ifdef SUPERSERVER
+				UTIL_error(GsecMsg29, NULL, NULL, NULL, NULL, NULL);
+#else
+				UTIL_print(GsecMsg29, NULL, NULL, NULL, NULL, NULL);
+#endif
+				/* gsec - invalid parameter, no switch defined */
+				return FALSE;
+			}
+			last_sw = IN_SW_GSEC_0;
+		}
+		else {
+			/* iterate through the switch table, looking for matches */
+
+			in_sw = IN_SW_GSEC_0;
+			for (in_sw_tab = in_sw_table; q = in_sw_tab->in_sw_name;
+				 in_sw_tab++) {
+				p = string + 1;
+
+				/* handle orphaned hyphen case */
+
+				if (!*p--)
+					break;
+
+				/* compare switch to switch name in table */
+
+				l = 0;
+				while (*p) {
+					if (!*++p) {
+						if (l >= in_sw_tab->in_sw_min_length)
+							in_sw = in_sw_tab->in_sw;
+						else
+							in_sw = IN_SW_GSEC_AMBIG;
+					}
+					if (UPPER(*p) != *q++)
+						break;
+					l++;
+				}
+
+				/* end of input means we got a match.  stop looking */
+
+				if (!*p)
+					break;
+			}
+
+			/* this checks to make sure that the switch is not a duplicate.   if
+			   it is a duplicate, it's an error.   if it's not a duplicate, the
+			   appropriate specified flag is set (to later check for duplicates),
+			   and the applicable parameter value is set to its null value, in
+			   case the user really wants to remove an existing parameter. */
+
+			switch (in_sw) {
+			case IN_SW_GSEC_ADD:
+			case IN_SW_GSEC_DEL:
+			case IN_SW_GSEC_DIS:
+			case IN_SW_GSEC_MOD:
+			case IN_SW_GSEC_QUIT:
+			case IN_SW_GSEC_HELP:
+				if (user_data->operation) {
+					UTIL_error(GsecMsg30, NULL, NULL, NULL, NULL, NULL);
+					/* gsec - operation already specified */
+					return FALSE;
+				}
+				switch (in_sw) {
+				case IN_SW_GSEC_ADD:
+					user_data->operation = ADD_OPER;
+					break;
+				case IN_SW_GSEC_DEL:
+					user_data->operation = DEL_OPER;
+					break;
+				case IN_SW_GSEC_DIS:
+					user_data->operation = DIS_OPER;
+					break;
+				case IN_SW_GSEC_MOD:
+					user_data->operation = MOD_OPER;
+					break;
+				case IN_SW_GSEC_QUIT:
+					user_data->operation = QUIT_OPER;
+					*quitflag = TRUE;
+					break;
+				case IN_SW_GSEC_HELP:
+					user_data->operation = HELP_OPER;
+					break;
+				}
+				user_data->user_name[0] = '\0';
+				tdsec->tsec_interactive = FALSE;
+				break;
+			case IN_SW_GSEC_PASSWORD:
+			case IN_SW_GSEC_UID:
+			case IN_SW_GSEC_GID:
+			case IN_SW_GSEC_SYSU:
+			case IN_SW_GSEC_GROUP:
+			case IN_SW_GSEC_FNAME:
+			case IN_SW_GSEC_MNAME:
+			case IN_SW_GSEC_LNAME:
+			case IN_SW_GSEC_DATABASE:
+			case IN_SW_GSEC_DBA_USER_NAME:
+			case IN_SW_GSEC_DBA_PASSWORD:
+			case IN_SW_GSEC_SQL_ROLE_NAME:
+				err_msg_no = 0;
+				switch (in_sw) {
+				case IN_SW_GSEC_PASSWORD:
+					if (user_data->password_specified) {
+						err_msg_no = GsecMsg31;
+						break;
+					}
+					user_data->password_specified = TRUE;
+					user_data->password[0] = '\0';
+					break;
+				case IN_SW_GSEC_UID:
+					if (user_data->uid_specified) {
+						err_msg_no = GsecMsg32;
+						break;
+					}
+					user_data->uid_specified = TRUE;
+					user_data->uid = 0;
+					break;
+				case IN_SW_GSEC_GID:
+					if (user_data->gid_specified) {
+						err_msg_no = GsecMsg33;
+						break;
+					}
+					user_data->gid_specified = TRUE;
+					user_data->gid = 0;
+					break;
+				case IN_SW_GSEC_SYSU:
+					if (user_data->sys_user_specified) {
+						err_msg_no = GsecMsg34;
+						break;
+					}
+					user_data->sys_user_specified = TRUE;
+					user_data->sys_user_name[0] = '\0';
+					break;
+				case IN_SW_GSEC_GROUP:
+					if (user_data->group_name_specified) {
+						err_msg_no = GsecMsg35;
+						break;
+					}
+					user_data->group_name_specified = TRUE;
+					user_data->group_name[0] = '\0';
+					break;
+				case IN_SW_GSEC_FNAME:
+					if (user_data->first_name_specified) {
+						err_msg_no = GsecMsg36;
+						break;
+					}
+					user_data->first_name_specified = TRUE;
+					user_data->first_name[0] = '\0';
+					break;
+				case IN_SW_GSEC_MNAME:
+					if (user_data->middle_name_specified) {
+						err_msg_no = GsecMsg37;
+						break;
+					}
+					user_data->middle_name_specified = TRUE;
+					user_data->middle_name[0] = '\0';
+					break;
+				case IN_SW_GSEC_LNAME:
+					if (user_data->last_name_specified) {
+						err_msg_no = GsecMsg38;
+						break;
+					}
+					user_data->last_name_specified = TRUE;
+					user_data->last_name[0] = '\0';
+					break;
+				case IN_SW_GSEC_DATABASE:
+					if (user_data->database_specified) {
+						err_msg_no = GsecMsg78;
+						break;
+					}
+					user_data->database_specified = TRUE;
+					user_data->database_name[0] = '\0';
+					break;
+				case IN_SW_GSEC_DBA_USER_NAME:
+					if (user_data->dba_user_name_specified) {
+						err_msg_no = GsecMsg79;
+						break;
+					}
+					user_data->dba_user_name_specified = TRUE;
+					user_data->dba_user_name[0] = '\0';
+					break;
+				case IN_SW_GSEC_DBA_PASSWORD:
+					if (user_data->dba_password_specified) {
+						err_msg_no = GsecMsg80;
+						break;
+					}
+					user_data->dba_password_specified = TRUE;
+					user_data->dba_password[0] = '\0';
+					break;
+				case IN_SW_GSEC_SQL_ROLE_NAME:
+					if (user_data->sql_role_name_specified) {
+						err_msg_no = GsecMsg81;
+						break;
+					}
+					user_data->sql_role_name_specified = TRUE;
+					user_data->sql_role_name[0] = '\0';
+					break;
+				}
+				if (err_msg_no) {
+					UTIL_error(err_msg_no, NULL, NULL, NULL, NULL, NULL);
+					return FALSE;
+				}
+				break;
+			case IN_SW_GSEC_Z:
+				if (!tdsec->tsec_sw_version) {
+					SECURITY_msg_get(GsecMsg39, msg);
+					util_output("%s %s\n", msg, GDS_VERSION);
+				}
+				tdsec->tsec_sw_version = TRUE;
+				break;
+			case IN_SW_GSEC_0:
+#ifdef SUPERSERVER
+				UTIL_error(GsecMsg40, NULL, NULL, NULL, NULL, NULL);
+#else
+				UTIL_print(GsecMsg40, NULL, NULL, NULL, NULL, NULL);
+#endif
+				/* gsec - invalid switch specified */
+				return FALSE;
+			case IN_SW_GSEC_AMBIG:
+#ifdef SUPERSERVER
+				UTIL_error(GsecMsg41, NULL, NULL, NULL, NULL, NULL);
+#else
+				UTIL_print(GsecMsg41, NULL, NULL, NULL, NULL, NULL);
+#endif
+				/* gsec - ambiguous switch specified */
+				return FALSE;
+			}
+			last_sw = in_sw;
+		}
+
+		/* make sure that the current suite of switches and parameters
+		   is valid, and if not, indicate why not */
+
+		if (user_data->uid_entered || user_data->gid_entered ||
+			user_data->sys_user_entered || user_data->group_name_entered ||
+			user_data->password_entered || user_data->first_name_entered ||
+			user_data->middle_name_entered || user_data->last_name_entered)
+			switch (user_data->operation) {
+			case 0:
+				UTIL_error(GsecMsg42, NULL, NULL, NULL, NULL, NULL);
+				/* gsec - no operation specified for parameters */
+				return FALSE;
+			case ADD_OPER:
+			case MOD_OPER:
+				/* any parameter is ok for these operation states */
+				break;
+			case DEL_OPER:
+			case DIS_OPER:
+			case QUIT_OPER:
+			case HELP_OPER:
+				UTIL_error(GsecMsg43, NULL, NULL, NULL, NULL, NULL);
+				/* gsec - no parameters allowed for this operation */
+				return FALSE;
+			}
+
+		if (*quitflag)
+			break;
+	}
+
+	return TRUE;
+}
+
+
+static void printhelp(void)
+{
+/**************************************
+ *
+ *	p r i n t h e l p
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	util_output("\n%s", "   ");
+	UTIL_print(GsecMsg45, NULL, NULL, NULL, NULL, NULL);
+/* gsec utility - maintains user password database */
+
+	util_output("\n%s", "   ");
+	UTIL_print(GsecMsg46, NULL, NULL, NULL, NULL, NULL);
+	util_output("%s", "     ");
+	UTIL_print_partial(GsecMsg2, NULL, NULL, NULL, NULL, NULL);
+	UTIL_print_partial(GsecMsg82, NULL, NULL, NULL, NULL, NULL);
+	UTIL_print(GsecMsg47, NULL, NULL, NULL, NULL, NULL);
+/* gsec [ <options> ... ] -<command> [ <parameter> ... ] */
+
+	util_output("\n%s", "   ");
+	UTIL_print(GsecMsg48, NULL, NULL, NULL, NULL, NULL);
+/* interactive usage: */
+
+	util_output("%s", "     ");
+	UTIL_print_partial(GsecMsg2, NULL, NULL, NULL, NULL, NULL);
+	UTIL_print(GsecMsg82, NULL, NULL, NULL, NULL, NULL);
+/* gsec [ <options> ... ] */
+
+	util_output("%s", "     ");
+	UTIL_print_partial(GsecMsg1, NULL, NULL, NULL, NULL, NULL);
+	util_output("\n%s", "     ");
+	UTIL_print(GsecMsg47, NULL, NULL, NULL, NULL, NULL);
+/* GSEC> <command> [ <parameter> ... ] */
+
+	util_output("\n%s", "   ");
+	UTIL_print(GsecMsg83, NULL, NULL, NULL, NULL, NULL);
+/* available options: */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg84, NULL, NULL, NULL, NULL, NULL);
+/* -user <database administrator name> */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg85, NULL, NULL, NULL, NULL, NULL);
+/* -password <database administrator password> */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg86, NULL, NULL, NULL, NULL, NULL);
+/* -role <database administrator SQL role name> */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg87, NULL, NULL, NULL, NULL, NULL);
+/* -database <security database> */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg88, NULL, NULL, NULL, NULL, NULL);
+/* -z */
+
+	util_output("\n%s", "   ");
+	UTIL_print(GsecMsg49, NULL, NULL, NULL, NULL, NULL);
+/* available commands: */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg50, NULL, NULL, NULL, NULL, NULL);
+/* adding a new user: */
+
+	util_output("%s", "       ");
+	UTIL_print(GsecMsg51, NULL, NULL, NULL, NULL, NULL);
+/* add <name> [ <parameter> ... ] */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg52, NULL, NULL, NULL, NULL, NULL);
+/* deleting a current user: */
+
+	util_output("%s", "       ");
+	UTIL_print(GsecMsg53, NULL, NULL, NULL, NULL, NULL);
+/* delete <name> */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg54, NULL, NULL, NULL, NULL, NULL);
+/* displaying all users: */
+
+	util_output("%s", "       ");
+	UTIL_print(GsecMsg55, NULL, NULL, NULL, NULL, NULL);
+/* display */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg56, NULL, NULL, NULL, NULL, NULL);
+/* displaying one user: */
+
+	util_output("%s", "       ");
+	UTIL_print(GsecMsg57, NULL, NULL, NULL, NULL, NULL);
+/* display <name> */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg58, NULL, NULL, NULL, NULL, NULL);
+/* modifying a user's parameters: */
+
+	util_output("%s", "       ");
+	UTIL_print(GsecMsg59, NULL, NULL, NULL, NULL, NULL);
+/* modify <name> <parameter> [ <parameter> ... ] */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg60, NULL, NULL, NULL, NULL, NULL);
+/* help: */
+
+	util_output("%s", "       ");
+	UTIL_print(GsecMsg61, NULL, NULL, NULL, NULL, NULL);
+/* ? (interactive only) */
+
+	util_output("%s", "       ");
+	UTIL_print(GsecMsg62, NULL, NULL, NULL, NULL, NULL);
+/* help */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg89, NULL, NULL, NULL, NULL, NULL);
+/* displaying version number: */
+
+	util_output("%s", "       ");
+	UTIL_print(GsecMsg90, NULL, NULL, NULL, NULL, NULL);
+/* z (interactive only) */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg63, NULL, NULL, NULL, NULL, NULL);
+/* quit interactive session: */
+
+	util_output("%s", "       ");
+	UTIL_print(GsecMsg64, NULL, NULL, NULL, NULL, NULL);
+/* quit (interactive only) */
+
+	util_output("\n%s", "   ");
+	UTIL_print(GsecMsg65, NULL, NULL, NULL, NULL, NULL);
+/* available parameters: */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg66, NULL, NULL, NULL, NULL, NULL);
+/* -pw <password> */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg67, NULL, NULL, NULL, NULL, NULL);
+/* -uid <uid> */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg68, NULL, NULL, NULL, NULL, NULL);
+/* -gid <gid> */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg71, NULL, NULL, NULL, NULL, NULL);
+/* -fname <firstname> */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg72, NULL, NULL, NULL, NULL, NULL);
+/* -mname <middlename> */
+
+	util_output("%s", "     ");
+	UTIL_print(GsecMsg73, NULL, NULL, NULL, NULL, NULL);
+/* -lname <lastname> */
+	util_output("\n", NULL);
+}
+
+
+static SSHORT parse_cmd_line( int argc, TEXT ** argv, TSEC tdsec)
+{
+/**************************************
+ *
+ *	p a r s e _ c m d _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the command line
+ *	returns 0 on normal completion, 
+ *	   1 if user chooses to quit
+ *	   -1 on error or if user asks for help
+ *
+ **************************************/
+	SSHORT ret;
+	BOOLEAN quitflag = FALSE;
+	USER_DATA user_data;
+
+	user_data = tdsec->tsec_user_data;
+	memset(user_data, 0, sizeof(USER_DATA));
+
+/* Call a subroutine to process the input line. */
+
+	ret = 0;
+	if (!get_switches(argc, argv, gsec_in_sw_table, tdsec, &quitflag)) {
+#ifdef SUPERSERVER
+		UTIL_error(GsecMsg16, NULL, NULL, NULL, NULL, NULL);
+#else
+		UTIL_print(GsecMsg16, NULL, NULL, NULL, NULL, NULL);
+#endif
+		/* gsec - error in switch specifications */
+		ret = -1;
+	}
+	else if (user_data->operation)
+		if (user_data->operation == HELP_OPER) {
+			printhelp();
+			ret = -1;
+		}
+		else if (user_data->operation != DIS_OPER &&
+				 user_data->operation != QUIT_OPER &&
+				 !user_data->user_name_entered) {
+			UTIL_error(GsecMsg18, NULL, NULL, NULL, NULL, NULL);
+			/* gsec - no user name specified */
+			ret = -1;
+		}
+
+	if (quitflag)
+		ret = 1;
+
+	if (tdsec->tsec_sw_version)
+		ret = -1;
+
+	return ret;
+}
+
+void UTIL_print_status( STATUS * status_vector)
+{
+/**************************************
+ *
+ *	U T I L _ p r i n t _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print error message. Use isc_interprete
+ *	to allow redirecting output.
+ *
+ **************************************/
+#ifdef SUPERSERVER
+	TSEC tdsec;
+	STATUS *status;
+	int i = 0, j;
+#endif
+	STATUS *vector;
+	SCHAR s[1024];
+
+	if (status_vector) {
+		vector = status_vector;
+#ifdef SUPERSERVER
+		tdsec = GET_THREAD_DATA;
+		status = tdsec->tsec_service_blk->svc_status;
+		if (status != status_vector) {
+			while (*status && (++i < ISC_STATUS_LENGTH))
+				status++;
+			for (j = 0; status_vector[j] && (i < ISC_STATUS_LENGTH); j++, i++)
+				*status++ = status_vector[j];
+		}
+#endif
+		if (isc_interprete(s, &vector)) {
+			TRANSLATE_CP(s);
+			util_output("%s\n", s);
+			while (isc_interprete(s, &vector)) {
+				TRANSLATE_CP(s);
+				util_output("%s\n", s);
+			}
+		}
+	}
+}
+
+static void util_output( CONST SCHAR * format, ...)
+{
+/**************************************
+ *
+ *	u t i l _ o u t p u t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Platform independent output routine.
+ *
+ **************************************/
+	va_list arglist;
+	UCHAR buf[1000];
+	int exit_code;
+	TSEC tdsec;
+
+	tdsec = GET_THREAD_DATA;
+
+	if (format[0] == '\0') {
+		exit_code =
+			tdsec->tsec_output_proc(tdsec->tsec_output_data,
+									reinterpret_cast < UCHAR * >(""));
+	}
+	else {
+		VA_START(arglist, format);
+		vsprintf((char *) buf, format, arglist);
+		va_end(arglist);
+		exit_code = tdsec->tsec_output_proc(tdsec->tsec_output_data, buf);
+	}
+
+	if (exit_code != 0)
+		EXIT(exit_code);
+}
+
+void UTIL_error_redirect(
+						 STATUS * status_vector,
+						 USHORT errcode, TEXT * arg1, TEXT * arg2)
+{
+/**************************************
+ *
+ *	U T I L _ e r r o r _ r e d i r e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Issue error message. Output messages then abort.
+ *
+ **************************************/
+
+	UTIL_print_status(status_vector);
+	UTIL_error(errcode, arg1, arg2, NULL, NULL, NULL);
+}
+
+void UTIL_error(
+				USHORT errcode,
+				TEXT * arg1,
+				TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	 U T I L _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format and print an error message, then punt.
+ *
+ **************************************/
+#ifdef SUPERSERVER
+	TSEC tdsec;
+	STATUS *status;
+
+	tdsec = GET_THREAD_DATA;
+	status = tdsec->tsec_service_blk->svc_status;
+
+	CMD_UTIL_put_svc_status(status, GSEC_MSG_FAC, errcode,
+							isc_arg_string, arg1,
+							isc_arg_string, arg2,
+							isc_arg_string, arg3,
+							isc_arg_string, arg4, isc_arg_string, arg5);
+	SVC_STARTED(tdsec->tsec_service_blk);
+#else
+	TSEC tdsec;
+	tdsec = GET_THREAD_DATA;
+#endif
+
+	UTIL_print(errcode, arg1, arg2, arg3, arg4, arg5);
+	EXIT(FINI_ERROR);
+}
+
+void UTIL_print(
+				USHORT number,
+				TEXT * arg1,
+				TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	U T I L _ p r i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, format it, and print it.
+ *
+ **************************************/
+	TEXT buffer[256];
+
+	gds__msg_format(0, GSEC_MSG_FAC, number, sizeof(buffer), buffer, arg1,
+					arg2, arg3, arg4, arg5);
+	TRANSLATE_CP(buffer);
+	util_output("%s\n", buffer);
+}
+
+void UTIL_print_partial(
+						USHORT number,
+						TEXT * arg1,
+						TEXT * arg2, TEXT * arg3, TEXT * arg4, TEXT * arg5)
+{
+/**************************************
+ *
+ *	U T I L _ p r i n t _ p a r t i a l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file, format it, and print it.
+ *
+ **************************************/
+	TEXT buffer[256];
+
+	gds__msg_format(0, GSEC_MSG_FAC, number, sizeof(buffer), buffer, arg1,
+					arg2, arg3, arg4, arg5);
+	TRANSLATE_CP(buffer);
+	util_output("%s ", buffer);
+}
+
+
+} // extern "C"
diff --git a/src/utilities/gsec.h b/src/utilities/gsec.h
new file mode 100644
index 0000000000..0d536d6a8b
--- /dev/null
+++ b/src/utilities/gsec.h
@@ -0,0 +1,244 @@
+/*
+ *	PROGRAM:	Security data base manager
+ *	MODULE:		gsec.h
+ *	DESCRIPTION:	Header file for the GSEC program
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _UTILITIES_GSEC_H_
+#define _UTILITIES_GSEC_H_
+
+#include "../jrd/ibsetjmp.h"
+#include "../jrd/thd.h"
+#include "../jrd/thd_proto.h"
+
+#if (defined WIN_NT)
+#include <io.h>
+#endif
+
+#define GSEC_MSG_FAC	18
+#define MSG_LENGTH	128
+#define QUERY_LENGTH	256
+ 
+/* structure to hold information from the command line, including the
+   operation to perform and any parameters entered (sizes are determined
+   by the size of the fields in the USERS relation in USERINFO.GDB) */
+
+#define ADD_OPER	1
+#define DEL_OPER	2
+#define DIS_OPER	3
+#define MOD_OPER	4
+#define QUIT_OPER	5
+#define HELP_OPER	6
+#define VERSION_OPER	7
+
+#define USER_NAME_LEN 133
+#define ALT_NAME_LEN  129
+#define NAME_LEN       33
+
+typedef int (DLL_EXPORT* OUTPUTPROC) (SLONG, UCHAR *);
+
+#ifdef GET_THREAD_DATA
+#undef GET_THREAD_DATA
+#endif
+
+#if !(defined REMOTE_REMOTE_H || defined JRD_JRD_H)
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+#endif
+
+#include "../jrd/svc.h"
+#include "../jrd/svc_proto.h"
+
+#ifdef SET_THREAD_DATA
+#undef SET_THREAD_DATA
+#endif
+#ifdef RESTORE_THREAD_DATA
+#undef RESTORE_THREAD_DATA
+#endif
+#ifdef SUPERSERVER
+#define GET_THREAD_DATA	        ((TSEC) THD_get_specific())
+#define SET_THREAD_DATA         THD_put_specific ((THDD) tdsec); \
+				tdsec->tsec_thd_data.thdd_type = THDD_TYPE_TSEC
+#define RESTORE_THREAD_DATA     THD_restore_specific();
+#else
+#define GET_THREAD_DATA	        (gdsec)
+#define SET_THREAD_DATA         gdsec = tdsec; \
+				tdsec->tsec_thd_data.thdd_type = THDD_TYPE_TSEC
+#define RESTORE_THREAD_DATA     
+#endif
+
+#define EXIT(code)	            {  tdsec->tsec_exit_code = (code);          \
+					if (tdsec->tsec_env != NULL)        \
+					LONGJMP(*tdsec->tsec_env, 1);  }
+
+typedef struct user_data {
+    int		operation;		/* what's to be done */
+    TEXT	user_name [USER_NAME_LEN];	/* the user's name */
+    BOOLEAN	user_name_entered;	/* user name entered flag */
+    int		uid;			/* the user's id */
+    BOOLEAN	uid_entered;		/* UID entered flag */
+    BOOLEAN	uid_specified;		/* UID specified flag */
+    int		gid;			/* the user's group id */
+    BOOLEAN	gid_entered;		/* GID entered flag */
+    BOOLEAN	gid_specified;		/* GID specified flag */
+    TEXT	sys_user_name [ALT_NAME_LEN];	/* the sys_user's name */
+    BOOLEAN	sys_user_entered;	/* sys_user entered flag */
+    BOOLEAN	sys_user_specified;	/* sys_user specified flag */
+    TEXT	group_name [ALT_NAME_LEN];	/* the group name */
+    BOOLEAN	group_name_entered;	/* group_name entered flag */
+    BOOLEAN	group_name_specified;	/* group_name specified flag */
+    TEXT	password [NAME_LEN];		/* the user's password */
+    BOOLEAN	password_entered;	/* password entered flag */
+    BOOLEAN	password_specified;	/* password specified flag */
+    TEXT	first_name [NAME_LEN];	/* the user's first name */
+    BOOLEAN	first_name_entered;	/* first name entered flag */
+    BOOLEAN	first_name_specified;	/* first name specified flag */
+    TEXT	middle_name [NAME_LEN];	/* the user's middle name */
+    BOOLEAN	middle_name_entered;	/* middle name entered flag */
+    BOOLEAN	middle_name_specified;	/* middle name specified flag */
+    TEXT	last_name [NAME_LEN];		/* the user's last name */
+    BOOLEAN	last_name_entered;	/* last name entered flag */
+    BOOLEAN	last_name_specified;	/* last name specified flag */
+    TEXT	dba_user_name [USER_NAME_LEN];	/* the user's name */
+    BOOLEAN	dba_user_name_entered;	/* user name entered flag */
+    BOOLEAN	dba_user_name_specified;/* database specified flag */
+    TEXT	dba_password [NAME_LEN];	/* the user's name */
+    BOOLEAN	dba_password_entered;	/* user name entered flag */
+    BOOLEAN	dba_password_specified;	/* database specified flag */
+    TEXT	sql_role_name [NAME_LEN];	/* the user's name */
+    BOOLEAN	sql_role_name_entered;	/* user name entered flag */
+    BOOLEAN	sql_role_name_specified;/* database specified flag */
+    TEXT	database_name [512];	/* database pathname */
+    BOOLEAN	database_entered;	/* database entered flag */
+    BOOLEAN	database_specified;	/* database specified flag */
+
+} *USER_DATA;
+
+typedef struct tsec {
+    struct thdd		tsec_thd_data;
+    struct user_data	*tsec_user_data;
+    int			tsec_exit_code;
+    jmp_buf*	tsec_env;
+    STATUS		*tsec_status;
+    STATUS		tsec_status_vector[ISC_STATUS_LENGTH];
+    BOOLEAN		tsec_interactive;
+    BOOLEAN		tsec_sw_version;
+    BOOLEAN		tsec_service_gsec;
+    BOOLEAN		tsec_service_thd;
+    OUTPUTPROC  	tsec_output_proc;
+    SLONG       	tsec_output_data;
+    IB_FILE        	*tsec_output_file;
+    SVC			tsec_service_blk;
+} *TSEC;
+
+#define GsecMsg0	0	/* empty message */
+#define GsecMsg1	1	/* "GSEC> "  (the prompt) */
+#define GsecMsg2	2	/* gsec  (lower case version of the prompt for help display) */
+#define GsecMsg3	3	/* ADD          add user */
+#define GsecMsg4	4	/* DELETE       delete user */
+#define GsecMsg5	5	/* DISPLAY      display user(s) */
+#define GsecMsg6	6	/* MODIFY       modify user */
+#define GsecMsg7	7	/* PW           user's password */
+#define GsecMsg8	8	/* UID          user's ID */
+#define GsecMsg9	9	/* GID          user's group ID */
+#define GsecMsg10	10	/* PROJ         user's project name */
+#define GsecMsg11	11	/* ORG          user's organization name */
+#define GsecMsg12	12	/* FNAME        user's first name */
+#define GsecMsg13	13	/* MNAME        user's middle name/initial */   
+#define GsecMsg14	14	/* LNAME        user's last name */
+#define GsecMsg15	15	/* gsec - unable to open database */
+#define GsecMsg16	16	/* gsec - error in switch specifications */
+#define GsecMsg17	17	/* gsec - no operation specified */
+#define GsecMsg18	18	/* gsec - no user name specified */
+#define GsecMsg19	19	/* gsec - add record error */ 
+#define GsecMsg20	20	/* gsec - modify record error */
+#define GsecMsg21	21	/* gsec - find/modify record error */
+#define GsecMsg22	22	/* gsec - record not found for user: */
+#define GsecMsg23	23	/* gsec - delete record error */
+#define GsecMsg24	24	/* gsec - find/delete record error */
+#define GsecMsg25	25	/* users defined for node */
+#define GsecMsg26	26	/*     user name     uid   gid     project   organization       full name */
+#define GsecMsg27	27	/* ---------------- ----- ----- ------------ ------------ -------------------- */
+#define GsecMsg28	28	/* gsec - find/display record error */
+#define GsecMsg29	29	/* gsec - invalid parameter, no switch defined */
+#define GsecMsg30	30	/* gsec - operation already specified */
+#define GsecMsg31	31	/* gsec - password already specified */
+#define GsecMsg32	32	/* gsec - uid already specified */
+#define GsecMsg33	33	/* gsec - gid already specified */
+#define GsecMsg34	34	/* gsec - project already specified */
+#define GsecMsg35	35	/* gsec - organization already specified */
+#define GsecMsg36	36	/* gsec - first_name already specified */
+#define GsecMsg37	37	/* gsec - middle_name already specified */
+#define GsecMsg38	38	/* gsec - last_name already specified */
+#define GsecMsg39	39	/* gsec version */
+#define GsecMsg40	40	/* gsec - invalid switch specified */
+#define GsecMsg41	41	/* gsec - ambiguous switch specified */
+#define GsecMsg42	42	/* gsec - no operation specified for parameters */
+#define GsecMsg43	43	/* gsec - no parameters allowed for this operation */
+#define GsecMsg44	44	/* gsec - incompatible switches specified */
+#define GsecMsg45	45	/* gsec utility - maintains user password database" */
+#define GsecMsg46	46	/* command line usage: */
+#define GsecMsg47	47	/* <command> [ <parameter> ... ] */
+#define GsecMsg48	48	/* interactive usage: */
+#define GsecMsg49	49	/* available commands: */
+#define GsecMsg50	50	/* adding a new user: */
+#define GsecMsg51	51	/* add <name> [ <parameter> ... ] */
+#define GsecMsg52	52	/* deleting a current user: */
+#define GsecMsg53	53	/* delete <name> */
+#define GsecMsg54	54	/* displaying all users: */
+#define GsecMsg55	55	/* display */
+#define GsecMsg56	56	/* displaying one user: */
+#define GsecMsg57	57	/* display <name> */
+#define GsecMsg58	58	/* modifying a user's parameters: */
+#define GsecMsg59	59	/* modify <name> <parameter> [ <parameter> ... ] */
+#define GsecMsg60	60	/* help: */
+#define GsecMsg61	61	/* ? (interactive only) */
+#define GsecMsg62	62	/* help */
+#define GsecMsg63	63	/* quit interactive session: */
+#define GsecMsg64	64	/* quit (interactive only) */
+#define GsecMsg65	65	/* available parameters: */
+#define GsecMsg66	66	/* -pw <password> */
+#define GsecMsg67	67	/* -uid <uid> */
+#define GsecMsg68	68	/* -gid <uid> */
+#define GsecMsg69	69	/* -proj <projectname> */
+#define GsecMsg70	70	/* -org <organizationname> */
+#define GsecMsg71	71	/* -fname <firstname> */
+#define GsecMsg72	72	/* -mname <middlename> */
+#define GsecMsg73	73	/* -lname <lastname> */
+#define GsecMsg74	74	/* gsec - memory allocation error */
+#define GsecMsg75	75	/* gsec error */
+#define	GsecMsg76	76	/* invalid user name (maximum 31 bytes allowed) */
+#define	GsecMsg77	77	/* invalid password (maximum 16 bytes allowed) */
+#define GsecMsg78	78	/* gsec - database alrady specified */
+#define GsecMsg79	79	/* gsec - database administrator name already specified */
+#define GsecMsg80	80	/* gsec - database administrator password already specified */
+#define GsecMsg81	81	/* gsec - SQL role name laready specified */
+#define GsecMsg82	82	/* [ <options ... ] */
+#define GsecMsg83	83	/* available options: */
+#define GsecMsg84	84	/* -user <database administrator name> */
+#define GsecMsg85	85	/* -password <database administrator password> */
+#define GsecMsg86	86	/* -role <database administrator SQL role name> */
+#define GsecMsg87	87	/* -database <security database> */
+#define GsecMsg88	88	/* -z */
+#define GsecMsg89	89	/* displaying version number: */
+#define GsecMsg90	90	/* z (interactive only) */
+
+#endif /* _UTILITIES_GSEC_H_ */
diff --git a/src/utilities/gsecswi.h b/src/utilities/gsecswi.h
new file mode 100644
index 0000000000..e63d0e2f69
--- /dev/null
+++ b/src/utilities/gsecswi.h
@@ -0,0 +1,87 @@
+/*
+ *	PROGRAM:	Security data base manager
+ *	MODULE:		gsecswi.h
+ *	DESCRIPTION:	gsec switches
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _GSEC_GSECSWI_H_
+#define _GSEC_GSECSWI_H_
+
+#include "../jrd/common.h"
+
+/* Switch handling constants.  Note that the first IN_SW_DATA_ITEMS
+   switch constants refer to data items.  The remaining switch constants
+   refer to actual switches. */
+
+#define IN_SW_GSEC_0			0	/* not a known switch */
+#define IN_SW_GSEC_UID			1	/* uid is specified */
+#define IN_SW_GSEC_GID			2	/* gid is specified */
+#define IN_SW_GSEC_SYSU			3	/* sys_user_name is specified */
+#define IN_SW_GSEC_GROUP		4	/* group is specified */
+#define IN_SW_GSEC_PASSWORD		5	/* password is specified */
+#define IN_SW_GSEC_FNAME		6	/* first name is specified */
+#define IN_SW_GSEC_MNAME		7	/* middle name/initial is specified */
+#define IN_SW_GSEC_LNAME		8	/* last name is specified */
+#define IN_SW_GSEC_ADD			9	/* add a user */
+#define IN_SW_GSEC_DEL			10	/* delete a user */
+#define IN_SW_GSEC_DIS			11	/* display user(s) */
+#define IN_SW_GSEC_MOD			12	/* modify a user */
+#define IN_SW_GSEC_QUIT			13	/* quit from interactive session */
+#define IN_SW_GSEC_HELP			14	/* help */
+#define IN_SW_GSEC_Z			15	/* version */
+#define IN_SW_GSEC_DATABASE		16	/* database, if other than installed */
+#define IN_SW_GSEC_DBA_USER_NAME	17	/* Database Admin. User name */
+#define IN_SW_GSEC_DBA_PASSWORD		18	/* Database Admin. Password */
+#define IN_SW_GSEC_SQL_ROLE_NAME	19	/* SQL Role to assume */
+#define IN_SW_GSEC_AMBIG		20	/* ambiguous switch */
+#define IN_SW_GSEC_USERNAME		21	/* placeholder for the username */
+
+
+static struct in_sw_tab_t gsec_in_sw_table [] = {
+    IN_SW_GSEC_ADD,		0,				"ADD",		0, 0, 0, FALSE,	0,	1, NULL,	/* add user */
+    IN_SW_GSEC_UID,		isc_spb_sec_userid,		"UID",		0, 0, 0, FALSE,	0,	1, NULL,	/* user's ID */
+    IN_SW_GSEC_GID,		isc_spb_sec_groupid,		"GID",		0, 0, 0, FALSE,	0,	2, NULL,	/* user's group ID */
+    IN_SW_GSEC_SYSU,		0,				"SYSU",		0, 0, 0, FALSE,	0,	1, NULL,	/* sys_user's name */
+    IN_SW_GSEC_GROUP,		isc_spb_sec_groupname,		"GROUP",	0, 0, 0, FALSE,	0,	2, NULL,	/* user's group name */
+    IN_SW_GSEC_PASSWORD,	isc_spb_sec_password,		"PW",		0, 0, 0, FALSE,	0,	2, NULL,	/* user's password */
+    IN_SW_GSEC_FNAME,		isc_spb_sec_firstname,		"FNAME",	0, 0, 0, FALSE,	0,	1, NULL,	/* user's first name */
+    IN_SW_GSEC_MNAME,		isc_spb_sec_middlename,		"MNAME",	0, 0, 0, FALSE,	0,	2, NULL,	/* user's middle name/initial */
+    IN_SW_GSEC_LNAME,		isc_spb_sec_lastname,		"LNAME",	0, 0, 0, FALSE,	0,	1, NULL,	/* user's last name */
+    IN_SW_GSEC_DEL,		0,				"DELETE",	0, 0, 0, FALSE,	0,	2, NULL,	/* delete user */
+    IN_SW_GSEC_DIS,		0,				"DISPLAY",	0, 0, 0, FALSE,	0,	2, NULL,	/* display user(s) */
+    IN_SW_GSEC_MOD,		0,				"MODIFY",	0, 0, 0, FALSE,	0,	2, NULL,	/* modify user */
+    IN_SW_GSEC_QUIT,		0,				"QUIT",		0, 0, 0, FALSE,	0,	1, NULL,	/* exit command line interface */
+    IN_SW_GSEC_HELP,		0,				"HELP",		0, 0, 0, FALSE,	0,	1, NULL,	/* print help */
+    IN_SW_GSEC_Z,		0,				"Z",		0, 0, 0, FALSE,	0,	1, NULL,	/* version */
+    IN_SW_GSEC_DATABASE,	isc_spb_dbname,			"DATABASE",	0, 0, 0, FALSE,	0,	2, NULL,	/* specify database to use */
+    IN_SW_GSEC_DBA_USER_NAME,	0,				"USER",		0, 0, 0, FALSE,	0,	1, NULL,	/* Database Admin. User name */
+    IN_SW_GSEC_DBA_PASSWORD, 	0,				"PASSWORD",	0, 0, 0, FALSE,	0,	2, NULL,	/* Database Admin. Password */
+    IN_SW_GSEC_SQL_ROLE_NAME,	isc_spb_sql_role_name,		"ROLE",		0, 0, 0, FALSE,	0,	2, NULL,	/* SQL Role to assume */
+    IN_SW_GSEC_0,		0,				NULL,		0, 0, 0, FALSE,	0,	0, NULL		/* End of List */
+};
+
+static struct in_sw_tab_t gsec_action_in_sw_table [] = {
+    IN_SW_GSEC_ADD,		isc_action_svc_add_user,	"ADD",		0, 0, 0, FALSE,	0,	1, NULL,	/* add user */
+    IN_SW_GSEC_DEL,		isc_action_svc_delete_user,	"DELETE",	0, 0, 0, FALSE,	0,	2, NULL,	/* delete user */
+    IN_SW_GSEC_MOD,		isc_action_svc_modify_user,	"MODIFY",	0, 0, 0, FALSE,	0,	2, NULL,	/* modify user */
+    IN_SW_GSEC_DIS,		isc_action_svc_display_user,	"DISPLAY",	0, 0, 0, FALSE,	0,	2, NULL,	/* display user(s) */
+    IN_SW_GSEC_0,		0,				NULL,		0, 0, 0, FALSE,	0,	0, NULL		/* End of List */
+};
+#endif /* _GSEC_GSECSWI_H_ */
diff --git a/src/utilities/guard.cpp b/src/utilities/guard.cpp
new file mode 100644
index 0000000000..8d1aaaacfb
--- /dev/null
+++ b/src/utilities/guard.cpp
@@ -0,0 +1,190 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: guard.cpp,v 1.1.1.1 2001-05-23 13:26:41 tamlin Exp $
+ */
+ /* contains the main() and not shared routines for ibguard */
+
+#define FOREVER		1
+#define ONETIME		2
+#define IGNORE          3
+#define NORMAL_EXIT	0
+
+#define SUPER_SERVER_BINARY	"bin/ibserver"
+
+#define INTERBASE_USER		"interbase"
+#define FIREBIRD_USER		"firebird"
+#define INTERBASE_USER_SHORT	"interbas"
+
+#include "../jrd/ib_stdio.h"
+#include <sys/types.h>
+
+
+
+#include "../jrd/common.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/file_params.h"
+#include "../utilities/util_proto.h"
+
+
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *      m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *      The main for ibguard. This process is used to start
+ *      the super server (ibserver) and keep it running
+ *	after an abnormal termination.
+ *
+ *      process takes 1 argument:  -f (default) or -o
+ *
+ **************************************/
+	TEXT **end, *p, c;
+	USHORT option = FOREVER;	/* holds FOREVER or ONETIME */
+	TEXT user_name[256];		/* holds the user name */
+	USHORT done = TRUE, fd_guard;
+	pid_t child_pid;
+	TEXT *prog_name = argv[0];
+	TEXT *server_args[2];
+	TEXT process_name[1024];
+
+	ULONG old_mask;
+	ULONG new_mask = 0000;
+
+	end = argc + argv;
+	argv++;
+	while (argv < end) {
+		p = *argv++;
+		if (*p++ == '-')
+			switch (UPPER(*p)) {
+			case 'F':
+				option = FOREVER;
+				break;
+			case 'O':
+				option = ONETIME;
+				break;
+			case 'S':
+				option = IGNORE;
+				break;
+			default:
+				ib_fprintf(ib_stderr,
+						   "Usage: %s [-signore | -onetime | -forever (default)]\n",
+						   prog_name);
+				exit(-1);
+				break;
+			}
+
+	}							/* while */
+
+/* check user id */
+	ISC_get_user(user_name, NULL, NULL, NULL, NULL, NULL, NULL);
+
+	if (strcmp(user_name, INTERBASE_USER) && strcmp(user_name, "root")
+		&& strcmp(user_name, FIREBIRD_USER)
+		&& strcmp(user_name, INTERBASE_USER_SHORT)) {
+		/* invalid user bail out */
+		ib_fprintf(ib_stderr,
+				   "%s: Invalid user (must be %s, %s, %s or root).\n",
+				   prog_name, FIREBIRD_USER, INTERBASE_USER,
+				   INTERBASE_USER_SHORT);
+		exit(-2);
+	}
+
+/* get and set the umask for the current process */
+	old_mask = umask(new_mask);
+
+/* exclusive lock the file */
+	if ((fd_guard = UTIL_ex_lock(GUARD_FILE)) < 0) {
+		/* could not get exclusive lock -- some other guardian is running */
+		if (fd_guard == -2)
+			ib_fprintf(ib_stderr, "%s: Program is already running.\n",
+					   prog_name);
+		exit(-3);
+	}
+
+/* the umask back to orignal donot want to carry this to child process */
+	umask(old_mask);
+
+/* move the server name into the argument to be passed */
+	server_args[0] = process_name;
+	server_args[1] = NULL;
+
+	do {
+		int ret_code;
+
+		gds__log("%s: guardian starting %s\n",
+				 prog_name, SUPER_SERVER_BINARY);
+		child_pid = UTIL_start_process(SUPER_SERVER_BINARY, server_args);
+		if (child_pid == -1) {
+			/* could not fork the server */
+			gds__log("%s: guardian could not start %s\n", prog_name,
+					 server_args[1] ? server_args[1] : SUPER_SERVER_BINARY);
+			ib_fprintf(ib_stderr, "%s: Could not start %s\n", prog_name,
+					   server_args[1] ? server_args[1] : SUPER_SERVER_BINARY);
+			UTIL_ex_unlock(fd_guard);
+			exit(-4);
+		}
+
+		/* wait for child to die, and evaluate exit status */
+		ret_code = UTIL_wait_for_child(child_pid);
+		if (ret_code != NORMAL_EXIT) {
+			/* check for startup error */
+			if (ret_code == STARTUP_ERROR) {
+				gds__log("%s: %s terminated due to startup error (%d)\n",
+						 prog_name, server_args[1] ? server_args[1] :
+						 SUPER_SERVER_BINARY, ret_code);
+				if (option == IGNORE) {
+					gds__log
+						("%s: %s terminated due to startup error (%d)\n Trying again\n",
+						 prog_name,
+						 server_args[1] ? server_args[1] :
+						 SUPER_SERVER_BINARY, ret_code);
+
+					done = FALSE;	/* Try it again, Sam (even if it is a startup error) FSG 8.11.2000 */
+				}
+				else {
+					gds__log("%s: %s terminated due to startup error (%d)\n",
+							 prog_name, server_args[1] ? server_args[1] :
+							 SUPER_SERVER_BINARY, ret_code);
+
+					done = TRUE;	/* do not restart we have a startup problem */
+				}
+			}
+			else {
+				gds__log("%s: %s terminated abnormally (%d)\n", prog_name,
+						 server_args[1] ? server_args[1] :
+						 SUPER_SERVER_BINARY, ret_code);
+				if (option == FOREVER || option == IGNORE)
+					done = FALSE;
+			}
+		}
+		else {
+			/* Normal shutdown - eg: via ibmgr - don't restart the server */
+			gds__log("%s: %s normal shutdown.\n", prog_name,
+					 server_args[1] ? server_args[1] : SUPER_SERVER_BINARY);
+			done = TRUE;
+		}
+	} while (!done);
+
+	UTIL_ex_unlock(fd_guard);
+	exit(0);
+}								/* main */
diff --git a/src/utilities/ibmgr.cpp b/src/utilities/ibmgr.cpp
new file mode 100644
index 0000000000..fced9b1e5c
--- /dev/null
+++ b/src/utilities/ibmgr.cpp
@@ -0,0 +1,909 @@
+/*
+ *
+ *	PROGRAM:	InterBase server manager
+ *	MODULE:		ibmgr.c
+ *	DESCRIPTION:	Main routine and parser
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: ibmgr.cpp,v 1.1.1.1 2001-05-23 13:26:41 tamlin Exp $
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include <pwd.h>
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../utilities/ibmgr.h"
+#include "../utilities/ibmgrswi.h"
+#include "../jrd/license.h"
+#include "../utilities/srvrmgr_proto.h"
+
+
+#define MAXARGS		20			/* max number of args allowed on command line */
+#define MAXSTUFF	1000		/* longest interactive command line */
+
+
+/* Codes returned by get_switchesi()
+   SUCCESS is defined in common.h
+*/
+#define ERR_SYNTAX	(-1)
+#define ERR_OTHER	(-2)
+
+
+/* Codes returned by parse_cmd_line()
+   SUCCESS is defined in common.h
+*/
+#define ACT_NONE	(-1)
+#define ACT_QUIT	1
+#define ACT_PROMPT	2
+
+static void copy_str_upper(TEXT *, TEXT *);
+static int get_line(int *, SCHAR **, TEXT *);
+static SSHORT get_switches(int, TEXT **, IN_SW_TAB, IBMGR_DATA *, BOOLEAN *);
+static SSHORT parse_cmd_line(int, TEXT **);
+static void print_config(void);
+static void print_help(void);
+
+
+static IBMGR_DATA ibmgr_data;
+
+
+#ifdef NETWARE_386
+int main_ibmgr( char **argv)
+#else
+
+int CLIB_ROUTINE main( int argc, char **argv)
+#endif
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	If there is no command line, prompt for one, read it
+ *	and make an artificial argc/argv.   Otherwise, pass
+ *	the specified argc/argv to IBMGR_exec_line (see below).
+ *
+ **************************************/
+	int local_argc;
+	SCHAR *local_argv[MAXARGS];
+	TEXT stuff[MAXSTUFF];
+	TEXT msg[MSG_LEN];
+	TEXT *user = NULL, *password = NULL, *host = NULL;	/* pointers for getenv */
+	SSHORT ret;
+	struct passwd *pw;
+
+#ifdef NETWARE_386
+	int argc;
+	argc = argv[0];
+#endif
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+
+/* Let's see if we have something in
+   environment variables
+*/
+	user = getenv("ISC_USER");
+	password = getenv("ISC_PASSWORD");
+
+/* MMM - do not allow to change host now
+host = getenv ("ISC_HOST");
+*/
+
+/* Let's get a real user name. This info is used by
+   START server command. Because server is not running
+   we can not check the password, thus we require a
+   real user to be root or FIREBIRD_USER_NAME or
+   INTERBASE_USER_NAME or INTERBASE_USER_SHORT
+*/
+	if ((pw = getpwuid(getuid())) == NULL) {
+		ib_perror("getpwuid");
+		SRVRMGR_msg_get(MSG_GETPWFAIL, msg);
+		ib_fprintf(OUTFILE, "%s\n", msg);
+		exit(FINI_ERROR);
+	}
+
+	strcpy(ibmgr_data.real_user, pw->pw_name);
+
+	if (!strcmp(pw->pw_name, "root") ||
+		!strcmp(pw->pw_name, FIREBIRD_USER_NAME) ||
+		!strcmp(pw->pw_name, INTERBASE_USER_NAME) ||
+		!strcmp(pw->pw_name, INTERBASE_USER_SHORT))
+			strcpy(ibmgr_data.user, SYSDBA_USER_NAME);
+	else
+		copy_str_upper(ibmgr_data.user, pw->pw_name);
+
+
+	if (user)
+		copy_str_upper(ibmgr_data.user, user);
+
+	if (password)
+		strcpy(ibmgr_data.password, password);
+	else
+		ibmgr_data.password[0] = '\0';
+
+	if (host)
+		strcpy(ibmgr_data.host, host);
+	else
+		strcpy(ibmgr_data.host, "localhost");
+
+
+/* Shutdown is not in progress and we are not attached to service yet.
+   But obviously we will need attachment. 
+*/
+	ibmgr_data.shutdown = FALSE;
+	ibmgr_data.attached = NULL;
+	ibmgr_data.reattach |= (REA_HOST | REA_USER | REA_PASSWORD);
+
+
+
+
+/* Special case a solitary -z switch.
+   Print the version and then drop into prompt mode.
+*/
+	if (argc == 2 &&
+		*argv[1] == '-' && (argv[1][1] == 'Z' || argv[1][1] == 'z')) {
+		parse_cmd_line(argc, argv);
+		argc--;
+	}
+
+	if (argc > 1) {
+		ret = parse_cmd_line(argc, argv);
+		if (ret == SUCCESS) {
+			ret = SRVRMGR_exec_line(&ibmgr_data);
+			if (ret) {
+				SRVRMGR_msg_get(ret, msg);
+				ib_fprintf(OUTFILE, "%s\n", msg);
+			}
+/* We also need to check the shutdown flag here (if operation was
+   -shut -[noat|notr]) and, depending on what we want to do, either
+   wait here on some sort of a shutdown event, or go to the
+   prompt mode
+*/
+			SRVRMGR_cleanup(&ibmgr_data);
+			exit(FINI_OK);
+		}
+		else if (ret != ACT_PROMPT)
+			exit(FINI_OK);
+	}
+
+	for (;;) {
+		if (get_line(&local_argc, local_argv, stuff))
+			break;
+		if (local_argc > 1) {
+			ret = parse_cmd_line(local_argc, local_argv);
+			if (ret == ACT_QUIT)
+				break;
+			if (ret == SUCCESS) {
+				ret = SRVRMGR_exec_line(&ibmgr_data);
+				if (ret) {
+					SRVRMGR_msg_get(ret, msg);
+					ib_fprintf(OUTFILE, "%s\n", msg);
+				}
+			}
+		}
+	}
+	SRVRMGR_cleanup(&ibmgr_data);
+	exit(FINI_OK);
+}
+
+
+static get_line( int *argc, SCHAR ** argv, TEXT * stuff)
+{
+/**************************************
+ *
+ *	g e t _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read the current line and put its pieces into an argc/argv
+ *	structure.   Reads a max of MAXARGS - 1 pieces (argv [0] is
+ *	unused), and a max of MAXSTUFF characters, at which point
+ *
+ **************************************/
+	USHORT count;
+	TEXT *cursor, c;
+	BOOLEAN first;
+	TEXT msg[MSG_LEN];
+
+	SRVRMGR_msg_get(MSG_PROMPT, msg);
+	ib_printf("%s ", msg);		/* "IBMGR> " */
+/*
+if (sw_service_gsec)
+    ib_putc ('\001', ib_stdout);
+*/
+	ib_fflush(ib_stdout);
+	*argc = 1;
+	cursor = stuff;
+	count = MAXSTUFF - 1;
+	first = TRUE;
+
+/* for each input character, if it's white space (or any non-printable,
+   non-newline for that matter), ignore it; if it's a newline, we're
+   done; otherwise, put it in the current argument */
+
+	while (*argc < MAXARGS && count > 0) {
+		c = ib_getc(ib_stdin);
+		if (c > ' ' && c <= '~') {
+			/* note that the first argument gets a '-' appended to the front to fool
+			   the switch checker into thinking it came from the command line */
+
+			for (argv[(*argc)++] = cursor; count > 0; count--) {
+				if (first) {
+					first = FALSE;
+					if (c != '?') {
+						*cursor++ = '-';
+						count--;
+					}
+				}
+				*cursor++ = c;
+				c = ib_getc(ib_stdin);
+				if (c <= ' ' || c > '~')
+					break;
+			}
+			*cursor++ = '\0';
+			count--;
+		}
+		if (c == '\n')
+			break;
+		if (c == EOF) {
+			if (SYSCALL_INTERRUPTED(errno)) {
+				errno = 0;
+				continue;
+			}
+			else
+				return TRUE;
+		}
+	}
+
+	*cursor = '\0';
+	return FALSE;
+}
+
+
+static SSHORT get_switches(
+						   int argc,
+						   TEXT ** argv,
+						   IN_SW_TAB in_sw_table,
+						   IBMGR_DATA * ibmgr_data, BOOLEAN * quitflag)
+{
+/**************************************
+ *
+ *	g e t _ s w i t c h e s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the input line arguments.
+ *	Returns: SUCCESS  if success
+ *		 ERR_SYNTAX  in case of syntax error.
+ *		 ERR_OTHER  non-syntax error.
+ *
+ **************************************/
+	TEXT *p, *q, *string, msg[MSG_LEN];
+	IN_SW_TAB in_sw_tab;
+	USHORT in_sw;
+	USHORT last_sw, sw_version;
+	int l;
+	SSHORT err_msg_no;
+	BOOLEAN any_switches;
+
+
+
+/* Look at each argument. It's either a switch or a parameter.
+   parameters must always follow a switch, but not all switches
+   need parameters.
+*/
+	*quitflag = FALSE;
+	last_sw = IN_SW_IBMGR_0;
+	sw_version = FALSE;
+	for (--argc; argc > 0; argc--) {
+		string = *++argv;
+		if (*string == '?')
+			ibmgr_data->operation = OP_HELP;
+		else if (*string != '-') {
+			/* this is not a switch, so it must be a parameter for
+			   the previous switch, if any
+			 */
+			switch (last_sw) {
+			case IN_SW_IBMGR_POOL:
+				if (strlen(string) >= MAXPATHLEN) {
+					SRVRMGR_msg_get(MSG_FLNMTOOLONG, msg);
+					ib_fprintf(OUTFILE, "%s\n", msg);
+					return ERR_SYNTAX;
+				}
+				strcpy(ibmgr_data->print_file, string);
+				break;
+
+			case IN_SW_IBMGR_HOST:
+
+				/* If the name of the host is the same we are
+				   currently attached to, do nothing
+
+				   MMM - it has to be more sophisticated check
+				   against compete host name including domain
+				   and/or network addreass, but... May be later
+				 */
+				if (strcmp(ibmgr_data->host, string)) {
+					strcpy(ibmgr_data->host, string);
+					ibmgr_data->reattach |= REA_HOST;
+				}
+				break;
+
+			case IN_SW_IBMGR_PASSWORD:
+
+				/* If the password is the same, do nothing
+				 */
+				if (strcmp(ibmgr_data->password, string)) {
+					strcpy(ibmgr_data->password, string);
+					ibmgr_data->reattach |= REA_PASSWORD;
+				}
+				break;
+
+			case IN_SW_IBMGR_USER:
+
+				/* MMM - we need to compare new entered user
+				   with one we already have and do not set the
+				   reattach flag if they are the same
+				 */
+				copy_str_upper(ibmgr_data->user, string);
+				if (strlen(ibmgr_data->user) > 127) {
+					SRVRMGR_msg_get(MSG_INVUSER, msg);
+					ib_fprintf(OUTFILE, "%s\n", msg);
+					return ERR_SYNTAX;
+				}
+				ibmgr_data->reattach |= REA_USER;
+				break;
+
+			case IN_SW_IBMGR_0:
+				SRVRMGR_msg_get(MSG_INVPAR, msg);
+				ib_fprintf(OUTFILE, "%s\n", msg);
+				return ERR_SYNTAX;
+
+				/* The following switches do not take any parameters
+				 */
+			case IN_SW_IBMGR_START:
+			case IN_SW_IBMGR_ONCE:
+			case IN_SW_IBMGR_FOREVER:
+			case IN_SW_IBMGR_SIGNORE:
+			case IN_SW_IBMGR_SHUT:
+			case IN_SW_IBMGR_NOW:
+			case IN_SW_IBMGR_NOAT:
+			case IN_SW_IBMGR_NOTR:
+			case IN_SW_IBMGR_IGNORE:
+			case IN_SW_IBMGR_SET:
+			case IN_SW_IBMGR_SHOW:
+			case IN_SW_IBMGR_QUIT:
+			case IN_SW_IBMGR_HELP:
+			case IN_SW_IBMGR_Z:
+				SRVRMGR_msg_get(MSG_SWNOPAR, msg);
+				ib_fprintf(OUTFILE, "%s\n", msg);
+				return ERR_SYNTAX;
+
+			default:
+#ifdef DEV_BUILD
+				ib_fprintf(OUTFILE,
+						   "ASSERT: file %s line %ld: last_sw = %d\n",
+						   __FILE__, __LINE__, last_sw);
+#endif
+				;
+			}
+			last_sw = IN_SW_IBMGR_0;
+		}
+		else {
+			/* iterate through the switch table, looking for matches
+			 */
+			in_sw = IN_SW_IBMGR_0;
+			for (in_sw_tab = in_sw_table; q = in_sw_tab->in_sw_name;
+				 in_sw_tab++) {
+				p = string + 1;
+
+				/* handle orphaned hyphen case
+				 */
+				if (!*p--)
+					break;
+
+				/* compare switch to switch name in table
+				 */
+				l = 0;
+				while (*p) {
+					if (!*++p) {
+						if (l >= in_sw_tab->in_sw_min_length)
+							in_sw = in_sw_tab->in_sw;
+						else
+							in_sw = IN_SW_IBMGR_AMBIG;
+					}
+					if (UPPER(*p) != *q++)
+						break;
+					l++;
+				}
+
+				/* end of input means we got a match.  stop looking
+				 */
+				if (!*p)
+					break;
+			}
+
+			/* If the previous switch requires parameters and we are
+			   here, this is an error
+			 */
+			switch (last_sw) {
+			case IN_SW_IBMGR_PASSWORD:
+			case IN_SW_IBMGR_USER:
+			case IN_SW_IBMGR_HOST:
+			case IN_SW_IBMGR_POOL:
+				SRVRMGR_msg_get(MSG_REQPAR, msg);
+				ib_fprintf(OUTFILE, "%s\n", msg);
+				return ERR_SYNTAX;
+			}
+
+			switch (in_sw) {
+			case IN_SW_IBMGR_START:
+			case IN_SW_IBMGR_SHUT:
+			case IN_SW_IBMGR_SET:
+			case IN_SW_IBMGR_SHOW:
+			case IN_SW_IBMGR_QUIT:
+			case IN_SW_IBMGR_HELP:
+			case IN_SW_IBMGR_PRINT:
+
+				/* Only one operation can be specified on
+				   command line
+				 */
+				if (ibmgr_data->operation) {
+					SRVRMGR_msg_get(MSG_OPSPEC, msg);
+					ib_fprintf(OUTFILE, "%s\n", msg);
+					return ERR_SYNTAX;
+				}
+				switch (in_sw) {
+				case IN_SW_IBMGR_START:
+					ibmgr_data->operation = OP_START;
+					break;
+
+				case IN_SW_IBMGR_SHUT:
+					ibmgr_data->operation = OP_SHUT;
+					break;
+
+				case IN_SW_IBMGR_SET:
+					ibmgr_data->operation = OP_SET;
+					break;
+
+				case IN_SW_IBMGR_SHOW:
+					ibmgr_data->operation = OP_SHOW;
+					break;
+
+				case IN_SW_IBMGR_QUIT:
+					ibmgr_data->operation = OP_QUIT;
+					*quitflag = TRUE;
+					break;
+
+				case IN_SW_IBMGR_HELP:
+					ibmgr_data->operation = OP_HELP;
+					break;
+
+				case IN_SW_IBMGR_PRINT:
+					ibmgr_data->operation = OP_PRINT;
+					break;
+				}
+				break;
+
+			case IN_SW_IBMGR_PASSWORD:
+			case IN_SW_IBMGR_USER:
+			case IN_SW_IBMGR_HOST:
+
+				/* The above switches are separate case: they can be
+				   used as operation or parameter switches. If an 
+				   operation has already been specified, we assume it
+				   is a switch else we set an implied operation type
+				   OP_SET.
+				   We also can not change any the above parameters if
+				   a server shutdown is in progress.
+				 */
+				if (ibmgr_data->shutdown) {
+					SRVRMGR_msg_get(MSG_SHUTDOWN, msg);
+					ib_fprintf(OUTFILE, "%s\n", msg);
+					SRVRMGR_msg_get(MSG_CANTCHANGE, msg);
+					ib_fprintf(OUTFILE, "%s\n", msg);
+					return ERR_OTHER;
+				}
+				if (!ibmgr_data->operation)
+					ibmgr_data->operation = OP_SET;
+
+				/* Check if any of these switches has been already
+				   specified. Note that change in any of these
+				   psrameters will require new attachment to service
+				 */
+				err_msg_no = 0;
+				switch (in_sw) {
+				case IN_SW_IBMGR_HOST:
+					if (ibmgr_data->par_entered & ENT_HOST) {
+						err_msg_no = MSG_INVSWSW;
+						break;
+					}
+					ibmgr_data->par_entered |= ENT_HOST;
+					break;
+
+				case IN_SW_IBMGR_PASSWORD:
+					if (ibmgr_data->par_entered & ENT_PASSWORD) {
+						err_msg_no = MSG_INVSWSW;
+						break;
+					}
+					ibmgr_data->par_entered |= ENT_PASSWORD;
+					break;
+
+				case IN_SW_IBMGR_USER:
+					if (ibmgr_data->par_entered & ENT_USER) {
+						err_msg_no = MSG_INVSWSW;
+						break;
+					}
+					ibmgr_data->par_entered |= ENT_USER;
+					break;
+				}
+				if (err_msg_no) {
+					SRVRMGR_msg_get(err_msg_no, msg);
+					ib_fprintf(OUTFILE, "%s\n", msg);
+					return ERR_SYNTAX;
+				}
+				break;
+
+			case IN_SW_IBMGR_ONCE:
+			case IN_SW_IBMGR_FOREVER:
+			case IN_SW_IBMGR_SIGNORE:
+			case IN_SW_IBMGR_NOW:
+			case IN_SW_IBMGR_NOAT:
+			case IN_SW_IBMGR_NOTR:
+			case IN_SW_IBMGR_IGNORE:
+			case IN_SW_IBMGR_POOL:
+
+				/* These switches are operation modifiers or 
+				   suboperations. Each of them makes sense only
+				   in a contex of certain operation. So, let's
+				   make sure it is a right contex.
+				   But first let's see if any operation has
+				   been specified
+				 */
+				if (!ibmgr_data->operation) {
+					SRVRMGR_msg_get(MSG_NOOPSPEC, msg);
+					ib_fprintf(OUTFILE, "%s\n", msg);
+					return ERR_SYNTAX;
+				}
+
+				/* if a suboperation has already been specified
+				   get the hell out of here.
+				 */
+				if (ibmgr_data->suboperation) {
+					SRVRMGR_msg_get(MSG_INVSWSW, msg);
+					ib_fprintf(OUTFILE, "%s\n", msg);
+					return ERR_SYNTAX;
+				}
+				err_msg_no = 0;
+				switch (in_sw) {
+				case IN_SW_IBMGR_ONCE:
+				case IN_SW_IBMGR_FOREVER:
+				case IN_SW_IBMGR_SIGNORE:
+					if (ibmgr_data->operation != OP_START) {
+						err_msg_no = MSG_INVSWOP;
+						break;
+					}
+					if (in_sw == IN_SW_IBMGR_ONCE)
+						ibmgr_data->suboperation = SOP_START_ONCE;
+					else if (in_sw == IN_SW_IBMGR_SIGNORE)
+						ibmgr_data->suboperation = SOP_START_SIGNORE;
+					else
+						ibmgr_data->suboperation = SOP_START_FOREVER;
+					break;
+
+				case IN_SW_IBMGR_NOW:
+				case IN_SW_IBMGR_NOAT:
+				case IN_SW_IBMGR_NOTR:
+				case IN_SW_IBMGR_IGNORE:
+					if (ibmgr_data->operation != OP_SHUT) {
+						err_msg_no = MSG_INVSWOP;
+						break;
+					}
+					if (in_sw == IN_SW_IBMGR_NOW)
+						ibmgr_data->suboperation = SOP_SHUT_NOW;
+					else if (in_sw == IN_SW_IBMGR_NOAT)
+						ibmgr_data->suboperation = SOP_SHUT_NOAT;
+					else if (in_sw == IN_SW_IBMGR_NOTR)
+						ibmgr_data->suboperation = SOP_SHUT_NOTR;
+					else
+						ibmgr_data->suboperation = SOP_SHUT_IGN;
+					break;
+
+				case IN_SW_IBMGR_POOL:
+					if (ibmgr_data->operation != OP_PRINT) {
+						err_msg_no = MSG_INVSWOP;
+						break;
+					}
+					ibmgr_data->suboperation = SOP_PRINT_POOL;
+					break;
+				}
+				if (err_msg_no) {
+					SRVRMGR_msg_get(err_msg_no, msg);
+					ib_fprintf(OUTFILE, "%s\n", msg);
+					return ERR_SYNTAX;
+				}
+				break;
+
+			case IN_SW_IBMGR_Z:
+
+				/* This is also a separate case - it could be
+				   operation switch or just switch. Also, 
+				   does not matter how many times version switch
+				   was specified, we output version only once
+				 */
+				if (!ibmgr_data->operation)
+					ibmgr_data->operation = OP_VERSION;
+				if (!sw_version) {
+					SRVRMGR_msg_get(MSG_VERSION, msg);
+					ib_fprintf(OUTFILE, "%s %s\n", msg, GDS_VERSION);
+				}
+				break;
+
+			case IN_SW_IBMGR_0:
+				SRVRMGR_msg_get(MSG_INVSW, msg);
+				ib_fprintf(OUTFILE, "%s\n", msg);
+				return ERR_SYNTAX;
+
+			case IN_SW_IBMGR_AMBIG:
+				SRVRMGR_msg_get(MSG_AMBSW, msg);
+				ib_fprintf(OUTFILE, "%s\n", msg);
+				return ERR_SYNTAX;
+
+			default:
+#ifdef DEV_BUILD
+				ib_fprintf(OUTFILE, "ASSERT: file %s line %ld: in_sw = %d\n",
+						   __FILE__, __LINE__, in_sw);
+#endif
+				;
+			}
+			last_sw = in_sw;
+		}
+
+		if (*quitflag)
+			break;
+	}
+
+/* If the previous switch requires parameters and we are
+   here, this is an error
+*/
+	switch (last_sw) {
+	case IN_SW_IBMGR_PASSWORD:
+	case IN_SW_IBMGR_USER:
+	case IN_SW_IBMGR_HOST:
+	case IN_SW_IBMGR_PRINT:
+	case IN_SW_IBMGR_POOL:
+		SRVRMGR_msg_get(MSG_REQPAR, msg);
+		ib_fprintf(OUTFILE, "%s\n", msg);
+		return ERR_SYNTAX;
+	}
+
+#ifdef DEV_BUILD
+	if (!ibmgr_data->operation)
+		ib_fprintf(OUTFILE,
+				   "ASSERT: file %s line %ld: no operation has been specified\n",
+				   __FILE__, __LINE__);
+#endif
+
+	return SUCCESS;
+}
+
+
+static void print_config(void)
+{
+/**************************************
+ *
+ *	p r i n t _ c o n f i g
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	ib_fprintf(OUTFILE, "\nHost:\t%s\nUser:\t%s\n\n",
+			   ibmgr_data.host, ibmgr_data.user);
+#ifdef DEBUG
+	ib_fprintf(OUTFILE, "\nReal user:\t%s\nPassword:\t%s\n\n",
+			   ibmgr_data.real_user, ibmgr_data.password);
+	ib_fprintf(OUTFILE,
+			   "Attached:\t%s\nNew attach:\t%s %s %s\nShutdown:\t%s\n\n",
+			   ibmgr_data.attached ? "yes" : "no",
+			   ibmgr_data.reattach & REA_HOST ? "HOST" : "no",
+			   ibmgr_data.reattach & REA_PASSWORD ? "PASSWORD" : "no",
+			   ibmgr_data.reattach & REA_USER ? "USER" : "no",
+			   ibmgr_data.shutdown ? "yes" : "no");
+#endif
+}
+
+
+static void print_help(void)
+{
+/**************************************
+ *
+ *	p r i n t _ h e l p
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TEXT msg[MSG_LEN];
+	TEXT msg2[MSG_LEN];
+
+	ib_fprintf(OUTFILE, "\n\n");
+	ib_fprintf(OUTFILE,
+			   "Usage:		ibmgr -command [-option [parameter]]\n\n");
+	ib_fprintf(OUTFILE, "or		ibmgr<RETURN>\n");
+	ib_fprintf(OUTFILE, "		IBMGR> command [-option [parameter]]\n\n");
+	ib_fprintf(OUTFILE, "		shut  [-now]		shutdown server\n");
+	ib_fprintf(OUTFILE, "		show			show host and user\n");
+	ib_fprintf(OUTFILE, "		user <user_name>	set user name\n");
+	ib_fprintf(OUTFILE, "		password <password>	set DBA password\n");
+	ib_fprintf(OUTFILE, "		help			prints help text\n");
+	ib_fprintf(OUTFILE, "		quit			quit prompt mode\n\n");
+	ib_fprintf(OUTFILE,
+			   "Command switches 'user' and 'password' can also be used\n");
+	ib_fprintf(OUTFILE,
+			   "as an option switches for commands like start or shut.\n");
+	ib_fprintf(OUTFILE, "For example, to shutdown server you can: \n\n");
+	ib_fprintf(OUTFILE, "ibmgr -shut -password <password>\n\n");
+	ib_fprintf(OUTFILE, "or\n\n");
+	ib_fprintf(OUTFILE, "ibmgr<RETURN>\n");
+	ib_fprintf(OUTFILE, "IBMGR> shut -password <password>\n\n");
+	ib_fprintf(OUTFILE, "or\n\n");
+	ib_fprintf(OUTFILE, "ibmgr<RETURN>\n");
+	ib_fprintf(OUTFILE, "IBMGR> password <password>\n");
+	ib_fprintf(OUTFILE, "IBMGR> shut\n\n\n");
+}
+
+
+static SSHORT parse_cmd_line( int argc, TEXT ** argv)
+{
+/**************************************
+ *
+ *	p a r s e _ c m d _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parses the command line. After it was parsed
+ *	executes commands that do require server access
+ *	(help, show, etc.) and checks some conditions
+ *	for other command.
+ *
+ *	returns:
+ *
+ *	    SUCCESS   on normal completion, 
+ *	    ACT_QUIT  if user chooses to quit
+ *	    ACT_PROMT used by main() to switch into
+ *	              the prompt mode
+ *	    ACT_NONE  on error or
+ *	              if no further actions necessary
+ *	              (like help, version, etc.)
+ *
+ **************************************/
+	TEXT msg[MSG_LEN];
+	BOOLEAN quitflag = FALSE;
+	SSHORT ret;
+
+	ibmgr_data.operation = OP_NONE;
+	ibmgr_data.suboperation = SOP_NONE;
+	ibmgr_data.par_entered = 0;
+
+	ret =
+		get_switches(argc, argv, &ibmgr_in_sw_table, &ibmgr_data, &quitflag);
+	if (ret != SUCCESS) {
+		if (ret == ERR_SYNTAX) {
+			SRVRMGR_msg_get(MSG_SYNTAX, msg);
+			ib_fprintf(OUTFILE, "%s\n", msg);
+		}
+		return ACT_NONE;
+	}
+	switch (ibmgr_data.operation) {
+	case OP_SHUT:
+		if (strcmp(ibmgr_data.user, SYSDBA_USER_NAME)) {
+			SRVRMGR_msg_get(MSG_NOPERM, msg);
+			ib_fprintf(OUTFILE, "%s\n", msg);
+			ret = ACT_NONE;
+			break;
+		}
+		/* The only allowed suboperation when shutdown
+		   has been started is to IGNORE it.
+		 */
+		if (ibmgr_data.shutdown && ibmgr_data.suboperation != SOP_SHUT_IGN) {
+			SRVRMGR_msg_get(MSG_SHUTDOWN, msg);
+			ib_fprintf(OUTFILE, "%s\n", msg);
+			SRVRMGR_msg_get(MSG_CANTSHUT, msg);
+			ib_fprintf(OUTFILE, "%s\n", msg);
+			ret = ACT_NONE;
+		}
+		break;
+
+	case OP_START:
+		if ((strcmp(ibmgr_data.real_user, "root") &&
+			 strcmp(ibmgr_data.real_user, FIREBIRD_USER_NAME) &&
+			 strcmp(ibmgr_data.real_user, INTERBASE_USER_NAME) &&
+			 strcmp(ibmgr_data.real_user, INTERBASE_USER_SHORT)) ||
+			strcmp(ibmgr_data.user, SYSDBA_USER_NAME)) {
+			SRVRMGR_msg_get(MSG_NOPERM, msg);
+			ib_fprintf(OUTFILE, "%s\n", msg);
+			ret = ACT_NONE;
+			break;
+		}
+		break;
+
+	case OP_HELP:
+		print_help();
+		ret = ACT_NONE;
+		break;
+
+	case OP_SHOW:
+		print_config();
+		ret = ACT_NONE;
+		break;
+
+	case OP_VERSION:
+		ret = ACT_NONE;
+		break;
+
+	case OP_SET:
+		ret = ACT_PROMPT;
+		break;
+	}
+
+	if (quitflag)
+		if (ibmgr_data.shutdown) {
+			SRVRMGR_msg_get(MSG_SHUTDOWN, msg);
+			ib_fprintf(OUTFILE, "%s\n", msg);
+			SRVRMGR_msg_get(MSG_CANTQUIT, msg);
+			ib_fprintf(OUTFILE, "%s\n", msg);
+			ret = ACT_NONE;
+		}
+		else
+			ret = ACT_QUIT;
+
+	return ret;
+}
+static void copy_str_upper( TEXT * str1, TEXT * str2)
+{
+/**************************************
+ *
+ *	c o p y _ s t r _ u p p e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copies string str2 to address str1
+ *	converting str2 to upper case
+ *
+ **************************************/
+
+	for (; *str2; str1++, str2++)
+		*str1 = UPPER(*str2);
+
+	*str1 = '\0';
+}
diff --git a/src/utilities/ibmgr.h b/src/utilities/ibmgr.h
new file mode 100644
index 0000000000..aca7950e8d
--- /dev/null
+++ b/src/utilities/ibmgr.h
@@ -0,0 +1,143 @@
+/*
+ *	PROGRAM:	InterBase server manager
+ *	MODULE:		ibmgr.h
+ *	DESCRIPTION:	Header file for the IBMGR program
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: ibmgr.h,v 1.1.1.1 2001-05-23 13:26:42 tamlin Exp $
+ */
+
+#ifndef _UTILITIES_IBMGR_H_
+#define _UTILITIES_IBMGR_H_
+
+
+#if (defined WIN_NT)
+#include <io.h>
+#endif
+
+#define OUTFILE			ib_stderr
+
+#define SYSDBA_USER_NAME	"SYSDBA"
+#define FIREBIRD_USER_NAME	"firebird"
+#define INTERBASE_USER_NAME	"interbase"
+#define INTERBASE_USER_SHORT	"interbas"
+#define SERVER_GUARDIAN		"bin/ibguard"
+#define USER_INFO_NAME		"isc4.gdb"
+
+#define MSG_FAC		18
+#define MSG_LEN		128
+
+ 
+/* Basic operation definitions
+*/
+#define OP_NONE			0
+#define OP_START		1
+#define OP_SHUT			2
+#define OP_SET			3
+#define OP_SHOW			4
+#define OP_QUIT			5
+#define OP_HELP			6
+#define OP_VERSION		7
+#define OP_PRINT		8
+
+
+/* Suboperation definitions
+*/
+#define SOP_NONE		0
+#define SOP_START_ONCE		1
+#define SOP_START_FOREVER	2
+#define SOP_SHUT_NOW		3
+#define SOP_SHUT_NOAT		4
+#define SOP_SHUT_NOTR		5
+#define SOP_SHUT_IGN		6
+#define SOP_PRINT_POOL		7
+#define SOP_START_SIGNORE       8
+/* Flags that are used in "par_entered" field of the IBMGR_DATA.
+*/
+#define ENT_HOST	0x1
+#define ENT_PASSWORD	0x2
+#define ENT_USER	0x4
+
+
+/* Flags that are used in "reattach" field of the IBMGR_DATA.
+   Note: "par_entered" field is cleared each time we are going
+	 to get a new command line, while the "reattach" field
+	 is cleared only after new attachment to service is made
+*/
+#define REA_HOST	ENT_HOST
+#define REA_PASSWORD	ENT_PASSWORD
+#define REA_USER	ENT_USER
+
+/* structure to hold all information
+*/
+typedef struct ibmgr_data_t {
+
+    USHORT		operation;	/* what's to be done */
+    USHORT		suboperation;	/* suboperation */
+    USHORT		par_entered;	/* parameters that were entered */
+    TEXT		host[128];	/* server's host */
+    TEXT		user[128];	/* the user name */
+    TEXT		real_user[128];	/* the os user name */
+    TEXT		password[32];	/* user's passwd */
+    BOOLEAN		shutdown;	/* shutdown is in progress */
+    USHORT		reattach;	/* need to reattach because host,
+					   passwd or user has been changed */
+    isc_svc_handle	attached;	/* !=NULL if we attached to service */
+    TEXT		print_file[MAXPATHLEN];/* Dump file name */
+
+} IBMGR_DATA;
+
+	
+/* Messages tag definitions
+*/
+#define MSG_PROMPT	1	/* "IBMGR> "  (the prompt) */
+#define MSG_VERSION	2	/* ibmgr version */
+
+#define MSG_OPSPEC	5	/* operation already specified */
+#define MSG_NOOPSPEC	6	/* no operation specified */
+#define MSG_INVSW	7	/* invalid switch */
+#define MSG_INVOP	8	/* invalid operation */
+#define MSG_INVSWSW	9	/* invalid switch combination */
+#define MSG_INVSWOP	10	/* invalid operation/switch combination */
+#define MSG_AMBSW	11	/* ambiguous switch */
+#define MSG_INVPAR	12	/* invalid parameter, no switch specified */
+#define MSG_SWNOPAR	13	/* switch does not take any parameter */
+#define MSG_SHUTDOWN	14	/* shutdown is in progress */
+#define MSG_CANTSHUT	15	/* can not start another shutdown */
+#define MSG_CANTQUIT	16	/* can not quit ibmgr now */
+#define MSG_CANTCHANGE	17	/* can not change host, password or user */
+#define MSG_WARNPASS	18	/* warning: only 8 significant bytes of password used */
+#define MSG_INVUSER	19	/* invalid user (only 32 bytes allowed) */
+#define MSG_REQPAR	20	/* switch requires parameter */
+#define MSG_SYNTAX	21	/* syntax error in command line */
+
+#define MSG_GETPWFAIL	25	/* can not get password entry */
+#define MSG_ATTFAIL	26	/* can not attach to server */
+#define MSG_SSHUTFAIL	27	/* can not start server shutdown */
+#define MSG_SHUTOK	28	/* server shutdown completed */
+#define MSG_STARTERR	29	/* can not start server */
+#define MSG_STARTFAIL	30	/* can not start server */
+#define MSG_SRVUP	31	/* server is alreary running */
+#define MSG_SRVUPOK	32	/* server has been successfully started */
+#define MSG_NOPERM	33	/* no permissions to perform operation */
+#define MSG_PRPOOLFAIL	34	/* Failed to print pool info */
+#define MSG_PRPOOLOK	35	/* Print pool successfull */
+#define MSG_FLNMTOOLONG	36	/* FIle name too long */
+ 
+
+#endif /* _UTILITIES_IBMGR_H_ */
diff --git a/src/utilities/ibmgrswi.h b/src/utilities/ibmgrswi.h
new file mode 100644
index 0000000000..0a1283b205
--- /dev/null
+++ b/src/utilities/ibmgrswi.h
@@ -0,0 +1,96 @@
+/*
+ *	PROGRAM:	
+ *	MODULE:		ibmgrswi.h
+ *	DESCRIPTION:	ibmgr switches
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: ibmgrswi.h,v 1.1.1.1 2001-05-23 13:26:41 tamlin Exp $
+ */
+
+#ifndef _IBMGR_IBMGRSWI_H_
+#define _IBMGR_IBMGRSWI_H_
+
+#include "../jrd/common.h"
+
+/* Switch constants */
+#define IN_SW_IBMGR_0		0	/* not a known switch */
+#define IN_SW_IBMGR_START	1	/* start server */
+#define IN_SW_IBMGR_ONCE	2	/* start server once */
+#define IN_SW_IBMGR_FOREVER	3	/* start server, restart when it dies */
+#define IN_SW_IBMGR_SHUT	4	/* shutdown server */
+#define IN_SW_IBMGR_NOW		5	/* immidiate shutdown */
+#define IN_SW_IBMGR_NOAT	6	/* no new attachments */
+#define IN_SW_IBMGR_NOTR	7	/* no new transaction */
+#define IN_SW_IBMGR_IGNORE	8	/* do not shutdown */
+#define IN_SW_IBMGR_PASSWORD	9	/* DB admin's password */
+#define IN_SW_IBMGR_USER	10	/* user's name */
+#define IN_SW_IBMGR_HOST	11	/* host where server's running */
+#define IN_SW_IBMGR_SET		12	/* sets host/user/password */
+#define IN_SW_IBMGR_SHOW	13	/* shows host/user/password */
+#define IN_SW_IBMGR_QUIT	14	/* exit command line interface */
+#define IN_SW_IBMGR_HELP	15	/* print help */
+#define IN_SW_IBMGR_Z		16	/* version */
+#define IN_SW_IBMGR_PRINT	17	/* Print Stats */
+#define IN_SW_IBMGR_POOL	18	/* Print pool */
+
+/* I have added this to let the user decide whether startup errors should 
+   stop ibguard from restating the server.
+   FSG 10.Nov.2000
+*/
+
+#define IN_SW_IBMGR_SIGNORE     19      /* start server, restart when it dies, even if it was a start up error */
+
+
+#define IN_SW_IBMGR_AMBIG	99	/* ambiguous switch */
+
+static struct in_sw_tab_t ibmgr_in_sw_table [] = {
+    IN_SW_IBMGR_START,		0,	"START",	0, 0, 0, FALSE,	0,	2,	NULL,   /* start server */
+    IN_SW_IBMGR_ONCE,		0,	"ONCE",		0, 0, 0, FALSE,	0,	1,	NULL,	/* start server once */
+    IN_SW_IBMGR_FOREVER,	0,	"FOREVER",	0, 0, 0, FALSE,	0,	1,	NULL,	/* restart when server dies */
+    IN_SW_IBMGR_SIGNORE,        0,      "SIGNORE",      0, 0, 0, FALSE, 0,      1,      NULL,   /* dito, ignore start up error */
+    IN_SW_IBMGR_SHUT,		0,	"SHUT",		0, 0, 0, FALSE,	0,	3,      NULL,   /* shutdown server */
+    IN_SW_IBMGR_NOW,		0,	"NOW",		0, 0, 0, FALSE,	0,	3,      NULL,   /* immidiate shutdown */
+
+/* The following switches should be activated when
+   appropriate functionality is implemented
+*/
+/*    IN_SW_IBMGR_NOAT,		0,	"NOAT",		0, 0, 0, FALSE,	0,	3,      NULL, *//* no new attachments */
+/*    IN_SW_IBMGR_NOTR,		0,	"NOTR",		0, 0, 0, FALSE,	0,	3,      NULL, *//* no new transaction */
+/*    IN_SW_IBMGR_IGNORE,	0,	"IGN",		0, 0, 0, FALSE,	0,	1,      NULL,  *//* do not shutdown */
+    IN_SW_IBMGR_PASSWORD,	0,	"PASSWORD",	0, 0, 0, FALSE,	0,	2,      NULL,	/* DB admin's password */
+    IN_SW_IBMGR_USER,		0,	"USER",		0, 0, 0, FALSE,	0,	1,      NULL,   /* user's name */
+
+/* We can shutdown any server, but can start only local
+   thus we do not allow to change host for time being
+*/
+/*    IN_SW_IBMGR_HOST,		0,	"HOST",		0, 0, 0, FALSE,	0,	2,      NULL, *//* where server's running */
+
+/* SET is an internal operation and should not be activated
+   (unless we want a user to use it
+*/
+/*    IN_SW_IBMGR_SET,		0,	"SET",		0, 0, 0, FALSE,	0,	2,	NULL,  *//* sets host/user/password */
+    IN_SW_IBMGR_SHOW,		0,	"SHOW",		0, 0, 0, FALSE,	0,	3,	NULL,	/* shows host/user/password */
+    IN_SW_IBMGR_QUIT,		0,	"QUIT",		0, 0, 0, FALSE,	0,	1,      NULL,	/* exit command line */
+    IN_SW_IBMGR_HELP,		0,	"HELP",		0, 0, 0, FALSE,	0,	2,      NULL,	/* print help */
+    IN_SW_IBMGR_Z,		0,	"Z",		0, 0, 0, FALSE,	0,	1,      NULL,	/* version */
+    IN_SW_IBMGR_PRINT,     	0,	"PRINT",	0, 0, 0, FALSE,	0,	2,      NULL,	/* Print stats */
+    IN_SW_IBMGR_POOL,     	0,	"POOL",		0, 0, 0, FALSE,	0,	2,      NULL,   /* Print pool */
+    IN_SW_IBMGR_0,		0,      NULL,		0, 0, 0, FALSE,	0,	0,	NULL	/* End of List */
+};
+
+#endif /* _IBMGR_IBMGRSWI_H_ */
diff --git a/src/utilities/install_nt.h b/src/utilities/install_nt.h
new file mode 100644
index 0000000000..ea9c1ecb7b
--- /dev/null
+++ b/src/utilities/install_nt.h
@@ -0,0 +1,60 @@
+/*
+ *	PROGRAM:	Windows NT installation utilities
+ *	MODULE:		install.h
+ *	DESCRIPTION:	Defines for Windows NT installation utilities
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _UTILITIES_INSTALL_NT_H_
+#define _UTILITIES_INSTALL_NT_H_
+
+#if (defined SUPERCLIENT || defined SUPERSERVER)
+#define REMOTE_SERVICE		"InterBaseServer"
+#define REMOTE_DISPLAY_NAME	"InterBase Server"
+#define REMOTE_EXECUTABLE	"bin\\ibserver"
+#define ISCGUARD_SERVICE	"InterBaseGuardian"
+#define GUARDIAN_MUTEX      "InterBaseGuardianMutex"
+/* Starting with 128 the service prams are user defined */
+#define SERVICE_CREATE_GUARDIAN_MUTEX 128
+#else
+#define REMOTE_SERVICE		"InterBaseRemoteService"
+#define REMOTE_DISPLAY_NAME	"InterBase Remote Service"
+#define REMOTE_EXECUTABLE	"bin\\ibremote"
+#endif
+#define REMOTE_DEPENDENCIES	"Tcpip\0\0"
+
+#define COMMAND_NONE		0
+#define COMMAND_INSTALL		1
+#define COMMAND_REMOVE		2
+#define COMMAND_START		3
+#define COMMAND_STOP		4
+#define COMMAND_CONFIG		5
+
+#define STARTUP_DEMAND		0
+#define STARTUP_AUTO		1
+
+#define DEFAULT_CLIENT		0
+#define NORMAL_PRIORITY		1
+#define HIGH_PRIORITY		2
+
+#define IB_SERVICE_ALREADY_DEFINED	100
+#define IB_SERVICE_RUNNING		101
+
+
+#endif /* _UTILITIES_INSTALL_NT_H_ */
diff --git a/src/utilities/install_reg.cpp b/src/utilities/install_reg.cpp
new file mode 100644
index 0000000000..f7c48f7560
--- /dev/null
+++ b/src/utilities/install_reg.cpp
@@ -0,0 +1,183 @@
+/*
+ *	PROGRAM:	Windows NT registry installation program
+ *	MODULE:		install_reg.c
+ *	DESCRIPTION:	Registry installation program
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <windows.h>
+#include "../jrd/common.h"
+#include "../jrd/license.h"
+#include "../utilities/install_nt.h"
+#include "../utilities/regis_proto.h"
+
+static USHORT reg_error(SLONG, TEXT *, HKEY);
+static void usage(void);
+
+static struct {
+	TEXT *name;
+	USHORT abbrev;
+	USHORT code;
+} commands[] = {
+"INSTALL", 1, COMMAND_INSTALL, "REMOVE", 1, COMMAND_REMOVE, NULL, 0, 0};
+
+
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Install or remove InterBase.
+ *
+ **************************************/
+	TEXT **end, *p, *q, *cmd, *directory;
+	USHORT sw_command, sw_version;
+	USHORT i, ret;
+	HKEY hkey_node;
+	SLONG status;
+
+	directory = NULL;
+	sw_command = COMMAND_NONE;
+	sw_version = FALSE;
+
+	end = argv + argc;
+	while (++argv < end)
+		if (**argv != '-') {
+			for (i = 0; cmd = commands[i].name; i++) {
+				for (p = *argv, q = cmd; *p && UPPER(*p) == *q; p++, q++);
+				if (!*p && commands[i].abbrev <= (USHORT) (q - cmd))
+					break;
+			}
+			if (!cmd) {
+				ib_printf("Unknown command \"%s\"\n", *argv);
+				usage();
+			}
+			sw_command = commands[i].code;
+			if (sw_command == COMMAND_INSTALL && ++argv < end)
+				directory = *argv;
+		}
+		else {
+			p = *argv + 1;
+			switch (UPPER(*p)) {
+			case 'Z':
+				sw_version = TRUE;
+				break;
+
+			default:
+				ib_printf("Unknown switch \"%s\"\n", p);
+				usage();
+			}
+		}
+
+	if (sw_version)
+		ib_printf("install version %s\n", GDS_VERSION);
+
+	if (sw_command == COMMAND_NONE ||
+		(!directory && sw_command == COMMAND_INSTALL) ||
+		(directory && sw_command != COMMAND_INSTALL))
+		usage();
+
+	hkey_node = HKEY_LOCAL_MACHINE;
+
+	switch (sw_command) {
+	case COMMAND_INSTALL:
+		ret = REGISTRY_install(hkey_node, directory, reg_error);
+		if (ret != SUCCESS)
+			ib_printf("InterBase has not been installed in the registry.\n");
+		else
+			ib_printf
+				("InterBase has been successfully installed in the registry.\n");
+		break;
+
+	case COMMAND_REMOVE:
+		ret = REGISTRY_remove(hkey_node, FALSE, reg_error);
+		if (ret != SUCCESS)
+			ib_printf("InterBase has not been deleted from the registry.\n");
+		else
+			ib_printf
+				("InterBase has been successfully deleted from the registry.\n");
+		break;
+	}
+
+	if (hkey_node != HKEY_LOCAL_MACHINE)
+		RegCloseKey(hkey_node);
+
+	exit((ret == SUCCESS) ? FINI_OK : FINI_ERROR);
+}
+
+
+static USHORT reg_error( SLONG status, TEXT * string, HKEY hkey)
+{
+/**************************************
+ *
+ *	r e g _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report an error and punt.
+ *
+ **************************************/
+	TEXT buffer[512];
+	SSHORT l;
+
+	if (hkey != NULL && hkey != HKEY_LOCAL_MACHINE)
+		RegCloseKey(hkey);
+
+	ib_printf("Error occurred during \"%s\"\n", string);
+
+	if (!(l = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,
+							NULL,
+							status,
+							GetUserDefaultLangID(),
+							buffer,
+							sizeof(buffer),
+							NULL)))
+			ib_printf("Windows NT error %d\n", status);
+	else
+		ib_printf("%s\n", buffer);
+
+	return FAILURE;
+}
+
+
+static void usage(void)
+{
+/**************************************
+ *
+ *	u s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	ib_printf("Usage:\n");
+	ib_printf("  instreg {install InterBase_directory} [-z]\n");
+	ib_printf("          {remove                     }\n");
+
+	exit(FINI_OK);
+}
diff --git a/src/utilities/install_svc.cpp b/src/utilities/install_svc.cpp
new file mode 100644
index 0000000000..711e3cffe8
--- /dev/null
+++ b/src/utilities/install_svc.cpp
@@ -0,0 +1,279 @@
+/*
+ *	PROGRAM:	Windows NT service control panel installation program
+ *	MODULE:		install_svc.c
+ *	DESCRIPTION:	Service control panel installation program
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <windows.h>
+#include "../jrd/common.h"
+#include "../jrd/license.h"
+#include "../utilities/install_nt.h"
+#include "../utilities/servi_proto.h"
+
+extern USHORT svc_error(SLONG, TEXT *, SC_HANDLE);
+static void usage(void);
+
+static struct {
+	TEXT *name;
+	USHORT abbrev;
+	USHORT code;
+} commands[] = {
+	"CONFIGURE", 1, COMMAND_CONFIG,
+		"INSTALL", 1, COMMAND_INSTALL,
+		"REMOVE", 1, COMMAND_REMOVE,
+		"START", 3, COMMAND_START, "STOP", 3, COMMAND_STOP, NULL, 0, 0};
+
+
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Install or remove an InterBase service.
+ *
+ **************************************/
+	TEXT **end, *p, *q, *cmd, *directory;
+	USHORT sw_command, sw_version, sw_startup, sw_mode;
+	USHORT i, status;
+	SC_HANDLE manager;
+
+	directory = NULL;
+	sw_command = COMMAND_NONE;
+	sw_version = FALSE;
+	sw_startup = STARTUP_DEMAND;
+	sw_mode = DEFAULT_CLIENT;
+
+	end = argv + argc;
+	while (++argv < end)
+		if (**argv != '-') {
+			for (i = 0; cmd = commands[i].name; i++) {
+				for (p = *argv, q = cmd; *p && UPPER(*p) == *q; p++, q++);
+				if (!*p && commands[i].abbrev <= (USHORT) (q - cmd))
+					break;
+			}
+			if (!cmd) {
+				ib_printf("Unknown command \"%s\"\n", *argv);
+				usage();
+			}
+			sw_command = commands[i].code;
+			if (sw_command == COMMAND_INSTALL && ++argv < end)
+				directory = *argv;
+		}
+		else {
+			p = *argv + 1;
+			switch (UPPER(*p)) {
+			case 'A':
+				sw_startup = STARTUP_AUTO;
+				break;
+
+			case 'D':
+				sw_startup = STARTUP_DEMAND;
+				break;
+
+/* Disable server sw_mode service options
+   
+	    case 'M':
+		sw_mode = MULTI_CLIENT;
+		break;
+
+	    case 'S':
+		sw_mode = SINGLE_CLIENT;
+		break;
+*/
+			case 'R':
+				sw_mode = NORMAL_PRIORITY;
+				break;
+
+			case 'B':
+				sw_mode = HIGH_PRIORITY;
+				break;
+
+			case 'Z':
+				sw_version = TRUE;
+				break;
+
+			default:
+				ib_printf("Unknown switch \"%s\"\n", p);
+				usage();
+			}
+		}
+
+	if (sw_version)
+		ib_printf("install_svc version %s\n", GDS_VERSION);
+
+	if (sw_command == COMMAND_NONE ||
+		(!directory && sw_command == COMMAND_INSTALL) ||
+		(directory && sw_command != COMMAND_INSTALL))
+		usage();
+
+	manager = OpenSCManager(NULL, NULL, SC_MANAGER_ALL_ACCESS);
+	if (manager == NULL) {
+		svc_error(GetLastError(), "OpenSCManager", NULL);
+		exit(FINI_ERROR);
+	}
+
+	switch (sw_command) {
+	case COMMAND_CONFIG:
+		status = SERVICES_config(manager, REMOTE_SERVICE, REMOTE_DISPLAY_NAME,
+								 sw_mode, svc_error);
+		if (status == SUCCESS)
+			ib_printf("Service \"%s\" successfully configured.\n",
+					  REMOTE_DISPLAY_NAME);
+		else
+			ib_printf("Service \"%s\" not configured.\n",
+					  REMOTE_DISPLAY_NAME);
+		break;
+
+	case COMMAND_INSTALL:
+		status =
+			SERVICES_install(manager, REMOTE_SERVICE, REMOTE_DISPLAY_NAME,
+							 REMOTE_EXECUTABLE, directory, NULL, sw_startup,
+							 svc_error);
+		if (status == SUCCESS)
+			ib_printf("Service \"%s\" successfully created.\n",
+					  REMOTE_DISPLAY_NAME);
+		else if (status == IB_SERVICE_ALREADY_DEFINED)
+			svc_error(GetLastError(), "CreateService", NULL);
+		else
+			ib_printf("Service \"%s\" not created.\n", REMOTE_DISPLAY_NAME);
+		break;
+
+	case COMMAND_REMOVE:
+		status = SERVICES_remove(manager, REMOTE_SERVICE, REMOTE_DISPLAY_NAME,
+								 svc_error);
+
+		if (status == SUCCESS) {
+			ib_printf("Service \"%s\" successfully deleted.\n",
+					  REMOTE_DISPLAY_NAME);
+			status = SERVICES_delete(manager, REMOTE_SERVICE,
+									 REMOTE_DISPLAY_NAME, svc_error);
+			if (status == SUCCESS)
+				ib_printf
+					("Service configuration for \"%s\" successfully re-initialized.\n",
+					 REMOTE_DISPLAY_NAME);
+			else
+				ib_printf
+					("Service configuration for \"%s\" not re-initialized.\n",
+					 REMOTE_DISPLAY_NAME);
+		}
+		else if (status == IB_SERVICE_RUNNING) {
+			ib_printf
+				("Service \"%s\" not deleted.  You must stop it before\n",
+				 REMOTE_DISPLAY_NAME);
+			ib_printf("attempting to delete it.\n");
+		}
+		else
+			ib_printf("Service \"%s\" not deleted.\n", REMOTE_DISPLAY_NAME);
+		break;
+
+	case COMMAND_START:
+		status = SERVICES_start(manager, REMOTE_SERVICE, REMOTE_DISPLAY_NAME,
+								sw_mode, svc_error);
+		if (status == SUCCESS)
+			ib_printf("Service \"%s\" successfully started.\n",
+					  REMOTE_DISPLAY_NAME);
+		else
+			ib_printf("Service \"%s\" not started.\n", REMOTE_DISPLAY_NAME);
+		break;
+
+	case COMMAND_STOP:
+		status = SERVICES_stop(manager, REMOTE_SERVICE, REMOTE_DISPLAY_NAME,
+							   svc_error);
+		if (status == SUCCESS)
+			ib_printf("Service \"%s\" successfully stopped.\n",
+					  REMOTE_DISPLAY_NAME);
+		else
+			ib_printf("Service \"%s\" not stopped.\n", REMOTE_DISPLAY_NAME);
+		break;
+	}
+
+	CloseServiceHandle(manager);
+
+	exit((status == SUCCESS) ? FINI_OK : FINI_ERROR);
+}
+
+
+static USHORT svc_error( SLONG status, TEXT * string, SC_HANDLE service)
+{
+/**************************************
+ *
+ *	s v c _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Report an error and punt.
+ *
+ **************************************/
+	TEXT buffer[512];
+	SSHORT l;
+
+	if (service != NULL)
+		CloseServiceHandle(service);
+
+	ib_printf("Error occurred during \"%s\"\n", string);
+
+	if (!(l = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,
+							NULL,
+							status,
+							GetUserDefaultLangID(),
+							buffer,
+							sizeof(buffer),
+							NULL)))
+			ib_printf("Windows NT error %d\n", status);
+	else
+		ib_printf("%s\n", buffer);
+
+	return FAILURE;
+}
+
+
+static void usage(void)
+{
+/**************************************
+ *
+ *	u s a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	ib_printf("Usage:\n");
+	ib_printf
+		("    instsvc {install InterBase_directory [-auto | -demand] } [-z]\n");
+	ib_printf
+		("            {remove                                        }\n");
+	ib_printf
+		("            {configure [-boostpriority | -regularpriority] }\n");
+	ib_printf
+		("            {start     [-boostpriority | -regularpriority] }\n");
+	ib_printf
+		("            {stop                                          }\n");
+
+	exit(FINI_OK);
+}
diff --git a/src/utilities/isc.gdl b/src/utilities/isc.gdl
new file mode 100644
index 0000000000..574c64dac9
--- /dev/null
+++ b/src/utilities/isc.gdl
@@ -0,0 +1,85 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+define database "isc.gdb"
+	page_size 1024;
+
+/*
+	NOTE:  This file sets up the the isc_tmp.gdb database that
+	       will ultimately get shipped as isc.gbak in the 
+	       interbase/bin directory.  This file is part one of a 
+	       two step process.  The reason for this is that gdef
+	       cannot handle security classes correctly over
+	       different platforms, i.e. apollo, unix, and vms.
+	       The basic database is created using this file
+	       on all platforms for ease of maintenance while the
+	       security classes are added by platform specific gdl
+	       files i.e.
+		   
+		   apollo = scrty_apollo.gdl
+		   unix   = scrty_unix.gdl
+		   vms    = scrty_vms.gdl
+		   mpexl  = scrty_xl.gdl
+
+	       Any changes made to the security class definitions
+	       in one of these files must be made to all of them.
+*/
+
+/*	Global Field Definitions	*/
+
+define field COMMENT blob segment_length 80 sub_type text;
+define field FIRST_NAME varying [16];
+define field GID long;
+define field HOST_KEY char [20];
+define field HOST_NAME char [20];
+define field LAST_NAME varying [16];
+define field MIDDLE_NAME varying [16];
+define field ORGANIZATION varying [32];
+define field PASSWORD varying [32];
+define field PROJECT varying [32];
+define field UID long;
+define field USER_NAME varying [128];
+
+
+/*	Relation Definitions	*/
+
+
+define relation HOST_INFO
+    HOST_NAME	position 1,
+    HOST_KEY	position 2;
+
+define relation USERS
+    USER_NAME	position 1,
+    UID	position 2,
+    GID	position 3,
+    PROJECT	position 4,
+    ORGANIZATION	position 5,
+    PASSWORD	position 6,
+    COMMENT	position 7,
+    FIRST_NAME	position 9,
+    MIDDLE_NAME	position 10,
+    LAST_NAME	position 11,
+    FULL_NAME computed by (first_name | " " | middle_name | " " | last_name);
+
+
+/*	Index Definitions	*/
+
+
+define index USER_NAME_INDEX for USERS unique
+	USER_NAME;
+
diff --git a/src/utilities/isc4.gdl b/src/utilities/isc4.gdl
new file mode 100644
index 0000000000..12b0494852
--- /dev/null
+++ b/src/utilities/isc4.gdl
@@ -0,0 +1,29 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+modify database "isc4.gdb" security_class database_access;
+
+/*
+
+	Lock down a database so that no other users can create
+	other tables.
+
+*/
+
+define security_class database_access
+[*,*] rw;
diff --git a/src/utilities/isc4.sql b/src/utilities/isc4.sql
new file mode 100644
index 0000000000..35190c4db3
--- /dev/null
+++ b/src/utilities/isc4.sql
@@ -0,0 +1,59 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+CREATE DATABASE "isc4.gdb" ;
+
+/* Domain definitions */
+CREATE DOMAIN COMMENT AS BLOB SUB_TYPE TEXT SEGMENT SIZE 80 CHARACTER SET UNICODE_FSS;
+CREATE DOMAIN NAME_PART AS VARCHAR(32) CHARACTER SET UNICODE_FSS DEFAULT _UNICODE_FSS '';
+CREATE DOMAIN GID AS INTEGER;
+CREATE DOMAIN HOST_KEY AS CHAR(20) CHARACTER SET BINARY;
+CREATE DOMAIN HOST_NAME AS CHAR(20) CHARACTER SET ASCII;
+CREATE DOMAIN PASSWD AS VARCHAR(32) CHARACTER SET BINARY;
+CREATE DOMAIN UID AS INTEGER;
+CREATE DOMAIN USER_NAME AS VARCHAR(128) CHARACTER SET ASCII;
+CREATE DOMAIN PRIVILEGE AS INTEGER;
+
+/*  Table: HOST_INFO, Owner: BUILDER */
+CREATE TABLE HOST_INFO (HOST_NAME HOST_NAME,
+	HOST_KEY HOST_KEY);
+
+
+/*  Table: USERS, Owner: BUILDER */
+CREATE TABLE USERS (USER_NAME USER_NAME,
+	/* local system user name for setuid for file permissions */
+	SYS_USER_NAME	USER_NAME,
+	GROUP_NAME	USER_NAME,
+	UID 		UID,
+	GID 		GID,
+	PASSWD 		PASSWD,
+
+	/* Privilege level of user-mark a user as having DBA privilege */
+	PRIVILEGE 	PRIVILEGE,
+
+	COMMENT 	COMMENT,
+	FIRST_NAME 	NAME_PART,
+	MIDDLE_NAME	NAME_PART,
+	LAST_NAME	NAME_PART,
+	FULL_NAME COMPUTED BY  (first_name || _UNICODE_FSS ' ' || middle_name || _UNICODE_FSS ' ' || last_name ));
+
+/*  Index definitions for all user tables */
+CREATE UNIQUE INDEX USER_NAME_INDEX ON USERS(USER_NAME);
+
+GRANT SELECT ON USERS to PUBLIC;
+GRANT SELECT ON HOST_INFO to PUBLIC;
diff --git a/src/utilities/ppg.cpp b/src/utilities/ppg.cpp
new file mode 100644
index 0000000000..5ebbe7c981
--- /dev/null
+++ b/src/utilities/ppg.cpp
@@ -0,0 +1,404 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		ppg.c
+ *	DESCRIPTION:	Database page print module
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/common.h"
+#include "../jrd/time.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/ods.h"
+#include "../jrd/gds_proto.h"
+
+static CONST TEXT months[][4] = {
+	"Jan", "Feb", "Mar",
+	"Apr", "May", "Jun",
+	"Jul", "Aug", "Sep",
+	"Oct", "Nov", "Dec"
+};
+
+
+#ifdef SUPERSERVER
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+#include "../jrd/svc.h"
+#include "../jrd/svc_proto.h"
+#include "../utilities/ppg_proto.h"
+
+#define exit(code)	{service->svc_handle = 0; return (code);}
+#define FPRINTF		SVC_fprintf
+#endif
+
+#ifndef FPRINTF
+#define FPRINTF		ib_fprintf
+#endif
+
+
+extern "C" {
+
+
+void PPG_print_header( HDR header, SLONG page,
+#ifdef SUPERSERVER
+					  SVC outfile)
+#else
+					  IB_FILE * outfile)
+#endif
+{
+/**************************************
+ *
+ *	P P G _ p r i n t _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print database header page.
+ *
+ **************************************/
+	UCHAR *p, *end;
+	SLONG number;
+	struct tm time;
+	SSHORT flags;
+	TEXT temp[257];
+	SSHORT flag_count = 0;
+
+	if (page == HEADER_PAGE)
+		FPRINTF(outfile, "Database header page information:\n");
+	else
+		FPRINTF(outfile, "Database overflow header page information:\n");
+
+
+	if (page == HEADER_PAGE) {
+		FPRINTF(outfile, "\tFlags\t\t\t%d\n", header->hdr_header.pag_flags);
+		FPRINTF(outfile, "\tChecksum\t\t%d\n",
+				header->hdr_header.pag_checksum);
+		FPRINTF(outfile, "\tGeneration\t\t%d\n",
+				header->hdr_header.pag_generation);
+		FPRINTF(outfile, "\tPage size\t\t%d\n", header->hdr_page_size);
+		FPRINTF(outfile, "\tODS version\t\t%d.%d\n", header->hdr_ods_version,
+				header->hdr_ods_minor);
+		FPRINTF(outfile, "\tOldest transaction\t%ld\n",
+				header->hdr_oldest_transaction);
+		FPRINTF(outfile, "\tOldest active\t\t%ld\n",
+				header->hdr_oldest_active);
+		FPRINTF(outfile, "\tOldest snapshot\t\t%ld\n",
+				header->hdr_oldest_snapshot);
+		FPRINTF(outfile, "\tNext transaction\t%ld\n",
+				header->hdr_next_transaction);
+		FPRINTF(outfile, "\tBumped transaction\t%ld\n",
+				header->hdr_bumped_transaction);
+		FPRINTF(outfile, "\tSequence number\t\t%d\n", header->hdr_sequence);
+
+		FPRINTF(outfile, "\tNext attachment ID\t%ld\n",
+				header->hdr_attachment_id);
+		FPRINTF(outfile, "\tImplementation ID\t%ld\n",
+				header->hdr_implementation);
+		FPRINTF(outfile, "\tShadow count\t\t%ld\n", header->hdr_shadow_count);
+		FPRINTF(outfile, "\tPage buffers\t\t%d\n", header->hdr_page_buffers);
+	}
+
+	FPRINTF(outfile, "\tNext header page\t%d\n", header->hdr_next_page);
+#ifdef DEV_BUILD
+	FPRINTF(outfile, "\tClumplet End\t\t%d\n", header->hdr_end);
+#endif
+
+	if (page == HEADER_PAGE) {
+
+		/* If the database dialect is not set to 3, then we need to
+		 * assume it was set to 1.  The reason for this is that a dialect
+		 * 1 database has no dialect information written to the header.
+		 */
+		if (header->hdr_flags & hdr_SQL_dialect_3)
+			FPRINTF(outfile, "\tDatabase dialect\t3\n");
+		else
+			FPRINTF(outfile, "\tDatabase dialect\t1\n");
+
+
+		gds__decode_date(reinterpret_cast <
+						 GDS_QUAD * >(header->hdr_creation_date), &time);
+		FPRINTF(outfile, "\tCreation date\t\t%s %d, %d %d:%02d:%02d\n",
+				months[time.tm_mon], time.tm_mday, time.tm_year + 1900,
+				time.tm_hour, time.tm_min, time.tm_sec);
+	}
+
+	if ((page == HEADER_PAGE) && (flags = header->hdr_flags)) {
+		FPRINTF(outfile, "\tAttributes\t\t");
+		if (flags & hdr_force_write) {
+			FPRINTF(outfile, "force write");
+			flag_count++;
+		}
+		if (flags & hdr_no_reserve) {
+			if (flag_count++)
+				FPRINTF(outfile, ", ");
+			FPRINTF(outfile, "no reserve");
+		}
+
+		if (flags & hdr_disable_cache) {
+			if (flag_count++)
+				FPRINTF(outfile, ", ");
+			FPRINTF(outfile, "shared cache disabled");
+		}
+
+		if (flags & hdr_active_shadow) {
+			if (flag_count++)
+				FPRINTF(outfile, ", ");
+			FPRINTF(outfile, "active shadow");
+		}
+
+		if (flags & hdr_shutdown) {
+			if (flag_count++)
+				FPRINTF(outfile, ", ");
+			FPRINTF(outfile, "database shutdown");
+		}
+
+#ifdef READONLY_DATABASE
+		if (flags & hdr_read_only) {
+			if (flag_count++)
+				FPRINTF(outfile, ", ");
+			FPRINTF(outfile, "read only");
+		}
+#endif /* READONLY_DATABASE */
+		FPRINTF(outfile, "\n");
+	}
+
+	FPRINTF(outfile, "\n    Variable header data:\n");
+
+	for (p = header->hdr_data, end = p + header->hdr_page_size;
+		 p < end && *p != HDR_end; p += 2 + p[1])
+		switch (*p) {
+		case HDR_root_file_name:
+			memcpy(temp, p + 2, p[1]);
+			temp[p[1]] = '\0';
+			FPRINTF(outfile, "\tRoot file name:\t\t%s\n", temp);
+			break;
+
+		case HDR_journal_server:
+			memcpy(temp, p + 2, p[1]);
+			temp[p[1]] = '\0';
+			FPRINTF(outfile, "\tJournal server:\t\t%s\n", temp);
+			break;
+
+		case HDR_file:
+			memcpy(temp, p + 2, p[1]);
+			temp[p[1]] = '\0';
+			FPRINTF(outfile, "\tContinuation file:\t\t%s\n", temp);
+			break;
+
+		case HDR_last_page:
+			memcpy(&number, p + 2, sizeof(number));
+			FPRINTF(outfile, "\tLast logical page:\t\t%ld\n", number);
+			break;
+
+		case HDR_unlicensed:
+			memcpy(&number, p + 2, sizeof(number));
+			FPRINTF(outfile, "\tUnlicensed accesses:\t\t%ld\n", number);
+			break;
+
+		case HDR_sweep_interval:
+			memcpy(&number, p + 2, sizeof(number));
+			FPRINTF(outfile, "\tSweep interval:\t\t%ld\n", number);
+			break;
+
+		case HDR_log_name:
+			memcpy(temp, p + 2, p[1]);
+			temp[p[1]] = '\0';
+			FPRINTF(outfile, "\tReplay logging file:\t\t%s\n", temp);
+			break;
+
+		case HDR_cache_file:
+			FPRINTF(outfile, "\tShared Cache file:\t\t%s\n", p + 2);
+			break;
+
+		default:
+			if (*p > HDR_max)
+				FPRINTF(outfile, "\tUnrecognized option %d, length %d\n",
+						p[0], p[1]);
+			else
+				FPRINTF(outfile, "\tEncoded option %d, length %d\n", p[0],
+						p[1]);
+			break;
+		}
+
+	FPRINTF(outfile, "\t*END*\n");
+}
+
+
+void PPG_print_log( LIP logp, SLONG page,
+#ifdef SUPERSERVER
+				   SVC outfile)
+#else
+				   IB_FILE * outfile)
+#endif
+{
+/**************************************
+ *
+ *	P P G _ p r i n t _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print log page information
+ *
+ **************************************/
+	UCHAR *p;
+	SLONG flags;
+	SLONG ltemp;
+	SSHORT stemp;
+	USHORT ustemp;
+	struct tm time;
+	TEXT temp[257];
+
+	p = logp->log_data;
+
+	if (page == LOG_PAGE)
+		FPRINTF(outfile, "Database log page information:\n");
+	else
+		FPRINTF(outfile, "Database overflow log page information:\n");
+
+	if (page == LOG_PAGE) {
+		if (logp->log_mod_tid)
+			FPRINTF(outfile, "\tModified by transaction\t%ld\n",
+					logp->log_mod_tid);
+		if (logp->log_mod_tip)
+			FPRINTF(outfile, "\tModified tip page\t%ld\n", logp->log_mod_tip);
+
+		if (!logp->log_creation_date[0] && !logp->log_creation_date[1])
+		{
+			FPRINTF(outfile, "\tCreation date\n");
+		}
+		else
+		{
+			gds__decode_date(reinterpret_cast<GDS_QUAD*>(logp->log_creation_date),
+								&time);
+			FPRINTF(outfile,
+					"\tCreation date\t%s %d, %d %d:%02d:%02d\n",
+					months[time.tm_mon],
+					time.tm_mday,
+					time.tm_year + 1900,
+					time.tm_hour,
+					time.tm_min,
+					time.tm_sec);
+		}
+
+		FPRINTF(outfile, "\tLog flags:\t%ld\n", logp->log_flags);
+
+		if (flags = logp->log_flags) {
+			if (flags & log_no_ail)
+				FPRINTF(outfile, "\t\tNo write ahead log\n");
+			if (flags & log_add)
+				FPRINTF(outfile, "\t\tLog added\n");
+			if (flags & log_delete)
+				FPRINTF(outfile, "\t\tLog deleted\n");
+			if (flags & log_recover)
+				FPRINTF(outfile, "\t\tRecovery required\n");
+			if (flags & log_rec_in_progress)
+				FPRINTF(outfile, "\t\tRecovery in progress\n");
+			if (flags & log_partial_rebuild)
+				FPRINTF(outfile, "\t\tPartial recovery\n");
+			FPRINTF(outfile, "\n");
+		}
+	}
+
+	FPRINTF(outfile, "\tNext log page:\t%ld\n", logp->log_next_page);
+#ifdef DEV_BUILD
+	FPRINTF(outfile, "\tClumplet End\t%d\n", logp->log_end);
+#endif
+
+	FPRINTF(outfile, "\n    Variable log data:\n");
+
+	for (p = logp->log_data; *p != HDR_end; p += 2 + p[1]) {
+		switch (*p) {
+		case LOG_ctrl_file1:
+			FPRINTF(outfile, "\tControl Point 1:\n");
+			memcpy(temp, p + 2, logp->log_cp_1.cp_fn_length);
+			temp[logp->log_cp_1.cp_fn_length] = '\0';
+			FPRINTF(outfile, "\t\tFile name:\t%s\n", temp);
+			FPRINTF(outfile, "\t\tPartition offset: %ld ",
+					logp->log_cp_1.cp_p_offset);
+			FPRINTF(outfile, "\tSeqno: %ld ", logp->log_cp_1.cp_seqno);
+			FPRINTF(outfile, "\tOffset: %ld ", logp->log_cp_1.cp_offset);
+			FPRINTF(outfile, "\n");
+
+			break;
+
+		case LOG_ctrl_file2:
+			FPRINTF(outfile, "\tControl Point 2:\n");
+			memcpy(temp, p + 2, logp->log_cp_2.cp_fn_length);
+			temp[logp->log_cp_2.cp_fn_length] = '\0';
+			FPRINTF(outfile, "\t\tFile name:\t%s\n", temp);
+			FPRINTF(outfile, "\t\tPartition offset: %ld ",
+					logp->log_cp_2.cp_p_offset);
+			FPRINTF(outfile, "\tSeqno: %ld ", logp->log_cp_2.cp_seqno);
+			FPRINTF(outfile, "\tOffset: %ld ", logp->log_cp_2.cp_offset);
+			FPRINTF(outfile, "\n");
+
+			break;
+
+		case LOG_logfile:
+			FPRINTF(outfile, "\tCurrent File:\n");
+			memcpy(temp, p + 2, logp->log_file.cp_fn_length);
+			temp[logp->log_file.cp_fn_length] = '\0';
+			FPRINTF(outfile, "\t\tFile name:\t\t%s\n", temp);
+			FPRINTF(outfile, "\t\tPartition offset: %ld ",
+					logp->log_file.cp_p_offset);
+			FPRINTF(outfile, "\tSeqno: %ld ", logp->log_file.cp_seqno);
+			FPRINTF(outfile, "\tOffset: %ld ", logp->log_file.cp_offset);
+			FPRINTF(outfile, "\n");
+
+			break;
+
+		case LOG_chkpt_len:
+			memcpy(&ltemp, p + 2, p[1]);
+			FPRINTF(outfile, "\tCheck Point Length %ld\n", ltemp);
+			break;
+
+		case LOG_num_bufs:
+			memcpy(&stemp, p + 2, p[1]);
+			FPRINTF(outfile, "\tNumber of WAL buffers %d\n", stemp);
+			break;
+
+		case LOG_bufsize:
+			memcpy(&ustemp, p + 2, p[1]);
+			FPRINTF(outfile, "\tWAL buffer Size %ld\n", ustemp);
+			break;
+
+		case LOG_grp_cmt_wait:
+			memcpy(&ltemp, p + 2, p[1]);
+			FPRINTF(outfile, "\tGroup Commit Wait Time %ld\n", ltemp);
+			break;
+
+		default:
+			if (*p > LOG_max)
+				FPRINTF(outfile, "\tUnrecognized option %d, length %d\n",
+						p[0], p[1]);
+			else
+				FPRINTF(outfile, "\tEncoded option %d, length %d\n", p[0],
+						p[1]);
+			break;
+		}
+	}
+	FPRINTF(outfile, "\t*END*\n");
+}
+
+
+} // extern "C"
diff --git a/src/utilities/ppg_proto.h b/src/utilities/ppg_proto.h
new file mode 100644
index 0000000000..3660e90a1e
--- /dev/null
+++ b/src/utilities/ppg_proto.h
@@ -0,0 +1,45 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		ppg_proto.h
+ *	DESCRIPTION:	Prototype header file for ppg.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _UTILITIES_PPG_PROTO_H_
+#define _UTILITIES_PPG_PROTO_H_
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#ifdef SUPERSERVER
+extern void	PPG_print_header (HDR, SLONG, SVC);
+extern void	PPG_print_log (LIP, SLONG, SVC);
+#else
+extern void	PPG_print_header (HDR, SLONG, IB_FILE*);
+extern void	PPG_print_log (LIP, SLONG, IB_FILE*);
+#endif
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _UTILITIES_PPG_PROTO_H_ */
+
diff --git a/src/utilities/print_pool.cpp b/src/utilities/print_pool.cpp
new file mode 100644
index 0000000000..87c17dc8ee
--- /dev/null
+++ b/src/utilities/print_pool.cpp
@@ -0,0 +1,86 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/common.h"
+#include "../jrd/ibase.h"
+#include "../jrd/svc_undoc.h"
+
+#define STUFF_WORD(p, value)    {*p++ = value; *p++ = value >> 8;}
+
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+*
+*      m a i n
+*
+**************************************
+*
+*Functional Description
+*  This utility uses the interbase service api to inform the server
+*  to print out the memory pool information into a specified file.
+*  is utilitiy is for WIN_NT only, In case of UNIX ibmgr utility will
+*  should be used.
+*
+*************************************************************************/
+	char buffer[512];
+	char fname[512];
+	ISC_STATUS status[20];
+	isc_svc_handle svc_handle = NULL;
+	char svc_name[256];
+	char *sptr, sendbuf[512];
+	char respbuf[256], *p = respbuf;
+	unsigned short path_length;
+
+	if (argc != 2 && argc != 1) {
+		ib_printf("Usage %s \n      %s filename\n");
+		exit(1);
+	}
+	if (argc == 1) {
+		ib_printf(" Filename : ");
+		gets(fname);
+	}
+	else
+		strcpy(fname, argv[1]);
+
+	sptr = sendbuf;
+	strcpy(buffer, fname);
+	ib_printf("Filename to dump pool info = %s \n", buffer);
+	sprintf(svc_name, "localhost:anonymous");
+	if (isc_service_attach(status, 0, svc_name, &svc_handle, 0, NULL)) {
+		ib_printf("Failed to attach service\n");
+		return 0;
+	}
+
+	path_length = strlen(buffer);
+	*sptr = isc_info_svc_dump_pool_info;
+	++sptr;
+	STUFF_WORD(sptr, path_length);
+	strcpy(sptr, buffer);
+	sptr += path_length;
+	if (isc_service_query
+		(status, &svc_handle, NULL, 0, NULL, sptr - sendbuf, sendbuf, 256,
+		 respbuf)) {
+		ib_printf("Failed to query service\n");
+		isc_service_detach(status, &svc_handle);
+		return 0;
+	}
+
+	isc_service_detach(status, &svc_handle);
+}
diff --git a/src/utilities/rebui_proto.h b/src/utilities/rebui_proto.h
new file mode 100644
index 0000000000..c76424a9cc
--- /dev/null
+++ b/src/utilities/rebui_proto.h
@@ -0,0 +1,33 @@
+/*
+ *	PROGRAM:	JRD Rebuild scrambled database
+ *	MODULE:		rebui_proto.h
+ *	DESCRIPTION:	Prototype header file for rebuild.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _UTILITIES_REBUI_PROTO_H_
+#define _UTILITIES_REBUI_PROTO_H_
+
+extern SCHAR		*RBDB_alloc (SLONG);
+extern void		RBDB_close (struct rbdb *);
+extern void		RBDB_open (struct rbdb *);
+extern struct pag	*RBDB_read (struct rbdb *, SLONG);
+extern void		RBDB_write (struct rbdb *, struct pag *, SLONG);
+
+#endif /* _UTILITIES_REBUI_PROTO_H_ */
diff --git a/src/utilities/rebuild.cpp b/src/utilities/rebuild.cpp
new file mode 100644
index 0000000000..ddf9ead191
--- /dev/null
+++ b/src/utilities/rebuild.cpp
@@ -0,0 +1,1330 @@
+/*
+ *	PROGRAM:	JRD Rebuild scrambled database
+ *	MODULE:		rebuild.c
+ *	DESCRIPTION:	Main routine for analyzing and rebuilding database
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <errno.h>
+
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/time.h"
+#include "../jrd/pag.h"
+#include "../jrd/tra.h"
+#include "../utilities/rebuild.h"
+#include "../utilities/rebui_proto.h"
+#include "../utilities/rmet_proto.h"
+#include "../utilities/rstor_proto.h"
+#include "../jrd/dmp_proto.h"
+#include "../jrd/gds_proto.h"
+
+#ifdef hpux
+#define CCH_DUMMY
+#endif
+
+#ifndef O_RDWR
+#include <fcntl.h>
+#endif
+
+struct dbb dbb_struct;
+struct tdbb tdbb_struct, *gdbb;
+struct pgc dim;
+struct tra dull;
+
+ULONG *tips;
+
+IB_FILE *dbg_file;
+
+extern SCHAR *sys_errlist[];
+
+static void checksum(RBDB, ULONG, ULONG, UCHAR);
+static USHORT compute_checksum(RBDB, PAG);
+static void db_error(int);
+static void dump(IB_FILE *, RBDB, ULONG, ULONG, UCHAR);
+static void dump_tips(IB_FILE *, RBDB);
+static void format_header(RBDB, HDR, int, ULONG, ULONG, ULONG, ULONG);
+static void format_index_root(IRT, int, SSHORT, SSHORT);
+static void format_pointer(PPG, int, SSHORT, SSHORT, int, SSHORT, SLONG *);
+static void format_pip(PIP, int, int);
+static void format_tip(TIP, int, SLONG);
+static void get_next_file(RBDB, HDR);
+static void get_range(TEXT ***, TEXT **, ULONG *, ULONG *);
+static void get_switch(TEXT **, SWC);
+static void move(SCHAR *, SCHAR *, SSHORT);
+static HDR open_database(RBDB, ULONG);
+static void print_db_header(IB_FILE *, HDR);
+static void rebuild(RBDB);
+static void write_headers(IB_FILE *, RBDB, ULONG, ULONG);
+
+static UCHAR sw_rebuild, sw_print, sw_store, sw_dump_pages, sw_checksum,
+	sw_fudge, sw_fix, sw_dump_tips;
+
+static TEXT *months[] = {
+	"Jan", "Feb", "Mar",
+	"Apr", "May", "Jun",
+	"Jul", "Aug", "Sep",
+	"Oct", "Nov", "Dec"
+};
+
+static ULONG PPG_NUMBERS[] = { 5897, 6058, 5409, 6199, 6200, 6220, 6221,
+	4739, 4868, 6332, 6333, 6329, 6359, 6751,
+	6331, 6392, 6806, 6819, 6820, 6866, 6875,
+	6876, 7019, 7284, 7430, 7431, 7757, 6893,
+	6894, 7408, 8308, 8309, 1036, 9120, 4528,
+	4563, 4572, 0, 0
+};
+
+
+void main( int argc, char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse and interpret command line, then do a variety
+ *	of things.
+ *
+ **************************************/
+	TEXT **end, *db_in, *ascii_out, out_file[128];
+	HDR header;
+	RBDB rbdb;
+	struct swc switch_space;
+	SWC token;
+	RBDB next_db;
+	ULONG c_lower_bound, c_upper_bound, d_lower_bound, d_upper_bound,
+		p_lower_bound, p_upper_bound, pg_size;
+	USHORT pg_type;
+
+	dbg_file = ib_stdout;
+	sw_rebuild = sw_print = sw_store = sw_dump_pages = sw_checksum = FALSE;
+	sw_dump_tips = sw_fudge = sw_fix = FALSE;
+
+	pg_size = p_lower_bound = c_lower_bound = d_lower_bound = 0;
+	p_upper_bound = c_upper_bound = d_upper_bound = BIG_NUMBER;
+	pg_type = 0;
+
+#ifdef VMS
+	argc = VMS_parse(&argv, argc);
+#endif
+
+	end = argv + argc;
+	++argv;
+	token = &switch_space;
+
+	rbdb = NULL;
+	header = NULL;
+	ascii_out = NULL;
+	db_in = NULL;
+
+	while (argv < end) {
+		get_switch(argv, token);
+		argv++;
+		if (!token->swc_switch)
+			db_in = token->swc_string;
+		else {
+			switch (*token->swc_string) {
+			case 'b':
+				pg_size = atoi(*argv++);
+				break;
+
+			case 'c':
+				sw_checksum = TRUE;
+				get_range(&argv, end, &c_lower_bound, &c_upper_bound);
+				break;
+
+			case 'd':
+				if ((argv < end) && (!strcmp(*argv, "tips"))) {
+					argv++;
+					sw_dump_tips = TRUE;
+				}
+				else
+					sw_dump_pages = TRUE;
+
+				get_range(&argv, end, &d_lower_bound, &d_upper_bound);
+				break;
+
+			case 'f':
+				sw_fix = TRUE;
+				break;
+
+			case 'o':
+				if (argv < end) {
+					get_switch(argv, token);
+					if (token->swc_switch)
+						break;
+					strcpy(out_file, token->swc_string);
+					ascii_out = out_file;
+					argv++;
+				}
+			case 'p':
+				sw_print = TRUE;
+				get_range(&argv, end, &p_lower_bound, &p_upper_bound);
+				break;
+
+			case 'r':
+				sw_rebuild = TRUE;
+				break;
+
+			case 's':
+				sw_store = TRUE;
+				break;
+
+			case 't':
+				pg_type = atoi(*argv++);
+				break;
+
+			}
+		}
+	}
+
+	if (db_in) {
+		rbdb =
+			(RBDB)
+			RBDB_alloc((SLONG) (sizeof(struct rbdb) + strlen(db_in) + 1));
+		strcpy(rbdb->rbdb_file.fil_name, db_in);
+		rbdb->rbdb_file.fil_length = strlen(db_in);
+		if (header = open_database(rbdb, pg_size))
+			get_next_file(rbdb, header);
+
+		/* some systems don't care for this write sharing stuff... */
+		if (rbdb && (sw_dump_tips || sw_dump_pages)) {
+			RBDB_close(rbdb);
+			if (rbdb->rbdb_valid)
+				tips = RMET_tips(db_in);
+			RBDB_open(rbdb);
+		}
+	}
+
+
+	gdbb = &tdbb_struct;
+	gdbb->tdbb_database = &dbb_struct;
+#ifndef ODS_4
+	gdbb->tdbb_transaction = &dull;
+#endif
+	dull.tra_number = header->hdr_next_transaction;
+	gdbb->tdbb_database->dbb_max_records = (rbdb->rbdb_page_size
+											- sizeof(struct dpg)) /
+		(sizeof(dpg::dpg_repeat) + OFFSETA(RHD, rhd_data));
+	gdbb->tdbb_database->dbb_pcontrol = &dim;
+	gdbb->tdbb_database->dbb_dp_per_pp = (rbdb->rbdb_page_size
+										  - OFFSETA(PPG, ppg_page)) * 8 / 34;
+	gdbb->tdbb_database->dbb_pcontrol->pgc_bytes = rbdb->rbdb_page_size
+		- OFFSETA(PIP, pip_bits);
+	gdbb->tdbb_database->dbb_pcontrol->pgc_ppp =
+		gdbb->tdbb_database->dbb_pcontrol->pgc_bytes * 8;
+	gdbb->tdbb_database->dbb_pcontrol->pgc_tpt =
+		(rbdb->rbdb_page_size - OFFSETA(TIP, tip_transactions)) * 4;
+	gdbb->tdbb_database->dbb_pcontrol->pgc_pip = 1;
+
+	if (ascii_out)
+		dbg_file = ib_fopen(ascii_out, "w");
+
+	if (sw_print && rbdb && header)
+		write_headers(dbg_file, rbdb, p_lower_bound, p_upper_bound);
+
+	if (sw_store && rbdb && header)
+		RSTORE(rbdb);
+
+	if (sw_checksum && rbdb && header)
+		checksum(rbdb, c_lower_bound, c_upper_bound, sw_fix);
+
+	if (sw_dump_tips && rbdb && header)
+		dump_tips(dbg_file, rbdb);
+
+	if (sw_dump_pages && rbdb && header)
+		dump(dbg_file, rbdb, d_lower_bound, d_upper_bound, pg_type);
+
+	if (sw_rebuild && rbdb && header)
+		rebuild(rbdb);
+
+	if (ascii_out)
+		ib_fclose(dbg_file);
+
+	if (rbdb)
+		RBDB_close(rbdb);
+
+	while (rbdb) {
+		next_db = rbdb->rbdb_next;
+		if (rbdb->rbdb_buffer1)
+			gds__free(rbdb->rbdb_buffer1);
+		if (rbdb->rbdb_buffer2)
+			gds__free(rbdb->rbdb_buffer2);
+		gds__free(rbdb);
+		rbdb = next_db;
+	}
+}
+
+
+#ifdef CCH_DUMMY
+PAG CCH_fetch(register WIN * x, USHORT y, int z)
+{
+/**************************************
+ *
+ *	C C H _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	This routine lets me link in
+ *	DMP.C from JRD without having the
+ *	linker piss all over it.
+ *
+ **************************************/
+}
+
+
+PAG CCH_release(WIN * x)
+{
+/**************************************
+ *
+ *	C C H _ f e t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	This routine lets me link in
+ *	DMP.C from JRD without having the
+ *	linker piss all over it.
+ *
+ **************************************/
+}
+#endif
+
+
+SCHAR *RBDB_alloc(SLONG size)
+{
+/**************************************
+ *
+ *	R B D B _ a l l o c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Allocate and zero a piece of memory.
+ *
+ **************************************/
+	SCHAR *block, *p;
+
+	block = p = gds__alloc(size);
+	do
+		*p++ = 0;
+	while (--size);
+
+	return block;
+}
+
+
+void RBDB_close( RBDB rbdb)
+{
+/**************************************
+ *
+ *	R B D B _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	for (; rbdb; rbdb = rbdb->rbdb_next)
+		close(rbdb->rbdb_file.fil_file);
+}
+
+
+void RBDB_open( RBDB rbdb)
+{
+/**************************************
+ *
+ *	R B D B _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.
+ *
+ **************************************/
+
+	if ((rbdb->rbdb_file.fil_file = open(rbdb->rbdb_file.fil_name, O_RDWR, 0))
+		== -1)
+		db_error(errno);
+}
+
+
+PAG RBDB_read(RBDB rbdb, SLONG page_number)
+{
+/**************************************
+ *
+ *	R B D B _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a database page.
+ *
+ **************************************/
+	SCHAR *p;
+	SSHORT length, l;
+	int file;
+
+	file = rbdb->rbdb_file.fil_file;
+
+	if (lseek(file, page_number * rbdb->rbdb_page_size, 0) == -1)
+		db_error(errno);
+
+	for (p = (SCHAR *) rbdb->rbdb_buffer1, length = rbdb->rbdb_page_size;
+		 length > 0;) {
+		l = read(file, p, length);
+		if (l < 0)
+			db_error(errno);
+		else if (l == 0)
+			return NULL;
+		p += l;
+		length -= l;
+	}
+	rbdb->rbdb_file.fil_file = file;
+	return rbdb->rbdb_buffer1;
+}
+
+
+void RBDB_write( RBDB rbdb, PAG page, SLONG page_number)
+{
+/**************************************
+ *
+ *	R B D B _ w r i t e   ( u n i x )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write a database page.
+ *
+ **************************************/
+	ULONG page_size;
+	int fd;
+
+	page->pag_checksum = compute_checksum(rbdb, page);
+	page_size = rbdb->rbdb_page_size;
+	fd = rbdb->rbdb_file.fil_file;
+
+	if (lseek(fd, page_number * page_size, 0) == -1)
+		db_error(errno);
+	if (write(fd, page, page_size) == -1)
+		db_error(errno);
+}
+
+
+static void checksum( RBDB rbdb, ULONG lower, ULONG upper, UCHAR sw_fix)
+{
+/**************************************
+ *
+ *	c h e c k s u m
+ *
+ **************************************
+ *
+ * Functional description
+ *	read, compute, check, and correct
+ *	checksums in this database.
+ *
+ **************************************/
+	PAG page;
+	ULONG page_number;
+	USHORT old_checksum, new_checksum;
+	TEXT s[128];
+
+	for (page_number = lower; page_number <= upper; page_number++) {
+		if (!(page = RBDB_read(rbdb, page_number)))
+			return;
+		old_checksum = page->pag_checksum;
+		new_checksum = compute_checksum(rbdb, page);
+		if (sw_fix)
+			page->pag_checksum = new_checksum;
+		if (new_checksum == old_checksum)
+			sprintf(s, "checksum %5d is OK", old_checksum);
+		else
+			sprintf(s, "stored checksum %5d\tcomputed checksum %5d\t%s",
+					old_checksum, new_checksum, (sw_fix) ? "fixed" : "");
+		ib_printf("page %9d\t%s\n", page_number, s);
+	}
+}
+
+
+#ifndef ODS_4
+static USHORT compute_checksum( RBDB rbdb, PAG page)
+{
+/**************************************
+ *
+ *	c o m p u t e _ c h e c k s u m
+ *
+ **************************************
+ *
+ * Functional description
+ *	compute checksum for a V3 page.
+ *
+ **************************************/
+	ULONG checksum, *p, *end;
+	USHORT old_checksum;
+
+	end = (ULONG *) ((SCHAR *) page + rbdb->rbdb_page_size);
+	old_checksum = page->pag_checksum;
+	page->pag_checksum = 0;
+	p = (ULONG *) page;
+	checksum = 0;
+
+	do {
+		checksum += *p++;
+		checksum += *p++;
+		checksum += *p++;
+		checksum += *p++;
+		checksum += *p++;
+		checksum += *p++;
+		checksum += *p++;
+		checksum += *p++;
+	}
+	while (p < end);
+
+	page->pag_checksum = old_checksum;
+
+	if (checksum)
+		return checksum;
+
+/* If the page is all zeros, return an artificial checksum */
+
+	for (p = (ULONG *) page; p < end;)
+		if (*p++)
+			return checksum;
+
+/* Page is all zeros -- invent a checksum */
+
+	return 12345;
+}
+
+
+#else
+static USHORT compute_checksum( RBDB rbdb, PAG page)
+{
+/**************************************
+ *
+ *	c o m p u t e _ c h e c k s u m
+ *
+ **************************************
+ *
+ * Functional description
+ *	compute checksum for a V2 database
+ *	page.
+ *
+ **************************************/
+	ULONG x;
+	USHORT old_checksum, *p, *end;
+	union {
+		USHORT words[2];
+		ULONG whole;
+	} sum;
+
+#ifdef VAX
+#define LOW_WORD	0
+#define HIGH_WORD	1
+#else
+#define LOW_WORD	1
+#define HIGH_WORD	0
+#endif
+
+	end = (USHORT *) ((SCHAR *) page + rbdb->rbdb_page_size);
+	old_checksum = page->pag_checksum;
+	page->pag_checksum = 0;
+	sum.whole = 1;
+	p = (USHORT *) page;
+
+	do {
+		x = sum.whole;
+		x += x + *p++;
+		x += x + *p++;
+		x += x + *p++;
+		x += x + *p++;
+		x += x + *p++;
+		x += x + *p++;
+		x += x + *p++;
+		x += x + *p++;
+		sum.whole = x;
+		sum.words[LOW_WORD] += sum.words[HIGH_WORD];
+		sum.words[HIGH_WORD] = 0;
+	}
+	while (p < end);
+
+	page->pag_checksum = old_checksum;
+
+	return sum.words[LOW_WORD];
+}
+#endif
+
+
+static void db_error( int status)
+{
+/**************************************
+ *
+ *	d b _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	ib_printf(sys_errlist[status]);
+	exit(FINI_ERROR);
+}
+
+
+static void dump(
+				 IB_FILE * file,
+				 RBDB rbdb, ULONG lower, ULONG upper, UCHAR pg_type)
+{
+/**************************************
+ *
+ *	d u m p 
+ *
+ **************************************
+ *
+ * Functional description
+ *	dump the contents of some page
+ *	or pages in the database.
+ *
+ **************************************/
+	PAG page;
+	ULONG sequence;
+	ULONG *tip;
+	ULONG *p, *end;
+
+	sequence = 0;
+
+	if (rbdb->rbdb_last_page && upper == BIG_NUMBER)
+		upper = rbdb->rbdb_last_page;
+
+	while (page = RBDB_read(rbdb, lower)) {
+		if (page->pag_type == pag_transactions && tips) {
+			for (tip = tips; tip[sequence]; sequence++) {
+				if (tip[sequence] == lower)
+					break;
+				else if (!tip[sequence]) {
+					sequence = 0;
+					break;
+				}
+			}
+		}
+		else
+			sequence = 0;
+		if (pg_type && (page->pag_type != pg_type)) {
+			ib_printf("\nChanging page %d type from %d to %d\n", lower,
+					  page->pag_type, pg_type);
+			page->pag_type = pg_type;
+		}
+		DMP_fetched_page(page, lower, sequence, rbdb->rbdb_page_size);
+		for (p = (ULONG *) page, end =
+			 p + (rbdb->rbdb_page_size / sizeof(ULONG)) - 1; !*p && p < end;
+			 p++);
+		if (!*p)
+			ib_printf("    Page is all zeroes.\n");
+		if (sw_fudge)
+			RBDB_write(rbdb, page, lower);
+		if (++lower > upper)
+			break;
+	}
+}
+
+
+static void dump_tips( IB_FILE * file, RBDB rbdb)
+{
+/**************************************
+ *
+ *	d u m p _ t i p s 
+ *
+ **************************************
+ *
+ * Functional description
+ *	dump the contents of tip pages
+ *	in the database.
+ *
+ **************************************/
+	PAG page;
+	ULONG sequence;
+	ULONG *tip;
+
+	if (!tips)
+		ib_printf("not enough database.  Store headers and look there\n");
+
+	for (sequence = 1, tip = tips; *tip && (page = RBDB_read(rbdb, *tip));
+		 sequence++)
+		DMP_fetched_page(page, *tip++, sequence, rbdb->rbdb_page_size);
+}
+
+
+static void format_header(
+						  RBDB rbdb,
+						  HDR page,
+						  int page_size,
+						  ULONG oldest, ULONG active, ULONG next, ULONG imp)
+{
+/**************************************
+ *
+ *	f o r m a t _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format a header page from inputs
+ *
+ **************************************/
+
+	memset(page, 0, page_size);
+	page->hdr_page_size = page_size;
+	page->hdr_header.pag_type = pag_header;
+	page->hdr_ods_version = ODS_VERSION;
+	page->hdr_PAGES = 2;
+	page->hdr_oldest_transaction = oldest;
+	page->hdr_oldest_active = active;
+	page->hdr_next_transaction = next;
+#ifndef ODS_4
+	page->hdr_implementation = imp;
+#endif
+	page->hdr_header.pag_checksum = compute_checksum(rbdb, page);
+}
+
+
+static void format_index_root(
+							  IRT page,
+							  int page_size, SSHORT relation_id, SSHORT count)
+{
+/**************************************
+ *
+ *	f o r m a t _ i n d e x _ r o o t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format an index root page, without any indexes for a start
+ *
+ **************************************/
+
+	memset(page, 0, page_size);
+	page->irt_header.pag_type = pag_root;
+	page->irt_relation = relation_id;
+	page->irt_count = count;
+}
+
+
+static void format_pointer(
+						   PPG page,
+						   int page_size,
+						   SSHORT relation_id,
+						   SSHORT sequence,
+int eof, SSHORT count, SLONG * page_vector)
+{
+/**************************************
+ *
+ *	f o r m a t _ p o i n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Format a pointer page.  In addition of the buffer and page size,
+ *	we need a relation id, a pointer page sequence (within relation),
+ *	a flag indicated whether this is the last pointer page for the
+ *	relation, and a count and vector of pages to point to.
+ *
+ **************************************/
+
+	memset(page, 0, page_size);
+	page->ppg_header.pag_type = pag_pointer;
+	page->ppg_sequence = sequence;
+	page->ppg_relation = relation_id;
+	page->ppg_count = count;
+	page->ppg_min_space = 0;
+	page->ppg_max_space = count;
+	if (eof)
+		page->ppg_header.pag_flags |= ppg_eof;
+	memcpy(page->ppg_page, page_vector, count * sizeof(SLONG));
+}
+
+
+static void format_pip( PIP page, int page_size, int last_flag)
+{
+/**************************************
+ *
+ *	f o r m a t _ p i p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fake a fully RBDB_allocated (all pages RBDB_allocated) page inventory
+ *	page.  
+ *
+ **************************************/
+	SSHORT bytes;
+
+	page->pip_header.pag_type = pag_pages;
+	page->pip_header.pag_flags = 0;
+
+/* Set all page bits to zero, indicating RBDB_allocated */
+
+	bytes = page_size - OFFSETA(PIP, pip_bits);
+	memset(page->pip_bits, 0, bytes);
+
+/* If this is the last pip, make sure the last page (which
+   will become the next pip) is marked free.  When the
+   time comes to RBDB_allocate the next page, that page will
+   be formatted as the next pip. */
+
+	if (last_flag)
+		page->pip_bits[bytes - 1] |= 1 << 7;
+}
+
+
+static void format_tip( TIP page, int page_size, SLONG next_page)
+{
+/**************************************
+ *
+ *	f o r m a t _ t i p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fake a fully commit transaction inventory page.
+ *
+ **************************************/
+	SSHORT bytes;
+
+	page->tip_header.pag_type = pag_transactions;
+	page->tip_header.pag_flags = 0;
+
+/* The "next" tip page number is included for redundancy, but is not actually
+   read by the engine, so can be safely left zero.  If known, it would nice
+   to supply it. 
+*/
+
+	page->tip_next = next_page;
+
+/* Code for committed transaction is 3, so just fill all
+   bytes with -1 */
+
+	bytes = page_size - OFFSETA(TIP, tip_transactions);
+	memset(page->tip_transactions, -1, bytes);
+}
+
+
+static void get_next_file( RBDB rbdb, HDR header)
+{
+/**************************************
+ *
+ *	g e t _ n e x t _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	If there's another file as part of
+ *	this database, get it now.
+ *
+ **************************************/
+	UCHAR *p, *end;
+	RBDB next_rbdb, *next;
+
+	next = &rbdb->rbdb_next;
+	for (p = header->hdr_data, end = p + header->hdr_page_size;
+		 p < end && *p != HDR_end; p += 2 + p[1])
+		if (*p == HDR_file) {
+			next_rbdb = (RBDB) RBDB_alloc(sizeof(rbdb) + (SSHORT) p[1]);
+			next_rbdb->rbdb_file.fil_length = (SSHORT) p[1];
+			strncpy(next_rbdb->rbdb_file.fil_name, p + 2, (SSHORT) p[1]);
+			*next = next_rbdb;
+			next = &next_rbdb->rbdb_next;
+			break;
+		}
+}
+
+
+static void get_range(
+					  TEXT *** argv,
+					  TEXT ** end, ULONG * lower, ULONG * upper)
+{
+/**************************************
+ *
+ *	g e t _ r a n g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	get a range out of the argument
+ *	vector;
+ *
+ **************************************/
+	TEXT c, *p;
+	SWC token;
+	struct swc token_space;
+
+	token = &token_space;
+
+	if (*argv < end) {
+		get_switch(*argv, token);
+		if (token->swc_switch)
+			return;
+		++*argv;
+		for (p = token->swc_string; *p; p++)
+			if (*p < '0' || *p > '9') {
+				c = *p;
+				*p++ = 0;
+				break;
+			}
+		*upper = *lower = (ULONG) atoi(token->swc_string);
+		if (*p && (c == ':' || c == ',')) {
+			if (*p == '*')
+				*upper = BIG_NUMBER;
+			else
+				*upper = (ULONG) atoi(p);
+			return;
+		}
+	}
+	if (*argv < end) {
+		get_switch(*argv, token);
+		if (token->swc_switch)
+			return;
+		if ((*token->swc_string == ':') || (*token->swc_string == ',')) {
+			p = token->swc_string;
+			if (*++p) {
+				if (*p == '*')
+					*upper = BIG_NUMBER;
+				else
+					*upper = (ULONG) atoi(p);
+			}
+			else if (*argv++ < end) {
+				get_switch(*argv, token);
+				if (token->swc_switch)
+					return;
+			}
+		}
+		if (*token->swc_string == '*')
+			*upper = BIG_NUMBER;
+		else
+			*upper = (ULONG) atoi(token->swc_string);
+		*argv++;
+	}
+}
+
+
+static void get_switch( TEXT ** argv, SWC token)
+{
+/**************************************
+ *
+ *	g e t _ s w i t c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	get the next argument in the argument
+ * 	vector;
+ *
+ **************************************/
+	int temp;
+
+	token->swc_string = *argv;
+
+	if (*token->swc_string == '-') {
+		token->swc_switch = TRUE;
+		token->swc_string++;
+	}
+	else
+		token->swc_switch = FALSE;
+
+	temp = strlen(token->swc_string) - 1;
+
+	if (token->swc_string[temp] == ',') {
+		token->swc_string[temp] = '\0';
+		token->swc_comma = TRUE;
+	}
+	else
+		token->swc_comma = FALSE;
+}
+
+
+static void move( SCHAR * from, SCHAR * to, SSHORT length)
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move some stuff.
+ *
+ **************************************/
+
+	do
+		*to++ = *from++;
+	while (--length);
+}
+
+
+static HDR open_database( RBDB rbdb, ULONG pg_size)
+{
+/**************************************
+ *
+ *	o p e n _ d a t a b a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database and setup the
+ *	rbdb.  Return a pointer to the
+ *	header page page header;
+ *
+ **************************************/
+	UCHAR temp[1024];
+	HDR header;
+
+	RBDB_open(rbdb);
+
+	rbdb->rbdb_page_size = sizeof(temp);
+	rbdb->rbdb_buffer1 = (PAG) temp;
+	rbdb->rbdb_valid = TRUE;
+
+	header = (HDR) RBDB_read(rbdb, (SLONG) 0);
+
+	if (header->hdr_header.pag_type != pag_header) {
+		ib_printf("header page has wrong type, expected %d found %d!\n",
+				  pag_header, header->hdr_header.pag_type);
+		rbdb->rbdb_valid = FALSE;
+	}
+
+	if (header->hdr_ods_version != ODS_VERSION) {
+		ib_printf("Wrong ODS version, expected %d, encountered %d.\n",
+				  ODS_VERSION, header->hdr_ods_version);
+		rbdb->rbdb_valid = FALSE;
+	}
+
+	if (pg_size && (pg_size != header->hdr_page_size)) {
+		ib_printf("Using page size %d\n", pg_size);
+		header->hdr_page_size = pg_size;
+		rbdb->rbdb_valid = FALSE;
+	}
+	else if (!header->hdr_page_size) {
+		ib_printf("Using page size 1024\n");
+		header->hdr_page_size = 1024;
+		rbdb->rbdb_valid = FALSE;
+	}
+
+	ib_printf("\nDatabase \"%s\"\n\n", rbdb->rbdb_file.fil_name);
+
+
+	rbdb->rbdb_page_size = header->hdr_page_size;
+	rbdb->rbdb_map_count = rbdb->rbdb_map_length / rbdb->rbdb_page_size;
+	rbdb->rbdb_buffer1 = (PAG) RBDB_alloc(rbdb->rbdb_page_size);
+	rbdb->rbdb_buffer2 = (PAG) RBDB_alloc(rbdb->rbdb_page_size);
+
+	return header;
+}
+
+
+static void print_db_header( IB_FILE * file, HDR header)
+{
+/**************************************
+ *
+ *	p r i n t _ d b _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print database header page.
+ *
+ **************************************/
+	UCHAR *p, *end;
+	SLONG number;
+	struct tm time;
+
+	ib_fprintf(file, "Database header page information:\n");
+	ib_fprintf(file, "    Page size\t\t\t%d\n", header->hdr_page_size);
+	ib_fprintf(file, "    ODS version\t\t\t%d\n", header->hdr_ods_version);
+	ib_fprintf(file, "    PAGES\t\t\t%d\n", header->hdr_PAGES);
+	ib_fprintf(file, "    next page\t\t\t%d\n", header->hdr_next_page);
+	ib_fprintf(file, "    Oldest transaction\t\t%ld\n",
+			   header->hdr_oldest_transaction);
+	ib_fprintf(file, "    Oldest active\t\t%ld\n", header->hdr_oldest_active);
+	ib_fprintf(file, "    Oldest snapshot\t\t%ld\n",
+			   header->hdr_oldest_snapshot);
+	ib_fprintf(file, "    Next transaction\t\t%ld\n",
+			   header->hdr_next_transaction);
+
+	ib_fprintf(file, "    Data pages per pointer page\t%ld\n",
+			   gdbb->tdbb_database->dbb_dp_per_pp);
+	ib_fprintf(file, "    Max records per page\t%ld\n",
+			   gdbb->tdbb_database->dbb_max_records);
+
+#ifdef gds_version3
+
+/*
+ib_fprintf ("    Sequence number    %d\n", header->hdr_sequence);
+ib_fprintf ("    Creation date    \n", header->hdr_creation_date);
+*/
+
+	ib_fprintf(file, "    Next attachment ID\t\t%ld\n",
+			   header->hdr_attachment_id);
+	ib_fprintf(file, "    Implementation ID\t\t%ld\n",
+			   header->hdr_implementation);
+	ib_fprintf(file, "    Shadow count\t\t%ld\n", header->hdr_shadow_count);
+
+#endif
+
+	gds__decode_date(header->hdr_creation_date, &time);
+
+	ib_fprintf(file, "    Creation date:\t\t%s %d, %d %d:%02d:%02d\n",
+			   months[time.tm_mon], time.tm_mday, time.tm_year + 1900,
+			   time.tm_hour, time.tm_min, time.tm_sec);
+	ib_fprintf(file, "    Cache buffers\t\t%ld\n", header->hdr_cache_buffers);
+	ib_fprintf(file, "    Bumped transaction\t\t%ld\n",
+			   header->hdr_bumped_transaction);
+
+	ib_fprintf(file, "\n    Variable header data:\n");
+
+	for (p = header->hdr_data, end = p + header->hdr_page_size;
+		 p < end && *p != HDR_end; p += 2 + p[1])
+		switch (*p) {
+		case HDR_root_file_name:
+			ib_fprintf(file, "\tRoot file name: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_journal_server:
+			ib_fprintf(file, "\tJournal server: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_file:
+			ib_fprintf(file, "\tContinuation file: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_last_page:
+			move(p + 2, &number, sizeof(number));
+			ib_fprintf(file, "\tLast logical page: %ld\n", number);
+			break;
+
+		case HDR_unlicensed:
+			move(p + 2, &number, sizeof(number));
+			ib_fprintf(file, "\tUnlicensed accesses: %ld\n", number);
+			break;
+
+#ifdef gds_version3
+		case HDR_sweep_interval:
+			move(p + 2, &number, sizeof(number));
+			ib_fprintf(file, "\tSweep interval: %ld\n", number);
+			break;
+
+		case HDR_log_name:
+			ib_fprintf(file, "\tReplay logging file: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_journal_file:
+			ib_fprintf(file, "\tJournal file: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_password_file_key:
+			ib_fprintf(file, "\tPassword file key: (can't print)\n");
+			break;
+
+		case HDR_backup_info:
+			ib_fprintf(file, "\tBackup info: (can't print)\n");
+			break;
+
+		case HDR_cache_file:
+			ib_fprintf(file, "\tShared cache file: %*s\n", p[1], p + 2);
+			break;
+#endif
+
+		default:
+			ib_fprintf(file, "\tUnrecognized option %d, length %d\n", p[0],
+					   p[1]);
+		}
+
+	ib_fprintf(file, "\n\n");
+}
+
+
+static void rebuild( RBDB rbdb)
+{
+/**************************************
+ *
+ *	r e b u i l d 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write out an improved database.
+ *
+ **************************************/
+	ULONG number;
+	ULONG *page_numbers;
+	PAG page;
+	ULONG page_size;
+	PPG pointer;
+
+	page_size = rbdb->rbdb_page_size;
+	page = (PAG) rbdb->rbdb_buffer1;
+	page_numbers = PPG_NUMBERS;
+	for (number = 5898; (number < 5899) && (page = RBDB_read(rbdb, number));
+		 number++) {
+		pointer = (PPG) page;
+/*    format_pointer (page, page_size, 25, 3, 1, 37, page_numbers);   */
+
+		RBDB_write(rbdb, page, number);
+	}
+}
+
+
+static void write_headers(
+						  IB_FILE * file, RBDB rbdb, ULONG lower, ULONG upper)
+{
+/**************************************
+ *
+ *	w r i t e _ h e a d e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print out the page headers.
+ *
+ **************************************/
+	ULONG page_number;
+	PAG page;
+	BLP blob;
+	BTR bucket;
+	DPG data;
+	IRT index_root;
+	PIP pip;
+	PPG pointer;
+
+	for (page_number = lower;
+		 (page_number <= upper) && (page = RBDB_read(rbdb, page_number));
+		 page_number++) {
+		ib_fprintf(file, "page %d, ", page_number);
+
+		switch (page->pag_type) {
+		case pag_header:
+			ib_fprintf(file, "header page, checksum %d\n",
+					   page->pag_checksum);
+			print_db_header(file, (HDR) page);
+			break;
+
+		case pag_pages:
+			ib_fprintf(file, "page inventory page, checksum %d\n",
+					   page->pag_checksum);
+			pip = (PIP) page;
+			ib_fprintf(file, "\tlowest free page %d\n\n", pip->pip_min);
+			break;
+
+		case pag_transactions:
+			ib_fprintf(file, "TIP page, checksum %d\n", page->pag_checksum);
+			ib_fprintf(file, "\tnext tip for database %ld\n\n",
+					   ((TIP) page)->tip_next);
+			break;
+
+		case pag_pointer:
+			ib_fprintf(file, "pointer page, checksum %d\n",
+					   page->pag_checksum);
+			pointer = (PPG) page;
+			ib_fprintf(file,
+					   "\trelation %d, sequence %ld, next pip %ld, active slots %d\n",
+					   pointer->ppg_relation, pointer->ppg_sequence,
+					   pointer->ppg_next, pointer->ppg_count);
+			ib_fprintf(file,
+					   "\tfirst slot with space %d, last slot with space %d\n",
+					   pointer->ppg_min_space, pointer->ppg_max_space);
+			ib_fprintf(file, "\t%s\n",
+					   (pointer->ppg_header.
+						pag_flags & ppg_eof) ? "last pointer for relation\n" :
+					   "");
+			break;
+
+		case pag_data:
+			ib_fprintf(file, "data page, checksum %d\n", page->pag_checksum);
+			data = (DPG) page;
+			ib_fprintf(file,
+					   "\trelation %d, sequence %ld, records on page %d\n",
+					   data->dpg_relation, data->dpg_sequence,
+					   data->dpg_count);
+			ib_fprintf(file, "\t%s%s%s%s\n",
+					   (data->dpg_header.
+						pag_flags & dpg_orphan) ? "orphan " : "",
+					   (data->dpg_header.pag_flags & dpg_full) ? "full " : "",
+					   (data->dpg_header.
+						pag_flags & dpg_large) ? "contains a large object" :
+					   "", (data->dpg_header.pag_flags) ? "\n" : "");
+			break;
+
+		case pag_root:
+			ib_fprintf(file, "index root page, checksum %d\n",
+					   page->pag_checksum);
+			index_root = (IRT) page;
+			ib_fprintf(file, "\trelation %d, number of indexes %d\n\n",
+					   index_root->irt_relation, index_root->irt_count);
+			break;
+
+		case pag_index:
+			ib_fprintf(file, "btree page (bucket), checksum %d\n",
+					   page->pag_checksum);
+			bucket = (BTR) page;
+			ib_fprintf(file, "\trelation %d, right sibling bucket: %ld,\n",
+					   bucket->btr_relation, bucket->btr_sibling);
+			ib_fprintf(file, "\tdata length %d, index id %d, level %d\n",
+					   bucket->btr_length, bucket->btr_id, bucket->btr_level);
+			ib_fprintf(file, "\t%s%s%s\n",
+					   (bucket->btr_header.
+						pag_flags & btr_leftmost) ? "leftmost " : "",
+					   (bucket->btr_header.
+						pag_flags & btr_not_prop) ? "all duplicates " : "",
+					   (bucket->btr_header.
+						pag_flags & btr_marked) ? "marked for delete" : "");
+			break;
+
+		case pag_blob:
+			ib_fprintf(file, "blob page, checksum %d\n", page->pag_checksum);
+			blob = (BLP) page;
+			ib_fprintf(file, "\tlead page: %ld, sequence: %ld, length: %d\n",
+					   blob->blp_lead_page, blob->blp_sequence,
+					   blob->blp_length);
+			ib_fprintf(file, "\tcontains %s\n",
+					   (blob->blp_header.
+						pag_flags & blp_pointers) ? "pointers" : "data");
+			break;
+#ifndef ODS_4
+		case pag_ids:
+			ib_fprintf(file, "generator page, checksum %d\n\n",
+					   page->pag_checksum);
+			break;
+
+		case pag_log:
+			ib_fprintf(dbg_file, "write-ahead log info page, checksum %d\n\n",
+					   page->pag_checksum);
+			break;
+
+
+#endif
+		default:
+			ib_fprintf(file, "unknown page type\n\n");
+			break;
+		}
+	}
+}
diff --git a/src/utilities/rebuild.gdl b/src/utilities/rebuild.gdl
new file mode 100644
index 0000000000..3f1f5f0316
--- /dev/null
+++ b/src/utilities/rebuild.gdl
@@ -0,0 +1,147 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+define database "rebuild.gdb" ;
+define relation full_pages
+    number	long,
+    type	short,
+    flags	short,
+    checksum	short,
+    generation	short,
+    relation	short,
+    sequence	long,
+    blp_lead_page   long,
+    blp_length	short,
+    btr_sibling	long,
+    btr_length	short,
+    btr_id	    	short,
+    btr_level	short,    
+    dpg_count	short,
+    irt_count	short,
+    hdr_page_size	short,
+    hdr_ods_version	short,
+    hdr_pages	long,
+    hdr_oldest_trans long,
+    hdr_oldest_active long,
+    hdr_next_trans	long,
+    hdr_flags	short,
+    hdr_creation_date	date,
+    hdr_attachment_id	long,
+    hdr_implementation	long,
+    hdr_shadow_count	long,
+    pip_min	long,
+    ppg_next	long,
+    ppg_count	short,
+    ppg_min_space	short,
+    ppg_max_space	short,
+    tip_next	long;
+
+
+define view pages of p in full_pages
+    p.number,
+    p.type,
+    p.flags,
+    p.checksum,
+    p.generation;
+    
+define view header of p in full_pages with p.type = 1
+    p.number, 
+    p.flags, 
+    p.checksum, 
+    p.generation, 
+    page_size from p.hdr_page_size,
+    ods_version from p.hdr_ods_version,
+    pages_pointer_page from p.hdr_pages,
+    oldest_transaction from p.hdr_oldest_trans,
+    oldest_active from p.hdr_oldest_active,
+    next_transaction from p.hdr_next_trans,
+    p.sequence,
+    p.hdr_flags,
+    creation_date from p.hdr_creation_date,
+    attachment_id from p.hdr_attachment_id,
+    implementation from p.hdr_implementation,
+    shadow_count from p.hdr_shadow_count;
+ 
+define view pips of p in full_pages with p.type = 2
+    p.number, 
+    p.flags, 
+    p.checksum, 
+    p.generation, 
+    minimum from p.pip_min;
+
+define view tips of p in full_pages with p.type = 3
+    p.number, 
+    p.flags, 
+    p.checksum, 
+    p.generation, 
+    next from p.tip_next;
+    
+define view pointer_pages of p in full_pages with p.type = 4
+    p.number, 
+    p.flags, 
+    p.checksum, 
+    p.generation, 
+    p.relation,
+    next from p.ppg_next,
+    count from p.ppg_count,
+    min_space from p.ppg_min_space,
+    max_space from p.ppg_max_space;
+
+define view data_pages of p in full_pages with p.type = 5
+    p.number, 
+    p.flags, 
+    p.checksum, 
+    p.generation, 
+    p.sequence,
+    p.relation, 
+    count from p.dpg_count;
+
+define view index_root_pages of p in full_pages with p.type = 6
+    p.number, 
+    p.flags, 
+    p.checksum, 
+    p.generation, 
+    p.relation,
+    count from p.irt_count;
+
+define view index_buckets of p in full_pages with p.type = 7
+    p.number, 
+    p.flags, 
+    p.checksum, 
+    p.generation,
+    sibling from p.btr_sibling,
+    p.relation,
+    length from p.btr_length,
+    index_id from p.btr_id,
+    level from p.btr_level;
+
+define view blob_pages of p in full_pages with p.type = 8
+    p.number, 
+    p.flags, 
+    p.checksum, 
+    p.generation,
+    lead_page from p.blp_lead_page,
+    p.sequence,
+    length from p.blp_length;
+
+define view generator_pages of p in full_pages with p.type = 9
+    p.number, 
+    p.flags, 
+    p.checksum, 
+    p.generation;
+
diff --git a/src/utilities/rebuild.h b/src/utilities/rebuild.h
new file mode 100644
index 0000000000..7c1e019d2e
--- /dev/null
+++ b/src/utilities/rebuild.h
@@ -0,0 +1,58 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+#ifndef _UTILITIES_REBUILD_H_
+#define _UTILITIES_REBUILD_H_
+
+#include "../jrd/common.h"
+#include "../jrd/ods.h"
+
+#ifndef gds_version3
+#define ODS_4		1
+#endif
+
+#define BIG_NUMBER	(ULONG) -1
+
+typedef struct fil {
+    int		fil_file;
+    SSHORT	fil_length;
+    SCHAR	fil_name[1];
+} *FIL;
+
+typedef struct rbdb {
+    ULONG	rbdb_map_length; 
+    int		rbdb_map_base;
+    int		rbdb_map_count;
+    SCHAR	*rbdb_map_region;
+    SSHORT	rbdb_page_size;
+    SCHAR	rbdb_valid;
+    SLONG	rbdb_window_offset;
+    SLONG	rbdb_last_page;
+    PAG		rbdb_buffer1;
+    PAG		rbdb_buffer2;
+    struct rbdb	*rbdb_next;
+    struct fil	rbdb_file;
+} *RBDB;
+
+typedef struct swc { 
+    SCHAR    swc_switch;
+    SCHAR    swc_comma;
+    TEXT    *swc_string;
+} *SWC;
+
+#endif /* _UTILITIES_REBUILD_H_ */
diff --git a/src/utilities/regis_proto.h b/src/utilities/regis_proto.h
new file mode 100644
index 0000000000..2e817f2542
--- /dev/null
+++ b/src/utilities/regis_proto.h
@@ -0,0 +1,30 @@
+/*
+ *	PROGRAM:	Windows NT installation utilities
+ *	MODULE:		regis_proto.h
+ *	DESCRIPTION:	Prototypes for NT registration functions.
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _UTILITIES_REGIS_PROTO_H_
+#define _UTILITIES_REGIS_PROTO_H_
+
+extern USHORT	REGISTRY_install (HKEY, TEXT *, USHORT (*)());
+extern USHORT	REGISTRY_remove (HKEY, USHORT, USHORT (*)());
+
+#endif /* _UTILITIES_REGIS_PROTO_H_ */
diff --git a/src/utilities/registry.cpp b/src/utilities/registry.cpp
new file mode 100644
index 0000000000..0b2df0731c
--- /dev/null
+++ b/src/utilities/registry.cpp
@@ -0,0 +1,204 @@
+/*
+ *	PROGRAM:	Windows NT registry installation program
+ *	MODULE:		registry.c
+ *	DESCRIPTION:	Registry update routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <windows.h>
+#include "../jrd/common.h"
+#include "../jrd/license.h"
+#include "../utilities/install_nt.h"
+#include "../utilities/regis_proto.h"
+
+static USHORT remove_subkeys(HKEY, USHORT, USHORT(*)());
+
+
+USHORT REGISTRY_install(
+						HKEY hkey_node,
+						TEXT * directory, USHORT(*err_handler) ())
+{
+/**************************************
+ *
+ *	R E G I S T R Y _ i n s t a l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Install InterBase in the registry.
+ *
+ **************************************/
+	HKEY hkey_kit;
+	DWORD disp;
+	TEXT path_name[260], *p;
+	USHORT len;
+	SLONG status;
+
+	if ((status = RegCreateKeyEx(hkey_node,
+								 "SOFTWARE\\Borland\\InterBase\\CurrentVersion",
+								 0,
+								 "",
+								 REG_OPTION_NON_VOLATILE,
+								 KEY_WRITE,
+								 NULL, &hkey_kit, &disp)) != ERROR_SUCCESS) {
+		return (*err_handler) (status, "RegCreateKeyEx", NULL);
+	}
+
+	len = GetFullPathName(directory, sizeof(path_name), path_name, &p);
+	if (len && path_name[len - 1] != '/' && path_name[len - 1] != '\\') {
+		path_name[len++] = '\\';
+		path_name[len] = 0;
+	}
+
+	if ((status = RegSetValueEx(hkey_kit, "RootDirectory", 0,
+								REG_SZ, path_name,
+								(DWORD) (len + 1))) != ERROR_SUCCESS
+		|| (status =
+			RegSetValueEx(hkey_kit, "Version", 0, REG_SZ, GDS_VERSION,
+						  (DWORD) sizeof(GDS_VERSION))) != ERROR_SUCCESS) {
+		(*err_handler) (status, "RegSetValueEx", hkey_kit);
+		if (disp == REG_CREATED_NEW_KEY)
+			REGISTRY_remove(hkey_node, TRUE, err_handler);
+		return FAILURE;
+	}
+
+	RegCloseKey(hkey_kit);
+
+	return SUCCESS;
+}
+
+
+USHORT REGISTRY_remove(HKEY hkey_node,
+					   USHORT silent_flag, USHORT(*err_handler) ())
+{
+/**************************************
+ *
+ *	R E G I S T R Y _ r e m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove InterBase from the registry.
+ *
+ **************************************/
+	HKEY hkey_kit;
+	USHORT ret;
+	SLONG status;
+
+	if ((status = RegOpenKeyEx(hkey_node,
+							   "SOFTWARE\\Borland\\InterBase",
+							   0,
+							   KEY_ENUMERATE_SUB_KEYS | KEY_QUERY_VALUE |
+							   KEY_WRITE, &hkey_kit)) != ERROR_SUCCESS) {
+		if (silent_flag)
+			return FAILURE;
+		return (*err_handler) (status, "RegOpenKeyEx", NULL);
+	}
+
+	ret = remove_subkeys(hkey_kit, silent_flag, err_handler);
+
+	RegCloseKey(hkey_kit);
+
+	if (ret == FAILURE)
+		return FAILURE;
+
+	if (status = RegDeleteKey(hkey_node, "SOFTWARE\\Borland\\InterBase")) {
+		if (silent_flag)
+			return FAILURE;
+		return (*err_handler) (status, "RegDeleteKey", NULL);
+	}
+
+	return SUCCESS;
+}
+
+
+static USHORT remove_subkeys(
+							 HKEY hkey,
+							 USHORT silent_flag, USHORT(*err_handler) ())
+{
+/**************************************
+ *
+ *	r e m o v e _ s u b k e y s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove all sub-keys of an InterBase key from the registry.
+ *
+ **************************************/
+	TEXT *sub_key, buffer[260], *p;
+	DWORD n_sub_keys, max_sub_key, sub_key_len, buf_len, i, status;
+	FILETIME last_write_time;
+	HKEY hkey_sub;
+	USHORT ret;
+
+	buf_len = sizeof(buffer);
+	status = RegQueryInfoKey(hkey,
+							 buffer, &buf_len,
+							 NULL,
+							 &n_sub_keys,
+							 &max_sub_key,
+							 &i, &i, &i, &i, &i, &last_write_time);
+	if (status != ERROR_SUCCESS && status != ERROR_MORE_DATA) {
+		if (silent_flag)
+			return FAILURE;
+		return (*err_handler) (status, "RegQueryInfoKey", NULL);
+	}
+
+	sub_key = (++max_sub_key > sizeof(buffer)) ?
+		(TEXT *) malloc((SLONG) max_sub_key) : buffer;
+
+	for (i = 0, p = NULL; i < n_sub_keys; i++) {
+		sub_key_len = max_sub_key;
+		if ((status = RegEnumKeyEx(hkey, i, sub_key, &sub_key_len,
+								   NULL, NULL, NULL,
+								   &last_write_time)) != ERROR_SUCCESS) {
+			p = "RegEnumKeyEx";
+			break;
+		}
+		if ((status = RegOpenKeyEx(hkey, sub_key,
+								   0,
+								   KEY_ENUMERATE_SUB_KEYS | KEY_QUERY_VALUE |
+								   KEY_WRITE, &hkey_sub)) != ERROR_SUCCESS) {
+			p = "RegOpenKeyEx";
+			break;
+		}
+		ret = remove_subkeys(hkey_sub, silent_flag, err_handler);
+		RegCloseKey(hkey_sub);
+		if (ret == FAILURE)
+			return FAILURE;
+		if ((status = RegDeleteKey(hkey, sub_key)) != ERROR_SUCCESS) {
+			p = "RegDeleteKey";
+			break;
+		}
+	}
+
+	if (buffer != sub_key)
+		free(sub_key);
+
+	if (p) {
+		if (silent_flag)
+			return FAILURE;
+		return (*err_handler) (status, p, NULL);
+	}
+
+	return SUCCESS;
+}
diff --git a/src/utilities/relay.cpp b/src/utilities/relay.cpp
new file mode 100644
index 0000000000..1b13ca3c87
--- /dev/null
+++ b/src/utilities/relay.cpp
@@ -0,0 +1,106 @@
+/*
+ *	PROGRAM:	UNIX signal relay program
+ *	MODULE:		relay.c
+ *	DESCRIPTION:	Signal relay program
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <sys/param.h>
+#include <signal.h>
+
+#include "../jrd/common.h"
+#include "../jrd/license.h"
+
+#ifndef NOFILE
+#define NOFILE		20
+#endif
+
+
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Wait on a pipe for a message, then forward a signal.
+ *
+ **************************************/
+	SLONG msg[3];
+	int fd, n;
+	TEXT **end, *p, c;
+
+#ifndef DEBUG
+	if (setreuid(0, 0) < 0)
+		ib_printf("gds_relay: couldn't set uid to superuser\n");
+	SETPGRP;
+	signal(SIGINT, SIG_IGN);
+	signal(SIGQUIT, SIG_IGN);
+#endif
+
+/* Get the file descriptor ID - if it is present - make sure it's valid */
+	if (argc < 2 || (!(fd = atoi(argv[1])) && strcmp(argv[1], "0")))
+		fd = -1;
+
+	end = argv + argc;
+	while (argv < end) {
+		p = *argv++;
+		if (*p++ == '-')
+			while (c = *p++)
+				switch (UPPER(c)) {
+				case 'Z':
+					ib_printf("Interbase relay version %s\n", GDS_VERSION);
+					exit(FINI_OK);
+				}
+	}
+
+	if (fd == -1)
+		exit(FINI_OK);
+
+/* Close all files, except for the pipe input */
+	for (n = 0; n < NOFILE; n++)
+#ifdef DEV_BUILD
+		/* Don't close ib_stderr - we might need to report something */
+		if ((n != fd) && (n != 2))
+#else
+		if (n != fd)
+#endif
+			close(n);
+
+	while (read(fd, msg, sizeof(msg)) == sizeof(msg)) {
+#ifdef DEV_BUILD
+		/* This is #ifdef for DEV_BUILD just in case a V3 client will
+		 * attempt communication with this V4 version.
+		 */
+		if (msg[2] != (msg[0] ^ msg[1])) {
+			ib_fprintf(ib_stderr, "gds_relay received inconsistant message");
+		}
+#endif
+		if (kill(msg[0], msg[1])) {
+#ifdef DEV_BUILD
+			ib_fprintf(ib_stderr, "gds_relay error on kill()");
+#endif
+		};
+	}
+
+	exit(FINI_OK);
+}
diff --git a/src/utilities/rmet.e b/src/utilities/rmet.e
new file mode 100644
index 0000000000..8f750b9a0b
--- /dev/null
+++ b/src/utilities/rmet.e
@@ -0,0 +1,95 @@
+/*
+ *	PROGRAM:	JRD Rebuild scrambled database
+ *	MODULE:		rmet.e
+ *	DESCRIPTION:	Crawl around the guts of a database
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../include/jrd/gds.h"
+#include "../jrd/jrd.h"
+#include "../jrd/tra.h"
+#include "../jrd/pag.h"
+#include "../utilities/rebuild.h"
+#include "../utilities/rebui_proto.h"
+#include "../utilities/rmet_proto.h"
+#include "../jrd/gds_proto.h"
+
+DATABASE DB = STATIC FILENAME "rebuild.gdb";
+
+
+ULONG *RMET_tips(TEXT * db_in)
+{
+/**************************************
+ *
+ *	R M E T _ t i p s
+ *
+ **************************************
+ *
+ * Functional description
+ *	crawl into the pages relation and
+ *	build a list of tips in order
+ *
+ **************************************/
+	ULONG last, *tip, *tips;
+
+	READY GDS_VAL(db_in) AS DB
+	ON_ERROR
+		gds__print_status(gds__status);
+		ib_printf("can't open the databse so skip the tip list\n");
+		return NULL;
+	END_ERROR;
+	START_TRANSACTION
+	ON_ERROR
+		gds__print_status(gds__status);
+		ib_printf("can't start a transaction so skip the tip list\n");
+		FINISH DB;
+		return NULL;
+	END_ERROR;
+
+	last = 0;
+	FOR X IN RDB$PAGES WITH X.RDB$PAGE_TYPE = pag_transactions
+		last++;
+	END_FOR
+	ON_ERROR
+		gds__print_status(gds__status);
+		ib_printf("can't read RDB$PAGES, so skip the tip list\n");
+		FINISH DB;
+		return NULL;
+	END_ERROR;
+
+	tips = tip = (ULONG *) RBDB_alloc(++last * sizeof(ULONG));
+
+	FOR X IN RDB$PAGES WITH X.RDB$PAGE_TYPE = pag_transactions
+		{
+			*tip = X.RDB$PAGE_NUMBER;
+			tip++;
+		}
+	END_FOR
+	ON_ERROR
+		gds__print_status(gds__status);
+		ib_printf("can't re-read RDB$PAGES, so skip the tip list\n");
+		FINISH DB;
+		return NULL;
+	END_ERROR;
+
+	COMMIT;
+	FINISH;
+
+	return tips;
+}
diff --git a/src/utilities/rmet_proto.h b/src/utilities/rmet_proto.h
new file mode 100644
index 0000000000..bd5f89839f
--- /dev/null
+++ b/src/utilities/rmet_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	JRD Rebuild scrambled database
+ *	MODULE:		rmet_proto.h
+ *	DESCRIPTION:	Prototype header file for rmet.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _UTILITIES_RMET_PROTO_H_
+#define _UTILITIES_RMET_PROTO_H_
+
+extern ULONG	*RMET_tips (TEXT *);
+
+#endif /* _UTILITIES_RMET_PROTO_H_ */
diff --git a/src/utilities/rstor_proto.h b/src/utilities/rstor_proto.h
new file mode 100644
index 0000000000..f5e72901b3
--- /dev/null
+++ b/src/utilities/rstor_proto.h
@@ -0,0 +1,29 @@
+/*
+ *	PROGRAM:	JRD Rebuild scrambled database
+ *	MODULE:		rstor_proto.h
+ *	DESCRIPTION:	Prototype header file for rstore.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _UTILITIES_RSTOR_PROTO_H_
+#define _UTILITIES_RSTOR_PROTO_H_
+
+extern void	RSTORE (struct rbdb *);
+
+#endif /* _UTILITIES_RSTOR_PROTO_H_ */
diff --git a/src/utilities/rstore.e b/src/utilities/rstore.e
new file mode 100644
index 0000000000..6e5c5e4b8b
--- /dev/null
+++ b/src/utilities/rstore.e
@@ -0,0 +1,256 @@
+/*
+ *	PROGRAM:	JRD Rebuild scrambled database
+ *	MODULE:		rstore.e
+ *	DESCRIPTION:	Store page headers for analysis
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../include/jrd/gds.h"
+#include "../utilities/rebuild.h"
+#include "../utilities/rebui_proto.h"
+#include "../utilities/rstor_proto.h"
+#include "../jrd/gds_proto.h"
+
+DATABASE DB = STATIC FILENAME "rebuild.gdb";
+
+static void store_headers(RBDB);
+
+
+void RSTORE( RBDB rbdb)
+{
+/**************************************
+ *
+ *	R S T O R E
+ *
+ **************************************
+ *
+ * Functional description
+ *	write the contents of page headers
+ *	into a database.
+ *
+ **************************************/
+
+	READY
+	ON_ERROR
+		gds__print_status(gds__status);
+		ib_printf("can't open the documentaton database\n");
+		FINISH;
+		return;
+	END_ERROR;
+	START_TRANSACTION
+	ON_ERROR
+		gds__print_status(gds__status);
+		ib_printf("can't start a transaction on the documentaton database\n");
+		FINISH;
+		return;
+	END_ERROR;
+	store_headers(rbdb);
+	COMMIT;
+	FINISH;
+}
+
+
+static void store_headers( RBDB rbdb)
+{
+/**************************************
+ *
+ *	s t o r e _ h e a d e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	write the contents of page headers
+ *	into a database.
+ *
+ **************************************/
+	ULONG page_number;
+	PAG page;
+	HDR header;
+	BLP blob;
+	BTR bucket;
+	DPG data;
+	IRT index_root;
+	PIP pip;
+	PPG pointer;
+	GDS__QUAD temp;
+
+	page_number = 0;
+
+	while (page = RBDB_read(rbdb, page_number)) {
+		STORE P IN FULL_PAGES USING
+			{
+				P.NUMBER = page_number;
+				P.TYPE = page->pag_type;
+				P.FLAGS = page->pag_flags;
+				P.CHECKSUM = page->pag_checksum;
+#ifndef ODS_4
+				P.GENERATION = page->pag_generation;
+#endif
+				P.RELATION.NULL = TRUE;
+				P.SEQUENCE.NULL = TRUE;
+				P.BLP_LEAD_PAGE.NULL = TRUE;
+				P.BLP_LENGTH.NULL = TRUE;
+				P.BTR_SIBLING.NULL = TRUE;
+				P.BTR_LENGTH.NULL = TRUE;
+				P.BTR_ID.NULL = TRUE;
+				P.BTR_LEVEL.NULL = TRUE;
+				P.DPG_COUNT.NULL = TRUE;
+				P.IRT_COUNT.NULL = TRUE;
+				P.HDR_PAGE_SIZE.NULL = TRUE;
+				P.HDR_ODS_VERSION.NULL = TRUE;
+				P.HDR_PAGES.NULL = TRUE;
+				P.HDR_OLDEST_TRANS.NULL = TRUE;
+				P.HDR_OLDEST_ACTIVE.NULL = TRUE;
+				P.HDR_NEXT_TRANS.NULL = TRUE;
+				P.HDR_FLAGS.NULL = TRUE;
+				P.HDR_CREATION_DATE.NULL = TRUE;
+#ifndef ODS_4
+				P.HDR_ATTACHMENT_ID.NULL = TRUE;
+				P.HDR_IMPLEMENTATION.NULL = TRUE;
+				P.HDR_SHADOW_COUNT.NULL = TRUE;
+#endif
+				P.PIP_MIN.NULL = TRUE;
+				P.PPG_NEXT.NULL = TRUE;
+				P.PPG_COUNT.NULL = TRUE;
+				P.PPG_MIN_SPACE.NULL = TRUE;
+				P.PPG_MAX_SPACE.NULL = TRUE;
+				P.TIP_NEXT.NULL = TRUE;
+
+
+				switch (page->pag_type) {
+				case pag_header:
+					header = (HDR) page;
+					P.HDR_PAGE_SIZE.NULL = FALSE;
+					P.HDR_ODS_VERSION.NULL = FALSE;
+					P.HDR_PAGES.NULL = FALSE;
+					P.HDR_OLDEST_TRANS.NULL = FALSE;
+					P.HDR_OLDEST_ACTIVE.NULL = FALSE;
+					P.HDR_NEXT_TRANS.NULL = FALSE;
+					P.SEQUENCE.NULL = FALSE;
+					P.HDR_FLAGS.NULL = FALSE;
+					P.HDR_CREATION_DATE.NULL = FALSE;
+#ifndef ODS_4
+					P.HDR_ATTACHMENT_ID.NULL = FALSE;
+					P.HDR_IMPLEMENTATION.NULL = FALSE;
+					P.HDR_SHADOW_COUNT.NULL = FALSE;
+#endif
+					P.HDR_PAGE_SIZE = header->hdr_page_size;
+					P.HDR_ODS_VERSION = header->hdr_ods_version;
+					P.HDR_PAGES = header->hdr_PAGES;
+					P.HDR_OLDEST_TRANS = header->hdr_oldest_transaction;
+					P.HDR_OLDEST_ACTIVE = header->hdr_oldest_active;
+					P.HDR_NEXT_TRANS = header->hdr_next_transaction;
+					P.SEQUENCE = header->hdr_sequence;
+					P.HDR_FLAGS = header->hdr_flags;
+					temp.gds_quad_high = header->hdr_creation_date[0];
+					temp.gds_quad_low = header->hdr_creation_date[1];
+					P.HDR_CREATION_DATE = temp;
+#ifndef ODS_4
+					P.HDR_ATTACHMENT_ID = header->hdr_attachment_id;
+					P.HDR_IMPLEMENTATION = header->hdr_implementation;
+					P.HDR_SHADOW_COUNT = header->hdr_shadow_count;
+#endif
+					break;
+
+				case pag_pages:
+					pip = (PIP) page;
+					P.PIP_MIN.NULL = FALSE;
+					P.PIP_MIN = pip->pip_min;
+					break;
+
+				case pag_transactions:
+					P.TIP_NEXT.NULL = FALSE;
+					P.TIP_NEXT = ((TIP) page)->tip_next;
+					break;
+
+				case pag_pointer:
+					pointer = (PPG) page;
+					P.PPG_NEXT.NULL = FALSE;
+					P.PPG_COUNT.NULL = FALSE;
+					P.PPG_MIN_SPACE.NULL = FALSE;
+					P.PPG_MAX_SPACE.NULL = FALSE;
+					P.RELATION.NULL = FALSE;
+					P.SEQUENCE.NULL = FALSE;
+					P.SEQUENCE = pointer->ppg_sequence;
+					P.PPG_NEXT = pointer->ppg_next;
+					P.RELATION = pointer->ppg_relation;
+					P.PPG_COUNT = pointer->ppg_count;
+					P.PPG_MIN_SPACE = pointer->ppg_min_space;
+					P.PPG_MAX_SPACE = pointer->ppg_max_space;
+					break;
+
+				case pag_data:
+					data = (DPG) page;
+					P.DPG_COUNT.NULL = FALSE;
+					P.RELATION.NULL = FALSE;
+					P.SEQUENCE.NULL = FALSE;
+					P.SEQUENCE = data->dpg_sequence;
+					P.RELATION = data->dpg_relation;
+					P.DPG_COUNT = data->dpg_count;
+					break;
+
+				case pag_root:
+					index_root = (IRT) page;
+					P.IRT_COUNT.NULL = FALSE;
+					P.RELATION.NULL = FALSE;
+					P.IRT_COUNT = index_root->irt_count;
+					P.RELATION = index_root->irt_relation;
+					break;
+
+				case pag_index:
+					bucket = (BTR) page;
+					P.BTR_SIBLING.NULL = FALSE;
+					P.BTR_LENGTH.NULL = FALSE;
+					P.BTR_ID.NULL = FALSE;
+					P.BTR_LEVEL.NULL = FALSE;
+					P.RELATION.NULL = FALSE;
+					P.BTR_SIBLING = bucket->btr_sibling;
+					P.RELATION = bucket->btr_relation;
+					P.BTR_LENGTH = bucket->btr_length;
+					P.BTR_ID = bucket->btr_id;
+					P.BTR_LEVEL = bucket->btr_level;
+					break;
+
+				case pag_blob:
+					blob = (BLP) page;
+					P.BLP_LEAD_PAGE.NULL = FALSE;
+					P.BLP_LENGTH.NULL = FALSE;
+					P.SEQUENCE.NULL = FALSE;
+					P.BLP_LEAD_PAGE = blob->blp_lead_page;
+					P.SEQUENCE = blob->blp_sequence;
+					P.BLP_LENGTH = blob->blp_length;
+					break;
+
+#ifndef ODS_4
+				case pag_ids:
+#endif
+				default:
+					break;
+				}
+			}
+		END_STORE
+		ON_ERROR
+			gds__print_status(gds__status);
+			ib_printf("can't store into the documentaton database\n");
+			FINISH;
+			return;
+		END_ERROR;
+		page_number++;
+	}
+}
diff --git a/src/utilities/run_service.cpp b/src/utilities/run_service.cpp
new file mode 100644
index 0000000000..69e6dcb9ad
--- /dev/null
+++ b/src/utilities/run_service.cpp
@@ -0,0 +1,122 @@
+/*
+ *	PROGRAM:	Service manager
+ *	MODULE:		run_service.c
+ *	DESCRIPTION:	Run a utility as an Interbase service
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/gds_proto.h"
+
+static SCHAR recv_items[] = { gds__info_svc_to_eof };
+static SCHAR send_timeout[] = { gds__info_svc_timeout, 1, 0, 30 };
+
+
+int CLIB_ROUTINE main( int argc, char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize lock manager for process.
+ *
+ **************************************/
+	SCHAR *service_path;
+	SCHAR *spb, spb_buffer[2048], *p, *send_items, send_buffer[2048],
+		buffer[2048], item;
+	SLONG *handle;
+	SSHORT send_item_length, len;
+
+	if (argc < 2) {
+		ib_printf("usage: run_service service_path [args]\n");
+		exit(FINI_ERROR);
+	}
+
+	service_path = argv[1];
+
+	spb = spb_buffer;
+	if (argc > 2) {
+		*spb++ = gds__spb_version1;
+		*spb++ = gds__spb_command_line;
+		spb++;
+		for (argv += 2, argc -= 2; argc--;) {
+			for (p = *argv++; *spb = *p++; spb++);
+			*spb++ = ' ';
+		}
+		*--spb = 0;
+		spb_buffer[2] = strlen(spb_buffer + 3);
+	}
+
+	handle = NULL;
+	isc_service_attach((SLONG *) 0, 0, service_path, &handle,
+					   (SSHORT) (spb - spb_buffer), spb_buffer);
+
+	if (strstr(service_path, "start_cache")) {
+		send_items = send_timeout;
+		send_item_length = sizeof(send_timeout);
+	}
+	else {
+		send_items = send_buffer;
+		send_item_length = 0;
+	}
+
+	if (send_item_length)
+		ib_printf
+			("It will take about 30 seconds to confirm that the cache manager\nis running.  Please wait...\n");
+
+	item = gds__info_end;
+	do {
+		isc_service_query((SLONG *) 0, &handle, send_item_length, send_items,
+						  sizeof(recv_items), recv_items, sizeof(buffer),
+						  buffer);
+		if (send_items == send_buffer)
+			send_item_length = 0;
+		p = buffer;
+		while (p < buffer + sizeof(buffer) &&
+			   (item = *p) != gds__info_end &&
+			   item != gds__info_truncated && item != gds__info_svc_timeout) {
+			len = gds__vax_integer(p + 1, 2);
+			p += 2;
+			while (len--) {
+				p++;
+				if (*p != '\001')
+					ib_putchar(*p);
+			}
+			if (*p++ == '\001') {
+				send_buffer[0] = gds__info_svc_line;
+				ib_fgets(send_buffer + 3, sizeof(send_buffer) - 3, ib_stdin);
+				len = strlen(send_buffer + 3);
+				send_buffer[1] = len;
+				send_buffer[2] = len >> 8;
+				send_item_length = len + 3;
+			}
+		}
+	} while (item == gds__info_truncated
+			 || (send_items == send_buffer && send_item_length));
+
+	isc_service_detach((SLONG *) 0, &handle);
+
+	exit(FINI_OK);
+}
diff --git a/src/utilities/sbc_print.cpp b/src/utilities/sbc_print.cpp
new file mode 100644
index 0000000000..cddd2b760d
--- /dev/null
+++ b/src/utilities/sbc_print.cpp
@@ -0,0 +1,853 @@
+/*
+ *	PROGRAM:	JRD Cache Manager
+ *	MODULE:		sbc_print.c
+ *	DESCRIPTION:	Shared Cache printer
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <string.h>
+#include <fcntl.h>
+#include <errno.h>
+#include <stdlib.h>
+#include "../jrd/common.h"
+
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+#include "../jrd/isc.h"
+#include "../jrd/cash.h"
+#include "../jrd/ods.h"
+#include "../jrd/llio.h"
+#include "../utilities/ppg_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/isc_s_proto.h"
+
+#ifdef WIN_NT
+#include <io.h>
+#include <windows.h>
+#define TEXT		SCHAR
+#endif
+
+#define BASE 			((UCHAR*) CASH_header)
+#define REL_PTR(item)		((UCHAR*) item - BASE)
+#define ABS_PTR(item)		(BASE + item)
+
+#define QUE_INIT(que)		{que.srq_forward = que.srq_backward = REL_PTR (&que);}
+#define QUE_EMPTY(que)		(que.srq_forward == REL_PTR (&que))
+#define QUE_NOT_EMPTY(que)	(que.srq_forward != REL_PTR (&que))
+#define QUE_NEXT(que)		ABS_PTR (que.srq_forward)
+#define QUE_PREV(que)		ABS_PTR (que.srq_backward)
+
+#define QUE_LOOP(que_head,que)	for (que = (SRQ) QUE_NEXT (que_head);\
+	que != &que_head; que = (SRQ) QUE_NEXT ((*que)))
+#define QUE_LOOP_BACK(que_head,que)	for (que = (SRQ) QUE_PREV (que_head);\
+	que != &que_head; que = (SRQ) QUE_PREV ((*que)))
+
+#define DEFAULT_SIZE	8192
+
+#if !(defined WIN_NT)
+extern SCHAR *sys_errlist[];
+#endif
+
+static void cache_init(void);
+static void db_get_sbc(SCHAR *, SCHAR *, SLONG *, SSHORT *);
+
+#if (defined WIN_NT)
+static void db_error(SLONG);
+#else
+static void db_error(int);
+#endif
+
+static void db_open(UCHAR *, USHORT);
+static PAG db_read(SLONG);
+static void print_error(void);
+static void print_header(TEXT *);
+static void print_page_header(SDB);
+static void print_process(PRB);
+static void prt_que(UCHAR *, SRQ, FPTR_VOID, int, int);
+static void prt_que_back(UCHAR *, SRQ, FPTR_VOID, int, int);
+static void print_sccb(void);
+
+static int sw_mru, sw_nbuf, sw_header, sw_page, sw_user, sw_free, sw_all;
+static TEXT *dbname, sw_file[257];
+
+static SHB CASH_header;
+static SCCB sccb;
+static SLONG mapped_size = DEFAULT_SIZE;
+static SLONG page_no = -1;
+static SSHORT page_size = 1024;
+
+static int map_length, map_base, map_count;
+static SCHAR *map_region;
+
+#ifdef WIN_NT
+static void *file;
+#else
+static int file;
+#endif
+
+SCHAR global_buffer[MAX_PAGE_SIZE];
+
+#ifdef NETWARE_386
+static SVC sw_outfile;
+#else
+static IB_FILE *sw_outfile;
+#endif
+
+SCHAR *page_type[] = {
+	"pag_undefined    ",
+	"pag_header       ",		/* Database header page */
+	"pag_pages        ",		/* Page inventory page */
+	"pag_transactions ",		/* Transaction inventory page */
+	"pag_pointer      ",		/* Pointer page */
+	"pag_data         ",		/* Data page */
+	"pag_root         ",		/* Index root page */
+	"pag_index        ",		/* Index (B-tree) page */
+	"pag_blob         ",		/* Blob data page */
+	"pag_ids          ",		/* Gen-ids */
+	"pag_log          "			/* Log page */
+};
+
+
+int CLIB_ROUTINE main( int argc, char *argv[])
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize shared cache for process.
+ *
+ **************************************/
+	SLONG length;
+	SCHAR *p, c;
+	STATUS status_vector[20];
+	TEXT expanded_filename[256];
+	SH_MEM_T shmem_data;
+	SLONG cache_buffers;
+	SSHORT cache_flags;
+	int nbuf;
+	int nfree_buf;
+	SLONG redir_in, redir_out, redir_err;
+
+/* Perform some special handling when run as an Interbase service.  The
+   first switch can be "-svc" (lower case!) or it can be "-svc_re" followed
+   by 3 file descriptors to use in re-directing ib_stdin, ib_stdout, and ib_stderr. */
+
+	if (argc > 1 && !strcmp(argv[1], "-svc")) {
+		argv++;
+		argc--;
+	}
+	else if (argc > 4 && !strcmp(argv[1], "-svc_re")) {
+		redir_in = atol(argv[2]);
+		redir_out = atol(argv[3]);
+		redir_err = atol(argv[4]);
+#ifdef WIN_NT
+		redir_in = _open_osfhandle(redir_in, 0);
+		redir_out = _open_osfhandle(redir_out, 0);
+		redir_err = _open_osfhandle(redir_err, 0);
+#endif
+		if (redir_in != 0)
+			if (dup2((int) redir_in, 0))
+				close((int) redir_in);
+		if (redir_out != 1)
+			if (dup2((int) redir_out, 1))
+				close((int) redir_out);
+		if (redir_err != 2)
+			if (dup2((int) redir_err, 2))
+				close((int) redir_err);
+		argv += 4;
+		argc -= 4;
+	}
+
+#ifdef NETWARE_386
+	sw_outfile = service;
+#else
+	sw_outfile = ib_stderr;
+#endif
+
+/* Handle switches, etc. */
+
+	dbname = (SCHAR *) 0;
+	nbuf = 0;
+	nfree_buf = 0;
+	argv++;
+
+	while (--argc) {
+		p = *argv++;
+
+		if (p[0] != '-') {
+			dbname = p;
+			break;
+		}
+		while (c = *p++)
+			switch (UPPER(c)) {
+			case 'M':
+				sw_mru = TRUE;
+				break;
+
+			case 'N':
+				sw_nbuf = TRUE;
+				nbuf = atoi(*argv++);
+				--argc;
+				break;
+
+			case 'P':
+				sw_page = TRUE;
+				page_no = atoi(*argv++);
+				--argc;
+				break;
+
+			case 'F':
+				sw_free = TRUE;
+				nfree_buf = atoi(*argv++);
+				--argc;
+				break;
+
+			case 'H':
+				sw_header = TRUE;
+				break;
+
+			case 'A':
+				sw_all = TRUE;
+				break;
+
+			case 'U':
+				sw_user = TRUE;
+				break;
+
+			case '-':
+				break;
+
+			default:
+				print_error();
+				exit(FINI_ERROR);
+			}
+	}
+
+	if (!dbname) {
+		print_error();
+		exit(FINI_ERROR);
+	}
+
+	db_get_sbc(dbname, sw_file, &cache_buffers, &cache_flags);
+
+	if (cache_flags || !cache_buffers) {
+		ib_printf("No shared Cache\n");
+		exit(FINI_ERROR);
+	}
+
+	ISC_expand_filename(sw_file, strlen(sw_file), expanded_filename);
+
+#ifdef UNIX
+	shmem_data.sh_mem_semaphores = 0;
+#endif
+	CASH_header = ISC_map_file(status_vector,
+							   expanded_filename,
+							   cache_init, 0, -mapped_size, &shmem_data);
+
+	if (CASH_header && CASH_header->shb_length > mapped_size) {
+		length = CASH_header->shb_length;
+		ISC_unmap_file(status_vector, &shmem_data, FALSE);
+		CASH_header = ISC_map_file(status_vector,
+								   expanded_filename,
+								   cache_init, 0, length, &shmem_data);
+		mapped_size = length;
+	}
+
+	if (!CASH_header) {
+		ib_printf("Unable to access shared cache\n");
+		gds__print_status(status_vector);
+		exit(FINI_OK);
+	}
+
+	if (sw_all)
+		sw_page = sw_header = sw_user = TRUE;
+
+/* print the shared cache header */
+
+	print_header(expanded_filename);
+
+	sccb = (SCCB) ABS_PTR(CASH_header->shb_sccb);
+
+/* Print shared cache header block */
+
+	print_sccb();
+
+/* print process queue or just count of processes */
+
+	if (sw_user) {
+		prt_que("\tProcesses", &CASH_header->shb_processes, print_process,
+				OFFSET(PRB, prb_shb_processes), 0);
+		prt_que("\tFree Processes", &CASH_header->shb_free_processes,
+				print_process, OFFSET(PRB, prb_shb_processes), 0);
+	}
+	else {
+		prt_que("\tProcesses", &CASH_header->shb_processes, 0, 0, 0);
+		prt_que("\tFree Processes", &CASH_header->shb_free_processes, 0, 0,
+				0);
+	}
+
+/* Print buffers in LRU or MRU order */
+
+	if (!sw_mru) {
+		if (sw_header || sw_page) {
+			prt_que("\tLRU pages", &sccb->sccb_lru, print_page_header,
+					OFFSET(SDB, sdb_lru_free), nbuf);
+		}
+		else {
+			prt_que("\tLRU pages", &sccb->sccb_lru, 0, 0, 0);
+		}
+	}
+	else {
+		if (sw_header || sw_page) {
+			prt_que_back("\tLRU pages", &sccb->sccb_lru, print_page_header,
+						 OFFSET(SDB, sdb_lru_free), nbuf);
+		}
+		else {
+			prt_que_back("\tMRU pages", &sccb->sccb_lru, 0, 0, 0);
+		}
+	}
+
+/* Print free buffer list */
+
+	if (sw_free) {
+		if (sw_header || sw_page) {
+			prt_que("\tFree pages", &sccb->sccb_free, print_page_header,
+					OFFSET(SDB, sdb_lru_free), nfree_buf);
+		}
+		else {
+			prt_que("\tFree pages", &sccb->sccb_free, 0, 0, 0);
+		}
+	}
+
+/* Print free waiters */
+
+	prt_que("\tFree waiters", &sccb->sccb_free_waiters, 0, 0, 0);
+
+	ib_printf("\n");
+
+	exit(FINI_OK);
+}
+
+
+static void cache_init(void)
+{
+/**************************************
+ *
+ *	c a c h e _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize shared cache for looking 
+ *	Just used as a param for ISC_ () call.
+ *
+ **************************************/
+}
+
+
+static void db_get_sbc(
+					   SCHAR * db,
+					   SCHAR * name,
+					   SLONG * cache_buffers, SSHORT * cache_flags)
+{
+/**************************************
+ *
+ *	d b _ g e t _ s b c
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get shared cache info.
+ *
+ **************************************/
+	HDR hdr;
+
+	db_open(db, strlen(db));
+	hdr = (HDR) db_read((SLONG) HEADER_PAGE);
+
+	*cache_buffers = hdr->hdr_cache_buffers;
+	*cache_flags = hdr->hdr_flags & hdr_disable_cache;
+	strcpy(name, hdr->hdr_cache_file + 2);
+
+	page_size = hdr->hdr_page_size;
+}
+
+
+#ifdef WIN_NT
+static void db_error( SLONG status)
+{
+/**************************************
+ *
+ *	d b _ e r r o r		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	TEXT s[128];
+
+	if (!FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,
+					   NULL,
+					   status,
+					   GetUserDefaultLangID(),
+					   s,
+					   sizeof(s),
+					   NULL))
+			sprintf(s, "unknown Windows NT error %ld", status);
+
+	ib_printf(s);
+	exit(FINI_ERROR);
+}
+
+
+static void db_open( UCHAR * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	d b _ o p e n		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.
+ *
+ **************************************/
+
+	if ((file = CreateFile(file_name,
+						   GENERIC_READ | GENERIC_WRITE,
+						   FILE_SHARE_READ | FILE_SHARE_WRITE,
+						   NULL,
+						   OPEN_EXISTING,
+						   FILE_ATTRIBUTE_NORMAL | FILE_FLAG_RANDOM_ACCESS,
+						   0)) == INVALID_HANDLE_VALUE)
+			db_error(GetLastError());
+}
+
+
+static PAG db_read( SLONG page_number)
+{
+/**************************************
+ *
+ *	d b _ r e a d		( W I N _ N T )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a database page.
+ *
+ **************************************/
+	SLONG actual_length;
+	LARGE_INTEGER liOffset;
+
+	liOffset.QuadPart = UInt32x32To64((DWORD) page_number, (DWORD) page_size);
+	if (SetFilePointer
+		(file, (LONG) liOffset.LowPart, &liOffset.HighPart, FILE_BEGIN) == -1)
+		db_error(GetLastError());
+
+	if (!ReadFile(file, global_buffer, page_size, &actual_length, NULL) ||
+		actual_length != page_size)
+		db_error(GetLastError());
+
+	return global_buffer;
+}
+#endif
+
+
+#ifndef WIN_NT
+
+static void db_error( int status)
+{
+/**************************************
+ *
+ *	d b _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR *p;
+
+#ifndef VMS
+	ib_printf(sys_errlist[status]);
+#else
+	if ((p = strerror(status)) || (p = strerror(EVMSERR, status)))
+		ib_printf("%s\n", p);
+	else
+		ib_printf("uninterpreted code %x\n", status);
+#endif
+	exit(FINI_ERROR);
+}
+
+
+static void db_open( UCHAR * file_name, USHORT file_length)
+{
+/**************************************
+ *
+ *	d b _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a database file.
+ *
+ **************************************/
+
+	if ((file = open(file_name, 2)) == -1)
+		db_error(errno);
+}
+
+
+static PAG db_read( SLONG page_number)
+{
+/**************************************
+ *
+ *	d b _ r e a d
+ *
+ **************************************
+ *
+ * Functional description
+ *	Read a database page.
+ *
+ **************************************/
+	SCHAR *p;
+	SSHORT length, l;
+
+	if (lseek(file, page_number * page_size, 0) == -1)
+		db_error(errno);
+
+	for (p = (SCHAR *) global_buffer, length = page_size; length > 0;) {
+		l = read(file, p, length);
+		if (l < 0)
+			db_error(errno);
+		p += l;
+		length -= l;
+	}
+
+	return global_buffer;
+}
+
+#endif	// !WIN_NT
+
+
+static void print_error(void)
+{
+/**************************************
+ *
+ *	p r i n t _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	ib_printf("gds_cache_print <switches> <db name>\n");
+	ib_printf("Switches are:\n");
+	ib_printf("\t-m\t\t- mru order\n");
+	ib_printf("\t-n <buffers>\t- number of buffers\n");
+	ib_printf("\t-p <page>\t- specific page\n");
+	ib_printf("\t-f <buffers>\t- number of free\n");
+	ib_printf("\t-h \t\t- page headers\n");
+	ib_printf("\t-a \t\t- all except free pages\n");
+	ib_printf("\t-u \t\t- user process information\n");
+}
+
+
+static void print_header( TEXT * expanded_filename)
+{
+/**************************************
+ *
+ *	p r i n t _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print shared cache header.
+ *
+ **************************************/
+	float cache_hit;
+
+/* Print shared cache header block */
+
+	ib_printf("\nSHARED_CACHE BLOCK \t%s\n", expanded_filename);
+	ib_printf("\tVersion: %d.%d, Active process: %d, Length: %d, Used: %d\n",
+			  CASH_header->shb_major_version,
+			  CASH_header->shb_minor_version,
+			  CASH_header->shb_active_process,
+			  CASH_header->shb_length, CASH_header->shb_used);
+
+	ib_printf("\tBuffer waits: %d, IO waits: %d, Cache repairs: %d\n",
+			  CASH_header->shb_buffer_waits,
+			  CASH_header->shb_io_waits, CASH_header->shb_cache_repairs);
+
+	ib_printf
+		("\tLast Checkpoint Seqno: %d, Offset: %d, Partition offset: %d\n",
+		 CASH_header->shb_last_chk_seqno, CASH_header->shb_last_chk_offset,
+		 CASH_header->shb_last_chk_p_offset);
+
+	ib_printf("\tShort recovers: %d, Long recovers: %d\n",
+			  CASH_header->shb_short_recovers,
+			  CASH_header->shb_long_recovers);
+
+	ib_printf("\tLogical Reads: %d, Physical Reads: %d\n",
+			  CASH_header->shb_logical_reads,
+			  CASH_header->shb_physical_reads);
+
+	ib_printf("\tLogical Writes: %d, Physical Writes: %d\n",
+			  CASH_header->shb_logical_writes,
+			  CASH_header->shb_physical_writes);
+
+	cache_hit =
+		(float) (CASH_header->shb_logical_reads -
+				 CASH_header->shb_physical_reads) /
+		CASH_header->shb_logical_reads;
+
+	ib_printf("\tCache hit ratio: %3.1f\n", cache_hit * 100.);
+	ib_printf("\n");
+}
+
+
+static void print_page_header( SDB sdb)
+{
+/**************************************
+ *
+ *	p r i n t _ p a g e _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print database page header.  Print full page for
+ *	header and log pages.
+ *
+ **************************************/
+	PAG page;
+	SDB journal_sdb;
+
+	if ((page_no >= 0) && (sdb->sdb_page != page_no))
+		return;
+
+/* print sdb information */
+
+	ib_printf
+		("\tPage: %ld Generation: %ld Length: %d SDB Flags: %d Precedence: %d\n",
+		 sdb->sdb_page, sdb->sdb_generation, sdb->sdb_length, sdb->sdb_flags,
+		 sdb->sdb_precedence);
+
+	page = (PAG) ABS_PTR(sdb->sdb_buffer);
+
+/* Print page header */
+
+	ib_printf("\tPage type: %s\n", page_type[(int) page->pag_type]);
+
+	ib_printf("\tFlags: %d.  Generation: %d.  Seqno: %d.  Offset: %d\n",
+			  (int) page->pag_flags, page->pag_generation,
+			  page->pag_seqno, page->pag_offset);
+
+/* Print full page information for header and log page */
+
+	if (page_no >= 0) {
+		if (page_no == HEADER_PAGE)
+			PPG_print_header(page, HEADER_PAGE, sw_outfile);
+		else if (page_no == LOG_PAGE)
+			PPG_print_log(page, LOG_PAGE, sw_outfile);
+	}
+
+	if (sdb->sdb_flags) {
+		ib_printf("\tSDB Flags\n");
+
+		if (sdb->sdb_flags & SDB_dirty)
+			ib_printf("\t\tPage Dirty\n");
+		if (sdb->sdb_flags & SDB_marked)
+			ib_printf("\t\tPage Marked\n");
+		if (sdb->sdb_flags & SDB_faked)
+			ib_printf("\t\tPage Faked\n");
+		if (sdb->sdb_flags & SDB_journal)
+			ib_printf("\t\tJournal records present\n");
+		if (sdb->sdb_flags & SDB_journal_page)
+			ib_printf("\t\tFull page journal\n");
+		if (sdb->sdb_flags & SDB_write_pending)
+			ib_printf("\t\tWrite pending\n");
+		if (sdb->sdb_flags & SDB_read_pending)
+			ib_printf("\t\tRead pending\n");
+		if (sdb->sdb_flags & SDB_free)
+			ib_printf("\t\tFree\n");
+		if (sdb->sdb_flags & SDB_log_recovery)
+			ib_printf("\t\tLog recovery\n");
+		if (sdb->sdb_flags & SDB_check_use)
+			ib_printf("\t\tCheck use\n");
+	}
+
+	if (sdb->sdb_journal) {
+		journal_sdb = (SDB) ABS_PTR(sdb->sdb_journal);
+		ib_printf("\tJournal buffer information:\n");
+		ib_printf("\t\tCurrent Length %d\n", journal_sdb->sdb_length);
+	}
+
+	ib_printf("\n");
+}
+
+
+static void print_process( PRB process)
+{
+/**************************************
+ *
+ *	p r i n t _ p r o c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a formatted process block.
+ *
+ **************************************/
+
+	ib_printf("PROCESS BLOCK %d\n", REL_PTR(process));
+
+	ib_printf("\tProcess id: %d, IO wait: %d, IO read: %d, flags: %d\n",
+			  process->prb_process_id, process->prb_waiter,
+			  process->prb_reader, process->prb_flags);
+
+	ib_printf("\tPhysical Reads: %d, Logical Reads: %d\n",
+			  process->prb_physical_reads, process->prb_logical_reads);
+
+	ib_printf("\tLogical Writes: %d\n", process->prb_logical_writes);
+
+	ib_printf("\tWAL ib_puts: %d\n", process->prb_ail_puts);
+
+	ib_printf("\n");
+}
+
+
+static void prt_que(
+					UCHAR * string,
+					SRQ que, void (*routine) (), int param1, int param2)
+{
+/**************************************
+ *
+ *	p r t _ q u e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print the contents of a self-relative que.
+ *	If a routine is passed, print more information about the
+ *	elements of the queue.
+ *	param 1 - offset of the que structure within the element we
+ *		  are traversing.
+ *	param 2	- if specified, the number of entries to print.
+ *
+ **************************************/
+	SLONG count, offset;
+	SRQ next;
+
+	offset = REL_PTR(que);
+
+	if (offset == que->srq_forward && offset == que->srq_backward) {
+		ib_printf("%s: *empty*\n\n", string);
+		return;
+	}
+
+	count = 0;
+
+	QUE_LOOP((*que), next) {
+		++count;
+
+		if ((param2) && (count > param2))
+			continue;
+
+		if (routine)
+			(*routine) ((UCHAR *) next - param1);
+	}
+
+	ib_printf("%s (%ld):\tforward: %d, backward: %d\n\n",
+			  string, count, que->srq_forward, que->srq_backward);
+}
+
+
+static void prt_que_back(
+						 UCHAR * string,
+						 SRQ que, void (*routine) (), int param1, int param2)
+{
+/**************************************
+ *
+ *	p r t _ q u e _ b a c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Same as prt_que, but traverse in reverse order.
+ *
+ **************************************/
+	SLONG count, offset;
+	SRQ next;
+
+	offset = REL_PTR(que);
+
+	if (offset == que->srq_forward && offset == que->srq_backward) {
+		ib_printf("%s: *empty*\n\n", string);
+		return;
+	}
+
+	count = 0;
+
+	QUE_LOOP_BACK((*que), next) {
+		++count;
+
+		if ((param2) && (count > param2))
+			continue;
+
+		if (routine)
+			(*routine) ((UCHAR *) next - param1);
+	}
+
+	ib_printf("%s (%ld):\tforward: %d, backward: %d\n\n",
+			  string, count, que->srq_forward, que->srq_backward);
+}
+
+
+static void print_sccb(void)
+{
+/**************************************
+ *
+ *	p r i n t _ s c c b
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print sccb header
+ *
+ **************************************/
+
+/* Print shared cache header block */
+
+	ib_printf("\tBuffers: %d, Free: %d, Free min: %d, Checkpoint : %d\n",
+			  sccb->sccb_count,
+			  sccb->sccb_free_count,
+			  sccb->sccb_free_min, sccb->sccb_checkpoint);
+
+	ib_printf("\tflags: %d\n\n", sccb->sccb_flags);
+}
diff --git a/src/utilities/scrty_apollo.gdl b/src/utilities/scrty_apollo.gdl
new file mode 100644
index 0000000000..fb02e9eec6
--- /dev/null
+++ b/src/utilities/scrty_apollo.gdl
@@ -0,0 +1,57 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+modify database "isc.gdb";
+
+/*
+	NOTE:  This file sets up the the platform specific
+	       security classes in the isc_tmp database which
+	       will ultimately get shipped as isc.gbak in the 
+	       interbase/bin directory.  This file is part two of a 
+	       two step process.  The reason for this is that gdef
+	       cannot handle security classes correctly over
+	       different platforms, i.e. apollo, unix, and vms.
+	       The basic database is created using the isc.gdl file
+	       on all platforms for ease of maintenance while the
+	       security classes are added by platform specific gdl
+	       files i.e.
+		   
+		   apollo = scrty_apollo.gdl
+		   unix   = scrty_unix.gdl
+		   vms    = scrty_vms.gdl
+		   mpexl  = scrty_xl.gdl
+
+	       Any changes made to the security class definitions
+	       in one of these files must be made to all of them.
+*/
+
+/*	Add Security Classes to Defined Objects	*/
+
+
+
+modify relation USERS
+	security_class USER_SECURITY;
+
+
+/*	Security Class Definitions / GRANT statements	*/
+
+
+define security_class USER_SECURITY                  
+	ROOT CDRWP,
+	%.%.%.% R;
+
diff --git a/src/utilities/scrty_unix.gdl b/src/utilities/scrty_unix.gdl
new file mode 100644
index 0000000000..e501ff5221
--- /dev/null
+++ b/src/utilities/scrty_unix.gdl
@@ -0,0 +1,57 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+modify database "isc.gdb";
+
+/*
+	NOTE:  This file sets up the the platform specific
+	       security classes in the isc_tmp database which
+	       will ultimately get shipped as isc.gbak in the 
+	       interbase/bin directory.  This file is part two of a 
+	       two step process.  The reason for this is that gdef
+	       cannot handle security classes correctly over
+	       different platforms, i.e. apollo, unix, and vms.
+	       The basic database is created using the isc.gdl file
+	       on all platforms for ease of maintenance while the
+	       security classes are added by platform specific gdl
+	       files i.e.
+		   
+		   apollo = scrty_apollo.gdl
+		   unix   = scrty_unix.gdl
+		   vms    = scrty_vms.gdl
+		   mpexl  = scrty_xl.gdl
+
+	       Any changes made to the security class definitions
+	       in one of these files must be made to all of them.
+*/
+
+/*	Add Security Classes to Defined Objects	*/
+
+
+
+modify relation USERS
+	security_class USER_SECURITY;
+
+
+/*	Security Class Definitions / GRANT statements	*/
+
+
+define security_class USER_SECURITY                  
+	<0,0> CDRWP,
+	<*,*> R;
+
diff --git a/src/utilities/scrty_vms.gdl b/src/utilities/scrty_vms.gdl
new file mode 100644
index 0000000000..576e7d3ebf
--- /dev/null
+++ b/src/utilities/scrty_vms.gdl
@@ -0,0 +1,57 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+modify database "isc.gdb";
+
+/*
+	NOTE:  This file sets up the the platform specific
+	       security classes in the isc_tmp database which
+	       will ultimately get shipped as isc.gbak in the 
+	       interbase/bin directory.  This file is part two of a 
+	       two step process.  The reason for this is that gdef
+	       cannot handle security classes correctly over
+	       different platforms, i.e. apollo, unix, and vms.
+	       The basic database is created using the isc.gdl file
+	       on all platforms for ease of maintenance while the
+	       security classes are added by platform specific gdl
+	       files i.e.
+		   
+		   apollo = scrty_apollo.gdl
+		   unix   = scrty_unix.gdl
+		   vms    = scrty_vms.gdl
+		   mpexl  = scrty_xl.gdl
+
+	       Any changes made to the security class definitions
+	       in one of these files must be made to all of them.
+*/
+
+/*	Add Security Classes to Defined Objects	*/
+
+
+
+modify relation USERS
+	security_class USER_SECURITY;
+
+
+/*	Security Class Definitions / GRANT statements	*/
+
+
+define security_class USER_SECURITY                  
+	<1,4> CDRWP,
+	<*,*> R;
+
diff --git a/src/utilities/scrty_xl.gdl b/src/utilities/scrty_xl.gdl
new file mode 100644
index 0000000000..46b636db99
--- /dev/null
+++ b/src/utilities/scrty_xl.gdl
@@ -0,0 +1,57 @@
+/*
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+modify database "isc.gdb";
+
+/*
+	NOTE:  This file sets up the the platform specific
+	       security classes in the isc_tmp database which
+	       will ultimately get shipped as isc.gbak in the 
+	       interbase/bin directory.  This file is part two of a 
+	       two step process.  The reason for this is that gdef
+	       cannot handle security classes correctly over
+	       different platforms, i.e. apollo, unix, and vms.
+	       The basic database is created using the isc.gdl file
+	       on all platforms for ease of maintenance while the
+	       security classes are added by platform specific gdl
+	       files i.e.
+		   
+		   apollo = scrty_apollo.gdl
+		   unix   = scrty_unix.gdl
+		   vms    = scrty_vms.gdl
+		   mpexl  = scrty_xl.gdl
+
+	       Any changes made to the security class definitions
+	       in one of these files must be made to all of them.
+*/
+
+/*	Add Security Classes to Defined Objects	*/
+
+
+
+modify relation USERS
+	security_class USER_SECURITY;
+
+
+/*	Security Class Definitions / GRANT statements	*/
+
+
+define security_class USER_SECURITY                  
+	MANAGER_STARBASE CDRWP,
+	*_* R;
+
diff --git a/src/utilities/secur_proto.h b/src/utilities/secur_proto.h
new file mode 100644
index 0000000000..1bd88ab399
--- /dev/null
+++ b/src/utilities/secur_proto.h
@@ -0,0 +1,42 @@
+/*
+ *	PROGRAM:	Security data base manager
+ *	MODULE:		secur_proto.h
+ *	DESCRIPTION:	Prototype header file for security.e
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _UTILITIES_SECUR_PROTO_H_
+#define _UTILITIES_SECUR_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern SSHORT	SECURITY_exec_line (STATUS *, void *, 
+			struct user_data *, 
+			void (*)(void *, USER_DATA, BOOLEAN),
+			void *);
+extern void	SECURITY_msg_get (USHORT, TEXT *);
+extern void     SECURITY_get_db_path (TEXT *, TEXT *);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _UTILITIES_SECUR_PROTO_H_ */
diff --git a/src/utilities/security.e b/src/utilities/security.e
new file mode 100644
index 0000000000..bd9464a6e4
--- /dev/null
+++ b/src/utilities/security.e
@@ -0,0 +1,413 @@
+/*
+ *
+ *	PROGRAM:	Security data base manager
+ *	MODULE:		security.e
+ *	DESCRIPTION:	Security routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/pwd.h"
+#include "../jrd/enc_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../utilities/gsec.h"
+#include "../utilities/secur_proto.h"
+
+DATABASE DB = STATIC FILENAME "isc.gdb";
+
+#define MAX_PASSWORD_LENGTH	31
+#define SYSDBA_USER_NAME	"SYSDBA"
+
+
+SSHORT SECURITY_exec_line(STATUS * isc_status,
+						  void *DB,
+						  USER_DATA user_data,
+						  void (*display_func) (void *, USER_DATA, BOOLEAN),
+						  void *callback_arg)
+{
+/*************************************
+ *
+ *	S E C U R I T Y _ e x e c _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Process a command line for the security data base manager.
+ *	This is used to add and delete users from the user information
+ *	database (isc.gdb).   It also displays information
+ *	about current users and allows modification of current
+ *	users' parameters.   
+ *	Returns 0 on success, otherwise returns a Gsec message number
+ *	and the status vector containing the error info.
+ *	The syntax is:
+ *
+ *	Adding a new user:
+ *
+ *	    gsec -add <name> [ <parameter> ... ]    -- command line
+ *	    add <name> [ <parameter> ... ]          -- interactive
+ *
+ *	Deleting a current user:
+ *
+ *	    gsec -delete <name>     -- command line
+ *	    delete <name>           -- interactive
+ *
+ *	Displaying all current users:
+ *
+ *	    gsec -display           -- command line
+ *	    display                 -- interactive
+ *
+ *	Displaying one user:
+ *
+ *	    gsec -display <name>    -- command line
+ *	    display <name>          -- interactive
+ *
+ *	Modifying a user's parameters:
+ *
+ *	    gsec -modify <name> <parameter> [ <parameter> ... ] -- command line
+ *	    modify <name> <parameter> [ <parameter> ... ]       -- interactive
+ *
+ *	Get help:
+ *
+ *	    gsec -help              -- command line
+ *	    ?                       -- interactive
+ *	    help                    -- interactive
+ *
+ *	Quit interactive session:
+ *
+ *	    quit                    -- interactive
+ *
+ *	where <parameter> can be one of:
+ *
+ *	    -uid <uid>
+ *	    -gid <gid>
+ *	    -fname <firstname>
+ *	    -mname <middlename>
+ *	    -lname <lastname>
+ *
+ **************************************/
+	SCHAR encrypted1[MAX_PASSWORD_LENGTH + 2];
+	SCHAR encrypted2[MAX_PASSWORD_LENGTH + 2];
+	TEXT buff[MSG_LENGTH];
+	STATUS tmp_status[20];
+	void *gds__trans;
+	BOOLEAN found;
+	SSHORT ret = 0;
+
+	gds__trans = NULL;
+	START_TRANSACTION
+	ON_ERROR
+		return GsecMsg75;		/* gsec error */
+	END_ERROR;
+
+	switch (user_data->operation) {
+	case ADD_OPER:
+		/* this checks the "entered" flags for each parameter (except the name)
+		   and makes all non-entered parameters null valued */
+
+		STORE U IN USERS USING
+			strcpy(U.USER_NAME, user_data->user_name);
+			if (user_data->uid_entered) {
+				U.UID = user_data->uid;
+				U.UID.NULL = ISC_FALSE;
+			}
+			else
+				U.UID.NULL = ISC_TRUE;
+			if (user_data->gid_entered) {
+				U.GID = user_data->gid;
+				U.GID.NULL = ISC_FALSE;
+			}
+			else
+				U.GID.NULL = ISC_TRUE;
+			if (user_data->group_name_entered) {
+				strcpy(U.GROUP_NAME, user_data->group_name);
+				U.GROUP_NAME.NULL = ISC_FALSE;
+			}
+			else
+				U.GROUP_NAME.NULL = ISC_TRUE;
+			if (user_data->password_entered) {
+				strcpy(encrypted1,
+					   ENC_crypt(user_data->password, PASSWORD_SALT));
+				strcpy(encrypted2, ENC_crypt(&encrypted1[2], PASSWORD_SALT));
+				strcpy(U.PASSWD, &encrypted2[2]);
+				U.PASSWD.NULL = ISC_FALSE;
+			}
+			else
+				U.PASSWD.NULL = ISC_TRUE;
+			if (user_data->first_name_entered) {
+				strcpy(U.FIRST_NAME, user_data->first_name);
+				U.FIRST_NAME.NULL = ISC_FALSE;
+			}
+			else
+				U.FIRST_NAME.NULL = ISC_TRUE;
+			if (user_data->middle_name_entered) {
+				strcpy(U.MIDDLE_NAME, user_data->middle_name);
+				U.MIDDLE_NAME.NULL = ISC_FALSE;
+			}
+			else
+				U.MIDDLE_NAME.NULL = ISC_TRUE;
+			if (user_data->last_name_entered) {
+				strcpy(U.LAST_NAME, user_data->last_name);
+				U.LAST_NAME.NULL = ISC_FALSE;
+			}
+			else
+				U.LAST_NAME.NULL = ISC_TRUE;
+		END_STORE
+		ON_ERROR
+			ret = GsecMsg19;	/* gsec - add record error */
+		END_ERROR;
+		break;
+
+	case MOD_OPER:
+		/* this updates an existing record, replacing all fields that are
+		   entered, and for those that were specified but not entered, it
+		   changes the current value to the null value */
+
+		found = FALSE;
+		FOR U IN USERS WITH U.USER_NAME EQ user_data->user_name
+			found = TRUE;
+			MODIFY U USING
+				if (user_data->uid_entered) {
+					U.UID = user_data->uid;
+					U.UID.NULL = ISC_FALSE;
+				}
+				else if (user_data->uid_specified)
+					U.UID.NULL = ISC_TRUE;
+				if (user_data->gid_entered) {
+					U.GID = user_data->gid;
+					U.GID.NULL = ISC_FALSE;
+				}
+				else if (user_data->gid_specified)
+					U.GID.NULL = ISC_TRUE;
+				if (user_data->group_name_entered) {
+					strcpy(U.GROUP_NAME, user_data->group_name);
+					U.GROUP_NAME.NULL = ISC_FALSE;
+				}
+				else if (user_data->group_name_specified)
+					U.GROUP_NAME.NULL = ISC_TRUE;
+				if (user_data->password_entered) {
+					strcpy(encrypted1,
+						   ENC_crypt(user_data->password, PASSWORD_SALT));
+					strcpy(encrypted2,
+						   ENC_crypt(&encrypted1[2], PASSWORD_SALT));
+					strcpy(U.PASSWD, &encrypted2[2]);
+					U.PASSWD.NULL = ISC_FALSE;
+				}
+				else if (user_data->password_specified)
+					U.PASSWD.NULL = ISC_TRUE;
+				if (user_data->first_name_entered) {
+					strcpy(U.FIRST_NAME, user_data->first_name);
+					U.FIRST_NAME.NULL = ISC_FALSE;
+				}
+				else if (user_data->first_name_specified)
+					U.FIRST_NAME.NULL = ISC_TRUE;
+				if (user_data->middle_name_entered) {
+					strcpy(U.MIDDLE_NAME, user_data->middle_name);
+					U.MIDDLE_NAME.NULL = ISC_FALSE;
+				}
+				else if (user_data->middle_name_specified)
+					U.MIDDLE_NAME.NULL = ISC_TRUE;
+				if (user_data->last_name_entered) {
+					strcpy(U.LAST_NAME, user_data->last_name);
+					U.LAST_NAME.NULL = ISC_FALSE;
+				}
+				else if (user_data->last_name_specified)
+					U.LAST_NAME.NULL = ISC_TRUE;
+			END_MODIFY
+			ON_ERROR
+				ret = GsecMsg20;
+			END_ERROR;
+		END_FOR
+		ON_ERROR
+			ret = GsecMsg21;
+		END_ERROR;
+		if (!ret && !found)
+			ret = GsecMsg22;
+		break;
+
+	case DEL_OPER:
+		/* looks up the specified user record and deletes it */
+
+		found = FALSE;
+		/* Do not allow SYSDBA user to be deleted */
+		if (!STRICMP(user_data->user_name, SYSDBA_USER_NAME))
+			ret = GsecMsg23;
+		else {
+			FOR U IN USERS WITH U.USER_NAME EQ user_data->user_name
+				found = TRUE;
+				ERASE U
+				ON_ERROR
+					ret = GsecMsg23;	/* gsec - delete record error */
+				END_ERROR;
+			END_FOR
+			ON_ERROR
+				ret = GsecMsg24;	/* gsec - find/delete record error */
+			END_ERROR;
+		}
+
+		if (!ret && !found)
+			ret = GsecMsg22;	/* gsec - record not found for user: */
+		break;
+
+	case DIS_OPER:
+		/* gets either the desired record, or all records, and displays them */
+
+		found = FALSE;
+		if (!user_data->user_name_entered) {
+			FOR U IN USERS
+				user_data->uid = U.UID;
+				user_data->gid = U.GID;
+				*(user_data->sys_user_name) = '\0';
+				strcpy(user_data->user_name, U.USER_NAME);
+				strcpy(user_data->group_name, U.GROUP_NAME);
+				strcpy(user_data->password, U.PASSWD);
+				strcpy(user_data->first_name, U.FIRST_NAME);
+				strcpy(user_data->middle_name, U.MIDDLE_NAME);
+				strcpy(user_data->last_name, U.LAST_NAME);
+				display_func(callback_arg, user_data, !found);
+
+				found = TRUE;
+			END_FOR
+			ON_ERROR
+				ret = GsecMsg28;	/* gsec - find/display record error */
+			END_ERROR;
+		}
+		else {
+			FOR U IN USERS WITH U.USER_NAME EQ user_data->user_name
+				user_data->uid = U.UID;
+				user_data->gid = U.GID;
+				*(user_data->sys_user_name) = '\0';
+				strcpy(user_data->user_name, U.USER_NAME);
+				strcpy(user_data->group_name, U.GROUP_NAME);
+				strcpy(user_data->password, U.PASSWD);
+				strcpy(user_data->first_name, U.FIRST_NAME);
+				strcpy(user_data->middle_name, U.MIDDLE_NAME);
+				strcpy(user_data->last_name, U.LAST_NAME);
+				display_func(callback_arg, user_data, !found);
+
+				found = TRUE;
+			END_FOR
+			ON_ERROR
+				ret = GsecMsg28;	/* gsec - find/display record error */
+			END_ERROR;
+		}
+		break;
+
+	default:
+		ret = GsecMsg16;		/* gsec - error in switch specifications */
+		break;
+	}
+
+/* rollback if we have an error using tmp_status to avoid 
+   overwriting the error status which the caller wants to see */
+
+	if (ret)
+		isc_rollback_transaction(tmp_status, &gds__trans);
+	else {
+		COMMIT
+		ON_ERROR
+			return GsecMsg75;	/* gsec error */
+		END_ERROR;
+	}
+
+	return ret;
+}
+
+void SECURITY_get_db_path( TEXT * server, TEXT * buffer)
+{
+/**************************************
+ *
+ *	S E C U R I T Y _ g e t _ d b _ p a t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Gets the path to the security database
+ *	from server	
+ *
+ *  NOTE:  Be sure that server specifies the 
+ *         protocol being used to connect.
+ *
+ *         for example:  
+ *		server:
+ *         would connect via tcpip
+ *
+ **************************************/
+#define RESPBUF	256
+	STATUS status[20];
+	isc_svc_handle svc_handle = NULL;
+	TEXT svc_name[256];
+	TEXT sendbuf[] = { isc_info_svc_user_dbpath };
+	TEXT respbuf[RESPBUF], *p = respbuf;
+	USHORT path_length;
+
+/* Whatever is defined for a given platform as a name for
+   the security database is used as a default in case we
+   are unable to get the path from server
+*/
+	strcpy(buffer, USER_INFO_NAME);
+
+	if (server)
+		sprintf(svc_name, "%sanonymous", server);
+	else
+#ifdef WIN_NT
+		sprintf(svc_name, "anonymous");
+#else
+		sprintf(svc_name, "localhost:anonymous");
+#endif
+
+	if (isc_service_attach(status, 0, svc_name, &svc_handle, 0, NULL))
+		return;
+
+	if (isc_service_query
+		(status, &svc_handle, NULL, 0, NULL, 1, sendbuf, RESPBUF, respbuf)) {
+		isc_service_detach(status, &svc_handle);
+		return;
+	}
+
+	if (*p == isc_info_svc_user_dbpath) {
+		p++;
+		path_length = (USHORT) isc_vax_integer(p, sizeof(short));
+		p += sizeof(USHORT);
+		strncpy(buffer, p, path_length);
+		buffer[path_length] = '\0';
+	}
+
+	isc_service_detach(status, &svc_handle);
+}
+
+void SECURITY_msg_get( USHORT number, TEXT * msg)
+{
+/**************************************
+ *
+ *	S E C U R I T Y _ m s g _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Retrieve a message from the error file
+ *
+ **************************************/
+
+	gds__msg_format(NULL_PTR, GSEC_MSG_FAC, number, MSG_LENGTH, msg,
+					NULL, NULL, NULL, NULL, NULL);
+}
diff --git a/src/utilities/servi_proto.h b/src/utilities/servi_proto.h
new file mode 100644
index 0000000000..0cdf4775d1
--- /dev/null
+++ b/src/utilities/servi_proto.h
@@ -0,0 +1,58 @@
+/*
+ *	PROGRAM:	Windows NT installation utilities
+ *	MODULE:		servi_proto.h
+ *	DESCRIPTION:	Prototypes for NT service functions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _UTILITIES_SERVI_PROTO_H_
+#define _UTILITIES_SERVI_PROTO_H_
+
+extern USHORT	SERVICES_config (SC_HANDLE,
+				TEXT *,
+				TEXT *,
+				USHORT,
+				USHORT (*)());
+extern USHORT	SERVICES_delete (SC_HANDLE,
+				TEXT *,
+				TEXT *,
+				USHORT (*)());
+extern USHORT	SERVICES_install (SC_HANDLE manager,
+				TEXT	*service_name,
+				TEXT	*display_name,
+				TEXT	*executable,
+				TEXT	*directory,
+				TEXT	*dependencies,
+				USHORT	sw_startup,
+				USHORT (*)());
+extern USHORT	SERVICES_remove (SC_HANDLE manager,
+				TEXT	*service_name,
+				TEXT	*display_name,
+				USHORT (*)());
+extern USHORT	SERVICES_start (SC_HANDLE manager,
+				TEXT	*service_name,
+				TEXT	*display_name,
+				USHORT	sw_mode,
+				USHORT (*)());
+extern USHORT	SERVICES_stop (SC_HANDLE	manager,
+				TEXT	*service_name,
+				TEXT	*display_name,
+				USHORT (*)());
+
+#endif /* _UTILITIES_SERVI_PROTO_H_ */
diff --git a/src/utilities/services.cpp b/src/utilities/services.cpp
new file mode 100644
index 0000000000..508a89b797
--- /dev/null
+++ b/src/utilities/services.cpp
@@ -0,0 +1,315 @@
+/*
+ *	PROGRAM:	Windows NT service control panel installation program
+ *	MODULE:		services.c
+ *	DESCRIPTION:	Functions which update the Windows service manager for IB
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <windows.h>
+#include "../jrd/common.h"
+#include "../jrd/license.h"
+#include "../utilities/install_nt.h"
+#include "../utilities/servi_proto.h"
+
+/* Defines */
+#define RUNAS_SERVICE " -s"
+
+
+
+USHORT SERVICES_config(SC_HANDLE manager,
+					   TEXT * service_name,
+					   TEXT * display_name,
+					   USHORT sw_mode, USHORT(*err_handler) ())
+{
+/**************************************
+ *
+ *	S E R V I C E S _ c o n f i g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Configure an installed service.
+ *
+ **************************************/
+	HKEY hkey;
+	SLONG status;
+	TEXT *mode;
+
+	if ((status = RegOpenKeyEx(HKEY_LOCAL_MACHINE,
+							   "SOFTWARE\\Borland\\InterBase\\CurrentVersion",
+							   0, KEY_WRITE, &hkey)) != ERROR_SUCCESS) {
+		return (*err_handler) (status, "RegOpenKeyEx", NULL);
+	}
+
+	switch (sw_mode) {
+	case DEFAULT_CLIENT:
+		mode = "";
+		break;
+	case NORMAL_PRIORITY:
+		mode = "-r";
+		break;
+	case HIGH_PRIORITY:
+		mode = "-b";
+		break;
+	}
+
+	if ((status = RegSetValueEx(hkey, "DefaultClientMode", 0,
+								REG_SZ, mode,
+								(DWORD) (strlen(mode) + 1))) !=
+		ERROR_SUCCESS) {
+		RegCloseKey(hkey);
+		return (*err_handler) (status, "RegSetValueEx", NULL);
+	}
+
+	RegCloseKey(hkey);
+
+	return SUCCESS;
+}
+
+
+USHORT SERVICES_delete(SC_HANDLE manager,
+					   TEXT * service_name,
+					   TEXT * display_name, USHORT(*err_handler) ())
+{
+/**************************************
+ *
+ *	S E R V I C E S _ d e l e t e
+ *
+ **************************************
+ *
+ * Functional description
+ *	delete installed service param from registry.
+ *
+ **************************************/
+	HKEY hkey;
+	SLONG status;
+	TEXT *mode;
+
+	mode = "";
+
+	if ((status = RegOpenKeyEx(HKEY_LOCAL_MACHINE,
+							   "SOFTWARE\\Borland\\InterBase\\CurrentVersion",
+							   0, KEY_WRITE, &hkey)) != ERROR_SUCCESS) {
+		return (*err_handler) (status, "RegOpenKeyEx", NULL);
+	}
+
+	if ((status = RegSetValueEx(hkey, "DefaultClientMode", 0,
+								REG_SZ, mode,
+								(DWORD) (strlen(mode) + 1))) !=
+		ERROR_SUCCESS) {
+		RegCloseKey(hkey);
+		return (*err_handler) (status, "RegSetValueEx", NULL);
+	}
+
+	RegCloseKey(hkey);
+
+	return SUCCESS;
+}
+
+
+USHORT SERVICES_install(SC_HANDLE manager,
+						TEXT * service_name,
+						TEXT * display_name,
+						TEXT * executable,
+						TEXT * directory,
+						TEXT * dependencies,
+						USHORT sw_startup, USHORT(*err_handler) ())
+{
+/**************************************
+ *
+ *	S E R V I C E S _ i n s t a l l
+ *
+ **************************************
+ *
+ * Functional description
+ *	Install a service in the service control panel.
+ *
+ **************************************/
+	SC_HANDLE service;
+	TEXT path_name[260];
+	USHORT len;
+	DWORD errnum;
+
+	strcpy(path_name, directory);
+	len = strlen(path_name);
+	if (len && path_name[len - 1] != '/' && path_name[len - 1] != '\\') {
+		path_name[len++] = '\\';
+		path_name[len] = 0;
+	}
+	strcpy(path_name + len, executable);
+	strcat(path_name, RUNAS_SERVICE);
+
+	service = CreateService(manager,
+							service_name,
+							display_name,
+							SERVICE_ALL_ACCESS,
+							SERVICE_WIN32_OWN_PROCESS |
+							SERVICE_INTERACTIVE_PROCESS,
+							(sw_startup ==
+							 STARTUP_DEMAND) ? SERVICE_DEMAND_START :
+							SERVICE_AUTO_START, SERVICE_ERROR_NORMAL,
+							path_name, NULL, NULL, dependencies, NULL, NULL);
+
+	if (service == NULL) {
+		errnum = GetLastError();
+		if (errnum == ERROR_DUP_NAME || errnum == ERROR_SERVICE_EXISTS)
+			return IB_SERVICE_ALREADY_DEFINED;
+		else
+			return (*err_handler) (errnum, "CreateService", NULL);
+	}
+
+	CloseServiceHandle(service);
+
+	return SUCCESS;
+}
+
+
+USHORT SERVICES_remove(SC_HANDLE manager,
+					   TEXT * service_name,
+					   TEXT * display_name, USHORT(*err_handler) ())
+{
+/**************************************
+ *
+ *	S E R V I C E S _ r e m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Remove a service from the service control panel.
+ *
+ **************************************/
+	SC_HANDLE service;
+	SERVICE_STATUS service_status;
+
+	service = OpenService(manager, service_name, SERVICE_ALL_ACCESS);
+	if (service == NULL)
+		return (*err_handler) (GetLastError(), "OpenService", NULL);
+
+	if (!QueryServiceStatus(service, &service_status)) {
+		CloseServiceHandle(service);
+		return (*err_handler) (GetLastError(), "QueryServiceStatus", service);
+	}
+
+	if (service_status.dwCurrentState != SERVICE_STOPPED) {
+		CloseServiceHandle(service);
+		return IB_SERVICE_RUNNING;
+	}
+
+	if (!DeleteService(service)) {
+		CloseServiceHandle(service);
+		return (*err_handler) (GetLastError(), "DeleteService", service);
+	}
+
+	CloseServiceHandle(service);
+
+	return SUCCESS;
+}
+
+
+USHORT SERVICES_start(SC_HANDLE manager,
+					  TEXT * service_name,
+					  TEXT * display_name,
+					  USHORT sw_mode, USHORT(*err_handler) ())
+{
+/**************************************
+ *
+ *	S E R V I C E S _ s t a r t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start an installed service.
+ *
+ **************************************/
+	SC_HANDLE service;
+	TEXT *mode;
+
+	service = OpenService(manager, service_name, SERVICE_ALL_ACCESS);
+	if (service == NULL)
+		return (*err_handler) (GetLastError(), "OpenService", NULL);
+
+	switch (sw_mode) {
+	case DEFAULT_CLIENT:
+		mode = NULL;
+		break;
+	case NORMAL_PRIORITY:
+		mode = "-r";
+		break;
+	case HIGH_PRIORITY:
+		mode = "-b";
+		break;
+	}
+	if (!StartService(service, (mode) ? 1 : 0, &mode)) {
+		CloseServiceHandle(service);
+		return (*err_handler) (GetLastError(), "StartService", service);
+	}
+
+	CloseServiceHandle(service);
+
+	return SUCCESS;
+}
+
+
+USHORT SERVICES_stop(SC_HANDLE manager,
+					 TEXT * service_name,
+					 TEXT * display_name, USHORT(*err_handler) ())
+{
+/**************************************
+ *
+ *	S E R V I C E S _ s t o p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Start a running service.
+ *
+ **************************************/
+	SC_HANDLE service;
+	SERVICE_STATUS service_status;
+	DWORD errnum;
+
+	service = OpenService(manager, service_name, SERVICE_ALL_ACCESS);
+	if (service == NULL)
+		return (*err_handler) (GetLastError(), "OpenService", NULL);
+
+	if (!ControlService(service, SERVICE_CONTROL_STOP, &service_status)) {
+		CloseServiceHandle(service);
+		errnum = GetLastError();
+		if (errnum == ERROR_SERVICE_NOT_ACTIVE)
+			return SUCCESS;
+		else
+			return (*err_handler) (errnum, "ControlService", service);
+	}
+
+/* Wait for the service to actually stop before returning. */
+
+	do {
+		if (!QueryServiceStatus(service, &service_status)) {
+			CloseServiceHandle(service);
+			return (*err_handler) (GetLastError(), "QueryServiceStatus",
+								   service);
+		}
+	}
+	while (service_status.dwCurrentState == SERVICE_STOP_PENDING);
+
+	CloseServiceHandle(service);
+
+	return SUCCESS;
+}
diff --git a/src/utilities/srvrmgr.cpp b/src/utilities/srvrmgr.cpp
new file mode 100644
index 0000000000..720c3cc437
--- /dev/null
+++ b/src/utilities/srvrmgr.cpp
@@ -0,0 +1,673 @@
+/*
+ *
+ *      PROGRAM:        InterBase server manager
+ *      MODULE:         ibmgr.c
+ *      DESCRIPTION:    server manager's routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ * $Id: srvrmgr.cpp,v 1.1.1.1 2001-05-23 13:26:41 tamlin Exp $
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include <unistd.h>
+#include <sys/types.h>
+#include <sys/wait.h>
+
+
+#include "../jrd/common.h"
+#include "../include/jrd/gds.h"
+#include "../jrd/gdsassert.h"
+#include "../jrd/svc_undoc.h"
+#include "../utilities/ibmgr.h"
+#include "../utilities/srvrmgr_proto.h"
+
+#define STUFF_WORD(p, value)    {*p++ = value; *p++ = value >> 8;}
+
+#define STATUS_BUFLEN           20	/* status vector length */
+#define SPB_BUFLEN              128	/* service params buffer length */
+#define SEND_BUFLEN             32	/* length of send and resp     */
+#define RESP_BUFLEN             128	/*   used by isc_service_query */
+#define PATHLEN			1024	/* path length of guardian process */
+
+/* After we fork and exec a guardian process, to determine
+   if the server have started we wait ATTACH_PAUSE seconds
+   and try to attach to it. This happens ATTACH_RETRY number
+   of times
+*/
+#define ATTACH_PAUSE		1	/* seconds to pause before attach */
+#define ATTACH_RETRY		10	/* Number of attach retries */
+
+
+static BOOLEAN attach_service(IBMGR_DATA *);
+static BOOLEAN detach_service(IBMGR_DATA *);
+static BOOLEAN print_pool(IBMGR_DATA *);
+static BOOLEAN start_shutdown(IBMGR_DATA *);
+static BOOLEAN start_server(IBMGR_DATA *);
+static BOOLEAN server_is_ok(IBMGR_DATA *);
+static BOOLEAN server_is_up(IBMGR_DATA *);
+
+void SRVRMGR_cleanup( IBMGR_DATA * data)
+{
+/**************************************
+ *
+ *      S R V R M G R _ c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *      If we are attached to a service, detaches
+ *
+ **************************************/
+	if (data->attached)
+		detach_service(data);
+}
+
+
+USHORT SRVRMGR_exec_line(IBMGR_DATA * data)
+{
+/**************************************
+ *
+ *      S R V R M G R _ e x e c _ l i n e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Executes command line
+ *
+ **************************************/
+	assert(data->attached || data->reattach);
+
+/* If reattach is TRUE and we currently attached, then we
+   will detach from service. This is potentially dangerous
+   situation, because if shutdown is TRUE (server shutdown 
+   was initiated) server will be shutdowned.
+   I do not check the shutdown flag here because reattach
+   could be TRUE only if shutdown has not been initiated.
+*/
+	if (data->operation != OP_START)
+		if (data->reattach) {
+			assert(!data->shutdown);
+			if (data->attached)
+
+				/* Attached flag should be NULL after detach_service
+				 */
+				detach_service(data);
+			if (attach_service(data) == FALSE)
+				return MSG_ATTFAIL;
+			data->reattach = 0;
+		}
+
+	switch (data->operation) {
+	case OP_START:
+		if (start_server(data) == FALSE)
+			return MSG_STARTFAIL;
+		break;
+
+	case OP_SHUT:
+		switch (data->suboperation) {
+		case SOP_NONE:
+		case SOP_SHUT_NOW:
+			data->shutdown = TRUE;
+			if (start_shutdown(data) == FALSE) {
+				data->shutdown = FALSE;
+				return MSG_SSHUTFAIL;
+			}
+			detach_service(data);
+			data->shutdown = FALSE;
+			data->reattach |= (REA_HOST | REA_USER | REA_PASSWORD);
+			return MSG_SHUTOK;
+
+		case SOP_SHUT_NOAT:
+			ib_printf("SHUTDOWN NO ATTACHMENTS\n");
+			data->shutdown = TRUE;
+			break;
+
+		case SOP_SHUT_NOTR:
+			ib_printf("SHUTDOWN NO TRANSACTIONS\n");
+			data->shutdown = TRUE;
+			break;
+
+		case SOP_SHUT_IGN:
+			ib_printf("SHUTDOWN IGNORE\n");
+			data->shutdown = FALSE;
+			break;
+		}
+		break;
+
+	case OP_PRINT:
+		switch (data->suboperation) {
+		case SOP_PRINT_POOL:
+			if (print_pool(data) == FALSE)
+				return MSG_PRPOOLFAIL;
+			return MSG_PRPOOLOK;
+		}
+		break;
+
+	default:
+#ifdef DEV_BUILD
+		ib_fprintf(OUTFILE,
+				   "ASSERT: file %s line %ld: unknown operation %d\n",
+				   __FILE__, __LINE__, data->operation);
+#endif
+		;
+	}
+
+	return SUCCESS;
+}
+
+
+void SRVRMGR_msg_get( USHORT number, TEXT * msg)
+{
+/**************************************
+ *
+ *      S R V R M G R _ m s g _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *      Retrieve a message from the error file
+ *
+ **************************************/
+
+/* The following line will be the future of this function
+
+gds__msg_format (0, MSG_FAC, number, MSG_LEN, msg,
+    NULL, NULL, NULL, NULL, NULL);
+*/
+
+	switch (number) {
+	case MSG_PROMPT:
+		strcpy(msg, "IBMGR>");
+		break;
+	case MSG_OPSPEC:
+		strcpy(msg, "operation already specified");
+		break;
+	case MSG_NOOPSPEC:
+		strcpy(msg, "no operation specified");
+		break;
+	case MSG_INVSWOP:
+		strcpy(msg, "illegal operation/switch combination");
+		break;
+	case MSG_SHUTDOWN:
+		strcpy(msg, "warning: shutdown is in progress");
+		break;
+	case MSG_CANTCHANGE:
+		strcpy(msg, "can not change host, password or user");
+		break;
+	case MSG_VERSION:
+		strcpy(msg, "ibmgr version");
+		break;
+	case MSG_INVSW:
+		strcpy(msg, "invalid switch");
+		break;
+	case MSG_AMBSW:
+		strcpy(msg, "ambiguous switch");
+		break;
+	case MSG_INVSWSW:
+		strcpy(msg, "invalid switch combination");
+		break;
+	case MSG_WARNPASS:
+		strcpy(msg, "warning: only 8 significant bytes of password used");
+		break;
+	case MSG_INVUSER:
+		strcpy(msg, "invalid user (only 32 bytes allowed");
+		break;
+	case MSG_INVPAR:
+		strcpy(msg, "invalid parameter, no switch specified");
+		break;
+	case MSG_SWNOPAR:
+		strcpy(msg, "switch does not take any parameter");
+		break;
+	case MSG_REQPAR:
+		strcpy(msg, "switch requires parameter");
+		break;
+	case MSG_SYNTAX:
+		strcpy(msg, "syntax error in command line");
+		break;
+	case MSG_GETPWFAIL:
+		strcpy(msg, "can not get password entry");
+		break;
+	case MSG_ATTFAIL:
+		strcpy(msg, "can not attach to server");
+		break;
+	case MSG_CANTSHUT:
+		strcpy(msg, "can not start another shutdown");
+		break;
+	case MSG_SSHUTFAIL:
+		strcpy(msg, "can not start server shutdown");
+		break;
+	case MSG_SHUTOK:
+		strcpy(msg, "server shutdown completed");
+		break;
+	case MSG_CANTQUIT:
+		strcpy(msg, "can not quit now, use shut -ign");
+		break;
+	case MSG_STARTERR:
+		strcpy(msg, "check $INTERBASE/interbase.log file for errors");
+		break;
+	case MSG_STARTFAIL:
+		strcpy(msg, "can not start server");
+		break;
+	case MSG_SRVUP:
+		strcpy(msg, "server is already running");
+		break;
+	case MSG_SRVUPOK:
+		strcpy(msg, "server has been successfully started");
+		break;
+	case MSG_NOPERM:
+		strcpy(msg, "no permissions to perform operation");
+		break;
+	case MSG_PRPOOLFAIL:
+		strcpy(msg, "Failed to print pool info");
+		break;
+	case MSG_PRPOOLOK:
+		strcpy(msg, "Print pool Successfull");
+		break;
+	case MSG_FLNMTOOLONG:
+		strcpy(msg, "File name too long");
+		break;
+	default:
+		strcpy(msg, "can not get an error message");
+	}
+}
+
+
+static BOOLEAN attach_service( IBMGR_DATA * data)
+{
+/**************************************
+ *
+ *      a t t a c h _ s e r v i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Attaches to "anonymous" or "query_server"
+ *	service depending on thr user name.
+ *
+ **************************************/
+	STATUS status[STATUS_BUFLEN];
+	TEXT spb[SPB_BUFLEN], *p;
+	TEXT svc_name[128];
+
+/* Obviously we should not be already attached to service
+*/
+	assert(!data->attached);
+
+	strcpy(svc_name, data->host);
+
+	p = spb;
+
+	if (!strcmp(data->user, SYSDBA_USER_NAME)) {
+		*p++ = isc_spb_version1;
+		*p++ = isc_spb_user_name;
+		*p++ = strlen(SYSDBA_USER_NAME);
+		strcpy(p, SYSDBA_USER_NAME);
+		p += strlen(p);
+		*p++ = isc_spb_password;
+		*p++ = strlen(data->password);
+		strcpy(p, data->password);
+
+		strcat(svc_name, ":query_server");
+
+#ifdef DEBUG
+		ib_fprintf(OUTFILE, "spb: \"%s\"\nsvc_name: \"%s\"\n", spb, svc_name);
+#endif
+
+		isc_service_attach(status, 0, svc_name, &data->attached, strlen(spb),
+						   spb);
+	}
+	else {
+		strcat(svc_name, ":anonymous");
+		isc_service_attach(status, 0, svc_name, &data->attached, 0, "");
+	}
+
+	if (status[0] == 1 && status[1] > 0) {
+#ifdef DEBUG
+		ib_fprintf(OUTFILE, "ERROR: %lu\n", status[1]);
+#endif
+		assert(status[1] != isc_svcnotdef);
+		isc_print_status(status);
+		return FALSE;
+	}
+	return TRUE;
+}
+
+
+static BOOLEAN detach_service( IBMGR_DATA * data)
+{
+/**************************************
+ *
+ *      d e t a c h _ s e r v i c e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Detaches from service.
+ *      If IBMGR_shutdown_start was called
+ *      before, shutdowns the server.
+ *
+ **************************************/
+	STATUS status[STATUS_BUFLEN];
+
+/* We should be attached if we want to detach
+*/
+	assert(data->attached);
+
+	isc_service_detach(status, &(data->attached));
+	data->attached = NULL;
+
+	if (status[0] == 1 && status[1] > 0) {
+/* If as a result of detach_service server has been
+   shutdowned we will get an error.
+   MMM - need to check for that error and return TRUE
+*/
+#ifdef DEBUG
+		ib_fprintf(OUTFILE, "ERROR: %lu\n", status[1]);
+#endif
+		if (!data->shutdown)
+			isc_print_status(status);
+		return FALSE;
+	}
+	return TRUE;
+}
+
+
+static BOOLEAN start_shutdown( IBMGR_DATA * data)
+{
+/**************************************
+ *
+ *      s t a r t _ s h u t d o w n
+ *
+ **************************************
+ *
+ * Functional description
+ *      Initiate shutdown process
+ *
+ **************************************/
+	STATUS status[STATUS_BUFLEN];
+	char sendbuf[SEND_BUFLEN];
+	char respbuf[2];
+
+/* We should be attached to ask for any service
+*/
+	assert(data->attached);
+
+	sendbuf[0] = isc_info_svc_svr_offline;
+	isc_service_query(status, &data->attached, 0, 0, NULL,
+					  1, sendbuf, sizeof(respbuf), respbuf);
+
+	if (status[0] == 1 && status[1] > 0) {
+		isc_print_status(status);
+		return FALSE;
+	}
+	return TRUE;
+}
+
+
+static BOOLEAN start_server( IBMGR_DATA * data)
+{
+/**************************************
+ *
+ *      s t a r t _ s e r v e r
+ *
+ **************************************
+ *
+ * Functional description
+ *      start the superserver using guardian process
+ *
+ **************************************/
+	TEXT msg[MSG_LEN];
+	TEXT path[PATHLEN];
+	TEXT *argv[4];
+	int retry;
+	pid_t pid, ret_value;
+	int exit_status;
+
+/* If we are currently attached and host has not been changed,
+   server on this host is up and running.
+*/
+	if (data->attached && !(data->reattach & REA_HOST)) {
+		SRVRMGR_msg_get(MSG_SRVUP, msg);
+		ib_fprintf(OUTFILE, "%s\n", msg);
+		return TRUE;
+	}
+
+	if (data->attached) {
+		detach_service(data);
+		data->reattach |= (REA_HOST | REA_USER | REA_PASSWORD);
+	}
+
+	assert(data->reattach);
+
+/* Let's see if server is already running, try to attach to it
+*/
+	if (server_is_up(data) == TRUE) {
+		SRVRMGR_msg_get(MSG_SRVUP, msg);
+		ib_fprintf(OUTFILE, "%s\n", msg);
+		return TRUE;
+	}
+
+/* We failed to attach to service, thus server might not be running
+   You know what? We'll try to start it.
+*/
+	gds__prefix(path, SERVER_GUARDIAN);
+
+	argv[0] = path;
+	if (data->suboperation == SOP_START_ONCE)
+		argv[1] = "-o";
+	else if (data->suboperation == SOP_START_SIGNORE)
+		argv[1] = "-s";
+	else
+		argv[1] = "-f";
+	argv[2] = NULL;
+
+
+#ifdef DEBUG
+	ib_printf("Argument list:\n\"%s\"\n\"%s\"\n", argv[0], argv[1]);
+#endif
+
+	if (!(pid = vfork())) {
+		execv(path, argv);
+		_exit(FINI_ERROR);
+	}
+
+/* Wait a little bit to let the server start
+*/
+	sleep(ATTACH_PAUSE);
+	for (retry = ATTACH_RETRY; retry; retry--) {
+		sleep(ATTACH_PAUSE);
+
+		/* What we want to do here is to find out if the server has
+		   started or not. We do it by trying to attach to the server
+		   by calling isc_service_attach (in server_is_up()).
+		   But in a local server startup (and this the way it works
+		   currently) before calling isc_service_attach, we can check
+		   if the child process (ibguard) exited or not. If it did,
+		   then the server exited with startup error and there is no
+		   need to try to attach to it.
+		 */
+		ret_value = waitpid(pid, &exit_status, WNOHANG);
+
+		/* waitpid() returns guardian process pid if the server has
+		   exited (or killed by a signal), -1 if error happened,
+		   0 if an exit status of a child process is unavailable (that
+		   means in our case that the server is running).
+		 */
+		if (ret_value == pid) {
+#ifdef DEBUG
+			ib_printf("Guardian process %ld terminated\n", pid);
+#endif
+			break;
+		}
+#ifdef DEBUG
+		else if (ret_value == -1) {
+			ib_printf("waitpid returned error, errno = %ld\n", errno);
+		}
+#endif
+
+#ifdef DEBUG
+		ib_printf("Attach retries left: %d\n", retry);
+#endif
+		if (server_is_up(data) == TRUE) {
+			SRVRMGR_msg_get(MSG_SRVUPOK, msg);
+			ib_fprintf(OUTFILE, "%s\n", msg);
+			return TRUE;
+		}
+	}
+	SRVRMGR_msg_get(MSG_STARTERR, msg);
+	ib_fprintf(OUTFILE, "%s\n", msg);
+	return FALSE;
+}
+
+
+static BOOLEAN server_is_ok( IBMGR_DATA * data)
+{
+/**************************************
+ *
+ *      s e r v e r _ i s _ o k
+ *
+ **************************************
+ *
+ * Functional description
+ *      checks if superserver is running and
+ *	functional by trying to attach to the
+ *	security database.
+ *
+ **************************************/
+	STATUS status[STATUS_BUFLEN];
+	TEXT path[PATHLEN];
+	TEXT db_name[128];
+	isc_db_handle db_handle = 0L;
+	BOOLEAN ok;
+
+	strcpy(db_name, data->host);
+	gds__prefix(path, USER_INFO_NAME);
+	sprintf(db_name, "%s:%s", db_name, path);
+
+	isc_attach_database(status, strlen(db_name), db_name, &db_handle, 0,
+						NULL);
+	if (status[0] == 1 && status[1] > 0) {
+#ifdef DEBUG
+		ib_fprintf(OUTFILE, "server_is_ok/isc_attach_database ERROR: %lu\n",
+				   status[1]);
+#endif
+		return FALSE;
+	}
+	isc_detach_database(status, &db_handle);
+	if (status[0] == 1 && status[1] > 0) {
+#ifdef DEBUG
+		ib_fprintf(OUTFILE, "server_is_ok/isc_detach_database ERROR: %lu\n",
+				   status[1]);
+#endif
+		return FALSE;
+	}
+	return TRUE;
+}
+
+
+static BOOLEAN server_is_up( IBMGR_DATA * data)
+{
+/**************************************
+ *
+ *      s e r v e r _ i s _ u p
+ *
+ **************************************
+ *
+ * Functional description
+ *      checks if superserver is running
+ *	trying to attach to "anonymous" service.
+ *
+ **************************************/
+	STATUS status[STATUS_BUFLEN];
+	TEXT svc_name[128];
+	isc_svc_handle svc_handle = NULL;
+	BOOLEAN up;
+
+/* Obviously we should not be already attached to service
+*/
+	assert(!data->attached);
+
+	up = TRUE;
+
+/* To find out if we the server is already running we
+   will try to attach to it. We are going to use "anonymous"
+   service in order not to get an error like wrong user/password
+*/
+	strcpy(svc_name, data->host);
+	strcat(svc_name, ":anonymous");
+	isc_service_attach(status, 0, svc_name, &svc_handle, 0, "");
+
+	if (status[0] == 1 && status[1] > 0) {
+#ifdef DEBUG
+		ib_fprintf(OUTFILE, "server_is_up ERROR: %lu\n", status[1]);
+#endif
+		assert(status[1] != isc_svcnotdef);
+
+		/* Server can be running but attach could fail for
+		   other reasons. For example, attach could return
+		   not enough memory error. Let's take care of it.
+		 */
+		if (status[1] == isc_virmemexh)
+			up = TRUE;
+		else
+			up = FALSE;
+	}
+	isc_service_detach(status, &svc_handle);
+	return up;
+}
+
+
+static BOOLEAN print_pool( IBMGR_DATA * data)
+{
+/**************************************
+ *
+ *      p r i n t _ p o o l
+ *
+ **************************************
+ *
+ * Functional description
+ *      Make the server print memory pools
+ *
+ **************************************/
+	STATUS status[STATUS_BUFLEN];
+	char *sptr, sendbuf[512];
+	USHORT path_length;
+	char respbuf[2];
+
+/* We should be attached to ask for any service
+*/
+	assert(data->attached);
+
+	sptr = sendbuf;
+	path_length = strlen(data->print_file);
+	*sptr = isc_info_svc_dump_pool_info;
+	++sptr;
+	STUFF_WORD(sptr, path_length);
+	strcpy(sptr, data->print_file);
+	sptr += path_length;
+	isc_service_query(status, &data->attached, 0, 0, NULL,
+					  sptr - sendbuf, sendbuf, sizeof(respbuf), respbuf);
+	if (status[0] == 1 && status[1] > 0) {
+		isc_print_status(status);
+		return FALSE;
+	}
+	return TRUE;
+}
diff --git a/src/utilities/srvrmgr_proto.h b/src/utilities/srvrmgr_proto.h
new file mode 100644
index 0000000000..936b0ed225
--- /dev/null
+++ b/src/utilities/srvrmgr_proto.h
@@ -0,0 +1,31 @@
+/*
+ *      PROGRAM:        InterBase server manager
+ *      MODULE:         srvrmgr_proto.h
+ *      DESCRIPTION:    Prototype header file for srvrmgr.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+ 
+#ifndef _SRVRMGR_PROTO_H_
+#define _SRVRMGR_PROTO_H_
+ 
+extern void 	SRVRMGR_cleanup (IBMGR_DATA *);
+extern USHORT	SRVRMGR_exec_line (IBMGR_DATA *);
+extern void 	SRVRMGR_msg_get (USHORT, TEXT *);
+
+#endif /* _SRVRMGR_PROTO_H_ */
diff --git a/src/utilities/util.cpp b/src/utilities/util.cpp
new file mode 100644
index 0000000000..496a25ddfe
--- /dev/null
+++ b/src/utilities/util.cpp
@@ -0,0 +1,231 @@
+/*
+ *      PROGRAM:        InterBase Utility programs
+ *      MODULE:         util.c
+ *      DESCRIPTION:    Utility routines for ibguard & ibserver
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+/*
+$Id: util.cpp,v 1.1.1.1 2001-05-23 13:26:41 tamlin Exp $
+*/
+
+#include "../jrd/ib_stdio.h"
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>				/* for open() and fcntl() */
+#include <errno.h>
+
+#ifndef NO_FLOCK
+#include <sys/file.h>			/* for flock() */
+#endif
+
+#include <unistd.h>				/* for fork() */
+
+#ifdef SOLARIS
+#include <wait.h>				/* for waitpid() */
+#else
+#include <sys/wait.h>			/* for waitpid() */
+#endif
+
+
+#include "../jrd/common.h"
+#include "../jrd/gdsassert.h"
+#include "../utilities/util_proto.h"
+#include "../jrd/gds_proto.h"
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN      1024
+#endif
+
+
+
+pid_t UTIL_start_process(char *process, char **argv)
+{
+/**************************************
+ *
+ *      U T I L _ s t a r t _ p r o c e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *      
+ *     This function is used to create the specified process, 
+ *
+ * Returns Codes:
+ *	-1		Process spawn failed.
+ *	pid		Successful creation. PID is returned. 
+ *      
+ *     Note: Make sure that the argument list ends with a null  
+ *     and the first argument is large enough to hold the complete 
+ *     expanded process name. (MAXPATHLEN recommended)
+ *
+ **************************************/
+	TEXT string[MAXPATHLEN];
+	pid_t pid;
+
+	assert(process != NULL);
+	assert(argv != NULL);
+
+/* prepend InterBase home directory to the program name */
+	gds__prefix(string, process);
+
+/* add place in argv for visibility to "ps" */
+	strcpy(argv[0], string);
+
+	if (!(pid = vfork())) {
+		execv(string, argv);
+		_exit(FINI_ERROR);
+	}
+
+	return (pid);
+}
+
+
+int UTIL_wait_for_child( pid_t child_pid)
+{
+/**************************************
+ *
+ *      U T I L _ w a i t _ f o r _ c h i l d
+ *
+ **************************************
+ *
+ * Functional description
+ *      
+ *     This function is used to wait for the child specified by child_pid
+ *
+ * Return code:
+ *	0	Normal exit
+ *	-1	Abnormal exit - unknown reason.
+ *	Other	Abnormal exit - process error code returned.
+ *
+ **************************************/
+	int child_exit_status;
+
+	assert(child_pid != 0);
+
+/* wait for the child process with child_pid to exit */
+
+	while (waitpid(child_pid, &child_exit_status, 0) == -1)
+		if (SYSCALL_INTERRUPTED(errno))
+			continue;
+		else
+			return (errno);
+
+/* Check for very specific conditions before we assume the child
+   did a normal exit. */
+
+	if (WIFEXITED(child_exit_status) && (WEXITSTATUS(child_exit_status) != 0))
+		return (WEXITSTATUS(child_exit_status));
+
+	if (
+#ifndef AIX_PPC
+		   WCOREDUMP(child_exit_status) ||
+#endif
+		   WIFSIGNALED(child_exit_status) || !WIFEXITED(child_exit_status))
+		return (-1);
+
+	return (0);
+}
+
+
+int UTIL_ex_lock( TEXT * file)
+{
+/**************************************
+ *
+ *      U T I L _ e x _ l o c k              
+ *
+ **************************************
+ *
+ * Functional description
+ *  
+ *     This function is used to exclusively lock a file.
+ *
+ * Return Codes:
+ *	-1		Failure to open file.
+ *	-2		Failure to obtain exclusive lock on file.
+ *	otherwise	Success - file descriptor is returned.
+ *
+ **************************************/
+
+	TEXT expanded_filename[MAXPATHLEN], tmp[MAXPATHLEN], hostname[64];
+	int fd_file;				/* file fd for the opened and locked file */
+
+#ifdef NO_FLOCK
+	struct flock lock;
+#endif
+
+/* get the file name and prepend the complete path etc */
+	gds__prefix_lock(tmp, file);
+	sprintf(expanded_filename, tmp, ISC_get_host(hostname, sizeof(hostname)));
+
+	if ((fd_file = open(expanded_filename, O_RDWR | O_CREAT, 0666)) == -1) {
+		ib_fprintf(ib_stderr, "Could not open %s for write\n",
+				   expanded_filename);
+		return (-1);
+	}
+
+	assert(fd_file != -2);
+
+#ifdef NO_FLOCK
+/* get an exclusive lock on the GUARD file without blocking on the call */
+	lock.l_type = F_WRLCK;
+	lock.l_whence = 0;
+	lock.l_start = 0;
+	lock.l_len = 0;
+	if (fcntl(fd_file, F_SETLK, &lock) == -1)
+#else
+	if (flock(fd_file, LOCK_EX))
+#endif
+	{
+		close(fd_file);
+		return (-2);
+	}
+	return (fd_file);
+}
+
+
+void UTIL_ex_unlock( int fd_file)
+{
+/**************************************
+ *
+ *      U T I L _ e x _ l o c k              
+ *
+ **************************************
+ *
+ * Functional description
+ *  
+ *     This function is used to unlock the exclusive file.
+ *
+ **************************************/
+
+
+#ifdef NO_FLOCK
+
+	struct flock lock;
+
+/* get an exclusive lock on the GUARD file with a block */
+	lock.l_type = F_UNLCK;
+	lock.l_whence = 0;
+	lock.l_start = 0;
+	lock.l_len = 0;
+	fcntl(fd_file, F_SETLKW, &lock);
+#else
+	flock(fd_file, LOCK_UN);
+#endif
+	close(fd_file);
+}
diff --git a/src/utilities/util_proto.h b/src/utilities/util_proto.h
new file mode 100644
index 0000000000..4ffa0ac7c0
--- /dev/null
+++ b/src/utilities/util_proto.h
@@ -0,0 +1,33 @@
+/*
+ *      PROGRAM:        UTILITIES shared functions prototypes.
+ *      MODULE:         util_proto.h
+ *      DESCRIPTION:    Prototype header file for util.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _UTIL_PROTO_H_
+#define _UTIL_PROTO_H_
+
+extern pid_t 	UTIL_fork_process   (char *process, char **arguments); 
+extern int 	UTIL_wait_for_child (pid_t child_pid); 
+extern int 	UTIL_ex_lock 	    (char *file); 
+extern void 	UTIL_ex_unlock      (int fd_file); 
+
+#endif /* _UTIL_PROTO_H_ */
+
diff --git a/src/utilities/v2_dmp.cpp b/src/utilities/v2_dmp.cpp
new file mode 100644
index 0000000000..0e7c9b8ea8
--- /dev/null
+++ b/src/utilities/v2_dmp.cpp
@@ -0,0 +1,735 @@
+/*
+ *	PROGRAM:	JRD Access Method
+ *	MODULE:		dmp.c
+ *	DESCRIPTION:	Logical page dumper
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/jrd.h"
+#include "../jrd/cch.h"
+#include "../jrd/pag.h"
+#include "../jrd/ods.h"
+#include "../jrd/btr.h"
+#include "../jrd/time.h"
+#include "../jrd/tra.h"
+#include "../jrd/cch_proto.h"
+#include "../jrd/dmp_proto.h"
+
+void (*dbg_block) ();
+void (*dmp_active) () = DMP_active,
+	(*dmp_dirty) () = DMP_dirty, (*dmp_page) () = DMP_page;
+
+extern *dbg_file;
+
+static void complement_key(UCHAR *, int);
+static double decompress(SCHAR *);
+static void dmp_blob(register BLP);
+static void dmp_header(register HDR);
+static void dmp_pip(register PIP, ULONG);
+static void dmp_transactions(register TIP, ULONG);
+static void dmp_pointer(register PPG);
+static void dmp_data(register DPG);
+static void dmp_root(register IRT);
+static void dmp_index(BTR);
+static void move(SCHAR *, SCHAR *, SSHORT);
+
+static int DMP_descending;
+
+static TEXT *months[] = {
+	"Jan", "Feb", "Mar",
+	"Apr", "May", "Jun",
+	"Jul", "Aug", "Sep",
+	"Oct", "Nov", "Dec"
+};
+
+
+#define TRANS_SHIFT(number)	(((number) & TRA_MASK) << 1)
+#define TRANS_OFFSET(number)	((number) >> TRA_SHIFT)
+#define SHIFTULONG	2
+
+#define BTN_PREFIX(node)	node->btn_prefix
+#define BTN_LENGTH(node)	node->btn_length
+#define BTN_NUMBER(node)	node->btn_number
+#define BTN_DATA(node)		node->btn_data
+
+#define QUAD_MOVE(a,b)	quad_move(a, b)
+
+#define QE(a,b,n)	(((UCHAR*)b)[n] == ((UCHAR*)a)[n])
+#define QUAD_EQUAL(a,b)	(QE(a,b,0) && QE(a,b,1) && QE(a,b,2) && QE(a,b,3))
+#define NEXT_NODE(xxx)	(BTN) (BTN_DATA (xxx) + BTN_LENGTH (xxx))
+#define CTO32L(p) ((((SCHAR*)(p))[0] << 24) | (((UCHAR*)(p))[1] << 16) | (((UCHAR*)(p))[2] << 8) | (((UCHAR*)(p)) [3]))
+
+
+void DMP_active(void)
+{
+/**************************************
+ *
+ *	D M P _ a c t i v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump all buffers that are active.
+ *
+ **************************************/
+	register BCB bcb;
+	register BDB bdb;
+	register int i;
+
+	bcb = dbb->dbb_bcb;
+	for (i = 0; i < bcb->bcb_count; i++) {
+		bdb = bcb->bcb_rpt[i].bcb_bdb;
+		if (bdb->bdb_use_count) {
+			if (*dbg_block)
+				(*dbg_block) (bdb);
+			DMP_page(bdb->bdb_page);
+		}
+	}
+}
+
+
+void DMP_dirty(void)
+{
+/**************************************
+ *
+ *	D M P _ d i r t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump all buffers that are dirty.
+ *
+ **************************************/
+	register BCB bcb;
+	register BDB bdb;
+	register int i;
+
+	bcb = dbb->dbb_bcb;
+	for (i = 0; i < bcb->bcb_count; i++) {
+		bdb = bcb->bcb_rpt[i].bcb_bdb;
+		if (bdb->bdb_flags & bdb_dirty) {
+			if (*dbg_block)
+				(*dbg_block) (bdb);
+			DMP_page(bdb->bdb_page);
+		}
+	}
+}
+
+
+void DMP_page( SLONG number)
+{
+/**************************************
+ *
+ *	D M P _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a database page.  Actually, just case on type
+ *	and disptach.
+ *
+ **************************************/
+	WIN window;
+	register PAG page;
+
+	window.win_page = number;
+	page = FETCH(&window, LCK_read, 0);
+	DMP_fetched_page(page, number, 0);
+	RELEASE(&window);
+}
+
+
+void DMP_fetched_page( register PAG page, ULONG number, ULONG sequence)
+{
+/**************************************
+ *
+ *	D M P _ f e t c h e d _ p a g e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Dump a database page.  Actually, just case on type
+ *	and disptach.  The sequence number is provided by
+ *	the rebuild utility and passed as zero by the standard
+ *	dump code.
+ *
+ **************************************/
+
+	ib_fprintf(dbg_file, "\n%ld\t", number);
+
+	switch (page->pag_type) {
+	case pag_header:
+		dmp_header(page);
+		break;
+
+	case pag_pages:
+		dmp_pip(page, sequence);
+		break;
+
+	case pag_transactions:
+		dmp_transactions(page, sequence);
+		break;
+
+	case pag_pointer:
+		dmp_pointer(page, sequence);
+		break;
+
+	case pag_data:
+		dmp_data(page, sequence);
+		break;
+
+	case pag_root:
+		dmp_root(page);
+		break;
+
+	case pag_index:
+		dmp_index(page);
+		break;
+
+	case pag_blob:
+		dmp_blob(page);
+		break;
+
+	default:
+		ib_fprintf(dbg_file, "*** Page %ld (type %d) is undefined ***",
+				   number, page->pag_type);
+	}
+
+	ib_fprintf(dbg_file, "\n");
+}
+
+
+static void complement_key( UCHAR * p, int length)
+{
+/**************************************
+ *
+ *	c o m p l e m e n t _ k e y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Negate a key for descending index.
+ *
+ **************************************/
+	UCHAR *end;
+
+	for (end = p + length; p < end; p++)
+		*p ^= -1;
+}
+
+
+static double decompress( SCHAR * value)
+{
+/**************************************
+ *
+ *	d e c o m p r e s s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Re-form a double precision number out of a compressed
+ *	value string (assume string has been null padded to 8
+ *	bytes).
+ *
+ **************************************/
+	double dbl;
+	SSHORT l;
+	SCHAR *p;
+
+	p = (SCHAR *) & dbl;
+
+	if (*value & (1 << 7)) {
+		*p++ = *value++ ^ (1 << 7);
+		l = 7;
+		do
+			*p++ = *value++;
+		while (--l);
+	}
+	else {
+		l = 8;
+		do
+			*p++ = -*value++ - 1;
+		while (--l);
+	}
+
+	return dbl;
+}
+
+
+static void dmp_blob( register BLP page)
+{
+/**************************************
+ *
+ *	d m p _ b l o b
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	USHORT i, n;
+	ULONG *ptr;
+
+	ib_fprintf(dbg_file,
+			   "BLOB PAGE\n\tFlags: %x, lead page: %d, sequence: %d, length: %d\n\t",
+			   ((PAG) page)->pag_flags, page->blp_lead_page,
+			   page->blp_sequence, page->blp_length);
+
+	if (((PAG) page)->pag_flags & blp_pointers) {
+		n = page->blp_length >> SHIFTULONG;
+		for (i = 0, ptr = (ULONG *) page->blp_page; i < n; i++, ptr++)
+			ib_fprintf(dbg_file, "%d,", *ptr);
+	}
+
+	ib_fprintf(dbg_file, "\n");
+}
+
+
+static void dmp_header( register HDR page)
+{
+/**************************************
+ *
+ *	d m p _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	struct tm time;
+	SCHAR *p, *end;
+	SLONG number;
+
+	ib_fprintf(dbg_file,
+			   "HEADER PAGE\n\tPage size: %d, version: %d, pages: %ld\n",
+			   page->hdr_page_size, page->hdr_ods_version, page->hdr_PAGES);
+
+	gds__decode_date(page->hdr_creation_date, &time);
+	ib_fprintf(dbg_file, "\tCreation date:\t%s %d, %d %d:%02d:%02d\n",
+			   months[time.tm_mon], time.tm_mday, time.tm_year + 1900,
+			   time.tm_hour, time.tm_min, time.tm_sec);
+
+
+
+
+	ib_fprintf(dbg_file,
+			   "\tOldest trans %ld, oldest_active %ld, next trans %ld\n",
+			   page->hdr_oldest_transaction, page->hdr_oldest_active,
+			   page->hdr_next_transaction);
+
+	ib_fprintf(dbg_file,
+			   "\tfile sequence # %d, flags %d, attachment %ld\n",
+			   page->hdr_sequence, page->hdr_flags, 0);
+
+
+/*ib_fprintf (dbg_file,
+    "\timplementation %ld, shadow count %ld\n",
+	0, page->hdr_shadow_count);
+*/
+
+	ib_fprintf(dbg_file, "\n    Variable header data:\n");
+
+	for (p = (SCHAR *) page->hdr_data, end = p + page->hdr_page_size;
+		 p < end && *p != HDR_end; p += 2 + p[1])
+		switch (*p) {
+		case HDR_root_file_name:
+			ib_printf("\tRoot file name: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_journal_server:
+			ib_printf("\tJournal server: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_file:
+			ib_printf("\tContinuation file: %*s\n", p[1], p + 2);
+			break;
+
+		case HDR_last_page:
+			move(p + 2, &number, sizeof(number));
+			ib_printf("\tLast logical page: %ld\n", number);
+			break;
+
+		case HDR_unlicensed:
+			move(p + 2, &number, sizeof(number));
+			ib_printf("\tUnlicensed accesses: %ld\n", number);
+			break;
+
+/*	case HDR_sweep_interval:
+	    move (p + 2, &number, sizeof (number));
+	    ib_printf ("\tSweep interval: %ld\n", number);
+	    break;
+
+ 	case HDR_log_name:
+	    ib_printf ("\tLog file name: %*s\n", p[1], p + 2);
+	    break;
+*/
+		default:
+			ib_printf("\tUnrecognized option %d, length %d\n", p[0], p[1]);
+		}
+
+	ib_printf("\t*END*\n");
+}
+
+
+static void dmp_pip( register PIP page, ULONG sequence)
+{
+/**************************************
+ *
+ *	d m p _ p i p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print a page inventory page.
+ *
+ **************************************/
+	register PGC control;
+	register int n;
+
+	control = dbb->dbb_pcontrol;
+	ib_fprintf(dbg_file,
+			   "PAGE INVENTORY PAGE\n\tMin page: %ld\n\t", page->pip_min);
+
+#define BIT(n) (page->pip_bits [n >> 3] & (1 << (n & 7)))
+
+	for (n = 0; n < control->pgc_ppp;) {
+		while (n < control->pgc_ppp)
+			if (BIT(n))
+				break;
+			else
+				n++;
+		ib_fprintf(dbg_file, "%d - ", n);
+		while (n < control->pgc_ppp)
+			if (!BIT(n))
+				break;
+			else
+				n++;
+		ib_fprintf(dbg_file, "%d, ", n - 1);
+	}
+
+	ib_fprintf(dbg_file, "\n");
+}
+
+
+static void dmp_transactions( register TIP page, ULONG sequence)
+{
+/**************************************
+ *
+ *	d m p _ t r a n s a c t i o n 
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	UCHAR *byte, s[101], *p, *end;
+	ULONG transactions_per_tip, number, trans_offset;
+	USHORT shift, state, hundreds;
+
+	transactions_per_tip = dbb->dbb_pcontrol->pgc_tpt;
+
+	ib_fprintf(dbg_file, "Transaction Inventory Page");
+/*
+ib_fprintf (dbg_file, "\tCurrent transaction %d", dbb->dbb_transaction->tra_number);
+*/
+	if (sequence)
+		ib_fprintf(dbg_file, "\t first transaction on page %ld",
+				   transactions_per_tip * (sequence - 1));
+	ib_fprintf(dbg_file, "\tnext TIP page %d\n\n", page->tip_next);
+	ib_fprintf(dbg_file,
+			   "\t          1         2         3         4         5         6         7         8         9\n");
+	ib_fprintf(dbg_file,
+			   "\t0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789\n\n");
+	end = s + sizeof(s) - 1;
+	p = s;
+
+	for (hundreds = number = 0; number < transactions_per_tip; number++) {
+		trans_offset = TRANS_OFFSET(number);
+		byte = page->tip_transactions + trans_offset;
+		shift = TRANS_SHIFT(number);
+		state = (*byte >> shift) & TRA_MASK;
+		*p++ = (state == tra_active) ? 'A' :
+			(state == tra_limbo) ? 'L' : (state == tra_dead) ? 'D' : 'C';
+		if (p >= end) {
+			*p = 0;
+			ib_fprintf(dbg_file, "  %3d\t%s\n", hundreds++, s);
+			p = s;
+		}
+	}
+	while (p < end)
+		*p++ = ' ';
+	*p = 0;
+	ib_fprintf(dbg_file, "  %3d\t%s\n", hundreds, s);
+}
+
+
+static void dmp_pointer( register PPG page)
+{
+/**************************************
+ *
+ *	d m p _ p o i n t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	USHORT i;
+	UCHAR *bytes;
+
+	ib_fprintf(dbg_file,
+			   "POINTER PAGE\n\tRelation: %d, Flags: %x, Next: %ld, Count: %d\n",
+			   page->ppg_relation, ((PAG) page)->pag_flags,
+			   page->ppg_next, page->ppg_count);
+	ib_fprintf(dbg_file,
+			   "\tMin space slot: %d, Max space slot: %d\n",
+			   page->ppg_min_space, page->ppg_max_space);
+
+	bytes = (UCHAR *) & page->ppg_page[dbb->dbb_dp_per_pp];
+
+	for (i = 0; i < page->ppg_count; i++) {
+		if (i % 20 == 0)
+			ib_fprintf(dbg_file, "\n\t%d: ", bytes[i / 4]);
+		ib_fprintf(dbg_file, "%ld ", page->ppg_page[i]);
+	}
+
+	ib_fprintf(dbg_file, "\n");
+}
+
+
+static void dmp_data( register DPG page)
+{
+/**************************************
+ *
+ *	d m p _ d a t a
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SCHAR c, *p, *q, *end;
+	SSHORT i, length, expanded_length;
+	RHD header;
+	RHDF fragment;
+	BLH blob;
+	dpg::dpg_repeat * index;
+
+	ib_fprintf(dbg_file,
+			   "DATA PAGE\n\tRelation: %d, Sequence: %d, Count: %d, Flags: %x\n",
+			   page->dpg_relation, page->dpg_sequence, page->dpg_count,
+			   ((PAG) page)->pag_flags);
+
+	for (i = 0, index = page->dpg_rpt; i < page->dpg_count; i++, index++) {
+		if (index->dpg_length == 0)
+			continue;
+		header = (RHD) ((SCHAR *) page + index->dpg_offset);
+		fragment = (RHDF) header;
+		if (header->rhd_flags & rhd_blob) {
+			blob = (BLH) header;
+			ib_fprintf(dbg_file,
+					   "\n\t%d - (blob) offset: %d, length: %d, flags: %x\n",
+					   i, index->dpg_offset, index->dpg_length,
+					   header->rhd_flags);
+			ib_fprintf(dbg_file,
+					   "\tlevel: %d, lead page: %d, length: %d, count %d\n",
+					   blob->blh_level, blob->blh_lead_page, blob->blh_length,
+					   blob->blh_count);
+		}
+		else {
+			expanded_length = 0;
+			if (index->dpg_offset) {
+				if (header->rhd_flags & rhd_incomplete) {
+					length = index->dpg_length - OFFSETA(RHDF, rhdf_data);
+					p = (SCHAR *) ((RHDF) header)->rhdf_data;
+				}
+				else {
+					length = index->dpg_length - OFFSETA(RHD, rhd_data);
+					p = (SCHAR *) header->rhd_data;
+				}
+				for (q = p, end = p + length; q < end;)
+					if (*q > 0) {
+						expanded_length += *q;
+						q += *q + 1;
+					}
+					else {
+						expanded_length -= *q;
+						q += 2;
+					}
+			}
+			ib_fprintf(dbg_file,
+					   "\n\t%d - offset: %d, length: %d (%d), trans: %d, format: %d, flags: %x\n\t",
+					   i, index->dpg_offset, index->dpg_length,
+					   expanded_length, header->rhd_transaction,
+					   header->rhd_format, header->rhd_flags);
+			if (header->rhd_b_page)
+				ib_fprintf(dbg_file, "back page: %d, line: %d\n\t",
+						   header->rhd_b_page, header->rhd_b_line);
+			if (header->rhd_flags & rhd_incomplete)
+				ib_fprintf(dbg_file, "frag page: %d, line: %d\n\t",
+						   fragment->rhdf_f_page, fragment->rhdf_f_line);
+			if (index->dpg_offset) {
+				if (length < 0)
+					ib_printf(dbg_file, "*** invalid record length ***");
+				else if (length)
+					do {
+						c = *p++;
+						ib_fprintf(dbg_file, (c == ' ' ||
+											  c >= 'a' && c <= 'z' ||
+											  c >= 'A' && c <= 'Z' ||
+											  c >= '0' && c <= '9' ||
+											  c == '$'
+											  || c == '_') ? "%c" : "(%d)",
+								   (unsigned) c);
+					}
+					while (--length);
+				ib_fprintf(dbg_file, "\n");
+			}
+		}
+	}
+}
+
+
+static void dmp_root( register IRT page)
+{
+/**************************************
+ *
+ *	d m p _ r o o t
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	irt::irt_repeat * desc;
+	struct irtd *stuff;
+	SSHORT i, j;
+
+	ib_fprintf(dbg_file, "ROOT PAGE\n\tRelation: %d, Count: %d\n",
+			   page->irt_relation, page->irt_count);
+	for (i = 0, desc = page->irt_rpt; i < page->irt_count; i++, desc++) {
+		ib_fprintf(dbg_file, "\t%d -- root: %ld, cnt: %d, flags: %x, keys: ",
+				   i, desc->irt_root, desc->irt_keys, desc->irt_flags);
+		stuff = (struct irtd *) ((SCHAR *) page + desc->irt_desc);
+		for (j = 0; j < desc->irt_keys; j++, stuff++)
+			ib_fprintf(dbg_file, "(%d, %d),", stuff->irtd_field,
+					   stuff->irtd_itype);
+		ib_fprintf(dbg_file, "\n");
+	}
+}
+
+
+static void dmp_index( BTR page)
+{
+/**************************************
+ *
+ *	d m p _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	BTN node, end;
+	UCHAR c, value[256], print[256], *p, *q;
+	SSHORT l;
+	SLONG number;
+	double n;
+
+	ib_fprintf(dbg_file,
+			   "B-TREE PAGE\n\tRelation: %d, Sibling: %ld, Level = %d, Length = %d, Flags = %d\n",
+			   page->btr_relation, page->btr_sibling, page->btr_level,
+			   page->btr_length, ((PAG) page)->pag_flags);
+
+	end = (BTN) ((UCHAR *) page + page->btr_length);
+
+	for (node = (BTN) page->btr_nodes; node < end;) {
+		number = CTO32L(BTN_NUMBER(node));
+
+		/* compute running value */
+
+		p = value + BTN_PREFIX(node);
+		q = BTN_DATA(node);
+		if (l = BTN_LENGTH(node))
+			do
+				*p++ = *q++;
+			while (--l);
+		while (p < &value[8])
+			*p++ = 0;
+
+		/* format value as number */
+
+		if (DMP_descending)
+			complement_key(value, BTN_PREFIX(node) + BTN_LENGTH(node));
+
+		if ((BTN_PREFIX(node) == 0 && BTN_LENGTH(node) == 0) ||
+			BTN_PREFIX(node) + BTN_LENGTH(node) > 8)
+			n = 0;
+		else
+			n = decompress(value);
+
+		/* format value as string for printing */
+
+		p = print;
+		q = value;
+		if (l = BTN_PREFIX(node))
+			do {
+				c = *q++;
+				*p++ = (c >= ' ' && c <= '~') ? c : '.';
+			} while (--l);
+		*p++ = '|';
+		if (l = BTN_LENGTH(node))
+			do {
+				c = *q++;
+				*p++ = (c >= ' ' && c <= '~') ? c : '.';
+			} while (--l);
+		*p = 0;
+
+		/* print formatted node */
+
+		ib_fprintf(dbg_file,
+				   "\t+%x Prefix: %d, length: %d, number: %ld, (%s) [%g]\n",
+				   (SCHAR *) node - (SCHAR *) page, BTN_PREFIX(node),
+				   BTN_LENGTH(node), number, print, n);
+
+		if (DMP_descending)
+			complement_key(value, BTN_PREFIX(node) + BTN_LENGTH(node));
+
+		node = NEXT_NODE(node);
+	}
+}
+
+
+static void move( SCHAR * from, SCHAR * to, SSHORT length)
+{
+/**************************************
+ *
+ *	m o v e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Move some stuff.
+ *
+ **************************************/
+
+	do
+		*to++ = *from++;
+	while (--length);
+}
diff --git a/src/wal/driver.cpp b/src/wal/driver.cpp
new file mode 100644
index 0000000000..45dd9f779d
--- /dev/null
+++ b/src/wal/driver.cpp
@@ -0,0 +1,835 @@
+/*
+ *        PROGRAM:        JRD Write Ahead Log APIs
+ *        MODULE:         wal.c
+ *        DESCRIPTION:    Simple driver for WAL routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/common.h"
+
+#if !(defined WIN_NT)
+#include <sys/time.h>
+#else
+#include <sys/timeb.h>
+#include <time.h>
+#include <io.h>
+#endif
+
+#include "../jrd/jrd.h"
+#include "../jrd/flags.h"
+#include "../jrd/dsc.h"
+#include "../wal/wal.h"
+#include "../jrd/jrn.h"
+#include "../wal/wal_proto.h"
+#include "../wal/walc_proto.h"
+#include "../wal/walf_proto.h"
+#include "../wal/walr_proto.h"
+#include "../wal/wstat_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_f_proto.h"
+#include "../jrd/misc_proto.h"
+
+#ifdef M88K
+#define GETTIMEOFDAY(tp,tzp)	gettimeofday (tp)
+#endif
+
+#ifndef GETTIMEOFDAY
+#define GETTIMEOFDAY(tp,tzp)	gettimeofday (tp, tzp)
+#endif
+
+static void do_mem_benchmark(void);
+static void do_sem_benchmark(WAL);
+static SLONG get_tod(void);
+static BOOLEAN get_word(SCHAR *);
+static void partitioned_logfile_create(STATUS *, SCHAR *);
+static void partitioned_logfile_info(STATUS *, SCHAR *);
+static void print_help(void);
+static SSHORT read_log(STATUS *, SCHAR *, SCHAR *, SLONG);
+static void toggle_debug_msg_flag(STATUS *, WAL);
+
+static ULONG base_seconds;
+
+
+int CLIB_ROUTINE main( int argc, char **argv)
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	WAL WAL_handle;
+	SCHAR dbname[256];
+	SCHAR local_dbname[256];
+	SCHAR logname[256];			/* Command line logname */
+	SCHAR log_name[256];		/* Run-time logname */
+	SLONG log_seqno;
+	SLONG new_log_seqno;
+	SLONG log_partition_offset;
+	SLONG log_offset;
+	SCHAR buff[1000];
+	SLONG ckpt_seqno;
+	SLONG ckpt_offset;
+	SCHAR ckpt_logname[100];
+	SLONG ckpt_log_partition_offset;
+	SCHAR dbnum;
+	SCHAR shutdown;
+	USHORT page_size;
+
+	SCHAR wpb[1000], *w;
+	USHORT wpb_len;
+	USHORT wal_buf_count;
+	USHORT wal_buflen;
+	SLONG wal_ckpt_intrvl;
+	SSHORT first_time_log;
+
+	SSHORT logcount;
+
+	LGFILE *logfiles[4], *ovf_logfile, *serial_logfile, *logfile;
+
+	SCHAR jrn_dirname[256];
+	USHORT jrn_data_len;
+	UCHAR jrn_data[MAX_JRN_INIT_DATA];
+	int ret;
+	SCHAR set;
+
+
+#define MAXLOGS   32
+	SCHAR lognames_buffer[MAXLOGS * MAXPATHLEN];	/* To hold all the lognames */
+	SCHAR *logs_names[MAXLOGS];
+	SLONG logs_partition_offsets[MAXLOGS];
+	SLONG logs_seqnos[MAXLOGS];
+	SLONG logs_lengths[MAXLOGS];
+	SLONG logs_flags[MAXLOGS];
+	SLONG log_flag;
+	int log_count, count;
+	SLONG grpc_wait_usecs;
+	SSHORT only_attach;
+	SSHORT direction;
+	SCHAR last_logname[MAXPATHLEN];
+	SLONG last_log_partition_offset;
+	SLONG last_log_flags;
+	SSHORT any_log_to_be_archived;
+
+	if (argc < 2) {
+		ib_printf
+			("\nUsage: driver <database_name> <page size> <logname> <partition_offset> [<new_log_seqno>]\n");
+		ib_printf("         driver <database_name>\n");
+		exit(FINI_ERROR);
+	}
+	only_attach = (argc == 2) ? 1 : 0;
+	ISC_expand_filename(argv[1], 0, dbname);
+
+	WAL_handle = NULL;
+	wal_buf_count = 5;
+	wal_buflen = MIN_WALBUFLEN;
+	wal_ckpt_intrvl = 100;		/* 100K bytes */
+	if (argc == 6) {
+		first_time_log = TRUE;
+		sscanf(argv[5], "%ld", &new_log_seqno);
+	}
+	else {
+		first_time_log = FALSE;
+		/* Set some default value for the log_seqno.  If using an existing
+		   log file, log_seqno will be set accordingly by the WAL writer */
+		new_log_seqno = 1L;
+	}
+
+	if (only_attach)
+		ret = WAL_attach(status_vector, &WAL_handle, dbname);
+	else {
+		logcount = 3;
+
+		logfiles[0] =
+			(LGFILE *) gds__alloc(sizeof(LGFILE) + strlen("log1") + 1);
+		logfiles[1] =
+			(LGFILE *) gds__alloc(sizeof(LGFILE) + strlen("log2") + 1);
+		logfiles[2] =
+			(LGFILE *) gds__alloc(sizeof(LGFILE) + strlen("part1") + 1);
+		/* NOMEM: handled, FREE: don't bother - R&D test code only */
+		if (!logfiles[0] || !logfiles[1] || !logfiles[2]) {
+			ib_printf("driver: Out of memory\n");
+			/* Development code - don't bother to free */
+			exit(FINI_ERROR);
+		}
+
+		logfile = logfiles[0];
+		logfile->lg_size = 100;	/* 100K bytes */
+		logfile->lg_partitions = 8;
+		logfile->lg_flags = 0;
+		strcpy(logfile->lg_name, "log1");
+
+		logfile = logfiles[1];
+		logfile->lg_size = 200;	/* 200K bytes */
+		logfile->lg_partitions = 4;
+		logfile->lg_flags = LOG_raw;
+		strcpy(logfile->lg_name, "part1");
+
+		logfile = logfiles[2];
+		logfile->lg_size = 100;	/* 100K bytes */
+		logfile->lg_partitions = 1;
+		logfile->lg_flags = 0;
+		strcpy(logfile->lg_name, "log2");
+
+		ovf_logfile =
+			(LGFILE *) gds__alloc(sizeof(LGFILE) + strlen("ovflow") + 1);
+		if (!ovf_logfile) {
+			ib_printf("driver: Out of memory\n");
+			/* Development code - don't bother to free */
+			exit(FINI_ERROR);
+		}
+		ovf_logfile->lg_size = 50;	/* 50K bytes */
+		ovf_logfile->lg_partitions = 1;
+		ovf_logfile->lg_flags = LOG_overflow;
+		strcpy(ovf_logfile->lg_name, "ovflow");
+
+		serial_logfile =
+			(LGFILE *) gds__alloc(sizeof(LGFILE) + strlen(argv[3]) + 1);
+		if (!serial_logfile) {
+			ib_printf("driver: Out of memory\n");
+			/* Development code - don't bother to free */
+			exit(FINI_ERROR);
+		}
+		serial_logfile->lg_size = 3;	/* 3K bytes */
+		serial_logfile->lg_partitions = 1;
+		serial_logfile->lg_flags = LOG_serial;
+		strcpy(serial_logfile->lg_name, argv[3]);
+
+		strcpy(jrn_dirname, "jrndir");
+		jrn_data_len = 5;
+		strcpy(jrn_data, "12345");
+
+		grpc_wait_usecs = 300000;
+
+		w = wpb;
+		w += MISC_build_parameters_block(w,
+										 PARAM_BYTE(WAL_PARAM_BUF_COUNT),
+										 PARAM_SHORT(wal_buf_count),
+										 PARAM_BYTE(WAL_PARAM_BUF_LEN),
+										 PARAM_SHORT(wal_buflen),
+										 PARAM_BYTE(WAL_PARAM_CKPT_INTRVL),
+										 PARAM_LONG(wal_ckpt_intrvl),
+										 (SCHAR) 0);
+		w +=
+			MISC_build_parameters_block(w, PARAM_BYTE(WAL_PARAM_SERIAL_LOG),
+										PARAM_POINTER(serial_logfile),
+										(SCHAR) 0);
+		w +=
+			MISC_build_parameters_block(w,
+										PARAM_BYTE(WAL_PARAM_RR_LOGS_COUNT),
+										PARAM_SHORT(logcount),
+										PARAM_BYTE(WAL_PARAM_RR_LOGS),
+										PARAM_POINTER(logfiles), (SCHAR) 0);
+		w +=
+			MISC_build_parameters_block(w, PARAM_BYTE(WAL_PARAM_OVFLOW_LOG),
+										PARAM_POINTER(ovf_logfile),
+										(SCHAR) 0);
+		w +=
+			MISC_build_parameters_block(w,
+										PARAM_BYTE(WAL_PARAM_GRPC_WAIT_USECS),
+										PARAM_LONG(grpc_wait_usecs),
+										(SCHAR) 0);
+		/*
+		   w += MISC_build_parameters_block(w,
+		   PARAM_BYTE(WAL_PARAM_JRN_DIRNAME), PARAM_STRING(jrn_dirname),
+		   PARAM_BYTE(WAL_PARAM_JRN_DATA), PARAM_NBYTES(jrn_data_len, jrn_data),
+		   (SCHAR)0);
+		 */
+		w +=
+			MISC_build_parameters_block(w, PARAM_BYTE(WAL_PARAM_END),
+										(SCHAR) 0);
+		wpb_len = w - wpb;
+
+		strcpy(logname, argv[3]);
+		WAL_shutdown_old_writer(status_vector, dbname);
+		sscanf(argv[2], "%hu", &page_size);
+		sscanf(argv[4], "%ld", &log_partition_offset);
+		ret = WAL_init(status_vector, &WAL_handle, dbname, page_size,
+					   logname, log_partition_offset, first_time_log,
+					   new_log_seqno, wpb_len, wpb);
+		if (ret == SUCCESS) {
+			ret =
+				WAL_checkpoint_force(status_vector, WAL_handle, &log_seqno,
+									 buff, &log_partition_offset,
+									 &log_offset);
+			ib_printf
+				("After first forced checkpoint, seqno=%d, logname=%s, p_offset=%d, offset=%d\n",
+				 log_seqno, buff, log_partition_offset, log_offset);
+			WAL_checkpoint_recorded(status_vector, WAL_handle);
+		}
+	}
+
+	if (ret != SUCCESS) {
+		gds__print_status(status_vector);
+		exit(FINI_ERROR);
+	}
+
+	print_help();
+	while (1) {
+		ib_printf("WAL>");
+		if (get_word(buff) == FALSE)
+			break;
+		if (!strlen(buff))
+			continue;
+		if (strcmp(buff, "Q") == 0)
+			break;
+		if (strcmp(buff, "F") == 0) {
+			WAL_flush(status_vector, WAL_handle, &log_seqno, &log_offset,
+					  FALSE);
+			ib_printf("flushed_seqno=%ld, flushed_offset=%ld\n", log_seqno,
+					  log_offset);
+		}
+		else if (strcmp(buff, "C") == 0) {
+			strcpy(buff, "COMMIT");
+			WAL_commit(status_vector, WAL_handle, buff, strlen(buff),
+					   &log_seqno, &log_offset);
+			ib_printf("log_seqno=%ld, log_offset=%ld\n", log_seqno,
+					  log_offset);
+		}
+		else if (strcmp(buff, "K") == 0)
+			WAL_checkpoint_finish(status_vector, WAL_handle, &log_seqno, buff,
+								  &log_partition_offset, &log_offset);
+		else if (strcmp(buff, "V") == 0) {
+			WAL_checkpoint_force(status_vector, WAL_handle, &log_seqno, buff,
+								 &log_partition_offset, &log_offset);
+		}
+		else if (strcmp(buff, "W") == 0)
+			WSTATUS_dump_wal_segment(WAL_handle, TRUE, ib_stdout);
+		else if (strcmp(buff, "Y") == 0)
+			WSTATUS_dump_wal_segment(WAL_handle, FALSE, ib_stdout);
+		else if (strcmp(buff, "S") == 0) {
+			WAL_status(status_vector, WAL_handle,
+					   &log_seqno, log_name, &log_partition_offset,
+					   &log_offset, &ckpt_seqno, ckpt_logname,
+					   &ckpt_log_partition_offset, &ckpt_offset);
+			ib_printf
+				("log_seqno=%ld, logname=%s, log_partition_offset=%ld, flushed offset=%ld\n",
+				 log_seqno, log_name, log_partition_offset, log_offset);
+			ib_printf
+				("ckpt_log_seqno=%ld, ckpt_logname=%s, ckpt_log_partition_offset=%ld, ckpt_offset=%ld\n",
+				 ckpt_seqno, ckpt_logname, ckpt_log_partition_offset,
+				 ckpt_offset);
+		}
+		else if (strcmp(buff, "P") == 0 || strcmp(buff, "N") == 0) {
+			direction = ((strcmp(buff, "N") == 0) ? 1 : -1);
+			ib_printf("Enter the starting logname: ");
+			get_word(log_name);
+			ib_printf("Enter the partition offset: ");
+			ib_scanf("%ld", &log_partition_offset);
+			ib_scanf("%c", &dbnum);	/* get rid of the trailing '\n' character */
+			while (1) {
+				WALF_get_all_next_logs_info(status_vector, dbname,
+											log_name, log_partition_offset,
+											MAXLOGS,
+											lognames_buffer, &log_count,
+											logs_names,
+											logs_partition_offsets,
+											logs_seqnos, logs_lengths,
+											logs_flags, direction);
+				for (count = 0; count < log_count; count++) {
+					/* Check if the log file can be deleted, e.g. if journalling was
+					   enabled when this log file was created, make sure that the file
+					   has been backed up or it is no SLONGer needed because there is 
+					   a newer online dump. etc... */
+					ib_printf
+						("log name=%s, log_partition_offset=%d, log_seqno=%d, log_length=%d, log_flags=%d\n",
+						 logs_names[count], logs_partition_offsets[count],
+						 logs_seqnos[count], logs_lengths[count],
+						 logs_flags[count]);
+				}
+				if (log_count < MAXLOGS)
+					break;		/* No more logs */
+				else {
+					/* setup for the next iteration */
+
+					strcpy(log_name, logs_names[0]);
+					log_partition_offset = logs_partition_offsets[0];
+				}
+			}					/* while */
+		}
+		else if (strcmp(buff, "L") == 0) {
+			ib_printf("Enter the starting logname: ");
+			get_word(log_name);
+			ib_printf("Enter the partition offset: ");
+			ib_scanf("%ld", &log_partition_offset);
+			ib_scanf("%c", &dbnum);	/* get rid of the trailing '\n' character */
+			any_log_to_be_archived = 0;
+			WALF_get_linked_logs_info(status_vector, dbname,
+									  log_name, log_partition_offset,
+									  &log_count,
+									  last_logname,
+									  &last_log_partition_offset,
+									  &last_log_flags,
+									  &any_log_to_be_archived);
+			ib_printf
+				("Total previous logs=%d, last log=%s, partition offset=%ld\n",
+				 log_count, last_logname, last_log_partition_offset);
+			ib_printf("last log flags=%ld, any_log_to_be_archived=%s\n",
+					  last_log_flags, any_log_to_be_archived ? "Yes" : "No");
+		}
+		else if (strcmp(buff, "G") == 0) {
+			ib_printf("Enter the logname: ");
+			get_word(log_name);
+			ib_printf("Enter the partition offset: ");
+			ib_scanf("%ld", &log_partition_offset);
+			ib_printf("Enter flag value: ");
+			ib_scanf("%ld", &log_flag);
+			ib_scanf("%c", &dbnum);	/* get rid of the trailing '\n' character */
+			ib_printf("S(et) or R(eset)?: ");
+			ib_scanf("%c", &set);
+			ib_scanf("%c", &dbnum);	/* get rid of the trailing '\n' character */
+			WALF_set_log_header_flag(status_vector, dbname, log_name,
+									 log_partition_offset, log_flag,
+									 (set == 'S') ? TRUE : FALSE);
+		}
+		else if (strcmp(buff, "J") == 0) {
+			WAL_journal_enable(status_vector, WAL_handle,
+							   "/home/dperiwal/wal/test", 0, NULL);
+		}
+		else if (strcmp(buff, "D") == 0) {
+			WAL_journal_disable(status_vector, WAL_handle);
+		}
+		else if (strcmp(buff, "R") == 0) {
+			ib_printf("Enter the logname: ");
+			get_word(log_name);
+			ib_printf("Enter the partition offset: ");
+			ib_scanf("%ld", &log_partition_offset);
+			ib_scanf("%c", &dbnum);	/* get rid of the trailing '\n' character */
+			read_log(status_vector, dbname, log_name, log_partition_offset);
+		}
+		else if (strcmp(buff, "M") == 0) {
+			partitioned_logfile_create(status_vector, dbname);
+		}
+		else if (strcmp(buff, "I") == 0) {
+			partitioned_logfile_info(status_vector, dbname);
+		}
+		else if (strcmp(buff, "B") == 0) {
+			do_sem_benchmark(WAL_handle);
+		}
+		else if (strcmp(buff, "E") == 0) {
+			ib_printf("Enter the database name: ");
+			get_word(local_dbname);
+			WAL_shutdown_old_writer(status_vector, local_dbname);
+		}
+		else if (strcmp(buff, "T") == 0) {
+			ib_printf("Enter group-commit wait time in micro-seconds: ");
+			ib_scanf("%ld", &grpc_wait_usecs);
+			ib_scanf("%c", &dbnum);	/* get rid of the trailing '\n' character */
+			WAL_set_grpc_wait_time(status_vector, WAL_handle,
+								   grpc_wait_usecs);
+		}
+		else if (strcmp(buff, "X") == 0) {
+			toggle_debug_msg_flag(status_vector, WAL_handle);
+		}
+		else if (strcmp(buff, "H") == 0) {
+			print_help();
+		}
+		else {
+			WAL_put(status_vector, WAL_handle,
+					buff, strlen(buff), 0, 0, &log_seqno, &log_offset);
+			ib_printf("log_seqno=%ld, log_offset=%ld\n", log_seqno,
+					  log_offset);
+		}
+	}
+
+	WAL_flush(status_vector, WAL_handle, &log_seqno, &log_offset, FALSE);
+	ib_printf("\nDo you want to shutdown the WAL writer(s) ? <y/n> ");
+	ib_scanf("%c", &shutdown);
+
+	if (shutdown == 'y' || shutdown == 'Y') {
+		WAL_shutdown(status_vector, WAL_handle,
+					 &log_seqno, log_name, &log_partition_offset, &log_offset,
+					 FALSE);
+		ib_printf("At shutdown:\n");
+		ib_printf
+			("log_seqno=%ld, logname=%s, log_partition_offset=%ld, shutdown offset=%ld\n",
+			 log_seqno, log_name, log_partition_offset, log_offset);
+	}
+	WAL_fini(status_vector, &WAL_handle);
+
+	exit(FINI_OK);
+}
+
+
+static void do_mem_benchmark(void)
+{
+/**************************************
+ *
+ *	d o _ m e m _ b e n c h m a r k
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int count, i, dummy;
+	SLONG time1, diffusec_loop, diffusec;
+
+	ib_printf("Enter the count: ");
+	ib_scanf("%d", &count);
+	dummy = 0;
+
+/* First find the time for the empty loop */
+
+	time1 = get_tod();
+	for (i = 0; i < count; i++);
+	diffusec_loop = get_tod() - time1;
+	ib_printf("time interval for empty loop seconds=%d, microseconds=%d\n",
+			  diffusec_loop / 1000000, diffusec_loop % 1000000);
+
+/* Now do the iteration of the operation for the given count */
+
+	time1 = get_tod();
+	for (i = 0; i < count; i++) {
+		dummy++;
+		dummy--;
+	}
+	diffusec = get_tod() - time1;
+
+/* Now get the actual interval for just the operations */
+
+	diffusec = diffusec - diffusec_loop;
+
+	ib_printf("time interval seconds=%d, microseconds=%d\n",
+			  diffusec / 1000000, diffusec % 1000000);
+}
+
+
+static void do_sem_benchmark( WAL WAL_handle)
+{
+/**************************************
+ *
+ *	d o _ s e m _ b e n c h m a r k
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int count, i;
+	SLONG time1, diffusec_loop, diffusec;
+	WALS WAL_segment;
+
+	ib_printf("Enter the count: ");
+	ib_scanf("%d", &count);
+
+/* First find the time for the empty loop */
+
+	time1 = get_tod();
+	for (i = 0; i < count; i++);
+	diffusec_loop = get_tod() - time1;
+	ib_printf("time interval for empty loop seconds=%d, microseconds=%d\n",
+			  diffusec_loop / 1000000, diffusec_loop % 1000000);
+
+/* Now do the iteration of the operation for the given count */
+
+	time1 = get_tod();
+	for (i = 0; i < count; i++) {
+		WALC_acquire(WAL_handle, &WAL_segment);
+		WALC_release(WAL_handle);
+	}
+	diffusec = get_tod() - time1;
+
+/* Now get the actual interval for just the operations */
+
+	diffusec = diffusec - diffusec_loop;
+
+	ib_printf("time interval seconds=%d, microseconds=%d\n",
+			  diffusec / 1000000, diffusec % 1000000);
+}
+
+
+static SLONG get_tod(void)
+{
+/**************************************
+ *
+ *	 g e t _ t o d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+#if !(defined WIN_NT)
+	struct timeval tp1;
+
+	GETTIMEOFDAY(&tp1, NULL);
+	if (!base_seconds)
+		base_seconds = tp1.tv_sec;
+	return (tp1.tv_sec - base_seconds) * 1000000 + tp1.tv_usec;
+#else
+	struct timeb tp1;
+
+	ftime(&tp1);
+	if (!base_seconds)
+		base_seconds = tp1.time;
+	return (tp1.time - base_seconds) * 1000000 + (tp1.millitm * 1000);
+#endif
+}
+
+
+static BOOLEAN get_word( SCHAR * buffer)
+{
+/**************************************
+ *
+ *	 g e t _ w o r d
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	SSHORT c;
+
+	while ((c = ib_getchar()) != '\n') {
+		if (c == EOF)
+			return FALSE;
+		*buffer++ = c;
+	}
+	*buffer = 0;
+
+	return TRUE;
+}
+
+
+static void partitioned_logfile_create(
+									   STATUS * status_vector, SCHAR * dbname)
+{
+/**************************************
+ *
+ *	p a r t i t i o n e d _ l o g f i l e _ c r e a t e
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	int nump;
+	SLONG logsize;
+	SCHAR master_logname[MAXPATHLEN];
+	int ret;
+
+	ib_printf("Enter the logname: ");
+	ib_scanf("%s", master_logname);
+	ib_scanf("%c", &ret);		/* get rid of the trailing '\n' character */
+	ib_printf("Enter the size of the log file: ");
+	ib_scanf("%ld", &logsize);
+	ib_scanf("%c", &ret);		/* get rid of the trailing '\n' character */
+	ib_printf("Enter the number of partitions: ");
+	ib_scanf("%d", &nump);
+	ib_scanf("%c", &ret);		/* get rid of the trailing '\n' character */
+	ret =
+		WALF_init_p_log(status_vector, dbname, master_logname, logsize, nump);
+	if (ret != SUCCESS)
+		gds__print_status(status_vector);
+}
+
+
+static void partitioned_logfile_info( STATUS * status_vector, SCHAR * dbname)
+{
+/**************************************
+ *
+ *	p a r t i t i o n e d _ l o g f i l e _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	P_LOGFH p_log_header;
+	int p_log_fd;
+	SCHAR master_logname[MAXPATHLEN];
+	int ret;
+
+	p_log_header = (P_LOGFH) gds__alloc(P_LOGFH_LENGTH);
+	if (!p_log_header) {
+		ib_printf("driver: Out of memory\n");
+		exit(FINI_ERROR);
+	}
+
+	ib_printf("Enter the logname: ");
+	ib_scanf("%s", master_logname);
+	ib_scanf("%c", &ret);		/* get rid of the trailing '\n' character */
+	if (WALF_open_partitioned_log_file(status_vector, dbname, master_logname,
+									   p_log_header, &p_log_fd) != SUCCESS) {
+		gds__free(p_log_header);
+		gds__print_status(status_vector);
+		return;
+	}
+	ib_printf("length=%d, total partitions=%d, current_partition=%d\n",
+			  p_log_header->p_logfh_length, p_log_header->p_logfh_maxp,
+			  p_log_header->p_logfh_curp);
+	ib_printf("partition size=%d, first partition offset=%d, flags=%ld\n",
+			  p_log_header->p_logfh_sizep,
+			  p_log_header->p_logfh_firstp_offset,
+			  p_log_header->p_logfh_flags);
+
+	close(p_log_fd);
+	gds__free(p_log_header);
+}
+
+
+static SSHORT read_log(
+					   STATUS * status_vector,
+					   SCHAR * dbname,
+					   SCHAR * logname, SLONG log_partition_offset)
+{
+/**************************************
+ *
+ *	r e a d _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+#define MAX_LOG_COUNT  5
+	WALRS WALRS_handle;
+	SLONG log_seqno;
+	SLONG log_offset;
+	SCHAR buff[10000];
+	SSHORT ret, len;
+	SCHAR *lognames[MAX_LOG_COUNT];
+	SLONG log_p_offsets[MAX_LOG_COUNT];
+	int log_count;
+	int fixup;
+
+	lognames[0] = logname;
+	log_p_offsets[0] = log_partition_offset;
+	log_count = 1;
+/*
+lognames[1] = "log1";
+log_p_offsets[1] = 0L;
+lognames[2] = "log2";
+log_p_offsets[2] = 0L;
+log_count = 3;
+*/
+
+	WALRS_handle = NULL;
+	if ((ret = WALR_open(status_vector, &WALRS_handle, dbname,
+						 log_count, lognames, log_p_offsets,
+						 0L, NULL, FALSE)) != SUCCESS) {
+		if (ret == -1) {
+			ib_printf("End of log...\n");
+			return SUCCESS;
+		}
+		ib_printf("Error = %d from WALR_open\n", ret);
+		gds__print_status(status_vector);
+		return ret;
+	}
+	ib_printf("Now doing WALR_get() calls.\n");
+	while (1) {
+		ret =
+			WALR_get(status_vector, WALRS_handle, buff, &len, &log_seqno,
+					 &log_offset);
+		if (ret == -1) {
+			ib_printf("End of log...\n");
+			break;
+		}
+		else if (ret != SUCCESS) {
+			ib_printf("Log read error %d\n", ret);
+			gds__print_status(status_vector);
+			break;
+		}
+		buff[len] = '\0';
+		ib_printf("log_seqno=%ld, log_offset=%ld, log_record=%s\n", log_seqno,
+				  log_offset, buff);
+	}
+
+	ib_printf
+		("\nDo you want to fixup the log header of the last log ? <y/n> ");
+	ib_scanf("%c", &fixup);
+
+	if (fixup == 'y' || fixup == 'Y')
+		WALR_fixup_log_header(status_vector, WALRS_handle);
+	ib_scanf("%c", &fixup);		/* get rid of the trailing '\n' character */
+	WALR_close(status_vector, &WALRS_handle);
+
+	return SUCCESS;
+}
+
+
+static void print_help(void)
+{
+/**************************************
+ *
+ *	p r i n t _ h e l p
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+
+	ib_printf("Enter F to flush, C to commit.\n");
+	ib_printf
+		("      K to finish checkpoint, V to do virtual checkpointing.\n");
+	ib_printf("      J to enable journalling, D to disable journalling.\n");
+	ib_printf("      R to read logs.\n");
+	ib_printf("      S for simple WAL status.\n");
+	ib_printf
+		("      W or Y to dump WAL segment info with or without acquire.\n");
+	ib_printf
+		("      P to get the names of all the previously linked log files.\n");
+	ib_printf
+		("      N to get the names of all the forward linked log files.\n");
+	ib_printf("      L to get the info about the last linked log file.\n");
+	ib_printf("      G to set the walfh_flag of a given log file.\n");
+	ib_printf("      B to do semaphore benchmark.\n");
+	ib_printf("      M to create a log file with multiple partitions.\n");
+	ib_printf
+		("      I to get the header info of a multi-partition log file.\n");
+	ib_printf("      E for ending (shutting down) a WAL writer.\n");
+	ib_printf("      T to set group-commit wait time in micro-seconds.\n");
+	ib_printf
+		("      X to toggle message writing by the WAL writer to the debug file.\n");
+	ib_printf("      H for this help message.\n");
+	ib_printf("      Q to quit .\n");
+	ib_printf("      anything else is simply put in the log.\n");
+}
+
+
+static void toggle_debug_msg_flag( STATUS * status_vector, WAL WAL_handle)
+{
+/**************************************
+ *
+ *	t o g g l e _ d e b u g _ m s g _ f l a g
+ *
+ **************************************
+ *
+ * Functional description
+ *    Toggle the debug messages flag in WAL segment.
+ *
+ **************************************/
+	WALS WAL_segment;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	if (WAL_segment->wals_flags2 & WALS2_DEBUG_MSGS)
+		WAL_segment->wals_flags2 &= ~WALS2_DEBUG_MSGS;
+	else
+		WAL_segment->wals_flags2 |= WALS2_DEBUG_MSGS;
+	WALC_release(WAL_handle);
+}
diff --git a/src/wal/wal.cpp b/src/wal/wal.cpp
new file mode 100644
index 0000000000..99e535e571
--- /dev/null
+++ b/src/wal/wal.cpp
@@ -0,0 +1,1707 @@
+/*
+ *	PROGRAM:	JRD Write Ahead Log APIs
+ *	MODULE:		wal.c
+ *	DESCRIPTION:	Write Ahead Log subsystem interface
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/time.h"
+#include "../jrd/common.h"
+#include "../jrd/jrd.h"
+#include "../wal/wal.h"
+#include "../jrd/jrn.h"
+#include "../jrd/codes.h"
+#include "../wal/wal_proto.h"
+#include "../wal/walc_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/iberr_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/thd_proto.h"
+
+#ifndef NETWARE_386
+#ifndef WIN_NT
+#include <errno.h>
+#endif
+#endif
+
+#if (defined DELTA || defined VMS || defined IMP)
+#define waitpid(x,y,z)	wait (y)
+#endif
+
+#ifdef WIN_NT
+#include <process.h>
+#include <windows.h>
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT		SCHAR
+
+#define sleep(seconds)	Sleep ((seconds) * 1000)
+#endif
+
+
+extern "C" {
+
+
+#ifdef SUPERSERVER
+extern void main_walw(SCHAR **);
+#endif
+
+static SLONG copy_buffer(WALS, WALBLK *, UCHAR *, USHORT, UCHAR *, USHORT);
+static SSHORT fork_writer(STATUS *, WAL);
+static SSHORT grpc_do_group_commit(STATUS *, WAL, SSHORT);
+static void grpc_finish_group_commit(WAL, SSHORT);
+static SSHORT grpc_wait_for_grouping(STATUS *, WAL, SSHORT);
+static SSHORT grpc_wait_for_group_commit_finish(STATUS *, WAL, SSHORT,
+												GRP_COMMIT *);
+static void inform_wal_writer(WAL);
+static SSHORT next_buffer_available(WALS);
+static void setup_buffer_for_writing(WAL, WALS, SSHORT);
+static SSHORT shutdown_writer(STATUS *, WAL, SSHORT);
+static SSHORT sync_with_wal_writer(STATUS *, WAL);
+static SSHORT wait_for_writer(STATUS *, WAL);
+static SSHORT wal_put2(STATUS *, WAL, UCHAR *, USHORT, UCHAR *, USHORT,
+					   SLONG *, SLONG *, SSHORT);
+
+#ifdef WIN_NT
+#define WAL_WRITER	"bin/ibwalwrt"
+#endif
+
+#ifndef WAL_WRITER
+#define WAL_WRITER	"bin/gds_wal_writer"
+#endif
+
+#define WAIT_TIME	3000000
+#define MAX_WAITERS	20
+#define WALBLK_EFFECTIVE_OFFSET(wblk) (wblk->walblk_cur_offset?wblk->walblk_cur_offset:BLK_HDROVHD)
+
+#ifdef SHLIB_DEFS
+#define execl		(*_libgds_execl)
+#ifdef IMP
+#define wait		(*_libgds_wait)
+#else
+#define waitpid		(*_libgds_waitpid)
+#endif
+#define _exit		(*_libgds__exit)
+
+extern int execl();
+#ifdef IMP
+extern int wait();
+#else
+extern int waitpid();
+#endif
+extern void _exit();
+#endif
+
+
+SSHORT WAL_attach( STATUS * status_vector, WAL * WAL_handle, SCHAR * dbname)
+{
+/**************************************
+ *
+ *	W A L _ a t t a c h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Attach to an already intitalized WAL segment for the given 
+ *	database.
+ *	Return SUCCESS if attachment succeeds else return FAILURE.
+ *
+ **************************************/
+	int ret;
+	STATUS local_status[20];
+
+	ret = WALC_init(status_vector, WAL_handle, dbname, 0,
+					NULL, 0L, FALSE, 1L, 0, NULL, FALSE);
+	if (ret == SUCCESS) {
+		if ((ret = WALC_check_writer(*WAL_handle)) != SUCCESS)
+			ret = fork_writer(status_vector, *WAL_handle);
+		else
+			ret = sync_with_wal_writer(status_vector, *WAL_handle);
+		if (ret != SUCCESS)
+			WALC_fini(local_status, WAL_handle);
+	}
+
+	return ret;
+}
+
+
+SSHORT WAL_checkpoint_finish(STATUS * status_vector,
+							 WAL WAL_handle,
+							 SLONG * log_seqno,
+							 SCHAR * logname,
+							 SLONG * log_partition_offset, SLONG * log_offset)
+{
+/**************************************
+ *
+ *	W A L _ c h e c k p o i n t _ f i n i s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	To inform the WAL writer that the caller (Asynchronous Buffer
+ *	Writer) has done its part of checkpointing.
+ *	This routine ib_puts a checkpoint (null) record in the log file.
+ *	It returns the log file sequence number, its name, its position
+ *	and the offset within it where this checkpointing finished.
+ *
+ ***************************************/
+	WALS WAL_segment;
+	UCHAR chkpt_rec[100];
+	SLONG dummy_seqno;
+	SLONG dummy_offset;
+
+/* Do some sanity check.  We may remove this code once we are
+ * convinced that this call will never be made improperly, i.e.
+ * without the WALS_CKPT_START flag having been set. */
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG(WAL_handle, WAL_segment);
+	if (!(WAL_segment->wals_flags & WALS_CKPT_START)) {
+		/* Cannot finish checkpointing, if not already started. */
+
+		WALC_release(WAL_handle);
+		return SUCCESS;
+	}
+	WALC_release(WAL_handle);
+
+/* end of sanity check */
+
+/* Checkpoint record is a logical concept.  The higher level routines
+ * do not need to 'see' this record for recovery.   We are putting a 
+ * zero length record for this purpose. */
+
+	wal_put2(status_vector, WAL_handle, chkpt_rec, 0,
+			 (UCHAR *) 0, 0, log_seqno, log_offset, TRUE);
+
+/* Now save the checkpoint record offset to be used by WAL writer later after
+   it flushes the block containing the checkpoint record.  We need to do this 
+   now because our block may be blank-padded for raw-device support and then it
+   would be difficult for the WAL writer to know the location of the checkpoint
+   record in the block. */
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_segment->wals_saved_ckpted_offset = *log_offset;
+	WALC_release(WAL_handle);
+
+	WAL_flush(status_vector, WAL_handle, &dummy_seqno, &dummy_offset, FALSE);
+	WALC_acquire(WAL_handle, &WAL_segment);
+	*log_seqno = WAL_segment->wals_ckpted_log_seqno;
+	strcpy(logname, WAL_segment->wals_ckpt_logname);
+	*log_partition_offset = WAL_segment->wals_ckpt_log_p_offset;
+	*log_offset = WAL_segment->wals_ckpted_offset;
+	WALC_release(WAL_handle);
+
+	return SUCCESS;
+}
+
+
+SSHORT WAL_checkpoint_force(STATUS * status_vector,
+							WAL WAL_handle,
+							SLONG * log_seqno,
+							SCHAR * logname,
+							SLONG * log_partition_offset, SLONG * log_offset)
+{
+/**************************************
+ *
+ *	W A L _ c h e c k p o i n t _ f o r c e
+ *
+ **************************************
+ *
+ * Functional description
+ *	This procedure forces a checkpoint to happen.  It starts as
+ *	well as finishes the checkpoint from WALs point of view.
+ *	The caller should subsequently make a call to 
+ *	WAL_checkpoint_recorded.
+ *
+ ***************************************/
+	WALS WAL_segment;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG(WAL_handle, WAL_segment);
+	WAL_segment->wals_flags |= WALS_CKPT_START;
+	WALC_release(WAL_handle);
+
+	return WAL_checkpoint_finish(status_vector, WAL_handle, log_seqno,
+								 logname, log_partition_offset, log_offset);
+}
+
+
+SSHORT WAL_checkpoint_start(STATUS * status_vector,
+							WAL WAL_handle, SSHORT * ckpt_start)
+{
+/**************************************
+ *
+ *	W A L _ c h e c k p o i n t _ s t a r t ?
+ *
+ **************************************
+ *
+ * Functional description
+ *	To inform the caller if checkpoint needs to be started.  
+ *	Returns TRUE or FASLE through ckpt_start parameter.
+ *
+ *	Returns SUCCESS or FAILURE.
+ *
+ ***************************************/
+	WALS WAL_segment;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG(WAL_handle, WAL_segment);
+	*ckpt_start = FALSE;
+	if ((WAL_segment->wals_flags & WALS_CKPT_START) &&
+		!(WAL_segment->wals_flags & WALS_CKPT_RECORDED))
+		*ckpt_start = TRUE;
+	WALC_release(WAL_handle);
+
+	return SUCCESS;
+}
+
+
+SSHORT WAL_checkpoint_recorded(STATUS * status_vector, WAL WAL_handle)
+{
+/**************************************
+ *
+ *	W A L _ c h e c k p o i n t _ r e c o r d e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	To inform the WAL writer that the last checkpoint info has
+ *	been recorded in the stable storage and so it can reuse 
+ *	earlier log files if possible.
+ *
+ *	Returns SUCCESS or FAILURE.
+ *
+ ***************************************/
+	WALS WAL_segment;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG(WAL_handle, WAL_segment);
+	if (!(WAL_segment->wals_flags & WALS_CKPT_START)) {
+		/* Cannot record checkpointing, if not already started. */
+
+		WALC_release(WAL_handle);
+		return SUCCESS;
+	}
+	WAL_segment->wals_flags |= WALS_CKPT_RECORDED;
+	WALC_release(WAL_handle);
+
+	return SUCCESS;
+}
+
+
+SSHORT WAL_commit(STATUS * status_vector,
+				  WAL WAL_handle,
+				  UCHAR * commit_logrec,
+				  USHORT len, SLONG * log_seqno, SLONG * log_offset)
+{
+/**************************************
+ *
+ *	W A L _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put the commit log record in the WAL buffer and flush the 
+ *	buffer to log file before returning.
+ *	If all the buffers are full and/or being flushed to disk,
+ *	wait for one to become available.  
+ *	Implement group-commit protocol.
+ *	Return the sequence number of the log file in the log file 
+ *	series and the offset of this commit record in that file.
+ *
+ *	Return SUCCESS or FAILURE.
+ *
+ **************************************/
+	WALS WAL_segment;
+	SSHORT grpc_blknum;
+	GRP_COMMIT *grpc;
+	SSHORT ret;
+	SLONG dummy_seqno;
+	SLONG dummy_offset;
+
+	if (len && wal_put2(status_vector, WAL_handle, commit_logrec, len,
+						(UCHAR *) 0, 0, log_seqno, log_offset, 0) != SUCCESS)
+		return FAILURE;
+
+	ret = SUCCESS;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	if (!len) {
+		/* We did not put any commit record physically.  Just return our
+		   current position in the log file after flushing. */
+
+		*log_seqno = WAL_segment->wals_log_seqno;
+		*log_offset = WAL_segment->wals_buf_offset;
+	}
+
+/* Do group-commit stuff. */
+
+/* Get the group-commit waiting times from the shared segment.  They
+   might have changed since we last did a commit. */
+
+	if (WAL_handle->wal_grpc_wait_id != WAL_segment->wals_grpc_wait_id) {
+		WAL_handle->wal_grpc_wait_id = WAL_segment->wals_grpc_wait_id;
+		WAL_handle->wal_grpc_wait_usecs = WAL_segment->wals_grpc_wait_usecs;
+		WAL_handle->wal_grpc_wait_coord_usecs =
+			GRPC_COORD_FACTOR * WAL_handle->wal_grpc_wait_usecs;
+		WAL_handle->wal_grpc_wait_other_coord_usecs =
+			GRPC_OTHER_COORD_FACTOR * WAL_handle->wal_grpc_wait_usecs;
+	}
+
+	WAL_segment->wals_commit_count++;
+
+	if (WAL_handle->wal_grpc_wait_usecs == 0L) {	/* No group-commit needs to be done */
+		WALC_release(WAL_handle);
+		return WAL_flush(status_vector, WAL_handle,
+						 &dummy_seqno, &dummy_offset, FALSE);
+	}
+
+	grpc_blknum = WAL_segment->wals_cur_grpc_blknum;
+	grpc = &WAL_segment->wals_grpc_blks[grpc_blknum];
+	grpc->grp_commit_size++;
+
+	if (grpc->grp_commit_coordinator == 0) {
+		/* Become the group-leader (coordinator) */
+
+		grpc->grp_commit_coordinator = WAL_handle->wal_pid;
+		WAL_segment->wals_flags |= WALS_GRP_COMMIT_WAITING;
+		ret = grpc_do_group_commit(status_vector, WAL_handle, grpc_blknum);
+	}
+	else {
+		ret = grpc_wait_for_group_commit_finish(status_vector, WAL_handle,
+												grpc_blknum, grpc);
+	}
+
+	return ret;
+}
+
+
+void WAL_fini( STATUS * status_vector, WAL * WAL_handle)
+{
+/**************************************
+ *
+ *	W A L _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Unmap the WAL segment.  
+ *
+ **************************************/
+
+	WALC_fini(status_vector, WAL_handle);
+}
+
+
+SSHORT WAL_flush(
+				 STATUS * status_vector,
+				 WAL WAL_handle,
+				 SLONG * log_seqno, SLONG * log_offset, BOOLEAN conditional)
+{
+/**************************************
+ *
+ *	W A L _ f l u s h 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush all currently non-empty WAL buffers to log file.
+ *	Usually called at the time of transaction commit and checkpoiniting.
+ *
+ *	If <log_seqno, log_offset> pair is passed then conditionally
+ *	flush the WAL buffers based on this input.
+ *
+ *	Update private cached notion of the most recently flushed log seqno
+ *	and offset.
+ *
+ **************************************/
+	SLONG cur_log_seqno;
+	SLONG cur_buf_offset;
+	WALS WAL_segment;
+
+/* Conditionally flush WAL buffers based on local notion of most recently
+   flushed WAL buffers. */
+
+	if (conditional)
+		if (*log_seqno < WAL_handle->wal_flushed_seqno ||
+			(*log_seqno == WAL_handle->wal_flushed_seqno &&
+			 *log_offset <= WAL_handle->wal_flushed_offset)) return SUCCESS;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG(WAL_handle, WAL_segment);
+
+/* Conditionally flush WAL buffers based on global notion of most recently
+   flushed WAL buffers. */
+
+	if (conditional)
+		if (*log_seqno < WAL_segment->wals_flushed_log_seqno ||
+			(*log_seqno == WAL_segment->wals_flushed_log_seqno &&
+			 *log_offset <= WAL_segment->wals_flushed_offset))
+			goto flush_exit;
+
+/* Get the current status of the WAL buffers and then make sure that 
+   they are flushed at least upto that point. */
+
+	cur_log_seqno = WAL_segment->wals_log_seqno;
+	cur_buf_offset = WAL_segment->wals_buf_offset;
+	if (cur_log_seqno == WAL_segment->wals_flushed_log_seqno &&
+		cur_buf_offset == WAL_segment->wals_flushed_offset)
+		goto flush_exit;
+
+/* Current buffer is non-empty, set it up for writing.  The earlier
+   buffers, if any, would already have been set for writing when we 
+   switched to this buffer.  */
+
+	if (CUR_BUF != -1 && (WAL_BLOCK(CUR_BUF))->walblk_cur_offset > 0)
+		setup_buffer_for_writing(WAL_handle, WAL_segment, 0);
+
+	WAL_segment->wals_buf_waiters++;
+	inform_wal_writer(WAL_handle);
+
+/* Wait for the buffers to be flushed */
+
+	do {
+		wait_for_writer(status_vector, WAL_handle);
+		WAL_segment = WAL_handle->wal_segment;
+		WAL_CHECK_BUG_ERROR(WAL_handle, WAL_segment);
+	} while (cur_log_seqno == WAL_segment->wals_flushed_log_seqno &&
+			 cur_buf_offset > WAL_segment->wals_flushed_offset);
+
+  flush_exit:
+
+	WAL_handle->wal_flushed_seqno = WAL_segment->wals_flushed_log_seqno;
+	WAL_handle->wal_flushed_offset = WAL_segment->wals_flushed_offset;
+
+	WALC_release(WAL_handle);
+	if (!conditional) {
+		*log_seqno = WAL_handle->wal_flushed_seqno;
+		*log_offset = WAL_handle->wal_flushed_offset;
+	}
+
+	return SUCCESS;
+}
+
+
+SSHORT WAL_init(STATUS * status_vector,
+				WAL * WAL_handle,
+				SCHAR * dbname,
+				USHORT db_page_len,
+				SCHAR * logname,
+				SLONG log_partition_offset,
+				SSHORT first_time_log,
+				SLONG new_log_seqno, SSHORT wpb_length, SCHAR * wpb)
+{
+/**************************************
+ *
+ *	W A L _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize Write Ahead Log segment for the database and 
+ *	attach to it.
+ *
+ *	Initialize the WAL_handle.
+ *
+ *	If first_time_log is TRUE then use the new_log_seqno
+ *	as the starting sequence number for the set of new log
+ *	files.
+ *
+ *	Start the WAL writer.  
+ *	Return SUCCESS if initialization succeeds else return FAILURE.
+ *
+ **************************************/
+	SSHORT ret;
+	STATUS local_status[20];
+
+	ret = WALC_init(status_vector,
+					WAL_handle,
+					dbname,
+					db_page_len,
+					logname,
+					log_partition_offset,
+					first_time_log,
+					new_log_seqno,
+					wpb_length, reinterpret_cast < UCHAR * >(wpb), TRUE);
+	if (ret == SUCCESS) {
+		if ((ret = fork_writer(status_vector, *WAL_handle)) != SUCCESS)
+			WALC_fini(local_status, WAL_handle);
+	}
+
+	return ret;
+}
+
+
+SSHORT WAL_journal_disable(STATUS * status_vector, WAL WAL_handle)
+{
+/**************************************
+ *
+ *	W A L _ j o u r n a l _ d i s a b l e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	To inform the WAL writer that journalling should be disabled.
+ *	Before returning from this procedure make sure that the WAL 
+ *	writer has severed its ties with the journal server.
+ *
+ *	Returns SUCCESS or FAILURE.
+ *
+ ***************************************/
+	WALS WAL_segment;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG(WAL_handle, WAL_segment);
+	if (!(WAL_segment->wals_flags & WALS_JOURNAL_ENABLED)) {
+		/* Journalling is already disabled. */
+
+		WALC_release(WAL_handle);
+		return SUCCESS;
+	}
+	WAL_segment->wals_flags |= WALS_DISABLE_JOURNAL;
+	inform_wal_writer(WAL_handle);
+
+	while (WAL_segment->wals_flags & WALS_JOURNAL_ENABLED) {
+		/* Wait for the WAL writer to severe its connection with the journal 
+		   server.  Should we get out with an error after a certain number 
+		   of retries ? -- Damodar */
+
+		wait_for_writer(status_vector, WAL_handle);
+		WAL_segment = WAL_handle->wal_segment;
+		WAL_CHECK_BUG_ERROR(WAL_handle, WAL_segment);
+	}
+
+	WALC_release(WAL_handle);
+	return SUCCESS;
+}
+
+
+SSHORT WAL_journal_enable(STATUS * status_vector,
+						  WAL WAL_handle,
+						  SCHAR * jrn_dirname,
+						  USHORT jrn_data_len, SCHAR * jrn_data)
+{
+/**************************************
+ *
+ *	W A L _ j o u r n a l _ e n a b l e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	To inform the WAL writer that journalling has been enabled.
+ *	Before returning from this procedure make sure that the WAL 
+ *	writer has established a connection with the journal server.
+ *
+ *	Returns SUCCESS or FAILURE.
+ *
+ ***************************************/
+	WALS WAL_segment;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG(WAL_handle, WAL_segment);
+	if (WAL_segment->wals_flags & WALS_JOURNAL_ENABLED) {
+		/* Journalling is already enabled. */
+
+		WALC_release(WAL_handle);
+		return SUCCESS;
+	}
+
+	strcpy(WAL_segment->wals_jrn_dirname, jrn_dirname);
+	WAL_segment->wals_jrn_init_data_len = jrn_data_len;
+	memcpy(WAL_segment->wals_jrn_init_data, jrn_data, jrn_data_len);
+	WAL_segment->wals_flags |= WALS_ENABLE_JOURNAL;
+	inform_wal_writer(WAL_handle);
+
+	while (!(WAL_segment->wals_flags & WALS_JOURNAL_ENABLED)) {
+		/* Wait for the WAL writer to establish connection with the journal 
+		   server.  Should we get out with an error after a certain number 
+		   of retries ? -- Damodar */
+
+		wait_for_writer(status_vector, WAL_handle);
+		WAL_segment = WAL_handle->wal_segment;
+		WAL_CHECK_BUG_ERROR(WAL_handle, WAL_segment);
+	}
+
+	WALC_release(WAL_handle);
+
+	return SUCCESS;
+}
+
+
+SSHORT WAL_put(STATUS * status_vector,
+			   WAL WAL_handle,
+			   UCHAR * logrec1,
+			   USHORT len1,
+			   UCHAR * logrec2,
+			   USHORT len2, SLONG * log_seqno, SLONG * log_offset)
+{
+/**************************************
+ *
+ *	W A L _ p u t  
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put the given log record in a shared log buffer.  
+ *	If all the buffers are full and or being flushed to disk,
+ *	wait for one to become available.  
+ *
+ *	If putting this buffer will make the current log file go
+ *	beyond its rollover length then ask the WAL writer
+ *	to rollover to the next log file and wait for that to happen
+ *	before proceeding.
+ *
+ *	This routine is NOT supposed to flush the log record (buffer)
+ *	to disk.
+ *
+ *	The log record is put in (header+logrec) fashion.
+ *	Return the sequence number of the log file in the log file 
+ *	series and the offset of this logrec in that file where
+ *	this log record would eventually be written.
+ *
+ *	Returns SUCCESS or FAILURE.
+ *
+ **************************************/
+
+	return wal_put2(status_vector, WAL_handle,
+					logrec1, len1, logrec2, len2, log_seqno, log_offset, 0);
+}
+
+
+BOOLEAN WAL_rollover_happened(STATUS * status_vector,
+							  WAL WAL_handle,
+							  SLONG * new_seqno,
+							  TEXT * new_logname,
+							  SLONG * new_log_partition_offset)
+{
+/**************************************
+ *
+ *	W A L _ r o l l o v e r _ h a p p e n e d  ?
+ *
+ **************************************
+ *
+ * Functional description
+ *	To inform the caller if rollover to a new log file has happened. 
+ *	Returns TRUE or FASLE.   If TRUE then new_logname, 
+ *	new_log_partition_offset and new_seqno parameters are initialized
+ *	with the new information.  The caller should invoke 
+ *	WAL_rollover_recorded() after recording the rollover
+ *	information at a safe place (e.g. the header page). 
+ *
+ ***************************************/
+	WALS WAL_segment;
+	BOOLEAN happened;
+
+	happened = FALSE;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG(WAL_handle, WAL_segment);
+	if (WAL_segment->wals_flags & WALS_ROLLOVER_HAPPENED) {
+		happened = TRUE;
+		*new_seqno = WAL_segment->wals_log_seqno;
+		strcpy(new_logname, WAL_segment->wals_logname);
+		*new_log_partition_offset = WAL_segment->wals_log_partition_offset;
+	}
+
+	WALC_release(WAL_handle);
+
+	return happened;
+}
+
+
+void WAL_rollover_recorded( WAL WAL_handle)
+{
+/**************************************
+ *
+ *	W A L _ r o l l o v e r _ r e c o r d e d
+ *
+ **************************************
+ *
+ * Functional description
+ *	To inform the WAL writer that the last rollover information 
+ *	has been recorded.   After this, the WAL writer can rollover
+ *	to a new log file if needed. 
+ *
+ ***************************************/
+	WALS WAL_segment;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_segment->wals_flags &= ~WALS_ROLLOVER_HAPPENED;
+	WALC_release(WAL_handle);
+}
+
+
+SSHORT WAL_set_checkpoint_length(
+								 STATUS * status_vector,
+								 WAL WAL_handle, SLONG ckpt_length)
+{
+/**************************************
+ *
+ *	W A L _ s e t _ c h e c k p o i n t _ l e n g t h
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sets the checkpoint length to the passed value 
+ *	(in Kbytes).
+ *
+ **************************************/
+	WALS WAL_segment;
+
+	if (ckpt_length < MIN_CKPT_INTRVL)
+		return FAILURE;			/* Should set the status vector also */
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG(WAL_handle, WAL_segment);
+
+	WAL_segment->wals_max_ckpt_intrvl = OneK * ckpt_length;
+	WAL_segment->wals_thrshold_intrvl =
+		(SLONG)(WAL_segment->wals_max_ckpt_intrvl * 0.8);
+
+	WALC_release(WAL_handle);
+
+	return SUCCESS;
+}
+
+
+void WAL_set_cleanup_flag( WAL WAL_handle)
+{
+/**************************************
+ *
+ *	W A L _ s e t _ c l e a n u p _ f l a g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sets the cleanup flag in the WAL_handle so that 
+ *	shared resource may be cleaned up during WALC_fini().
+ *
+ **************************************/
+
+	WAL_handle->wal_flags |= WAL_CLEANUP_HANDLE;
+	WAL_handle->wal_flags |= WAL_SHUTDOWN_HANDLE;
+}
+
+
+SSHORT WAL_set_grpc_wait_time(
+							  STATUS * status_vector,
+							  WAL WAL_handle, SLONG wait_usecs)
+{
+/**************************************
+ *
+ *	W A L _ s e t _ g r p c _ w a i t _ t i m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sets the group commit wait time to the passed value 
+ *	(in microseconds).
+ *
+ **************************************/
+	WALS WAL_segment;
+
+	if (wait_usecs < 0)
+		return FAILURE;			/* Should set the status vector also */
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG(WAL_handle, WAL_segment);
+
+	WAL_segment->wals_grpc_wait_id++;	/* For other users to notice the new value */
+	WAL_segment->wals_grpc_wait_usecs = wait_usecs;
+	WALC_release(WAL_handle);
+
+	return SUCCESS;
+}
+
+
+SSHORT WAL_set_rollover_log(STATUS * status_vector,
+							WAL WAL_handle, LGFILE * rollover_log_info)
+{
+/**************************************
+ *
+ *	W A L _ s e t _ r o l l o v e r _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Sets the base file name to be used for rolling over to the next 
+ *	log file.
+ *
+ **************************************/
+	WALS WAL_segment;
+	LOGF *logf;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG(WAL_handle, WAL_segment);
+
+	if (WAL_segment->wals_max_logfiles > 0)
+		logf = &WAL_segment->wals_log_ovflow_file_info;
+	else
+		logf = &WAL_segment->wals_log_serial_file_info;
+
+	strcpy(WAL_segment->wals_rollover_logname_base,
+		   rollover_log_info->lg_name);
+	logf->logf_name_offset =
+		(UCHAR *) WAL_segment->wals_rollover_logname_base -
+		(UCHAR *) WAL_segment;
+	logf->logf_max_size = MAX(rollover_log_info->lg_size, MIN_LOG_LENGTH);
+	logf->logf_roundup_size = 0;
+	logf->logf_flags = rollover_log_info->lg_flags;
+
+	WALC_release(WAL_handle);
+
+	return SUCCESS;
+}
+
+
+SSHORT WAL_shutdown(STATUS * status_vector,
+					WAL WAL_handle,
+					SLONG * log_seqno,
+					SCHAR * logname,
+					SLONG * log_partition_offset,
+					SLONG * shutdown_offset, SSHORT inform_close_to_jserver)
+{
+/**************************************
+ *
+ *	W A L _ s h u t d o w n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Informs the WAL writer to shut down its operations.  
+ *	This procedure should be called when no other process (thread)
+ *	is attached to the database. 
+ *
+ *	Returns the information about the last log file in use.
+ *
+ **************************************/
+
+/* First force a checkpoint */
+
+	WAL_checkpoint_force(status_vector, WAL_handle, log_seqno, logname,
+						 log_partition_offset, shutdown_offset);
+
+/* Now shutdown the WAL writer */
+
+	return shutdown_writer(status_vector, WAL_handle,
+						   inform_close_to_jserver);
+}
+
+
+SSHORT WAL_shutdown_old_writer(STATUS * status_vector, SCHAR * dbname)
+{
+/**************************************
+ *
+ *	W A L _ s h u t d o w n _ o l d _ w r i t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Informs an existing WAL writer (if any) for the passed
+ *	database to shut down its operations.  It's not an error
+ *	if no WAL writer for the given database is running.  
+ *
+ *	A WAL Writer may be hanging around if the 'last' process
+ *	attached to the database did not or could not detach from
+ *	the database.  So, this routine is used to shutdown that 
+ *	WAL writer before starting recovery or in preparation for
+ *	starting a fresh WAL writer.  
+ *
+ ************************************/
+	WAL WAL_handle;
+	STATUS local_status[20];
+
+	WAL_handle = NULL;
+
+	if (WAL_attach(local_status, &WAL_handle, dbname) != SUCCESS)
+		return SUCCESS;			/* Nobody is attached to the shared WAL segment */
+
+	if (WALC_check_writer(WAL_handle) == SUCCESS)
+		shutdown_writer(status_vector, WAL_handle, (SSHORT) 0);
+
+	WAL_fini(status_vector, &WAL_handle);
+
+	return SUCCESS;
+}
+
+
+SSHORT WAL_status(STATUS * status_vector,
+				  WAL WAL_handle,
+				  SLONG * log_seqno,
+				  SCHAR * logname,
+				  SLONG * log_partition_offset,
+				  SLONG * flushed_offset,
+				  SLONG * ckpt_seqno,
+				  SCHAR * ckpt_logname,
+				  SLONG * ckpt_log_partition_offset, SLONG * ckpt_offset)
+ {
+/**************************************
+ *
+ *	W A L _ s t a t u s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns current status of the WAL activites through passed 
+ *	parameters.
+ *
+ **************************************/
+	WALS WAL_segment;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG_ERROR(WAL_handle, WAL_segment);
+	if (log_seqno)
+		*log_seqno = WAL_segment->wals_log_seqno;
+	if (logname)
+		strcpy(logname, WAL_segment->wals_logname);
+	if (log_partition_offset)
+		*log_partition_offset = WAL_segment->wals_log_partition_offset;
+	if (flushed_offset)
+		*flushed_offset = WAL_segment->wals_flushed_offset;
+	if (ckpt_seqno)
+		*ckpt_seqno = WAL_segment->wals_ckpted_log_seqno;
+	if (ckpt_logname)
+		strcpy(ckpt_logname, WAL_segment->wals_ckpt_logname);
+	if (ckpt_log_partition_offset)
+		*ckpt_log_partition_offset = WAL_segment->wals_ckpt_log_p_offset;
+	if (ckpt_offset)
+		*ckpt_offset = WAL_segment->wals_ckpted_offset;
+	WALC_release(WAL_handle);
+
+	return SUCCESS;
+}
+
+
+static SLONG copy_buffer(
+						 WALS WAL_segment,
+						 WALBLK * wblk,
+						 UCHAR * source1,
+						 USHORT count1, UCHAR * source2, USHORT count2)
+{
+/**************************************
+ *
+ *	c o p y _ b u f f e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Copies 'count' bytes from source to the specified WAL buffer.
+ *	Puts a header as prefix.
+ *	The sufficiency of space in wblk has already been ascertained 
+ *	beforehand. 
+ *	Returns the offset in the WAL file where these bytes would endup.
+ *
+ **************************************/
+	UCHAR *p, *q;
+	WALREC_HDR header;
+	SLONG offset;
+	USHORT total_count;
+
+	if (wblk->walblk_cur_offset == 0) {
+		/* This buffer is being written from the beginning.  Account for
+		   the block header bytes. */
+
+		wblk->walblk_cur_offset = BLK_HDROVHD;
+		WAL_segment->wals_buf_offset += BLK_HDROVHD;
+	}
+
+	offset = WAL_segment->wals_buf_offset;
+
+/* First build the record header */
+
+	total_count = count1 + count2;
+	header.walrec_len = total_count;
+	header.walrec_offset = wblk->walblk_cur_offset;
+	p = (UCHAR *) & header;
+	q = &wblk->walblk_buf[wblk->walblk_cur_offset];
+	memcpy(q, p, REC_HDROVHD);
+	q += REC_HDROVHD;
+
+/* Now put 'count' bytes from source */
+
+	memcpy(q, source1, count1);	/* Use some fast copy technique. Damodar */
+	if (count2) {
+		q += count1;
+		memcpy(q, source2, count2);
+	}
+
+	wblk->walblk_cur_offset += (total_count + REC_HDROVHD);
+	WAL_segment->wals_buf_offset += (total_count + REC_HDROVHD);
+
+	return offset;
+}
+
+
+#ifdef SUPERSERVER
+static SSHORT fork_writer( STATUS * status_vector, WAL WAL_handle)
+{
+/**************************************
+ *
+ *	f o r k _ w r i t e r 	( S U P E R S E R V E R )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fork the WAL writer process (thread) and give it enough time
+ *	to initialize itself.
+ *
+ *	Returns SUCCESS if successful in forking the WAL writer. 
+ *
+ **************************************/
+	WALS WAL_segment;
+	TEXT *argv[20];
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_segment->wals_flags &= ~WALS_WRITER_INITIALIZED;
+
+	argv[0] = (TEXT *) 2;
+	argv[1] = WAL_segment->wals_dbname;
+	if (gds__thread_start
+		(reinterpret_cast < FPTR_INT_VOID_PTR > (main_walw), argv, 0, 0, 0)) {
+		WALC_release(WAL_handle);
+		IBERR_build_status(status_vector, gds__bug_check,
+						   gds_arg_string, "cannot start thread", 0);
+		return FAILURE;
+	}
+
+	WALC_release(WAL_handle);
+
+	return sync_with_wal_writer(status_vector, WAL_handle);
+}
+#endif
+
+
+#ifndef SUPERSERVER
+static SSHORT fork_writer( STATUS * status_vector, WAL WAL_handle)
+{
+/**************************************
+ *
+ *	f o r k _ w r i t e r 	( G E N E R I C )
+ *
+ **************************************
+ *
+ * Functional description
+ *	Fork the WAL writer process (thread) and give it enough time
+ *	to initialize itself.
+ *
+ *	Returns SUCCESS if successful in forking the WAL writer. 
+ *
+ **************************************/
+	WALS WAL_segment;
+	TEXT image_name[256];
+	int pid;
+
+	gds__prefix(image_name, WAL_WRITER);
+
+/* Use WALS_WRITER_INITIALIZED flag to synchronize with the WAL_writer. */
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_segment->wals_flags &= ~WALS_WRITER_INITIALIZED;
+
+#if (defined WIN_NT)
+	pid =
+		spawnl(P_DETACH, image_name, WAL_WRITER, WAL_segment->wals_dbname,
+			   NULL);
+#else
+/* We are doing vfork() twice below to start the WAL writer process. 
+   This is to get around the problem of a <defunt> process not responding
+   to kill(0) signal properly on HP-UX systems.  On HP-UX, if a child
+   (WAL writer) dies but the parent still exists then kill(0) to 
+   the pid of the dead process (WAL writer) does not return an error
+   of ESRCH and hence we cannot restart it.   Doing vfork() twice
+   makes sure that the parent of WAL writer 'dies' so that WAL writer
+   would never get into a <defunt> state in case it terminates 
+   prematurely. */
+
+	if (!(pid = vfork())) {
+		if (!vfork()) {
+			execl(image_name, image_name, WAL_segment->wals_dbname, NULL);
+			_exit(FINI_OK);
+		}
+		_exit(FINI_OK);			/* Parent of the newly started WAL writer dies here */
+	}
+#endif
+
+	WALC_release(WAL_handle);
+#if (defined WIN_NT)
+	if (pid == -1)
+#else
+	if (pid == -1
+		|| (waitpid(pid, NULL, 0) == -1 && !SYSCALL_INTERRUPTED(errno)))
+#endif
+	{
+		WALC_bug(status_vector, WAL_handle->wal_dbname,
+				 "Can't start WAL writer");
+		return FAILURE;
+	}
+
+	return sync_with_wal_writer(status_vector, WAL_handle);
+}
+#endif
+
+
+static SSHORT grpc_do_group_commit(
+								   STATUS * status_vector,
+								   WAL WAL_handle, SSHORT grpc_blknum)
+{
+/**************************************
+ *
+ *	g r p c _ d o _ g r o u p _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	This process (thread) has been chosen to be the group 
+ *	coordinator.  The group-commit block to be used is passed as 
+ *	a parameter.
+ *	NOTE: It is assume that upon entry to this routine, shared memory
+ *	is acquired.
+ *
+ **************************************/
+	SLONG dummy_seqno;
+	SLONG dummy_offset;
+	SSHORT ret;
+
+/* Wait for more grouping and for the other group-commit_block 
+   to be available. */
+
+	ret = grpc_wait_for_grouping(status_vector, WAL_handle, grpc_blknum);
+	if (ret != SUCCESS)
+		return ret;
+
+	ret =
+		WAL_flush(status_vector, WAL_handle, &dummy_seqno, &dummy_offset,
+				  FALSE);
+	if (ret != SUCCESS)
+		return ret;
+
+	grpc_finish_group_commit(WAL_handle, grpc_blknum);
+
+	return SUCCESS;
+}
+
+
+static void grpc_finish_group_commit( WAL WAL_handle, SSHORT grpc_blknum)
+{
+/**************************************
+ *
+ *	g r p c _ f i n i s h _ g r o u p _ c o m m i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Clears the group coordinator block and informs the other
+ *	participants.  Also alerts the other coordinator, if any.
+ *
+ **************************************/
+	WALS WAL_segment;
+	GRP_COMMIT *grpc;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_segment->wals_grpc_count++;
+	grpc = &WAL_segment->wals_grpc_blks[grpc_blknum];
+	grpc->grp_commit_coordinator = 0;
+
+	if (grpc->grp_commit_size > 1)	/* Inform other participants */
+		ISC_event_post(WAL_EVENTS + grpc->grp_commit_event_num);
+
+	grpc->grp_commit_size = 0;
+	WAL_segment->wals_flags &= ~WALS_GRP_COMMIT_IN_PROGRESS;
+	if (WAL_segment->wals_flags & WALS_GRP_COMMIT_WAITING) {
+		/* Other committer is waiting for this group commit block to be cleared. */
+
+		ISC_event_post(WAL_EVENTS + WAL_GCOMMIT_STALL_SEM);
+	}
+	WALC_release(WAL_handle);
+}
+
+
+static SSHORT grpc_wait_for_grouping(
+									 STATUS * status_vector,
+									 WAL WAL_handle, SSHORT grpc_blknum)
+{
+/**************************************
+ *
+ *	g r p c _ w a i t _ f o r _ g r o u p i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	This function first waits for increasing the group size.  It also 
+ *	makes sure that the other group-commit block is available before
+ *	this group-commit coordinator closes its door.
+ *	NOTE: It is assume that upon entry to this routine, shared memory
+ *	is acquired.
+ *
+ **************************************/
+	EVENT ptr;
+	SLONG value;
+	WALS WAL_segment;
+	SSHORT wait_count, other_grpc_blknum;
+	GRP_COMMIT *other_grpc;
+
+/* Previously, the semaphore was being set only when called from WAL_commit. */
+
+	WAL_segment = WAL_handle->wal_segment;
+	ptr = &WAL_EVENTS[WAL_GCOMMIT_STALL_SEM];
+	value = ISC_event_clear(ptr);
+	WALC_release(WAL_handle);
+
+	ISC_event_wait(1,
+				   &ptr,
+				   &value,
+				   WAL_handle->wal_grpc_wait_usecs,
+				   reinterpret_cast < void (*)() > (WALC_alarm_handler), ptr);
+
+/* Now make sure that the other group-commit block is available */
+
+	other_grpc_blknum = (grpc_blknum + 1) % MAX_GRP_COMMITTERS;
+	wait_count = 0;
+	WALC_acquire(WAL_handle, &WAL_segment);
+	while (WAL_segment->wals_flags & WALS_GRP_COMMIT_IN_PROGRESS) {
+		value = ISC_event_clear(ptr);
+		WALC_release(WAL_handle);
+		ptr = &WAL_EVENTS[WAL_GCOMMIT_STALL_SEM];
+		ISC_event_wait(1, &ptr, &value,
+					   WAL_handle->wal_grpc_wait_other_coord_usecs,
+					   reinterpret_cast < void (*)() > (WALC_alarm_handler),
+					   ptr);
+		WALC_acquire(WAL_handle, &WAL_segment);
+		WAL_CHECK_BUG(WAL_handle, WAL_segment);
+		if ((WAL_segment->wals_flags & WALS_GRP_COMMIT_IN_PROGRESS) &&
+			((wait_count++) > 5)) {
+			/* Time to check the other coordinator, what's going on ? */
+
+			other_grpc = &WAL_segment->wals_grpc_blks[other_grpc_blknum];
+			if (other_grpc->grp_commit_size == 1 &&
+				!ISC_check_process_existence(other_grpc->
+											 grp_commit_coordinator, 0,
+											 FALSE)) {
+				/* Other coordinator is dead and there is no participant.
+				   So, clean up. */
+
+				WALC_release(WAL_handle);
+				grpc_finish_group_commit(WAL_handle, other_grpc_blknum);
+				WALC_acquire(WAL_handle, &WAL_segment);
+			}
+			wait_count = 0;
+		}
+	}
+	WAL_segment->wals_flags &= ~WALS_GRP_COMMIT_WAITING;
+	WAL_segment->wals_flags |= WALS_GRP_COMMIT_IN_PROGRESS;
+	WAL_segment->wals_cur_grpc_blknum =
+		(grpc_blknum + 1) % MAX_GRP_COMMITTERS;
+	WALC_release(WAL_handle);
+
+	return SUCCESS;
+}
+
+
+static SSHORT grpc_wait_for_group_commit_finish(
+												STATUS * status_vector,
+												WAL WAL_handle,
+												SSHORT grpc_blknum,
+GRP_COMMIT * grpc)
+{
+/**************************************
+ *
+ *	g r p c _ w a i t _ f o r _ g r o u p _ co m m i t _ f i n i s h
+ *
+ **************************************
+ *
+ * Functional description
+ *	This function waits for the group commit on the given block to 
+ *	finish.  All the participants call this routine.
+ *	The parameter wait_id is the semaphore number to wait on.
+ *	If needed, become the group_coordinator. 
+ *	NOTE: It is assume that upon entry to this routine, shared memory
+ *	is acquired.
+ *
+ **************************************/
+	SLONG value;
+	EVENT ptr;
+	WALS WAL_segment;
+
+/* First participant sets the notification semaphore */
+
+/* Previously, the semaphore was being set only when the commit size was 2.
+   Now it is set regardless. */
+
+	WAL_segment = WAL_handle->wal_segment;
+	ptr = &WAL_EVENTS[grpc->grp_commit_event_num];
+	value = ISC_event_clear(ptr);
+	WALC_release(WAL_handle);
+	while (ISC_event_wait
+		   (1, &ptr, &value, WAL_handle->wal_grpc_wait_coord_usecs,
+			reinterpret_cast < void (*)() > (WALC_alarm_handler),
+			ptr) != SUCCESS) {
+		/* Check to make sure that the coordinator is still alive. */
+
+		WALC_acquire(WAL_handle, &WAL_segment);
+		WAL_CHECK_BUG(WAL_handle, WAL_segment);
+		grpc = &WAL_segment->wals_grpc_blks[grpc_blknum];
+		if (!ISC_check_process_existence
+			(grpc->grp_commit_coordinator, 0, FALSE)) {
+			/* Coordinator is dead.  Let's take over. */
+
+			grpc->grp_commit_size--;
+			grpc->grp_commit_coordinator = WAL_handle->wal_pid;
+			grpc_do_group_commit(status_vector, WAL_handle, grpc_blknum);
+			return SUCCESS;
+		}
+		WALC_release(WAL_handle);
+	}
+
+	return SUCCESS;
+}
+
+
+static void inform_wal_writer( WAL WAL_handle)
+{
+/**************************************
+ *
+ *	i n f o r m _ w a l _ w r i t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Inform WAL writer that there is some work to do.
+ *
+ ***************************************/
+	WALS WAL_segment;
+
+	WAL_segment = WAL_handle->wal_segment;
+
+	if (!(WAL_segment->wals_flags & WALS_WRITER_INFORMED)) {
+		ISC_event_post(WAL_EVENTS + WAL_WRITER_WORK_SEM);
+		WAL_segment->wals_flags |= WALS_WRITER_INFORMED;
+	}
+}
+
+
+static SSHORT next_buffer_available( WALS WAL_segment)
+{
+/**************************************
+ *
+ *	n e x t _ b u f f e r _ a v a i l a b l e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Return the next (to current) available buffer number modulo 
+ *	maximum allocated buffers for this WAL.
+ *	If the next buffer is not available, return -1.
+ *
+ ***************************************/
+	int next_buf;
+	WALBLK *wblk;
+
+	next_buf = (CUR_BUF + 1) % WAL_segment->wals_maxbufs;
+
+	wblk = WAL_BLOCK(next_buf);
+	if (wblk->walblk_flags & WALBLK_to_be_written)	/* Implies all buffers are full */
+		return -1;
+
+	return next_buf;
+}
+
+
+static void setup_buffer_for_writing(
+									 WAL WAL_handle,
+									 WALS WAL_segment, SSHORT ckpt)
+{
+/**************************************
+ *
+ *	s e t u p _ b u f f e r _ f o r _ w r i t i n g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Prepare the cuurent buffer block for writing. 
+ *	Inform the WAL writer that the current buffer is ready 
+ *	to be flushed to disk.  Assumes that acquire() has 
+ *	been done, before calling this routine.
+ *	If 'ckpt' flag is TRUE then this buffer finishes a checkpoint.
+ ***************************************/
+	WALBLK *wblk;
+
+	wblk = WAL_BLOCK(CUR_BUF);
+	if (wblk->walblk_cur_offset <= BLK_HDROVHD) {
+		WALC_release(WAL_handle);
+		WALC_bug((STATUS *) NULL, WAL_handle->wal_dbname,
+				 "An empty WAL buffer submitted for writing");
+	}
+
+	WALC_setup_buffer_block(WAL_segment, wblk, ckpt);
+	CUR_BUF = next_buffer_available(WAL_segment);
+	inform_wal_writer(WAL_handle);
+}
+
+
+static SSHORT shutdown_writer(
+							  STATUS * status_vector,
+							  WAL WAL_handle, SSHORT inform_close_to_jserver)
+{
+/**************************************
+ *
+ *	s h u t d o w n _ w r i t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Informs the WAL writer to shut down its operations.  
+ *	This procedure should be called when no other process (thread)
+ *	is attached to the database. 
+ *
+ **************************************/
+	WALS WAL_segment;
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_segment->wals_flags |= WALS_SHUTDOWN_WRITER;
+	if (inform_close_to_jserver)
+		WAL_segment->wals_flags |= WALS_INFORM_CLOSE_TO_JOURNAL;
+	inform_wal_writer(WAL_handle);
+	WALC_release(WAL_handle);
+
+/* Now wait for the WAL writer to shut itself down */
+
+	sleep(2);
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	while (!(WAL_segment->wals_flags & WALS_WRITER_DONE)) {
+		wait_for_writer(status_vector, WAL_handle);
+		WAL_segment = WAL_handle->wal_segment;
+		WAL_CHECK_BUG_ERROR(WAL_handle, WAL_segment);
+	}
+	WALC_release(WAL_handle);
+	WAL_handle->wal_flags |= WAL_SHUTDOWN_HANDLE;
+
+	return SUCCESS;
+}
+
+
+static SSHORT sync_with_wal_writer( STATUS * status_vector, WAL WAL_handle)
+{
+/**************************************
+ *
+ *	s y n c _ w i t h _ W A L _ w r i t e r 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Make sure that WAL writer has initialized itself (and parts of 
+ *	the WAL segment).  This is to avoid some race conditions when
+ *	other processes may use the info regarding the log file in 
+ *	the WAL segment before the WAL writer got a chance to initialize 
+ *	that.  Returns FAILURE after some number (10) of retries. 
+ *
+ **************************************/
+	SSHORT done;
+	SSHORT count;
+	WALS WAL_segment;
+
+	done = FAILURE;
+	sleep(1);
+	for (count = 0; count < 10; count++) {
+		WALC_acquire(WAL_handle, &WAL_segment);
+		WAL_CHECK_BUG_ERROR(WAL_handle, WAL_segment);
+		if (WAL_segment->wals_flags & WALS_WRITER_INITIALIZED) {
+			done = SUCCESS;		/* WAL_writer has initialized itself. */
+			WALC_release(WAL_handle);
+			break;
+		}
+		WALC_release(WAL_handle);
+		sleep(3);
+	}
+
+	if (done != SUCCESS)
+		WAL_ERROR(status_vector, gds__wal_err_ww_sync,
+				  WAL_handle->wal_dbname);
+
+	return done;
+}
+
+
+static SSHORT wait_for_writer( STATUS * status_vector, WAL WAL_handle)
+{
+/**************************************
+ *
+ *	w a i t _ f o r _ w r i t e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	We need to wait for a WAL buffer to be flushed to disk.
+ *	Let's wait for the WAL writer to do the writing.
+ *	The caller is supposed to have "acquire()d" the lock.
+ *
+ **************************************/
+	EVENT ptr;
+	SLONG value;
+	SSHORT ret;
+	WALS WAL_segment;
+
+	WAL_segment = WAL_handle->wal_segment;
+	ptr = &WAL_EVENTS[WAL_WRITER_WORK_DONE_SEM];
+	value = ISC_event_clear(ptr);
+	WALC_release(WAL_handle);
+
+	ret =
+		ISC_event_wait(1, &ptr, &value, WAIT_TIME,
+					   reinterpret_cast < void (*)() > (WALC_alarm_handler),
+					   ptr);
+	if (ret == FAILURE) {
+		/* We got out because of timeout.  May be our condition is 
+		   already met.  Let the caller decide that.  In any case, make
+		   sure that the WAL_writer process is alive. */
+
+		if ((ret = WALC_check_writer(WAL_handle)) != SUCCESS)
+			ret = fork_writer(status_vector, WAL_handle);
+	}
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+
+	return ret;
+}
+
+
+static SSHORT wal_put2(
+					   STATUS * status_vector,
+					   WAL WAL_handle,
+					   UCHAR * logrec1,
+					   USHORT len1,
+UCHAR * logrec2,
+USHORT len2, SLONG * log_seqno, SLONG * log_offset, SSHORT ckpt)
+ {
+/**************************************
+ *
+ *	w a l _ p u t 2
+ *
+ **************************************
+ *
+ * Functional description
+ *	Put the given log record in a shared log buffer.  
+ *	If all the buffers are full and/or being flushed to disk,
+ *	wait for one to become available.  
+ *
+ *	If putting this buffer will make the current log file go
+ *	beyond its rollover length then ask the WAL writer
+ *	to rollover to the next log file and wait for that to happen
+ *	before proceeding.
+ *
+ *	This routine is NOT supposed to flush the log record (buffer)
+ *	to disk.
+ *
+ *	The log record is put in (header+logrec) fashion.
+ *	Return the sequence number of the log file in the log file 
+ *	series and the offset of this logrec in that file where
+ *	this log record would eventually be written.
+ *
+ *	If 'ckpt' parameter is TRUE then steup the buffer with 
+ *	this logrec for writing and mark it as a checkpoint buffer.
+ *	The WAL writer will handle this checkpointed buffer in a special
+ *	way.
+ *
+ *	Returns SUCCESS or FAILURE.
+ *
+ **************************************/
+	int available_bytes;
+	USHORT total_len, done = FALSE;
+	WALBLK *wblk;
+	SLONG lsn;
+	SLONG offset;
+	WALS WAL_segment;
+#define ROLLOVER_OVHD (REC_HDROVHD + BLK_OVHD + WAL_TERMINATOR_BLKLEN)
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	WAL_CHECK_BUG(WAL_handle, WAL_segment);
+	total_len = len1 + len2;
+	if (total_len > WAL_segment->wals_max_recsize) {
+		WALC_release(WAL_handle);
+		WALC_bug(status_vector, WAL_handle->wal_dbname,
+				 "log record too long");
+		return FAILURE;
+	}
+
+	WAL_segment->wals_put_count++;
+	while (!done) {
+		while (CUR_BUF == -1
+			   || (WAL_segment->wals_flags & WALS_ROLLOVER_REQUIRED)) {
+			/* No buffer is available or rollover is in progress, wait */
+
+			if ((CUR_BUF == -1)
+				&& (++WAL_segment->wals_buf_waiting_count > MAX_WAITERS)) {
+				WAL_segment->wals_flags2 |= WALS2_EXPAND;
+				WAL_segment->wals_buf_waiting_count = 0;
+			}
+			WAL_segment->wals_buf_waiters++;
+			wait_for_writer(status_vector, WAL_handle);
+			WAL_segment = WAL_handle->wal_segment;
+			WAL_CHECK_BUG(WAL_handle, WAL_segment);
+		}
+
+		wblk = WAL_BLOCK(CUR_BUF);
+
+		/* Check for rollover requirement */
+
+		if ((SLONG)(WAL_segment->wals_buf_offset + total_len + ROLLOVER_OVHD) >=
+			WAL_segment->wals_rollover_threshold)
+		{
+			WAL_segment->wals_flags |= WALS_ROLLOVER_REQUIRED;
+			if (wblk->walblk_cur_offset > BLK_HDROVHD)
+				setup_buffer_for_writing(WAL_handle, WAL_segment, 0);
+			WAL_segment->wals_buf_waiters++;
+			wait_for_writer(status_vector, WAL_handle);
+			WAL_segment = WAL_handle->wal_segment;
+			WAL_CHECK_BUG(WAL_handle, WAL_segment);
+			continue;
+		}
+
+		/* logrec will be written in header+logrec fashion to the log.  So
+		   we need extra bytes of header.  Check the current buffer. */
+		available_bytes = WAL_segment->wals_bufsize -
+			WALBLK_EFFECTIVE_OFFSET(wblk) - REC_HDROVHD - BLK_TAILOVHD;
+		if (available_bytes >= (int) total_len) {
+			/* Found a large enough buffer, use it. */
+
+			lsn = WAL_segment->wals_log_seqno;
+			offset =
+				copy_buffer(WAL_segment, wblk, logrec1, len1, logrec2, len2);
+			done = TRUE;
+		}
+		else
+			/* Assumption: One empty WAL buffer is long enough to fully accommodate 
+			   any one log record.  Let's try the next buffer. */
+
+			setup_buffer_for_writing(WAL_handle, WAL_segment, 0);
+	}
+
+	if (ckpt)
+		setup_buffer_for_writing(WAL_handle, WAL_segment, ckpt);
+	WALC_release(WAL_handle);
+
+	*log_seqno = lsn;
+	*log_offset = offset;
+
+	return SUCCESS;
+}
+
+
+} // extern "C"
diff --git a/src/wal/wal.h b/src/wal/wal.h
new file mode 100644
index 0000000000..8c4f5751bc
--- /dev/null
+++ b/src/wal/wal.h
@@ -0,0 +1,508 @@
+/*
+ *        PROGRAM:        JRD Write Ahead Log
+ *        MODULE:         wal.h
+ *        DESCRIPTION:    Write Ahead Log (WAL) interface definitions
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _WAL_WAL_H_
+#define _WAL_WAL_H_
+
+#include <stdio.h>
+#ifndef VMS
+#ifndef FCNTL_INCLUDED
+#include <fcntl.h>
+#define FCNTL_INCLUDED
+#endif
+#endif
+#ifdef DELTA
+#include <sys/types.h>
+#endif
+#ifdef IMP
+#include <sys/types.h>
+#endif
+#include "../jrd/common.h"
+#include "../jrd/misc.h"  
+#include "../jrd/isc.h"  
+
+#ifdef WIN_NT
+#define SYS_ERR			gds_arg_win32
+#endif
+
+#ifndef SYS_ERR
+#define SYS_ERR			gds_arg_unix
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN		1024
+#endif
+
+#define MAX_JRN_INIT_DATA	2 * (MAXPATHLEN + 2)
+
+#define WALS_VERSION1		1
+#define WALS_VERSION		WALS_VERSION1
+
+/* WAL Semaphores */
+
+#define MAX_WALSEMS			6
+#define WAL_SEM				0
+#define WAL_WRITER_WORK_SEM		1
+#define WAL_WRITER_WORK_DONE_SEM	2
+#define WAL_GCOMMIT_WAIT1_SEM		3
+#define WAL_GCOMMIT_WAIT2_SEM		4
+#define WAL_GCOMMIT_STALL_SEM		5
+
+#if (defined WIN_NT)
+#define WAL_EVENTS		WAL_handle->wal_events
+#endif
+
+#ifndef WAL_EVENTS
+#define WAL_EVENTS		WAL_segment->wals_events
+#endif
+
+#define OneK			1024
+
+#define DEFAULT_CKPT_INTRVL	500
+#define MIN_CKPT_INTRVL		100
+#define MIN_WALBLKS		4
+#define MAX_WALBLKS		64
+
+#define MIN_WALBUFLEN		2048
+#define MAX_WALBUFLEN		64000
+
+#define DEFAULT_LOG_LENGTH	500
+#define MIN_LOG_LENGTH		100
+
+/* WAL record header */
+/* the walrec_offset field is useful for easy traversal at 
+   block level given a record offset. */
+
+typedef struct walrec_header {
+    USHORT   walrec_len;     /* length of the logrec */
+    USHORT   walrec_offset;  /* of this logrec within its block. */
+} WALREC_HDR;
+
+#define REC_HDROVHD             sizeof(WALREC_HDR)
+
+/* WAL block buffer header */
+
+typedef struct walblk_hdr {
+    USHORT   walblk_hdr_blklen;       /* Total length of the block including padded bytes */
+    USHORT   walblk_hdr_len;          /* Useful length of the block buffer */
+    SLONG    walblk_hdr_bsn;          /* Block Sequence Number of this buffer */
+    SLONG    walblk_hdr_timestamp[2]; /* When this buffer was written */
+} WALBLK_HDR;
+
+#define BLK_HDROVHD             sizeof(WALBLK_HDR)
+#define BLK_TAILOVHD            sizeof(USHORT)
+#define BLK_OVHD                (BLK_HDROVHD + BLK_TAILOVHD)
+
+
+/* WAL block, to hold the WAL records. */
+
+typedef struct walblk {
+    USHORT   walblk_number;           /* Position among all the buffers */
+    USHORT   walblk_flags;            /* Various flags, explained below */
+    USHORT   walblk_cur_offset;       /* Current offset within the buffer */
+    USHORT   walblk_roundup_offset;   /* After rounding off the cur_offset */
+    UCHAR    walblk_buf[1];           /* Actual WAL buffer, starts with WALBLK_HDR */
+} WALBLK;
+
+#define WALBLK_to_be_written    1
+#define WALBLK_checkpoint       2
+
+/* Group-commit block, to hold group_commit information. */
+
+typedef struct grp_commit {
+    SLONG    grp_commit_coordinator;	/* Process-id of the coordinator */
+    USHORT   grp_commit_size;		/* Number of processes involved */
+    int     grp_commit_event_num;	/* Event to wait on */
+} GRP_COMMIT;
+
+#define MAX_GRP_COMMITTERS      2
+
+/* Default waiting times (in seconds and microseconds) and other factors
+   for the group-commit protocol */
+
+#define GRPC_WAIT_USECS                 0
+#define GRPC_COORD_FACTOR               20
+#define GRPC_OTHER_COORD_FACTOR         20
+
+/* Log files info block, to hold pre-allocated log files and overflow
+   log information */
+
+typedef struct logf {
+    USHORT   logf_name_offset;        /* Offset within WAL segment of the name of the pre-allocated log file */
+    USHORT   logf_partitions;         /* Number of partitions */
+    SLONG    logf_max_size;           /* For rollover; if -1 use wals_max_log_length */
+    USHORT   logf_roundup_size;       /* For each write call, 0 means no roundup */
+    USHORT   logf_flags;              /* Various flags, defined below */
+    SLONG    logf_base_offset;        /* Starting offset within a raw device for the logical logfile */
+    SLONG    logf_fname_seqno;        /* To generate series of new log file names */
+} LOGF;
+
+#define LOGF_PARTITIONED 		  1
+#define LOGF_RAW 	          	  2
+
+/* WAL segment, one shared segment per database.  The variable length info
+   and WAL buffers are tagged after this structure.  */
+
+typedef struct wals {
+    USHORT   wals_version;           /* Version number of this structure */
+    USHORT   wals_dbpage_size;       /* Size of the database page */
+    SLONG    wals_length;            /* Length of the WAL segment */
+    SLONG    wals_id;                /* Time when this structure was initialized */
+    SLONG    wals_owner_id;          /* id of the owner of the database file */
+    SLONG    wals_group_id;          /* id of the group of the database file */
+    SLONG    wals_writer_pid;        /* Process id of the WAL writer */
+    MTX_T   wals_mutex [1];         /* Mutex controlling access to WAL segment */
+    EVENT_T wals_events [MAX_WALSEMS];
+    SLONG    wals_last_pid;          /* Process-id of the last process acquiring mutex */
+    USHORT   wals_num_attaches;      /* Number of processes who did attachment to WAL segment */
+    USHORT   wals_num_detaches;      /* Number of processes who did detachment from WAL segment */
+    SLONG    wals_last_err;          /* Last error code for the WAL subsystem */
+    SLONG    wals_last_bug;          /* Last bug code for the WAL subsystem */
+
+    LOGF    *wals_curr_log_info;    /* Pointer to the LOGF of the current logfile */
+    SLONG    wals_cur_log_base_offset; /* Where does the current log file actually start (on a raw device) */
+    SLONG    wals_log_partition_offset;/* Where in the logname file, this log file logically starts. */
+    SLONG    wals_max_log_length;    /* Default maximum length for a log file */
+    SLONG    wals_rollover_threshold; /* After which we should attempt to rollover from the current log file */
+    SLONG    wals_log_seqno;         /* The sequence number of this log file */
+
+    SLONG    wals_max_ckpt_intrvl;   /* Maximum checkpoint interval length in terms of log length */
+    SLONG    wals_thrshold_intrvl;   /* Threshold (some fraction of max_ckpt_intrvl) value to initiate checkpoint */
+    SLONG    wals_cur_ckpt_intrvl;   /* How many bytes written so far since the last checkpoint */
+    SLONG    wals_ckpted_log_seqno;  /* Sequence no of the log file which has the last checkpoint record */
+    SLONG    wals_ckpt_log_p_offset; /* Where in the logname, this log file logically starts. */
+    SLONG    wals_ckpted_offset;     /* Byte offset (in the log) of the last checkpoint */ 
+    SLONG    wals_saved_ckpted_offset;/* Saving place of byte offset (in the log) of the last checkpoint */ 
+
+    SLONG    wals_prev_ckpted_log_seqno;/* Sequence no of the log file which has the previous checkpoint record */
+    SLONG    wals_prev_ckpt_log_p_offset;/* Where in the logname, this log file logically starts. */
+    SLONG    wals_prev_ckpted_offset;/* Byte offset (in the log) of the previous checkpoint */ 
+    int     wals_buf_waiters;       /* Number of processes currently waiting for an empty buffer or a flush */
+    int     wals_buf_waiting_count; /* Num of times any process had to wait for an empty buffer after the last expansion of buffer blocks. */
+    SLONG    wals_buf_offset;        /* Offset in log file of the last byte put in log buffer */
+    SLONG    wals_flushed_log_seqno; /* Sequence number of the log file which was flushed last */
+    SLONG    wals_flushed_offset;    /* Offset of the last byte flushed to log file */
+
+    int     wals_grpc_wait_id;      /* Montonically increasing id for the following wait settings */
+    SLONG    wals_grpc_wait_usecs;   /* Number of micro-seconds to wait for grouping */
+    SSHORT   wals_cur_grpc_blknum;   /* Current group-commit block */
+    USHORT   wals_dummy1;
+    GRP_COMMIT  wals_grpc_blks[MAX_GRP_COMMITTERS]; /* Group-commit blocks */
+    SLONG    wals_grpc_count;        /* Number of group commits in this session */
+
+    SSHORT   wals_max_logfiles;      /* Total number of preallocated log files */
+    SSHORT   wals_cur_logfile;       /* Currently used pre-allocated log file, -1 if none used. */
+    USHORT   wals_logf_offset;       /* Offset for the info about the first pre-allocated log file. */
+    USHORT   wals_logf_size;         /* Roundup size of each logf structure in the array starting at wals_logf_offset. */
+    LOGF    wals_log_serial_file_info; /* Info about the serial log files */
+    LOGF    wals_log_ovflow_file_info; /* Info about the overflow log files */
+
+    SSHORT   wals_initial_maxbufs;   /* Total buffer blocks in the WAL segment initially */
+    SSHORT   wals_maxbufs;           /* Total buffer blocks in the WAL segment currently */
+    SSHORT   wals_curbuf;            /* Buffer collecting log records now, -1 => no buffer available */
+    SSHORT   wals_last_flushed_buf;  /* Buffer (number) flushed last by the buffer writer */
+    USHORT   wals_bufsize;           /* Size of each WAL buffer */ 
+    USHORT   wals_roundup_size;      /* To go to the next block boundary */ 
+    USHORT   wals_max_recsize;       /* Maximum allowable size of a log record */
+
+    USHORT   wals_jrn_init_data_len;    /* In the following array */
+    UCHAR    wals_jrn_init_data[MAX_JRN_INIT_DATA]; /* to store info about initializing the journal server */
+    SLONG    wals_total_IO_bytes;    /* Total number of bytes bytes written to log so far */
+    SLONG    wals_IO_count;          /* Number of WAL buffer writes so far */
+
+    SLONG    wals_acquire_count;     /* Number of WAL semaphore acquire calls in this session */
+    SLONG    wals_put_count;         /* Number of wal_put2 calls in this session */
+    SLONG    wals_commit_count;      /* Number of WAL_commit calls in this session */
+
+    USHORT   wals_blksize;           /* Size of each buffer block structure */
+    USHORT   wals_dummy2;
+    SLONG    wals_blkseqno;          /* Sequence number of the next WAL block to be written */
+    SLONG    wals_blks_offset;       /* Offset to the first buffer block. */
+    SLONG    wals_flags;             /* Various flags, explained below */    
+    SLONG    wals_flags2;            /* Various flags, explained below */    
+
+    /* The following less frequently used fields are kept together at 
+       the end to avoid unnecessary page faults while accessing the 
+       earlier fields. */
+    TEXT     wals_dbname[MAXPATHLEN];/* The database file name */
+    TEXT     wals_logname[MAXPATHLEN];/* The log file name */
+    TEXT     wals_rollover_logname_base[MAXPATHLEN];/* The log file name base for rolling over */
+    TEXT     wals_ckpt_logname[MAXPATHLEN];/* Name of the log file which has the last checkpoint record */
+    TEXT     wals_prev_ckpt_logname[MAXPATHLEN];/* Name of the log file which has the previous checkpoint record */
+    TEXT     wals_jrn_dirname[MAXPATHLEN];/* The journal server directory name */
+} *WALS;
+
+#define WALS_WRITER_INITIALIZED       1
+#define WALS_CKPT_START               2
+#define WALS_CKPT_RECORDED            4
+#define WALS_FIRST_TIME_LOG           8
+#define WALS_WRITER_INFORMED         16
+#define WALS_SHUTDOWN_WRITER         32
+#define WALS_WRITER_DONE             64
+#define WALS_GRP_COMMIT_IN_PROGRESS 128
+#define WALS_GRP_COMMIT_WAITING     256
+#define WALS_ROLLOVER_REQUIRED      512
+#define WALS_ROLLOVER_HAPPENED     1024
+#define WALS_ENABLE_JOURNAL        2048
+#define WALS_DISABLE_JOURNAL       4096
+#define WALS_JOURNAL_ENABLED       8192
+#define WALS_INFORM_CLOSE_TO_JOURNAL 16384
+#define WALS_BUG_HAPPENED          32768
+#define WALS_ERROR_HAPPENED        65536
+#define WALS_BUG_OR_ERROR_HAPPENED (WALS_BUG_HAPPENED+WALS_ERROR_HAPPENED)
+
+#define WALS2_EXPAND                   1
+#define WALS2_CANT_EXPAND              2
+#define WALS2_DEBUG_MSGS               4
+
+#define CUR_BUF WAL_segment->wals_curbuf
+#define WAL_BLOCK(n) (WALBLK*) ((UCHAR*) WAL_segment + WAL_segment->wals_blks_offset + n * WAL_segment->wals_blksize)
+
+#define CUR_LOG WAL_segment->wals_cur_logfile
+#define LOGF_INFO(n) (LOGF*) ((UCHAR*) WAL_segment + WAL_segment->wals_logf_offset + n * WAL_segment->wals_logf_size)
+#define LOGF_NAME(lf) (SCHAR*) ((UCHAR*) WAL_segment + lf->logf_name_offset)
+#define MIN_WALS_LENGTH	sizeof(struct wals)
+
+/* WAL handle, used in the API calls.  One handle per database per process. */
+
+typedef struct wal {
+    int		wal_count;	/* Number of times initialized */
+    SH_MEM_T	wal_shmem_data;
+#if (defined WIN_NT)
+    MTX_T	wal_mutex [1];	/* Mutex controlling access to WAL segment */
+    EVENT_T	wal_events [MAX_WALSEMS];
+#endif
+    SLONG	wal_pid;	/* Process (Thread) id of the current process (thread) */
+    SLONG	wal_length;	/* Length of the WAL segement */
+    SLONG	wal_id;		/* File descriptor of the mapped file or shmid for WAL_segment */
+    SLONG	wal_grpc_wait_id; /* To keep track of a change in grp commit wait time */
+    SLONG	wal_grpc_wait_usecs;
+    SLONG	wal_grpc_wait_coord_usecs;
+    SLONG	wal_grpc_wait_other_coord_usecs;
+    SLONG        wal_flushed_seqno;     /* Highest cached log sequence no. */
+    SLONG        wal_flushed_offset;    /* Hightest cached log offset */
+    USHORT	wal_flags;	/* Various flags, described below */
+    UCHAR	*wal_local_info_ptr;	/* Save some process specific info */
+    WALS	wal_segment;	/* The WAL segment */
+    TEXT	wal_dbname [MAXPATHLEN]; /* The database file name */
+} *WAL;
+
+#define WAL_SHUTDOWN_HANDLE  1
+#define WAL_CLEANUP_HANDLE   2
+    
+/* WAL file header. */
+
+typedef struct walfh {
+    USHORT   walfh_version; /* Version number of this log file header structure */
+    SLONG    walfh_wals_id; /* Id of the last shared WAL segment when this header was modified */
+    USHORT   walfh_generation; /* Generation id for this log file configuration */
+    TEXT     *walfh_dbname; /* Name of the associated database */
+    SLONG    walfh_seqno;   /* Sequence number in the series of WAL files */
+    SLONG    walfh_log_partition_offset;/* Offset for the beginning of this logical file */
+    SLONG    walfh_length;  /* Of the file when last closed */
+    SLONG    walfh_lowbsn;  /* Lowest block sequence number in this file */
+    SLONG    walfh_hibsn;   /* Highest block sequence number in this file */
+    SLONG    walfh_flags;   /* Various flags, see below */
+    SLONG    walfh_offset;  /* Offset to the first WAL block in this file */
+    SLONG    walfh_ckpt1;   /* Offset to where the second last checkpoint in this file done */
+    SLONG    walfh_ckpt2;   /* Offset to where the last checkpoint in this file done */
+    TEXT     *walfh_prev_logname;/* Name of the previous log file in sequence, if any */
+    SLONG    walfh_prev_log_partition_offset;/* Where in the logname, this file logically starts. */
+    TEXT     *walfh_next_logname;/* Name of the next log file in sequence, if any */
+    SLONG    walfh_next_log_partition_offset;/* Where in the logname, this file logically starts. */
+    SLONG    walfh_reserved1;
+    SLONG    walfh_reserved2;
+    USHORT   walfh_data_len;/* In the buffer below */
+    UCHAR    walfh_data[2]; /* Various other info about the WAL file, even out the structure length */
+} *WALFH;
+
+#define WALFH_VERSION  4
+
+#define WALFH_OPEN                        1
+#define WALFH_SERIAL                      2
+#define WALFH_PREALLOCATED                4
+#define WALFH_PARTITIONED                 8
+#define WALFH_RAW                        16
+#define WALFH_OVERFLOW                   32
+#define WALFH_KEEP_FOR_SHORT_TERM_RECV   64
+#define WALFH_KEEP_FOR_LONG_TERM_RECV   128
+#define WALFH_KEEP_FOR_RECV  (WALFH_KEEP_FOR_SHORT_TERM_RECV+WALFH_KEEP_FOR_LONG_TERM_RECV)   
+
+#define WALFH_LENGTH   2048
+
+/* Defines for storing info in walfh_data[] buffer */
+#define WALFH_end            1
+#define WALFH_dbname         2
+#define WALFH_prev_logname   3
+#define WALFH_next_logname   4
+
+
+/* Partitioned log file header */
+
+typedef struct p_logfh {
+    UCHAR    p_logfh_version1;     /* Major version number of this structure */
+    UCHAR    p_logfh_version2;     /* Minor version number of this structure */
+    SLONG    p_logfh_length;       /* Total length of the log file */
+    SSHORT   p_logfh_maxp;         /* Total number of partitions */ 
+    SLONG    p_logfh_firstp_offset;/* Offset from the beginning of the very first partition */
+    SLONG    p_logfh_sizep;        /* Size of each partition */
+    SSHORT   p_logfh_curp;         /* Most recently (currently) used partition */
+    SLONG    p_logfh_flags;        /* Various flags */
+    TEXT     p_logfh_dbname[MAXPATHLEN]; /* Name of the database being logged */
+    SLONG    p_logfh_reserved[10]; /* For later use */
+} *P_LOGFH;
+
+#define P_LOGFH_VERSION1    1
+#define P_LOGFH_VERSION     P_LOGFH_VERSION1
+#define P_LOGFH_LENGTH      2048
+
+#define PARTITION_OFFSET(p_log, p_num) (P_LOGFH_LENGTH + p_num * p_log->p_logfh_sizep)
+#define PARTITION_SIZE(loglen, nump) ((loglen - P_LOGFH_LENGTH)/nump)
+#define PARTITIONED_LOG_TOTAL_SIZE(nump, p_size) ((nump * p_size) + P_LOGFH_LENGTH)
+
+/* WAL reading handle used for reading one log files. */
+
+typedef struct walr {
+    TEXT     *walr_logname;     /* Name of the current log file */
+    SLONG    walr_log_partition_offset; /* Where this log file physically starts */
+    SLONG    walr_fd;           /* File descriptor for the current log file */
+    SLONG    walr_next_bsn;     /* Next expected block sequence number */
+    USHORT   walr_flags;        /* See below */
+    USHORT   walr_read_ahead_bytes;/* How many bytes of the next block are read ahead */
+    WALFH   walr_log_header;   /* Pointer to the header info of the current log file */
+    SLONG    walr_offset;       /* Offset of the current block in the log file */
+    SLONG    walr_rec_offset;   /* For the next log record in the buffer below */
+    WALBLK_HDR  *walr_next_blkhdr;/* Points to the header of the next block */
+    UCHAR    *walr_read_ahead_buffer; /* To read the next block */
+    WALBLK_HDR  *walr_blkhdr;  /* Block header, points to the walr_buffer below */
+    UCHAR    *walr_buffer;      /* To read blocks from the log file */
+} *WALR;
+
+#define WALR_EOF          1
+
+/* WAL reading handle, used for reading a set of log files. */
+
+typedef struct walrs {
+    TEXT     *walrs_dbname;      /* Name of the database */
+    int     walrs_max_logs;     /* Count of specified log files */ 
+    int     walrs_cur_log;      /* Index of the current logfile into the array below */ 
+    TEXT     **walrs_lognames;   /* Array of log file names */
+    SLONG    *walrs_log_partitions_offsets; /* Array of log partition offsets */
+    USHORT   walrs_flags;        /* See below */
+    SLONG    walrs_timestamp[2]; /* Filter WAL blocks upto this timestamp */
+    WALR    walrs_walr;         /* Handle for reading the current log file */
+} *WALRS;
+
+#define WALRS_TIMESTAMP           1
+#define WALRS_EOF_SCAN            2
+#define WALRS_DONT_SCAN_TAIL_LOGS 4
+
+#define BLKHDR      WALRS_handle->walrs_walr->walr_blkhdr
+#define REC_OFFSET  WALRS_handle->walrs_walr->walr_rec_offset
+    
+/* Defines for WAL parameter block */
+
+#define WAL_PARAM_END                1
+
+#define WAL_PARAM_BUF_COUNT          2
+#define WAL_PARAM_BUF_LEN            3
+
+#define WAL_PARAM_CKPT_INTRVL        4
+
+#define WAL_PARAM_SERIAL_LOG         5
+#define WAL_PARAM_RR_LOGS_COUNT      6
+#define WAL_PARAM_RR_LOGS            7
+#define WAL_PARAM_OVFLOW_LOG         8
+
+#define WAL_PARAM_GRPC_WAIT_USECS    9
+
+#define WAL_PARAM_JRN_DIRNAME       11
+#define WAL_PARAM_JRN_DATA_LEN      12
+#define WAL_PARAM_JRN_DATA          13
+
+/* Defines for creating the full name of a logfile from its base name 
+   and the sequence number */
+
+#ifdef SMALL_FILE_NAMES
+#define WAL_FNAME_SUBSCRIPT		""
+#endif
+
+#if (defined WIN_NT)
+#define WAL_FNAME_SUBSCRIPT		""
+#endif
+
+#ifndef WAL_FNAME_SUBSCRIPT
+#define WAL_FNAME_SUBSCRIPT		".log"
+#endif
+
+#define LOG_SECTOR_SIZE			512
+#define WAL_TERMINATOR_CHAR		0377
+#define WAL_TERMINATOR_BLKLEN		LOG_SECTOR_SIZE
+#define WAL_TERMINATOR(variable)	UCHAR variable [WAL_TERMINATOR_BLKLEN]
+#define WAL_TERMINATOR_SET(variable) memset (variable, (int) WAL_TERMINATOR_CHAR, sizeof (variable))
+
+#define WAL_MAPNAME_SUBSCRIPT		"walfile"
+#define WAL_MAPNAME_TEMPLATE		"%s.%s"
+#define WAL_BUILD_MAPFNAME(mapfname, dbname) sprintf(mapfname, WAL_MAPNAME_TEMPLATE, dbname, WAL_MAPNAME_SUBSCRIPT)
+
+#define WAL_DBGNAME_SUBSCRIPT		"ww.dbg"
+#define WAL_DBGNAME_TEMPLATE		"%s.%s"
+#define WAL_BUILD_DBGFNAME(dbgfname, dbname) sprintf(dbgfname, WAL_DBGNAME_TEMPLATE, dbname, WAL_DBGNAME_SUBSCRIPT)
+
+#define WAL_ERROR(status_vector, code, string) IBERR_build_status \
+        (status_vector, code, gds_arg_string, string, 0)
+
+#define WAL_ERROR_APPEND(status_vector, code, string) IBERR_append_status \
+        (status_vector, code, gds_arg_string, string, 0)
+
+#define WAL_IO_ERROR(status_vector, string, logname, operation, error) IBERR_build_status \
+        (status_vector, isc_io_error, gds_arg_string, string, \
+         gds_arg_string, logname, isc_arg_gds, operation, SYS_ERR, error, 0)
+
+#define WAL_FORMAT_ERROR(status_vector, code, logname, offset) IBERR_build_status \
+        (status_vector, code, gds_arg_string, logname, \
+         gds_arg_number, (SLONG) offset, 0)
+
+#define WAL_CHECK_BUG(WAL_handle, WAL_segment) if (WAL_segment->wals_flags & WALS_BUG_HAPPENED) \
+    {                                                                       \
+    IBERR_build_status (status_vector, gds__wal_subsys_corrupt,             \
+                        gds_arg_gds, WAL_segment->wals_last_bug, 0);        \
+    WALC_release(WAL_handle);                                               \
+    return FAILURE;                                                         \
+    }
+
+#define WAL_CHECK_BUG_ERROR(WAL_handle, WAL_segment) if (WAL_segment->wals_flags & WALS_BUG_OR_ERROR_HAPPENED) \
+    {                                                                       \
+    if (WAL_segment->wals_flags & WALS_BUG_HAPPENED)                        \
+        IBERR_build_status (status_vector, gds__wal_subsys_corrupt,         \
+                            gds_arg_gds, WAL_segment->wals_last_bug, 0);    \
+    else                                                                    \
+        IBERR_build_status (status_vector, gds__wal_subsys_error,           \
+                            gds_arg_gds, WAL_segment->wals_last_err, 0);    \
+    WALC_release(WAL_handle);                                               \
+    return FAILURE;                                                         \
+    }
+
+#define STRING_DUP(s1,s2)	{s1 = (SCHAR*) gds__alloc (strlen (s2) + 1); if (s1) strcpy (s1, s2);}
+
+#endif /* _WAL_WAL_H_ */
diff --git a/src/wal/wal_prnt.cpp b/src/wal/wal_prnt.cpp
new file mode 100644
index 0000000000..d8a39f272b
--- /dev/null
+++ b/src/wal/wal_prnt.cpp
@@ -0,0 +1,164 @@
+/*
+ *        PROGRAM:        JRD Write Ahead Log APIs
+ *        MODULE:         wal_prnt.c
+ *        DESCRIPTION:    Main routine for printing WAL segment status
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <stdlib.h>
+#include <string.h>
+#include "../wal/wal.h"
+#include "../wal/wal_proto.h"
+#include "../wal/wstat_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/isc_f_proto.h"
+
+#if (defined WIN_NT)
+#include <io.h>
+#endif
+
+#ifdef NETWARE_386
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+#include "../jrd/svc.h"
+#include "../jrd/svc_proto.h"
+#define exit(code)	{service->svc_handle = 0;                           \
+                                                                            \
+                    /* Mark service thread as finished. */                  \
+		    /* If service is detached, cleanup memory being used    \
+		       by service. */                                       \
+		    SVC_finish (service, SVC_finished);			    \
+                                                                            \
+                    return (code);}
+
+#define FPRINTF		SVC_netware_fprintf
+#endif
+
+#ifndef FPRINTF
+#define FPRINTF 	ib_fprintf
+#endif
+
+#ifdef NETWARE_386
+static SVC outfile;
+#else
+static IB_FILE *outfile;
+#endif
+
+
+
+#ifdef NETWARE_386
+
+int main_wal_print( SVC service)
+#else /* Non-Netware declaration */
+
+int CLIB_ROUTINE main( int argc, SCHAR ** argv)
+#endif
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *
+ **************************************/
+	STATUS status_vector[20];
+	WAL WAL_handle;
+	SCHAR dbname[256];
+	int ret;
+	SLONG redir_in, redir_out, redir_err;
+#ifdef NETWARE_386
+	int argc;
+	char **argv;
+#endif
+
+#ifdef NETWARE_386
+	argc = service->svc_argc;
+	argv = service->svc_argv;
+#endif
+
+#ifdef NETWARE_386
+	outfile = service;
+#else
+	outfile = ib_stdout;
+#endif
+
+/* Perform some special handling when run as an Interbase service.  The
+   first switch can be "-svc" (lower case!) or it can be "-svc_re" followed
+   by 3 file descriptors to use in re-directing ib_stdin, ib_stdout, and ib_stderr. */
+
+	if (argc > 1 && !strcmp(argv[1], "-svc")) {
+		argv++;
+		argc--;
+	}
+#ifndef NETWARE_386
+	else if (argc > 4 && !strcmp(argv[1], "-svc_re")) {
+		redir_in = atol(argv[2]);
+		redir_out = atol(argv[3]);
+		redir_err = atol(argv[4]);
+#ifdef WIN_NT
+		redir_in = _open_osfhandle(redir_in, 0);
+		redir_out = _open_osfhandle(redir_out, 0);
+		redir_err = _open_osfhandle(redir_err, 0);
+#endif
+		if (redir_in != 0)
+			if (dup2((int) redir_in, 0))
+				close((int) redir_in);
+		if (redir_out != 1)
+			if (dup2((int) redir_out, 1))
+				close((int) redir_out);
+		if (redir_err != 2)
+			if (dup2((int) redir_err, 2))
+				close((int) redir_err);
+		argv += 4;
+		argc -= 4;
+	}
+#endif
+
+	if (argc < 2) {
+		FPRINTF(outfile, "\nUsage: gds_wal_print <database_name>\n");
+		/* this message was considered for translation but left for now   */
+		/* since it is likely only to be seen by DBA's and technical type */
+		exit(FINI_ERROR);
+	}
+
+	ISC_expand_filename(argv[1], 0, dbname);
+
+	WAL_handle = NULL;
+	ret = WAL_attach(status_vector, &WAL_handle, dbname);
+	if (ret != SUCCESS) {
+#ifdef NETWARE_386
+		FPRINTF(outfile,
+				"Either no current attachment or no WAL configured for %s\n",
+				dbname);
+#else
+		gds__print_status(status_vector);
+#endif
+		exit(FINI_ERROR);
+	}
+
+	WSTATUS_dump_wal_segment(WAL_handle, FALSE, outfile);
+	WAL_fini(status_vector, &WAL_handle);
+
+	exit(FINI_OK);
+	return 0;
+}
diff --git a/src/wal/wal_proto.h b/src/wal/wal_proto.h
new file mode 100644
index 0000000000..8b45806186
--- /dev/null
+++ b/src/wal/wal_proto.h
@@ -0,0 +1,64 @@
+/*
+ *	PROGRAM:	JRD Write Ahead Log APIs
+ *	MODULE:		wal_proto.h
+ *	DESCRIPTION:	Prototype header file for wal.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _WAL_WAL_PROTO_H_
+#define _WAL_WAL_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern SSHORT	WAL_attach (STATUS *, struct wal **, SCHAR *);
+extern SSHORT	WAL_checkpoint_finish (STATUS *, struct wal *, SLONG *, SCHAR *, SLONG *, SLONG *);
+extern SSHORT	WAL_checkpoint_force (STATUS *, struct wal *, SLONG *, SCHAR *, SLONG *, SLONG *);
+extern SSHORT	WAL_checkpoint_start (STATUS *, struct wal *, SSHORT *);
+extern SSHORT	WAL_checkpoint_recorded (STATUS *, struct wal *);
+extern SSHORT	WAL_commit (STATUS *, struct wal *, UCHAR *, USHORT, SLONG *, SLONG *);
+extern void	WAL_fini (STATUS *, struct wal **);
+extern SSHORT	WAL_flush (STATUS *, struct wal *, SLONG *, SLONG *, BOOLEAN);
+extern SSHORT	WAL_init (STATUS *, struct wal **, SCHAR *, USHORT, SCHAR *, SLONG, SSHORT, SLONG, SSHORT, SCHAR *);
+extern SSHORT	WAL_journal_disable (STATUS *, struct wal *);
+extern SSHORT	WAL_journal_enable (STATUS *, struct wal *, SCHAR *, USHORT, SCHAR *);
+extern SSHORT	WAL_put (STATUS *, struct wal *, UCHAR *, USHORT, UCHAR *, USHORT, SLONG *, SLONG *);
+extern BOOLEAN	WAL_rollover_happened (STATUS *, struct wal *, SLONG *, TEXT *, SLONG *);
+extern void	WAL_rollover_recorded (struct wal *);
+extern SSHORT	WAL_set_checkpoint_length (STATUS *, struct wal *, SLONG);
+extern void	WAL_set_cleanup_flag (struct wal *);
+extern SSHORT	WAL_set_grpc_wait_time (STATUS *, struct wal *, SLONG);
+extern SSHORT	WAL_set_rollover_log (STATUS *, struct wal *, struct logfiles *);
+extern SSHORT	WAL_shutdown (STATUS *, struct wal *, SLONG *, SCHAR *, SLONG *, SLONG *, SSHORT);
+extern SSHORT	WAL_shutdown_old_writer (STATUS *, SCHAR *);
+extern SSHORT	WAL_status (STATUS *, struct wal *, SLONG *, SCHAR *, SLONG *, SLONG *, SLONG *, SCHAR *, SLONG *, SLONG *);
+
+#if (defined PC_PLATFORM && !defined NETWARE_386)
+#define WAL_attach(a,b,c)			FAILURE
+#define WAL_checkpoint_force(a,b,c,d,e,f)	FAILURE
+#define WAL_checkpoint_recorded(a,b)		FAILURE
+#define WAL_flush(a,b,c,d,e)			FAILURE
+#endif
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _WAL_WAL_PROTO_H_ */
diff --git a/src/wal/walc.cpp b/src/wal/walc.cpp
new file mode 100644
index 0000000000..a5e471d0dc
--- /dev/null
+++ b/src/wal/walc.cpp
@@ -0,0 +1,1215 @@
+/*
+ *        PROGRAM:        JRD Write Ahead Log Coordinator
+ *        MODULE:         walc.c
+ *        DESCRIPTION:    Write Ahead Log low level routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../jrd/time.h"
+#include "../jrd/jrd.h"
+#include "../jrd/isc.h"
+#include "../jrd/file_params.h"
+#include "../wal/wal.h"
+#include "../jrd/jrn.h"
+#include "../jrd/flags.h"
+#include "../jrd/isc_signal.h"
+#include "../jrd/codes.h"
+#include "../jrd/llio.h"
+#include "../wal/walc_proto.h"
+#include "../wal/walf_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/iberr_proto.h"
+#include "../jrd/isc_proto.h"
+#include "../jrd/isc_i_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/llio_proto.h"
+
+#ifdef UNIX
+#include <sys/types.h>
+#include <sys/stat.h>
+#endif
+
+#ifdef WIN_NT
+#include <process.h>
+#include <windows.h>
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT		SCHAR
+
+#define WAL_MUTEX	WAL_handle->wal_mutex
+#endif
+
+#ifdef SUPERSERVER
+#ifdef NETWARE_386
+#define getpid		GetThreadID
+#endif
+#ifdef WIN_NT
+#define getpid		GetCurrentThreadId
+#endif
+#endif
+
+#ifndef WAL_MUTEX
+#define WAL_MUTEX	WAL_segment->wals_mutex
+#endif
+
+/* Define a structure to hold WAL configuration variables */
+
+typedef struct walc {
+	TEXT *walc_dbname;
+	USHORT walc_db_page_len;
+	TEXT *walc_logname;
+	SLONG walc_log_partition_offset;
+	SSHORT walc_first_time_log;
+	SLONG walc_new_log_seqno;	/* used when first_time_log is TRUE */
+
+	SSHORT walc_maxbufs;
+	USHORT walc_bufsize;
+	USHORT walc_blksize;
+	USHORT walc_blks_offset;
+	int walc_segment_length;
+
+	SLONG walc_max_ckpt_intrvl;
+
+	LGFILE *walc_log_serial_file_info;
+	SSHORT walc_log_names_count;
+	LGFILE **walc_log_rr_files_info;
+	LGFILE *walc_log_ovflow_file_info;
+	USHORT walc_log_names_buf_len;
+	USHORT walc_log_names_offset;
+	USHORT walc_logf_size;
+	USHORT walc_logf_offset;
+
+	TEXT *walc_jrn_dirname;
+	USHORT walc_jrn_data_len;
+	UCHAR *walc_jrn_data;
+
+	SLONG walc_grpc_wait_usecs;
+
+	struct wal *walc_wal;
+	TEXT *walc_mapfile;
+} *WALC;
+
+static SSHORT check_base_name(STATUS *, TEXT *);
+static void cleanup(void *);
+static void init_group_commit_blocks(GRP_COMMIT *);
+static SSHORT setup_wal_params(STATUS *, TEXT *, USHORT, WALC, SSHORT,
+							   UCHAR *);
+static void wals_initialize(WALC, SH_MEM, int);
+
+/* these statics define a round-robin data area for storing
+   textual error messages returned to the user */
+
+static TEXT *wal_failures = NULL, *wal_failures_ptr;
+
+#define WAL_FAILURE_SPACE	2048
+
+#define statistics	stat
+
+#ifdef SHLIB_DEFS
+#define statistics	(*_libgds_stat)
+
+extern int statistics();
+#endif
+
+
+void WALC_acquire( WAL WAL_handle, WALS * address)
+{
+/**************************************
+ *
+ *	W A L C _ a c q u i r e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Acquire the WAL segment.  If it's busy, wait for it.
+ *
+ **************************************/
+	WALS WAL_segment;
+	SLONG length;
+	STATUS local_status[20];
+
+	*address = WAL_segment = WAL_handle->wal_segment;
+	ISC_inhibit();
+	if (ISC_mutex_lock(WAL_MUTEX))
+		WALC_bug(NULL, WAL_handle->wal_dbname, "WAL mutex lock failed");
+
+	if (WAL_handle->wal_shmem_data.sh_mem_length_mapped <
+		WAL_segment->wals_length) {
+		/* Somebody extended the WAL segment since we last accessed it. */
+
+		length = WAL_segment->wals_length;
+		WAL_segment = (WALS) ISC_remap_file(local_status,
+											&WAL_handle->wal_shmem_data,
+											length, TRUE);
+		if (WAL_segment == (WALS) NULL) {
+			WALC_release(WAL_handle);
+			WALC_bug(NULL, WAL_handle->wal_dbname, "WAL remap failed");
+		}
+		WAL_handle->wal_segment = *address = WAL_segment;
+		WAL_handle->wal_length = length;
+	}
+
+	WAL_segment->wals_last_pid = WAL_handle->wal_pid;
+	WAL_segment->wals_acquire_count++;
+}
+
+
+void WALC_alarm_handler( EVENT event)
+{
+/**************************************
+ *
+ *	W A L C _ a l a r m _ h a n d l e r
+ *
+ **************************************
+ *
+ * Functional description
+ *	This handler would just poke the semaphore WAL_GCOMMIT_STALL_SEM.
+ *	This is to take care of the situation when an alarm handler
+ *	expires before the wait on the samaphore starts.  This way, we can
+ *	avoid an indefinite wait when there is nobody to poke the
+ *	semaphore and the timer also expired becuase of some asynchronous
+ *	event (signal) handling.
+ *
+ **************************************/
+
+	ISC_event_post(event);
+}
+
+
+SSHORT WALC_bug( STATUS * status_vector, TEXT * dbname, TEXT * string)
+{
+/**************************************
+ *
+ *	W A L C _ b u g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disasterous WAL bug.  Issue message and abort process.
+ *
+ **************************************/
+	STATUS local_status[20];
+
+	IBERR_build_status(local_status, gds__wal_bugcheck,
+					   gds_arg_string, dbname,
+					   gds_arg_number, (SLONG) getpid(),
+					   gds_arg_string, string, 0);
+	gds__log_status(dbname, local_status);
+	gds__print_status(local_status);
+
+	if (status_vector) {
+		IBERR_build_status(status_vector, gds__bug_check,
+						   gds_arg_string, string, 0);
+		return FAILURE;
+	}
+
+	abort();
+}
+
+
+void WALC_build_dbg_filename( TEXT * dbname, TEXT * dbg_filename)
+{
+/**************************************
+ *
+ *      W A L C _ b u i l d _ d b g _ f i l e n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *      Generate the debug file name.
+ *
+ **************************************/
+
+	strcpy(dbg_filename, dbname);
+#ifdef NETWARE_386
+	ISC_strip_extension(dbg_filename);
+	strcat(dbg_filename, ".wdb");
+#else
+	strcat(dbg_filename, ".ww.dbg");
+#endif
+}
+
+
+void WALC_build_logname( TEXT * logname, TEXT * basename, SLONG seqno)
+{
+/**************************************
+ *
+ *	W A L C _ b u i l d _ l o g n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Generate a log file name.  Try to keep the file extension
+ *	to three characters.
+ *
+ **************************************/
+	static TEXT letters[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+	TEXT extension[11];
+
+	if (seqno < 1000 || seqno > 18575)
+		sprintf(extension, "%d", seqno);
+	else {
+		seqno -= 1000;
+		extension[0] = letters[seqno % 26];
+		extension[1] = letters[seqno / 26 % 26];
+		extension[2] = letters[seqno / 26 / 26];
+		extension[3] = 0;
+	}
+
+	sprintf(logname, "%s%s.%s", basename, WAL_FNAME_SUBSCRIPT, extension);
+}
+
+
+SSHORT WALC_check_writer(WAL WAL_handle)
+{
+/**************************************
+ *
+ *	W A L C _ c h e c k _ w r i t e r 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Find WAL writer process (thread).  If it is not there, return 
+ *	FAILURE, else return SUCCESS.
+ *
+ **************************************/
+	WALS WAL_segment;
+	SLONG writer_pid;
+
+/* Look for the WAL writer */
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	writer_pid = WAL_segment->wals_writer_pid;
+	WALC_release(WAL_handle);
+
+	if (!writer_pid)
+		return FAILURE;
+
+	return (ISC_check_process_existence(writer_pid, 0, FALSE) ? SUCCESS :
+			FAILURE);
+}
+
+
+void WALC_fini( STATUS * status_vector, WAL * WAL_handle)
+{
+/**************************************
+ *
+ *	W A L C _ f i n i
+ *
+ **************************************
+ *
+ * Functional description
+ *	Detach the WAL segment.  If this process (thread) did a 
+ *	WAL shutdown earlier, get rid of the WAL segment and 
+ *	the corresponding semaphores.
+ *
+ **************************************/
+	WALS WAL_segment;
+	WAL wal;
+	int flag;
+	TEXT wal_file[MAXPATHLEN];
+
+	wal = *WAL_handle;
+	if ((wal == NULL) || ((--wal->wal_count) > 0))
+		return;
+
+	wal->wal_count = 0;
+	WAL_segment = wal->wal_segment;
+
+	if (WAL_segment) {
+		WAL_segment->wals_num_attaches--;
+		flag = (wal->wal_flags & WAL_SHUTDOWN_HANDLE) ? ISC_SEM_REMOVE : 0;
+#ifdef MMAP_SUPPORTED
+		if (wal->wal_flags & WAL_CLEANUP_HANDLE)
+			flag |= ISC_MEM_REMOVE;
+#else
+		if (wal->wal_flags & WAL_SHUTDOWN_HANDLE)
+			flag |= ISC_MEM_REMOVE;
+#endif
+		ISC_unmap_file(status_vector, &wal->wal_shmem_data, flag);
+		if (wal->wal_flags & WAL_CLEANUP_HANDLE) {
+			WAL_BUILD_MAPFNAME(wal_file, wal->wal_dbname);
+			unlink(wal_file);
+			WALC_build_dbg_filename(wal->wal_dbname, wal_file);
+			unlink(wal_file);
+		}
+	}
+
+	gds__free((SLONG *) * WAL_handle);
+	*WAL_handle = NULL;
+}
+
+
+SSHORT WALC_init(STATUS * status_vector,
+				 WAL * WAL_handle,
+				 TEXT * dbname,
+				 USHORT db_page_len,
+				 TEXT * logname,
+				 SLONG log_partition_offset,
+				 SSHORT first_time_log,
+				 SLONG new_log_seqno,
+				 SSHORT wpb_length, UCHAR * wpb, USHORT first_attach)
+{
+/**************************************
+ *
+ *	W A L C _ i n i t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize Write Ahead Log segment for the database.
+ *	Initialize WAL_handle for the process (thread).
+ *
+ *	If first_time_log is TRUE then use the new_log_seqno
+ *	as the starting sequence number for the set of new log
+ *	files.
+ *
+ *	Return SUCCESS if initialization succeeds else return FAILURE.
+ *
+ **************************************/
+	TEXT wal_mapfile[MAXPATHLEN];
+	struct walc wal_args;
+	SLONG length;
+	WALS WAL_segment;
+	WAL wal;
+	void (*wal_init_routine) ();
+	EVENT event, shared_event;
+	SSHORT i;
+
+	if (*WAL_handle != NULL) {
+		/* We are already initialized.  Just increment the use count. */
+
+		(*WAL_handle)->wal_count++;
+		return SUCCESS;
+	}
+
+/* Construct a wal filename of the form  "<database_name>.walfile" */
+
+	WAL_BUILD_MAPFNAME(wal_mapfile, dbname);
+
+	wal_args.walc_dbname = dbname;
+	wal_args.walc_db_page_len = db_page_len;
+	wal_args.walc_logname = logname;
+	wal_args.walc_log_partition_offset = log_partition_offset;
+	wal_args.walc_first_time_log = first_time_log;
+	wal_args.walc_new_log_seqno = new_log_seqno;
+	wal_args.walc_mapfile = wal_mapfile;
+
+	if (first_attach) {
+		/* Now parse WAL paramater block (wpb) */
+
+		if (setup_wal_params(status_vector, dbname, db_page_len, &wal_args,
+							 wpb_length, wpb) != SUCCESS) {
+			WALC_save_status_strings(status_vector);
+			return FAILURE;
+		}
+		length = wal_args.walc_segment_length;
+		wal_init_routine = reinterpret_cast < void (*) () > (wals_initialize);
+	}
+	else {
+		length = 0;
+		wal_init_routine = NULL;
+	}
+
+	wal = wal_args.walc_wal = (WAL) gds__alloc(sizeof(struct wal));
+/* NOMEM: return error status, FREE: error returns & WAL_fini() */
+	if (!wal) {
+		status_vector[0] = gds_arg_gds;
+		status_vector[1] = gds__virmemexh;
+		status_vector[2] = gds_arg_end;
+		return FAILURE;
+	}
+
+#if (defined UNIX || defined NETWARE_386)
+	wal->wal_shmem_data.sh_mem_semaphores = MAX_WALSEMS;
+#endif
+	if ((WAL_segment = (WALS) ISC_map_file(status_vector, wal_mapfile,
+										   wal_init_routine,
+										   (void *) &wal_args, length,
+										   &wal->wal_shmem_data)) == NULL) {
+		WAL_ERROR_APPEND(status_vector, gds__wal_illegal_attach, dbname);
+		WALC_save_status_strings(status_vector);
+		gds__free((SLONG *) wal);
+		return FAILURE;
+	}
+
+	if (WAL_segment->wals_version != WALS_VERSION) {
+		WALC_bug(status_vector, dbname,
+				 "Inconsistent WAL segment version number");
+		WALC_save_status_strings(status_vector);
+		gds__free((SLONG *) wal);
+		return FAILURE;
+	}
+
+#if (defined WIN_NT)
+/* For Windows/NT and OS/2, mutex_init needs to be done for every
+   process; for UNIX, it happens once in wals_initialize(). */
+
+	if (ISC_mutex_init(wal->wal_mutex, wal_mapfile))
+		WALC_bug(NULL, dbname, "WAL mutex init failed");
+
+	if (!wal_init_routine) {
+		/* If there wasn't an initialize routine then events haven't
+		   been initialized. */
+
+		event = wal->wal_events + 1;
+		shared_event = WAL_segment->wals_events + 1;
+		for (i = 1; i < MAX_WALSEMS; event++, shared_event++, i++)
+			ISC_event_init_shared(event, WAL_SIGNALS + i, wal_mapfile,
+								  shared_event, FALSE);
+	}
+#endif
+
+	WAL_segment->wals_num_attaches++;
+
+	wal->wal_count = 1;
+	wal->wal_pid = getpid();
+#if (defined NETWARE_386)
+	wal->wal_id = (SLONG) wal->wal_shmem_data.sh_mem_address;
+#else
+	wal->wal_id = (SLONG) wal->wal_shmem_data.sh_mem_handle;
+#endif
+	wal->wal_grpc_wait_id = -1;
+	wal->wal_flags = 0;
+	wal->wal_local_info_ptr = NULL;
+	wal->wal_segment = WAL_segment;
+	strcpy(wal->wal_dbname, dbname);
+
+	*WAL_handle = wal;
+
+	return SUCCESS;
+}
+
+
+void WALC_release( WAL WAL_handle)
+{
+/**************************************
+ *
+ *	W A L C _ r e l e a s e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Release the mapped WAL lock file. 
+ *
+ **************************************/
+	WALS WAL_segment;
+
+	WAL_segment = WAL_handle->wal_segment;
+	WAL_segment->wals_last_pid = 0;
+	if (ISC_mutex_unlock(WAL_MUTEX)) {
+		WALC_bug(NULL, WAL_handle->wal_dbname, "WAL mutex unlock failed");
+	}
+	ISC_enable();
+}
+
+
+void WALC_save_status_strings( STATUS * vector)
+{
+/**************************************
+ *
+ *	W A L C _ s a v e _ s t a t u s _ s t r i n g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Strings in status vectors may be stored in stack variables
+ *	or memory pools that are transient.  To perserve the information,
+ *	copy any included strings to a special buffer.
+ *
+ **************************************/
+	TEXT *p;
+	STATUS status;
+	USHORT l;
+
+/* allocate space for failure strings if it hasn't already been allocated */
+
+	if (!wal_failures) {
+		wal_failures_ptr = wal_failures =
+			(TEXT *) gds__alloc((SLONG) WAL_FAILURE_SPACE);
+		/* NOMEM: don't try to copy the status strings, FREE: by cleanup() handler */
+		if (!wal_failures)
+			return;
+		gds__register_cleanup(cleanup, 0);
+	}
+
+	while (*vector) {
+		switch (status = *vector++) {
+		case gds_arg_cstring:
+			l = *vector++;
+
+		case gds_arg_interpreted:
+		case gds_arg_string:
+			p = (TEXT *) * vector;
+			if (status != gds_arg_cstring)
+				l = strlen(p) + 1;
+
+			/* If there isn't any more room in the buffer,
+			   start at the beginning again */
+
+			if (wal_failures_ptr + l > wal_failures + WAL_FAILURE_SPACE)
+				wal_failures_ptr = wal_failures;
+			*vector++ = (STATUS) wal_failures_ptr;
+			while (l--)
+				*wal_failures_ptr++ = *p++;
+			break;
+
+		default:
+			++vector;
+			break;
+		}
+	}
+}
+
+
+void WALC_setup_buffer_block( WALS WAL_segment, WALBLK * wblk, SSHORT ckpt)
+{
+/**************************************
+ *
+ *       W A L C _ s e t u p _ b u f f e r _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *      Mark the passed buffer as ready to be written.
+ *      If 'ckpt' flag is TRUE then this buffer finishes a checkpoint.
+ *      Assumes that acquire() has been done, before calling this routine.
+ *
+ ***************************************/
+	USHORT padding_bytes;
+
+/* Add extra bytes for the trailing length word.  The block header
+   and trailing block length will be initialized by the WAL writer.
+   Add padding bytes to round-up the block size to the next block
+   boundry, if applicable. */
+
+	wblk->walblk_roundup_offset = wblk->walblk_cur_offset + BLK_TAILOVHD;
+	if (WAL_segment->wals_roundup_size) {
+		padding_bytes = WAL_segment->wals_roundup_size -
+			((int) wblk->walblk_roundup_offset %
+			 (int) WAL_segment->wals_roundup_size);
+
+		wblk->walblk_roundup_offset +=
+			(USHORT) ((int) padding_bytes %
+					  (int) WAL_segment->wals_roundup_size);
+	}
+
+	WAL_segment->wals_buf_offset +=
+		(wblk->walblk_roundup_offset - wblk->walblk_cur_offset);
+	wblk->walblk_flags |= WALBLK_to_be_written;
+	if (ckpt)
+		wblk->walblk_flags |= WALBLK_checkpoint;
+}
+
+
+static SSHORT check_base_name( STATUS * status_vector, TEXT * base_name)
+{
+/**************************************
+ *
+ *	c h e c k _ b a s e _ n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Try to create or open a file with the 
+ *	given base name.  Return SUCCESS or FAILURE.
+ *
+ **************************************/
+	TEXT dummy_fname[MAXPATHLEN];
+	SLONG fd;
+
+/* First create a dummy log name with the given base name */
+
+	WALC_build_logname(dummy_fname, base_name, (SLONG) 1);
+
+/* Try to create a new file.  Delete it if we're successful. */
+
+	if (LLIO_open(status_vector, dummy_fname, LLIO_OPEN_NEW_RW, TRUE, &fd) ==
+		SUCCESS) {
+		LLIO_close(status_vector, fd);
+		unlink(dummy_fname);
+		return SUCCESS;
+	}
+
+/* Try to open an existing file */
+
+	if (LLIO_open
+		(status_vector, dummy_fname, LLIO_OPEN_EXISTING_RW, TRUE,
+		 &fd) == SUCCESS) {
+		LLIO_close(status_vector, fd);
+		return SUCCESS;
+	}
+
+	return FAILURE;
+}
+
+
+static void cleanup( void *arg)
+{
+/**************************************
+ *
+ *	c l e a n u p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Exit handler to cleanup dynamically allocated memory.
+ *
+ **************************************/
+
+	if (wal_failures)
+		gds__free((SLONG *) wal_failures);
+
+	wal_failures = NULL;
+}
+
+
+static void init_group_commit_blocks( GRP_COMMIT * grpc_blks)
+{
+/**************************************
+ *
+ *	i n i t _ g r o u p _ c o m m i t _ b l o c k s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the group commit blocks of the WAL segment.
+ *
+ **************************************/
+	USHORT i;
+	int snum;
+
+	for (i = 0, snum = WAL_GCOMMIT_WAIT1_SEM; i < MAX_GRP_COMMITTERS;
+		 i++, snum++) {
+		grpc_blks[i].grp_commit_coordinator = 0L;
+		grpc_blks[i].grp_commit_size = 0;
+		grpc_blks[i].grp_commit_event_num = snum;
+	}
+}
+
+
+static SSHORT setup_wal_params(
+							   STATUS * status_vector,
+							   TEXT * dbname,
+							   USHORT db_page_len,
+							   WALC wal_args, SSHORT wpb_length, UCHAR * wpb)
+ {
+/**************************************
+ *
+ *	s e t u p _ w a l _ p a r a m s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Parse the WAL parameter block and setup the WAL 
+ *	attributes like size and number of WAL buffers.
+ *
+ **************************************/
+	SSHORT buf_count;
+	USHORT buf_size;
+	SLONG ckpt_intrvl;
+	UCHAR *p, *q;
+	int i, j;
+	BOOLEAN done;
+	LGFILE *log_file;
+	TEXT err_buffer[16];
+
+/* First setup the default values */
+
+	wal_args->walc_maxbufs = MIN_WALBLKS;
+	wal_args->walc_bufsize =
+		(USHORT) MIN(MAX_WALBUFLEN, 4 * (int) db_page_len);
+
+	wal_args->walc_max_ckpt_intrvl = DEFAULT_CKPT_INTRVL * OneK;
+
+	wal_args->walc_log_names_count = 0;
+	wal_args->walc_log_serial_file_info = NULL;
+	wal_args->walc_log_rr_files_info = NULL;
+	wal_args->walc_log_ovflow_file_info = NULL;
+	wal_args->walc_log_names_buf_len = 0;
+
+	wal_args->walc_jrn_dirname = NULL;
+	wal_args->walc_jrn_data_len = 0;
+
+	wal_args->walc_grpc_wait_usecs = GRPC_WAIT_USECS;
+
+	buf_count = 0;
+	buf_size = 0;
+	ckpt_intrvl = 0L;
+
+
+/* Now see if wal parameter block specifies any parameters */
+
+	done = FALSE;
+	if ((p = wpb) == NULL)
+		done = TRUE;			/* Nothing to parse from the wal paramater block */
+
+	q = p + wpb_length;
+	while (!done && (p < q)) {
+		switch (*p++) {
+		case WAL_PARAM_BUF_COUNT:
+			memcpy((SCHAR *) & buf_count, p, sizeof(USHORT));
+			p += sizeof(USHORT);
+			break;
+
+		case WAL_PARAM_BUF_LEN:
+			memcpy((SCHAR *) & buf_size, p, sizeof(USHORT));
+			p += sizeof(USHORT);
+			break;
+
+		case WAL_PARAM_CKPT_INTRVL:
+			memcpy((SCHAR *) & ckpt_intrvl, p, sizeof(SLONG));
+			p += sizeof(SLONG);
+			break;
+
+		case WAL_PARAM_SERIAL_LOG:
+			memcpy((UCHAR *) & wal_args->walc_log_serial_file_info, p,
+				   sizeof(UCHAR *));
+			p += sizeof(UCHAR *);
+			break;
+
+		case WAL_PARAM_RR_LOGS_COUNT:
+			memcpy((SCHAR *) & wal_args->walc_log_names_count, p,
+				   sizeof(USHORT));
+			p += sizeof(USHORT);
+			break;
+
+		case WAL_PARAM_RR_LOGS:
+			memcpy((UCHAR *) & wal_args->walc_log_rr_files_info, p,
+				   sizeof(UCHAR *));
+			p += sizeof(UCHAR *);
+			break;
+
+		case WAL_PARAM_OVFLOW_LOG:
+			memcpy((UCHAR *) & wal_args->walc_log_ovflow_file_info, p,
+				   sizeof(UCHAR *));
+			p += sizeof(UCHAR *);
+			break;
+
+		case WAL_PARAM_GRPC_WAIT_USECS:
+			memcpy((SCHAR *) & wal_args->walc_grpc_wait_usecs, p,
+				   sizeof(wal_args->walc_grpc_wait_usecs));
+			p += sizeof(wal_args->walc_grpc_wait_usecs);
+			break;
+
+		case WAL_PARAM_JRN_DIRNAME:
+			wal_args->walc_jrn_dirname = (TEXT *) p;
+			p += (strlen(wal_args->walc_jrn_dirname) + 1);
+			break;
+
+		case WAL_PARAM_JRN_DATA_LEN:
+			memcpy((SCHAR *) & wal_args->walc_jrn_data_len, p,
+				   sizeof(USHORT));
+			p += sizeof(USHORT);
+			break;
+
+		case WAL_PARAM_JRN_DATA:
+			memcpy((SCHAR *) & wal_args->walc_jrn_data_len, p,
+				   sizeof(USHORT));
+			p += sizeof(USHORT);
+			wal_args->walc_jrn_data = p;
+			p += wal_args->walc_jrn_data_len;
+			break;
+
+		case WAL_PARAM_END:
+			done = TRUE;
+			break;
+
+		default:
+			sprintf(err_buffer, "%d", (int) *(p - 1));
+			WAL_ERROR(status_vector, gds__wal_invalid_wpb, err_buffer);
+			WALC_save_status_strings(status_vector);
+			return FAILURE;
+		}
+	}
+
+/* Now update the default values by the supplied parameter values, if any. */
+
+	if (buf_count)
+		wal_args->walc_maxbufs =
+			MIN(MAX_WALBLKS, MAX(MIN_WALBLKS, buf_count));
+	if (buf_size)
+		/* Should be adjusted for roundup in case of using raw device -- Damodar */
+		wal_args->walc_bufsize =
+			(USHORT) MIN(MAX_WALBUFLEN,
+						 MAX(wal_args->walc_bufsize, buf_size));
+
+	if (ckpt_intrvl)
+		wal_args->walc_max_ckpt_intrvl =
+			MAX(ckpt_intrvl * OneK, MIN_CKPT_INTRVL * OneK);
+
+/* Process serial log specification.  */
+	if (log_file = wal_args->walc_log_serial_file_info) {
+		/* Make sure that base path name is valid */
+
+		if (wal_args->walc_first_time_log &&
+			(check_base_name(status_vector, log_file->lg_name) != SUCCESS)) {
+			WALC_save_status_strings(status_vector);
+			return FAILURE;
+		}
+
+		wal_args->walc_log_names_buf_len += strlen(log_file->lg_name) + 1;
+
+		/* User specifies log size in units of 1K bytes. */
+
+		log_file->lg_size =
+			MAX(log_file->lg_size * OneK, MIN_LOG_LENGTH * OneK);
+	}
+
+/* Process overflow log specification. */
+
+	if (log_file = wal_args->walc_log_ovflow_file_info) {
+		/* Make sure that base path name is valid */
+
+		if (wal_args->walc_first_time_log &&
+			(check_base_name(status_vector, log_file->lg_name) != SUCCESS)) {
+			WALC_save_status_strings(status_vector);
+			return FAILURE;
+		}
+
+		wal_args->walc_log_names_buf_len += strlen(log_file->lg_name) + 1;
+
+		/* User specifies log size in units of 1K bytes. */
+
+		log_file->lg_size =
+			MAX(log_file->lg_size * OneK, MIN_LOG_LENGTH * OneK);
+	}
+
+/* Process round-robin logs specifications. */
+
+	if (wal_args->walc_log_names_count && wal_args->walc_log_rr_files_info) {
+		/* First make sure that an overflow log file specification is provided */
+		if (!wal_args->walc_log_ovflow_file_info) {
+			IBERR_build_status(status_vector, gds__wal_ovflow_log_required,
+							   0);
+			return FAILURE;
+		}
+
+		for (i = 0; i < wal_args->walc_log_names_count; i++) {
+			log_file = wal_args->walc_log_rr_files_info[i];
+			wal_args->walc_log_names_buf_len += strlen(log_file->lg_name) + 1;
+
+			/* User specifies log size in units of 1K bytes. */
+
+			log_file->lg_size =
+				MAX(log_file->lg_size * OneK, MIN_LOG_LENGTH * OneK);
+			if (wal_args->walc_first_time_log) {
+				/* Pre-allocate a non-raw log file */
+				if (log_file->lg_flags & LOG_raw)
+					continue;
+				if (WALF_init_p_log(status_vector, dbname, log_file->lg_name,
+									log_file->lg_size,
+									log_file->lg_partitions) != SUCCESS) {
+					WALC_save_status_strings(status_vector);
+
+					/* Remove the allocated files so far */
+
+					for (j = 0; j < i; j++) {
+						log_file = wal_args->walc_log_rr_files_info[j];
+						if (!(log_file->lg_flags & LOG_raw))
+							unlink(log_file->lg_name);
+					}
+					return FAILURE;
+				}
+			}
+		}
+	}
+
+	wal_args->walc_log_names_offset = ROUNDUP_LONG(sizeof(struct wals));
+
+	wal_args->walc_logf_size = ROUNDUP_LONG(sizeof(struct logf));
+	wal_args->walc_logf_offset = wal_args->walc_log_names_offset +
+		ROUNDUP_LONG(wal_args->walc_log_names_buf_len);
+
+	wal_args->walc_blksize = ROUNDUP_LONG(sizeof(WALBLK) +
+										  wal_args->walc_bufsize);
+	wal_args->walc_blks_offset = wal_args->walc_logf_offset +
+		(wal_args->walc_logf_size * wal_args->walc_log_names_count);
+
+	wal_args->walc_segment_length = wal_args->walc_blks_offset +
+		wal_args->walc_maxbufs * wal_args->walc_blksize;
+
+	return SUCCESS;
+}
+
+
+static void wals_initialize( WALC wal_args, SH_MEM shmem_data, int initialize)
+{
+/**************************************
+ *
+ *	w a l s _ i n i t i a l i z e
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the WAL segment.  The caller is assumed
+ *	to have an exclusive lock on the WAL file.
+ *
+ **************************************/
+	WALS WAL_segment;
+	SSHORT maxbufs;
+	SSHORT i;
+	WALBLK *wblk;
+	LOGF *logf;
+	UCHAR *p, *q;
+	LGFILE *log_file;
+	EVENT event, shared_event;
+#ifdef UNIX
+	struct stat buf;
+#endif
+
+	WAL_segment = (WALS) shmem_data->sh_mem_address;
+
+#if (defined WIN_NT)
+	event = wal_args->walc_wal->wal_events + 1;
+	shared_event = WAL_segment->wals_events + 1;
+	for (i = 1; i < MAX_WALSEMS; event++, shared_event++, i++)
+		ISC_event_init_shared(event, WAL_SIGNALS + i, wal_args->walc_mapfile,
+							  shared_event, (initialize) ? TRUE : FALSE);
+#endif
+
+	if (!initialize)
+		return;
+
+	if (shmem_data->sh_mem_length_mapped < wal_args->walc_segment_length)
+		WALC_bug(NULL, wal_args->walc_dbname,
+				 "Insufficient WAL segment length");
+
+	WAL_segment->wals_version = WALS_VERSION;
+	WAL_segment->wals_dbpage_size = wal_args->walc_db_page_len;
+	WAL_segment->wals_length = shmem_data->sh_mem_length_mapped;
+	WAL_segment->wals_id = time(NULL);	/* Time when this structure was initialized */
+
+#ifdef UNIX
+	if (statistics(wal_args->walc_dbname, &buf) == -1)
+		WALC_bug(NULL, wal_args->walc_dbname, "stat() call failed");
+	WAL_segment->wals_owner_id = buf.st_uid;
+	WAL_segment->wals_group_id = buf.st_gid;
+#else
+	WAL_segment->wals_owner_id = 0;
+	WAL_segment->wals_group_id = 0;
+#endif
+
+	WAL_segment->wals_writer_pid = 0;
+
+#if !(defined WIN_NT)
+	if (ISC_mutex_init(WAL_MUTEX, shmem_data->sh_mem_mutex_arg))
+		WALC_bug(NULL, wal_args->walc_dbname, "WAL mutex init failed");
+#endif
+
+	WAL_segment->wals_last_pid = getpid();
+	WAL_segment->wals_num_attaches = 0;
+	WAL_segment->wals_num_detaches = 0;
+	WAL_segment->wals_last_err = 0;
+	WAL_segment->wals_last_bug = 0;
+
+	strcpy(WAL_segment->wals_dbname, wal_args->walc_dbname);
+	WAL_segment->wals_dbpage_size = wal_args->walc_db_page_len;
+	strcpy(WAL_segment->wals_logname, wal_args->walc_logname);
+	WAL_segment->wals_cur_log_base_offset = 0L;
+	WAL_segment->wals_log_partition_offset =
+		wal_args->walc_log_partition_offset;
+	WAL_segment->wals_max_log_length = DEFAULT_LOG_LENGTH * OneK;
+	WAL_segment->wals_rollover_threshold = WAL_segment->wals_max_log_length;
+	WAL_segment->wals_log_seqno = wal_args->walc_new_log_seqno - 1;
+	/* will be properly used and inititalized by the WAL writer */
+
+/* Now setup the checkpointing info */
+
+	WAL_segment->wals_max_ckpt_intrvl = wal_args->walc_max_ckpt_intrvl;
+	WAL_segment->wals_thrshold_intrvl =
+		WAL_segment->wals_max_ckpt_intrvl * 0.8;
+	WAL_segment->wals_cur_ckpt_intrvl = 0L;
+	WAL_segment->wals_ckpted_log_seqno = 0L;
+	WAL_segment->wals_ckpt_log_p_offset = 0L;
+	strcpy(WAL_segment->wals_ckpt_logname, "");
+	WAL_segment->wals_ckpted_offset = 0L;
+	WAL_segment->wals_saved_ckpted_offset = 0L;
+
+	WAL_segment->wals_buf_waiters = 0;
+	WAL_segment->wals_buf_waiting_count = 0;
+	WAL_segment->wals_buf_offset = WAL_segment->wals_flushed_offset = 0L;
+	WAL_segment->wals_flushed_log_seqno = 0L;
+
+/* Now setup group-commit info */
+
+	WAL_segment->wals_grpc_wait_id = 1;
+	WAL_segment->wals_grpc_wait_usecs = wal_args->walc_grpc_wait_usecs;
+	WAL_segment->wals_cur_grpc_blknum = 0;
+	WAL_segment->wals_dummy1 = 0;
+#if !(defined WIN_NT)
+	for (i = 1; i < MAX_WALSEMS; i++)
+		ISC_event_init(&WAL_segment->wals_events[i],
+					   shmem_data->sh_mem_mutex_arg, i);
+#endif
+	init_group_commit_blocks(WAL_segment->wals_grpc_blks);
+	WAL_segment->wals_grpc_count = 0;
+
+	WAL_segment->wals_max_logfiles = wal_args->walc_log_names_count;
+	WAL_segment->wals_cur_logfile = -1;
+	q = (UCHAR *) WAL_segment + wal_args->walc_log_names_offset;
+	WAL_segment->wals_logf_offset = wal_args->walc_logf_offset;
+	WAL_segment->wals_logf_size = wal_args->walc_logf_size;
+
+/* Now setup the serial log file info */
+
+	logf = &WAL_segment->wals_log_serial_file_info;
+	if (log_file = wal_args->walc_log_serial_file_info) {
+		p = (UCHAR *) log_file->lg_name;
+		strcpy(reinterpret_cast < char *>(q),
+			   reinterpret_cast < const char *>(p));
+		logf->logf_name_offset = q - (UCHAR *) WAL_segment;
+		logf->logf_max_size = log_file->lg_size;
+		logf->logf_roundup_size = 0;
+		logf->logf_flags = 0;
+		logf->logf_base_offset = 0L;
+		logf->logf_fname_seqno = 0L;
+		if (log_file->lg_flags & LOG_raw) {
+			logf->logf_roundup_size = 512;
+			logf->logf_flags |= LOGF_RAW;
+		}
+		q += strlen(reinterpret_cast < const char *>(p)) + 1;
+	}
+	else {
+		/* Set some default values */
+
+		logf->logf_name_offset = 0;
+		logf->logf_max_size = WAL_segment->wals_max_log_length;
+		logf->logf_roundup_size = 0;
+		logf->logf_flags = 0;
+		logf->logf_base_offset = 0L;
+		logf->logf_fname_seqno = 0L;
+	}
+
+/* Now setup the pre-allocated round-robin log files info */
+
+	if (wal_args->walc_log_names_count) {
+		for (i = 0; i < wal_args->walc_log_names_count; i++) {
+			log_file = wal_args->walc_log_rr_files_info[i];
+			p = (UCHAR *) log_file->lg_name;
+			strcpy(reinterpret_cast < char *>(q),
+				   reinterpret_cast < const char *>(p));
+			logf = LOGF_INFO(i);
+			logf->logf_name_offset = q - (UCHAR *) WAL_segment;
+			logf->logf_partitions = log_file->lg_partitions;
+			logf->logf_max_size = log_file->lg_size;
+			logf->logf_roundup_size = 0;
+			logf->logf_flags = 0;
+			logf->logf_base_offset = 0L;
+			logf->logf_fname_seqno = 0L;
+			if (log_file->lg_partitions > 1) {
+				logf->logf_max_size = PARTITION_SIZE(logf->logf_max_size,
+													 log_file->lg_partitions);
+				logf->logf_flags |= LOGF_PARTITIONED;
+			}
+			if (log_file->lg_flags & LOG_raw) {
+				logf->logf_roundup_size = 512;
+				logf->logf_flags |= LOGF_RAW;
+				logf->logf_max_size = (logf->logf_max_size & ~((SLONG) 511));
+			}
+			q += strlen(reinterpret_cast < const char *>(p)) + 1;
+		}
+	}
+
+/* Now setup the overflow log file info */
+
+	logf = &WAL_segment->wals_log_ovflow_file_info;
+	if (log_file = wal_args->walc_log_ovflow_file_info) {
+		p = (UCHAR *) log_file->lg_name;
+		strcpy(reinterpret_cast < char *>(q),
+			   reinterpret_cast < const char *>(p));
+		logf->logf_name_offset = q - (UCHAR *) WAL_segment;
+		logf->logf_max_size = log_file->lg_size;
+		logf->logf_roundup_size = 0;
+		logf->logf_flags = 0;
+		logf->logf_base_offset = 0L;
+		logf->logf_fname_seqno = 0L;
+		if (log_file->lg_flags & LOG_raw) {
+			logf->logf_roundup_size = 512;
+			logf->logf_flags |= LOGF_RAW;
+		}
+	}
+	else {
+		/* Set some default values */
+
+		logf->logf_name_offset = 0;
+		logf->logf_max_size = WAL_segment->wals_max_log_length;
+		logf->logf_roundup_size = 0;
+		logf->logf_flags = 0;
+		logf->logf_base_offset = 0L;
+		logf->logf_fname_seqno = 0L;
+	}
+
+/* Now setup the WAL buffers info */
+
+	WAL_segment->wals_initial_maxbufs =
+		WAL_segment->wals_maxbufs = maxbufs = wal_args->walc_maxbufs;
+	WAL_segment->wals_curbuf = 0;	/* CUR_BUF */
+	WAL_segment->wals_last_flushed_buf = -1;	/* No buffer flushed so far */
+	WAL_segment->wals_bufsize = wal_args->walc_bufsize;
+	WAL_segment->wals_roundup_size = 0;	/* Default - no roundup */
+
+/* Set the maximum allowable size of a log record.  It must be fully 
+   acccomdable in one WAL buffer.  Set here to avoid repeated 
+   recalculations later on. */
+
+	WAL_segment->wals_max_recsize =
+		wal_args->walc_bufsize - BLK_OVHD - REC_HDROVHD;
+
+/* Now setup the long-term journalling info */
+
+	if (wal_args->walc_jrn_dirname == NULL) {
+		strcpy(WAL_segment->wals_jrn_dirname, "");
+		WAL_segment->wals_jrn_init_data_len = 0;
+	}
+	else {
+		strcpy(WAL_segment->wals_jrn_dirname, wal_args->walc_jrn_dirname);
+		WAL_segment->wals_jrn_init_data_len = wal_args->walc_jrn_data_len;
+		memcpy(WAL_segment->wals_jrn_init_data, wal_args->walc_jrn_data,
+			   WAL_segment->wals_jrn_init_data_len);
+	}
+
+	WAL_segment->wals_total_IO_bytes = 0L;
+	WAL_segment->wals_IO_count = 0L;
+
+	WAL_segment->wals_acquire_count = 0L;
+	WAL_segment->wals_put_count = 0L;
+	WAL_segment->wals_commit_count = 0L;
+
+	WAL_segment->wals_blksize = wal_args->walc_blksize;
+	WAL_segment->wals_dummy2 = 0;
+	WAL_segment->wals_blkseqno = 1L;
+	WAL_segment->wals_blks_offset = wal_args->walc_blks_offset;
+	WAL_segment->wals_flags = 0L;
+	WAL_segment->wals_flags2 = 0L;
+	if (wal_args->walc_first_time_log)
+		WAL_segment->wals_flags |= WALS_FIRST_TIME_LOG;
+
+	for (i = 0; i < maxbufs; i++) {
+		wblk = WAL_BLOCK(i);
+		wblk->walblk_number = i;
+		wblk->walblk_flags = 0;
+		wblk->walblk_roundup_offset = 0;
+		wblk->walblk_cur_offset = 0;
+	}
+
+	return;
+}
diff --git a/src/wal/walc_proto.h b/src/wal/walc_proto.h
new file mode 100644
index 0000000000..384ea7e9e2
--- /dev/null
+++ b/src/wal/walc_proto.h
@@ -0,0 +1,39 @@
+/*
+ *	PROGRAM:	JRD Write Ahead LOG APIs 
+ *	MODULE:		walc_proto.h
+ *	DESCRIPTION:	Prototype header file for walc.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _WAL_WALC_PROTO_H_
+#define _WAL_WALC_PROTO_H_
+
+extern void	WALC_acquire (struct wal *, struct wals **);
+extern void	WALC_alarm_handler (struct event *);
+extern SSHORT	WALC_bug (STATUS *, TEXT *, TEXT *);
+extern void	WALC_build_dbg_filename (TEXT *, TEXT *);
+extern void	WALC_build_logname (TEXT *, TEXT *, SLONG);
+extern SSHORT	WALC_check_writer (struct wal *);
+extern void	WALC_fini (STATUS *, struct wal **);
+extern SSHORT	WALC_init (STATUS *, struct wal **, TEXT *, USHORT, TEXT *, SLONG, SSHORT, SLONG, SSHORT, UCHAR *, USHORT);
+extern void	WALC_release (struct wal *);
+extern void	WALC_save_status_strings (STATUS *);
+extern void	WALC_setup_buffer_block (struct wals *, struct walblk *, SSHORT);
+
+#endif	/* _WAL_WALC_PROTO_H_ */
diff --git a/src/wal/walf.cpp b/src/wal/walf.cpp
new file mode 100644
index 0000000000..cbdb081c68
--- /dev/null
+++ b/src/wal/walf.cpp
@@ -0,0 +1,908 @@
+/*
+ *        PROGRAM:        JRD Write Ahead Log File utilitles
+ *        MODULE:         walf.c
+ *        DESCRIPTION:    Write Ahead Log File utilities
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../include/jrd/gds.h"
+#include "../wal/wal.h"
+#include "../jrd/dsc.h"
+#include "../jrd/llio.h"
+#include "../wal/walf_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/iberr_proto.h"
+#include "../jrd/llio_proto.h"
+#include "../jrd/misc_proto.h"
+
+
+SSHORT WALF_delink_log(STATUS * status_vector,
+					   SCHAR * dbname,
+					   SCHAR * logname, SLONG log_partition_offset)
+{
+/**************************************
+ *
+ *        W A L F _ d e l i n k _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *        Delink the given log from the chain of log files by 
+ *        making the previous log name for the next log empty,
+ *        i.e., after this call, the header of the next log has a
+ *        'null' previous pointer. 
+ *        If there is any error, return FAILURE else return SUCCESS.
+ *        In case of an error, status_vector would be updated.
+ *
+ **************************************/
+	SLONG log_fd, next_log_fd;
+	SSHORT ret;
+	WALFH log_header, next_log_header;
+	SCHAR next_logname[MAXPATHLEN];
+	SLONG next_log_partition_offset;
+
+/* First open the current log to get its header */
+
+	log_header = (WALFH) gds__alloc(WALFH_LENGTH);
+/* NOMEM: error return, FREE: by error returns & WALF_dispose_log_header() */
+	if (!log_header)
+		return FAILURE;
+	ret =
+		WALF_open_log_file(status_vector, dbname, logname,
+						   log_partition_offset, log_header, &log_fd);
+	if (ret != SUCCESS) {
+		gds__free((SLONG *) log_header);
+		return FAILURE;
+	}
+
+	if ((log_header->walfh_next_logname != NULL) &&
+		(strlen(log_header->walfh_next_logname) > 0)) {
+		/* Get the info about the next log file */
+
+		strcpy(next_logname, log_header->walfh_next_logname);
+		next_log_partition_offset =
+			log_header->walfh_next_log_partition_offset;
+		WALF_dispose_log_header(log_header);
+		LLIO_close(0, log_fd);
+
+		/* Open and update the next log file's previous log pointer */
+
+		next_log_header = (WALFH) gds__alloc(WALFH_LENGTH);
+		/* NOMEM: error return, FREE: by error returns & WALF_dispose_log_header() */
+		if (!next_log_header)
+			return FAILURE;
+		ret = WALF_open_log_file(status_vector, dbname, next_logname,
+								 next_log_partition_offset, next_log_header,
+								 &next_log_fd);
+		if (ret != SUCCESS) {
+			gds__free((SLONG *) next_log_header);
+			return FAILURE;
+		}
+		*next_log_header->walfh_prev_logname = 0;
+		WALF_update_log_header(status_vector, next_logname,
+							   next_log_partition_offset, next_log_header,
+							   next_log_fd);
+		WALF_dispose_log_header(next_log_header);
+		LLIO_close(0, next_log_fd);
+	}
+	else {
+		WALF_dispose_log_header(log_header);
+		LLIO_close(0, log_fd);
+	}
+
+	return SUCCESS;
+}
+
+
+SSHORT WALF_delink_prev_log(STATUS * status_vector,
+							SCHAR * dbname,
+							SCHAR * logname, SLONG log_partition_offset)
+{
+/**************************************
+ *
+ *        W A L F _ d e l i n k _ p r e v _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *        Make the previous log name for the given logname empty,
+ *        i.e., after this call, the header of the logname has a
+ *        'null' previous pointer. 
+ *        If there is any error, return FAILURE else return SUCCESS.
+ *        In case of an error, status_vector would be updated.
+ *
+ **************************************/
+	SLONG log_fd;
+	SSHORT ret;
+	WALFH log_header;
+
+/* First open the log to get its header */
+
+	log_header = (WALFH) gds__alloc(WALFH_LENGTH);
+/* NOMEM: error return, FREE: by error returns & WALF_dispose_log_header() */
+	if (!log_header)
+		return FAILURE;
+	ret =
+		WALF_open_log_file(status_vector, dbname, logname,
+						   log_partition_offset, log_header, &log_fd);
+	if (ret != SUCCESS) {
+		gds__free((SLONG *) log_header);
+		return FAILURE;
+	}
+
+	if ((log_header->walfh_prev_logname != NULL) &&
+		(strlen(log_header->walfh_prev_logname) > 0)) {
+		gds__free((SLONG *) log_header->walfh_prev_logname);
+		log_header->walfh_prev_logname = NULL;
+		WALF_update_log_header(status_vector, logname, log_partition_offset,
+							   log_header, log_fd);
+	}
+	WALF_dispose_log_header(log_header);
+	LLIO_close(0, log_fd);
+
+	return ret;
+}
+
+
+void WALF_dispose_log_header( WALFH log_header)
+{
+/**************************************
+ *
+ *        W A L F _ d i s p o s e _ l o g _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *        Free up memory taken up by the pointers in the 
+ *        passed log_header.  Free up the log_header memory also.
+ *
+ **************************************/
+
+	if (log_header->walfh_dbname)
+		gds__free((SLONG *) log_header->walfh_dbname);
+	if (log_header->walfh_prev_logname)
+		gds__free((SLONG *) log_header->walfh_prev_logname);
+	if (log_header->walfh_next_logname)
+		gds__free((SLONG *) log_header->walfh_next_logname);
+	gds__free((SLONG *) log_header);
+}
+
+
+SSHORT WALF_get_linked_logs_info(STATUS * status_vector,
+								 SCHAR * dbname,
+								 SCHAR * starting_logname,
+								 SLONG starting_log_partition_offset,
+								 int *prev_logs_count,
+								 SCHAR * last_logname,
+								 SLONG * last_log_partition_offset,
+								 SLONG * last_log_flags,
+								 SSHORT * any_log_to_be_archived)
+{
+/**************************************
+ *
+ *        W A L F _ g e t _ l i n k e d _ l o g s _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *        Get the number of all the previous logfiles
+ *        linked to the given starting_logname.  Also pass the information 
+ *        about the last linked log file, if any. 
+ *
+ *        If any log file in the chain (including the starting logname)
+ *        needs to be archived (i.e. its WALFH_KEEP_FOR_LONG_TERM_RECV 
+ *        is set), the parameter any_log_to_be_archived would be set to 
+ *        TRUE else it would be set to FALSE.
+ *
+ *        If there is any error, return FAILURE else return SUCCESS. 
+ *        In case of error, status_vector would be updated.
+ *
+ **************************************/
+	SCHAR *curr_name;
+	SLONG curr_log_partition_offset;
+	SCHAR *prev_name;
+	SLONG prev_log_partition_offset;
+	SLONG log_flags;
+	SCHAR log_name1[MAXPATHLEN];
+	SCHAR log_name2[MAXPATHLEN];
+	SCHAR *temp_name;
+	SLONG log_seqno;
+	SLONG log_length;
+	int log_count;
+	SSHORT ret;
+
+	log_flags = 0;
+	if ((ret = WALF_get_log_info(status_vector, dbname, starting_logname,
+								 starting_log_partition_offset,
+								 &log_seqno, &log_length,
+								 &log_flags)) != SUCCESS) return FAILURE;
+	*any_log_to_be_archived =
+		((log_flags & WALFH_KEEP_FOR_LONG_TERM_RECV) ? TRUE : FALSE);
+	strcpy(log_name1, starting_logname);
+	curr_name = log_name1;
+	curr_log_partition_offset = starting_log_partition_offset;
+	prev_name = log_name2;
+
+	log_count = 0;
+	for (;;) {
+		if (WALF_get_next_log_info
+			(status_vector, dbname, curr_name, curr_log_partition_offset,
+			 prev_name, &prev_log_partition_offset, &log_seqno, &log_length,
+			 &log_flags, -1) != SUCCESS)
+			break;
+		log_count++;
+		temp_name = prev_name;
+		prev_name = curr_name;
+		curr_name = temp_name;
+		curr_log_partition_offset = prev_log_partition_offset;
+		if (!(*any_log_to_be_archived) &&
+			(log_flags & WALFH_KEEP_FOR_LONG_TERM_RECV))
+				*any_log_to_be_archived = TRUE;
+	}
+
+/* Now initialize the passed parameters with the oldest log info. */
+
+	*prev_logs_count = log_count;
+	strcpy(last_logname, curr_name);
+	*last_log_partition_offset = curr_log_partition_offset;
+	*last_log_flags = log_flags;
+
+	return SUCCESS;
+}
+
+
+SSHORT WALF_get_log_info(STATUS * status_vector,
+						 SCHAR * dbname,
+						 SCHAR * logname,
+						 SLONG log_partition_offset,
+						 SLONG * log_seqno,
+						 SLONG * log_length, SLONG * log_flag)
+{
+/**************************************
+ *
+ *        W A L F _ g e t _ l o g _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *       Get the seqno, length and the header flag of the given log file.
+ *
+ *       If there is any error, return FAILURE else return SUCCESS.
+ *       In case of error, status_vector would be updated.
+ *
+ **************************************/
+	SLONG log_fd;
+	SSHORT ret;
+	WALFH log_header;
+
+	log_header = (WALFH) gds__alloc(WALFH_LENGTH);
+/* NOMEM: error return, FREE: by error returns & WALF_dispose_log_header() */
+	if (!log_header)
+		return FAILURE;
+	ret =
+		WALF_open_log_file(status_vector, dbname, logname,
+						   log_partition_offset, log_header, &log_fd);
+	if (ret != SUCCESS) {
+		gds__free((SLONG *) log_header);
+		return FAILURE;
+	}
+
+	*log_seqno = log_header->walfh_seqno;
+	*log_length = log_header->walfh_length;
+	*log_flag = log_header->walfh_flags;
+
+	WALF_dispose_log_header(log_header);
+	LLIO_close(0, log_fd);
+
+	return ret;
+}
+
+
+SSHORT WALF_get_next_log_info(STATUS * status_vector,
+							  SCHAR * dbname,
+							  SCHAR * logname,
+							  SLONG log_partition_offset,
+							  SCHAR * next_logname,
+							  SLONG * next_log_partition_offset,
+							  SLONG * next_log_seqno,
+							  SLONG * next_log_length,
+							  SLONG * next_log_flags, SSHORT direction)
+{
+/**************************************
+ *
+ *        W A L F _ g e t _ n e x t _ l o g _ i n f o 
+ *
+ **************************************
+ *
+ * Functional description
+ *        Get the name, offset and flag of the next logfile.  
+ *        If the direction is 1, the next logfile is chronologically
+ *        next log file.  If the direction is -1, the next logfile is
+ *        chronologically previous log file.
+ *
+ *        If the 'next' logfile name is empty, return -1.  If there
+ *        is any error, return FAILURE else return SUCCESS.  In case 
+ *        of error, status_vector would be updated.
+ *
+ **************************************/
+	SLONG log_fd;
+	int ret;
+	WALFH log_header;
+
+/* First open the current log to get the 'next' logname and offset */
+
+	log_header = (WALFH) gds__alloc(WALFH_LENGTH);
+/* NOMEM: error return, FREE: by error returns & WALF_dispose_log_header() */
+	if (!log_header)
+		return FAILURE;
+
+	ret =
+		WALF_open_log_file(status_vector, dbname, logname,
+						   log_partition_offset, log_header, &log_fd);
+	if (ret != SUCCESS) {
+		gds__free((SLONG *) log_header);
+		return FAILURE;
+	}
+
+	if ((direction == 1) &&
+		(log_header->walfh_next_logname != NULL) &&
+		(strlen(log_header->walfh_next_logname) > 0)) {
+		strcpy(next_logname, log_header->walfh_next_logname);
+		*next_log_partition_offset =
+			log_header->walfh_next_log_partition_offset;
+	}
+	else if ((direction == -1) &&
+			 (log_header->walfh_prev_logname != NULL) &&
+			 (strlen(log_header->walfh_prev_logname) > 0)) {
+		strcpy(next_logname, log_header->walfh_prev_logname);
+		*next_log_partition_offset =
+			log_header->walfh_prev_log_partition_offset;
+	}
+	else
+		ret = -1;
+
+/* Now get the information about the next log file */
+
+	if (ret != -1)
+		ret = WALF_get_log_info(status_vector, dbname, next_logname,
+								*next_log_partition_offset,
+								next_log_seqno, next_log_length,
+								next_log_flags);
+
+	WALF_dispose_log_header(log_header);
+	LLIO_close(0, log_fd);
+
+	return ret;
+}
+
+
+SSHORT WALF_get_all_next_logs_info(STATUS * status_vector,
+								   SCHAR * dbname,
+								   SCHAR * starting_logname,
+								   SLONG starting_log_partition_offset,
+								   int max_logs_count,
+								   SCHAR * lognames_buffer,
+								   int *next_logs_count,
+								   SCHAR ** next_logs_names,
+								   SLONG * next_log_partitions_offsets,
+								   SLONG * next_logs_seqnos,
+								   SLONG * next_logs_lengths,
+								   SLONG * next_logs_flags, SSHORT direction)
+{
+/**************************************
+ *
+ *        W A L F _ g e t _ a l l _ n e x t _ l o g s _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *        Get the names, offsets and flags of all the logfiles
+ *        linked to the given starting_logname. 
+ *
+ *        If the direction is 1, the next logfiles are chronologically
+ *        next log files.  If the direction is -1, the next logfiles are
+ *        chronologically previous log files.
+ *
+ *        Pass the information  back through the parameters which are 
+ *        arrays, each element of which would hold info about one 
+ *        'next' log file.  The parameter next_logs_count returns the 
+ *        total number of linked log files.  The information about log 
+ *        files is returned in the 'oldest log file first' order.
+ *
+ *        If the total number of next log files exceeds
+ *        max_logs_count then the search stops there.  In that case,
+ *        the user may call this routine again with the last
+ *        logname and with new or extended buffers.
+ *
+ *        If there is any error, return FAILURE else return SUCCESS. 
+ *        In case of error, status_vector would be updated.
+ *
+ **************************************/
+	STK stack;
+	SCHAR *curr_name;
+	SLONG curr_log_partition_offset;
+	SCHAR *next_name;
+	SLONG next_log_partition_offset;
+	SLONG next_log_seqno;
+	SLONG next_log_length;
+	SLONG next_log_flags;
+	int log_count;
+	struct log_info_stru {
+		SCHAR *log_name;
+		SLONG log_partition_offset;
+		SLONG log_seqno;
+		SLONG log_length;
+		SLONG log_flags;
+	} *log_info;
+
+	curr_name = starting_logname;
+	curr_log_partition_offset = starting_log_partition_offset;
+
+/* Now collect info about all the 'next' log names. */
+
+	stack = NULL;
+	log_count = 0;
+	next_name = lognames_buffer;
+	for (;;) {
+		/* Set the buffer address to get the next file name */
+
+		if (WALF_get_next_log_info(status_vector, dbname, curr_name,
+								   curr_log_partition_offset, next_name,
+								   &next_log_partition_offset,
+								   &next_log_seqno, &next_log_length,
+								   &next_log_flags, direction) != SUCCESS)
+			break;
+
+		if (direction == 1) {
+			/* We are getting the names in the correct chronological order */
+
+			*next_logs_names++ = next_name;
+			*next_log_partitions_offsets++ = next_log_partition_offset;
+			*next_logs_seqnos++ = next_log_seqno;
+			*next_logs_lengths++ = next_log_length;
+			*next_logs_flags++ = next_log_flags;
+		}
+		else {
+			/* We are getting the log names in the reverse chronological order,
+			   so put them on stack for later retrieval in the correct order */
+
+			log_info =
+				(struct log_info_stru *)
+				gds__alloc(sizeof(struct log_info_stru));
+			/* NOMEM: free stack & error return, FREE: by popping the stack below */
+			if (!log_info) {
+				while (log_info =
+					   reinterpret_cast < log_info_stru * >(MISC_pop(&stack)))
+					gds__free(log_info);
+				return FAILURE;
+			}
+			log_info->log_name = next_name;
+			log_info->log_partition_offset = next_log_partition_offset;
+			log_info->log_seqno = next_log_seqno;
+			log_info->log_length = next_log_length;
+			log_info->log_flags = next_log_flags;
+
+			/* MISC_push() returns NULL on NOMEM:, FREE: by MISC_pop */
+			if (!MISC_push((UCHAR *) log_info, &stack)) {
+				gds__free(log_info);
+				while (log_info =
+					   reinterpret_cast < log_info_stru * >(MISC_pop(&stack)))
+					gds__free(log_info);
+				return FAILURE;
+			}
+		}
+
+		log_count++;
+		if (log_count == max_logs_count)
+			break;
+
+		curr_name = next_name;
+		curr_log_partition_offset = next_log_partition_offset;
+		next_name = curr_name + strlen(curr_name) + 1;	/* slide in the passed buffer */
+	}
+
+	*next_logs_count = log_count;
+
+	if (direction == 1)
+		return SUCCESS;			/* We are all set */
+
+	while (stack) {
+		/* By creating the correct ordering of information from the stack,    
+		   initialize the passed parameters starting from the oldest log. */
+
+		log_info = (struct log_info_stru *) MISC_pop(&stack);
+		*next_logs_names++ = log_info->log_name;
+		*next_log_partitions_offsets++ = log_info->log_partition_offset;
+		*next_logs_seqnos++ = log_info->log_seqno;
+		*next_logs_lengths++ = log_info->log_length;
+		*next_logs_flags++ = log_info->log_flags;
+		gds__free((SLONG *) log_info);
+	}
+
+	return SUCCESS;
+}
+
+
+SSHORT WALF_init_p_log(STATUS * status_vector,
+					   SCHAR * dbname,
+					   SCHAR * logname, SLONG logsize, SSHORT num_partitions)
+{
+/**************************************
+ *
+ *        W A L F _ i n i t _ p _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *        Create and initialize a logname file with given number of 
+ *        equal log partitions.  The space (length logsize bytes) for 
+ *        the file is also allocated.
+ *
+ *        If num_partitions = 0, just allocate logsize bytes for the 
+ *        given logfile and return.
+ *
+ *        If there is any error, return FAILURE else return SUCCESS.
+ *        In case of error, status_vector would be updated.
+ *
+ **************************************/
+	SLONG p_log_fd;
+	int i;
+	P_LOGFH p_log_header;
+
+/* Since we allow partitions for the RAW devices only, it is
+   okay to overwrite the file in that case. */
+
+	if (LLIO_allocate_file_space(status_vector, logname, logsize,
+								 (UCHAR) WAL_TERMINATOR_CHAR,
+								 (num_partitions) ? TRUE : FALSE) != SUCCESS)
+		return FAILURE;
+
+	if (num_partitions <= 0)
+		return SUCCESS;
+
+	if (LLIO_open(status_vector, logname, LLIO_OPEN_RW, FALSE, &p_log_fd))
+		return FAILURE;
+
+	p_log_header = (P_LOGFH) gds__alloc(P_LOGFH_LENGTH);
+/* NOMEM: error return, FREE: end of routine */
+	if (!p_log_header)
+		return FAILURE;
+
+	p_log_header->p_logfh_version1 = P_LOGFH_VERSION;
+	p_log_header->p_logfh_version2 = 0;
+	p_log_header->p_logfh_length = logsize;
+	p_log_header->p_logfh_maxp = num_partitions;
+	p_log_header->p_logfh_firstp_offset = P_LOGFH_LENGTH;
+	p_log_header->p_logfh_sizep = PARTITION_SIZE(logsize, num_partitions);
+	p_log_header->p_logfh_curp = -1;
+	p_log_header->p_logfh_flags = 0L;
+	strcpy(p_log_header->p_logfh_dbname, dbname);
+
+	for (i = 0; i < 10; i++)
+		p_log_header->p_logfh_reserved[i] = 0L;
+
+	if (LLIO_write(status_vector, p_log_fd, logname, 0L, LLIO_SEEK_NONE,
+				   (UCHAR *) p_log_header, P_LOGFH_LENGTH, 0)) {
+		LLIO_close(0, p_log_fd);
+		gds__free((SLONG *) p_log_header);
+		return FAILURE;
+	}
+
+	LLIO_close(0, p_log_fd);
+	gds__free((SLONG *) p_log_header);
+
+	return SUCCESS;
+}
+
+
+SSHORT WALF_open_partitioned_log_file(STATUS * status_vector,
+									  SCHAR * dbname,
+									  SCHAR * logname,
+									  P_LOGFH p_log_header, SLONG * p_log_fd)
+{
+/**************************************
+ *
+ *        W A L F _ o p e n _ p a r t i t i o n e d _ l o g _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *        Open and read the header of the given partioiotned log file.
+ *        Return the file handle through the parameter p_log_fd.
+ *        If there is any error, return FAILURE else return SUCCESS.
+ *        In case of error, status_vector would be updated.
+ *
+ **************************************/
+	SLONG fd, read_len;
+#define ERROR_RETURN(error) {if (fd>0) LLIO_close(0,fd); \
+                      WAL_ERROR (status_vector, error, logname);\
+                      return FAILURE;}
+#define IO_ERROR_RETURN	{if (fd>0) LLIO_close(0,fd); return FAILURE;}
+
+/* Open and position at the beginning of the partitioned log file. */
+
+	if (LLIO_open(status_vector, logname, LLIO_OPEN_EXISTING_RW, FALSE, &fd))
+		return FAILURE;
+
+	*p_log_fd = fd;
+
+/* Now try to read the partitioned logfile header and take appropriate steps 
+   afterwards. */
+
+	if (LLIO_read(status_vector,
+				  fd,
+				  logname,
+				  0L,
+				  LLIO_SEEK_NONE,
+				  reinterpret_cast < UCHAR * >(p_log_header),
+				  P_LOGFH_LENGTH, &read_len)) IO_ERROR_RETURN;
+
+	if (read_len < sizeof(struct p_logfh))
+		ERROR_RETURN(gds_logh_small);
+	if (p_log_header->p_logfh_version1 != P_LOGFH_VERSION)
+		ERROR_RETURN(gds_logh_inv_version);
+
+/* Make sure that the database name matches with the passed database name. */
+
+	if (strcmp(dbname, p_log_header->p_logfh_dbname) != 0)
+		ERROR_RETURN(gds_logh_diff_dbname);
+
+	return SUCCESS;
+}
+
+
+SSHORT WALF_open_log_file(STATUS * status_vector,
+						  SCHAR * dbname,
+						  SCHAR * logname,
+						  SLONG log_partition_offset,
+						  WALFH log_header, SLONG * log_fd)
+{
+/**************************************
+ *
+ *        W A L F _ o p e n _ l o g _ f i l e
+ *
+ **************************************
+ *
+ * Functional description
+ *        Open and read the header of the given log file.  Return the 
+ *        file handle through the parameter log_fd.
+ *        If there is any error, return FAILURE else return SUCCESS.
+ *        In case of error, status_vector would be updated.
+ *
+ **************************************/
+	SLONG fd, read_len;
+#define ERROR_RETURN(error) {if (fd>0) LLIO_close(0,fd); \
+                      WAL_ERROR (status_vector, error, logname);\
+                      return FAILURE;}
+#define IO_ERROR_RETURN	{if (fd>0) LLIO_close(0,fd); return FAILURE;}
+
+	if (LLIO_open(0, logname, LLIO_OPEN_EXISTING_RW, FALSE, &fd))
+		return FAILURE;
+
+	*log_fd = fd;
+
+/* Position at the beginning of the logical log file and read the header. */
+
+	if (LLIO_read(status_vector, fd, logname,
+				  log_partition_offset, LLIO_SEEK_BEGIN,
+				  (UCHAR *) log_header, WALFH_LENGTH, &read_len))
+		IO_ERROR_RETURN;
+
+	if (read_len < sizeof(struct walfh))
+		ERROR_RETURN(gds_logh_small);
+	if (log_header->walfh_version != WALFH_VERSION)
+		ERROR_RETURN(gds_logh_inv_version);
+
+/* Extract the database name from the log_header and make sure that 
+   it matches with the passed database name. */
+
+	log_header->walfh_dbname = NULL;
+	log_header->walfh_prev_logname = NULL;
+	log_header->walfh_next_logname = NULL;
+	WALF_upd_log_hdr_frm_walfh_data(log_header, log_header->walfh_data);
+	if (strcmp(dbname, log_header->walfh_dbname) != 0) {
+		if (log_header->walfh_dbname)
+			gds__free((SLONG *) log_header->walfh_dbname);
+		if (log_header->walfh_prev_logname)
+			gds__free((SLONG *) log_header->walfh_prev_logname);
+		if (log_header->walfh_next_logname)
+			gds__free((SLONG *) log_header->walfh_next_logname);
+		ERROR_RETURN(gds_logh_diff_dbname);
+	}
+
+	return SUCCESS;
+}
+
+
+SSHORT WALF_set_log_header_flag(STATUS * status_vector,
+								SCHAR * dbname,
+								SCHAR * logname,
+								SLONG log_partition_offset,
+								SLONG flag, int set)
+{
+/**************************************
+ *
+ *        W A L F _ s e t _ l o g _ h e a d e r _ f l a g
+ *
+ **************************************
+ *
+ * Functional description
+ *        Update the walfh_flags field of the log header in the log 
+ *        file by the passed flag setting(s).  If the parameter 'set'
+ *        is TRUE, the flag bit(s) would be set else they would be reset.
+ *        If there is any error, return FAILURE else return SUCCESS.
+ *        In case of error, status_vector would be updated.
+ *
+ **************************************/
+	SLONG log_fd;
+	SSHORT ret;
+	WALFH log_header;
+
+/* First open the log and get its header */
+
+	log_header = (WALFH) gds__alloc(WALFH_LENGTH);
+/* NOMEM: error return, FREE: error return or WALF_dispose_log_header() */
+	if (!log_header)
+		return FAILURE;
+
+	ret =
+		WALF_open_log_file(status_vector, dbname, logname,
+						   log_partition_offset, log_header, &log_fd);
+	if (ret != SUCCESS) {
+		gds__free((SLONG *) log_header);
+		return FAILURE;
+	}
+
+/* Now set or reset the bits */
+
+	if (set)
+		log_header->walfh_flags |= flag;
+	else
+		log_header->walfh_flags &= ~(flag);
+
+	ret = WALF_update_log_header(status_vector, logname, log_partition_offset,
+								 log_header, log_fd);
+	WALF_dispose_log_header(log_header);
+	LLIO_close(0, log_fd);
+
+	return ret;
+}
+
+
+SSHORT WALF_update_log_header(STATUS * status_vector,
+							  SCHAR * logname,
+							  SLONG log_partition_offset,
+							  WALFH log_header, SLONG log_fd)
+{
+/**************************************
+ *
+ *        W A L F _ u p d a t e _ l o g _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *        Rewrite the log header in the log file.
+ *        If there is any error, return FAILURE else return SUCCESS.
+ *        In case of error, status_vector would be updated.
+ *
+ **************************************/
+
+	log_header->walfh_log_partition_offset = log_partition_offset;
+	log_header->walfh_data_len =
+		MISC_build_parameters_block(log_header->walfh_data,
+									PARAM_BYTE(WALFH_dbname),
+									PARAM_STRING(log_header->walfh_dbname),
+									PARAM_BYTE(WALFH_prev_logname),
+									PARAM_STRING(log_header->
+												 walfh_prev_logname),
+									PARAM_BYTE(WALFH_next_logname),
+									PARAM_STRING(log_header->
+												 walfh_next_logname),
+									PARAM_BYTE(WALFH_end), 0);
+
+/* Position at the beginning of the logical log file. */
+
+	if (LLIO_write(status_vector, log_fd, logname,
+				   log_header->walfh_log_partition_offset, LLIO_SEEK_BEGIN,
+				   (UCHAR *) log_header, WALFH_LENGTH, 0))
+		return FAILURE;
+
+	return SUCCESS;
+}
+
+
+SSHORT WALF_update_partitioned_log_hdr(STATUS * status_vector,
+									   SCHAR * logname,
+									   P_LOGFH p_log_header, SLONG p_log_fd)
+{
+/**************************************
+ *
+ *        W A L F _ u p d a t e _ p a r t i t i o n e d _ l o g _ h d r
+ *
+ **************************************
+ *
+ * Functional description
+ *        Rewrite the header of the log file containing partitions.
+ *        If there is any error, return FAILURE else return SUCCESS.
+ *        In case of error, status_vector would be updated.
+ *
+ **************************************/
+
+/* Position at the beginning of the partitioned log file. */
+
+	if (LLIO_write(status_vector, p_log_fd, logname, 0L, LLIO_SEEK_BEGIN,
+				   (UCHAR *) p_log_header, (ULONG) P_LOGFH_LENGTH, 0))
+		return FAILURE;
+
+	return SUCCESS;
+}
+
+
+void WALF_upd_log_hdr_frm_walfh_data( WALFH log_header, UCHAR * walfh_data)
+{
+/**************************************
+ *
+ *         W A L F _ u p d _ l o g _ h d r _ f r m _ w a l f h _ d a t a 
+ *
+ **************************************
+ *
+ * Functional description
+ *        Decode walfh_data and update the fields of log_header structure.
+ *
+ **************************************/
+	UCHAR *p, *q;
+	SCHAR filename[MAXPATHLEN];
+
+	p = walfh_data;
+
+	for (;;) {
+		switch (*p++) {
+		case WALFH_dbname:
+			q = (UCHAR *) filename;
+			while (*q++ = *p++);
+			if (log_header->walfh_dbname != NULL)
+				gds__free((SLONG *) log_header->walfh_dbname);
+			STRING_DUP(log_header->walfh_dbname, filename);
+			/* NOMEM: walfh_dbname is set to NULL, FREE: unknown */
+			break;
+
+		case WALFH_prev_logname:
+			q = (UCHAR *) filename;
+			while (*q++ = *p++);
+			if (log_header->walfh_prev_logname != NULL)
+				gds__free((SLONG *) log_header->walfh_prev_logname);
+			STRING_DUP(log_header->walfh_prev_logname, filename);
+			/* NOMEM: walfh_prev_logname is set to NULL, FREE: unknown */
+			break;
+
+		case WALFH_next_logname:
+			q = (UCHAR *) filename;
+			while (*q++ = *p++);
+			if (log_header->walfh_next_logname != NULL)
+				gds__free((SLONG *) log_header->walfh_next_logname);
+			STRING_DUP(log_header->walfh_next_logname, filename);
+			/* NOMEM: walfh_next_logname is set to NULL, FREE: unknown */
+			break;
+
+		case WALFH_end:
+			return;
+		}
+	}
+}
diff --git a/src/wal/walf_proto.h b/src/wal/walf_proto.h
new file mode 100644
index 0000000000..1764c6f3f1
--- /dev/null
+++ b/src/wal/walf_proto.h
@@ -0,0 +1,42 @@
+/*
+ *	PROGRAM:	JRD Write Ahead LOG APIs 
+ *	MODULE:		walf_proto.h
+ *	DESCRIPTION:	Prototype header file for walf.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _WAL_WALF_PROTO_H_
+#define _WAL_WALF_PROTO_H_
+
+extern SSHORT	WALF_delink_log (STATUS *, SCHAR *, SCHAR *, SLONG);
+extern SSHORT	WALF_delink_prev_log (STATUS *, SCHAR *, SCHAR *, SLONG);
+extern void	WALF_dispose_log_header (struct walfh *);
+extern SSHORT	WALF_get_linked_logs_info (STATUS *, SCHAR *, SCHAR *, SLONG, int *, SCHAR *, SLONG *, SLONG *, SSHORT *);
+extern SSHORT	WALF_get_log_info (STATUS *, SCHAR *, SCHAR *, SLONG, SLONG *, SLONG *, SLONG *);
+extern SSHORT	WALF_get_next_log_info (STATUS *, SCHAR *, SCHAR *, SLONG, SCHAR *, SLONG *, SLONG *, SLONG *, SLONG *, SSHORT);
+extern SSHORT	WALF_get_all_next_logs_info (STATUS *, SCHAR *, SCHAR *, SLONG, int, SCHAR *, int *, SCHAR * *, SLONG *, SLONG *, SLONG *, SLONG *, SSHORT);
+extern SSHORT	WALF_init_p_log (STATUS *, SCHAR *, SCHAR *, SLONG, SSHORT);
+extern SSHORT	WALF_open_partitioned_log_file (STATUS *, SCHAR *, SCHAR *, struct p_logfh *, SLONG *);
+extern SSHORT	WALF_open_log_file (STATUS *, SCHAR *, SCHAR *, SLONG, struct walfh *, SLONG *);
+extern SSHORT	WALF_set_log_header_flag (STATUS *, SCHAR *, SCHAR *, SLONG, SLONG, int);
+extern SSHORT	WALF_update_log_header (STATUS *, SCHAR *, SLONG, struct walfh *, SLONG);
+extern void	WALF_upd_log_hdr_frm_walfh_data (struct walfh *, UCHAR *);
+extern SSHORT	WALF_update_partitioned_log_hdr (STATUS *, SCHAR *, struct p_logfh *, SLONG);
+
+#endif /* _WAL_WALF_PROTO_H_ */ 
diff --git a/src/wal/walr.cpp b/src/wal/walr.cpp
new file mode 100644
index 0000000000..7d62b371f0
--- /dev/null
+++ b/src/wal/walr.cpp
@@ -0,0 +1,678 @@
+/*
+ *        PROGRAM:        JRD Write Ahead Log Reader
+ *        MODULE:         walr.c
+ *        DESCRIPTION:    Write Ahead Log Reader routines
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include <string.h>
+#include "../wal/wal.h"
+#include "../jrd/codes.h"
+#include "../jrd/llio.h"
+#include "../wal/walf_proto.h"
+#include "../wal/walr_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/iberr_proto.h"
+#include "../jrd/llio_proto.h"
+
+static void dispose_walr_handle(WALR);
+static SSHORT get_next_logname(WALRS, SCHAR **, SLONG *);
+static SSHORT log_close(WALR);
+static SSHORT log_open(STATUS *, WALRS, SCHAR *, SLONG, SLONG);
+static SSHORT read_next_block(STATUS *, WALRS);
+
+
+SSHORT WALR_close( STATUS * status_vector, WALRS * WALRS_handle)
+{
+/**************************************
+ *
+ *        W A L R _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *        Close the current log file, deallocate all the memory associated
+ *        with the WAL reading handle.
+ *    
+ **************************************/
+
+	log_close((*WALRS_handle)->walrs_walr);
+	gds__free((SLONG *) (*WALRS_handle)->walrs_walr);
+	gds__free((SLONG *) (*WALRS_handle)->walrs_dbname);
+	gds__free((SLONG *) (*WALRS_handle));
+	*WALRS_handle = NULL;
+
+	return SUCCESS;
+}
+
+
+SSHORT WALR_fixup_log_header(STATUS * status_vector, WALRS WALRS_handle)
+{
+/**************************************
+ *
+ *        W A L R _ f i x u p _ l o g _ h e a d e r
+ *
+ **************************************
+ *
+ * Functional description
+ *        Called after the last valid block of the current log file has
+ *        been read for short-term recovery.  So we are already positioned
+ *        at the last valid block and we can update the log file header 
+ *        information. 
+ *    
+ **************************************/
+	WALR WALR_handle;
+
+	WALR_handle = WALRS_handle->walrs_walr;
+	if (!(WALR_handle->walr_log_header->walfh_flags & WALFH_OPEN))
+		return SUCCESS;			/* Everything should be fine anyway. */
+
+	WALR_handle->walr_log_header->walfh_length = WALR_handle->walr_offset +
+		BLKHDR->walblk_hdr_blklen;
+	WALR_handle->walr_log_header->walfh_hibsn =
+		WALR_handle->walr_next_bsn - 1;
+	WALR_handle->walr_log_header->walfh_flags &= ~WALFH_OPEN;
+
+	return WALF_update_log_header(status_vector, WALR_handle->walr_logname,
+								  WALR_handle->walr_log_header->
+								  walfh_log_partition_offset,
+								  WALR_handle->walr_log_header,
+								  WALR_handle->walr_fd);
+}
+
+
+SSHORT WALR_get(STATUS * status_vector,
+				WALRS WALRS_handle,
+				UCHAR * logrec,
+				USHORT * len, SLONG * log_seqno, SLONG * log_offset)
+{
+/**************************************
+ *
+ *        W A L R _ g e t
+ *
+ **************************************
+ *
+ * Functional description
+ *        Get the next log record from the log file.  It automatically
+ *        handles getting the next block (which in turn may require
+ *        rolling over to next log file) and extracting the log 
+ *        record from it.   
+
+ *        Returns SUCCESS, if the next log record is found.  It sets the
+ *        parameters log_seqno and log_offset which were returned by the
+ *        WAL subsystem when this record was originally put in the WAL.
+ *
+ *        It returns -1 when end of log record stream is reached.
+ *        This could logically and optionally happen when 
+ *        reading a block with higher timestamp value than the one set
+ *        by user through WALR_open() call.
+ *
+ **************************************/
+	WALR WALR_handle;
+	WALREC_HDR header;
+	int reclen, remaining_block_bytes, remaining_logrec_bytes;
+	UCHAR *p, *q;
+	SSHORT ret;
+
+	WALR_handle = WALRS_handle->walrs_walr;
+	remaining_block_bytes = BLKHDR->walblk_hdr_len - REC_OFFSET;
+	if (remaining_block_bytes < REC_HDROVHD) {
+		/* Go to the next block */
+
+		if ((ret = read_next_block(status_vector, WALRS_handle)) != SUCCESS)
+			return ret;
+		WALR_handle = WALRS_handle->walrs_walr;
+		remaining_block_bytes = BLKHDR->walblk_hdr_len - REC_OFFSET;
+	}
+
+	memcpy((SCHAR *) & header, &WALR_handle->walr_buffer[REC_OFFSET],
+		   REC_HDROVHD);
+	reclen = header.walrec_len;
+
+	if (reclen == 0) {			/* 0-length checkpoint record */
+		/* skip over it */
+
+		REC_OFFSET += REC_HDROVHD;
+		return WALR_get(status_vector, WALRS_handle, logrec, len,
+						log_seqno, log_offset);
+	}
+
+	*log_seqno = WALR_handle->walr_log_header->walfh_seqno;
+	*log_offset = WALR_handle->walr_offset + REC_OFFSET;
+	*len = reclen;
+	p = &WALR_handle->walr_buffer[REC_OFFSET + REC_HDROVHD];
+	q = logrec;
+
+	remaining_logrec_bytes = remaining_block_bytes - REC_HDROVHD;
+	if (reclen > remaining_logrec_bytes) {
+		/* The record is incomplete */
+
+		WAL_FORMAT_ERROR(status_vector, gds__logr_incomplete,
+						 WALR_handle->walr_logname, *log_offset);
+		return FAILURE;
+	}
+	else {
+		memcpy(q, p, reclen);
+		REC_OFFSET += REC_HDROVHD + reclen;
+	}
+
+	return SUCCESS;
+}
+
+
+SSHORT WALR_get_blk_timestamp(WALRS WALRS_handle, SLONG * timestamp)
+{
+/**************************************
+ *
+ *        W A L R _ g e t _ b l k _ t i m e s t a m p
+ *
+ **************************************
+ *
+ * Functional description
+ *        Returns the timestamp of the current block being read.
+ *
+ **************************************/
+
+	if (WALRS_handle == NULL || WALRS_handle->walrs_walr == NULL
+		|| BLKHDR == NULL) return FAILURE;
+	timestamp[0] = BLKHDR->walblk_hdr_timestamp[0];
+	timestamp[1] = BLKHDR->walblk_hdr_timestamp[1];
+
+	return SUCCESS;
+}
+
+
+SSHORT WALR_open(STATUS * status_vector,
+				 WALRS * WALRS_handle,
+				 SCHAR * dbname,
+				 int numlogs,
+				 SCHAR ** lognames,
+				 SLONG * log_partitions_offsets,
+				 SLONG first_log_offset,
+				 SLONG * timestamp, SSHORT dont_scan_tail_logs)
+{
+/**************************************
+ *
+ *        W A L R _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *        Open a stream of log records on the set of given 
+ *        log files and all subsequently created log files.  
+ *        If 'dont_scan_tail_logs' parameter is set, stop 
+ *        scan after the end of the last log file in the set.
+ *        Also, set the scan upto passed timestamp, if any.
+ *        Initialize and return the WALRS_handle.  Used for 
+ *        full or incremental recovery.  
+ *
+ *        Returns SUCCESS or FAILURE.
+ *        Returns -1 if end-of-log encounterd.
+ *
+ **************************************/
+	struct walrs walrset;
+	SSHORT ret;
+
+	walrset.walrs_dbname = (SCHAR *) gds__alloc(strlen(dbname) + 1);
+/* NOMEM: error return, FREE: error returns & WALR_close()  */
+	if (!walrset.walrs_dbname)
+		return FAILURE;
+	strcpy(walrset.walrs_dbname, dbname);
+	walrset.walrs_max_logs = numlogs;
+	walrset.walrs_cur_log = 0;
+	walrset.walrs_lognames = lognames;
+	walrset.walrs_log_partitions_offsets = log_partitions_offsets;
+	walrset.walrs_flags = 0;
+	if (timestamp != NULL) {
+		walrset.walrs_timestamp[0] = timestamp[0];
+		walrset.walrs_timestamp[1] = timestamp[1];
+		walrset.walrs_flags |= WALRS_TIMESTAMP;
+	}
+	if (dont_scan_tail_logs)
+		walrset.walrs_flags |= WALRS_DONT_SCAN_TAIL_LOGS;
+
+	ret = log_open(status_vector, &walrset, lognames[0],
+				   log_partitions_offsets[0], first_log_offset);
+	if (ret == SUCCESS) {
+		walrset.walrs_cur_log++;
+		*WALRS_handle = (WALRS) gds__alloc(sizeof(struct walrs));
+		/* NOMEM: error return, FREE: WALR_close() */
+		if (!*WALRS_handle)
+			ret = FAILURE;
+		else
+			**WALRS_handle = walrset;
+	}
+	else
+	 if (ret != SUCCESS)
+		gds__free((SLONG *) walrset.walrs_dbname);
+
+	return ret;
+}
+
+
+static void dispose_walr_handle( WALR WALR_handle)
+{
+/**************************************
+ *
+ *        d i s p o s e _ w a l r _ h a n d l e
+ *
+ **************************************
+ *
+ * Functional description
+ *        Deallocate memory associated with the WALR_handle.
+ *
+ **************************************/
+
+	gds__free((SLONG *) WALR_handle->walr_logname);
+	gds__free((SLONG *) WALR_handle->walr_read_ahead_buffer);
+	gds__free((SLONG *) WALR_handle->walr_buffer);
+	WALF_dispose_log_header(WALR_handle->walr_log_header);
+}
+
+
+static SSHORT get_next_logname(
+							   WALRS WALRS_handle,
+							   SCHAR ** logname, SLONG * log_partition_offset)
+{
+/**************************************
+ *
+ *        g e t _ n e x t _ l o g n a m e
+ *
+ **************************************
+ *
+ * Functional description
+ *        Get the next logical logname and offset.  The logname may come
+ *        from either the list of lognames supplied at the time of 
+ *        WALR_open() or from the next logically linked log file.
+ *
+ *        Returns FAILURE if no further logname can be found else
+ *        returns SUCCESS.
+ *
+ **************************************/
+	WALR WALR_handle;
+
+	if (WALRS_handle->walrs_cur_log >= WALRS_handle->walrs_max_logs) {
+		if (WALRS_handle->walrs_flags & WALRS_DONT_SCAN_TAIL_LOGS)
+			return FAILURE;		/* No need to scan the linked log files */
+
+		/* Look for the next logically linked file */
+
+		WALR_handle = WALRS_handle->walrs_walr;
+		if (strlen(WALR_handle->walr_log_header->walfh_next_logname) > 1) {
+			*logname = WALR_handle->walr_log_header->walfh_next_logname;
+			*log_partition_offset =
+				WALR_handle->walr_log_header->walfh_next_log_partition_offset;
+			return SUCCESS;
+		}
+		else
+			return FAILURE;
+	}
+	else {
+		/* Get the logname from the user-specified lognames list */
+
+		*logname = WALRS_handle->walrs_lognames[WALRS_handle->walrs_cur_log];
+		*log_partition_offset = WALRS_handle->walrs_log_partitions_offsets
+			[WALRS_handle->walrs_cur_log];
+		WALRS_handle->walrs_cur_log++;	/* for the next time */
+		return SUCCESS;
+	}
+}
+
+
+static SSHORT log_close( WALR WALR_handle)
+{
+/**************************************
+ *
+ *        l o g _ c l o s e
+ *
+ **************************************
+ *
+ * Functional description
+ *        Close the current log file, deallocate all the memory associated
+ *        with the WAL reading handle.
+ *    
+ **************************************/
+
+	LLIO_close(0, WALR_handle->walr_fd);
+	dispose_walr_handle(WALR_handle);
+
+	return SUCCESS;
+}
+
+
+static SSHORT log_open(
+					   STATUS * status_vector,
+					   WALRS WALRS_handle,
+					   SCHAR * logname,
+					   SLONG log_partition_offset, SLONG offset)
+{
+/**************************************
+ *
+ *        l o g _ o p e n
+ *
+ **************************************
+ *
+ * Functional description
+ *        Open a WAL file to read.  Seek to the desired offset.
+ *        Set the scan upto passed timestamp, if any.
+ *        Initialize and return the WALR_handle.  Used for recovery.  
+ *
+ *        Returns SUCCESS or FAILURE.
+ *        Returns -1 if end-of-log encounterd.
+ *
+ **************************************/
+	SLONG log_fd, read_len;
+	WALFH log_header;
+	WALR walr;
+	SLONG blk_offset;
+	USHORT rec_offset;
+	WALBLK_HDR blkhdr;
+	WALREC_HDR rechdr;
+	SSHORT ret;
+	SLONG sector_offset;
+	UCHAR sector_bytes[LOG_SECTOR_SIZE * 2];
+	USHORT read_ahead_bytes;
+	WAL_TERMINATOR(log_terminator_block);
+
+#define IO_ERR_RETURN	{WALF_dispose_log_header(log_header); return FAILURE;}
+#define FORMAT_ERR_RETURN(code, offset) {WALF_dispose_log_header(log_header);\
+                   WAL_FORMAT_ERROR (status_vector, code, logname, offset);\
+                   return FAILURE;}
+
+	log_header = (WALFH) gds__alloc(WALFH_LENGTH);
+/* NOMEM: return error, 
+   FREE:  error returns (dispose_log_header) & dispose_wal_handle */
+	if (!log_header)
+		return FAILURE;
+
+	ret =
+		WALF_open_log_file(status_vector, WALRS_handle->walrs_dbname, logname,
+						   log_partition_offset, log_header, &log_fd);
+	if (ret != SUCCESS) {
+		gds__free((SLONG *) log_header);
+		return FAILURE;
+	}
+
+	WAL_TERMINATOR_SET(log_terminator_block);
+/* Now position at the block containing the log record at the given offset */
+	if (offset == 0L)
+		blk_offset = log_header->walfh_offset;
+	else {
+		/* The passed 'offset' is an absolute offset of a WAL record in 
+		   the log file.  Read the record header and then get the starting
+		   position of its block */
+
+		/* First read the whole sector containing the record header.  To 
+		   support raw devices, read from a sector boundary */
+
+		sector_offset = offset & ~((SLONG) (LOG_SECTOR_SIZE - 1));
+
+		if (LLIO_read(status_vector, log_fd, logname,
+					  log_partition_offset + sector_offset, LLIO_SEEK_BEGIN,
+					  sector_bytes, sizeof(sector_bytes), &read_len))
+			IO_ERR_RETURN;
+
+		if (read_len < (offset - sector_offset + REC_HDROVHD))
+			FORMAT_ERR_RETURN(gds__logr_header_small, offset)
+
+				if (memcmp(log_terminator_block, sector_bytes, REC_HDROVHD) ==
+					0) {
+				/* end of log */
+				WALF_dispose_log_header(log_header);
+				return -1;
+			}
+		/* Now extract the actual record header */
+		memcpy((SCHAR *) & rechdr, &sector_bytes[offset % LOG_SECTOR_SIZE],
+			   REC_HDROVHD);
+		rec_offset = rechdr.walrec_offset;	/* offset of record within the block */
+		blk_offset = offset - rec_offset;	/* offset of block within the file */
+	}
+
+/* Now position and read the header of the starting block */
+
+	if (log_header->walfh_flags & WALFH_RAW)
+		read_ahead_bytes = LOG_SECTOR_SIZE;
+	else
+		read_ahead_bytes = BLK_HDROVHD;
+
+	if (LLIO_read(status_vector, log_fd, logname,
+				  log_partition_offset + blk_offset, LLIO_SEEK_BEGIN,
+				  sector_bytes, read_ahead_bytes, &read_len))
+		IO_ERR_RETURN;
+
+	if (read_len == 0) {
+		/* end of log */
+		WALF_dispose_log_header(log_header);
+		return -1;
+	}
+
+	if (read_len < BLK_HDROVHD)
+		FORMAT_ERR_RETURN(gds__logb_small, blk_offset)
+
+			memcpy((SCHAR *) & blkhdr, sector_bytes, BLK_HDROVHD);
+
+	if (memcmp
+		((SCHAR *) log_terminator_block, (SCHAR *) & blkhdr,
+		 BLK_HDROVHD) == 0) {
+		/* end of log */
+		WALF_dispose_log_header(log_header);
+		return -1;
+	}
+
+/* Now allocate and initialize the log reading handle. */
+
+	walr = (WALR) gds__alloc(sizeof(struct walr));
+/* NOMEM: return error, FREE: error return or handle close */
+	if (!walr) {
+		WALF_dispose_log_header(log_header);
+		return FAILURE;
+	}
+	walr->walr_logname = (SCHAR *) gds__alloc(strlen(logname) + 1);
+/* NOMEM: return error, FREE: error return or log_close() */
+	if (!walr->walr_logname) {
+		gds__free(walr);
+		WALF_dispose_log_header(log_header);
+		return FAILURE;
+	}
+	strcpy(walr->walr_logname, logname);
+	walr->walr_log_partition_offset = log_partition_offset;
+	walr->walr_fd = log_fd;
+	walr->walr_next_bsn = blkhdr.walblk_hdr_bsn + 1;
+	walr->walr_flags = 0;
+	walr->walr_read_ahead_bytes = read_ahead_bytes;
+	walr->walr_log_header = log_header;
+	walr->walr_offset = blk_offset;
+	walr->walr_read_ahead_buffer = (UCHAR *) gds__alloc(read_ahead_bytes);
+/* NOMEM: return error, FREE: error return or log_close() */
+	if (!walr->walr_read_ahead_buffer) {
+		gds__free(walr->walr_logname);
+		gds__free(walr);
+		WALF_dispose_log_header(log_header);
+		return FAILURE;
+	}
+
+	walr->walr_next_blkhdr = (WALBLK_HDR *) walr->walr_read_ahead_buffer;
+	memcpy(walr->walr_next_blkhdr, sector_bytes, read_ahead_bytes);
+	walr->walr_buffer =
+		(UCHAR *) gds__alloc(MAX_WALBUFLEN + read_ahead_bytes);
+/* NOMEM: return error, FREE: error return or log_close() */
+	if (!walr->walr_buffer) {
+		gds__free(walr->walr_read_ahead_buffer);
+		gds__free(walr->walr_logname);
+		gds__free(walr);
+		WALF_dispose_log_header(log_header);
+		return FAILURE;
+	}
+
+	walr->walr_blkhdr = (WALBLK_HDR *) walr->walr_buffer;	/* fixed for all subsequent blocks */
+	walr->walr_blkhdr->walblk_hdr_blklen = 0;	/* Initialization for the subsequent read */
+
+/* Now that the walr structure has been set up, set the handle to it */
+
+	WALRS_handle->walrs_walr = walr;
+
+/* Read ahead the first block in anticipation of subsequent WALR_get() calls. */
+	if ((ret = read_next_block(status_vector, WALRS_handle)) != SUCCESS) {
+		/* log_close() free's all dangling allocations off of walr */
+		log_close(walr);
+		gds__free((SLONG *) walr);
+		WALRS_handle->walrs_walr = NULL;
+		return ret;
+	}
+
+	if (offset > 0) {
+		walr->walr_rec_offset = rec_offset;
+	}
+
+	return SUCCESS;
+}
+
+
+static SSHORT read_next_block( STATUS * status_vector, WALRS WALRS_handle)
+{
+/**************************************
+ *
+ *        r e a d _ n e x t _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *        Read a block from the current log file.  The block header 
+ *        has already been read into 
+ *        WALRS_handle->walrs_walr->walr_next_blkhdr.  
+ *        Rolls over the reading to the next log file in sequence after the
+ *        current one finishes.     
+ *
+ *        Returns -1 if eof (end of all logs or timestamp limit) reached.
+ *
+ **************************************/
+	SSHORT ret;
+	SLONG len, read_len;
+	UCHAR *ptr;
+	USHORT last_block_len, trailing_length;
+	WALR WALR_handle;
+	SCHAR *next_logname;
+	SLONG next_log_partition_offset;
+	SLONG *timestamp, *blk_timestamp;
+
+	if (WALRS_handle->walrs_flags & WALRS_EOF_SCAN)
+		return -1;				/* end of log records */
+
+	WALR_handle = WALRS_handle->walrs_walr;
+	if (WALR_handle->walr_flags & WALR_EOF) {
+		/* Try to rollover to the next log file, if any. */
+
+		if (get_next_logname(WALRS_handle, &next_logname,
+							 &next_log_partition_offset) != SUCCESS)
+			return -1;			/* end of log records */
+
+		ret = log_open(status_vector, WALRS_handle, next_logname,
+					   next_log_partition_offset, 0L);
+		if (ret == SUCCESS) {
+			LLIO_close(0, WALR_handle->walr_fd);
+			dispose_walr_handle(WALR_handle);
+			return SUCCESS;
+		}
+		else
+			return -1;			/* end of log records */
+	}
+
+	last_block_len = BLKHDR->walblk_hdr_blklen;
+
+/* First get the next block header in the beginning of the buffer. */
+
+	memcpy(WALR_handle->walr_buffer, WALR_handle->walr_read_ahead_buffer,
+		   WALR_handle->walr_read_ahead_bytes);
+
+/* Now read the remaining part of the log block, including the next 
+   block header, if any */
+
+	len = (int) BLKHDR->walblk_hdr_blklen;
+	ptr = &WALR_handle->walr_buffer[WALR_handle->walr_read_ahead_bytes];
+	if (LLIO_read(0, WALR_handle->walr_fd, 0, 0L, LLIO_SEEK_NONE,
+				  ptr, len, &read_len) ||
+		(read_len < (len - WALR_handle->walr_read_ahead_bytes))) {
+		/* log block too small, we must have reached end-of-log at the time 
+		   of crash. */
+
+		return -1;				/* end of log records */
+	}
+	else {
+		/* First check the consistency in terms of the trailing block length. */
+
+		ptr = &WALR_handle->walr_buffer[len - BLK_TAILOVHD];
+		memcpy((SCHAR *) & trailing_length, ptr, BLK_TAILOVHD);
+		if ((int) trailing_length != len)
+			return -1;			/* We have found an inconsistent block.  Assume this 
+								   to be end of log because there might have been a crash 
+								   after the previous block was properly written */
+
+		if (read_len == (len - WALR_handle->walr_read_ahead_bytes)) {
+			/* This may be the last block of this log file. */
+
+			if (BLKHDR->walblk_hdr_bsn <
+				WALR_handle->walr_log_header->walfh_hibsn) {
+				/* unexpected end of log file. */
+
+				WAL_FORMAT_ERROR(status_vector, gds__logf_unexpected_eof,
+								 WALR_handle->walr_logname,
+								 WALR_handle->walr_offset);
+				return FAILURE;
+			}
+			else
+				WALR_handle->walr_flags |= WALR_EOF;	/* For the next time */
+		}
+		else if (read_len < len) {
+			/* The next block header did not seem to have been written properly. */
+
+			WALR_handle->walr_flags |= WALR_EOF;	/* For the next time */
+		}
+		else {
+			/* We have read the the current block as well as the header of 
+			   the next block.  Make sure that the next header looks okay. */
+
+			memcpy((SCHAR *) WALR_handle->walr_read_ahead_buffer,
+				   (SCHAR *) & WALR_handle->walr_buffer[len],
+				   WALR_handle->walr_read_ahead_bytes);
+
+			if (WALR_handle->walr_next_blkhdr->walblk_hdr_bsn !=
+				WALR_handle->walr_next_bsn) WALR_handle->walr_flags |= WALR_EOF;	/* For the next time */
+			WALR_handle->walr_next_bsn++;	/* expected seqno for the next block */
+
+			/* Check the time stamp of the next block, if necessary */
+
+			if (WALRS_handle->walrs_flags & WALRS_TIMESTAMP) {
+				timestamp = WALRS_handle->walrs_timestamp;
+				blk_timestamp =
+					WALR_handle->walr_next_blkhdr->walblk_hdr_timestamp;
+				if ((blk_timestamp[0] > timestamp[0])
+					|| ((blk_timestamp[0] == timestamp[0])
+						&& (blk_timestamp[1] > timestamp[1])))
+					WALRS_handle->walrs_flags |= WALRS_EOF_SCAN;	/* For the next time */
+			}
+		}
+	}
+
+/* Now set the access fields */
+
+	WALR_handle->walr_offset += last_block_len;
+	REC_OFFSET = BLK_HDROVHD;
+
+	return SUCCESS;
+}
diff --git a/src/wal/walr_proto.h b/src/wal/walr_proto.h
new file mode 100644
index 0000000000..53fc1b1976
--- /dev/null
+++ b/src/wal/walr_proto.h
@@ -0,0 +1,33 @@
+/*
+ *	PROGRAM:	JRD Write Ahead LOG APIs 
+ *	MODULE:		walr_proto.h
+ *	DESCRIPTION:	Prototype header file for walr.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _WAL_WALR_PROTO_H_
+#define _WAL_WALR_PROTO_H_
+
+extern SSHORT	WALR_close (STATUS *, struct walrs **);
+extern SSHORT	WALR_fixup_log_header (STATUS *, struct walrs *);
+extern SSHORT	WALR_get (STATUS *, struct walrs *, UCHAR *, USHORT *, SLONG *, SLONG *);
+extern SSHORT	WALR_get_blk_timestamp (struct walrs *, SLONG *);
+extern SSHORT	WALR_open (STATUS *, struct walrs **, SCHAR *, int, SCHAR **, SLONG *, SLONG, SLONG *, SSHORT);
+
+#endif /* _WAL_WALR_PROTO_H_ */ 
diff --git a/src/wal/walw.cpp b/src/wal/walw.cpp
new file mode 100644
index 0000000000..b16ac95e5d
--- /dev/null
+++ b/src/wal/walw.cpp
@@ -0,0 +1,2322 @@
+/*
+ *        PROGRAM:        JRD Write Ahead Log Writer
+ *        MODULE:         walw.c
+ *        DESCRIPTION:    Write Ahead Log Writer
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../jrd/ib_stdio.h"
+#include <stdlib.h>
+#include <string.h>
+#include "../jrd/time.h"
+#include "../jrd/jrd.h"
+#include "../jrd/isc.h"
+#include "../wal/wal.h"
+#include "../jrd/dsc.h"
+#include "../jrd/jrn.h"
+#include "../jrd/iberr.h"
+#include "../jrd/llio.h"
+#include "../jrd/codes.h"
+#include "../jrd/license.h"
+#include "../wal/wal_proto.h"
+#include "../wal/walc_proto.h"
+#include "../wal/walf_proto.h"
+#include "../wal/walw_proto.h"
+#include "../jrd/gds_proto.h"
+#include "../jrd/iberr_proto.h"
+#include "../jrd/isc_i_proto.h"
+#include "../jrd/isc_s_proto.h"
+#include "../jrd/jrn_proto.h"
+#include "../jrd/llio_proto.h"
+#include "../jrd/misc_proto.h"
+
+#include <setjmp.h>
+#if !(defined WIN_NT)
+#ifndef VMS
+#include <sys/types.h>
+#ifndef IMP
+#ifndef NETWARE_386
+#include <sys/file.h>
+#endif
+#endif
+#else
+#include <types.h>
+#include <file.h>
+#endif
+#include <errno.h>
+#include <signal.h>
+#endif
+
+#ifdef IMP
+#include <unistd.h>
+#endif
+#ifdef DELTA
+#include <unistd.h>
+#endif
+#ifdef sparc
+#include <unistd.h>
+#endif
+#ifdef UNIX
+#include <sys/stat.h>
+#endif
+
+#ifdef WIN_NT
+#include <process.h>
+#include <io.h>
+#include <windows.h>
+#ifdef TEXT
+#undef TEXT
+#endif
+#define TEXT	SCHAR
+#define ERRNO	GetLastError()
+#endif
+
+
+extern "C" {
+
+
+#ifdef SUPERSERVER
+#define exit(code)	return (code)
+#ifdef NETWARE_386
+#define getpid          GetThreadID
+#endif
+#ifdef WIN_NT
+#define getpid          GetCurrentThreadId
+#endif
+#endif
+
+#ifndef ERRNO
+#define ERRNO	errno
+#endif
+
+typedef struct walwl {
+	jmp_buf walwl_env;
+	SLONG walwl_log_fd;
+	struct jrn *walwl_journal_handle;
+	SLONG walwl_local_time[2];
+	SLONG walwl_flags;
+	IB_FILE *walwl_debug_fd;
+} *WALWL;
+
+#define WALW_WRITER_TIMEOUT_USECS	3000000
+#define WALW_DISABLING_JRN		1
+#define MAXLOGS				32
+#define WALW_ERROR(status_vector)	IBERR_build_status (status_vector, gds__walw_err, 0)
+
+#define ENV			((WALWL)WAL_handle->wal_local_info_ptr)->walwl_env
+#define LOG_FD			((WALWL)WAL_handle->wal_local_info_ptr)->walwl_log_fd
+#define JOURNAL_HANDLE		((WALWL)WAL_handle->wal_local_info_ptr)->walwl_journal_handle
+#define LOCAL_TIME		((WALWL)WAL_handle->wal_local_info_ptr)->walwl_local_time
+#define LOCAL_FLAGS		((WALWL)WAL_handle->wal_local_info_ptr)->walwl_flags
+#define DEBUG_FD		((WALWL)WAL_handle->wal_local_info_ptr)->walwl_debug_fd
+#define DBNAME			WAL_handle->wal_dbname
+#define PRINT_DEBUG_MSGS	(WAL_segment->wals_flags2 & WALS2_DEBUG_MSGS)
+
+#define PRINT_TIME(fd,t)	{ time((time_t*) t); ib_fprintf (fd, "%s", ctime((time_t*) t)); }
+
+static void close_log(STATUS *, WAL, SCHAR *, WALFH, SLONG);
+static SSHORT discard_prev_logs(STATUS *, SCHAR *, SCHAR *, SLONG, SSHORT);
+static void finishup_checkpoint(WALS);
+static SSHORT flush_all_buffers(STATUS *, WAL);
+static SSHORT get_logfile_index(WALS, SCHAR *);
+static BOOLEAN get_log_usability(STATUS *, SCHAR *, SCHAR *, SLONG);
+static SSHORT get_next_logname(STATUS *, WALS, SCHAR *, SLONG *, SLONG *);
+static SSHORT get_next_prealloc_logname(STATUS *, WALS, SCHAR *, SLONG *,
+										SLONG *);
+static SSHORT get_next_serial_logname(STATUS *, WALS, SCHAR *, SLONG *,
+									  SLONG *);
+static BOOLEAN get_next_usable_partition(STATUS *, SCHAR *, SCHAR *, SLONG *);
+static SSHORT get_overflow_logname(STATUS *, WALS, SCHAR *, SLONG *, SLONG *);
+static void get_time_stamp(SLONG *);
+static SSHORT increase_buffers(STATUS *, WAL, SSHORT);
+static SSHORT init_raw_partitions(STATUS *, WAL);
+static SSHORT journal_connect(STATUS *, WAL);
+static void journal_disable(STATUS *, WAL, WALFH);
+static SSHORT journal_enable(STATUS *, WAL);
+static void prepare_wal_block(WALS, WALBLK *);
+static void release_wal_block(WALS, WALBLK *);
+static void report_walw_bug_or_error(STATUS *, struct wal *, SSHORT, STATUS);
+static SSHORT rollover_log(STATUS *, WAL, WALFH);
+static void setup_for_checkpoint(WALS);
+static SSHORT setup_log(STATUS *, WAL, SCHAR *, SLONG, SLONG, SLONG *, WALFH,
+						SSHORT, SCHAR *, SLONG);
+static SSHORT setup_log_header_info(STATUS *, WAL, SCHAR *, SLONG, SLONG,
+									SLONG *, WALFH, SSHORT, SCHAR *, SLONG,
+									SSHORT *);
+static SSHORT write_log_header_and_reposition(STATUS *, SCHAR *, SLONG,
+											  WALFH);
+static SSHORT write_wal_block(STATUS *, WALBLK *, SCHAR *, SLONG);
+static void write_wal_statistics(WAL);
+
+static WAL_TERMINATOR(log_terminator_block);
+
+
+#ifdef SUPERSERVER
+int main_walw( char **argv)
+#else
+
+int CLIB_ROUTINE main( int argc, char **argv)
+#endif
+{
+/**************************************
+ *
+ *	m a i n
+ *
+ **************************************
+ *
+ * Functional description
+ *	WAL_writer is used only in the privileged WAL writer 
+ *	process.  One WAL writer process is started per database.
+ *
+ **************************************/
+	STATUS status_vector[20];
+	WAL WAL_handle;
+	SCHAR dbg_file[MAXPATHLEN];
+	IB_FILE *debug_fd;
+	struct walwl local_info;
+	SCHAR *dbname, c, *p, **end;
+#ifdef SUPERSERVER
+	int argc;
+
+	argc = (int) argv[0];
+#endif
+
+	dbname = "";
+	for (end = argv++ + argc; argv < end;) {
+		p = *argv++;
+		if (*p != '-')
+			dbname = p;
+		else {
+			while (c = *++p)
+				switch (UPPER(c)) {
+				case 'D':
+					dbname = *argv++;
+					break;
+
+				case 'Z':
+					ib_printf("WAL writer version %s\n", GDS_VERSION);
+					exit(FINI_OK);
+				}
+		}
+	}
+
+#ifdef UNIX
+/* WAL writer has to run as 'root' to be able to access a
+   raw device logs.  */
+
+	if (setreuid(0, 0) == -1) {
+		ib_printf
+			("WAL writer: couldn't set uid to 0 for database %s, errno=%d\n",
+			 dbname, errno);
+		exit(FINI_ERROR);
+	}
+
+	divorce_terminal(0);
+#endif
+
+/* Create a debug file if not already present */
+
+	WALC_build_dbg_filename(dbname, dbg_file);
+
+	debug_fd = ib_fopen(dbg_file, "a");	/* Do it after divorce_terminal() */
+
+	WAL_handle = NULL;
+	if (WALC_init(status_vector, &WAL_handle, dbname, 0,
+				  NULL, 0L, FALSE, 1L, 0, NULL, FALSE) != SUCCESS) {
+		gds__log_status(dbname, status_vector);
+		gds__print_status(status_vector);
+		exit(FINI_ERROR);
+	}
+
+	ISC_signal_init();
+	WAL_handle->wal_local_info_ptr = (UCHAR *) & local_info;
+	JOURNAL_HANDLE = NULL;
+	LOCAL_FLAGS = 0L;
+
+	DEBUG_FD = debug_fd;
+
+	WALW_writer(status_vector, WAL_handle);
+
+	WALC_fini(status_vector, &WAL_handle);
+
+	ib_fclose(debug_fd);
+
+	exit(FINI_OK);
+}
+
+
+#ifdef VMS
+void ERR_post(stuff)
+	 STATUS stuff;
+{
+/**************************************
+ *
+ *	E R R _ p o s t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Post an error sequence to the status vector.  Since an error
+ *	sequence can, in theory, be arbitrarily lock, pull a cheap
+ *	trick to get the address of the argument vector.
+ *
+ **************************************/
+	STATUS *p, *q, status_vector[20];
+	int type;
+
+/* Get the addresses of the argument vector and the status vector, and do
+   word-wise copy. */
+
+	p = status_vector;
+	q = &stuff;
+
+/* Copy first argument */
+
+	*p++ = gds_arg_gds;
+	*p++ = *((SLONG *) q)++;
+
+/* Pick up remaining args */
+
+	while (*p++ = type = *((int *) q)++)
+		switch (type) {
+		case gds_arg_gds:
+			*p++ = *((STATUS *) q)++;
+			break;
+
+		case gds_arg_number:
+			*p++ = *((SLONG *) q)++;
+			break;
+
+		case gds_arg_vms:
+		case gds_arg_unix:
+		case gds_arg_domain:
+		case gds_arg_mpexl:
+		default:
+			*p++ = *((int *) q)++;
+			break;
+
+		case gds_arg_string:
+		case gds_arg_interpreted:
+			*p++ = *q++;
+			break;
+
+		case gds_arg_cstring:
+			*p++ = *((int *) q)++;
+			*p++ = *q++;
+			break;
+		}
+
+	gds__print_status(status_vector);
+
+	exit(FINI_ERROR);
+}
+#endif
+
+
+SSHORT WALW_writer(STATUS * status_vector, WAL WAL_handle)
+{
+/**************************************
+ *
+ *	W A L W _ w r i t e r 
+ *
+ **************************************
+ *
+ * Functional description
+ *	This is the main processing routine for the WAL writer.
+ *	This routine simply waits on its semaphore in a loop.  If
+ *	the semaphore is poked, or an alarm expires, it wakes up,
+ *	looks for buffers to be written to the log file, writes 
+ *	them, and wakes up everyone waiting for a free buffer 
+ *	before going back to sleep.
+ *
+ *	In addition to writing WAL buffers to log files, it also 
+ *	takes care of such functions as checkpointing, rollover,
+ *	enabling and disabling journalling and WAL shutdown.
+ *
+ **************************************/
+	SSHORT ret;
+	WALS WAL_segment;
+	WALBLK *wblk;
+	SSHORT bufnum, first_logfile;
+	WALFH log_header;
+	int buffer_full, journal_enable_or_disable, rollover_required;
+	BOOLEAN acquired;
+	EVENT ptr;
+	SLONG value;
+	SLONG log_type;
+#define WALW_WRITER_RETURN(code) {gds__free((SLONG*)log_header); return(code);}
+
+	acquired = FALSE;
+	log_header = (WALFH) gds__alloc(WALFH_LENGTH);
+/* NOMEM: return failure, FREE: error returns & macro WALW_WRITER_RETURN */
+	if (!log_header)
+		return FAILURE;
+	if (setjmp(ENV)) {
+		if (acquired)
+			WALC_release(WAL_handle);
+		WALW_WRITER_RETURN(FAILURE);
+	}
+
+/* If there already is a WAL writer running, return quietly. */
+
+	if (WALC_check_writer(WAL_handle) == SUCCESS)
+		WALW_WRITER_RETURN(SUCCESS);
+
+/* Now we are the WAL writer. */
+
+	ret = SUCCESS;
+	WAL_TERMINATOR_SET(log_terminator_block);
+
+	WALC_acquire(WAL_handle, &WAL_segment);
+	acquired = TRUE;
+	if (PRINT_DEBUG_MSGS) {
+		ib_fprintf(DEBUG_FD,
+				   "====================================================\n");
+		PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+		ib_fprintf(DEBUG_FD, "WAL writer for database %s starting, pid=%d.\n",
+				   DBNAME, getpid());
+	}
+
+	WAL_segment->wals_writer_pid = getpid();
+	WAL_segment->wals_flags &= ~WALS_ERROR_HAPPENED;
+	WAL_segment->wals_last_err = 0;
+	WAL_CHECK_BUG_ERROR(WAL_handle, WAL_segment);
+
+	first_logfile =
+		(WAL_segment->wals_flags & WALS_FIRST_TIME_LOG) ? TRUE : FALSE;
+	log_type = 0L;
+	if (first_logfile) {
+		/* Initialize raw partitions which need root permission */
+
+		init_raw_partitions(status_vector, WAL_handle);
+
+		/* Get the new log name and partition */
+
+		if (get_next_logname(status_vector, WAL_segment,
+							 WAL_segment->wals_logname,
+							 &WAL_segment->wals_log_partition_offset,
+							 &log_type) != SUCCESS)
+				report_walw_bug_or_error(status_vector, WAL_handle, FAILURE,
+										 (STATUS) gds__wal_err_rollover2);
+	}
+
+	if (strlen(WAL_segment->wals_jrn_dirname))
+		journal_connect(status_vector, WAL_handle);
+
+	if (WAL_segment->wals_ckpted_log_seqno == 0L) {
+		/* Initialize checkpoint info.  Current logfile may be assumed
+		   to have the latest checkpoint */
+
+		WAL_segment->wals_ckpted_log_seqno = WAL_segment->wals_log_seqno;
+		strcpy(WAL_segment->wals_ckpt_logname, WAL_segment->wals_logname);
+		WAL_segment->wals_ckpt_log_p_offset =
+			WAL_segment->wals_log_partition_offset;
+		WAL_segment->wals_ckpted_offset = 0;
+
+		WAL_segment->wals_prev_ckpted_log_seqno = WAL_segment->wals_log_seqno;
+		strcpy(WAL_segment->wals_prev_ckpt_logname,
+			   WAL_segment->wals_logname);
+		WAL_segment->wals_prev_ckpt_log_p_offset =
+			WAL_segment->wals_log_partition_offset;
+		WAL_segment->wals_prev_ckpted_offset = 0;
+	}
+
+	ret = setup_log(status_vector, WAL_handle, WAL_segment->wals_logname,
+					WAL_segment->wals_log_partition_offset, log_type,
+					&(LOG_FD), log_header, first_logfile, "", 0L);
+	if (ret == SUCCESS) {
+		WAL_segment->wals_flags |= WALS_WRITER_INITIALIZED;
+		WAL_segment->wals_flags &= ~WALS_FIRST_TIME_LOG;
+	}
+	WALC_release(WAL_handle);
+	acquired = FALSE;
+
+	if (ret != SUCCESS) {
+		report_walw_bug_or_error(status_vector, WAL_handle, ret,
+								 (STATUS) gds__wal_err_setup);
+		if (JOURNAL_HANDLE)
+			JRN_fini(status_vector, &(JOURNAL_HANDLE));
+		WALW_WRITER_RETURN(ret);
+	}
+
+	for (;;) {
+		WALC_acquire(WAL_handle, &WAL_segment);
+		acquired = TRUE;
+		WAL_CHECK_BUG_ERROR(WAL_handle, WAL_segment);
+
+		/* First find out the work to be done. */
+
+		if (WAL_segment->wals_flags & WALS_SHUTDOWN_WRITER)
+			break;				/* This is the only way to get out of this loop. */
+
+		/* Check the next buffer to be written. */
+
+		bufnum =
+			(WAL_segment->wals_last_flushed_buf +
+			 1) % WAL_segment->wals_maxbufs;
+		wblk = WAL_BLOCK(bufnum);
+		buffer_full = wblk->walblk_flags & WALBLK_to_be_written;
+
+		/* Check if journalling is enabled or disabled */
+
+		journal_enable_or_disable =
+			(WAL_segment->wals_flags & WALS_ENABLE_JOURNAL) ||
+			(WAL_segment->wals_flags & WALS_DISABLE_JOURNAL);
+
+		/* Check if rollover to a new log file is required */
+
+		rollover_required = WAL_segment->wals_flags & WALS_ROLLOVER_REQUIRED;
+
+		if (!buffer_full && !journal_enable_or_disable && !rollover_required) {
+			/* Nothing to do.  Prepare to wait for a timeout or a wakeup 
+			   from somebody else. */
+
+			ptr = &WAL_EVENTS[WAL_WRITER_WORK_SEM];
+			value = ISC_event_clear(ptr);
+			WAL_segment->wals_flags &= ~WALS_WRITER_INFORMED;
+			WALC_release(WAL_handle);
+			acquired = FALSE;
+			ISC_event_wait(1, &ptr, &value, WALW_WRITER_TIMEOUT_USECS,
+						   reinterpret_cast < void (*)() >
+						   (WALC_alarm_handler), ptr);
+			continue;
+		}
+
+		/* Now do the work */
+
+		if (buffer_full) {
+			/* Prepare and flush the associated buffer to log file. */
+
+			prepare_wal_block(WAL_segment, wblk);
+
+			/* Do the write after releasing the shared segment so that 
+			   other concurrent activities may go on in the meantime. */
+
+			WALC_release(WAL_handle);
+			acquired = FALSE;
+
+			if ((ret = write_wal_block(status_vector, wblk,
+									   WAL_segment->wals_logname,
+									   LOG_FD)) !=
+				SUCCESS) report_walw_bug_or_error(status_vector, WAL_handle,
+												  ret,
+												  (STATUS)
+												  gds__wal_err_logwrite);
+
+			WALC_acquire(WAL_handle, &WAL_segment);
+			acquired = TRUE;
+
+			wblk = WAL_BLOCK(bufnum);
+			release_wal_block(WAL_segment, wblk);
+
+			/* If the WAL segment needs to be expanded and can be expanded
+			   try to do it now because no WAL I/O is in progress and we 
+			   can move things around. */
+
+			if (!(WAL_segment->wals_flags2 & WALS2_CANT_EXPAND) &&
+				(WAL_segment->wals_flags2 & WALS2_EXPAND)) {
+				increase_buffers(status_vector, WAL_handle, 1);
+				WAL_segment = WAL_handle->wal_segment;
+				WAL_segment->wals_buf_waiting_count = 0;
+				WAL_segment->wals_flags2 &= ~(WALS2_EXPAND);
+			}
+
+			/* If it is time for checkpointing, then initiate one. */
+
+			if (
+				(WAL_segment->wals_cur_ckpt_intrvl >
+				 WAL_segment->wals_thrshold_intrvl)
+				&& !(WAL_segment->wals_flags & WALS_CKPT_START)) {
+				setup_for_checkpoint(WAL_segment);
+			}
+
+			WAL_segment->wals_buf_waiters = 0;
+			ISC_event_post(WAL_EVENTS + WAL_WRITER_WORK_DONE_SEM);
+			ISC_event_clear(WAL_EVENTS + WAL_WRITER_WORK_DONE_SEM);
+		}
+
+		/* if a checkpoint has been recorded, discard old log files. */
+
+		if ((WAL_segment->wals_flags & WALS_CKPT_START) &&
+			(WAL_segment->wals_flags & WALS_CKPT_RECORDED)) {
+			discard_prev_logs(status_vector, WAL_segment->wals_dbname,
+							  WAL_segment->wals_prev_ckpt_logname,
+							  WAL_segment->wals_prev_ckpt_log_p_offset,
+							  FALSE);
+#ifdef SUPERSERVER
+			/* In Netware, file handles are shared if the file is reopened in the
+			   same thread.  discard_prev_log() may open the current log file to
+			   check its header for previously linked log files.  That would change
+			   the file pointer to WALFH_LENGTH (2048) causing us to loose log records
+			   in the current log file unless we do reseeking. This action won't 
+			   hurt on other platforms. */
+			lseek(LOG_FD, WAL_segment->wals_flushed_offset, SEEK_SET);
+#endif
+			WAL_segment->wals_flags &=
+				~(WALS_CKPT_START + WALS_CKPT_RECORDED);
+		}
+
+		/* If it is time to rollover to the next log file then do it.  But
+		   make sure that the last rollover information, if any, has 
+		   already been recorded. */
+
+		if (rollover_required) {
+			rollover_log(status_vector, WAL_handle, log_header);
+			WAL_segment->wals_buf_waiters = 0;
+			WAL_segment->wals_flags &= ~WALS_ROLLOVER_REQUIRED;
+			ISC_event_post(WAL_EVENTS + WAL_WRITER_WORK_DONE_SEM);
+			ISC_event_clear(WAL_EVENTS + WAL_WRITER_WORK_DONE_SEM);
+		}
+
+		/* If journalling has been enabled or disabled, take care of that 
+		   situation now. */
+
+		if (journal_enable_or_disable) {
+			if ((WAL_segment->wals_flags & WALS_ENABLE_JOURNAL) &&
+				!JOURNAL_HANDLE) journal_enable(status_vector, WAL_handle);
+			else if ((WAL_segment->wals_flags & WALS_DISABLE_JOURNAL) &&
+					 JOURNAL_HANDLE)
+					journal_disable(status_vector, WAL_handle, log_header);
+
+			ISC_event_post(WAL_EVENTS + WAL_WRITER_WORK_DONE_SEM);
+			ISC_event_clear(WAL_EVENTS + WAL_WRITER_WORK_DONE_SEM);
+		}
+
+		WALC_release(WAL_handle);
+		acquired = FALSE;
+	}
+
+/* Do cleanup and shutdown. */
+
+	log_header->walfh_length = WAL_segment->wals_flushed_offset;
+	log_header->walfh_hibsn = WAL_segment->wals_blkseqno - 1;
+	close_log(status_vector, WAL_handle, WAL_segment->wals_logname,
+			  log_header,
+			  WAL_segment->wals_flags & WALS_INFORM_CLOSE_TO_JOURNAL);
+	write_wal_statistics(WAL_handle);
+	WAL_segment->wals_flags |= WALS_WRITER_DONE;
+	WAL_segment->wals_writer_pid = 0;
+	WALC_release(WAL_handle);
+	acquired = FALSE;
+
+	if (JOURNAL_HANDLE)
+		JRN_fini(status_vector, &(JOURNAL_HANDLE));
+
+	ISC_event_clear(WAL_EVENTS + WAL_WRITER_WORK_DONE_SEM);
+
+	WALW_WRITER_RETURN(SUCCESS);
+}
+
+
+static void close_log(
+					  STATUS * status_vector,
+					  WAL WAL_handle,
+					  SCHAR * logname, WALFH log_header, SLONG journal_flag)
+{
+/**************************************
+ *
+ *	c l o s e _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	Closes the log file after updating its header with info from
+ *	the passed log_header pointers.
+ *
+ **************************************/
+	SSHORT ret;
+	WALS WAL_segment;
+
+	WAL_segment = WAL_handle->wal_segment;
+	log_header->walfh_flags &= ~WALFH_OPEN;
+	log_header->walfh_data_len =
+		MISC_build_parameters_block(log_header->walfh_data,
+									PARAM_BYTE(WALFH_dbname),
+									PARAM_STRING(log_header->walfh_dbname),
+									PARAM_BYTE(WALFH_prev_logname),
+									PARAM_STRING(log_header->
+												 walfh_prev_logname),
+									PARAM_BYTE(WALFH_next_logname),
+									PARAM_STRING(log_header->
+												 walfh_next_logname),
+									PARAM_BYTE(WALFH_end), 0);
+	if (log_header->walfh_dbname)
+		gds__free((SLONG *) log_header->walfh_dbname);
+	if (log_header->walfh_prev_logname)
+		gds__free((SLONG *) log_header->walfh_prev_logname);
+	if (log_header->walfh_next_logname)
+		gds__free((SLONG *) log_header->walfh_next_logname);
+
+	if ((ret = write_log_header_and_reposition(status_vector, logname, LOG_FD,
+											   log_header)) != SUCCESS)
+		report_walw_bug_or_error(status_vector, WAL_handle, ret,
+								 (STATUS) gds__wal_err_logwrite);
+	LLIO_close(0, LOG_FD);
+
+	if (PRINT_DEBUG_MSGS) {
+		PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+		ib_fprintf(DEBUG_FD,
+				   "Closed seqno=%d, log %s, p_offset=%d, length=%d\n",
+				   log_header->walfh_seqno, logname,
+				   log_header->walfh_log_partition_offset,
+				   log_header->walfh_length);
+	}
+
+	if (journal_flag && JOURNAL_HANDLE) {
+		ret = JRN_put_wal_name(status_vector, JOURNAL_HANDLE,
+							   logname, strlen(logname),
+							   log_header->walfh_seqno,
+							   log_header->walfh_length,
+							   log_header->walfh_log_partition_offset,
+							   JRNW_CLOSE);
+
+		if (PRINT_DEBUG_MSGS) {
+			PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+			ib_fprintf(DEBUG_FD,
+					   "After calling JRN_put_wal_name() for seqno=%d, ret=%d\n",
+					   log_header->walfh_seqno, ret);
+		}
+
+		if (ret != SUCCESS)
+			report_walw_bug_or_error(status_vector, WAL_handle, ret,
+									 (STATUS) gds__wal_err_jrn_comm);
+	}
+}
+
+
+static SSHORT discard_prev_logs(
+								STATUS * status_vector,
+								SCHAR * dbname,
+								SCHAR * starting_logname,
+SLONG starting_log_partition_offset, SSHORT delete_flag)
+{
+/**************************************
+ *
+ *	d i s c a r d _ p r e v _ l o g s
+ *
+ **************************************
+ *
+ * Functional description
+ *	From the starting_logname backwards, excluding the starting
+ *	one, mark all the log files as NOT needed for short-term
+ *	recovery.  Delete those files if appropriate AND/OR if 
+ *	delete_flag is TRUE.
+ *
+ *	If there is any error, return FAILURE else return SUCCESS.
+ *	In case of error, status_vector would be updated.
+ *
+ **************************************/
+	SCHAR s_logname[MAXPATHLEN];
+	SLONG s_log_partition_offset;
+	SCHAR lognames_buffer[MAXLOGS * MAXPATHLEN];	/* To hold all the lognames */
+	SCHAR *logs_names[MAXLOGS];
+	SLONG log_partitions_offsets[MAXLOGS];
+	SLONG logs_seqnos[MAXLOGS];
+	SLONG logs_lengths[MAXLOGS];
+	SLONG logs_flags[MAXLOGS];
+	int log_count, count;
+	SCHAR *log_name;
+	SLONG log_partition_offset;
+	SLONG log_flag;
+	SSHORT ret;
+	SLONG old_seqno, new_seqno;
+
+	strcpy(s_logname, starting_logname);
+	s_log_partition_offset = starting_log_partition_offset;
+
+	old_seqno = 0;
+	while (TRUE) {
+		/* Exhaust checking all the previously linked log files */
+
+		log_count = 0;
+		ret = WALF_get_all_next_logs_info(status_vector, dbname,
+										  s_logname, s_log_partition_offset,
+										  MAXLOGS,
+										  lognames_buffer, &log_count,
+										  logs_names, log_partitions_offsets,
+										  logs_seqnos, logs_lengths,
+										  logs_flags, -1);
+		if (ret != SUCCESS)
+			return ret;
+
+		if (log_count < MAXLOGS)
+			count = 0;			/* to start deleting log files */
+		else {
+			count = 1;			/* to start deleting log files */
+
+			/* setup for the next iteration */
+
+			strcpy(s_logname, logs_names[0]);
+			s_log_partition_offset = log_partitions_offsets[0];
+		}
+
+		/* Now see if any old log files may be deleted. */
+		for (; count < log_count; count++) {
+			new_seqno = logs_seqnos[count];
+			if (new_seqno <= old_seqno)
+				return SUCCESS;	/* We are done with the log list */
+			old_seqno = new_seqno;
+			log_name = logs_names[count];
+			log_partition_offset = log_partitions_offsets[count];
+			log_flag = logs_flags[count];
+
+			/* We can delete a log file if it is NOT needed for SLONG-term
+			   recovery AND it is NOT a pre-allocated file AND (EITHER it
+			   is an overflow file OR the delete flag is true). */
+
+			if (!(log_flag & WALFH_KEEP_FOR_LONG_TERM_RECV) &&
+				!(log_flag & WALFH_PREALLOCATED) &&
+				((log_flag & WALFH_OVERFLOW) || delete_flag)) {
+				/* We may delete this file. */
+				WALF_delink_log(status_vector, dbname, log_name,
+								log_partition_offset);
+				if (unlink(log_name) != SUCCESS) {
+					WAL_IO_ERROR(status_vector, "logfile unlink", log_name,
+								 isc_io_delete_err, ERRNO);
+					WALC_save_status_strings(status_vector);
+					return FAILURE;
+				}
+			}
+			else {
+				/* Just update the header flag stating that we don't need this 
+				   file for short-term recovery. */
+				WALF_set_log_header_flag(status_vector, dbname, log_name,
+										 log_partition_offset,
+										 WALFH_KEEP_FOR_SHORT_TERM_RECV, 0);
+			}
+		}
+
+		if (log_count < MAXLOGS)
+			break;				/* No more previous log files to check */
+	}
+
+	return SUCCESS;
+}
+
+
+static void finishup_checkpoint( WALS WAL_segment)
+{
+/**************************************
+ *
+ *	f i n i s h u p _ c h e c k p o i n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Store latest checkpoint information.
+ *
+ **************************************/
+
+	WAL_segment->wals_prev_ckpted_log_seqno =
+		WAL_segment->wals_ckpted_log_seqno;
+	strcpy(WAL_segment->wals_prev_ckpt_logname,
+		   WAL_segment->wals_ckpt_logname);
+	WAL_segment->wals_prev_ckpt_log_p_offset =
+		WAL_segment->wals_ckpt_log_p_offset;
+	WAL_segment->wals_prev_ckpted_offset = WAL_segment->wals_ckpted_offset;
+
+	WAL_segment->wals_ckpted_log_seqno = WAL_segment->wals_log_seqno;
+	strcpy(WAL_segment->wals_ckpt_logname, WAL_segment->wals_logname);
+	WAL_segment->wals_ckpt_log_p_offset =
+		WAL_segment->wals_log_partition_offset;
+
+/* The checkpoint record is the last "empty" record in the current block.
+   Its offset has already been saved for us, just use it. */
+
+	WAL_segment->wals_ckpted_offset = WAL_segment->wals_saved_ckpted_offset;
+	WAL_segment->wals_saved_ckpted_offset = 0L;
+
+	WAL_segment->wals_cur_ckpt_intrvl = 0L;
+}
+
+
+static SSHORT flush_all_buffers( STATUS * status_vector, WAL WAL_handle)
+{
+/**************************************
+ *
+ *	f l u s h _ a l l _ b u f f e r s 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Flush all the non-empty buffer blocks to the current
+ *	log file.  We need not worry about rollover because we
+ *	have already given its log file sequence number for
+ *	the records in those buffers. 
+ *
+ **************************************/
+	WALS WAL_segment;
+	SSHORT bufnum, lastbuf, maxbufs;
+	WALBLK *wblk;
+	SSHORT ret;
+
+	WAL_segment = WAL_handle->wal_segment;
+
+	maxbufs = WAL_segment->wals_maxbufs;
+	bufnum = (WAL_segment->wals_last_flushed_buf + 1) % maxbufs;
+	lastbuf = CUR_BUF;
+	if (lastbuf == -1)			/* Meaning all the buffers are full */
+		lastbuf = (bufnum + maxbufs - 1) % maxbufs;
+
+	do {
+		wblk = WAL_BLOCK(bufnum);
+		if (wblk->walblk_cur_offset > BLK_HDROVHD) {
+			/* Prepare and flush the associated buffer to log file. */
+
+			if (!wblk->walblk_flags & WALBLK_to_be_written)
+				WALC_setup_buffer_block(WAL_segment, wblk, 0);
+
+			prepare_wal_block(WAL_segment, wblk);
+			if ((ret = write_wal_block(status_vector, wblk,
+									   WAL_segment->wals_logname,
+									   LOG_FD)) != SUCCESS) {
+				report_walw_bug_or_error(status_vector, WAL_handle, ret,
+										 gds__wal_err_logwrite);
+				return FAILURE;
+			}
+			release_wal_block(WAL_segment, wblk);
+		}
+		bufnum = (bufnum + 1) % maxbufs;
+	} while (bufnum != lastbuf);
+
+/* Since all the log buffers are flushed and empty now, we can start 
+   fresh. */
+
+	WAL_segment->wals_last_flushed_buf = -1;
+	CUR_BUF = 0;
+
+	return SUCCESS;
+}
+
+
+static SSHORT get_logfile_index( WALS WAL_segment, SCHAR * logname)
+{
+/**************************************
+ *
+ *	g e t _ l o g f i l e _ i n d e x
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the index of the given logname in the list of pre-allocated
+ *	log files.  If not found, return -1.
+ *
+ **************************************/
+	LOGF *logf;
+	SSHORT i, j, count;
+
+	if (WAL_segment->wals_max_logfiles == 0)
+		return -1;
+
+/* Start searching from the next log file onwards */
+
+	i = j =
+		(WAL_segment->wals_cur_logfile + 1) % WAL_segment->wals_max_logfiles;
+	count = 0;
+
+	while (TRUE) {
+		if ((j == i) && (count > 1))
+			return -1;			/* We have gone through the whole list */
+		logf = LOGF_INFO(j);
+		if (!strcmp(logname, LOGF_NAME(logf)))
+			return j;
+		j = (j + 1) % WAL_segment->wals_max_logfiles;
+		count++;
+	}
+}
+
+
+static BOOLEAN get_log_usability(
+								 STATUS * status_vector,
+								 SCHAR * dbname,
+								 SCHAR * logname, SLONG log_partition_offset)
+{
+/**************************************
+ *
+ *	g e t _ l o g _ u s a b i l i t y
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns TRUE if the given logname is usable else returns FALSE.
+ *	If logname is usable, new_logname and new_offset are updated.
+ *
+ **************************************/
+	BOOLEAN found;
+	SLONG log_seqno;
+	SLONG log_length;
+	SLONG log_flag;
+
+	found = FALSE;
+	log_flag = 0;
+	if (WALF_get_log_info
+		(status_vector, dbname, logname, log_partition_offset, &log_seqno,
+		 &log_length, &log_flag) == SUCCESS) {
+		/* Check the log flag */
+
+		if (!(log_flag & WALFH_KEEP_FOR_RECV))
+			found = TRUE;
+	}
+	else						/* The log file has not apparently been used for logging purpose
+								   before or it is brand new.  So we can use it. */
+		found = TRUE;
+
+	if (found) {
+		/* We have found a pre-allocated file which can be reused. */
+
+		WALF_delink_log(status_vector, dbname, logname, log_partition_offset);
+	}
+
+	return found;
+}
+
+
+static SSHORT get_next_logname(
+							   STATUS * status_vector,
+							   WALS WAL_segment,
+							   SCHAR * new_logname,
+SLONG * new_offset, SLONG * log_type)
+{
+/**************************************
+ *
+ *	g e t _ n e x t _ l o g n a m e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns SUCCESS if a usable log filename is found else
+ *	returns FAILURE.
+ *
+ **************************************/
+
+	if (WAL_segment->wals_max_logfiles > 0)
+		/* Check the pre-allocated files or overflow files */
+		return get_next_prealloc_logname(status_vector, WAL_segment,
+										 new_logname, new_offset, log_type);
+	else
+		/* Get a new serial log file */
+		return get_next_serial_logname(status_vector, WAL_segment,
+									   new_logname, new_offset, log_type);
+}
+
+
+static SSHORT get_next_prealloc_logname(
+										STATUS * status_vector,
+										WALS WAL_segment,
+										SCHAR * new_logname,
+SLONG * new_offset, SLONG * log_type)
+{
+/**************************************
+ *
+ *	g e t _ n e x t _ p r e a l l o c _ l o g n a m e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the name of the next usable log file from the list of 
+ *	the preallocated log files.  If preallocated files are not
+ *	available, try an overflow log file.
+ *
+ *	Returns SUCCESS if a usable log filename is found else
+ *	returns FAILURE.
+ *
+ **************************************/
+	LOGF *logf;
+	SSHORT i, j, count, found;
+	SLONG p_offset;
+
+	i = j =
+		(WAL_segment->wals_cur_logfile + 1) % WAL_segment->wals_max_logfiles;
+	count = 0;
+	found = FALSE;
+	p_offset = 0L;
+
+	while (TRUE) {
+		if ((j == i) && (count > 1))	/* We have exhausted all the preallocated files */
+			break;
+		logf = LOGF_INFO(j);
+		if (logf->logf_flags & LOGF_PARTITIONED)
+			found = get_next_usable_partition(status_vector,
+											  WAL_segment->wals_dbname,
+											  LOGF_NAME(logf), &p_offset);
+		else
+			found = get_log_usability(status_vector,
+									  WAL_segment->wals_dbname,
+									  LOGF_NAME(logf), p_offset);
+		if (found) {
+			strcpy(new_logname, LOGF_NAME(logf));
+			*new_offset = p_offset;
+			WAL_segment->wals_cur_logfile = j;
+			*log_type = *log_type | WALFH_PREALLOCATED;
+			if (logf->logf_flags & LOGF_PARTITIONED)
+				*log_type = *log_type | WALFH_PARTITIONED;
+			if (logf->logf_flags & LOGF_RAW)
+				*log_type = *log_type | WALFH_RAW;
+			return SUCCESS;
+		}
+
+		/* Check for the next one */
+
+		j = (j + 1) % WAL_segment->wals_max_logfiles;
+		count++;
+	}
+
+/* No pre-allocated file is avaialable, so look for an overflow file */
+
+	return get_overflow_logname(status_vector, WAL_segment, new_logname,
+								new_offset, log_type);
+}
+
+
+static SSHORT get_next_serial_logname(
+									  STATUS * status_vector,
+									  WALS WAL_segment,
+									  SCHAR * new_logname,
+SLONG * new_offset, SLONG * log_type)
+{
+/**************************************
+ *
+ *	g e t _ n e x t _ s e r i a l _ l o g n a m e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Returns SUCCESS if a usable log filename is found else
+ *	returns FAILURE.
+ *
+ **************************************/
+	int prev_logs_count;
+	SCHAR last_logname[MAXPATHLEN];
+	SLONG last_log_partition_offset;
+	SLONG last_log_flags;
+	SSHORT any_log_to_be_archived;
+	LOGF *logf;
+	SLONG fd;
+	int retry_count;
+#define MAX_RETRIES	1000
+
+	logf = &WAL_segment->wals_log_serial_file_info;
+	if (logf->logf_name_offset == 0)
+		return FAILURE;
+
+/* The next log name is formed in the following fashion :
+   <basename>.log.<seqno>  */
+
+	if (logf->logf_fname_seqno == 0L)	/* Initialize for the first time */
+		logf->logf_fname_seqno = WAL_segment->wals_log_seqno + 1;
+
+	for (retry_count = 0; retry_count < MAX_RETRIES; retry_count++) {
+		/* Now find a non-existent (i.e. new) serial log file. */
+
+		WALC_build_logname(new_logname, LOGF_NAME(logf),
+						   logf->logf_fname_seqno);
+		logf->logf_fname_seqno++;
+		if (LLIO_open(status_vector, new_logname, LLIO_OPEN_NEW_RW, TRUE, &fd)
+			== SUCCESS) {
+			/* Found one */
+
+			LLIO_close(status_vector, fd);
+			*new_offset = 0;
+			break;
+		}
+	}
+
+	if (retry_count >= MAX_RETRIES)
+		return FAILURE;
+
+/* Now see if we can reuse an old log file. */
+
+	prev_logs_count = 0;
+	WALF_get_linked_logs_info(status_vector, WAL_segment->wals_dbname,
+							  WAL_segment->wals_logname,
+							  WAL_segment->wals_log_partition_offset,
+							  &prev_logs_count, last_logname,
+							  &last_log_partition_offset, &last_log_flags,
+							  &any_log_to_be_archived);
+
+	if ((prev_logs_count > 0) && !(last_log_flags & WALFH_KEEP_FOR_RECV)) {
+		/* We can reuse this log file */
+
+		WALF_delink_log(status_vector, WAL_segment->wals_dbname, last_logname,
+						last_log_partition_offset);
+#ifdef WIN_NT
+		unlink(new_logname);
+		MoveFile(last_logname, new_logname);
+#else
+#ifdef NETWARE_386
+		unlink(new_logname);
+		rename(last_logname, new_logname);
+#else
+		rename(last_logname, new_logname);
+#endif
+#endif
+	}
+
+#ifdef UNIX
+/* WAL writer would typically be running as root.  So give the 
+   ownership of the new log file to the database owner. */
+	if (chown(new_logname, WAL_segment->wals_owner_id,
+			  WAL_segment->wals_group_id) == -1) {
+		WAL_IO_ERROR(status_vector, "logfile chown", new_logname,
+					 isc_io_open_err, errno);
+		return FAILURE;
+	}
+#endif
+
+	*log_type |= WALFH_SERIAL;
+
+	return SUCCESS;
+}
+
+
+static BOOLEAN get_next_usable_partition(
+										 STATUS * status_vector,
+										 SCHAR * dbname,
+										 SCHAR * master_logname,
+SLONG * new_offset)
+{
+/**************************************
+ *
+ *	g e t _ n e x t _ u s a b l e _ p a r t i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Tries to find a usable partition in the master_logname.
+ *	Returns TRUE if a usable partition is found else returns FALSE.
+ *	new_logname and new_offset are updated in case of success.
+ *
+ **************************************/
+	P_LOGFH p_log_header;
+	SLONG p_log_fd;
+	int i, j, count;
+	BOOLEAN found;
+	SLONG p_offset;
+
+	p_log_header = (P_LOGFH) gds__alloc(P_LOGFH_LENGTH);
+/* NOMEM: return failure, FREE: by returns in this procedure */
+	if (!p_log_header)
+		return FALSE;
+
+	if (WALF_open_partitioned_log_file(status_vector, dbname, master_logname,
+									   p_log_header, &p_log_fd) != SUCCESS) {
+		gds__free((SLONG *) p_log_header);
+		return FALSE;
+	}
+
+/* Now check for a free partition */
+
+	i = j = (p_log_header->p_logfh_curp + 1) % p_log_header->p_logfh_maxp;
+	count = 0;
+	found = FALSE;
+	while (TRUE) {
+		if ((j == i) && (count > 1))	/* We have exhausted all the partitions */
+			break;
+		p_offset = PARTITION_OFFSET(p_log_header, j);
+		if (found = get_log_usability(status_vector, dbname, master_logname,
+									  p_offset)) {
+			p_log_header->p_logfh_curp = j;
+			*new_offset = p_offset;
+			WALF_update_partitioned_log_hdr(status_vector, master_logname,
+											p_log_header, p_log_fd);
+			break;
+		}
+
+		/* Check for the next partition */
+
+		j = (j + 1) % p_log_header->p_logfh_maxp;
+		count++;
+	}
+
+	LLIO_close(0, p_log_fd);
+	gds__free((SLONG *) p_log_header);
+
+	return found;
+}
+
+
+static SSHORT get_overflow_logname(
+								   STATUS * status_vector,
+								   WALS WAL_segment,
+								   SCHAR * new_logname,
+SLONG * new_offset, SLONG * log_type)
+{
+/**************************************
+ *
+ *	g e t _ o v e r f l o w _ l o g n a m e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the name of the next overflow log file, if base name specified.
+ *	Returns SUCCESS if an overflow log file name can be created else
+ *	returns FAILURE.
+ *
+ **************************************/
+	LOGF *logf;
+	SLONG fd;
+
+	logf = &WAL_segment->wals_log_ovflow_file_info;
+	if (logf->logf_name_offset != 0) {
+		if (logf->logf_fname_seqno <= WAL_segment->wals_log_seqno)
+			logf->logf_fname_seqno = WAL_segment->wals_log_seqno + 1;
+
+		for (;;) {
+			/* Now find a non-existent (i.e. new) overflow log file. */
+
+			WALC_build_logname(new_logname, LOGF_NAME(logf),
+							   logf->logf_fname_seqno);
+			logf->logf_fname_seqno++;
+			if (LLIO_open
+				(status_vector, new_logname, LLIO_OPEN_NEW_RW, TRUE,
+				 &fd) == SUCCESS) {
+				LLIO_close(status_vector, fd);
+				*new_offset = 0;
+				break;
+			}
+		}
+
+		*log_type = *log_type | WALFH_OVERFLOW;
+
+#ifdef UNIX
+		/* WAL writer would typically be running as root.  So give the 
+		   ownership of the new log file to the database owner. */
+		if (chown(new_logname, WAL_segment->wals_owner_id,
+				  WAL_segment->wals_group_id) == -1) {
+			WAL_IO_ERROR(status_vector, "logfile chown", new_logname,
+						 isc_io_open_err, errno);
+			return FAILURE;
+		}
+#endif
+		return SUCCESS;
+	}
+
+	return FAILURE;
+}
+
+
+static void get_time_stamp( SLONG * date)
+{
+/**************************************
+ *
+ *	g e t _ t i m e _ s t a m p
+ *
+ **************************************
+ *
+ * Functional description
+ *	Get the current time in gds format.
+ *	(Copied from mov.c)
+ *
+ **************************************/
+	SLONG clock;
+	struct tm times;
+
+	clock = (SLONG) time((time_t *) NULL);
+	times = *localtime((time_t *) & clock);
+	isc_encode_date(&times, (GDS_QUAD *) date);
+}
+
+
+static SSHORT increase_buffers(
+							   STATUS * status_vector,
+							   WAL WAL_handle, SSHORT num_buffers)
+{
+/**************************************
+ *
+ *	i n c r e a s e _ b u f f e r s
+ *
+ **************************************
+ *
+ * Functional description
+ *	This function would try to increase the number of buffers in
+ *	the shared WAL segment by the given number of buffers.  May 
+ *	involve remapping (or reallocating) the WAL segment.
+ *	Used for performance tuning.   Assumes that acquire() has been 
+ *	done before calling this routine.
+ *
+ **************************************/
+	WALS WAL_segment;
+	WALBLK *wblk;
+	SLONG old_wal_length, new_wal_length;
+	SSHORT i, old_num_buffers;
+	SSHORT ret;
+
+/* First flush all the filled buffer blocks to the current log file */
+
+	if ((ret = flush_all_buffers(status_vector, WAL_handle)) != SUCCESS)
+		return ret;
+
+	WAL_segment = WAL_handle->wal_segment;
+
+#ifdef NETWARE_386
+	WAL_segment->wals_flags2 |= WALS2_CANT_EXPAND;
+	return SUCCESS;
+#else
+	old_wal_length = WAL_segment->wals_length;
+	new_wal_length = old_wal_length + num_buffers * WAL_segment->wals_blksize;
+	if (PRINT_DEBUG_MSGS) {
+		PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+		ib_fprintf(DEBUG_FD, "In increase_buffers(), before expansion:\n");
+		ib_fprintf(DEBUG_FD,
+				   "WAL length =%ld, WAL segment flags=%ld, flags2=%ld\n",
+				   WAL_segment->wals_length, WAL_segment->wals_flags,
+				   WAL_segment->wals_flags2);
+		ib_fprintf(DEBUG_FD, "maxbufs=%d, cur_buf=%d, last_flushed_buf=%d\n",
+				   WAL_segment->wals_maxbufs, CUR_BUF,
+				   WAL_segment->wals_last_flushed_buf);
+	}
+	WAL_segment = (WALS) ISC_remap_file(status_vector,
+										&WAL_handle->wal_shmem_data,
+										new_wal_length, TRUE);
+
+	if (status_vector[1] == gds__unavailable) {
+		WAL_segment = WAL_handle->wal_segment;
+		WAL_segment->wals_flags2 |= WALS2_CANT_EXPAND;
+		return SUCCESS;
+	}
+	if (WAL_segment == (WALS) NULL) {
+		WAL_ERROR(status_vector, gds__wal_cant_expand, DBNAME);
+		WAL_handle->wal_segment = NULL;
+		report_walw_bug_or_error(status_vector, WAL_handle, FAILURE,
+								 (STATUS) gds__wal_err_expansion);
+	}
+
+	old_num_buffers = WAL_segment->wals_maxbufs;
+	WAL_segment->wals_maxbufs += num_buffers;
+
+/* initialize the newly allocated buffer blocks. */
+
+	for (i = old_num_buffers; i < WAL_segment->wals_maxbufs; i++) {
+		wblk = WAL_BLOCK(i);
+		wblk->walblk_number = i;
+		wblk->walblk_flags = 0;
+		wblk->walblk_cur_offset = 0;
+		wblk->walblk_roundup_offset = 0;
+	}
+
+	WAL_segment->wals_length = new_wal_length;
+	WAL_handle->wal_segment = WAL_segment;
+
+	if (PRINT_DEBUG_MSGS) {
+		PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+		ib_fprintf(DEBUG_FD, "In increase_buffers(), after expansion:\n");
+		ib_fprintf(DEBUG_FD,
+				   "WAL length =%ld, WAL segment flags=%ld, flags2=%ld\n",
+				   WAL_segment->wals_length, WAL_segment->wals_flags,
+				   WAL_segment->wals_flags2);
+		ib_fprintf(DEBUG_FD, "maxbufs=%d, cur_buf=%d, last_flushed_buf=%d\n",
+				   WAL_segment->wals_maxbufs, CUR_BUF,
+				   WAL_segment->wals_last_flushed_buf);
+		ib_fflush(DEBUG_FD);
+	}
+
+	return SUCCESS;
+#endif
+}
+
+
+static SSHORT init_raw_partitions( STATUS * status_vector, WAL WAL_handle)
+{
+/**************************************
+ *
+ *	i n i t _ r a w _ p a r t i t i o n s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize all the configured raw partitioned log files.
+ *
+ **************************************/
+	WALS WAL_segment;
+	LOGF *logf;
+	SSHORT i, ret_val;
+
+	WAL_segment = WAL_handle->wal_segment;
+
+	for (i = 0; i < WAL_segment->wals_max_logfiles; i++) {
+		logf = LOGF_INFO(i);
+		if (logf->logf_flags & LOGF_RAW) {
+			ret_val = WALF_init_p_log(status_vector, DBNAME, LOGF_NAME(logf),
+									  PARTITIONED_LOG_TOTAL_SIZE(logf->
+																 logf_partitions,
+																 logf->
+																 logf_max_size),
+									  logf->logf_partitions);
+			if (ret_val != SUCCESS)
+				report_walw_bug_or_error(status_vector, WAL_handle, ret_val,
+										 (STATUS) gds__wal_err_logwrite);
+		}
+	}
+
+	return SUCCESS;
+}
+
+
+static SSHORT journal_connect( STATUS * status_vector, WAL WAL_handle)
+{
+/**************************************
+ *
+ *	j o u r n a l _ c o n n e c t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connects to the journal server.
+ *	Returns SUCCESS or FAILURE.
+ *
+ **************************************/
+	SSHORT ret;
+	WALS WAL_segment;
+
+	WAL_segment = WAL_handle->wal_segment;
+
+	if (PRINT_DEBUG_MSGS) {
+		PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+		ib_fprintf(DEBUG_FD, "Calling JRN_init for database %s\n", DBNAME);
+	}
+
+	JOURNAL_HANDLE = NULL;
+	ret = JRN_init(status_vector,
+				   &(JOURNAL_HANDLE),
+				   WAL_segment->wals_dbpage_size,
+				   reinterpret_cast <
+				   UCHAR * >(WAL_segment->wals_jrn_dirname),
+				   strlen(WAL_segment->wals_jrn_dirname),
+				   WAL_segment->wals_jrn_init_data,
+				   WAL_segment->wals_jrn_init_data_len);
+
+	if (PRINT_DEBUG_MSGS) {
+		PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+		ib_fprintf(DEBUG_FD, "After calling JRN_init(), ret=%d\n", ret);
+	}
+
+	if (ret == SUCCESS)
+		WAL_segment->wals_flags |= WALS_JOURNAL_ENABLED;
+	else
+		report_walw_bug_or_error(status_vector, WAL_handle, ret,
+								 (STATUS) gds__wal_err_jrn_comm);
+
+	return ret;
+}
+
+
+static void journal_disable(
+							STATUS * status_vector,
+							WAL WAL_handle, WALFH log_header)
+{
+/**************************************
+ *
+ *	j o u r n a l _ d i s a b l e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Disconnects from the journal server after rolling over to a new 
+ *	log file so that the current log file does not get deleted by 
+ *	the journal server and the user can at least recover upto journal
+ *	disable point. 
+ *
+ **************************************/
+	WALS WAL_segment;
+
+	LOCAL_FLAGS |= WALW_DISABLING_JRN;
+	rollover_log(status_vector, WAL_handle, log_header);
+	LOCAL_FLAGS &= ~(WALW_DISABLING_JRN);
+	JRN_fini(status_vector, &(JOURNAL_HANDLE));
+
+	if (!JOURNAL_HANDLE) {
+		/* Disable succeeded */
+
+		WAL_segment = WAL_handle->wal_segment;
+		WAL_segment->wals_flags &= ~WALS_JOURNAL_ENABLED;
+		WAL_segment->wals_flags &= ~WALS_DISABLE_JOURNAL;
+	}
+}
+
+
+static SSHORT journal_enable( STATUS * status_vector, WAL WAL_handle)
+{
+/**************************************
+ *
+ *	j o u r n a l _ e n a b l e 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Connects to the journal server and sends it the current WAL file
+ *	info.  Returns SUCCESS or FAILURE.
+ *
+ **************************************/
+	SSHORT ret;
+	WALS WAL_segment;
+
+	WAL_segment = WAL_handle->wal_segment;
+	ret = journal_connect(status_vector, WAL_handle);
+	if (ret == SUCCESS) {
+		if (PRINT_DEBUG_MSGS) {
+			PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+			ib_fprintf(DEBUG_FD, "Enabling journaling for database %s\n",
+					   DBNAME);
+			ib_fprintf(DEBUG_FD,
+					   "Sending open for seqno=%d, log %s, p_offset=%d, length=%d\n",
+					   WAL_segment->wals_flushed_log_seqno,
+					   WAL_segment->wals_logname,
+					   WAL_segment->wals_log_partition_offset,
+					   WAL_segment->wals_flushed_offset);
+		}
+
+		ret = JRN_put_wal_name(status_vector, JOURNAL_HANDLE,
+							   WAL_segment->wals_logname,
+							   strlen(WAL_segment->wals_logname),
+							   WAL_segment->wals_flushed_log_seqno,
+							   WAL_segment->wals_flushed_offset,
+							   WAL_segment->wals_log_partition_offset,
+							   JRNW_OPEN);
+
+		if (PRINT_DEBUG_MSGS) {
+			PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+			ib_fprintf(DEBUG_FD,
+					   "After calling JRN_put_wal_name() for seqno=%d, ret=%d\n",
+					   WAL_segment->wals_flushed_log_seqno, ret);
+		}
+
+	}
+	if (ret != SUCCESS) {
+		WAL_segment->wals_flags &= ~WALS_JOURNAL_ENABLED;
+		report_walw_bug_or_error(status_vector, WAL_handle, ret,
+								 (STATUS) gds__wal_err_jrn_comm);
+	}
+	else {
+		WAL_segment->wals_flags &= ~WALS_ENABLE_JOURNAL;
+	}
+
+	return ret;
+}
+
+
+static void prepare_wal_block( WALS WAL_segment, WALBLK * wblk)
+{
+/**************************************
+ *
+ *	p r e p a r e _ w a l _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize block sequence number, timestamp and length bytes
+ *	of the WAL buffer in the given WAL block.
+ *
+ **************************************/
+	WALBLK_HDR header;
+	USHORT len;					/* The header and trailer length for the buffer block */
+	SCHAR *p, *q;
+
+	len = (USHORT) wblk->walblk_roundup_offset;	/* Already includes the block trailing bytes */
+
+/* The following way of initializing and then copying the header to 
+   walblk_buf is used to avoid datatype misalignment problem on some machines. */
+
+	header.walblk_hdr_blklen = len;
+	header.walblk_hdr_len = wblk->walblk_cur_offset;
+	header.walblk_hdr_bsn = WAL_segment->wals_blkseqno++;
+	get_time_stamp(header.walblk_hdr_timestamp);
+	memcpy(wblk->walblk_buf, (SCHAR *) & header, BLK_HDROVHD);
+
+	p = (SCHAR *) & wblk->walblk_buf[(int) len - BLK_TAILOVHD];
+	q = (SCHAR *) & len;
+	*p++ = *q++;
+	*p++ = *q++;
+}
+
+
+static void release_wal_block( WALS WAL_segment, WALBLK * wblk)
+{
+/**************************************
+ *
+ *	r e l e a s e _ w a l _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	A block has just been written to disk.  Update statistics and 
+ *	make this block available to other users.
+ *
+ **************************************/
+	USHORT len;					/* Number of bytes written to log file */
+
+	len = (USHORT) wblk->walblk_roundup_offset;
+	wblk->walblk_cur_offset = 0;
+	wblk->walblk_roundup_offset = 0;
+	wblk->walblk_flags &= ~WALBLK_to_be_written;
+
+	WAL_segment->wals_last_flushed_buf = wblk->walblk_number;
+	WAL_segment->wals_flushed_offset += len;
+	WAL_segment->wals_cur_ckpt_intrvl += len;
+	WAL_segment->wals_total_IO_bytes += len;
+	WAL_segment->wals_IO_count++;
+
+	if (wblk->walblk_flags & WALBLK_checkpoint) {
+		/* This buffer finished a checkpoint */
+
+		finishup_checkpoint(WAL_segment);
+		wblk->walblk_flags &= ~WALBLK_checkpoint;
+	}
+
+	if (CUR_BUF == -1)
+		CUR_BUF = wblk->walblk_number;
+}
+
+
+static void report_walw_bug_or_error(
+									 STATUS * status_vector,
+									 WAL WAL_handle,
+									 SSHORT failure_type, STATUS code)
+{
+/**************************************
+ *
+ *	 r e p o r t _ w a l w _ b u g _ o r _ e r r o r
+ *
+ **************************************
+ *
+ * Functional description
+ *	Handle bug or error for the WAL writer.
+ *
+ **************************************/
+	STATUS local_status[20];
+	TEXT errbuf[MAX_ERRMSG_LEN];
+	WALS WAL_segment;
+
+	WAL_segment = WAL_handle->wal_segment;
+
+/* First give a generic WAL writer error message */
+
+	WALW_ERROR(local_status);
+	gds__log_status(DBNAME, local_status);
+	gds__print_status(local_status);
+
+/* Now give the error message for the particular error or bug */
+
+	if (failure_type > 0) {
+		/* An error happened. status_vector is already inititalized */
+
+		if (WAL_segment) {
+			WAL_segment->wals_flags |= WALS_ERROR_HAPPENED;
+			WAL_segment->wals_last_err = code;
+		}
+		gds__log_status(DBNAME, status_vector);
+	}
+	else if (failure_type < 0) {
+		/* A bug happened. status_vector is already inititalized */
+
+		if (WAL_segment) {
+			WAL_segment->wals_flags |= WALS_BUG_HAPPENED;
+			WAL_segment->wals_last_bug = code;
+		}
+		IBERR_bugcheck(status_vector, DBNAME, NULL, -1 * failure_type,
+					   errbuf);
+		WALC_save_status_strings(status_vector);
+	}
+	else {
+		/* An error happened. status_vector needs to be inititalized */
+
+		if (WAL_segment) {
+			WAL_segment->wals_flags |= WALS_ERROR_HAPPENED;
+			WAL_segment->wals_last_err = code;
+		}
+		IBERR_error(status_vector, DBNAME, NULL, code, errbuf);
+		WALC_save_status_strings(status_vector);
+		gds__log_status(DBNAME, status_vector);
+	}
+	gds__print_status(status_vector);
+
+	if (PRINT_DEBUG_MSGS) {
+		PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+		ib_fprintf(DEBUG_FD, "WAL writer encountered error, code=%d\n", code);
+	}
+
+	longjmp(ENV, (int) status_vector[1]);
+}
+
+
+static SSHORT rollover_log(
+						   STATUS * status_vector,
+						   WAL WAL_handle, WALFH log_header)
+{
+/**************************************
+ *
+ *	r o l l o v e r _ l o g
+ *
+ **************************************
+ *
+ * Functional description
+ *	The current log file has reached its limit length.  So move on 
+ *	to the next one.  Update WAL_segment and log_header.  WAL_segment
+ *	is assumed to have already been acquired. 
+ *
+ **************************************/
+	WALFH new_log_header;
+	SCHAR saved_logname[MAXPATHLEN];
+	SCHAR new_logname[MAXPATHLEN];
+	SLONG new_log_fd;
+	SSHORT ret;
+	SLONG saved_flushed_offset;
+	SLONG new_log_partition_offset;
+	WALS WAL_segment;
+	SLONG log_type;
+#define ROLLOVER_LOG_RETURN(code) {gds__free((SLONG*)new_log_header); return(code);}
+
+/* First flush all the filled buffer blocks to the current log file
+   because we have already given its log file sequence number for
+   the records in those buffers. */
+
+	if ((ret = flush_all_buffers(status_vector, WAL_handle)) != SUCCESS)
+		return ret;
+
+	WAL_segment = WAL_handle->wal_segment;
+	new_log_header = (WALFH) gds__alloc(WALFH_LENGTH);
+/* NOMEM: return failure, FREE: by macro ROLLOVER_LOG_RETURN() */
+	if (!new_log_header)
+		return FAILURE;
+
+	saved_flushed_offset = WAL_segment->wals_flushed_offset;
+	strcpy(saved_logname, WAL_segment->wals_logname);
+
+	log_type = 0L;
+	if (get_next_logname(status_vector, WAL_segment, new_logname,
+						 &new_log_partition_offset, &log_type) != SUCCESS) {
+		WAL_ERROR_APPEND(status_vector, gds__wal_err_rollover, new_logname);
+		report_walw_bug_or_error(status_vector, WAL_handle, FAILURE,
+								 gds__wal_err_rollover2);
+		ROLLOVER_LOG_RETURN(FAILURE);
+	}
+
+	ret = setup_log(status_vector, WAL_handle, new_logname,
+					new_log_partition_offset, log_type,
+					&new_log_fd, new_log_header, TRUE,
+					WAL_segment->wals_logname,
+					WAL_segment->wals_log_partition_offset);
+	if (ret == SUCCESS) {
+		/* Update the current log file with the name of the next log file name
+		   and close it. */
+
+		if (log_header->walfh_next_logname)
+			gds__free((SLONG *) log_header->walfh_next_logname);
+		STRING_DUP(log_header->walfh_next_logname, new_logname);
+		/* NOMEM: failure return  FREE: unknown */
+		if (!log_header->walfh_next_logname)
+			ROLLOVER_LOG_RETURN(FAILURE);
+
+		log_header->walfh_next_log_partition_offset =
+			new_log_partition_offset;
+
+		/* The previous log name of the current log file may happen to be the 
+		   new_logname if there are 2 round-robin log files and we are re-using
+		   the new_logname.  The same could happen even if we have one partitioned
+		   log file with only 2 partitions.  In those cases, make the prev_logname
+		   of the current log file to be empty to avoid a potential infinite loop. */
+
+		if ((strcmp(log_header->walfh_prev_logname, new_logname) == 0) &&
+			(log_header->walfh_prev_log_partition_offset ==
+			 new_log_partition_offset)) {
+			*log_header->walfh_prev_logname = 0;
+			log_header->walfh_prev_log_partition_offset = 0L;
+		}
+
+		log_header->walfh_length = saved_flushed_offset;
+		log_header->walfh_hibsn = WAL_segment->wals_blkseqno - 1;
+		close_log(status_vector, WAL_handle, saved_logname, log_header, TRUE);
+
+		/* This is a good place to inform the long term journal server 
+		   that we have rolled over to a new log file.  Note that the close
+		   info of the previous log file has already been sent during 
+		   close_log() call made above. */
+
+		if (JOURNAL_HANDLE && !(LOCAL_FLAGS & WALW_DISABLING_JRN)) {
+			if (PRINT_DEBUG_MSGS) {
+				PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+				ib_fprintf(DEBUG_FD,
+						   "Opened seqno=%d, log %s, p_offset=%d, length=%d\n",
+						   new_log_header->walfh_seqno, new_logname,
+						   new_log_header->walfh_log_partition_offset,
+						   new_log_header->walfh_length);
+			}
+
+			ret = JRN_put_wal_name(status_vector, JOURNAL_HANDLE,
+								   new_logname, strlen(new_logname),
+								   new_log_header->walfh_seqno,
+								   new_log_header->walfh_length,
+								   new_log_header->walfh_log_partition_offset,
+								   JRNW_OPEN);
+
+			if (PRINT_DEBUG_MSGS) {
+				PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+				ib_fprintf(DEBUG_FD,
+						   "After calling JRN_put_wal_name() for seqno=%d, ret=%d\n",
+						   new_log_header->walfh_seqno, ret);
+			}
+
+			if (ret != SUCCESS)
+				report_walw_bug_or_error(status_vector, WAL_handle, ret,
+										 gds__wal_err_jrn_comm);
+		}
+
+		WAL_segment->wals_flags |= WALS_ROLLOVER_HAPPENED;
+
+		/* Update the context variables for the caller. */
+
+		LOG_FD = new_log_fd;
+		memcpy((SCHAR *) log_header, (SCHAR *) new_log_header, WALFH_LENGTH);
+
+		ROLLOVER_LOG_RETURN(SUCCESS);
+	}
+	else {
+		report_walw_bug_or_error(status_vector, WAL_handle, ret,
+								 gds__wal_err_rollover2);
+		ROLLOVER_LOG_RETURN(FAILURE);
+	}
+}
+
+
+static void setup_for_checkpoint( WALS WAL_segment)
+{
+/**************************************
+ *
+ *	s e t u p _ f o r _ c h e c k p o i n t 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Inform the Asynchronous Buffer writer that it is time to 
+ *	start checkpointing.   Assumes that acquire() has 
+ *	been done before calling this routine.
+ ***************************************/
+
+/* AB writer checks this condition by calling WAL_start_checkpoiting() 
+   in its main loop. */
+
+	WAL_segment->wals_flags |= WALS_CKPT_START;
+	WAL_segment->wals_flags &= ~WALS_CKPT_RECORDED;	/* Force this anyway */
+}
+
+
+static SSHORT setup_log(
+						STATUS * status_vector,
+						WAL WAL_handle,
+						SCHAR * logname,
+						SLONG log_partition_offset,
+SLONG log_type,
+SLONG * logfile_fd,
+WALFH log_header,
+SSHORT rollover, SCHAR * prev_logname, SLONG prev_log_partition_offset)
+{
+/**************************************
+ *
+ *	s e t u p _ l o g 
+ *
+ **************************************
+ *
+ * Functional description
+ *	Initialize the log file header information and 
+ *	the corresponding WAL_segment information.
+ *	Returns SUCCESS or an errno.
+ *
+ **************************************/
+	SSHORT ret;
+	LOGF *logf;
+	SSHORT takeover;
+	WALS WAL_segment;
+
+	WAL_segment = WAL_handle->wal_segment;
+
+	ret = setup_log_header_info(status_vector, WAL_handle, logname,
+								log_partition_offset, log_type, logfile_fd,
+								log_header, rollover, prev_logname,
+								prev_log_partition_offset, &takeover);
+	if (ret == SUCCESS) {
+		/* Now updates the appropriate fields of WAL_segment from the given 
+		   log_header.  */
+
+		strcpy(WAL_segment->wals_logname, logname);
+		WAL_segment->wals_log_partition_offset =
+			log_header->walfh_log_partition_offset;
+		if (!takeover) {
+			/* If a new WAL writer is taking over, we don't want to change the
+			   wals_buf_offset etc. which might reflect the uptodate WAL buffer 
+			   position. */
+
+			WAL_segment->wals_log_seqno = log_header->walfh_seqno;
+			WAL_segment->wals_buf_offset = log_header->walfh_length;
+			WAL_segment->wals_blkseqno = log_header->walfh_hibsn + 1;
+			WAL_segment->wals_flushed_offset = log_header->walfh_length;
+			WAL_segment->wals_flushed_log_seqno = log_header->walfh_seqno;
+		}
+
+		if (WAL_segment->wals_max_logfiles > 0) {
+			/* Get the index of this logfile in the list of pre-allocated 
+			   log files. */
+
+			WAL_segment->wals_cur_logfile =
+				get_logfile_index(WAL_segment, logname);
+			if (WAL_segment->wals_cur_logfile == -1)
+				/* we are using an overflow log */
+				logf = &WAL_segment->wals_log_ovflow_file_info;
+			else
+				logf = LOGF_INFO(WAL_segment->wals_cur_logfile);
+		}
+		else
+			logf = &WAL_segment->wals_log_serial_file_info;
+
+		WAL_segment->wals_rollover_threshold = (logf->logf_max_size ?
+												logf->
+												logf_max_size : WAL_segment->
+												wals_max_log_length);
+		WAL_segment->wals_roundup_size = logf->logf_roundup_size;
+
+		if ((PRINT_DEBUG_MSGS) && rollover) {
+			PRINT_TIME(DEBUG_FD, LOCAL_TIME);
+			ib_fprintf(DEBUG_FD, "new log %s, partition offset=%ld\n",
+					   WAL_segment->wals_logname,
+					   WAL_segment->wals_log_partition_offset);
+		}
+
+	}
+
+	return ret;
+}
+
+
+static SSHORT setup_log_header_info(
+									STATUS * status_vector,
+									WAL WAL_handle,
+									SCHAR * logname,
+SLONG log_partition_offset,
+SLONG log_type,
+SLONG * logfile_fd,
+WALFH log_header,
+SSHORT rollover,
+SCHAR * prev_logname, SLONG prev_log_partition_offset, SSHORT * takeover)
+{
+/**************************************
+ *
+ *	s e t u p _ l o g _ h e a d e r _ i n f o
+ *
+ **************************************
+ *
+ * Functional description
+ *	Open a given log file. 
+ *	Initialize the log file header information.
+ *	If 'rollover' flag is TRUE, then we are going to open a new log
+ *	file.  So use the 'prev_logname' as the previous log file 
+ *	name for the new log file.
+ *	If we are opening an existing log file and it has a 'next' log
+ *	file, then open the 'next' log file automatically using a recursive
+ *	call.  
+ *   
+ *	If we determine that this is a takeover situation, set the takeover
+ *	parameter to TRUE.
+ *   
+ *	Returns SUCCESS or FAILURE.
+ *
+ **************************************/
+	WALS WAL_segment;
+	SLONG log_fd, read_len;
+	SCHAR prev_logfname[MAXPATHLEN];
+	SLONG prev_logfpartition_offset;
+
+	WAL_segment = WAL_handle->wal_segment;
+
+/* Open the Log file */
+
+	if (LLIO_open
+		(status_vector, logname, LLIO_OPEN_WITH_SYNC_RW, TRUE,
+		 &log_fd)) return FAILURE;
+
+	*takeover = FALSE;
+
+	if (!rollover) {
+		/* Try to read the logfile header and take appropriate steps 
+		   afterwards. */
+
+		if (LLIO_read(status_vector, log_fd, logname,
+					  log_partition_offset, LLIO_SEEK_BEGIN,
+					  (UCHAR *) log_header, WALFH_LENGTH, &read_len)) {
+			LLIO_close(0, log_fd);
+			return FAILURE;
+		}
+	}
+
+	if (rollover || (read_len == 0)) {
+		/* The logfile is brand new */
+
+		log_header->walfh_version = WALFH_VERSION;
+		log_header->walfh_wals_id = WAL_segment->wals_id;
+		log_header->walfh_seqno = WAL_segment->wals_log_seqno + 1;
+		log_header->walfh_log_partition_offset = log_partition_offset;
+		log_header->walfh_length = (SLONG) WALFH_LENGTH;
+		log_header->walfh_lowbsn = WAL_segment->wals_blkseqno;	/* What the lowbsn would be */
+		log_header->walfh_hibsn = WAL_segment->wals_blkseqno - 1;	/* So far */
+		log_header->walfh_flags = log_type + WALFH_OPEN;
+		log_header->walfh_offset = (SLONG) WALFH_LENGTH;
+		log_header->walfh_ckpt1 = (SLONG) 0;
+		log_header->walfh_ckpt2 = (SLONG) 0;
+		log_header->walfh_reserved1 = (SLONG) 0;
+		log_header->walfh_reserved2 = (SLONG) 0;
+		log_header->walfh_data[0] = 0;
+		STRING_DUP(log_header->walfh_dbname, WAL_segment->wals_dbname);
+		/* NOMEM: failure, FREE: unknown */
+		if (!log_header->walfh_dbname)
+			return FAILURE;
+		STRING_DUP(log_header->walfh_prev_logname, prev_logname);
+		/* NOMEM: failure, FREE: unknown */
+		if (!log_header->walfh_prev_logname)
+			return FAILURE;
+		log_header->walfh_prev_log_partition_offset =
+			prev_log_partition_offset;
+		STRING_DUP(log_header->walfh_next_logname, "");
+		/* NOMEM: failure, FREE: unknown */
+		if (!log_header->walfh_next_logname)
+			return FAILURE;
+
+		log_header->walfh_data_len =
+			MISC_build_parameters_block(log_header->walfh_data,
+										PARAM_BYTE(WALFH_dbname),
+										PARAM_STRING(log_header->
+													 walfh_dbname),
+										PARAM_BYTE(WALFH_prev_logname),
+										PARAM_STRING(log_header->
+													 walfh_prev_logname),
+										PARAM_BYTE(WALFH_next_logname),
+										PARAM_STRING(log_header->
+													 walfh_next_logname),
+										PARAM_BYTE(WALFH_end), 0);
+	}
+	else if (read_len < sizeof(struct walfh)) {
+		LLIO_close(0, log_fd);
+		WAL_ERROR(status_vector, gds__logh_small, logname);
+		return FAILURE;
+	}
+	else if (log_header->walfh_version != WALFH_VERSION) {
+		LLIO_close(0, log_fd);
+		WAL_ERROR(status_vector, gds__logh_inv_version, logname);
+		return FAILURE;
+	}
+	else if (log_header->walfh_flags & WALFH_OPEN) {
+		if ((log_header->walfh_wals_id == WAL_segment->wals_id) &&
+			(log_header->walfh_seqno == WAL_segment->wals_log_seqno)) {
+			/* The file had been in use, may be the previous WAL writer process
+			   died.  So, take over.  Do some sanity checks though. */
+
+			*takeover = TRUE;
+			log_header->walfh_length = WAL_segment->wals_flushed_offset;
+			log_header->walfh_dbname = NULL;	/* will be updated below */
+			log_header->walfh_prev_logname = NULL;	/* will be updated below */
+			log_header->walfh_next_logname = NULL;	/* will be updated below */
+			WALF_upd_log_hdr_frm_walfh_data(log_header,
+											log_header->walfh_data);
+
+			/* Well, in this case, walfh_next_logname should be empty. Make
+			   sure that it is, else give an error message for using an earlier
+			   log file. */
+
+			if (strlen(log_header->walfh_next_logname) != 0) {
+				LLIO_close(0, log_fd);
+				WAL_ERROR(status_vector, gds__logh_open_flag, logname);
+				return FAILURE;
+			}
+		}
+		else {
+			/* This situation should not arise.   Before this, a recovery should 
+			   have taken place.  However, a graceful way of handling it
+			   could be to scan the log and position at the end of the last 
+			   'valid looking' block. */
+
+			LLIO_close(0, log_fd);
+			WAL_ERROR(status_vector, gds__logh_open_flag2, logname);
+			return FAILURE;
+		}
+	}
+	else {
+		/* We are opening a logfile after it was properly shutdown last time.
+		   Prepare the existing log file for new blocks. */
+
+		log_header->walfh_dbname = NULL;
+		log_header->walfh_prev_logname = NULL;
+		log_header->walfh_next_logname = NULL;
+		WALF_upd_log_hdr_frm_walfh_data(log_header, log_header->walfh_data);
+
+		/* In this case, walfh_next_logname should be empty.  But there is 
+		   a small window wherein the rollover to a new logfile occurred but
+		   that fact was not recorded at higher level (in database header page). 
+		   In that case,  walfh_next_logname would not be empty and it would be 
+		   reasonable for us to open and use the next log file. */
+
+		if (strlen(log_header->walfh_next_logname) != 0) {
+			LLIO_close(0, log_fd);
+			strcpy(prev_logfname, logname);
+			strcpy(logname, log_header->walfh_next_logname);
+			prev_logfpartition_offset = log_partition_offset;
+			return setup_log_header_info(status_vector, WAL_handle, logname,
+										 log_header->
+										 walfh_next_log_partition_offset, 0L,
+										 logfile_fd, log_header, rollover,
+										 prev_logfname,
+										 prev_logfpartition_offset, takeover);
+		}
+	}
+
+	*logfile_fd = log_fd;
+	log_header->walfh_wals_id = WAL_segment->wals_id;
+	log_header->walfh_flags |= WALFH_OPEN;
+	log_header->walfh_flags |= WALFH_KEEP_FOR_SHORT_TERM_RECV;
+	if (JOURNAL_HANDLE && !(LOCAL_FLAGS & WALW_DISABLING_JRN))
+		log_header->walfh_flags |= WALFH_KEEP_FOR_LONG_TERM_RECV;
+
+	return write_log_header_and_reposition(status_vector, logname, log_fd,
+										   log_header);
+}
+
+
+static SSHORT write_log_header_and_reposition(
+											  STATUS * status_vector,
+											  SCHAR * logname,
+											  SLONG log_fd, WALFH log_header)
+{
+/**************************************
+ *
+ *	w r i t e _ l o g _ h e a d e r _ a n d _ r e p o s i t i o n
+ *
+ **************************************
+ *
+ * Functional description
+ *	Write the passed log_header at the beginning of the log file
+ *	and then seek it to the end as per log_header->walfh_length value.
+ *	Returns SUCCESS or FAILURE.
+ *
+ **************************************/
+
+	if (LLIO_write(status_vector, log_fd, logname,
+				   log_header->walfh_log_partition_offset, LLIO_SEEK_BEGIN,
+				   (UCHAR *) log_header, WALFH_LENGTH, 0))
+		return FAILURE;
+
+/* Let's write an invalid block header at the end so that even if we 
+   are reusing an old log file, we don't use its old data */
+
+	if (LLIO_write(status_vector, log_fd, logname,
+				   log_header->walfh_log_partition_offset +
+				   log_header->walfh_length, LLIO_SEEK_BEGIN,
+				   (UCHAR *) log_terminator_block, WAL_TERMINATOR_BLKLEN, 0))
+		return FAILURE;
+
+	if (LLIO_seek(status_vector, log_fd, logname, -1 * WAL_TERMINATOR_BLKLEN,
+				  LLIO_SEEK_CURRENT)) return FAILURE;
+
+	return SUCCESS;
+}
+
+
+static SSHORT write_wal_block(
+							  STATUS * status_vector,
+							  WALBLK * wblk, SCHAR * logname, SLONG log_fd)
+{
+/**************************************
+ *
+ *	w r i t e _ w a l _ b l o c k
+ *
+ **************************************
+ *
+ * Functional description
+ *	Writes the prepared wal buffer to WAL file. 
+ *
+ **************************************/
+
+	if (LLIO_write(status_vector, log_fd, logname, 0L, LLIO_SEEK_NONE,
+				   wblk->walblk_buf, wblk->walblk_roundup_offset, 0))
+		return FAILURE;
+
+	return SUCCESS;
+}
+
+
+static void write_wal_statistics( WAL WAL_handle)
+{
+/**************************************
+ *
+ *	w r i t e _ w a l _ s t a t i s t i c s
+ *
+ **************************************
+ *
+ * Functional description
+ *	Writes the performance statistics for the current WAL session.
+ *
+ *	these messages were considered for translation but left as is for now
+ *	since they are likely only to be seen by DBA's and technical types
+ *
+ **************************************/
+	WALS WAL_segment;
+	IB_FILE *stat_file;
+
+	WAL_segment = WAL_handle->wal_segment;
+	if (PRINT_DEBUG_MSGS) {
+		stat_file = DEBUG_FD;
+
+		ib_fprintf(stat_file,
+				   "-----------------------------------------------\n");
+		PRINT_TIME(stat_file, LOCAL_TIME);
+		ib_fprintf(stat_file,
+				   "WAL writer (pid=%d) for database %s, shutdown statistics:\n",
+				   getpid(), DBNAME);
+		ib_fprintf(stat_file,
+				   "WAL buffer size=%d, total buffers=%d, original buffers=%d\n",
+				   WAL_segment->wals_bufsize, WAL_segment->wals_maxbufs,
+				   WAL_segment->wals_initial_maxbufs);
+		ib_fprintf(stat_file, "Max ckpt interval=%ld\n",
+				   WAL_segment->wals_max_ckpt_intrvl);
+		ib_fprintf(stat_file,
+				   "WAL segment acquire count=%ld, number of WAL_put() calls=%ld\n",
+				   WAL_segment->wals_acquire_count,
+				   WAL_segment->wals_put_count);
+		ib_fprintf(stat_file,
+				   "Total IOs=%ld, Avg IO size=%d, last blk_seqno=%ld\n",
+				   WAL_segment->wals_IO_count,
+				   WAL_segment->wals_total_IO_bytes /
+				   (WAL_segment->wals_IO_count ? WAL_segment->
+					wals_IO_count : 1), WAL_segment->wals_blkseqno - 1);
+		ib_fprintf(stat_file, "grpc wait micro-seconds=%d\n",
+				   WAL_segment->wals_grpc_wait_usecs);
+		ib_fprintf(stat_file,
+				   "Total commits=%ld, Number of group-commits=%d, Avg grpc size=%f\n",
+				   WAL_segment->wals_commit_count,
+				   WAL_segment->wals_grpc_count,
+				   (WAL_segment->wals_commit_count * 1.0) /
+				   (WAL_segment->wals_grpc_count ? WAL_segment->
+					wals_grpc_count : WAL_segment->wals_commit_count));
+		ib_fprintf(stat_file, "current log seqno=%ld, logfile=%s\n",
+				   WAL_segment->wals_log_seqno, WAL_segment->wals_logname);
+		ib_fprintf(stat_file,
+				   "log partition offset=%ld, current offset=%ld\n",
+				   WAL_segment->wals_log_partition_offset,
+				   WAL_segment->wals_buf_offset);
+		ib_fprintf(stat_file,
+				   "-----------------------------------------------\n");
+	}
+}
+
+
+} // extern "C"
diff --git a/src/wal/walw_main.cpp b/src/wal/walw_main.cpp
new file mode 100644
index 0000000000..12832245ee
Binary files /dev/null and b/src/wal/walw_main.cpp differ
diff --git a/src/wal/walw_proto.h b/src/wal/walw_proto.h
new file mode 100644
index 0000000000..d8f2c4e1da
--- /dev/null
+++ b/src/wal/walw_proto.h
@@ -0,0 +1,37 @@
+/*
+ *	PROGRAM:	JRD Write Ahead LOG APIs 
+ *	MODULE:		walw_proto.h
+ *	DESCRIPTION:	Prototype header file for walw.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _WAL_WALW_PROTO_H_
+#define _WAL_WALW_PROTO_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern SSHORT	WALW_writer (STATUS *, struct wal *);
+
+#ifdef __cplusplus
+}	/* extern "C" */
+#endif
+
+#endif /* _WAL_WALW_PROTO_H_ */
diff --git a/src/wal/wstat_proto.h b/src/wal/wstat_proto.h
new file mode 100644
index 0000000000..db6429c2d4
--- /dev/null
+++ b/src/wal/wstat_proto.h
@@ -0,0 +1,35 @@
+/*
+ *	PROGRAM:	JRD Write Ahead LOG APIs
+ *	MODULE:		wstat_proto.h
+ *	DESCRIPTION:	Prototype header file for wstatus.c
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#ifndef _WAL_WSTAT_PROTO_H_
+#define _WAL_WSTAT_PROTO_H_
+
+#ifdef NETWARE_386
+extern void	WSTATUS_dump_wal_segment (WAL, int, struct svc *);
+#else
+#include "../jrd/ib_stdio.h"
+extern void	WSTATUS_dump_wal_segment (WAL, int, IB_FILE *);
+#endif
+
+#endif	/* _WAL_WSTAT_PROTO_H_ */
+
diff --git a/src/wal/wstatus.cpp b/src/wal/wstatus.cpp
new file mode 100644
index 0000000000..1085a162a2
--- /dev/null
+++ b/src/wal/wstatus.cpp
@@ -0,0 +1,203 @@
+/*
+ *	PROGRAM:	JRD Write Ahead Log APIs
+ *	MODULE:		wstatus.c
+ *	DESCRIPTION:	Displays shared WAL info
+ *
+ * The contents of this file are subject to the Interbase Public
+ * License Version 1.0 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy
+ * of the License at http://www.Inprise.com/IPL.html
+ *
+ * Software distributed under the License is distributed on an
+ * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
+ * or implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code was created by Inprise Corporation
+ * and its predecessors. Portions created by Inprise Corporation are
+ * Copyright (C) Inprise Corporation.
+ *
+ * All Rights Reserved.
+ * Contributor(s): ______________________________________.
+ */
+
+#include "../wal/wal.h"
+#include "../wal/walc_proto.h"
+#ifdef NETWARE_386
+#ifndef INCLUDE_FB_BLK
+#include "../include/fb_blk.h"
+#endif
+
+#include "../jrd/svc.h"
+#include "../jrd/svc_proto.h"
+#endif
+#include "../wal/wstat_proto.h"
+
+#ifdef NETWARE_386
+#define exit(code)	{service->svc_handle = 0; return (code);}
+#define FPRINTF		SVC_netware_fprintf
+#endif
+
+#ifndef FPRINTF
+#define FPRINTF		ib_fprintf
+#endif
+
+
+void WSTATUS_dump_wal_segment( WAL WAL_handle, int acquire_flag,
+#ifdef NETWARE_386
+							  SVC outfile)
+#else
+							  IB_FILE * outfile)
+#endif
+{
+/**************************************
+ *
+ *	W S T A T U S _ d u m p _ w a l _ s e g m e n t
+ *
+ **************************************
+ *
+ * Functional description
+ *	Print the shared WAL segment info in a 
+ *	formatted way.
+ *
+ *	these messages were considered for translation but left as is for now
+ *	since they are likely only to be seen by DBA's and technical types
+ *    
+ **************************************/
+	WALS WAL_segment;
+	WALBLK *wblk;
+	LOGF *logf;
+	int i;
+
+	if (acquire_flag)
+		WALC_acquire(WAL_handle, &WAL_segment);
+	else
+		WAL_segment = WAL_handle->wal_segment;
+
+	FPRINTF(outfile,
+			"---------------------------------------------------------\n");
+	FPRINTF(outfile,
+			"WAL segment flags=%ld, flags2=%ld, Last bug=%ld, Last error=%ld\n",
+			WAL_segment->wals_flags, WAL_segment->wals_flags2,
+			WAL_segment->wals_last_bug, WAL_segment->wals_last_err);
+	FPRINTF(outfile, "Database page size=%d, owner id=%d, group id=%d\n",
+			WAL_segment->wals_dbpage_size, WAL_segment->wals_owner_id,
+			WAL_segment->wals_group_id);
+	FPRINTF(outfile, "Num attaches=%d, Num detaches=%d\n",
+			WAL_segment->wals_num_attaches, WAL_segment->wals_num_detaches);
+	FPRINTF(outfile,
+			"---------------------------------------------------------\n");
+	FPRINTF(outfile,
+			"WAL length=%d, buffer size=%d, total buffers=%d, original buffers=%d\n",
+			WAL_segment->wals_length, WAL_segment->wals_bufsize,
+			WAL_segment->wals_maxbufs, WAL_segment->wals_initial_maxbufs);
+	FPRINTF(outfile,
+			"current buffer=%d, last flushed buffer=%d, max buf waiting count=%d\n",
+			WAL_segment->wals_curbuf, WAL_segment->wals_last_flushed_buf,
+			WAL_segment->wals_buf_waiting_count);
+	FPRINTF(outfile, "Number \tCurrent offset \tFlags\n");
+	for (i = 0; i < WAL_segment->wals_maxbufs; i++) {
+		wblk = WAL_BLOCK(i);
+		FPRINTF(outfile, "%d \t\t%d \t%ud\n",
+				wblk->walblk_number, wblk->walblk_cur_offset,
+				wblk->walblk_flags);
+	}
+	FPRINTF(outfile,
+			"---------------------------------------------------------\n");
+	FPRINTF(outfile, "current log seqno=%ld, logfile=%s\n",
+			WAL_segment->wals_log_seqno, WAL_segment->wals_logname);
+	FPRINTF(outfile, "log partition offset=%ld, current offset=%ld\n",
+			WAL_segment->wals_log_partition_offset,
+			WAL_segment->wals_buf_offset);
+	FPRINTF(outfile,
+			"Flushed log seqno=%ld, Flushed offset=%ld, Rollover length=%ld\n",
+			WAL_segment->wals_flushed_log_seqno,
+			WAL_segment->wals_flushed_offset,
+			WAL_segment->wals_rollover_threshold);
+	FPRINTF(outfile,
+			"---------------------------------------------------------\n");
+	FPRINTF(outfile, "Max ckpt interval=%ld, Current ckpt interval=%ld\n",
+			WAL_segment->wals_max_ckpt_intrvl,
+			WAL_segment->wals_cur_ckpt_intrvl);
+	FPRINTF(outfile, "curr ckpt seqno=%ld, ckpt logname=%s\n",
+			WAL_segment->wals_ckpted_log_seqno,
+			WAL_segment->wals_ckpt_logname);
+	FPRINTF(outfile, "ckpt log partition offset=%ld, ckpt offset=%ld\n",
+			WAL_segment->wals_ckpt_log_p_offset,
+			WAL_segment->wals_ckpted_offset);
+	FPRINTF(outfile, "prev ckpt seqno=%ld, ckpt logname=%s\n",
+			WAL_segment->wals_prev_ckpted_log_seqno,
+			WAL_segment->wals_prev_ckpt_logname);
+	FPRINTF(outfile, "ckpt log partition offset=%ld, ckpt offset=%ld\n",
+			WAL_segment->wals_prev_ckpt_log_p_offset,
+			WAL_segment->wals_prev_ckpted_offset);
+	FPRINTF(outfile,
+			"---------------------------------------------------------\n");
+	FPRINTF(outfile,
+			"WAL writer pid=%d, pid of the last process acquring the WAL=%d\n",
+			WAL_segment->wals_writer_pid, WAL_segment->wals_last_pid);
+	FPRINTF(outfile,
+			"---------------------------------------------------------\n");
+	FPRINTF(outfile,
+			"Total WAL IOs=%ld, Avg IO size=%d, next block seqno=%ld\n",
+			WAL_segment->wals_IO_count,
+			WAL_segment->wals_total_IO_bytes /
+			(WAL_segment->wals_IO_count ? WAL_segment->wals_IO_count : 1),
+			WAL_segment->wals_blkseqno);
+	FPRINTF(outfile,
+			"---------------------------------------------------------\n");
+	FPRINTF(outfile,
+			"Total commits=%d, Number of group-commits=%d, Avg grpc size=%f\n",
+			WAL_segment->wals_commit_count, WAL_segment->wals_grpc_count,
+			((WAL_segment->wals_commit_count * 1.0) /
+			 (WAL_segment->wals_grpc_count ? WAL_segment->
+			  wals_grpc_count : 1)));
+	FPRINTF(outfile, "grpc wait micro-seconds =%d\n",
+			WAL_segment->wals_grpc_wait_usecs);
+	FPRINTF(outfile, "Current grpc block=%d\n",
+			WAL_segment->wals_cur_grpc_blknum + 1);
+	FPRINTF(outfile,
+			"Group-commit block   Coordinator pid       Group size\n");
+	for (i = 0; i < MAX_GRP_COMMITTERS; i++)
+		FPRINTF(outfile,
+				"        %d                  %d                     %d\n",
+				i + 1, WAL_segment->wals_grpc_blks[i].grp_commit_coordinator,
+				WAL_segment->wals_grpc_blks[i].grp_commit_size);
+	FPRINTF(outfile,
+			"---------------------------------------------------------\n");
+	FPRINTF(outfile,
+			"WAL segment acquire count=%d, number of wal_put2() calls=%d\n",
+			WAL_segment->wals_acquire_count, WAL_segment->wals_put_count);
+	FPRINTF(outfile,
+			"---------------------------------------------------------\n");
+	FPRINTF(outfile,
+			"Number of preallocated log files=%d, Current log file=%d\n",
+			WAL_segment->wals_max_logfiles,
+			WAL_segment->wals_cur_logfile + 1);
+	if (WAL_segment->wals_max_logfiles > 0) {
+		FPRINTF(outfile,
+				"Number \tName \t\tPartitions \tPartition size \tBase offset \tFlags\n");
+		for (i = 0; i < WAL_segment->wals_max_logfiles; i++) {
+			logf = LOGF_INFO(i);
+			FPRINTF(outfile, "%d \t%s \t\t%d \t%ld \t%ld \t%ud\n",
+					i + 1, LOGF_NAME(logf), logf->logf_partitions,
+					logf->logf_max_size, logf->logf_base_offset,
+					logf->logf_flags);
+		}
+	}
+	logf = &WAL_segment->wals_log_serial_file_info;
+	if (logf->logf_name_offset > 0)
+		FPRINTF(outfile,
+				"Serial log file name=%s, size=%ld, fname seqno=%ld\n",
+				LOGF_NAME(logf), logf->logf_max_size, logf->logf_fname_seqno);
+	logf = &WAL_segment->wals_log_ovflow_file_info;
+	if (logf->logf_name_offset > 0)
+		FPRINTF(outfile,
+				"Overflow log file name=%s, size=%ld, fname seqno=%ld\n",
+				LOGF_NAME(logf), logf->logf_max_size, logf->logf_fname_seqno);
+	FPRINTF(outfile,
+			"---------------------------------------------------------\n");
+
+	if (acquire_flag)
+		WALC_release(WAL_handle);
+}